From ebe750b43d2c71c05362941b14a72aa7291bb684 Mon Sep 17 00:00:00 2001 From: vyzo Date: Sat, 14 Dec 2024 02:21:17 +0200 Subject: [PATCH] Issue 1282: Bring Gambit to the future (#1286) This updates the gambit pin, runtime. and actor io to work with the recent changes for using 3 tag bits and supporting self-tagging flonums. It also isolates the target dependent code in the runtime behind a cond-expand so that we can cleanly support type-of and class-of in the forthcoming js target. Closes #1282 --- configure | 2 +- src/bootstrap/gerbil/compiler/base~0.scm | 502 +- src/bootstrap/gerbil/compiler/base~1.scm | 558 +- src/bootstrap/gerbil/compiler/compile~0.scm | 15462 ++++----- src/bootstrap/gerbil/compiler/compile~1.scm | 1284 +- src/bootstrap/gerbil/compiler/driver~0.scm | 3330 +- src/bootstrap/gerbil/compiler/driver~1.scm | 56 +- src/bootstrap/gerbil/compiler/method~0.scm | 3036 +- src/bootstrap/gerbil/compiler/method~1.scm | 2962 +- .../gerbil/compiler/optimize-ann~0.scm | 18288 +++++------ .../gerbil/compiler/optimize-ann~1.scm | 210 +- .../gerbil/compiler/optimize-base~0.scm | 1856 +- .../gerbil/compiler/optimize-base~1.scm | 2456 +- .../gerbil/compiler/optimize-call~0.scm | 6292 ++-- .../gerbil/compiler/optimize-call~1.scm | 116 +- .../gerbil/compiler/optimize-spec~0.scm | 10972 +++---- .../gerbil/compiler/optimize-spec~1.scm | 360 +- .../gerbil/compiler/optimize-top~0.scm | 25940 ++++++++-------- .../gerbil/compiler/optimize-top~1.scm | 914 +- .../gerbil/compiler/optimize-xform~0.scm | 1436 +- .../gerbil/compiler/optimize-xform~1.scm | 434 +- src/bootstrap/gerbil/compiler/optimize~0.scm | 2172 +- src/bootstrap/gerbil/compiler/optimize~1.scm | 58 +- src/bootstrap/gerbil/compiler/ssxi~1.scm | 6582 ++-- src/bootstrap/gerbil/core.ssi | 9901 +++--- src/bootstrap/gerbil/core/contract~1.scm | 230 +- src/bootstrap/gerbil/core/contract~2.scm | 234 +- src/bootstrap/gerbil/core/contract~3.scm | 70 +- src/bootstrap/gerbil/core/contract~4.scm | 1160 +- src/bootstrap/gerbil/core/contract~5.scm | 118 +- src/bootstrap/gerbil/core/contract~6.scm | 11902 +++---- src/bootstrap/gerbil/core/contract~7.scm | 260 +- src/bootstrap/gerbil/core/contract~8.scm | 15180 ++++----- src/bootstrap/gerbil/core/contract~9.scm | 18574 +++++------ .../gerbil/core/contract~ClassMeta~0.scm | 176 +- .../gerbil/core/contract~InterfaceInfo~0.scm | 370 +- .../gerbil/core/contract~TypeEnv~0.scm | 22 +- src/bootstrap/gerbil/core/expander.ssi | 1 + src/bootstrap/gerbil/core/expander~2.scm | 12 +- src/bootstrap/gerbil/core/macro-object~0.scm | 32 +- src/bootstrap/gerbil/core/macro-object~1.scm | 70 +- src/bootstrap/gerbil/core/match~1.scm | 11178 +++---- src/bootstrap/gerbil/core/match~2.scm | 74 +- src/bootstrap/gerbil/core/module-sugar~1.scm | 3792 +-- src/bootstrap/gerbil/core/mop~1.scm | 1378 +- src/bootstrap/gerbil/core/mop~2.scm | 388 +- src/bootstrap/gerbil/core/mop~3.scm | 4954 +-- src/bootstrap/gerbil/core/mop~4.scm | 3136 +- src/bootstrap/gerbil/core/mop~MOP-2~0.scm | 168 +- src/bootstrap/gerbil/core/more-sugar~1.scm | 1844 +- src/bootstrap/gerbil/core/more-sugar~2.scm | 146 +- .../gerbil/core/more-syntax-sugar~1.scm | 44 +- src/bootstrap/gerbil/core/runtime.ssi | 1 + src/bootstrap/gerbil/core/sugar.ssi | 5 +- src/bootstrap/gerbil/core/sugar~1.scm | 772 +- src/bootstrap/gerbil/core/sugar~2.scm | 15016 ++++----- src/bootstrap/gerbil/core/sugar~3.scm | 1196 +- src/bootstrap/gerbil/expander/common~0.scm | 12 +- src/bootstrap/gerbil/expander/common~1.scm | 1212 +- src/bootstrap/gerbil/expander/compile~0.scm | 1264 +- src/bootstrap/gerbil/expander/core.ssi | 3 + src/bootstrap/gerbil/expander/core.ssxi.ss | 5 + src/bootstrap/gerbil/expander/core~0.scm | 3183 +- src/bootstrap/gerbil/expander/core~1.scm | 3526 +-- src/bootstrap/gerbil/expander/init~0.scm | 22 +- src/bootstrap/gerbil/expander/module.ssxi.ss | 12 +- src/bootstrap/gerbil/expander/module~0.scm | 4978 +-- src/bootstrap/gerbil/expander/module~1.scm | 838 +- src/bootstrap/gerbil/expander/root~0.scm | 758 +- src/bootstrap/gerbil/expander/stxcase~0.scm | 3034 +- src/bootstrap/gerbil/expander/stxcase~1.scm | 114 +- src/bootstrap/gerbil/expander/stx~0.scm | 1500 +- src/bootstrap/gerbil/expander/stx~1.scm | 354 +- src/bootstrap/gerbil/expander/top~0.scm | 4692 +-- src/bootstrap/gerbil/runtime/c3~0.scm | 608 +- src/bootstrap/gerbil/runtime/control~0.scm | 402 +- src/bootstrap/gerbil/runtime/error.ssxi.ss | 4 +- src/bootstrap/gerbil/runtime/error~0.scm | 3236 +- src/bootstrap/gerbil/runtime/error~1.scm | 954 +- src/bootstrap/gerbil/runtime/eval~0.scm | 3034 +- src/bootstrap/gerbil/runtime/eval~1.scm | 788 +- src/bootstrap/gerbil/runtime/gambit~0.scm | 2 +- src/bootstrap/gerbil/runtime/hash.ssi | 64 +- src/bootstrap/gerbil/runtime/hash.ssxi.ss | 64 +- src/bootstrap/gerbil/runtime/hash~0.scm | 2670 +- src/bootstrap/gerbil/runtime/hash~1.scm | 1204 +- src/bootstrap/gerbil/runtime/init~0.scm | 410 +- src/bootstrap/gerbil/runtime/interface~0.scm | 1228 +- src/bootstrap/gerbil/runtime/interface~1.scm | 484 +- src/bootstrap/gerbil/runtime/loader~0.scm | 318 +- .../gerbil/runtime/mop-system-classes~0.scm | 488 +- .../gerbil/runtime/mop-system-classes~1.scm | 256 +- src/bootstrap/gerbil/runtime/mop.ssi | 3 + src/bootstrap/gerbil/runtime/mop.ssxi.ss | 17 + src/bootstrap/gerbil/runtime/mop~0.scm | 5578 ++-- src/bootstrap/gerbil/runtime/mop~1.scm | 1496 +- src/bootstrap/gerbil/runtime/repl~0.scm | 36 +- src/bootstrap/gerbil/runtime/syntax~0.scm | 534 +- src/bootstrap/gerbil/runtime/syntax~1.scm | 1438 +- src/bootstrap/gerbil/runtime/system~0.scm | 262 +- src/bootstrap/gerbil/runtime/table~0.scm | 3248 +- src/bootstrap/gerbil/runtime/table~1.scm | 1288 +- src/bootstrap/gerbil/runtime/thread~0.scm | 472 +- src/bootstrap/gerbil/runtime/util~0.scm | 3506 +-- src/bootstrap/gerbil/runtime/util~1.scm | 2354 +- src/bootstrap/gerbil/runtime~0.scm | 2 +- src/gambit | 2 +- src/gerbil/core/runtime.ss | 1 + src/gerbil/runtime/mop.ss | 212 +- src/std/actor-v18/io-test.ss | 4 +- src/std/actor-v18/io.ss | 22 +- 111 files changed, 135105 insertions(+), 134773 deletions(-) diff --git a/configure b/configure index 2c8bff784..2aceae8c9 100755 --- a/configure +++ b/configure @@ -72,7 +72,7 @@ else readonly gerbil_version="$(git describe --tags --always)" fi readonly gerbil_targets="" -readonly default_gambit_tag=09335d95cab6931791c0a8497cbe915053ff8af3 +readonly default_gambit_tag=2686dd61237aa562eb0ff206bc689bc8a77b45c9 readonly default_gambit_config="--enable-targets=${gerbil_targets} --enable-single-host --enable-dynamic-clib --enable-default-runtime-options=tE8,f8,-8 --enable-trust-c-tco" prefix="/opt/gerbil" readonly cflags_opt="-foptimize-sibling-calls" diff --git a/src/bootstrap/gerbil/compiler/base~0.scm b/src/bootstrap/gerbil/compiler/base~0.scm index 42f4ce4d6..cb7ed32d8 100644 --- a/src/bootstrap/gerbil/compiler/base~0.scm +++ b/src/bootstrap/gerbil/compiler/base~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/base::timestamp 1733870075) + (define gerbil/compiler/base::timestamp 1734131747) (begin (define gxc#current-compile-symbol-table (make-parameter '#f)) (define gxc#current-compile-runtime-sections (make-parameter '#f)) @@ -11,14 +11,14 @@ (define gxc#current-compile-keep-scm (make-parameter '#f)) (define gxc#current-compile-verbose (make-parameter - (let ((_%verbosity133933133935%_ + (let ((_%verbosity134039134041%_ (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_VERBOSE" '#f)))) - (if _%verbosity133933133935%_ - (let* ((_%verbosity133938%_ _%verbosity133933133935%_) - (_%$e133940%_ (string->number _%verbosity133938%_))) - (if _%$e133940%_ _%$e133940%_ _%verbosity133938%_)) + (if _%verbosity134039134041%_ + (let* ((_%verbosity134044%_ _%verbosity134039134041%_) + (_%$e134046%_ (string->number _%verbosity134044%_))) + (if _%$e134046%_ _%$e134046%_ _%verbosity134044%_)) '#f)))) (define gxc#current-compile-optimize (make-parameter '#f)) (define gxc#current-compile-debug (make-parameter '#f)) @@ -30,22 +30,22 @@ (define gxc#current-compile-parallel (make-parameter '#f)) (define gxc#current-compile-local-env (make-parameter '())) (define gxc#symbol-table::t - (let ((__tmp133995 (list)) (__tmp133994 (cons (cons 'struct: '#t) '()))) + (let ((__tmp134101 (list)) (__tmp134100 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#symbol-table::t 'symbol-table - __tmp133995 + __tmp134101 '(gensyms bindings) - __tmp133994 + __tmp134100 ':init!))) (define gxc#symbol-table? (let () (declare (not safe)) (__make-class-predicate gxc#symbol-table::t))) (define gxc#make-symbol-table - (lambda _%$args133931%_ - (apply make-instance gxc#symbol-table::t _%$args133931%_))) + (lambda _%$args134037%_ + (apply make-instance gxc#symbol-table::t _%$args134037%_))) (define gxc#symbol-table-gensyms (let () (declare (not safe)) @@ -79,44 +79,44 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#symbol-table::t 'bindings))) (define gxc#symbol-table:::init! - (lambda (_%self133453133916%_) - (let* ((_%self133919%_ _%self133453133916%_) - (_%self133921%_ _%self133919%_)) - (if (let ((__tmp133996 + (lambda (_%self133559134022%_) + (let* ((_%self134025%_ _%self133559134022%_) + (_%self134027%_ _%self134025%_)) + (if (let ((__tmp134102 (let () (declare (not safe)) - (##structure-length _%self133921%_)))) + (##structure-length _%self134027%_)))) (declare (not safe)) - (##fx< '2 __tmp133996)) + (##fx< '2 __tmp134102)) (begin - (let ((__tmp133997 + (let ((__tmp134103 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133921%_ - __tmp133997 + _%self134027%_ + __tmp134103 '1 '#f '#f)) - (let ((__tmp133998 + (let ((__tmp134104 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self133921%_ - __tmp133998 + _%self134027%_ + __tmp134104 '2 '#f '#f)) '#!void) - (let ((__tmp133999 + (let ((__tmp134105 (let () (declare (not safe)) - (##vector-length _%self133921%_)))) + (##vector-length _%self134027%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self133921%_ + _%self134027%_ '2 - __tmp133999)))))) + __tmp134105)))))) (let () (declare (not safe)) (__bind-method!__% @@ -125,134 +125,134 @@ gxc#symbol-table:::init! '#f)) (define gxc#raise-compile-error - (lambda (_%message133785%_ _%stx133786%_ . _%details133787%_) - (let ((_%ctx133792%_ - (let ((_%$e133789%_ + (lambda (_%message133891%_ _%stx133892%_ . _%details133893%_) + (let ((_%ctx133898%_ + (let ((_%$e133895%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (if _%$e133789%_ _%$e133789%_ 'compile)))) + (if _%$e133895%_ _%$e133895%_ 'compile)))) (apply gx#raise-syntax-error - _%ctx133792%_ - _%message133785%_ - _%stx133786%_ - _%details133787%_)))) + _%ctx133898%_ + _%message133891%_ + _%stx133892%_ + _%details133893%_)))) (define gxc#verbose - (lambda _%args133782%_ + (lambda _%args133888%_ (if (let () (declare (not safe)) (gxc#current-compile-verbose)) - (let ((__tmp134000 + (let ((__tmp134106 (lambda () (let () (declare (not safe)) - (##apply displayln _%args133782%_))))) + (##apply displayln _%args133888%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp134000)) + (__with-lock gxc#__verbose-mutex __tmp134106)) '#!void))) (define gxc#__verbose-mutex (make-mutex 'compiler/driver)) (define gxc#module-path-reserved-chars '":#<>&!?*;()[]{}|'`\"\\") (define gxc#module-id->path-string - (lambda (_%id133764%_) - (let* ((_%str133766%_ - (if (symbol? _%id133764%_) + (lambda (_%id133870%_) + (let* ((_%str133872%_ + (if (symbol? _%id133870%_) (let () (declare (not safe)) - (##symbol->string _%id133764%_)) - _%id133764%_)) - (_%len133768%_ (string-length _%str133766%_)) - (_%res133770%_ - (let () (declare (not safe)) (##make-string _%len133768%_)))) - (let _%lp133773%_ ((_%i133775%_ '0)) - (if (let () (declare (not safe)) (##fx< _%i133775%_ _%len133768%_)) - (let* ((_%char133777%_ (string-ref _%str133766%_ _%i133775%_)) - (_%xchar133779%_ + (##symbol->string _%id133870%_)) + _%id133870%_)) + (_%len133874%_ (string-length _%str133872%_)) + (_%res133876%_ + (let () (declare (not safe)) (##make-string _%len133874%_)))) + (let _%lp133879%_ ((_%i133881%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i133881%_ _%len133874%_)) + (let* ((_%char133883%_ (string-ref _%str133872%_ _%i133881%_)) + (_%xchar133885%_ (if (let () (declare (not safe)) (string-index__0 gxc#module-path-reserved-chars - _%char133777%_)) + _%char133883%_)) '#\_ - _%char133777%_))) - (string-set! _%res133770%_ _%i133775%_ _%xchar133779%_) - (_%lp133773%_ - (let () (declare (not safe)) (##fx+ _%i133775%_ '1)))) - _%res133770%_))))) + _%char133883%_))) + (string-set! _%res133876%_ _%i133881%_ _%xchar133885%_) + (_%lp133879%_ + (let () (declare (not safe)) (##fx+ _%i133881%_ '1)))) + _%res133876%_))))) (define gxc#map* - (lambda (_%proc133706%_ _%maybe-improper-list133707%_) - (let _%recur133709%_ ((_%rest133711%_ _%maybe-improper-list133707%_)) - (let* ((_%rest133712133723%_ _%rest133711%_) - (_%E133716133727%_ + (lambda (_%proc133812%_ _%maybe-improper-list133813%_) + (let _%recur133815%_ ((_%rest133817%_ _%maybe-improper-list133813%_)) + (let* ((_%rest133818133829%_ _%rest133817%_) + (_%E133822133833%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest133712133723%_ + _%rest133818133829%_ '([hd . rest]) '([]) '(tail))) '#!void))) - (let ((_%K133719133752%_ - (lambda (_%rest133749%_ _%hd133750%_) - (cons (_%proc133706%_ _%hd133750%_) - (_%recur133709%_ _%rest133749%_)))) - (_%K133718133743%_ (lambda () '())) - (_%K133717133733%_ - (lambda (_%tail133731%_) (_%proc133706%_ _%tail133731%_)))) - (let ((_%try-match133714133746%_ + (let ((_%K133825133858%_ + (lambda (_%rest133855%_ _%hd133856%_) + (cons (_%proc133812%_ _%hd133856%_) + (_%recur133815%_ _%rest133855%_)))) + (_%K133824133849%_ (lambda () '())) + (_%K133823133839%_ + (lambda (_%tail133837%_) (_%proc133812%_ _%tail133837%_)))) + (let ((_%try-match133820133852%_ (lambda () - (if (null? _%rest133712133723%_) - (_%K133718133743%_) - (let ((_%tail133736%_ _%rest133712133723%_)) + (if (null? _%rest133818133829%_) + (_%K133824133849%_) + (let ((_%tail133842%_ _%rest133818133829%_)) (declare (not safe)) - (_%proc133706%_ _%tail133736%_)))))) - (if (pair? _%rest133712133723%_) - (let ((_%tl133721133757%_ + (_%proc133812%_ _%tail133842%_)))))) + (if (pair? _%rest133818133829%_) + (let ((_%tl133827133863%_ (let () (declare (not safe)) - (##cdr _%rest133712133723%_))) - (_%hd133720133755%_ + (##cdr _%rest133818133829%_))) + (_%hd133826133861%_ (let () (declare (not safe)) - (##car _%rest133712133723%_)))) - (let ((_%hd133760%_ _%hd133720133755%_) - (_%rest133762%_ _%tl133721133757%_)) - (_%K133719133752%_ _%rest133762%_ _%hd133760%_))) - (_%try-match133714133746%_)))))))) + (##car _%rest133818133829%_)))) + (let ((_%hd133866%_ _%hd133826133861%_) + (_%rest133868%_ _%tl133827133863%_)) + (_%K133825133858%_ _%rest133868%_ _%hd133866%_))) + (_%try-match133820133852%_)))))))) (define gxc#symbol-in-local-scope? - (lambda (_%sym133701%_) - (let ((_%$e133703%_ (not (gxc#gensym-reference? _%sym133701%_)))) - (if _%$e133703%_ - _%$e133703%_ - (memq _%sym133701%_ + (lambda (_%sym133807%_) + (let ((_%$e133809%_ (not (gxc#gensym-reference? _%sym133807%_)))) + (if _%$e133809%_ + _%$e133809%_ + (memq _%sym133807%_ (let () (declare (not safe)) (gxc#current-compile-local-env))))))) (define gxc#gensym-reference? - (lambda (_%sym133697%_) - (let ((_%str133699%_ (symbol->string _%sym133697%_))) + (lambda (_%sym133803%_) + (let ((_%str133805%_ (symbol->string _%sym133803%_))) (if (let () (declare (not safe)) - (##string-prefix? '"_%" _%str133699%_)) + (##string-prefix? '"_%" _%str133805%_)) (let () (declare (not safe)) - (##string-suffix? '"%_" _%str133699%_)) + (##string-suffix? '"%_" _%str133805%_)) '#f)))) (define gxc#generate-runtime-binding-id - (lambda (_%id133668%_) - (let ((_%$e133670%_ + (lambda (_%id133774%_) + (let ((_%$e133776%_ (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id133668%_ + _%id133774%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id133668%_)) + (gx#resolve-identifier__0 _%id133774%_)) '#f))) - (if _%$e133670%_ - ((lambda (_%bind133673%_) - (let ((_%eid133675%_ - (##structure-ref _%bind133673%_ '1 gx#binding::t '#f)) - (_%ht133676%_ + (if _%$e133776%_ + ((lambda (_%bind133779%_) + (let ((_%eid133781%_ + (##structure-ref _%bind133779%_ '1 gx#binding::t '#f)) + (_%ht133782%_ (##structure-ref (let () (declare (not safe)) @@ -262,155 +262,155 @@ '#f))) (if (let () (declare (not safe)) - (interned-symbol? _%eid133675%_)) - _%eid133675%_ - (let ((_%$e133679%_ + (interned-symbol? _%eid133781%_)) + _%eid133781%_ + (let ((_%$e133785%_ (let () (declare (not safe)) - (hash-get _%ht133676%_ _%eid133675%_)))) - (if _%$e133679%_ - _%$e133679%_ + (hash-get _%ht133782%_ _%eid133781%_)))) + (if _%$e133785%_ + _%$e133785%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133673%_ + _%bind133779%_ 'gx#local-binding::t)) - (let ((_%gid133683%_ + (let ((_%gid133789%_ (gxc#generate-runtime-gensym-reference__0 - _%eid133675%_))) + _%eid133781%_))) (let () (declare (not safe)) (hash-put! - _%ht133676%_ - _%eid133675%_ - _%gid133683%_)) - _%gid133683%_) + _%ht133782%_ + _%eid133781%_ + _%gid133789%_)) + _%gid133789%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind133673%_ + _%bind133779%_ 'gx#module-binding::t)) - (let ((_%gid133692%_ - (let ((_%$e133686%_ + (let ((_%gid133798%_ + (let ((_%$e133792%_ (##structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%bind133673%_ + _%bind133779%_ '4 '#f '#f)) '6 gx#module-context::t '#f))) - (if _%$e133686%_ - ((lambda (_%ns133689%_) + (if _%$e133792%_ + ((lambda (_%ns133795%_) (let () (declare (not safe)) (make-symbol__1 - _%ns133689%_ + _%ns133795%_ '"#" - _%eid133675%_))) - _%$e133686%_) + _%eid133781%_))) + _%$e133792%_) (gxc#generate-runtime-gensym-reference__0 - _%eid133675%_))))) + _%eid133781%_))))) (let () (declare (not safe)) (hash-put! - _%ht133676%_ - _%eid133675%_ - _%gid133692%_)) - _%gid133692%_) + _%ht133782%_ + _%eid133781%_ + _%gid133798%_)) + _%gid133798%_) (gxc#raise-compile-error '"Cannot compile reference to uninterned binding" - _%id133668%_ - _%eid133675%_ - _%bind133673%_)))))))) - _%$e133670%_) - (if (let ((__tmp134001 + _%id133774%_ + _%eid133781%_ + _%bind133779%_)))))))) + _%$e133776%_) + (if (let ((__tmp134107 (let () (declare (not safe)) - (gx#stx-e _%id133668%_)))) + (gx#stx-e _%id133774%_)))) (declare (not safe)) - (interned-symbol? __tmp134001)) - (let () (declare (not safe)) (gx#stx-e _%id133668%_)) + (interned-symbol? __tmp134107)) + (let () (declare (not safe)) (gx#stx-e _%id133774%_)) (gxc#raise-compile-error '"Cannot compile reference to uninterned identifier" - _%id133668%_)))))) + _%id133774%_)))))) (define gxc#generate-runtime-binding-id* - (lambda (_%id133666%_) - (if (let () (declare (not safe)) (gx#identifier? _%id133666%_)) - (gxc#generate-runtime-binding-id _%id133666%_) + (lambda (_%id133772%_) + (if (let () (declare (not safe)) (gx#identifier? _%id133772%_)) + (gxc#generate-runtime-binding-id _%id133772%_) (gxc#generate-runtime-temporary__0)))) (define gxc#generate-runtime-temporary__% - (lambda (_%top133653%_) - (if _%top133653%_ - (let ((_%ns133655%_ + (lambda (_%top133759%_) + (if _%top133759%_ + (let ((_%ns133761%_ (##structure-ref - (let ((__tmp134002 + (let ((__tmp134108 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) - (gx#core-context-top__1 __tmp134002)) + (gx#core-context-top__1 __tmp134108)) '6 gx#module-context::t '#f)) - (_%phi133656%_ + (_%phi133762%_ (let () (declare (not safe)) (gx#current-expander-phi)))) - (if _%ns133655%_ - (if (fxpositive? _%phi133656%_) - (let ((__tmp134004 (number->string _%phi133656%_)) - (__tmp134003 + (if _%ns133761%_ + (if (fxpositive? _%phi133762%_) + (let ((__tmp134110 (number->string _%phi133762%_)) + (__tmp134109 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 - _%ns133655%_ + _%ns133761%_ '"[" - __tmp134004 + __tmp134110 '"]#_" - __tmp134003 + __tmp134109 '"_")) - (let ((__tmp134005 + (let ((__tmp134111 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 _%ns133655%_ '"#_" __tmp134005 '"_"))) - (if (fxpositive? _%phi133656%_) - (let ((__tmp134007 (number->string _%phi133656%_)) - (__tmp134006 + (make-symbol__1 _%ns133761%_ '"#_" __tmp134111 '"_"))) + (if (fxpositive? _%phi133762%_) + (let ((__tmp134113 (number->string _%phi133762%_)) + (__tmp134112 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) (make-symbol__1 '"[" - __tmp134007 + __tmp134113 '"]#_" - __tmp134006 + __tmp134112 '"_")) - (let ((__tmp134008 + (let ((__tmp134114 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp134008 '"_"))))) - (let ((__tmp134009 (let () (declare (not safe)) (##gensym)))) + (make-symbol__1 '"_" __tmp134114 '"_"))))) + (let ((__tmp134115 (let () (declare (not safe)) (##gensym)))) (declare (not safe)) - (make-symbol__1 '"_" __tmp134009 '"_"))))) + (make-symbol__1 '"_" __tmp134115 '"_"))))) (define gxc#generate-runtime-temporary__0 (lambda () - (let ((_%top133662%_ '#f)) - (gxc#generate-runtime-temporary__% _%top133662%_)))) + (let ((_%top133768%_ '#f)) + (gxc#generate-runtime-temporary__% _%top133768%_)))) (define gxc#generate-runtime-temporary - (lambda _g134011_ - (let ((_g134010_ (let () (declare (not safe)) (##length _g134011_)))) - (cond ((let () (declare (not safe)) (##fx= _g134010_ 0)) - (apply gxc#generate-runtime-temporary__0 _g134011_)) - ((let () (declare (not safe)) (##fx= _g134010_ 1)) - (apply gxc#generate-runtime-temporary__% _g134011_)) + (lambda _g134117_ + (let ((_g134116_ (let () (declare (not safe)) (##length _g134117_)))) + (cond ((let () (declare (not safe)) (##fx= _g134116_ 0)) + (apply gxc#generate-runtime-temporary__0 _g134117_)) + ((let () (declare (not safe)) (##fx= _g134116_ 1)) + (apply gxc#generate-runtime-temporary__% _g134117_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-temporary - _g134011_)))))) + _g134117_)))))) (define gxc#generate-runtime-gensym-reference__% - (lambda (_%sym133631%_ _%quote?133632%_) - (let* ((_%ht133634%_ + (lambda (_%sym133737%_ _%quote?133738%_) + (let* ((_%ht133740%_ (##structure-ref (let () (declare (not safe)) @@ -418,66 +418,66 @@ '1 gxc#symbol-table::t '#f)) - (_%$e133636%_ + (_%$e133742%_ (let () (declare (not safe)) - (hash-get _%ht133634%_ _%sym133631%_)))) - (if _%$e133636%_ - _%$e133636%_ - (let ((_%g133640%_ - (if _%quote?133632%_ - (let ((__tmp134012 + (hash-get _%ht133740%_ _%sym133737%_)))) + (if _%$e133742%_ + _%$e133742%_ + (let ((_%g133746%_ + (if _%quote?133738%_ + (let ((__tmp134118 (let () (declare (not safe)) (gxc#current-compile-timestamp)))) (declare (not safe)) (make-symbol__1 '"__" - _%sym133631%_ + _%sym133737%_ '"__" - __tmp134012)) + __tmp134118)) (let () (declare (not safe)) - (make-symbol__1 '"_%" _%sym133631%_ '"%_"))))) + (make-symbol__1 '"_%" _%sym133737%_ '"%_"))))) (let () (declare (not safe)) - (hash-put! _%ht133634%_ _%sym133631%_ _%g133640%_)) - _%g133640%_))))) + (hash-put! _%ht133740%_ _%sym133737%_ _%g133746%_)) + _%g133746%_))))) (define gxc#generate-runtime-gensym-reference__0 - (lambda (_%sym133645%_) - (let ((_%quote?133647%_ '#f)) + (lambda (_%sym133751%_) + (let ((_%quote?133753%_ '#f)) (gxc#generate-runtime-gensym-reference__% - _%sym133645%_ - _%quote?133647%_)))) + _%sym133751%_ + _%quote?133753%_)))) (define gxc#generate-runtime-gensym-reference - (lambda _g134014_ - (let ((_g134013_ (let () (declare (not safe)) (##length _g134014_)))) - (cond ((let () (declare (not safe)) (##fx= _g134013_ 1)) - (apply gxc#generate-runtime-gensym-reference__0 _g134014_)) - ((let () (declare (not safe)) (##fx= _g134013_ 2)) - (apply gxc#generate-runtime-gensym-reference__% _g134014_)) + (lambda _g134120_ + (let ((_g134119_ (let () (declare (not safe)) (##length _g134120_)))) + (cond ((let () (declare (not safe)) (##fx= _g134119_ 1)) + (apply gxc#generate-runtime-gensym-reference__0 _g134120_)) + ((let () (declare (not safe)) (##fx= _g134119_ 2)) + (apply gxc#generate-runtime-gensym-reference__% _g134120_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-gensym-reference - _g134014_)))))) + _g134120_)))))) (define gxc#runtime-identifier=? - (lambda (_%id1133623%_ _%id2133624%_) - (letrec ((_%symbol-e133626%_ - (lambda (_%id133628%_) - (if (symbol? _%id133628%_) - _%id133628%_ - (gxc#generate-runtime-binding-id _%id133628%_))))) - (eq? (_%symbol-e133626%_ _%id1133623%_) - (_%symbol-e133626%_ _%id2133624%_))))) + (lambda (_%id1133729%_ _%id2133730%_) + (letrec ((_%symbol-e133732%_ + (lambda (_%id133734%_) + (if (symbol? _%id133734%_) + _%id133734%_ + (gxc#generate-runtime-binding-id _%id133734%_))))) + (eq? (_%symbol-e133732%_ _%id1133729%_) + (_%symbol-e133732%_ _%id2133730%_))))) (define gxc#identifier-symbol - (lambda (_%stx133621%_) + (lambda (_%stx133727%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%stx133621%_ + _%stx133727%_ 'gx#syntax-quote::t)) - (gxc#generate-runtime-binding-id _%stx133621%_) - (let () (declare (not safe)) (gx#stx-e _%stx133621%_))))) + (gxc#generate-runtime-binding-id _%stx133727%_) + (let () (declare (not safe)) (gx#stx-e _%stx133727%_))))) (define gxc#__compile-jobs '()) (define gxc#__available-cores (string->number @@ -485,69 +485,69 @@ (define gxc#__jobs-mx (make-mutex)) (define gxc#__jobs-cv (make-condition-variable)) (define gxc#add-compile-job!__% - (lambda (_%thunk133606%_ _%name133607%_) + (lambda (_%thunk133712%_ _%name133713%_) (mutex-lock! gxc#__jobs-mx) - (let ((_%job133609%_ - (gxc#make-compile-job _%thunk133606%_ _%name133607%_))) - (set! gxc#__compile-jobs (cons _%job133609%_ gxc#__compile-jobs))) + (let ((_%job133715%_ + (gxc#make-compile-job _%thunk133712%_ _%name133713%_))) + (set! gxc#__compile-jobs (cons _%job133715%_ gxc#__compile-jobs))) (mutex-unlock! gxc#__jobs-mx))) (define gxc#add-compile-job!__0 - (lambda (_%thunk133614%_) - (let ((_%name133616%_ + (lambda (_%thunk133720%_) + (let ((_%name133722%_ (let () (declare (not safe)) (gxc#current-compile-context)))) - (gxc#add-compile-job!__% _%thunk133614%_ _%name133616%_)))) + (gxc#add-compile-job!__% _%thunk133720%_ _%name133722%_)))) (define gxc#add-compile-job! - (lambda _g134016_ - (let ((_g134015_ (let () (declare (not safe)) (##length _g134016_)))) - (cond ((let () (declare (not safe)) (##fx= _g134015_ 1)) - (apply gxc#add-compile-job!__0 _g134016_)) - ((let () (declare (not safe)) (##fx= _g134015_ 2)) - (apply gxc#add-compile-job!__% _g134016_)) + (lambda _g134122_ + (let ((_g134121_ (let () (declare (not safe)) (##length _g134122_)))) + (cond ((let () (declare (not safe)) (##fx= _g134121_ 1)) + (apply gxc#add-compile-job!__0 _g134122_)) + ((let () (declare (not safe)) (##fx= _g134121_ 2)) + (apply gxc#add-compile-job!__% _g134122_)) (else (##raise-wrong-number-of-arguments-exception gxc#add-compile-job! - _g134016_)))))) + _g134122_)))))) (define gxc#pending-compile-jobs (lambda () (mutex-lock! gxc#__jobs-mx) - (let ((_%result133603%_ (reverse! gxc#__compile-jobs))) + (let ((_%result133709%_ (reverse! gxc#__compile-jobs))) (set! gxc#__compile-jobs '()) (mutex-unlock! gxc#__jobs-mx) - _%result133603%_))) + _%result133709%_))) (define gxc#execute-pending-compile-jobs! (lambda () - (let _%loop133597%_ () - (let ((_%pending133600%_ (gxc#pending-compile-jobs))) - (if (null? _%pending133600%_) + (let _%loop133703%_ () + (let ((_%pending133706%_ (gxc#pending-compile-jobs))) + (if (null? _%pending133706%_) '#!void (begin (let () (declare (not safe)) - (##for-each thread-start! _%pending133600%_)) + (##for-each thread-start! _%pending133706%_)) (let () (declare (not safe)) - (##for-each gxc#join! _%pending133600%_)))))))) + (##for-each gxc#join! _%pending133706%_)))))))) (define gxc#make-compile-job - (lambda (_%thunk133586%_ _%name133587%_) + (lambda (_%thunk133692%_ _%name133693%_) (make-thread (lambda () - (let _%loop133590%_ () + (let _%loop133696%_ () (mutex-lock! gxc#__jobs-mx) (if (> gxc#__available-cores '0) (begin (set! gxc#__available-cores (- gxc#__available-cores '1)) (mutex-unlock! gxc#__jobs-mx) - (let ((__tmp134017 + (let ((__tmp134123 (lambda () (let () (declare (not safe)) (displayln '"... execute compile job " - _%name133587%_))))) + _%name133693%_))))) (declare (not safe)) - (__with-lock gxc#__verbose-mutex __tmp134017)) - (let ((__tmp134019 (lambda () (_%thunk133586%_))) - (__tmp134018 + (__with-lock gxc#__verbose-mutex __tmp134123)) + (let ((__tmp134125 (lambda () (_%thunk133692%_))) + (__tmp134124 (lambda () (mutex-lock! gxc#__jobs-mx) (set! gxc#__available-cores @@ -557,25 +557,25 @@ (condition-variable-signal! gxc#__jobs-cv) (mutex-unlock! gxc#__jobs-mx)))) (declare (not safe)) - (__with-unwind-protect __tmp134019 __tmp134018))) + (__with-unwind-protect __tmp134125 __tmp134124))) (begin (mutex-unlock! gxc#__jobs-mx gxc#__jobs-cv) - (_%loop133590%_))))) - _%name133587%_))) + (_%loop133696%_))))) + _%name133693%_))) (define gxc#join! - (lambda (_%thread133581%_) - (let ((__tmp134021 - (lambda (_%exn133583%_) + (lambda (_%thread133687%_) + (let ((__tmp134127 + (lambda (_%exn133689%_) (if (let () (declare (not safe)) - (uncaught-exception? _%exn133583%_)) - (let ((__tmp134022 + (uncaught-exception? _%exn133689%_)) + (let ((__tmp134128 (let () (declare (not safe)) - (uncaught-exception-reason _%exn133583%_)))) + (uncaught-exception-reason _%exn133689%_)))) (declare (not safe)) - (raise __tmp134022)) - (let () (declare (not safe)) (raise _%exn133583%_))))) - (__tmp134020 (lambda () (thread-join! _%thread133581%_)))) + (raise __tmp134128)) + (let () (declare (not safe)) (raise _%exn133689%_))))) + (__tmp134126 (lambda () (thread-join! _%thread133687%_)))) (declare (not safe)) - (__with-catch __tmp134021 __tmp134020)))))) + (__with-catch __tmp134127 __tmp134126)))))) diff --git a/src/bootstrap/gerbil/compiler/base~1.scm b/src/bootstrap/gerbil/compiler/base~1.scm index dc0dea2a7..896547830 100644 --- a/src/bootstrap/gerbil/compiler/base~1.scm +++ b/src/bootstrap/gerbil/compiler/base~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g134032_| + (define |gxc[1]#_g134138_| (##structure gx#syntax-quote::t 'symbol-table::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134034_| + (define |gxc[1]#_g134140_| (##structure gx#syntax-quote::t 'make-symbol-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134036_| + (define |gxc[1]#_g134142_| (##structure gx#syntax-quote::t 'symbol-table? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134038_| + (define |gxc[1]#_g134144_| (##structure gx#syntax-quote::t 'symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134039_| + (define |gxc[1]#_g134145_| (##structure gx#syntax-quote::t 'symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134041_| + (define |gxc[1]#_g134147_| (##structure gx#syntax-quote::t 'symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134042_| + (define |gxc[1]#_g134148_| (##structure gx#syntax-quote::t 'symbol-table-bindings-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134044_| + (define |gxc[1]#_g134150_| (##structure gx#syntax-quote::t '&symbol-table-gensyms #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134045_| + (define |gxc[1]#_g134151_| (##structure gx#syntax-quote::t '&symbol-table-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134047_| + (define |gxc[1]#_g134153_| (##structure gx#syntax-quote::t '&symbol-table-gensyms-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g134048_| + (define |gxc[1]#_g134154_| (##structure gx#syntax-quote::t '&symbol-table-bindings-set! @@ -79,202 +79,202 @@ '())) (begin (define |gxc[:0:]#ast-case| - (lambda (_%stx133115%_) + (lambda (_%stx133221%_) (let () (declare (not safe)) (gx#macro-expand-syntax-case__% - _%stx133115%_ + _%stx133221%_ 'stx-eq? 'stx-e 'quote)))) (define |gxc[:0:]#ast-rules| - (lambda (_%stx133118%_) - (let* ((_%g133121133145%_ - (lambda (_%g133122133141%_) + (lambda (_%stx133224%_) + (let* ((_%g133227133251%_ + (lambda (_%g133228133247%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133122133141%_)))) - (_%g133120133448%_ - (lambda (_%g133122133149%_) + _%g133228133247%_)))) + (_%g133226133554%_ + (lambda (_%g133228133255%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133122133149%_)) - (let ((_%e133125133152%_ + (gx#stx-pair? _%g133228133255%_)) + (let ((_%e133231133258%_ (let () (declare (not safe)) - (gx#syntax-e _%g133122133149%_)))) - (let ((_%hd133126133156%_ + (gx#syntax-e _%g133228133255%_)))) + (let ((_%hd133232133262%_ (let () (declare (not safe)) - (##car _%e133125133152%_))) - (_%tl133127133159%_ + (##car _%e133231133258%_))) + (_%tl133233133265%_ (let () (declare (not safe)) - (##cdr _%e133125133152%_)))) + (##cdr _%e133231133258%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133127133159%_)) - (let ((_%e133128133162%_ + (gx#stx-pair? _%tl133233133265%_)) + (let ((_%e133234133268%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133127133159%_)))) - (let ((_%hd133129133166%_ + (gx#syntax-e _%tl133233133265%_)))) + (let ((_%hd133235133272%_ (let () (declare (not safe)) - (##car _%e133128133162%_))) - (_%tl133130133169%_ + (##car _%e133234133268%_))) + (_%tl133236133275%_ (let () (declare (not safe)) - (##cdr _%e133128133162%_)))) + (##cdr _%e133234133268%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl133130133169%_)) - (let ((_g134023_ + (gx#stx-pair/null? _%tl133236133275%_)) + (let ((_g134129_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl133130133169%_ + _%tl133236133275%_ '0)))) (begin - (let ((_g134024_ + (let ((_g134130_ (let () (declare (not safe)) - (if (##values? _g134023_) - (##vector-length - _g134023_) + (if (##values? _g134129_) + (##values-length + _g134129_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g134024_ 2))) + (##fx= _g134130_ 2))) (error "Context expects 2 values" - _g134024_))) - (let ((_%target133131133172%_ + _g134130_))) + (let ((_%target133237133278%_ (let () (declare (not safe)) - (##vector-ref _g134023_ 0))) - (_%tl133133133175%_ + (##values-ref _g134129_ 0))) + (_%tl133239133281%_ (let () (declare (not safe)) - (##vector-ref - _g134023_ + (##values-ref + _g134129_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133133133175%_)) - (letrec ((_%loop133134133178%_ - (lambda (_%hd133132133182%_ + _%tl133239133281%_)) + (letrec ((_%loop133240133284%_ + (lambda (_%hd133238133288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause133138133185%_) + _%clause133244133291%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133132133182%_)) - (let ((_%e133135133188%_ + (gx#stx-pair? _%hd133238133288%_)) + (let ((_%e133241133294%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133132133182%_)))) - (let ((_%lp-hd133136133192%_ + (gx#syntax-e _%hd133238133288%_)))) + (let ((_%lp-hd133242133298%_ (let () (declare (not safe)) - (##car _%e133135133188%_))) - (_%lp-tl133137133195%_ + (##car _%e133241133294%_))) + (_%lp-tl133243133301%_ (let () (declare (not safe)) - (##cdr _%e133135133188%_)))) - (_%loop133134133178%_ - _%lp-tl133137133195%_ - (cons _%lp-hd133136133192%_ - _%clause133138133185%_)))) - (let ((_%clause133139133198%_ - (reverse _%clause133138133185%_))) - ((lambda (_%L133202%_ _%L133204%_) + (##cdr _%e133241133294%_)))) + (_%loop133240133284%_ + _%lp-tl133243133301%_ + (cons _%lp-hd133242133298%_ + _%clause133244133291%_)))) + (let ((_%clause133245133304%_ + (reverse _%clause133244133291%_))) + ((lambda (_%L133308%_ _%L133310%_) (if (let () (declare (not safe)) - (gx#identifier-list? _%L133204%_)) - (let* ((_%g133223133240%_ - (lambda (_%g133224133236%_) + (gx#identifier-list? _%L133310%_)) + (let* ((_%g133329133346%_ + (lambda (_%g133330133342%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133224133236%_)))) - (_%g133222133301%_ - (lambda (_%g133224133244%_) + _%g133330133342%_)))) + (_%g133328133407%_ + (lambda (_%g133330133350%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g133224133244%_)) - (let ((_g134025_ + _%g133330133350%_)) + (let ((_g134131_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g133224133244%_ + _%g133330133350%_ '0)))) (begin - (let ((_g134026_ + (let ((_g134132_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g134025_) - (##vector-length _g134025_) + _g134131_) + (##values-length _g134131_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g134026_ 2))) - (error "Context expects 2 values" _g134026_))) + (##fx= _g134132_ 2))) + (error "Context expects 2 values" _g134132_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target133226133247%_ + (let ((_%target133332133353%_ (let () (declare (not safe)) - (##vector-ref - _g134025_ + (##values-ref + _g134131_ 0))) - (_%tl133228133250%_ + (_%tl133334133356%_ (let () (declare (not safe)) - (##vector-ref - _g134025_ + (##values-ref + _g134131_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl133228133250%_)) - (letrec ((_%loop133229133253%_ + _%tl133334133356%_)) + (letrec ((_%loop133335133359%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd133227133257%_ _%clause133233133260%_) + (lambda (_%hd133333133363%_ _%clause133339133366%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd133227133257%_)) - (let ((_%e133230133263%_ + (gx#stx-pair? _%hd133333133363%_)) + (let ((_%e133336133369%_ (let () (declare (not safe)) - (gx#syntax-e _%hd133227133257%_)))) - (let ((_%lp-hd133231133267%_ + (gx#syntax-e _%hd133333133363%_)))) + (let ((_%lp-hd133337133373%_ (let () (declare (not safe)) - (##car _%e133230133263%_))) - (_%lp-tl133232133270%_ + (##car _%e133336133369%_))) + (_%lp-tl133338133376%_ (let () (declare (not safe)) - (##cdr _%e133230133263%_)))) - (_%loop133229133253%_ - _%lp-tl133232133270%_ - (cons _%lp-hd133231133267%_ - _%clause133233133260%_)))) - (let ((_%clause133234133273%_ - (reverse _%clause133233133260%_))) - ((lambda (_%L133277%_) + (##cdr _%e133336133369%_)))) + (_%loop133335133359%_ + _%lp-tl133338133376%_ + (cons _%lp-hd133337133373%_ + _%clause133339133366%_)))) + (let ((_%clause133340133379%_ + (reverse _%clause133339133366%_))) + ((lambda (_%L133383%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -294,159 +294,159 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '$stx)) - (cons _%L133204%_ - (let ((__tmp134027 - (lambda (_%g133292133295%_ - _%g133293133298%_) - (cons _%g133292133295%_ - _%g133293133298%_)))) + (cons _%L133310%_ + (let ((__tmp134133 + (lambda (_%g133398133401%_ + _%g133399133404%_) + (cons _%g133398133401%_ + _%g133399133404%_)))) (declare (not safe)) - (__foldr1 __tmp134027 '() _%L133277%_))))) + (__foldr1 __tmp134133 '() _%L133383%_))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause133234133273%_)))))) - (_%loop133229133253%_ _%target133226133247%_ '())) - (_%g133223133240%_ _%g133224133244%_))))) + _%clause133340133379%_)))))) + (_%loop133335133359%_ _%target133332133353%_ '())) + (_%g133329133346%_ _%g133330133350%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g133223133240%_ - _%g133224133244%_))))) - (_%g133222133301%_ - (let ((__tmp134030 - (lambda (_%clause133305%_) - (let* ((_%__stx133943133944%_ - _%clause133305%_) - (_%g133309133336%_ + (_%g133329133346%_ + _%g133330133350%_))))) + (_%g133328133407%_ + (let ((__tmp134136 + (lambda (_%clause133411%_) + (let* ((_%__stx134049134050%_ + _%clause133411%_) + (_%g133415133442%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx133943133944%_))))) - (let ((_%__kont133946133947%_ - (lambda (_%L133421%_ - _%L133423%_) - (cons _%L133423%_ + _%__stx134049134050%_))))) + (let ((_%__kont134052134053%_ + (lambda (_%L133527%_ + _%L133529%_) + (cons _%L133529%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133421%_ '())) + (cons _%L133527%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont133948133949%_ - (lambda (_%L133373%_ - _%L133375%_ - _%L133376%_) - (cons _%L133376%_ - (cons _%L133375%_ + (_%__kont134054134055%_ + (lambda (_%L133479%_ + _%L133481%_ + _%L133482%_) + (cons _%L133482%_ + (cons _%L133481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'syntax)) - (cons _%L133373%_ '())) + (cons _%L133479%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx133943133944%_)) - (let ((_%e133313133401%_ + _%__stx134049134050%_)) + (let ((_%e133419133507%_ (let () (declare (not safe)) (gx#syntax-e - _%__stx133943133944%_)))) - (let ((_%tl133315133408%_ + _%__stx134049134050%_)))) + (let ((_%tl133421133514%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e133313133401%_))) - (_%hd133314133405%_ - (let () (declare (not safe)) (##car _%e133313133401%_)))) + (##cdr _%e133419133507%_))) + (_%hd133420133511%_ + (let () (declare (not safe)) (##car _%e133419133507%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133315133408%_)) - (let ((_%e133316133411%_ + (gx#stx-pair? _%tl133421133514%_)) + (let ((_%e133422133517%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133315133408%_)))) - (let ((_%tl133318133418%_ + (gx#syntax-e _%tl133421133514%_)))) + (let ((_%tl133424133524%_ (let () (declare (not safe)) - (##cdr _%e133316133411%_))) - (_%hd133317133415%_ + (##cdr _%e133422133517%_))) + (_%hd133423133521%_ (let () (declare (not safe)) - (##car _%e133316133411%_)))) + (##car _%e133422133517%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133318133418%_)) - (_%__kont133946133947%_ - _%hd133317133415%_ - _%hd133314133405%_) + (gx#stx-null? _%tl133424133524%_)) + (_%__kont134052134053%_ + _%hd133423133521%_ + _%hd133420133511%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133318133418%_)) - (let ((_%e133328133363%_ + (gx#stx-pair? _%tl133424133524%_)) + (let ((_%e133434133469%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133318133418%_)))) - (let ((_%tl133330133370%_ + (gx#syntax-e _%tl133424133524%_)))) + (let ((_%tl133436133476%_ (let () (declare (not safe)) - (##cdr _%e133328133363%_))) - (_%hd133329133367%_ + (##cdr _%e133434133469%_))) + (_%hd133435133473%_ (let () (declare (not safe)) - (##car _%e133328133363%_)))) + (##car _%e133434133469%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133330133370%_)) - (_%__kont133948133949%_ - _%hd133329133367%_ - _%hd133317133415%_ - _%hd133314133405%_) + (gx#stx-null? _%tl133436133476%_)) + (_%__kont134054134055%_ + _%hd133435133473%_ + _%hd133423133521%_ + _%hd133420133511%_) (let () (declare (not safe)) - (_%g133309133336%_))))) + (_%g133415133442%_))))) (let () (declare (not safe)) - (_%g133309133336%_)))))) - (let () (declare (not safe)) (_%g133309133336%_))))) + (_%g133415133442%_)))))) + (let () (declare (not safe)) (_%g133415133442%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g133309133336%_))))))) - (__tmp134028 - (let ((__tmp134029 - (lambda (_%g133439133442%_ - _%g133440133445%_) - (cons _%g133439133442%_ - _%g133440133445%_)))) + (_%g133415133442%_))))))) + (__tmp134134 + (let ((__tmp134135 + (lambda (_%g133545133548%_ + _%g133546133551%_) + (cons _%g133545133548%_ + _%g133546133551%_)))) (declare (not safe)) (__foldr1 - __tmp134029 + __tmp134135 '() - _%L133202%_)))) + _%L133308%_)))) (declare (not safe)) - (gx#stx-map1 __tmp134030 __tmp134028)))) - (_%g133121133145%_ _%g133122133149%_))) - _%clause133139133198%_ - _%hd133129133166%_)))))) + (gx#stx-map1 __tmp134136 __tmp134134)))) + (_%g133227133251%_ _%g133228133255%_))) + _%clause133245133304%_ + _%hd133235133272%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop133134133178%_ - _%target133131133172%_ + (_%loop133240133284%_ + _%target133237133278%_ '())) - (_%g133121133145%_ - _%g133122133149%_))))) - (_%g133121133145%_ _%g133122133149%_)))) - (_%g133121133145%_ _%g133122133149%_)))) - (_%g133121133145%_ _%g133122133149%_))))) - (_%g133120133448%_ _%stx133118%_)))) + (_%g133227133251%_ + _%g133228133255%_))))) + (_%g133227133251%_ _%g133228133255%_)))) + (_%g133227133251%_ _%g133228133255%_)))) + (_%g133227133251%_ _%g133228133255%_))))) + (_%g133226133554%_ _%stx133224%_)))) (define |gxc[:0:]#symbol-table| - (let ((__obj133993 + (let ((__obj134099 (let () (declare (not safe)) (##structure @@ -475,18 +475,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133993 + __obj134099 'gxc#symbol-table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 'symbol-table '2 '#f '#f)) + (##unchecked-structure-set! __obj134099 'symbol-table '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj133993 + __obj134099 '(gensyms bindings) '4 '#f @@ -494,111 +494,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj133993 + __obj134099 '(gensyms bindings) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj134099 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj134099 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj134099 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj134099 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 ':init! '11 '#f '#f)) - (let ((__tmp134031 |gxc[1]#_g134032_|)) + (##unchecked-structure-set! __obj134099 ':init! '11 '#f '#f)) + (let ((__tmp134137 |gxc[1]#_g134138_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134031 '12 '#f '#f)) - (let ((__tmp134033 |gxc[1]#_g134034_|)) + (##unchecked-structure-set! __obj134099 __tmp134137 '12 '#f '#f)) + (let ((__tmp134139 |gxc[1]#_g134140_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134033 '13 '#f '#f)) - (let ((__tmp134035 |gxc[1]#_g134036_|)) + (##unchecked-structure-set! __obj134099 __tmp134139 '13 '#f '#f)) + (let ((__tmp134141 |gxc[1]#_g134142_|)) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134035 '14 '#f '#f)) - (let ((__tmp134037 - (cons (cons 'gensyms |gxc[1]#_g134038_|) - (cons (cons 'bindings |gxc[1]#_g134039_|) '())))) + (##unchecked-structure-set! __obj134099 __tmp134141 '14 '#f '#f)) + (let ((__tmp134143 + (cons (cons 'gensyms |gxc[1]#_g134144_|) + (cons (cons 'bindings |gxc[1]#_g134145_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134037 '15 '#f '#f)) - (let ((__tmp134040 - (cons (cons 'gensyms |gxc[1]#_g134041_|) - (cons (cons 'bindings |gxc[1]#_g134042_|) '())))) + (##unchecked-structure-set! __obj134099 __tmp134143 '15 '#f '#f)) + (let ((__tmp134146 + (cons (cons 'gensyms |gxc[1]#_g134147_|) + (cons (cons 'bindings |gxc[1]#_g134148_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134040 '16 '#f '#f)) - (let ((__tmp134043 - (cons (cons 'gensyms |gxc[1]#_g134044_|) - (cons (cons 'bindings |gxc[1]#_g134045_|) '())))) + (##unchecked-structure-set! __obj134099 __tmp134146 '16 '#f '#f)) + (let ((__tmp134149 + (cons (cons 'gensyms |gxc[1]#_g134150_|) + (cons (cons 'bindings |gxc[1]#_g134151_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134043 '17 '#f '#f)) - (let ((__tmp134046 - (cons (cons 'gensyms |gxc[1]#_g134047_|) - (cons (cons 'bindings |gxc[1]#_g134048_|) '())))) + (##unchecked-structure-set! __obj134099 __tmp134149 '17 '#f '#f)) + (let ((__tmp134152 + (cons (cons 'gensyms |gxc[1]#_g134153_|) + (cons (cons 'bindings |gxc[1]#_g134154_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj133993 __tmp134046 '18 '#f '#f)) + (##unchecked-structure-set! __obj134099 __tmp134152 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj134099 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj134099 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj133993 '() '20 '#f '#f)) - __obj133993)) + (##unchecked-structure-set! __obj134099 '() '20 '#f '#f)) + __obj134099)) (define |gxc[:0:]#with-verbose-mutex| - (lambda (_%$stx133455%_) - (let* ((_%g133459133473%_ - (lambda (_%g133460133469%_) + (lambda (_%$stx133561%_) + (let* ((_%g133565133579%_ + (lambda (_%g133566133575%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133460133469%_)))) - (_%g133458133514%_ - (lambda (_%g133460133477%_) + _%g133566133575%_)))) + (_%g133564133620%_ + (lambda (_%g133566133583%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133460133477%_)) - (let ((_%e133462133480%_ + (gx#stx-pair? _%g133566133583%_)) + (let ((_%e133568133586%_ (let () (declare (not safe)) - (gx#syntax-e _%g133460133477%_)))) - (let ((_%hd133463133484%_ + (gx#syntax-e _%g133566133583%_)))) + (let ((_%hd133569133590%_ (let () (declare (not safe)) - (##car _%e133462133480%_))) - (_%tl133464133487%_ + (##car _%e133568133586%_))) + (_%tl133570133593%_ (let () (declare (not safe)) - (##cdr _%e133462133480%_)))) + (##cdr _%e133568133586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133464133487%_)) - (let ((_%e133465133490%_ + (gx#stx-pair? _%tl133570133593%_)) + (let ((_%e133571133596%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133464133487%_)))) - (let ((_%hd133466133494%_ + (gx#syntax-e _%tl133570133593%_)))) + (let ((_%hd133572133600%_ (let () (declare (not safe)) - (##car _%e133465133490%_))) - (_%tl133467133497%_ + (##car _%e133571133596%_))) + (_%tl133573133603%_ (let () (declare (not safe)) - (##cdr _%e133465133490%_)))) + (##cdr _%e133571133596%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133467133497%_)) - ((lambda (_%L133500%_) + (gx#stx-null? _%tl133573133603%_)) + ((lambda (_%L133606%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -613,60 +613,60 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L133500%_ '()))) + (cons '() (cons _%L133606%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd133466133494%_) - (_%g133459133473%_ _%g133460133477%_)))) - (_%g133459133473%_ _%g133460133477%_)))) - (_%g133459133473%_ _%g133460133477%_))))) - (_%g133458133514%_ _%$stx133455%_)))) + _%hd133572133600%_) + (_%g133565133579%_ _%g133566133583%_)))) + (_%g133565133579%_ _%g133566133583%_)))) + (_%g133565133579%_ _%g133566133583%_))))) + (_%g133564133620%_ _%$stx133561%_)))) (define |gxc[:0:]#go!| - (lambda (_%$stx133518%_) - (let* ((_%g133522133536%_ - (lambda (_%g133523133532%_) + (lambda (_%$stx133624%_) + (let* ((_%g133628133642%_ + (lambda (_%g133629133638%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g133523133532%_)))) - (_%g133521133577%_ - (lambda (_%g133523133540%_) + _%g133629133638%_)))) + (_%g133627133683%_ + (lambda (_%g133629133646%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g133523133540%_)) - (let ((_%e133525133543%_ + (gx#stx-pair? _%g133629133646%_)) + (let ((_%e133631133649%_ (let () (declare (not safe)) - (gx#syntax-e _%g133523133540%_)))) - (let ((_%hd133526133547%_ + (gx#syntax-e _%g133629133646%_)))) + (let ((_%hd133632133653%_ (let () (declare (not safe)) - (##car _%e133525133543%_))) - (_%tl133527133550%_ + (##car _%e133631133649%_))) + (_%tl133633133656%_ (let () (declare (not safe)) - (##cdr _%e133525133543%_)))) + (##cdr _%e133631133649%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl133527133550%_)) - (let ((_%e133528133553%_ + (gx#stx-pair? _%tl133633133656%_)) + (let ((_%e133634133659%_ (let () (declare (not safe)) - (gx#syntax-e _%tl133527133550%_)))) - (let ((_%hd133529133557%_ + (gx#syntax-e _%tl133633133656%_)))) + (let ((_%hd133635133663%_ (let () (declare (not safe)) - (##car _%e133528133553%_))) - (_%tl133530133560%_ + (##car _%e133634133659%_))) + (_%tl133636133666%_ (let () (declare (not safe)) - (##cdr _%e133528133553%_)))) + (##cdr _%e133634133659%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl133530133560%_)) - ((lambda (_%L133563%_) + (gx#stx-null? _%tl133636133666%_)) + ((lambda (_%L133669%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -680,11 +680,11 @@ 'lambda)) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L133563%_ '()))) + (cons _%L133669%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd133529133557%_) - (_%g133522133536%_ _%g133523133540%_)))) - (_%g133522133536%_ _%g133523133540%_)))) - (_%g133522133536%_ _%g133523133540%_))))) - (_%g133521133577%_ _%$stx133518%_)))))) + _%hd133635133663%_) + (_%g133628133642%_ _%g133629133646%_)))) + (_%g133628133642%_ _%g133629133646%_)))) + (_%g133628133642%_ _%g133629133646%_))))) + (_%g133627133683%_ _%$stx133624%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~0.scm b/src/bootstrap/gerbil/compiler/compile~0.scm index 82d1de97e..89676e0d8 100644 --- a/src/bootstrap/gerbil/compiler/compile~0.scm +++ b/src/bootstrap/gerbil/compiler/compile~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/compile::timestamp 1733870075) + (define gerbil/compiler/compile::timestamp 1734131748) (begin (define gxc#gambit-annotations '(not gambit-scheme @@ -46,10 +46,10 @@ (define gxc#current-compile-boolean-context (make-parameter '#f)) (define gxc#make-bound-identifier-table (lambda () - (letrec ((_%hash-e147665%_ - (lambda (_%id147667%_) + (letrec ((_%hash-e147771%_ + (lambda (_%id147773%_) (symbol-hash - (let () (declare (not safe)) (gx#stx-e _%id147667%_)))))) + (let () (declare (not safe)) (gx#stx-e _%id147773%_)))))) (let () (declare (not safe)) (make-hash-table__% @@ -57,31 +57,31 @@ absent-value absent-value gx#bound-identifier=? - _%hash-e147665%_ + _%hash-e147771%_ absent-value absent-value absent-value absent-value))))) (define gxc#::collect-bindings::t - (let ((__tmp149052 (list gxc#::void::t)) - (__tmp149051 (cons (cons 'final: '#t) '()))) + (let ((__tmp149158 (list gxc#::void::t)) + (__tmp149157 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-bindings::t '::collect-bindings - __tmp149052 + __tmp149158 '() - __tmp149051 + __tmp149157 '#f))) (define gxc#::collect-bindings? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-bindings::t))) (define gxc#make-::collect-bindings - (lambda _%$args147661%_ - (apply make-instance gxc#::collect-bindings::t _%$args147661%_))) + (lambda _%$args147767%_ + (apply make-instance gxc#::collect-bindings::t _%$args147767%_))) (define gxc#::collect-bindings-bind-methods! - (let ((__tmp149053 + (let ((__tmp149159 (lambda () (force gxc#::void-bind-methods!) (let () @@ -118,44 +118,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-bindings::t))))) (declare (not safe)) - (__make-promise __tmp149053))) + (__make-promise __tmp149159))) (define gxc#apply-collect-bindings - (lambda (_%stx147653%_) + (lambda (_%stx147759%_) (force gxc#::collect-bindings-bind-methods!) - (let* ((_%self147656%_ - (let ((__obj149027 + (let* ((_%self147762%_ + (let ((__obj149133 (let () (declare (not safe)) (##structure gxc#::collect-bindings::t)))) - __obj149027)) - (__tmp149054 + __obj149133)) + (__tmp149160 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147656%_ _%stx147653%_))))) + (gxc#compile-e__1 _%self147762%_ _%stx147759%_))))) (declare (not safe)) (__call-with-parameters - __tmp149054 + __tmp149160 gxc#current-compile-method - _%self147656%_)))) + _%self147762%_)))) (define gxc#::lift-modules::t - (let ((__tmp149056 (list gxc#::void::t)) - (__tmp149055 (cons (cons 'final: '#t) '()))) + (let ((__tmp149162 (list gxc#::void::t)) + (__tmp149161 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-modules::t '::lift-modules - __tmp149056 + __tmp149162 '(modules) - __tmp149055 + __tmp149161 '#f))) (define gxc#::lift-modules? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-modules::t))) (define gxc#make-::lift-modules - (lambda _%$args147650%_ - (apply make-instance gxc#::lift-modules::t _%$args147650%_))) + (lambda _%$args147756%_ + (apply make-instance gxc#::lift-modules::t _%$args147756%_))) (define gxc#::lift-modules-modules (let () (declare (not safe)) @@ -173,7 +173,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::lift-modules::t 'modules))) (define gxc#::lift-modules-bind-methods! - (let ((__tmp149057 + (let ((__tmp149163 (lambda () (force gxc#::void-bind-methods!) (let () @@ -192,76 +192,76 @@ (declare (not safe)) (__seal-class! gxc#::lift-modules::t))))) (declare (not safe)) - (__make-promise __tmp149057))) + (__make-promise __tmp149163))) (define gxc#apply-lift-modules__% - (lambda (_%@@keywords147624%_ _%modules147621147625%_ _%stx147627%_) - (let ((_%modules147630%_ - (if (eq? _%modules147621147625%_ absent-value) + (lambda (_%@@keywords147730%_ _%modules147727147731%_ _%stx147733%_) + (let ((_%modules147736%_ + (if (eq? _%modules147727147731%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'modules:)) - _%modules147621147625%_))) + _%modules147727147731%_))) (force gxc#::lift-modules-bind-methods!) - (let* ((_%self147632%_ - (let ((__obj149029 + (let* ((_%self147738%_ + (let ((__obj149135 (let () (declare (not safe)) (##structure gxc#::lift-modules::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149029 - _%modules147630%_ + __obj149135 + _%modules147736%_ '1 '#f '#f)) - __obj149029)) - (__tmp149058 + __obj149135)) + (__tmp149164 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147632%_ _%stx147627%_))))) + (gxc#compile-e__1 _%self147738%_ _%stx147733%_))))) (declare (not safe)) (__call-with-parameters - __tmp149058 + __tmp149164 gxc#current-compile-method - _%self147632%_))))) + _%self147738%_))))) (define gxc#apply-lift-modules__@ - (lambda (_%@@keywords147639%_ . _%args147640%_) + (lambda (_%@@keywords147745%_ . _%args147746%_) (apply gxc#apply-lift-modules__% - _%@@keywords147639%_ + _%@@keywords147745%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147639%_ + _%@@keywords147745%_ 'modules: absent-value)) - _%args147640%_))) + _%args147746%_))) (define gxc#apply-lift-modules - (lambda _%args147622147646%_ + (lambda _%args147728147752%_ (apply keyword-dispatch '#(modules:) gxc#apply-lift-modules__@ - _%args147622147646%_))) + _%args147728147752%_))) (define gxc#::find-runtime-code::t - (let ((__tmp149060 (list)) (__tmp149059 (cons (cons 'final: '#t) '()))) + (let ((__tmp149166 (list)) (__tmp149165 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-runtime-code::t '::find-runtime-code - __tmp149060 + __tmp149166 '() - __tmp149059 + __tmp149165 '#f))) (define gxc#::find-runtime-code? (let () (declare (not safe)) (__make-class-predicate gxc#::find-runtime-code::t))) (define gxc#make-::find-runtime-code - (lambda _%$args147617%_ - (apply make-instance gxc#::find-runtime-code::t _%$args147617%_))) + (lambda _%$args147723%_ + (apply make-instance gxc#::find-runtime-code::t _%$args147723%_))) (define gxc#::find-runtime-code-bind-methods! - (let ((__tmp149061 + (let ((__tmp149167 (lambda () (let () (declare (not safe)) @@ -459,46 +459,46 @@ (declare (not safe)) (__seal-class! gxc#::find-runtime-code::t))))) (declare (not safe)) - (__make-promise __tmp149061))) + (__make-promise __tmp149167))) (define gxc#apply-find-runtime-code - (lambda (_%stx147609%_) + (lambda (_%stx147715%_) (force gxc#::find-runtime-code-bind-methods!) - (let* ((_%self147612%_ - (let ((__obj149031 + (let* ((_%self147718%_ + (let ((__obj149137 (let () (declare (not safe)) (##structure gxc#::find-runtime-code::t)))) - __obj149031)) - (__tmp149062 + __obj149137)) + (__tmp149168 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147612%_ _%stx147609%_))))) + (gxc#compile-e__1 _%self147718%_ _%stx147715%_))))) (declare (not safe)) (__call-with-parameters - __tmp149062 + __tmp149168 gxc#current-compile-method - _%self147612%_)))) + _%self147718%_)))) (define gxc#::find-lambda-expression::t - (let ((__tmp149064 (list gxc#::false::t)) - (__tmp149063 (cons (cons 'final: '#t) '()))) + (let ((__tmp149170 (list gxc#::false::t)) + (__tmp149169 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-lambda-expression::t '::find-lambda-expression - __tmp149064 + __tmp149170 '() - __tmp149063 + __tmp149169 '#f))) (define gxc#::find-lambda-expression? (let () (declare (not safe)) (__make-class-predicate gxc#::find-lambda-expression::t))) (define gxc#make-::find-lambda-expression - (lambda _%$args147606%_ - (apply make-instance gxc#::find-lambda-expression::t _%$args147606%_))) + (lambda _%$args147712%_ + (apply make-instance gxc#::find-lambda-expression::t _%$args147712%_))) (define gxc#::find-lambda-expression-bind-methods! - (let ((__tmp149065 + (let ((__tmp149171 (lambda () (force gxc#::false-bind-methods!) (let () @@ -547,46 +547,46 @@ (declare (not safe)) (__seal-class! gxc#::find-lambda-expression::t))))) (declare (not safe)) - (__make-promise __tmp149065))) + (__make-promise __tmp149171))) (define gxc#apply-find-lambda-expression - (lambda (_%stx147598%_) + (lambda (_%stx147704%_) (force gxc#::find-lambda-expression-bind-methods!) - (let* ((_%self147601%_ - (let ((__obj149033 + (let* ((_%self147707%_ + (let ((__obj149139 (let () (declare (not safe)) (##structure gxc#::find-lambda-expression::t)))) - __obj149033)) - (__tmp149066 + __obj149139)) + (__tmp149172 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147601%_ _%stx147598%_))))) + (gxc#compile-e__1 _%self147707%_ _%stx147704%_))))) (declare (not safe)) (__call-with-parameters - __tmp149066 + __tmp149172 gxc#current-compile-method - _%self147601%_)))) + _%self147707%_)))) (define gxc#::count-values::t - (let ((__tmp149068 (list gxc#::false-expression::t)) - (__tmp149067 (cons (cons 'final: '#t) '()))) + (let ((__tmp149174 (list gxc#::false-expression::t)) + (__tmp149173 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::count-values::t '::count-values - __tmp149068 + __tmp149174 '() - __tmp149067 + __tmp149173 '#f))) (define gxc#::count-values? (let () (declare (not safe)) (__make-class-predicate gxc#::count-values::t))) (define gxc#make-::count-values - (lambda _%$args147595%_ - (apply make-instance gxc#::count-values::t _%$args147595%_))) + (lambda _%$args147701%_ + (apply make-instance gxc#::count-values::t _%$args147701%_))) (define gxc#::count-values-bind-methods! - (let ((__tmp149069 + (let ((__tmp149175 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -659,33 +659,33 @@ (declare (not safe)) (__seal-class! gxc#::count-values::t))))) (declare (not safe)) - (__make-promise __tmp149069))) + (__make-promise __tmp149175))) (define gxc#apply-count-values - (lambda (_%stx147587%_) + (lambda (_%stx147693%_) (force gxc#::count-values-bind-methods!) - (let* ((_%self147590%_ - (let ((__obj149035 + (let* ((_%self147696%_ + (let ((__obj149141 (let () (declare (not safe)) (##structure gxc#::count-values::t)))) - __obj149035)) - (__tmp149070 + __obj149141)) + (__tmp149176 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147590%_ _%stx147587%_))))) + (gxc#compile-e__1 _%self147696%_ _%stx147693%_))))) (declare (not safe)) (__call-with-parameters - __tmp149070 + __tmp149176 gxc#current-compile-method - _%self147590%_)))) + _%self147696%_)))) (define gxc#::generate-runtime-empty::t - (let ((__tmp149071 (list))) + (let ((__tmp149177 (list))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-empty::t '::generate-runtime-empty - __tmp149071 + __tmp149177 '() '() '#f))) @@ -694,10 +694,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-empty::t))) (define gxc#make-::generate-runtime-empty - (lambda _%$args147584%_ - (apply make-instance gxc#::generate-runtime-empty::t _%$args147584%_))) + (lambda _%$args147690%_ + (apply make-instance gxc#::generate-runtime-empty::t _%$args147690%_))) (define gxc#::generate-runtime-empty-bind-methods! - (let ((__tmp149072 + (let ((__tmp149178 (lambda () (let () (declare (not safe)) @@ -892,27 +892,27 @@ '%#struct-unchecked-set! gxc#generate-runtime-empty))))) (declare (not safe)) - (__make-promise __tmp149072))) + (__make-promise __tmp149178))) (define gxc#::generate-loader::t - (let ((__tmp149074 (list gxc#::generate-runtime-empty::t)) - (__tmp149073 (cons (cons 'final: '#t) '()))) + (let ((__tmp149180 (list gxc#::generate-runtime-empty::t)) + (__tmp149179 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-loader::t '::generate-loader - __tmp149074 + __tmp149180 '() - __tmp149073 + __tmp149179 '#f))) (define gxc#::generate-loader? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-loader::t))) (define gxc#make-::generate-loader - (lambda _%$args147580%_ - (apply make-instance gxc#::generate-loader::t _%$args147580%_))) + (lambda _%$args147686%_ + (apply make-instance gxc#::generate-loader::t _%$args147686%_))) (define gxc#::generate-loader-bind-methods! - (let ((__tmp149075 + (let ((__tmp149181 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -931,33 +931,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-loader::t))))) (declare (not safe)) - (__make-promise __tmp149075))) + (__make-promise __tmp149181))) (define gxc#apply-generate-loader - (lambda (_%stx147572%_) + (lambda (_%stx147678%_) (force gxc#::generate-loader-bind-methods!) - (let* ((_%self147575%_ - (let ((__obj149038 + (let* ((_%self147681%_ + (let ((__obj149144 (let () (declare (not safe)) (##structure gxc#::generate-loader::t)))) - __obj149038)) - (__tmp149076 + __obj149144)) + (__tmp149182 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147575%_ _%stx147572%_))))) + (gxc#compile-e__1 _%self147681%_ _%stx147678%_))))) (declare (not safe)) (__call-with-parameters - __tmp149076 + __tmp149182 gxc#current-compile-method - _%self147575%_)))) + _%self147681%_)))) (define gxc#::generate-runtime::t - (let ((__tmp149077 (list gxc#::generate-runtime-empty::t))) + (let ((__tmp149183 (list gxc#::generate-runtime-empty::t))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime::t '::generate-runtime - __tmp149077 + __tmp149183 '() '() '#f))) @@ -966,10 +966,10 @@ (declare (not safe)) (__make-class-predicate gxc#::generate-runtime::t))) (define gxc#make-::generate-runtime - (lambda _%$args147569%_ - (apply make-instance gxc#::generate-runtime::t _%$args147569%_))) + (lambda _%$args147675%_ + (apply make-instance gxc#::generate-runtime::t _%$args147675%_))) (define gxc#::generate-runtime-bind-methods! - (let ((__tmp149078 + (let ((__tmp149184 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -1123,46 +1123,46 @@ '%#struct-unchecked-set! gxc#generate-runtime-struct-unchecked-setq%))))) (declare (not safe)) - (__make-promise __tmp149078))) + (__make-promise __tmp149184))) (define gxc#apply-generate-runtime - (lambda (_%stx147561%_) + (lambda (_%stx147667%_) (force gxc#::generate-runtime-bind-methods!) - (let* ((_%self147564%_ - (let ((__obj149040 + (let* ((_%self147670%_ + (let ((__obj149146 (let () (declare (not safe)) (##structure gxc#::generate-runtime::t)))) - __obj149040)) - (__tmp149079 + __obj149146)) + (__tmp149185 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147564%_ _%stx147561%_))))) + (gxc#compile-e__1 _%self147670%_ _%stx147667%_))))) (declare (not safe)) (__call-with-parameters - __tmp149079 + __tmp149185 gxc#current-compile-method - _%self147564%_)))) + _%self147670%_)))) (define gxc#::generate-runtime-phi::t - (let ((__tmp149081 (list gxc#::generate-runtime::t)) - (__tmp149080 (cons (cons 'final: '#t) '()))) + (let ((__tmp149187 (list gxc#::generate-runtime::t)) + (__tmp149186 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-phi::t '::generate-runtime-phi - __tmp149081 + __tmp149187 '() - __tmp149080 + __tmp149186 '#f))) (define gxc#::generate-runtime-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-phi::t))) (define gxc#make-::generate-runtime-phi - (lambda _%$args147558%_ - (apply make-instance gxc#::generate-runtime-phi::t _%$args147558%_))) + (lambda _%$args147664%_ + (apply make-instance gxc#::generate-runtime-phi::t _%$args147664%_))) (define gxc#::generate-runtime-phi-bind-methods! - (let ((__tmp149082 + (let ((__tmp149188 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -1175,33 +1175,33 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-phi::t))))) (declare (not safe)) - (__make-promise __tmp149082))) + (__make-promise __tmp149188))) (define gxc#apply-generate-runtime-phi - (lambda (_%stx147550%_) + (lambda (_%stx147656%_) (force gxc#::generate-runtime-phi-bind-methods!) - (let* ((_%self147553%_ - (let ((__obj149042 + (let* ((_%self147659%_ + (let ((__obj149148 (let () (declare (not safe)) (##structure gxc#::generate-runtime-phi::t)))) - __obj149042)) - (__tmp149083 + __obj149148)) + (__tmp149189 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147553%_ _%stx147550%_))))) + (gxc#compile-e__1 _%self147659%_ _%stx147656%_))))) (declare (not safe)) (__call-with-parameters - __tmp149083 + __tmp149189 gxc#current-compile-method - _%self147553%_)))) + _%self147659%_)))) (define gxc#::collect-expression-refs::t - (let ((__tmp149084 (list))) + (let ((__tmp149190 (list))) (declare (not safe)) (__make-class-type 'gxc#::collect-expression-refs::t '::collect-expression-refs - __tmp149084 + __tmp149190 '(table) '() '#f))) @@ -1210,10 +1210,10 @@ (declare (not safe)) (__make-class-predicate gxc#::collect-expression-refs::t))) (define gxc#make-::collect-expression-refs - (lambda _%$args147547%_ + (lambda _%$args147653%_ (apply make-instance gxc#::collect-expression-refs::t - _%$args147547%_))) + _%$args147653%_))) (define gxc#::collect-expression-refs-table (let () (declare (not safe)) @@ -1235,7 +1235,7 @@ gxc#::collect-expression-refs::t 'table))) (define gxc#::collect-expression-refs-bind-methods! - (let ((__tmp149085 + (let ((__tmp149191 (lambda () (let () (declare (not safe)) @@ -1370,18 +1370,18 @@ '%#struct-unchecked-set! gxc#apply-operands))))) (declare (not safe)) - (__make-promise __tmp149085))) + (__make-promise __tmp149191))) (define gxc#apply-collect-expression-refs__% - (lambda (_%@@keywords147521%_ _%table147518147522%_ _%stx147524%_) - (let ((_%table147527%_ - (if (eq? _%table147518147522%_ absent-value) + (lambda (_%@@keywords147627%_ _%table147624147628%_ _%stx147630%_) + (let ((_%table147633%_ + (if (eq? _%table147624147628%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table147518147522%_))) + _%table147624147628%_))) (force gxc#::collect-expression-refs-bind-methods!) - (let* ((_%self147529%_ - (let ((__obj149044 + (let* ((_%self147635%_ + (let ((__obj149150 (let () (declare (not safe)) (##structure @@ -1390,57 +1390,57 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149044 - _%table147527%_ + __obj149150 + _%table147633%_ '1 '#f '#f)) - __obj149044)) - (__tmp149086 + __obj149150)) + (__tmp149192 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147529%_ _%stx147524%_))))) + (gxc#compile-e__1 _%self147635%_ _%stx147630%_))))) (declare (not safe)) (__call-with-parameters - __tmp149086 + __tmp149192 gxc#current-compile-method - _%self147529%_))))) + _%self147635%_))))) (define gxc#apply-collect-expression-refs__@ - (lambda (_%@@keywords147536%_ . _%args147537%_) + (lambda (_%@@keywords147642%_ . _%args147643%_) (apply gxc#apply-collect-expression-refs__% - _%@@keywords147536%_ + _%@@keywords147642%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147536%_ + _%@@keywords147642%_ 'table: absent-value)) - _%args147537%_))) + _%args147643%_))) (define gxc#apply-collect-expression-refs - (lambda _%args147519147543%_ + (lambda _%args147625147649%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-expression-refs__@ - _%args147519147543%_))) + _%args147625147649%_))) (define gxc#::generate-meta::t - (let ((__tmp149088 (list gxc#::void-expression::t)) - (__tmp149087 (cons (cons 'final: '#t) '()))) + (let ((__tmp149194 (list gxc#::void-expression::t)) + (__tmp149193 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta::t '::generate-meta - __tmp149088 + __tmp149194 '(state) - __tmp149087 + __tmp149193 '#f))) (define gxc#::generate-meta? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta::t))) (define gxc#make-::generate-meta - (lambda _%$args147514%_ - (apply make-instance gxc#::generate-meta::t _%$args147514%_))) + (lambda _%$args147620%_ + (apply make-instance gxc#::generate-meta::t _%$args147620%_))) (define gxc#::generate-meta-state (let () (declare (not safe)) @@ -1458,7 +1458,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::generate-meta::t 'state))) (define gxc#::generate-meta-bind-methods! - (let ((__tmp149089 + (let ((__tmp149195 (lambda () (force gxc#::void-expression-bind-methods!) (let () @@ -1537,74 +1537,74 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta::t))))) (declare (not safe)) - (__make-promise __tmp149089))) + (__make-promise __tmp149195))) (define gxc#apply-generate-meta__% - (lambda (_%@@keywords147488%_ _%state147485147489%_ _%stx147491%_) - (let ((_%state147494%_ - (if (eq? _%state147485147489%_ absent-value) + (lambda (_%@@keywords147594%_ _%state147591147595%_ _%stx147597%_) + (let ((_%state147600%_ + (if (eq? _%state147591147595%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147485147489%_))) + _%state147591147595%_))) (force gxc#::generate-meta-bind-methods!) - (let* ((_%self147496%_ - (let ((__obj149046 + (let* ((_%self147602%_ + (let ((__obj149152 (let () (declare (not safe)) (##structure gxc#::generate-meta::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149046 - _%state147494%_ + __obj149152 + _%state147600%_ '1 '#f '#f)) - __obj149046)) - (__tmp149090 + __obj149152)) + (__tmp149196 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147496%_ _%stx147491%_))))) + (gxc#compile-e__1 _%self147602%_ _%stx147597%_))))) (declare (not safe)) (__call-with-parameters - __tmp149090 + __tmp149196 gxc#current-compile-method - _%self147496%_))))) + _%self147602%_))))) (define gxc#apply-generate-meta__@ - (lambda (_%@@keywords147503%_ . _%args147504%_) + (lambda (_%@@keywords147609%_ . _%args147610%_) (apply gxc#apply-generate-meta__% - _%@@keywords147503%_ + _%@@keywords147609%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147503%_ + _%@@keywords147609%_ 'state: absent-value)) - _%args147504%_))) + _%args147610%_))) (define gxc#apply-generate-meta - (lambda _%args147486147510%_ + (lambda _%args147592147616%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta__@ - _%args147486147510%_))) + _%args147592147616%_))) (define gxc#::generate-meta-phi::t - (let ((__tmp149092 (list)) (__tmp149091 (cons (cons 'final: '#t) '()))) + (let ((__tmp149198 (list)) (__tmp149197 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-meta-phi::t '::generate-meta-phi - __tmp149092 + __tmp149198 '(state) - __tmp149091 + __tmp149197 '#f))) (define gxc#::generate-meta-phi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-meta-phi::t))) (define gxc#make-::generate-meta-phi - (lambda _%$args147481%_ - (apply make-instance gxc#::generate-meta-phi::t _%$args147481%_))) + (lambda _%$args147587%_ + (apply make-instance gxc#::generate-meta-phi::t _%$args147587%_))) (define gxc#::generate-meta-phi-state (let () (declare (not safe)) @@ -1626,7 +1626,7 @@ gxc#::generate-meta-phi::t 'state))) (define gxc#::generate-meta-phi-bind-methods! - (let ((__tmp149093 + (let ((__tmp149199 (lambda () (let () (declare (not safe)) @@ -1794,341 +1794,341 @@ (declare (not safe)) (__seal-class! gxc#::generate-meta-phi::t))))) (declare (not safe)) - (__make-promise __tmp149093))) + (__make-promise __tmp149199))) (define gxc#apply-generate-meta-phi__% - (lambda (_%@@keywords147455%_ _%state147452147456%_ _%stx147458%_) - (let ((_%state147461%_ - (if (eq? _%state147452147456%_ absent-value) + (lambda (_%@@keywords147561%_ _%state147558147562%_ _%stx147564%_) + (let ((_%state147567%_ + (if (eq? _%state147558147562%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'state:)) - _%state147452147456%_))) + _%state147558147562%_))) (force gxc#::generate-meta-phi-bind-methods!) - (let* ((_%self147463%_ - (let ((__obj149048 + (let* ((_%self147569%_ + (let ((__obj149154 (let () (declare (not safe)) (##structure gxc#::generate-meta-phi::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149048 - _%state147461%_ + __obj149154 + _%state147567%_ '1 '#f '#f)) - __obj149048)) - (__tmp149094 + __obj149154)) + (__tmp149200 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self147463%_ _%stx147458%_))))) + (gxc#compile-e__1 _%self147569%_ _%stx147564%_))))) (declare (not safe)) (__call-with-parameters - __tmp149094 + __tmp149200 gxc#current-compile-method - _%self147463%_))))) + _%self147569%_))))) (define gxc#apply-generate-meta-phi__@ - (lambda (_%@@keywords147470%_ . _%args147471%_) + (lambda (_%@@keywords147576%_ . _%args147577%_) (apply gxc#apply-generate-meta-phi__% - _%@@keywords147470%_ + _%@@keywords147576%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords147470%_ + _%@@keywords147576%_ 'state: absent-value)) - _%args147471%_))) + _%args147577%_))) (define gxc#apply-generate-meta-phi - (lambda _%args147453147477%_ + (lambda _%args147559147583%_ (apply keyword-dispatch '#(state:) gxc#apply-generate-meta-phi__@ - _%args147453147477%_))) + _%args147559147583%_))) (define gxc#collect-bindings-define-values% - (lambda (_%self147381%_ _%stx147382%_) - (let* ((_%g147384147401%_ - (lambda (_%g147385147398%_) + (lambda (_%self147487%_ _%stx147488%_) + (let* ((_%g147490147507%_ + (lambda (_%g147491147504%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147385147398%_)))) - (_%g147383147448%_ - (lambda (_%g147385147404%_) + _%g147491147504%_)))) + (_%g147489147554%_ + (lambda (_%g147491147510%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147385147404%_)) - (let ((_%e147388147406%_ + (gx#stx-pair? _%g147491147510%_)) + (let ((_%e147494147512%_ (let () (declare (not safe)) - (gx#stx-e _%g147385147404%_)))) - (let ((_%hd147389147409%_ + (gx#stx-e _%g147491147510%_)))) + (let ((_%hd147495147515%_ (let () (declare (not safe)) - (##car _%e147388147406%_))) - (_%tl147390147411%_ + (##car _%e147494147512%_))) + (_%tl147496147517%_ (let () (declare (not safe)) - (##cdr _%e147388147406%_)))) + (##cdr _%e147494147512%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147390147411%_)) - (let ((_%e147391147414%_ + (gx#stx-pair? _%tl147496147517%_)) + (let ((_%e147497147520%_ (let () (declare (not safe)) - (gx#stx-e _%tl147390147411%_)))) - (let ((_%hd147392147417%_ + (gx#stx-e _%tl147496147517%_)))) + (let ((_%hd147498147523%_ (let () (declare (not safe)) - (##car _%e147391147414%_))) - (_%tl147393147419%_ + (##car _%e147497147520%_))) + (_%tl147499147525%_ (let () (declare (not safe)) - (##cdr _%e147391147414%_)))) + (##cdr _%e147497147520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147393147419%_)) - (let ((_%e147394147422%_ + (gx#stx-pair? _%tl147499147525%_)) + (let ((_%e147500147528%_ (let () (declare (not safe)) - (gx#stx-e _%tl147393147419%_)))) - (let ((_%hd147395147425%_ + (gx#stx-e _%tl147499147525%_)))) + (let ((_%hd147501147531%_ (let () (declare (not safe)) - (##car _%e147394147422%_))) - (_%tl147396147427%_ + (##car _%e147500147528%_))) + (_%tl147502147533%_ (let () (declare (not safe)) - (##cdr _%e147394147422%_)))) + (##cdr _%e147500147528%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147396147427%_)) - ((lambda (_%L147430%_ - _%L147431%_) - (let ((__tmp149095 - (lambda (_%bind147446%_) + _%tl147502147533%_)) + ((lambda (_%L147536%_ + _%L147537%_) + (let ((__tmp149201 + (lambda (_%bind147552%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#identifier? _%bind147446%_)) - (gxc#add-module-binding! _%bind147446%_ '#f) + (gx#identifier? _%bind147552%_)) + (gxc#add-module-binding! _%bind147552%_ '#f) '#!void)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#stx-for-each1 - __tmp149095 - _%L147431%_))) - _%hd147395147425%_ - _%hd147392147417%_) - (_%g147384147401%_ - _%g147385147404%_)))) - (_%g147384147401%_ _%g147385147404%_)))) - (_%g147384147401%_ _%g147385147404%_)))) - (_%g147384147401%_ _%g147385147404%_))))) - (_%g147383147448%_ _%stx147382%_)))) + __tmp149201 + _%L147537%_))) + _%hd147501147531%_ + _%hd147498147523%_) + (_%g147490147507%_ + _%g147491147510%_)))) + (_%g147490147507%_ _%g147491147510%_)))) + (_%g147490147507%_ _%g147491147510%_)))) + (_%g147490147507%_ _%g147491147510%_))))) + (_%g147489147554%_ _%stx147488%_)))) (define gxc#collect-bindings-define-syntax% - (lambda (_%self147313%_ _%stx147314%_) - (let* ((_%g147316147333%_ - (lambda (_%g147317147330%_) + (lambda (_%self147419%_ _%stx147420%_) + (let* ((_%g147422147439%_ + (lambda (_%g147423147436%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147317147330%_)))) - (_%g147315147378%_ - (lambda (_%g147317147336%_) + _%g147423147436%_)))) + (_%g147421147484%_ + (lambda (_%g147423147442%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147317147336%_)) - (let ((_%e147320147338%_ + (gx#stx-pair? _%g147423147442%_)) + (let ((_%e147426147444%_ (let () (declare (not safe)) - (gx#stx-e _%g147317147336%_)))) - (let ((_%hd147321147341%_ + (gx#stx-e _%g147423147442%_)))) + (let ((_%hd147427147447%_ (let () (declare (not safe)) - (##car _%e147320147338%_))) - (_%tl147322147343%_ + (##car _%e147426147444%_))) + (_%tl147428147449%_ (let () (declare (not safe)) - (##cdr _%e147320147338%_)))) + (##cdr _%e147426147444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147322147343%_)) - (let ((_%e147323147346%_ + (gx#stx-pair? _%tl147428147449%_)) + (let ((_%e147429147452%_ (let () (declare (not safe)) - (gx#stx-e _%tl147322147343%_)))) - (let ((_%hd147324147349%_ + (gx#stx-e _%tl147428147449%_)))) + (let ((_%hd147430147455%_ (let () (declare (not safe)) - (##car _%e147323147346%_))) - (_%tl147325147351%_ + (##car _%e147429147452%_))) + (_%tl147431147457%_ (let () (declare (not safe)) - (##cdr _%e147323147346%_)))) + (##cdr _%e147429147452%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147325147351%_)) - (let ((_%e147326147354%_ + (gx#stx-pair? _%tl147431147457%_)) + (let ((_%e147432147460%_ (let () (declare (not safe)) - (gx#stx-e _%tl147325147351%_)))) - (let ((_%hd147327147357%_ + (gx#stx-e _%tl147431147457%_)))) + (let ((_%hd147433147463%_ (let () (declare (not safe)) - (##car _%e147326147354%_))) - (_%tl147328147359%_ + (##car _%e147432147460%_))) + (_%tl147434147465%_ (let () (declare (not safe)) - (##cdr _%e147326147354%_)))) + (##cdr _%e147432147460%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl147328147359%_)) - ((lambda (_%L147362%_ - _%L147363%_) + _%tl147434147465%_)) + ((lambda (_%L147468%_ + _%L147469%_) (gxc#add-module-binding! - _%L147363%_ + _%L147469%_ '#t)) - _%hd147327147357%_ - _%hd147324147349%_) - (_%g147316147333%_ - _%g147317147336%_)))) - (_%g147316147333%_ _%g147317147336%_)))) - (_%g147316147333%_ _%g147317147336%_)))) - (_%g147316147333%_ _%g147317147336%_))))) - (_%g147315147378%_ _%stx147314%_)))) + _%hd147433147463%_ + _%hd147430147455%_) + (_%g147422147439%_ + _%g147423147442%_)))) + (_%g147422147439%_ _%g147423147442%_)))) + (_%g147422147439%_ _%g147423147442%_)))) + (_%g147422147439%_ _%g147423147442%_))))) + (_%g147421147484%_ _%stx147420%_)))) (define gxc#lift-modules-module% - (lambda (_%self147255%_ _%stx147256%_) - (let* ((_%g147258147272%_ - (lambda (_%g147259147269%_) + (lambda (_%self147361%_ _%stx147362%_) + (let* ((_%g147364147378%_ + (lambda (_%g147365147375%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147259147269%_)))) - (_%g147257147310%_ - (lambda (_%g147259147275%_) + _%g147365147375%_)))) + (_%g147363147416%_ + (lambda (_%g147365147381%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147259147275%_)) - (let ((_%e147262147277%_ + (gx#stx-pair? _%g147365147381%_)) + (let ((_%e147368147383%_ (let () (declare (not safe)) - (gx#stx-e _%g147259147275%_)))) - (let ((_%hd147263147280%_ + (gx#stx-e _%g147365147381%_)))) + (let ((_%hd147369147386%_ (let () (declare (not safe)) - (##car _%e147262147277%_))) - (_%tl147264147282%_ + (##car _%e147368147383%_))) + (_%tl147370147388%_ (let () (declare (not safe)) - (##cdr _%e147262147277%_)))) + (##cdr _%e147368147383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl147264147282%_)) - (let ((_%e147265147285%_ + (gx#stx-pair? _%tl147370147388%_)) + (let ((_%e147371147391%_ (let () (declare (not safe)) - (gx#stx-e _%tl147264147282%_)))) - (let ((_%hd147266147288%_ + (gx#stx-e _%tl147370147388%_)))) + (let ((_%hd147372147394%_ (let () (declare (not safe)) - (##car _%e147265147285%_))) - (_%tl147267147290%_ + (##car _%e147371147391%_))) + (_%tl147373147396%_ (let () (declare (not safe)) - (##cdr _%e147265147285%_)))) - ((lambda (_%L147293%_ _%L147294%_) - (let ((_%ctx147307%_ + (##cdr _%e147371147391%_)))) + ((lambda (_%L147399%_ _%L147400%_) + (let ((_%ctx147413%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L147294%_)))) + _%L147400%_)))) (set-box! (let () (declare (not safe)) (slot-ref__0 - _%self147255%_ + _%self147361%_ 'modules)) - (cons _%ctx147307%_ + (cons _%ctx147413%_ (unbox (let () (declare (not safe)) (slot-ref__0 - _%self147255%_ + _%self147361%_ 'modules))))) - (let ((__tmp149096 + (let ((__tmp149202 (lambda () - (let ((__tmp149097 + (let ((__tmp149203 (##structure-ref - _%ctx147307%_ + _%ctx147413%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self147255%_ - __tmp149097))))) + _%self147361%_ + __tmp149203))))) (declare (not safe)) (__call-with-parameters - __tmp149096 + __tmp149202 gx#current-expander-context - _%ctx147307%_)))) - _%tl147267147290%_ - _%hd147266147288%_))) - (_%g147258147272%_ _%g147259147275%_)))) - (_%g147258147272%_ _%g147259147275%_))))) - (_%g147257147310%_ _%stx147256%_)))) + _%ctx147413%_)))) + _%tl147373147396%_ + _%hd147372147394%_))) + (_%g147364147378%_ _%g147365147381%_)))) + (_%g147364147378%_ _%g147365147381%_))))) + (_%g147363147416%_ _%stx147362%_)))) (define gxc#current-compile-decls-unsafe? (lambda () - (let ((_%decls147208147210%_ + (let ((_%decls147314147316%_ (let () (declare (not safe)) (gxc#current-compile-decls)))) - (if _%decls147208147210%_ - (let ((_%decls147213%_ _%decls147208147210%_)) - (let _%lp147215%_ ((_%rest147217%_ _%decls147213%_)) - (let* ((_%rest147218147226%_ _%rest147217%_) - (_%else147220147234%_ (lambda () '#f)) - (_%K147222147243%_ - (lambda (_%decls147237%_ _%decl147238%_) - (if (equal? _%decl147238%_ '(not safe)) + (if _%decls147314147316%_ + (let ((_%decls147319%_ _%decls147314147316%_)) + (let _%lp147321%_ ((_%rest147323%_ _%decls147319%_)) + (let* ((_%rest147324147332%_ _%rest147323%_) + (_%else147326147340%_ (lambda () '#f)) + (_%K147328147349%_ + (lambda (_%decls147343%_ _%decl147344%_) + (if (equal? _%decl147344%_ '(not safe)) '#t - (if (equal? _%decl147238%_ '(safe)) + (if (equal? _%decl147344%_ '(safe)) '#f - (_%lp147215%_ _%decls147237%_)))))) - (if (pair? _%rest147218147226%_) - (let ((_%hd147223147246%_ + (_%lp147321%_ _%decls147343%_)))))) + (if (pair? _%rest147324147332%_) + (let ((_%hd147329147352%_ (let () (declare (not safe)) - (##car _%rest147218147226%_))) - (_%tl147224147248%_ + (##car _%rest147324147332%_))) + (_%tl147330147354%_ (let () (declare (not safe)) - (##cdr _%rest147218147226%_)))) - (let* ((_%decl147251%_ _%hd147223147246%_) - (_%decls147253%_ _%tl147224147248%_)) - (_%K147222147243%_ - _%decls147253%_ - _%decl147251%_))) - (_%else147220147234%_))))) + (##cdr _%rest147324147332%_)))) + (let* ((_%decl147357%_ _%hd147329147352%_) + (_%decls147359%_ _%tl147330147354%_)) + (_%K147328147349%_ + _%decls147359%_ + _%decl147357%_))) + (_%else147326147340%_))))) '#f)))) (define gxc#add-module-binding! - (lambda (_%id147202%_ _%syntax?147203%_) - (let ((_%eid147205%_ + (lambda (_%id147308%_ _%syntax?147309%_) + (let ((_%eid147311%_ (##structure-ref (let () (declare (not safe)) - (gx#resolve-identifier__0 _%id147202%_)) + (gx#resolve-identifier__0 _%id147308%_)) '1 gx#binding::t '#f)) - (_%ht147206%_ + (_%ht147312%_ (##structure-ref (let () (declare (not safe)) @@ -2136,778 +2136,778 @@ '2 gxc#symbol-table::t '#f))) - (if (let () (declare (not safe)) (interned-symbol? _%eid147205%_)) + (if (let () (declare (not safe)) (interned-symbol? _%eid147311%_)) '#!void - (let ((__tmp149098 - (let ((__tmp149099 + (let ((__tmp149204 + (let ((__tmp149205 (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%eid147205%_)))) + _%eid147311%_)))) (declare (not safe)) - (gx#make-binding-id__1 __tmp149099 _%syntax?147203%_)))) + (gx#make-binding-id__1 __tmp149205 _%syntax?147309%_)))) (declare (not safe)) - (hash-put! _%ht147206%_ _%eid147205%_ __tmp149098)))))) + (hash-put! _%ht147312%_ _%eid147311%_ __tmp149204)))))) (define gxc#generate-runtime-identifier - (lambda (_%id147200%_) + (lambda (_%id147306%_) (gxc#generate-runtime-identifier-key - (let () (declare (not safe)) (gx#core-identifier-key _%id147200%_))))) + (let () (declare (not safe)) (gx#core-identifier-key _%id147306%_))))) (define gxc#generate-runtime-identifier-key - (lambda (_%key147155%_) - (if (let () (declare (not safe)) (interned-symbol? _%key147155%_)) - _%key147155%_ - (if (uninterned-symbol? _%key147155%_) + (lambda (_%key147261%_) + (if (let () (declare (not safe)) (interned-symbol? _%key147261%_)) + _%key147261%_ + (if (uninterned-symbol? _%key147261%_) (let () (declare (not safe)) - (gxc#generate-runtime-gensym-reference__0 _%key147155%_)) - (let* ((_%key147159147166%_ _%key147155%_) - (_%E147161147170%_ + (gxc#generate-runtime-gensym-reference__0 _%key147261%_)) + (let* ((_%key147265147272%_ _%key147261%_) + (_%E147267147276%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%key147159147166%_ + _%key147265147272%_ '([eid . mark]))) '#!void)) - (_%K147162147188%_ - (lambda (_%mark147173%_ _%eid147174%_) - (let ((_%$e147176%_ + (_%K147268147294%_ + (lambda (_%mark147279%_ _%eid147280%_) + (let ((_%$e147282%_ (##structure-ref - _%mark147173%_ + _%mark147279%_ '1 gx#expander-mark::t '#f))) - (if _%$e147176%_ - ((lambda (_%ht147179%_) - (let ((_%$e147181%_ + (if _%$e147282%_ + ((lambda (_%ht147285%_) + (let ((_%$e147287%_ (let () (declare (not safe)) (hash-get - _%ht147179%_ - _%eid147174%_)))) - (if _%$e147181%_ - ((lambda (_%id147184%_) + _%ht147285%_ + _%eid147280%_)))) + (if _%$e147287%_ + ((lambda (_%id147290%_) (if (let () (declare (not safe)) (interned-symbol? - _%id147184%_)) - _%id147184%_ + _%id147290%_)) + _%id147290%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%id147184%_)))) - _%$e147181%_) + _%id147290%_)))) + _%$e147287%_) (gxc#generate-runtime-identifier-key - _%eid147174%_)))) - _%$e147176%_) + _%eid147280%_)))) + _%$e147282%_) (gxc#generate-runtime-identifier-key - _%eid147174%_)))))) - (if (pair? _%key147159147166%_) - (let ((_%hd147163147191%_ + _%eid147280%_)))))) + (if (pair? _%key147265147272%_) + (let ((_%hd147269147297%_ (let () (declare (not safe)) - (##car _%key147159147166%_))) - (_%tl147164147193%_ + (##car _%key147265147272%_))) + (_%tl147270147299%_ (let () (declare (not safe)) - (##cdr _%key147159147166%_)))) - (let* ((_%eid147196%_ _%hd147163147191%_) - (_%mark147198%_ _%tl147164147193%_)) - (_%K147162147188%_ _%mark147198%_ _%eid147196%_))) - (_%E147161147170%_))))))) + (##cdr _%key147265147272%_)))) + (let* ((_%eid147302%_ _%hd147269147297%_) + (_%mark147304%_ _%tl147270147299%_)) + (_%K147268147294%_ _%mark147304%_ _%eid147302%_))) + (_%E147267147276%_))))))) (define gxc#generate-runtime-empty - (lambda (_%self147152%_ _%stx147153%_) '(begin))) + (lambda (_%self147258%_ _%stx147259%_) '(begin))) (define gxc#generate-runtime-begin% - (lambda (_%self146999%_ _%stx147000%_) - (letrec ((_%simplify147002%_ - (lambda (_%body147050%_) - (let _%lp147052%_ ((_%rest147054%_ _%body147050%_) - (_%r147055%_ '())) - (let* ((_%rest147056147064%_ _%rest147054%_) - (_%else147058147072%_ - (lambda () (reverse _%r147055%_))) - (_%K147060147140%_ - (lambda (_%rest147075%_ _%hd147076%_) - (let* ((_%hd147077147093%_ _%hd147076%_) - (_%else147081147101%_ + (lambda (_%self147105%_ _%stx147106%_) + (letrec ((_%simplify147108%_ + (lambda (_%body147156%_) + (let _%lp147158%_ ((_%rest147160%_ _%body147156%_) + (_%r147161%_ '())) + (let* ((_%rest147162147170%_ _%rest147160%_) + (_%else147164147178%_ + (lambda () (reverse _%r147161%_))) + (_%K147166147246%_ + (lambda (_%rest147181%_ _%hd147182%_) + (let* ((_%hd147183147199%_ _%hd147182%_) + (_%else147187147207%_ (lambda () - (_%lp147052%_ - _%rest147075%_ - (cons _%hd147076%_ _%r147055%_))))) - (let ((_%K147089147130%_ - (lambda (_%exprs147128%_) - (_%lp147052%_ + (_%lp147158%_ + _%rest147181%_ + (cons _%hd147182%_ _%r147161%_))))) + (let ((_%K147195147236%_ + (lambda (_%exprs147234%_) + (_%lp147158%_ (let () (declare (not safe)) (__foldr1 cons - _%rest147075%_ - _%exprs147128%_)) - _%r147055%_))) - (_%K147084147114%_ + _%rest147181%_ + _%exprs147234%_)) + _%r147161%_))) + (_%K147190147220%_ (lambda () - (if (null? _%rest147075%_) - (_%lp147052%_ - _%rest147075%_ - (cons _%hd147076%_ - _%r147055%_)) - (_%lp147052%_ - _%rest147075%_ - _%r147055%_)))) - (_%K147083147106%_ + (if (null? _%rest147181%_) + (_%lp147158%_ + _%rest147181%_ + (cons _%hd147182%_ + _%r147161%_)) + (_%lp147158%_ + _%rest147181%_ + _%r147161%_)))) + (_%K147189147212%_ (lambda () - (if (null? _%rest147075%_) - (_%lp147052%_ - _%rest147075%_ - (cons _%hd147076%_ - _%r147055%_)) - (_%lp147052%_ - _%rest147075%_ - _%r147055%_))))) - (let ((_%try-match147080147109%_ + (if (null? _%rest147181%_) + (_%lp147158%_ + _%rest147181%_ + (cons _%hd147182%_ + _%r147161%_)) + (_%lp147158%_ + _%rest147181%_ + _%r147161%_))))) + (let ((_%try-match147186147215%_ (lambda () - (if (symbol? _%hd147077147093%_) - (_%K147083147106%_) - (_%else147081147101%_))))) - (if (pair? _%hd147077147093%_) - (let ((_%tl147091147135%_ + (if (symbol? _%hd147183147199%_) + (_%K147189147212%_) + (_%else147187147207%_))))) + (if (pair? _%hd147183147199%_) + (let ((_%tl147197147241%_ (let () (declare (not safe)) - (##cdr _%hd147077147093%_))) - (_%hd147090147133%_ + (##cdr _%hd147183147199%_))) + (_%hd147196147239%_ (let () (declare (not safe)) - (##car _%hd147077147093%_)))) + (##car _%hd147183147199%_)))) (if (let () (declare (not safe)) - (##eq? _%hd147090147133%_ + (##eq? _%hd147196147239%_ 'begin)) - (let ((_%exprs147138%_ - _%tl147091147135%_)) - (_%K147089147130%_ - _%exprs147138%_)) + (let ((_%exprs147244%_ + _%tl147197147241%_)) + (_%K147195147236%_ + _%exprs147244%_)) (if (let () (declare (not safe)) - (##eq? _%hd147090147133%_ + (##eq? _%hd147196147239%_ 'quote)) - (if (pair? _%tl147091147135%_) - (let ((_%tl147088147122%_ + (if (pair? _%tl147197147241%_) + (let ((_%tl147194147228%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl147091147135%_)))) - (if (null? _%tl147088147122%_) - (_%K147084147114%_) - (_%try-match147080147109%_))) - (_%try-match147080147109%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match147080147109%_)))) - (_%try-match147080147109%_)))))))) - (if (pair? _%rest147056147064%_) - (let ((_%hd147061147143%_ + (##cdr _%tl147197147241%_)))) + (if (null? _%tl147194147228%_) + (_%K147190147220%_) + (_%try-match147186147215%_))) + (_%try-match147186147215%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match147186147215%_)))) + (_%try-match147186147215%_)))))))) + (if (pair? _%rest147162147170%_) + (let ((_%hd147167147249%_ (let () (declare (not safe)) - (##car _%rest147056147064%_))) - (_%tl147062147145%_ + (##car _%rest147162147170%_))) + (_%tl147168147251%_ (let () (declare (not safe)) - (##cdr _%rest147056147064%_)))) - (let* ((_%hd147148%_ _%hd147061147143%_) - (_%rest147150%_ _%tl147062147145%_)) - (_%K147060147140%_ - _%rest147150%_ - _%hd147148%_))) - (_%else147058147072%_))))))) - (let* ((_%g147004147014%_ - (lambda (_%g147005147011%_) + (##cdr _%rest147162147170%_)))) + (let* ((_%hd147254%_ _%hd147167147249%_) + (_%rest147256%_ _%tl147168147251%_)) + (_%K147166147246%_ + _%rest147256%_ + _%hd147254%_))) + (_%else147164147178%_))))))) + (let* ((_%g147110147120%_ + (lambda (_%g147111147117%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g147005147011%_)))) - (_%g147003147047%_ - (lambda (_%g147005147017%_) + _%g147111147117%_)))) + (_%g147109147153%_ + (lambda (_%g147111147123%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g147005147017%_)) - (let ((_%e147007147019%_ + (gx#stx-pair? _%g147111147123%_)) + (let ((_%e147113147125%_ (let () (declare (not safe)) - (gx#stx-e _%g147005147017%_)))) - (let ((_%hd147008147022%_ + (gx#stx-e _%g147111147123%_)))) + (let ((_%hd147114147128%_ (let () (declare (not safe)) - (##car _%e147007147019%_))) - (_%tl147009147024%_ + (##car _%e147113147125%_))) + (_%tl147115147130%_ (let () (declare (not safe)) - (##cdr _%e147007147019%_)))) - ((lambda (_%L147027%_) - (let* ((_%body147042%_ - (map (lambda (_%g147037147039%_) + (##cdr _%e147113147125%_)))) + ((lambda (_%L147133%_) + (let* ((_%body147148%_ + (map (lambda (_%g147143147145%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self146999%_ - _%g147037147039%_))) - _%L147027%_)) - (_%body147044%_ - (_%simplify147002%_ _%body147042%_))) - (if (let ((__tmp149100 - (length _%body147044%_))) + _%self147105%_ + _%g147143147145%_))) + _%L147133%_)) + (_%body147150%_ + (_%simplify147108%_ _%body147148%_))) + (if (let ((__tmp149206 + (length _%body147150%_))) (declare (not safe)) - (##fx= __tmp149100 '1)) - (car _%body147044%_) - (cons 'begin _%body147044%_)))) - _%tl147009147024%_))) - (_%g147004147014%_ _%g147005147017%_))))) - (_%g147003147047%_ _%stx147000%_))))) + (##fx= __tmp149206 '1)) + (car _%body147150%_) + (cons 'begin _%body147150%_)))) + _%tl147115147130%_))) + (_%g147110147120%_ _%g147111147123%_))))) + (_%g147109147153%_ _%stx147106%_))))) (define gxc#generate-runtime-begin-foreign% - (lambda (_%self146960%_ _%stx146961%_) - (let* ((_%g146963146973%_ - (lambda (_%g146964146970%_) + (lambda (_%self147066%_ _%stx147067%_) + (let* ((_%g147069147079%_ + (lambda (_%g147070147076%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146964146970%_)))) - (_%g146962146996%_ - (lambda (_%g146964146976%_) + _%g147070147076%_)))) + (_%g147068147102%_ + (lambda (_%g147070147082%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146964146976%_)) - (let ((_%e146966146978%_ + (gx#stx-pair? _%g147070147082%_)) + (let ((_%e147072147084%_ (let () (declare (not safe)) - (gx#stx-e _%g146964146976%_)))) - (let ((_%hd146967146981%_ + (gx#stx-e _%g147070147082%_)))) + (let ((_%hd147073147087%_ (let () (declare (not safe)) - (##car _%e146966146978%_))) - (_%tl146968146983%_ + (##car _%e147072147084%_))) + (_%tl147074147089%_ (let () (declare (not safe)) - (##cdr _%e146966146978%_)))) - ((lambda (_%L146986%_) + (##cdr _%e147072147084%_)))) + ((lambda (_%L147092%_) (cons 'begin (let () (declare (not safe)) - (gx#syntax->datum _%L146986%_)))) - _%tl146968146983%_))) - (_%g146963146973%_ _%g146964146976%_))))) - (_%g146962146996%_ _%stx146961%_)))) + (gx#syntax->datum _%L147092%_)))) + _%tl147074147089%_))) + (_%g147069147079%_ _%g147070147082%_))))) + (_%g147068147102%_ _%stx147067%_)))) (define gxc#generate-runtime-begin-annotation% - (lambda (_%self146724%_ _%stx146725%_) - (let* ((_%__stx147690147691%_ _%stx146725%_) - (_%g146729146781%_ + (lambda (_%self146830%_ _%stx146831%_) + (let* ((_%__stx147796147797%_ _%stx146831%_) + (_%g146835146887%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147690147691%_))))) - (let ((_%__kont147692147693%_ - (lambda (_%L146942%_ _%L146943%_) + _%__stx147796147797%_))))) + (let ((_%__kont147798147799%_ + (lambda (_%L147048%_ _%L147049%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146724%_ _%L146942%_)))) - (_%__kont147694147695%_ - (lambda (_%L146890%_ _%L146891%_ _%L146892%_) - (if (let ((__tmp149101 + (gxc#compile-e__1 _%self146830%_ _%L147048%_)))) + (_%__kont147800147801%_ + (lambda (_%L146996%_ _%L146997%_ _%L146998%_) + (if (let ((__tmp149207 (let () (declare (not safe)) - (gx#stx-e _%L146892%_)))) + (gx#stx-e _%L146998%_)))) (declare (not safe)) - (##memq __tmp149101 '(@inline))) + (##memq __tmp149207 '(@inline))) '(begin) (let () (declare (not safe)) - (gxc#compile-e__1 _%self146724%_ _%L146890%_))))) - (_%__kont147698147699%_ - (lambda (_%L146810%_ _%L146811%_) - (let ((_%decls146826%_ (map gx#syntax->datum _%L146811%_))) - (let ((__tmp149104 + (gxc#compile-e__1 _%self146830%_ _%L146996%_))))) + (_%__kont147804147805%_ + (lambda (_%L146916%_ _%L146917%_) + (let ((_%decls146932%_ (map gx#syntax->datum _%L146917%_))) + (let ((__tmp149210 (lambda () (cons 'begin - (cons (cons 'declare _%decls146826%_) + (cons (cons 'declare _%decls146932%_) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146724%_ - _%L146810%_)) + _%self146830%_ + _%L146916%_)) '()))))) - (__tmp149102 - (let ((__tmp149103 + (__tmp149208 + (let ((__tmp149209 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) - (__foldr1 cons __tmp149103 _%decls146826%_)))) + (__foldr1 cons __tmp149209 _%decls146932%_)))) (declare (not safe)) (__call-with-parameters - __tmp149104 + __tmp149210 gxc#current-compile-decls - __tmp149102)))))) - (let* ((_%__match147745147746%_ - (lambda (_%e146745146834%_ - _%hd146746146837%_ - _%tl146747146839%_ - _%e146748146842%_ - _%hd146749146845%_ - _%tl146750146847%_ - _%e146751146850%_ - _%hd146752146853%_ - _%tl146753146855%_ - _%__splice147696147697%_ - _%target146754146858%_ - _%tl146756146860%_) - (letrec ((_%loop146757146863%_ - (lambda (_%hd146755146866%_ - _%param146761146868%_) + __tmp149208)))))) + (let* ((_%__match147851147852%_ + (lambda (_%e146851146940%_ + _%hd146852146943%_ + _%tl146853146945%_ + _%e146854146948%_ + _%hd146855146951%_ + _%tl146856146953%_ + _%e146857146956%_ + _%hd146858146959%_ + _%tl146859146961%_ + _%__splice147802147803%_ + _%target146860146964%_ + _%tl146862146966%_) + (letrec ((_%loop146863146969%_ + (lambda (_%hd146861146972%_ + _%param146867146974%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146755146866%_)) - (let ((_%e146758146871%_ + (gx#stx-pair? _%hd146861146972%_)) + (let ((_%e146864146977%_ (let () (declare (not safe)) - (gx#stx-e _%hd146755146866%_)))) - (let ((_%lp-tl146760146876%_ + (gx#stx-e _%hd146861146972%_)))) + (let ((_%lp-tl146866146982%_ (let () (declare (not safe)) - (##cdr _%e146758146871%_))) - (_%lp-hd146759146874%_ + (##cdr _%e146864146977%_))) + (_%lp-hd146865146980%_ (let () (declare (not safe)) - (##car _%e146758146871%_)))) - (_%loop146757146863%_ - _%lp-tl146760146876%_ - (cons _%lp-hd146759146874%_ - _%param146761146868%_)))) - (let ((_%param146762146879%_ - (reverse _%param146761146868%_))) + (##car _%e146864146977%_)))) + (_%loop146863146969%_ + _%lp-tl146866146982%_ + (cons _%lp-hd146865146980%_ + _%param146867146974%_)))) + (let ((_%param146868146985%_ + (reverse _%param146867146974%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl146750146847%_)) - (let ((_%e146763146882%_ + _%tl146856146953%_)) + (let ((_%e146869146988%_ (let () (declare (not safe)) (gx#stx-e - _%tl146750146847%_)))) - (let ((_%tl146765146887%_ + _%tl146856146953%_)))) + (let ((_%tl146871146993%_ (let () (declare (not safe)) - (##cdr _%e146763146882%_))) - (_%hd146764146885%_ + (##cdr _%e146869146988%_))) + (_%hd146870146991%_ (let () (declare (not safe)) - (##car _%e146763146882%_)))) + (##car _%e146869146988%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146765146887%_)) - (let ((_%L146890%_ - _%hd146764146885%_) - (_%L146891%_ - _%param146762146879%_) - (_%L146892%_ - _%hd146752146853%_)) + _%tl146871146993%_)) + (let ((_%L146996%_ + _%hd146870146991%_) + (_%L146997%_ + _%param146868146985%_) + (_%L146998%_ + _%hd146858146959%_)) (if (and (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#identifier? _%L146892%_)) - (not (let ((__tmp149105 + (gx#identifier? _%L146998%_)) + (not (let ((__tmp149211 (let () (declare (not safe)) - (gx#stx-e _%L146892%_)))) + (gx#stx-e _%L146998%_)))) (declare (not safe)) - (##memq __tmp149105 gxc#gambit-annotations)))) - (_%__kont147694147695%_ _%L146890%_ _%L146891%_ _%L146892%_) - (_%__kont147698147699%_ - _%hd146764146885%_ - _%hd146749146845%_))) + (##memq __tmp149211 gxc#gambit-annotations)))) + (_%__kont147800147801%_ _%L146996%_ _%L146997%_ _%L146998%_) + (_%__kont147804147805%_ + _%hd146870146991%_ + _%hd146855146951%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146729146781%_))))) + (_%g146835146887%_))))) (let () (declare (not safe)) - (_%g146729146781%_)))))))) - (_%loop146757146863%_ _%target146754146858%_ '())))) - (_%__match147719147720%_ - (lambda (_%e146733146918%_ - _%hd146734146921%_ - _%tl146735146923%_ - _%e146736146926%_ - _%hd146737146929%_ - _%tl146738146931%_ - _%e146739146934%_ - _%hd146740146937%_ - _%tl146741146939%_) - (let ((_%L146942%_ _%hd146740146937%_) - (_%L146943%_ _%hd146737146929%_)) + (_%g146835146887%_)))))))) + (_%loop146863146969%_ _%target146860146964%_ '())))) + (_%__match147825147826%_ + (lambda (_%e146839147024%_ + _%hd146840147027%_ + _%tl146841147029%_ + _%e146842147032%_ + _%hd146843147035%_ + _%tl146844147037%_ + _%e146845147040%_ + _%hd146846147043%_ + _%tl146847147045%_) + (let ((_%L147048%_ _%hd146846147043%_) + (_%L147049%_ _%hd146843147035%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L146943%_)) - (_%__kont147692147693%_ _%L146942%_ _%L146943%_) + (gx#identifier? _%L147049%_)) + (_%__kont147798147799%_ _%L147048%_ _%L147049%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146737146929%_)) - (let ((_%e146751146850%_ + (gx#stx-pair? _%hd146843147035%_)) + (let ((_%e146857146956%_ (let () (declare (not safe)) - (gx#stx-e _%hd146737146929%_)))) - (let ((_%tl146753146855%_ + (gx#stx-e _%hd146843147035%_)))) + (let ((_%tl146859146961%_ (let () (declare (not safe)) - (##cdr _%e146751146850%_))) - (_%hd146752146853%_ + (##cdr _%e146857146956%_))) + (_%hd146858146959%_ (let () (declare (not safe)) - (##car _%e146751146850%_)))) + (##car _%e146857146956%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146753146855%_)) - (let ((_%__splice147696147697%_ + _%tl146859146961%_)) + (let ((_%__splice147802147803%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146753146855%_ + _%tl146859146961%_ '0)))) - (let ((_%tl146756146860%_ + (let ((_%tl146862146966%_ (let () (declare (not safe)) (##vector-ref - _%__splice147696147697%_ + _%__splice147802147803%_ '1))) - (_%target146754146858%_ + (_%target146860146964%_ (let () (declare (not safe)) (##vector-ref - _%__splice147696147697%_ + _%__splice147802147803%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146756146860%_)) - (_%__match147745147746%_ - _%e146733146918%_ - _%hd146734146921%_ - _%tl146735146923%_ - _%e146736146926%_ - _%hd146737146929%_ - _%tl146738146931%_ - _%e146751146850%_ - _%hd146752146853%_ - _%tl146753146855%_ - _%__splice147696147697%_ - _%target146754146858%_ - _%tl146756146860%_) - (_%__kont147698147699%_ - _%hd146740146937%_ - _%hd146737146929%_)))) - (_%__kont147698147699%_ - _%hd146740146937%_ - _%hd146737146929%_)))) - (_%__kont147698147699%_ - _%hd146740146937%_ - _%hd146737146929%_))))))) + _%tl146862146966%_)) + (_%__match147851147852%_ + _%e146839147024%_ + _%hd146840147027%_ + _%tl146841147029%_ + _%e146842147032%_ + _%hd146843147035%_ + _%tl146844147037%_ + _%e146857146956%_ + _%hd146858146959%_ + _%tl146859146961%_ + _%__splice147802147803%_ + _%target146860146964%_ + _%tl146862146966%_) + (_%__kont147804147805%_ + _%hd146846147043%_ + _%hd146843147035%_)))) + (_%__kont147804147805%_ + _%hd146846147043%_ + _%hd146843147035%_)))) + (_%__kont147804147805%_ + _%hd146846147043%_ + _%hd146843147035%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147690147691%_)) - (let ((_%e146733146918%_ + (gx#stx-pair? _%__stx147796147797%_)) + (let ((_%e146839147024%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147690147691%_)))) - (let ((_%tl146735146923%_ + (gx#stx-e _%__stx147796147797%_)))) + (let ((_%tl146841147029%_ (let () (declare (not safe)) - (##cdr _%e146733146918%_))) - (_%hd146734146921%_ + (##cdr _%e146839147024%_))) + (_%hd146840147027%_ (let () (declare (not safe)) - (##car _%e146733146918%_)))) + (##car _%e146839147024%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146735146923%_)) - (let ((_%e146736146926%_ + (gx#stx-pair? _%tl146841147029%_)) + (let ((_%e146842147032%_ (let () (declare (not safe)) - (gx#stx-e _%tl146735146923%_)))) - (let ((_%tl146738146931%_ + (gx#stx-e _%tl146841147029%_)))) + (let ((_%tl146844147037%_ (let () (declare (not safe)) - (##cdr _%e146736146926%_))) - (_%hd146737146929%_ + (##cdr _%e146842147032%_))) + (_%hd146843147035%_ (let () (declare (not safe)) - (##car _%e146736146926%_)))) + (##car _%e146842147032%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146738146931%_)) - (let ((_%e146739146934%_ + (gx#stx-pair? _%tl146844147037%_)) + (let ((_%e146845147040%_ (let () (declare (not safe)) - (gx#stx-e _%tl146738146931%_)))) - (let ((_%tl146741146939%_ + (gx#stx-e _%tl146844147037%_)))) + (let ((_%tl146847147045%_ (let () (declare (not safe)) - (##cdr _%e146739146934%_))) - (_%hd146740146937%_ + (##cdr _%e146845147040%_))) + (_%hd146846147043%_ (let () (declare (not safe)) - (##car _%e146739146934%_)))) + (##car _%e146845147040%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146741146939%_)) - (_%__match147719147720%_ - _%e146733146918%_ - _%hd146734146921%_ - _%tl146735146923%_ - _%e146736146926%_ - _%hd146737146929%_ - _%tl146738146931%_ - _%e146739146934%_ - _%hd146740146937%_ - _%tl146741146939%_) + (gx#stx-null? _%tl146847147045%_)) + (_%__match147825147826%_ + _%e146839147024%_ + _%hd146840147027%_ + _%tl146841147029%_ + _%e146842147032%_ + _%hd146843147035%_ + _%tl146844147037%_ + _%e146845147040%_ + _%hd146846147043%_ + _%tl146847147045%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd146737146929%_)) - (let ((_%e146751146850%_ + _%hd146843147035%_)) + (let ((_%e146857146956%_ (let () (declare (not safe)) (gx#stx-e - _%hd146737146929%_)))) - (let ((_%tl146753146855%_ + _%hd146843147035%_)))) + (let ((_%tl146859146961%_ (let () (declare (not safe)) - (##cdr _%e146751146850%_))) - (_%hd146752146853%_ + (##cdr _%e146857146956%_))) + (_%hd146858146959%_ (let () (declare (not safe)) - (##car _%e146751146850%_)))) + (##car _%e146857146956%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146753146855%_)) - (let ((_%__splice147696147697%_ + _%tl146859146961%_)) + (let ((_%__splice147802147803%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl146753146855%_ '0)))) - (let ((_%tl146756146860%_ + (gx#syntax-split-splice _%tl146859146961%_ '0)))) + (let ((_%tl146862146966%_ (let () (declare (not safe)) - (##vector-ref _%__splice147696147697%_ '1))) - (_%target146754146858%_ + (##vector-ref _%__splice147802147803%_ '1))) + (_%target146860146964%_ (let () (declare (not safe)) - (##vector-ref _%__splice147696147697%_ '0)))) + (##vector-ref _%__splice147802147803%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146756146860%_)) - (_%__match147745147746%_ - _%e146733146918%_ - _%hd146734146921%_ - _%tl146735146923%_ - _%e146736146926%_ - _%hd146737146929%_ - _%tl146738146931%_ - _%e146751146850%_ - _%hd146752146853%_ - _%tl146753146855%_ - _%__splice147696147697%_ - _%target146754146858%_ - _%tl146756146860%_) - (let () (declare (not safe)) (_%g146729146781%_))))) - (let () (declare (not safe)) (_%g146729146781%_))))) + (gx#stx-null? _%tl146862146966%_)) + (_%__match147851147852%_ + _%e146839147024%_ + _%hd146840147027%_ + _%tl146841147029%_ + _%e146842147032%_ + _%hd146843147035%_ + _%tl146844147037%_ + _%e146857146956%_ + _%hd146858146959%_ + _%tl146859146961%_ + _%__splice147802147803%_ + _%target146860146964%_ + _%tl146862146966%_) + (let () (declare (not safe)) (_%g146835146887%_))))) + (let () (declare (not safe)) (_%g146835146887%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g146729146781%_)))))) + (_%g146835146887%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd146737146929%_)) - (let ((_%e146751146850%_ + (gx#stx-pair? _%hd146843147035%_)) + (let ((_%e146857146956%_ (let () (declare (not safe)) - (gx#stx-e _%hd146737146929%_)))) - (let ((_%tl146753146855%_ + (gx#stx-e _%hd146843147035%_)))) + (let ((_%tl146859146961%_ (let () (declare (not safe)) - (##cdr _%e146751146850%_))) - (_%hd146752146853%_ + (##cdr _%e146857146956%_))) + (_%hd146858146959%_ (let () (declare (not safe)) - (##car _%e146751146850%_)))) + (##car _%e146857146956%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl146753146855%_)) - (let ((_%__splice147696147697%_ + _%tl146859146961%_)) + (let ((_%__splice147802147803%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl146753146855%_ + _%tl146859146961%_ '0)))) - (let ((_%tl146756146860%_ + (let ((_%tl146862146966%_ (let () (declare (not safe)) (##vector-ref - _%__splice147696147697%_ + _%__splice147802147803%_ '1))) - (_%target146754146858%_ + (_%target146860146964%_ (let () (declare (not safe)) (##vector-ref - _%__splice147696147697%_ + _%__splice147802147803%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146756146860%_)) - (_%__match147745147746%_ - _%e146733146918%_ - _%hd146734146921%_ - _%tl146735146923%_ - _%e146736146926%_ - _%hd146737146929%_ - _%tl146738146931%_ - _%e146751146850%_ - _%hd146752146853%_ - _%tl146753146855%_ - _%__splice147696147697%_ - _%target146754146858%_ - _%tl146756146860%_) + _%tl146862146966%_)) + (_%__match147851147852%_ + _%e146839147024%_ + _%hd146840147027%_ + _%tl146841147029%_ + _%e146842147032%_ + _%hd146843147035%_ + _%tl146844147037%_ + _%e146857146956%_ + _%hd146858146959%_ + _%tl146859146961%_ + _%__splice147802147803%_ + _%target146860146964%_ + _%tl146862146966%_) (let () (declare (not safe)) - (_%g146729146781%_))))) + (_%g146835146887%_))))) (let () (declare (not safe)) - (_%g146729146781%_))))) + (_%g146835146887%_))))) (let () (declare (not safe)) - (_%g146729146781%_)))))) - (let () (declare (not safe)) (_%g146729146781%_))))) - (let () (declare (not safe)) (_%g146729146781%_)))))))) + (_%g146835146887%_)))))) + (let () (declare (not safe)) (_%g146835146887%_))))) + (let () (declare (not safe)) (_%g146835146887%_)))))))) (define gxc#generate-runtime-declare% - (lambda (_%self146683%_ _%stx146684%_) - (let* ((_%g146686146696%_ - (lambda (_%g146687146693%_) + (lambda (_%self146789%_ _%stx146790%_) + (let* ((_%g146792146802%_ + (lambda (_%g146793146799%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146687146693%_)))) - (_%g146685146721%_ - (lambda (_%g146687146699%_) + _%g146793146799%_)))) + (_%g146791146827%_ + (lambda (_%g146793146805%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146687146699%_)) - (let ((_%e146689146701%_ + (gx#stx-pair? _%g146793146805%_)) + (let ((_%e146795146807%_ (let () (declare (not safe)) - (gx#stx-e _%g146687146699%_)))) - (let ((_%hd146690146704%_ + (gx#stx-e _%g146793146805%_)))) + (let ((_%hd146796146810%_ (let () (declare (not safe)) - (##car _%e146689146701%_))) - (_%tl146691146706%_ + (##car _%e146795146807%_))) + (_%tl146797146812%_ (let () (declare (not safe)) - (##cdr _%e146689146701%_)))) - ((lambda (_%L146709%_) - (let ((_%decls146719%_ - (map gx#syntax->datum _%L146709%_))) - (let ((__tmp149106 - (let ((__tmp149107 + (##cdr _%e146795146807%_)))) + ((lambda (_%L146815%_) + (let ((_%decls146825%_ + (map gx#syntax->datum _%L146815%_))) + (let ((__tmp149212 + (let ((__tmp149213 (let () (declare (not safe)) (gxc#current-compile-decls)))) (declare (not safe)) (__foldr1 cons - __tmp149107 - _%decls146719%_)))) + __tmp149213 + _%decls146825%_)))) (declare (not safe)) - (gxc#current-compile-decls __tmp149106)) - (cons 'declare _%decls146719%_))) - _%tl146691146706%_))) - (_%g146686146696%_ _%g146687146699%_))))) - (_%g146685146721%_ _%stx146684%_)))) + (gxc#current-compile-decls __tmp149212)) + (cons 'declare _%decls146825%_))) + _%tl146797146812%_))) + (_%g146792146802%_ _%g146793146805%_))))) + (_%g146791146827%_ _%stx146790%_)))) (define gxc#generate-runtime-define-values% - (lambda (_%self146429%_ _%stx146430%_) - (let* ((_%g146432146449%_ - (lambda (_%g146433146446%_) + (lambda (_%self146535%_ _%stx146536%_) + (let* ((_%g146538146555%_ + (lambda (_%g146539146552%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146433146446%_)))) - (_%g146431146680%_ - (lambda (_%g146433146452%_) + _%g146539146552%_)))) + (_%g146537146786%_ + (lambda (_%g146539146558%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146433146452%_)) - (let ((_%e146436146454%_ + (gx#stx-pair? _%g146539146558%_)) + (let ((_%e146542146560%_ (let () (declare (not safe)) - (gx#stx-e _%g146433146452%_)))) - (let ((_%hd146437146457%_ + (gx#stx-e _%g146539146558%_)))) + (let ((_%hd146543146563%_ (let () (declare (not safe)) - (##car _%e146436146454%_))) - (_%tl146438146459%_ + (##car _%e146542146560%_))) + (_%tl146544146565%_ (let () (declare (not safe)) - (##cdr _%e146436146454%_)))) + (##cdr _%e146542146560%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146438146459%_)) - (let ((_%e146439146462%_ + (gx#stx-pair? _%tl146544146565%_)) + (let ((_%e146545146568%_ (let () (declare (not safe)) - (gx#stx-e _%tl146438146459%_)))) - (let ((_%hd146440146465%_ + (gx#stx-e _%tl146544146565%_)))) + (let ((_%hd146546146571%_ (let () (declare (not safe)) - (##car _%e146439146462%_))) - (_%tl146441146467%_ + (##car _%e146545146568%_))) + (_%tl146547146573%_ (let () (declare (not safe)) - (##cdr _%e146439146462%_)))) + (##cdr _%e146545146568%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146441146467%_)) - (let ((_%e146442146470%_ + (gx#stx-pair? _%tl146547146573%_)) + (let ((_%e146548146576%_ (let () (declare (not safe)) - (gx#stx-e _%tl146441146467%_)))) - (let ((_%hd146443146473%_ + (gx#stx-e _%tl146547146573%_)))) + (let ((_%hd146549146579%_ (let () (declare (not safe)) - (##car _%e146442146470%_))) - (_%tl146444146475%_ + (##car _%e146548146576%_))) + (_%tl146550146581%_ (let () (declare (not safe)) - (##cdr _%e146442146470%_)))) + (##cdr _%e146548146576%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146444146475%_)) - ((lambda (_%L146478%_ - _%L146479%_) - (let* ((_%__stx147798147799%_ - _%L146479%_) - (_%g146496146510%_ + _%tl146550146581%_)) + ((lambda (_%L146584%_ + _%L146585%_) + (let* ((_%__stx147904147905%_ + _%L146585%_) + (_%g146602146616%_ (lambda () (let () (declare @@ -2915,304 +2915,304 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147798147799%_))))) - (let ((_%__kont147800147801%_ + _%__stx147904147905%_))))) + (let ((_%__kont147906147907%_ (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self146429%_ - _%L146478%_)))) - (_%__kont147802147803%_ - (lambda (_%L146642%_) - (let ((_%eid146651%_ + _%self146535%_ + _%L146584%_)))) + (_%__kont147908147909%_ + (lambda (_%L146748%_) + (let ((_%eid146757%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146642%_)))) - (let ((_%lambda-expr146652146654%_ - (gxc#apply-find-lambda-expression _%L146478%_))) - (if _%lambda-expr146652146654%_ - (let* ((_%lambda-expr146657%_ - _%lambda-expr146652146654%_) - (__tmp149108 + (gxc#generate-runtime-binding-id _%L146748%_)))) + (let ((_%lambda-expr146758146760%_ + (gxc#apply-find-lambda-expression _%L146584%_))) + (if _%lambda-expr146758146760%_ + (let* ((_%lambda-expr146763%_ + _%lambda-expr146758146760%_) + (__tmp149214 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) (hash-put! - __tmp149108 - _%lambda-expr146657%_ - _%eid146651%_)) + __tmp149214 + _%lambda-expr146763%_ + _%eid146757%_)) '#f)) (cons 'define - (cons _%eid146651%_ + (cons _%eid146757%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146429%_ - _%L146478%_)) + _%self146535%_ + _%L146584%_)) '())))))) - (_%__kont147804147805%_ + (_%__kont147910147911%_ (lambda () - (let* ((_%tmp146517%_ + (let* ((_%tmp146623%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%body146626%_ - (let _%lp146519%_ ((_%rest146521%_ _%L146479%_) - (_%k146522%_ '0) - (_%r146523%_ '())) - (let* ((_%__stx147768147769%_ _%rest146521%_) - (_%g146528146545%_ + (_%body146732%_ + (let _%lp146625%_ ((_%rest146627%_ _%L146585%_) + (_%k146628%_ '0) + (_%r146629%_ '())) + (let* ((_%__stx147874147875%_ _%rest146627%_) + (_%g146634146651%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147768147769%_))))) - (let ((_%__kont147770147771%_ - (lambda (_%L146613%_) - (_%lp146519%_ - _%L146613%_ + _%__stx147874147875%_))))) + (let ((_%__kont147876147877%_ + (lambda (_%L146719%_) + (_%lp146625%_ + _%L146719%_ (let () (declare (not safe)) - (##fx+ _%k146522%_ '1)) - _%r146523%_))) - (_%__kont147772147773%_ - (lambda (_%L146586%_ _%L146587%_) - (_%lp146519%_ - _%L146586%_ + (##fx+ _%k146628%_ '1)) + _%r146629%_))) + (_%__kont147878147879%_ + (lambda (_%L146692%_ _%L146693%_) + (_%lp146625%_ + _%L146692%_ (let () (declare (not safe)) - (##fx+ _%k146522%_ '1)) + (##fx+ _%k146628%_ '1)) (cons (cons 'define (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L146587%_)) + _%L146693%_)) (cons (gxc#generate-runtime-values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tmp146517%_ - _%k146522%_ - _%L146586%_) + _%tmp146623%_ + _%k146628%_ + _%L146692%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r146523%_)))) - (_%__kont147774147775%_ - (lambda (_%L146557%_) - (let ((__tmp149109 + _%r146629%_)))) + (_%__kont147880147881%_ + (lambda (_%L146663%_) + (let ((__tmp149215 (cons (cons 'define (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#generate-runtime-binding-id _%L146557%_)) + (gxc#generate-runtime-binding-id _%L146663%_)) (cons (gxc#generate-runtime-values->list - _%tmp146517%_ - _%k146522%_) + _%tmp146623%_ + _%k146628%_) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149109 - _%r146523%_)))) - (_%__kont147776147777%_ - (lambda () (reverse _%r146523%_)))) - (let ((_%g146526146573%_ + __tmp149215 + _%r146629%_)))) + (_%__kont147882147883%_ + (lambda () (reverse _%r146629%_)))) + (let ((_%g146632146679%_ (lambda () - (let ((_%L146557%_ - _%__stx147768147769%_)) + (let ((_%L146663%_ + _%__stx147874147875%_)) (if (let () (declare (not safe)) (gx#identifier? - _%L146557%_)) - (_%__kont147774147775%_ - _%L146557%_) - (_%__kont147776147777%_)))))) + _%L146663%_)) + (_%__kont147880147881%_ + _%L146663%_) + (_%__kont147882147883%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147768147769%_)) - (let ((_%e146531146602%_ + (gx#stx-pair? _%__stx147874147875%_)) + (let ((_%e146637146708%_ (let () (declare (not safe)) (gx#stx-e - _%__stx147768147769%_)))) - (let ((_%tl146533146607%_ + _%__stx147874147875%_)))) + (let ((_%tl146639146713%_ (let () (declare (not safe)) - (##cdr _%e146531146602%_))) - (_%hd146532146605%_ + (##cdr _%e146637146708%_))) + (_%hd146638146711%_ (let () (declare (not safe)) - (##car _%e146531146602%_)))) + (##car _%e146637146708%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd146532146605%_)) - (let ((_%e146534146610%_ + _%hd146638146711%_)) + (let ((_%e146640146716%_ (let () (declare (not safe)) (gx#stx-e - _%hd146532146605%_)))) - (if (equal? _%e146534146610%_ + _%hd146638146711%_)))) + (if (equal? _%e146640146716%_ '#f) - (_%__kont147770147771%_ - _%tl146533146607%_) - (_%__kont147772147773%_ - _%tl146533146607%_ - _%hd146532146605%_))) - (_%__kont147772147773%_ - _%tl146533146607%_ - _%hd146532146605%_)))) + (_%__kont147876147877%_ + _%tl146639146713%_) + (_%__kont147878147879%_ + _%tl146639146713%_ + _%hd146638146711%_))) + (_%__kont147878147879%_ + _%tl146639146713%_ + _%hd146638146711%_)))) (let () (declare (not safe)) - (_%g146526146573%_))))))))) + (_%g146632146679%_))))))))) (cons 'begin (cons (cons 'define - (cons _%tmp146517%_ + (cons _%tmp146623%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self146429%_ - _%L146478%_)) + _%self146535%_ + _%L146584%_)) '()))) (cons (gxc#generate-runtime-check-values - _%tmp146517%_ - _%L146479%_ - _%L146478%_) - _%body146626%_))))))) + _%tmp146623%_ + _%L146585%_ + _%L146584%_) + _%body146732%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx147798147799%_)) - (let ((_%e146498146664%_ + _%__stx147904147905%_)) + (let ((_%e146604146770%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx147798147799%_)))) - (let ((_%tl146500146669%_ + (gx#stx-e _%__stx147904147905%_)))) + (let ((_%tl146606146775%_ (let () (declare (not safe)) - (##cdr _%e146498146664%_))) - (_%hd146499146667%_ + (##cdr _%e146604146770%_))) + (_%hd146605146773%_ (let () (declare (not safe)) - (##car _%e146498146664%_)))) + (##car _%e146604146770%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd146499146667%_)) - (let ((_%e146501146672%_ + (gx#stx-datum? _%hd146605146773%_)) + (let ((_%e146607146778%_ (let () (declare (not safe)) - (gx#stx-e _%hd146499146667%_)))) - (if (equal? _%e146501146672%_ '#f) + (gx#stx-e _%hd146605146773%_)))) + (if (equal? _%e146607146778%_ '#f) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146500146669%_)) - (_%__kont147800147801%_) - (_%__kont147804147805%_)) + (gx#stx-null? _%tl146606146775%_)) + (_%__kont147906147907%_) + (_%__kont147910147911%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146500146669%_)) - (_%__kont147802147803%_ _%hd146499146667%_) - (_%__kont147804147805%_)))) + (gx#stx-null? _%tl146606146775%_)) + (_%__kont147908147909%_ _%hd146605146773%_) + (_%__kont147910147911%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl146500146669%_)) - (_%__kont147802147803%_ _%hd146499146667%_) - (_%__kont147804147805%_))))) - (_%__kont147804147805%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd146443146473%_ - _%hd146440146465%_) - (_%g146432146449%_ - _%g146433146452%_)))) - (_%g146432146449%_ _%g146433146452%_)))) - (_%g146432146449%_ _%g146433146452%_)))) - (_%g146432146449%_ _%g146433146452%_))))) - (_%g146431146680%_ _%stx146430%_)))) + (gx#stx-null? _%tl146606146775%_)) + (_%__kont147908147909%_ _%hd146605146773%_) + (_%__kont147910147911%_))))) + (_%__kont147910147911%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd146549146579%_ + _%hd146546146571%_) + (_%g146538146555%_ + _%g146539146558%_)))) + (_%g146538146555%_ _%g146539146558%_)))) + (_%g146538146555%_ _%g146539146558%_)))) + (_%g146538146555%_ _%g146539146558%_))))) + (_%g146537146786%_ _%stx146536%_)))) (define gxc#generate-runtime-check-values - (lambda (_%vals146404%_ _%hd146405%_ _%expr146406%_) - (let ((_%$e146408%_ (gxc#apply-count-values _%expr146406%_))) - (if _%$e146408%_ - ((lambda (_%count146411%_) - (let ((_%len146413%_ + (lambda (_%vals146510%_ _%hd146511%_ _%expr146512%_) + (let ((_%$e146514%_ (gxc#apply-count-values _%expr146512%_))) + (if _%$e146514%_ + ((lambda (_%count146517%_) + (let ((_%len146519%_ (let () (declare (not safe)) - (gx#stx-length _%hd146405%_))) - (_%cmp146414%_ + (gx#stx-length _%hd146511%_))) + (_%cmp146520%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146405%_)) + (gx#stx-list? _%hd146511%_)) fx= fx>=))) (if (or (let () (declare (not safe)) - (##fx= _%len146413%_ '0)) - (_%cmp146414%_ _%count146411%_ _%len146413%_)) + (##fx= _%len146519%_ '0)) + (_%cmp146520%_ _%count146517%_ _%len146519%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Value count mismatch" - _%expr146406%_ - _%hd146405%_))))) - _%$e146408%_) - (let* ((_%len146420%_ + _%expr146512%_ + _%hd146511%_))))) + _%$e146514%_) + (let* ((_%len146526%_ (let () (declare (not safe)) - (gx#stx-length _%hd146405%_))) - (_%cmp146422%_ + (gx#stx-length _%hd146511%_))) + (_%cmp146528%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd146405%_)) + (gx#stx-list? _%hd146511%_)) '##fx= '##fx>=)) - (_%errmsg146424%_ - (let ((__tmp149111 + (_%errmsg146530%_ + (let ((__tmp149217 (if (let () (declare (not safe)) - (gx#stx-list? _%hd146405%_)) + (gx#stx-list? _%hd146511%_)) '"Context expects " '"Context expects at least ")) - (__tmp149110 (number->string _%len146420%_))) + (__tmp149216 (number->string _%len146526%_))) (declare (not safe)) - (##string-append __tmp149111 __tmp149110 '" values"))) - (_%count146426%_ + (##string-append __tmp149217 __tmp149216 '" values"))) + (_%count146532%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0)))) (if (if (let () (declare (not safe)) - (gx#stx-list? _%hd146405%_)) + (gx#stx-list? _%hd146511%_)) '#f - (let () (declare (not safe)) (##fx= _%len146420%_ '0))) + (let () (declare (not safe)) (##fx= _%len146526%_ '0))) '#!void (cons 'let - (cons (cons (cons _%count146426%_ + (cons (cons (cons _%count146532%_ (cons (gxc#generate-runtime-values-count - _%vals146404%_) + _%vals146510%_) '())) '()) (cons (cons 'if (cons (cons 'not (cons (if (gxc#current-compile-decls-unsafe?) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%cmp146422%_ - (cons _%count146426%_ - (cons _%len146420%_ '()))) + (cons _%cmp146528%_ + (cons _%count146532%_ + (cons _%len146526%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (cons _%cmp146422%_ - (cons _%count146426%_ - (cons _%len146420%_ + (cons (cons _%cmp146528%_ + (cons _%count146532%_ + (cons _%len146526%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -3220,82 +3220,82 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'error - (cons _%errmsg146424%_ + (cons _%errmsg146530%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%count146426%_ '()))) + (cons _%count146532%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-values-count - (lambda (_%var146399%_) - (letrec ((_%generate-inline146401%_ + (lambda (_%var146505%_) + (letrec ((_%generate-inline146507%_ (lambda () (cons 'if - (cons (cons '##values? (cons _%var146399%_ '())) - (cons (cons '##vector-length - (cons _%var146399%_ '())) + (cons (cons '##values? (cons _%var146505%_ '())) + (cons (cons '##values-length + (cons _%var146505%_ '())) (cons '1 '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146401%_) + (_%generate-inline146507%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146401%_) '())))))))) + (cons (_%generate-inline146507%_) '())))))))) (define gxc#generate-runtime-values-ref - (lambda (_%var146392%_ _%i146393%_ _%rest146394%_) - (letrec ((_%generate-inline146396%_ + (lambda (_%var146498%_ _%i146499%_ _%rest146500%_) + (letrec ((_%generate-inline146502%_ (lambda () (if (and (let () (declare (not safe)) - (##fx= _%i146393%_ '0)) + (##fx= _%i146499%_ '0)) (not (let () (declare (not safe)) - (gx#stx-pair? _%rest146394%_)))) + (gx#stx-pair? _%rest146500%_)))) (cons 'if - (cons (cons '##values? (cons _%var146392%_ '())) - (cons (cons '##vector-ref - (cons _%var146392%_ + (cons (cons '##values? (cons _%var146498%_ '())) + (cons (cons '##values-ref + (cons _%var146498%_ (cons '0 '()))) - (cons _%var146392%_ '())))) - (cons '##vector-ref - (cons _%var146392%_ (cons _%i146393%_ '()))))))) + (cons _%var146498%_ '())))) + (cons '##values-ref + (cons _%var146498%_ (cons _%i146499%_ '()))))))) (if (gxc#current-compile-decls-unsafe?) - (_%generate-inline146396%_) + (_%generate-inline146502%_) (cons 'let (cons '() (cons '(declare (not safe)) - (cons (_%generate-inline146396%_) '())))))))) + (cons (_%generate-inline146502%_) '())))))))) (define gxc#generate-runtime-values->list - (lambda (_%var146386%_ _%i146387%_) - (if (let () (declare (not safe)) (##fx= _%i146387%_ '0)) + (lambda (_%var146492%_ _%i146493%_) + (if (let () (declare (not safe)) (##fx= _%i146493%_ '0)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146386%_ '())) - (cons (cons '##vector->list - (cons _%var146386%_ '())) - (cons (cons 'list (cons _%var146386%_ '())) + (cons (cons '##values? (cons _%var146492%_ '())) + (cons (cons '##values->list + (cons _%var146492%_ '())) + (cons (cons 'list (cons _%var146492%_ '())) '())))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146386%_ + (cons _%var146492%_ '())) - (cons (cons '##vector->list - (cons _%var146386%_ + (cons (cons '##values->list + (cons _%var146492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons 'list (cons _%var146386%_ '())) '())))) + (cons (cons 'list (cons _%var146492%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (if (let () (declare (not safe)) (##fx= _%i146387%_ '1)) + (if (let () (declare (not safe)) (##fx= _%i146493%_ '1)) (if (gxc#current-compile-decls-unsafe?) (cons 'if - (cons (cons '##values? (cons _%var146386%_ '())) + (cons (cons '##values? (cons _%var146492%_ '())) (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var146386%_ + (cons (cons '##values->list + (cons _%var146492%_ '())) '())) (cons ''() '())))) @@ -3304,8267 +3304,8267 @@ (cons '(declare (not safe)) (cons (cons 'if (cons (cons '##values? - (cons _%var146386%_ + (cons _%var146492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '##cdr - (cons (cons '##vector->list - (cons _%var146386%_ '())) + (cons (cons '##values->list + (cons _%var146492%_ '())) '())) (cons ''() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (if (gxc#current-compile-decls-unsafe?) (cons '##list-tail - (cons (cons '##vector->list (cons _%var146386%_ '())) - (cons _%i146387%_ '()))) + (cons (cons '##values->list (cons _%var146492%_ '())) + (cons _%i146493%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##list-tail - (cons (cons '##vector->list - (cons _%var146386%_ + (cons (cons '##values->list + (cons _%var146492%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%i146387%_ '()))) + (cons _%i146493%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))))) (define gxc#generate-runtime-lambda% - (lambda (_%self146318%_ _%stx146319%_) - (let* ((_%g146321146338%_ - (lambda (_%g146322146335%_) + (lambda (_%self146424%_ _%stx146425%_) + (let* ((_%g146427146444%_ + (lambda (_%g146428146441%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g146322146335%_)))) - (_%g146320146383%_ - (lambda (_%g146322146341%_) + _%g146428146441%_)))) + (_%g146426146489%_ + (lambda (_%g146428146447%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g146322146341%_)) - (let ((_%e146325146343%_ + (gx#stx-pair? _%g146428146447%_)) + (let ((_%e146431146449%_ (let () (declare (not safe)) - (gx#stx-e _%g146322146341%_)))) - (let ((_%hd146326146346%_ + (gx#stx-e _%g146428146447%_)))) + (let ((_%hd146432146452%_ (let () (declare (not safe)) - (##car _%e146325146343%_))) - (_%tl146327146348%_ + (##car _%e146431146449%_))) + (_%tl146433146454%_ (let () (declare (not safe)) - (##cdr _%e146325146343%_)))) + (##cdr _%e146431146449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146327146348%_)) - (let ((_%e146328146351%_ + (gx#stx-pair? _%tl146433146454%_)) + (let ((_%e146434146457%_ (let () (declare (not safe)) - (gx#stx-e _%tl146327146348%_)))) - (let ((_%hd146329146354%_ + (gx#stx-e _%tl146433146454%_)))) + (let ((_%hd146435146460%_ (let () (declare (not safe)) - (##car _%e146328146351%_))) - (_%tl146330146356%_ + (##car _%e146434146457%_))) + (_%tl146436146462%_ (let () (declare (not safe)) - (##cdr _%e146328146351%_)))) + (##cdr _%e146434146457%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl146330146356%_)) - (let ((_%e146331146359%_ + (gx#stx-pair? _%tl146436146462%_)) + (let ((_%e146437146465%_ (let () (declare (not safe)) - (gx#stx-e _%tl146330146356%_)))) - (let ((_%hd146332146362%_ + (gx#stx-e _%tl146436146462%_)))) + (let ((_%hd146438146468%_ (let () (declare (not safe)) - (##car _%e146331146359%_))) - (_%tl146333146364%_ + (##car _%e146437146465%_))) + (_%tl146439146470%_ (let () (declare (not safe)) - (##cdr _%e146331146359%_)))) + (##cdr _%e146437146465%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl146333146364%_)) - ((lambda (_%L146367%_ - _%L146368%_) + _%tl146439146470%_)) + ((lambda (_%L146473%_ + _%L146474%_) (gxc#generate-runtime-lambda-form - _%self146318%_ - _%L146368%_ - _%L146367%_)) - _%hd146332146362%_ - _%hd146329146354%_) - (_%g146321146338%_ - _%g146322146341%_)))) - (_%g146321146338%_ _%g146322146341%_)))) - (_%g146321146338%_ _%g146322146341%_)))) - (_%g146321146338%_ _%g146322146341%_))))) - (_%g146320146383%_ _%stx146319%_)))) + _%self146424%_ + _%L146474%_ + _%L146473%_)) + _%hd146438146468%_ + _%hd146435146460%_) + (_%g146427146444%_ + _%g146428146447%_)))) + (_%g146427146444%_ _%g146428146447%_)))) + (_%g146427146444%_ _%g146428146447%_)))) + (_%g146427146444%_ _%g146428146447%_))))) + (_%g146426146489%_ _%stx146425%_)))) (define gxc#generate-runtime-lambda-form - (lambda (_%self146277%_ _%hd146278%_ _%body146279%_) - (let* ((_%hd146281%_ (gxc#generate-runtime-lambda-head _%hd146278%_)) - (_%body146283%_ + (lambda (_%self146383%_ _%hd146384%_ _%body146385%_) + (let* ((_%hd146387%_ (gxc#generate-runtime-lambda-head _%hd146384%_)) + (_%body146389%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self146277%_ _%body146279%_))) - (_%body146315%_ - (let* ((_%body146284146292%_ _%body146283%_) - (_%else146286146300%_ - (lambda () (cons _%body146283%_ '()))) - (_%K146288146305%_ - (lambda (_%exprs146303%_) _%exprs146303%_))) - (if (pair? _%body146284146292%_) - (let ((_%hd146289146308%_ + (gxc#compile-e__1 _%self146383%_ _%body146385%_))) + (_%body146421%_ + (let* ((_%body146390146398%_ _%body146389%_) + (_%else146392146406%_ + (lambda () (cons _%body146389%_ '()))) + (_%K146394146411%_ + (lambda (_%exprs146409%_) _%exprs146409%_))) + (if (pair? _%body146390146398%_) + (let ((_%hd146395146414%_ (let () (declare (not safe)) - (##car _%body146284146292%_))) - (_%tl146290146310%_ + (##car _%body146390146398%_))) + (_%tl146396146416%_ (let () (declare (not safe)) - (##cdr _%body146284146292%_)))) + (##cdr _%body146390146398%_)))) (if (let () (declare (not safe)) - (##eq? _%hd146289146308%_ 'begin)) - (let ((_%exprs146313%_ _%tl146290146310%_)) - (_%K146288146305%_ _%exprs146313%_)) - (_%else146286146300%_))) - (_%else146286146300%_))))) - (cons 'lambda (cons _%hd146281%_ _%body146315%_))))) + (##eq? _%hd146395146414%_ 'begin)) + (let ((_%exprs146419%_ _%tl146396146416%_)) + (_%K146394146411%_ _%exprs146419%_)) + (_%else146392146406%_))) + (_%else146392146406%_))))) + (cons 'lambda (cons _%hd146387%_ _%body146421%_))))) (define gxc#generate-runtime-lambda-head - (lambda (_%hd146275%_) + (lambda (_%hd146381%_) (let () (declare (not safe)) - (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146275%_)))) + (gx#stx-map1 gxc#generate-runtime-binding-id* _%hd146381%_)))) (define gxc#generate-runtime-case-lambda% - (lambda (_%self144814%_ _%stx144815%_) - (letrec ((_%dispatch-case?144817%_ - (lambda (_%hd145505%_ _%body145506%_) - (let* ((_%form145508%_ - (cons _%hd145505%_ (cons _%body145506%_ '()))) - (_%__stx147830147831%_ _%form145508%_) - (_%g145513145670%_ + (lambda (_%self144920%_ _%stx144921%_) + (letrec ((_%dispatch-case?144923%_ + (lambda (_%hd145611%_ _%body145612%_) + (let* ((_%form145614%_ + (cons _%hd145611%_ (cons _%body145612%_ '()))) + (_%__stx147936147937%_ _%form145614%_) + (_%g145619145776%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147830147831%_))))) - (let ((_%__kont147832147833%_ - (lambda (_%L146195%_ _%L146196%_ _%L146197%_) + _%__stx147936147937%_))))) + (let ((_%__kont147938147939%_ + (lambda (_%L146301%_ _%L146302%_ _%L146303%_) '#t)) - (_%__kont147838147839%_ - (lambda (_%L145983%_ - _%L145984%_ - _%L145985%_ - _%L145986%_ - _%L145987%_ - _%L145988%_) + (_%__kont147944147945%_ + (lambda (_%L146089%_ + _%L146090%_ + _%L146091%_ + _%L146092%_ + _%L146093%_ + _%L146094%_) '#t)) - (_%__kont147844147845%_ - (lambda (_%L145778%_ - _%L145779%_ - _%L145780%_ - _%L145781%_) + (_%__kont147950147951%_ + (lambda (_%L145884%_ + _%L145885%_ + _%L145886%_ + _%L145887%_) '#t)) - (_%__kont147846147847%_ (lambda () '#f))) - (let* ((_%__match147971147972%_ - (lambda (_%e145630145682%_ - _%hd145631145685%_ - _%tl145632145687%_ - _%e145633145690%_ - _%hd145634145693%_ - _%tl145635145695%_ - _%e145636145698%_ - _%hd145637145701%_ - _%tl145638145703%_ - _%e145639145706%_ - _%hd145640145709%_ - _%tl145641145711%_ - _%e145642145714%_ - _%hd145643145717%_ - _%tl145644145719%_ - _%e145645145722%_ - _%hd145646145725%_ - _%tl145647145727%_ - _%e145648145730%_ - _%hd145649145733%_ - _%tl145650145735%_ - _%e145651145738%_ - _%hd145652145741%_ - _%tl145653145743%_ - _%e145654145746%_ - _%hd145655145749%_ - _%tl145656145751%_ - _%e145657145754%_ - _%hd145658145757%_ - _%tl145659145759%_ - _%e145660145762%_ - _%hd145661145765%_ - _%tl145662145767%_ - _%e145663145770%_ - _%hd145664145773%_ - _%tl145665145775%_) - (let ((_%L145778%_ _%hd145664145773%_) - (_%L145779%_ _%hd145655145749%_) - (_%L145780%_ _%hd145646145725%_) - (_%L145781%_ _%hd145631145685%_)) + (_%__kont147952147953%_ (lambda () '#f))) + (let* ((_%__match148077148078%_ + (lambda (_%e145736145788%_ + _%hd145737145791%_ + _%tl145738145793%_ + _%e145739145796%_ + _%hd145740145799%_ + _%tl145741145801%_ + _%e145742145804%_ + _%hd145743145807%_ + _%tl145744145809%_ + _%e145745145812%_ + _%hd145746145815%_ + _%tl145747145817%_ + _%e145748145820%_ + _%hd145749145823%_ + _%tl145750145825%_ + _%e145751145828%_ + _%hd145752145831%_ + _%tl145753145833%_ + _%e145754145836%_ + _%hd145755145839%_ + _%tl145756145841%_ + _%e145757145844%_ + _%hd145758145847%_ + _%tl145759145849%_ + _%e145760145852%_ + _%hd145761145855%_ + _%tl145762145857%_ + _%e145763145860%_ + _%hd145764145863%_ + _%tl145765145865%_ + _%e145766145868%_ + _%hd145767145871%_ + _%tl145768145873%_ + _%e145769145876%_ + _%hd145770145879%_ + _%tl145771145881%_) + (let ((_%L145884%_ _%hd145770145879%_) + (_%L145885%_ _%hd145761145855%_) + (_%L145886%_ _%hd145752145831%_) + (_%L145887%_ _%hd145737145791%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L145781%_)) + (gx#identifier? _%L145887%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145780%_ + _%L145886%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145781%_ - _%L145778%_)) + _%L145887%_ + _%L145884%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L145779%_ - _%L145781%_)))) - (_%__kont147844147845%_ - _%L145778%_ - _%L145779%_ - _%L145780%_ - _%L145781%_) - (_%__kont147846147847%_))))) - (_%__match147943147944%_ - (lambda (_%e145630145682%_ - _%hd145631145685%_ - _%tl145632145687%_ - _%e145633145690%_ - _%hd145634145693%_ - _%tl145635145695%_ - _%e145636145698%_ - _%hd145637145701%_ - _%tl145638145703%_ - _%e145639145706%_ - _%hd145640145709%_ - _%tl145641145711%_ - _%e145642145714%_ - _%hd145643145717%_ - _%tl145644145719%_ - _%e145645145722%_ - _%hd145646145725%_ - _%tl145647145727%_ - _%e145648145730%_ - _%hd145649145733%_ - _%tl145650145735%_ - _%e145651145738%_ - _%hd145652145741%_ - _%tl145653145743%_ - _%e145654145746%_ - _%hd145655145749%_ - _%tl145656145751%_) + _%L145885%_ + _%L145887%_)))) + (_%__kont147950147951%_ + _%L145884%_ + _%L145885%_ + _%L145886%_ + _%L145887%_) + (_%__kont147952147953%_))))) + (_%__match148049148050%_ + (lambda (_%e145736145788%_ + _%hd145737145791%_ + _%tl145738145793%_ + _%e145739145796%_ + _%hd145740145799%_ + _%tl145741145801%_ + _%e145742145804%_ + _%hd145743145807%_ + _%tl145744145809%_ + _%e145745145812%_ + _%hd145746145815%_ + _%tl145747145817%_ + _%e145748145820%_ + _%hd145749145823%_ + _%tl145750145825%_ + _%e145751145828%_ + _%hd145752145831%_ + _%tl145753145833%_ + _%e145754145836%_ + _%hd145755145839%_ + _%tl145756145841%_ + _%e145757145844%_ + _%hd145758145847%_ + _%tl145759145849%_ + _%e145760145852%_ + _%hd145761145855%_ + _%tl145762145857%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145650145735%_)) - (let ((_%e145657145754%_ + (gx#stx-pair? _%tl145756145841%_)) + (let ((_%e145763145860%_ (let () (declare (not safe)) - (gx#stx-e _%tl145650145735%_)))) - (let ((_%tl145659145759%_ + (gx#stx-e _%tl145756145841%_)))) + (let ((_%tl145765145865%_ (let () (declare (not safe)) - (##cdr _%e145657145754%_))) - (_%hd145658145757%_ + (##cdr _%e145763145860%_))) + (_%hd145764145863%_ (let () (declare (not safe)) - (##car _%e145657145754%_)))) + (##car _%e145763145860%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145658145757%_)) - (let ((_%e145660145762%_ + _%hd145764145863%_)) + (let ((_%e145766145868%_ (let () (declare (not safe)) (gx#stx-e - _%hd145658145757%_)))) - (let ((_%tl145662145767%_ + _%hd145764145863%_)))) + (let ((_%tl145768145873%_ (let () (declare (not safe)) - (##cdr _%e145660145762%_))) - (_%hd145661145765%_ + (##cdr _%e145766145868%_))) + (_%hd145767145871%_ (let () (declare (not safe)) - (##car _%e145660145762%_)))) + (##car _%e145766145868%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145661145765%_)) + _%hd145767145871%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145661145765%_)) + _%hd145767145871%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145662145767%_)) - (let ((_%e145663145770%_ + (gx#stx-pair? _%tl145768145873%_)) + (let ((_%e145769145876%_ (let () (declare (not safe)) - (gx#stx-e _%tl145662145767%_)))) - (let ((_%tl145665145775%_ + (gx#stx-e _%tl145768145873%_)))) + (let ((_%tl145771145881%_ (let () (declare (not safe)) - (##cdr _%e145663145770%_))) - (_%hd145664145773%_ + (##cdr _%e145769145876%_))) + (_%hd145770145879%_ (let () (declare (not safe)) - (##car _%e145663145770%_)))) + (##car _%e145769145876%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145665145775%_)) + (gx#stx-null? _%tl145771145881%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145659145759%_)) + (gx#stx-null? _%tl145765145865%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145635145695%_)) - (_%__match147971147972%_ - _%e145630145682%_ - _%hd145631145685%_ - _%tl145632145687%_ - _%e145633145690%_ - _%hd145634145693%_ - _%tl145635145695%_ - _%e145636145698%_ - _%hd145637145701%_ - _%tl145638145703%_ - _%e145639145706%_ - _%hd145640145709%_ - _%tl145641145711%_ - _%e145642145714%_ - _%hd145643145717%_ - _%tl145644145719%_ - _%e145645145722%_ - _%hd145646145725%_ - _%tl145647145727%_ - _%e145648145730%_ - _%hd145649145733%_ - _%tl145650145735%_ - _%e145651145738%_ - _%hd145652145741%_ - _%tl145653145743%_ - _%e145654145746%_ - _%hd145655145749%_ - _%tl145656145751%_ - _%e145657145754%_ - _%hd145658145757%_ - _%tl145659145759%_ - _%e145660145762%_ - _%hd145661145765%_ - _%tl145662145767%_ - _%e145663145770%_ - _%hd145664145773%_ - _%tl145665145775%_) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__match147873147874%_ - (lambda (_%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%__splice147840147841%_ - _%target145569145831%_ - _%tl145571145833%_) - (letrec ((_%loop145572145836%_ - (lambda (_%hd145570145839%_ - _%arg145576145841%_) + (gx#stx-null? _%tl145741145801%_)) + (_%__match148077148078%_ + _%e145736145788%_ + _%hd145737145791%_ + _%tl145738145793%_ + _%e145739145796%_ + _%hd145740145799%_ + _%tl145741145801%_ + _%e145742145804%_ + _%hd145743145807%_ + _%tl145744145809%_ + _%e145745145812%_ + _%hd145746145815%_ + _%tl145747145817%_ + _%e145748145820%_ + _%hd145749145823%_ + _%tl145750145825%_ + _%e145751145828%_ + _%hd145752145831%_ + _%tl145753145833%_ + _%e145754145836%_ + _%hd145755145839%_ + _%tl145756145841%_ + _%e145757145844%_ + _%hd145758145847%_ + _%tl145759145849%_ + _%e145760145852%_ + _%hd145761145855%_ + _%tl145762145857%_ + _%e145763145860%_ + _%hd145764145863%_ + _%tl145765145865%_ + _%e145766145868%_ + _%hd145767145871%_ + _%tl145768145873%_ + _%e145769145876%_ + _%hd145770145879%_ + _%tl145771145881%_) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__match147979147980%_ + (lambda (_%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%__splice147946147947%_ + _%target145675145937%_ + _%tl145677145939%_) + (letrec ((_%loop145678145942%_ + (lambda (_%hd145676145945%_ + _%arg145682145947%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145570145839%_)) - (let ((_%e145573145844%_ + _%hd145676145945%_)) + (let ((_%e145679145950%_ (let () (declare (not safe)) (gx#stx-e - _%hd145570145839%_)))) - (let ((_%lp-tl145575145849%_ + _%hd145676145945%_)))) + (let ((_%lp-tl145681145955%_ (let () (declare (not safe)) - (##cdr _%e145573145844%_))) - (_%lp-hd145574145847%_ + (##cdr _%e145679145950%_))) + (_%lp-hd145680145953%_ (let () (declare (not safe)) - (##car _%e145573145844%_)))) - (_%loop145572145836%_ - _%lp-tl145575145849%_ - (cons _%lp-hd145574145847%_ - _%arg145576145841%_)))) - (let ((_%arg145577145852%_ - (reverse _%arg145576145841%_))) + (##car _%e145679145950%_)))) + (_%loop145678145942%_ + _%lp-tl145681145955%_ + (cons _%lp-hd145680145953%_ + _%arg145682145947%_)))) + (let ((_%arg145683145958%_ + (reverse _%arg145682145947%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145568145828%_)) - (let ((_%e145578145855%_ + _%tl145674145934%_)) + (let ((_%e145684145961%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145568145828%_)))) - (let ((_%tl145580145860%_ + (gx#stx-e _%tl145674145934%_)))) + (let ((_%tl145686145966%_ (let () (declare (not safe)) - (##cdr _%e145578145855%_))) - (_%hd145579145858%_ + (##cdr _%e145684145961%_))) + (_%hd145685145964%_ (let () (declare (not safe)) - (##car _%e145578145855%_)))) + (##car _%e145684145961%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145579145858%_)) - (let ((_%e145581145863%_ + (gx#stx-pair? _%hd145685145964%_)) + (let ((_%e145687145969%_ (let () (declare (not safe)) - (gx#stx-e _%hd145579145858%_)))) - (let ((_%tl145583145868%_ + (gx#stx-e _%hd145685145964%_)))) + (let ((_%tl145689145974%_ (let () (declare (not safe)) - (##cdr _%e145581145863%_))) - (_%hd145582145866%_ + (##cdr _%e145687145969%_))) + (_%hd145688145972%_ (let () (declare (not safe)) - (##car _%e145581145863%_)))) + (##car _%e145687145969%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145582145866%_)) + (gx#identifier? _%hd145688145972%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145582145866%_)) + (gx#stx-eq? '%#call _%hd145688145972%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145583145868%_)) - (let ((_%e145584145871%_ + (gx#stx-pair? _%tl145689145974%_)) + (let ((_%e145690145977%_ (let () (declare (not safe)) (gx#stx-e - _%tl145583145868%_)))) - (let ((_%tl145586145876%_ + _%tl145689145974%_)))) + (let ((_%tl145692145982%_ (let () (declare (not safe)) - (##cdr _%e145584145871%_))) - (_%hd145585145874%_ + (##cdr _%e145690145977%_))) + (_%hd145691145980%_ (let () (declare (not safe)) - (##car _%e145584145871%_)))) + (##car _%e145690145977%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145585145874%_)) - (let ((_%e145587145879%_ + _%hd145691145980%_)) + (let ((_%e145693145985%_ (let () (declare (not safe)) (gx#stx-e - _%hd145585145874%_)))) - (let ((_%tl145589145884%_ + _%hd145691145980%_)))) + (let ((_%tl145695145990%_ (let () (declare (not safe)) - (##cdr _%e145587145879%_))) - (_%hd145588145882%_ + (##cdr _%e145693145985%_))) + (_%hd145694145988%_ (let () (declare (not safe)) - (##car _%e145587145879%_)))) + (##car _%e145693145985%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145588145882%_)) + _%hd145694145988%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145588145882%_)) + _%hd145694145988%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145589145884%_)) - (let ((_%e145590145887%_ + (gx#stx-pair? _%tl145695145990%_)) + (let ((_%e145696145993%_ (let () (declare (not safe)) - (gx#stx-e _%tl145589145884%_)))) - (let ((_%tl145592145892%_ + (gx#stx-e _%tl145695145990%_)))) + (let ((_%tl145698145998%_ (let () (declare (not safe)) - (##cdr _%e145590145887%_))) - (_%hd145591145890%_ + (##cdr _%e145696145993%_))) + (_%hd145697145996%_ (let () (declare (not safe)) - (##car _%e145590145887%_)))) + (##car _%e145696145993%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145592145892%_)) + (gx#stx-null? _%tl145698145998%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145586145876%_)) - (let ((_%e145593145895%_ + (gx#stx-pair? _%tl145692145982%_)) + (let ((_%e145699146001%_ (let () (declare (not safe)) - (gx#stx-e _%tl145586145876%_)))) - (let ((_%tl145595145900%_ + (gx#stx-e _%tl145692145982%_)))) + (let ((_%tl145701146006%_ (let () (declare (not safe)) - (##cdr _%e145593145895%_))) - (_%hd145594145898%_ + (##cdr _%e145699146001%_))) + (_%hd145700146004%_ (let () (declare (not safe)) - (##car _%e145593145895%_)))) + (##car _%e145699146001%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145594145898%_)) - (let ((_%e145596145903%_ + _%hd145700146004%_)) + (let ((_%e145702146009%_ (let () (declare (not safe)) (gx#stx-e - _%hd145594145898%_)))) - (let ((_%tl145598145908%_ + _%hd145700146004%_)))) + (let ((_%tl145704146014%_ (let () (declare (not safe)) - (##cdr _%e145596145903%_))) - (_%hd145597145906%_ + (##cdr _%e145702146009%_))) + (_%hd145703146012%_ (let () (declare (not safe)) - (##car _%e145596145903%_)))) + (##car _%e145702146009%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145597145906%_)) + _%hd145703146012%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145597145906%_)) + _%hd145703146012%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145598145908%_)) - (let ((_%e145599145911%_ + _%tl145704146014%_)) + (let ((_%e145705146017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145598145908%_)))) - (let ((_%tl145601145916%_ + (gx#stx-e _%tl145704146014%_)))) + (let ((_%tl145707146022%_ (let () (declare (not safe)) - (##cdr _%e145599145911%_))) - (_%hd145600145914%_ + (##cdr _%e145705146017%_))) + (_%hd145706146020%_ (let () (declare (not safe)) - (##car _%e145599145911%_)))) + (##car _%e145705146017%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145601145916%_)) + (gx#stx-null? _%tl145707146022%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145595145900%_)) - (if (let ((__tmp149112 + (gx#stx-pair/null? _%tl145701146006%_)) + (if (let ((__tmp149218 (let () (declare (not safe)) (gx#stx-length - _%tl145595145900%_)))) + _%tl145701146006%_)))) (declare (not safe)) - (##fx>= __tmp149112 '1)) - (let ((_%__splice147842147843%_ + (##fx>= __tmp149218 '1)) + (let ((_%__splice147948147949%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145595145900%_ + _%tl145701146006%_ '1)))) - (let ((_%tl145604145921%_ + (let ((_%tl145710146027%_ (let () (declare (not safe)) (##vector-ref - _%__splice147842147843%_ + _%__splice147948147949%_ '1))) - (_%target145602145919%_ + (_%target145708146025%_ (let () (declare (not safe)) (##vector-ref - _%__splice147842147843%_ + _%__splice147948147949%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145604145921%_)) - (let ((_%e145611145924%_ + _%tl145710146027%_)) + (let ((_%e145717146030%_ (let () (declare (not safe)) (gx#stx-e - _%tl145604145921%_)))) - (let ((_%tl145613145929%_ + _%tl145710146027%_)))) + (let ((_%tl145719146035%_ (let () (declare (not safe)) - (##cdr _%e145611145924%_))) - (_%hd145612145927%_ + (##cdr _%e145717146030%_))) + (_%hd145718146033%_ (let () (declare (not safe)) - (##car _%e145611145924%_)))) + (##car _%e145717146030%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145612145927%_)) - (let ((_%e145614145932%_ + _%hd145718146033%_)) + (let ((_%e145720146038%_ (let () (declare (not safe)) (gx#stx-e - _%hd145612145927%_)))) - (let ((_%tl145616145937%_ + _%hd145718146033%_)))) + (let ((_%tl145722146043%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e145614145932%_))) - (_%hd145615145935%_ - (let () (declare (not safe)) (##car _%e145614145932%_)))) + (##cdr _%e145720146038%_))) + (_%hd145721146041%_ + (let () (declare (not safe)) (##car _%e145720146038%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145615145935%_)) + (gx#identifier? _%hd145721146041%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145615145935%_)) + (gx#stx-eq? '%#ref _%hd145721146041%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145616145937%_)) - (let ((_%e145617145940%_ + (gx#stx-pair? _%tl145722146043%_)) + (let ((_%e145723146046%_ (let () (declare (not safe)) - (gx#stx-e _%tl145616145937%_)))) - (let ((_%tl145619145945%_ + (gx#stx-e _%tl145722146043%_)))) + (let ((_%tl145725146051%_ (let () (declare (not safe)) - (##cdr _%e145617145940%_))) - (_%hd145618145943%_ + (##cdr _%e145723146046%_))) + (_%hd145724146049%_ (let () (declare (not safe)) - (##car _%e145617145940%_)))) + (##car _%e145723146046%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145619145945%_)) + (gx#stx-null? _%tl145725146051%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145613145929%_)) - (letrec ((_%loop145605145948%_ - (lambda (_%hd145603145951%_ - _%xarg145609145953%_) + (gx#stx-null? _%tl145719146035%_)) + (letrec ((_%loop145711146054%_ + (lambda (_%hd145709146057%_ + _%xarg145715146059%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145603145951%_)) - (let ((_%e145606145956%_ + _%hd145709146057%_)) + (let ((_%e145712146062%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd145603145951%_)))) - (let ((_%lp-tl145608145961%_ + (gx#stx-e _%hd145709146057%_)))) + (let ((_%lp-tl145714146067%_ (let () (declare (not safe)) - (##cdr _%e145606145956%_))) - (_%lp-hd145607145959%_ + (##cdr _%e145712146062%_))) + (_%lp-hd145713146065%_ (let () (declare (not safe)) - (##car _%e145606145956%_)))) + (##car _%e145712146062%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145607145959%_)) - (let ((_%e145620145964%_ + (gx#stx-pair? _%lp-hd145713146065%_)) + (let ((_%e145726146070%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145607145959%_)))) - (let ((_%tl145622145969%_ + (gx#stx-e _%lp-hd145713146065%_)))) + (let ((_%tl145728146075%_ (let () (declare (not safe)) - (##cdr _%e145620145964%_))) - (_%hd145621145967%_ + (##cdr _%e145726146070%_))) + (_%hd145727146073%_ (let () (declare (not safe)) - (##car _%e145620145964%_)))) + (##car _%e145726146070%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145621145967%_)) + (gx#identifier? _%hd145727146073%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145621145967%_)) + (gx#stx-eq? '%#ref _%hd145727146073%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145622145969%_)) - (let ((_%e145623145972%_ + (gx#stx-pair? _%tl145728146075%_)) + (let ((_%e145729146078%_ (let () (declare (not safe)) (gx#stx-e - _%tl145622145969%_)))) - (let ((_%tl145625145977%_ + _%tl145728146075%_)))) + (let ((_%tl145731146083%_ (let () (declare (not safe)) - (##cdr _%e145623145972%_))) - (_%hd145624145975%_ + (##cdr _%e145729146078%_))) + (_%hd145730146081%_ (let () (declare (not safe)) - (##car _%e145623145972%_)))) + (##car _%e145729146078%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145625145977%_)) - (_%loop145605145948%_ - _%lp-tl145608145961%_ - (cons _%hd145624145975%_ - _%xarg145609145953%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (let ((_%xarg145610145980%_ (reverse _%xarg145609145953%_))) + _%tl145731146083%_)) + (_%loop145711146054%_ + _%lp-tl145714146067%_ + (cons _%hd145730146081%_ + _%xarg145715146059%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (let ((_%xarg145716146086%_ (reverse _%xarg145715146059%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145580145860%_)) - (let ((_%L145983%_ _%hd145618145943%_) - (_%L145984%_ _%xarg145610145980%_) - (_%L145985%_ _%hd145600145914%_) - (_%L145986%_ _%hd145591145890%_) - (_%L145987%_ _%tl145571145833%_) - (_%L145988%_ _%arg145577145852%_)) - (if (and (let ((__tmp149113 - (let ((__tmp149114 - (lambda (_%g146031146034%_ - _%g146032146036%_) - (cons _%g146031146034%_ - _%g146032146036%_)))) + (gx#stx-null? _%tl145686145966%_)) + (let ((_%L146089%_ _%hd145724146049%_) + (_%L146090%_ _%xarg145716146086%_) + (_%L146091%_ _%hd145706146020%_) + (_%L146092%_ _%hd145697145996%_) + (_%L146093%_ _%tl145677145939%_) + (_%L146094%_ _%arg145683145958%_)) + (if (and (let ((__tmp149219 + (let ((__tmp149220 + (lambda (_%g146137146140%_ + _%g146138146142%_) + (cons _%g146137146140%_ + _%g146138146142%_)))) (declare (not safe)) (__foldr1 - __tmp149114 + __tmp149220 '() - _%L145988%_)))) + _%L146094%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149113)) + (gx#identifier-list? __tmp149219)) (let () (declare (not safe)) - (gx#identifier? _%L145987%_)) + (gx#identifier? _%L146093%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L145986%_ + _%L146092%_ 'apply)) - (let ((__tmp149117 - (length (let ((__tmp149118 - (lambda (_%g146038146041%_ - _%g146039146043%_) - (cons _%g146038146041%_ - _%g146039146043%_)))) + (let ((__tmp149223 + (length (let ((__tmp149224 + (lambda (_%g146144146147%_ + _%g146145146149%_) + (cons _%g146144146147%_ + _%g146145146149%_)))) (declare (not safe)) (__foldr1 - __tmp149118 + __tmp149224 '() - _%L145988%_)))) - (__tmp149115 - (length (let ((__tmp149116 - (lambda (_%g146045146048%_ - _%g146046146050%_) - (cons _%g146045146048%_ - _%g146046146050%_)))) + _%L146094%_)))) + (__tmp149221 + (length (let ((__tmp149222 + (lambda (_%g146151146154%_ + _%g146152146156%_) + (cons _%g146151146154%_ + _%g146152146156%_)))) (declare (not safe)) (__foldr1 - __tmp149116 + __tmp149222 '() - _%L145984%_))))) + _%L146090%_))))) (declare (not safe)) - (##fx= __tmp149117 __tmp149115)) - (let ((__tmp149121 - (let ((__tmp149122 - (lambda (_%g146052146055%_ - _%g146053146057%_) - (cons _%g146052146055%_ - _%g146053146057%_)))) + (##fx= __tmp149223 __tmp149221)) + (let ((__tmp149227 + (let ((__tmp149228 + (lambda (_%g146158146161%_ + _%g146159146163%_) + (cons _%g146158146161%_ + _%g146159146163%_)))) (declare (not safe)) (__foldr1 - __tmp149122 + __tmp149228 '() - _%L145988%_))) - (__tmp149119 - (let ((__tmp149120 - (lambda (_%g146059146062%_ - _%g146060146064%_) - (cons _%g146059146062%_ - _%g146060146064%_)))) + _%L146094%_))) + (__tmp149225 + (let ((__tmp149226 + (lambda (_%g146165146168%_ + _%g146166146170%_) + (cons _%g146165146168%_ + _%g146166146170%_)))) (declare (not safe)) (__foldr1 - __tmp149120 + __tmp149226 '() - _%L145984%_)))) + _%L146090%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149121 - __tmp149119)) + __tmp149227 + __tmp149225)) (let () (declare (not safe)) (gx#free-identifier=? - _%L145987%_ - _%L145983%_)) - (not (let ((__tmp149126 - (lambda (_%g146066146068%_) + _%L146093%_ + _%L146089%_)) + (not (let ((__tmp149232 + (lambda (_%g146172146174%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146066146068%_ - _%L145985%_)))) - (__tmp149123 - (let ((__tmp149125 - (lambda (_%g146070146073%_ - _%g146071146075%_) - (cons _%g146070146073%_ - _%g146071146075%_))) - (__tmp149124 - (cons _%L145987%_ '()))) + _%g146172146174%_ + _%L146091%_)))) + (__tmp149229 + (let ((__tmp149231 + (lambda (_%g146176146179%_ + _%g146177146181%_) + (cons _%g146176146179%_ + _%g146177146181%_))) + (__tmp149230 + (cons _%L146093%_ '()))) (declare (not safe)) (__foldr1 - __tmp149125 - __tmp149124 - _%L145988%_)))) + __tmp149231 + __tmp149230 + _%L146094%_)))) (declare (not safe)) - (__find __tmp149126 __tmp149123)))) - (_%__kont147838147839%_ - _%L145983%_ - _%L145984%_ - _%L145985%_ - _%L145986%_ - _%L145987%_ - _%L145988%_) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145605145948%_ - _%target145602145919%_ + (__find __tmp149232 __tmp149229)))) + (_%__kont147944147945%_ + _%L146089%_ + _%L146090%_ + _%L146091%_ + _%L146092%_ + _%L146093%_ + _%L146094%_) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145711146054%_ + _%target145708146025%_ '())) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)))) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__match147943147944%_ - _%e145566145823%_ - _%hd145567145826%_ - _%tl145568145828%_ - _%e145578145855%_ - _%hd145579145858%_ - _%tl145580145860%_ - _%e145581145863%_ - _%hd145582145866%_ - _%tl145583145868%_ - _%e145584145871%_ - _%hd145585145874%_ - _%tl145586145876%_ - _%e145587145879%_ - _%hd145588145882%_ - _%tl145589145884%_ - _%e145590145887%_ - _%hd145591145890%_ - _%tl145592145892%_ - _%e145593145895%_ - _%hd145594145898%_ - _%tl145595145900%_ - _%e145596145903%_ - _%hd145597145906%_ - _%tl145598145908%_ - _%e145599145911%_ - _%hd145600145914%_ - _%tl145601145916%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145572145836%_ - _%target145569145831%_ + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)))) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__match148049148050%_ + _%e145672145929%_ + _%hd145673145932%_ + _%tl145674145934%_ + _%e145684145961%_ + _%hd145685145964%_ + _%tl145686145966%_ + _%e145687145969%_ + _%hd145688145972%_ + _%tl145689145974%_ + _%e145690145977%_ + _%hd145691145980%_ + _%tl145692145982%_ + _%e145693145985%_ + _%hd145694145988%_ + _%tl145695145990%_ + _%e145696145993%_ + _%hd145697145996%_ + _%tl145698145998%_ + _%e145699146001%_ + _%hd145700146004%_ + _%tl145701146006%_ + _%e145702146009%_ + _%hd145703146012%_ + _%tl145704146014%_ + _%e145705146017%_ + _%hd145706146020%_ + _%tl145707146022%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145678145942%_ + _%target145675145937%_ '())))) - (_%__match147861147862%_ - (lambda (_%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_) - (letrec ((_%loop145524146096%_ - (lambda (_%hd145522146099%_ - _%arg145528146101%_) + (_%__match147967147968%_ + (lambda (_%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_) + (letrec ((_%loop145630146202%_ + (lambda (_%hd145628146205%_ + _%arg145634146207%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145522146099%_)) - (let ((_%e145525146104%_ + _%hd145628146205%_)) + (let ((_%e145631146210%_ (let () (declare (not safe)) (gx#stx-e - _%hd145522146099%_)))) - (let ((_%lp-tl145527146109%_ + _%hd145628146205%_)))) + (let ((_%lp-tl145633146215%_ (let () (declare (not safe)) - (##cdr _%e145525146104%_))) - (_%lp-hd145526146107%_ + (##cdr _%e145631146210%_))) + (_%lp-hd145632146213%_ (let () (declare (not safe)) - (##car _%e145525146104%_)))) - (_%loop145524146096%_ - _%lp-tl145527146109%_ - (cons _%lp-hd145526146107%_ - _%arg145528146101%_)))) - (let ((_%arg145529146112%_ - (reverse _%arg145528146101%_))) + (##car _%e145631146210%_)))) + (_%loop145630146202%_ + _%lp-tl145633146215%_ + (cons _%lp-hd145632146213%_ + _%arg145634146207%_)))) + (let ((_%arg145635146218%_ + (reverse _%arg145634146207%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145520146088%_)) - (let ((_%e145530146115%_ + _%tl145626146194%_)) + (let ((_%e145636146221%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145520146088%_)))) - (let ((_%tl145532146120%_ + (gx#stx-e _%tl145626146194%_)))) + (let ((_%tl145638146226%_ (let () (declare (not safe)) - (##cdr _%e145530146115%_))) - (_%hd145531146118%_ + (##cdr _%e145636146221%_))) + (_%hd145637146224%_ (let () (declare (not safe)) - (##car _%e145530146115%_)))) + (##car _%e145636146221%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145531146118%_)) - (let ((_%e145533146123%_ + (gx#stx-pair? _%hd145637146224%_)) + (let ((_%e145639146229%_ (let () (declare (not safe)) - (gx#stx-e _%hd145531146118%_)))) - (let ((_%tl145535146128%_ + (gx#stx-e _%hd145637146224%_)))) + (let ((_%tl145641146234%_ (let () (declare (not safe)) - (##cdr _%e145533146123%_))) - (_%hd145534146126%_ + (##cdr _%e145639146229%_))) + (_%hd145640146232%_ (let () (declare (not safe)) - (##car _%e145533146123%_)))) + (##car _%e145639146229%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145534146126%_)) + (gx#identifier? _%hd145640146232%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145534146126%_)) + (gx#stx-eq? '%#call _%hd145640146232%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145535146128%_)) - (let ((_%e145536146131%_ + (gx#stx-pair? _%tl145641146234%_)) + (let ((_%e145642146237%_ (let () (declare (not safe)) (gx#stx-e - _%tl145535146128%_)))) - (let ((_%tl145538146136%_ + _%tl145641146234%_)))) + (let ((_%tl145644146242%_ (let () (declare (not safe)) - (##cdr _%e145536146131%_))) - (_%hd145537146134%_ + (##cdr _%e145642146237%_))) + (_%hd145643146240%_ (let () (declare (not safe)) - (##car _%e145536146131%_)))) + (##car _%e145642146237%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145537146134%_)) - (let ((_%e145539146139%_ + _%hd145643146240%_)) + (let ((_%e145645146245%_ (let () (declare (not safe)) (gx#stx-e - _%hd145537146134%_)))) - (let ((_%tl145541146144%_ + _%hd145643146240%_)))) + (let ((_%tl145647146250%_ (let () (declare (not safe)) - (##cdr _%e145539146139%_))) - (_%hd145540146142%_ + (##cdr _%e145645146245%_))) + (_%hd145646146248%_ (let () (declare (not safe)) - (##car _%e145539146139%_)))) + (##car _%e145645146245%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145540146142%_)) + _%hd145646146248%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145540146142%_)) + _%hd145646146248%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145541146144%_)) - (let ((_%e145542146147%_ + (gx#stx-pair? _%tl145647146250%_)) + (let ((_%e145648146253%_ (let () (declare (not safe)) - (gx#stx-e _%tl145541146144%_)))) - (let ((_%tl145544146152%_ + (gx#stx-e _%tl145647146250%_)))) + (let ((_%tl145650146258%_ (let () (declare (not safe)) - (##cdr _%e145542146147%_))) - (_%hd145543146150%_ + (##cdr _%e145648146253%_))) + (_%hd145649146256%_ (let () (declare (not safe)) - (##car _%e145542146147%_)))) + (##car _%e145648146253%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145544146152%_)) + (gx#stx-null? _%tl145650146258%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145538146136%_)) - (let ((_%__splice147836147837%_ + (gx#stx-pair/null? _%tl145644146242%_)) + (let ((_%__splice147942147943%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145538146136%_ + _%tl145644146242%_ '0)))) - (let ((_%tl145547146157%_ + (let ((_%tl145653146263%_ (let () (declare (not safe)) (##vector-ref - _%__splice147836147837%_ + _%__splice147942147943%_ '1))) - (_%target145545146155%_ + (_%target145651146261%_ (let () (declare (not safe)) (##vector-ref - _%__splice147836147837%_ + _%__splice147942147943%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145547146157%_)) - (letrec ((_%loop145548146160%_ - (lambda (_%hd145546146163%_ - _%xarg145552146165%_) + _%tl145653146263%_)) + (letrec ((_%loop145654146266%_ + (lambda (_%hd145652146269%_ + _%xarg145658146271%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145546146163%_)) - (let ((_%e145549146168%_ + _%hd145652146269%_)) + (let ((_%e145655146274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145546146163%_)))) - (let ((_%lp-tl145551146173%_ + (gx#stx-e _%hd145652146269%_)))) + (let ((_%lp-tl145657146279%_ (let () (declare (not safe)) - (##cdr _%e145549146168%_))) - (_%lp-hd145550146171%_ + (##cdr _%e145655146274%_))) + (_%lp-hd145656146277%_ (let () (declare (not safe)) - (##car _%e145549146168%_)))) + (##car _%e145655146274%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145550146171%_)) - (let ((_%e145554146176%_ + (gx#stx-pair? _%lp-hd145656146277%_)) + (let ((_%e145660146282%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145550146171%_)))) - (let ((_%tl145556146181%_ + (gx#stx-e _%lp-hd145656146277%_)))) + (let ((_%tl145662146287%_ (let () (declare (not safe)) - (##cdr _%e145554146176%_))) - (_%hd145555146179%_ + (##cdr _%e145660146282%_))) + (_%hd145661146285%_ (let () (declare (not safe)) - (##car _%e145554146176%_)))) + (##car _%e145660146282%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145555146179%_)) + (gx#identifier? _%hd145661146285%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145555146179%_)) + _%hd145661146285%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145556146181%_)) - (let ((_%e145557146184%_ + _%tl145662146287%_)) + (let ((_%e145663146290%_ (let () (declare (not safe)) (gx#stx-e - _%tl145556146181%_)))) - (let ((_%tl145559146189%_ + _%tl145662146287%_)))) + (let ((_%tl145665146295%_ (let () (declare (not safe)) - (##cdr _%e145557146184%_))) - (_%hd145558146187%_ + (##cdr _%e145663146290%_))) + (_%hd145664146293%_ (let () (declare (not safe)) - (##car _%e145557146184%_)))) + (##car _%e145663146290%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145559146189%_)) - (_%loop145548146160%_ - _%lp-tl145551146173%_ - (cons _%hd145558146187%_ - _%xarg145552146165%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (let ((_%xarg145553146192%_ - (reverse _%xarg145552146165%_))) + _%tl145665146295%_)) + (_%loop145654146266%_ + _%lp-tl145657146279%_ + (cons _%hd145664146293%_ + _%xarg145658146271%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (let ((_%xarg145659146298%_ + (reverse _%xarg145658146271%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145532146120%_)) - (let ((_%L146195%_ _%xarg145553146192%_) - (_%L146196%_ _%hd145543146150%_) - (_%L146197%_ _%arg145529146112%_)) - (if (and (let ((__tmp149127 - (let ((__tmp149128 - (lambda (_%g146225146228%_ - _%g146226146230%_) - (cons _%g146225146228%_ - _%g146226146230%_)))) + (gx#stx-null? _%tl145638146226%_)) + (let ((_%L146301%_ _%xarg145659146298%_) + (_%L146302%_ _%hd145649146256%_) + (_%L146303%_ _%arg145635146218%_)) + (if (and (let ((__tmp149233 + (let ((__tmp149234 + (lambda (_%g146331146334%_ + _%g146332146336%_) + (cons _%g146331146334%_ + _%g146332146336%_)))) (declare (not safe)) (__foldr1 - __tmp149128 + __tmp149234 '() - _%L146197%_)))) + _%L146303%_)))) (declare (not safe)) - (gx#identifier-list? __tmp149127)) - (let ((__tmp149131 - (length (let ((__tmp149132 - (lambda (_%g146232146235%_ + (gx#identifier-list? __tmp149233)) + (let ((__tmp149237 + (length (let ((__tmp149238 + (lambda (_%g146338146341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146233146237%_) - (cons _%g146232146235%_ _%g146233146237%_)))) + _%g146339146343%_) + (cons _%g146338146341%_ _%g146339146343%_)))) (declare (not safe)) - (__foldr1 __tmp149132 '() _%L146197%_)))) + (__foldr1 __tmp149238 '() _%L146303%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149129 - (length (let ((__tmp149130 - (lambda (_%g146239146242%_ + (__tmp149235 + (length (let ((__tmp149236 + (lambda (_%g146345146348%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146240146244%_) - (cons _%g146239146242%_ _%g146240146244%_)))) + _%g146346146350%_) + (cons _%g146345146348%_ _%g146346146350%_)))) (declare (not safe)) - (__foldr1 __tmp149130 '() _%L146195%_))))) + (__foldr1 __tmp149236 '() _%L146301%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149131 __tmp149129)) - (let ((__tmp149135 - (let ((__tmp149136 - (lambda (_%g146246146249%_ - _%g146247146251%_) - (cons _%g146246146249%_ - _%g146247146251%_)))) + (##fx= __tmp149237 __tmp149235)) + (let ((__tmp149241 + (let ((__tmp149242 + (lambda (_%g146352146355%_ + _%g146353146357%_) + (cons _%g146352146355%_ + _%g146353146357%_)))) (declare (not safe)) (__foldr1 - __tmp149136 + __tmp149242 '() - _%L146197%_))) - (__tmp149133 - (let ((__tmp149134 - (lambda (_%g146253146256%_ - _%g146254146258%_) - (cons _%g146253146256%_ - _%g146254146258%_)))) + _%L146303%_))) + (__tmp149239 + (let ((__tmp149240 + (lambda (_%g146359146362%_ + _%g146360146364%_) + (cons _%g146359146362%_ + _%g146360146364%_)))) (declare (not safe)) (__foldr1 - __tmp149134 + __tmp149240 '() - _%L146195%_)))) + _%L146301%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp149135 - __tmp149133)) - (not (let ((__tmp149139 - (lambda (_%g146260146262%_) + __tmp149241 + __tmp149239)) + (not (let ((__tmp149245 + (lambda (_%g146366146368%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g146260146262%_ - _%L146196%_)))) - (__tmp149137 - (let ((__tmp149138 - (lambda (_%g146264146267%_ + _%g146366146368%_ + _%L146302%_)))) + (__tmp149243 + (let ((__tmp149244 + (lambda (_%g146370146373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g146265146269%_) - (cons _%g146264146267%_ _%g146265146269%_)))) + _%g146371146375%_) + (cons _%g146370146373%_ _%g146371146375%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp149138 + __tmp149244 '() - _%L146197%_)))) + _%L146303%_)))) (declare (not safe)) - (__find __tmp149139 __tmp149137)))) - (_%__kont147832147833%_ - _%L146195%_ - _%L146196%_ - _%L146197%_) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145548146160%_ - _%target145545146155%_ + (__find __tmp149245 __tmp149243)))) + (_%__kont147938147939%_ + _%L146301%_ + _%L146302%_ + _%L146303%_) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145654146266%_ + _%target145651146261%_ '())) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145524146096%_ - _%target145521146091%_ + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145630146202%_ + _%target145627146197%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147830147831%_)) - (let ((_%e145518146083%_ + (gx#stx-pair? _%__stx147936147937%_)) + (let ((_%e145624146189%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147830147831%_)))) - (let ((_%tl145520146088%_ + (gx#stx-e _%__stx147936147937%_)))) + (let ((_%tl145626146194%_ (let () (declare (not safe)) - (##cdr _%e145518146083%_))) - (_%hd145519146086%_ + (##cdr _%e145624146189%_))) + (_%hd145625146192%_ (let () (declare (not safe)) - (##car _%e145518146083%_)))) + (##car _%e145624146189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd145519146086%_)) - (let ((_%__splice147834147835%_ + (gx#stx-pair/null? _%hd145625146192%_)) + (let ((_%__splice147940147941%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd145519146086%_ + _%hd145625146192%_ '0)))) - (let ((_%tl145523146093%_ + (let ((_%tl145629146199%_ (let () (declare (not safe)) (##vector-ref - _%__splice147834147835%_ + _%__splice147940147941%_ '1))) - (_%target145521146091%_ + (_%target145627146197%_ (let () (declare (not safe)) (##vector-ref - _%__splice147834147835%_ + _%__splice147940147941%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145523146093%_)) - (_%__match147861147862%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_) - (_%__match147873147874%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%__splice147834147835%_ - _%target145521146091%_ - _%tl145523146093%_)))) + _%tl145629146199%_)) + (_%__match147967147968%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_) + (_%__match147979147980%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%__splice147940147941%_ + _%target145627146197%_ + _%tl145629146199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145520146088%_)) - (let ((_%e145633145690%_ + (gx#stx-pair? _%tl145626146194%_)) + (let ((_%e145739145796%_ (let () (declare (not safe)) (gx#stx-e - _%tl145520146088%_)))) - (let ((_%tl145635145695%_ + _%tl145626146194%_)))) + (let ((_%tl145741145801%_ (let () (declare (not safe)) - (##cdr _%e145633145690%_))) - (_%hd145634145693%_ + (##cdr _%e145739145796%_))) + (_%hd145740145799%_ (let () (declare (not safe)) - (##car _%e145633145690%_)))) + (##car _%e145739145796%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145634145693%_)) - (let ((_%e145636145698%_ + _%hd145740145799%_)) + (let ((_%e145742145804%_ (let () (declare (not safe)) (gx#stx-e - _%hd145634145693%_)))) - (let ((_%tl145638145703%_ + _%hd145740145799%_)))) + (let ((_%tl145744145809%_ (let () (declare (not safe)) - (##cdr _%e145636145698%_))) - (_%hd145637145701%_ + (##cdr _%e145742145804%_))) + (_%hd145743145807%_ (let () (declare (not safe)) - (##car _%e145636145698%_)))) + (##car _%e145742145804%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145637145701%_)) + _%hd145743145807%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145637145701%_)) + (gx#stx-eq? '%#call _%hd145743145807%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145638145703%_)) - (let ((_%e145639145706%_ + (gx#stx-pair? _%tl145744145809%_)) + (let ((_%e145745145812%_ (let () (declare (not safe)) - (gx#stx-e _%tl145638145703%_)))) - (let ((_%tl145641145711%_ + (gx#stx-e _%tl145744145809%_)))) + (let ((_%tl145747145817%_ (let () (declare (not safe)) - (##cdr _%e145639145706%_))) - (_%hd145640145709%_ + (##cdr _%e145745145812%_))) + (_%hd145746145815%_ (let () (declare (not safe)) - (##car _%e145639145706%_)))) + (##car _%e145745145812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145640145709%_)) - (let ((_%e145642145714%_ + (gx#stx-pair? _%hd145746145815%_)) + (let ((_%e145748145820%_ (let () (declare (not safe)) - (gx#stx-e _%hd145640145709%_)))) - (let ((_%tl145644145719%_ + (gx#stx-e _%hd145746145815%_)))) + (let ((_%tl145750145825%_ (let () (declare (not safe)) - (##cdr _%e145642145714%_))) - (_%hd145643145717%_ + (##cdr _%e145748145820%_))) + (_%hd145749145823%_ (let () (declare (not safe)) - (##car _%e145642145714%_)))) + (##car _%e145748145820%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145643145717%_)) + _%hd145749145823%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145643145717%_)) + _%hd145749145823%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145644145719%_)) - (let ((_%e145645145722%_ + _%tl145750145825%_)) + (let ((_%e145751145828%_ (let () (declare (not safe)) (gx#stx-e - _%tl145644145719%_)))) - (let ((_%tl145647145727%_ + _%tl145750145825%_)))) + (let ((_%tl145753145833%_ (let () (declare (not safe)) - (##cdr _%e145645145722%_))) - (_%hd145646145725%_ + (##cdr _%e145751145828%_))) + (_%hd145752145831%_ (let () (declare (not safe)) - (##car _%e145645145722%_)))) + (##car _%e145751145828%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145647145727%_)) + _%tl145753145833%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145641145711%_)) - (let ((_%e145648145730%_ + (gx#stx-pair? _%tl145747145817%_)) + (let ((_%e145754145836%_ (let () (declare (not safe)) - (gx#stx-e _%tl145641145711%_)))) - (let ((_%tl145650145735%_ + (gx#stx-e _%tl145747145817%_)))) + (let ((_%tl145756145841%_ (let () (declare (not safe)) - (##cdr _%e145648145730%_))) - (_%hd145649145733%_ + (##cdr _%e145754145836%_))) + (_%hd145755145839%_ (let () (declare (not safe)) - (##car _%e145648145730%_)))) + (##car _%e145754145836%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145649145733%_)) - (let ((_%e145651145738%_ + (gx#stx-pair? _%hd145755145839%_)) + (let ((_%e145757145844%_ (let () (declare (not safe)) - (gx#stx-e _%hd145649145733%_)))) - (let ((_%tl145653145743%_ + (gx#stx-e _%hd145755145839%_)))) + (let ((_%tl145759145849%_ (let () (declare (not safe)) - (##cdr _%e145651145738%_))) - (_%hd145652145741%_ + (##cdr _%e145757145844%_))) + (_%hd145758145847%_ (let () (declare (not safe)) - (##car _%e145651145738%_)))) + (##car _%e145757145844%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145652145741%_)) + (gx#identifier? _%hd145758145847%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145652145741%_)) + _%hd145758145847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145653145743%_)) - (let ((_%e145654145746%_ + _%tl145759145849%_)) + (let ((_%e145760145852%_ (let () (declare (not safe)) (gx#stx-e - _%tl145653145743%_)))) - (let ((_%tl145656145751%_ + _%tl145759145849%_)))) + (let ((_%tl145762145857%_ (let () (declare (not safe)) - (##cdr _%e145654145746%_))) - (_%hd145655145749%_ + (##cdr _%e145760145852%_))) + (_%hd145761145855%_ (let () (declare (not safe)) - (##car _%e145654145746%_)))) + (##car _%e145760145852%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145656145751%_)) + _%tl145762145857%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145650145735%_)) - (let ((_%e145657145754%_ + _%tl145756145841%_)) + (let ((_%e145763145860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145650145735%_)))) - (let ((_%tl145659145759%_ + (gx#stx-e _%tl145756145841%_)))) + (let ((_%tl145765145865%_ (let () (declare (not safe)) - (##cdr _%e145657145754%_))) - (_%hd145658145757%_ + (##cdr _%e145763145860%_))) + (_%hd145764145863%_ (let () (declare (not safe)) - (##car _%e145657145754%_)))) + (##car _%e145763145860%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145658145757%_)) - (let ((_%e145660145762%_ + (gx#stx-pair? _%hd145764145863%_)) + (let ((_%e145766145868%_ (let () (declare (not safe)) - (gx#stx-e _%hd145658145757%_)))) - (let ((_%tl145662145767%_ + (gx#stx-e _%hd145764145863%_)))) + (let ((_%tl145768145873%_ (let () (declare (not safe)) - (##cdr _%e145660145762%_))) - (_%hd145661145765%_ + (##cdr _%e145766145868%_))) + (_%hd145767145871%_ (let () (declare (not safe)) - (##car _%e145660145762%_)))) + (##car _%e145766145868%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145661145765%_)) + (gx#identifier? _%hd145767145871%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd145661145765%_)) + (gx#stx-eq? '%#ref _%hd145767145871%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145662145767%_)) - (let ((_%e145663145770%_ + (gx#stx-pair? _%tl145768145873%_)) + (let ((_%e145769145876%_ (let () (declare (not safe)) (gx#stx-e - _%tl145662145767%_)))) - (let ((_%tl145665145775%_ + _%tl145768145873%_)))) + (let ((_%tl145771145881%_ (let () (declare (not safe)) - (##cdr _%e145663145770%_))) - (_%hd145664145773%_ + (##cdr _%e145769145876%_))) + (_%hd145770145879%_ (let () (declare (not safe)) - (##car _%e145663145770%_)))) + (##car _%e145769145876%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145665145775%_)) + _%tl145771145881%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145659145759%_)) + _%tl145765145865%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145635145695%_)) - (_%__match147971147972%_ - _%e145518146083%_ - _%hd145519146086%_ - _%tl145520146088%_ - _%e145633145690%_ - _%hd145634145693%_ - _%tl145635145695%_ - _%e145636145698%_ - _%hd145637145701%_ - _%tl145638145703%_ - _%e145639145706%_ - _%hd145640145709%_ - _%tl145641145711%_ - _%e145642145714%_ - _%hd145643145717%_ - _%tl145644145719%_ - _%e145645145722%_ - _%hd145646145725%_ - _%tl145647145727%_ - _%e145648145730%_ - _%hd145649145733%_ - _%tl145650145735%_ - _%e145651145738%_ - _%hd145652145741%_ - _%tl145653145743%_ - _%e145654145746%_ - _%hd145655145749%_ - _%tl145656145751%_ - _%e145657145754%_ - _%hd145658145757%_ - _%tl145659145759%_ - _%e145660145762%_ - _%hd145661145765%_ - _%tl145662145767%_ - _%e145663145770%_ - _%hd145664145773%_ - _%tl145665145775%_) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)))) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)) - (_%__kont147846147847%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont147846147847%_)))) - (_%__kont147846147847%_))))) - (_%__kont147846147847%_))))))) - (_%dispatch-case-e144818%_ - (lambda (_%hd144969%_ _%body144970%_) - (let* ((_%form144972%_ - (cons _%hd144969%_ (cons _%body144970%_ '()))) - (_%__stx147974147975%_ _%form144972%_) - (_%g144976145100%_ + _%tl145741145801%_)) + (_%__match148077148078%_ + _%e145624146189%_ + _%hd145625146192%_ + _%tl145626146194%_ + _%e145739145796%_ + _%hd145740145799%_ + _%tl145741145801%_ + _%e145742145804%_ + _%hd145743145807%_ + _%tl145744145809%_ + _%e145745145812%_ + _%hd145746145815%_ + _%tl145747145817%_ + _%e145748145820%_ + _%hd145749145823%_ + _%tl145750145825%_ + _%e145751145828%_ + _%hd145752145831%_ + _%tl145753145833%_ + _%e145754145836%_ + _%hd145755145839%_ + _%tl145756145841%_ + _%e145757145844%_ + _%hd145758145847%_ + _%tl145759145849%_ + _%e145760145852%_ + _%hd145761145855%_ + _%tl145762145857%_ + _%e145763145860%_ + _%hd145764145863%_ + _%tl145765145865%_ + _%e145766145868%_ + _%hd145767145871%_ + _%tl145768145873%_ + _%e145769145876%_ + _%hd145770145879%_ + _%tl145771145881%_) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)))) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)) + (_%__kont147952147953%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont147952147953%_)))) + (_%__kont147952147953%_))))) + (_%__kont147952147953%_))))))) + (_%dispatch-case-e144924%_ + (lambda (_%hd145075%_ _%body145076%_) + (let* ((_%form145078%_ + (cons _%hd145075%_ (cons _%body145076%_ '()))) + (_%__stx148080148081%_ _%form145078%_) + (_%g145082145206%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx147974147975%_))))) - (let ((_%__kont147976147977%_ - (lambda (_%L145471%_ _%L145472%_ _%L145473%_) - (let ((__tmp149140 + _%__stx148080148081%_))))) + (let ((_%__kont148082148083%_ + (lambda (_%L145577%_ _%L145578%_ _%L145579%_) + (let ((__tmp149246 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145472%_ '())))) + (cons _%L145578%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144814%_ - __tmp149140)))) - (_%__kont147982147983%_ - (lambda (_%L145319%_ - _%L145320%_ - _%L145321%_ - _%L145322%_) - (let ((__tmp149141 + _%self144920%_ + __tmp149246)))) + (_%__kont148088148089%_ + (lambda (_%L145425%_ + _%L145426%_ + _%L145427%_ + _%L145428%_) + (let ((__tmp149247 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145319%_ '())))) + (cons _%L145425%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144814%_ - __tmp149141)))) - (_%__kont147986147987%_ - (lambda (_%L145185%_ _%L145186%_ _%L145187%_) - (let ((__tmp149142 + _%self144920%_ + __tmp149247)))) + (_%__kont148092148093%_ + (lambda (_%L145291%_ _%L145292%_ _%L145293%_) + (let ((__tmp149248 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L145185%_ '())))) + (cons _%L145291%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self144814%_ - __tmp149142))))) - (let* ((_%__match148083148084%_ - (lambda (_%e145066145105%_ - _%hd145067145108%_ - _%tl145068145110%_ - _%e145069145113%_ - _%hd145070145116%_ - _%tl145071145118%_ - _%e145072145121%_ - _%hd145073145124%_ - _%tl145074145126%_ - _%e145075145129%_ - _%hd145076145132%_ - _%tl145077145134%_ - _%e145078145137%_ - _%hd145079145140%_ - _%tl145080145142%_ - _%e145081145145%_ - _%hd145082145148%_ - _%tl145083145150%_ - _%e145084145153%_ - _%hd145085145156%_ - _%tl145086145158%_ - _%e145087145161%_ - _%hd145088145164%_ - _%tl145089145166%_ - _%e145090145169%_ - _%hd145091145172%_ - _%tl145092145174%_) + _%self144920%_ + __tmp149248))))) + (let* ((_%__match148189148190%_ + (lambda (_%e145172145211%_ + _%hd145173145214%_ + _%tl145174145216%_ + _%e145175145219%_ + _%hd145176145222%_ + _%tl145177145224%_ + _%e145178145227%_ + _%hd145179145230%_ + _%tl145180145232%_ + _%e145181145235%_ + _%hd145182145238%_ + _%tl145183145240%_ + _%e145184145243%_ + _%hd145185145246%_ + _%tl145186145248%_ + _%e145187145251%_ + _%hd145188145254%_ + _%tl145189145256%_ + _%e145190145259%_ + _%hd145191145262%_ + _%tl145192145264%_ + _%e145193145267%_ + _%hd145194145270%_ + _%tl145195145272%_ + _%e145196145275%_ + _%hd145197145278%_ + _%tl145198145280%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145086145158%_)) - (let ((_%e145093145177%_ + (gx#stx-pair? _%tl145192145264%_)) + (let ((_%e145199145283%_ (let () (declare (not safe)) - (gx#stx-e _%tl145086145158%_)))) - (let ((_%tl145095145182%_ + (gx#stx-e _%tl145192145264%_)))) + (let ((_%tl145201145288%_ (let () (declare (not safe)) - (##cdr _%e145093145177%_))) - (_%hd145094145180%_ + (##cdr _%e145199145283%_))) + (_%hd145200145286%_ (let () (declare (not safe)) - (##car _%e145093145177%_)))) + (##car _%e145199145283%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145095145182%_)) + _%tl145201145288%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145071145118%_)) - (_%__kont147986147987%_ - _%hd145091145172%_ - _%hd145082145148%_ - _%hd145067145108%_) + _%tl145177145224%_)) + (_%__kont148092148093%_ + _%hd145197145278%_ + _%hd145188145254%_ + _%hd145173145214%_) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))))) - (_%__match148013148014%_ - (lambda (_%e145027145223%_ - _%hd145028145226%_ - _%tl145029145228%_ - _%__splice147984147985%_ - _%target145030145231%_ - _%tl145032145233%_) - (letrec ((_%loop145033145236%_ - (lambda (_%hd145031145239%_ - _%arg145037145241%_) + (_%g145082145206%_))))) + (_%__match148119148120%_ + (lambda (_%e145133145329%_ + _%hd145134145332%_ + _%tl145135145334%_ + _%__splice148090148091%_ + _%target145136145337%_ + _%tl145138145339%_) + (letrec ((_%loop145139145342%_ + (lambda (_%hd145137145345%_ + _%arg145143145347%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145031145239%_)) - (let ((_%e145034145244%_ + _%hd145137145345%_)) + (let ((_%e145140145350%_ (let () (declare (not safe)) (gx#stx-e - _%hd145031145239%_)))) - (let ((_%lp-tl145036145249%_ + _%hd145137145345%_)))) + (let ((_%lp-tl145142145355%_ (let () (declare (not safe)) - (##cdr _%e145034145244%_))) - (_%lp-hd145035145247%_ + (##cdr _%e145140145350%_))) + (_%lp-hd145141145353%_ (let () (declare (not safe)) - (##car _%e145034145244%_)))) - (_%loop145033145236%_ - _%lp-tl145036145249%_ - (cons _%lp-hd145035145247%_ - _%arg145037145241%_)))) - (let ((_%arg145038145252%_ - (reverse _%arg145037145241%_))) + (##car _%e145140145350%_)))) + (_%loop145139145342%_ + _%lp-tl145142145355%_ + (cons _%lp-hd145141145353%_ + _%arg145143145347%_)))) + (let ((_%arg145144145358%_ + (reverse _%arg145143145347%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145029145228%_)) - (let ((_%e145039145255%_ + _%tl145135145334%_)) + (let ((_%e145145145361%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl145029145228%_)))) - (let ((_%tl145041145260%_ + (gx#stx-e _%tl145135145334%_)))) + (let ((_%tl145147145366%_ (let () (declare (not safe)) - (##cdr _%e145039145255%_))) - (_%hd145040145258%_ + (##cdr _%e145145145361%_))) + (_%hd145146145364%_ (let () (declare (not safe)) - (##car _%e145039145255%_)))) + (##car _%e145145145361%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145040145258%_)) - (let ((_%e145042145263%_ + (gx#stx-pair? _%hd145146145364%_)) + (let ((_%e145148145369%_ (let () (declare (not safe)) - (gx#stx-e _%hd145040145258%_)))) - (let ((_%tl145044145268%_ + (gx#stx-e _%hd145146145364%_)))) + (let ((_%tl145150145374%_ (let () (declare (not safe)) - (##cdr _%e145042145263%_))) - (_%hd145043145266%_ + (##cdr _%e145148145369%_))) + (_%hd145149145372%_ (let () (declare (not safe)) - (##car _%e145042145263%_)))) + (##car _%e145148145369%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145043145266%_)) + (gx#identifier? _%hd145149145372%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd145043145266%_)) + (gx#stx-eq? '%#call _%hd145149145372%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145044145268%_)) - (let ((_%e145045145271%_ + (gx#stx-pair? _%tl145150145374%_)) + (let ((_%e145151145377%_ (let () (declare (not safe)) (gx#stx-e - _%tl145044145268%_)))) - (let ((_%tl145047145276%_ + _%tl145150145374%_)))) + (let ((_%tl145153145382%_ (let () (declare (not safe)) - (##cdr _%e145045145271%_))) - (_%hd145046145274%_ + (##cdr _%e145151145377%_))) + (_%hd145152145380%_ (let () (declare (not safe)) - (##car _%e145045145271%_)))) + (##car _%e145151145377%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145046145274%_)) - (let ((_%e145048145279%_ + _%hd145152145380%_)) + (let ((_%e145154145385%_ (let () (declare (not safe)) (gx#stx-e - _%hd145046145274%_)))) - (let ((_%tl145050145284%_ + _%hd145152145380%_)))) + (let ((_%tl145156145390%_ (let () (declare (not safe)) - (##cdr _%e145048145279%_))) - (_%hd145049145282%_ + (##cdr _%e145154145385%_))) + (_%hd145155145388%_ (let () (declare (not safe)) - (##car _%e145048145279%_)))) + (##car _%e145154145385%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145049145282%_)) + _%hd145155145388%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145049145282%_)) + _%hd145155145388%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145050145284%_)) - (let ((_%e145051145287%_ + (gx#stx-pair? _%tl145156145390%_)) + (let ((_%e145157145393%_ (let () (declare (not safe)) - (gx#stx-e _%tl145050145284%_)))) - (let ((_%tl145053145292%_ + (gx#stx-e _%tl145156145390%_)))) + (let ((_%tl145159145398%_ (let () (declare (not safe)) - (##cdr _%e145051145287%_))) - (_%hd145052145290%_ + (##cdr _%e145157145393%_))) + (_%hd145158145396%_ (let () (declare (not safe)) - (##car _%e145051145287%_)))) + (##car _%e145157145393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145053145292%_)) + (gx#stx-null? _%tl145159145398%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145047145276%_)) - (let ((_%e145054145295%_ + (gx#stx-pair? _%tl145153145382%_)) + (let ((_%e145160145401%_ (let () (declare (not safe)) - (gx#stx-e _%tl145047145276%_)))) - (let ((_%tl145056145300%_ + (gx#stx-e _%tl145153145382%_)))) + (let ((_%tl145162145406%_ (let () (declare (not safe)) - (##cdr _%e145054145295%_))) - (_%hd145055145298%_ + (##cdr _%e145160145401%_))) + (_%hd145161145404%_ (let () (declare (not safe)) - (##car _%e145054145295%_)))) + (##car _%e145160145401%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145055145298%_)) - (let ((_%e145057145303%_ + _%hd145161145404%_)) + (let ((_%e145163145409%_ (let () (declare (not safe)) (gx#stx-e - _%hd145055145298%_)))) - (let ((_%tl145059145308%_ + _%hd145161145404%_)))) + (let ((_%tl145165145414%_ (let () (declare (not safe)) - (##cdr _%e145057145303%_))) - (_%hd145058145306%_ + (##cdr _%e145163145409%_))) + (_%hd145164145412%_ (let () (declare (not safe)) - (##car _%e145057145303%_)))) + (##car _%e145163145409%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145058145306%_)) + _%hd145164145412%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145058145306%_)) + _%hd145164145412%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145059145308%_)) - (let ((_%e145060145311%_ + _%tl145165145414%_)) + (let ((_%e145166145417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145059145308%_)))) - (let ((_%tl145062145316%_ + (gx#stx-e _%tl145165145414%_)))) + (let ((_%tl145168145422%_ (let () (declare (not safe)) - (##cdr _%e145060145311%_))) - (_%hd145061145314%_ + (##cdr _%e145166145417%_))) + (_%hd145167145420%_ (let () (declare (not safe)) - (##car _%e145060145311%_)))) + (##car _%e145166145417%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145062145316%_)) + (gx#stx-null? _%tl145168145422%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145041145260%_)) - (_%__kont147982147983%_ - _%hd145061145314%_ - _%hd145052145290%_ - _%tl145032145233%_ - _%arg145038145252%_) - (_%__match148083148084%_ - _%e145027145223%_ - _%hd145028145226%_ - _%tl145029145228%_ - _%e145039145255%_ - _%hd145040145258%_ - _%tl145041145260%_ - _%e145042145263%_ - _%hd145043145266%_ - _%tl145044145268%_ - _%e145045145271%_ - _%hd145046145274%_ - _%tl145047145276%_ - _%e145048145279%_ - _%hd145049145282%_ - _%tl145050145284%_ - _%e145051145287%_ - _%hd145052145290%_ - _%tl145053145292%_ - _%e145054145295%_ - _%hd145055145298%_ - _%tl145056145300%_ - _%e145057145303%_ - _%hd145058145306%_ - _%tl145059145308%_ - _%e145060145311%_ - _%hd145061145314%_ - _%tl145062145316%_)) + (gx#stx-null? _%tl145147145366%_)) + (_%__kont148088148089%_ + _%hd145167145420%_ + _%hd145158145396%_ + _%tl145138145339%_ + _%arg145144145358%_) + (_%__match148189148190%_ + _%e145133145329%_ + _%hd145134145332%_ + _%tl145135145334%_ + _%e145145145361%_ + _%hd145146145364%_ + _%tl145147145366%_ + _%e145148145369%_ + _%hd145149145372%_ + _%tl145150145374%_ + _%e145151145377%_ + _%hd145152145380%_ + _%tl145153145382%_ + _%e145154145385%_ + _%hd145155145388%_ + _%tl145156145390%_ + _%e145157145393%_ + _%hd145158145396%_ + _%tl145159145398%_ + _%e145160145401%_ + _%hd145161145404%_ + _%tl145162145406%_ + _%e145163145409%_ + _%hd145164145412%_ + _%tl145165145414%_ + _%e145166145417%_ + _%hd145167145420%_ + _%tl145168145422%_)) (let () (declare (not safe)) - (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))) + (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))))) + (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_)))))))) + (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145033145236%_ - _%target145030145231%_ + (_%loop145139145342%_ + _%target145136145337%_ '())))) - (_%__match148001148002%_ - (lambda (_%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_) - (letrec ((_%loop144987145372%_ - (lambda (_%hd144985145375%_ - _%arg144991145377%_) + (_%__match148107148108%_ + (lambda (_%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_) + (letrec ((_%loop145093145478%_ + (lambda (_%hd145091145481%_ + _%arg145097145483%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144985145375%_)) - (let ((_%e144988145380%_ + _%hd145091145481%_)) + (let ((_%e145094145486%_ (let () (declare (not safe)) (gx#stx-e - _%hd144985145375%_)))) - (let ((_%lp-tl144990145385%_ + _%hd145091145481%_)))) + (let ((_%lp-tl145096145491%_ (let () (declare (not safe)) - (##cdr _%e144988145380%_))) - (_%lp-hd144989145383%_ + (##cdr _%e145094145486%_))) + (_%lp-hd145095145489%_ (let () (declare (not safe)) - (##car _%e144988145380%_)))) - (_%loop144987145372%_ - _%lp-tl144990145385%_ - (cons _%lp-hd144989145383%_ - _%arg144991145377%_)))) - (let ((_%arg144992145388%_ - (reverse _%arg144991145377%_))) + (##car _%e145094145486%_)))) + (_%loop145093145478%_ + _%lp-tl145096145491%_ + (cons _%lp-hd145095145489%_ + _%arg145097145483%_)))) + (let ((_%arg145098145494%_ + (reverse _%arg145097145483%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144983145364%_)) - (let ((_%e144993145391%_ + _%tl145089145470%_)) + (let ((_%e145099145497%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl144983145364%_)))) - (let ((_%tl144995145396%_ + (gx#stx-e _%tl145089145470%_)))) + (let ((_%tl145101145502%_ (let () (declare (not safe)) - (##cdr _%e144993145391%_))) - (_%hd144994145394%_ + (##cdr _%e145099145497%_))) + (_%hd145100145500%_ (let () (declare (not safe)) - (##car _%e144993145391%_)))) + (##car _%e145099145497%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd144994145394%_)) - (let ((_%e144996145399%_ + (gx#stx-pair? _%hd145100145500%_)) + (let ((_%e145102145505%_ (let () (declare (not safe)) - (gx#stx-e _%hd144994145394%_)))) - (let ((_%tl144998145404%_ + (gx#stx-e _%hd145100145500%_)))) + (let ((_%tl145104145510%_ (let () (declare (not safe)) - (##cdr _%e144996145399%_))) - (_%hd144997145402%_ + (##cdr _%e145102145505%_))) + (_%hd145103145508%_ (let () (declare (not safe)) - (##car _%e144996145399%_)))) + (##car _%e145102145505%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd144997145402%_)) + (gx#identifier? _%hd145103145508%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd144997145402%_)) + (gx#stx-eq? '%#call _%hd145103145508%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144998145404%_)) - (let ((_%e144999145407%_ + (gx#stx-pair? _%tl145104145510%_)) + (let ((_%e145105145513%_ (let () (declare (not safe)) (gx#stx-e - _%tl144998145404%_)))) - (let ((_%tl145001145412%_ + _%tl145104145510%_)))) + (let ((_%tl145107145518%_ (let () (declare (not safe)) - (##cdr _%e144999145407%_))) - (_%hd145000145410%_ + (##cdr _%e145105145513%_))) + (_%hd145106145516%_ (let () (declare (not safe)) - (##car _%e144999145407%_)))) + (##car _%e145105145513%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145000145410%_)) - (let ((_%e145002145415%_ + _%hd145106145516%_)) + (let ((_%e145108145521%_ (let () (declare (not safe)) (gx#stx-e - _%hd145000145410%_)))) - (let ((_%tl145004145420%_ + _%hd145106145516%_)))) + (let ((_%tl145110145526%_ (let () (declare (not safe)) - (##cdr _%e145002145415%_))) - (_%hd145003145418%_ + (##cdr _%e145108145521%_))) + (_%hd145109145524%_ (let () (declare (not safe)) - (##car _%e145002145415%_)))) + (##car _%e145108145521%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145003145418%_)) + _%hd145109145524%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145003145418%_)) + _%hd145109145524%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl145004145420%_)) - (let ((_%e145005145423%_ + (gx#stx-pair? _%tl145110145526%_)) + (let ((_%e145111145529%_ (let () (declare (not safe)) - (gx#stx-e _%tl145004145420%_)))) - (let ((_%tl145007145428%_ + (gx#stx-e _%tl145110145526%_)))) + (let ((_%tl145113145534%_ (let () (declare (not safe)) - (##cdr _%e145005145423%_))) - (_%hd145006145426%_ + (##cdr _%e145111145529%_))) + (_%hd145112145532%_ (let () (declare (not safe)) - (##car _%e145005145423%_)))) + (##car _%e145111145529%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145007145428%_)) + (gx#stx-null? _%tl145113145534%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl145001145412%_)) - (let ((_%__splice147980147981%_ + (gx#stx-pair/null? _%tl145107145518%_)) + (let ((_%__splice148086148087%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl145001145412%_ + _%tl145107145518%_ '0)))) - (let ((_%tl145010145433%_ + (let ((_%tl145116145539%_ (let () (declare (not safe)) (##vector-ref - _%__splice147980147981%_ + _%__splice148086148087%_ '1))) - (_%target145008145431%_ + (_%target145114145537%_ (let () (declare (not safe)) (##vector-ref - _%__splice147980147981%_ + _%__splice148086148087%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145010145433%_)) - (letrec ((_%loop145011145436%_ - (lambda (_%hd145009145439%_ - _%xarg145015145441%_) + _%tl145116145539%_)) + (letrec ((_%loop145117145542%_ + (lambda (_%hd145115145545%_ + _%xarg145121145547%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145009145439%_)) - (let ((_%e145012145444%_ + _%hd145115145545%_)) + (let ((_%e145118145550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd145009145439%_)))) - (let ((_%lp-tl145014145449%_ + (gx#stx-e _%hd145115145545%_)))) + (let ((_%lp-tl145120145555%_ (let () (declare (not safe)) - (##cdr _%e145012145444%_))) - (_%lp-hd145013145447%_ + (##cdr _%e145118145550%_))) + (_%lp-hd145119145553%_ (let () (declare (not safe)) - (##car _%e145012145444%_)))) + (##car _%e145118145550%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd145013145447%_)) - (let ((_%e145017145452%_ + (gx#stx-pair? _%lp-hd145119145553%_)) + (let ((_%e145123145558%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd145013145447%_)))) - (let ((_%tl145019145457%_ + (gx#stx-e _%lp-hd145119145553%_)))) + (let ((_%tl145125145563%_ (let () (declare (not safe)) - (##cdr _%e145017145452%_))) - (_%hd145018145455%_ + (##cdr _%e145123145558%_))) + (_%hd145124145561%_ (let () (declare (not safe)) - (##car _%e145017145452%_)))) + (##car _%e145123145558%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145018145455%_)) + (gx#identifier? _%hd145124145561%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145018145455%_)) + _%hd145124145561%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145019145457%_)) - (let ((_%e145020145460%_ + _%tl145125145563%_)) + (let ((_%e145126145566%_ (let () (declare (not safe)) (gx#stx-e - _%tl145019145457%_)))) - (let ((_%tl145022145465%_ + _%tl145125145563%_)))) + (let ((_%tl145128145571%_ (let () (declare (not safe)) - (##cdr _%e145020145460%_))) - (_%hd145021145463%_ + (##cdr _%e145126145566%_))) + (_%hd145127145569%_ (let () (declare (not safe)) - (##car _%e145020145460%_)))) + (##car _%e145126145566%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145022145465%_)) - (_%loop145011145436%_ - _%lp-tl145014145449%_ - (cons _%hd145021145463%_ - _%xarg145015145441%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (let ((_%xarg145016145468%_ - (reverse _%xarg145015145441%_))) + _%tl145128145571%_)) + (_%loop145117145542%_ + _%lp-tl145120145555%_ + (cons _%hd145127145569%_ + _%xarg145121145547%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (let ((_%xarg145122145574%_ + (reverse _%xarg145121145547%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144995145396%_)) - (_%__kont147976147977%_ - _%xarg145016145468%_ - _%hd145006145426%_ - _%arg144992145388%_) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop145011145436%_ - _%target145008145431%_ + (gx#stx-null? _%tl145101145502%_)) + (_%__kont148082148083%_ + _%xarg145122145574%_ + _%hd145112145532%_ + _%arg145098145494%_) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145117145542%_ + _%target145114145537%_ '())) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144987145372%_ - _%target144984145367%_ + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop145093145478%_ + _%target145090145473%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx147974147975%_)) - (let ((_%e144981145359%_ + (gx#stx-pair? _%__stx148080148081%_)) + (let ((_%e145087145465%_ (let () (declare (not safe)) - (gx#stx-e _%__stx147974147975%_)))) - (let ((_%tl144983145364%_ + (gx#stx-e _%__stx148080148081%_)))) + (let ((_%tl145089145470%_ (let () (declare (not safe)) - (##cdr _%e144981145359%_))) - (_%hd144982145362%_ + (##cdr _%e145087145465%_))) + (_%hd145088145468%_ (let () (declare (not safe)) - (##car _%e144981145359%_)))) + (##car _%e145087145465%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd144982145362%_)) - (let ((_%__splice147978147979%_ + (gx#stx-pair/null? _%hd145088145468%_)) + (let ((_%__splice148084148085%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd144982145362%_ + _%hd145088145468%_ '0)))) - (let ((_%tl144986145369%_ + (let ((_%tl145092145475%_ (let () (declare (not safe)) (##vector-ref - _%__splice147978147979%_ + _%__splice148084148085%_ '1))) - (_%target144984145367%_ + (_%target145090145473%_ (let () (declare (not safe)) (##vector-ref - _%__splice147978147979%_ + _%__splice148084148085%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144986145369%_)) - (_%__match148001148002%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_) - (_%__match148013148014%_ - _%e144981145359%_ - _%hd144982145362%_ - _%tl144983145364%_ - _%__splice147978147979%_ - _%target144984145367%_ - _%tl144986145369%_)))) + _%tl145092145475%_)) + (_%__match148107148108%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_) + (_%__match148119148120%_ + _%e145087145465%_ + _%hd145088145468%_ + _%tl145089145470%_ + _%__splice148084148085%_ + _%target145090145473%_ + _%tl145092145475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144983145364%_)) - (let ((_%e145069145113%_ + (gx#stx-pair? _%tl145089145470%_)) + (let ((_%e145175145219%_ (let () (declare (not safe)) (gx#stx-e - _%tl144983145364%_)))) - (let ((_%tl145071145118%_ + _%tl145089145470%_)))) + (let ((_%tl145177145224%_ (let () (declare (not safe)) - (##cdr _%e145069145113%_))) - (_%hd145070145116%_ + (##cdr _%e145175145219%_))) + (_%hd145176145222%_ (let () (declare (not safe)) - (##car _%e145069145113%_)))) + (##car _%e145175145219%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd145070145116%_)) - (let ((_%e145072145121%_ + _%hd145176145222%_)) + (let ((_%e145178145227%_ (let () (declare (not safe)) (gx#stx-e - _%hd145070145116%_)))) - (let ((_%tl145074145126%_ + _%hd145176145222%_)))) + (let ((_%tl145180145232%_ (let () (declare (not safe)) - (##cdr _%e145072145121%_))) - (_%hd145073145124%_ + (##cdr _%e145178145227%_))) + (_%hd145179145230%_ (let () (declare (not safe)) - (##car _%e145072145121%_)))) + (##car _%e145178145227%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145073145124%_)) + _%hd145179145230%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#call _%hd145073145124%_)) + (gx#stx-eq? '%#call _%hd145179145230%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl145074145126%_)) - (let ((_%e145075145129%_ + (gx#stx-pair? _%tl145180145232%_)) + (let ((_%e145181145235%_ (let () (declare (not safe)) - (gx#stx-e _%tl145074145126%_)))) - (let ((_%tl145077145134%_ + (gx#stx-e _%tl145180145232%_)))) + (let ((_%tl145183145240%_ (let () (declare (not safe)) - (##cdr _%e145075145129%_))) - (_%hd145076145132%_ + (##cdr _%e145181145235%_))) + (_%hd145182145238%_ (let () (declare (not safe)) - (##car _%e145075145129%_)))) + (##car _%e145181145235%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145076145132%_)) - (let ((_%e145078145137%_ + (gx#stx-pair? _%hd145182145238%_)) + (let ((_%e145184145243%_ (let () (declare (not safe)) - (gx#stx-e _%hd145076145132%_)))) - (let ((_%tl145080145142%_ + (gx#stx-e _%hd145182145238%_)))) + (let ((_%tl145186145248%_ (let () (declare (not safe)) - (##cdr _%e145078145137%_))) - (_%hd145079145140%_ + (##cdr _%e145184145243%_))) + (_%hd145185145246%_ (let () (declare (not safe)) - (##car _%e145078145137%_)))) + (##car _%e145184145243%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd145079145140%_)) + _%hd145185145246%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145079145140%_)) + _%hd145185145246%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145080145142%_)) - (let ((_%e145081145145%_ + _%tl145186145248%_)) + (let ((_%e145187145251%_ (let () (declare (not safe)) (gx#stx-e - _%tl145080145142%_)))) - (let ((_%tl145083145150%_ + _%tl145186145248%_)))) + (let ((_%tl145189145256%_ (let () (declare (not safe)) - (##cdr _%e145081145145%_))) - (_%hd145082145148%_ + (##cdr _%e145187145251%_))) + (_%hd145188145254%_ (let () (declare (not safe)) - (##car _%e145081145145%_)))) + (##car _%e145187145251%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145083145150%_)) + _%tl145189145256%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl145077145134%_)) - (let ((_%e145084145153%_ + (gx#stx-pair? _%tl145183145240%_)) + (let ((_%e145190145259%_ (let () (declare (not safe)) - (gx#stx-e _%tl145077145134%_)))) - (let ((_%tl145086145158%_ + (gx#stx-e _%tl145183145240%_)))) + (let ((_%tl145192145264%_ (let () (declare (not safe)) - (##cdr _%e145084145153%_))) - (_%hd145085145156%_ + (##cdr _%e145190145259%_))) + (_%hd145191145262%_ (let () (declare (not safe)) - (##car _%e145084145153%_)))) + (##car _%e145190145259%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd145085145156%_)) - (let ((_%e145087145161%_ + (gx#stx-pair? _%hd145191145262%_)) + (let ((_%e145193145267%_ (let () (declare (not safe)) - (gx#stx-e _%hd145085145156%_)))) - (let ((_%tl145089145166%_ + (gx#stx-e _%hd145191145262%_)))) + (let ((_%tl145195145272%_ (let () (declare (not safe)) - (##cdr _%e145087145161%_))) - (_%hd145088145164%_ + (##cdr _%e145193145267%_))) + (_%hd145194145270%_ (let () (declare (not safe)) - (##car _%e145087145161%_)))) + (##car _%e145193145267%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd145088145164%_)) + (gx#identifier? _%hd145194145270%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd145088145164%_)) + _%hd145194145270%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145089145166%_)) - (let ((_%e145090145169%_ + _%tl145195145272%_)) + (let ((_%e145196145275%_ (let () (declare (not safe)) (gx#stx-e - _%tl145089145166%_)))) - (let ((_%tl145092145174%_ + _%tl145195145272%_)))) + (let ((_%tl145198145280%_ (let () (declare (not safe)) - (##cdr _%e145090145169%_))) - (_%hd145091145172%_ + (##cdr _%e145196145275%_))) + (_%hd145197145278%_ (let () (declare (not safe)) - (##car _%e145090145169%_)))) + (##car _%e145196145275%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl145092145174%_)) + _%tl145198145280%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl145086145158%_)) - (let ((_%e145093145177%_ + _%tl145192145264%_)) + (let ((_%e145199145283%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl145086145158%_)))) - (let ((_%tl145095145182%_ + (gx#stx-e _%tl145192145264%_)))) + (let ((_%tl145201145288%_ (let () (declare (not safe)) - (##cdr _%e145093145177%_))) - (_%hd145094145180%_ + (##cdr _%e145199145283%_))) + (_%hd145200145286%_ (let () (declare (not safe)) - (##car _%e145093145177%_)))) + (##car _%e145199145283%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145095145182%_)) + (gx#stx-null? _%tl145201145288%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl145071145118%_)) - (_%__kont147986147987%_ - _%hd145091145172%_ - _%hd145082145148%_ - _%hd144982145362%_) + (gx#stx-null? _%tl145177145224%_)) + (_%__kont148092148093%_ + _%hd145197145278%_ + _%hd145188145254%_ + _%hd145088145468%_) (let () (declare (not safe)) - (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))))) + (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))))) + (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))) + (_%g145082145206%_))) (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_))))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))) - (let () (declare (not safe)) (_%g144976145100%_))))) + (_%g145082145206%_))))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))) + (let () (declare (not safe)) (_%g145082145206%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144976145100%_))))) + (_%g145082145206%_))))) (let () (declare (not safe)) - (_%g144976145100%_)))))) + (_%g145082145206%_)))))) (let () (declare (not safe)) - (_%g144976145100%_)))))))) - (_%generate1144819%_ - (lambda (_%args144954%_ - _%arglen144955%_ - _%hd144956%_ - _%body144957%_) - (let* ((_%len144959%_ + (_%g145082145206%_)))))))) + (_%generate1144925%_ + (lambda (_%args145060%_ + _%arglen145061%_ + _%hd145062%_ + _%body145063%_) + (let* ((_%len145065%_ (let () (declare (not safe)) - (gx#stx-length _%hd144956%_))) - (_%condition144964%_ + (gx#stx-length _%hd145062%_))) + (_%condition145070%_ (if (let () (declare (not safe)) - (gx#stx-list? _%hd144956%_)) + (gx#stx-list? _%hd145062%_)) (if (gxc#current-compile-decls-unsafe?) (cons '##fx= - (cons _%arglen144955%_ - (cons _%len144959%_ '()))) + (cons _%arglen145061%_ + (cons _%len145065%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144955%_ (cons _%len144959%_ '()))) + (cons _%arglen145061%_ (cons _%len145065%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (> _%len144959%_ '0) + (if (> _%len145065%_ '0) (if (gxc#current-compile-decls-unsafe?) (cons '##fx>= - (cons _%arglen144955%_ - (cons _%len144959%_ '()))) + (cons _%arglen145061%_ + (cons _%len145065%_ '()))) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##fx>= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%arglen144955%_ (cons _%len144959%_ '()))) + (cons _%arglen145061%_ (cons _%len145065%_ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#t))) - (_%dispatch144966%_ - (if (_%dispatch-case?144817%_ - _%hd144956%_ - _%body144957%_) - (_%dispatch-case-e144818%_ - _%hd144956%_ - _%body144957%_) + (_%dispatch145072%_ + (if (_%dispatch-case?144923%_ + _%hd145062%_ + _%body145063%_) + (_%dispatch-case-e144924%_ + _%hd145062%_ + _%body145063%_) (gxc#generate-runtime-lambda-form - _%self144814%_ - _%hd144956%_ - _%body144957%_)))) - (cons _%condition144964%_ + _%self144920%_ + _%hd145062%_ + _%body145063%_)))) + (cons _%condition145070%_ (cons (cons 'apply - (cons _%dispatch144966%_ - (cons _%args144954%_ '()))) + (cons _%dispatch145072%_ + (cons _%args145060%_ '()))) '())))))) - (let* ((_%g144821144849%_ - (lambda (_%g144822144846%_) + (let* ((_%g144927144955%_ + (lambda (_%g144928144952%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144822144846%_)))) - (_%g144820144951%_ - (lambda (_%g144822144852%_) + _%g144928144952%_)))) + (_%g144926145057%_ + (lambda (_%g144928144958%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144822144852%_)) - (let ((_%e144825144854%_ + (gx#stx-pair? _%g144928144958%_)) + (let ((_%e144931144960%_ (let () (declare (not safe)) - (gx#stx-e _%g144822144852%_)))) - (let ((_%hd144826144857%_ + (gx#stx-e _%g144928144958%_)))) + (let ((_%hd144932144963%_ (let () (declare (not safe)) - (##car _%e144825144854%_))) - (_%tl144827144859%_ + (##car _%e144931144960%_))) + (_%tl144933144965%_ (let () (declare (not safe)) - (##cdr _%e144825144854%_)))) + (##cdr _%e144931144960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl144827144859%_)) - (let ((_g149143_ + (gx#stx-pair/null? _%tl144933144965%_)) + (let ((_g149249_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl144827144859%_ + _%tl144933144965%_ '0)))) (begin - (let ((_g149144_ + (let ((_g149250_ (let () (declare (not safe)) - (if (##values? _g149143_) - (##vector-length _g149143_) + (if (##values? _g149249_) + (##values-length _g149249_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149144_ 2))) + (##fx= _g149250_ 2))) (error "Context expects 2 values" - _g149144_))) - (let ((_%target144828144862%_ + _g149250_))) + (let ((_%target144934144968%_ (let () (declare (not safe)) - (##vector-ref _g149143_ 0))) - (_%tl144830144864%_ + (##values-ref _g149249_ 0))) + (_%tl144936144970%_ (let () (declare (not safe)) - (##vector-ref _g149143_ 1)))) + (##values-ref _g149249_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144830144864%_)) - (letrec ((_%loop144831144867%_ - (lambda (_%hd144829144870%_ - _%body144835144872%_ - _%hd144836144874%_) + (gx#stx-null? _%tl144936144970%_)) + (letrec ((_%loop144937144973%_ + (lambda (_%hd144935144976%_ + _%body144941144978%_ + _%hd144942144980%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144829144870%_)) - (let ((_%e144832144877%_ + _%hd144935144976%_)) + (let ((_%e144938144983%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd144829144870%_)))) - (let ((_%lp-hd144833144880%_ + (gx#stx-e _%hd144935144976%_)))) + (let ((_%lp-hd144939144986%_ (let () (declare (not safe)) - (##car _%e144832144877%_))) - (_%lp-tl144834144882%_ + (##car _%e144938144983%_))) + (_%lp-tl144940144988%_ (let () (declare (not safe)) - (##cdr _%e144832144877%_)))) + (##cdr _%e144938144983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd144833144880%_)) - (let ((_%e144839144885%_ + (gx#stx-pair? _%lp-hd144939144986%_)) + (let ((_%e144945144991%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd144833144880%_)))) - (let ((_%hd144840144888%_ + (gx#stx-e _%lp-hd144939144986%_)))) + (let ((_%hd144946144994%_ (let () (declare (not safe)) - (##car _%e144839144885%_))) - (_%tl144841144890%_ + (##car _%e144945144991%_))) + (_%tl144947144996%_ (let () (declare (not safe)) - (##cdr _%e144839144885%_)))) + (##cdr _%e144945144991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144841144890%_)) - (let ((_%e144842144893%_ + (gx#stx-pair? _%tl144947144996%_)) + (let ((_%e144948144999%_ (let () (declare (not safe)) - (gx#stx-e _%tl144841144890%_)))) - (let ((_%hd144843144896%_ + (gx#stx-e _%tl144947144996%_)))) + (let ((_%hd144949145002%_ (let () (declare (not safe)) - (##car _%e144842144893%_))) - (_%tl144844144898%_ + (##car _%e144948144999%_))) + (_%tl144950145004%_ (let () (declare (not safe)) - (##cdr _%e144842144893%_)))) + (##cdr _%e144948144999%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144844144898%_)) - (_%loop144831144867%_ - _%lp-tl144834144882%_ - (cons _%hd144843144896%_ - _%body144835144872%_) - (cons _%hd144840144888%_ - _%hd144836144874%_)) - (_%g144821144849%_ - _%g144822144852%_)))) - (_%g144821144849%_ _%g144822144852%_)))) - (_%g144821144849%_ _%g144822144852%_)))) - (let ((_%body144837144901%_ (reverse _%body144835144872%_)) - (_%hd144838144903%_ (reverse _%hd144836144874%_))) - ((lambda (_%L144906%_ _%L144907%_) - (let ((_%args144926%_ + (gx#stx-null? _%tl144950145004%_)) + (_%loop144937144973%_ + _%lp-tl144940144988%_ + (cons _%hd144949145002%_ + _%body144941144978%_) + (cons _%hd144946144994%_ + _%hd144942144980%_)) + (_%g144927144955%_ + _%g144928144958%_)))) + (_%g144927144955%_ _%g144928144958%_)))) + (_%g144927144955%_ _%g144928144958%_)))) + (let ((_%body144943145007%_ (reverse _%body144941144978%_)) + (_%hd144944145009%_ (reverse _%hd144942144980%_))) + ((lambda (_%L145012%_ _%L145013%_) + (let ((_%args145032%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%arglen144927%_ + (_%arglen145033%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%name144928%_ - (let ((_%$e144923%_ - (let ((__tmp149145 + (_%name145034%_ + (let ((_%$e145029%_ + (let ((__tmp149251 (let () (declare (not safe)) (gxc#current-compile-runtime-names)))) (declare (not safe)) - (hash-get __tmp149145 _%stx144815%_)))) - (if _%$e144923%_ - _%$e144923%_ + (hash-get __tmp149251 _%stx144921%_)))) + (if _%$e145029%_ + _%$e145029%_ ''case-lambda-dispatch)))) (cons 'lambda - (cons _%args144926%_ + (cons _%args145032%_ (cons (cons 'let - (cons (cons (cons _%arglen144927%_ + (cons (cons (cons _%arglen145033%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (if (gxc#current-compile-decls-unsafe?) - (cons '##length (cons _%args144926%_ '())) + (cons '##length (cons _%args145032%_ '())) (cons 'let (cons '() (cons '(declare (not safe)) (cons (cons '##length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%args144926%_ '())) + (cons _%args145032%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons 'cond - (let ((__tmp149149 + (let ((__tmp149255 (cons (cons 'else (cons (cons '##raise-wrong-number-of-arguments-exception - (cons _%name144928%_ - (cons _%args144926%_ + (cons _%name145034%_ + (cons _%args145032%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (__tmp149146 - (map (lambda (_%g144929144932%_ - _%g144930144934%_) - (_%generate1144819%_ - _%args144926%_ - _%arglen144927%_ - _%g144929144932%_ - _%g144930144934%_)) - (let ((__tmp149147 - (lambda (_%g144936144939%_ - _%g144937144941%_) - (cons _%g144936144939%_ - _%g144937144941%_)))) + (__tmp149252 + (map (lambda (_%g145035145038%_ + _%g145036145040%_) + (_%generate1144925%_ + _%args145032%_ + _%arglen145033%_ + _%g145035145038%_ + _%g145036145040%_)) + (let ((__tmp149253 + (lambda (_%g145042145045%_ + _%g145043145047%_) + (cons _%g145042145045%_ + _%g145043145047%_)))) (declare (not safe)) (__foldr1 - __tmp149147 + __tmp149253 '() - _%L144907%_)) - (let ((__tmp149148 - (lambda (_%g144943144946%_ - _%g144944144948%_) - (cons _%g144943144946%_ - _%g144944144948%_)))) + _%L145013%_)) + (let ((__tmp149254 + (lambda (_%g145049145052%_ + _%g145050145054%_) + (cons _%g145049145052%_ + _%g145050145054%_)))) (declare (not safe)) (__foldr1 - __tmp149148 + __tmp149254 '() - _%L144906%_))))) + _%L145012%_))))) (declare (not safe)) - (__foldr1 cons __tmp149149 __tmp149146))) + (__foldr1 cons __tmp149255 __tmp149252))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body144837144901%_ - _%hd144838144903%_)))))) + _%body144943145007%_ + _%hd144944145009%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop144831144867%_ - _%target144828144862%_ + (_%loop144937144973%_ + _%target144934144968%_ '() '())) - (_%g144821144849%_ - _%g144822144852%_))))) - (_%g144821144849%_ _%g144822144852%_)))) - (_%g144821144849%_ _%g144822144852%_))))) - (_%g144820144951%_ _%stx144815%_))))) + (_%g144927144955%_ + _%g144928144958%_))))) + (_%g144927144955%_ _%g144928144958%_)))) + (_%g144927144955%_ _%g144928144958%_))))) + (_%g144926145057%_ _%stx144921%_))))) (define gxc#generate-runtime-let-values%__% - (lambda (_%self144051%_ _%stx144052%_ _%compiled-body?144053%_) - (letrec ((_%generate-simple144055%_ - (lambda (_%hd144799%_ _%body144800%_) - (_%coalesce-boolean144056%_ - (_%simplify-let144057%_ + (lambda (_%self144157%_ _%stx144158%_ _%compiled-body?144159%_) + (letrec ((_%generate-simple144161%_ + (lambda (_%hd144905%_ _%body144906%_) + (_%coalesce-boolean144162%_ + (_%simplify-let144163%_ (gxc#generate-runtime-simple-let - _%self144051%_ + _%self144157%_ 'let - _%hd144799%_ - _%body144800%_ - _%compiled-body?144053%_))))) - (_%coalesce-boolean144056%_ - (lambda (_%code144660%_) + _%hd144905%_ + _%body144906%_ + _%compiled-body?144159%_))))) + (_%coalesce-boolean144162%_ + (lambda (_%code144766%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (let* ((_%code144661144687%_ _%code144660%_) - (_%else144663144695%_ - (lambda () _%code144660%_)) - (_%K144665144732%_ - (lambda (_%expr2144698%_ - _%expr1144699%_ - _%id144700%_) - (let* ((_%expr2144701144709%_ - _%expr2144698%_) - (_%else144703144717%_ + (let* ((_%code144767144793%_ _%code144766%_) + (_%else144769144801%_ + (lambda () _%code144766%_)) + (_%K144771144838%_ + (lambda (_%expr2144804%_ + _%expr1144805%_ + _%id144806%_) + (let* ((_%expr2144807144815%_ + _%expr2144804%_) + (_%else144809144823%_ (lambda () (cons 'or - (cons _%expr1144699%_ - (cons _%expr2144698%_ + (cons _%expr1144805%_ + (cons _%expr2144804%_ '()))))) - (_%K144705144722%_ - (lambda (_%exprs144720%_) + (_%K144811144828%_ + (lambda (_%exprs144826%_) (cons 'or - (cons _%expr1144699%_ - _%exprs144720%_))))) - (if (pair? _%expr2144701144709%_) - (let ((_%hd144706144725%_ + (cons _%expr1144805%_ + _%exprs144826%_))))) + (if (pair? _%expr2144807144815%_) + (let ((_%hd144812144831%_ (let () (declare (not safe)) - (##car _%expr2144701144709%_))) - (_%tl144707144727%_ + (##car _%expr2144807144815%_))) + (_%tl144813144833%_ (let () (declare (not safe)) - (##cdr _%expr2144701144709%_)))) + (##cdr _%expr2144807144815%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144706144725%_ 'or)) - (let ((_%exprs144730%_ - _%tl144707144727%_)) - (_%K144705144722%_ - _%exprs144730%_)) - (_%else144703144717%_))) - (_%else144703144717%_)))))) - (if (pair? _%code144661144687%_) - (let ((_%hd144666144735%_ + (##eq? _%hd144812144831%_ 'or)) + (let ((_%exprs144836%_ + _%tl144813144833%_)) + (_%K144811144828%_ + _%exprs144836%_)) + (_%else144809144823%_))) + (_%else144809144823%_)))))) + (if (pair? _%code144767144793%_) + (let ((_%hd144772144841%_ (let () (declare (not safe)) - (##car _%code144661144687%_))) - (_%tl144667144737%_ + (##car _%code144767144793%_))) + (_%tl144773144843%_ (let () (declare (not safe)) - (##cdr _%code144661144687%_)))) + (##cdr _%code144767144793%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144666144735%_ 'let)) - (if (pair? _%tl144667144737%_) - (let ((_%hd144668144740%_ + (##eq? _%hd144772144841%_ 'let)) + (if (pair? _%tl144773144843%_) + (let ((_%hd144774144846%_ (let () (declare (not safe)) - (##car _%tl144667144737%_))) - (_%tl144669144742%_ + (##car _%tl144773144843%_))) + (_%tl144775144848%_ (let () (declare (not safe)) - (##cdr _%tl144667144737%_)))) - (if (pair? _%hd144668144740%_) - (let ((_%hd144680144745%_ + (##cdr _%tl144773144843%_)))) + (if (pair? _%hd144774144846%_) + (let ((_%hd144786144851%_ (let () (declare (not safe)) - (##car _%hd144668144740%_))) - (_%tl144681144747%_ + (##car _%hd144774144846%_))) + (_%tl144787144853%_ (let () (declare (not safe)) - (##cdr _%hd144668144740%_)))) - (if (pair? _%hd144680144745%_) - (let ((_%hd144682144750%_ + (##cdr _%hd144774144846%_)))) + (if (pair? _%hd144786144851%_) + (let ((_%hd144788144856%_ (let () (declare (not safe)) - (##car _%hd144680144745%_))) - (_%tl144683144752%_ + (##car _%hd144786144851%_))) + (_%tl144789144858%_ (let () (declare (not safe)) - (##cdr _%hd144680144745%_)))) - (let ((_%id144755%_ - _%hd144682144750%_)) - (if (pair? _%tl144683144752%_) - (let ((_%hd144684144757%_ + (##cdr _%hd144786144851%_)))) + (let ((_%id144861%_ + _%hd144788144856%_)) + (if (pair? _%tl144789144858%_) + (let ((_%hd144790144863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%tl144683144752%_))) - (_%tl144685144759%_ + (##car _%tl144789144858%_))) + (_%tl144791144865%_ (let () (declare (not safe)) - (##cdr _%tl144683144752%_)))) - (let ((_%expr1144762%_ _%hd144684144757%_)) - (if (null? _%tl144685144759%_) - (if (null? _%tl144681144747%_) - (if (pair? _%tl144669144742%_) - (let ((_%hd144670144764%_ + (##cdr _%tl144789144858%_)))) + (let ((_%expr1144868%_ _%hd144790144863%_)) + (if (null? _%tl144791144865%_) + (if (null? _%tl144787144853%_) + (if (pair? _%tl144775144848%_) + (let ((_%hd144776144870%_ (let () (declare (not safe)) - (##car _%tl144669144742%_))) - (_%tl144671144766%_ + (##car _%tl144775144848%_))) + (_%tl144777144872%_ (let () (declare (not safe)) - (##cdr _%tl144669144742%_)))) - (if (pair? _%hd144670144764%_) - (let ((_%hd144672144769%_ + (##cdr _%tl144775144848%_)))) + (if (pair? _%hd144776144870%_) + (let ((_%hd144778144875%_ (let () (declare (not safe)) - (##car _%hd144670144764%_))) - (_%tl144673144771%_ + (##car _%hd144776144870%_))) + (_%tl144779144877%_ (let () (declare (not safe)) - (##cdr _%hd144670144764%_)))) + (##cdr _%hd144776144870%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144672144769%_ + (##eq? _%hd144778144875%_ 'if)) - (if (pair? _%tl144673144771%_) - (let ((_%hd144674144774%_ + (if (pair? _%tl144779144877%_) + (let ((_%hd144780144880%_ (let () (declare (not safe)) - (##car _%tl144673144771%_))) - (_%tl144675144776%_ + (##car _%tl144779144877%_))) + (_%tl144781144882%_ (let () (declare (not safe)) - (##cdr _%tl144673144771%_)))) - (if ((lambda (_%g144778144780%_) - (eq? _%g144778144780%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id144755%_)) - _%hd144674144774%_) - (if (pair? _%tl144675144776%_) - (let ((_%hd144676144783%_ + (##cdr _%tl144779144877%_)))) + (if ((lambda (_%g144884144886%_) + (eq? _%g144884144886%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%id144861%_)) + _%hd144780144880%_) + (if (pair? _%tl144781144882%_) + (let ((_%hd144782144889%_ (let () (declare (not safe)) - (##car _%tl144675144776%_))) - (_%tl144677144785%_ + (##car _%tl144781144882%_))) + (_%tl144783144891%_ (let () (declare (not safe)) - (##cdr _%tl144675144776%_)))) - (if ((lambda (_%g144787144789%_) - (eq? _%g144787144789%_ _%id144755%_)) - _%hd144676144783%_) - (if (pair? _%tl144677144785%_) - (let ((_%hd144678144792%_ + (##cdr _%tl144781144882%_)))) + (if ((lambda (_%g144893144895%_) + (eq? _%g144893144895%_ _%id144861%_)) + _%hd144782144889%_) + (if (pair? _%tl144783144891%_) + (let ((_%hd144784144898%_ (let () (declare (not safe)) - (##car _%tl144677144785%_))) - (_%tl144679144794%_ + (##car _%tl144783144891%_))) + (_%tl144785144900%_ (let () (declare (not safe)) - (##cdr _%tl144677144785%_)))) - (let ((_%expr2144797%_ _%hd144678144792%_)) - (if (null? _%tl144679144794%_) - (if (null? _%tl144671144766%_) - (_%K144665144732%_ - _%expr2144797%_ - _%expr1144762%_ - _%id144755%_) - (_%else144663144695%_)) - (_%else144663144695%_)))) - (_%else144663144695%_)) - (_%else144663144695%_))) - (_%else144663144695%_)) - (_%else144663144695%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144663144695%_)) - (_%else144663144695%_))) - (_%else144663144695%_))) - (_%else144663144695%_)) - (_%else144663144695%_)) - (_%else144663144695%_)))) - (_%else144663144695%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144663144695%_))) - (_%else144663144695%_))) - (_%else144663144695%_)) - (_%else144663144695%_))) - (_%else144663144695%_))) - _%code144660%_))) - (_%simplify-let144057%_ - (lambda (_%code144359%_) - (let* ((_%code144360144432%_ _%code144359%_) - (_%else144365144440%_ (lambda () _%code144359%_))) - (let ((_%K144424144640%_ - (lambda (_%expr144638%_) _%expr144638%_)) - (_%K144407144586%_ - (lambda (_%body144582%_ - _%expr144583%_ - _%id144584%_) + (##cdr _%tl144783144891%_)))) + (let ((_%expr2144903%_ _%hd144784144898%_)) + (if (null? _%tl144785144900%_) + (if (null? _%tl144777144872%_) + (_%K144771144838%_ + _%expr2144903%_ + _%expr1144868%_ + _%id144861%_) + (_%else144769144801%_)) + (_%else144769144801%_)))) + (_%else144769144801%_)) + (_%else144769144801%_))) + (_%else144769144801%_)) + (_%else144769144801%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144769144801%_)) + (_%else144769144801%_))) + (_%else144769144801%_))) + (_%else144769144801%_)) + (_%else144769144801%_)) + (_%else144769144801%_)))) + (_%else144769144801%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144769144801%_))) + (_%else144769144801%_))) + (_%else144769144801%_)) + (_%else144769144801%_))) + (_%else144769144801%_))) + _%code144766%_))) + (_%simplify-let144163%_ + (lambda (_%code144465%_) + (let* ((_%code144466144538%_ _%code144465%_) + (_%else144471144546%_ (lambda () _%code144465%_))) + (let ((_%K144530144746%_ + (lambda (_%expr144744%_) _%expr144744%_)) + (_%K144513144692%_ + (lambda (_%body144688%_ + _%expr144689%_ + _%id144690%_) (cons 'let - (cons (cons (cons _%id144584%_ - (cons _%expr144583%_ + (cons (cons (cons _%id144690%_ + (cons _%expr144689%_ '())) '()) - _%body144582%_)))) - (_%K144384144510%_ - (lambda (_%body144504%_ - _%expr2144505%_ - _%id2144506%_ - _%expr1144507%_ - _%id1144508%_) + _%body144688%_)))) + (_%K144490144616%_ + (lambda (_%body144610%_ + _%expr2144611%_ + _%id2144612%_ + _%expr1144613%_ + _%id1144614%_) (cons 'let* - (cons (cons (cons _%id1144508%_ - (cons _%expr1144507%_ + (cons (cons (cons _%id1144614%_ + (cons _%expr1144613%_ '())) - (cons (cons _%id2144506%_ - (cons _%expr2144505%_ + (cons (cons _%id2144612%_ + (cons _%expr2144611%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body144504%_)))) - (_%K144367144449%_ - (lambda (_%body144444%_ - _%bind144445%_ - _%expr1144446%_ - _%id1144447%_) + _%body144610%_)))) + (_%K144473144555%_ + (lambda (_%body144550%_ + _%bind144551%_ + _%expr1144552%_ + _%id1144553%_) (cons 'let* - (cons (cons (cons _%id1144447%_ - (cons _%expr1144446%_ + (cons (cons (cons _%id1144553%_ + (cons _%expr1144552%_ '())) - _%bind144445%_) - _%body144444%_))))) - (if (pair? _%code144360144432%_) - (let ((_%tl144426144645%_ + _%bind144551%_) + _%body144550%_))))) + (if (pair? _%code144466144538%_) + (let ((_%tl144532144751%_ (let () (declare (not safe)) - (##cdr _%code144360144432%_))) - (_%hd144425144643%_ + (##cdr _%code144466144538%_))) + (_%hd144531144749%_ (let () (declare (not safe)) - (##car _%code144360144432%_)))) + (##car _%code144466144538%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144425144643%_ 'let)) - (if (pair? _%tl144426144645%_) - (let ((_%tl144428144650%_ + (##eq? _%hd144531144749%_ 'let)) + (if (pair? _%tl144532144751%_) + (let ((_%tl144534144756%_ (let () (declare (not safe)) - (##cdr _%tl144426144645%_))) - (_%hd144427144648%_ + (##cdr _%tl144532144751%_))) + (_%hd144533144754%_ (let () (declare (not safe)) - (##car _%tl144426144645%_)))) - (if (null? _%hd144427144648%_) - (if (pair? _%tl144428144650%_) - (let ((_%tl144430144655%_ + (##car _%tl144532144751%_)))) + (if (null? _%hd144533144754%_) + (if (pair? _%tl144534144756%_) + (let ((_%tl144536144761%_ (let () (declare (not safe)) - (##cdr _%tl144428144650%_))) - (_%hd144429144653%_ + (##cdr _%tl144534144756%_))) + (_%hd144535144759%_ (let () (declare (not safe)) - (##car _%tl144428144650%_)))) - (if (null? _%tl144430144655%_) - (let ((_%expr144658%_ - _%hd144429144653%_)) - (_%K144424144640%_ - _%expr144658%_)) - (_%else144365144440%_))) - (_%else144365144440%_)) - (if (pair? _%hd144427144648%_) - (let ((_%tl144419144601%_ + (##car _%tl144534144756%_)))) + (if (null? _%tl144536144761%_) + (let ((_%expr144764%_ + _%hd144535144759%_)) + (_%K144530144746%_ + _%expr144764%_)) + (_%else144471144546%_))) + (_%else144471144546%_)) + (if (pair? _%hd144533144754%_) + (let ((_%tl144525144707%_ (let () (declare (not safe)) - (##cdr _%hd144427144648%_))) - (_%hd144418144599%_ + (##cdr _%hd144533144754%_))) + (_%hd144524144705%_ (let () (declare (not safe)) - (##car _%hd144427144648%_)))) - (if (pair? _%hd144418144599%_) - (let ((_%tl144421144606%_ + (##car _%hd144533144754%_)))) + (if (pair? _%hd144524144705%_) + (let ((_%tl144527144712%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%hd144418144599%_))) - (_%hd144420144604%_ - (let () (declare (not safe)) (##car _%hd144418144599%_)))) - (if (pair? _%tl144421144606%_) - (let ((_%tl144423144613%_ + (##cdr _%hd144524144705%_))) + (_%hd144526144710%_ + (let () (declare (not safe)) (##car _%hd144524144705%_)))) + (if (pair? _%tl144527144712%_) + (let ((_%tl144529144719%_ (let () (declare (not safe)) - (##cdr _%tl144421144606%_))) - (_%hd144422144611%_ + (##cdr _%tl144527144712%_))) + (_%hd144528144717%_ (let () (declare (not safe)) - (##car _%tl144421144606%_)))) - (if (null? _%tl144423144613%_) - (if (null? _%tl144419144601%_) - (if (pair? _%tl144428144650%_) - (let ((_%tl144413144620%_ + (##car _%tl144527144712%_)))) + (if (null? _%tl144529144719%_) + (if (null? _%tl144525144707%_) + (if (pair? _%tl144534144756%_) + (let ((_%tl144519144726%_ (let () (declare (not safe)) - (##cdr _%tl144428144650%_))) - (_%hd144412144618%_ + (##cdr _%tl144534144756%_))) + (_%hd144518144724%_ (let () (declare (not safe)) - (##car _%tl144428144650%_)))) - (if (pair? _%hd144412144618%_) - (let ((_%tl144415144625%_ + (##car _%tl144534144756%_)))) + (if (pair? _%hd144518144724%_) + (let ((_%tl144521144731%_ (let () (declare (not safe)) - (##cdr _%hd144412144618%_))) - (_%hd144414144623%_ + (##cdr _%hd144518144724%_))) + (_%hd144520144729%_ (let () (declare (not safe)) - (##car _%hd144412144618%_)))) + (##car _%hd144518144724%_)))) (if (let () (declare (not safe)) - (##eq? _%hd144414144623%_ + (##eq? _%hd144520144729%_ 'let)) - (if (pair? _%tl144415144625%_) - (let ((_%tl144417144630%_ + (if (pair? _%tl144521144731%_) + (let ((_%tl144523144736%_ (let () (declare (not safe)) - (##cdr _%tl144415144625%_))) - (_%hd144416144628%_ + (##cdr _%tl144521144731%_))) + (_%hd144522144734%_ (let () (declare (not safe)) - (##car _%tl144415144625%_)))) - (if (null? _%hd144416144628%_) - (if (null? _%tl144413144620%_) - (let ((_%id144609%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd144420144604%_) - (_%expr144616%_ _%hd144422144611%_) - (_%body144633%_ _%tl144417144630%_)) - (_%K144407144586%_ - _%body144633%_ - _%expr144616%_ - _%id144609%_)) - (_%else144365144440%_)) - (if (pair? _%hd144416144628%_) - (let ((_%tl144396144559%_ + (##car _%tl144521144731%_)))) + (if (null? _%hd144522144734%_) + (if (null? _%tl144519144726%_) + (let ((_%id144715%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%hd144526144710%_) + (_%expr144722%_ _%hd144528144717%_) + (_%body144739%_ _%tl144523144736%_)) + (_%K144513144692%_ + _%body144739%_ + _%expr144722%_ + _%id144715%_)) + (_%else144471144546%_)) + (if (pair? _%hd144522144734%_) + (let ((_%tl144502144665%_ (let () (declare (not safe)) - (##cdr _%hd144416144628%_))) - (_%hd144395144557%_ + (##cdr _%hd144522144734%_))) + (_%hd144501144663%_ (let () (declare (not safe)) - (##car _%hd144416144628%_)))) - (if (pair? _%hd144395144557%_) - (let ((_%tl144398144564%_ + (##car _%hd144522144734%_)))) + (if (pair? _%hd144501144663%_) + (let ((_%tl144504144670%_ (let () (declare (not safe)) - (##cdr _%hd144395144557%_))) - (_%hd144397144562%_ + (##cdr _%hd144501144663%_))) + (_%hd144503144668%_ (let () (declare (not safe)) - (##car _%hd144395144557%_)))) - (if (pair? _%tl144398144564%_) - (let ((_%tl144400144571%_ + (##car _%hd144501144663%_)))) + (if (pair? _%tl144504144670%_) + (let ((_%tl144506144677%_ (let () (declare (not safe)) - (##cdr _%tl144398144564%_))) - (_%hd144399144569%_ + (##cdr _%tl144504144670%_))) + (_%hd144505144675%_ (let () (declare (not safe)) - (##car _%tl144398144564%_)))) - (if (null? _%tl144400144571%_) - (if (null? _%tl144396144559%_) - (if (null? _%tl144413144620%_) - (let ((_%id1144533%_ - _%hd144420144604%_) - (_%expr1144540%_ - _%hd144422144611%_) - (_%id2144567%_ - _%hd144397144562%_) - (_%expr2144574%_ - _%hd144399144569%_) - (_%body144576%_ - _%tl144417144630%_)) - (_%K144384144510%_ - _%body144576%_ - _%expr2144574%_ - _%id2144567%_ - _%expr1144540%_ - _%id1144533%_)) - (_%else144365144440%_)) - (_%else144365144440%_)) - (_%else144365144440%_))) - (_%else144365144440%_))) - (_%else144365144440%_))) - (_%else144365144440%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144365144440%_)) + (##car _%tl144504144670%_)))) + (if (null? _%tl144506144677%_) + (if (null? _%tl144502144665%_) + (if (null? _%tl144519144726%_) + (let ((_%id1144639%_ + _%hd144526144710%_) + (_%expr1144646%_ + _%hd144528144717%_) + (_%id2144673%_ + _%hd144503144668%_) + (_%expr2144680%_ + _%hd144505144675%_) + (_%body144682%_ + _%tl144523144736%_)) + (_%K144490144616%_ + _%body144682%_ + _%expr2144680%_ + _%id2144673%_ + _%expr1144646%_ + _%id1144639%_)) + (_%else144471144546%_)) + (_%else144471144546%_)) + (_%else144471144546%_))) + (_%else144471144546%_))) + (_%else144471144546%_))) + (_%else144471144546%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144471144546%_)) (if (let () (declare (not safe)) - (##eq? _%hd144414144623%_ + (##eq? _%hd144520144729%_ 'let*)) - (if (pair? _%tl144415144625%_) - (let ((_%tl144377144493%_ + (if (pair? _%tl144521144731%_) + (let ((_%tl144483144599%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl144415144625%_))) - (_%hd144376144491%_ - (let () (declare (not safe)) (##car _%tl144415144625%_)))) - (if (null? _%tl144413144620%_) - (let ((_%id1144472%_ _%hd144420144604%_) - (_%expr1144479%_ _%hd144422144611%_) - (_%bind144496%_ _%hd144376144491%_) - (_%body144498%_ _%tl144377144493%_)) - (_%K144367144449%_ - _%body144498%_ - _%bind144496%_ - _%expr1144479%_ - _%id1144472%_)) - (_%else144365144440%_))) - (_%else144365144440%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144365144440%_)))) - (_%else144365144440%_))) - (_%else144365144440%_)) - (_%else144365144440%_)) - (_%else144365144440%_))) - (_%else144365144440%_))) - (_%else144365144440%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else144365144440%_)))) - (_%else144365144440%_)) - (_%else144365144440%_))) - (_%else144365144440%_)))))) - (_%generate-values144058%_ - (lambda (_%hd144172%_ _%body144173%_) - (let _%lp144175%_ ((_%rest144177%_ _%hd144172%_) - (_%bind144178%_ '()) - (_%check144179%_ '()) - (_%post144180%_ '())) - (let* ((_%__stx148303148304%_ _%rest144177%_) - (_%g144183144194%_ + (##cdr _%tl144521144731%_))) + (_%hd144482144597%_ + (let () (declare (not safe)) (##car _%tl144521144731%_)))) + (if (null? _%tl144519144726%_) + (let ((_%id1144578%_ _%hd144526144710%_) + (_%expr1144585%_ _%hd144528144717%_) + (_%bind144602%_ _%hd144482144597%_) + (_%body144604%_ _%tl144483144599%_)) + (_%K144473144555%_ + _%body144604%_ + _%bind144602%_ + _%expr1144585%_ + _%id1144578%_)) + (_%else144471144546%_))) + (_%else144471144546%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144471144546%_)))) + (_%else144471144546%_))) + (_%else144471144546%_)) + (_%else144471144546%_)) + (_%else144471144546%_))) + (_%else144471144546%_))) + (_%else144471144546%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else144471144546%_)))) + (_%else144471144546%_)) + (_%else144471144546%_))) + (_%else144471144546%_)))))) + (_%generate-values144164%_ + (lambda (_%hd144278%_ _%body144279%_) + (let _%lp144281%_ ((_%rest144283%_ _%hd144278%_) + (_%bind144284%_ '()) + (_%check144285%_ '()) + (_%post144286%_ '())) + (let* ((_%__stx148409148410%_ _%rest144283%_) + (_%g144289144300%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148303148304%_))))) - (let ((_%__kont148305148306%_ - (lambda (_%L144221%_ _%L144222%_) - (let* ((_%__stx148259148260%_ _%L144222%_) - (_%g144237144262%_ + _%__stx148409148410%_))))) + (let ((_%__kont148411148412%_ + (lambda (_%L144327%_ _%L144328%_) + (let* ((_%__stx148365148366%_ _%L144328%_) + (_%g144343144368%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148259148260%_))))) - (let ((_%__kont148261148262%_ - (lambda (_%L144335%_ _%L144336%_) - (let ((_%eid144350%_ + _%__stx148365148366%_))))) + (let ((_%__kont148367148368%_ + (lambda (_%L144441%_ _%L144442%_) + (let ((_%eid144456%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L144336%_))) - (_%expr144351%_ + _%L144442%_))) + (_%expr144457%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144051%_ - _%L144335%_)))) - (_%lp144175%_ - _%L144221%_ - (cons (cons _%eid144350%_ - (cons _%expr144351%_ + _%self144157%_ + _%L144441%_)))) + (_%lp144281%_ + _%L144327%_ + (cons (cons _%eid144456%_ + (cons _%expr144457%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144178%_) - _%check144179%_ - _%post144180%_)))) - (_%__kont148263148264%_ - (lambda (_%L144283%_ _%L144284%_) - (let* ((_%vals144297%_ + _%bind144284%_) + _%check144285%_ + _%post144286%_)))) + (_%__kont148369148370%_ + (lambda (_%L144389%_ _%L144390%_) + (let* ((_%vals144403%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values144299%_ + (_%check-values144405%_ (gxc#generate-runtime-check-values - _%vals144297%_ - _%L144284%_ - _%L144283%_)) - (_%refs144301%_ + _%vals144403%_ + _%L144390%_ + _%L144389%_)) + (_%refs144407%_ (gxc#generate-runtime-let-values-bind - _%vals144297%_ - _%L144284%_)) - (_%expr144303%_ + _%vals144403%_ + _%L144390%_)) + (_%expr144409%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144051%_ - _%L144283%_)))) - (_%lp144175%_ - _%L144221%_ - (cons (cons _%vals144297%_ - (cons _%expr144303%_ + _%self144157%_ + _%L144389%_)))) + (_%lp144281%_ + _%L144327%_ + (cons (cons _%vals144403%_ + (cons _%expr144409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind144178%_) - (cons _%check-values144299%_ - _%check144179%_) - (cons _%refs144301%_ - _%post144180%_)))))) + _%bind144284%_) + (cons _%check-values144405%_ + _%check144285%_) + (cons _%refs144407%_ + _%post144286%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148259148260%_)) - (let ((_%e144241144311%_ + _%__stx148365148366%_)) + (let ((_%e144347144417%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148259148260%_)))) - (let ((_%tl144243144316%_ + _%__stx148365148366%_)))) + (let ((_%tl144349144422%_ (let () (declare (not safe)) - (##cdr _%e144241144311%_))) - (_%hd144242144314%_ + (##cdr _%e144347144417%_))) + (_%hd144348144420%_ (let () (declare (not safe)) - (##car _%e144241144311%_)))) + (##car _%e144347144417%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd144242144314%_)) - (let ((_%e144244144319%_ + _%hd144348144420%_)) + (let ((_%e144350144425%_ (let () (declare (not safe)) (gx#stx-e - _%hd144242144314%_)))) - (let ((_%tl144246144324%_ + _%hd144348144420%_)))) + (let ((_%tl144352144430%_ (let () (declare (not safe)) - (##cdr _%e144244144319%_))) - (_%hd144245144322%_ + (##cdr _%e144350144425%_))) + (_%hd144351144428%_ (let () (declare (not safe)) - (##car _%e144244144319%_)))) + (##car _%e144350144425%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144246144324%_)) + _%tl144352144430%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl144243144316%_)) - (let ((_%e144247144327%_ + (gx#stx-pair? _%tl144349144422%_)) + (let ((_%e144353144433%_ (let () (declare (not safe)) - (gx#stx-e _%tl144243144316%_)))) - (let ((_%tl144249144332%_ + (gx#stx-e _%tl144349144422%_)))) + (let ((_%tl144355144438%_ (let () (declare (not safe)) - (##cdr _%e144247144327%_))) - (_%hd144248144330%_ + (##cdr _%e144353144433%_))) + (_%hd144354144436%_ (let () (declare (not safe)) - (##car _%e144247144327%_)))) + (##car _%e144353144433%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144249144332%_)) - (_%__kont148261148262%_ - _%hd144248144330%_ - _%hd144245144322%_) + (gx#stx-null? _%tl144355144438%_)) + (_%__kont148367148368%_ + _%hd144354144436%_ + _%hd144351144428%_) (let () (declare (not safe)) - (_%g144237144262%_))))) - (let () (declare (not safe)) (_%g144237144262%_))) + (_%g144343144368%_))))) + (let () (declare (not safe)) (_%g144343144368%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144243144316%_)) - (let ((_%e144255144275%_ + (gx#stx-pair? _%tl144349144422%_)) + (let ((_%e144361144381%_ (let () (declare (not safe)) - (gx#stx-e _%tl144243144316%_)))) - (let ((_%tl144257144280%_ + (gx#stx-e _%tl144349144422%_)))) + (let ((_%tl144363144386%_ (let () (declare (not safe)) - (##cdr _%e144255144275%_))) - (_%hd144256144278%_ + (##cdr _%e144361144381%_))) + (_%hd144362144384%_ (let () (declare (not safe)) - (##car _%e144255144275%_)))) + (##car _%e144361144381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144257144280%_)) - (_%__kont148263148264%_ - _%hd144256144278%_ - _%hd144242144314%_) + (gx#stx-null? _%tl144363144386%_)) + (_%__kont148369148370%_ + _%hd144362144384%_ + _%hd144348144420%_) (let () (declare (not safe)) - (_%g144237144262%_))))) - (let () (declare (not safe)) (_%g144237144262%_)))))) + (_%g144343144368%_))))) + (let () (declare (not safe)) (_%g144343144368%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl144243144316%_)) - (let ((_%e144255144275%_ + _%tl144349144422%_)) + (let ((_%e144361144381%_ (let () (declare (not safe)) (gx#stx-e - _%tl144243144316%_)))) - (let ((_%tl144257144280%_ + _%tl144349144422%_)))) + (let ((_%tl144363144386%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e144255144275%_))) - (_%hd144256144278%_ - (let () (declare (not safe)) (##car _%e144255144275%_)))) + (##cdr _%e144361144381%_))) + (_%hd144362144384%_ + (let () (declare (not safe)) (##car _%e144361144381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl144257144280%_)) - (_%__kont148263148264%_ - _%hd144256144278%_ - _%hd144242144314%_) - (let () (declare (not safe)) (_%g144237144262%_))))) + (gx#stx-null? _%tl144363144386%_)) + (_%__kont148369148370%_ + _%hd144362144384%_ + _%hd144348144420%_) + (let () (declare (not safe)) (_%g144343144368%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g144237144262%_)))))) + (_%g144343144368%_)))))) (let () (declare (not safe)) - (_%g144237144262%_))))))) - (_%__kont148307148308%_ + (_%g144343144368%_))))))) + (_%__kont148413148414%_ (lambda () - (let* ((_%body144201%_ - (if _%compiled-body?144053%_ - _%body144173%_ + (let* ((_%body144307%_ + (if _%compiled-body?144159%_ + _%body144279%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self144051%_ - _%body144173%_)))) - (_%body144203%_ - (_%generate-values-post144059%_ - _%post144180%_ - _%body144201%_)) - (_%body144205%_ - (_%generate-values-check144060%_ - _%check144179%_ - _%body144203%_))) + _%self144157%_ + _%body144279%_)))) + (_%body144309%_ + (_%generate-values-post144165%_ + _%post144286%_ + _%body144307%_)) + (_%body144311%_ + (_%generate-values-check144166%_ + _%check144285%_ + _%body144309%_))) (cons 'let - (cons (reverse _%bind144178%_) - (cons _%body144205%_ '()))))))) + (cons (reverse _%bind144284%_) + (cons _%body144311%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148303148304%_)) - (let ((_%e144187144213%_ + (gx#stx-pair? _%__stx148409148410%_)) + (let ((_%e144293144319%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148303148304%_)))) - (let ((_%tl144189144218%_ + (gx#stx-e _%__stx148409148410%_)))) + (let ((_%tl144295144324%_ (let () (declare (not safe)) - (##cdr _%e144187144213%_))) - (_%hd144188144216%_ + (##cdr _%e144293144319%_))) + (_%hd144294144322%_ (let () (declare (not safe)) - (##car _%e144187144213%_)))) - (_%__kont148305148306%_ - _%tl144189144218%_ - _%hd144188144216%_))) - (_%__kont148307148308%_))))))) - (_%generate-values-post144059%_ - (lambda (_%post144131%_ _%body144132%_) - (let _%lp144134%_ ((_%rest144136%_ _%post144131%_) - (_%body144137%_ _%body144132%_)) - (let* ((_%rest144138144146%_ _%rest144136%_) - (_%else144140144154%_ (lambda () _%body144137%_)) - (_%K144142144160%_ - (lambda (_%rest144157%_ _%bind144158%_) - (_%lp144134%_ - _%rest144157%_ + (##car _%e144293144319%_)))) + (_%__kont148411148412%_ + _%tl144295144324%_ + _%hd144294144322%_))) + (_%__kont148413148414%_))))))) + (_%generate-values-post144165%_ + (lambda (_%post144237%_ _%body144238%_) + (let _%lp144240%_ ((_%rest144242%_ _%post144237%_) + (_%body144243%_ _%body144238%_)) + (let* ((_%rest144244144252%_ _%rest144242%_) + (_%else144246144260%_ (lambda () _%body144243%_)) + (_%K144248144266%_ + (lambda (_%rest144263%_ _%bind144264%_) + (_%lp144240%_ + _%rest144263%_ (cons 'let - (cons _%bind144158%_ - (cons _%body144137%_ '()))))))) - (if (pair? _%rest144138144146%_) - (let ((_%hd144143144163%_ + (cons _%bind144264%_ + (cons _%body144243%_ '()))))))) + (if (pair? _%rest144244144252%_) + (let ((_%hd144249144269%_ (let () (declare (not safe)) - (##car _%rest144138144146%_))) - (_%tl144144144165%_ + (##car _%rest144244144252%_))) + (_%tl144250144271%_ (let () (declare (not safe)) - (##cdr _%rest144138144146%_)))) - (let* ((_%bind144168%_ _%hd144143144163%_) - (_%rest144170%_ _%tl144144144165%_)) - (_%K144142144160%_ - _%rest144170%_ - _%bind144168%_))) - (_%else144140144154%_)))))) - (_%generate-values-check144060%_ - (lambda (_%check144128%_ _%body144129%_) + (##cdr _%rest144244144252%_)))) + (let* ((_%bind144274%_ _%hd144249144269%_) + (_%rest144276%_ _%tl144250144271%_)) + (_%K144248144266%_ + _%rest144276%_ + _%bind144274%_))) + (_%else144246144260%_)))))) + (_%generate-values-check144166%_ + (lambda (_%check144234%_ _%body144235%_) (cons 'begin - (let ((__tmp149151 (cons _%body144129%_ '())) - (__tmp149150 (reverse _%check144128%_))) + (let ((__tmp149257 (cons _%body144235%_ '())) + (__tmp149256 (reverse _%check144234%_))) (declare (not safe)) - (__foldr1 cons __tmp149151 __tmp149150)))))) - (let* ((_%g144062144079%_ - (lambda (_%g144063144076%_) + (__foldr1 cons __tmp149257 __tmp149256)))))) + (let* ((_%g144168144185%_ + (lambda (_%g144169144182%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g144063144076%_)))) - (_%g144061144125%_ - (lambda (_%g144063144082%_) + _%g144169144182%_)))) + (_%g144167144231%_ + (lambda (_%g144169144188%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g144063144082%_)) - (let ((_%e144066144084%_ + (gx#stx-pair? _%g144169144188%_)) + (let ((_%e144172144190%_ (let () (declare (not safe)) - (gx#stx-e _%g144063144082%_)))) - (let ((_%hd144067144087%_ + (gx#stx-e _%g144169144188%_)))) + (let ((_%hd144173144193%_ (let () (declare (not safe)) - (##car _%e144066144084%_))) - (_%tl144068144089%_ + (##car _%e144172144190%_))) + (_%tl144174144195%_ (let () (declare (not safe)) - (##cdr _%e144066144084%_)))) + (##cdr _%e144172144190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144068144089%_)) - (let ((_%e144069144092%_ + (gx#stx-pair? _%tl144174144195%_)) + (let ((_%e144175144198%_ (let () (declare (not safe)) - (gx#stx-e _%tl144068144089%_)))) - (let ((_%hd144070144095%_ + (gx#stx-e _%tl144174144195%_)))) + (let ((_%hd144176144201%_ (let () (declare (not safe)) - (##car _%e144069144092%_))) - (_%tl144071144097%_ + (##car _%e144175144198%_))) + (_%tl144177144203%_ (let () (declare (not safe)) - (##cdr _%e144069144092%_)))) + (##cdr _%e144175144198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl144071144097%_)) - (let ((_%e144072144100%_ + (gx#stx-pair? _%tl144177144203%_)) + (let ((_%e144178144206%_ (let () (declare (not safe)) (gx#stx-e - _%tl144071144097%_)))) - (let ((_%hd144073144103%_ + _%tl144177144203%_)))) + (let ((_%hd144179144209%_ (let () (declare (not safe)) - (##car _%e144072144100%_))) - (_%tl144074144105%_ + (##car _%e144178144206%_))) + (_%tl144180144211%_ (let () (declare (not safe)) - (##cdr _%e144072144100%_)))) + (##cdr _%e144178144206%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl144074144105%_)) - ((lambda (_%L144108%_ - _%L144109%_) + _%tl144180144211%_)) + ((lambda (_%L144214%_ + _%L144215%_) (if (gxc#generate-runtime-simple-let? - _%L144109%_) - (_%generate-simple144055%_ - _%L144109%_ - _%L144108%_) - (_%generate-values144058%_ - _%L144109%_ - _%L144108%_))) - _%hd144073144103%_ - _%hd144070144095%_) - (_%g144062144079%_ - _%g144063144082%_)))) - (_%g144062144079%_ - _%g144063144082%_)))) - (_%g144062144079%_ _%g144063144082%_)))) - (_%g144062144079%_ _%g144063144082%_))))) - (_%g144061144125%_ _%stx144052%_))))) + _%L144215%_) + (_%generate-simple144161%_ + _%L144215%_ + _%L144214%_) + (_%generate-values144164%_ + _%L144215%_ + _%L144214%_))) + _%hd144179144209%_ + _%hd144176144201%_) + (_%g144168144185%_ + _%g144169144188%_)))) + (_%g144168144185%_ + _%g144169144188%_)))) + (_%g144168144185%_ _%g144169144188%_)))) + (_%g144168144185%_ _%g144169144188%_))))) + (_%g144167144231%_ _%stx144158%_))))) (define gxc#generate-runtime-let-values%__0 - (lambda (_%self144805%_ _%stx144806%_) - (let ((_%compiled-body?144808%_ '#f)) + (lambda (_%self144911%_ _%stx144912%_) + (let ((_%compiled-body?144914%_ '#f)) (gxc#generate-runtime-let-values%__% - _%self144805%_ - _%stx144806%_ - _%compiled-body?144808%_)))) + _%self144911%_ + _%stx144912%_ + _%compiled-body?144914%_)))) (define gxc#generate-runtime-let-values% - (lambda _g149153_ - (let ((_g149152_ (let () (declare (not safe)) (##length _g149153_)))) - (cond ((let () (declare (not safe)) (##fx= _g149152_ 2)) - (apply gxc#generate-runtime-let-values%__0 _g149153_)) - ((let () (declare (not safe)) (##fx= _g149152_ 3)) - (apply gxc#generate-runtime-let-values%__% _g149153_)) + (lambda _g149259_ + (let ((_g149258_ (let () (declare (not safe)) (##length _g149259_)))) + (cond ((let () (declare (not safe)) (##fx= _g149258_ 2)) + (apply gxc#generate-runtime-let-values%__0 _g149259_)) + ((let () (declare (not safe)) (##fx= _g149258_ 3)) + (apply gxc#generate-runtime-let-values%__% _g149259_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-let-values% - _g149153_)))))) + _g149259_)))))) (define gxc#generate-runtime-let-values-bind - (lambda (_%vals143945%_ _%hd143946%_) - (let _%lp143948%_ ((_%rest143950%_ _%hd143946%_) - (_%k143951%_ '0) - (_%r143952%_ '())) - (let* ((_%__stx148317148318%_ _%rest143950%_) - (_%g143957143974%_ + (lambda (_%vals144051%_ _%hd144052%_) + (let _%lp144054%_ ((_%rest144056%_ _%hd144052%_) + (_%k144057%_ '0) + (_%r144058%_ '())) + (let* ((_%__stx148423148424%_ _%rest144056%_) + (_%g144063144080%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148317148318%_))))) - (let ((_%__kont148319148320%_ - (lambda (_%L144037%_) - (_%lp143948%_ - _%L144037%_ - (let () (declare (not safe)) (##fx+ _%k143951%_ '1)) - _%r143952%_))) - (_%__kont148321148322%_ - (lambda (_%L144010%_ _%L144011%_) - (_%lp143948%_ - _%L144010%_ - (let () (declare (not safe)) (##fx+ _%k143951%_ '1)) + _%__stx148423148424%_))))) + (let ((_%__kont148425148426%_ + (lambda (_%L144143%_) + (_%lp144054%_ + _%L144143%_ + (let () (declare (not safe)) (##fx+ _%k144057%_ '1)) + _%r144058%_))) + (_%__kont148427148428%_ + (lambda (_%L144116%_ _%L144117%_) + (_%lp144054%_ + _%L144116%_ + (let () (declare (not safe)) (##fx+ _%k144057%_ '1)) (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L144011%_)) + _%L144117%_)) (cons (gxc#generate-runtime-values-ref - _%vals143945%_ - _%k143951%_ - _%L144010%_) + _%vals144051%_ + _%k144057%_ + _%L144116%_) '())) - _%r143952%_)))) - (_%__kont148323148324%_ - (lambda (_%L143986%_) - (let ((__tmp149154 + _%r144058%_)))) + (_%__kont148429148430%_ + (lambda (_%L144092%_) + (let ((__tmp149260 (cons (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L143986%_)) + _%L144092%_)) (cons (gxc#generate-runtime-values->list - _%vals143945%_ - _%k143951%_) + _%vals144051%_ + _%k144057%_) '())) '()))) (declare (not safe)) - (__foldl1 cons __tmp149154 _%r143952%_)))) - (_%__kont148325148326%_ (lambda () (reverse _%r143952%_)))) - (let ((_%g143955143997%_ + (__foldl1 cons __tmp149260 _%r144058%_)))) + (_%__kont148431148432%_ (lambda () (reverse _%r144058%_)))) + (let ((_%g144061144103%_ (lambda () - (let ((_%L143986%_ _%__stx148317148318%_)) + (let ((_%L144092%_ _%__stx148423148424%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L143986%_)) - (_%__kont148323148324%_ _%L143986%_) - (_%__kont148325148326%_)))))) + (gx#identifier? _%L144092%_)) + (_%__kont148429148430%_ _%L144092%_) + (_%__kont148431148432%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148317148318%_)) - (let ((_%e143960144026%_ + (gx#stx-pair? _%__stx148423148424%_)) + (let ((_%e144066144132%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148317148318%_)))) - (let ((_%tl143962144031%_ + (gx#stx-e _%__stx148423148424%_)))) + (let ((_%tl144068144137%_ (let () (declare (not safe)) - (##cdr _%e143960144026%_))) - (_%hd143961144029%_ + (##cdr _%e144066144132%_))) + (_%hd144067144135%_ (let () (declare (not safe)) - (##car _%e143960144026%_)))) + (##car _%e144066144132%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd143961144029%_)) - (let ((_%e143963144034%_ + (gx#stx-datum? _%hd144067144135%_)) + (let ((_%e144069144140%_ (let () (declare (not safe)) - (gx#stx-e _%hd143961144029%_)))) - (if (equal? _%e143963144034%_ '#f) - (_%__kont148319148320%_ _%tl143962144031%_) - (_%__kont148321148322%_ - _%tl143962144031%_ - _%hd143961144029%_))) - (_%__kont148321148322%_ - _%tl143962144031%_ - _%hd143961144029%_)))) - (let () (declare (not safe)) (_%g143955143997%_))))))))) + (gx#stx-e _%hd144067144135%_)))) + (if (equal? _%e144069144140%_ '#f) + (_%__kont148425148426%_ _%tl144068144137%_) + (_%__kont148427148428%_ + _%tl144068144137%_ + _%hd144067144135%_))) + (_%__kont148427148428%_ + _%tl144068144137%_ + _%hd144067144135%_)))) + (let () (declare (not safe)) (_%g144061144103%_))))))))) (define gxc#generate-runtime-letrec-values%__% - (lambda (_%self143624%_ _%stx143625%_ _%compiled-body?143626%_) - (letrec ((_%generate-simple143628%_ - (lambda (_%hd143930%_ _%body143931%_) + (lambda (_%self143730%_ _%stx143731%_ _%compiled-body?143732%_) + (letrec ((_%generate-simple143734%_ + (lambda (_%hd144036%_ _%body144037%_) (gxc#generate-runtime-simple-let - _%self143624%_ + _%self143730%_ 'letrec - _%hd143930%_ - _%body143931%_ - _%compiled-body?143626%_))) - (_%generate-values143629%_ - (lambda (_%hd143709%_ _%body143710%_) - (let _%lp143712%_ ((_%rest143714%_ _%hd143709%_) - (_%bind143715%_ '()) - (_%check143716%_ '()) - (_%post143717%_ '())) - (let* ((_%__stx148391148392%_ _%rest143714%_) - (_%g143720143731%_ + _%hd144036%_ + _%body144037%_ + _%compiled-body?143732%_))) + (_%generate-values143735%_ + (lambda (_%hd143815%_ _%body143816%_) + (let _%lp143818%_ ((_%rest143820%_ _%hd143815%_) + (_%bind143821%_ '()) + (_%check143822%_ '()) + (_%post143823%_ '())) + (let* ((_%__stx148497148498%_ _%rest143820%_) + (_%g143826143837%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148391148392%_))))) - (let ((_%__kont148393148394%_ - (lambda (_%L143758%_ _%L143759%_) - (let* ((_%__stx148347148348%_ _%L143759%_) - (_%g143774143799%_ + _%__stx148497148498%_))))) + (let ((_%__kont148499148500%_ + (lambda (_%L143864%_ _%L143865%_) + (let* ((_%__stx148453148454%_ _%L143865%_) + (_%g143880143905%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148347148348%_))))) - (let ((_%__kont148349148350%_ - (lambda (_%L143906%_ _%L143907%_) - (let ((_%eid143921%_ + _%__stx148453148454%_))))) + (let ((_%__kont148455148456%_ + (lambda (_%L144012%_ _%L144013%_) + (let ((_%eid144027%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143907%_))) - (_%expr143922%_ + _%L144013%_))) + (_%expr144028%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143624%_ - _%L143906%_)))) - (_%lp143712%_ - _%L143758%_ - (cons (cons _%eid143921%_ - (cons _%expr143922%_ + _%self143730%_ + _%L144012%_)))) + (_%lp143818%_ + _%L143864%_ + (cons (cons _%eid144027%_ + (cons _%expr144028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind143715%_) - _%check143716%_ - _%post143717%_)))) - (_%__kont148351148352%_ - (lambda (_%L143820%_ _%L143821%_) - (let* ((_%vals143834%_ + _%bind143821%_) + _%check143822%_ + _%post143823%_)))) + (_%__kont148457148458%_ + (lambda (_%L143926%_ _%L143927%_) + (let* ((_%vals143940%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143836%_ + (_%check-values143942%_ (gxc#generate-runtime-check-values - _%vals143834%_ - _%L143821%_ - _%L143820%_)) - (_%refs143838%_ + _%vals143940%_ + _%L143927%_ + _%L143926%_)) + (_%refs143944%_ (gxc#generate-runtime-let-values-bind - _%vals143834%_ - _%L143821%_)) - (_%expr143840%_ + _%vals143940%_ + _%L143927%_)) + (_%expr143946%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143624%_ - _%L143820%_)))) - (_%lp143712%_ - _%L143758%_ - (let ((__tmp149156 - (cons (cons _%vals143834%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr143840%_ '())) - _%bind143715%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp149155 - (map (lambda (_%e143842143844%_) - (let* ((_%g143846143855%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e143842143844%_) - (_%E143848143859%_ + _%self143730%_ + _%L143926%_)))) + (_%lp143818%_ + _%L143864%_ + (let ((__tmp149262 + (cons (cons _%vals143940%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%expr143946%_ '())) + _%bind143821%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (__tmp149261 + (map (lambda (_%e143948143950%_) + (let* ((_%g143952143961%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%e143948143950%_) + (_%E143954143965%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g143846143855%_ + _%g143952143961%_ '([eid _]))) '#!void)) - (_%K143849143864%_ - (lambda (_%eid143862%_) - (cons _%eid143862%_ (cons '#!void '()))))) - (if (pair? _%g143846143855%_) - (let ((_%hd143850143867%_ + (_%K143955143970%_ + (lambda (_%eid143968%_) + (cons _%eid143968%_ (cons '#!void '()))))) + (if (pair? _%g143952143961%_) + (let ((_%hd143956143973%_ (let () (declare (not safe)) - (##car _%g143846143855%_))) - (_%tl143851143869%_ + (##car _%g143952143961%_))) + (_%tl143957143975%_ (let () (declare (not safe)) - (##cdr _%g143846143855%_)))) - (let ((_%eid143872%_ _%hd143850143867%_)) - (if (pair? _%tl143851143869%_) - (let ((_%tl143853143874%_ + (##cdr _%g143952143961%_)))) + (let ((_%eid143978%_ _%hd143956143973%_)) + (if (pair? _%tl143957143975%_) + (let ((_%tl143959143980%_ (let () (declare (not safe)) - (##cdr _%tl143851143869%_)))) - (if (null? _%tl143853143874%_) - (_%K143849143864%_ _%eid143872%_) - (_%E143848143859%_))) - (_%E143848143859%_)))) - (_%E143848143859%_)))) - _%refs143838%_))) + (##cdr _%tl143957143975%_)))) + (if (null? _%tl143959143980%_) + (_%K143955143970%_ _%eid143978%_) + (_%E143954143965%_))) + (_%E143954143965%_)))) + (_%E143954143965%_)))) + _%refs143944%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149156 - __tmp149155)) - (cons _%check-values143836%_ - _%check143716%_) + __tmp149262 + __tmp149261)) + (cons _%check-values143942%_ + _%check143822%_) (let () (declare (not safe)) (__foldl1 cons - _%refs143838%_ - _%post143717%_))))))) + _%refs143944%_ + _%post143823%_))))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148347148348%_)) - (let ((_%e143778143882%_ + _%__stx148453148454%_)) + (let ((_%e143884143988%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148347148348%_)))) - (let ((_%tl143780143887%_ + _%__stx148453148454%_)))) + (let ((_%tl143886143993%_ (let () (declare (not safe)) - (##cdr _%e143778143882%_))) - (_%hd143779143885%_ + (##cdr _%e143884143988%_))) + (_%hd143885143991%_ (let () (declare (not safe)) - (##car _%e143778143882%_)))) + (##car _%e143884143988%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143779143885%_)) - (let ((_%e143781143890%_ + _%hd143885143991%_)) + (let ((_%e143887143996%_ (let () (declare (not safe)) (gx#stx-e - _%hd143779143885%_)))) - (let ((_%tl143783143895%_ + _%hd143885143991%_)))) + (let ((_%tl143889144001%_ (let () (declare (not safe)) - (##cdr _%e143781143890%_))) - (_%hd143782143893%_ + (##cdr _%e143887143996%_))) + (_%hd143888143999%_ (let () (declare (not safe)) - (##car _%e143781143890%_)))) + (##car _%e143887143996%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143783143895%_)) + _%tl143889144001%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl143780143887%_)) - (let ((_%e143784143898%_ + (gx#stx-pair? _%tl143886143993%_)) + (let ((_%e143890144004%_ (let () (declare (not safe)) - (gx#stx-e _%tl143780143887%_)))) - (let ((_%tl143786143903%_ + (gx#stx-e _%tl143886143993%_)))) + (let ((_%tl143892144009%_ (let () (declare (not safe)) - (##cdr _%e143784143898%_))) - (_%hd143785143901%_ + (##cdr _%e143890144004%_))) + (_%hd143891144007%_ (let () (declare (not safe)) - (##car _%e143784143898%_)))) + (##car _%e143890144004%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143786143903%_)) - (_%__kont148349148350%_ - _%hd143785143901%_ - _%hd143782143893%_) + (gx#stx-null? _%tl143892144009%_)) + (_%__kont148455148456%_ + _%hd143891144007%_ + _%hd143888143999%_) (let () (declare (not safe)) - (_%g143774143799%_))))) - (let () (declare (not safe)) (_%g143774143799%_))) + (_%g143880143905%_))))) + (let () (declare (not safe)) (_%g143880143905%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143780143887%_)) - (let ((_%e143792143812%_ + (gx#stx-pair? _%tl143886143993%_)) + (let ((_%e143898143918%_ (let () (declare (not safe)) - (gx#stx-e _%tl143780143887%_)))) - (let ((_%tl143794143817%_ + (gx#stx-e _%tl143886143993%_)))) + (let ((_%tl143900143923%_ (let () (declare (not safe)) - (##cdr _%e143792143812%_))) - (_%hd143793143815%_ + (##cdr _%e143898143918%_))) + (_%hd143899143921%_ (let () (declare (not safe)) - (##car _%e143792143812%_)))) + (##car _%e143898143918%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143794143817%_)) - (_%__kont148351148352%_ - _%hd143793143815%_ - _%hd143779143885%_) + (gx#stx-null? _%tl143900143923%_)) + (_%__kont148457148458%_ + _%hd143899143921%_ + _%hd143885143991%_) (let () (declare (not safe)) - (_%g143774143799%_))))) - (let () (declare (not safe)) (_%g143774143799%_)))))) + (_%g143880143905%_))))) + (let () (declare (not safe)) (_%g143880143905%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143780143887%_)) - (let ((_%e143792143812%_ + _%tl143886143993%_)) + (let ((_%e143898143918%_ (let () (declare (not safe)) (gx#stx-e - _%tl143780143887%_)))) - (let ((_%tl143794143817%_ + _%tl143886143993%_)))) + (let ((_%tl143900143923%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143792143812%_))) - (_%hd143793143815%_ - (let () (declare (not safe)) (##car _%e143792143812%_)))) + (##cdr _%e143898143918%_))) + (_%hd143899143921%_ + (let () (declare (not safe)) (##car _%e143898143918%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143794143817%_)) - (_%__kont148351148352%_ - _%hd143793143815%_ - _%hd143779143885%_) - (let () (declare (not safe)) (_%g143774143799%_))))) + (gx#stx-null? _%tl143900143923%_)) + (_%__kont148457148458%_ + _%hd143899143921%_ + _%hd143885143991%_) + (let () (declare (not safe)) (_%g143880143905%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143774143799%_)))))) + (_%g143880143905%_)))))) (let () (declare (not safe)) - (_%g143774143799%_))))))) - (_%__kont148395148396%_ + (_%g143880143905%_))))))) + (_%__kont148501148502%_ (lambda () - (let* ((_%body143738%_ - (if _%compiled-body?143626%_ - _%body143710%_ + (let* ((_%body143844%_ + (if _%compiled-body?143732%_ + _%body143816%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143624%_ - _%body143710%_)))) - (_%body143740%_ - (_%generate-values-post143631%_ - _%post143717%_ - _%body143738%_)) - (_%body143742%_ - (_%generate-values-check143630%_ - _%check143716%_ - _%body143740%_))) + _%self143730%_ + _%body143816%_)))) + (_%body143846%_ + (_%generate-values-post143737%_ + _%post143823%_ + _%body143844%_)) + (_%body143848%_ + (_%generate-values-check143736%_ + _%check143822%_ + _%body143846%_))) (cons 'letrec - (cons (reverse _%bind143715%_) - (cons _%body143742%_ '()))))))) + (cons (reverse _%bind143821%_) + (cons _%body143848%_ '()))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148391148392%_)) - (let ((_%e143724143750%_ + (gx#stx-pair? _%__stx148497148498%_)) + (let ((_%e143830143856%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148391148392%_)))) - (let ((_%tl143726143755%_ + (gx#stx-e _%__stx148497148498%_)))) + (let ((_%tl143832143861%_ (let () (declare (not safe)) - (##cdr _%e143724143750%_))) - (_%hd143725143753%_ + (##cdr _%e143830143856%_))) + (_%hd143831143859%_ (let () (declare (not safe)) - (##car _%e143724143750%_)))) - (_%__kont148393148394%_ - _%tl143726143755%_ - _%hd143725143753%_))) - (_%__kont148395148396%_))))))) - (_%generate-values-check143630%_ - (lambda (_%check143706%_ _%body143707%_) + (##car _%e143830143856%_)))) + (_%__kont148499148500%_ + _%tl143832143861%_ + _%hd143831143859%_))) + (_%__kont148501148502%_))))))) + (_%generate-values-check143736%_ + (lambda (_%check143812%_ _%body143813%_) (cons 'begin - (let ((__tmp149158 (cons _%body143707%_ '())) - (__tmp149157 (reverse _%check143706%_))) + (let ((__tmp149264 (cons _%body143813%_ '())) + (__tmp149263 (reverse _%check143812%_))) (declare (not safe)) - (__foldr1 cons __tmp149158 __tmp149157))))) - (_%generate-values-post143631%_ - (lambda (_%post143699%_ _%body143700%_) + (__foldr1 cons __tmp149264 __tmp149263))))) + (_%generate-values-post143737%_ + (lambda (_%post143805%_ _%body143806%_) (cons 'begin - (let ((__tmp149162 (cons _%body143700%_ '())) - (__tmp149159 - (let ((__tmp149161 - (lambda (_%g143701143703%_) - (cons 'set! _%g143701143703%_))) - (__tmp149160 (reverse _%post143699%_))) + (let ((__tmp149268 (cons _%body143806%_ '())) + (__tmp149265 + (let ((__tmp149267 + (lambda (_%g143807143809%_) + (cons 'set! _%g143807143809%_))) + (__tmp149266 (reverse _%post143805%_))) (declare (not safe)) - (##map __tmp149161 __tmp149160)))) + (##map __tmp149267 __tmp149266)))) (declare (not safe)) - (__foldr1 cons __tmp149162 __tmp149159)))))) - (let* ((_%g143633143650%_ - (lambda (_%g143634143647%_) + (__foldr1 cons __tmp149268 __tmp149265)))))) + (let* ((_%g143739143756%_ + (lambda (_%g143740143753%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143634143647%_)))) - (_%g143632143696%_ - (lambda (_%g143634143653%_) + _%g143740143753%_)))) + (_%g143738143802%_ + (lambda (_%g143740143759%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143634143653%_)) - (let ((_%e143637143655%_ + (gx#stx-pair? _%g143740143759%_)) + (let ((_%e143743143761%_ (let () (declare (not safe)) - (gx#stx-e _%g143634143653%_)))) - (let ((_%hd143638143658%_ + (gx#stx-e _%g143740143759%_)))) + (let ((_%hd143744143764%_ (let () (declare (not safe)) - (##car _%e143637143655%_))) - (_%tl143639143660%_ + (##car _%e143743143761%_))) + (_%tl143745143766%_ (let () (declare (not safe)) - (##cdr _%e143637143655%_)))) + (##cdr _%e143743143761%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143639143660%_)) - (let ((_%e143640143663%_ + (gx#stx-pair? _%tl143745143766%_)) + (let ((_%e143746143769%_ (let () (declare (not safe)) - (gx#stx-e _%tl143639143660%_)))) - (let ((_%hd143641143666%_ + (gx#stx-e _%tl143745143766%_)))) + (let ((_%hd143747143772%_ (let () (declare (not safe)) - (##car _%e143640143663%_))) - (_%tl143642143668%_ + (##car _%e143746143769%_))) + (_%tl143748143774%_ (let () (declare (not safe)) - (##cdr _%e143640143663%_)))) + (##cdr _%e143746143769%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143642143668%_)) - (let ((_%e143643143671%_ + (gx#stx-pair? _%tl143748143774%_)) + (let ((_%e143749143777%_ (let () (declare (not safe)) (gx#stx-e - _%tl143642143668%_)))) - (let ((_%hd143644143674%_ + _%tl143748143774%_)))) + (let ((_%hd143750143780%_ (let () (declare (not safe)) - (##car _%e143643143671%_))) - (_%tl143645143676%_ + (##car _%e143749143777%_))) + (_%tl143751143782%_ (let () (declare (not safe)) - (##cdr _%e143643143671%_)))) + (##cdr _%e143749143777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143645143676%_)) - ((lambda (_%L143679%_ - _%L143680%_) + _%tl143751143782%_)) + ((lambda (_%L143785%_ + _%L143786%_) (if (gxc#generate-runtime-simple-let? - _%L143680%_) - (_%generate-simple143628%_ - _%L143680%_ - _%L143679%_) - (_%generate-values143629%_ - _%L143680%_ - _%L143679%_))) - _%hd143644143674%_ - _%hd143641143666%_) - (_%g143633143650%_ - _%g143634143653%_)))) - (_%g143633143650%_ - _%g143634143653%_)))) - (_%g143633143650%_ _%g143634143653%_)))) - (_%g143633143650%_ _%g143634143653%_))))) - (_%g143632143696%_ _%stx143625%_))))) + _%L143786%_) + (_%generate-simple143734%_ + _%L143786%_ + _%L143785%_) + (_%generate-values143735%_ + _%L143786%_ + _%L143785%_))) + _%hd143750143780%_ + _%hd143747143772%_) + (_%g143739143756%_ + _%g143740143759%_)))) + (_%g143739143756%_ + _%g143740143759%_)))) + (_%g143739143756%_ _%g143740143759%_)))) + (_%g143739143756%_ _%g143740143759%_))))) + (_%g143738143802%_ _%stx143731%_))))) (define gxc#generate-runtime-letrec-values%__0 - (lambda (_%self143936%_ _%stx143937%_) - (let ((_%compiled-body?143939%_ '#f)) + (lambda (_%self144042%_ _%stx144043%_) + (let ((_%compiled-body?144045%_ '#f)) (gxc#generate-runtime-letrec-values%__% - _%self143936%_ - _%stx143937%_ - _%compiled-body?143939%_)))) + _%self144042%_ + _%stx144043%_ + _%compiled-body?144045%_)))) (define gxc#generate-runtime-letrec-values% - (lambda _g149164_ - (let ((_g149163_ (let () (declare (not safe)) (##length _g149164_)))) - (cond ((let () (declare (not safe)) (##fx= _g149163_ 2)) - (apply gxc#generate-runtime-letrec-values%__0 _g149164_)) - ((let () (declare (not safe)) (##fx= _g149163_ 3)) - (apply gxc#generate-runtime-letrec-values%__% _g149164_)) + (lambda _g149270_ + (let ((_g149269_ (let () (declare (not safe)) (##length _g149270_)))) + (cond ((let () (declare (not safe)) (##fx= _g149269_ 2)) + (apply gxc#generate-runtime-letrec-values%__0 _g149270_)) + ((let () (declare (not safe)) (##fx= _g149269_ 3)) + (apply gxc#generate-runtime-letrec-values%__% _g149270_)) (else (##raise-wrong-number-of-arguments-exception gxc#generate-runtime-letrec-values% - _g149164_)))))) + _g149270_)))))) (define gxc#generate-runtime-letrec*-values% - (lambda (_%self143205%_ _%stx143206%_) - (letrec ((_%generate-values143208%_ - (lambda (_%hd143451%_ _%body143452%_) - (let _%lp143454%_ ((_%rest143456%_ _%hd143451%_) - (_%bind143457%_ '())) - (let* ((_%rest143458143466%_ _%rest143456%_) - (_%else143460143477%_ + (lambda (_%self143311%_ _%stx143312%_) + (letrec ((_%generate-values143314%_ + (lambda (_%hd143557%_ _%body143558%_) + (let _%lp143560%_ ((_%rest143562%_ _%hd143557%_) + (_%bind143563%_ '())) + (let* ((_%rest143564143572%_ _%rest143562%_) + (_%else143566143583%_ (lambda () - (let ((_%bind143474%_ (reverse _%bind143457%_)) - (_%body143475%_ + (let ((_%bind143580%_ (reverse _%bind143563%_)) + (_%body143581%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143205%_ - _%body143452%_)))) + _%self143311%_ + _%body143558%_)))) (cons 'letrec* - (cons _%bind143474%_ - (cons _%body143475%_ '())))))) - (_%K143462143611%_ - (lambda (_%rest143480%_ _%hd-bind143481%_) - (let* ((_%__stx148405148406%_ - _%hd-bind143481%_) - (_%g143484143509%_ + (cons _%bind143580%_ + (cons _%body143581%_ '())))))) + (_%K143568143717%_ + (lambda (_%rest143586%_ _%hd-bind143587%_) + (let* ((_%__stx148511148512%_ + _%hd-bind143587%_) + (_%g143590143615%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148405148406%_))))) - (let ((_%__kont148407148408%_ - (lambda (_%L143590%_ _%L143591%_) - (let ((_%eid143605%_ + _%__stx148511148512%_))))) + (let ((_%__kont148513148514%_ + (lambda (_%L143696%_ _%L143697%_) + (let ((_%eid143711%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%L143591%_))) - (_%expr143606%_ + _%L143697%_))) + (_%expr143712%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143205%_ - _%L143590%_)))) - (_%lp143454%_ - _%rest143480%_ - (cons (cons _%eid143605%_ - (cons _%expr143606%_ + _%self143311%_ + _%L143696%_)))) + (_%lp143560%_ + _%rest143586%_ + (cons (cons _%eid143711%_ + (cons _%expr143712%_ '())) - _%bind143457%_))))) - (_%__kont148409148410%_ - (lambda (_%L143530%_ _%L143531%_) - (let* ((_%vals143550%_ + _%bind143563%_))))) + (_%__kont148515148516%_ + (lambda (_%L143636%_ _%L143637%_) + (let* ((_%vals143656%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%tmp143552%_ + (_%tmp143658%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__0))) - (_%check-values143554%_ + (_%check-values143660%_ (gxc#generate-runtime-check-values - _%tmp143552%_ - _%L143531%_ - _%L143530%_)) - (_%refs143556%_ + _%tmp143658%_ + _%L143637%_ + _%L143636%_)) + (_%refs143662%_ (gxc#generate-runtime-let-values-bind - _%vals143550%_ - _%L143531%_)) - (_%expr143558%_ + _%vals143656%_ + _%L143637%_)) + (_%expr143664%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self143205%_ - _%L143530%_)))) - (_%lp143454%_ - _%rest143480%_ - (let ((__tmp149165 - (cons (cons _%vals143550%_ + _%self143311%_ + _%L143636%_)))) + (_%lp143560%_ + _%rest143586%_ + (let ((__tmp149271 + (cons (cons _%vals143656%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'let - (cons (cons (cons _%tmp143552%_ - (cons _%expr143558%_ + (cons (cons (cons _%tmp143658%_ + (cons _%expr143664%_ '())) '()) - (cons _%check-values143554%_ - (cons _%tmp143552%_ '())))) + (cons _%check-values143660%_ + (cons _%tmp143658%_ '())))) '())) - _%bind143457%_))) + _%bind143563%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 cons - __tmp149165 - _%refs143556%_))))))) + __tmp149271 + _%refs143662%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148405148406%_)) - (let ((_%e143488143566%_ + (gx#stx-pair? _%__stx148511148512%_)) + (let ((_%e143594143672%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148405148406%_)))) - (let ((_%tl143490143571%_ + _%__stx148511148512%_)))) + (let ((_%tl143596143677%_ (let () (declare (not safe)) - (##cdr _%e143488143566%_))) - (_%hd143489143569%_ + (##cdr _%e143594143672%_))) + (_%hd143595143675%_ (let () (declare (not safe)) - (##car _%e143488143566%_)))) + (##car _%e143594143672%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143489143569%_)) - (let ((_%e143491143574%_ + _%hd143595143675%_)) + (let ((_%e143597143680%_ (let () (declare (not safe)) (gx#stx-e - _%hd143489143569%_)))) - (let ((_%tl143493143579%_ + _%hd143595143675%_)))) + (let ((_%tl143599143685%_ (let () (declare (not safe)) - (##cdr _%e143491143574%_))) - (_%hd143492143577%_ + (##cdr _%e143597143680%_))) + (_%hd143598143683%_ (let () (declare (not safe)) - (##car _%e143491143574%_)))) + (##car _%e143597143680%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143493143579%_)) + _%tl143599143685%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143490143571%_)) - (let ((_%e143494143582%_ + _%tl143596143677%_)) + (let ((_%e143600143688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl143490143571%_)))) - (let ((_%tl143496143587%_ + (gx#stx-e _%tl143596143677%_)))) + (let ((_%tl143602143693%_ (let () (declare (not safe)) - (##cdr _%e143494143582%_))) - (_%hd143495143585%_ + (##cdr _%e143600143688%_))) + (_%hd143601143691%_ (let () (declare (not safe)) - (##car _%e143494143582%_)))) + (##car _%e143600143688%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143496143587%_)) - (_%__kont148407148408%_ - _%hd143495143585%_ - _%hd143492143577%_) + (gx#stx-null? _%tl143602143693%_)) + (_%__kont148513148514%_ + _%hd143601143691%_ + _%hd143598143683%_) (let () (declare (not safe)) - (_%g143484143509%_))))) - (let () (declare (not safe)) (_%g143484143509%_))) + (_%g143590143615%_))))) + (let () (declare (not safe)) (_%g143590143615%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143490143571%_)) - (let ((_%e143502143522%_ + (gx#stx-pair? _%tl143596143677%_)) + (let ((_%e143608143628%_ (let () (declare (not safe)) - (gx#stx-e _%tl143490143571%_)))) - (let ((_%tl143504143527%_ + (gx#stx-e _%tl143596143677%_)))) + (let ((_%tl143610143633%_ (let () (declare (not safe)) - (##cdr _%e143502143522%_))) - (_%hd143503143525%_ + (##cdr _%e143608143628%_))) + (_%hd143609143631%_ (let () (declare (not safe)) - (##car _%e143502143522%_)))) + (##car _%e143608143628%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143504143527%_)) - (_%__kont148409148410%_ - _%hd143503143525%_ - _%hd143489143569%_) + (gx#stx-null? _%tl143610143633%_)) + (_%__kont148515148516%_ + _%hd143609143631%_ + _%hd143595143675%_) (let () (declare (not safe)) - (_%g143484143509%_))))) - (let () (declare (not safe)) (_%g143484143509%_)))))) + (_%g143590143615%_))))) + (let () (declare (not safe)) (_%g143590143615%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143490143571%_)) - (let ((_%e143502143522%_ + _%tl143596143677%_)) + (let ((_%e143608143628%_ (let () (declare (not safe)) (gx#stx-e - _%tl143490143571%_)))) - (let ((_%tl143504143527%_ + _%tl143596143677%_)))) + (let ((_%tl143610143633%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e143502143522%_))) - (_%hd143503143525%_ - (let () (declare (not safe)) (##car _%e143502143522%_)))) + (##cdr _%e143608143628%_))) + (_%hd143609143631%_ + (let () (declare (not safe)) (##car _%e143608143628%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143504143527%_)) - (_%__kont148409148410%_ - _%hd143503143525%_ - _%hd143489143569%_) - (let () (declare (not safe)) (_%g143484143509%_))))) + (gx#stx-null? _%tl143610143633%_)) + (_%__kont148515148516%_ + _%hd143609143631%_ + _%hd143595143675%_) + (let () (declare (not safe)) (_%g143590143615%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g143484143509%_)))))) + (_%g143590143615%_)))))) (let () (declare (not safe)) - (_%g143484143509%_)))))))) - (if (pair? _%rest143458143466%_) - (let ((_%hd143463143614%_ + (_%g143590143615%_)))))))) + (if (pair? _%rest143564143572%_) + (let ((_%hd143569143720%_ (let () (declare (not safe)) - (##car _%rest143458143466%_))) - (_%tl143464143616%_ + (##car _%rest143564143572%_))) + (_%tl143570143722%_ (let () (declare (not safe)) - (##cdr _%rest143458143466%_)))) - (let* ((_%hd-bind143619%_ _%hd143463143614%_) - (_%rest143621%_ _%tl143464143616%_)) - (_%K143462143611%_ - _%rest143621%_ - _%hd-bind143619%_))) - (_%else143460143477%_)))))) - (_%generate-letrec?143209%_ - (lambda (_%hd143341%_) - (let _%lp143343%_ ((_%rest143345%_ _%hd143341%_)) - (let* ((_%rest143346143354%_ _%rest143345%_) - (_%else143348143362%_ (lambda () '#t)) - (_%K143350143439%_ - (lambda (_%rest143365%_ _%hd-bind143366%_) - (let* ((_%g143368143385%_ - (lambda (_%g143369143382%_) + (##cdr _%rest143564143572%_)))) + (let* ((_%hd-bind143725%_ _%hd143569143720%_) + (_%rest143727%_ _%tl143570143722%_)) + (_%K143568143717%_ + _%rest143727%_ + _%hd-bind143725%_))) + (_%else143566143583%_)))))) + (_%generate-letrec?143315%_ + (lambda (_%hd143447%_) + (let _%lp143449%_ ((_%rest143451%_ _%hd143447%_)) + (let* ((_%rest143452143460%_ _%rest143451%_) + (_%else143454143468%_ (lambda () '#t)) + (_%K143456143545%_ + (lambda (_%rest143471%_ _%hd-bind143472%_) + (let* ((_%g143474143491%_ + (lambda (_%g143475143488%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143369143382%_)))) - (_%g143367143436%_ - (lambda (_%g143369143388%_) + _%g143475143488%_)))) + (_%g143473143542%_ + (lambda (_%g143475143494%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g143369143388%_)) - (let ((_%e143372143390%_ + _%g143475143494%_)) + (let ((_%e143478143496%_ (let () (declare (not safe)) (gx#stx-e - _%g143369143388%_)))) - (let ((_%hd143373143393%_ + _%g143475143494%_)))) + (let ((_%hd143479143499%_ (let () (declare (not safe)) - (##car _%e143372143390%_))) - (_%tl143374143395%_ + (##car _%e143478143496%_))) + (_%tl143480143501%_ (let () (declare (not safe)) - (##cdr _%e143372143390%_)))) + (##cdr _%e143478143496%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd143373143393%_)) - (let ((_%e143375143398%_ + _%hd143479143499%_)) + (let ((_%e143481143504%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd143373143393%_)))) - (let ((_%hd143376143401%_ - (let () (declare (not safe)) (##car _%e143375143398%_))) - (_%tl143377143403%_ + (gx#stx-e _%hd143479143499%_)))) + (let ((_%hd143482143507%_ + (let () (declare (not safe)) (##car _%e143481143504%_))) + (_%tl143483143509%_ (let () (declare (not safe)) - (##cdr _%e143375143398%_)))) + (##cdr _%e143481143504%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143377143403%_)) + (gx#stx-null? _%tl143483143509%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143374143395%_)) - (let ((_%e143378143406%_ + (gx#stx-pair? _%tl143480143501%_)) + (let ((_%e143484143512%_ (let () (declare (not safe)) - (gx#stx-e _%tl143374143395%_)))) - (let ((_%hd143379143409%_ + (gx#stx-e _%tl143480143501%_)))) + (let ((_%hd143485143515%_ (let () (declare (not safe)) - (##car _%e143378143406%_))) - (_%tl143380143411%_ + (##car _%e143484143512%_))) + (_%tl143486143517%_ (let () (declare (not safe)) - (##cdr _%e143378143406%_)))) + (##cdr _%e143484143512%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl143380143411%_)) - ((lambda (_%L143414%_ _%L143415%_) - (if (_%is-lambda-expr?143210%_ - _%L143414%_) - (_%lp143343%_ _%rest143365%_) + (gx#stx-null? _%tl143486143517%_)) + ((lambda (_%L143520%_ _%L143521%_) + (if (_%is-lambda-expr?143316%_ + _%L143520%_) + (_%lp143449%_ _%rest143471%_) '#f)) - _%hd143379143409%_ - _%hd143376143401%_) - (_%g143368143385%_ _%g143369143388%_)))) - (_%g143368143385%_ _%g143369143388%_)) - (_%g143368143385%_ _%g143369143388%_)))) - (_%g143368143385%_ _%g143369143388%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g143368143385%_ - _%g143369143388%_))))) - (_%g143367143436%_ _%hd-bind143366%_))))) - (if (pair? _%rest143346143354%_) - (let ((_%hd143351143442%_ + _%hd143485143515%_ + _%hd143482143507%_) + (_%g143474143491%_ _%g143475143494%_)))) + (_%g143474143491%_ _%g143475143494%_)) + (_%g143474143491%_ _%g143475143494%_)))) + (_%g143474143491%_ _%g143475143494%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g143474143491%_ + _%g143475143494%_))))) + (_%g143473143542%_ _%hd-bind143472%_))))) + (if (pair? _%rest143452143460%_) + (let ((_%hd143457143548%_ (let () (declare (not safe)) - (##car _%rest143346143354%_))) - (_%tl143352143444%_ + (##car _%rest143452143460%_))) + (_%tl143458143550%_ (let () (declare (not safe)) - (##cdr _%rest143346143354%_)))) - (let* ((_%hd-bind143447%_ _%hd143351143442%_) - (_%rest143449%_ _%tl143352143444%_)) - (_%K143350143439%_ - _%rest143449%_ - _%hd-bind143447%_))) - (_%else143348143362%_)))))) - (_%is-lambda-expr?143210%_ - (lambda (_%expr143278%_) - (let* ((_%__stx148449148450%_ _%expr143278%_) - (_%g143281143295%_ + (##cdr _%rest143452143460%_)))) + (let* ((_%hd-bind143553%_ _%hd143457143548%_) + (_%rest143555%_ _%tl143458143550%_)) + (_%K143456143545%_ + _%rest143555%_ + _%hd-bind143553%_))) + (_%else143454143468%_)))))) + (_%is-lambda-expr?143316%_ + (lambda (_%expr143384%_) + (let* ((_%__stx148555148556%_ _%expr143384%_) + (_%g143387143401%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148449148450%_))))) - (let ((_%__kont148451148452%_ - (lambda (_%L143323%_ _%L143324%_) '#t)) - (_%__kont148453148454%_ (lambda () '#f))) + _%__stx148555148556%_))))) + (let ((_%__kont148557148558%_ + (lambda (_%L143429%_ _%L143430%_) '#t)) + (_%__kont148559148560%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148449148450%_)) - (let ((_%e143285143307%_ + (gx#stx-pair? _%__stx148555148556%_)) + (let ((_%e143391143413%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148449148450%_)))) - (let ((_%tl143287143312%_ + (gx#stx-e _%__stx148555148556%_)))) + (let ((_%tl143393143418%_ (let () (declare (not safe)) - (##cdr _%e143285143307%_))) - (_%hd143286143310%_ + (##cdr _%e143391143413%_))) + (_%hd143392143416%_ (let () (declare (not safe)) - (##car _%e143285143307%_)))) + (##car _%e143391143413%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd143286143310%_)) + (gx#identifier? _%hd143392143416%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd143286143310%_)) + _%hd143392143416%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl143287143312%_)) - (let ((_%e143288143315%_ + _%tl143393143418%_)) + (let ((_%e143394143421%_ (let () (declare (not safe)) (gx#stx-e - _%tl143287143312%_)))) - (let ((_%tl143290143320%_ + _%tl143393143418%_)))) + (let ((_%tl143396143426%_ (let () (declare (not safe)) - (##cdr _%e143288143315%_))) - (_%hd143289143318%_ + (##cdr _%e143394143421%_))) + (_%hd143395143424%_ (let () (declare (not safe)) - (##car _%e143288143315%_)))) - (_%__kont148451148452%_ - _%tl143290143320%_ - _%hd143289143318%_))) - (_%__kont148453148454%_)) - (_%__kont148453148454%_)) - (_%__kont148453148454%_)))) - (_%__kont148453148454%_))))))) - (let* ((_%g143212143229%_ - (lambda (_%g143213143226%_) + (##car _%e143394143421%_)))) + (_%__kont148557148558%_ + _%tl143396143426%_ + _%hd143395143424%_))) + (_%__kont148559148560%_)) + (_%__kont148559148560%_)) + (_%__kont148559148560%_)))) + (_%__kont148559148560%_))))))) + (let* ((_%g143318143335%_ + (lambda (_%g143319143332%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g143213143226%_)))) - (_%g143211143275%_ - (lambda (_%g143213143232%_) + _%g143319143332%_)))) + (_%g143317143381%_ + (lambda (_%g143319143338%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g143213143232%_)) - (let ((_%e143216143234%_ + (gx#stx-pair? _%g143319143338%_)) + (let ((_%e143322143340%_ (let () (declare (not safe)) - (gx#stx-e _%g143213143232%_)))) - (let ((_%hd143217143237%_ + (gx#stx-e _%g143319143338%_)))) + (let ((_%hd143323143343%_ (let () (declare (not safe)) - (##car _%e143216143234%_))) - (_%tl143218143239%_ + (##car _%e143322143340%_))) + (_%tl143324143345%_ (let () (declare (not safe)) - (##cdr _%e143216143234%_)))) + (##cdr _%e143322143340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143218143239%_)) - (let ((_%e143219143242%_ + (gx#stx-pair? _%tl143324143345%_)) + (let ((_%e143325143348%_ (let () (declare (not safe)) - (gx#stx-e _%tl143218143239%_)))) - (let ((_%hd143220143245%_ + (gx#stx-e _%tl143324143345%_)))) + (let ((_%hd143326143351%_ (let () (declare (not safe)) - (##car _%e143219143242%_))) - (_%tl143221143247%_ + (##car _%e143325143348%_))) + (_%tl143327143353%_ (let () (declare (not safe)) - (##cdr _%e143219143242%_)))) + (##cdr _%e143325143348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl143221143247%_)) - (let ((_%e143222143250%_ + (gx#stx-pair? _%tl143327143353%_)) + (let ((_%e143328143356%_ (let () (declare (not safe)) (gx#stx-e - _%tl143221143247%_)))) - (let ((_%hd143223143253%_ + _%tl143327143353%_)))) + (let ((_%hd143329143359%_ (let () (declare (not safe)) - (##car _%e143222143250%_))) - (_%tl143224143255%_ + (##car _%e143328143356%_))) + (_%tl143330143361%_ (let () (declare (not safe)) - (##cdr _%e143222143250%_)))) + (##cdr _%e143328143356%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl143224143255%_)) - ((lambda (_%L143258%_ - _%L143259%_) + _%tl143330143361%_)) + ((lambda (_%L143364%_ + _%L143365%_) (if (gxc#generate-runtime-simple-let? - _%L143259%_) - (if (_%generate-letrec?143209%_ - _%L143259%_) + _%L143365%_) + (if (_%generate-letrec?143315%_ + _%L143365%_) (gxc#generate-runtime-simple-let - _%self143205%_ + _%self143311%_ 'letrec - _%L143259%_ - _%L143258%_ + _%L143365%_ + _%L143364%_ '#f) (gxc#generate-runtime-simple-let - _%self143205%_ + _%self143311%_ 'letrec* - _%L143259%_ - _%L143258%_ + _%L143365%_ + _%L143364%_ '#f)) - (_%generate-values143208%_ - _%L143259%_ - _%L143258%_))) - _%hd143223143253%_ - _%hd143220143245%_) - (_%g143212143229%_ - _%g143213143232%_)))) - (_%g143212143229%_ - _%g143213143232%_)))) - (_%g143212143229%_ _%g143213143232%_)))) - (_%g143212143229%_ _%g143213143232%_))))) - (_%g143211143275%_ _%stx143206%_))))) + (_%generate-values143314%_ + _%L143365%_ + _%L143364%_))) + _%hd143329143359%_ + _%hd143326143351%_) + (_%g143318143335%_ + _%g143319143338%_)))) + (_%g143318143335%_ + _%g143319143338%_)))) + (_%g143318143335%_ _%g143319143338%_)))) + (_%g143318143335%_ _%g143319143338%_))))) + (_%g143317143381%_ _%stx143312%_))))) (define gxc#generate-runtime-simple-let? - (lambda (_%hd143142%_) - (let _%lp143144%_ ((_%rest143146%_ _%hd143142%_)) - (let* ((_%rest143147143163%_ _%rest143146%_) - (_%else143150143171%_ (lambda () '#f))) - (let ((_%K143153143184%_ - (lambda (_%rest143182%_) (_%lp143144%_ _%rest143182%_))) - (_%K143152143176%_ (lambda () '#t))) - (let ((_%try-match143149143179%_ + (lambda (_%hd143248%_) + (let _%lp143250%_ ((_%rest143252%_ _%hd143248%_)) + (let* ((_%rest143253143269%_ _%rest143252%_) + (_%else143256143277%_ (lambda () '#f))) + (let ((_%K143259143290%_ + (lambda (_%rest143288%_) (_%lp143250%_ _%rest143288%_))) + (_%K143258143282%_ (lambda () '#t))) + (let ((_%try-match143255143285%_ (lambda () - (if (null? _%rest143147143163%_) - (_%K143152143176%_) - (_%else143150143171%_))))) - (if (pair? _%rest143147143163%_) - (let ((_%tl143155143189%_ + (if (null? _%rest143253143269%_) + (_%K143258143282%_) + (_%else143256143277%_))))) + (if (pair? _%rest143253143269%_) + (let ((_%tl143261143295%_ (let () (declare (not safe)) - (##cdr _%rest143147143163%_))) - (_%hd143154143187%_ + (##cdr _%rest143253143269%_))) + (_%hd143260143293%_ (let () (declare (not safe)) - (##car _%rest143147143163%_)))) - (if (pair? _%hd143154143187%_) - (let ((_%tl143157143194%_ + (##car _%rest143253143269%_)))) + (if (pair? _%hd143260143293%_) + (let ((_%tl143263143300%_ (let () (declare (not safe)) - (##cdr _%hd143154143187%_))) - (_%hd143156143192%_ + (##cdr _%hd143260143293%_))) + (_%hd143262143298%_ (let () (declare (not safe)) - (##car _%hd143154143187%_)))) - (if (pair? _%hd143156143192%_) - (let ((_%tl143161143197%_ + (##car _%hd143260143293%_)))) + (if (pair? _%hd143262143298%_) + (let ((_%tl143267143303%_ (let () (declare (not safe)) - (##cdr _%hd143156143192%_)))) - (if (null? _%tl143161143197%_) - (if (pair? _%tl143157143194%_) - (let ((_%tl143159143200%_ + (##cdr _%hd143262143298%_)))) + (if (null? _%tl143267143303%_) + (if (pair? _%tl143263143300%_) + (let ((_%tl143265143306%_ (let () (declare (not safe)) - (##cdr _%tl143157143194%_)))) - (if (null? _%tl143159143200%_) - (let ((_%rest143203%_ - _%tl143155143189%_)) - (_%lp143144%_ - _%rest143203%_)) - (_%else143150143171%_))) - (_%else143150143171%_)) - (_%else143150143171%_))) - (_%else143150143171%_))) - (_%else143150143171%_))) - (_%try-match143149143179%_)))))))) + (##cdr _%tl143263143300%_)))) + (if (null? _%tl143265143306%_) + (let ((_%rest143309%_ + _%tl143261143295%_)) + (_%lp143250%_ + _%rest143309%_)) + (_%else143256143277%_))) + (_%else143256143277%_)) + (_%else143256143277%_))) + (_%else143256143277%_))) + (_%else143256143277%_))) + (_%try-match143255143285%_)))))))) (define gxc#generate-runtime-simple-let - (lambda (_%self143053%_ - _%form143054%_ - _%hd143055%_ - _%body143056%_ - _%compiled-body?143057%_) - (letrec ((_%generate1143059%_ - (lambda (_%bind143098%_) - (let* ((_%bind143099143110%_ _%bind143098%_) - (_%E143101143114%_ + (lambda (_%self143159%_ + _%form143160%_ + _%hd143161%_ + _%body143162%_ + _%compiled-body?143163%_) + (letrec ((_%generate1143165%_ + (lambda (_%bind143204%_) + (let* ((_%bind143205143216%_ _%bind143204%_) + (_%E143207143220%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind143099143110%_ + _%bind143205143216%_ '([[id] expr]))) '#!void)) - (_%K143102143120%_ - (lambda (_%expr143117%_ _%id143118%_) + (_%K143208143226%_ + (lambda (_%expr143223%_ _%id143224%_) (cons (let () (declare (not safe)) (gxc#generate-runtime-binding-id* - _%id143118%_)) + _%id143224%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self143053%_ - _%expr143117%_)) + _%self143159%_ + _%expr143223%_)) '()))))) - (if (pair? _%bind143099143110%_) - (let ((_%hd143103143123%_ + (if (pair? _%bind143205143216%_) + (let ((_%hd143209143229%_ (let () (declare (not safe)) - (##car _%bind143099143110%_))) - (_%tl143104143125%_ + (##car _%bind143205143216%_))) + (_%tl143210143231%_ (let () (declare (not safe)) - (##cdr _%bind143099143110%_)))) - (if (pair? _%hd143103143123%_) - (let ((_%hd143107143128%_ + (##cdr _%bind143205143216%_)))) + (if (pair? _%hd143209143229%_) + (let ((_%hd143213143234%_ (let () (declare (not safe)) - (##car _%hd143103143123%_))) - (_%tl143108143130%_ + (##car _%hd143209143229%_))) + (_%tl143214143236%_ (let () (declare (not safe)) - (##cdr _%hd143103143123%_)))) - (let ((_%id143133%_ _%hd143107143128%_)) - (if (null? _%tl143108143130%_) - (if (pair? _%tl143104143125%_) - (let ((_%hd143105143135%_ + (##cdr _%hd143209143229%_)))) + (let ((_%id143239%_ _%hd143213143234%_)) + (if (null? _%tl143214143236%_) + (if (pair? _%tl143210143231%_) + (let ((_%hd143211143241%_ (let () (declare (not safe)) - (##car _%tl143104143125%_))) - (_%tl143106143137%_ + (##car _%tl143210143231%_))) + (_%tl143212143243%_ (let () (declare (not safe)) - (##cdr _%tl143104143125%_)))) - (let ((_%expr143140%_ - _%hd143105143135%_)) - (if (null? _%tl143106143137%_) - (_%K143102143120%_ - _%expr143140%_ - _%id143133%_) - (_%E143101143114%_)))) - (_%E143101143114%_)) - (_%E143101143114%_)))) - (_%E143101143114%_))) - (_%E143101143114%_)))))) - (let* ((_%bind143061%_ (map _%generate1143059%_ _%hd143055%_)) - (_%body143063%_ - (if _%compiled-body?143057%_ - _%body143056%_ + (##cdr _%tl143210143231%_)))) + (let ((_%expr143246%_ + _%hd143211143241%_)) + (if (null? _%tl143212143243%_) + (_%K143208143226%_ + _%expr143246%_ + _%id143239%_) + (_%E143207143220%_)))) + (_%E143207143220%_)) + (_%E143207143220%_)))) + (_%E143207143220%_))) + (_%E143207143220%_)))))) + (let* ((_%bind143167%_ (map _%generate1143165%_ _%hd143161%_)) + (_%body143169%_ + (if _%compiled-body?143163%_ + _%body143162%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self143053%_ _%body143056%_)))) - (_%body143095%_ - (let* ((_%body143064143072%_ _%body143063%_) - (_%else143066143080%_ - (lambda () (cons _%body143063%_ '()))) - (_%K143068143085%_ - (lambda (_%exprs143083%_) _%exprs143083%_))) - (if (pair? _%body143064143072%_) - (let ((_%hd143069143088%_ + (gxc#compile-e__1 _%self143159%_ _%body143162%_)))) + (_%body143201%_ + (let* ((_%body143170143178%_ _%body143169%_) + (_%else143172143186%_ + (lambda () (cons _%body143169%_ '()))) + (_%K143174143191%_ + (lambda (_%exprs143189%_) _%exprs143189%_))) + (if (pair? _%body143170143178%_) + (let ((_%hd143175143194%_ (let () (declare (not safe)) - (##car _%body143064143072%_))) - (_%tl143070143090%_ + (##car _%body143170143178%_))) + (_%tl143176143196%_ (let () (declare (not safe)) - (##cdr _%body143064143072%_)))) + (##cdr _%body143170143178%_)))) (if (let () (declare (not safe)) - (##eq? _%hd143069143088%_ 'begin)) - (let ((_%exprs143093%_ _%tl143070143090%_)) - (_%K143068143085%_ _%exprs143093%_)) - (_%else143066143080%_))) - (_%else143066143080%_))))) - (cons _%form143054%_ (cons _%bind143061%_ _%body143095%_)))))) + (##eq? _%hd143175143194%_ 'begin)) + (let ((_%exprs143199%_ _%tl143176143196%_)) + (_%K143174143191%_ _%exprs143199%_)) + (_%else143172143186%_))) + (_%else143172143186%_))))) + (cons _%form143160%_ (cons _%bind143167%_ _%body143201%_)))))) (define gxc#generate-runtime-quote% - (lambda (_%self142953%_ _%stx142954%_) - (letrec ((_%generate1142956%_ - (lambda (_%datum143008%_) - (if (or (null? _%datum143008%_) + (lambda (_%self143059%_ _%stx143060%_) + (letrec ((_%generate1143062%_ + (lambda (_%datum143114%_) + (if (or (null? _%datum143114%_) (let () (declare (not safe)) - (interned-symbol? _%datum143008%_)) + (interned-symbol? _%datum143114%_)) (let () (declare (not safe)) - (gx#self-quoting? _%datum143008%_)) - (eof-object? _%datum143008%_)) - _%datum143008%_ - (if (uninterned-symbol? _%datum143008%_) + (gx#self-quoting? _%datum143114%_)) + (eof-object? _%datum143114%_)) + _%datum143114%_ + (if (uninterned-symbol? _%datum143114%_) (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__% - _%datum143008%_ + _%datum143114%_ '#t)) - (if (pair? _%datum143008%_) - (cons (_%generate1142956%_ + (if (pair? _%datum143114%_) + (cons (_%generate1143062%_ (let () (declare (not safe)) - (##car _%datum143008%_))) - (_%generate1142956%_ + (##car _%datum143114%_))) + (_%generate1143062%_ (let () (declare (not safe)) - (##cdr _%datum143008%_)))) - (if (box? _%datum143008%_) - (box (_%generate1142956%_ - (unbox _%datum143008%_))) - (if (vector? _%datum143008%_) + (##cdr _%datum143114%_)))) + (if (box? _%datum143114%_) + (box (_%generate1143062%_ + (unbox _%datum143114%_))) + (if (vector? _%datum143114%_) (vector-map - _%generate1142956%_ - _%datum143008%_) - (if (or (s8vector? _%datum143008%_) - (u8vector? _%datum143008%_) - (s16vector? _%datum143008%_) - (u16vector? _%datum143008%_) - (s32vector? _%datum143008%_) - (u32vector? _%datum143008%_) - (s64vector? _%datum143008%_) - (u64vector? _%datum143008%_) - (f32vector? _%datum143008%_) - (f64vector? _%datum143008%_)) - _%datum143008%_ + _%generate1143062%_ + _%datum143114%_) + (if (or (s8vector? _%datum143114%_) + (u8vector? _%datum143114%_) + (s16vector? _%datum143114%_) + (u16vector? _%datum143114%_) + (s32vector? _%datum143114%_) + (u32vector? _%datum143114%_) + (s64vector? _%datum143114%_) + (u64vector? _%datum143114%_) + (f32vector? _%datum143114%_) + (f64vector? _%datum143114%_)) + _%datum143114%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile non-primitive quote" - _%stx142954%_))))))))))) - (let* ((_%g142958142971%_ - (lambda (_%g142959142968%_) + _%stx143060%_))))))))))) + (let* ((_%g143064143077%_ + (lambda (_%g143065143074%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142959142968%_)))) - (_%g142957143005%_ - (lambda (_%g142959142974%_) + _%g143065143074%_)))) + (_%g143063143111%_ + (lambda (_%g143065143080%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142959142974%_)) - (let ((_%e142961142976%_ + (gx#stx-pair? _%g143065143080%_)) + (let ((_%e143067143082%_ (let () (declare (not safe)) - (gx#stx-e _%g142959142974%_)))) - (let ((_%hd142962142979%_ + (gx#stx-e _%g143065143080%_)))) + (let ((_%hd143068143085%_ (let () (declare (not safe)) - (##car _%e142961142976%_))) - (_%tl142963142981%_ + (##car _%e143067143082%_))) + (_%tl143069143087%_ (let () (declare (not safe)) - (##cdr _%e142961142976%_)))) + (##cdr _%e143067143082%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142963142981%_)) - (let ((_%e142964142984%_ + (gx#stx-pair? _%tl143069143087%_)) + (let ((_%e143070143090%_ (let () (declare (not safe)) - (gx#stx-e _%tl142963142981%_)))) - (let ((_%hd142965142987%_ + (gx#stx-e _%tl143069143087%_)))) + (let ((_%hd143071143093%_ (let () (declare (not safe)) - (##car _%e142964142984%_))) - (_%tl142966142989%_ + (##car _%e143070143090%_))) + (_%tl143072143095%_ (let () (declare (not safe)) - (##cdr _%e142964142984%_)))) + (##cdr _%e143070143090%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142966142989%_)) - ((lambda (_%L142992%_) + (gx#stx-null? _%tl143072143095%_)) + ((lambda (_%L143098%_) (cons 'quote - (cons (_%generate1142956%_ + (cons (_%generate1143062%_ (let () (declare (not safe)) (gx#stx-e - _%L142992%_))) + _%L143098%_))) '()))) - _%hd142965142987%_) - (_%g142958142971%_ - _%g142959142974%_)))) - (_%g142958142971%_ _%g142959142974%_)))) - (_%g142958142971%_ _%g142959142974%_))))) - (_%g142957143005%_ _%stx142954%_))))) + _%hd143071143093%_) + (_%g143064143077%_ + _%g143065143080%_)))) + (_%g143064143077%_ _%g143065143080%_)))) + (_%g143064143077%_ _%g143065143080%_))))) + (_%g143063143111%_ _%stx143060%_))))) (define gxc#generate-runtime-call% - (lambda (_%self142394%_ _%stx142395%_) - (letrec ((_%compile-call142397%_ - (lambda (_%rator142686%_ _%rands142687%_) - (let ((_%rator142693%_ + (lambda (_%self142500%_ _%stx142501%_) + (letrec ((_%compile-call142503%_ + (lambda (_%rator142792%_ _%rands142793%_) + (let ((_%rator142799%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142394%_ - _%rator142686%_))) - (_%rands142694%_ - (map (lambda (_%g142688142690%_) + _%self142500%_ + _%rator142792%_))) + (_%rands142800%_ + (map (lambda (_%g142794142796%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self142394%_ - _%g142688142690%_))) - _%rands142687%_))) - (let* ((_%__stx148496148497%_ _%rator142693%_) - (_%g142697142749%_ + _%self142500%_ + _%g142794142796%_))) + _%rands142793%_))) + (let* ((_%__stx148602148603%_ _%rator142799%_) + (_%g142803142855%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148496148497%_))))) - (let ((_%__kont148498148499%_ - (lambda (_%L142873%_ - _%L142874%_ - _%L142875%_ - _%L142876%_) - (if (let ((__tmp149168 + _%__stx148602148603%_))))) + (let ((_%__kont148604148605%_ + (lambda (_%L142979%_ + _%L142980%_ + _%L142981%_ + _%L142982%_) + (if (let ((__tmp149274 (let () (declare (not safe)) - (##length _%rands142694%_))) - (__tmp149166 - (length (let ((__tmp149167 - (lambda (_%g142912142915%_ + (##length _%rands142800%_))) + (__tmp149272 + (length (let ((__tmp149273 + (lambda (_%g143018143021%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142913142917%_) - (cons _%g142912142915%_ _%g142913142917%_)))) + _%g143019143023%_) + (cons _%g143018143021%_ _%g143019143023%_)))) (declare (not safe)) - (__foldr1 __tmp149167 '() _%L142875%_))))) + (__foldr1 __tmp149273 '() _%L142981%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##fx= __tmp149168 __tmp149166)) - (let* ((_%id142920%_ _%L142876%_) - (_%args142929%_ - (let ((__tmp149169 - (lambda (_%g142921142924%_ - _%g142922142926%_) - (cons _%g142921142924%_ - _%g142922142926%_)))) + (##fx= __tmp149274 __tmp149272)) + (let* ((_%id143026%_ _%L142982%_) + (_%args143035%_ + (let ((__tmp149275 + (lambda (_%g143027143030%_ + _%g143028143032%_) + (cons _%g143027143030%_ + _%g143028143032%_)))) (declare (not safe)) (__foldr1 - __tmp149169 + __tmp149275 '() - _%L142875%_))) - (_%body142938%_ - (let ((__tmp149170 - (lambda (_%g142930142933%_ - _%g142931142935%_) - (cons _%g142930142933%_ - _%g142931142935%_)))) + _%L142981%_))) + (_%body143044%_ + (let ((__tmp149276 + (lambda (_%g143036143039%_ + _%g143037143041%_) + (cons _%g143036143039%_ + _%g143037143041%_)))) (declare (not safe)) (__foldr1 - __tmp149170 + __tmp149276 '() - _%L142874%_))) - (_%init142940%_ + _%L142980%_))) + (_%init143046%_ (map list - _%args142929%_ - _%rands142694%_))) + _%args143035%_ + _%rands142800%_))) (cons 'let - (cons _%id142920%_ - (cons _%init142940%_ - _%body142938%_)))) - (let ((__tmp149171 - (let ((__tmp149172 - (lambda (_%g142942142945%_ - _%g142943142947%_) - (cons _%g142942142945%_ - _%g142943142947%_)))) + (cons _%id143026%_ + (cons _%init143046%_ + _%body143044%_)))) + (let ((__tmp149277 + (let ((__tmp149278 + (lambda (_%g143048143051%_ + _%g143049143053%_) + (cons _%g143048143051%_ + _%g143049143053%_)))) (declare (not safe)) (__foldr1 - __tmp149172 + __tmp149278 '() - _%L142875%_)))) + _%L142981%_)))) (declare (not safe)) (gxc#raise-compile-error '"Illegal loop application; arity mismatch" - _%stx142395%_ - __tmp149171 - _%rands142694%_))))) - (_%__kont148504148505%_ + _%stx142501%_ + __tmp149277 + _%rands142800%_))))) + (_%__kont148610148611%_ (lambda () - (cons _%rator142693%_ _%rands142694%_)))) - (let ((_%__match148563148564%_ - (lambda (_%e142703142761%_ - _%hd142704142764%_ - _%tl142705142766%_ - _%e142706142769%_ - _%hd142707142772%_ - _%tl142708142774%_ - _%e142709142777%_ - _%hd142710142780%_ - _%tl142711142782%_ - _%e142712142785%_ - _%hd142713142788%_ - _%tl142714142790%_ - _%e142715142793%_ - _%hd142716142796%_ - _%tl142717142798%_ - _%e142718142801%_ - _%hd142719142804%_ - _%tl142720142806%_ - _%e142721142809%_ - _%hd142722142812%_ - _%tl142723142814%_ - _%__splice148500148501%_ - _%target142724142817%_ - _%tl142726142819%_) - (letrec ((_%loop142727142822%_ - (lambda (_%hd142725142825%_ - _%arg142731142827%_) + (cons _%rator142799%_ _%rands142800%_)))) + (let ((_%__match148669148670%_ + (lambda (_%e142809142867%_ + _%hd142810142870%_ + _%tl142811142872%_ + _%e142812142875%_ + _%hd142813142878%_ + _%tl142814142880%_ + _%e142815142883%_ + _%hd142816142886%_ + _%tl142817142888%_ + _%e142818142891%_ + _%hd142819142894%_ + _%tl142820142896%_ + _%e142821142899%_ + _%hd142822142902%_ + _%tl142823142904%_ + _%e142824142907%_ + _%hd142825142910%_ + _%tl142826142912%_ + _%e142827142915%_ + _%hd142828142918%_ + _%tl142829142920%_ + _%__splice148606148607%_ + _%target142830142923%_ + _%tl142832142925%_) + (letrec ((_%loop142833142928%_ + (lambda (_%hd142831142931%_ + _%arg142837142933%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142725142825%_)) - (let ((_%e142728142830%_ + _%hd142831142931%_)) + (let ((_%e142834142936%_ (let () (declare (not safe)) (gx#stx-e - _%hd142725142825%_)))) - (let ((_%lp-tl142730142835%_ + _%hd142831142931%_)))) + (let ((_%lp-tl142836142941%_ (let () (declare (not safe)) - (##cdr _%e142728142830%_))) - (_%lp-hd142729142833%_ + (##cdr _%e142834142936%_))) + (_%lp-hd142835142939%_ (let () (declare (not safe)) - (##car _%e142728142830%_)))) - (_%loop142727142822%_ - _%lp-tl142730142835%_ - (cons _%lp-hd142729142833%_ - _%arg142731142827%_)))) - (let ((_%arg142732142838%_ - (reverse _%arg142731142827%_))) + (##car _%e142834142936%_)))) + (_%loop142833142928%_ + _%lp-tl142836142941%_ + (cons _%lp-hd142835142939%_ + _%arg142837142933%_)))) + (let ((_%arg142838142944%_ + (reverse _%arg142837142933%_))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142723142814%_)) - (let ((_%__splice148502148503%_ + _%tl142829142920%_)) + (let ((_%__splice148608148609%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl142723142814%_ '0)))) - (let ((_%tl142735142843%_ + (gx#syntax-split-splice _%tl142829142920%_ '0)))) + (let ((_%tl142841142949%_ (let () (declare (not safe)) - (##vector-ref _%__splice148502148503%_ '1))) - (_%target142733142841%_ + (##vector-ref _%__splice148608148609%_ '1))) + (_%target142839142947%_ (let () (declare (not safe)) - (##vector-ref _%__splice148502148503%_ '0)))) + (##vector-ref _%__splice148608148609%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142735142843%_)) - (letrec ((_%loop142736142846%_ - (lambda (_%hd142734142849%_ - _%body142740142851%_) + (gx#stx-null? _%tl142841142949%_)) + (letrec ((_%loop142842142952%_ + (lambda (_%hd142840142955%_ + _%body142846142957%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142734142849%_)) - (let ((_%e142737142854%_ + (gx#stx-pair? _%hd142840142955%_)) + (let ((_%e142843142960%_ (let () (declare (not safe)) (gx#stx-e - _%hd142734142849%_)))) - (let ((_%lp-tl142739142859%_ + _%hd142840142955%_)))) + (let ((_%lp-tl142845142965%_ (let () (declare (not safe)) - (##cdr _%e142737142854%_))) - (_%lp-hd142738142857%_ + (##cdr _%e142843142960%_))) + (_%lp-hd142844142963%_ (let () (declare (not safe)) - (##car _%e142737142854%_)))) - (_%loop142736142846%_ - _%lp-tl142739142859%_ - (cons _%lp-hd142738142857%_ - _%body142740142851%_)))) - (let ((_%body142741142862%_ - (reverse _%body142740142851%_))) + (##car _%e142843142960%_)))) + (_%loop142842142952%_ + _%lp-tl142845142965%_ + (cons _%lp-hd142844142963%_ + _%body142846142957%_)))) + (let ((_%body142847142968%_ + (reverse _%body142846142957%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142717142798%_)) + _%tl142823142904%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142711142782%_)) + _%tl142817142888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142708142774%_)) - (let ((_%e142742142865%_ + _%tl142814142880%_)) + (let ((_%e142848142971%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl142708142774%_)))) - (let ((_%tl142744142870%_ + (gx#stx-e _%tl142814142880%_)))) + (let ((_%tl142850142976%_ (let () (declare (not safe)) - (##cdr _%e142742142865%_))) - (_%hd142743142868%_ + (##cdr _%e142848142971%_))) + (_%hd142849142974%_ (let () (declare (not safe)) - (##car _%e142742142865%_)))) + (##car _%e142848142971%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142744142870%_)) - (let ((_%L142873%_ _%hd142743142868%_) - (_%L142874%_ _%body142741142862%_) - (_%L142875%_ _%arg142732142838%_) - (_%L142876%_ _%hd142713142788%_)) - (if (eq? _%L142876%_ _%L142873%_) - (_%__kont148498148499%_ - _%L142873%_ - _%L142874%_ - _%L142875%_ - _%L142876%_) - (_%__kont148504148505%_))) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148504148505%_)) - (_%__kont148504148505%_))))))) - (_%loop142736142846%_ _%target142733142841%_ '())) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142727142822%_ - _%target142724142817%_ + (gx#stx-null? _%tl142850142976%_)) + (let ((_%L142979%_ _%hd142849142974%_) + (_%L142980%_ _%body142847142968%_) + (_%L142981%_ _%arg142838142944%_) + (_%L142982%_ _%hd142819142894%_)) + (if (eq? _%L142982%_ _%L142979%_) + (_%__kont148604148605%_ + _%L142979%_ + _%L142980%_ + _%L142981%_ + _%L142982%_) + (_%__kont148610148611%_))) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148610148611%_)) + (_%__kont148610148611%_))))))) + (_%loop142842142952%_ _%target142839142947%_ '())) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142833142928%_ + _%target142830142923%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148496148497%_)) - (let ((_%e142703142761%_ + (gx#stx-pair? _%__stx148602148603%_)) + (let ((_%e142809142867%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148496148497%_)))) - (let ((_%tl142705142766%_ + (gx#stx-e _%__stx148602148603%_)))) + (let ((_%tl142811142872%_ (let () (declare (not safe)) - (##cdr _%e142703142761%_))) - (_%hd142704142764%_ + (##cdr _%e142809142867%_))) + (_%hd142810142870%_ (let () (declare (not safe)) - (##car _%e142703142761%_)))) + (##car _%e142809142867%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142704142764%_)) + (gx#identifier? _%hd142810142870%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'letrec - _%hd142704142764%_)) + _%hd142810142870%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142705142766%_)) - (let ((_%e142706142769%_ + _%tl142811142872%_)) + (let ((_%e142812142875%_ (let () (declare (not safe)) (gx#stx-e - _%tl142705142766%_)))) - (let ((_%tl142708142774%_ + _%tl142811142872%_)))) + (let ((_%tl142814142880%_ (let () (declare (not safe)) - (##cdr _%e142706142769%_))) - (_%hd142707142772%_ + (##cdr _%e142812142875%_))) + (_%hd142813142878%_ (let () (declare (not safe)) - (##car _%e142706142769%_)))) + (##car _%e142812142875%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd142707142772%_)) - (let ((_%e142709142777%_ + _%hd142813142878%_)) + (let ((_%e142815142883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd142707142772%_)))) - (let ((_%tl142711142782%_ + (gx#stx-e _%hd142813142878%_)))) + (let ((_%tl142817142888%_ (let () (declare (not safe)) - (##cdr _%e142709142777%_))) - (_%hd142710142780%_ + (##cdr _%e142815142883%_))) + (_%hd142816142886%_ (let () (declare (not safe)) - (##car _%e142709142777%_)))) + (##car _%e142815142883%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142710142780%_)) - (let ((_%e142712142785%_ + (gx#stx-pair? _%hd142816142886%_)) + (let ((_%e142818142891%_ (let () (declare (not safe)) - (gx#stx-e _%hd142710142780%_)))) - (let ((_%tl142714142790%_ + (gx#stx-e _%hd142816142886%_)))) + (let ((_%tl142820142896%_ (let () (declare (not safe)) - (##cdr _%e142712142785%_))) - (_%hd142713142788%_ + (##cdr _%e142818142891%_))) + (_%hd142819142894%_ (let () (declare (not safe)) - (##car _%e142712142785%_)))) + (##car _%e142818142891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142714142790%_)) - (let ((_%e142715142793%_ + (gx#stx-pair? _%tl142820142896%_)) + (let ((_%e142821142899%_ (let () (declare (not safe)) - (gx#stx-e _%tl142714142790%_)))) - (let ((_%tl142717142798%_ + (gx#stx-e _%tl142820142896%_)))) + (let ((_%tl142823142904%_ (let () (declare (not safe)) - (##cdr _%e142715142793%_))) - (_%hd142716142796%_ + (##cdr _%e142821142899%_))) + (_%hd142822142902%_ (let () (declare (not safe)) - (##car _%e142715142793%_)))) + (##car _%e142821142899%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142716142796%_)) - (let ((_%e142718142801%_ + (gx#stx-pair? _%hd142822142902%_)) + (let ((_%e142824142907%_ (let () (declare (not safe)) (gx#stx-e - _%hd142716142796%_)))) - (let ((_%tl142720142806%_ + _%hd142822142902%_)))) + (let ((_%tl142826142912%_ (let () (declare (not safe)) - (##cdr _%e142718142801%_))) - (_%hd142719142804%_ + (##cdr _%e142824142907%_))) + (_%hd142825142910%_ (let () (declare (not safe)) - (##car _%e142718142801%_)))) + (##car _%e142824142907%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142719142804%_)) + _%hd142825142910%_)) (if (let () (declare (not safe)) (gx#stx-eq? 'lambda - _%hd142719142804%_)) + _%hd142825142910%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142720142806%_)) - (let ((_%e142721142809%_ + _%tl142826142912%_)) + (let ((_%e142827142915%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl142720142806%_)))) - (let ((_%tl142723142814%_ + (gx#stx-e _%tl142826142912%_)))) + (let ((_%tl142829142920%_ (let () (declare (not safe)) - (##cdr _%e142721142809%_))) - (_%hd142722142812%_ + (##cdr _%e142827142915%_))) + (_%hd142828142918%_ (let () (declare (not safe)) - (##car _%e142721142809%_)))) + (##car _%e142827142915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd142722142812%_)) - (let ((_%__splice148500148501%_ + (gx#stx-pair/null? _%hd142828142918%_)) + (let ((_%__splice148606148607%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd142722142812%_ + _%hd142828142918%_ '0)))) - (let ((_%tl142726142819%_ + (let ((_%tl142832142925%_ (let () (declare (not safe)) - (##vector-ref _%__splice148500148501%_ '1))) - (_%target142724142817%_ + (##vector-ref _%__splice148606148607%_ '1))) + (_%target142830142923%_ (let () (declare (not safe)) (##vector-ref - _%__splice148500148501%_ + _%__splice148606148607%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142726142819%_)) - (_%__match148563148564%_ - _%e142703142761%_ - _%hd142704142764%_ - _%tl142705142766%_ - _%e142706142769%_ - _%hd142707142772%_ - _%tl142708142774%_ - _%e142709142777%_ - _%hd142710142780%_ - _%tl142711142782%_ - _%e142712142785%_ - _%hd142713142788%_ - _%tl142714142790%_ - _%e142715142793%_ - _%hd142716142796%_ - _%tl142717142798%_ - _%e142718142801%_ - _%hd142719142804%_ - _%tl142720142806%_ - _%e142721142809%_ - _%hd142722142812%_ - _%tl142723142814%_ - _%__splice148500148501%_ - _%target142724142817%_ - _%tl142726142819%_) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148504148505%_)) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148504148505%_)) - (_%__kont148504148505%_)) - (_%__kont148504148505%_)))) - (_%__kont148504148505%_))))))))) - (let* ((_%g142399142422%_ - (lambda (_%g142400142419%_) + (gx#stx-null? _%tl142832142925%_)) + (_%__match148669148670%_ + _%e142809142867%_ + _%hd142810142870%_ + _%tl142811142872%_ + _%e142812142875%_ + _%hd142813142878%_ + _%tl142814142880%_ + _%e142815142883%_ + _%hd142816142886%_ + _%tl142817142888%_ + _%e142818142891%_ + _%hd142819142894%_ + _%tl142820142896%_ + _%e142821142899%_ + _%hd142822142902%_ + _%tl142823142904%_ + _%e142824142907%_ + _%hd142825142910%_ + _%tl142826142912%_ + _%e142827142915%_ + _%hd142828142918%_ + _%tl142829142920%_ + _%__splice148606148607%_ + _%target142830142923%_ + _%tl142832142925%_) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148610148611%_)) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148610148611%_)) + (_%__kont148610148611%_)) + (_%__kont148610148611%_)))) + (_%__kont148610148611%_))))))))) + (let* ((_%g142505142528%_ + (lambda (_%g142506142525%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g142400142419%_)))) - (_%g142398142683%_ - (lambda (_%g142400142425%_) + _%g142506142525%_)))) + (_%g142504142789%_ + (lambda (_%g142506142531%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g142400142425%_)) - (let ((_%e142403142427%_ + (gx#stx-pair? _%g142506142531%_)) + (let ((_%e142509142533%_ (let () (declare (not safe)) - (gx#stx-e _%g142400142425%_)))) - (let ((_%hd142404142430%_ + (gx#stx-e _%g142506142531%_)))) + (let ((_%hd142510142536%_ (let () (declare (not safe)) - (##car _%e142403142427%_))) - (_%tl142405142432%_ + (##car _%e142509142533%_))) + (_%tl142511142538%_ (let () (declare (not safe)) - (##cdr _%e142403142427%_)))) + (##cdr _%e142509142533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142405142432%_)) - (let ((_%e142406142435%_ + (gx#stx-pair? _%tl142511142538%_)) + (let ((_%e142512142541%_ (let () (declare (not safe)) - (gx#stx-e _%tl142405142432%_)))) - (let ((_%hd142407142438%_ + (gx#stx-e _%tl142511142538%_)))) + (let ((_%hd142513142544%_ (let () (declare (not safe)) - (##car _%e142406142435%_))) - (_%tl142408142440%_ + (##car _%e142512142541%_))) + (_%tl142514142546%_ (let () (declare (not safe)) - (##cdr _%e142406142435%_)))) + (##cdr _%e142512142541%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl142408142440%_)) - (let ((_g149173_ + _%tl142514142546%_)) + (let ((_g149279_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142408142440%_ + _%tl142514142546%_ '0)))) (begin - (let ((_g149174_ + (let ((_g149280_ (let () (declare (not safe)) - (if (##values? _g149173_) - (##vector-length - _g149173_) + (if (##values? _g149279_) + (##values-length + _g149279_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149174_ 2))) + (##fx= _g149280_ 2))) (error "Context expects 2 values" - _g149174_))) - (let ((_%target142409142443%_ + _g149280_))) + (let ((_%target142515142549%_ (let () (declare (not safe)) - (##vector-ref - _g149173_ + (##values-ref + _g149279_ 0))) - (_%tl142411142445%_ + (_%tl142517142551%_ (let () (declare (not safe)) - (##vector-ref - _g149173_ + (##values-ref + _g149279_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142411142445%_)) - (letrec ((_%loop142412142448%_ - (lambda (_%hd142410142451%_ + _%tl142517142551%_)) + (letrec ((_%loop142518142554%_ + (lambda (_%hd142516142557%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rand142416142453%_) + _%rand142522142559%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142410142451%_)) - (let ((_%e142413142456%_ + (gx#stx-pair? _%hd142516142557%_)) + (let ((_%e142519142562%_ (let () (declare (not safe)) - (gx#stx-e _%hd142410142451%_)))) - (let ((_%lp-hd142414142459%_ + (gx#stx-e _%hd142516142557%_)))) + (let ((_%lp-hd142520142565%_ (let () (declare (not safe)) - (##car _%e142413142456%_))) - (_%lp-tl142415142461%_ + (##car _%e142519142562%_))) + (_%lp-tl142521142567%_ (let () (declare (not safe)) - (##cdr _%e142413142456%_)))) - (_%loop142412142448%_ - _%lp-tl142415142461%_ - (cons _%lp-hd142414142459%_ - _%rand142416142453%_)))) - (let ((_%rand142417142464%_ - (reverse _%rand142416142453%_))) - ((lambda (_%L142467%_ _%L142468%_) + (##cdr _%e142519142562%_)))) + (_%loop142518142554%_ + _%lp-tl142521142567%_ + (cons _%lp-hd142520142565%_ + _%rand142522142559%_)))) + (let ((_%rand142523142570%_ + (reverse _%rand142522142559%_))) + ((lambda (_%L142573%_ _%L142574%_) (if (gxc#current-compile-decls-unsafe?) - (_%compile-call142397%_ - _%L142468%_ - (let ((__tmp149175 - (lambda (_%g142485142488%_ - _%g142486142490%_) - (cons _%g142485142488%_ - _%g142486142490%_)))) + (_%compile-call142503%_ + _%L142574%_ + (let ((__tmp149281 + (lambda (_%g142591142594%_ + _%g142592142596%_) + (cons _%g142591142594%_ + _%g142592142596%_)))) (declare (not safe)) - (__foldr1 __tmp149175 '() _%L142467%_))) - (let* ((_%__stx148612148613%_ _%L142468%_) - (_%g142494142506%_ + (__foldr1 __tmp149281 '() _%L142573%_))) + (let* ((_%__stx148718148719%_ _%L142574%_) + (_%g142600142612%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148612148613%_))))) - (let ((_%__kont148614148615%_ + _%__stx148718148719%_))))) + (let ((_%__kont148720148721%_ (lambda () - (let ((_%f142543%_ + (let ((_%f142649%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self142394%_ - _%L142468%_)))) - (if (and (let ((__tmp149176 + _%self142500%_ + _%L142574%_)))) + (if (and (let ((__tmp149282 (symbol->string ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%f142543%_))) + _%f142649%_))) (declare (not safe)) - (##string-prefix? '"##" __tmp149176)) + (##string-prefix? '"##" __tmp149282)) (not (let () (declare (not safe)) - (##memq _%f142543%_ gxc#checked-primitives)))) + (##memq _%f142649%_ gxc#checked-primitives)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp142545%_ ((_%rest142548%_ + (let _%lp142651%_ ((_%rest142654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse (let ((__tmp149178 - (lambda (_%g142665142668%_ - _%g142666142670%_) - (cons _%g142665142668%_ - _%g142666142670%_)))) + (reverse (let ((__tmp149284 + (lambda (_%g142771142774%_ + _%g142772142776%_) + (cons _%g142771142774%_ + _%g142772142776%_)))) (declare (not safe)) (__foldr1 - __tmp149178 + __tmp149284 '() - _%L142467%_)))) - (_%bind142550%_ '()) - (_%args142551%_ '())) - (let* ((_%rest142552142560%_ _%rest142548%_) - (_%else142554142568%_ + _%L142573%_)))) + (_%bind142656%_ '()) + (_%args142657%_ '())) + (let* ((_%rest142658142666%_ _%rest142654%_) + (_%else142660142674%_ (lambda () (cons 'let - (cons _%bind142550%_ + (cons _%bind142656%_ (cons '(declare (not safe)) - (cons (cons _%f142543%_ - _%args142551%_) + (cons (cons _%f142649%_ + _%args142657%_) '())))))) - (_%K142556142654%_ - (lambda (_%rest142571%_ _%e142572%_) - (let* ((_%__stx148566148567%_ _%e142572%_) - (_%g142577142595%_ + (_%K142662142760%_ + (lambda (_%rest142677%_ _%e142678%_) + (let* ((_%__stx148672148673%_ _%e142678%_) + (_%g142683142701%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148566148567%_))))) - (let ((_%__kont148568148569%_ + _%__stx148672148673%_))))) + (let ((_%__kont148674148675%_ (lambda () - (_%lp142545%_ - _%rest142571%_ - _%bind142550%_ + (_%lp142651%_ + _%rest142677%_ + _%bind142656%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142572%_)) - _%args142551%_)))) - (_%__kont148570148571%_ + (gxc#compile-e__0 _%e142678%_)) + _%args142657%_)))) + (_%__kont148676148677%_ (lambda () - (_%lp142545%_ - _%rest142571%_ - _%bind142550%_ + (_%lp142651%_ + _%rest142677%_ + _%bind142656%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e142572%_)) - _%args142551%_)))) - (_%__kont148572148573%_ + (gxc#compile-e__0 _%e142678%_)) + _%args142657%_)))) + (_%__kont148678148679%_ (lambda () - (let ((_%tmp142602%_ - (let ((__tmp149177 + (let ((_%tmp142708%_ + (let ((__tmp149283 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149177)))) - (_%lp142545%_ - _%rest142571%_ - (cons (cons _%tmp142602%_ + (make-symbol__0 __tmp149283)))) + (_%lp142651%_ + _%rest142677%_ + (cons (cons _%tmp142708%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142572%_)) + _%e142678%_)) '())) - _%bind142550%_) - (cons _%tmp142602%_ _%args142551%_)))))) + _%bind142656%_) + (cons _%tmp142708%_ _%args142657%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148566148567%_)) - (let ((_%e142579142633%_ + (gx#stx-pair? _%__stx148672148673%_)) + (let ((_%e142685142739%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148566148567%_)))) - (let ((_%tl142581142638%_ + (gx#stx-e _%__stx148672148673%_)))) + (let ((_%tl142687142744%_ (let () (declare (not safe)) - (##cdr _%e142579142633%_))) - (_%hd142580142636%_ + (##cdr _%e142685142739%_))) + (_%hd142686142742%_ (let () (declare (not safe)) - (##car _%e142579142633%_)))) + (##car _%e142685142739%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd142580142636%_)) + (gx#identifier? _%hd142686142742%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142580142636%_)) + _%hd142686142742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142581142638%_)) - (let ((_%e142582142641%_ + _%tl142687142744%_)) + (let ((_%e142688142747%_ (let () (declare (not safe)) (gx#stx-e - _%tl142581142638%_)))) - (let ((_%tl142584142646%_ + _%tl142687142744%_)))) + (let ((_%tl142690142752%_ (let () (declare (not safe)) - (##cdr _%e142582142641%_))) - (_%hd142583142644%_ + (##cdr _%e142688142747%_))) + (_%hd142689142750%_ (let () (declare (not safe)) - (##car _%e142582142641%_)))) + (##car _%e142688142747%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142584142646%_)) - (_%__kont148568148569%_) - (_%__kont148572148573%_)))) - (_%__kont148572148573%_)) + _%tl142690142752%_)) + (_%__kont148674148675%_) + (_%__kont148678148679%_)))) + (_%__kont148678148679%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd142580142636%_)) + _%hd142686142742%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142581142638%_)) - (let ((_%e142588142618%_ + _%tl142687142744%_)) + (let ((_%e142694142724%_ (let () (declare (not safe)) (gx#stx-e - _%tl142581142638%_)))) - (let ((_%tl142590142623%_ + _%tl142687142744%_)))) + (let ((_%tl142696142729%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e142588142618%_))) - (_%hd142589142621%_ - (let () (declare (not safe)) (##car _%e142588142618%_)))) + (##cdr _%e142694142724%_))) + (_%hd142695142727%_ + (let () (declare (not safe)) (##car _%e142694142724%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142590142623%_)) - (_%__kont148570148571%_) - (_%__kont148572148573%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148572148573%_)) - (_%__kont148572148573%_))) - (_%__kont148572148573%_)))) - (_%__kont148572148573%_))))))) - (if (pair? _%rest142552142560%_) - (let ((_%hd142557142657%_ + (gx#stx-null? _%tl142696142729%_)) + (_%__kont148676148677%_) + (_%__kont148678148679%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148678148679%_)) + (_%__kont148678148679%_))) + (_%__kont148678148679%_)))) + (_%__kont148678148679%_))))))) + (if (pair? _%rest142658142666%_) + (let ((_%hd142663142763%_ (let () (declare (not safe)) - (##car _%rest142552142560%_))) - (_%tl142558142659%_ + (##car _%rest142658142666%_))) + (_%tl142664142765%_ (let () (declare (not safe)) - (##cdr _%rest142552142560%_)))) - (let* ((_%e142662%_ _%hd142557142657%_) - (_%rest142664%_ _%tl142558142659%_)) - (_%K142556142654%_ _%rest142664%_ _%e142662%_))) - (_%else142554142568%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%compile-call142397%_ - _%L142468%_ - (let ((__tmp149179 - (lambda (_%g142672142675%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142673142677%_) - (cons _%g142672142675%_ _%g142673142677%_)))) + (##cdr _%rest142658142666%_)))) + (let* ((_%e142768%_ _%hd142663142763%_) + (_%rest142770%_ _%tl142664142765%_)) + (_%K142662142760%_ _%rest142770%_ _%e142768%_))) + (_%else142660142674%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%compile-call142503%_ + _%L142574%_ + (let ((__tmp149285 + (lambda (_%g142778142781%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142779142783%_) + (cons _%g142778142781%_ _%g142779142783%_)))) (declare (not safe)) - (__foldr1 __tmp149179 '() _%L142467%_))))))) + (__foldr1 __tmp149285 '() _%L142573%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148616148617%_ + (_%__kont148722148723%_ (lambda () - (_%compile-call142397%_ - _%L142468%_ - (let ((__tmp149180 - (lambda (_%g142512142515%_ - _%g142513142517%_) - (cons _%g142512142515%_ - _%g142513142517%_)))) + (_%compile-call142503%_ + _%L142574%_ + (let ((__tmp149286 + (lambda (_%g142618142621%_ + _%g142619142623%_) + (cons _%g142618142621%_ + _%g142619142623%_)))) (declare (not safe)) (__foldr1 - __tmp149180 + __tmp149286 '() - _%L142467%_)))))) + _%L142573%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148612148613%_)) - (let ((_%e142496142525%_ + _%__stx148718148719%_)) + (let ((_%e142602142631%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148612148613%_)))) - (let ((_%tl142498142530%_ + _%__stx148718148719%_)))) + (let ((_%tl142604142636%_ (let () (declare (not safe)) - (##cdr _%e142496142525%_))) - (_%hd142497142528%_ + (##cdr _%e142602142631%_))) + (_%hd142603142634%_ (let () (declare (not safe)) - (##car _%e142496142525%_)))) + (##car _%e142602142631%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142497142528%_)) + _%hd142603142634%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142497142528%_)) + _%hd142603142634%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142498142530%_)) - (let ((_%e142499142533%_ + _%tl142604142636%_)) + (let ((_%e142605142639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl142498142530%_)))) - (let ((_%tl142501142538%_ + (gx#stx-e _%tl142604142636%_)))) + (let ((_%tl142607142644%_ (let () (declare (not safe)) - (##cdr _%e142499142533%_))) - (_%hd142500142536%_ + (##cdr _%e142605142639%_))) + (_%hd142606142642%_ (let () (declare (not safe)) - (##car _%e142499142533%_)))) + (##car _%e142605142639%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142501142538%_)) - (_%__kont148614148615%_) - (_%__kont148616148617%_)))) - (_%__kont148616148617%_)) - (_%__kont148616148617%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148616148617%_)))) - (_%__kont148616148617%_)))))) - _%rand142417142464%_ - _%hd142407142438%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop142412142448%_ - _%target142409142443%_ + (gx#stx-null? _%tl142607142644%_)) + (_%__kont148720148721%_) + (_%__kont148722148723%_)))) + (_%__kont148722148723%_)) + (_%__kont148722148723%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148722148723%_)))) + (_%__kont148722148723%_)))))) + _%rand142523142570%_ + _%hd142513142544%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop142518142554%_ + _%target142515142549%_ '())) - (_%g142399142422%_ - _%g142400142425%_))))) - (_%g142399142422%_ - _%g142400142425%_)))) - (_%g142399142422%_ _%g142400142425%_)))) - (_%g142399142422%_ _%g142400142425%_))))) - (_%g142398142683%_ _%stx142395%_))))) + (_%g142505142528%_ + _%g142506142531%_))))) + (_%g142505142528%_ + _%g142506142531%_)))) + (_%g142505142528%_ _%g142506142531%_)))) + (_%g142505142528%_ _%g142506142531%_))))) + (_%g142504142789%_ _%stx142501%_))))) (define gxc#generate-runtime-call-unchecked% - (lambda (_%self142137%_ _%stx142138%_) - (let* ((_%__stx148684148685%_ _%stx142138%_) - (_%g142141142170%_ + (lambda (_%self142243%_ _%stx142244%_) + (let* ((_%__stx148790148791%_ _%stx142244%_) + (_%g142247142276%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148684148685%_))))) - (let ((_%__kont148686148687%_ - (lambda (_%L142238%_ _%L142239%_) + _%__stx148790148791%_))))) + (let ((_%__kont148792148793%_ + (lambda (_%L142344%_ _%L142345%_) (if (gxc#current-compile-decls-unsafe?) (gxc#generate-runtime-call% - _%self142137%_ - _%stx142138%_) - (let ((_%f142261%_ - (let ((__tmp149181 + _%self142243%_ + _%stx142244%_) + (let ((_%f142367%_ + (let ((__tmp149287 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L142239%_ '())))) + (cons _%L142345%_ '())))) (declare (not safe)) (gxc#compile-e__1 - _%self142137%_ - __tmp149181)))) - (let _%lp142263%_ ((_%rest142266%_ - (reverse (let ((__tmp149183 - (lambda (_%g142383142386%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g142384142388%_) - (cons _%g142383142386%_ _%g142384142388%_)))) + _%self142243%_ + __tmp149287)))) + (let _%lp142369%_ ((_%rest142372%_ + (reverse (let ((__tmp149289 + (lambda (_%g142489142492%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g142490142494%_) + (cons _%g142489142492%_ _%g142490142494%_)))) (declare (not safe)) - (__foldr1 __tmp149183 '() _%L142238%_)))) + (__foldr1 __tmp149289 '() _%L142344%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind142268%_ '()) - (_%args142269%_ '())) - (let* ((_%rest142270142278%_ _%rest142266%_) - (_%else142272142286%_ + (_%bind142374%_ '()) + (_%args142375%_ '())) + (let* ((_%rest142376142384%_ _%rest142372%_) + (_%else142378142392%_ (lambda () (cons 'let - (cons _%bind142268%_ + (cons _%bind142374%_ (cons '(declare (not safe)) - (cons (cons _%f142261%_ + (cons (cons _%f142367%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%args142269%_) + _%args142375%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K142274142372%_ - (lambda (_%rest142289%_ _%e142290%_) - (let* ((_%__stx148638148639%_ _%e142290%_) - (_%g142295142313%_ + (_%K142380142478%_ + (lambda (_%rest142395%_ _%e142396%_) + (let* ((_%__stx148744148745%_ _%e142396%_) + (_%g142401142419%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148638148639%_))))) - (let ((_%__kont148640148641%_ + _%__stx148744148745%_))))) + (let ((_%__kont148746148747%_ (lambda () - (_%lp142263%_ - _%rest142289%_ - _%bind142268%_ + (_%lp142369%_ + _%rest142395%_ + _%bind142374%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142290%_)) - _%args142269%_)))) - (_%__kont148642148643%_ + _%e142396%_)) + _%args142375%_)))) + (_%__kont148748148749%_ (lambda () - (_%lp142263%_ - _%rest142289%_ - _%bind142268%_ + (_%lp142369%_ + _%rest142395%_ + _%bind142374%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e142290%_)) - _%args142269%_)))) - (_%__kont148644148645%_ + _%e142396%_)) + _%args142375%_)))) + (_%__kont148750148751%_ (lambda () - (let ((_%tmp142320%_ - (let ((__tmp149182 + (let ((_%tmp142426%_ + (let ((__tmp149288 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149182)))) + (make-symbol__0 __tmp149288)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp142263%_ - _%rest142289%_ - (cons (cons _%tmp142320%_ + (_%lp142369%_ + _%rest142395%_ + (cons (cons _%tmp142426%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e142290%_)) + (gxc#compile-e__0 _%e142396%_)) '())) - _%bind142268%_) + _%bind142374%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%tmp142320%_ - _%args142269%_)))))) + (cons _%tmp142426%_ + _%args142375%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148638148639%_)) - (let ((_%e142297142351%_ + _%__stx148744148745%_)) + (let ((_%e142403142457%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148638148639%_)))) - (let ((_%tl142299142356%_ + _%__stx148744148745%_)))) + (let ((_%tl142405142462%_ (let () (declare (not safe)) - (##cdr _%e142297142351%_))) - (_%hd142298142354%_ + (##cdr _%e142403142457%_))) + (_%hd142404142460%_ (let () (declare (not safe)) - (##car _%e142297142351%_)))) + (##car _%e142403142457%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142298142354%_)) + _%hd142404142460%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142298142354%_)) + _%hd142404142460%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl142299142356%_)) - (let ((_%e142300142359%_ + (gx#stx-pair? _%tl142405142462%_)) + (let ((_%e142406142465%_ (let () (declare (not safe)) - (gx#stx-e _%tl142299142356%_)))) - (let ((_%tl142302142364%_ + (gx#stx-e _%tl142405142462%_)))) + (let ((_%tl142408142470%_ (let () (declare (not safe)) - (##cdr _%e142300142359%_))) - (_%hd142301142362%_ + (##cdr _%e142406142465%_))) + (_%hd142407142468%_ (let () (declare (not safe)) - (##car _%e142300142359%_)))) + (##car _%e142406142465%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142302142364%_)) - (_%__kont148640148641%_) - (_%__kont148644148645%_)))) - (_%__kont148644148645%_)) + (gx#stx-null? _%tl142408142470%_)) + (_%__kont148746148747%_) + (_%__kont148750148751%_)))) + (_%__kont148750148751%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd142298142354%_)) + (gx#stx-eq? '%#quote _%hd142404142460%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142299142356%_)) - (let ((_%e142306142336%_ + (gx#stx-pair? _%tl142405142462%_)) + (let ((_%e142412142442%_ (let () (declare (not safe)) - (gx#stx-e _%tl142299142356%_)))) - (let ((_%tl142308142341%_ + (gx#stx-e _%tl142405142462%_)))) + (let ((_%tl142414142447%_ (let () (declare (not safe)) - (##cdr _%e142306142336%_))) - (_%hd142307142339%_ + (##cdr _%e142412142442%_))) + (_%hd142413142445%_ (let () (declare (not safe)) - (##car _%e142306142336%_)))) + (##car _%e142412142442%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142308142341%_)) - (_%__kont148642148643%_) - (_%__kont148644148645%_)))) - (_%__kont148644148645%_)) - (_%__kont148644148645%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148644148645%_)))) - (_%__kont148644148645%_))))))) - (if (pair? _%rest142270142278%_) - (let ((_%hd142275142375%_ + (gx#stx-null? _%tl142414142447%_)) + (_%__kont148748148749%_) + (_%__kont148750148751%_)))) + (_%__kont148750148751%_)) + (_%__kont148750148751%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148750148751%_)))) + (_%__kont148750148751%_))))))) + (if (pair? _%rest142376142384%_) + (let ((_%hd142381142481%_ (let () (declare (not safe)) - (##car _%rest142270142278%_))) - (_%tl142276142377%_ + (##car _%rest142376142384%_))) + (_%tl142382142483%_ (let () (declare (not safe)) - (##cdr _%rest142270142278%_)))) - (let* ((_%e142380%_ _%hd142275142375%_) - (_%rest142382%_ _%tl142276142377%_)) - (_%K142274142372%_ - _%rest142382%_ - _%e142380%_))) - (_%else142272142286%_)))))))) - (_%__kont148690148691%_ + (##cdr _%rest142376142384%_)))) + (let* ((_%e142486%_ _%hd142381142481%_) + (_%rest142488%_ _%tl142382142483%_)) + (_%K142380142478%_ + _%rest142488%_ + _%e142486%_))) + (_%else142378142392%_)))))))) + (_%__kont148796148797%_ (lambda () - (gxc#generate-runtime-call% _%self142137%_ _%stx142138%_)))) - (let ((_%__match148729148730%_ - (lambda (_%e142145142182%_ - _%hd142146142185%_ - _%tl142147142187%_ - _%e142148142190%_ - _%hd142149142193%_ - _%tl142150142195%_ - _%e142151142198%_ - _%hd142152142201%_ - _%tl142153142203%_ - _%e142154142206%_ - _%hd142155142209%_ - _%tl142156142211%_ - _%__splice148688148689%_ - _%target142157142214%_ - _%tl142159142216%_) - (letrec ((_%loop142160142219%_ - (lambda (_%hd142158142222%_ - _%rand142164142224%_) + (gxc#generate-runtime-call% _%self142243%_ _%stx142244%_)))) + (let ((_%__match148835148836%_ + (lambda (_%e142251142288%_ + _%hd142252142291%_ + _%tl142253142293%_ + _%e142254142296%_ + _%hd142255142299%_ + _%tl142256142301%_ + _%e142257142304%_ + _%hd142258142307%_ + _%tl142259142309%_ + _%e142260142312%_ + _%hd142261142315%_ + _%tl142262142317%_ + _%__splice148794148795%_ + _%target142263142320%_ + _%tl142265142322%_) + (letrec ((_%loop142266142325%_ + (lambda (_%hd142264142328%_ + _%rand142270142330%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142158142222%_)) - (let ((_%e142161142227%_ + (gx#stx-pair? _%hd142264142328%_)) + (let ((_%e142267142333%_ (let () (declare (not safe)) - (gx#stx-e _%hd142158142222%_)))) - (let ((_%lp-tl142163142232%_ + (gx#stx-e _%hd142264142328%_)))) + (let ((_%lp-tl142269142338%_ (let () (declare (not safe)) - (##cdr _%e142161142227%_))) - (_%lp-hd142162142230%_ + (##cdr _%e142267142333%_))) + (_%lp-hd142268142336%_ (let () (declare (not safe)) - (##car _%e142161142227%_)))) - (_%loop142160142219%_ - _%lp-tl142163142232%_ - (cons _%lp-hd142162142230%_ - _%rand142164142224%_)))) - (let ((_%rand142165142235%_ - (reverse _%rand142164142224%_))) - (_%__kont148686148687%_ - _%rand142165142235%_ - _%hd142155142209%_)))))) - (_%loop142160142219%_ _%target142157142214%_ '()))))) + (##car _%e142267142333%_)))) + (_%loop142266142325%_ + _%lp-tl142269142338%_ + (cons _%lp-hd142268142336%_ + _%rand142270142330%_)))) + (let ((_%rand142271142341%_ + (reverse _%rand142270142330%_))) + (_%__kont148792148793%_ + _%rand142271142341%_ + _%hd142261142315%_)))))) + (_%loop142266142325%_ _%target142263142320%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148684148685%_)) - (let ((_%e142145142182%_ + (gx#stx-pair? _%__stx148790148791%_)) + (let ((_%e142251142288%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148684148685%_)))) - (let ((_%tl142147142187%_ + (gx#stx-e _%__stx148790148791%_)))) + (let ((_%tl142253142293%_ (let () (declare (not safe)) - (##cdr _%e142145142182%_))) - (_%hd142146142185%_ + (##cdr _%e142251142288%_))) + (_%hd142252142291%_ (let () (declare (not safe)) - (##car _%e142145142182%_)))) + (##car _%e142251142288%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl142147142187%_)) - (let ((_%e142148142190%_ + (gx#stx-pair? _%tl142253142293%_)) + (let ((_%e142254142296%_ (let () (declare (not safe)) - (gx#stx-e _%tl142147142187%_)))) - (let ((_%tl142150142195%_ + (gx#stx-e _%tl142253142293%_)))) + (let ((_%tl142256142301%_ (let () (declare (not safe)) - (##cdr _%e142148142190%_))) - (_%hd142149142193%_ + (##cdr _%e142254142296%_))) + (_%hd142255142299%_ (let () (declare (not safe)) - (##car _%e142148142190%_)))) + (##car _%e142254142296%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd142149142193%_)) - (let ((_%e142151142198%_ + (gx#stx-pair? _%hd142255142299%_)) + (let ((_%e142257142304%_ (let () (declare (not safe)) - (gx#stx-e _%hd142149142193%_)))) - (let ((_%tl142153142203%_ + (gx#stx-e _%hd142255142299%_)))) + (let ((_%tl142259142309%_ (let () (declare (not safe)) - (##cdr _%e142151142198%_))) - (_%hd142152142201%_ + (##cdr _%e142257142304%_))) + (_%hd142258142307%_ (let () (declare (not safe)) - (##car _%e142151142198%_)))) + (##car _%e142257142304%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd142152142201%_)) + _%hd142258142307%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd142152142201%_)) + _%hd142258142307%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl142153142203%_)) - (let ((_%e142154142206%_ + _%tl142259142309%_)) + (let ((_%e142260142312%_ (let () (declare (not safe)) (gx#stx-e - _%tl142153142203%_)))) - (let ((_%tl142156142211%_ + _%tl142259142309%_)))) + (let ((_%tl142262142317%_ (let () (declare (not safe)) - (##cdr _%e142154142206%_))) - (_%hd142155142209%_ + (##cdr _%e142260142312%_))) + (_%hd142261142315%_ (let () (declare (not safe)) - (##car _%e142154142206%_)))) + (##car _%e142260142312%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl142156142211%_)) + _%tl142262142317%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl142150142195%_)) - (let ((_%__splice148688148689%_ + (gx#stx-pair/null? _%tl142256142301%_)) + (let ((_%__splice148794148795%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl142150142195%_ + _%tl142256142301%_ '0)))) - (let ((_%tl142159142216%_ + (let ((_%tl142265142322%_ (let () (declare (not safe)) - (##vector-ref _%__splice148688148689%_ '1))) - (_%target142157142214%_ + (##vector-ref _%__splice148794148795%_ '1))) + (_%target142263142320%_ (let () (declare (not safe)) - (##vector-ref _%__splice148688148689%_ '0)))) + (##vector-ref _%__splice148794148795%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl142159142216%_)) - (_%__match148729148730%_ - _%e142145142182%_ - _%hd142146142185%_ - _%tl142147142187%_ - _%e142148142190%_ - _%hd142149142193%_ - _%tl142150142195%_ - _%e142151142198%_ - _%hd142152142201%_ - _%tl142153142203%_ - _%e142154142206%_ - _%hd142155142209%_ - _%tl142156142211%_ - _%__splice148688148689%_ - _%target142157142214%_ - _%tl142159142216%_) - (_%__kont148690148691%_)))) - (_%__kont148690148691%_)) - (_%__kont148690148691%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148690148691%_)) - (_%__kont148690148691%_)) - (_%__kont148690148691%_)))) - (_%__kont148690148691%_)))) - (_%__kont148690148691%_)))) - (_%__kont148690148691%_))))))) + (gx#stx-null? _%tl142265142322%_)) + (_%__match148835148836%_ + _%e142251142288%_ + _%hd142252142291%_ + _%tl142253142293%_ + _%e142254142296%_ + _%hd142255142299%_ + _%tl142256142301%_ + _%e142257142304%_ + _%hd142258142307%_ + _%tl142259142309%_ + _%e142260142312%_ + _%hd142261142315%_ + _%tl142262142317%_ + _%__splice148794148795%_ + _%target142263142320%_ + _%tl142265142322%_) + (_%__kont148796148797%_)))) + (_%__kont148796148797%_)) + (_%__kont148796148797%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148796148797%_)) + (_%__kont148796148797%_)) + (_%__kont148796148797%_)))) + (_%__kont148796148797%_)))) + (_%__kont148796148797%_)))) + (_%__kont148796148797%_))))))) (define gxc#generate-runtime-if% - (lambda (_%self141949%_ _%stx141950%_) - (letrec ((_%simplify141952%_ - (lambda (_%code142037%_) - (let* ((_%code142038142056%_ _%code142037%_) - (_%else142040142064%_ (lambda () _%code142037%_)) - (_%K142042142100%_ - (lambda (_%expr142067%_ _%test142068%_) - (let* ((_%expr142069142077%_ _%expr142067%_) - (_%else142071142085%_ + (lambda (_%self142055%_ _%stx142056%_) + (letrec ((_%simplify142058%_ + (lambda (_%code142143%_) + (let* ((_%code142144142162%_ _%code142143%_) + (_%else142146142170%_ (lambda () _%code142143%_)) + (_%K142148142206%_ + (lambda (_%expr142173%_ _%test142174%_) + (let* ((_%expr142175142183%_ _%expr142173%_) + (_%else142177142191%_ (lambda () (cons 'and - (cons _%test142068%_ - (cons _%expr142067%_ + (cons _%test142174%_ + (cons _%expr142173%_ '()))))) - (_%K142073142090%_ - (lambda (_%exprs142088%_) + (_%K142179142196%_ + (lambda (_%exprs142194%_) (cons 'and - (cons _%test142068%_ - _%exprs142088%_))))) - (if (pair? _%expr142069142077%_) - (let ((_%hd142074142093%_ + (cons _%test142174%_ + _%exprs142194%_))))) + (if (pair? _%expr142175142183%_) + (let ((_%hd142180142199%_ (let () (declare (not safe)) - (##car _%expr142069142077%_))) - (_%tl142075142095%_ + (##car _%expr142175142183%_))) + (_%tl142181142201%_ (let () (declare (not safe)) - (##cdr _%expr142069142077%_)))) + (##cdr _%expr142175142183%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142074142093%_ 'and)) - (let ((_%exprs142098%_ - _%tl142075142095%_)) - (_%K142073142090%_ - _%exprs142098%_)) - (_%else142071142085%_))) - (_%else142071142085%_)))))) - (if (pair? _%code142038142056%_) - (let ((_%hd142043142103%_ + (##eq? _%hd142180142199%_ 'and)) + (let ((_%exprs142204%_ + _%tl142181142201%_)) + (_%K142179142196%_ + _%exprs142204%_)) + (_%else142177142191%_))) + (_%else142177142191%_)))))) + (if (pair? _%code142144142162%_) + (let ((_%hd142149142209%_ (let () (declare (not safe)) - (##car _%code142038142056%_))) - (_%tl142044142105%_ + (##car _%code142144142162%_))) + (_%tl142150142211%_ (let () (declare (not safe)) - (##cdr _%code142038142056%_)))) + (##cdr _%code142144142162%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142043142103%_ 'if)) - (if (pair? _%tl142044142105%_) - (let ((_%hd142045142108%_ + (##eq? _%hd142149142209%_ 'if)) + (if (pair? _%tl142150142211%_) + (let ((_%hd142151142214%_ (let () (declare (not safe)) - (##car _%tl142044142105%_))) - (_%tl142046142110%_ + (##car _%tl142150142211%_))) + (_%tl142152142216%_ (let () (declare (not safe)) - (##cdr _%tl142044142105%_)))) - (let ((_%test142113%_ - _%hd142045142108%_)) - (if (pair? _%tl142046142110%_) - (let ((_%hd142047142115%_ + (##cdr _%tl142150142211%_)))) + (let ((_%test142219%_ + _%hd142151142214%_)) + (if (pair? _%tl142152142216%_) + (let ((_%hd142153142221%_ (let () (declare (not safe)) - (##car _%tl142046142110%_))) - (_%tl142048142117%_ + (##car _%tl142152142216%_))) + (_%tl142154142223%_ (let () (declare (not safe)) - (##cdr _%tl142046142110%_)))) - (let ((_%expr142120%_ - _%hd142047142115%_)) - (if (pair? _%tl142048142117%_) - (let ((_%hd142049142122%_ + (##cdr _%tl142152142216%_)))) + (let ((_%expr142226%_ + _%hd142153142221%_)) + (if (pair? _%tl142154142223%_) + (let ((_%hd142155142228%_ (let () (declare (not safe)) - (##car _%tl142048142117%_))) - (_%tl142050142124%_ + (##car _%tl142154142223%_))) + (_%tl142156142230%_ (let () (declare (not safe)) - (##cdr _%tl142048142117%_)))) - (if (pair? _%hd142049142122%_) - (let ((_%hd142051142127%_ + (##cdr _%tl142154142223%_)))) + (if (pair? _%hd142155142228%_) + (let ((_%hd142157142233%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%hd142049142122%_))) - (_%tl142052142129%_ + (##car _%hd142155142228%_))) + (_%tl142158142235%_ (let () (declare (not safe)) - (##cdr _%hd142049142122%_)))) + (##cdr _%hd142155142228%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142051142127%_ 'quote)) - (if (pair? _%tl142052142129%_) - (let ((_%hd142053142132%_ + (##eq? _%hd142157142233%_ 'quote)) + (if (pair? _%tl142158142235%_) + (let ((_%hd142159142238%_ (let () (declare (not safe)) - (##car _%tl142052142129%_))) - (_%tl142054142134%_ + (##car _%tl142158142235%_))) + (_%tl142160142240%_ (let () (declare (not safe)) - (##cdr _%tl142052142129%_)))) + (##cdr _%tl142158142235%_)))) (if (let () (declare (not safe)) - (##eq? _%hd142053142132%_ '#f)) - (if (null? _%tl142054142134%_) - (if (null? _%tl142050142124%_) - (_%K142042142100%_ - _%expr142120%_ - _%test142113%_) - (_%else142040142064%_)) - (_%else142040142064%_)) - (_%else142040142064%_))) - (_%else142040142064%_)) - (_%else142040142064%_))) - (_%else142040142064%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else142040142064%_)))) - (_%else142040142064%_)))) - (_%else142040142064%_)) - (_%else142040142064%_))) - (_%else142040142064%_)))))) - (let* ((_%g141954141975%_ - (lambda (_%g141955141972%_) + (##eq? _%hd142159142238%_ '#f)) + (if (null? _%tl142160142240%_) + (if (null? _%tl142156142230%_) + (_%K142148142206%_ + _%expr142226%_ + _%test142219%_) + (_%else142146142170%_)) + (_%else142146142170%_)) + (_%else142146142170%_))) + (_%else142146142170%_)) + (_%else142146142170%_))) + (_%else142146142170%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%else142146142170%_)))) + (_%else142146142170%_)))) + (_%else142146142170%_)) + (_%else142146142170%_))) + (_%else142146142170%_)))))) + (let* ((_%g142060142081%_ + (lambda (_%g142061142078%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141955141972%_)))) - (_%g141953142034%_ - (lambda (_%g141955141978%_) + _%g142061142078%_)))) + (_%g142059142140%_ + (lambda (_%g142061142084%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141955141978%_)) - (let ((_%e141959141980%_ + (gx#stx-pair? _%g142061142084%_)) + (let ((_%e142065142086%_ (let () (declare (not safe)) - (gx#stx-e _%g141955141978%_)))) - (let ((_%hd141960141983%_ + (gx#stx-e _%g142061142084%_)))) + (let ((_%hd142066142089%_ (let () (declare (not safe)) - (##car _%e141959141980%_))) - (_%tl141961141985%_ + (##car _%e142065142086%_))) + (_%tl142067142091%_ (let () (declare (not safe)) - (##cdr _%e141959141980%_)))) + (##cdr _%e142065142086%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141961141985%_)) - (let ((_%e141962141988%_ + (gx#stx-pair? _%tl142067142091%_)) + (let ((_%e142068142094%_ (let () (declare (not safe)) - (gx#stx-e _%tl141961141985%_)))) - (let ((_%hd141963141991%_ + (gx#stx-e _%tl142067142091%_)))) + (let ((_%hd142069142097%_ (let () (declare (not safe)) - (##car _%e141962141988%_))) - (_%tl141964141993%_ + (##car _%e142068142094%_))) + (_%tl142070142099%_ (let () (declare (not safe)) - (##cdr _%e141962141988%_)))) + (##cdr _%e142068142094%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141964141993%_)) - (let ((_%e141965141996%_ + (gx#stx-pair? _%tl142070142099%_)) + (let ((_%e142071142102%_ (let () (declare (not safe)) (gx#stx-e - _%tl141964141993%_)))) - (let ((_%hd141966141999%_ + _%tl142070142099%_)))) + (let ((_%hd142072142105%_ (let () (declare (not safe)) - (##car _%e141965141996%_))) - (_%tl141967142001%_ + (##car _%e142071142102%_))) + (_%tl142073142107%_ (let () (declare (not safe)) - (##cdr _%e141965141996%_)))) + (##cdr _%e142071142102%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141967142001%_)) - (let ((_%e141968142004%_ + _%tl142073142107%_)) + (let ((_%e142074142110%_ (let () (declare (not safe)) (gx#stx-e - _%tl141967142001%_)))) - (let ((_%hd141969142007%_ + _%tl142073142107%_)))) + (let ((_%hd142075142113%_ (let () (declare (not safe)) - (##car _%e141968142004%_))) - (_%tl141970142009%_ + (##car _%e142074142110%_))) + (_%tl142076142115%_ (let () (declare (not safe)) - (##cdr _%e141968142004%_)))) + (##cdr _%e142074142110%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141970142009%_)) - ((lambda (_%L142012%_ + _%tl142076142115%_)) + ((lambda (_%L142118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L142013%_ - _%L142014%_) + _%L142119%_ + _%L142120%_) (if (let () (declare (not safe)) (gxc#current-compile-boolean-context)) - (_%simplify141952%_ + (_%simplify142058%_ (cons 'if (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142014%_)) + _%self142055%_ + _%L142120%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142013%_)) + _%self142055%_ + _%L142119%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142012%_)) + _%self142055%_ + _%L142118%_)) '()))))) (cons 'if - (cons (let ((__tmp149184 + (cons (let ((__tmp149290 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142014%_))))) + _%self142055%_ + _%L142120%_))))) (declare (not safe)) (__call-with-parameters - __tmp149184 + __tmp149290 gxc#current-compile-boolean-context '#t)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142013%_)) + _%self142055%_ + _%L142119%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141949%_ - _%L142012%_)) + _%self142055%_ + _%L142118%_)) '())))))) - _%hd141969142007%_ - _%hd141966141999%_ - _%hd141963141991%_) - (_%g141954141975%_ _%g141955141978%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141954141975%_ - _%g141955141978%_)))) - (_%g141954141975%_ - _%g141955141978%_)))) - (_%g141954141975%_ _%g141955141978%_)))) - (_%g141954141975%_ _%g141955141978%_))))) - (_%g141953142034%_ _%stx141950%_))))) + _%hd142075142113%_ + _%hd142072142105%_ + _%hd142069142097%_) + (_%g142060142081%_ _%g142061142084%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g142060142081%_ + _%g142061142084%_)))) + (_%g142060142081%_ + _%g142061142084%_)))) + (_%g142060142081%_ _%g142061142084%_)))) + (_%g142060142081%_ _%g142061142084%_))))) + (_%g142059142140%_ _%stx142056%_))))) (define gxc#generate-runtime-ref% - (lambda (_%self141897%_ _%stx141898%_) - (let* ((_%g141900141913%_ - (lambda (_%g141901141910%_) + (lambda (_%self142003%_ _%stx142004%_) + (let* ((_%g142006142019%_ + (lambda (_%g142007142016%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141901141910%_)))) - (_%g141899141946%_ - (lambda (_%g141901141916%_) + _%g142007142016%_)))) + (_%g142005142052%_ + (lambda (_%g142007142022%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141901141916%_)) - (let ((_%e141903141918%_ + (gx#stx-pair? _%g142007142022%_)) + (let ((_%e142009142024%_ (let () (declare (not safe)) - (gx#stx-e _%g141901141916%_)))) - (let ((_%hd141904141921%_ + (gx#stx-e _%g142007142022%_)))) + (let ((_%hd142010142027%_ (let () (declare (not safe)) - (##car _%e141903141918%_))) - (_%tl141905141923%_ + (##car _%e142009142024%_))) + (_%tl142011142029%_ (let () (declare (not safe)) - (##cdr _%e141903141918%_)))) + (##cdr _%e142009142024%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141905141923%_)) - (let ((_%e141906141926%_ + (gx#stx-pair? _%tl142011142029%_)) + (let ((_%e142012142032%_ (let () (declare (not safe)) - (gx#stx-e _%tl141905141923%_)))) - (let ((_%hd141907141929%_ + (gx#stx-e _%tl142011142029%_)))) + (let ((_%hd142013142035%_ (let () (declare (not safe)) - (##car _%e141906141926%_))) - (_%tl141908141931%_ + (##car _%e142012142032%_))) + (_%tl142014142037%_ (let () (declare (not safe)) - (##cdr _%e141906141926%_)))) + (##cdr _%e142012142032%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141908141931%_)) - ((lambda (_%L141934%_) + (gx#stx-null? _%tl142014142037%_)) + ((lambda (_%L142040%_) (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L141934%_))) - _%hd141907141929%_) - (_%g141900141913%_ _%g141901141916%_)))) - (_%g141900141913%_ _%g141901141916%_)))) - (_%g141900141913%_ _%g141901141916%_))))) - (_%g141899141946%_ _%stx141898%_)))) + _%L142040%_))) + _%hd142013142035%_) + (_%g142006142019%_ _%g142007142022%_)))) + (_%g142006142019%_ _%g142007142022%_)))) + (_%g142006142019%_ _%g142007142022%_))))) + (_%g142005142052%_ _%stx142004%_)))) (define gxc#generate-runtime-setq% - (lambda (_%self141829%_ _%stx141830%_) - (let* ((_%g141832141849%_ - (lambda (_%g141833141846%_) + (lambda (_%self141935%_ _%stx141936%_) + (let* ((_%g141938141955%_ + (lambda (_%g141939141952%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141833141846%_)))) - (_%g141831141894%_ - (lambda (_%g141833141852%_) + _%g141939141952%_)))) + (_%g141937142000%_ + (lambda (_%g141939141958%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141833141852%_)) - (let ((_%e141836141854%_ + (gx#stx-pair? _%g141939141958%_)) + (let ((_%e141942141960%_ (let () (declare (not safe)) - (gx#stx-e _%g141833141852%_)))) - (let ((_%hd141837141857%_ + (gx#stx-e _%g141939141958%_)))) + (let ((_%hd141943141963%_ (let () (declare (not safe)) - (##car _%e141836141854%_))) - (_%tl141838141859%_ + (##car _%e141942141960%_))) + (_%tl141944141965%_ (let () (declare (not safe)) - (##cdr _%e141836141854%_)))) + (##cdr _%e141942141960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141838141859%_)) - (let ((_%e141839141862%_ + (gx#stx-pair? _%tl141944141965%_)) + (let ((_%e141945141968%_ (let () (declare (not safe)) - (gx#stx-e _%tl141838141859%_)))) - (let ((_%hd141840141865%_ + (gx#stx-e _%tl141944141965%_)))) + (let ((_%hd141946141971%_ (let () (declare (not safe)) - (##car _%e141839141862%_))) - (_%tl141841141867%_ + (##car _%e141945141968%_))) + (_%tl141947141973%_ (let () (declare (not safe)) - (##cdr _%e141839141862%_)))) + (##cdr _%e141945141968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141841141867%_)) - (let ((_%e141842141870%_ + (gx#stx-pair? _%tl141947141973%_)) + (let ((_%e141948141976%_ (let () (declare (not safe)) - (gx#stx-e _%tl141841141867%_)))) - (let ((_%hd141843141873%_ + (gx#stx-e _%tl141947141973%_)))) + (let ((_%hd141949141979%_ (let () (declare (not safe)) - (##car _%e141842141870%_))) - (_%tl141844141875%_ + (##car _%e141948141976%_))) + (_%tl141950141981%_ (let () (declare (not safe)) - (##cdr _%e141842141870%_)))) + (##cdr _%e141948141976%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141844141875%_)) - ((lambda (_%L141878%_ - _%L141879%_) + _%tl141950141981%_)) + ((lambda (_%L141984%_ + _%L141985%_) (cons 'set! (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#generate-runtime-binding-id _%L141879%_)) + (gxc#generate-runtime-binding-id _%L141985%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141829%_ _%L141878%_)) + (gxc#compile-e__1 _%self141935%_ _%L141984%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141843141873%_ - _%hd141840141865%_) - (_%g141832141849%_ - _%g141833141852%_)))) - (_%g141832141849%_ _%g141833141852%_)))) - (_%g141832141849%_ _%g141833141852%_)))) - (_%g141832141849%_ _%g141833141852%_))))) - (_%g141831141894%_ _%stx141830%_)))) + _%hd141949141979%_ + _%hd141946141971%_) + (_%g141938141955%_ + _%g141939141958%_)))) + (_%g141938141955%_ _%g141939141958%_)))) + (_%g141938141955%_ _%g141939141958%_)))) + (_%g141938141955%_ _%g141939141958%_))))) + (_%g141937142000%_ _%stx141936%_)))) (define gxc#generate-runtime-struct-instancep% - (lambda (_%self141640%_ _%stx141641%_) - (let* ((_%g141643141660%_ - (lambda (_%g141644141657%_) + (lambda (_%self141746%_ _%stx141747%_) + (let* ((_%g141749141766%_ + (lambda (_%g141750141763%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141644141657%_)))) - (_%g141642141826%_ - (lambda (_%g141644141663%_) + _%g141750141763%_)))) + (_%g141748141932%_ + (lambda (_%g141750141769%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141644141663%_)) - (let ((_%e141647141665%_ + (gx#stx-pair? _%g141750141769%_)) + (let ((_%e141753141771%_ (let () (declare (not safe)) - (gx#stx-e _%g141644141663%_)))) - (let ((_%hd141648141668%_ + (gx#stx-e _%g141750141769%_)))) + (let ((_%hd141754141774%_ (let () (declare (not safe)) - (##car _%e141647141665%_))) - (_%tl141649141670%_ + (##car _%e141753141771%_))) + (_%tl141755141776%_ (let () (declare (not safe)) - (##cdr _%e141647141665%_)))) + (##cdr _%e141753141771%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141649141670%_)) - (let ((_%e141650141673%_ + (gx#stx-pair? _%tl141755141776%_)) + (let ((_%e141756141779%_ (let () (declare (not safe)) - (gx#stx-e _%tl141649141670%_)))) - (let ((_%hd141651141676%_ + (gx#stx-e _%tl141755141776%_)))) + (let ((_%hd141757141782%_ (let () (declare (not safe)) - (##car _%e141650141673%_))) - (_%tl141652141678%_ + (##car _%e141756141779%_))) + (_%tl141758141784%_ (let () (declare (not safe)) - (##cdr _%e141650141673%_)))) + (##cdr _%e141756141779%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141652141678%_)) - (let ((_%e141653141681%_ + (gx#stx-pair? _%tl141758141784%_)) + (let ((_%e141759141787%_ (let () (declare (not safe)) - (gx#stx-e _%tl141652141678%_)))) - (let ((_%hd141654141684%_ + (gx#stx-e _%tl141758141784%_)))) + (let ((_%hd141760141790%_ (let () (declare (not safe)) - (##car _%e141653141681%_))) - (_%tl141655141686%_ + (##car _%e141759141787%_))) + (_%tl141761141792%_ (let () (declare (not safe)) - (##cdr _%e141653141681%_)))) + (##cdr _%e141759141787%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141655141686%_)) - ((lambda (_%L141689%_ - _%L141690%_) + _%tl141761141792%_)) + ((lambda (_%L141795%_ + _%L141796%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141640%_ _%L141689%_)) + (gxc#compile-e__1 _%self141746%_ _%L141795%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141640%_ _%L141690%_)) + (gxc#compile-e__1 _%self141746%_ _%L141796%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141705%_ ((_%rest141708%_ + (let _%lp141811%_ ((_%rest141814%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141690%_ (cons _%L141689%_ '()))) - (_%bind141710%_ '()) - (_%args141711%_ '())) - (let* ((_%rest141712141720%_ _%rest141708%_) - (_%else141714141728%_ + (cons _%L141796%_ (cons _%L141795%_ '()))) + (_%bind141816%_ '()) + (_%args141817%_ '())) + (let* ((_%rest141818141826%_ _%rest141814%_) + (_%else141820141834%_ (lambda () (cons 'let - (cons _%bind141710%_ + (cons _%bind141816%_ (cons '(declare (not safe)) (cons (cons '##structure-instance-of? - _%args141711%_) + _%args141817%_) '())))))) - (_%K141716141814%_ - (lambda (_%rest141731%_ _%e141732%_) - (let* ((_%__stx148732148733%_ _%e141732%_) - (_%g141737141755%_ + (_%K141822141920%_ + (lambda (_%rest141837%_ _%e141838%_) + (let* ((_%__stx148838148839%_ _%e141838%_) + (_%g141843141861%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148732148733%_))))) - (let ((_%__kont148734148735%_ + _%__stx148838148839%_))))) + (let ((_%__kont148840148841%_ (lambda () - (_%lp141705%_ - _%rest141731%_ - _%bind141710%_ + (_%lp141811%_ + _%rest141837%_ + _%bind141816%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141732%_)) - _%args141711%_)))) - (_%__kont148736148737%_ + (gxc#compile-e__0 _%e141838%_)) + _%args141817%_)))) + (_%__kont148842148843%_ (lambda () - (_%lp141705%_ - _%rest141731%_ - _%bind141710%_ + (_%lp141811%_ + _%rest141837%_ + _%bind141816%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141732%_)) - _%args141711%_)))) - (_%__kont148738148739%_ + (gxc#compile-e__0 _%e141838%_)) + _%args141817%_)))) + (_%__kont148844148845%_ (lambda () - (let ((_%tmp141762%_ - (let ((__tmp149185 + (let ((_%tmp141868%_ + (let ((__tmp149291 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149185)))) - (_%lp141705%_ - _%rest141731%_ - (cons (cons _%tmp141762%_ + (make-symbol__0 __tmp149291)))) + (_%lp141811%_ + _%rest141837%_ + (cons (cons _%tmp141868%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141732%_)) + _%e141838%_)) '())) - _%bind141710%_) - (cons _%tmp141762%_ _%args141711%_)))))) + _%bind141816%_) + (cons _%tmp141868%_ _%args141817%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148732148733%_)) - (let ((_%e141739141793%_ + (gx#stx-pair? _%__stx148838148839%_)) + (let ((_%e141845141899%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148732148733%_)))) - (let ((_%tl141741141798%_ + (gx#stx-e _%__stx148838148839%_)))) + (let ((_%tl141847141904%_ (let () (declare (not safe)) - (##cdr _%e141739141793%_))) - (_%hd141740141796%_ + (##cdr _%e141845141899%_))) + (_%hd141846141902%_ (let () (declare (not safe)) - (##car _%e141739141793%_)))) + (##car _%e141845141899%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141740141796%_)) + (gx#identifier? _%hd141846141902%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141740141796%_)) + _%hd141846141902%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141741141798%_)) - (let ((_%e141742141801%_ + _%tl141847141904%_)) + (let ((_%e141848141907%_ (let () (declare (not safe)) (gx#stx-e - _%tl141741141798%_)))) - (let ((_%tl141744141806%_ + _%tl141847141904%_)))) + (let ((_%tl141850141912%_ (let () (declare (not safe)) - (##cdr _%e141742141801%_))) - (_%hd141743141804%_ + (##cdr _%e141848141907%_))) + (_%hd141849141910%_ (let () (declare (not safe)) - (##car _%e141742141801%_)))) + (##car _%e141848141907%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141744141806%_)) - (_%__kont148734148735%_) - (_%__kont148738148739%_)))) - (_%__kont148738148739%_)) + _%tl141850141912%_)) + (_%__kont148840148841%_) + (_%__kont148844148845%_)))) + (_%__kont148844148845%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141740141796%_)) + _%hd141846141902%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141741141798%_)) - (let ((_%e141748141778%_ + _%tl141847141904%_)) + (let ((_%e141854141884%_ (let () (declare (not safe)) (gx#stx-e - _%tl141741141798%_)))) - (let ((_%tl141750141783%_ + _%tl141847141904%_)))) + (let ((_%tl141856141889%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141748141778%_))) - (_%hd141749141781%_ - (let () (declare (not safe)) (##car _%e141748141778%_)))) + (##cdr _%e141854141884%_))) + (_%hd141855141887%_ + (let () (declare (not safe)) (##car _%e141854141884%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141750141783%_)) - (_%__kont148736148737%_) - (_%__kont148738148739%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148738148739%_)) - (_%__kont148738148739%_))) - (_%__kont148738148739%_)))) - (_%__kont148738148739%_))))))) - (if (pair? _%rest141712141720%_) - (let ((_%hd141717141817%_ + (gx#stx-null? _%tl141856141889%_)) + (_%__kont148842148843%_) + (_%__kont148844148845%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148844148845%_)) + (_%__kont148844148845%_))) + (_%__kont148844148845%_)))) + (_%__kont148844148845%_))))))) + (if (pair? _%rest141818141826%_) + (let ((_%hd141823141923%_ (let () (declare (not safe)) - (##car _%rest141712141720%_))) - (_%tl141718141819%_ + (##car _%rest141818141826%_))) + (_%tl141824141925%_ (let () (declare (not safe)) - (##cdr _%rest141712141720%_)))) - (let* ((_%e141822%_ _%hd141717141817%_) - (_%rest141824%_ _%tl141718141819%_)) - (_%K141716141814%_ _%rest141824%_ _%e141822%_))) - (_%else141714141728%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141654141684%_ - _%hd141651141676%_) - (_%g141643141660%_ - _%g141644141663%_)))) - (_%g141643141660%_ _%g141644141663%_)))) - (_%g141643141660%_ _%g141644141663%_)))) - (_%g141643141660%_ _%g141644141663%_))))) - (_%g141642141826%_ _%stx141641%_)))) + (##cdr _%rest141818141826%_)))) + (let* ((_%e141928%_ _%hd141823141923%_) + (_%rest141930%_ _%tl141824141925%_)) + (_%K141822141920%_ _%rest141930%_ _%e141928%_))) + (_%else141820141834%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141760141790%_ + _%hd141757141782%_) + (_%g141749141766%_ + _%g141750141769%_)))) + (_%g141749141766%_ _%g141750141769%_)))) + (_%g141749141766%_ _%g141750141769%_)))) + (_%g141749141766%_ _%g141750141769%_))))) + (_%g141748141932%_ _%stx141747%_)))) (define gxc#generate-runtime-struct-direct-instancep% - (lambda (_%self141451%_ _%stx141452%_) - (let* ((_%g141454141471%_ - (lambda (_%g141455141468%_) + (lambda (_%self141557%_ _%stx141558%_) + (let* ((_%g141560141577%_ + (lambda (_%g141561141574%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141455141468%_)))) - (_%g141453141637%_ - (lambda (_%g141455141474%_) + _%g141561141574%_)))) + (_%g141559141743%_ + (lambda (_%g141561141580%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141455141474%_)) - (let ((_%e141458141476%_ + (gx#stx-pair? _%g141561141580%_)) + (let ((_%e141564141582%_ (let () (declare (not safe)) - (gx#stx-e _%g141455141474%_)))) - (let ((_%hd141459141479%_ + (gx#stx-e _%g141561141580%_)))) + (let ((_%hd141565141585%_ (let () (declare (not safe)) - (##car _%e141458141476%_))) - (_%tl141460141481%_ + (##car _%e141564141582%_))) + (_%tl141566141587%_ (let () (declare (not safe)) - (##cdr _%e141458141476%_)))) + (##cdr _%e141564141582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141460141481%_)) - (let ((_%e141461141484%_ + (gx#stx-pair? _%tl141566141587%_)) + (let ((_%e141567141590%_ (let () (declare (not safe)) - (gx#stx-e _%tl141460141481%_)))) - (let ((_%hd141462141487%_ + (gx#stx-e _%tl141566141587%_)))) + (let ((_%hd141568141593%_ (let () (declare (not safe)) - (##car _%e141461141484%_))) - (_%tl141463141489%_ + (##car _%e141567141590%_))) + (_%tl141569141595%_ (let () (declare (not safe)) - (##cdr _%e141461141484%_)))) + (##cdr _%e141567141590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141463141489%_)) - (let ((_%e141464141492%_ + (gx#stx-pair? _%tl141569141595%_)) + (let ((_%e141570141598%_ (let () (declare (not safe)) - (gx#stx-e _%tl141463141489%_)))) - (let ((_%hd141465141495%_ + (gx#stx-e _%tl141569141595%_)))) + (let ((_%hd141571141601%_ (let () (declare (not safe)) - (##car _%e141464141492%_))) - (_%tl141466141497%_ + (##car _%e141570141598%_))) + (_%tl141572141603%_ (let () (declare (not safe)) - (##cdr _%e141464141492%_)))) + (##cdr _%e141570141598%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141466141497%_)) - ((lambda (_%L141500%_ - _%L141501%_) + _%tl141572141603%_)) + ((lambda (_%L141606%_ + _%L141607%_) (if (gxc#current-compile-decls-unsafe?) (cons '##structure-direct-instance-of? (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141451%_ _%L141500%_)) + (gxc#compile-e__1 _%self141557%_ _%L141606%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self141451%_ _%L141501%_)) + (gxc#compile-e__1 _%self141557%_ _%L141607%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let _%lp141516%_ ((_%rest141519%_ + (let _%lp141622%_ ((_%rest141625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L141501%_ (cons _%L141500%_ '()))) - (_%bind141521%_ '()) - (_%args141522%_ '())) - (let* ((_%rest141523141531%_ _%rest141519%_) - (_%else141525141539%_ + (cons _%L141607%_ (cons _%L141606%_ '()))) + (_%bind141627%_ '()) + (_%args141628%_ '())) + (let* ((_%rest141629141637%_ _%rest141625%_) + (_%else141631141645%_ (lambda () (cons 'let - (cons _%bind141521%_ + (cons _%bind141627%_ (cons '(declare (not safe)) (cons (cons '##structure-direct-instance-of? - _%args141522%_) + _%args141628%_) '())))))) - (_%K141527141625%_ - (lambda (_%rest141542%_ _%e141543%_) - (let* ((_%__stx148778148779%_ _%e141543%_) - (_%g141548141566%_ + (_%K141633141731%_ + (lambda (_%rest141648%_ _%e141649%_) + (let* ((_%__stx148884148885%_ _%e141649%_) + (_%g141654141672%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148778148779%_))))) - (let ((_%__kont148780148781%_ + _%__stx148884148885%_))))) + (let ((_%__kont148886148887%_ (lambda () - (_%lp141516%_ - _%rest141542%_ - _%bind141521%_ + (_%lp141622%_ + _%rest141648%_ + _%bind141627%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141543%_)) - _%args141522%_)))) - (_%__kont148782148783%_ + (gxc#compile-e__0 _%e141649%_)) + _%args141628%_)))) + (_%__kont148888148889%_ (lambda () - (_%lp141516%_ - _%rest141542%_ - _%bind141521%_ + (_%lp141622%_ + _%rest141648%_ + _%bind141627%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e141543%_)) - _%args141522%_)))) - (_%__kont148784148785%_ + (gxc#compile-e__0 _%e141649%_)) + _%args141628%_)))) + (_%__kont148890148891%_ (lambda () - (let ((_%tmp141573%_ - (let ((__tmp149186 + (let ((_%tmp141679%_ + (let ((__tmp149292 (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149186)))) - (_%lp141516%_ - _%rest141542%_ - (cons (cons _%tmp141573%_ + (make-symbol__0 __tmp149292)))) + (_%lp141622%_ + _%rest141648%_ + (cons (cons _%tmp141679%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e141543%_)) + _%e141649%_)) '())) - _%bind141521%_) - (cons _%tmp141573%_ _%args141522%_)))))) + _%bind141627%_) + (cons _%tmp141679%_ _%args141628%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148778148779%_)) - (let ((_%e141550141604%_ + (gx#stx-pair? _%__stx148884148885%_)) + (let ((_%e141656141710%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148778148779%_)))) - (let ((_%tl141552141609%_ + (gx#stx-e _%__stx148884148885%_)))) + (let ((_%tl141658141715%_ (let () (declare (not safe)) - (##cdr _%e141550141604%_))) - (_%hd141551141607%_ + (##cdr _%e141656141710%_))) + (_%hd141657141713%_ (let () (declare (not safe)) - (##car _%e141550141604%_)))) + (##car _%e141656141710%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd141551141607%_)) + (gx#identifier? _%hd141657141713%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd141551141607%_)) + _%hd141657141713%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141552141609%_)) - (let ((_%e141553141612%_ + _%tl141658141715%_)) + (let ((_%e141659141718%_ (let () (declare (not safe)) (gx#stx-e - _%tl141552141609%_)))) - (let ((_%tl141555141617%_ + _%tl141658141715%_)))) + (let ((_%tl141661141723%_ (let () (declare (not safe)) - (##cdr _%e141553141612%_))) - (_%hd141554141615%_ + (##cdr _%e141659141718%_))) + (_%hd141660141721%_ (let () (declare (not safe)) - (##car _%e141553141612%_)))) + (##car _%e141659141718%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141555141617%_)) - (_%__kont148780148781%_) - (_%__kont148784148785%_)))) - (_%__kont148784148785%_)) + _%tl141661141723%_)) + (_%__kont148886148887%_) + (_%__kont148890148891%_)))) + (_%__kont148890148891%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd141551141607%_)) + _%hd141657141713%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141552141609%_)) - (let ((_%e141559141589%_ + _%tl141658141715%_)) + (let ((_%e141665141695%_ (let () (declare (not safe)) (gx#stx-e - _%tl141552141609%_)))) - (let ((_%tl141561141594%_ + _%tl141658141715%_)))) + (let ((_%tl141667141700%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e141559141589%_))) - (_%hd141560141592%_ - (let () (declare (not safe)) (##car _%e141559141589%_)))) + (##cdr _%e141665141695%_))) + (_%hd141666141698%_ + (let () (declare (not safe)) (##car _%e141665141695%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141561141594%_)) - (_%__kont148782148783%_) - (_%__kont148784148785%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148784148785%_)) - (_%__kont148784148785%_))) - (_%__kont148784148785%_)))) - (_%__kont148784148785%_))))))) - (if (pair? _%rest141523141531%_) - (let ((_%hd141528141628%_ + (gx#stx-null? _%tl141667141700%_)) + (_%__kont148888148889%_) + (_%__kont148890148891%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148890148891%_)) + (_%__kont148890148891%_))) + (_%__kont148890148891%_)))) + (_%__kont148890148891%_))))))) + (if (pair? _%rest141629141637%_) + (let ((_%hd141634141734%_ (let () (declare (not safe)) - (##car _%rest141523141531%_))) - (_%tl141529141630%_ + (##car _%rest141629141637%_))) + (_%tl141635141736%_ (let () (declare (not safe)) - (##cdr _%rest141523141531%_)))) - (let* ((_%e141633%_ _%hd141528141628%_) - (_%rest141635%_ _%tl141529141630%_)) - (_%K141527141625%_ _%rest141635%_ _%e141633%_))) - (_%else141525141539%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd141465141495%_ - _%hd141462141487%_) - (_%g141454141471%_ - _%g141455141474%_)))) - (_%g141454141471%_ _%g141455141474%_)))) - (_%g141454141471%_ _%g141455141474%_)))) - (_%g141454141471%_ _%g141455141474%_))))) - (_%g141453141637%_ _%stx141452%_)))) + (##cdr _%rest141629141637%_)))) + (let* ((_%e141739%_ _%hd141634141734%_) + (_%rest141741%_ _%tl141635141736%_)) + (_%K141633141731%_ _%rest141741%_ _%e141739%_))) + (_%else141631141645%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd141571141601%_ + _%hd141568141593%_) + (_%g141560141577%_ + _%g141561141580%_)))) + (_%g141560141577%_ _%g141561141580%_)))) + (_%g141560141577%_ _%g141561141580%_)))) + (_%g141560141577%_ _%g141561141580%_))))) + (_%g141559141743%_ _%stx141558%_)))) (define gxc#generate-runtime-struct-ref% - (lambda (_%self141367%_ _%stx141368%_) - (let* ((_%g141370141391%_ - (lambda (_%g141371141388%_) + (lambda (_%self141473%_ _%stx141474%_) + (let* ((_%g141476141497%_ + (lambda (_%g141477141494%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141371141388%_)))) - (_%g141369141448%_ - (lambda (_%g141371141394%_) + _%g141477141494%_)))) + (_%g141475141554%_ + (lambda (_%g141477141500%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141371141394%_)) - (let ((_%e141375141396%_ + (gx#stx-pair? _%g141477141500%_)) + (let ((_%e141481141502%_ (let () (declare (not safe)) - (gx#stx-e _%g141371141394%_)))) - (let ((_%hd141376141399%_ + (gx#stx-e _%g141477141500%_)))) + (let ((_%hd141482141505%_ (let () (declare (not safe)) - (##car _%e141375141396%_))) - (_%tl141377141401%_ + (##car _%e141481141502%_))) + (_%tl141483141507%_ (let () (declare (not safe)) - (##cdr _%e141375141396%_)))) + (##cdr _%e141481141502%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141377141401%_)) - (let ((_%e141378141404%_ + (gx#stx-pair? _%tl141483141507%_)) + (let ((_%e141484141510%_ (let () (declare (not safe)) - (gx#stx-e _%tl141377141401%_)))) - (let ((_%hd141379141407%_ + (gx#stx-e _%tl141483141507%_)))) + (let ((_%hd141485141513%_ (let () (declare (not safe)) - (##car _%e141378141404%_))) - (_%tl141380141409%_ + (##car _%e141484141510%_))) + (_%tl141486141515%_ (let () (declare (not safe)) - (##cdr _%e141378141404%_)))) + (##cdr _%e141484141510%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141380141409%_)) - (let ((_%e141381141412%_ + (gx#stx-pair? _%tl141486141515%_)) + (let ((_%e141487141518%_ (let () (declare (not safe)) - (gx#stx-e _%tl141380141409%_)))) - (let ((_%hd141382141415%_ + (gx#stx-e _%tl141486141515%_)))) + (let ((_%hd141488141521%_ (let () (declare (not safe)) - (##car _%e141381141412%_))) - (_%tl141383141417%_ + (##car _%e141487141518%_))) + (_%tl141489141523%_ (let () (declare (not safe)) - (##cdr _%e141381141412%_)))) + (##cdr _%e141487141518%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141383141417%_)) - (let ((_%e141384141420%_ + _%tl141489141523%_)) + (let ((_%e141490141526%_ (let () (declare (not safe)) (gx#stx-e - _%tl141383141417%_)))) - (let ((_%hd141385141423%_ + _%tl141489141523%_)))) + (let ((_%hd141491141529%_ (let () (declare (not safe)) - (##car _%e141384141420%_))) - (_%tl141386141425%_ + (##car _%e141490141526%_))) + (_%tl141492141531%_ (let () (declare (not safe)) - (##cdr _%e141384141420%_)))) + (##cdr _%e141490141526%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141386141425%_)) - ((lambda (_%L141428%_ - _%L141429%_ - _%L141430%_) + _%tl141492141531%_)) + ((lambda (_%L141534%_ + _%L141535%_ + _%L141536%_) (cons '##structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141367%_ _%L141428%_)) + (gxc#compile-e__1 _%self141473%_ _%L141534%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141367%_ - _%L141429%_)) + _%self141473%_ + _%L141535%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141367%_ - _%L141430%_)) + _%self141473%_ + _%L141536%_)) (cons ''#f '())))))) - _%hd141385141423%_ - _%hd141382141415%_ - _%hd141379141407%_) - (_%g141370141391%_ _%g141371141394%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141370141391%_ - _%g141371141394%_)))) - (_%g141370141391%_ _%g141371141394%_)))) - (_%g141370141391%_ _%g141371141394%_)))) - (_%g141370141391%_ _%g141371141394%_))))) - (_%g141369141448%_ _%stx141368%_)))) + _%hd141491141529%_ + _%hd141488141521%_ + _%hd141485141513%_) + (_%g141476141497%_ _%g141477141500%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141476141497%_ + _%g141477141500%_)))) + (_%g141476141497%_ _%g141477141500%_)))) + (_%g141476141497%_ _%g141477141500%_)))) + (_%g141476141497%_ _%g141477141500%_))))) + (_%g141475141554%_ _%stx141474%_)))) (define gxc#generate-runtime-struct-setq% - (lambda (_%self141267%_ _%stx141268%_) - (let* ((_%g141270141295%_ - (lambda (_%g141271141292%_) + (lambda (_%self141373%_ _%stx141374%_) + (let* ((_%g141376141401%_ + (lambda (_%g141377141398%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141271141292%_)))) - (_%g141269141364%_ - (lambda (_%g141271141298%_) + _%g141377141398%_)))) + (_%g141375141470%_ + (lambda (_%g141377141404%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141271141298%_)) - (let ((_%e141276141300%_ + (gx#stx-pair? _%g141377141404%_)) + (let ((_%e141382141406%_ (let () (declare (not safe)) - (gx#stx-e _%g141271141298%_)))) - (let ((_%hd141277141303%_ + (gx#stx-e _%g141377141404%_)))) + (let ((_%hd141383141409%_ (let () (declare (not safe)) - (##car _%e141276141300%_))) - (_%tl141278141305%_ + (##car _%e141382141406%_))) + (_%tl141384141411%_ (let () (declare (not safe)) - (##cdr _%e141276141300%_)))) + (##cdr _%e141382141406%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141278141305%_)) - (let ((_%e141279141308%_ + (gx#stx-pair? _%tl141384141411%_)) + (let ((_%e141385141414%_ (let () (declare (not safe)) - (gx#stx-e _%tl141278141305%_)))) - (let ((_%hd141280141311%_ + (gx#stx-e _%tl141384141411%_)))) + (let ((_%hd141386141417%_ (let () (declare (not safe)) - (##car _%e141279141308%_))) - (_%tl141281141313%_ + (##car _%e141385141414%_))) + (_%tl141387141419%_ (let () (declare (not safe)) - (##cdr _%e141279141308%_)))) + (##cdr _%e141385141414%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141281141313%_)) - (let ((_%e141282141316%_ + (gx#stx-pair? _%tl141387141419%_)) + (let ((_%e141388141422%_ (let () (declare (not safe)) - (gx#stx-e _%tl141281141313%_)))) - (let ((_%hd141283141319%_ + (gx#stx-e _%tl141387141419%_)))) + (let ((_%hd141389141425%_ (let () (declare (not safe)) - (##car _%e141282141316%_))) - (_%tl141284141321%_ + (##car _%e141388141422%_))) + (_%tl141390141427%_ (let () (declare (not safe)) - (##cdr _%e141282141316%_)))) + (##cdr _%e141388141422%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141284141321%_)) - (let ((_%e141285141324%_ + _%tl141390141427%_)) + (let ((_%e141391141430%_ (let () (declare (not safe)) (gx#stx-e - _%tl141284141321%_)))) - (let ((_%hd141286141327%_ + _%tl141390141427%_)))) + (let ((_%hd141392141433%_ (let () (declare (not safe)) - (##car _%e141285141324%_))) - (_%tl141287141329%_ + (##car _%e141391141430%_))) + (_%tl141393141435%_ (let () (declare (not safe)) - (##cdr _%e141285141324%_)))) + (##cdr _%e141391141430%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141287141329%_)) - (let ((_%e141288141332%_ + _%tl141393141435%_)) + (let ((_%e141394141438%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141287141329%_)))) - (let ((_%hd141289141335%_ - (let () (declare (not safe)) (##car _%e141288141332%_))) - (_%tl141290141337%_ + (gx#stx-e _%tl141393141435%_)))) + (let ((_%hd141395141441%_ + (let () (declare (not safe)) (##car _%e141394141438%_))) + (_%tl141396141443%_ (let () (declare (not safe)) - (##cdr _%e141288141332%_)))) + (##cdr _%e141394141438%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141290141337%_)) - ((lambda (_%L141340%_ - _%L141341%_ - _%L141342%_ - _%L141343%_) + (gx#stx-null? _%tl141396141443%_)) + ((lambda (_%L141446%_ + _%L141447%_ + _%L141448%_ + _%L141449%_) (cons '##structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141267%_ - _%L141341%_)) + _%self141373%_ + _%L141447%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141267%_ - _%L141340%_)) + _%self141373%_ + _%L141446%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141267%_ - _%L141342%_)) + _%self141373%_ + _%L141448%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141267%_ - _%L141343%_)) + _%self141373%_ + _%L141449%_)) (cons ''#f '()))))))) - _%hd141289141335%_ - _%hd141286141327%_ - _%hd141283141319%_ - _%hd141280141311%_) - (_%g141270141295%_ _%g141271141298%_)))) - (_%g141270141295%_ _%g141271141298%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141270141295%_ - _%g141271141298%_)))) - (_%g141270141295%_ _%g141271141298%_)))) - (_%g141270141295%_ _%g141271141298%_)))) - (_%g141270141295%_ _%g141271141298%_))))) - (_%g141269141364%_ _%stx141268%_)))) + _%hd141395141441%_ + _%hd141392141433%_ + _%hd141389141425%_ + _%hd141386141417%_) + (_%g141376141401%_ _%g141377141404%_)))) + (_%g141376141401%_ _%g141377141404%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141376141401%_ + _%g141377141404%_)))) + (_%g141376141401%_ _%g141377141404%_)))) + (_%g141376141401%_ _%g141377141404%_)))) + (_%g141376141401%_ _%g141377141404%_))))) + (_%g141375141470%_ _%stx141374%_)))) (define gxc#generate-runtime-struct-direct-ref% - (lambda (_%self141183%_ _%stx141184%_) - (let* ((_%g141186141207%_ - (lambda (_%g141187141204%_) + (lambda (_%self141289%_ _%stx141290%_) + (let* ((_%g141292141313%_ + (lambda (_%g141293141310%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141187141204%_)))) - (_%g141185141264%_ - (lambda (_%g141187141210%_) + _%g141293141310%_)))) + (_%g141291141370%_ + (lambda (_%g141293141316%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141187141210%_)) - (let ((_%e141191141212%_ + (gx#stx-pair? _%g141293141316%_)) + (let ((_%e141297141318%_ (let () (declare (not safe)) - (gx#stx-e _%g141187141210%_)))) - (let ((_%hd141192141215%_ + (gx#stx-e _%g141293141316%_)))) + (let ((_%hd141298141321%_ (let () (declare (not safe)) - (##car _%e141191141212%_))) - (_%tl141193141217%_ + (##car _%e141297141318%_))) + (_%tl141299141323%_ (let () (declare (not safe)) - (##cdr _%e141191141212%_)))) + (##cdr _%e141297141318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141193141217%_)) - (let ((_%e141194141220%_ + (gx#stx-pair? _%tl141299141323%_)) + (let ((_%e141300141326%_ (let () (declare (not safe)) - (gx#stx-e _%tl141193141217%_)))) - (let ((_%hd141195141223%_ + (gx#stx-e _%tl141299141323%_)))) + (let ((_%hd141301141329%_ (let () (declare (not safe)) - (##car _%e141194141220%_))) - (_%tl141196141225%_ + (##car _%e141300141326%_))) + (_%tl141302141331%_ (let () (declare (not safe)) - (##cdr _%e141194141220%_)))) + (##cdr _%e141300141326%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141196141225%_)) - (let ((_%e141197141228%_ + (gx#stx-pair? _%tl141302141331%_)) + (let ((_%e141303141334%_ (let () (declare (not safe)) - (gx#stx-e _%tl141196141225%_)))) - (let ((_%hd141198141231%_ + (gx#stx-e _%tl141302141331%_)))) + (let ((_%hd141304141337%_ (let () (declare (not safe)) - (##car _%e141197141228%_))) - (_%tl141199141233%_ + (##car _%e141303141334%_))) + (_%tl141305141339%_ (let () (declare (not safe)) - (##cdr _%e141197141228%_)))) + (##cdr _%e141303141334%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141199141233%_)) - (let ((_%e141200141236%_ + _%tl141305141339%_)) + (let ((_%e141306141342%_ (let () (declare (not safe)) (gx#stx-e - _%tl141199141233%_)))) - (let ((_%hd141201141239%_ + _%tl141305141339%_)))) + (let ((_%hd141307141345%_ (let () (declare (not safe)) - (##car _%e141200141236%_))) - (_%tl141202141241%_ + (##car _%e141306141342%_))) + (_%tl141308141347%_ (let () (declare (not safe)) - (##cdr _%e141200141236%_)))) + (##cdr _%e141306141342%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl141202141241%_)) - ((lambda (_%L141244%_ - _%L141245%_ - _%L141246%_) + _%tl141308141347%_)) + ((lambda (_%L141350%_ + _%L141351%_ + _%L141352%_) (cons '##direct-structure-ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self141183%_ _%L141244%_)) + (gxc#compile-e__1 _%self141289%_ _%L141350%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141183%_ - _%L141245%_)) + _%self141289%_ + _%L141351%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141183%_ - _%L141246%_)) + _%self141289%_ + _%L141352%_)) (cons ''#f '())))))) - _%hd141201141239%_ - _%hd141198141231%_ - _%hd141195141223%_) - (_%g141186141207%_ _%g141187141210%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141186141207%_ - _%g141187141210%_)))) - (_%g141186141207%_ _%g141187141210%_)))) - (_%g141186141207%_ _%g141187141210%_)))) - (_%g141186141207%_ _%g141187141210%_))))) - (_%g141185141264%_ _%stx141184%_)))) + _%hd141307141345%_ + _%hd141304141337%_ + _%hd141301141329%_) + (_%g141292141313%_ _%g141293141316%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141292141313%_ + _%g141293141316%_)))) + (_%g141292141313%_ _%g141293141316%_)))) + (_%g141292141313%_ _%g141293141316%_)))) + (_%g141292141313%_ _%g141293141316%_))))) + (_%g141291141370%_ _%stx141290%_)))) (define gxc#generate-runtime-struct-direct-setq% - (lambda (_%self141083%_ _%stx141084%_) - (let* ((_%g141086141111%_ - (lambda (_%g141087141108%_) + (lambda (_%self141189%_ _%stx141190%_) + (let* ((_%g141192141217%_ + (lambda (_%g141193141214%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g141087141108%_)))) - (_%g141085141180%_ - (lambda (_%g141087141114%_) + _%g141193141214%_)))) + (_%g141191141286%_ + (lambda (_%g141193141220%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g141087141114%_)) - (let ((_%e141092141116%_ + (gx#stx-pair? _%g141193141220%_)) + (let ((_%e141198141222%_ (let () (declare (not safe)) - (gx#stx-e _%g141087141114%_)))) - (let ((_%hd141093141119%_ + (gx#stx-e _%g141193141220%_)))) + (let ((_%hd141199141225%_ (let () (declare (not safe)) - (##car _%e141092141116%_))) - (_%tl141094141121%_ + (##car _%e141198141222%_))) + (_%tl141200141227%_ (let () (declare (not safe)) - (##cdr _%e141092141116%_)))) + (##cdr _%e141198141222%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141094141121%_)) - (let ((_%e141095141124%_ + (gx#stx-pair? _%tl141200141227%_)) + (let ((_%e141201141230%_ (let () (declare (not safe)) - (gx#stx-e _%tl141094141121%_)))) - (let ((_%hd141096141127%_ + (gx#stx-e _%tl141200141227%_)))) + (let ((_%hd141202141233%_ (let () (declare (not safe)) - (##car _%e141095141124%_))) - (_%tl141097141129%_ + (##car _%e141201141230%_))) + (_%tl141203141235%_ (let () (declare (not safe)) - (##cdr _%e141095141124%_)))) + (##cdr _%e141201141230%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl141097141129%_)) - (let ((_%e141098141132%_ + (gx#stx-pair? _%tl141203141235%_)) + (let ((_%e141204141238%_ (let () (declare (not safe)) - (gx#stx-e _%tl141097141129%_)))) - (let ((_%hd141099141135%_ + (gx#stx-e _%tl141203141235%_)))) + (let ((_%hd141205141241%_ (let () (declare (not safe)) - (##car _%e141098141132%_))) - (_%tl141100141137%_ + (##car _%e141204141238%_))) + (_%tl141206141243%_ (let () (declare (not safe)) - (##cdr _%e141098141132%_)))) + (##cdr _%e141204141238%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141100141137%_)) - (let ((_%e141101141140%_ + _%tl141206141243%_)) + (let ((_%e141207141246%_ (let () (declare (not safe)) (gx#stx-e - _%tl141100141137%_)))) - (let ((_%hd141102141143%_ + _%tl141206141243%_)))) + (let ((_%hd141208141249%_ (let () (declare (not safe)) - (##car _%e141101141140%_))) - (_%tl141103141145%_ + (##car _%e141207141246%_))) + (_%tl141209141251%_ (let () (declare (not safe)) - (##cdr _%e141101141140%_)))) + (##cdr _%e141207141246%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl141103141145%_)) - (let ((_%e141104141148%_ + _%tl141209141251%_)) + (let ((_%e141210141254%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl141103141145%_)))) - (let ((_%hd141105141151%_ - (let () (declare (not safe)) (##car _%e141104141148%_))) - (_%tl141106141153%_ + (gx#stx-e _%tl141209141251%_)))) + (let ((_%hd141211141257%_ + (let () (declare (not safe)) (##car _%e141210141254%_))) + (_%tl141212141259%_ (let () (declare (not safe)) - (##cdr _%e141104141148%_)))) + (##cdr _%e141210141254%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141106141153%_)) - ((lambda (_%L141156%_ - _%L141157%_ - _%L141158%_ - _%L141159%_) + (gx#stx-null? _%tl141212141259%_)) + ((lambda (_%L141262%_ + _%L141263%_ + _%L141264%_ + _%L141265%_) (cons '##direct-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141083%_ - _%L141157%_)) + _%self141189%_ + _%L141263%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141083%_ - _%L141156%_)) + _%self141189%_ + _%L141262%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141083%_ - _%L141158%_)) + _%self141189%_ + _%L141264%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self141083%_ - _%L141159%_)) + _%self141189%_ + _%L141265%_)) (cons ''#f '()))))))) - _%hd141105141151%_ - _%hd141102141143%_ - _%hd141099141135%_ - _%hd141096141127%_) - (_%g141086141111%_ _%g141087141114%_)))) - (_%g141086141111%_ _%g141087141114%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g141086141111%_ - _%g141087141114%_)))) - (_%g141086141111%_ _%g141087141114%_)))) - (_%g141086141111%_ _%g141087141114%_)))) - (_%g141086141111%_ _%g141087141114%_))))) - (_%g141085141180%_ _%stx141084%_)))) + _%hd141211141257%_ + _%hd141208141249%_ + _%hd141205141241%_ + _%hd141202141233%_) + (_%g141192141217%_ _%g141193141220%_)))) + (_%g141192141217%_ _%g141193141220%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g141192141217%_ + _%g141193141220%_)))) + (_%g141192141217%_ _%g141193141220%_)))) + (_%g141192141217%_ _%g141193141220%_)))) + (_%g141192141217%_ _%g141193141220%_))))) + (_%g141191141286%_ _%stx141190%_)))) (define gxc#generate-runtime-struct-unchecked-ref% - (lambda (_%self140878%_ _%stx140879%_) - (let* ((_%g140881140902%_ - (lambda (_%g140882140899%_) + (lambda (_%self140984%_ _%stx140985%_) + (let* ((_%g140987141008%_ + (lambda (_%g140988141005%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140882140899%_)))) - (_%g140880141080%_ - (lambda (_%g140882140905%_) + _%g140988141005%_)))) + (_%g140986141186%_ + (lambda (_%g140988141011%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140882140905%_)) - (let ((_%e140886140907%_ + (gx#stx-pair? _%g140988141011%_)) + (let ((_%e140992141013%_ (let () (declare (not safe)) - (gx#stx-e _%g140882140905%_)))) - (let ((_%hd140887140910%_ + (gx#stx-e _%g140988141011%_)))) + (let ((_%hd140993141016%_ (let () (declare (not safe)) - (##car _%e140886140907%_))) - (_%tl140888140912%_ + (##car _%e140992141013%_))) + (_%tl140994141018%_ (let () (declare (not safe)) - (##cdr _%e140886140907%_)))) + (##cdr _%e140992141013%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140888140912%_)) - (let ((_%e140889140915%_ + (gx#stx-pair? _%tl140994141018%_)) + (let ((_%e140995141021%_ (let () (declare (not safe)) - (gx#stx-e _%tl140888140912%_)))) - (let ((_%hd140890140918%_ + (gx#stx-e _%tl140994141018%_)))) + (let ((_%hd140996141024%_ (let () (declare (not safe)) - (##car _%e140889140915%_))) - (_%tl140891140920%_ + (##car _%e140995141021%_))) + (_%tl140997141026%_ (let () (declare (not safe)) - (##cdr _%e140889140915%_)))) + (##cdr _%e140995141021%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140891140920%_)) - (let ((_%e140892140923%_ + (gx#stx-pair? _%tl140997141026%_)) + (let ((_%e140998141029%_ (let () (declare (not safe)) - (gx#stx-e _%tl140891140920%_)))) - (let ((_%hd140893140926%_ + (gx#stx-e _%tl140997141026%_)))) + (let ((_%hd140999141032%_ (let () (declare (not safe)) - (##car _%e140892140923%_))) - (_%tl140894140928%_ + (##car _%e140998141029%_))) + (_%tl141000141034%_ (let () (declare (not safe)) - (##cdr _%e140892140923%_)))) + (##cdr _%e140998141029%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140894140928%_)) - (let ((_%e140895140931%_ + _%tl141000141034%_)) + (let ((_%e141001141037%_ (let () (declare (not safe)) (gx#stx-e - _%tl140894140928%_)))) - (let ((_%hd140896140934%_ + _%tl141000141034%_)))) + (let ((_%hd141002141040%_ (let () (declare (not safe)) - (##car _%e140895140931%_))) - (_%tl140897140936%_ + (##car _%e141001141037%_))) + (_%tl141003141042%_ (let () (declare (not safe)) - (##cdr _%e140895140931%_)))) + (##cdr _%e141001141037%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140897140936%_)) - ((lambda (_%L140939%_ - _%L140940%_ - _%L140941%_) + _%tl141003141042%_)) + ((lambda (_%L141045%_ + _%L141046%_ + _%L141047%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140878%_ - _%L140939%_)) + _%self140984%_ + _%L141045%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140878%_ - _%L140940%_)) + _%self140984%_ + _%L141046%_)) (cons ''#f (cons ''#f '()))))) - (let _%lp140959%_ ((_%rest140962%_ - (cons _%L140940%_ - (cons _%L140939%_ '()))) - (_%bind140964%_ '()) - (_%args140965%_ '())) - (let* ((_%rest140966140974%_ _%rest140962%_) - (_%else140968140982%_ + (let _%lp141065%_ ((_%rest141068%_ + (cons _%L141046%_ + (cons _%L141045%_ '()))) + (_%bind141070%_ '()) + (_%args141071%_ '())) + (let* ((_%rest141072141080%_ _%rest141068%_) + (_%else141074141088%_ (lambda () (cons 'let - (cons _%bind140964%_ + (cons _%bind141070%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-ref - (let ((__tmp149187 + (let ((__tmp149293 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149187 _%args140965%_))) + (__foldr1 cons __tmp149293 _%args141071%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140970141068%_ - (lambda (_%rest140985%_ _%e140986%_) - (let* ((_%__stx148824148825%_ _%e140986%_) - (_%g140991141009%_ + (_%K141076141174%_ + (lambda (_%rest141091%_ _%e141092%_) + (let* ((_%__stx148930148931%_ _%e141092%_) + (_%g141097141115%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148824148825%_))))) - (let ((_%__kont148826148827%_ + _%__stx148930148931%_))))) + (let ((_%__kont148932148933%_ (lambda () - (_%lp140959%_ - _%rest140985%_ - _%bind140964%_ + (_%lp141065%_ + _%rest141091%_ + _%bind141070%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140986%_)) - _%args140965%_)))) - (_%__kont148828148829%_ + _%e141092%_)) + _%args141071%_)))) + (_%__kont148934148935%_ (lambda () - (_%lp140959%_ - _%rest140985%_ - _%bind140964%_ + (_%lp141065%_ + _%rest141091%_ + _%bind141070%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140986%_)) - _%args140965%_)))) - (_%__kont148830148831%_ + _%e141092%_)) + _%args141071%_)))) + (_%__kont148936148937%_ (lambda () - (let ((_%tmp141016%_ - (let ((__tmp149188 + (let ((_%tmp141122%_ + (let ((__tmp149294 (let () (declare (not safe)) @@ -11572,1578 +11572,1578 @@ '__tmp)))) (declare (not safe)) (make-symbol__0 - __tmp149188)))) - (_%lp140959%_ - _%rest140985%_ - (cons (cons _%tmp141016%_ + __tmp149294)))) + (_%lp141065%_ + _%rest141091%_ + (cons (cons _%tmp141122%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__0 _%e140986%_)) + (gxc#compile-e__0 _%e141092%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind140964%_) - (cons _%tmp141016%_ - _%args140965%_)))))) + _%bind141070%_) + (cons _%tmp141122%_ + _%args141071%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148824148825%_)) - (let ((_%e140993141047%_ + _%__stx148930148931%_)) + (let ((_%e141099141153%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148824148825%_)))) - (let ((_%tl140995141052%_ + _%__stx148930148931%_)))) + (let ((_%tl141101141158%_ (let () (declare (not safe)) - (##cdr _%e140993141047%_))) - (_%hd140994141050%_ + (##cdr _%e141099141153%_))) + (_%hd141100141156%_ (let () (declare (not safe)) - (##car _%e140993141047%_)))) + (##car _%e141099141153%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140994141050%_)) + _%hd141100141156%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd140994141050%_)) + _%hd141100141156%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140995141052%_)) - (let ((_%e140996141055%_ + _%tl141101141158%_)) + (let ((_%e141102141161%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl140995141052%_)))) - (let ((_%tl140998141060%_ + (gx#stx-e _%tl141101141158%_)))) + (let ((_%tl141104141166%_ (let () (declare (not safe)) - (##cdr _%e140996141055%_))) - (_%hd140997141058%_ + (##cdr _%e141102141161%_))) + (_%hd141103141164%_ (let () (declare (not safe)) - (##car _%e140996141055%_)))) + (##car _%e141102141161%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140998141060%_)) - (_%__kont148826148827%_) - (_%__kont148830148831%_)))) - (_%__kont148830148831%_)) + (gx#stx-null? _%tl141104141166%_)) + (_%__kont148932148933%_) + (_%__kont148936148937%_)))) + (_%__kont148936148937%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd140994141050%_)) + _%hd141100141156%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl140995141052%_)) - (let ((_%e141002141032%_ + (gx#stx-pair? _%tl141101141158%_)) + (let ((_%e141108141138%_ (let () (declare (not safe)) - (gx#stx-e _%tl140995141052%_)))) - (let ((_%tl141004141037%_ + (gx#stx-e _%tl141101141158%_)))) + (let ((_%tl141110141143%_ (let () (declare (not safe)) - (##cdr _%e141002141032%_))) - (_%hd141003141035%_ + (##cdr _%e141108141138%_))) + (_%hd141109141141%_ (let () (declare (not safe)) - (##car _%e141002141032%_)))) + (##car _%e141108141138%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl141004141037%_)) - (_%__kont148828148829%_) - (_%__kont148830148831%_)))) - (_%__kont148830148831%_)) - (_%__kont148830148831%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148830148831%_)))) - (_%__kont148830148831%_))))))) - (if (pair? _%rest140966140974%_) - (let ((_%hd140971141071%_ + (gx#stx-null? _%tl141110141143%_)) + (_%__kont148934148935%_) + (_%__kont148936148937%_)))) + (_%__kont148936148937%_)) + (_%__kont148936148937%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148936148937%_)))) + (_%__kont148936148937%_))))))) + (if (pair? _%rest141072141080%_) + (let ((_%hd141077141177%_ (let () (declare (not safe)) - (##car _%rest140966140974%_))) - (_%tl140972141073%_ + (##car _%rest141072141080%_))) + (_%tl141078141179%_ (let () (declare (not safe)) - (##cdr _%rest140966140974%_)))) - (let* ((_%e141076%_ _%hd140971141071%_) - (_%rest141078%_ _%tl140972141073%_)) - (_%K140970141068%_ - _%rest141078%_ - _%e141076%_))) - (_%else140968140982%_)))))) - _%hd140896140934%_ - _%hd140893140926%_ - _%hd140890140918%_) - (_%g140881140902%_ _%g140882140905%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140881140902%_ - _%g140882140905%_)))) - (_%g140881140902%_ _%g140882140905%_)))) - (_%g140881140902%_ _%g140882140905%_)))) - (_%g140881140902%_ _%g140882140905%_))))) - (_%g140880141080%_ _%stx140879%_)))) + (##cdr _%rest141072141080%_)))) + (let* ((_%e141182%_ _%hd141077141177%_) + (_%rest141184%_ _%tl141078141179%_)) + (_%K141076141174%_ + _%rest141184%_ + _%e141182%_))) + (_%else141074141088%_)))))) + _%hd141002141040%_ + _%hd140999141032%_ + _%hd140996141024%_) + (_%g140987141008%_ _%g140988141011%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140987141008%_ + _%g140988141011%_)))) + (_%g140987141008%_ _%g140988141011%_)))) + (_%g140987141008%_ _%g140988141011%_)))) + (_%g140987141008%_ _%g140988141011%_))))) + (_%g140986141186%_ _%stx140985%_)))) (define gxc#generate-runtime-struct-unchecked-setq% - (lambda (_%self140657%_ _%stx140658%_) - (let* ((_%g140660140685%_ - (lambda (_%g140661140682%_) + (lambda (_%self140763%_ _%stx140764%_) + (let* ((_%g140766140791%_ + (lambda (_%g140767140788%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140661140682%_)))) - (_%g140659140875%_ - (lambda (_%g140661140688%_) + _%g140767140788%_)))) + (_%g140765140981%_ + (lambda (_%g140767140794%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140661140688%_)) - (let ((_%e140666140690%_ + (gx#stx-pair? _%g140767140794%_)) + (let ((_%e140772140796%_ (let () (declare (not safe)) - (gx#stx-e _%g140661140688%_)))) - (let ((_%hd140667140693%_ + (gx#stx-e _%g140767140794%_)))) + (let ((_%hd140773140799%_ (let () (declare (not safe)) - (##car _%e140666140690%_))) - (_%tl140668140695%_ + (##car _%e140772140796%_))) + (_%tl140774140801%_ (let () (declare (not safe)) - (##cdr _%e140666140690%_)))) + (##cdr _%e140772140796%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140668140695%_)) - (let ((_%e140669140698%_ + (gx#stx-pair? _%tl140774140801%_)) + (let ((_%e140775140804%_ (let () (declare (not safe)) - (gx#stx-e _%tl140668140695%_)))) - (let ((_%hd140670140701%_ + (gx#stx-e _%tl140774140801%_)))) + (let ((_%hd140776140807%_ (let () (declare (not safe)) - (##car _%e140669140698%_))) - (_%tl140671140703%_ + (##car _%e140775140804%_))) + (_%tl140777140809%_ (let () (declare (not safe)) - (##cdr _%e140669140698%_)))) + (##cdr _%e140775140804%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140671140703%_)) - (let ((_%e140672140706%_ + (gx#stx-pair? _%tl140777140809%_)) + (let ((_%e140778140812%_ (let () (declare (not safe)) - (gx#stx-e _%tl140671140703%_)))) - (let ((_%hd140673140709%_ + (gx#stx-e _%tl140777140809%_)))) + (let ((_%hd140779140815%_ (let () (declare (not safe)) - (##car _%e140672140706%_))) - (_%tl140674140711%_ + (##car _%e140778140812%_))) + (_%tl140780140817%_ (let () (declare (not safe)) - (##cdr _%e140672140706%_)))) + (##cdr _%e140778140812%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140674140711%_)) - (let ((_%e140675140714%_ + _%tl140780140817%_)) + (let ((_%e140781140820%_ (let () (declare (not safe)) (gx#stx-e - _%tl140674140711%_)))) - (let ((_%hd140676140717%_ + _%tl140780140817%_)))) + (let ((_%hd140782140823%_ (let () (declare (not safe)) - (##car _%e140675140714%_))) - (_%tl140677140719%_ + (##car _%e140781140820%_))) + (_%tl140783140825%_ (let () (declare (not safe)) - (##cdr _%e140675140714%_)))) + (##cdr _%e140781140820%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl140677140719%_)) - (let ((_%e140678140722%_ + _%tl140783140825%_)) + (let ((_%e140784140828%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl140677140719%_)))) - (let ((_%hd140679140725%_ - (let () (declare (not safe)) (##car _%e140678140722%_))) - (_%tl140680140727%_ + (gx#stx-e _%tl140783140825%_)))) + (let ((_%hd140785140831%_ + (let () (declare (not safe)) (##car _%e140784140828%_))) + (_%tl140786140833%_ (let () (declare (not safe)) - (##cdr _%e140678140722%_)))) + (##cdr _%e140784140828%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140680140727%_)) - ((lambda (_%L140730%_ - _%L140731%_ - _%L140732%_ - _%L140733%_) + (gx#stx-null? _%tl140786140833%_)) + ((lambda (_%L140836%_ + _%L140837%_ + _%L140838%_ + _%L140839%_) (if (gxc#current-compile-decls-unsafe?) (cons '##unchecked-structure-set! (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140657%_ - _%L140731%_)) + _%self140763%_ + _%L140837%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140657%_ - _%L140730%_)) + _%self140763%_ + _%L140836%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self140657%_ - _%L140732%_)) + _%self140763%_ + _%L140838%_)) (cons ''#f (cons ''#f '())))))) - (let _%lp140754%_ ((_%rest140757%_ - (cons _%L140732%_ - (cons _%L140730%_ - (cons _%L140731%_ + (let _%lp140860%_ ((_%rest140863%_ + (cons _%L140838%_ + (cons _%L140836%_ + (cons _%L140837%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%bind140759%_ '()) - (_%args140760%_ '())) - (let* ((_%rest140761140769%_ _%rest140757%_) - (_%else140763140777%_ + (_%bind140865%_ '()) + (_%args140866%_ '())) + (let* ((_%rest140867140875%_ _%rest140863%_) + (_%else140869140883%_ (lambda () (cons 'let - (cons _%bind140759%_ + (cons _%bind140865%_ (cons '(declare (not safe)) (cons (cons '##unchecked-structure-set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp149189 (cons ''#f (cons ''#f '())))) + (let ((__tmp149295 (cons ''#f (cons ''#f '())))) (declare (not safe)) - (__foldr1 cons __tmp149189 _%args140760%_))) + (__foldr1 cons __tmp149295 _%args140866%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140765140863%_ - (lambda (_%rest140780%_ _%e140781%_) - (let* ((_%__stx148870148871%_ - _%e140781%_) - (_%g140786140804%_ + (_%K140871140969%_ + (lambda (_%rest140886%_ _%e140887%_) + (let* ((_%__stx148976148977%_ + _%e140887%_) + (_%g140892140910%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148870148871%_))))) - (let ((_%__kont148872148873%_ + _%__stx148976148977%_))))) + (let ((_%__kont148978148979%_ (lambda () - (_%lp140754%_ - _%rest140780%_ - _%bind140759%_ + (_%lp140860%_ + _%rest140886%_ + _%bind140865%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140781%_)) - _%args140760%_)))) - (_%__kont148874148875%_ + _%e140887%_)) + _%args140866%_)))) + (_%__kont148980148981%_ (lambda () - (_%lp140754%_ - _%rest140780%_ - _%bind140759%_ + (_%lp140860%_ + _%rest140886%_ + _%bind140865%_ (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%e140781%_)) - _%args140760%_)))) - (_%__kont148876148877%_ + _%e140887%_)) + _%args140866%_)))) + (_%__kont148982148983%_ (lambda () - (let ((_%tmp140811%_ - (let ((__tmp149190 + (let ((_%tmp140917%_ + (let ((__tmp149296 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__tmp)))) (declare (not safe)) - (make-symbol__0 __tmp149190)))) - (_%lp140754%_ - _%rest140780%_ - (cons (cons _%tmp140811%_ + (make-symbol__0 __tmp149296)))) + (_%lp140860%_ + _%rest140886%_ + (cons (cons _%tmp140917%_ (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%e140781%_)) + (gxc#compile-e__0 _%e140887%_)) '())) - _%bind140759%_) - (cons _%tmp140811%_ _%args140760%_)))))) + _%bind140865%_) + (cons _%tmp140917%_ _%args140866%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx148870148871%_)) - (let ((_%e140788140842%_ + _%__stx148976148977%_)) + (let ((_%e140894140948%_ (let () (declare (not safe)) (gx#stx-e - _%__stx148870148871%_)))) - (let ((_%tl140790140847%_ + _%__stx148976148977%_)))) + (let ((_%tl140896140953%_ (let () (declare (not safe)) - (##cdr _%e140788140842%_))) - (_%hd140789140845%_ + (##cdr _%e140894140948%_))) + (_%hd140895140951%_ (let () (declare (not safe)) - (##car _%e140788140842%_)))) + (##car _%e140894140948%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140789140845%_)) + _%hd140895140951%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd140789140845%_)) + (gx#stx-eq? '%#ref _%hd140895140951%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140790140847%_)) - (let ((_%e140791140850%_ + (gx#stx-pair? _%tl140896140953%_)) + (let ((_%e140897140956%_ (let () (declare (not safe)) - (gx#stx-e _%tl140790140847%_)))) - (let ((_%tl140793140855%_ + (gx#stx-e _%tl140896140953%_)))) + (let ((_%tl140899140961%_ (let () (declare (not safe)) - (##cdr _%e140791140850%_))) - (_%hd140792140853%_ + (##cdr _%e140897140956%_))) + (_%hd140898140959%_ (let () (declare (not safe)) - (##car _%e140791140850%_)))) + (##car _%e140897140956%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140793140855%_)) - (_%__kont148872148873%_) - (_%__kont148876148877%_)))) - (_%__kont148876148877%_)) + (gx#stx-null? _%tl140899140961%_)) + (_%__kont148978148979%_) + (_%__kont148982148983%_)))) + (_%__kont148982148983%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd140789140845%_)) + (gx#stx-eq? '%#quote _%hd140895140951%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140790140847%_)) - (let ((_%e140797140827%_ + (gx#stx-pair? _%tl140896140953%_)) + (let ((_%e140903140933%_ (let () (declare (not safe)) - (gx#stx-e _%tl140790140847%_)))) - (let ((_%tl140799140832%_ + (gx#stx-e _%tl140896140953%_)))) + (let ((_%tl140905140938%_ (let () (declare (not safe)) - (##cdr _%e140797140827%_))) - (_%hd140798140830%_ + (##cdr _%e140903140933%_))) + (_%hd140904140936%_ (let () (declare (not safe)) - (##car _%e140797140827%_)))) + (##car _%e140903140933%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140799140832%_)) - (_%__kont148874148875%_) - (_%__kont148876148877%_)))) - (_%__kont148876148877%_)) - (_%__kont148876148877%_))) - (_%__kont148876148877%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148876148877%_))))))) - (if (pair? _%rest140761140769%_) - (let ((_%hd140766140866%_ + (gx#stx-null? _%tl140905140938%_)) + (_%__kont148980148981%_) + (_%__kont148982148983%_)))) + (_%__kont148982148983%_)) + (_%__kont148982148983%_))) + (_%__kont148982148983%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont148982148983%_))))))) + (if (pair? _%rest140867140875%_) + (let ((_%hd140872140972%_ (let () (declare (not safe)) - (##car _%rest140761140769%_))) - (_%tl140767140868%_ + (##car _%rest140867140875%_))) + (_%tl140873140974%_ (let () (declare (not safe)) - (##cdr _%rest140761140769%_)))) - (let* ((_%e140871%_ _%hd140766140866%_) - (_%rest140873%_ - _%tl140767140868%_)) - (_%K140765140863%_ - _%rest140873%_ - _%e140871%_))) - (_%else140763140777%_)))))) - _%hd140679140725%_ - _%hd140676140717%_ - _%hd140673140709%_ - _%hd140670140701%_) - (_%g140660140685%_ _%g140661140688%_)))) - (_%g140660140685%_ _%g140661140688%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140660140685%_ - _%g140661140688%_)))) - (_%g140660140685%_ _%g140661140688%_)))) - (_%g140660140685%_ _%g140661140688%_)))) - (_%g140660140685%_ _%g140661140688%_))))) - (_%g140659140875%_ _%stx140658%_)))) + (##cdr _%rest140867140875%_)))) + (let* ((_%e140977%_ _%hd140872140972%_) + (_%rest140979%_ + _%tl140873140974%_)) + (_%K140871140969%_ + _%rest140979%_ + _%e140977%_))) + (_%else140869140883%_)))))) + _%hd140785140831%_ + _%hd140782140823%_ + _%hd140779140815%_ + _%hd140776140807%_) + (_%g140766140791%_ _%g140767140794%_)))) + (_%g140766140791%_ _%g140767140794%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140766140791%_ + _%g140767140794%_)))) + (_%g140766140791%_ _%g140767140794%_)))) + (_%g140766140791%_ _%g140767140794%_)))) + (_%g140766140791%_ _%g140767140794%_))))) + (_%g140765140981%_ _%stx140764%_)))) (define gxc#generate-runtime-loader-import% - (lambda (_%self140496%_ _%stx140497%_) - (letrec ((_%import-set-template140499%_ - (lambda (_%in140602%_ _%phi140603%_) - (let ((_%iphi140605%_ - (fx+ _%phi140603%_ + (lambda (_%self140602%_ _%stx140603%_) + (letrec ((_%import-set-template140605%_ + (lambda (_%in140708%_ _%phi140709%_) + (let ((_%iphi140711%_ + (fx+ _%phi140709%_ (##direct-structure-ref - _%in140602%_ + _%in140708%_ '2 gx#import-set::t '#f))) - (_%imports140606%_ + (_%imports140712%_ (##structure-ref (##direct-structure-ref - _%in140602%_ + _%in140708%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp140608%_ ((_%rest140610%_ _%imports140606%_) - (_%r140611%_ '())) - (let* ((_%rest140612140620%_ _%rest140610%_) - (_%else140614140628%_ (lambda () _%r140611%_)) - (_%K140616140645%_ - (lambda (_%rest140631%_ _%in140632%_) + (let _%lp140714%_ ((_%rest140716%_ _%imports140712%_) + (_%r140717%_ '())) + (let* ((_%rest140718140726%_ _%rest140716%_) + (_%else140720140734%_ (lambda () _%r140717%_)) + (_%K140722140751%_ + (lambda (_%rest140737%_ _%in140738%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140632%_ + _%in140738%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi140605%_)) - (_%lp140608%_ - _%rest140631%_ - (cons _%in140632%_ _%r140611%_)) - (_%lp140608%_ - _%rest140631%_ - _%r140611%_)) + (##fxzero? _%iphi140711%_)) + (_%lp140714%_ + _%rest140737%_ + (cons _%in140738%_ _%r140717%_)) + (_%lp140714%_ + _%rest140737%_ + _%r140717%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140632%_ + _%in140738%_ 'gx#module-import::t)) - (let ((_%iphi140636%_ - (fx+ _%phi140603%_ + (let ((_%iphi140742%_ + (fx+ _%phi140709%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140632%_ + _%in140738%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi140636%_)) - (_%lp140608%_ - _%rest140631%_ + (##fxzero? _%iphi140742%_)) + (_%lp140714%_ + _%rest140737%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in140632%_ + _%in140738%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r140611%_)) - (_%lp140608%_ - _%rest140631%_ - _%r140611%_))) + _%r140717%_)) + (_%lp140714%_ + _%rest140737%_ + _%r140717%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140632%_ + _%in140738%_ 'gx#import-set::t)) - (let ((_%xphi140639%_ - (fx+ _%iphi140605%_ + (let ((_%xphi140745%_ + (fx+ _%iphi140711%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140632%_ + _%in140738%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi140639%_)) - (_%lp140608%_ - _%rest140631%_ + _%xphi140745%_)) + (_%lp140714%_ + _%rest140737%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in140632%_ + _%in140738%_ '1 '#f '#f)) - _%r140611%_)) + _%r140717%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi140639%_)) - (_%lp140608%_ - _%rest140631%_ - (let ((__tmp149191 - (_%import-set-template140499%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in140632%_ - _%iphi140605%_))) + _%xphi140745%_)) + (_%lp140714%_ + _%rest140737%_ + (let ((__tmp149297 + (_%import-set-template140605%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%in140738%_ + _%iphi140711%_))) (declare (not safe)) - (__foldl1 cons _%r140611%_ __tmp149191))) - (_%lp140608%_ _%rest140631%_ _%r140611%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp140608%_ - _%rest140631%_ - _%r140611%_))))))) - (if (pair? _%rest140612140620%_) - (let ((_%hd140617140648%_ + (__foldl1 cons _%r140717%_ __tmp149297))) + (_%lp140714%_ _%rest140737%_ _%r140717%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp140714%_ + _%rest140737%_ + _%r140717%_))))))) + (if (pair? _%rest140718140726%_) + (let ((_%hd140723140754%_ (let () (declare (not safe)) - (##car _%rest140612140620%_))) - (_%tl140618140650%_ + (##car _%rest140718140726%_))) + (_%tl140724140756%_ (let () (declare (not safe)) - (##cdr _%rest140612140620%_)))) - (let* ((_%in140653%_ _%hd140617140648%_) - (_%rest140655%_ _%tl140618140650%_)) - (_%K140616140645%_ - _%rest140655%_ - _%in140653%_))) - (_%else140614140628%_)))))))) - (let* ((_%g140501140511%_ - (lambda (_%g140502140508%_) + (##cdr _%rest140718140726%_)))) + (let* ((_%in140759%_ _%hd140723140754%_) + (_%rest140761%_ _%tl140724140756%_)) + (_%K140722140751%_ + _%rest140761%_ + _%in140759%_))) + (_%else140720140734%_)))))))) + (let* ((_%g140607140617%_ + (lambda (_%g140608140614%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140502140508%_)))) - (_%g140500140599%_ - (lambda (_%g140502140514%_) + _%g140608140614%_)))) + (_%g140606140705%_ + (lambda (_%g140608140620%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140502140514%_)) - (let ((_%e140504140516%_ + (gx#stx-pair? _%g140608140620%_)) + (let ((_%e140610140622%_ (let () (declare (not safe)) - (gx#stx-e _%g140502140514%_)))) - (let ((_%hd140505140519%_ + (gx#stx-e _%g140608140620%_)))) + (let ((_%hd140611140625%_ (let () (declare (not safe)) - (##car _%e140504140516%_))) - (_%tl140506140521%_ + (##car _%e140610140622%_))) + (_%tl140612140627%_ (let () (declare (not safe)) - (##cdr _%e140504140516%_)))) - ((lambda (_%L140524%_) - (let ((_%ht140535%_ + (##cdr _%e140610140622%_)))) + ((lambda (_%L140630%_) + (let ((_%ht140641%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (let _%lp140537%_ ((_%rest140539%_ - _%L140524%_) - (_%loads140540%_ '())) - (letrec ((_%K140542%_ - (lambda (_%ctx140592%_ - _%rest140593%_) - (let ((_%id140595%_ + (let _%lp140643%_ ((_%rest140645%_ + _%L140630%_) + (_%loads140646%_ '())) + (letrec ((_%K140648%_ + (lambda (_%ctx140698%_ + _%rest140699%_) + (let ((_%id140701%_ (##structure-ref - _%ctx140592%_ + _%ctx140698%_ '1 gx#expander-context::t '#f))) (if (let () (declare (not safe)) (__hash-get - _%ht140535%_ - _%id140595%_)) - (_%lp140537%_ - _%rest140593%_ - _%loads140540%_) - (let ((_%rt140597%_ + _%ht140641%_ + _%id140701%_)) + (_%lp140643%_ + _%rest140699%_ + _%loads140646%_) + (let ((_%rt140703%_ (let () (declare (not safe)) (gxc#module-id->path-string - _%id140595%_)))) + _%id140701%_)))) (let () (declare (not safe)) (__hash-put! - _%ht140535%_ - _%id140595%_ - _%rt140597%_)) - (_%lp140537%_ - _%rest140593%_ - (cons _%rt140597%_ - _%loads140540%_)))))))) - (let* ((_%rest140543140551%_ - _%rest140539%_) - (_%else140545140563%_ + _%ht140641%_ + _%id140701%_ + _%rt140703%_)) + (_%lp140643%_ + _%rest140699%_ + (cons _%rt140703%_ + _%loads140646%_)))))))) + (let* ((_%rest140649140657%_ + _%rest140645%_) + (_%else140651140669%_ (lambda () (cons 'begin - (let ((__tmp149193 - (lambda (_%g140558140560%_) + (let ((__tmp149299 + (lambda (_%g140664140666%_) (list 'load-module ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g140558140560%_))) - (__tmp149192 (reverse _%loads140540%_))) + _%g140664140666%_))) + (__tmp149298 (reverse _%loads140646%_))) (declare (not safe)) - (##map __tmp149193 __tmp149192))))) + (##map __tmp149299 __tmp149298))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K140547140580%_ - (lambda (_%rest140566%_ - _%in140567%_) + (_%K140653140686%_ + (lambda (_%rest140672%_ + _%in140673%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in140567%_ + _%in140673%_ 'gx#module-context::t)) - (_%K140542%_ - _%in140567%_ - _%rest140566%_) + (_%K140648%_ + _%in140673%_ + _%rest140672%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140567%_ + _%in140673%_ 'gx#module-import::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%in140567%_ + _%in140673%_ '3 '#f '#f))) - (_%K140542%_ + (_%K140648%_ (##direct-structure-ref (let () (declare (not safe)) - (##unchecked-structure-ref _%in140567%_ '1 '#f '#f)) + (##unchecked-structure-ref _%in140673%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%rest140566%_) - (_%lp140537%_ _%rest140566%_ _%loads140540%_)) + _%rest140672%_) + (_%lp140643%_ _%rest140672%_ _%loads140646%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in140567%_ + _%in140673%_ 'gx#import-set::t)) - (let ((_%phi140572%_ + (let ((_%phi140678%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140567%_ + _%in140673%_ '2 '#f '#f)))) - (if (fxzero? _%phi140572%_) - (_%K140542%_ + (if (fxzero? _%phi140678%_) + (_%K140648%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in140567%_ + _%in140673%_ '1 '#f '#f)) - _%rest140566%_) - (if (fxpositive? _%phi140572%_) - (let ((_%deps140576%_ - (_%import-set-template140499%_ - _%in140567%_ + _%rest140672%_) + (if (fxpositive? _%phi140678%_) + (let ((_%deps140682%_ + (_%import-set-template140605%_ + _%in140673%_ '0))) - (_%lp140537%_ + (_%lp140643%_ (let () (declare (not safe)) (__foldl1 cons - _%rest140566%_ - _%deps140576%_)) - _%loads140540%_)) - (_%lp140537%_ _%rest140566%_ _%loads140540%_)))) + _%rest140672%_ + _%deps140682%_)) + _%loads140646%_)) + (_%lp140643%_ _%rest140672%_ _%loads140646%_)))) (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected import" - _%stx140497%_ - _%in140567%_)))))))) + _%stx140603%_ + _%in140673%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest140543140551%_) - (let ((_%hd140548140583%_ + (if (pair? _%rest140649140657%_) + (let ((_%hd140654140689%_ (let () (declare (not safe)) - (##car _%rest140543140551%_))) - (_%tl140549140585%_ + (##car _%rest140649140657%_))) + (_%tl140655140691%_ (let () (declare (not safe)) - (##cdr _%rest140543140551%_)))) - (let* ((_%in140588%_ - _%hd140548140583%_) - (_%rest140590%_ - _%tl140549140585%_)) - (_%K140547140580%_ - _%rest140590%_ - _%in140588%_))) - (_%else140545140563%_))))))) - _%tl140506140521%_))) - (_%g140501140511%_ _%g140502140514%_))))) - (_%g140500140599%_ _%stx140497%_))))) + (##cdr _%rest140649140657%_)))) + (let* ((_%in140694%_ + _%hd140654140689%_) + (_%rest140696%_ + _%tl140655140691%_)) + (_%K140653140686%_ + _%rest140696%_ + _%in140694%_))) + (_%else140651140669%_))))))) + _%tl140612140627%_))) + (_%g140607140617%_ _%g140608140620%_))))) + (_%g140606140705%_ _%stx140603%_))))) (define gxc#generate-runtime-quote-syntax% - (lambda (_%self140309%_ _%stx140310%_) - (letrec ((_%add-lift!140312%_ - (lambda (_%expr140494%_) + (lambda (_%self140415%_ _%stx140416%_) + (letrec ((_%add-lift!140418%_ + (lambda (_%expr140600%_) (set-box! (let () (declare (not safe)) (gxc#current-compile-lift)) - (cons _%expr140494%_ + (cons _%expr140600%_ (unbox (let () (declare (not safe)) (gxc#current-compile-lift))))))) - (_%generate-syntax-quote140313%_ - (lambda (_%id140491%_ _%marks140492%_) + (_%generate-syntax-quote140419%_ + (lambda (_%id140597%_ _%marks140598%_) (cons '##structure (cons 'gx#syntax-quote::t - (cons (cons 'quote (cons _%id140491%_ '())) + (cons (cons 'quote (cons _%id140597%_ '())) (cons '#f (cons '(gx#current-expander-context) - (cons _%marks140492%_ + (cons _%marks140598%_ '())))))))) - (_%generate-simple140314%_ - (lambda (_%stxq140486%_) - (let ((_%gid140488%_ + (_%generate-simple140420%_ + (lambda (_%stxq140592%_) + (let ((_%gid140594%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140489%_ - (gxc#generate-runtime-identifier _%stxq140486%_))) - (_%add-lift!140312%_ + (_%qid140595%_ + (gxc#generate-runtime-identifier _%stxq140592%_))) + (_%add-lift!140418%_ (cons 'define - (cons _%gid140488%_ - (cons (_%generate-syntax-quote140313%_ - _%qid140489%_ + (cons _%gid140594%_ + (cons (_%generate-syntax-quote140419%_ + _%qid140595%_ ''()) '())))) - (let ((__tmp149194 + (let ((__tmp149300 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149194 _%stxq140486%_ _%gid140488%_)) - _%gid140488%_))) - (_%generate-serialized140315%_ - (lambda (_%stxq140476%_ _%marks140477%_) - (let* ((_%mark-refs140479%_ - (map _%generate-mark140316%_ _%marks140477%_)) - (_%gid140481%_ + (hash-put! __tmp149300 _%stxq140592%_ _%gid140594%_)) + _%gid140594%_))) + (_%generate-serialized140421%_ + (lambda (_%stxq140582%_ _%marks140583%_) + (let* ((_%mark-refs140585%_ + (map _%generate-mark140422%_ _%marks140583%_)) + (_%gid140587%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%qid140483%_ - (gxc#generate-runtime-identifier _%stxq140476%_))) - (_%add-lift!140312%_ + (_%qid140589%_ + (gxc#generate-runtime-identifier _%stxq140582%_))) + (_%add-lift!140418%_ (cons 'define - (cons _%gid140481%_ - (cons (_%generate-syntax-quote140313%_ - _%qid140483%_ - (cons 'list _%mark-refs140479%_)) + (cons _%gid140587%_ + (cons (_%generate-syntax-quote140419%_ + _%qid140589%_ + (cons 'list _%mark-refs140585%_)) '())))) - (let ((__tmp149195 + (let ((__tmp149301 (let () (declare (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-put! __tmp149195 _%stxq140476%_ _%gid140481%_)) - _%gid140481%_))) - (_%generate-mark140316%_ - (lambda (_%mark140461%_) - (let ((_%$e140463%_ - (let ((__tmp149196 + (hash-put! __tmp149301 _%stxq140582%_ _%gid140587%_)) + _%gid140587%_))) + (_%generate-mark140422%_ + (lambda (_%mark140567%_) + (let ((_%$e140569%_ + (let ((__tmp149302 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) - (hash-get __tmp149196 _%mark140461%_)))) - (if _%$e140463%_ - _%$e140463%_ - (let* ((_%gid140467%_ + (hash-get __tmp149302 _%mark140567%_)))) + (if _%$e140569%_ + _%$e140569%_ + (let* ((_%gid140573%_ (let () (declare (not safe)) (gxc#generate-runtime-temporary__% '#t))) - (_%repr140469%_ - (_%serialize-mark140317%_ _%mark140461%_)) - (_%ctx140471%_ - (let ((__tmp149197 + (_%repr140575%_ + (_%serialize-mark140423%_ _%mark140567%_)) + (_%ctx140577%_ + (let ((__tmp149303 (##structure-ref - _%mark140461%_ + _%mark140567%_ '2 gx#expander-mark::t '#f))) (declare (not safe)) - (gx#core-context-top__1 __tmp149197))) - (_%ctx-ref140473%_ - (if (eq? _%ctx140471%_ + (gx#core-context-top__1 __tmp149303))) + (_%ctx-ref140579%_ + (if (eq? _%ctx140577%_ (let () (declare (not safe)) (gx#current-expander-context))) '(gx#current-expander-context) (cons 'gx#import-module (cons (cons 'quote - (cons (_%context-ref140318%_ - _%ctx140471%_) + (cons (_%context-ref140424%_ + _%ctx140577%_) '())) '()))))) - (let ((__tmp149198 + (let ((__tmp149304 (let () (declare (not safe)) (gxc#current-compile-marks)))) (declare (not safe)) (hash-put! - __tmp149198 - _%mark140461%_ - _%gid140467%_)) - (_%add-lift!140312%_ + __tmp149304 + _%mark140567%_ + _%gid140573%_)) + (_%add-lift!140418%_ (cons 'define - (cons _%gid140467%_ + (cons _%gid140573%_ (cons (cons 'gx#core-deserialize-mark (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%repr140469%_ '())) - (cons _%ctx-ref140473%_ '()))) + (cons _%repr140575%_ '())) + (cons _%ctx-ref140579%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%gid140467%_))))) - (_%serialize-mark140317%_ - (lambda (_%mark140408%_) - (letrec ((_%quote-e140410%_ - (lambda (_%sym140459%_) + _%gid140573%_))))) + (_%serialize-mark140423%_ + (lambda (_%mark140514%_) + (letrec ((_%quote-e140516%_ + (lambda (_%sym140565%_) (if (let () (declare (not safe)) - (interned-symbol? _%sym140459%_)) - _%sym140459%_ + (interned-symbol? _%sym140565%_)) + _%sym140565%_ (let () (declare (not safe)) (gxc#generate-runtime-gensym-reference__0 - _%sym140459%_)))))) - (let* ((_%mark140411140420%_ _%mark140408%_) - (_%E140413140424%_ + _%sym140565%_)))))) + (let* ((_%mark140517140526%_ _%mark140514%_) + (_%E140519140530%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mark140411140420%_ + _%mark140517140526%_ '((expander-mark subst ctx phi trace)))) '#!void)) - (_%K140414140436%_ - (lambda (_%trace140427%_ - _%phi140428%_ - _%ctx140429%_ - _%subst140430%_) - (let ((_%subs140432%_ - (if _%subst140430%_ + (_%K140520140542%_ + (lambda (_%trace140533%_ + _%phi140534%_ + _%ctx140535%_ + _%subst140536%_) + (let ((_%subs140538%_ + (if _%subst140536%_ (let () (declare (not safe)) - (hash->list _%subst140430%_)) + (hash->list _%subst140536%_)) '()))) - (cons _%phi140428%_ - (map (lambda (_%pair140434%_) - (cons (_%quote-e140410%_ - (car _%pair140434%_)) - (_%quote-e140410%_ - (cdr _%pair140434%_)))) - _%subs140432%_)))))) + (cons _%phi140534%_ + (map (lambda (_%pair140540%_) + (cons (_%quote-e140516%_ + (car _%pair140540%_)) + (_%quote-e140516%_ + (cdr _%pair140540%_)))) + _%subs140538%_)))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%mark140411140420%_ + _%mark140517140526%_ 'gx#expander-mark::t)) - (let* ((_%e140415140439%_ + (let* ((_%e140521140545%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140411140420%_ + _%mark140517140526%_ '1 '#f '#f))) - (_%subst140442%_ _%e140415140439%_) - (_%e140416140444%_ + (_%subst140548%_ _%e140521140545%_) + (_%e140522140550%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140411140420%_ + _%mark140517140526%_ '2 '#f '#f))) - (_%ctx140447%_ _%e140416140444%_) - (_%e140417140449%_ + (_%ctx140553%_ _%e140522140550%_) + (_%e140523140555%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140411140420%_ + _%mark140517140526%_ '3 '#f '#f))) - (_%phi140452%_ _%e140417140449%_) - (_%e140418140454%_ + (_%phi140558%_ _%e140523140555%_) + (_%e140524140560%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%mark140411140420%_ + _%mark140517140526%_ '4 '#f '#f))) - (_%trace140457%_ _%e140418140454%_)) - (_%K140414140436%_ - _%trace140457%_ - _%phi140452%_ - _%ctx140447%_ - _%subst140442%_)) - (_%E140413140424%_)))))) - (_%context-ref140318%_ - (lambda (_%ctx140395%_) - (if (let ((__tmp149199 + (_%trace140563%_ _%e140524140560%_)) + (_%K140520140542%_ + _%trace140563%_ + _%phi140558%_ + _%ctx140553%_ + _%subst140548%_)) + (_%E140519140530%_)))))) + (_%context-ref140424%_ + (lambda (_%ctx140501%_) + (if (let ((__tmp149305 (##structure-ref - _%ctx140395%_ + _%ctx140501%_ '3 gx#phi-context::t '#f))) (declare (not safe)) (##structure-instance-of? - __tmp149199 + __tmp149305 'gx#module-context::t)) - (let ((_%ctx-ref140397%_ - (_%context-ref-nested140320%_ _%ctx140395%_)) - (_%ctx-origin140398%_ - (_%context-ref-origin140319%_ _%ctx140395%_)) - (_%origin140399%_ - (_%context-ref-origin140319%_ + (let ((_%ctx-ref140503%_ + (_%context-ref-nested140426%_ _%ctx140501%_)) + (_%ctx-origin140504%_ + (_%context-ref-origin140425%_ _%ctx140501%_)) + (_%origin140505%_ + (_%context-ref-origin140425%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (if (eq? _%origin140399%_ _%ctx-origin140398%_) - (let ((_%ref140401%_ - (_%context-ref-nested140320%_ + (if (eq? _%origin140505%_ _%ctx-origin140504%_) + (let ((_%ref140507%_ + (_%context-ref-nested140426%_ (let () (declare (not safe)) (gx#current-expander-context))))) - (let _%lp140403%_ ((_%ref140405%_ - (cdr _%ref140401%_)) - (_%ctx-ref140406%_ - (cdr _%ctx-ref140397%_))) - (if (and (pair? _%ref140405%_) + (let _%lp140509%_ ((_%ref140511%_ + (cdr _%ref140507%_)) + (_%ctx-ref140512%_ + (cdr _%ctx-ref140503%_))) + (if (and (pair? _%ref140511%_) (eq? (let () (declare (not safe)) - (##car _%ref140405%_)) - (car _%ctx-ref140406%_))) - (_%lp140403%_ - (cdr _%ref140405%_) - (cdr _%ctx-ref140406%_)) - (cons '#f _%ctx-ref140406%_)))) - _%ctx-ref140397%_)) - (let ((__tmp149200 + (##car _%ref140511%_)) + (car _%ctx-ref140512%_))) + (_%lp140509%_ + (cdr _%ref140511%_) + (cdr _%ctx-ref140512%_)) + (cons '#f _%ctx-ref140512%_)))) + _%ctx-ref140503%_)) + (let ((__tmp149306 (##structure-ref - _%ctx140395%_ + _%ctx140501%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149200))))) - (_%context-ref-origin140319%_ - (lambda (_%ctx140387%_) - (let _%lp140389%_ ((_%ctx140391%_ _%ctx140387%_)) - (let ((_%super140393%_ + (make-symbol__1 '":" __tmp149306))))) + (_%context-ref-origin140425%_ + (lambda (_%ctx140493%_) + (let _%lp140495%_ ((_%ctx140497%_ _%ctx140493%_)) + (let ((_%super140499%_ (##structure-ref - _%ctx140391%_ + _%ctx140497%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140393%_ + _%super140499%_ 'gx#module-context::t)) - (_%lp140389%_ _%super140393%_) - _%ctx140391%_))))) - (_%context-ref-nested140320%_ - (lambda (_%ctx140378%_) - (let _%lp140380%_ ((_%ctx140382%_ _%ctx140378%_) - (_%r140383%_ '())) - (let ((_%super140385%_ + (_%lp140495%_ _%super140499%_) + _%ctx140497%_))))) + (_%context-ref-nested140426%_ + (lambda (_%ctx140484%_) + (let _%lp140486%_ ((_%ctx140488%_ _%ctx140484%_) + (_%r140489%_ '())) + (let ((_%super140491%_ (##structure-ref - _%ctx140382%_ + _%ctx140488%_ '3 gx#phi-context::t '#f))) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140385%_ + _%super140491%_ 'gx#module-context::t)) - (_%lp140380%_ - _%super140385%_ + (_%lp140486%_ + _%super140491%_ (cons (car (##structure-ref - _%ctx140382%_ + _%ctx140488%_ '7 gx#module-context::t '#f)) - _%r140383%_)) - (cons (let ((__tmp149201 + _%r140489%_)) + (cons (let ((__tmp149307 (##structure-ref - _%ctx140382%_ + _%ctx140488%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149201)) - _%r140383%_))))))) - (let* ((_%g140322140335%_ - (lambda (_%g140323140332%_) + (make-symbol__1 '":" __tmp149307)) + _%r140489%_))))))) + (let* ((_%g140428140441%_ + (lambda (_%g140429140438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140323140332%_)))) - (_%g140321140375%_ - (lambda (_%g140323140338%_) + _%g140429140438%_)))) + (_%g140427140481%_ + (lambda (_%g140429140444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140323140338%_)) - (let ((_%e140325140340%_ + (gx#stx-pair? _%g140429140444%_)) + (let ((_%e140431140446%_ (let () (declare (not safe)) - (gx#stx-e _%g140323140338%_)))) - (let ((_%hd140326140343%_ + (gx#stx-e _%g140429140444%_)))) + (let ((_%hd140432140449%_ (let () (declare (not safe)) - (##car _%e140325140340%_))) - (_%tl140327140345%_ + (##car _%e140431140446%_))) + (_%tl140433140451%_ (let () (declare (not safe)) - (##cdr _%e140325140340%_)))) + (##cdr _%e140431140446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140327140345%_)) - (let ((_%e140328140348%_ + (gx#stx-pair? _%tl140433140451%_)) + (let ((_%e140434140454%_ (let () (declare (not safe)) - (gx#stx-e _%tl140327140345%_)))) - (let ((_%hd140329140351%_ + (gx#stx-e _%tl140433140451%_)))) + (let ((_%hd140435140457%_ (let () (declare (not safe)) - (##car _%e140328140348%_))) - (_%tl140330140353%_ + (##car _%e140434140454%_))) + (_%tl140436140459%_ (let () (declare (not safe)) - (##cdr _%e140328140348%_)))) + (##cdr _%e140434140454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl140330140353%_)) - ((lambda (_%L140356%_) + (gx#stx-null? _%tl140436140459%_)) + ((lambda (_%L140462%_) (if (let () (declare (not safe)) - (gx#identifier? _%L140356%_)) - (let ((_%$e140369%_ - (let ((__tmp149202 + (gx#identifier? _%L140462%_)) + (let ((_%$e140475%_ + (let ((__tmp149308 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gxc#current-compile-identifiers)))) (declare (not safe)) - (hash-get __tmp149202 _%L140356%_)))) + (hash-get __tmp149308 _%L140462%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e140369%_ - _%$e140369%_ - (let ((_%marks140373%_ + (if _%$e140475%_ + _%$e140475%_ + (let ((_%marks140479%_ (##direct-structure-ref - _%L140356%_ + _%L140462%_ '4 gx#syntax-quote::t '#f))) - (if (null? _%marks140373%_) - (_%generate-simple140314%_ - _%L140356%_) - (_%generate-serialized140315%_ - _%L140356%_ - _%marks140373%_))))) + (if (null? _%marks140479%_) + (_%generate-simple140420%_ + _%L140462%_) + (_%generate-serialized140421%_ + _%L140462%_ + _%marks140479%_))))) (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot quote non-identifier syntax" - _%L140356%_)))) - _%hd140329140351%_) - (_%g140322140335%_ - _%g140323140338%_)))) - (_%g140322140335%_ _%g140323140338%_)))) - (_%g140322140335%_ _%g140323140338%_))))) - (_%g140321140375%_ _%stx140310%_))))) + _%L140462%_)))) + _%hd140435140457%_) + (_%g140428140441%_ + _%g140429140444%_)))) + (_%g140428140441%_ _%g140429140444%_)))) + (_%g140428140441%_ _%g140429140444%_))))) + (_%g140427140481%_ _%stx140416%_))))) (define gxc#generate-runtime-phi-define-runtime% - (lambda (_%self140241%_ _%stx140242%_) - (let* ((_%g140244140261%_ - (lambda (_%g140245140258%_) + (lambda (_%self140347%_ _%stx140348%_) + (let* ((_%g140350140367%_ + (lambda (_%g140351140364%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140245140258%_)))) - (_%g140243140306%_ - (lambda (_%g140245140264%_) + _%g140351140364%_)))) + (_%g140349140412%_ + (lambda (_%g140351140370%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140245140264%_)) - (let ((_%e140248140266%_ + (gx#stx-pair? _%g140351140370%_)) + (let ((_%e140354140372%_ (let () (declare (not safe)) - (gx#stx-e _%g140245140264%_)))) - (let ((_%hd140249140269%_ + (gx#stx-e _%g140351140370%_)))) + (let ((_%hd140355140375%_ (let () (declare (not safe)) - (##car _%e140248140266%_))) - (_%tl140250140271%_ + (##car _%e140354140372%_))) + (_%tl140356140377%_ (let () (declare (not safe)) - (##cdr _%e140248140266%_)))) + (##cdr _%e140354140372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140250140271%_)) - (let ((_%e140251140274%_ + (gx#stx-pair? _%tl140356140377%_)) + (let ((_%e140357140380%_ (let () (declare (not safe)) - (gx#stx-e _%tl140250140271%_)))) - (let ((_%hd140252140277%_ + (gx#stx-e _%tl140356140377%_)))) + (let ((_%hd140358140383%_ (let () (declare (not safe)) - (##car _%e140251140274%_))) - (_%tl140253140279%_ + (##car _%e140357140380%_))) + (_%tl140359140385%_ (let () (declare (not safe)) - (##cdr _%e140251140274%_)))) + (##cdr _%e140357140380%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140253140279%_)) - (let ((_%e140254140282%_ + (gx#stx-pair? _%tl140359140385%_)) + (let ((_%e140360140388%_ (let () (declare (not safe)) - (gx#stx-e _%tl140253140279%_)))) - (let ((_%hd140255140285%_ + (gx#stx-e _%tl140359140385%_)))) + (let ((_%hd140361140391%_ (let () (declare (not safe)) - (##car _%e140254140282%_))) - (_%tl140256140287%_ + (##car _%e140360140388%_))) + (_%tl140362140393%_ (let () (declare (not safe)) - (##cdr _%e140254140282%_)))) + (##cdr _%e140360140388%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl140256140287%_)) - ((lambda (_%L140290%_ - _%L140291%_) + _%tl140362140393%_)) + ((lambda (_%L140396%_ + _%L140397%_) (cons 'define (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L140291%_)) + (gx#stx-e _%L140397%_)) (cons (let () (declare (not safe)) - (gxc#compile-e__1 _%self140241%_ _%L140290%_)) + (gxc#compile-e__1 _%self140347%_ _%L140396%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd140255140285%_ - _%hd140252140277%_) - (_%g140244140261%_ - _%g140245140264%_)))) - (_%g140244140261%_ _%g140245140264%_)))) - (_%g140244140261%_ _%g140245140264%_)))) - (_%g140244140261%_ _%g140245140264%_))))) - (_%g140243140306%_ _%stx140242%_)))) + _%hd140361140391%_ + _%hd140358140383%_) + (_%g140350140367%_ + _%g140351140370%_)))) + (_%g140350140367%_ _%g140351140370%_)))) + (_%g140350140367%_ _%g140351140370%_)))) + (_%g140350140367%_ _%g140351140370%_))))) + (_%g140349140412%_ _%stx140348%_)))) (define gxc#generate-meta-begin% - (lambda (_%self140190%_ _%stx140191%_) - (let* ((_%g140193140203%_ - (lambda (_%g140194140200%_) + (lambda (_%self140296%_ _%stx140297%_) + (let* ((_%g140299140309%_ + (lambda (_%g140300140306%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140194140200%_)))) - (_%g140192140238%_ - (lambda (_%g140194140206%_) + _%g140300140306%_)))) + (_%g140298140344%_ + (lambda (_%g140300140312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140194140206%_)) - (let ((_%e140196140208%_ + (gx#stx-pair? _%g140300140312%_)) + (let ((_%e140302140314%_ (let () (declare (not safe)) - (gx#stx-e _%g140194140206%_)))) - (let ((_%hd140197140211%_ + (gx#stx-e _%g140300140312%_)))) + (let ((_%hd140303140317%_ (let () (declare (not safe)) - (##car _%e140196140208%_))) - (_%tl140198140213%_ + (##car _%e140302140314%_))) + (_%tl140304140319%_ (let () (declare (not safe)) - (##cdr _%e140196140208%_)))) - ((lambda (_%L140216%_) - (let* ((_%c-body140230%_ - (map (lambda (_%g140225140227%_) + (##cdr _%e140302140314%_)))) + ((lambda (_%L140322%_) + (let* ((_%c-body140336%_ + (map (lambda (_%g140331140333%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self140190%_ - _%g140225140227%_))) - _%L140216%_)) - (_%c-body140235%_ - (let ((__tmp149203 - (lambda (_%$obj140232%_) - (not (eq? _%$obj140232%_ + _%self140296%_ + _%g140331140333%_))) + _%L140322%_)) + (_%c-body140341%_ + (let ((__tmp149309 + (lambda (_%$obj140338%_) + (not (eq? _%$obj140338%_ '#!void))))) (declare (not safe)) (##filter - __tmp149203 - _%c-body140230%_)))) - (cons '%#begin _%c-body140235%_))) - _%tl140198140213%_))) - (_%g140193140203%_ _%g140194140206%_))))) - (_%g140192140238%_ _%stx140191%_)))) + __tmp149309 + _%c-body140336%_)))) + (cons '%#begin _%c-body140341%_))) + _%tl140304140319%_))) + (_%g140299140309%_ _%g140300140312%_))))) + (_%g140298140344%_ _%stx140297%_)))) (define gxc#generate-meta-begin-syntax% - (lambda (_%self140095%_ _%stx140096%_) - (let* ((_%g140098140108%_ - (lambda (_%g140099140105%_) + (lambda (_%self140201%_ _%stx140202%_) + (let* ((_%g140204140214%_ + (lambda (_%g140205140211%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140099140105%_)))) - (_%g140097140187%_ - (lambda (_%g140099140111%_) + _%g140205140211%_)))) + (_%g140203140293%_ + (lambda (_%g140205140217%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140099140111%_)) - (let ((_%e140101140113%_ + (gx#stx-pair? _%g140205140217%_)) + (let ((_%e140207140219%_ (let () (declare (not safe)) - (gx#stx-e _%g140099140111%_)))) - (let ((_%hd140102140116%_ + (gx#stx-e _%g140205140217%_)))) + (let ((_%hd140208140222%_ (let () (declare (not safe)) - (##car _%e140101140113%_))) - (_%tl140103140118%_ + (##car _%e140207140219%_))) + (_%tl140209140224%_ (let () (declare (not safe)) - (##cdr _%e140101140113%_)))) - ((lambda (_%L140121%_) - (let* ((_%phi140131%_ - (let ((__tmp149204 + (##cdr _%e140207140219%_)))) + ((lambda (_%L140227%_) + (let* ((_%phi140237%_ + (let ((__tmp149310 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149204 '1))) - (_%block140133%_ + (##fx+ __tmp149310 '1))) + (_%block140239%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self140095%_ 'state)) - _%phi140131%_)) - (_%compiled140136%_ - (let ((__tmp149205 + (slot-ref__0 _%self140201%_ 'state)) + _%phi140237%_)) + (_%compiled140242%_ + (let ((__tmp149311 (lambda () (gxc#apply-generate-meta-phi__% '#f (let () (declare (not safe)) (slot-ref__0 - _%self140095%_ + _%self140201%_ 'state)) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L140121%_))))) + _%L140227%_))))) (declare (not safe)) (__call-with-parameters - __tmp149205 + __tmp149311 gx#current-expander-phi - _%phi140131%_))) - (_%g140139140149%_ - (lambda (_%g140140140146%_) + _%phi140237%_))) + (_%g140245140255%_ + (lambda (_%g140246140252%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140140140146%_)))) - (_%g140138140184%_ - (lambda (_%g140140140152%_) + _%g140246140252%_)))) + (_%g140244140290%_ + (lambda (_%g140246140258%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140140140152%_)) - (let ((_%e140142140154%_ + (gx#stx-pair? _%g140246140258%_)) + (let ((_%e140248140260%_ (let () (declare (not safe)) (gx#stx-e - _%g140140140152%_)))) - (let ((_%hd140143140157%_ + _%g140246140258%_)))) + (let ((_%hd140249140263%_ (let () (declare (not safe)) - (##car _%e140142140154%_))) - (_%tl140144140159%_ + (##car _%e140248140260%_))) + (_%tl140250140265%_ (let () (declare (not safe)) - (##cdr _%e140142140154%_)))) + (##cdr _%e140248140260%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd140143140157%_)) + _%hd140249140263%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin - _%hd140143140157%_)) - ((lambda (_%L140162%_) - (let ((_%c-body140179%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (filter (lambda (_%$obj140176%_) - (not (eq? _%$obj140176%_ '#!void))) - _%L140162%_))) - (if _%block140133%_ + _%hd140249140263%_)) + ((lambda (_%L140268%_) + (let ((_%c-body140285%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (filter (lambda (_%$obj140282%_) + (not (eq? _%$obj140282%_ '#!void))) + _%L140268%_))) + (if _%block140239%_ (cons '%#begin-syntax (cons (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%block140133%_ + (cons _%block140239%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%c-body140179%_)) - (if (null? _%c-body140179%_) + _%c-body140285%_)) + (if (null? _%c-body140285%_) '#!void - (cons '%#begin-syntax _%c-body140179%_))))) - _%tl140144140159%_) - (_%g140139140149%_ _%g140140140152%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g140139140149%_ - _%g140140140152%_)))) - (_%g140139140149%_ - _%g140140140152%_))))) - (_%g140138140184%_ _%compiled140136%_))) - _%tl140103140118%_))) - (_%g140098140108%_ _%g140099140111%_))))) - (_%g140097140187%_ _%stx140096%_)))) + (cons '%#begin-syntax _%c-body140285%_))))) + _%tl140250140265%_) + (_%g140245140255%_ _%g140246140258%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g140245140255%_ + _%g140246140258%_)))) + (_%g140245140255%_ + _%g140246140258%_))))) + (_%g140244140290%_ _%compiled140242%_))) + _%tl140209140224%_))) + (_%g140204140214%_ _%g140205140217%_))))) + (_%g140203140293%_ _%stx140202%_)))) (define gxc#generate-meta-module% - (lambda (_%self140026%_ _%stx140027%_) + (lambda (_%self140132%_ _%stx140133%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self140026%_ 'state))) - (let* ((_%g140029140043%_ - (lambda (_%g140030140040%_) + (let () (declare (not safe)) (slot-ref__0 _%self140132%_ 'state))) + (let* ((_%g140135140149%_ + (lambda (_%g140136140146%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g140030140040%_)))) - (_%g140028140092%_ - (lambda (_%g140030140046%_) + _%g140136140146%_)))) + (_%g140134140198%_ + (lambda (_%g140136140152%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g140030140046%_)) - (let ((_%e140033140048%_ + (gx#stx-pair? _%g140136140152%_)) + (let ((_%e140139140154%_ (let () (declare (not safe)) - (gx#stx-e _%g140030140046%_)))) - (let ((_%hd140034140051%_ + (gx#stx-e _%g140136140152%_)))) + (let ((_%hd140140140157%_ (let () (declare (not safe)) - (##car _%e140033140048%_))) - (_%tl140035140053%_ + (##car _%e140139140154%_))) + (_%tl140141140159%_ (let () (declare (not safe)) - (##cdr _%e140033140048%_)))) + (##cdr _%e140139140154%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl140035140053%_)) - (let ((_%e140036140056%_ + (gx#stx-pair? _%tl140141140159%_)) + (let ((_%e140142140162%_ (let () (declare (not safe)) - (gx#stx-e _%tl140035140053%_)))) - (let ((_%hd140037140059%_ + (gx#stx-e _%tl140141140159%_)))) + (let ((_%hd140143140165%_ (let () (declare (not safe)) - (##car _%e140036140056%_))) - (_%tl140038140061%_ + (##car _%e140142140162%_))) + (_%tl140144140167%_ (let () (declare (not safe)) - (##cdr _%e140036140056%_)))) - ((lambda (_%L140064%_ _%L140065%_) - (let ((_%key140078%_ + (##cdr _%e140142140162%_)))) + ((lambda (_%L140170%_ _%L140171%_) + (let ((_%key140184%_ (let () (declare (not safe)) (gx#core-identifier-key - _%L140065%_)))) + _%L140171%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%key140078%_)) + (interned-symbol? _%key140184%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile module with uninterned id" - _%stx140027%_ - _%L140065%_ - _%key140078%_))) - (let* ((_%ctx140080%_ + _%stx140133%_ + _%L140171%_ + _%key140184%_))) + (let* ((_%ctx140186%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L140065%_))) - (_%code140083%_ - (let ((__tmp149206 + _%L140171%_))) + (_%code140189%_ + (let ((__tmp149312 (lambda () - (let ((__tmp149207 + (let ((__tmp149313 (##structure-ref - _%ctx140080%_ + _%ctx140186%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#compile-e__1 - _%self140026%_ - __tmp149207))))) + _%self140132%_ + __tmp149313))))) (declare (not safe)) (__call-with-parameters - __tmp149206 + __tmp149312 gx#current-expander-context - _%ctx140080%_))) - (_%rt140085%_ - (let ((__tmp149208 + _%ctx140186%_))) + (_%rt140191%_ + (let ((__tmp149314 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-get - __tmp149208 - _%ctx140080%_))) - (_%loader140087%_ - (if _%rt140085%_ + __tmp149314 + _%ctx140186%_))) + (_%loader140193%_ + (if _%rt140191%_ (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'load-module '())) - (cons (cons '%#quote (cons _%rt140085%_ '())) + (cons (cons '%#quote (cons _%rt140191%_ '())) '()))) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%modid140089%_ + (_%modid140195%_ (let () (declare (not safe)) - (gx#stx-e _%L140065%_)))) + (gx#stx-e _%L140171%_)))) (gxc#meta-state-end-phi! (let () (declare (not safe)) (slot-ref__0 - _%self140026%_ + _%self140132%_ 'state))) (cons '%#module - (cons _%modid140089%_ - (cons _%code140083%_ - _%loader140087%_)))))) - _%tl140038140061%_ - _%hd140037140059%_))) - (_%g140029140043%_ _%g140030140046%_)))) - (_%g140029140043%_ _%g140030140046%_))))) - (_%g140028140092%_ _%stx140027%_)))) + (cons _%modid140195%_ + (cons _%code140189%_ + _%loader140193%_)))))) + _%tl140144140167%_ + _%hd140143140165%_))) + (_%g140135140149%_ _%g140136140152%_)))) + (_%g140135140149%_ _%g140136140152%_))))) + (_%g140134140198%_ _%stx140133%_)))) (define gxc#generate-meta-import-path - (lambda (_%ctx140013%_ _%context-chain140014%_) - (let _%lp140016%_ ((_%ctx140018%_ _%ctx140013%_) (_%path140019%_ '())) - (let ((_%super140021%_ - (##structure-ref _%ctx140018%_ '3 gx#phi-context::t '#f))) - (if (memq _%super140021%_ _%context-chain140014%_) + (lambda (_%ctx140119%_ _%context-chain140120%_) + (let _%lp140122%_ ((_%ctx140124%_ _%ctx140119%_) (_%path140125%_ '())) + (let ((_%super140127%_ + (##structure-ref _%ctx140124%_ '3 gx#phi-context::t '#f))) + (if (memq _%super140127%_ _%context-chain140120%_) (cons '#f (cons (car (##structure-ref - _%ctx140018%_ + _%ctx140124%_ '7 gx#module-context::t '#f)) - _%path140019%_)) + _%path140125%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%super140021%_ + _%super140127%_ 'gx#module-context::t)) - (_%lp140016%_ - _%super140021%_ + (_%lp140122%_ + _%super140127%_ (cons (car (##structure-ref - _%ctx140018%_ + _%ctx140124%_ '7 gx#module-context::t '#f)) - _%path140019%_)) - (cons (let ((__tmp149209 + _%path140125%_)) + (cons (let ((__tmp149315 (##structure-ref - _%ctx140018%_ + _%ctx140124%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (make-symbol__1 '":" __tmp149209)) - _%path140019%_))))))) + (make-symbol__1 '":" __tmp149315)) + _%path140125%_))))))) (define gxc#current-context-chain (lambda () - (let _%lp140006%_ ((_%ctx140008%_ + (let _%lp140112%_ ((_%ctx140114%_ (let () (declare (not safe)) (gx#current-expander-context))) - (_%r140009%_ '())) + (_%r140115%_ '())) (if (let () (declare (not safe)) - (##structure-instance-of? _%ctx140008%_ 'gx#module-context::t)) - (_%lp140006%_ + (##structure-instance-of? _%ctx140114%_ 'gx#module-context::t)) + (_%lp140112%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx140008%_ '3 '#f '#f)) - (cons _%ctx140008%_ _%r140009%_)) - _%r140009%_)))) + (##unchecked-structure-ref _%ctx140114%_ '3 '#f '#f)) + (cons _%ctx140114%_ _%r140115%_)) + _%r140115%_)))) (define gxc#generate-meta-import% - (lambda (_%self139769%_ _%stx139770%_) - (letrec* ((_%context-chain139772%_ (gxc#current-context-chain)) - (_%make-import-spec139773%_ - (lambda (_%in139942%_) - (let* ((_%in139943139955%_ _%in139942%_) - (_%E139945139959%_ + (lambda (_%self139875%_ _%stx139876%_) + (letrec* ((_%context-chain139878%_ (gxc#current-context-chain)) + (_%make-import-spec139879%_ + (lambda (_%in140048%_) + (let* ((_%in140049140061%_ _%in140048%_) + (_%E140051140065%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%in139943139955%_ + _%in140049140061%_ '((module-import (module-export src-ctx @@ -13153,390 +13153,390 @@ name phi)))) '#!void)) - (_%K139946139969%_ - (lambda (_%phi139962%_ - _%name139963%_ - _%src-name139964%_ - _%src-phi139965%_ - _%src-key139966%_ - _%src-ctx139967%_) - (cons _%phi139962%_ + (_%K140052140075%_ + (lambda (_%phi140068%_ + _%name140069%_ + _%src-name140070%_ + _%src-phi140071%_ + _%src-key140072%_ + _%src-ctx140073%_) + (cons _%phi140068%_ (cons (gxc#generate-runtime-identifier-key - _%name139963%_) - (cons _%src-phi139965%_ + _%name140069%_) + (cons _%src-phi140071%_ (cons (gxc#generate-runtime-identifier-key - _%src-name139964%_) + _%src-name140070%_) '()))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139943139955%_ + _%in140049140061%_ 'gx#module-import::t)) - (let ((_%e139947139972%_ + (let ((_%e140053140078%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139943139955%_ + _%in140049140061%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139947139972%_ + _%e140053140078%_ 'gx#module-export::t)) - (let* ((_%e139950139975%_ + (let* ((_%e140056140081%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139947139972%_ + _%e140053140078%_ '1 '#f '#f))) - (_%src-ctx139978%_ _%e139950139975%_) - (_%e139951139980%_ + (_%src-ctx140084%_ _%e140056140081%_) + (_%e140057140086%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139947139972%_ + _%e140053140078%_ '2 '#f '#f))) - (_%src-key139983%_ _%e139951139980%_) - (_%e139952139985%_ + (_%src-key140089%_ _%e140057140086%_) + (_%e140058140091%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139947139972%_ + _%e140053140078%_ '3 '#f '#f))) - (_%src-phi139988%_ _%e139952139985%_) - (_%e139953139990%_ + (_%src-phi140094%_ _%e140058140091%_) + (_%e140059140096%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%e139947139972%_ + _%e140053140078%_ '4 '#f '#f))) - (_%src-name139993%_ _%e139953139990%_) - (_%e139948139995%_ + (_%src-name140099%_ _%e140059140096%_) + (_%e140054140101%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139943139955%_ + _%in140049140061%_ '2 '#f '#f))) - (_%name139998%_ _%e139948139995%_) - (_%e139949140000%_ + (_%name140104%_ _%e140054140101%_) + (_%e140055140106%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139943139955%_ + _%in140049140061%_ '3 '#f '#f))) - (_%phi140003%_ _%e139949140000%_)) - (_%K139946139969%_ - _%phi140003%_ - _%name139998%_ - _%src-name139993%_ - _%src-phi139988%_ - _%src-key139983%_ - _%src-ctx139978%_)) - (_%E139945139959%_))) - (_%E139945139959%_))))) - (_%make-import-path139774%_ - (lambda (_%ctx139940%_) + (_%phi140109%_ _%e140055140106%_)) + (_%K140052140075%_ + _%phi140109%_ + _%name140104%_ + _%src-name140099%_ + _%src-phi140094%_ + _%src-key140089%_ + _%src-ctx140084%_)) + (_%E140051140065%_))) + (_%E140051140065%_))))) + (_%make-import-path139880%_ + (lambda (_%ctx140046%_) (gxc#generate-meta-import-path - _%ctx139940%_ - _%context-chain139772%_))) - (_%make-import-spec-in139775%_ - (lambda (_%ctx139937%_ _%in139938%_) + _%ctx140046%_ + _%context-chain139878%_))) + (_%make-import-spec-in139881%_ + (lambda (_%ctx140043%_ _%in140044%_) (cons 'spec: - (cons (_%make-import-path139774%_ _%ctx139937%_) - (reverse _%in139938%_)))))) + (cons (_%make-import-path139880%_ _%ctx140043%_) + (reverse _%in140044%_)))))) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139769%_ 'state))) - (let* ((_%g139777139787%_ - (lambda (_%g139778139784%_) + (let () (declare (not safe)) (slot-ref__0 _%self139875%_ 'state))) + (let* ((_%g139883139893%_ + (lambda (_%g139884139890%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139778139784%_)))) - (_%g139776139934%_ - (lambda (_%g139778139790%_) + _%g139884139890%_)))) + (_%g139882140040%_ + (lambda (_%g139884139896%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139778139790%_)) - (let ((_%e139780139792%_ + (gx#stx-pair? _%g139884139896%_)) + (let ((_%e139886139898%_ (let () (declare (not safe)) - (gx#stx-e _%g139778139790%_)))) - (let ((_%hd139781139795%_ + (gx#stx-e _%g139884139896%_)))) + (let ((_%hd139887139901%_ (let () (declare (not safe)) - (##car _%e139780139792%_))) - (_%tl139782139797%_ + (##car _%e139886139898%_))) + (_%tl139888139903%_ (let () (declare (not safe)) - (##cdr _%e139780139792%_)))) - ((lambda (_%L139800%_) - (let _%lp139811%_ ((_%rest139813%_ _%L139800%_) - (_%current-src139814%_ '#f) - (_%current-in139815%_ '()) - (_%r139816%_ '())) - (let* ((_%rest139817139825%_ _%rest139813%_) - (_%else139819139835%_ + (##cdr _%e139886139898%_)))) + ((lambda (_%L139906%_) + (let _%lp139917%_ ((_%rest139919%_ _%L139906%_) + (_%current-src139920%_ '#f) + (_%current-in139921%_ '()) + (_%r139922%_ '())) + (let* ((_%rest139923139931%_ _%rest139919%_) + (_%else139925139941%_ (lambda () - (let ((_%r139833%_ - (if _%current-src139814%_ - (cons (_%make-import-spec-in139775%_ - _%current-src139814%_ - _%current-in139815%_) - _%r139816%_) - _%r139816%_))) + (let ((_%r139939%_ + (if _%current-src139920%_ + (cons (_%make-import-spec-in139881%_ + _%current-src139920%_ + _%current-in139921%_) + _%r139922%_) + _%r139922%_))) (cons '%#import - (reverse _%r139833%_))))) - (_%K139821139922%_ - (lambda (_%rest139838%_ _%in139839%_) + (reverse _%r139939%_))))) + (_%K139927140028%_ + (lambda (_%rest139944%_ _%in139945%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139839%_ + _%in139945%_ 'gx#module-import::t)) - (let* ((_%in139841139848%_ - _%in139839%_) - (_%E139843139852%_ + (let* ((_%in139947139954%_ + _%in139945%_) + (_%E139949139958%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in139841139848%_ + _%in139947139954%_ '((module-import (module-export src-ctx))))) '#!void)) - (_%K139844139860%_ - (lambda (_%src-ctx139855%_) - (if (eq? _%current-src139814%_ _%src-ctx139855%_) - (_%lp139811%_ - _%rest139838%_ - _%current-src139814%_ - (cons (_%make-import-spec139773%_ _%in139839%_) - _%current-in139815%_) - _%r139816%_) - (if _%current-src139814%_ - (_%lp139811%_ - _%rest139838%_ - _%src-ctx139855%_ - (cons (_%make-import-spec139773%_ _%in139839%_) '()) - (cons (_%make-import-spec-in139775%_ - _%current-src139814%_ - _%current-in139815%_) - _%r139816%_)) - (_%lp139811%_ - _%rest139838%_ - _%src-ctx139855%_ - (cons (_%make-import-spec139773%_ _%in139839%_) '()) - _%r139816%_))))) - (_%e139845139863%_ - (let () - (declare (not safe)) - (##unchecked-structure-ref _%in139841139848%_ '1 '#f '#f)))) + (_%K139950139966%_ + (lambda (_%src-ctx139961%_) + (if (eq? _%current-src139920%_ _%src-ctx139961%_) + (_%lp139917%_ + _%rest139944%_ + _%current-src139920%_ + (cons (_%make-import-spec139879%_ _%in139945%_) + _%current-in139921%_) + _%r139922%_) + (if _%current-src139920%_ + (_%lp139917%_ + _%rest139944%_ + _%src-ctx139961%_ + (cons (_%make-import-spec139879%_ _%in139945%_) '()) + (cons (_%make-import-spec-in139881%_ + _%current-src139920%_ + _%current-in139921%_) + _%r139922%_)) + (_%lp139917%_ + _%rest139944%_ + _%src-ctx139961%_ + (cons (_%make-import-spec139879%_ _%in139945%_) '()) + _%r139922%_))))) + (_%e139951139969%_ + (let () + (declare (not safe)) + (##unchecked-structure-ref _%in139947139954%_ '1 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%e139845139863%_ + _%e139951139969%_ 'gx#module-export::t)) - (let* ((_%e139846139866%_ + (let* ((_%e139952139972%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%e139845139863%_ + _%e139951139969%_ '1 '#f '#f))) - (_%src-ctx139869%_ _%e139846139866%_)) - (_%K139844139860%_ _%src-ctx139869%_)) + (_%src-ctx139975%_ _%e139952139972%_)) + (_%K139950139966%_ _%src-ctx139975%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E139843139852%_))) + (_%E139949139958%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in139839%_ + _%in139945%_ 'gx#import-set::t)) - (let* ((_%phi139872%_ + (let* ((_%phi139978%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139839%_ + _%in139945%_ '2 '#f '#f))) - (_%src139874%_ + (_%src139980%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in139839%_ + _%in139945%_ '1 '#f '#f))) - (_%src-in139914%_ - (let* ((_%g139875139884%_ + (_%src-in140020%_ + (let* ((_%g139981139990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%make-import-path139774%_ _%src139874%_)) - (_%E139878139888%_ + (_%make-import-path139880%_ _%src139980%_)) + (_%E139984139994%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139875139884%_ + _%g139981139990%_ '([path]) '(path))) '#!void))) - (let ((_%K139880139904%_ - (lambda (_%path139902%_) _%path139902%_)) - (_%K139879139894%_ - (lambda (_%path139892%_) - (cons 'in: _%path139892%_)))) - (if (pair? _%g139875139884%_) - (let ((_%tl139882139909%_ + (let ((_%K139986140010%_ + (lambda (_%path140008%_) _%path140008%_)) + (_%K139985140000%_ + (lambda (_%path139998%_) + (cons 'in: _%path139998%_)))) + (if (pair? _%g139981139990%_) + (let ((_%tl139988140015%_ (let () (declare (not safe)) - (##cdr _%g139875139884%_))) - (_%hd139881139907%_ + (##cdr _%g139981139990%_))) + (_%hd139987140013%_ (let () (declare (not safe)) - (##car _%g139875139884%_)))) - (if (null? _%tl139882139909%_) - (let ((_%path139912%_ _%hd139881139907%_)) - (_%K139880139904%_ _%path139912%_)) - (let ((_%path139897%_ _%g139875139884%_)) - (_%K139879139894%_ _%path139897%_)))) - (let ((_%path139897%_ _%g139875139884%_)) - (_%K139879139894%_ _%path139897%_)))))) - (_%r139916%_ - (if _%current-src139814%_ - (cons (_%make-import-spec-in139775%_ - _%current-src139814%_ - _%current-in139815%_) - _%r139816%_) - _%r139816%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp139811%_ - _%rest139838%_ + (##car _%g139981139990%_)))) + (if (null? _%tl139988140015%_) + (let ((_%path140018%_ _%hd139987140013%_)) + (_%K139986140010%_ _%path140018%_)) + (let ((_%path140003%_ _%g139981139990%_)) + (_%K139985140000%_ _%path140003%_)))) + (let ((_%path140003%_ _%g139981139990%_)) + (_%K139985140000%_ _%path140003%_)))))) + (_%r140022%_ + (if _%current-src139920%_ + (cons (_%make-import-spec-in139881%_ + _%current-src139920%_ + _%current-in139921%_) + _%r139922%_) + _%r139922%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp139917%_ + _%rest139944%_ '#f '() - (cons (if (fxzero? _%phi139872%_) - _%src-in139914%_ + (cons (if (fxzero? _%phi139978%_) + _%src-in140020%_ (cons 'phi: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139872%_ - (cons _%src-in139914%_ '())))) - _%r139916%_))) + (cons _%phi139978%_ + (cons _%src-in140020%_ '())))) + _%r140022%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-instance-of? - _%in139839%_ + _%in139945%_ 'gx#module-context::t)) - (let ((_%r139920%_ - (if _%current-src139814%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (_%make-import-spec-in139775%_ - _%current-src139814%_ - _%current-in139815%_) - _%r139816%_) - _%r139816%_))) - (_%lp139811%_ - _%rest139838%_ + (let ((_%r140026%_ + (if _%current-src139920%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons (_%make-import-spec-in139881%_ + _%current-src139920%_ + _%current-in139921%_) + _%r139922%_) + _%r139922%_))) + (_%lp139917%_ + _%rest139944%_ '#f '() (cons (cons 'runtime: - (_%make-import-path139774%_ _%in139839%_)) - _%r139920%_))) + (_%make-import-path139880%_ _%in139945%_)) + _%r140026%_))) '#!void)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest139817139825%_) - (let ((_%hd139822139925%_ + (if (pair? _%rest139923139931%_) + (let ((_%hd139928140031%_ (let () (declare (not safe)) - (##car _%rest139817139825%_))) - (_%tl139823139927%_ + (##car _%rest139923139931%_))) + (_%tl139929140033%_ (let () (declare (not safe)) - (##cdr _%rest139817139825%_)))) - (let* ((_%in139930%_ - _%hd139822139925%_) - (_%rest139932%_ - _%tl139823139927%_)) - (_%K139821139922%_ - _%rest139932%_ - _%in139930%_))) - (_%else139819139835%_))))) - _%tl139782139797%_))) - (_%g139777139787%_ _%g139778139790%_))))) - (_%g139776139934%_ _%stx139770%_))))) + (##cdr _%rest139923139931%_)))) + (let* ((_%in140036%_ + _%hd139928140031%_) + (_%rest140038%_ + _%tl139929140033%_)) + (_%K139927140028%_ + _%rest140038%_ + _%in140036%_))) + (_%else139925139941%_))))) + _%tl139888139903%_))) + (_%g139883139893%_ _%g139884139896%_))))) + (_%g139882140040%_ _%stx139876%_))))) (define gxc#generate-meta-export% - (lambda (_%self139579%_ _%stx139580%_) - (letrec* ((_%context-chain139582%_ (gxc#current-context-chain)) - (_%make-import-path139583%_ - (lambda (_%ctx139767%_) + (lambda (_%self139685%_ _%stx139686%_) + (letrec* ((_%context-chain139688%_ (gxc#current-context-chain)) + (_%make-import-path139689%_ + (lambda (_%ctx139873%_) (gxc#generate-meta-import-path - _%ctx139767%_ - _%context-chain139582%_)))) - (let* ((_%g139585139595%_ - (lambda (_%g139586139592%_) + _%ctx139873%_ + _%context-chain139688%_)))) + (let* ((_%g139691139701%_ + (lambda (_%g139692139698%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139586139592%_)))) - (_%g139584139764%_ - (lambda (_%g139586139598%_) + _%g139692139698%_)))) + (_%g139690139870%_ + (lambda (_%g139692139704%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139586139598%_)) - (let ((_%e139588139600%_ + (gx#stx-pair? _%g139692139704%_)) + (let ((_%e139694139706%_ (let () (declare (not safe)) - (gx#stx-e _%g139586139598%_)))) - (let ((_%hd139589139603%_ + (gx#stx-e _%g139692139704%_)))) + (let ((_%hd139695139709%_ (let () (declare (not safe)) - (##car _%e139588139600%_))) - (_%tl139590139605%_ + (##car _%e139694139706%_))) + (_%tl139696139711%_ (let () (declare (not safe)) - (##cdr _%e139588139600%_)))) - ((lambda (_%L139608%_) - (let _%lp139619%_ ((_%rest139621%_ _%L139608%_) - (_%r139622%_ '())) - (let* ((_%rest139623139631%_ _%rest139621%_) - (_%else139625139639%_ + (##cdr _%e139694139706%_)))) + ((lambda (_%L139714%_) + (let _%lp139725%_ ((_%rest139727%_ _%L139714%_) + (_%r139728%_ '())) + (let* ((_%rest139729139737%_ _%rest139727%_) + (_%else139731139745%_ (lambda () (cons '%#export - (reverse _%r139622%_)))) - (_%K139627139752%_ - (lambda (_%rest139642%_ _%out139643%_) - (let* ((_%out139644139657%_ - _%out139643%_) - (_%E139647139661%_ + (reverse _%r139728%_)))) + (_%K139733139858%_ + (lambda (_%rest139748%_ _%out139749%_) + (let* ((_%out139750139763%_ + _%out139749%_) + (_%E139753139767%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%out139644139657%_ + _%out139750139763%_ '((module-export ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< _ @@ -13546,491 +13546,491 @@ '((export-set src phi)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K139651139731%_ - (lambda (_%name139727%_ - _%phi139728%_ - _%key139729%_) - (_%lp139619%_ - _%rest139642%_ + (let ((_%K139757139837%_ + (lambda (_%name139833%_ + _%phi139834%_ + _%key139835%_) + (_%lp139725%_ + _%rest139748%_ (cons (cons 'spec: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%phi139728%_ + (cons _%phi139834%_ (cons (gxc#generate-runtime-identifier-key - _%key139729%_) + _%key139835%_) (cons (gxc#generate-runtime-identifier-key - _%name139727%_) + _%name139833%_) '())))) - _%r139622%_)))) + _%r139728%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K139648139711%_ - (lambda (_%phi139665%_ - _%src139666%_) - (let* ((_%out139706%_ - (if _%src139666%_ + (_%K139754139817%_ + (lambda (_%phi139771%_ + _%src139772%_) + (let* ((_%out139812%_ + (if _%src139772%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'import: - (cons (let* ((_%g139667139676%_ - (_%make-import-path139583%_ - _%src139666%_)) - (_%E139670139680%_ + (cons (let* ((_%g139773139782%_ + (_%make-import-path139689%_ + _%src139772%_)) + (_%E139776139786%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g139667139676%_ + _%g139773139782%_ '([path]) '(path))) '#!void))) - (let ((_%K139672139696%_ - (lambda (_%path139694%_) - _%path139694%_)) - (_%K139671139686%_ - (lambda (_%path139684%_) - (cons 'in: _%path139684%_)))) - (if (pair? _%g139667139676%_) - (let ((_%tl139674139701%_ + (let ((_%K139778139802%_ + (lambda (_%path139800%_) + _%path139800%_)) + (_%K139777139792%_ + (lambda (_%path139790%_) + (cons 'in: _%path139790%_)))) + (if (pair? _%g139773139782%_) + (let ((_%tl139780139807%_ (let () (declare (not safe)) - (##cdr _%g139667139676%_))) - (_%hd139673139699%_ + (##cdr _%g139773139782%_))) + (_%hd139779139805%_ (let () (declare (not safe)) - (##car _%g139667139676%_)))) - (if (null? _%tl139674139701%_) - (let ((_%path139704%_ - _%hd139673139699%_)) - (_%K139672139696%_ - _%path139704%_)) - (let ((_%path139689%_ - _%g139667139676%_)) - (_%K139671139686%_ - _%path139689%_)))) - (let ((_%path139689%_ - _%g139667139676%_)) - (_%K139671139686%_ - _%path139689%_))))) + (##car _%g139773139782%_)))) + (if (null? _%tl139780139807%_) + (let ((_%path139810%_ + _%hd139779139805%_)) + (_%K139778139802%_ + _%path139810%_)) + (let ((_%path139795%_ + _%g139773139782%_)) + (_%K139777139792%_ + _%path139795%_)))) + (let ((_%path139795%_ + _%g139773139782%_)) + (_%K139777139792%_ + _%path139795%_))))) '())) '#t)) - (_%out139708%_ - (if (fxzero? _%phi139665%_) - _%out139706%_ + (_%out139814%_ + (if (fxzero? _%phi139771%_) + _%out139812%_ (cons 'phi: - (cons _%phi139665%_ - (cons _%out139706%_ '())))))) - (_%lp139619%_ - _%rest139642%_ - (cons _%out139708%_ _%r139622%_)))))) + (cons _%phi139771%_ + (cons _%out139812%_ '())))))) + (_%lp139725%_ + _%rest139748%_ + (cons _%out139814%_ _%r139728%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match139646139724%_ + (let ((_%try-match139752139830%_ (lambda () (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139644139657%_ + _%out139750139763%_ 'gx#export-set::t)) - (let* ((_%e139649139714%_ + (let* ((_%e139755139820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '1 '#f '#f))) - (_%e139650139719%_ + (_%e139756139825%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '2 '#f '#f)))) - (let ((_%src139717%_ _%e139649139714%_) - (_%phi139722%_ _%e139650139719%_)) - (_%K139648139711%_ _%phi139722%_ _%src139717%_))) - (_%E139647139661%_))))) + (let ((_%src139823%_ _%e139755139820%_) + (_%phi139828%_ _%e139756139825%_)) + (_%K139754139817%_ _%phi139828%_ _%src139823%_))) + (_%E139753139767%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%out139644139657%_ + _%out139750139763%_ 'gx#module-export::t)) - (let* ((_%e139652139734%_ + (let* ((_%e139758139840%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '1 '#f '#f))) - (_%e139653139737%_ + (_%e139759139843%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '2 '#f '#f))) - (_%e139654139742%_ + (_%e139760139848%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '3 '#f '#f))) - (_%e139655139747%_ + (_%e139761139853%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%out139644139657%_ + _%out139750139763%_ '4 '#f '#f)))) - (let ((_%key139740%_ _%e139653139737%_) - (_%phi139745%_ _%e139654139742%_) - (_%name139750%_ _%e139655139747%_)) - (_%K139651139731%_ - _%name139750%_ - _%phi139745%_ - _%key139740%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%try-match139646139724%_)))))))) - (if (pair? _%rest139623139631%_) - (let ((_%hd139628139755%_ + (let ((_%key139846%_ _%e139759139843%_) + (_%phi139851%_ _%e139760139848%_) + (_%name139856%_ _%e139761139853%_)) + (_%K139757139837%_ + _%name139856%_ + _%phi139851%_ + _%key139846%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%try-match139752139830%_)))))))) + (if (pair? _%rest139729139737%_) + (let ((_%hd139734139861%_ (let () (declare (not safe)) - (##car _%rest139623139631%_))) - (_%tl139629139757%_ + (##car _%rest139729139737%_))) + (_%tl139735139863%_ (let () (declare (not safe)) - (##cdr _%rest139623139631%_)))) - (let* ((_%out139760%_ - _%hd139628139755%_) - (_%rest139762%_ - _%tl139629139757%_)) - (_%K139627139752%_ - _%rest139762%_ - _%out139760%_))) - (_%else139625139639%_))))) - _%tl139590139605%_))) - (_%g139585139595%_ _%g139586139598%_))))) - (_%g139584139764%_ _%stx139580%_))))) + (##cdr _%rest139729139737%_)))) + (let* ((_%out139866%_ + _%hd139734139861%_) + (_%rest139868%_ + _%tl139735139863%_)) + (_%K139733139858%_ + _%rest139868%_ + _%out139866%_))) + (_%else139731139745%_))))) + _%tl139696139711%_))) + (_%g139691139701%_ _%g139692139704%_))))) + (_%g139690139870%_ _%stx139686%_))))) (define gxc#generate-meta-provide% - (lambda (_%self139540%_ _%stx139541%_) + (lambda (_%self139646%_ _%stx139647%_) (gxc#meta-state-end-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139540%_ 'state))) - (let* ((_%g139543139553%_ - (lambda (_%g139544139550%_) + (let () (declare (not safe)) (slot-ref__0 _%self139646%_ 'state))) + (let* ((_%g139649139659%_ + (lambda (_%g139650139656%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139544139550%_)))) - (_%g139542139576%_ - (lambda (_%g139544139556%_) + _%g139650139656%_)))) + (_%g139648139682%_ + (lambda (_%g139650139662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139544139556%_)) - (let ((_%e139546139558%_ + (gx#stx-pair? _%g139650139662%_)) + (let ((_%e139652139664%_ (let () (declare (not safe)) - (gx#stx-e _%g139544139556%_)))) - (let ((_%hd139547139561%_ + (gx#stx-e _%g139650139662%_)))) + (let ((_%hd139653139667%_ (let () (declare (not safe)) - (##car _%e139546139558%_))) - (_%tl139548139563%_ + (##car _%e139652139664%_))) + (_%tl139654139669%_ (let () (declare (not safe)) - (##cdr _%e139546139558%_)))) - ((lambda (_%L139566%_) + (##cdr _%e139652139664%_)))) + ((lambda (_%L139672%_) (cons '%#provide (map gxc#generate-runtime-identifier - _%L139566%_))) - _%tl139548139563%_))) - (_%g139543139553%_ _%g139544139556%_))))) - (_%g139542139576%_ _%stx139541%_)))) + _%L139672%_))) + _%tl139654139669%_))) + (_%g139649139659%_ _%g139650139662%_))))) + (_%g139648139682%_ _%stx139647%_)))) (define gxc#generate-meta-extern% - (lambda (_%self139411%_ _%stx139412%_) - (letrec ((_%generate1139414%_ - (lambda (_%id139535%_ _%eid139536%_) - (let ((_%eid139538%_ + (lambda (_%self139517%_ _%stx139518%_) + (letrec ((_%generate1139520%_ + (lambda (_%id139641%_ _%eid139642%_) + (let ((_%eid139644%_ (let () (declare (not safe)) - (gx#stx-e _%eid139536%_)))) + (gx#stx-e _%eid139642%_)))) (if (let () (declare (not safe)) - (interned-symbol? _%eid139538%_)) + (interned-symbol? _%eid139644%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Cannot compile extern reference" - _%stx139412%_ - _%eid139538%_))) - (cons (gxc#generate-runtime-identifier _%id139535%_) - (cons _%eid139538%_ '())))))) - (let* ((_%g139416139444%_ - (lambda (_%g139417139441%_) + _%stx139518%_ + _%eid139644%_))) + (cons (gxc#generate-runtime-identifier _%id139641%_) + (cons _%eid139644%_ '())))))) + (let* ((_%g139522139550%_ + (lambda (_%g139523139547%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139417139441%_)))) - (_%g139415139532%_ - (lambda (_%g139417139447%_) + _%g139523139547%_)))) + (_%g139521139638%_ + (lambda (_%g139523139553%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139417139447%_)) - (let ((_%e139420139449%_ + (gx#stx-pair? _%g139523139553%_)) + (let ((_%e139526139555%_ (let () (declare (not safe)) - (gx#stx-e _%g139417139447%_)))) - (let ((_%hd139421139452%_ + (gx#stx-e _%g139523139553%_)))) + (let ((_%hd139527139558%_ (let () (declare (not safe)) - (##car _%e139420139449%_))) - (_%tl139422139454%_ + (##car _%e139526139555%_))) + (_%tl139528139560%_ (let () (declare (not safe)) - (##cdr _%e139420139449%_)))) + (##cdr _%e139526139555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl139422139454%_)) - (let ((_g149210_ + (gx#stx-pair/null? _%tl139528139560%_)) + (let ((_g149316_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl139422139454%_ + _%tl139528139560%_ '0)))) (begin - (let ((_g149211_ + (let ((_g149317_ (let () (declare (not safe)) - (if (##values? _g149210_) - (##vector-length _g149210_) + (if (##values? _g149316_) + (##values-length _g149316_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149211_ 2))) + (##fx= _g149317_ 2))) (error "Context expects 2 values" - _g149211_))) - (let ((_%target139423139457%_ + _g149317_))) + (let ((_%target139529139563%_ (let () (declare (not safe)) - (##vector-ref _g149210_ 0))) - (_%tl139425139459%_ + (##values-ref _g149316_ 0))) + (_%tl139531139565%_ (let () (declare (not safe)) - (##vector-ref _g149210_ 1)))) + (##values-ref _g149316_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139425139459%_)) - (letrec ((_%loop139426139462%_ - (lambda (_%hd139424139465%_ - _%eid139430139467%_ - _%id139431139469%_) + (gx#stx-null? _%tl139531139565%_)) + (letrec ((_%loop139532139568%_ + (lambda (_%hd139530139571%_ + _%eid139536139573%_ + _%id139537139575%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd139424139465%_)) - (let ((_%e139427139472%_ + _%hd139530139571%_)) + (let ((_%e139533139578%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd139424139465%_)))) - (let ((_%lp-hd139428139475%_ + (gx#stx-e _%hd139530139571%_)))) + (let ((_%lp-hd139534139581%_ (let () (declare (not safe)) - (##car _%e139427139472%_))) - (_%lp-tl139429139477%_ + (##car _%e139533139578%_))) + (_%lp-tl139535139583%_ (let () (declare (not safe)) - (##cdr _%e139427139472%_)))) + (##cdr _%e139533139578%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd139428139475%_)) - (let ((_%e139434139480%_ + (gx#stx-pair? _%lp-hd139534139581%_)) + (let ((_%e139540139586%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd139428139475%_)))) - (let ((_%hd139435139483%_ + (gx#stx-e _%lp-hd139534139581%_)))) + (let ((_%hd139541139589%_ (let () (declare (not safe)) - (##car _%e139434139480%_))) - (_%tl139436139485%_ + (##car _%e139540139586%_))) + (_%tl139542139591%_ (let () (declare (not safe)) - (##cdr _%e139434139480%_)))) + (##cdr _%e139540139586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139436139485%_)) - (let ((_%e139437139488%_ + (gx#stx-pair? _%tl139542139591%_)) + (let ((_%e139543139594%_ (let () (declare (not safe)) - (gx#stx-e _%tl139436139485%_)))) - (let ((_%hd139438139491%_ + (gx#stx-e _%tl139542139591%_)))) + (let ((_%hd139544139597%_ (let () (declare (not safe)) - (##car _%e139437139488%_))) - (_%tl139439139493%_ + (##car _%e139543139594%_))) + (_%tl139545139599%_ (let () (declare (not safe)) - (##cdr _%e139437139488%_)))) + (##cdr _%e139543139594%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl139439139493%_)) - (_%loop139426139462%_ - _%lp-tl139429139477%_ - (cons _%hd139438139491%_ - _%eid139430139467%_) - (cons _%hd139435139483%_ - _%id139431139469%_)) - (_%g139416139444%_ - _%g139417139447%_)))) - (_%g139416139444%_ _%g139417139447%_)))) - (_%g139416139444%_ _%g139417139447%_)))) - (let ((_%eid139432139496%_ (reverse _%eid139430139467%_)) - (_%id139433139498%_ (reverse _%id139431139469%_))) - ((lambda (_%L139501%_ _%L139502%_) + (gx#stx-null? _%tl139545139599%_)) + (_%loop139532139568%_ + _%lp-tl139535139583%_ + (cons _%hd139544139597%_ + _%eid139536139573%_) + (cons _%hd139541139589%_ + _%id139537139575%_)) + (_%g139522139550%_ + _%g139523139553%_)))) + (_%g139522139550%_ _%g139523139553%_)))) + (_%g139522139550%_ _%g139523139553%_)))) + (let ((_%eid139538139602%_ (reverse _%eid139536139573%_)) + (_%id139539139604%_ (reverse _%id139537139575%_))) + ((lambda (_%L139607%_ _%L139608%_) (cons '%#extern - (map _%generate1139414%_ - (let ((__tmp149212 - (lambda (_%g139517139520%_ - _%g139518139522%_) - (cons _%g139517139520%_ - _%g139518139522%_)))) + (map _%generate1139520%_ + (let ((__tmp149318 + (lambda (_%g139623139626%_ + _%g139624139628%_) + (cons _%g139623139626%_ + _%g139624139628%_)))) (declare (not safe)) - (__foldr1 __tmp149212 '() _%L139502%_)) - (let ((__tmp149213 - (lambda (_%g139524139527%_ - _%g139525139529%_) - (cons _%g139524139527%_ - _%g139525139529%_)))) + (__foldr1 __tmp149318 '() _%L139608%_)) + (let ((__tmp149319 + (lambda (_%g139630139633%_ + _%g139631139635%_) + (cons _%g139630139633%_ + _%g139631139635%_)))) (declare (not safe)) - (__foldr1 __tmp149213 '() _%L139501%_))))) - _%eid139432139496%_ - _%id139433139498%_)))))) + (__foldr1 __tmp149319 '() _%L139607%_))))) + _%eid139538139602%_ + _%id139539139604%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop139426139462%_ - _%target139423139457%_ + (_%loop139532139568%_ + _%target139529139563%_ '() '())) - (_%g139416139444%_ - _%g139417139447%_))))) - (_%g139416139444%_ _%g139417139447%_)))) - (_%g139416139444%_ _%g139417139447%_))))) - (_%g139415139532%_ _%stx139412%_))))) + (_%g139522139550%_ + _%g139523139553%_))))) + (_%g139522139550%_ _%g139523139553%_)))) + (_%g139522139550%_ _%g139523139553%_))))) + (_%g139521139638%_ _%stx139518%_))))) (define gxc#generate-meta-define-values% - (lambda (_%self139201%_ _%stx139202%_) - (letrec ((_%generate1139204%_ - (lambda (_%id139406%_) - (let ((_%eid139408%_ + (lambda (_%self139307%_ _%stx139308%_) + (letrec ((_%generate1139310%_ + (lambda (_%id139512%_) + (let ((_%eid139514%_ (let () (declare (not safe)) - (gxc#generate-runtime-binding-id _%id139406%_))) - (_%ident139409%_ - (gxc#generate-runtime-identifier _%id139406%_))) + (gxc#generate-runtime-binding-id _%id139512%_))) + (_%ident139515%_ + (gxc#generate-runtime-identifier _%id139512%_))) (cons '%#define-runtime - (cons _%ident139409%_ (cons _%eid139408%_ '())))))) - (_%generate*139205%_ - (lambda (_%all139374%_) - (let* ((_%all139375139383%_ _%all139374%_) - (_%else139377139391%_ - (lambda () (cons '%#begin _%all139374%_))) - (_%K139379139396%_ - (lambda (_%one139394%_) _%one139394%_))) - (if (pair? _%all139375139383%_) - (let ((_%hd139380139399%_ + (cons _%ident139515%_ (cons _%eid139514%_ '())))))) + (_%generate*139311%_ + (lambda (_%all139480%_) + (let* ((_%all139481139489%_ _%all139480%_) + (_%else139483139497%_ + (lambda () (cons '%#begin _%all139480%_))) + (_%K139485139502%_ + (lambda (_%one139500%_) _%one139500%_))) + (if (pair? _%all139481139489%_) + (let ((_%hd139486139505%_ (let () (declare (not safe)) - (##car _%all139375139383%_))) - (_%tl139381139401%_ + (##car _%all139481139489%_))) + (_%tl139487139507%_ (let () (declare (not safe)) - (##cdr _%all139375139383%_)))) - (let ((_%one139404%_ _%hd139380139399%_)) - (if (null? _%tl139381139401%_) - (_%K139379139396%_ _%one139404%_) - (_%else139377139391%_)))) - (_%else139377139391%_)))))) - (let* ((_%g139207139224%_ - (lambda (_%g139208139221%_) + (##cdr _%all139481139489%_)))) + (let ((_%one139510%_ _%hd139486139505%_)) + (if (null? _%tl139487139507%_) + (_%K139485139502%_ _%one139510%_) + (_%else139483139497%_)))) + (_%else139483139497%_)))))) + (let* ((_%g139313139330%_ + (lambda (_%g139314139327%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139208139221%_)))) - (_%g139206139371%_ - (lambda (_%g139208139227%_) + _%g139314139327%_)))) + (_%g139312139477%_ + (lambda (_%g139314139333%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139208139227%_)) - (let ((_%e139211139229%_ + (gx#stx-pair? _%g139314139333%_)) + (let ((_%e139317139335%_ (let () (declare (not safe)) - (gx#stx-e _%g139208139227%_)))) - (let ((_%hd139212139232%_ + (gx#stx-e _%g139314139333%_)))) + (let ((_%hd139318139338%_ (let () (declare (not safe)) - (##car _%e139211139229%_))) - (_%tl139213139234%_ + (##car _%e139317139335%_))) + (_%tl139319139340%_ (let () (declare (not safe)) - (##cdr _%e139211139229%_)))) + (##cdr _%e139317139335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139213139234%_)) - (let ((_%e139214139237%_ + (gx#stx-pair? _%tl139319139340%_)) + (let ((_%e139320139343%_ (let () (declare (not safe)) - (gx#stx-e _%tl139213139234%_)))) - (let ((_%hd139215139240%_ + (gx#stx-e _%tl139319139340%_)))) + (let ((_%hd139321139346%_ (let () (declare (not safe)) - (##car _%e139214139237%_))) - (_%tl139216139242%_ + (##car _%e139320139343%_))) + (_%tl139322139348%_ (let () (declare (not safe)) - (##cdr _%e139214139237%_)))) + (##cdr _%e139320139343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139216139242%_)) - (let ((_%e139217139245%_ + (gx#stx-pair? _%tl139322139348%_)) + (let ((_%e139323139351%_ (let () (declare (not safe)) (gx#stx-e - _%tl139216139242%_)))) - (let ((_%hd139218139248%_ + _%tl139322139348%_)))) + (let ((_%hd139324139354%_ (let () (declare (not safe)) - (##car _%e139217139245%_))) - (_%tl139219139250%_ + (##car _%e139323139351%_))) + (_%tl139325139356%_ (let () (declare (not safe)) - (##cdr _%e139217139245%_)))) + (##cdr _%e139323139351%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139219139250%_)) - ((lambda (_%L139253%_ - _%L139254%_) - (let _%lp139270%_ ((_%rest139272%_ + _%tl139325139356%_)) + ((lambda (_%L139359%_ + _%L139360%_) + (let _%lp139376%_ ((_%rest139378%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139254%_) - (_%r139273%_ '())) + _%L139360%_) + (_%r139379%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx148949148950%_ - _%rest139272%_) - (_%g139278139295%_ + (let* ((_%__stx149055149056%_ + _%rest139378%_) + (_%g139384139401%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14038,160 +14038,160 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148949148950%_))))) - (let ((_%__kont148951148952%_ - (lambda (_%L139358%_) - (_%lp139270%_ _%L139358%_ _%r139273%_))) - (_%__kont148953148954%_ - (lambda (_%L139331%_ _%L139332%_) - (_%lp139270%_ - _%L139331%_ - (cons (_%generate1139204%_ _%L139332%_) - _%r139273%_)))) - (_%__kont148955148956%_ - (lambda (_%L139307%_) - (_%generate*139205%_ - (let ((__tmp149214 - (cons (_%generate1139204%_ _%L139307%_) '()))) + _%__stx149055149056%_))))) + (let ((_%__kont149057149058%_ + (lambda (_%L139464%_) + (_%lp139376%_ _%L139464%_ _%r139379%_))) + (_%__kont149059149060%_ + (lambda (_%L139437%_ _%L139438%_) + (_%lp139376%_ + _%L139437%_ + (cons (_%generate1139310%_ _%L139438%_) + _%r139379%_)))) + (_%__kont149061149062%_ + (lambda (_%L139413%_) + (_%generate*139311%_ + (let ((__tmp149320 + (cons (_%generate1139310%_ _%L139413%_) '()))) (declare (not safe)) - (__foldl1 cons __tmp149214 _%r139273%_))))) - (_%__kont148957148958%_ - (lambda () (_%generate*139205%_ (reverse _%r139273%_))))) - (let ((_%g139276139318%_ + (__foldl1 cons __tmp149320 _%r139379%_))))) + (_%__kont149063149064%_ + (lambda () (_%generate*139311%_ (reverse _%r139379%_))))) + (let ((_%g139382139424%_ (lambda () - (let ((_%L139307%_ _%__stx148949148950%_)) + (let ((_%L139413%_ _%__stx149055149056%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L139307%_)) - (_%__kont148955148956%_ _%L139307%_) - (_%__kont148957148958%_)))))) + (gx#identifier? _%L139413%_)) + (_%__kont149061149062%_ _%L139413%_) + (_%__kont149063149064%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148949148950%_)) - (let ((_%e139281139347%_ + (gx#stx-pair? _%__stx149055149056%_)) + (let ((_%e139387139453%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148949148950%_)))) - (let ((_%tl139283139352%_ + (gx#stx-e _%__stx149055149056%_)))) + (let ((_%tl139389139458%_ (let () (declare (not safe)) - (##cdr _%e139281139347%_))) - (_%hd139282139350%_ + (##cdr _%e139387139453%_))) + (_%hd139388139456%_ (let () (declare (not safe)) - (##car _%e139281139347%_)))) + (##car _%e139387139453%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd139282139350%_)) - (let ((_%e139284139355%_ + (gx#stx-datum? _%hd139388139456%_)) + (let ((_%e139390139461%_ (let () (declare (not safe)) - (gx#stx-e _%hd139282139350%_)))) - (if (equal? _%e139284139355%_ '#f) - (_%__kont148951148952%_ - _%tl139283139352%_) - (_%__kont148953148954%_ - _%tl139283139352%_ - _%hd139282139350%_))) - (_%__kont148953148954%_ - _%tl139283139352%_ - _%hd139282139350%_)))) - (let () (declare (not safe)) (_%g139276139318%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139218139248%_ - _%hd139215139240%_) - (_%g139207139224%_ - _%g139208139227%_)))) - (_%g139207139224%_ - _%g139208139227%_)))) - (_%g139207139224%_ _%g139208139227%_)))) - (_%g139207139224%_ _%g139208139227%_))))) - (_%g139206139371%_ _%stx139202%_))))) + (gx#stx-e _%hd139388139456%_)))) + (if (equal? _%e139390139461%_ '#f) + (_%__kont149057149058%_ + _%tl139389139458%_) + (_%__kont149059149060%_ + _%tl139389139458%_ + _%hd139388139456%_))) + (_%__kont149059149060%_ + _%tl139389139458%_ + _%hd139388139456%_)))) + (let () (declare (not safe)) (_%g139382139424%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139324139354%_ + _%hd139321139346%_) + (_%g139313139330%_ + _%g139314139333%_)))) + (_%g139313139330%_ + _%g139314139333%_)))) + (_%g139313139330%_ _%g139314139333%_)))) + (_%g139313139330%_ _%g139314139333%_))))) + (_%g139312139477%_ _%stx139308%_))))) (define gxc#generate-meta-define-syntax% - (lambda (_%self139098%_ _%stx139099%_) - (let* ((_%g139101139118%_ - (lambda (_%g139102139115%_) + (lambda (_%self139204%_ _%stx139205%_) + (let* ((_%g139207139224%_ + (lambda (_%g139208139221%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139102139115%_)))) - (_%g139100139198%_ - (lambda (_%g139102139121%_) + _%g139208139221%_)))) + (_%g139206139304%_ + (lambda (_%g139208139227%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139102139121%_)) - (let ((_%e139105139123%_ + (gx#stx-pair? _%g139208139227%_)) + (let ((_%e139211139229%_ (let () (declare (not safe)) - (gx#stx-e _%g139102139121%_)))) - (let ((_%hd139106139126%_ + (gx#stx-e _%g139208139227%_)))) + (let ((_%hd139212139232%_ (let () (declare (not safe)) - (##car _%e139105139123%_))) - (_%tl139107139128%_ + (##car _%e139211139229%_))) + (_%tl139213139234%_ (let () (declare (not safe)) - (##cdr _%e139105139123%_)))) + (##cdr _%e139211139229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139107139128%_)) - (let ((_%e139108139131%_ + (gx#stx-pair? _%tl139213139234%_)) + (let ((_%e139214139237%_ (let () (declare (not safe)) - (gx#stx-e _%tl139107139128%_)))) - (let ((_%hd139109139134%_ + (gx#stx-e _%tl139213139234%_)))) + (let ((_%hd139215139240%_ (let () (declare (not safe)) - (##car _%e139108139131%_))) - (_%tl139110139136%_ + (##car _%e139214139237%_))) + (_%tl139216139242%_ (let () (declare (not safe)) - (##cdr _%e139108139131%_)))) + (##cdr _%e139214139237%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139110139136%_)) - (let ((_%e139111139139%_ + (gx#stx-pair? _%tl139216139242%_)) + (let ((_%e139217139245%_ (let () (declare (not safe)) - (gx#stx-e _%tl139110139136%_)))) - (let ((_%hd139112139142%_ + (gx#stx-e _%tl139216139242%_)))) + (let ((_%hd139218139248%_ (let () (declare (not safe)) - (##car _%e139111139139%_))) - (_%tl139113139144%_ + (##car _%e139217139245%_))) + (_%tl139219139250%_ (let () (declare (not safe)) - (##cdr _%e139111139139%_)))) + (##cdr _%e139217139245%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139113139144%_)) - ((lambda (_%L139147%_ - _%L139148%_) - (let* ((_%eid139163%_ + _%tl139219139250%_)) + ((lambda (_%L139253%_ + _%L139254%_) + (let* ((_%eid139269%_ (let () (declare (not safe)) (gxc#generate-runtime-binding-id - _%L139148%_))) - (_%phi139165%_ - (let ((__tmp149215 + _%L139254%_))) + (_%phi139271%_ + (let ((__tmp149321 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp149215 '1))) - (_%block139167%_ + (##fx+ __tmp149321 '1))) + (_%block139273%_ (gxc#meta-state-begin-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139098%_ 'state)) - _%phi139165%_))) + (slot-ref__0 _%self139204%_ 'state)) + _%phi139271%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g139170139177%_ - (lambda (_%g139171139174%_) + (let* ((_%g139276139283%_ + (lambda (_%g139277139280%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14199,24 +14199,24 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139171139174%_)))) - (_%g139169139195%_ - (lambda (_%g139171139180%_) - ((lambda (_%L139182%_) + _%g139277139280%_)))) + (_%g139275139301%_ + (lambda (_%g139277139286%_) + ((lambda (_%L139288%_) (gxc#meta-state-add-phi! (let () (declare (not safe)) - (slot-ref__0 _%self139098%_ 'state)) - _%phi139165%_ + (slot-ref__0 _%self139204%_ 'state)) + _%phi139271%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#define-runtime)) - (cons _%L139182%_ (cons _%L139147%_ '()))))) - _%g139171139180%_)))) + (cons _%L139288%_ (cons _%L139253%_ '()))))) + _%g139277139286%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g139169139195%_ - _%eid139163%_)) - (if _%block139167%_ + (_%g139275139301%_ + _%eid139269%_)) + (if _%block139273%_ (cons '%#begin (cons (cons '%#begin-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -14225,7 +14225,7 @@ (cons 'load-module '())) (cons (cons '%#quote - (cons _%block139167%_ + (cons _%block139273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) @@ -14233,129 +14233,129 @@ '())) (cons (cons '%#define-syntax (cons (gxc#generate-runtime-identifier - _%L139148%_) - (cons _%eid139163%_ '()))) + _%L139254%_) + (cons _%eid139269%_ '()))) '()))) (cons '%#define-syntax - (cons (gxc#generate-runtime-identifier _%L139148%_) - (cons _%eid139163%_ '())))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139112139142%_ - _%hd139109139134%_) - (_%g139101139118%_ - _%g139102139121%_)))) - (_%g139101139118%_ _%g139102139121%_)))) - (_%g139101139118%_ _%g139102139121%_)))) - (_%g139101139118%_ _%g139102139121%_))))) - (_%g139100139198%_ _%stx139099%_)))) + (cons (gxc#generate-runtime-identifier _%L139254%_) + (cons _%eid139269%_ '())))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd139218139248%_ + _%hd139215139240%_) + (_%g139207139224%_ + _%g139208139227%_)))) + (_%g139207139224%_ _%g139208139227%_)))) + (_%g139207139224%_ _%g139208139227%_)))) + (_%g139207139224%_ _%g139208139227%_))))) + (_%g139206139304%_ _%stx139205%_)))) (define gxc#generate-meta-define-alias% - (lambda (_%self139030%_ _%stx139031%_) - (let* ((_%g139033139050%_ - (lambda (_%g139034139047%_) + (lambda (_%self139136%_ _%stx139137%_) + (let* ((_%g139139139156%_ + (lambda (_%g139140139153%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g139034139047%_)))) - (_%g139032139095%_ - (lambda (_%g139034139053%_) + _%g139140139153%_)))) + (_%g139138139201%_ + (lambda (_%g139140139159%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g139034139053%_)) - (let ((_%e139037139055%_ + (gx#stx-pair? _%g139140139159%_)) + (let ((_%e139143139161%_ (let () (declare (not safe)) - (gx#stx-e _%g139034139053%_)))) - (let ((_%hd139038139058%_ + (gx#stx-e _%g139140139159%_)))) + (let ((_%hd139144139164%_ (let () (declare (not safe)) - (##car _%e139037139055%_))) - (_%tl139039139060%_ + (##car _%e139143139161%_))) + (_%tl139145139166%_ (let () (declare (not safe)) - (##cdr _%e139037139055%_)))) + (##cdr _%e139143139161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139039139060%_)) - (let ((_%e139040139063%_ + (gx#stx-pair? _%tl139145139166%_)) + (let ((_%e139146139169%_ (let () (declare (not safe)) - (gx#stx-e _%tl139039139060%_)))) - (let ((_%hd139041139066%_ + (gx#stx-e _%tl139145139166%_)))) + (let ((_%hd139147139172%_ (let () (declare (not safe)) - (##car _%e139040139063%_))) - (_%tl139042139068%_ + (##car _%e139146139169%_))) + (_%tl139148139174%_ (let () (declare (not safe)) - (##cdr _%e139040139063%_)))) + (##cdr _%e139146139169%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl139042139068%_)) - (let ((_%e139043139071%_ + (gx#stx-pair? _%tl139148139174%_)) + (let ((_%e139149139177%_ (let () (declare (not safe)) - (gx#stx-e _%tl139042139068%_)))) - (let ((_%hd139044139074%_ + (gx#stx-e _%tl139148139174%_)))) + (let ((_%hd139150139180%_ (let () (declare (not safe)) - (##car _%e139043139071%_))) - (_%tl139045139076%_ + (##car _%e139149139177%_))) + (_%tl139151139182%_ (let () (declare (not safe)) - (##cdr _%e139043139071%_)))) + (##cdr _%e139149139177%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl139045139076%_)) - ((lambda (_%L139079%_ - _%L139080%_) + _%tl139151139182%_)) + ((lambda (_%L139185%_ + _%L139186%_) (cons '%#define-alias (cons (gxc#generate-runtime-identifier - _%L139080%_) + _%L139186%_) (cons (gxc#generate-runtime-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L139079%_) + _%L139185%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd139044139074%_ - _%hd139041139066%_) - (_%g139033139050%_ - _%g139034139053%_)))) - (_%g139033139050%_ _%g139034139053%_)))) - (_%g139033139050%_ _%g139034139053%_)))) - (_%g139033139050%_ _%g139034139053%_))))) - (_%g139032139095%_ _%stx139031%_)))) + _%hd139150139180%_ + _%hd139147139172%_) + (_%g139139139156%_ + _%g139140139159%_)))) + (_%g139139139156%_ _%g139140139159%_)))) + (_%g139139139156%_ _%g139140139159%_)))) + (_%g139139139156%_ _%g139140139159%_))))) + (_%g139138139201%_ _%stx139137%_)))) (define gxc#generate-meta-phi-define-values% - (lambda (_%self139027%_ _%stx139028%_) + (lambda (_%self139133%_ _%stx139134%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139027%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self139133%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx139028%_) - (gxc#generate-meta-define-values% _%self139027%_ _%stx139028%_))) + _%stx139134%_) + (gxc#generate-meta-define-values% _%self139133%_ _%stx139134%_))) (define gxc#generate-meta-phi-expr - (lambda (_%self139024%_ _%stx139025%_) + (lambda (_%self139130%_ _%stx139131%_) (gxc#meta-state-add-phi! - (let () (declare (not safe)) (slot-ref__0 _%self139024%_ 'state)) + (let () (declare (not safe)) (slot-ref__0 _%self139130%_ 'state)) (let () (declare (not safe)) (gx#current-expander-phi)) - _%stx139025%_) + _%stx139131%_) '#!void)) (define gxc#meta-state::t - (let ((__tmp149217 (list)) (__tmp149216 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149323 (list)) (__tmp149322 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state::t 'meta-state - __tmp149217 + __tmp149323 '(src n open blocks) - __tmp149216 + __tmp149322 ':init!))) (define gxc#meta-state? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state::t))) (define gxc#make-meta-state - (lambda _%$args139021%_ - (apply make-instance gxc#meta-state::t _%$args139021%_))) + (lambda _%$args139127%_ + (apply make-instance gxc#meta-state::t _%$args139127%_))) (define gxc#meta-state-src (let () (declare (not safe)) @@ -14421,77 +14421,77 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state::t 'blocks))) (define gxc#meta-state:::init! - (lambda (_%self138366139005%_ _%ctx139007%_) - (let* ((_%self139009%_ _%self138366139005%_) - (_%self139011%_ _%self139009%_)) - (if (let ((__tmp149218 + (lambda (_%self138472139111%_ _%ctx139113%_) + (let* ((_%self139115%_ _%self138472139111%_) + (_%self139117%_ _%self139115%_)) + (if (let ((__tmp149324 (let () (declare (not safe)) - (##structure-length _%self139011%_)))) + (##structure-length _%self139117%_)))) (declare (not safe)) - (##fx< '4 __tmp149218)) + (##fx< '4 __tmp149324)) (begin - (let ((__tmp149219 - (let ((__tmp149220 + (let ((__tmp149325 + (let ((__tmp149326 (##structure-ref - _%ctx139007%_ + _%ctx139113%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp149220)))) + (gxc#module-id->path-string __tmp149326)))) (declare (not safe)) (##unchecked-structure-set! - _%self139011%_ - __tmp149219 + _%self139117%_ + __tmp149325 '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self139011%_ '1 '2 '#f '#f)) - (let ((__tmp149221 + (##unchecked-structure-set! _%self139117%_ '1 '2 '#f '#f)) + (let ((__tmp149327 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self139011%_ - __tmp149221 + _%self139117%_ + __tmp149327 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self139011%_ '() '4 '#f '#f)) + (##unchecked-structure-set! _%self139117%_ '() '4 '#f '#f)) '#!void) - (let ((__tmp149222 + (let ((__tmp149328 (let () (declare (not safe)) - (##vector-length _%self139011%_)))) + (##vector-length _%self139117%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self139011%_ + _%self139117%_ '4 - __tmp149222)))))) + __tmp149328)))))) (let () (declare (not safe)) (__bind-method!__% gxc#meta-state::t ':init! gxc#meta-state:::init! '#f)) (define gxc#meta-state-block::t - (let ((__tmp149224 (list)) (__tmp149223 (cons (cons 'struct: '#t) '()))) + (let ((__tmp149330 (list)) (__tmp149329 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#meta-state-block::t 'meta-state-block - __tmp149224 + __tmp149330 '(ctx phi n code) - __tmp149223 + __tmp149329 '#f))) (define gxc#meta-state-block? (let () (declare (not safe)) (__make-class-predicate gxc#meta-state-block::t))) (define gxc#make-meta-state-block - (lambda _%$args138880%_ - (apply make-instance gxc#meta-state-block::t _%$args138880%_))) + (lambda _%$args138986%_ + (apply make-instance gxc#meta-state-block::t _%$args138986%_))) (define gxc#meta-state-block-ctx (let () (declare (not safe)) @@ -14557,100 +14557,100 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#meta-state-block::t 'code))) (define gxc#meta-state-begin-phi! - (lambda (_%state138839%_ _%phi138840%_) - (let* ((_%state138841138849%_ _%state138839%_) - (_%E138843138853%_ + (lambda (_%state138945%_ _%phi138946%_) + (let* ((_%state138947138955%_ _%state138945%_) + (_%E138949138959%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%state138841138849%_ + _%state138947138955%_ '((meta-state src n open)))) '#!void)) - (_%K138844138862%_ - (lambda (_%open138856%_ _%n138857%_ _%src138858%_) + (_%K138950138968%_ + (lambda (_%open138962%_ _%n138963%_ _%src138964%_) (if (let () (declare (not safe)) - (hash-get _%open138856%_ _%phi138840%_)) + (hash-get _%open138962%_ _%phi138946%_)) '#f - (let ((_%block-ref138860%_ - (let ((__tmp149225 (number->string _%n138857%_))) + (let ((_%block-ref138966%_ + (let ((__tmp149331 (number->string _%n138963%_))) (declare (not safe)) (##string-append - _%src138858%_ + _%src138964%_ '"~" - __tmp149225)))) + __tmp149331)))) (##structure-set! - _%state138839%_ - (let () (declare (not safe)) (##fx+ _%n138857%_ '1)) + _%state138945%_ + (let () (declare (not safe)) (##fx+ _%n138963%_ '1)) '2 gxc#meta-state::t '#f) - (let ((__tmp149226 - (let ((__tmp149227 + (let ((__tmp149332 + (let ((__tmp149333 (let () (declare (not safe)) (gx#current-expander-context)))) (declare (not safe)) (##structure gxc#meta-state-block::t - __tmp149227 - _%phi138840%_ - _%n138857%_ + __tmp149333 + _%phi138946%_ + _%n138963%_ '())))) (declare (not safe)) - (hash-put! _%open138856%_ _%phi138840%_ __tmp149226)) - _%block-ref138860%_))))) + (hash-put! _%open138962%_ _%phi138946%_ __tmp149332)) + _%block-ref138966%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%state138841138849%_ + _%state138947138955%_ 'gxc#meta-state::t)) - (let* ((_%e138845138865%_ + (let* ((_%e138951138971%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138841138849%_ + _%state138947138955%_ '1 '#f '#f))) - (_%src138868%_ _%e138845138865%_) - (_%e138846138870%_ + (_%src138974%_ _%e138951138971%_) + (_%e138952138976%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138841138849%_ + _%state138947138955%_ '2 '#f '#f))) - (_%n138873%_ _%e138846138870%_) - (_%e138847138875%_ + (_%n138979%_ _%e138952138976%_) + (_%e138953138981%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%state138841138849%_ + _%state138947138955%_ '3 '#f '#f))) - (_%open138878%_ _%e138847138875%_)) - (_%K138844138862%_ _%open138878%_ _%n138873%_ _%src138868%_)) - (_%E138843138853%_))))) + (_%open138984%_ _%e138953138981%_)) + (_%K138950138968%_ _%open138984%_ _%n138979%_ _%src138974%_)) + (_%E138949138959%_))))) (define gxc#meta-state-add-phi! - (lambda (_%state138833%_ _%phi138834%_ _%stx138835%_) - (let ((_%block138837%_ - (let ((__tmp149228 + (lambda (_%state138939%_ _%phi138940%_ _%stx138941%_) + (let ((_%block138943%_ + (let ((__tmp149334 (##structure-ref - _%state138833%_ + _%state138939%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-get __tmp149228 _%phi138834%_)))) + (hash-get __tmp149334 _%phi138940%_)))) (##structure-set! - _%block138837%_ - (cons _%stx138835%_ + _%block138943%_ + (cons _%stx138941%_ (##structure-ref - _%block138837%_ + _%block138943%_ '4 gxc#meta-state-block::t '#f)) @@ -14658,264 +14658,264 @@ gxc#meta-state-block::t '#f)))) (define gxc#meta-state-end-phi! - (lambda (_%state138827%_) + (lambda (_%state138933%_) (##structure-set! - _%state138827%_ - (let ((__tmp149231 - (lambda (_%_138829%_ _%block138830%_ _%r138831%_) - (cons _%block138830%_ _%r138831%_))) - (__tmp149230 - (##structure-ref _%state138827%_ '4 gxc#meta-state::t '#f)) - (__tmp149229 - (##structure-ref _%state138827%_ '3 gxc#meta-state::t '#f))) + _%state138933%_ + (let ((__tmp149337 + (lambda (_%_138935%_ _%block138936%_ _%r138937%_) + (cons _%block138936%_ _%r138937%_))) + (__tmp149336 + (##structure-ref _%state138933%_ '4 gxc#meta-state::t '#f)) + (__tmp149335 + (##structure-ref _%state138933%_ '3 gxc#meta-state::t '#f))) (declare (not safe)) - (hash-fold __tmp149231 __tmp149230 __tmp149229)) + (hash-fold __tmp149337 __tmp149336 __tmp149335)) '4 gxc#meta-state::t '#f) (##structure-set! - _%state138827%_ + _%state138933%_ (let () (declare (not safe)) (make-hash-table-eq)) '3 gxc#meta-state::t '#f))) (define gxc#meta-state-end! - (lambda (_%state138779%_) - (gxc#meta-state-end-phi! _%state138779%_) - (let ((__tmp149233 - (lambda (_%block138781%_ _%r138782%_) - (let* ((_%block138783138792%_ _%block138781%_) - (_%E138785138796%_ + (lambda (_%state138885%_) + (gxc#meta-state-end-phi! _%state138885%_) + (let ((__tmp149339 + (lambda (_%block138887%_ _%r138888%_) + (let* ((_%block138889138898%_ _%block138887%_) + (_%E138891138902%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block138783138792%_ + _%block138889138898%_ '((meta-state-block ctx phi n code)))) '#!void)) - (_%K138786138804%_ - (lambda (_%code138799%_ - _%n138800%_ - _%phi138801%_ - _%ctx138802%_) - (if (null? _%code138799%_) - _%r138782%_ - (cons (cons _%ctx138802%_ - (cons _%phi138801%_ - (cons _%n138800%_ + (_%K138892138910%_ + (lambda (_%code138905%_ + _%n138906%_ + _%phi138907%_ + _%ctx138908%_) + (if (null? _%code138905%_) + _%r138888%_ + (cons (cons _%ctx138908%_ + (cons _%phi138907%_ + (cons _%n138906%_ (cons (cons '%#begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (reverse _%code138799%_)) + (reverse _%code138905%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r138782%_))))) + _%r138888%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%block138783138792%_ + _%block138889138898%_ 'gxc#meta-state-block::t)) - (let* ((_%e138787138807%_ + (let* ((_%e138893138913%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138783138792%_ + _%block138889138898%_ '1 '#f '#f))) - (_%ctx138810%_ _%e138787138807%_) - (_%e138788138812%_ + (_%ctx138916%_ _%e138893138913%_) + (_%e138894138918%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138783138792%_ + _%block138889138898%_ '2 '#f '#f))) - (_%phi138815%_ _%e138788138812%_) - (_%e138789138817%_ + (_%phi138921%_ _%e138894138918%_) + (_%e138895138923%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138783138792%_ + _%block138889138898%_ '3 '#f '#f))) - (_%n138820%_ _%e138789138817%_) - (_%e138790138822%_ + (_%n138926%_ _%e138895138923%_) + (_%e138896138928%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%block138783138792%_ + _%block138889138898%_ '4 '#f '#f))) - (_%code138825%_ _%e138790138822%_)) - (_%K138786138804%_ - _%code138825%_ - _%n138820%_ - _%phi138815%_ - _%ctx138810%_)) - (_%E138785138796%_))))) - (__tmp149232 - (##structure-ref _%state138779%_ '4 gxc#meta-state::t '#f))) + (_%code138931%_ _%e138896138928%_)) + (_%K138892138910%_ + _%code138931%_ + _%n138926%_ + _%phi138921%_ + _%ctx138916%_)) + (_%E138891138902%_))))) + (__tmp149338 + (##structure-ref _%state138885%_ '4 gxc#meta-state::t '#f))) (declare (not safe)) - (__foldl1 __tmp149233 '() __tmp149232)))) + (__foldl1 __tmp149339 '() __tmp149338)))) (define gxc#collect-expression-refs - (lambda (_%stx138775%_) - (let ((_%ht138777%_ + (lambda (_%stx138881%_) + (let ((_%ht138883%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (gxc#apply-collect-expression-refs__% '#f _%ht138777%_ _%stx138775%_) - _%ht138777%_))) + (gxc#apply-collect-expression-refs__% '#f _%ht138883%_ _%stx138881%_) + _%ht138883%_))) (define gxc#collect-refs-ref% - (lambda (_%self138718%_ _%stx138719%_) - (let* ((_%g138721138734%_ - (lambda (_%g138722138731%_) + (lambda (_%self138824%_ _%stx138825%_) + (let* ((_%g138827138840%_ + (lambda (_%g138828138837%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138722138731%_)))) - (_%g138720138772%_ - (lambda (_%g138722138737%_) + _%g138828138837%_)))) + (_%g138826138878%_ + (lambda (_%g138828138843%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138722138737%_)) - (let ((_%e138724138739%_ + (gx#stx-pair? _%g138828138843%_)) + (let ((_%e138830138845%_ (let () (declare (not safe)) - (gx#stx-e _%g138722138737%_)))) - (let ((_%hd138725138742%_ + (gx#stx-e _%g138828138843%_)))) + (let ((_%hd138831138848%_ (let () (declare (not safe)) - (##car _%e138724138739%_))) - (_%tl138726138744%_ + (##car _%e138830138845%_))) + (_%tl138832138850%_ (let () (declare (not safe)) - (##cdr _%e138724138739%_)))) + (##cdr _%e138830138845%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138726138744%_)) - (let ((_%e138727138747%_ + (gx#stx-pair? _%tl138832138850%_)) + (let ((_%e138833138853%_ (let () (declare (not safe)) - (gx#stx-e _%tl138726138744%_)))) - (let ((_%hd138728138750%_ + (gx#stx-e _%tl138832138850%_)))) + (let ((_%hd138834138856%_ (let () (declare (not safe)) - (##car _%e138727138747%_))) - (_%tl138729138752%_ + (##car _%e138833138853%_))) + (_%tl138835138858%_ (let () (declare (not safe)) - (##cdr _%e138727138747%_)))) + (##cdr _%e138833138853%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138729138752%_)) - ((lambda (_%L138755%_) - (let* ((_%bind138767%_ + (gx#stx-null? _%tl138835138858%_)) + ((lambda (_%L138861%_) + (let* ((_%bind138873%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138755%_))) - (_%eid138769%_ - (if _%bind138767%_ + _%L138861%_))) + (_%eid138875%_ + (if _%bind138873%_ (##structure-ref - _%bind138767%_ + _%bind138873%_ '1 gx#binding::t '#f) (let () (declare (not safe)) (gx#stx-e - _%L138755%_)))) - (__tmp149234 + _%L138861%_)))) + (__tmp149340 (let () (declare (not safe)) (slot-ref__0 - _%self138718%_ + _%self138824%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149234 - _%eid138769%_ - _%eid138769%_))) - _%hd138728138750%_) - (_%g138721138734%_ _%g138722138737%_)))) - (_%g138721138734%_ _%g138722138737%_)))) - (_%g138721138734%_ _%g138722138737%_))))) - (_%g138720138772%_ _%stx138719%_)))) + __tmp149340 + _%eid138875%_ + _%eid138875%_))) + _%hd138834138856%_) + (_%g138827138840%_ _%g138828138843%_)))) + (_%g138827138840%_ _%g138828138843%_)))) + (_%g138827138840%_ _%g138828138843%_))))) + (_%g138826138878%_ _%stx138825%_)))) (define gxc#collect-refs-setq% - (lambda (_%self138645%_ _%stx138646%_) - (let* ((_%g138648138665%_ - (lambda (_%g138649138662%_) + (lambda (_%self138751%_ _%stx138752%_) + (let* ((_%g138754138771%_ + (lambda (_%g138755138768%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138649138662%_)))) - (_%g138647138715%_ - (lambda (_%g138649138668%_) + _%g138755138768%_)))) + (_%g138753138821%_ + (lambda (_%g138755138774%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138649138668%_)) - (let ((_%e138652138670%_ + (gx#stx-pair? _%g138755138774%_)) + (let ((_%e138758138776%_ (let () (declare (not safe)) - (gx#stx-e _%g138649138668%_)))) - (let ((_%hd138653138673%_ + (gx#stx-e _%g138755138774%_)))) + (let ((_%hd138759138779%_ (let () (declare (not safe)) - (##car _%e138652138670%_))) - (_%tl138654138675%_ + (##car _%e138758138776%_))) + (_%tl138760138781%_ (let () (declare (not safe)) - (##cdr _%e138652138670%_)))) + (##cdr _%e138758138776%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138654138675%_)) - (let ((_%e138655138678%_ + (gx#stx-pair? _%tl138760138781%_)) + (let ((_%e138761138784%_ (let () (declare (not safe)) - (gx#stx-e _%tl138654138675%_)))) - (let ((_%hd138656138681%_ + (gx#stx-e _%tl138760138781%_)))) + (let ((_%hd138762138787%_ (let () (declare (not safe)) - (##car _%e138655138678%_))) - (_%tl138657138683%_ + (##car _%e138761138784%_))) + (_%tl138763138789%_ (let () (declare (not safe)) - (##cdr _%e138655138678%_)))) + (##cdr _%e138761138784%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138657138683%_)) - (let ((_%e138658138686%_ + (gx#stx-pair? _%tl138763138789%_)) + (let ((_%e138764138792%_ (let () (declare (not safe)) - (gx#stx-e _%tl138657138683%_)))) - (let ((_%hd138659138689%_ + (gx#stx-e _%tl138763138789%_)))) + (let ((_%hd138765138795%_ (let () (declare (not safe)) - (##car _%e138658138686%_))) - (_%tl138660138691%_ + (##car _%e138764138792%_))) + (_%tl138766138797%_ (let () (declare (not safe)) - (##cdr _%e138658138686%_)))) + (##cdr _%e138764138792%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138660138691%_)) - ((lambda (_%L138694%_ - _%L138695%_) - (let* ((_%bind138710%_ + _%tl138766138797%_)) + ((lambda (_%L138800%_ + _%L138801%_) + (let* ((_%bind138816%_ (let () (declare (not safe)) (gx#resolve-identifier__0 - _%L138695%_))) - (_%eid138712%_ - (if _%bind138710%_ + _%L138801%_))) + (_%eid138818%_ + (if _%bind138816%_ (##structure-ref - _%bind138710%_ + _%bind138816%_ '1 gx#binding::t '#f) @@ -14923,382 +14923,382 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%L138695%_))))) + (gx#stx-e _%L138801%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp149235 + (let ((__tmp149341 (let () (declare (not safe)) (slot-ref__0 - _%self138645%_ + _%self138751%_ 'table)))) (declare (not safe)) (hash-put! - __tmp149235 - _%eid138712%_ - _%eid138712%_)) + __tmp149341 + _%eid138818%_ + _%eid138818%_)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138645%_ - _%L138694%_)))) - _%hd138659138689%_ - _%hd138656138681%_) - (_%g138648138665%_ - _%g138649138668%_)))) - (_%g138648138665%_ _%g138649138668%_)))) - (_%g138648138665%_ _%g138649138668%_)))) - (_%g138648138665%_ _%g138649138668%_))))) - (_%g138647138715%_ _%stx138646%_)))) + _%self138751%_ + _%L138800%_)))) + _%hd138765138795%_ + _%hd138762138787%_) + (_%g138754138771%_ + _%g138755138774%_)))) + (_%g138754138771%_ _%g138755138774%_)))) + (_%g138754138771%_ _%g138755138774%_)))) + (_%g138754138771%_ _%g138755138774%_))))) + (_%g138753138821%_ _%stx138752%_)))) (define gxc#find-runtime-begin% - (lambda (_%self138602%_ _%stx138603%_) - (let* ((_%g138605138615%_ - (lambda (_%g138606138612%_) + (lambda (_%self138708%_ _%stx138709%_) + (let* ((_%g138711138721%_ + (lambda (_%g138712138718%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138606138612%_)))) - (_%g138604138642%_ - (lambda (_%g138606138618%_) + _%g138712138718%_)))) + (_%g138710138748%_ + (lambda (_%g138712138724%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138606138618%_)) - (let ((_%e138608138620%_ + (gx#stx-pair? _%g138712138724%_)) + (let ((_%e138714138726%_ (let () (declare (not safe)) - (gx#stx-e _%g138606138618%_)))) - (let ((_%hd138609138623%_ + (gx#stx-e _%g138712138724%_)))) + (let ((_%hd138715138729%_ (let () (declare (not safe)) - (##car _%e138608138620%_))) - (_%tl138610138625%_ + (##car _%e138714138726%_))) + (_%tl138716138731%_ (let () (declare (not safe)) - (##cdr _%e138608138620%_)))) - ((lambda (_%L138628%_) - (let ((__tmp149236 - (lambda (_%g138637138639%_) + (##cdr _%e138714138726%_)))) + ((lambda (_%L138734%_) + (let ((__tmp149342 + (lambda (_%g138743138745%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self138602%_ - _%g138637138639%_))))) + _%self138708%_ + _%g138743138745%_))))) (declare (not safe)) - (__ormap1 __tmp149236 _%L138628%_))) - _%tl138610138625%_))) - (_%g138605138615%_ _%g138606138618%_))))) - (_%g138604138642%_ _%stx138603%_)))) + (__ormap1 __tmp149342 _%L138734%_))) + _%tl138716138731%_))) + (_%g138711138721%_ _%g138712138724%_))))) + (_%g138710138748%_ _%stx138709%_)))) (define gxc#count-values-single% - (lambda (_%self138599%_ _%stx138600%_) '1)) + (lambda (_%self138705%_ _%stx138706%_) '1)) (define gxc#count-values-call% - (lambda (_%self138465%_ _%stx138466%_) - (let* ((_%__stx148979148980%_ _%stx138466%_) - (_%g138469138498%_ + (lambda (_%self138571%_ _%stx138572%_) + (let* ((_%__stx149085149086%_ _%stx138572%_) + (_%g138575138604%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx148979148980%_))))) - (let ((_%__kont148981148982%_ - (lambda (_%L138566%_ _%L138567%_) - (length (let ((__tmp149237 - (lambda (_%g138588138591%_ _%g138589138593%_) - (cons _%g138588138591%_ - _%g138589138593%_)))) + _%__stx149085149086%_))))) + (let ((_%__kont149087149088%_ + (lambda (_%L138672%_ _%L138673%_) + (length (let ((__tmp149343 + (lambda (_%g138694138697%_ _%g138695138699%_) + (cons _%g138694138697%_ + _%g138695138699%_)))) (declare (not safe)) - (__foldr1 __tmp149237 '() _%L138566%_))))) - (_%__kont148985148986%_ (lambda () '#f))) - (let ((_%__match149024149025%_ - (lambda (_%e138473138510%_ - _%hd138474138513%_ - _%tl138475138515%_ - _%e138476138518%_ - _%hd138477138521%_ - _%tl138478138523%_ - _%e138479138526%_ - _%hd138480138529%_ - _%tl138481138531%_ - _%e138482138534%_ - _%hd138483138537%_ - _%tl138484138539%_ - _%__splice148983148984%_ - _%target138485138542%_ - _%tl138487138544%_) - (letrec ((_%loop138488138547%_ - (lambda (_%hd138486138550%_ - _%rand138492138552%_) + (__foldr1 __tmp149343 '() _%L138672%_))))) + (_%__kont149091149092%_ (lambda () '#f))) + (let ((_%__match149130149131%_ + (lambda (_%e138579138616%_ + _%hd138580138619%_ + _%tl138581138621%_ + _%e138582138624%_ + _%hd138583138627%_ + _%tl138584138629%_ + _%e138585138632%_ + _%hd138586138635%_ + _%tl138587138637%_ + _%e138588138640%_ + _%hd138589138643%_ + _%tl138590138645%_ + _%__splice149089149090%_ + _%target138591138648%_ + _%tl138593138650%_) + (letrec ((_%loop138594138653%_ + (lambda (_%hd138592138656%_ + _%rand138598138658%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138486138550%_)) - (let ((_%e138489138555%_ + (gx#stx-pair? _%hd138592138656%_)) + (let ((_%e138595138661%_ (let () (declare (not safe)) - (gx#stx-e _%hd138486138550%_)))) - (let ((_%lp-tl138491138560%_ + (gx#stx-e _%hd138592138656%_)))) + (let ((_%lp-tl138597138666%_ (let () (declare (not safe)) - (##cdr _%e138489138555%_))) - (_%lp-hd138490138558%_ + (##cdr _%e138595138661%_))) + (_%lp-hd138596138664%_ (let () (declare (not safe)) - (##car _%e138489138555%_)))) - (_%loop138488138547%_ - _%lp-tl138491138560%_ - (cons _%lp-hd138490138558%_ - _%rand138492138552%_)))) - (let ((_%rand138493138563%_ - (reverse _%rand138492138552%_))) - (let ((_%L138566%_ _%rand138493138563%_) - (_%L138567%_ _%hd138483138537%_)) + (##car _%e138595138661%_)))) + (_%loop138594138653%_ + _%lp-tl138597138666%_ + (cons _%lp-hd138596138664%_ + _%rand138598138658%_)))) + (let ((_%rand138599138669%_ + (reverse _%rand138598138658%_))) + (let ((_%L138672%_ _%rand138599138669%_) + (_%L138673%_ _%hd138589138643%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L138567%_ + _%L138673%_ 'values)) - (_%__kont148981148982%_ - _%L138566%_ - _%L138567%_) - (_%__kont148985148986%_)))))))) - (_%loop138488138547%_ _%target138485138542%_ '()))))) + (_%__kont149087149088%_ + _%L138672%_ + _%L138673%_) + (_%__kont149091149092%_)))))))) + (_%loop138594138653%_ _%target138591138648%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx148979148980%_)) - (let ((_%e138473138510%_ + (gx#stx-pair? _%__stx149085149086%_)) + (let ((_%e138579138616%_ (let () (declare (not safe)) - (gx#stx-e _%__stx148979148980%_)))) - (let ((_%tl138475138515%_ + (gx#stx-e _%__stx149085149086%_)))) + (let ((_%tl138581138621%_ (let () (declare (not safe)) - (##cdr _%e138473138510%_))) - (_%hd138474138513%_ + (##cdr _%e138579138616%_))) + (_%hd138580138619%_ (let () (declare (not safe)) - (##car _%e138473138510%_)))) + (##car _%e138579138616%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138475138515%_)) - (let ((_%e138476138518%_ + (gx#stx-pair? _%tl138581138621%_)) + (let ((_%e138582138624%_ (let () (declare (not safe)) - (gx#stx-e _%tl138475138515%_)))) - (let ((_%tl138478138523%_ + (gx#stx-e _%tl138581138621%_)))) + (let ((_%tl138584138629%_ (let () (declare (not safe)) - (##cdr _%e138476138518%_))) - (_%hd138477138521%_ + (##cdr _%e138582138624%_))) + (_%hd138583138627%_ (let () (declare (not safe)) - (##car _%e138476138518%_)))) + (##car _%e138582138624%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138477138521%_)) - (let ((_%e138479138526%_ + (gx#stx-pair? _%hd138583138627%_)) + (let ((_%e138585138632%_ (let () (declare (not safe)) - (gx#stx-e _%hd138477138521%_)))) - (let ((_%tl138481138531%_ + (gx#stx-e _%hd138583138627%_)))) + (let ((_%tl138587138637%_ (let () (declare (not safe)) - (##cdr _%e138479138526%_))) - (_%hd138480138529%_ + (##cdr _%e138585138632%_))) + (_%hd138586138635%_ (let () (declare (not safe)) - (##car _%e138479138526%_)))) + (##car _%e138585138632%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd138480138529%_)) + _%hd138586138635%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd138480138529%_)) + _%hd138586138635%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138481138531%_)) - (let ((_%e138482138534%_ + _%tl138587138637%_)) + (let ((_%e138588138640%_ (let () (declare (not safe)) (gx#stx-e - _%tl138481138531%_)))) - (let ((_%tl138484138539%_ + _%tl138587138637%_)))) + (let ((_%tl138590138645%_ (let () (declare (not safe)) - (##cdr _%e138482138534%_))) - (_%hd138483138537%_ + (##cdr _%e138588138640%_))) + (_%hd138589138643%_ (let () (declare (not safe)) - (##car _%e138482138534%_)))) + (##car _%e138588138640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138484138539%_)) + _%tl138590138645%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl138478138523%_)) - (let ((_%__splice148983148984%_ + (gx#stx-pair/null? _%tl138584138629%_)) + (let ((_%__splice149089149090%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138478138523%_ + _%tl138584138629%_ '0)))) - (let ((_%tl138487138544%_ + (let ((_%tl138593138650%_ (let () (declare (not safe)) - (##vector-ref _%__splice148983148984%_ '1))) - (_%target138485138542%_ + (##vector-ref _%__splice149089149090%_ '1))) + (_%target138591138648%_ (let () (declare (not safe)) - (##vector-ref _%__splice148983148984%_ '0)))) + (##vector-ref _%__splice149089149090%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138487138544%_)) - (_%__match149024149025%_ - _%e138473138510%_ - _%hd138474138513%_ - _%tl138475138515%_ - _%e138476138518%_ - _%hd138477138521%_ - _%tl138478138523%_ - _%e138479138526%_ - _%hd138480138529%_ - _%tl138481138531%_ - _%e138482138534%_ - _%hd138483138537%_ - _%tl138484138539%_ - _%__splice148983148984%_ - _%target138485138542%_ - _%tl138487138544%_) - (_%__kont148985148986%_)))) - (_%__kont148985148986%_)) - (_%__kont148985148986%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont148985148986%_)) - (_%__kont148985148986%_)) - (_%__kont148985148986%_)))) - (_%__kont148985148986%_)))) - (_%__kont148985148986%_)))) - (_%__kont148985148986%_))))))) + (gx#stx-null? _%tl138593138650%_)) + (_%__match149130149131%_ + _%e138579138616%_ + _%hd138580138619%_ + _%tl138581138621%_ + _%e138582138624%_ + _%hd138583138627%_ + _%tl138584138629%_ + _%e138585138632%_ + _%hd138586138635%_ + _%tl138587138637%_ + _%e138588138640%_ + _%hd138589138643%_ + _%tl138590138645%_ + _%__splice149089149090%_ + _%target138591138648%_ + _%tl138593138650%_) + (_%__kont149091149092%_)))) + (_%__kont149091149092%_)) + (_%__kont149091149092%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont149091149092%_)) + (_%__kont149091149092%_)) + (_%__kont149091149092%_)))) + (_%__kont149091149092%_)))) + (_%__kont149091149092%_)))) + (_%__kont149091149092%_))))))) (define gxc#count-values-if% - (lambda (_%self138368%_ _%stx138369%_) - (let* ((_%g138371138392%_ - (lambda (_%g138372138389%_) + (lambda (_%self138474%_ _%stx138475%_) + (let* ((_%g138477138498%_ + (lambda (_%g138478138495%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138372138389%_)))) - (_%g138370138462%_ - (lambda (_%g138372138395%_) + _%g138478138495%_)))) + (_%g138476138568%_ + (lambda (_%g138478138501%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138372138395%_)) - (let ((_%e138376138397%_ + (gx#stx-pair? _%g138478138501%_)) + (let ((_%e138482138503%_ (let () (declare (not safe)) - (gx#stx-e _%g138372138395%_)))) - (let ((_%hd138377138400%_ + (gx#stx-e _%g138478138501%_)))) + (let ((_%hd138483138506%_ (let () (declare (not safe)) - (##car _%e138376138397%_))) - (_%tl138378138402%_ + (##car _%e138482138503%_))) + (_%tl138484138508%_ (let () (declare (not safe)) - (##cdr _%e138376138397%_)))) + (##cdr _%e138482138503%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138378138402%_)) - (let ((_%e138379138405%_ + (gx#stx-pair? _%tl138484138508%_)) + (let ((_%e138485138511%_ (let () (declare (not safe)) - (gx#stx-e _%tl138378138402%_)))) - (let ((_%hd138380138408%_ + (gx#stx-e _%tl138484138508%_)))) + (let ((_%hd138486138514%_ (let () (declare (not safe)) - (##car _%e138379138405%_))) - (_%tl138381138410%_ + (##car _%e138485138511%_))) + (_%tl138487138516%_ (let () (declare (not safe)) - (##cdr _%e138379138405%_)))) + (##cdr _%e138485138511%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138381138410%_)) - (let ((_%e138382138413%_ + (gx#stx-pair? _%tl138487138516%_)) + (let ((_%e138488138519%_ (let () (declare (not safe)) - (gx#stx-e _%tl138381138410%_)))) - (let ((_%hd138383138416%_ + (gx#stx-e _%tl138487138516%_)))) + (let ((_%hd138489138522%_ (let () (declare (not safe)) - (##car _%e138382138413%_))) - (_%tl138384138418%_ + (##car _%e138488138519%_))) + (_%tl138490138524%_ (let () (declare (not safe)) - (##cdr _%e138382138413%_)))) + (##cdr _%e138488138519%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138384138418%_)) - (let ((_%e138385138421%_ + _%tl138490138524%_)) + (let ((_%e138491138527%_ (let () (declare (not safe)) (gx#stx-e - _%tl138384138418%_)))) - (let ((_%hd138386138424%_ + _%tl138490138524%_)))) + (let ((_%hd138492138530%_ (let () (declare (not safe)) - (##car _%e138385138421%_))) - (_%tl138387138426%_ + (##car _%e138491138527%_))) + (_%tl138493138532%_ (let () (declare (not safe)) - (##cdr _%e138385138421%_)))) + (##cdr _%e138491138527%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138387138426%_)) - ((lambda (_%L138429%_ - _%L138430%_ - _%L138431%_) - (let ((_%c1138448138450%_ + _%tl138493138532%_)) + ((lambda (_%L138535%_ + _%L138536%_ + _%L138537%_) + (let ((_%c1138554138556%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self138368%_ _%L138430%_)))) - (if _%c1138448138450%_ - (let* ((_%c1138453%_ _%c1138448138450%_) - (_%c2138454138456%_ + (gxc#compile-e__1 _%self138474%_ _%L138536%_)))) + (if _%c1138554138556%_ + (let* ((_%c1138559%_ _%c1138554138556%_) + (_%c2138560138562%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self138368%_ - _%L138429%_)))) - (if _%c2138454138456%_ - (let ((_%c2138459%_ _%c2138454138456%_)) - (if (fx= _%c1138453%_ _%c2138459%_) - _%c1138453%_ + _%self138474%_ + _%L138535%_)))) + (if _%c2138560138562%_ + (let ((_%c2138565%_ _%c2138560138562%_)) + (if (fx= _%c1138559%_ _%c2138565%_) + _%c1138559%_ '#f)) '#f)) '#f))) - _%hd138386138424%_ - _%hd138383138416%_ - _%hd138380138408%_) - (_%g138371138392%_ _%g138372138395%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138371138392%_ - _%g138372138395%_)))) - (_%g138371138392%_ _%g138372138395%_)))) - (_%g138371138392%_ _%g138372138395%_)))) - (_%g138371138392%_ _%g138372138395%_))))) - (_%g138370138462%_ _%stx138369%_)))))) + _%hd138492138530%_ + _%hd138489138522%_ + _%hd138486138514%_) + (_%g138477138498%_ _%g138478138501%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g138477138498%_ + _%g138478138501%_)))) + (_%g138477138498%_ _%g138478138501%_)))) + (_%g138477138498%_ _%g138478138501%_)))) + (_%g138477138498%_ _%g138478138501%_))))) + (_%g138476138568%_ _%stx138475%_)))))) diff --git a/src/bootstrap/gerbil/compiler/compile~1.scm b/src/bootstrap/gerbil/compiler/compile~1.scm index 1a31af844..6b4f95f92 100644 --- a/src/bootstrap/gerbil/compiler/compile~1.scm +++ b/src/bootstrap/gerbil/compiler/compile~1.scm @@ -1,671 +1,671 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g149239_| + (define |gxc[1]#_g149345_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149241_| + (define |gxc[1]#_g149347_| (##structure gx#syntax-quote::t '::collect-bindings::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149243_| + (define |gxc[1]#_g149349_| (##structure gx#syntax-quote::t 'make-::collect-bindings #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149245_| + (define |gxc[1]#_g149351_| (##structure gx#syntax-quote::t '::collect-bindings? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149248_| + (define |gxc[1]#_g149354_| (##structure gx#syntax-quote::t '::lift-modules::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149250_| + (define |gxc[1]#_g149356_| (##structure gx#syntax-quote::t 'make-::lift-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149252_| + (define |gxc[1]#_g149358_| (##structure gx#syntax-quote::t '::lift-modules? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149254_| + (define |gxc[1]#_g149360_| (##structure gx#syntax-quote::t '::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149256_| + (define |gxc[1]#_g149362_| (##structure gx#syntax-quote::t '::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149258_| + (define |gxc[1]#_g149364_| (##structure gx#syntax-quote::t '&::lift-modules-modules #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149260_| + (define |gxc[1]#_g149366_| (##structure gx#syntax-quote::t '&::lift-modules-modules-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149262_| + (define |gxc[1]#_g149368_| (##structure gx#syntax-quote::t '::find-runtime-code::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149264_| + (define |gxc[1]#_g149370_| (##structure gx#syntax-quote::t 'make-::find-runtime-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149266_| + (define |gxc[1]#_g149372_| (##structure gx#syntax-quote::t '::find-runtime-code? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149268_| + (define |gxc[1]#_g149374_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149270_| + (define |gxc[1]#_g149376_| (##structure gx#syntax-quote::t '::find-lambda-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149272_| + (define |gxc[1]#_g149378_| (##structure gx#syntax-quote::t 'make-::find-lambda-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149274_| + (define |gxc[1]#_g149380_| (##structure gx#syntax-quote::t '::find-lambda-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149276_| + (define |gxc[1]#_g149382_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149278_| + (define |gxc[1]#_g149384_| (##structure gx#syntax-quote::t '::count-values::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149280_| + (define |gxc[1]#_g149386_| (##structure gx#syntax-quote::t 'make-::count-values #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149282_| + (define |gxc[1]#_g149388_| (##structure gx#syntax-quote::t '::count-values? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149284_| + (define |gxc[1]#_g149390_| (##structure gx#syntax-quote::t '::generate-runtime-empty::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149286_| + (define |gxc[1]#_g149392_| (##structure gx#syntax-quote::t 'make-::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149288_| + (define |gxc[1]#_g149394_| (##structure gx#syntax-quote::t '::generate-runtime-empty? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149290_| + (define |gxc[1]#_g149396_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149292_| + (define |gxc[1]#_g149398_| (##structure gx#syntax-quote::t '::generate-loader::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149294_| + (define |gxc[1]#_g149400_| (##structure gx#syntax-quote::t 'make-::generate-loader #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149296_| + (define |gxc[1]#_g149402_| (##structure gx#syntax-quote::t '::generate-loader? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149299_| + (define |gxc[1]#_g149405_| (##structure gx#syntax-quote::t '::generate-runtime::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149301_| + (define |gxc[1]#_g149407_| (##structure gx#syntax-quote::t 'make-::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149303_| + (define |gxc[1]#_g149409_| (##structure gx#syntax-quote::t '::generate-runtime? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149305_| + (define |gxc[1]#_g149411_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149307_| + (define |gxc[1]#_g149413_| (##structure gx#syntax-quote::t '::generate-runtime-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149309_| + (define |gxc[1]#_g149415_| (##structure gx#syntax-quote::t 'make-::generate-runtime-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149311_| + (define |gxc[1]#_g149417_| (##structure gx#syntax-quote::t '::generate-runtime-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149313_| + (define |gxc[1]#_g149419_| (##structure gx#syntax-quote::t '::collect-expression-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149315_| + (define |gxc[1]#_g149421_| (##structure gx#syntax-quote::t 'make-::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149317_| + (define |gxc[1]#_g149423_| (##structure gx#syntax-quote::t '::collect-expression-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149319_| + (define |gxc[1]#_g149425_| (##structure gx#syntax-quote::t '::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149321_| + (define |gxc[1]#_g149427_| (##structure gx#syntax-quote::t '::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149323_| + (define |gxc[1]#_g149429_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149325_| + (define |gxc[1]#_g149431_| (##structure gx#syntax-quote::t '&::collect-expression-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149327_| + (define |gxc[1]#_g149433_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149329_| + (define |gxc[1]#_g149435_| (##structure gx#syntax-quote::t '::generate-meta::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149331_| + (define |gxc[1]#_g149437_| (##structure gx#syntax-quote::t 'make-::generate-meta #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149333_| + (define |gxc[1]#_g149439_| (##structure gx#syntax-quote::t '::generate-meta? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149335_| + (define |gxc[1]#_g149441_| (##structure gx#syntax-quote::t '::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149337_| + (define |gxc[1]#_g149443_| (##structure gx#syntax-quote::t '::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149339_| + (define |gxc[1]#_g149445_| (##structure gx#syntax-quote::t '&::generate-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149341_| + (define |gxc[1]#_g149447_| (##structure gx#syntax-quote::t '&::generate-meta-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149343_| + (define |gxc[1]#_g149449_| (##structure gx#syntax-quote::t '::generate-meta-phi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149345_| + (define |gxc[1]#_g149451_| (##structure gx#syntax-quote::t 'make-::generate-meta-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149347_| + (define |gxc[1]#_g149453_| (##structure gx#syntax-quote::t '::generate-meta-phi? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149349_| + (define |gxc[1]#_g149455_| (##structure gx#syntax-quote::t '::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149351_| + (define |gxc[1]#_g149457_| (##structure gx#syntax-quote::t '::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149353_| + (define |gxc[1]#_g149459_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149355_| + (define |gxc[1]#_g149461_| (##structure gx#syntax-quote::t '&::generate-meta-phi-state-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149360_| + (define |gxc[1]#_g149466_| (##structure gx#syntax-quote::t 'meta-state::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149362_| + (define |gxc[1]#_g149468_| (##structure gx#syntax-quote::t 'make-meta-state #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149364_| + (define |gxc[1]#_g149470_| (##structure gx#syntax-quote::t 'meta-state? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149366_| + (define |gxc[1]#_g149472_| (##structure gx#syntax-quote::t 'meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149367_| + (define |gxc[1]#_g149473_| (##structure gx#syntax-quote::t 'meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149368_| + (define |gxc[1]#_g149474_| (##structure gx#syntax-quote::t 'meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149369_| + (define |gxc[1]#_g149475_| (##structure gx#syntax-quote::t 'meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149371_| + (define |gxc[1]#_g149477_| (##structure gx#syntax-quote::t 'meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149372_| + (define |gxc[1]#_g149478_| (##structure gx#syntax-quote::t 'meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149373_| + (define |gxc[1]#_g149479_| (##structure gx#syntax-quote::t 'meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149374_| + (define |gxc[1]#_g149480_| (##structure gx#syntax-quote::t 'meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149376_| + (define |gxc[1]#_g149482_| (##structure gx#syntax-quote::t '&meta-state-src #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149377_| + (define |gxc[1]#_g149483_| (##structure gx#syntax-quote::t '&meta-state-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149378_| + (define |gxc[1]#_g149484_| (##structure gx#syntax-quote::t '&meta-state-open #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149379_| + (define |gxc[1]#_g149485_| (##structure gx#syntax-quote::t '&meta-state-blocks #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149381_| + (define |gxc[1]#_g149487_| (##structure gx#syntax-quote::t '&meta-state-src-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149382_| + (define |gxc[1]#_g149488_| (##structure gx#syntax-quote::t '&meta-state-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149383_| + (define |gxc[1]#_g149489_| (##structure gx#syntax-quote::t '&meta-state-open-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149384_| + (define |gxc[1]#_g149490_| (##structure gx#syntax-quote::t '&meta-state-blocks-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149386_| + (define |gxc[1]#_g149492_| (##structure gx#syntax-quote::t 'meta-state-block::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149388_| + (define |gxc[1]#_g149494_| (##structure gx#syntax-quote::t 'make-meta-state-block #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149390_| + (define |gxc[1]#_g149496_| (##structure gx#syntax-quote::t 'meta-state-block? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149392_| + (define |gxc[1]#_g149498_| (##structure gx#syntax-quote::t 'meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149393_| + (define |gxc[1]#_g149499_| (##structure gx#syntax-quote::t 'meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149394_| + (define |gxc[1]#_g149500_| (##structure gx#syntax-quote::t 'meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149395_| + (define |gxc[1]#_g149501_| (##structure gx#syntax-quote::t 'meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149397_| + (define |gxc[1]#_g149503_| (##structure gx#syntax-quote::t 'meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149398_| + (define |gxc[1]#_g149504_| (##structure gx#syntax-quote::t 'meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149399_| + (define |gxc[1]#_g149505_| (##structure gx#syntax-quote::t 'meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149400_| + (define |gxc[1]#_g149506_| (##structure gx#syntax-quote::t 'meta-state-block-code-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149402_| + (define |gxc[1]#_g149508_| (##structure gx#syntax-quote::t '&meta-state-block-ctx #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149403_| + (define |gxc[1]#_g149509_| (##structure gx#syntax-quote::t '&meta-state-block-phi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149404_| + (define |gxc[1]#_g149510_| (##structure gx#syntax-quote::t '&meta-state-block-n #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149405_| + (define |gxc[1]#_g149511_| (##structure gx#syntax-quote::t '&meta-state-block-code #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149407_| + (define |gxc[1]#_g149513_| (##structure gx#syntax-quote::t '&meta-state-block-ctx-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149408_| + (define |gxc[1]#_g149514_| (##structure gx#syntax-quote::t '&meta-state-block-phi-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149409_| + (define |gxc[1]#_g149515_| (##structure gx#syntax-quote::t '&meta-state-block-n-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g149410_| + (define |gxc[1]#_g149516_| (##structure gx#syntax-quote::t '&meta-state-block-code-set! @@ -674,7 +674,7 @@ '())) (begin (define |gxc[:0:]#::collect-bindings| - (let ((__obj149026 + (let ((__obj149132 (let () (declare (not safe)) (##structure @@ -703,7 +703,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149026 + __obj149132 'gxc#::collect-bindings::t '1 '#f @@ -711,65 +711,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149026 + __obj149132 '::collect-bindings '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '6 '#f '#f)) - (let ((__tmp149238 (cons |gxc[1]#_g149239_| '()))) + (##unchecked-structure-set! __obj149132 '() '6 '#f '#f)) + (let ((__tmp149344 (cons |gxc[1]#_g149345_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149026 __tmp149238 '3 '#f '#f)) + (##unchecked-structure-set! __obj149132 __tmp149344 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149132 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149132 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149132 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '#f '11 '#f '#f)) - (let ((__tmp149240 |gxc[1]#_g149241_|)) + (##unchecked-structure-set! __obj149132 '#f '11 '#f '#f)) + (let ((__tmp149346 |gxc[1]#_g149347_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149026 __tmp149240 '12 '#f '#f)) - (let ((__tmp149242 |gxc[1]#_g149243_|)) + (##unchecked-structure-set! __obj149132 __tmp149346 '12 '#f '#f)) + (let ((__tmp149348 |gxc[1]#_g149349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149026 __tmp149242 '13 '#f '#f)) - (let ((__tmp149244 |gxc[1]#_g149245_|)) + (##unchecked-structure-set! __obj149132 __tmp149348 '13 '#f '#f)) + (let ((__tmp149350 |gxc[1]#_g149351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149026 __tmp149244 '14 '#f '#f)) + (##unchecked-structure-set! __obj149132 __tmp149350 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149132 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149026 '() '20 '#f '#f)) - __obj149026)) + (##unchecked-structure-set! __obj149132 '() '20 '#f '#f)) + __obj149132)) (define |gxc[:0:]#::lift-modules| - (let ((__obj149028 + (let ((__obj149134 (let () (declare (not safe)) (##structure @@ -798,68 +798,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149028 + __obj149134 'gxc#::lift-modules::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '::lift-modules '2 '#f '#f)) + (##unchecked-structure-set! __obj149134 '::lift-modules '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '(modules) '4 '#f '#f)) + (##unchecked-structure-set! __obj149134 '(modules) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '(modules) '6 '#f '#f)) - (let ((__tmp149246 (cons |gxc[1]#_g149239_| '()))) + (##unchecked-structure-set! __obj149134 '(modules) '6 '#f '#f)) + (let ((__tmp149352 (cons |gxc[1]#_g149345_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149246 '3 '#f '#f)) + (##unchecked-structure-set! __obj149134 __tmp149352 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149134 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149134 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149134 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '#f '11 '#f '#f)) - (let ((__tmp149247 |gxc[1]#_g149248_|)) + (##unchecked-structure-set! __obj149134 '#f '11 '#f '#f)) + (let ((__tmp149353 |gxc[1]#_g149354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149247 '12 '#f '#f)) - (let ((__tmp149249 |gxc[1]#_g149250_|)) + (##unchecked-structure-set! __obj149134 __tmp149353 '12 '#f '#f)) + (let ((__tmp149355 |gxc[1]#_g149356_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149249 '13 '#f '#f)) - (let ((__tmp149251 |gxc[1]#_g149252_|)) + (##unchecked-structure-set! __obj149134 __tmp149355 '13 '#f '#f)) + (let ((__tmp149357 |gxc[1]#_g149358_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149251 '14 '#f '#f)) - (let ((__tmp149253 (cons (cons 'modules |gxc[1]#_g149254_|) '()))) + (##unchecked-structure-set! __obj149134 __tmp149357 '14 '#f '#f)) + (let ((__tmp149359 (cons (cons 'modules |gxc[1]#_g149360_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149253 '15 '#f '#f)) - (let ((__tmp149255 (cons (cons 'modules |gxc[1]#_g149256_|) '()))) + (##unchecked-structure-set! __obj149134 __tmp149359 '15 '#f '#f)) + (let ((__tmp149361 (cons (cons 'modules |gxc[1]#_g149362_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149255 '16 '#f '#f)) - (let ((__tmp149257 (cons (cons 'modules |gxc[1]#_g149258_|) '()))) + (##unchecked-structure-set! __obj149134 __tmp149361 '16 '#f '#f)) + (let ((__tmp149363 (cons (cons 'modules |gxc[1]#_g149364_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149257 '17 '#f '#f)) - (let ((__tmp149259 (cons (cons 'modules |gxc[1]#_g149260_|) '()))) + (##unchecked-structure-set! __obj149134 __tmp149363 '17 '#f '#f)) + (let ((__tmp149365 (cons (cons 'modules |gxc[1]#_g149366_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149028 __tmp149259 '18 '#f '#f)) + (##unchecked-structure-set! __obj149134 __tmp149365 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149134 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149134 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149028 '() '20 '#f '#f)) - __obj149028)) + (##unchecked-structure-set! __obj149134 '() '20 '#f '#f)) + __obj149134)) (define |gxc[:0:]#::find-runtime-code| - (let ((__obj149030 + (let ((__obj149136 (let () (declare (not safe)) (##structure @@ -888,7 +888,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149030 + __obj149136 'gxc#::find-runtime-code::t '1 '#f @@ -896,65 +896,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149030 + __obj149136 '::find-runtime-code '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149136 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149136 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149136 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '#f '11 '#f '#f)) - (let ((__tmp149261 |gxc[1]#_g149262_|)) + (##unchecked-structure-set! __obj149136 '#f '11 '#f '#f)) + (let ((__tmp149367 |gxc[1]#_g149368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149030 __tmp149261 '12 '#f '#f)) - (let ((__tmp149263 |gxc[1]#_g149264_|)) + (##unchecked-structure-set! __obj149136 __tmp149367 '12 '#f '#f)) + (let ((__tmp149369 |gxc[1]#_g149370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149030 __tmp149263 '13 '#f '#f)) - (let ((__tmp149265 |gxc[1]#_g149266_|)) + (##unchecked-structure-set! __obj149136 __tmp149369 '13 '#f '#f)) + (let ((__tmp149371 |gxc[1]#_g149372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149030 __tmp149265 '14 '#f '#f)) + (##unchecked-structure-set! __obj149136 __tmp149371 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149136 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149030 '() '20 '#f '#f)) - __obj149030)) + (##unchecked-structure-set! __obj149136 '() '20 '#f '#f)) + __obj149136)) (define |gxc[:0:]#::find-lambda-expression| - (let ((__obj149032 + (let ((__obj149138 (let () (declare (not safe)) (##structure @@ -983,7 +983,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149032 + __obj149138 'gxc#::find-lambda-expression::t '1 '#f @@ -991,65 +991,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149032 + __obj149138 '::find-lambda-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '6 '#f '#f)) - (let ((__tmp149267 (cons |gxc[1]#_g149268_| '()))) + (##unchecked-structure-set! __obj149138 '() '6 '#f '#f)) + (let ((__tmp149373 (cons |gxc[1]#_g149374_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149032 __tmp149267 '3 '#f '#f)) + (##unchecked-structure-set! __obj149138 __tmp149373 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149138 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149138 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149138 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '#f '11 '#f '#f)) - (let ((__tmp149269 |gxc[1]#_g149270_|)) + (##unchecked-structure-set! __obj149138 '#f '11 '#f '#f)) + (let ((__tmp149375 |gxc[1]#_g149376_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149032 __tmp149269 '12 '#f '#f)) - (let ((__tmp149271 |gxc[1]#_g149272_|)) + (##unchecked-structure-set! __obj149138 __tmp149375 '12 '#f '#f)) + (let ((__tmp149377 |gxc[1]#_g149378_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149032 __tmp149271 '13 '#f '#f)) - (let ((__tmp149273 |gxc[1]#_g149274_|)) + (##unchecked-structure-set! __obj149138 __tmp149377 '13 '#f '#f)) + (let ((__tmp149379 |gxc[1]#_g149380_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149032 __tmp149273 '14 '#f '#f)) + (##unchecked-structure-set! __obj149138 __tmp149379 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149138 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149032 '() '20 '#f '#f)) - __obj149032)) + (##unchecked-structure-set! __obj149138 '() '20 '#f '#f)) + __obj149138)) (define |gxc[:0:]#::count-values| - (let ((__obj149034 + (let ((__obj149140 (let () (declare (not safe)) (##structure @@ -1078,68 +1078,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149034 + __obj149140 'gxc#::count-values::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '::count-values '2 '#f '#f)) + (##unchecked-structure-set! __obj149140 '::count-values '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '6 '#f '#f)) - (let ((__tmp149275 (cons |gxc[1]#_g149276_| '()))) + (##unchecked-structure-set! __obj149140 '() '6 '#f '#f)) + (let ((__tmp149381 (cons |gxc[1]#_g149382_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149034 __tmp149275 '3 '#f '#f)) + (##unchecked-structure-set! __obj149140 __tmp149381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149140 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149140 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149140 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '#f '11 '#f '#f)) - (let ((__tmp149277 |gxc[1]#_g149278_|)) + (##unchecked-structure-set! __obj149140 '#f '11 '#f '#f)) + (let ((__tmp149383 |gxc[1]#_g149384_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149034 __tmp149277 '12 '#f '#f)) - (let ((__tmp149279 |gxc[1]#_g149280_|)) + (##unchecked-structure-set! __obj149140 __tmp149383 '12 '#f '#f)) + (let ((__tmp149385 |gxc[1]#_g149386_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149034 __tmp149279 '13 '#f '#f)) - (let ((__tmp149281 |gxc[1]#_g149282_|)) + (##unchecked-structure-set! __obj149140 __tmp149385 '13 '#f '#f)) + (let ((__tmp149387 |gxc[1]#_g149388_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149034 __tmp149281 '14 '#f '#f)) + (##unchecked-structure-set! __obj149140 __tmp149387 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149140 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149034 '() '20 '#f '#f)) - __obj149034)) + (##unchecked-structure-set! __obj149140 '() '20 '#f '#f)) + __obj149140)) (define |gxc[:0:]#::generate-runtime-empty| - (let ((__obj149036 + (let ((__obj149142 (let () (declare (not safe)) (##structure @@ -1168,7 +1168,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149036 + __obj149142 'gxc#::generate-runtime-empty::t '1 '#f @@ -1176,65 +1176,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149036 + __obj149142 '::generate-runtime-empty '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149142 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149142 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149142 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '#f '11 '#f '#f)) - (let ((__tmp149283 |gxc[1]#_g149284_|)) + (##unchecked-structure-set! __obj149142 '#f '11 '#f '#f)) + (let ((__tmp149389 |gxc[1]#_g149390_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149036 __tmp149283 '12 '#f '#f)) - (let ((__tmp149285 |gxc[1]#_g149286_|)) + (##unchecked-structure-set! __obj149142 __tmp149389 '12 '#f '#f)) + (let ((__tmp149391 |gxc[1]#_g149392_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149036 __tmp149285 '13 '#f '#f)) - (let ((__tmp149287 |gxc[1]#_g149288_|)) + (##unchecked-structure-set! __obj149142 __tmp149391 '13 '#f '#f)) + (let ((__tmp149393 |gxc[1]#_g149394_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149036 __tmp149287 '14 '#f '#f)) + (##unchecked-structure-set! __obj149142 __tmp149393 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149142 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149036 '() '20 '#f '#f)) - __obj149036)) + (##unchecked-structure-set! __obj149142 '() '20 '#f '#f)) + __obj149142)) (define |gxc[:0:]#::generate-loader| - (let ((__obj149037 + (let ((__obj149143 (let () (declare (not safe)) (##structure @@ -1263,7 +1263,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149037 + __obj149143 'gxc#::generate-loader::t '1 '#f @@ -1271,65 +1271,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149037 + __obj149143 '::generate-loader '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '6 '#f '#f)) - (let ((__tmp149289 (cons |gxc[1]#_g149290_| '()))) + (##unchecked-structure-set! __obj149143 '() '6 '#f '#f)) + (let ((__tmp149395 (cons |gxc[1]#_g149396_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149037 __tmp149289 '3 '#f '#f)) + (##unchecked-structure-set! __obj149143 __tmp149395 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149143 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149143 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149143 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '#f '11 '#f '#f)) - (let ((__tmp149291 |gxc[1]#_g149292_|)) + (##unchecked-structure-set! __obj149143 '#f '11 '#f '#f)) + (let ((__tmp149397 |gxc[1]#_g149398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149037 __tmp149291 '12 '#f '#f)) - (let ((__tmp149293 |gxc[1]#_g149294_|)) + (##unchecked-structure-set! __obj149143 __tmp149397 '12 '#f '#f)) + (let ((__tmp149399 |gxc[1]#_g149400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149037 __tmp149293 '13 '#f '#f)) - (let ((__tmp149295 |gxc[1]#_g149296_|)) + (##unchecked-structure-set! __obj149143 __tmp149399 '13 '#f '#f)) + (let ((__tmp149401 |gxc[1]#_g149402_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149037 __tmp149295 '14 '#f '#f)) + (##unchecked-structure-set! __obj149143 __tmp149401 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149143 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149037 '() '20 '#f '#f)) - __obj149037)) + (##unchecked-structure-set! __obj149143 '() '20 '#f '#f)) + __obj149143)) (define |gxc[:0:]#::generate-runtime| - (let ((__obj149039 + (let ((__obj149145 (let () (declare (not safe)) (##structure @@ -1358,7 +1358,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149039 + __obj149145 'gxc#::generate-runtime::t '1 '#f @@ -1366,65 +1366,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149039 + __obj149145 '::generate-runtime '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '6 '#f '#f)) - (let ((__tmp149297 (cons |gxc[1]#_g149290_| '()))) + (##unchecked-structure-set! __obj149145 '() '6 '#f '#f)) + (let ((__tmp149403 (cons |gxc[1]#_g149396_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149039 __tmp149297 '3 '#f '#f)) + (##unchecked-structure-set! __obj149145 __tmp149403 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149145 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149145 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149145 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '#f '11 '#f '#f)) - (let ((__tmp149298 |gxc[1]#_g149299_|)) + (##unchecked-structure-set! __obj149145 '#f '11 '#f '#f)) + (let ((__tmp149404 |gxc[1]#_g149405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149039 __tmp149298 '12 '#f '#f)) - (let ((__tmp149300 |gxc[1]#_g149301_|)) + (##unchecked-structure-set! __obj149145 __tmp149404 '12 '#f '#f)) + (let ((__tmp149406 |gxc[1]#_g149407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149039 __tmp149300 '13 '#f '#f)) - (let ((__tmp149302 |gxc[1]#_g149303_|)) + (##unchecked-structure-set! __obj149145 __tmp149406 '13 '#f '#f)) + (let ((__tmp149408 |gxc[1]#_g149409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149039 __tmp149302 '14 '#f '#f)) + (##unchecked-structure-set! __obj149145 __tmp149408 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149145 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149039 '() '20 '#f '#f)) - __obj149039)) + (##unchecked-structure-set! __obj149145 '() '20 '#f '#f)) + __obj149145)) (define |gxc[:0:]#::generate-runtime-phi| - (let ((__obj149041 + (let ((__obj149147 (let () (declare (not safe)) (##structure @@ -1453,7 +1453,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149041 + __obj149147 'gxc#::generate-runtime-phi::t '1 '#f @@ -1461,65 +1461,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149041 + __obj149147 '::generate-runtime-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '6 '#f '#f)) - (let ((__tmp149304 (cons |gxc[1]#_g149305_| '()))) + (##unchecked-structure-set! __obj149147 '() '6 '#f '#f)) + (let ((__tmp149410 (cons |gxc[1]#_g149411_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149041 __tmp149304 '3 '#f '#f)) + (##unchecked-structure-set! __obj149147 __tmp149410 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149147 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149147 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149147 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '#f '11 '#f '#f)) - (let ((__tmp149306 |gxc[1]#_g149307_|)) + (##unchecked-structure-set! __obj149147 '#f '11 '#f '#f)) + (let ((__tmp149412 |gxc[1]#_g149413_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149041 __tmp149306 '12 '#f '#f)) - (let ((__tmp149308 |gxc[1]#_g149309_|)) + (##unchecked-structure-set! __obj149147 __tmp149412 '12 '#f '#f)) + (let ((__tmp149414 |gxc[1]#_g149415_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149041 __tmp149308 '13 '#f '#f)) - (let ((__tmp149310 |gxc[1]#_g149311_|)) + (##unchecked-structure-set! __obj149147 __tmp149414 '13 '#f '#f)) + (let ((__tmp149416 |gxc[1]#_g149417_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149041 __tmp149310 '14 '#f '#f)) + (##unchecked-structure-set! __obj149147 __tmp149416 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149147 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149041 '() '20 '#f '#f)) - __obj149041)) + (##unchecked-structure-set! __obj149147 '() '20 '#f '#f)) + __obj149147)) (define |gxc[:0:]#::collect-expression-refs| - (let ((__obj149043 + (let ((__obj149149 (let () (declare (not safe)) (##structure @@ -1548,7 +1548,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149043 + __obj149149 'gxc#::collect-expression-refs::t '1 '#f @@ -1556,65 +1556,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149043 + __obj149149 '::collect-expression-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '(table) '4 '#f '#f)) + (##unchecked-structure-set! __obj149149 '(table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '(table) '6 '#f '#f)) + (##unchecked-structure-set! __obj149149 '(table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149149 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149149 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149149 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149149 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '#f '11 '#f '#f)) - (let ((__tmp149312 |gxc[1]#_g149313_|)) + (##unchecked-structure-set! __obj149149 '#f '11 '#f '#f)) + (let ((__tmp149418 |gxc[1]#_g149419_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149312 '12 '#f '#f)) - (let ((__tmp149314 |gxc[1]#_g149315_|)) + (##unchecked-structure-set! __obj149149 __tmp149418 '12 '#f '#f)) + (let ((__tmp149420 |gxc[1]#_g149421_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149314 '13 '#f '#f)) - (let ((__tmp149316 |gxc[1]#_g149317_|)) + (##unchecked-structure-set! __obj149149 __tmp149420 '13 '#f '#f)) + (let ((__tmp149422 |gxc[1]#_g149423_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149316 '14 '#f '#f)) - (let ((__tmp149318 (cons (cons 'table |gxc[1]#_g149319_|) '()))) + (##unchecked-structure-set! __obj149149 __tmp149422 '14 '#f '#f)) + (let ((__tmp149424 (cons (cons 'table |gxc[1]#_g149425_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149318 '15 '#f '#f)) - (let ((__tmp149320 (cons (cons 'table |gxc[1]#_g149321_|) '()))) + (##unchecked-structure-set! __obj149149 __tmp149424 '15 '#f '#f)) + (let ((__tmp149426 (cons (cons 'table |gxc[1]#_g149427_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149320 '16 '#f '#f)) - (let ((__tmp149322 (cons (cons 'table |gxc[1]#_g149323_|) '()))) + (##unchecked-structure-set! __obj149149 __tmp149426 '16 '#f '#f)) + (let ((__tmp149428 (cons (cons 'table |gxc[1]#_g149429_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149322 '17 '#f '#f)) - (let ((__tmp149324 (cons (cons 'table |gxc[1]#_g149325_|) '()))) + (##unchecked-structure-set! __obj149149 __tmp149428 '17 '#f '#f)) + (let ((__tmp149430 (cons (cons 'table |gxc[1]#_g149431_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149043 __tmp149324 '18 '#f '#f)) + (##unchecked-structure-set! __obj149149 __tmp149430 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149149 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149149 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149043 '() '20 '#f '#f)) - __obj149043)) + (##unchecked-structure-set! __obj149149 '() '20 '#f '#f)) + __obj149149)) (define |gxc[:0:]#::generate-meta| - (let ((__obj149045 + (let ((__obj149151 (let () (declare (not safe)) (##structure @@ -1643,68 +1643,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149045 + __obj149151 'gxc#::generate-meta::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '::generate-meta '2 '#f '#f)) + (##unchecked-structure-set! __obj149151 '::generate-meta '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149151 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '(state) '6 '#f '#f)) - (let ((__tmp149326 (cons |gxc[1]#_g149327_| '()))) + (##unchecked-structure-set! __obj149151 '(state) '6 '#f '#f)) + (let ((__tmp149432 (cons |gxc[1]#_g149433_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149326 '3 '#f '#f)) + (##unchecked-structure-set! __obj149151 __tmp149432 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149151 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149151 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149151 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '#f '11 '#f '#f)) - (let ((__tmp149328 |gxc[1]#_g149329_|)) + (##unchecked-structure-set! __obj149151 '#f '11 '#f '#f)) + (let ((__tmp149434 |gxc[1]#_g149435_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149328 '12 '#f '#f)) - (let ((__tmp149330 |gxc[1]#_g149331_|)) + (##unchecked-structure-set! __obj149151 __tmp149434 '12 '#f '#f)) + (let ((__tmp149436 |gxc[1]#_g149437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149330 '13 '#f '#f)) - (let ((__tmp149332 |gxc[1]#_g149333_|)) + (##unchecked-structure-set! __obj149151 __tmp149436 '13 '#f '#f)) + (let ((__tmp149438 |gxc[1]#_g149439_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149332 '14 '#f '#f)) - (let ((__tmp149334 (cons (cons 'state |gxc[1]#_g149335_|) '()))) + (##unchecked-structure-set! __obj149151 __tmp149438 '14 '#f '#f)) + (let ((__tmp149440 (cons (cons 'state |gxc[1]#_g149441_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149334 '15 '#f '#f)) - (let ((__tmp149336 (cons (cons 'state |gxc[1]#_g149337_|) '()))) + (##unchecked-structure-set! __obj149151 __tmp149440 '15 '#f '#f)) + (let ((__tmp149442 (cons (cons 'state |gxc[1]#_g149443_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149336 '16 '#f '#f)) - (let ((__tmp149338 (cons (cons 'state |gxc[1]#_g149339_|) '()))) + (##unchecked-structure-set! __obj149151 __tmp149442 '16 '#f '#f)) + (let ((__tmp149444 (cons (cons 'state |gxc[1]#_g149445_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149338 '17 '#f '#f)) - (let ((__tmp149340 (cons (cons 'state |gxc[1]#_g149341_|) '()))) + (##unchecked-structure-set! __obj149151 __tmp149444 '17 '#f '#f)) + (let ((__tmp149446 (cons (cons 'state |gxc[1]#_g149447_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149045 __tmp149340 '18 '#f '#f)) + (##unchecked-structure-set! __obj149151 __tmp149446 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149151 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149151 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149045 '() '20 '#f '#f)) - __obj149045)) + (##unchecked-structure-set! __obj149151 '() '20 '#f '#f)) + __obj149151)) (define |gxc[:0:]#::generate-meta-phi| - (let ((__obj149047 + (let ((__obj149153 (let () (declare (not safe)) (##structure @@ -1733,7 +1733,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149047 + __obj149153 'gxc#::generate-meta-phi::t '1 '#f @@ -1741,220 +1741,220 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149047 + __obj149153 '::generate-meta-phi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '(state) '4 '#f '#f)) + (##unchecked-structure-set! __obj149153 '(state) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '(state) '6 '#f '#f)) + (##unchecked-structure-set! __obj149153 '(state) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149153 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj149153 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj149153 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149153 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '#f '11 '#f '#f)) - (let ((__tmp149342 |gxc[1]#_g149343_|)) + (##unchecked-structure-set! __obj149153 '#f '11 '#f '#f)) + (let ((__tmp149448 |gxc[1]#_g149449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149342 '12 '#f '#f)) - (let ((__tmp149344 |gxc[1]#_g149345_|)) + (##unchecked-structure-set! __obj149153 __tmp149448 '12 '#f '#f)) + (let ((__tmp149450 |gxc[1]#_g149451_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149344 '13 '#f '#f)) - (let ((__tmp149346 |gxc[1]#_g149347_|)) + (##unchecked-structure-set! __obj149153 __tmp149450 '13 '#f '#f)) + (let ((__tmp149452 |gxc[1]#_g149453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149346 '14 '#f '#f)) - (let ((__tmp149348 (cons (cons 'state |gxc[1]#_g149349_|) '()))) + (##unchecked-structure-set! __obj149153 __tmp149452 '14 '#f '#f)) + (let ((__tmp149454 (cons (cons 'state |gxc[1]#_g149455_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149348 '15 '#f '#f)) - (let ((__tmp149350 (cons (cons 'state |gxc[1]#_g149351_|) '()))) + (##unchecked-structure-set! __obj149153 __tmp149454 '15 '#f '#f)) + (let ((__tmp149456 (cons (cons 'state |gxc[1]#_g149457_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149350 '16 '#f '#f)) - (let ((__tmp149352 (cons (cons 'state |gxc[1]#_g149353_|) '()))) + (##unchecked-structure-set! __obj149153 __tmp149456 '16 '#f '#f)) + (let ((__tmp149458 (cons (cons 'state |gxc[1]#_g149459_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149352 '17 '#f '#f)) - (let ((__tmp149354 (cons (cons 'state |gxc[1]#_g149355_|) '()))) + (##unchecked-structure-set! __obj149153 __tmp149458 '17 '#f '#f)) + (let ((__tmp149460 (cons (cons 'state |gxc[1]#_g149461_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj149047 __tmp149354 '18 '#f '#f)) + (##unchecked-structure-set! __obj149153 __tmp149460 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149153 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149153 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149047 '() '20 '#f '#f)) - __obj149047)) + (##unchecked-structure-set! __obj149153 '() '20 '#f '#f)) + __obj149153)) (define |gxc[:0:]#with-primitive-bind+args| - (lambda (_%$stx138116%_) - (let* ((_%g138120138155%_ - (lambda (_%g138121138151%_) + (lambda (_%$stx138222%_) + (let* ((_%g138226138261%_ + (lambda (_%g138227138257%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138121138151%_)))) - (_%g138119138281%_ - (lambda (_%g138121138159%_) + _%g138227138257%_)))) + (_%g138225138387%_ + (lambda (_%g138227138265%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138121138159%_)) - (let ((_%e138126138162%_ + (gx#stx-pair? _%g138227138265%_)) + (let ((_%e138232138268%_ (let () (declare (not safe)) - (gx#syntax-e _%g138121138159%_)))) - (let ((_%hd138127138166%_ + (gx#syntax-e _%g138227138265%_)))) + (let ((_%hd138233138272%_ (let () (declare (not safe)) - (##car _%e138126138162%_))) - (_%tl138128138169%_ + (##car _%e138232138268%_))) + (_%tl138234138275%_ (let () (declare (not safe)) - (##cdr _%e138126138162%_)))) + (##cdr _%e138232138268%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138128138169%_)) - (let ((_%e138129138172%_ + (gx#stx-pair? _%tl138234138275%_)) + (let ((_%e138235138278%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138128138169%_)))) - (let ((_%hd138130138176%_ + (gx#syntax-e _%tl138234138275%_)))) + (let ((_%hd138236138282%_ (let () (declare (not safe)) - (##car _%e138129138172%_))) - (_%tl138131138179%_ + (##car _%e138235138278%_))) + (_%tl138237138285%_ (let () (declare (not safe)) - (##cdr _%e138129138172%_)))) + (##cdr _%e138235138278%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd138130138176%_)) - (let ((_%e138132138182%_ + (gx#stx-pair? _%hd138236138282%_)) + (let ((_%e138238138288%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138130138176%_)))) - (let ((_%hd138133138186%_ + _%hd138236138282%_)))) + (let ((_%hd138239138292%_ (let () (declare (not safe)) - (##car _%e138132138182%_))) - (_%tl138134138189%_ + (##car _%e138238138288%_))) + (_%tl138240138295%_ (let () (declare (not safe)) - (##cdr _%e138132138182%_)))) + (##cdr _%e138238138288%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138134138189%_)) - (let ((_%e138135138192%_ + _%tl138240138295%_)) + (let ((_%e138241138298%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138134138189%_)))) - (let ((_%hd138136138196%_ + _%tl138240138295%_)))) + (let ((_%hd138242138302%_ (let () (declare (not safe)) - (##car _%e138135138192%_))) - (_%tl138137138199%_ + (##car _%e138241138298%_))) + (_%tl138243138305%_ (let () (declare (not safe)) - (##cdr _%e138135138192%_)))) + (##cdr _%e138241138298%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl138137138199%_)) - (let ((_%e138138138202%_ + _%tl138243138305%_)) + (let ((_%e138244138308%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl138137138199%_)))) - (let ((_%hd138139138206%_ - (let () (declare (not safe)) (##car _%e138138138202%_))) - (_%tl138140138209%_ + (gx#syntax-e _%tl138243138305%_)))) + (let ((_%hd138245138312%_ + (let () (declare (not safe)) (##car _%e138244138308%_))) + (_%tl138246138315%_ (let () (declare (not safe)) - (##cdr _%e138138138202%_)))) + (##cdr _%e138244138308%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138140138209%_)) + (gx#stx-null? _%tl138246138315%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl138131138179%_)) - (let ((_g149356_ + (gx#stx-pair/null? _%tl138237138285%_)) + (let ((_g149462_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl138131138179%_ + _%tl138237138285%_ '0)))) (begin - (let ((_g149357_ + (let ((_g149463_ (let () (declare (not safe)) - (if (##values? _g149356_) - (##vector-length _g149356_) + (if (##values? _g149462_) + (##values-length _g149462_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g149357_ 2))) + (##fx= _g149463_ 2))) (error "Context expects 2 values" - _g149357_))) - (let ((_%target138141138212%_ + _g149463_))) + (let ((_%target138247138318%_ (let () (declare (not safe)) - (##vector-ref _g149356_ 0))) - (_%tl138143138215%_ + (##values-ref _g149462_ 0))) + (_%tl138249138321%_ (let () (declare (not safe)) - (##vector-ref _g149356_ 1)))) + (##values-ref _g149462_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl138143138215%_)) - (letrec ((_%loop138144138218%_ - (lambda (_%hd138142138222%_ - _%body138148138225%_) + (gx#stx-null? _%tl138249138321%_)) + (letrec ((_%loop138250138324%_ + (lambda (_%hd138248138328%_ + _%body138254138331%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd138142138222%_)) - (let ((_%e138145138228%_ + _%hd138248138328%_)) + (let ((_%e138251138334%_ (let () (declare (not safe)) (gx#syntax-e - _%hd138142138222%_)))) - (let ((_%lp-hd138146138232%_ + _%hd138248138328%_)))) + (let ((_%lp-hd138252138338%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e138145138228%_))) - (_%lp-tl138147138235%_ - (let () (declare (not safe)) (##cdr _%e138145138228%_)))) - (_%loop138144138218%_ - _%lp-tl138147138235%_ - (cons _%lp-hd138146138232%_ _%body138148138225%_)))) + (##car _%e138251138334%_))) + (_%lp-tl138253138341%_ + (let () (declare (not safe)) (##cdr _%e138251138334%_)))) + (_%loop138250138324%_ + _%lp-tl138253138341%_ + (cons _%lp-hd138252138338%_ _%body138254138331%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body138149138238%_ - (reverse _%body138148138225%_))) - ((lambda (_%L138242%_ - _%L138244%_ - _%L138245%_ - _%L138246%_) + (let ((_%body138255138344%_ + (reverse _%body138254138331%_))) + ((lambda (_%L138348%_ + _%L138350%_ + _%L138351%_ + _%L138352%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1967,8 +1967,8 @@ (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138244%_ '())) - (cons (cons _%L138246%_ + (cons _%L138350%_ '())) + (cons (cons _%L138352%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1976,7 +1976,7 @@ '()) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L138245%_ + (cons (cons _%L138351%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2037,7 +2037,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138246%_ + (cons _%L138352%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2051,7 +2051,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138245%_ '()))) + (cons _%L138351%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -2068,7 +2068,7 @@ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rest)) - (cons _%L138246%_ + (cons _%L138352%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -2080,7 +2080,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'e)) '())) - (cons _%L138245%_ '()))) + (cons _%L138351%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -2149,7 +2149,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L138246%_ '()))) + (cons _%L138352%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2160,7 +2160,7 @@ (gx#datum->syntax__0 '#f 'tmp)) - (cons _%L138245%_ '()))) + (cons _%L138351%_ '()))) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2171,99 +2171,99 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) - (let ((__tmp149358 - (lambda (_%g138272138275%_ - _%g138273138278%_) - (cons _%g138272138275%_ - _%g138273138278%_)))) + (let ((__tmp149464 + (lambda (_%g138378138381%_ + _%g138379138384%_) + (cons _%g138378138381%_ + _%g138379138384%_)))) (declare (not safe)) - (__foldr1 __tmp149358 '() _%L138242%_))) + (__foldr1 __tmp149464 '() _%L138348%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%body138149138238%_ - _%hd138139138206%_ - _%hd138136138196%_ - _%hd138133138186%_)))))) + _%body138255138344%_ + _%hd138245138312%_ + _%hd138242138302%_ + _%hd138239138292%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop138144138218%_ - _%target138141138212%_ + (_%loop138250138324%_ + _%target138247138318%_ '())) - (_%g138120138155%_ _%g138121138159%_))))) - (_%g138120138155%_ _%g138121138159%_)) - (_%g138120138155%_ _%g138121138159%_)))) - (_%g138120138155%_ _%g138121138159%_)))) + (_%g138226138261%_ _%g138227138265%_))))) + (_%g138226138261%_ _%g138227138265%_)) + (_%g138226138261%_ _%g138227138265%_)))) + (_%g138226138261%_ _%g138227138265%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g138120138155%_ - _%g138121138159%_)))) - (_%g138120138155%_ _%g138121138159%_)))) - (_%g138120138155%_ _%g138121138159%_)))) - (_%g138120138155%_ _%g138121138159%_))))) - (_%g138119138281%_ _%$stx138116%_)))) + (_%g138226138261%_ + _%g138227138265%_)))) + (_%g138226138261%_ _%g138227138265%_)))) + (_%g138226138261%_ _%g138227138265%_)))) + (_%g138226138261%_ _%g138227138265%_))))) + (_%g138225138387%_ _%$stx138222%_)))) (define |gxc[:0:]#with-inline-unsafe-primitives| - (lambda (_%$stx138286%_) - (let* ((_%g138290138308%_ - (lambda (_%g138291138304%_) + (lambda (_%$stx138392%_) + (let* ((_%g138396138414%_ + (lambda (_%g138397138410%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g138291138304%_)))) - (_%g138289138363%_ - (lambda (_%g138291138312%_) + _%g138397138410%_)))) + (_%g138395138469%_ + (lambda (_%g138397138418%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g138291138312%_)) - (let ((_%e138294138315%_ + (gx#stx-pair? _%g138397138418%_)) + (let ((_%e138400138421%_ (let () (declare (not safe)) - (gx#syntax-e _%g138291138312%_)))) - (let ((_%hd138295138319%_ + (gx#syntax-e _%g138397138418%_)))) + (let ((_%hd138401138425%_ (let () (declare (not safe)) - (##car _%e138294138315%_))) - (_%tl138296138322%_ + (##car _%e138400138421%_))) + (_%tl138402138428%_ (let () (declare (not safe)) - (##cdr _%e138294138315%_)))) + (##cdr _%e138400138421%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138296138322%_)) - (let ((_%e138297138325%_ + (gx#stx-pair? _%tl138402138428%_)) + (let ((_%e138403138431%_ (let () (declare (not safe)) - (gx#syntax-e _%tl138296138322%_)))) - (let ((_%hd138298138329%_ + (gx#syntax-e _%tl138402138428%_)))) + (let ((_%hd138404138435%_ (let () (declare (not safe)) - (##car _%e138297138325%_))) - (_%tl138299138332%_ + (##car _%e138403138431%_))) + (_%tl138405138438%_ (let () (declare (not safe)) - (##cdr _%e138297138325%_)))) + (##cdr _%e138403138431%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl138299138332%_)) - (let ((_%e138300138335%_ + (gx#stx-pair? _%tl138405138438%_)) + (let ((_%e138406138441%_ (let () (declare (not safe)) (gx#syntax-e - _%tl138299138332%_)))) - (let ((_%hd138301138339%_ + _%tl138405138438%_)))) + (let ((_%hd138407138445%_ (let () (declare (not safe)) - (##car _%e138300138335%_))) - (_%tl138302138342%_ + (##car _%e138406138441%_))) + (_%tl138408138448%_ (let () (declare (not safe)) - (##cdr _%e138300138335%_)))) + (##cdr _%e138406138441%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl138302138342%_)) - ((lambda (_%L138345%_ - _%L138347%_) + _%tl138408138448%_)) + ((lambda (_%L138451%_ + _%L138453%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2275,7 +2275,7 @@ (gx#datum->syntax__0 '#f 'gambit-inline-unsafe-primitives)) - (cons _%L138347%_ '())) + (cons _%L138453%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'else)) @@ -2288,22 +2288,22 @@ '#f 'current-compile-decls-unsafe?)) '()) - (cons _%L138347%_ - (cons _%L138345%_ + (cons _%L138453%_ + (cons _%L138451%_ '())))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd138301138339%_ - _%hd138298138329%_) - (_%g138290138308%_ - _%g138291138312%_)))) - (_%g138290138308%_ _%g138291138312%_)))) - (_%g138290138308%_ _%g138291138312%_)))) - (_%g138290138308%_ _%g138291138312%_))))) - (_%g138289138363%_ _%$stx138286%_)))) + _%hd138407138445%_ + _%hd138404138435%_) + (_%g138396138414%_ + _%g138397138418%_)))) + (_%g138396138414%_ _%g138397138418%_)))) + (_%g138396138414%_ _%g138397138418%_)))) + (_%g138396138414%_ _%g138397138418%_))))) + (_%g138395138469%_ _%$stx138392%_)))) (define |gxc[:0:]#meta-state| - (let ((__obj149049 + (let ((__obj149155 (let () (declare (not safe)) (##structure @@ -2332,18 +2332,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149049 + __obj149155 'gxc#meta-state::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 'meta-state '2 '#f '#f)) + (##unchecked-structure-set! __obj149155 'meta-state '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj149049 + __obj149155 '(src n open blocks) '4 '#f @@ -2351,79 +2351,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149049 + __obj149155 '(src n open blocks) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149155 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149155 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149155 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149155 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 ':init! '11 '#f '#f)) - (let ((__tmp149359 |gxc[1]#_g149360_|)) + (##unchecked-structure-set! __obj149155 ':init! '11 '#f '#f)) + (let ((__tmp149465 |gxc[1]#_g149466_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149359 '12 '#f '#f)) - (let ((__tmp149361 |gxc[1]#_g149362_|)) + (##unchecked-structure-set! __obj149155 __tmp149465 '12 '#f '#f)) + (let ((__tmp149467 |gxc[1]#_g149468_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149361 '13 '#f '#f)) - (let ((__tmp149363 |gxc[1]#_g149364_|)) + (##unchecked-structure-set! __obj149155 __tmp149467 '13 '#f '#f)) + (let ((__tmp149469 |gxc[1]#_g149470_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149363 '14 '#f '#f)) - (let ((__tmp149365 - (cons (cons 'src |gxc[1]#_g149366_|) - (cons (cons 'n |gxc[1]#_g149367_|) - (cons (cons 'open |gxc[1]#_g149368_|) - (cons (cons 'blocks |gxc[1]#_g149369_|) + (##unchecked-structure-set! __obj149155 __tmp149469 '14 '#f '#f)) + (let ((__tmp149471 + (cons (cons 'src |gxc[1]#_g149472_|) + (cons (cons 'n |gxc[1]#_g149473_|) + (cons (cons 'open |gxc[1]#_g149474_|) + (cons (cons 'blocks |gxc[1]#_g149475_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149365 '15 '#f '#f)) - (let ((__tmp149370 - (cons (cons 'src |gxc[1]#_g149371_|) - (cons (cons 'n |gxc[1]#_g149372_|) - (cons (cons 'open |gxc[1]#_g149373_|) - (cons (cons 'blocks |gxc[1]#_g149374_|) + (##unchecked-structure-set! __obj149155 __tmp149471 '15 '#f '#f)) + (let ((__tmp149476 + (cons (cons 'src |gxc[1]#_g149477_|) + (cons (cons 'n |gxc[1]#_g149478_|) + (cons (cons 'open |gxc[1]#_g149479_|) + (cons (cons 'blocks |gxc[1]#_g149480_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149370 '16 '#f '#f)) - (let ((__tmp149375 - (cons (cons 'src |gxc[1]#_g149376_|) - (cons (cons 'n |gxc[1]#_g149377_|) - (cons (cons 'open |gxc[1]#_g149378_|) - (cons (cons 'blocks |gxc[1]#_g149379_|) + (##unchecked-structure-set! __obj149155 __tmp149476 '16 '#f '#f)) + (let ((__tmp149481 + (cons (cons 'src |gxc[1]#_g149482_|) + (cons (cons 'n |gxc[1]#_g149483_|) + (cons (cons 'open |gxc[1]#_g149484_|) + (cons (cons 'blocks |gxc[1]#_g149485_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149375 '17 '#f '#f)) - (let ((__tmp149380 - (cons (cons 'src |gxc[1]#_g149381_|) - (cons (cons 'n |gxc[1]#_g149382_|) - (cons (cons 'open |gxc[1]#_g149383_|) - (cons (cons 'blocks |gxc[1]#_g149384_|) + (##unchecked-structure-set! __obj149155 __tmp149481 '17 '#f '#f)) + (let ((__tmp149486 + (cons (cons 'src |gxc[1]#_g149487_|) + (cons (cons 'n |gxc[1]#_g149488_|) + (cons (cons 'open |gxc[1]#_g149489_|) + (cons (cons 'blocks |gxc[1]#_g149490_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149049 __tmp149380 '18 '#f '#f)) + (##unchecked-structure-set! __obj149155 __tmp149486 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149155 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149155 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149049 '() '20 '#f '#f)) - __obj149049)) + (##unchecked-structure-set! __obj149155 '() '20 '#f '#f)) + __obj149155)) (define |gxc[:0:]#meta-state-block| - (let ((__obj149050 + (let ((__obj149156 (let () (declare (not safe)) (##structure @@ -2452,7 +2452,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149050 + __obj149156 'gxc#meta-state-block::t '1 '#f @@ -2460,7 +2460,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149050 + __obj149156 'meta-state-block '2 '#f @@ -2468,7 +2468,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149050 + __obj149156 '(ctx phi n code) '4 '#f @@ -2476,74 +2476,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj149050 + __obj149156 '(ctx phi n code) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj149156 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj149156 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj149156 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj149156 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '#f '11 '#f '#f)) - (let ((__tmp149385 |gxc[1]#_g149386_|)) + (##unchecked-structure-set! __obj149156 '#f '11 '#f '#f)) + (let ((__tmp149491 |gxc[1]#_g149492_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149385 '12 '#f '#f)) - (let ((__tmp149387 |gxc[1]#_g149388_|)) + (##unchecked-structure-set! __obj149156 __tmp149491 '12 '#f '#f)) + (let ((__tmp149493 |gxc[1]#_g149494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149387 '13 '#f '#f)) - (let ((__tmp149389 |gxc[1]#_g149390_|)) + (##unchecked-structure-set! __obj149156 __tmp149493 '13 '#f '#f)) + (let ((__tmp149495 |gxc[1]#_g149496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149389 '14 '#f '#f)) - (let ((__tmp149391 - (cons (cons 'ctx |gxc[1]#_g149392_|) - (cons (cons 'phi |gxc[1]#_g149393_|) - (cons (cons 'n |gxc[1]#_g149394_|) - (cons (cons 'code |gxc[1]#_g149395_|) + (##unchecked-structure-set! __obj149156 __tmp149495 '14 '#f '#f)) + (let ((__tmp149497 + (cons (cons 'ctx |gxc[1]#_g149498_|) + (cons (cons 'phi |gxc[1]#_g149499_|) + (cons (cons 'n |gxc[1]#_g149500_|) + (cons (cons 'code |gxc[1]#_g149501_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149391 '15 '#f '#f)) - (let ((__tmp149396 - (cons (cons 'ctx |gxc[1]#_g149397_|) - (cons (cons 'phi |gxc[1]#_g149398_|) - (cons (cons 'n |gxc[1]#_g149399_|) - (cons (cons 'code |gxc[1]#_g149400_|) + (##unchecked-structure-set! __obj149156 __tmp149497 '15 '#f '#f)) + (let ((__tmp149502 + (cons (cons 'ctx |gxc[1]#_g149503_|) + (cons (cons 'phi |gxc[1]#_g149504_|) + (cons (cons 'n |gxc[1]#_g149505_|) + (cons (cons 'code |gxc[1]#_g149506_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149396 '16 '#f '#f)) - (let ((__tmp149401 - (cons (cons 'ctx |gxc[1]#_g149402_|) - (cons (cons 'phi |gxc[1]#_g149403_|) - (cons (cons 'n |gxc[1]#_g149404_|) - (cons (cons 'code |gxc[1]#_g149405_|) + (##unchecked-structure-set! __obj149156 __tmp149502 '16 '#f '#f)) + (let ((__tmp149507 + (cons (cons 'ctx |gxc[1]#_g149508_|) + (cons (cons 'phi |gxc[1]#_g149509_|) + (cons (cons 'n |gxc[1]#_g149510_|) + (cons (cons 'code |gxc[1]#_g149511_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149401 '17 '#f '#f)) - (let ((__tmp149406 - (cons (cons 'ctx |gxc[1]#_g149407_|) - (cons (cons 'phi |gxc[1]#_g149408_|) - (cons (cons 'n |gxc[1]#_g149409_|) - (cons (cons 'code |gxc[1]#_g149410_|) + (##unchecked-structure-set! __obj149156 __tmp149507 '17 '#f '#f)) + (let ((__tmp149512 + (cons (cons 'ctx |gxc[1]#_g149513_|) + (cons (cons 'phi |gxc[1]#_g149514_|) + (cons (cons 'n |gxc[1]#_g149515_|) + (cons (cons 'code |gxc[1]#_g149516_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj149050 __tmp149406 '18 '#f '#f)) + (##unchecked-structure-set! __obj149156 __tmp149512 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj149156 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj149156 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj149050 '() '20 '#f '#f)) - __obj149050)))) + (##unchecked-structure-set! __obj149156 '() '20 '#f '#f)) + __obj149156)))) diff --git a/src/bootstrap/gerbil/compiler/driver~0.scm b/src/bootstrap/gerbil/compiler/driver~0.scm index 8941f0a11..808f4f856 100644 --- a/src/bootstrap/gerbil/compiler/driver~0.scm +++ b/src/bootstrap/gerbil/compiler/driver~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/driver::timestamp 1733870081) + (define gerbil/compiler/driver::timestamp 1734131754) (begin (define gxc#default-gerbil-gsc (path-expand '"gsc" (path-expand '"bin" (path-expand '"~~")))) @@ -10,21 +10,21 @@ (define gxc#compile-timestamp (lambda () (inexact->exact - (floor (let ((__tmp202544 (current-time))) + (floor (let ((__tmp202682 (current-time))) (declare (not safe)) - (##time->seconds __tmp202544)))))) + (##time->seconds __tmp202682)))))) (define gxc#compile-timestamp-nanos (lambda () - (let ((__tmp202545 (current-time))) + (let ((__tmp202683 (current-time))) (declare (not safe)) - (##time->seconds __tmp202545)))) + (##time->seconds __tmp202683)))) (define gxc#scheme-file-settings '(permissions: 420 char-encoding: UTF-8 eol-encoding: lf)) (define gxc#with-output-to-scheme-file - (lambda (_%path202401%_ _%fun202402%_) + (lambda (_%path202539%_ _%fun202540%_) (with-output-to-file - (cons 'path: (cons _%path202401%_ gxc#scheme-file-settings)) - _%fun202402%_))) + (cons 'path: (cons _%path202539%_ gxc#scheme-file-settings)) + _%fun202540%_))) (define gxc#+gerbil-gsc+ '#f) (define gxc#gerbil-gsc (lambda () @@ -56,8 +56,8 @@ (##getenv '"GERBIL_AR" gxc#default-gerbil-ar)))) gxc#+gerbil-ar+)) (define gxc#gerbil-rpath - (lambda (_%gerbil-libdir202396%_) - (string-append '"-Wl,-rpath=" _%gerbil-libdir202396%_))) + (lambda (_%gerbil-libdir202534%_) + (string-append '"-Wl,-rpath=" _%gerbil-libdir202534%_))) (define gxc#gerbil-runtime-modules '("gerbil/runtime/gambit" "gerbil/runtime/util" @@ -78,251 +78,279 @@ "gerbil/runtime/init" "gerbil/runtime")) (define gxc#delete-directory* - (lambda (_%dir202394%_) (delete-file-or-directory _%dir202394%_ '#t))) + (lambda (_%dir202532%_) (delete-file-or-directory _%dir202532%_ '#t))) (define gxc#compile-module__% - (lambda (_%srcpath202367%_ _%opts202368%_) - (if (string? _%srcpath202367%_) + (lambda (_%srcpath202488%_ _%opts202489%_) + (if (string? _%srcpath202488%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202367%_))) - (let ((_%outdir202370%_ - (let () - (declare (not safe)) - (pgetq__0 'output-dir: _%opts202368%_))) - (_%invoke-gsc?202371%_ - (let () - (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202368%_))) - (_%gsc-options202372%_ - (let () - (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202368%_))) - (_%keep-scm?202373%_ - (let () - (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202368%_))) - (_%verbosity202374%_ - (let () - (declare (not safe)) - (pgetq__0 'verbose: _%opts202368%_))) - (_%optimize202375%_ - (let () - (declare (not safe)) - (pgetq__0 'optimize: _%opts202368%_))) - (_%debug202376%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202368%_))) - (_%gen-ssxi202377%_ - (let () - (declare (not safe)) - (pgetq__0 'generate-ssxi: _%opts202368%_))) - (_%parallel?202378%_ - (let () - (declare (not safe)) - (pgetq__0 'parallel: _%opts202368%_)))) - (if _%outdir202370%_ - (let ((__tmp202546 + _%srcpath202488%_))) + (let* ((_%outdir202491%_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _%opts202489%_))) + (_%invoke-gsc?202493%_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _%opts202489%_))) + (_%target202498%_ + (let ((_%$e202495%_ + (let () + (declare (not safe)) + (pgetq__0 'target: _%opts202489%_)))) + (if _%$e202495%_ _%$e202495%_ 'C))) + (_%gsc-options202503%_ + (append (cons '"-target" + (cons (symbol->string _%target202498%_) '())) + (let ((_%$e202500%_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _%opts202489%_)))) + (if _%$e202500%_ _%$e202500%_ '())))) + (_%keep-scm?202505%_ + (let () + (declare (not safe)) + (pgetq__0 'keep-scm: _%opts202489%_))) + (_%verbosity202507%_ + (let () + (declare (not safe)) + (pgetq__0 'verbose: _%opts202489%_))) + (_%optimize202509%_ + (let () + (declare (not safe)) + (pgetq__0 'optimize: _%opts202489%_))) + (_%debug202511%_ + (let () + (declare (not safe)) + (pgetq__0 'debug: _%opts202489%_))) + (_%gen-ssxi202513%_ + (let () + (declare (not safe)) + (pgetq__0 'generate-ssxi: _%opts202489%_))) + (_%parallel?202515%_ + (let () + (declare (not safe)) + (pgetq__0 'parallel: _%opts202489%_)))) + (if _%outdir202491%_ + (let ((__tmp202684 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202370%_))))) + (create-directory*__0 _%outdir202491%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202546)) + (__with-lock gxc#+driver-mutex+ __tmp202684)) '#!void) - (if _%optimize202375%_ - (let ((__tmp202547 + (if _%optimize202509%_ + (let ((__tmp202685 (lambda () (let () (declare (not safe)) (gxc#optimizer-info-init!))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202547)) + (__with-lock gxc#+driver-mutex+ __tmp202685)) '#!void) - (let ((__tmp202550 + (let ((__tmp202688 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile " _%srcpath202367%_)) + (gxc#verbose '"compile " _%srcpath202488%_)) (gxc#compile-top-module - (let ((__tmp202551 + (let ((__tmp202689 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202367%_))))) + (gx#import-module__0 _%srcpath202488%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202551))))) - (__tmp202549 (gxc#compile-timestamp)) - (__tmp202548 - (cons 'compile-module (cons _%srcpath202367%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202689))))) + (__tmp202687 (gxc#compile-timestamp)) + (__tmp202686 + (cons 'compile-module (cons _%srcpath202488%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202550 + __tmp202688 gxc#current-compile-output-dir - _%outdir202370%_ + _%outdir202491%_ + gx#current-compilation-target + _%target202498%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202371%_ + _%invoke-gsc?202493%_ gxc#current-compile-gsc-options - _%gsc-options202372%_ + _%gsc-options202503%_ gxc#current-compile-keep-scm - _%keep-scm?202373%_ + _%keep-scm?202505%_ gxc#current-compile-verbose - _%verbosity202374%_ + _%verbosity202507%_ gxc#current-compile-optimize - _%optimize202375%_ + _%optimize202509%_ gxc#current-compile-debug - _%debug202376%_ + _%debug202511%_ gxc#current-compile-generate-ssxi - _%gen-ssxi202377%_ + _%gen-ssxi202513%_ gxc#current-compile-timestamp - __tmp202549 + __tmp202687 gxc#current-compile-context - __tmp202548 + __tmp202686 gxc#current-compile-parallel - _%parallel?202378%_ + _%parallel?202515%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-module__0 - (lambda (_%srcpath202387%_) - (let ((_%opts202389%_ '())) - (gxc#compile-module__% _%srcpath202387%_ _%opts202389%_)))) + (lambda (_%srcpath202525%_) + (let ((_%opts202527%_ '())) + (gxc#compile-module__% _%srcpath202525%_ _%opts202527%_)))) (define gxc#compile-module - (lambda _g202553_ - (let ((_g202552_ (let () (declare (not safe)) (##length _g202553_)))) - (cond ((let () (declare (not safe)) (##fx= _g202552_ 1)) - (apply gxc#compile-module__0 _g202553_)) - ((let () (declare (not safe)) (##fx= _g202552_ 2)) - (apply gxc#compile-module__% _g202553_)) + (lambda _g202691_ + (let ((_g202690_ (let () (declare (not safe)) (##length _g202691_)))) + (cond ((let () (declare (not safe)) (##fx= _g202690_ 1)) + (apply gxc#compile-module__0 _g202691_)) + ((let () (declare (not safe)) (##fx= _g202690_ 2)) + (apply gxc#compile-module__% _g202691_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-module - _g202553_)))))) + _g202691_)))))) (define gxc#compile-exe__% - (lambda (_%srcpath202342%_ _%opts202343%_) - (if (string? _%srcpath202342%_) + (lambda (_%srcpath202448%_ _%opts202449%_) + (if (string? _%srcpath202448%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Invalid module source path" - _%srcpath202342%_))) - (let ((_%outdir202345%_ - (let () - (declare (not safe)) - (pgetq__0 'output-dir: _%opts202343%_))) - (_%invoke-gsc?202346%_ - (let () - (declare (not safe)) - (pgetq__0 'invoke-gsc: _%opts202343%_))) - (_%gsc-options202347%_ - (let () - (declare (not safe)) - (pgetq__0 'gsc-options: _%opts202343%_))) - (_%keep-scm?202348%_ - (let () - (declare (not safe)) - (pgetq__0 'keep-scm: _%opts202343%_))) - (_%verbosity202349%_ - (let () - (declare (not safe)) - (pgetq__0 'verbose: _%opts202343%_))) - (_%debug202350%_ - (let () (declare (not safe)) (pgetq__0 'debug: _%opts202343%_))) - (_%parallel?202351%_ - (let () - (declare (not safe)) - (pgetq__0 'parallel: _%opts202343%_)))) - (if _%outdir202345%_ - (let ((__tmp202554 + _%srcpath202448%_))) + (let* ((_%outdir202451%_ + (let () + (declare (not safe)) + (pgetq__0 'output-dir: _%opts202449%_))) + (_%invoke-gsc?202453%_ + (let () + (declare (not safe)) + (pgetq__0 'invoke-gsc: _%opts202449%_))) + (_%target202458%_ + (let ((_%$e202455%_ + (let () + (declare (not safe)) + (pgetq__0 'target: _%opts202449%_)))) + (if _%$e202455%_ _%$e202455%_ 'C))) + (_%gsc-options202463%_ + (append (cons '"-target" + (cons (symbol->string _%target202458%_) '())) + (let ((_%$e202460%_ + (let () + (declare (not safe)) + (pgetq__0 'gsc-options: _%opts202449%_)))) + (if _%$e202460%_ _%$e202460%_ '())))) + (_%keep-scm?202465%_ + (let () + (declare (not safe)) + (pgetq__0 'keep-scm: _%opts202449%_))) + (_%verbosity202467%_ + (let () + (declare (not safe)) + (pgetq__0 'verbose: _%opts202449%_))) + (_%debug202469%_ + (let () + (declare (not safe)) + (pgetq__0 'debug: _%opts202449%_))) + (_%parallel?202471%_ + (let () + (declare (not safe)) + (pgetq__0 'parallel: _%opts202449%_)))) + (if _%outdir202451%_ + (let ((__tmp202692 (lambda () (let () (declare (not safe)) - (create-directory*__0 _%outdir202345%_))))) + (create-directory*__0 _%outdir202451%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202554)) + (__with-lock gxc#+driver-mutex+ __tmp202692)) '#!void) - (let ((__tmp202557 + (let ((__tmp202695 (lambda () (let () (declare (not safe)) - (gxc#verbose '"compile exe " _%srcpath202342%_)) + (gxc#verbose '"compile exe " _%srcpath202448%_)) (gxc#compile-executable-module - (let ((__tmp202558 + (let ((__tmp202696 (lambda () (let () (declare (not safe)) - (gx#import-module__0 _%srcpath202342%_))))) + (gx#import-module__0 _%srcpath202448%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202558)) - _%opts202343%_))) - (__tmp202556 (gxc#compile-timestamp)) - (__tmp202555 (cons 'compile-exe (cons _%srcpath202342%_ '())))) + (__with-lock gxc#+driver-mutex+ __tmp202696)) + _%opts202449%_))) + (__tmp202694 (gxc#compile-timestamp)) + (__tmp202693 (cons 'compile-exe (cons _%srcpath202448%_ '())))) (declare (not safe)) (__call-with-parameters - __tmp202557 + __tmp202695 gxc#current-compile-output-dir - _%outdir202345%_ + _%outdir202451%_ gxc#current-compile-invoke-gsc - _%invoke-gsc?202346%_ + _%invoke-gsc?202453%_ + gx#current-compilation-target + _%target202458%_ gxc#current-compile-gsc-options - _%gsc-options202347%_ + _%gsc-options202463%_ gxc#current-compile-keep-scm - _%keep-scm?202348%_ + _%keep-scm?202465%_ gxc#current-compile-verbose - _%verbosity202349%_ + _%verbosity202467%_ gxc#current-compile-debug - _%debug202350%_ + _%debug202469%_ gxc#current-compile-timestamp - __tmp202556 + __tmp202694 gxc#current-compile-context - __tmp202555 + __tmp202693 gxc#current-compile-parallel - _%parallel?202351%_ + _%parallel?202471%_ gx#current-expander-compiling? '#t))))) (define gxc#compile-exe__0 - (lambda (_%srcpath202359%_) - (let ((_%opts202361%_ '())) - (gxc#compile-exe__% _%srcpath202359%_ _%opts202361%_)))) + (lambda (_%srcpath202480%_) + (let ((_%opts202482%_ '())) + (gxc#compile-exe__% _%srcpath202480%_ _%opts202482%_)))) (define gxc#compile-exe - (lambda _g202560_ - (let ((_g202559_ (let () (declare (not safe)) (##length _g202560_)))) - (cond ((let () (declare (not safe)) (##fx= _g202559_ 1)) - (apply gxc#compile-exe__0 _g202560_)) - ((let () (declare (not safe)) (##fx= _g202559_ 2)) - (apply gxc#compile-exe__% _g202560_)) + (lambda _g202698_ + (let ((_g202697_ (let () (declare (not safe)) (##length _g202698_)))) + (cond ((let () (declare (not safe)) (##fx= _g202697_ 1)) + (apply gxc#compile-exe__0 _g202698_)) + ((let () (declare (not safe)) (##fx= _g202697_ 2)) + (apply gxc#compile-exe__% _g202698_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-exe - _g202560_)))))) + _g202698_)))))) (define gxc#compile-executable-module - (lambda (_%ctx202338%_ _%opts202339%_) + (lambda (_%ctx202444%_ _%opts202445%_) (if (let () (declare (not safe)) - (pgetq__0 'full-program-optimization: _%opts202339%_)) + (pgetq__0 'full-program-optimization: _%opts202445%_)) (gxc#compile-executable-module/full-program-optimization - _%ctx202338%_ - _%opts202339%_) + _%ctx202444%_ + _%opts202445%_) (gxc#compile-executable-module/separate - _%ctx202338%_ - _%opts202339%_)))) + _%ctx202444%_ + _%opts202445%_)))) (define gxc#compile-executable-module/separate - (lambda (_%ctx202128%_ _%opts202129%_) - (letrec ((_%generate-stub202131%_ - (lambda (_%builtin-modules202334%_) - (let ((_%mod-main202336%_ - (gxc#find-runtime-symbol _%ctx202128%_ 'main))) - (let ((__tmp202561 + (lambda (_%ctx202234%_ _%opts202235%_) + (letrec ((_%generate-stub202237%_ + (lambda (_%builtin-modules202440%_) + (let ((_%mod-main202442%_ + (gxc#find-runtime-symbol _%ctx202234%_ 'main))) + (let ((__tmp202699 (cons 'define (cons 'builtin-modules (cons (cons 'quote - (cons _%builtin-modules202334%_ + (cons _%builtin-modules202440%_ '())) '()))))) (declare (not safe)) - (##write __tmp202561)) - (let ((__tmp202562 + (##write __tmp202699)) + (let ((__tmp202700 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'with-unwind-protect @@ -332,7 +360,7 @@ (cons (cons 'gerbil-runtime-init! (cons 'builtin-modules '())) (cons (cons 'apply - (cons _%mod-main202336%_ + (cons _%mod-main202442%_ (cons (cons 'cdr ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'command-line '()) '())) @@ -370,325 +398,325 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (##write __tmp202562)) + (##write __tmp202700)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%get-libgerbil-ld-opts202132%_ - (lambda (_%gerbil-libdir202332%_) - (let ((__tmp202563 + (_%get-libgerbil-ld-opts202238%_ + (lambda (_%gerbil-libdir202438%_) + (let ((__tmp202701 (path-expand '"libgerbil.ldd" - _%gerbil-libdir202332%_))) + _%gerbil-libdir202438%_))) (declare (not safe)) - (##call-with-input-file __tmp202563 read)))) - (_%replace-extension202133%_ - (lambda (_%path202329%_ _%ext202330%_) + (##call-with-input-file __tmp202701 read)))) + (_%replace-extension202239%_ + (lambda (_%path202435%_ _%ext202436%_) (string-append - (path-strip-extension _%path202329%_) - _%ext202330%_))) - (_%userlib-module?202134%_ - (lambda (_%ctx202327%_) - (if (_%exclude-module?202136%_ _%ctx202327%_) + (path-strip-extension _%path202435%_) + _%ext202436%_))) + (_%userlib-module?202240%_ + (lambda (_%ctx202433%_) + (if (_%exclude-module?202242%_ _%ctx202433%_) '#f - (not (_%libgerbil-module?202135%_ _%ctx202327%_))))) - (_%libgerbil-module?202135%_ - (lambda (_%ctx202320%_) - (let ((_%id-str202322%_ + (not (_%libgerbil-module?202241%_ _%ctx202433%_))))) + (_%libgerbil-module?202241%_ + (lambda (_%ctx202426%_) + (let ((_%id-str202428%_ (symbol->string (##structure-ref - _%ctx202320%_ + _%ctx202426%_ '1 gx#expander-context::t '#f)))) - (if (_%exclude-module?202136%_ _%id-str202322%_) + (if (_%exclude-module?202242%_ _%id-str202428%_) '#f - (let ((_%$e202324%_ + (let ((_%$e202430%_ (let () (declare (not safe)) (##string-prefix? '"gerbil/" - _%id-str202322%_)))) - (if _%$e202324%_ - _%$e202324%_ + _%id-str202428%_)))) + (if _%$e202430%_ + _%$e202430%_ (let () (declare (not safe)) (##string-prefix? '"std/" - _%id-str202322%_)))))))) - (_%exclude-module?202136%_ - (lambda (_%ctx-or-str202316%_) - (let ((_%str202318%_ - (if (string? _%ctx-or-str202316%_) - _%ctx-or-str202316%_ + _%id-str202428%_)))))))) + (_%exclude-module?202242%_ + (lambda (_%ctx-or-str202422%_) + (let ((_%str202424%_ + (if (string? _%ctx-or-str202422%_) + _%ctx-or-str202422%_ (symbol->string (##structure-ref - _%ctx-or-str202316%_ + _%ctx-or-str202422%_ '1 gx#expander-context::t '#f))))) (declare (not safe)) - (##string-prefix? '"gerbil/core" _%str202318%_)))) - (_%not-file-empty?202137%_ - (lambda (_%path202314%_) - (not (gxc#file-empty? _%path202314%_)))) - (_%fold-libgerbil-runtime-scm202138%_ - (lambda (_%gerbil-staticdir202307%_ _%libgerbil-scm202308%_) - (let ((_%gerbil-runtime-scm202312%_ - (let ((__tmp202564 - (lambda (_%rtm202310%_) + (##string-prefix? '"gerbil/core" _%str202424%_)))) + (_%not-file-empty?202243%_ + (lambda (_%path202420%_) + (not (gxc#file-empty? _%path202420%_)))) + (_%fold-libgerbil-runtime-scm202244%_ + (lambda (_%gerbil-staticdir202413%_ _%libgerbil-scm202414%_) + (let ((_%gerbil-runtime-scm202418%_ + (let ((__tmp202702 + (lambda (_%rtm202416%_) (path-expand - (let ((__tmp202565 - (let ((__tmp202566 + (let ((__tmp202703 + (let ((__tmp202704 (let () (declare (not safe)) (string-split - _%rtm202310%_ + _%rtm202416%_ '#\/)))) (declare (not safe)) (string-join - __tmp202566 + __tmp202704 '"__")))) (declare (not safe)) - (##string-append __tmp202565 '".scm")) - _%gerbil-staticdir202307%_)))) + (##string-append __tmp202703 '".scm")) + _%gerbil-staticdir202413%_)))) (declare (not safe)) - (##map __tmp202564 gxc#gerbil-runtime-modules)))) - (_%remove-duplicates202139%_ - (append _%gerbil-runtime-scm202312%_ - _%libgerbil-scm202308%_))))) - (_%remove-duplicates202139%_ - (lambda (_%strlst202267%_) - (let _%loop202269%_ ((_%rest202271%_ _%strlst202267%_) - (_%result202272%_ '())) - (let* ((_%rest202273202281%_ _%rest202271%_) - (_%else202275202289%_ - (lambda () (reverse! _%result202272%_))) - (_%K202277202295%_ - (lambda (_%rest202292%_ _%path202293%_) - (if (member _%path202293%_ _%result202272%_) - (_%loop202269%_ - _%rest202292%_ - _%result202272%_) - (_%loop202269%_ - _%rest202292%_ - (cons _%path202293%_ - _%result202272%_)))))) - (if (pair? _%rest202273202281%_) - (let ((_%hd202278202298%_ + (##map __tmp202702 gxc#gerbil-runtime-modules)))) + (_%remove-duplicates202245%_ + (append _%gerbil-runtime-scm202418%_ + _%libgerbil-scm202414%_))))) + (_%remove-duplicates202245%_ + (lambda (_%strlst202373%_) + (let _%loop202375%_ ((_%rest202377%_ _%strlst202373%_) + (_%result202378%_ '())) + (let* ((_%rest202379202387%_ _%rest202377%_) + (_%else202381202395%_ + (lambda () (reverse! _%result202378%_))) + (_%K202383202401%_ + (lambda (_%rest202398%_ _%path202399%_) + (if (member _%path202399%_ _%result202378%_) + (_%loop202375%_ + _%rest202398%_ + _%result202378%_) + (_%loop202375%_ + _%rest202398%_ + (cons _%path202399%_ + _%result202378%_)))))) + (if (pair? _%rest202379202387%_) + (let ((_%hd202384202404%_ (let () (declare (not safe)) - (##car _%rest202273202281%_))) - (_%tl202279202300%_ + (##car _%rest202379202387%_))) + (_%tl202385202406%_ (let () (declare (not safe)) - (##cdr _%rest202273202281%_)))) - (let* ((_%path202303%_ _%hd202278202298%_) - (_%rest202305%_ _%tl202279202300%_)) - (_%K202277202295%_ - _%rest202305%_ - _%path202303%_))) - (_%else202275202289%_)))))) - (_%compile-stub202140%_ - (lambda (_%output-scm202147%_ _%output-bin202148%_) - (let* ((_%gerbil-home202150%_ - (let ((__tmp202567 + (##cdr _%rest202379202387%_)))) + (let* ((_%path202409%_ _%hd202384202404%_) + (_%rest202411%_ _%tl202385202406%_)) + (_%K202383202401%_ + _%rest202411%_ + _%path202409%_))) + (_%else202381202395%_)))))) + (_%compile-stub202246%_ + (lambda (_%output-scm202253%_ _%output-bin202254%_) + (let* ((_%gerbil-home202256%_ + (let ((__tmp202705 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202567))) - (_%gerbil-libdir202152%_ - (path-expand '"lib" _%gerbil-home202150%_)) - (_%gerbil-staticdir202154%_ - (path-expand '"static" _%gerbil-libdir202152%_)) - (_%deps202156%_ - (gxc#find-runtime-module-deps _%ctx202128%_)) - (_%libgerbil-deps202158%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202705))) + (_%gerbil-libdir202258%_ + (path-expand '"lib" _%gerbil-home202256%_)) + (_%gerbil-staticdir202260%_ + (path-expand '"static" _%gerbil-libdir202258%_)) + (_%deps202262%_ + (gxc#find-runtime-module-deps _%ctx202234%_)) + (_%libgerbil-deps202264%_ (let () (declare (not safe)) (##filter - _%libgerbil-module?202135%_ - _%deps202156%_))) - (_%libgerbil-scm202160%_ + _%libgerbil-module?202241%_ + _%deps202262%_))) + (_%libgerbil-scm202266%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%libgerbil-deps202158%_))) - (_%libgerbil-scm202162%_ - (_%fold-libgerbil-runtime-scm202138%_ - _%gerbil-staticdir202154%_ - _%libgerbil-scm202160%_)) - (_%libgerbil-c202168%_ - (map (lambda (_%g202163202165%_) - (_%replace-extension202133%_ - _%g202163202165%_ + _%libgerbil-deps202264%_))) + (_%libgerbil-scm202268%_ + (_%fold-libgerbil-runtime-scm202244%_ + _%gerbil-staticdir202260%_ + _%libgerbil-scm202266%_)) + (_%libgerbil-c202274%_ + (map (lambda (_%g202269202271%_) + (_%replace-extension202239%_ + _%g202269202271%_ '".c")) - _%libgerbil-scm202162%_)) - (_%libgerbil-o202174%_ - (map (lambda (_%g202169202171%_) - (_%replace-extension202133%_ - _%g202169202171%_ + _%libgerbil-scm202268%_)) + (_%libgerbil-o202280%_ + (map (lambda (_%g202275202277%_) + (_%replace-extension202239%_ + _%g202275202277%_ '".o")) - _%libgerbil-scm202162%_)) - (_%src-deps202176%_ + _%libgerbil-scm202268%_)) + (_%src-deps202282%_ (let () (declare (not safe)) (##filter - _%userlib-module?202134%_ - _%deps202156%_))) - (_%src-deps-scm202178%_ + _%userlib-module?202240%_ + _%deps202262%_))) + (_%src-deps-scm202284%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%src-deps202176%_))) - (_%src-deps-scm202180%_ + _%src-deps202282%_))) + (_%src-deps-scm202286%_ (let () (declare (not safe)) (##filter - _%not-file-empty?202137%_ - _%src-deps-scm202178%_))) - (_%src-deps-scm202182%_ + _%not-file-empty?202243%_ + _%src-deps-scm202284%_))) + (_%src-deps-scm202288%_ (let () (declare (not safe)) - (##map path-expand _%src-deps-scm202180%_))) - (_%src-deps-c202188%_ - (let ((__tmp202568 - (lambda (_%g202183202185%_) - (_%replace-extension202133%_ - _%g202183202185%_ + (##map path-expand _%src-deps-scm202286%_))) + (_%src-deps-c202294%_ + (let ((__tmp202706 + (lambda (_%g202289202291%_) + (_%replace-extension202239%_ + _%g202289202291%_ '".c")))) (declare (not safe)) - (##map __tmp202568 _%src-deps-scm202182%_))) - (_%src-deps-o202194%_ - (let ((__tmp202569 - (lambda (_%g202189202191%_) - (_%replace-extension202133%_ - _%g202189202191%_ + (##map __tmp202706 _%src-deps-scm202288%_))) + (_%src-deps-o202300%_ + (let ((__tmp202707 + (lambda (_%g202295202297%_) + (_%replace-extension202239%_ + _%g202295202297%_ '".o")))) (declare (not safe)) - (##map __tmp202569 _%src-deps-scm202182%_))) - (_%src-bin-scm202196%_ - (gxc#find-static-module-file _%ctx202128%_)) - (_%src-bin-scm202198%_ - (path-expand _%src-bin-scm202196%_)) - (_%src-bin-c202200%_ - (_%replace-extension202133%_ - _%src-bin-scm202198%_ + (##map __tmp202707 _%src-deps-scm202288%_))) + (_%src-bin-scm202302%_ + (gxc#find-static-module-file _%ctx202234%_)) + (_%src-bin-scm202304%_ + (path-expand _%src-bin-scm202302%_)) + (_%src-bin-c202306%_ + (_%replace-extension202239%_ + _%src-bin-scm202304%_ '".c")) - (_%src-bin-o202202%_ - (_%replace-extension202133%_ - _%src-bin-scm202198%_ + (_%src-bin-o202308%_ + (_%replace-extension202239%_ + _%src-bin-scm202304%_ '".o")) - (_%output-bin202204%_ - (path-expand _%output-bin202148%_)) - (_%output-scm202206%_ - (path-expand _%output-scm202147%_)) - (_%output-c202208%_ - (_%replace-extension202133%_ - _%output-scm202206%_ + (_%output-bin202310%_ + (path-expand _%output-bin202254%_)) + (_%output-scm202312%_ + (path-expand _%output-scm202253%_)) + (_%output-c202314%_ + (_%replace-extension202239%_ + _%output-scm202312%_ '".c")) - (_%output-o202210%_ - (_%replace-extension202133%_ - _%output-scm202206%_ + (_%output-o202316%_ + (_%replace-extension202239%_ + _%output-scm202312%_ '".o")) - (_%output_-c202212%_ - (_%replace-extension202133%_ - _%output-scm202206%_ + (_%output_-c202318%_ + (_%replace-extension202239%_ + _%output-scm202312%_ '"_.c")) - (_%output_-o202214%_ - (_%replace-extension202133%_ - _%output-scm202206%_ + (_%output_-o202320%_ + (_%replace-extension202239%_ + _%output-scm202312%_ '"_.o")) - (_%gsc-link-opts202216%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202218%_ + (_%gsc-link-opts202322%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202324%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202220%_ + (_%gsc-static-opts202326%_ (gxc#gsc-static-include-options - _%gerbil-staticdir202154%_)) - (_%output-ld-opts202222%_ (gxc#gcc-ld-options)) - (_%libgerbil-ld-opts202224%_ - (_%get-libgerbil-ld-opts202132%_ - _%gerbil-libdir202152%_)) - (_%rpath202226%_ - (gxc#gerbil-rpath _%gerbil-libdir202152%_)) - (_%builtin-modules202230%_ - (_%remove-duplicates202139%_ - (let ((__tmp202570 - (let ((__tmp202572 - (lambda (_%mod202228%_) + _%gerbil-staticdir202260%_)) + (_%output-ld-opts202328%_ (gxc#gcc-ld-options)) + (_%libgerbil-ld-opts202330%_ + (_%get-libgerbil-ld-opts202238%_ + _%gerbil-libdir202258%_)) + (_%rpath202332%_ + (gxc#gerbil-rpath _%gerbil-libdir202258%_)) + (_%builtin-modules202336%_ + (_%remove-duplicates202245%_ + (let ((__tmp202708 + (let ((__tmp202710 + (lambda (_%mod202334%_) (symbol->string (##structure-ref - _%mod202228%_ + _%mod202334%_ '1 gx#expander-context::t '#f)))) - (__tmp202571 - (cons _%ctx202128%_ - _%deps202156%_))) + (__tmp202709 + (cons _%ctx202234%_ + _%deps202262%_))) (declare (not safe)) - (##map __tmp202572 __tmp202571)))) + (##map __tmp202710 __tmp202709)))) (declare (not safe)) (##append gxc#gerbil-runtime-modules - __tmp202570))))) - (letrec ((_%compile-obj202233%_ - (lambda (_%scm-path202240%_ _%c-path202241%_) - (let* ((_%o-path202243%_ - (_%replace-extension202133%_ - _%c-path202241%_ + __tmp202708))))) + (letrec ((_%compile-obj202339%_ + (lambda (_%scm-path202346%_ _%c-path202347%_) + (let* ((_%o-path202349%_ + (_%replace-extension202239%_ + _%c-path202347%_ '".o")) - (_%lock202245%_ + (_%lock202351%_ (let () (declare (not safe)) (##string-append - _%o-path202243%_ + _%o-path202349%_ '".lock"))) - (_%locked202247%_ '#f) - (_%unlock202250%_ + (_%locked202353%_ '#f) + (_%unlock202356%_ (lambda () - (close-port _%locked202247%_) + (close-port _%locked202353%_) (let () (declare (not safe)) (##delete-file - _%lock202245%_))))) - (let _%retry202253%_ () + _%lock202351%_))))) + (let _%retry202359%_ () (if (let () (declare (not safe)) - (##file-exists? _%lock202245%_)) + (##file-exists? _%lock202351%_)) (begin (thread-sleep! '.01) - (_%retry202253%_)) + (_%retry202359%_)) (begin - (set! _%locked202247%_ - (let ((__tmp202573 + (set! _%locked202353%_ + (let ((__tmp202711 (lambda () (open-file (cons 'path: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lock202245%_ + (cons _%lock202351%_ (cons 'create: (cons '#t '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__with-catch false - __tmp202573))) - (if _%locked202247%_ + __tmp202711))) + (if _%locked202353%_ '#!void - (_%retry202253%_))))) - (let ((__tmp202575 + (_%retry202359%_))))) + (let ((__tmp202713 (lambda () (if (or (not (let () (declare (not safe)) (##file-exists? - _%o-path202243%_))) - (not _%scm-path202240%_) + _%o-path202349%_))) + (not _%scm-path202346%_) (let () (declare (not safe)) (file-newer? - _%scm-path202240%_ - _%o-path202243%_))) - (let ((_%gsc-cc-opts202264%_ + _%scm-path202346%_ + _%o-path202349%_))) + (let ((_%gsc-cc-opts202370%_ (gxc#gsc-cc-options__%__0 '#f '#f))) @@ -698,41 +726,41 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202576 + (let ((__tmp202714 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202577 (cons _%c-path202241%_ '()))) + (let ((__tmp202715 (cons _%c-path202347%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202577 - _%gsc-static-opts202220%_)))) + __tmp202715 + _%gsc-static-opts202326%_)))) (declare (not safe)) - (__foldr1 cons __tmp202576 _%gsc-cc-opts202264%_))))) + (__foldr1 cons __tmp202714 _%gsc-cc-opts202370%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (__tmp202574 - (lambda () (_%unlock202250%_)))) + (__tmp202712 + (lambda () (_%unlock202356%_)))) (declare (not safe)) (__with-unwind-protect - __tmp202575 - __tmp202574)))))) - (let ((__tmp202578 + __tmp202713 + __tmp202712)))))) + (let ((__tmp202716 (lambda () - (let ((__tmp202579 - (path-directory _%output-bin202204%_))) + (let ((__tmp202717 + (path-directory _%output-bin202310%_))) (declare (not safe)) - (create-directory*__0 __tmp202579))))) + (create-directory*__0 __tmp202717))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202578)) + (__with-lock gxc#+driver-mutex+ __tmp202716)) (gxc#with-output-to-scheme-file - _%output-scm202206%_ + _%output-scm202312%_ (lambda () - (_%generate-stub202131%_ - _%builtin-modules202230%_))) + (_%generate-stub202237%_ + _%builtin-modules202336%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202238%_ + (let ((_%compile-it202344%_ (lambda () (gxc#invoke__% '#f @@ -740,46 +768,46 @@ absent-value (gxc#gerbil-gsc) (cons '"-link" - (let ((__tmp202580 - (let ((__tmp202581 - (let ((__tmp202582 + (let ((__tmp202718 + (let ((__tmp202719 + (let ((__tmp202720 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%src-bin-scm202198%_ - (cons _%output-scm202206%_ '())))) + (cons _%src-bin-scm202304%_ + (cons _%output-scm202312%_ '())))) (declare (not safe)) - (__foldr1 cons __tmp202582 _%src-deps-scm202182%_)))) + (__foldr1 cons __tmp202720 _%src-deps-scm202288%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202581 - _%libgerbil-c202168%_)))) + __tmp202719 + _%libgerbil-c202274%_)))) (declare (not safe)) (__foldr1 cons - __tmp202580 - _%gsc-link-opts202216%_)))) + __tmp202718 + _%gsc-link-opts202322%_)))) (for-each - _%compile-obj202233%_ - (let ((__tmp202583 - (cons _%src-bin-scm202198%_ - (cons _%output-scm202206%_ + _%compile-obj202339%_ + (let ((__tmp202721 + (cons _%src-bin-scm202304%_ + (cons _%output-scm202312%_ (cons '#f '()))))) (declare (not safe)) (__foldr1 cons - __tmp202583 - _%src-deps-scm202182%_)) - (let ((__tmp202584 - (cons _%src-bin-c202200%_ - (cons _%output-c202208%_ - (cons _%output_-c202212%_ + __tmp202721 + _%src-deps-scm202288%_)) + (let ((__tmp202722 + (cons _%src-bin-c202306%_ + (cons _%output-c202314%_ + (cons _%output_-c202318%_ '()))))) (declare (not safe)) (__foldr1 cons - __tmp202584 - _%src-deps-c202188%_))) + __tmp202722 + _%src-deps-c202294%_))) (gxc#invoke__% '#f absent-value @@ -787,71 +815,71 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin202204%_ - (let ((__tmp202585 - (cons _%src-bin-o202202%_ + (cons _%output-bin202310%_ + (let ((__tmp202723 + (cons _%src-bin-o202308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%output-o202210%_ - (cons _%output_-o202214%_ - (let ((__tmp202586 - (let ((__tmp202587 - (let ((__tmp202589 + (cons _%output-o202316%_ + (cons _%output_-o202320%_ + (let ((__tmp202724 + (let ((__tmp202725 + (let ((__tmp202727 (cons '"-L" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%gerbil-libdir202152%_ + (cons _%gerbil-libdir202258%_ (cons '"-lgambit" - _%libgerbil-ld-opts202224%_)))) - (__tmp202588 + _%libgerbil-ld-opts202330%_)))) + (__tmp202726 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202226%_ '()) + (cons _%rpath202332%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202589 __tmp202588)))) + (__foldr1 cons __tmp202727 __tmp202726)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202587 - _%output-ld-opts202222%_)))) + __tmp202725 + _%output-ld-opts202328%_)))) (declare (not safe)) (__foldr1 cons - __tmp202586 - _%libgerbil-o202174%_))))))) + __tmp202724 + _%libgerbil-o202280%_))))))) (declare (not safe)) - (__foldr1 cons __tmp202585 _%src-deps-o202194%_)))))) + (__foldr1 cons __tmp202723 _%src-deps-o202300%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp202590 - (cons _%output-c202208%_ - (cons _%output_-c202212%_ - (cons _%output-o202210%_ - (cons _%output_-o202214%_ + (let ((__tmp202728 + (cons _%output-c202314%_ + (cons _%output_-c202318%_ + (cons _%output-o202316%_ + (cons _%output_-o202320%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##for-each delete-file __tmp202590))))) + (##for-each delete-file __tmp202728))))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202238%_)) - (_%compile-it202238%_))) + _%compile-it202344%_)) + (_%compile-it202344%_))) '#!void)))))) - (let* ((_%output-bin202142%_ - (gxc#compile-exe-output-file _%ctx202128%_ _%opts202129%_)) - (_%output-scm202144%_ + (let* ((_%output-bin202248%_ + (gxc#compile-exe-output-file _%ctx202234%_ _%opts202235%_)) + (_%output-scm202250%_ (let () (declare (not safe)) - (##string-append _%output-bin202142%_ '"__exe.scm")))) - (_%compile-stub202140%_ - _%output-scm202144%_ - _%output-bin202142%_))))) + (##string-append _%output-bin202248%_ '"__exe.scm")))) + (_%compile-stub202246%_ + _%output-scm202250%_ + _%output-bin202248%_))))) (define gxc#compile-executable-module/full-program-optimization - (lambda (_%ctx201950%_ _%opts201951%_) - (letrec ((_%reset-declare201953%_ + (lambda (_%ctx202056%_ _%opts202057%_) + (letrec ((_%reset-declare202059%_ (lambda () '(declare (gambit-scheme) @@ -873,36 +901,36 @@ (optimize-dead-definitions) (generic) (mostly-fixnum-flonum)))) - (_%generate-stub201954%_ - (lambda (_%deps202119%_) - (let ((_%mod-main202121%_ - (gxc#find-runtime-symbol _%ctx201950%_ 'main)) - (_%reset-decl202122%_ (_%reset-declare201953%_)) - (_%user-decl202123%_ (_%user-declare201955%_))) + (_%generate-stub202060%_ + (lambda (_%deps202225%_) + (let ((_%mod-main202227%_ + (gxc#find-runtime-symbol _%ctx202056%_ 'main)) + (_%reset-decl202228%_ (_%reset-declare202059%_)) + (_%user-decl202229%_ (_%user-declare202061%_))) (for-each - (lambda (_%dep202125%_) + (lambda (_%dep202231%_) (let () (declare (not safe)) (##write '(##namespace ("")))) (newline) (let () (declare (not safe)) - (##write _%reset-decl202122%_)) + (##write _%reset-decl202228%_)) (newline) - (if _%user-decl202123%_ + (if _%user-decl202229%_ (begin (let () (declare (not safe)) - (##write _%user-decl202123%_)) + (##write _%user-decl202229%_)) (newline)) '#!void) - (let ((__tmp202591 - (cons 'include (cons _%dep202125%_ '())))) + (let ((__tmp202729 + (cons 'include (cons _%dep202231%_ '())))) (declare (not safe)) - (##write __tmp202591)) + (##write __tmp202729)) (newline)) - _%deps202119%_) - (let ((__tmp202592 + _%deps202225%_) + (let ((__tmp202730 (cons 'define (cons (cons 'gerbil-main '()) (cons (cons 'gerbil-runtime-init! @@ -912,236 +940,236 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'apply - (cons _%mod-main202121%_ + (cons _%mod-main202227%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'cdr (cons (cons 'command-line '()) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (##write __tmp202592)) + (##write __tmp202730)) (let () (declare (not safe)) (##write '(gerbil-main))) (newline)))) - (_%user-declare201955%_ + (_%user-declare202061%_ (lambda () - (let* ((_%gsc-opts202024%_ + (let* ((_%gsc-opts202130%_ (let () (declare (not safe)) - (pgetq__0 'gsc-options: _%opts201951%_))) - (_%gsc-prelude202026%_ - (if _%gsc-opts202024%_ - (member '"-prelude" _%gsc-opts202024%_) + (pgetq__0 'gsc-options: _%opts202057%_))) + (_%gsc-prelude202132%_ + (if _%gsc-opts202130%_ + (member '"-prelude" _%gsc-opts202130%_) '#f)) - (_%gsc-prelude202028%_ - (if _%gsc-prelude202026%_ + (_%gsc-prelude202134%_ + (if _%gsc-prelude202132%_ (read (open-input-string - (cadr _%gsc-prelude202026%_))) + (cadr _%gsc-prelude202132%_))) '#f))) - (let _%lp202031%_ ((_%rest202033%_ - (cons _%gsc-prelude202028%_ '())) - (_%user-decls202034%_ '())) - (let* ((_%rest202035202043%_ _%rest202033%_) - (_%else202037202051%_ + (let _%lp202137%_ ((_%rest202139%_ + (cons _%gsc-prelude202134%_ '())) + (_%user-decls202140%_ '())) + (let* ((_%rest202141202149%_ _%rest202139%_) + (_%else202143202157%_ (lambda () - (if (null? _%user-decls202034%_) + (if (null? _%user-decls202140%_) '#f (cons 'declare - (reverse _%user-decls202034%_))))) - (_%K202039202107%_ - (lambda (_%rest202054%_ _%expr202055%_) - (let* ((_%expr202056202068%_ _%expr202055%_) - (_%else202059202076%_ + (reverse _%user-decls202140%_))))) + (_%K202145202213%_ + (lambda (_%rest202160%_ _%expr202161%_) + (let* ((_%expr202162202174%_ _%expr202161%_) + (_%else202165202182%_ (lambda () - (_%lp202031%_ - _%rest202054%_ - _%user-decls202034%_)))) - (let ((_%K202064202097%_ - (lambda (_%decls202095%_) - (_%lp202031%_ - _%rest202054%_ + (_%lp202137%_ + _%rest202160%_ + _%user-decls202140%_)))) + (let ((_%K202170202203%_ + (lambda (_%decls202201%_) + (_%lp202137%_ + _%rest202160%_ (let () (declare (not safe)) (__foldl1 cons - _%user-decls202034%_ - _%decls202095%_))))) - (_%K202061202082%_ - (lambda (_%exprs202080%_) - (_%lp202031%_ - (append _%exprs202080%_ - _%rest202054%_) - _%user-decls202034%_)))) - (if (pair? _%expr202056202068%_) - (let ((_%tl202066202102%_ + _%user-decls202140%_ + _%decls202201%_))))) + (_%K202167202188%_ + (lambda (_%exprs202186%_) + (_%lp202137%_ + (append _%exprs202186%_ + _%rest202160%_) + _%user-decls202140%_)))) + (if (pair? _%expr202162202174%_) + (let ((_%tl202172202208%_ (let () (declare (not safe)) - (##cdr _%expr202056202068%_))) - (_%hd202065202100%_ + (##cdr _%expr202162202174%_))) + (_%hd202171202206%_ (let () (declare (not safe)) - (##car _%expr202056202068%_)))) + (##car _%expr202162202174%_)))) (if (let () (declare (not safe)) - (##eq? _%hd202065202100%_ + (##eq? _%hd202171202206%_ 'declare)) - (let ((_%decls202105%_ - _%tl202066202102%_)) - (_%K202064202097%_ - _%decls202105%_)) + (let ((_%decls202211%_ + _%tl202172202208%_)) + (_%K202170202203%_ + _%decls202211%_)) (if (let () (declare (not safe)) - (##eq? _%hd202065202100%_ + (##eq? _%hd202171202206%_ 'begin)) - (let ((_%exprs202090%_ - _%tl202066202102%_)) - (_%K202061202082%_ - _%exprs202090%_)) - (_%else202059202076%_)))) - (_%else202059202076%_))))))) - (if (pair? _%rest202035202043%_) - (let ((_%hd202040202110%_ + (let ((_%exprs202196%_ + _%tl202172202208%_)) + (_%K202167202188%_ + _%exprs202196%_)) + (_%else202165202182%_)))) + (_%else202165202182%_))))))) + (if (pair? _%rest202141202149%_) + (let ((_%hd202146202216%_ (let () (declare (not safe)) - (##car _%rest202035202043%_))) - (_%tl202041202112%_ + (##car _%rest202141202149%_))) + (_%tl202147202218%_ (let () (declare (not safe)) - (##cdr _%rest202035202043%_)))) - (let* ((_%expr202115%_ _%hd202040202110%_) - (_%rest202117%_ _%tl202041202112%_)) - (_%K202039202107%_ - _%rest202117%_ - _%expr202115%_))) - (_%else202037202051%_))))))) - (_%compile-stub201956%_ - (lambda (_%output-scm201963%_ _%output-bin201964%_) - (let* ((_%gerbil-home201966%_ - (let ((__tmp202593 + (##cdr _%rest202141202149%_)))) + (let* ((_%expr202221%_ _%hd202146202216%_) + (_%rest202223%_ _%tl202147202218%_)) + (_%K202145202213%_ + _%rest202223%_ + _%expr202221%_))) + (_%else202143202157%_))))))) + (_%compile-stub202062%_ + (lambda (_%output-scm202069%_ _%output-bin202070%_) + (let* ((_%gerbil-home202072%_ + (let ((__tmp202731 (let () (declare (not safe)) (gerbil-home)))) (declare (not safe)) - (##getenv '"GERBIL_BUILD_PREFIX" __tmp202593))) - (_%gerbil-libdir201968%_ - (path-expand '"lib" _%gerbil-home201966%_)) - (_%runtime201970%_ + (##getenv '"GERBIL_BUILD_PREFIX" __tmp202731))) + (_%gerbil-libdir202074%_ + (path-expand '"lib" _%gerbil-home202072%_)) + (_%runtime202076%_ (let () (declare (not safe)) (##map gxc#find-static-module-file gxc#gerbil-runtime-modules))) - (_%gambit-sharp201972%_ + (_%gambit-sharp202078%_ (path-expand '"lib/_gambit#.scm" - _%gerbil-home201966%_)) - (_%include-gambit-sharp201974%_ + _%gerbil-home202072%_)) + (_%include-gambit-sharp202080%_ (let () (declare (not safe)) (##string-append '"(include \"" - _%gambit-sharp201972%_ + _%gambit-sharp202078%_ '"\")"))) - (_%bin-scm201976%_ - (gxc#find-static-module-file _%ctx201950%_)) - (_%deps201978%_ - (gxc#find-runtime-module-deps _%ctx201950%_)) - (_%deps201980%_ + (_%bin-scm202082%_ + (gxc#find-static-module-file _%ctx202056%_)) + (_%deps202084%_ + (gxc#find-runtime-module-deps _%ctx202056%_)) + (_%deps202086%_ (let () (declare (not safe)) (##map gxc#find-static-module-file - _%deps201978%_))) - (_%deps201985%_ - (let ((__tmp202594 - (lambda (_%$obj201982%_) - (not (gxc#file-empty? _%$obj201982%_))))) + _%deps202084%_))) + (_%deps202091%_ + (let ((__tmp202732 + (lambda (_%$obj202088%_) + (not (gxc#file-empty? _%$obj202088%_))))) (declare (not safe)) - (##filter __tmp202594 _%deps201980%_))) - (_%deps201989%_ - (let ((__tmp202595 - (lambda (_%f201987%_) + (##filter __tmp202732 _%deps202086%_))) + (_%deps202095%_ + (let ((__tmp202733 + (lambda (_%f202093%_) (not (let () (declare (not safe)) (##member - _%f201987%_ - _%runtime201970%_)))))) + _%f202093%_ + _%runtime202076%_)))))) (declare (not safe)) - (##filter __tmp202595 _%deps201985%_))) - (_%output-base201991%_ - (let ((__tmp202596 + (##filter __tmp202733 _%deps202091%_))) + (_%output-base202097%_ + (let ((__tmp202734 (path-strip-extension - _%output-scm201963%_))) + _%output-scm202069%_))) (declare (not safe)) - (##string-append __tmp202596))) - (_%output-c201993%_ + (##string-append __tmp202734))) + (_%output-c202099%_ (let () (declare (not safe)) - (##string-append _%output-base201991%_ '".c"))) - (_%output-o201995%_ + (##string-append _%output-base202097%_ '".c"))) + (_%output-o202101%_ (let () (declare (not safe)) - (##string-append _%output-base201991%_ '".o"))) - (_%output-c_201997%_ + (##string-append _%output-base202097%_ '".o"))) + (_%output-c_202103%_ (let () (declare (not safe)) - (##string-append _%output-base201991%_ '"_.c"))) - (_%output-o_201999%_ + (##string-append _%output-base202097%_ '"_.c"))) + (_%output-o_202105%_ (let () (declare (not safe)) - (##string-append _%output-base201991%_ '"_.o"))) - (_%gsc-link-opts202001%_ (gxc#gsc-link-options__0)) - (_%gsc-cc-opts202003%_ + (##string-append _%output-base202097%_ '"_.o"))) + (_%gsc-link-opts202107%_ (gxc#gsc-link-options__0)) + (_%gsc-cc-opts202109%_ (gxc#gsc-cc-options__%__0 '#f '#t)) - (_%gsc-static-opts202005%_ + (_%gsc-static-opts202111%_ (gxc#gsc-static-include-options - (path-expand '"static" _%gerbil-libdir201968%_))) - (_%output-ld-opts202007%_ (gxc#gcc-ld-options)) - (_%gsc-gx-macros202009%_ + (path-expand '"static" _%gerbil-libdir202074%_))) + (_%output-ld-opts202113%_ (gxc#gcc-ld-options)) + (_%gsc-gx-macros202115%_ (if (let () (declare (not safe)) (gerbil-runtime-smp?)) (cons '"-e" (cons '"(define-cond-expand-feature|enable-smp|)" (cons '"-e" - (cons _%include-gambit-sharp201974%_ + (cons _%include-gambit-sharp202080%_ '())))) (cons '"-e" - (cons _%include-gambit-sharp201974%_ + (cons _%include-gambit-sharp202080%_ '())))) - (_%gsc-link-opts202011%_ + (_%gsc-link-opts202117%_ (let () (declare (not safe)) (##append - _%gsc-link-opts202001%_ - _%gsc-gx-macros202009%_))) - (_%rpath202013%_ - (gxc#gerbil-rpath _%gerbil-libdir201968%_)) - (_%default-ld-options202015%_ + _%gsc-link-opts202107%_ + _%gsc-gx-macros202115%_))) + (_%rpath202119%_ + (gxc#gerbil-rpath _%gerbil-libdir202074%_)) + (_%default-ld-options202121%_ (cons '"-ldl" (cons '"-lm" '())))) - (let ((__tmp202597 + (let ((__tmp202735 (lambda () - (let ((__tmp202598 - (path-directory _%output-bin201964%_))) + (let ((__tmp202736 + (path-directory _%output-bin202070%_))) (declare (not safe)) - (create-directory*__0 __tmp202598))))) + (create-directory*__0 __tmp202736))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202597)) + (__with-lock gxc#+driver-mutex+ __tmp202735)) (gxc#with-output-to-scheme-file - _%output-scm201963%_ + _%output-scm202069%_ (lambda () - (_%generate-stub201954%_ - (let ((__tmp202599 - (let ((__tmp202600 - (cons _%bin-scm201976%_ '()))) + (_%generate-stub202060%_ + (let ((__tmp202737 + (let ((__tmp202738 + (cons _%bin-scm202082%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202600 - _%deps201989%_)))) + __tmp202738 + _%deps202095%_)))) (declare (not safe)) - (__foldr1 cons __tmp202599 _%runtime201970%_))))) + (__foldr1 cons __tmp202737 _%runtime202076%_))))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it202021%_ + (let ((_%compile-it202127%_ (lambda () (gxc#invoke__% '#f @@ -1150,13 +1178,13 @@ (gxc#gerbil-gsc) (cons '"-link" (cons '"-o" - (cons _%output-c_201997%_ - (let ((__tmp202601 - (cons _%output-scm201963%_ + (cons _%output-c_202103%_ + (let ((__tmp202739 + (cons _%output-scm202069%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) (declare (not safe)) - (__foldr1 cons __tmp202601 _%gsc-link-opts202011%_)))))) + (__foldr1 cons __tmp202739 _%gsc-link-opts202117%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#invoke__% '#f @@ -1164,23 +1192,23 @@ absent-value (gxc#gerbil-gsc) (cons '"-obj" - (let ((__tmp202602 - (let ((__tmp202603 - (cons _%output-c201993%_ - (cons _%output-c_201997%_ + (let ((__tmp202740 + (let ((__tmp202741 + (cons _%output-c202099%_ + (cons _%output-c_202103%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 cons - __tmp202603 - _%gsc-static-opts202005%_)))) + __tmp202741 + _%gsc-static-opts202111%_)))) (declare (not safe)) (__foldr1 cons - __tmp202602 - _%gsc-cc-opts202003%_)))) + __tmp202740 + _%gsc-cc-opts202109%_)))) (gxc#invoke__% '#f absent-value @@ -1188,27 +1216,27 @@ (gxc#gerbil-gcc) (cons '"-w" (cons '"-o" - (cons _%output-bin201964%_ - (cons _%output-o201995%_ - (cons _%output-o_201999%_ + (cons _%output-bin202070%_ + (cons _%output-o202101%_ + (cons _%output-o_202105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp202604 - (let ((__tmp202606 + (let ((__tmp202742 + (let ((__tmp202744 (cons '"-L" - (cons _%gerbil-libdir201968%_ + (cons _%gerbil-libdir202074%_ (cons '"-lgambit" - _%default-ld-options202015%_)))) - (__tmp202605 + _%default-ld-options202121%_)))) + (__tmp202743 (if (gxc#gerbil-enable-shared?) - (cons _%rpath202013%_ '()) + (cons _%rpath202119%_ '()) '()))) (declare (not safe)) - (__foldr1 cons __tmp202606 __tmp202605)))) + (__foldr1 cons __tmp202744 __tmp202743)))) (declare (not safe)) (__foldr1 cons - __tmp202604 - _%output-ld-opts202007%_))))))))))) + __tmp202742 + _%output-ld-opts202113%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) @@ -1216,626 +1244,626 @@ (let () (declare (not safe)) (gxc#add-compile-job!__0 - _%compile-it202021%_)) - (_%compile-it202021%_))) + _%compile-it202127%_)) + (_%compile-it202127%_))) '#!void))))) - (let* ((_%output-bin201958%_ - (gxc#compile-exe-output-file _%ctx201950%_ _%opts201951%_)) - (_%output-scm201960%_ + (let* ((_%output-bin202064%_ + (gxc#compile-exe-output-file _%ctx202056%_ _%opts202057%_)) + (_%output-scm202066%_ (let () (declare (not safe)) - (##string-append _%output-bin201958%_ '"__exe.scm")))) - (_%compile-stub201956%_ - _%output-scm201960%_ - _%output-bin201958%_))))) + (##string-append _%output-bin202064%_ '"__exe.scm")))) + (_%compile-stub202062%_ + _%output-scm202066%_ + _%output-bin202064%_))))) (define gxc#find-export-binding - (lambda (_%ctx201899%_ _%id201900%_) - (let ((_%$e201946%_ - (let ((__tmp202608 - (lambda (_%e201901201903%_) - (let* ((_%g201905201915%_ _%e201901201903%_) - (_%else201907201923%_ (lambda () '#f)) - (_%K201909201927%_ (lambda () '#t))) + (lambda (_%ctx202005%_ _%id202006%_) + (let ((_%$e202052%_ + (let ((__tmp202746 + (lambda (_%e202007202009%_) + (let* ((_%g202011202021%_ _%e202007202009%_) + (_%else202013202029%_ (lambda () '#f)) + (_%K202015202033%_ (lambda () '#t))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%g201905201915%_ + _%g202011202021%_ 'gx#module-export::t)) - (let* ((_%e201910201930%_ + (let* ((_%e202016202036%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201905201915%_ + _%g202011202021%_ '1 '#f '#f))) - (_%e201911201933%_ + (_%e202017202039%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201905201915%_ + _%g202011202021%_ '2 '#f '#f))) - (_%e201912201936%_ + (_%e202018202042%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201905201915%_ + _%g202011202021%_ '3 '#f '#f)))) (if (let () (declare (not safe)) - (##eq? _%e201912201936%_ '0)) - (let ((_%e201913201939%_ + (##eq? _%e202018202042%_ '0)) + (let ((_%e202019202045%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g201905201915%_ + _%g202011202021%_ '4 '#f '#f)))) - (if ((lambda (_%g201941201943%_) - (eq? _%g201941201943%_ - _%id201900%_)) - _%e201913201939%_) - (_%K201909201927%_) - (_%else201907201923%_))) - (_%else201907201923%_))) - (_%else201907201923%_))))) - (__tmp202607 + (if ((lambda (_%g202047202049%_) + (eq? _%g202047202049%_ + _%id202006%_)) + _%e202019202045%_) + (_%K202015202033%_) + (_%else202013202029%_))) + (_%else202013202029%_))) + (_%else202013202029%_))))) + (__tmp202745 (##structure-ref - _%ctx201899%_ + _%ctx202005%_ '9 gx#module-context::t '#f))) (declare (not safe)) - (__find __tmp202608 __tmp202607)))) - (if _%$e201946%_ + (__find __tmp202746 __tmp202745)))) + (if _%$e202052%_ (let () (declare (not safe)) - (gx#core-resolve-module-export _%$e201946%_)) + (gx#core-resolve-module-export _%$e202052%_)) '#f)))) (define gxc#find-runtime-symbol - (lambda (_%ctx201890%_ _%id201891%_) - (let ((_%$e201893%_ - (gxc#find-export-binding _%ctx201890%_ _%id201891%_))) - (if _%$e201893%_ - ((lambda (_%bind201896%_) + (lambda (_%ctx201996%_ _%id201997%_) + (let ((_%$e201999%_ + (gxc#find-export-binding _%ctx201996%_ _%id201997%_))) + (if _%$e201999%_ + ((lambda (_%bind202002%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%bind201896%_ + _%bind202002%_ 'gx#runtime-binding::t)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"export is not a runtime binding" - _%id201891%_))) - (##structure-ref _%bind201896%_ '1 gx#binding::t '#f)) - _%$e201893%_) - (let ((__tmp202609 + _%id201997%_))) + (##structure-ref _%bind202002%_ '1 gx#binding::t '#f)) + _%$e201999%_) + (let ((__tmp202747 (##structure-ref - _%ctx201890%_ + _%ctx201996%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"module does not export symbol" - __tmp202609 - _%id201891%_)))))) + __tmp202747 + _%id201997%_)))))) (define gxc#find-runtime-module-deps - (lambda (_%ctx201756%_) - (letrec* ((_%ht201758%_ + (lambda (_%ctx201862%_) + (letrec* ((_%ht201864%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%import-set-template201759%_ - (lambda (_%in201835%_ _%phi201836%_) - (let ((_%iphi201838%_ - (fx+ _%phi201836%_ + (_%import-set-template201865%_ + (lambda (_%in201941%_ _%phi201942%_) + (let ((_%iphi201944%_ + (fx+ _%phi201942%_ (##direct-structure-ref - _%in201835%_ + _%in201941%_ '2 gx#import-set::t '#f))) - (_%imports201839%_ + (_%imports201945%_ (##structure-ref (##direct-structure-ref - _%in201835%_ + _%in201941%_ '1 gx#import-set::t '#f) '8 gx#module-context::t '#f))) - (let _%lp201841%_ ((_%rest201843%_ _%imports201839%_) - (_%r201844%_ '())) - (let* ((_%rest201845201853%_ _%rest201843%_) - (_%else201847201861%_ (lambda () _%r201844%_)) - (_%K201849201878%_ - (lambda (_%rest201864%_ _%in201865%_) + (let _%lp201947%_ ((_%rest201949%_ _%imports201945%_) + (_%r201950%_ '())) + (let* ((_%rest201951201959%_ _%rest201949%_) + (_%else201953201967%_ (lambda () _%r201950%_)) + (_%K201955201984%_ + (lambda (_%rest201970%_ _%in201971%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%in201865%_ + _%in201971%_ 'gx#module-context::t)) (if (let () (declare (not safe)) - (##fxzero? _%iphi201838%_)) - (_%lp201841%_ - _%rest201864%_ - (cons _%in201865%_ _%r201844%_)) - (_%lp201841%_ - _%rest201864%_ - _%r201844%_)) + (##fxzero? _%iphi201944%_)) + (_%lp201947%_ + _%rest201970%_ + (cons _%in201971%_ _%r201950%_)) + (_%lp201947%_ + _%rest201970%_ + _%r201950%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201865%_ + _%in201971%_ 'gx#module-import::t)) - (let ((_%iphi201869%_ - (fx+ _%phi201836%_ + (let ((_%iphi201975%_ + (fx+ _%phi201942%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201865%_ + _%in201971%_ '3 '#f '#f))))) (if (let () (declare (not safe)) - (##fxzero? _%iphi201869%_)) - (_%lp201841%_ - _%rest201864%_ + (##fxzero? _%iphi201975%_)) + (_%lp201947%_ + _%rest201970%_ (cons (##direct-structure-ref (let () (declare (not safe)) (##unchecked-structure-ref - _%in201865%_ + _%in201971%_ '1 '#f '#f)) '1 gx#module-export::t '#f) - _%r201844%_)) - (_%lp201841%_ - _%rest201864%_ - _%r201844%_))) + _%r201950%_)) + (_%lp201947%_ + _%rest201970%_ + _%r201950%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%in201865%_ + _%in201971%_ 'gx#import-set::t)) - (let ((_%xphi201872%_ - (fx+ _%iphi201838%_ + (let ((_%xphi201978%_ + (fx+ _%iphi201944%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%in201865%_ + _%in201971%_ '2 '#f '#f))))) (if (let () (declare (not safe)) (##fxzero? - _%xphi201872%_)) - (_%lp201841%_ - _%rest201864%_ + _%xphi201978%_)) + (_%lp201947%_ + _%rest201970%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%in201865%_ + _%in201971%_ '1 '#f '#f)) - _%r201844%_)) + _%r201950%_)) (if (let () (declare (not safe)) (##fxpositive? - _%xphi201872%_)) - (_%lp201841%_ - _%rest201864%_ - (let ((__tmp202610 + _%xphi201978%_)) + (_%lp201947%_ + _%rest201970%_ + (let ((__tmp202748 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%import-set-template201759%_ - _%in201865%_ - _%iphi201838%_))) + (_%import-set-template201865%_ + _%in201971%_ + _%iphi201944%_))) (declare (not safe)) - (__foldl1 cons _%r201844%_ __tmp202610))) - (_%lp201841%_ _%rest201864%_ _%r201844%_)))) + (__foldl1 cons _%r201950%_ __tmp202748))) + (_%lp201947%_ _%rest201970%_ _%r201950%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp201841%_ - _%rest201864%_ - _%r201844%_))))))) - (if (pair? _%rest201845201853%_) - (let ((_%hd201850201881%_ + (_%lp201947%_ + _%rest201970%_ + _%r201950%_))))))) + (if (pair? _%rest201951201959%_) + (let ((_%hd201956201987%_ (let () (declare (not safe)) - (##car _%rest201845201853%_))) - (_%tl201851201883%_ + (##car _%rest201951201959%_))) + (_%tl201957201989%_ (let () (declare (not safe)) - (##cdr _%rest201845201853%_)))) - (let* ((_%in201886%_ _%hd201850201881%_) - (_%rest201888%_ _%tl201851201883%_)) - (_%K201849201878%_ - _%rest201888%_ - _%in201886%_))) - (_%else201847201861%_))))))) - (_%find-deps201760%_ - (lambda (_%rest201768%_ _%deps201769%_) - (let* ((_%rest201770201778%_ _%rest201768%_) - (_%else201772201786%_ (lambda () _%deps201769%_)) - (_%K201774201823%_ - (lambda (_%rest201789%_ _%hd201790%_) + (##cdr _%rest201951201959%_)))) + (let* ((_%in201992%_ _%hd201956201987%_) + (_%rest201994%_ _%tl201957201989%_)) + (_%K201955201984%_ + _%rest201994%_ + _%in201992%_))) + (_%else201953201967%_))))))) + (_%find-deps201866%_ + (lambda (_%rest201874%_ _%deps201875%_) + (let* ((_%rest201876201884%_ _%rest201874%_) + (_%else201878201892%_ (lambda () _%deps201875%_)) + (_%K201880201929%_ + (lambda (_%rest201895%_ _%hd201896%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201790%_ + _%hd201896%_ 'gx#module-context::t)) - (let ((_%id201793%_ + (let ((_%id201899%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '1 '#f '#f))) - (_%imports201794%_ + (_%imports201900%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '8 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201758%_ - _%id201793%_)) - (_%find-deps201760%_ - _%rest201789%_ - _%deps201769%_) - (let ((_%$e201797%_ + _%ht201864%_ + _%id201899%_)) + (_%find-deps201866%_ + _%rest201895%_ + _%deps201875%_) + (let ((_%$e201903%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd201790%_)))) - (if _%$e201797%_ - ((lambda (_%pre201800%_) - (let ((_%xdeps201802%_ - (_%find-deps201760%_ - (cons _%pre201800%_ - _%imports201794%_) - _%deps201769%_))) + _%hd201896%_)))) + (if _%$e201903%_ + ((lambda (_%pre201906%_) + (let ((_%xdeps201908%_ + (_%find-deps201866%_ + (cons _%pre201906%_ + _%imports201900%_) + _%deps201875%_))) (let () (declare (not safe)) (__hash-put! - _%ht201758%_ - _%id201793%_ - _%hd201790%_)) - (_%find-deps201760%_ - _%rest201789%_ - (cons _%hd201790%_ - _%xdeps201802%_)))) - _%$e201797%_) - (let ((_%xdeps201805%_ - (_%find-deps201760%_ - _%imports201794%_ - _%deps201769%_))) + _%ht201864%_ + _%id201899%_ + _%hd201896%_)) + (_%find-deps201866%_ + _%rest201895%_ + (cons _%hd201896%_ + _%xdeps201908%_)))) + _%$e201903%_) + (let ((_%xdeps201911%_ + (_%find-deps201866%_ + _%imports201900%_ + _%deps201875%_))) (let () (declare (not safe)) (__hash-put! - _%ht201758%_ - _%id201793%_ - _%hd201790%_)) - (_%find-deps201760%_ - _%rest201789%_ - (cons _%hd201790%_ - _%xdeps201805%_))))))) + _%ht201864%_ + _%id201899%_ + _%hd201896%_)) + (_%find-deps201866%_ + _%rest201895%_ + (cons _%hd201896%_ + _%xdeps201911%_))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd201790%_ + _%hd201896%_ 'gx#prelude-context::t)) - (let ((_%id201808%_ + (let ((_%id201914%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '1 '#f '#f)))) (if (let () (declare (not safe)) (__hash-get - _%ht201758%_ - _%id201808%_)) - (_%find-deps201760%_ - _%rest201789%_ - _%deps201769%_) - (let ((_%xdeps201812%_ - (_%find-deps201760%_ + _%ht201864%_ + _%id201914%_)) + (_%find-deps201866%_ + _%rest201895%_ + _%deps201875%_) + (let ((_%xdeps201918%_ + (_%find-deps201866%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '7 '#f '#f)) - _%deps201769%_))) + _%deps201875%_))) (if (let () (declare (not safe)) (__hash-get - _%ht201758%_ - _%id201808%_)) - (_%find-deps201760%_ - _%rest201789%_ - _%xdeps201812%_) + _%ht201864%_ + _%id201914%_)) + (_%find-deps201866%_ + _%rest201895%_ + _%xdeps201918%_) (begin (let () (declare (not safe)) (__hash-put! - _%ht201758%_ - _%id201808%_ - _%hd201790%_)) - (_%find-deps201760%_ - _%rest201789%_ - (cons _%hd201790%_ - _%xdeps201812%_))))))) + _%ht201864%_ + _%id201914%_ + _%hd201896%_)) + (_%find-deps201866%_ + _%rest201895%_ + (cons _%hd201896%_ + _%xdeps201918%_))))))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201790%_ + _%hd201896%_ 'gx#module-import::t)) (if (fxzero? (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '3 '#f '#f))) - (_%find-deps201760%_ + (_%find-deps201866%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '1 '#f '#f)) - _%rest201789%_) - _%deps201769%_) - (_%find-deps201760%_ - _%rest201789%_ - _%deps201769%_)) + _%rest201895%_) + _%deps201875%_) + (_%find-deps201866%_ + _%rest201895%_ + _%deps201875%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201790%_ + _%hd201896%_ 'gx#module-export::t)) - (_%find-deps201760%_ + (_%find-deps201866%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd201790%_ + _%hd201896%_ '1 '#f '#f)) - _%rest201789%_) - _%deps201769%_) + _%rest201895%_) + _%deps201875%_) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd201790%_ + _%hd201896%_ 'gx#import-set::t)) (if (fxzero? (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##unchecked-structure-ref _%hd201790%_ '2 '#f '#f))) - (_%find-deps201760%_ + (##unchecked-structure-ref _%hd201896%_ '2 '#f '#f))) + (_%find-deps201866%_ (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201790%_ '1 '#f '#f)) - _%rest201789%_) - _%deps201769%_) + (##unchecked-structure-ref _%hd201896%_ '1 '#f '#f)) + _%rest201895%_) + _%deps201875%_) (if (fxpositive? (let () (declare (not safe)) - (##unchecked-structure-ref _%hd201790%_ '2 '#f '#f))) - (let ((_%xdeps201819%_ - (_%import-set-template201759%_ _%hd201790%_ '0))) - (_%find-deps201760%_ + (##unchecked-structure-ref _%hd201896%_ '2 '#f '#f))) + (let ((_%xdeps201925%_ + (_%import-set-template201865%_ _%hd201896%_ '0))) + (_%find-deps201866%_ (let () (declare (not safe)) - (__foldl1 cons _%rest201789%_ _%xdeps201819%_)) - _%deps201769%_)) - (_%find-deps201760%_ _%rest201789%_ _%deps201769%_))) + (__foldl1 cons _%rest201895%_ _%xdeps201925%_)) + _%deps201875%_)) + (_%find-deps201866%_ _%rest201895%_ _%deps201875%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (error '"Unexpected module import" - _%hd201790%_)))))))))) - (if (pair? _%rest201770201778%_) - (let ((_%hd201775201826%_ + _%hd201896%_)))))))))) + (if (pair? _%rest201876201884%_) + (let ((_%hd201881201932%_ (let () (declare (not safe)) - (##car _%rest201770201778%_))) - (_%tl201776201828%_ + (##car _%rest201876201884%_))) + (_%tl201882201934%_ (let () (declare (not safe)) - (##cdr _%rest201770201778%_)))) - (let* ((_%hd201831%_ _%hd201775201826%_) - (_%rest201833%_ _%tl201776201828%_)) - (_%K201774201823%_ - _%rest201833%_ - _%hd201831%_))) - (_%else201772201786%_)))))) - (let ((__tmp202611 + (##cdr _%rest201876201884%_)))) + (let* ((_%hd201937%_ _%hd201881201932%_) + (_%rest201939%_ _%tl201882201934%_)) + (_%K201880201929%_ + _%rest201939%_ + _%hd201937%_))) + (_%else201878201892%_)))))) + (let ((__tmp202749 (filter gx#expander-context-id - (_%find-deps201760%_ - (let ((_%$e201762%_ + (_%find-deps201866%_ + (let ((_%$e201868%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%ctx201756%_)))) - (if _%$e201762%_ - ((lambda (_%pre201765%_) - (cons _%pre201765%_ + _%ctx201862%_)))) + (if _%$e201868%_ + ((lambda (_%pre201871%_) + (cons _%pre201871%_ (##structure-ref - _%ctx201756%_ + _%ctx201862%_ '8 gx#module-context::t '#f))) - _%$e201762%_) + _%$e201868%_) (##structure-ref - _%ctx201756%_ + _%ctx201862%_ '8 gx#module-context::t '#f))) '())))) (declare (not safe)) - (##reverse __tmp202611))))) + (##reverse __tmp202749))))) (define gxc#find-static-module-file - (lambda (_%ctx201686%_) - (let* ((_%context-id201688%_ + (lambda (_%ctx201792%_) + (let* ((_%context-id201794%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%ctx201686%_ + _%ctx201792%_ 'gx#module-context::t)) (let () (declare (not safe)) - (##unchecked-structure-ref _%ctx201686%_ '1 '#f '#f)) - (string->symbol _%ctx201686%_))) - (_%scm201690%_ - (let ((__tmp202612 - (gxc#static-module-name _%context-id201688%_))) + (##unchecked-structure-ref _%ctx201792%_ '1 '#f '#f)) + (string->symbol _%ctx201792%_))) + (_%scm201796%_ + (let ((__tmp202750 + (gxc#static-module-name _%context-id201794%_))) (declare (not safe)) - (##string-append __tmp202612 '".scm"))) - (_%dirs201692%_ (let () (declare (not safe)) (load-path))) - (_%dirs201698%_ - (let ((_%user-libpath201694%_ + (##string-append __tmp202750 '".scm"))) + (_%dirs201798%_ (let () (declare (not safe)) (load-path))) + (_%dirs201804%_ + (let ((_%user-libpath201800%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%user-libpath201694%_ - (let ((_%user-libpath201696%_ - (path-expand '"lib" _%user-libpath201694%_))) + (if _%user-libpath201800%_ + (let ((_%user-libpath201802%_ + (path-expand '"lib" _%user-libpath201800%_))) (if (let () (declare (not safe)) - (##member _%user-libpath201696%_ _%dirs201692%_)) - _%dirs201692%_ - (cons _%user-libpath201696%_ _%dirs201692%_))) - _%dirs201692%_))) - (_%dirs201708%_ - (let ((_%$e201700%_ + (##member _%user-libpath201802%_ _%dirs201798%_)) + _%dirs201798%_ + (cons _%user-libpath201802%_ _%dirs201798%_))) + _%dirs201798%_))) + (_%dirs201814%_ + (let ((_%$e201806%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e201700%_ - ((lambda (_%g201702201704%_) - (cons _%g201702201704%_ _%dirs201698%_)) - _%$e201700%_) - _%dirs201698%_))) - (_%dirs201714%_ - (let ((__tmp202613 - (lambda (_%g201709201711%_) - (path-expand '"static" _%g201709201711%_)))) + (if _%$e201806%_ + ((lambda (_%g201808201810%_) + (cons _%g201808201810%_ _%dirs201804%_)) + _%$e201806%_) + _%dirs201804%_))) + (_%dirs201820%_ + (let ((__tmp202751 + (lambda (_%g201815201817%_) + (path-expand '"static" _%g201815201817%_)))) (declare (not safe)) - (##map __tmp202613 _%dirs201708%_)))) - (let _%lp201717%_ ((_%rest201719%_ _%dirs201714%_)) - (let* ((_%rest201720201728%_ _%rest201719%_) - (_%else201722201736%_ + (##map __tmp202751 _%dirs201814%_)))) + (let _%lp201823%_ ((_%rest201825%_ _%dirs201820%_)) + (let* ((_%rest201826201834%_ _%rest201825%_) + (_%else201828201842%_ (lambda () - (let ((__tmp202614 + (let ((__tmp202752 (##structure-ref - _%ctx201686%_ + _%ctx201792%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"cannot find static module" - __tmp202614 - _%scm201690%_)))) - (_%K201724201744%_ - (lambda (_%rest201739%_ _%dir201740%_) - (let ((_%path201742%_ - (path-expand _%scm201690%_ _%dir201740%_))) + __tmp202752 + _%scm201796%_)))) + (_%K201830201850%_ + (lambda (_%rest201845%_ _%dir201846%_) + (let ((_%path201848%_ + (path-expand _%scm201796%_ _%dir201846%_))) (if (let () (declare (not safe)) - (##file-exists? _%path201742%_)) - _%path201742%_ - (_%lp201717%_ _%rest201739%_)))))) - (if (pair? _%rest201720201728%_) - (let ((_%hd201725201747%_ + (##file-exists? _%path201848%_)) + _%path201848%_ + (_%lp201823%_ _%rest201845%_)))))) + (if (pair? _%rest201826201834%_) + (let ((_%hd201831201853%_ (let () (declare (not safe)) - (##car _%rest201720201728%_))) - (_%tl201726201749%_ + (##car _%rest201826201834%_))) + (_%tl201832201855%_ (let () (declare (not safe)) - (##cdr _%rest201720201728%_)))) - (let* ((_%dir201752%_ _%hd201725201747%_) - (_%rest201754%_ _%tl201726201749%_)) - (_%K201724201744%_ _%rest201754%_ _%dir201752%_))) - (_%else201722201736%_))))))) + (##cdr _%rest201826201834%_)))) + (let* ((_%dir201858%_ _%hd201831201853%_) + (_%rest201860%_ _%tl201832201855%_)) + (_%K201830201850%_ _%rest201860%_ _%dir201858%_))) + (_%else201828201842%_))))))) (define gxc#file-empty? - (lambda (_%path201684%_) - (zero? (let ((__tmp202615 (file-info _%path201684%_ '#t))) + (lambda (_%path201790%_) + (zero? (let ((__tmp202753 (file-info _%path201790%_ '#t))) (declare (not safe)) - (##file-info-size __tmp202615))))) + (##file-info-size __tmp202753))))) (define gxc#compile-top-module - (lambda (_%ctx201680%_) - (let ((__tmp202619 + (lambda (_%ctx201786%_) + (let ((__tmp202757 (lambda () - (let ((__tmp202620 + (let ((__tmp202758 (##structure-ref - _%ctx201680%_ + _%ctx201786%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#verbose '"compile " __tmp202620)) + (gxc#verbose '"compile " __tmp202758)) (if (let () (declare (not safe)) (gxc#current-compile-optimize)) - (let ((__tmp202621 + (let ((__tmp202759 (lambda () (let () (declare (not safe)) - (gxc#optimize! _%ctx201680%_))))) + (gxc#optimize! _%ctx201786%_))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202621)) + (__with-lock gxc#+driver-mutex+ __tmp202759)) '#!void) - (gxc#collect-bindings _%ctx201680%_) - (gxc#compile-runtime-code _%ctx201680%_) - (gxc#compile-meta-code _%ctx201680%_) + (gxc#collect-bindings _%ctx201786%_) + (gxc#compile-runtime-code _%ctx201786%_) + (gxc#compile-meta-code _%ctx201786%_) (if (and (let () (declare (not safe)) (gxc#current-compile-optimize)) (let () (declare (not safe)) (gxc#current-compile-generate-ssxi))) - (gxc#compile-ssxi-code _%ctx201680%_) + (gxc#compile-ssxi-code _%ctx201786%_) '#!void))) - (__tmp202618 - (let ((__obj202542 + (__tmp202756 + (let ((__obj202680 (let () (declare (not safe)) (##structure gxc#symbol-table::t '#f '#f)))) (let () (declare (not safe)) - (gxc#symbol-table:::init! __obj202542)) - __obj202542)) - (__tmp202617 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202616 + (gxc#symbol-table:::init! __obj202680)) + __obj202680)) + (__tmp202755 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp202754 (let () (declare (not safe)) (make-hash-table__% @@ -1850,137 +1878,137 @@ absent-value)))) (declare (not safe)) (__call-with-parameters - __tmp202619 + __tmp202757 gx#current-expander-context - _%ctx201680%_ + _%ctx201786%_ gx#current-expander-phi '0 gx#current-expander-marks '() gxc#current-compile-symbol-table - __tmp202618 + __tmp202756 gxc#current-compile-runtime-sections - __tmp202617 + __tmp202755 gxc#current-compile-runtime-names - __tmp202616)))) + __tmp202754)))) (define gxc#collect-bindings - (lambda (_%ctx201678%_) - (let ((__tmp202622 - (##structure-ref _%ctx201678%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201784%_) + (let ((__tmp202760 + (##structure-ref _%ctx201784%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-collect-bindings __tmp202622)))) + (gxc#apply-collect-bindings __tmp202760)))) (define gxc#compile-runtime-code - (lambda (_%ctx201626%_) - (letrec ((_%compile1201628%_ - (lambda (_%ctx201667%_) - (let* ((_%code201669%_ + (lambda (_%ctx201732%_) + (letrec ((_%compile1201734%_ + (lambda (_%ctx201773%_) + (let* ((_%code201775%_ (##structure-ref - _%ctx201667%_ + _%ctx201773%_ '11 gx#module-context::t '#f)) - (_%rtm201673%_ - (let ((_%idstr201671%_ - (let ((__tmp202623 + (_%rtm201779%_ + (let ((_%idstr201777%_ + (let ((__tmp202761 (##structure-ref - _%ctx201667%_ + _%ctx201773%_ '1 gx#expander-context::t '#f))) (declare (not safe)) (gxc#module-id->path-string - __tmp202623)))) + __tmp202761)))) (declare (not safe)) - (##string-append _%idstr201671%_ '"~0"))) - (_%rtc?201675%_ + (##string-append _%idstr201777%_ '"~0"))) + (_%rtc?201781%_ (let () (declare (not safe)) - (gxc#apply-find-runtime-code _%code201669%_)))) - (if _%rtc?201675%_ - (let ((__tmp202624 + (gxc#apply-find-runtime-code _%code201775%_)))) + (if _%rtc?201781%_ + (let ((__tmp202762 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) (hash-put! - __tmp202624 - _%ctx201667%_ - _%rtm201673%_)) + __tmp202762 + _%ctx201773%_ + _%rtm201779%_)) '#!void) - (_%generate-runtime-code201630%_ - _%ctx201667%_ - _%code201669%_ - (if _%rtc?201675%_ _%rtm201673%_ '#f))))) - (_%context-timestamp201629%_ - (lambda (_%ctx201665%_) - (let ((__tmp202625 - (let ((__tmp202626 + (_%generate-runtime-code201736%_ + _%ctx201773%_ + _%code201775%_ + (if _%rtc?201781%_ _%rtm201779%_ '#f))))) + (_%context-timestamp201735%_ + (lambda (_%ctx201771%_) + (let ((__tmp202763 + (let ((__tmp202764 (symbol->string (##structure-ref - _%ctx201665%_ + _%ctx201771%_ '1 gx#expander-context::t '#f)))) (declare (not safe)) - (##string-append __tmp202626 '"::timestamp")))) + (##string-append __tmp202764 '"::timestamp")))) (declare (not safe)) - (##string->symbol __tmp202625)))) - (_%generate-runtime-code201630%_ - (lambda (_%ctx201637%_ _%code201638%_ _%rtm201639%_) - (let* ((_%runtime-code?201641%_ (if _%rtm201639%_ '#t '#f)) - (_%lifts201643%_ (box '())) - (_%runtime-code201646%_ - (if _%runtime-code?201641%_ - (let ((__tmp202629 + (##string->symbol __tmp202763)))) + (_%generate-runtime-code201736%_ + (lambda (_%ctx201743%_ _%code201744%_ _%rtm201745%_) + (let* ((_%runtime-code?201747%_ (if _%rtm201745%_ '#t '#f)) + (_%lifts201749%_ (box '())) + (_%runtime-code201752%_ + (if _%runtime-code?201747%_ + (let ((__tmp202767 (lambda () (let () (declare (not safe)) (gxc#apply-generate-runtime - _%code201638%_)))) - (__tmp202628 + _%code201744%_)))) + (__tmp202766 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202627 + (__tmp202765 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202629 + __tmp202767 gx#current-expander-context - _%ctx201637%_ + _%ctx201743%_ gx#current-expander-phi '0 gxc#current-compile-lift - _%lifts201643%_ + _%lifts201749%_ gxc#current-compile-marks - __tmp202628 + __tmp202766 gxc#current-compile-identifiers - __tmp202627)) + __tmp202765)) '#f)) - (_%runtime-code201648%_ - (if _%runtime-code?201641%_ - (if (null? (unbox _%lifts201643%_)) - _%runtime-code201646%_ + (_%runtime-code201754%_ + (if _%runtime-code?201747%_ + (if (null? (unbox _%lifts201749%_)) + _%runtime-code201752%_ (cons 'begin - (let ((__tmp202631 - (cons _%runtime-code201646%_ + (let ((__tmp202769 + (cons _%runtime-code201752%_ '())) - (__tmp202630 - (reverse (unbox _%lifts201643%_)))) + (__tmp202768 + (reverse (unbox _%lifts201749%_)))) (declare (not safe)) (__foldr1 cons - __tmp202631 - __tmp202630)))) + __tmp202769 + __tmp202768)))) '#f)) - (_%runtime-code201650%_ - (if _%runtime-code?201641%_ + (_%runtime-code201756%_ + (if _%runtime-code?201747%_ (cons 'begin (cons (cons 'define - (cons (_%context-timestamp201629%_ - _%ctx201637%_) + (cons (_%context-timestamp201735%_ + _%ctx201743%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1988,779 +2016,779 @@ (gxc#current-compile-timestamp)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%runtime-code201648%_ '()))) + (cons _%runtime-code201754%_ '()))) '#f)) - (_%loader-code201653%_ - (let ((__tmp202632 + (_%loader-code201759%_ + (let ((__tmp202770 (lambda () (let () (declare (not safe)) (gxc#apply-generate-loader - _%code201638%_))))) + _%code201744%_))))) (declare (not safe)) (__call-with-parameters - __tmp202632 + __tmp202770 gx#current-expander-context - _%ctx201637%_))) - (_%loader-code201655%_ + _%ctx201743%_))) + (_%loader-code201761%_ (cons 'begin - (cons _%loader-code201653%_ - (cons (if _%runtime-code?201641%_ + (cons _%loader-code201759%_ + (cons (if _%runtime-code?201747%_ (cons 'load-module - (cons _%rtm201639%_ + (cons _%rtm201745%_ '())) '(begin)) '())))) - (_%scm0201657%_ - (gxc#compile-output-file _%ctx201637%_ '0 '".scm")) - (_%scmrt201659%_ + (_%scm0201763%_ + (gxc#compile-output-file _%ctx201743%_ '0 '".scm")) + (_%scmrt201765%_ (gxc#compile-output-file - _%ctx201637%_ + _%ctx201743%_ '#f '".scm")) - (_%scms201661%_ - (gxc#compile-static-output-file _%ctx201637%_))) - (if _%runtime-code?201641%_ + (_%scms201767%_ + (gxc#compile-static-output-file _%ctx201743%_))) + (if _%runtime-code?201747%_ (gxc#compile-scm-file__0 - _%scm0201657%_ - _%runtime-code201650%_) + _%scm0201763%_ + _%runtime-code201756%_) '#!void) - (let ((__tmp202633 + (let ((__tmp202771 (lambda () (gxc#compile-scm-file__0 - _%scmrt201659%_ - _%loader-code201655%_)))) + _%scmrt201765%_ + _%loader-code201761%_)))) (declare (not safe)) (__call-with-parameters - __tmp202633 + __tmp202771 gxc#current-compile-gsc-options '#f)) (if (let () (declare (not safe)) - (##file-exists? _%scms201661%_)) + (##file-exists? _%scms201767%_)) (let () (declare (not safe)) - (##delete-file _%scms201661%_)) + (##delete-file _%scms201767%_)) '#!void) - (if _%runtime-code?201641%_ + (if _%runtime-code?201747%_ (let () (declare (not safe)) - (##copy-file _%scm0201657%_ _%scms201661%_)) + (##copy-file _%scm0201763%_ _%scms201767%_)) (let () (declare (not safe)) - (##call-with-output-file _%scms201661%_ void))))))) - (let* ((_%all-modules201632%_ - (cons _%ctx201626%_ (gxc#lift-nested-modules _%ctx201626%_))) - (__tmp202634 - (lambda (_%ctx201634%_) - (let ((__tmp202635 - (lambda () (_%compile1201628%_ _%ctx201634%_)))) + (##call-with-output-file _%scms201767%_ void))))))) + (let* ((_%all-modules201738%_ + (cons _%ctx201732%_ (gxc#lift-nested-modules _%ctx201732%_))) + (__tmp202772 + (lambda (_%ctx201740%_) + (let ((__tmp202773 + (lambda () (_%compile1201734%_ _%ctx201740%_)))) (declare (not safe)) (__call-with-parameters - __tmp202635 + __tmp202773 gxc#current-compile-decls '()))))) (declare (not safe)) - (##for-each __tmp202634 _%all-modules201632%_))))) + (##for-each __tmp202772 _%all-modules201738%_))))) (define gxc#compile-meta-code - (lambda (_%ctx201526%_) - (letrec ((_%compile-ssi201528%_ - (lambda (_%code201594%_) - (let* ((_%path201596%_ + (lambda (_%ctx201632%_) + (letrec ((_%compile-ssi201634%_ + (lambda (_%code201700%_) + (let* ((_%path201702%_ (gxc#compile-output-file - _%ctx201526%_ + _%ctx201632%_ '#f '".ssi")) - (_%prelude201608%_ - (let* ((_%super201598%_ + (_%prelude201714%_ + (let* ((_%super201704%_ (##structure-ref - _%ctx201526%_ + _%ctx201632%_ '3 gx#phi-context::t '#f)) - (_%$e201600%_ + (_%$e201706%_ (##structure-ref - _%super201598%_ + _%super201704%_ '1 gx#expander-context::t '#f))) - (if _%$e201600%_ - ((lambda (_%g201602201604%_) + (if _%$e201706%_ + ((lambda (_%g201708201710%_) (let () (declare (not safe)) (make-symbol__1 '":" - _%g201602201604%_))) - _%$e201600%_) + _%g201708201710%_))) + _%$e201706%_) ':))) - (_%ns201610%_ + (_%ns201716%_ (##structure-ref - _%ctx201526%_ + _%ctx201632%_ '6 gx#module-context::t '#f)) - (_%idstr201612%_ + (_%idstr201718%_ (symbol->string (##structure-ref - _%ctx201526%_ + _%ctx201632%_ '1 gx#expander-context::t '#f))) - (_%pkg201620%_ - (let ((_%$e201614%_ + (_%pkg201726%_ + (let ((_%$e201720%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201612%_ '#\/)))) - (if _%$e201614%_ - ((lambda (_%x201617%_) - (let ((__tmp202636 + (string-rindex__0 _%idstr201718%_ '#\/)))) + (if _%$e201720%_ + ((lambda (_%x201723%_) + (let ((__tmp202774 (substring - _%idstr201612%_ + _%idstr201718%_ '0 - _%x201617%_))) + _%x201723%_))) (declare (not safe)) - (##string->symbol __tmp202636))) - _%$e201614%_) + (##string->symbol __tmp202774))) + _%$e201720%_) '#f))) - (_%rt201622%_ - (let ((__tmp202637 + (_%rt201728%_ + (let ((__tmp202775 (let () (declare (not safe)) (gxc#current-compile-runtime-sections)))) (declare (not safe)) - (hash-get __tmp202637 _%ctx201526%_)))) + (hash-get __tmp202775 _%ctx201632%_)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201596%_)) + (gxc#verbose '"compile " _%path201702%_)) (gxc#with-output-to-scheme-file - _%path201596%_ + _%path201702%_ (lambda () (let () (declare (not safe)) - (displayln '"prelude:" '" " _%prelude201608%_)) - (if _%pkg201620%_ + (displayln '"prelude:" '" " _%prelude201714%_)) + (if _%pkg201726%_ (let () (declare (not safe)) - (displayln '"package:" '" " _%pkg201620%_)) + (displayln '"package:" '" " _%pkg201726%_)) '#!void) (let () (declare (not safe)) - (displayln '"namespace:" '" " _%ns201610%_)) + (displayln '"namespace:" '" " _%ns201716%_)) (newline) - (pretty-print _%code201594%_) - (if _%rt201622%_ + (pretty-print _%code201700%_) + (if _%rt201728%_ (pretty-print (cons '%#call (cons (cons '%#ref (cons 'load-module '())) (cons (cons '%#quote - (cons _%rt201622%_ '())) + (cons _%rt201728%_ '())) '())))) '#!void)))))) - (_%compile-phi201529%_ - (lambda (_%part201534%_) - (let* ((_%part201535201548%_ _%part201534%_) - (_%E201537201552%_ + (_%compile-phi201635%_ + (lambda (_%part201640%_) + (let* ((_%part201641201654%_ _%part201640%_) + (_%E201643201658%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%part201535201548%_ + _%part201641201654%_ '([phi-ctx phi n code]))) '#!void)) - (_%K201538201563%_ - (lambda (_%code201555%_ - _%n201556%_ - _%phi201557%_ - _%phi-ctx201558%_) - (let ((_%code201561%_ - (let ((__tmp202638 + (_%K201644201669%_ + (lambda (_%code201661%_ + _%n201662%_ + _%phi201663%_ + _%phi-ctx201664%_) + (let ((_%code201667%_ + (let ((__tmp202776 (lambda () (gxc#generate-runtime-phi - _%code201555%_)))) + _%code201661%_)))) (declare (not safe)) (__call-with-parameters - __tmp202638 + __tmp202776 gx#current-expander-context - _%phi-ctx201558%_ + _%phi-ctx201664%_ gx#current-expander-phi - _%phi201557%_)))) + _%phi201663%_)))) (gxc#compile-scm-file__% (gxc#compile-output-file - _%ctx201526%_ - _%n201556%_ + _%ctx201632%_ + _%n201662%_ '".scm") - _%code201561%_ + _%code201667%_ '#t))))) - (if (pair? _%part201535201548%_) - (let ((_%hd201539201566%_ + (if (pair? _%part201641201654%_) + (let ((_%hd201645201672%_ (let () (declare (not safe)) - (##car _%part201535201548%_))) - (_%tl201540201568%_ + (##car _%part201641201654%_))) + (_%tl201646201674%_ (let () (declare (not safe)) - (##cdr _%part201535201548%_)))) - (let ((_%phi-ctx201571%_ _%hd201539201566%_)) - (if (pair? _%tl201540201568%_) - (let ((_%hd201541201573%_ + (##cdr _%part201641201654%_)))) + (let ((_%phi-ctx201677%_ _%hd201645201672%_)) + (if (pair? _%tl201646201674%_) + (let ((_%hd201647201679%_ (let () (declare (not safe)) - (##car _%tl201540201568%_))) - (_%tl201542201575%_ + (##car _%tl201646201674%_))) + (_%tl201648201681%_ (let () (declare (not safe)) - (##cdr _%tl201540201568%_)))) - (let ((_%phi201578%_ _%hd201541201573%_)) - (if (pair? _%tl201542201575%_) - (let ((_%hd201543201580%_ + (##cdr _%tl201646201674%_)))) + (let ((_%phi201684%_ _%hd201647201679%_)) + (if (pair? _%tl201648201681%_) + (let ((_%hd201649201686%_ (let () (declare (not safe)) - (##car _%tl201542201575%_))) - (_%tl201544201582%_ + (##car _%tl201648201681%_))) + (_%tl201650201688%_ (let () (declare (not safe)) - (##cdr _%tl201542201575%_)))) - (let ((_%n201585%_ - _%hd201543201580%_)) - (if (pair? _%tl201544201582%_) - (let ((_%hd201545201587%_ + (##cdr _%tl201648201681%_)))) + (let ((_%n201691%_ + _%hd201649201686%_)) + (if (pair? _%tl201650201688%_) + (let ((_%hd201651201693%_ (let () (declare (not safe)) - (##car _%tl201544201582%_))) - (_%tl201546201589%_ + (##car _%tl201650201688%_))) + (_%tl201652201695%_ (let () (declare (not safe)) - (##cdr _%tl201544201582%_)))) - (let ((_%code201592%_ - _%hd201545201587%_)) - (if (null? _%tl201546201589%_) - (_%K201538201563%_ - _%code201592%_ - _%n201585%_ - _%phi201578%_ - _%phi-ctx201571%_) - (_%E201537201552%_)))) - (_%E201537201552%_)))) - (_%E201537201552%_)))) - (_%E201537201552%_)))) - (_%E201537201552%_)))))) - (let ((_g202639_ (gxc#generate-meta-code _%ctx201526%_))) + (##cdr _%tl201650201688%_)))) + (let ((_%code201698%_ + _%hd201651201693%_)) + (if (null? _%tl201652201695%_) + (_%K201644201669%_ + _%code201698%_ + _%n201691%_ + _%phi201684%_ + _%phi-ctx201677%_) + (_%E201643201658%_)))) + (_%E201643201658%_)))) + (_%E201643201658%_)))) + (_%E201643201658%_)))) + (_%E201643201658%_)))))) + (let ((_g202777_ (gxc#generate-meta-code _%ctx201632%_))) (begin - (let ((_g202640_ + (let ((_g202778_ (let () (declare (not safe)) - (if (##values? _g202639_) - (##vector-length _g202639_) + (if (##values? _g202777_) + (##values-length _g202777_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g202640_ 2))) - (error "Context expects 2 values" _g202640_))) - (let ((_%ssi-code201531%_ - (let () (declare (not safe)) (##vector-ref _g202639_ 0))) - (_%phi-code201532%_ - (let () (declare (not safe)) (##vector-ref _g202639_ 1)))) + (if (not (let () (declare (not safe)) (##fx= _g202778_ 2))) + (error "Context expects 2 values" _g202778_))) + (let ((_%ssi-code201637%_ + (let () (declare (not safe)) (##values-ref _g202777_ 0))) + (_%phi-code201638%_ + (let () (declare (not safe)) (##values-ref _g202777_ 1)))) (begin - (_%compile-ssi201528%_ _%ssi-code201531%_) - (for-each _%compile-phi201529%_ _%phi-code201532%_)))))))) + (_%compile-ssi201634%_ _%ssi-code201637%_) + (for-each _%compile-phi201635%_ _%phi-code201638%_)))))))) (define gxc#compile-ssxi-code - (lambda (_%ctx201508%_) - (let* ((_%path201510%_ - (gxc#compile-output-file _%ctx201508%_ '#f '".ssxi.ss")) - (_%code201512%_ - (let ((__tmp202641 + (lambda (_%ctx201614%_) + (let* ((_%path201616%_ + (gxc#compile-output-file _%ctx201614%_ '#f '".ssxi.ss")) + (_%code201618%_ + (let ((__tmp202779 (##structure-ref - _%ctx201508%_ + _%ctx201614%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-generate-ssxi __tmp202641))) - (_%idstr201514%_ + (gxc#apply-generate-ssxi __tmp202779))) + (_%idstr201620%_ (symbol->string (##structure-ref - _%ctx201508%_ + _%ctx201614%_ '1 gx#expander-context::t '#f))) - (_%pkg201522%_ - (let ((_%$e201516%_ + (_%pkg201628%_ + (let ((_%$e201622%_ (let () (declare (not safe)) - (string-rindex__0 _%idstr201514%_ '#\/)))) - (if _%$e201516%_ - ((lambda (_%x201519%_) - (let ((__tmp202642 - (substring _%idstr201514%_ '0 _%x201519%_))) + (string-rindex__0 _%idstr201620%_ '#\/)))) + (if _%$e201622%_ + ((lambda (_%x201625%_) + (let ((__tmp202780 + (substring _%idstr201620%_ '0 _%x201625%_))) (declare (not safe)) - (##string->symbol __tmp202642))) - _%$e201516%_) + (##string->symbol __tmp202780))) + _%$e201622%_) '#f)))) (let () (declare (not safe)) - (gxc#verbose '"compile " _%path201510%_)) + (gxc#verbose '"compile " _%path201616%_)) (gxc#with-output-to-scheme-file - _%path201510%_ + _%path201616%_ (lambda () (let () (declare (not safe)) (displayln '"prelude: :gerbil/compiler/ssxi")) - (if _%pkg201522%_ + (if _%pkg201628%_ (let () (declare (not safe)) - (displayln '"package: " _%pkg201522%_)) + (displayln '"package: " _%pkg201628%_)) '#!void) (newline) - (pretty-print _%code201512%_)))))) + (pretty-print _%code201618%_)))))) (define gxc#generate-meta-code - (lambda (_%ctx201501%_) - (let* ((_%state201503%_ - (let ((__obj202543 + (lambda (_%ctx201607%_) + (let* ((_%state201609%_ + (let ((__obj202681 (let () (declare (not safe)) (##structure gxc#meta-state::t '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gxc#meta-state:::init! __obj202543 _%ctx201501%_)) - __obj202543)) - (_%ssi-code201505%_ - (let ((__tmp202643 + (gxc#meta-state:::init! __obj202681 _%ctx201607%_)) + __obj202681)) + (_%ssi-code201611%_ + (let ((__tmp202781 (##structure-ref - _%ctx201501%_ + _%ctx201607%_ '11 gx#module-context::t '#f))) (declare (not safe)) (gxc#apply-generate-meta__% '#f - _%state201503%_ - __tmp202643)))) - (values _%ssi-code201505%_ + _%state201609%_ + __tmp202781)))) + (values _%ssi-code201611%_ (let () (declare (not safe)) - (gxc#meta-state-end! _%state201503%_)))))) + (gxc#meta-state-end! _%state201609%_)))))) (define gxc#generate-runtime-phi - (lambda (_%stx201494%_) - (let ((_%lifts201496%_ (box '()))) - (let ((__tmp202646 + (lambda (_%stx201600%_) + (let ((_%lifts201602%_ (box '()))) + (let ((__tmp202784 (lambda () - (let ((_%code201499%_ + (let ((_%code201605%_ (let () (declare (not safe)) - (gxc#apply-generate-runtime-phi _%stx201494%_)))) - (if (null? (unbox _%lifts201496%_)) - _%code201499%_ + (gxc#apply-generate-runtime-phi _%stx201600%_)))) + (if (null? (unbox _%lifts201602%_)) + _%code201605%_ (cons 'begin - (let ((__tmp202648 (cons _%code201499%_ '())) - (__tmp202647 - (reverse (unbox _%lifts201496%_)))) + (let ((__tmp202786 (cons _%code201605%_ '())) + (__tmp202785 + (reverse (unbox _%lifts201602%_)))) (declare (not safe)) - (__foldr1 cons __tmp202648 __tmp202647))))))) - (__tmp202645 + (__foldr1 cons __tmp202786 __tmp202785))))))) + (__tmp202783 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp202644 + (__tmp202782 (let () (declare (not safe)) (gxc#make-bound-identifier-table)))) (declare (not safe)) (__call-with-parameters - __tmp202646 + __tmp202784 gxc#current-compile-lift - _%lifts201496%_ + _%lifts201602%_ gxc#current-compile-marks - __tmp202645 + __tmp202783 gxc#current-compile-identifiers - __tmp202644))))) + __tmp202782))))) (define gxc#lift-nested-modules - (lambda (_%ctx201490%_) - (let ((_%modules201492%_ (box '()))) - (let ((__tmp202649 - (##structure-ref _%ctx201490%_ '11 gx#module-context::t '#f))) + (lambda (_%ctx201596%_) + (let ((_%modules201598%_ (box '()))) + (let ((__tmp202787 + (##structure-ref _%ctx201596%_ '11 gx#module-context::t '#f))) (declare (not safe)) - (gxc#apply-lift-modules__% '#f _%modules201492%_ __tmp202649)) - (reverse (unbox _%modules201492%_))))) + (gxc#apply-lift-modules__% '#f _%modules201598%_ __tmp202787)) + (reverse (unbox _%modules201598%_))))) (define gxc#compile-scm-file__% - (lambda (_%path201470%_ _%code201471%_ _%phi?201472%_) - (let () (declare (not safe)) (gxc#verbose '"compile " _%path201470%_)) + (lambda (_%path201576%_ _%code201577%_ _%phi?201578%_) + (let () (declare (not safe)) (gxc#verbose '"compile " _%path201576%_)) (gxc#with-output-to-scheme-file - _%path201470%_ + _%path201576%_ (lambda () (pretty-print (cons 'declare (cons (cons 'block '()) (cons (cons 'standard-bindings '()) (cons (cons 'extended-bindings '()) - (let ((__tmp202650 - (if _%phi?201472%_ + (let ((__tmp202788 + (if _%phi?201578%_ '((inlining-limit 200)) '()))) (declare (not safe)) - (__foldr1 cons '() __tmp202650))))))) - (pretty-print _%code201471%_))) + (__foldr1 cons '() __tmp202788))))))) + (pretty-print _%code201577%_))) (if (let () (declare (not safe)) (gxc#current-compile-invoke-gsc)) - (let ((_%compile-it201476%_ + (let ((_%compile-it201582%_ (lambda () - (gxc#gsc-compile-file _%path201470%_ _%phi?201472%_)))) + (gxc#gsc-compile-file _%path201576%_ _%phi?201578%_)))) (if (let () (declare (not safe)) (gxc#current-compile-parallel)) - (let ((__tmp202651 - (cons 'compile-file (cons _%path201470%_ '())))) + (let ((__tmp202789 + (cons 'compile-file (cons _%path201576%_ '())))) (declare (not safe)) - (gxc#add-compile-job!__% _%compile-it201476%_ __tmp202651)) - (_%compile-it201476%_))) + (gxc#add-compile-job!__% _%compile-it201582%_ __tmp202789)) + (_%compile-it201582%_))) '#!void))) (define gxc#compile-scm-file__0 - (lambda (_%path201481%_ _%code201482%_) - (let ((_%phi?201484%_ '#f)) + (lambda (_%path201587%_ _%code201588%_) + (let ((_%phi?201590%_ '#f)) (gxc#compile-scm-file__% - _%path201481%_ - _%code201482%_ - _%phi?201484%_)))) + _%path201587%_ + _%code201588%_ + _%phi?201590%_)))) (define gxc#compile-scm-file - (lambda _g202653_ - (let ((_g202652_ (let () (declare (not safe)) (##length _g202653_)))) - (cond ((let () (declare (not safe)) (##fx= _g202652_ 2)) - (apply gxc#compile-scm-file__0 _g202653_)) - ((let () (declare (not safe)) (##fx= _g202652_ 3)) - (apply gxc#compile-scm-file__% _g202653_)) + (lambda _g202791_ + (let ((_g202790_ (let () (declare (not safe)) (##length _g202791_)))) + (cond ((let () (declare (not safe)) (##fx= _g202790_ 2)) + (apply gxc#compile-scm-file__0 _g202791_)) + ((let () (declare (not safe)) (##fx= _g202790_ 3)) + (apply gxc#compile-scm-file__% _g202791_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-scm-file - _g202653_)))))) + _g202791_)))))) (define gxc#gsc-link-options__% - (lambda (_%phi?201371%_) - (let _%lp201373%_ ((_%rest201375%_ + (lambda (_%phi?201477%_) + (let _%lp201479%_ ((_%rest201481%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201376%_ '())) - (let* ((_%rest201377201397%_ _%rest201375%_) - (_%else201381201405%_ + (_%opts201482%_ '())) + (let* ((_%rest201483201503%_ _%rest201481%_) + (_%else201487201511%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-debug-source" - (cons '"-track-scheme" (reverse _%opts201376%_))) - (reverse _%opts201376%_))))) - (let ((_%K201391201448%_ - (lambda (_%rest201446%_) - (_%lp201373%_ _%rest201446%_ _%opts201376%_))) - (_%K201386201430%_ - (lambda (_%rest201428%_) - (_%lp201373%_ _%rest201428%_ _%opts201376%_))) - (_%K201383201412%_ - (lambda (_%rest201409%_ _%opt201410%_) - (_%lp201373%_ - _%rest201409%_ - (cons _%opt201410%_ _%opts201376%_))))) - (if (pair? _%rest201377201397%_) - (let ((_%tl201393201453%_ + (cons '"-track-scheme" (reverse _%opts201482%_))) + (reverse _%opts201482%_))))) + (let ((_%K201497201554%_ + (lambda (_%rest201552%_) + (_%lp201479%_ _%rest201552%_ _%opts201482%_))) + (_%K201492201536%_ + (lambda (_%rest201534%_) + (_%lp201479%_ _%rest201534%_ _%opts201482%_))) + (_%K201489201518%_ + (lambda (_%rest201515%_ _%opt201516%_) + (_%lp201479%_ + _%rest201515%_ + (cons _%opt201516%_ _%opts201482%_))))) + (if (pair? _%rest201483201503%_) + (let ((_%tl201499201559%_ (let () (declare (not safe)) - (##cdr _%rest201377201397%_))) - (_%hd201392201451%_ + (##cdr _%rest201483201503%_))) + (_%hd201498201557%_ (let () (declare (not safe)) - (##car _%rest201377201397%_)))) - (if (equal? _%hd201392201451%_ '"-cc-options") - (if (pair? _%tl201393201453%_) - (let* ((_%tl201395201456%_ + (##car _%rest201483201503%_)))) + (if (equal? _%hd201498201557%_ '"-cc-options") + (if (pair? _%tl201499201559%_) + (let* ((_%tl201501201562%_ (let () (declare (not safe)) - (##cdr _%tl201393201453%_))) - (_%rest201459%_ _%tl201395201456%_)) - (_%K201391201448%_ _%rest201459%_)) - (let ((_%opt201420%_ _%hd201392201451%_) - (_%rest201422%_ _%tl201393201453%_)) - (_%K201383201412%_ - _%rest201422%_ - _%opt201420%_))) - (if (equal? _%hd201392201451%_ '"-ld-options") - (if (pair? _%tl201393201453%_) - (let* ((_%tl201390201438%_ + (##cdr _%tl201499201559%_))) + (_%rest201565%_ _%tl201501201562%_)) + (_%K201497201554%_ _%rest201565%_)) + (let ((_%opt201526%_ _%hd201498201557%_) + (_%rest201528%_ _%tl201499201559%_)) + (_%K201489201518%_ + _%rest201528%_ + _%opt201526%_))) + (if (equal? _%hd201498201557%_ '"-ld-options") + (if (pair? _%tl201499201559%_) + (let* ((_%tl201496201544%_ (let () (declare (not safe)) - (##cdr _%tl201393201453%_))) - (_%rest201441%_ _%tl201390201438%_)) - (_%K201386201430%_ _%rest201441%_)) - (let ((_%opt201420%_ _%hd201392201451%_) - (_%rest201422%_ _%tl201393201453%_)) - (_%K201383201412%_ - _%rest201422%_ - _%opt201420%_))) - (let ((_%opt201420%_ _%hd201392201451%_) - (_%rest201422%_ _%tl201393201453%_)) - (_%K201383201412%_ - _%rest201422%_ - _%opt201420%_))))) - (_%else201381201405%_))))))) + (##cdr _%tl201499201559%_))) + (_%rest201547%_ _%tl201496201544%_)) + (_%K201492201536%_ _%rest201547%_)) + (let ((_%opt201526%_ _%hd201498201557%_) + (_%rest201528%_ _%tl201499201559%_)) + (_%K201489201518%_ + _%rest201528%_ + _%opt201526%_))) + (let ((_%opt201526%_ _%hd201498201557%_) + (_%rest201528%_ _%tl201499201559%_)) + (_%K201489201518%_ + _%rest201528%_ + _%opt201526%_))))) + (_%else201487201511%_))))))) (define gxc#gsc-link-options__0 (lambda () - (let ((_%phi?201465%_ '#f)) (gxc#gsc-link-options__% _%phi?201465%_)))) + (let ((_%phi?201571%_ '#f)) (gxc#gsc-link-options__% _%phi?201571%_)))) (define gxc#gsc-link-options - (lambda _g202655_ - (let ((_g202654_ (let () (declare (not safe)) (##length _g202655_)))) - (cond ((let () (declare (not safe)) (##fx= _g202654_ 0)) - (apply gxc#gsc-link-options__0 _g202655_)) - ((let () (declare (not safe)) (##fx= _g202654_ 1)) - (apply gxc#gsc-link-options__% _g202655_)) + (lambda _g202793_ + (let ((_g202792_ (let () (declare (not safe)) (##length _g202793_)))) + (cond ((let () (declare (not safe)) (##fx= _g202792_ 0)) + (apply gxc#gsc-link-options__0 _g202793_)) + ((let () (declare (not safe)) (##fx= _g202792_ 1)) + (apply gxc#gsc-link-options__% _g202793_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-link-options - _g202655_)))))) + _g202793_)))))) (define gxc#gsc-cc-options__%__% - (lambda (_%@@keywords201220%_ _%static?201216201221%_ _%phi?201223%_) - (let ((_%static?201225%_ - (if (eq? _%static?201216201221%_ absent-value) + (lambda (_%@@keywords201326%_ _%static?201322201327%_ _%phi?201329%_) + (let ((_%static?201331%_ + (if (eq? _%static?201322201327%_ absent-value) '#f - _%static?201216201221%_))) - (if _%phi?201223%_ + _%static?201322201327%_))) + (if _%phi?201329%_ (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" (cons '"-g" '())) '()) - (let _%lp201227%_ ((_%rest201229%_ + (let _%lp201333%_ ((_%rest201335%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201230%_ '())) - (let* ((_%rest201231201257%_ _%rest201229%_) - (_%else201236201265%_ + (_%opts201336%_ '())) + (let* ((_%rest201337201363%_ _%rest201335%_) + (_%else201342201371%_ (lambda () (if (let () (declare (not safe)) (gxc#current-compile-debug)) (cons '"-cc-options" - (cons '"-g" (reverse! _%opts201230%_))) - (reverse! _%opts201230%_))))) - (let ((_%K201251201328%_ - (lambda (_%rest201325%_ _%opt201326%_) - (if _%static?201225%_ - (_%lp201227%_ - _%rest201325%_ - (cons _%opt201326%_ - (cons '"-cc-options" _%opts201230%_))) - (_%lp201227%_ _%rest201325%_ _%opts201230%_)))) - (_%K201246201305%_ - (lambda (_%rest201302%_ _%opt201303%_) - (_%lp201227%_ - _%rest201302%_ - (cons _%opt201303%_ - (cons '"-cc-options" _%opts201230%_))))) - (_%K201241201285%_ - (lambda (_%rest201283%_) - (_%lp201227%_ _%rest201283%_ _%opts201230%_))) - (_%K201238201271%_ - (lambda (_%rest201269%_) - (_%lp201227%_ _%rest201269%_ _%opts201230%_)))) - (if (pair? _%rest201231201257%_) - (let ((_%tl201253201333%_ + (cons '"-g" (reverse! _%opts201336%_))) + (reverse! _%opts201336%_))))) + (let ((_%K201357201434%_ + (lambda (_%rest201431%_ _%opt201432%_) + (if _%static?201331%_ + (_%lp201333%_ + _%rest201431%_ + (cons _%opt201432%_ + (cons '"-cc-options" _%opts201336%_))) + (_%lp201333%_ _%rest201431%_ _%opts201336%_)))) + (_%K201352201411%_ + (lambda (_%rest201408%_ _%opt201409%_) + (_%lp201333%_ + _%rest201408%_ + (cons _%opt201409%_ + (cons '"-cc-options" _%opts201336%_))))) + (_%K201347201391%_ + (lambda (_%rest201389%_) + (_%lp201333%_ _%rest201389%_ _%opts201336%_))) + (_%K201344201377%_ + (lambda (_%rest201375%_) + (_%lp201333%_ _%rest201375%_ _%opts201336%_)))) + (if (pair? _%rest201337201363%_) + (let ((_%tl201359201439%_ (let () (declare (not safe)) - (##cdr _%rest201231201257%_))) - (_%hd201252201331%_ + (##cdr _%rest201337201363%_))) + (_%hd201358201437%_ (let () (declare (not safe)) - (##car _%rest201231201257%_)))) - (if (equal? _%hd201252201331%_ '"-cc-options") - (if (pair? _%tl201253201333%_) - (let ((_%tl201255201338%_ + (##car _%rest201337201363%_)))) + (if (equal? _%hd201358201437%_ '"-cc-options") + (if (pair? _%tl201359201439%_) + (let ((_%tl201361201444%_ (let () (declare (not safe)) - (##cdr _%tl201253201333%_))) - (_%hd201254201336%_ + (##cdr _%tl201359201439%_))) + (_%hd201360201442%_ (let () (declare (not safe)) - (##car _%tl201253201333%_)))) - (if (equal? _%hd201254201336%_ '"-Bstatic") - (let ((_%opt201341%_ - _%hd201254201336%_) - (_%rest201343%_ - _%tl201255201338%_)) - (_%K201251201328%_ - _%rest201343%_ - _%opt201341%_)) - (let ((_%opt201318%_ - _%hd201254201336%_) - (_%rest201320%_ - _%tl201255201338%_)) - (_%K201246201305%_ - _%rest201320%_ - _%opt201318%_)))) - (let ((_%rest201277%_ _%tl201253201333%_)) - (_%K201238201271%_ _%rest201277%_))) - (if (equal? _%hd201252201331%_ '"-ld-options") - (if (pair? _%tl201253201333%_) - (let* ((_%tl201245201293%_ + (##car _%tl201359201439%_)))) + (if (equal? _%hd201360201442%_ '"-Bstatic") + (let ((_%opt201447%_ + _%hd201360201442%_) + (_%rest201449%_ + _%tl201361201444%_)) + (_%K201357201434%_ + _%rest201449%_ + _%opt201447%_)) + (let ((_%opt201424%_ + _%hd201360201442%_) + (_%rest201426%_ + _%tl201361201444%_)) + (_%K201352201411%_ + _%rest201426%_ + _%opt201424%_)))) + (let ((_%rest201383%_ _%tl201359201439%_)) + (_%K201344201377%_ _%rest201383%_))) + (if (equal? _%hd201358201437%_ '"-ld-options") + (if (pair? _%tl201359201439%_) + (let* ((_%tl201351201399%_ (let () (declare (not safe)) - (##cdr _%tl201253201333%_))) - (_%rest201296%_ - _%tl201245201293%_)) - (_%K201241201285%_ _%rest201296%_)) - (let ((_%rest201277%_ - _%tl201253201333%_)) - (_%K201238201271%_ _%rest201277%_))) - (let ((_%rest201277%_ _%tl201253201333%_)) - (_%K201238201271%_ _%rest201277%_))))) - (_%else201236201265%_))))))))) + (##cdr _%tl201359201439%_))) + (_%rest201402%_ + _%tl201351201399%_)) + (_%K201347201391%_ _%rest201402%_)) + (let ((_%rest201383%_ + _%tl201359201439%_)) + (_%K201344201377%_ _%rest201383%_))) + (let ((_%rest201383%_ _%tl201359201439%_)) + (_%K201344201377%_ _%rest201383%_))))) + (_%else201342201371%_))))))))) (define gxc#gsc-cc-options__%__0 - (lambda (_%@@keywords201348%_ _%static?201216201349%_) - (let ((_%phi?201351%_ '#f)) + (lambda (_%@@keywords201454%_ _%static?201322201455%_) + (let ((_%phi?201457%_ '#f)) (gxc#gsc-cc-options__%__% - _%@@keywords201348%_ - _%static?201216201349%_ - _%phi?201351%_)))) + _%@@keywords201454%_ + _%static?201322201455%_ + _%phi?201457%_)))) (define gxc#gsc-cc-options__% - (lambda _g202657_ - (let ((_g202656_ (let () (declare (not safe)) (##length _g202657_)))) - (cond ((let () (declare (not safe)) (##fx= _g202656_ 2)) - (apply gxc#gsc-cc-options__%__0 _g202657_)) - ((let () (declare (not safe)) (##fx= _g202656_ 3)) - (apply gxc#gsc-cc-options__%__% _g202657_)) + (lambda _g202795_ + (let ((_g202794_ (let () (declare (not safe)) (##length _g202795_)))) + (cond ((let () (declare (not safe)) (##fx= _g202794_ 2)) + (apply gxc#gsc-cc-options__%__0 _g202795_)) + ((let () (declare (not safe)) (##fx= _g202794_ 3)) + (apply gxc#gsc-cc-options__%__% _g202795_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-cc-options__% - _g202657_)))))) + _g202795_)))))) (define gxc#gsc-cc-options__@ - (lambda (_%@@keywords201360%_ . _%args201361%_) + (lambda (_%@@keywords201466%_ . _%args201467%_) (apply gxc#gsc-cc-options__% - _%@@keywords201360%_ + _%@@keywords201466%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201360%_ + _%@@keywords201466%_ 'static: absent-value)) - _%args201361%_))) + _%args201467%_))) (define gxc#gsc-cc-options - (lambda _%args201217201367%_ + (lambda _%args201323201473%_ (apply keyword-dispatch '#(static:) gxc#gsc-cc-options__@ - _%args201217201367%_))) + _%args201323201473%_))) (define gxc#gsc-ld-options__%__% - (lambda (_%@@keywords201065%_ _%static?201061201066%_ _%phi?201068%_) - (let ((_%static?201070%_ - (if (eq? _%static?201061201066%_ absent-value) + (lambda (_%@@keywords201171%_ _%static?201167201172%_ _%phi?201174%_) + (let ((_%static?201176%_ + (if (eq? _%static?201167201172%_ absent-value) '#f - _%static?201061201066%_))) - (if _%phi?201068%_ + _%static?201167201172%_))) + (if _%phi?201174%_ '() - (let _%lp201072%_ ((_%rest201074%_ + (let _%lp201178%_ ((_%rest201180%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts201075%_ '())) - (let* ((_%rest201076201102%_ _%rest201074%_) - (_%else201081201110%_ - (lambda () (reverse! _%opts201075%_)))) - (let ((_%K201096201173%_ - (lambda (_%rest201170%_ _%opt201171%_) - (if _%static?201070%_ - (_%lp201072%_ - _%rest201170%_ - (cons _%opt201171%_ - (cons '"-ld-options" _%opts201075%_))) - (_%lp201072%_ _%rest201170%_ _%opts201075%_)))) - (_%K201091201150%_ - (lambda (_%rest201147%_ _%opt201148%_) - (_%lp201072%_ - _%rest201147%_ - (cons _%opt201148%_ - (cons '"-ld-options" _%opts201075%_))))) - (_%K201086201130%_ - (lambda (_%rest201128%_) - (_%lp201072%_ _%rest201128%_ _%opts201075%_))) - (_%K201083201116%_ - (lambda (_%rest201114%_) - (_%lp201072%_ _%rest201114%_ _%opts201075%_)))) - (if (pair? _%rest201076201102%_) - (let ((_%tl201098201178%_ + (_%opts201181%_ '())) + (let* ((_%rest201182201208%_ _%rest201180%_) + (_%else201187201216%_ + (lambda () (reverse! _%opts201181%_)))) + (let ((_%K201202201279%_ + (lambda (_%rest201276%_ _%opt201277%_) + (if _%static?201176%_ + (_%lp201178%_ + _%rest201276%_ + (cons _%opt201277%_ + (cons '"-ld-options" _%opts201181%_))) + (_%lp201178%_ _%rest201276%_ _%opts201181%_)))) + (_%K201197201256%_ + (lambda (_%rest201253%_ _%opt201254%_) + (_%lp201178%_ + _%rest201253%_ + (cons _%opt201254%_ + (cons '"-ld-options" _%opts201181%_))))) + (_%K201192201236%_ + (lambda (_%rest201234%_) + (_%lp201178%_ _%rest201234%_ _%opts201181%_))) + (_%K201189201222%_ + (lambda (_%rest201220%_) + (_%lp201178%_ _%rest201220%_ _%opts201181%_)))) + (if (pair? _%rest201182201208%_) + (let ((_%tl201204201284%_ (let () (declare (not safe)) - (##cdr _%rest201076201102%_))) - (_%hd201097201176%_ + (##cdr _%rest201182201208%_))) + (_%hd201203201282%_ (let () (declare (not safe)) - (##car _%rest201076201102%_)))) - (if (equal? _%hd201097201176%_ '"-ld-options") - (if (pair? _%tl201098201178%_) - (let ((_%tl201100201183%_ + (##car _%rest201182201208%_)))) + (if (equal? _%hd201203201282%_ '"-ld-options") + (if (pair? _%tl201204201284%_) + (let ((_%tl201206201289%_ (let () (declare (not safe)) - (##cdr _%tl201098201178%_))) - (_%hd201099201181%_ + (##cdr _%tl201204201284%_))) + (_%hd201205201287%_ (let () (declare (not safe)) - (##car _%tl201098201178%_)))) - (if (equal? _%hd201099201181%_ '"-static") - (let ((_%opt201186%_ - _%hd201099201181%_) - (_%rest201188%_ - _%tl201100201183%_)) - (_%K201096201173%_ - _%rest201188%_ - _%opt201186%_)) - (let ((_%opt201163%_ - _%hd201099201181%_) - (_%rest201165%_ - _%tl201100201183%_)) - (_%K201091201150%_ - _%rest201165%_ - _%opt201163%_)))) - (let ((_%rest201122%_ _%tl201098201178%_)) - (_%K201083201116%_ _%rest201122%_))) - (if (equal? _%hd201097201176%_ '"-cc-options") - (if (pair? _%tl201098201178%_) - (let* ((_%tl201090201138%_ + (##car _%tl201204201284%_)))) + (if (equal? _%hd201205201287%_ '"-static") + (let ((_%opt201292%_ + _%hd201205201287%_) + (_%rest201294%_ + _%tl201206201289%_)) + (_%K201202201279%_ + _%rest201294%_ + _%opt201292%_)) + (let ((_%opt201269%_ + _%hd201205201287%_) + (_%rest201271%_ + _%tl201206201289%_)) + (_%K201197201256%_ + _%rest201271%_ + _%opt201269%_)))) + (let ((_%rest201228%_ _%tl201204201284%_)) + (_%K201189201222%_ _%rest201228%_))) + (if (equal? _%hd201203201282%_ '"-cc-options") + (if (pair? _%tl201204201284%_) + (let* ((_%tl201196201244%_ (let () (declare (not safe)) - (##cdr _%tl201098201178%_))) - (_%rest201141%_ - _%tl201090201138%_)) - (_%K201086201130%_ _%rest201141%_)) - (let ((_%rest201122%_ - _%tl201098201178%_)) - (_%K201083201116%_ _%rest201122%_))) - (let ((_%rest201122%_ _%tl201098201178%_)) - (_%K201083201116%_ _%rest201122%_))))) - (_%else201081201110%_))))))))) + (##cdr _%tl201204201284%_))) + (_%rest201247%_ + _%tl201196201244%_)) + (_%K201192201236%_ _%rest201247%_)) + (let ((_%rest201228%_ + _%tl201204201284%_)) + (_%K201189201222%_ _%rest201228%_))) + (let ((_%rest201228%_ _%tl201204201284%_)) + (_%K201189201222%_ _%rest201228%_))))) + (_%else201187201216%_))))))))) (define gxc#gsc-ld-options__%__0 - (lambda (_%@@keywords201193%_ _%static?201061201194%_) - (let ((_%phi?201196%_ '#f)) + (lambda (_%@@keywords201299%_ _%static?201167201300%_) + (let ((_%phi?201302%_ '#f)) (gxc#gsc-ld-options__%__% - _%@@keywords201193%_ - _%static?201061201194%_ - _%phi?201196%_)))) + _%@@keywords201299%_ + _%static?201167201300%_ + _%phi?201302%_)))) (define gxc#gsc-ld-options__% - (lambda _g202659_ - (let ((_g202658_ (let () (declare (not safe)) (##length _g202659_)))) - (cond ((let () (declare (not safe)) (##fx= _g202658_ 2)) - (apply gxc#gsc-ld-options__%__0 _g202659_)) - ((let () (declare (not safe)) (##fx= _g202658_ 3)) - (apply gxc#gsc-ld-options__%__% _g202659_)) + (lambda _g202797_ + (let ((_g202796_ (let () (declare (not safe)) (##length _g202797_)))) + (cond ((let () (declare (not safe)) (##fx= _g202796_ 2)) + (apply gxc#gsc-ld-options__%__0 _g202797_)) + ((let () (declare (not safe)) (##fx= _g202796_ 3)) + (apply gxc#gsc-ld-options__%__% _g202797_)) (else (##raise-wrong-number-of-arguments-exception gxc#gsc-ld-options__% - _g202659_)))))) + _g202797_)))))) (define gxc#gsc-ld-options__@ - (lambda (_%@@keywords201205%_ . _%args201206%_) + (lambda (_%@@keywords201311%_ . _%args201312%_) (apply gxc#gsc-ld-options__% - _%@@keywords201205%_ + _%@@keywords201311%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords201205%_ + _%@@keywords201311%_ 'static: absent-value)) - _%args201206%_))) + _%args201312%_))) (define gxc#gsc-ld-options - (lambda _%args201062201212%_ + (lambda _%args201168201318%_ (apply keyword-dispatch '#(static:) gxc#gsc-ld-options__@ - _%args201062201212%_))) + _%args201168201318%_))) (define gxc#gsc-static-include-options - (lambda (_%staticdir201056%_) - (let ((_%user-staticdir201058%_ + (lambda (_%staticdir201162%_) + (let ((_%user-staticdir201164%_ (path-expand (path-expand '"lib/static" @@ -2768,337 +2796,337 @@ (cons '"-cc-options" (cons (string-append '"-I " - _%staticdir201056%_ + _%staticdir201162%_ '" -I " - _%user-staticdir201058%_) + _%user-staticdir201164%_) '()))))) (define gxc#gcc-ld-options (lambda () - (let _%lp200968%_ ((_%rest200970%_ + (let _%lp201074%_ ((_%rest201076%_ (let () (declare (not safe)) (gxc#current-compile-gsc-options))) - (_%opts200971%_ '())) - (let* ((_%rest200972200992%_ _%rest200970%_) - (_%else200976201000%_ (lambda () _%opts200971%_))) - (let ((_%K200986201043%_ - (lambda (_%rest201041%_) - (_%lp200968%_ _%rest201041%_ _%opts200971%_))) - (_%K200981201021%_ - (lambda (_%rest201018%_ _%opt201019%_) - (_%lp200968%_ - _%rest201018%_ - (let ((__tmp202660 - (let ((__tmp202661 + (_%opts201077%_ '())) + (let* ((_%rest201078201098%_ _%rest201076%_) + (_%else201082201106%_ (lambda () _%opts201077%_))) + (let ((_%K201092201149%_ + (lambda (_%rest201147%_) + (_%lp201074%_ _%rest201147%_ _%opts201077%_))) + (_%K201087201127%_ + (lambda (_%rest201124%_ _%opt201125%_) + (_%lp201074%_ + _%rest201124%_ + (let ((__tmp202798 + (let ((__tmp202799 (let () (declare (not safe)) - (string-split _%opt201019%_ '#\space)))) + (string-split _%opt201125%_ '#\space)))) (declare (not safe)) - (##filter gxc#not-string-empty? __tmp202661)))) + (##filter gxc#not-string-empty? __tmp202799)))) (declare (not safe)) - (##append _%opts200971%_ __tmp202660))))) - (_%K200978201006%_ - (lambda (_%rest201004%_) - (_%lp200968%_ _%rest201004%_ _%opts200971%_)))) - (if (pair? _%rest200972200992%_) - (let ((_%tl200988201048%_ + (##append _%opts201077%_ __tmp202798))))) + (_%K201084201112%_ + (lambda (_%rest201110%_) + (_%lp201074%_ _%rest201110%_ _%opts201077%_)))) + (if (pair? _%rest201078201098%_) + (let ((_%tl201094201154%_ (let () (declare (not safe)) - (##cdr _%rest200972200992%_))) - (_%hd200987201046%_ + (##cdr _%rest201078201098%_))) + (_%hd201093201152%_ (let () (declare (not safe)) - (##car _%rest200972200992%_)))) - (if (equal? _%hd200987201046%_ '"-cc-options") - (if (pair? _%tl200988201048%_) - (let* ((_%tl200990201051%_ + (##car _%rest201078201098%_)))) + (if (equal? _%hd201093201152%_ '"-cc-options") + (if (pair? _%tl201094201154%_) + (let* ((_%tl201096201157%_ (let () (declare (not safe)) - (##cdr _%tl200988201048%_))) - (_%rest201054%_ _%tl200990201051%_)) - (_%K200986201043%_ _%rest201054%_)) - (let ((_%rest201012%_ _%tl200988201048%_)) - (_%K200978201006%_ _%rest201012%_))) - (if (equal? _%hd200987201046%_ '"-ld-options") - (if (pair? _%tl200988201048%_) - (let ((_%tl200985201031%_ + (##cdr _%tl201094201154%_))) + (_%rest201160%_ _%tl201096201157%_)) + (_%K201092201149%_ _%rest201160%_)) + (let ((_%rest201118%_ _%tl201094201154%_)) + (_%K201084201112%_ _%rest201118%_))) + (if (equal? _%hd201093201152%_ '"-ld-options") + (if (pair? _%tl201094201154%_) + (let ((_%tl201091201137%_ (let () (declare (not safe)) - (##cdr _%tl200988201048%_))) - (_%hd200984201029%_ + (##cdr _%tl201094201154%_))) + (_%hd201090201135%_ (let () (declare (not safe)) - (##car _%tl200988201048%_)))) - (let ((_%opt201034%_ _%hd200984201029%_) - (_%rest201036%_ _%tl200985201031%_)) - (_%K200981201021%_ - _%rest201036%_ - _%opt201034%_))) - (let ((_%rest201012%_ _%tl200988201048%_)) - (_%K200978201006%_ _%rest201012%_))) - (let ((_%rest201012%_ _%tl200988201048%_)) - (_%K200978201006%_ _%rest201012%_))))) - (_%else200976201000%_))))))) + (##car _%tl201094201154%_)))) + (let ((_%opt201140%_ _%hd201090201135%_) + (_%rest201142%_ _%tl201091201137%_)) + (_%K201087201127%_ + _%rest201142%_ + _%opt201140%_))) + (let ((_%rest201118%_ _%tl201094201154%_)) + (_%K201084201112%_ _%rest201118%_))) + (let ((_%rest201118%_ _%tl201094201154%_)) + (_%K201084201112%_ _%rest201118%_))))) + (_%else201082201106%_))))))) (define gxc#not-string-empty? - (lambda (_%str200965%_) - (not (let () (declare (not safe)) (string-empty? _%str200965%_))))) + (lambda (_%str201071%_) + (not (let () (declare (not safe)) (string-empty? _%str201071%_))))) (define gxc#gsc-compile-file - (lambda (_%path200958%_ _%phi?200959%_) - (let ((_%gsc-link-opts200961%_ - (gxc#gsc-link-options__% _%phi?200959%_)) - (_%gsc-cc-opts200962%_ - (gxc#gsc-cc-options__%__% '#f absent-value _%phi?200959%_)) - (_%gsc-ld-opts200963%_ - (gxc#gsc-ld-options__%__% '#f absent-value _%phi?200959%_))) + (lambda (_%path201064%_ _%phi?201065%_) + (let ((_%gsc-link-opts201067%_ + (gxc#gsc-link-options__% _%phi?201065%_)) + (_%gsc-cc-opts201068%_ + (gxc#gsc-cc-options__%__% '#f absent-value _%phi?201065%_)) + (_%gsc-ld-opts201069%_ + (gxc#gsc-ld-options__%__% '#f absent-value _%phi?201065%_))) (gxc#invoke__% '#f absent-value absent-value (gxc#gerbil-gsc) - (let ((__tmp202662 - (let ((__tmp202663 - (let ((__tmp202664 (cons _%path200958%_ '()))) + (let ((__tmp202800 + (let ((__tmp202801 + (let ((__tmp202802 (cons _%path201064%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp202664 - _%gsc-link-opts200961%_)))) + __tmp202802 + _%gsc-link-opts201067%_)))) (declare (not safe)) - (__foldr1 cons __tmp202663 _%gsc-ld-opts200963%_)))) + (__foldr1 cons __tmp202801 _%gsc-ld-opts201069%_)))) (declare (not safe)) - (__foldr1 cons __tmp202662 _%gsc-cc-opts200962%_)))))) + (__foldr1 cons __tmp202800 _%gsc-cc-opts201068%_)))))) (define gxc#compile-output-file - (lambda (_%ctx200924%_ _%n200925%_ _%ext200926%_) - (letrec ((_%module-relative-path200928%_ - (lambda (_%ctx200956%_) + (lambda (_%ctx201030%_ _%n201031%_ _%ext201032%_) + (letrec ((_%module-relative-path201034%_ + (lambda (_%ctx201062%_) (path-strip-directory - (let ((__tmp202665 + (let ((__tmp202803 (##structure-ref - _%ctx200956%_ + _%ctx201062%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202665))))) - (_%module-source-directory200929%_ - (lambda (_%ctx200952%_) + (gxc#module-id->path-string __tmp202803))))) + (_%module-source-directory201035%_ + (lambda (_%ctx201058%_) (path-directory - (let ((_%mpath200954%_ + (let ((_%mpath201060%_ (##structure-ref - _%ctx200952%_ + _%ctx201058%_ '7 gx#module-context::t '#f))) - (if (string? _%mpath200954%_) - _%mpath200954%_ - (last _%mpath200954%_)))))) - (_%section-string200930%_ - (lambda (_%n200946%_) - (if (number? _%n200946%_) + (if (string? _%mpath201060%_) + _%mpath201060%_ + (last _%mpath201060%_)))))) + (_%section-string201036%_ + (lambda (_%n201052%_) + (if (number? _%n201052%_) (let () (declare (not safe)) - (##number->string _%n200946%_)) - (if (symbol? _%n200946%_) + (##number->string _%n201052%_)) + (if (symbol? _%n201052%_) (let () (declare (not safe)) - (##symbol->string _%n200946%_)) - (if (string? _%n200946%_) - _%n200946%_ + (##symbol->string _%n201052%_)) + (if (string? _%n201052%_) + _%n201052%_ (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected section" - _%n200946%_))))))) - (_%file-name200931%_ - (lambda (_%path200944%_) - (if _%n200925%_ + _%n201052%_))))))) + (_%file-name201037%_ + (lambda (_%path201050%_) + (if _%n201031%_ (string-append - _%path200944%_ + _%path201050%_ '"~" - (_%section-string200930%_ _%n200925%_) - _%ext200926%_) - (string-append _%path200944%_ _%ext200926%_)))) - (_%file-path200932%_ + (_%section-string201036%_ _%n201031%_) + _%ext201032%_) + (string-append _%path201050%_ _%ext201032%_)))) + (_%file-path201038%_ (lambda () - (let ((_%$e200938%_ + (let ((_%$e201044%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200938%_ - ((lambda (_%outdir200941%_) + (if _%$e201044%_ + ((lambda (_%outdir201047%_) (path-expand - (_%file-name200931%_ - (let ((__tmp202666 + (_%file-name201037%_ + (let ((__tmp202804 (##structure-ref - _%ctx200924%_ + _%ctx201030%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (gxc#module-id->path-string __tmp202666))) - _%outdir200941%_)) - _%$e200938%_) + (gxc#module-id->path-string __tmp202804))) + _%outdir201047%_)) + _%$e201044%_) (path-expand - (_%file-name200931%_ - (_%module-relative-path200928%_ _%ctx200924%_)) - (_%module-source-directory200929%_ - _%ctx200924%_))))))) - (let ((_%path200934%_ (_%file-path200932%_))) - (let ((__tmp202667 + (_%file-name201037%_ + (_%module-relative-path201034%_ _%ctx201030%_)) + (_%module-source-directory201035%_ + _%ctx201030%_))))))) + (let ((_%path201040%_ (_%file-path201038%_))) + (let ((__tmp202805 (lambda () - (let ((__tmp202668 (path-directory _%path200934%_))) + (let ((__tmp202806 (path-directory _%path201040%_))) (declare (not safe)) - (create-directory*__0 __tmp202668))))) + (create-directory*__0 __tmp202806))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202667)) - _%path200934%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202805)) + _%path201040%_)))) (define gxc#compile-static-output-file - (lambda (_%ctx200905%_) - (letrec ((_%file-name200907%_ - (lambda (_%id200922%_) - (let ((__tmp202669 (gxc#static-module-name _%id200922%_))) + (lambda (_%ctx201011%_) + (letrec ((_%file-name201013%_ + (lambda (_%id201028%_) + (let ((__tmp202807 (gxc#static-module-name _%id201028%_))) (declare (not safe)) - (##string-append __tmp202669 '".scm")))) - (_%file-path200908%_ + (##string-append __tmp202807 '".scm")))) + (_%file-path201014%_ (lambda () - (let* ((_%file200914%_ - (_%file-name200907%_ + (let* ((_%file201020%_ + (_%file-name201013%_ (##structure-ref - _%ctx200905%_ + _%ctx201011%_ '1 gx#expander-context::t '#f))) - (_%$e200916%_ + (_%$e201022%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%$e200916%_ - ((lambda (_%outdir200919%_) + (if _%$e201022%_ + ((lambda (_%outdir201025%_) (path-expand - _%file200914%_ - (path-expand '"static" _%outdir200919%_))) - _%$e200916%_) - (path-expand _%file200914%_ '"static")))))) - (let ((_%path200910%_ (_%file-path200908%_))) - (let ((__tmp202670 + _%file201020%_ + (path-expand '"static" _%outdir201025%_))) + _%$e201022%_) + (path-expand _%file201020%_ '"static")))))) + (let ((_%path201016%_ (_%file-path201014%_))) + (let ((__tmp202808 (lambda () - (let ((__tmp202671 (path-directory _%path200910%_))) + (let ((__tmp202809 (path-directory _%path201016%_))) (declare (not safe)) - (create-directory*__0 __tmp202671))))) + (create-directory*__0 __tmp202809))))) (declare (not safe)) - (__with-lock gxc#+driver-mutex+ __tmp202670)) - _%path200910%_)))) + (__with-lock gxc#+driver-mutex+ __tmp202808)) + _%path201016%_)))) (define gxc#compile-exe-output-file - (lambda (_%ctx200898%_ _%opts200899%_) - (let ((_%$e200901%_ + (lambda (_%ctx201004%_ _%opts201005%_) + (let ((_%$e201007%_ (let () (declare (not safe)) - (pgetq__0 'output-file: _%opts200899%_)))) - (if _%$e200901%_ - _%$e200901%_ + (pgetq__0 'output-file: _%opts201005%_)))) + (if _%$e201007%_ + _%$e201007%_ (path-strip-directory (symbol->string (##structure-ref - _%ctx200898%_ + _%ctx201004%_ '1 gx#expander-context::t '#f))))))) (define gxc#static-module-name - (lambda (_%idstr200888%_) - (if (string? _%idstr200888%_) - (let* ((_%str200891%_ + (lambda (_%idstr200994%_) + (if (string? _%idstr200994%_) + (let* ((_%str200997%_ (let () (declare (not safe)) - (gxc#module-id->path-string _%idstr200888%_))) - (_%strs200893%_ + (gxc#module-id->path-string _%idstr200994%_))) + (_%strs200999%_ (let () (declare (not safe)) - (string-split _%str200891%_ '#\/)))) + (string-split _%str200997%_ '#\/)))) (declare (not safe)) - (string-join _%strs200893%_ '"__")) - (if (symbol? _%idstr200888%_) + (string-join _%strs200999%_ '"__")) + (if (symbol? _%idstr200994%_) (gxc#static-module-name (let () (declare (not safe)) - (##symbol->string _%idstr200888%_))) + (##symbol->string _%idstr200994%_))) (let () (declare (not safe)) - (error '"Bad module id" _%idstr200888%_)))))) + (error '"Bad module id" _%idstr200994%_)))))) (define gxc#gerbil-enable-shared? (lambda () - (let ((__tmp202672 - (let ((__tmp202673 (configure-command-string))) + (let ((__tmp202810 + (let ((__tmp202811 (configure-command-string))) (declare (not safe)) - (__string-split __tmp202673 '#\')))) + (__string-split __tmp202811 '#\')))) (declare (not safe)) - (##member '"--enable-shared" __tmp202672)))) + (##member '"--enable-shared" __tmp202810)))) (define gxc#invoke__% - (lambda (_%@@keywords200852%_ - _%stdout-redirection200848200853%_ - _%stderr-redirection200849200855%_ - _%program200857%_ - _%args200858%_) - (let* ((_%stdout-redirection200860%_ - (if (eq? _%stdout-redirection200848200853%_ absent-value) + (lambda (_%@@keywords200958%_ + _%stdout-redirection200954200959%_ + _%stderr-redirection200955200961%_ + _%program200963%_ + _%args200964%_) + (let* ((_%stdout-redirection200966%_ + (if (eq? _%stdout-redirection200954200959%_ absent-value) '#f - _%stdout-redirection200848200853%_)) - (_%stderr-redirection200862%_ - (if (eq? _%stderr-redirection200849200855%_ absent-value) + _%stdout-redirection200954200959%_)) + (_%stderr-redirection200968%_ + (if (eq? _%stderr-redirection200955200961%_ absent-value) '#f - _%stderr-redirection200849200855%_))) - (let ((__tmp202674 (cons _%program200857%_ _%args200858%_))) + _%stderr-redirection200955200961%_))) + (let ((__tmp202812 (cons _%program200963%_ _%args200964%_))) (declare (not safe)) - (gxc#verbose '"invoke " __tmp202674)) - (let* ((_%proc200864%_ + (gxc#verbose '"invoke " __tmp202812)) + (let* ((_%proc200970%_ (open-process (cons 'path: - (cons _%program200857%_ + (cons _%program200963%_ (cons 'arguments: - (cons _%args200858%_ + (cons _%args200964%_ (cons 'stdout-redirection: - (cons _%stdout-redirection200860%_ + (cons _%stdout-redirection200966%_ (cons 'stderr-redirection: - (cons _%stderr-redirection200862%_ + (cons _%stderr-redirection200968%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%output200869%_ - (if (or _%stdout-redirection200860%_ - _%stderr-redirection200862%_) - (read-line _%proc200864%_ '#f) + (_%output200975%_ + (if (or _%stdout-redirection200966%_ + _%stderr-redirection200968%_) + (read-line _%proc200970%_ '#f) '#f)) - (_%status200872%_ (process-status _%proc200864%_))) - (let () (declare (not safe)) (##close-port _%proc200864%_)) - (if (zero? _%status200872%_) + (_%status200978%_ (process-status _%proc200970%_))) + (let () (declare (not safe)) (##close-port _%proc200970%_)) + (if (zero? _%status200978%_) '#!void (begin - (display _%output200869%_) - (let ((__tmp202675 (cons _%program200857%_ _%args200858%_))) + (display _%output200975%_) + (let ((__tmp202813 (cons _%program200963%_ _%args200964%_))) (declare (not safe)) (gxc#raise-compile-error '"Compilation error; process exit with nonzero status" - __tmp202675 - _%status200872%_)))))))) + __tmp202813 + _%status200978%_)))))))) (define gxc#invoke__@ - (lambda (_%@@keywords200877%_ . _%args200878%_) + (lambda (_%@@keywords200983%_ . _%args200984%_) (apply gxc#invoke__% - _%@@keywords200877%_ + _%@@keywords200983%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200877%_ + _%@@keywords200983%_ 'stdout-redirection: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords200877%_ + _%@@keywords200983%_ 'stderr-redirection: absent-value)) - _%args200878%_))) + _%args200984%_))) (define gxc#invoke - (lambda _%args200850200884%_ + (lambda _%args200956200990%_ (apply keyword-dispatch '#(stderr-redirection: stdout-redirection:) gxc#invoke__@ - _%args200850200884%_))))) + _%args200956200990%_))))) diff --git a/src/bootstrap/gerbil/compiler/driver~1.scm b/src/bootstrap/gerbil/compiler/driver~1.scm index 272d11afa..f268fe8ba 100644 --- a/src/bootstrap/gerbil/compiler/driver~1.scm +++ b/src/bootstrap/gerbil/compiler/driver~1.scm @@ -1,50 +1,50 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (define |gxc[:0:]#with-driver-mutex| - (lambda (_%$stx200783%_) - (let* ((_%g200787200801%_ - (lambda (_%g200788200797%_) + (lambda (_%$stx200889%_) + (let* ((_%g200893200907%_ + (lambda (_%g200894200903%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200788200797%_)))) - (_%g200786200843%_ - (lambda (_%g200788200805%_) + _%g200894200903%_)))) + (_%g200892200949%_ + (lambda (_%g200894200911%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200788200805%_)) - (let ((_%e200790200808%_ + (gx#stx-pair? _%g200894200911%_)) + (let ((_%e200896200914%_ (let () (declare (not safe)) - (gx#syntax-e _%g200788200805%_)))) - (let ((_%hd200791200812%_ + (gx#syntax-e _%g200894200911%_)))) + (let ((_%hd200897200918%_ (let () (declare (not safe)) - (##car _%e200790200808%_))) - (_%tl200792200815%_ + (##car _%e200896200914%_))) + (_%tl200898200921%_ (let () (declare (not safe)) - (##cdr _%e200790200808%_)))) + (##cdr _%e200896200914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200792200815%_)) - (let ((_%e200793200818%_ + (gx#stx-pair? _%tl200898200921%_)) + (let ((_%e200899200924%_ (let () (declare (not safe)) - (gx#syntax-e _%tl200792200815%_)))) - (let ((_%hd200794200822%_ + (gx#syntax-e _%tl200898200921%_)))) + (let ((_%hd200900200928%_ (let () (declare (not safe)) - (##car _%e200793200818%_))) - (_%tl200795200825%_ + (##car _%e200899200924%_))) + (_%tl200901200931%_ (let () (declare (not safe)) - (##cdr _%e200793200818%_)))) + (##cdr _%e200899200924%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl200795200825%_)) - ((lambda (_%L200828%_) + (gx#stx-null? _%tl200901200931%_)) + ((lambda (_%L200934%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -60,11 +60,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'lambda)) - (cons '() (cons _%L200828%_ '()))) + (cons '() (cons _%L200934%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd200794200822%_) - (_%g200787200801%_ _%g200788200805%_)))) - (_%g200787200801%_ _%g200788200805%_)))) - (_%g200787200801%_ _%g200788200805%_))))) - (_%g200786200843%_ _%$stx200783%_)))) + _%hd200900200928%_) + (_%g200893200907%_ _%g200894200911%_)))) + (_%g200893200907%_ _%g200894200911%_)))) + (_%g200893200907%_ _%g200894200911%_))))) + (_%g200892200949%_ _%$stx200889%_)))) diff --git a/src/bootstrap/gerbil/compiler/method~0.scm b/src/bootstrap/gerbil/compiler/method~0.scm index 4ca8673cf..f87f5a0d4 100644 --- a/src/bootstrap/gerbil/compiler/method~0.scm +++ b/src/bootstrap/gerbil/compiler/method~0.scm @@ -1,81 +1,81 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/method::timestamp 1733870075) + (define gerbil/compiler/method::timestamp 1734131747) (begin (define gxc#current-compile-method (make-parameter '#f)) (define gxc#compile-e__0 - (lambda (_%stx137731%_) - (let* ((_%self137733%_ + (lambda (_%stx137837%_) + (let* ((_%self137839%_ (let () (declare (not safe)) (gxc#current-compile-method))) - (_%$e137735%_ - (let ((__tmp137931 (gxc#stx-car-e _%stx137731%_))) + (_%$e137841%_ + (let ((__tmp138037 (gxc#stx-car-e _%stx137837%_))) (declare (not safe)) - (method-ref _%self137733%_ __tmp137931)))) - (if _%$e137735%_ - ((lambda (_%method137738%_) - (declare (not safe)) - (_%method137738%_ _%self137733%_ _%stx137731%_)) - _%$e137735%_) - (let ((__tmp137933 (gxc#stx-car-e _%stx137731%_)) - (__tmp137932 + (method-ref _%self137839%_ __tmp138037)))) + (if _%$e137841%_ + ((lambda (_%method137844%_) + (declare (not safe)) + (_%method137844%_ _%self137839%_ _%stx137837%_)) + _%$e137841%_) + (let ((__tmp138039 (gxc#stx-car-e _%stx137837%_)) + (__tmp138038 (let () (declare (not safe)) - (gx#syntax->datum _%stx137731%_)))) + (gx#syntax->datum _%stx137837%_)))) (declare (not safe)) (error '"missing method" - _%self137733%_ - __tmp137933 - __tmp137932)))))) + _%self137839%_ + __tmp138039 + __tmp138038)))))) (define gxc#compile-e__1 - (lambda (_%self137742%_ _%stx137743%_) - (let ((_%$e137745%_ - (let ((__tmp137934 (gxc#stx-car-e _%stx137743%_))) - (declare (not safe)) - (method-ref _%self137742%_ __tmp137934)))) - (if _%$e137745%_ - ((lambda (_%method137748%_) - (declare (not safe)) - (_%method137748%_ _%self137742%_ _%stx137743%_)) - _%$e137745%_) - (let ((__tmp137936 (gxc#stx-car-e _%stx137743%_)) - (__tmp137935 + (lambda (_%self137848%_ _%stx137849%_) + (let ((_%$e137851%_ + (let ((__tmp138040 (gxc#stx-car-e _%stx137849%_))) + (declare (not safe)) + (method-ref _%self137848%_ __tmp138040)))) + (if _%$e137851%_ + ((lambda (_%method137854%_) + (declare (not safe)) + (_%method137854%_ _%self137848%_ _%stx137849%_)) + _%$e137851%_) + (let ((__tmp138042 (gxc#stx-car-e _%stx137849%_)) + (__tmp138041 (let () (declare (not safe)) - (gx#syntax->datum _%stx137743%_)))) + (gx#syntax->datum _%stx137849%_)))) (declare (not safe)) (error '"missing method" - _%self137742%_ - __tmp137936 - __tmp137935)))))) + _%self137848%_ + __tmp138042 + __tmp138041)))))) (define gxc#compile-e - (lambda _g137938_ - (let ((_g137937_ (let () (declare (not safe)) (##length _g137938_)))) - (cond ((let () (declare (not safe)) (##fx= _g137937_ 1)) - (apply gxc#compile-e__0 _g137938_)) - ((let () (declare (not safe)) (##fx= _g137937_ 2)) - (apply gxc#compile-e__1 _g137938_)) + (lambda _g138044_ + (let ((_g138043_ (let () (declare (not safe)) (##length _g138044_)))) + (cond ((let () (declare (not safe)) (##fx= _g138043_ 1)) + (apply gxc#compile-e__0 _g138044_)) + ((let () (declare (not safe)) (##fx= _g138043_ 2)) + (apply gxc#compile-e__1 _g138044_)) (else (##raise-wrong-number-of-arguments-exception gxc#compile-e - _g137938_)))))) + _g138044_)))))) (define gxc#stx-car-e - (lambda (_%stx137729%_) - (let ((__tmp137939 - (car (let () (declare (not safe)) (gx#stx-e _%stx137729%_))))) + (lambda (_%stx137835%_) + (let ((__tmp138045 + (car (let () (declare (not safe)) (gx#stx-e _%stx137835%_))))) (declare (not safe)) - (gx#stx-e __tmp137939)))) - (define gxc#void-method (lambda (_%self137726%_ _%stx137727%_) '#!void)) - (define gxc#false-method (lambda (_%self137723%_ _%stx137724%_) '#f)) - (define gxc#true-method (lambda (_%self137720%_ _%stx137721%_) '#t)) + (gx#stx-e __tmp138045)))) + (define gxc#void-method (lambda (_%self137832%_ _%stx137833%_) '#!void)) + (define gxc#false-method (lambda (_%self137829%_ _%stx137830%_) '#f)) + (define gxc#true-method (lambda (_%self137826%_ _%stx137827%_) '#t)) (define gxc#identity-method - (lambda (_%self137717%_ _%stx137718%_) _%stx137718%_)) + (lambda (_%self137823%_ _%stx137824%_) _%stx137824%_)) (define gxc#::void-expression::t - (let ((__tmp137940 (list))) + (let ((__tmp138046 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-expression::t '::void-expression - __tmp137940 + __tmp138046 '() '() '#f))) @@ -84,10 +84,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-expression::t))) (define gxc#make-::void-expression - (lambda _%$args137714%_ - (apply make-instance gxc#::void-expression::t _%$args137714%_))) + (lambda _%$args137820%_ + (apply make-instance gxc#::void-expression::t _%$args137820%_))) (define gxc#::void-expression-bind-methods! - (let ((__tmp137941 + (let ((__tmp138047 (lambda () (let () (declare (not safe)) @@ -216,14 +216,14 @@ '%#struct-unchecked-set! gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137941))) + (__make-promise __tmp138047))) (define gxc#::void-special-form::t - (let ((__tmp137942 (list))) + (let ((__tmp138048 (list))) (declare (not safe)) (__make-class-type 'gxc#::void-special-form::t '::void-special-form - __tmp137942 + __tmp138048 '() '() '#f))) @@ -232,10 +232,10 @@ (declare (not safe)) (__make-class-predicate gxc#::void-special-form::t))) (define gxc#make-::void-special-form - (lambda _%$args137710%_ - (apply make-instance gxc#::void-special-form::t _%$args137710%_))) + (lambda _%$args137816%_ + (apply make-instance gxc#::void-special-form::t _%$args137816%_))) (define gxc#::void-special-form-bind-methods! - (let ((__tmp137943 + (let ((__tmp138049 (lambda () (let () (declare (not safe)) @@ -310,31 +310,31 @@ '%#declare gxc#void-method))))) (declare (not safe)) - (__make-promise __tmp137943))) + (__make-promise __tmp138049))) (define gxc#::void::t - (let ((__tmp137944 + (let ((__tmp138050 (list gxc#::void-special-form::t gxc#::void-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::void::t '::void __tmp137944 '() '() '#f))) + (__make-class-type 'gxc#::void::t '::void __tmp138050 '() '() '#f))) (define gxc#::void? (let () (declare (not safe)) (__make-class-predicate gxc#::void::t))) (define gxc#make-::void - (lambda _%$args137706%_ - (apply make-instance gxc#::void::t _%$args137706%_))) + (lambda _%$args137812%_ + (apply make-instance gxc#::void::t _%$args137812%_))) (define gxc#::void-bind-methods! - (let ((__tmp137945 + (let ((__tmp138051 (lambda () (force gxc#::void-special-form-bind-methods!) (force gxc#::void-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137945))) + (__make-promise __tmp138051))) (define gxc#::false-expression::t - (let ((__tmp137946 (list))) + (let ((__tmp138052 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-expression::t '::false-expression - __tmp137946 + __tmp138052 '() '() '#f))) @@ -343,10 +343,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-expression::t))) (define gxc#make-::false-expression - (lambda _%$args137702%_ - (apply make-instance gxc#::false-expression::t _%$args137702%_))) + (lambda _%$args137808%_ + (apply make-instance gxc#::false-expression::t _%$args137808%_))) (define gxc#::false-expression-bind-methods! - (let ((__tmp137947 + (let ((__tmp138053 (lambda () (let () (declare (not safe)) @@ -475,14 +475,14 @@ '%#struct-unchecked-set! gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137947))) + (__make-promise __tmp138053))) (define gxc#::false-special-form::t - (let ((__tmp137948 (list))) + (let ((__tmp138054 (list))) (declare (not safe)) (__make-class-type 'gxc#::false-special-form::t '::false-special-form - __tmp137948 + __tmp138054 '() '() '#f))) @@ -491,10 +491,10 @@ (declare (not safe)) (__make-class-predicate gxc#::false-special-form::t))) (define gxc#make-::false-special-form - (lambda _%$args137698%_ - (apply make-instance gxc#::false-special-form::t _%$args137698%_))) + (lambda _%$args137804%_ + (apply make-instance gxc#::false-special-form::t _%$args137804%_))) (define gxc#::false-special-form-bind-methods! - (let ((__tmp137949 + (let ((__tmp138055 (lambda () (let () (declare (not safe)) @@ -569,31 +569,31 @@ '%#declare gxc#false-method))))) (declare (not safe)) - (__make-promise __tmp137949))) + (__make-promise __tmp138055))) (define gxc#::false::t - (let ((__tmp137950 + (let ((__tmp138056 (list gxc#::false-special-form::t gxc#::false-expression::t))) (declare (not safe)) - (__make-class-type 'gxc#::false::t '::false __tmp137950 '() '() '#f))) + (__make-class-type 'gxc#::false::t '::false __tmp138056 '() '() '#f))) (define gxc#::false? (let () (declare (not safe)) (__make-class-predicate gxc#::false::t))) (define gxc#make-::false - (lambda _%$args137694%_ - (apply make-instance gxc#::false::t _%$args137694%_))) + (lambda _%$args137800%_ + (apply make-instance gxc#::false::t _%$args137800%_))) (define gxc#::false-bind-methods! - (let ((__tmp137951 + (let ((__tmp138057 (lambda () (force gxc#::false-special-form-bind-methods!) (force gxc#::false-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137951))) + (__make-promise __tmp138057))) (define gxc#::identity-expression::t - (let ((__tmp137952 (list))) + (let ((__tmp138058 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-expression::t '::identity-expression - __tmp137952 + __tmp138058 '() '() '#f))) @@ -602,10 +602,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-expression::t))) (define gxc#make-::identity-expression - (lambda _%$args137690%_ - (apply make-instance gxc#::identity-expression::t _%$args137690%_))) + (lambda _%$args137796%_ + (apply make-instance gxc#::identity-expression::t _%$args137796%_))) (define gxc#::identity-expression-bind-methods! - (let ((__tmp137953 + (let ((__tmp138059 (lambda () (let () (declare (not safe)) @@ -734,14 +734,14 @@ '%#struct-unchecked-set! gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137953))) + (__make-promise __tmp138059))) (define gxc#::identity-special-form::t - (let ((__tmp137954 (list))) + (let ((__tmp138060 (list))) (declare (not safe)) (__make-class-type 'gxc#::identity-special-form::t '::identity-special-form - __tmp137954 + __tmp138060 '() '() '#f))) @@ -750,10 +750,10 @@ (declare (not safe)) (__make-class-predicate gxc#::identity-special-form::t))) (define gxc#make-::identity-special-form - (lambda _%$args137686%_ - (apply make-instance gxc#::identity-special-form::t _%$args137686%_))) + (lambda _%$args137792%_ + (apply make-instance gxc#::identity-special-form::t _%$args137792%_))) (define gxc#::identity-special-form-bind-methods! - (let ((__tmp137955 + (let ((__tmp138061 (lambda () (let () (declare (not safe)) @@ -828,38 +828,38 @@ '%#declare gxc#identity-method))))) (declare (not safe)) - (__make-promise __tmp137955))) + (__make-promise __tmp138061))) (define gxc#::identity::t - (let ((__tmp137956 + (let ((__tmp138062 (list gxc#::identity-special-form::t gxc#::identity-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::identity::t '::identity - __tmp137956 + __tmp138062 '() '() '#f))) (define gxc#::identity? (let () (declare (not safe)) (__make-class-predicate gxc#::identity::t))) (define gxc#make-::identity - (lambda _%$args137682%_ - (apply make-instance gxc#::identity::t _%$args137682%_))) + (lambda _%$args137788%_ + (apply make-instance gxc#::identity::t _%$args137788%_))) (define gxc#::identity-bind-methods! - (let ((__tmp137957 + (let ((__tmp138063 (lambda () (force gxc#::identity-special-form-bind-methods!) (force gxc#::identity-expression-bind-methods!)))) (declare (not safe)) - (__make-promise __tmp137957))) + (__make-promise __tmp138063))) (define gxc#::basic-xform-expression::t - (let ((__tmp137958 (list))) + (let ((__tmp138064 (list))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform-expression::t '::basic-xform-expression - __tmp137958 + __tmp138064 '() '() '#f))) @@ -868,10 +868,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform-expression::t))) (define gxc#make-::basic-xform-expression - (lambda _%$args137678%_ - (apply make-instance gxc#::basic-xform-expression::t _%$args137678%_))) + (lambda _%$args137784%_ + (apply make-instance gxc#::basic-xform-expression::t _%$args137784%_))) (define gxc#::basic-xform-expression-bind-methods! - (let ((__tmp137959 + (let ((__tmp138065 (lambda () (let () (declare (not safe)) @@ -1000,15 +1000,15 @@ '%#struct-unchecked-set! gxc#xform-operands))))) (declare (not safe)) - (__make-promise __tmp137959))) + (__make-promise __tmp138065))) (define gxc#::basic-xform::t - (let ((__tmp137960 + (let ((__tmp138066 (list gxc#::basic-xform-expression::t gxc#::identity::t))) (declare (not safe)) (__make-class-type 'gxc#::basic-xform::t '::basic-xform - __tmp137960 + __tmp138066 '() '() '#f))) @@ -1017,10 +1017,10 @@ (declare (not safe)) (__make-class-predicate gxc#::basic-xform::t))) (define gxc#make-::basic-xform - (lambda _%$args137674%_ - (apply make-instance gxc#::basic-xform::t _%$args137674%_))) + (lambda _%$args137780%_ + (apply make-instance gxc#::basic-xform::t _%$args137780%_))) (define gxc#::basic-xform-bind-methods! - (let ((__tmp137961 + (let ((__tmp138067 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (force gxc#::identity-bind-methods!) @@ -1055,2552 +1055,2552 @@ '%#define-syntax gxc#xform-define-syntax%))))) (declare (not safe)) - (__make-promise __tmp137961))) + (__make-promise __tmp138067))) (define gxc#apply-begin% - (lambda (_%self137630%_ _%stx137631%_) - (let* ((_%g137633137643%_ - (lambda (_%g137634137640%_) + (lambda (_%self137736%_ _%stx137737%_) + (let* ((_%g137739137749%_ + (lambda (_%g137740137746%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137634137640%_)))) - (_%g137632137670%_ - (lambda (_%g137634137646%_) + _%g137740137746%_)))) + (_%g137738137776%_ + (lambda (_%g137740137752%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137634137646%_)) - (let ((_%e137636137648%_ + (gx#stx-pair? _%g137740137752%_)) + (let ((_%e137742137754%_ (let () (declare (not safe)) - (gx#stx-e _%g137634137646%_)))) - (let ((_%hd137637137651%_ + (gx#stx-e _%g137740137752%_)))) + (let ((_%hd137743137757%_ (let () (declare (not safe)) - (##car _%e137636137648%_))) - (_%tl137638137653%_ + (##car _%e137742137754%_))) + (_%tl137744137759%_ (let () (declare (not safe)) - (##cdr _%e137636137648%_)))) - ((lambda (_%L137656%_) + (##cdr _%e137742137754%_)))) + ((lambda (_%L137762%_) (for-each - (lambda (_%g137665137667%_) + (lambda (_%g137771137773%_) (gxc#compile-e__1 - _%self137630%_ - _%g137665137667%_)) + _%self137736%_ + _%g137771137773%_)) (let () (declare (not safe)) - (gx#stx-e _%L137656%_)))) - _%tl137638137653%_))) - (_%g137633137643%_ _%g137634137646%_))))) - (_%g137632137670%_ _%stx137631%_)))) + (gx#stx-e _%L137762%_)))) + _%tl137744137759%_))) + (_%g137739137749%_ _%g137740137752%_))))) + (_%g137738137776%_ _%stx137737%_)))) (define gxc#apply-last-begin% - (lambda (_%self137591%_ _%stx137592%_) - (let* ((_%g137594137604%_ - (lambda (_%g137595137601%_) + (lambda (_%self137697%_ _%stx137698%_) + (let* ((_%g137700137710%_ + (lambda (_%g137701137707%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137595137601%_)))) - (_%g137593137627%_ - (lambda (_%g137595137607%_) + _%g137701137707%_)))) + (_%g137699137733%_ + (lambda (_%g137701137713%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137595137607%_)) - (let ((_%e137597137609%_ + (gx#stx-pair? _%g137701137713%_)) + (let ((_%e137703137715%_ (let () (declare (not safe)) - (gx#stx-e _%g137595137607%_)))) - (let ((_%hd137598137612%_ + (gx#stx-e _%g137701137713%_)))) + (let ((_%hd137704137718%_ (let () (declare (not safe)) - (##car _%e137597137609%_))) - (_%tl137599137614%_ + (##car _%e137703137715%_))) + (_%tl137705137720%_ (let () (declare (not safe)) - (##cdr _%e137597137609%_)))) - ((lambda (_%L137617%_) + (##cdr _%e137703137715%_)))) + ((lambda (_%L137723%_) (gxc#compile-e__1 - _%self137591%_ - (last _%L137617%_))) - _%tl137599137614%_))) - (_%g137594137604%_ _%g137595137607%_))))) - (_%g137593137627%_ _%stx137592%_)))) + _%self137697%_ + (last _%L137723%_))) + _%tl137705137720%_))) + (_%g137700137710%_ _%g137701137713%_))))) + (_%g137699137733%_ _%stx137698%_)))) (define gxc#apply-begin-syntax% - (lambda (_%self137587%_ _%stx137588%_) - (let ((__tmp137964 - (lambda () (gxc#apply-begin% _%self137587%_ _%stx137588%_))) - (__tmp137962 - (let ((__tmp137963 + (lambda (_%self137693%_ _%stx137694%_) + (let ((__tmp138070 + (lambda () (gxc#apply-begin% _%self137693%_ _%stx137694%_))) + (__tmp138068 + (let ((__tmp138069 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137963 '1)))) + (##fx+ __tmp138069 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137964 + __tmp138070 gx#current-expander-phi - __tmp137962)))) + __tmp138068)))) (define gxc#apply-module% - (lambda (_%self137526%_ _%stx137527%_) - (let* ((_%g137529137543%_ - (lambda (_%g137530137540%_) + (lambda (_%self137632%_ _%stx137633%_) + (let* ((_%g137635137649%_ + (lambda (_%g137636137646%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137530137540%_)))) - (_%g137528137584%_ - (lambda (_%g137530137546%_) + _%g137636137646%_)))) + (_%g137634137690%_ + (lambda (_%g137636137652%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137530137546%_)) - (let ((_%e137533137548%_ + (gx#stx-pair? _%g137636137652%_)) + (let ((_%e137639137654%_ (let () (declare (not safe)) - (gx#stx-e _%g137530137546%_)))) - (let ((_%hd137534137551%_ + (gx#stx-e _%g137636137652%_)))) + (let ((_%hd137640137657%_ (let () (declare (not safe)) - (##car _%e137533137548%_))) - (_%tl137535137553%_ + (##car _%e137639137654%_))) + (_%tl137641137659%_ (let () (declare (not safe)) - (##cdr _%e137533137548%_)))) + (##cdr _%e137639137654%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137535137553%_)) - (let ((_%e137536137556%_ + (gx#stx-pair? _%tl137641137659%_)) + (let ((_%e137642137662%_ (let () (declare (not safe)) - (gx#stx-e _%tl137535137553%_)))) - (let ((_%hd137537137559%_ + (gx#stx-e _%tl137641137659%_)))) + (let ((_%hd137643137665%_ (let () (declare (not safe)) - (##car _%e137536137556%_))) - (_%tl137538137561%_ + (##car _%e137642137662%_))) + (_%tl137644137667%_ (let () (declare (not safe)) - (##cdr _%e137536137556%_)))) - ((lambda (_%L137564%_ _%L137565%_) - (let* ((_%ctx137578%_ + (##cdr _%e137642137662%_)))) + ((lambda (_%L137670%_ _%L137671%_) + (let* ((_%ctx137684%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L137565%_))) - (_%ctx-stx137580%_ + _%L137671%_))) + (_%ctx-stx137686%_ (##structure-ref - _%ctx137578%_ + _%ctx137684%_ '11 gx#module-context::t '#f)) - (__tmp137965 + (__tmp138071 (lambda () (gxc#compile-e__1 - _%self137526%_ - _%ctx-stx137580%_)))) + _%self137632%_ + _%ctx-stx137686%_)))) (declare (not safe)) (__call-with-parameters - __tmp137965 + __tmp138071 gx#current-expander-context - _%ctx137578%_))) - _%tl137538137561%_ - _%hd137537137559%_))) - (_%g137529137543%_ _%g137530137546%_)))) - (_%g137529137543%_ _%g137530137546%_))))) - (_%g137528137584%_ _%stx137527%_)))) + _%ctx137684%_))) + _%tl137644137667%_ + _%hd137643137665%_))) + (_%g137635137649%_ _%g137636137652%_)))) + (_%g137635137649%_ _%g137636137652%_))))) + (_%g137634137690%_ _%stx137633%_)))) (define gxc#apply-begin-annotation% - (lambda (_%self137458%_ _%stx137459%_) - (let* ((_%g137461137478%_ - (lambda (_%g137462137475%_) + (lambda (_%self137564%_ _%stx137565%_) + (let* ((_%g137567137584%_ + (lambda (_%g137568137581%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137462137475%_)))) - (_%g137460137523%_ - (lambda (_%g137462137481%_) + _%g137568137581%_)))) + (_%g137566137629%_ + (lambda (_%g137568137587%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137462137481%_)) - (let ((_%e137465137483%_ + (gx#stx-pair? _%g137568137587%_)) + (let ((_%e137571137589%_ (let () (declare (not safe)) - (gx#stx-e _%g137462137481%_)))) - (let ((_%hd137466137486%_ + (gx#stx-e _%g137568137587%_)))) + (let ((_%hd137572137592%_ (let () (declare (not safe)) - (##car _%e137465137483%_))) - (_%tl137467137488%_ + (##car _%e137571137589%_))) + (_%tl137573137594%_ (let () (declare (not safe)) - (##cdr _%e137465137483%_)))) + (##cdr _%e137571137589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137467137488%_)) - (let ((_%e137468137491%_ + (gx#stx-pair? _%tl137573137594%_)) + (let ((_%e137574137597%_ (let () (declare (not safe)) - (gx#stx-e _%tl137467137488%_)))) - (let ((_%hd137469137494%_ + (gx#stx-e _%tl137573137594%_)))) + (let ((_%hd137575137600%_ (let () (declare (not safe)) - (##car _%e137468137491%_))) - (_%tl137470137496%_ + (##car _%e137574137597%_))) + (_%tl137576137602%_ (let () (declare (not safe)) - (##cdr _%e137468137491%_)))) + (##cdr _%e137574137597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137470137496%_)) - (let ((_%e137471137499%_ + (gx#stx-pair? _%tl137576137602%_)) + (let ((_%e137577137605%_ (let () (declare (not safe)) - (gx#stx-e _%tl137470137496%_)))) - (let ((_%hd137472137502%_ + (gx#stx-e _%tl137576137602%_)))) + (let ((_%hd137578137608%_ (let () (declare (not safe)) - (##car _%e137471137499%_))) - (_%tl137473137504%_ + (##car _%e137577137605%_))) + (_%tl137579137610%_ (let () (declare (not safe)) - (##cdr _%e137471137499%_)))) + (##cdr _%e137577137605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137473137504%_)) - ((lambda (_%L137507%_ - _%L137508%_) + _%tl137579137610%_)) + ((lambda (_%L137613%_ + _%L137614%_) (gxc#compile-e__1 - _%self137458%_ - _%L137507%_)) - _%hd137472137502%_ - _%hd137469137494%_) - (_%g137461137478%_ - _%g137462137481%_)))) - (_%g137461137478%_ _%g137462137481%_)))) - (_%g137461137478%_ _%g137462137481%_)))) - (_%g137461137478%_ _%g137462137481%_))))) - (_%g137460137523%_ _%stx137459%_)))) + _%self137564%_ + _%L137613%_)) + _%hd137578137608%_ + _%hd137575137600%_) + (_%g137567137584%_ + _%g137568137587%_)))) + (_%g137567137584%_ _%g137568137587%_)))) + (_%g137567137584%_ _%g137568137587%_)))) + (_%g137567137584%_ _%g137568137587%_))))) + (_%g137566137629%_ _%stx137565%_)))) (define gxc#apply-define-values% - (lambda (_%self137390%_ _%stx137391%_) - (let* ((_%g137393137410%_ - (lambda (_%g137394137407%_) + (lambda (_%self137496%_ _%stx137497%_) + (let* ((_%g137499137516%_ + (lambda (_%g137500137513%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137394137407%_)))) - (_%g137392137455%_ - (lambda (_%g137394137413%_) + _%g137500137513%_)))) + (_%g137498137561%_ + (lambda (_%g137500137519%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137394137413%_)) - (let ((_%e137397137415%_ + (gx#stx-pair? _%g137500137519%_)) + (let ((_%e137503137521%_ (let () (declare (not safe)) - (gx#stx-e _%g137394137413%_)))) - (let ((_%hd137398137418%_ + (gx#stx-e _%g137500137519%_)))) + (let ((_%hd137504137524%_ (let () (declare (not safe)) - (##car _%e137397137415%_))) - (_%tl137399137420%_ + (##car _%e137503137521%_))) + (_%tl137505137526%_ (let () (declare (not safe)) - (##cdr _%e137397137415%_)))) + (##cdr _%e137503137521%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137399137420%_)) - (let ((_%e137400137423%_ + (gx#stx-pair? _%tl137505137526%_)) + (let ((_%e137506137529%_ (let () (declare (not safe)) - (gx#stx-e _%tl137399137420%_)))) - (let ((_%hd137401137426%_ + (gx#stx-e _%tl137505137526%_)))) + (let ((_%hd137507137532%_ (let () (declare (not safe)) - (##car _%e137400137423%_))) - (_%tl137402137428%_ + (##car _%e137506137529%_))) + (_%tl137508137534%_ (let () (declare (not safe)) - (##cdr _%e137400137423%_)))) + (##cdr _%e137506137529%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137402137428%_)) - (let ((_%e137403137431%_ + (gx#stx-pair? _%tl137508137534%_)) + (let ((_%e137509137537%_ (let () (declare (not safe)) - (gx#stx-e _%tl137402137428%_)))) - (let ((_%hd137404137434%_ + (gx#stx-e _%tl137508137534%_)))) + (let ((_%hd137510137540%_ (let () (declare (not safe)) - (##car _%e137403137431%_))) - (_%tl137405137436%_ + (##car _%e137509137537%_))) + (_%tl137511137542%_ (let () (declare (not safe)) - (##cdr _%e137403137431%_)))) + (##cdr _%e137509137537%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137405137436%_)) - ((lambda (_%L137439%_ - _%L137440%_) + _%tl137511137542%_)) + ((lambda (_%L137545%_ + _%L137546%_) (gxc#compile-e__1 - _%self137390%_ - _%L137439%_)) - _%hd137404137434%_ - _%hd137401137426%_) - (_%g137393137410%_ - _%g137394137413%_)))) - (_%g137393137410%_ _%g137394137413%_)))) - (_%g137393137410%_ _%g137394137413%_)))) - (_%g137393137410%_ _%g137394137413%_))))) - (_%g137392137455%_ _%stx137391%_)))) + _%self137496%_ + _%L137545%_)) + _%hd137510137540%_ + _%hd137507137532%_) + (_%g137499137516%_ + _%g137500137519%_)))) + (_%g137499137516%_ _%g137500137519%_)))) + (_%g137499137516%_ _%g137500137519%_)))) + (_%g137499137516%_ _%g137500137519%_))))) + (_%g137498137561%_ _%stx137497%_)))) (define gxc#apply-define-syntax% - (lambda (_%self137321%_ _%stx137322%_) - (let* ((_%g137324137341%_ - (lambda (_%g137325137338%_) + (lambda (_%self137427%_ _%stx137428%_) + (let* ((_%g137430137447%_ + (lambda (_%g137431137444%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137325137338%_)))) - (_%g137323137387%_ - (lambda (_%g137325137344%_) + _%g137431137444%_)))) + (_%g137429137493%_ + (lambda (_%g137431137450%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137325137344%_)) - (let ((_%e137328137346%_ + (gx#stx-pair? _%g137431137450%_)) + (let ((_%e137434137452%_ (let () (declare (not safe)) - (gx#stx-e _%g137325137344%_)))) - (let ((_%hd137329137349%_ + (gx#stx-e _%g137431137450%_)))) + (let ((_%hd137435137455%_ (let () (declare (not safe)) - (##car _%e137328137346%_))) - (_%tl137330137351%_ + (##car _%e137434137452%_))) + (_%tl137436137457%_ (let () (declare (not safe)) - (##cdr _%e137328137346%_)))) + (##cdr _%e137434137452%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137330137351%_)) - (let ((_%e137331137354%_ + (gx#stx-pair? _%tl137436137457%_)) + (let ((_%e137437137460%_ (let () (declare (not safe)) - (gx#stx-e _%tl137330137351%_)))) - (let ((_%hd137332137357%_ + (gx#stx-e _%tl137436137457%_)))) + (let ((_%hd137438137463%_ (let () (declare (not safe)) - (##car _%e137331137354%_))) - (_%tl137333137359%_ + (##car _%e137437137460%_))) + (_%tl137439137465%_ (let () (declare (not safe)) - (##cdr _%e137331137354%_)))) + (##cdr _%e137437137460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137333137359%_)) - (let ((_%e137334137362%_ + (gx#stx-pair? _%tl137439137465%_)) + (let ((_%e137440137468%_ (let () (declare (not safe)) - (gx#stx-e _%tl137333137359%_)))) - (let ((_%hd137335137365%_ + (gx#stx-e _%tl137439137465%_)))) + (let ((_%hd137441137471%_ (let () (declare (not safe)) - (##car _%e137334137362%_))) - (_%tl137336137367%_ + (##car _%e137440137468%_))) + (_%tl137442137473%_ (let () (declare (not safe)) - (##cdr _%e137334137362%_)))) + (##cdr _%e137440137468%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137336137367%_)) - ((lambda (_%L137370%_ - _%L137371%_) - (let ((__tmp137968 + _%tl137442137473%_)) + ((lambda (_%L137476%_ + _%L137477%_) + (let ((__tmp138074 (lambda () (gxc#compile-e__1 - _%self137321%_ - _%L137370%_))) - (__tmp137966 - (let ((__tmp137967 + _%self137427%_ + _%L137476%_))) + (__tmp138072 + (let ((__tmp138073 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137967 '1)))) + (##fx+ __tmp138073 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137968 + __tmp138074 gx#current-expander-phi - __tmp137966))) - _%hd137335137365%_ - _%hd137332137357%_) - (_%g137324137341%_ - _%g137325137344%_)))) - (_%g137324137341%_ _%g137325137344%_)))) - (_%g137324137341%_ _%g137325137344%_)))) - (_%g137324137341%_ _%g137325137344%_))))) - (_%g137323137387%_ _%stx137322%_)))) + __tmp138072))) + _%hd137441137471%_ + _%hd137438137463%_) + (_%g137430137447%_ + _%g137431137450%_)))) + (_%g137430137447%_ _%g137431137450%_)))) + (_%g137430137447%_ _%g137431137450%_)))) + (_%g137430137447%_ _%g137431137450%_))))) + (_%g137429137493%_ _%stx137428%_)))) (define gxc#apply-body-lambda% - (lambda (_%self137253%_ _%stx137254%_) - (let* ((_%g137256137273%_ - (lambda (_%g137257137270%_) + (lambda (_%self137359%_ _%stx137360%_) + (let* ((_%g137362137379%_ + (lambda (_%g137363137376%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137257137270%_)))) - (_%g137255137318%_ - (lambda (_%g137257137276%_) + _%g137363137376%_)))) + (_%g137361137424%_ + (lambda (_%g137363137382%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137257137276%_)) - (let ((_%e137260137278%_ + (gx#stx-pair? _%g137363137382%_)) + (let ((_%e137366137384%_ (let () (declare (not safe)) - (gx#stx-e _%g137257137276%_)))) - (let ((_%hd137261137281%_ + (gx#stx-e _%g137363137382%_)))) + (let ((_%hd137367137387%_ (let () (declare (not safe)) - (##car _%e137260137278%_))) - (_%tl137262137283%_ + (##car _%e137366137384%_))) + (_%tl137368137389%_ (let () (declare (not safe)) - (##cdr _%e137260137278%_)))) + (##cdr _%e137366137384%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137262137283%_)) - (let ((_%e137263137286%_ + (gx#stx-pair? _%tl137368137389%_)) + (let ((_%e137369137392%_ (let () (declare (not safe)) - (gx#stx-e _%tl137262137283%_)))) - (let ((_%hd137264137289%_ + (gx#stx-e _%tl137368137389%_)))) + (let ((_%hd137370137395%_ (let () (declare (not safe)) - (##car _%e137263137286%_))) - (_%tl137265137291%_ + (##car _%e137369137392%_))) + (_%tl137371137397%_ (let () (declare (not safe)) - (##cdr _%e137263137286%_)))) + (##cdr _%e137369137392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137265137291%_)) - (let ((_%e137266137294%_ + (gx#stx-pair? _%tl137371137397%_)) + (let ((_%e137372137400%_ (let () (declare (not safe)) - (gx#stx-e _%tl137265137291%_)))) - (let ((_%hd137267137297%_ + (gx#stx-e _%tl137371137397%_)))) + (let ((_%hd137373137403%_ (let () (declare (not safe)) - (##car _%e137266137294%_))) - (_%tl137268137299%_ + (##car _%e137372137400%_))) + (_%tl137374137405%_ (let () (declare (not safe)) - (##cdr _%e137266137294%_)))) + (##cdr _%e137372137400%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137268137299%_)) - ((lambda (_%L137302%_ - _%L137303%_) + _%tl137374137405%_)) + ((lambda (_%L137408%_ + _%L137409%_) (gxc#compile-e__1 - _%self137253%_ - _%L137302%_)) - _%hd137267137297%_ - _%hd137264137289%_) - (_%g137256137273%_ - _%g137257137276%_)))) - (_%g137256137273%_ _%g137257137276%_)))) - (_%g137256137273%_ _%g137257137276%_)))) - (_%g137256137273%_ _%g137257137276%_))))) - (_%g137255137318%_ _%stx137254%_)))) + _%self137359%_ + _%L137408%_)) + _%hd137373137403%_ + _%hd137370137395%_) + (_%g137362137379%_ + _%g137363137382%_)))) + (_%g137362137379%_ _%g137363137382%_)))) + (_%g137362137379%_ _%g137363137382%_)))) + (_%g137362137379%_ _%g137363137382%_))))) + (_%g137361137424%_ _%stx137360%_)))) (define gxc#apply-body-case-lambda% - (lambda (_%self137135%_ _%stx137136%_) - (let* ((_%g137138137166%_ - (lambda (_%g137139137163%_) + (lambda (_%self137241%_ _%stx137242%_) + (let* ((_%g137244137272%_ + (lambda (_%g137245137269%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g137139137163%_)))) - (_%g137137137250%_ - (lambda (_%g137139137169%_) + _%g137245137269%_)))) + (_%g137243137356%_ + (lambda (_%g137245137275%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g137139137169%_)) - (let ((_%e137142137171%_ + (gx#stx-pair? _%g137245137275%_)) + (let ((_%e137248137277%_ (let () (declare (not safe)) - (gx#stx-e _%g137139137169%_)))) - (let ((_%hd137143137174%_ + (gx#stx-e _%g137245137275%_)))) + (let ((_%hd137249137280%_ (let () (declare (not safe)) - (##car _%e137142137171%_))) - (_%tl137144137176%_ + (##car _%e137248137277%_))) + (_%tl137250137282%_ (let () (declare (not safe)) - (##cdr _%e137142137171%_)))) + (##cdr _%e137248137277%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl137144137176%_)) - (let ((_g137969_ + (gx#stx-pair/null? _%tl137250137282%_)) + (let ((_g138075_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl137144137176%_ + _%tl137250137282%_ '0)))) (begin - (let ((_g137970_ + (let ((_g138076_ (let () (declare (not safe)) - (if (##values? _g137969_) - (##vector-length _g137969_) + (if (##values? _g138075_) + (##values-length _g138075_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137970_ 2))) + (##fx= _g138076_ 2))) (error "Context expects 2 values" - _g137970_))) - (let ((_%target137145137179%_ + _g138076_))) + (let ((_%target137251137285%_ (let () (declare (not safe)) - (##vector-ref _g137969_ 0))) - (_%tl137147137181%_ + (##values-ref _g138075_ 0))) + (_%tl137253137287%_ (let () (declare (not safe)) - (##vector-ref _g137969_ 1)))) + (##values-ref _g138075_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137147137181%_)) - (letrec ((_%loop137148137184%_ - (lambda (_%hd137146137187%_ - _%body137152137189%_ - _%hd137153137191%_) + (gx#stx-null? _%tl137253137287%_)) + (letrec ((_%loop137254137290%_ + (lambda (_%hd137252137293%_ + _%body137258137295%_ + _%hd137259137297%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd137146137187%_)) - (let ((_%e137149137194%_ + _%hd137252137293%_)) + (let ((_%e137255137300%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd137146137187%_)))) - (let ((_%lp-hd137150137197%_ + (gx#stx-e _%hd137252137293%_)))) + (let ((_%lp-hd137256137303%_ (let () (declare (not safe)) - (##car _%e137149137194%_))) - (_%lp-tl137151137199%_ + (##car _%e137255137300%_))) + (_%lp-tl137257137305%_ (let () (declare (not safe)) - (##cdr _%e137149137194%_)))) + (##cdr _%e137255137300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137150137197%_)) - (let ((_%e137156137202%_ + (gx#stx-pair? _%lp-hd137256137303%_)) + (let ((_%e137262137308%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137150137197%_)))) - (let ((_%hd137157137205%_ + (gx#stx-e _%lp-hd137256137303%_)))) + (let ((_%hd137263137311%_ (let () (declare (not safe)) - (##car _%e137156137202%_))) - (_%tl137158137207%_ + (##car _%e137262137308%_))) + (_%tl137264137313%_ (let () (declare (not safe)) - (##cdr _%e137156137202%_)))) + (##cdr _%e137262137308%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137158137207%_)) - (let ((_%e137159137210%_ + (gx#stx-pair? _%tl137264137313%_)) + (let ((_%e137265137316%_ (let () (declare (not safe)) - (gx#stx-e _%tl137158137207%_)))) - (let ((_%hd137160137213%_ + (gx#stx-e _%tl137264137313%_)))) + (let ((_%hd137266137319%_ (let () (declare (not safe)) - (##car _%e137159137210%_))) - (_%tl137161137215%_ + (##car _%e137265137316%_))) + (_%tl137267137321%_ (let () (declare (not safe)) - (##cdr _%e137159137210%_)))) + (##cdr _%e137265137316%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137161137215%_)) - (_%loop137148137184%_ - _%lp-tl137151137199%_ - (cons _%hd137160137213%_ - _%body137152137189%_) - (cons _%hd137157137205%_ - _%hd137153137191%_)) - (_%g137138137166%_ - _%g137139137169%_)))) - (_%g137138137166%_ _%g137139137169%_)))) - (_%g137138137166%_ _%g137139137169%_)))) - (let ((_%body137154137218%_ (reverse _%body137152137189%_)) - (_%hd137155137220%_ (reverse _%hd137153137191%_))) - ((lambda (_%L137223%_ _%L137224%_) + (gx#stx-null? _%tl137267137321%_)) + (_%loop137254137290%_ + _%lp-tl137257137305%_ + (cons _%hd137266137319%_ + _%body137258137295%_) + (cons _%hd137263137311%_ + _%hd137259137297%_)) + (_%g137244137272%_ + _%g137245137275%_)))) + (_%g137244137272%_ _%g137245137275%_)))) + (_%g137244137272%_ _%g137245137275%_)))) + (let ((_%body137260137324%_ (reverse _%body137258137295%_)) + (_%hd137261137326%_ (reverse _%hd137259137297%_))) + ((lambda (_%L137329%_ _%L137330%_) (for-each - (lambda (_%g137238137240%_) - (gxc#compile-e__1 _%self137135%_ _%g137238137240%_)) - (let ((__tmp137971 - (lambda (_%g137242137245%_ _%g137243137247%_) - (cons _%g137242137245%_ _%g137243137247%_)))) + (lambda (_%g137344137346%_) + (gxc#compile-e__1 _%self137241%_ _%g137344137346%_)) + (let ((__tmp138077 + (lambda (_%g137348137351%_ _%g137349137353%_) + (cons _%g137348137351%_ _%g137349137353%_)))) (declare (not safe)) - (__foldr1 __tmp137971 '() _%L137223%_)))) - _%body137154137218%_ - _%hd137155137220%_)))))) + (__foldr1 __tmp138077 '() _%L137329%_)))) + _%body137260137324%_ + _%hd137261137326%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137148137184%_ - _%target137145137179%_ + (_%loop137254137290%_ + _%target137251137285%_ '() '())) - (_%g137138137166%_ - _%g137139137169%_))))) - (_%g137138137166%_ _%g137139137169%_)))) - (_%g137138137166%_ _%g137139137169%_))))) - (_%g137137137250%_ _%stx137136%_)))) + (_%g137244137272%_ + _%g137245137275%_))))) + (_%g137244137272%_ _%g137245137275%_)))) + (_%g137244137272%_ _%g137245137275%_))))) + (_%g137243137356%_ _%stx137242%_)))) (define gxc#apply-body-let-values% - (lambda (_%self136988%_ _%stx136989%_) - (let* ((_%g136991137026%_ - (lambda (_%g136992137023%_) + (lambda (_%self137094%_ _%stx137095%_) + (let* ((_%g137097137132%_ + (lambda (_%g137098137129%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136992137023%_)))) - (_%g136990137132%_ - (lambda (_%g136992137029%_) + _%g137098137129%_)))) + (_%g137096137238%_ + (lambda (_%g137098137135%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136992137029%_)) - (let ((_%e136996137031%_ + (gx#stx-pair? _%g137098137135%_)) + (let ((_%e137102137137%_ (let () (declare (not safe)) - (gx#stx-e _%g136992137029%_)))) - (let ((_%hd136997137034%_ + (gx#stx-e _%g137098137135%_)))) + (let ((_%hd137103137140%_ (let () (declare (not safe)) - (##car _%e136996137031%_))) - (_%tl136998137036%_ + (##car _%e137102137137%_))) + (_%tl137104137142%_ (let () (declare (not safe)) - (##cdr _%e136996137031%_)))) + (##cdr _%e137102137137%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136998137036%_)) - (let ((_%e136999137039%_ + (gx#stx-pair? _%tl137104137142%_)) + (let ((_%e137105137145%_ (let () (declare (not safe)) - (gx#stx-e _%tl136998137036%_)))) - (let ((_%hd137000137042%_ + (gx#stx-e _%tl137104137142%_)))) + (let ((_%hd137106137148%_ (let () (declare (not safe)) - (##car _%e136999137039%_))) - (_%tl137001137044%_ + (##car _%e137105137145%_))) + (_%tl137107137150%_ (let () (declare (not safe)) - (##cdr _%e136999137039%_)))) + (##cdr _%e137105137145%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd137000137042%_)) - (let ((_g137972_ + (gx#stx-pair/null? _%hd137106137148%_)) + (let ((_g138078_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd137000137042%_ + _%hd137106137148%_ '0)))) (begin - (let ((_g137973_ + (let ((_g138079_ (let () (declare (not safe)) - (if (##values? _g137972_) - (##vector-length - _g137972_) + (if (##values? _g138078_) + (##values-length + _g138078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137973_ 2))) + (##fx= _g138079_ 2))) (error "Context expects 2 values" - _g137973_))) - (let ((_%target137002137047%_ + _g138079_))) + (let ((_%target137108137153%_ (let () (declare (not safe)) - (##vector-ref _g137972_ 0))) - (_%tl137004137049%_ + (##values-ref _g138078_ 0))) + (_%tl137110137155%_ (let () (declare (not safe)) - (##vector-ref - _g137972_ + (##values-ref + _g138078_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137004137049%_)) - (letrec ((_%loop137005137052%_ - (lambda (_%hd137003137055%_ + _%tl137110137155%_)) + (letrec ((_%loop137111137158%_ + (lambda (_%hd137109137161%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr137009137057%_ - _%hd137010137059%_) + _%expr137115137163%_ + _%hd137116137165%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd137003137055%_)) - (let ((_%e137006137062%_ + (gx#stx-pair? _%hd137109137161%_)) + (let ((_%e137112137168%_ (let () (declare (not safe)) - (gx#stx-e _%hd137003137055%_)))) - (let ((_%lp-hd137007137065%_ + (gx#stx-e _%hd137109137161%_)))) + (let ((_%lp-hd137113137171%_ (let () (declare (not safe)) - (##car _%e137006137062%_))) - (_%lp-tl137008137067%_ + (##car _%e137112137168%_))) + (_%lp-tl137114137173%_ (let () (declare (not safe)) - (##cdr _%e137006137062%_)))) + (##cdr _%e137112137168%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd137007137065%_)) - (let ((_%e137016137070%_ + (gx#stx-pair? _%lp-hd137113137171%_)) + (let ((_%e137122137176%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd137007137065%_)))) - (let ((_%hd137017137073%_ + (gx#stx-e _%lp-hd137113137171%_)))) + (let ((_%hd137123137179%_ (let () (declare (not safe)) - (##car _%e137016137070%_))) - (_%tl137018137075%_ + (##car _%e137122137176%_))) + (_%tl137124137181%_ (let () (declare (not safe)) - (##cdr _%e137016137070%_)))) + (##cdr _%e137122137176%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137018137075%_)) - (let ((_%e137019137078%_ + (gx#stx-pair? _%tl137124137181%_)) + (let ((_%e137125137184%_ (let () (declare (not safe)) (gx#stx-e - _%tl137018137075%_)))) - (let ((_%hd137020137081%_ + _%tl137124137181%_)))) + (let ((_%hd137126137187%_ (let () (declare (not safe)) - (##car _%e137019137078%_))) - (_%tl137021137083%_ + (##car _%e137125137184%_))) + (_%tl137127137189%_ (let () (declare (not safe)) - (##cdr _%e137019137078%_)))) + (##cdr _%e137125137184%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl137021137083%_)) - (_%loop137005137052%_ - _%lp-tl137008137067%_ - (cons _%hd137020137081%_ - _%expr137009137057%_) - (cons _%hd137017137073%_ - _%hd137010137059%_)) - (_%g136991137026%_ - _%g136992137029%_)))) - (_%g136991137026%_ - _%g136992137029%_)))) - (_%g136991137026%_ _%g136992137029%_)))) - (let ((_%expr137011137086%_ - (reverse _%expr137009137057%_)) - (_%hd137012137088%_ - (reverse _%hd137010137059%_))) + _%tl137127137189%_)) + (_%loop137111137158%_ + _%lp-tl137114137173%_ + (cons _%hd137126137187%_ + _%expr137115137163%_) + (cons _%hd137123137179%_ + _%hd137116137165%_)) + (_%g137097137132%_ + _%g137098137135%_)))) + (_%g137097137132%_ + _%g137098137135%_)))) + (_%g137097137132%_ _%g137098137135%_)))) + (let ((_%expr137117137192%_ + (reverse _%expr137115137163%_)) + (_%hd137118137194%_ + (reverse _%hd137116137165%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl137001137044%_)) - (let ((_%e137013137091%_ + (gx#stx-pair? _%tl137107137150%_)) + (let ((_%e137119137197%_ (let () (declare (not safe)) - (gx#stx-e _%tl137001137044%_)))) - (let ((_%hd137014137094%_ + (gx#stx-e _%tl137107137150%_)))) + (let ((_%hd137120137200%_ (let () (declare (not safe)) - (##car _%e137013137091%_))) - (_%tl137015137096%_ + (##car _%e137119137197%_))) + (_%tl137121137202%_ (let () (declare (not safe)) - (##cdr _%e137013137091%_)))) + (##cdr _%e137119137197%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl137015137096%_)) - ((lambda (_%L137099%_ - _%L137100%_ - _%L137101%_) + (gx#stx-null? _%tl137121137202%_)) + ((lambda (_%L137205%_ + _%L137206%_ + _%L137207%_) (for-each - (lambda (_%g137120137122%_) + (lambda (_%g137226137228%_) (gxc#compile-e__1 - _%self136988%_ - _%g137120137122%_)) - (let ((__tmp137975 - (lambda (_%g137124137127%_ - _%g137125137129%_) - (cons _%g137124137127%_ - _%g137125137129%_))) - (__tmp137974 - (cons _%L137099%_ '()))) + _%self137094%_ + _%g137226137228%_)) + (let ((__tmp138081 + (lambda (_%g137230137233%_ + _%g137231137235%_) + (cons _%g137230137233%_ + _%g137231137235%_))) + (__tmp138080 + (cons _%L137205%_ '()))) (declare (not safe)) (__foldr1 - __tmp137975 - __tmp137974 - _%L137100%_)))) - _%hd137014137094%_ - _%expr137011137086%_ - _%hd137012137088%_) - (_%g136991137026%_ _%g136992137029%_)))) - (_%g136991137026%_ _%g136992137029%_))))))) + __tmp138081 + __tmp138080 + _%L137206%_)))) + _%hd137120137200%_ + _%expr137117137192%_ + _%hd137118137194%_) + (_%g137097137132%_ _%g137098137135%_)))) + (_%g137097137132%_ _%g137098137135%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop137005137052%_ - _%target137002137047%_ + (_%loop137111137158%_ + _%target137108137153%_ '() '())) - (_%g136991137026%_ - _%g136992137029%_))))) - (_%g136991137026%_ _%g136992137029%_)))) - (_%g136991137026%_ _%g136992137029%_)))) - (_%g136991137026%_ _%g136992137029%_))))) - (_%g136990137132%_ _%stx136989%_)))) + (_%g137097137132%_ + _%g137098137135%_))))) + (_%g137097137132%_ _%g137098137135%_)))) + (_%g137097137132%_ _%g137098137135%_)))) + (_%g137097137132%_ _%g137098137135%_))))) + (_%g137096137238%_ _%stx137095%_)))) (define gxc#apply-body-last-let-values% - (lambda (_%self136933%_ _%stx136934%_) - (let* ((_%g136936136950%_ - (lambda (_%g136937136947%_) + (lambda (_%self137039%_ _%stx137040%_) + (let* ((_%g137042137056%_ + (lambda (_%g137043137053%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136937136947%_)))) - (_%g136935136985%_ - (lambda (_%g136937136953%_) + _%g137043137053%_)))) + (_%g137041137091%_ + (lambda (_%g137043137059%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136937136953%_)) - (let ((_%e136940136955%_ + (gx#stx-pair? _%g137043137059%_)) + (let ((_%e137046137061%_ (let () (declare (not safe)) - (gx#stx-e _%g136937136953%_)))) - (let ((_%hd136941136958%_ + (gx#stx-e _%g137043137059%_)))) + (let ((_%hd137047137064%_ (let () (declare (not safe)) - (##car _%e136940136955%_))) - (_%tl136942136960%_ + (##car _%e137046137061%_))) + (_%tl137048137066%_ (let () (declare (not safe)) - (##cdr _%e136940136955%_)))) + (##cdr _%e137046137061%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136942136960%_)) - (let ((_%e136943136963%_ + (gx#stx-pair? _%tl137048137066%_)) + (let ((_%e137049137069%_ (let () (declare (not safe)) - (gx#stx-e _%tl136942136960%_)))) - (let ((_%hd136944136966%_ + (gx#stx-e _%tl137048137066%_)))) + (let ((_%hd137050137072%_ (let () (declare (not safe)) - (##car _%e136943136963%_))) - (_%tl136945136968%_ + (##car _%e137049137069%_))) + (_%tl137051137074%_ (let () (declare (not safe)) - (##cdr _%e136943136963%_)))) - ((lambda (_%L136971%_ _%L136972%_) + (##cdr _%e137049137069%_)))) + ((lambda (_%L137077%_ _%L137078%_) (gxc#compile-e__1 - _%self136933%_ - (last _%L136971%_))) - _%tl136945136968%_ - _%hd136944136966%_))) - (_%g136936136950%_ _%g136937136953%_)))) - (_%g136936136950%_ _%g136937136953%_))))) - (_%g136935136985%_ _%stx136934%_)))) + _%self137039%_ + (last _%L137077%_))) + _%tl137051137074%_ + _%hd137050137072%_))) + (_%g137042137056%_ _%g137043137059%_)))) + (_%g137042137056%_ _%g137043137059%_))))) + (_%g137041137091%_ _%stx137040%_)))) (define gxc#apply-body-setq% - (lambda (_%self136865%_ _%stx136866%_) - (let* ((_%g136868136885%_ - (lambda (_%g136869136882%_) + (lambda (_%self136971%_ _%stx136972%_) + (let* ((_%g136974136991%_ + (lambda (_%g136975136988%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136869136882%_)))) - (_%g136867136930%_ - (lambda (_%g136869136888%_) + _%g136975136988%_)))) + (_%g136973137036%_ + (lambda (_%g136975136994%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136869136888%_)) - (let ((_%e136872136890%_ + (gx#stx-pair? _%g136975136994%_)) + (let ((_%e136978136996%_ (let () (declare (not safe)) - (gx#stx-e _%g136869136888%_)))) - (let ((_%hd136873136893%_ + (gx#stx-e _%g136975136994%_)))) + (let ((_%hd136979136999%_ (let () (declare (not safe)) - (##car _%e136872136890%_))) - (_%tl136874136895%_ + (##car _%e136978136996%_))) + (_%tl136980137001%_ (let () (declare (not safe)) - (##cdr _%e136872136890%_)))) + (##cdr _%e136978136996%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136874136895%_)) - (let ((_%e136875136898%_ + (gx#stx-pair? _%tl136980137001%_)) + (let ((_%e136981137004%_ (let () (declare (not safe)) - (gx#stx-e _%tl136874136895%_)))) - (let ((_%hd136876136901%_ + (gx#stx-e _%tl136980137001%_)))) + (let ((_%hd136982137007%_ (let () (declare (not safe)) - (##car _%e136875136898%_))) - (_%tl136877136903%_ + (##car _%e136981137004%_))) + (_%tl136983137009%_ (let () (declare (not safe)) - (##cdr _%e136875136898%_)))) + (##cdr _%e136981137004%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136877136903%_)) - (let ((_%e136878136906%_ + (gx#stx-pair? _%tl136983137009%_)) + (let ((_%e136984137012%_ (let () (declare (not safe)) - (gx#stx-e _%tl136877136903%_)))) - (let ((_%hd136879136909%_ + (gx#stx-e _%tl136983137009%_)))) + (let ((_%hd136985137015%_ (let () (declare (not safe)) - (##car _%e136878136906%_))) - (_%tl136880136911%_ + (##car _%e136984137012%_))) + (_%tl136986137017%_ (let () (declare (not safe)) - (##cdr _%e136878136906%_)))) + (##cdr _%e136984137012%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136880136911%_)) - ((lambda (_%L136914%_ - _%L136915%_) + _%tl136986137017%_)) + ((lambda (_%L137020%_ + _%L137021%_) (gxc#compile-e__1 - _%self136865%_ - _%L136914%_)) - _%hd136879136909%_ - _%hd136876136901%_) - (_%g136868136885%_ - _%g136869136888%_)))) - (_%g136868136885%_ _%g136869136888%_)))) - (_%g136868136885%_ _%g136869136888%_)))) - (_%g136868136885%_ _%g136869136888%_))))) - (_%g136867136930%_ _%stx136866%_)))) + _%self136971%_ + _%L137020%_)) + _%hd136985137015%_ + _%hd136982137007%_) + (_%g136974136991%_ + _%g136975136994%_)))) + (_%g136974136991%_ _%g136975136994%_)))) + (_%g136974136991%_ _%g136975136994%_)))) + (_%g136974136991%_ _%g136975136994%_))))) + (_%g136973137036%_ _%stx136972%_)))) (define gxc#apply-operands - (lambda (_%self136778%_ _%stx136779%_) - (let* ((_%g136781136800%_ - (lambda (_%g136782136797%_) + (lambda (_%self136884%_ _%stx136885%_) + (let* ((_%g136887136906%_ + (lambda (_%g136888136903%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136782136797%_)))) - (_%g136780136862%_ - (lambda (_%g136782136803%_) + _%g136888136903%_)))) + (_%g136886136968%_ + (lambda (_%g136888136909%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136782136803%_)) - (let ((_%e136784136805%_ + (gx#stx-pair? _%g136888136909%_)) + (let ((_%e136890136911%_ (let () (declare (not safe)) - (gx#stx-e _%g136782136803%_)))) - (let ((_%hd136785136808%_ + (gx#stx-e _%g136888136909%_)))) + (let ((_%hd136891136914%_ (let () (declare (not safe)) - (##car _%e136784136805%_))) - (_%tl136786136810%_ + (##car _%e136890136911%_))) + (_%tl136892136916%_ (let () (declare (not safe)) - (##cdr _%e136784136805%_)))) + (##cdr _%e136890136911%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl136786136810%_)) - (let ((_g137976_ + (gx#stx-pair/null? _%tl136892136916%_)) + (let ((_g138082_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl136786136810%_ + _%tl136892136916%_ '0)))) (begin - (let ((_g137977_ + (let ((_g138083_ (let () (declare (not safe)) - (if (##values? _g137976_) - (##vector-length _g137976_) + (if (##values? _g138082_) + (##values-length _g138082_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137977_ 2))) + (##fx= _g138083_ 2))) (error "Context expects 2 values" - _g137977_))) - (let ((_%target136787136813%_ + _g138083_))) + (let ((_%target136893136919%_ (let () (declare (not safe)) - (##vector-ref _g137976_ 0))) - (_%tl136789136815%_ + (##values-ref _g138082_ 0))) + (_%tl136895136921%_ (let () (declare (not safe)) - (##vector-ref _g137976_ 1)))) + (##values-ref _g138082_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl136789136815%_)) - (letrec ((_%loop136790136818%_ - (lambda (_%hd136788136821%_ - _%rands136794136823%_) + (gx#stx-null? _%tl136895136921%_)) + (letrec ((_%loop136896136924%_ + (lambda (_%hd136894136927%_ + _%rands136900136929%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd136788136821%_)) - (let ((_%e136791136826%_ + _%hd136894136927%_)) + (let ((_%e136897136932%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd136788136821%_)))) - (let ((_%lp-hd136792136829%_ + (gx#stx-e _%hd136894136927%_)))) + (let ((_%lp-hd136898136935%_ (let () (declare (not safe)) - (##car _%e136791136826%_))) - (_%lp-tl136793136831%_ + (##car _%e136897136932%_))) + (_%lp-tl136899136937%_ (let () (declare (not safe)) - (##cdr _%e136791136826%_)))) - (_%loop136790136818%_ - _%lp-tl136793136831%_ - (cons _%lp-hd136792136829%_ _%rands136794136823%_)))) - (let ((_%rands136795136834%_ (reverse _%rands136794136823%_))) - ((lambda (_%L136837%_) + (##cdr _%e136897136932%_)))) + (_%loop136896136924%_ + _%lp-tl136899136937%_ + (cons _%lp-hd136898136935%_ _%rands136900136929%_)))) + (let ((_%rands136901136940%_ (reverse _%rands136900136929%_))) + ((lambda (_%L136943%_) (for-each - (lambda (_%g136850136852%_) - (gxc#compile-e__1 _%self136778%_ _%g136850136852%_)) - (let ((__tmp137978 - (lambda (_%g136854136857%_ _%g136855136859%_) - (cons _%g136854136857%_ _%g136855136859%_)))) + (lambda (_%g136956136958%_) + (gxc#compile-e__1 _%self136884%_ _%g136956136958%_)) + (let ((__tmp138084 + (lambda (_%g136960136963%_ _%g136961136965%_) + (cons _%g136960136963%_ _%g136961136965%_)))) (declare (not safe)) - (__foldr1 __tmp137978 '() _%L136837%_)))) - _%rands136795136834%_)))))) + (__foldr1 __tmp138084 '() _%L136943%_)))) + _%rands136901136940%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136790136818%_ - _%target136787136813%_ + (_%loop136896136924%_ + _%target136893136919%_ '())) - (_%g136781136800%_ - _%g136782136803%_))))) - (_%g136781136800%_ _%g136782136803%_)))) - (_%g136781136800%_ _%g136782136803%_))))) - (_%g136780136862%_ _%stx136779%_)))) + (_%g136887136906%_ + _%g136888136909%_))))) + (_%g136887136906%_ _%g136888136909%_)))) + (_%g136887136906%_ _%g136888136909%_))))) + (_%g136886136968%_ _%stx136885%_)))) (define gxc#xform-wrap-source - (lambda (_%stx136775%_ _%src-stx136776%_) - (let ((__tmp137979 + (lambda (_%stx136881%_ _%src-stx136882%_) + (let ((__tmp138085 (let () (declare (not safe)) - (gx#stx-source _%src-stx136776%_)))) + (gx#stx-source _%src-stx136882%_)))) (declare (not safe)) - (gx#stx-wrap-source _%stx136775%_ __tmp137979)))) + (gx#stx-wrap-source _%stx136881%_ __tmp138085)))) (define gxc#xform-wrap-apply - (lambda (_%stx136771%_ _%src-stx136772%_ _%ctx136773%_) + (lambda (_%stx136877%_ _%src-stx136878%_ _%ctx136879%_) (gxc#compile-e__1 - _%ctx136773%_ - (gxc#xform-wrap-source _%stx136771%_ _%src-stx136772%_)))) + _%ctx136879%_ + (gxc#xform-wrap-source _%stx136877%_ _%src-stx136878%_)))) (define gxc#xform-begin% - (lambda (_%self136726%_ _%stx136727%_) - (let* ((_%g136729136739%_ - (lambda (_%g136730136736%_) + (lambda (_%self136832%_ _%stx136833%_) + (let* ((_%g136835136845%_ + (lambda (_%g136836136842%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136730136736%_)))) - (_%g136728136768%_ - (lambda (_%g136730136742%_) + _%g136836136842%_)))) + (_%g136834136874%_ + (lambda (_%g136836136848%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136730136742%_)) - (let ((_%e136732136744%_ + (gx#stx-pair? _%g136836136848%_)) + (let ((_%e136838136850%_ (let () (declare (not safe)) - (gx#stx-e _%g136730136742%_)))) - (let ((_%hd136733136747%_ + (gx#stx-e _%g136836136848%_)))) + (let ((_%hd136839136853%_ (let () (declare (not safe)) - (##car _%e136732136744%_))) - (_%tl136734136749%_ + (##car _%e136838136850%_))) + (_%tl136840136855%_ (let () (declare (not safe)) - (##cdr _%e136732136744%_)))) - ((lambda (_%L136752%_) - (let ((_%forms136766%_ - (map (lambda (_%g136761136763%_) + (##cdr _%e136838136850%_)))) + ((lambda (_%L136858%_) + (let ((_%forms136872%_ + (map (lambda (_%g136867136869%_) (gxc#compile-e__1 - _%self136726%_ - _%g136761136763%_)) - _%L136752%_))) + _%self136832%_ + _%g136867136869%_)) + _%L136858%_))) (gxc#xform-wrap-source - (cons '%#begin _%forms136766%_) - _%stx136727%_))) - _%tl136734136749%_))) - (_%g136729136739%_ _%g136730136742%_))))) - (_%g136728136768%_ _%stx136727%_)))) + (cons '%#begin _%forms136872%_) + _%stx136833%_))) + _%tl136840136855%_))) + (_%g136835136845%_ _%g136836136848%_))))) + (_%g136834136874%_ _%stx136833%_)))) (define gxc#xform-begin-syntax% - (lambda (_%self136680%_ _%stx136681%_) - (let* ((_%g136683136693%_ - (lambda (_%g136684136690%_) + (lambda (_%self136786%_ _%stx136787%_) + (let* ((_%g136789136799%_ + (lambda (_%g136790136796%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136684136690%_)))) - (_%g136682136723%_ - (lambda (_%g136684136696%_) + _%g136790136796%_)))) + (_%g136788136829%_ + (lambda (_%g136790136802%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136684136696%_)) - (let ((_%e136686136698%_ + (gx#stx-pair? _%g136790136802%_)) + (let ((_%e136792136804%_ (let () (declare (not safe)) - (gx#stx-e _%g136684136696%_)))) - (let ((_%hd136687136701%_ + (gx#stx-e _%g136790136802%_)))) + (let ((_%hd136793136807%_ (let () (declare (not safe)) - (##car _%e136686136698%_))) - (_%tl136688136703%_ + (##car _%e136792136804%_))) + (_%tl136794136809%_ (let () (declare (not safe)) - (##cdr _%e136686136698%_)))) - ((lambda (_%L136706%_) - (let ((__tmp137982 + (##cdr _%e136792136804%_)))) + ((lambda (_%L136812%_) + (let ((__tmp138088 (lambda () - (let ((_%forms136721%_ - (map (lambda (_%g136716136718%_) + (let ((_%forms136827%_ + (map (lambda (_%g136822136824%_) (gxc#compile-e__1 - _%self136680%_ - _%g136716136718%_)) - _%L136706%_))) + _%self136786%_ + _%g136822136824%_)) + _%L136812%_))) (gxc#xform-wrap-source - (cons '%#begin-syntax _%forms136721%_) - _%stx136681%_)))) - (__tmp137980 - (let ((__tmp137981 + (cons '%#begin-syntax _%forms136827%_) + _%stx136787%_)))) + (__tmp138086 + (let ((__tmp138087 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137981 '1)))) + (##fx+ __tmp138087 '1)))) (declare (not safe)) (__call-with-parameters - __tmp137982 + __tmp138088 gx#current-expander-phi - __tmp137980))) - _%tl136688136703%_))) - (_%g136683136693%_ _%g136684136696%_))))) - (_%g136682136723%_ _%stx136681%_)))) + __tmp138086))) + _%tl136794136809%_))) + (_%g136789136799%_ _%g136790136802%_))))) + (_%g136788136829%_ _%stx136787%_)))) (define gxc#xform-module% - (lambda (_%self136617%_ _%stx136618%_) - (let* ((_%g136620136634%_ - (lambda (_%g136621136631%_) + (lambda (_%self136723%_ _%stx136724%_) + (let* ((_%g136726136740%_ + (lambda (_%g136727136737%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136621136631%_)))) - (_%g136619136677%_ - (lambda (_%g136621136637%_) + _%g136727136737%_)))) + (_%g136725136783%_ + (lambda (_%g136727136743%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136621136637%_)) - (let ((_%e136624136639%_ + (gx#stx-pair? _%g136727136743%_)) + (let ((_%e136730136745%_ (let () (declare (not safe)) - (gx#stx-e _%g136621136637%_)))) - (let ((_%hd136625136642%_ + (gx#stx-e _%g136727136743%_)))) + (let ((_%hd136731136748%_ (let () (declare (not safe)) - (##car _%e136624136639%_))) - (_%tl136626136644%_ + (##car _%e136730136745%_))) + (_%tl136732136750%_ (let () (declare (not safe)) - (##cdr _%e136624136639%_)))) + (##cdr _%e136730136745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136626136644%_)) - (let ((_%e136627136647%_ + (gx#stx-pair? _%tl136732136750%_)) + (let ((_%e136733136753%_ (let () (declare (not safe)) - (gx#stx-e _%tl136626136644%_)))) - (let ((_%hd136628136650%_ + (gx#stx-e _%tl136732136750%_)))) + (let ((_%hd136734136756%_ (let () (declare (not safe)) - (##car _%e136627136647%_))) - (_%tl136629136652%_ + (##car _%e136733136753%_))) + (_%tl136735136758%_ (let () (declare (not safe)) - (##cdr _%e136627136647%_)))) - ((lambda (_%L136655%_ _%L136656%_) - (let* ((_%ctx136669%_ + (##cdr _%e136733136753%_)))) + ((lambda (_%L136761%_ _%L136762%_) + (let* ((_%ctx136775%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L136656%_))) - (_%code136671%_ + _%L136762%_))) + (_%code136777%_ (##structure-ref - _%ctx136669%_ + _%ctx136775%_ '11 gx#module-context::t '#f)) - (_%code136674%_ - (let ((__tmp137983 + (_%code136780%_ + (let ((__tmp138089 (lambda () (gxc#compile-e__1 - _%self136617%_ - _%code136671%_)))) + _%self136723%_ + _%code136777%_)))) (declare (not safe)) (__call-with-parameters - __tmp137983 + __tmp138089 gx#current-expander-context - _%ctx136669%_)))) + _%ctx136775%_)))) (##structure-set! - _%ctx136669%_ - _%code136674%_ + _%ctx136775%_ + _%code136780%_ '11 gx#module-context::t '#f) (gxc#xform-wrap-source (cons '%#module - (cons _%L136656%_ - (cons _%code136674%_ '()))) - _%stx136618%_))) - _%tl136629136652%_ - _%hd136628136650%_))) - (_%g136620136634%_ _%g136621136637%_)))) - (_%g136620136634%_ _%g136621136637%_))))) - (_%g136619136677%_ _%stx136618%_)))) + (cons _%L136762%_ + (cons _%code136780%_ '()))) + _%stx136724%_))) + _%tl136735136758%_ + _%hd136734136756%_))) + (_%g136726136740%_ _%g136727136743%_)))) + (_%g136726136740%_ _%g136727136743%_))))) + (_%g136725136783%_ _%stx136724%_)))) (define gxc#xform-define-values% - (lambda (_%self136547%_ _%stx136548%_) - (let* ((_%g136550136567%_ - (lambda (_%g136551136564%_) + (lambda (_%self136653%_ _%stx136654%_) + (let* ((_%g136656136673%_ + (lambda (_%g136657136670%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136551136564%_)))) - (_%g136549136614%_ - (lambda (_%g136551136570%_) + _%g136657136670%_)))) + (_%g136655136720%_ + (lambda (_%g136657136676%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136551136570%_)) - (let ((_%e136554136572%_ + (gx#stx-pair? _%g136657136676%_)) + (let ((_%e136660136678%_ (let () (declare (not safe)) - (gx#stx-e _%g136551136570%_)))) - (let ((_%hd136555136575%_ + (gx#stx-e _%g136657136676%_)))) + (let ((_%hd136661136681%_ (let () (declare (not safe)) - (##car _%e136554136572%_))) - (_%tl136556136577%_ + (##car _%e136660136678%_))) + (_%tl136662136683%_ (let () (declare (not safe)) - (##cdr _%e136554136572%_)))) + (##cdr _%e136660136678%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136556136577%_)) - (let ((_%e136557136580%_ + (gx#stx-pair? _%tl136662136683%_)) + (let ((_%e136663136686%_ (let () (declare (not safe)) - (gx#stx-e _%tl136556136577%_)))) - (let ((_%hd136558136583%_ + (gx#stx-e _%tl136662136683%_)))) + (let ((_%hd136664136689%_ (let () (declare (not safe)) - (##car _%e136557136580%_))) - (_%tl136559136585%_ + (##car _%e136663136686%_))) + (_%tl136665136691%_ (let () (declare (not safe)) - (##cdr _%e136557136580%_)))) + (##cdr _%e136663136686%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136559136585%_)) - (let ((_%e136560136588%_ + (gx#stx-pair? _%tl136665136691%_)) + (let ((_%e136666136694%_ (let () (declare (not safe)) - (gx#stx-e _%tl136559136585%_)))) - (let ((_%hd136561136591%_ + (gx#stx-e _%tl136665136691%_)))) + (let ((_%hd136667136697%_ (let () (declare (not safe)) - (##car _%e136560136588%_))) - (_%tl136562136593%_ + (##car _%e136666136694%_))) + (_%tl136668136699%_ (let () (declare (not safe)) - (##cdr _%e136560136588%_)))) + (##cdr _%e136666136694%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136562136593%_)) - ((lambda (_%L136596%_ - _%L136597%_) - (let ((_%expr136612%_ + _%tl136668136699%_)) + ((lambda (_%L136702%_ + _%L136703%_) + (let ((_%expr136718%_ (gxc#compile-e__1 - _%self136547%_ - _%L136596%_))) + _%self136653%_ + _%L136702%_))) (gxc#xform-wrap-source (cons '%#define-values - (cons _%L136597%_ - (cons _%expr136612%_ + (cons _%L136703%_ + (cons _%expr136718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136548%_))) - _%hd136561136591%_ - _%hd136558136583%_) - (_%g136550136567%_ - _%g136551136570%_)))) - (_%g136550136567%_ _%g136551136570%_)))) - (_%g136550136567%_ _%g136551136570%_)))) - (_%g136550136567%_ _%g136551136570%_))))) - (_%g136549136614%_ _%stx136548%_)))) + _%stx136654%_))) + _%hd136667136697%_ + _%hd136664136689%_) + (_%g136656136673%_ + _%g136657136676%_)))) + (_%g136656136673%_ _%g136657136676%_)))) + (_%g136656136673%_ _%g136657136676%_)))) + (_%g136656136673%_ _%g136657136676%_))))) + (_%g136655136720%_ _%stx136654%_)))) (define gxc#xform-define-syntax% - (lambda (_%self136476%_ _%stx136477%_) - (let* ((_%g136479136496%_ - (lambda (_%g136480136493%_) + (lambda (_%self136582%_ _%stx136583%_) + (let* ((_%g136585136602%_ + (lambda (_%g136586136599%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136480136493%_)))) - (_%g136478136544%_ - (lambda (_%g136480136499%_) + _%g136586136599%_)))) + (_%g136584136650%_ + (lambda (_%g136586136605%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136480136499%_)) - (let ((_%e136483136501%_ + (gx#stx-pair? _%g136586136605%_)) + (let ((_%e136589136607%_ (let () (declare (not safe)) - (gx#stx-e _%g136480136499%_)))) - (let ((_%hd136484136504%_ + (gx#stx-e _%g136586136605%_)))) + (let ((_%hd136590136610%_ (let () (declare (not safe)) - (##car _%e136483136501%_))) - (_%tl136485136506%_ + (##car _%e136589136607%_))) + (_%tl136591136612%_ (let () (declare (not safe)) - (##cdr _%e136483136501%_)))) + (##cdr _%e136589136607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136485136506%_)) - (let ((_%e136486136509%_ + (gx#stx-pair? _%tl136591136612%_)) + (let ((_%e136592136615%_ (let () (declare (not safe)) - (gx#stx-e _%tl136485136506%_)))) - (let ((_%hd136487136512%_ + (gx#stx-e _%tl136591136612%_)))) + (let ((_%hd136593136618%_ (let () (declare (not safe)) - (##car _%e136486136509%_))) - (_%tl136488136514%_ + (##car _%e136592136615%_))) + (_%tl136594136620%_ (let () (declare (not safe)) - (##cdr _%e136486136509%_)))) + (##cdr _%e136592136615%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136488136514%_)) - (let ((_%e136489136517%_ + (gx#stx-pair? _%tl136594136620%_)) + (let ((_%e136595136623%_ (let () (declare (not safe)) - (gx#stx-e _%tl136488136514%_)))) - (let ((_%hd136490136520%_ + (gx#stx-e _%tl136594136620%_)))) + (let ((_%hd136596136626%_ (let () (declare (not safe)) - (##car _%e136489136517%_))) - (_%tl136491136522%_ + (##car _%e136595136623%_))) + (_%tl136597136628%_ (let () (declare (not safe)) - (##cdr _%e136489136517%_)))) + (##cdr _%e136595136623%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136491136522%_)) - ((lambda (_%L136525%_ - _%L136526%_) - (let ((__tmp137986 + _%tl136597136628%_)) + ((lambda (_%L136631%_ + _%L136632%_) + (let ((__tmp138092 (lambda () - (let ((_%expr136542%_ + (let ((_%expr136648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gxc#compile-e__1 _%self136476%_ _%L136525%_))) + (gxc#compile-e__1 _%self136582%_ _%L136631%_))) (gxc#xform-wrap-source (cons '%#define-syntax - (cons _%L136526%_ (cons _%expr136542%_ '()))) - _%stx136477%_)))) - (__tmp137984 - (let ((__tmp137985 + (cons _%L136632%_ (cons _%expr136648%_ '()))) + _%stx136583%_)))) + (__tmp138090 + (let ((__tmp138091 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp137985 '1)))) + (##fx+ __tmp138091 '1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp137986 + __tmp138092 gx#current-expander-phi - __tmp137984))) - _%hd136490136520%_ - _%hd136487136512%_) - (_%g136479136496%_ - _%g136480136499%_)))) - (_%g136479136496%_ _%g136480136499%_)))) - (_%g136479136496%_ _%g136480136499%_)))) - (_%g136479136496%_ _%g136480136499%_))))) - (_%g136478136544%_ _%stx136477%_)))) + __tmp138090))) + _%hd136596136626%_ + _%hd136593136618%_) + (_%g136585136602%_ + _%g136586136605%_)))) + (_%g136585136602%_ _%g136586136605%_)))) + (_%g136585136602%_ _%g136586136605%_)))) + (_%g136585136602%_ _%g136586136605%_))))) + (_%g136584136650%_ _%stx136583%_)))) (define gxc#xform-begin-annotation% - (lambda (_%self136406%_ _%stx136407%_) - (let* ((_%g136409136426%_ - (lambda (_%g136410136423%_) + (lambda (_%self136512%_ _%stx136513%_) + (let* ((_%g136515136532%_ + (lambda (_%g136516136529%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136410136423%_)))) - (_%g136408136473%_ - (lambda (_%g136410136429%_) + _%g136516136529%_)))) + (_%g136514136579%_ + (lambda (_%g136516136535%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136410136429%_)) - (let ((_%e136413136431%_ + (gx#stx-pair? _%g136516136535%_)) + (let ((_%e136519136537%_ (let () (declare (not safe)) - (gx#stx-e _%g136410136429%_)))) - (let ((_%hd136414136434%_ + (gx#stx-e _%g136516136535%_)))) + (let ((_%hd136520136540%_ (let () (declare (not safe)) - (##car _%e136413136431%_))) - (_%tl136415136436%_ + (##car _%e136519136537%_))) + (_%tl136521136542%_ (let () (declare (not safe)) - (##cdr _%e136413136431%_)))) + (##cdr _%e136519136537%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136415136436%_)) - (let ((_%e136416136439%_ + (gx#stx-pair? _%tl136521136542%_)) + (let ((_%e136522136545%_ (let () (declare (not safe)) - (gx#stx-e _%tl136415136436%_)))) - (let ((_%hd136417136442%_ + (gx#stx-e _%tl136521136542%_)))) + (let ((_%hd136523136548%_ (let () (declare (not safe)) - (##car _%e136416136439%_))) - (_%tl136418136444%_ + (##car _%e136522136545%_))) + (_%tl136524136550%_ (let () (declare (not safe)) - (##cdr _%e136416136439%_)))) + (##cdr _%e136522136545%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136418136444%_)) - (let ((_%e136419136447%_ + (gx#stx-pair? _%tl136524136550%_)) + (let ((_%e136525136553%_ (let () (declare (not safe)) - (gx#stx-e _%tl136418136444%_)))) - (let ((_%hd136420136450%_ + (gx#stx-e _%tl136524136550%_)))) + (let ((_%hd136526136556%_ (let () (declare (not safe)) - (##car _%e136419136447%_))) - (_%tl136421136452%_ + (##car _%e136525136553%_))) + (_%tl136527136558%_ (let () (declare (not safe)) - (##cdr _%e136419136447%_)))) + (##cdr _%e136525136553%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136421136452%_)) - ((lambda (_%L136455%_ - _%L136456%_) - (let ((_%expr136471%_ + _%tl136527136558%_)) + ((lambda (_%L136561%_ + _%L136562%_) + (let ((_%expr136577%_ (gxc#compile-e__1 - _%self136406%_ - _%L136455%_))) + _%self136512%_ + _%L136561%_))) (gxc#xform-wrap-source (cons '%#begin-annotation - (cons _%L136456%_ - (cons _%expr136471%_ + (cons _%L136562%_ + (cons _%expr136577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx136407%_))) - _%hd136420136450%_ - _%hd136417136442%_) - (_%g136409136426%_ - _%g136410136429%_)))) - (_%g136409136426%_ _%g136410136429%_)))) - (_%g136409136426%_ _%g136410136429%_)))) - (_%g136409136426%_ _%g136410136429%_))))) - (_%g136408136473%_ _%stx136407%_)))) + _%stx136513%_))) + _%hd136526136556%_ + _%hd136523136548%_) + (_%g136515136532%_ + _%g136516136535%_)))) + (_%g136515136532%_ _%g136516136535%_)))) + (_%g136515136532%_ _%g136516136535%_)))) + (_%g136515136532%_ _%g136516136535%_))))) + (_%g136514136579%_ _%stx136513%_)))) (define gxc#xform-lambda% - (lambda (_%self136344%_ _%stx136345%_) - (let* ((_%g136347136361%_ - (lambda (_%g136348136358%_) + (lambda (_%self136450%_ _%stx136451%_) + (let* ((_%g136453136467%_ + (lambda (_%g136454136464%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136348136358%_)))) - (_%g136346136403%_ - (lambda (_%g136348136364%_) + _%g136454136464%_)))) + (_%g136452136509%_ + (lambda (_%g136454136470%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136348136364%_)) - (let ((_%e136351136366%_ + (gx#stx-pair? _%g136454136470%_)) + (let ((_%e136457136472%_ (let () (declare (not safe)) - (gx#stx-e _%g136348136364%_)))) - (let ((_%hd136352136369%_ + (gx#stx-e _%g136454136470%_)))) + (let ((_%hd136458136475%_ (let () (declare (not safe)) - (##car _%e136351136366%_))) - (_%tl136353136371%_ + (##car _%e136457136472%_))) + (_%tl136459136477%_ (let () (declare (not safe)) - (##cdr _%e136351136366%_)))) + (##cdr _%e136457136472%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136353136371%_)) - (let ((_%e136354136374%_ + (gx#stx-pair? _%tl136459136477%_)) + (let ((_%e136460136480%_ (let () (declare (not safe)) - (gx#stx-e _%tl136353136371%_)))) - (let ((_%hd136355136377%_ + (gx#stx-e _%tl136459136477%_)))) + (let ((_%hd136461136483%_ (let () (declare (not safe)) - (##car _%e136354136374%_))) - (_%tl136356136379%_ + (##car _%e136460136480%_))) + (_%tl136462136485%_ (let () (declare (not safe)) - (##cdr _%e136354136374%_)))) - ((lambda (_%L136382%_ _%L136383%_) - (let ((__tmp137988 + (##cdr _%e136460136480%_)))) + ((lambda (_%L136488%_ _%L136489%_) + (let ((__tmp138094 (lambda () - (let ((_%body136401%_ - (map (lambda (_%g136396136398%_) + (let ((_%body136507%_ + (map (lambda (_%g136502136504%_) (gxc#compile-e__1 - _%self136344%_ - _%g136396136398%_)) - _%L136382%_))) + _%self136450%_ + _%g136502136504%_)) + _%L136488%_))) (gxc#xform-wrap-source (cons '%#lambda - (cons _%L136383%_ - _%body136401%_)) - _%stx136345%_)))) - (__tmp137987 + (cons _%L136489%_ + _%body136507%_)) + _%stx136451%_)))) + (__tmp138093 (gxc#xform-let-locals - _%L136383%_))) + _%L136489%_))) (declare (not safe)) (__call-with-parameters - __tmp137988 + __tmp138094 gxc#current-compile-local-env - __tmp137987))) - _%tl136356136379%_ - _%hd136355136377%_))) - (_%g136347136361%_ _%g136348136364%_)))) - (_%g136347136361%_ _%g136348136364%_))))) - (_%g136346136403%_ _%stx136345%_)))) + __tmp138093))) + _%tl136462136485%_ + _%hd136461136483%_))) + (_%g136453136467%_ _%g136454136470%_)))) + (_%g136453136467%_ _%g136454136470%_))))) + (_%g136452136509%_ _%stx136451%_)))) (define gxc#xform-case-lambda% - (lambda (_%self136252%_ _%stx136253%_) - (letrec ((_%clause-e136255%_ - (lambda (_%clause136296%_) - (let* ((_%g136298136309%_ - (lambda (_%g136299136306%_) + (lambda (_%self136358%_ _%stx136359%_) + (letrec ((_%clause-e136361%_ + (lambda (_%clause136402%_) + (let* ((_%g136404136415%_ + (lambda (_%g136405136412%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136299136306%_)))) - (_%g136297136341%_ - (lambda (_%g136299136312%_) + _%g136405136412%_)))) + (_%g136403136447%_ + (lambda (_%g136405136418%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136299136312%_)) - (let ((_%e136302136314%_ + (gx#stx-pair? _%g136405136418%_)) + (let ((_%e136408136420%_ (let () (declare (not safe)) - (gx#stx-e _%g136299136312%_)))) - (let ((_%hd136303136317%_ + (gx#stx-e _%g136405136418%_)))) + (let ((_%hd136409136423%_ (let () (declare (not safe)) - (##car _%e136302136314%_))) - (_%tl136304136319%_ + (##car _%e136408136420%_))) + (_%tl136410136425%_ (let () (declare (not safe)) - (##cdr _%e136302136314%_)))) - ((lambda (_%L136322%_ _%L136323%_) - (let ((__tmp137990 + (##cdr _%e136408136420%_)))) + ((lambda (_%L136428%_ _%L136429%_) + (let ((__tmp138096 (lambda () - (let ((_%body136339%_ - (map (lambda (_%g136334136336%_) + (let ((_%body136445%_ + (map (lambda (_%g136440136442%_) (gxc#compile-e__1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%self136252%_ - _%g136334136336%_)) - _%L136322%_))) + _%self136358%_ + _%g136440136442%_)) + _%L136428%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L136323%_ - _%body136339%_)))) - (__tmp137989 + (cons _%L136429%_ + _%body136445%_)))) + (__tmp138095 (gxc#xform-let-locals - _%L136323%_))) + _%L136429%_))) (declare (not safe)) (__call-with-parameters - __tmp137990 + __tmp138096 gxc#current-compile-local-env - __tmp137989))) - _%tl136304136319%_ - _%hd136303136317%_))) - (_%g136298136309%_ _%g136299136312%_))))) - (_%g136297136341%_ _%clause136296%_))))) - (let* ((_%g136257136267%_ - (lambda (_%g136258136264%_) + __tmp138095))) + _%tl136410136425%_ + _%hd136409136423%_))) + (_%g136404136415%_ _%g136405136418%_))))) + (_%g136403136447%_ _%clause136402%_))))) + (let* ((_%g136363136373%_ + (lambda (_%g136364136370%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136258136264%_)))) - (_%g136256136293%_ - (lambda (_%g136258136270%_) + _%g136364136370%_)))) + (_%g136362136399%_ + (lambda (_%g136364136376%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136258136270%_)) - (let ((_%e136260136272%_ + (gx#stx-pair? _%g136364136376%_)) + (let ((_%e136366136378%_ (let () (declare (not safe)) - (gx#stx-e _%g136258136270%_)))) - (let ((_%hd136261136275%_ + (gx#stx-e _%g136364136376%_)))) + (let ((_%hd136367136381%_ (let () (declare (not safe)) - (##car _%e136260136272%_))) - (_%tl136262136277%_ + (##car _%e136366136378%_))) + (_%tl136368136383%_ (let () (declare (not safe)) - (##cdr _%e136260136272%_)))) - ((lambda (_%L136280%_) - (let ((_%clauses136291%_ - (map _%clause-e136255%_ _%L136280%_))) + (##cdr _%e136366136378%_)))) + ((lambda (_%L136386%_) + (let ((_%clauses136397%_ + (map _%clause-e136361%_ _%L136386%_))) (gxc#xform-wrap-source - (cons '%#case-lambda _%clauses136291%_) - _%stx136253%_))) - _%tl136262136277%_))) - (_%g136257136267%_ _%g136258136270%_))))) - (_%g136256136293%_ _%stx136253%_))))) + (cons '%#case-lambda _%clauses136397%_) + _%stx136359%_))) + _%tl136368136383%_))) + (_%g136363136373%_ _%g136364136376%_))))) + (_%g136362136399%_ _%stx136359%_))))) (define gxc#xform-let-values% - (lambda (_%self136006%_ _%stx136007%_) - (let* ((_%g136009136042%_ - (lambda (_%g136010136039%_) + (lambda (_%self136112%_ _%stx136113%_) + (let* ((_%g136115136148%_ + (lambda (_%g136116136145%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136010136039%_)))) - (_%g136008136249%_ - (lambda (_%g136010136045%_) + _%g136116136145%_)))) + (_%g136114136355%_ + (lambda (_%g136116136151%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g136010136045%_)) - (let ((_%e136015136047%_ + (gx#stx-pair? _%g136116136151%_)) + (let ((_%e136121136153%_ (let () (declare (not safe)) - (gx#stx-e _%g136010136045%_)))) - (let ((_%hd136016136050%_ + (gx#stx-e _%g136116136151%_)))) + (let ((_%hd136122136156%_ (let () (declare (not safe)) - (##car _%e136015136047%_))) - (_%tl136017136052%_ + (##car _%e136121136153%_))) + (_%tl136123136158%_ (let () (declare (not safe)) - (##cdr _%e136015136047%_)))) + (##cdr _%e136121136153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136017136052%_)) - (let ((_%e136018136055%_ + (gx#stx-pair? _%tl136123136158%_)) + (let ((_%e136124136161%_ (let () (declare (not safe)) - (gx#stx-e _%tl136017136052%_)))) - (let ((_%hd136019136058%_ + (gx#stx-e _%tl136123136158%_)))) + (let ((_%hd136125136164%_ (let () (declare (not safe)) - (##car _%e136018136055%_))) - (_%tl136020136060%_ + (##car _%e136124136161%_))) + (_%tl136126136166%_ (let () (declare (not safe)) - (##cdr _%e136018136055%_)))) + (##cdr _%e136124136161%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd136019136058%_)) - (let ((_g137991_ + (gx#stx-pair/null? _%hd136125136164%_)) + (let ((_g138097_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd136019136058%_ + _%hd136125136164%_ '0)))) (begin - (let ((_g137992_ + (let ((_g138098_ (let () (declare (not safe)) - (if (##values? _g137991_) - (##vector-length - _g137991_) + (if (##values? _g138097_) + (##values-length + _g138097_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137992_ 2))) + (##fx= _g138098_ 2))) (error "Context expects 2 values" - _g137992_))) - (let ((_%target136021136063%_ + _g138098_))) + (let ((_%target136127136169%_ (let () (declare (not safe)) - (##vector-ref _g137991_ 0))) - (_%tl136023136065%_ + (##values-ref _g138097_ 0))) + (_%tl136129136171%_ (let () (declare (not safe)) - (##vector-ref - _g137991_ + (##values-ref + _g138097_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136023136065%_)) - (letrec ((_%loop136024136068%_ - (lambda (_%hd136022136071%_ + _%tl136129136171%_)) + (letrec ((_%loop136130136174%_ + (lambda (_%hd136128136177%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136028136073%_ - _%hd136029136075%_) + _%expr136134136179%_ + _%hd136135136181%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136022136071%_)) - (let ((_%e136025136078%_ + (gx#stx-pair? _%hd136128136177%_)) + (let ((_%e136131136184%_ (let () (declare (not safe)) - (gx#stx-e _%hd136022136071%_)))) - (let ((_%lp-hd136026136081%_ + (gx#stx-e _%hd136128136177%_)))) + (let ((_%lp-hd136132136187%_ (let () (declare (not safe)) - (##car _%e136025136078%_))) - (_%lp-tl136027136083%_ + (##car _%e136131136184%_))) + (_%lp-tl136133136189%_ (let () (declare (not safe)) - (##cdr _%e136025136078%_)))) + (##cdr _%e136131136184%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd136026136081%_)) - (let ((_%e136032136086%_ + (gx#stx-pair? _%lp-hd136132136187%_)) + (let ((_%e136138136192%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd136026136081%_)))) - (let ((_%hd136033136089%_ + (gx#stx-e _%lp-hd136132136187%_)))) + (let ((_%hd136139136195%_ (let () (declare (not safe)) - (##car _%e136032136086%_))) - (_%tl136034136091%_ + (##car _%e136138136192%_))) + (_%tl136140136197%_ (let () (declare (not safe)) - (##cdr _%e136032136086%_)))) + (##cdr _%e136138136192%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl136034136091%_)) - (let ((_%e136035136094%_ + (gx#stx-pair? _%tl136140136197%_)) + (let ((_%e136141136200%_ (let () (declare (not safe)) (gx#stx-e - _%tl136034136091%_)))) - (let ((_%hd136036136097%_ + _%tl136140136197%_)))) + (let ((_%hd136142136203%_ (let () (declare (not safe)) - (##car _%e136035136094%_))) - (_%tl136037136099%_ + (##car _%e136141136200%_))) + (_%tl136143136205%_ (let () (declare (not safe)) - (##cdr _%e136035136094%_)))) + (##cdr _%e136141136200%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136037136099%_)) - (_%loop136024136068%_ - _%lp-tl136027136083%_ - (cons _%hd136036136097%_ - _%expr136028136073%_) - (cons _%hd136033136089%_ - _%hd136029136075%_)) - (_%g136009136042%_ - _%g136010136045%_)))) - (_%g136009136042%_ - _%g136010136045%_)))) - (_%g136009136042%_ _%g136010136045%_)))) - (let ((_%expr136030136102%_ - (reverse _%expr136028136073%_)) - (_%hd136031136104%_ - (reverse _%hd136029136075%_))) - ((lambda (_%L136107%_ - _%L136108%_ - _%L136109%_ - _%L136110%_) - (let* ((_%g136129136145%_ - (lambda (_%g136130136142%_) + _%tl136143136205%_)) + (_%loop136130136174%_ + _%lp-tl136133136189%_ + (cons _%hd136142136203%_ + _%expr136134136179%_) + (cons _%hd136139136195%_ + _%hd136135136181%_)) + (_%g136115136148%_ + _%g136116136151%_)))) + (_%g136115136148%_ + _%g136116136151%_)))) + (_%g136115136148%_ _%g136116136151%_)))) + (let ((_%expr136136136208%_ + (reverse _%expr136134136179%_)) + (_%hd136137136210%_ + (reverse _%hd136135136181%_))) + ((lambda (_%L136213%_ + _%L136214%_ + _%L136215%_ + _%L136216%_) + (let* ((_%g136235136251%_ + (lambda (_%g136236136248%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136130136142%_)))) - (_%g136128136235%_ - (lambda (_%g136130136148%_) + _%g136236136248%_)))) + (_%g136234136341%_ + (lambda (_%g136236136254%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g136130136148%_)) - (let ((_g137993_ + _%g136236136254%_)) + (let ((_g138099_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g136130136148%_ + _%g136236136254%_ '0)))) (begin - (let ((_g137994_ + (let ((_g138100_ (let () (declare (not safe)) (if (##values? - _g137993_) - (##vector-length - _g137993_) + _g138099_) + (##values-length + _g138099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g137994_ + (##fx= _g138100_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g137994_))) - (let ((_%target136132136150%_ + _g138100_))) + (let ((_%target136238136256%_ (let () (declare (not safe)) - (##vector-ref - _g137993_ + (##values-ref + _g138099_ 0))) - (_%tl136134136152%_ + (_%tl136240136258%_ (let () (declare (not safe)) - (##vector-ref - _g137993_ + (##values-ref + _g138099_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl136134136152%_)) - (letrec ((_%loop136135136155%_ - (lambda (_%hd136133136158%_ + _%tl136240136258%_)) + (letrec ((_%loop136241136261%_ + (lambda (_%hd136239136264%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr136139136160%_) + _%expr136245136266%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd136133136158%_)) - (let ((_%e136136136163%_ + (gx#stx-pair? _%hd136239136264%_)) + (let ((_%e136242136269%_ (let () (declare (not safe)) - (gx#syntax-e _%hd136133136158%_)))) - (let ((_%lp-hd136137136166%_ + (gx#syntax-e _%hd136239136264%_)))) + (let ((_%lp-hd136243136272%_ (let () (declare (not safe)) - (##car _%e136136136163%_))) - (_%lp-tl136138136168%_ + (##car _%e136242136269%_))) + (_%lp-tl136244136274%_ (let () (declare (not safe)) - (##cdr _%e136136136163%_)))) - (_%loop136135136155%_ - _%lp-tl136138136168%_ - (cons _%lp-hd136137136166%_ - _%expr136139136160%_)))) - (let ((_%expr136140136171%_ - (reverse _%expr136139136160%_))) - ((lambda (_%L136174%_) - (let ((__tmp137997 + (##cdr _%e136242136269%_)))) + (_%loop136241136261%_ + _%lp-tl136244136274%_ + (cons _%lp-hd136243136272%_ + _%expr136245136266%_)))) + (let ((_%expr136246136277%_ + (reverse _%expr136245136266%_))) + ((lambda (_%L136280%_) + (let ((__tmp138103 (lambda () - (let* ((_%g136188136195%_ - (lambda (_%g136189136192%_) + (let* ((_%g136294136301%_ + (lambda (_%g136295136298%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g136189136192%_)))) - (_%g136187136221%_ - (lambda (_%g136189136198%_) - ((lambda (_%L136200%_) + _%g136295136298%_)))) + (_%g136293136327%_ + (lambda (_%g136295136304%_) + ((lambda (_%L136306%_) (gxc#xform-wrap-source - (cons _%L136110%_ + (cons _%L136216%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L136174%_ - _%L136109%_)) - (let ((__tmp137998 - (lambda (_%g136210136214%_ - _%g136211136216%_ - _%g136212136218%_) - (cons (cons _%g136211136216%_ - (cons _%g136210136214%_ + _%L136280%_ + _%L136215%_)) + (let ((__tmp138104 + (lambda (_%g136316136320%_ + _%g136317136322%_ + _%g136318136324%_) + (cons (cons _%g136317136322%_ + (cons _%g136316136320%_ '())) - _%g136212136218%_)))) + _%g136318136324%_)))) (declare (not safe)) (__foldr2 - __tmp137998 + __tmp138104 '() - _%L136174%_ - _%L136109%_))) - _%L136200%_)) - _%stx136007%_)) - _%g136189136198%_)))) + _%L136280%_ + _%L136215%_))) + _%L136306%_)) + _%stx136113%_)) + _%g136295136304%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136187136221%_ - (map (lambda (_%g136223136225%_) + (_%g136293136327%_ + (map (lambda (_%g136329136331%_) (gxc#compile-e__1 - _%self136006%_ - _%g136223136225%_)) - _%L136107%_))))) - (__tmp137995 + _%self136112%_ + _%g136329136331%_)) + _%L136213%_))))) + (__tmp138101 (gxc#xform-let-locals - (let ((__tmp137996 - (lambda (_%g136227136230%_ - _%g136228136232%_) - (cons _%g136227136230%_ - _%g136228136232%_)))) + (let ((__tmp138102 + (lambda (_%g136333136336%_ + _%g136334136338%_) + (cons _%g136333136336%_ + _%g136334136338%_)))) (declare (not safe)) (__foldr1 - __tmp137996 + __tmp138102 '() - _%L136109%_))))) + _%L136215%_))))) (declare (not safe)) (__call-with-parameters - __tmp137997 + __tmp138103 gxc#current-compile-local-env - __tmp137995))) - _%expr136140136171%_)))))) - (_%loop136135136155%_ _%target136132136150%_ '())) + __tmp138101))) + _%expr136246136277%_)))))) + (_%loop136241136261%_ _%target136238136256%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g136129136145%_ - _%g136130136148%_))))) - (_%g136129136145%_ - _%g136130136148%_))))) - (_%g136128136235%_ - (map (lambda (_%g136237136239%_) + (_%g136235136251%_ + _%g136236136254%_))))) + (_%g136235136251%_ + _%g136236136254%_))))) + (_%g136234136341%_ + (map (lambda (_%g136343136345%_) (gxc#compile-e__1 - _%self136006%_ - _%g136237136239%_)) - (let ((__tmp137999 - (lambda (_%g136241136244%_ - _%g136242136246%_) - (cons _%g136241136244%_ - _%g136242136246%_)))) + _%self136112%_ + _%g136343136345%_)) + (let ((__tmp138105 + (lambda (_%g136347136350%_ + _%g136348136352%_) + (cons _%g136347136350%_ + _%g136348136352%_)))) (declare (not safe)) (__foldr1 - __tmp137999 + __tmp138105 '() - _%L136108%_)))))) - _%tl136020136060%_ - _%expr136030136102%_ - _%hd136031136104%_ - _%hd136016136050%_)))))) + _%L136214%_)))))) + _%tl136126136166%_ + _%expr136136136208%_ + _%hd136137136210%_ + _%hd136122136156%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop136024136068%_ - _%target136021136063%_ + (_%loop136130136174%_ + _%target136127136169%_ '() '())) - (_%g136009136042%_ - _%g136010136045%_))))) - (_%g136009136042%_ _%g136010136045%_)))) - (_%g136009136042%_ _%g136010136045%_)))) - (_%g136009136042%_ _%g136010136045%_))))) - (_%g136008136249%_ _%stx136007%_)))) + (_%g136115136148%_ + _%g136116136151%_))))) + (_%g136115136148%_ _%g136116136151%_)))) + (_%g136115136148%_ _%g136116136151%_)))) + (_%g136115136148%_ _%g136116136151%_))))) + (_%g136114136355%_ _%stx136113%_)))) (define gxc#xform-letrec-values% - (lambda (_%self135760%_ _%stx135761%_) - (let* ((_%g135763135796%_ - (lambda (_%g135764135793%_) + (lambda (_%self135866%_ _%stx135867%_) + (let* ((_%g135869135902%_ + (lambda (_%g135870135899%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135764135793%_)))) - (_%g135762136003%_ - (lambda (_%g135764135799%_) + _%g135870135899%_)))) + (_%g135868136109%_ + (lambda (_%g135870135905%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135764135799%_)) - (let ((_%e135769135801%_ + (gx#stx-pair? _%g135870135905%_)) + (let ((_%e135875135907%_ (let () (declare (not safe)) - (gx#stx-e _%g135764135799%_)))) - (let ((_%hd135770135804%_ + (gx#stx-e _%g135870135905%_)))) + (let ((_%hd135876135910%_ (let () (declare (not safe)) - (##car _%e135769135801%_))) - (_%tl135771135806%_ + (##car _%e135875135907%_))) + (_%tl135877135912%_ (let () (declare (not safe)) - (##cdr _%e135769135801%_)))) + (##cdr _%e135875135907%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135771135806%_)) - (let ((_%e135772135809%_ + (gx#stx-pair? _%tl135877135912%_)) + (let ((_%e135878135915%_ (let () (declare (not safe)) - (gx#stx-e _%tl135771135806%_)))) - (let ((_%hd135773135812%_ + (gx#stx-e _%tl135877135912%_)))) + (let ((_%hd135879135918%_ (let () (declare (not safe)) - (##car _%e135772135809%_))) - (_%tl135774135814%_ + (##car _%e135878135915%_))) + (_%tl135880135920%_ (let () (declare (not safe)) - (##cdr _%e135772135809%_)))) + (##cdr _%e135878135915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd135773135812%_)) - (let ((_g138000_ + (gx#stx-pair/null? _%hd135879135918%_)) + (let ((_g138106_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135773135812%_ + _%hd135879135918%_ '0)))) (begin - (let ((_g138001_ + (let ((_g138107_ (let () (declare (not safe)) - (if (##values? _g138000_) - (##vector-length - _g138000_) + (if (##values? _g138106_) + (##values-length + _g138106_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g138001_ 2))) + (##fx= _g138107_ 2))) (error "Context expects 2 values" - _g138001_))) - (let ((_%target135775135817%_ + _g138107_))) + (let ((_%target135881135923%_ (let () (declare (not safe)) - (##vector-ref _g138000_ 0))) - (_%tl135777135819%_ + (##values-ref _g138106_ 0))) + (_%tl135883135925%_ (let () (declare (not safe)) - (##vector-ref - _g138000_ + (##values-ref + _g138106_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135777135819%_)) - (letrec ((_%loop135778135822%_ - (lambda (_%hd135776135825%_ + _%tl135883135925%_)) + (letrec ((_%loop135884135928%_ + (lambda (_%hd135882135931%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr135782135827%_ - _%hd135783135829%_) + _%expr135888135933%_ + _%hd135889135935%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135776135825%_)) - (let ((_%e135779135832%_ + (gx#stx-pair? _%hd135882135931%_)) + (let ((_%e135885135938%_ (let () (declare (not safe)) - (gx#stx-e _%hd135776135825%_)))) - (let ((_%lp-hd135780135835%_ + (gx#stx-e _%hd135882135931%_)))) + (let ((_%lp-hd135886135941%_ (let () (declare (not safe)) - (##car _%e135779135832%_))) - (_%lp-tl135781135837%_ + (##car _%e135885135938%_))) + (_%lp-tl135887135943%_ (let () (declare (not safe)) - (##cdr _%e135779135832%_)))) + (##cdr _%e135885135938%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd135780135835%_)) - (let ((_%e135786135840%_ + (gx#stx-pair? _%lp-hd135886135941%_)) + (let ((_%e135892135946%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd135780135835%_)))) - (let ((_%hd135787135843%_ + (gx#stx-e _%lp-hd135886135941%_)))) + (let ((_%hd135893135949%_ (let () (declare (not safe)) - (##car _%e135786135840%_))) - (_%tl135788135845%_ + (##car _%e135892135946%_))) + (_%tl135894135951%_ (let () (declare (not safe)) - (##cdr _%e135786135840%_)))) + (##cdr _%e135892135946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135788135845%_)) - (let ((_%e135789135848%_ + (gx#stx-pair? _%tl135894135951%_)) + (let ((_%e135895135954%_ (let () (declare (not safe)) (gx#stx-e - _%tl135788135845%_)))) - (let ((_%hd135790135851%_ + _%tl135894135951%_)))) + (let ((_%hd135896135957%_ (let () (declare (not safe)) - (##car _%e135789135848%_))) - (_%tl135791135853%_ + (##car _%e135895135954%_))) + (_%tl135897135959%_ (let () (declare (not safe)) - (##cdr _%e135789135848%_)))) + (##cdr _%e135895135954%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135791135853%_)) - (_%loop135778135822%_ - _%lp-tl135781135837%_ - (cons _%hd135790135851%_ - _%expr135782135827%_) - (cons _%hd135787135843%_ - _%hd135783135829%_)) - (_%g135763135796%_ - _%g135764135799%_)))) - (_%g135763135796%_ - _%g135764135799%_)))) - (_%g135763135796%_ _%g135764135799%_)))) - (let ((_%expr135784135856%_ - (reverse _%expr135782135827%_)) - (_%hd135785135858%_ - (reverse _%hd135783135829%_))) - ((lambda (_%L135861%_ - _%L135862%_ - _%L135863%_ - _%L135864%_) - (let ((__tmp138004 + _%tl135897135959%_)) + (_%loop135884135928%_ + _%lp-tl135887135943%_ + (cons _%hd135896135957%_ + _%expr135888135933%_) + (cons _%hd135893135949%_ + _%hd135889135935%_)) + (_%g135869135902%_ + _%g135870135905%_)))) + (_%g135869135902%_ + _%g135870135905%_)))) + (_%g135869135902%_ _%g135870135905%_)))) + (let ((_%expr135890135962%_ + (reverse _%expr135888135933%_)) + (_%hd135891135964%_ + (reverse _%hd135889135935%_))) + ((lambda (_%L135967%_ + _%L135968%_ + _%L135969%_ + _%L135970%_) + (let ((__tmp138110 (lambda () - (let* ((_%g135884135900%_ - (lambda (_%g135885135897%_) + (let* ((_%g135990136006%_ + (lambda (_%g135991136003%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135885135897%_)))) - (_%g135883135982%_ - (lambda (_%g135885135903%_) + _%g135991136003%_)))) + (_%g135989136088%_ + (lambda (_%g135991136009%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g135885135903%_)) - (let ((_g138005_ + _%g135991136009%_)) + (let ((_g138111_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g135885135903%_ + _%g135991136009%_ '0)))) (begin - (let ((_g138006_ + (let ((_g138112_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g138005_) - (##vector-length _g138005_) + (if (##values? _g138111_) + (##values-length _g138111_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138006_ 2))) - (error "Context expects 2 values" _g138006_))) - (let ((_%target135887135905%_ + (if (not (let () (declare (not safe)) (##fx= _g138112_ 2))) + (error "Context expects 2 values" _g138112_))) + (let ((_%target135993136011%_ (let () (declare (not safe)) - (##vector-ref _g138005_ 0))) - (_%tl135889135907%_ + (##values-ref _g138111_ 0))) + (_%tl135995136013%_ (let () (declare (not safe)) - (##vector-ref _g138005_ 1)))) + (##values-ref _g138111_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl135889135907%_)) - (letrec ((_%loop135890135910%_ - (lambda (_%hd135888135913%_ - _%expr135894135915%_) + (gx#stx-null? _%tl135995136013%_)) + (letrec ((_%loop135996136016%_ + (lambda (_%hd135994136019%_ + _%expr136000136021%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135888135913%_)) - (let ((_%e135891135918%_ + (gx#stx-pair? _%hd135994136019%_)) + (let ((_%e135997136024%_ (let () (declare (not safe)) (gx#syntax-e - _%hd135888135913%_)))) - (let ((_%lp-hd135892135921%_ + _%hd135994136019%_)))) + (let ((_%lp-hd135998136027%_ (let () (declare (not safe)) - (##car _%e135891135918%_))) - (_%lp-tl135893135923%_ + (##car _%e135997136024%_))) + (_%lp-tl135999136029%_ (let () (declare (not safe)) - (##cdr _%e135891135918%_)))) - (_%loop135890135910%_ - _%lp-tl135893135923%_ - (cons _%lp-hd135892135921%_ - _%expr135894135915%_)))) - (let ((_%expr135895135926%_ - (reverse _%expr135894135915%_))) - ((lambda (_%L135929%_) - (let* ((_%g135943135950%_ - (lambda (_%g135944135947%_) + (##cdr _%e135997136024%_)))) + (_%loop135996136016%_ + _%lp-tl135999136029%_ + (cons _%lp-hd135998136027%_ + _%expr136000136021%_)))) + (let ((_%expr136001136032%_ + (reverse _%expr136000136021%_))) + ((lambda (_%L136035%_) + (let* ((_%g136049136056%_ + (lambda (_%g136050136053%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135944135947%_)))) - (_%g135942135975%_ - (lambda (_%g135944135953%_) - ((lambda (_%L135955%_) + _%g136050136053%_)))) + (_%g136048136081%_ + (lambda (_%g136050136059%_) + ((lambda (_%L136061%_) (gxc#xform-wrap-source - (cons _%L135864%_ + (cons _%L135970%_ (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135929%_ - _%L135863%_)) - (let ((__tmp138007 - (lambda (_%g135964135968%_ - _%g135965135970%_ - _%g135966135972%_) - (cons (cons _%g135965135970%_ - (cons _%g135964135968%_ + _%L136035%_ + _%L135969%_)) + (let ((__tmp138113 + (lambda (_%g136070136074%_ + _%g136071136076%_ + _%g136072136078%_) + (cons (cons _%g136071136076%_ + (cons _%g136070136074%_ '())) - _%g135966135972%_)))) + _%g136072136078%_)))) (declare (not safe)) (__foldr2 - __tmp138007 + __tmp138113 '() - _%L135929%_ - _%L135863%_))) - _%L135955%_)) - _%stx135761%_)) - _%g135944135953%_)))) + _%L136035%_ + _%L135969%_))) + _%L136061%_)) + _%stx135867%_)) + _%g136050136059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135942135975%_ - (map (lambda (_%g135977135979%_) + (_%g136048136081%_ + (map (lambda (_%g136083136085%_) (gxc#compile-e__1 - _%self135760%_ - _%g135977135979%_)) - _%L135861%_)))) - _%expr135895135926%_)))))) - (_%loop135890135910%_ _%target135887135905%_ '())) - (_%g135884135900%_ _%g135885135903%_))))) + _%self135866%_ + _%g136083136085%_)) + _%L135967%_)))) + _%expr136001136032%_)))))) + (_%loop135996136016%_ _%target135993136011%_ '())) + (_%g135990136006%_ _%g135991136009%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135884135900%_ - _%g135885135903%_))))) - (_%g135883135982%_ - (map (lambda (_%g135984135986%_) + (_%g135990136006%_ + _%g135991136009%_))))) + (_%g135989136088%_ + (map (lambda (_%g136090136092%_) (gxc#compile-e__1 - _%self135760%_ - _%g135984135986%_)) - (let ((__tmp138008 - (lambda (_%g135988135991%_ - _%g135989135993%_) - (cons _%g135988135991%_ - _%g135989135993%_)))) + _%self135866%_ + _%g136090136092%_)) + (let ((__tmp138114 + (lambda (_%g136094136097%_ + _%g136095136099%_) + (cons _%g136094136097%_ + _%g136095136099%_)))) (declare (not safe)) (__foldr1 - __tmp138008 + __tmp138114 '() - _%L135862%_))))))) - (__tmp138002 + _%L135968%_))))))) + (__tmp138108 (gxc#xform-let-locals - (let ((__tmp138003 - (lambda (_%g135995135998%_ - _%g135996136000%_) - (cons _%g135995135998%_ - _%g135996136000%_)))) + (let ((__tmp138109 + (lambda (_%g136101136104%_ + _%g136102136106%_) + (cons _%g136101136104%_ + _%g136102136106%_)))) (declare (not safe)) (__foldr1 - __tmp138003 + __tmp138109 '() - _%L135863%_))))) + _%L135969%_))))) (declare (not safe)) (__call-with-parameters - __tmp138004 + __tmp138110 gxc#current-compile-local-env - __tmp138002))) - _%tl135774135814%_ - _%expr135784135856%_ - _%hd135785135858%_ - _%hd135770135804%_)))))) + __tmp138108))) + _%tl135880135920%_ + _%expr135890135962%_ + _%hd135891135964%_ + _%hd135876135910%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop135778135822%_ - _%target135775135817%_ + (_%loop135884135928%_ + _%target135881135923%_ '() '())) - (_%g135763135796%_ - _%g135764135799%_))))) - (_%g135763135796%_ _%g135764135799%_)))) - (_%g135763135796%_ _%g135764135799%_)))) - (_%g135763135796%_ _%g135764135799%_))))) - (_%g135762136003%_ _%stx135761%_)))) + (_%g135869135902%_ + _%g135870135905%_))))) + (_%g135869135902%_ _%g135870135905%_)))) + (_%g135869135902%_ _%g135870135905%_)))) + (_%g135869135902%_ _%g135870135905%_))))) + (_%g135868136109%_ _%stx135867%_)))) (define gxc#xform-let-locals - (lambda (_%bindings135627%_) - (letrec ((_%flatten135629%_ - (lambda (_%maybe-lst135687%_) + (lambda (_%bindings135733%_) + (letrec ((_%flatten135735%_ + (lambda (_%maybe-lst135793%_) (if (let () (declare (not safe)) - (gx#identifier? _%maybe-lst135687%_)) - (cons _%maybe-lst135687%_ '()) - (let _%loop135689%_ ((_%rest135691%_ - _%maybe-lst135687%_) - (_%result135692%_ '())) - (let* ((_%__stx137896137897%_ _%rest135691%_) - (_%g135696135708%_ + (gx#identifier? _%maybe-lst135793%_)) + (cons _%maybe-lst135793%_ '()) + (let _%loop135795%_ ((_%rest135797%_ + _%maybe-lst135793%_) + (_%result135798%_ '())) + (let* ((_%__stx138002138003%_ _%rest135797%_) + (_%g135802135814%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137896137897%_))))) - (let ((_%__kont137898137899%_ - (lambda (_%L135746%_ _%L135747%_) - (_%loop135689%_ - _%L135746%_ - (let ((__tmp138009 - (_%flatten135629%_ _%L135747%_))) + _%__stx138002138003%_))))) + (let ((_%__kont138004138005%_ + (lambda (_%L135852%_ _%L135853%_) + (_%loop135795%_ + _%L135852%_ + (let ((__tmp138115 + (_%flatten135735%_ _%L135853%_))) (declare (not safe)) (__foldl1 cons - _%result135692%_ - __tmp138009))))) - (_%__kont137900137901%_ - (lambda (_%L135720%_) - (cons _%L135720%_ _%result135692%_))) - (_%__kont137902137903%_ - (lambda () _%result135692%_))) - (let ((_%g135694135733%_ + _%result135798%_ + __tmp138115))))) + (_%__kont138006138007%_ + (lambda (_%L135826%_) + (cons _%L135826%_ _%result135798%_))) + (_%__kont138008138009%_ + (lambda () _%result135798%_))) + (let ((_%g135800135839%_ (lambda () - (let ((_%L135720%_ - _%__stx137896137897%_)) + (let ((_%L135826%_ + _%__stx138002138003%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135720%_)) - (_%__kont137900137901%_ - _%L135720%_) - (_%__kont137902137903%_)))))) + (gx#identifier? _%L135826%_)) + (_%__kont138006138007%_ + _%L135826%_) + (_%__kont138008138009%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137896137897%_)) - (let ((_%e135700135738%_ + (gx#stx-pair? _%__stx138002138003%_)) + (let ((_%e135806135844%_ (let () (declare (not safe)) (gx#stx-e - _%__stx137896137897%_)))) - (let ((_%tl135702135743%_ + _%__stx138002138003%_)))) + (let ((_%tl135808135849%_ (let () (declare (not safe)) - (##cdr _%e135700135738%_))) - (_%hd135701135741%_ + (##cdr _%e135806135844%_))) + (_%hd135807135847%_ (let () (declare (not safe)) - (##car _%e135700135738%_)))) - (_%__kont137898137899%_ - _%tl135702135743%_ - _%hd135701135741%_))) + (##car _%e135806135844%_)))) + (_%__kont138004138005%_ + _%tl135808135849%_ + _%hd135807135847%_))) (let () (declare (not safe)) - (_%g135694135733%_))))))))))) - (let _%loop135631%_ ((_%rest135633%_ - (_%flatten135629%_ _%bindings135627%_)) - (_%locals135634%_ + (_%g135800135839%_))))))))))) + (let _%loop135737%_ ((_%rest135739%_ + (_%flatten135735%_ _%bindings135733%_)) + (_%locals135740%_ (let () (declare (not safe)) (gxc#current-compile-local-env)))) - (let* ((_%rest135635135646%_ _%rest135633%_) - (_%E135639135650%_ + (let* ((_%rest135741135752%_ _%rest135739%_) + (_%E135745135756%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest135635135646%_ + _%rest135741135752%_ '([(? identifier? id) . rest]) '((? identifier? id)) '(_))) '#!void))) - (let ((_%K135642135675%_ - (lambda (_%rest135672%_ _%id135673%_) - (_%loop135631%_ - _%rest135672%_ + (let ((_%K135748135781%_ + (lambda (_%rest135778%_ _%id135779%_) + (_%loop135737%_ + _%rest135778%_ (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135673%_)) - _%locals135634%_)))) - (_%K135641135664%_ - (lambda (_%id135662%_) + (gxc#identifier-symbol _%id135779%_)) + _%locals135740%_)))) + (_%K135747135770%_ + (lambda (_%id135768%_) (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%id135662%_)) - _%locals135634%_))) - (_%K135640135655%_ (lambda () _%locals135634%_))) - (let ((_%try-match135637135669%_ + (gxc#identifier-symbol _%id135768%_)) + _%locals135740%_))) + (_%K135746135761%_ (lambda () _%locals135740%_))) + (let ((_%try-match135743135775%_ (lambda () (if (let () (declare (not safe)) - (gx#identifier? _%rest135635135646%_)) - (let ((_%id135667%_ _%rest135635135646%_)) - (_%K135641135664%_ _%id135667%_)) - (_%K135640135655%_))))) - (if (pair? _%rest135635135646%_) - (let ((_%tl135644135680%_ + (gx#identifier? _%rest135741135752%_)) + (let ((_%id135773%_ _%rest135741135752%_)) + (_%K135747135770%_ _%id135773%_)) + (_%K135746135761%_))))) + (if (pair? _%rest135741135752%_) + (let ((_%tl135750135786%_ (let () (declare (not safe)) - (##cdr _%rest135635135646%_))) - (_%hd135643135678%_ + (##cdr _%rest135741135752%_))) + (_%hd135749135784%_ (let () (declare (not safe)) - (##car _%rest135635135646%_)))) + (##car _%rest135741135752%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd135643135678%_)) - (let ((_%id135683%_ _%hd135643135678%_) - (_%rest135685%_ _%tl135644135680%_)) - (_%K135642135675%_ _%rest135685%_ _%id135683%_)) - (_%K135640135655%_))) - (_%try-match135637135669%_))))))))) + (gx#identifier? _%hd135749135784%_)) + (let ((_%id135789%_ _%hd135749135784%_) + (_%rest135791%_ _%tl135750135786%_)) + (_%K135748135781%_ _%rest135791%_ _%id135789%_)) + (_%K135746135761%_))) + (_%try-match135743135775%_))))))))) (define gxc#xform-operands - (lambda (_%self135579%_ _%stx135580%_) - (let* ((_%g135582135593%_ - (lambda (_%g135583135590%_) + (lambda (_%self135685%_ _%stx135686%_) + (let* ((_%g135688135699%_ + (lambda (_%g135689135696%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135583135590%_)))) - (_%g135581135624%_ - (lambda (_%g135583135596%_) + _%g135689135696%_)))) + (_%g135687135730%_ + (lambda (_%g135689135702%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135583135596%_)) - (let ((_%e135586135598%_ + (gx#stx-pair? _%g135689135702%_)) + (let ((_%e135692135704%_ (let () (declare (not safe)) - (gx#stx-e _%g135583135596%_)))) - (let ((_%hd135587135601%_ + (gx#stx-e _%g135689135702%_)))) + (let ((_%hd135693135707%_ (let () (declare (not safe)) - (##car _%e135586135598%_))) - (_%tl135588135603%_ + (##car _%e135692135704%_))) + (_%tl135694135709%_ (let () (declare (not safe)) - (##cdr _%e135586135598%_)))) - ((lambda (_%L135606%_ _%L135607%_) - (let ((_%rands135622%_ - (map (lambda (_%g135617135619%_) + (##cdr _%e135692135704%_)))) + ((lambda (_%L135712%_ _%L135713%_) + (let ((_%rands135728%_ + (map (lambda (_%g135723135725%_) (gxc#compile-e__1 - _%self135579%_ - _%g135617135619%_)) - _%L135606%_))) + _%self135685%_ + _%g135723135725%_)) + _%L135712%_))) (gxc#xform-wrap-source - (cons _%L135607%_ _%rands135622%_) - _%stx135580%_))) - _%tl135588135603%_ - _%hd135587135601%_))) - (_%g135582135593%_ _%g135583135596%_))))) - (_%g135581135624%_ _%stx135580%_)))) + (cons _%L135713%_ _%rands135728%_) + _%stx135686%_))) + _%tl135694135709%_ + _%hd135693135707%_))) + (_%g135688135699%_ _%g135689135702%_))))) + (_%g135687135730%_ _%stx135686%_)))) (define gxc#xform-call% gxc#xform-operands) (define gxc#xform-setq% - (lambda (_%self135509%_ _%stx135510%_) - (let* ((_%g135512135529%_ - (lambda (_%g135513135526%_) + (lambda (_%self135615%_ _%stx135616%_) + (let* ((_%g135618135635%_ + (lambda (_%g135619135632%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135513135526%_)))) - (_%g135511135576%_ - (lambda (_%g135513135532%_) + _%g135619135632%_)))) + (_%g135617135682%_ + (lambda (_%g135619135638%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135513135532%_)) - (let ((_%e135516135534%_ + (gx#stx-pair? _%g135619135638%_)) + (let ((_%e135622135640%_ (let () (declare (not safe)) - (gx#stx-e _%g135513135532%_)))) - (let ((_%hd135517135537%_ + (gx#stx-e _%g135619135638%_)))) + (let ((_%hd135623135643%_ (let () (declare (not safe)) - (##car _%e135516135534%_))) - (_%tl135518135539%_ + (##car _%e135622135640%_))) + (_%tl135624135645%_ (let () (declare (not safe)) - (##cdr _%e135516135534%_)))) + (##cdr _%e135622135640%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135518135539%_)) - (let ((_%e135519135542%_ + (gx#stx-pair? _%tl135624135645%_)) + (let ((_%e135625135648%_ (let () (declare (not safe)) - (gx#stx-e _%tl135518135539%_)))) - (let ((_%hd135520135545%_ + (gx#stx-e _%tl135624135645%_)))) + (let ((_%hd135626135651%_ (let () (declare (not safe)) - (##car _%e135519135542%_))) - (_%tl135521135547%_ + (##car _%e135625135648%_))) + (_%tl135627135653%_ (let () (declare (not safe)) - (##cdr _%e135519135542%_)))) + (##cdr _%e135625135648%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135521135547%_)) - (let ((_%e135522135550%_ + (gx#stx-pair? _%tl135627135653%_)) + (let ((_%e135628135656%_ (let () (declare (not safe)) - (gx#stx-e _%tl135521135547%_)))) - (let ((_%hd135523135553%_ + (gx#stx-e _%tl135627135653%_)))) + (let ((_%hd135629135659%_ (let () (declare (not safe)) - (##car _%e135522135550%_))) - (_%tl135524135555%_ + (##car _%e135628135656%_))) + (_%tl135630135661%_ (let () (declare (not safe)) - (##cdr _%e135522135550%_)))) + (##cdr _%e135628135656%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135524135555%_)) - ((lambda (_%L135558%_ - _%L135559%_) - (let ((_%expr135574%_ + _%tl135630135661%_)) + ((lambda (_%L135664%_ + _%L135665%_) + (let ((_%expr135680%_ (gxc#compile-e__1 - _%self135509%_ - _%L135558%_))) + _%self135615%_ + _%L135664%_))) (gxc#xform-wrap-source (cons '%#set! - (cons _%L135559%_ - (cons _%expr135574%_ + (cons _%L135665%_ + (cons _%expr135680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx135510%_))) - _%hd135523135553%_ - _%hd135520135545%_) - (_%g135512135529%_ - _%g135513135532%_)))) - (_%g135512135529%_ _%g135513135532%_)))) - (_%g135512135529%_ _%g135513135532%_)))) - (_%g135512135529%_ _%g135513135532%_))))) - (_%g135511135576%_ _%stx135510%_)))))) + _%stx135616%_))) + _%hd135629135659%_ + _%hd135626135651%_) + (_%g135618135635%_ + _%g135619135638%_)))) + (_%g135618135635%_ _%g135619135638%_)))) + (_%g135618135635%_ _%g135619135638%_)))) + (_%g135618135635%_ _%g135619135638%_))))) + (_%g135617135682%_ _%stx135616%_)))))) diff --git a/src/bootstrap/gerbil/compiler/method~1.scm b/src/bootstrap/gerbil/compiler/method~1.scm index 09cbf88be..67e5a2c8c 100644 --- a/src/bootstrap/gerbil/compiler/method~1.scm +++ b/src/bootstrap/gerbil/compiler/method~1.scm @@ -1,286 +1,286 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g138037_| + (define |gxc[1]#_g138143_| (##structure gx#syntax-quote::t '::void-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138039_| + (define |gxc[1]#_g138145_| (##structure gx#syntax-quote::t 'make-::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138041_| + (define |gxc[1]#_g138147_| (##structure gx#syntax-quote::t '::void-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138043_| + (define |gxc[1]#_g138149_| (##structure gx#syntax-quote::t '::void-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138045_| + (define |gxc[1]#_g138151_| (##structure gx#syntax-quote::t 'make-::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138047_| + (define |gxc[1]#_g138153_| (##structure gx#syntax-quote::t '::void-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138049_| + (define |gxc[1]#_g138155_| (##structure gx#syntax-quote::t '::void-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138050_| + (define |gxc[1]#_g138156_| (##structure gx#syntax-quote::t '::void-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138052_| + (define |gxc[1]#_g138158_| (##structure gx#syntax-quote::t '::void::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138054_| + (define |gxc[1]#_g138160_| (##structure gx#syntax-quote::t 'make-::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138056_| + (define |gxc[1]#_g138162_| (##structure gx#syntax-quote::t '::void? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138058_| + (define |gxc[1]#_g138164_| (##structure gx#syntax-quote::t '::false-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138060_| + (define |gxc[1]#_g138166_| (##structure gx#syntax-quote::t 'make-::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138062_| + (define |gxc[1]#_g138168_| (##structure gx#syntax-quote::t '::false-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138064_| + (define |gxc[1]#_g138170_| (##structure gx#syntax-quote::t '::false-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138066_| + (define |gxc[1]#_g138172_| (##structure gx#syntax-quote::t 'make-::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138068_| + (define |gxc[1]#_g138174_| (##structure gx#syntax-quote::t '::false-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138070_| + (define |gxc[1]#_g138176_| (##structure gx#syntax-quote::t '::false-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138071_| + (define |gxc[1]#_g138177_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138073_| + (define |gxc[1]#_g138179_| (##structure gx#syntax-quote::t '::false::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138075_| + (define |gxc[1]#_g138181_| (##structure gx#syntax-quote::t 'make-::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138077_| + (define |gxc[1]#_g138183_| (##structure gx#syntax-quote::t '::false? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138079_| + (define |gxc[1]#_g138185_| (##structure gx#syntax-quote::t '::identity-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138081_| + (define |gxc[1]#_g138187_| (##structure gx#syntax-quote::t 'make-::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138083_| + (define |gxc[1]#_g138189_| (##structure gx#syntax-quote::t '::identity-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138085_| + (define |gxc[1]#_g138191_| (##structure gx#syntax-quote::t '::identity-special-form::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138087_| + (define |gxc[1]#_g138193_| (##structure gx#syntax-quote::t 'make-::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138089_| + (define |gxc[1]#_g138195_| (##structure gx#syntax-quote::t '::identity-special-form? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138091_| + (define |gxc[1]#_g138197_| (##structure gx#syntax-quote::t '::identity-special-form #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138092_| + (define |gxc[1]#_g138198_| (##structure gx#syntax-quote::t '::identity-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138094_| + (define |gxc[1]#_g138200_| (##structure gx#syntax-quote::t '::identity::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138096_| + (define |gxc[1]#_g138202_| (##structure gx#syntax-quote::t 'make-::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138098_| + (define |gxc[1]#_g138204_| (##structure gx#syntax-quote::t '::identity? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138100_| + (define |gxc[1]#_g138206_| (##structure gx#syntax-quote::t '::basic-xform-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138102_| + (define |gxc[1]#_g138208_| (##structure gx#syntax-quote::t 'make-::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138104_| + (define |gxc[1]#_g138210_| (##structure gx#syntax-quote::t '::basic-xform-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138106_| + (define |gxc[1]#_g138212_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138107_| + (define |gxc[1]#_g138213_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138109_| + (define |gxc[1]#_g138215_| (##structure gx#syntax-quote::t '::basic-xform::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138111_| + (define |gxc[1]#_g138217_| (##structure gx#syntax-quote::t 'make-::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g138113_| + (define |gxc[1]#_g138219_| (##structure gx#syntax-quote::t '::basic-xform? @@ -289,161 +289,161 @@ '())) (begin (define |gxc[:0:]#defcompile-method| - (lambda (_%stx134051%_) - (let* ((_%__stx137752137753%_ _%stx134051%_) - (_%g134057134251%_ + (lambda (_%stx134157%_) + (let* ((_%__stx137858137859%_ _%stx134157%_) + (_%g134163134357%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx137752137753%_))))) - (let ((_%__kont137755137756%_ - (lambda (_%L135471%_ _%L135473%_ _%L135474%_ _%L135475%_) + _%__stx137858137859%_))))) + (let ((_%__kont137861137862%_ + (lambda (_%L135577%_ _%L135579%_ _%L135580%_ _%L135581%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'defcompile-method)) - (cons _%L135475%_ - (cons (cons _%L135474%_ '()) - (cons _%L135473%_ _%L135471%_)))))) - (_%__kont137757137758%_ - (lambda (_%L135225%_ - _%L135227%_ - _%L135228%_ - _%L135229%_ - _%L135230%_) - (let* ((_%g135261135289%_ - (lambda (_%g135262135285%_) + (cons _%L135581%_ + (cons (cons _%L135580%_ '()) + (cons _%L135579%_ _%L135577%_)))))) + (_%__kont137863137864%_ + (lambda (_%L135331%_ + _%L135333%_ + _%L135334%_ + _%L135335%_ + _%L135336%_) + (let* ((_%g135367135395%_ + (lambda (_%g135368135391%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g135262135285%_)))) - (_%g135260135409%_ - (lambda (_%g135262135293%_) + _%g135368135391%_)))) + (_%g135366135515%_ + (lambda (_%g135368135399%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g135262135293%_)) - (let ((_%e135266135296%_ + (gx#stx-pair? _%g135368135399%_)) + (let ((_%e135372135402%_ (let () (declare (not safe)) - (gx#syntax-e _%g135262135293%_)))) - (let ((_%hd135267135300%_ + (gx#syntax-e _%g135368135399%_)))) + (let ((_%hd135373135406%_ (let () (declare (not safe)) - (##car _%e135266135296%_))) - (_%tl135268135303%_ + (##car _%e135372135402%_))) + (_%tl135374135409%_ (let () (declare (not safe)) - (##cdr _%e135266135296%_)))) + (##cdr _%e135372135402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135268135303%_)) - (let ((_%e135269135306%_ + (gx#stx-pair? _%tl135374135409%_)) + (let ((_%e135375135412%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135268135303%_)))) - (let ((_%hd135270135310%_ + _%tl135374135409%_)))) + (let ((_%hd135376135416%_ (let () (declare (not safe)) - (##car _%e135269135306%_))) - (_%tl135271135313%_ + (##car _%e135375135412%_))) + (_%tl135377135419%_ (let () (declare (not safe)) - (##cdr _%e135269135306%_)))) + (##cdr _%e135375135412%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd135270135310%_)) - (let ((_g138010_ + _%hd135376135416%_)) + (let ((_g138116_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd135270135310%_ + _%hd135376135416%_ '0)))) (begin - (let ((_g138011_ + (let ((_g138117_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138010_) - (##vector-length _g138010_) + _g138116_) + (##values-length _g138116_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138011_ 2))) - (error "Context expects 2 values" _g138011_))) + (if (not (let () (declare (not safe)) (##fx= _g138117_ 2))) + (error "Context expects 2 values" _g138117_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target135272135316%_ + (let ((_%target135378135422%_ (let () (declare (not safe)) - (##vector-ref - _g138010_ + (##values-ref + _g138116_ 0))) - (_%tl135274135319%_ + (_%tl135380135425%_ (let () (declare (not safe)) - (##vector-ref - _g138010_ + (##values-ref + _g138116_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135274135319%_)) - (letrec ((_%loop135275135322%_ + _%tl135380135425%_)) + (letrec ((_%loop135381135428%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd135273135326%_ - _%super-bind-methods!135279135329%_) + (lambda (_%hd135379135432%_ + _%super-bind-methods!135385135435%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd135273135326%_)) - (let ((_%e135276135332%_ + (gx#stx-pair? _%hd135379135432%_)) + (let ((_%e135382135438%_ (let () (declare (not safe)) - (gx#syntax-e _%hd135273135326%_)))) - (let ((_%lp-hd135277135336%_ + (gx#syntax-e _%hd135379135432%_)))) + (let ((_%lp-hd135383135442%_ (let () (declare (not safe)) - (##car _%e135276135332%_))) - (_%lp-tl135278135339%_ + (##car _%e135382135438%_))) + (_%lp-tl135384135445%_ (let () (declare (not safe)) - (##cdr _%e135276135332%_)))) - (_%loop135275135322%_ - _%lp-tl135278135339%_ - (cons _%lp-hd135277135336%_ - _%super-bind-methods!135279135329%_)))) - (let ((_%super-bind-methods!135280135342%_ - (reverse _%super-bind-methods!135279135329%_))) + (##cdr _%e135382135438%_)))) + (_%loop135381135428%_ + _%lp-tl135384135445%_ + (cons _%lp-hd135383135442%_ + _%super-bind-methods!135385135435%_)))) + (let ((_%super-bind-methods!135386135448%_ + (reverse _%super-bind-methods!135385135435%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl135271135313%_)) - (let ((_%e135281135346%_ + (gx#stx-pair? _%tl135377135419%_)) + (let ((_%e135387135452%_ (let () (declare (not safe)) (gx#syntax-e - _%tl135271135313%_)))) - (let ((_%hd135282135350%_ + _%tl135377135419%_)))) + (let ((_%hd135388135456%_ (let () (declare (not safe)) - (##car _%e135281135346%_))) - (_%tl135283135353%_ + (##car _%e135387135452%_))) + (_%tl135389135459%_ (let () (declare (not safe)) - (##cdr _%e135281135346%_)))) + (##cdr _%e135387135452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl135283135353%_)) - ((lambda (_%L135356%_ - _%L135358%_ - _%L135359%_) + _%tl135389135459%_)) + ((lambda (_%L135462%_ + _%L135464%_ + _%L135465%_) (cons (let () (declare (not safe)) @@ -454,22 +454,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L135230%_ - (let ((__tmp138012 - (lambda (_%g135386135389%_ - _%g135387135392%_) - (cons _%g135386135389%_ - _%g135387135392%_)))) + (cons (cons _%L135336%_ + (let ((__tmp138118 + (lambda (_%g135492135495%_ + _%g135493135498%_) + (cons _%g135492135495%_ + _%g135493135498%_)))) (declare (not safe)) (__foldr1 - __tmp138012 + __tmp138118 '() - _%L135229%_))) - (cons _%L135228%_ '()))) + _%L135335%_))) + (cons _%L135334%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L135359%_ + (cons _%L135465%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -479,234 +479,234 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp138015 - (lambda (_%g135381135395%_ _%g135382135398%_) + (let ((__tmp138121 + (lambda (_%g135487135501%_ _%g135488135504%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135381135395%_ '())) - _%g135382135398%_))) - (__tmp138013 + (cons _%g135487135501%_ '())) + _%g135488135504%_))) + (__tmp138119 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L135225%_ - _%L135227%_)) - (let ((__tmp138014 - (lambda (_%g135383135401%_ - _%g135384135404%_ - _%g135385135406%_) + _%L135331%_ + _%L135333%_)) + (let ((__tmp138120 + (lambda (_%g135489135507%_ + _%g135490135510%_ + _%g135491135512%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L135356%_ + (cons _%L135462%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135384135404%_ '())) - (cons _%g135383135401%_ '())))) + (cons _%g135490135510%_ '())) + (cons _%g135489135507%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135385135406%_)))) + _%g135491135512%_)))) (declare (not safe)) (__foldr2 - __tmp138014 + __tmp138120 '() - _%L135225%_ - _%L135227%_))))) + _%L135331%_ + _%L135333%_))))) (declare (not safe)) - (__foldr1 __tmp138015 __tmp138013 _%L135358%_))) + (__foldr1 __tmp138121 __tmp138119 _%L135464%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd135282135350%_ - _%super-bind-methods!135280135342%_ - _%hd135267135300%_) - (_%g135261135289%_ - _%g135262135293%_)))) - (_%g135261135289%_ - _%g135262135293%_))))))) - (_%loop135275135322%_ _%target135272135316%_ '())) - (_%g135261135289%_ _%g135262135293%_))))) + _%hd135388135456%_ + _%super-bind-methods!135386135448%_ + _%hd135373135406%_) + (_%g135367135395%_ + _%g135368135399%_)))) + (_%g135367135395%_ + _%g135368135399%_))))))) + (_%loop135381135428%_ _%target135378135422%_ '())) + (_%g135367135395%_ _%g135368135399%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g135261135289%_ - _%g135262135293%_)))) - (_%g135261135289%_ - _%g135262135293%_)))) - (_%g135261135289%_ _%g135262135293%_))))) - (_%g135260135409%_ + (_%g135367135395%_ + _%g135368135399%_)))) + (_%g135367135395%_ + _%g135368135399%_)))) + (_%g135367135395%_ _%g135368135399%_))))) + (_%g135366135515%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L135230%_ - _%L135230%_ + _%L135336%_ + _%L135336%_ '"-bind-methods!")) - (map (lambda (_%super135413%_) + (map (lambda (_%super135519%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135413%_ - _%super135413%_ + _%super135519%_ + _%super135519%_ '"-bind-methods!"))) - (let ((__tmp138016 - (lambda (_%g135415135418%_ - _%g135416135421%_) - (cons _%g135415135418%_ - _%g135416135421%_)))) + (let ((__tmp138122 + (lambda (_%g135521135524%_ + _%g135522135527%_) + (cons _%g135521135524%_ + _%g135522135527%_)))) (declare (not safe)) - (__foldr1 __tmp138016 '() _%L135229%_))) + (__foldr1 __tmp138122 '() _%L135335%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L135230%_ - _%L135230%_ + _%L135336%_ + _%L135336%_ '"::t"))))))) - (_%__kont137763137764%_ - (lambda (_%L134856%_ - _%L134858%_ - _%L134859%_ - _%L134860%_ - _%L134861%_ - _%L134862%_ - _%L134863%_) - (let* ((_%g134901134929%_ - (lambda (_%g134902134925%_) + (_%__kont137869137870%_ + (lambda (_%L134962%_ + _%L134964%_ + _%L134965%_ + _%L134966%_ + _%L134967%_ + _%L134968%_ + _%L134969%_) + (let* ((_%g135007135035%_ + (lambda (_%g135008135031%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134902134925%_)))) - (_%g134900135065%_ - (lambda (_%g134902134933%_) + _%g135008135031%_)))) + (_%g135006135171%_ + (lambda (_%g135008135039%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134902134933%_)) - (let ((_%e134906134936%_ + (gx#stx-pair? _%g135008135039%_)) + (let ((_%e135012135042%_ (let () (declare (not safe)) - (gx#syntax-e _%g134902134933%_)))) - (let ((_%hd134907134940%_ + (gx#syntax-e _%g135008135039%_)))) + (let ((_%hd135013135046%_ (let () (declare (not safe)) - (##car _%e134906134936%_))) - (_%tl134908134943%_ + (##car _%e135012135042%_))) + (_%tl135014135049%_ (let () (declare (not safe)) - (##cdr _%e134906134936%_)))) + (##cdr _%e135012135042%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134908134943%_)) - (let ((_%e134909134946%_ + (gx#stx-pair? _%tl135014135049%_)) + (let ((_%e135015135052%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134908134943%_)))) - (let ((_%hd134910134950%_ + _%tl135014135049%_)))) + (let ((_%hd135016135056%_ (let () (declare (not safe)) - (##car _%e134909134946%_))) - (_%tl134911134953%_ + (##car _%e135015135052%_))) + (_%tl135017135059%_ (let () (declare (not safe)) - (##cdr _%e134909134946%_)))) + (##cdr _%e135015135052%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134910134950%_)) - (let ((_g138017_ + _%hd135016135056%_)) + (let ((_g138123_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134910134950%_ + _%hd135016135056%_ '0)))) (begin - (let ((_g138018_ + (let ((_g138124_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138017_) - (##vector-length _g138017_) + _g138123_) + (##values-length _g138123_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138018_ 2))) - (error "Context expects 2 values" _g138018_))) + (if (not (let () (declare (not safe)) (##fx= _g138124_ 2))) + (error "Context expects 2 values" _g138124_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134912134956%_ + (let ((_%target135018135062%_ (let () (declare (not safe)) - (##vector-ref - _g138017_ + (##values-ref + _g138123_ 0))) - (_%tl134914134959%_ + (_%tl135020135065%_ (let () (declare (not safe)) - (##vector-ref - _g138017_ + (##values-ref + _g138123_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134914134959%_)) - (letrec ((_%loop134915134962%_ + _%tl135020135065%_)) + (letrec ((_%loop135021135068%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134913134966%_ - _%super-bind-methods!134919134969%_) + (lambda (_%hd135019135072%_ + _%super-bind-methods!135025135075%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134913134966%_)) - (let ((_%e134916134972%_ + (gx#stx-pair? _%hd135019135072%_)) + (let ((_%e135022135078%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134913134966%_)))) - (let ((_%lp-hd134917134976%_ + (gx#syntax-e _%hd135019135072%_)))) + (let ((_%lp-hd135023135082%_ (let () (declare (not safe)) - (##car _%e134916134972%_))) - (_%lp-tl134918134979%_ + (##car _%e135022135078%_))) + (_%lp-tl135024135085%_ (let () (declare (not safe)) - (##cdr _%e134916134972%_)))) - (_%loop134915134962%_ - _%lp-tl134918134979%_ - (cons _%lp-hd134917134976%_ - _%super-bind-methods!134919134969%_)))) - (let ((_%super-bind-methods!134920134982%_ - (reverse _%super-bind-methods!134919134969%_))) + (##cdr _%e135022135078%_)))) + (_%loop135021135068%_ + _%lp-tl135024135085%_ + (cons _%lp-hd135023135082%_ + _%super-bind-methods!135025135075%_)))) + (let ((_%super-bind-methods!135026135088%_ + (reverse _%super-bind-methods!135025135075%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134911134953%_)) - (let ((_%e134921134986%_ + (gx#stx-pair? _%tl135017135059%_)) + (let ((_%e135027135092%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134911134953%_)))) - (let ((_%hd134922134990%_ + _%tl135017135059%_)))) + (let ((_%hd135028135096%_ (let () (declare (not safe)) - (##car _%e134921134986%_))) - (_%tl134923134993%_ + (##car _%e135027135092%_))) + (_%tl135029135099%_ (let () (declare (not safe)) - (##cdr _%e134921134986%_)))) + (##cdr _%e135027135092%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134923134993%_)) - ((lambda (_%L134996%_ - _%L134998%_ - _%L134999%_) + _%tl135029135099%_)) + ((lambda (_%L135102%_ + _%L135104%_ + _%L135105%_) (cons (let () (declare (not safe)) @@ -717,22 +717,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134861%_ - (let ((__tmp138019 - (lambda (_%g135030135033%_ - _%g135031135036%_) - (cons _%g135030135033%_ - _%g135031135036%_)))) + (cons (cons _%L134967%_ + (let ((__tmp138125 + (lambda (_%g135136135139%_ + _%g135137135142%_) + (cons _%g135136135139%_ + _%g135137135142%_)))) (declare (not safe)) (__foldr1 - __tmp138019 + __tmp138125 '() - _%L134860%_))) - (cons _%L134859%_ '()))) + _%L134966%_))) + (cons _%L134965%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134999%_ + (cons _%L135105%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -742,67 +742,67 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp138022 - (lambda (_%g135025135039%_ _%g135026135042%_) + (let ((__tmp138128 + (lambda (_%g135131135145%_ _%g135132135148%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g135025135039%_ '())) - _%g135026135042%_))) - (__tmp138020 + (cons _%g135131135145%_ '())) + _%g135132135148%_))) + (__tmp138126 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134856%_ - _%L134858%_)) - (let ((__tmp138021 - (lambda (_%g135027135045%_ - _%g135028135048%_ - _%g135029135050%_) + _%L134962%_ + _%L134964%_)) + (let ((__tmp138127 + (lambda (_%g135133135151%_ + _%g135134135154%_ + _%g135135135156%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134996%_ + (cons _%L135102%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g135028135048%_ '())) - (cons _%g135027135045%_ '())))) + (cons _%g135134135154%_ '())) + (cons _%g135133135151%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g135029135050%_)))) + _%g135135135156%_)))) (declare (not safe)) (__foldr2 - __tmp138021 + __tmp138127 '() - _%L134856%_ - _%L134858%_))))) + _%L134962%_ + _%L134964%_))))) (declare (not safe)) - (__foldr1 __tmp138022 __tmp138020 _%L134998%_))) + (__foldr1 __tmp138128 __tmp138126 _%L135104%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134863%_ + (cons (cons _%L134969%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp138023 + (let ((__tmp138129 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g135023135053%_ _%g135024135056%_) - (cons _%g135023135053%_ _%g135024135056%_)))) + (lambda (_%g135129135159%_ _%g135130135162%_) + (cons _%g135129135159%_ _%g135130135162%_)))) (declare (not safe)) - (__foldr1 __tmp138023 '() _%L134862%_)))) + (__foldr1 __tmp138129 '() _%L134968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -810,7 +810,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134999%_ + (cons _%L135105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -819,18 +819,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134861%_ - (let ((__tmp138024 - (lambda (_%g135021135059%_ + (cons (cons _%L134967%_ + (let ((__tmp138130 + (lambda (_%g135127135165%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g135022135062%_) - (cons _%g135021135059%_ _%g135022135062%_)))) + _%g135128135168%_) + (cons _%g135127135165%_ _%g135128135168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp138024 + __tmp138130 '() - _%L134862%_))) + _%L134968%_))) '())) (cons (cons (let () (declare (not safe)) @@ -867,187 +867,187 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134922134990%_ - _%super-bind-methods!134920134982%_ - _%hd134907134940%_) - (_%g134901134929%_ - _%g134902134933%_)))) - (_%g134901134929%_ - _%g134902134933%_))))))) - (_%loop134915134962%_ _%target134912134956%_ '())) - (_%g134901134929%_ _%g134902134933%_))))) + _%hd135028135096%_ + _%super-bind-methods!135026135088%_ + _%hd135013135046%_) + (_%g135007135035%_ + _%g135008135039%_)))) + (_%g135007135035%_ + _%g135008135039%_))))))) + (_%loop135021135068%_ _%target135018135062%_ '())) + (_%g135007135035%_ _%g135008135039%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134901134929%_ - _%g134902134933%_)))) - (_%g134901134929%_ - _%g134902134933%_)))) - (_%g134901134929%_ _%g134902134933%_))))) - (_%g134900135065%_ + (_%g135007135035%_ + _%g135008135039%_)))) + (_%g135007135035%_ + _%g135008135039%_)))) + (_%g135007135035%_ _%g135008135039%_))))) + (_%g135006135171%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134861%_ - _%L134861%_ + _%L134967%_ + _%L134967%_ '"-bind-methods!")) - (map (lambda (_%super135069%_) + (map (lambda (_%super135175%_) (let () (declare (not safe)) (gx#stx-identifier - _%super135069%_ - _%super135069%_ + _%super135175%_ + _%super135175%_ '"-bind-methods!"))) - (let ((__tmp138025 - (lambda (_%g135071135074%_ - _%g135072135077%_) - (cons _%g135071135074%_ - _%g135072135077%_)))) + (let ((__tmp138131 + (lambda (_%g135177135180%_ + _%g135178135183%_) + (cons _%g135177135180%_ + _%g135178135183%_)))) (declare (not safe)) - (__foldr1 __tmp138025 '() _%L134860%_))) + (__foldr1 __tmp138131 '() _%L134966%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134861%_ - _%L134861%_ + _%L134967%_ + _%L134967%_ '"::t"))))))) - (_%__kont137771137772%_ - (lambda (_%L134446%_ - _%L134448%_ - _%L134449%_ - _%L134450%_ - _%L134451%_ - _%L134452%_ - _%L134453%_) - (let* ((_%g134496134524%_ - (lambda (_%g134497134520%_) + (_%__kont137877137878%_ + (lambda (_%L134552%_ + _%L134554%_ + _%L134555%_ + _%L134556%_ + _%L134557%_ + _%L134558%_ + _%L134559%_) + (let* ((_%g134602134630%_ + (lambda (_%g134603134626%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g134497134520%_)))) - (_%g134495134660%_ - (lambda (_%g134497134528%_) + _%g134603134626%_)))) + (_%g134601134766%_ + (lambda (_%g134603134634%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g134497134528%_)) - (let ((_%e134501134531%_ + (gx#stx-pair? _%g134603134634%_)) + (let ((_%e134607134637%_ (let () (declare (not safe)) - (gx#syntax-e _%g134497134528%_)))) - (let ((_%hd134502134535%_ + (gx#syntax-e _%g134603134634%_)))) + (let ((_%hd134608134641%_ (let () (declare (not safe)) - (##car _%e134501134531%_))) - (_%tl134503134538%_ + (##car _%e134607134637%_))) + (_%tl134609134644%_ (let () (declare (not safe)) - (##cdr _%e134501134531%_)))) + (##cdr _%e134607134637%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134503134538%_)) - (let ((_%e134504134541%_ + (gx#stx-pair? _%tl134609134644%_)) + (let ((_%e134610134647%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134503134538%_)))) - (let ((_%hd134505134545%_ + _%tl134609134644%_)))) + (let ((_%hd134611134651%_ (let () (declare (not safe)) - (##car _%e134504134541%_))) - (_%tl134506134548%_ + (##car _%e134610134647%_))) + (_%tl134612134654%_ (let () (declare (not safe)) - (##cdr _%e134504134541%_)))) + (##cdr _%e134610134647%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd134505134545%_)) - (let ((_g138026_ + _%hd134611134651%_)) + (let ((_g138132_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd134505134545%_ + _%hd134611134651%_ '0)))) (begin - (let ((_g138027_ + (let ((_g138133_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g138026_) - (##vector-length _g138026_) + _g138132_) + (##values-length _g138132_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g138027_ 2))) - (error "Context expects 2 values" _g138027_))) + (if (not (let () (declare (not safe)) (##fx= _g138133_ 2))) + (error "Context expects 2 values" _g138133_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target134507134551%_ + (let ((_%target134613134657%_ (let () (declare (not safe)) - (##vector-ref - _g138026_ + (##values-ref + _g138132_ 0))) - (_%tl134509134554%_ + (_%tl134615134660%_ (let () (declare (not safe)) - (##vector-ref - _g138026_ + (##values-ref + _g138132_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134509134554%_)) - (letrec ((_%loop134510134557%_ + _%tl134615134660%_)) + (letrec ((_%loop134616134663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd134508134561%_ - _%super-bind-methods!134514134564%_) + (lambda (_%hd134614134667%_ + _%super-bind-methods!134620134670%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134508134561%_)) - (let ((_%e134511134567%_ + (gx#stx-pair? _%hd134614134667%_)) + (let ((_%e134617134673%_ (let () (declare (not safe)) - (gx#syntax-e _%hd134508134561%_)))) - (let ((_%lp-hd134512134571%_ + (gx#syntax-e _%hd134614134667%_)))) + (let ((_%lp-hd134618134677%_ (let () (declare (not safe)) - (##car _%e134511134567%_))) - (_%lp-tl134513134574%_ + (##car _%e134617134673%_))) + (_%lp-tl134619134680%_ (let () (declare (not safe)) - (##cdr _%e134511134567%_)))) - (_%loop134510134557%_ - _%lp-tl134513134574%_ - (cons _%lp-hd134512134571%_ - _%super-bind-methods!134514134564%_)))) - (let ((_%super-bind-methods!134515134577%_ - (reverse _%super-bind-methods!134514134564%_))) + (##cdr _%e134617134673%_)))) + (_%loop134616134663%_ + _%lp-tl134619134680%_ + (cons _%lp-hd134618134677%_ + _%super-bind-methods!134620134670%_)))) + (let ((_%super-bind-methods!134621134683%_ + (reverse _%super-bind-methods!134620134670%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134506134548%_)) - (let ((_%e134516134581%_ + (gx#stx-pair? _%tl134612134654%_)) + (let ((_%e134622134687%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134506134548%_)))) - (let ((_%hd134517134585%_ + _%tl134612134654%_)))) + (let ((_%hd134623134691%_ (let () (declare (not safe)) - (##car _%e134516134581%_))) - (_%tl134518134588%_ + (##car _%e134622134687%_))) + (_%tl134624134694%_ (let () (declare (not safe)) - (##cdr _%e134516134581%_)))) + (##cdr _%e134622134687%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134518134588%_)) - ((lambda (_%L134591%_ - _%L134593%_ - _%L134594%_) + _%tl134624134694%_)) + ((lambda (_%L134697%_ + _%L134699%_ + _%L134700%_) (cons (let () (declare (not safe)) @@ -1058,23 +1058,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'defclass)) - (cons (cons _%L134451%_ - (let ((__tmp138028 - (lambda (_%g134625134628%_ - _%g134626134631%_) - (cons _%g134625134628%_ - _%g134626134631%_)))) + (cons (cons _%L134557%_ + (let ((__tmp138134 + (lambda (_%g134731134734%_ + _%g134732134737%_) + (cons _%g134731134734%_ + _%g134732134737%_)))) (declare (not safe)) (__foldr1 - __tmp138028 + __tmp138134 '() - _%L134450%_))) - (cons _%L134449%_ + _%L134556%_))) + (cons _%L134555%_ (cons 'final: (cons '#t '()))))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons _%L134594%_ + (cons _%L134700%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1084,75 +1084,75 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp138032 - (lambda (_%g134620134634%_ _%g134621134637%_) + (let ((__tmp138138 + (lambda (_%g134726134740%_ _%g134727134743%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'force)) - (cons _%g134620134634%_ '())) - _%g134621134637%_))) - (__tmp138029 + (cons _%g134726134740%_ '())) + _%g134727134743%_))) + (__tmp138135 (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L134446%_ - _%L134448%_)) - (let ((__tmp138031 - (lambda (_%g134622134640%_ - _%g134623134643%_ - _%g134624134645%_) + _%L134552%_ + _%L134554%_)) + (let ((__tmp138137 + (lambda (_%g134728134746%_ + _%g134729134749%_ + _%g134730134751%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'bind-method!)) - (cons _%L134591%_ + (cons _%L134697%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g134623134643%_ '())) - (cons _%g134622134640%_ '())))) + (cons _%g134729134749%_ '())) + (cons _%g134728134746%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g134624134645%_))) - (__tmp138030 + _%g134730134751%_))) + (__tmp138136 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'seal-class!)) - (cons _%L134591%_ '())) + (cons _%L134697%_ '())) '()))) (declare (not safe)) (__foldr2 - __tmp138031 - __tmp138030 - _%L134446%_ - _%L134448%_))))) + __tmp138137 + __tmp138136 + _%L134552%_ + _%L134554%_))))) (declare (not safe)) - (__foldr1 __tmp138032 __tmp138029 _%L134593%_))) + (__foldr1 __tmp138138 __tmp138135 _%L134699%_))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'def)) - (cons (cons _%L134453%_ + (cons (cons _%L134559%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'stx)) - (let ((__tmp138033 + (let ((__tmp138139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g134618134648%_ _%g134619134651%_) - (cons _%g134618134648%_ _%g134619134651%_)))) + (lambda (_%g134724134754%_ _%g134725134757%_) + (cons _%g134724134754%_ _%g134725134757%_)))) (declare (not safe)) - (__foldr1 __tmp138033 '() _%L134452%_)))) + (__foldr1 __tmp138139 '() _%L134558%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare @@ -1160,7 +1160,7 @@ (gx#datum->syntax__0 '#f 'force)) - (cons _%L134594%_ + (cons _%L134700%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (let () @@ -1169,18 +1169,18 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'self)) - (cons (cons _%L134451%_ - (let ((__tmp138034 - (lambda (_%g134616134654%_ + (cons (cons _%L134557%_ + (let ((__tmp138140 + (lambda (_%g134722134760%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g134617134657%_) - (cons _%g134616134654%_ _%g134617134657%_)))) + _%g134723134763%_) + (cons _%g134722134760%_ _%g134723134763%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp138034 + __tmp138140 '() - _%L134452%_))) + _%L134558%_))) '())) (cons (cons (let () (declare (not safe)) @@ -1217,1364 +1217,1364 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd134517134585%_ - _%super-bind-methods!134515134577%_ - _%hd134502134535%_) - (_%g134496134524%_ - _%g134497134528%_)))) - (_%g134496134524%_ - _%g134497134528%_))))))) - (_%loop134510134557%_ _%target134507134551%_ '())) - (_%g134496134524%_ _%g134497134528%_))))) + _%hd134623134691%_ + _%super-bind-methods!134621134683%_ + _%hd134608134641%_) + (_%g134602134630%_ + _%g134603134634%_)))) + (_%g134602134630%_ + _%g134603134634%_))))))) + (_%loop134616134663%_ _%target134613134657%_ '())) + (_%g134602134630%_ _%g134603134634%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g134496134524%_ - _%g134497134528%_)))) - (_%g134496134524%_ - _%g134497134528%_)))) - (_%g134496134524%_ _%g134497134528%_))))) - (_%g134495134660%_ + (_%g134602134630%_ + _%g134603134634%_)))) + (_%g134602134630%_ + _%g134603134634%_)))) + (_%g134602134630%_ _%g134603134634%_))))) + (_%g134601134766%_ (list (let () (declare (not safe)) (gx#stx-identifier - _%L134451%_ - _%L134451%_ + _%L134557%_ + _%L134557%_ '"-bind-methods!")) - (map (lambda (_%super134664%_) + (map (lambda (_%super134770%_) (let () (declare (not safe)) (gx#stx-identifier - _%super134664%_ - _%super134664%_ + _%super134770%_ + _%super134770%_ '"-bind-methods!"))) - (let ((__tmp138035 - (lambda (_%g134666134669%_ - _%g134667134672%_) - (cons _%g134666134669%_ - _%g134667134672%_)))) + (let ((__tmp138141 + (lambda (_%g134772134775%_ + _%g134773134778%_) + (cons _%g134772134775%_ + _%g134773134778%_)))) (declare (not safe)) - (__foldr1 __tmp138035 '() _%L134450%_))) + (__foldr1 __tmp138141 '() _%L134556%_))) (let () (declare (not safe)) (gx#stx-identifier - _%L134451%_ - _%L134451%_ + _%L134557%_ + _%L134557%_ '"::t")))))))) - (let* ((_%__match137893137894%_ - (lambda (_%e134189134258%_ - _%hd134190134262%_ - _%tl134191134265%_ - _%e134192134268%_ - _%hd134193134272%_ - _%tl134194134275%_ - _%e134195134278%_ - _%hd134196134282%_ - _%tl134197134285%_ - _%__splice137773137774%_ - _%target134198134288%_ - _%tl134200134291%_) - (letrec ((_%loop134201134294%_ - (lambda (_%hd134199134298%_ - _%arg134205134301%_) + (let* ((_%__match137999138000%_ + (lambda (_%e134295134364%_ + _%hd134296134368%_ + _%tl134297134371%_ + _%e134298134374%_ + _%hd134299134378%_ + _%tl134300134381%_ + _%e134301134384%_ + _%hd134302134388%_ + _%tl134303134391%_ + _%__splice137879137880%_ + _%target134304134394%_ + _%tl134306134397%_) + (letrec ((_%loop134307134400%_ + (lambda (_%hd134305134404%_ + _%arg134311134407%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134199134298%_)) - (let ((_%e134202134304%_ + (gx#stx-pair? _%hd134305134404%_)) + (let ((_%e134308134410%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134199134298%_)))) - (let ((_%lp-tl134204134311%_ + _%hd134305134404%_)))) + (let ((_%lp-tl134310134417%_ (let () (declare (not safe)) - (##cdr _%e134202134304%_))) - (_%lp-hd134203134308%_ + (##cdr _%e134308134410%_))) + (_%lp-hd134309134414%_ (let () (declare (not safe)) - (##car _%e134202134304%_)))) - (_%loop134201134294%_ - _%lp-tl134204134311%_ - (cons _%lp-hd134203134308%_ - _%arg134205134301%_)))) - (let ((_%arg134206134314%_ - (reverse _%arg134205134301%_))) + (##car _%e134308134410%_)))) + (_%loop134307134400%_ + _%lp-tl134310134417%_ + (cons _%lp-hd134309134414%_ + _%arg134311134407%_)))) + (let ((_%arg134312134420%_ + (reverse _%arg134311134407%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134194134275%_)) - (let ((_%e134207134318%_ + _%tl134300134381%_)) + (let ((_%e134313134424%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134194134275%_)))) - (let ((_%tl134209134325%_ + _%tl134300134381%_)))) + (let ((_%tl134315134431%_ (let () (declare (not safe)) - (##cdr _%e134207134318%_))) - (_%hd134208134322%_ + (##cdr _%e134313134424%_))) + (_%hd134314134428%_ (let () (declare (not safe)) - (##car _%e134207134318%_)))) + (##car _%e134313134424%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134208134322%_)) - (let ((_%e134210134328%_ + _%hd134314134428%_)) + (let ((_%e134316134434%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134208134322%_)))) - (let ((_%tl134212134335%_ + _%hd134314134428%_)))) + (let ((_%tl134318134441%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134210134328%_))) - (_%hd134211134332%_ - (let () (declare (not safe)) (##car _%e134210134328%_)))) + (##cdr _%e134316134434%_))) + (_%hd134317134438%_ + (let () (declare (not safe)) (##car _%e134316134434%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134212134335%_)) - (let ((_%__splice137775137776%_ + (gx#stx-pair/null? _%tl134318134441%_)) + (let ((_%__splice137881137882%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134212134335%_ '0)))) - (let ((_%tl134215134341%_ + (gx#syntax-split-splice _%tl134318134441%_ '0)))) + (let ((_%tl134321134447%_ (let () (declare (not safe)) - (##vector-ref _%__splice137775137776%_ '1))) - (_%target134213134338%_ + (##vector-ref _%__splice137881137882%_ '1))) + (_%target134319134444%_ (let () (declare (not safe)) - (##vector-ref _%__splice137775137776%_ '0)))) + (##vector-ref _%__splice137881137882%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134215134341%_)) - (letrec ((_%loop134216134344%_ - (lambda (_%hd134214134348%_ - _%super134220134351%_) + (gx#stx-null? _%tl134321134447%_)) + (letrec ((_%loop134322134450%_ + (lambda (_%hd134320134454%_ + _%super134326134457%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134214134348%_)) - (let ((_%e134217134354%_ + _%hd134320134454%_)) + (let ((_%e134323134460%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134214134348%_)))) - (let ((_%lp-tl134219134361%_ + _%hd134320134454%_)))) + (let ((_%lp-tl134325134467%_ (let () (declare (not safe)) - (##cdr _%e134217134354%_))) - (_%lp-hd134218134358%_ + (##cdr _%e134323134460%_))) + (_%lp-hd134324134464%_ (let () (declare (not safe)) - (##car _%e134217134354%_)))) - (_%loop134216134344%_ - _%lp-tl134219134361%_ - (cons _%lp-hd134218134358%_ - _%super134220134351%_)))) - (let ((_%super134221134364%_ - (reverse _%super134220134351%_))) + (##car _%e134323134460%_)))) + (_%loop134322134450%_ + _%lp-tl134325134467%_ + (cons _%lp-hd134324134464%_ + _%super134326134457%_)))) + (let ((_%super134327134470%_ + (reverse _%super134326134457%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134209134325%_)) - (let ((_%e134222134368%_ + _%tl134315134431%_)) + (let ((_%e134328134474%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134209134325%_)))) - (let ((_%tl134224134375%_ + _%tl134315134431%_)))) + (let ((_%tl134330134481%_ (let () (declare (not safe)) - (##cdr _%e134222134368%_))) - (_%hd134223134372%_ + (##cdr _%e134328134474%_))) + (_%hd134329134478%_ (let () (declare (not safe)) - (##car _%e134222134368%_)))) + (##car _%e134328134474%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134224134375%_)) - (let ((_%e134225134378%_ + _%tl134330134481%_)) + (let ((_%e134331134484%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134224134375%_)))) - (let ((_%tl134227134385%_ + (gx#syntax-e _%tl134330134481%_)))) + (let ((_%tl134333134491%_ (let () (declare (not safe)) - (##cdr _%e134225134378%_))) - (_%hd134226134382%_ + (##cdr _%e134331134484%_))) + (_%hd134332134488%_ (let () (declare (not safe)) - (##car _%e134225134378%_)))) + (##car _%e134331134484%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134226134382%_)) - (let ((_%e134228134388%_ + (gx#stx-datum? _%hd134332134488%_)) + (let ((_%e134334134494%_ (let () (declare (not safe)) - (gx#stx-e _%hd134226134382%_)))) - (if (equal? _%e134228134388%_ 'final:) + (gx#stx-e _%hd134332134488%_)))) + (if (equal? _%e134334134494%_ 'final:) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134227134385%_)) - (let ((_%__splice137777137778%_ + (gx#stx-pair/null? _%tl134333134491%_)) + (let ((_%__splice137883137884%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134227134385%_ + _%tl134333134491%_ '0)))) - (let ((_%tl134231134395%_ + (let ((_%tl134337134501%_ (let () (declare (not safe)) (##vector-ref - _%__splice137777137778%_ + _%__splice137883137884%_ '1))) - (_%target134229134392%_ + (_%target134335134498%_ (let () (declare (not safe)) (##vector-ref - _%__splice137777137778%_ + _%__splice137883137884%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134231134395%_)) - (letrec ((_%loop134232134398%_ - (lambda (_%hd134230134402%_ - _%implementation134236134405%_ - _%method134237134407%_) + _%tl134337134501%_)) + (letrec ((_%loop134338134504%_ + (lambda (_%hd134336134508%_ + _%implementation134342134511%_ + _%method134343134513%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134230134402%_)) - (let ((_%e134233134410%_ + _%hd134336134508%_)) + (let ((_%e134339134516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd134230134402%_)))) - (let ((_%lp-tl134235134417%_ + (gx#syntax-e _%hd134336134508%_)))) + (let ((_%lp-tl134341134523%_ (let () (declare (not safe)) - (##cdr _%e134233134410%_))) - (_%lp-hd134234134414%_ + (##cdr _%e134339134516%_))) + (_%lp-hd134340134520%_ (let () (declare (not safe)) - (##car _%e134233134410%_)))) + (##car _%e134339134516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd134234134414%_)) - (let ((_%e134240134420%_ + (gx#stx-pair? _%lp-hd134340134520%_)) + (let ((_%e134346134526%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd134234134414%_)))) - (let ((_%tl134242134427%_ + (gx#syntax-e _%lp-hd134340134520%_)))) + (let ((_%tl134348134533%_ (let () (declare (not safe)) - (##cdr _%e134240134420%_))) - (_%hd134241134424%_ + (##cdr _%e134346134526%_))) + (_%hd134347134530%_ (let () (declare (not safe)) - (##car _%e134240134420%_)))) + (##car _%e134346134526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134242134427%_)) - (let ((_%e134243134430%_ + (gx#stx-pair? _%tl134348134533%_)) + (let ((_%e134349134536%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134242134427%_)))) - (let ((_%tl134245134437%_ + _%tl134348134533%_)))) + (let ((_%tl134351134543%_ (let () (declare (not safe)) - (##cdr _%e134243134430%_))) - (_%hd134244134434%_ + (##cdr _%e134349134536%_))) + (_%hd134350134540%_ (let () (declare (not safe)) - (##car _%e134243134430%_)))) + (##car _%e134349134536%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134245134437%_)) - (_%loop134232134398%_ - _%lp-tl134235134417%_ - (cons _%hd134244134434%_ - _%implementation134236134405%_) - (cons _%hd134241134424%_ - _%method134237134407%_)) + _%tl134351134543%_)) + (_%loop134338134504%_ + _%lp-tl134341134523%_ + (cons _%hd134350134540%_ + _%implementation134342134511%_) + (cons _%hd134347134530%_ + _%method134343134513%_)) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) - (let ((_%method134239134443%_ - (reverse _%method134237134407%_)) - (_%implementation134238134440%_ - (reverse _%implementation134236134405%_))) - (_%__kont137771137772%_ - _%implementation134238134440%_ - _%method134239134443%_ - _%hd134223134372%_ - _%super134221134364%_ - _%hd134211134332%_ - _%arg134206134314%_ - _%hd134196134282%_)))))) + (_%g134163134357%_))))) + (let ((_%method134345134549%_ + (reverse _%method134343134513%_)) + (_%implementation134344134546%_ + (reverse _%implementation134342134511%_))) + (_%__kont137877137878%_ + _%implementation134344134546%_ + _%method134345134549%_ + _%hd134329134478%_ + _%super134327134470%_ + _%hd134317134438%_ + _%arg134312134420%_ + _%hd134302134388%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop134232134398%_ - _%target134229134392%_ + (_%loop134338134504%_ + _%target134335134498%_ '() '())) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))) + (_%g134163134357%_))) (let () (declare (not safe)) - (_%g134057134251%_)))) - (let () (declare (not safe)) (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_))))) + (_%g134163134357%_)))) + (let () (declare (not safe)) (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_)))))))) - (_%loop134216134344%_ - _%target134213134338%_ + (_%g134163134357%_)))))))) + (_%loop134322134450%_ + _%target134319134444%_ '())) (let () (declare (not safe)) - (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_))))) + (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_)))))))) - (_%loop134201134294%_ _%target134198134288%_ '())))) - (_%__match137867137868%_ - (lambda (_%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_) - (letrec ((_%loop134141134718%_ - (lambda (_%hd134139134722%_ - _%arg134145134725%_) + (_%g134163134357%_)))))))) + (_%loop134307134400%_ _%target134304134394%_ '())))) + (_%__match137973137974%_ + (lambda (_%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_) + (letrec ((_%loop134247134824%_ + (lambda (_%hd134245134828%_ + _%arg134251134831%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134139134722%_)) - (let ((_%e134142134728%_ + (gx#stx-pair? _%hd134245134828%_)) + (let ((_%e134248134834%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134139134722%_)))) - (let ((_%lp-tl134144134735%_ + _%hd134245134828%_)))) + (let ((_%lp-tl134250134841%_ (let () (declare (not safe)) - (##cdr _%e134142134728%_))) - (_%lp-hd134143134732%_ + (##cdr _%e134248134834%_))) + (_%lp-hd134249134838%_ (let () (declare (not safe)) - (##car _%e134142134728%_)))) - (_%loop134141134718%_ - _%lp-tl134144134735%_ - (cons _%lp-hd134143134732%_ - _%arg134145134725%_)))) - (let ((_%arg134146134738%_ - (reverse _%arg134145134725%_))) + (##car _%e134248134834%_)))) + (_%loop134247134824%_ + _%lp-tl134250134841%_ + (cons _%lp-hd134249134838%_ + _%arg134251134831%_)))) + (let ((_%arg134252134844%_ + (reverse _%arg134251134831%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134134134699%_)) - (let ((_%e134147134742%_ + _%tl134240134805%_)) + (let ((_%e134253134848%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134134134699%_)))) - (let ((_%tl134149134749%_ + _%tl134240134805%_)))) + (let ((_%tl134255134855%_ (let () (declare (not safe)) - (##cdr _%e134147134742%_))) - (_%hd134148134746%_ + (##cdr _%e134253134848%_))) + (_%hd134254134852%_ (let () (declare (not safe)) - (##car _%e134147134742%_)))) + (##car _%e134253134848%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134148134746%_)) - (let ((_%e134150134752%_ + _%hd134254134852%_)) + (let ((_%e134256134858%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134148134746%_)))) - (let ((_%tl134152134759%_ + _%hd134254134852%_)))) + (let ((_%tl134258134865%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134150134752%_))) - (_%hd134151134756%_ - (let () (declare (not safe)) (##car _%e134150134752%_)))) + (##cdr _%e134256134858%_))) + (_%hd134257134862%_ + (let () (declare (not safe)) (##car _%e134256134858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134152134759%_)) - (let ((_%__splice137767137768%_ + (gx#stx-pair/null? _%tl134258134865%_)) + (let ((_%__splice137873137874%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134152134759%_ '0)))) - (let ((_%tl134155134765%_ + (gx#syntax-split-splice _%tl134258134865%_ '0)))) + (let ((_%tl134261134871%_ (let () (declare (not safe)) - (##vector-ref _%__splice137767137768%_ '1))) - (_%target134153134762%_ + (##vector-ref _%__splice137873137874%_ '1))) + (_%target134259134868%_ (let () (declare (not safe)) - (##vector-ref _%__splice137767137768%_ '0)))) + (##vector-ref _%__splice137873137874%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134155134765%_)) - (letrec ((_%loop134156134768%_ - (lambda (_%hd134154134772%_ - _%super134160134775%_) + (gx#stx-null? _%tl134261134871%_)) + (letrec ((_%loop134262134874%_ + (lambda (_%hd134260134878%_ + _%super134266134881%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134154134772%_)) - (let ((_%e134157134778%_ + _%hd134260134878%_)) + (let ((_%e134263134884%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134154134772%_)))) - (let ((_%lp-tl134159134785%_ + _%hd134260134878%_)))) + (let ((_%lp-tl134265134891%_ (let () (declare (not safe)) - (##cdr _%e134157134778%_))) - (_%lp-hd134158134782%_ + (##cdr _%e134263134884%_))) + (_%lp-hd134264134888%_ (let () (declare (not safe)) - (##car _%e134157134778%_)))) - (_%loop134156134768%_ - _%lp-tl134159134785%_ - (cons _%lp-hd134158134782%_ - _%super134160134775%_)))) - (let ((_%super134161134788%_ - (reverse _%super134160134775%_))) + (##car _%e134263134884%_)))) + (_%loop134262134874%_ + _%lp-tl134265134891%_ + (cons _%lp-hd134264134888%_ + _%super134266134881%_)))) + (let ((_%super134267134894%_ + (reverse _%super134266134881%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134149134749%_)) - (let ((_%e134162134792%_ + _%tl134255134855%_)) + (let ((_%e134268134898%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134149134749%_)))) - (let ((_%tl134164134799%_ + _%tl134255134855%_)))) + (let ((_%tl134270134905%_ (let () (declare (not safe)) - (##cdr _%e134162134792%_))) - (_%hd134163134796%_ + (##cdr _%e134268134898%_))) + (_%hd134269134902%_ (let () (declare (not safe)) - (##car _%e134162134792%_)))) + (##car _%e134268134898%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134164134799%_)) - (let ((_%__splice137769137770%_ + _%tl134270134905%_)) + (let ((_%__splice137875137876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134164134799%_ '0)))) - (let ((_%tl134167134805%_ + (gx#syntax-split-splice _%tl134270134905%_ '0)))) + (let ((_%tl134273134911%_ (let () (declare (not safe)) - (##vector-ref _%__splice137769137770%_ '1))) - (_%target134165134802%_ + (##vector-ref _%__splice137875137876%_ '1))) + (_%target134271134908%_ (let () (declare (not safe)) - (##vector-ref _%__splice137769137770%_ '0)))) + (##vector-ref _%__splice137875137876%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134167134805%_)) - (letrec ((_%loop134168134808%_ - (lambda (_%hd134166134812%_ - _%implementation134172134815%_ - _%method134173134817%_) + (gx#stx-null? _%tl134273134911%_)) + (letrec ((_%loop134274134914%_ + (lambda (_%hd134272134918%_ + _%implementation134278134921%_ + _%method134279134923%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134166134812%_)) - (let ((_%e134169134820%_ + (gx#stx-pair? _%hd134272134918%_)) + (let ((_%e134275134926%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134166134812%_)))) - (let ((_%lp-tl134171134827%_ + _%hd134272134918%_)))) + (let ((_%lp-tl134277134933%_ (let () (declare (not safe)) - (##cdr _%e134169134820%_))) - (_%lp-hd134170134824%_ + (##cdr _%e134275134926%_))) + (_%lp-hd134276134930%_ (let () (declare (not safe)) - (##car _%e134169134820%_)))) + (##car _%e134275134926%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134170134824%_)) - (let ((_%e134176134830%_ + _%lp-hd134276134930%_)) + (let ((_%e134282134936%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134170134824%_)))) - (let ((_%tl134178134837%_ + _%lp-hd134276134930%_)))) + (let ((_%tl134284134943%_ (let () (declare (not safe)) - (##cdr _%e134176134830%_))) - (_%hd134177134834%_ + (##cdr _%e134282134936%_))) + (_%hd134283134940%_ (let () (declare (not safe)) - (##car _%e134176134830%_)))) + (##car _%e134282134936%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134178134837%_)) - (let ((_%e134179134840%_ + _%tl134284134943%_)) + (let ((_%e134285134946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl134178134837%_)))) - (let ((_%tl134181134847%_ + (gx#syntax-e _%tl134284134943%_)))) + (let ((_%tl134287134953%_ (let () (declare (not safe)) - (##cdr _%e134179134840%_))) - (_%hd134180134844%_ + (##cdr _%e134285134946%_))) + (_%hd134286134950%_ (let () (declare (not safe)) - (##car _%e134179134840%_)))) + (##car _%e134285134946%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134181134847%_)) - (_%loop134168134808%_ - _%lp-tl134171134827%_ - (cons _%hd134180134844%_ - _%implementation134172134815%_) - (cons _%hd134177134834%_ _%method134173134817%_)) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) + (gx#stx-null? _%tl134287134953%_)) + (_%loop134274134914%_ + _%lp-tl134277134933%_ + (cons _%hd134286134950%_ + _%implementation134278134921%_) + (cons _%hd134283134940%_ _%method134279134923%_)) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) - (let ((_%method134175134853%_ - (reverse _%method134173134817%_)) - (_%implementation134174134850%_ - (reverse _%implementation134172134815%_))) - (_%__kont137763137764%_ - _%implementation134174134850%_ - _%method134175134853%_ - _%hd134163134796%_ - _%super134161134788%_ - _%hd134151134756%_ - _%arg134146134738%_ - _%hd134136134706%_)))))) - (_%loop134168134808%_ - _%target134165134802%_ + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) + (let ((_%method134281134959%_ + (reverse _%method134279134923%_)) + (_%implementation134280134956%_ + (reverse _%implementation134278134921%_))) + (_%__kont137869137870%_ + _%implementation134280134956%_ + _%method134281134959%_ + _%hd134269134902%_ + _%super134267134894%_ + _%hd134257134862%_ + _%arg134252134844%_ + _%hd134242134812%_)))))) + (_%loop134274134914%_ + _%target134271134908%_ '() '())) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_))))))) - (_%loop134156134768%_ - _%target134153134762%_ + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_))))))) + (_%loop134262134874%_ + _%target134259134868%_ '())) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_)))) - (_%__match137893137894%_ - _%e134129134682%_ - _%hd134130134686%_ - _%tl134131134689%_ - _%e134132134692%_ - _%hd134133134696%_ - _%tl134134134699%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_))))))) - (_%loop134141134718%_ _%target134138134712%_ '())))) - (_%__match137841137842%_ - (lambda (_%e134080135087%_ - _%hd134081135091%_ - _%tl134082135094%_ - _%e134083135097%_ - _%hd134084135101%_ - _%tl134085135104%_ - _%e134086135107%_ - _%e134087135111%_ - _%hd134088135115%_ - _%tl134089135118%_ - _%e134090135121%_ - _%hd134091135125%_ - _%tl134092135128%_ - _%__splice137759137760%_ - _%target134093135131%_ - _%tl134095135134%_) - (letrec ((_%loop134096135137%_ - (lambda (_%hd134094135141%_ - _%super134100135144%_) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_)))) + (_%__match137999138000%_ + _%e134235134788%_ + _%hd134236134792%_ + _%tl134237134795%_ + _%e134238134798%_ + _%hd134239134802%_ + _%tl134240134805%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_))))))) + (_%loop134247134824%_ _%target134244134818%_ '())))) + (_%__match137947137948%_ + (lambda (_%e134186135193%_ + _%hd134187135197%_ + _%tl134188135200%_ + _%e134189135203%_ + _%hd134190135207%_ + _%tl134191135210%_ + _%e134192135213%_ + _%e134193135217%_ + _%hd134194135221%_ + _%tl134195135224%_ + _%e134196135227%_ + _%hd134197135231%_ + _%tl134198135234%_ + _%__splice137865137866%_ + _%target134199135237%_ + _%tl134201135240%_) + (letrec ((_%loop134202135243%_ + (lambda (_%hd134200135247%_ + _%super134206135250%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134094135141%_)) - (let ((_%e134097135147%_ + (gx#stx-pair? _%hd134200135247%_)) + (let ((_%e134203135253%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134094135141%_)))) - (let ((_%lp-tl134099135154%_ + _%hd134200135247%_)))) + (let ((_%lp-tl134205135260%_ (let () (declare (not safe)) - (##cdr _%e134097135147%_))) - (_%lp-hd134098135151%_ + (##cdr _%e134203135253%_))) + (_%lp-hd134204135257%_ (let () (declare (not safe)) - (##car _%e134097135147%_)))) - (_%loop134096135137%_ - _%lp-tl134099135154%_ - (cons _%lp-hd134098135151%_ - _%super134100135144%_)))) - (let ((_%super134101135157%_ - (reverse _%super134100135144%_))) + (##car _%e134203135253%_)))) + (_%loop134202135243%_ + _%lp-tl134205135260%_ + (cons _%lp-hd134204135257%_ + _%super134206135250%_)))) + (let ((_%super134207135263%_ + (reverse _%super134206135250%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134089135118%_)) - (let ((_%e134102135161%_ + _%tl134195135224%_)) + (let ((_%e134208135267%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134089135118%_)))) - (let ((_%tl134104135168%_ + _%tl134195135224%_)))) + (let ((_%tl134210135274%_ (let () (declare (not safe)) - (##cdr _%e134102135161%_))) - (_%hd134103135165%_ + (##cdr _%e134208135267%_))) + (_%hd134209135271%_ (let () (declare (not safe)) - (##car _%e134102135161%_)))) + (##car _%e134208135267%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134104135168%_)) - (let ((_%__splice137761137762%_ + _%tl134210135274%_)) + (let ((_%__splice137867137868%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134104135168%_ + _%tl134210135274%_ '0)))) - (let ((_%tl134107135174%_ + (let ((_%tl134213135280%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice137761137762%_ '1))) - (_%target134105135171%_ + (##vector-ref _%__splice137867137868%_ '1))) + (_%target134211135277%_ (let () (declare (not safe)) - (##vector-ref _%__splice137761137762%_ '0)))) + (##vector-ref _%__splice137867137868%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134107135174%_)) - (letrec ((_%loop134108135177%_ - (lambda (_%hd134106135181%_ - _%implementation134112135184%_ - _%method134113135186%_) + (gx#stx-null? _%tl134213135280%_)) + (letrec ((_%loop134214135283%_ + (lambda (_%hd134212135287%_ + _%implementation134218135290%_ + _%method134219135292%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134106135181%_)) - (let ((_%e134109135189%_ + (gx#stx-pair? _%hd134212135287%_)) + (let ((_%e134215135295%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134106135181%_)))) - (let ((_%lp-tl134111135196%_ + _%hd134212135287%_)))) + (let ((_%lp-tl134217135302%_ (let () (declare (not safe)) - (##cdr _%e134109135189%_))) - (_%lp-hd134110135193%_ + (##cdr _%e134215135295%_))) + (_%lp-hd134216135299%_ (let () (declare (not safe)) - (##car _%e134109135189%_)))) + (##car _%e134215135295%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd134110135193%_)) - (let ((_%e134116135199%_ + _%lp-hd134216135299%_)) + (let ((_%e134222135305%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd134110135193%_)))) - (let ((_%tl134118135206%_ + _%lp-hd134216135299%_)))) + (let ((_%tl134224135312%_ (let () (declare (not safe)) - (##cdr _%e134116135199%_))) - (_%hd134117135203%_ + (##cdr _%e134222135305%_))) + (_%hd134223135309%_ (let () (declare (not safe)) - (##car _%e134116135199%_)))) + (##car _%e134222135305%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl134118135206%_)) - (let ((_%e134119135209%_ + _%tl134224135312%_)) + (let ((_%e134225135315%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134118135206%_)))) - (let ((_%tl134121135216%_ + _%tl134224135312%_)))) + (let ((_%tl134227135322%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e134119135209%_))) - (_%hd134120135213%_ - (let () (declare (not safe)) (##car _%e134119135209%_)))) + (##cdr _%e134225135315%_))) + (_%hd134226135319%_ + (let () (declare (not safe)) (##car _%e134225135315%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134121135216%_)) - (_%loop134108135177%_ - _%lp-tl134111135196%_ - (cons _%hd134120135213%_ _%implementation134112135184%_) - (cons _%hd134117135203%_ _%method134113135186%_)) - (let () (declare (not safe)) (_%g134057134251%_))))) + (gx#stx-null? _%tl134227135322%_)) + (_%loop134214135283%_ + _%lp-tl134217135302%_ + (cons _%hd134226135319%_ _%implementation134218135290%_) + (cons _%hd134223135309%_ _%method134219135292%_)) + (let () (declare (not safe)) (_%g134163134357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) - (let ((_%method134115135222%_ - (reverse _%method134113135186%_)) - (_%implementation134114135219%_ - (reverse _%implementation134112135184%_))) - (_%__kont137757137758%_ - _%implementation134114135219%_ - _%method134115135222%_ - _%hd134103135165%_ - _%super134101135157%_ - _%hd134091135125%_)))))) - (_%loop134108135177%_ _%target134105135171%_ '() '())) - (let () (declare (not safe)) (_%g134057134251%_))))) + (_%g134163134357%_))))) + (let ((_%method134221135328%_ + (reverse _%method134219135292%_)) + (_%implementation134220135325%_ + (reverse _%implementation134218135290%_))) + (_%__kont137863137864%_ + _%implementation134220135325%_ + _%method134221135328%_ + _%hd134209135271%_ + _%super134207135263%_ + _%hd134197135231%_)))))) + (_%loop134214135283%_ _%target134211135277%_ '() '())) + (let () (declare (not safe)) (_%g134163134357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_)))))))) - (_%loop134096135137%_ _%target134093135131%_ '())))) - (_%__match137803137804%_ - (lambda (_%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134069135451%_ - _%hd134070135455%_ - _%tl134071135458%_ - _%e134072135461%_ - _%hd134073135465%_ - _%tl134074135468%_) - (let ((_%L135471%_ _%tl134074135468%_) - (_%L135473%_ _%hd134073135465%_) - (_%L135474%_ _%hd134070135455%_) - (_%L135475%_ _%hd134067135445%_)) + (_%g134163134357%_)))))))) + (_%loop134202135243%_ _%target134199135237%_ '())))) + (_%__match137909137910%_ + (lambda (_%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134175135557%_ + _%hd134176135561%_ + _%tl134177135564%_ + _%e134178135567%_ + _%hd134179135571%_ + _%tl134180135574%_) + (let ((_%L135577%_ _%tl134180135574%_) + (_%L135579%_ _%hd134179135571%_) + (_%L135580%_ _%hd134176135561%_) + (_%L135581%_ _%hd134173135551%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L135474%_)) - (_%__kont137755137756%_ - _%L135471%_ - _%L135473%_ - _%L135474%_ - _%L135475%_) + (gx#identifier? _%L135580%_)) + (_%__kont137861137862%_ + _%L135577%_ + _%L135579%_ + _%L135580%_ + _%L135581%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134067135445%_)) - (let ((_%e134086135107%_ + (gx#stx-datum? _%hd134173135551%_)) + (let ((_%e134192135213%_ (let () (declare (not safe)) - (gx#stx-e _%hd134067135445%_)))) - (if (equal? _%e134086135107%_ '#f) + (gx#stx-e _%hd134173135551%_)))) + (if (equal? _%e134192135213%_ '#f) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134070135455%_)) - (let ((_%e134090135121%_ + (gx#stx-pair? _%hd134176135561%_)) + (let ((_%e134196135227%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134070135455%_)))) - (let ((_%tl134092135128%_ + _%hd134176135561%_)))) + (let ((_%tl134198135234%_ (let () (declare (not safe)) - (##cdr _%e134090135121%_))) - (_%hd134091135125%_ + (##cdr _%e134196135227%_))) + (_%hd134197135231%_ (let () (declare (not safe)) - (##car _%e134090135121%_)))) + (##car _%e134196135227%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134092135128%_)) - (let ((_%__splice137759137760%_ + _%tl134198135234%_)) + (let ((_%__splice137865137866%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134092135128%_ + _%tl134198135234%_ '0)))) - (let ((_%tl134095135134%_ + (let ((_%tl134201135240%_ (let () (declare (not safe)) (##vector-ref - _%__splice137759137760%_ + _%__splice137865137866%_ '1))) - (_%target134093135131%_ + (_%target134199135237%_ (let () (declare (not safe)) (##vector-ref - _%__splice137759137760%_ + _%__splice137865137866%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134095135134%_)) - (_%__match137841137842%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134086135107%_ - _%e134069135451%_ - _%hd134070135455%_ - _%tl134071135458%_ - _%e134090135121%_ - _%hd134091135125%_ - _%tl134092135128%_ - _%__splice137759137760%_ - _%target134093135131%_ - _%tl134095135134%_) + _%tl134201135240%_)) + (_%__match137947137948%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134192135213%_ + _%e134175135557%_ + _%hd134176135561%_ + _%tl134177135564%_ + _%e134196135227%_ + _%hd134197135231%_ + _%tl134198135234%_ + _%__splice137865137866%_ + _%target134199135237%_ + _%tl134201135240%_) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))) + (_%g134163134357%_))) (let () (declare (not safe)) - (_%g134057134251%_)))) + (_%g134163134357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134067135445%_)) - (let ((_%e134135134702%_ + (gx#stx-pair? _%hd134173135551%_)) + (let ((_%e134241134808%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134067135445%_)))) - (let ((_%tl134137134709%_ + _%hd134173135551%_)))) + (let ((_%tl134243134815%_ (let () (declare (not safe)) - (##cdr _%e134135134702%_))) - (_%hd134136134706%_ + (##cdr _%e134241134808%_))) + (_%hd134242134812%_ (let () (declare (not safe)) - (##car _%e134135134702%_)))) + (##car _%e134241134808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134137134709%_)) - (let ((_%__splice137765137766%_ + _%tl134243134815%_)) + (let ((_%__splice137871137872%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134137134709%_ + _%tl134243134815%_ '0)))) - (let ((_%tl134140134715%_ + (let ((_%tl134246134821%_ (let () (declare (not safe)) (##vector-ref - _%__splice137765137766%_ + _%__splice137871137872%_ '1))) - (_%target134138134712%_ + (_%target134244134818%_ (let () (declare (not safe)) (##vector-ref - _%__splice137765137766%_ + _%__splice137871137872%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134140134715%_)) - (_%__match137867137868%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_) + _%tl134246134821%_)) + (_%__match137973137974%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))))))) + (_%g134163134357%_))))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx137752137753%_)) - (let ((_%e134063135431%_ + (gx#stx-pair? _%__stx137858137859%_)) + (let ((_%e134169135537%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx137752137753%_)))) - (let ((_%tl134065135438%_ + (gx#syntax-e _%__stx137858137859%_)))) + (let ((_%tl134171135544%_ (let () (declare (not safe)) - (##cdr _%e134063135431%_))) - (_%hd134064135435%_ + (##cdr _%e134169135537%_))) + (_%hd134170135541%_ (let () (declare (not safe)) - (##car _%e134063135431%_)))) + (##car _%e134169135537%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134065135438%_)) - (let ((_%e134066135441%_ + (gx#stx-pair? _%tl134171135544%_)) + (let ((_%e134172135547%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134065135438%_)))) - (let ((_%tl134068135448%_ + (gx#syntax-e _%tl134171135544%_)))) + (let ((_%tl134174135554%_ (let () (declare (not safe)) - (##cdr _%e134066135441%_))) - (_%hd134067135445%_ + (##cdr _%e134172135547%_))) + (_%hd134173135551%_ (let () (declare (not safe)) - (##car _%e134066135441%_)))) + (##car _%e134172135547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134068135448%_)) - (let ((_%e134069135451%_ + (gx#stx-pair? _%tl134174135554%_)) + (let ((_%e134175135557%_ (let () (declare (not safe)) - (gx#syntax-e _%tl134068135448%_)))) - (let ((_%tl134071135458%_ + (gx#syntax-e _%tl134174135554%_)))) + (let ((_%tl134177135564%_ (let () (declare (not safe)) - (##cdr _%e134069135451%_))) - (_%hd134070135455%_ + (##cdr _%e134175135557%_))) + (_%hd134176135561%_ (let () (declare (not safe)) - (##car _%e134069135451%_)))) + (##car _%e134175135557%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl134071135458%_)) - (let ((_%e134072135461%_ + (gx#stx-pair? _%tl134177135564%_)) + (let ((_%e134178135567%_ (let () (declare (not safe)) (gx#syntax-e - _%tl134071135458%_)))) - (let ((_%tl134074135468%_ + _%tl134177135564%_)))) + (let ((_%tl134180135574%_ (let () (declare (not safe)) - (##cdr _%e134072135461%_))) - (_%hd134073135465%_ + (##cdr _%e134178135567%_))) + (_%hd134179135571%_ (let () (declare (not safe)) - (##car _%e134072135461%_)))) - (_%__match137803137804%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134069135451%_ - _%hd134070135455%_ - _%tl134071135458%_ - _%e134072135461%_ - _%hd134073135465%_ - _%tl134074135468%_))) + (##car _%e134178135567%_)))) + (_%__match137909137910%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134175135557%_ + _%hd134176135561%_ + _%tl134177135564%_ + _%e134178135567%_ + _%hd134179135571%_ + _%tl134180135574%_))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd134067135445%_)) - (let ((_%e134086135107%_ + _%hd134173135551%_)) + (let ((_%e134192135213%_ (let () (declare (not safe)) (gx#stx-e - _%hd134067135445%_)))) - (if (equal? _%e134086135107%_ + _%hd134173135551%_)))) + (if (equal? _%e134192135213%_ '#f) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134070135455%_)) - (let ((_%e134090135121%_ + _%hd134176135561%_)) + (let ((_%e134196135227%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd134070135455%_)))) - (let ((_%tl134092135128%_ + (gx#syntax-e _%hd134176135561%_)))) + (let ((_%tl134198135234%_ (let () (declare (not safe)) - (##cdr _%e134090135121%_))) - (_%hd134091135125%_ + (##cdr _%e134196135227%_))) + (_%hd134197135231%_ (let () (declare (not safe)) - (##car _%e134090135121%_)))) + (##car _%e134196135227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl134092135128%_)) - (let ((_%__splice137759137760%_ + (gx#stx-pair/null? _%tl134198135234%_)) + (let ((_%__splice137865137866%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134092135128%_ + _%tl134198135234%_ '0)))) - (let ((_%tl134095135134%_ + (let ((_%tl134201135240%_ (let () (declare (not safe)) - (##vector-ref _%__splice137759137760%_ '1))) - (_%target134093135131%_ + (##vector-ref _%__splice137865137866%_ '1))) + (_%target134199135237%_ (let () (declare (not safe)) (##vector-ref - _%__splice137759137760%_ + _%__splice137865137866%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134095135134%_)) - (_%__match137841137842%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134086135107%_ - _%e134069135451%_ - _%hd134070135455%_ - _%tl134071135458%_ - _%e134090135121%_ - _%hd134091135125%_ - _%tl134092135128%_ - _%__splice137759137760%_ - _%target134093135131%_ - _%tl134095135134%_) + (gx#stx-null? _%tl134201135240%_)) + (_%__match137947137948%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134192135213%_ + _%e134175135557%_ + _%hd134176135561%_ + _%tl134177135564%_ + _%e134196135227%_ + _%hd134197135231%_ + _%tl134198135234%_ + _%__splice137865137866%_ + _%target134199135237%_ + _%tl134201135240%_) (let () (declare (not safe)) - (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_))) + (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_)))) + (_%g134163134357%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd134067135445%_)) - (let ((_%e134135134702%_ + _%hd134173135551%_)) + (let ((_%e134241134808%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134067135445%_)))) - (let ((_%tl134137134709%_ + _%hd134173135551%_)))) + (let ((_%tl134243134815%_ (let () (declare (not safe)) - (##cdr _%e134135134702%_))) - (_%hd134136134706%_ + (##cdr _%e134241134808%_))) + (_%hd134242134812%_ (let () (declare (not safe)) - (##car _%e134135134702%_)))) + (##car _%e134241134808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134137134709%_)) - (let ((_%__splice137765137766%_ + _%tl134243134815%_)) + (let ((_%__splice137871137872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl134137134709%_ '0)))) - (let ((_%tl134140134715%_ + (gx#syntax-split-splice _%tl134243134815%_ '0)))) + (let ((_%tl134246134821%_ (let () (declare (not safe)) - (##vector-ref _%__splice137765137766%_ '1))) - (_%target134138134712%_ + (##vector-ref _%__splice137871137872%_ '1))) + (_%target134244134818%_ (let () (declare (not safe)) - (##vector-ref _%__splice137765137766%_ '0)))) + (##vector-ref _%__splice137871137872%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl134140134715%_)) - (_%__match137867137868%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_) - (let () (declare (not safe)) (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_))))) + (gx#stx-null? _%tl134246134821%_)) + (_%__match137973137974%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_) + (let () (declare (not safe)) (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g134057134251%_))))))) + (_%g134163134357%_))))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd134067135445%_)) - (let ((_%e134086135107%_ + (gx#stx-datum? _%hd134173135551%_)) + (let ((_%e134192135213%_ (let () (declare (not safe)) - (gx#stx-e _%hd134067135445%_)))) + (gx#stx-e _%hd134173135551%_)))) (declare (not safe)) - (_%g134057134251%_)) + (_%g134163134357%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd134067135445%_)) - (let ((_%e134135134702%_ + (gx#stx-pair? _%hd134173135551%_)) + (let ((_%e134241134808%_ (let () (declare (not safe)) (gx#syntax-e - _%hd134067135445%_)))) - (let ((_%tl134137134709%_ + _%hd134173135551%_)))) + (let ((_%tl134243134815%_ (let () (declare (not safe)) - (##cdr _%e134135134702%_))) - (_%hd134136134706%_ + (##cdr _%e134241134808%_))) + (_%hd134242134812%_ (let () (declare (not safe)) - (##car _%e134135134702%_)))) + (##car _%e134241134808%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl134137134709%_)) - (let ((_%__splice137765137766%_ + _%tl134243134815%_)) + (let ((_%__splice137871137872%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl134137134709%_ + _%tl134243134815%_ '0)))) - (let ((_%tl134140134715%_ + (let ((_%tl134246134821%_ (let () (declare (not safe)) (##vector-ref - _%__splice137765137766%_ + _%__splice137871137872%_ '1))) - (_%target134138134712%_ + (_%target134244134818%_ (let () (declare (not safe)) (##vector-ref - _%__splice137765137766%_ + _%__splice137871137872%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl134140134715%_)) - (_%__match137867137868%_ - _%e134063135431%_ - _%hd134064135435%_ - _%tl134065135438%_ - _%e134066135441%_ - _%hd134067135445%_ - _%tl134068135448%_ - _%e134135134702%_ - _%hd134136134706%_ - _%tl134137134709%_ - _%__splice137765137766%_ - _%target134138134712%_ - _%tl134140134715%_) + _%tl134246134821%_)) + (_%__match137973137974%_ + _%e134169135537%_ + _%hd134170135541%_ + _%tl134171135544%_ + _%e134172135547%_ + _%hd134173135551%_ + _%tl134174135554%_ + _%e134241134808%_ + _%hd134242134812%_ + _%tl134243134815%_ + _%__splice137871137872%_ + _%target134244134818%_ + _%tl134246134821%_) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))) + (_%g134163134357%_))))) (let () (declare (not safe)) - (_%g134057134251%_))))))) - (let () (declare (not safe)) (_%g134057134251%_))))) - (let () (declare (not safe)) (_%g134057134251%_)))))))) + (_%g134163134357%_))))))) + (let () (declare (not safe)) (_%g134163134357%_))))) + (let () (declare (not safe)) (_%g134163134357%_)))))))) (define |gxc[:0:]#::void-expression| - (let ((__obj137920 + (let ((__obj138026 (let () (declare (not safe)) (##structure @@ -2603,7 +2603,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137920 + __obj138026 'gxc#::void-expression::t '1 '#f @@ -2611,65 +2611,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137920 + __obj138026 '::void-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138026 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138026 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138026 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '#f '11 '#f '#f)) - (let ((__tmp138036 |gxc[1]#_g138037_|)) + (##unchecked-structure-set! __obj138026 '#f '11 '#f '#f)) + (let ((__tmp138142 |gxc[1]#_g138143_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137920 __tmp138036 '12 '#f '#f)) - (let ((__tmp138038 |gxc[1]#_g138039_|)) + (##unchecked-structure-set! __obj138026 __tmp138142 '12 '#f '#f)) + (let ((__tmp138144 |gxc[1]#_g138145_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137920 __tmp138038 '13 '#f '#f)) - (let ((__tmp138040 |gxc[1]#_g138041_|)) + (##unchecked-structure-set! __obj138026 __tmp138144 '13 '#f '#f)) + (let ((__tmp138146 |gxc[1]#_g138147_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137920 __tmp138040 '14 '#f '#f)) + (##unchecked-structure-set! __obj138026 __tmp138146 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138026 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137920 '() '20 '#f '#f)) - __obj137920)) + (##unchecked-structure-set! __obj138026 '() '20 '#f '#f)) + __obj138026)) (define |gxc[:0:]#::void-special-form| - (let ((__obj137921 + (let ((__obj138027 (let () (declare (not safe)) (##structure @@ -2698,7 +2698,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137921 + __obj138027 'gxc#::void-special-form::t '1 '#f @@ -2706,65 +2706,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137921 + __obj138027 '::void-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138027 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138027 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138027 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '#f '11 '#f '#f)) - (let ((__tmp138042 |gxc[1]#_g138043_|)) + (##unchecked-structure-set! __obj138027 '#f '11 '#f '#f)) + (let ((__tmp138148 |gxc[1]#_g138149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137921 __tmp138042 '12 '#f '#f)) - (let ((__tmp138044 |gxc[1]#_g138045_|)) + (##unchecked-structure-set! __obj138027 __tmp138148 '12 '#f '#f)) + (let ((__tmp138150 |gxc[1]#_g138151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137921 __tmp138044 '13 '#f '#f)) - (let ((__tmp138046 |gxc[1]#_g138047_|)) + (##unchecked-structure-set! __obj138027 __tmp138150 '13 '#f '#f)) + (let ((__tmp138152 |gxc[1]#_g138153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137921 __tmp138046 '14 '#f '#f)) + (##unchecked-structure-set! __obj138027 __tmp138152 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138027 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137921 '() '20 '#f '#f)) - __obj137921)) + (##unchecked-structure-set! __obj138027 '() '20 '#f '#f)) + __obj138027)) (define |gxc[:0:]#::void| - (let ((__obj137922 + (let ((__obj138028 (let () (declare (not safe)) (##structure @@ -2792,65 +2792,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 'gxc#::void::t '1 '#f '#f)) + (##unchecked-structure-set! __obj138028 'gxc#::void::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '::void '2 '#f '#f)) + (##unchecked-structure-set! __obj138028 '::void '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '6 '#f '#f)) - (let ((__tmp138048 - (cons |gxc[1]#_g138049_| (cons |gxc[1]#_g138050_| '())))) + (##unchecked-structure-set! __obj138028 '() '6 '#f '#f)) + (let ((__tmp138154 + (cons |gxc[1]#_g138155_| (cons |gxc[1]#_g138156_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137922 __tmp138048 '3 '#f '#f)) + (##unchecked-structure-set! __obj138028 __tmp138154 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138028 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138028 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138028 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '#f '11 '#f '#f)) - (let ((__tmp138051 |gxc[1]#_g138052_|)) + (##unchecked-structure-set! __obj138028 '#f '11 '#f '#f)) + (let ((__tmp138157 |gxc[1]#_g138158_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137922 __tmp138051 '12 '#f '#f)) - (let ((__tmp138053 |gxc[1]#_g138054_|)) + (##unchecked-structure-set! __obj138028 __tmp138157 '12 '#f '#f)) + (let ((__tmp138159 |gxc[1]#_g138160_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137922 __tmp138053 '13 '#f '#f)) - (let ((__tmp138055 |gxc[1]#_g138056_|)) + (##unchecked-structure-set! __obj138028 __tmp138159 '13 '#f '#f)) + (let ((__tmp138161 |gxc[1]#_g138162_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137922 __tmp138055 '14 '#f '#f)) + (##unchecked-structure-set! __obj138028 __tmp138161 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138028 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137922 '() '20 '#f '#f)) - __obj137922)) + (##unchecked-structure-set! __obj138028 '() '20 '#f '#f)) + __obj138028)) (define |gxc[:0:]#::false-expression| - (let ((__obj137923 + (let ((__obj138029 (let () (declare (not safe)) (##structure @@ -2879,7 +2879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137923 + __obj138029 'gxc#::false-expression::t '1 '#f @@ -2887,65 +2887,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137923 + __obj138029 '::false-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138029 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138029 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138029 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '#f '11 '#f '#f)) - (let ((__tmp138057 |gxc[1]#_g138058_|)) + (##unchecked-structure-set! __obj138029 '#f '11 '#f '#f)) + (let ((__tmp138163 |gxc[1]#_g138164_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137923 __tmp138057 '12 '#f '#f)) - (let ((__tmp138059 |gxc[1]#_g138060_|)) + (##unchecked-structure-set! __obj138029 __tmp138163 '12 '#f '#f)) + (let ((__tmp138165 |gxc[1]#_g138166_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137923 __tmp138059 '13 '#f '#f)) - (let ((__tmp138061 |gxc[1]#_g138062_|)) + (##unchecked-structure-set! __obj138029 __tmp138165 '13 '#f '#f)) + (let ((__tmp138167 |gxc[1]#_g138168_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137923 __tmp138061 '14 '#f '#f)) + (##unchecked-structure-set! __obj138029 __tmp138167 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138029 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137923 '() '20 '#f '#f)) - __obj137923)) + (##unchecked-structure-set! __obj138029 '() '20 '#f '#f)) + __obj138029)) (define |gxc[:0:]#::false-special-form| - (let ((__obj137924 + (let ((__obj138030 (let () (declare (not safe)) (##structure @@ -2974,7 +2974,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137924 + __obj138030 'gxc#::false-special-form::t '1 '#f @@ -2982,65 +2982,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137924 + __obj138030 '::false-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138030 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138030 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138030 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '#f '11 '#f '#f)) - (let ((__tmp138063 |gxc[1]#_g138064_|)) + (##unchecked-structure-set! __obj138030 '#f '11 '#f '#f)) + (let ((__tmp138169 |gxc[1]#_g138170_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137924 __tmp138063 '12 '#f '#f)) - (let ((__tmp138065 |gxc[1]#_g138066_|)) + (##unchecked-structure-set! __obj138030 __tmp138169 '12 '#f '#f)) + (let ((__tmp138171 |gxc[1]#_g138172_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137924 __tmp138065 '13 '#f '#f)) - (let ((__tmp138067 |gxc[1]#_g138068_|)) + (##unchecked-structure-set! __obj138030 __tmp138171 '13 '#f '#f)) + (let ((__tmp138173 |gxc[1]#_g138174_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137924 __tmp138067 '14 '#f '#f)) + (##unchecked-structure-set! __obj138030 __tmp138173 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138030 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137924 '() '20 '#f '#f)) - __obj137924)) + (##unchecked-structure-set! __obj138030 '() '20 '#f '#f)) + __obj138030)) (define |gxc[:0:]#::false| - (let ((__obj137925 + (let ((__obj138031 (let () (declare (not safe)) (##structure @@ -3068,65 +3068,65 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 'gxc#::false::t '1 '#f '#f)) + (##unchecked-structure-set! __obj138031 'gxc#::false::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '::false '2 '#f '#f)) + (##unchecked-structure-set! __obj138031 '::false '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '6 '#f '#f)) - (let ((__tmp138069 - (cons |gxc[1]#_g138070_| (cons |gxc[1]#_g138071_| '())))) + (##unchecked-structure-set! __obj138031 '() '6 '#f '#f)) + (let ((__tmp138175 + (cons |gxc[1]#_g138176_| (cons |gxc[1]#_g138177_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137925 __tmp138069 '3 '#f '#f)) + (##unchecked-structure-set! __obj138031 __tmp138175 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138031 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138031 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138031 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '#f '11 '#f '#f)) - (let ((__tmp138072 |gxc[1]#_g138073_|)) + (##unchecked-structure-set! __obj138031 '#f '11 '#f '#f)) + (let ((__tmp138178 |gxc[1]#_g138179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137925 __tmp138072 '12 '#f '#f)) - (let ((__tmp138074 |gxc[1]#_g138075_|)) + (##unchecked-structure-set! __obj138031 __tmp138178 '12 '#f '#f)) + (let ((__tmp138180 |gxc[1]#_g138181_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137925 __tmp138074 '13 '#f '#f)) - (let ((__tmp138076 |gxc[1]#_g138077_|)) + (##unchecked-structure-set! __obj138031 __tmp138180 '13 '#f '#f)) + (let ((__tmp138182 |gxc[1]#_g138183_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137925 __tmp138076 '14 '#f '#f)) + (##unchecked-structure-set! __obj138031 __tmp138182 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138031 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137925 '() '20 '#f '#f)) - __obj137925)) + (##unchecked-structure-set! __obj138031 '() '20 '#f '#f)) + __obj138031)) (define |gxc[:0:]#::identity-expression| - (let ((__obj137926 + (let ((__obj138032 (let () (declare (not safe)) (##structure @@ -3155,7 +3155,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137926 + __obj138032 'gxc#::identity-expression::t '1 '#f @@ -3163,65 +3163,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137926 + __obj138032 '::identity-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138032 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138032 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138032 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '#f '11 '#f '#f)) - (let ((__tmp138078 |gxc[1]#_g138079_|)) + (##unchecked-structure-set! __obj138032 '#f '11 '#f '#f)) + (let ((__tmp138184 |gxc[1]#_g138185_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137926 __tmp138078 '12 '#f '#f)) - (let ((__tmp138080 |gxc[1]#_g138081_|)) + (##unchecked-structure-set! __obj138032 __tmp138184 '12 '#f '#f)) + (let ((__tmp138186 |gxc[1]#_g138187_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137926 __tmp138080 '13 '#f '#f)) - (let ((__tmp138082 |gxc[1]#_g138083_|)) + (##unchecked-structure-set! __obj138032 __tmp138186 '13 '#f '#f)) + (let ((__tmp138188 |gxc[1]#_g138189_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137926 __tmp138082 '14 '#f '#f)) + (##unchecked-structure-set! __obj138032 __tmp138188 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138032 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137926 '() '20 '#f '#f)) - __obj137926)) + (##unchecked-structure-set! __obj138032 '() '20 '#f '#f)) + __obj138032)) (define |gxc[:0:]#::identity-special-form| - (let ((__obj137927 + (let ((__obj138033 (let () (declare (not safe)) (##structure @@ -3250,7 +3250,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137927 + __obj138033 'gxc#::identity-special-form::t '1 '#f @@ -3258,65 +3258,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137927 + __obj138033 '::identity-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138033 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138033 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138033 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '#f '11 '#f '#f)) - (let ((__tmp138084 |gxc[1]#_g138085_|)) + (##unchecked-structure-set! __obj138033 '#f '11 '#f '#f)) + (let ((__tmp138190 |gxc[1]#_g138191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137927 __tmp138084 '12 '#f '#f)) - (let ((__tmp138086 |gxc[1]#_g138087_|)) + (##unchecked-structure-set! __obj138033 __tmp138190 '12 '#f '#f)) + (let ((__tmp138192 |gxc[1]#_g138193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137927 __tmp138086 '13 '#f '#f)) - (let ((__tmp138088 |gxc[1]#_g138089_|)) + (##unchecked-structure-set! __obj138033 __tmp138192 '13 '#f '#f)) + (let ((__tmp138194 |gxc[1]#_g138195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137927 __tmp138088 '14 '#f '#f)) + (##unchecked-structure-set! __obj138033 __tmp138194 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138033 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137927 '() '20 '#f '#f)) - __obj137927)) + (##unchecked-structure-set! __obj138033 '() '20 '#f '#f)) + __obj138033)) (define |gxc[:0:]#::identity| - (let ((__obj137928 + (let ((__obj138034 (let () (declare (not safe)) (##structure @@ -3345,69 +3345,69 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137928 + __obj138034 'gxc#::identity::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '::identity '2 '#f '#f)) + (##unchecked-structure-set! __obj138034 '::identity '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '6 '#f '#f)) - (let ((__tmp138090 - (cons |gxc[1]#_g138091_| (cons |gxc[1]#_g138092_| '())))) + (##unchecked-structure-set! __obj138034 '() '6 '#f '#f)) + (let ((__tmp138196 + (cons |gxc[1]#_g138197_| (cons |gxc[1]#_g138198_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137928 __tmp138090 '3 '#f '#f)) + (##unchecked-structure-set! __obj138034 __tmp138196 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138034 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138034 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138034 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '#f '11 '#f '#f)) - (let ((__tmp138093 |gxc[1]#_g138094_|)) + (##unchecked-structure-set! __obj138034 '#f '11 '#f '#f)) + (let ((__tmp138199 |gxc[1]#_g138200_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137928 __tmp138093 '12 '#f '#f)) - (let ((__tmp138095 |gxc[1]#_g138096_|)) + (##unchecked-structure-set! __obj138034 __tmp138199 '12 '#f '#f)) + (let ((__tmp138201 |gxc[1]#_g138202_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137928 __tmp138095 '13 '#f '#f)) - (let ((__tmp138097 |gxc[1]#_g138098_|)) + (##unchecked-structure-set! __obj138034 __tmp138201 '13 '#f '#f)) + (let ((__tmp138203 |gxc[1]#_g138204_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137928 __tmp138097 '14 '#f '#f)) + (##unchecked-structure-set! __obj138034 __tmp138203 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138034 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137928 '() '20 '#f '#f)) - __obj137928)) + (##unchecked-structure-set! __obj138034 '() '20 '#f '#f)) + __obj138034)) (define |gxc[:0:]#::basic-xform-expression| - (let ((__obj137929 + (let ((__obj138035 (let () (declare (not safe)) (##structure @@ -3436,7 +3436,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137929 + __obj138035 'gxc#::basic-xform-expression::t '1 '#f @@ -3444,65 +3444,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137929 + __obj138035 '::basic-xform-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138035 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138035 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138035 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '#f '11 '#f '#f)) - (let ((__tmp138099 |gxc[1]#_g138100_|)) + (##unchecked-structure-set! __obj138035 '#f '11 '#f '#f)) + (let ((__tmp138205 |gxc[1]#_g138206_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137929 __tmp138099 '12 '#f '#f)) - (let ((__tmp138101 |gxc[1]#_g138102_|)) + (##unchecked-structure-set! __obj138035 __tmp138205 '12 '#f '#f)) + (let ((__tmp138207 |gxc[1]#_g138208_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137929 __tmp138101 '13 '#f '#f)) - (let ((__tmp138103 |gxc[1]#_g138104_|)) + (##unchecked-structure-set! __obj138035 __tmp138207 '13 '#f '#f)) + (let ((__tmp138209 |gxc[1]#_g138210_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137929 __tmp138103 '14 '#f '#f)) + (##unchecked-structure-set! __obj138035 __tmp138209 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138035 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137929 '() '20 '#f '#f)) - __obj137929)) + (##unchecked-structure-set! __obj138035 '() '20 '#f '#f)) + __obj138035)) (define |gxc[:0:]#::basic-xform| - (let ((__obj137930 + (let ((__obj138036 (let () (declare (not safe)) (##structure @@ -3531,64 +3531,64 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj137930 + __obj138036 'gxc#::basic-xform::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '::basic-xform '2 '#f '#f)) + (##unchecked-structure-set! __obj138036 '::basic-xform '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '6 '#f '#f)) - (let ((__tmp138105 - (cons |gxc[1]#_g138106_| (cons |gxc[1]#_g138107_| '())))) + (##unchecked-structure-set! __obj138036 '() '6 '#f '#f)) + (let ((__tmp138211 + (cons |gxc[1]#_g138212_| (cons |gxc[1]#_g138213_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj137930 __tmp138105 '3 '#f '#f)) + (##unchecked-structure-set! __obj138036 __tmp138211 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj138036 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj138036 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj138036 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '#f '11 '#f '#f)) - (let ((__tmp138108 |gxc[1]#_g138109_|)) + (##unchecked-structure-set! __obj138036 '#f '11 '#f '#f)) + (let ((__tmp138214 |gxc[1]#_g138215_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137930 __tmp138108 '12 '#f '#f)) - (let ((__tmp138110 |gxc[1]#_g138111_|)) + (##unchecked-structure-set! __obj138036 __tmp138214 '12 '#f '#f)) + (let ((__tmp138216 |gxc[1]#_g138217_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137930 __tmp138110 '13 '#f '#f)) - (let ((__tmp138112 |gxc[1]#_g138113_|)) + (##unchecked-structure-set! __obj138036 __tmp138216 '13 '#f '#f)) + (let ((__tmp138218 |gxc[1]#_g138219_|)) (declare (not safe)) - (##unchecked-structure-set! __obj137930 __tmp138112 '14 '#f '#f)) + (##unchecked-structure-set! __obj138036 __tmp138218 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj138036 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj137930 '() '20 '#f '#f)) - __obj137930)))) + (##unchecked-structure-set! __obj138036 '() '20 '#f '#f)) + __obj138036)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm index 2bc5e8454..eb3c8769b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-ann::timestamp 1733870079) + (define gerbil/compiler/optimize-ann::timestamp 1734131751) (begin (declare (inlining-limit 200)) (define gxc#::optimize-annotated::t - (let ((__tmp192439 (list gxc#::basic-xform::t)) - (__tmp192438 (cons (cons 'final: '#t) '()))) + (let ((__tmp192545 (list gxc#::basic-xform::t)) + (__tmp192544 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-annotated::t '::optimize-annotated - __tmp192439 + __tmp192545 '() - __tmp192438 + __tmp192544 '#f))) (define gxc#::optimize-annotated? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-annotated::t))) (define gxc#make-::optimize-annotated - (lambda _%$args189324%_ - (apply make-instance gxc#::optimize-annotated::t _%$args189324%_))) + (lambda _%$args189430%_ + (apply make-instance gxc#::optimize-annotated::t _%$args189430%_))) (define gxc#::optimize-annotated-bind-methods! - (let ((__tmp192440 + (let ((__tmp192546 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -35,46 +35,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-annotated::t))))) (declare (not safe)) - (__make-promise __tmp192440))) + (__make-promise __tmp192546))) (define gxc#apply-optimize-annotated - (lambda (_%stx189316%_) + (lambda (_%stx189422%_) (force gxc#::optimize-annotated-bind-methods!) - (let* ((_%self189319%_ - (let ((__obj192430 + (let* ((_%self189425%_ + (let ((__obj192536 (let () (declare (not safe)) (##structure gxc#::optimize-annotated::t)))) - __obj192430)) - (__tmp192441 + __obj192536)) + (__tmp192547 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189319%_ _%stx189316%_))))) + (gxc#compile-e__1 _%self189425%_ _%stx189422%_))))) (declare (not safe)) (__call-with-parameters - __tmp192441 + __tmp192547 gxc#current-compile-method - _%self189319%_)))) + _%self189425%_)))) (define gxc#::generate-runtime-repr::t - (let ((__tmp192443 (list gxc#::generate-runtime::t)) - (__tmp192442 (cons (cons 'final: '#t) '()))) + (let ((__tmp192549 (list gxc#::generate-runtime::t)) + (__tmp192548 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-runtime-repr::t '::generate-runtime-repr - __tmp192443 + __tmp192549 '() - __tmp192442 + __tmp192548 '#f))) (define gxc#::generate-runtime-repr? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-runtime-repr::t))) (define gxc#make-::generate-runtime-repr - (lambda _%$args189313%_ - (apply make-instance gxc#::generate-runtime-repr::t _%$args189313%_))) + (lambda _%$args189419%_ + (apply make-instance gxc#::generate-runtime-repr::t _%$args189419%_))) (define gxc#::generate-runtime-repr-bind-methods! - (let ((__tmp192444 + (let ((__tmp192550 (lambda () (force gxc#::generate-runtime-bind-methods!) (let () @@ -87,43 +87,43 @@ (declare (not safe)) (__seal-class! gxc#::generate-runtime-repr::t))))) (declare (not safe)) - (__make-promise __tmp192444))) + (__make-promise __tmp192550))) (define gxc#apply-generate-runtime-repr - (lambda (_%stx189305%_) + (lambda (_%stx189411%_) (force gxc#::generate-runtime-repr-bind-methods!) - (let* ((_%self189308%_ - (let ((__obj192432 + (let* ((_%self189414%_ + (let ((__obj192538 (let () (declare (not safe)) (##structure gxc#::generate-runtime-repr::t)))) - __obj192432)) - (__tmp192445 + __obj192538)) + (__tmp192551 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189308%_ _%stx189305%_))))) + (gxc#compile-e__1 _%self189414%_ _%stx189411%_))))) (declare (not safe)) (__call-with-parameters - __tmp192445 + __tmp192551 gxc#current-compile-method - _%self189308%_)))) + _%self189414%_)))) (define gxc#::push-match-vars::t - (let ((__tmp192447 (list)) (__tmp192446 (cons (cons 'final: '#t) '()))) + (let ((__tmp192553 (list)) (__tmp192552 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::push-match-vars::t '::push-match-vars - __tmp192447 + __tmp192553 '(vars K) - __tmp192446 + __tmp192552 '#f))) (define gxc#::push-match-vars? (let () (declare (not safe)) (__make-class-predicate gxc#::push-match-vars::t))) (define gxc#make-::push-match-vars - (lambda _%$args189302%_ - (apply make-instance gxc#::push-match-vars::t _%$args189302%_))) + (lambda _%$args189408%_ + (apply make-instance gxc#::push-match-vars::t _%$args189408%_))) (define gxc#::push-match-vars-vars (let () (declare (not safe)) @@ -157,7 +157,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::push-match-vars::t 'K))) (define gxc#::push-match-vars-bind-methods! - (let ((__tmp192448 + (let ((__tmp192554 (lambda () (let () (declare (not safe)) @@ -199,1646 +199,1646 @@ (declare (not safe)) (__seal-class! gxc#::push-match-vars::t))))) (declare (not safe)) - (__make-promise __tmp192448))) + (__make-promise __tmp192554))) (define gxc#apply-push-match-vars__% - (lambda (_%@@keywords189272%_ - _%vars189268189273%_ - _%K189269189275%_ - _%stx189277%_) - (let* ((_%vars189280%_ - (if (eq? _%vars189268189273%_ absent-value) + (lambda (_%@@keywords189378%_ + _%vars189374189379%_ + _%K189375189381%_ + _%stx189383%_) + (let* ((_%vars189386%_ + (if (eq? _%vars189374189379%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'vars:)) - _%vars189268189273%_)) - (_%K189282%_ - (if (eq? _%K189269189275%_ absent-value) + _%vars189374189379%_)) + (_%K189388%_ + (if (eq? _%K189375189381%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'K:)) - _%K189269189275%_))) + _%K189375189381%_))) (force gxc#::push-match-vars-bind-methods!) - (let* ((_%self189284%_ - (let ((__obj192434 + (let* ((_%self189390%_ + (let ((__obj192540 (let () (declare (not safe)) (##structure gxc#::push-match-vars::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192434 - _%vars189280%_ + __obj192540 + _%vars189386%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj192434 - _%K189282%_ + __obj192540 + _%K189388%_ '2 '#f '#f)) - __obj192434)) - (__tmp192449 + __obj192540)) + (__tmp192555 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self189284%_ _%stx189277%_))))) + (gxc#compile-e__1 _%self189390%_ _%stx189383%_))))) (declare (not safe)) (__call-with-parameters - __tmp192449 + __tmp192555 gxc#current-compile-method - _%self189284%_))))) + _%self189390%_))))) (define gxc#apply-push-match-vars__@ - (lambda (_%@@keywords189291%_ . _%args189292%_) + (lambda (_%@@keywords189397%_ . _%args189398%_) (apply gxc#apply-push-match-vars__% - _%@@keywords189291%_ + _%@@keywords189397%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189291%_ 'vars: absent-value)) + (symbolic-table-ref _%@@keywords189397%_ 'vars: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords189291%_ 'K: absent-value)) - _%args189292%_))) + (symbolic-table-ref _%@@keywords189397%_ 'K: absent-value)) + _%args189398%_))) (define gxc#apply-push-match-vars - (lambda _%args189270189298%_ + (lambda _%args189376189404%_ (apply keyword-dispatch '#(K: vars:) gxc#apply-push-match-vars__@ - _%args189270189298%_))) + _%args189376189404%_))) (define gxc#current-annotation-optimizer (make-parameter '())) (define gxc#optimize-annotation% - (lambda (_%self189184%_ _%stx189185%_) - (let* ((_%__stx189340189341%_ _%stx189185%_) - (_%g189188189205%_ + (lambda (_%self189290%_ _%stx189291%_) + (let* ((_%__stx189446189447%_ _%stx189291%_) + (_%g189294189311%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189340189341%_))))) - (let ((_%__kont189342189343%_ - (lambda (_%L189241%_ _%L189242%_) - (let ((_%ann189258%_ + _%__stx189446189447%_))))) + (let ((_%__kont189448189449%_ + (lambda (_%L189347%_ _%L189348%_) + (let ((_%ann189364%_ (let () (declare (not safe)) - (gx#stx-e _%L189242%_)))) - (let ((__tmp192451 + (gx#stx-e _%L189348%_)))) + (let ((__tmp192557 (lambda () - (let ((_%$e189261%_ _%ann189258%_)) - (if (eq? '@match _%$e189261%_) + (let ((_%$e189367%_ _%ann189364%_)) + (if (eq? '@match _%$e189367%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing match expansion")) - (gxc#optimize-match _%L189241%_)) - (if (eq? '@syntax-case _%$e189261%_) + (gxc#optimize-match _%L189347%_)) + (if (eq? '@syntax-case _%$e189367%_) (begin (let () (declare (not safe)) (gxc#verbose '"Optimizing syntax-case expansion")) (gxc#optimize-syntax-case - _%L189241%_)) + _%L189347%_)) (let () (declare (not safe)) - (gxc#compile-e__0 _%L189241%_))))))) - (__tmp192450 - (cons _%ann189258%_ + (gxc#compile-e__0 _%L189347%_))))))) + (__tmp192556 + (cons _%ann189364%_ (let () (declare (not safe)) (gxc#current-annotation-optimizer))))) (declare (not safe)) (__call-with-parameters - __tmp192451 + __tmp192557 gxc#current-annotation-optimizer - __tmp192450))))) - (_%__kont189344189345%_ + __tmp192556))))) + (_%__kont189450189451%_ (lambda () (let () (declare (not safe)) (gxc#xform-begin-annotation% - _%self189184%_ - _%stx189185%_))))) - (let ((_%__match189365189366%_ - (lambda (_%e189192189217%_ - _%hd189193189220%_ - _%tl189194189222%_ - _%e189195189225%_ - _%hd189196189228%_ - _%tl189197189230%_ - _%e189198189233%_ - _%hd189199189236%_ - _%tl189200189238%_) - (let ((_%L189241%_ _%hd189199189236%_) - (_%L189242%_ _%hd189196189228%_)) + _%self189290%_ + _%stx189291%_))))) + (let ((_%__match189471189472%_ + (lambda (_%e189298189323%_ + _%hd189299189326%_ + _%tl189300189328%_ + _%e189301189331%_ + _%hd189302189334%_ + _%tl189303189336%_ + _%e189304189339%_ + _%hd189305189342%_ + _%tl189306189344%_) + (let ((_%L189347%_ _%hd189305189342%_) + (_%L189348%_ _%hd189302189334%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L189242%_)) - (_%__kont189342189343%_ _%L189241%_ _%L189242%_) - (_%__kont189344189345%_)))))) + (gx#identifier? _%L189348%_)) + (_%__kont189448189449%_ _%L189347%_ _%L189348%_) + (_%__kont189450189451%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189340189341%_)) - (let ((_%e189192189217%_ + (gx#stx-pair? _%__stx189446189447%_)) + (let ((_%e189298189323%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189340189341%_)))) - (let ((_%tl189194189222%_ + (gx#stx-e _%__stx189446189447%_)))) + (let ((_%tl189300189328%_ (let () (declare (not safe)) - (##cdr _%e189192189217%_))) - (_%hd189193189220%_ + (##cdr _%e189298189323%_))) + (_%hd189299189326%_ (let () (declare (not safe)) - (##car _%e189192189217%_)))) + (##car _%e189298189323%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189194189222%_)) - (let ((_%e189195189225%_ + (gx#stx-pair? _%tl189300189328%_)) + (let ((_%e189301189331%_ (let () (declare (not safe)) - (gx#stx-e _%tl189194189222%_)))) - (let ((_%tl189197189230%_ + (gx#stx-e _%tl189300189328%_)))) + (let ((_%tl189303189336%_ (let () (declare (not safe)) - (##cdr _%e189195189225%_))) - (_%hd189196189228%_ + (##cdr _%e189301189331%_))) + (_%hd189302189334%_ (let () (declare (not safe)) - (##car _%e189195189225%_)))) + (##car _%e189301189331%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189197189230%_)) - (let ((_%e189198189233%_ + (gx#stx-pair? _%tl189303189336%_)) + (let ((_%e189304189339%_ (let () (declare (not safe)) - (gx#stx-e _%tl189197189230%_)))) - (let ((_%tl189200189238%_ + (gx#stx-e _%tl189303189336%_)))) + (let ((_%tl189306189344%_ (let () (declare (not safe)) - (##cdr _%e189198189233%_))) - (_%hd189199189236%_ + (##cdr _%e189304189339%_))) + (_%hd189305189342%_ (let () (declare (not safe)) - (##car _%e189198189233%_)))) + (##car _%e189304189339%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189200189238%_)) - (_%__match189365189366%_ - _%e189192189217%_ - _%hd189193189220%_ - _%tl189194189222%_ - _%e189195189225%_ - _%hd189196189228%_ - _%tl189197189230%_ - _%e189198189233%_ - _%hd189199189236%_ - _%tl189200189238%_) - (_%__kont189344189345%_)))) - (_%__kont189344189345%_)))) - (_%__kont189344189345%_)))) - (_%__kont189344189345%_))))))) + (gx#stx-null? _%tl189306189344%_)) + (_%__match189471189472%_ + _%e189298189323%_ + _%hd189299189326%_ + _%tl189300189328%_ + _%e189301189331%_ + _%hd189302189334%_ + _%tl189303189336%_ + _%e189304189339%_ + _%hd189305189342%_ + _%tl189306189344%_) + (_%__kont189450189451%_)))) + (_%__kont189450189451%_)))) + (_%__kont189450189451%_)))) + (_%__kont189450189451%_))))))) (define gxc#optimize-match - (lambda (_%stx188483%_) - (let* ((_%g188485188515%_ - (lambda (_%g188486188512%_) + (lambda (_%stx188589%_) + (let* ((_%g188591188621%_ + (lambda (_%g188592188618%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188486188512%_)))) - (_%g188484189181%_ - (lambda (_%g188486188518%_) + _%g188592188618%_)))) + (_%g188590189287%_ + (lambda (_%g188592188624%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188486188518%_)) - (let ((_%e188490188520%_ + (gx#stx-pair? _%g188592188624%_)) + (let ((_%e188596188626%_ (let () (declare (not safe)) - (gx#stx-e _%g188486188518%_)))) - (let ((_%hd188491188523%_ + (gx#stx-e _%g188592188624%_)))) + (let ((_%hd188597188629%_ (let () (declare (not safe)) - (##car _%e188490188520%_))) - (_%tl188492188525%_ + (##car _%e188596188626%_))) + (_%tl188598188631%_ (let () (declare (not safe)) - (##cdr _%e188490188520%_)))) + (##cdr _%e188596188626%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188491188523%_)) + (gx#identifier? _%hd188597188629%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188491188523%_)) + _%hd188597188629%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188492188525%_)) - (let ((_%e188493188528%_ + (gx#stx-pair? _%tl188598188631%_)) + (let ((_%e188599188634%_ (let () (declare (not safe)) - (gx#stx-e _%tl188492188525%_)))) - (let ((_%hd188494188531%_ + (gx#stx-e _%tl188598188631%_)))) + (let ((_%hd188600188637%_ (let () (declare (not safe)) - (##car _%e188493188528%_))) - (_%tl188495188533%_ + (##car _%e188599188634%_))) + (_%tl188601188639%_ (let () (declare (not safe)) - (##cdr _%e188493188528%_)))) + (##cdr _%e188599188634%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188494188531%_)) - (let ((_%e188496188536%_ + _%hd188600188637%_)) + (let ((_%e188602188642%_ (let () (declare (not safe)) (gx#stx-e - _%hd188494188531%_)))) - (let ((_%hd188497188539%_ + _%hd188600188637%_)))) + (let ((_%hd188603188645%_ (let () (declare (not safe)) - (##car _%e188496188536%_))) - (_%tl188498188541%_ + (##car _%e188602188642%_))) + (_%tl188604188647%_ (let () (declare (not safe)) - (##cdr _%e188496188536%_)))) + (##cdr _%e188602188642%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188497188539%_)) - (let ((_%e188499188544%_ + _%hd188603188645%_)) + (let ((_%e188605188650%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd188497188539%_)))) - (let ((_%hd188500188547%_ - (let () (declare (not safe)) (##car _%e188499188544%_))) - (_%tl188501188549%_ + (gx#stx-e _%hd188603188645%_)))) + (let ((_%hd188606188653%_ + (let () (declare (not safe)) (##car _%e188605188650%_))) + (_%tl188607188655%_ (let () (declare (not safe)) - (##cdr _%e188499188544%_)))) + (##cdr _%e188605188650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188500188547%_)) - (let ((_%e188502188552%_ + (gx#stx-pair? _%hd188606188653%_)) + (let ((_%e188608188658%_ (let () (declare (not safe)) - (gx#stx-e _%hd188500188547%_)))) - (let ((_%hd188503188555%_ + (gx#stx-e _%hd188606188653%_)))) + (let ((_%hd188609188661%_ (let () (declare (not safe)) - (##car _%e188502188552%_))) - (_%tl188504188557%_ + (##car _%e188608188658%_))) + (_%tl188610188663%_ (let () (declare (not safe)) - (##cdr _%e188502188552%_)))) + (##cdr _%e188608188658%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188504188557%_)) + (gx#stx-null? _%tl188610188663%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188501188549%_)) - (let ((_%e188505188560%_ + (gx#stx-pair? _%tl188607188655%_)) + (let ((_%e188611188666%_ (let () (declare (not safe)) - (gx#stx-e _%tl188501188549%_)))) - (let ((_%hd188506188563%_ + (gx#stx-e _%tl188607188655%_)))) + (let ((_%hd188612188669%_ (let () (declare (not safe)) - (##car _%e188505188560%_))) - (_%tl188507188565%_ + (##car _%e188611188666%_))) + (_%tl188613188671%_ (let () (declare (not safe)) - (##cdr _%e188505188560%_)))) + (##cdr _%e188611188666%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188507188565%_)) + (gx#stx-null? _%tl188613188671%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188498188541%_)) + _%tl188604188647%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188495188533%_)) - (let ((_%e188508188568%_ + _%tl188601188639%_)) + (let ((_%e188614188674%_ (let () (declare (not safe)) (gx#stx-e - _%tl188495188533%_)))) - (let ((_%hd188509188571%_ + _%tl188601188639%_)))) + (let ((_%hd188615188677%_ (let () (declare (not safe)) - (##car _%e188508188568%_))) - (_%tl188510188573%_ + (##car _%e188614188674%_))) + (_%tl188616188679%_ (let () (declare (not safe)) - (##cdr _%e188508188568%_)))) + (##cdr _%e188614188674%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188510188573%_)) - ((lambda (_%L188576%_ + _%tl188616188679%_)) + ((lambda (_%L188682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L188577%_ - _%L188578%_) - (let _%lp188602%_ ((_%body188604%_ _%L188576%_) - (_%negation188605%_ - (cons _%L188578%_ _%L188577%_)) - (_%clauses188606%_ '()) - (_%konts188607%_ '())) - (let* ((_%__stx189548189549%_ _%body188604%_) - (_%g188610188650%_ + _%L188683%_ + _%L188684%_) + (let _%lp188708%_ ((_%body188710%_ _%L188682%_) + (_%negation188711%_ + (cons _%L188684%_ _%L188683%_)) + (_%clauses188712%_ '()) + (_%konts188713%_ '())) + (let* ((_%__stx189654189655%_ _%body188710%_) + (_%g188716188756%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189548189549%_))))) - (let ((_%__kont189550189551%_ - (lambda (_%L188980%_) - (let* ((_%__stx189484189485%_ _%L188980%_) - (_%g188994189024%_ + _%__stx189654189655%_))))) + (let ((_%__kont189656189657%_ + (lambda (_%L189086%_) + (let* ((_%__stx189590189591%_ _%L189086%_) + (_%g189100189130%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189484189485%_))))) - (let ((_%__kont189486189487%_ - (lambda (_%L189120%_ - _%L189121%_ - _%L189122%_) - (if (null? _%clauses188606%_) - (let* ((_%negation189146189153%_ - _%negation188605%_) - (_%E189148189157%_ + _%__stx189590189591%_))))) + (let ((_%__kont189592189593%_ + (lambda (_%L189226%_ + _%L189227%_ + _%L189228%_) + (if (null? _%clauses188712%_) + (let* ((_%negation189252189259%_ + _%negation188711%_) + (_%E189254189263%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%negation189146189153%_ + _%negation189252189259%_ '([E . negate]))) '#!void)) - (_%K189149189163%_ - (lambda (_%negate189160%_ _%E189161%_) - (let ((__tmp192452 + (_%K189255189269%_ + (lambda (_%negate189266%_ _%E189267%_) + (let ((__tmp192558 (cons '%#let-values - (cons (cons (cons (cons _%E189161%_ '()) - (cons _%negate189160%_ '())) + (cons (cons (cons (cons _%E189267%_ '()) + (cons _%negate189266%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L189122%_ + (cons (cons (cons (cons _%L189228%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%L189121%_)) + (gxc#compile-e__0 _%L189227%_)) '())) '()) - (cons _%L189120%_ '()))) + (cons _%L189226%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192452 _%stx188483%_))))) + (gxc#xform-wrap-source __tmp192558 _%stx188589%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation189146189153%_) - (let ((_%hd189150189166%_ + (if (pair? _%negation189252189259%_) + (let ((_%hd189256189272%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%negation189146189153%_))) - (_%tl189151189168%_ + (##car _%negation189252189259%_))) + (_%tl189257189274%_ (let () (declare (not safe)) - (##cdr _%negation189146189153%_)))) - (let* ((_%E189171%_ _%hd189150189166%_) - (_%negate189173%_ _%tl189151189168%_)) - (_%K189149189163%_ _%negate189173%_ _%E189171%_))) - (_%E189148189157%_))) + (##cdr _%negation189252189259%_)))) + (let* ((_%E189277%_ _%hd189256189272%_) + (_%negate189279%_ _%tl189257189274%_)) + (_%K189255189269%_ _%negate189279%_ _%E189277%_))) + (_%E189254189263%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gxc#optimize-match-body - _%stx188483%_ - _%negation188605%_ + _%stx188589%_ + _%negation188711%_ (cons (cons '#f (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L189120%_ '())))) - _%clauses188606%_) + (cons '() (cons _%L189226%_ '())))) + _%clauses188712%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L189122%_ + (cons (cons _%L189228%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__0 _%L189121%_))) - _%konts188607%_))))) + (gxc#compile-e__0 _%L189227%_))) + _%konts188713%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189488189489%_ + (_%__kont189594189595%_ (lambda () - (let* ((_%negation189030189037%_ - _%negation188605%_) - (_%E189032189041%_ + (let* ((_%negation189136189143%_ + _%negation188711%_) + (_%E189138189147%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation189030189037%_ + _%negation189136189143%_ '([E ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . negate]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K189033189047%_ - (lambda (_%negate189044%_ - _%E189045%_) - (let ((__tmp192453 + (_%K189139189153%_ + (lambda (_%negate189150%_ + _%E189151%_) + (let ((__tmp192559 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%E189045%_ '()) - (cons _%negate189044%_ '())) + (cons (cons (cons (cons _%E189151%_ '()) + (cons _%negate189150%_ '())) '()) - (cons _%L188980%_ '()))))) + (cons _%L189086%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192453 _%stx188483%_))))) + (gxc#xform-wrap-source __tmp192559 _%stx188589%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%negation189030189037%_) - (let ((_%hd189034189050%_ + (if (pair? _%negation189136189143%_) + (let ((_%hd189140189156%_ (let () (declare (not safe)) - (##car _%negation189030189037%_))) - (_%tl189035189052%_ + (##car _%negation189136189143%_))) + (_%tl189141189158%_ (let () (declare (not safe)) - (##cdr _%negation189030189037%_)))) - (let* ((_%E189055%_ - _%hd189034189050%_) - (_%negate189057%_ - _%tl189035189052%_)) - (_%K189033189047%_ - _%negate189057%_ - _%E189055%_))) - (_%E189032189041%_)))))) - (let ((_%g188993189059%_ + (##cdr _%negation189136189143%_)))) + (let* ((_%E189161%_ + _%hd189140189156%_) + (_%negate189163%_ + _%tl189141189158%_)) + (_%K189139189153%_ + _%negate189163%_ + _%E189161%_))) + (_%E189138189147%_)))))) + (let ((_%g189099189165%_ (lambda () - (if (null? _%clauses188606%_) - (_%__kont189488189489%_) + (if (null? _%clauses188712%_) + (_%__kont189594189595%_) (let () (declare (not safe)) - (_%g188994189024%_)))))) + (_%g189100189130%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189484189485%_)) - (let ((_%e188999189064%_ + _%__stx189590189591%_)) + (let ((_%e189105189170%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189484189485%_)))) - (let ((_%tl189001189069%_ + _%__stx189590189591%_)))) + (let ((_%tl189107189175%_ (let () (declare (not safe)) - (##cdr _%e188999189064%_))) - (_%hd189000189067%_ + (##cdr _%e189105189170%_))) + (_%hd189106189173%_ (let () (declare (not safe)) - (##car _%e188999189064%_)))) + (##car _%e189105189170%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd189000189067%_)) + _%hd189106189173%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd189000189067%_)) + _%hd189106189173%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189001189069%_)) - (let ((_%e189002189072%_ + _%tl189107189175%_)) + (let ((_%e189108189178%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl189001189069%_)))) - (let ((_%tl189004189077%_ + (gx#stx-e _%tl189107189175%_)))) + (let ((_%tl189110189183%_ (let () (declare (not safe)) - (##cdr _%e189002189072%_))) - (_%hd189003189075%_ + (##cdr _%e189108189178%_))) + (_%hd189109189181%_ (let () (declare (not safe)) - (##car _%e189002189072%_)))) + (##car _%e189108189178%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189003189075%_)) - (let ((_%e189005189080%_ + (gx#stx-pair? _%hd189109189181%_)) + (let ((_%e189111189186%_ (let () (declare (not safe)) - (gx#stx-e _%hd189003189075%_)))) - (let ((_%tl189007189085%_ + (gx#stx-e _%hd189109189181%_)))) + (let ((_%tl189113189191%_ (let () (declare (not safe)) - (##cdr _%e189005189080%_))) - (_%hd189006189083%_ + (##cdr _%e189111189186%_))) + (_%hd189112189189%_ (let () (declare (not safe)) - (##car _%e189005189080%_)))) + (##car _%e189111189186%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd189006189083%_)) - (let ((_%e189008189088%_ + (gx#stx-pair? _%hd189112189189%_)) + (let ((_%e189114189194%_ (let () (declare (not safe)) - (gx#stx-e _%hd189006189083%_)))) - (let ((_%tl189010189093%_ + (gx#stx-e _%hd189112189189%_)))) + (let ((_%tl189116189199%_ (let () (declare (not safe)) - (##cdr _%e189008189088%_))) - (_%hd189009189091%_ + (##cdr _%e189114189194%_))) + (_%hd189115189197%_ (let () (declare (not safe)) - (##car _%e189008189088%_)))) + (##car _%e189114189194%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd189009189091%_)) - (let ((_%e189011189096%_ + _%hd189115189197%_)) + (let ((_%e189117189202%_ (let () (declare (not safe)) (gx#stx-e - _%hd189009189091%_)))) - (let ((_%tl189013189101%_ + _%hd189115189197%_)))) + (let ((_%tl189119189207%_ (let () (declare (not safe)) - (##cdr _%e189011189096%_))) - (_%hd189012189099%_ + (##cdr _%e189117189202%_))) + (_%hd189118189205%_ (let () (declare (not safe)) - (##car _%e189011189096%_)))) + (##car _%e189117189202%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl189013189101%_)) + _%tl189119189207%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl189010189093%_)) - (let ((_%e189014189104%_ + _%tl189116189199%_)) + (let ((_%e189120189210%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl189010189093%_)))) - (let ((_%tl189016189109%_ + (gx#stx-e _%tl189116189199%_)))) + (let ((_%tl189122189215%_ (let () (declare (not safe)) - (##cdr _%e189014189104%_))) - (_%hd189015189107%_ + (##cdr _%e189120189210%_))) + (_%hd189121189213%_ (let () (declare (not safe)) - (##car _%e189014189104%_)))) + (##car _%e189120189210%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189016189109%_)) + (gx#stx-null? _%tl189122189215%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189007189085%_)) + (gx#stx-null? _%tl189113189191%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl189004189077%_)) - (let ((_%e189017189112%_ + (gx#stx-pair? _%tl189110189183%_)) + (let ((_%e189123189218%_ (let () (declare (not safe)) - (gx#stx-e _%tl189004189077%_)))) - (let ((_%tl189019189117%_ + (gx#stx-e _%tl189110189183%_)))) + (let ((_%tl189125189223%_ (let () (declare (not safe)) - (##cdr _%e189017189112%_))) - (_%hd189018189115%_ + (##cdr _%e189123189218%_))) + (_%hd189124189221%_ (let () (declare (not safe)) - (##car _%e189017189112%_)))) + (##car _%e189123189218%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl189019189117%_)) - (_%__kont189486189487%_ - _%hd189018189115%_ - _%hd189015189107%_ - _%hd189012189099%_) + (gx#stx-null? _%tl189125189223%_)) + (_%__kont189592189593%_ + _%hd189124189221%_ + _%hd189121189213%_ + _%hd189118189205%_) (let () (declare (not safe)) - (_%g188993189059%_))))) + (_%g189099189165%_))))) (let () (declare (not safe)) - (_%g188993189059%_))) - (let () (declare (not safe)) (_%g188993189059%_))) - (let () (declare (not safe)) (_%g188993189059%_))))) - (let () (declare (not safe)) (_%g188993189059%_))) + (_%g189099189165%_))) + (let () (declare (not safe)) (_%g189099189165%_))) + (let () (declare (not safe)) (_%g189099189165%_))))) + (let () (declare (not safe)) (_%g189099189165%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188993189059%_))))) + (_%g189099189165%_))))) (let () (declare (not safe)) - (_%g188993189059%_))))) + (_%g189099189165%_))))) (let () (declare (not safe)) - (_%g188993189059%_))))) + (_%g189099189165%_))))) (let () (declare (not safe)) - (_%g188993189059%_))))) - (let () (declare (not safe)) (_%g188993189059%_))) - (let () (declare (not safe)) (_%g188993189059%_))) + (_%g189099189165%_))))) + (let () (declare (not safe)) (_%g189099189165%_))) + (let () (declare (not safe)) (_%g189099189165%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188993189059%_))))) + (_%g189099189165%_))))) (let () (declare (not safe)) - (_%g188993189059%_)))))))) - (_%__kont189552189553%_ - (lambda (_%L188711%_ _%L188712%_ _%L188713%_) - (let* ((_%__stx189368189369%_ _%L188712%_) - (_%g188740188789%_ + (_%g189099189165%_)))))))) + (_%__kont189658189659%_ + (lambda (_%L188817%_ _%L188818%_ _%L188819%_) + (let* ((_%__stx189474189475%_ _%L188818%_) + (_%g188846188895%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189368189369%_))))) - (let ((_%__kont189370189371%_ - (lambda (_%L188917%_ - _%L188918%_ - _%L188919%_) - (_%lp188602%_ - _%L188711%_ - _%negation188605%_ - (cons (cons _%L188713%_ + _%__stx189474189475%_))))) + (let ((_%__kont189476189477%_ + (lambda (_%L189023%_ + _%L189024%_ + _%L189025%_) + (_%lp188708%_ + _%L188817%_ + _%negation188711%_ + (cons (cons _%L188819%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons '() (cons _%L188917%_ '())))) + (cons '() (cons _%L189023%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clauses188606%_) - (cons (cons _%L188919%_ + _%clauses188712%_) + (cons (cons _%L189025%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188918%_))) - _%konts188607%_)))) - (_%__kont189372189373%_ - (lambda (_%L188818%_) - (_%lp188602%_ - _%L188711%_ - (cons _%L188713%_ + _%L189024%_))) + _%konts188713%_)))) + (_%__kont189478189479%_ + (lambda (_%L188924%_) + (_%lp188708%_ + _%L188817%_ + (cons _%L188819%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L188818%_))) - _%clauses188606%_ - _%konts188607%_)))) + _%L188924%_))) + _%clauses188712%_ + _%konts188713%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189368189369%_)) - (let ((_%e188745188837%_ + _%__stx189474189475%_)) + (let ((_%e188851188943%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189368189369%_)))) - (let ((_%tl188747188842%_ + _%__stx189474189475%_)))) + (let ((_%tl188853188948%_ (let () (declare (not safe)) - (##cdr _%e188745188837%_))) - (_%hd188746188840%_ + (##cdr _%e188851188943%_))) + (_%hd188852188946%_ (let () (declare (not safe)) - (##car _%e188745188837%_)))) + (##car _%e188851188943%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188746188840%_)) + _%hd188852188946%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188746188840%_)) + _%hd188852188946%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188747188842%_)) - (let ((_%e188748188845%_ + _%tl188853188948%_)) + (let ((_%e188854188951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl188747188842%_)))) - (let ((_%tl188750188850%_ + (gx#stx-e _%tl188853188948%_)))) + (let ((_%tl188856188956%_ (let () (declare (not safe)) - (##cdr _%e188748188845%_))) - (_%hd188749188848%_ + (##cdr _%e188854188951%_))) + (_%hd188855188954%_ (let () (declare (not safe)) - (##car _%e188748188845%_)))) + (##car _%e188854188951%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd188749188848%_)) + (gx#stx-null? _%hd188855188954%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188750188850%_)) - (let ((_%e188751188853%_ + (gx#stx-pair? _%tl188856188956%_)) + (let ((_%e188857188959%_ (let () (declare (not safe)) - (gx#stx-e _%tl188750188850%_)))) - (let ((_%tl188753188858%_ + (gx#stx-e _%tl188856188956%_)))) + (let ((_%tl188859188964%_ (let () (declare (not safe)) - (##cdr _%e188751188853%_))) - (_%hd188752188856%_ + (##cdr _%e188857188959%_))) + (_%hd188858188962%_ (let () (declare (not safe)) - (##car _%e188751188853%_)))) + (##car _%e188857188959%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188752188856%_)) - (let ((_%e188754188861%_ + (gx#stx-pair? _%hd188858188962%_)) + (let ((_%e188860188967%_ (let () (declare (not safe)) - (gx#stx-e _%hd188752188856%_)))) - (let ((_%tl188756188866%_ + (gx#stx-e _%hd188858188962%_)))) + (let ((_%tl188862188972%_ (let () (declare (not safe)) - (##cdr _%e188754188861%_))) - (_%hd188755188864%_ + (##cdr _%e188860188967%_))) + (_%hd188861188970%_ (let () (declare (not safe)) - (##car _%e188754188861%_)))) + (##car _%e188860188967%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188755188864%_)) + _%hd188861188970%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188755188864%_)) + _%hd188861188970%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188756188866%_)) - (let ((_%e188757188869%_ + _%tl188862188972%_)) + (let ((_%e188863188975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl188756188866%_)))) - (let ((_%tl188759188874%_ - (let () (declare (not safe)) (##cdr _%e188757188869%_))) - (_%hd188758188872%_ + (gx#stx-e _%tl188862188972%_)))) + (let ((_%tl188865188980%_ + (let () (declare (not safe)) (##cdr _%e188863188975%_))) + (_%hd188864188978%_ (let () (declare (not safe)) - (##car _%e188757188869%_)))) + (##car _%e188863188975%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188758188872%_)) - (let ((_%e188760188877%_ + (gx#stx-pair? _%hd188864188978%_)) + (let ((_%e188866188983%_ (let () (declare (not safe)) - (gx#stx-e _%hd188758188872%_)))) - (let ((_%tl188762188882%_ + (gx#stx-e _%hd188864188978%_)))) + (let ((_%tl188868188988%_ (let () (declare (not safe)) - (##cdr _%e188760188877%_))) - (_%hd188761188880%_ + (##cdr _%e188866188983%_))) + (_%hd188867188986%_ (let () (declare (not safe)) - (##car _%e188760188877%_)))) + (##car _%e188866188983%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188761188880%_)) - (let ((_%e188763188885%_ + (gx#stx-pair? _%hd188867188986%_)) + (let ((_%e188869188991%_ (let () (declare (not safe)) - (gx#stx-e _%hd188761188880%_)))) - (let ((_%tl188765188890%_ + (gx#stx-e _%hd188867188986%_)))) + (let ((_%tl188871188996%_ (let () (declare (not safe)) - (##cdr _%e188763188885%_))) - (_%hd188764188888%_ + (##cdr _%e188869188991%_))) + (_%hd188870188994%_ (let () (declare (not safe)) - (##car _%e188763188885%_)))) + (##car _%e188869188991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188764188888%_)) - (let ((_%e188766188893%_ + (gx#stx-pair? _%hd188870188994%_)) + (let ((_%e188872188999%_ (let () (declare (not safe)) - (gx#stx-e _%hd188764188888%_)))) - (let ((_%tl188768188898%_ + (gx#stx-e _%hd188870188994%_)))) + (let ((_%tl188874189004%_ (let () (declare (not safe)) - (##cdr _%e188766188893%_))) - (_%hd188767188896%_ + (##cdr _%e188872188999%_))) + (_%hd188873189002%_ (let () (declare (not safe)) - (##car _%e188766188893%_)))) + (##car _%e188872188999%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188768188898%_)) + _%tl188874189004%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188765188890%_)) - (let ((_%e188769188901%_ + _%tl188871188996%_)) + (let ((_%e188875189007%_ (let () (declare (not safe)) (gx#stx-e - _%tl188765188890%_)))) - (let ((_%tl188771188906%_ + _%tl188871188996%_)))) + (let ((_%tl188877189012%_ (let () (declare (not safe)) - (##cdr _%e188769188901%_))) - (_%hd188770188904%_ + (##cdr _%e188875189007%_))) + (_%hd188876189010%_ (let () (declare (not safe)) - (##car _%e188769188901%_)))) + (##car _%e188875189007%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188771188906%_)) + _%tl188877189012%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl188762188882%_)) + (gx#stx-null? _%tl188868188988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188759188874%_)) - (let ((_%e188772188909%_ + (gx#stx-pair? _%tl188865188980%_)) + (let ((_%e188878189015%_ (let () (declare (not safe)) - (gx#stx-e _%tl188759188874%_)))) - (let ((_%tl188774188914%_ + (gx#stx-e _%tl188865188980%_)))) + (let ((_%tl188880189020%_ (let () (declare (not safe)) - (##cdr _%e188772188909%_))) - (_%hd188773188912%_ + (##cdr _%e188878189015%_))) + (_%hd188879189018%_ (let () (declare (not safe)) - (##car _%e188772188909%_)))) + (##car _%e188878189015%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188774188914%_)) + (gx#stx-null? _%tl188880189020%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188753188858%_)) - (_%__kont189370189371%_ - _%hd188773188912%_ - _%hd188770188904%_ - _%hd188767188896%_) + (gx#stx-null? _%tl188859188964%_)) + (_%__kont189476189477%_ + _%hd188879189018%_ + _%hd188876189010%_ + _%hd188873189002%_) (let () (declare (not safe)) - (_%g188740188789%_))) + (_%g188846188895%_))) (let () (declare (not safe)) - (_%g188740188789%_))))) - (let () (declare (not safe)) (_%g188740188789%_))) - (let () (declare (not safe)) (_%g188740188789%_))) - (let () (declare (not safe)) (_%g188740188789%_))))) + (_%g188846188895%_))))) + (let () (declare (not safe)) (_%g188846188895%_))) + (let () (declare (not safe)) (_%g188846188895%_))) + (let () (declare (not safe)) (_%g188846188895%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188740188789%_))) + (_%g188846188895%_))) (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_))))) - (let () (declare (not safe)) (_%g188740188789%_))))) - (let () (declare (not safe)) (_%g188740188789%_))) + (_%g188846188895%_))))) + (let () (declare (not safe)) (_%g188846188895%_))))) + (let () (declare (not safe)) (_%g188846188895%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188740188789%_))) + (_%g188846188895%_))) (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_))) - (let () (declare (not safe)) (_%g188740188789%_))))) - (let () (declare (not safe)) (_%g188740188789%_))) + (_%g188846188895%_))) + (let () (declare (not safe)) (_%g188846188895%_))))) + (let () (declare (not safe)) (_%g188846188895%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#begin-annotation _%hd188746188840%_)) + (gx#stx-eq? '%#begin-annotation _%hd188852188946%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188747188842%_)) - (let ((_%e188779188802%_ + (gx#stx-pair? _%tl188853188948%_)) + (let ((_%e188885188908%_ (let () (declare (not safe)) - (gx#stx-e _%tl188747188842%_)))) - (let ((_%tl188781188807%_ + (gx#stx-e _%tl188853188948%_)))) + (let ((_%tl188887188913%_ (let () (declare (not safe)) - (##cdr _%e188779188802%_))) - (_%hd188780188805%_ + (##cdr _%e188885188908%_))) + (_%hd188886188911%_ (let () (declare (not safe)) - (##car _%e188779188802%_)))) + (##car _%e188885188908%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188780188805%_)) + (gx#identifier? _%hd188886188911%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-else - _%hd188780188805%_)) + _%hd188886188911%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl188781188807%_)) - (let ((_%e188782188810%_ + (gx#stx-pair? _%tl188887188913%_)) + (let ((_%e188888188916%_ (let () (declare (not safe)) - (gx#stx-e _%tl188781188807%_)))) - (let ((_%tl188784188815%_ + (gx#stx-e _%tl188887188913%_)))) + (let ((_%tl188890188921%_ (let () (declare (not safe)) - (##cdr _%e188782188810%_))) - (_%hd188783188813%_ + (##cdr _%e188888188916%_))) + (_%hd188889188919%_ (let () (declare (not safe)) - (##car _%e188782188810%_)))) + (##car _%e188888188916%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188784188815%_)) - (_%__kont189372189373%_ - _%hd188783188813%_) + _%tl188890188921%_)) + (_%__kont189478189479%_ + _%hd188889188919%_) (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_))) + (_%g188846188895%_))) (let () (declare (not safe)) - (_%g188740188789%_))) + (_%g188846188895%_))) (let () (declare (not safe)) - (_%g188740188789%_))))) - (let () (declare (not safe)) (_%g188740188789%_))) - (let () (declare (not safe)) (_%g188740188789%_)))) + (_%g188846188895%_))))) + (let () (declare (not safe)) (_%g188846188895%_))) + (let () (declare (not safe)) (_%g188846188895%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188740188789%_))))) + (_%g188846188895%_))))) (let () (declare (not safe)) - (_%g188740188789%_)))))))) + (_%g188846188895%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189548189549%_)) - (let ((_%e188613188956%_ + (gx#stx-pair? _%__stx189654189655%_)) + (let ((_%e188719189062%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189548189549%_)))) - (let ((_%tl188615188961%_ + (gx#stx-e _%__stx189654189655%_)))) + (let ((_%tl188721189067%_ (let () (declare (not safe)) - (##cdr _%e188613188956%_))) - (_%hd188614188959%_ + (##cdr _%e188719189062%_))) + (_%hd188720189065%_ (let () (declare (not safe)) - (##car _%e188613188956%_)))) + (##car _%e188719189062%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd188614188959%_)) + (gx#identifier? _%hd188720189065%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#begin-annotation - _%hd188614188959%_)) + _%hd188720189065%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188615188961%_)) - (let ((_%e188616188964%_ + _%tl188721189067%_)) + (let ((_%e188722189070%_ (let () (declare (not safe)) (gx#stx-e - _%tl188615188961%_)))) - (let ((_%tl188618188969%_ + _%tl188721189067%_)))) + (let ((_%tl188724189075%_ (let () (declare (not safe)) - (##cdr _%e188616188964%_))) - (_%hd188617188967%_ + (##cdr _%e188722189070%_))) + (_%hd188723189073%_ (let () (declare (not safe)) - (##car _%e188616188964%_)))) + (##car _%e188722189070%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188617188967%_)) + _%hd188723189073%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@match-body - _%hd188617188967%_)) + _%hd188723189073%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188618188969%_)) - (let ((_%e188619188972%_ + (gx#stx-pair? _%tl188724189075%_)) + (let ((_%e188725189078%_ (let () (declare (not safe)) - (gx#stx-e _%tl188618188969%_)))) - (let ((_%tl188621188977%_ + (gx#stx-e _%tl188724189075%_)))) + (let ((_%tl188727189083%_ (let () (declare (not safe)) - (##cdr _%e188619188972%_))) - (_%hd188620188975%_ + (##cdr _%e188725189078%_))) + (_%hd188726189081%_ (let () (declare (not safe)) - (##car _%e188619188972%_)))) + (##car _%e188725189078%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188621188977%_)) - (_%__kont189550189551%_ _%hd188620188975%_) + (gx#stx-null? _%tl188727189083%_)) + (_%__kont189656189657%_ _%hd188726189081%_) (let () (declare (not safe)) - (_%g188610188650%_))))) - (let () (declare (not safe)) (_%g188610188650%_))) - (let () (declare (not safe)) (_%g188610188650%_))) - (let () (declare (not safe)) (_%g188610188650%_))))) + (_%g188716188756%_))))) + (let () (declare (not safe)) (_%g188716188756%_))) + (let () (declare (not safe)) (_%g188716188756%_))) + (let () (declare (not safe)) (_%g188716188756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188610188650%_))) + (_%g188716188756%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd188614188959%_)) + _%hd188720189065%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188615188961%_)) - (let ((_%e188628188663%_ + _%tl188721189067%_)) + (let ((_%e188734188769%_ (let () (declare (not safe)) (gx#stx-e - _%tl188615188961%_)))) - (let ((_%tl188630188668%_ + _%tl188721189067%_)))) + (let ((_%tl188736188774%_ (let () (declare (not safe)) - (##cdr _%e188628188663%_))) - (_%hd188629188666%_ + (##cdr _%e188734188769%_))) + (_%hd188735188772%_ (let () (declare (not safe)) - (##car _%e188628188663%_)))) + (##car _%e188734188769%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd188629188666%_)) - (let ((_%e188631188671%_ + _%hd188735188772%_)) + (let ((_%e188737188777%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd188629188666%_)))) - (let ((_%tl188633188676%_ + (gx#stx-e _%hd188735188772%_)))) + (let ((_%tl188739188782%_ (let () (declare (not safe)) - (##cdr _%e188631188671%_))) - (_%hd188632188674%_ + (##cdr _%e188737188777%_))) + (_%hd188738188780%_ (let () (declare (not safe)) - (##car _%e188631188671%_)))) + (##car _%e188737188777%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188632188674%_)) - (let ((_%e188634188679%_ + (gx#stx-pair? _%hd188738188780%_)) + (let ((_%e188740188785%_ (let () (declare (not safe)) - (gx#stx-e _%hd188632188674%_)))) - (let ((_%tl188636188684%_ + (gx#stx-e _%hd188738188780%_)))) + (let ((_%tl188742188790%_ (let () (declare (not safe)) - (##cdr _%e188634188679%_))) - (_%hd188635188682%_ + (##cdr _%e188740188785%_))) + (_%hd188741188788%_ (let () (declare (not safe)) - (##car _%e188634188679%_)))) + (##car _%e188740188785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd188635188682%_)) - (let ((_%e188637188687%_ + (gx#stx-pair? _%hd188741188788%_)) + (let ((_%e188743188793%_ (let () (declare (not safe)) - (gx#stx-e _%hd188635188682%_)))) - (let ((_%tl188639188692%_ + (gx#stx-e _%hd188741188788%_)))) + (let ((_%tl188745188798%_ (let () (declare (not safe)) - (##cdr _%e188637188687%_))) - (_%hd188638188690%_ + (##cdr _%e188743188793%_))) + (_%hd188744188796%_ (let () (declare (not safe)) - (##car _%e188637188687%_)))) + (##car _%e188743188793%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188639188692%_)) + (gx#stx-null? _%tl188745188798%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188636188684%_)) - (let ((_%e188640188695%_ + _%tl188742188790%_)) + (let ((_%e188746188801%_ (let () (declare (not safe)) (gx#stx-e - _%tl188636188684%_)))) - (let ((_%tl188642188700%_ + _%tl188742188790%_)))) + (let ((_%tl188748188806%_ (let () (declare (not safe)) - (##cdr _%e188640188695%_))) - (_%hd188641188698%_ + (##cdr _%e188746188801%_))) + (_%hd188747188804%_ (let () (declare (not safe)) - (##car _%e188640188695%_)))) + (##car _%e188746188801%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188642188700%_)) + _%tl188748188806%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl188633188676%_)) + _%tl188739188782%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl188630188668%_)) - (let ((_%e188643188703%_ + (gx#stx-pair? _%tl188736188774%_)) + (let ((_%e188749188809%_ (let () (declare (not safe)) - (gx#stx-e _%tl188630188668%_)))) - (let ((_%tl188645188708%_ + (gx#stx-e _%tl188736188774%_)))) + (let ((_%tl188751188814%_ (let () (declare (not safe)) - (##cdr _%e188643188703%_))) - (_%hd188644188706%_ + (##cdr _%e188749188809%_))) + (_%hd188750188812%_ (let () (declare (not safe)) - (##car _%e188643188703%_)))) + (##car _%e188749188809%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188645188708%_)) - (_%__kont189552189553%_ - _%hd188644188706%_ - _%hd188641188698%_ - _%hd188638188690%_) + (gx#stx-null? _%tl188751188814%_)) + (_%__kont189658189659%_ + _%hd188750188812%_ + _%hd188747188804%_ + _%hd188744188796%_) (let () (declare (not safe)) - (_%g188610188650%_))))) - (let () (declare (not safe)) (_%g188610188650%_))) - (let () (declare (not safe)) (_%g188610188650%_))) - (let () (declare (not safe)) (_%g188610188650%_))))) + (_%g188716188756%_))))) + (let () (declare (not safe)) (_%g188716188756%_))) + (let () (declare (not safe)) (_%g188716188756%_))) + (let () (declare (not safe)) (_%g188716188756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188610188650%_))) + (_%g188716188756%_))) (let () (declare (not safe)) - (_%g188610188650%_))))) + (_%g188716188756%_))))) (let () (declare (not safe)) - (_%g188610188650%_))))) - (let () (declare (not safe)) (_%g188610188650%_))))) - (let () (declare (not safe)) (_%g188610188650%_))))) + (_%g188716188756%_))))) + (let () (declare (not safe)) (_%g188716188756%_))))) + (let () (declare (not safe)) (_%g188716188756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g188610188650%_))) + (_%g188716188756%_))) (let () (declare (not safe)) - (_%g188610188650%_)))) + (_%g188716188756%_)))) (let () (declare (not safe)) - (_%g188610188650%_))))) + (_%g188716188756%_))))) (let () (declare (not safe)) - (_%g188610188650%_))))))) - _%hd188509188571%_ - _%hd188506188563%_ - _%hd188503188555%_) - (_%g188485188515%_ _%g188486188518%_)))) + (_%g188716188756%_))))))) + _%hd188615188677%_ + _%hd188612188669%_ + _%hd188609188661%_) + (_%g188591188621%_ _%g188592188624%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188485188515%_ - _%g188486188518%_)) - (_%g188485188515%_ - _%g188486188518%_)) - (_%g188485188515%_ - _%g188486188518%_)))) - (_%g188485188515%_ _%g188486188518%_)) - (_%g188485188515%_ _%g188486188518%_)))) - (_%g188485188515%_ _%g188486188518%_)))) - (_%g188485188515%_ _%g188486188518%_)))) + (_%g188591188621%_ + _%g188592188624%_)) + (_%g188591188621%_ + _%g188592188624%_)) + (_%g188591188621%_ + _%g188592188624%_)))) + (_%g188591188621%_ _%g188592188624%_)) + (_%g188591188621%_ _%g188592188624%_)))) + (_%g188591188621%_ _%g188592188624%_)))) + (_%g188591188621%_ _%g188592188624%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188485188515%_ - _%g188486188518%_)))) - (_%g188485188515%_ _%g188486188518%_)) - (_%g188485188515%_ _%g188486188518%_)) - (_%g188485188515%_ _%g188486188518%_)))) - (_%g188485188515%_ _%g188486188518%_))))) - (_%g188484189181%_ _%stx188483%_)))) + (_%g188591188621%_ + _%g188592188624%_)))) + (_%g188591188621%_ _%g188592188624%_)) + (_%g188591188621%_ _%g188592188624%_)) + (_%g188591188621%_ _%g188592188624%_)))) + (_%g188591188621%_ _%g188592188624%_))))) + (_%g188590189287%_ _%stx188589%_)))) (define gxc#optimize-match-body - (lambda (_%stx188189%_ - _%negation188190%_ - _%clauses188191%_ - _%konts188192%_) - (letrec ((_%push-variables188194%_ - (lambda (_%clause188441%_ _%kont188442%_) - (let ((_%clause188443188453%_ _%clause188441%_) - (_%kont188444188455%_ _%kont188442%_)) - (let* ((_%E188446188459%_ + (lambda (_%stx188295%_ + _%negation188296%_ + _%clauses188297%_ + _%konts188298%_) + (letrec ((_%push-variables188300%_ + (lambda (_%clause188547%_ _%kont188548%_) + (let ((_%clause188549188559%_ _%clause188547%_) + (_%kont188550188561%_ _%kont188548%_)) + (let* ((_%E188552188565%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause188443188453%_ - _%kont188444188455%_ + _%clause188549188559%_ + _%kont188550188561%_ '([clause-name . clause-lambda] [K . _]))) '#!void)) - (_%K188447188466%_ - (lambda (_%clause-lambda188462%_ - _%clause-name188463%_ - _%K188464%_) - (cons _%clause-name188463%_ + (_%K188553188572%_ + (lambda (_%clause-lambda188568%_ + _%clause-name188569%_ + _%K188570%_) + (cons _%clause-name188569%_ (gxc#apply-push-match-vars__% '#f '() - _%K188464%_ - _%clause-lambda188462%_))))) - (if (pair? _%clause188443188453%_) - (let ((_%hd188450188469%_ + _%K188570%_ + _%clause-lambda188568%_))))) + (if (pair? _%clause188549188559%_) + (let ((_%hd188556188575%_ (let () (declare (not safe)) - (##car _%clause188443188453%_))) - (_%tl188451188471%_ + (##car _%clause188549188559%_))) + (_%tl188557188577%_ (let () (declare (not safe)) - (##cdr _%clause188443188453%_)))) - (let* ((_%clause-name188474%_ _%hd188450188469%_) - (_%clause-lambda188476%_ - _%tl188451188471%_)) - (if (pair? _%kont188444188455%_) - (let* ((_%hd188448188478%_ + (##cdr _%clause188549188559%_)))) + (let* ((_%clause-name188580%_ _%hd188556188575%_) + (_%clause-lambda188582%_ + _%tl188557188577%_)) + (if (pair? _%kont188550188561%_) + (let* ((_%hd188554188584%_ (let () (declare (not safe)) - (##car _%kont188444188455%_))) - (_%K188481%_ _%hd188448188478%_)) - (_%K188447188466%_ - _%clause-lambda188476%_ - _%clause-name188474%_ - _%K188481%_)) - (_%E188446188459%_)))) - (_%E188446188459%_)))))) - (_%start-match188195%_ - (lambda (_%kont188375%_) - (let* ((_%g188377188393%_ - (lambda (_%g188378188390%_) + (##car _%kont188550188561%_))) + (_%K188587%_ _%hd188554188584%_)) + (_%K188553188572%_ + _%clause-lambda188582%_ + _%clause-name188580%_ + _%K188587%_)) + (_%E188552188565%_)))) + (_%E188552188565%_)))))) + (_%start-match188301%_ + (lambda (_%kont188481%_) + (let* ((_%g188483188499%_ + (lambda (_%g188484188496%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g188378188390%_)))) - (_%g188376188438%_ - (lambda (_%g188378188396%_) + _%g188484188496%_)))) + (_%g188482188544%_ + (lambda (_%g188484188502%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g188378188396%_)) - (let ((_%e188380188398%_ + (gx#stx-pair? _%g188484188502%_)) + (let ((_%e188486188504%_ (let () (declare (not safe)) - (gx#stx-e _%g188378188396%_)))) - (let ((_%hd188381188401%_ + (gx#stx-e _%g188484188502%_)))) + (let ((_%hd188487188507%_ (let () (declare (not safe)) - (##car _%e188380188398%_))) - (_%tl188382188403%_ + (##car _%e188486188504%_))) + (_%tl188488188509%_ (let () (declare (not safe)) - (##cdr _%e188380188398%_)))) + (##cdr _%e188486188504%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188381188401%_)) + _%hd188487188507%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd188381188401%_)) + _%hd188487188507%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl188382188403%_)) - (let ((_%e188383188406%_ + _%tl188488188509%_)) + (let ((_%e188489188512%_ (let () (declare (not safe)) (gx#stx-e - _%tl188382188403%_)))) - (let ((_%hd188384188409%_ + _%tl188488188509%_)))) + (let ((_%hd188490188515%_ (let () (declare (not safe)) - (##car _%e188383188406%_))) - (_%tl188385188411%_ + (##car _%e188489188512%_))) + (_%tl188491188517%_ (let () (declare (not safe)) - (##cdr _%e188383188406%_)))) + (##cdr _%e188489188512%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd188384188409%_)) + _%hd188490188515%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl188385188411%_)) - (let ((_%e188386188414%_ + (gx#stx-pair? _%tl188491188517%_)) + (let ((_%e188492188520%_ (let () (declare (not safe)) - (gx#stx-e _%tl188385188411%_)))) - (let ((_%hd188387188417%_ + (gx#stx-e _%tl188491188517%_)))) + (let ((_%hd188493188523%_ (let () (declare (not safe)) - (##car _%e188386188414%_))) - (_%tl188388188419%_ + (##car _%e188492188520%_))) + (_%tl188494188525%_ (let () (declare (not safe)) - (##cdr _%e188386188414%_)))) + (##cdr _%e188492188520%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl188388188419%_)) - ((lambda (_%L188422%_) _%L188422%_) - _%hd188387188417%_) - (_%g188377188393%_ _%g188378188396%_)))) - (_%g188377188393%_ _%g188378188396%_)) - (_%g188377188393%_ _%g188378188396%_)))) + (gx#stx-null? _%tl188494188525%_)) + ((lambda (_%L188528%_) _%L188528%_) + _%hd188493188523%_) + (_%g188483188499%_ _%g188484188502%_)))) + (_%g188483188499%_ _%g188484188502%_)) + (_%g188483188499%_ _%g188484188502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g188377188393%_ - _%g188378188396%_)) - (_%g188377188393%_ - _%g188378188396%_)) - (_%g188377188393%_ - _%g188378188396%_)))) - (_%g188377188393%_ _%g188378188396%_))))) - (_%g188376188438%_ _%kont188375%_)))) - (_%match-body188196%_ - (lambda (_%blocks188272%_) - (let* ((_%blocks188273188282%_ _%blocks188272%_) - (_%E188275188286%_ + (_%g188483188499%_ + _%g188484188502%_)) + (_%g188483188499%_ + _%g188484188502%_)) + (_%g188483188499%_ + _%g188484188502%_)))) + (_%g188483188499%_ _%g188484188502%_))))) + (_%g188482188544%_ _%kont188481%_)))) + (_%match-body188302%_ + (lambda (_%blocks188378%_) + (let* ((_%blocks188379188388%_ _%blocks188378%_) + (_%E188381188392%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%blocks188273188282%_ + _%blocks188379188388%_ '([[#f . start] . rest]))) '#!void)) - (_%K188276188358%_ - (lambda (_%rest188289%_ _%start188290%_) - (let _%lp188292%_ ((_%rest188294%_ - _%rest188289%_) - (_%body188295%_ - (_%start-match188195%_ - _%start188290%_))) - (let* ((_%rest188296188304%_ _%rest188294%_) - (_%else188298188312%_ - (lambda () _%body188295%_)) - (_%K188300188346%_ - (lambda (_%rest188315%_ - _%block188316%_) - (let* ((_%block188317188324%_ - _%block188316%_) - (_%E188319188328%_ + (_%K188382188464%_ + (lambda (_%rest188395%_ _%start188396%_) + (let _%lp188398%_ ((_%rest188400%_ + _%rest188395%_) + (_%body188401%_ + (_%start-match188301%_ + _%start188396%_))) + (let* ((_%rest188402188410%_ _%rest188400%_) + (_%else188404188418%_ + (lambda () _%body188401%_)) + (_%K188406188452%_ + (lambda (_%rest188421%_ + _%block188422%_) + (let* ((_%block188423188430%_ + _%block188422%_) + (_%E188425188434%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block188317188324%_ + _%block188423188430%_ '([K . kont]))) '#!void)) - (_%K188320188334%_ - (lambda (_%kont188331%_ - _%K188332%_) - (_%lp188292%_ - _%rest188315%_ + (_%K188426188440%_ + (lambda (_%kont188437%_ + _%K188438%_) + (_%lp188398%_ + _%rest188421%_ (cons '%#let-values - (cons (cons (cons (cons _%K188332%_ + (cons (cons (cons (cons _%K188438%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%kont188331%_ '())) + (cons _%kont188437%_ '())) '()) - (cons _%body188295%_ '()))))))) + (cons _%body188401%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%block188317188324%_) - (let ((_%hd188321188337%_ + (if (pair? _%block188423188430%_) + (let ((_%hd188427188443%_ (let () (declare (not safe)) - (##car _%block188317188324%_))) - (_%tl188322188339%_ + (##car _%block188423188430%_))) + (_%tl188428188445%_ (let () (declare (not safe)) - (##cdr _%block188317188324%_)))) - (let* ((_%K188342%_ - _%hd188321188337%_) - (_%kont188344%_ - _%tl188322188339%_)) - (_%K188320188334%_ - _%kont188344%_ - _%K188342%_))) - (_%E188319188328%_)))))) - (if (pair? _%rest188296188304%_) - (let ((_%hd188301188349%_ + (##cdr _%block188423188430%_)))) + (let* ((_%K188448%_ + _%hd188427188443%_) + (_%kont188450%_ + _%tl188428188445%_)) + (_%K188426188440%_ + _%kont188450%_ + _%K188448%_))) + (_%E188425188434%_)))))) + (if (pair? _%rest188402188410%_) + (let ((_%hd188407188455%_ (let () (declare (not safe)) - (##car _%rest188296188304%_))) - (_%tl188302188351%_ + (##car _%rest188402188410%_))) + (_%tl188408188457%_ (let () (declare (not safe)) - (##cdr _%rest188296188304%_)))) - (let* ((_%block188354%_ - _%hd188301188349%_) - (_%rest188356%_ - _%tl188302188351%_)) - (_%K188300188346%_ - _%rest188356%_ - _%block188354%_))) - (_%else188298188312%_))))))) - (if (pair? _%blocks188273188282%_) - (let ((_%hd188277188361%_ + (##cdr _%rest188402188410%_)))) + (let* ((_%block188460%_ + _%hd188407188455%_) + (_%rest188462%_ + _%tl188408188457%_)) + (_%K188406188452%_ + _%rest188462%_ + _%block188460%_))) + (_%else188404188418%_))))))) + (if (pair? _%blocks188379188388%_) + (let ((_%hd188383188467%_ (let () (declare (not safe)) - (##car _%blocks188273188282%_))) - (_%tl188278188363%_ + (##car _%blocks188379188388%_))) + (_%tl188384188469%_ (let () (declare (not safe)) - (##cdr _%blocks188273188282%_)))) - (if (pair? _%hd188277188361%_) - (let ((_%hd188279188366%_ + (##cdr _%blocks188379188388%_)))) + (if (pair? _%hd188383188467%_) + (let ((_%hd188385188472%_ (let () (declare (not safe)) - (##car _%hd188277188361%_))) - (_%tl188280188368%_ + (##car _%hd188383188467%_))) + (_%tl188386188474%_ (let () (declare (not safe)) - (##cdr _%hd188277188361%_)))) + (##cdr _%hd188383188467%_)))) (if (let () (declare (not safe)) - (##eq? _%hd188279188366%_ '#f)) - (let* ((_%start188371%_ - _%tl188280188368%_) - (_%rest188373%_ - _%tl188278188363%_)) - (_%K188276188358%_ - _%rest188373%_ - _%start188371%_)) - (_%E188275188286%_))) - (_%E188275188286%_))) - (_%E188275188286%_)))))) - (let ((__tmp192455 + (##eq? _%hd188385188472%_ '#f)) + (let* ((_%start188477%_ + _%tl188386188474%_) + (_%rest188479%_ + _%tl188384188469%_)) + (_%K188382188464%_ + _%rest188479%_ + _%start188477%_)) + (_%E188381188392%_))) + (_%E188381188392%_))) + (_%E188381188392%_)))))) + (let ((__tmp192561 (lambda () - (let* ((_%clauses188199%_ - (map _%push-variables188194%_ - _%clauses188191%_ - _%konts188192%_)) - (_%blocks188201%_ - (gxc#optimize-match-basic-blocks _%clauses188199%_)) - (_%blocks188203%_ + (let* ((_%clauses188305%_ + (map _%push-variables188300%_ + _%clauses188297%_ + _%konts188298%_)) + (_%blocks188307%_ + (gxc#optimize-match-basic-blocks _%clauses188305%_)) + (_%blocks188309%_ (gxc#optimize-match-fold-basic-blocks - _%blocks188201%_)) - (_%body188205%_ - (_%match-body188196%_ _%blocks188203%_)) - (_%bind188239%_ - (map (lambda (_%e188206188208%_) - (let* ((_%g188210188217%_ _%e188206188208%_) - (_%E188212188221%_ + _%blocks188307%_)) + (_%body188311%_ + (_%match-body188302%_ _%blocks188309%_)) + (_%bind188345%_ + (map (lambda (_%e188312188314%_) + (let* ((_%g188316188323%_ _%e188312188314%_) + (_%E188318188327%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g188210188217%_ + _%g188316188323%_ '([K . kont]))) '#!void)) - (_%K188213188227%_ - (lambda (_%kont188224%_ _%K188225%_) - (cons (cons _%K188225%_ '()) - (cons _%kont188224%_ '()))))) - (if (pair? _%g188210188217%_) - (let ((_%hd188214188230%_ + (_%K188319188333%_ + (lambda (_%kont188330%_ _%K188331%_) + (cons (cons _%K188331%_ '()) + (cons _%kont188330%_ '()))))) + (if (pair? _%g188316188323%_) + (let ((_%hd188320188336%_ (let () (declare (not safe)) - (##car _%g188210188217%_))) - (_%tl188215188232%_ + (##car _%g188316188323%_))) + (_%tl188321188338%_ (let () (declare (not safe)) - (##cdr _%g188210188217%_)))) - (let* ((_%K188235%_ - _%hd188214188230%_) - (_%kont188237%_ - _%tl188215188232%_)) - (_%K188213188227%_ - _%kont188237%_ - _%K188235%_))) - (_%E188212188221%_)))) - _%konts188192%_)) - (_%negate188269%_ - (let* ((_%negation188240188247%_ _%negation188190%_) - (_%E188242188251%_ + (##cdr _%g188316188323%_)))) + (let* ((_%K188341%_ + _%hd188320188336%_) + (_%kont188343%_ + _%tl188321188338%_)) + (_%K188319188333%_ + _%kont188343%_ + _%K188341%_))) + (_%E188318188327%_)))) + _%konts188298%_)) + (_%negate188375%_ + (let* ((_%negation188346188353%_ _%negation188296%_) + (_%E188348188357%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%negation188240188247%_ + _%negation188346188353%_ '([K . kont]))) '#!void)) - (_%K188243188257%_ - (lambda (_%kont188254%_ _%K188255%_) - (cons (cons _%K188255%_ '()) - (cons _%kont188254%_ '()))))) - (if (pair? _%negation188240188247%_) - (let ((_%hd188244188260%_ + (_%K188349188363%_ + (lambda (_%kont188360%_ _%K188361%_) + (cons (cons _%K188361%_ '()) + (cons _%kont188360%_ '()))))) + (if (pair? _%negation188346188353%_) + (let ((_%hd188350188366%_ (let () (declare (not safe)) - (##car _%negation188240188247%_))) - (_%tl188245188262%_ + (##car _%negation188346188353%_))) + (_%tl188351188368%_ (let () (declare (not safe)) - (##cdr _%negation188240188247%_)))) - (let* ((_%K188265%_ _%hd188244188260%_) - (_%kont188267%_ _%tl188245188262%_)) - (_%K188243188257%_ - _%kont188267%_ - _%K188265%_))) - (_%E188242188251%_)))) - (__tmp192456 + (##cdr _%negation188346188353%_)))) + (let* ((_%K188371%_ _%hd188350188366%_) + (_%kont188373%_ _%tl188351188368%_)) + (_%K188349188363%_ + _%kont188373%_ + _%K188371%_))) + (_%E188348188357%_)))) + (__tmp192562 (cons '%#let-values - (cons (cons _%negate188269%_ '()) + (cons (cons _%negate188375%_ '()) (cons (cons '%#let-values - (cons _%bind188239%_ - (cons _%body188205%_ + (cons _%bind188345%_ + (cons _%body188311%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192456 _%stx188189%_)))) - (__tmp192454 - (let ((__obj192435 + (gxc#xform-wrap-source __tmp192562 _%stx188295%_)))) + (__tmp192560 + (let ((__obj192541 (let () (declare (not safe)) (##structure @@ -1850,1889 +1850,1889 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192435)) - __obj192435))) + (gx#local-context:::init!__0 __obj192541)) + __obj192541))) (declare (not safe)) (__call-with-parameters - __tmp192455 + __tmp192561 gx#current-expander-context - __tmp192454))))) + __tmp192560))))) (define gxc#optimize-match-basic-blocks - (lambda (_%clauses188149%_) - (let _%lp188151%_ ((_%rest188153%_ _%clauses188149%_) - (_%blocks188154%_ '())) - (let* ((_%rest188155188163%_ _%rest188153%_) - (_%else188157188171%_ (lambda () (reverse _%blocks188154%_))) - (_%K188159188177%_ - (lambda (_%rest188174%_ _%clause188175%_) - (_%lp188151%_ - _%rest188174%_ + (lambda (_%clauses188255%_) + (let _%lp188257%_ ((_%rest188259%_ _%clauses188255%_) + (_%blocks188260%_ '())) + (let* ((_%rest188261188269%_ _%rest188259%_) + (_%else188263188277%_ (lambda () (reverse _%blocks188260%_))) + (_%K188265188283%_ + (lambda (_%rest188280%_ _%clause188281%_) + (_%lp188257%_ + _%rest188280%_ (gxc#optimize-match-lift-basic-blocks - _%clause188175%_ - _%blocks188154%_))))) - (if (pair? _%rest188155188163%_) - (let ((_%hd188160188180%_ + _%clause188281%_ + _%blocks188260%_))))) + (if (pair? _%rest188261188269%_) + (let ((_%hd188266188286%_ (let () (declare (not safe)) - (##car _%rest188155188163%_))) - (_%tl188161188182%_ + (##car _%rest188261188269%_))) + (_%tl188267188288%_ (let () (declare (not safe)) - (##cdr _%rest188155188163%_)))) - (let* ((_%clause188185%_ _%hd188160188180%_) - (_%rest188187%_ _%tl188161188182%_)) - (_%K188159188177%_ _%rest188187%_ _%clause188185%_))) - (_%else188157188171%_)))))) + (##cdr _%rest188261188269%_)))) + (let* ((_%clause188291%_ _%hd188266188286%_) + (_%rest188293%_ _%tl188267188288%_)) + (_%K188265188283%_ _%rest188293%_ _%clause188291%_))) + (_%else188263188277%_)))))) (define gxc#optimize-match-lift-basic-blocks - (lambda (_%clause187492%_ _%blocks187493%_) - (letrec ((_%bind->args187495%_ - (lambda (_%bind188144%_) - (let ((__tmp192457 - (lambda (_%b188146%_ _%r188147%_) - (cons (cons '%#ref (cons (car _%b188146%_) '())) - _%r188147%_)))) + (lambda (_%clause187598%_ _%blocks187599%_) + (letrec ((_%bind->args187601%_ + (lambda (_%bind188250%_) + (let ((__tmp192563 + (lambda (_%b188252%_ _%r188253%_) + (cons (cons '%#ref (cons (car _%b188252%_) '())) + _%r188253%_)))) (declare (not safe)) - (__foldl1 __tmp192457 '() _%bind188144%_)))) - (_%create-block187496%_ - (lambda (_%body188092%_ - _%let-bind188093%_ - _%bind188094%_ - _%assert188095%_) - (let* ((_%id188097%_ - (let ((__tmp192458 + (__foldl1 __tmp192563 '() _%bind188250%_)))) + (_%create-block187602%_ + (lambda (_%body188198%_ + _%let-bind188199%_ + _%bind188200%_ + _%assert188201%_) + (let* ((_%id188203%_ + (let ((__tmp192564 (let () (declare (not safe)) (##gensym '__match)))) (declare (not safe)) - (make-symbol__0 __tmp192458))) - (_%id188099%_ + (make-symbol__0 __tmp192564))) + (_%id188205%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id188097%_))) - (_%_188101%_ + (gx#core-quote-syntax__0 _%id188203%_))) + (_%_188207%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id188099%_))) - (_%block188103%_ - (cons _%id188099%_ - (cons _%body188092%_ - (cons _%bind188094%_ - (cons _%assert188095%_ '()))))) - (_%continue188105%_ + (gx#core-bind-runtime!__0 _%id188205%_))) + (_%block188209%_ + (cons _%id188205%_ + (cons _%body188198%_ + (cons _%bind188200%_ + (cons _%assert188201%_ '()))))) + (_%continue188211%_ (cons '%#call - (cons (cons '%#ref (cons _%id188099%_ '())) - (_%bind->args187495%_ - _%bind188094%_)))) - (_%continue188141%_ - (if (null? _%let-bind188093%_) - _%continue188105%_ - (let ((_%locals188139%_ - (map (lambda (_%e188106188108%_) - (let* ((_%g188110188117%_ - _%e188106188108%_) - (_%E188112188121%_ + (cons (cons '%#ref (cons _%id188205%_ '())) + (_%bind->args187601%_ + _%bind188200%_)))) + (_%continue188247%_ + (if (null? _%let-bind188199%_) + _%continue188211%_ + (let ((_%locals188245%_ + (map (lambda (_%e188212188214%_) + (let* ((_%g188216188223%_ + _%e188212188214%_) + (_%E188218188227%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g188110188117%_ + _%g188216188223%_ '([id . expr]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K188113188127%_ - (lambda (_%expr188124%_ - _%id188125%_) - (cons (cons _%id188125%_ + (_%K188219188233%_ + (lambda (_%expr188230%_ + _%id188231%_) + (cons (cons _%id188231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr188124%_ '()))))) + (cons _%expr188230%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g188110188117%_) - (let ((_%hd188114188130%_ + (if (pair? _%g188216188223%_) + (let ((_%hd188220188236%_ (let () (declare (not safe)) - (##car _%g188110188117%_))) - (_%tl188115188132%_ + (##car _%g188216188223%_))) + (_%tl188221188238%_ (let () (declare (not safe)) - (##cdr _%g188110188117%_)))) - (let* ((_%id188135%_ - _%hd188114188130%_) - (_%expr188137%_ - _%tl188115188132%_)) - (_%K188113188127%_ - _%expr188137%_ - _%id188135%_))) - (_%E188112188121%_)))) - _%let-bind188093%_))) + (##cdr _%g188216188223%_)))) + (let* ((_%id188241%_ + _%hd188220188236%_) + (_%expr188243%_ + _%tl188221188238%_)) + (_%K188219188233%_ + _%expr188243%_ + _%id188241%_))) + (_%E188218188227%_)))) + _%let-bind188199%_))) (cons '%#let-values - (cons _%locals188139%_ - (cons _%continue188105%_ + (cons _%locals188245%_ + (cons _%continue188211%_ '()))))))) - (values _%continue188141%_ _%block188103%_)))) - (_%basic-block187497%_ - (lambda (_%body187678%_ _%bind187679%_ _%assert187680%_) - (let* ((_%__stx189656189657%_ _%body187678%_) - (_%g187685187769%_ + (values _%continue188247%_ _%block188209%_)))) + (_%basic-block187603%_ + (lambda (_%body187784%_ _%bind187785%_ _%assert187786%_) + (let* ((_%__stx189762189763%_ _%body187784%_) + (_%g187791187875%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189656189657%_))))) - (let ((_%__kont189658189659%_ - (lambda (_%L188028%_ _%L188029%_ _%L188030%_) - (let ((_g192459_ - (_%create-block187496%_ - _%L188029%_ + _%__stx189762189763%_))))) + (let ((_%__kont189764189765%_ + (lambda (_%L188134%_ _%L188135%_ _%L188136%_) + (let ((_g192565_ + (_%create-block187602%_ + _%L188135%_ '() - _%bind187679%_ - (cons (cons _%L188030%_ '#t) - _%assert187680%_)))) + _%bind187785%_ + (cons (cons _%L188136%_ '#t) + _%assert187786%_)))) (begin - (let ((_g192460_ + (let ((_g192566_ (let () (declare (not safe)) - (if (##values? _g192459_) - (##vector-length _g192459_) + (if (##values? _g192565_) + (##values-length _g192565_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192460_ 2))) + (##fx= _g192566_ 2))) (error "Context expects 2 values" - _g192460_))) - (let ((_%k-continue188048%_ + _g192566_))) + (let ((_%k-continue188154%_ (let () (declare (not safe)) - (##vector-ref _g192459_ 0))) - (_%k-block188049%_ + (##values-ref _g192565_ 0))) + (_%k-block188155%_ (let () (declare (not safe)) - (##vector-ref _g192459_ 1)))) - (let* ((_%__stx189638189639%_ _%L188028%_) - (_%g188052188061%_ + (##values-ref _g192565_ 1)))) + (let* ((_%__stx189744189745%_ _%L188134%_) + (_%g188158188167%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189638189639%_))))) - (let ((_%__kont189640189641%_ + _%__stx189744189745%_))))) + (let ((_%__kont189746189747%_ (lambda () (values (cons '%#if - (cons _%L188030%_ + (cons _%L188136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%k-continue188048%_ - (cons _%L188028%_ '())))) - (cons _%k-block188049%_ '())))) + (cons _%k-continue188154%_ + (cons _%L188134%_ '())))) + (cons _%k-block188155%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189642189643%_ + (_%__kont189748189749%_ (lambda () - (let ((_g192461_ - (_%create-block187496%_ - _%L188028%_ + (let ((_g192567_ + (_%create-block187602%_ + _%L188134%_ '() - _%bind187679%_ - (cons (cons _%L188030%_ + _%bind187785%_ + (cons (cons _%L188136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f) - _%assert187680%_)))) + _%assert187786%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin - (let ((_g192462_ + (let ((_g192568_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g192461_) - (##vector-length _g192461_) + _g192567_) + (##values-length _g192567_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g192462_ 2))) - (error "Context expects 2 values" _g192462_))) + (if (not (let () (declare (not safe)) (##fx= _g192568_ 2))) + (error "Context expects 2 values" _g192568_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%e-continue188068%_ + (let ((_%e-continue188174%_ (let () (declare (not safe)) - (##vector-ref - _g192461_ + (##values-ref + _g192567_ 0))) - (_%e-block188069%_ + (_%e-block188175%_ (let () (declare (not safe)) - (##vector-ref - _g192461_ + (##values-ref + _g192567_ 1)))) (values (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L188030%_ - (cons _%k-continue188048%_ - (cons _%e-continue188068%_ '())))) - (cons _%k-block188049%_ - (cons _%e-block188069%_ '()))))))))) + (cons _%L188136%_ + (cons _%k-continue188154%_ + (cons _%e-continue188174%_ '())))) + (cons _%k-block188155%_ + (cons _%e-block188175%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189638189639%_)) - (let ((_%e188054188076%_ + _%__stx189744189745%_)) + (let ((_%e188160188182%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189638189639%_)))) - (let ((_%tl188056188081%_ + _%__stx189744189745%_)))) + (let ((_%tl188162188187%_ (let () (declare (not safe)) - (##cdr _%e188054188076%_))) - (_%hd188055188079%_ + (##cdr _%e188160188182%_))) + (_%hd188161188185%_ (let () (declare (not safe)) - (##car _%e188054188076%_)))) + (##car _%e188160188182%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd188055188079%_)) + _%hd188161188185%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd188055188079%_)) - (_%__kont189640189641%_) - (_%__kont189642189643%_)) - (_%__kont189642189643%_)))) - (_%__kont189642189643%_))))))))) - (_%__kont189660189661%_ - (lambda () (values _%body187678%_ '()))) - (_%__kont189664189665%_ - (lambda (_%L187857%_ _%L187858%_ _%L187859%_) - (let* ((_%let-bind187894%_ + _%hd188161188185%_)) + (_%__kont189746189747%_) + (_%__kont189748189749%_)) + (_%__kont189748189749%_)))) + (_%__kont189748189749%_))))))))) + (_%__kont189766189767%_ + (lambda () (values _%body187784%_ '()))) + (_%__kont189770189771%_ + (lambda (_%L187963%_ _%L187964%_ _%L187965%_) + (let* ((_%let-bind188000%_ (map cons - (let ((__tmp192463 - (lambda (_%g187879187882%_ - _%g187880187884%_) - (cons _%g187879187882%_ - _%g187880187884%_)))) + (let ((__tmp192569 + (lambda (_%g187985187988%_ + _%g187986187990%_) + (cons _%g187985187988%_ + _%g187986187990%_)))) (declare (not safe)) (__foldr1 - __tmp192463 + __tmp192569 '() - _%L187859%_)) - (let ((__tmp192464 - (lambda (_%g187886187889%_ - _%g187887187891%_) - (cons _%g187886187889%_ - _%g187887187891%_)))) + _%L187965%_)) + (let ((__tmp192570 + (lambda (_%g187992187995%_ + _%g187993187997%_) + (cons _%g187992187995%_ + _%g187993187997%_)))) (declare (not safe)) (__foldr1 - __tmp192464 + __tmp192570 '() - _%L187858%_)))) - (_g192465_ - (_%create-block187496%_ - _%L187857%_ - _%let-bind187894%_ + _%L187964%_)))) + (_g192571_ + (_%create-block187602%_ + _%L187963%_ + _%let-bind188000%_ (let () (declare (not safe)) (__foldl1 cons - _%bind187679%_ - _%let-bind187894%_)) - _%assert187680%_))) + _%bind187785%_ + _%let-bind188000%_)) + _%assert187786%_))) (begin - (let ((_g192466_ + (let ((_g192572_ (let () (declare (not safe)) - (if (##values? _g192465_) - (##vector-length _g192465_) + (if (##values? _g192571_) + (##values-length _g192571_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192466_ 2))) + (##fx= _g192572_ 2))) (error "Context expects 2 values" - _g192466_))) - (let ((_%continue187896%_ + _g192572_))) + (let ((_%continue188002%_ (let () (declare (not safe)) - (##vector-ref _g192465_ 0))) - (_%block187897%_ + (##values-ref _g192571_ 0))) + (_%block188003%_ (let () (declare (not safe)) - (##vector-ref _g192465_ 1)))) - (values _%continue187896%_ - (cons _%block187897%_ '()))))))) - (_%__kont189668189669%_ - (lambda () (values _%body187678%_ '())))) - (let* ((_%__match189747189748%_ - (lambda (_%e187736187781%_ - _%hd187737187784%_ - _%tl187738187786%_ - _%e187739187789%_ - _%hd187740187792%_ - _%tl187741187794%_ - _%__splice189666189667%_ - _%target187742187797%_ - _%tl187744187799%_) - (letrec ((_%loop187745187802%_ - (lambda (_%hd187743187805%_ - _%expr187749187807%_ - _%id187750187809%_) + (##values-ref _g192571_ 1)))) + (values _%continue188002%_ + (cons _%block188003%_ '()))))))) + (_%__kont189774189775%_ + (lambda () (values _%body187784%_ '())))) + (let* ((_%__match189853189854%_ + (lambda (_%e187842187887%_ + _%hd187843187890%_ + _%tl187844187892%_ + _%e187845187895%_ + _%hd187846187898%_ + _%tl187847187900%_ + _%__splice189772189773%_ + _%target187848187903%_ + _%tl187850187905%_) + (letrec ((_%loop187851187908%_ + (lambda (_%hd187849187911%_ + _%expr187855187913%_ + _%id187856187915%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187743187805%_)) - (let ((_%e187746187812%_ + _%hd187849187911%_)) + (let ((_%e187852187918%_ (let () (declare (not safe)) (gx#stx-e - _%hd187743187805%_)))) - (let ((_%lp-tl187748187817%_ + _%hd187849187911%_)))) + (let ((_%lp-tl187854187923%_ (let () (declare (not safe)) - (##cdr _%e187746187812%_))) - (_%lp-hd187747187815%_ + (##cdr _%e187852187918%_))) + (_%lp-hd187853187921%_ (let () (declare (not safe)) - (##car _%e187746187812%_)))) + (##car _%e187852187918%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187747187815%_)) - (let ((_%e187756187820%_ + _%lp-hd187853187921%_)) + (let ((_%e187862187926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187747187815%_)))) - (let ((_%tl187758187825%_ + (gx#stx-e _%lp-hd187853187921%_)))) + (let ((_%tl187864187931%_ (let () (declare (not safe)) - (##cdr _%e187756187820%_))) - (_%hd187757187823%_ + (##cdr _%e187862187926%_))) + (_%hd187863187929%_ (let () (declare (not safe)) - (##car _%e187756187820%_)))) + (##car _%e187862187926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187757187823%_)) - (let ((_%e187759187828%_ + (gx#stx-pair? _%hd187863187929%_)) + (let ((_%e187865187934%_ (let () (declare (not safe)) - (gx#stx-e _%hd187757187823%_)))) - (let ((_%tl187761187833%_ + (gx#stx-e _%hd187863187929%_)))) + (let ((_%tl187867187939%_ (let () (declare (not safe)) - (##cdr _%e187759187828%_))) - (_%hd187760187831%_ + (##cdr _%e187865187934%_))) + (_%hd187866187937%_ (let () (declare (not safe)) - (##car _%e187759187828%_)))) + (##car _%e187865187934%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187761187833%_)) + (gx#stx-null? _%tl187867187939%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187758187825%_)) - (let ((_%e187762187836%_ + (gx#stx-pair? _%tl187864187931%_)) + (let ((_%e187868187942%_ (let () (declare (not safe)) - (gx#stx-e _%tl187758187825%_)))) - (let ((_%tl187764187841%_ + (gx#stx-e _%tl187864187931%_)))) + (let ((_%tl187870187947%_ (let () (declare (not safe)) - (##cdr _%e187762187836%_))) - (_%hd187763187839%_ + (##cdr _%e187868187942%_))) + (_%hd187869187945%_ (let () (declare (not safe)) - (##car _%e187762187836%_)))) + (##car _%e187868187942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl187764187841%_)) - (_%loop187745187802%_ - _%lp-tl187748187817%_ - (cons _%hd187763187839%_ - _%expr187749187807%_) - (cons _%hd187760187831%_ - _%id187750187809%_)) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)))) + _%tl187870187947%_)) + (_%loop187851187908%_ + _%lp-tl187854187923%_ + (cons _%hd187869187945%_ + _%expr187855187913%_) + (cons _%hd187866187937%_ + _%id187856187915%_)) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id187752187846%_ - (reverse _%id187750187809%_)) - (_%expr187751187844%_ - (reverse _%expr187749187807%_))) + (let ((_%id187858187952%_ + (reverse _%id187856187915%_)) + (_%expr187857187950%_ + (reverse _%expr187855187913%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187741187794%_)) - (let ((_%e187753187849%_ + _%tl187847187900%_)) + (let ((_%e187859187955%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl187741187794%_)))) - (let ((_%tl187755187854%_ + (gx#stx-e _%tl187847187900%_)))) + (let ((_%tl187861187960%_ (let () (declare (not safe)) - (##cdr _%e187753187849%_))) - (_%hd187754187852%_ + (##cdr _%e187859187955%_))) + (_%hd187860187958%_ (let () (declare (not safe)) - (##car _%e187753187849%_)))) + (##car _%e187859187955%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187755187854%_)) - (_%__kont189664189665%_ - _%hd187754187852%_ - _%expr187751187844%_ - _%id187752187846%_) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_))))))) + (gx#stx-null? _%tl187861187960%_)) + (_%__kont189770189771%_ + _%hd187860187958%_ + _%expr187857187950%_ + _%id187858187952%_) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187745187802%_ - _%target187742187797%_ + (_%loop187851187908%_ + _%target187848187903%_ '() '())))) - (_%__match189723189724%_ - (lambda (_%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_) - (letrec ((_%loop187711187926%_ - (lambda (_%hd187709187929%_) + (_%__match189829189830%_ + (lambda (_%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_) + (letrec ((_%loop187817188032%_ + (lambda (_%hd187815188035%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187709187929%_)) - (let ((_%e187712187932%_ + _%hd187815188035%_)) + (let ((_%e187818188038%_ (let () (declare (not safe)) (gx#stx-e - _%hd187709187929%_)))) - (let ((_%lp-tl187714187937%_ + _%hd187815188035%_)))) + (let ((_%lp-tl187820188043%_ (let () (declare (not safe)) - (##cdr _%e187712187932%_))) - (_%lp-hd187713187935%_ + (##cdr _%e187818188038%_))) + (_%lp-hd187819188041%_ (let () (declare (not safe)) - (##car _%e187712187932%_)))) + (##car _%e187818188038%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd187713187935%_)) - (let ((_%e187718187940%_ + _%lp-hd187819188041%_)) + (let ((_%e187824188046%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd187713187935%_)))) - (let ((_%tl187720187945%_ + (gx#stx-e _%lp-hd187819188041%_)))) + (let ((_%tl187826188051%_ (let () (declare (not safe)) - (##cdr _%e187718187940%_))) - (_%hd187719187943%_ + (##cdr _%e187824188046%_))) + (_%hd187825188049%_ (let () (declare (not safe)) - (##car _%e187718187940%_)))) + (##car _%e187824188046%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd187719187943%_)) - (let ((_%e187721187948%_ + (gx#stx-pair? _%hd187825188049%_)) + (let ((_%e187827188054%_ (let () (declare (not safe)) - (gx#stx-e _%hd187719187943%_)))) - (let ((_%tl187723187953%_ + (gx#stx-e _%hd187825188049%_)))) + (let ((_%tl187829188059%_ (let () (declare (not safe)) - (##cdr _%e187721187948%_))) - (_%hd187722187951%_ + (##cdr _%e187827188054%_))) + (_%hd187828188057%_ (let () (declare (not safe)) - (##car _%e187721187948%_)))) + (##car _%e187827188054%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187723187953%_)) + (gx#stx-null? _%tl187829188059%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187720187945%_)) - (let ((_%e187724187956%_ + (gx#stx-pair? _%tl187826188051%_)) + (let ((_%e187830188062%_ (let () (declare (not safe)) - (gx#stx-e _%tl187720187945%_)))) - (let ((_%tl187726187961%_ + (gx#stx-e _%tl187826188051%_)))) + (let ((_%tl187832188067%_ (let () (declare (not safe)) - (##cdr _%e187724187956%_))) - (_%hd187725187959%_ + (##cdr _%e187830188062%_))) + (_%hd187831188065%_ (let () (declare (not safe)) - (##car _%e187724187956%_)))) + (##car _%e187830188062%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187725187959%_)) - (let ((_%e187727187964%_ + _%hd187831188065%_)) + (let ((_%e187833188070%_ (let () (declare (not safe)) (gx#stx-e - _%hd187725187959%_)))) - (let ((_%tl187729187969%_ + _%hd187831188065%_)))) + (let ((_%tl187835188075%_ (let () (declare (not safe)) - (##cdr _%e187727187964%_))) - (_%hd187728187967%_ + (##cdr _%e187833188070%_))) + (_%hd187834188073%_ (let () (declare (not safe)) - (##car _%e187727187964%_)))) + (##car _%e187833188070%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187728187967%_)) + _%hd187834188073%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd187728187967%_)) + _%hd187834188073%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187729187969%_)) - (let ((_%e187730187972%_ + (gx#stx-pair? _%tl187835188075%_)) + (let ((_%e187836188078%_ (let () (declare (not safe)) - (gx#stx-e _%tl187729187969%_)))) - (let ((_%tl187732187977%_ + (gx#stx-e _%tl187835188075%_)))) + (let ((_%tl187838188083%_ (let () (declare (not safe)) - (##cdr _%e187730187972%_))) - (_%hd187731187975%_ + (##cdr _%e187836188078%_))) + (_%hd187837188081%_ (let () (declare (not safe)) - (##car _%e187730187972%_)))) + (##car _%e187836188078%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187732187977%_)) + (gx#stx-null? _%tl187838188083%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187726187961%_)) - (_%loop187711187926%_ _%lp-tl187714187937%_) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) + (gx#stx-null? _%tl187832188067%_)) + (_%loop187817188032%_ _%lp-tl187820188043%_) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187707187918%_)) - (let ((_%e187715187981%_ + _%tl187813188024%_)) + (let ((_%e187821188087%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187707187918%_)))) - (let ((_%tl187717187986%_ - (let () (declare (not safe)) (##cdr _%e187715187981%_))) - (_%hd187716187984%_ + (gx#stx-e _%tl187813188024%_)))) + (let ((_%tl187823188092%_ + (let () (declare (not safe)) (##cdr _%e187821188087%_))) + (_%hd187822188090%_ (let () (declare (not safe)) - (##car _%e187715187981%_)))) + (##car _%e187821188087%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187717187986%_)) - (_%__kont189660189661%_) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))) - (_%__match189747189748%_ - _%e187702187905%_ - _%hd187703187908%_ - _%tl187704187910%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_)))))) + (gx#stx-null? _%tl187823188092%_)) + (_%__kont189766189767%_) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))) + (_%__match189853189854%_ + _%e187808188011%_ + _%hd187809188014%_ + _%tl187810188016%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187711187926%_ - _%target187708187921%_))))) + (_%loop187817188032%_ + _%target187814188027%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189656189657%_)) - (let ((_%e187690187996%_ + (gx#stx-pair? _%__stx189762189763%_)) + (let ((_%e187796188102%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189656189657%_)))) - (let ((_%tl187692188001%_ + (gx#stx-e _%__stx189762189763%_)))) + (let ((_%tl187798188107%_ (let () (declare (not safe)) - (##cdr _%e187690187996%_))) - (_%hd187691187999%_ + (##cdr _%e187796188102%_))) + (_%hd187797188105%_ (let () (declare (not safe)) - (##car _%e187690187996%_)))) + (##car _%e187796188102%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd187691187999%_)) + (gx#identifier? _%hd187797188105%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd187691187999%_)) + _%hd187797188105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187692188001%_)) - (let ((_%e187693188004%_ + _%tl187798188107%_)) + (let ((_%e187799188110%_ (let () (declare (not safe)) (gx#stx-e - _%tl187692188001%_)))) - (let ((_%tl187695188009%_ + _%tl187798188107%_)))) + (let ((_%tl187801188115%_ (let () (declare (not safe)) - (##cdr _%e187693188004%_))) - (_%hd187694188007%_ + (##cdr _%e187799188110%_))) + (_%hd187800188113%_ (let () (declare (not safe)) - (##car _%e187693188004%_)))) + (##car _%e187799188110%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187695188009%_)) - (let ((_%e187696188012%_ + _%tl187801188115%_)) + (let ((_%e187802188118%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl187695188009%_)))) - (let ((_%tl187698188017%_ - (let () (declare (not safe)) (##cdr _%e187696188012%_))) - (_%hd187697188015%_ + (gx#stx-e _%tl187801188115%_)))) + (let ((_%tl187804188123%_ + (let () (declare (not safe)) (##cdr _%e187802188118%_))) + (_%hd187803188121%_ (let () (declare (not safe)) - (##car _%e187696188012%_)))) + (##car _%e187802188118%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187698188017%_)) - (let ((_%e187699188020%_ + (gx#stx-pair? _%tl187804188123%_)) + (let ((_%e187805188126%_ (let () (declare (not safe)) - (gx#stx-e _%tl187698188017%_)))) - (let ((_%tl187701188025%_ + (gx#stx-e _%tl187804188123%_)))) + (let ((_%tl187807188131%_ (let () (declare (not safe)) - (##cdr _%e187699188020%_))) - (_%hd187700188023%_ + (##cdr _%e187805188126%_))) + (_%hd187806188129%_ (let () (declare (not safe)) - (##car _%e187699188020%_)))) + (##car _%e187805188126%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187701188025%_)) - (_%__kont189658189659%_ - _%hd187700188023%_ - _%hd187697188015%_ - _%hd187694188007%_) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)))) + (gx#stx-null? _%tl187807188131%_)) + (_%__kont189764189765%_ + _%hd187806188129%_ + _%hd187803188121%_ + _%hd187800188113%_) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189668189669%_)) + (_%__kont189774189775%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd187691187999%_)) + _%hd187797188105%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187692188001%_)) - (let ((_%e187705187913%_ + _%tl187798188107%_)) + (let ((_%e187811188019%_ (let () (declare (not safe)) (gx#stx-e - _%tl187692188001%_)))) - (let ((_%tl187707187918%_ + _%tl187798188107%_)))) + (let ((_%tl187813188024%_ (let () (declare (not safe)) - (##cdr _%e187705187913%_))) - (_%hd187706187916%_ + (##cdr _%e187811188019%_))) + (_%hd187812188022%_ (let () (declare (not safe)) - (##car _%e187705187913%_)))) + (##car _%e187811188019%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd187706187916%_)) - (let ((_%__splice189662189663%_ + _%hd187812188022%_)) + (let ((_%__splice189768189769%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd187706187916%_ '0)))) - (let ((_%tl187710187923%_ + (gx#syntax-split-splice _%hd187812188022%_ '0)))) + (let ((_%tl187816188029%_ (let () (declare (not safe)) - (##vector-ref _%__splice189662189663%_ '1))) - (_%target187708187921%_ + (##vector-ref _%__splice189768189769%_ '1))) + (_%target187814188027%_ (let () (declare (not safe)) - (##vector-ref _%__splice189662189663%_ '0)))) + (##vector-ref _%__splice189768189769%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187710187923%_)) - (_%__match189723189724%_ - _%e187690187996%_ - _%hd187691187999%_ - _%tl187692188001%_ - _%e187705187913%_ - _%hd187706187916%_ - _%tl187707187918%_ - _%__splice189662189663%_ - _%target187708187921%_ - _%tl187710187923%_) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_)))) + (gx#stx-null? _%tl187816188029%_)) + (_%__match189829189830%_ + _%e187796188102%_ + _%hd187797188105%_ + _%tl187798188107%_ + _%e187811188019%_ + _%hd187812188022%_ + _%tl187813188024%_ + _%__splice189768189769%_ + _%target187814188027%_ + _%tl187816188029%_) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189668189669%_)) - (_%__kont189668189669%_))) - (_%__kont189668189669%_)))) - (_%__kont189668189669%_))))))) - (_%fold-blocks187498%_ - (lambda (_%rest187597%_ _%blocks187598%_) - (let* ((_%rest187599187616%_ _%rest187597%_) - (_%E187602187620%_ + (_%__kont189774189775%_)) + (_%__kont189774189775%_))) + (_%__kont189774189775%_)))) + (_%__kont189774189775%_))))))) + (_%fold-blocks187604%_ + (lambda (_%rest187703%_ _%blocks187704%_) + (let* ((_%rest187705187722%_ _%rest187703%_) + (_%E187708187726%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest187599187616%_ + _%rest187705187722%_ '([[name body bind assert] . rest]) '([]))) '#!void))) - (let ((_%K187604187640%_ - (lambda (_%rest187631%_ - _%assert187632%_ - _%bind187633%_ - _%body187634%_ - _%name187635%_) - (let ((_g192467_ - (_%basic-block187497%_ - _%body187634%_ - _%bind187633%_ - _%assert187632%_))) + (let ((_%K187710187746%_ + (lambda (_%rest187737%_ + _%assert187738%_ + _%bind187739%_ + _%body187740%_ + _%name187741%_) + (let ((_g192573_ + (_%basic-block187603%_ + _%body187740%_ + _%bind187739%_ + _%assert187738%_))) (begin - (let ((_g192468_ + (let ((_g192574_ (let () (declare (not safe)) - (if (##values? _g192467_) - (##vector-length _g192467_) + (if (##values? _g192573_) + (##values-length _g192573_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192468_ 2))) + (##fx= _g192574_ 2))) (error "Context expects 2 values" - _g192468_))) - (let ((_%body187637%_ + _g192574_))) + (let ((_%body187743%_ (let () (declare (not safe)) - (##vector-ref _g192467_ 0))) - (_%body-blocks187638%_ + (##values-ref _g192573_ 0))) + (_%body-blocks187744%_ (let () (declare (not safe)) - (##vector-ref _g192467_ 1)))) - (_%fold-blocks187498%_ + (##values-ref _g192573_ 1)))) + (_%fold-blocks187604%_ (let () (declare (not safe)) (__foldl1 cons - _%rest187631%_ - _%body-blocks187638%_)) - (cons (cons _%name187635%_ + _%rest187737%_ + _%body-blocks187744%_)) + (cons (cons _%name187741%_ (cons 'continue: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (let ((__tmp192469 (map car _%bind187633%_))) + (cons (let ((__tmp192575 (map car _%bind187739%_))) (declare (not safe)) - (##reverse __tmp192469)) - (cons _%body187637%_ '()))) - (cons _%assert187632%_ (cons _%bind187633%_ '()))))) + (##reverse __tmp192575)) + (cons _%body187743%_ '()))) + (cons _%assert187738%_ (cons _%bind187739%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187598%_))))))) - (_%K187603187625%_ (lambda () _%blocks187598%_))) - (let ((_%try-match187601187628%_ + _%blocks187704%_))))))) + (_%K187709187731%_ (lambda () _%blocks187704%_))) + (let ((_%try-match187707187734%_ (lambda () - (if (null? _%rest187599187616%_) - (_%K187603187625%_) - (_%E187602187620%_))))) - (if (pair? _%rest187599187616%_) - (let ((_%tl187606187645%_ + (if (null? _%rest187705187722%_) + (_%K187709187731%_) + (_%E187708187726%_))))) + (if (pair? _%rest187705187722%_) + (let ((_%tl187712187751%_ (let () (declare (not safe)) - (##cdr _%rest187599187616%_))) - (_%hd187605187643%_ + (##cdr _%rest187705187722%_))) + (_%hd187711187749%_ (let () (declare (not safe)) - (##car _%rest187599187616%_)))) - (if (pair? _%hd187605187643%_) - (let ((_%tl187608187650%_ + (##car _%rest187705187722%_)))) + (if (pair? _%hd187711187749%_) + (let ((_%tl187714187756%_ (let () (declare (not safe)) - (##cdr _%hd187605187643%_))) - (_%hd187607187648%_ + (##cdr _%hd187711187749%_))) + (_%hd187713187754%_ (let () (declare (not safe)) - (##car _%hd187605187643%_)))) - (if (pair? _%tl187608187650%_) - (let ((_%tl187610187657%_ + (##car _%hd187711187749%_)))) + (if (pair? _%tl187714187756%_) + (let ((_%tl187716187763%_ (let () (declare (not safe)) - (##cdr _%tl187608187650%_))) - (_%hd187609187655%_ + (##cdr _%tl187714187756%_))) + (_%hd187715187761%_ (let () (declare (not safe)) - (##car _%tl187608187650%_)))) - (if (pair? _%tl187610187657%_) - (let ((_%tl187612187664%_ + (##car _%tl187714187756%_)))) + (if (pair? _%tl187716187763%_) + (let ((_%tl187718187770%_ (let () (declare (not safe)) - (##cdr _%tl187610187657%_))) - (_%hd187611187662%_ + (##cdr _%tl187716187763%_))) + (_%hd187717187768%_ (let () (declare (not safe)) - (##car _%tl187610187657%_)))) - (if (pair? _%tl187612187664%_) - (let ((_%tl187614187671%_ + (##car _%tl187716187763%_)))) + (if (pair? _%tl187718187770%_) + (let ((_%tl187720187777%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%tl187612187664%_))) - (_%hd187613187669%_ - (let () (declare (not safe)) (##car _%tl187612187664%_)))) - (if (null? _%tl187614187671%_) - (let ((_%name187653%_ _%hd187607187648%_) - (_%body187660%_ _%hd187609187655%_) - (_%bind187667%_ _%hd187611187662%_) - (_%assert187674%_ _%hd187613187669%_) - (_%rest187676%_ _%tl187606187645%_)) - (_%K187604187640%_ - _%rest187676%_ - _%assert187674%_ - _%bind187667%_ - _%body187660%_ - _%name187653%_)) - (_%E187602187620%_))) - (_%E187602187620%_))) + (##cdr _%tl187718187770%_))) + (_%hd187719187775%_ + (let () (declare (not safe)) (##car _%tl187718187770%_)))) + (if (null? _%tl187720187777%_) + (let ((_%name187759%_ _%hd187713187754%_) + (_%body187766%_ _%hd187715187761%_) + (_%bind187773%_ _%hd187717187768%_) + (_%assert187780%_ _%hd187719187775%_) + (_%rest187782%_ _%tl187712187751%_)) + (_%K187710187746%_ + _%rest187782%_ + _%assert187780%_ + _%bind187773%_ + _%body187766%_ + _%name187759%_)) + (_%E187708187726%_))) + (_%E187708187726%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E187602187620%_))) - (_%E187602187620%_))) - (_%E187602187620%_))) - (_%try-match187601187628%_)))))))) - (let* ((_%clause187499187506%_ _%clause187492%_) - (_%E187501187510%_ + (_%E187708187726%_))) + (_%E187708187726%_))) + (_%E187708187726%_))) + (_%try-match187707187734%_)))))))) + (let* ((_%clause187605187612%_ _%clause187598%_) + (_%E187607187616%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause187499187506%_ + _%clause187605187612%_ '([name . body]))) '#!void)) - (_%K187502187585%_ - (lambda (_%body187513%_ _%name187514%_) - (let* ((_%g187516187532%_ - (lambda (_%g187517187529%_) + (_%K187608187691%_ + (lambda (_%body187619%_ _%name187620%_) + (let* ((_%g187622187638%_ + (lambda (_%g187623187635%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187517187529%_)))) - (_%g187515187582%_ - (lambda (_%g187517187535%_) + _%g187623187635%_)))) + (_%g187621187688%_ + (lambda (_%g187623187641%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g187517187535%_)) - (let ((_%e187519187537%_ + (gx#stx-pair? _%g187623187641%_)) + (let ((_%e187625187643%_ (let () (declare (not safe)) - (gx#stx-e _%g187517187535%_)))) - (let ((_%hd187520187540%_ + (gx#stx-e _%g187623187641%_)))) + (let ((_%hd187626187646%_ (let () (declare (not safe)) - (##car _%e187519187537%_))) - (_%tl187521187542%_ + (##car _%e187625187643%_))) + (_%tl187627187648%_ (let () (declare (not safe)) - (##cdr _%e187519187537%_)))) + (##cdr _%e187625187643%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187520187540%_)) + _%hd187626187646%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187520187540%_)) + _%hd187626187646%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl187521187542%_)) - (let ((_%e187522187545%_ + _%tl187627187648%_)) + (let ((_%e187628187651%_ (let () (declare (not safe)) (gx#stx-e - _%tl187521187542%_)))) - (let ((_%hd187523187548%_ + _%tl187627187648%_)))) + (let ((_%hd187629187654%_ (let () (declare (not safe)) - (##car _%e187522187545%_))) - (_%tl187524187550%_ + (##car _%e187628187651%_))) + (_%tl187630187656%_ (let () (declare (not safe)) - (##cdr _%e187522187545%_)))) + (##cdr _%e187628187651%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%hd187523187548%_)) + _%hd187629187654%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187524187550%_)) - (let ((_%e187525187553%_ + (gx#stx-pair? _%tl187630187656%_)) + (let ((_%e187631187659%_ (let () (declare (not safe)) - (gx#stx-e _%tl187524187550%_)))) - (let ((_%hd187526187556%_ + (gx#stx-e _%tl187630187656%_)))) + (let ((_%hd187632187662%_ (let () (declare (not safe)) - (##car _%e187525187553%_))) - (_%tl187527187558%_ + (##car _%e187631187659%_))) + (_%tl187633187664%_ (let () (declare (not safe)) - (##cdr _%e187525187553%_)))) + (##cdr _%e187631187659%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187527187558%_)) - ((lambda (_%L187561%_) - (let ((_g192470_ - (_%basic-block187497%_ - _%L187561%_ + (gx#stx-null? _%tl187633187664%_)) + ((lambda (_%L187667%_) + (let ((_g192576_ + (_%basic-block187603%_ + _%L187667%_ '() '()))) (begin - (let ((_g192471_ + (let ((_g192577_ (let () (declare (not safe)) - (if (##values? _g192470_) - (##vector-length _g192470_) + (if (##values? _g192576_) + (##values-length _g192576_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192471_ 2))) + (##fx= _g192577_ 2))) (error "Context expects 2 values" - _g192471_))) - (let ((_%body187579%_ + _g192577_))) + (let ((_%body187685%_ (let () (declare (not safe)) - (##vector-ref _g192470_ 0))) - (_%body-blocks187580%_ + (##values-ref _g192576_ 0))) + (_%body-blocks187686%_ (let () (declare (not safe)) - (##vector-ref _g192470_ 1)))) - (_%fold-blocks187498%_ - _%body-blocks187580%_ - (cons (cons _%name187514%_ + (##values-ref _g192576_ 1)))) + (_%fold-blocks187604%_ + _%body-blocks187686%_ + (cons (cons _%name187620%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187579%_ '()))) + (cons '() (cons _%body187685%_ '()))) (cons '() '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%blocks187493%_)))))) - _%hd187526187556%_) - (_%g187516187532%_ _%g187517187535%_)))) - (_%g187516187532%_ _%g187517187535%_)) - (_%g187516187532%_ _%g187517187535%_)))) + _%blocks187599%_)))))) + _%hd187632187662%_) + (_%g187622187638%_ _%g187623187641%_)))) + (_%g187622187638%_ _%g187623187641%_)) + (_%g187622187638%_ _%g187623187641%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187516187532%_ - _%g187517187535%_)) - (_%g187516187532%_ - _%g187517187535%_)) - (_%g187516187532%_ - _%g187517187535%_)))) - (_%g187516187532%_ _%g187517187535%_))))) - (_%g187515187582%_ _%body187513%_))))) - (if (pair? _%clause187499187506%_) - (let ((_%hd187503187588%_ + (_%g187622187638%_ + _%g187623187641%_)) + (_%g187622187638%_ + _%g187623187641%_)) + (_%g187622187638%_ + _%g187623187641%_)))) + (_%g187622187638%_ _%g187623187641%_))))) + (_%g187621187688%_ _%body187619%_))))) + (if (pair? _%clause187605187612%_) + (let ((_%hd187609187694%_ (let () (declare (not safe)) - (##car _%clause187499187506%_))) - (_%tl187504187590%_ + (##car _%clause187605187612%_))) + (_%tl187610187696%_ (let () (declare (not safe)) - (##cdr _%clause187499187506%_)))) - (let* ((_%name187593%_ _%hd187503187588%_) - (_%body187595%_ _%tl187504187590%_)) - (_%K187502187585%_ _%body187595%_ _%name187593%_))) - (_%E187501187510%_)))))) + (##cdr _%clause187605187612%_)))) + (let* ((_%name187699%_ _%hd187609187694%_) + (_%body187701%_ _%tl187610187696%_)) + (_%K187608187691%_ _%body187701%_ _%name187699%_))) + (_%E187607187616%_)))))) (define gxc#optimize-match-fold-basic-blocks - (lambda (_%blocks187098%_) - (let _%lp187100%_ ((_%rest187102%_ _%blocks187098%_) - (_%blocks187103%_ '())) - (let* ((_%rest187104187112%_ _%rest187102%_) - (_%else187106187161%_ + (lambda (_%blocks187204%_) + (let _%lp187206%_ ((_%rest187208%_ _%blocks187204%_) + (_%blocks187209%_ '())) + (let* ((_%rest187210187218%_ _%rest187208%_) + (_%else187212187267%_ (lambda () - (let ((__tmp192472 - (lambda (_%block187120%_ _%r187121%_) - (let* ((_%block187122187133%_ _%block187120%_) - (_%E187124187137%_ + (let ((__tmp192578 + (lambda (_%block187226%_ _%r187227%_) + (let* ((_%block187228187239%_ _%block187226%_) + (_%E187230187243%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187122187133%_ + _%block187228187239%_ '([name _ kont . _]))) '#!void)) - (_%K187125187143%_ - (lambda (_%kont187140%_ _%name187141%_) - (cons (cons _%name187141%_ - _%kont187140%_) - _%r187121%_)))) - (if (pair? _%block187122187133%_) - (let ((_%hd187126187146%_ + (_%K187231187249%_ + (lambda (_%kont187246%_ _%name187247%_) + (cons (cons _%name187247%_ + _%kont187246%_) + _%r187227%_)))) + (if (pair? _%block187228187239%_) + (let ((_%hd187232187252%_ (let () (declare (not safe)) - (##car _%block187122187133%_))) - (_%tl187127187148%_ + (##car _%block187228187239%_))) + (_%tl187233187254%_ (let () (declare (not safe)) - (##cdr _%block187122187133%_)))) - (let ((_%name187151%_ _%hd187126187146%_)) - (if (pair? _%tl187127187148%_) - (let ((_%tl187129187153%_ + (##cdr _%block187228187239%_)))) + (let ((_%name187257%_ _%hd187232187252%_)) + (if (pair? _%tl187233187254%_) + (let ((_%tl187235187259%_ (let () (declare (not safe)) - (##cdr _%tl187127187148%_)))) - (if (pair? _%tl187129187153%_) - (let* ((_%hd187130187156%_ + (##cdr _%tl187233187254%_)))) + (if (pair? _%tl187235187259%_) + (let* ((_%hd187236187262%_ (let () (declare (not safe)) - (##car _%tl187129187153%_))) - (_%kont187159%_ - _%hd187130187156%_)) - (_%K187125187143%_ - _%kont187159%_ - _%name187151%_)) - (_%E187124187137%_))) - (_%E187124187137%_)))) - (_%E187124187137%_)))))) + (##car _%tl187235187259%_))) + (_%kont187265%_ + _%hd187236187262%_)) + (_%K187231187249%_ + _%kont187265%_ + _%name187257%_)) + (_%E187230187243%_))) + (_%E187230187243%_)))) + (_%E187230187243%_)))))) (declare (not safe)) - (__foldl1 __tmp192472 '() _%blocks187103%_)))) - (_%K187108187480%_ - (lambda (_%rest187164%_ _%block187165%_) - (let* ((_%block187166187191%_ _%block187165%_) - (_%E187169187195%_ + (__foldl1 __tmp192578 '() _%blocks187209%_)))) + (_%K187214187586%_ + (lambda (_%rest187270%_ _%block187271%_) + (let* ((_%block187272187297%_ _%block187271%_) + (_%E187275187301%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block187166187191%_ + _%block187272187297%_ '([name restart: kont assert]) '([name continue: kont assert bind]))) '#!void))) - (let ((_%K187181187451%_ - (lambda (_%assert187373%_ - _%kont187374%_ - _%name187375%_) - (let* ((_%g187377187393%_ - (lambda (_%g187378187390%_) + (let ((_%K187287187557%_ + (lambda (_%assert187479%_ + _%kont187480%_ + _%name187481%_) + (let* ((_%g187483187499%_ + (lambda (_%g187484187496%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187378187390%_)))) - (_%g187376187448%_ - (lambda (_%g187378187396%_) + _%g187484187496%_)))) + (_%g187482187554%_ + (lambda (_%g187484187502%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187378187396%_)) - (let ((_%e187380187398%_ + _%g187484187502%_)) + (let ((_%e187486187504%_ (let () (declare (not safe)) (gx#stx-e - _%g187378187396%_)))) - (let ((_%hd187381187401%_ + _%g187484187502%_)))) + (let ((_%hd187487187507%_ (let () (declare (not safe)) - (##car _%e187380187398%_))) - (_%tl187382187403%_ + (##car _%e187486187504%_))) + (_%tl187488187509%_ (let () (declare (not safe)) - (##cdr _%e187380187398%_)))) + (##cdr _%e187486187504%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187381187401%_)) + _%hd187487187507%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187381187401%_)) + _%hd187487187507%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187382187403%_)) - (let ((_%e187383187406%_ + (gx#stx-pair? _%tl187488187509%_)) + (let ((_%e187489187512%_ (let () (declare (not safe)) - (gx#stx-e _%tl187382187403%_)))) - (let ((_%hd187384187409%_ + (gx#stx-e _%tl187488187509%_)))) + (let ((_%hd187490187515%_ (let () (declare (not safe)) - (##car _%e187383187406%_))) - (_%tl187385187411%_ + (##car _%e187489187512%_))) + (_%tl187491187517%_ (let () (declare (not safe)) - (##cdr _%e187383187406%_)))) + (##cdr _%e187489187512%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%hd187384187409%_)) + (gx#stx-null? _%hd187490187515%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187385187411%_)) - (let ((_%e187386187414%_ + (gx#stx-pair? _%tl187491187517%_)) + (let ((_%e187492187520%_ (let () (declare (not safe)) - (gx#stx-e _%tl187385187411%_)))) - (let ((_%hd187387187417%_ + (gx#stx-e _%tl187491187517%_)))) + (let ((_%hd187493187523%_ (let () (declare (not safe)) - (##car _%e187386187414%_))) - (_%tl187388187419%_ + (##car _%e187492187520%_))) + (_%tl187494187525%_ (let () (declare (not safe)) - (##cdr _%e187386187414%_)))) + (##cdr _%e187492187520%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187388187419%_)) - ((lambda (_%L187422%_) - (let* ((_%body187437%_ + (gx#stx-null? _%tl187494187525%_)) + ((lambda (_%L187528%_) + (let* ((_%body187543%_ (gxc#optimize-match-block - _%L187422%_ - _%assert187373%_ + _%L187528%_ + _%assert187479%_ '() - _%rest187164%_)) - (_%block187439%_ - (cons _%name187375%_ + _%rest187270%_)) + (_%block187545%_ + (cons _%name187481%_ (cons 'restart: (cons (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '() (cons _%body187437%_ '()))) - (cons _%assert187373%_ '()))))) + (cons '() (cons _%body187543%_ '()))) + (cons _%assert187479%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187441%_ - (cons _%block187439%_ - _%blocks187103%_)) - (_%rest187443%_ + (_%blocks187547%_ + (cons _%block187545%_ + _%blocks187209%_)) + (_%rest187549%_ (gxc#optimize-match-prune-blocks - _%rest187164%_ - _%blocks187441%_)) - (_%rest187445%_ + _%rest187270%_ + _%blocks187547%_)) + (_%rest187551%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187443%_ - _%blocks187441%_))) - (_%lp187100%_ - _%rest187445%_ - _%blocks187441%_))) - _%hd187387187417%_) - (_%g187377187393%_ - _%g187378187396%_)))) - (_%g187377187393%_ _%g187378187396%_)) - (_%g187377187393%_ _%g187378187396%_)))) - (_%g187377187393%_ _%g187378187396%_)) - (_%g187377187393%_ _%g187378187396%_)) + _%rest187549%_ + _%blocks187547%_))) + (_%lp187206%_ + _%rest187551%_ + _%blocks187547%_))) + _%hd187493187523%_) + (_%g187483187499%_ + _%g187484187502%_)))) + (_%g187483187499%_ _%g187484187502%_)) + (_%g187483187499%_ _%g187484187502%_)))) + (_%g187483187499%_ _%g187484187502%_)) + (_%g187483187499%_ _%g187484187502%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187377187393%_ - _%g187378187396%_)))) - (_%g187377187393%_ - _%g187378187396%_))))) - (_%g187376187448%_ _%kont187374%_)))) - (_%K187170187334%_ - (lambda (_%bind187199%_ - _%assert187200%_ - _%kont187201%_ - _%name187202%_) - (let* ((_%g187204187230%_ - (lambda (_%g187205187227%_) + (_%g187483187499%_ + _%g187484187502%_)))) + (_%g187483187499%_ + _%g187484187502%_))))) + (_%g187482187554%_ _%kont187480%_)))) + (_%K187276187440%_ + (lambda (_%bind187305%_ + _%assert187306%_ + _%kont187307%_ + _%name187308%_) + (let* ((_%g187310187336%_ + (lambda (_%g187311187333%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g187205187227%_)))) - (_%g187203187331%_ - (lambda (_%g187205187233%_) + _%g187311187333%_)))) + (_%g187309187437%_ + (lambda (_%g187311187339%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g187205187233%_)) - (let ((_%e187208187235%_ + _%g187311187339%_)) + (let ((_%e187314187341%_ (let () (declare (not safe)) (gx#stx-e - _%g187205187233%_)))) - (let ((_%hd187209187238%_ + _%g187311187339%_)))) + (let ((_%hd187315187344%_ (let () (declare (not safe)) - (##car _%e187208187235%_))) - (_%tl187210187240%_ + (##car _%e187314187341%_))) + (_%tl187316187346%_ (let () (declare (not safe)) - (##cdr _%e187208187235%_)))) + (##cdr _%e187314187341%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd187209187238%_)) + _%hd187315187344%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd187209187238%_)) + _%hd187315187344%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl187210187240%_)) - (let ((_%e187211187243%_ + (gx#stx-pair? _%tl187316187346%_)) + (let ((_%e187317187349%_ (let () (declare (not safe)) - (gx#stx-e _%tl187210187240%_)))) - (let ((_%hd187212187246%_ + (gx#stx-e _%tl187316187346%_)))) + (let ((_%hd187318187352%_ (let () (declare (not safe)) - (##car _%e187211187243%_))) - (_%tl187213187248%_ + (##car _%e187317187349%_))) + (_%tl187319187354%_ (let () (declare (not safe)) - (##cdr _%e187211187243%_)))) + (##cdr _%e187317187349%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd187212187246%_)) - (let ((_g192473_ + (gx#stx-pair/null? _%hd187318187352%_)) + (let ((_g192579_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd187212187246%_ + _%hd187318187352%_ '0)))) (begin - (let ((_g192474_ + (let ((_g192580_ (let () (declare (not safe)) - (if (##values? _g192473_) - (##vector-length _g192473_) + (if (##values? _g192579_) + (##values-length _g192579_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192474_ 2))) + (##fx= _g192580_ 2))) (error "Context expects 2 values" - _g192474_))) - (let ((_%target187214187251%_ + _g192580_))) + (let ((_%target187320187357%_ (let () (declare (not safe)) - (##vector-ref _g192473_ 0))) - (_%tl187216187253%_ + (##values-ref _g192579_ 0))) + (_%tl187322187359%_ (let () (declare (not safe)) - (##vector-ref _g192473_ 1)))) + (##values-ref _g192579_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187216187253%_)) - (letrec ((_%loop187217187256%_ - (lambda (_%hd187215187259%_ - _%id187221187261%_) + (gx#stx-null? _%tl187322187359%_)) + (letrec ((_%loop187323187362%_ + (lambda (_%hd187321187365%_ + _%id187327187367%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd187215187259%_)) - (let ((_%e187218187264%_ + _%hd187321187365%_)) + (let ((_%e187324187370%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd187215187259%_)))) - (let ((_%lp-hd187219187267%_ + (gx#stx-e _%hd187321187365%_)))) + (let ((_%lp-hd187325187373%_ (let () (declare (not safe)) - (##car _%e187218187264%_))) - (_%lp-tl187220187269%_ + (##car _%e187324187370%_))) + (_%lp-tl187326187375%_ (let () (declare (not safe)) - (##cdr _%e187218187264%_)))) - (_%loop187217187256%_ - _%lp-tl187220187269%_ - (cons _%lp-hd187219187267%_ _%id187221187261%_)))) - (let ((_%id187222187272%_ (reverse _%id187221187261%_))) + (##cdr _%e187324187370%_)))) + (_%loop187323187362%_ + _%lp-tl187326187375%_ + (cons _%lp-hd187325187373%_ _%id187327187367%_)))) + (let ((_%id187328187378%_ (reverse _%id187327187367%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl187213187248%_)) - (let ((_%e187223187275%_ + (gx#stx-pair? _%tl187319187354%_)) + (let ((_%e187329187381%_ (let () (declare (not safe)) - (gx#stx-e _%tl187213187248%_)))) - (let ((_%hd187224187278%_ + (gx#stx-e _%tl187319187354%_)))) + (let ((_%hd187330187384%_ (let () (declare (not safe)) - (##car _%e187223187275%_))) - (_%tl187225187280%_ + (##car _%e187329187381%_))) + (_%tl187331187386%_ (let () (declare (not safe)) - (##cdr _%e187223187275%_)))) + (##cdr _%e187329187381%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl187225187280%_)) - ((lambda (_%L187283%_ _%L187284%_) - (let* ((_%body187313%_ + (gx#stx-null? _%tl187331187386%_)) + ((lambda (_%L187389%_ _%L187390%_) + (let* ((_%body187419%_ (gxc#optimize-match-block - _%L187283%_ - _%assert187200%_ - _%bind187199%_ - _%rest187164%_)) - (_%block187322%_ - (cons _%name187202%_ + _%L187389%_ + _%assert187306%_ + _%bind187305%_ + _%rest187270%_)) + (_%block187428%_ + (cons _%name187308%_ (cons 'continue: (cons (cons '%#lambda - (cons (let ((__tmp192475 + (cons (let ((__tmp192581 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g187314187317%_ - _%g187315187319%_) - (cons _%g187314187317%_ - _%g187315187319%_)))) + (lambda (_%g187420187423%_ + _%g187421187425%_) + (cons _%g187420187423%_ + _%g187421187425%_)))) (declare (not safe)) - (__foldr1 __tmp192475 '() _%L187284%_)) - (cons _%body187313%_ '()))) - (cons _%assert187200%_ (cons _%bind187199%_ '())))))) + (__foldr1 __tmp192581 '() _%L187390%_)) + (cons _%body187419%_ '()))) + (cons _%assert187306%_ (cons _%bind187305%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%blocks187324%_ - (cons _%block187322%_ - _%blocks187103%_)) - (_%rest187326%_ + (_%blocks187430%_ + (cons _%block187428%_ + _%blocks187209%_)) + (_%rest187432%_ (gxc#optimize-match-prune-blocks - _%rest187164%_ - _%blocks187324%_)) - (_%rest187328%_ + _%rest187270%_ + _%blocks187430%_)) + (_%rest187434%_ (gxc#optimize-match-fuse-restart-blocks - _%rest187326%_ - _%blocks187324%_))) - (_%lp187100%_ - _%rest187328%_ - _%blocks187324%_))) - _%hd187224187278%_ - _%id187222187272%_) - (_%g187204187230%_ _%g187205187233%_)))) - (_%g187204187230%_ _%g187205187233%_))))))) + _%rest187432%_ + _%blocks187430%_))) + (_%lp187206%_ + _%rest187434%_ + _%blocks187430%_))) + _%hd187330187384%_ + _%id187328187378%_) + (_%g187310187336%_ _%g187311187339%_)))) + (_%g187310187336%_ _%g187311187339%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop187217187256%_ - _%target187214187251%_ + (_%loop187323187362%_ + _%target187320187357%_ '())) - (_%g187204187230%_ - _%g187205187233%_))))) - (_%g187204187230%_ _%g187205187233%_)))) - (_%g187204187230%_ _%g187205187233%_)) - (_%g187204187230%_ _%g187205187233%_)) + (_%g187310187336%_ + _%g187311187339%_))))) + (_%g187310187336%_ _%g187311187339%_)))) + (_%g187310187336%_ _%g187311187339%_)) + (_%g187310187336%_ _%g187311187339%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g187204187230%_ - _%g187205187233%_)))) - (_%g187204187230%_ - _%g187205187233%_))))) - (_%g187203187331%_ _%kont187201%_))))) - (let* ((_%__match189833189834%_ - (lambda (_%hd187171187337%_ - _%tl187172187339%_ - _%hd187173187344%_ - _%tl187174187346%_ - _%hd187175187349%_ - _%tl187176187351%_ - _%hd187177187356%_ - _%tl187178187358%_ - _%hd187179187363%_ - _%tl187180187365%_) - (let ((_%name187342%_ _%hd187171187337%_) - (_%kont187354%_ _%hd187175187349%_) - (_%assert187361%_ _%hd187177187356%_) - (_%bind187368%_ _%hd187179187363%_)) - (_%E187169187195%_)))) - (_%__match189827189828%_ - (lambda (_%hd187171187337%_ - _%tl187172187339%_ - _%hd187173187344%_ - _%tl187174187346%_ - _%hd187175187349%_ - _%tl187176187351%_ - _%hd187177187356%_ - _%tl187178187358%_) - (let ((_%name187342%_ _%hd187171187337%_) - (_%kont187354%_ _%hd187175187349%_) - (_%assert187361%_ _%hd187177187356%_)) - (_%E187169187195%_)))) - (_%__match189821189822%_ - (lambda (_%hd187171187337%_ - _%tl187172187339%_ - _%hd187173187344%_ - _%tl187174187346%_ - _%hd187175187349%_ - _%tl187176187351%_) - (let ((_%name187342%_ _%hd187171187337%_) - (_%kont187354%_ _%hd187175187349%_)) - (_%E187169187195%_)))) - (_%__match189815189816%_ - (lambda (_%hd187171187337%_ - _%tl187172187339%_ - _%hd187173187344%_ - _%tl187174187346%_) - (let ((_%name187342%_ _%hd187171187337%_)) - (_%E187169187195%_)))) - (_%__match189811189812%_ - (lambda (_%hd187171187337%_ - _%tl187172187339%_ - _%hd187173187344%_ - _%tl187174187346%_) - (let ((_%name187342%_ _%hd187171187337%_)) - (_%E187169187195%_)))) - (_%__match189805189806%_ - (lambda (_%hd187171187337%_ _%tl187172187339%_) - (let ((_%name187342%_ _%hd187171187337%_)) - (_%E187169187195%_))))) - (if (pair? _%block187166187191%_) - (let ((_%tl187183187456%_ + (_%g187310187336%_ + _%g187311187339%_)))) + (_%g187310187336%_ + _%g187311187339%_))))) + (_%g187309187437%_ _%kont187307%_))))) + (let* ((_%__match189939189940%_ + (lambda (_%hd187277187443%_ + _%tl187278187445%_ + _%hd187279187450%_ + _%tl187280187452%_ + _%hd187281187455%_ + _%tl187282187457%_ + _%hd187283187462%_ + _%tl187284187464%_ + _%hd187285187469%_ + _%tl187286187471%_) + (let ((_%name187448%_ _%hd187277187443%_) + (_%kont187460%_ _%hd187281187455%_) + (_%assert187467%_ _%hd187283187462%_) + (_%bind187474%_ _%hd187285187469%_)) + (_%E187275187301%_)))) + (_%__match189933189934%_ + (lambda (_%hd187277187443%_ + _%tl187278187445%_ + _%hd187279187450%_ + _%tl187280187452%_ + _%hd187281187455%_ + _%tl187282187457%_ + _%hd187283187462%_ + _%tl187284187464%_) + (let ((_%name187448%_ _%hd187277187443%_) + (_%kont187460%_ _%hd187281187455%_) + (_%assert187467%_ _%hd187283187462%_)) + (_%E187275187301%_)))) + (_%__match189927189928%_ + (lambda (_%hd187277187443%_ + _%tl187278187445%_ + _%hd187279187450%_ + _%tl187280187452%_ + _%hd187281187455%_ + _%tl187282187457%_) + (let ((_%name187448%_ _%hd187277187443%_) + (_%kont187460%_ _%hd187281187455%_)) + (_%E187275187301%_)))) + (_%__match189921189922%_ + (lambda (_%hd187277187443%_ + _%tl187278187445%_ + _%hd187279187450%_ + _%tl187280187452%_) + (let ((_%name187448%_ _%hd187277187443%_)) + (_%E187275187301%_)))) + (_%__match189917189918%_ + (lambda (_%hd187277187443%_ + _%tl187278187445%_ + _%hd187279187450%_ + _%tl187280187452%_) + (let ((_%name187448%_ _%hd187277187443%_)) + (_%E187275187301%_)))) + (_%__match189911189912%_ + (lambda (_%hd187277187443%_ _%tl187278187445%_) + (let ((_%name187448%_ _%hd187277187443%_)) + (_%E187275187301%_))))) + (if (pair? _%block187272187297%_) + (let ((_%tl187289187562%_ (let () (declare (not safe)) - (##cdr _%block187166187191%_))) - (_%hd187182187454%_ + (##cdr _%block187272187297%_))) + (_%hd187288187560%_ (let () (declare (not safe)) - (##car _%block187166187191%_)))) - (if (pair? _%tl187183187456%_) - (let ((_%tl187185187463%_ + (##car _%block187272187297%_)))) + (if (pair? _%tl187289187562%_) + (let ((_%tl187291187569%_ (let () (declare (not safe)) - (##cdr _%tl187183187456%_))) - (_%hd187184187461%_ + (##cdr _%tl187289187562%_))) + (_%hd187290187567%_ (let () (declare (not safe)) - (##car _%tl187183187456%_)))) + (##car _%tl187289187562%_)))) (if (let () (declare (not safe)) - (##eq? _%hd187184187461%_ + (##eq? _%hd187290187567%_ 'restart:)) - (if (pair? _%tl187185187463%_) - (let ((_%tl187187187468%_ + (if (pair? _%tl187291187569%_) + (let ((_%tl187293187574%_ (let () (declare (not safe)) - (##cdr _%tl187185187463%_))) - (_%hd187186187466%_ + (##cdr _%tl187291187569%_))) + (_%hd187292187572%_ (let () (declare (not safe)) - (##car _%tl187185187463%_)))) - (if (pair? _%tl187187187468%_) - (let ((_%tl187189187475%_ + (##car _%tl187291187569%_)))) + (if (pair? _%tl187293187574%_) + (let ((_%tl187295187581%_ (let () (declare (not safe)) - (##cdr _%tl187187187468%_))) - (_%hd187188187473%_ + (##cdr _%tl187293187574%_))) + (_%hd187294187579%_ (let () (declare (not safe)) - (##car _%tl187187187468%_)))) - (if (null? _%tl187189187475%_) - (let ((_%name187459%_ + (##car _%tl187293187574%_)))) + (if (null? _%tl187295187581%_) + (let ((_%name187565%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd187182187454%_) - (_%kont187471%_ _%hd187186187466%_) - (_%assert187478%_ _%hd187188187473%_)) - (_%K187181187451%_ - _%assert187478%_ - _%kont187471%_ - _%name187459%_)) - (_%__match189811189812%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_))) + _%hd187288187560%_) + (_%kont187577%_ _%hd187292187572%_) + (_%assert187584%_ _%hd187294187579%_)) + (_%K187287187557%_ + _%assert187584%_ + _%kont187577%_ + _%name187565%_)) + (_%__match189917189918%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189811189812%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_))) - (_%__match189811189812%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_)) + (_%__match189917189918%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_))) + (_%__match189917189918%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_)) (if (let () (declare (not safe)) - (##eq? _%hd187184187461%_ + (##eq? _%hd187290187567%_ 'continue:)) - (if (pair? _%tl187185187463%_) - (let ((_%tl187176187351%_ + (if (pair? _%tl187291187569%_) + (let ((_%tl187282187457%_ (let () (declare (not safe)) - (##cdr _%tl187185187463%_))) - (_%hd187175187349%_ + (##cdr _%tl187291187569%_))) + (_%hd187281187455%_ (let () (declare (not safe)) - (##car _%tl187185187463%_)))) - (if (pair? _%tl187176187351%_) - (let ((_%tl187178187358%_ + (##car _%tl187291187569%_)))) + (if (pair? _%tl187282187457%_) + (let ((_%tl187284187464%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%tl187176187351%_))) - (_%hd187177187356%_ + (##cdr _%tl187282187457%_))) + (_%hd187283187462%_ (let () (declare (not safe)) - (##car _%tl187176187351%_)))) - (if (pair? _%tl187178187358%_) - (let ((_%tl187180187365%_ + (##car _%tl187282187457%_)))) + (if (pair? _%tl187284187464%_) + (let ((_%tl187286187471%_ (let () (declare (not safe)) - (##cdr _%tl187178187358%_))) - (_%hd187179187363%_ + (##cdr _%tl187284187464%_))) + (_%hd187285187469%_ (let () (declare (not safe)) - (##car _%tl187178187358%_)))) - (if (null? _%tl187180187365%_) - (let ((_%name187342%_ _%hd187182187454%_) - (_%kont187354%_ _%hd187175187349%_) - (_%assert187361%_ _%hd187177187356%_) - (_%bind187368%_ _%hd187179187363%_)) - (_%K187170187334%_ - _%bind187368%_ - _%assert187361%_ - _%kont187354%_ - _%name187342%_)) - (_%__match189833189834%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_ - _%hd187175187349%_ - _%tl187176187351%_ - _%hd187177187356%_ - _%tl187178187358%_ - _%hd187179187363%_ - _%tl187180187365%_))) - (_%__match189827189828%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_ - _%hd187175187349%_ - _%tl187176187351%_ - _%hd187177187356%_ - _%tl187178187358%_))) - (_%__match189821189822%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_ - _%hd187175187349%_ - _%tl187176187351%_))) + (##car _%tl187284187464%_)))) + (if (null? _%tl187286187471%_) + (let ((_%name187448%_ _%hd187288187560%_) + (_%kont187460%_ _%hd187281187455%_) + (_%assert187467%_ _%hd187283187462%_) + (_%bind187474%_ _%hd187285187469%_)) + (_%K187276187440%_ + _%bind187474%_ + _%assert187467%_ + _%kont187460%_ + _%name187448%_)) + (_%__match189939189940%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_ + _%hd187281187455%_ + _%tl187282187457%_ + _%hd187283187462%_ + _%tl187284187464%_ + _%hd187285187469%_ + _%tl187286187471%_))) + (_%__match189933189934%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_ + _%hd187281187455%_ + _%tl187282187457%_ + _%hd187283187462%_ + _%tl187284187464%_))) + (_%__match189927189928%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_ + _%hd187281187455%_ + _%tl187282187457%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match189815189816%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_)) - (_%__match189811189812%_ - _%hd187182187454%_ - _%tl187183187456%_ - _%hd187184187461%_ - _%tl187185187463%_)))) - (_%__match189805189806%_ - _%hd187182187454%_ - _%tl187183187456%_))) - (_%E187169187195%_)))))))) - (if (pair? _%rest187104187112%_) - (let ((_%hd187109187483%_ + (_%__match189921189922%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_)) + (_%__match189917189918%_ + _%hd187288187560%_ + _%tl187289187562%_ + _%hd187290187567%_ + _%tl187291187569%_)))) + (_%__match189911189912%_ + _%hd187288187560%_ + _%tl187289187562%_))) + (_%E187275187301%_)))))))) + (if (pair? _%rest187210187218%_) + (let ((_%hd187215187589%_ (let () (declare (not safe)) - (##car _%rest187104187112%_))) - (_%tl187110187485%_ + (##car _%rest187210187218%_))) + (_%tl187216187591%_ (let () (declare (not safe)) - (##cdr _%rest187104187112%_)))) - (let* ((_%block187488%_ _%hd187109187483%_) - (_%rest187490%_ _%tl187110187485%_)) - (_%K187108187480%_ _%rest187490%_ _%block187488%_))) - (_%else187106187161%_)))))) + (##cdr _%rest187210187218%_)))) + (let* ((_%block187594%_ _%hd187215187589%_) + (_%rest187596%_ _%tl187216187591%_)) + (_%K187214187586%_ _%rest187596%_ _%block187594%_))) + (_%else187212187267%_)))))) (define gxc#optimize-match-block - (lambda (_%body181721%_ _%assert181722%_ _%bind181723%_ _%blocks181724%_) - (letrec* ((_%env-assert181959%_ '()) - (_%env-type181960%_ '()) - (_%env-bind181961%_ '()) - (_%in-splice?181962%_ '#f) - (_%do-assert181963%_ - (lambda (_%assert187021%_ _%K187022%_) - (if (pair? _%assert187021%_) - (let _%lp187024%_ ((_%rest187026%_ _%assert187021%_) - (_%env-assert187027%_ - _%env-assert181959%_) - (_%env-type187028%_ - _%env-type181960%_)) - (let* ((_%rest187029187037%_ _%rest187026%_) - (_%else187031187045%_ + (lambda (_%body181827%_ _%assert181828%_ _%bind181829%_ _%blocks181830%_) + (letrec* ((_%env-assert182065%_ '()) + (_%env-type182066%_ '()) + (_%env-bind182067%_ '()) + (_%in-splice?182068%_ '#f) + (_%do-assert182069%_ + (lambda (_%assert187127%_ _%K187128%_) + (if (pair? _%assert187127%_) + (let _%lp187130%_ ((_%rest187132%_ _%assert187127%_) + (_%env-assert187133%_ + _%env-assert182065%_) + (_%env-type187134%_ + _%env-type182066%_)) + (let* ((_%rest187135187143%_ _%rest187132%_) + (_%else187137187151%_ (lambda () - (_%do-assert!181969%_ - _%env-assert187027%_ - _%env-type187028%_ - _%K187022%_))) - (_%K187033187086%_ - (lambda (_%rest187048%_ _%assert187049%_) - (let* ((_%assert187050187057%_ - _%assert187049%_) - (_%E187052187061%_ + (_%do-assert!182075%_ + _%env-assert187133%_ + _%env-type187134%_ + _%K187128%_))) + (_%K187139187192%_ + (lambda (_%rest187154%_ _%assert187155%_) + (let* ((_%assert187156187163%_ + _%assert187155%_) + (_%E187158187167%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%assert187050187057%_ + _%assert187156187163%_ '([expr . val]))) '#!void)) - (_%K187053187074%_ - (lambda (_%val187064%_ - _%expr187065%_) - (let* ((_%sexpr187067%_ + (_%K187159187180%_ + (lambda (_%val187170%_ + _%expr187171%_) + (let* ((_%sexpr187173%_ (gxc#apply-generate-runtime-repr - _%expr187065%_)) - (_%env-assert187069%_ - (cons (cons _%sexpr187067%_ + _%expr187171%_)) + (_%env-assert187175%_ + (cons (cons _%sexpr187173%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%val187064%_) - _%env-assert187027%_)) - (_%env-type187071%_ - (_%fold-assert-type181965%_ - _%expr187065%_ - _%val187064%_ - _%env-type187028%_))) + _%val187170%_) + _%env-assert187133%_)) + (_%env-type187177%_ + (_%fold-assert-type182071%_ + _%expr187171%_ + _%val187170%_ + _%env-type187134%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp187024%_ - _%rest187048%_ - _%env-assert187069%_ - _%env-type187071%_))))) - (if (pair? _%assert187050187057%_) - (let ((_%hd187054187077%_ + (_%lp187130%_ + _%rest187154%_ + _%env-assert187175%_ + _%env-type187177%_))))) + (if (pair? _%assert187156187163%_) + (let ((_%hd187160187183%_ (let () (declare (not safe)) - (##car _%assert187050187057%_))) - (_%tl187055187079%_ + (##car _%assert187156187163%_))) + (_%tl187161187185%_ (let () (declare (not safe)) - (##cdr _%assert187050187057%_)))) - (let* ((_%expr187082%_ - _%hd187054187077%_) - (_%val187084%_ - _%tl187055187079%_)) - (_%K187053187074%_ - _%val187084%_ - _%expr187082%_))) - (_%E187052187061%_)))))) - (if (pair? _%rest187029187037%_) - (let ((_%hd187034187089%_ + (##cdr _%assert187156187163%_)))) + (let* ((_%expr187188%_ + _%hd187160187183%_) + (_%val187190%_ + _%tl187161187185%_)) + (_%K187159187180%_ + _%val187190%_ + _%expr187188%_))) + (_%E187158187167%_)))))) + (if (pair? _%rest187135187143%_) + (let ((_%hd187140187195%_ (let () (declare (not safe)) - (##car _%rest187029187037%_))) - (_%tl187035187091%_ + (##car _%rest187135187143%_))) + (_%tl187141187197%_ (let () (declare (not safe)) - (##cdr _%rest187029187037%_)))) - (let* ((_%assert187094%_ _%hd187034187089%_) - (_%rest187096%_ _%tl187035187091%_)) - (_%K187033187086%_ - _%rest187096%_ - _%assert187094%_))) - (_%else187031187045%_)))) - (_%K187022%_)))) - (_%predicate-type181964%_ - (lambda (_%id186966%_) - (let* ((_%sym186968%_ + (##cdr _%rest187135187143%_)))) + (let* ((_%assert187200%_ _%hd187140187195%_) + (_%rest187202%_ _%tl187141187197%_)) + (_%K187139187192%_ + _%rest187202%_ + _%assert187200%_))) + (_%else187137187151%_)))) + (_%K187128%_)))) + (_%predicate-type182070%_ + (lambda (_%id187072%_) + (let* ((_%sym187074%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id186966%_))) - (_%$e186970%_ _%sym186968%_)) - (let ((_%default186972187003%_ + (gxc#identifier-symbol _%id187072%_))) + (_%$e187076%_ _%sym187074%_)) + (let ((_%default187078187109%_ (lambda () - (let* ((_%g186975186982%_ + (let* ((_%g187081187088%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym186968%_))) - (_%else186977186990%_ (lambda () '#f)) - (_%K186979186995%_ - (lambda (_%t186993%_) - (let ((__tmp192476 + _%sym187074%_))) + (_%else187083187096%_ (lambda () '#f)) + (_%K187085187101%_ + (lambda (_%t187099%_) + (let ((__tmp192582 (cons 'predicate-type - (cons _%id186966%_ + (cons _%id187072%_ '())))) (declare (not safe)) (gxc#optimizer-resolve-class - __tmp192476 - _%t186993%_))))) + __tmp192582 + _%t187099%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g186975186982%_ + _%g187081187088%_ 'gxc#!predicate::t)) - (let* ((_%e186980186998%_ + (let* ((_%e187086187104%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g186975186982%_ + _%g187081187088%_ '1 '#f '#f))) - (_%t187001%_ _%e186980186998%_)) - (_%K186979186995%_ _%t187001%_)) - (_%else186977186990%_))))) - (_%table186973187005%_ + (_%t187107%_ _%e187086187104%_)) + (_%K187085187101%_ _%t187107%_)) + (_%else187083187096%_))))) + (_%table187079187111%_ '#(#f (##box? . 3) #f @@ -3796,48 +3796,48 @@ #f #f #f))) - (if (symbol? _%$e186970%_) - (let* ((_%h187008%_ + (if (symbol? _%$e187076%_) + (let* ((_%h187114%_ (let () (declare (not safe)) - (##symbol-hash _%$e186970%_))) - (_%ix187011%_ + (##symbol-hash _%$e187076%_))) + (_%ix187117%_ (let () (declare (not safe)) - (##fxmodulo _%h187008%_ '63))) - (_%q187014%_ + (##fxmodulo _%h187114%_ '63))) + (_%q187120%_ (let () (declare (not safe)) (##vector-ref - _%table186973187005%_ - _%ix187011%_)))) - (if _%q187014%_ + _%table187079187111%_ + _%ix187117%_)))) + (if _%q187120%_ (if (eq? (let () (declare (not safe)) - (##car _%q187014%_)) - _%$e186970%_) - (let ((_%x187018%_ + (##car _%q187120%_)) + _%$e187076%_) + (let ((_%x187124%_ (let () (declare (not safe)) - (##cdr _%q187014%_)))) + (##cdr _%q187120%_)))) (if (let () (declare (not safe)) - (##fx< _%x187018%_ '5)) + (##fx< _%x187124%_ '5)) (if (let () (declare (not safe)) - (##fx< _%x187018%_ '2)) + (##fx< _%x187124%_ '2)) (if (let () (declare (not safe)) - (##fx= _%x187018%_ '0)) + (##fx= _%x187124%_ '0)) 'pair 'null) (if (let () (declare (not safe)) - (##fx= _%x187018%_ '2)) + (##fx= _%x187124%_ '2)) 'vector (if (let () (declare (not safe)) - (##fx= _%x187018%_ + (##fx= _%x187124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '3)) 'box @@ -3845,356 +3845,356 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (##fx< _%x187018%_ '7)) + (##fx< _%x187124%_ '7)) (if (let () (declare (not safe)) - (##fx= _%x187018%_ '5)) + (##fx= _%x187124%_ '5)) 'stx-pair 'stx-null) (if (let () (declare (not safe)) - (##fx= _%x187018%_ '7)) + (##fx= _%x187124%_ '7)) 'stx-vector (if (let () (declare (not safe)) - (##fx= _%x187018%_ + (##fx= _%x187124%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '8)) 'stx-box 'stx-datum))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%default186972187003%_)) - (_%default186972187003%_))) - (_%default186972187003%_)))))) - (_%fold-assert-type181965%_ - (lambda (_%expr185912%_ _%val185913%_ _%env185914%_) - (let* ((_%__stx189930189931%_ _%expr185912%_) - (_%g185922186101%_ + (_%default187078187109%_)) + (_%default187078187109%_))) + (_%default187078187109%_)))))) + (_%fold-assert-type182071%_ + (lambda (_%expr186018%_ _%val186019%_ _%env186020%_) + (let* ((_%__stx190036190037%_ _%expr186018%_) + (_%g186028186207%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189930189931%_))))) - (let ((_%__kont189932189933%_ - (lambda (_%L186934%_ _%L186935%_) - (let ((_%$e186957%_ - (_%predicate-type181964%_ _%L186935%_))) - (if _%$e186957%_ - ((lambda (_%t186960%_) - (cons (cons _%L186934%_ - (cons _%t186960%_ - (cons _%val185913%_ + _%__stx190036190037%_))))) + (let ((_%__kont190038190039%_ + (lambda (_%L187040%_ _%L187041%_) + (let ((_%$e187063%_ + (_%predicate-type182070%_ _%L187041%_))) + (if _%$e187063%_ + ((lambda (_%t187066%_) + (cons (cons _%L187040%_ + (cons _%t187066%_ + (cons _%val186019%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185914%_)) - _%$e186957%_) - _%env185914%_)))) - (_%__kont189934189935%_ - (lambda (_%L186623%_ _%L186624%_ _%L186625%_) - (let ((_%$e186650%_ + _%env186020%_)) + _%$e187063%_) + _%env186020%_)))) + (_%__kont190040190041%_ + (lambda (_%L186729%_ _%L186730%_ _%L186731%_) + (let ((_%$e186756%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186625%_)))) - (if (or (eq? '##fx= _%$e186650%_) - (eq? 'fx= _%$e186650%_)) - (let* ((_%__stx189836189837%_ - _%L186624%_) - (_%g186657186686%_ + (gxc#identifier-symbol _%L186731%_)))) + (if (or (eq? '##fx= _%$e186756%_) + (eq? 'fx= _%$e186756%_)) + (let* ((_%__stx189942189943%_ + _%L186730%_) + (_%g186763186792%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189836189837%_))))) - (let ((_%__kont189838189839%_ - (lambda (_%L186754%_ - _%L186755%_) - (let ((_%$e186780%_ - (_%countf-symbol181966%_ - _%L186755%_))) - (if _%$e186780%_ - ((lambda (_%sym186783%_) - (cons (cons _%L186754%_ + _%__stx189942189943%_))))) + (let ((_%__kont189944189945%_ + (lambda (_%L186860%_ + _%L186861%_) + (let ((_%$e186886%_ + (_%countf-symbol182072%_ + _%L186861%_))) + (if _%$e186886%_ + ((lambda (_%sym186889%_) + (cons (cons _%L186860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186783%_ + (cons _%sym186889%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186623%_)) - (cons _%val185913%_ '())))) - _%env185914%_)) - _%$e186780%_) - _%env185914%_)))) + (gx#stx-e _%L186729%_)) + (cons _%val186019%_ '())))) + _%env186020%_)) + _%$e186886%_) + _%env186020%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189840189841%_ - (lambda () _%env185914%_))) + (_%__kont189946189947%_ + (lambda () _%env186020%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189836189837%_)) - (let ((_%e186661186698%_ + _%__stx189942189943%_)) + (let ((_%e186767186804%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189836189837%_)))) - (let ((_%tl186663186703%_ + _%__stx189942189943%_)))) + (let ((_%tl186769186809%_ (let () (declare (not safe)) - (##cdr _%e186661186698%_))) - (_%hd186662186701%_ + (##cdr _%e186767186804%_))) + (_%hd186768186807%_ (let () (declare (not safe)) - (##car _%e186661186698%_)))) + (##car _%e186767186804%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd186662186701%_)) + _%hd186768186807%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd186662186701%_)) + _%hd186768186807%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl186663186703%_)) - (let ((_%e186664186706%_ + (gx#stx-pair? _%tl186769186809%_)) + (let ((_%e186770186812%_ (let () (declare (not safe)) - (gx#stx-e _%tl186663186703%_)))) - (let ((_%tl186666186711%_ + (gx#stx-e _%tl186769186809%_)))) + (let ((_%tl186772186817%_ (let () (declare (not safe)) - (##cdr _%e186664186706%_))) - (_%hd186665186709%_ + (##cdr _%e186770186812%_))) + (_%hd186771186815%_ (let () (declare (not safe)) - (##car _%e186664186706%_)))) + (##car _%e186770186812%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186665186709%_)) - (let ((_%e186667186714%_ + (gx#stx-pair? _%hd186771186815%_)) + (let ((_%e186773186820%_ (let () (declare (not safe)) - (gx#stx-e _%hd186665186709%_)))) - (let ((_%tl186669186719%_ + (gx#stx-e _%hd186771186815%_)))) + (let ((_%tl186775186825%_ (let () (declare (not safe)) - (##cdr _%e186667186714%_))) - (_%hd186668186717%_ + (##cdr _%e186773186820%_))) + (_%hd186774186823%_ (let () (declare (not safe)) - (##car _%e186667186714%_)))) + (##car _%e186773186820%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186668186717%_)) + (gx#identifier? _%hd186774186823%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186668186717%_)) + _%hd186774186823%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186669186719%_)) - (let ((_%e186670186722%_ + _%tl186775186825%_)) + (let ((_%e186776186828%_ (let () (declare (not safe)) (gx#stx-e - _%tl186669186719%_)))) - (let ((_%tl186672186727%_ + _%tl186775186825%_)))) + (let ((_%tl186778186833%_ (let () (declare (not safe)) - (##cdr _%e186670186722%_))) - (_%hd186671186725%_ + (##cdr _%e186776186828%_))) + (_%hd186777186831%_ (let () (declare (not safe)) - (##car _%e186670186722%_)))) + (##car _%e186776186828%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186672186727%_)) + _%tl186778186833%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186666186711%_)) - (let ((_%e186673186730%_ + _%tl186772186817%_)) + (let ((_%e186779186836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl186666186711%_)))) - (let ((_%tl186675186735%_ + (gx#stx-e _%tl186772186817%_)))) + (let ((_%tl186781186841%_ (let () (declare (not safe)) - (##cdr _%e186673186730%_))) - (_%hd186674186733%_ + (##cdr _%e186779186836%_))) + (_%hd186780186839%_ (let () (declare (not safe)) - (##car _%e186673186730%_)))) + (##car _%e186779186836%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186674186733%_)) - (let ((_%e186676186738%_ + (gx#stx-pair? _%hd186780186839%_)) + (let ((_%e186782186844%_ (let () (declare (not safe)) - (gx#stx-e _%hd186674186733%_)))) - (let ((_%tl186678186743%_ + (gx#stx-e _%hd186780186839%_)))) + (let ((_%tl186784186849%_ (let () (declare (not safe)) - (##cdr _%e186676186738%_))) - (_%hd186677186741%_ + (##cdr _%e186782186844%_))) + (_%hd186783186847%_ (let () (declare (not safe)) - (##car _%e186676186738%_)))) + (##car _%e186782186844%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186677186741%_)) + (gx#identifier? _%hd186783186847%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186677186741%_)) + (gx#stx-eq? '%#ref _%hd186783186847%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186678186743%_)) - (let ((_%e186679186746%_ + (gx#stx-pair? _%tl186784186849%_)) + (let ((_%e186785186852%_ (let () (declare (not safe)) (gx#stx-e - _%tl186678186743%_)))) - (let ((_%tl186681186751%_ + _%tl186784186849%_)))) + (let ((_%tl186787186857%_ (let () (declare (not safe)) - (##cdr _%e186679186746%_))) - (_%hd186680186749%_ + (##cdr _%e186785186852%_))) + (_%hd186786186855%_ (let () (declare (not safe)) - (##car _%e186679186746%_)))) + (##car _%e186785186852%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186681186751%_)) + _%tl186787186857%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186675186735%_)) - (_%__kont189838189839%_ - _%hd186680186749%_ - _%hd186671186725%_) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)))) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)))) - (_%__kont189840189841%_)))) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)))) + _%tl186781186841%_)) + (_%__kont189944189945%_ + _%hd186786186855%_ + _%hd186777186831%_) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)))) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)))) + (_%__kont189946189947%_)))) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189840189841%_)) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)))) - (_%__kont189840189841%_)))) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)) - (_%__kont189840189841%_)))) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)))) + (_%__kont189946189947%_)))) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)) + (_%__kont189946189947%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189840189841%_)))) - (if (or (eq? '##eq? _%$e186650%_) - (eq? 'eq? _%$e186650%_) - (eq? '##eqv? _%$e186650%_) - (eq? 'eqv? _%$e186650%_) - (eq? '##equal? _%$e186650%_) - (eq? 'equal? _%$e186650%_) + (_%__kont189946189947%_)))) + (if (or (eq? '##eq? _%$e186756%_) + (eq? 'eq? _%$e186756%_) + (eq? '##eqv? _%$e186756%_) + (eq? 'eqv? _%$e186756%_) + (eq? '##equal? _%$e186756%_) + (eq? 'equal? _%$e186756%_) (eq? 'gx#free-identifier=? - _%$e186650%_) - (eq? 'gx#stx-eq? _%$e186650%_)) - ((lambda (_%sym186810%_) - (let* ((_%sym186812%_ - (_%eqf-symbol181967%_ - _%sym186810%_)) - (_%__stx189904189905%_ - _%L186624%_) - (_%g186815186828%_ + _%$e186756%_) + (eq? 'gx#stx-eq? _%$e186756%_)) + ((lambda (_%sym186916%_) + (let* ((_%sym186918%_ + (_%eqf-symbol182073%_ + _%sym186916%_)) + (_%__stx190010190011%_ + _%L186730%_) + (_%g186921186934%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx189904189905%_))))) - (let ((_%__kont189906189907%_ - (lambda (_%L186856%_) - (cons (cons _%L186856%_ + _%__stx190010190011%_))))) + (let ((_%__kont190012190013%_ + (lambda (_%L186962%_) + (cons (cons _%L186962%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%sym186812%_ + (cons _%sym186918%_ (cons (let () (declare (not safe)) - (gx#stx-e _%L186623%_)) - (cons _%val185913%_ '())))) - _%env185914%_))) + (gx#stx-e _%L186729%_)) + (cons _%val186019%_ '())))) + _%env186020%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189908189909%_ + (_%__kont190014190015%_ (lambda () - _%env185914%_))) + _%env186020%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx189904189905%_)) - (let ((_%e186818186840%_ + _%__stx190010190011%_)) + (let ((_%e186924186946%_ (let () (declare (not safe)) (gx#stx-e - _%__stx189904189905%_)))) - (let ((_%tl186820186845%_ + _%__stx190010190011%_)))) + (let ((_%tl186926186951%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186818186840%_))) - (_%hd186819186843%_ - (let () (declare (not safe)) (##car _%e186818186840%_)))) + (##cdr _%e186924186946%_))) + (_%hd186925186949%_ + (let () (declare (not safe)) (##car _%e186924186946%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186819186843%_)) + (gx#identifier? _%hd186925186949%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd186819186843%_)) + (gx#stx-eq? '%#ref _%hd186925186949%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl186820186845%_)) - (let ((_%e186821186848%_ + (gx#stx-pair? _%tl186926186951%_)) + (let ((_%e186927186954%_ (let () (declare (not safe)) - (gx#stx-e _%tl186820186845%_)))) - (let ((_%tl186823186853%_ + (gx#stx-e _%tl186926186951%_)))) + (let ((_%tl186929186959%_ (let () (declare (not safe)) - (##cdr _%e186821186848%_))) - (_%hd186822186851%_ + (##cdr _%e186927186954%_))) + (_%hd186928186957%_ (let () (declare (not safe)) - (##car _%e186821186848%_)))) + (##car _%e186927186954%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186823186853%_)) - (_%__kont189906189907%_ - _%hd186822186851%_) - (_%__kont189908189909%_)))) - (_%__kont189908189909%_)) - (_%__kont189908189909%_)) - (_%__kont189908189909%_)))) + (gx#stx-null? _%tl186929186959%_)) + (_%__kont190012190013%_ + _%hd186928186957%_) + (_%__kont190014190015%_)))) + (_%__kont190014190015%_)) + (_%__kont190014190015%_)) + (_%__kont190014190015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189908189909%_))))) - _%$e186650%_) - _%env185914%_))))) - (_%__kont189936189937%_ - (lambda (_%L186527%_ _%L186528%_ _%L186529%_) - (_%fold-assert-type181965%_ + (_%__kont190014190015%_))))) + _%$e186756%_) + _%env186020%_))))) + (_%__kont190042190043%_ + (lambda (_%L186633%_ _%L186634%_ _%L186635%_) + (_%fold-assert-type182071%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4203,42 +4203,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186529%_ '())) - (cons _%L186527%_ + (cons _%L186635%_ '())) + (cons _%L186633%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L186528%_ '())) + (cons _%L186634%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185913%_ - _%env185914%_))) - (_%__kont189938189939%_ - (lambda (_%L186417%_ _%L186418%_ _%L186419%_) - (let ((_%$e186448%_ + _%val186019%_ + _%env186020%_))) + (_%__kont190044190045%_ + (lambda (_%L186523%_ _%L186524%_ _%L186525%_) + (let ((_%$e186554%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L186419%_)))) + (gxc#identifier-symbol _%L186525%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e186448%_) - (eq? 'gx#stx-eq? _%$e186448%_)) - ((lambda (_%sym186454%_) - (let ((_%sym186456%_ - (_%eqf-symbol181967%_ - _%sym186454%_))) - (cons (cons _%L186418%_ - (cons _%sym186456%_ - (cons _%L186417%_ + _%$e186554%_) + (eq? 'gx#stx-eq? _%$e186554%_)) + ((lambda (_%sym186560%_) + (let ((_%sym186562%_ + (_%eqf-symbol182073%_ + _%sym186560%_))) + (cons (cons _%L186524%_ + (cons _%sym186562%_ + (cons _%L186523%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%val185913%_ '())))) + (cons _%val186019%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%env185914%_))) - _%$e186448%_) - _%env185914%_)))) - (_%__kont189940189941%_ - (lambda (_%L186301%_ _%L186302%_ _%L186303%_) - (_%fold-assert-type181965%_ + _%env186020%_))) + _%$e186554%_) + _%env186020%_)))) + (_%__kont190046190047%_ + (lambda (_%L186407%_ _%L186408%_ _%L186409%_) + (_%fold-assert-type182071%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -4247,4397 +4247,4397 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186303%_ '())) + (cons _%L186409%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L186301%_ + (cons _%L186407%_ '())) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L186302%_ '())) + (cons _%L186408%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%val185913%_ - _%env185914%_))) - (_%__kont189942189943%_ - (lambda (_%L186185%_ _%L186186%_ _%L186187%_) - (_%fold-assert-type181965%_ + _%val186019%_ + _%env186020%_))) + (_%__kont190048190049%_ + (lambda (_%L186291%_ _%L186292%_ _%L186293%_) + (_%fold-assert-type182071%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L186187%_ - _%L186185%_ - _%L186186%_)) - _%val185913%_ - _%env185914%_))) - (_%__kont189944189945%_ - (lambda () _%env185914%_))) + _%L186293%_ + _%L186291%_ + _%L186292%_)) + _%val186019%_ + _%env186020%_))) + (_%__kont190050190051%_ + (lambda () _%env186020%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx189930189931%_)) - (let ((_%e185926186878%_ + (gx#stx-pair? _%__stx190036190037%_)) + (let ((_%e186032186984%_ (let () (declare (not safe)) - (gx#stx-e _%__stx189930189931%_)))) - (let ((_%tl185928186883%_ + (gx#stx-e _%__stx190036190037%_)))) + (let ((_%tl186034186989%_ (let () (declare (not safe)) - (##cdr _%e185926186878%_))) - (_%hd185927186881%_ + (##cdr _%e186032186984%_))) + (_%hd186033186987%_ (let () (declare (not safe)) - (##car _%e185926186878%_)))) + (##car _%e186032186984%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185927186881%_)) + (gx#identifier? _%hd186033186987%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd185927186881%_)) + _%hd186033186987%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185928186883%_)) - (let ((_%e185929186886%_ + _%tl186034186989%_)) + (let ((_%e186035186992%_ (let () (declare (not safe)) (gx#stx-e - _%tl185928186883%_)))) - (let ((_%tl185931186891%_ + _%tl186034186989%_)))) + (let ((_%tl186037186997%_ (let () (declare (not safe)) - (##cdr _%e185929186886%_))) - (_%hd185930186889%_ + (##cdr _%e186035186992%_))) + (_%hd186036186995%_ (let () (declare (not safe)) - (##car _%e185929186886%_)))) + (##car _%e186035186992%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185930186889%_)) - (let ((_%e185932186894%_ + _%hd186036186995%_)) + (let ((_%e186038187000%_ (let () (declare (not safe)) (gx#stx-e - _%hd185930186889%_)))) - (let ((_%tl185934186899%_ + _%hd186036186995%_)))) + (let ((_%tl186040187005%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185932186894%_))) - (_%hd185933186897%_ - (let () (declare (not safe)) (##car _%e185932186894%_)))) + (##cdr _%e186038187000%_))) + (_%hd186039187003%_ + (let () (declare (not safe)) (##car _%e186038187000%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185933186897%_)) + (gx#identifier? _%hd186039187003%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185933186897%_)) + (gx#stx-eq? '%#ref _%hd186039187003%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185934186899%_)) - (let ((_%e185935186902%_ + (gx#stx-pair? _%tl186040187005%_)) + (let ((_%e186041187008%_ (let () (declare (not safe)) - (gx#stx-e _%tl185934186899%_)))) - (let ((_%tl185937186907%_ + (gx#stx-e _%tl186040187005%_)))) + (let ((_%tl186043187013%_ (let () (declare (not safe)) - (##cdr _%e185935186902%_))) - (_%hd185936186905%_ + (##cdr _%e186041187008%_))) + (_%hd186042187011%_ (let () (declare (not safe)) - (##car _%e185935186902%_)))) + (##car _%e186041187008%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185937186907%_)) + (gx#stx-null? _%tl186043187013%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185931186891%_)) - (let ((_%e185938186910%_ + (gx#stx-pair? _%tl186037186997%_)) + (let ((_%e186044187016%_ (let () (declare (not safe)) (gx#stx-e - _%tl185931186891%_)))) - (let ((_%tl185940186915%_ + _%tl186037186997%_)))) + (let ((_%tl186046187021%_ (let () (declare (not safe)) - (##cdr _%e185938186910%_))) - (_%hd185939186913%_ + (##cdr _%e186044187016%_))) + (_%hd186045187019%_ (let () (declare (not safe)) - (##car _%e185938186910%_)))) + (##car _%e186044187016%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185939186913%_)) - (let ((_%e185941186918%_ + _%hd186045187019%_)) + (let ((_%e186047187024%_ (let () (declare (not safe)) (gx#stx-e - _%hd185939186913%_)))) - (let ((_%tl185943186923%_ + _%hd186045187019%_)))) + (let ((_%tl186049187029%_ (let () (declare (not safe)) - (##cdr _%e185941186918%_))) - (_%hd185942186921%_ + (##cdr _%e186047187024%_))) + (_%hd186048187027%_ (let () (declare (not safe)) - (##car _%e185941186918%_)))) + (##car _%e186047187024%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd185942186921%_)) + (gx#stx-eq? '%#ref _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e185944186926%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186050187032%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl185946186931%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186052187037%_ (let () (declare (not safe)) - (##cdr _%e185944186926%_))) - (_%hd185945186929%_ + (##cdr _%e186050187032%_))) + (_%hd186051187035%_ (let () (declare (not safe)) - (##car _%e185944186926%_)))) + (##car _%e186050187032%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185946186931%_)) + (gx#stx-null? _%tl186052187037%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185940186915%_)) - (_%__kont189932189933%_ - _%hd185945186929%_ - _%hd185936186905%_) + (gx#stx-null? _%tl186046187021%_)) + (_%__kont190038190039%_ + _%hd186051187035%_ + _%hd186042187011%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185940186915%_)) - (let ((_%e185965186599%_ + (gx#stx-pair? _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) (gx#stx-e - _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ (let () (declare (not safe)) - (##car _%e185965186599%_)))) + (##car _%e186071186705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185966186602%_)) - (let ((_%e185968186607%_ + _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) (gx#stx-e - _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd185969186610%_)) + (gx#stx-eq? '%#quote _%hd186075186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185970186612%_)) - (let ((_%e185971186615%_ + (gx#stx-pair? _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) - (gx#stx-e _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + (gx#stx-e _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ (let () (declare (not safe)) - (##car _%e185971186615%_)))) + (##car _%e186077186721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185973186620%_)) + (gx#stx-null? _%tl186079186726%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185969186610%_)) + (gx#stx-eq? '%#quote-syntax _%hd186075186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185970186612%_)) - (let ((_%e186031186409%_ + (gx#stx-pair? _%tl186076186718%_)) + (let ((_%e186137186515%_ (let () (declare (not safe)) - (gx#stx-e _%tl185970186612%_)))) - (let ((_%tl186033186414%_ + (gx#stx-e _%tl186076186718%_)))) + (let ((_%tl186139186520%_ (let () (declare (not safe)) - (##cdr _%e186031186409%_))) - (_%hd186032186412%_ + (##cdr _%e186137186515%_))) + (_%hd186138186518%_ (let () (declare (not safe)) - (##car _%e186031186409%_)))) + (##car _%e186137186515%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186033186414%_)) + (gx#stx-null? _%tl186139186520%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189938189939%_ - _%hd186032186412%_ - _%hd185945186929%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)))) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190044190045%_ + _%hd186138186518%_ + _%hd186051187035%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)))) - (_%__kont189944189945%_))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185940186915%_)) - (let ((_%e185965186599%_ + (gx#stx-pair? _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) - (gx#stx-e _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + (gx#stx-e _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ (let () (declare (not safe)) - (##car _%e185965186599%_)))) + (##car _%e186071186705%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185966186602%_)) - (let ((_%e185968186607%_ + _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) (gx#stx-e - _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185970186612%_)) - (let ((_%e185971186615%_ + (gx#stx-pair? _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) - (gx#stx-e _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + (gx#stx-e _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ (let () (declare (not safe)) - (##car _%e185971186615%_)))) + (##car _%e186077186721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185973186620%_)) + (gx#stx-null? _%tl186079186726%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_))))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185940186915%_)) - (let ((_%e185965186599%_ + (gx#stx-pair? _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) - (gx#stx-e _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + (gx#stx-e _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ (let () (declare (not safe)) - (##car _%e185965186599%_)))) + (##car _%e186071186705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185966186602%_)) - (let ((_%e185968186607%_ + (gx#stx-pair? _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) - (gx#stx-e _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + (gx#stx-e _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185970186612%_)) - (let ((_%e185971186615%_ + _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) (gx#stx-e - _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ - (let () (declare (not safe)) (##car _%e185971186615%_)))) + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ + (let () (declare (not safe)) (##car _%e186077186721%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185973186620%_)) + (gx#stx-null? _%tl186079186726%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185940186915%_)) - (let ((_%e185965186599%_ + (gx#stx-pair? _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) - (gx#stx-e _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + (gx#stx-e _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ (let () (declare (not safe)) - (##car _%e185965186599%_)))) + (##car _%e186071186705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185966186602%_)) - (let ((_%e185968186607%_ + (gx#stx-pair? _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) - (gx#stx-e _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + (gx#stx-e _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185969186610%_)) + (gx#identifier? _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185970186612%_)) - (let ((_%e185971186615%_ + _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) (gx#stx-e - _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ (let () (declare (not safe)) - (##car _%e185971186615%_)))) + (##car _%e186077186721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185973186620%_)) + _%tl186079186726%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185942186921%_)) + (gx#stx-eq? '%#quote _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e185995186511%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) + (##car _%e186101186617%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185942186921%_)) + (gx#stx-eq? '%#quote-syntax _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e186055186269%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185942186921%_)) + (gx#stx-eq? '%#quote _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e185995186511%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) + (##car _%e186101186617%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185997186516%_)) + (gx#stx-null? _%tl186103186622%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189936189937%_ - _%hd185966186602%_ - _%hd185996186514%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190042190043%_ + _%hd186072186708%_ + _%hd186102186620%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd185942186921%_)) + (gx#stx-eq? '%#quote-syntax _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e186055186269%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))))) + (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e185995186511%_ + _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) + (##car _%e186101186617%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185997186516%_)) + (gx#stx-null? _%tl186103186622%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189936189937%_ - _%hd185966186602%_ - _%hd185996186514%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190042190043%_ + _%hd186072186708%_ + _%hd186102186620%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e186055186269%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e185995186511%_ + _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) (gx#stx-e - _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ - (let () (declare (not safe)) (##car _%e185995186511%_)))) + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ + (let () (declare (not safe)) (##car _%e186101186617%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185997186516%_)) + (gx#stx-null? _%tl186103186622%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189936189937%_ - _%hd185966186602%_ - _%hd185996186514%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190042190043%_ + _%hd186072186708%_ + _%hd186102186620%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e186055186269%_ + _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) + (##car _%e186161186375%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186057186274%_)) + (gx#stx-null? _%tl186163186380%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185969186610%_)) + (gx#stx-eq? '%#ref _%hd186075186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185970186612%_)) - (let ((_%e186064186293%_ + (gx#stx-pair? _%tl186076186718%_)) + (let ((_%e186170186399%_ (let () (declare (not safe)) - (gx#stx-e _%tl185970186612%_)))) - (let ((_%tl186066186298%_ + (gx#stx-e _%tl186076186718%_)))) + (let ((_%tl186172186404%_ (let () (declare (not safe)) - (##cdr _%e186064186293%_))) - (_%hd186065186296%_ + (##cdr _%e186170186399%_))) + (_%hd186171186402%_ (let () (declare (not safe)) - (##car _%e186064186293%_)))) + (##car _%e186170186399%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186066186298%_)) + (gx#stx-null? _%tl186172186404%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185967186604%_)) - (_%__kont189940189941%_ - _%hd186065186296%_ - _%hd186056186272%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + _%tl186073186710%_)) + (_%__kont190046190047%_ + _%hd186171186402%_ + _%hd186162186378%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)))) + (_%__kont190050190051%_)))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e185995186511%_ + _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) (gx#stx-e - _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) + (##car _%e186101186617%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185997186516%_)) + _%tl186103186622%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl185967186604%_)) - (_%__kont189936189937%_ - _%hd185966186602%_ - _%hd185996186514%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (gx#stx-null? _%tl186073186710%_)) + (_%__kont190042190043%_ + _%hd186072186708%_ + _%hd186102186620%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e186055186269%_ + _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) (gx#stx-e - _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ - (let () (declare (not safe)) (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ + (let () (declare (not safe)) (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e185995186511%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) (gx#stx-e - _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) + (##car _%e186101186617%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185997186516%_)) + _%tl186103186622%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185967186604%_)) - (_%__kont189936189937%_ - _%hd185966186602%_ - _%hd185996186514%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + _%tl186073186710%_)) + (_%__kont190042190043%_ + _%hd186072186708%_ + _%hd186102186620%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185943186923%_)) - (let ((_%e186055186269%_ + _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) (gx#stx-e - _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))))) + (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185942186921%_)) + (gx#stx-eq? '%#quote _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e185995186511%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186101186617%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl185997186516%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186103186622%_ (let () (declare (not safe)) - (##cdr _%e185995186511%_))) - (_%hd185996186514%_ + (##cdr _%e186101186617%_))) + (_%hd186102186620%_ (let () (declare (not safe)) - (##car _%e185995186511%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) + (##car _%e186101186617%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd185942186921%_)) + _%hd186048187027%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185943186923%_)) - (let ((_%e186055186269%_ + (gx#stx-pair? _%tl186049187029%_)) + (let ((_%e186161186375%_ (let () (declare (not safe)) - (gx#stx-e _%tl185943186923%_)))) - (let ((_%tl186057186274%_ + (gx#stx-e _%tl186049187029%_)))) + (let ((_%tl186163186380%_ (let () (declare (not safe)) - (##cdr _%e186055186269%_))) - (_%hd186056186272%_ + (##cdr _%e186161186375%_))) + (_%hd186162186378%_ (let () (declare (not safe)) - (##car _%e186055186269%_)))) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_))))) + (##car _%e186161186375%_)))) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185940186915%_)) - (let ((_%e185965186599%_ + (gx#stx-pair? _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) - (gx#stx-e _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + (gx#stx-e _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ (let () (declare (not safe)) - (##car _%e185965186599%_)))) + (##car _%e186071186705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185966186602%_)) - (let ((_%e185968186607%_ + (gx#stx-pair? _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) - (gx#stx-e _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + (gx#stx-e _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185969186610%_)) + (gx#identifier? _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd185969186610%_)) + _%hd186075186716%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185970186612%_)) - (let ((_%e185971186615%_ + _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) (gx#stx-e - _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ (let () (declare (not safe)) - (##car _%e185971186615%_)))) + (##car _%e186077186721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185973186620%_)) + _%tl186079186726%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_))))) + _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185940186915%_)) - (let ((_%e185965186599%_ + _%tl186046187021%_)) + (let ((_%e186071186705%_ (let () (declare (not safe)) (gx#stx-e - _%tl185940186915%_)))) - (let ((_%tl185967186604%_ + _%tl186046187021%_)))) + (let ((_%tl186073186710%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e185965186599%_))) - (_%hd185966186602%_ - (let () (declare (not safe)) (##car _%e185965186599%_)))) + (##cdr _%e186071186705%_))) + (_%hd186072186708%_ + (let () (declare (not safe)) (##car _%e186071186705%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185966186602%_)) - (let ((_%e185968186607%_ + (gx#stx-pair? _%hd186072186708%_)) + (let ((_%e186074186713%_ (let () (declare (not safe)) - (gx#stx-e _%hd185966186602%_)))) - (let ((_%tl185970186612%_ + (gx#stx-e _%hd186072186708%_)))) + (let ((_%tl186076186718%_ (let () (declare (not safe)) - (##cdr _%e185968186607%_))) - (_%hd185969186610%_ + (##cdr _%e186074186713%_))) + (_%hd186075186716%_ (let () (declare (not safe)) - (##car _%e185968186607%_)))) + (##car _%e186074186713%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185969186610%_)) + (gx#identifier? _%hd186075186716%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd185969186610%_)) + (gx#stx-eq? '%#quote _%hd186075186716%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185970186612%_)) - (let ((_%e185971186615%_ + (gx#stx-pair? _%tl186076186718%_)) + (let ((_%e186077186721%_ (let () (declare (not safe)) - (gx#stx-e _%tl185970186612%_)))) - (let ((_%tl185973186620%_ + (gx#stx-e _%tl186076186718%_)))) + (let ((_%tl186079186726%_ (let () (declare (not safe)) - (##cdr _%e185971186615%_))) - (_%hd185972186618%_ + (##cdr _%e186077186721%_))) + (_%hd186078186724%_ (let () (declare (not safe)) - (##car _%e185971186615%_)))) + (##car _%e186077186721%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185973186620%_)) + _%tl186079186726%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185967186604%_)) - (_%__kont189934189935%_ - _%hd185972186618%_ - _%hd185939186913%_ - _%hd185936186905%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) + _%tl186073186710%_)) + (_%__kont190040190041%_ + _%hd186078186724%_ + _%hd186045187019%_ + _%hd186042187011%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_))))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) + (_%__kont190050190051%_))))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185933186897%_)) + (gx#stx-eq? '%#lambda _%hd186039187003%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185934186899%_)) - (let ((_%e186079186137%_ + (gx#stx-pair? _%tl186040187005%_)) + (let ((_%e186185186243%_ (let () (declare (not safe)) - (gx#stx-e _%tl185934186899%_)))) - (let ((_%tl186081186142%_ + (gx#stx-e _%tl186040187005%_)))) + (let ((_%tl186187186248%_ (let () (declare (not safe)) - (##cdr _%e186079186137%_))) - (_%hd186080186140%_ + (##cdr _%e186185186243%_))) + (_%hd186186186246%_ (let () (declare (not safe)) - (##car _%e186079186137%_)))) + (##car _%e186185186243%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186080186140%_)) - (let ((_%e186082186145%_ + (gx#stx-pair? _%hd186186186246%_)) + (let ((_%e186188186251%_ (let () (declare (not safe)) (gx#stx-e - _%hd186080186140%_)))) - (let ((_%tl186084186150%_ + _%hd186186186246%_)))) + (let ((_%tl186190186256%_ (let () (declare (not safe)) - (##cdr _%e186082186145%_))) - (_%hd186083186148%_ + (##cdr _%e186188186251%_))) + (_%hd186189186254%_ (let () (declare (not safe)) - (##car _%e186082186145%_)))) + (##car _%e186188186251%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186084186150%_)) + _%tl186190186256%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186081186142%_)) - (let ((_%e186085186153%_ + _%tl186187186248%_)) + (let ((_%e186191186259%_ (let () (declare (not safe)) (gx#stx-e - _%tl186081186142%_)))) - (let ((_%tl186087186158%_ + _%tl186187186248%_)))) + (let ((_%tl186193186264%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e186085186153%_))) - (_%hd186086186156%_ - (let () (declare (not safe)) (##car _%e186085186153%_)))) + (##cdr _%e186191186259%_))) + (_%hd186192186262%_ + (let () (declare (not safe)) (##car _%e186191186259%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl186087186158%_)) + (gx#stx-null? _%tl186193186264%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185931186891%_)) - (let ((_%e186088186161%_ + (gx#stx-pair? _%tl186037186997%_)) + (let ((_%e186194186267%_ (let () (declare (not safe)) - (gx#stx-e _%tl185931186891%_)))) - (let ((_%tl186090186166%_ + (gx#stx-e _%tl186037186997%_)))) + (let ((_%tl186196186272%_ (let () (declare (not safe)) - (##cdr _%e186088186161%_))) - (_%hd186089186164%_ + (##cdr _%e186194186267%_))) + (_%hd186195186270%_ (let () (declare (not safe)) - (##car _%e186088186161%_)))) + (##car _%e186194186267%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd186089186164%_)) - (let ((_%e186091186169%_ + (gx#stx-pair? _%hd186195186270%_)) + (let ((_%e186197186275%_ (let () (declare (not safe)) - (gx#stx-e _%hd186089186164%_)))) - (let ((_%tl186093186174%_ + (gx#stx-e _%hd186195186270%_)))) + (let ((_%tl186199186280%_ (let () (declare (not safe)) - (##cdr _%e186091186169%_))) - (_%hd186092186172%_ + (##cdr _%e186197186275%_))) + (_%hd186198186278%_ (let () (declare (not safe)) - (##car _%e186091186169%_)))) + (##car _%e186197186275%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd186092186172%_)) + (gx#identifier? _%hd186198186278%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd186092186172%_)) + _%hd186198186278%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl186093186174%_)) - (let ((_%e186094186177%_ + _%tl186199186280%_)) + (let ((_%e186200186283%_ (let () (declare (not safe)) (gx#stx-e - _%tl186093186174%_)))) - (let ((_%tl186096186182%_ + _%tl186199186280%_)))) + (let ((_%tl186202186288%_ (let () (declare (not safe)) - (##cdr _%e186094186177%_))) - (_%hd186095186180%_ + (##cdr _%e186200186283%_))) + (_%hd186201186286%_ (let () (declare (not safe)) - (##car _%e186094186177%_)))) + (##car _%e186200186283%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl186096186182%_)) + _%tl186202186288%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl186090186166%_)) - (_%__kont189942189943%_ - _%hd186095186180%_ - _%hd186086186156%_ - _%hd186083186148%_) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (gx#stx-null? _%tl186196186272%_)) + (_%__kont190048190049%_ + _%hd186201186286%_ + _%hd186192186262%_ + _%hd186189186254%_) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_))) - (_%__kont189944189945%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_))) + (_%__kont190050190051%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)) - (_%__kont189944189945%_)))) - (_%__kont189944189945%_)))))) - (_%countf-symbol181966%_ - (lambda (_%id185904%_) - (let ((_%$e185906%_ + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)) + (_%__kont190050190051%_)))) + (_%__kont190050190051%_)))))) + (_%countf-symbol182072%_ + (lambda (_%id186010%_) + (let ((_%$e186012%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%id185904%_)))) - (if (or (eq? '##vector-length _%$e185906%_) - (eq? 'vector-length _%$e185906%_)) + (gxc#identifier-symbol _%id186010%_)))) + (if (or (eq? '##vector-length _%$e186012%_) + (eq? 'vector-length _%$e186012%_)) 'vector-length - (if (eq? 'values-count _%$e185906%_) + (if (eq? 'values-count _%$e186012%_) 'values-count '#f))))) - (_%eqf-symbol181967%_ - (lambda (_%sym185890%_) - (let ((_%$e185892%_ _%sym185890%_)) - (if (or (eq? '##eq? _%$e185892%_) - (eq? 'eq? _%$e185892%_)) + (_%eqf-symbol182073%_ + (lambda (_%sym185996%_) + (let ((_%$e185998%_ _%sym185996%_)) + (if (or (eq? '##eq? _%$e185998%_) + (eq? 'eq? _%$e185998%_)) 'eq? - (if (or (eq? '##eqv? _%$e185892%_) - (eq? 'eqv? _%$e185892%_)) + (if (or (eq? '##eqv? _%$e185998%_) + (eq? 'eqv? _%$e185998%_)) 'eqv? - (if (or (eq? '##equal? _%$e185892%_) - (eq? 'equal? _%$e185892%_)) + (if (or (eq? '##equal? _%$e185998%_) + (eq? 'equal? _%$e185998%_)) 'equal? - (if (eq? 'gx#free-identifier=? _%$e185892%_) + (if (eq? 'gx#free-identifier=? _%$e185998%_) 'free-identifier=? - (if (eq? 'gx#stx-eq? _%$e185892%_) + (if (eq? 'gx#stx-eq? _%$e185998%_) 'stx-eq? '#f)))))))) - (_%eqf-symbol?181968%_ - (lambda (_%sym185873%_) - (let ((_%$e185875%_ _%sym185873%_)) - (if (or (eq? 'eq? _%$e185875%_) - (eq? 'eqv? _%$e185875%_) - (eq? 'equal? _%$e185875%_) - (eq? 'free-identifier=? _%$e185875%_) - (eq? 'stx-eq? _%$e185875%_)) + (_%eqf-symbol?182074%_ + (lambda (_%sym185979%_) + (let ((_%$e185981%_ _%sym185979%_)) + (if (or (eq? 'eq? _%$e185981%_) + (eq? 'eqv? _%$e185981%_) + (eq? 'equal? _%$e185981%_) + (eq? 'free-identifier=? _%$e185981%_) + (eq? 'stx-eq? _%$e185981%_)) '#t '#f)))) - (_%do-assert!181969%_ - (lambda (_%assert185864%_ _%type185865%_ _%K185866%_) - (let ((_%unwind-assert185868%_ _%env-assert181959%_) - (_%unwind-type185869%_ _%env-type181960%_)) - (set! _%env-assert181959%_ _%assert185864%_) - (set! _%env-type181960%_ _%type185865%_) - (let ((_%val185871%_ (_%K185866%_))) - (set! _%env-assert181959%_ _%unwind-assert185868%_) - (set! _%env-type181960%_ _%unwind-type185869%_) - _%val185871%_)))) - (_%do-bind181970%_ - (lambda (_%bind185861%_ _%K185862%_) - (if (pair? _%bind185861%_) - (_%do-bind!181972%_ - (_%fold-bind-env181971%_ - _%bind185861%_ - _%env-bind181961%_) - _%K185862%_) - (_%K185862%_)))) - (_%fold-bind-env181971%_ - (lambda (_%bind185790%_ _%env185791%_) - (let _%lp185793%_ ((_%rest185795%_ _%bind185790%_) - (_%env185796%_ _%env185791%_)) - (let* ((_%rest185797185805%_ _%rest185795%_) - (_%else185799185813%_ (lambda () _%env185796%_)) - (_%K185801185849%_ - (lambda (_%rest185816%_ _%bind185817%_) - (let* ((_%bind185818185825%_ _%bind185817%_) - (_%E185820185829%_ + (_%do-assert!182075%_ + (lambda (_%assert185970%_ _%type185971%_ _%K185972%_) + (let ((_%unwind-assert185974%_ _%env-assert182065%_) + (_%unwind-type185975%_ _%env-type182066%_)) + (set! _%env-assert182065%_ _%assert185970%_) + (set! _%env-type182066%_ _%type185971%_) + (let ((_%val185977%_ (_%K185972%_))) + (set! _%env-assert182065%_ _%unwind-assert185974%_) + (set! _%env-type182066%_ _%unwind-type185975%_) + _%val185977%_)))) + (_%do-bind182076%_ + (lambda (_%bind185967%_ _%K185968%_) + (if (pair? _%bind185967%_) + (_%do-bind!182078%_ + (_%fold-bind-env182077%_ + _%bind185967%_ + _%env-bind182067%_) + _%K185968%_) + (_%K185968%_)))) + (_%fold-bind-env182077%_ + (lambda (_%bind185896%_ _%env185897%_) + (let _%lp185899%_ ((_%rest185901%_ _%bind185896%_) + (_%env185902%_ _%env185897%_)) + (let* ((_%rest185903185911%_ _%rest185901%_) + (_%else185905185919%_ (lambda () _%env185902%_)) + (_%K185907185955%_ + (lambda (_%rest185922%_ _%bind185923%_) + (let* ((_%bind185924185931%_ _%bind185923%_) + (_%E185926185935%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind185818185825%_ + _%bind185924185931%_ '([id . expr]))) '#!void)) - (_%K185821185837%_ - (lambda (_%expr185832%_ _%id185833%_) - (let ((_%sexpr185835%_ + (_%K185927185943%_ + (lambda (_%expr185938%_ _%id185939%_) + (let ((_%sexpr185941%_ (gxc#apply-generate-runtime-repr - _%expr185832%_))) - (_%lp185793%_ - _%rest185816%_ - (cons (cons _%sexpr185835%_ - _%id185833%_) - _%env185796%_)))))) - (if (pair? _%bind185818185825%_) - (let ((_%hd185822185840%_ + _%expr185938%_))) + (_%lp185899%_ + _%rest185922%_ + (cons (cons _%sexpr185941%_ + _%id185939%_) + _%env185902%_)))))) + (if (pair? _%bind185924185931%_) + (let ((_%hd185928185946%_ (let () (declare (not safe)) - (##car _%bind185818185825%_))) - (_%tl185823185842%_ + (##car _%bind185924185931%_))) + (_%tl185929185948%_ (let () (declare (not safe)) - (##cdr _%bind185818185825%_)))) - (let* ((_%id185845%_ - _%hd185822185840%_) - (_%expr185847%_ - _%tl185823185842%_)) - (_%K185821185837%_ - _%expr185847%_ - _%id185845%_))) - (_%E185820185829%_)))))) - (if (pair? _%rest185797185805%_) - (let ((_%hd185802185852%_ + (##cdr _%bind185924185931%_)))) + (let* ((_%id185951%_ + _%hd185928185946%_) + (_%expr185953%_ + _%tl185929185948%_)) + (_%K185927185943%_ + _%expr185953%_ + _%id185951%_))) + (_%E185926185935%_)))))) + (if (pair? _%rest185903185911%_) + (let ((_%hd185908185958%_ (let () (declare (not safe)) - (##car _%rest185797185805%_))) - (_%tl185803185854%_ + (##car _%rest185903185911%_))) + (_%tl185909185960%_ (let () (declare (not safe)) - (##cdr _%rest185797185805%_)))) - (let* ((_%bind185857%_ _%hd185802185852%_) - (_%rest185859%_ _%tl185803185854%_)) - (_%K185801185849%_ - _%rest185859%_ - _%bind185857%_))) - (_%else185799185813%_)))))) - (_%do-bind!181972%_ - (lambda (_%env185783%_ _%K185784%_) - (let ((_%unwind185786%_ _%env-bind181961%_)) - (set! _%env-bind181961%_ _%env185783%_) - (let ((_%val185788%_ (_%K185784%_))) - (set! _%env-bind181961%_ _%unwind185786%_) - _%val185788%_)))) - (_%do-splice!181973%_ - (lambda (_%K185777%_) - (let ((_%unwind185779%_ _%in-splice?181962%_)) - (set! _%in-splice?181962%_ '#t) - (let ((_%val185781%_ (_%K185777%_))) - (set! _%in-splice?181962%_ _%unwind185779%_) - _%val185781%_)))) - (_%optimize-e181974%_ - (lambda (_%expr184973%_) - (let* ((_%__stx190382190383%_ _%expr184973%_) - (_%g184980185153%_ + (##cdr _%rest185903185911%_)))) + (let* ((_%bind185963%_ _%hd185908185958%_) + (_%rest185965%_ _%tl185909185960%_)) + (_%K185907185955%_ + _%rest185965%_ + _%bind185963%_))) + (_%else185905185919%_)))))) + (_%do-bind!182078%_ + (lambda (_%env185889%_ _%K185890%_) + (let ((_%unwind185892%_ _%env-bind182067%_)) + (set! _%env-bind182067%_ _%env185889%_) + (let ((_%val185894%_ (_%K185890%_))) + (set! _%env-bind182067%_ _%unwind185892%_) + _%val185894%_)))) + (_%do-splice!182079%_ + (lambda (_%K185883%_) + (let ((_%unwind185885%_ _%in-splice?182068%_)) + (set! _%in-splice?182068%_ '#t) + (let ((_%val185887%_ (_%K185883%_))) + (set! _%in-splice?182068%_ _%unwind185885%_) + _%val185887%_)))) + (_%optimize-e182080%_ + (lambda (_%expr185079%_) + (let* ((_%__stx190488190489%_ _%expr185079%_) + (_%g185086185259%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190382190383%_))))) - (let ((_%__kont190384190385%_ - (lambda (_%L185749%_ _%L185750%_ _%L185751%_) - (let ((_%$e185768%_ - (_%assert-e181977%_ _%L185751%_))) - (if (eq? '#t _%$e185768%_) - (_%optimize-e181974%_ _%L185750%_) - (if (eq? '#f _%$e185768%_) - (_%optimize-e181974%_ _%L185749%_) - (let ((_%K185771%_ - (_%optimize-t__0__189329189330%_ - _%L185750%_ - _%L185751%_)) - (_%E185772%_ - (_%optimize-f__189331189332%_ - _%L185749%_ - _%L185751%_))) + _%__stx190488190489%_))))) + (let ((_%__kont190490190491%_ + (lambda (_%L185855%_ _%L185856%_ _%L185857%_) + (let ((_%$e185874%_ + (_%assert-e182083%_ _%L185857%_))) + (if (eq? '#t _%$e185874%_) + (_%optimize-e182080%_ _%L185856%_) + (if (eq? '#f _%$e185874%_) + (_%optimize-e182080%_ _%L185855%_) + (let ((_%K185877%_ + (_%optimize-t__0__189435189436%_ + _%L185856%_ + _%L185857%_)) + (_%E185878%_ + (_%optimize-f__189437189438%_ + _%L185855%_ + _%L185857%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K185771%_) + _%K185877%_) (gxc#apply-generate-runtime-repr - _%E185772%_)) - _%K185771%_ + _%E185878%_)) + _%K185877%_ (cons '%#if - (cons _%L185751%_ - (cons _%K185771%_ + (cons _%L185857%_ + (cons _%K185877%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E185772%_ '()))))))))))) + (cons _%E185878%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190386190387%_ - (lambda (_%L185678%_ _%L185679%_) - (let ((_%$e185699%_ - (_%lookup-block181982%_ _%L185679%_))) - (if _%$e185699%_ - ((lambda (_%block185702%_) - (if (_%nonlinear-block?181984%_ - _%block185702%_) - _%expr184973%_ - (_%optimize-e181974%_ - (_%inline-block181983%_ - _%block185702%_ - (let ((__tmp192477 - (lambda (_%g185703185706%_ - _%g185704185708%_) - (cons _%g185703185706%_ - _%g185704185708%_)))) + (_%__kont190492190493%_ + (lambda (_%L185784%_ _%L185785%_) + (let ((_%$e185805%_ + (_%lookup-block182088%_ _%L185785%_))) + (if _%$e185805%_ + ((lambda (_%block185808%_) + (if (_%nonlinear-block?182090%_ + _%block185808%_) + _%expr185079%_ + (_%optimize-e182080%_ + (_%inline-block182089%_ + _%block185808%_ + (let ((__tmp192583 + (lambda (_%g185809185812%_ + _%g185810185814%_) + (cons _%g185809185812%_ + _%g185810185814%_)))) (declare (not safe)) (__foldr1 - __tmp192477 + __tmp192583 '() - _%L185678%_)))))) - _%$e185699%_) - _%expr184973%_)))) - (_%__kont190390190391%_ - (lambda (_%L185568%_ _%L185569%_ _%L185570%_) - (let ((_%body185589%_ - (_%optimize-e181974%_ _%L185568%_))) + _%L185784%_)))))) + _%$e185805%_) + _%expr185079%_)))) + (_%__kont190496190497%_ + (lambda (_%L185674%_ _%L185675%_ _%L185676%_) + (let ((_%body185695%_ + (_%optimize-e182080%_ _%L185674%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L185569%_ - _%L185570%_)) - (let ((__tmp192478 - (lambda (_%g185590185594%_ - _%g185591185596%_ - _%g185592185598%_) - (cons (cons (cons _%g185591185596%_ + _%L185675%_ + _%L185676%_)) + (let ((__tmp192584 + (lambda (_%g185696185700%_ + _%g185697185702%_ + _%g185698185704%_) + (cons (cons (cons _%g185697185702%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g185590185594%_ '())) + (cons _%g185696185700%_ '())) '())) - _%g185592185598%_)))) + _%g185698185704%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192478 + __tmp192584 '() - _%L185569%_ - _%L185570%_))) - (cons _%body185589%_ '())))))) - (_%__kont190394190395%_ - (lambda (_%L185436%_ _%L185437%_ _%L185438%_) - (_%bind-e__0__189337189338%_ + _%L185675%_ + _%L185676%_))) + (cons _%body185695%_ '())))))) + (_%__kont190500190501%_ + (lambda (_%L185542%_ _%L185543%_ _%L185544%_) + (_%bind-e__0__189443189444%_ (map cons - (let ((__tmp192479 - (lambda (_%g185456185459%_ - _%g185457185461%_) - (cons _%g185456185459%_ - _%g185457185461%_)))) + (let ((__tmp192585 + (lambda (_%g185562185565%_ + _%g185563185567%_) + (cons _%g185562185565%_ + _%g185563185567%_)))) (declare (not safe)) - (__foldr1 __tmp192479 '() _%L185438%_)) - (let ((__tmp192480 - (lambda (_%g185463185466%_ - _%g185464185468%_) - (cons _%g185463185466%_ - _%g185464185468%_)))) + (__foldr1 __tmp192585 '() _%L185544%_)) + (let ((__tmp192586 + (lambda (_%g185569185572%_ + _%g185570185574%_) + (cons _%g185569185572%_ + _%g185570185574%_)))) (declare (not safe)) (__foldr1 - __tmp192480 + __tmp192586 '() - _%L185437%_))) - _%L185436%_))) - (_%__kont190398190399%_ - (lambda (_%L185293%_ - _%L185294%_ - _%L185295%_ - _%L185296%_ - _%L185297%_) - (_%do-splice!181973%_ + _%L185543%_))) + _%L185542%_))) + (_%__kont190504190505%_ + (lambda (_%L185399%_ + _%L185400%_ + _%L185401%_ + _%L185402%_ + _%L185403%_) + (_%do-splice!182079%_ (lambda () - (let ((_%expr185339%_ - (_%optimize-e181974%_ _%L185295%_))) + (let ((_%expr185445%_ + (_%optimize-e182080%_ _%L185401%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L185297%_ + (cons (cons (cons (cons _%L185403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192481 - (lambda (_%g185340185343%_ - _%g185341185345%_) - (cons _%g185340185343%_ - _%g185341185345%_)))) + (cons (let ((__tmp192587 + (lambda (_%g185446185449%_ + _%g185447185451%_) + (cons _%g185446185449%_ + _%g185447185451%_)))) (declare (not safe)) (__foldr1 - __tmp192481 + __tmp192587 '() - _%L185296%_)) - (cons _%expr185339%_ '()))) + _%L185402%_)) + (cons _%expr185445%_ '()))) '())) - (let ((__tmp192482 - (lambda (_%g185347185350%_ _%g185348185352%_) - (cons _%g185347185350%_ _%g185348185352%_)))) + (let ((__tmp192588 + (lambda (_%g185453185456%_ _%g185454185458%_) + (cons _%g185453185456%_ _%g185454185458%_)))) (declare (not safe)) - (__foldr1 __tmp192482 '() _%L185294%_))) + (__foldr1 __tmp192588 '() _%L185400%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L185293%_ '())))))))) - (_%__kont190404190405%_ - (lambda () _%expr184973%_))) - (let* ((_%__match190591190592%_ - (lambda (_%e185101185165%_ - _%hd185102185168%_ - _%tl185103185170%_ - _%e185104185173%_ - _%hd185105185176%_ - _%tl185106185178%_ - _%e185107185181%_ - _%hd185108185184%_ - _%tl185109185186%_ - _%e185110185189%_ - _%hd185111185192%_ - _%tl185112185194%_ - _%e185113185197%_ - _%hd185114185200%_ - _%tl185115185202%_ - _%e185116185205%_ - _%hd185117185208%_ - _%tl185118185210%_ - _%e185119185213%_ - _%hd185120185216%_ - _%tl185121185218%_ - _%e185122185221%_ - _%hd185123185224%_ - _%tl185124185226%_ - _%__splice190400190401%_ - _%target185125185229%_ - _%tl185127185231%_) - (letrec ((_%loop185128185234%_ - (lambda (_%hd185126185237%_ - _%id185132185239%_) + (cons _%L185399%_ '())))))))) + (_%__kont190510190511%_ + (lambda () _%expr185079%_))) + (let* ((_%__match190697190698%_ + (lambda (_%e185207185271%_ + _%hd185208185274%_ + _%tl185209185276%_ + _%e185210185279%_ + _%hd185211185282%_ + _%tl185212185284%_ + _%e185213185287%_ + _%hd185214185290%_ + _%tl185215185292%_ + _%e185216185295%_ + _%hd185217185298%_ + _%tl185218185300%_ + _%e185219185303%_ + _%hd185220185306%_ + _%tl185221185308%_ + _%e185222185311%_ + _%hd185223185314%_ + _%tl185224185316%_ + _%e185225185319%_ + _%hd185226185322%_ + _%tl185227185324%_ + _%e185228185327%_ + _%hd185229185330%_ + _%tl185230185332%_ + _%__splice190506190507%_ + _%target185231185335%_ + _%tl185233185337%_) + (letrec ((_%loop185234185340%_ + (lambda (_%hd185232185343%_ + _%id185238185345%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185126185237%_)) - (let ((_%e185129185242%_ + _%hd185232185343%_)) + (let ((_%e185235185348%_ (let () (declare (not safe)) (gx#stx-e - _%hd185126185237%_)))) - (let ((_%lp-tl185131185247%_ + _%hd185232185343%_)))) + (let ((_%lp-tl185237185353%_ (let () (declare (not safe)) - (##cdr _%e185129185242%_))) - (_%lp-hd185130185245%_ + (##cdr _%e185235185348%_))) + (_%lp-hd185236185351%_ (let () (declare (not safe)) - (##car _%e185129185242%_)))) - (_%loop185128185234%_ - _%lp-tl185131185247%_ - (cons _%lp-hd185130185245%_ - _%id185132185239%_)))) - (let ((_%id185133185250%_ - (reverse _%id185132185239%_))) + (##car _%e185235185348%_)))) + (_%loop185234185340%_ + _%lp-tl185237185353%_ + (cons _%lp-hd185236185351%_ + _%id185238185345%_)))) + (let ((_%id185239185356%_ + (reverse _%id185238185345%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185124185226%_)) - (let ((_%e185134185253%_ + _%tl185230185332%_)) + (let ((_%e185240185359%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185124185226%_)))) - (let ((_%tl185136185258%_ + (gx#stx-e _%tl185230185332%_)))) + (let ((_%tl185242185364%_ (let () (declare (not safe)) - (##cdr _%e185134185253%_))) - (_%hd185135185256%_ + (##cdr _%e185240185359%_))) + (_%hd185241185362%_ (let () (declare (not safe)) - (##car _%e185134185253%_)))) + (##car _%e185240185359%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185136185258%_)) + (gx#stx-null? _%tl185242185364%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185118185210%_)) + (gx#stx-null? _%tl185224185316%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl185109185186%_)) - (let ((_%__splice190402190403%_ + (gx#stx-pair/null? _%tl185215185292%_)) + (let ((_%__splice190508190509%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185109185186%_ + _%tl185215185292%_ '0)))) - (let ((_%tl185139185263%_ + (let ((_%tl185245185369%_ (let () (declare (not safe)) (##vector-ref - _%__splice190402190403%_ + _%__splice190508190509%_ '1))) - (_%target185137185261%_ + (_%target185243185367%_ (let () (declare (not safe)) (##vector-ref - _%__splice190402190403%_ + _%__splice190508190509%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185139185263%_)) - (letrec ((_%loop185140185266%_ - (lambda (_%hd185138185269%_ - _%bind185144185271%_) + (gx#stx-null? _%tl185245185369%_)) + (letrec ((_%loop185246185372%_ + (lambda (_%hd185244185375%_ + _%bind185250185377%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185138185269%_)) - (let ((_%e185141185274%_ + _%hd185244185375%_)) + (let ((_%e185247185380%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd185138185269%_)))) - (let ((_%lp-tl185143185279%_ + (gx#stx-e _%hd185244185375%_)))) + (let ((_%lp-tl185249185385%_ (let () (declare (not safe)) - (##cdr _%e185141185274%_))) - (_%lp-hd185142185277%_ + (##cdr _%e185247185380%_))) + (_%lp-hd185248185383%_ (let () (declare (not safe)) - (##car _%e185141185274%_)))) - (_%loop185140185266%_ - _%lp-tl185143185279%_ - (cons _%lp-hd185142185277%_ _%bind185144185271%_)))) - (let ((_%bind185145185282%_ (reverse _%bind185144185271%_))) + (##car _%e185247185380%_)))) + (_%loop185246185372%_ + _%lp-tl185249185385%_ + (cons _%lp-hd185248185383%_ _%bind185250185377%_)))) + (let ((_%bind185251185388%_ (reverse _%bind185250185377%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185106185178%_)) - (let ((_%e185146185285%_ + (gx#stx-pair? _%tl185212185284%_)) + (let ((_%e185252185391%_ (let () (declare (not safe)) - (gx#stx-e _%tl185106185178%_)))) - (let ((_%tl185148185290%_ + (gx#stx-e _%tl185212185284%_)))) + (let ((_%tl185254185396%_ (let () (declare (not safe)) - (##cdr _%e185146185285%_))) - (_%hd185147185288%_ + (##cdr _%e185252185391%_))) + (_%hd185253185394%_ (let () (declare (not safe)) - (##car _%e185146185285%_)))) + (##car _%e185252185391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185148185290%_)) - (_%__kont190398190399%_ - _%hd185147185288%_ - _%bind185145185282%_ - _%hd185135185256%_ - _%id185133185250%_ - _%hd185114185200%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_))))))) + (gx#stx-null? _%tl185254185396%_)) + (_%__kont190504190505%_ + _%hd185253185394%_ + _%bind185251185388%_ + _%hd185241185362%_ + _%id185239185356%_ + _%hd185220185306%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185140185266%_ - _%target185137185261%_ + (_%loop185246185372%_ + _%target185243185367%_ '())) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_))))))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185128185234%_ - _%target185125185229%_ + (_%loop185234185340%_ + _%target185231185335%_ '())))) - (_%__match190525190526%_ - (lambda (_%e185067185360%_ - _%hd185068185363%_ - _%tl185069185365%_ - _%e185070185368%_ - _%hd185071185371%_ - _%tl185072185373%_ - _%__splice190396190397%_ - _%target185073185376%_ - _%tl185075185378%_) - (letrec ((_%loop185076185381%_ - (lambda (_%hd185074185384%_ - _%expr185080185386%_ - _%id185081185388%_) + (_%__match190631190632%_ + (lambda (_%e185173185466%_ + _%hd185174185469%_ + _%tl185175185471%_ + _%e185176185474%_ + _%hd185177185477%_ + _%tl185178185479%_ + _%__splice190502190503%_ + _%target185179185482%_ + _%tl185181185484%_) + (letrec ((_%loop185182185487%_ + (lambda (_%hd185180185490%_ + _%expr185186185492%_ + _%id185187185494%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185074185384%_)) - (let ((_%e185077185391%_ + _%hd185180185490%_)) + (let ((_%e185183185497%_ (let () (declare (not safe)) (gx#stx-e - _%hd185074185384%_)))) - (let ((_%lp-tl185079185396%_ + _%hd185180185490%_)))) + (let ((_%lp-tl185185185502%_ (let () (declare (not safe)) - (##cdr _%e185077185391%_))) - (_%lp-hd185078185394%_ + (##cdr _%e185183185497%_))) + (_%lp-hd185184185500%_ (let () (declare (not safe)) - (##car _%e185077185391%_)))) + (##car _%e185183185497%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185078185394%_)) - (let ((_%e185087185399%_ + _%lp-hd185184185500%_)) + (let ((_%e185193185505%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185078185394%_)))) - (let ((_%tl185089185404%_ + (gx#stx-e _%lp-hd185184185500%_)))) + (let ((_%tl185195185510%_ (let () (declare (not safe)) - (##cdr _%e185087185399%_))) - (_%hd185088185402%_ + (##cdr _%e185193185505%_))) + (_%hd185194185508%_ (let () (declare (not safe)) - (##car _%e185087185399%_)))) + (##car _%e185193185505%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185088185402%_)) - (let ((_%e185090185407%_ + (gx#stx-pair? _%hd185194185508%_)) + (let ((_%e185196185513%_ (let () (declare (not safe)) - (gx#stx-e _%hd185088185402%_)))) - (let ((_%tl185092185412%_ + (gx#stx-e _%hd185194185508%_)))) + (let ((_%tl185198185518%_ (let () (declare (not safe)) - (##cdr _%e185090185407%_))) - (_%hd185091185410%_ + (##cdr _%e185196185513%_))) + (_%hd185197185516%_ (let () (declare (not safe)) - (##car _%e185090185407%_)))) + (##car _%e185196185513%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185092185412%_)) + (gx#stx-null? _%tl185198185518%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185089185404%_)) - (let ((_%e185093185415%_ + (gx#stx-pair? _%tl185195185510%_)) + (let ((_%e185199185521%_ (let () (declare (not safe)) (gx#stx-e - _%tl185089185404%_)))) - (let ((_%tl185095185420%_ + _%tl185195185510%_)))) + (let ((_%tl185201185526%_ (let () (declare (not safe)) - (##cdr _%e185093185415%_))) - (_%hd185094185418%_ + (##cdr _%e185199185521%_))) + (_%hd185200185524%_ (let () (declare (not safe)) - (##car _%e185093185415%_)))) + (##car _%e185199185521%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185095185420%_)) - (_%loop185076185381%_ - _%lp-tl185079185396%_ - (cons _%hd185094185418%_ - _%expr185080185386%_) - (cons _%hd185091185410%_ - _%id185081185388%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) + _%tl185201185526%_)) + (_%loop185182185487%_ + _%lp-tl185185185502%_ + (cons _%hd185200185524%_ + _%expr185186185492%_) + (cons _%hd185197185516%_ + _%id185187185494%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185083185425%_ - (reverse _%id185081185388%_)) - (_%expr185082185423%_ - (reverse _%expr185080185386%_))) + (let ((_%id185189185531%_ + (reverse _%id185187185494%_)) + (_%expr185188185529%_ + (reverse _%expr185186185492%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185072185373%_)) - (let ((_%e185084185428%_ + _%tl185178185479%_)) + (let ((_%e185190185534%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185072185373%_)))) - (let ((_%tl185086185433%_ + (gx#stx-e _%tl185178185479%_)))) + (let ((_%tl185192185539%_ (let () (declare (not safe)) - (##cdr _%e185084185428%_))) - (_%hd185085185431%_ + (##cdr _%e185190185534%_))) + (_%hd185191185537%_ (let () (declare (not safe)) - (##car _%e185084185428%_)))) + (##car _%e185190185534%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185086185433%_)) - (_%__kont190394190395%_ - _%hd185085185431%_ - _%expr185082185423%_ - _%id185083185425%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_))))))) + (gx#stx-null? _%tl185192185539%_)) + (_%__kont190500190501%_ + _%hd185191185537%_ + _%expr185188185529%_ + _%id185189185531%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185076185381%_ - _%target185073185376%_ + (_%loop185182185487%_ + _%target185179185482%_ '() '())))) - (_%__match190501190502%_ - (lambda (_%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_) - (letrec ((_%loop185038185497%_ - (lambda (_%hd185036185500%_ - _%xid185042185502%_ - _%id185043185504%_) + (_%__match190607190608%_ + (lambda (_%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_) + (letrec ((_%loop185144185603%_ + (lambda (_%hd185142185606%_ + _%xid185148185608%_ + _%id185149185610%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185036185500%_)) - (let ((_%e185039185507%_ + _%hd185142185606%_)) + (let ((_%e185145185613%_ (let () (declare (not safe)) (gx#stx-e - _%hd185036185500%_)))) - (let ((_%lp-tl185041185512%_ + _%hd185142185606%_)))) + (let ((_%lp-tl185147185618%_ (let () (declare (not safe)) - (##cdr _%e185039185507%_))) - (_%lp-hd185040185510%_ + (##cdr _%e185145185613%_))) + (_%lp-hd185146185616%_ (let () (declare (not safe)) - (##car _%e185039185507%_)))) + (##car _%e185145185613%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185040185510%_)) - (let ((_%e185049185515%_ + _%lp-hd185146185616%_)) + (let ((_%e185155185621%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185040185510%_)))) - (let ((_%tl185051185520%_ + (gx#stx-e _%lp-hd185146185616%_)))) + (let ((_%tl185157185626%_ (let () (declare (not safe)) - (##cdr _%e185049185515%_))) - (_%hd185050185518%_ + (##cdr _%e185155185621%_))) + (_%hd185156185624%_ (let () (declare (not safe)) - (##car _%e185049185515%_)))) + (##car _%e185155185621%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185050185518%_)) - (let ((_%e185052185523%_ + (gx#stx-pair? _%hd185156185624%_)) + (let ((_%e185158185629%_ (let () (declare (not safe)) - (gx#stx-e _%hd185050185518%_)))) - (let ((_%tl185054185528%_ + (gx#stx-e _%hd185156185624%_)))) + (let ((_%tl185160185634%_ (let () (declare (not safe)) - (##cdr _%e185052185523%_))) - (_%hd185053185526%_ + (##cdr _%e185158185629%_))) + (_%hd185159185632%_ (let () (declare (not safe)) - (##car _%e185052185523%_)))) + (##car _%e185158185629%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185054185528%_)) + (gx#stx-null? _%tl185160185634%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185051185520%_)) - (let ((_%e185055185531%_ + (gx#stx-pair? _%tl185157185626%_)) + (let ((_%e185161185637%_ (let () (declare (not safe)) (gx#stx-e - _%tl185051185520%_)))) - (let ((_%tl185057185536%_ + _%tl185157185626%_)))) + (let ((_%tl185163185642%_ (let () (declare (not safe)) - (##cdr _%e185055185531%_))) - (_%hd185056185534%_ + (##cdr _%e185161185637%_))) + (_%hd185162185640%_ (let () (declare (not safe)) - (##car _%e185055185531%_)))) + (##car _%e185161185637%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185056185534%_)) - (let ((_%e185058185539%_ + _%hd185162185640%_)) + (let ((_%e185164185645%_ (let () (declare (not safe)) (gx#stx-e - _%hd185056185534%_)))) - (let ((_%tl185060185544%_ + _%hd185162185640%_)))) + (let ((_%tl185166185650%_ (let () (declare (not safe)) - (##cdr _%e185058185539%_))) - (_%hd185059185542%_ + (##cdr _%e185164185645%_))) + (_%hd185165185648%_ (let () (declare (not safe)) - (##car _%e185058185539%_)))) + (##car _%e185164185645%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd185059185542%_)) + _%hd185165185648%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd185059185542%_)) + _%hd185165185648%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl185060185544%_)) - (let ((_%e185061185547%_ + (gx#stx-pair? _%tl185166185650%_)) + (let ((_%e185167185653%_ (let () (declare (not safe)) - (gx#stx-e _%tl185060185544%_)))) - (let ((_%tl185063185552%_ + (gx#stx-e _%tl185166185650%_)))) + (let ((_%tl185169185658%_ (let () (declare (not safe)) - (##cdr _%e185061185547%_))) - (_%hd185062185550%_ + (##cdr _%e185167185653%_))) + (_%hd185168185656%_ (let () (declare (not safe)) - (##car _%e185061185547%_)))) + (##car _%e185167185653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185063185552%_)) + (gx#stx-null? _%tl185169185658%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185057185536%_)) - (_%loop185038185497%_ - _%lp-tl185041185512%_ - (cons _%hd185062185550%_ - _%xid185042185502%_) - (cons _%hd185053185526%_ - _%id185043185504%_)) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) + (gx#stx-null? _%tl185163185642%_)) + (_%loop185144185603%_ + _%lp-tl185147185618%_ + (cons _%hd185168185656%_ + _%xid185148185608%_) + (cons _%hd185159185632%_ + _%id185149185610%_)) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185045185557%_ - (reverse _%id185043185504%_)) - (_%xid185044185555%_ - (reverse _%xid185042185502%_))) + (let ((_%id185151185663%_ + (reverse _%id185149185610%_)) + (_%xid185150185661%_ + (reverse _%xid185148185608%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185034185489%_)) - (let ((_%e185046185560%_ + _%tl185140185595%_)) + (let ((_%e185152185666%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl185034185489%_)))) - (let ((_%tl185048185565%_ + (gx#stx-e _%tl185140185595%_)))) + (let ((_%tl185154185671%_ (let () (declare (not safe)) - (##cdr _%e185046185560%_))) - (_%hd185047185563%_ + (##cdr _%e185152185666%_))) + (_%hd185153185669%_ (let () (declare (not safe)) - (##car _%e185046185560%_)))) + (##car _%e185152185666%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185048185565%_)) - (_%__kont190390190391%_ - _%hd185047185563%_ - _%xid185044185555%_ - _%id185045185557%_) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_)))) - (_%__match190525190526%_ - _%e185029185476%_ - _%hd185030185479%_ - _%tl185031185481%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_))))))) + (gx#stx-null? _%tl185154185671%_)) + (_%__kont190496190497%_ + _%hd185153185669%_ + _%xid185150185661%_ + _%id185151185663%_) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_)))) + (_%__match190631190632%_ + _%e185135185582%_ + _%hd185136185585%_ + _%tl185137185587%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop185038185497%_ - _%target185035185492%_ + (_%loop185144185603%_ + _%target185141185598%_ '() '())))) - (_%__match190477190478%_ - (lambda (_%e184999185606%_ - _%hd185000185609%_ - _%tl185001185611%_ - _%e185002185614%_ - _%hd185003185617%_ - _%tl185004185619%_ - _%e185005185622%_ - _%hd185006185625%_ - _%tl185007185627%_ - _%e185008185630%_ - _%hd185009185633%_ - _%tl185010185635%_ - _%__splice190388190389%_ - _%target185011185638%_ - _%tl185013185640%_) - (letrec ((_%loop185014185643%_ - (lambda (_%hd185012185646%_ - _%id185018185648%_) + (_%__match190583190584%_ + (lambda (_%e185105185712%_ + _%hd185106185715%_ + _%tl185107185717%_ + _%e185108185720%_ + _%hd185109185723%_ + _%tl185110185725%_ + _%e185111185728%_ + _%hd185112185731%_ + _%tl185113185733%_ + _%e185114185736%_ + _%hd185115185739%_ + _%tl185116185741%_ + _%__splice190494190495%_ + _%target185117185744%_ + _%tl185119185746%_) + (letrec ((_%loop185120185749%_ + (lambda (_%hd185118185752%_ + _%id185124185754%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185012185646%_)) - (let ((_%e185015185651%_ + _%hd185118185752%_)) + (let ((_%e185121185757%_ (let () (declare (not safe)) (gx#stx-e - _%hd185012185646%_)))) - (let ((_%lp-tl185017185656%_ + _%hd185118185752%_)))) + (let ((_%lp-tl185123185762%_ (let () (declare (not safe)) - (##cdr _%e185015185651%_))) - (_%lp-hd185016185654%_ + (##cdr _%e185121185757%_))) + (_%lp-hd185122185760%_ (let () (declare (not safe)) - (##car _%e185015185651%_)))) + (##car _%e185121185757%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd185016185654%_)) - (let ((_%e185020185659%_ + _%lp-hd185122185760%_)) + (let ((_%e185126185765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%lp-hd185016185654%_)))) - (let ((_%tl185022185664%_ + (gx#stx-e _%lp-hd185122185760%_)))) + (let ((_%tl185128185770%_ (let () (declare (not safe)) - (##cdr _%e185020185659%_))) - (_%hd185021185662%_ + (##cdr _%e185126185765%_))) + (_%hd185127185768%_ (let () (declare (not safe)) - (##car _%e185020185659%_)))) + (##car _%e185126185765%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185021185662%_)) + (gx#identifier? _%hd185127185768%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185021185662%_)) + (gx#stx-eq? '%#ref _%hd185127185768%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185022185664%_)) - (let ((_%e185023185667%_ + (gx#stx-pair? _%tl185128185770%_)) + (let ((_%e185129185773%_ (let () (declare (not safe)) - (gx#stx-e _%tl185022185664%_)))) - (let ((_%tl185025185672%_ + (gx#stx-e _%tl185128185770%_)))) + (let ((_%tl185131185778%_ (let () (declare (not safe)) - (##cdr _%e185023185667%_))) - (_%hd185024185670%_ + (##cdr _%e185129185773%_))) + (_%hd185130185776%_ (let () (declare (not safe)) - (##car _%e185023185667%_)))) + (##car _%e185129185773%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185025185672%_)) - (_%loop185014185643%_ - _%lp-tl185017185656%_ - (cons _%hd185024185670%_ - _%id185018185648%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) + (gx#stx-null? _%tl185131185778%_)) + (_%loop185120185749%_ + _%lp-tl185123185762%_ + (cons _%hd185130185776%_ + _%id185124185754%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%id185019185675%_ - (reverse _%id185018185648%_))) - (_%__kont190386190387%_ - _%id185019185675%_ - _%hd185009185633%_)))))) - (_%loop185014185643%_ - _%target185011185638%_ + (let ((_%id185125185781%_ + (reverse _%id185124185754%_))) + (_%__kont190492190493%_ + _%id185125185781%_ + _%hd185115185739%_)))))) + (_%loop185120185749%_ + _%target185117185744%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190382190383%_)) - (let ((_%e184985185717%_ + (gx#stx-pair? _%__stx190488190489%_)) + (let ((_%e185091185823%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190382190383%_)))) - (let ((_%tl184987185722%_ + (gx#stx-e _%__stx190488190489%_)))) + (let ((_%tl185093185828%_ (let () (declare (not safe)) - (##cdr _%e184985185717%_))) - (_%hd184986185720%_ + (##cdr _%e185091185823%_))) + (_%hd185092185826%_ (let () (declare (not safe)) - (##car _%e184985185717%_)))) + (##car _%e185091185823%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184986185720%_)) + (gx#identifier? _%hd185092185826%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184986185720%_)) + _%hd185092185826%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184987185722%_)) - (let ((_%e184988185725%_ + _%tl185093185828%_)) + (let ((_%e185094185831%_ (let () (declare (not safe)) (gx#stx-e - _%tl184987185722%_)))) - (let ((_%tl184990185730%_ + _%tl185093185828%_)))) + (let ((_%tl185096185836%_ (let () (declare (not safe)) - (##cdr _%e184988185725%_))) - (_%hd184989185728%_ + (##cdr _%e185094185831%_))) + (_%hd185095185834%_ (let () (declare (not safe)) - (##car _%e184988185725%_)))) + (##car _%e185094185831%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184990185730%_)) - (let ((_%e184991185733%_ + _%tl185096185836%_)) + (let ((_%e185097185839%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184990185730%_)))) - (let ((_%tl184993185738%_ + (gx#stx-e _%tl185096185836%_)))) + (let ((_%tl185099185844%_ (let () (declare (not safe)) - (##cdr _%e184991185733%_))) - (_%hd184992185736%_ + (##cdr _%e185097185839%_))) + (_%hd185098185842%_ (let () (declare (not safe)) - (##car _%e184991185733%_)))) + (##car _%e185097185839%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184993185738%_)) - (let ((_%e184994185741%_ + (gx#stx-pair? _%tl185099185844%_)) + (let ((_%e185100185847%_ (let () (declare (not safe)) - (gx#stx-e _%tl184993185738%_)))) - (let ((_%tl184996185746%_ + (gx#stx-e _%tl185099185844%_)))) + (let ((_%tl185102185852%_ (let () (declare (not safe)) - (##cdr _%e184994185741%_))) - (_%hd184995185744%_ + (##cdr _%e185100185847%_))) + (_%hd185101185850%_ (let () (declare (not safe)) - (##car _%e184994185741%_)))) + (##car _%e185100185847%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184996185746%_)) - (_%__kont190384190385%_ - _%hd184995185744%_ - _%hd184992185736%_ - _%hd184989185728%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) + (gx#stx-null? _%tl185102185852%_)) + (_%__kont190490190491%_ + _%hd185101185850%_ + _%hd185098185842%_ + _%hd185095185834%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190404190405%_)) + (_%__kont190510190511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184986185720%_)) + _%hd185092185826%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184987185722%_)) - (let ((_%e185002185614%_ + _%tl185093185828%_)) + (let ((_%e185108185720%_ (let () (declare (not safe)) (gx#stx-e - _%tl184987185722%_)))) - (let ((_%tl185004185619%_ + _%tl185093185828%_)))) + (let ((_%tl185110185725%_ (let () (declare (not safe)) - (##cdr _%e185002185614%_))) - (_%hd185003185617%_ + (##cdr _%e185108185720%_))) + (_%hd185109185723%_ (let () (declare (not safe)) - (##car _%e185002185614%_)))) + (##car _%e185108185720%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd185003185617%_)) - (let ((_%e185005185622%_ + _%hd185109185723%_)) + (let ((_%e185111185728%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd185003185617%_)))) - (let ((_%tl185007185627%_ + (gx#stx-e _%hd185109185723%_)))) + (let ((_%tl185113185733%_ (let () (declare (not safe)) - (##cdr _%e185005185622%_))) - (_%hd185006185625%_ + (##cdr _%e185111185728%_))) + (_%hd185112185731%_ (let () (declare (not safe)) - (##car _%e185005185622%_)))) + (##car _%e185111185728%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185006185625%_)) + (gx#identifier? _%hd185112185731%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd185006185625%_)) + (gx#stx-eq? '%#ref _%hd185112185731%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185007185627%_)) - (let ((_%e185008185630%_ + (gx#stx-pair? _%tl185113185733%_)) + (let ((_%e185114185736%_ (let () (declare (not safe)) - (gx#stx-e _%tl185007185627%_)))) - (let ((_%tl185010185635%_ + (gx#stx-e _%tl185113185733%_)))) + (let ((_%tl185116185741%_ (let () (declare (not safe)) - (##cdr _%e185008185630%_))) - (_%hd185009185633%_ + (##cdr _%e185114185736%_))) + (_%hd185115185739%_ (let () (declare (not safe)) - (##car _%e185008185630%_)))) + (##car _%e185114185736%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185010185635%_)) + (gx#stx-null? _%tl185116185741%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl185004185619%_)) - (let ((_%__splice190388190389%_ + _%tl185110185725%_)) + (let ((_%__splice190494190495%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl185004185619%_ + _%tl185110185725%_ '0)))) - (let ((_%tl185013185640%_ + (let ((_%tl185119185746%_ (let () (declare (not safe)) (##vector-ref - _%__splice190388190389%_ + _%__splice190494190495%_ '1))) - (_%target185011185638%_ + (_%target185117185744%_ (let () (declare (not safe)) (##vector-ref - _%__splice190388190389%_ + _%__splice190494190495%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185013185640%_)) - (_%__match190477190478%_ - _%e184985185717%_ - _%hd184986185720%_ - _%tl184987185722%_ - _%e185002185614%_ - _%hd185003185617%_ - _%tl185004185619%_ - _%e185005185622%_ - _%hd185006185625%_ - _%tl185007185627%_ - _%e185008185630%_ - _%hd185009185633%_ - _%tl185010185635%_ - _%__splice190388190389%_ - _%target185011185638%_ - _%tl185013185640%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) + _%tl185119185746%_)) + (_%__match190583190584%_ + _%e185091185823%_ + _%hd185092185826%_ + _%tl185093185828%_ + _%e185108185720%_ + _%hd185109185723%_ + _%tl185110185725%_ + _%e185111185728%_ + _%hd185112185731%_ + _%tl185113185733%_ + _%e185114185736%_ + _%hd185115185739%_ + _%tl185116185741%_ + _%__splice190494190495%_ + _%target185117185744%_ + _%tl185119185746%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190404190405%_)) + (_%__kont190510190511%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184986185720%_)) + _%hd185092185826%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184987185722%_)) - (let ((_%e185032185484%_ + _%tl185093185828%_)) + (let ((_%e185138185590%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184987185722%_)))) - (let ((_%tl185034185489%_ + (gx#stx-e _%tl185093185828%_)))) + (let ((_%tl185140185595%_ (let () (declare (not safe)) - (##cdr _%e185032185484%_))) - (_%hd185033185487%_ + (##cdr _%e185138185590%_))) + (_%hd185139185593%_ (let () (declare (not safe)) - (##car _%e185032185484%_)))) + (##car _%e185138185590%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd185033185487%_)) - (let ((_%__splice190392190393%_ + (gx#stx-pair/null? _%hd185139185593%_)) + (let ((_%__splice190498190499%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185033185487%_ + _%hd185139185593%_ '0)))) - (let ((_%tl185037185494%_ + (let ((_%tl185143185600%_ (let () (declare (not safe)) - (##vector-ref _%__splice190392190393%_ '1))) - (_%target185035185492%_ + (##vector-ref _%__splice190498190499%_ '1))) + (_%target185141185598%_ (let () (declare (not safe)) - (##vector-ref _%__splice190392190393%_ '0)))) + (##vector-ref _%__splice190498190499%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl185037185494%_)) - (_%__match190501190502%_ - _%e184985185717%_ - _%hd184986185720%_ - _%tl184987185722%_ - _%e185032185484%_ - _%hd185033185487%_ - _%tl185034185489%_ - _%__splice190392190393%_ - _%target185035185492%_ - _%tl185037185494%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) + (gx#stx-null? _%tl185143185600%_)) + (_%__match190607190608%_ + _%e185091185823%_ + _%hd185092185826%_ + _%tl185093185828%_ + _%e185138185590%_ + _%hd185139185593%_ + _%tl185140185595%_ + _%__splice190498190499%_ + _%target185141185598%_ + _%tl185143185600%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd184986185720%_)) + _%hd185092185826%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184987185722%_)) - (let ((_%e185104185173%_ + _%tl185093185828%_)) + (let ((_%e185210185279%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184987185722%_)))) - (let ((_%tl185106185178%_ + (gx#stx-e _%tl185093185828%_)))) + (let ((_%tl185212185284%_ (let () (declare (not safe)) - (##cdr _%e185104185173%_))) - (_%hd185105185176%_ + (##cdr _%e185210185279%_))) + (_%hd185211185282%_ (let () (declare (not safe)) - (##car _%e185104185173%_)))) + (##car _%e185210185279%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185105185176%_)) - (let ((_%e185107185181%_ + (gx#stx-pair? _%hd185211185282%_)) + (let ((_%e185213185287%_ (let () (declare (not safe)) - (gx#stx-e _%hd185105185176%_)))) - (let ((_%tl185109185186%_ + (gx#stx-e _%hd185211185282%_)))) + (let ((_%tl185215185292%_ (let () (declare (not safe)) - (##cdr _%e185107185181%_))) - (_%hd185108185184%_ + (##cdr _%e185213185287%_))) + (_%hd185214185290%_ (let () (declare (not safe)) - (##car _%e185107185181%_)))) + (##car _%e185213185287%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185108185184%_)) - (let ((_%e185110185189%_ + (gx#stx-pair? _%hd185214185290%_)) + (let ((_%e185216185295%_ (let () (declare (not safe)) - (gx#stx-e _%hd185108185184%_)))) - (let ((_%tl185112185194%_ + (gx#stx-e _%hd185214185290%_)))) + (let ((_%tl185218185300%_ (let () (declare (not safe)) - (##cdr _%e185110185189%_))) - (_%hd185111185192%_ + (##cdr _%e185216185295%_))) + (_%hd185217185298%_ (let () (declare (not safe)) - (##car _%e185110185189%_)))) + (##car _%e185216185295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185111185192%_)) - (let ((_%e185113185197%_ + (gx#stx-pair? _%hd185217185298%_)) + (let ((_%e185219185303%_ (let () (declare (not safe)) (gx#stx-e - _%hd185111185192%_)))) - (let ((_%tl185115185202%_ + _%hd185217185298%_)))) + (let ((_%tl185221185308%_ (let () (declare (not safe)) - (##cdr _%e185113185197%_))) - (_%hd185114185200%_ + (##cdr _%e185219185303%_))) + (_%hd185220185306%_ (let () (declare (not safe)) - (##car _%e185113185197%_)))) + (##car _%e185219185303%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185115185202%_)) + _%tl185221185308%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl185112185194%_)) - (let ((_%e185116185205%_ + _%tl185218185300%_)) + (let ((_%e185222185311%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl185112185194%_)))) - (let ((_%tl185118185210%_ + (gx#stx-e _%tl185218185300%_)))) + (let ((_%tl185224185316%_ (let () (declare (not safe)) - (##cdr _%e185116185205%_))) - (_%hd185117185208%_ + (##cdr _%e185222185311%_))) + (_%hd185223185314%_ (let () (declare (not safe)) - (##car _%e185116185205%_)))) + (##car _%e185222185311%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd185117185208%_)) - (let ((_%e185119185213%_ + (gx#stx-pair? _%hd185223185314%_)) + (let ((_%e185225185319%_ (let () (declare (not safe)) - (gx#stx-e _%hd185117185208%_)))) - (let ((_%tl185121185218%_ + (gx#stx-e _%hd185223185314%_)))) + (let ((_%tl185227185324%_ (let () (declare (not safe)) - (##cdr _%e185119185213%_))) - (_%hd185120185216%_ + (##cdr _%e185225185319%_))) + (_%hd185226185322%_ (let () (declare (not safe)) - (##car _%e185119185213%_)))) + (##car _%e185225185319%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd185120185216%_)) + (gx#identifier? _%hd185226185322%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd185120185216%_)) + (gx#stx-eq? '%#lambda _%hd185226185322%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl185121185218%_)) - (let ((_%e185122185221%_ + (gx#stx-pair? _%tl185227185324%_)) + (let ((_%e185228185327%_ (let () (declare (not safe)) (gx#stx-e - _%tl185121185218%_)))) - (let ((_%tl185124185226%_ + _%tl185227185324%_)))) + (let ((_%tl185230185332%_ (let () (declare (not safe)) - (##cdr _%e185122185221%_))) - (_%hd185123185224%_ + (##cdr _%e185228185327%_))) + (_%hd185229185330%_ (let () (declare (not safe)) - (##car _%e185122185221%_)))) + (##car _%e185228185327%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd185123185224%_)) - (let ((_%__splice190400190401%_ + _%hd185229185330%_)) + (let ((_%__splice190506190507%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd185123185224%_ + _%hd185229185330%_ '0)))) - (let ((_%tl185127185231%_ + (let ((_%tl185233185337%_ (let () (declare (not safe)) (##vector-ref - _%__splice190400190401%_ + _%__splice190506190507%_ '1))) - (_%target185125185229%_ + (_%target185231185335%_ (let () (declare (not safe)) (##vector-ref - _%__splice190400190401%_ + _%__splice190506190507%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl185127185231%_)) - (_%__match190591190592%_ - _%e184985185717%_ - _%hd184986185720%_ - _%tl184987185722%_ - _%e185104185173%_ - _%hd185105185176%_ - _%tl185106185178%_ - _%e185107185181%_ - _%hd185108185184%_ - _%tl185109185186%_ - _%e185110185189%_ - _%hd185111185192%_ - _%tl185112185194%_ - _%e185113185197%_ - _%hd185114185200%_ - _%tl185115185202%_ - _%e185116185205%_ - _%hd185117185208%_ - _%tl185118185210%_ - _%e185119185213%_ - _%hd185120185216%_ - _%tl185121185218%_ - _%e185122185221%_ - _%hd185123185224%_ - _%tl185124185226%_ - _%__splice190400190401%_ - _%target185125185229%_ - _%tl185127185231%_) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) + _%tl185233185337%_)) + (_%__match190697190698%_ + _%e185091185823%_ + _%hd185092185826%_ + _%tl185093185828%_ + _%e185210185279%_ + _%hd185211185282%_ + _%tl185212185284%_ + _%e185213185287%_ + _%hd185214185290%_ + _%tl185215185292%_ + _%e185216185295%_ + _%hd185217185298%_ + _%tl185218185300%_ + _%e185219185303%_ + _%hd185220185306%_ + _%tl185221185308%_ + _%e185222185311%_ + _%hd185223185314%_ + _%tl185224185316%_ + _%e185225185319%_ + _%hd185226185322%_ + _%tl185227185324%_ + _%e185228185327%_ + _%hd185229185330%_ + _%tl185230185332%_ + _%__splice190506190507%_ + _%target185231185335%_ + _%tl185233185337%_) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)))) - (_%__kont190404190405%_)) - (_%__kont190404190405%_))))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)))) + (_%__kont190510190511%_)) + (_%__kont190510190511%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190404190405%_)))) - (_%__kont190404190405%_))))))) - (_%optimize-t__189327189328%_ - (lambda (_%expr184956%_ _%test184957%_ _%continue184958%_) - (_%do-assert181963%_ - (cons (cons _%test184957%_ '#t) '()) - (lambda () (_%continue184958%_ _%expr184956%_))))) - (_%optimize-t__0__189329189330%_ - (lambda (_%expr184964%_ _%test184965%_) - (let ((_%continue184967%_ _%optimize-e181974%_)) - (_%optimize-t__189327189328%_ - _%expr184964%_ - _%test184965%_ - _%continue184967%_)))) - (_%optimize-t181975%_ - (lambda _g192484_ - (let ((_g192483_ + (_%__kont190510190511%_)))) + (_%__kont190510190511%_))))))) + (_%optimize-t__189433189434%_ + (lambda (_%expr185062%_ _%test185063%_ _%continue185064%_) + (_%do-assert182069%_ + (cons (cons _%test185063%_ '#t) '()) + (lambda () (_%continue185064%_ _%expr185062%_))))) + (_%optimize-t__0__189435189436%_ + (lambda (_%expr185070%_ _%test185071%_) + (let ((_%continue185073%_ _%optimize-e182080%_)) + (_%optimize-t__189433189434%_ + _%expr185070%_ + _%test185071%_ + _%continue185073%_)))) + (_%optimize-t182081%_ + (lambda _g192590_ + (let ((_g192589_ (let () (declare (not safe)) - (##length _g192484_)))) - (cond ((let () (declare (not safe)) (##fx= _g192483_ 2)) - (apply _%optimize-t__0__189329189330%_ - _g192484_)) - ((let () (declare (not safe)) (##fx= _g192483_ 3)) - (apply _%optimize-t__189327189328%_ _g192484_)) + (##length _g192590_)))) + (cond ((let () (declare (not safe)) (##fx= _g192589_ 2)) + (apply _%optimize-t__0__189435189436%_ + _g192590_)) + ((let () (declare (not safe)) (##fx= _g192589_ 3)) + (apply _%optimize-t__189433189434%_ _g192590_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192484_)))))) - (_%optimize-f__189331189332%_ - (lambda (_%expr184040%_ _%test184041%_) - (_%do-assert181963%_ - (if _%test184041%_ - (cons (cons _%test184041%_ '#f) '()) + _g192590_)))))) + (_%optimize-f__189437189438%_ + (lambda (_%expr184146%_ _%test184147%_) + (_%do-assert182069%_ + (if _%test184147%_ + (cons (cons _%test184147%_ '#f) '()) '()) (lambda () - (let* ((_%__stx190632190633%_ _%expr184040%_) - (_%g184049184222%_ + (let* ((_%__stx190738190739%_ _%expr184146%_) + (_%g184155184328%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190632190633%_))))) - (let ((_%__kont190634190635%_ - (lambda (_%L184810%_ _%L184811%_) - (let ((_%$e184831%_ - (_%lookup-block181982%_ - _%L184811%_))) - (if _%$e184831%_ - ((lambda (_%block184834%_) - (if (_%nonlinear-block?181984%_ - _%block184834%_) - _%expr184040%_ - (let* ((_%inline184843%_ - (_%inline-block181983%_ - _%block184834%_ - (let ((__tmp192485 - (lambda (_%g184835184838%_ + _%__stx190738190739%_))))) + (let ((_%__kont190740190741%_ + (lambda (_%L184916%_ _%L184917%_) + (let ((_%$e184937%_ + (_%lookup-block182088%_ + _%L184917%_))) + (if _%$e184937%_ + ((lambda (_%block184940%_) + (if (_%nonlinear-block?182090%_ + _%block184940%_) + _%expr184146%_ + (let* ((_%inline184949%_ + (_%inline-block182089%_ + _%block184940%_ + (let ((__tmp192591 + (lambda (_%g184941184944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184836184840%_) - (cons _%g184835184838%_ _%g184836184840%_)))) + _%g184942184946%_) + (cons _%g184941184944%_ _%g184942184946%_)))) (declare (not safe)) - (__foldr1 __tmp192485 '() _%L184810%_)))) - (_%__stx190594190595%_ _%inline184843%_) - (_%g184846184867%_ + (__foldr1 __tmp192591 '() _%L184916%_)))) + (_%__stx190700190701%_ _%inline184949%_) + (_%g184952184973%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190594190595%_))))) + _%__stx190700190701%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__kont190596190597%_ - (lambda (_%L184911%_ + (let ((_%__kont190702190703%_ + (lambda (_%L185017%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L184912%_ - _%L184913%_) - (let ((_%$e184935%_ (_%assert-e181977%_ _%L184913%_))) - (if (eq? '#t _%$e184935%_) - (if _%in-splice?181962%_ - (_%optimize-f__0__189333189334%_ _%L184912%_) - (_%optimize-e181974%_ _%L184912%_)) - (if (eq? '#f _%$e184935%_) - (_%optimize-f__0__189333189334%_ _%L184911%_) - _%expr184040%_))))) - (_%__kont190598190599%_ + _%L185018%_ + _%L185019%_) + (let ((_%$e185041%_ (_%assert-e182083%_ _%L185019%_))) + (if (eq? '#t _%$e185041%_) + (if _%in-splice?182068%_ + (_%optimize-f__0__189439189440%_ _%L185018%_) + (_%optimize-e182080%_ _%L185018%_)) + (if (eq? '#f _%$e185041%_) + (_%optimize-f__0__189439189440%_ _%L185017%_) + _%expr184146%_))))) + (_%__kont190704190705%_ (lambda () - (_%optimize-f__0__189333189334%_ _%inline184843%_)))) + (_%optimize-f__0__189439189440%_ _%inline184949%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190594190595%_)) - (let ((_%e184851184879%_ + _%__stx190700190701%_)) + (let ((_%e184957184985%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx190594190595%_)))) - (let ((_%tl184853184884%_ + (gx#stx-e _%__stx190700190701%_)))) + (let ((_%tl184959184990%_ (let () (declare (not safe)) - (##cdr _%e184851184879%_))) - (_%hd184852184882%_ + (##cdr _%e184957184985%_))) + (_%hd184958184988%_ (let () (declare (not safe)) - (##car _%e184851184879%_)))) + (##car _%e184957184985%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184852184882%_)) + (gx#identifier? _%hd184958184988%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd184852184882%_)) + (gx#stx-eq? '%#if _%hd184958184988%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184853184884%_)) - (let ((_%e184854184887%_ + (gx#stx-pair? _%tl184959184990%_)) + (let ((_%e184960184993%_ (let () (declare (not safe)) - (gx#stx-e _%tl184853184884%_)))) - (let ((_%tl184856184892%_ + (gx#stx-e _%tl184959184990%_)))) + (let ((_%tl184962184998%_ (let () (declare (not safe)) - (##cdr _%e184854184887%_))) - (_%hd184855184890%_ + (##cdr _%e184960184993%_))) + (_%hd184961184996%_ (let () (declare (not safe)) - (##car _%e184854184887%_)))) + (##car _%e184960184993%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184856184892%_)) - (let ((_%e184857184895%_ + (gx#stx-pair? _%tl184962184998%_)) + (let ((_%e184963185001%_ (let () (declare (not safe)) (gx#stx-e - _%tl184856184892%_)))) - (let ((_%tl184859184900%_ + _%tl184962184998%_)))) + (let ((_%tl184965185006%_ (let () (declare (not safe)) - (##cdr _%e184857184895%_))) - (_%hd184858184898%_ + (##cdr _%e184963185001%_))) + (_%hd184964185004%_ (let () (declare (not safe)) - (##car _%e184857184895%_)))) + (##car _%e184963185001%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184859184900%_)) - (let ((_%e184860184903%_ + _%tl184965185006%_)) + (let ((_%e184966185009%_ (let () (declare (not safe)) (gx#stx-e - _%tl184859184900%_)))) - (let ((_%tl184862184908%_ + _%tl184965185006%_)))) + (let ((_%tl184968185014%_ (let () (declare (not safe)) - (##cdr _%e184860184903%_))) - (_%hd184861184906%_ + (##cdr _%e184966185009%_))) + (_%hd184967185012%_ (let () (declare (not safe)) - (##car _%e184860184903%_)))) + (##car _%e184966185009%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184862184908%_)) - (_%__kont190596190597%_ - _%hd184861184906%_ - _%hd184858184898%_ - _%hd184855184890%_) - (_%__kont190598190599%_)))) - (_%__kont190598190599%_)))) - (_%__kont190598190599%_)))) - (_%__kont190598190599%_)) - (_%__kont190598190599%_)) - (_%__kont190598190599%_)))) - (_%__kont190598190599%_)))))) + _%tl184968185014%_)) + (_%__kont190702190703%_ + _%hd184967185012%_ + _%hd184964185004%_ + _%hd184961184996%_) + (_%__kont190704190705%_)))) + (_%__kont190704190705%_)))) + (_%__kont190704190705%_)))) + (_%__kont190704190705%_)) + (_%__kont190704190705%_)) + (_%__kont190704190705%_)))) + (_%__kont190704190705%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e184831%_) - _%expr184040%_)))) - (_%__kont190638190639%_ - (lambda (_%L184708%_ _%L184709%_ _%L184710%_) - (let ((_%$e184727%_ - (_%assert-e181977%_ _%L184710%_))) - (if (eq? '#t _%$e184727%_) - (if _%in-splice?181962%_ - (_%optimize-f__0__189333189334%_ - _%L184709%_) - (_%optimize-e181974%_ - _%L184709%_)) - (if (eq? '#f _%$e184727%_) - (_%optimize-f__0__189333189334%_ - _%L184708%_) - (let ((_%K184730%_ - (_%optimize-t__189327189328%_ - _%L184709%_ - _%L184710%_ - _%optimize-f181976%_)) - (_%E184731%_ - (_%optimize-f__189331189332%_ - _%L184708%_ - _%L184710%_))) + _%$e184937%_) + _%expr184146%_)))) + (_%__kont190744190745%_ + (lambda (_%L184814%_ _%L184815%_ _%L184816%_) + (let ((_%$e184833%_ + (_%assert-e182083%_ _%L184816%_))) + (if (eq? '#t _%$e184833%_) + (if _%in-splice?182068%_ + (_%optimize-f__0__189439189440%_ + _%L184815%_) + (_%optimize-e182080%_ + _%L184815%_)) + (if (eq? '#f _%$e184833%_) + (_%optimize-f__0__189439189440%_ + _%L184814%_) + (let ((_%K184836%_ + (_%optimize-t__189433189434%_ + _%L184815%_ + _%L184816%_ + _%optimize-f182082%_)) + (_%E184837%_ + (_%optimize-f__189437189438%_ + _%L184814%_ + _%L184816%_))) (if (equal? (gxc#apply-generate-runtime-repr - _%K184730%_) + _%K184836%_) (gxc#apply-generate-runtime-repr - _%E184731%_)) - _%K184730%_ + _%E184837%_)) + _%K184836%_ (cons '%#if - (cons _%L184710%_ - (cons _%K184730%_ + (cons _%L184816%_ + (cons _%K184836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%E184731%_ '()))))))))))) + (cons _%E184837%_ '()))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190640190641%_ - (lambda (_%L184638%_ _%L184639%_ _%L184640%_) - (let ((_%body184659%_ - (_%optimize-f__0__189333189334%_ - _%L184638%_))) + (_%__kont190746190747%_ + (lambda (_%L184744%_ _%L184745%_ _%L184746%_) + (let ((_%body184765%_ + (_%optimize-f__0__189439189440%_ + _%L184744%_))) (cons '%#let-values (cons (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L184639%_ - _%L184640%_)) - (let ((__tmp192486 - (lambda (_%g184660184664%_ + _%L184745%_ + _%L184746%_)) + (let ((__tmp192592 + (lambda (_%g184766184770%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g184661184666%_ - _%g184662184668%_) - (cons (cons (cons _%g184661184666%_ '()) + _%g184767184772%_ + _%g184768184774%_) + (cons (cons (cons _%g184767184772%_ '()) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g184660184664%_ '())) + (cons _%g184766184770%_ '())) '())) - _%g184662184668%_)))) + _%g184768184774%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp192486 + __tmp192592 '() - _%L184639%_ - _%L184640%_))) - (cons _%body184659%_ '())))))) - (_%__kont190644190645%_ - (lambda (_%L184506%_ _%L184507%_ _%L184508%_) - (_%bind-e__189335189336%_ + _%L184745%_ + _%L184746%_))) + (cons _%body184765%_ '())))))) + (_%__kont190750190751%_ + (lambda (_%L184612%_ _%L184613%_ _%L184614%_) + (_%bind-e__189441189442%_ (map cons - (let ((__tmp192487 - (lambda (_%g184526184529%_ - _%g184527184531%_) - (cons _%g184526184529%_ - _%g184527184531%_)))) + (let ((__tmp192593 + (lambda (_%g184632184635%_ + _%g184633184637%_) + (cons _%g184632184635%_ + _%g184633184637%_)))) (declare (not safe)) (__foldr1 - __tmp192487 + __tmp192593 '() - _%L184508%_)) - (let ((__tmp192488 - (lambda (_%g184533184536%_ - _%g184534184538%_) - (cons _%g184533184536%_ - _%g184534184538%_)))) + _%L184614%_)) + (let ((__tmp192594 + (lambda (_%g184639184642%_ + _%g184640184644%_) + (cons _%g184639184642%_ + _%g184640184644%_)))) (declare (not safe)) (__foldr1 - __tmp192488 + __tmp192594 '() - _%L184507%_))) - _%L184506%_ - _%optimize-f181976%_))) - (_%__kont190648190649%_ - (lambda (_%L184362%_ - _%L184363%_ - _%L184364%_ - _%L184365%_ - _%L184366%_) - (_%do-splice!181973%_ + _%L184613%_))) + _%L184612%_ + _%optimize-f182082%_))) + (_%__kont190754190755%_ + (lambda (_%L184468%_ + _%L184469%_ + _%L184470%_ + _%L184471%_ + _%L184472%_) + (_%do-splice!182079%_ (lambda () - (let ((_%expr184409%_ - (_%optimize-f__0__189333189334%_ - _%L184364%_))) + (let ((_%expr184515%_ + (_%optimize-f__0__189439189440%_ + _%L184470%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L184366%_ + (cons (cons (cons (cons _%L184472%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#lambda - (cons (let ((__tmp192489 - (lambda (_%g184410184413%_ - _%g184411184415%_) - (cons _%g184410184413%_ - _%g184411184415%_)))) + (cons (let ((__tmp192595 + (lambda (_%g184516184519%_ + _%g184517184521%_) + (cons _%g184516184519%_ + _%g184517184521%_)))) (declare (not safe)) (__foldr1 - __tmp192489 + __tmp192595 '() - _%L184365%_)) - (cons _%expr184409%_ '()))) + _%L184471%_)) + (cons _%expr184515%_ '()))) '())) - (let ((__tmp192490 - (lambda (_%g184417184420%_ _%g184418184422%_) - (cons _%g184417184420%_ _%g184418184422%_)))) + (let ((__tmp192596 + (lambda (_%g184523184526%_ _%g184524184528%_) + (cons _%g184523184526%_ _%g184524184528%_)))) (declare (not safe)) - (__foldr1 __tmp192490 '() _%L184363%_))) + (__foldr1 __tmp192596 '() _%L184469%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L184362%_ + (cons _%L184468%_ '())))))))) - (_%__kont190654190655%_ - (lambda () _%expr184040%_))) - (let* ((_%__match190841190842%_ - (lambda (_%e184170184234%_ - _%hd184171184237%_ - _%tl184172184239%_ - _%e184173184242%_ - _%hd184174184245%_ - _%tl184175184247%_ - _%e184176184250%_ - _%hd184177184253%_ - _%tl184178184255%_ - _%e184179184258%_ - _%hd184180184261%_ - _%tl184181184263%_ - _%e184182184266%_ - _%hd184183184269%_ - _%tl184184184271%_ - _%e184185184274%_ - _%hd184186184277%_ - _%tl184187184279%_ - _%e184188184282%_ - _%hd184189184285%_ - _%tl184190184287%_ - _%e184191184290%_ - _%hd184192184293%_ - _%tl184193184295%_ - _%__splice190650190651%_ - _%target184194184298%_ - _%tl184196184300%_) - (letrec ((_%loop184197184303%_ - (lambda (_%hd184195184306%_ - _%id184201184308%_) + (_%__kont190760190761%_ + (lambda () _%expr184146%_))) + (let* ((_%__match190947190948%_ + (lambda (_%e184276184340%_ + _%hd184277184343%_ + _%tl184278184345%_ + _%e184279184348%_ + _%hd184280184351%_ + _%tl184281184353%_ + _%e184282184356%_ + _%hd184283184359%_ + _%tl184284184361%_ + _%e184285184364%_ + _%hd184286184367%_ + _%tl184287184369%_ + _%e184288184372%_ + _%hd184289184375%_ + _%tl184290184377%_ + _%e184291184380%_ + _%hd184292184383%_ + _%tl184293184385%_ + _%e184294184388%_ + _%hd184295184391%_ + _%tl184296184393%_ + _%e184297184396%_ + _%hd184298184399%_ + _%tl184299184401%_ + _%__splice190756190757%_ + _%target184300184404%_ + _%tl184302184406%_) + (letrec ((_%loop184303184409%_ + (lambda (_%hd184301184412%_ + _%id184307184414%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184195184306%_)) - (let ((_%e184198184311%_ + _%hd184301184412%_)) + (let ((_%e184304184417%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184195184306%_)))) - (let ((_%lp-tl184200184316%_ - (let () (declare (not safe)) (##cdr _%e184198184311%_))) - (_%lp-hd184199184314%_ + (gx#stx-e _%hd184301184412%_)))) + (let ((_%lp-tl184306184422%_ + (let () (declare (not safe)) (##cdr _%e184304184417%_))) + (_%lp-hd184305184420%_ (let () (declare (not safe)) - (##car _%e184198184311%_)))) - (_%loop184197184303%_ - _%lp-tl184200184316%_ - (cons _%lp-hd184199184314%_ _%id184201184308%_)))) - (let ((_%id184202184319%_ (reverse _%id184201184308%_))) + (##car _%e184304184417%_)))) + (_%loop184303184409%_ + _%lp-tl184306184422%_ + (cons _%lp-hd184305184420%_ _%id184307184414%_)))) + (let ((_%id184308184425%_ (reverse _%id184307184414%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184193184295%_)) - (let ((_%e184203184322%_ + (gx#stx-pair? _%tl184299184401%_)) + (let ((_%e184309184428%_ (let () (declare (not safe)) - (gx#stx-e _%tl184193184295%_)))) - (let ((_%tl184205184327%_ + (gx#stx-e _%tl184299184401%_)))) + (let ((_%tl184311184433%_ (let () (declare (not safe)) - (##cdr _%e184203184322%_))) - (_%hd184204184325%_ + (##cdr _%e184309184428%_))) + (_%hd184310184431%_ (let () (declare (not safe)) - (##car _%e184203184322%_)))) + (##car _%e184309184428%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184205184327%_)) + (gx#stx-null? _%tl184311184433%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184187184279%_)) + (gx#stx-null? _%tl184293184385%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl184178184255%_)) - (let ((_%__splice190652190653%_ + (gx#stx-pair/null? _%tl184284184361%_)) + (let ((_%__splice190758190759%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184178184255%_ + _%tl184284184361%_ '0)))) - (let ((_%tl184208184332%_ + (let ((_%tl184314184438%_ (let () (declare (not safe)) (##vector-ref - _%__splice190652190653%_ + _%__splice190758190759%_ '1))) - (_%target184206184330%_ + (_%target184312184436%_ (let () (declare (not safe)) (##vector-ref - _%__splice190652190653%_ + _%__splice190758190759%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184208184332%_)) - (letrec ((_%loop184209184335%_ - (lambda (_%hd184207184338%_ - _%bind184213184340%_) + _%tl184314184438%_)) + (letrec ((_%loop184315184441%_ + (lambda (_%hd184313184444%_ + _%bind184319184446%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184207184338%_)) - (let ((_%e184210184343%_ + _%hd184313184444%_)) + (let ((_%e184316184449%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184207184338%_)))) - (let ((_%lp-tl184212184348%_ + (gx#stx-e _%hd184313184444%_)))) + (let ((_%lp-tl184318184454%_ (let () (declare (not safe)) - (##cdr _%e184210184343%_))) - (_%lp-hd184211184346%_ + (##cdr _%e184316184449%_))) + (_%lp-hd184317184452%_ (let () (declare (not safe)) - (##car _%e184210184343%_)))) - (_%loop184209184335%_ - _%lp-tl184212184348%_ - (cons _%lp-hd184211184346%_ _%bind184213184340%_)))) - (let ((_%bind184214184351%_ - (reverse _%bind184213184340%_))) + (##car _%e184316184449%_)))) + (_%loop184315184441%_ + _%lp-tl184318184454%_ + (cons _%lp-hd184317184452%_ _%bind184319184446%_)))) + (let ((_%bind184320184457%_ + (reverse _%bind184319184446%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184175184247%_)) - (let ((_%e184215184354%_ + (gx#stx-pair? _%tl184281184353%_)) + (let ((_%e184321184460%_ (let () (declare (not safe)) - (gx#stx-e _%tl184175184247%_)))) - (let ((_%tl184217184359%_ + (gx#stx-e _%tl184281184353%_)))) + (let ((_%tl184323184465%_ (let () (declare (not safe)) - (##cdr _%e184215184354%_))) - (_%hd184216184357%_ + (##cdr _%e184321184460%_))) + (_%hd184322184463%_ (let () (declare (not safe)) - (##car _%e184215184354%_)))) + (##car _%e184321184460%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184217184359%_)) - (_%__kont190648190649%_ - _%hd184216184357%_ - _%bind184214184351%_ - _%hd184204184325%_ - _%id184202184319%_ - _%hd184183184269%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_))))))) + (gx#stx-null? _%tl184323184465%_)) + (_%__kont190754190755%_ + _%hd184322184463%_ + _%bind184320184457%_ + _%hd184310184431%_ + _%id184308184425%_ + _%hd184289184375%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184209184335%_ - _%target184206184330%_ + (_%loop184315184441%_ + _%target184312184436%_ '())) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_))))))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184197184303%_ - _%target184194184298%_ + (_%loop184303184409%_ + _%target184300184404%_ '())))) - (_%__match190775190776%_ - (lambda (_%e184136184430%_ - _%hd184137184433%_ - _%tl184138184435%_ - _%e184139184438%_ - _%hd184140184441%_ - _%tl184141184443%_ - _%__splice190646190647%_ - _%target184142184446%_ - _%tl184144184448%_) - (letrec ((_%loop184145184451%_ - (lambda (_%hd184143184454%_ - _%expr184149184456%_ - _%id184150184458%_) + (_%__match190881190882%_ + (lambda (_%e184242184536%_ + _%hd184243184539%_ + _%tl184244184541%_ + _%e184245184544%_ + _%hd184246184547%_ + _%tl184247184549%_ + _%__splice190752190753%_ + _%target184248184552%_ + _%tl184250184554%_) + (letrec ((_%loop184251184557%_ + (lambda (_%hd184249184560%_ + _%expr184255184562%_ + _%id184256184564%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184143184454%_)) - (let ((_%e184146184461%_ + _%hd184249184560%_)) + (let ((_%e184252184567%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184143184454%_)))) - (let ((_%lp-tl184148184466%_ - (let () (declare (not safe)) (##cdr _%e184146184461%_))) - (_%lp-hd184147184464%_ + (gx#stx-e _%hd184249184560%_)))) + (let ((_%lp-tl184254184572%_ + (let () (declare (not safe)) (##cdr _%e184252184567%_))) + (_%lp-hd184253184570%_ (let () (declare (not safe)) - (##car _%e184146184461%_)))) + (##car _%e184252184567%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184147184464%_)) - (let ((_%e184156184469%_ + (gx#stx-pair? _%lp-hd184253184570%_)) + (let ((_%e184262184575%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184147184464%_)))) - (let ((_%tl184158184474%_ + (gx#stx-e _%lp-hd184253184570%_)))) + (let ((_%tl184264184580%_ (let () (declare (not safe)) - (##cdr _%e184156184469%_))) - (_%hd184157184472%_ + (##cdr _%e184262184575%_))) + (_%hd184263184578%_ (let () (declare (not safe)) - (##car _%e184156184469%_)))) + (##car _%e184262184575%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184157184472%_)) - (let ((_%e184159184477%_ + (gx#stx-pair? _%hd184263184578%_)) + (let ((_%e184265184583%_ (let () (declare (not safe)) - (gx#stx-e _%hd184157184472%_)))) - (let ((_%tl184161184482%_ + (gx#stx-e _%hd184263184578%_)))) + (let ((_%tl184267184588%_ (let () (declare (not safe)) - (##cdr _%e184159184477%_))) - (_%hd184160184480%_ + (##cdr _%e184265184583%_))) + (_%hd184266184586%_ (let () (declare (not safe)) - (##car _%e184159184477%_)))) + (##car _%e184265184583%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184161184482%_)) + (gx#stx-null? _%tl184267184588%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184158184474%_)) - (let ((_%e184162184485%_ + (gx#stx-pair? _%tl184264184580%_)) + (let ((_%e184268184591%_ (let () (declare (not safe)) (gx#stx-e - _%tl184158184474%_)))) - (let ((_%tl184164184490%_ + _%tl184264184580%_)))) + (let ((_%tl184270184596%_ (let () (declare (not safe)) - (##cdr _%e184162184485%_))) - (_%hd184163184488%_ + (##cdr _%e184268184591%_))) + (_%hd184269184594%_ (let () (declare (not safe)) - (##car _%e184162184485%_)))) + (##car _%e184268184591%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184164184490%_)) - (_%loop184145184451%_ - _%lp-tl184148184466%_ - (cons _%hd184163184488%_ - _%expr184149184456%_) - (cons _%hd184160184480%_ - _%id184150184458%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (let ((_%id184152184495%_ (reverse _%id184150184458%_)) - (_%expr184151184493%_ (reverse _%expr184149184456%_))) + _%tl184270184596%_)) + (_%loop184251184557%_ + _%lp-tl184254184572%_ + (cons _%hd184269184594%_ + _%expr184255184562%_) + (cons _%hd184266184586%_ + _%id184256184564%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (let ((_%id184258184601%_ (reverse _%id184256184564%_)) + (_%expr184257184599%_ (reverse _%expr184255184562%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184141184443%_)) - (let ((_%e184153184498%_ + (gx#stx-pair? _%tl184247184549%_)) + (let ((_%e184259184604%_ (let () (declare (not safe)) - (gx#stx-e _%tl184141184443%_)))) - (let ((_%tl184155184503%_ + (gx#stx-e _%tl184247184549%_)))) + (let ((_%tl184261184609%_ (let () (declare (not safe)) - (##cdr _%e184153184498%_))) - (_%hd184154184501%_ + (##cdr _%e184259184604%_))) + (_%hd184260184607%_ (let () (declare (not safe)) - (##car _%e184153184498%_)))) + (##car _%e184259184604%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184155184503%_)) - (_%__kont190644190645%_ - _%hd184154184501%_ - _%expr184151184493%_ - _%id184152184495%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_))))))) + (gx#stx-null? _%tl184261184609%_)) + (_%__kont190750190751%_ + _%hd184260184607%_ + _%expr184257184599%_ + _%id184258184601%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184145184451%_ - _%target184142184446%_ + (_%loop184251184557%_ + _%target184248184552%_ '() '())))) - (_%__match190751190752%_ - (lambda (_%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_) - (letrec ((_%loop184107184567%_ - (lambda (_%hd184105184570%_ - _%xid184111184572%_ - _%id184112184574%_) + (_%__match190857190858%_ + (lambda (_%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_) + (letrec ((_%loop184213184673%_ + (lambda (_%hd184211184676%_ + _%xid184217184678%_ + _%id184218184680%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184105184570%_)) - (let ((_%e184108184577%_ + _%hd184211184676%_)) + (let ((_%e184214184683%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184105184570%_)))) - (let ((_%lp-tl184110184582%_ - (let () (declare (not safe)) (##cdr _%e184108184577%_))) - (_%lp-hd184109184580%_ + (gx#stx-e _%hd184211184676%_)))) + (let ((_%lp-tl184216184688%_ + (let () (declare (not safe)) (##cdr _%e184214184683%_))) + (_%lp-hd184215184686%_ (let () (declare (not safe)) - (##car _%e184108184577%_)))) + (##car _%e184214184683%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184109184580%_)) - (let ((_%e184118184585%_ + (gx#stx-pair? _%lp-hd184215184686%_)) + (let ((_%e184224184691%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184109184580%_)))) - (let ((_%tl184120184590%_ + (gx#stx-e _%lp-hd184215184686%_)))) + (let ((_%tl184226184696%_ (let () (declare (not safe)) - (##cdr _%e184118184585%_))) - (_%hd184119184588%_ + (##cdr _%e184224184691%_))) + (_%hd184225184694%_ (let () (declare (not safe)) - (##car _%e184118184585%_)))) + (##car _%e184224184691%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184119184588%_)) - (let ((_%e184121184593%_ + (gx#stx-pair? _%hd184225184694%_)) + (let ((_%e184227184699%_ (let () (declare (not safe)) - (gx#stx-e _%hd184119184588%_)))) - (let ((_%tl184123184598%_ + (gx#stx-e _%hd184225184694%_)))) + (let ((_%tl184229184704%_ (let () (declare (not safe)) - (##cdr _%e184121184593%_))) - (_%hd184122184596%_ + (##cdr _%e184227184699%_))) + (_%hd184228184702%_ (let () (declare (not safe)) - (##car _%e184121184593%_)))) + (##car _%e184227184699%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184123184598%_)) + (gx#stx-null? _%tl184229184704%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184120184590%_)) - (let ((_%e184124184601%_ + (gx#stx-pair? _%tl184226184696%_)) + (let ((_%e184230184707%_ (let () (declare (not safe)) (gx#stx-e - _%tl184120184590%_)))) - (let ((_%tl184126184606%_ + _%tl184226184696%_)))) + (let ((_%tl184232184712%_ (let () (declare (not safe)) - (##cdr _%e184124184601%_))) - (_%hd184125184604%_ + (##cdr _%e184230184707%_))) + (_%hd184231184710%_ (let () (declare (not safe)) - (##car _%e184124184601%_)))) + (##car _%e184230184707%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184125184604%_)) - (let ((_%e184127184609%_ + _%hd184231184710%_)) + (let ((_%e184233184715%_ (let () (declare (not safe)) (gx#stx-e - _%hd184125184604%_)))) - (let ((_%tl184129184614%_ + _%hd184231184710%_)))) + (let ((_%tl184235184720%_ (let () (declare (not safe)) - (##cdr _%e184127184609%_))) - (_%hd184128184612%_ + (##cdr _%e184233184715%_))) + (_%hd184234184718%_ (let () (declare (not safe)) - (##car _%e184127184609%_)))) + (##car _%e184233184715%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184128184612%_)) + _%hd184234184718%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd184128184612%_)) + (gx#stx-eq? '%#ref _%hd184234184718%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184129184614%_)) - (let ((_%e184130184617%_ + (gx#stx-pair? _%tl184235184720%_)) + (let ((_%e184236184723%_ (let () (declare (not safe)) - (gx#stx-e _%tl184129184614%_)))) - (let ((_%tl184132184622%_ + (gx#stx-e _%tl184235184720%_)))) + (let ((_%tl184238184728%_ (let () (declare (not safe)) - (##cdr _%e184130184617%_))) - (_%hd184131184620%_ + (##cdr _%e184236184723%_))) + (_%hd184237184726%_ (let () (declare (not safe)) - (##car _%e184130184617%_)))) + (##car _%e184236184723%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184132184622%_)) + (gx#stx-null? _%tl184238184728%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184126184606%_)) - (_%loop184107184567%_ - _%lp-tl184110184582%_ - (cons _%hd184131184620%_ - _%xid184111184572%_) - (cons _%hd184122184596%_ - _%id184112184574%_)) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) + (gx#stx-null? _%tl184232184712%_)) + (_%loop184213184673%_ + _%lp-tl184216184688%_ + (cons _%hd184237184726%_ + _%xid184217184678%_) + (cons _%hd184228184702%_ + _%id184218184680%_)) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (let ((_%id184114184627%_ (reverse _%id184112184574%_)) - (_%xid184113184625%_ (reverse _%xid184111184572%_))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (let ((_%id184220184733%_ (reverse _%id184218184680%_)) + (_%xid184219184731%_ (reverse _%xid184217184678%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184103184559%_)) - (let ((_%e184115184630%_ + (gx#stx-pair? _%tl184209184665%_)) + (let ((_%e184221184736%_ (let () (declare (not safe)) - (gx#stx-e _%tl184103184559%_)))) - (let ((_%tl184117184635%_ + (gx#stx-e _%tl184209184665%_)))) + (let ((_%tl184223184741%_ (let () (declare (not safe)) - (##cdr _%e184115184630%_))) - (_%hd184116184633%_ + (##cdr _%e184221184736%_))) + (_%hd184222184739%_ (let () (declare (not safe)) - (##car _%e184115184630%_)))) + (##car _%e184221184736%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184117184635%_)) - (_%__kont190640190641%_ - _%hd184116184633%_ - _%xid184113184625%_ - _%id184114184627%_) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_)))) - (_%__match190775190776%_ - _%e184098184546%_ - _%hd184099184549%_ - _%tl184100184551%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_))))))) + (gx#stx-null? _%tl184223184741%_)) + (_%__kont190746190747%_ + _%hd184222184739%_ + _%xid184219184731%_ + _%id184220184733%_) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_)))) + (_%__match190881190882%_ + _%e184204184652%_ + _%hd184205184655%_ + _%tl184206184657%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184107184567%_ - _%target184104184562%_ + (_%loop184213184673%_ + _%target184210184668%_ '() '())))) - (_%__match190697190698%_ - (lambda (_%e184053184738%_ - _%hd184054184741%_ - _%tl184055184743%_ - _%e184056184746%_ - _%hd184057184749%_ - _%tl184058184751%_ - _%e184059184754%_ - _%hd184060184757%_ - _%tl184061184759%_ - _%e184062184762%_ - _%hd184063184765%_ - _%tl184064184767%_ - _%__splice190636190637%_ - _%target184065184770%_ - _%tl184067184772%_) - (letrec ((_%loop184068184775%_ - (lambda (_%hd184066184778%_ - _%id184072184780%_) + (_%__match190803190804%_ + (lambda (_%e184159184844%_ + _%hd184160184847%_ + _%tl184161184849%_ + _%e184162184852%_ + _%hd184163184855%_ + _%tl184164184857%_ + _%e184165184860%_ + _%hd184166184863%_ + _%tl184167184865%_ + _%e184168184868%_ + _%hd184169184871%_ + _%tl184170184873%_ + _%__splice190742190743%_ + _%target184171184876%_ + _%tl184173184878%_) + (letrec ((_%loop184174184881%_ + (lambda (_%hd184172184884%_ + _%id184178184886%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184066184778%_)) - (let ((_%e184069184783%_ + _%hd184172184884%_)) + (let ((_%e184175184889%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd184066184778%_)))) - (let ((_%lp-tl184071184788%_ - (let () (declare (not safe)) (##cdr _%e184069184783%_))) - (_%lp-hd184070184786%_ + (gx#stx-e _%hd184172184884%_)))) + (let ((_%lp-tl184177184894%_ + (let () (declare (not safe)) (##cdr _%e184175184889%_))) + (_%lp-hd184176184892%_ (let () (declare (not safe)) - (##car _%e184069184783%_)))) + (##car _%e184175184889%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd184070184786%_)) - (let ((_%e184074184791%_ + (gx#stx-pair? _%lp-hd184176184892%_)) + (let ((_%e184180184897%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd184070184786%_)))) - (let ((_%tl184076184796%_ + (gx#stx-e _%lp-hd184176184892%_)))) + (let ((_%tl184182184902%_ (let () (declare (not safe)) - (##cdr _%e184074184791%_))) - (_%hd184075184794%_ + (##cdr _%e184180184897%_))) + (_%hd184181184900%_ (let () (declare (not safe)) - (##car _%e184074184791%_)))) + (##car _%e184180184897%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184075184794%_)) + (gx#identifier? _%hd184181184900%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184075184794%_)) + (gx#stx-eq? '%#ref _%hd184181184900%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184076184796%_)) - (let ((_%e184077184799%_ + (gx#stx-pair? _%tl184182184902%_)) + (let ((_%e184183184905%_ (let () (declare (not safe)) - (gx#stx-e _%tl184076184796%_)))) - (let ((_%tl184079184804%_ + (gx#stx-e _%tl184182184902%_)))) + (let ((_%tl184185184910%_ (let () (declare (not safe)) - (##cdr _%e184077184799%_))) - (_%hd184078184802%_ + (##cdr _%e184183184905%_))) + (_%hd184184184908%_ (let () (declare (not safe)) - (##car _%e184077184799%_)))) + (##car _%e184183184905%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184079184804%_)) - (_%loop184068184775%_ - _%lp-tl184071184788%_ - (cons _%hd184078184802%_ - _%id184072184780%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (let ((_%id184073184807%_ (reverse _%id184072184780%_))) - (_%__kont190634190635%_ - _%id184073184807%_ - _%hd184063184765%_)))))) + _%tl184185184910%_)) + (_%loop184174184881%_ + _%lp-tl184177184894%_ + (cons _%hd184184184908%_ + _%id184178184886%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (let ((_%id184179184913%_ (reverse _%id184178184886%_))) + (_%__kont190740190741%_ + _%id184179184913%_ + _%hd184169184871%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop184068184775%_ - _%target184065184770%_ + (_%loop184174184881%_ + _%target184171184876%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190632190633%_)) - (let ((_%e184053184738%_ + (gx#stx-pair? _%__stx190738190739%_)) + (let ((_%e184159184844%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190632190633%_)))) - (let ((_%tl184055184743%_ + (gx#stx-e _%__stx190738190739%_)))) + (let ((_%tl184161184849%_ (let () (declare (not safe)) - (##cdr _%e184053184738%_))) - (_%hd184054184741%_ + (##cdr _%e184159184844%_))) + (_%hd184160184847%_ (let () (declare (not safe)) - (##car _%e184053184738%_)))) + (##car _%e184159184844%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd184054184741%_)) + _%hd184160184847%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd184054184741%_)) + _%hd184160184847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184055184743%_)) - (let ((_%e184056184746%_ + _%tl184161184849%_)) + (let ((_%e184162184852%_ (let () (declare (not safe)) (gx#stx-e - _%tl184055184743%_)))) - (let ((_%tl184058184751%_ + _%tl184161184849%_)))) + (let ((_%tl184164184857%_ (let () (declare (not safe)) - (##cdr _%e184056184746%_))) - (_%hd184057184749%_ + (##cdr _%e184162184852%_))) + (_%hd184163184855%_ (let () (declare (not safe)) - (##car _%e184056184746%_)))) + (##car _%e184162184852%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184057184749%_)) - (let ((_%e184059184754%_ + _%hd184163184855%_)) + (let ((_%e184165184860%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd184057184749%_)))) - (let ((_%tl184061184759%_ + (gx#stx-e _%hd184163184855%_)))) + (let ((_%tl184167184865%_ (let () (declare (not safe)) - (##cdr _%e184059184754%_))) - (_%hd184060184757%_ + (##cdr _%e184165184860%_))) + (_%hd184166184863%_ (let () (declare (not safe)) - (##car _%e184059184754%_)))) + (##car _%e184165184860%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184060184757%_)) + (gx#identifier? _%hd184166184863%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd184060184757%_)) + (gx#stx-eq? '%#ref _%hd184166184863%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184061184759%_)) - (let ((_%e184062184762%_ + (gx#stx-pair? _%tl184167184865%_)) + (let ((_%e184168184868%_ (let () (declare (not safe)) - (gx#stx-e _%tl184061184759%_)))) - (let ((_%tl184064184767%_ + (gx#stx-e _%tl184167184865%_)))) + (let ((_%tl184170184873%_ (let () (declare (not safe)) - (##cdr _%e184062184762%_))) - (_%hd184063184765%_ + (##cdr _%e184168184868%_))) + (_%hd184169184871%_ (let () (declare (not safe)) - (##car _%e184062184762%_)))) + (##car _%e184168184868%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184064184767%_)) + (gx#stx-null? _%tl184170184873%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl184058184751%_)) - (let ((_%__splice190636190637%_ + _%tl184164184857%_)) + (let ((_%__splice190742190743%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl184058184751%_ + _%tl184164184857%_ '0)))) - (let ((_%tl184067184772%_ + (let ((_%tl184173184878%_ (let () (declare (not safe)) (##vector-ref - _%__splice190636190637%_ + _%__splice190742190743%_ '1))) - (_%target184065184770%_ + (_%target184171184876%_ (let () (declare (not safe)) (##vector-ref - _%__splice190636190637%_ + _%__splice190742190743%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184067184772%_)) - (_%__match190697190698%_ - _%e184053184738%_ - _%hd184054184741%_ - _%tl184055184743%_ - _%e184056184746%_ - _%hd184057184749%_ - _%tl184058184751%_ - _%e184059184754%_ - _%hd184060184757%_ - _%tl184061184759%_ - _%e184062184762%_ - _%hd184063184765%_ - _%tl184064184767%_ - _%__splice190636190637%_ - _%target184065184770%_ - _%tl184067184772%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) + _%tl184173184878%_)) + (_%__match190803190804%_ + _%e184159184844%_ + _%hd184160184847%_ + _%tl184161184849%_ + _%e184162184852%_ + _%hd184163184855%_ + _%tl184164184857%_ + _%e184165184860%_ + _%hd184166184863%_ + _%tl184167184865%_ + _%e184168184868%_ + _%hd184169184871%_ + _%tl184170184873%_ + _%__splice190742190743%_ + _%target184171184876%_ + _%tl184173184878%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190654190655%_)) + (_%__kont190760190761%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd184054184741%_)) + _%hd184160184847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184055184743%_)) - (let ((_%e184086184684%_ + _%tl184161184849%_)) + (let ((_%e184192184790%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl184055184743%_)))) - (let ((_%tl184088184689%_ - (let () (declare (not safe)) (##cdr _%e184086184684%_))) - (_%hd184087184687%_ + (gx#stx-e _%tl184161184849%_)))) + (let ((_%tl184194184795%_ + (let () (declare (not safe)) (##cdr _%e184192184790%_))) + (_%hd184193184793%_ (let () (declare (not safe)) - (##car _%e184086184684%_)))) + (##car _%e184192184790%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184088184689%_)) - (let ((_%e184089184692%_ + (gx#stx-pair? _%tl184194184795%_)) + (let ((_%e184195184798%_ (let () (declare (not safe)) - (gx#stx-e _%tl184088184689%_)))) - (let ((_%tl184091184697%_ + (gx#stx-e _%tl184194184795%_)))) + (let ((_%tl184197184803%_ (let () (declare (not safe)) - (##cdr _%e184089184692%_))) - (_%hd184090184695%_ + (##cdr _%e184195184798%_))) + (_%hd184196184801%_ (let () (declare (not safe)) - (##car _%e184089184692%_)))) + (##car _%e184195184798%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184091184697%_)) - (let ((_%e184092184700%_ + (gx#stx-pair? _%tl184197184803%_)) + (let ((_%e184198184806%_ (let () (declare (not safe)) - (gx#stx-e _%tl184091184697%_)))) - (let ((_%tl184094184705%_ + (gx#stx-e _%tl184197184803%_)))) + (let ((_%tl184200184811%_ (let () (declare (not safe)) - (##cdr _%e184092184700%_))) - (_%hd184093184703%_ + (##cdr _%e184198184806%_))) + (_%hd184199184809%_ (let () (declare (not safe)) - (##car _%e184092184700%_)))) + (##car _%e184198184806%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184094184705%_)) - (_%__kont190638190639%_ - _%hd184093184703%_ - _%hd184090184695%_ - _%hd184087184687%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) + (gx#stx-null? _%tl184200184811%_)) + (_%__kont190744190745%_ + _%hd184199184809%_ + _%hd184196184801%_ + _%hd184193184793%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd184054184741%_)) + _%hd184160184847%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184055184743%_)) - (let ((_%e184101184554%_ + _%tl184161184849%_)) + (let ((_%e184207184660%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184055184743%_)))) - (let ((_%tl184103184559%_ + (gx#stx-e _%tl184161184849%_)))) + (let ((_%tl184209184665%_ (let () (declare (not safe)) - (##cdr _%e184101184554%_))) - (_%hd184102184557%_ + (##cdr _%e184207184660%_))) + (_%hd184208184663%_ (let () (declare (not safe)) - (##car _%e184101184554%_)))) + (##car _%e184207184660%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd184102184557%_)) - (let ((_%__splice190642190643%_ + (gx#stx-pair/null? _%hd184208184663%_)) + (let ((_%__splice190748190749%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184102184557%_ + _%hd184208184663%_ '0)))) - (let ((_%tl184106184564%_ + (let ((_%tl184212184670%_ (let () (declare (not safe)) (##vector-ref - _%__splice190642190643%_ + _%__splice190748190749%_ '1))) - (_%target184104184562%_ + (_%target184210184668%_ (let () (declare (not safe)) (##vector-ref - _%__splice190642190643%_ + _%__splice190748190749%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl184106184564%_)) - (_%__match190751190752%_ - _%e184053184738%_ - _%hd184054184741%_ - _%tl184055184743%_ - _%e184101184554%_ - _%hd184102184557%_ - _%tl184103184559%_ - _%__splice190642190643%_ - _%target184104184562%_ - _%tl184106184564%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) + (gx#stx-null? _%tl184212184670%_)) + (_%__match190857190858%_ + _%e184159184844%_ + _%hd184160184847%_ + _%tl184161184849%_ + _%e184207184660%_ + _%hd184208184663%_ + _%tl184209184665%_ + _%__splice190748190749%_ + _%target184210184668%_ + _%tl184212184670%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#letrec-values _%hd184054184741%_)) + (gx#stx-eq? '%#letrec-values _%hd184160184847%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184055184743%_)) - (let ((_%e184173184242%_ + (gx#stx-pair? _%tl184161184849%_)) + (let ((_%e184279184348%_ (let () (declare (not safe)) - (gx#stx-e _%tl184055184743%_)))) - (let ((_%tl184175184247%_ + (gx#stx-e _%tl184161184849%_)))) + (let ((_%tl184281184353%_ (let () (declare (not safe)) - (##cdr _%e184173184242%_))) - (_%hd184174184245%_ + (##cdr _%e184279184348%_))) + (_%hd184280184351%_ (let () (declare (not safe)) - (##car _%e184173184242%_)))) + (##car _%e184279184348%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184174184245%_)) - (let ((_%e184176184250%_ + (gx#stx-pair? _%hd184280184351%_)) + (let ((_%e184282184356%_ (let () (declare (not safe)) - (gx#stx-e _%hd184174184245%_)))) - (let ((_%tl184178184255%_ + (gx#stx-e _%hd184280184351%_)))) + (let ((_%tl184284184361%_ (let () (declare (not safe)) - (##cdr _%e184176184250%_))) - (_%hd184177184253%_ + (##cdr _%e184282184356%_))) + (_%hd184283184359%_ (let () (declare (not safe)) - (##car _%e184176184250%_)))) + (##car _%e184282184356%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184177184253%_)) - (let ((_%e184179184258%_ + (gx#stx-pair? _%hd184283184359%_)) + (let ((_%e184285184364%_ (let () (declare (not safe)) - (gx#stx-e _%hd184177184253%_)))) - (let ((_%tl184181184263%_ + (gx#stx-e _%hd184283184359%_)))) + (let ((_%tl184287184369%_ (let () (declare (not safe)) - (##cdr _%e184179184258%_))) - (_%hd184180184261%_ + (##cdr _%e184285184364%_))) + (_%hd184286184367%_ (let () (declare (not safe)) - (##car _%e184179184258%_)))) + (##car _%e184285184364%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd184180184261%_)) - (let ((_%e184182184266%_ + _%hd184286184367%_)) + (let ((_%e184288184372%_ (let () (declare (not safe)) (gx#stx-e - _%hd184180184261%_)))) - (let ((_%tl184184184271%_ + _%hd184286184367%_)))) + (let ((_%tl184290184377%_ (let () (declare (not safe)) - (##cdr _%e184182184266%_))) - (_%hd184183184269%_ + (##cdr _%e184288184372%_))) + (_%hd184289184375%_ (let () (declare (not safe)) - (##car _%e184182184266%_)))) + (##car _%e184288184372%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184184184271%_)) + _%tl184290184377%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl184181184263%_)) - (let ((_%e184185184274%_ + _%tl184287184369%_)) + (let ((_%e184291184380%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl184181184263%_)))) - (let ((_%tl184187184279%_ + (gx#stx-e _%tl184287184369%_)))) + (let ((_%tl184293184385%_ (let () (declare (not safe)) - (##cdr _%e184185184274%_))) - (_%hd184186184277%_ + (##cdr _%e184291184380%_))) + (_%hd184292184383%_ (let () (declare (not safe)) - (##car _%e184185184274%_)))) + (##car _%e184291184380%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd184186184277%_)) - (let ((_%e184188184282%_ + (gx#stx-pair? _%hd184292184383%_)) + (let ((_%e184294184388%_ (let () (declare (not safe)) - (gx#stx-e _%hd184186184277%_)))) - (let ((_%tl184190184287%_ + (gx#stx-e _%hd184292184383%_)))) + (let ((_%tl184296184393%_ (let () (declare (not safe)) - (##cdr _%e184188184282%_))) - (_%hd184189184285%_ + (##cdr _%e184294184388%_))) + (_%hd184295184391%_ (let () (declare (not safe)) - (##car _%e184188184282%_)))) + (##car _%e184294184388%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd184189184285%_)) + (gx#identifier? _%hd184295184391%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd184189184285%_)) + _%hd184295184391%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl184190184287%_)) - (let ((_%e184191184290%_ + (gx#stx-pair? _%tl184296184393%_)) + (let ((_%e184297184396%_ (let () (declare (not safe)) (gx#stx-e - _%tl184190184287%_)))) - (let ((_%tl184193184295%_ + _%tl184296184393%_)))) + (let ((_%tl184299184401%_ (let () (declare (not safe)) - (##cdr _%e184191184290%_))) - (_%hd184192184293%_ + (##cdr _%e184297184396%_))) + (_%hd184298184399%_ (let () (declare (not safe)) - (##car _%e184191184290%_)))) + (##car _%e184297184396%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd184192184293%_)) - (let ((_%__splice190650190651%_ + _%hd184298184399%_)) + (let ((_%__splice190756190757%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd184192184293%_ + _%hd184298184399%_ '0)))) - (let ((_%tl184196184300%_ + (let ((_%tl184302184406%_ (let () (declare (not safe)) (##vector-ref - _%__splice190650190651%_ + _%__splice190756190757%_ '1))) - (_%target184194184298%_ + (_%target184300184404%_ (let () (declare (not safe)) (##vector-ref - _%__splice190650190651%_ + _%__splice190756190757%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl184196184300%_)) - (_%__match190841190842%_ - _%e184053184738%_ - _%hd184054184741%_ - _%tl184055184743%_ - _%e184173184242%_ - _%hd184174184245%_ - _%tl184175184247%_ - _%e184176184250%_ - _%hd184177184253%_ - _%tl184178184255%_ - _%e184179184258%_ - _%hd184180184261%_ - _%tl184181184263%_ - _%e184182184266%_ - _%hd184183184269%_ - _%tl184184184271%_ - _%e184185184274%_ - _%hd184186184277%_ - _%tl184187184279%_ - _%e184188184282%_ - _%hd184189184285%_ - _%tl184190184287%_ - _%e184191184290%_ - _%hd184192184293%_ - _%tl184193184295%_ - _%__splice190650190651%_ - _%target184194184298%_ - _%tl184196184300%_) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_)))) + _%tl184302184406%_)) + (_%__match190947190948%_ + _%e184159184844%_ + _%hd184160184847%_ + _%tl184161184849%_ + _%e184279184348%_ + _%hd184280184351%_ + _%tl184281184353%_ + _%e184282184356%_ + _%hd184283184359%_ + _%tl184284184361%_ + _%e184285184364%_ + _%hd184286184367%_ + _%tl184287184369%_ + _%e184288184372%_ + _%hd184289184375%_ + _%tl184290184377%_ + _%e184291184380%_ + _%hd184292184383%_ + _%tl184293184385%_ + _%e184294184388%_ + _%hd184295184391%_ + _%tl184296184393%_ + _%e184297184396%_ + _%hd184298184399%_ + _%tl184299184401%_ + _%__splice190756190757%_ + _%target184300184404%_ + _%tl184302184406%_) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)))) - (_%__kont190654190655%_)) - (_%__kont190654190655%_))))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)))) + (_%__kont190760190761%_)) + (_%__kont190760190761%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190654190655%_)))) - (_%__kont190654190655%_))))))))) - (_%optimize-f__0__189333189334%_ - (lambda (_%expr184948%_) - (let ((_%test184950%_ '#f)) - (_%optimize-f__189331189332%_ - _%expr184948%_ - _%test184950%_)))) - (_%optimize-f181976%_ - (lambda _g192492_ - (let ((_g192491_ + (_%__kont190760190761%_)))) + (_%__kont190760190761%_))))))))) + (_%optimize-f__0__189439189440%_ + (lambda (_%expr185054%_) + (let ((_%test185056%_ '#f)) + (_%optimize-f__189437189438%_ + _%expr185054%_ + _%test185056%_)))) + (_%optimize-f182082%_ + (lambda _g192598_ + (let ((_g192597_ (let () (declare (not safe)) - (##length _g192492_)))) - (cond ((let () (declare (not safe)) (##fx= _g192491_ 1)) - (apply _%optimize-f__0__189333189334%_ - _g192492_)) - ((let () (declare (not safe)) (##fx= _g192491_ 2)) - (apply _%optimize-f__189331189332%_ _g192492_)) + (##length _g192598_)))) + (cond ((let () (declare (not safe)) (##fx= _g192597_ 1)) + (apply _%optimize-f__0__189439189440%_ + _g192598_)) + ((let () (declare (not safe)) (##fx= _g192597_ 2)) + (apply _%optimize-f__189437189438%_ _g192598_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192492_)))))) - (_%assert-e181977%_ - (lambda (_%expr182977%_) - (let* ((_%sexpr182979%_ - (gxc#apply-generate-runtime-repr _%expr182977%_)) - (_%$e182981%_ - (assoc _%sexpr182979%_ _%env-assert181959%_))) - (if _%$e182981%_ - (cdr _%$e182981%_) - (let _%assert182985%_ ((_%expr182987%_ - _%expr182977%_)) - (let* ((_%__stx190938190939%_ _%expr182987%_) - (_%g182995183174%_ + _g192598_)))))) + (_%assert-e182083%_ + (lambda (_%expr183083%_) + (let* ((_%sexpr183085%_ + (gxc#apply-generate-runtime-repr _%expr183083%_)) + (_%$e183087%_ + (assoc _%sexpr183085%_ _%env-assert182065%_))) + (if _%$e183087%_ + (cdr _%$e183087%_) + (let _%assert183091%_ ((_%expr183093%_ + _%expr183083%_)) + (let* ((_%__stx191044191045%_ _%expr183093%_) + (_%g183101183280%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190938190939%_))))) - (let ((_%__kont190940190941%_ - (lambda (_%L184007%_ _%L184008%_) - (let ((_%$e184030%_ - (_%predicate-type181964%_ - _%L184008%_))) - (if _%$e184030%_ - ((lambda (_%t184033%_) - (_%assert-type181978%_ - _%L184007%_ - _%t184033%_)) - _%$e184030%_) + _%__stx191044191045%_))))) + (let ((_%__kont191046191047%_ + (lambda (_%L184113%_ _%L184114%_) + (let ((_%$e184136%_ + (_%predicate-type182070%_ + _%L184114%_))) + (if _%$e184136%_ + ((lambda (_%t184139%_) + (_%assert-type182084%_ + _%L184113%_ + _%t184139%_)) + _%$e184136%_) '#!void)))) - (_%__kont190942190943%_ - (lambda (_%L183699%_ - _%L183700%_ - _%L183701%_) - (let ((_%$e183726%_ + (_%__kont191048191049%_ + (lambda (_%L183805%_ + _%L183806%_ + _%L183807%_) + (let ((_%$e183832%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183701%_)))) - (if (or (eq? '##fx= _%$e183726%_) - (eq? 'fx= _%$e183726%_)) - (let* ((_%__stx190844190845%_ - _%L183700%_) - (_%g183733183762%_ + _%L183807%_)))) + (if (or (eq? '##fx= _%$e183832%_) + (eq? 'fx= _%$e183832%_)) + (let* ((_%__stx190950190951%_ + _%L183806%_) + (_%g183839183868%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190844190845%_))))) - (let ((_%__kont190846190847%_ - (lambda (_%L183830%_ - _%L183831%_) - (let ((_%$e183856%_ - (_%countf-symbol181966%_ + _%__stx190950190951%_))))) + (let ((_%__kont190952190953%_ + (lambda (_%L183936%_ + _%L183937%_) + (let ((_%$e183962%_ + (_%countf-symbol182072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L183831%_))) - (if _%$e183856%_ - ((lambda (_%sym183859%_) - (_%assert-count181979%_ - _%L183830%_ - _%sym183859%_ + _%L183937%_))) + (if _%$e183962%_ + ((lambda (_%sym183965%_) + (_%assert-count182085%_ + _%L183936%_ + _%sym183965%_ (let () (declare (not safe)) - (gx#stx-e _%L183699%_)))) - _%$e183856%_) + (gx#stx-e _%L183805%_)))) + _%$e183962%_) '#!void)))) - (_%__kont190848190849%_ (lambda () '#!void))) + (_%__kont190954190955%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx190844190845%_)) - (let ((_%e183737183774%_ + _%__stx190950190951%_)) + (let ((_%e183843183880%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx190844190845%_)))) - (let ((_%tl183739183779%_ - (let () (declare (not safe)) (##cdr _%e183737183774%_))) - (_%hd183738183777%_ + (gx#stx-e _%__stx190950190951%_)))) + (let ((_%tl183845183885%_ + (let () (declare (not safe)) (##cdr _%e183843183880%_))) + (_%hd183844183883%_ (let () (declare (not safe)) - (##car _%e183737183774%_)))) + (##car _%e183843183880%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183738183777%_)) + (gx#identifier? _%hd183844183883%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd183738183777%_)) + (gx#stx-eq? '%#call _%hd183844183883%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183739183779%_)) - (let ((_%e183740183782%_ + (gx#stx-pair? _%tl183845183885%_)) + (let ((_%e183846183888%_ (let () (declare (not safe)) - (gx#stx-e _%tl183739183779%_)))) - (let ((_%tl183742183787%_ + (gx#stx-e _%tl183845183885%_)))) + (let ((_%tl183848183893%_ (let () (declare (not safe)) - (##cdr _%e183740183782%_))) - (_%hd183741183785%_ + (##cdr _%e183846183888%_))) + (_%hd183847183891%_ (let () (declare (not safe)) - (##car _%e183740183782%_)))) + (##car _%e183846183888%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183741183785%_)) - (let ((_%e183743183790%_ + (gx#stx-pair? _%hd183847183891%_)) + (let ((_%e183849183896%_ (let () (declare (not safe)) - (gx#stx-e _%hd183741183785%_)))) - (let ((_%tl183745183795%_ + (gx#stx-e _%hd183847183891%_)))) + (let ((_%tl183851183901%_ (let () (declare (not safe)) - (##cdr _%e183743183790%_))) - (_%hd183744183793%_ + (##cdr _%e183849183896%_))) + (_%hd183850183899%_ (let () (declare (not safe)) - (##car _%e183743183790%_)))) + (##car _%e183849183896%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183744183793%_)) + _%hd183850183899%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183744183793%_)) + _%hd183850183899%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183745183795%_)) - (let ((_%e183746183798%_ + _%tl183851183901%_)) + (let ((_%e183852183904%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl183745183795%_)))) - (let ((_%tl183748183803%_ - (let () (declare (not safe)) (##cdr _%e183746183798%_))) - (_%hd183747183801%_ + (gx#stx-e _%tl183851183901%_)))) + (let ((_%tl183854183909%_ + (let () (declare (not safe)) (##cdr _%e183852183904%_))) + (_%hd183853183907%_ (let () (declare (not safe)) - (##car _%e183746183798%_)))) + (##car _%e183852183904%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183748183803%_)) + (gx#stx-null? _%tl183854183909%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183742183787%_)) - (let ((_%e183749183806%_ + (gx#stx-pair? _%tl183848183893%_)) + (let ((_%e183855183912%_ (let () (declare (not safe)) - (gx#stx-e _%tl183742183787%_)))) - (let ((_%tl183751183811%_ + (gx#stx-e _%tl183848183893%_)))) + (let ((_%tl183857183917%_ (let () (declare (not safe)) - (##cdr _%e183749183806%_))) - (_%hd183750183809%_ + (##cdr _%e183855183912%_))) + (_%hd183856183915%_ (let () (declare (not safe)) - (##car _%e183749183806%_)))) + (##car _%e183855183912%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183750183809%_)) - (let ((_%e183752183814%_ + (gx#stx-pair? _%hd183856183915%_)) + (let ((_%e183858183920%_ (let () (declare (not safe)) - (gx#stx-e _%hd183750183809%_)))) - (let ((_%tl183754183819%_ + (gx#stx-e _%hd183856183915%_)))) + (let ((_%tl183860183925%_ (let () (declare (not safe)) - (##cdr _%e183752183814%_))) - (_%hd183753183817%_ + (##cdr _%e183858183920%_))) + (_%hd183859183923%_ (let () (declare (not safe)) - (##car _%e183752183814%_)))) + (##car _%e183858183920%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183753183817%_)) + _%hd183859183923%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183753183817%_)) + _%hd183859183923%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183754183819%_)) - (let ((_%e183755183822%_ + _%tl183860183925%_)) + (let ((_%e183861183928%_ (let () (declare (not safe)) (gx#stx-e - _%tl183754183819%_)))) - (let ((_%tl183757183827%_ + _%tl183860183925%_)))) + (let ((_%tl183863183933%_ (let () (declare (not safe)) - (##cdr _%e183755183822%_))) - (_%hd183756183825%_ + (##cdr _%e183861183928%_))) + (_%hd183862183931%_ (let () (declare (not safe)) - (##car _%e183755183822%_)))) + (##car _%e183861183928%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183757183827%_)) + _%tl183863183933%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183751183811%_)) - (_%__kont190846190847%_ - _%hd183756183825%_ - _%hd183747183801%_) - (_%__kont190848190849%_)) - (_%__kont190848190849%_)))) + (gx#stx-null? _%tl183857183917%_)) + (_%__kont190952190953%_ + _%hd183862183931%_ + _%hd183853183907%_) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190848190849%_)) - (_%__kont190848190849%_)) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190848190849%_)) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)) - (_%__kont190848190849%_)) - (_%__kont190848190849%_)))) - (_%__kont190848190849%_)))) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)) + (_%__kont190954190955%_)))) + (_%__kont190954190955%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (or (eq? '##eq? _%$e183726%_) - (eq? 'eq? _%$e183726%_) + (if (or (eq? '##eq? _%$e183832%_) + (eq? 'eq? _%$e183832%_) (eq? '##eqv? - _%$e183726%_) - (eq? 'eqv? _%$e183726%_) + _%$e183832%_) + (eq? 'eqv? _%$e183832%_) (eq? '##equal? - _%$e183726%_) + _%$e183832%_) (eq? 'equal? - _%$e183726%_) + _%$e183832%_) (eq? 'gx#free-identifier=? - _%$e183726%_) + _%$e183832%_) (eq? 'gx#stx-eq? - _%$e183726%_)) - ((lambda (_%sym183886%_) - (let* ((_%__stx190912190913%_ - _%L183700%_) - (_%g183889183902%_ + _%$e183832%_)) + ((lambda (_%sym183992%_) + (let* ((_%__stx191018191019%_ + _%L183806%_) + (_%g183995184008%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -8645,71 +8645,71 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx190912190913%_))))) - (let ((_%__kont190914190915%_ - (lambda (_%L183930%_) - (_%assert-eqf181980%_ - _%L183930%_ - (_%eqf-symbol181967%_ _%sym183886%_) + _%__stx191018191019%_))))) + (let ((_%__kont191020191021%_ + (lambda (_%L184036%_) + (_%assert-eqf182086%_ + _%L184036%_ + (_%eqf-symbol182073%_ _%sym183992%_) (let () (declare (not safe)) - (gx#stx-e _%L183699%_))))) - (_%__kont190916190917%_ (lambda () '#!void))) + (gx#stx-e _%L183805%_))))) + (_%__kont191022191023%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190912190913%_)) - (let ((_%e183892183914%_ + (gx#stx-pair? _%__stx191018191019%_)) + (let ((_%e183998184020%_ (let () (declare (not safe)) - (gx#stx-e _%__stx190912190913%_)))) - (let ((_%tl183894183919%_ + (gx#stx-e _%__stx191018191019%_)))) + (let ((_%tl184000184025%_ (let () (declare (not safe)) - (##cdr _%e183892183914%_))) - (_%hd183893183917%_ + (##cdr _%e183998184020%_))) + (_%hd183999184023%_ (let () (declare (not safe)) - (##car _%e183892183914%_)))) + (##car _%e183998184020%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183893183917%_)) + (gx#identifier? _%hd183999184023%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183893183917%_)) + (gx#stx-eq? '%#ref _%hd183999184023%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183894183919%_)) - (let ((_%e183895183922%_ + (gx#stx-pair? _%tl184000184025%_)) + (let ((_%e184001184028%_ (let () (declare (not safe)) - (gx#stx-e _%tl183894183919%_)))) - (let ((_%tl183897183927%_ + (gx#stx-e _%tl184000184025%_)))) + (let ((_%tl184003184033%_ (let () (declare (not safe)) - (##cdr _%e183895183922%_))) - (_%hd183896183925%_ + (##cdr _%e184001184028%_))) + (_%hd184002184031%_ (let () (declare (not safe)) - (##car _%e183895183922%_)))) + (##car _%e184001184028%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183897183927%_)) - (_%__kont190914190915%_ - _%hd183896183925%_) - (_%__kont190916190917%_)))) - (_%__kont190916190917%_)) - (_%__kont190916190917%_)) - (_%__kont190916190917%_)))) - (_%__kont190916190917%_))))) + _%tl184003184033%_)) + (_%__kont191020191021%_ + _%hd184002184031%_) + (_%__kont191022191023%_)))) + (_%__kont191022191023%_)) + (_%__kont191022191023%_)) + (_%__kont191022191023%_)))) + (_%__kont191022191023%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e183726%_) + _%$e183832%_) '#!void))))) - (_%__kont190944190945%_ - (lambda (_%L183603%_ - _%L183604%_ - _%L183605%_) - (_%assert182985%_ + (_%__kont191050191051%_ + (lambda (_%L183709%_ + _%L183710%_ + _%L183711%_) + (_%assert183091%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8721,44 +8721,44 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183605%_ + (cons _%L183711%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L183603%_ + (cons _%L183709%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote)) - (cons _%L183604%_ '())) + (cons _%L183710%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190946190947%_ - (lambda (_%L183495%_ - _%L183496%_ - _%L183497%_) - (let ((_%$e183526%_ + (_%__kont191052191053%_ + (lambda (_%L183601%_ + _%L183602%_ + _%L183603%_) + (let ((_%$e183632%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L183497%_)))) + _%L183603%_)))) (if (or (eq? 'gx#free-identifier=? - _%$e183526%_) + _%$e183632%_) (eq? 'gx#stx-eq? - _%$e183526%_)) - ((lambda (_%sym183532%_) - (_%assert-eqf181980%_ - _%L183496%_ - (_%eqf-symbol181967%_ - _%sym183532%_) - _%L183495%_)) - _%$e183526%_) + _%$e183632%_)) + ((lambda (_%sym183638%_) + (_%assert-eqf182086%_ + _%L183602%_ + (_%eqf-symbol182073%_ + _%sym183638%_) + _%L183601%_)) + _%$e183632%_) '#!void)))) - (_%__kont190948190949%_ - (lambda (_%L183379%_ - _%L183380%_ - _%L183381%_) - (_%assert182985%_ + (_%__kont191054191055%_ + (lambda (_%L183485%_ + _%L183486%_ + _%L183487%_) + (_%assert183091%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -8770,7 +8770,7 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183381%_ + (cons _%L183487%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -8778,4368 +8778,4368 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L183379%_ '())) + (cons _%L183485%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#quote-syntax)) - (cons _%L183380%_ '())) + (cons _%L183486%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190950190951%_ - (lambda (_%L183258%_ - _%L183259%_ - _%L183260%_) - (_%assert182985%_ + (_%__kont191056191057%_ + (lambda (_%L183364%_ + _%L183365%_ + _%L183366%_) + (_%assert183091%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L183260%_ - _%L183258%_ - _%L183259%_))))) - (_%__kont190952190953%_ + _%L183366%_ + _%L183364%_ + _%L183365%_))))) + (_%__kont191058191059%_ (lambda () '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx190938190939%_)) - (let ((_%e182999183951%_ + (gx#stx-pair? _%__stx191044191045%_)) + (let ((_%e183105184057%_ (let () (declare (not safe)) (gx#stx-e - _%__stx190938190939%_)))) - (let ((_%tl183001183956%_ + _%__stx191044191045%_)))) + (let ((_%tl183107184062%_ (let () (declare (not safe)) - (##cdr _%e182999183951%_))) - (_%hd183000183954%_ + (##cdr _%e183105184057%_))) + (_%hd183106184060%_ (let () (declare (not safe)) - (##car _%e182999183951%_)))) + (##car _%e183105184057%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183000183954%_)) + _%hd183106184060%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd183000183954%_)) + _%hd183106184060%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183001183956%_)) - (let ((_%e183002183959%_ + _%tl183107184062%_)) + (let ((_%e183108184065%_ (let () (declare (not safe)) (gx#stx-e - _%tl183001183956%_)))) - (let ((_%tl183004183964%_ + _%tl183107184062%_)))) + (let ((_%tl183110184070%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183002183959%_))) - (_%hd183003183962%_ - (let () (declare (not safe)) (##car _%e183002183959%_)))) + (##cdr _%e183108184065%_))) + (_%hd183109184068%_ + (let () (declare (not safe)) (##car _%e183108184065%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183003183962%_)) - (let ((_%e183005183967%_ + (gx#stx-pair? _%hd183109184068%_)) + (let ((_%e183111184073%_ (let () (declare (not safe)) - (gx#stx-e _%hd183003183962%_)))) - (let ((_%tl183007183972%_ + (gx#stx-e _%hd183109184068%_)))) + (let ((_%tl183113184078%_ (let () (declare (not safe)) - (##cdr _%e183005183967%_))) - (_%hd183006183970%_ + (##cdr _%e183111184073%_))) + (_%hd183112184076%_ (let () (declare (not safe)) - (##car _%e183005183967%_)))) + (##car _%e183111184073%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183006183970%_)) + (gx#identifier? _%hd183112184076%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183006183970%_)) + (gx#stx-eq? '%#ref _%hd183112184076%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183007183972%_)) - (let ((_%e183008183975%_ + (gx#stx-pair? _%tl183113184078%_)) + (let ((_%e183114184081%_ (let () (declare (not safe)) - (gx#stx-e _%tl183007183972%_)))) - (let ((_%tl183010183980%_ + (gx#stx-e _%tl183113184078%_)))) + (let ((_%tl183116184086%_ (let () (declare (not safe)) - (##cdr _%e183008183975%_))) - (_%hd183009183978%_ + (##cdr _%e183114184081%_))) + (_%hd183115184084%_ (let () (declare (not safe)) - (##car _%e183008183975%_)))) + (##car _%e183114184081%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183010183980%_)) + _%tl183116184086%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183004183964%_)) - (let ((_%e183011183983%_ + _%tl183110184070%_)) + (let ((_%e183117184089%_ (let () (declare (not safe)) (gx#stx-e - _%tl183004183964%_)))) - (let ((_%tl183013183988%_ + _%tl183110184070%_)))) + (let ((_%tl183119184094%_ (let () (declare (not safe)) - (##cdr _%e183011183983%_))) - (_%hd183012183986%_ + (##cdr _%e183117184089%_))) + (_%hd183118184092%_ (let () (declare (not safe)) - (##car _%e183011183983%_)))) + (##car _%e183117184089%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183012183986%_)) - (let ((_%e183014183991%_ + _%hd183118184092%_)) + (let ((_%e183120184097%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183012183986%_)))) - (let ((_%tl183016183996%_ + (gx#stx-e _%hd183118184092%_)))) + (let ((_%tl183122184102%_ (let () (declare (not safe)) - (##cdr _%e183014183991%_))) - (_%hd183015183994%_ + (##cdr _%e183120184097%_))) + (_%hd183121184100%_ (let () (declare (not safe)) - (##car _%e183014183991%_)))) + (##car _%e183120184097%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183015183994%_)) + (gx#identifier? _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183015183994%_)) + (gx#stx-eq? '%#ref _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183017183999%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183123184105%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183019184004%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183125184110%_ (let () (declare (not safe)) - (##cdr _%e183017183999%_))) - (_%hd183018184002%_ + (##cdr _%e183123184105%_))) + (_%hd183124184108%_ (let () (declare (not safe)) - (##car _%e183017183999%_)))) + (##car _%e183123184105%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183019184004%_)) + (gx#stx-null? _%tl183125184110%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183013183988%_)) - (_%__kont190940190941%_ - _%hd183018184002%_ - _%hd183009183978%_) + _%tl183119184094%_)) + (_%__kont191046191047%_ + _%hd183124184108%_ + _%hd183115184084%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183013183988%_)) - (let ((_%e183038183675%_ + _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) (gx#stx-e - _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183039183678%_)) - (let ((_%e183041183683%_ + _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + (gx#stx-e _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ (let () (declare (not safe)) - (##car _%e183041183683%_)))) + (##car _%e183147183789%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183042183686%_)) + (gx#identifier? _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183042183686%_)) + (gx#stx-eq? '%#quote _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183043183688%_)) - (let ((_%e183044183691%_ + (gx#stx-pair? _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () (declare (not safe)) - (gx#stx-e _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + (gx#stx-e _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ (let () (declare (not safe)) - (##car _%e183044183691%_)))) + (##car _%e183150183797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183046183696%_)) + (gx#stx-null? _%tl183152183802%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183043183688%_)) - (let ((_%e183104183487%_ + (gx#stx-pair? _%tl183149183794%_)) + (let ((_%e183210183593%_ (let () (declare (not safe)) - (gx#stx-e _%tl183043183688%_)))) - (let ((_%tl183106183492%_ + (gx#stx-e _%tl183149183794%_)))) + (let ((_%tl183212183598%_ (let () (declare (not safe)) - (##cdr _%e183104183487%_))) - (_%hd183105183490%_ + (##cdr _%e183210183593%_))) + (_%hd183211183596%_ (let () (declare (not safe)) - (##car _%e183104183487%_)))) + (##car _%e183210183593%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183106183492%_)) + _%tl183212183598%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183040183680%_)) - (_%__kont190946190947%_ - _%hd183105183490%_ - _%hd183018184002%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) + _%tl183146183786%_)) + (_%__kont191052191053%_ + _%hd183211183596%_ + _%hd183124184108%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_))) + (_%__kont191058191059%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183013183988%_)) - (let ((_%e183038183675%_ + _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) (gx#stx-e - _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183039183678%_)) - (let ((_%e183041183683%_ + _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () (declare (not safe)) (gx#stx-e - _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ - (let () (declare (not safe)) (##car _%e183041183683%_)))) + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ + (let () (declare (not safe)) (##car _%e183147183789%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183042183686%_)) + (gx#identifier? _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183042183686%_)) + (gx#stx-eq? '%#quote _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183043183688%_)) - (let ((_%e183044183691%_ + (gx#stx-pair? _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () (declare (not safe)) - (gx#stx-e _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + (gx#stx-e _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ (let () (declare (not safe)) - (##car _%e183044183691%_)))) + (##car _%e183150183797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183046183696%_)) + (gx#stx-null? _%tl183152183802%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)))) - (_%__kont190952190953%_))))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183013183988%_)) - (let ((_%e183038183675%_ + (gx#stx-pair? _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) - (gx#stx-e _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + (gx#stx-e _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183039183678%_)) - (let ((_%e183041183683%_ + _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () (declare (not safe)) (gx#stx-e - _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ (let () (declare (not safe)) - (##car _%e183041183683%_)))) + (##car _%e183147183789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183043183688%_)) - (let ((_%e183044183691%_ + (gx#stx-pair? _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () (declare (not safe)) - (gx#stx-e _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + (gx#stx-e _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ (let () (declare (not safe)) - (##car _%e183044183691%_)))) + (##car _%e183150183797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183046183696%_)) + (gx#stx-null? _%tl183152183802%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183013183988%_)) - (let ((_%e183038183675%_ + (gx#stx-pair? _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) - (gx#stx-e _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + (gx#stx-e _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183039183678%_)) - (let ((_%e183041183683%_ + (gx#stx-pair? _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () (declare (not safe)) (gx#stx-e - _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ (let () (declare (not safe)) - (##car _%e183041183683%_)))) + (##car _%e183147183789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183043183688%_)) - (let ((_%e183044183691%_ + _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + (gx#stx-e _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ (let () (declare (not safe)) - (##car _%e183044183691%_)))) + (##car _%e183150183797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183046183696%_)) + (gx#stx-null? _%tl183152183802%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183015183994%_)) + (gx#stx-eq? '%#quote _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183068183587%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) + (##car _%e183174183693%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183128183347%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) (gx#stx-e - _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183015183994%_)) + (gx#stx-eq? '%#quote _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183068183587%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) + (##car _%e183174183693%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183070183592%_)) + (gx#stx-null? _%tl183176183698%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183040183680%_)) - (_%__kont190944190945%_ - _%hd183039183678%_ - _%hd183069183590%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + _%tl183146183786%_)) + (_%__kont191050191051%_ + _%hd183145183784%_ + _%hd183175183696%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183128183347%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))))) + (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd183015183994%_)) + (gx#stx-eq? '%#quote _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183068183587%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) + (##car _%e183174183693%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183070183592%_)) + (gx#stx-null? _%tl183176183698%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190944190945%_ - _%hd183039183678%_ - _%hd183069183590%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191050191051%_ + _%hd183145183784%_ + _%hd183175183696%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd183015183994%_)) + (gx#stx-eq? '%#quote-syntax _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183128183347%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183068183587%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) + (##car _%e183174183693%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183070183592%_)) + (gx#stx-null? _%tl183176183698%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190944190945%_ - _%hd183039183678%_ - _%hd183069183590%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191050191051%_ + _%hd183145183784%_ + _%hd183175183696%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote-syntax _%hd183015183994%_)) + (gx#stx-eq? '%#quote-syntax _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183128183347%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) + (##car _%e183234183453%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183130183352%_)) + (gx#stx-null? _%tl183236183458%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd183042183686%_)) + (gx#stx-eq? '%#ref _%hd183148183792%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183043183688%_)) - (let ((_%e183137183371%_ + (gx#stx-pair? _%tl183149183794%_)) + (let ((_%e183243183477%_ (let () (declare (not safe)) (gx#stx-e - _%tl183043183688%_)))) - (let ((_%tl183139183376%_ + _%tl183149183794%_)))) + (let ((_%tl183245183482%_ (let () (declare (not safe)) - (##cdr _%e183137183371%_))) - (_%hd183138183374%_ + (##cdr _%e183243183477%_))) + (_%hd183244183480%_ (let () (declare (not safe)) - (##car _%e183137183371%_)))) + (##car _%e183243183477%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183139183376%_)) + _%tl183245183482%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183040183680%_)) - (_%__kont190948190949%_ - _%hd183138183374%_ - _%hd183129183350%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + _%tl183146183786%_)) + (_%__kont191054191055%_ + _%hd183244183480%_ + _%hd183235183456%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183016183996%_)) - (let ((_%e183068183587%_ + _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) + (##car _%e183174183693%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183070183592%_)) + (gx#stx-null? _%tl183176183698%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190944190945%_ - _%hd183039183678%_ - _%hd183069183590%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191050191051%_ + _%hd183145183784%_ + _%hd183175183696%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183128183347%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) - (gx#stx-e _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + (gx#stx-e _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))))) + (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183016183996%_)) - (let ((_%e183068183587%_ + _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) (gx#stx-e - _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) + (##car _%e183174183693%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183070183592%_)) + _%tl183176183698%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190944190945%_ - _%hd183039183678%_ - _%hd183069183590%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191050191051%_ + _%hd183145183784%_ + _%hd183175183696%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183016183996%_)) - (let ((_%e183128183347%_ + _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) (gx#stx-e - _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ - (let () (declare (not safe)) (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ + (let () (declare (not safe)) (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))))) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183016183996%_)) - (let ((_%e183068183587%_ + (gx#stx-pair? _%tl183122184102%_)) + (let ((_%e183174183693%_ (let () (declare (not safe)) (gx#stx-e - _%tl183016183996%_)))) - (let ((_%tl183070183592%_ + _%tl183122184102%_)))) + (let ((_%tl183176183698%_ (let () (declare (not safe)) - (##cdr _%e183068183587%_))) - (_%hd183069183590%_ + (##cdr _%e183174183693%_))) + (_%hd183175183696%_ (let () (declare (not safe)) - (##car _%e183068183587%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) + (##car _%e183174183693%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote-syntax - _%hd183015183994%_)) + _%hd183121184100%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183016183996%_)) - (let ((_%e183128183347%_ + _%tl183122184102%_)) + (let ((_%e183234183453%_ (let () (declare (not safe)) (gx#stx-e - _%tl183016183996%_)))) - (let ((_%tl183130183352%_ + _%tl183122184102%_)))) + (let ((_%tl183236183458%_ (let () (declare (not safe)) - (##cdr _%e183128183347%_))) - (_%hd183129183350%_ + (##cdr _%e183234183453%_))) + (_%hd183235183456%_ (let () (declare (not safe)) - (##car _%e183128183347%_)))) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_))))) + (##car _%e183234183453%_)))) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183013183988%_)) - (let ((_%e183038183675%_ + (gx#stx-pair? _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) - (gx#stx-e _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + (gx#stx-e _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183039183678%_)) - (let ((_%e183041183683%_ + (gx#stx-pair? _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () (declare (not safe)) - (gx#stx-e _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + (gx#stx-e _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ (let () (declare (not safe)) - (##car _%e183041183683%_)))) + (##car _%e183147183789%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183043183688%_)) - (let ((_%e183044183691%_ + _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () (declare (not safe)) (gx#stx-e - _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ - (let () (declare (not safe)) (##car _%e183044183691%_)))) + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ + (let () (declare (not safe)) (##car _%e183150183797%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183046183696%_)) + (gx#stx-null? _%tl183152183802%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (gx#stx-null? _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_))))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183013183988%_)) - (let ((_%e183038183675%_ + (gx#stx-pair? _%tl183119184094%_)) + (let ((_%e183144183781%_ (let () (declare (not safe)) - (gx#stx-e _%tl183013183988%_)))) - (let ((_%tl183040183680%_ + (gx#stx-e _%tl183119184094%_)))) + (let ((_%tl183146183786%_ (let () (declare (not safe)) - (##cdr _%e183038183675%_))) - (_%hd183039183678%_ + (##cdr _%e183144183781%_))) + (_%hd183145183784%_ (let () (declare (not safe)) - (##car _%e183038183675%_)))) + (##car _%e183144183781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183039183678%_)) - (let ((_%e183041183683%_ + (gx#stx-pair? _%hd183145183784%_)) + (let ((_%e183147183789%_ (let () (declare (not safe)) - (gx#stx-e _%hd183039183678%_)))) - (let ((_%tl183043183688%_ + (gx#stx-e _%hd183145183784%_)))) + (let ((_%tl183149183794%_ (let () (declare (not safe)) - (##cdr _%e183041183683%_))) - (_%hd183042183686%_ + (##cdr _%e183147183789%_))) + (_%hd183148183792%_ (let () (declare (not safe)) - (##car _%e183041183683%_)))) + (##car _%e183147183789%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd183042183686%_)) + (gx#identifier? _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd183042183686%_)) + _%hd183148183792%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183043183688%_)) - (let ((_%e183044183691%_ + _%tl183149183794%_)) + (let ((_%e183150183797%_ (let () (declare (not safe)) (gx#stx-e - _%tl183043183688%_)))) - (let ((_%tl183046183696%_ + _%tl183149183794%_)))) + (let ((_%tl183152183802%_ (let () (declare (not safe)) - (##cdr _%e183044183691%_))) - (_%hd183045183694%_ + (##cdr _%e183150183797%_))) + (_%hd183151183800%_ (let () (declare (not safe)) - (##car _%e183044183691%_)))) + (##car _%e183150183797%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183046183696%_)) + _%tl183152183802%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183040183680%_)) - (_%__kont190942190943%_ - _%hd183045183694%_ - _%hd183012183986%_ - _%hd183009183978%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_))))) + _%tl183146183786%_)) + (_%__kont191048191049%_ + _%hd183151183800%_ + _%hd183118184092%_ + _%hd183115184084%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd183006183970%_)) + _%hd183112184076%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183007183972%_)) - (let ((_%e183152183210%_ + (gx#stx-pair? _%tl183113184078%_)) + (let ((_%e183258183316%_ (let () (declare (not safe)) (gx#stx-e - _%tl183007183972%_)))) - (let ((_%tl183154183215%_ + _%tl183113184078%_)))) + (let ((_%tl183260183321%_ (let () (declare (not safe)) - (##cdr _%e183152183210%_))) - (_%hd183153183213%_ + (##cdr _%e183258183316%_))) + (_%hd183259183319%_ (let () (declare (not safe)) - (##car _%e183152183210%_)))) + (##car _%e183258183316%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd183153183213%_)) - (let ((_%e183155183218%_ + _%hd183259183319%_)) + (let ((_%e183261183324%_ (let () (declare (not safe)) (gx#stx-e - _%hd183153183213%_)))) - (let ((_%tl183157183223%_ + _%hd183259183319%_)))) + (let ((_%tl183263183329%_ (let () (declare (not safe)) - (##cdr _%e183155183218%_))) - (_%hd183156183221%_ + (##cdr _%e183261183324%_))) + (_%hd183262183327%_ (let () (declare (not safe)) - (##car _%e183155183218%_)))) + (##car _%e183261183324%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl183157183223%_)) + _%tl183263183329%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl183154183215%_)) - (let ((_%e183158183226%_ + (gx#stx-pair? _%tl183260183321%_)) + (let ((_%e183264183332%_ (let () (declare (not safe)) - (gx#stx-e _%tl183154183215%_)))) - (let ((_%tl183160183231%_ + (gx#stx-e _%tl183260183321%_)))) + (let ((_%tl183266183337%_ (let () (declare (not safe)) - (##cdr _%e183158183226%_))) - (_%hd183159183229%_ + (##cdr _%e183264183332%_))) + (_%hd183265183335%_ (let () (declare (not safe)) - (##car _%e183158183226%_)))) + (##car _%e183264183332%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183160183231%_)) + (gx#stx-null? _%tl183266183337%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl183004183964%_)) - (let ((_%e183161183234%_ + (gx#stx-pair? _%tl183110184070%_)) + (let ((_%e183267183340%_ (let () (declare (not safe)) - (gx#stx-e _%tl183004183964%_)))) - (let ((_%tl183163183239%_ + (gx#stx-e _%tl183110184070%_)))) + (let ((_%tl183269183345%_ (let () (declare (not safe)) - (##cdr _%e183161183234%_))) - (_%hd183162183237%_ + (##cdr _%e183267183340%_))) + (_%hd183268183343%_ (let () (declare (not safe)) - (##car _%e183161183234%_)))) + (##car _%e183267183340%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd183162183237%_)) - (let ((_%e183164183242%_ + (gx#stx-pair? _%hd183268183343%_)) + (let ((_%e183270183348%_ (let () (declare (not safe)) (gx#stx-e - _%hd183162183237%_)))) - (let ((_%tl183166183247%_ + _%hd183268183343%_)))) + (let ((_%tl183272183353%_ (let () (declare (not safe)) - (##cdr _%e183164183242%_))) - (_%hd183165183245%_ + (##cdr _%e183270183348%_))) + (_%hd183271183351%_ (let () (declare (not safe)) - (##car _%e183164183242%_)))) + (##car _%e183270183348%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd183165183245%_)) + _%hd183271183351%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd183165183245%_)) + _%hd183271183351%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl183166183247%_)) - (let ((_%e183167183250%_ + _%tl183272183353%_)) + (let ((_%e183273183356%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl183166183247%_)))) - (let ((_%tl183169183255%_ + (gx#stx-e _%tl183272183353%_)))) + (let ((_%tl183275183361%_ (let () (declare (not safe)) - (##cdr _%e183167183250%_))) - (_%hd183168183253%_ + (##cdr _%e183273183356%_))) + (_%hd183274183359%_ (let () (declare (not safe)) - (##car _%e183167183250%_)))) + (##car _%e183273183356%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183169183255%_)) + (gx#stx-null? _%tl183275183361%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl183163183239%_)) - (_%__kont190950190951%_ - _%hd183168183253%_ - _%hd183159183229%_ - _%hd183156183221%_) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) + (gx#stx-null? _%tl183269183345%_)) + (_%__kont191056191057%_ + _%hd183274183359%_ + _%hd183265183335%_ + _%hd183262183327%_) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)) - (_%__kont190952190953%_))) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_)))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)) + (_%__kont191058191059%_))) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont190952190953%_)) - (_%__kont190952190953%_)) - (_%__kont190952190953%_)))) - (_%__kont190952190953%_))))))))) - (_%assert-type181978%_ - (lambda (_%id182884%_ _%t182885%_) - (let _%lp182887%_ ((_%rest182889%_ _%env-type181960%_)) - (let* ((_%rest182890182898%_ _%rest182889%_) - (_%else182892182906%_ (lambda () '#!void)) - (_%K182894182965%_ - (lambda (_%rest182909%_ _%type-info182910%_) - (let* ((_%type-info182911182923%_ - _%type-info182910%_) - (_%else182913182931%_ + (_%__kont191058191059%_)) + (_%__kont191058191059%_)) + (_%__kont191058191059%_)))) + (_%__kont191058191059%_))))))))) + (_%assert-type182084%_ + (lambda (_%id182990%_ _%t182991%_) + (let _%lp182993%_ ((_%rest182995%_ _%env-type182066%_)) + (let* ((_%rest182996183004%_ _%rest182995%_) + (_%else182998183012%_ (lambda () '#!void)) + (_%K183000183071%_ + (lambda (_%rest183015%_ _%type-info183016%_) + (let* ((_%type-info183017183029%_ + _%type-info183016%_) + (_%else183019183037%_ (lambda () - (_%lp182887%_ _%rest182909%_))) - (_%K182915182941%_ - (lambda (_%val182934%_ - _%xt182935%_ - _%xid182936%_) + (_%lp182993%_ _%rest183015%_))) + (_%K183021183047%_ + (lambda (_%val183040%_ + _%xt183041%_ + _%xid183042%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%id182884%_ - _%xid182936%_)) - (if (eq? _%t182885%_ - _%xt182935%_) - _%val182934%_ - (if _%val182934%_ + _%id182990%_ + _%xid183042%_)) + (if (eq? _%t182991%_ + _%xt183041%_) + _%val183040%_ + (if _%val183040%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%t182885%_ + _%t182991%_ 'gxc#!class::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure-instance-of? - _%xt182935%_ + _%xt183041%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182885%_ _%xt182935%_)) + (gxc#!class-subclass? _%t182991%_ _%xt183041%_)) '#f) '#f) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%t182885%_ + _%t182991%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%xt182935%_ + _%xt183041%_ 'gxc#!class::t)) (let () (declare (not safe)) - (gxc#!class-subclass? _%t182885%_ _%xt182935%_))) + (gxc#!class-subclass? _%t182991%_ _%xt183041%_))) '#f - (_%lp182887%_ _%rest182909%_)))) + (_%lp182993%_ _%rest183015%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp182887%_ - _%rest182909%_))))) - (if (pair? _%type-info182911182923%_) - (let ((_%hd182916182944%_ + (_%lp182993%_ + _%rest183015%_))))) + (if (pair? _%type-info183017183029%_) + (let ((_%hd183022183050%_ (let () (declare (not safe)) - (##car _%type-info182911182923%_))) - (_%tl182917182946%_ + (##car _%type-info183017183029%_))) + (_%tl183023183052%_ (let () (declare (not safe)) - (##cdr _%type-info182911182923%_)))) - (let ((_%xid182949%_ - _%hd182916182944%_)) - (if (pair? _%tl182917182946%_) - (let ((_%hd182918182951%_ + (##cdr _%type-info183017183029%_)))) + (let ((_%xid183055%_ + _%hd183022183050%_)) + (if (pair? _%tl183023183052%_) + (let ((_%hd183024183057%_ (let () (declare (not safe)) - (##car _%tl182917182946%_))) - (_%tl182919182953%_ + (##car _%tl183023183052%_))) + (_%tl183025183059%_ (let () (declare (not safe)) - (##cdr _%tl182917182946%_)))) - (let ((_%xt182956%_ - _%hd182918182951%_)) - (if (pair? _%tl182919182953%_) - (let ((_%hd182920182958%_ + (##cdr _%tl183023183052%_)))) + (let ((_%xt183062%_ + _%hd183024183057%_)) + (if (pair? _%tl183025183059%_) + (let ((_%hd183026183064%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182919182953%_))) - (_%tl182921182960%_ + (##car _%tl183025183059%_))) + (_%tl183027183066%_ (let () (declare (not safe)) - (##cdr _%tl182919182953%_)))) - (let ((_%val182963%_ _%hd182920182958%_)) - (if (null? _%tl182921182960%_) - (_%K182915182941%_ - _%val182963%_ - _%xt182956%_ - _%xid182949%_) - (_%else182913182931%_)))) - (_%else182913182931%_)))) + (##cdr _%tl183025183059%_)))) + (let ((_%val183069%_ _%hd183026183064%_)) + (if (null? _%tl183027183066%_) + (_%K183021183047%_ + _%val183069%_ + _%xt183062%_ + _%xid183055%_) + (_%else183019183037%_)))) + (_%else183019183037%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182913182931%_)))) - (_%else182913182931%_)))))) - (if (pair? _%rest182890182898%_) - (let ((_%hd182895182968%_ + (_%else183019183037%_)))) + (_%else183019183037%_)))))) + (if (pair? _%rest182996183004%_) + (let ((_%hd183001183074%_ (let () (declare (not safe)) - (##car _%rest182890182898%_))) - (_%tl182896182970%_ + (##car _%rest182996183004%_))) + (_%tl183002183076%_ (let () (declare (not safe)) - (##cdr _%rest182890182898%_)))) - (let* ((_%type-info182973%_ _%hd182895182968%_) - (_%rest182975%_ _%tl182896182970%_)) - (_%K182894182965%_ - _%rest182975%_ - _%type-info182973%_))) - (_%else182892182906%_)))))) - (_%assert-count181979%_ - (lambda (_%id182780%_ _%sym182781%_ _%count182782%_) - (let _%lp182784%_ ((_%rest182786%_ _%env-type181960%_)) - (let* ((_%rest182787182795%_ _%rest182786%_) - (_%else182789182803%_ (lambda () '#!void)) - (_%K182791182872%_ - (lambda (_%rest182806%_ _%type-info182807%_) - (let* ((_%type-info182808182822%_ - _%type-info182807%_) - (_%else182810182830%_ + (##cdr _%rest182996183004%_)))) + (let* ((_%type-info183079%_ _%hd183001183074%_) + (_%rest183081%_ _%tl183002183076%_)) + (_%K183000183071%_ + _%rest183081%_ + _%type-info183079%_))) + (_%else182998183012%_)))))) + (_%assert-count182085%_ + (lambda (_%id182886%_ _%sym182887%_ _%count182888%_) + (let _%lp182890%_ ((_%rest182892%_ _%env-type182066%_)) + (let* ((_%rest182893182901%_ _%rest182892%_) + (_%else182895182909%_ (lambda () '#!void)) + (_%K182897182978%_ + (lambda (_%rest182912%_ _%type-info182913%_) + (let* ((_%type-info182914182928%_ + _%type-info182913%_) + (_%else182916182936%_ (lambda () - (_%lp182784%_ _%rest182806%_))) - (_%K182812182841%_ - (lambda (_%val182833%_ - _%xcount182834%_ - _%xsym182835%_ - _%xid182836%_) - (if (and (eq? _%sym182781%_ - _%xsym182835%_) + (_%lp182890%_ _%rest182912%_))) + (_%K182918182947%_ + (lambda (_%val182939%_ + _%xcount182940%_ + _%xsym182941%_ + _%xid182942%_) + (if (and (eq? _%sym182887%_ + _%xsym182941%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182780%_ - _%xid182836%_))) - (if _%val182833%_ - (fx= _%count182782%_ - _%xcount182834%_) - (if (fx= _%count182782%_ - _%xcount182834%_) + _%id182886%_ + _%xid182942%_))) + (if _%val182939%_ + (fx= _%count182888%_ + _%xcount182940%_) + (if (fx= _%count182888%_ + _%xcount182940%_) '#f - (_%lp182784%_ - _%rest182806%_))) - (_%lp182784%_ - _%rest182806%_))))) - (if (pair? _%type-info182808182822%_) - (let ((_%hd182813182844%_ + (_%lp182890%_ + _%rest182912%_))) + (_%lp182890%_ + _%rest182912%_))))) + (if (pair? _%type-info182914182928%_) + (let ((_%hd182919182950%_ (let () (declare (not safe)) - (##car _%type-info182808182822%_))) - (_%tl182814182846%_ + (##car _%type-info182914182928%_))) + (_%tl182920182952%_ (let () (declare (not safe)) - (##cdr _%type-info182808182822%_)))) - (let ((_%xid182849%_ - _%hd182813182844%_)) - (if (pair? _%tl182814182846%_) - (let ((_%hd182815182851%_ + (##cdr _%type-info182914182928%_)))) + (let ((_%xid182955%_ + _%hd182919182950%_)) + (if (pair? _%tl182920182952%_) + (let ((_%hd182921182957%_ (let () (declare (not safe)) - (##car _%tl182814182846%_))) - (_%tl182816182853%_ + (##car _%tl182920182952%_))) + (_%tl182922182959%_ (let () (declare (not safe)) - (##cdr _%tl182814182846%_)))) - (let ((_%xsym182856%_ - _%hd182815182851%_)) - (if (pair? _%tl182816182853%_) - (let ((_%hd182817182858%_ + (##cdr _%tl182920182952%_)))) + (let ((_%xsym182962%_ + _%hd182921182957%_)) + (if (pair? _%tl182922182959%_) + (let ((_%hd182923182964%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%tl182816182853%_))) - (_%tl182818182860%_ + (##car _%tl182922182959%_))) + (_%tl182924182966%_ (let () (declare (not safe)) - (##cdr _%tl182816182853%_)))) - (let ((_%xcount182863%_ _%hd182817182858%_)) - (if (pair? _%tl182818182860%_) - (let ((_%hd182819182865%_ + (##cdr _%tl182922182959%_)))) + (let ((_%xcount182969%_ _%hd182923182964%_)) + (if (pair? _%tl182924182966%_) + (let ((_%hd182925182971%_ (let () (declare (not safe)) - (##car _%tl182818182860%_))) - (_%tl182820182867%_ + (##car _%tl182924182966%_))) + (_%tl182926182973%_ (let () (declare (not safe)) - (##cdr _%tl182818182860%_)))) - (let ((_%val182870%_ _%hd182819182865%_)) - (if (null? _%tl182820182867%_) - (_%K182812182841%_ - _%val182870%_ - _%xcount182863%_ - _%xsym182856%_ - _%xid182849%_) - (_%else182810182830%_)))) - (_%else182810182830%_)))) - (_%else182810182830%_)))) + (##cdr _%tl182924182966%_)))) + (let ((_%val182976%_ _%hd182925182971%_)) + (if (null? _%tl182926182973%_) + (_%K182918182947%_ + _%val182976%_ + _%xcount182969%_ + _%xsym182962%_ + _%xid182955%_) + (_%else182916182936%_)))) + (_%else182916182936%_)))) + (_%else182916182936%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182810182830%_)))) - (_%else182810182830%_)))))) - (if (pair? _%rest182787182795%_) - (let ((_%hd182792182875%_ + (_%else182916182936%_)))) + (_%else182916182936%_)))))) + (if (pair? _%rest182893182901%_) + (let ((_%hd182898182981%_ (let () (declare (not safe)) - (##car _%rest182787182795%_))) - (_%tl182793182877%_ + (##car _%rest182893182901%_))) + (_%tl182899182983%_ (let () (declare (not safe)) - (##cdr _%rest182787182795%_)))) - (let* ((_%type-info182880%_ _%hd182792182875%_) - (_%rest182882%_ _%tl182793182877%_)) - (_%K182791182872%_ - _%rest182882%_ - _%type-info182880%_))) - (_%else182789182803%_)))))) - (_%assert-eqf181980%_ - (lambda (_%id182667%_ _%sym182668%_ _%datum182669%_) - (letrec ((_%eqf182671%_ - (lambda (_%sym182775%_) - (let ((_%$e182777%_ _%sym182775%_)) - (if (eq? 'eq? _%$e182777%_) + (##cdr _%rest182893182901%_)))) + (let* ((_%type-info182986%_ _%hd182898182981%_) + (_%rest182988%_ _%tl182899182983%_)) + (_%K182897182978%_ + _%rest182988%_ + _%type-info182986%_))) + (_%else182895182909%_)))))) + (_%assert-eqf182086%_ + (lambda (_%id182773%_ _%sym182774%_ _%datum182775%_) + (letrec ((_%eqf182777%_ + (lambda (_%sym182881%_) + (let ((_%$e182883%_ _%sym182881%_)) + (if (eq? 'eq? _%$e182883%_) eq? - (if (eq? 'eqv? _%$e182777%_) + (if (eq? 'eqv? _%$e182883%_) eqv? - (if (eq? 'equal? _%$e182777%_) + (if (eq? 'equal? _%$e182883%_) equal? (if (eq? 'free-identifier=? - _%$e182777%_) + _%$e182883%_) gx#free-identifier=? (if (eq? 'stx-eq? - _%$e182777%_) + _%$e182883%_) gx#stx-eq? (let () (declare (not safe)) (gxc#raise-compile-error '"Unexpected eqf symbol" - _%body181721%_ - _%sym182775%_))))))))))) - (let _%lp182673%_ ((_%rest182675%_ _%env-type181960%_)) - (let* ((_%rest182676182684%_ _%rest182675%_) - (_%else182678182692%_ (lambda () '#!void)) - (_%K182680182763%_ - (lambda (_%rest182695%_ _%type-info182696%_) - (let* ((_%type-info182697182711%_ - _%type-info182696%_) - (_%else182699182719%_ + _%body181827%_ + _%sym182881%_))))))))))) + (let _%lp182779%_ ((_%rest182781%_ _%env-type182066%_)) + (let* ((_%rest182782182790%_ _%rest182781%_) + (_%else182784182798%_ (lambda () '#!void)) + (_%K182786182869%_ + (lambda (_%rest182801%_ _%type-info182802%_) + (let* ((_%type-info182803182817%_ + _%type-info182802%_) + (_%else182805182825%_ (lambda () - (_%lp182673%_ _%rest182695%_))) - (_%K182701182732%_ - (lambda (_%val182722%_ - _%xdatum182723%_ - _%xsym182724%_ - _%xid182725%_) - (if (and (eq? _%sym182668%_ - _%xsym182724%_) + (_%lp182779%_ _%rest182801%_))) + (_%K182807182838%_ + (lambda (_%val182828%_ + _%xdatum182829%_ + _%xsym182830%_ + _%xid182831%_) + (if (and (eq? _%sym182774%_ + _%xsym182830%_) (let () (declare (not safe)) (gx#free-identifier=? - _%id182667%_ - _%xid182725%_))) - (let ((_%=?182727%_ - (_%eqf182671%_ - _%sym182668%_))) - (if _%val182722%_ - (_%=?182727%_ - _%datum182669%_ - _%xdatum182723%_) - (if (_%=?182727%_ - _%datum182669%_ - _%xdatum182723%_) + _%id182773%_ + _%xid182831%_))) + (let ((_%=?182833%_ + (_%eqf182777%_ + _%sym182774%_))) + (if _%val182828%_ + (_%=?182833%_ + _%datum182775%_ + _%xdatum182829%_) + (if (_%=?182833%_ + _%datum182775%_ + _%xdatum182829%_) '#f - (_%lp182673%_ - _%rest182695%_)))) - (_%lp182673%_ - _%rest182695%_))))) - (if (pair? _%type-info182697182711%_) - (let ((_%hd182702182735%_ + (_%lp182779%_ + _%rest182801%_)))) + (_%lp182779%_ + _%rest182801%_))))) + (if (pair? _%type-info182803182817%_) + (let ((_%hd182808182841%_ (let () (declare (not safe)) - (##car _%type-info182697182711%_))) - (_%tl182703182737%_ + (##car _%type-info182803182817%_))) + (_%tl182809182843%_ (let () (declare (not safe)) - (##cdr _%type-info182697182711%_)))) - (let ((_%xid182740%_ - _%hd182702182735%_)) - (if (pair? _%tl182703182737%_) - (let ((_%hd182704182742%_ + (##cdr _%type-info182803182817%_)))) + (let ((_%xid182846%_ + _%hd182808182841%_)) + (if (pair? _%tl182809182843%_) + (let ((_%hd182810182848%_ (let () (declare (not safe)) - (##car _%tl182703182737%_))) - (_%tl182705182744%_ + (##car _%tl182809182843%_))) + (_%tl182811182850%_ (let () (declare (not safe)) - (##cdr _%tl182703182737%_)))) - (let ((_%xsym182747%_ - _%hd182704182742%_)) - (if (pair? _%tl182705182744%_) - (let ((_%hd182706182749%_ + (##cdr _%tl182809182843%_)))) + (let ((_%xsym182853%_ + _%hd182810182848%_)) + (if (pair? _%tl182811182850%_) + (let ((_%hd182812182855%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%tl182705182744%_))) - (_%tl182707182751%_ + (##car _%tl182811182850%_))) + (_%tl182813182857%_ (let () (declare (not safe)) - (##cdr _%tl182705182744%_)))) - (let ((_%xdatum182754%_ _%hd182706182749%_)) - (if (pair? _%tl182707182751%_) - (let ((_%hd182708182756%_ + (##cdr _%tl182811182850%_)))) + (let ((_%xdatum182860%_ _%hd182812182855%_)) + (if (pair? _%tl182813182857%_) + (let ((_%hd182814182862%_ (let () (declare (not safe)) - (##car _%tl182707182751%_))) - (_%tl182709182758%_ + (##car _%tl182813182857%_))) + (_%tl182815182864%_ (let () (declare (not safe)) - (##cdr _%tl182707182751%_)))) - (let ((_%val182761%_ _%hd182708182756%_)) - (if (null? _%tl182709182758%_) - (_%K182701182732%_ - _%val182761%_ - _%xdatum182754%_ - _%xsym182747%_ - _%xid182740%_) - (_%else182699182719%_)))) - (_%else182699182719%_)))) - (_%else182699182719%_)))) + (##cdr _%tl182813182857%_)))) + (let ((_%val182867%_ _%hd182814182862%_)) + (if (null? _%tl182815182864%_) + (_%K182807182838%_ + _%val182867%_ + _%xdatum182860%_ + _%xsym182853%_ + _%xid182846%_) + (_%else182805182825%_)))) + (_%else182805182825%_)))) + (_%else182805182825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else182699182719%_)))) - (_%else182699182719%_)))))) - (if (pair? _%rest182676182684%_) - (let ((_%hd182681182766%_ + (_%else182805182825%_)))) + (_%else182805182825%_)))))) + (if (pair? _%rest182782182790%_) + (let ((_%hd182787182872%_ (let () (declare (not safe)) - (##car _%rest182676182684%_))) - (_%tl182682182768%_ + (##car _%rest182782182790%_))) + (_%tl182788182874%_ (let () (declare (not safe)) - (##cdr _%rest182676182684%_)))) - (let* ((_%type-info182771%_ - _%hd182681182766%_) - (_%rest182773%_ _%tl182682182768%_)) - (_%K182680182763%_ - _%rest182773%_ - _%type-info182771%_))) - (_%else182678182692%_))))))) - (_%bind-e__189335189336%_ - (lambda (_%bind182569%_ _%body182570%_ _%continue182571%_) - (let _%lp182573%_ ((_%rest182575%_ _%bind182569%_) - (_%subst182576%_ '()) - (_%locals182577%_ '()) - (_%env182578%_ _%env-bind181961%_)) - (let* ((_%rest182579182587%_ _%rest182575%_) - (_%else182581182601%_ + (##cdr _%rest182782182790%_)))) + (let* ((_%type-info182877%_ + _%hd182787182872%_) + (_%rest182879%_ _%tl182788182874%_)) + (_%K182786182869%_ + _%rest182879%_ + _%type-info182877%_))) + (_%else182784182798%_))))))) + (_%bind-e__189441189442%_ + (lambda (_%bind182675%_ _%body182676%_ _%continue182677%_) + (let _%lp182679%_ ((_%rest182681%_ _%bind182675%_) + (_%subst182682%_ '()) + (_%locals182683%_ '()) + (_%env182684%_ _%env-bind182067%_)) + (let* ((_%rest182685182693%_ _%rest182681%_) + (_%else182687182707%_ (lambda () - (let* ((_%body182595%_ - (if (null? _%subst182576%_) - _%body182570%_ + (let* ((_%body182701%_ + (if (null? _%subst182682%_) + _%body182676%_ (let () (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182576%_ - _%body182570%_)))) - (_%body182598%_ - (_%do-bind!181972%_ - _%env182578%_ + _%subst182682%_ + _%body182676%_)))) + (_%body182704%_ + (_%do-bind!182078%_ + _%env182684%_ (lambda () - (_%continue182571%_ - _%body182595%_))))) - (if (null? _%locals182577%_) - _%body182598%_ + (_%continue182677%_ + _%body182701%_))))) + (if (null? _%locals182683%_) + _%body182704%_ (cons '%#let-values - (cons _%locals182577%_ - (cons _%body182598%_ + (cons _%locals182683%_ + (cons _%body182704%_ '()))))))) - (_%K182583182643%_ - (lambda (_%rest182604%_ _%bind182605%_) - (let* ((_%bind182606182613%_ _%bind182605%_) - (_%E182608182617%_ + (_%K182689182749%_ + (lambda (_%rest182710%_ _%bind182711%_) + (let* ((_%bind182712182719%_ _%bind182711%_) + (_%E182714182723%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%bind182606182613%_ + _%bind182712182719%_ '([id . expr]))) '#!void)) - (_%K182609182631%_ - (lambda (_%expr182620%_ _%id182621%_) - (let* ((_%sexpr182623%_ + (_%K182715182737%_ + (lambda (_%expr182726%_ _%id182727%_) + (let* ((_%sexpr182729%_ (gxc#apply-generate-runtime-repr - _%expr182620%_)) - (_%$e182625%_ + _%expr182726%_)) + (_%$e182731%_ (let () (declare (not safe)) - (aget__0 _%sexpr182623%_ - _%env-bind181961%_)))) - (if _%$e182625%_ - ((lambda (_%xid182628%_) - (_%lp182573%_ - _%rest182604%_ - (cons (cons _%id182621%_ + (aget__0 _%sexpr182729%_ + _%env-bind182067%_)))) + (if _%$e182731%_ + ((lambda (_%xid182734%_) + (_%lp182679%_ + _%rest182710%_ + (cons (cons _%id182727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%xid182628%_) - _%subst182576%_) + _%xid182734%_) + _%subst182682%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%locals182577%_ - _%env182578%_)) - _%$e182625%_) - (_%lp182573%_ - _%rest182604%_ - _%subst182576%_ - (cons (cons (cons _%id182621%_ + _%locals182683%_ + _%env182684%_)) + _%$e182731%_) + (_%lp182679%_ + _%rest182710%_ + _%subst182682%_ + (cons (cons (cons _%id182727%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%expr182620%_ '())) - _%locals182577%_) + (cons _%expr182726%_ '())) + _%locals182683%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%sexpr182623%_ - _%id182621%_) - _%env182578%_))))))) - (if (pair? _%bind182606182613%_) - (let ((_%hd182610182634%_ + (cons (cons _%sexpr182729%_ + _%id182727%_) + _%env182684%_))))))) + (if (pair? _%bind182712182719%_) + (let ((_%hd182716182740%_ (let () (declare (not safe)) - (##car _%bind182606182613%_))) - (_%tl182611182636%_ + (##car _%bind182712182719%_))) + (_%tl182717182742%_ (let () (declare (not safe)) - (##cdr _%bind182606182613%_)))) - (let* ((_%id182639%_ - _%hd182610182634%_) - (_%expr182641%_ - _%tl182611182636%_)) - (_%K182609182631%_ - _%expr182641%_ - _%id182639%_))) - (_%E182608182617%_)))))) - (if (pair? _%rest182579182587%_) - (let ((_%hd182584182646%_ + (##cdr _%bind182712182719%_)))) + (let* ((_%id182745%_ + _%hd182716182740%_) + (_%expr182747%_ + _%tl182717182742%_)) + (_%K182715182737%_ + _%expr182747%_ + _%id182745%_))) + (_%E182714182723%_)))))) + (if (pair? _%rest182685182693%_) + (let ((_%hd182690182752%_ (let () (declare (not safe)) - (##car _%rest182579182587%_))) - (_%tl182585182648%_ + (##car _%rest182685182693%_))) + (_%tl182691182754%_ (let () (declare (not safe)) - (##cdr _%rest182579182587%_)))) - (let* ((_%bind182651%_ _%hd182584182646%_) - (_%rest182653%_ _%tl182585182648%_)) - (_%K182583182643%_ - _%rest182653%_ - _%bind182651%_))) - (_%else182581182601%_)))))) - (_%bind-e__0__189337189338%_ - (lambda (_%bind182658%_ _%body182659%_) - (let ((_%continue182661%_ _%optimize-e181974%_)) - (_%bind-e__189335189336%_ - _%bind182658%_ - _%body182659%_ - _%continue182661%_)))) - (_%bind-e181981%_ - (lambda _g192494_ - (let ((_g192493_ + (##cdr _%rest182685182693%_)))) + (let* ((_%bind182757%_ _%hd182690182752%_) + (_%rest182759%_ _%tl182691182754%_)) + (_%K182689182749%_ + _%rest182759%_ + _%bind182757%_))) + (_%else182687182707%_)))))) + (_%bind-e__0__189443189444%_ + (lambda (_%bind182764%_ _%body182765%_) + (let ((_%continue182767%_ _%optimize-e182080%_)) + (_%bind-e__189441189442%_ + _%bind182764%_ + _%body182765%_ + _%continue182767%_)))) + (_%bind-e182087%_ + (lambda _g192600_ + (let ((_g192599_ (let () (declare (not safe)) - (##length _g192494_)))) - (cond ((let () (declare (not safe)) (##fx= _g192493_ 2)) - (apply _%bind-e__0__189337189338%_ _g192494_)) - ((let () (declare (not safe)) (##fx= _g192493_ 3)) - (apply _%bind-e__189335189336%_ _g192494_)) + (##length _g192600_)))) + (cond ((let () (declare (not safe)) (##fx= _g192599_ 2)) + (apply _%bind-e__0__189443189444%_ _g192600_)) + ((let () (declare (not safe)) (##fx= _g192599_ 3)) + (apply _%bind-e__189441189442%_ _g192600_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g192494_)))))) - (_%lookup-block181982%_ - (lambda (_%id182564%_) - (let ((__tmp192495 - (lambda (_%block182566%_) - (let ((__tmp192496 (car _%block182566%_))) + _g192600_)))))) + (_%lookup-block182088%_ + (lambda (_%id182670%_) + (let ((__tmp192601 + (lambda (_%block182672%_) + (let ((__tmp192602 (car _%block182672%_))) (declare (not safe)) (gx#free-identifier=? - __tmp192496 - _%id182564%_))))) + __tmp192602 + _%id182670%_))))) (declare (not safe)) - (__find __tmp192495 _%blocks181724%_)))) - (_%inline-block181983%_ - (lambda (_%block182440%_ _%args182441%_) - (let* ((_%kont182443%_ (caddr _%block182440%_)) - (_%g182445182471%_ - (lambda (_%g182446182468%_) + (__find __tmp192601 _%blocks181830%_)))) + (_%inline-block182089%_ + (lambda (_%block182546%_ _%args182547%_) + (let* ((_%kont182549%_ (caddr _%block182546%_)) + (_%g182551182577%_ + (lambda (_%g182552182574%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g182446182468%_)))) - (_%g182444182561%_ - (lambda (_%g182446182474%_) + _%g182552182574%_)))) + (_%g182550182667%_ + (lambda (_%g182552182580%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g182446182474%_)) - (let ((_%e182449182476%_ + (gx#stx-pair? _%g182552182580%_)) + (let ((_%e182555182582%_ (let () (declare (not safe)) - (gx#stx-e _%g182446182474%_)))) - (let ((_%hd182450182479%_ + (gx#stx-e _%g182552182580%_)))) + (let ((_%hd182556182585%_ (let () (declare (not safe)) - (##car _%e182449182476%_))) - (_%tl182451182481%_ + (##car _%e182555182582%_))) + (_%tl182557182587%_ (let () (declare (not safe)) - (##cdr _%e182449182476%_)))) + (##cdr _%e182555182582%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182450182479%_)) + _%hd182556182585%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182450182479%_)) + _%hd182556182585%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182451182481%_)) - (let ((_%e182452182484%_ + _%tl182557182587%_)) + (let ((_%e182558182590%_ (let () (declare (not safe)) (gx#stx-e - _%tl182451182481%_)))) - (let ((_%hd182453182487%_ + _%tl182557182587%_)))) + (let ((_%hd182559182593%_ (let () (declare (not safe)) - (##car _%e182452182484%_))) - (_%tl182454182489%_ + (##car _%e182558182590%_))) + (_%tl182560182595%_ (let () (declare (not safe)) - (##cdr _%e182452182484%_)))) + (##cdr _%e182558182590%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd182453182487%_)) - (let ((_g192497_ + _%hd182559182593%_)) + (let ((_g192603_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182453182487%_ '0)))) + (gx#syntax-split-splice _%hd182559182593%_ '0)))) (begin - (let ((_g192498_ + (let ((_g192604_ (let () (declare (not safe)) - (if (##values? _g192497_) - (##vector-length _g192497_) + (if (##values? _g192603_) + (##values-length _g192603_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192498_ 2))) - (error "Context expects 2 values" _g192498_))) - (let ((_%target182455182492%_ + (##fx= _g192604_ 2))) + (error "Context expects 2 values" _g192604_))) + (let ((_%target182561182598%_ (let () (declare (not safe)) - (##vector-ref _g192497_ 0))) - (_%tl182457182494%_ + (##values-ref _g192603_ 0))) + (_%tl182563182600%_ (let () (declare (not safe)) - (##vector-ref _g192497_ 1)))) + (##values-ref _g192603_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182457182494%_)) - (letrec ((_%loop182458182497%_ - (lambda (_%hd182456182500%_ - _%id182462182502%_) + (gx#stx-null? _%tl182563182600%_)) + (letrec ((_%loop182564182603%_ + (lambda (_%hd182562182606%_ + _%id182568182608%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182456182500%_)) - (let ((_%e182459182505%_ + _%hd182562182606%_)) + (let ((_%e182565182611%_ (let () (declare (not safe)) (gx#stx-e - _%hd182456182500%_)))) - (let ((_%lp-hd182460182508%_ + _%hd182562182606%_)))) + (let ((_%lp-hd182566182614%_ (let () (declare (not safe)) - (##car _%e182459182505%_))) - (_%lp-tl182461182510%_ + (##car _%e182565182611%_))) + (_%lp-tl182567182616%_ (let () (declare (not safe)) - (##cdr _%e182459182505%_)))) - (_%loop182458182497%_ - _%lp-tl182461182510%_ - (cons _%lp-hd182460182508%_ - _%id182462182502%_)))) - (let ((_%id182463182513%_ - (reverse _%id182462182502%_))) + (##cdr _%e182565182611%_)))) + (_%loop182564182603%_ + _%lp-tl182567182616%_ + (cons _%lp-hd182566182614%_ + _%id182568182608%_)))) + (let ((_%id182569182619%_ + (reverse _%id182568182608%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182454182489%_)) - (let ((_%e182464182516%_ + _%tl182560182595%_)) + (let ((_%e182570182622%_ (let () (declare (not safe)) (gx#stx-e - _%tl182454182489%_)))) - (let ((_%hd182465182519%_ + _%tl182560182595%_)))) + (let ((_%hd182571182625%_ (let () (declare (not safe)) - (##car _%e182464182516%_))) - (_%tl182466182521%_ + (##car _%e182570182622%_))) + (_%tl182572182627%_ (let () (declare (not safe)) - (##cdr _%e182464182516%_)))) + (##cdr _%e182570182622%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182466182521%_)) - ((lambda (_%L182524%_ + _%tl182572182627%_)) + ((lambda (_%L182630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L182525%_) - (if (null? (let ((__tmp192499 - (lambda (_%g182544182547%_ - _%g182545182549%_) - (cons _%g182544182547%_ - _%g182545182549%_)))) + _%L182631%_) + (if (null? (let ((__tmp192605 + (lambda (_%g182650182653%_ + _%g182651182655%_) + (cons _%g182650182653%_ + _%g182651182655%_)))) (declare (not safe)) - (__foldr1 __tmp192499 '() _%L182525%_))) - _%L182524%_ - (let ((_%subst182559%_ + (__foldr1 __tmp192605 '() _%L182631%_))) + _%L182630%_ + (let ((_%subst182665%_ (map cons - (let ((__tmp192500 - (lambda (_%g182551182554%_ - _%g182552182556%_) - (cons _%g182551182554%_ - _%g182552182556%_)))) + (let ((__tmp192606 + (lambda (_%g182657182660%_ + _%g182658182662%_) + (cons _%g182657182660%_ + _%g182658182662%_)))) (declare (not safe)) - (__foldr1 __tmp192500 '() _%L182525%_)) - _%args182441%_))) + (__foldr1 __tmp192606 '() _%L182631%_)) + _%args182547%_))) (declare (not safe)) (gxc#apply-expression-subst*__% '#f - _%subst182559%_ - _%L182524%_)))) - _%hd182465182519%_ - _%id182463182513%_) - (_%g182445182471%_ _%g182446182474%_)))) + _%subst182665%_ + _%L182630%_)))) + _%hd182571182625%_ + _%id182569182619%_) + (_%g182551182577%_ _%g182552182580%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182445182471%_ - _%g182446182474%_))))))) - (_%loop182458182497%_ - _%target182455182492%_ + (_%g182551182577%_ + _%g182552182580%_))))))) + (_%loop182564182603%_ + _%target182561182598%_ '())) - (_%g182445182471%_ _%g182446182474%_))))) - (_%g182445182471%_ _%g182446182474%_)))) + (_%g182551182577%_ _%g182552182580%_))))) + (_%g182551182577%_ _%g182552182580%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g182445182471%_ - _%g182446182474%_)) - (_%g182445182471%_ - _%g182446182474%_)) - (_%g182445182471%_ - _%g182446182474%_)))) - (_%g182445182471%_ _%g182446182474%_))))) - (_%g182444182561%_ _%kont182443%_)))) - (_%nonlinear-block?181984%_ - (lambda (_%block181989%_) - (letrec ((_%nonlinear-expr?181991%_ - (lambda (_%expr182099%_) - (let* ((_%__stx191408191409%_ _%expr182099%_) - (_%g182105182171%_ + (_%g182551182577%_ + _%g182552182580%_)) + (_%g182551182577%_ + _%g182552182580%_)) + (_%g182551182577%_ + _%g182552182580%_)))) + (_%g182551182577%_ _%g182552182580%_))))) + (_%g182550182667%_ _%kont182549%_)))) + (_%nonlinear-block?182090%_ + (lambda (_%block182095%_) + (letrec ((_%nonlinear-expr?182097%_ + (lambda (_%expr182205%_) + (let* ((_%__stx191514191515%_ _%expr182205%_) + (_%g182211182277%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191408191409%_))))) - (let ((_%__kont191410191411%_ + _%__stx191514191515%_))))) + (let ((_%__kont191516191517%_ (lambda () '#t)) - (_%__kont191412191413%_ - (lambda (_%L182370%_) - (let* ((_%__stx191390191391%_ - _%L182370%_) - (_%g182388182397%_ + (_%__kont191518191519%_ + (lambda (_%L182476%_) + (let* ((_%__stx191496191497%_ + _%L182476%_) + (_%g182494182503%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191390191391%_))))) - (let ((_%__kont191392191393%_ + _%__stx191496191497%_))))) + (let ((_%__kont191498191499%_ (lambda () '#f)) - (_%__kont191394191395%_ + (_%__kont191500191501%_ (lambda () '#t))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191390191391%_)) - (let ((_%e182390182409%_ + _%__stx191496191497%_)) + (let ((_%e182496182515%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191390191391%_)))) - (let ((_%tl182392182414%_ + _%__stx191496191497%_)))) + (let ((_%tl182498182520%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e182390182409%_))) - (_%hd182391182412%_ - (let () (declare (not safe)) (##car _%e182390182409%_)))) + (##cdr _%e182496182515%_))) + (_%hd182497182518%_ + (let () (declare (not safe)) (##car _%e182496182515%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182391182412%_)) + (gx#identifier? _%hd182497182518%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd182391182412%_)) - (_%__kont191392191393%_) - (_%__kont191394191395%_)) - (_%__kont191394191395%_)))) + (gx#stx-eq? '%#call _%hd182497182518%_)) + (_%__kont191498191499%_) + (_%__kont191500191501%_)) + (_%__kont191500191501%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191394191395%_)))))) - (_%__kont191416191417%_ - (lambda (_%L182268%_) - (_%nonlinear-expr?181991%_ - _%L182268%_))) - (_%__kont191418191419%_ - (lambda (_%L182215%_ - _%L182216%_ - _%L182217%_) - (let ((_%$e182236%_ - (_%nonlinear-expr?181991%_ - _%L182216%_))) - (if _%$e182236%_ - _%$e182236%_ - (_%nonlinear-expr?181991%_ - _%L182215%_))))) - (_%__kont191420191421%_ + (_%__kont191500191501%_)))))) + (_%__kont191522191523%_ + (lambda (_%L182374%_) + (_%nonlinear-expr?182097%_ + _%L182374%_))) + (_%__kont191524191525%_ + (lambda (_%L182321%_ + _%L182322%_ + _%L182323%_) + (let ((_%$e182342%_ + (_%nonlinear-expr?182097%_ + _%L182322%_))) + (if _%$e182342%_ + _%$e182342%_ + (_%nonlinear-expr?182097%_ + _%L182321%_))))) + (_%__kont191526191527%_ (lambda () '#f))) - (let* ((_%__match191471191472%_ - (lambda (_%e182143182244%_ - _%hd182144182247%_ - _%tl182145182249%_ - _%e182146182252%_ - _%hd182147182255%_ - _%tl182148182257%_) + (let* ((_%__match191577191578%_ + (lambda (_%e182249182350%_ + _%hd182250182353%_ + _%tl182251182355%_ + _%e182252182358%_ + _%hd182253182361%_ + _%tl182254182363%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182148182257%_)) - (let ((_%e182149182260%_ + _%tl182254182363%_)) + (let ((_%e182255182366%_ (let () (declare (not safe)) (gx#stx-e - _%tl182148182257%_)))) - (let ((_%tl182151182265%_ + _%tl182254182363%_)))) + (let ((_%tl182257182371%_ (let () (declare (not safe)) - (##cdr _%e182149182260%_))) - (_%hd182150182263%_ + (##cdr _%e182255182366%_))) + (_%hd182256182369%_ (let () (declare (not safe)) - (##car _%e182149182260%_)))) + (##car _%e182255182366%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182151182265%_)) - (_%__kont191416191417%_ - _%hd182150182263%_) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)))) - (_%__match191455191456%_ - (lambda (_%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_ - _%__splice191414191415%_ - _%target182117182302%_ - _%tl182119182304%_) - (letrec ((_%loop182120182307%_ - (lambda (_%hd182118182310%_) + _%tl182257182371%_)) + (_%__kont191522191523%_ + _%hd182256182369%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__match191561191562%_ + (lambda (_%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_ + _%__splice191520191521%_ + _%target182223182408%_ + _%tl182225182410%_) + (letrec ((_%loop182226182413%_ + (lambda (_%hd182224182416%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%hd182118182310%_)) - (let ((_%e182121182313%_ + (gx#stx-pair? _%hd182224182416%_)) + (let ((_%e182227182419%_ (let () (declare (not safe)) - (gx#stx-e _%hd182118182310%_)))) - (let ((_%lp-tl182123182318%_ + (gx#stx-e _%hd182224182416%_)))) + (let ((_%lp-tl182229182424%_ (let () (declare (not safe)) - (##cdr _%e182121182313%_))) - (_%lp-hd182122182316%_ + (##cdr _%e182227182419%_))) + (_%lp-hd182228182422%_ (let () (declare (not safe)) - (##car _%e182121182313%_)))) + (##car _%e182227182419%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd182122182316%_)) - (let ((_%e182127182321%_ + (gx#stx-pair? _%lp-hd182228182422%_)) + (let ((_%e182233182427%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd182122182316%_)))) - (let ((_%tl182129182326%_ + (gx#stx-e _%lp-hd182228182422%_)))) + (let ((_%tl182235182432%_ (let () (declare (not safe)) - (##cdr _%e182127182321%_))) - (_%hd182128182324%_ + (##cdr _%e182233182427%_))) + (_%hd182234182430%_ (let () (declare (not safe)) - (##car _%e182127182321%_)))) + (##car _%e182233182427%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd182128182324%_)) - (let ((_%e182130182329%_ + (gx#stx-pair? _%hd182234182430%_)) + (let ((_%e182236182435%_ (let () (declare (not safe)) (gx#stx-e - _%hd182128182324%_)))) - (let ((_%tl182132182334%_ + _%hd182234182430%_)))) + (let ((_%tl182238182440%_ (let () (declare (not safe)) - (##cdr _%e182130182329%_))) - (_%hd182131182332%_ + (##cdr _%e182236182435%_))) + (_%hd182237182438%_ (let () (declare (not safe)) - (##car _%e182130182329%_)))) + (##car _%e182236182435%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182132182334%_)) + _%tl182238182440%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182129182326%_)) - (let ((_%e182133182337%_ + _%tl182235182432%_)) + (let ((_%e182239182443%_ (let () (declare (not safe)) (gx#stx-e - _%tl182129182326%_)))) - (let ((_%tl182135182342%_ + _%tl182235182432%_)))) + (let ((_%tl182241182448%_ (let () (declare (not safe)) - (##cdr _%e182133182337%_))) - (_%hd182134182340%_ + (##cdr _%e182239182443%_))) + (_%hd182240182446%_ (let () (declare (not safe)) - (##car _%e182133182337%_)))) + (##car _%e182239182443%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182134182340%_)) - (let ((_%e182136182345%_ + _%hd182240182446%_)) + (let ((_%e182242182451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd182134182340%_)))) - (let ((_%tl182138182350%_ + (gx#stx-e _%hd182240182446%_)))) + (let ((_%tl182244182456%_ (let () (declare (not safe)) - (##cdr _%e182136182345%_))) - (_%hd182137182348%_ + (##cdr _%e182242182451%_))) + (_%hd182243182454%_ (let () (declare (not safe)) - (##car _%e182136182345%_)))) + (##car _%e182242182451%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd182137182348%_)) + (gx#identifier? _%hd182243182454%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd182137182348%_)) + (gx#stx-eq? '%#ref _%hd182243182454%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182138182350%_)) - (let ((_%e182139182353%_ + (gx#stx-pair? _%tl182244182456%_)) + (let ((_%e182245182459%_ (let () (declare (not safe)) - (gx#stx-e _%tl182138182350%_)))) - (let ((_%tl182141182358%_ + (gx#stx-e _%tl182244182456%_)))) + (let ((_%tl182247182464%_ (let () (declare (not safe)) - (##cdr _%e182139182353%_))) - (_%hd182140182356%_ + (##cdr _%e182245182459%_))) + (_%hd182246182462%_ (let () (declare (not safe)) - (##car _%e182139182353%_)))) + (##car _%e182245182459%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182141182358%_)) + (gx#stx-null? _%tl182247182464%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182135182342%_)) - (_%loop182120182307%_ - _%lp-tl182123182318%_) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) + _%tl182241182448%_)) + (_%loop182226182413%_ + _%lp-tl182229182424%_) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) - (_%__match191471191472%_ - _%e182111182286%_ - _%hd182112182289%_ - _%tl182113182291%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_)))) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) + (_%__match191577191578%_ + _%e182217182392%_ + _%hd182218182395%_ + _%tl182219182397%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182116182299%_)) - (let ((_%e182124182362%_ + (gx#stx-pair? _%tl182222182405%_)) + (let ((_%e182230182468%_ (let () (declare (not safe)) - (gx#stx-e _%tl182116182299%_)))) - (let ((_%tl182126182367%_ + (gx#stx-e _%tl182222182405%_)))) + (let ((_%tl182232182473%_ (let () (declare (not safe)) - (##cdr _%e182124182362%_))) - (_%hd182125182365%_ + (##cdr _%e182230182468%_))) + (_%hd182231182471%_ (let () (declare (not safe)) - (##car _%e182124182362%_)))) + (##car _%e182230182468%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182126182367%_)) - (_%__kont191412191413%_ _%hd182125182365%_) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)))))) + (gx#stx-null? _%tl182232182473%_)) + (_%__kont191518191519%_ _%hd182231182471%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop182120182307%_ - _%target182117182302%_))))) + (_%loop182226182413%_ + _%target182223182408%_))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191408191409%_)) - (let ((_%e182107182427%_ + _%__stx191514191515%_)) + (let ((_%e182213182533%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191408191409%_)))) - (let ((_%tl182109182432%_ + _%__stx191514191515%_)))) + (let ((_%tl182215182538%_ (let () (declare (not safe)) - (##cdr _%e182107182427%_))) - (_%hd182108182430%_ + (##cdr _%e182213182533%_))) + (_%hd182214182536%_ (let () (declare (not safe)) - (##car _%e182107182427%_)))) + (##car _%e182213182533%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182108182430%_)) + _%hd182214182536%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd182108182430%_)) - (_%__kont191410191411%_) + _%hd182214182536%_)) + (_%__kont191516191517%_) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd182108182430%_)) + _%hd182214182536%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl182109182432%_)) - (let ((_%e182114182294%_ + (gx#stx-pair? _%tl182215182538%_)) + (let ((_%e182220182400%_ (let () (declare (not safe)) - (gx#stx-e _%tl182109182432%_)))) - (let ((_%tl182116182299%_ + (gx#stx-e _%tl182215182538%_)))) + (let ((_%tl182222182405%_ (let () (declare (not safe)) - (##cdr _%e182114182294%_))) - (_%hd182115182297%_ + (##cdr _%e182220182400%_))) + (_%hd182221182403%_ (let () (declare (not safe)) - (##car _%e182114182294%_)))) + (##car _%e182220182400%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182115182297%_)) - (let ((_%__splice191414191415%_ + (gx#stx-pair/null? _%hd182221182403%_)) + (let ((_%__splice191520191521%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd182115182297%_ + _%hd182221182403%_ '0)))) - (let ((_%tl182119182304%_ + (let ((_%tl182225182410%_ (let () (declare (not safe)) (##vector-ref - _%__splice191414191415%_ + _%__splice191520191521%_ '1))) - (_%target182117182302%_ + (_%target182223182408%_ (let () (declare (not safe)) (##vector-ref - _%__splice191414191415%_ + _%__splice191520191521%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182119182304%_)) - (_%__match191455191456%_ - _%e182107182427%_ - _%hd182108182430%_ - _%tl182109182432%_ - _%e182114182294%_ - _%hd182115182297%_ - _%tl182116182299%_ - _%__splice191414191415%_ - _%target182117182302%_ - _%tl182119182304%_) + (gx#stx-null? _%tl182225182410%_)) + (_%__match191561191562%_ + _%e182213182533%_ + _%hd182214182536%_ + _%tl182215182538%_ + _%e182220182400%_ + _%hd182221182403%_ + _%tl182222182405%_ + _%__splice191520191521%_ + _%target182223182408%_ + _%tl182225182410%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182116182299%_)) - (let ((_%e182149182260%_ + (gx#stx-pair? _%tl182222182405%_)) + (let ((_%e182255182366%_ (let () (declare (not safe)) (gx#stx-e - _%tl182116182299%_)))) - (let ((_%tl182151182265%_ + _%tl182222182405%_)))) + (let ((_%tl182257182371%_ (let () (declare (not safe)) - (##cdr _%e182149182260%_))) - (_%hd182150182263%_ + (##cdr _%e182255182366%_))) + (_%hd182256182369%_ (let () (declare (not safe)) - (##car _%e182149182260%_)))) + (##car _%e182255182366%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182151182265%_)) - (_%__kont191416191417%_ - _%hd182150182263%_) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_))))) + _%tl182257182371%_)) + (_%__kont191522191523%_ + _%hd182256182369%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182116182299%_)) - (let ((_%e182149182260%_ + (gx#stx-pair? _%tl182222182405%_)) + (let ((_%e182255182366%_ (let () (declare (not safe)) - (gx#stx-e _%tl182116182299%_)))) - (let ((_%tl182151182265%_ + (gx#stx-e _%tl182222182405%_)))) + (let ((_%tl182257182371%_ (let () (declare (not safe)) - (##cdr _%e182149182260%_))) - (_%hd182150182263%_ + (##cdr _%e182255182366%_))) + (_%hd182256182369%_ (let () (declare (not safe)) - (##car _%e182149182260%_)))) + (##car _%e182255182366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182151182265%_)) - (_%__kont191416191417%_ - _%hd182150182263%_) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_))))) - (_%__kont191420191421%_)) + (gx#stx-null? _%tl182257182371%_)) + (_%__kont191522191523%_ + _%hd182256182369%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_))))) + (_%__kont191526191527%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd182108182430%_)) + (gx#stx-eq? '%#if _%hd182214182536%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182109182432%_)) - (let ((_%e182158182191%_ + (gx#stx-pair? _%tl182215182538%_)) + (let ((_%e182264182297%_ (let () (declare (not safe)) - (gx#stx-e _%tl182109182432%_)))) - (let ((_%tl182160182196%_ + (gx#stx-e _%tl182215182538%_)))) + (let ((_%tl182266182302%_ (let () (declare (not safe)) - (##cdr _%e182158182191%_))) - (_%hd182159182194%_ + (##cdr _%e182264182297%_))) + (_%hd182265182300%_ (let () (declare (not safe)) - (##car _%e182158182191%_)))) + (##car _%e182264182297%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182160182196%_)) - (let ((_%e182161182199%_ + (gx#stx-pair? _%tl182266182302%_)) + (let ((_%e182267182305%_ (let () (declare (not safe)) - (gx#stx-e _%tl182160182196%_)))) - (let ((_%tl182163182204%_ + (gx#stx-e _%tl182266182302%_)))) + (let ((_%tl182269182310%_ (let () (declare (not safe)) - (##cdr _%e182161182199%_))) - (_%hd182162182202%_ + (##cdr _%e182267182305%_))) + (_%hd182268182308%_ (let () (declare (not safe)) - (##car _%e182161182199%_)))) + (##car _%e182267182305%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl182163182204%_)) - (let ((_%e182164182207%_ + (gx#stx-pair? _%tl182269182310%_)) + (let ((_%e182270182313%_ (let () (declare (not safe)) (gx#stx-e - _%tl182163182204%_)))) - (let ((_%tl182166182212%_ + _%tl182269182310%_)))) + (let ((_%tl182272182318%_ (let () (declare (not safe)) - (##cdr _%e182164182207%_))) - (_%hd182165182210%_ + (##cdr _%e182270182313%_))) + (_%hd182271182316%_ (let () (declare (not safe)) - (##car _%e182164182207%_)))) + (##car _%e182270182313%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl182166182212%_)) - (_%__kont191418191419%_ - _%hd182165182210%_ - _%hd182162182202%_ - _%hd182159182194%_) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)) - (_%__kont191420191421%_)))) + _%tl182272182318%_)) + (_%__kont191524191525%_ + _%hd182271182316%_ + _%hd182268182308%_ + _%hd182265182300%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)) + (_%__kont191526191527%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191420191421%_)))) - (_%__kont191420191421%_)))))))) - (let* ((_%kont181993%_ (caddr _%block181989%_)) - (_%g181995182021%_ - (lambda (_%g181996182018%_) + (_%__kont191526191527%_)))) + (_%__kont191526191527%_)))))))) + (let* ((_%kont182099%_ (caddr _%block182095%_)) + (_%g182101182127%_ + (lambda (_%g182102182124%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g181996182018%_)))) - (_%g181994182096%_ - (lambda (_%g181996182024%_) + _%g182102182124%_)))) + (_%g182100182202%_ + (lambda (_%g182102182130%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g181996182024%_)) - (let ((_%e181999182026%_ + (gx#stx-pair? _%g182102182130%_)) + (let ((_%e182105182132%_ (let () (declare (not safe)) - (gx#stx-e _%g181996182024%_)))) - (let ((_%hd182000182029%_ + (gx#stx-e _%g182102182130%_)))) + (let ((_%hd182106182135%_ (let () (declare (not safe)) - (##car _%e181999182026%_))) - (_%tl182001182031%_ + (##car _%e182105182132%_))) + (_%tl182107182137%_ (let () (declare (not safe)) - (##cdr _%e181999182026%_)))) + (##cdr _%e182105182132%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd182000182029%_)) + _%hd182106182135%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd182000182029%_)) + _%hd182106182135%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182001182031%_)) - (let ((_%e182002182034%_ + _%tl182107182137%_)) + (let ((_%e182108182140%_ (let () (declare (not safe)) (gx#stx-e - _%tl182001182031%_)))) - (let ((_%hd182003182037%_ + _%tl182107182137%_)))) + (let ((_%hd182109182143%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e182002182034%_))) - (_%tl182004182039%_ - (let () (declare (not safe)) (##cdr _%e182002182034%_)))) + (##car _%e182108182140%_))) + (_%tl182110182145%_ + (let () (declare (not safe)) (##cdr _%e182108182140%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd182003182037%_)) - (let ((_g192501_ + (gx#stx-pair/null? _%hd182109182143%_)) + (let ((_g192607_ (let () (declare (not safe)) - (gx#syntax-split-splice _%hd182003182037%_ '0)))) + (gx#syntax-split-splice _%hd182109182143%_ '0)))) (begin - (let ((_g192502_ + (let ((_g192608_ (let () (declare (not safe)) - (if (##values? _g192501_) - (##vector-length _g192501_) + (if (##values? _g192607_) + (##values-length _g192607_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192502_ 2))) - (error "Context expects 2 values" _g192502_))) - (let ((_%target182005182042%_ + (##fx= _g192608_ 2))) + (error "Context expects 2 values" _g192608_))) + (let ((_%target182111182148%_ (let () (declare (not safe)) - (##vector-ref _g192501_ 0))) - (_%tl182007182044%_ + (##values-ref _g192607_ 0))) + (_%tl182113182150%_ (let () (declare (not safe)) - (##vector-ref _g192501_ 1)))) + (##values-ref _g192607_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182007182044%_)) - (letrec ((_%loop182008182047%_ - (lambda (_%hd182006182050%_ - _%id182012182052%_) + (gx#stx-null? _%tl182113182150%_)) + (letrec ((_%loop182114182153%_ + (lambda (_%hd182112182156%_ + _%id182118182158%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd182006182050%_)) - (let ((_%e182009182055%_ + _%hd182112182156%_)) + (let ((_%e182115182161%_ (let () (declare (not safe)) (gx#stx-e - _%hd182006182050%_)))) - (let ((_%lp-hd182010182058%_ + _%hd182112182156%_)))) + (let ((_%lp-hd182116182164%_ (let () (declare (not safe)) - (##car _%e182009182055%_))) - (_%lp-tl182011182060%_ + (##car _%e182115182161%_))) + (_%lp-tl182117182166%_ (let () (declare (not safe)) - (##cdr _%e182009182055%_)))) - (_%loop182008182047%_ - _%lp-tl182011182060%_ - (cons _%lp-hd182010182058%_ - _%id182012182052%_)))) - (let ((_%id182013182063%_ - (reverse _%id182012182052%_))) + (##cdr _%e182115182161%_)))) + (_%loop182114182153%_ + _%lp-tl182117182166%_ + (cons _%lp-hd182116182164%_ + _%id182118182158%_)))) + (let ((_%id182119182169%_ + (reverse _%id182118182158%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl182004182039%_)) - (let ((_%e182014182066%_ + _%tl182110182145%_)) + (let ((_%e182120182172%_ (let () (declare (not safe)) (gx#stx-e - _%tl182004182039%_)))) - (let ((_%hd182015182069%_ + _%tl182110182145%_)))) + (let ((_%hd182121182175%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e182014182066%_))) - (_%tl182016182071%_ - (let () (declare (not safe)) (##cdr _%e182014182066%_)))) + (##car _%e182120182172%_))) + (_%tl182122182177%_ + (let () (declare (not safe)) (##cdr _%e182120182172%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl182016182071%_)) - ((lambda (_%L182074%_ _%L182075%_) - (_%nonlinear-expr?181991%_ _%L182074%_)) - _%hd182015182069%_ - _%id182013182063%_) - (_%g181995182021%_ _%g181996182024%_)))) + (gx#stx-null? _%tl182122182177%_)) + ((lambda (_%L182180%_ _%L182181%_) + (_%nonlinear-expr?182097%_ _%L182180%_)) + _%hd182121182175%_ + _%id182119182169%_) + (_%g182101182127%_ _%g182102182130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181995182021%_ - _%g181996182024%_))))))) - (_%loop182008182047%_ - _%target182005182042%_ + (_%g182101182127%_ + _%g182102182130%_))))))) + (_%loop182114182153%_ + _%target182111182148%_ '())) - (_%g181995182021%_ _%g181996182024%_))))) - (_%g181995182021%_ _%g181996182024%_)))) + (_%g182101182127%_ _%g182102182130%_))))) + (_%g182101182127%_ _%g182102182130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g181995182021%_ - _%g181996182024%_)) - (_%g181995182021%_ - _%g181996182024%_)) - (_%g181995182021%_ - _%g181996182024%_)))) - (_%g181995182021%_ _%g181996182024%_))))) - (_%g181994182096%_ _%kont181993%_)))))) - (_%do-assert181963%_ - _%assert181722%_ + (_%g182101182127%_ + _%g182102182130%_)) + (_%g182101182127%_ + _%g182102182130%_)) + (_%g182101182127%_ + _%g182102182130%_)))) + (_%g182101182127%_ _%g182102182130%_))))) + (_%g182100182202%_ _%kont182099%_)))))) + (_%do-assert182069%_ + _%assert181828%_ (lambda () - (_%do-bind181970%_ - _%bind181723%_ + (_%do-bind182076%_ + _%bind181829%_ (lambda () (if (memq '@match:prefix (let () (declare (not safe)) (gxc#current-annotation-optimizer))) - (_%do-splice!181973%_ - (lambda () (_%optimize-e181974%_ _%body181721%_))) - (_%optimize-e181974%_ _%body181721%_))))))))) + (_%do-splice!182079%_ + (lambda () (_%optimize-e182080%_ _%body181827%_))) + (_%optimize-e182080%_ _%body181827%_))))))))) (define gxc#optimize-match-prune-blocks - (lambda (_%blocks181633%_ _%konts181634%_) - (letrec* ((_%rtab181636%_ + (lambda (_%blocks181739%_ _%konts181740%_) + (letrec* ((_%rtab181742%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181638%_) - (let ((__tmp192503 (caddr _%block181638%_))) + (lambda (_%block181744%_) + (let ((__tmp192609 (caddr _%block181744%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181636%_ - __tmp192503))) - _%konts181634%_) - (let _%lp181640%_ ((_%rest181642%_ _%blocks181633%_) - (_%r181643%_ '())) - (let* ((_%rest181644181652%_ _%rest181642%_) - (_%else181646181660%_ (lambda () (reverse _%r181643%_))) - (_%K181648181709%_ - (lambda (_%rest181663%_ _%block181664%_) - (let* ((_%block181665181676%_ _%block181664%_) - (_%E181667181680%_ + _%rtab181742%_ + __tmp192609))) + _%konts181740%_) + (let _%lp181746%_ ((_%rest181748%_ _%blocks181739%_) + (_%r181749%_ '())) + (let* ((_%rest181750181758%_ _%rest181748%_) + (_%else181752181766%_ (lambda () (reverse _%r181749%_))) + (_%K181754181815%_ + (lambda (_%rest181769%_ _%block181770%_) + (let* ((_%block181771181782%_ _%block181770%_) + (_%E181773181786%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block181665181676%_ + _%block181771181782%_ '([name type kont . _]))) '#!void)) - (_%K181668181687%_ - (lambda (_%kont181683%_ - _%type181684%_ - _%name181685%_) - (if (let ((__tmp192504 + (_%K181774181793%_ + (lambda (_%kont181789%_ + _%type181790%_ + _%name181791%_) + (if (let ((__tmp192610 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181685%_)))) + _%name181791%_)))) (declare (not safe)) - (__hash-get _%rtab181636%_ __tmp192504)) + (__hash-get _%rtab181742%_ __tmp192610)) (begin (let () (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181636%_ - _%kont181683%_)) - (_%lp181640%_ - _%rest181663%_ - (cons _%block181664%_ _%r181643%_))) - (_%lp181640%_ - _%rest181663%_ - _%r181643%_))))) - (if (pair? _%block181665181676%_) - (let ((_%hd181669181690%_ + _%rtab181742%_ + _%kont181789%_)) + (_%lp181746%_ + _%rest181769%_ + (cons _%block181770%_ _%r181749%_))) + (_%lp181746%_ + _%rest181769%_ + _%r181749%_))))) + (if (pair? _%block181771181782%_) + (let ((_%hd181775181796%_ (let () (declare (not safe)) - (##car _%block181665181676%_))) - (_%tl181670181692%_ + (##car _%block181771181782%_))) + (_%tl181776181798%_ (let () (declare (not safe)) - (##cdr _%block181665181676%_)))) - (let ((_%name181695%_ _%hd181669181690%_)) - (if (pair? _%tl181670181692%_) - (let ((_%hd181671181697%_ + (##cdr _%block181771181782%_)))) + (let ((_%name181801%_ _%hd181775181796%_)) + (if (pair? _%tl181776181798%_) + (let ((_%hd181777181803%_ (let () (declare (not safe)) - (##car _%tl181670181692%_))) - (_%tl181672181699%_ + (##car _%tl181776181798%_))) + (_%tl181778181805%_ (let () (declare (not safe)) - (##cdr _%tl181670181692%_)))) - (let ((_%type181702%_ - _%hd181671181697%_)) - (if (pair? _%tl181672181699%_) - (let* ((_%hd181673181704%_ + (##cdr _%tl181776181798%_)))) + (let ((_%type181808%_ + _%hd181777181803%_)) + (if (pair? _%tl181778181805%_) + (let* ((_%hd181779181810%_ (let () (declare (not safe)) - (##car _%tl181672181699%_))) - (_%kont181707%_ - _%hd181673181704%_)) - (_%K181668181687%_ - _%kont181707%_ - _%type181702%_ - _%name181695%_)) - (_%E181667181680%_)))) - (_%E181667181680%_)))) - (_%E181667181680%_)))))) - (if (pair? _%rest181644181652%_) - (let ((_%hd181649181712%_ + (##car _%tl181778181805%_))) + (_%kont181813%_ + _%hd181779181810%_)) + (_%K181774181793%_ + _%kont181813%_ + _%type181808%_ + _%name181801%_)) + (_%E181773181786%_)))) + (_%E181773181786%_)))) + (_%E181773181786%_)))))) + (if (pair? _%rest181750181758%_) + (let ((_%hd181755181818%_ (let () (declare (not safe)) - (##car _%rest181644181652%_))) - (_%tl181650181714%_ + (##car _%rest181750181758%_))) + (_%tl181756181820%_ (let () (declare (not safe)) - (##cdr _%rest181644181652%_)))) - (let* ((_%block181717%_ _%hd181649181712%_) - (_%rest181719%_ _%tl181650181714%_)) - (_%K181648181709%_ _%rest181719%_ _%block181717%_))) - (_%else181646181660%_))))))) + (##cdr _%rest181750181758%_)))) + (let* ((_%block181823%_ _%hd181755181818%_) + (_%rest181825%_ _%tl181756181820%_)) + (_%K181754181815%_ _%rest181825%_ _%block181823%_))) + (_%else181752181766%_))))))) (define gxc#optimize-match-fuse-restart-blocks - (lambda (_%blocks181557%_ _%konts181558%_) - (let* ((_%blocks181559181575%_ _%blocks181557%_) - (_%else181561181583%_ (lambda () _%blocks181557%_)) - (_%K181563181601%_ - (lambda (_%rest181586%_ _%kont181587%_ _%name181588%_) - (letrec* ((_%rtab181590%_ + (lambda (_%blocks181663%_ _%konts181664%_) + (let* ((_%blocks181665181681%_ _%blocks181663%_) + (_%else181667181689%_ (lambda () _%blocks181663%_)) + (_%K181669181707%_ + (lambda (_%rest181692%_ _%kont181693%_ _%name181694%_) + (letrec* ((_%rtab181696%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%block181592%_) - (let ((__tmp192505 (caddr _%block181592%_))) + (lambda (_%block181698%_) + (let ((__tmp192611 (caddr _%block181698%_))) (declare (not safe)) (gxc#apply-collect-runtime-refs__% '#f - _%rtab181590%_ - __tmp192505))) - _%konts181558%_) - (if (let ((__tmp192506 - (let ((__tmp192507 + _%rtab181696%_ + __tmp192611))) + _%konts181664%_) + (if (let ((__tmp192612 + (let ((__tmp192613 (let () (declare (not safe)) (gxc#identifier-symbol - _%name181588%_)))) + _%name181694%_)))) (declare (not safe)) - (hash-ref__0 _%rtab181590%_ __tmp192507)))) + (hash-ref__0 _%rtab181696%_ __tmp192613)))) (declare (not safe)) - (##fx= __tmp192506 '1)) - (let* ((_%rblock181596%_ - (let ((__tmp192508 - (lambda (_%block181594%_) - (let ((__tmp192510 - (cons _%name181588%_ '())) - (__tmp192509 - (caddr _%block181594%_))) + (##fx= __tmp192612 '1)) + (let* ((_%rblock181702%_ + (let ((__tmp192614 + (lambda (_%block181700%_) + (let ((__tmp192616 + (cons _%name181694%_ '())) + (__tmp192615 + (caddr _%block181700%_))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192510 - __tmp192509))))) + __tmp192616 + __tmp192615))))) (declare (not safe)) - (__find __tmp192508 _%konts181558%_))) - (_%assert181598%_ + (__find __tmp192614 _%konts181664%_))) + (_%assert181704%_ (gxc#optimize-match-assert-restart - _%rblock181596%_ - _%name181588%_))) - (cons (cons _%name181588%_ + _%rblock181702%_ + _%name181694%_))) + (cons (cons _%name181694%_ (cons 'restart: - (cons _%kont181587%_ - (cons _%assert181598%_ + (cons _%kont181693%_ + (cons _%assert181704%_ '())))) - _%rest181586%_)) - _%blocks181557%_))))) - (if (pair? _%blocks181559181575%_) - (let ((_%hd181564181604%_ + _%rest181692%_)) + _%blocks181663%_))))) + (if (pair? _%blocks181665181681%_) + (let ((_%hd181670181710%_ (let () (declare (not safe)) - (##car _%blocks181559181575%_))) - (_%tl181565181606%_ + (##car _%blocks181665181681%_))) + (_%tl181671181712%_ (let () (declare (not safe)) - (##cdr _%blocks181559181575%_)))) - (if (pair? _%hd181564181604%_) - (let ((_%hd181566181609%_ + (##cdr _%blocks181665181681%_)))) + (if (pair? _%hd181670181710%_) + (let ((_%hd181672181715%_ (let () (declare (not safe)) - (##car _%hd181564181604%_))) - (_%tl181567181611%_ + (##car _%hd181670181710%_))) + (_%tl181673181717%_ (let () (declare (not safe)) - (##cdr _%hd181564181604%_)))) - (let ((_%name181614%_ _%hd181566181609%_)) - (if (pair? _%tl181567181611%_) - (let ((_%hd181568181616%_ + (##cdr _%hd181670181710%_)))) + (let ((_%name181720%_ _%hd181672181715%_)) + (if (pair? _%tl181673181717%_) + (let ((_%hd181674181722%_ (let () (declare (not safe)) - (##car _%tl181567181611%_))) - (_%tl181569181618%_ + (##car _%tl181673181717%_))) + (_%tl181675181724%_ (let () (declare (not safe)) - (##cdr _%tl181567181611%_)))) + (##cdr _%tl181673181717%_)))) (if (let () (declare (not safe)) - (##eq? _%hd181568181616%_ 'restart:)) - (if (pair? _%tl181569181618%_) - (let ((_%hd181570181621%_ + (##eq? _%hd181674181722%_ 'restart:)) + (if (pair? _%tl181675181724%_) + (let ((_%hd181676181727%_ (let () (declare (not safe)) - (##car _%tl181569181618%_))) - (_%tl181571181623%_ + (##car _%tl181675181724%_))) + (_%tl181677181729%_ (let () (declare (not safe)) - (##cdr _%tl181569181618%_)))) - (let ((_%kont181626%_ - _%hd181570181621%_)) - (if (pair? _%tl181571181623%_) - (let ((_%tl181573181628%_ + (##cdr _%tl181675181724%_)))) + (let ((_%kont181732%_ + _%hd181676181727%_)) + (if (pair? _%tl181677181729%_) + (let ((_%tl181679181734%_ (let () (declare (not safe)) - (##cdr _%tl181571181623%_)))) - (if (null? _%tl181573181628%_) - (let ((_%rest181631%_ - _%tl181565181606%_)) - (_%K181563181601%_ - _%rest181631%_ - _%kont181626%_ - _%name181614%_)) - (_%else181561181583%_))) - (_%else181561181583%_)))) - (_%else181561181583%_)) - (_%else181561181583%_))) - (_%else181561181583%_)))) - (_%else181561181583%_))) - (_%else181561181583%_))))) + (##cdr _%tl181677181729%_)))) + (if (null? _%tl181679181734%_) + (let ((_%rest181737%_ + _%tl181671181712%_)) + (_%K181669181707%_ + _%rest181737%_ + _%kont181732%_ + _%name181720%_)) + (_%else181667181689%_))) + (_%else181667181689%_)))) + (_%else181667181689%_)) + (_%else181667181689%_))) + (_%else181667181689%_)))) + (_%else181667181689%_))) + (_%else181667181689%_))))) (define gxc#optimize-match-assert-restart - (lambda (_%block180953%_ _%name180954%_) - (letrec ((_%assert-restart180956%_ - (lambda (_%expr181112%_ _%assert181113%_) - (let* ((_%__stx191512191513%_ _%expr181112%_) - (_%g181119181216%_ + (lambda (_%block181059%_ _%name181060%_) + (letrec ((_%assert-restart181062%_ + (lambda (_%expr181218%_ _%assert181219%_) + (let* ((_%__stx191618191619%_ _%expr181218%_) + (_%g181225181322%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191512191513%_))))) - (let ((_%__kont191514191515%_ - (lambda (_%L181532%_ _%L181533%_ _%L181534%_) - (let ((_%$e181551%_ - (_%assert-restart180956%_ - _%L181533%_ - (cons (cons _%L181534%_ '#t) - _%assert181113%_)))) - (if _%$e181551%_ - _%$e181551%_ - (_%assert-restart180956%_ - _%L181532%_ - (cons (cons _%L181534%_ '#f) - _%assert181113%_)))))) - (_%__kont191516191517%_ - (lambda (_%L181480%_) + _%__stx191618191619%_))))) + (let ((_%__kont191620191621%_ + (lambda (_%L181638%_ _%L181639%_ _%L181640%_) + (let ((_%$e181657%_ + (_%assert-restart181062%_ + _%L181639%_ + (cons (cons _%L181640%_ '#t) + _%assert181219%_)))) + (if _%$e181657%_ + _%$e181657%_ + (_%assert-restart181062%_ + _%L181638%_ + (cons (cons _%L181640%_ '#f) + _%assert181219%_)))))) + (_%__kont191622191623%_ + (lambda (_%L181586%_) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L181480%_ - _%name180954%_)) - _%assert181113%_ + _%L181586%_ + _%name181060%_)) + _%assert181219%_ '#f))) - (_%__kont191518191519%_ - (lambda (_%L181430%_) - (_%assert-restart180956%_ - _%L181430%_ - _%assert181113%_))) - (_%__kont191520191521%_ - (lambda (_%L181356%_ - _%L181357%_ - _%L181358%_ - _%L181359%_ - _%L181360%_) - (_%assert-restart180956%_ - _%L181358%_ - _%assert181113%_))) - (_%__kont191526191527%_ (lambda () '#f))) - (let ((_%__match191681191682%_ - (lambda (_%e181164181228%_ - _%hd181165181231%_ - _%tl181166181233%_ - _%e181167181236%_ - _%hd181168181239%_ - _%tl181169181241%_ - _%e181170181244%_ - _%hd181171181247%_ - _%tl181172181249%_ - _%e181173181252%_ - _%hd181174181255%_ - _%tl181175181257%_ - _%e181176181260%_ - _%hd181177181263%_ - _%tl181178181265%_ - _%e181179181268%_ - _%hd181180181271%_ - _%tl181181181273%_ - _%e181182181276%_ - _%hd181183181279%_ - _%tl181184181281%_ - _%e181185181284%_ - _%hd181186181287%_ - _%tl181187181289%_ - _%__splice191522191523%_ - _%target181188181292%_ - _%tl181190181294%_) - (letrec ((_%loop181191181297%_ - (lambda (_%hd181189181300%_ - _%id181195181302%_) + (_%__kont191624191625%_ + (lambda (_%L181536%_) + (_%assert-restart181062%_ + _%L181536%_ + _%assert181219%_))) + (_%__kont191626191627%_ + (lambda (_%L181462%_ + _%L181463%_ + _%L181464%_ + _%L181465%_ + _%L181466%_) + (_%assert-restart181062%_ + _%L181464%_ + _%assert181219%_))) + (_%__kont191632191633%_ (lambda () '#f))) + (let ((_%__match191787191788%_ + (lambda (_%e181270181334%_ + _%hd181271181337%_ + _%tl181272181339%_ + _%e181273181342%_ + _%hd181274181345%_ + _%tl181275181347%_ + _%e181276181350%_ + _%hd181277181353%_ + _%tl181278181355%_ + _%e181279181358%_ + _%hd181280181361%_ + _%tl181281181363%_ + _%e181282181366%_ + _%hd181283181369%_ + _%tl181284181371%_ + _%e181285181374%_ + _%hd181286181377%_ + _%tl181287181379%_ + _%e181288181382%_ + _%hd181289181385%_ + _%tl181290181387%_ + _%e181291181390%_ + _%hd181292181393%_ + _%tl181293181395%_ + _%__splice191628191629%_ + _%target181294181398%_ + _%tl181296181400%_) + (letrec ((_%loop181297181403%_ + (lambda (_%hd181295181406%_ + _%id181301181408%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181189181300%_)) - (let ((_%e181192181305%_ + _%hd181295181406%_)) + (let ((_%e181298181411%_ (let () (declare (not safe)) (gx#stx-e - _%hd181189181300%_)))) - (let ((_%lp-tl181194181310%_ + _%hd181295181406%_)))) + (let ((_%lp-tl181300181416%_ (let () (declare (not safe)) - (##cdr _%e181192181305%_))) - (_%lp-hd181193181308%_ + (##cdr _%e181298181411%_))) + (_%lp-hd181299181414%_ (let () (declare (not safe)) - (##car _%e181192181305%_)))) - (_%loop181191181297%_ - _%lp-tl181194181310%_ - (cons _%lp-hd181193181308%_ - _%id181195181302%_)))) - (let ((_%id181196181313%_ - (reverse _%id181195181302%_))) + (##car _%e181298181411%_)))) + (_%loop181297181403%_ + _%lp-tl181300181416%_ + (cons _%lp-hd181299181414%_ + _%id181301181408%_)))) + (let ((_%id181302181419%_ + (reverse _%id181301181408%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181187181289%_)) - (let ((_%e181197181316%_ + _%tl181293181395%_)) + (let ((_%e181303181422%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181187181289%_)))) - (let ((_%tl181199181321%_ + (gx#stx-e _%tl181293181395%_)))) + (let ((_%tl181305181427%_ (let () (declare (not safe)) - (##cdr _%e181197181316%_))) - (_%hd181198181319%_ + (##cdr _%e181303181422%_))) + (_%hd181304181425%_ (let () (declare (not safe)) - (##car _%e181197181316%_)))) + (##car _%e181303181422%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181199181321%_)) + (gx#stx-null? _%tl181305181427%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181181181273%_)) + (gx#stx-null? _%tl181287181379%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl181172181249%_)) - (let ((_%__splice191524191525%_ + (gx#stx-pair/null? _%tl181278181355%_)) + (let ((_%__splice191630191631%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl181172181249%_ + _%tl181278181355%_ '0)))) - (let ((_%tl181202181326%_ + (let ((_%tl181308181432%_ (let () (declare (not safe)) (##vector-ref - _%__splice191524191525%_ + _%__splice191630191631%_ '1))) - (_%target181200181324%_ + (_%target181306181430%_ (let () (declare (not safe)) (##vector-ref - _%__splice191524191525%_ + _%__splice191630191631%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181202181326%_)) - (letrec ((_%loop181203181329%_ - (lambda (_%hd181201181332%_ - _%bind181207181334%_) + (gx#stx-null? _%tl181308181432%_)) + (letrec ((_%loop181309181435%_ + (lambda (_%hd181307181438%_ + _%bind181313181440%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181201181332%_)) - (let ((_%e181204181337%_ + _%hd181307181438%_)) + (let ((_%e181310181443%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd181201181332%_)))) - (let ((_%lp-tl181206181342%_ + (gx#stx-e _%hd181307181438%_)))) + (let ((_%lp-tl181312181448%_ (let () (declare (not safe)) - (##cdr _%e181204181337%_))) - (_%lp-hd181205181340%_ + (##cdr _%e181310181443%_))) + (_%lp-hd181311181446%_ (let () (declare (not safe)) - (##car _%e181204181337%_)))) - (_%loop181203181329%_ - _%lp-tl181206181342%_ - (cons _%lp-hd181205181340%_ _%bind181207181334%_)))) - (let ((_%bind181208181345%_ (reverse _%bind181207181334%_))) + (##car _%e181310181443%_)))) + (_%loop181309181435%_ + _%lp-tl181312181448%_ + (cons _%lp-hd181311181446%_ _%bind181313181440%_)))) + (let ((_%bind181314181451%_ (reverse _%bind181313181440%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181169181241%_)) - (let ((_%e181209181348%_ + (gx#stx-pair? _%tl181275181347%_)) + (let ((_%e181315181454%_ (let () (declare (not safe)) - (gx#stx-e _%tl181169181241%_)))) - (let ((_%tl181211181353%_ + (gx#stx-e _%tl181275181347%_)))) + (let ((_%tl181317181459%_ (let () (declare (not safe)) - (##cdr _%e181209181348%_))) - (_%hd181210181351%_ + (##cdr _%e181315181454%_))) + (_%hd181316181457%_ (let () (declare (not safe)) - (##car _%e181209181348%_)))) + (##car _%e181315181454%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181211181353%_)) - (_%__kont191520191521%_ - _%hd181210181351%_ - _%bind181208181345%_ - _%hd181198181319%_ - _%id181196181313%_ - _%hd181177181263%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_))))))) + (gx#stx-null? _%tl181317181459%_)) + (_%__kont191626191627%_ + _%hd181316181457%_ + _%bind181314181451%_ + _%hd181304181425%_ + _%id181302181419%_ + _%hd181283181369%_) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181203181329%_ - _%target181200181324%_ + (_%loop181309181435%_ + _%target181306181430%_ '())) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_))))))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop181191181297%_ - _%target181188181292%_ + (_%loop181297181403%_ + _%target181294181398%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191512191513%_)) - (let ((_%e181124181500%_ + (gx#stx-pair? _%__stx191618191619%_)) + (let ((_%e181230181606%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191512191513%_)))) - (let ((_%tl181126181505%_ + (gx#stx-e _%__stx191618191619%_)))) + (let ((_%tl181232181611%_ (let () (declare (not safe)) - (##cdr _%e181124181500%_))) - (_%hd181125181503%_ + (##cdr _%e181230181606%_))) + (_%hd181231181609%_ (let () (declare (not safe)) - (##car _%e181124181500%_)))) + (##car _%e181230181606%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181125181503%_)) + (gx#identifier? _%hd181231181609%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd181125181503%_)) + _%hd181231181609%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181126181505%_)) - (let ((_%e181127181508%_ + _%tl181232181611%_)) + (let ((_%e181233181614%_ (let () (declare (not safe)) (gx#stx-e - _%tl181126181505%_)))) - (let ((_%tl181129181513%_ + _%tl181232181611%_)))) + (let ((_%tl181235181619%_ (let () (declare (not safe)) - (##cdr _%e181127181508%_))) - (_%hd181128181511%_ + (##cdr _%e181233181614%_))) + (_%hd181234181617%_ (let () (declare (not safe)) - (##car _%e181127181508%_)))) + (##car _%e181233181614%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181129181513%_)) - (let ((_%e181130181516%_ + _%tl181235181619%_)) + (let ((_%e181236181622%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181129181513%_)))) - (let ((_%tl181132181521%_ - (let () (declare (not safe)) (##cdr _%e181130181516%_))) - (_%hd181131181519%_ + (gx#stx-e _%tl181235181619%_)))) + (let ((_%tl181238181627%_ + (let () (declare (not safe)) (##cdr _%e181236181622%_))) + (_%hd181237181625%_ (let () (declare (not safe)) - (##car _%e181130181516%_)))) + (##car _%e181236181622%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181132181521%_)) - (let ((_%e181133181524%_ + (gx#stx-pair? _%tl181238181627%_)) + (let ((_%e181239181630%_ (let () (declare (not safe)) - (gx#stx-e _%tl181132181521%_)))) - (let ((_%tl181135181529%_ + (gx#stx-e _%tl181238181627%_)))) + (let ((_%tl181241181635%_ (let () (declare (not safe)) - (##cdr _%e181133181524%_))) - (_%hd181134181527%_ + (##cdr _%e181239181630%_))) + (_%hd181240181633%_ (let () (declare (not safe)) - (##car _%e181133181524%_)))) + (##car _%e181239181630%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181135181529%_)) - (_%__kont191514191515%_ - _%hd181134181527%_ - _%hd181131181519%_ - _%hd181128181511%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) + (gx#stx-null? _%tl181241181635%_)) + (_%__kont191620191621%_ + _%hd181240181633%_ + _%hd181237181625%_ + _%hd181234181617%_) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191526191527%_)) + (_%__kont191632191633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd181125181503%_)) + _%hd181231181609%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181126181505%_)) - (let ((_%e181140181456%_ + _%tl181232181611%_)) + (let ((_%e181246181562%_ (let () (declare (not safe)) (gx#stx-e - _%tl181126181505%_)))) - (let ((_%tl181142181461%_ + _%tl181232181611%_)))) + (let ((_%tl181248181567%_ (let () (declare (not safe)) - (##cdr _%e181140181456%_))) - (_%hd181141181459%_ + (##cdr _%e181246181562%_))) + (_%hd181247181565%_ (let () (declare (not safe)) - (##car _%e181140181456%_)))) + (##car _%e181246181562%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd181141181459%_)) - (let ((_%e181143181464%_ + _%hd181247181565%_)) + (let ((_%e181249181570%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd181141181459%_)))) - (let ((_%tl181145181469%_ + (gx#stx-e _%hd181247181565%_)))) + (let ((_%tl181251181575%_ (let () (declare (not safe)) - (##cdr _%e181143181464%_))) - (_%hd181144181467%_ + (##cdr _%e181249181570%_))) + (_%hd181250181573%_ (let () (declare (not safe)) - (##car _%e181143181464%_)))) + (##car _%e181249181570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181144181467%_)) + (gx#identifier? _%hd181250181573%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd181144181467%_)) + (gx#stx-eq? '%#ref _%hd181250181573%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181145181469%_)) - (let ((_%e181146181472%_ + (gx#stx-pair? _%tl181251181575%_)) + (let ((_%e181252181578%_ (let () (declare (not safe)) - (gx#stx-e _%tl181145181469%_)))) - (let ((_%tl181148181477%_ + (gx#stx-e _%tl181251181575%_)))) + (let ((_%tl181254181583%_ (let () (declare (not safe)) - (##cdr _%e181146181472%_))) - (_%hd181147181475%_ + (##cdr _%e181252181578%_))) + (_%hd181253181581%_ (let () (declare (not safe)) - (##car _%e181146181472%_)))) + (##car _%e181252181578%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181148181477%_)) - (_%__kont191516191517%_ - _%hd181147181475%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) + (gx#stx-null? _%tl181254181583%_)) + (_%__kont191622191623%_ + _%hd181253181581%_) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191526191527%_)) + (_%__kont191632191633%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd181125181503%_)) + _%hd181231181609%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181126181505%_)) - (let ((_%e181153181414%_ + _%tl181232181611%_)) + (let ((_%e181259181520%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181126181505%_)))) - (let ((_%tl181155181419%_ - (let () (declare (not safe)) (##cdr _%e181153181414%_))) - (_%hd181154181417%_ + (gx#stx-e _%tl181232181611%_)))) + (let ((_%tl181261181525%_ + (let () (declare (not safe)) (##cdr _%e181259181520%_))) + (_%hd181260181523%_ (let () (declare (not safe)) - (##car _%e181153181414%_)))) + (##car _%e181259181520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181155181419%_)) - (let ((_%e181156181422%_ + (gx#stx-pair? _%tl181261181525%_)) + (let ((_%e181262181528%_ (let () (declare (not safe)) - (gx#stx-e _%tl181155181419%_)))) - (let ((_%tl181158181427%_ + (gx#stx-e _%tl181261181525%_)))) + (let ((_%tl181264181533%_ (let () (declare (not safe)) - (##cdr _%e181156181422%_))) - (_%hd181157181425%_ + (##cdr _%e181262181528%_))) + (_%hd181263181531%_ (let () (declare (not safe)) - (##car _%e181156181422%_)))) + (##car _%e181262181528%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl181158181427%_)) - (_%__kont191518191519%_ _%hd181157181425%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) + (gx#stx-null? _%tl181264181533%_)) + (_%__kont191624191625%_ _%hd181263181531%_) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd181125181503%_)) + _%hd181231181609%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181126181505%_)) - (let ((_%e181167181236%_ + _%tl181232181611%_)) + (let ((_%e181273181342%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl181126181505%_)))) - (let ((_%tl181169181241%_ + (gx#stx-e _%tl181232181611%_)))) + (let ((_%tl181275181347%_ (let () (declare (not safe)) - (##cdr _%e181167181236%_))) - (_%hd181168181239%_ + (##cdr _%e181273181342%_))) + (_%hd181274181345%_ (let () (declare (not safe)) - (##car _%e181167181236%_)))) + (##car _%e181273181342%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181168181239%_)) - (let ((_%e181170181244%_ + (gx#stx-pair? _%hd181274181345%_)) + (let ((_%e181276181350%_ (let () (declare (not safe)) - (gx#stx-e _%hd181168181239%_)))) - (let ((_%tl181172181249%_ + (gx#stx-e _%hd181274181345%_)))) + (let ((_%tl181278181355%_ (let () (declare (not safe)) - (##cdr _%e181170181244%_))) - (_%hd181171181247%_ + (##cdr _%e181276181350%_))) + (_%hd181277181353%_ (let () (declare (not safe)) - (##car _%e181170181244%_)))) + (##car _%e181276181350%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181171181247%_)) - (let ((_%e181173181252%_ + (gx#stx-pair? _%hd181277181353%_)) + (let ((_%e181279181358%_ (let () (declare (not safe)) - (gx#stx-e _%hd181171181247%_)))) - (let ((_%tl181175181257%_ + (gx#stx-e _%hd181277181353%_)))) + (let ((_%tl181281181363%_ (let () (declare (not safe)) - (##cdr _%e181173181252%_))) - (_%hd181174181255%_ + (##cdr _%e181279181358%_))) + (_%hd181280181361%_ (let () (declare (not safe)) - (##car _%e181173181252%_)))) + (##car _%e181279181358%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181174181255%_)) - (let ((_%e181176181260%_ + (gx#stx-pair? _%hd181280181361%_)) + (let ((_%e181282181366%_ (let () (declare (not safe)) (gx#stx-e - _%hd181174181255%_)))) - (let ((_%tl181178181265%_ + _%hd181280181361%_)))) + (let ((_%tl181284181371%_ (let () (declare (not safe)) - (##cdr _%e181176181260%_))) - (_%hd181177181263%_ + (##cdr _%e181282181366%_))) + (_%hd181283181369%_ (let () (declare (not safe)) - (##car _%e181176181260%_)))) + (##car _%e181282181366%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181178181265%_)) + _%tl181284181371%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl181175181257%_)) - (let ((_%e181179181268%_ + _%tl181281181363%_)) + (let ((_%e181285181374%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl181175181257%_)))) - (let ((_%tl181181181273%_ - (let () (declare (not safe)) (##cdr _%e181179181268%_))) - (_%hd181180181271%_ + (gx#stx-e _%tl181281181363%_)))) + (let ((_%tl181287181379%_ + (let () (declare (not safe)) (##cdr _%e181285181374%_))) + (_%hd181286181377%_ (let () (declare (not safe)) - (##car _%e181179181268%_)))) + (##car _%e181285181374%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd181180181271%_)) - (let ((_%e181182181276%_ + (gx#stx-pair? _%hd181286181377%_)) + (let ((_%e181288181382%_ (let () (declare (not safe)) - (gx#stx-e _%hd181180181271%_)))) - (let ((_%tl181184181281%_ + (gx#stx-e _%hd181286181377%_)))) + (let ((_%tl181290181387%_ (let () (declare (not safe)) - (##cdr _%e181182181276%_))) - (_%hd181183181279%_ + (##cdr _%e181288181382%_))) + (_%hd181289181385%_ (let () (declare (not safe)) - (##car _%e181182181276%_)))) + (##car _%e181288181382%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd181183181279%_)) + (gx#identifier? _%hd181289181385%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd181183181279%_)) + (gx#stx-eq? '%#lambda _%hd181289181385%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl181184181281%_)) - (let ((_%e181185181284%_ + (gx#stx-pair? _%tl181290181387%_)) + (let ((_%e181291181390%_ (let () (declare (not safe)) - (gx#stx-e _%tl181184181281%_)))) - (let ((_%tl181187181289%_ + (gx#stx-e _%tl181290181387%_)))) + (let ((_%tl181293181395%_ (let () (declare (not safe)) - (##cdr _%e181185181284%_))) - (_%hd181186181287%_ + (##cdr _%e181291181390%_))) + (_%hd181292181393%_ (let () (declare (not safe)) - (##car _%e181185181284%_)))) + (##car _%e181291181390%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd181186181287%_)) - (let ((_%__splice191522191523%_ + _%hd181292181393%_)) + (let ((_%__splice191628191629%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd181186181287%_ + _%hd181292181393%_ '0)))) - (let ((_%tl181190181294%_ + (let ((_%tl181296181400%_ (let () (declare (not safe)) (##vector-ref - _%__splice191522191523%_ + _%__splice191628191629%_ '1))) - (_%target181188181292%_ + (_%target181294181398%_ (let () (declare (not safe)) (##vector-ref - _%__splice191522191523%_ + _%__splice191628191629%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181190181294%_)) - (_%__match191681191682%_ - _%e181124181500%_ - _%hd181125181503%_ - _%tl181126181505%_ - _%e181167181236%_ - _%hd181168181239%_ - _%tl181169181241%_ - _%e181170181244%_ - _%hd181171181247%_ - _%tl181172181249%_ - _%e181173181252%_ - _%hd181174181255%_ - _%tl181175181257%_ - _%e181176181260%_ - _%hd181177181263%_ - _%tl181178181265%_ - _%e181179181268%_ - _%hd181180181271%_ - _%tl181181181273%_ - _%e181182181276%_ - _%hd181183181279%_ - _%tl181184181281%_ - _%e181185181284%_ - _%hd181186181287%_ - _%tl181187181289%_ - _%__splice191522191523%_ - _%target181188181292%_ - _%tl181190181294%_) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) + _%tl181296181400%_)) + (_%__match191787191788%_ + _%e181230181606%_ + _%hd181231181609%_ + _%tl181232181611%_ + _%e181273181342%_ + _%hd181274181345%_ + _%tl181275181347%_ + _%e181276181350%_ + _%hd181277181353%_ + _%tl181278181355%_ + _%e181279181358%_ + _%hd181280181361%_ + _%tl181281181363%_ + _%e181282181366%_ + _%hd181283181369%_ + _%tl181284181371%_ + _%e181285181374%_ + _%hd181286181377%_ + _%tl181287181379%_ + _%e181288181382%_ + _%hd181289181385%_ + _%tl181290181387%_ + _%e181291181390%_ + _%hd181292181393%_ + _%tl181293181395%_ + _%__splice191628191629%_ + _%target181294181398%_ + _%tl181296181400%_) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)) - (_%__kont191526191527%_))))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)) + (_%__kont191632191633%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191526191527%_)))) - (_%__kont191526191527%_)))))))) - (let* ((_%block180957180970%_ _%block180953%_) - (_%E180959180974%_ + (_%__kont191632191633%_)))) + (_%__kont191632191633%_)))))))) + (let* ((_%block181063181076%_ _%block181059%_) + (_%E181065181080%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%block180957180970%_ + _%block181063181076%_ '([_ _ kont assert . maybe-bind]))) '#!void)) - (_%K180960181087%_ - (lambda (_%maybe-bind180977%_ - _%assert180978%_ - _%kont180979%_) - (let* ((_%g180981181007%_ - (lambda (_%g180982181004%_) + (_%K181066181193%_ + (lambda (_%maybe-bind181083%_ + _%assert181084%_ + _%kont181085%_) + (let* ((_%g181087181113%_ + (lambda (_%g181088181110%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180982181004%_)))) - (_%g180980181084%_ - (lambda (_%g180982181010%_) + _%g181088181110%_)))) + (_%g181086181190%_ + (lambda (_%g181088181116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180982181010%_)) - (let ((_%e180985181012%_ + (gx#stx-pair? _%g181088181116%_)) + (let ((_%e181091181118%_ (let () (declare (not safe)) - (gx#stx-e _%g180982181010%_)))) - (let ((_%hd180986181015%_ + (gx#stx-e _%g181088181116%_)))) + (let ((_%hd181092181121%_ (let () (declare (not safe)) - (##car _%e180985181012%_))) - (_%tl180987181017%_ + (##car _%e181091181118%_))) + (_%tl181093181123%_ (let () (declare (not safe)) - (##cdr _%e180985181012%_)))) + (##cdr _%e181091181118%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd180986181015%_)) + _%hd181092181121%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd180986181015%_)) + _%hd181092181121%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180987181017%_)) - (let ((_%e180988181020%_ + _%tl181093181123%_)) + (let ((_%e181094181126%_ (let () (declare (not safe)) (gx#stx-e - _%tl180987181017%_)))) - (let ((_%hd180989181023%_ + _%tl181093181123%_)))) + (let ((_%hd181095181129%_ (let () (declare (not safe)) - (##car _%e180988181020%_))) - (_%tl180990181025%_ + (##car _%e181094181126%_))) + (_%tl181096181131%_ (let () (declare (not safe)) - (##cdr _%e180988181020%_)))) + (##cdr _%e181094181126%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd180989181023%_)) - (let ((_g192511_ + _%hd181095181129%_)) + (let ((_g192617_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd180989181023%_ '0)))) + (gx#syntax-split-splice _%hd181095181129%_ '0)))) (begin - (let ((_g192512_ + (let ((_g192618_ (let () (declare (not safe)) - (if (##values? _g192511_) - (##vector-length _g192511_) + (if (##values? _g192617_) + (##values-length _g192617_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192512_ 2))) - (error "Context expects 2 values" _g192512_))) - (let ((_%target180991181028%_ + (##fx= _g192618_ 2))) + (error "Context expects 2 values" _g192618_))) + (let ((_%target181097181134%_ (let () (declare (not safe)) - (##vector-ref _g192511_ 0))) - (_%tl180993181030%_ + (##values-ref _g192617_ 0))) + (_%tl181099181136%_ (let () (declare (not safe)) - (##vector-ref _g192511_ 1)))) + (##values-ref _g192617_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180993181030%_)) - (letrec ((_%loop180994181033%_ - (lambda (_%hd180992181036%_ - _%id180998181038%_) + (gx#stx-null? _%tl181099181136%_)) + (letrec ((_%loop181100181139%_ + (lambda (_%hd181098181142%_ + _%id181104181144%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180992181036%_)) - (let ((_%e180995181041%_ + _%hd181098181142%_)) + (let ((_%e181101181147%_ (let () (declare (not safe)) (gx#stx-e - _%hd180992181036%_)))) - (let ((_%lp-hd180996181044%_ + _%hd181098181142%_)))) + (let ((_%lp-hd181102181150%_ (let () (declare (not safe)) - (##car _%e180995181041%_))) - (_%lp-tl180997181046%_ + (##car _%e181101181147%_))) + (_%lp-tl181103181152%_ (let () (declare (not safe)) - (##cdr _%e180995181041%_)))) - (_%loop180994181033%_ - _%lp-tl180997181046%_ - (cons _%lp-hd180996181044%_ - _%id180998181038%_)))) - (let ((_%id180999181049%_ - (reverse _%id180998181038%_))) + (##cdr _%e181101181147%_)))) + (_%loop181100181139%_ + _%lp-tl181103181152%_ + (cons _%lp-hd181102181150%_ + _%id181104181144%_)))) + (let ((_%id181105181155%_ + (reverse _%id181104181144%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180990181025%_)) - (let ((_%e181000181052%_ + _%tl181096181131%_)) + (let ((_%e181106181158%_ (let () (declare (not safe)) (gx#stx-e - _%tl180990181025%_)))) - (let ((_%hd181001181055%_ + _%tl181096181131%_)))) + (let ((_%hd181107181161%_ (let () (declare (not safe)) - (##car _%e181000181052%_))) - (_%tl181002181057%_ + (##car _%e181106181158%_))) + (_%tl181108181163%_ (let () (declare (not safe)) - (##cdr _%e181000181052%_)))) + (##cdr _%e181106181158%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl181002181057%_)) - ((lambda (_%L181060%_ + _%tl181108181163%_)) + ((lambda (_%L181166%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L181061%_) - (_%assert-restart180956%_ _%L181060%_ _%assert180978%_)) - _%hd181001181055%_ - _%id180999181049%_) - (_%g180981181007%_ _%g180982181010%_)))) + _%L181167%_) + (_%assert-restart181062%_ _%L181166%_ _%assert181084%_)) + _%hd181107181161%_ + _%id181105181155%_) + (_%g181087181113%_ _%g181088181116%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180981181007%_ - _%g180982181010%_))))))) - (_%loop180994181033%_ - _%target180991181028%_ + (_%g181087181113%_ + _%g181088181116%_))))))) + (_%loop181100181139%_ + _%target181097181134%_ '())) - (_%g180981181007%_ _%g180982181010%_))))) - (_%g180981181007%_ _%g180982181010%_)))) + (_%g181087181113%_ _%g181088181116%_))))) + (_%g181087181113%_ _%g181088181116%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180981181007%_ - _%g180982181010%_)) - (_%g180981181007%_ - _%g180982181010%_)) - (_%g180981181007%_ - _%g180982181010%_)))) - (_%g180981181007%_ _%g180982181010%_))))) - (_%g180980181084%_ _%kont180979%_))))) - (if (pair? _%block180957180970%_) - (let ((_%tl180962181090%_ + (_%g181087181113%_ + _%g181088181116%_)) + (_%g181087181113%_ + _%g181088181116%_)) + (_%g181087181113%_ + _%g181088181116%_)))) + (_%g181087181113%_ _%g181088181116%_))))) + (_%g181086181190%_ _%kont181085%_))))) + (if (pair? _%block181063181076%_) + (let ((_%tl181068181196%_ (let () (declare (not safe)) - (##cdr _%block180957180970%_)))) - (if (pair? _%tl180962181090%_) - (let ((_%tl180964181093%_ + (##cdr _%block181063181076%_)))) + (if (pair? _%tl181068181196%_) + (let ((_%tl181070181199%_ (let () (declare (not safe)) - (##cdr _%tl180962181090%_)))) - (if (pair? _%tl180964181093%_) - (let ((_%hd180965181096%_ + (##cdr _%tl181068181196%_)))) + (if (pair? _%tl181070181199%_) + (let ((_%hd181071181202%_ (let () (declare (not safe)) - (##car _%tl180964181093%_))) - (_%tl180966181098%_ + (##car _%tl181070181199%_))) + (_%tl181072181204%_ (let () (declare (not safe)) - (##cdr _%tl180964181093%_)))) - (let ((_%kont181101%_ _%hd180965181096%_)) - (if (pair? _%tl180966181098%_) - (let ((_%hd180967181103%_ + (##cdr _%tl181070181199%_)))) + (let ((_%kont181207%_ _%hd181071181202%_)) + (if (pair? _%tl181072181204%_) + (let ((_%hd181073181209%_ (let () (declare (not safe)) - (##car _%tl180966181098%_))) - (_%tl180968181105%_ + (##car _%tl181072181204%_))) + (_%tl181074181211%_ (let () (declare (not safe)) - (##cdr _%tl180966181098%_)))) - (let* ((_%assert181108%_ - _%hd180967181103%_) - (_%maybe-bind181110%_ - _%tl180968181105%_)) - (_%K180960181087%_ - _%maybe-bind181110%_ - _%assert181108%_ - _%kont181101%_))) - (_%E180959180974%_)))) - (_%E180959180974%_))) - (_%E180959180974%_))) - (_%E180959180974%_)))))) + (##cdr _%tl181072181204%_)))) + (let* ((_%assert181214%_ + _%hd181073181209%_) + (_%maybe-bind181216%_ + _%tl181074181211%_)) + (_%K181066181193%_ + _%maybe-bind181216%_ + _%assert181214%_ + _%kont181207%_))) + (_%E181065181080%_)))) + (_%E181065181080%_))) + (_%E181065181080%_))) + (_%E181065181080%_)))))) (define gxc#optimize-syntax-case - (lambda (_%stx180584%_) - (let* ((_%g180586180616%_ - (lambda (_%g180587180613%_) + (lambda (_%stx180690%_) + (let* ((_%g180692180722%_ + (lambda (_%g180693180719%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g180587180613%_)))) - (_%g180585180950%_ - (lambda (_%g180587180619%_) + _%g180693180719%_)))) + (_%g180691181056%_ + (lambda (_%g180693180725%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g180587180619%_)) - (let ((_%e180591180621%_ + (gx#stx-pair? _%g180693180725%_)) + (let ((_%e180697180727%_ (let () (declare (not safe)) - (gx#stx-e _%g180587180619%_)))) - (let ((_%hd180592180624%_ + (gx#stx-e _%g180693180725%_)))) + (let ((_%hd180698180730%_ (let () (declare (not safe)) - (##car _%e180591180621%_))) - (_%tl180593180626%_ + (##car _%e180697180727%_))) + (_%tl180699180732%_ (let () (declare (not safe)) - (##cdr _%e180591180621%_)))) + (##cdr _%e180697180727%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180592180624%_)) + (gx#identifier? _%hd180698180730%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180592180624%_)) + _%hd180698180730%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180593180626%_)) - (let ((_%e180594180629%_ + (gx#stx-pair? _%tl180699180732%_)) + (let ((_%e180700180735%_ (let () (declare (not safe)) - (gx#stx-e _%tl180593180626%_)))) - (let ((_%hd180595180632%_ + (gx#stx-e _%tl180699180732%_)))) + (let ((_%hd180701180738%_ (let () (declare (not safe)) - (##car _%e180594180629%_))) - (_%tl180596180634%_ + (##car _%e180700180735%_))) + (_%tl180702180740%_ (let () (declare (not safe)) - (##cdr _%e180594180629%_)))) + (##cdr _%e180700180735%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180595180632%_)) - (let ((_%e180597180637%_ + _%hd180701180738%_)) + (let ((_%e180703180743%_ (let () (declare (not safe)) (gx#stx-e - _%hd180595180632%_)))) - (let ((_%hd180598180640%_ + _%hd180701180738%_)))) + (let ((_%hd180704180746%_ (let () (declare (not safe)) - (##car _%e180597180637%_))) - (_%tl180599180642%_ + (##car _%e180703180743%_))) + (_%tl180705180748%_ (let () (declare (not safe)) - (##cdr _%e180597180637%_)))) + (##cdr _%e180703180743%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180598180640%_)) - (let ((_%e180600180645%_ + _%hd180704180746%_)) + (let ((_%e180706180751%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180598180640%_)))) - (let ((_%hd180601180648%_ - (let () (declare (not safe)) (##car _%e180600180645%_))) - (_%tl180602180650%_ + (gx#stx-e _%hd180704180746%_)))) + (let ((_%hd180707180754%_ + (let () (declare (not safe)) (##car _%e180706180751%_))) + (_%tl180708180756%_ (let () (declare (not safe)) - (##cdr _%e180600180645%_)))) + (##cdr _%e180706180751%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180601180648%_)) - (let ((_%e180603180653%_ + (gx#stx-pair? _%hd180707180754%_)) + (let ((_%e180709180759%_ (let () (declare (not safe)) - (gx#stx-e _%hd180601180648%_)))) - (let ((_%hd180604180656%_ + (gx#stx-e _%hd180707180754%_)))) + (let ((_%hd180710180762%_ (let () (declare (not safe)) - (##car _%e180603180653%_))) - (_%tl180605180658%_ + (##car _%e180709180759%_))) + (_%tl180711180764%_ (let () (declare (not safe)) - (##cdr _%e180603180653%_)))) + (##cdr _%e180709180759%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180605180658%_)) + (gx#stx-null? _%tl180711180764%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180602180650%_)) - (let ((_%e180606180661%_ + (gx#stx-pair? _%tl180708180756%_)) + (let ((_%e180712180767%_ (let () (declare (not safe)) - (gx#stx-e _%tl180602180650%_)))) - (let ((_%hd180607180664%_ + (gx#stx-e _%tl180708180756%_)))) + (let ((_%hd180713180770%_ (let () (declare (not safe)) - (##car _%e180606180661%_))) - (_%tl180608180666%_ + (##car _%e180712180767%_))) + (_%tl180714180772%_ (let () (declare (not safe)) - (##cdr _%e180606180661%_)))) + (##cdr _%e180712180767%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180608180666%_)) + (gx#stx-null? _%tl180714180772%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180599180642%_)) + _%tl180705180748%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180596180634%_)) - (let ((_%e180609180669%_ + _%tl180702180740%_)) + (let ((_%e180715180775%_ (let () (declare (not safe)) (gx#stx-e - _%tl180596180634%_)))) - (let ((_%hd180610180672%_ + _%tl180702180740%_)))) + (let ((_%hd180716180778%_ (let () (declare (not safe)) - (##car _%e180609180669%_))) - (_%tl180611180674%_ + (##car _%e180715180775%_))) + (_%tl180717180780%_ (let () (declare (not safe)) - (##cdr _%e180609180669%_)))) + (##cdr _%e180715180775%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180611180674%_)) - ((lambda (_%L180677%_ + _%tl180717180780%_)) + ((lambda (_%L180783%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L180678%_ - _%L180679%_) - (let _%lp180703%_ ((_%body180705%_ _%L180677%_) - (_%clauses180706%_ '())) - (let* ((_%__stx191684191685%_ _%body180705%_) - (_%g180709180756%_ + _%L180784%_ + _%L180785%_) + (let _%lp180809%_ ((_%body180811%_ _%L180783%_) + (_%clauses180812%_ '())) + (let* ((_%__stx191790191791%_ _%body180811%_) + (_%g180815180862%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191684191685%_))))) - (let ((_%__kont191686191687%_ - (lambda (_%L180922%_ _%L180923%_ _%L180924%_) - (_%lp180703%_ - _%L180922%_ - (cons (cons _%L180924%_ + _%__stx191790191791%_))))) + (let ((_%__kont191792191793%_ + (lambda (_%L181028%_ _%L181029%_ _%L181030%_) + (_%lp180809%_ + _%L181028%_ + (cons (cons _%L181030%_ (let () (declare (not safe)) (gxc#compile-e__0 - _%L180923%_))) - _%clauses180706%_)))) - (_%__kont191688191689%_ - (lambda (_%L180801%_ _%L180802%_) - (let ((_%$e180823%_ - (length _%clauses180706%_))) - (if (eq? '0 _%$e180823%_) - (let ((__tmp192513 + _%L181029%_))) + _%clauses180812%_)))) + (_%__kont191794191795%_ + (lambda (_%L180907%_ _%L180908%_) + (let ((_%$e180929%_ + (length _%clauses180812%_))) + (if (eq? '0 _%$e180929%_) + (let ((__tmp192619 (cons '%#let-values - (cons (cons (cons (cons _%L180679%_ + (cons (cons (cons (cons _%L180785%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L180678%_ '())) + (cons _%L180784%_ '())) '()) (cons (let () (declare (not safe)) - (gxc#compile-e__0 _%body180705%_)) + (gxc#compile-e__0 _%body180811%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192513 - _%stx180584%_)) - (if (eq? '1 _%$e180823%_) - (let* ((_%clauses180825180834%_ - _%clauses180706%_) - (_%E180827180838%_ + __tmp192619 + _%stx180690%_)) + (if (eq? '1 _%$e180929%_) + (let* ((_%clauses180931180940%_ + _%clauses180812%_) + (_%E180933180944%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180825180834%_ + _%clauses180931180940%_ '([[clause ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< . clause-lambda]]))) '#!void)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K180828180844%_ - (lambda (_%clause-lambda180841%_ - _%clause180842%_) - (let ((__tmp192514 + (_%K180934180950%_ + (lambda (_%clause-lambda180947%_ + _%clause180948%_) + (let ((__tmp192620 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L180679%_ '()) - (cons _%L180678%_ '())) + (cons (cons (cons (cons _%L180785%_ '()) + (cons _%L180784%_ '())) '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%clause180842%_ + (cons (cons (cons (cons _%clause180948%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%clause-lambda180841%_ '())) + (cons _%clause-lambda180947%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (let () (declare (not safe)) (gxc#compile-e__0 - _%body180705%_)) + _%body180811%_)) '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192514 _%stx180584%_))))) + (gxc#xform-wrap-source __tmp192620 _%stx180690%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%clauses180825180834%_) - (let ((_%hd180829180847%_ + (if (pair? _%clauses180931180940%_) + (let ((_%hd180935180953%_ (let () (declare (not safe)) - (##car _%clauses180825180834%_))) - (_%tl180830180849%_ + (##car _%clauses180931180940%_))) + (_%tl180936180955%_ (let () (declare (not safe)) - (##cdr _%clauses180825180834%_)))) - (if (pair? _%hd180829180847%_) - (let ((_%hd180831180852%_ + (##cdr _%clauses180931180940%_)))) + (if (pair? _%hd180935180953%_) + (let ((_%hd180937180958%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%hd180829180847%_))) - (_%tl180832180854%_ + (##car _%hd180935180953%_))) + (_%tl180938180960%_ (let () (declare (not safe)) - (##cdr _%hd180829180847%_)))) - (let* ((_%clause180857%_ _%hd180831180852%_) - (_%clause-lambda180859%_ _%tl180832180854%_)) - (if (null? _%tl180830180849%_) - (_%K180828180844%_ - _%clause-lambda180859%_ - _%clause180857%_) - (_%E180827180838%_)))) - (_%E180827180838%_))) + (##cdr _%hd180935180953%_)))) + (let* ((_%clause180963%_ _%hd180937180958%_) + (_%clause-lambda180965%_ _%tl180938180960%_)) + (if (null? _%tl180936180955%_) + (_%K180934180950%_ + _%clause-lambda180965%_ + _%clause180963%_) + (_%E180933180944%_)))) + (_%E180933180944%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E180827180838%_))) + (_%E180933180944%_))) (gxc#optimize-syntax-case-body - _%stx180584%_ + _%stx180690%_ (let () (declare (not safe)) - (gxc#compile-e__0 _%L180801%_)) - (cons _%L180679%_ _%L180678%_) - _%clauses180706%_))))))) + (gxc#compile-e__0 _%L180907%_)) + (cons _%L180785%_ _%L180784%_) + _%clauses180812%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191684191685%_)) - (let ((_%e180714180866%_ + (gx#stx-pair? _%__stx191790191791%_)) + (let ((_%e180820180972%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191684191685%_)))) - (let ((_%tl180716180871%_ + (gx#stx-e _%__stx191790191791%_)))) + (let ((_%tl180822180977%_ (let () (declare (not safe)) - (##cdr _%e180714180866%_))) - (_%hd180715180869%_ + (##cdr _%e180820180972%_))) + (_%hd180821180975%_ (let () (declare (not safe)) - (##car _%e180714180866%_)))) + (##car _%e180820180972%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180715180869%_)) + (gx#identifier? _%hd180821180975%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd180715180869%_)) + _%hd180821180975%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180716180871%_)) - (let ((_%e180717180874%_ + _%tl180822180977%_)) + (let ((_%e180823180980%_ (let () (declare (not safe)) (gx#stx-e - _%tl180716180871%_)))) - (let ((_%tl180719180879%_ + _%tl180822180977%_)))) + (let ((_%tl180825180985%_ (let () (declare (not safe)) - (##cdr _%e180717180874%_))) - (_%hd180718180877%_ + (##cdr _%e180823180980%_))) + (_%hd180824180983%_ (let () (declare (not safe)) - (##car _%e180717180874%_)))) + (##car _%e180823180980%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180718180877%_)) - (let ((_%e180720180882%_ + _%hd180824180983%_)) + (let ((_%e180826180988%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd180718180877%_)))) - (let ((_%tl180722180887%_ + (gx#stx-e _%hd180824180983%_)))) + (let ((_%tl180828180993%_ (let () (declare (not safe)) - (##cdr _%e180720180882%_))) - (_%hd180721180885%_ + (##cdr _%e180826180988%_))) + (_%hd180827180991%_ (let () (declare (not safe)) - (##car _%e180720180882%_)))) + (##car _%e180826180988%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180721180885%_)) - (let ((_%e180723180890%_ + (gx#stx-pair? _%hd180827180991%_)) + (let ((_%e180829180996%_ (let () (declare (not safe)) - (gx#stx-e _%hd180721180885%_)))) - (let ((_%tl180725180895%_ + (gx#stx-e _%hd180827180991%_)))) + (let ((_%tl180831181001%_ (let () (declare (not safe)) - (##cdr _%e180723180890%_))) - (_%hd180724180893%_ + (##cdr _%e180829180996%_))) + (_%hd180830180999%_ (let () (declare (not safe)) - (##car _%e180723180890%_)))) + (##car _%e180829180996%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd180724180893%_)) - (let ((_%e180726180898%_ + (gx#stx-pair? _%hd180830180999%_)) + (let ((_%e180832181004%_ (let () (declare (not safe)) - (gx#stx-e _%hd180724180893%_)))) - (let ((_%tl180728180903%_ + (gx#stx-e _%hd180830180999%_)))) + (let ((_%tl180834181009%_ (let () (declare (not safe)) - (##cdr _%e180726180898%_))) - (_%hd180727180901%_ + (##cdr _%e180832181004%_))) + (_%hd180833181007%_ (let () (declare (not safe)) - (##car _%e180726180898%_)))) + (##car _%e180832181004%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180728180903%_)) + (gx#stx-null? _%tl180834181009%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180725180895%_)) - (let ((_%e180729180906%_ + (gx#stx-pair? _%tl180831181001%_)) + (let ((_%e180835181012%_ (let () (declare (not safe)) (gx#stx-e - _%tl180725180895%_)))) - (let ((_%tl180731180911%_ + _%tl180831181001%_)))) + (let ((_%tl180837181017%_ (let () (declare (not safe)) - (##cdr _%e180729180906%_))) - (_%hd180730180909%_ + (##cdr _%e180835181012%_))) + (_%hd180836181015%_ (let () (declare (not safe)) - (##car _%e180729180906%_)))) + (##car _%e180835181012%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180731180911%_)) + _%tl180837181017%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180722180887%_)) + _%tl180828180993%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180719180879%_)) - (let ((_%e180732180914%_ + _%tl180825180985%_)) + (let ((_%e180838181020%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl180719180879%_)))) - (let ((_%tl180734180919%_ + (gx#stx-e _%tl180825180985%_)))) + (let ((_%tl180840181025%_ (let () (declare (not safe)) - (##cdr _%e180732180914%_))) - (_%hd180733180917%_ + (##cdr _%e180838181020%_))) + (_%hd180839181023%_ (let () (declare (not safe)) - (##car _%e180732180914%_)))) + (##car _%e180838181020%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180734180919%_)) - (_%__kont191686191687%_ - _%hd180733180917%_ - _%hd180730180909%_ - _%hd180727180901%_) - (let () (declare (not safe)) (_%g180709180756%_))))) - (let () (declare (not safe)) (_%g180709180756%_))) - (let () (declare (not safe)) (_%g180709180756%_))) + (gx#stx-null? _%tl180840181025%_)) + (_%__kont191792191793%_ + _%hd180839181023%_ + _%hd180836181015%_ + _%hd180833181007%_) + (let () (declare (not safe)) (_%g180815180862%_))))) + (let () (declare (not safe)) (_%g180815180862%_))) + (let () (declare (not safe)) (_%g180815180862%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180709180756%_))))) + (_%g180815180862%_))))) (let () (declare (not safe)) - (_%g180709180756%_))) + (_%g180815180862%_))) (let () (declare (not safe)) - (_%g180709180756%_))))) + (_%g180815180862%_))))) (let () (declare (not safe)) - (_%g180709180756%_))))) - (let () (declare (not safe)) (_%g180709180756%_))))) - (let () (declare (not safe)) (_%g180709180756%_))))) + (_%g180815180862%_))))) + (let () (declare (not safe)) (_%g180815180862%_))))) + (let () (declare (not safe)) (_%g180815180862%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180709180756%_))) + (_%g180815180862%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd180715180869%_)) + _%hd180821180975%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180716180871%_)) - (let ((_%e180740180769%_ + _%tl180822180977%_)) + (let ((_%e180846180875%_ (let () (declare (not safe)) (gx#stx-e - _%tl180716180871%_)))) - (let ((_%tl180742180774%_ + _%tl180822180977%_)))) + (let ((_%tl180848180880%_ (let () (declare (not safe)) - (##cdr _%e180740180769%_))) - (_%hd180741180772%_ + (##cdr _%e180846180875%_))) + (_%hd180847180878%_ (let () (declare (not safe)) - (##car _%e180740180769%_)))) + (##car _%e180846180875%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd180741180772%_)) - (let ((_%e180743180777%_ + _%hd180847180878%_)) + (let ((_%e180849180883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd180741180772%_)))) - (let ((_%tl180745180782%_ + (gx#stx-e _%hd180847180878%_)))) + (let ((_%tl180851180888%_ (let () (declare (not safe)) - (##cdr _%e180743180777%_))) - (_%hd180744180780%_ + (##cdr _%e180849180883%_))) + (_%hd180850180886%_ (let () (declare (not safe)) - (##car _%e180743180777%_)))) + (##car _%e180849180883%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd180744180780%_)) + (gx#identifier? _%hd180850180886%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd180744180780%_)) + (gx#stx-eq? '%#ref _%hd180850180886%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl180745180782%_)) - (let ((_%e180746180785%_ + (gx#stx-pair? _%tl180851180888%_)) + (let ((_%e180852180891%_ (let () (declare (not safe)) - (gx#stx-e _%tl180745180782%_)))) - (let ((_%tl180748180790%_ + (gx#stx-e _%tl180851180888%_)))) + (let ((_%tl180854180896%_ (let () (declare (not safe)) - (##cdr _%e180746180785%_))) - (_%hd180747180788%_ + (##cdr _%e180852180891%_))) + (_%hd180853180894%_ (let () (declare (not safe)) - (##car _%e180746180785%_)))) + (##car _%e180852180891%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl180748180790%_)) + (gx#stx-null? _%tl180854180896%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl180742180774%_)) - (let ((_%e180749180793%_ + _%tl180848180880%_)) + (let ((_%e180855180899%_ (let () (declare (not safe)) (gx#stx-e - _%tl180742180774%_)))) - (let ((_%tl180751180798%_ + _%tl180848180880%_)))) + (let ((_%tl180857180904%_ (let () (declare (not safe)) - (##cdr _%e180749180793%_))) - (_%hd180750180796%_ + (##cdr _%e180855180899%_))) + (_%hd180856180902%_ (let () (declare (not safe)) - (##car _%e180749180793%_)))) + (##car _%e180855180899%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl180751180798%_)) - (_%__kont191688191689%_ - _%hd180750180796%_ - _%hd180747180788%_) + _%tl180857180904%_)) + (_%__kont191794191795%_ + _%hd180856180902%_ + _%hd180853180894%_) (let () (declare (not safe)) - (_%g180709180756%_))))) + (_%g180815180862%_))))) (let () (declare (not safe)) - (_%g180709180756%_))) + (_%g180815180862%_))) (let () (declare (not safe)) - (_%g180709180756%_))))) + (_%g180815180862%_))))) (let () (declare (not safe)) - (_%g180709180756%_))) + (_%g180815180862%_))) (let () (declare (not safe)) - (_%g180709180756%_))) - (let () (declare (not safe)) (_%g180709180756%_))))) - (let () (declare (not safe)) (_%g180709180756%_))))) + (_%g180815180862%_))) + (let () (declare (not safe)) (_%g180815180862%_))))) + (let () (declare (not safe)) (_%g180815180862%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g180709180756%_))) + (_%g180815180862%_))) (let () (declare (not safe)) - (_%g180709180756%_)))) + (_%g180815180862%_)))) (let () (declare (not safe)) - (_%g180709180756%_))))) + (_%g180815180862%_))))) (let () (declare (not safe)) - (_%g180709180756%_))))))) - _%hd180610180672%_ - _%hd180607180664%_ - _%hd180604180656%_) - (_%g180586180616%_ _%g180587180619%_)))) + (_%g180815180862%_))))))) + _%hd180716180778%_ + _%hd180713180770%_ + _%hd180710180762%_) + (_%g180692180722%_ _%g180693180725%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180586180616%_ - _%g180587180619%_)) - (_%g180586180616%_ - _%g180587180619%_)) - (_%g180586180616%_ - _%g180587180619%_)))) - (_%g180586180616%_ _%g180587180619%_)) - (_%g180586180616%_ _%g180587180619%_)))) - (_%g180586180616%_ _%g180587180619%_)))) - (_%g180586180616%_ _%g180587180619%_)))) + (_%g180692180722%_ + _%g180693180725%_)) + (_%g180692180722%_ + _%g180693180725%_)) + (_%g180692180722%_ + _%g180693180725%_)))) + (_%g180692180722%_ _%g180693180725%_)) + (_%g180692180722%_ _%g180693180725%_)))) + (_%g180692180722%_ _%g180693180725%_)))) + (_%g180692180722%_ _%g180693180725%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g180586180616%_ - _%g180587180619%_)))) - (_%g180586180616%_ _%g180587180619%_)) - (_%g180586180616%_ _%g180587180619%_)) - (_%g180586180616%_ _%g180587180619%_)))) - (_%g180586180616%_ _%g180587180619%_))))) - (_%g180585180950%_ _%stx180584%_)))) + (_%g180692180722%_ + _%g180693180725%_)))) + (_%g180692180722%_ _%g180693180725%_)) + (_%g180692180722%_ _%g180693180725%_)) + (_%g180692180722%_ _%g180693180725%_)))) + (_%g180692180722%_ _%g180693180725%_))))) + (_%g180691181056%_ _%stx180690%_)))) (define gxc#optimize-syntax-case-body - (lambda (_%stx180511%_ - _%expr180512%_ - _%negation180513%_ - _%clauses180514%_) - (letrec ((_%normalize180516%_ - (lambda (_%clauses180544%_) - (let* ((_%clauses180545180554%_ _%clauses180544%_) - (_%E180547180558%_ + (lambda (_%stx180617%_ + _%expr180618%_ + _%negation180619%_ + _%clauses180620%_) + (letrec ((_%normalize180622%_ + (lambda (_%clauses180650%_) + (let* ((_%clauses180651180660%_ _%clauses180650%_) + (_%E180653180664%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clauses180545180554%_ + _%clauses180651180660%_ '([[id . kont] . rest]))) '#!void)) - (_%K180548180565%_ - (lambda (_%rest180561%_ - _%kont180562%_ - _%id180563%_) - (cons (cons '#f _%kont180562%_) - _%rest180561%_)))) - (if (pair? _%clauses180545180554%_) - (let ((_%hd180549180568%_ + (_%K180654180671%_ + (lambda (_%rest180667%_ + _%kont180668%_ + _%id180669%_) + (cons (cons '#f _%kont180668%_) + _%rest180667%_)))) + (if (pair? _%clauses180651180660%_) + (let ((_%hd180655180674%_ (let () (declare (not safe)) - (##car _%clauses180545180554%_))) - (_%tl180550180570%_ + (##car _%clauses180651180660%_))) + (_%tl180656180676%_ (let () (declare (not safe)) - (##cdr _%clauses180545180554%_)))) - (if (pair? _%hd180549180568%_) - (let ((_%hd180551180573%_ + (##cdr _%clauses180651180660%_)))) + (if (pair? _%hd180655180674%_) + (let ((_%hd180657180679%_ (let () (declare (not safe)) - (##car _%hd180549180568%_))) - (_%tl180552180575%_ + (##car _%hd180655180674%_))) + (_%tl180658180681%_ (let () (declare (not safe)) - (##cdr _%hd180549180568%_)))) - (let* ((_%id180578%_ _%hd180551180573%_) - (_%kont180580%_ _%tl180552180575%_) - (_%rest180582%_ _%tl180550180570%_)) - (_%K180548180565%_ - _%rest180582%_ - _%kont180580%_ - _%id180578%_))) - (_%E180547180558%_))) - (_%E180547180558%_)))))) - (let ((__tmp192516 + (##cdr _%hd180655180674%_)))) + (let* ((_%id180684%_ _%hd180657180679%_) + (_%kont180686%_ _%tl180658180681%_) + (_%rest180688%_ _%tl180656180676%_)) + (_%K180654180671%_ + _%rest180688%_ + _%kont180686%_ + _%id180684%_))) + (_%E180653180664%_))) + (_%E180653180664%_)))))) + (let ((__tmp192622 (lambda () - (let* ((_%id180519%_ - (let ((__tmp192517 + (let* ((_%id180625%_ + (let ((__tmp192623 (let () (declare (not safe)) (##gensym '__stx)))) (declare (not safe)) - (make-symbol__0 __tmp192517))) - (_%id180521%_ + (make-symbol__0 __tmp192623))) + (_%id180627%_ (let () (declare (not safe)) - (gx#core-quote-syntax__0 _%id180519%_))) - (_%_180523%_ + (gx#core-quote-syntax__0 _%id180625%_))) + (_%_180629%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%id180521%_))) - (_g192518_ + (gx#core-bind-runtime!__0 _%id180627%_))) + (_g192624_ (gxc#optimize-syntax-case-clauses - _%clauses180514%_ - (car _%negation180513%_)))) + _%clauses180620%_ + (car _%negation180619%_)))) (begin - (let ((_g192519_ + (let ((_g192625_ (let () (declare (not safe)) - (if (##values? _g192518_) - (##vector-length _g192518_) + (if (##values? _g192624_) + (##values-length _g192624_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192519_ 2))) - (error "Context expects 2 values" _g192519_))) - (let ((_%clauses180525%_ + (##fx= _g192625_ 2))) + (error "Context expects 2 values" _g192625_))) + (let ((_%clauses180631%_ (let () (declare (not safe)) - (##vector-ref _g192518_ 0))) - (_%konts180526%_ + (##values-ref _g192624_ 0))) + (_%konts180632%_ (let () (declare (not safe)) - (##vector-ref _g192518_ 1)))) - (let* ((_%clauses180535%_ - (map (lambda (_%g180527180530%_ - _%g180528180532%_) + (##values-ref _g192624_ 1)))) + (let* ((_%clauses180641%_ + (map (lambda (_%g180633180636%_ + _%g180634180638%_) (gxc#optimize-syntax-case-closure - _%g180527180530%_ - _%g180528180532%_ - _%id180521%_)) - _%clauses180525%_ - (let ((__tmp192521 - (cons (car _%negation180513%_) + _%g180633180636%_ + _%g180634180638%_ + _%id180627%_)) + _%clauses180631%_ + (let ((__tmp192627 + (cons (car _%negation180619%_) '())) - (__tmp192520 + (__tmp192626 (map car - (cdr _%clauses180525%_)))) + (cdr _%clauses180631%_)))) (declare (not safe)) (__foldr1 cons - __tmp192521 - __tmp192520)))) - (_%clauses180537%_ - (_%normalize180516%_ _%clauses180535%_)) - (_%negation180539%_ + __tmp192627 + __tmp192626)))) + (_%clauses180643%_ + (_%normalize180622%_ _%clauses180641%_)) + (_%negation180645%_ (gxc#optimize-syntax-case-closure - _%negation180513%_ + _%negation180619%_ '#f - _%id180521%_)) - (_%body180541%_ + _%id180627%_)) + (_%body180647%_ (gxc#optimize-match-body - _%stx180511%_ - _%negation180539%_ - _%clauses180537%_ - _%konts180526%_)) - (__tmp192522 + _%stx180617%_ + _%negation180645%_ + _%clauses180643%_ + _%konts180632%_)) + (__tmp192628 (cons '%#let-values - (cons (cons (cons (cons _%id180521%_ + (cons (cons (cons (cons _%id180627%_ '()) - (cons _%expr180512%_ + (cons _%expr180618%_ '())) '()) - (cons _%body180541%_ '()))))) + (cons _%body180647%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192522 - _%stx180511%_))))))) - (__tmp192515 - (let ((__obj192436 + __tmp192628 + _%stx180617%_))))))) + (__tmp192621 + (let ((__obj192542 (let () (declare (not safe)) (##structure @@ -13151,72 +13151,72 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj192436)) - __obj192436))) + (gx#local-context:::init!__0 __obj192542)) + __obj192542))) (declare (not safe)) (__call-with-parameters - __tmp192516 + __tmp192622 gx#current-expander-context - __tmp192515))))) + __tmp192621))))) (define gxc#optimize-syntax-case-clauses - (lambda (_%clauses179267%_ _%negation-id179268%_) - (letrec ((_%xform-e179270%_ - (lambda (_%expr179655%_ - _%kont-id179656%_ - _%kont-box179657%_ - _%negation-id179658%_) - (let* ((_%__stx191886191887%_ _%expr179655%_) - (_%g179664179797%_ + (lambda (_%clauses179373%_ _%negation-id179374%_) + (letrec ((_%xform-e179376%_ + (lambda (_%expr179761%_ + _%kont-id179762%_ + _%kont-box179763%_ + _%negation-id179764%_) + (let* ((_%__stx191992191993%_ _%expr179761%_) + (_%g179770179903%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191886191887%_))))) - (let ((_%__kont191888191889%_ - (lambda (_%L180487%_ _%L180488%_ _%L180489%_) - (let ((_%K180506%_ - (_%xform-e179270%_ - _%L180488%_ - _%kont-id179656%_ - _%kont-box179657%_ - _%negation-id179658%_))) + _%__stx191992191993%_))))) + (let ((_%__kont191994191995%_ + (lambda (_%L180593%_ _%L180594%_ _%L180595%_) + (let ((_%K180612%_ + (_%xform-e179376%_ + _%L180594%_ + _%kont-id179762%_ + _%kont-box179763%_ + _%negation-id179764%_))) (cons '%#if - (cons _%L180489%_ - (cons _%K180506%_ - (cons _%L180487%_ '()))))))) - (_%__kont191890191891%_ - (lambda (_%L180402%_ - _%L180403%_ - _%L180404%_ - _%L180405%_ - _%L180406%_) - (let* ((_%id180441%_ - (let ((__tmp192523 + (cons _%L180595%_ + (cons _%K180612%_ + (cons _%L180593%_ '()))))))) + (_%__kont191996191997%_ + (lambda (_%L180508%_ + _%L180509%_ + _%L180510%_ + _%L180511%_ + _%L180512%_) + (let* ((_%id180547%_ + (let ((__tmp192629 (let () (declare (not safe)) (##gensym '__splice)))) (declare (not safe)) - (make-symbol__0 __tmp192523))) - (_%id180443%_ + (make-symbol__0 __tmp192629))) + (_%id180549%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id180441%_))) - (_%_180445%_ + _%id180547%_))) + (_%_180551%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id180443%_))) - (_%body180447%_ - (_%xform-e179270%_ - _%L180402%_ - _%kont-id179656%_ - _%kont-box179657%_ - _%negation-id179658%_))) + _%id180549%_))) + (_%body180553%_ + (_%xform-e179376%_ + _%L180508%_ + _%kont-id179762%_ + _%kont-box179763%_ + _%negation-id179764%_))) (cons '%#let-values - (cons (cons (cons (cons _%id180443%_ + (cons (cons (cons (cons _%id180549%_ '()) (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -13225,113 +13225,113 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180404%_ '())) - _%L180403%_)) + (cons _%L180510%_ '())) + _%L180509%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L180406%_ + (cons (cons (cons (cons _%L180512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180443%_ '())) + (cons _%id180549%_ '())) (cons '(%#quote 0) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L180405%_ '()) + (cons (cons (cons _%L180511%_ '()) (cons (cons '%#call (cons '(%#ref ##vector-ref) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180443%_ '())) + (cons _%id180549%_ '())) (cons '(%#quote 1) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) - (cons _%body180447%_ '()))) + (cons _%body180553%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont191892191893%_ - (lambda (_%L180284%_ _%L180285%_) - (let ((_%body180299%_ - (_%xform-e179270%_ - _%L180284%_ - _%kont-id179656%_ - _%kont-box179657%_ - _%negation-id179658%_))) + (_%__kont191998191999%_ + (lambda (_%L180390%_ _%L180391%_) + (let ((_%body180405%_ + (_%xform-e179376%_ + _%L180390%_ + _%kont-id179762%_ + _%kont-box179763%_ + _%negation-id179764%_))) (cons '%#let-values - (cons _%L180285%_ - (cons _%body180299%_ '())))))) - (_%__kont191894191895%_ - (lambda (_%L180228%_ _%L180229%_ _%L180230%_) - (let ((_%lambda-expr180253%_ - (_%xform-loop-e179271%_ - _%L180229%_ - _%kont-id179656%_ - _%kont-box179657%_ - _%negation-id179658%_))) + (cons _%L180391%_ + (cons _%body180405%_ '())))))) + (_%__kont192000192001%_ + (lambda (_%L180334%_ _%L180335%_ _%L180336%_) + (let ((_%lambda-expr180359%_ + (_%xform-loop-e179377%_ + _%L180335%_ + _%kont-id179762%_ + _%kont-box179763%_ + _%negation-id179764%_))) (cons '%#letrec-values - (cons (cons (cons (cons _%L180230%_ '()) - (cons _%lambda-expr180253%_ + (cons (cons (cons (cons _%L180336%_ '()) + (cons _%lambda-expr180359%_ '())) '()) - (cons _%L180228%_ '())))))) - (_%__kont191896191897%_ - (lambda (_%L179890%_ _%L179891%_ _%L179892%_) - (let* ((_%__stx191788191789%_ _%L179891%_) - (_%g179921179964%_ + (cons _%L180334%_ '())))))) + (_%__kont192002192003%_ + (lambda (_%L179996%_ _%L179997%_ _%L179998%_) + (let* ((_%__stx191894191895%_ _%L179997%_) + (_%g180027180070%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx191788191789%_))))) - (let ((_%__kont191790191791%_ - (lambda (_%L180080%_ - _%L180081%_ - _%L180082%_ - _%L180083%_) - (let ((_%kont180124%_ + _%__stx191894191895%_))))) + (let ((_%__kont191896191897%_ + (lambda (_%L180186%_ + _%L180187%_ + _%L180188%_ + _%L180189%_) + (let ((_%kont180230%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192524 + (cons (let ((__tmp192630 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g180116180119%_ _%g180117180121%_) - (cons _%g180116180119%_ _%g180117180121%_)))) + (lambda (_%g180222180225%_ _%g180223180227%_) + (cons _%g180222180225%_ _%g180223180227%_)))) (declare (not safe)) - (__foldr1 __tmp192524 '() _%L179892%_)) - (cons _%L180082%_ '()))))) + (__foldr1 __tmp192630 '() _%L179998%_)) + (cons _%L180188%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179657%_ - _%kont180124%_) - (let* ((_%kont-args180135%_ - (map (lambda (_%id180126%_) + _%kont-box179763%_ + _%kont180230%_) + (let* ((_%kont-args180241%_ + (map (lambda (_%id180232%_) (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id180126%_ '()))) - (let ((__tmp192525 - (lambda (_%g180127180130%_ _%g180128180132%_) - (cons _%g180127180130%_ _%g180128180132%_)))) + (cons _%id180232%_ '()))) + (let ((__tmp192631 + (lambda (_%g180233180236%_ _%g180234180238%_) + (cons _%g180233180236%_ _%g180234180238%_)))) (declare (not safe)) - (__foldr1 __tmp192525 '() _%L179892%_)))) + (__foldr1 __tmp192631 '() _%L179998%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body180137%_ + (_%body180243%_ (cons '%#if - (cons _%L180083%_ + (cons _%L180189%_ (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref - (cons _%kont-id179656%_ '())) - _%kont-args180135%_)) + (cons _%kont-id179762%_ '())) + _%kont-args180241%_)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#call)) @@ -13340,3156 +13340,3156 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180081%_ '())) + (cons _%L180187%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L180080%_ + (cons _%L180186%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? (let ((__tmp192526 - (lambda (_%g180139180142%_ + (if (null? (let ((__tmp192632 + (lambda (_%g180245180248%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g180140180144%_) - (cons _%g180139180142%_ _%g180140180144%_)))) + _%g180246180250%_) + (cons _%g180245180248%_ _%g180246180250%_)))) (declare (not safe)) - (__foldr1 __tmp192526 '() _%L179892%_))) + (__foldr1 __tmp192632 '() _%L179998%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body180137%_ + _%body180243%_ (cons '%#let-values - (cons (map (lambda (_%id180147%_ + (cons (map (lambda (_%id180253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg180148%_) - (cons (cons _%id180147%_ '()) - (cons _%arg180148%_ '()))) - (let ((__tmp192527 - (lambda (_%g180149180152%_ _%g180150180154%_) - (cons _%g180149180152%_ - _%g180150180154%_)))) + _%arg180254%_) + (cons (cons _%id180253%_ '()) + (cons _%arg180254%_ '()))) + (let ((__tmp192633 + (lambda (_%g180255180258%_ _%g180256180260%_) + (cons _%g180255180258%_ + _%g180256180260%_)))) (declare (not safe)) - (__foldr1 __tmp192527 '() _%L179892%_)) - (let ((__tmp192528 - (lambda (_%g180156180159%_ _%g180157180161%_) - (cons _%g180156180159%_ - _%g180157180161%_)))) + (__foldr1 __tmp192633 '() _%L179998%_)) + (let ((__tmp192634 + (lambda (_%g180262180265%_ _%g180263180267%_) + (cons _%g180262180265%_ + _%g180263180267%_)))) (declare (not safe)) - (__foldr1 __tmp192528 '() _%L179890%_))) - (cons _%body180137%_ '())))))))) + (__foldr1 __tmp192634 '() _%L179996%_))) + (cons _%body180243%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191792191793%_ + (_%__kont191898191899%_ (lambda () - (let ((_%kont179978%_ + (let ((_%kont180084%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons (let ((__tmp192529 + (cons (let ((__tmp192635 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g179970179973%_ _%g179971179975%_) - (cons _%g179970179973%_ _%g179971179975%_)))) + (lambda (_%g180076180079%_ _%g180077180081%_) + (cons _%g180076180079%_ _%g180077180081%_)))) (declare (not safe)) - (__foldr1 __tmp192529 '() _%L179892%_)) - (cons _%L179891%_ '()))))) + (__foldr1 __tmp192635 '() _%L179998%_)) + (cons _%L179997%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (set-box! - _%kont-box179657%_ - _%kont179978%_) + _%kont-box179763%_ + _%kont180084%_) (cons '%#call (cons (cons '%#ref - (cons _%kont-id179656%_ + (cons _%kont-id179762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp192530 - (lambda (_%g179979179982%_ _%g179980179984%_) - (cons _%g179979179982%_ _%g179980179984%_)))) + (let ((__tmp192636 + (lambda (_%g180085180088%_ _%g180086180090%_) + (cons _%g180085180088%_ _%g180086180090%_)))) (declare (not safe)) - (__foldr1 __tmp192530 '() _%L179890%_)))))))) + (__foldr1 __tmp192636 '() _%L179996%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match191883191884%_ - (lambda (_%e179927179992%_ - _%hd179928179995%_ - _%tl179929179997%_ - _%e179930180000%_ - _%hd179931180003%_ - _%tl179932180005%_ - _%e179933180008%_ - _%hd179934180011%_ - _%tl179935180013%_ - _%e179936180016%_ - _%hd179937180019%_ - _%tl179938180021%_ - _%e179939180024%_ - _%hd179940180027%_ - _%tl179941180029%_ - _%e179942180032%_ - _%hd179943180035%_ - _%tl179944180037%_ - _%e179945180040%_ - _%hd179946180043%_ - _%tl179947180045%_ - _%e179948180048%_ - _%hd179949180051%_ - _%tl179950180053%_ - _%e179951180056%_ - _%hd179952180059%_ - _%tl179953180061%_ - _%e179954180064%_ - _%hd179955180067%_ - _%tl179956180069%_ - _%e179957180072%_ - _%hd179958180075%_ - _%tl179959180077%_) - (let ((_%L180080%_ - _%hd179958180075%_) - (_%L180081%_ - _%hd179949180051%_) - (_%L180082%_ - _%hd179934180011%_) - (_%L180083%_ - _%hd179931180003%_)) + (let ((_%__match191989191990%_ + (lambda (_%e180033180098%_ + _%hd180034180101%_ + _%tl180035180103%_ + _%e180036180106%_ + _%hd180037180109%_ + _%tl180038180111%_ + _%e180039180114%_ + _%hd180040180117%_ + _%tl180041180119%_ + _%e180042180122%_ + _%hd180043180125%_ + _%tl180044180127%_ + _%e180045180130%_ + _%hd180046180133%_ + _%tl180047180135%_ + _%e180048180138%_ + _%hd180049180141%_ + _%tl180050180143%_ + _%e180051180146%_ + _%hd180052180149%_ + _%tl180053180151%_ + _%e180054180154%_ + _%hd180055180157%_ + _%tl180056180159%_ + _%e180057180162%_ + _%hd180058180165%_ + _%tl180059180167%_ + _%e180060180170%_ + _%hd180061180173%_ + _%tl180062180175%_ + _%e180063180178%_ + _%hd180064180181%_ + _%tl180065180183%_) + (let ((_%L180186%_ + _%hd180064180181%_) + (_%L180187%_ + _%hd180055180157%_) + (_%L180188%_ + _%hd180040180117%_) + (_%L180189%_ + _%hd180037180109%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L180081%_ - _%negation-id179658%_)) - (_%__kont191790191791%_ - _%L180080%_ - _%L180081%_ - _%L180082%_ - _%L180083%_) - (_%__kont191792191793%_)))))) + _%L180187%_ + _%negation-id179764%_)) + (_%__kont191896191897%_ + _%L180186%_ + _%L180187%_ + _%L180188%_ + _%L180189%_) + (_%__kont191898191899%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx191788191789%_)) - (let ((_%e179927179992%_ + _%__stx191894191895%_)) + (let ((_%e180033180098%_ (let () (declare (not safe)) (gx#stx-e - _%__stx191788191789%_)))) - (let ((_%tl179929179997%_ + _%__stx191894191895%_)))) + (let ((_%tl180035180103%_ (let () (declare (not safe)) - (##cdr _%e179927179992%_))) - (_%hd179928179995%_ + (##cdr _%e180033180098%_))) + (_%hd180034180101%_ (let () (declare (not safe)) - (##car _%e179927179992%_)))) + (##car _%e180033180098%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179928179995%_)) + _%hd180034180101%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179928179995%_)) + _%hd180034180101%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179929179997%_)) - (let ((_%e179930180000%_ + _%tl180035180103%_)) + (let ((_%e180036180106%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179929179997%_)))) - (let ((_%tl179932180005%_ + (gx#stx-e _%tl180035180103%_)))) + (let ((_%tl180038180111%_ (let () (declare (not safe)) - (##cdr _%e179930180000%_))) - (_%hd179931180003%_ + (##cdr _%e180036180106%_))) + (_%hd180037180109%_ (let () (declare (not safe)) - (##car _%e179930180000%_)))) + (##car _%e180036180106%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179932180005%_)) - (let ((_%e179933180008%_ + (gx#stx-pair? _%tl180038180111%_)) + (let ((_%e180039180114%_ (let () (declare (not safe)) - (gx#stx-e _%tl179932180005%_)))) - (let ((_%tl179935180013%_ + (gx#stx-e _%tl180038180111%_)))) + (let ((_%tl180041180119%_ (let () (declare (not safe)) - (##cdr _%e179933180008%_))) - (_%hd179934180011%_ + (##cdr _%e180039180114%_))) + (_%hd180040180117%_ (let () (declare (not safe)) - (##car _%e179933180008%_)))) + (##car _%e180039180114%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179935180013%_)) - (let ((_%e179936180016%_ + (gx#stx-pair? _%tl180041180119%_)) + (let ((_%e180042180122%_ (let () (declare (not safe)) - (gx#stx-e _%tl179935180013%_)))) - (let ((_%tl179938180021%_ + (gx#stx-e _%tl180041180119%_)))) + (let ((_%tl180044180127%_ (let () (declare (not safe)) - (##cdr _%e179936180016%_))) - (_%hd179937180019%_ + (##cdr _%e180042180122%_))) + (_%hd180043180125%_ (let () (declare (not safe)) - (##car _%e179936180016%_)))) + (##car _%e180042180122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179937180019%_)) - (let ((_%e179939180024%_ + (gx#stx-pair? _%hd180043180125%_)) + (let ((_%e180045180130%_ (let () (declare (not safe)) (gx#stx-e - _%hd179937180019%_)))) - (let ((_%tl179941180029%_ + _%hd180043180125%_)))) + (let ((_%tl180047180135%_ (let () (declare (not safe)) - (##cdr _%e179939180024%_))) - (_%hd179940180027%_ + (##cdr _%e180045180130%_))) + (_%hd180046180133%_ (let () (declare (not safe)) - (##car _%e179939180024%_)))) + (##car _%e180045180130%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179940180027%_)) + _%hd180046180133%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179940180027%_)) + _%hd180046180133%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179941180029%_)) - (let ((_%e179942180032%_ + _%tl180047180135%_)) + (let ((_%e180048180138%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179941180029%_)))) - (let ((_%tl179944180037%_ + (gx#stx-e _%tl180047180135%_)))) + (let ((_%tl180050180143%_ (let () (declare (not safe)) - (##cdr _%e179942180032%_))) - (_%hd179943180035%_ + (##cdr _%e180048180138%_))) + (_%hd180049180141%_ (let () (declare (not safe)) - (##car _%e179942180032%_)))) + (##car _%e180048180138%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179943180035%_)) - (let ((_%e179945180040%_ + (gx#stx-pair? _%hd180049180141%_)) + (let ((_%e180051180146%_ (let () (declare (not safe)) - (gx#stx-e _%hd179943180035%_)))) - (let ((_%tl179947180045%_ + (gx#stx-e _%hd180049180141%_)))) + (let ((_%tl180053180151%_ (let () (declare (not safe)) - (##cdr _%e179945180040%_))) - (_%hd179946180043%_ + (##cdr _%e180051180146%_))) + (_%hd180052180149%_ (let () (declare (not safe)) - (##car _%e179945180040%_)))) + (##car _%e180051180146%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179946180043%_)) + (gx#identifier? _%hd180052180149%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179946180043%_)) + (gx#stx-eq? '%#ref _%hd180052180149%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179947180045%_)) - (let ((_%e179948180048%_ + (gx#stx-pair? _%tl180053180151%_)) + (let ((_%e180054180154%_ (let () (declare (not safe)) (gx#stx-e - _%tl179947180045%_)))) - (let ((_%tl179950180053%_ + _%tl180053180151%_)))) + (let ((_%tl180056180159%_ (let () (declare (not safe)) - (##cdr _%e179948180048%_))) - (_%hd179949180051%_ + (##cdr _%e180054180154%_))) + (_%hd180055180157%_ (let () (declare (not safe)) - (##car _%e179948180048%_)))) + (##car _%e180054180154%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179950180053%_)) + _%tl180056180159%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179944180037%_)) - (let ((_%e179951180056%_ + _%tl180050180143%_)) + (let ((_%e180057180162%_ (let () (declare (not safe)) (gx#stx-e - _%tl179944180037%_)))) - (let ((_%tl179953180061%_ + _%tl180050180143%_)))) + (let ((_%tl180059180167%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179951180056%_))) - (_%hd179952180059%_ - (let () (declare (not safe)) (##car _%e179951180056%_)))) + (##cdr _%e180057180162%_))) + (_%hd180058180165%_ + (let () (declare (not safe)) (##car _%e180057180162%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179952180059%_)) - (let ((_%e179954180064%_ + (gx#stx-pair? _%hd180058180165%_)) + (let ((_%e180060180170%_ (let () (declare (not safe)) - (gx#stx-e _%hd179952180059%_)))) - (let ((_%tl179956180069%_ + (gx#stx-e _%hd180058180165%_)))) + (let ((_%tl180062180175%_ (let () (declare (not safe)) - (##cdr _%e179954180064%_))) - (_%hd179955180067%_ + (##cdr _%e180060180170%_))) + (_%hd180061180173%_ (let () (declare (not safe)) - (##car _%e179954180064%_)))) + (##car _%e180060180170%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179955180067%_)) + (gx#identifier? _%hd180061180173%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd179955180067%_)) + (gx#stx-eq? '%#ref _%hd180061180173%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179956180069%_)) - (let ((_%e179957180072%_ + (gx#stx-pair? _%tl180062180175%_)) + (let ((_%e180063180178%_ (let () (declare (not safe)) - (gx#stx-e _%tl179956180069%_)))) - (let ((_%tl179959180077%_ + (gx#stx-e _%tl180062180175%_)))) + (let ((_%tl180065180183%_ (let () (declare (not safe)) - (##cdr _%e179957180072%_))) - (_%hd179958180075%_ + (##cdr _%e180063180178%_))) + (_%hd180064180181%_ (let () (declare (not safe)) - (##car _%e179957180072%_)))) + (##car _%e180063180178%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179959180077%_)) + _%tl180065180183%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179953180061%_)) + _%tl180059180167%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179938180021%_)) - (_%__match191883191884%_ - _%e179927179992%_ - _%hd179928179995%_ - _%tl179929179997%_ - _%e179930180000%_ - _%hd179931180003%_ - _%tl179932180005%_ - _%e179933180008%_ - _%hd179934180011%_ - _%tl179935180013%_ - _%e179936180016%_ - _%hd179937180019%_ - _%tl179938180021%_ - _%e179939180024%_ - _%hd179940180027%_ - _%tl179941180029%_ - _%e179942180032%_ - _%hd179943180035%_ - _%tl179944180037%_ - _%e179945180040%_ - _%hd179946180043%_ - _%tl179947180045%_ - _%e179948180048%_ - _%hd179949180051%_ - _%tl179950180053%_ - _%e179951180056%_ - _%hd179952180059%_ - _%tl179953180061%_ - _%e179954180064%_ - _%hd179955180067%_ - _%tl179956180069%_ - _%e179957180072%_ - _%hd179958180075%_ - _%tl179959180077%_) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))) + _%tl180044180127%_)) + (_%__match191989191990%_ + _%e180033180098%_ + _%hd180034180101%_ + _%tl180035180103%_ + _%e180036180106%_ + _%hd180037180109%_ + _%tl180038180111%_ + _%e180039180114%_ + _%hd180040180117%_ + _%tl180041180119%_ + _%e180042180122%_ + _%hd180043180125%_ + _%tl180044180127%_ + _%e180045180130%_ + _%hd180046180133%_ + _%tl180047180135%_ + _%e180048180138%_ + _%hd180049180141%_ + _%tl180050180143%_ + _%e180051180146%_ + _%hd180052180149%_ + _%tl180053180151%_ + _%e180054180154%_ + _%hd180055180157%_ + _%tl180056180159%_ + _%e180057180162%_ + _%hd180058180165%_ + _%tl180059180167%_ + _%e180060180170%_ + _%hd180061180173%_ + _%tl180062180175%_ + _%e180063180178%_ + _%hd180064180181%_ + _%tl180065180183%_) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont191792191793%_)) - (_%__kont191792191793%_)))) - (_%__kont191792191793%_)))))))) - (let* ((_%__match192143192144%_ - (lambda (_%e179760179802%_ - _%hd179761179805%_ - _%tl179762179807%_ - _%e179763179810%_ - _%hd179764179813%_ - _%tl179765179815%_ - _%e179766179818%_ - _%hd179767179821%_ - _%tl179768179823%_ - _%e179769179826%_ - _%hd179770179829%_ - _%tl179771179831%_ - _%__splice191898191899%_ - _%target179772179834%_ - _%tl179774179836%_) - (letrec ((_%loop179775179839%_ - (lambda (_%hd179773179842%_ - _%id179779179844%_) + (_%__kont191898191899%_)) + (_%__kont191898191899%_)))) + (_%__kont191898191899%_)))))))) + (let* ((_%__match192249192250%_ + (lambda (_%e179866179908%_ + _%hd179867179911%_ + _%tl179868179913%_ + _%e179869179916%_ + _%hd179870179919%_ + _%tl179871179921%_ + _%e179872179924%_ + _%hd179873179927%_ + _%tl179874179929%_ + _%e179875179932%_ + _%hd179876179935%_ + _%tl179877179937%_ + _%__splice192004192005%_ + _%target179878179940%_ + _%tl179880179942%_) + (letrec ((_%loop179881179945%_ + (lambda (_%hd179879179948%_ + _%id179885179950%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179773179842%_)) - (let ((_%e179776179847%_ + _%hd179879179948%_)) + (let ((_%e179882179953%_ (let () (declare (not safe)) (gx#stx-e - _%hd179773179842%_)))) - (let ((_%lp-tl179778179852%_ + _%hd179879179948%_)))) + (let ((_%lp-tl179884179958%_ (let () (declare (not safe)) - (##cdr _%e179776179847%_))) - (_%lp-hd179777179850%_ + (##cdr _%e179882179953%_))) + (_%lp-hd179883179956%_ (let () (declare (not safe)) - (##car _%e179776179847%_)))) - (_%loop179775179839%_ - _%lp-tl179778179852%_ - (cons _%lp-hd179777179850%_ - _%id179779179844%_)))) - (let ((_%id179780179855%_ - (reverse _%id179779179844%_))) + (##car _%e179882179953%_)))) + (_%loop179881179945%_ + _%lp-tl179884179958%_ + (cons _%lp-hd179883179956%_ + _%id179885179950%_)))) + (let ((_%id179886179961%_ + (reverse _%id179885179950%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179771179831%_)) - (let ((_%e179781179858%_ + _%tl179877179937%_)) + (let ((_%e179887179964%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl179771179831%_)))) - (let ((_%tl179783179863%_ + (gx#stx-e _%tl179877179937%_)))) + (let ((_%tl179889179969%_ (let () (declare (not safe)) - (##cdr _%e179781179858%_))) - (_%hd179782179861%_ + (##cdr _%e179887179964%_))) + (_%hd179888179967%_ (let () (declare (not safe)) - (##car _%e179781179858%_)))) + (##car _%e179887179964%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179783179863%_)) + (gx#stx-null? _%tl179889179969%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl179765179815%_)) - (let ((_%__splice191900191901%_ + (gx#stx-pair/null? _%tl179871179921%_)) + (let ((_%__splice192006192007%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl179765179815%_ + _%tl179871179921%_ '0)))) - (let ((_%tl179786179868%_ + (let ((_%tl179892179974%_ (let () (declare (not safe)) (##vector-ref - _%__splice191900191901%_ + _%__splice192006192007%_ '1))) - (_%target179784179866%_ + (_%target179890179972%_ (let () (declare (not safe)) (##vector-ref - _%__splice191900191901%_ + _%__splice192006192007%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179786179868%_)) - (letrec ((_%loop179787179871%_ - (lambda (_%hd179785179874%_ - _%arg179791179876%_) + (gx#stx-null? _%tl179892179974%_)) + (letrec ((_%loop179893179977%_ + (lambda (_%hd179891179980%_ + _%arg179897179982%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179785179874%_)) - (let ((_%e179788179879%_ + _%hd179891179980%_)) + (let ((_%e179894179985%_ (let () (declare (not safe)) (gx#stx-e - _%hd179785179874%_)))) - (let ((_%lp-tl179790179884%_ + _%hd179891179980%_)))) + (let ((_%lp-tl179896179990%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e179788179879%_))) - (_%lp-hd179789179882%_ - (let () (declare (not safe)) (##car _%e179788179879%_)))) - (_%loop179787179871%_ - _%lp-tl179790179884%_ - (cons _%lp-hd179789179882%_ _%arg179791179876%_)))) + (##cdr _%e179894179985%_))) + (_%lp-hd179895179988%_ + (let () (declare (not safe)) (##car _%e179894179985%_)))) + (_%loop179893179977%_ + _%lp-tl179896179990%_ + (cons _%lp-hd179895179988%_ _%arg179897179982%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%arg179792179887%_ - (reverse _%arg179791179876%_))) - (_%__kont191896191897%_ - _%arg179792179887%_ - _%hd179782179861%_ - _%id179780179855%_)))))) - (_%loop179787179871%_ - _%target179784179866%_ + (let ((_%arg179898179993%_ + (reverse _%arg179897179982%_))) + (_%__kont192002192003%_ + _%arg179898179993%_ + _%hd179888179967%_ + _%id179886179961%_)))))) + (_%loop179893179977%_ + _%target179890179972%_ '())) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop179775179839%_ - _%target179772179834%_ + (_%loop179881179945%_ + _%target179878179940%_ '())))) - (_%__match192025192026%_ - (lambda (_%e179686180306%_ - _%hd179687180309%_ - _%tl179688180311%_ - _%e179689180314%_ - _%hd179690180317%_ - _%tl179691180319%_ - _%e179692180322%_ - _%hd179693180325%_ - _%tl179694180327%_ - _%e179695180330%_ - _%hd179696180333%_ - _%tl179697180335%_ - _%e179698180338%_ - _%hd179699180341%_ - _%tl179700180343%_ - _%e179701180346%_ - _%hd179702180349%_ - _%tl179703180351%_ - _%e179704180354%_ - _%hd179705180357%_ - _%tl179706180359%_ - _%e179707180362%_ - _%hd179708180365%_ - _%tl179709180367%_ - _%e179710180370%_ - _%hd179711180373%_ - _%tl179712180375%_ - _%e179713180378%_ - _%hd179714180381%_ - _%tl179715180383%_ - _%e179716180386%_ - _%hd179717180389%_ - _%tl179718180391%_ - _%e179719180394%_ - _%hd179720180397%_ - _%tl179721180399%_) - (let ((_%L180402%_ _%hd179720180397%_) - (_%L180403%_ _%tl179712180375%_) - (_%L180404%_ _%hd179717180389%_) - (_%L180405%_ _%hd179702180349%_) - (_%L180406%_ _%hd179699180341%_)) + (_%__match192131192132%_ + (lambda (_%e179792180412%_ + _%hd179793180415%_ + _%tl179794180417%_ + _%e179795180420%_ + _%hd179796180423%_ + _%tl179797180425%_ + _%e179798180428%_ + _%hd179799180431%_ + _%tl179800180433%_ + _%e179801180436%_ + _%hd179802180439%_ + _%tl179803180441%_ + _%e179804180444%_ + _%hd179805180447%_ + _%tl179806180449%_ + _%e179807180452%_ + _%hd179808180455%_ + _%tl179809180457%_ + _%e179810180460%_ + _%hd179811180463%_ + _%tl179812180465%_ + _%e179813180468%_ + _%hd179814180471%_ + _%tl179815180473%_ + _%e179816180476%_ + _%hd179817180479%_ + _%tl179818180481%_ + _%e179819180484%_ + _%hd179820180487%_ + _%tl179821180489%_ + _%e179822180492%_ + _%hd179823180495%_ + _%tl179824180497%_ + _%e179825180500%_ + _%hd179826180503%_ + _%tl179827180505%_) + (let ((_%L180508%_ _%hd179826180503%_) + (_%L180509%_ _%tl179818180481%_) + (_%L180510%_ _%hd179823180495%_) + (_%L180511%_ _%hd179808180455%_) + (_%L180512%_ _%hd179805180447%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L180404%_ + _%L180510%_ 'gx#syntax-split-splice)) - (_%__kont191890191891%_ - _%L180402%_ - _%L180403%_ - _%L180404%_ - _%L180405%_ - _%L180406%_) - (_%__kont191892191893%_ - _%hd179720180397%_ - _%hd179690180317%_)))))) + (_%__kont191996191997%_ + _%L180508%_ + _%L180509%_ + _%L180510%_ + _%L180511%_ + _%L180512%_) + (_%__kont191998191999%_ + _%hd179826180503%_ + _%hd179796180423%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx191886191887%_)) - (let ((_%e179669180455%_ + (gx#stx-pair? _%__stx191992191993%_)) + (let ((_%e179775180561%_ (let () (declare (not safe)) - (gx#stx-e _%__stx191886191887%_)))) - (let ((_%tl179671180460%_ + (gx#stx-e _%__stx191992191993%_)))) + (let ((_%tl179777180566%_ (let () (declare (not safe)) - (##cdr _%e179669180455%_))) - (_%hd179670180458%_ + (##cdr _%e179775180561%_))) + (_%hd179776180564%_ (let () (declare (not safe)) - (##car _%e179669180455%_)))) + (##car _%e179775180561%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179670180458%_)) + (gx#identifier? _%hd179776180564%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd179670180458%_)) + _%hd179776180564%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179671180460%_)) - (let ((_%e179672180463%_ + _%tl179777180566%_)) + (let ((_%e179778180569%_ (let () (declare (not safe)) (gx#stx-e - _%tl179671180460%_)))) - (let ((_%tl179674180468%_ + _%tl179777180566%_)))) + (let ((_%tl179780180574%_ (let () (declare (not safe)) - (##cdr _%e179672180463%_))) - (_%hd179673180466%_ + (##cdr _%e179778180569%_))) + (_%hd179779180572%_ (let () (declare (not safe)) - (##car _%e179672180463%_)))) + (##car _%e179778180569%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179674180468%_)) - (let ((_%e179675180471%_ + _%tl179780180574%_)) + (let ((_%e179781180577%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179674180468%_)))) - (let ((_%tl179677180476%_ - (let () (declare (not safe)) (##cdr _%e179675180471%_))) - (_%hd179676180474%_ + (gx#stx-e _%tl179780180574%_)))) + (let ((_%tl179783180582%_ + (let () (declare (not safe)) (##cdr _%e179781180577%_))) + (_%hd179782180580%_ (let () (declare (not safe)) - (##car _%e179675180471%_)))) + (##car _%e179781180577%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179677180476%_)) - (let ((_%e179678180479%_ + (gx#stx-pair? _%tl179783180582%_)) + (let ((_%e179784180585%_ (let () (declare (not safe)) - (gx#stx-e _%tl179677180476%_)))) - (let ((_%tl179680180484%_ + (gx#stx-e _%tl179783180582%_)))) + (let ((_%tl179786180590%_ (let () (declare (not safe)) - (##cdr _%e179678180479%_))) - (_%hd179679180482%_ + (##cdr _%e179784180585%_))) + (_%hd179785180588%_ (let () (declare (not safe)) - (##car _%e179678180479%_)))) + (##car _%e179784180585%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179680180484%_)) - (_%__kont191888191889%_ - _%hd179679180482%_ - _%hd179676180474%_ - _%hd179673180466%_) + (gx#stx-null? _%tl179786180590%_)) + (_%__kont191994191995%_ + _%hd179785180588%_ + _%hd179782180580%_ + _%hd179779180572%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd179670180458%_)) + _%hd179776180564%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179671180460%_)) - (let ((_%e179689180314%_ + _%tl179777180566%_)) + (let ((_%e179795180420%_ (let () (declare (not safe)) (gx#stx-e - _%tl179671180460%_)))) - (let ((_%tl179691180319%_ + _%tl179777180566%_)))) + (let ((_%tl179797180425%_ (let () (declare (not safe)) - (##cdr _%e179689180314%_))) - (_%hd179690180317%_ + (##cdr _%e179795180420%_))) + (_%hd179796180423%_ (let () (declare (not safe)) - (##car _%e179689180314%_)))) + (##car _%e179795180420%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179690180317%_)) - (let ((_%e179692180322%_ + _%hd179796180423%_)) + (let ((_%e179798180428%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179690180317%_)))) - (let ((_%tl179694180327%_ + (gx#stx-e _%hd179796180423%_)))) + (let ((_%tl179800180433%_ (let () (declare (not safe)) - (##cdr _%e179692180322%_))) - (_%hd179693180325%_ + (##cdr _%e179798180428%_))) + (_%hd179799180431%_ (let () (declare (not safe)) - (##car _%e179692180322%_)))) + (##car _%e179798180428%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179693180325%_)) - (let ((_%e179695180330%_ + (gx#stx-pair? _%hd179799180431%_)) + (let ((_%e179801180436%_ (let () (declare (not safe)) - (gx#stx-e _%hd179693180325%_)))) - (let ((_%tl179697180335%_ + (gx#stx-e _%hd179799180431%_)))) + (let ((_%tl179803180441%_ (let () (declare (not safe)) - (##cdr _%e179695180330%_))) - (_%hd179696180333%_ + (##cdr _%e179801180436%_))) + (_%hd179802180439%_ (let () (declare (not safe)) - (##car _%e179695180330%_)))) + (##car _%e179801180436%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179696180333%_)) - (let ((_%e179698180338%_ + (gx#stx-pair? _%hd179802180439%_)) + (let ((_%e179804180444%_ (let () (declare (not safe)) - (gx#stx-e _%hd179696180333%_)))) - (let ((_%tl179700180343%_ + (gx#stx-e _%hd179802180439%_)))) + (let ((_%tl179806180449%_ (let () (declare (not safe)) - (##cdr _%e179698180338%_))) - (_%hd179699180341%_ + (##cdr _%e179804180444%_))) + (_%hd179805180447%_ (let () (declare (not safe)) - (##car _%e179698180338%_)))) + (##car _%e179804180444%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179700180343%_)) - (let ((_%e179701180346%_ + (gx#stx-pair? _%tl179806180449%_)) + (let ((_%e179807180452%_ (let () (declare (not safe)) (gx#stx-e - _%tl179700180343%_)))) - (let ((_%tl179703180351%_ + _%tl179806180449%_)))) + (let ((_%tl179809180457%_ (let () (declare (not safe)) - (##cdr _%e179701180346%_))) - (_%hd179702180349%_ + (##cdr _%e179807180452%_))) + (_%hd179808180455%_ (let () (declare (not safe)) - (##car _%e179701180346%_)))) + (##car _%e179807180452%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179703180351%_)) + _%tl179809180457%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179697180335%_)) - (let ((_%e179704180354%_ + _%tl179803180441%_)) + (let ((_%e179810180460%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179697180335%_)))) - (let ((_%tl179706180359%_ - (let () (declare (not safe)) (##cdr _%e179704180354%_))) - (_%hd179705180357%_ + (gx#stx-e _%tl179803180441%_)))) + (let ((_%tl179812180465%_ + (let () (declare (not safe)) (##cdr _%e179810180460%_))) + (_%hd179811180463%_ (let () (declare (not safe)) - (##car _%e179704180354%_)))) + (##car _%e179810180460%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179705180357%_)) - (let ((_%e179707180362%_ + (gx#stx-pair? _%hd179811180463%_)) + (let ((_%e179813180468%_ (let () (declare (not safe)) - (gx#stx-e _%hd179705180357%_)))) - (let ((_%tl179709180367%_ + (gx#stx-e _%hd179811180463%_)))) + (let ((_%tl179815180473%_ (let () (declare (not safe)) - (##cdr _%e179707180362%_))) - (_%hd179708180365%_ + (##cdr _%e179813180468%_))) + (_%hd179814180471%_ (let () (declare (not safe)) - (##car _%e179707180362%_)))) + (##car _%e179813180468%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179708180365%_)) + (gx#identifier? _%hd179814180471%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd179708180365%_)) + (gx#stx-eq? '%#call _%hd179814180471%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179709180367%_)) - (let ((_%e179710180370%_ + (gx#stx-pair? _%tl179815180473%_)) + (let ((_%e179816180476%_ (let () (declare (not safe)) - (gx#stx-e _%tl179709180367%_)))) - (let ((_%tl179712180375%_ + (gx#stx-e _%tl179815180473%_)))) + (let ((_%tl179818180481%_ (let () (declare (not safe)) - (##cdr _%e179710180370%_))) - (_%hd179711180373%_ + (##cdr _%e179816180476%_))) + (_%hd179817180479%_ (let () (declare (not safe)) - (##car _%e179710180370%_)))) + (##car _%e179816180476%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179711180373%_)) - (let ((_%e179713180378%_ + _%hd179817180479%_)) + (let ((_%e179819180484%_ (let () (declare (not safe)) (gx#stx-e - _%hd179711180373%_)))) - (let ((_%tl179715180383%_ + _%hd179817180479%_)))) + (let ((_%tl179821180489%_ (let () (declare (not safe)) - (##cdr _%e179713180378%_))) - (_%hd179714180381%_ + (##cdr _%e179819180484%_))) + (_%hd179820180487%_ (let () (declare (not safe)) - (##car _%e179713180378%_)))) + (##car _%e179819180484%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179714180381%_)) + _%hd179820180487%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd179714180381%_)) + _%hd179820180487%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl179715180383%_)) - (let ((_%e179716180386%_ + (gx#stx-pair? _%tl179821180489%_)) + (let ((_%e179822180492%_ (let () (declare (not safe)) - (gx#stx-e _%tl179715180383%_)))) - (let ((_%tl179718180391%_ + (gx#stx-e _%tl179821180489%_)))) + (let ((_%tl179824180497%_ (let () (declare (not safe)) - (##cdr _%e179716180386%_))) - (_%hd179717180389%_ + (##cdr _%e179822180492%_))) + (_%hd179823180495%_ (let () (declare (not safe)) - (##car _%e179716180386%_)))) + (##car _%e179822180492%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179718180391%_)) + (gx#stx-null? _%tl179824180497%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179706180359%_)) + (gx#stx-null? _%tl179812180465%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179694180327%_)) + (gx#stx-null? _%tl179800180433%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179719180394%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179825180500%_ (let () (declare (not safe)) (gx#stx-e - _%tl179691180319%_)))) - (let ((_%tl179721180399%_ + _%tl179797180425%_)))) + (let ((_%tl179827180505%_ (let () (declare (not safe)) - (##cdr _%e179719180394%_))) - (_%hd179720180397%_ + (##cdr _%e179825180500%_))) + (_%hd179826180503%_ (let () (declare (not safe)) - (##car _%e179719180394%_)))) + (##car _%e179825180500%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179721180399%_)) - (_%__match192025192026%_ - _%e179669180455%_ - _%hd179670180458%_ - _%tl179671180460%_ - _%e179689180314%_ - _%hd179690180317%_ - _%tl179691180319%_ - _%e179692180322%_ - _%hd179693180325%_ - _%tl179694180327%_ - _%e179695180330%_ - _%hd179696180333%_ - _%tl179697180335%_ - _%e179698180338%_ - _%hd179699180341%_ - _%tl179700180343%_ - _%e179701180346%_ - _%hd179702180349%_ - _%tl179703180351%_ - _%e179704180354%_ - _%hd179705180357%_ - _%tl179706180359%_ - _%e179707180362%_ - _%hd179708180365%_ - _%tl179709180367%_ - _%e179710180370%_ - _%hd179711180373%_ - _%tl179712180375%_ - _%e179713180378%_ - _%hd179714180381%_ - _%tl179715180383%_ - _%e179716180386%_ - _%hd179717180389%_ - _%tl179718180391%_ - _%e179719180394%_ - _%hd179720180397%_ - _%tl179721180399%_) + _%tl179827180505%_)) + (_%__match192131192132%_ + _%e179775180561%_ + _%hd179776180564%_ + _%tl179777180566%_ + _%e179795180420%_ + _%hd179796180423%_ + _%tl179797180425%_ + _%e179798180428%_ + _%hd179799180431%_ + _%tl179800180433%_ + _%e179801180436%_ + _%hd179802180439%_ + _%tl179803180441%_ + _%e179804180444%_ + _%hd179805180447%_ + _%tl179806180449%_ + _%e179807180452%_ + _%hd179808180455%_ + _%tl179809180457%_ + _%e179810180460%_ + _%hd179811180463%_ + _%tl179812180465%_ + _%e179813180468%_ + _%hd179814180471%_ + _%tl179815180473%_ + _%e179816180476%_ + _%hd179817180479%_ + _%tl179818180481%_ + _%e179819180484%_ + _%hd179820180487%_ + _%tl179821180489%_ + _%e179822180492%_ + _%hd179823180495%_ + _%tl179824180497%_ + _%e179825180500%_ + _%hd179826180503%_ + _%tl179827180505%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) (gx#stx-e - _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))) + (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))) + (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))))) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179691180319%_)) - (let ((_%e179730180276%_ + _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) (gx#stx-e - _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) (gx#stx-e - _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))) + (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))) + (_%g179770179903%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179691180319%_)) - (let ((_%e179730180276%_ + _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ - (let () (declare (not safe)) (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ + (let () (declare (not safe)) (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))))) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179691180319%_)) - (let ((_%e179730180276%_ + _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) (gx#stx-e - _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))) + (_%g179770179903%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179691180319%_)) - (let ((_%e179730180276%_ + (gx#stx-pair? _%tl179797180425%_)) + (let ((_%e179836180382%_ (let () (declare (not safe)) - (gx#stx-e _%tl179691180319%_)))) - (let ((_%tl179732180281%_ + (gx#stx-e _%tl179797180425%_)))) + (let ((_%tl179838180387%_ (let () (declare (not safe)) - (##cdr _%e179730180276%_))) - (_%hd179731180279%_ + (##cdr _%e179836180382%_))) + (_%hd179837180385%_ (let () (declare (not safe)) - (##car _%e179730180276%_)))) + (##car _%e179836180382%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179732180281%_)) - (_%__kont191892191893%_ - _%hd179731180279%_ - _%hd179690180317%_) + (gx#stx-null? _%tl179838180387%_)) + (_%__kont191998191999%_ + _%hd179837180385%_ + _%hd179796180423%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_)))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd179670180458%_)) + _%hd179776180564%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179671180460%_)) - (let ((_%e179739180180%_ + _%tl179777180566%_)) + (let ((_%e179845180286%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl179671180460%_)))) - (let ((_%tl179741180185%_ - (let () (declare (not safe)) (##cdr _%e179739180180%_))) - (_%hd179740180183%_ + (gx#stx-e _%tl179777180566%_)))) + (let ((_%tl179847180291%_ + (let () (declare (not safe)) (##cdr _%e179845180286%_))) + (_%hd179846180289%_ (let () (declare (not safe)) - (##car _%e179739180180%_)))) + (##car _%e179845180286%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179740180183%_)) - (let ((_%e179742180188%_ + (gx#stx-pair? _%hd179846180289%_)) + (let ((_%e179848180294%_ (let () (declare (not safe)) - (gx#stx-e _%hd179740180183%_)))) - (let ((_%tl179744180193%_ + (gx#stx-e _%hd179846180289%_)))) + (let ((_%tl179850180299%_ (let () (declare (not safe)) - (##cdr _%e179742180188%_))) - (_%hd179743180191%_ + (##cdr _%e179848180294%_))) + (_%hd179849180297%_ (let () (declare (not safe)) - (##car _%e179742180188%_)))) + (##car _%e179848180294%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179743180191%_)) - (let ((_%e179745180196%_ + (gx#stx-pair? _%hd179849180297%_)) + (let ((_%e179851180302%_ (let () (declare (not safe)) - (gx#stx-e _%hd179743180191%_)))) - (let ((_%tl179747180201%_ + (gx#stx-e _%hd179849180297%_)))) + (let ((_%tl179853180307%_ (let () (declare (not safe)) - (##cdr _%e179745180196%_))) - (_%hd179746180199%_ + (##cdr _%e179851180302%_))) + (_%hd179852180305%_ (let () (declare (not safe)) - (##car _%e179745180196%_)))) + (##car _%e179851180302%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179746180199%_)) - (let ((_%e179748180204%_ + (gx#stx-pair? _%hd179852180305%_)) + (let ((_%e179854180310%_ (let () (declare (not safe)) - (gx#stx-e _%hd179746180199%_)))) - (let ((_%tl179750180209%_ + (gx#stx-e _%hd179852180305%_)))) + (let ((_%tl179856180315%_ (let () (declare (not safe)) - (##cdr _%e179748180204%_))) - (_%hd179749180207%_ + (##cdr _%e179854180310%_))) + (_%hd179855180313%_ (let () (declare (not safe)) - (##car _%e179748180204%_)))) + (##car _%e179854180310%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179750180209%_)) + _%tl179856180315%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179747180201%_)) - (let ((_%e179751180212%_ + _%tl179853180307%_)) + (let ((_%e179857180318%_ (let () (declare (not safe)) (gx#stx-e - _%tl179747180201%_)))) - (let ((_%tl179753180217%_ + _%tl179853180307%_)))) + (let ((_%tl179859180323%_ (let () (declare (not safe)) - (##cdr _%e179751180212%_))) - (_%hd179752180215%_ + (##cdr _%e179857180318%_))) + (_%hd179858180321%_ (let () (declare (not safe)) - (##car _%e179751180212%_)))) + (##car _%e179857180318%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179753180217%_)) + _%tl179859180323%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179744180193%_)) + (gx#stx-null? _%tl179850180299%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179741180185%_)) - (let ((_%e179754180220%_ + (gx#stx-pair? _%tl179847180291%_)) + (let ((_%e179860180326%_ (let () (declare (not safe)) - (gx#stx-e _%tl179741180185%_)))) - (let ((_%tl179756180225%_ + (gx#stx-e _%tl179847180291%_)))) + (let ((_%tl179862180331%_ (let () (declare (not safe)) - (##cdr _%e179754180220%_))) - (_%hd179755180223%_ + (##cdr _%e179860180326%_))) + (_%hd179861180329%_ (let () (declare (not safe)) - (##car _%e179754180220%_)))) + (##car _%e179860180326%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179756180225%_)) - (_%__kont191894191895%_ - _%hd179755180223%_ - _%hd179752180215%_ - _%hd179749180207%_) + (gx#stx-null? _%tl179862180331%_)) + (_%__kont192000192001%_ + _%hd179861180329%_ + _%hd179858180321%_ + _%hd179855180313%_) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))) - (let () (declare (not safe)) (_%g179664179797%_))) - (let () (declare (not safe)) (_%g179664179797%_))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))) + (let () (declare (not safe)) (_%g179770179903%_))) + (let () (declare (not safe)) (_%g179770179903%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd179670180458%_)) + _%hd179776180564%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179671180460%_)) - (let ((_%e179763179810%_ + _%tl179777180566%_)) + (let ((_%e179869179916%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl179671180460%_)))) - (let ((_%tl179765179815%_ + (gx#stx-e _%tl179777180566%_)))) + (let ((_%tl179871179921%_ (let () (declare (not safe)) - (##cdr _%e179763179810%_))) - (_%hd179764179813%_ + (##cdr _%e179869179916%_))) + (_%hd179870179919%_ (let () (declare (not safe)) - (##car _%e179763179810%_)))) + (##car _%e179869179916%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179764179813%_)) - (let ((_%e179766179818%_ + (gx#stx-pair? _%hd179870179919%_)) + (let ((_%e179872179924%_ (let () (declare (not safe)) - (gx#stx-e _%hd179764179813%_)))) - (let ((_%tl179768179823%_ + (gx#stx-e _%hd179870179919%_)))) + (let ((_%tl179874179929%_ (let () (declare (not safe)) - (##cdr _%e179766179818%_))) - (_%hd179767179821%_ + (##cdr _%e179872179924%_))) + (_%hd179873179927%_ (let () (declare (not safe)) - (##car _%e179766179818%_)))) + (##car _%e179872179924%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179767179821%_)) + (gx#identifier? _%hd179873179927%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179767179821%_)) + _%hd179873179927%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179768179823%_)) - (let ((_%e179769179826%_ + (gx#stx-pair? _%tl179874179929%_)) + (let ((_%e179875179932%_ (let () (declare (not safe)) (gx#stx-e - _%tl179768179823%_)))) - (let ((_%tl179771179831%_ + _%tl179874179929%_)))) + (let ((_%tl179877179937%_ (let () (declare (not safe)) - (##cdr _%e179769179826%_))) - (_%hd179770179829%_ + (##cdr _%e179875179932%_))) + (_%hd179876179935%_ (let () (declare (not safe)) - (##car _%e179769179826%_)))) + (##car _%e179875179932%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179770179829%_)) - (let ((_%__splice191898191899%_ + _%hd179876179935%_)) + (let ((_%__splice192004192005%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd179770179829%_ + _%hd179876179935%_ '0)))) - (let ((_%tl179774179836%_ + (let ((_%tl179880179942%_ (let () (declare (not safe)) (##vector-ref - _%__splice191898191899%_ + _%__splice192004192005%_ '1))) - (_%target179772179834%_ + (_%target179878179940%_ (let () (declare (not safe)) (##vector-ref - _%__splice191898191899%_ + _%__splice192004192005%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179774179836%_)) - (_%__match192143192144%_ - _%e179669180455%_ - _%hd179670180458%_ - _%tl179671180460%_ - _%e179763179810%_ - _%hd179764179813%_ - _%tl179765179815%_ - _%e179766179818%_ - _%hd179767179821%_ - _%tl179768179823%_ - _%e179769179826%_ - _%hd179770179829%_ - _%tl179771179831%_ - _%__splice191898191899%_ - _%target179772179834%_ - _%tl179774179836%_) + _%tl179880179942%_)) + (_%__match192249192250%_ + _%e179775180561%_ + _%hd179776180564%_ + _%tl179777180566%_ + _%e179869179916%_ + _%hd179870179919%_ + _%tl179871179921%_ + _%e179872179924%_ + _%hd179873179927%_ + _%tl179874179929%_ + _%e179875179932%_ + _%hd179876179935%_ + _%tl179877179937%_ + _%__splice192004192005%_ + _%target179878179940%_ + _%tl179880179942%_) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (let () (declare (not safe)) - (_%g179664179797%_))) + (_%g179770179903%_))) (let () (declare (not safe)) - (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))))) - (let () (declare (not safe)) (_%g179664179797%_))) - (let () (declare (not safe)) (_%g179664179797%_)))))) + (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))))) + (let () (declare (not safe)) (_%g179770179903%_))) + (let () (declare (not safe)) (_%g179770179903%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g179664179797%_))))) + (_%g179770179903%_))))) (let () (declare (not safe)) - (_%g179664179797%_)))))))) - (_%xform-loop-e179271%_ - (lambda (_%expr179481%_ - _%kont-id179482%_ - _%kont-box179483%_ - _%negation-id179484%_) - (let* ((_%g179486179526%_ - (lambda (_%g179487179523%_) + (_%g179770179903%_)))))))) + (_%xform-loop-e179377%_ + (lambda (_%expr179587%_ + _%kont-id179588%_ + _%kont-box179589%_ + _%negation-id179590%_) + (let* ((_%g179592179632%_ + (lambda (_%g179593179629%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179487179523%_)))) - (_%g179485179652%_ - (lambda (_%g179487179529%_) + _%g179593179629%_)))) + (_%g179591179758%_ + (lambda (_%g179593179635%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179487179529%_)) - (let ((_%e179492179531%_ + (gx#stx-pair? _%g179593179635%_)) + (let ((_%e179598179637%_ (let () (declare (not safe)) - (gx#stx-e _%g179487179529%_)))) - (let ((_%hd179493179534%_ + (gx#stx-e _%g179593179635%_)))) + (let ((_%hd179599179640%_ (let () (declare (not safe)) - (##car _%e179492179531%_))) - (_%tl179494179536%_ + (##car _%e179598179637%_))) + (_%tl179600179642%_ (let () (declare (not safe)) - (##cdr _%e179492179531%_)))) + (##cdr _%e179598179637%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179493179534%_)) + _%hd179599179640%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179493179534%_)) + _%hd179599179640%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179494179536%_)) - (let ((_%e179495179539%_ + _%tl179600179642%_)) + (let ((_%e179601179645%_ (let () (declare (not safe)) (gx#stx-e - _%tl179494179536%_)))) - (let ((_%hd179496179542%_ + _%tl179600179642%_)))) + (let ((_%hd179602179648%_ (let () (declare (not safe)) - (##car _%e179495179539%_))) - (_%tl179497179544%_ + (##car _%e179601179645%_))) + (_%tl179603179650%_ (let () (declare (not safe)) - (##cdr _%e179495179539%_)))) + (##cdr _%e179601179645%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd179496179542%_)) - (let ((_g192531_ + _%hd179602179648%_)) + (let ((_g192637_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd179496179542%_ '0)))) + (gx#syntax-split-splice _%hd179602179648%_ '0)))) (begin - (let ((_g192532_ + (let ((_g192638_ (let () (declare (not safe)) - (if (##values? _g192531_) - (##vector-length _g192531_) + (if (##values? _g192637_) + (##values-length _g192637_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192532_ 2))) - (error "Context expects 2 values" _g192532_))) - (let ((_%target179498179547%_ + (##fx= _g192638_ 2))) + (error "Context expects 2 values" _g192638_))) + (let ((_%target179604179653%_ (let () (declare (not safe)) - (##vector-ref _g192531_ 0))) - (_%tl179500179549%_ + (##values-ref _g192637_ 0))) + (_%tl179606179655%_ (let () (declare (not safe)) - (##vector-ref _g192531_ 1)))) + (##values-ref _g192637_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179500179549%_)) - (letrec ((_%loop179501179552%_ - (lambda (_%hd179499179555%_ - _%id179505179557%_) + (gx#stx-null? _%tl179606179655%_)) + (letrec ((_%loop179607179658%_ + (lambda (_%hd179605179661%_ + _%id179611179663%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179499179555%_)) - (let ((_%e179502179560%_ + _%hd179605179661%_)) + (let ((_%e179608179666%_ (let () (declare (not safe)) (gx#stx-e - _%hd179499179555%_)))) - (let ((_%lp-hd179503179563%_ + _%hd179605179661%_)))) + (let ((_%lp-hd179609179669%_ (let () (declare (not safe)) - (##car _%e179502179560%_))) - (_%lp-tl179504179565%_ + (##car _%e179608179666%_))) + (_%lp-tl179610179671%_ (let () (declare (not safe)) - (##cdr _%e179502179560%_)))) - (_%loop179501179552%_ - _%lp-tl179504179565%_ - (cons _%lp-hd179503179563%_ - _%id179505179557%_)))) - (let ((_%id179506179568%_ - (reverse _%id179505179557%_))) + (##cdr _%e179608179666%_)))) + (_%loop179607179658%_ + _%lp-tl179610179671%_ + (cons _%lp-hd179609179669%_ + _%id179611179663%_)))) + (let ((_%id179612179674%_ + (reverse _%id179611179663%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179497179544%_)) - (let ((_%e179507179571%_ + _%tl179603179650%_)) + (let ((_%e179613179677%_ (let () (declare (not safe)) (gx#stx-e - _%tl179497179544%_)))) - (let ((_%hd179508179574%_ + _%tl179603179650%_)))) + (let ((_%hd179614179680%_ (let () (declare (not safe)) - (##car _%e179507179571%_))) - (_%tl179509179576%_ + (##car _%e179613179677%_))) + (_%tl179615179682%_ (let () (declare (not safe)) - (##cdr _%e179507179571%_)))) + (##cdr _%e179613179677%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd179508179574%_)) - (let ((_%e179510179579%_ + _%hd179614179680%_)) + (let ((_%e179616179685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd179508179574%_)))) - (let ((_%hd179511179582%_ + (gx#stx-e _%hd179614179680%_)))) + (let ((_%hd179617179688%_ (let () (declare (not safe)) - (##car _%e179510179579%_))) - (_%tl179512179584%_ + (##car _%e179616179685%_))) + (_%tl179618179690%_ (let () (declare (not safe)) - (##cdr _%e179510179579%_)))) + (##cdr _%e179616179685%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd179511179582%_)) + (gx#identifier? _%hd179617179688%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#if _%hd179511179582%_)) + (gx#stx-eq? '%#if _%hd179617179688%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179512179584%_)) - (let ((_%e179513179587%_ + (gx#stx-pair? _%tl179618179690%_)) + (let ((_%e179619179693%_ (let () (declare (not safe)) - (gx#stx-e _%tl179512179584%_)))) - (let ((_%hd179514179590%_ + (gx#stx-e _%tl179618179690%_)))) + (let ((_%hd179620179696%_ (let () (declare (not safe)) - (##car _%e179513179587%_))) - (_%tl179515179592%_ + (##car _%e179619179693%_))) + (_%tl179621179698%_ (let () (declare (not safe)) - (##cdr _%e179513179587%_)))) + (##cdr _%e179619179693%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179515179592%_)) - (let ((_%e179516179595%_ + (gx#stx-pair? _%tl179621179698%_)) + (let ((_%e179622179701%_ (let () (declare (not safe)) (gx#stx-e - _%tl179515179592%_)))) - (let ((_%hd179517179598%_ + _%tl179621179698%_)))) + (let ((_%hd179623179704%_ (let () (declare (not safe)) - (##car _%e179516179595%_))) - (_%tl179518179600%_ + (##car _%e179622179701%_))) + (_%tl179624179706%_ (let () (declare (not safe)) - (##cdr _%e179516179595%_)))) + (##cdr _%e179622179701%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179518179600%_)) - (let ((_%e179519179603%_ + _%tl179624179706%_)) + (let ((_%e179625179709%_ (let () (declare (not safe)) (gx#stx-e - _%tl179518179600%_)))) - (let ((_%hd179520179606%_ + _%tl179624179706%_)))) + (let ((_%hd179626179712%_ (let () (declare (not safe)) - (##car _%e179519179603%_))) - (_%tl179521179608%_ + (##car _%e179625179709%_))) + (_%tl179627179714%_ (let () (declare (not safe)) - (##cdr _%e179519179603%_)))) + (##cdr _%e179625179709%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl179521179608%_)) + _%tl179627179714%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl179509179576%_)) - ((lambda (_%L179611%_ - _%L179612%_ - _%L179613%_ - _%L179614%_) - (let ((_%E179643%_ - (_%xform-e179270%_ - _%L179611%_ - _%kont-id179482%_ - _%kont-box179483%_ - _%negation-id179484%_))) + (gx#stx-null? _%tl179615179682%_)) + ((lambda (_%L179717%_ + _%L179718%_ + _%L179719%_ + _%L179720%_) + (let ((_%E179749%_ + (_%xform-e179376%_ + _%L179717%_ + _%kont-id179588%_ + _%kont-box179589%_ + _%negation-id179590%_))) (cons '%#lambda - (cons (let ((__tmp192533 - (lambda (_%g179644179647%_ - _%g179645179649%_) - (cons _%g179644179647%_ - _%g179645179649%_)))) + (cons (let ((__tmp192639 + (lambda (_%g179750179753%_ + _%g179751179755%_) + (cons _%g179750179753%_ + _%g179751179755%_)))) (declare (not safe)) (__foldr1 - __tmp192533 + __tmp192639 '() - _%L179614%_)) + _%L179720%_)) (cons (cons '%#if - (cons _%L179613%_ - (cons _%L179612%_ - (cons _%E179643%_ + (cons _%L179719%_ + (cons _%L179718%_ + (cons _%E179749%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd179520179606%_ - _%hd179517179598%_ - _%hd179514179590%_ - _%id179506179568%_) - (_%g179486179526%_ _%g179487179529%_)) - (_%g179486179526%_ _%g179487179529%_)))) + _%hd179626179712%_ + _%hd179623179704%_ + _%hd179620179696%_ + _%id179612179674%_) + (_%g179592179632%_ _%g179593179635%_)) + (_%g179592179632%_ _%g179593179635%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179486179526%_ - _%g179487179529%_)))) - (_%g179486179526%_ - _%g179487179529%_)))) - (_%g179486179526%_ _%g179487179529%_)) - (_%g179486179526%_ _%g179487179529%_)) - (_%g179486179526%_ _%g179487179529%_)))) - (_%g179486179526%_ _%g179487179529%_)))) + (_%g179592179632%_ + _%g179593179635%_)))) + (_%g179592179632%_ + _%g179593179635%_)))) + (_%g179592179632%_ _%g179593179635%_)) + (_%g179592179632%_ _%g179593179635%_)) + (_%g179592179632%_ _%g179593179635%_)))) + (_%g179592179632%_ _%g179593179635%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179486179526%_ - _%g179487179529%_))))))) - (_%loop179501179552%_ - _%target179498179547%_ + (_%g179592179632%_ + _%g179593179635%_))))))) + (_%loop179607179658%_ + _%target179604179653%_ '())) - (_%g179486179526%_ _%g179487179529%_))))) - (_%g179486179526%_ _%g179487179529%_)))) + (_%g179592179632%_ _%g179593179635%_))))) + (_%g179592179632%_ _%g179593179635%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179486179526%_ - _%g179487179529%_)) - (_%g179486179526%_ - _%g179487179529%_)) - (_%g179486179526%_ - _%g179487179529%_)))) - (_%g179486179526%_ _%g179487179529%_))))) - (_%g179485179652%_ _%expr179481%_)))) - (_%clause-e179272%_ - (lambda (_%clause-lambda179351%_ - _%kont-id179352%_ - _%rest179353%_) - (letrec* ((_%kont-box179355%_ (box '#f))) - (let* ((_%negation-id179395%_ - (let* ((_%rest179356179366%_ _%rest179353%_) - (_%else179358179374%_ - (lambda () _%negation-id179268%_)) - (_%K179360179380%_ - (lambda (_%clause179377%_ - _%clause-id179378%_) - _%clause-id179378%_))) - (if (pair? _%rest179356179366%_) - (let ((_%hd179361179383%_ + (_%g179592179632%_ + _%g179593179635%_)) + (_%g179592179632%_ + _%g179593179635%_)) + (_%g179592179632%_ + _%g179593179635%_)))) + (_%g179592179632%_ _%g179593179635%_))))) + (_%g179591179758%_ _%expr179587%_)))) + (_%clause-e179378%_ + (lambda (_%clause-lambda179457%_ + _%kont-id179458%_ + _%rest179459%_) + (letrec* ((_%kont-box179461%_ (box '#f))) + (let* ((_%negation-id179501%_ + (let* ((_%rest179462179472%_ _%rest179459%_) + (_%else179464179480%_ + (lambda () _%negation-id179374%_)) + (_%K179466179486%_ + (lambda (_%clause179483%_ + _%clause-id179484%_) + _%clause-id179484%_))) + (if (pair? _%rest179462179472%_) + (let ((_%hd179467179489%_ (let () (declare (not safe)) - (##car _%rest179356179366%_)))) - (if (pair? _%hd179361179383%_) - (let ((_%hd179363179386%_ + (##car _%rest179462179472%_)))) + (if (pair? _%hd179467179489%_) + (let ((_%hd179469179492%_ (let () (declare (not safe)) - (##car _%hd179361179383%_))) - (_%tl179364179388%_ + (##car _%hd179467179489%_))) + (_%tl179470179494%_ (let () (declare (not safe)) - (##cdr _%hd179361179383%_)))) - (let* ((_%clause-id179391%_ - _%hd179363179386%_) - (_%clause179393%_ - _%tl179364179388%_)) - (_%K179360179380%_ - _%clause179393%_ - _%clause-id179391%_))) - (_%else179358179374%_))) - (_%else179358179374%_)))) - (_%g179397179417%_ - (lambda (_%g179398179414%_) + (##cdr _%hd179467179489%_)))) + (let* ((_%clause-id179497%_ + _%hd179469179492%_) + (_%clause179499%_ + _%tl179470179494%_)) + (_%K179466179486%_ + _%clause179499%_ + _%clause-id179497%_))) + (_%else179464179480%_))) + (_%else179464179480%_)))) + (_%g179503179523%_ + (lambda (_%g179504179520%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g179398179414%_)))) - (_%g179396179478%_ - (lambda (_%g179398179420%_) + _%g179504179520%_)))) + (_%g179502179584%_ + (lambda (_%g179504179526%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g179398179420%_)) - (let ((_%e179401179422%_ + (gx#stx-pair? _%g179504179526%_)) + (let ((_%e179507179528%_ (let () (declare (not safe)) - (gx#stx-e _%g179398179420%_)))) - (let ((_%hd179402179425%_ + (gx#stx-e _%g179504179526%_)))) + (let ((_%hd179508179531%_ (let () (declare (not safe)) - (##car _%e179401179422%_))) - (_%tl179403179427%_ + (##car _%e179507179528%_))) + (_%tl179509179533%_ (let () (declare (not safe)) - (##cdr _%e179401179422%_)))) + (##cdr _%e179507179528%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd179402179425%_)) + _%hd179508179531%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd179402179425%_)) + _%hd179508179531%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl179403179427%_)) - (let ((_%e179404179430%_ + _%tl179509179533%_)) + (let ((_%e179510179536%_ (let () (declare (not safe)) (gx#stx-e - _%tl179403179427%_)))) - (let ((_%hd179405179433%_ + _%tl179509179533%_)))) + (let ((_%hd179511179539%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e179404179430%_))) - (_%tl179406179435%_ - (let () (declare (not safe)) (##cdr _%e179404179430%_)))) + (##car _%e179510179536%_))) + (_%tl179512179541%_ + (let () (declare (not safe)) (##cdr _%e179510179536%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd179405179433%_)) - (let ((_%e179407179438%_ + (gx#stx-pair? _%hd179511179539%_)) + (let ((_%e179513179544%_ (let () (declare (not safe)) - (gx#stx-e _%hd179405179433%_)))) - (let ((_%hd179408179441%_ + (gx#stx-e _%hd179511179539%_)))) + (let ((_%hd179514179547%_ (let () (declare (not safe)) - (##car _%e179407179438%_))) - (_%tl179409179443%_ + (##car _%e179513179544%_))) + (_%tl179515179549%_ (let () (declare (not safe)) - (##cdr _%e179407179438%_)))) + (##cdr _%e179513179544%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179409179443%_)) + (gx#stx-null? _%tl179515179549%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl179406179435%_)) - (let ((_%e179410179446%_ + (gx#stx-pair? _%tl179512179541%_)) + (let ((_%e179516179552%_ (let () (declare (not safe)) - (gx#stx-e _%tl179406179435%_)))) - (let ((_%hd179411179449%_ + (gx#stx-e _%tl179512179541%_)))) + (let ((_%hd179517179555%_ (let () (declare (not safe)) - (##car _%e179410179446%_))) - (_%tl179412179451%_ + (##car _%e179516179552%_))) + (_%tl179518179557%_ (let () (declare (not safe)) - (##cdr _%e179410179446%_)))) + (##cdr _%e179516179552%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl179412179451%_)) - ((lambda (_%L179454%_ _%L179455%_) - (let ((_%body179476%_ - (_%xform-e179270%_ - _%L179454%_ - _%kont-id179352%_ - _%kont-box179355%_ - _%negation-id179395%_))) + (gx#stx-null? _%tl179518179557%_)) + ((lambda (_%L179560%_ _%L179561%_) + (let ((_%body179582%_ + (_%xform-e179376%_ + _%L179560%_ + _%kont-id179458%_ + _%kont-box179461%_ + _%negation-id179501%_))) (values (cons '%#lambda - (cons (cons _%L179455%_ + (cons (cons _%L179561%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%body179476%_ '()))) + (cons _%body179582%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (unbox _%kont-box179355%_)))) - _%hd179411179449%_ - _%hd179408179441%_) - (_%g179397179417%_ - _%g179398179420%_)))) - (_%g179397179417%_ _%g179398179420%_)) - (_%g179397179417%_ _%g179398179420%_)))) - (_%g179397179417%_ _%g179398179420%_)))) + (unbox _%kont-box179461%_)))) + _%hd179517179555%_ + _%hd179514179547%_) + (_%g179503179523%_ + _%g179504179526%_)))) + (_%g179503179523%_ _%g179504179526%_)) + (_%g179503179523%_ _%g179504179526%_)))) + (_%g179503179523%_ _%g179504179526%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g179397179417%_ - _%g179398179420%_)) - (_%g179397179417%_ - _%g179398179420%_)) - (_%g179397179417%_ - _%g179398179420%_)))) - (_%g179397179417%_ _%g179398179420%_))))) - (_%g179396179478%_ _%clause-lambda179351%_)))))) - (let _%lp179274%_ ((_%rest179276%_ _%clauses179267%_) - (_%clauses179277%_ '()) - (_%konts179278%_ '())) - (let* ((_%rest179279179287%_ _%rest179276%_) - (_%else179281179295%_ + (_%g179503179523%_ + _%g179504179526%_)) + (_%g179503179523%_ + _%g179504179526%_)) + (_%g179503179523%_ + _%g179504179526%_)))) + (_%g179503179523%_ _%g179504179526%_))))) + (_%g179502179584%_ _%clause-lambda179457%_)))))) + (let _%lp179380%_ ((_%rest179382%_ _%clauses179373%_) + (_%clauses179383%_ '()) + (_%konts179384%_ '())) + (let* ((_%rest179385179393%_ _%rest179382%_) + (_%else179387179401%_ (lambda () - (values (reverse _%clauses179277%_) - (reverse _%konts179278%_)))) - (_%K179283179339%_ - (lambda (_%rest179298%_ _%clause179299%_) - (let* ((_%clause179300179307%_ _%clause179299%_) - (_%E179302179311%_ + (values (reverse _%clauses179383%_) + (reverse _%konts179384%_)))) + (_%K179389179445%_ + (lambda (_%rest179404%_ _%clause179405%_) + (let* ((_%clause179406179413%_ _%clause179405%_) + (_%E179408179417%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause179300179307%_ + _%clause179406179413%_ '([clause-id . clause-lambda]))) '#!void)) - (_%K179303179327%_ - (lambda (_%clause-lambda179314%_ - _%clause-id179315%_) - (let* ((_%id179317%_ - (let ((__tmp192534 + (_%K179409179433%_ + (lambda (_%clause-lambda179420%_ + _%clause-id179421%_) + (let* ((_%id179423%_ + (let ((__tmp192640 (let () (declare (not safe)) (##gensym '__kont)))) (declare (not safe)) - (make-symbol__0 __tmp192534))) - (_%id179319%_ + (make-symbol__0 __tmp192640))) + (_%id179425%_ (let () (declare (not safe)) (gx#core-quote-syntax__0 - _%id179317%_))) - (_%_179321%_ + _%id179423%_))) + (_%_179427%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%id179319%_))) - (_g192535_ - (_%clause-e179272%_ - _%clause-lambda179314%_ - _%id179319%_ - _%rest179298%_))) + _%id179425%_))) + (_g192641_ + (_%clause-e179378%_ + _%clause-lambda179420%_ + _%id179425%_ + _%rest179404%_))) (begin - (let ((_g192536_ + (let ((_g192642_ (let () (declare (not safe)) - (if (##values? _g192535_) - (##vector-length _g192535_) + (if (##values? _g192641_) + (##values-length _g192641_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g192536_ 2))) + (##fx= _g192642_ 2))) (error "Context expects 2 values" - _g192536_))) - (let ((_%clause-lambda179323%_ + _g192642_))) + (let ((_%clause-lambda179429%_ (let () (declare (not safe)) - (##vector-ref _g192535_ 0))) - (_%kont179324%_ + (##values-ref _g192641_ 0))) + (_%kont179430%_ (let () (declare (not safe)) - (##vector-ref _g192535_ 1)))) - (_%lp179274%_ - _%rest179298%_ - (cons (cons _%clause-id179315%_ - _%clause-lambda179323%_) - _%clauses179277%_) - (cons (cons _%id179319%_ _%kont179324%_) - _%konts179278%_)))))))) - (if (pair? _%clause179300179307%_) - (let ((_%hd179304179330%_ + (##values-ref _g192641_ 1)))) + (_%lp179380%_ + _%rest179404%_ + (cons (cons _%clause-id179421%_ + _%clause-lambda179429%_) + _%clauses179383%_) + (cons (cons _%id179425%_ _%kont179430%_) + _%konts179384%_)))))))) + (if (pair? _%clause179406179413%_) + (let ((_%hd179410179436%_ (let () (declare (not safe)) - (##car _%clause179300179307%_))) - (_%tl179305179332%_ + (##car _%clause179406179413%_))) + (_%tl179411179438%_ (let () (declare (not safe)) - (##cdr _%clause179300179307%_)))) - (let* ((_%clause-id179335%_ _%hd179304179330%_) - (_%clause-lambda179337%_ - _%tl179305179332%_)) - (_%K179303179327%_ - _%clause-lambda179337%_ - _%clause-id179335%_))) - (_%E179302179311%_)))))) - (if (pair? _%rest179279179287%_) - (let ((_%hd179284179342%_ + (##cdr _%clause179406179413%_)))) + (let* ((_%clause-id179441%_ _%hd179410179436%_) + (_%clause-lambda179443%_ + _%tl179411179438%_)) + (_%K179409179433%_ + _%clause-lambda179443%_ + _%clause-id179441%_))) + (_%E179408179417%_)))))) + (if (pair? _%rest179385179393%_) + (let ((_%hd179390179448%_ (let () (declare (not safe)) - (##car _%rest179279179287%_))) - (_%tl179285179344%_ + (##car _%rest179385179393%_))) + (_%tl179391179450%_ (let () (declare (not safe)) - (##cdr _%rest179279179287%_)))) - (let* ((_%clause179347%_ _%hd179284179342%_) - (_%rest179349%_ _%tl179285179344%_)) - (_%K179283179339%_ _%rest179349%_ _%clause179347%_))) - (_%else179281179295%_))))))) + (##cdr _%rest179385179393%_)))) + (let* ((_%clause179453%_ _%hd179390179448%_) + (_%rest179455%_ _%tl179391179450%_)) + (_%K179389179445%_ _%rest179455%_ _%clause179453%_))) + (_%else179387179401%_))))))) (define gxc#optimize-syntax-case-closure - (lambda (_%clause178611%_ _%negation178612%_ _%target178613%_) - (letrec ((_%closure-e178615%_ - (lambda (_%expr178732%_) - (let* ((_%__stx192146192147%_ _%expr178732%_) - (_%g178739178854%_ + (lambda (_%clause178717%_ _%negation178718%_ _%target178719%_) + (letrec ((_%closure-e178721%_ + (lambda (_%expr178838%_) + (let* ((_%__stx192252192253%_ _%expr178838%_) + (_%g178845178960%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192146192147%_))))) - (let ((_%__kont192148192149%_ - (lambda (_%L179245%_ _%L179246%_ _%L179247%_) + _%__stx192252192253%_))))) + (let ((_%__kont192254192255%_ + (lambda (_%L179351%_ _%L179352%_ _%L179353%_) (cons '%#if - (cons _%L179247%_ - (cons (_%closure-e178615%_ - _%L179246%_) - (cons (_%closure-e178615%_ - _%L179245%_) + (cons _%L179353%_ + (cons (_%closure-e178721%_ + _%L179352%_) + (cons (_%closure-e178721%_ + _%L179351%_) '())))))) - (_%__kont192150192151%_ - (lambda (_%L179193%_ _%L179194%_) + (_%__kont192256192257%_ + (lambda (_%L179299%_ _%L179300%_) (cons '%#let-values - (cons _%L179194%_ - (cons (_%closure-e178615%_ - _%L179193%_) + (cons _%L179300%_ + (cons (_%closure-e178721%_ + _%L179299%_) '()))))) - (_%__kont192152192153%_ - (lambda (_%L179139%_ _%L179140%_ _%L179141%_) + (_%__kont192258192259%_ + (lambda (_%L179245%_ _%L179246%_ _%L179247%_) (cons '%#letrec-values - (cons (cons (cons (cons _%L179141%_ '()) - (cons (_%closure-e178615%_ - _%L179140%_) + (cons (cons (cons (cons _%L179247%_ '()) + (cons (_%closure-e178721%_ + _%L179246%_) '())) '()) - (cons _%L179139%_ '()))))) - (_%__kont192154192155%_ - (lambda (_%L179052%_ _%L179053%_) + (cons _%L179245%_ '()))))) + (_%__kont192260192261%_ + (lambda (_%L179158%_ _%L179159%_) (cons '%#lambda - (cons (let ((__tmp192537 - (lambda (_%g179070179073%_ - _%g179071179075%_) - (cons _%g179070179073%_ - _%g179071179075%_)))) + (cons (let ((__tmp192643 + (lambda (_%g179176179179%_ + _%g179177179181%_) + (cons _%g179176179179%_ + _%g179177179181%_)))) (declare (not safe)) (__foldr1 - __tmp192537 + __tmp192643 '() - _%L179053%_)) - (cons (_%closure-e178615%_ - _%L179052%_) + _%L179159%_)) + (cons (_%closure-e178721%_ + _%L179158%_) '()))))) - (_%__kont192158192159%_ - (lambda (_%L178982%_) + (_%__kont192264192265%_ + (lambda (_%L179088%_) (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L178982%_ '())) + (cons _%L179088%_ '())) '())))) - (_%__kont192160192161%_ - (lambda (_%L178915%_ _%L178916%_) - _%expr178732%_))) - (let* ((_%__match192379192380%_ - (lambda (_%e178829178859%_ - _%hd178830178862%_ - _%tl178831178864%_ - _%e178832178867%_ - _%hd178833178870%_ - _%tl178834178872%_ - _%e178835178875%_ - _%hd178836178878%_ - _%tl178837178880%_ - _%e178838178883%_ - _%hd178839178886%_ - _%tl178840178888%_ - _%__splice192162192163%_ - _%target178841178891%_ - _%tl178843178893%_) - (letrec ((_%loop178844178896%_ - (lambda (_%hd178842178899%_ - _%arg178848178901%_) + (_%__kont192266192267%_ + (lambda (_%L179021%_ _%L179022%_) + _%expr178838%_))) + (let* ((_%__match192485192486%_ + (lambda (_%e178935178965%_ + _%hd178936178968%_ + _%tl178937178970%_ + _%e178938178973%_ + _%hd178939178976%_ + _%tl178940178978%_ + _%e178941178981%_ + _%hd178942178984%_ + _%tl178943178986%_ + _%e178944178989%_ + _%hd178945178992%_ + _%tl178946178994%_ + _%__splice192268192269%_ + _%target178947178997%_ + _%tl178949178999%_) + (letrec ((_%loop178950179002%_ + (lambda (_%hd178948179005%_ + _%arg178954179007%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178842178899%_)) - (let ((_%e178845178904%_ + _%hd178948179005%_)) + (let ((_%e178951179010%_ (let () (declare (not safe)) (gx#stx-e - _%hd178842178899%_)))) - (let ((_%lp-tl178847178909%_ + _%hd178948179005%_)))) + (let ((_%lp-tl178953179015%_ (let () (declare (not safe)) - (##cdr _%e178845178904%_))) - (_%lp-hd178846178907%_ + (##cdr _%e178951179010%_))) + (_%lp-hd178952179013%_ (let () (declare (not safe)) - (##car _%e178845178904%_)))) - (_%loop178844178896%_ - _%lp-tl178847178909%_ - (cons _%lp-hd178846178907%_ - _%arg178848178901%_)))) - (let ((_%arg178849178912%_ - (reverse _%arg178848178901%_))) - (_%__kont192160192161%_ - _%arg178849178912%_ - _%hd178839178886%_)))))) - (_%loop178844178896%_ - _%target178841178891%_ + (##car _%e178951179010%_)))) + (_%loop178950179002%_ + _%lp-tl178953179015%_ + (cons _%lp-hd178952179013%_ + _%arg178954179007%_)))) + (let ((_%arg178955179018%_ + (reverse _%arg178954179007%_))) + (_%__kont192266192267%_ + _%arg178955179018%_ + _%hd178945178992%_)))))) + (_%loop178950179002%_ + _%target178947178997%_ '())))) - (_%__match192337192338%_ - (lambda (_%e178812178942%_ - _%hd178813178945%_ - _%tl178814178947%_ - _%e178815178950%_ - _%hd178816178953%_ - _%tl178817178955%_ - _%e178818178958%_ - _%hd178819178961%_ - _%tl178820178963%_ - _%e178821178966%_ - _%hd178822178969%_ - _%tl178823178971%_ - _%e178824178974%_ - _%hd178825178977%_ - _%tl178826178979%_) - (let ((_%L178982%_ _%hd178822178969%_)) + (_%__match192443192444%_ + (lambda (_%e178918179048%_ + _%hd178919179051%_ + _%tl178920179053%_ + _%e178921179056%_ + _%hd178922179059%_ + _%tl178923179061%_ + _%e178924179064%_ + _%hd178925179067%_ + _%tl178926179069%_ + _%e178927179072%_ + _%hd178928179075%_ + _%tl178929179077%_ + _%e178930179080%_ + _%hd178931179083%_ + _%tl178932179085%_) + (let ((_%L179088%_ _%hd178928179075%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L178982%_ - _%negation178612%_)) - (_%__kont192158192159%_ _%L178982%_) + _%L179088%_ + _%negation178718%_)) + (_%__kont192264192265%_ _%L179088%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl178817178955%_)) - (let ((_%__splice192162192163%_ + _%tl178923179061%_)) + (let ((_%__splice192268192269%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178817178955%_ + _%tl178923179061%_ '0)))) - (let ((_%tl178843178893%_ + (let ((_%tl178949178999%_ (let () (declare (not safe)) (##vector-ref - _%__splice192162192163%_ + _%__splice192268192269%_ '1))) - (_%target178841178891%_ + (_%target178947178997%_ (let () (declare (not safe)) (##vector-ref - _%__splice192162192163%_ + _%__splice192268192269%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178843178893%_)) - (_%__match192379192380%_ - _%e178812178942%_ - _%hd178813178945%_ - _%tl178814178947%_ - _%e178815178950%_ - _%hd178816178953%_ - _%tl178817178955%_ - _%e178818178958%_ - _%hd178819178961%_ - _%tl178820178963%_ - _%e178821178966%_ - _%hd178822178969%_ - _%tl178823178971%_ - _%__splice192162192163%_ - _%target178841178891%_ - _%tl178843178893%_) + _%tl178949178999%_)) + (_%__match192485192486%_ + _%e178918179048%_ + _%hd178919179051%_ + _%tl178920179053%_ + _%e178921179056%_ + _%hd178922179059%_ + _%tl178923179061%_ + _%e178924179064%_ + _%hd178925179067%_ + _%tl178926179069%_ + _%e178927179072%_ + _%hd178928179075%_ + _%tl178929179077%_ + _%__splice192268192269%_ + _%target178947178997%_ + _%tl178949178999%_) (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_))))))) - (_%__match192295192296%_ - (lambda (_%e178793179004%_ - _%hd178794179007%_ - _%tl178795179009%_ - _%e178796179012%_ - _%hd178797179015%_ - _%tl178798179017%_ - _%__splice192156192157%_ - _%target178799179020%_ - _%tl178801179022%_) - (letrec ((_%loop178802179025%_ - (lambda (_%hd178800179028%_ - _%id178806179030%_) + (_%g178845178960%_))))))) + (_%__match192401192402%_ + (lambda (_%e178899179110%_ + _%hd178900179113%_ + _%tl178901179115%_ + _%e178902179118%_ + _%hd178903179121%_ + _%tl178904179123%_ + _%__splice192262192263%_ + _%target178905179126%_ + _%tl178907179128%_) + (letrec ((_%loop178908179131%_ + (lambda (_%hd178906179134%_ + _%id178912179136%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178800179028%_)) - (let ((_%e178803179033%_ + _%hd178906179134%_)) + (let ((_%e178909179139%_ (let () (declare (not safe)) (gx#stx-e - _%hd178800179028%_)))) - (let ((_%lp-tl178805179038%_ + _%hd178906179134%_)))) + (let ((_%lp-tl178911179144%_ (let () (declare (not safe)) - (##cdr _%e178803179033%_))) - (_%lp-hd178804179036%_ + (##cdr _%e178909179139%_))) + (_%lp-hd178910179142%_ (let () (declare (not safe)) - (##car _%e178803179033%_)))) - (_%loop178802179025%_ - _%lp-tl178805179038%_ - (cons _%lp-hd178804179036%_ - _%id178806179030%_)))) - (let ((_%id178807179041%_ - (reverse _%id178806179030%_))) + (##car _%e178909179139%_)))) + (_%loop178908179131%_ + _%lp-tl178911179144%_ + (cons _%lp-hd178910179142%_ + _%id178912179136%_)))) + (let ((_%id178913179147%_ + (reverse _%id178912179136%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178798179017%_)) - (let ((_%e178808179044%_ + _%tl178904179123%_)) + (let ((_%e178914179150%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl178798179017%_)))) - (let ((_%tl178810179049%_ + (gx#stx-e _%tl178904179123%_)))) + (let ((_%tl178916179155%_ (let () (declare (not safe)) - (##cdr _%e178808179044%_))) - (_%hd178809179047%_ + (##cdr _%e178914179150%_))) + (_%hd178915179153%_ (let () (declare (not safe)) - (##car _%e178808179044%_)))) + (##car _%e178914179150%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178810179049%_)) - (_%__kont192154192155%_ - _%hd178809179047%_ - _%id178807179041%_) - (let () (declare (not safe)) (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_)))))))) + (gx#stx-null? _%tl178916179155%_)) + (_%__kont192260192261%_ + _%hd178915179153%_ + _%id178913179147%_) + (let () (declare (not safe)) (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop178802179025%_ - _%target178799179020%_ + (_%loop178908179131%_ + _%target178905179126%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192146192147%_)) - (let ((_%e178744179213%_ + (gx#stx-pair? _%__stx192252192253%_)) + (let ((_%e178850179319%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192146192147%_)))) - (let ((_%tl178746179218%_ + (gx#stx-e _%__stx192252192253%_)))) + (let ((_%tl178852179324%_ (let () (declare (not safe)) - (##cdr _%e178744179213%_))) - (_%hd178745179216%_ + (##cdr _%e178850179319%_))) + (_%hd178851179322%_ (let () (declare (not safe)) - (##car _%e178744179213%_)))) + (##car _%e178850179319%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178745179216%_)) + (gx#identifier? _%hd178851179322%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#if - _%hd178745179216%_)) + _%hd178851179322%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178746179218%_)) - (let ((_%e178747179221%_ + _%tl178852179324%_)) + (let ((_%e178853179327%_ (let () (declare (not safe)) (gx#stx-e - _%tl178746179218%_)))) - (let ((_%tl178749179226%_ + _%tl178852179324%_)))) + (let ((_%tl178855179332%_ (let () (declare (not safe)) - (##cdr _%e178747179221%_))) - (_%hd178748179224%_ + (##cdr _%e178853179327%_))) + (_%hd178854179330%_ (let () (declare (not safe)) - (##car _%e178747179221%_)))) + (##car _%e178853179327%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178749179226%_)) - (let ((_%e178750179229%_ + _%tl178855179332%_)) + (let ((_%e178856179335%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178749179226%_)))) - (let ((_%tl178752179234%_ - (let () (declare (not safe)) (##cdr _%e178750179229%_))) - (_%hd178751179232%_ + (gx#stx-e _%tl178855179332%_)))) + (let ((_%tl178858179340%_ + (let () (declare (not safe)) (##cdr _%e178856179335%_))) + (_%hd178857179338%_ (let () (declare (not safe)) - (##car _%e178750179229%_)))) + (##car _%e178856179335%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178752179234%_)) - (let ((_%e178753179237%_ + (gx#stx-pair? _%tl178858179340%_)) + (let ((_%e178859179343%_ (let () (declare (not safe)) - (gx#stx-e _%tl178752179234%_)))) - (let ((_%tl178755179242%_ + (gx#stx-e _%tl178858179340%_)))) + (let ((_%tl178861179348%_ (let () (declare (not safe)) - (##cdr _%e178753179237%_))) - (_%hd178754179240%_ + (##cdr _%e178859179343%_))) + (_%hd178860179346%_ (let () (declare (not safe)) - (##car _%e178753179237%_)))) + (##car _%e178859179343%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178755179242%_)) - (_%__kont192148192149%_ - _%hd178754179240%_ - _%hd178751179232%_ - _%hd178748179224%_) + (gx#stx-null? _%tl178861179348%_)) + (_%__kont192254192255%_ + _%hd178860179346%_ + _%hd178857179338%_ + _%hd178854179330%_) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178739178854%_))) + (_%g178845178960%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd178745179216%_)) + _%hd178851179322%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178746179218%_)) - (let ((_%e178761179177%_ + _%tl178852179324%_)) + (let ((_%e178867179283%_ (let () (declare (not safe)) (gx#stx-e - _%tl178746179218%_)))) - (let ((_%tl178763179182%_ + _%tl178852179324%_)))) + (let ((_%tl178869179288%_ (let () (declare (not safe)) - (##cdr _%e178761179177%_))) - (_%hd178762179180%_ + (##cdr _%e178867179283%_))) + (_%hd178868179286%_ (let () (declare (not safe)) - (##car _%e178761179177%_)))) + (##car _%e178867179283%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178763179182%_)) - (let ((_%e178764179185%_ + _%tl178869179288%_)) + (let ((_%e178870179291%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178763179182%_)))) - (let ((_%tl178766179190%_ + (gx#stx-e _%tl178869179288%_)))) + (let ((_%tl178872179296%_ (let () (declare (not safe)) - (##cdr _%e178764179185%_))) - (_%hd178765179188%_ + (##cdr _%e178870179291%_))) + (_%hd178871179294%_ (let () (declare (not safe)) - (##car _%e178764179185%_)))) + (##car _%e178870179291%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178766179190%_)) - (_%__kont192150192151%_ - _%hd178765179188%_ - _%hd178762179180%_) - (let () (declare (not safe)) (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))))) + (gx#stx-null? _%tl178872179296%_)) + (_%__kont192256192257%_ + _%hd178871179294%_ + _%hd178868179286%_) + (let () (declare (not safe)) (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178739178854%_))) + (_%g178845178960%_))) (if (let () (declare (not safe)) (gx#stx-eq? '%#letrec-values - _%hd178745179216%_)) + _%hd178851179322%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178746179218%_)) - (let ((_%e178773179091%_ + _%tl178852179324%_)) + (let ((_%e178879179197%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178746179218%_)))) - (let ((_%tl178775179096%_ - (let () (declare (not safe)) (##cdr _%e178773179091%_))) - (_%hd178774179094%_ + (gx#stx-e _%tl178852179324%_)))) + (let ((_%tl178881179202%_ + (let () (declare (not safe)) (##cdr _%e178879179197%_))) + (_%hd178880179200%_ (let () (declare (not safe)) - (##car _%e178773179091%_)))) + (##car _%e178879179197%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178774179094%_)) - (let ((_%e178776179099%_ + (gx#stx-pair? _%hd178880179200%_)) + (let ((_%e178882179205%_ (let () (declare (not safe)) - (gx#stx-e _%hd178774179094%_)))) - (let ((_%tl178778179104%_ + (gx#stx-e _%hd178880179200%_)))) + (let ((_%tl178884179210%_ (let () (declare (not safe)) - (##cdr _%e178776179099%_))) - (_%hd178777179102%_ + (##cdr _%e178882179205%_))) + (_%hd178883179208%_ (let () (declare (not safe)) - (##car _%e178776179099%_)))) + (##car _%e178882179205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178777179102%_)) - (let ((_%e178779179107%_ + (gx#stx-pair? _%hd178883179208%_)) + (let ((_%e178885179213%_ (let () (declare (not safe)) - (gx#stx-e _%hd178777179102%_)))) - (let ((_%tl178781179112%_ + (gx#stx-e _%hd178883179208%_)))) + (let ((_%tl178887179218%_ (let () (declare (not safe)) - (##cdr _%e178779179107%_))) - (_%hd178780179110%_ + (##cdr _%e178885179213%_))) + (_%hd178886179216%_ (let () (declare (not safe)) - (##car _%e178779179107%_)))) + (##car _%e178885179213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178780179110%_)) - (let ((_%e178782179115%_ + (gx#stx-pair? _%hd178886179216%_)) + (let ((_%e178888179221%_ (let () (declare (not safe)) - (gx#stx-e _%hd178780179110%_)))) - (let ((_%tl178784179120%_ + (gx#stx-e _%hd178886179216%_)))) + (let ((_%tl178890179226%_ (let () (declare (not safe)) - (##cdr _%e178782179115%_))) - (_%hd178783179118%_ + (##cdr _%e178888179221%_))) + (_%hd178889179224%_ (let () (declare (not safe)) - (##car _%e178782179115%_)))) + (##car _%e178888179221%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178784179120%_)) + _%tl178890179226%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178781179112%_)) - (let ((_%e178785179123%_ + _%tl178887179218%_)) + (let ((_%e178891179229%_ (let () (declare (not safe)) (gx#stx-e - _%tl178781179112%_)))) - (let ((_%tl178787179128%_ + _%tl178887179218%_)))) + (let ((_%tl178893179234%_ (let () (declare (not safe)) - (##cdr _%e178785179123%_))) - (_%hd178786179126%_ + (##cdr _%e178891179229%_))) + (_%hd178892179232%_ (let () (declare (not safe)) - (##car _%e178785179123%_)))) + (##car _%e178891179229%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178787179128%_)) + _%tl178893179234%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl178778179104%_)) + (gx#stx-null? _%tl178884179210%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178775179096%_)) - (let ((_%e178788179131%_ + (gx#stx-pair? _%tl178881179202%_)) + (let ((_%e178894179237%_ (let () (declare (not safe)) - (gx#stx-e _%tl178775179096%_)))) - (let ((_%tl178790179136%_ + (gx#stx-e _%tl178881179202%_)))) + (let ((_%tl178896179242%_ (let () (declare (not safe)) - (##cdr _%e178788179131%_))) - (_%hd178789179134%_ + (##cdr _%e178894179237%_))) + (_%hd178895179240%_ (let () (declare (not safe)) - (##car _%e178788179131%_)))) + (##car _%e178894179237%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178790179136%_)) - (_%__kont192152192153%_ - _%hd178789179134%_ - _%hd178786179126%_ - _%hd178783179118%_) + (gx#stx-null? _%tl178896179242%_)) + (_%__kont192258192259%_ + _%hd178895179240%_ + _%hd178892179232%_ + _%hd178889179224%_) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))) - (let () (declare (not safe)) (_%g178739178854%_))) - (let () (declare (not safe)) (_%g178739178854%_))))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))) + (let () (declare (not safe)) (_%g178845178960%_))) + (let () (declare (not safe)) (_%g178845178960%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178739178854%_))) + (_%g178845178960%_))) (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178745179216%_)) + _%hd178851179322%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178746179218%_)) - (let ((_%e178796179012%_ + _%tl178852179324%_)) + (let ((_%e178902179118%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178746179218%_)))) - (let ((_%tl178798179017%_ + (gx#stx-e _%tl178852179324%_)))) + (let ((_%tl178904179123%_ (let () (declare (not safe)) - (##cdr _%e178796179012%_))) - (_%hd178797179015%_ + (##cdr _%e178902179118%_))) + (_%hd178903179121%_ (let () (declare (not safe)) - (##car _%e178796179012%_)))) + (##car _%e178902179118%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd178797179015%_)) - (let ((_%__splice192156192157%_ + (gx#stx-pair/null? _%hd178903179121%_)) + (let ((_%__splice192262192263%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd178797179015%_ + _%hd178903179121%_ '0)))) - (let ((_%tl178801179022%_ + (let ((_%tl178907179128%_ (let () (declare (not safe)) (##vector-ref - _%__splice192156192157%_ + _%__splice192262192263%_ '1))) - (_%target178799179020%_ + (_%target178905179126%_ (let () (declare (not safe)) (##vector-ref - _%__splice192156192157%_ + _%__splice192262192263%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178801179022%_)) - (_%__match192295192296%_ - _%e178744179213%_ - _%hd178745179216%_ - _%tl178746179218%_ - _%e178796179012%_ - _%hd178797179015%_ - _%tl178798179017%_ - _%__splice192156192157%_ - _%target178799179020%_ - _%tl178801179022%_) + (gx#stx-null? _%tl178907179128%_)) + (_%__match192401192402%_ + _%e178850179319%_ + _%hd178851179322%_ + _%tl178852179324%_ + _%e178902179118%_ + _%hd178903179121%_ + _%tl178904179123%_ + _%__splice192262192263%_ + _%target178905179126%_ + _%tl178907179128%_) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd178745179216%_)) + (gx#stx-eq? '%#call _%hd178851179322%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178746179218%_)) - (let ((_%e178815178950%_ + (gx#stx-pair? _%tl178852179324%_)) + (let ((_%e178921179056%_ (let () (declare (not safe)) - (gx#stx-e _%tl178746179218%_)))) - (let ((_%tl178817178955%_ + (gx#stx-e _%tl178852179324%_)))) + (let ((_%tl178923179061%_ (let () (declare (not safe)) - (##cdr _%e178815178950%_))) - (_%hd178816178953%_ + (##cdr _%e178921179056%_))) + (_%hd178922179059%_ (let () (declare (not safe)) - (##car _%e178815178950%_)))) + (##car _%e178921179056%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178816178953%_)) - (let ((_%e178818178958%_ + (gx#stx-pair? _%hd178922179059%_)) + (let ((_%e178924179064%_ (let () (declare (not safe)) - (gx#stx-e _%hd178816178953%_)))) - (let ((_%tl178820178963%_ + (gx#stx-e _%hd178922179059%_)))) + (let ((_%tl178926179069%_ (let () (declare (not safe)) - (##cdr _%e178818178958%_))) - (_%hd178819178961%_ + (##cdr _%e178924179064%_))) + (_%hd178925179067%_ (let () (declare (not safe)) - (##car _%e178818178958%_)))) + (##car _%e178924179064%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178819178961%_)) + (gx#identifier? _%hd178925179067%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178819178961%_)) + _%hd178925179067%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178820178963%_)) - (let ((_%e178821178966%_ + _%tl178926179069%_)) + (let ((_%e178927179072%_ (let () (declare (not safe)) (gx#stx-e - _%tl178820178963%_)))) - (let ((_%tl178823178971%_ + _%tl178926179069%_)))) + (let ((_%tl178929179077%_ (let () (declare (not safe)) - (##cdr _%e178821178966%_))) - (_%hd178822178969%_ + (##cdr _%e178927179072%_))) + (_%hd178928179075%_ (let () (declare (not safe)) - (##car _%e178821178966%_)))) + (##car _%e178927179072%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178823178971%_)) + _%tl178929179077%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178817178955%_)) - (let ((_%e178824178974%_ + _%tl178923179061%_)) + (let ((_%e178930179080%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl178817178955%_)))) - (let ((_%tl178826178979%_ + (gx#stx-e _%tl178923179061%_)))) + (let ((_%tl178932179085%_ (let () (declare (not safe)) - (##cdr _%e178824178974%_))) - (_%hd178825178977%_ + (##cdr _%e178930179080%_))) + (_%hd178931179083%_ (let () (declare (not safe)) - (##car _%e178824178974%_)))) + (##car _%e178930179080%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178826178979%_)) - (_%__match192337192338%_ - _%e178744179213%_ - _%hd178745179216%_ - _%tl178746179218%_ - _%e178815178950%_ - _%hd178816178953%_ - _%tl178817178955%_ - _%e178818178958%_ - _%hd178819178961%_ - _%tl178820178963%_ - _%e178821178966%_ - _%hd178822178969%_ - _%tl178823178971%_ - _%e178824178974%_ - _%hd178825178977%_ - _%tl178826178979%_) + (gx#stx-null? _%tl178932179085%_)) + (_%__match192443192444%_ + _%e178850179319%_ + _%hd178851179322%_ + _%tl178852179324%_ + _%e178921179056%_ + _%hd178922179059%_ + _%tl178923179061%_ + _%e178924179064%_ + _%hd178925179067%_ + _%tl178926179069%_ + _%e178927179072%_ + _%hd178928179075%_ + _%tl178929179077%_ + _%e178930179080%_ + _%hd178931179083%_ + _%tl178932179085%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178817178955%_)) - (let ((_%__splice192162192163%_ + (gx#stx-pair/null? _%tl178923179061%_)) + (let ((_%__splice192268192269%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178817178955%_ + _%tl178923179061%_ '0)))) - (let ((_%tl178843178893%_ + (let ((_%tl178949178999%_ (let () (declare (not safe)) (##vector-ref - _%__splice192162192163%_ + _%__splice192268192269%_ '1))) - (_%target178841178891%_ + (_%target178947178997%_ (let () (declare (not safe)) (##vector-ref - _%__splice192162192163%_ + _%__splice192268192269%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178843178893%_)) - (_%__match192379192380%_ - _%e178744179213%_ - _%hd178745179216%_ - _%tl178746179218%_ - _%e178815178950%_ - _%hd178816178953%_ - _%tl178817178955%_ - _%e178818178958%_ - _%hd178819178961%_ - _%tl178820178963%_ - _%e178821178966%_ - _%hd178822178969%_ - _%tl178823178971%_ - _%__splice192162192163%_ - _%target178841178891%_ - _%tl178843178893%_) + (gx#stx-null? _%tl178949178999%_)) + (_%__match192485192486%_ + _%e178850179319%_ + _%hd178851179322%_ + _%tl178852179324%_ + _%e178921179056%_ + _%hd178922179059%_ + _%tl178923179061%_ + _%e178924179064%_ + _%hd178925179067%_ + _%tl178926179069%_ + _%e178927179072%_ + _%hd178928179075%_ + _%tl178929179077%_ + _%__splice192268192269%_ + _%target178947178997%_ + _%tl178949178999%_) (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_)))))) + (_%g178845178960%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl178817178955%_)) - (let ((_%__splice192162192163%_ + (gx#stx-pair/null? _%tl178923179061%_)) + (let ((_%__splice192268192269%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl178817178955%_ + _%tl178923179061%_ '0)))) - (let ((_%tl178843178893%_ + (let ((_%tl178949178999%_ (let () (declare (not safe)) - (##vector-ref _%__splice192162192163%_ '1))) - (_%target178841178891%_ + (##vector-ref _%__splice192268192269%_ '1))) + (_%target178947178997%_ (let () (declare (not safe)) - (##vector-ref _%__splice192162192163%_ '0)))) + (##vector-ref _%__splice192268192269%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178843178893%_)) - (_%__match192379192380%_ - _%e178744179213%_ - _%hd178745179216%_ - _%tl178746179218%_ - _%e178815178950%_ - _%hd178816178953%_ - _%tl178817178955%_ - _%e178818178958%_ - _%hd178819178961%_ - _%tl178820178963%_ - _%e178821178966%_ - _%hd178822178969%_ - _%tl178823178971%_ - _%__splice192162192163%_ - _%target178841178891%_ - _%tl178843178893%_) + (gx#stx-null? _%tl178949178999%_)) + (_%__match192485192486%_ + _%e178850179319%_ + _%hd178851179322%_ + _%tl178852179324%_ + _%e178921179056%_ + _%hd178922179059%_ + _%tl178923179061%_ + _%e178924179064%_ + _%hd178925179067%_ + _%tl178926179069%_ + _%e178927179072%_ + _%hd178928179075%_ + _%tl178929179077%_ + _%__splice192268192269%_ + _%target178947178997%_ + _%tl178949178999%_) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_)))) - (let () (declare (not safe)) (_%g178739178854%_))))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_)))) + (let () (declare (not safe)) (_%g178845178960%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178739178854%_))) + (_%g178845178960%_))) (let () (declare (not safe)) - (_%g178739178854%_))) + (_%g178845178960%_))) (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_))))) - (let () (declare (not safe)) (_%g178739178854%_))) - (let () (declare (not safe)) (_%g178739178854%_))))))) + (_%g178845178960%_))))) + (let () (declare (not safe)) (_%g178845178960%_))) + (let () (declare (not safe)) (_%g178845178960%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g178739178854%_))))) + (_%g178845178960%_))))) (let () (declare (not safe)) - (_%g178739178854%_))))))))) - (let* ((_%clause178616178623%_ _%clause178611%_) - (_%E178618178627%_ + (_%g178845178960%_))))))))) + (let* ((_%clause178722178729%_ _%clause178717%_) + (_%E178724178733%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%clause178616178623%_ + _%clause178722178729%_ '([id . kont]))) '#!void)) - (_%K178619178720%_ - (lambda (_%kont178630%_ _%id178631%_) - (let* ((_%g178633178653%_ - (lambda (_%g178634178650%_) + (_%K178725178826%_ + (lambda (_%kont178736%_ _%id178737%_) + (let* ((_%g178739178759%_ + (lambda (_%g178740178756%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178634178650%_)))) - (_%g178632178717%_ - (lambda (_%g178634178656%_) + _%g178740178756%_)))) + (_%g178738178823%_ + (lambda (_%g178740178762%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178634178656%_)) - (let ((_%e178637178658%_ + (gx#stx-pair? _%g178740178762%_)) + (let ((_%e178743178764%_ (let () (declare (not safe)) - (gx#stx-e _%g178634178656%_)))) - (let ((_%hd178638178661%_ + (gx#stx-e _%g178740178762%_)))) + (let ((_%hd178744178767%_ (let () (declare (not safe)) - (##car _%e178637178658%_))) - (_%tl178639178663%_ + (##car _%e178743178764%_))) + (_%tl178745178769%_ (let () (declare (not safe)) - (##cdr _%e178637178658%_)))) + (##cdr _%e178743178764%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178638178661%_)) + _%hd178744178767%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd178638178661%_)) + _%hd178744178767%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178639178663%_)) - (let ((_%e178640178666%_ + _%tl178745178769%_)) + (let ((_%e178746178772%_ (let () (declare (not safe)) (gx#stx-e - _%tl178639178663%_)))) - (let ((_%hd178641178669%_ + _%tl178745178769%_)))) + (let ((_%hd178747178775%_ (let () (declare (not safe)) - (##car _%e178640178666%_))) - (_%tl178642178671%_ + (##car _%e178746178772%_))) + (_%tl178748178777%_ (let () (declare (not safe)) - (##cdr _%e178640178666%_)))) + (##cdr _%e178746178772%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178641178669%_)) - (let ((_%e178643178674%_ + _%hd178747178775%_)) + (let ((_%e178749178780%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd178641178669%_)))) - (let ((_%hd178644178677%_ + (gx#stx-e _%hd178747178775%_)))) + (let ((_%hd178750178783%_ (let () (declare (not safe)) - (##car _%e178643178674%_))) - (_%tl178645178679%_ + (##car _%e178749178780%_))) + (_%tl178751178785%_ (let () (declare (not safe)) - (##cdr _%e178643178674%_)))) + (##cdr _%e178749178780%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178645178679%_)) + (gx#stx-null? _%tl178751178785%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178642178671%_)) - (let ((_%e178646178682%_ + (gx#stx-pair? _%tl178748178777%_)) + (let ((_%e178752178788%_ (let () (declare (not safe)) - (gx#stx-e _%tl178642178671%_)))) - (let ((_%hd178647178685%_ + (gx#stx-e _%tl178748178777%_)))) + (let ((_%hd178753178791%_ (let () (declare (not safe)) - (##car _%e178646178682%_))) - (_%tl178648178687%_ + (##car _%e178752178788%_))) + (_%tl178754178793%_ (let () (declare (not safe)) - (##cdr _%e178646178682%_)))) + (##cdr _%e178752178788%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178648178687%_)) - ((lambda (_%L178690%_ _%L178691%_) - (let* ((_%body178712%_ + (gx#stx-null? _%tl178754178793%_)) + ((lambda (_%L178796%_ _%L178797%_) + (let* ((_%body178818%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L178691%_ - _%target178613%_ - _%L178690%_))) - (_%body178714%_ - (if _%negation178612%_ - (_%closure-e178615%_ - _%body178712%_) - _%body178712%_))) - (let ((__tmp192539 + _%L178797%_ + _%target178719%_ + _%L178796%_))) + (_%body178820%_ + (if _%negation178718%_ + (_%closure-e178721%_ + _%body178818%_) + _%body178818%_))) + (let ((__tmp192645 (let () (declare (not safe)) (gxc#identifier-symbol - _%id178631%_))) - (__tmp192538 - (let ((__obj192437 + _%id178737%_))) + (__tmp192644 + (let ((__obj192543 (let () (declare (not safe)) (##structure @@ -16505,575 +16505,575 @@ (gxc#!lambda:::init!__% '#f absent-value - __obj192437 + __obj192543 '0 '#f)) - __obj192437))) + __obj192543))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp192539 - __tmp192538 + __tmp192645 + __tmp192644 '#t)) - (cons _%id178631%_ + (cons _%id178737%_ (cons '%#lambda (cons '() - (cons _%body178714%_ + (cons _%body178820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178647178685%_ - _%hd178644178677%_) - (_%g178633178653%_ _%g178634178656%_)))) - (_%g178633178653%_ _%g178634178656%_)) - (_%g178633178653%_ _%g178634178656%_)))) - (_%g178633178653%_ _%g178634178656%_)))) + _%hd178753178791%_ + _%hd178750178783%_) + (_%g178739178759%_ _%g178740178762%_)))) + (_%g178739178759%_ _%g178740178762%_)) + (_%g178739178759%_ _%g178740178762%_)))) + (_%g178739178759%_ _%g178740178762%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178633178653%_ - _%g178634178656%_)) - (_%g178633178653%_ - _%g178634178656%_)) - (_%g178633178653%_ - _%g178634178656%_)))) - (_%g178633178653%_ _%g178634178656%_))))) - (_%g178632178717%_ _%kont178630%_))))) - (if (pair? _%clause178616178623%_) - (let ((_%hd178620178723%_ + (_%g178739178759%_ + _%g178740178762%_)) + (_%g178739178759%_ + _%g178740178762%_)) + (_%g178739178759%_ + _%g178740178762%_)))) + (_%g178739178759%_ _%g178740178762%_))))) + (_%g178738178823%_ _%kont178736%_))))) + (if (pair? _%clause178722178729%_) + (let ((_%hd178726178829%_ (let () (declare (not safe)) - (##car _%clause178616178623%_))) - (_%tl178621178725%_ + (##car _%clause178722178729%_))) + (_%tl178727178831%_ (let () (declare (not safe)) - (##cdr _%clause178616178623%_)))) - (let* ((_%id178728%_ _%hd178620178723%_) - (_%kont178730%_ _%tl178621178725%_)) - (_%K178619178720%_ _%kont178730%_ _%id178728%_))) - (_%E178618178627%_)))))) + (##cdr _%clause178722178729%_)))) + (let* ((_%id178834%_ _%hd178726178829%_) + (_%kont178836%_ _%tl178727178831%_)) + (_%K178725178826%_ _%kont178836%_ _%id178834%_))) + (_%E178724178733%_)))))) (define gxc#push-match-vars-let-values% - (lambda (_%self178395%_ _%stx178396%_) - (let* ((_%g178398178415%_ - (lambda (_%g178399178412%_) + (lambda (_%self178501%_ _%stx178502%_) + (let* ((_%g178504178521%_ + (lambda (_%g178505178518%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178399178412%_)))) - (_%g178397178608%_ - (lambda (_%g178399178418%_) + _%g178505178518%_)))) + (_%g178503178714%_ + (lambda (_%g178505178524%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178399178418%_)) - (let ((_%e178402178420%_ + (gx#stx-pair? _%g178505178524%_)) + (let ((_%e178508178526%_ (let () (declare (not safe)) - (gx#stx-e _%g178399178418%_)))) - (let ((_%hd178403178423%_ + (gx#stx-e _%g178505178524%_)))) + (let ((_%hd178509178529%_ (let () (declare (not safe)) - (##car _%e178402178420%_))) - (_%tl178404178425%_ + (##car _%e178508178526%_))) + (_%tl178510178531%_ (let () (declare (not safe)) - (##cdr _%e178402178420%_)))) + (##cdr _%e178508178526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178404178425%_)) - (let ((_%e178405178428%_ + (gx#stx-pair? _%tl178510178531%_)) + (let ((_%e178511178534%_ (let () (declare (not safe)) - (gx#stx-e _%tl178404178425%_)))) - (let ((_%hd178406178431%_ + (gx#stx-e _%tl178510178531%_)))) + (let ((_%hd178512178537%_ (let () (declare (not safe)) - (##car _%e178405178428%_))) - (_%tl178407178433%_ + (##car _%e178511178534%_))) + (_%tl178513178539%_ (let () (declare (not safe)) - (##cdr _%e178405178428%_)))) + (##cdr _%e178511178534%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178407178433%_)) - (let ((_%e178408178436%_ + (gx#stx-pair? _%tl178513178539%_)) + (let ((_%e178514178542%_ (let () (declare (not safe)) - (gx#stx-e _%tl178407178433%_)))) - (let ((_%hd178409178439%_ + (gx#stx-e _%tl178513178539%_)))) + (let ((_%hd178515178545%_ (let () (declare (not safe)) - (##car _%e178408178436%_))) - (_%tl178410178441%_ + (##car _%e178514178542%_))) + (_%tl178516178547%_ (let () (declare (not safe)) - (##cdr _%e178408178436%_)))) + (##cdr _%e178514178542%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178410178441%_)) - ((lambda (_%L178444%_ - _%L178445%_) - (let _%lp178460%_ ((_%rest178462%_ + _%tl178516178547%_)) + ((lambda (_%L178550%_ + _%L178551%_) + (let _%lp178566%_ ((_%rest178568%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L178445%_) - (_%rebind178463%_ '()) - (_%vars178464%_ + _%L178551%_) + (_%rebind178569%_ '()) + (_%vars178570%_ (let () (declare (not safe)) - (slot-ref__0 _%self178395%_ 'vars)))) + (slot-ref__0 _%self178501%_ 'vars)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest178465178473%_ - _%rest178462%_) - (_%else178467178484%_ + (let* ((_%rest178571178579%_ + _%rest178568%_) + (_%else178573178590%_ (lambda () - (let ((_%sibling178481%_ + (let ((_%sibling178587%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (struct-copy _%self178395%_)))) + (struct-copy _%self178501%_)))) (let () (declare (not safe)) - (slot-set!__0 _%sibling178481%_ 'vars _%vars178464%_)) - (let ((__tmp192540 + (slot-set!__0 _%sibling178587%_ 'vars _%vars178570%_)) + (let ((__tmp192646 (lambda () - (if (null? _%rebind178463%_) + (if (null? _%rebind178569%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%sibling178481%_ - _%L178444%_)) - (let ((__tmp192541 + _%sibling178587%_ + _%L178550%_)) + (let ((__tmp192647 (cons '%#let-values - (cons (reverse _%rebind178463%_) + (cons (reverse _%rebind178569%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#compile-e__1 _%sibling178481%_ _%L178444%_)) + (gxc#compile-e__1 _%sibling178587%_ _%L178550%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp192541 - _%stx178396%_)))))) + __tmp192647 + _%stx178502%_)))))) (declare (not safe)) (__call-with-parameters - __tmp192540 + __tmp192646 gxc#current-compile-method - _%sibling178481%_))))) - (_%K178469178596%_ - (lambda (_%rest178487%_ _%bind178488%_) - (let* ((_%__stx192382192383%_ _%bind178488%_) - (_%g178491178514%_ + _%sibling178587%_))))) + (_%K178575178702%_ + (lambda (_%rest178593%_ _%bind178594%_) + (let* ((_%__stx192488192489%_ _%bind178594%_) + (_%g178597178620%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx192382192383%_))))) - (let ((_%__kont192384192385%_ - (lambda (_%L178566%_ _%L178567%_) - (_%lp178460%_ - _%rest178487%_ - _%rebind178463%_ - (cons _%bind178488%_ _%vars178464%_)))) - (_%__kont192386192387%_ + _%__stx192488192489%_))))) + (let ((_%__kont192490192491%_ + (lambda (_%L178672%_ _%L178673%_) + (_%lp178566%_ + _%rest178593%_ + _%rebind178569%_ + (cons _%bind178594%_ _%vars178570%_)))) + (_%__kont192492192493%_ (lambda () - (_%lp178460%_ - _%rest178487%_ - (cons _%bind178488%_ _%rebind178463%_) - _%vars178464%_)))) + (_%lp178566%_ + _%rest178593%_ + (cons _%bind178594%_ _%rebind178569%_) + _%vars178570%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx192382192383%_)) - (let ((_%e178495178526%_ + (gx#stx-pair? _%__stx192488192489%_)) + (let ((_%e178601178632%_ (let () (declare (not safe)) - (gx#stx-e _%__stx192382192383%_)))) - (let ((_%tl178497178531%_ + (gx#stx-e _%__stx192488192489%_)))) + (let ((_%tl178603178637%_ (let () (declare (not safe)) - (##cdr _%e178495178526%_))) - (_%hd178496178529%_ + (##cdr _%e178601178632%_))) + (_%hd178602178635%_ (let () (declare (not safe)) - (##car _%e178495178526%_)))) + (##car _%e178601178632%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178496178529%_)) - (let ((_%e178498178534%_ + (gx#stx-pair? _%hd178602178635%_)) + (let ((_%e178604178640%_ (let () (declare (not safe)) - (gx#stx-e _%hd178496178529%_)))) - (let ((_%tl178500178539%_ + (gx#stx-e _%hd178602178635%_)))) + (let ((_%tl178606178645%_ (let () (declare (not safe)) - (##cdr _%e178498178534%_))) - (_%hd178499178537%_ + (##cdr _%e178604178640%_))) + (_%hd178605178643%_ (let () (declare (not safe)) - (##car _%e178498178534%_)))) + (##car _%e178604178640%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178500178539%_)) + _%tl178606178645%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178497178531%_)) - (let ((_%e178501178542%_ + _%tl178603178637%_)) + (let ((_%e178607178648%_ (let () (declare (not safe)) (gx#stx-e - _%tl178497178531%_)))) - (let ((_%tl178503178547%_ + _%tl178603178637%_)))) + (let ((_%tl178609178653%_ (let () (declare (not safe)) - (##cdr _%e178501178542%_))) - (_%hd178502178545%_ + (##cdr _%e178607178648%_))) + (_%hd178608178651%_ (let () (declare (not safe)) - (##car _%e178501178542%_)))) + (##car _%e178607178648%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd178502178545%_)) - (let ((_%e178504178550%_ + _%hd178608178651%_)) + (let ((_%e178610178656%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd178502178545%_)))) - (let ((_%tl178506178555%_ + (gx#stx-e _%hd178608178651%_)))) + (let ((_%tl178612178661%_ (let () (declare (not safe)) - (##cdr _%e178504178550%_))) - (_%hd178505178553%_ + (##cdr _%e178610178656%_))) + (_%hd178611178659%_ (let () (declare (not safe)) - (##car _%e178504178550%_)))) + (##car _%e178610178656%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd178505178553%_)) + (gx#identifier? _%hd178611178659%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd178505178553%_)) + (gx#stx-eq? '%#ref _%hd178611178659%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178506178555%_)) - (let ((_%e178507178558%_ + (gx#stx-pair? _%tl178612178661%_)) + (let ((_%e178613178664%_ (let () (declare (not safe)) - (gx#stx-e _%tl178506178555%_)))) - (let ((_%tl178509178563%_ + (gx#stx-e _%tl178612178661%_)))) + (let ((_%tl178615178669%_ (let () (declare (not safe)) - (##cdr _%e178507178558%_))) - (_%hd178508178561%_ + (##cdr _%e178613178664%_))) + (_%hd178614178667%_ (let () (declare (not safe)) - (##car _%e178507178558%_)))) + (##car _%e178613178664%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178509178563%_)) + (gx#stx-null? _%tl178615178669%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178503178547%_)) - (_%__kont192384192385%_ - _%hd178508178561%_ - _%hd178499178537%_) - (_%__kont192386192387%_)) - (_%__kont192386192387%_)))) - (_%__kont192386192387%_)) - (_%__kont192386192387%_)) - (_%__kont192386192387%_)))) - (_%__kont192386192387%_)))) + _%tl178609178653%_)) + (_%__kont192490192491%_ + _%hd178614178667%_ + _%hd178605178643%_) + (_%__kont192492192493%_)) + (_%__kont192492192493%_)))) + (_%__kont192492192493%_)) + (_%__kont192492192493%_)) + (_%__kont192492192493%_)))) + (_%__kont192492192493%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont192386192387%_)) - (_%__kont192386192387%_)))) - (_%__kont192386192387%_)))) - (_%__kont192386192387%_))))))) + (_%__kont192492192493%_)) + (_%__kont192492192493%_)))) + (_%__kont192492192493%_)))) + (_%__kont192492192493%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest178465178473%_) - (let ((_%hd178470178599%_ + (if (pair? _%rest178571178579%_) + (let ((_%hd178576178705%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%rest178465178473%_))) - (_%tl178471178601%_ + (##car _%rest178571178579%_))) + (_%tl178577178707%_ (let () (declare (not safe)) - (##cdr _%rest178465178473%_)))) - (let* ((_%bind178604%_ _%hd178470178599%_) - (_%rest178606%_ _%tl178471178601%_)) - (_%K178469178596%_ _%rest178606%_ _%bind178604%_))) - (_%else178467178484%_))))) + (##cdr _%rest178571178579%_)))) + (let* ((_%bind178710%_ _%hd178576178705%_) + (_%rest178712%_ _%tl178577178707%_)) + (_%K178575178702%_ _%rest178712%_ _%bind178710%_))) + (_%else178573178590%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd178409178439%_ - _%hd178406178431%_) - (_%g178398178415%_ - _%g178399178418%_)))) - (_%g178398178415%_ _%g178399178418%_)))) - (_%g178398178415%_ _%g178399178418%_)))) - (_%g178398178415%_ _%g178399178418%_))))) - (_%g178397178608%_ _%stx178396%_)))) + _%hd178515178545%_ + _%hd178512178537%_) + (_%g178504178521%_ + _%g178505178524%_)))) + (_%g178504178521%_ _%g178505178524%_)))) + (_%g178504178521%_ _%g178505178524%_)))) + (_%g178504178521%_ _%g178505178524%_))))) + (_%g178503178714%_ _%stx178502%_)))) (define gxc#push-match-vars-if% - (lambda (_%self178311%_ _%stx178312%_) - (let* ((_%g178314178335%_ - (lambda (_%g178315178332%_) + (lambda (_%self178417%_ _%stx178418%_) + (let* ((_%g178420178441%_ + (lambda (_%g178421178438%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178315178332%_)))) - (_%g178313178392%_ - (lambda (_%g178315178338%_) + _%g178421178438%_)))) + (_%g178419178498%_ + (lambda (_%g178421178444%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178315178338%_)) - (let ((_%e178319178340%_ + (gx#stx-pair? _%g178421178444%_)) + (let ((_%e178425178446%_ (let () (declare (not safe)) - (gx#stx-e _%g178315178338%_)))) - (let ((_%hd178320178343%_ + (gx#stx-e _%g178421178444%_)))) + (let ((_%hd178426178449%_ (let () (declare (not safe)) - (##car _%e178319178340%_))) - (_%tl178321178345%_ + (##car _%e178425178446%_))) + (_%tl178427178451%_ (let () (declare (not safe)) - (##cdr _%e178319178340%_)))) + (##cdr _%e178425178446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178321178345%_)) - (let ((_%e178322178348%_ + (gx#stx-pair? _%tl178427178451%_)) + (let ((_%e178428178454%_ (let () (declare (not safe)) - (gx#stx-e _%tl178321178345%_)))) - (let ((_%hd178323178351%_ + (gx#stx-e _%tl178427178451%_)))) + (let ((_%hd178429178457%_ (let () (declare (not safe)) - (##car _%e178322178348%_))) - (_%tl178324178353%_ + (##car _%e178428178454%_))) + (_%tl178430178459%_ (let () (declare (not safe)) - (##cdr _%e178322178348%_)))) + (##cdr _%e178428178454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178324178353%_)) - (let ((_%e178325178356%_ + (gx#stx-pair? _%tl178430178459%_)) + (let ((_%e178431178462%_ (let () (declare (not safe)) - (gx#stx-e _%tl178324178353%_)))) - (let ((_%hd178326178359%_ + (gx#stx-e _%tl178430178459%_)))) + (let ((_%hd178432178465%_ (let () (declare (not safe)) - (##car _%e178325178356%_))) - (_%tl178327178361%_ + (##car _%e178431178462%_))) + (_%tl178433178467%_ (let () (declare (not safe)) - (##cdr _%e178325178356%_)))) + (##cdr _%e178431178462%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178327178361%_)) - (let ((_%e178328178364%_ + _%tl178433178467%_)) + (let ((_%e178434178470%_ (let () (declare (not safe)) (gx#stx-e - _%tl178327178361%_)))) - (let ((_%hd178329178367%_ + _%tl178433178467%_)))) + (let ((_%hd178435178473%_ (let () (declare (not safe)) - (##car _%e178328178364%_))) - (_%tl178330178369%_ + (##car _%e178434178470%_))) + (_%tl178436178475%_ (let () (declare (not safe)) - (##cdr _%e178328178364%_)))) + (##cdr _%e178434178470%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl178330178369%_)) - ((lambda (_%L178372%_ - _%L178373%_ - _%L178374%_) - (if (let ((__tmp192542 + _%tl178436178475%_)) + ((lambda (_%L178478%_ + _%L178479%_ + _%L178480%_) + (if (let ((__tmp192648 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (map caar (let () (declare (not safe)) - (slot-ref__0 _%self178311%_ 'vars))))) + (slot-ref__0 _%self178417%_ 'vars))))) (declare (not safe)) (gxc#apply-find-var-refs__% '#f - __tmp192542 - _%L178374%_)) - (gxc#push-match-vars-stop _%self178311%_ _%stx178312%_) - (let ((__tmp192543 + __tmp192648 + _%L178480%_)) + (gxc#push-match-vars-stop _%self178417%_ _%stx178418%_) + (let ((__tmp192649 (cons '%#if - (cons _%L178374%_ + (cons _%L178480%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178311%_ - _%L178373%_)) + _%self178417%_ + _%L178479%_)) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self178311%_ - _%L178372%_)) + _%self178417%_ + _%L178478%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192543 _%stx178312%_)))) - _%hd178329178367%_ - _%hd178326178359%_ - _%hd178323178351%_) - (_%g178314178335%_ _%g178315178338%_)))) + (gxc#xform-wrap-source __tmp192649 _%stx178418%_)))) + _%hd178435178473%_ + _%hd178432178465%_ + _%hd178429178457%_) + (_%g178420178441%_ _%g178421178444%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178314178335%_ - _%g178315178338%_)))) - (_%g178314178335%_ _%g178315178338%_)))) - (_%g178314178335%_ _%g178315178338%_)))) - (_%g178314178335%_ _%g178315178338%_))))) - (_%g178313178392%_ _%stx178312%_)))) + (_%g178420178441%_ + _%g178421178444%_)))) + (_%g178420178441%_ _%g178421178444%_)))) + (_%g178420178441%_ _%g178421178444%_)))) + (_%g178420178441%_ _%g178421178444%_))))) + (_%g178419178498%_ _%stx178418%_)))) (define gxc#push-match-vars-call% - (lambda (_%self178233%_ _%stx178234%_) - (let* ((_%g178236178255%_ - (lambda (_%g178237178252%_) + (lambda (_%self178339%_ _%stx178340%_) + (let* ((_%g178342178361%_ + (lambda (_%g178343178358%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g178237178252%_)))) - (_%g178235178308%_ - (lambda (_%g178237178258%_) + _%g178343178358%_)))) + (_%g178341178414%_ + (lambda (_%g178343178364%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g178237178258%_)) - (let ((_%e178239178260%_ + (gx#stx-pair? _%g178343178364%_)) + (let ((_%e178345178366%_ (let () (declare (not safe)) - (gx#stx-e _%g178237178258%_)))) - (let ((_%hd178240178263%_ + (gx#stx-e _%g178343178364%_)))) + (let ((_%hd178346178369%_ (let () (declare (not safe)) - (##car _%e178239178260%_))) - (_%tl178241178265%_ + (##car _%e178345178366%_))) + (_%tl178347178371%_ (let () (declare (not safe)) - (##cdr _%e178239178260%_)))) + (##cdr _%e178345178366%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl178241178265%_)) - (let ((_%e178242178268%_ + (gx#stx-pair? _%tl178347178371%_)) + (let ((_%e178348178374%_ (let () (declare (not safe)) - (gx#stx-e _%tl178241178265%_)))) - (let ((_%hd178243178271%_ + (gx#stx-e _%tl178347178371%_)))) + (let ((_%hd178349178377%_ (let () (declare (not safe)) - (##car _%e178242178268%_))) - (_%tl178244178273%_ + (##car _%e178348178374%_))) + (_%tl178350178379%_ (let () (declare (not safe)) - (##cdr _%e178242178268%_)))) + (##cdr _%e178348178374%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd178243178271%_)) - (let ((_%e178245178276%_ + (gx#stx-pair? _%hd178349178377%_)) + (let ((_%e178351178382%_ (let () (declare (not safe)) - (gx#stx-e _%hd178243178271%_)))) - (let ((_%hd178246178279%_ + (gx#stx-e _%hd178349178377%_)))) + (let ((_%hd178352178385%_ (let () (declare (not safe)) - (##car _%e178245178276%_))) - (_%tl178247178281%_ + (##car _%e178351178382%_))) + (_%tl178353178387%_ (let () (declare (not safe)) - (##cdr _%e178245178276%_)))) + (##cdr _%e178351178382%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd178246178279%_)) + _%hd178352178385%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd178246178279%_)) + _%hd178352178385%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl178247178281%_)) - (let ((_%e178248178284%_ + _%tl178353178387%_)) + (let ((_%e178354178390%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl178247178281%_)))) - (let ((_%hd178249178287%_ - (let () (declare (not safe)) (##car _%e178248178284%_))) - (_%tl178250178289%_ + (gx#stx-e _%tl178353178387%_)))) + (let ((_%hd178355178393%_ + (let () (declare (not safe)) (##car _%e178354178390%_))) + (_%tl178356178395%_ (let () (declare (not safe)) - (##cdr _%e178248178284%_)))) + (##cdr _%e178354178390%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl178250178289%_)) - ((lambda (_%L178292%_) - (if (and (let ((__tmp192544 + (gx#stx-null? _%tl178356178395%_)) + ((lambda (_%L178398%_) + (if (and (let ((__tmp192650 (let () (declare (not safe)) - (slot-ref__0 _%self178233%_ 'K)))) + (slot-ref__0 _%self178339%_ 'K)))) (declare (not safe)) (gx#free-identifier=? - _%L178292%_ - __tmp192544)) + _%L178398%_ + __tmp192650)) (pair? (let () (declare (not safe)) (slot-ref__0 - _%self178233%_ + _%self178339%_ 'vars)))) - (let ((__tmp192545 + (let ((__tmp192651 (cons '%#let-values (cons (reverse (let () (declare (not safe)) (slot-ref__0 - _%self178233%_ + _%self178339%_ 'vars))) - (cons _%stx178234%_ '()))))) + (cons _%stx178340%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp192545 - _%stx178234%_)) - _%stx178234%_)) - _%hd178249178287%_) - (_%g178236178255%_ _%g178237178258%_)))) - (_%g178236178255%_ _%g178237178258%_)) + __tmp192651 + _%stx178340%_)) + _%stx178340%_)) + _%hd178355178393%_) + (_%g178342178361%_ _%g178343178364%_)))) + (_%g178342178361%_ _%g178343178364%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g178236178255%_ - _%g178237178258%_)) - (_%g178236178255%_ - _%g178237178258%_)))) - (_%g178236178255%_ _%g178237178258%_)))) - (_%g178236178255%_ _%g178237178258%_)))) - (_%g178236178255%_ _%g178237178258%_))))) - (_%g178235178308%_ _%stx178234%_)))) + (_%g178342178361%_ + _%g178343178364%_)) + (_%g178342178361%_ + _%g178343178364%_)))) + (_%g178342178361%_ _%g178343178364%_)))) + (_%g178342178361%_ _%g178343178364%_)))) + (_%g178342178361%_ _%g178343178364%_))))) + (_%g178341178414%_ _%stx178340%_)))) (define gxc#push-match-vars-stop - (lambda (_%self178230%_ _%stx178231%_) + (lambda (_%self178336%_ _%stx178337%_) (if (null? (let () (declare (not safe)) - (slot-ref__0 _%self178230%_ 'vars))) - _%stx178231%_ - (let ((__tmp192546 + (slot-ref__0 _%self178336%_ 'vars))) + _%stx178337%_ + (let ((__tmp192652 (cons '%#let-values (cons (reverse (let () (declare (not safe)) - (slot-ref__0 _%self178230%_ 'vars))) - (cons _%stx178231%_ '()))))) + (slot-ref__0 _%self178336%_ 'vars))) + (cons _%stx178337%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp192546 _%stx178231%_))))))) + (gxc#xform-wrap-source __tmp192652 _%stx178337%_))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm index b239b0bf2..206dd2a5b 100644 --- a/src/bootstrap/gerbil/compiler/optimize-ann~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-ann~1.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g192548_| + (define |gxc[1]#_g192654_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192550_| + (define |gxc[1]#_g192656_| (##structure gx#syntax-quote::t '::optimize-annotated::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192552_| + (define |gxc[1]#_g192658_| (##structure gx#syntax-quote::t 'make-::optimize-annotated #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192554_| + (define |gxc[1]#_g192660_| (##structure gx#syntax-quote::t '::optimize-annotated? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192556_| + (define |gxc[1]#_g192662_| (##structure gx#syntax-quote::t '::generate-runtime #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192558_| + (define |gxc[1]#_g192664_| (##structure gx#syntax-quote::t '::generate-runtime-repr::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192560_| + (define |gxc[1]#_g192666_| (##structure gx#syntax-quote::t 'make-::generate-runtime-repr #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192562_| + (define |gxc[1]#_g192668_| (##structure gx#syntax-quote::t '::generate-runtime-repr? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192564_| + (define |gxc[1]#_g192670_| (##structure gx#syntax-quote::t '::push-match-vars::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192566_| + (define |gxc[1]#_g192672_| (##structure gx#syntax-quote::t 'make-::push-match-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192568_| + (define |gxc[1]#_g192674_| (##structure gx#syntax-quote::t '::push-match-vars? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192570_| + (define |gxc[1]#_g192676_| (##structure gx#syntax-quote::t '::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192571_| + (define |gxc[1]#_g192677_| (##structure gx#syntax-quote::t '::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192573_| + (define |gxc[1]#_g192679_| (##structure gx#syntax-quote::t '::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192574_| + (define |gxc[1]#_g192680_| (##structure gx#syntax-quote::t '::push-match-vars-K-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192576_| + (define |gxc[1]#_g192682_| (##structure gx#syntax-quote::t '&::push-match-vars-vars #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192577_| + (define |gxc[1]#_g192683_| (##structure gx#syntax-quote::t '&::push-match-vars-K #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192579_| + (define |gxc[1]#_g192685_| (##structure gx#syntax-quote::t '&::push-match-vars-vars-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g192580_| + (define |gxc[1]#_g192686_| (##structure gx#syntax-quote::t '&::push-match-vars-K-set! @@ -135,7 +135,7 @@ '())) (begin (define |gxc[:0:]#::optimize-annotated| - (let ((__obj192429 + (let ((__obj192535 (let () (declare (not safe)) (##structure @@ -164,7 +164,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192429 + __obj192535 'gxc#::optimize-annotated::t '1 '#f @@ -172,65 +172,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192429 + __obj192535 '::optimize-annotated '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '6 '#f '#f)) - (let ((__tmp192547 (cons |gxc[1]#_g192548_| '()))) + (##unchecked-structure-set! __obj192535 '() '6 '#f '#f)) + (let ((__tmp192653 (cons |gxc[1]#_g192654_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192429 __tmp192547 '3 '#f '#f)) + (##unchecked-structure-set! __obj192535 __tmp192653 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192535 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192535 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192535 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '#f '11 '#f '#f)) - (let ((__tmp192549 |gxc[1]#_g192550_|)) + (##unchecked-structure-set! __obj192535 '#f '11 '#f '#f)) + (let ((__tmp192655 |gxc[1]#_g192656_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192429 __tmp192549 '12 '#f '#f)) - (let ((__tmp192551 |gxc[1]#_g192552_|)) + (##unchecked-structure-set! __obj192535 __tmp192655 '12 '#f '#f)) + (let ((__tmp192657 |gxc[1]#_g192658_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192429 __tmp192551 '13 '#f '#f)) - (let ((__tmp192553 |gxc[1]#_g192554_|)) + (##unchecked-structure-set! __obj192535 __tmp192657 '13 '#f '#f)) + (let ((__tmp192659 |gxc[1]#_g192660_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192429 __tmp192553 '14 '#f '#f)) + (##unchecked-structure-set! __obj192535 __tmp192659 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192535 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192429 '() '20 '#f '#f)) - __obj192429)) + (##unchecked-structure-set! __obj192535 '() '20 '#f '#f)) + __obj192535)) (define |gxc[:0:]#::generate-runtime-repr| - (let ((__obj192431 + (let ((__obj192537 (let () (declare (not safe)) (##structure @@ -259,7 +259,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192431 + __obj192537 'gxc#::generate-runtime-repr::t '1 '#f @@ -267,65 +267,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192431 + __obj192537 '::generate-runtime-repr '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '6 '#f '#f)) - (let ((__tmp192555 (cons |gxc[1]#_g192556_| '()))) + (##unchecked-structure-set! __obj192537 '() '6 '#f '#f)) + (let ((__tmp192661 (cons |gxc[1]#_g192662_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj192431 __tmp192555 '3 '#f '#f)) + (##unchecked-structure-set! __obj192537 __tmp192661 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192537 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192537 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192537 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '#f '11 '#f '#f)) - (let ((__tmp192557 |gxc[1]#_g192558_|)) + (##unchecked-structure-set! __obj192537 '#f '11 '#f '#f)) + (let ((__tmp192663 |gxc[1]#_g192664_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192431 __tmp192557 '12 '#f '#f)) - (let ((__tmp192559 |gxc[1]#_g192560_|)) + (##unchecked-structure-set! __obj192537 __tmp192663 '12 '#f '#f)) + (let ((__tmp192665 |gxc[1]#_g192666_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192431 __tmp192559 '13 '#f '#f)) - (let ((__tmp192561 |gxc[1]#_g192562_|)) + (##unchecked-structure-set! __obj192537 __tmp192665 '13 '#f '#f)) + (let ((__tmp192667 |gxc[1]#_g192668_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192431 __tmp192561 '14 '#f '#f)) + (##unchecked-structure-set! __obj192537 __tmp192667 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192537 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192431 '() '20 '#f '#f)) - __obj192431)) + (##unchecked-structure-set! __obj192537 '() '20 '#f '#f)) + __obj192537)) (define |gxc[:0:]#::push-match-vars| - (let ((__obj192433 + (let ((__obj192539 (let () (declare (not safe)) (##structure @@ -354,7 +354,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192433 + __obj192539 'gxc#::push-match-vars::t '1 '#f @@ -362,68 +362,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj192433 + __obj192539 '::push-match-vars '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '(vars K) '4 '#f '#f)) + (##unchecked-structure-set! __obj192539 '(vars K) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '(vars K) '6 '#f '#f)) + (##unchecked-structure-set! __obj192539 '(vars K) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj192539 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj192539 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj192539 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj192539 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '#f '11 '#f '#f)) - (let ((__tmp192563 |gxc[1]#_g192564_|)) + (##unchecked-structure-set! __obj192539 '#f '11 '#f '#f)) + (let ((__tmp192669 |gxc[1]#_g192670_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192563 '12 '#f '#f)) - (let ((__tmp192565 |gxc[1]#_g192566_|)) + (##unchecked-structure-set! __obj192539 __tmp192669 '12 '#f '#f)) + (let ((__tmp192671 |gxc[1]#_g192672_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192565 '13 '#f '#f)) - (let ((__tmp192567 |gxc[1]#_g192568_|)) + (##unchecked-structure-set! __obj192539 __tmp192671 '13 '#f '#f)) + (let ((__tmp192673 |gxc[1]#_g192674_|)) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192567 '14 '#f '#f)) - (let ((__tmp192569 - (cons (cons 'vars |gxc[1]#_g192570_|) - (cons (cons 'K |gxc[1]#_g192571_|) '())))) + (##unchecked-structure-set! __obj192539 __tmp192673 '14 '#f '#f)) + (let ((__tmp192675 + (cons (cons 'vars |gxc[1]#_g192676_|) + (cons (cons 'K |gxc[1]#_g192677_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192569 '15 '#f '#f)) - (let ((__tmp192572 - (cons (cons 'vars |gxc[1]#_g192573_|) - (cons (cons 'K |gxc[1]#_g192574_|) '())))) + (##unchecked-structure-set! __obj192539 __tmp192675 '15 '#f '#f)) + (let ((__tmp192678 + (cons (cons 'vars |gxc[1]#_g192679_|) + (cons (cons 'K |gxc[1]#_g192680_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192572 '16 '#f '#f)) - (let ((__tmp192575 - (cons (cons 'vars |gxc[1]#_g192576_|) - (cons (cons 'K |gxc[1]#_g192577_|) '())))) + (##unchecked-structure-set! __obj192539 __tmp192678 '16 '#f '#f)) + (let ((__tmp192681 + (cons (cons 'vars |gxc[1]#_g192682_|) + (cons (cons 'K |gxc[1]#_g192683_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192575 '17 '#f '#f)) - (let ((__tmp192578 - (cons (cons 'vars |gxc[1]#_g192579_|) - (cons (cons 'K |gxc[1]#_g192580_|) '())))) + (##unchecked-structure-set! __obj192539 __tmp192681 '17 '#f '#f)) + (let ((__tmp192684 + (cons (cons 'vars |gxc[1]#_g192685_|) + (cons (cons 'K |gxc[1]#_g192686_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj192433 __tmp192578 '18 '#f '#f)) + (##unchecked-structure-set! __obj192539 __tmp192684 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj192539 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj192539 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj192433 '() '20 '#f '#f)) - __obj192433)))) + (##unchecked-structure-set! __obj192539 '() '20 '#f '#f)) + __obj192539)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-base~0.scm b/src/bootstrap/gerbil/compiler/optimize-base~0.scm index ce08c48ff..e80b987e2 100644 --- a/src/bootstrap/gerbil/compiler/optimize-base~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-base~0.scm @@ -1,28 +1,28 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-base::timestamp 1733870076) + (define gerbil/compiler/optimize-base::timestamp 1734131748) (begin (define gxc#current-compile-optimizer-info (make-parameter '#f)) (define gxc#current-compile-mutators (make-parameter '#f)) (define gxc#current-compile-local-type (make-parameter '#f)) (define gxc#current-compile-path-type (make-parameter '())) (define gxc#optimizer-info::t - (let ((__tmp152300 (list)) (__tmp152299 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152406 (list)) (__tmp152405 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#optimizer-info::t 'optimizer-info - __tmp152300 + __tmp152406 '(type classes ssxi methods) - __tmp152299 + __tmp152405 ':init!))) (define gxc#optimizer-info? (let () (declare (not safe)) (__make-class-predicate gxc#optimizer-info::t))) (define gxc#make-optimizer-info - (lambda _%$args152271%_ - (apply make-instance gxc#optimizer-info::t _%$args152271%_))) + (lambda _%$args152377%_ + (apply make-instance gxc#optimizer-info::t _%$args152377%_))) (define gxc#optimizer-info-type (let () (declare (not safe)) @@ -88,62 +88,62 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#optimizer-info::t 'methods))) (define gxc#optimizer-info:::init! - (lambda (_%self149412152256%_) - (let* ((_%self152259%_ _%self149412152256%_) - (_%self152261%_ _%self152259%_)) - (if (let ((__tmp152301 + (lambda (_%self149518152362%_) + (let* ((_%self152365%_ _%self149518152362%_) + (_%self152367%_ _%self152365%_)) + (if (let ((__tmp152407 (let () (declare (not safe)) - (##structure-length _%self152261%_)))) + (##structure-length _%self152367%_)))) (declare (not safe)) - (##fx< '4 __tmp152301)) + (##fx< '4 __tmp152407)) (begin - (let ((__tmp152302 + (let ((__tmp152408 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152261%_ - __tmp152302 + _%self152367%_ + __tmp152408 '1 '#f '#f)) - (let ((__tmp152303 + (let ((__tmp152409 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152261%_ - __tmp152303 + _%self152367%_ + __tmp152409 '2 '#f '#f)) - (let ((__tmp152304 + (let ((__tmp152410 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152261%_ - __tmp152304 + _%self152367%_ + __tmp152410 '3 '#f '#f)) - (let ((__tmp152305 + (let ((__tmp152411 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (##unchecked-structure-set! - _%self152261%_ - __tmp152305 + _%self152367%_ + __tmp152411 '4 '#f '#f)) '#!void) - (let ((__tmp152306 + (let ((__tmp152412 (let () (declare (not safe)) - (##vector-length _%self152261%_)))) + (##vector-length _%self152367%_)))) (declare (not safe)) (error '"struct-instance-init!: too many arguments for struct" - _%self152261%_ + _%self152367%_ '4 - __tmp152306)))))) + __tmp152412)))))) (let () (declare (not safe)) (__bind-method!__% @@ -152,22 +152,22 @@ gxc#optimizer-info:::init! '#f)) (define gxc#!type::t - (let ((__tmp152308 (list)) - (__tmp152307 + (let ((__tmp152414 (list)) + (__tmp152413 (cons (cons 'struct: '#t) '((equal: id) (print: id))))) (declare (not safe)) (__make-class-type 'gxc#!type::t '!type - __tmp152308 + __tmp152414 '(id) - __tmp152307 + __tmp152413 '#f))) (define gxc#!type? (let () (declare (not safe)) (__make-class-predicate gxc#!type::t))) (define gxc#make-!type - (lambda _%$args152131%_ - (apply make-instance gxc#!type::t _%$args152131%_))) + (lambda _%$args152237%_ + (apply make-instance gxc#!type::t _%$args152237%_))) (define gxc#!type-id (let () (declare (not safe)) @@ -185,21 +185,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!type::t 'id))) (define gxc#!abort::t - (let ((__tmp152310 (list gxc#!type::t)) - (__tmp152309 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152416 (list gxc#!type::t)) + (__tmp152415 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!abort::t '!abort - __tmp152310 + __tmp152416 '() - __tmp152309 + __tmp152415 ':init!))) (define gxc#!abort? (let () (declare (not safe)) (__make-class-predicate gxc#!abort::t))) (define gxc#make-!abort - (lambda _%$args152128%_ - (apply make-instance gxc#!abort::t _%$args152128%_))) + (lambda _%$args152234%_ + (apply make-instance gxc#!abort::t _%$args152234%_))) (define gxc#!abort-id (let () (declare (not safe)) @@ -217,21 +217,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!abort::t 'id))) (define gxc#!alias::t - (let ((__tmp152312 (list gxc#!type::t)) - (__tmp152311 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152418 (list gxc#!type::t)) + (__tmp152417 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!alias::t '!alias - __tmp152312 + __tmp152418 '() - __tmp152311 + __tmp152417 '#f))) (define gxc#!alias? (let () (declare (not safe)) (__make-class-predicate gxc#!alias::t))) (define gxc#make-!alias - (lambda _%$args152125%_ - (apply make-instance gxc#!alias::t _%$args152125%_))) + (lambda _%$args152231%_ + (apply make-instance gxc#!alias::t _%$args152231%_))) (define gxc#!alias-id (let () (declare (not safe)) @@ -249,8 +249,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!alias::t 'id))) (define gxc#!signature::t - (let ((__tmp152314 (list)) - (__tmp152313 + (let ((__tmp152420 (list)) + (__tmp152419 (cons (cons 'final: '#t) '((equal: return effect arguments unchecked origin) (print: return effect arguments unchecked origin))))) @@ -258,15 +258,15 @@ (__make-class-type 'gxc#!signature::t '!signature - __tmp152314 + __tmp152420 '(return effect arguments unchecked origin) - __tmp152313 + __tmp152419 '#f))) (define gxc#!signature? (let () (declare (not safe)) (__make-class-predicate gxc#!signature::t))) (define gxc#make-!signature - (lambda _%$args152122%_ - (apply make-instance gxc#!signature::t _%$args152122%_))) + (lambda _%$args152228%_ + (apply make-instance gxc#!signature::t _%$args152228%_))) (define gxc#!signature-return (let () (declare (not safe)) @@ -348,17 +348,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!signature::t 'origin))) (define gxc#!procedure::t - (let ((__tmp152316 (list gxc#!type::t)) - (__tmp152315 + (let ((__tmp152422 (list gxc#!type::t)) + (__tmp152421 (cons (cons 'struct: '#t) '((equal: signature) (print: signature))))) (declare (not safe)) (__make-class-type 'gxc#!procedure::t '!procedure - __tmp152316 + __tmp152422 '(signature) - __tmp152315 + __tmp152421 '#f))) (define gxc#!procedure? (let () (declare (not safe)) (__make-class-predicate gxc#!procedure::t))) @@ -395,17 +395,17 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!procedure::t 'id))) (define gxc#make-!procedure - (lambda (_%id152101%_ _%signature152102%_) - (if ((lambda (_%$obj152105%_) - (or (not _%$obj152105%_) + (lambda (_%id152207%_ _%signature152208%_) + (if ((lambda (_%$obj152211%_) + (or (not _%$obj152211%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152105%_ + _%$obj152211%_ 'gxc#!signature::t)))) - _%signature152102%_) - (let ((_%signature152112%_ _%signature152102%_)) - (gxc#__make-!procedure _%id152101%_ _%signature152112%_)) + _%signature152208%_) + (let ((_%signature152218%_ _%signature152208%_)) + (gxc#__make-!procedure _%id152207%_ _%signature152218%_)) (begin (raise-contract-violation-error '"contract violation" @@ -414,31 +414,31 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature152102%_) + _%signature152208%_) '#!void)))) (define gxc#__make-!procedure - (lambda (_%id152087%_ _%signature152089%_) - (let ((_%signature152092%_ _%signature152089%_)) + (lambda (_%id152193%_ _%signature152195%_) + (let ((_%signature152198%_ _%signature152195%_)) (declare (not safe)) - (##structure gxc#!procedure::t _%id152087%_ _%signature152092%_)))) + (##structure gxc#!procedure::t _%id152193%_ _%signature152198%_)))) (define gxc#!procedure-signature-set! - (lambda (_%$obj152056%_ _%signature152057%_) + (lambda (_%$obj152162%_ _%signature152163%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%$obj152056%_ 'gxc#!procedure::t)) - (let ((_%$obj152061%_ _%$obj152056%_)) - (if ((lambda (_%$obj152070%_) - (or (not _%$obj152070%_) + (##structure-instance-of? _%$obj152162%_ 'gxc#!procedure::t)) + (let ((_%$obj152167%_ _%$obj152162%_)) + (if ((lambda (_%$obj152176%_) + (or (not _%$obj152176%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%$obj152070%_ + _%$obj152176%_ 'gxc#!signature::t)))) - _%signature152057%_) - (let ((_%signature152077%_ _%signature152057%_)) + _%signature152163%_) + (let ((_%signature152183%_ _%signature152163%_)) (gxc#__!procedure-signature-set! - _%$obj152061%_ - _%signature152077%_)) + _%$obj152167%_ + _%signature152183%_)) (begin (raise-contract-violation-error '"contract violation" @@ -447,7 +447,7 @@ 'contract: '(? (or not !signature?)) 'value: - _%signature152057%_) + _%signature152163%_) '#!void))) (begin (raise-contract-violation-error @@ -457,37 +457,37 @@ 'contract: '!procedure? 'value: - _%$obj152056%_) + _%$obj152162%_) '#!void)))) (define gxc#__!procedure-signature-set! - (lambda (_%$obj152033%_ _%signature152035%_) - (let* ((_%$obj152039%_ _%$obj152033%_) - (_%signature152047%_ _%signature152035%_)) + (lambda (_%$obj152139%_ _%signature152141%_) + (let* ((_%$obj152145%_ _%$obj152139%_) + (_%signature152153%_ _%signature152141%_)) (declare (not safe)) (##unchecked-structure-set! - _%$obj152039%_ - _%signature152047%_ + _%$obj152145%_ + _%signature152153%_ '2 '#f '#f)))) (define gxc#!class-meta::t - (let ((__tmp152318 (list gxc#!type::t)) - (__tmp152317 (cons (cons 'struct: '#t) '()))) + (let ((__tmp152424 (list gxc#!type::t)) + (__tmp152423 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#!class-meta::t '!class-meta - __tmp152318 + __tmp152424 '(class) - __tmp152317 + __tmp152423 ':init!))) (define gxc#!class-meta? (let () (declare (not safe)) (__make-class-predicate gxc#!class-meta::t))) (define gxc#make-!class-meta - (lambda _%$args152030%_ - (apply make-instance gxc#!class-meta::t _%$args152030%_))) + (lambda _%$args152136%_ + (apply make-instance gxc#!class-meta::t _%$args152136%_))) (define gxc#!class-meta-class (let () (declare (not safe)) @@ -521,8 +521,8 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class-meta::t 'id))) (define gxc#!class::t - (let ((__tmp152320 (list gxc#!type::t)) - (__tmp152319 + (let ((__tmp152426 (list gxc#!type::t)) + (__tmp152425 (cons (cons 'struct: '#t) '((equal: super @@ -540,7 +540,7 @@ (__make-class-type 'gxc#!class::t '!class - __tmp152320 + __tmp152426 '(super precedence-list slots fields @@ -550,13 +550,13 @@ system? metaclass methods) - __tmp152319 + __tmp152425 ':init!))) (define gxc#!class? (let () (declare (not safe)) (__make-class-predicate gxc#!class::t))) (define gxc#make-!class - (lambda _%$args152027%_ - (apply make-instance gxc#!class::t _%$args152027%_))) + (lambda _%$args152133%_ + (apply make-instance gxc#!class::t _%$args152133%_))) (define gxc#!class-super (let () (declare (not safe)) @@ -734,21 +734,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!class::t 'id))) (define gxc#!predicate::t - (let ((__tmp152322 (list gxc#!procedure::t)) - (__tmp152321 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152428 (list gxc#!procedure::t)) + (__tmp152427 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!predicate::t '!predicate - __tmp152322 + __tmp152428 '() - __tmp152321 + __tmp152427 ':init!))) (define gxc#!predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!predicate::t))) (define gxc#make-!predicate - (lambda _%$args152024%_ - (apply make-instance gxc#!predicate::t _%$args152024%_))) + (lambda _%$args152130%_ + (apply make-instance gxc#!predicate::t _%$args152130%_))) (define gxc#!predicate-signature (let () (declare (not safe)) @@ -782,23 +782,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!predicate::t 'id))) (define gxc#!constructor::t - (let ((__tmp152324 (list gxc#!procedure::t)) - (__tmp152323 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152430 (list gxc#!procedure::t)) + (__tmp152429 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!constructor::t '!constructor - __tmp152324 + __tmp152430 '() - __tmp152323 + __tmp152429 ':init!))) (define gxc#!constructor? (let () (declare (not safe)) (__make-class-predicate gxc#!constructor::t))) (define gxc#make-!constructor - (lambda _%$args152021%_ - (apply make-instance gxc#!constructor::t _%$args152021%_))) + (lambda _%$args152127%_ + (apply make-instance gxc#!constructor::t _%$args152127%_))) (define gxc#!constructor-signature (let () (declare (not safe)) @@ -832,21 +832,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!constructor::t 'id))) (define gxc#!accessor::t - (let ((__tmp152326 (list gxc#!procedure::t)) - (__tmp152325 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152432 (list gxc#!procedure::t)) + (__tmp152431 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!accessor::t '!accessor - __tmp152326 + __tmp152432 '(slot checked?) - __tmp152325 + __tmp152431 ':init!))) (define gxc#!accessor? (let () (declare (not safe)) (__make-class-predicate gxc#!accessor::t))) (define gxc#make-!accessor - (lambda _%$args152018%_ - (apply make-instance gxc#!accessor::t _%$args152018%_))) + (lambda _%$args152124%_ + (apply make-instance gxc#!accessor::t _%$args152124%_))) (define gxc#!accessor-slot (let () (declare (not safe)) @@ -912,21 +912,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!accessor::t 'id))) (define gxc#!mutator::t - (let ((__tmp152328 (list gxc#!procedure::t)) - (__tmp152327 (cons (cons 'struct: '#t) '((equal: slot checked?))))) + (let ((__tmp152434 (list gxc#!procedure::t)) + (__tmp152433 (cons (cons 'struct: '#t) '((equal: slot checked?))))) (declare (not safe)) (__make-class-type 'gxc#!mutator::t '!mutator - __tmp152328 + __tmp152434 '(slot checked?) - __tmp152327 + __tmp152433 ':init!))) (define gxc#!mutator? (let () (declare (not safe)) (__make-class-predicate gxc#!mutator::t))) (define gxc#make-!mutator - (lambda _%$args152015%_ - (apply make-instance gxc#!mutator::t _%$args152015%_))) + (lambda _%$args152121%_ + (apply make-instance gxc#!mutator::t _%$args152121%_))) (define gxc#!mutator-slot (let () (declare (not safe)) @@ -992,21 +992,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!mutator::t 'id))) (define gxc#!interface::t - (let ((__tmp152330 (list gxc#!type::t)) - (__tmp152329 (cons (cons 'struct: '#t) '((equal: methods))))) + (let ((__tmp152436 (list gxc#!type::t)) + (__tmp152435 (cons (cons 'struct: '#t) '((equal: methods))))) (declare (not safe)) (__make-class-type 'gxc#!interface::t '!interface - __tmp152330 + __tmp152436 '(methods) - __tmp152329 + __tmp152435 '#f))) (define gxc#!interface? (let () (declare (not safe)) (__make-class-predicate gxc#!interface::t))) (define gxc#make-!interface - (lambda _%$args152012%_ - (apply make-instance gxc#!interface::t _%$args152012%_))) + (lambda _%$args152118%_ + (apply make-instance gxc#!interface::t _%$args152118%_))) (define gxc#!interface-methods (let () (declare (not safe)) @@ -1040,23 +1040,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!interface::t 'id))) (define gxc#!lambda::t - (let ((__tmp152332 (list gxc#!procedure::t)) - (__tmp152331 + (let ((__tmp152438 (list gxc#!procedure::t)) + (__tmp152437 (cons (cons 'struct: '#t) '((equal: arity dispatch inline inline-typedecl))))) (declare (not safe)) (__make-class-type 'gxc#!lambda::t '!lambda - __tmp152332 + __tmp152438 '(arity dispatch inline inline-typedecl) - __tmp152331 + __tmp152437 ':init!))) (define gxc#!lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!lambda::t))) (define gxc#make-!lambda - (lambda _%$args152009%_ - (apply make-instance gxc#!lambda::t _%$args152009%_))) + (lambda _%$args152115%_ + (apply make-instance gxc#!lambda::t _%$args152115%_))) (define gxc#!lambda-arity (let () (declare (not safe)) @@ -1156,23 +1156,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!lambda::t 'id))) (define gxc#!case-lambda::t - (let ((__tmp152334 (list gxc#!procedure::t)) - (__tmp152333 (cons (cons 'struct: '#t) '((equal: clauses))))) + (let ((__tmp152440 (list gxc#!procedure::t)) + (__tmp152439 (cons (cons 'struct: '#t) '((equal: clauses))))) (declare (not safe)) (__make-class-type 'gxc#!case-lambda::t '!case-lambda - __tmp152334 + __tmp152440 '(clauses) - __tmp152333 + __tmp152439 ':init!))) (define gxc#!case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!case-lambda::t))) (define gxc#make-!case-lambda - (lambda _%$args152006%_ - (apply make-instance gxc#!case-lambda::t _%$args152006%_))) + (lambda _%$args152112%_ + (apply make-instance gxc#!case-lambda::t _%$args152112%_))) (define gxc#!case-lambda-clauses (let () (declare (not safe)) @@ -1222,22 +1222,22 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!case-lambda::t 'id))) (define gxc#!kw-lambda::t - (let ((__tmp152336 (list gxc#!procedure::t)) - (__tmp152335 + (let ((__tmp152442 (list gxc#!procedure::t)) + (__tmp152441 (cons (cons 'struct: '#t) '((equal: table dispatch))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda::t '!kw-lambda - __tmp152336 + __tmp152442 '(table dispatch) - __tmp152335 + __tmp152441 ':init!))) (define gxc#!kw-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda::t))) (define gxc#make-!kw-lambda - (lambda _%$args152003%_ - (apply make-instance gxc#!kw-lambda::t _%$args152003%_))) + (lambda _%$args152109%_ + (apply make-instance gxc#!kw-lambda::t _%$args152109%_))) (define gxc#!kw-lambda-table (let () (declare (not safe)) @@ -1303,23 +1303,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda::t 'id))) (define gxc#!kw-lambda-primary::t - (let ((__tmp152338 (list gxc#!procedure::t)) - (__tmp152337 (cons (cons 'struct: '#t) '((equal: keys main))))) + (let ((__tmp152444 (list gxc#!procedure::t)) + (__tmp152443 (cons (cons 'struct: '#t) '((equal: keys main))))) (declare (not safe)) (__make-class-type 'gxc#!kw-lambda-primary::t '!kw-lambda-primary - __tmp152338 + __tmp152444 '(keys main) - __tmp152337 + __tmp152443 ':init!))) (define gxc#!kw-lambda-primary? (let () (declare (not safe)) (__make-class-predicate gxc#!kw-lambda-primary::t))) (define gxc#make-!kw-lambda-primary - (lambda _%$args152000%_ - (apply make-instance gxc#!kw-lambda-primary::t _%$args152000%_))) + (lambda _%$args152106%_ + (apply make-instance gxc#!kw-lambda-primary::t _%$args152106%_))) (define gxc#!kw-lambda-primary-keys (let () (declare (not safe)) @@ -1393,38 +1393,38 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!kw-lambda-primary::t 'id))) (define gxc#!primitive::t - (let ((__tmp152339 (list))) + (let ((__tmp152445 (list))) (declare (not safe)) (__make-class-type 'gxc#!primitive::t '!primitive - __tmp152339 + __tmp152445 '() '((equal:)) '#f))) (define gxc#!primitive? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive::t))) (define gxc#make-!primitive - (lambda _%$args151997%_ - (apply make-instance gxc#!primitive::t _%$args151997%_))) + (lambda _%$args152103%_ + (apply make-instance gxc#!primitive::t _%$args152103%_))) (define gxc#!primitive-predicate::t - (let ((__tmp152341 (list gxc#!primitive::t gxc#!procedure::t)) - (__tmp152340 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152447 (list gxc#!primitive::t gxc#!procedure::t)) + (__tmp152446 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-predicate::t '!primitive-predicate - __tmp152341 + __tmp152447 '() - __tmp152340 + __tmp152446 ':init!))) (define gxc#!primitive-predicate? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-predicate::t))) (define gxc#make-!primitive-predicate - (lambda _%$args151994%_ - (apply make-instance gxc#!primitive-predicate::t _%$args151994%_))) + (lambda _%$args152100%_ + (apply make-instance gxc#!primitive-predicate::t _%$args152100%_))) (define gxc#!primitive-predicate-signature (let () (declare (not safe)) @@ -1464,23 +1464,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-predicate::t 'id))) (define gxc#!primitive-lambda::t - (let ((__tmp152343 (list gxc#!primitive::t gxc#!lambda::t)) - (__tmp152342 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152449 (list gxc#!primitive::t gxc#!lambda::t)) + (__tmp152448 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-lambda::t '!primitive-lambda - __tmp152343 + __tmp152449 '() - __tmp152342 + __tmp152448 ':init!))) (define gxc#!primitive-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-lambda::t))) (define gxc#make-!primitive-lambda - (lambda _%$args151991%_ - (apply make-instance gxc#!primitive-lambda::t _%$args151991%_))) + (lambda _%$args152097%_ + (apply make-instance gxc#!primitive-lambda::t _%$args152097%_))) (define gxc#!primitive-lambda-arity (let () (declare (not safe)) @@ -1598,23 +1598,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#!primitive-lambda::t 'id))) (define gxc#!primitive-case-lambda::t - (let ((__tmp152345 (list gxc#!primitive::t gxc#!case-lambda::t)) - (__tmp152344 (cons (cons 'struct: '#t) '((equal:))))) + (let ((__tmp152451 (list gxc#!primitive::t gxc#!case-lambda::t)) + (__tmp152450 (cons (cons 'struct: '#t) '((equal:))))) (declare (not safe)) (__make-class-type 'gxc#!primitive-case-lambda::t '!primitive-case-lambda - __tmp152345 + __tmp152451 '() - __tmp152344 + __tmp152450 ':init!))) (define gxc#!primitive-case-lambda? (let () (declare (not safe)) (__make-class-predicate gxc#!primitive-case-lambda::t))) (define gxc#make-!primitive-case-lambda - (lambda _%$args151988%_ - (apply make-instance gxc#!primitive-case-lambda::t _%$args151988%_))) + (lambda _%$args152094%_ + (apply make-instance gxc#!primitive-case-lambda::t _%$args152094%_))) (define gxc#!primitive-case-lambda-clauses (let () (declare (not safe)) @@ -1676,26 +1676,26 @@ gxc#!primitive-case-lambda::t 'id))) (define gxc#!abort:::init! - (lambda (_%self149413151973%_) - (let* ((_%self151976%_ _%self149413151973%_) - (_%self151978%_ _%self151976%_)) + (lambda (_%self149519152079%_) + (let* ((_%self152082%_ _%self149519152079%_) + (_%self152084%_ _%self152082%_)) (declare (not safe)) - (##unchecked-structure-set! _%self151978%_ 'abort '1 '#f '#f)))) + (##unchecked-structure-set! _%self152084%_ 'abort '1 '#f '#f)))) (let () (declare (not safe)) (__bind-method!__% gxc#!abort::t ':init! gxc#!abort:::init! '#f)) (define gxc#!class-meta:::init! - (lambda (_%self149414151835%_ _%klass151837%_) - (let* ((_%self151839%_ _%self149414151835%_) - (_%self151841%_ _%self151839%_)) + (lambda (_%self149520151941%_ _%klass151943%_) + (let* ((_%self151945%_ _%self149520151941%_) + (_%self151947%_ _%self151945%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self151841%_ 'class '1 '#f '#f)) + (##unchecked-structure-set! _%self151947%_ 'class '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151841%_ - _%klass151837%_ + _%self151947%_ + _%klass151943%_ '2 '#f '#f))))) @@ -1707,592 +1707,592 @@ gxc#!class-meta:::init! '#f)) (define gxc#!class:::init!__0 - (lambda (_%self149415151523%_ - _%id151525%_ - _%super151526%_ - _%slots151527%_ - _%ctor-method151528%_ - _%struct?151529%_ - _%final?151530%_ - _%system?151531%_ - _%metaclass151532%_) - (let* ((_%self151534%_ _%self149415151523%_) - (_%self151536%_ _%self151534%_)) - (let _%lp151546%_ ((_%rest151548%_ _%super151526%_)) - (let* ((_%rest151549151557%_ _%rest151548%_) - (_%else151551151565%_ (lambda () '#!void)) - (_%K151553151571%_ - (lambda (_%rest151568%_ _%super-id151569%_) - (if (let ((__tmp152346 + (lambda (_%self149521151629%_ + _%id151631%_ + _%super151632%_ + _%slots151633%_ + _%ctor-method151634%_ + _%struct?151635%_ + _%final?151636%_ + _%system?151637%_ + _%metaclass151638%_) + (let* ((_%self151640%_ _%self149521151629%_) + (_%self151642%_ _%self151640%_)) + (let _%lp151652%_ ((_%rest151654%_ _%super151632%_)) + (let* ((_%rest151655151663%_ _%rest151654%_) + (_%else151657151671%_ (lambda () '#!void)) + (_%K151659151677%_ + (lambda (_%rest151674%_ _%super-id151675%_) + (if (let ((__tmp152452 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151525%_ '())) - _%super-id151569%_))) + (cons '!class (cons _%id151631%_ '())) + _%super-id151675%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152346 '8 '#f '#f)) - (let ((__tmp152347 - (cons '!class (cons _%id151525%_ '())))) + (##unchecked-structure-ref __tmp152452 '8 '#f '#f)) + (let ((__tmp152453 + (cons '!class (cons _%id151631%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"cannot extend final class" - __tmp152347 - _%super-id151569%_)) + __tmp152453 + _%super-id151675%_)) '#!void) - (_%lp151546%_ _%rest151568%_)))) - (if (pair? _%rest151549151557%_) - (let ((_%hd151554151574%_ + (_%lp151652%_ _%rest151674%_)))) + (if (pair? _%rest151655151663%_) + (let ((_%hd151660151680%_ (let () (declare (not safe)) - (##car _%rest151549151557%_))) - (_%tl151555151576%_ + (##car _%rest151655151663%_))) + (_%tl151661151682%_ (let () (declare (not safe)) - (##cdr _%rest151549151557%_)))) - (let* ((_%super-id151579%_ _%hd151554151574%_) - (_%rest151581%_ _%tl151555151576%_)) - (_%K151553151571%_ _%rest151581%_ _%super-id151579%_))) + (##cdr _%rest151655151663%_)))) + (let* ((_%super-id151685%_ _%hd151660151680%_) + (_%rest151687%_ _%tl151661151682%_)) + (_%K151659151677%_ _%rest151687%_ _%super-id151685%_))) '#!void))) - (let* ((_%ctor-method151632%_ - (let ((_%$e151583%_ _%ctor-method151528%_)) - (if _%$e151583%_ - _%$e151583%_ - (let _%lp151586%_ ((_%rest151588%_ _%super151526%_) - (_%method151589%_ '#f)) - (let* ((_%rest151590151598%_ _%rest151588%_) - (_%else151592151606%_ - (lambda () _%method151589%_)) - (_%K151594151620%_ - (lambda (_%rest151609%_ _%super-id151610%_) - (let* ((_%klass151612%_ + (let* ((_%ctor-method151738%_ + (let ((_%$e151689%_ _%ctor-method151634%_)) + (if _%$e151689%_ + _%$e151689%_ + (let _%lp151692%_ ((_%rest151694%_ _%super151632%_) + (_%method151695%_ '#f)) + (let* ((_%rest151696151704%_ _%rest151694%_) + (_%else151698151712%_ + (lambda () _%method151695%_)) + (_%K151700151726%_ + (lambda (_%rest151715%_ _%super-id151716%_) + (let* ((_%klass151718%_ (gxc#optimizer-resolve-class (cons '!class - (cons _%id151525%_ '())) - _%super-id151610%_)) - (_%$e151614%_ + (cons _%id151631%_ '())) + _%super-id151716%_)) + (_%$e151720%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151612%_ + _%klass151718%_ '6 '#f '#f)))) - (if _%$e151614%_ - ((lambda (_%ctor-method151617%_) - (if _%method151589%_ - (if (eq? _%ctor-method151617%_ - _%method151589%_) - (_%lp151586%_ - _%rest151609%_ - _%ctor-method151617%_) - (let ((__tmp152348 + (if _%$e151720%_ + ((lambda (_%ctor-method151723%_) + (if _%method151695%_ + (if (eq? _%ctor-method151723%_ + _%method151695%_) + (_%lp151692%_ + _%rest151715%_ + _%ctor-method151723%_) + (let ((__tmp152454 (cons '!class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id151525%_ '())))) + (cons _%id151631%_ '())))) (declare (not safe)) (gxc#raise-compile-error '"conflicting implicit constructor methods" - __tmp152348 - _%method151589%_ - _%ctor-method151617%_))) + __tmp152454 + _%method151695%_ + _%ctor-method151723%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp151586%_ - _%rest151609%_ - _%ctor-method151617%_))) - _%$e151614%_) - (_%lp151586%_ - _%rest151609%_ - _%method151589%_)))))) - (if (pair? _%rest151590151598%_) - (let ((_%hd151595151623%_ + (_%lp151692%_ + _%rest151715%_ + _%ctor-method151723%_))) + _%$e151720%_) + (_%lp151692%_ + _%rest151715%_ + _%method151695%_)))))) + (if (pair? _%rest151696151704%_) + (let ((_%hd151701151729%_ (let () (declare (not safe)) - (##car _%rest151590151598%_))) - (_%tl151596151625%_ + (##car _%rest151696151704%_))) + (_%tl151702151731%_ (let () (declare (not safe)) - (##cdr _%rest151590151598%_)))) - (let* ((_%super-id151628%_ - _%hd151595151623%_) - (_%rest151630%_ _%tl151596151625%_)) - (_%K151594151620%_ - _%rest151630%_ - _%super-id151628%_))) - (_%else151592151606%_))))))) - (_g152349_ - (let ((__tmp152353 - (lambda (_%klass-id151634%_) - (cons _%klass-id151634%_ - (let ((__tmp152354 + (##cdr _%rest151696151704%_)))) + (let* ((_%super-id151734%_ + _%hd151701151729%_) + (_%rest151736%_ _%tl151702151731%_)) + (_%K151700151726%_ + _%rest151736%_ + _%super-id151734%_))) + (_%else151698151712%_))))))) + (_g152455_ + (let ((__tmp152459 + (lambda (_%klass-id151740%_) + (cons _%klass-id151740%_ + (let ((__tmp152460 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151525%_ '())) - _%klass-id151634%_))) + (cons '!class (cons _%id151631%_ '())) + _%klass-id151740%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152354 + __tmp152460 '3 '#f '#f))))) - (__tmp152351 - (lambda (_%klass-id151636%_) - (let ((__tmp152352 + (__tmp152457 + (lambda (_%klass-id151742%_) + (let ((__tmp152458 (gxc#optimizer-resolve-class - (cons '!class (cons _%id151525%_ '())) - _%klass-id151636%_))) + (cons '!class (cons _%id151631%_ '())) + _%klass-id151742%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152352 + __tmp152458 '7 '#f '#f))))) (declare (not safe)) (c4-linearize__% '#f - __tmp152353 - __tmp152351 + __tmp152459 + __tmp152457 eq? identity '() - _%super151526%_)))) + _%super151632%_)))) (begin - (let ((_g152350_ + (let ((_g152456_ (let () (declare (not safe)) - (if (##values? _g152349_) - (##vector-length _g152349_) + (if (##values? _g152455_) + (##values-length _g152455_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g152350_ 2))) - (error "Context expects 2 values" _g152350_))) - (let ((_%precedence-list151638%_ - (let () (declare (not safe)) (##vector-ref _g152349_ 0))) - (_%base-struct151639%_ - (let () (declare (not safe)) (##vector-ref _g152349_ 1)))) - (let* ((_%precedence-list151683%_ + (if (not (let () (declare (not safe)) (##fx= _g152456_ 2))) + (error "Context expects 2 values" _g152456_))) + (let ((_%precedence-list151744%_ + (let () (declare (not safe)) (##values-ref _g152455_ 0))) + (_%base-struct151745%_ + (let () (declare (not safe)) (##values-ref _g152455_ 1)))) + (let* ((_%precedence-list151789%_ (if (let () (declare (not safe)) - (##memq _%id151525%_ '(t object class))) - _%precedence-list151638%_ - (if (memq 'object::t _%precedence-list151638%_) - _%precedence-list151638%_ - (if _%system?151531%_ - (if (memq 't::t _%precedence-list151638%_) - _%precedence-list151638%_ + (##memq _%id151631%_ '(t object class))) + _%precedence-list151744%_ + (if (memq 'object::t _%precedence-list151744%_) + _%precedence-list151744%_ + (if _%system?151637%_ + (if (memq 't::t _%precedence-list151744%_) + _%precedence-list151744%_ (let () (declare (not safe)) (##append - _%precedence-list151638%_ + _%precedence-list151744%_ '(t::t)))) - (let _%loop151645%_ ((_%tail151647%_ - _%precedence-list151638%_) - (_%head151648%_ '())) - (let* ((_%tail151649151657%_ - _%tail151647%_) - (_%else151651151665%_ + (let _%loop151751%_ ((_%tail151753%_ + _%precedence-list151744%_) + (_%head151754%_ '())) + (let* ((_%tail151755151763%_ + _%tail151753%_) + (_%else151757151771%_ (lambda () (let () (declare (not safe)) (__foldl1 cons '(object::t t::t) - _%head151648%_)))) - (_%K151653151671%_ - (lambda (_%rest151668%_ - _%hd151669%_) - (if (eq? _%hd151669%_ 't::t) - (let ((__tmp152355 + _%head151754%_)))) + (_%K151759151777%_ + (lambda (_%rest151774%_ + _%hd151775%_) + (if (eq? _%hd151775%_ 't::t) + (let ((__tmp152461 (cons 'object::t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail151647%_))) + _%tail151753%_))) (declare (not safe)) - (__foldl1 cons __tmp152355 _%head151648%_)) + (__foldl1 cons __tmp152461 _%head151754%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop151645%_ - _%rest151668%_ - (cons _%hd151669%_ - _%head151648%_)))))) - (if (pair? _%tail151649151657%_) - (let ((_%hd151654151674%_ + (_%loop151751%_ + _%rest151774%_ + (cons _%hd151775%_ + _%head151754%_)))))) + (if (pair? _%tail151755151763%_) + (let ((_%hd151760151780%_ (let () (declare (not safe)) - (##car _%tail151649151657%_))) - (_%tl151655151676%_ + (##car _%tail151755151763%_))) + (_%tl151761151782%_ (let () (declare (not safe)) - (##cdr _%tail151649151657%_)))) - (let* ((_%hd151679%_ - _%hd151654151674%_) - (_%rest151681%_ - _%tl151655151676%_)) - (_%K151653151671%_ - _%rest151681%_ - _%hd151679%_))) - (_%else151651151665%_)))))))) - (_%fields151685%_ + (##cdr _%tail151755151763%_)))) + (let* ((_%hd151785%_ + _%hd151760151780%_) + (_%rest151787%_ + _%tl151761151782%_)) + (_%K151759151777%_ + _%rest151787%_ + _%hd151785%_))) + (_%else151757151771%_)))))))) + (_%fields151791%_ (gxc#compute-class-fields - (cons '!class (cons _%id151525%_ '())) - _%base-struct151639%_ - _%precedence-list151683%_ - _%slots151527%_))) + (cons '!class (cons _%id151631%_ '())) + _%base-struct151745%_ + _%precedence-list151789%_ + _%slots151633%_))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%id151525%_ + _%self151642%_ + _%id151631%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%super151526%_ + _%self151642%_ + _%super151632%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%precedence-list151683%_ + _%self151642%_ + _%precedence-list151789%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%slots151527%_ + _%self151642%_ + _%slots151633%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%fields151685%_ + _%self151642%_ + _%fields151791%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%ctor-method151632%_ + _%self151642%_ + _%ctor-method151738%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%struct?151529%_ + _%self151642%_ + _%struct?151635%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%final?151530%_ + _%self151642%_ + _%final?151636%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151536%_ - _%metaclass151532%_ + _%self151642%_ + _%metaclass151638%_ '10 '#f '#f))))))))) (define gxc#!class:::init!__1 - (lambda (_%self149416151688%_ - _%id151690%_ - _%super151691%_ - _%precedence-list151692%_ - _%slots151693%_ - _%fields151694%_ - _%constructor151695%_ - _%struct?151696%_ - _%final?151697%_ - _%system?151698%_ - _%metaclass151699%_ - _%methods151700%_) - (let* ((_%self151702%_ _%self149416151688%_) - (_%self151704%_ _%self151702%_)) + (lambda (_%self149522151794%_ + _%id151796%_ + _%super151797%_ + _%precedence-list151798%_ + _%slots151799%_ + _%fields151800%_ + _%constructor151801%_ + _%struct?151802%_ + _%final?151803%_ + _%system?151804%_ + _%metaclass151805%_ + _%methods151806%_) + (let* ((_%self151808%_ _%self149522151794%_) + (_%self151810%_ _%self151808%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%id151690%_ + _%self151810%_ + _%id151796%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%super151691%_ + _%self151810%_ + _%super151797%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%precedence-list151692%_ + _%self151810%_ + _%precedence-list151798%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%slots151693%_ + _%self151810%_ + _%slots151799%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%fields151694%_ + _%self151810%_ + _%fields151800%_ '5 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%constructor151695%_ + _%self151810%_ + _%constructor151801%_ '6 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%struct?151696%_ + _%self151810%_ + _%struct?151802%_ '7 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%final?151697%_ + _%self151810%_ + _%final?151803%_ '8 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - _%metaclass151699%_ + _%self151810%_ + _%metaclass151805%_ '10 '#f '#f)) - (if _%methods151700%_ - (let ((__tmp152356 + (if _%methods151806%_ + (let ((__tmp152462 (let () (declare (not safe)) - (list->hash-table-eq _%methods151700%_)))) + (list->hash-table-eq _%methods151806%_)))) (declare (not safe)) (##unchecked-structure-set! - _%self151704%_ - __tmp152356 + _%self151810%_ + __tmp152462 '11 '#f '#f)) '#!void)))) (define gxc#!class:::init! - (lambda _g152358_ - (let ((_g152357_ (let () (declare (not safe)) (##length _g152358_)))) - (cond ((let () (declare (not safe)) (##fx= _g152357_ 9)) - (apply gxc#!class:::init!__0 _g152358_)) - ((let () (declare (not safe)) (##fx= _g152357_ 12)) - (apply gxc#!class:::init!__1 _g152358_)) + (lambda _g152464_ + (let ((_g152463_ (let () (declare (not safe)) (##length _g152464_)))) + (cond ((let () (declare (not safe)) (##fx= _g152463_ 9)) + (apply gxc#!class:::init!__0 _g152464_)) + ((let () (declare (not safe)) (##fx= _g152463_ 12)) + (apply gxc#!class:::init!__1 _g152464_)) (else (##raise-wrong-number-of-arguments-exception gxc#!class:::init! - _g152358_)))))) + _g152464_)))))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t ':init! gxc#!class:::init! '#f)) (define gxc#compute-class-fields - (lambda (_%where151375%_ - _%base-struct151376%_ - _%precedence-list151377%_ - _%direct-slots151378%_) - (let* ((_%base-fields151380%_ - (if _%base-struct151376%_ - (let ((__tmp152359 + (lambda (_%where151481%_ + _%base-struct151482%_ + _%precedence-list151483%_ + _%direct-slots151484%_) + (let* ((_%base-fields151486%_ + (if _%base-struct151482%_ + (let ((__tmp152465 (gxc#optimizer-resolve-class - _%where151375%_ - _%base-struct151376%_))) + _%where151481%_ + _%base-struct151482%_))) (declare (not safe)) - (##unchecked-structure-ref __tmp152359 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152465 '5 '#f '#f)) '())) - (_%r-fields151382%_ (reverse _%base-fields151380%_)) - (_%seen-slots151390%_ - (let ((_%tab151384%_ + (_%r-fields151488%_ (reverse _%base-fields151486%_)) + (_%seen-slots151496%_ + (let ((_%tab151490%_ (let () (declare (not safe)) (make-hash-table-eq)))) (for-each - (lambda (_%g151385151387%_) + (lambda (_%g151491151493%_) (let () (declare (not safe)) - (__hash-put! _%tab151384%_ _%g151385151387%_ '#t))) - _%base-fields151380%_) - _%tab151384%_)) - (_%process-slot151394%_ - (lambda (_%slot151392%_) + (__hash-put! _%tab151490%_ _%g151491151493%_ '#t))) + _%base-fields151486%_) + _%tab151490%_)) + (_%process-slot151500%_ + (lambda (_%slot151498%_) (if (let () (declare (not safe)) - (__hash-get _%seen-slots151390%_ _%slot151392%_)) + (__hash-get _%seen-slots151496%_ _%slot151498%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! - _%seen-slots151390%_ - _%slot151392%_ + _%seen-slots151496%_ + _%slot151498%_ '#t)) - (set! _%r-fields151382%_ - (cons _%slot151392%_ _%r-fields151382%_))))))) + (set! _%r-fields151488%_ + (cons _%slot151498%_ _%r-fields151488%_))))))) (for-each - (lambda (_%mixin151397%_) - (let ((_%klass151399%_ + (lambda (_%mixin151503%_) + (let ((_%klass151505%_ (gxc#optimizer-resolve-class - _%where151375%_ - _%mixin151397%_))) + _%where151481%_ + _%mixin151503%_))) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%klass151399%_ '7 '#f '#f)) + (##unchecked-structure-ref _%klass151505%_ '7 '#f '#f)) '#!void (for-each - _%process-slot151394%_ + _%process-slot151500%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass151399%_ + _%klass151505%_ '5 '#f '#f)))))) - _%precedence-list151377%_) - (for-each _%process-slot151394%_ _%direct-slots151378%_) - (let () (declare (not safe)) (##reverse _%r-fields151382%_))))) + _%precedence-list151483%_) + (for-each _%process-slot151500%_ _%direct-slots151484%_) + (let () (declare (not safe)) (##reverse _%r-fields151488%_))))) (define gxc#!class-slot->field-offset - (lambda (_%klass151334%_ _%slot151335%_) - (let _%lp151337%_ ((_%rest151339%_ + (lambda (_%klass151440%_ _%slot151441%_) + (let _%lp151443%_ ((_%rest151445%_ (##structure-ref - _%klass151334%_ + _%klass151440%_ '5 gxc#!class::t '#f)) - (_%offset151340%_ '1)) - (let* ((_%rest151341151349%_ _%rest151339%_) - (_%else151343151357%_ + (_%offset151446%_ '1)) + (let* ((_%rest151447151455%_ _%rest151445%_) + (_%else151449151463%_ (lambda () - (let ((__tmp152361 + (let ((__tmp152467 (##structure-ref - _%klass151334%_ + _%klass151440%_ '1 gxc#!type::t '#f)) - (__tmp152360 + (__tmp152466 (##structure-ref - _%klass151334%_ + _%klass151440%_ '5 gxc#!class::t '#f))) (declare (not safe)) (gxc#raise-compile-error '"unknown class slot" - __tmp152361 - __tmp152360 - _%slot151335%_)))) - (_%K151345151363%_ - (lambda (_%rest151360%_ _%s151361%_) - (if (eq? _%s151361%_ _%slot151335%_) - _%offset151340%_ - (_%lp151337%_ - _%rest151360%_ + __tmp152467 + __tmp152466 + _%slot151441%_)))) + (_%K151451151469%_ + (lambda (_%rest151466%_ _%s151467%_) + (if (eq? _%s151467%_ _%slot151441%_) + _%offset151446%_ + (_%lp151443%_ + _%rest151466%_ (let () (declare (not safe)) - (##fx+ _%offset151340%_ '1))))))) - (if (pair? _%rest151341151349%_) - (let ((_%hd151346151366%_ + (##fx+ _%offset151446%_ '1))))))) + (if (pair? _%rest151447151455%_) + (let ((_%hd151452151472%_ (let () (declare (not safe)) - (##car _%rest151341151349%_))) - (_%tl151347151368%_ + (##car _%rest151447151455%_))) + (_%tl151453151474%_ (let () (declare (not safe)) - (##cdr _%rest151341151349%_)))) - (let* ((_%s151371%_ _%hd151346151366%_) - (_%rest151373%_ _%tl151347151368%_)) - (_%K151345151363%_ _%rest151373%_ _%s151371%_))) - (_%else151343151357%_)))))) + (##cdr _%rest151447151455%_)))) + (let* ((_%s151477%_ _%hd151452151472%_) + (_%rest151479%_ _%tl151453151474%_)) + (_%K151451151469%_ _%rest151479%_ _%s151477%_))) + (_%else151449151463%_)))))) (define gxc#!class-slot-find-struct - (lambda (_%klass151292%_ _%slot151293%_) - (if (gxc#!class-struct-slot? _%klass151292%_ _%slot151293%_) - _%klass151292%_ - (let _%lp151295%_ ((_%rest151297%_ + (lambda (_%klass151398%_ _%slot151399%_) + (if (gxc#!class-struct-slot? _%klass151398%_ _%slot151399%_) + _%klass151398%_ + (let _%lp151401%_ ((_%rest151403%_ (##structure-ref - _%klass151292%_ + _%klass151398%_ '3 gxc#!class::t '#f))) - (let* ((_%rest151298151306%_ _%rest151297%_) - (_%else151300151314%_ (lambda () '#f)) - (_%K151302151322%_ - (lambda (_%rest151317%_ _%super151318%_) - (let ((_%super-class151320%_ + (let* ((_%rest151404151412%_ _%rest151403%_) + (_%else151406151420%_ (lambda () '#f)) + (_%K151408151428%_ + (lambda (_%rest151423%_ _%super151424%_) + (let ((_%super-class151426%_ (gxc#optimizer-resolve-class (cons '!class-slot-find-struct (cons (##structure-ref - _%klass151292%_ + _%klass151398%_ '1 gxc#!type::t '#f) - (cons _%slot151293%_ '()))) - _%super151318%_))) + (cons _%slot151399%_ '()))) + _%super151424%_))) (if (gxc#!class-struct-slot? - _%super-class151320%_ - _%slot151293%_) - _%super-class151320%_ - (_%lp151295%_ _%rest151317%_)))))) - (if (pair? _%rest151298151306%_) - (let ((_%hd151303151325%_ + _%super-class151426%_ + _%slot151399%_) + _%super-class151426%_ + (_%lp151401%_ _%rest151423%_)))))) + (if (pair? _%rest151404151412%_) + (let ((_%hd151409151431%_ (let () (declare (not safe)) - (##car _%rest151298151306%_))) - (_%tl151304151327%_ + (##car _%rest151404151412%_))) + (_%tl151410151433%_ (let () (declare (not safe)) - (##cdr _%rest151298151306%_)))) - (let* ((_%super151330%_ _%hd151303151325%_) - (_%rest151332%_ _%tl151304151327%_)) - (_%K151302151322%_ _%rest151332%_ _%super151330%_))) - (_%else151300151314%_))))))) + (##cdr _%rest151404151412%_)))) + (let* ((_%super151436%_ _%hd151409151431%_) + (_%rest151438%_ _%tl151410151433%_)) + (_%K151408151428%_ _%rest151438%_ _%super151436%_))) + (_%else151406151420%_))))))) (define gxc#!class-struct-slot? - (lambda (_%klass151289%_ _%slot151290%_) - (if (##structure-ref _%klass151289%_ '7 gxc#!class::t '#f) - (memq _%slot151290%_ - (##structure-ref _%klass151289%_ '5 gxc#!class::t '#f)) + (lambda (_%klass151395%_ _%slot151396%_) + (if (##structure-ref _%klass151395%_ '7 gxc#!class::t '#f) + (memq _%slot151396%_ + (##structure-ref _%klass151395%_ '5 gxc#!class::t '#f)) '#f))) (define gxc#!predicate:::init! - (lambda (_%self149417151273%_ _%id151275%_) - (let* ((_%self151277%_ _%self149417151273%_) - (_%self151279%_ _%self151277%_)) + (lambda (_%self149523151379%_ _%id151381%_) + (let* ((_%self151383%_ _%self149523151379%_) + (_%self151385%_ _%self151383%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151279%_ - _%id151275%_ + _%self151385%_ + _%id151381%_ '1 '#f '#f)) - (let ((__tmp152362 - (let ((__obj152294 + (let ((__tmp152468 + (let ((__obj152400 (let () (declare (not safe)) (##structure @@ -2305,7 +2305,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152294 + __obj152400 'boolean::t '1 '#f @@ -2313,7 +2313,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152294 + __obj152400 '(pure predicate) '2 '#f @@ -2321,16 +2321,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152294 + __obj152400 '(t::t) '3 '#f '#f)) - __obj152294))) + __obj152400))) (declare (not safe)) (##unchecked-structure-set! - _%self151279%_ - __tmp152362 + _%self151385%_ + __tmp152468 '2 '#f '#f))))) @@ -2338,19 +2338,19 @@ (declare (not safe)) (__bind-method!__% gxc#!predicate::t ':init! gxc#!predicate:::init! '#f)) (define gxc#!constructor:::init! - (lambda (_%self149418151135%_ _%id151137%_) - (let* ((_%self151139%_ _%self149418151135%_) - (_%self151141%_ _%self151139%_)) + (lambda (_%self149524151241%_ _%id151243%_) + (let* ((_%self151245%_ _%self149524151241%_) + (_%self151247%_ _%self151245%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151141%_ - _%id151137%_ + _%self151247%_ + _%id151243%_ '1 '#f '#f)) - (let ((__tmp152363 - (let ((__obj152295 + (let ((__tmp152469 + (let ((__obj152401 (let () (declare (not safe)) (##structure @@ -2363,24 +2363,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152295 - _%id151137%_ + __obj152401 + _%id151243%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152295 + __obj152401 '(alloc) '2 '#f '#f)) - __obj152295))) + __obj152401))) (declare (not safe)) (##unchecked-structure-set! - _%self151141%_ - __tmp152363 + _%self151247%_ + __tmp152469 '2 '#f '#f))))) @@ -2392,38 +2392,38 @@ gxc#!constructor:::init! '#f)) (define gxc#!accessor:::init! - (lambda (_%self149419150995%_ - _%id150997%_ - _%slot150998%_ - _%checked?150999%_) - (let* ((_%self151001%_ _%self149419150995%_) - (_%self151003%_ _%self151001%_)) + (lambda (_%self149525151101%_ + _%id151103%_ + _%slot151104%_ + _%checked?151105%_) + (let* ((_%self151107%_ _%self149525151101%_) + (_%self151109%_ _%self151107%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151003%_ - _%id150997%_ + _%self151109%_ + _%id151103%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151003%_ - _%slot150998%_ + _%self151109%_ + _%slot151104%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self151003%_ - _%checked?150999%_ + _%self151109%_ + _%checked?151105%_ '4 '#f '#f)) - (let ((__tmp152364 - (let ((__obj152296 + (let ((__tmp152470 + (let ((__obj152402 (let () (declare (not safe)) (##structure @@ -2435,28 +2435,28 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152296 't::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152402 't::t '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152296 + __obj152402 '(pure) '2 '#f '#f)) - (let ((__tmp152365 (cons _%id150997%_ '()))) + (let ((__tmp152471 (cons _%id151103%_ '()))) (declare (not safe)) (##unchecked-structure-set! - __obj152296 - __tmp152365 + __obj152402 + __tmp152471 '3 '#f '#f)) - __obj152296))) + __obj152402))) (declare (not safe)) (##unchecked-structure-set! - _%self151003%_ - __tmp152364 + _%self151109%_ + __tmp152470 '2 '#f '#f))))) @@ -2464,38 +2464,38 @@ (declare (not safe)) (__bind-method!__% gxc#!accessor::t ':init! gxc#!accessor:::init! '#f)) (define gxc#!mutator:::init! - (lambda (_%self149420150855%_ - _%id150857%_ - _%slot150858%_ - _%checked?150859%_) - (let* ((_%self150861%_ _%self149420150855%_) - (_%self150863%_ _%self150861%_)) + (lambda (_%self149526150961%_ + _%id150963%_ + _%slot150964%_ + _%checked?150965%_) + (let* ((_%self150967%_ _%self149526150961%_) + (_%self150969%_ _%self150967%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150863%_ - _%id150857%_ + _%self150969%_ + _%id150963%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150863%_ - _%slot150858%_ + _%self150969%_ + _%slot150964%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150863%_ - _%checked?150859%_ + _%self150969%_ + _%checked?150965%_ '4 '#f '#f)) - (let ((__tmp152366 - (let ((__obj152297 + (let ((__tmp152472 + (let ((__obj152403 (let () (declare (not safe)) (##structure @@ -2508,7 +2508,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152297 + __obj152403 'void::t '1 '#f @@ -2516,24 +2516,24 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152297 + __obj152403 '(mut) '2 '#f '#f)) - (let ((__tmp152367 (cons _%id150857%_ (cons 't::t '())))) + (let ((__tmp152473 (cons _%id150963%_ (cons 't::t '())))) (declare (not safe)) (##unchecked-structure-set! - __obj152297 - __tmp152367 + __obj152403 + __tmp152473 '3 '#f '#f)) - __obj152297))) + __obj152403))) (declare (not safe)) (##unchecked-structure-set! - _%self150863%_ - __tmp152366 + _%self150969%_ + __tmp152472 '2 '#f '#f))))) @@ -2541,111 +2541,111 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t ':init! gxc#!mutator:::init! '#f)) (define gxc#!lambda:::init!__% - (lambda (_%@@keywords150697%_ - _%signature150694150698%_ - _%self149421150700%_ - _%arity150702%_ - _%dispatch150703%_) - (let* ((_%signature150705%_ - (if (eq? _%signature150694150698%_ absent-value) + (lambda (_%@@keywords150803%_ + _%signature150800150804%_ + _%self149527150806%_ + _%arity150808%_ + _%dispatch150809%_) + (let* ((_%signature150811%_ + (if (eq? _%signature150800150804%_ absent-value) '#f - _%signature150694150698%_)) - (_%self150707%_ _%self149421150700%_) - (_%self150709%_ _%self150707%_)) + _%signature150800150804%_)) + (_%self150813%_ _%self149527150806%_) + (_%self150815%_ _%self150813%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150709%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150815%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150709%_ - _%arity150702%_ + _%self150815%_ + _%arity150808%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150709%_ - _%dispatch150703%_ + _%self150815%_ + _%dispatch150809%_ '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150709%_ - _%signature150705%_ + _%self150815%_ + _%signature150811%_ '2 '#f '#f))))) (define gxc#!lambda:::init!__@ - (lambda (_%@@keywords150723%_ . _%args150724%_) + (lambda (_%@@keywords150829%_ . _%args150830%_) (apply gxc#!lambda:::init!__% - _%@@keywords150723%_ + _%@@keywords150829%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150723%_ + _%@@keywords150829%_ 'signature: absent-value)) - _%args150724%_))) + _%args150830%_))) (define gxc#!lambda:::init! - (lambda _%args150695150730%_ + (lambda _%args150801150836%_ (apply keyword-dispatch '#(signature:) gxc#!lambda:::init!__@ - _%args150695150730%_))) + _%args150801150836%_))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t ':init! gxc#!lambda:::init! '#f)) (define gxc#!case-lambda:::init!__% - (lambda (_%@@keywords150536%_ - _%signature150533150537%_ - _%self149422150539%_ - _%clauses150541%_) - (let* ((_%signature150543%_ - (if (eq? _%signature150533150537%_ absent-value) + (lambda (_%@@keywords150642%_ + _%signature150639150643%_ + _%self149528150645%_ + _%clauses150647%_) + (let* ((_%signature150649%_ + (if (eq? _%signature150639150643%_ absent-value) '#f - _%signature150533150537%_)) - (_%self150545%_ _%self149422150539%_) - (_%self150547%_ _%self150545%_)) + _%signature150639150643%_)) + (_%self150651%_ _%self149528150645%_) + (_%self150653%_ _%self150651%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150547%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150653%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150547%_ - _%signature150543%_ + _%self150653%_ + _%signature150649%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150547%_ - _%clauses150541%_ + _%self150653%_ + _%clauses150647%_ '3 '#f '#f))))) (define gxc#!case-lambda:::init!__@ - (lambda (_%@@keywords150561%_ . _%args150562%_) + (lambda (_%@@keywords150667%_ . _%args150668%_) (apply gxc#!case-lambda:::init!__% - _%@@keywords150561%_ + _%@@keywords150667%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords150561%_ + _%@@keywords150667%_ 'signature: absent-value)) - _%args150562%_))) + _%args150668%_))) (define gxc#!case-lambda:::init! - (lambda _%args150534150568%_ + (lambda _%args150640150674%_ (apply keyword-dispatch '#(signature:) gxc#!case-lambda:::init!__@ - _%args150534150568%_))) + _%args150640150674%_))) (let () (declare (not safe)) (__bind-method!__% @@ -2654,25 +2654,25 @@ gxc#!case-lambda:::init! '#f)) (define gxc#!kw-lambda:::init! - (lambda (_%self149423150393%_ _%tab150395%_ _%dispatch150396%_) - (let* ((_%self150398%_ _%self149423150393%_) - (_%self150400%_ _%self150398%_)) + (lambda (_%self149529150499%_ _%tab150501%_ _%dispatch150502%_) + (let* ((_%self150504%_ _%self149529150499%_) + (_%self150506%_ _%self150504%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150400%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150506%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150400%_ - _%tab150395%_ + _%self150506%_ + _%tab150501%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150400%_ - _%dispatch150396%_ + _%self150506%_ + _%dispatch150502%_ '4 '#f '#f))))) @@ -2680,25 +2680,25 @@ (declare (not safe)) (__bind-method!__% gxc#!kw-lambda::t ':init! gxc#!kw-lambda:::init! '#f)) (define gxc#!kw-lambda-primary:::init! - (lambda (_%self149424150254%_ _%keys150256%_ _%main150257%_) - (let* ((_%self150259%_ _%self149424150254%_) - (_%self150261%_ _%self150259%_)) + (lambda (_%self149530150360%_ _%keys150362%_ _%main150363%_) + (let* ((_%self150365%_ _%self149530150360%_) + (_%self150367%_ _%self150365%_)) (let () (declare (not safe)) - (##unchecked-structure-set! _%self150261%_ 'procedure '1 '#f '#f)) + (##unchecked-structure-set! _%self150367%_ 'procedure '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150261%_ - _%keys150256%_ + _%self150367%_ + _%keys150362%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self150261%_ - _%main150257%_ + _%self150367%_ + _%main150363%_ '4 '#f '#f))))) @@ -2726,19 +2726,19 @@ gxc#!primitive-case-lambda:::init! '#f)) (define gxc#!primitive-predicate:::init! - (lambda (_%self149425149872%_ _%id149874%_) - (let* ((_%self149876%_ _%self149425149872%_) - (_%self149878%_ _%self149876%_)) + (lambda (_%self149531149978%_ _%id149980%_) + (let* ((_%self149982%_ _%self149531149978%_) + (_%self149984%_ _%self149982%_)) (let () (declare (not safe)) (##unchecked-structure-set! - _%self149878%_ - _%id149874%_ + _%self149984%_ + _%id149980%_ '1 '#f '#f)) - (let ((__tmp152368 - (let ((__obj152298 + (let ((__tmp152474 + (let ((__obj152404 (let () (declare (not safe)) (##structure @@ -2751,7 +2751,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152298 + __obj152404 'boolean::t '1 '#f @@ -2759,7 +2759,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152298 + __obj152404 '(pure) '2 '#f @@ -2767,16 +2767,16 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152298 + __obj152404 '(t::t) '3 '#f '#f)) - __obj152298))) + __obj152404))) (declare (not safe)) (##unchecked-structure-set! - _%self149878%_ - __tmp152368 + _%self149984%_ + __tmp152474 '2 '#f '#f))))) @@ -2788,158 +2788,158 @@ gxc#!primitive-predicate:::init! '#f)) (define gxc#!class-method-table - (lambda (_%klass149741%_) - (let ((_%$e149743%_ - (##structure-ref _%klass149741%_ '11 gxc#!class::t '#f))) - (if _%$e149743%_ - _%$e149743%_ - (let ((_%tab149747%_ + (lambda (_%klass149847%_) + (let ((_%$e149849%_ + (##structure-ref _%klass149847%_ '11 gxc#!class::t '#f))) + (if _%$e149849%_ + _%$e149849%_ + (let ((_%tab149853%_ (let () (declare (not safe)) (make-hash-table-eq)))) (##structure-set! - _%klass149741%_ - _%tab149747%_ + _%klass149847%_ + _%tab149853%_ '11 gxc#!class::t '#f) - _%tab149747%_))))) + _%tab149853%_))))) (define gxc#!class-lookup-method - (lambda (_%klass149732%_ _%method149733%_) - (let ((_%tab149734149736%_ - (##structure-ref _%klass149732%_ '11 gxc#!class::t '#f))) - (if _%tab149734149736%_ - (let ((_%tab149739%_ _%tab149734149736%_)) + (lambda (_%klass149838%_ _%method149839%_) + (let ((_%tab149840149842%_ + (##structure-ref _%klass149838%_ '11 gxc#!class::t '#f))) + (if _%tab149840149842%_ + (let ((_%tab149845%_ _%tab149840149842%_)) (declare (not safe)) - (hash-get _%tab149739%_ _%method149733%_)) + (hash-get _%tab149845%_ _%method149839%_)) '#f)))) (define gxc#!type-subtype? - (lambda (_%type-a149720%_ _%type-b149721%_) - (if _%type-a149720%_ - (if _%type-b149721%_ - (let ((_%$e149723%_ (eq? _%type-a149720%_ _%type-b149721%_))) - (if _%$e149723%_ - _%$e149723%_ - (let ((_%$e149726%_ + (lambda (_%type-a149826%_ _%type-b149827%_) + (if _%type-a149826%_ + (if _%type-b149827%_ + (let ((_%$e149829%_ (eq? _%type-a149826%_ _%type-b149827%_))) + (if _%$e149829%_ + _%$e149829%_ + (let ((_%$e149832%_ (eq? (##structure-ref - _%type-b149721%_ + _%type-b149827%_ '1 gxc#!type::t '#f) 't))) - (if _%$e149726%_ - _%$e149726%_ - (let ((_%$e149729%_ + (if _%$e149832%_ + _%$e149832%_ + (let ((_%$e149835%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149720%_ + _%type-a149826%_ 'gxc#!procedure::t)) (eq? (##structure-ref - _%type-b149721%_ + _%type-b149827%_ '1 gxc#!type::t '#f) 'procedure) '#f))) - (if _%$e149729%_ - _%$e149729%_ + (if _%$e149835%_ + _%$e149835%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-a149720%_ + _%type-a149826%_ 'gxc#!class::t)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-b149721%_ + _%type-b149827%_ 'gxc#!class::t)) (gxc#!class-subclass? - _%type-a149720%_ - _%type-b149721%_) + _%type-a149826%_ + _%type-b149827%_) '#f) '#f))))))) '#f) '#f))) (define gxc#!class-subclass? - (lambda (_%klass-a149671%_ _%klass-b149672%_) - (let ((_%$e149674%_ - (eq? (##structure-ref _%klass-a149671%_ '1 gxc#!type::t '#f) - (##structure-ref _%klass-b149672%_ '1 gxc#!type::t '#f)))) - (if _%$e149674%_ - _%$e149674%_ - (let ((_%klass-id-b149677%_ - (##structure-ref _%klass-b149672%_ '1 gxc#!type::t '#f)) - (_%precedence-list149678%_ - (##structure-ref _%klass-a149671%_ '3 gxc#!class::t '#f))) - (let _%loop149680%_ ((_%rest149682%_ - _%precedence-list149678%_)) - (let* ((_%rest149683149691%_ _%rest149682%_) - (_%else149685149699%_ (lambda () '#f)) - (_%K149687149708%_ - (lambda (_%rest149702%_ _%klass-name149703%_) - (let ((_%$e149705%_ - (eq? (let ((__tmp152369 + (lambda (_%klass-a149777%_ _%klass-b149778%_) + (let ((_%$e149780%_ + (eq? (##structure-ref _%klass-a149777%_ '1 gxc#!type::t '#f) + (##structure-ref _%klass-b149778%_ '1 gxc#!type::t '#f)))) + (if _%$e149780%_ + _%$e149780%_ + (let ((_%klass-id-b149783%_ + (##structure-ref _%klass-b149778%_ '1 gxc#!type::t '#f)) + (_%precedence-list149784%_ + (##structure-ref _%klass-a149777%_ '3 gxc#!class::t '#f))) + (let _%loop149786%_ ((_%rest149788%_ + _%precedence-list149784%_)) + (let* ((_%rest149789149797%_ _%rest149788%_) + (_%else149791149805%_ (lambda () '#f)) + (_%K149793149814%_ + (lambda (_%rest149808%_ _%klass-name149809%_) + (let ((_%$e149811%_ + (eq? (let ((__tmp152475 (gxc#optimizer-resolve-class (cons 'subclass? - (cons _%klass-a149671%_ - (cons _%klass-b149672%_ + (cons _%klass-a149777%_ + (cons _%klass-b149778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%klass-name149703%_))) + _%klass-name149809%_))) (declare (not safe)) (##unchecked-structure-ref - __tmp152369 + __tmp152475 '1 '#f '#f)) - _%klass-id-b149677%_))) - (if _%$e149705%_ - _%$e149705%_ - (_%loop149680%_ _%rest149702%_)))))) - (if (pair? _%rest149683149691%_) - (let ((_%hd149688149711%_ + _%klass-id-b149783%_))) + (if _%$e149811%_ + _%$e149811%_ + (_%loop149786%_ _%rest149808%_)))))) + (if (pair? _%rest149789149797%_) + (let ((_%hd149794149817%_ (let () (declare (not safe)) - (##car _%rest149683149691%_))) - (_%tl149689149713%_ + (##car _%rest149789149797%_))) + (_%tl149795149819%_ (let () (declare (not safe)) - (##cdr _%rest149683149691%_)))) - (let* ((_%klass-name149716%_ _%hd149688149711%_) - (_%rest149718%_ _%tl149689149713%_)) - (_%K149687149708%_ - _%rest149718%_ - _%klass-name149716%_))) - (_%else149685149699%_))))))))) + (##cdr _%rest149789149797%_)))) + (let* ((_%klass-name149822%_ _%hd149794149817%_) + (_%rest149824%_ _%tl149795149819%_)) + (_%K149793149814%_ + _%rest149824%_ + _%klass-name149822%_))) + (_%else149791149805%_))))))))) (define gxc#!interface-instance? - (lambda (_%type149669%_) + (lambda (_%type149775%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149669%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149775%_ 'gxc#!class::t)) (memq 'interface-instance::t (let () (declare (not safe)) - (##unchecked-structure-ref _%type149669%_ '3 '#f '#f))) + (##unchecked-structure-ref _%type149775%_ '3 '#f '#f))) '#f))) (define gxc#!procedure-origin - (lambda (_%proc149658%_) + (lambda (_%proc149764%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%proc149658%_ 'gxc#!procedure::t)) - (let ((_%proc149661%_ _%proc149658%_)) + (##structure-instance-of? _%proc149764%_ 'gxc#!procedure::t)) + (let ((_%proc149767%_ _%proc149764%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%proc149661%_ '2 '#f '#f)) - (let ((__tmp152370 + (##unchecked-structure-ref _%proc149767%_ '2 '#f '#f)) + (let ((__tmp152476 (let () (declare (not safe)) (##unchecked-structure-ref - _%proc149661%_ + _%proc149767%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp152370 '5 '#f '#f)) + (##unchecked-structure-ref __tmp152476 '5 '#f '#f)) '#f)) (begin (raise-contract-violation-error @@ -2949,24 +2949,24 @@ 'contract: '!procedure? 'value: - _%proc149658%_) + _%proc149764%_) '#!void)))) (define gxc#optimizer-declare-type!__% - (lambda (_%sym149640%_ _%type149641%_ _%local?149642%_) + (lambda (_%sym149746%_ _%type149747%_ _%local?149748%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149641%_ 'gxc#!type::t)) + (##structure-instance-of? _%type149747%_ 'gxc#!type::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !type" - _%sym149640%_ - _%type149641%_))) + _%sym149746%_ + _%type149747%_))) (let () (declare (not safe)) - (gxc#verbose '"declare-type " _%sym149640%_ '" " _%type149641%_)) - (let ((_%table149644%_ - (if _%local?149642%_ + (gxc#verbose '"declare-type " _%sym149746%_ '" " _%type149747%_)) + (let ((_%table149750%_ + (if _%local?149748%_ (let () (declare (not safe)) (gxc#current-compile-local-type)) @@ -2978,37 +2978,37 @@ gxc#optimizer-info::t '#f)))) (declare (not safe)) - (hash-put! _%table149644%_ _%sym149640%_ _%type149641%_)))) + (hash-put! _%table149750%_ _%sym149746%_ _%type149747%_)))) (define gxc#optimizer-declare-type!__0 - (lambda (_%sym149649%_ _%type149650%_) - (let ((_%local?149652%_ '#f)) + (lambda (_%sym149755%_ _%type149756%_) + (let ((_%local?149758%_ '#f)) (gxc#optimizer-declare-type!__% - _%sym149649%_ - _%type149650%_ - _%local?149652%_)))) + _%sym149755%_ + _%type149756%_ + _%local?149758%_)))) (define gxc#optimizer-declare-type! - (lambda _g152372_ - (let ((_g152371_ (let () (declare (not safe)) (##length _g152372_)))) - (cond ((let () (declare (not safe)) (##fx= _g152371_ 2)) - (apply gxc#optimizer-declare-type!__0 _g152372_)) - ((let () (declare (not safe)) (##fx= _g152371_ 3)) - (apply gxc#optimizer-declare-type!__% _g152372_)) + (lambda _g152478_ + (let ((_g152477_ (let () (declare (not safe)) (##length _g152478_)))) + (cond ((let () (declare (not safe)) (##fx= _g152477_ 2)) + (apply gxc#optimizer-declare-type!__0 _g152478_)) + ((let () (declare (not safe)) (##fx= _g152477_ 3)) + (apply gxc#optimizer-declare-type!__% _g152478_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-type! - _g152372_)))))) + _g152478_)))))) (define gxc#optimizer-declare-class! - (lambda (_%sym149634%_ _%type149635%_) + (lambda (_%sym149740%_ _%type149741%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149635%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149741%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149634%_ - _%type149635%_))) - (let ((_%table149637%_ + _%sym149740%_ + _%type149741%_))) + (let ((_%table149743%_ (##structure-ref (let () (declare (not safe)) @@ -3016,28 +3016,28 @@ '2 gxc#optimizer-info::t '#f))) - (let ((__tmp152373 - (let () (declare (not safe)) (struct->list _%type149635%_)))) + (let ((__tmp152479 + (let () (declare (not safe)) (struct->list _%type149741%_)))) (declare (not safe)) - (gxc#verbose '"declare-class " _%sym149634%_ '" " __tmp152373)) + (gxc#verbose '"declare-class " _%sym149740%_ '" " __tmp152479)) (let () (declare (not safe)) - (hash-put! _%table149637%_ _%sym149634%_ _%type149635%_)) + (hash-put! _%table149743%_ _%sym149740%_ _%type149741%_)) (let () (declare (not safe)) - (hash-put! _%table149637%_ _%type149635%_ _%sym149634%_))))) + (hash-put! _%table149743%_ _%type149741%_ _%sym149740%_))))) (define gxc#optimizer-declare-builtin-class! - (lambda (_%sym149629%_ _%type149630%_) + (lambda (_%sym149735%_ _%type149736%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149630%_ 'gxc#!class::t)) + (##structure-instance-of? _%type149736%_ 'gxc#!class::t)) '#!void (let () (declare (not safe)) (error '"bad declaration: expected !class" - _%sym149629%_ - _%type149630%_))) - (let ((_%table149632%_ + _%sym149735%_ + _%type149736%_))) + (let ((_%table149738%_ (##structure-ref (let () (declare (not safe)) @@ -3047,38 +3047,38 @@ '#f))) (if (let () (declare (not safe)) - (hash-get _%table149632%_ _%sym149629%_)) + (hash-get _%table149738%_ _%sym149735%_)) '#!void (begin - (let ((__tmp152374 + (let ((__tmp152480 (let () (declare (not safe)) - (struct->list _%type149630%_)))) + (struct->list _%type149736%_)))) (declare (not safe)) (gxc#verbose '"declare-builtin-class " - _%sym149629%_ + _%sym149735%_ '" " - __tmp152374)) + __tmp152480)) (let () (declare (not safe)) - (hash-put! _%table149632%_ _%sym149629%_ _%type149630%_)) + (hash-put! _%table149738%_ _%sym149735%_ _%type149736%_)) (let () (declare (not safe)) (hash-put! - _%table149632%_ - _%type149630%_ - _%sym149629%_))))))) + _%table149738%_ + _%type149736%_ + _%sym149735%_))))))) (define gxc#optimizer-clear-type! - (lambda (_%sym149627%_) + (lambda (_%sym149733%_) (let () (declare (not safe)) - (gxc#verbose '"clear-type " _%sym149627%_)) - (let ((__tmp152375 + (gxc#verbose '"clear-type " _%sym149733%_)) + (let ((__tmp152481 (let () (declare (not safe)) (gxc#current-compile-local-type)))) (declare (not safe)) - (hash-remove! __tmp152375 _%sym149627%_)) - (let ((__tmp152376 + (hash-remove! __tmp152481 _%sym149733%_)) + (let ((__tmp152482 (##structure-ref (let () (declare (not safe)) @@ -3087,13 +3087,13 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-remove! __tmp152376 _%sym149627%_)))) + (hash-remove! __tmp152482 _%sym149733%_)))) (define gxc#optimizer-declare-method!__% - (lambda (_%type-t149595%_ - _%method149596%_ - _%sym149597%_ - _%rebind?149598%_) - (let ((__tmp152377 + (lambda (_%type-t149701%_ + _%method149702%_ + _%sym149703%_ + _%rebind?149704%_) + (let ((__tmp152483 (##structure-ref (let () (declare (not safe)) @@ -3102,109 +3102,109 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp152377 _%sym149597%_ '#t)) - (let ((_%klass149600%_ (gxc#optimizer-lookup-class _%type-t149595%_))) - (if _%klass149600%_ - (let* ((_%vtab149602%_ (gxc#!class-method-table _%klass149600%_)) - (_%$e149604%_ + (hash-put! __tmp152483 _%sym149703%_ '#t)) + (let ((_%klass149706%_ (gxc#optimizer-lookup-class _%type-t149701%_))) + (if _%klass149706%_ + (let* ((_%vtab149708%_ (gxc#!class-method-table _%klass149706%_)) + (_%$e149710%_ (let () (declare (not safe)) - (hash-get _%vtab149602%_ _%method149596%_)))) - (if _%$e149604%_ - ((lambda (_%existing149607%_) - (if _%rebind?149598%_ + (hash-get _%vtab149708%_ _%method149702%_)))) + (if _%$e149710%_ + ((lambda (_%existing149713%_) + (if _%rebind?149704%_ (let () (let () (declare (not safe)) (gxc#verbose '"declare-method: rebind existing method" - _%type-t149595%_ + _%type-t149701%_ '" " - _%method149596%_)) + _%method149702%_)) (let () (declare (not safe)) (hash-put! - _%vtab149602%_ - _%method149596%_ - _%sym149597%_))) - (if (eq? _%existing149607%_ _%sym149597%_) + _%vtab149708%_ + _%method149702%_ + _%sym149703%_))) + (if (eq? _%existing149713%_ _%sym149703%_) '#!void - (let ((__tmp152378 + (let ((__tmp152484 (cons 'bind-method! - (cons _%type-t149595%_ - (cons _%method149596%_ - (cons _%sym149597%_ + (cons _%type-t149701%_ + (cons _%method149702%_ + (cons _%sym149703%_ '())))))) (declare (not safe)) (gxc#raise-compile-error '"declare-method: duplicate method declaration" - __tmp152378 - _%method149596%_))))) - _%$e149604%_) + __tmp152484 + _%method149702%_))))) + _%$e149710%_) (let () (let () (declare (not safe)) (gxc#verbose '"declare-method " - _%type-t149595%_ + _%type-t149701%_ '" " - _%method149596%_ + _%method149702%_ '" => " - _%sym149597%_)) + _%sym149703%_)) (let () (declare (not safe)) (hash-put! - _%vtab149602%_ - _%method149596%_ - _%sym149597%_))))) + _%vtab149708%_ + _%method149702%_ + _%sym149703%_))))) (let () (declare (not safe)) (gxc#verbose '"declare-method: unknown class" - _%type-t149595%_)))))) + _%type-t149701%_)))))) (define gxc#optimizer-declare-method!__0 - (lambda (_%type-t149616%_ _%method149617%_ _%sym149618%_) - (let ((_%rebind?149620%_ '#f)) + (lambda (_%type-t149722%_ _%method149723%_ _%sym149724%_) + (let ((_%rebind?149726%_ '#f)) (gxc#optimizer-declare-method!__% - _%type-t149616%_ - _%method149617%_ - _%sym149618%_ - _%rebind?149620%_)))) + _%type-t149722%_ + _%method149723%_ + _%sym149724%_ + _%rebind?149726%_)))) (define gxc#optimizer-declare-method! - (lambda _g152380_ - (let ((_g152379_ (let () (declare (not safe)) (##length _g152380_)))) - (cond ((let () (declare (not safe)) (##fx= _g152379_ 3)) - (apply gxc#optimizer-declare-method!__0 _g152380_)) - ((let () (declare (not safe)) (##fx= _g152379_ 4)) - (apply gxc#optimizer-declare-method!__% _g152380_)) + (lambda _g152486_ + (let ((_g152485_ (let () (declare (not safe)) (##length _g152486_)))) + (cond ((let () (declare (not safe)) (##fx= _g152485_ 3)) + (apply gxc#optimizer-declare-method!__0 _g152486_)) + ((let () (declare (not safe)) (##fx= _g152485_ 4)) + (apply gxc#optimizer-declare-method!__% _g152486_)) (else (##raise-wrong-number-of-arguments-exception gxc#optimizer-declare-method! - _g152380_)))))) + _g152486_)))))) (define gxc#optimizer-lookup-type - (lambda (_%sym149580%_) - (let ((_%$e149582%_ - (let ((__tmp152381 + (lambda (_%sym149686%_) + (let ((_%$e149688%_ + (let ((__tmp152487 (let () (declare (not safe)) (gxc#current-compile-path-type)))) (declare (not safe)) - (agetq__0 _%sym149580%_ __tmp152381)))) - (if _%$e149582%_ - _%$e149582%_ - (let ((_%$e149591%_ - (let ((_%ht149584149586%_ + (agetq__0 _%sym149686%_ __tmp152487)))) + (if _%$e149688%_ + _%$e149688%_ + (let ((_%$e149697%_ + (let ((_%ht149690149692%_ (let () (declare (not safe)) (gxc#current-compile-local-type)))) - (if _%ht149584149586%_ - (let ((_%ht149589%_ _%ht149584149586%_)) + (if _%ht149690149692%_ + (let ((_%ht149695%_ _%ht149690149692%_)) (declare (not safe)) - (hash-get _%ht149589%_ _%sym149580%_)) + (hash-get _%ht149695%_ _%sym149686%_)) '#f)))) - (if _%$e149591%_ - _%$e149591%_ - (let ((__tmp152382 + (if _%$e149697%_ + _%$e149697%_ + (let ((__tmp152488 (##structure-ref (let () (declare (not safe)) @@ -3213,24 +3213,24 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152382 _%sym149580%_)))))))) + (hash-get __tmp152488 _%sym149686%_)))))))) (define gxc#optimizer-resolve-type - (lambda (_%sym149572%_) - (let ((_%type149573149575%_ (gxc#optimizer-lookup-type _%sym149572%_))) - (if _%type149573149575%_ - (let ((_%type149578%_ _%type149573149575%_)) + (lambda (_%sym149678%_) + (let ((_%type149679149681%_ (gxc#optimizer-lookup-type _%sym149678%_))) + (if _%type149679149681%_ + (let ((_%type149684%_ _%type149679149681%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%type149578%_ 'gxc#!alias::t)) + (##structure-instance-of? _%type149684%_ 'gxc#!alias::t)) (gxc#optimizer-resolve-type (let () (declare (not safe)) - (##unchecked-structure-ref _%type149578%_ '1 '#f '#f))) - _%type149578%_)) + (##unchecked-structure-ref _%type149684%_ '1 '#f '#f))) + _%type149684%_)) '#f)))) (define gxc#optimizer-lookup-class - (lambda (_%sym149568%_) - (let ((_%table149570%_ + (lambda (_%sym149674%_) + (let ((_%table149676%_ (##structure-ref (let () (declare (not safe)) @@ -3239,34 +3239,34 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get _%table149570%_ _%sym149568%_)))) + (hash-get _%table149676%_ _%sym149674%_)))) (define gxc#optimizer-resolve-class - (lambda (_%where149553%_ _%sym149554%_) - (let ((_%$e149557%_ (gxc#optimizer-lookup-class _%sym149554%_))) - (if _%$e149557%_ - ((lambda (_%g149559149561%_) - (let ((_%val149564%_ _%g149559149561%_)) + (lambda (_%where149659%_ _%sym149660%_) + (let ((_%$e149663%_ (gxc#optimizer-lookup-class _%sym149660%_))) + (if _%$e149663%_ + ((lambda (_%g149665149667%_) + (let ((_%val149670%_ _%g149665149667%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%val149564%_ + _%val149670%_ 'gxc#!class::t)) - _%val149564%_ + _%val149670%_ (let () (declare (not safe)) - (error '"bad cast" gxc#!class::t _%val149564%_))))) - _%$e149557%_) + (error '"bad cast" gxc#!class::t _%val149670%_))))) + _%$e149663%_) (let () (let () (declare (not safe)) (gxc#raise-compile-error '"unknown class" - _%where149553%_ - _%sym149554%_)) + _%where149659%_ + _%sym149660%_)) '#!void))))) (define gxc#optimizer-lookup-class-name - (lambda (_%klass149551%_) - (let ((__tmp152383 + (lambda (_%klass149657%_) + (let ((__tmp152489 (##structure-ref (let () (declare (not safe)) @@ -3275,15 +3275,15 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152383 _%klass149551%_)))) + (hash-get __tmp152489 _%klass149657%_)))) (define gxc#optimizer-lookup-method - (lambda (_%type-t149548%_ _%method149549%_) + (lambda (_%type-t149654%_ _%method149655%_) (gxc#!class-lookup-method - (gxc#optimizer-resolve-class 'lookup-method _%type-t149548%_) - _%method149549%_))) + (gxc#optimizer-resolve-class 'lookup-method _%type-t149654%_) + _%method149655%_))) (define gxc#optimizer-top-level-method? - (lambda (_%sym149546%_) - (let ((__tmp152384 + (lambda (_%sym149652%_) + (let ((__tmp152490 (##structure-ref (let () (declare (not safe)) @@ -3292,59 +3292,59 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp152384 _%sym149546%_)))) + (hash-get __tmp152490 _%sym149652%_)))) (define gxc#optimizer-current-types (lambda () - (letrec ((_%type-e149428%_ - (lambda (_%t149529%_) - (if (symbol? _%t149529%_) - (_%type-e149428%_ - (gxc#optimizer-lookup-type _%t149529%_)) + (letrec ((_%type-e149534%_ + (lambda (_%t149635%_) + (if (symbol? _%t149635%_) + (_%type-e149534%_ + (gxc#optimizer-lookup-type _%t149635%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149529%_ + _%t149635%_ 'gxc#!lambda::t)) - (_%__lambda-type149430%_ _%t149529%_) + (_%__lambda-type149536%_ _%t149635%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149529%_ + _%t149635%_ 'gxc#!kw-lambda::t)) - (_%__kw-lambda-type149432%_ _%t149529%_) + (_%__kw-lambda-type149538%_ _%t149635%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149529%_ + _%t149635%_ 'gxc#!kw-lambda-primary::t)) - (_%__kw-lambda-primary-type149434%_ - _%t149529%_) + (_%__kw-lambda-primary-type149540%_ + _%t149635%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%t149529%_ + _%t149635%_ 'gxc#!procedure::t)) (cons 'procedure - (let ((_%t149536%_ _%t149529%_)) + (let ((_%t149642%_ _%t149635%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149536%_ + _%t149642%_ '2 '#f '#f)) - (let ((__tmp152385 + (let ((__tmp152491 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149536%_ + _%t149642%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152385 + __tmp152491 '1 '#f '#f)) @@ -3352,31 +3352,31 @@ (if (let () (declare (not safe)) (##structure-instance-of? - _%t149529%_ + _%t149635%_ 'gxc#!type::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%t149529%_ + _%t149635%_ '1 '#f '#f)) '#f)))))))) - (_%lambda-type149429%_ - (lambda (_%t149517%_) - (let ((_%t149520%_ _%t149517%_)) - (_%__lambda-type149430%_ _%t149520%_)))) - (_%__lambda-type149430%_ - (lambda (_%t149505%_) - (let ((_%t149508%_ _%t149505%_)) + (_%lambda-type149535%_ + (lambda (_%t149623%_) + (let ((_%t149626%_ _%t149623%_)) + (_%__lambda-type149536%_ _%t149626%_)))) + (_%__lambda-type149536%_ + (lambda (_%t149611%_) + (let ((_%t149614%_ _%t149611%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%t149508%_ '4 '#f '#f)) - (_%type-e149428%_ + (##unchecked-structure-ref _%t149614%_ '4 '#f '#f)) + (_%type-e149534%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149508%_ + _%t149614%_ '4 '#f '#f))) @@ -3384,56 +3384,56 @@ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%t149508%_ + _%t149614%_ '2 '#f '#f)) - (let ((__tmp152386 + (let ((__tmp152492 (let () (declare (not safe)) (##unchecked-structure-ref - _%t149508%_ + _%t149614%_ '2 '#f '#f)))) (declare (not safe)) (##unchecked-structure-ref - __tmp152386 + __tmp152492 '1 '#f '#f)) '#f)))))) - (_%kw-lambda-type149431%_ - (lambda (_%t149493%_) - (let ((_%t149496%_ _%t149493%_)) - (_%__kw-lambda-type149432%_ _%t149496%_)))) - (_%__kw-lambda-type149432%_ - (lambda (_%t149481%_) - (let ((_%t149484%_ _%t149481%_)) - (_%type-e149428%_ + (_%kw-lambda-type149537%_ + (lambda (_%t149599%_) + (let ((_%t149602%_ _%t149599%_)) + (_%__kw-lambda-type149538%_ _%t149602%_)))) + (_%__kw-lambda-type149538%_ + (lambda (_%t149587%_) + (let ((_%t149590%_ _%t149587%_)) + (_%type-e149534%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149484%_ + _%t149590%_ '4 '#f '#f)))))) - (_%kw-lambda-primary-type149433%_ - (lambda (_%t149469%_) - (let ((_%t149472%_ _%t149469%_)) - (_%__kw-lambda-primary-type149434%_ _%t149472%_)))) - (_%__kw-lambda-primary-type149434%_ - (lambda (_%t149455%_) - (let ((_%t149458%_ _%t149455%_)) - (_%type-e149428%_ + (_%kw-lambda-primary-type149539%_ + (lambda (_%t149575%_) + (let ((_%t149578%_ _%t149575%_)) + (_%__kw-lambda-primary-type149540%_ _%t149578%_)))) + (_%__kw-lambda-primary-type149540%_ + (lambda (_%t149561%_) + (let ((_%t149564%_ _%t149561%_)) + (_%type-e149534%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%t149458%_ + _%t149564%_ '4 '#f '#f))))))) - (let* ((_%ht1149436%_ + (let* ((_%ht1149542%_ (##structure-ref (let () (declare (not safe)) @@ -3441,33 +3441,33 @@ '1 gxc#optimizer-info::t '#f)) - (_%ht2149438%_ + (_%ht2149544%_ (let () (declare (not safe)) (gxc#current-compile-local-type))) - (_%result149440%_ - (if _%ht1149436%_ - (let () (declare (not safe)) (hash->list _%ht1149436%_)) + (_%result149546%_ + (if _%ht1149542%_ + (let () (declare (not safe)) (hash->list _%ht1149542%_)) '())) - (_%result149442%_ - (if _%ht2149438%_ - (let ((__tmp152387 + (_%result149548%_ + (if _%ht2149544%_ + (let ((__tmp152493 (let () (declare (not safe)) - (hash->list _%ht2149438%_)))) + (hash->list _%ht2149544%_)))) (declare (not safe)) - (__foldl1 cons _%result149440%_ __tmp152387)) - _%result149440%_))) + (__foldl1 cons _%result149546%_ __tmp152493)) + _%result149546%_))) (for-each - (lambda (_%p149445%_) - (let* ((_%t149447%_ (cdr _%p149445%_)) - (_%tr149449%_ (_%type-e149428%_ _%t149447%_))) - (set-cdr! _%p149445%_ _%tr149449%_))) - _%result149442%_) + (lambda (_%p149551%_) + (let* ((_%t149553%_ (cdr _%p149551%_)) + (_%tr149555%_ (_%type-e149534%_ _%t149553%_))) + (set-cdr! _%p149551%_ _%tr149555%_))) + _%result149548%_) (list-sort - (lambda (_%a149452%_ _%b149453%_) - (let ((__tmp152389 (symbol->string (car _%a149452%_))) - (__tmp152388 (symbol->string (car _%b149453%_)))) + (lambda (_%a149558%_ _%b149559%_) + (let ((__tmp152495 (symbol->string (car _%a149558%_))) + (__tmp152494 (symbol->string (car _%b149559%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152280 __tmp152539 '15 '#f '#f)) - (let ((__tmp152551 - (cons (cons 'super |gxc[1]#_g152552_|) - (cons (cons 'precedence-list |gxc[1]#_g152553_|) - (cons (cons 'slots |gxc[1]#_g152554_|) - (cons (cons 'fields |gxc[1]#_g152555_|) + (##unchecked-structure-set! __obj152386 __tmp152645 '15 '#f '#f)) + (let ((__tmp152657 + (cons (cons 'super |gxc[1]#_g152658_|) + (cons (cons 'precedence-list |gxc[1]#_g152659_|) + (cons (cons 'slots |gxc[1]#_g152660_|) + (cons (cons 'fields |gxc[1]#_g152661_|) (cons (cons 'constructor - |gxc[1]#_g152556_|) + |gxc[1]#_g152662_|) (cons (cons 'struct? - |gxc[1]#_g152557_|) + |gxc[1]#_g152663_|) (cons (cons 'final? - |gxc[1]#_g152558_|) + |gxc[1]#_g152664_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152559_|) - (cons (cons 'metaclass |gxc[1]#_g152560_|) - (cons (cons 'methods |gxc[1]#_g152561_|) - (cons (cons 'id |gxc[1]#_g152562_|) + |gxc[1]#_g152665_|) + (cons (cons 'metaclass |gxc[1]#_g152666_|) + (cons (cons 'methods |gxc[1]#_g152667_|) + (cons (cons 'id |gxc[1]#_g152668_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152280 __tmp152551 '16 '#f '#f)) - (let ((__tmp152563 - (cons (cons 'super |gxc[1]#_g152564_|) - (cons (cons 'precedence-list |gxc[1]#_g152565_|) - (cons (cons 'slots |gxc[1]#_g152566_|) - (cons (cons 'fields |gxc[1]#_g152567_|) + (##unchecked-structure-set! __obj152386 __tmp152657 '16 '#f '#f)) + (let ((__tmp152669 + (cons (cons 'super |gxc[1]#_g152670_|) + (cons (cons 'precedence-list |gxc[1]#_g152671_|) + (cons (cons 'slots |gxc[1]#_g152672_|) + (cons (cons 'fields |gxc[1]#_g152673_|) (cons (cons 'constructor - |gxc[1]#_g152568_|) + |gxc[1]#_g152674_|) (cons (cons 'struct? - |gxc[1]#_g152569_|) + |gxc[1]#_g152675_|) (cons (cons 'final? - |gxc[1]#_g152570_|) + |gxc[1]#_g152676_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152571_|) - (cons (cons 'metaclass |gxc[1]#_g152572_|) - (cons (cons 'methods |gxc[1]#_g152573_|) - (cons (cons 'id |gxc[1]#_g152574_|) + |gxc[1]#_g152677_|) + (cons (cons 'metaclass |gxc[1]#_g152678_|) + (cons (cons 'methods |gxc[1]#_g152679_|) + (cons (cons 'id |gxc[1]#_g152680_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152280 __tmp152563 '17 '#f '#f)) - (let ((__tmp152575 - (cons (cons 'super |gxc[1]#_g152576_|) - (cons (cons 'precedence-list |gxc[1]#_g152577_|) - (cons (cons 'slots |gxc[1]#_g152578_|) - (cons (cons 'fields |gxc[1]#_g152579_|) + (##unchecked-structure-set! __obj152386 __tmp152669 '17 '#f '#f)) + (let ((__tmp152681 + (cons (cons 'super |gxc[1]#_g152682_|) + (cons (cons 'precedence-list |gxc[1]#_g152683_|) + (cons (cons 'slots |gxc[1]#_g152684_|) + (cons (cons 'fields |gxc[1]#_g152685_|) (cons (cons 'constructor - |gxc[1]#_g152580_|) + |gxc[1]#_g152686_|) (cons (cons 'struct? - |gxc[1]#_g152581_|) + |gxc[1]#_g152687_|) (cons (cons 'final? - |gxc[1]#_g152582_|) + |gxc[1]#_g152688_|) (cons (cons 'system? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gxc[1]#_g152583_|) - (cons (cons 'metaclass |gxc[1]#_g152584_|) - (cons (cons 'methods |gxc[1]#_g152585_|) - (cons (cons 'id |gxc[1]#_g152586_|) + |gxc[1]#_g152689_|) + (cons (cons 'metaclass |gxc[1]#_g152690_|) + (cons (cons 'methods |gxc[1]#_g152691_|) + (cons (cons 'id |gxc[1]#_g152692_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj152280 __tmp152575 '18 '#f '#f)) + (##unchecked-structure-set! __obj152386 __tmp152681 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152280 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152386 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152280 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152386 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152280 '() '20 '#f '#f)) - __obj152280)) + (##unchecked-structure-set! __obj152386 '() '20 '#f '#f)) + __obj152386)) (define |gxc[:0:]#!predicate| - (let ((__obj152281 + (let ((__obj152387 (let () (declare (not safe)) (##structure @@ -3325,76 +3325,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152281 + __obj152387 'gxc#!predicate::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '!predicate '2 '#f '#f)) + (##unchecked-structure-set! __obj152387 '!predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152387 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '(id signature) '6 '#f '#f)) - (let ((__tmp152587 (cons |gxc[1]#_g152588_| '()))) + (##unchecked-structure-set! __obj152387 '(id signature) '6 '#f '#f)) + (let ((__tmp152693 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152587 '3 '#f '#f)) + (##unchecked-structure-set! __obj152387 __tmp152693 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152387 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152387 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152387 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 ':init! '11 '#f '#f)) - (let ((__tmp152589 |gxc[1]#_g152590_|)) + (##unchecked-structure-set! __obj152387 ':init! '11 '#f '#f)) + (let ((__tmp152695 |gxc[1]#_g152696_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152589 '12 '#f '#f)) - (let ((__tmp152591 |gxc[1]#_g152592_|)) + (##unchecked-structure-set! __obj152387 __tmp152695 '12 '#f '#f)) + (let ((__tmp152697 |gxc[1]#_g152698_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152591 '13 '#f '#f)) - (let ((__tmp152593 |gxc[1]#_g152594_|)) + (##unchecked-structure-set! __obj152387 __tmp152697 '13 '#f '#f)) + (let ((__tmp152699 |gxc[1]#_g152700_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152593 '14 '#f '#f)) - (let ((__tmp152595 - (cons (cons 'signature |gxc[1]#_g152596_|) - (cons (cons 'id |gxc[1]#_g152597_|) '())))) + (##unchecked-structure-set! __obj152387 __tmp152699 '14 '#f '#f)) + (let ((__tmp152701 + (cons (cons 'signature |gxc[1]#_g152702_|) + (cons (cons 'id |gxc[1]#_g152703_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152595 '15 '#f '#f)) - (let ((__tmp152598 - (cons (cons 'signature |gxc[1]#_g152599_|) - (cons (cons 'id |gxc[1]#_g152600_|) '())))) + (##unchecked-structure-set! __obj152387 __tmp152701 '15 '#f '#f)) + (let ((__tmp152704 + (cons (cons 'signature |gxc[1]#_g152705_|) + (cons (cons 'id |gxc[1]#_g152706_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152598 '16 '#f '#f)) - (let ((__tmp152601 - (cons (cons 'signature |gxc[1]#_g152602_|) - (cons (cons 'id |gxc[1]#_g152603_|) '())))) + (##unchecked-structure-set! __obj152387 __tmp152704 '16 '#f '#f)) + (let ((__tmp152707 + (cons (cons 'signature |gxc[1]#_g152708_|) + (cons (cons 'id |gxc[1]#_g152709_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152601 '17 '#f '#f)) - (let ((__tmp152604 - (cons (cons 'signature |gxc[1]#_g152605_|) - (cons (cons 'id |gxc[1]#_g152606_|) '())))) + (##unchecked-structure-set! __obj152387 __tmp152707 '17 '#f '#f)) + (let ((__tmp152710 + (cons (cons 'signature |gxc[1]#_g152711_|) + (cons (cons 'id |gxc[1]#_g152712_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152604 '18 '#f '#f)) - (let ((__tmp152607 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152387 __tmp152710 '18 '#f '#f)) + (let ((__tmp152713 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152281 __tmp152607 '19 '#f '#f)) + (##unchecked-structure-set! __obj152387 __tmp152713 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152387 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152281 '() '20 '#f '#f)) - __obj152281)) + (##unchecked-structure-set! __obj152387 '() '20 '#f '#f)) + __obj152387)) (define |gxc[:0:]#!constructor| - (let ((__obj152282 + (let ((__obj152388 (let () (declare (not safe)) (##structure @@ -3423,76 +3423,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152282 + __obj152388 'gxc#!constructor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '!constructor '2 '#f '#f)) + (##unchecked-structure-set! __obj152388 '!constructor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152388 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '(id signature) '6 '#f '#f)) - (let ((__tmp152608 (cons |gxc[1]#_g152588_| '()))) + (##unchecked-structure-set! __obj152388 '(id signature) '6 '#f '#f)) + (let ((__tmp152714 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152608 '3 '#f '#f)) + (##unchecked-structure-set! __obj152388 __tmp152714 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152388 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152388 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152388 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 ':init! '11 '#f '#f)) - (let ((__tmp152609 |gxc[1]#_g152610_|)) + (##unchecked-structure-set! __obj152388 ':init! '11 '#f '#f)) + (let ((__tmp152715 |gxc[1]#_g152716_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152609 '12 '#f '#f)) - (let ((__tmp152611 |gxc[1]#_g152612_|)) + (##unchecked-structure-set! __obj152388 __tmp152715 '12 '#f '#f)) + (let ((__tmp152717 |gxc[1]#_g152718_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152611 '13 '#f '#f)) - (let ((__tmp152613 |gxc[1]#_g152614_|)) + (##unchecked-structure-set! __obj152388 __tmp152717 '13 '#f '#f)) + (let ((__tmp152719 |gxc[1]#_g152720_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152613 '14 '#f '#f)) - (let ((__tmp152615 - (cons (cons 'signature |gxc[1]#_g152616_|) - (cons (cons 'id |gxc[1]#_g152617_|) '())))) + (##unchecked-structure-set! __obj152388 __tmp152719 '14 '#f '#f)) + (let ((__tmp152721 + (cons (cons 'signature |gxc[1]#_g152722_|) + (cons (cons 'id |gxc[1]#_g152723_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152615 '15 '#f '#f)) - (let ((__tmp152618 - (cons (cons 'signature |gxc[1]#_g152619_|) - (cons (cons 'id |gxc[1]#_g152620_|) '())))) + (##unchecked-structure-set! __obj152388 __tmp152721 '15 '#f '#f)) + (let ((__tmp152724 + (cons (cons 'signature |gxc[1]#_g152725_|) + (cons (cons 'id |gxc[1]#_g152726_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152618 '16 '#f '#f)) - (let ((__tmp152621 - (cons (cons 'signature |gxc[1]#_g152622_|) - (cons (cons 'id |gxc[1]#_g152623_|) '())))) + (##unchecked-structure-set! __obj152388 __tmp152724 '16 '#f '#f)) + (let ((__tmp152727 + (cons (cons 'signature |gxc[1]#_g152728_|) + (cons (cons 'id |gxc[1]#_g152729_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152621 '17 '#f '#f)) - (let ((__tmp152624 - (cons (cons 'signature |gxc[1]#_g152625_|) - (cons (cons 'id |gxc[1]#_g152626_|) '())))) + (##unchecked-structure-set! __obj152388 __tmp152727 '17 '#f '#f)) + (let ((__tmp152730 + (cons (cons 'signature |gxc[1]#_g152731_|) + (cons (cons 'id |gxc[1]#_g152732_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152624 '18 '#f '#f)) - (let ((__tmp152627 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152388 __tmp152730 '18 '#f '#f)) + (let ((__tmp152733 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152282 __tmp152627 '19 '#f '#f)) + (##unchecked-structure-set! __obj152388 __tmp152733 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152388 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152282 '() '20 '#f '#f)) - __obj152282)) + (##unchecked-structure-set! __obj152388 '() '20 '#f '#f)) + __obj152388)) (define |gxc[:0:]#!accessor| - (let ((__obj152283 + (let ((__obj152389 (let () (declare (not safe)) (##structure @@ -3521,89 +3521,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152283 + __obj152389 'gxc#!accessor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '!accessor '2 '#f '#f)) + (##unchecked-structure-set! __obj152389 '!accessor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152389 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152283 + __obj152389 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152628 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152734 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152628 '3 '#f '#f)) + (##unchecked-structure-set! __obj152389 __tmp152734 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152389 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152389 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152389 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 ':init! '11 '#f '#f)) - (let ((__tmp152629 |gxc[1]#_g152630_|)) + (##unchecked-structure-set! __obj152389 ':init! '11 '#f '#f)) + (let ((__tmp152735 |gxc[1]#_g152736_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152629 '12 '#f '#f)) - (let ((__tmp152631 |gxc[1]#_g152632_|)) + (##unchecked-structure-set! __obj152389 __tmp152735 '12 '#f '#f)) + (let ((__tmp152737 |gxc[1]#_g152738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152631 '13 '#f '#f)) - (let ((__tmp152633 |gxc[1]#_g152634_|)) + (##unchecked-structure-set! __obj152389 __tmp152737 '13 '#f '#f)) + (let ((__tmp152739 |gxc[1]#_g152740_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152633 '14 '#f '#f)) - (let ((__tmp152635 - (cons (cons 'slot |gxc[1]#_g152636_|) - (cons (cons 'checked? |gxc[1]#_g152637_|) - (cons (cons 'signature |gxc[1]#_g152638_|) - (cons (cons 'id |gxc[1]#_g152639_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152635 '15 '#f '#f)) - (let ((__tmp152640 - (cons (cons 'slot |gxc[1]#_g152641_|) - (cons (cons 'checked? |gxc[1]#_g152642_|) - (cons (cons 'signature |gxc[1]#_g152643_|) - (cons (cons 'id |gxc[1]#_g152644_|) '())))))) - (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152640 '16 '#f '#f)) - (let ((__tmp152645 - (cons (cons 'slot |gxc[1]#_g152646_|) - (cons (cons 'checked? |gxc[1]#_g152647_|) - (cons (cons 'signature |gxc[1]#_g152648_|) - (cons (cons 'id |gxc[1]#_g152649_|) '())))))) + (##unchecked-structure-set! __obj152389 __tmp152739 '14 '#f '#f)) + (let ((__tmp152741 + (cons (cons 'slot |gxc[1]#_g152742_|) + (cons (cons 'checked? |gxc[1]#_g152743_|) + (cons (cons 'signature |gxc[1]#_g152744_|) + (cons (cons 'id |gxc[1]#_g152745_|) '())))))) + (declare (not safe)) + (##unchecked-structure-set! __obj152389 __tmp152741 '15 '#f '#f)) + (let ((__tmp152746 + (cons (cons 'slot |gxc[1]#_g152747_|) + (cons (cons 'checked? |gxc[1]#_g152748_|) + (cons (cons 'signature |gxc[1]#_g152749_|) + (cons (cons 'id |gxc[1]#_g152750_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152645 '17 '#f '#f)) - (let ((__tmp152650 - (cons (cons 'slot |gxc[1]#_g152651_|) - (cons (cons 'checked? |gxc[1]#_g152652_|) - (cons (cons 'signature |gxc[1]#_g152653_|) - (cons (cons 'id |gxc[1]#_g152654_|) '())))))) + (##unchecked-structure-set! __obj152389 __tmp152746 '16 '#f '#f)) + (let ((__tmp152751 + (cons (cons 'slot |gxc[1]#_g152752_|) + (cons (cons 'checked? |gxc[1]#_g152753_|) + (cons (cons 'signature |gxc[1]#_g152754_|) + (cons (cons 'id |gxc[1]#_g152755_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152650 '18 '#f '#f)) - (let ((__tmp152655 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152389 __tmp152751 '17 '#f '#f)) + (let ((__tmp152756 + (cons (cons 'slot |gxc[1]#_g152757_|) + (cons (cons 'checked? |gxc[1]#_g152758_|) + (cons (cons 'signature |gxc[1]#_g152759_|) + (cons (cons 'id |gxc[1]#_g152760_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152283 __tmp152655 '19 '#f '#f)) + (##unchecked-structure-set! __obj152389 __tmp152756 '18 '#f '#f)) + (let ((__tmp152761 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) + (declare (not safe)) + (##unchecked-structure-set! __obj152389 __tmp152761 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152389 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152283 '() '20 '#f '#f)) - __obj152283)) + (##unchecked-structure-set! __obj152389 '() '20 '#f '#f)) + __obj152389)) (define |gxc[:0:]#!mutator| - (let ((__obj152284 + (let ((__obj152390 (let () (declare (not safe)) (##structure @@ -3631,85 +3631,85 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 'gxc#!mutator::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152390 'gxc#!mutator::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '!mutator '2 '#f '#f)) + (##unchecked-structure-set! __obj152390 '!mutator '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '(slot checked?) '4 '#f '#f)) + (##unchecked-structure-set! __obj152390 '(slot checked?) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152284 + __obj152390 '(id signature slot checked?) '6 '#f '#f)) - (let ((__tmp152656 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152762 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152656 '3 '#f '#f)) + (##unchecked-structure-set! __obj152390 __tmp152762 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152390 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152390 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152390 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 ':init! '11 '#f '#f)) - (let ((__tmp152657 |gxc[1]#_g152658_|)) + (##unchecked-structure-set! __obj152390 ':init! '11 '#f '#f)) + (let ((__tmp152763 |gxc[1]#_g152764_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152657 '12 '#f '#f)) - (let ((__tmp152659 |gxc[1]#_g152660_|)) + (##unchecked-structure-set! __obj152390 __tmp152763 '12 '#f '#f)) + (let ((__tmp152765 |gxc[1]#_g152766_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152659 '13 '#f '#f)) - (let ((__tmp152661 |gxc[1]#_g152662_|)) + (##unchecked-structure-set! __obj152390 __tmp152765 '13 '#f '#f)) + (let ((__tmp152767 |gxc[1]#_g152768_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152661 '14 '#f '#f)) - (let ((__tmp152663 - (cons (cons 'slot |gxc[1]#_g152664_|) - (cons (cons 'checked? |gxc[1]#_g152665_|) - (cons (cons 'signature |gxc[1]#_g152666_|) - (cons (cons 'id |gxc[1]#_g152667_|) '())))))) + (##unchecked-structure-set! __obj152390 __tmp152767 '14 '#f '#f)) + (let ((__tmp152769 + (cons (cons 'slot |gxc[1]#_g152770_|) + (cons (cons 'checked? |gxc[1]#_g152771_|) + (cons (cons 'signature |gxc[1]#_g152772_|) + (cons (cons 'id |gxc[1]#_g152773_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152663 '15 '#f '#f)) - (let ((__tmp152668 - (cons (cons 'slot |gxc[1]#_g152669_|) - (cons (cons 'checked? |gxc[1]#_g152670_|) - (cons (cons 'signature |gxc[1]#_g152671_|) - (cons (cons 'id |gxc[1]#_g152672_|) '())))))) + (##unchecked-structure-set! __obj152390 __tmp152769 '15 '#f '#f)) + (let ((__tmp152774 + (cons (cons 'slot |gxc[1]#_g152775_|) + (cons (cons 'checked? |gxc[1]#_g152776_|) + (cons (cons 'signature |gxc[1]#_g152777_|) + (cons (cons 'id |gxc[1]#_g152778_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152668 '16 '#f '#f)) - (let ((__tmp152673 - (cons (cons 'slot |gxc[1]#_g152674_|) - (cons (cons 'checked? |gxc[1]#_g152675_|) - (cons (cons 'signature |gxc[1]#_g152676_|) - (cons (cons 'id |gxc[1]#_g152677_|) '())))))) + (##unchecked-structure-set! __obj152390 __tmp152774 '16 '#f '#f)) + (let ((__tmp152779 + (cons (cons 'slot |gxc[1]#_g152780_|) + (cons (cons 'checked? |gxc[1]#_g152781_|) + (cons (cons 'signature |gxc[1]#_g152782_|) + (cons (cons 'id |gxc[1]#_g152783_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152673 '17 '#f '#f)) - (let ((__tmp152678 - (cons (cons 'slot |gxc[1]#_g152679_|) - (cons (cons 'checked? |gxc[1]#_g152680_|) - (cons (cons 'signature |gxc[1]#_g152681_|) - (cons (cons 'id |gxc[1]#_g152682_|) '())))))) + (##unchecked-structure-set! __obj152390 __tmp152779 '17 '#f '#f)) + (let ((__tmp152784 + (cons (cons 'slot |gxc[1]#_g152785_|) + (cons (cons 'checked? |gxc[1]#_g152786_|) + (cons (cons 'signature |gxc[1]#_g152787_|) + (cons (cons 'id |gxc[1]#_g152788_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152678 '18 '#f '#f)) - (let ((__tmp152683 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152390 __tmp152784 '18 '#f '#f)) + (let ((__tmp152789 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152284 __tmp152683 '19 '#f '#f)) + (##unchecked-structure-set! __obj152390 __tmp152789 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152390 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152284 '() '20 '#f '#f)) - __obj152284)) + (##unchecked-structure-set! __obj152390 '() '20 '#f '#f)) + __obj152390)) (define |gxc[:0:]#!interface| - (let ((__obj152285 + (let ((__obj152391 (let () (declare (not safe)) (##structure @@ -3738,76 +3738,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152285 + __obj152391 'gxc#!interface::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '!interface '2 '#f '#f)) + (##unchecked-structure-set! __obj152391 '!interface '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '(methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj152391 '(methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '(id methods) '6 '#f '#f)) - (let ((__tmp152684 (cons |gxc[1]#_g152431_| '()))) + (##unchecked-structure-set! __obj152391 '(id methods) '6 '#f '#f)) + (let ((__tmp152790 (cons |gxc[1]#_g152537_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152684 '3 '#f '#f)) + (##unchecked-structure-set! __obj152391 __tmp152790 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152391 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152391 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152391 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '#f '11 '#f '#f)) - (let ((__tmp152685 |gxc[1]#_g152686_|)) + (##unchecked-structure-set! __obj152391 '#f '11 '#f '#f)) + (let ((__tmp152791 |gxc[1]#_g152792_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152685 '12 '#f '#f)) - (let ((__tmp152687 |gxc[1]#_g152688_|)) + (##unchecked-structure-set! __obj152391 __tmp152791 '12 '#f '#f)) + (let ((__tmp152793 |gxc[1]#_g152794_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152687 '13 '#f '#f)) - (let ((__tmp152689 |gxc[1]#_g152690_|)) + (##unchecked-structure-set! __obj152391 __tmp152793 '13 '#f '#f)) + (let ((__tmp152795 |gxc[1]#_g152796_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152689 '14 '#f '#f)) - (let ((__tmp152691 - (cons (cons 'methods |gxc[1]#_g152692_|) - (cons (cons 'id |gxc[1]#_g152693_|) '())))) + (##unchecked-structure-set! __obj152391 __tmp152795 '14 '#f '#f)) + (let ((__tmp152797 + (cons (cons 'methods |gxc[1]#_g152798_|) + (cons (cons 'id |gxc[1]#_g152799_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152691 '15 '#f '#f)) - (let ((__tmp152694 - (cons (cons 'methods |gxc[1]#_g152695_|) - (cons (cons 'id |gxc[1]#_g152696_|) '())))) + (##unchecked-structure-set! __obj152391 __tmp152797 '15 '#f '#f)) + (let ((__tmp152800 + (cons (cons 'methods |gxc[1]#_g152801_|) + (cons (cons 'id |gxc[1]#_g152802_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152694 '16 '#f '#f)) - (let ((__tmp152697 - (cons (cons 'methods |gxc[1]#_g152698_|) - (cons (cons 'id |gxc[1]#_g152699_|) '())))) + (##unchecked-structure-set! __obj152391 __tmp152800 '16 '#f '#f)) + (let ((__tmp152803 + (cons (cons 'methods |gxc[1]#_g152804_|) + (cons (cons 'id |gxc[1]#_g152805_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152697 '17 '#f '#f)) - (let ((__tmp152700 - (cons (cons 'methods |gxc[1]#_g152701_|) - (cons (cons 'id |gxc[1]#_g152702_|) '())))) + (##unchecked-structure-set! __obj152391 __tmp152803 '17 '#f '#f)) + (let ((__tmp152806 + (cons (cons 'methods |gxc[1]#_g152807_|) + (cons (cons 'id |gxc[1]#_g152808_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152285 __tmp152700 '18 '#f '#f)) + (##unchecked-structure-set! __obj152391 __tmp152806 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152391 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152391 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152285 '() '20 '#f '#f)) - __obj152285)) + (##unchecked-structure-set! __obj152391 '() '20 '#f '#f)) + __obj152391)) (define |gxc[:0:]#!lambda| - (let ((__obj152286 + (let ((__obj152392 (let () (declare (not safe)) (##structure @@ -3835,14 +3835,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 'gxc#!lambda::t '1 '#f '#f)) + (##unchecked-structure-set! __obj152392 'gxc#!lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '!lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152392 '!lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152286 + __obj152392 '(arity dispatch inline inline-typedecl) '4 '#f @@ -3850,99 +3850,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152286 + __obj152392 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152703 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152809 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152703 '3 '#f '#f)) + (##unchecked-structure-set! __obj152392 __tmp152809 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152392 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152392 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152392 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 ':init! '11 '#f '#f)) - (let ((__tmp152704 |gxc[1]#_g152705_|)) + (##unchecked-structure-set! __obj152392 ':init! '11 '#f '#f)) + (let ((__tmp152810 |gxc[1]#_g152811_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152704 '12 '#f '#f)) - (let ((__tmp152706 |gxc[1]#_g152707_|)) + (##unchecked-structure-set! __obj152392 __tmp152810 '12 '#f '#f)) + (let ((__tmp152812 |gxc[1]#_g152813_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152706 '13 '#f '#f)) - (let ((__tmp152708 |gxc[1]#_g152709_|)) + (##unchecked-structure-set! __obj152392 __tmp152812 '13 '#f '#f)) + (let ((__tmp152814 |gxc[1]#_g152815_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152708 '14 '#f '#f)) - (let ((__tmp152710 - (cons (cons 'arity |gxc[1]#_g152711_|) - (cons (cons 'dispatch |gxc[1]#_g152712_|) - (cons (cons 'inline |gxc[1]#_g152713_|) + (##unchecked-structure-set! __obj152392 __tmp152814 '14 '#f '#f)) + (let ((__tmp152816 + (cons (cons 'arity |gxc[1]#_g152817_|) + (cons (cons 'dispatch |gxc[1]#_g152818_|) + (cons (cons 'inline |gxc[1]#_g152819_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152714_|) + |gxc[1]#_g152820_|) (cons (cons 'signature - |gxc[1]#_g152715_|) + |gxc[1]#_g152821_|) (cons (cons 'id - |gxc[1]#_g152716_|) + |gxc[1]#_g152822_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152710 '15 '#f '#f)) - (let ((__tmp152717 - (cons (cons 'arity |gxc[1]#_g152718_|) - (cons (cons 'dispatch |gxc[1]#_g152719_|) - (cons (cons 'inline |gxc[1]#_g152720_|) + (##unchecked-structure-set! __obj152392 __tmp152816 '15 '#f '#f)) + (let ((__tmp152823 + (cons (cons 'arity |gxc[1]#_g152824_|) + (cons (cons 'dispatch |gxc[1]#_g152825_|) + (cons (cons 'inline |gxc[1]#_g152826_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152721_|) + |gxc[1]#_g152827_|) (cons (cons 'signature - |gxc[1]#_g152722_|) + |gxc[1]#_g152828_|) (cons (cons 'id - |gxc[1]#_g152723_|) + |gxc[1]#_g152829_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152717 '16 '#f '#f)) - (let ((__tmp152724 - (cons (cons 'arity |gxc[1]#_g152725_|) - (cons (cons 'dispatch |gxc[1]#_g152726_|) - (cons (cons 'inline |gxc[1]#_g152727_|) + (##unchecked-structure-set! __obj152392 __tmp152823 '16 '#f '#f)) + (let ((__tmp152830 + (cons (cons 'arity |gxc[1]#_g152831_|) + (cons (cons 'dispatch |gxc[1]#_g152832_|) + (cons (cons 'inline |gxc[1]#_g152833_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152728_|) + |gxc[1]#_g152834_|) (cons (cons 'signature - |gxc[1]#_g152729_|) + |gxc[1]#_g152835_|) (cons (cons 'id - |gxc[1]#_g152730_|) + |gxc[1]#_g152836_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152724 '17 '#f '#f)) - (let ((__tmp152731 - (cons (cons 'arity |gxc[1]#_g152732_|) - (cons (cons 'dispatch |gxc[1]#_g152733_|) - (cons (cons 'inline |gxc[1]#_g152734_|) + (##unchecked-structure-set! __obj152392 __tmp152830 '17 '#f '#f)) + (let ((__tmp152837 + (cons (cons 'arity |gxc[1]#_g152838_|) + (cons (cons 'dispatch |gxc[1]#_g152839_|) + (cons (cons 'inline |gxc[1]#_g152840_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152735_|) + |gxc[1]#_g152841_|) (cons (cons 'signature - |gxc[1]#_g152736_|) + |gxc[1]#_g152842_|) (cons (cons 'id - |gxc[1]#_g152737_|) + |gxc[1]#_g152843_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152731 '18 '#f '#f)) - (let ((__tmp152738 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152392 __tmp152837 '18 '#f '#f)) + (let ((__tmp152844 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152286 __tmp152738 '19 '#f '#f)) + (##unchecked-structure-set! __obj152392 __tmp152844 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152392 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152286 '() '20 '#f '#f)) - __obj152286)) + (##unchecked-structure-set! __obj152392 '() '20 '#f '#f)) + __obj152392)) (define |gxc[:0:]#!case-lambda| - (let ((__obj152287 + (let ((__obj152393 (let () (declare (not safe)) (##structure @@ -3971,85 +3971,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152287 + __obj152393 'gxc#!case-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '!case-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152393 '!case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '(clauses) '4 '#f '#f)) + (##unchecked-structure-set! __obj152393 '(clauses) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152287 + __obj152393 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152739 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152845 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152739 '3 '#f '#f)) + (##unchecked-structure-set! __obj152393 __tmp152845 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152393 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152393 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152393 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 ':init! '11 '#f '#f)) - (let ((__tmp152740 |gxc[1]#_g152741_|)) + (##unchecked-structure-set! __obj152393 ':init! '11 '#f '#f)) + (let ((__tmp152846 |gxc[1]#_g152847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152740 '12 '#f '#f)) - (let ((__tmp152742 |gxc[1]#_g152743_|)) + (##unchecked-structure-set! __obj152393 __tmp152846 '12 '#f '#f)) + (let ((__tmp152848 |gxc[1]#_g152849_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152742 '13 '#f '#f)) - (let ((__tmp152744 |gxc[1]#_g152745_|)) + (##unchecked-structure-set! __obj152393 __tmp152848 '13 '#f '#f)) + (let ((__tmp152850 |gxc[1]#_g152851_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152744 '14 '#f '#f)) - (let ((__tmp152746 - (cons (cons 'clauses |gxc[1]#_g152747_|) - (cons (cons 'signature |gxc[1]#_g152748_|) - (cons (cons 'id |gxc[1]#_g152749_|) '()))))) + (##unchecked-structure-set! __obj152393 __tmp152850 '14 '#f '#f)) + (let ((__tmp152852 + (cons (cons 'clauses |gxc[1]#_g152853_|) + (cons (cons 'signature |gxc[1]#_g152854_|) + (cons (cons 'id |gxc[1]#_g152855_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152746 '15 '#f '#f)) - (let ((__tmp152750 - (cons (cons 'clauses |gxc[1]#_g152751_|) - (cons (cons 'signature |gxc[1]#_g152752_|) - (cons (cons 'id |gxc[1]#_g152753_|) '()))))) + (##unchecked-structure-set! __obj152393 __tmp152852 '15 '#f '#f)) + (let ((__tmp152856 + (cons (cons 'clauses |gxc[1]#_g152857_|) + (cons (cons 'signature |gxc[1]#_g152858_|) + (cons (cons 'id |gxc[1]#_g152859_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152750 '16 '#f '#f)) - (let ((__tmp152754 - (cons (cons 'clauses |gxc[1]#_g152755_|) - (cons (cons 'signature |gxc[1]#_g152756_|) - (cons (cons 'id |gxc[1]#_g152757_|) '()))))) + (##unchecked-structure-set! __obj152393 __tmp152856 '16 '#f '#f)) + (let ((__tmp152860 + (cons (cons 'clauses |gxc[1]#_g152861_|) + (cons (cons 'signature |gxc[1]#_g152862_|) + (cons (cons 'id |gxc[1]#_g152863_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152754 '17 '#f '#f)) - (let ((__tmp152758 - (cons (cons 'clauses |gxc[1]#_g152759_|) - (cons (cons 'signature |gxc[1]#_g152760_|) - (cons (cons 'id |gxc[1]#_g152761_|) '()))))) + (##unchecked-structure-set! __obj152393 __tmp152860 '17 '#f '#f)) + (let ((__tmp152864 + (cons (cons 'clauses |gxc[1]#_g152865_|) + (cons (cons 'signature |gxc[1]#_g152866_|) + (cons (cons 'id |gxc[1]#_g152867_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152758 '18 '#f '#f)) - (let ((__tmp152762 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152393 __tmp152864 '18 '#f '#f)) + (let ((__tmp152868 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152287 __tmp152762 '19 '#f '#f)) + (##unchecked-structure-set! __obj152393 __tmp152868 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152393 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152287 '() '20 '#f '#f)) - __obj152287)) + (##unchecked-structure-set! __obj152393 '() '20 '#f '#f)) + __obj152393)) (define |gxc[:0:]#!kw-lambda| - (let ((__obj152288 + (let ((__obj152394 (let () (declare (not safe)) (##structure @@ -4078,18 +4078,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152288 + __obj152394 'gxc#!kw-lambda::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '!kw-lambda '2 '#f '#f)) + (##unchecked-structure-set! __obj152394 '!kw-lambda '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152288 + __obj152394 '(table dispatch) '4 '#f @@ -4097,75 +4097,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152288 + __obj152394 '(id signature table dispatch) '6 '#f '#f)) - (let ((__tmp152763 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152869 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152763 '3 '#f '#f)) + (##unchecked-structure-set! __obj152394 __tmp152869 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152394 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152394 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152394 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 ':init! '11 '#f '#f)) - (let ((__tmp152764 |gxc[1]#_g152765_|)) + (##unchecked-structure-set! __obj152394 ':init! '11 '#f '#f)) + (let ((__tmp152870 |gxc[1]#_g152871_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152764 '12 '#f '#f)) - (let ((__tmp152766 |gxc[1]#_g152767_|)) + (##unchecked-structure-set! __obj152394 __tmp152870 '12 '#f '#f)) + (let ((__tmp152872 |gxc[1]#_g152873_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152766 '13 '#f '#f)) - (let ((__tmp152768 |gxc[1]#_g152769_|)) + (##unchecked-structure-set! __obj152394 __tmp152872 '13 '#f '#f)) + (let ((__tmp152874 |gxc[1]#_g152875_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152768 '14 '#f '#f)) - (let ((__tmp152770 - (cons (cons 'table |gxc[1]#_g152771_|) - (cons (cons 'dispatch |gxc[1]#_g152772_|) - (cons (cons 'signature |gxc[1]#_g152773_|) - (cons (cons 'id |gxc[1]#_g152774_|) '())))))) + (##unchecked-structure-set! __obj152394 __tmp152874 '14 '#f '#f)) + (let ((__tmp152876 + (cons (cons 'table |gxc[1]#_g152877_|) + (cons (cons 'dispatch |gxc[1]#_g152878_|) + (cons (cons 'signature |gxc[1]#_g152879_|) + (cons (cons 'id |gxc[1]#_g152880_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152770 '15 '#f '#f)) - (let ((__tmp152775 - (cons (cons 'table |gxc[1]#_g152776_|) - (cons (cons 'dispatch |gxc[1]#_g152777_|) - (cons (cons 'signature |gxc[1]#_g152778_|) - (cons (cons 'id |gxc[1]#_g152779_|) '())))))) + (##unchecked-structure-set! __obj152394 __tmp152876 '15 '#f '#f)) + (let ((__tmp152881 + (cons (cons 'table |gxc[1]#_g152882_|) + (cons (cons 'dispatch |gxc[1]#_g152883_|) + (cons (cons 'signature |gxc[1]#_g152884_|) + (cons (cons 'id |gxc[1]#_g152885_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152775 '16 '#f '#f)) - (let ((__tmp152780 - (cons (cons 'table |gxc[1]#_g152781_|) - (cons (cons 'dispatch |gxc[1]#_g152782_|) - (cons (cons 'signature |gxc[1]#_g152783_|) - (cons (cons 'id |gxc[1]#_g152784_|) '())))))) + (##unchecked-structure-set! __obj152394 __tmp152881 '16 '#f '#f)) + (let ((__tmp152886 + (cons (cons 'table |gxc[1]#_g152887_|) + (cons (cons 'dispatch |gxc[1]#_g152888_|) + (cons (cons 'signature |gxc[1]#_g152889_|) + (cons (cons 'id |gxc[1]#_g152890_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152780 '17 '#f '#f)) - (let ((__tmp152785 - (cons (cons 'table |gxc[1]#_g152786_|) - (cons (cons 'dispatch |gxc[1]#_g152787_|) - (cons (cons 'signature |gxc[1]#_g152788_|) - (cons (cons 'id |gxc[1]#_g152789_|) '())))))) + (##unchecked-structure-set! __obj152394 __tmp152886 '17 '#f '#f)) + (let ((__tmp152891 + (cons (cons 'table |gxc[1]#_g152892_|) + (cons (cons 'dispatch |gxc[1]#_g152893_|) + (cons (cons 'signature |gxc[1]#_g152894_|) + (cons (cons 'id |gxc[1]#_g152895_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152785 '18 '#f '#f)) - (let ((__tmp152790 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152394 __tmp152891 '18 '#f '#f)) + (let ((__tmp152896 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152288 __tmp152790 '19 '#f '#f)) + (##unchecked-structure-set! __obj152394 __tmp152896 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152394 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152288 '() '20 '#f '#f)) - __obj152288)) + (##unchecked-structure-set! __obj152394 '() '20 '#f '#f)) + __obj152394)) (define |gxc[:0:]#!kw-lambda-primary| - (let ((__obj152289 + (let ((__obj152395 (let () (declare (not safe)) (##structure @@ -4194,7 +4194,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152289 + __obj152395 'gxc#!kw-lambda-primary::t '1 '#f @@ -4202,86 +4202,86 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152289 + __obj152395 '!kw-lambda-primary '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '(keys main) '4 '#f '#f)) + (##unchecked-structure-set! __obj152395 '(keys main) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152289 + __obj152395 '(id signature keys main) '6 '#f '#f)) - (let ((__tmp152791 (cons |gxc[1]#_g152588_| '()))) + (let ((__tmp152897 (cons |gxc[1]#_g152694_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152791 '3 '#f '#f)) + (##unchecked-structure-set! __obj152395 __tmp152897 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152395 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152395 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152395 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 ':init! '11 '#f '#f)) - (let ((__tmp152792 |gxc[1]#_g152793_|)) + (##unchecked-structure-set! __obj152395 ':init! '11 '#f '#f)) + (let ((__tmp152898 |gxc[1]#_g152899_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152792 '12 '#f '#f)) - (let ((__tmp152794 |gxc[1]#_g152795_|)) + (##unchecked-structure-set! __obj152395 __tmp152898 '12 '#f '#f)) + (let ((__tmp152900 |gxc[1]#_g152901_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152794 '13 '#f '#f)) - (let ((__tmp152796 |gxc[1]#_g152797_|)) + (##unchecked-structure-set! __obj152395 __tmp152900 '13 '#f '#f)) + (let ((__tmp152902 |gxc[1]#_g152903_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152796 '14 '#f '#f)) - (let ((__tmp152798 - (cons (cons 'keys |gxc[1]#_g152799_|) - (cons (cons 'main |gxc[1]#_g152800_|) - (cons (cons 'signature |gxc[1]#_g152801_|) - (cons (cons 'id |gxc[1]#_g152802_|) '())))))) + (##unchecked-structure-set! __obj152395 __tmp152902 '14 '#f '#f)) + (let ((__tmp152904 + (cons (cons 'keys |gxc[1]#_g152905_|) + (cons (cons 'main |gxc[1]#_g152906_|) + (cons (cons 'signature |gxc[1]#_g152907_|) + (cons (cons 'id |gxc[1]#_g152908_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152798 '15 '#f '#f)) - (let ((__tmp152803 - (cons (cons 'keys |gxc[1]#_g152804_|) - (cons (cons 'main |gxc[1]#_g152805_|) - (cons (cons 'signature |gxc[1]#_g152806_|) - (cons (cons 'id |gxc[1]#_g152807_|) '())))))) + (##unchecked-structure-set! __obj152395 __tmp152904 '15 '#f '#f)) + (let ((__tmp152909 + (cons (cons 'keys |gxc[1]#_g152910_|) + (cons (cons 'main |gxc[1]#_g152911_|) + (cons (cons 'signature |gxc[1]#_g152912_|) + (cons (cons 'id |gxc[1]#_g152913_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152803 '16 '#f '#f)) - (let ((__tmp152808 - (cons (cons 'keys |gxc[1]#_g152809_|) - (cons (cons 'main |gxc[1]#_g152810_|) - (cons (cons 'signature |gxc[1]#_g152811_|) - (cons (cons 'id |gxc[1]#_g152812_|) '())))))) + (##unchecked-structure-set! __obj152395 __tmp152909 '16 '#f '#f)) + (let ((__tmp152914 + (cons (cons 'keys |gxc[1]#_g152915_|) + (cons (cons 'main |gxc[1]#_g152916_|) + (cons (cons 'signature |gxc[1]#_g152917_|) + (cons (cons 'id |gxc[1]#_g152918_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152808 '17 '#f '#f)) - (let ((__tmp152813 - (cons (cons 'keys |gxc[1]#_g152814_|) - (cons (cons 'main |gxc[1]#_g152815_|) - (cons (cons 'signature |gxc[1]#_g152816_|) - (cons (cons 'id |gxc[1]#_g152817_|) '())))))) + (##unchecked-structure-set! __obj152395 __tmp152914 '17 '#f '#f)) + (let ((__tmp152919 + (cons (cons 'keys |gxc[1]#_g152920_|) + (cons (cons 'main |gxc[1]#_g152921_|) + (cons (cons 'signature |gxc[1]#_g152922_|) + (cons (cons 'id |gxc[1]#_g152923_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152813 '18 '#f '#f)) - (let ((__tmp152818 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152395 __tmp152919 '18 '#f '#f)) + (let ((__tmp152924 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152289 __tmp152818 '19 '#f '#f)) + (##unchecked-structure-set! __obj152395 __tmp152924 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152395 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152289 '() '20 '#f '#f)) - __obj152289)) + (##unchecked-structure-set! __obj152395 '() '20 '#f '#f)) + __obj152395)) (define |gxc[:0:]#!primitive| - (let ((__obj152290 + (let ((__obj152396 (let () (declare (not safe)) (##structure @@ -4310,68 +4310,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152290 + __obj152396 'gxc#!primitive::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '!primitive '2 '#f '#f)) + (##unchecked-structure-set! __obj152396 '!primitive '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj152396 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152396 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152396 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '#f '11 '#f '#f)) - (let ((__tmp152819 |gxc[1]#_g152820_|)) + (##unchecked-structure-set! __obj152396 '#f '11 '#f '#f)) + (let ((__tmp152925 |gxc[1]#_g152926_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152819 '12 '#f '#f)) - (let ((__tmp152821 |gxc[1]#_g152822_|)) + (##unchecked-structure-set! __obj152396 __tmp152925 '12 '#f '#f)) + (let ((__tmp152927 |gxc[1]#_g152928_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152821 '13 '#f '#f)) - (let ((__tmp152823 |gxc[1]#_g152824_|)) + (##unchecked-structure-set! __obj152396 __tmp152927 '13 '#f '#f)) + (let ((__tmp152929 |gxc[1]#_g152930_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152290 __tmp152823 '14 '#f '#f)) + (##unchecked-structure-set! __obj152396 __tmp152929 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152396 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152290 '() '20 '#f '#f)) - __obj152290)) + (##unchecked-structure-set! __obj152396 '() '20 '#f '#f)) + __obj152396)) (define |gxc[:0:]#!primitive-predicate| - (let ((__obj152291 + (let ((__obj152397 (let () (declare (not safe)) (##structure @@ -4400,7 +4400,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152291 + __obj152397 'gxc#!primitive-predicate::t '1 '#f @@ -4408,74 +4408,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152291 + __obj152397 '!primitive-predicate '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152397 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '(id signature) '6 '#f '#f)) - (let ((__tmp152825 - (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152588_| '())))) + (##unchecked-structure-set! __obj152397 '(id signature) '6 '#f '#f)) + (let ((__tmp152931 + (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152694_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152825 '3 '#f '#f)) + (##unchecked-structure-set! __obj152397 __tmp152931 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152397 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152397 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152397 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 ':init! '11 '#f '#f)) - (let ((__tmp152827 |gxc[1]#_g152828_|)) + (##unchecked-structure-set! __obj152397 ':init! '11 '#f '#f)) + (let ((__tmp152933 |gxc[1]#_g152934_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152827 '12 '#f '#f)) - (let ((__tmp152829 |gxc[1]#_g152830_|)) + (##unchecked-structure-set! __obj152397 __tmp152933 '12 '#f '#f)) + (let ((__tmp152935 |gxc[1]#_g152936_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152829 '13 '#f '#f)) - (let ((__tmp152831 |gxc[1]#_g152832_|)) + (##unchecked-structure-set! __obj152397 __tmp152935 '13 '#f '#f)) + (let ((__tmp152937 |gxc[1]#_g152938_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152831 '14 '#f '#f)) - (let ((__tmp152833 - (cons (cons 'signature |gxc[1]#_g152834_|) - (cons (cons 'id |gxc[1]#_g152835_|) '())))) + (##unchecked-structure-set! __obj152397 __tmp152937 '14 '#f '#f)) + (let ((__tmp152939 + (cons (cons 'signature |gxc[1]#_g152940_|) + (cons (cons 'id |gxc[1]#_g152941_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152833 '15 '#f '#f)) - (let ((__tmp152836 - (cons (cons 'signature |gxc[1]#_g152837_|) - (cons (cons 'id |gxc[1]#_g152838_|) '())))) + (##unchecked-structure-set! __obj152397 __tmp152939 '15 '#f '#f)) + (let ((__tmp152942 + (cons (cons 'signature |gxc[1]#_g152943_|) + (cons (cons 'id |gxc[1]#_g152944_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152836 '16 '#f '#f)) - (let ((__tmp152839 - (cons (cons 'signature |gxc[1]#_g152840_|) - (cons (cons 'id |gxc[1]#_g152841_|) '())))) + (##unchecked-structure-set! __obj152397 __tmp152942 '16 '#f '#f)) + (let ((__tmp152945 + (cons (cons 'signature |gxc[1]#_g152946_|) + (cons (cons 'id |gxc[1]#_g152947_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152839 '17 '#f '#f)) - (let ((__tmp152842 - (cons (cons 'signature |gxc[1]#_g152843_|) - (cons (cons 'id |gxc[1]#_g152844_|) '())))) + (##unchecked-structure-set! __obj152397 __tmp152945 '17 '#f '#f)) + (let ((__tmp152948 + (cons (cons 'signature |gxc[1]#_g152949_|) + (cons (cons 'id |gxc[1]#_g152950_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152842 '18 '#f '#f)) - (let ((__tmp152845 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152397 __tmp152948 '18 '#f '#f)) + (let ((__tmp152951 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152291 __tmp152845 '19 '#f '#f)) + (##unchecked-structure-set! __obj152397 __tmp152951 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152397 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152291 '() '20 '#f '#f)) - __obj152291)) + (##unchecked-structure-set! __obj152397 '() '20 '#f '#f)) + __obj152397)) (define |gxc[:0:]#!primitive-lambda| - (let ((__obj152292 + (let ((__obj152398 (let () (declare (not safe)) (##structure @@ -4504,7 +4504,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152292 + __obj152398 'gxc#!primitive-lambda::t '1 '#f @@ -4512,111 +4512,111 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152292 + __obj152398 '!primitive-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152398 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152292 + __obj152398 '(id signature arity dispatch inline inline-typedecl) '6 '#f '#f)) - (let ((__tmp152846 - (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152847_| '())))) + (let ((__tmp152952 + (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152953_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152846 '3 '#f '#f)) + (##unchecked-structure-set! __obj152398 __tmp152952 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152398 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152398 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152398 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 ':init! '11 '#f '#f)) - (let ((__tmp152848 |gxc[1]#_g152849_|)) + (##unchecked-structure-set! __obj152398 ':init! '11 '#f '#f)) + (let ((__tmp152954 |gxc[1]#_g152955_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152848 '12 '#f '#f)) - (let ((__tmp152850 |gxc[1]#_g152851_|)) + (##unchecked-structure-set! __obj152398 __tmp152954 '12 '#f '#f)) + (let ((__tmp152956 |gxc[1]#_g152957_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152850 '13 '#f '#f)) - (let ((__tmp152852 |gxc[1]#_g152853_|)) + (##unchecked-structure-set! __obj152398 __tmp152956 '13 '#f '#f)) + (let ((__tmp152958 |gxc[1]#_g152959_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152852 '14 '#f '#f)) - (let ((__tmp152854 - (cons (cons 'arity |gxc[1]#_g152855_|) - (cons (cons 'dispatch |gxc[1]#_g152856_|) - (cons (cons 'inline |gxc[1]#_g152857_|) + (##unchecked-structure-set! __obj152398 __tmp152958 '14 '#f '#f)) + (let ((__tmp152960 + (cons (cons 'arity |gxc[1]#_g152961_|) + (cons (cons 'dispatch |gxc[1]#_g152962_|) + (cons (cons 'inline |gxc[1]#_g152963_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152858_|) + |gxc[1]#_g152964_|) (cons (cons 'signature - |gxc[1]#_g152859_|) + |gxc[1]#_g152965_|) (cons (cons 'id - |gxc[1]#_g152860_|) + |gxc[1]#_g152966_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152854 '15 '#f '#f)) - (let ((__tmp152861 - (cons (cons 'arity |gxc[1]#_g152862_|) - (cons (cons 'dispatch |gxc[1]#_g152863_|) - (cons (cons 'inline |gxc[1]#_g152864_|) + (##unchecked-structure-set! __obj152398 __tmp152960 '15 '#f '#f)) + (let ((__tmp152967 + (cons (cons 'arity |gxc[1]#_g152968_|) + (cons (cons 'dispatch |gxc[1]#_g152969_|) + (cons (cons 'inline |gxc[1]#_g152970_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152865_|) + |gxc[1]#_g152971_|) (cons (cons 'signature - |gxc[1]#_g152866_|) + |gxc[1]#_g152972_|) (cons (cons 'id - |gxc[1]#_g152867_|) + |gxc[1]#_g152973_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152861 '16 '#f '#f)) - (let ((__tmp152868 - (cons (cons 'arity |gxc[1]#_g152869_|) - (cons (cons 'dispatch |gxc[1]#_g152870_|) - (cons (cons 'inline |gxc[1]#_g152871_|) + (##unchecked-structure-set! __obj152398 __tmp152967 '16 '#f '#f)) + (let ((__tmp152974 + (cons (cons 'arity |gxc[1]#_g152975_|) + (cons (cons 'dispatch |gxc[1]#_g152976_|) + (cons (cons 'inline |gxc[1]#_g152977_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152872_|) + |gxc[1]#_g152978_|) (cons (cons 'signature - |gxc[1]#_g152873_|) + |gxc[1]#_g152979_|) (cons (cons 'id - |gxc[1]#_g152874_|) + |gxc[1]#_g152980_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152868 '17 '#f '#f)) - (let ((__tmp152875 - (cons (cons 'arity |gxc[1]#_g152876_|) - (cons (cons 'dispatch |gxc[1]#_g152877_|) - (cons (cons 'inline |gxc[1]#_g152878_|) + (##unchecked-structure-set! __obj152398 __tmp152974 '17 '#f '#f)) + (let ((__tmp152981 + (cons (cons 'arity |gxc[1]#_g152982_|) + (cons (cons 'dispatch |gxc[1]#_g152983_|) + (cons (cons 'inline |gxc[1]#_g152984_|) (cons (cons 'inline-typedecl - |gxc[1]#_g152879_|) + |gxc[1]#_g152985_|) (cons (cons 'signature - |gxc[1]#_g152880_|) + |gxc[1]#_g152986_|) (cons (cons 'id - |gxc[1]#_g152881_|) + |gxc[1]#_g152987_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152875 '18 '#f '#f)) - (let ((__tmp152882 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152398 __tmp152981 '18 '#f '#f)) + (let ((__tmp152988 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152292 __tmp152882 '19 '#f '#f)) + (##unchecked-structure-set! __obj152398 __tmp152988 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152398 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152292 '() '20 '#f '#f)) - __obj152292)) + (##unchecked-structure-set! __obj152398 '() '20 '#f '#f)) + __obj152398)) (define |gxc[:0:]#!primitive-case-lambda| - (let ((__obj152293 + (let ((__obj152399 (let () (declare (not safe)) (##structure @@ -4645,7 +4645,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152293 + __obj152399 'gxc#!primitive-case-lambda::t '1 '#f @@ -4653,78 +4653,78 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj152293 + __obj152399 '!primitive-case-lambda '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj152399 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj152293 + __obj152399 '(id signature clauses) '6 '#f '#f)) - (let ((__tmp152883 - (cons |gxc[1]#_g152826_| (cons |gxc[1]#_g152884_| '())))) + (let ((__tmp152989 + (cons |gxc[1]#_g152932_| (cons |gxc[1]#_g152990_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152883 '3 '#f '#f)) + (##unchecked-structure-set! __obj152399 __tmp152989 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj152399 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj152399 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj152399 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 ':init! '11 '#f '#f)) - (let ((__tmp152885 |gxc[1]#_g152886_|)) + (##unchecked-structure-set! __obj152399 ':init! '11 '#f '#f)) + (let ((__tmp152991 |gxc[1]#_g152992_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152885 '12 '#f '#f)) - (let ((__tmp152887 |gxc[1]#_g152888_|)) + (##unchecked-structure-set! __obj152399 __tmp152991 '12 '#f '#f)) + (let ((__tmp152993 |gxc[1]#_g152994_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152887 '13 '#f '#f)) - (let ((__tmp152889 |gxc[1]#_g152890_|)) + (##unchecked-structure-set! __obj152399 __tmp152993 '13 '#f '#f)) + (let ((__tmp152995 |gxc[1]#_g152996_|)) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152889 '14 '#f '#f)) - (let ((__tmp152891 - (cons (cons 'clauses |gxc[1]#_g152892_|) - (cons (cons 'signature |gxc[1]#_g152893_|) - (cons (cons 'id |gxc[1]#_g152894_|) '()))))) + (##unchecked-structure-set! __obj152399 __tmp152995 '14 '#f '#f)) + (let ((__tmp152997 + (cons (cons 'clauses |gxc[1]#_g152998_|) + (cons (cons 'signature |gxc[1]#_g152999_|) + (cons (cons 'id |gxc[1]#_g153000_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152891 '15 '#f '#f)) - (let ((__tmp152895 - (cons (cons 'clauses |gxc[1]#_g152896_|) - (cons (cons 'signature |gxc[1]#_g152897_|) - (cons (cons 'id |gxc[1]#_g152898_|) '()))))) + (##unchecked-structure-set! __obj152399 __tmp152997 '15 '#f '#f)) + (let ((__tmp153001 + (cons (cons 'clauses |gxc[1]#_g153002_|) + (cons (cons 'signature |gxc[1]#_g153003_|) + (cons (cons 'id |gxc[1]#_g153004_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152895 '16 '#f '#f)) - (let ((__tmp152899 - (cons (cons 'clauses |gxc[1]#_g152900_|) - (cons (cons 'signature |gxc[1]#_g152901_|) - (cons (cons 'id |gxc[1]#_g152902_|) '()))))) + (##unchecked-structure-set! __obj152399 __tmp153001 '16 '#f '#f)) + (let ((__tmp153005 + (cons (cons 'clauses |gxc[1]#_g153006_|) + (cons (cons 'signature |gxc[1]#_g153007_|) + (cons (cons 'id |gxc[1]#_g153008_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152899 '17 '#f '#f)) - (let ((__tmp152903 - (cons (cons 'clauses |gxc[1]#_g152904_|) - (cons (cons 'signature |gxc[1]#_g152905_|) - (cons (cons 'id |gxc[1]#_g152906_|) '()))))) + (##unchecked-structure-set! __obj152399 __tmp153005 '17 '#f '#f)) + (let ((__tmp153009 + (cons (cons 'clauses |gxc[1]#_g153010_|) + (cons (cons 'signature |gxc[1]#_g153011_|) + (cons (cons 'id |gxc[1]#_g153012_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152903 '18 '#f '#f)) - (let ((__tmp152907 (cons (cons 'signature |gxc[1]#_g152511_|) '()))) + (##unchecked-structure-set! __obj152399 __tmp153009 '18 '#f '#f)) + (let ((__tmp153013 (cons (cons 'signature |gxc[1]#_g152617_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj152293 __tmp152907 '19 '#f '#f)) + (##unchecked-structure-set! __obj152399 __tmp153013 '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj152399 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj152293 '() '20 '#f '#f)) - __obj152293)))) + (##unchecked-structure-set! __obj152399 '() '20 '#f '#f)) + __obj152399)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~0.scm b/src/bootstrap/gerbil/compiler/optimize-call~0.scm index a71aec975..230e87408 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-call::timestamp 1733870081) + (define gerbil/compiler/optimize-call::timestamp 1734131753) (begin (define gxc#::optimize-call::t - (let ((__tmp197344 (list gxc#::basic-xform::t)) - (__tmp197343 (cons (cons 'final: '#t) '()))) + (let ((__tmp197450 (list gxc#::basic-xform::t)) + (__tmp197449 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::optimize-call::t '::optimize-call - __tmp197344 + __tmp197450 '() - __tmp197343 + __tmp197449 '#f))) (define gxc#::optimize-call? (let () (declare (not safe)) (__make-class-predicate gxc#::optimize-call::t))) (define gxc#make-::optimize-call - (lambda _%$args196621%_ - (apply make-instance gxc#::optimize-call::t _%$args196621%_))) + (lambda _%$args196727%_ + (apply make-instance gxc#::optimize-call::t _%$args196727%_))) (define gxc#::optimize-call-bind-methods! - (let ((__tmp197345 + (let ((__tmp197451 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -40,46 +40,46 @@ (declare (not safe)) (__seal-class! gxc#::optimize-call::t))))) (declare (not safe)) - (__make-promise __tmp197345))) + (__make-promise __tmp197451))) (define gxc#apply-optimize-call - (lambda (_%stx196613%_) + (lambda (_%stx196719%_) (force gxc#::optimize-call-bind-methods!) - (let* ((_%self196616%_ - (let ((__obj197335 + (let* ((_%self196722%_ + (let ((__obj197441 (let () (declare (not safe)) (##structure gxc#::optimize-call::t)))) - __obj197335)) - (__tmp197346 + __obj197441)) + (__tmp197452 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196616%_ _%stx196613%_))))) + (gxc#compile-e__1 _%self196722%_ _%stx196719%_))))) (declare (not safe)) (__call-with-parameters - __tmp197346 + __tmp197452 gxc#current-compile-method - _%self196616%_)))) + _%self196722%_)))) (define gxc#::check-return-type::t - (let ((__tmp197348 (list gxc#::void::t)) - (__tmp197347 (cons (cons 'final: '#t) '()))) + (let ((__tmp197454 (list gxc#::void::t)) + (__tmp197453 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::check-return-type::t '::check-return-type - __tmp197348 + __tmp197454 '() - __tmp197347 + __tmp197453 '#f))) (define gxc#::check-return-type? (let () (declare (not safe)) (__make-class-predicate gxc#::check-return-type::t))) (define gxc#make-::check-return-type - (lambda _%$args196610%_ - (apply make-instance gxc#::check-return-type::t _%$args196610%_))) + (lambda _%$args196716%_ + (apply make-instance gxc#::check-return-type::t _%$args196716%_))) (define gxc#::check-return-type-bind-methods! - (let ((__tmp197349 + (let ((__tmp197455 (lambda () (force gxc#::void-bind-methods!) (let () @@ -170,154 +170,154 @@ (declare (not safe)) (__seal-class! gxc#::check-return-type::t))))) (declare (not safe)) - (__make-promise __tmp197349))) + (__make-promise __tmp197455))) (define gxc#apply-check-return-type - (lambda (_%stx196602%_) + (lambda (_%stx196708%_) (force gxc#::check-return-type-bind-methods!) - (let* ((_%self196605%_ - (let ((__obj197337 + (let* ((_%self196711%_ + (let ((__obj197443 (let () (declare (not safe)) (##structure gxc#::check-return-type::t)))) - __obj197337)) - (__tmp197350 + __obj197443)) + (__tmp197456 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self196605%_ _%stx196602%_))))) + (gxc#compile-e__1 _%self196711%_ _%stx196708%_))))) (declare (not safe)) (__call-with-parameters - __tmp197350 + __tmp197456 gxc#current-compile-method - _%self196605%_)))) + _%self196711%_)))) (define gxc#optimize-call% - (lambda (_%self196203%_ _%stx196204%_) - (let* ((_%__stx196690196691%_ _%stx196204%_) - (_%g196207196253%_ + (lambda (_%self196309%_ _%stx196310%_) + (let* ((_%__stx196796196797%_ _%stx196310%_) + (_%g196313196359%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196690196691%_))))) - (let ((_%__kont196692196693%_ - (lambda (_%L196396%_ _%L196397%_) - (let* ((_%rator-id196417%_ + _%__stx196796196797%_))))) + (let ((_%__kont196798196799%_ + (lambda (_%L196502%_ _%L196503%_) + (let* ((_%rator-id196523%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L196397%_))) - (_%rator-type196419%_ + (gxc#identifier-symbol _%L196503%_))) + (_%rator-type196525%_ (let () (declare (not safe)) - (gxc#optimizer-resolve-type _%rator-id196417%_)))) - (if (or (not _%rator-type196419%_) + (gxc#optimizer-resolve-type _%rator-id196523%_)))) + (if (or (not _%rator-type196525%_) (eq? (##structure-ref - _%rator-type196419%_ + _%rator-type196525%_ '1 gxc#!type::t '#f) 't)) (let () (declare (not safe)) - (gxc#xform-call% _%self196203%_ _%stx196204%_)) + (gxc#xform-call% _%self196309%_ _%stx196310%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196419%_ + _%rator-type196525%_ 'gxc#!procedure::t)) (let () - (let ((__tmp197351 + (let ((__tmp197457 (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196419%_ + _%rator-type196525%_ '1 '#f '#f)))) (declare (not safe)) (gxc#verbose '"optimize-call " - _%rator-id196417%_ + _%rator-id196523%_ '" => " - _%rator-type196419%_ + _%rator-type196525%_ '" " - __tmp197351)) - (let* ((_%optimized196434%_ - (let ((__method197338 + __tmp197457)) + (let* ((_%optimized196540%_ + (let ((__method197444 (let () (declare (not safe)) (__method-ref - _%rator-type196419%_ + _%rator-type196525%_ 'optimize-call)))) - (if __method197338 - (let ((__tmp197352 - (let ((__tmp197353 - (lambda (_%g196426196429%_ + (if __method197444 + (let ((__tmp197458 + (let ((__tmp197459 + (lambda (_%g196532196535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196427196431%_) - (cons _%g196426196429%_ _%g196427196431%_)))) + _%g196533196537%_) + (cons _%g196532196535%_ _%g196533196537%_)))) (declare (not safe)) - (__foldr1 __tmp197353 '() _%L196396%_)))) + (__foldr1 __tmp197459 '() _%L196502%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (__method197338 - _%rator-type196419%_ - _%self196203%_ - _%stx196204%_ - __tmp197352)) + (__method197444 + _%rator-type196525%_ + _%self196309%_ + _%stx196310%_ + __tmp197458)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type196419%_ + _%rator-type196525%_ 'optimize-call)) '#!void)))) - (_%__stx196638196639%_ - _%optimized196434%_) - (_%g196437196466%_ + (_%__stx196744196745%_ + _%optimized196540%_) + (_%g196543196572%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196638196639%_))))) - (let ((_%__kont196640196641%_ - (lambda (_%L196534%_ _%L196535%_) - (let* ((_%optimized-rator-id196562%_ + _%__stx196744196745%_))))) + (let ((_%__kont196746196747%_ + (lambda (_%L196640%_ _%L196641%_) + (let* ((_%optimized-rator-id196668%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L196535%_))) - (_%rator-type196567%_ - (let ((_%$e196564%_ + _%L196641%_))) + (_%rator-type196673%_ + (let ((_%$e196670%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%optimized-rator-id196562%_)))) - (if _%$e196564%_ - _%$e196564%_ - _%rator-type196419%_)))) + _%optimized-rator-id196668%_)))) + (if _%$e196670%_ + _%$e196670%_ + _%rator-type196525%_)))) (if (or (let () (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196567%_)) + _%rator-type196673%_)) (let () (declare (not safe)) - (##memq _%optimized-rator-id196562%_ + (##memq _%optimized-rator-id196668%_ gxc#checked-primitives)) (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196567%_ + _%rator-type196673%_ 'gxc#!procedure::t)) (eq? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#!procedure-origin _%rator-type196567%_)) + (gxc#!procedure-origin _%rator-type196673%_)) (##structure-ref (let () (declare (not safe)) @@ -326,226 +326,226 @@ gx#expander-context::t '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%optimized196434%_ - (let ((__tmp197354 + _%optimized196540%_ + (let ((__tmp197460 (cons '%#call-unchecked (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196535%_ '())) - (let ((__tmp197355 - (lambda (_%g196575196578%_ _%g196576196580%_) - (cons _%g196575196578%_ - _%g196576196580%_)))) + (cons _%L196641%_ '())) + (let ((__tmp197461 + (lambda (_%g196681196684%_ _%g196682196686%_) + (cons _%g196681196684%_ + _%g196682196686%_)))) (declare (not safe)) - (__foldr1 __tmp197355 '() _%L196534%_)))))) + (__foldr1 __tmp197461 '() _%L196640%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197354 - _%stx196204%_)))))) - (_%__kont196644196645%_ - (lambda () _%optimized196434%_))) - (let ((_%__match196687196688%_ - (lambda (_%e196441196478%_ - _%hd196442196481%_ - _%tl196443196483%_ - _%e196444196486%_ - _%hd196445196489%_ - _%tl196446196491%_ - _%e196447196494%_ - _%hd196448196497%_ - _%tl196449196499%_ - _%e196450196502%_ - _%hd196451196505%_ - _%tl196452196507%_ - _%__splice196642196643%_ - _%target196453196510%_ - _%tl196455196512%_) - (letrec ((_%loop196456196515%_ - (lambda (_%hd196454196518%_ - _%arg196460196520%_) + __tmp197460 + _%stx196310%_)))))) + (_%__kont196750196751%_ + (lambda () _%optimized196540%_))) + (let ((_%__match196793196794%_ + (lambda (_%e196547196584%_ + _%hd196548196587%_ + _%tl196549196589%_ + _%e196550196592%_ + _%hd196551196595%_ + _%tl196552196597%_ + _%e196553196600%_ + _%hd196554196603%_ + _%tl196555196605%_ + _%e196556196608%_ + _%hd196557196611%_ + _%tl196558196613%_ + _%__splice196748196749%_ + _%target196559196616%_ + _%tl196561196618%_) + (letrec ((_%loop196562196621%_ + (lambda (_%hd196560196624%_ + _%arg196566196626%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd196454196518%_)) - (let ((_%e196457196523%_ + _%hd196560196624%_)) + (let ((_%e196563196629%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd196454196518%_)))) - (let ((_%lp-tl196459196528%_ + (gx#stx-e _%hd196560196624%_)))) + (let ((_%lp-tl196565196634%_ (let () (declare (not safe)) - (##cdr _%e196457196523%_))) - (_%lp-hd196458196526%_ + (##cdr _%e196563196629%_))) + (_%lp-hd196564196632%_ (let () (declare (not safe)) - (##car _%e196457196523%_)))) - (_%loop196456196515%_ - _%lp-tl196459196528%_ - (cons _%lp-hd196458196526%_ _%arg196460196520%_)))) - (let ((_%arg196461196531%_ (reverse _%arg196460196520%_))) - (_%__kont196640196641%_ - _%arg196461196531%_ - _%hd196451196505%_)))))) + (##car _%e196563196629%_)))) + (_%loop196562196621%_ + _%lp-tl196565196634%_ + (cons _%lp-hd196564196632%_ _%arg196566196626%_)))) + (let ((_%arg196567196637%_ (reverse _%arg196566196626%_))) + (_%__kont196746196747%_ + _%arg196567196637%_ + _%hd196557196611%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop196456196515%_ - _%target196453196510%_ + (_%loop196562196621%_ + _%target196559196616%_ '()))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx196638196639%_)) - (let ((_%e196441196478%_ + _%__stx196744196745%_)) + (let ((_%e196547196584%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196638196639%_)))) - (let ((_%tl196443196483%_ + _%__stx196744196745%_)))) + (let ((_%tl196549196589%_ (let () (declare (not safe)) - (##cdr _%e196441196478%_))) - (_%hd196442196481%_ + (##cdr _%e196547196584%_))) + (_%hd196548196587%_ (let () (declare (not safe)) - (##car _%e196441196478%_)))) + (##car _%e196547196584%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196442196481%_)) + _%hd196548196587%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd196442196481%_)) + _%hd196548196587%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196443196483%_)) - (let ((_%e196444196486%_ + _%tl196549196589%_)) + (let ((_%e196550196592%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl196443196483%_)))) - (let ((_%tl196446196491%_ + (gx#stx-e _%tl196549196589%_)))) + (let ((_%tl196552196597%_ (let () (declare (not safe)) - (##cdr _%e196444196486%_))) - (_%hd196445196489%_ + (##cdr _%e196550196592%_))) + (_%hd196551196595%_ (let () (declare (not safe)) - (##car _%e196444196486%_)))) + (##car _%e196550196592%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196445196489%_)) - (let ((_%e196447196494%_ + (gx#stx-pair? _%hd196551196595%_)) + (let ((_%e196553196600%_ (let () (declare (not safe)) - (gx#stx-e _%hd196445196489%_)))) - (let ((_%tl196449196499%_ + (gx#stx-e _%hd196551196595%_)))) + (let ((_%tl196555196605%_ (let () (declare (not safe)) - (##cdr _%e196447196494%_))) - (_%hd196448196497%_ + (##cdr _%e196553196600%_))) + (_%hd196554196603%_ (let () (declare (not safe)) - (##car _%e196447196494%_)))) + (##car _%e196553196600%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd196448196497%_)) + (gx#identifier? _%hd196554196603%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd196448196497%_)) + (gx#stx-eq? '%#ref _%hd196554196603%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196449196499%_)) - (let ((_%e196450196502%_ + (gx#stx-pair? _%tl196555196605%_)) + (let ((_%e196556196608%_ (let () (declare (not safe)) (gx#stx-e - _%tl196449196499%_)))) - (let ((_%tl196452196507%_ + _%tl196555196605%_)))) + (let ((_%tl196558196613%_ (let () (declare (not safe)) - (##cdr _%e196450196502%_))) - (_%hd196451196505%_ + (##cdr _%e196556196608%_))) + (_%hd196557196611%_ (let () (declare (not safe)) - (##car _%e196450196502%_)))) + (##car _%e196556196608%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196452196507%_)) + _%tl196558196613%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196446196491%_)) - (let ((_%__splice196642196643%_ + _%tl196552196597%_)) + (let ((_%__splice196748196749%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196446196491%_ + _%tl196552196597%_ '0)))) - (let ((_%tl196455196512%_ + (let ((_%tl196561196618%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice196642196643%_ '1))) - (_%target196453196510%_ + (##vector-ref _%__splice196748196749%_ '1))) + (_%target196559196616%_ (let () (declare (not safe)) - (##vector-ref _%__splice196642196643%_ '0)))) + (##vector-ref _%__splice196748196749%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196455196512%_)) - (_%__match196687196688%_ - _%e196441196478%_ - _%hd196442196481%_ - _%tl196443196483%_ - _%e196444196486%_ - _%hd196445196489%_ - _%tl196446196491%_ - _%e196447196494%_ - _%hd196448196497%_ - _%tl196449196499%_ - _%e196450196502%_ - _%hd196451196505%_ - _%tl196452196507%_ - _%__splice196642196643%_ - _%target196453196510%_ - _%tl196455196512%_) - (_%__kont196644196645%_)))) + (gx#stx-null? _%tl196561196618%_)) + (_%__match196793196794%_ + _%e196547196584%_ + _%hd196548196587%_ + _%tl196549196589%_ + _%e196550196592%_ + _%hd196551196595%_ + _%tl196552196597%_ + _%e196553196600%_ + _%hd196554196603%_ + _%tl196555196605%_ + _%e196556196608%_ + _%hd196557196611%_ + _%tl196558196613%_ + _%__splice196748196749%_ + _%target196559196616%_ + _%tl196561196618%_) + (_%__kont196750196751%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196644196645%_)) - (_%__kont196644196645%_)))) - (_%__kont196644196645%_)) - (_%__kont196644196645%_)) - (_%__kont196644196645%_)))) - (_%__kont196644196645%_)))) - (_%__kont196644196645%_)) + (_%__kont196750196751%_)) + (_%__kont196750196751%_)))) + (_%__kont196750196751%_)) + (_%__kont196750196751%_)) + (_%__kont196750196751%_)))) + (_%__kont196750196751%_)))) + (_%__kont196750196751%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196644196645%_)) - (_%__kont196644196645%_)))) - (_%__kont196644196645%_)))))) + (_%__kont196750196751%_)) + (_%__kont196750196751%_)))) + (_%__kont196750196751%_)))))) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196419%_ + _%rator-type196525%_ 'gxc#!class::t)) (eq? (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type196419%_ + _%rator-type196525%_ '1 '#f '#f)) 'procedure)) - (let ((__tmp197356 + (let ((__tmp197462 (cons '%#call-unchecked (cons (cons (let () (declare @@ -553,42 +553,42 @@ (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L196397%_ + (cons _%L196503%_ '())) - (map (lambda (_%g196586196588%_) + (map (lambda (_%g196692196694%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196203%_ - _%g196586196588%_))) - (let ((__tmp197357 - (lambda (_%g196590196593%_ + _%self196309%_ + _%g196692196694%_))) + (let ((__tmp197463 + (lambda (_%g196696196699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196591196595%_) - (cons _%g196590196593%_ _%g196591196595%_)))) + _%g196697196701%_) + (cons _%g196696196699%_ _%g196697196701%_)))) (declare (not safe)) - (__foldr1 __tmp197357 '() _%L196396%_))))))) + (__foldr1 __tmp197463 '() _%L196502%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197356 - _%stx196204%_)) + __tmp197462 + _%stx196310%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196204%_ - _%rator-type196419%_)))))))) - (_%__kont196696196697%_ - (lambda (_%L196298%_ _%L196299%_) - (let ((_%rator-type196316%_ + _%stx196310%_ + _%rator-type196525%_)))))))) + (_%__kont196802196803%_ + (lambda (_%L196404%_ _%L196405%_) + (let ((_%rator-type196422%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%L196299%_)))) - (if (and _%rator-type196316%_ + (gxc#apply-basic-expression-type _%L196405%_)))) + (if (and _%rator-type196422%_ (eq? (##structure-ref - _%rator-type196316%_ + _%rator-type196422%_ '1 gxc#!type::t '#f) @@ -597,17 +597,17 @@ (declare (not safe)) (class-instance? gxc#!primitive::t - _%rator-type196316%_)) + _%rator-type196422%_)) '#f (not (and (let () (declare (not safe)) (##structure-instance-of? - _%rator-type196316%_ + _%rator-type196422%_ 'gxc#!procedure::t)) (eq? (let () (declare (not safe)) (gxc#!procedure-origin - _%rator-type196316%_)) + _%rator-type196422%_)) (##structure-ref (let () (declare (not safe)) @@ -615,607 +615,607 @@ '1 gx#expander-context::t '#f)))))) - (let ((__tmp197358 + (let ((__tmp197464 (cons '%#call-unchecked (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self196203%_ - _%L196299%_)) - (map (lambda (_%g196318196320%_) + _%self196309%_ + _%L196405%_)) + (map (lambda (_%g196424196426%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self196203%_ - _%g196318196320%_))) - (let ((__tmp197359 - (lambda (_%g196322196325%_ + _%self196309%_ + _%g196424196426%_))) + (let ((__tmp197465 + (lambda (_%g196428196431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g196323196327%_) - (cons _%g196322196325%_ _%g196323196327%_)))) + _%g196429196433%_) + (cons _%g196428196431%_ _%g196429196433%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197359 + __tmp197465 '() - _%L196298%_))))))) + _%L196404%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197358 _%stx196204%_)) - (if (or (not _%rator-type196316%_) - (let ((__tmp197360 + (gxc#xform-wrap-source __tmp197464 _%stx196310%_)) + (if (or (not _%rator-type196422%_) + (let ((__tmp197466 (##structure-ref - _%rator-type196316%_ + _%rator-type196422%_ '1 gxc#!type::t '#f))) (declare (not safe)) - (##memq __tmp197360 '(t procedure)))) + (##memq __tmp197466 '(t procedure)))) (let () (declare (not safe)) - (gxc#xform-call% _%self196203%_ _%stx196204%_)) + (gxc#xform-call% _%self196309%_ _%stx196310%_)) (let () (declare (not safe)) (gxc#raise-compile-error '"illegal application; not a procedure" - _%stx196204%_ - _%rator-type196316%_)))))))) - (let* ((_%__match196757196758%_ - (lambda (_%e196234196258%_ - _%hd196235196261%_ - _%tl196236196263%_ - _%e196237196266%_ - _%hd196238196269%_ - _%tl196239196271%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) - (letrec ((_%loop196243196279%_ - (lambda (_%hd196241196282%_ - _%rand196247196284%_) + _%stx196310%_ + _%rator-type196422%_)))))))) + (let* ((_%__match196863196864%_ + (lambda (_%e196340196364%_ + _%hd196341196367%_ + _%tl196342196369%_ + _%e196343196372%_ + _%hd196344196375%_ + _%tl196345196377%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) + (letrec ((_%loop196349196385%_ + (lambda (_%hd196347196388%_ + _%rand196353196390%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196241196282%_)) - (let ((_%e196244196287%_ + (gx#stx-pair? _%hd196347196388%_)) + (let ((_%e196350196393%_ (let () (declare (not safe)) - (gx#stx-e _%hd196241196282%_)))) - (let ((_%lp-tl196246196292%_ + (gx#stx-e _%hd196347196388%_)))) + (let ((_%lp-tl196352196398%_ (let () (declare (not safe)) - (##cdr _%e196244196287%_))) - (_%lp-hd196245196290%_ + (##cdr _%e196350196393%_))) + (_%lp-hd196351196396%_ (let () (declare (not safe)) - (##car _%e196244196287%_)))) - (_%loop196243196279%_ - _%lp-tl196246196292%_ - (cons _%lp-hd196245196290%_ - _%rand196247196284%_)))) - (let ((_%rand196248196295%_ - (reverse _%rand196247196284%_))) - (_%__kont196696196697%_ - _%rand196248196295%_ - _%hd196238196269%_)))))) - (_%loop196243196279%_ _%target196240196274%_ '())))) - (_%__match196737196738%_ - (lambda (_%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%e196217196356%_ - _%hd196218196359%_ - _%tl196219196361%_ - _%e196220196364%_ - _%hd196221196367%_ - _%tl196222196369%_ - _%__splice196694196695%_ - _%target196223196372%_ - _%tl196225196374%_) - (letrec ((_%loop196226196377%_ - (lambda (_%hd196224196380%_ - _%rand196230196382%_) + (##car _%e196350196393%_)))) + (_%loop196349196385%_ + _%lp-tl196352196398%_ + (cons _%lp-hd196351196396%_ + _%rand196353196390%_)))) + (let ((_%rand196354196401%_ + (reverse _%rand196353196390%_))) + (_%__kont196802196803%_ + _%rand196354196401%_ + _%hd196344196375%_)))))) + (_%loop196349196385%_ _%target196346196380%_ '())))) + (_%__match196843196844%_ + (lambda (_%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%e196323196462%_ + _%hd196324196465%_ + _%tl196325196467%_ + _%e196326196470%_ + _%hd196327196473%_ + _%tl196328196475%_ + _%__splice196800196801%_ + _%target196329196478%_ + _%tl196331196480%_) + (letrec ((_%loop196332196483%_ + (lambda (_%hd196330196486%_ + _%rand196336196488%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196224196380%_)) - (let ((_%e196227196385%_ + (gx#stx-pair? _%hd196330196486%_)) + (let ((_%e196333196491%_ (let () (declare (not safe)) - (gx#stx-e _%hd196224196380%_)))) - (let ((_%lp-tl196229196390%_ + (gx#stx-e _%hd196330196486%_)))) + (let ((_%lp-tl196335196496%_ (let () (declare (not safe)) - (##cdr _%e196227196385%_))) - (_%lp-hd196228196388%_ + (##cdr _%e196333196491%_))) + (_%lp-hd196334196494%_ (let () (declare (not safe)) - (##car _%e196227196385%_)))) - (_%loop196226196377%_ - _%lp-tl196229196390%_ - (cons _%lp-hd196228196388%_ - _%rand196230196382%_)))) - (let ((_%rand196231196393%_ - (reverse _%rand196230196382%_))) - (_%__kont196692196693%_ - _%rand196231196393%_ - _%hd196221196367%_)))))) - (_%loop196226196377%_ _%target196223196372%_ '()))))) + (##car _%e196333196491%_)))) + (_%loop196332196483%_ + _%lp-tl196335196496%_ + (cons _%lp-hd196334196494%_ + _%rand196336196488%_)))) + (let ((_%rand196337196499%_ + (reverse _%rand196336196488%_))) + (_%__kont196798196799%_ + _%rand196337196499%_ + _%hd196327196473%_)))))) + (_%loop196332196483%_ _%target196329196478%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196690196691%_)) - (let ((_%e196211196340%_ + (gx#stx-pair? _%__stx196796196797%_)) + (let ((_%e196317196446%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196690196691%_)))) - (let ((_%tl196213196345%_ + (gx#stx-e _%__stx196796196797%_)))) + (let ((_%tl196319196451%_ (let () (declare (not safe)) - (##cdr _%e196211196340%_))) - (_%hd196212196343%_ + (##cdr _%e196317196446%_))) + (_%hd196318196449%_ (let () (declare (not safe)) - (##car _%e196211196340%_)))) + (##car _%e196317196446%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl196213196345%_)) - (let ((_%e196214196348%_ + (gx#stx-pair? _%tl196319196451%_)) + (let ((_%e196320196454%_ (let () (declare (not safe)) - (gx#stx-e _%tl196213196345%_)))) - (let ((_%tl196216196353%_ + (gx#stx-e _%tl196319196451%_)))) + (let ((_%tl196322196459%_ (let () (declare (not safe)) - (##cdr _%e196214196348%_))) - (_%hd196215196351%_ + (##cdr _%e196320196454%_))) + (_%hd196321196457%_ (let () (declare (not safe)) - (##car _%e196214196348%_)))) + (##car _%e196320196454%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd196215196351%_)) - (let ((_%e196217196356%_ + (gx#stx-pair? _%hd196321196457%_)) + (let ((_%e196323196462%_ (let () (declare (not safe)) - (gx#stx-e _%hd196215196351%_)))) - (let ((_%tl196219196361%_ + (gx#stx-e _%hd196321196457%_)))) + (let ((_%tl196325196467%_ (let () (declare (not safe)) - (##cdr _%e196217196356%_))) - (_%hd196218196359%_ + (##cdr _%e196323196462%_))) + (_%hd196324196465%_ (let () (declare (not safe)) - (##car _%e196217196356%_)))) + (##car _%e196323196462%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd196218196359%_)) + _%hd196324196465%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd196218196359%_)) + _%hd196324196465%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl196219196361%_)) - (let ((_%e196220196364%_ + _%tl196325196467%_)) + (let ((_%e196326196470%_ (let () (declare (not safe)) (gx#stx-e - _%tl196219196361%_)))) - (let ((_%tl196222196369%_ + _%tl196325196467%_)))) + (let ((_%tl196328196475%_ (let () (declare (not safe)) - (##cdr _%e196220196364%_))) - (_%hd196221196367%_ + (##cdr _%e196326196470%_))) + (_%hd196327196473%_ (let () (declare (not safe)) - (##car _%e196220196364%_)))) + (##car _%e196326196470%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196222196369%_)) + _%tl196328196475%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair/null? _%tl196216196353%_)) - (let ((_%__splice196694196695%_ + (gx#stx-pair/null? _%tl196322196459%_)) + (let ((_%__splice196800196801%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196216196353%_ + _%tl196322196459%_ '0)))) - (let ((_%tl196225196374%_ + (let ((_%tl196331196480%_ (let () (declare (not safe)) - (##vector-ref _%__splice196694196695%_ '1))) - (_%target196223196372%_ + (##vector-ref _%__splice196800196801%_ '1))) + (_%target196329196478%_ (let () (declare (not safe)) - (##vector-ref _%__splice196694196695%_ '0)))) + (##vector-ref _%__splice196800196801%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196225196374%_)) - (_%__match196737196738%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%e196217196356%_ - _%hd196218196359%_ - _%tl196219196361%_ - _%e196220196364%_ - _%hd196221196367%_ - _%tl196222196369%_ - _%__splice196694196695%_ - _%target196223196372%_ - _%tl196225196374%_) + (gx#stx-null? _%tl196331196480%_)) + (_%__match196843196844%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%e196323196462%_ + _%hd196324196465%_ + _%tl196325196467%_ + _%e196326196470%_ + _%hd196327196473%_ + _%tl196328196475%_ + _%__splice196800196801%_ + _%target196329196478%_ + _%tl196331196480%_) (let () (declare (not safe)) - (_%g196207196253%_))))) - (let () (declare (not safe)) (_%g196207196253%_))) + (_%g196313196359%_))))) + (let () (declare (not safe)) (_%g196313196359%_))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196216196353%_)) - (let ((_%__splice196698196699%_ + (gx#stx-pair/null? _%tl196322196459%_)) + (let ((_%__splice196804196805%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196216196353%_ + _%tl196322196459%_ '0)))) - (let ((_%tl196242196276%_ + (let ((_%tl196348196382%_ (let () (declare (not safe)) - (##vector-ref _%__splice196698196699%_ '1))) - (_%target196240196274%_ + (##vector-ref _%__splice196804196805%_ '1))) + (_%target196346196380%_ (let () (declare (not safe)) - (##vector-ref _%__splice196698196699%_ '0)))) + (##vector-ref _%__splice196804196805%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196242196276%_)) - (_%__match196757196758%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) + (gx#stx-null? _%tl196348196382%_)) + (_%__match196863196864%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) (let () (declare (not safe)) - (_%g196207196253%_))))) - (let () (declare (not safe)) (_%g196207196253%_)))))) + (_%g196313196359%_))))) + (let () (declare (not safe)) (_%g196313196359%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196216196353%_)) - (let ((_%__splice196698196699%_ + _%tl196322196459%_)) + (let ((_%__splice196804196805%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl196216196353%_ '0)))) - (let ((_%tl196242196276%_ + (gx#syntax-split-splice _%tl196322196459%_ '0)))) + (let ((_%tl196348196382%_ (let () (declare (not safe)) - (##vector-ref _%__splice196698196699%_ '1))) - (_%target196240196274%_ + (##vector-ref _%__splice196804196805%_ '1))) + (_%target196346196380%_ (let () (declare (not safe)) - (##vector-ref _%__splice196698196699%_ '0)))) + (##vector-ref _%__splice196804196805%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl196242196276%_)) - (_%__match196757196758%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) - (let () (declare (not safe)) (_%g196207196253%_))))) - (let () (declare (not safe)) (_%g196207196253%_)))) + (gx#stx-null? _%tl196348196382%_)) + (_%__match196863196864%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) + (let () (declare (not safe)) (_%g196313196359%_))))) + (let () (declare (not safe)) (_%g196313196359%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196216196353%_)) - (let ((_%__splice196698196699%_ + _%tl196322196459%_)) + (let ((_%__splice196804196805%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196216196353%_ + _%tl196322196459%_ '0)))) - (let ((_%tl196242196276%_ + (let ((_%tl196348196382%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '1))) - (_%target196240196274%_ + (_%target196346196380%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196242196276%_)) - (_%__match196757196758%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) + _%tl196348196382%_)) + (_%__match196863196864%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) (let () (declare (not safe)) - (_%g196207196253%_))))) + (_%g196313196359%_))))) (let () (declare (not safe)) - (_%g196207196253%_)))) + (_%g196313196359%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl196216196353%_)) - (let ((_%__splice196698196699%_ + _%tl196322196459%_)) + (let ((_%__splice196804196805%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196216196353%_ + _%tl196322196459%_ '0)))) - (let ((_%tl196242196276%_ + (let ((_%tl196348196382%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '1))) - (_%target196240196274%_ + (_%target196346196380%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196242196276%_)) - (_%__match196757196758%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) + _%tl196348196382%_)) + (_%__match196863196864%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) (let () (declare (not safe)) - (_%g196207196253%_))))) + (_%g196313196359%_))))) (let () (declare (not safe)) - (_%g196207196253%_)))))) + (_%g196313196359%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl196216196353%_)) - (let ((_%__splice196698196699%_ + (gx#stx-pair/null? _%tl196322196459%_)) + (let ((_%__splice196804196805%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl196216196353%_ + _%tl196322196459%_ '0)))) - (let ((_%tl196242196276%_ + (let ((_%tl196348196382%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '1))) - (_%target196240196274%_ + (_%target196346196380%_ (let () (declare (not safe)) (##vector-ref - _%__splice196698196699%_ + _%__splice196804196805%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl196242196276%_)) - (_%__match196757196758%_ - _%e196211196340%_ - _%hd196212196343%_ - _%tl196213196345%_ - _%e196214196348%_ - _%hd196215196351%_ - _%tl196216196353%_ - _%__splice196698196699%_ - _%target196240196274%_ - _%tl196242196276%_) + _%tl196348196382%_)) + (_%__match196863196864%_ + _%e196317196446%_ + _%hd196318196449%_ + _%tl196319196451%_ + _%e196320196454%_ + _%hd196321196457%_ + _%tl196322196459%_ + _%__splice196804196805%_ + _%target196346196380%_ + _%tl196348196382%_) (let () (declare (not safe)) - (_%g196207196253%_))))) + (_%g196313196359%_))))) (let () (declare (not safe)) - (_%g196207196253%_)))))) - (let () (declare (not safe)) (_%g196207196253%_))))) - (let () (declare (not safe)) (_%g196207196253%_)))))))) + (_%g196313196359%_)))))) + (let () (declare (not safe)) (_%g196313196359%_))))) + (let () (declare (not safe)) (_%g196313196359%_)))))))) (define gxc#!procedure::optimize-call - (lambda (_%self192582196163%_ _%ctx196165%_ _%stx196166%_ _%args196167%_) - (let* ((_%self196169%_ _%self192582196163%_) - (_%self196171%_ _%self196169%_)) - (if (let ((__method197339 + (lambda (_%self192688196269%_ _%ctx196271%_ _%stx196272%_ _%args196273%_) + (let* ((_%self196275%_ _%self192688196269%_) + (_%self196277%_ _%self196275%_)) + (if (let ((__method197445 (let () (declare (not safe)) - (__method-ref _%self196171%_ 'check-arguments)))) - (if __method197339 + (__method-ref _%self196277%_ 'check-arguments)))) + (if __method197445 (let () (declare (not safe)) - (__method197339 - _%self196171%_ - _%ctx196165%_ - _%stx196166%_ - _%args196167%_)) + (__method197445 + _%self196277%_ + _%ctx196271%_ + _%stx196272%_ + _%args196273%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self196171%_ + _%self196277%_ 'check-arguments)) '#!void))) - (let* ((_%signature196181%_ + (let* ((_%signature196287%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self196171%_ '2 '#f '#f))) - (_%signature196183%_ _%signature196181%_) - (_%$e196193%_ - (if _%signature196183%_ + (##unchecked-structure-ref _%self196277%_ '2 '#f '#f))) + (_%signature196289%_ _%signature196287%_) + (_%$e196299%_ + (if _%signature196289%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196183%_ + _%signature196289%_ '4 '#f '#f)) '#f))) - (if _%$e196193%_ - ((lambda (_%unchecked196196%_) + (if _%$e196299%_ + ((lambda (_%unchecked196302%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%unchecked196196%_)) - (let ((__tmp197361 + (gxc#symbol-in-local-scope? _%unchecked196302%_)) + (let ((__tmp197467 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196196%_ + (cons _%unchecked196302%_ '())) - (map (lambda (_%g196197196199%_) + (map (lambda (_%g196303196305%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196165%_ - _%g196197196199%_))) - _%args196167%_))))) + _%ctx196271%_ + _%g196303196305%_))) + _%args196273%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197361 - _%stx196166%_ - _%ctx196165%_)) + __tmp197467 + _%stx196272%_ + _%ctx196271%_)) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) - _%$e196193%_) + (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) + _%$e196299%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) + (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))))) + (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))))) (define gxc#!procedure::optimize-call::specialize - (lambda (__klass196623 __method-table196624) - (let ((__check-arguments196625 - (let ((__tmp197362 + (lambda (__klass196729 __method-table196730) + (let ((__check-arguments196731 + (let ((__tmp197468 (lambda () - (let ((__method196626 + (let ((__method196732 (let () (declare (not safe)) (symbolic-table-ref - __method-table196624 + __method-table196730 'check-arguments '#f)))) - (if __method196626 - __method196626 + (if __method196732 + __method196732 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197362)))) - (lambda (_%self192582196163%_ - _%ctx196165%_ - _%stx196166%_ - _%args196167%_) - (let* ((_%self196169%_ _%self192582196163%_) - (_%self196171%_ _%self196169%_)) - (if ((force __check-arguments196625) - _%self196171%_ - _%ctx196165%_ - _%stx196166%_ - _%args196167%_) - (let* ((_%signature196181%_ + (__make-promise __tmp197468)))) + (lambda (_%self192688196269%_ + _%ctx196271%_ + _%stx196272%_ + _%args196273%_) + (let* ((_%self196275%_ _%self192688196269%_) + (_%self196277%_ _%self196275%_)) + (if ((force __check-arguments196731) + _%self196277%_ + _%ctx196271%_ + _%stx196272%_ + _%args196273%_) + (let* ((_%signature196287%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self196171%_ + _%self196277%_ '2 '#f '#f))) - (_%signature196183%_ _%signature196181%_) - (_%$e196193%_ - (if _%signature196183%_ + (_%signature196289%_ _%signature196287%_) + (_%$e196299%_ + (if _%signature196289%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature196183%_ + _%signature196289%_ '4 '#f '#f)) '#f))) - (if _%$e196193%_ - ((lambda (_%unchecked196196%_) + (if _%$e196299%_ + ((lambda (_%unchecked196302%_) (if (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%unchecked196196%_)) - (let ((__tmp197363 + _%unchecked196302%_)) + (let ((__tmp197469 (cons '%#call (cons (cons '%#ref - (cons _%unchecked196196%_ + (cons _%unchecked196302%_ '())) - (map (lambda (_%g196197196199%_) + (map (lambda (_%g196303196305%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx196165%_ - _%g196197196199%_))) - _%args196167%_))))) + _%ctx196271%_ + _%g196303196305%_))) + _%args196273%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197363 - _%stx196166%_ - _%ctx196165%_)) + __tmp197469 + _%stx196272%_ + _%ctx196271%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx196165%_ - _%stx196166%_)))) - _%$e196193%_) + _%ctx196271%_ + _%stx196272%_)))) + _%$e196299%_) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))) + (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx196165%_ _%stx196166%_)))))))) + (gxc#xform-call% _%ctx196271%_ _%stx196272%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -1229,136 +1229,136 @@ gxc#!procedure::optimize-call '#f)) (define gxc#!procedure::check-arguments - (lambda (_%self192583195912%_ _%ctx195914%_ _%stx195915%_ _%args195916%_) - (let* ((_%self195918%_ _%self192583195912%_) - (_%self195920%_ _%self195918%_) - (_%signature195929195931%_ + (lambda (_%self192689196018%_ _%ctx196020%_ _%stx196021%_ _%args196022%_) + (let* ((_%self196024%_ _%self192689196018%_) + (_%self196026%_ _%self196024%_) + (_%signature196035196037%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self195920%_ '2 '#f '#f)))) - (if _%signature195929195931%_ - (let* ((_%signature195934%_ _%signature195929195931%_) - (_%argument-types195935195937%_ + (##unchecked-structure-ref _%self196026%_ '2 '#f '#f)))) + (if _%signature196035196037%_ + (let* ((_%signature196040%_ _%signature196035196037%_) + (_%argument-types196041196043%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%signature195934%_ + _%signature196040%_ '3 '#f '#f)))) - (if _%argument-types195935195937%_ - (let* ((_%argument-types195940%_ - _%argument-types195935195937%_) - (_%argument-types195945%_ - (let ((__tmp197364 - (lambda (_%t195943%_) - (if _%t195943%_ + (if _%argument-types196041196043%_ + (let* ((_%argument-types196046%_ + _%argument-types196041196043%_) + (_%argument-types196051%_ + (let ((__tmp197470 + (lambda (_%t196049%_) + (if _%t196049%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195915%_ - _%t195943%_)) + _%stx196021%_ + _%t196049%_)) '#f)))) (declare (not safe)) (gxc#map* - __tmp197364 - _%argument-types195940%_)))) - (let _%loop195947%_ ((_%rest-args195949%_ _%args195916%_) - (_%rest-types195950%_ - _%argument-types195945%_) - (_%result195951%_ '#t)) - (let* ((_%rest-args195952195960%_ _%rest-args195949%_) - (_%else195954195968%_ - (lambda () _%result195951%_)) - (_%K195956196029%_ - (lambda (_%rest-args195971%_ _%arg195972%_) - (let* ((_%rest-types195973195984%_ - _%rest-types195950%_) - (_%E195977195988%_ + __tmp197470 + _%argument-types196046%_)))) + (let _%loop196053%_ ((_%rest-args196055%_ _%args196022%_) + (_%rest-types196056%_ + _%argument-types196051%_) + (_%result196057%_ '#t)) + (let* ((_%rest-args196058196066%_ _%rest-args196055%_) + (_%else196060196074%_ + (lambda () _%result196057%_)) + (_%K196062196135%_ + (lambda (_%rest-args196077%_ _%arg196078%_) + (let* ((_%rest-types196079196090%_ + _%rest-types196056%_) + (_%E196083196094%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-types195973195984%_ + _%rest-types196079196090%_ '([type . rest-types]) '([]) '(tail-type))) '#!void))) - (let ((_%K195980196017%_ - (lambda (_%rest-types196014%_ - _%type196015%_) - (_%loop195947%_ - _%rest-args195971%_ - _%rest-types196014%_ + (let ((_%K196086196123%_ + (lambda (_%rest-types196120%_ + _%type196121%_) + (_%loop196053%_ + _%rest-args196077%_ + _%rest-types196120%_ (if (gxc#check-expression-type! - _%stx195915%_ - _%arg195972%_ - _%type196015%_) - _%result195951%_ + _%stx196021%_ + _%arg196078%_ + _%type196121%_) + _%result196057%_ '#f)))) - (_%K195979196008%_ + (_%K196085196114%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"signature arity mismatch" - _%stx195915%_ - _%argument-types195945%_)))) - (_%K195978195998%_ - (lambda (_%tail-type195992%_) - (if (let ((__tmp197365 - (lambda (_%g195993195995%_) + _%stx196021%_ + _%argument-types196051%_)))) + (_%K196084196104%_ + (lambda (_%tail-type196098%_) + (if (let ((__tmp197471 + (lambda (_%g196099196101%_) (gxc#check-expression-type! - _%stx195915%_ - _%g195993195995%_ - _%tail-type195992%_)))) + _%stx196021%_ + _%g196099196101%_ + _%tail-type196098%_)))) (declare (not safe)) (__andmap1 - __tmp197365 - _%rest-args195971%_)) - _%result195951%_ + __tmp197471 + _%rest-args196077%_)) + _%result196057%_ '#f)))) - (let ((_%try-match195975196011%_ + (let ((_%try-match196081196117%_ (lambda () - (if (null? _%rest-types195973195984%_) - (_%K195979196008%_) - (let ((_%tail-type196001%_ - _%rest-types195973195984%_)) - (_%K195978195998%_ - _%tail-type196001%_)))))) - (if (pair? _%rest-types195973195984%_) - (let ((_%tl195982196022%_ + (if (null? _%rest-types196079196090%_) + (_%K196085196114%_) + (let ((_%tail-type196107%_ + _%rest-types196079196090%_)) + (_%K196084196104%_ + _%tail-type196107%_)))))) + (if (pair? _%rest-types196079196090%_) + (let ((_%tl196088196128%_ (let () (declare (not safe)) - (##cdr _%rest-types195973195984%_))) - (_%hd195981196020%_ + (##cdr _%rest-types196079196090%_))) + (_%hd196087196126%_ (let () (declare (not safe)) - (##car _%rest-types195973195984%_)))) - (let ((_%type196025%_ - _%hd195981196020%_) - (_%rest-types196027%_ - _%tl195982196022%_)) - (_%K195980196017%_ - _%rest-types196027%_ - _%type196025%_))) - (_%try-match195975196011%_)))))))) - (if (pair? _%rest-args195952195960%_) - (let ((_%hd195957196032%_ + (##car _%rest-types196079196090%_)))) + (let ((_%type196131%_ + _%hd196087196126%_) + (_%rest-types196133%_ + _%tl196088196128%_)) + (_%K196086196123%_ + _%rest-types196133%_ + _%type196131%_))) + (_%try-match196081196117%_)))))))) + (if (pair? _%rest-args196058196066%_) + (let ((_%hd196063196138%_ (let () (declare (not safe)) - (##car _%rest-args195952195960%_))) - (_%tl195958196034%_ + (##car _%rest-args196058196066%_))) + (_%tl196064196140%_ (let () (declare (not safe)) - (##cdr _%rest-args195952195960%_)))) - (let* ((_%arg196037%_ _%hd195957196032%_) - (_%rest-args196039%_ - _%tl195958196034%_)) - (_%K195956196029%_ - _%rest-args196039%_ - _%arg196037%_))) - (_%else195954195968%_))))) + (##cdr _%rest-args196058196066%_)))) + (let* ((_%arg196143%_ _%hd196063196138%_) + (_%rest-args196145%_ + _%tl196064196140%_)) + (_%K196062196135%_ + _%rest-args196145%_ + _%arg196143%_))) + (_%else196060196074%_))))) '#f)) '#f)))) (let () @@ -1369,94 +1369,94 @@ gxc#!procedure::check-arguments '#f)) (define gxc#!primitive-predicate::optimize-call - (lambda (_%self192584195721%_ _%ctx195723%_ _%stx195724%_ _%args195725%_) - (let* ((_%self195727%_ _%self192584195721%_) - (_%self195729%_ _%self195727%_) - (_%g195739195749%_ - (lambda (_%g195740195746%_) + (lambda (_%self192690195827%_ _%ctx195829%_ _%stx195830%_ _%args195831%_) + (let* ((_%self195833%_ _%self192690195827%_) + (_%self195835%_ _%self195833%_) + (_%g195845195855%_ + (lambda (_%g195846195852%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195740195746%_)))) - (_%g195738195787%_ - (lambda (_%g195740195752%_) + _%g195846195852%_)))) + (_%g195844195893%_ + (lambda (_%g195846195858%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195740195752%_)) - (let ((_%e195742195754%_ + (gx#stx-pair? _%g195846195858%_)) + (let ((_%e195848195860%_ (let () (declare (not safe)) - (gx#stx-e _%g195740195752%_)))) - (let ((_%hd195743195757%_ + (gx#stx-e _%g195846195858%_)))) + (let ((_%hd195849195863%_ (let () (declare (not safe)) - (##car _%e195742195754%_))) - (_%tl195744195759%_ + (##car _%e195848195860%_))) + (_%tl195850195865%_ (let () (declare (not safe)) - (##cdr _%e195742195754%_)))) + (##cdr _%e195848195860%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195744195759%_)) - ((lambda (_%L195762%_) - (let* ((_%klass195774%_ - (let ((__tmp197366 + (gx#stx-null? _%tl195850195865%_)) + ((lambda (_%L195868%_) + (let* ((_%klass195880%_ + (let ((__tmp197472 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195729%_ + _%self195835%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195724%_ - __tmp197366))) - (_%object195776%_ + _%stx195830%_ + __tmp197472))) + (_%object195882%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195723%_ - _%L195762%_))) - (_%instance?195781%_ - (let ((_%$e195778%_ + _%ctx195829%_ + _%L195868%_))) + (_%instance?195887%_ + (let ((_%$e195884%_ (gxc#expression-type? - _%object195776%_ - _%klass195774%_))) - (if _%$e195778%_ - _%$e195778%_ + _%object195882%_ + _%klass195880%_))) + (if _%$e195884%_ + _%$e195884%_ (gxc#expression-type? - _%L195762%_ - _%klass195774%_))))) - (if _%instance?195781%_ - (let ((__tmp197367 + _%L195868%_ + _%klass195880%_))))) + (if _%instance?195887%_ + (let ((__tmp197473 (if (or (gxc#expression-no-side-effects? - _%object195776%_) + _%object195882%_) (gxc#expression-no-side-effects? - _%L195762%_)) + _%L195868%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195776%_ + (cons _%object195882%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197367 - _%stx195724%_)) + __tmp197473 + _%stx195830%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx195723%_ - _%stx195724%_))))) - _%hd195743195757%_) - (_%g195739195749%_ _%g195740195752%_)))) - (_%g195739195749%_ _%g195740195752%_))))) - (_%g195738195787%_ _%args195725%_)))) + _%ctx195829%_ + _%stx195830%_))))) + _%hd195849195863%_) + (_%g195845195855%_ _%g195846195858%_)))) + (_%g195845195855%_ _%g195846195858%_))))) + (_%g195844195893%_ _%args195831%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1465,137 +1465,137 @@ gxc#!primitive-predicate::optimize-call '#f)) (define gxc#!predicate::optimize-call - (lambda (_%self192585195515%_ _%ctx195517%_ _%stx195518%_ _%args195519%_) - (let* ((_%self195521%_ _%self192585195515%_) - (_%self195523%_ _%self195521%_) - (_%g195533195543%_ - (lambda (_%g195534195540%_) + (lambda (_%self192691195621%_ _%ctx195623%_ _%stx195624%_ _%args195625%_) + (let* ((_%self195627%_ _%self192691195621%_) + (_%self195629%_ _%self195627%_) + (_%g195639195649%_ + (lambda (_%g195640195646%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g195534195540%_)))) - (_%g195532195596%_ - (lambda (_%g195534195546%_) + _%g195640195646%_)))) + (_%g195638195702%_ + (lambda (_%g195640195652%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g195534195546%_)) - (let ((_%e195536195548%_ + (gx#stx-pair? _%g195640195652%_)) + (let ((_%e195642195654%_ (let () (declare (not safe)) - (gx#stx-e _%g195534195546%_)))) - (let ((_%hd195537195551%_ + (gx#stx-e _%g195640195652%_)))) + (let ((_%hd195643195657%_ (let () (declare (not safe)) - (##car _%e195536195548%_))) - (_%tl195538195553%_ + (##car _%e195642195654%_))) + (_%tl195644195659%_ (let () (declare (not safe)) - (##cdr _%e195536195548%_)))) + (##cdr _%e195642195654%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195538195553%_)) - ((lambda (_%L195556%_) - (let* ((_%klass195568%_ - (let ((__tmp197368 + (gx#stx-null? _%tl195644195659%_)) + ((lambda (_%L195662%_) + (let* ((_%klass195674%_ + (let ((__tmp197474 (let () (declare (not safe)) (##unchecked-structure-ref - _%self195523%_ + _%self195629%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx195518%_ - __tmp197368))) - (_%object195570%_ + _%stx195624%_ + __tmp197474))) + (_%object195676%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx195517%_ - _%L195556%_))) - (_%instance?195575%_ - (let ((_%$e195572%_ + _%ctx195623%_ + _%L195662%_))) + (_%instance?195681%_ + (let ((_%$e195678%_ (gxc#expression-type? - _%object195570%_ - _%klass195568%_))) - (if _%$e195572%_ - _%$e195572%_ + _%object195676%_ + _%klass195674%_))) + (if _%$e195678%_ + _%$e195678%_ (gxc#expression-type? - _%L195556%_ - _%klass195568%_)))) - (_%klass195578%_ _%klass195568%_)) - (if _%instance?195575%_ - (let ((__tmp197369 + _%L195662%_ + _%klass195674%_)))) + (_%klass195684%_ _%klass195674%_)) + (if _%instance?195681%_ + (let ((__tmp197475 (if (or (gxc#expression-no-side-effects? - _%object195570%_) + _%object195676%_) (gxc#expression-no-side-effects? - _%L195556%_)) + _%L195662%_)) (cons '%#quote (cons '#t '())) (cons '%#begin - (cons _%object195570%_ + (cons _%object195676%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197369 - _%stx195518%_)) + __tmp197475 + _%stx195624%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195578%_ + _%klass195684%_ '8 '#f '#f)) - (let ((__tmp197370 + (let ((__tmp197476 (cons '%#struct-direct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195578%_ + _%klass195684%_ '1 '#f '#f)) '())) - (cons _%object195570%_ '()))))) + (cons _%object195676%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197370 - _%stx195518%_)) + __tmp197476 + _%stx195624%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195578%_ + _%klass195684%_ '7 '#f '#f)) - (let ((__tmp197371 + (let ((__tmp197477 (cons '%#struct-instance? (cons (cons '%#quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass195578%_ + _%klass195684%_ '1 '#f '#f)) '())) - (cons _%object195570%_ '()))))) + (cons _%object195676%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197371 - _%stx195518%_)) - (let ((__tmp197372 + __tmp197477 + _%stx195624%_)) + (let ((__tmp197478 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -1604,21 +1604,21 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self195523%_ + _%self195629%_ '1 '#f '#f)) '())) - (cons _%object195570%_ '())))))) + (cons _%object195676%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197372 - _%stx195518%_))))))) - _%hd195537195551%_) - (_%g195533195543%_ _%g195534195546%_)))) - (_%g195533195543%_ _%g195534195546%_))))) - (_%g195532195596%_ _%args195519%_)))) + __tmp197478 + _%stx195624%_))))))) + _%hd195643195657%_) + (_%g195639195649%_ _%g195640195652%_)))) + (_%g195639195649%_ _%g195640195652%_))))) + (_%g195638195702%_ _%args195625%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -1627,419 +1627,419 @@ gxc#!predicate::optimize-call '#f)) (define gxc#expression-no-side-effects? - (lambda (_%stx195178%_) - (let* ((_%__stx196767196768%_ _%stx195178%_) - (_%g195183195224%_ + (lambda (_%stx195284%_) + (let* ((_%__stx196873196874%_ _%stx195284%_) + (_%g195289195330%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196767196768%_))))) - (let ((_%__kont196769196770%_ (lambda () '#t)) - (_%__kont196771196772%_ (lambda () '#t)) - (_%__kont196773196774%_ - (lambda (_%L195292%_ _%L195293%_) - (let ((_%rator-type195314195316%_ - (let ((__tmp197373 + _%__stx196873196874%_))))) + (let ((_%__kont196875196876%_ (lambda () '#t)) + (_%__kont196877196878%_ (lambda () '#t)) + (_%__kont196879196880%_ + (lambda (_%L195398%_ _%L195399%_) + (let ((_%rator-type195420195422%_ + (let ((__tmp197479 (let () (declare (not safe)) - (gxc#identifier-symbol _%L195293%_)))) + (gxc#identifier-symbol _%L195399%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp197373)))) - (if _%rator-type195314195316%_ - (let* ((_%rator-type195319%_ - _%rator-type195314195316%_) - (_%rator-signature195320195322%_ + (gxc#optimizer-resolve-type __tmp197479)))) + (if _%rator-type195420195422%_ + (let* ((_%rator-type195425%_ + _%rator-type195420195422%_) + (_%rator-signature195426195428%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type195319%_ + _%rator-type195425%_ 'gxc#!procedure::t)) (let () (declare (not safe)) (##unchecked-structure-ref - _%rator-type195319%_ + _%rator-type195425%_ '2 '#f '#f)) '#f))) - (if _%rator-signature195320195322%_ - (let* ((_%rator-signature195325%_ - _%rator-signature195320195322%_) - (_%rator-effect195326195328%_ - (if _%rator-signature195325%_ + (if _%rator-signature195426195428%_ + (let* ((_%rator-signature195431%_ + _%rator-signature195426195428%_) + (_%rator-effect195432195434%_ + (if _%rator-signature195431%_ (##direct-structure-ref - _%rator-signature195325%_ + _%rator-signature195431%_ '2 gxc#!signature::t '#f) '#f))) - (if _%rator-effect195326195328%_ - (let ((_%rator-effect195331%_ - _%rator-effect195326195328%_)) + (if _%rator-effect195432195434%_ + (let ((_%rator-effect195437%_ + _%rator-effect195432195434%_)) (if (or (equal? '(pure) - _%rator-effect195331%_) + _%rator-effect195437%_) (equal? '(alloc) - _%rator-effect195331%_)) - (let ((__tmp197374 - (let ((__tmp197375 - (lambda (_%g195336195339%_ + _%rator-effect195437%_)) + (let ((__tmp197480 + (let ((__tmp197481 + (lambda (_%g195442195445%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g195337195341%_) - (cons _%g195336195339%_ _%g195337195341%_)))) + _%g195443195447%_) + (cons _%g195442195445%_ _%g195443195447%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp197375 + __tmp197481 '() - _%L195292%_)))) + _%L195398%_)))) (declare (not safe)) (__andmap1 gxc#expression-no-side-effects? - __tmp197374)) + __tmp197480)) '#f)) '#f)) '#f)) '#f)))) - (_%__kont196777196778%_ (lambda () '#f))) - (let ((_%__match196856196857%_ - (lambda (_%e195199195236%_ - _%hd195200195239%_ - _%tl195201195241%_ - _%e195202195244%_ - _%hd195203195247%_ - _%tl195204195249%_ - _%e195205195252%_ - _%hd195206195255%_ - _%tl195207195257%_ - _%e195208195260%_ - _%hd195209195263%_ - _%tl195210195265%_ - _%__splice196775196776%_ - _%target195211195268%_ - _%tl195213195270%_) - (letrec ((_%loop195214195273%_ - (lambda (_%hd195212195276%_ - _%rand195218195278%_) + (_%__kont196883196884%_ (lambda () '#f))) + (let ((_%__match196962196963%_ + (lambda (_%e195305195342%_ + _%hd195306195345%_ + _%tl195307195347%_ + _%e195308195350%_ + _%hd195309195353%_ + _%tl195310195355%_ + _%e195311195358%_ + _%hd195312195361%_ + _%tl195313195363%_ + _%e195314195366%_ + _%hd195315195369%_ + _%tl195316195371%_ + _%__splice196881196882%_ + _%target195317195374%_ + _%tl195319195376%_) + (letrec ((_%loop195320195379%_ + (lambda (_%hd195318195382%_ + _%rand195324195384%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd195212195276%_)) - (let ((_%e195215195281%_ + (gx#stx-pair? _%hd195318195382%_)) + (let ((_%e195321195387%_ (let () (declare (not safe)) - (gx#stx-e _%hd195212195276%_)))) - (let ((_%lp-tl195217195286%_ + (gx#stx-e _%hd195318195382%_)))) + (let ((_%lp-tl195323195392%_ (let () (declare (not safe)) - (##cdr _%e195215195281%_))) - (_%lp-hd195216195284%_ + (##cdr _%e195321195387%_))) + (_%lp-hd195322195390%_ (let () (declare (not safe)) - (##car _%e195215195281%_)))) - (_%loop195214195273%_ - _%lp-tl195217195286%_ - (cons _%lp-hd195216195284%_ - _%rand195218195278%_)))) - (let ((_%rand195219195289%_ - (reverse _%rand195218195278%_))) - (_%__kont196773196774%_ - _%rand195219195289%_ - _%hd195209195263%_)))))) - (_%loop195214195273%_ _%target195211195268%_ '()))))) + (##car _%e195321195387%_)))) + (_%loop195320195379%_ + _%lp-tl195323195392%_ + (cons _%lp-hd195322195390%_ + _%rand195324195384%_)))) + (let ((_%rand195325195395%_ + (reverse _%rand195324195384%_))) + (_%__kont196879196880%_ + _%rand195325195395%_ + _%hd195315195369%_)))))) + (_%loop195320195379%_ _%target195317195374%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196767196768%_)) - (let ((_%e195185195372%_ + (gx#stx-pair? _%__stx196873196874%_)) + (let ((_%e195291195478%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196767196768%_)))) - (let ((_%tl195187195377%_ + (gx#stx-e _%__stx196873196874%_)))) + (let ((_%tl195293195483%_ (let () (declare (not safe)) - (##cdr _%e195185195372%_))) - (_%hd195186195375%_ + (##cdr _%e195291195478%_))) + (_%hd195292195481%_ (let () (declare (not safe)) - (##car _%e195185195372%_)))) + (##car _%e195291195478%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd195186195375%_)) + (gx#identifier? _%hd195292195481%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd195186195375%_)) + (gx#stx-eq? '%#quote _%hd195292195481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195187195377%_)) - (let ((_%e195188195380%_ + (gx#stx-pair? _%tl195293195483%_)) + (let ((_%e195294195486%_ (let () (declare (not safe)) - (gx#stx-e _%tl195187195377%_)))) - (let ((_%tl195190195385%_ + (gx#stx-e _%tl195293195483%_)))) + (let ((_%tl195296195491%_ (let () (declare (not safe)) - (##cdr _%e195188195380%_))) - (_%hd195189195383%_ + (##cdr _%e195294195486%_))) + (_%hd195295195489%_ (let () (declare (not safe)) - (##car _%e195188195380%_)))) + (##car _%e195294195486%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195190195385%_)) - (_%__kont196769196770%_) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)) + (gx#stx-null? _%tl195296195491%_)) + (_%__kont196875196876%_) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd195186195375%_)) + (gx#stx-eq? '%#ref _%hd195292195481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195187195377%_)) - (let ((_%e195194195357%_ + (gx#stx-pair? _%tl195293195483%_)) + (let ((_%e195300195463%_ (let () (declare (not safe)) - (gx#stx-e _%tl195187195377%_)))) - (let ((_%tl195196195362%_ + (gx#stx-e _%tl195293195483%_)))) + (let ((_%tl195302195468%_ (let () (declare (not safe)) - (##cdr _%e195194195357%_))) - (_%hd195195195360%_ + (##cdr _%e195300195463%_))) + (_%hd195301195466%_ (let () (declare (not safe)) - (##car _%e195194195357%_)))) + (##car _%e195300195463%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195196195362%_)) - (_%__kont196771196772%_) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)) + _%tl195302195468%_)) + (_%__kont196877196878%_) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd195186195375%_)) + _%hd195292195481%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195187195377%_)) - (let ((_%e195202195244%_ + (gx#stx-pair? _%tl195293195483%_)) + (let ((_%e195308195350%_ (let () (declare (not safe)) (gx#stx-e - _%tl195187195377%_)))) - (let ((_%tl195204195249%_ + _%tl195293195483%_)))) + (let ((_%tl195310195355%_ (let () (declare (not safe)) - (##cdr _%e195202195244%_))) - (_%hd195203195247%_ + (##cdr _%e195308195350%_))) + (_%hd195309195353%_ (let () (declare (not safe)) - (##car _%e195202195244%_)))) + (##car _%e195308195350%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195203195247%_)) - (let ((_%e195205195252%_ + _%hd195309195353%_)) + (let ((_%e195311195358%_ (let () (declare (not safe)) (gx#stx-e - _%hd195203195247%_)))) - (let ((_%tl195207195257%_ + _%hd195309195353%_)))) + (let ((_%tl195313195363%_ (let () (declare (not safe)) - (##cdr _%e195205195252%_))) - (_%hd195206195255%_ + (##cdr _%e195311195358%_))) + (_%hd195312195361%_ (let () (declare (not safe)) - (##car _%e195205195252%_)))) + (##car _%e195311195358%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195206195255%_)) + _%hd195312195361%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd195206195255%_)) + (gx#stx-eq? '%#ref _%hd195312195361%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195207195257%_)) - (let ((_%e195208195260%_ + (gx#stx-pair? _%tl195313195363%_)) + (let ((_%e195314195366%_ (let () (declare (not safe)) - (gx#stx-e _%tl195207195257%_)))) - (let ((_%tl195210195265%_ + (gx#stx-e _%tl195313195363%_)))) + (let ((_%tl195316195371%_ (let () (declare (not safe)) - (##cdr _%e195208195260%_))) - (_%hd195209195263%_ + (##cdr _%e195314195366%_))) + (_%hd195315195369%_ (let () (declare (not safe)) - (##car _%e195208195260%_)))) + (##car _%e195314195366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195210195265%_)) + (gx#stx-null? _%tl195316195371%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl195204195249%_)) - (let ((_%__splice196775196776%_ + (gx#stx-pair/null? _%tl195310195355%_)) + (let ((_%__splice196881196882%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl195204195249%_ + _%tl195310195355%_ '0)))) - (let ((_%tl195213195270%_ + (let ((_%tl195319195376%_ (let () (declare (not safe)) (##vector-ref - _%__splice196775196776%_ + _%__splice196881196882%_ '1))) - (_%target195211195268%_ + (_%target195317195374%_ (let () (declare (not safe)) (##vector-ref - _%__splice196775196776%_ + _%__splice196881196882%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl195213195270%_)) - (_%__match196856196857%_ - _%e195185195372%_ - _%hd195186195375%_ - _%tl195187195377%_ - _%e195202195244%_ - _%hd195203195247%_ - _%tl195204195249%_ - _%e195205195252%_ - _%hd195206195255%_ - _%tl195207195257%_ - _%e195208195260%_ - _%hd195209195263%_ - _%tl195210195265%_ - _%__splice196775196776%_ - _%target195211195268%_ - _%tl195213195270%_) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)) - (_%__kont196777196778%_)) - (_%__kont196777196778%_)))) + _%tl195319195376%_)) + (_%__match196962196963%_ + _%e195291195478%_ + _%hd195292195481%_ + _%tl195293195483%_ + _%e195308195350%_ + _%hd195309195353%_ + _%tl195310195355%_ + _%e195311195358%_ + _%hd195312195361%_ + _%tl195313195363%_ + _%e195314195366%_ + _%hd195315195369%_ + _%tl195316195371%_ + _%__splice196881196882%_ + _%target195317195374%_ + _%tl195319195376%_) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)) + (_%__kont196883196884%_)) + (_%__kont196883196884%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_)))) - (_%__kont196777196778%_))))))) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_)))) + (_%__kont196883196884%_))))))) (define gxc#expression-type? - (lambda (_%stx195173%_ _%klass195174%_) - (let ((_%expr-type195176%_ + (lambda (_%stx195279%_ _%klass195280%_) + (let ((_%expr-type195282%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%stx195173%_)))) - (if _%expr-type195176%_ + (gxc#apply-basic-expression-type _%stx195279%_)))) + (if _%expr-type195282%_ (let () (declare (not safe)) - (gxc#!type-subtype? _%expr-type195176%_ _%klass195174%_)) + (gxc#!type-subtype? _%expr-type195282%_ _%klass195280%_)) '#f)))) (define gxc#check-expression-type! - (lambda (_%stx195151%_ _%expr195152%_ _%type195153%_) - (if (not _%type195153%_) + (lambda (_%stx195257%_ _%expr195258%_ _%type195259%_) + (if (not _%type195259%_) '#f - (let ((_%$e195156%_ - (eq? (##structure-ref _%type195153%_ '1 gxc#!type::t '#f) + (let ((_%$e195262%_ + (eq? (##structure-ref _%type195259%_ '1 gxc#!type::t '#f) 't))) - (if _%$e195156%_ - _%$e195156%_ - (let ((_%expr-type195160%_ + (if _%$e195262%_ + _%$e195262%_ + (let ((_%expr-type195266%_ (let () (declare (not safe)) - (gxc#apply-basic-expression-type _%expr195152%_)))) - (if (not _%expr-type195160%_) + (gxc#apply-basic-expression-type _%expr195258%_)))) + (if (not _%expr-type195266%_) '#f (if (eq? 't (##structure-ref - _%expr-type195160%_ + _%expr-type195266%_ '1 gxc#!type::t '#f)) '#f - (let ((_%$e195164%_ + (let ((_%$e195270%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type195160%_ + _%expr-type195266%_ 'gxc#!abort::t)))) - (if _%$e195164%_ - _%$e195164%_ - (let ((_%$e195167%_ + (if _%$e195270%_ + _%$e195270%_ + (let ((_%$e195273%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type195160%_ - _%type195153%_)))) - (if _%$e195167%_ - _%$e195167%_ + _%expr-type195266%_ + _%type195259%_)))) + (if _%$e195273%_ + _%$e195273%_ (if (let () (declare (not safe)) (gxc#!interface-instance? - _%type195153%_)) + _%type195259%_)) '#f (if (let () (declare (not safe)) (gxc#!type-subtype? - _%type195153%_ - _%expr-type195160%_)) + _%type195259%_ + _%expr-type195266%_)) '#f (let () (declare (not safe)) (gxc#raise-compile-error '"signature type mismatch" - _%stx195151%_ - _%expr195152%_ - _%expr-type195160%_ - _%type195153%_)))))))))))))))) + _%stx195257%_ + _%expr195258%_ + _%expr-type195266%_ + _%type195259%_)))))))))))))))) (define gxc#!constructor::optimize-call - (lambda (_%self192586194963%_ _%ctx194965%_ _%stx194966%_ _%args194967%_) - (let* ((_%self194969%_ _%self192586194963%_) - (_%self194971%_ _%self194969%_) - (_%klass194981%_ - (let ((__tmp197376 + (lambda (_%self192692195069%_ _%ctx195071%_ _%stx195072%_ _%args195073%_) + (let* ((_%self195075%_ _%self192692195069%_) + (_%self195077%_ _%self195075%_) + (_%klass195087%_ + (let ((__tmp197482 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx194966%_ __tmp197376))) - (_%fields194983%_ + (gxc#optimizer-resolve-class _%stx195072%_ __tmp197482))) + (_%fields195089%_ (length (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194981%_ + _%klass195087%_ '5 '#f '#f)))) - (_%args194989%_ - (map (lambda (_%g194984194986%_) + (_%args195095%_ + (map (lambda (_%g195090195092%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%ctx194965%_ _%g194984194986%_))) - _%args194967%_)) - (_%inline-make-object194991%_ + (gxc#compile-e__1 _%ctx195071%_ _%g195090195092%_))) + _%args195073%_)) + (_%inline-make-object195097%_ (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) @@ -2052,66 +2052,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (make-list - _%fields194983%_ + _%fields195089%_ '(%#quote #f))))) '())))) - (_%klass194994%_ _%klass194981%_) - (_%$e195008%_ + (_%klass195100%_ _%klass195087%_) + (_%$e195114%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass194994%_ '6 '#f '#f)))) - (if _%$e195008%_ - ((lambda (_%ctor195011%_) - (let ((_%$obj195013%_ - (let ((__tmp197377 + (##unchecked-structure-ref _%klass195100%_ '6 '#f '#f)))) + (if _%$e195114%_ + ((lambda (_%ctor195117%_) + (let ((_%$obj195119%_ + (let ((__tmp197483 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197377))) - (_%ctor-impl195014%_ + (make-symbol__0 __tmp197483))) + (_%ctor-impl195120%_ (let () (declare (not safe)) (gxc#!class-lookup-method - _%klass194994%_ - _%ctor195011%_)))) - (let ((__tmp197378 + _%klass195100%_ + _%ctor195117%_)))) + (let ((__tmp197484 (cons '%#let-values - (cons (cons (cons (cons _%$obj195013%_ '()) - (cons _%inline-make-object194991%_ + (cons (cons (cons (cons _%$obj195119%_ '()) + (cons _%inline-make-object195097%_ '())) '()) (cons (cons '%#begin - (cons (if _%ctor-impl195014%_ - (let ((__tmp197379 + (cons (if _%ctor-impl195120%_ + (let ((__tmp197485 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%ctor-impl195014%_ '())) + (cons _%ctor-impl195120%_ '())) (cons (cons '%#ref - (cons _%$obj195013%_ '())) - _%args194989%_))))) + (cons _%$obj195119%_ '())) + _%args195095%_))))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197379 - _%stx194966%_ - _%ctx194965%_)) - (let ((_%$ctor195016%_ - (let ((__tmp197380 + __tmp197485 + _%stx195072%_ + _%ctx195071%_)) + (let ((_%$ctor195122%_ + (let ((__tmp197486 (let () (declare (not safe)) (##gensym '__constructor)))) (declare (not safe)) - (make-symbol__0 __tmp197380)))) + (make-symbol__0 __tmp197486)))) (cons '%#let-values - (cons (cons (cons (cons _%$ctor195016%_ '()) + (cons (cons (cons (cons _%$ctor195122%_ '()) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -2120,28 +2120,28 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj195013%_ '())) + (cons (cons '%#ref (cons _%$obj195119%_ '())) (cons (cons '%#quote - (cons _%ctor195011%_ '())) + (cons _%ctor195117%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons '%#if (cons (cons '%#ref - (cons _%$ctor195016%_ + (cons _%$ctor195122%_ '())) (cons (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$ctor195016%_ '())) - (cons (cons '%#ref (cons _%$obj195013%_ '())) - _%args194989%_))) + (cons _%$ctor195122%_ '())) + (cons (cons '%#ref (cons _%$obj195119%_ '())) + _%args195095%_))) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote @@ -2154,92 +2154,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) '())) (cons (cons '%#quote (cons 'method: '())) - (cons (cons '%#quote (cons _%ctor195011%_ '())) '()))))))) + (cons (cons '%#quote (cons _%ctor195117%_ '())) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (cons (cons '%#ref (cons _%$obj195013%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj195119%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197378 _%stx194966%_)))) - _%$e195008%_) - (let ((_%$e195018%_ + (gxc#xform-wrap-source __tmp197484 _%stx195072%_)))) + _%$e195114%_) + (let ((_%$e195124%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194994%_ + _%klass195100%_ '10 '#f '#f)))) - (if _%$e195018%_ - ((lambda (_%metaclass195021%_) - (let* ((_%$obj195023%_ - (let ((__tmp197381 + (if _%$e195124%_ + ((lambda (_%metaclass195127%_) + (let* ((_%$obj195129%_ + (let ((__tmp197487 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197381))) - (_%metakons195025%_ - (let ((__tmp197382 + (make-symbol__0 __tmp197487))) + (_%metakons195131%_ + (let ((__tmp197488 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194966%_ - _%metaclass195021%_)))) + _%stx195072%_ + _%metaclass195127%_)))) (declare (not safe)) (gxc#!class-lookup-method - __tmp197382 + __tmp197488 'instance-init!))) - (__tmp197383 + (__tmp197489 (cons '%#let-values - (cons (cons (cons (cons _%$obj195023%_ + (cons (cons (cons (cons _%$obj195129%_ '()) - (cons _%inline-make-object194991%_ + (cons _%inline-make-object195097%_ '())) '()) (cons (cons '%#begin - (cons (if _%metakons195025%_ + (cons (if _%metakons195131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197384 + (let ((__tmp197490 (cons '%#call (cons (cons '%#ref - (cons _%metakons195025%_ + (cons _%metakons195131%_ '())) (cons (cons '%#ref (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194971%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self195077%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj195023%_ + (cons _%$obj195129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194989%_)))))) + _%args195095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197384 - _%stx194966%_ - _%ctx194965%_)) + __tmp197490 + _%stx195072%_ + _%ctx195071%_)) (cons '%#call (cons (cons '%#ref (cons 'call-method '())) (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) @@ -2248,38 +2248,38 @@ (cons 'instance-init! '())) (cons (cons '%#ref - (cons _%$obj195023%_ + (cons _%$obj195129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194989%_)))))) + _%args195095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons '%#ref (cons _%$obj195023%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj195129%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197383 _%stx194966%_))) - _%$e195018%_) + (gxc#xform-wrap-source __tmp197489 _%stx195072%_))) + _%$e195124%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194994%_ + _%klass195100%_ '7 '#f '#f)) - (if (let ((__tmp197385 + (if (let ((__tmp197491 (let () (declare (not safe)) - (##length _%args194989%_)))) + (##length _%args195095%_)))) (declare (not safe)) - (##fx= __tmp197385 _%fields194983%_)) - (let ((__tmp197386 + (##fx= __tmp197491 _%fields195089%_)) + (let ((__tmp197492 (cons '%#begin-annotation (cons (cons '@type (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) @@ -2292,151 +2292,151 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) '())) - _%args194989%_))) + _%args195095%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197386 - _%stx194966%_)) - (let ((__tmp197388 + __tmp197492 + _%stx195072%_)) + (let ((__tmp197494 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f))) - (__tmp197387 + (__tmp197493 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194994%_ + _%klass195100%_ '5 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"illegal struct constructor application; arity mismatch" - _%stx194966%_ - __tmp197388 - __tmp197387))) - (let ((_%$obj195030%_ - (let ((__tmp197389 + _%stx195072%_ + __tmp197494 + __tmp197493))) + (let ((_%$obj195136%_ + (let ((__tmp197495 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197389)))) - (let _%lp195032%_ ((_%rest195034%_ _%args194989%_) - (_%initializers195035%_ '())) - (let* ((_%__stx196859196860%_ _%rest195034%_) - (_%g195039195060%_ + (make-symbol__0 __tmp197495)))) + (let _%lp195138%_ ((_%rest195140%_ _%args195095%_) + (_%initializers195141%_ '())) + (let* ((_%__stx196965196966%_ _%rest195140%_) + (_%g195145195166%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196859196860%_))))) - (let ((_%__kont196861196862%_ - (lambda (_%L195114%_ - _%L195115%_ - _%L195116%_) - (let* ((_%slot195143%_ - (let ((__tmp197390 + _%__stx196965196966%_))))) + (let ((_%__kont196967196968%_ + (lambda (_%L195220%_ + _%L195221%_ + _%L195222%_) + (let* ((_%slot195249%_ + (let ((__tmp197496 (let () (declare (not safe)) (gx#stx-e - _%L195116%_)))) + _%L195222%_)))) (declare (not safe)) (keyword->symbol - __tmp197390))) - (_%off195145%_ + __tmp197496))) + (_%off195251%_ (let () (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194994%_ - _%slot195143%_)))) - (if _%off195145%_ - (_%lp195032%_ - _%L195114%_ - (cons (cons _%off195145%_ - _%L195115%_) - _%initializers195035%_)) - (let ((__tmp197391 + _%klass195100%_ + _%slot195249%_)))) + (if _%off195251%_ + (_%lp195138%_ + _%L195220%_ + (cons (cons _%off195251%_ + _%L195221%_) + _%initializers195141%_)) + (let ((__tmp197497 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)))) (declare (not safe)) (gxc#raise-compile-error '"unknown slot" - _%stx194966%_ - __tmp197391 - _%slot195143%_)))))) - (_%__kont196863196864%_ + _%stx195072%_ + __tmp197497 + _%slot195249%_)))))) + (_%__kont196969196970%_ (lambda () - (let ((__tmp197392 + (let ((__tmp197498 (cons '%#let-values - (cons (cons (cons (cons _%$obj195030%_ + (cons (cons (cons (cons _%$obj195136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194991%_ '())) + (cons _%inline-make-object195097%_ '())) '()) (cons (cons '%#begin - (let ((__tmp197395 + (let ((__tmp197501 (cons (cons '%#ref - (cons _%$obj195030%_ '())) + (cons _%$obj195136%_ '())) '())) - (__tmp197393 - (let ((__tmp197394 - (lambda (_%i195074%_ _%r195075%_) + (__tmp197499 + (let ((__tmp197500 + (lambda (_%i195180%_ _%r195181%_) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194971%_ + _%self195077%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons (car _%i195074%_) '())) - (cons (cons '%#ref (cons _%$obj195030%_ '())) - (cons (cdr _%i195074%_) '()))))) + (cons (cons '%#quote (cons (car _%i195180%_) '())) + (cons (cons '%#ref (cons _%$obj195136%_ '())) + (cons (cdr _%i195180%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r195075%_)))) + _%r195181%_)))) (declare (not safe)) (__foldl1 - __tmp197394 + __tmp197500 '() - _%initializers195035%_)))) + _%initializers195141%_)))) (declare (not safe)) - (__foldr1 cons __tmp197395 __tmp197393))) + (__foldr1 cons __tmp197501 __tmp197499))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197392 - _%stx194966%_)))) - (_%__kont196865196866%_ + __tmp197498 + _%stx195072%_)))) + (_%__kont196971196972%_ (lambda () - (let ((__tmp197396 + (let ((__tmp197502 (cons '%#let-values - (cons (cons (cons (cons _%$obj195030%_ + (cons (cons (cons (cons _%$obj195136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%inline-make-object194991%_ '())) + (cons _%inline-make-object195097%_ '())) '()) (cons (cons '%#begin (cons (cons '%#call @@ -2444,157 +2444,157 @@ (cons 'class-instance-init! '())) (cons (cons '%#ref - (cons _%$obj195030%_ + (cons _%$obj195136%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%args194989%_))) + _%args195095%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj195030%_ '())) + (cons _%$obj195136%_ '())) '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197396 - _%stx194966%_))))) - (let* ((_%g195037195077%_ + __tmp197502 + _%stx195072%_))))) + (let* ((_%g195143195183%_ (lambda () (if (let () (declare (not safe)) (gx#stx-null? - _%__stx196859196860%_)) - (_%__kont196863196864%_) - (_%__kont196865196866%_)))) - (_%__match196896196897%_ - (lambda (_%e195044195082%_ - _%hd195045195085%_ - _%tl195046195087%_ - _%e195047195090%_ - _%hd195048195093%_ - _%tl195049195095%_ - _%e195050195098%_ - _%hd195051195101%_ - _%tl195052195103%_ - _%e195053195106%_ - _%hd195054195109%_ - _%tl195055195111%_) - (let ((_%L195114%_ - _%tl195055195111%_) - (_%L195115%_ - _%hd195054195109%_) - (_%L195116%_ - _%hd195051195101%_)) + _%__stx196965196966%_)) + (_%__kont196969196970%_) + (_%__kont196971196972%_)))) + (_%__match197002197003%_ + (lambda (_%e195150195188%_ + _%hd195151195191%_ + _%tl195152195193%_ + _%e195153195196%_ + _%hd195154195199%_ + _%tl195155195201%_ + _%e195156195204%_ + _%hd195157195207%_ + _%tl195158195209%_ + _%e195159195212%_ + _%hd195160195215%_ + _%tl195161195217%_) + (let ((_%L195220%_ + _%tl195161195217%_) + (_%L195221%_ + _%hd195160195215%_) + (_%L195222%_ + _%hd195157195207%_)) (if (let () (declare (not safe)) (gx#stx-keyword? - _%L195116%_)) - (_%__kont196861196862%_ - _%L195114%_ - _%L195115%_ - _%L195116%_) - (_%__kont196865196866%_)))))) + _%L195222%_)) + (_%__kont196967196968%_ + _%L195220%_ + _%L195221%_ + _%L195222%_) + (_%__kont196971196972%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196859196860%_)) - (let ((_%e195044195082%_ + (gx#stx-pair? _%__stx196965196966%_)) + (let ((_%e195150195188%_ (let () (declare (not safe)) (gx#stx-e - _%__stx196859196860%_)))) - (let ((_%tl195046195087%_ + _%__stx196965196966%_)))) + (let ((_%tl195152195193%_ (let () (declare (not safe)) - (##cdr _%e195044195082%_))) - (_%hd195045195085%_ + (##cdr _%e195150195188%_))) + (_%hd195151195191%_ (let () (declare (not safe)) - (##car _%e195044195082%_)))) + (##car _%e195150195188%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd195045195085%_)) - (let ((_%e195047195090%_ + _%hd195151195191%_)) + (let ((_%e195153195196%_ (let () (declare (not safe)) (gx#stx-e - _%hd195045195085%_)))) - (let ((_%tl195049195095%_ + _%hd195151195191%_)))) + (let ((_%tl195155195201%_ (let () (declare (not safe)) - (##cdr _%e195047195090%_))) - (_%hd195048195093%_ + (##cdr _%e195153195196%_))) + (_%hd195154195199%_ (let () (declare (not safe)) - (##car _%e195047195090%_)))) + (##car _%e195153195196%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd195048195093%_)) + _%hd195154195199%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd195048195093%_)) + _%hd195154195199%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl195049195095%_)) - (let ((_%e195050195098%_ + (gx#stx-pair? _%tl195155195201%_)) + (let ((_%e195156195204%_ (let () (declare (not safe)) - (gx#stx-e _%tl195049195095%_)))) - (let ((_%tl195052195103%_ + (gx#stx-e _%tl195155195201%_)))) + (let ((_%tl195158195209%_ (let () (declare (not safe)) - (##cdr _%e195050195098%_))) - (_%hd195051195101%_ + (##cdr _%e195156195204%_))) + (_%hd195157195207%_ (let () (declare (not safe)) - (##car _%e195050195098%_)))) + (##car _%e195156195204%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl195052195103%_)) + (gx#stx-null? _%tl195158195209%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl195046195087%_)) - (let ((_%e195053195106%_ + (gx#stx-pair? _%tl195152195193%_)) + (let ((_%e195159195212%_ (let () (declare (not safe)) - (gx#stx-e _%tl195046195087%_)))) - (let ((_%tl195055195111%_ + (gx#stx-e _%tl195152195193%_)))) + (let ((_%tl195161195217%_ (let () (declare (not safe)) - (##cdr _%e195053195106%_))) - (_%hd195054195109%_ + (##cdr _%e195159195212%_))) + (_%hd195160195215%_ (let () (declare (not safe)) - (##car _%e195053195106%_)))) - (_%__match196896196897%_ - _%e195044195082%_ - _%hd195045195085%_ - _%tl195046195087%_ - _%e195047195090%_ - _%hd195048195093%_ - _%tl195049195095%_ - _%e195050195098%_ - _%hd195051195101%_ - _%tl195052195103%_ - _%e195053195106%_ - _%hd195054195109%_ - _%tl195055195111%_))) - (_%__kont196865196866%_)) - (_%__kont196865196866%_)))) - (_%__kont196865196866%_)) - (_%__kont196865196866%_)) - (_%__kont196865196866%_)))) + (##car _%e195159195212%_)))) + (_%__match197002197003%_ + _%e195150195188%_ + _%hd195151195191%_ + _%tl195152195193%_ + _%e195153195196%_ + _%hd195154195199%_ + _%tl195155195201%_ + _%e195156195204%_ + _%hd195157195207%_ + _%tl195158195209%_ + _%e195159195212%_ + _%hd195160195215%_ + _%tl195161195217%_))) + (_%__kont196971196972%_)) + (_%__kont196971196972%_)))) + (_%__kont196971196972%_)) + (_%__kont196971196972%_)) + (_%__kont196971196972%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196865196866%_)))) + (_%__kont196971196972%_)))) (let () (declare (not safe)) - (_%g195037195077%_))))))))))))))) + (_%g195143195183%_))))))))))))))) (let () (declare (not safe)) (__bind-method!__% @@ -2603,105 +2603,105 @@ gxc#!constructor::optimize-call '#f)) (define gxc#!accessor::optimize-call - (lambda (_%self192587194744%_ _%ctx194746%_ _%stx194747%_ _%args194748%_) - (let* ((_%self194750%_ _%self192587194744%_) - (_%self194752%_ _%self194750%_) - (_%arguments-ok?194762%_ - (let ((__method197340 + (lambda (_%self192693194850%_ _%ctx194852%_ _%stx194853%_ _%args194854%_) + (let* ((_%self194856%_ _%self192693194850%_) + (_%self194858%_ _%self194856%_) + (_%arguments-ok?194868%_ + (let ((__method197446 (let () (declare (not safe)) - (__method-ref _%self194752%_ 'check-arguments)))) - (if __method197340 + (__method-ref _%self194858%_ 'check-arguments)))) + (if __method197446 (let () (declare (not safe)) - (__method197340 - _%self194752%_ - _%ctx194746%_ - _%stx194747%_ - _%args194748%_)) + (__method197446 + _%self194858%_ + _%ctx194852%_ + _%stx194853%_ + _%args194854%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194752%_ + _%self194858%_ 'check-arguments)) '#!void)))) - (_%g194764194774%_ - (lambda (_%g194765194771%_) + (_%g194870194880%_ + (lambda (_%g194871194877%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194765194771%_)))) - (_%g194763194838%_ - (lambda (_%g194765194777%_) + _%g194871194877%_)))) + (_%g194869194944%_ + (lambda (_%g194871194883%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194765194777%_)) - (let ((_%e194767194779%_ + (gx#stx-pair? _%g194871194883%_)) + (let ((_%e194873194885%_ (let () (declare (not safe)) - (gx#stx-e _%g194765194777%_)))) - (let ((_%hd194768194782%_ + (gx#stx-e _%g194871194883%_)))) + (let ((_%hd194874194888%_ (let () (declare (not safe)) - (##car _%e194767194779%_))) - (_%tl194769194784%_ + (##car _%e194873194885%_))) + (_%tl194875194890%_ (let () (declare (not safe)) - (##cdr _%e194767194779%_)))) + (##cdr _%e194873194885%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194769194784%_)) - ((lambda (_%L194787%_) - (let* ((_%klass194800%_ - (let ((__tmp197397 + (gx#stx-null? _%tl194875194890%_)) + ((lambda (_%L194893%_) + (let* ((_%klass194906%_ + (let ((__tmp197503 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194747%_ - __tmp197397))) - (_%field194802%_ - (let ((__tmp197398 + _%stx194853%_ + __tmp197503))) + (_%field194908%_ + (let ((__tmp197504 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194800%_ - __tmp197398))) - (_%object194804%_ + _%klass194906%_ + __tmp197504))) + (_%object194910%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194746%_ - _%L194787%_))) - (_%klass194807%_ _%klass194800%_)) + _%ctx194852%_ + _%L194893%_))) + (_%klass194913%_ _%klass194906%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '8 '#f '#f)) - (let ((__tmp197399 - (cons (if (or _%arguments-ok?194762%_ + (let ((__tmp197505 + (cons (if (or _%arguments-ok?194868%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -2713,32 +2713,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons (cons '%#quote (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197399 - _%stx194747%_)) + __tmp197505 + _%stx194853%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '7 '#f '#f)) - (let ((__tmp197400 - (cons (if (or _%arguments-ok?194762%_ + (let ((__tmp197506 + (cons (if (or _%arguments-ok?194868%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -2748,40 +2748,40 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons (cons '%#quote (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197400 - _%stx194747%_)) - (let ((_%$e194826%_ - (let ((__tmp197401 + __tmp197506 + _%stx194853%_)) + (let ((_%$e194932%_ + (let ((__tmp197507 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194807%_ - __tmp197401)))) - (if _%$e194826%_ - ((lambda (_%klass194829%_) - (let ((__tmp197402 - (cons (if (or _%arguments-ok?194762%_ + _%klass194913%_ + __tmp197507)))) + (if _%$e194932%_ + ((lambda (_%klass194935%_) + (let ((__tmp197508 + (cons (if (or _%arguments-ok?194868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -2791,36 +2791,36 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons (cons '%#quote (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197402 _%stx194747%_))) + (gxc#xform-wrap-source __tmp197508 _%stx194853%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e194826%_) + _%$e194932%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)) - (let ((__tmp197403 - (let ((_%$obj194835%_ + (let ((__tmp197509 + (let ((_%$obj194941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197404 + (let ((__tmp197510 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197404)))) + (make-symbol__0 __tmp197510)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194835%_ '()) - (cons _%object194804%_ '())) + (cons (cons (cons (cons _%$obj194941%_ '()) + (cons _%object194910%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -2829,12 +2829,12 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194835%_ '())) '()))) + (cons (cons '%#ref (cons _%$obj194941%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref @@ -2842,27 +2842,27 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) + (cons (cons '%#quote (cons _%field194908%_ '())) (cons (cons '%#ref - (cons _%$obj194835%_ '())) + (cons _%$obj194941%_ '())) '())))) - (cons (if _%arguments-ok?194762%_ + (cons (if _%arguments-ok?194868%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194835%_ '())) + (cons _%$obj194941%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)) @@ -2877,20 +2877,20 @@ (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194835%_ + (cons _%$obj194941%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)) @@ -2901,148 +2901,148 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197403 _%stx194747%_)) + (gxc#xform-wrap-source __tmp197509 _%stx194853%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp197405 + (let ((__tmp197511 (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194804%_ + (cons _%object194910%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197405 _%stx194747%_))))))))) + (gxc#xform-wrap-source __tmp197511 _%stx194853%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194768194782%_) - (_%g194764194774%_ _%g194765194777%_)))) - (_%g194764194774%_ _%g194765194777%_))))) - (_%g194763194838%_ _%args194748%_)))) + _%hd194874194888%_) + (_%g194870194880%_ _%g194871194883%_)))) + (_%g194870194880%_ _%g194871194883%_))))) + (_%g194869194944%_ _%args194854%_)))) (define gxc#!accessor::optimize-call::specialize - (lambda (__klass196627 __method-table196628) - (let ((__check-arguments196629 - (let ((__tmp197406 + (lambda (__klass196733 __method-table196734) + (let ((__check-arguments196735 + (let ((__tmp197512 (lambda () - (let ((__method196630 + (let ((__method196736 (let () (declare (not safe)) (symbolic-table-ref - __method-table196628 + __method-table196734 'check-arguments '#f)))) - (if __method196630 - __method196630 + (if __method196736 + __method196736 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197406))) - (__slot196631 - (let ((__slot196632 + (__make-promise __tmp197512))) + (__slot196737 + (let ((__slot196738 (let () (declare (not safe)) - (class-slot-offset __klass196627 'slot)))) - (if __slot196632 - __slot196632 + (class-slot-offset __klass196733 'slot)))) + (if __slot196738 + __slot196738 (let () (declare (not safe)) (error '"Unknown slot" 'slot)))))) - (lambda (_%self192587194744%_ - _%ctx194746%_ - _%stx194747%_ - _%args194748%_) - (let* ((_%self194750%_ _%self192587194744%_) - (_%self194752%_ _%self194750%_) - (_%arguments-ok?194762%_ - ((force __check-arguments196629) - _%self194752%_ - _%ctx194746%_ - _%stx194747%_ - _%args194748%_)) - (_%g194764194774%_ - (lambda (_%g194765194771%_) + (lambda (_%self192693194850%_ + _%ctx194852%_ + _%stx194853%_ + _%args194854%_) + (let* ((_%self194856%_ _%self192693194850%_) + (_%self194858%_ _%self194856%_) + (_%arguments-ok?194868%_ + ((force __check-arguments196735) + _%self194858%_ + _%ctx194852%_ + _%stx194853%_ + _%args194854%_)) + (_%g194870194880%_ + (lambda (_%g194871194877%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194765194771%_)))) - (_%g194763194838%_ - (lambda (_%g194765194777%_) + _%g194871194877%_)))) + (_%g194869194944%_ + (lambda (_%g194871194883%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194765194777%_)) - (let ((_%e194767194779%_ + (gx#stx-pair? _%g194871194883%_)) + (let ((_%e194873194885%_ (let () (declare (not safe)) - (gx#stx-e _%g194765194777%_)))) - (let ((_%hd194768194782%_ + (gx#stx-e _%g194871194883%_)))) + (let ((_%hd194874194888%_ (let () (declare (not safe)) - (##car _%e194767194779%_))) - (_%tl194769194784%_ + (##car _%e194873194885%_))) + (_%tl194875194890%_ (let () (declare (not safe)) - (##cdr _%e194767194779%_)))) + (##cdr _%e194873194885%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194769194784%_)) - ((lambda (_%L194787%_) - (let* ((_%klass194800%_ - (let ((__tmp197407 + (gx#stx-null? _%tl194875194890%_)) + ((lambda (_%L194893%_) + (let* ((_%klass194906%_ + (let ((__tmp197513 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194747%_ - __tmp197407))) - (_%field194802%_ - (let ((__tmp197408 + _%stx194853%_ + __tmp197513))) + (_%field194908%_ + (let ((__tmp197514 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194800%_ - __tmp197408))) - (_%object194804%_ + _%klass194906%_ + __tmp197514))) + (_%object194910%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194746%_ - _%L194787%_))) - (_%klass194807%_ _%klass194800%_)) + _%ctx194852%_ + _%L194893%_))) + (_%klass194913%_ _%klass194906%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '8 '#f '#f)) - (let ((__tmp197409 - (cons (if (or _%arguments-ok?194762%_ + (let ((__tmp197515 + (cons (if (or _%arguments-ok?194868%_ (not (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -3052,32 +3052,32 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons (cons '%#quote (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197409 - _%stx194747%_)) + __tmp197515 + _%stx194853%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '7 '#f '#f)) - (let ((__tmp197410 - (cons (if (or _%arguments-ok?194762%_ + (let ((__tmp197516 + (cons (if (or _%arguments-ok?194868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -3087,37 +3087,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons (cons '%#quote (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197410 - _%stx194747%_)) - (let ((_%$e194826%_ - (let ((__tmp197411 + __tmp197516 + _%stx194853%_)) + (let ((_%$e194932%_ + (let ((__tmp197517 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194752%_ '3 '#f '#f)))) + (##unchecked-structure-ref _%self194858%_ '3 '#f '#f)))) (declare (not safe)) - (gxc#!class-slot-find-struct _%klass194807%_ __tmp197411)))) + (gxc#!class-slot-find-struct _%klass194913%_ __tmp197517)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194826%_ - ((lambda (_%klass194829%_) - (let ((__tmp197412 - (cons (if (or _%arguments-ok?194762%_ + (if _%$e194932%_ + ((lambda (_%klass194935%_) + (let ((__tmp197518 + (cons (if (or _%arguments-ok?194868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)))) @@ -3127,37 +3127,37 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194802%_ '())) - (cons _%object194804%_ '())))))) + (cons _%field194908%_ '())) + (cons _%object194910%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197412 _%stx194747%_))) - _%$e194826%_) + (gxc#xform-wrap-source __tmp197518 _%stx194853%_))) + _%$e194932%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '4 '#f '#f)) - (let ((__tmp197413 - (let ((_%$obj194835%_ + (let ((__tmp197519 + (let ((_%$obj194941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp197414 + (let ((__tmp197520 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197414)))) + (make-symbol__0 __tmp197520)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194835%_ '()) - (cons _%object194804%_ '())) + (cons (cons (cons (cons _%$obj194941%_ '()) + (cons _%object194910%_ '())) '()) (cons (cons '%#if (cons (cons '%#struct-direct-instance? @@ -3166,43 +3166,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194807%_ + _%klass194913%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194835%_ '())) + (cons (cons '%#ref (cons _%$obj194941%_ '())) '()))) (cons (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194802%_ '())) + (cons _%field194908%_ '())) (cons (cons '%#ref - (cons _%$obj194835%_ '())) + (cons _%$obj194941%_ '())) '())))) - (cons (if _%arguments-ok?194762%_ + (cons (if _%arguments-ok?194868%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) (cons (cons '%#ref - (cons _%$obj194835%_ + (cons _%$obj194941%_ '())) (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ - __slot196631 + _%self194858%_ + __slot196737 '#f '#f)) '())) @@ -3216,18 +3216,18 @@ (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##unchecked-structure-ref _%self194752%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self194858%_ '1 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons '%#ref - (cons _%$obj194835%_ + (cons _%$obj194941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)) @@ -3238,30 +3238,30 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197413 _%stx194747%_)) - (let ((__tmp197415 + (gxc#xform-wrap-source __tmp197519 _%stx194853%_)) + (let ((__tmp197521 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-ref '())) - (cons _%object194804%_ + (cons _%object194910%_ (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194752%_ + _%self194858%_ '3 '#f '#f)) '())) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197415 _%stx194747%_))))))))) + (gxc#xform-wrap-source __tmp197521 _%stx194853%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194768194782%_) - (_%g194764194774%_ _%g194765194777%_)))) - (_%g194764194774%_ _%g194765194777%_))))) - (_%g194763194838%_ _%args194748%_)))))) + _%hd194874194888%_) + (_%g194870194880%_ _%g194871194883%_)))) + (_%g194870194880%_ _%g194871194883%_))))) + (_%g194869194944%_ _%args194854%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -3275,127 +3275,127 @@ gxc#!accessor::optimize-call '#f)) (define gxc#!mutator::optimize-call - (lambda (_%self192588194506%_ _%ctx194508%_ _%stx194509%_ _%args194510%_) - (let* ((_%self194512%_ _%self192588194506%_) - (_%self194514%_ _%self194512%_) - (_%arguments-ok?194524%_ - (let ((__method197341 + (lambda (_%self192694194612%_ _%ctx194614%_ _%stx194615%_ _%args194616%_) + (let* ((_%self194618%_ _%self192694194612%_) + (_%self194620%_ _%self194618%_) + (_%arguments-ok?194630%_ + (let ((__method197447 (let () (declare (not safe)) - (__method-ref _%self194514%_ 'check-arguments)))) - (if __method197341 + (__method-ref _%self194620%_ 'check-arguments)))) + (if __method197447 (let () (declare (not safe)) - (__method197341 - _%self194514%_ - _%ctx194508%_ - _%stx194509%_ - _%args194510%_)) + (__method197447 + _%self194620%_ + _%ctx194614%_ + _%stx194615%_ + _%args194616%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%self194514%_ + _%self194620%_ 'check-arguments)) '#!void)))) - (_%g194526194540%_ - (lambda (_%g194527194537%_) + (_%g194632194646%_ + (lambda (_%g194633194643%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194527194537%_)))) - (_%g194525194619%_ - (lambda (_%g194527194543%_) + _%g194633194643%_)))) + (_%g194631194725%_ + (lambda (_%g194633194649%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194527194543%_)) - (let ((_%e194530194545%_ + (gx#stx-pair? _%g194633194649%_)) + (let ((_%e194636194651%_ (let () (declare (not safe)) - (gx#stx-e _%g194527194543%_)))) - (let ((_%hd194531194548%_ + (gx#stx-e _%g194633194649%_)))) + (let ((_%hd194637194654%_ (let () (declare (not safe)) - (##car _%e194530194545%_))) - (_%tl194532194550%_ + (##car _%e194636194651%_))) + (_%tl194638194656%_ (let () (declare (not safe)) - (##cdr _%e194530194545%_)))) + (##cdr _%e194636194651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194532194550%_)) - (let ((_%e194533194553%_ + (gx#stx-pair? _%tl194638194656%_)) + (let ((_%e194639194659%_ (let () (declare (not safe)) - (gx#stx-e _%tl194532194550%_)))) - (let ((_%hd194534194556%_ + (gx#stx-e _%tl194638194656%_)))) + (let ((_%hd194640194662%_ (let () (declare (not safe)) - (##car _%e194533194553%_))) - (_%tl194535194558%_ + (##car _%e194639194659%_))) + (_%tl194641194664%_ (let () (declare (not safe)) - (##cdr _%e194533194553%_)))) + (##cdr _%e194639194659%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194535194558%_)) - ((lambda (_%L194561%_ _%L194562%_) - (let* ((_%klass194578%_ - (let ((__tmp197416 + (gx#stx-null? _%tl194641194664%_)) + ((lambda (_%L194667%_ _%L194668%_) + (let* ((_%klass194684%_ + (let ((__tmp197522 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194509%_ - __tmp197416))) - (_%field194580%_ - (let ((__tmp197417 + _%stx194615%_ + __tmp197522))) + (_%field194686%_ + (let ((__tmp197523 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194578%_ - __tmp197417))) - (_%object194582%_ + _%klass194684%_ + __tmp197523))) + (_%object194688%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194508%_ - _%L194562%_))) - (_%value194584%_ + _%ctx194614%_ + _%L194668%_))) + (_%value194690%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194508%_ - _%L194561%_))) - (_%klass194587%_ - _%klass194578%_)) + _%ctx194614%_ + _%L194667%_))) + (_%klass194693%_ + _%klass194684%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '8 '#f '#f)) - (let ((__tmp197418 - (cons (if (or _%arguments-ok?194524%_ + (let ((__tmp197524 + (cons (if (or _%arguments-ok?194630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '4 '#f '#f)))) @@ -3405,33 +3405,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194580%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ '()))))))) + (cons (cons '%#quote (cons _%field194686%_ '())) + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197418 - _%stx194509%_)) + __tmp197524 + _%stx194615%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '7 '#f '#f)) - (let ((__tmp197419 - (cons (if (or _%arguments-ok?194524%_ + (let ((__tmp197525 + (cons (if (or _%arguments-ok?194630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '4 '#f '#f)))) @@ -3441,43 +3441,43 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194580%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ '()))))))) + (cons (cons '%#quote (cons _%field194686%_ '())) + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197419 - _%stx194509%_)) - (let ((_%$e194607%_ - (let ((__tmp197420 + __tmp197525 + _%stx194615%_)) + (let ((_%$e194713%_ + (let ((__tmp197526 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194587%_ - __tmp197420)))) + _%klass194693%_ + __tmp197526)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e194607%_ - ((lambda (_%klass194610%_) - (let ((__tmp197421 + (if _%$e194713%_ + ((lambda (_%klass194716%_) + (let ((__tmp197527 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (if (or _%arguments-ok?194524%_ + (cons (if (or _%arguments-ok?194630%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) @@ -3487,33 +3487,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194580%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ + (cons _%field194686%_ '())) + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197421 _%stx194509%_))) - _%$e194607%_) + (gxc#xform-wrap-source __tmp197527 _%stx194615%_))) + _%$e194713%_) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self194514%_ '4 '#f '#f)) - (let ((__tmp197422 - (let ((_%$obj194616%_ - (let ((__tmp197423 + (##unchecked-structure-ref _%self194620%_ '4 '#f '#f)) + (let ((__tmp197528 + (let ((_%$obj194722%_ + (let ((__tmp197529 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197423)))) + (make-symbol__0 __tmp197529)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194616%_ '()) - (cons _%object194582%_ + (cons (cons (cons (cons _%$obj194722%_ '()) + (cons _%object194688%_ '())) '()) (cons (cons '%#if @@ -3523,49 +3523,49 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194616%_ '())) + (cons (cons '%#ref (cons _%$obj194722%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194580%_ '())) + (cons _%field194686%_ '())) (cons (cons '%#ref - (cons _%$obj194616%_ + (cons _%$obj194722%_ '())) - (cons _%value194584%_ + (cons _%value194690%_ '()))))) - (cons (if _%arguments-ok?194524%_ + (cons (if _%arguments-ok?194630%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194616%_ + (cons _%$obj194722%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) - (cons _%value194584%_ '()))))) + (cons _%value194690%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3576,189 +3576,189 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194616%_ '())) + (cons (cons '%#ref (cons _%$obj194722%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) - (cons _%value194584%_ '()))))))) + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197422 _%stx194509%_)) - (let ((__tmp197424 + (gxc#xform-wrap-source __tmp197528 _%stx194615%_)) + (let ((__tmp197530 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194582%_ + (cons _%object194688%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%value194584%_ + (cons _%value194690%_ '()))))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp197424 - _%stx194509%_))))))))) + __tmp197530 + _%stx194615%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194534194556%_ - _%hd194531194548%_) - (_%g194526194540%_ _%g194527194543%_)))) - (_%g194526194540%_ _%g194527194543%_)))) - (_%g194526194540%_ _%g194527194543%_))))) - (_%g194525194619%_ _%args194510%_)))) + _%hd194640194662%_ + _%hd194637194654%_) + (_%g194632194646%_ _%g194633194649%_)))) + (_%g194632194646%_ _%g194633194649%_)))) + (_%g194632194646%_ _%g194633194649%_))))) + (_%g194631194725%_ _%args194616%_)))) (define gxc#!mutator::optimize-call::specialize - (lambda (__klass196633 __method-table196634) - (let ((__check-arguments196635 - (let ((__tmp197425 + (lambda (__klass196739 __method-table196740) + (let ((__check-arguments196741 + (let ((__tmp197531 (lambda () - (let ((__method196636 + (let ((__method196742 (let () (declare (not safe)) (symbolic-table-ref - __method-table196634 + __method-table196740 'check-arguments '#f)))) - (if __method196636 - __method196636 + (if __method196742 + __method196742 (let () (declare (not safe)) (error '"Missing method" 'check-arguments))))))) (declare (not safe)) - (__make-promise __tmp197425)))) - (lambda (_%self192588194506%_ - _%ctx194508%_ - _%stx194509%_ - _%args194510%_) - (let* ((_%self194512%_ _%self192588194506%_) - (_%self194514%_ _%self194512%_) - (_%arguments-ok?194524%_ - ((force __check-arguments196635) - _%self194514%_ - _%ctx194508%_ - _%stx194509%_ - _%args194510%_)) - (_%g194526194540%_ - (lambda (_%g194527194537%_) + (__make-promise __tmp197531)))) + (lambda (_%self192694194612%_ + _%ctx194614%_ + _%stx194615%_ + _%args194616%_) + (let* ((_%self194618%_ _%self192694194612%_) + (_%self194620%_ _%self194618%_) + (_%arguments-ok?194630%_ + ((force __check-arguments196741) + _%self194620%_ + _%ctx194614%_ + _%stx194615%_ + _%args194616%_)) + (_%g194632194646%_ + (lambda (_%g194633194643%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g194527194537%_)))) - (_%g194525194619%_ - (lambda (_%g194527194543%_) + _%g194633194643%_)))) + (_%g194631194725%_ + (lambda (_%g194633194649%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g194527194543%_)) - (let ((_%e194530194545%_ + (gx#stx-pair? _%g194633194649%_)) + (let ((_%e194636194651%_ (let () (declare (not safe)) - (gx#stx-e _%g194527194543%_)))) - (let ((_%hd194531194548%_ + (gx#stx-e _%g194633194649%_)))) + (let ((_%hd194637194654%_ (let () (declare (not safe)) - (##car _%e194530194545%_))) - (_%tl194532194550%_ + (##car _%e194636194651%_))) + (_%tl194638194656%_ (let () (declare (not safe)) - (##cdr _%e194530194545%_)))) + (##cdr _%e194636194651%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl194532194550%_)) - (let ((_%e194533194553%_ + (gx#stx-pair? _%tl194638194656%_)) + (let ((_%e194639194659%_ (let () (declare (not safe)) - (gx#stx-e _%tl194532194550%_)))) - (let ((_%hd194534194556%_ + (gx#stx-e _%tl194638194656%_)))) + (let ((_%hd194640194662%_ (let () (declare (not safe)) - (##car _%e194533194553%_))) - (_%tl194535194558%_ + (##car _%e194639194659%_))) + (_%tl194641194664%_ (let () (declare (not safe)) - (##cdr _%e194533194553%_)))) + (##cdr _%e194639194659%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl194535194558%_)) - ((lambda (_%L194561%_ _%L194562%_) - (let* ((_%klass194578%_ - (let ((__tmp197426 + (gx#stx-null? _%tl194641194664%_)) + ((lambda (_%L194667%_ _%L194668%_) + (let* ((_%klass194684%_ + (let ((__tmp197532 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx194509%_ - __tmp197426))) - (_%field194580%_ - (let ((__tmp197427 + _%stx194615%_ + __tmp197532))) + (_%field194686%_ + (let ((__tmp197533 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot->field-offset - _%klass194578%_ - __tmp197427))) - (_%object194582%_ + _%klass194684%_ + __tmp197533))) + (_%object194688%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194508%_ - _%L194562%_))) - (_%value194584%_ + _%ctx194614%_ + _%L194668%_))) + (_%value194690%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%ctx194508%_ - _%L194561%_))) - (_%klass194587%_ - _%klass194578%_)) + _%ctx194614%_ + _%L194667%_))) + (_%klass194693%_ + _%klass194684%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '8 '#f '#f)) - (let ((__tmp197428 - (cons (if (or _%arguments-ok?194524%_ + (let ((__tmp197534 + (cons (if (or _%arguments-ok?194630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '4 '#f '#f)))) @@ -3768,33 +3768,33 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) - (cons (cons '%#quote (cons _%field194580%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ '()))))))) + (cons (cons '%#quote (cons _%field194686%_ '())) + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197428 - _%stx194509%_)) + __tmp197534 + _%stx194615%_)) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '7 '#f '#f)) - (let ((__tmp197429 - (cons (if (or _%arguments-ok?194524%_ + (let ((__tmp197535 + (cons (if (or _%arguments-ok?194630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '4 '#f '#f)))) @@ -3804,38 +3804,38 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194580%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ '()))))))) + (cons _%field194686%_ '())) + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197429 _%stx194509%_)) - (let ((_%$e194607%_ - (let ((__tmp197430 + (gxc#xform-wrap-source __tmp197535 _%stx194615%_)) + (let ((_%$e194713%_ + (let ((__tmp197536 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) (declare (not safe)) (gxc#!class-slot-find-struct - _%klass194587%_ - __tmp197430)))) - (if _%$e194607%_ - ((lambda (_%klass194610%_) - (let ((__tmp197431 - (cons (if (or _%arguments-ok?194524%_ + _%klass194693%_ + __tmp197536)))) + (if _%$e194713%_ + ((lambda (_%klass194716%_) + (let ((__tmp197537 + (cons (if (or _%arguments-ok?194630%_ (not (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)))) @@ -3845,39 +3845,39 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194580%_ + (cons _%field194686%_ '())) - (cons _%object194582%_ - (cons _%value194584%_ + (cons _%object194688%_ + (cons _%value194690%_ '()))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197431 _%stx194509%_))) - _%$e194607%_) + (gxc#xform-wrap-source __tmp197537 _%stx194615%_))) + _%$e194713%_) (if (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '4 '#f '#f)) - (let ((__tmp197432 - (let ((_%$obj194616%_ - (let ((__tmp197433 + (let ((__tmp197538 + (let ((_%$obj194722%_ + (let ((__tmp197539 (let () (declare (not safe)) (##gensym '__obj)))) (declare (not safe)) - (make-symbol__0 __tmp197433)))) + (make-symbol__0 __tmp197539)))) (cons '%#let-values - (cons (cons (cons (cons _%$obj194616%_ + (cons (cons (cons (cons _%$obj194722%_ '()) - (cons _%object194582%_ + (cons _%object194688%_ '())) '()) (cons (cons '%#if @@ -3887,52 +3887,52 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%klass194587%_ + _%klass194693%_ '1 '#f '#f)) '())) (cons (cons '%#ref - (cons _%$obj194616%_ '())) + (cons _%$obj194722%_ '())) '()))) (cons (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) (cons (cons '%#quote - (cons _%field194580%_ + (cons _%field194686%_ '())) (cons (cons '%#ref - (cons _%$obj194616%_ + (cons _%$obj194722%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%value194584%_ '()))))) + (cons _%value194690%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (if _%arguments-ok?194524%_ + (cons (if _%arguments-ok?194630%_ (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) (cons (cons '%#ref - (cons _%$obj194616%_ + (cons _%$obj194722%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) - (cons _%value194584%_ '()))))) + (cons _%value194690%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '%#call (cons (cons '%#ref @@ -3943,58 +3943,58 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '1 '#f '#f)) '())) - (cons (cons '%#ref (cons _%$obj194616%_ '())) + (cons (cons '%#ref (cons _%$obj194722%_ '())) (cons (cons '%#quote (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) - (cons _%value194584%_ '()))))))) + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197432 _%stx194509%_)) - (let ((__tmp197434 + (gxc#xform-wrap-source __tmp197538 _%stx194615%_)) + (let ((__tmp197540 (cons '%#call (cons (cons '%#ref (cons 'unchecked-slot-set! '())) - (cons _%object194582%_ + (cons _%object194688%_ (cons (cons '%#quote (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%self194514%_ + _%self194620%_ '3 '#f '#f)) '())) - (cons _%value194584%_ '()))))))) + (cons _%value194690%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197434 - _%stx194509%_))))))))) + __tmp197540 + _%stx194615%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd194534194556%_ - _%hd194531194548%_) - (_%g194526194540%_ - _%g194527194543%_)))) - (_%g194526194540%_ _%g194527194543%_)))) - (_%g194526194540%_ _%g194527194543%_))))) - (_%g194525194619%_ _%args194510%_)))))) + _%hd194640194662%_ + _%hd194637194654%_) + (_%g194632194646%_ + _%g194633194649%_)))) + (_%g194632194646%_ _%g194633194649%_)))) + (_%g194632194646%_ _%g194633194649%_))))) + (_%g194631194725%_ _%args194616%_)))))) (let () (declare (not safe)) (bind-specializer! @@ -4008,97 +4008,97 @@ gxc#!mutator::optimize-call '#f)) (define gxc#!lambda::optimize-call - (lambda (_%self192589194319%_ _%ctx194321%_ _%stx194322%_ _%args194323%_) - (let* ((_%self194325%_ _%self192589194319%_) - (_%self194327%_ _%self194325%_) - (_%self194336194346%_ _%self194327%_) - (_%E194338194350%_ + (lambda (_%self192695194425%_ _%ctx194427%_ _%stx194428%_ _%args194429%_) + (let* ((_%self194431%_ _%self192695194425%_) + (_%self194433%_ _%self194431%_) + (_%self194442194452%_ _%self194433%_) + (_%E194444194456%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self194336194346%_ + _%self194442194452%_ '((!lambda _ _ arity dispatch inline)))) '#!void)) - (_%K194339194360%_ - (lambda (_%inline194353%_ _%dispatch194354%_ _%arity194355%_) + (_%K194445194466%_ + (lambda (_%inline194459%_ _%dispatch194460%_ _%arity194461%_) (if (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%self194327%_ - _%args194323%_)) + _%self194433%_ + _%args194429%_)) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal lambda application; arity mismatch" - _%stx194322%_ - _%arity194355%_))) - (if _%inline194353%_ + _%stx194428%_ + _%arity194461%_))) + (if _%inline194459%_ (let () (let () (declare (not safe)) (gxc#verbose '"inline lambda")) - (let ((__tmp197435 (_%inline194353%_ _%stx194322%_))) + (let ((__tmp197541 (_%inline194459%_ _%stx194428%_))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197435 - _%stx194322%_ - _%ctx194321%_))) - (if (and _%dispatch194354%_ + __tmp197541 + _%stx194428%_ + _%ctx194427%_))) + (if (and _%dispatch194460%_ (let () (declare (not safe)) (gxc#symbol-in-local-scope? - _%dispatch194354%_))) + _%dispatch194460%_))) (let () (let () (declare (not safe)) (gxc#verbose '"dispatch lambda => " - _%dispatch194354%_)) - (let ((__tmp197436 + _%dispatch194460%_)) + (let ((__tmp197542 (cons '%#call (cons (cons '%#ref - (cons _%dispatch194354%_ + (cons _%dispatch194460%_ '())) - _%args194323%_)))) + _%args194429%_)))) (declare (not safe)) (gxc#xform-wrap-apply - __tmp197436 - _%stx194322%_ - _%ctx194321%_))) + __tmp197542 + _%stx194428%_ + _%ctx194427%_))) (gxc#!procedure::optimize-call - _%self194327%_ - _%ctx194321%_ - _%stx194322%_ - _%args194323%_))))) - (_%e194340194363%_ + _%self194433%_ + _%ctx194427%_ + _%stx194428%_ + _%args194429%_))))) + (_%e194446194469%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194336194346%_ '1 '#f '#f))) - (_%e194341194366%_ + (##unchecked-structure-ref _%self194442194452%_ '1 '#f '#f))) + (_%e194447194472%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194336194346%_ '2 '#f '#f))) - (_%e194342194369%_ + (##unchecked-structure-ref _%self194442194452%_ '2 '#f '#f))) + (_%e194448194475%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194336194346%_ '3 '#f '#f))) - (_%arity194372%_ _%e194342194369%_) - (_%e194343194374%_ + (##unchecked-structure-ref _%self194442194452%_ '3 '#f '#f))) + (_%arity194478%_ _%e194448194475%_) + (_%e194449194480%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194336194346%_ '4 '#f '#f))) - (_%dispatch194377%_ _%e194343194374%_) - (_%e194344194379%_ + (##unchecked-structure-ref _%self194442194452%_ '4 '#f '#f))) + (_%dispatch194483%_ _%e194449194480%_) + (_%e194450194485%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self194336194346%_ '5 '#f '#f))) - (_%inline194382%_ _%e194344194379%_)) - (_%K194339194360%_ - _%inline194382%_ - _%dispatch194377%_ - _%arity194372%_)))) + (##unchecked-structure-ref _%self194442194452%_ '5 '#f '#f))) + (_%inline194488%_ _%e194450194485%_)) + (_%K194445194466%_ + _%inline194488%_ + _%dispatch194483%_ + _%arity194478%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4107,63 +4107,63 @@ gxc#!lambda::optimize-call '#f)) (define gxc#!case-lambda::optimize-call - (lambda (_%self192590194169%_ _%ctx194171%_ _%stx194172%_ _%args194173%_) - (let* ((_%self194175%_ _%self192590194169%_) - (_%self194177%_ _%self194175%_) - (_%$e194191%_ - (let ((__tmp197438 - (lambda (_%g194186194188%_) + (lambda (_%self192696194275%_ _%ctx194277%_ _%stx194278%_ _%args194279%_) + (let* ((_%self194281%_ _%self192696194275%_) + (_%self194283%_ _%self194281%_) + (_%$e194297%_ + (let ((__tmp197544 + (lambda (_%g194292194294%_) (let () (declare (not safe)) (gxc#!lambda-arity-match? - _%g194186194188%_ - _%args194173%_)))) - (__tmp197437 + _%g194292194294%_ + _%args194279%_)))) + (__tmp197543 (let () (declare (not safe)) (##unchecked-structure-ref - _%self194177%_ + _%self194283%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp197438 __tmp197437)))) - (if _%$e194191%_ - ((lambda (_%clause194194%_) - (let ((__method197342 + (__find __tmp197544 __tmp197543)))) + (if _%$e194297%_ + ((lambda (_%clause194300%_) + (let ((__method197448 (let () (declare (not safe)) - (__method-ref _%clause194194%_ 'optimize-call)))) - (if __method197342 + (__method-ref _%clause194300%_ 'optimize-call)))) + (if __method197448 (let () (declare (not safe)) - (__method197342 - _%clause194194%_ - _%ctx194171%_ - _%stx194172%_ - _%args194173%_)) + (__method197448 + _%clause194300%_ + _%ctx194277%_ + _%stx194278%_ + _%args194279%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause194194%_ + _%clause194300%_ 'optimize-call)) '#!void)))) - _%$e194191%_) - (let ((__tmp197439 + _%$e194297%_) + (let ((__tmp197545 (map gxc#!lambda-arity (let () (declare (not safe)) (##unchecked-structure-ref - _%self194177%_ + _%self194283%_ '3 '#f '#f))))) (declare (not safe)) (gxc#raise-compile-error '"Illegal case-lambda application; arity mismatch" - _%stx194172%_ - __tmp197439)))))) + _%stx194278%_ + __tmp197545)))))) (let () (declare (not safe)) (__bind-method!__% @@ -4172,116 +4172,116 @@ gxc#!case-lambda::optimize-call '#f)) (define gxc#!kw-lambda::optimize-call - (lambda (_%self192591193907%_ _%ctx193909%_ _%stx193910%_ _%args193911%_) - (let* ((_%self193913%_ _%self192591193907%_) - (_%self193915%_ _%self193913%_) - (_%self193924193933%_ _%self193915%_) - (_%E193926193937%_ + (lambda (_%self192697194013%_ _%ctx194015%_ _%stx194016%_ _%args194017%_) + (let* ((_%self194019%_ _%self192697194013%_) + (_%self194021%_ _%self194019%_) + (_%self194030194039%_ _%self194021%_) + (_%E194032194043%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self193924193933%_ + _%self194030194039%_ '((!kw-lambda _ _ table dispatch)))) '#!void)) - (_%K193927194028%_ - (lambda (_%dispatch193940%_ _%table193941%_) + (_%K194033194134%_ + (lambda (_%dispatch194046%_ _%table194047%_) (if (let () (declare (not safe)) - (gxc#symbol-in-local-scope? _%dispatch193940%_)) - (let* ((_%g193942193952%_ + (gxc#symbol-in-local-scope? _%dispatch194046%_)) + (let* ((_%g194048194058%_ (let () (declare (not safe)) (gxc#optimizer-lookup-type - _%dispatch193940%_))) - (_%else193944193960%_ + _%dispatch194046%_))) + (_%else194050194066%_ (lambda () (let () (declare (not safe)) (gxc#verbose '"unknown keyword dispatch lambda " - _%dispatch193940%_)) + _%dispatch194046%_)) (let () (declare (not safe)) (gxc#xform-call% - _%ctx193909%_ - _%stx193910%_)))) - (_%K193946194009%_ - (lambda (_%main193963%_ _%keys193964%_) - (let ((_g197440_ + _%ctx194015%_ + _%stx194016%_)))) + (_%K194052194115%_ + (lambda (_%main194069%_ _%keys194070%_) + (let ((_g197546_ (gxc#!kw-lambda-split-args - _%stx193910%_ - _%args193911%_))) + _%stx194016%_ + _%args194017%_))) (begin - (let ((_g197441_ + (let ((_g197547_ (let () (declare (not safe)) - (if (##values? _g197440_) - (##vector-length _g197440_) + (if (##values? _g197546_) + (##values-length _g197546_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g197441_ 2))) + (##fx= _g197547_ 2))) (error "Context expects 2 values" - _g197441_))) - (let ((_%pargs193966%_ + _g197547_))) + (let ((_%pargs194072%_ (let () (declare (not safe)) - (##vector-ref _g197440_ 0))) - (_%kwargs193967%_ + (##values-ref _g197546_ 0))) + (_%kwargs194073%_ (let () (declare (not safe)) - (##vector-ref _g197440_ 1)))) + (##values-ref _g197546_ 1)))) (begin (let () (declare (not safe)) (gxc#verbose '"dispatch kw-lambda => " - _%main193963%_)) - (if _%table193941%_ - (let ((_%xargs193975%_ - (map (lambda (_%key193969%_) - (let ((_%$e193971%_ + _%main194069%_)) + (if _%table194047%_ + (let ((_%xargs194081%_ + (map (lambda (_%key194075%_) + (let ((_%$e194077%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key193969%_ _%kwargs193967%_)))) - (if _%$e193971%_ _%$e193971%_ '(%#ref absent-value)))) - _%keys193964%_))) + (agetq__0 _%key194075%_ _%kwargs194073%_)))) + (if _%$e194077%_ _%$e194077%_ '(%#ref absent-value)))) + _%keys194070%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%kw193977%_) - (if (memq (car _%kw193977%_) - _%keys193964%_) + (lambda (_%kw194083%_) + (if (memq (car _%kw194083%_) + _%keys194070%_) '#!void (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; unexpected keyword" - _%stx193910%_ - _%keys193964%_ - _%kw193977%_)))) - _%kwargs193967%_) - (let ((__tmp197442 + _%stx194016%_ + _%keys194070%_ + _%kw194083%_)))) + _%kwargs194073%_) + (let ((__tmp197548 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%main193963%_ '())) + (cons _%main194069%_ '())) (cons (cons '%#quote (cons '#f '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193966%_ - _%xargs193975%_))))))) + _%pargs194072%_ + _%xargs194081%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197442 - _%stx193910%_ - _%ctx193909%_))) - (let* ((_%kwt193979%_ - (let ((__tmp197443 + __tmp197548 + _%stx194016%_ + _%ctx194015%_))) + (let* ((_%kwt194085%_ + (let ((__tmp197549 (let () (declare (not safe)) @@ -4289,175 +4289,175 @@ '__kwt)))) (declare (not safe)) (make-symbol__0 - __tmp197443))) - (_%kwvars193983%_ - (map (lambda (_%_193981%_) - (let ((__tmp197444 + __tmp197549))) + (_%kwvars194089%_ + (map (lambda (_%_194087%_) + (let ((__tmp197550 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (##gensym '__kw)))) (declare (not safe)) - (make-symbol__0 __tmp197444))) - _%kwargs193967%_)) + (make-symbol__0 __tmp197550))) + _%kwargs194073%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwbind193988%_ - (map (lambda (_%kw193985%_ + (_%kwbind194094%_ + (map (lambda (_%kw194091%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193986%_) - (cons (cons _%kwvar193986%_ '()) - (cons (cdr _%kw193985%_) '()))) - _%kwargs193967%_ - _%kwvars193983%_)) + _%kwvar194092%_) + (cons (cons _%kwvar194092%_ '()) + (cons (cdr _%kw194091%_) '()))) + _%kwargs194073%_ + _%kwvars194089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%kwset193993%_ - (map (lambda (_%kw193990%_ + (_%kwset194099%_ + (map (lambda (_%kw194096%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193991%_) + _%kwvar194097%_) (cons '%#call (cons '(%#ref symbolic-table-set!) - (cons (cons '%#ref (cons _%kwt193979%_ '())) + (cons (cons '%#ref (cons _%kwt194085%_ '())) (cons (cons '%#quote - (cons (car _%kw193990%_) '())) + (cons (car _%kw194096%_) '())) (cons (cons '%#ref - (cons _%kwvar193991%_ + (cons _%kwvar194097%_ '())) '())))))) - _%kwargs193967%_ - _%kwvars193983%_)) + _%kwargs194073%_ + _%kwvars194089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xkwargs193998%_ - (map (lambda (_%kw193995%_ + (_%xkwargs194104%_ + (map (lambda (_%kw194101%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kwvar193996%_) - (cons (car _%kw193995%_) - (cons '%#ref (cons _%kwvar193996%_ '())))) - _%kwargs193967%_ - _%kwvars193983%_)) + _%kwvar194102%_) + (cons (car _%kw194101%_) + (cons '%#ref (cons _%kwvar194102%_ '())))) + _%kwargs194073%_ + _%kwvars194089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%xargs194006%_ - (map (lambda (_%key194000%_) - (let ((_%$e194002%_ + (_%xargs194112%_ + (map (lambda (_%key194106%_) + (let ((_%$e194108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (agetq__0 _%key194000%_ _%xkwargs193998%_)))) - (if _%$e194002%_ _%$e194002%_ '(%#ref absent-value)))) - _%keys193964%_)) + (agetq__0 _%key194106%_ _%xkwargs194104%_)))) + (if _%$e194108%_ _%$e194108%_ '(%#ref absent-value)))) + _%keys194070%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp197445 + (__tmp197551 (cons '%#let-values - (cons _%kwbind193988%_ + (cons _%kwbind194094%_ (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%kwt193979%_ '()) - (cons (let ((__tmp197446 + (cons (cons (cons (cons _%kwt194085%_ '()) + (cons (let ((__tmp197552 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons '(%#ref make-symbolic-table) (cons (cons '%#quote - (cons (length _%kwargs193967%_) + (cons (length _%kwargs194073%_) '())) (cons '(%#quote (length kwvars)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197446 _%stx193910%_)) + (gxc#xform-wrap-source __tmp197552 _%stx194016%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons '%#begin - (let ((__tmp197447 - (cons (let ((__tmp197448 + (let ((__tmp197553 + (cons (let ((__tmp197554 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#call (cons (cons '%#ref - (cons _%main193963%_ '())) + (cons _%main194069%_ '())) (cons (cons '%#ref - (cons _%kwt193979%_ + (cons _%kwt194085%_ '())) (let () (declare (not safe)) (__foldr1 cons - _%pargs193966%_ - _%xargs194006%_))))))) + _%pargs194072%_ + _%xargs194112%_))))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197448 _%stx193910%_)) + (gxc#xform-wrap-source __tmp197554 _%stx194016%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp197447 _%kwset193993%_))) + (__foldr1 cons __tmp197553 _%kwset194099%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197445 - _%stx193910%_ - _%ctx193909%_)))))))))) + __tmp197551 + _%stx194016%_ + _%ctx194015%_)))))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g193942193952%_ + _%g194048194058%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e193947194012%_ + (let* ((_%e194053194118%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193942193952%_ + _%g194048194058%_ '1 '#f '#f))) - (_%e193948194015%_ + (_%e194054194121%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193942193952%_ + _%g194048194058%_ '2 '#f '#f))) - (_%e193949194018%_ + (_%e194055194124%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193942193952%_ + _%g194048194058%_ '3 '#f '#f))) - (_%keys194021%_ _%e193949194018%_) - (_%e193950194023%_ + (_%keys194127%_ _%e194055194124%_) + (_%e194056194129%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g193942193952%_ + _%g194048194058%_ '4 '#f '#f))) - (_%main194026%_ _%e193950194023%_)) - (_%K193946194009%_ - _%main194026%_ - _%keys194021%_)) - (_%else193944193960%_))) + (_%main194132%_ _%e194056194129%_)) + (_%K194052194115%_ + _%main194132%_ + _%keys194127%_)) + (_%else194050194066%_))) (let () (declare (not safe)) - (gxc#xform-call% _%ctx193909%_ _%stx193910%_))))) - (_%e193928194031%_ + (gxc#xform-call% _%ctx194015%_ _%stx194016%_))))) + (_%e194034194137%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193924193933%_ '1 '#f '#f))) - (_%e193929194034%_ + (##unchecked-structure-ref _%self194030194039%_ '1 '#f '#f))) + (_%e194035194140%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193924193933%_ '2 '#f '#f))) - (_%e193930194037%_ + (##unchecked-structure-ref _%self194030194039%_ '2 '#f '#f))) + (_%e194036194143%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193924193933%_ '3 '#f '#f))) - (_%table194040%_ _%e193930194037%_) - (_%e193931194042%_ + (##unchecked-structure-ref _%self194030194039%_ '3 '#f '#f))) + (_%table194146%_ _%e194036194143%_) + (_%e194037194148%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self193924193933%_ '4 '#f '#f))) - (_%dispatch194045%_ _%e193931194042%_)) - (_%K193927194028%_ _%dispatch194045%_ _%table194040%_)))) + (##unchecked-structure-ref _%self194030194039%_ '4 '#f '#f))) + (_%dispatch194151%_ _%e194037194148%_)) + (_%K194033194134%_ _%dispatch194151%_ _%table194146%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4466,287 +4466,287 @@ gxc#!kw-lambda::optimize-call '#f)) (define gxc#!kw-lambda-split-args - (lambda (_%stx193520%_ _%args193521%_) - (let _%lp193523%_ ((_%rest193525%_ _%args193521%_) - (_%pargs193526%_ '()) - (_%kwargs193527%_ '())) - (let* ((_%__stx196901196902%_ _%rest193525%_) - (_%g193533193585%_ + (lambda (_%stx193626%_ _%args193627%_) + (let _%lp193629%_ ((_%rest193631%_ _%args193627%_) + (_%pargs193632%_ '()) + (_%kwargs193633%_ '())) + (let* ((_%__stx197007197008%_ _%rest193631%_) + (_%g193639193691%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx196901196902%_))))) - (let ((_%__kont196903196904%_ - (lambda (_%L193764%_ _%L193765%_) - (_%lp193523%_ - _%L193764%_ - (cons _%L193765%_ _%pargs193526%_) - _%kwargs193527%_))) - (_%__kont196905196906%_ - (lambda (_%L193710%_) + _%__stx197007197008%_))))) + (let ((_%__kont197009197010%_ + (lambda (_%L193870%_ _%L193871%_) + (_%lp193629%_ + _%L193870%_ + (cons _%L193871%_ _%pargs193632%_) + _%kwargs193633%_))) + (_%__kont197011197012%_ + (lambda (_%L193816%_) (values (let () (declare (not safe)) - (__foldl1 cons _%L193710%_ _%pargs193526%_)) - (reverse _%kwargs193527%_)))) - (_%__kont196907196908%_ - (lambda (_%L193657%_ _%L193658%_ _%L193659%_) - (let ((_%kw193676%_ + (__foldl1 cons _%L193816%_ _%pargs193632%_)) + (reverse _%kwargs193633%_)))) + (_%__kont197013197014%_ + (lambda (_%L193763%_ _%L193764%_ _%L193765%_) + (let ((_%kw193782%_ (let () (declare (not safe)) - (gx#stx-e _%L193659%_)))) - (if (assq _%kw193676%_ _%kwargs193527%_) + (gx#stx-e _%L193765%_)))) + (if (assq _%kw193782%_ _%kwargs193633%_) (let () (declare (not safe)) (gxc#raise-compile-error '"Illegal keyword lambda application; duplicate keyword" - _%stx193520%_ - _%kw193676%_)) - (_%lp193523%_ - _%L193657%_ - _%pargs193526%_ - (cons (cons _%kw193676%_ _%L193658%_) - _%kwargs193527%_)))))) - (_%__kont196909196910%_ - (lambda (_%L193605%_ _%L193606%_) - (_%lp193523%_ - _%L193605%_ - (cons _%L193606%_ _%pargs193526%_) - _%kwargs193527%_))) - (_%__kont196911196912%_ + _%stx193626%_ + _%kw193782%_)) + (_%lp193629%_ + _%L193763%_ + _%pargs193632%_ + (cons (cons _%kw193782%_ _%L193764%_) + _%kwargs193633%_)))))) + (_%__kont197015197016%_ + (lambda (_%L193711%_ _%L193712%_) + (_%lp193629%_ + _%L193711%_ + (cons _%L193712%_ _%pargs193632%_) + _%kwargs193633%_))) + (_%__kont197017197018%_ (lambda () - (values (reverse _%pargs193526%_) - (reverse _%kwargs193527%_))))) - (let ((_%__match197008197009%_ - (lambda (_%e193564193625%_ - _%hd193565193628%_ - _%tl193566193630%_ - _%e193567193633%_ - _%hd193568193636%_ - _%tl193569193638%_ - _%e193570193641%_ - _%hd193571193644%_ - _%tl193572193646%_ - _%e193573193649%_ - _%hd193574193652%_ - _%tl193575193654%_) - (let ((_%L193657%_ _%tl193575193654%_) - (_%L193658%_ _%hd193574193652%_) - (_%L193659%_ _%hd193571193644%_)) + (values (reverse _%pargs193632%_) + (reverse _%kwargs193633%_))))) + (let ((_%__match197114197115%_ + (lambda (_%e193670193731%_ + _%hd193671193734%_ + _%tl193672193736%_ + _%e193673193739%_ + _%hd193674193742%_ + _%tl193675193744%_ + _%e193676193747%_ + _%hd193677193750%_ + _%tl193678193752%_ + _%e193679193755%_ + _%hd193680193758%_ + _%tl193681193760%_) + (let ((_%L193763%_ _%tl193681193760%_) + (_%L193764%_ _%hd193680193758%_) + (_%L193765%_ _%hd193677193750%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L193659%_)) - (_%__kont196907196908%_ - _%L193657%_ - _%L193658%_ - _%L193659%_) - (_%__kont196909196910%_ - _%tl193566193630%_ - _%hd193565193628%_)))))) + (gx#stx-keyword? _%L193765%_)) + (_%__kont197013197014%_ + _%L193763%_ + _%L193764%_ + _%L193765%_) + (_%__kont197015197016%_ + _%tl193672193736%_ + _%hd193671193734%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx196901196902%_)) - (let ((_%e193537193729%_ + (gx#stx-pair? _%__stx197007197008%_)) + (let ((_%e193643193835%_ (let () (declare (not safe)) - (gx#stx-e _%__stx196901196902%_)))) - (let ((_%tl193539193734%_ + (gx#stx-e _%__stx197007197008%_)))) + (let ((_%tl193645193840%_ (let () (declare (not safe)) - (##cdr _%e193537193729%_))) - (_%hd193538193732%_ + (##cdr _%e193643193835%_))) + (_%hd193644193838%_ (let () (declare (not safe)) - (##car _%e193537193729%_)))) + (##car _%e193643193835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193538193732%_)) - (let ((_%e193540193737%_ + (gx#stx-pair? _%hd193644193838%_)) + (let ((_%e193646193843%_ (let () (declare (not safe)) - (gx#stx-e _%hd193538193732%_)))) - (let ((_%tl193542193742%_ + (gx#stx-e _%hd193644193838%_)))) + (let ((_%tl193648193848%_ (let () (declare (not safe)) - (##cdr _%e193540193737%_))) - (_%hd193541193740%_ + (##cdr _%e193646193843%_))) + (_%hd193647193846%_ (let () (declare (not safe)) - (##car _%e193540193737%_)))) + (##car _%e193646193843%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd193541193740%_)) + (gx#identifier? _%hd193647193846%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd193541193740%_)) + _%hd193647193846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193542193742%_)) - (let ((_%e193543193745%_ + _%tl193648193848%_)) + (let ((_%e193649193851%_ (let () (declare (not safe)) (gx#stx-e - _%tl193542193742%_)))) - (let ((_%tl193545193750%_ + _%tl193648193848%_)))) + (let ((_%tl193651193856%_ (let () (declare (not safe)) - (##cdr _%e193543193745%_))) - (_%hd193544193748%_ + (##cdr _%e193649193851%_))) + (_%hd193650193854%_ (let () (declare (not safe)) - (##car _%e193543193745%_)))) + (##car _%e193649193851%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd193544193748%_)) - (let ((_%e193546193753%_ + _%hd193650193854%_)) + (let ((_%e193652193859%_ (let () (declare (not safe)) (gx#stx-e - _%hd193544193748%_)))) - (if (equal? _%e193546193753%_ + _%hd193650193854%_)))) + (if (equal? _%e193652193859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!key) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193545193750%_)) + (gx#stx-null? _%tl193651193856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193539193734%_)) - (let ((_%e193547193756%_ + (gx#stx-pair? _%tl193645193840%_)) + (let ((_%e193653193862%_ (let () (declare (not safe)) - (gx#stx-e _%tl193539193734%_)))) - (let ((_%tl193549193761%_ + (gx#stx-e _%tl193645193840%_)))) + (let ((_%tl193655193867%_ (let () (declare (not safe)) - (##cdr _%e193547193756%_))) - (_%hd193548193759%_ + (##cdr _%e193653193862%_))) + (_%hd193654193865%_ (let () (declare (not safe)) - (##car _%e193547193756%_)))) - (_%__kont196903196904%_ - _%tl193549193761%_ - _%hd193548193759%_))) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (if (equal? _%e193546193753%_ '#!rest) + (##car _%e193653193862%_)))) + (_%__kont197009197010%_ + _%tl193655193867%_ + _%hd193654193865%_))) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (if (equal? _%e193652193859%_ '#!rest) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193545193750%_)) - (_%__kont196905196906%_ _%tl193539193734%_) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) + (gx#stx-null? _%tl193651193856%_)) + (_%__kont197011197012%_ _%tl193645193840%_) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193545193750%_)) + (gx#stx-null? _%tl193651193856%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193539193734%_)) - (let ((_%e193573193649%_ + (gx#stx-pair? _%tl193645193840%_)) + (let ((_%e193679193755%_ (let () (declare (not safe)) - (gx#stx-e _%tl193539193734%_)))) - (let ((_%tl193575193654%_ + (gx#stx-e _%tl193645193840%_)))) + (let ((_%tl193681193760%_ (let () (declare (not safe)) - (##cdr _%e193573193649%_))) - (_%hd193574193652%_ + (##cdr _%e193679193755%_))) + (_%hd193680193758%_ (let () (declare (not safe)) - (##car _%e193573193649%_)))) - (_%__match197008197009%_ - _%e193537193729%_ - _%hd193538193732%_ - _%tl193539193734%_ - _%e193540193737%_ - _%hd193541193740%_ - _%tl193542193742%_ - _%e193543193745%_ - _%hd193544193748%_ - _%tl193545193750%_ - _%e193573193649%_ - _%hd193574193652%_ - _%tl193575193654%_))) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_))))) + (##car _%e193679193755%_)))) + (_%__match197114197115%_ + _%e193643193835%_ + _%hd193644193838%_ + _%tl193645193840%_ + _%e193646193843%_ + _%hd193647193846%_ + _%tl193648193848%_ + _%e193649193851%_ + _%hd193650193854%_ + _%tl193651193856%_ + _%e193679193755%_ + _%hd193680193758%_ + _%tl193681193760%_))) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl193545193750%_)) + _%tl193651193856%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193539193734%_)) - (let ((_%e193573193649%_ + _%tl193645193840%_)) + (let ((_%e193679193755%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl193539193734%_)))) - (let ((_%tl193575193654%_ + (gx#stx-e _%tl193645193840%_)))) + (let ((_%tl193681193760%_ (let () (declare (not safe)) - (##cdr _%e193573193649%_))) - (_%hd193574193652%_ + (##cdr _%e193679193755%_))) + (_%hd193680193758%_ (let () (declare (not safe)) - (##car _%e193573193649%_)))) - (_%__match197008197009%_ - _%e193537193729%_ - _%hd193538193732%_ - _%tl193539193734%_ - _%e193540193737%_ - _%hd193541193740%_ - _%tl193542193742%_ - _%e193543193745%_ - _%hd193544193748%_ - _%tl193545193750%_ - _%e193573193649%_ - _%hd193574193652%_ - _%tl193575193654%_))) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_))))) + (##car _%e193679193755%_)))) + (_%__match197114197115%_ + _%e193643193835%_ + _%hd193644193838%_ + _%tl193645193840%_ + _%e193646193843%_ + _%hd193647193846%_ + _%tl193648193848%_ + _%e193649193851%_ + _%hd193650193854%_ + _%tl193651193856%_ + _%e193679193755%_ + _%hd193680193758%_ + _%tl193681193760%_))) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)))) - (_%__kont196909196910%_ - _%tl193539193734%_ - _%hd193538193732%_)))) - (_%__kont196911196912%_)))))))) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)))) + (_%__kont197015197016%_ + _%tl193645193840%_ + _%hd193644193838%_)))) + (_%__kont197017197018%_)))))))) (define gxc#!kw-lambda-primary::optimize-call - (lambda (_%self192592193502%_ _%ctx193504%_ _%stx193505%_ _%args193506%_) - (let* ((_%self193508%_ _%self192592193502%_) - (_%self193510%_ _%self193508%_)) + (lambda (_%self192698193608%_ _%ctx193610%_ _%stx193611%_ _%args193612%_) + (let* ((_%self193614%_ _%self192698193608%_) + (_%self193616%_ _%self193614%_)) (declare (not safe)) - (gxc#xform-call% _%ctx193504%_ _%stx193505%_)))) + (gxc#xform-call% _%ctx193610%_ _%stx193611%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -4755,394 +4755,394 @@ gxc#!kw-lambda-primary::optimize-call '#f)) (define gxc#apply-check-return-type-begin-annotation% - (lambda (_%self193190%_ _%stx193191%_) - (let* ((_%__stx197017197018%_ _%stx193191%_) - (_%g193194193234%_ + (lambda (_%self193296%_ _%stx193297%_) + (let* ((_%__stx197123197124%_ _%stx193297%_) + (_%g193300193340%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197017197018%_))))) - (let ((_%__kont197019197020%_ - (lambda (_%L193340%_ _%L193341%_) - (let ((_%$e193368%_ + _%__stx197123197124%_))))) + (let ((_%__kont197125197126%_ + (lambda (_%L193446%_ _%L193447%_) + (let ((_%$e193474%_ (member 'return: - (let ((__tmp197449 - (lambda (_%g193360193363%_ - _%g193361193365%_) - (cons _%g193360193363%_ - _%g193361193365%_)))) + (let ((__tmp197555 + (lambda (_%g193466193469%_ + _%g193467193471%_) + (cons _%g193466193469%_ + _%g193467193471%_)))) (declare (not safe)) - (__foldr1 __tmp197449 '() _%L193341%_)) + (__foldr1 __tmp197555 '() _%L193447%_)) gx#stx-eq?))) - (if _%$e193368%_ - ((lambda (_%tail193371%_) - (let ((_%type193373%_ - (let ((__tmp197450 - (let ((__tmp197451 - (cadr _%tail193371%_))) + (if _%$e193474%_ + ((lambda (_%tail193477%_) + (let ((_%type193479%_ + (let ((__tmp197556 + (let ((__tmp197557 + (cadr _%tail193477%_))) (declare (not safe)) (gxc#identifier-symbol - __tmp197451)))) + __tmp197557)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx193191%_ - __tmp197450)))) + _%stx193297%_ + __tmp197556)))) (gxc#check-return-type! - _%stx193191%_ - _%L193340%_ - _%type193373%_) + _%stx193297%_ + _%L193446%_ + _%type193479%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self193190%_ - _%L193340%_)))) - _%$e193368%_) + _%self193296%_ + _%L193446%_)))) + _%$e193474%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193190%_ _%L193340%_)))))) - (_%__kont197023197024%_ - (lambda (_%L193263%_ _%L193264%_) + (gxc#compile-e__1 _%self193296%_ _%L193446%_)))))) + (_%__kont197129197130%_ + (lambda (_%L193369%_ _%L193370%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self193190%_ _%L193263%_))))) - (let ((_%__match197054197055%_ - (lambda (_%e193198193284%_ - _%hd193199193287%_ - _%tl193200193289%_ - _%e193201193292%_ - _%hd193202193295%_ - _%tl193203193297%_ - _%e193204193300%_ - _%hd193205193303%_ - _%tl193206193305%_ - _%__splice197021197022%_ - _%target193207193308%_ - _%tl193209193310%_) - (letrec ((_%loop193210193313%_ - (lambda (_%hd193208193316%_ - _%signature193214193318%_) + (gxc#compile-e__1 _%self193296%_ _%L193369%_))))) + (let ((_%__match197160197161%_ + (lambda (_%e193304193390%_ + _%hd193305193393%_ + _%tl193306193395%_ + _%e193307193398%_ + _%hd193308193401%_ + _%tl193309193403%_ + _%e193310193406%_ + _%hd193311193409%_ + _%tl193312193411%_ + _%__splice197127197128%_ + _%target193313193414%_ + _%tl193315193416%_) + (letrec ((_%loop193316193419%_ + (lambda (_%hd193314193422%_ + _%signature193320193424%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193208193316%_)) - (let ((_%e193211193321%_ + (gx#stx-pair? _%hd193314193422%_)) + (let ((_%e193317193427%_ (let () (declare (not safe)) - (gx#stx-e _%hd193208193316%_)))) - (let ((_%lp-tl193213193326%_ + (gx#stx-e _%hd193314193422%_)))) + (let ((_%lp-tl193319193432%_ (let () (declare (not safe)) - (##cdr _%e193211193321%_))) - (_%lp-hd193212193324%_ + (##cdr _%e193317193427%_))) + (_%lp-hd193318193430%_ (let () (declare (not safe)) - (##car _%e193211193321%_)))) - (_%loop193210193313%_ - _%lp-tl193213193326%_ - (cons _%lp-hd193212193324%_ - _%signature193214193318%_)))) - (let ((_%signature193215193329%_ - (reverse _%signature193214193318%_))) + (##car _%e193317193427%_)))) + (_%loop193316193419%_ + _%lp-tl193319193432%_ + (cons _%lp-hd193318193430%_ + _%signature193320193424%_)))) + (let ((_%signature193321193435%_ + (reverse _%signature193320193424%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193203193297%_)) - (let ((_%e193216193332%_ + (gx#stx-pair? _%tl193309193403%_)) + (let ((_%e193322193438%_ (let () (declare (not safe)) (gx#stx-e - _%tl193203193297%_)))) - (let ((_%tl193218193337%_ + _%tl193309193403%_)))) + (let ((_%tl193324193443%_ (let () (declare (not safe)) - (##cdr _%e193216193332%_))) - (_%hd193217193335%_ + (##cdr _%e193322193438%_))) + (_%hd193323193441%_ (let () (declare (not safe)) - (##car _%e193216193332%_)))) + (##car _%e193322193438%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193218193337%_)) - (_%__kont197019197020%_ - _%hd193217193335%_ - _%signature193215193329%_) + _%tl193324193443%_)) + (_%__kont197125197126%_ + _%hd193323193441%_ + _%signature193321193435%_) (let () (declare (not safe)) - (_%g193194193234%_))))) + (_%g193300193340%_))))) (let () (declare (not safe)) - (_%g193194193234%_)))))))) - (_%loop193210193313%_ _%target193207193308%_ '()))))) + (_%g193300193340%_)))))))) + (_%loop193316193419%_ _%target193313193414%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197017197018%_)) - (let ((_%e193198193284%_ + (gx#stx-pair? _%__stx197123197124%_)) + (let ((_%e193304193390%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197017197018%_)))) - (let ((_%tl193200193289%_ + (gx#stx-e _%__stx197123197124%_)))) + (let ((_%tl193306193395%_ (let () (declare (not safe)) - (##cdr _%e193198193284%_))) - (_%hd193199193287%_ + (##cdr _%e193304193390%_))) + (_%hd193305193393%_ (let () (declare (not safe)) - (##car _%e193198193284%_)))) + (##car _%e193304193390%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193200193289%_)) - (let ((_%e193201193292%_ + (gx#stx-pair? _%tl193306193395%_)) + (let ((_%e193307193398%_ (let () (declare (not safe)) - (gx#stx-e _%tl193200193289%_)))) - (let ((_%tl193203193297%_ + (gx#stx-e _%tl193306193395%_)))) + (let ((_%tl193309193403%_ (let () (declare (not safe)) - (##cdr _%e193201193292%_))) - (_%hd193202193295%_ + (##cdr _%e193307193398%_))) + (_%hd193308193401%_ (let () (declare (not safe)) - (##car _%e193201193292%_)))) + (##car _%e193307193398%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd193202193295%_)) - (let ((_%e193204193300%_ + (gx#stx-pair? _%hd193308193401%_)) + (let ((_%e193310193406%_ (let () (declare (not safe)) - (gx#stx-e _%hd193202193295%_)))) - (let ((_%tl193206193305%_ + (gx#stx-e _%hd193308193401%_)))) + (let ((_%tl193312193411%_ (let () (declare (not safe)) - (##cdr _%e193204193300%_))) - (_%hd193205193303%_ + (##cdr _%e193310193406%_))) + (_%hd193311193409%_ (let () (declare (not safe)) - (##car _%e193204193300%_)))) + (##car _%e193310193406%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd193205193303%_)) + _%hd193311193409%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd193205193303%_)) + _%hd193311193409%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl193206193305%_)) - (let ((_%__splice197021197022%_ + _%tl193312193411%_)) + (let ((_%__splice197127197128%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl193206193305%_ + _%tl193312193411%_ '0)))) - (let ((_%tl193209193310%_ + (let ((_%tl193315193416%_ (let () (declare (not safe)) (##vector-ref - _%__splice197021197022%_ + _%__splice197127197128%_ '1))) - (_%target193207193308%_ + (_%target193313193414%_ (let () (declare (not safe)) (##vector-ref - _%__splice197021197022%_ + _%__splice197127197128%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193209193310%_)) - (_%__match197054197055%_ - _%e193198193284%_ - _%hd193199193287%_ - _%tl193200193289%_ - _%e193201193292%_ - _%hd193202193295%_ - _%tl193203193297%_ - _%e193204193300%_ - _%hd193205193303%_ - _%tl193206193305%_ - _%__splice197021197022%_ - _%target193207193308%_ - _%tl193209193310%_) + _%tl193315193416%_)) + (_%__match197160197161%_ + _%e193304193390%_ + _%hd193305193393%_ + _%tl193306193395%_ + _%e193307193398%_ + _%hd193308193401%_ + _%tl193309193403%_ + _%e193310193406%_ + _%hd193311193409%_ + _%tl193312193411%_ + _%__splice197127197128%_ + _%target193313193414%_ + _%tl193315193416%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl193203193297%_)) - (let ((_%e193227193255%_ + (gx#stx-pair? _%tl193309193403%_)) + (let ((_%e193333193361%_ (let () (declare (not safe)) - (gx#stx-e _%tl193203193297%_)))) - (let ((_%tl193229193260%_ + (gx#stx-e _%tl193309193403%_)))) + (let ((_%tl193335193366%_ (let () (declare (not safe)) - (##cdr _%e193227193255%_))) - (_%hd193228193258%_ + (##cdr _%e193333193361%_))) + (_%hd193334193364%_ (let () (declare (not safe)) - (##car _%e193227193255%_)))) + (##car _%e193333193361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193229193260%_)) - (_%__kont197023197024%_ - _%hd193228193258%_ - _%hd193202193295%_) + (gx#stx-null? _%tl193335193366%_)) + (_%__kont197129197130%_ + _%hd193334193364%_ + _%hd193308193401%_) (let () (declare (not safe)) - (_%g193194193234%_))))) - (let () (declare (not safe)) (_%g193194193234%_)))))) + (_%g193300193340%_))))) + (let () (declare (not safe)) (_%g193300193340%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193203193297%_)) - (let ((_%e193227193255%_ + _%tl193309193403%_)) + (let ((_%e193333193361%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl193203193297%_)))) - (let ((_%tl193229193260%_ - (let () (declare (not safe)) (##cdr _%e193227193255%_))) - (_%hd193228193258%_ + (gx#stx-e _%tl193309193403%_)))) + (let ((_%tl193335193366%_ + (let () (declare (not safe)) (##cdr _%e193333193361%_))) + (_%hd193334193364%_ (let () (declare (not safe)) - (##car _%e193227193255%_)))) + (##car _%e193333193361%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl193229193260%_)) - (_%__kont197023197024%_ - _%hd193228193258%_ - _%hd193202193295%_) - (let () (declare (not safe)) (_%g193194193234%_))))) - (let () (declare (not safe)) (_%g193194193234%_)))) + (gx#stx-null? _%tl193335193366%_)) + (_%__kont197129197130%_ + _%hd193334193364%_ + _%hd193308193401%_) + (let () (declare (not safe)) (_%g193300193340%_))))) + (let () (declare (not safe)) (_%g193300193340%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193203193297%_)) - (let ((_%e193227193255%_ + _%tl193309193403%_)) + (let ((_%e193333193361%_ (let () (declare (not safe)) (gx#stx-e - _%tl193203193297%_)))) - (let ((_%tl193229193260%_ + _%tl193309193403%_)))) + (let ((_%tl193335193366%_ (let () (declare (not safe)) - (##cdr _%e193227193255%_))) - (_%hd193228193258%_ + (##cdr _%e193333193361%_))) + (_%hd193334193364%_ (let () (declare (not safe)) - (##car _%e193227193255%_)))) + (##car _%e193333193361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193229193260%_)) - (_%__kont197023197024%_ - _%hd193228193258%_ - _%hd193202193295%_) + _%tl193335193366%_)) + (_%__kont197129197130%_ + _%hd193334193364%_ + _%hd193308193401%_) (let () (declare (not safe)) - (_%g193194193234%_))))) + (_%g193300193340%_))))) (let () (declare (not safe)) - (_%g193194193234%_)))) + (_%g193300193340%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193203193297%_)) - (let ((_%e193227193255%_ + _%tl193309193403%_)) + (let ((_%e193333193361%_ (let () (declare (not safe)) (gx#stx-e - _%tl193203193297%_)))) - (let ((_%tl193229193260%_ + _%tl193309193403%_)))) + (let ((_%tl193335193366%_ (let () (declare (not safe)) - (##cdr _%e193227193255%_))) - (_%hd193228193258%_ + (##cdr _%e193333193361%_))) + (_%hd193334193364%_ (let () (declare (not safe)) - (##car _%e193227193255%_)))) + (##car _%e193333193361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193229193260%_)) - (_%__kont197023197024%_ - _%hd193228193258%_ - _%hd193202193295%_) + _%tl193335193366%_)) + (_%__kont197129197130%_ + _%hd193334193364%_ + _%hd193308193401%_) (let () (declare (not safe)) - (_%g193194193234%_))))) + (_%g193300193340%_))))) (let () (declare (not safe)) - (_%g193194193234%_)))))) + (_%g193300193340%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl193203193297%_)) - (let ((_%e193227193255%_ + (gx#stx-pair? _%tl193309193403%_)) + (let ((_%e193333193361%_ (let () (declare (not safe)) - (gx#stx-e _%tl193203193297%_)))) - (let ((_%tl193229193260%_ + (gx#stx-e _%tl193309193403%_)))) + (let ((_%tl193335193366%_ (let () (declare (not safe)) - (##cdr _%e193227193255%_))) - (_%hd193228193258%_ + (##cdr _%e193333193361%_))) + (_%hd193334193364%_ (let () (declare (not safe)) - (##car _%e193227193255%_)))) + (##car _%e193333193361%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193229193260%_)) - (_%__kont197023197024%_ - _%hd193228193258%_ - _%hd193202193295%_) + _%tl193335193366%_)) + (_%__kont197129197130%_ + _%hd193334193364%_ + _%hd193308193401%_) (let () (declare (not safe)) - (_%g193194193234%_))))) + (_%g193300193340%_))))) (let () (declare (not safe)) - (_%g193194193234%_)))))) - (let () (declare (not safe)) (_%g193194193234%_))))) - (let () (declare (not safe)) (_%g193194193234%_)))))))) + (_%g193300193340%_)))))) + (let () (declare (not safe)) (_%g193300193340%_))))) + (let () (declare (not safe)) (_%g193300193340%_)))))))) (define gxc#check-return-type! - (lambda (_%stx193168%_ _%expr193169%_ _%type193170%_) - (let ((_%$e193172%_ (not _%type193170%_))) - (if _%$e193172%_ - _%$e193172%_ - (let ((_%$e193175%_ - (eq? (##structure-ref _%type193170%_ '1 gxc#!type::t '#f) + (lambda (_%stx193274%_ _%expr193275%_ _%type193276%_) + (let ((_%$e193278%_ (not _%type193276%_))) + (if _%$e193278%_ + _%$e193278%_ + (let ((_%$e193281%_ + (eq? (##structure-ref _%type193276%_ '1 gxc#!type::t '#f) 't))) - (if _%$e193175%_ - _%$e193175%_ - (let ((_%expr-type193179%_ + (if _%$e193281%_ + _%$e193281%_ + (let ((_%expr-type193285%_ (let () (declare (not safe)) (gxc#apply-basic-expression-type - _%expr193169%_)))) - (if (not _%expr-type193179%_) + _%expr193275%_)))) + (if (not _%expr-type193285%_) (let () (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; no type information" - _%stx193168%_ - _%type193170%_)) + _%stx193274%_ + _%type193276%_)) (if (eq? 't (##structure-ref - _%expr-type193179%_ + _%expr-type193285%_ '1 gxc#!type::t '#f)) @@ -5150,75 +5150,75 @@ (declare (not safe)) (gxc#raise-compile-error '"cannot verify procedure return type; unspecific type" - _%stx193168%_ - _%type193170%_ - _%expr-type193179%_)) - (let ((_%$e193183%_ + _%stx193274%_ + _%type193276%_ + _%expr-type193285%_)) + (let ((_%$e193289%_ (let () (declare (not safe)) (##structure-instance-of? - _%expr-type193179%_ + _%expr-type193285%_ 'gxc#!abort::t)))) - (if _%$e193183%_ - _%$e193183%_ - (let ((_%$e193186%_ + (if _%$e193289%_ + _%$e193289%_ + (let ((_%$e193292%_ (let () (declare (not safe)) (gxc#!type-subtype? - _%expr-type193179%_ - _%type193170%_)))) - (if _%$e193186%_ - _%$e193186%_ + _%expr-type193285%_ + _%type193276%_)))) + (if _%$e193292%_ + _%$e193292%_ (let () (declare (not safe)) (gxc#raise-compile-error '"procedure return type does not match signature" - _%stx193168%_ - _%type193170%_ - _%expr-type193179%_))))))))))))))) + _%stx193274%_ + _%type193276%_ + _%expr-type193285%_))))))))))))))) (define gxc#optimize-if% - (lambda (_%self192594%_ _%stx192595%_) - (let* ((_%__stx197099197100%_ _%stx192595%_) - (_%g192600192710%_ + (lambda (_%self192700%_ _%stx192701%_) + (let* ((_%__stx197205197206%_ _%stx192701%_) + (_%g192706192816%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197099197100%_))))) - (let ((_%__kont197101197102%_ - (lambda (_%L193142%_ _%L193143%_ _%L193144%_) - (if (let () (declare (not safe)) (gx#stx-e _%L193144%_)) + _%__stx197205197206%_))))) + (let ((_%__kont197207197208%_ + (lambda (_%L193248%_ _%L193249%_ _%L193250%_) + (if (let () (declare (not safe)) (gx#stx-e _%L193250%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192594%_ _%L193143%_)) + (gxc#compile-e__1 _%self192700%_ _%L193249%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self192594%_ _%L193142%_))))) - (_%__kont197103197104%_ - (lambda (_%L192968%_ _%L192969%_ _%L192970%_ _%L192971%_) - (let ((_%$e193003%_ - (let ((__tmp197452 + (gxc#compile-e__1 _%self192700%_ _%L193248%_))))) + (_%__kont197209197210%_ + (lambda (_%L193074%_ _%L193075%_ _%L193076%_ _%L193077%_) + (let ((_%$e193109%_ + (let ((__tmp197558 (let () (declare (not safe)) - (gxc#identifier-symbol _%L192971%_)))) + (gxc#identifier-symbol _%L193077%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp197452)))) - (if _%$e193003%_ - ((lambda (_%pred-type193006%_) + (gxc#optimizer-lookup-type __tmp197558)))) + (if _%$e193109%_ + ((lambda (_%pred-type193112%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type193006%_ + _%pred-type193112%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type193006%_ + _%pred-type193112%_ 'gxc#!primitive-predicate::t))) - (let* ((_%test193011%_ - (let ((__tmp197453 + (let* ((_%test193117%_ + (let ((__tmp197559 (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5228,1749 +5228,1749 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192971%_ '())) + (cons _%L193077%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L192970%_ '())) + (cons _%L193076%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-apply - __tmp197453 - _%stx192595%_ - _%self192594%_))) - (_%K193015%_ - (let ((__tmp197454 + __tmp197559 + _%stx192701%_ + _%self192700%_))) + (_%K193121%_ + (let ((__tmp197560 (lambda () - (let ((__tmp197457 + (let ((__tmp197563 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192594%_ - _%L192969%_)))) - (__tmp197455 + _%self192700%_ + _%L193075%_)))) + (__tmp197561 (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%L192970%_)) - (let ((__tmp197456 + (gxc#identifier-symbol _%L193076%_)) + (let ((__tmp197562 (##structure-ref - _%pred-type193006%_ + _%pred-type193112%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx192595%_ - __tmp197456))) + _%stx192701%_ + __tmp197562))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp197457 + __tmp197563 gxc#current-compile-path-type - __tmp197455))))) + __tmp197561))))) (declare (not safe)) - (__make-promise __tmp197454))) - (_%E193018%_ - (let ((__tmp197458 + (__make-promise __tmp197560))) + (_%E193124%_ + (let ((__tmp197564 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self192594%_ - _%L192968%_))))) + _%self192700%_ + _%L193074%_))))) (declare (not safe)) - (__make-promise __tmp197458))) - (_%__stx197077197078%_ _%test193011%_) - (_%g193022193036%_ + (__make-promise __tmp197564))) + (_%__stx197183197184%_ _%test193117%_) + (_%g193128193142%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx197077197078%_))))) - (let ((_%__kont197079197080%_ - (lambda (_%L193064%_ _%L193065%_) + _%__stx197183197184%_))))) + (let ((_%__kont197185197186%_ + (lambda (_%L193170%_ _%L193171%_) (if (let () (declare (not safe)) - (gx#stx-e _%L193064%_)) - (force _%K193015%_) - (force _%E193018%_)))) - (_%__kont197081197082%_ + (gx#stx-e _%L193170%_)) + (force _%K193121%_) + (force _%E193124%_)))) + (_%__kont197187197188%_ (lambda () - (let ((__tmp197459 + (let ((__tmp197565 (cons '%#if - (cons _%test193011%_ - (cons (force _%K193015%_) + (cons _%test193117%_ + (cons (force _%K193121%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (force _%E193018%_) '())))))) + (cons (force _%E193124%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp197459 - _%stx192595%_))))) + __tmp197565 + _%stx192701%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197077197078%_)) - (let ((_%e193026193048%_ + (gx#stx-pair? _%__stx197183197184%_)) + (let ((_%e193132193154%_ (let () (declare (not safe)) (gx#stx-e - _%__stx197077197078%_)))) - (let ((_%tl193028193053%_ + _%__stx197183197184%_)))) + (let ((_%tl193134193159%_ (let () (declare (not safe)) - (##cdr _%e193026193048%_))) - (_%hd193027193051%_ + (##cdr _%e193132193154%_))) + (_%hd193133193157%_ (let () (declare (not safe)) - (##car _%e193026193048%_)))) + (##car _%e193132193154%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl193028193053%_)) - (let ((_%e193029193056%_ + _%tl193134193159%_)) + (let ((_%e193135193162%_ (let () (declare (not safe)) (gx#stx-e - _%tl193028193053%_)))) - (let ((_%tl193031193061%_ + _%tl193134193159%_)))) + (let ((_%tl193137193167%_ (let () (declare (not safe)) - (##cdr _%e193029193056%_))) - (_%hd193030193059%_ + (##cdr _%e193135193162%_))) + (_%hd193136193165%_ (let () (declare (not safe)) - (##car _%e193029193056%_)))) + (##car _%e193135193162%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl193031193061%_)) - (_%__kont197079197080%_ - _%hd193030193059%_ - _%hd193027193051%_) - (_%__kont197081197082%_)))) - (_%__kont197081197082%_)))) - (_%__kont197081197082%_)))) + _%tl193137193167%_)) + (_%__kont197185197186%_ + _%hd193136193165%_ + _%hd193133193157%_) + (_%__kont197187197188%_)))) + (_%__kont197187197188%_)))) + (_%__kont197187197188%_)))) (let () (declare (not safe)) (gxc#xform-operands - _%self192594%_ - _%stx192595%_)))) - _%$e193003%_) + _%self192700%_ + _%stx192701%_)))) + _%$e193109%_) (let () (declare (not safe)) (gxc#xform-operands - _%self192594%_ - _%stx192595%_)))))) - (_%__kont197105197106%_ - (lambda (_%L192844%_ _%L192845%_ _%L192846%_ _%L192847%_) + _%self192700%_ + _%stx192701%_)))))) + (_%__kont197211197212%_ + (lambda (_%L192950%_ _%L192951%_ _%L192952%_ _%L192953%_) (gxc#optimize-if% - _%self192594%_ - (let ((__tmp197460 + _%self192700%_ + (let ((__tmp197566 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L192846%_ - (cons _%L192844%_ - (cons _%L192845%_ '())))))) + (cons _%L192952%_ + (cons _%L192950%_ + (cons _%L192951%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp197460 _%stx192595%_))))) - (_%__kont197107197108%_ - (lambda (_%L192747%_ _%L192748%_ _%L192749%_) + (gxc#xform-wrap-source __tmp197566 _%stx192701%_))))) + (_%__kont197213197214%_ + (lambda (_%L192853%_ _%L192854%_ _%L192855%_) (let () (declare (not safe)) - (gxc#xform-operands _%self192594%_ _%stx192595%_))))) - (let ((_%__match197306197307%_ - (lambda (_%e192664192772%_ - _%hd192665192775%_ - _%tl192666192777%_ - _%e192667192780%_ - _%hd192668192783%_ - _%tl192669192785%_ - _%e192670192788%_ - _%hd192671192791%_ - _%tl192672192793%_ - _%e192673192796%_ - _%hd192674192799%_ - _%tl192675192801%_ - _%e192676192804%_ - _%hd192677192807%_ - _%tl192678192809%_ - _%e192679192812%_ - _%hd192680192815%_ - _%tl192681192817%_ - _%e192682192820%_ - _%hd192683192823%_ - _%tl192684192825%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) - (let ((_%L192844%_ _%hd192689192839%_) - (_%L192845%_ _%hd192686192831%_) - (_%L192846%_ _%hd192683192823%_) - (_%L192847%_ _%hd192680192815%_)) + (gxc#xform-operands _%self192700%_ _%stx192701%_))))) + (let ((_%__match197412197413%_ + (lambda (_%e192770192878%_ + _%hd192771192881%_ + _%tl192772192883%_ + _%e192773192886%_ + _%hd192774192889%_ + _%tl192775192891%_ + _%e192776192894%_ + _%hd192777192897%_ + _%tl192778192899%_ + _%e192779192902%_ + _%hd192780192905%_ + _%tl192781192907%_ + _%e192782192910%_ + _%hd192783192913%_ + _%tl192784192915%_ + _%e192785192918%_ + _%hd192786192921%_ + _%tl192787192923%_ + _%e192788192926%_ + _%hd192789192929%_ + _%tl192790192931%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) + (let ((_%L192950%_ _%hd192795192945%_) + (_%L192951%_ _%hd192792192937%_) + (_%L192952%_ _%hd192789192929%_) + (_%L192953%_ _%hd192786192921%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L192847%_ 'not)) - (_%__kont197105197106%_ - _%L192844%_ - _%L192845%_ - _%L192846%_ - _%L192847%_) - (_%__kont197107197108%_ - _%hd192689192839%_ - _%hd192686192831%_ - _%hd192668192783%_)))))) + (gxc#runtime-identifier=? _%L192953%_ 'not)) + (_%__kont197211197212%_ + _%L192950%_ + _%L192951%_ + _%L192952%_ + _%L192953%_) + (_%__kont197213197214%_ + _%hd192795192945%_ + _%hd192792192937%_ + _%hd192774192889%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx197099197100%_)) - (let ((_%e192605193094%_ + (gx#stx-pair? _%__stx197205197206%_)) + (let ((_%e192711193200%_ (let () (declare (not safe)) - (gx#stx-e _%__stx197099197100%_)))) - (let ((_%tl192607193099%_ + (gx#stx-e _%__stx197205197206%_)))) + (let ((_%tl192713193205%_ (let () (declare (not safe)) - (##cdr _%e192605193094%_))) - (_%hd192606193097%_ + (##cdr _%e192711193200%_))) + (_%hd192712193203%_ (let () (declare (not safe)) - (##car _%e192605193094%_)))) + (##car _%e192711193200%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192607193099%_)) - (let ((_%e192608193102%_ + (gx#stx-pair? _%tl192713193205%_)) + (let ((_%e192714193208%_ (let () (declare (not safe)) - (gx#stx-e _%tl192607193099%_)))) - (let ((_%tl192610193107%_ + (gx#stx-e _%tl192713193205%_)))) + (let ((_%tl192716193213%_ (let () (declare (not safe)) - (##cdr _%e192608193102%_))) - (_%hd192609193105%_ + (##cdr _%e192714193208%_))) + (_%hd192715193211%_ (let () (declare (not safe)) - (##car _%e192608193102%_)))) + (##car _%e192714193208%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192609193105%_)) - (let ((_%e192611193110%_ + (gx#stx-pair? _%hd192715193211%_)) + (let ((_%e192717193216%_ (let () (declare (not safe)) - (gx#stx-e _%hd192609193105%_)))) - (let ((_%tl192613193115%_ + (gx#stx-e _%hd192715193211%_)))) + (let ((_%tl192719193221%_ (let () (declare (not safe)) - (##cdr _%e192611193110%_))) - (_%hd192612193113%_ + (##cdr _%e192717193216%_))) + (_%hd192718193219%_ (let () (declare (not safe)) - (##car _%e192611193110%_)))) + (##car _%e192717193216%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd192612193113%_)) + _%hd192718193219%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd192612193113%_)) + _%hd192718193219%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192613193115%_)) - (let ((_%e192614193118%_ + _%tl192719193221%_)) + (let ((_%e192720193224%_ (let () (declare (not safe)) (gx#stx-e - _%tl192613193115%_)))) - (let ((_%tl192616193123%_ + _%tl192719193221%_)))) + (let ((_%tl192722193229%_ (let () (declare (not safe)) - (##cdr _%e192614193118%_))) - (_%hd192615193121%_ + (##cdr _%e192720193224%_))) + (_%hd192721193227%_ (let () (declare (not safe)) - (##car _%e192614193118%_)))) + (##car _%e192720193224%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192616193123%_)) + _%tl192722193229%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192617193126%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192723193232%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192619193131%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192725193237%_ (let () (declare (not safe)) - (##cdr _%e192617193126%_))) - (_%hd192618193129%_ + (##cdr _%e192723193232%_))) + (_%hd192724193235%_ (let () (declare (not safe)) - (##car _%e192617193126%_)))) + (##car _%e192723193232%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192619193131%_)) - (let ((_%e192620193134%_ + (gx#stx-pair? _%tl192725193237%_)) + (let ((_%e192726193240%_ (let () (declare (not safe)) - (gx#stx-e _%tl192619193131%_)))) - (let ((_%tl192622193139%_ + (gx#stx-e _%tl192725193237%_)))) + (let ((_%tl192728193245%_ (let () (declare (not safe)) - (##cdr _%e192620193134%_))) - (_%hd192621193137%_ + (##cdr _%e192726193240%_))) + (_%hd192727193243%_ (let () (declare (not safe)) - (##car _%e192620193134%_)))) + (##car _%e192726193240%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192622193139%_)) - (_%__kont197101197102%_ - _%hd192621193137%_ - _%hd192618193129%_ - _%hd192615193121%_) + (gx#stx-null? _%tl192728193245%_)) + (_%__kont197207197208%_ + _%hd192727193243%_ + _%hd192724193235%_ + _%hd192721193227%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ - (let () (declare (not safe)) (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ + (let () (declare (not safe)) (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd192612193113%_)) + _%hd192718193219%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192613193115%_)) - (let ((_%e192636192904%_ + _%tl192719193221%_)) + (let ((_%e192742193010%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192613193115%_)))) - (let ((_%tl192638192909%_ - (let () (declare (not safe)) (##cdr _%e192636192904%_))) - (_%hd192637192907%_ + (gx#stx-e _%tl192719193221%_)))) + (let ((_%tl192744193015%_ + (let () (declare (not safe)) (##cdr _%e192742193010%_))) + (_%hd192743193013%_ (let () (declare (not safe)) - (##car _%e192636192904%_)))) + (##car _%e192742193010%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd192637192907%_)) - (let ((_%e192639192912%_ + (gx#stx-pair? _%hd192743193013%_)) + (let ((_%e192745193018%_ (let () (declare (not safe)) - (gx#stx-e _%hd192637192907%_)))) - (let ((_%tl192641192917%_ + (gx#stx-e _%hd192743193013%_)))) + (let ((_%tl192747193023%_ (let () (declare (not safe)) - (##cdr _%e192639192912%_))) - (_%hd192640192915%_ + (##cdr _%e192745193018%_))) + (_%hd192746193021%_ (let () (declare (not safe)) - (##car _%e192639192912%_)))) + (##car _%e192745193018%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192640192915%_)) + (gx#identifier? _%hd192746193021%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192640192915%_)) + (gx#stx-eq? '%#ref _%hd192746193021%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192641192917%_)) - (let ((_%e192642192920%_ + (gx#stx-pair? _%tl192747193023%_)) + (let ((_%e192748193026%_ (let () (declare (not safe)) - (gx#stx-e _%tl192641192917%_)))) - (let ((_%tl192644192925%_ + (gx#stx-e _%tl192747193023%_)))) + (let ((_%tl192750193031%_ (let () (declare (not safe)) - (##cdr _%e192642192920%_))) - (_%hd192643192923%_ + (##cdr _%e192748193026%_))) + (_%hd192749193029%_ (let () (declare (not safe)) - (##car _%e192642192920%_)))) + (##car _%e192748193026%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192644192925%_)) + _%tl192750193031%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192638192909%_)) - (let ((_%e192645192928%_ + _%tl192744193015%_)) + (let ((_%e192751193034%_ (let () (declare (not safe)) (gx#stx-e - _%tl192638192909%_)))) - (let ((_%tl192647192933%_ + _%tl192744193015%_)))) + (let ((_%tl192753193039%_ (let () (declare (not safe)) - (##cdr _%e192645192928%_))) - (_%hd192646192931%_ + (##cdr _%e192751193034%_))) + (_%hd192752193037%_ (let () (declare (not safe)) - (##car _%e192645192928%_)))) + (##car _%e192751193034%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd192646192931%_)) - (let ((_%e192648192936%_ + _%hd192752193037%_)) + (let ((_%e192754193042%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd192646192931%_)))) - (let ((_%tl192650192941%_ + (gx#stx-e _%hd192752193037%_)))) + (let ((_%tl192756193047%_ (let () (declare (not safe)) - (##cdr _%e192648192936%_))) - (_%hd192649192939%_ + (##cdr _%e192754193042%_))) + (_%hd192755193045%_ (let () (declare (not safe)) - (##car _%e192648192936%_)))) + (##car _%e192754193042%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd192649192939%_)) + (gx#identifier? _%hd192755193045%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd192649192939%_)) + (gx#stx-eq? '%#ref _%hd192755193045%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192650192941%_)) - (let ((_%e192651192944%_ + (gx#stx-pair? _%tl192756193047%_)) + (let ((_%e192757193050%_ (let () (declare (not safe)) - (gx#stx-e _%tl192650192941%_)))) - (let ((_%tl192653192949%_ + (gx#stx-e _%tl192756193047%_)))) + (let ((_%tl192759193055%_ (let () (declare (not safe)) - (##cdr _%e192651192944%_))) - (_%hd192652192947%_ + (##cdr _%e192757193050%_))) + (_%hd192758193053%_ (let () (declare (not safe)) - (##car _%e192651192944%_)))) + (##car _%e192757193050%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192653192949%_)) + (gx#stx-null? _%tl192759193055%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192647192933%_)) + _%tl192753193039%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192654192952%_ + _%tl192716193213%_)) + (let ((_%e192760193058%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192656192957%_ + _%tl192716193213%_)))) + (let ((_%tl192762193063%_ (let () (declare (not safe)) - (##cdr _%e192654192952%_))) - (_%hd192655192955%_ + (##cdr _%e192760193058%_))) + (_%hd192761193061%_ (let () (declare (not safe)) - (##car _%e192654192952%_)))) + (##car _%e192760193058%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192656192957%_)) - (let ((_%e192657192960%_ + _%tl192762193063%_)) + (let ((_%e192763193066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192656192957%_)))) - (let ((_%tl192659192965%_ + (gx#stx-e _%tl192762193063%_)))) + (let ((_%tl192765193071%_ (let () (declare (not safe)) - (##cdr _%e192657192960%_))) - (_%hd192658192963%_ + (##cdr _%e192763193066%_))) + (_%hd192764193069%_ (let () (declare (not safe)) - (##car _%e192657192960%_)))) + (##car _%e192763193066%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192659192965%_)) - (_%__kont197103197104%_ - _%hd192658192963%_ - _%hd192655192955%_ - _%hd192652192947%_ - _%hd192643192923%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192765193071%_)) + (_%__kont197209197210%_ + _%hd192764193069%_ + _%hd192761193061%_ + _%hd192758193053%_ + _%hd192749193029%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_))) + (_%g192706192816%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_)))) + (_%g192706192816%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192647192933%_)) + _%tl192753193039%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192685192828%_ + _%tl192716193213%_)) + (let ((_%e192791192934%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192687192833%_ + _%tl192716193213%_)))) + (let ((_%tl192793192939%_ (let () (declare (not safe)) - (##cdr _%e192685192828%_))) - (_%hd192686192831%_ + (##cdr _%e192791192934%_))) + (_%hd192792192937%_ (let () (declare (not safe)) - (##car _%e192685192828%_)))) + (##car _%e192791192934%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192687192833%_)) - (let ((_%e192688192836%_ + _%tl192793192939%_)) + (let ((_%e192794192942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192687192833%_)))) - (let ((_%tl192690192841%_ + (gx#stx-e _%tl192793192939%_)))) + (let ((_%tl192796192947%_ (let () (declare (not safe)) - (##cdr _%e192688192836%_))) - (_%hd192689192839%_ + (##cdr _%e192794192942%_))) + (_%hd192795192945%_ (let () (declare (not safe)) - (##car _%e192688192836%_)))) + (##car _%e192794192942%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192690192841%_)) - (_%__match197306197307%_ - _%e192605193094%_ - _%hd192606193097%_ - _%tl192607193099%_ - _%e192608193102%_ - _%hd192609193105%_ - _%tl192610193107%_ - _%e192611193110%_ - _%hd192612193113%_ - _%tl192613193115%_ - _%e192636192904%_ - _%hd192637192907%_ - _%tl192638192909%_ - _%e192639192912%_ - _%hd192640192915%_ - _%tl192641192917%_ - _%e192642192920%_ - _%hd192643192923%_ - _%tl192644192925%_ - _%e192645192928%_ - _%hd192646192931%_ - _%tl192647192933%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192796192947%_)) + (_%__match197412197413%_ + _%e192711193200%_ + _%hd192712193203%_ + _%tl192713193205%_ + _%e192714193208%_ + _%hd192715193211%_ + _%tl192716193213%_ + _%e192717193216%_ + _%hd192718193219%_ + _%tl192719193221%_ + _%e192742193010%_ + _%hd192743193013%_ + _%tl192744193015%_ + _%e192745193018%_ + _%hd192746193021%_ + _%tl192747193023%_ + _%e192748193026%_ + _%hd192749193029%_ + _%tl192750193031%_ + _%e192751193034%_ + _%hd192752193037%_ + _%tl192753193039%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_))) + (_%g192706192816%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_))))))) + (_%g192706192816%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192647192933%_)) + (gx#stx-null? _%tl192753193039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192685192828%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192791192934%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192687192833%_ + _%tl192716193213%_)))) + (let ((_%tl192793192939%_ (let () (declare (not safe)) - (##cdr _%e192685192828%_))) - (_%hd192686192831%_ + (##cdr _%e192791192934%_))) + (_%hd192792192937%_ (let () (declare (not safe)) - (##car _%e192685192828%_)))) + (##car _%e192791192934%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192687192833%_)) - (let ((_%e192688192836%_ + _%tl192793192939%_)) + (let ((_%e192794192942%_ (let () (declare (not safe)) (gx#stx-e - _%tl192687192833%_)))) - (let ((_%tl192690192841%_ + _%tl192793192939%_)))) + (let ((_%tl192796192947%_ (let () (declare (not safe)) - (##cdr _%e192688192836%_))) - (_%hd192689192839%_ + (##cdr _%e192794192942%_))) + (_%hd192795192945%_ (let () (declare (not safe)) - (##car _%e192688192836%_)))) + (##car _%e192794192942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192690192841%_)) - (_%__match197306197307%_ - _%e192605193094%_ - _%hd192606193097%_ - _%tl192607193099%_ - _%e192608193102%_ - _%hd192609193105%_ - _%tl192610193107%_ - _%e192611193110%_ - _%hd192612193113%_ - _%tl192613193115%_ - _%e192636192904%_ - _%hd192637192907%_ - _%tl192638192909%_ - _%e192639192912%_ - _%hd192640192915%_ - _%tl192641192917%_ - _%e192642192920%_ - _%hd192643192923%_ - _%tl192644192925%_ - _%e192645192928%_ - _%hd192646192931%_ - _%tl192647192933%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) + _%tl192796192947%_)) + (_%__match197412197413%_ + _%e192711193200%_ + _%hd192712193203%_ + _%tl192713193205%_ + _%e192714193208%_ + _%hd192715193211%_ + _%tl192716193213%_ + _%e192717193216%_ + _%hd192718193219%_ + _%tl192719193221%_ + _%e192742193010%_ + _%hd192743193013%_ + _%tl192744193015%_ + _%e192745193018%_ + _%hd192746193021%_ + _%tl192747193023%_ + _%e192748193026%_ + _%hd192749193029%_ + _%tl192750193031%_ + _%e192751193034%_ + _%hd192752193037%_ + _%tl192753193039%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))) + (_%g192706192816%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192647192933%_)) + (gx#stx-null? _%tl192753193039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192685192828%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192791192934%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192687192833%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192793192939%_ (let () (declare (not safe)) - (##cdr _%e192685192828%_))) - (_%hd192686192831%_ + (##cdr _%e192791192934%_))) + (_%hd192792192937%_ (let () (declare (not safe)) - (##car _%e192685192828%_)))) + (##car _%e192791192934%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192687192833%_)) - (let ((_%e192688192836%_ + _%tl192793192939%_)) + (let ((_%e192794192942%_ (let () (declare (not safe)) (gx#stx-e - _%tl192687192833%_)))) - (let ((_%tl192690192841%_ + _%tl192793192939%_)))) + (let ((_%tl192796192947%_ (let () (declare (not safe)) - (##cdr _%e192688192836%_))) - (_%hd192689192839%_ + (##cdr _%e192794192942%_))) + (_%hd192795192945%_ (let () (declare (not safe)) - (##car _%e192688192836%_)))) + (##car _%e192794192942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192690192841%_)) - (_%__match197306197307%_ - _%e192605193094%_ - _%hd192606193097%_ - _%tl192607193099%_ - _%e192608193102%_ - _%hd192609193105%_ - _%tl192610193107%_ - _%e192611193110%_ - _%hd192612193113%_ - _%tl192613193115%_ - _%e192636192904%_ - _%hd192637192907%_ - _%tl192638192909%_ - _%e192639192912%_ - _%hd192640192915%_ - _%tl192641192917%_ - _%e192642192920%_ - _%hd192643192923%_ - _%tl192644192925%_ - _%e192645192928%_ - _%hd192646192931%_ - _%tl192647192933%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) + _%tl192796192947%_)) + (_%__match197412197413%_ + _%e192711193200%_ + _%hd192712193203%_ + _%tl192713193205%_ + _%e192714193208%_ + _%hd192715193211%_ + _%tl192716193213%_ + _%e192717193216%_ + _%hd192718193219%_ + _%tl192719193221%_ + _%e192742193010%_ + _%hd192743193013%_ + _%tl192744193015%_ + _%e192745193018%_ + _%hd192746193021%_ + _%tl192747193023%_ + _%e192748193026%_ + _%hd192749193029%_ + _%tl192750193031%_ + _%e192751193034%_ + _%hd192752193037%_ + _%tl192753193039%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))) + (_%g192706192816%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192647192933%_)) + (gx#stx-null? _%tl192753193039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192685192828%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192791192934%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192687192833%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192793192939%_ (let () (declare (not safe)) - (##cdr _%e192685192828%_))) - (_%hd192686192831%_ + (##cdr _%e192791192934%_))) + (_%hd192792192937%_ (let () (declare (not safe)) - (##car _%e192685192828%_)))) + (##car _%e192791192934%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192687192833%_)) - (let ((_%e192688192836%_ + (gx#stx-pair? _%tl192793192939%_)) + (let ((_%e192794192942%_ (let () (declare (not safe)) (gx#stx-e - _%tl192687192833%_)))) - (let ((_%tl192690192841%_ + _%tl192793192939%_)))) + (let ((_%tl192796192947%_ (let () (declare (not safe)) - (##cdr _%e192688192836%_))) - (_%hd192689192839%_ + (##cdr _%e192794192942%_))) + (_%hd192795192945%_ (let () (declare (not safe)) - (##car _%e192688192836%_)))) + (##car _%e192794192942%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192690192841%_)) - (_%__match197306197307%_ - _%e192605193094%_ - _%hd192606193097%_ - _%tl192607193099%_ - _%e192608193102%_ - _%hd192609193105%_ - _%tl192610193107%_ - _%e192611193110%_ - _%hd192612193113%_ - _%tl192613193115%_ - _%e192636192904%_ - _%hd192637192907%_ - _%tl192638192909%_ - _%e192639192912%_ - _%hd192640192915%_ - _%tl192641192917%_ - _%e192642192920%_ - _%hd192643192923%_ - _%tl192644192925%_ - _%e192645192928%_ - _%hd192646192931%_ - _%tl192647192933%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) + _%tl192796192947%_)) + (_%__match197412197413%_ + _%e192711193200%_ + _%hd192712193203%_ + _%tl192713193205%_ + _%e192714193208%_ + _%hd192715193211%_ + _%tl192716193213%_ + _%e192717193216%_ + _%hd192718193219%_ + _%tl192719193221%_ + _%e192742193010%_ + _%hd192743193013%_ + _%tl192744193015%_ + _%e192745193018%_ + _%hd192746193021%_ + _%tl192747193023%_ + _%e192748193026%_ + _%hd192749193029%_ + _%tl192750193031%_ + _%e192751193034%_ + _%hd192752193037%_ + _%tl192753193039%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))) + (_%g192706192816%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))))) + (_%g192706192816%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192647192933%_)) + (gx#stx-null? _%tl192753193039%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192685192828%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192791192934%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192687192833%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192793192939%_ (let () (declare (not safe)) - (##cdr _%e192685192828%_))) - (_%hd192686192831%_ + (##cdr _%e192791192934%_))) + (_%hd192792192937%_ (let () (declare (not safe)) - (##car _%e192685192828%_)))) + (##car _%e192791192934%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192687192833%_)) - (let ((_%e192688192836%_ + (gx#stx-pair? _%tl192793192939%_)) + (let ((_%e192794192942%_ (let () (declare (not safe)) - (gx#stx-e _%tl192687192833%_)))) - (let ((_%tl192690192841%_ + (gx#stx-e _%tl192793192939%_)))) + (let ((_%tl192796192947%_ (let () (declare (not safe)) - (##cdr _%e192688192836%_))) - (_%hd192689192839%_ + (##cdr _%e192794192942%_))) + (_%hd192795192945%_ (let () (declare (not safe)) - (##car _%e192688192836%_)))) + (##car _%e192794192942%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192690192841%_)) - (_%__match197306197307%_ - _%e192605193094%_ - _%hd192606193097%_ - _%tl192607193099%_ - _%e192608193102%_ - _%hd192609193105%_ - _%tl192610193107%_ - _%e192611193110%_ - _%hd192612193113%_ - _%tl192613193115%_ - _%e192636192904%_ - _%hd192637192907%_ - _%tl192638192909%_ - _%e192639192912%_ - _%hd192640192915%_ - _%tl192641192917%_ - _%e192642192920%_ - _%hd192643192923%_ - _%tl192644192925%_ - _%e192645192928%_ - _%hd192646192931%_ - _%tl192647192933%_ - _%e192685192828%_ - _%hd192686192831%_ - _%tl192687192833%_ - _%e192688192836%_ - _%hd192689192839%_ - _%tl192690192841%_) + (gx#stx-null? _%tl192796192947%_)) + (_%__match197412197413%_ + _%e192711193200%_ + _%hd192712193203%_ + _%tl192713193205%_ + _%e192714193208%_ + _%hd192715193211%_ + _%tl192716193213%_ + _%e192717193216%_ + _%hd192718193219%_ + _%tl192719193221%_ + _%e192742193010%_ + _%hd192743193013%_ + _%tl192744193015%_ + _%e192745193018%_ + _%hd192746193021%_ + _%tl192747193023%_ + _%e192748193026%_ + _%hd192749193029%_ + _%tl192750193031%_ + _%e192751193034%_ + _%hd192752193037%_ + _%tl192753193039%_ + _%e192791192934%_ + _%hd192792192937%_ + _%tl192793192939%_ + _%e192794192942%_ + _%hd192795192945%_ + _%tl192796192947%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))))) + (_%g192706192816%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ - (let () (declare (not safe)) (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ + (let () (declare (not safe)) (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_)))))) + (_%g192706192816%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_)))) + (_%g192706192816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_)))) + (_%g192706192816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_)))))) + (_%g192706192816%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ - (let () (declare (not safe)) (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ + (let () (declare (not safe)) (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192702192736%_)) - (let ((_%e192703192739%_ + (gx#stx-pair? _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192610193107%_)) - (let ((_%e192700192731%_ + _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) (gx#stx-e - _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl192702192736%_)))) - (let ((_%tl192705192744%_ - (let () (declare (not safe)) (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (gx#stx-e _%tl192808192842%_)))) + (let ((_%tl192811192850%_ + (let () (declare (not safe)) (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_))))) + (gx#stx-null? _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g192600192710%_)))))) + (_%g192706192816%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl192610193107%_)) - (let ((_%e192700192731%_ + (gx#stx-pair? _%tl192716193213%_)) + (let ((_%e192806192837%_ (let () (declare (not safe)) - (gx#stx-e _%tl192610193107%_)))) - (let ((_%tl192702192736%_ + (gx#stx-e _%tl192716193213%_)))) + (let ((_%tl192808192842%_ (let () (declare (not safe)) - (##cdr _%e192700192731%_))) - (_%hd192701192734%_ + (##cdr _%e192806192837%_))) + (_%hd192807192840%_ (let () (declare (not safe)) - (##car _%e192700192731%_)))) + (##car _%e192806192837%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl192702192736%_)) - (let ((_%e192703192739%_ + _%tl192808192842%_)) + (let ((_%e192809192845%_ (let () (declare (not safe)) (gx#stx-e - _%tl192702192736%_)))) - (let ((_%tl192705192744%_ + _%tl192808192842%_)))) + (let ((_%tl192811192850%_ (let () (declare (not safe)) - (##cdr _%e192703192739%_))) - (_%hd192704192742%_ + (##cdr _%e192809192845%_))) + (_%hd192810192848%_ (let () (declare (not safe)) - (##car _%e192703192739%_)))) + (##car _%e192809192845%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl192705192744%_)) - (_%__kont197107197108%_ - _%hd192704192742%_ - _%hd192701192734%_ - _%hd192609193105%_) + _%tl192811192850%_)) + (_%__kont197213197214%_ + _%hd192810192848%_ + _%hd192807192840%_ + _%hd192715193211%_) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_))))) + (_%g192706192816%_))))) (let () (declare (not safe)) - (_%g192600192710%_)))))) - (let () (declare (not safe)) (_%g192600192710%_))))) - (let () (declare (not safe)) (_%g192600192710%_)))))))))) + (_%g192706192816%_)))))) + (let () (declare (not safe)) (_%g192706192816%_))))) + (let () (declare (not safe)) (_%g192706192816%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-call~1.scm b/src/bootstrap/gerbil/compiler/optimize-call~1.scm index b92a27e31..9d332b9fd 100644 --- a/src/bootstrap/gerbil/compiler/optimize-call~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-call~1.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g197462_| + (define |gxc[1]#_g197568_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197464_| + (define |gxc[1]#_g197570_| (##structure gx#syntax-quote::t '::optimize-call::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197466_| + (define |gxc[1]#_g197572_| (##structure gx#syntax-quote::t 'make-::optimize-call #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197468_| + (define |gxc[1]#_g197574_| (##structure gx#syntax-quote::t '::optimize-call? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197470_| + (define |gxc[1]#_g197576_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197472_| + (define |gxc[1]#_g197578_| (##structure gx#syntax-quote::t '::check-return-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197474_| + (define |gxc[1]#_g197580_| (##structure gx#syntax-quote::t 'make-::check-return-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g197476_| + (define |gxc[1]#_g197582_| (##structure gx#syntax-quote::t '::check-return-type? @@ -58,7 +58,7 @@ '())) (begin (define |gxc[:0:]#::optimize-call| - (let ((__obj197334 + (let ((__obj197440 (let () (declare (not safe)) (##structure @@ -87,68 +87,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197334 + __obj197440 'gxc#::optimize-call::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '::optimize-call '2 '#f '#f)) + (##unchecked-structure-set! __obj197440 '::optimize-call '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '6 '#f '#f)) - (let ((__tmp197461 (cons |gxc[1]#_g197462_| '()))) + (##unchecked-structure-set! __obj197440 '() '6 '#f '#f)) + (let ((__tmp197567 (cons |gxc[1]#_g197568_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197334 __tmp197461 '3 '#f '#f)) + (##unchecked-structure-set! __obj197440 __tmp197567 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197440 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197440 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197440 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '#f '11 '#f '#f)) - (let ((__tmp197463 |gxc[1]#_g197464_|)) + (##unchecked-structure-set! __obj197440 '#f '11 '#f '#f)) + (let ((__tmp197569 |gxc[1]#_g197570_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197334 __tmp197463 '12 '#f '#f)) - (let ((__tmp197465 |gxc[1]#_g197466_|)) + (##unchecked-structure-set! __obj197440 __tmp197569 '12 '#f '#f)) + (let ((__tmp197571 |gxc[1]#_g197572_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197334 __tmp197465 '13 '#f '#f)) - (let ((__tmp197467 |gxc[1]#_g197468_|)) + (##unchecked-structure-set! __obj197440 __tmp197571 '13 '#f '#f)) + (let ((__tmp197573 |gxc[1]#_g197574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197334 __tmp197467 '14 '#f '#f)) + (##unchecked-structure-set! __obj197440 __tmp197573 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197440 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197334 '() '20 '#f '#f)) - __obj197334)) + (##unchecked-structure-set! __obj197440 '() '20 '#f '#f)) + __obj197440)) (define |gxc[:0:]#::check-return-type| - (let ((__obj197336 + (let ((__obj197442 (let () (declare (not safe)) (##structure @@ -177,7 +177,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197336 + __obj197442 'gxc#::check-return-type::t '1 '#f @@ -185,60 +185,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj197336 + __obj197442 '::check-return-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '6 '#f '#f)) - (let ((__tmp197469 (cons |gxc[1]#_g197470_| '()))) + (##unchecked-structure-set! __obj197442 '() '6 '#f '#f)) + (let ((__tmp197575 (cons |gxc[1]#_g197576_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj197336 __tmp197469 '3 '#f '#f)) + (##unchecked-structure-set! __obj197442 __tmp197575 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj197442 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj197442 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj197442 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '#f '11 '#f '#f)) - (let ((__tmp197471 |gxc[1]#_g197472_|)) + (##unchecked-structure-set! __obj197442 '#f '11 '#f '#f)) + (let ((__tmp197577 |gxc[1]#_g197578_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197336 __tmp197471 '12 '#f '#f)) - (let ((__tmp197473 |gxc[1]#_g197474_|)) + (##unchecked-structure-set! __obj197442 __tmp197577 '12 '#f '#f)) + (let ((__tmp197579 |gxc[1]#_g197580_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197336 __tmp197473 '13 '#f '#f)) - (let ((__tmp197475 |gxc[1]#_g197476_|)) + (##unchecked-structure-set! __obj197442 __tmp197579 '13 '#f '#f)) + (let ((__tmp197581 |gxc[1]#_g197582_|)) (declare (not safe)) - (##unchecked-structure-set! __obj197336 __tmp197475 '14 '#f '#f)) + (##unchecked-structure-set! __obj197442 __tmp197581 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj197442 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj197336 '() '20 '#f '#f)) - __obj197336)))) + (##unchecked-structure-set! __obj197442 '() '20 '#f '#f)) + __obj197442)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm index 830066d21..6f5dd54ab 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-spec::timestamp 1733870078) + (define gerbil/compiler/optimize-spec::timestamp 1734131750) (begin (define gxc#::generate-method-specializers::t - (let ((__tmp178007 (list gxc#::identity::t)) - (__tmp178006 (cons (cons 'final: '#t) '()))) + (let ((__tmp178113 (list gxc#::identity::t)) + (__tmp178112 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-method-specializers::t '::generate-method-specializers - __tmp178007 + __tmp178113 '() - __tmp178006 + __tmp178112 '#f))) (define gxc#::generate-method-specializers? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-method-specializers::t))) (define gxc#make-::generate-method-specializers - (lambda _%$args176804%_ + (lambda _%$args176910%_ (apply make-instance gxc#::generate-method-specializers::t - _%$args176804%_))) + _%$args176910%_))) (define gxc#::generate-method-specializers-bind-methods! - (let ((__tmp178008 + (let ((__tmp178114 (lambda () (force gxc#::identity-bind-methods!) (let () @@ -54,46 +54,46 @@ (declare (not safe)) (__seal-class! gxc#::generate-method-specializers::t))))) (declare (not safe)) - (__make-promise __tmp178008))) + (__make-promise __tmp178114))) (define gxc#apply-generate-method-specializers - (lambda (_%stx176796%_) + (lambda (_%stx176902%_) (force gxc#::generate-method-specializers-bind-methods!) - (let* ((_%self176799%_ - (let ((__obj177999 + (let* ((_%self176905%_ + (let ((__obj178105 (let () (declare (not safe)) (##structure gxc#::generate-method-specializers::t)))) - __obj177999)) - (__tmp178009 + __obj178105)) + (__tmp178115 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176799%_ _%stx176796%_))))) + (gxc#compile-e__1 _%self176905%_ _%stx176902%_))))) (declare (not safe)) (__call-with-parameters - __tmp178009 + __tmp178115 gxc#current-compile-method - _%self176799%_)))) + _%self176905%_)))) (define gxc#::extract-receiver::t - (let ((__tmp178011 (list gxc#::false::t)) - (__tmp178010 (cons (cons 'final: '#t) '()))) + (let ((__tmp178117 (list gxc#::false::t)) + (__tmp178116 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-receiver::t '::extract-receiver - __tmp178011 + __tmp178117 '() - __tmp178010 + __tmp178116 '#f))) (define gxc#::extract-receiver? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-receiver::t))) (define gxc#make-::extract-receiver - (lambda _%$args176793%_ - (apply make-instance gxc#::extract-receiver::t _%$args176793%_))) + (lambda _%$args176899%_ + (apply make-instance gxc#::extract-receiver::t _%$args176899%_))) (define gxc#::extract-receiver-bind-methods! - (let ((__tmp178012 + (let ((__tmp178118 (lambda () (force gxc#::false-bind-methods!) (let () @@ -136,44 +136,44 @@ (declare (not safe)) (__seal-class! gxc#::extract-receiver::t))))) (declare (not safe)) - (__make-promise __tmp178012))) + (__make-promise __tmp178118))) (define gxc#apply-extract-receiver - (lambda (_%stx176785%_) + (lambda (_%stx176891%_) (force gxc#::extract-receiver-bind-methods!) - (let* ((_%self176788%_ - (let ((__obj178001 + (let* ((_%self176894%_ + (let ((__obj178107 (let () (declare (not safe)) (##structure gxc#::extract-receiver::t)))) - __obj178001)) - (__tmp178013 + __obj178107)) + (__tmp178119 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176788%_ _%stx176785%_))))) + (gxc#compile-e__1 _%self176894%_ _%stx176891%_))))) (declare (not safe)) (__call-with-parameters - __tmp178013 + __tmp178119 gxc#current-compile-method - _%self176788%_)))) + _%self176894%_)))) (define gxc#::collect-object-refs::t - (let ((__tmp178015 (list gxc#::void::t)) - (__tmp178014 (cons (cons 'final: '#t) '()))) + (let ((__tmp178121 (list gxc#::void::t)) + (__tmp178120 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-object-refs::t '::collect-object-refs - __tmp178015 + __tmp178121 '(receiver methods slots) - __tmp178014 + __tmp178120 '#f))) (define gxc#::collect-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-object-refs::t))) (define gxc#make-::collect-object-refs - (lambda _%$args176782%_ - (apply make-instance gxc#::collect-object-refs::t _%$args176782%_))) + (lambda _%$args176888%_ + (apply make-instance gxc#::collect-object-refs::t _%$args176888%_))) (define gxc#::collect-object-refs-receiver (let () (declare (not safe)) @@ -235,7 +235,7 @@ gxc#::collect-object-refs::t 'slots))) (define gxc#::collect-object-refs-bind-methods! - (let ((__tmp178016 + (let ((__tmp178122 (lambda () (force gxc#::void-bind-methods!) (let () @@ -338,34 +338,34 @@ (declare (not safe)) (__seal-class! gxc#::collect-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp178016))) + (__make-promise __tmp178122))) (define gxc#apply-collect-object-refs__% - (lambda (_%@@keywords176748%_ - _%receiver176743176749%_ - _%methods176744176751%_ - _%slots176745176753%_ - _%stx176755%_) - (let* ((_%receiver176758%_ - (if (eq? _%receiver176743176749%_ absent-value) + (lambda (_%@@keywords176854%_ + _%receiver176849176855%_ + _%methods176850176857%_ + _%slots176851176859%_ + _%stx176861%_) + (let* ((_%receiver176864%_ + (if (eq? _%receiver176849176855%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176743176749%_)) - (_%methods176760%_ - (if (eq? _%methods176744176751%_ absent-value) + _%receiver176849176855%_)) + (_%methods176866%_ + (if (eq? _%methods176850176857%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176744176751%_)) - (_%slots176762%_ - (if (eq? _%slots176745176753%_ absent-value) + _%methods176850176857%_)) + (_%slots176868%_ + (if (eq? _%slots176851176859%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176745176753%_))) + _%slots176851176859%_))) (force gxc#::collect-object-refs-bind-methods!) - (let* ((_%self176764%_ - (let ((__obj178003 + (let* ((_%self176870%_ + (let ((__obj178109 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178003 - _%receiver176758%_ + __obj178109 + _%receiver176864%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178003 - _%methods176760%_ + __obj178109 + _%methods176866%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178003 - _%slots176762%_ + __obj178109 + _%slots176868%_ '3 '#f '#f)) - __obj178003)) - (__tmp178017 + __obj178109)) + (__tmp178123 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176764%_ _%stx176755%_))))) + (gxc#compile-e__1 _%self176870%_ _%stx176861%_))))) (declare (not safe)) (__call-with-parameters - __tmp178017 + __tmp178123 gxc#current-compile-method - _%self176764%_))))) + _%self176870%_))))) (define gxc#apply-collect-object-refs__@ - (lambda (_%@@keywords176771%_ . _%args176772%_) + (lambda (_%@@keywords176877%_ . _%args176878%_) (apply gxc#apply-collect-object-refs__% - _%@@keywords176771%_ + _%@@keywords176877%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176771%_ + _%@@keywords176877%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176771%_ + _%@@keywords176877%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176771%_ + _%@@keywords176877%_ 'slots: absent-value)) - _%args176772%_))) + _%args176878%_))) (define gxc#apply-collect-object-refs - (lambda _%args176746176778%_ + (lambda _%args176852176884%_ (apply keyword-dispatch '#(receiver: slots: methods:) gxc#apply-collect-object-refs__@ - _%args176746176778%_))) + _%args176852176884%_))) (define gxc#::subst-object-refs::t - (let ((__tmp178019 (list gxc#::basic-xform-expression::t)) - (__tmp178018 (cons (cons 'final: '#t) '()))) + (let ((__tmp178125 (list gxc#::basic-xform-expression::t)) + (__tmp178124 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::subst-object-refs::t '::subst-object-refs - __tmp178019 + __tmp178125 '(receiver klass methods slots) - __tmp178018 + __tmp178124 '#f))) (define gxc#::subst-object-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::subst-object-refs::t))) (define gxc#make-::subst-object-refs - (lambda _%$args176739%_ - (apply make-instance gxc#::subst-object-refs::t _%$args176739%_))) + (lambda _%$args176845%_ + (apply make-instance gxc#::subst-object-refs::t _%$args176845%_))) (define gxc#::subst-object-refs-receiver (let () (declare (not safe)) @@ -536,7 +536,7 @@ gxc#::subst-object-refs::t 'slots))) (define gxc#::subst-object-refs-bind-methods! - (let ((__tmp178020 + (let ((__tmp178126 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -555,41 +555,41 @@ (declare (not safe)) (__seal-class! gxc#::subst-object-refs::t))))) (declare (not safe)) - (__make-promise __tmp178020))) + (__make-promise __tmp178126))) (define gxc#apply-subst-object-refs__% - (lambda (_%@@keywords176701%_ - _%receiver176695176702%_ - _%klass176696176704%_ - _%methods176697176706%_ - _%slots176698176708%_ - _%stx176710%_) - (let* ((_%receiver176713%_ - (if (eq? _%receiver176695176702%_ absent-value) + (lambda (_%@@keywords176807%_ + _%receiver176801176808%_ + _%klass176802176810%_ + _%methods176803176812%_ + _%slots176804176814%_ + _%stx176816%_) + (let* ((_%receiver176819%_ + (if (eq? _%receiver176801176808%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'receiver:)) - _%receiver176695176702%_)) - (_%klass176715%_ - (if (eq? _%klass176696176704%_ absent-value) + _%receiver176801176808%_)) + (_%klass176821%_ + (if (eq? _%klass176802176810%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'klass:)) - _%klass176696176704%_)) - (_%methods176717%_ - (if (eq? _%methods176697176706%_ absent-value) + _%klass176802176810%_)) + (_%methods176823%_ + (if (eq? _%methods176803176812%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'methods:)) - _%methods176697176706%_)) - (_%slots176719%_ - (if (eq? _%slots176698176708%_ absent-value) + _%methods176803176812%_)) + (_%slots176825%_ + (if (eq? _%slots176804176814%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'slots:)) - _%slots176698176708%_))) + _%slots176804176814%_))) (force gxc#::subst-object-refs-bind-methods!) - (let* ((_%self176721%_ - (let ((__obj178005 + (let* ((_%self176827%_ + (let ((__obj178111 (let () (declare (not safe)) (##structure @@ -601,96 +601,96 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178005 - _%receiver176713%_ + __obj178111 + _%receiver176819%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178005 - _%klass176715%_ + __obj178111 + _%klass176821%_ '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178005 - _%methods176717%_ + __obj178111 + _%methods176823%_ '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj178005 - _%slots176719%_ + __obj178111 + _%slots176825%_ '4 '#f '#f)) - __obj178005)) - (__tmp178021 + __obj178111)) + (__tmp178127 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self176721%_ _%stx176710%_))))) + (gxc#compile-e__1 _%self176827%_ _%stx176816%_))))) (declare (not safe)) (__call-with-parameters - __tmp178021 + __tmp178127 gxc#current-compile-method - _%self176721%_))))) + _%self176827%_))))) (define gxc#apply-subst-object-refs__@ - (lambda (_%@@keywords176728%_ . _%args176729%_) + (lambda (_%@@keywords176834%_ . _%args176835%_) (apply gxc#apply-subst-object-refs__% - _%@@keywords176728%_ + _%@@keywords176834%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176728%_ + _%@@keywords176834%_ 'receiver: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176728%_ + _%@@keywords176834%_ 'klass: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176728%_ + _%@@keywords176834%_ 'methods: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords176728%_ + _%@@keywords176834%_ 'slots: absent-value)) - _%args176729%_))) + _%args176835%_))) (define gxc#apply-subst-object-refs - (lambda _%args176699176735%_ + (lambda _%args176805176841%_ (apply keyword-dispatch '#(receiver: methods: slots: klass:) gxc#apply-subst-object-refs__@ - _%args176699176735%_))) + _%args176805176841%_))) (define gxc#generate-method-specializers-define-values% - (lambda (_%self173810%_ _%stx173811%_) - (letrec ((_%generate-method-bind173813%_ - (lambda (_%$klass176687%_ - _%$method-table176688%_ - _%id176689%_ - _%$id176690%_) - (let ((_%$tmp176692%_ - (let ((__tmp178022 + (lambda (_%self173916%_ _%stx173917%_) + (letrec ((_%generate-method-bind173919%_ + (lambda (_%$klass176793%_ + _%$method-table176794%_ + _%id176795%_ + _%$id176796%_) + (let ((_%$tmp176798%_ + (let ((__tmp178128 (let () (declare (not safe)) (##gensym '__method)))) (declare (not safe)) - (make-symbol__0 __tmp178022)))) - (cons (cons _%$id176690%_ '()) + (make-symbol__0 __tmp178128)))) + (cons (cons _%$id176796%_ '()) (cons (cons '%#call (cons (cons '%#ref (cons 'make-promise '())) @@ -698,14 +698,14 @@ (cons '() (cons (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%$tmp176692%_ '()) + (cons (cons (cons (cons _%$tmp176798%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'symbolic-table-ref '())) (cons (cons '%#ref - (cons _%$method-table176688%_ '())) + (cons _%$method-table176794%_ '())) (cons (cons '%#quote - (cons _%id176689%_ '())) + (cons _%id176795%_ '())) (cons (cons '%#quote (cons '#f '())) '()))))) @@ -715,15 +715,15 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176692%_ '())) - (cons (cons '%#ref (cons _%$tmp176692%_ '())) + (cons _%$tmp176798%_ '())) + (cons (cons '%#ref (cons _%$tmp176798%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Missing method" '())) (cons (cons '%#quote - (cons _%id176689%_ + (cons _%id176795%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) @@ -735,26 +735,26 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-slot-bind173814%_ - (lambda (_%$klass176681%_ _%id176682%_ _%$id176683%_) - (let ((_%$tmp176685%_ - (let ((__tmp178023 + (_%generate-slot-bind173920%_ + (lambda (_%$klass176787%_ _%id176788%_ _%$id176789%_) + (let ((_%$tmp176791%_ + (let ((__tmp178129 (let () (declare (not safe)) (##gensym '__slot)))) (declare (not safe)) - (make-symbol__0 __tmp178023)))) - (cons (cons _%$id176683%_ '()) + (make-symbol__0 __tmp178129)))) + (cons (cons _%$id176789%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%$tmp176685%_ + (cons (cons (cons (cons _%$tmp176791%_ '()) (cons (cons '%#call ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons '%#ref (cons 'class-slot-offset '())) (cons (cons '%#ref - (cons _%$klass176681%_ '())) + (cons _%$klass176787%_ '())) (cons (cons '%#quote - (cons _%id176682%_ '())) + (cons _%id176788%_ '())) '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -762,465 +762,465 @@ (cons (cons '%#if (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tmp176685%_ '())) - (cons (cons '%#ref (cons _%$tmp176685%_ '())) + (cons _%$tmp176791%_ '())) + (cons (cons '%#ref (cons _%$tmp176791%_ '())) (cons (cons '%#call (cons (cons '%#ref (cons 'error '())) (cons (cons '%#quote (cons '"Unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons '%#quote (cons _%id176682%_ '())) '())))) + (cons (cons '%#quote (cons _%id176788%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) - (_%generate-specializer-impl173815%_ - (lambda (_%$klass176675%_ - _%$method-table176676%_ - _%methods-bind176677%_ - _%slots-bind176678%_ - _%specializer-impl176679%_) - (let ((__tmp178024 + (_%generate-specializer-impl173921%_ + (lambda (_%$klass176781%_ + _%$method-table176782%_ + _%methods-bind176783%_ + _%slots-bind176784%_ + _%specializer-impl176785%_) + (let ((__tmp178130 (cons '%#lambda - (cons (cons _%$klass176675%_ - (cons _%$method-table176676%_ + (cons (cons _%$klass176781%_ + (cons _%$method-table176782%_ '())) (cons (cons '%#let-values (cons (let () (declare (not safe)) (__foldr1 cons - _%slots-bind176678%_ - _%methods-bind176677%_)) - (cons _%specializer-impl176679%_ + _%slots-bind176784%_ + _%methods-bind176783%_)) + (cons _%specializer-impl176785%_ '()))) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178024 _%stx173811%_)))) - (_%generate-specializer-def173816%_ - (lambda (_%id176671%_ - _%specializer-id176672%_ - _%specializer-impl176673%_) - (let ((__tmp178025 + (gxc#xform-wrap-source __tmp178130 _%stx173917%_)))) + (_%generate-specializer-def173922%_ + (lambda (_%id176777%_ + _%specializer-id176778%_ + _%specializer-impl176779%_) + (let ((__tmp178131 (cons '%#begin - (cons _%stx173811%_ - (cons (let ((__tmp178026 + (cons _%stx173917%_ + (cons (let ((__tmp178132 (cons '%#define-values - (cons (cons _%specializer-id176672%_ + (cons (cons _%specializer-id176778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-impl176673%_ '()))))) + (cons _%specializer-impl176779%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178026 - _%stx173811%_)) - (cons (let ((__tmp178027 + __tmp178132 + _%stx173917%_)) + (cons (let ((__tmp178133 (cons '%#call (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'bind-specializer! '())) - (cons (cons '%#ref (cons _%id176671%_ '())) + (cons (cons '%#ref (cons _%id176777%_ '())) (cons (cons '%#ref - (cons _%specializer-id176672%_ + (cons _%specializer-id176778%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178027 - _%stx173811%_)) + __tmp178133 + _%stx173917%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178025 _%stx173811%_))))) - (let* ((_%__stx176893176894%_ _%stx173811%_) - (_%g173819173839%_ + (gxc#xform-wrap-source __tmp178131 _%stx173917%_))))) + (let* ((_%__stx176999177000%_ _%stx173917%_) + (_%g173925173945%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176893176894%_))))) - (let ((_%__kont176895176896%_ - (lambda (_%L173883%_ _%L173884%_) - (let ((_%method-calls173903%_ + _%__stx176999177000%_))))) + (let ((_%__kont177001177002%_ + (lambda (_%L173989%_ _%L173990%_) + (let ((_%method-calls174009%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%slot-refs173904%_ + (_%slot-refs174010%_ (let () (declare (not safe)) (make-hash-table-eq))) - (_%empty173905%_ + (_%empty174011%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (letrec ((_%no-specializer?173907%_ + (letrec ((_%no-specializer?174013%_ (lambda () (if (fxzero? (let () (declare (not safe)) (__hash-length - _%method-calls173903%_))) + _%method-calls174009%_))) (fxzero? (let () (declare (not safe)) (__hash-length - _%slot-refs173904%_))) + _%slot-refs174010%_))) '#f)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L173883%_)) - (let* ((_%__stx176807176808%_ _%L173883%_) - (_%g174295174313%_ + (gxc#lambda-expr? _%L173989%_)) + (let* ((_%__stx176913176914%_ _%L173989%_) + (_%g174401174419%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176807176808%_))))) - (let ((_%__kont176809176810%_ - (lambda (_%L174349%_ - _%L174350%_ - _%L174351%_) - (let ((_%receiver174371%_ - (let ((_%$e174368%_ + _%__stx176913176914%_))))) + (let ((_%__kont176915176916%_ + (lambda (_%L174455%_ + _%L174456%_ + _%L174457%_) + (let ((_%receiver174477%_ + (let ((_%$e174474%_ (gxc#apply-extract-receiver (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174349%_)))) + _%L174455%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e174368%_ - _%$e174368%_ - _%L174351%_)))) + (if _%$e174474%_ + _%$e174474%_ + _%L174457%_)))) (for-each - (lambda (_%g174372174374%_) + (lambda (_%g174478174480%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174371%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g174372174374%_)) - _%L174349%_) - (if (_%no-specializer?173907%_) - _%stx173811%_ - (let* ((_%specializer-id174383%_ - (let* ((_%id174377%_ - (let ((__tmp178028 + _%receiver174477%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g174478174480%_)) + _%L174455%_) + (if (_%no-specializer?174013%_) + _%stx173917%_ + (let* ((_%specializer-id174489%_ + (let* ((_%id174483%_ + (let ((__tmp178134 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173884%_)))) + (gx#stx-e _%L173990%_)))) (declare (not safe)) - (make-symbol__1 __tmp178028 '"::specialize"))) - (_%specializer-id174380%_ - (let ((__tmp178029 + (make-symbol__1 __tmp178134 '"::specialize"))) + (_%specializer-id174486%_ + (let ((__tmp178135 (let () (declare (not safe)) - (gx#stx-source _%stx173811%_)))) + (gx#stx-source _%stx173917%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id174377%_ __tmp178029)))) + (gx#core-quote-syntax__1 _%id174483%_ __tmp178135)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174380%_)) - _%specializer-id174380%_)) + (gx#core-bind-runtime!__0 _%specializer-id174486%_)) + _%specializer-id174486%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass174385%_ - (let ((__tmp178030 + (_%$klass174491%_ + (let ((__tmp178136 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178030))) + (make-symbol__0 __tmp178136))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table174387%_ - (let ((__tmp178031 + (_%$method-table174493%_ + (let ((__tmp178137 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178031))) + (make-symbol__0 __tmp178137))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods174389%_ + (_%methods174495%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173903%_))) - (_%$methods174393%_ - (map (lambda (_%id174391%_) - (let ((__tmp178032 + _%method-calls174009%_))) + (_%$methods174499%_ + (map (lambda (_%id174497%_) + (let ((__tmp178138 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174391%_))) + (gensym _%id174497%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178032))) - _%methods174389%_)) + (make-symbol__1 '"__" __tmp178138))) + _%methods174495%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174402%_ + (_%_174508%_ (for-each - (lambda (_%g174394174397%_ - _%g174395174399%_) + (lambda (_%g174500174503%_ + _%g174501174505%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173903%_ - _%g174394174397%_ - _%g174395174399%_))) - _%methods174389%_ - _%$methods174393%_)) - (_%methods-bind174412%_ - (map (lambda (_%g174404174407%_ + _%method-calls174009%_ + _%g174500174503%_ + _%g174501174505%_))) + _%methods174495%_ + _%$methods174499%_)) + (_%methods-bind174518%_ + (map (lambda (_%g174510174513%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174405174409%_) - (_%generate-method-bind173813%_ - _%$klass174385%_ - _%$method-table174387%_ - _%g174404174407%_ - _%g174405174409%_)) - _%methods174389%_ - _%$methods174393%_)) + _%g174511174515%_) + (_%generate-method-bind173919%_ + _%$klass174491%_ + _%$method-table174493%_ + _%g174510174513%_ + _%g174511174515%_)) + _%methods174495%_ + _%$methods174499%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots174414%_ + (_%slots174520%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173904%_))) - (_%$slots174418%_ - (map (lambda (_%id174416%_) - (let ((__tmp178033 + _%slot-refs174010%_))) + (_%$slots174524%_ + (map (lambda (_%id174522%_) + (let ((__tmp178139 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id174416%_))) + (gensym _%id174522%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178033))) - _%slots174414%_)) + (make-symbol__1 '"__" __tmp178139))) + _%slots174520%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_174427%_ + (_%_174533%_ (for-each - (lambda (_%g174419174422%_ - _%g174420174424%_) + (lambda (_%g174525174528%_ + _%g174526174530%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173904%_ - _%g174419174422%_ - _%g174420174424%_))) - _%slots174414%_ - _%$slots174418%_)) - (_%slots-bind174436%_ - (map (lambda (_%g174428174431%_ + _%slot-refs174010%_ + _%g174525174528%_ + _%g174526174530%_))) + _%slots174520%_ + _%$slots174524%_)) + (_%slots-bind174542%_ + (map (lambda (_%g174534174537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g174429174433%_) - (_%generate-slot-bind173814%_ - _%$klass174385%_ - _%g174428174431%_ - _%g174429174433%_)) - _%slots174414%_ - _%$slots174418%_)) + _%g174535174539%_) + (_%generate-slot-bind173920%_ + _%$klass174491%_ + _%g174534174537%_ + _%g174535174539%_)) + _%slots174520%_ + _%$slots174524%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-body174442%_ - (map (lambda (_%g174437174439%_) + (_%specializer-body174548%_ + (map (lambda (_%g174543174545%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174371%_ - _%$klass174385%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g174437174439%_)) - _%L174349%_)) - (_%specializer-impl174444%_ - (let ((__tmp178034 + _%receiver174477%_ + _%$klass174491%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g174543174545%_)) + _%L174455%_)) + (_%specializer-impl174550%_ + (let ((__tmp178140 (cons '%#lambda ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L174351%_ _%L174350%_) - _%specializer-body174442%_)))) + (cons (cons _%L174457%_ _%L174456%_) + _%specializer-body174548%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178034 _%stx173811%_))) + (gxc#xform-wrap-source __tmp178140 _%stx173917%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl174446%_ - (_%generate-specializer-impl173815%_ - _%$klass174385%_ - _%$method-table174387%_ - _%methods-bind174412%_ - _%slots-bind174436%_ - _%specializer-impl174444%_))) - (let ((__tmp178036 + (_%specializer-impl174552%_ + (_%generate-specializer-impl173921%_ + _%$klass174491%_ + _%$method-table174493%_ + _%methods-bind174518%_ + _%slots-bind174542%_ + _%specializer-impl174550%_))) + (let ((__tmp178142 (let () (declare (not safe)) (gx#stx-e - _%L173884%_))) - (__tmp178035 + _%L173990%_))) + (__tmp178141 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174383%_)))) + _%specializer-id174489%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178036 + __tmp178142 '" => " - __tmp178035)) - (_%generate-specializer-def173816%_ - _%L173884%_ - _%specializer-id174383%_ - _%specializer-impl174446%_)))))) - (_%__kont176811176812%_ - (lambda () _%stx173811%_))) + __tmp178141)) + (_%generate-specializer-def173922%_ + _%L173990%_ + _%specializer-id174489%_ + _%specializer-impl174552%_)))))) + (_%__kont176917176918%_ + (lambda () _%stx173917%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176807176808%_)) - (let ((_%e174300174325%_ + (gx#stx-pair? _%__stx176913176914%_)) + (let ((_%e174406174431%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176807176808%_)))) - (let ((_%tl174302174330%_ + _%__stx176913176914%_)))) + (let ((_%tl174408174436%_ (let () (declare (not safe)) - (##cdr _%e174300174325%_))) - (_%hd174301174328%_ + (##cdr _%e174406174431%_))) + (_%hd174407174434%_ (let () (declare (not safe)) - (##car _%e174300174325%_)))) + (##car _%e174406174431%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174302174330%_)) - (let ((_%e174303174333%_ + _%tl174408174436%_)) + (let ((_%e174409174439%_ (let () (declare (not safe)) (gx#stx-e - _%tl174302174330%_)))) - (let ((_%tl174305174338%_ + _%tl174408174436%_)))) + (let ((_%tl174411174444%_ (let () (declare (not safe)) - (##cdr _%e174303174333%_))) - (_%hd174304174336%_ + (##cdr _%e174409174439%_))) + (_%hd174410174442%_ (let () (declare (not safe)) - (##car _%e174303174333%_)))) + (##car _%e174409174439%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174304174336%_)) - (let ((_%e174306174341%_ + _%hd174410174442%_)) + (let ((_%e174412174447%_ (let () (declare (not safe)) (gx#stx-e - _%hd174304174336%_)))) - (let ((_%tl174308174346%_ + _%hd174410174442%_)))) + (let ((_%tl174414174452%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e174306174341%_))) - (_%hd174307174344%_ - (let () (declare (not safe)) (##car _%e174306174341%_)))) - (_%__kont176809176810%_ - _%tl174305174338%_ - _%tl174308174346%_ - _%hd174307174344%_))) + (##cdr _%e174412174447%_))) + (_%hd174413174450%_ + (let () (declare (not safe)) (##car _%e174412174447%_)))) + (_%__kont176915176916%_ + _%tl174411174444%_ + _%tl174414174452%_ + _%hd174413174450%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176811176812%_)))) - (_%__kont176811176812%_)))) - (_%__kont176811176812%_)))) + (_%__kont176917176918%_)))) + (_%__kont176917176918%_)))) + (_%__kont176917176918%_)))) (if (let () (declare (not safe)) - (gxc#case-lambda-expr? _%L173883%_)) - (let* ((_%g174453174472%_ - (lambda (_%g174454174469%_) + (gxc#case-lambda-expr? _%L173989%_)) + (let* ((_%g174559174578%_ + (lambda (_%g174560174575%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174454174469%_)))) - (_%g174452174770%_ - (lambda (_%g174454174475%_) + _%g174560174575%_)))) + (_%g174558174876%_ + (lambda (_%g174560174581%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174454174475%_)) - (let ((_%e174456174477%_ + _%g174560174581%_)) + (let ((_%e174562174583%_ (let () (declare (not safe)) (gx#stx-e - _%g174454174475%_)))) - (let ((_%hd174457174480%_ + _%g174560174581%_)))) + (let ((_%hd174563174586%_ (let () (declare (not safe)) - (##car _%e174456174477%_))) - (_%tl174458174482%_ + (##car _%e174562174583%_))) + (_%tl174564174588%_ (let () (declare (not safe)) - (##cdr _%e174456174477%_)))) + (##cdr _%e174562174583%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl174458174482%_)) - (let ((_g178037_ + _%tl174564174588%_)) + (let ((_g178143_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl174458174482%_ '0)))) + (gx#syntax-split-splice _%tl174564174588%_ '0)))) (begin - (let ((_g178038_ + (let ((_g178144_ (let () (declare (not safe)) - (if (##values? _g178037_) - (##vector-length _g178037_) + (if (##values? _g178143_) + (##values-length _g178143_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178038_ 2))) - (error "Context expects 2 values" _g178038_))) - (let ((_%target174459174485%_ + (##fx= _g178144_ 2))) + (error "Context expects 2 values" _g178144_))) + (let ((_%target174565174591%_ (let () (declare (not safe)) - (##vector-ref _g178037_ 0))) - (_%tl174461174487%_ + (##values-ref _g178143_ 0))) + (_%tl174567174593%_ (let () (declare (not safe)) - (##vector-ref _g178037_ 1)))) + (##values-ref _g178143_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174461174487%_)) - (letrec ((_%loop174462174490%_ - (lambda (_%hd174460174493%_ - _%clause174466174495%_) + (gx#stx-null? _%tl174567174593%_)) + (letrec ((_%loop174568174596%_ + (lambda (_%hd174566174599%_ + _%clause174572174601%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174460174493%_)) - (let ((_%e174463174498%_ + (gx#stx-pair? _%hd174566174599%_)) + (let ((_%e174569174604%_ (let () (declare (not safe)) (gx#stx-e - _%hd174460174493%_)))) - (let ((_%lp-hd174464174501%_ + _%hd174566174599%_)))) + (let ((_%lp-hd174570174607%_ (let () (declare (not safe)) - (##car _%e174463174498%_))) - (_%lp-tl174465174503%_ + (##car _%e174569174604%_))) + (_%lp-tl174571174609%_ (let () (declare (not safe)) - (##cdr _%e174463174498%_)))) - (_%loop174462174490%_ - _%lp-tl174465174503%_ - (cons _%lp-hd174464174501%_ - _%clause174466174495%_)))) - (let ((_%clause174467174506%_ - (reverse _%clause174466174495%_))) - ((lambda (_%L174509%_) + (##cdr _%e174569174604%_)))) + (_%loop174568174596%_ + _%lp-tl174571174609%_ + (cons _%lp-hd174570174607%_ + _%clause174572174601%_)))) + (let ((_%clause174573174612%_ + (reverse _%clause174572174601%_))) + ((lambda (_%L174615%_) (for-each - (lambda (_%clause174523%_) - (let* ((_%__stx176833176834%_ - _%clause174523%_) - (_%g174526174541%_ + (lambda (_%clause174629%_) + (let* ((_%__stx176939176940%_ + _%clause174629%_) + (_%g174632174647%_ (lambda () (let () (declare @@ -1228,190 +1228,190 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176833176834%_))))) - (let ((_%__kont176835176836%_ - (lambda (_%L174569%_ + _%__stx176939176940%_))))) + (let ((_%__kont176941176942%_ + (lambda (_%L174675%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L174570%_ - _%L174571%_) - (let ((_%receiver174590%_ - (let ((_%$e174587%_ + _%L174676%_ + _%L174677%_) + (let ((_%receiver174696%_ + (let ((_%$e174693%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L174569%_)))) - (if _%$e174587%_ _%$e174587%_ _%L174571%_)))) + _%L174675%_)))) + (if _%$e174693%_ _%$e174693%_ _%L174677%_)))) (for-each - (lambda (_%g174591174593%_) + (lambda (_%g174697174699%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174590%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g174591174593%_)) - _%L174569%_)))) - (_%__kont176837176838%_ (lambda () '#!void))) + _%receiver174696%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g174697174699%_)) + _%L174675%_)))) + (_%__kont176943176944%_ (lambda () '#!void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176833176834%_)) - (let ((_%e174531174553%_ + _%__stx176939176940%_)) + (let ((_%e174637174659%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%__stx176833176834%_)))) - (let ((_%tl174533174558%_ + (gx#stx-e _%__stx176939176940%_)))) + (let ((_%tl174639174664%_ (let () (declare (not safe)) - (##cdr _%e174531174553%_))) - (_%hd174532174556%_ + (##cdr _%e174637174659%_))) + (_%hd174638174662%_ (let () (declare (not safe)) - (##car _%e174531174553%_)))) + (##car _%e174637174659%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174532174556%_)) - (let ((_%e174534174561%_ + (gx#stx-pair? _%hd174638174662%_)) + (let ((_%e174640174667%_ (let () (declare (not safe)) - (gx#stx-e _%hd174532174556%_)))) - (let ((_%tl174536174566%_ + (gx#stx-e _%hd174638174662%_)))) + (let ((_%tl174642174672%_ (let () (declare (not safe)) - (##cdr _%e174534174561%_))) - (_%hd174535174564%_ + (##cdr _%e174640174667%_))) + (_%hd174641174670%_ (let () (declare (not safe)) - (##car _%e174534174561%_)))) - (_%__kont176835176836%_ - _%tl174533174558%_ - _%tl174536174566%_ - _%hd174535174564%_))) - (_%__kont176837176838%_)))) - (_%__kont176837176838%_))))) + (##car _%e174640174667%_)))) + (_%__kont176941176942%_ + _%tl174639174664%_ + _%tl174642174672%_ + _%hd174641174670%_))) + (_%__kont176943176944%_)))) + (_%__kont176943176944%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178039 - (lambda (_%g174598174601%_ - _%g174599174603%_) - (cons _%g174598174601%_ - _%g174599174603%_)))) + (let ((__tmp178145 + (lambda (_%g174704174707%_ + _%g174705174709%_) + (cons _%g174704174707%_ + _%g174705174709%_)))) (declare (not safe)) (__foldr1 - __tmp178039 + __tmp178145 '() - _%L174509%_))) - (if (_%no-specializer?173907%_) - _%stx173811%_ - (let* ((_%specializer-id174612%_ - (let* ((_%id174606%_ + _%L174615%_))) + (if (_%no-specializer?174013%_) + _%stx173917%_ + (let* ((_%specializer-id174718%_ + (let* ((_%id174712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178040 + (let ((__tmp178146 (let () (declare (not safe)) - (gx#stx-e _%L173884%_)))) + (gx#stx-e _%L173990%_)))) (declare (not safe)) - (make-symbol__1 __tmp178040 '"::specialize"))) - (_%specializer-id174609%_ - (let ((__tmp178041 + (make-symbol__1 __tmp178146 '"::specialize"))) + (_%specializer-id174715%_ + (let ((__tmp178147 (let () (declare (not safe)) - (gx#stx-source _%stx173811%_)))) + (gx#stx-source _%stx173917%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id174606%_ - __tmp178041)))) + _%id174712%_ + __tmp178147)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id174609%_)) - _%specializer-id174609%_)) - (_%$klass174614%_ - (let ((__tmp178042 + (gx#core-bind-runtime!__0 _%specializer-id174715%_)) + _%specializer-id174715%_)) + (_%$klass174720%_ + (let ((__tmp178148 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178042))) - (_%$method-table174616%_ - (let ((__tmp178043 + (make-symbol__0 __tmp178148))) + (_%$method-table174722%_ + (let ((__tmp178149 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178043))) - (_%methods174618%_ + (make-symbol__0 __tmp178149))) + (_%methods174724%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173903%_))) - (_%$methods174622%_ - (map (lambda (_%id174620%_) - (let ((__tmp178044 (gensym _%id174620%_))) + (__hash-keys _%method-calls174009%_))) + (_%$methods174728%_ + (map (lambda (_%id174726%_) + (let ((__tmp178150 (gensym _%id174726%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178044))) - _%methods174618%_)) - (_%_174631%_ + (make-symbol__1 '"__" __tmp178150))) + _%methods174724%_)) + (_%_174737%_ (for-each - (lambda (_%g174623174626%_ _%g174624174628%_) + (lambda (_%g174729174732%_ _%g174730174734%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173903%_ - _%g174623174626%_ - _%g174624174628%_))) - _%methods174618%_ - _%$methods174622%_)) - (_%methods-bind174641%_ - (map (lambda (_%g174633174636%_ _%g174634174638%_) - (_%generate-method-bind173813%_ - _%$klass174614%_ - _%$method-table174616%_ - _%g174633174636%_ - _%g174634174638%_)) - _%methods174618%_ - _%$methods174622%_)) - (_%slots174643%_ + _%method-calls174009%_ + _%g174729174732%_ + _%g174730174734%_))) + _%methods174724%_ + _%$methods174728%_)) + (_%methods-bind174747%_ + (map (lambda (_%g174739174742%_ _%g174740174744%_) + (_%generate-method-bind173919%_ + _%$klass174720%_ + _%$method-table174722%_ + _%g174739174742%_ + _%g174740174744%_)) + _%methods174724%_ + _%$methods174728%_)) + (_%slots174749%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173904%_))) - (_%$slots174647%_ - (map (lambda (_%id174645%_) - (let ((__tmp178045 (gensym _%id174645%_))) + (__hash-keys _%slot-refs174010%_))) + (_%$slots174753%_ + (map (lambda (_%id174751%_) + (let ((__tmp178151 (gensym _%id174751%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178045))) - _%slots174643%_)) - (_%_174656%_ + (make-symbol__1 '"__" __tmp178151))) + _%slots174749%_)) + (_%_174762%_ (for-each - (lambda (_%g174648174651%_ _%g174649174653%_) + (lambda (_%g174754174757%_ _%g174755174759%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173904%_ - _%g174648174651%_ - _%g174649174653%_))) - _%slots174643%_ - _%$slots174647%_)) - (_%slots-bind174665%_ - (map (lambda (_%g174657174660%_ _%g174658174662%_) - (_%generate-slot-bind173814%_ - _%$klass174614%_ - _%g174657174660%_ - _%g174658174662%_)) - _%slots174643%_ - _%$slots174647%_)) - (_%specializer-clauses174763%_ - (map (lambda (_%clause174667%_) - (let* ((_%__stx176853176854%_ _%clause174667%_) - (_%g174670174685%_ + _%slot-refs174010%_ + _%g174754174757%_ + _%g174755174759%_))) + _%slots174749%_ + _%$slots174753%_)) + (_%slots-bind174771%_ + (map (lambda (_%g174763174766%_ _%g174764174768%_) + (_%generate-slot-bind173920%_ + _%$klass174720%_ + _%g174763174766%_ + _%g174764174768%_)) + _%slots174749%_ + _%$slots174753%_)) + (_%specializer-clauses174869%_ + (map (lambda (_%clause174773%_) + (let* ((_%__stx176959176960%_ _%clause174773%_) + (_%g174776174791%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176853176854%_))))) - (let ((_%__kont176855176856%_ - (lambda (_%L174713%_ _%L174714%_ _%L174715%_) - (let* ((_%receiver174744%_ - (let ((_%$e174741%_ + _%__stx176959176960%_))))) + (let ((_%__kont176961176962%_ + (lambda (_%L174819%_ _%L174820%_ _%L174821%_) + (let* ((_%receiver174850%_ + (let ((_%$e174847%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1419,317 +1419,317 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174713%_)))) - (if _%$e174741%_ - _%$e174741%_ - _%L174715%_))) - (_%body174750%_ - (map (lambda (_%g174745174747%_) + _%L174819%_)))) + (if _%$e174847%_ + _%$e174847%_ + _%L174821%_))) + (_%body174856%_ + (map (lambda (_%g174851174853%_) (gxc#apply-subst-object-refs__% '#f - _%receiver174744%_ - _%$klass174614%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g174745174747%_)) - _%L174713%_))) - (cons (cons _%L174715%_ _%L174714%_) - _%body174750%_)))) - (_%__kont176857176858%_ - (lambda () _%clause174667%_))) + _%receiver174850%_ + _%$klass174720%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g174851174853%_)) + _%L174819%_))) + (cons (cons _%L174821%_ _%L174820%_) + _%body174856%_)))) + (_%__kont176963176964%_ + (lambda () _%clause174773%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176853176854%_)) - (let ((_%e174675174697%_ + (gx#stx-pair? _%__stx176959176960%_)) + (let ((_%e174781174803%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176853176854%_)))) - (let ((_%tl174677174702%_ + (gx#stx-e _%__stx176959176960%_)))) + (let ((_%tl174783174808%_ (let () (declare (not safe)) - (##cdr _%e174675174697%_))) - (_%hd174676174700%_ + (##cdr _%e174781174803%_))) + (_%hd174782174806%_ (let () (declare (not safe)) - (##car _%e174675174697%_)))) + (##car _%e174781174803%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174676174700%_)) - (let ((_%e174678174705%_ + (gx#stx-pair? _%hd174782174806%_)) + (let ((_%e174784174811%_ (let () (declare (not safe)) (gx#stx-e - _%hd174676174700%_)))) - (let ((_%tl174680174710%_ + _%hd174782174806%_)))) + (let ((_%tl174786174816%_ (let () (declare (not safe)) - (##cdr _%e174678174705%_))) - (_%hd174679174708%_ + (##cdr _%e174784174811%_))) + (_%hd174785174814%_ (let () (declare (not safe)) - (##car _%e174678174705%_)))) - (_%__kont176855176856%_ - _%tl174677174702%_ - _%tl174680174710%_ - _%hd174679174708%_))) - (_%__kont176857176858%_)))) - (_%__kont176857176858%_))))) - (let ((__tmp178046 - (lambda (_%g174755174758%_ _%g174756174760%_) - (cons _%g174755174758%_ _%g174756174760%_)))) + (##car _%e174784174811%_)))) + (_%__kont176961176962%_ + _%tl174783174808%_ + _%tl174786174816%_ + _%hd174785174814%_))) + (_%__kont176963176964%_)))) + (_%__kont176963176964%_))))) + (let ((__tmp178152 + (lambda (_%g174861174864%_ _%g174862174866%_) + (cons _%g174861174864%_ _%g174862174866%_)))) (declare (not safe)) - (__foldr1 __tmp178046 '() _%L174509%_)))) - (_%specializer-impl174765%_ - (let ((__tmp178047 - (cons '%#case-lambda _%specializer-clauses174763%_))) + (__foldr1 __tmp178152 '() _%L174615%_)))) + (_%specializer-impl174871%_ + (let ((__tmp178153 + (cons '%#case-lambda _%specializer-clauses174869%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178047 _%stx173811%_))) - (_%specializer-impl174767%_ - (_%generate-specializer-impl173815%_ - _%$klass174614%_ - _%$method-table174616%_ - _%methods-bind174641%_ - _%slots-bind174665%_ - _%specializer-impl174765%_))) + (gxc#xform-wrap-source __tmp178153 _%stx173917%_))) + (_%specializer-impl174873%_ + (_%generate-specializer-impl173921%_ + _%$klass174720%_ + _%$method-table174722%_ + _%methods-bind174747%_ + _%slots-bind174771%_ + _%specializer-impl174871%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178049 + (let ((__tmp178155 (let () (declare (not safe)) (gx#stx-e - _%L173884%_))) - (__tmp178048 + _%L173990%_))) + (__tmp178154 (let () (declare (not safe)) (gx#stx-e - _%specializer-id174612%_)))) + _%specializer-id174718%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178049 + __tmp178155 '" => " - __tmp178048)) - (_%generate-specializer-def173816%_ - _%L173884%_ - _%specializer-id174612%_ - _%specializer-impl174767%_)))) - _%clause174467174506%_)))))) - (_%loop174462174490%_ _%target174459174485%_ '())) - (_%g174453174472%_ _%g174454174475%_))))) - (_%g174453174472%_ _%g174454174475%_)))) + __tmp178154)) + (_%generate-specializer-def173922%_ + _%L173990%_ + _%specializer-id174718%_ + _%specializer-impl174873%_)))) + _%clause174573174612%_)))))) + (_%loop174568174596%_ _%target174565174591%_ '())) + (_%g174559174578%_ _%g174560174581%_))))) + (_%g174559174578%_ _%g174560174581%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174453174472%_ - _%g174454174475%_))))) - (_%g174452174770%_ _%L173883%_)) + (_%g174559174578%_ + _%g174560174581%_))))) + (_%g174558174876%_ _%L173989%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L173883%_)) - (let* ((_%g174774174804%_ - (lambda (_%g174775174801%_) + (gxc#opt-lambda-expr? _%L173989%_)) + (let* ((_%g174880174910%_ + (lambda (_%g174881174907%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174775174801%_)))) - (_%g174773175435%_ - (lambda (_%g174775174807%_) + _%g174881174907%_)))) + (_%g174879175541%_ + (lambda (_%g174881174913%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174775174807%_)) - (let ((_%e174779174809%_ + _%g174881174913%_)) + (let ((_%e174885174915%_ (let () (declare (not safe)) (gx#stx-e - _%g174775174807%_)))) - (let ((_%hd174780174812%_ + _%g174881174913%_)))) + (let ((_%hd174886174918%_ (let () (declare (not safe)) - (##car _%e174779174809%_))) - (_%tl174781174814%_ + (##car _%e174885174915%_))) + (_%tl174887174920%_ (let () (declare (not safe)) - (##cdr _%e174779174809%_)))) + (##cdr _%e174885174915%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174781174814%_)) - (let ((_%e174782174817%_ + _%tl174887174920%_)) + (let ((_%e174888174923%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl174781174814%_)))) - (let ((_%hd174783174820%_ + (gx#stx-e _%tl174887174920%_)))) + (let ((_%hd174889174926%_ (let () (declare (not safe)) - (##car _%e174782174817%_))) - (_%tl174784174822%_ + (##car _%e174888174923%_))) + (_%tl174890174928%_ (let () (declare (not safe)) - (##cdr _%e174782174817%_)))) + (##cdr _%e174888174923%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174783174820%_)) - (let ((_%e174785174825%_ + (gx#stx-pair? _%hd174889174926%_)) + (let ((_%e174891174931%_ (let () (declare (not safe)) - (gx#stx-e _%hd174783174820%_)))) - (let ((_%hd174786174828%_ + (gx#stx-e _%hd174889174926%_)))) + (let ((_%hd174892174934%_ (let () (declare (not safe)) - (##car _%e174785174825%_))) - (_%tl174787174830%_ + (##car _%e174891174931%_))) + (_%tl174893174936%_ (let () (declare (not safe)) - (##cdr _%e174785174825%_)))) + (##cdr _%e174891174931%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174786174828%_)) - (let ((_%e174788174833%_ + (gx#stx-pair? _%hd174892174934%_)) + (let ((_%e174894174939%_ (let () (declare (not safe)) - (gx#stx-e _%hd174786174828%_)))) - (let ((_%hd174789174836%_ + (gx#stx-e _%hd174892174934%_)))) + (let ((_%hd174895174942%_ (let () (declare (not safe)) - (##car _%e174788174833%_))) - (_%tl174790174838%_ + (##car _%e174894174939%_))) + (_%tl174896174944%_ (let () (declare (not safe)) - (##cdr _%e174788174833%_)))) + (##cdr _%e174894174939%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174789174836%_)) - (let ((_%e174791174841%_ + (gx#stx-pair? _%hd174895174942%_)) + (let ((_%e174897174947%_ (let () (declare (not safe)) (gx#stx-e - _%hd174789174836%_)))) - (let ((_%hd174792174844%_ + _%hd174895174942%_)))) + (let ((_%hd174898174950%_ (let () (declare (not safe)) - (##car _%e174791174841%_))) - (_%tl174793174846%_ + (##car _%e174897174947%_))) + (_%tl174899174952%_ (let () (declare (not safe)) - (##cdr _%e174791174841%_)))) + (##cdr _%e174897174947%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl174793174846%_)) + _%tl174899174952%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl174790174838%_)) - (let ((_%e174794174849%_ + _%tl174896174944%_)) + (let ((_%e174900174955%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl174790174838%_)))) - (let ((_%hd174795174852%_ + (gx#stx-e _%tl174896174944%_)))) + (let ((_%hd174901174958%_ (let () (declare (not safe)) - (##car _%e174794174849%_))) - (_%tl174796174854%_ + (##car _%e174900174955%_))) + (_%tl174902174960%_ (let () (declare (not safe)) - (##cdr _%e174794174849%_)))) + (##cdr _%e174900174955%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174796174854%_)) + (gx#stx-null? _%tl174902174960%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174787174830%_)) + (gx#stx-null? _%tl174893174936%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174784174822%_)) - (let ((_%e174797174857%_ + (gx#stx-pair? _%tl174890174928%_)) + (let ((_%e174903174963%_ (let () (declare (not safe)) - (gx#stx-e _%tl174784174822%_)))) - (let ((_%hd174798174860%_ + (gx#stx-e _%tl174890174928%_)))) + (let ((_%hd174904174966%_ (let () (declare (not safe)) - (##car _%e174797174857%_))) - (_%tl174799174862%_ + (##car _%e174903174963%_))) + (_%tl174905174968%_ (let () (declare (not safe)) - (##cdr _%e174797174857%_)))) + (##cdr _%e174903174963%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174799174862%_)) - ((lambda (_%L174865%_ - _%L174866%_ - _%L174867%_) - (let* ((_%g174891174909%_ - (lambda (_%g174892174906%_) + (gx#stx-null? _%tl174905174968%_)) + ((lambda (_%L174971%_ + _%L174972%_ + _%L174973%_) + (let* ((_%g174997175015%_ + (lambda (_%g174998175012%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174892174906%_)))) - (_%g174890174965%_ - (lambda (_%g174892174912%_) + _%g174998175012%_)))) + (_%g174996175071%_ + (lambda (_%g174998175018%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174892174912%_)) - (let ((_%e174896174914%_ + _%g174998175018%_)) + (let ((_%e175002175020%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174892174912%_)))) - (let ((_%hd174897174917%_ + (gx#stx-e _%g174998175018%_)))) + (let ((_%hd175003175023%_ (let () (declare (not safe)) - (##car _%e174896174914%_))) - (_%tl174898174919%_ + (##car _%e175002175020%_))) + (_%tl175004175025%_ (let () (declare (not safe)) - (##cdr _%e174896174914%_)))) + (##cdr _%e175002175020%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl174898174919%_)) - (let ((_%e174899174922%_ + (gx#stx-pair? _%tl175004175025%_)) + (let ((_%e175005175028%_ (let () (declare (not safe)) - (gx#stx-e _%tl174898174919%_)))) - (let ((_%hd174900174925%_ + (gx#stx-e _%tl175004175025%_)))) + (let ((_%hd175006175031%_ (let () (declare (not safe)) - (##car _%e174899174922%_))) - (_%tl174901174927%_ + (##car _%e175005175028%_))) + (_%tl175007175033%_ (let () (declare (not safe)) - (##cdr _%e174899174922%_)))) + (##cdr _%e175005175028%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd174900174925%_)) - (let ((_%e174902174930%_ + (gx#stx-pair? _%hd175006175031%_)) + (let ((_%e175008175036%_ (let () (declare (not safe)) - (gx#stx-e _%hd174900174925%_)))) - (let ((_%hd174903174933%_ + (gx#stx-e _%hd175006175031%_)))) + (let ((_%hd175009175039%_ (let () (declare (not safe)) - (##car _%e174902174930%_))) - (_%tl174904174935%_ + (##car _%e175008175036%_))) + (_%tl175010175041%_ (let () (declare (not safe)) - (##cdr _%e174902174930%_)))) - ((lambda (_%L174938%_ - _%L174939%_ - _%L174940%_) - (let ((_%receiver174959%_ - (let ((_%$e174956%_ + (##cdr _%e175008175036%_)))) + ((lambda (_%L175044%_ + _%L175045%_ + _%L175046%_) + (let ((_%receiver175065%_ + (let ((_%$e175062%_ (gxc#apply-extract-receiver (cons (let () (declare @@ -1737,3099 +1737,3099 @@ (gx#datum->syntax__0 '#f '%#begin)) - _%L174938%_)))) - (if _%$e174956%_ - _%$e174956%_ - _%L174940%_)))) + _%L175044%_)))) + (if _%$e175062%_ + _%$e175062%_ + _%L175046%_)))) (for-each - (lambda (_%g174960174962%_) + (lambda (_%g175066175068%_) (gxc#apply-collect-object-refs__% '#f - _%receiver174959%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g174960174962%_)) - _%L174938%_))) - _%tl174901174927%_ - _%tl174904174935%_ - _%hd174903174933%_))) - (_%g174891174909%_ _%g174892174912%_)))) - (_%g174891174909%_ _%g174892174912%_)))) - (_%g174891174909%_ _%g174892174912%_))))) + _%receiver175065%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g175066175068%_)) + _%L175044%_))) + _%tl175007175033%_ + _%tl175010175041%_ + _%hd175009175039%_))) + (_%g174997175015%_ _%g174998175018%_)))) + (_%g174997175015%_ _%g174998175018%_)))) + (_%g174997175015%_ _%g174998175018%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174890174965%_ _%L174866%_)) - (let* ((_%g174968174987%_ - (lambda (_%g174969174984%_) + (_%g174996175071%_ _%L174972%_)) + (let* ((_%g175074175093%_ + (lambda (_%g175075175090%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g174969174984%_)))) - (_%g174967175111%_ - (lambda (_%g174969174990%_) + _%g175075175090%_)))) + (_%g175073175217%_ + (lambda (_%g175075175096%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g174969174990%_)) - (let ((_%e174971174992%_ + _%g175075175096%_)) + (let ((_%e175077175098%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%g174969174990%_)))) - (let ((_%hd174972174995%_ + (gx#stx-e _%g175075175096%_)))) + (let ((_%hd175078175101%_ (let () (declare (not safe)) - (##car _%e174971174992%_))) - (_%tl174973174997%_ + (##car _%e175077175098%_))) + (_%tl175079175103%_ (let () (declare (not safe)) - (##cdr _%e174971174992%_)))) + (##cdr _%e175077175098%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl174973174997%_)) - (let ((_g178050_ + (gx#stx-pair/null? _%tl175079175103%_)) + (let ((_g178156_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl174973174997%_ + _%tl175079175103%_ '0)))) (begin - (let ((_g178051_ + (let ((_g178157_ (let () (declare (not safe)) - (if (##values? _g178050_) - (##vector-length _g178050_) + (if (##values? _g178156_) + (##values-length _g178156_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178051_ 2))) + (##fx= _g178157_ 2))) (error "Context expects 2 values" - _g178051_))) - (let ((_%target174974175000%_ + _g178157_))) + (let ((_%target175080175106%_ (let () (declare (not safe)) - (##vector-ref _g178050_ 0))) - (_%tl174976175002%_ + (##values-ref _g178156_ 0))) + (_%tl175082175108%_ (let () (declare (not safe)) - (##vector-ref _g178050_ 1)))) + (##values-ref _g178156_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl174976175002%_)) - (letrec ((_%loop174977175005%_ - (lambda (_%hd174975175008%_ - _%clause174981175010%_) + (gx#stx-null? _%tl175082175108%_)) + (letrec ((_%loop175083175111%_ + (lambda (_%hd175081175114%_ + _%clause175087175116%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd174975175008%_)) - (let ((_%e174978175013%_ + _%hd175081175114%_)) + (let ((_%e175084175119%_ (let () (declare (not safe)) (gx#stx-e - _%hd174975175008%_)))) - (let ((_%lp-hd174979175016%_ + _%hd175081175114%_)))) + (let ((_%lp-hd175085175122%_ (let () (declare (not safe)) - (##car _%e174978175013%_))) - (_%lp-tl174980175018%_ + (##car _%e175084175119%_))) + (_%lp-tl175086175124%_ (let () (declare (not safe)) - (##cdr _%e174978175013%_)))) - (_%loop174977175005%_ - _%lp-tl174980175018%_ - (cons _%lp-hd174979175016%_ - _%clause174981175010%_)))) - (let ((_%clause174982175021%_ - (reverse _%clause174981175010%_))) - ((lambda (_%L175024%_) + (##cdr _%e175084175119%_)))) + (_%loop175083175111%_ + _%lp-tl175086175124%_ + (cons _%lp-hd175085175122%_ + _%clause175087175116%_)))) + (let ((_%clause175088175127%_ + (reverse _%clause175087175116%_))) + ((lambda (_%L175130%_) (for-each - (lambda (_%clause175037%_) - (let* ((_%g175039175054%_ + (lambda (_%clause175143%_) + (let* ((_%g175145175160%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g175040175051%_) + (lambda (_%g175146175157%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175040175051%_)))) - (_%g175038175101%_ - (lambda (_%g175040175057%_) + _%g175146175157%_)))) + (_%g175144175207%_ + (lambda (_%g175146175163%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175040175057%_)) - (let ((_%e175044175059%_ + (gx#stx-pair? _%g175146175163%_)) + (let ((_%e175150175165%_ (let () (declare (not safe)) - (gx#stx-e _%g175040175057%_)))) - (let ((_%hd175045175062%_ + (gx#stx-e _%g175146175163%_)))) + (let ((_%hd175151175168%_ (let () (declare (not safe)) - (##car _%e175044175059%_))) - (_%tl175046175064%_ + (##car _%e175150175165%_))) + (_%tl175152175170%_ (let () (declare (not safe)) - (##cdr _%e175044175059%_)))) + (##cdr _%e175150175165%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175045175062%_)) - (let ((_%e175047175067%_ + (gx#stx-pair? _%hd175151175168%_)) + (let ((_%e175153175173%_ (let () (declare (not safe)) (gx#stx-e - _%hd175045175062%_)))) - (let ((_%hd175048175070%_ + _%hd175151175168%_)))) + (let ((_%hd175154175176%_ (let () (declare (not safe)) - (##car _%e175047175067%_))) - (_%tl175049175072%_ + (##car _%e175153175173%_))) + (_%tl175155175178%_ (let () (declare (not safe)) - (##cdr _%e175047175067%_)))) - ((lambda (_%L175075%_ - _%L175076%_ - _%L175077%_) - (let ((_%receiver175095%_ - (let ((_%$e175092%_ + (##cdr _%e175153175173%_)))) + ((lambda (_%L175181%_ + _%L175182%_ + _%L175183%_) + (let ((_%receiver175201%_ + (let ((_%$e175198%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175075%_)))) - (if _%$e175092%_ _%$e175092%_ _%L175077%_)))) + _%L175181%_)))) + (if _%$e175198%_ _%$e175198%_ _%L175183%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g175096175098%_) + (lambda (_%g175202175204%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175095%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g175096175098%_)) - _%L175075%_))) - _%tl175046175064%_ - _%tl175049175072%_ - _%hd175048175070%_))) - (_%g175039175054%_ - _%g175040175057%_)))) - (_%g175039175054%_ _%g175040175057%_))))) - (_%g175038175101%_ _%clause175037%_))) - (let ((__tmp178052 - (lambda (_%g175103175106%_ _%g175104175108%_) - (cons _%g175103175106%_ _%g175104175108%_)))) + _%receiver175201%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g175202175204%_)) + _%L175181%_))) + _%tl175152175170%_ + _%tl175155175178%_ + _%hd175154175176%_))) + (_%g175145175160%_ + _%g175146175163%_)))) + (_%g175145175160%_ _%g175146175163%_))))) + (_%g175144175207%_ _%clause175143%_))) + (let ((__tmp178158 + (lambda (_%g175209175212%_ _%g175210175214%_) + (cons _%g175209175212%_ _%g175210175214%_)))) (declare (not safe)) - (__foldr1 __tmp178052 '() _%L175024%_)))) + (__foldr1 __tmp178158 '() _%L175130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause174982175021%_)))))) - (_%loop174977175005%_ - _%target174974175000%_ + _%clause175088175127%_)))))) + (_%loop175083175111%_ + _%target175080175106%_ '())) - (_%g174968174987%_ _%g174969174990%_))))) - (_%g174968174987%_ _%g174969174990%_)))) - (_%g174968174987%_ _%g174969174990%_))))) + (_%g175074175093%_ _%g175075175096%_))))) + (_%g175074175093%_ _%g175075175096%_)))) + (_%g175074175093%_ _%g175075175096%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174967175111%_ _%L174865%_)) - (if (_%no-specializer?173907%_) - _%stx173811%_ - (let* ((_%specializer-id175120%_ - (let* ((_%id175114%_ - (let ((__tmp178053 + (_%g175073175217%_ _%L174971%_)) + (if (_%no-specializer?174013%_) + _%stx173917%_ + (let* ((_%specializer-id175226%_ + (let* ((_%id175220%_ + (let ((__tmp178159 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%L173884%_)))) + (gx#stx-e _%L173990%_)))) (declare (not safe)) - (make-symbol__1 __tmp178053 '"::specialize"))) - (_%specializer-id175117%_ - (let ((__tmp178054 + (make-symbol__1 __tmp178159 '"::specialize"))) + (_%specializer-id175223%_ + (let ((__tmp178160 (let () (declare (not safe)) - (gx#stx-source _%stx173811%_)))) + (gx#stx-source _%stx173917%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%id175114%_ __tmp178054)))) + (gx#core-quote-syntax__1 _%id175220%_ __tmp178160)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id175117%_)) - _%specializer-id175117%_)) + (gx#core-bind-runtime!__0 _%specializer-id175223%_)) + _%specializer-id175223%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$klass175122%_ - (let ((__tmp178055 + (_%$klass175228%_ + (let ((__tmp178161 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178055))) + (make-symbol__0 __tmp178161))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$method-table175124%_ - (let ((__tmp178056 + (_%$method-table175230%_ + (let ((__tmp178162 (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178056))) + (make-symbol__0 __tmp178162))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%methods175126%_ + (_%methods175232%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173903%_))) - (_%$methods175130%_ - (map (lambda (_%id175128%_) - (let ((__tmp178057 + _%method-calls174009%_))) + (_%$methods175236%_ + (map (lambda (_%id175234%_) + (let ((__tmp178163 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175128%_))) + (gensym _%id175234%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178057))) - _%methods175126%_)) + (make-symbol__1 '"__" __tmp178163))) + _%methods175232%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175139%_ + (_%_175245%_ (for-each - (lambda (_%g175131175134%_ - _%g175132175136%_) + (lambda (_%g175237175240%_ + _%g175238175242%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173903%_ - _%g175131175134%_ - _%g175132175136%_))) - _%methods175126%_ - _%$methods175130%_)) - (_%methods-bind175149%_ - (map (lambda (_%g175141175144%_ + _%method-calls174009%_ + _%g175237175240%_ + _%g175238175242%_))) + _%methods175232%_ + _%$methods175236%_)) + (_%methods-bind175255%_ + (map (lambda (_%g175247175250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175142175146%_) - (_%generate-method-bind173813%_ - _%$klass175122%_ - _%$method-table175124%_ - _%g175141175144%_ - _%g175142175146%_)) - _%methods175126%_ - _%$methods175130%_)) + _%g175248175252%_) + (_%generate-method-bind173919%_ + _%$klass175228%_ + _%$method-table175230%_ + _%g175247175250%_ + _%g175248175252%_)) + _%methods175232%_ + _%$methods175236%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%slots175151%_ + (_%slots175257%_ (let () (declare (not safe)) (__hash-keys - _%slot-refs173904%_))) - (_%$slots175155%_ - (map (lambda (_%id175153%_) - (let ((__tmp178058 + _%slot-refs174010%_))) + (_%$slots175261%_ + (map (lambda (_%id175259%_) + (let ((__tmp178164 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gensym _%id175153%_))) + (gensym _%id175259%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178058))) - _%slots175151%_)) + (make-symbol__1 '"__" __tmp178164))) + _%slots175257%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%_175164%_ + (_%_175270%_ (for-each - (lambda (_%g175156175159%_ - _%g175157175161%_) + (lambda (_%g175262175265%_ + _%g175263175267%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173904%_ - _%g175156175159%_ - _%g175157175161%_))) - _%slots175151%_ - _%$slots175155%_)) - (_%slots-bind175173%_ - (map (lambda (_%g175165175168%_ + _%slot-refs174010%_ + _%g175262175265%_ + _%g175263175267%_))) + _%slots175257%_ + _%$slots175261%_)) + (_%slots-bind175279%_ + (map (lambda (_%g175271175274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g175166175170%_) - (_%generate-slot-bind173814%_ - _%$klass175122%_ - _%g175165175168%_ - _%g175166175170%_)) - _%slots175151%_ - _%$slots175155%_)) + _%g175272175276%_) + (_%generate-slot-bind173920%_ + _%$klass175228%_ + _%g175271175274%_ + _%g175272175276%_)) + _%slots175257%_ + _%$slots175261%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-lambda-expr175265%_ - (let* ((_%g175175175193%_ - (lambda (_%g175176175190%_) + (_%specializer-lambda-expr175371%_ + (let* ((_%g175281175299%_ + (lambda (_%g175282175296%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175176175190%_)))) - (_%g175174175262%_ - (lambda (_%g175176175196%_) + _%g175282175296%_)))) + (_%g175280175368%_ + (lambda (_%g175282175302%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175176175196%_)) - (let ((_%e175180175198%_ + (gx#stx-pair? _%g175282175302%_)) + (let ((_%e175286175304%_ (let () (declare (not safe)) - (gx#stx-e _%g175176175196%_)))) - (let ((_%hd175181175201%_ + (gx#stx-e _%g175282175302%_)))) + (let ((_%hd175287175307%_ (let () (declare (not safe)) - (##car _%e175180175198%_))) - (_%tl175182175203%_ + (##car _%e175286175304%_))) + (_%tl175288175309%_ (let () (declare (not safe)) - (##cdr _%e175180175198%_)))) + (##cdr _%e175286175304%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175182175203%_)) - (let ((_%e175183175206%_ + (gx#stx-pair? _%tl175288175309%_)) + (let ((_%e175289175312%_ (let () (declare (not safe)) - (gx#stx-e _%tl175182175203%_)))) - (let ((_%hd175184175209%_ + (gx#stx-e _%tl175288175309%_)))) + (let ((_%hd175290175315%_ (let () (declare (not safe)) - (##car _%e175183175206%_))) - (_%tl175185175211%_ + (##car _%e175289175312%_))) + (_%tl175291175317%_ (let () (declare (not safe)) - (##cdr _%e175183175206%_)))) + (##cdr _%e175289175312%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175184175209%_)) - (let ((_%e175186175214%_ + _%hd175290175315%_)) + (let ((_%e175292175320%_ (let () (declare (not safe)) (gx#stx-e - _%hd175184175209%_)))) - (let ((_%hd175187175217%_ + _%hd175290175315%_)))) + (let ((_%hd175293175323%_ (let () (declare (not safe)) - (##car _%e175186175214%_))) - (_%tl175188175219%_ + (##car _%e175292175320%_))) + (_%tl175294175325%_ (let () (declare (not safe)) - (##cdr _%e175186175214%_)))) - ((lambda (_%L175222%_ - _%L175223%_ - _%L175224%_) - (let* ((_%receiver175253%_ - (let ((_%$e175250%_ + (##cdr _%e175292175320%_)))) + ((lambda (_%L175328%_ + _%L175329%_ + _%L175330%_) + (let* ((_%receiver175359%_ + (let ((_%$e175356%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175222%_)))) - (if _%$e175250%_ _%$e175250%_ _%L175224%_))) - (_%body175259%_ - (map (lambda (_%g175254175256%_) + _%L175328%_)))) + (if _%$e175356%_ _%$e175356%_ _%L175330%_))) + (_%body175365%_ + (map (lambda (_%g175360175362%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175253%_ - _%$klass175122%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g175254175256%_)) - _%L175222%_)) - (__tmp178059 + _%receiver175359%_ + _%$klass175228%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g175360175362%_)) + _%L175328%_)) + (__tmp178165 (cons '%#lambda - (cons (cons _%L175224%_ _%L175223%_) - _%body175259%_)))) + (cons (cons _%L175330%_ _%L175329%_) + _%body175365%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178059 - _%L174866%_))) - _%tl175185175211%_ - _%tl175188175219%_ - _%hd175187175217%_))) - (_%g175175175193%_ - _%g175176175196%_)))) - (_%g175175175193%_ _%g175176175196%_)))) - (_%g175175175193%_ _%g175176175196%_))))) - (_%g175174175262%_ _%L174866%_))) + __tmp178165 + _%L174972%_))) + _%tl175291175317%_ + _%tl175294175325%_ + _%hd175293175323%_))) + (_%g175281175299%_ + _%g175282175302%_)))) + (_%g175281175299%_ _%g175282175302%_)))) + (_%g175281175299%_ _%g175282175302%_))))) + (_%g175280175368%_ _%L174972%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-case-lambda-expr175428%_ - (let* ((_%g175267175286%_ - (lambda (_%g175268175283%_) + (_%specializer-case-lambda-expr175534%_ + (let* ((_%g175373175392%_ + (lambda (_%g175374175389%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175268175283%_)))) - (_%g175266175425%_ - (lambda (_%g175268175289%_) + _%g175374175389%_)))) + (_%g175372175531%_ + (lambda (_%g175374175395%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175268175289%_)) - (let ((_%e175270175291%_ + (gx#stx-pair? _%g175374175395%_)) + (let ((_%e175376175397%_ (let () (declare (not safe)) - (gx#stx-e _%g175268175289%_)))) - (let ((_%hd175271175294%_ + (gx#stx-e _%g175374175395%_)))) + (let ((_%hd175377175400%_ (let () (declare (not safe)) - (##car _%e175270175291%_))) - (_%tl175272175296%_ + (##car _%e175376175397%_))) + (_%tl175378175402%_ (let () (declare (not safe)) - (##cdr _%e175270175291%_)))) + (##cdr _%e175376175397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175272175296%_)) - (let ((_g178060_ + (gx#stx-pair/null? _%tl175378175402%_)) + (let ((_g178166_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175272175296%_ + _%tl175378175402%_ '0)))) (begin - (let ((_g178061_ + (let ((_g178167_ (let () (declare (not safe)) - (if (##values? _g178060_) - (##vector-length - _g178060_) + (if (##values? _g178166_) + (##values-length + _g178166_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178061_ 2))) + (##fx= _g178167_ 2))) (error "Context expects 2 values" - _g178061_))) - (let ((_%target175273175299%_ + _g178167_))) + (let ((_%target175379175405%_ (let () (declare (not safe)) - (##vector-ref _g178060_ 0))) - (_%tl175275175301%_ + (##values-ref _g178166_ 0))) + (_%tl175381175407%_ (let () (declare (not safe)) - (##vector-ref _g178060_ 1)))) + (##values-ref _g178166_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175275175301%_)) - (letrec ((_%loop175276175304%_ - (lambda (_%hd175274175307%_ + _%tl175381175407%_)) + (letrec ((_%loop175382175410%_ + (lambda (_%hd175380175413%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause175280175309%_) + _%clause175386175415%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175274175307%_)) - (let ((_%e175277175312%_ + (gx#stx-pair? _%hd175380175413%_)) + (let ((_%e175383175418%_ (let () (declare (not safe)) - (gx#stx-e _%hd175274175307%_)))) - (let ((_%lp-hd175278175315%_ + (gx#stx-e _%hd175380175413%_)))) + (let ((_%lp-hd175384175421%_ (let () (declare (not safe)) - (##car _%e175277175312%_))) - (_%lp-tl175279175317%_ + (##car _%e175383175418%_))) + (_%lp-tl175385175423%_ (let () (declare (not safe)) - (##cdr _%e175277175312%_)))) - (_%loop175276175304%_ - _%lp-tl175279175317%_ - (cons _%lp-hd175278175315%_ - _%clause175280175309%_)))) - (let ((_%clause175281175320%_ - (reverse _%clause175280175309%_))) - ((lambda (_%L175323%_) - (let* ((_%clauses175423%_ - (map (lambda (_%clause175337%_) - (let* ((_%__stx176873176874%_ - _%clause175337%_) - (_%g175340175355%_ + (##cdr _%e175383175418%_)))) + (_%loop175382175410%_ + _%lp-tl175385175423%_ + (cons _%lp-hd175384175421%_ + _%clause175386175415%_)))) + (let ((_%clause175387175426%_ + (reverse _%clause175386175415%_))) + ((lambda (_%L175429%_) + (let* ((_%clauses175529%_ + (map (lambda (_%clause175443%_) + (let* ((_%__stx176979176980%_ + _%clause175443%_) + (_%g175446175461%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176873176874%_))))) - (let ((_%__kont176875176876%_ - (lambda (_%L175383%_ - _%L175384%_ - _%L175385%_) - (let* ((_%receiver175404%_ - (let ((_%$e175401%_ + _%__stx176979176980%_))))) + (let ((_%__kont176981176982%_ + (lambda (_%L175489%_ + _%L175490%_ + _%L175491%_) + (let* ((_%receiver175510%_ + (let ((_%$e175507%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175383%_)))) - (if _%$e175401%_ _%$e175401%_ _%L175385%_))) - (_%body175410%_ - (map (lambda (_%g175405175407%_) + _%L175489%_)))) + (if _%$e175507%_ _%$e175507%_ _%L175491%_))) + (_%body175516%_ + (map (lambda (_%g175511175513%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175404%_ - _%$klass175122%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g175405175407%_)) - _%L175383%_))) - (cons (cons _%L175385%_ _%L175384%_) _%body175410%_)))) + _%receiver175510%_ + _%$klass175228%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g175511175513%_)) + _%L175489%_))) + (cons (cons _%L175491%_ _%L175490%_) _%body175516%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176877176878%_ + (_%__kont176983176984%_ (lambda () - _%clause175337%_))) + _%clause175443%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx176873176874%_)) - (let ((_%e175345175367%_ + _%__stx176979176980%_)) + (let ((_%e175451175473%_ (let () (declare (not safe)) (gx#stx-e - _%__stx176873176874%_)))) - (let ((_%tl175347175372%_ + _%__stx176979176980%_)))) + (let ((_%tl175453175478%_ (let () (declare (not safe)) - (##cdr _%e175345175367%_))) - (_%hd175346175370%_ + (##cdr _%e175451175473%_))) + (_%hd175452175476%_ (let () (declare (not safe)) - (##car _%e175345175367%_)))) + (##car _%e175451175473%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175346175370%_)) - (let ((_%e175348175375%_ + _%hd175452175476%_)) + (let ((_%e175454175481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175346175370%_)))) - (let ((_%tl175350175380%_ + (gx#stx-e _%hd175452175476%_)))) + (let ((_%tl175456175486%_ (let () (declare (not safe)) - (##cdr _%e175348175375%_))) - (_%hd175349175378%_ + (##cdr _%e175454175481%_))) + (_%hd175455175484%_ (let () (declare (not safe)) - (##car _%e175348175375%_)))) - (_%__kont176875176876%_ - _%tl175347175372%_ - _%tl175350175380%_ - _%hd175349175378%_))) - (_%__kont176877176878%_)))) + (##car _%e175454175481%_)))) + (_%__kont176981176982%_ + _%tl175453175478%_ + _%tl175456175486%_ + _%hd175455175484%_))) + (_%__kont176983176984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont176877176878%_))))) - (let ((__tmp178062 - (lambda (_%g175415175418%_ - _%g175416175420%_) - (cons _%g175415175418%_ - _%g175416175420%_)))) + (_%__kont176983176984%_))))) + (let ((__tmp178168 + (lambda (_%g175521175524%_ + _%g175522175526%_) + (cons _%g175521175524%_ + _%g175522175526%_)))) (declare (not safe)) (__foldr1 - __tmp178062 + __tmp178168 '() - _%L175323%_)))) - (__tmp178063 - (cons '%#case-lambda _%clauses175423%_))) + _%L175429%_)))) + (__tmp178169 + (cons '%#case-lambda _%clauses175529%_))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178063 _%L174865%_))) - _%clause175281175320%_)))))) + (gxc#xform-wrap-source __tmp178169 _%L174971%_))) + _%clause175387175426%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175276175304%_ - _%target175273175299%_ + (_%loop175382175410%_ + _%target175379175405%_ '())) - (_%g175267175286%_ - _%g175268175289%_))))) - (_%g175267175286%_ _%g175268175289%_)))) - (_%g175267175286%_ _%g175268175289%_))))) - (_%g175266175425%_ _%L174865%_))) + (_%g175373175392%_ + _%g175374175395%_))))) + (_%g175373175392%_ _%g175374175395%_)))) + (_%g175373175392%_ _%g175374175395%_))))) + (_%g175372175531%_ _%L174971%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175430%_ - (let ((__tmp178064 + (_%specializer-impl175536%_ + (let ((__tmp178170 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons (cons _%L174867%_ '()) - (cons _%specializer-lambda-expr175265%_ + (cons (cons (cons (cons _%L174973%_ '()) + (cons _%specializer-lambda-expr175371%_ '())) '()) - (cons _%specializer-case-lambda-expr175428%_ + (cons _%specializer-case-lambda-expr175534%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178064 _%stx173811%_))) + (gxc#xform-wrap-source __tmp178170 _%stx173917%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%specializer-impl175432%_ - (_%generate-specializer-impl173815%_ - _%$klass175122%_ - _%$method-table175124%_ - _%methods-bind175149%_ - _%slots-bind175173%_ - _%specializer-impl175430%_))) - (let ((__tmp178066 + (_%specializer-impl175538%_ + (_%generate-specializer-impl173921%_ + _%$klass175228%_ + _%$method-table175230%_ + _%methods-bind175255%_ + _%slots-bind175279%_ + _%specializer-impl175536%_))) + (let ((__tmp178172 (let () (declare (not safe)) (gx#stx-e - _%L173884%_))) - (__tmp178065 + _%L173990%_))) + (__tmp178171 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175120%_)))) + _%specializer-id175226%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178066 + __tmp178172 '" => " - __tmp178065)) - (_%generate-specializer-def173816%_ - _%L173884%_ - _%specializer-id175120%_ - _%specializer-impl175432%_)))) - _%hd174798174860%_ - _%hd174795174852%_ - _%hd174792174844%_) - (_%g174774174804%_ _%g174775174807%_)))) - (_%g174774174804%_ _%g174775174807%_)) - (_%g174774174804%_ _%g174775174807%_)) - (_%g174774174804%_ _%g174775174807%_)))) - (_%g174774174804%_ _%g174775174807%_)) + __tmp178171)) + (_%generate-specializer-def173922%_ + _%L173990%_ + _%specializer-id175226%_ + _%specializer-impl175538%_)))) + _%hd174904174966%_ + _%hd174901174958%_ + _%hd174898174950%_) + (_%g174880174910%_ _%g174881174913%_)))) + (_%g174880174910%_ _%g174881174913%_)) + (_%g174880174910%_ _%g174881174913%_)) + (_%g174880174910%_ _%g174881174913%_)))) + (_%g174880174910%_ _%g174881174913%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174774174804%_ - _%g174775174807%_)))) - (_%g174774174804%_ - _%g174775174807%_)))) - (_%g174774174804%_ _%g174775174807%_)))) - (_%g174774174804%_ _%g174775174807%_)))) - (_%g174774174804%_ _%g174775174807%_)))) + (_%g174880174910%_ + _%g174881174913%_)))) + (_%g174880174910%_ + _%g174881174913%_)))) + (_%g174880174910%_ _%g174881174913%_)))) + (_%g174880174910%_ _%g174881174913%_)))) + (_%g174880174910%_ _%g174881174913%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g174774174804%_ - _%g174775174807%_))))) - (_%g174773175435%_ _%L173883%_)) + (_%g174880174910%_ + _%g174881174913%_))))) + (_%g174879175541%_ _%L173989%_)) (if (let () (declare (not safe)) - (gxc#kw-lambda-expr? _%L173883%_)) - (let* ((_%g175439175492%_ - (lambda (_%g175440175489%_) + (gxc#kw-lambda-expr? _%L173989%_)) + (let* ((_%g175545175598%_ + (lambda (_%g175546175595%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175440175489%_)))) - (_%g175438176663%_ - (lambda (_%g175440175495%_) + _%g175546175595%_)))) + (_%g175544176769%_ + (lambda (_%g175546175601%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175440175495%_)) - (let ((_%e175446175497%_ + _%g175546175601%_)) + (let ((_%e175552175603%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g175440175495%_)))) - (let ((_%hd175447175500%_ + (gx#stx-e _%g175546175601%_)))) + (let ((_%hd175553175606%_ (let () (declare (not safe)) - (##car _%e175446175497%_))) - (_%tl175448175502%_ + (##car _%e175552175603%_))) + (_%tl175554175608%_ (let () (declare (not safe)) - (##cdr _%e175446175497%_)))) + (##cdr _%e175552175603%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175447175500%_)) + (gx#identifier? _%hd175553175606%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd175447175500%_)) + (gx#stx-eq? '%#let-values _%hd175553175606%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175448175502%_)) - (let ((_%e175449175505%_ + (gx#stx-pair? _%tl175554175608%_)) + (let ((_%e175555175611%_ (let () (declare (not safe)) - (gx#stx-e _%tl175448175502%_)))) - (let ((_%hd175450175508%_ + (gx#stx-e _%tl175554175608%_)))) + (let ((_%hd175556175614%_ (let () (declare (not safe)) - (##car _%e175449175505%_))) - (_%tl175451175510%_ + (##car _%e175555175611%_))) + (_%tl175557175616%_ (let () (declare (not safe)) - (##cdr _%e175449175505%_)))) + (##cdr _%e175555175611%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175450175508%_)) - (let ((_%e175452175513%_ + (gx#stx-pair? _%hd175556175614%_)) + (let ((_%e175558175619%_ (let () (declare (not safe)) (gx#stx-e - _%hd175450175508%_)))) - (let ((_%hd175453175516%_ + _%hd175556175614%_)))) + (let ((_%hd175559175622%_ (let () (declare (not safe)) - (##car _%e175452175513%_))) - (_%tl175454175518%_ + (##car _%e175558175619%_))) + (_%tl175560175624%_ (let () (declare (not safe)) - (##cdr _%e175452175513%_)))) + (##cdr _%e175558175619%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175453175516%_)) - (let ((_%e175455175521%_ + _%hd175559175622%_)) + (let ((_%e175561175627%_ (let () (declare (not safe)) (gx#stx-e - _%hd175453175516%_)))) - (let ((_%hd175456175524%_ + _%hd175559175622%_)))) + (let ((_%hd175562175630%_ (let () (declare (not safe)) - (##car _%e175455175521%_))) - (_%tl175457175526%_ + (##car _%e175561175627%_))) + (_%tl175563175632%_ (let () (declare (not safe)) - (##cdr _%e175455175521%_)))) + (##cdr _%e175561175627%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175456175524%_)) - (let ((_%e175458175529%_ + _%hd175562175630%_)) + (let ((_%e175564175635%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd175456175524%_)))) - (let ((_%hd175459175532%_ + (gx#stx-e _%hd175562175630%_)))) + (let ((_%hd175565175638%_ (let () (declare (not safe)) - (##car _%e175458175529%_))) - (_%tl175460175534%_ + (##car _%e175564175635%_))) + (_%tl175566175640%_ (let () (declare (not safe)) - (##cdr _%e175458175529%_)))) + (##cdr _%e175564175635%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175460175534%_)) + (gx#stx-null? _%tl175566175640%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175457175526%_)) - (let ((_%e175461175537%_ + (gx#stx-pair? _%tl175563175632%_)) + (let ((_%e175567175643%_ (let () (declare (not safe)) - (gx#stx-e _%tl175457175526%_)))) - (let ((_%hd175462175540%_ + (gx#stx-e _%tl175563175632%_)))) + (let ((_%hd175568175646%_ (let () (declare (not safe)) - (##car _%e175461175537%_))) - (_%tl175463175542%_ + (##car _%e175567175643%_))) + (_%tl175569175648%_ (let () (declare (not safe)) - (##cdr _%e175461175537%_)))) + (##cdr _%e175567175643%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175462175540%_)) - (let ((_%e175464175545%_ + (gx#stx-pair? _%hd175568175646%_)) + (let ((_%e175570175651%_ (let () (declare (not safe)) - (gx#stx-e _%hd175462175540%_)))) - (let ((_%hd175465175548%_ + (gx#stx-e _%hd175568175646%_)))) + (let ((_%hd175571175654%_ (let () (declare (not safe)) - (##car _%e175464175545%_))) - (_%tl175466175550%_ + (##car _%e175570175651%_))) + (_%tl175572175656%_ (let () (declare (not safe)) - (##cdr _%e175464175545%_)))) + (##cdr _%e175570175651%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175465175548%_)) + _%hd175571175654%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd175465175548%_)) + _%hd175571175654%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175466175550%_)) - (let ((_%e175467175553%_ + _%tl175572175656%_)) + (let ((_%e175573175659%_ (let () (declare (not safe)) (gx#stx-e - _%tl175466175550%_)))) - (let ((_%hd175468175556%_ + _%tl175572175656%_)))) + (let ((_%hd175574175662%_ (let () (declare (not safe)) - (##car _%e175467175553%_))) - (_%tl175469175558%_ + (##car _%e175573175659%_))) + (_%tl175575175664%_ (let () (declare (not safe)) - (##cdr _%e175467175553%_)))) + (##cdr _%e175573175659%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175468175556%_)) - (let ((_%e175470175561%_ + _%hd175574175662%_)) + (let ((_%e175576175667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd175468175556%_)))) - (let ((_%hd175471175564%_ + (gx#stx-e _%hd175574175662%_)))) + (let ((_%hd175577175670%_ (let () (declare (not safe)) - (##car _%e175470175561%_))) - (_%tl175472175566%_ + (##car _%e175576175667%_))) + (_%tl175578175672%_ (let () (declare (not safe)) - (##cdr _%e175470175561%_)))) + (##cdr _%e175576175667%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175471175564%_)) - (let ((_%e175473175569%_ + (gx#stx-pair? _%hd175577175670%_)) + (let ((_%e175579175675%_ (let () (declare (not safe)) - (gx#stx-e _%hd175471175564%_)))) - (let ((_%hd175474175572%_ + (gx#stx-e _%hd175577175670%_)))) + (let ((_%hd175580175678%_ (let () (declare (not safe)) - (##car _%e175473175569%_))) - (_%tl175475175574%_ + (##car _%e175579175675%_))) + (_%tl175581175680%_ (let () (declare (not safe)) - (##cdr _%e175473175569%_)))) + (##cdr _%e175579175675%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175474175572%_)) - (let ((_%e175476175577%_ + (gx#stx-pair? _%hd175580175678%_)) + (let ((_%e175582175683%_ (let () (declare (not safe)) - (gx#stx-e _%hd175474175572%_)))) - (let ((_%hd175477175580%_ + (gx#stx-e _%hd175580175678%_)))) + (let ((_%hd175583175686%_ (let () (declare (not safe)) - (##car _%e175476175577%_))) - (_%tl175478175582%_ + (##car _%e175582175683%_))) + (_%tl175584175688%_ (let () (declare (not safe)) - (##cdr _%e175476175577%_)))) + (##cdr _%e175582175683%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175478175582%_)) + (gx#stx-null? _%tl175584175688%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175475175574%_)) - (let ((_%e175479175585%_ + _%tl175581175680%_)) + (let ((_%e175585175691%_ (let () (declare (not safe)) (gx#stx-e - _%tl175475175574%_)))) - (let ((_%hd175480175588%_ + _%tl175581175680%_)))) + (let ((_%hd175586175694%_ (let () (declare (not safe)) - (##car _%e175479175585%_))) - (_%tl175481175590%_ + (##car _%e175585175691%_))) + (_%tl175587175696%_ (let () (declare (not safe)) - (##cdr _%e175479175585%_)))) + (##cdr _%e175585175691%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175481175590%_)) + _%tl175587175696%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175472175566%_)) + _%tl175578175672%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl175469175558%_)) - (let ((_%e175482175593%_ + (gx#stx-pair? _%tl175575175664%_)) + (let ((_%e175588175699%_ (let () (declare (not safe)) - (gx#stx-e _%tl175469175558%_)))) - (let ((_%hd175483175596%_ + (gx#stx-e _%tl175575175664%_)))) + (let ((_%hd175589175702%_ (let () (declare (not safe)) - (##car _%e175482175593%_))) - (_%tl175484175598%_ + (##car _%e175588175699%_))) + (_%tl175590175704%_ (let () (declare (not safe)) - (##cdr _%e175482175593%_)))) + (##cdr _%e175588175699%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175484175598%_)) + (gx#stx-null? _%tl175590175704%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175463175542%_)) + (gx#stx-null? _%tl175569175648%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175454175518%_)) + (gx#stx-null? _%tl175560175624%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175451175510%_)) - (let ((_%e175485175601%_ + (gx#stx-pair? _%tl175557175616%_)) + (let ((_%e175591175707%_ (let () (declare (not safe)) (gx#stx-e - _%tl175451175510%_)))) - (let ((_%hd175486175604%_ + _%tl175557175616%_)))) + (let ((_%hd175592175710%_ (let () (declare (not safe)) - (##car _%e175485175601%_))) - (_%tl175487175606%_ + (##car _%e175591175707%_))) + (_%tl175593175712%_ (let () (declare (not safe)) - (##cdr _%e175485175601%_)))) + (##cdr _%e175591175707%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175487175606%_)) - ((lambda (_%L175609%_ - _%L175610%_ - _%L175611%_ - _%L175612%_ - _%L175613%_) - (let* ((_%g175653175715%_ - (lambda (_%g175654175712%_) + _%tl175593175712%_)) + ((lambda (_%L175715%_ + _%L175716%_ + _%L175717%_ + _%L175718%_ + _%L175719%_) + (let* ((_%g175759175821%_ + (lambda (_%g175760175818%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175654175712%_)))) - (_%g175652176660%_ - (lambda (_%g175654175718%_) + _%g175760175818%_)))) + (_%g175758176766%_ + (lambda (_%g175760175824%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g175654175718%_)) - (let ((_%e175660175720%_ + (gx#stx-pair? _%g175760175824%_)) + (let ((_%e175766175826%_ (let () (declare (not safe)) - (gx#stx-e _%g175654175718%_)))) - (let ((_%hd175661175723%_ + (gx#stx-e _%g175760175824%_)))) + (let ((_%hd175767175829%_ (let () (declare (not safe)) - (##car _%e175660175720%_))) - (_%tl175662175725%_ + (##car _%e175766175826%_))) + (_%tl175768175831%_ (let () (declare (not safe)) - (##cdr _%e175660175720%_)))) + (##cdr _%e175766175826%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175661175723%_)) + (gx#identifier? _%hd175767175829%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd175661175723%_)) + _%hd175767175829%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175662175725%_)) - (let ((_%e175663175728%_ + _%tl175768175831%_)) + (let ((_%e175769175834%_ (let () (declare (not safe)) (gx#stx-e - _%tl175662175725%_)))) - (let ((_%hd175664175731%_ + _%tl175768175831%_)))) + (let ((_%hd175770175837%_ (let () (declare (not safe)) - (##car _%e175663175728%_))) - (_%tl175665175733%_ + (##car _%e175769175834%_))) + (_%tl175771175839%_ (let () (declare (not safe)) - (##cdr _%e175663175728%_)))) + (##cdr _%e175769175834%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175665175733%_)) - (let ((_%e175666175736%_ + _%tl175771175839%_)) + (let ((_%e175772175842%_ (let () (declare (not safe)) (gx#stx-e - _%tl175665175733%_)))) - (let ((_%hd175667175739%_ + _%tl175771175839%_)))) + (let ((_%hd175773175845%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175666175736%_))) - (_%tl175668175741%_ - (let () (declare (not safe)) (##cdr _%e175666175736%_)))) + (##car _%e175772175842%_))) + (_%tl175774175847%_ + (let () (declare (not safe)) (##cdr _%e175772175842%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175667175739%_)) - (let ((_%e175669175744%_ + (gx#stx-pair? _%hd175773175845%_)) + (let ((_%e175775175850%_ (let () (declare (not safe)) - (gx#stx-e _%hd175667175739%_)))) - (let ((_%hd175670175747%_ + (gx#stx-e _%hd175773175845%_)))) + (let ((_%hd175776175853%_ (let () (declare (not safe)) - (##car _%e175669175744%_))) - (_%tl175671175749%_ + (##car _%e175775175850%_))) + (_%tl175777175855%_ (let () (declare (not safe)) - (##cdr _%e175669175744%_)))) + (##cdr _%e175775175850%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd175670175747%_)) + (gx#identifier? _%hd175776175853%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd175670175747%_)) + (gx#stx-eq? '%#call _%hd175776175853%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175671175749%_)) - (let ((_%e175672175752%_ + (gx#stx-pair? _%tl175777175855%_)) + (let ((_%e175778175858%_ (let () (declare (not safe)) - (gx#stx-e _%tl175671175749%_)))) - (let ((_%hd175673175755%_ + (gx#stx-e _%tl175777175855%_)))) + (let ((_%hd175779175861%_ (let () (declare (not safe)) - (##car _%e175672175752%_))) - (_%tl175674175757%_ + (##car _%e175778175858%_))) + (_%tl175780175863%_ (let () (declare (not safe)) - (##cdr _%e175672175752%_)))) + (##cdr _%e175778175858%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd175673175755%_)) - (let ((_%e175675175760%_ + _%hd175779175861%_)) + (let ((_%e175781175866%_ (let () (declare (not safe)) (gx#stx-e - _%hd175673175755%_)))) - (let ((_%hd175676175763%_ + _%hd175779175861%_)))) + (let ((_%hd175782175869%_ (let () (declare (not safe)) - (##car _%e175675175760%_))) - (_%tl175677175765%_ + (##car _%e175781175866%_))) + (_%tl175783175871%_ (let () (declare (not safe)) - (##cdr _%e175675175760%_)))) + (##cdr _%e175781175866%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175676175763%_)) + _%hd175782175869%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175676175763%_)) + _%hd175782175869%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175677175765%_)) - (let ((_%e175678175768%_ + _%tl175783175871%_)) + (let ((_%e175784175874%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175677175765%_)))) - (let ((_%hd175679175771%_ + (gx#stx-e _%tl175783175871%_)))) + (let ((_%hd175785175877%_ (let () (declare (not safe)) - (##car _%e175678175768%_))) - (_%tl175680175773%_ + (##car _%e175784175874%_))) + (_%tl175786175879%_ (let () (declare (not safe)) - (##cdr _%e175678175768%_)))) + (##cdr _%e175784175874%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175680175773%_)) + (gx#stx-null? _%tl175786175879%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175674175757%_)) - (let ((_%e175681175776%_ + (gx#stx-pair? _%tl175780175863%_)) + (let ((_%e175787175882%_ (let () (declare (not safe)) - (gx#stx-e _%tl175674175757%_)))) - (let ((_%hd175682175779%_ + (gx#stx-e _%tl175780175863%_)))) + (let ((_%hd175788175885%_ (let () (declare (not safe)) - (##car _%e175681175776%_))) - (_%tl175683175781%_ + (##car _%e175787175882%_))) + (_%tl175789175887%_ (let () (declare (not safe)) - (##cdr _%e175681175776%_)))) + (##cdr _%e175787175882%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175682175779%_)) - (let ((_%e175684175784%_ + (gx#stx-pair? _%hd175788175885%_)) + (let ((_%e175790175890%_ (let () (declare (not safe)) (gx#stx-e - _%hd175682175779%_)))) - (let ((_%hd175685175787%_ + _%hd175788175885%_)))) + (let ((_%hd175791175893%_ (let () (declare (not safe)) - (##car _%e175684175784%_))) - (_%tl175686175789%_ + (##car _%e175790175890%_))) + (_%tl175792175895%_ (let () (declare (not safe)) - (##cdr _%e175684175784%_)))) + (##cdr _%e175790175890%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175685175787%_)) + _%hd175791175893%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175685175787%_)) + _%hd175791175893%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175686175789%_)) - (let ((_%e175687175792%_ + _%tl175792175895%_)) + (let ((_%e175793175898%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl175686175789%_)))) - (let ((_%hd175688175795%_ + (gx#stx-e _%tl175792175895%_)))) + (let ((_%hd175794175901%_ (let () (declare (not safe)) - (##car _%e175687175792%_))) - (_%tl175689175797%_ + (##car _%e175793175898%_))) + (_%tl175795175903%_ (let () (declare (not safe)) - (##cdr _%e175687175792%_)))) + (##cdr _%e175793175898%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175689175797%_)) + (gx#stx-null? _%tl175795175903%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175683175781%_)) - (let ((_%e175690175800%_ + (gx#stx-pair? _%tl175789175887%_)) + (let ((_%e175796175906%_ (let () (declare (not safe)) - (gx#stx-e _%tl175683175781%_)))) - (let ((_%hd175691175803%_ + (gx#stx-e _%tl175789175887%_)))) + (let ((_%hd175797175909%_ (let () (declare (not safe)) - (##car _%e175690175800%_))) - (_%tl175692175805%_ + (##car _%e175796175906%_))) + (_%tl175798175911%_ (let () (declare (not safe)) - (##cdr _%e175690175800%_)))) + (##cdr _%e175796175906%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175691175803%_)) - (let ((_%e175693175808%_ + (gx#stx-pair? _%hd175797175909%_)) + (let ((_%e175799175914%_ (let () (declare (not safe)) - (gx#stx-e _%hd175691175803%_)))) - (let ((_%hd175694175811%_ + (gx#stx-e _%hd175797175909%_)))) + (let ((_%hd175800175917%_ (let () (declare (not safe)) - (##car _%e175693175808%_))) - (_%tl175695175813%_ + (##car _%e175799175914%_))) + (_%tl175801175919%_ (let () (declare (not safe)) - (##cdr _%e175693175808%_)))) + (##cdr _%e175799175914%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd175694175811%_)) + _%hd175800175917%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd175694175811%_)) + _%hd175800175917%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175695175813%_)) - (let ((_%e175696175816%_ + _%tl175801175919%_)) + (let ((_%e175802175922%_ (let () (declare (not safe)) (gx#stx-e - _%tl175695175813%_)))) - (let ((_%hd175697175819%_ + _%tl175801175919%_)))) + (let ((_%hd175803175925%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e175696175816%_))) - (_%tl175698175821%_ - (let () (declare (not safe)) (##cdr _%e175696175816%_)))) + (##car _%e175802175922%_))) + (_%tl175804175927%_ + (let () (declare (not safe)) (##cdr _%e175802175922%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175698175821%_)) + (gx#stx-null? _%tl175804175927%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl175692175805%_)) - (if (let ((__tmp178067 + (gx#stx-pair/null? _%tl175798175911%_)) + (if (let ((__tmp178173 (let () (declare (not safe)) - (gx#stx-length _%tl175692175805%_)))) + (gx#stx-length _%tl175798175911%_)))) (declare (not safe)) - (##fx>= __tmp178067 '1)) - (let ((_g178068_ + (##fx>= __tmp178173 '1)) + (let ((_g178174_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl175692175805%_ + _%tl175798175911%_ '1)))) (begin - (let ((_g178069_ + (let ((_g178175_ (let () (declare (not safe)) - (if (##values? _g178068_) - (##vector-length _g178068_) + (if (##values? _g178174_) + (##values-length _g178174_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178069_ 2))) + (##fx= _g178175_ 2))) (error "Context expects 2 values" - _g178069_))) - (let ((_%target175699175824%_ + _g178175_))) + (let ((_%target175805175930%_ (let () (declare (not safe)) - (##vector-ref _g178068_ 0))) - (_%tl175701175826%_ + (##values-ref _g178174_ 0))) + (_%tl175807175932%_ (let () (declare (not safe)) - (##vector-ref _g178068_ 1)))) + (##values-ref _g178174_ 1)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl175701175826%_)) - (let ((_%e175708175829%_ + (gx#stx-pair? _%tl175807175932%_)) + (let ((_%e175814175935%_ (let () (declare (not safe)) - (gx#stx-e _%tl175701175826%_)))) - (let ((_%hd175709175832%_ + (gx#stx-e _%tl175807175932%_)))) + (let ((_%hd175815175938%_ (let () (declare (not safe)) - (##car _%e175708175829%_))) - (_%tl175710175834%_ + (##car _%e175814175935%_))) + (_%tl175816175940%_ (let () (declare (not safe)) - (##cdr _%e175708175829%_)))) + (##cdr _%e175814175935%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl175710175834%_)) - (letrec ((_%loop175702175837%_ - (lambda (_%hd175700175840%_ + _%tl175816175940%_)) + (letrec ((_%loop175808175943%_ + (lambda (_%hd175806175946%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%kw-ref175706175842%_) + _%kw-ref175812175948%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd175700175840%_)) - (let ((_%e175703175845%_ + (gx#stx-pair? _%hd175806175946%_)) + (let ((_%e175809175951%_ (let () (declare (not safe)) - (gx#stx-e _%hd175700175840%_)))) - (let ((_%lp-hd175704175848%_ + (gx#stx-e _%hd175806175946%_)))) + (let ((_%lp-hd175810175954%_ (let () (declare (not safe)) - (##car _%e175703175845%_))) - (_%lp-tl175705175850%_ + (##car _%e175809175951%_))) + (_%lp-tl175811175956%_ (let () (declare (not safe)) - (##cdr _%e175703175845%_)))) - (_%loop175702175837%_ - _%lp-tl175705175850%_ - (cons _%lp-hd175704175848%_ - _%kw-ref175706175842%_)))) - (let ((_%kw-ref175707175853%_ - (reverse _%kw-ref175706175842%_))) + (##cdr _%e175809175951%_)))) + (_%loop175808175943%_ + _%lp-tl175811175956%_ + (cons _%lp-hd175810175954%_ + _%kw-ref175812175948%_)))) + (let ((_%kw-ref175813175959%_ + (reverse _%kw-ref175812175948%_))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl175668175741%_)) - ((lambda (_%L175856%_ - _%L175857%_ - _%L175858%_ - _%L175859%_ - _%L175860%_) - (let* ((_%kw-count175911%_ - (length (let ((__tmp178070 - (lambda (_%g175903175906%_ - _%g175904175908%_) - (cons _%g175903175906%_ - _%g175904175908%_)))) + (gx#stx-null? _%tl175774175847%_)) + ((lambda (_%L175962%_ + _%L175963%_ + _%L175964%_ + _%L175965%_ + _%L175966%_) + (let* ((_%kw-count176017%_ + (length (let ((__tmp178176 + (lambda (_%g176009176012%_ + _%g176010176014%_) + (cons _%g176009176012%_ + _%g176010176014%_)))) (declare (not safe)) (__foldr1 - __tmp178070 + __tmp178176 '() - _%L175857%_)))) - (_%self-index175913%_ + _%L175963%_)))) + (_%self-index176019%_ (let () (declare (not safe)) - (##fx+ _%kw-count175911%_ '1)))) + (##fx+ _%kw-count176017%_ '1)))) (if (let () (declare (not safe)) - (gxc#lambda-expr? _%L175611%_)) - (let* ((_%g175917175931%_ - (lambda (_%g175918175928%_) + (gxc#lambda-expr? _%L175717%_)) + (let* ((_%g176023176037%_ + (lambda (_%g176024176034%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g175918175928%_)))) - (_%g175916176054%_ - (lambda (_%g175918175934%_) + _%g176024176034%_)))) + (_%g176022176160%_ + (lambda (_%g176024176040%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g175918175934%_)) - (let ((_%e175921175936%_ + _%g176024176040%_)) + (let ((_%e176027176042%_ (let () (declare (not safe)) (gx#stx-e - _%g175918175934%_)))) - (let ((_%hd175922175939%_ + _%g176024176040%_)))) + (let ((_%hd176028176045%_ (let () (declare (not safe)) - (##car _%e175921175936%_))) - (_%tl175923175941%_ + (##car _%e176027176042%_))) + (_%tl176029176047%_ (let () (declare (not safe)) - (##cdr _%e175921175936%_)))) + (##cdr _%e176027176042%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl175923175941%_)) - (let ((_%e175924175944%_ + _%tl176029176047%_)) + (let ((_%e176030176050%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl175923175941%_)))) - (let ((_%hd175925175947%_ + (gx#stx-e _%tl176029176047%_)))) + (let ((_%hd176031176053%_ (let () (declare (not safe)) - (##car _%e175924175944%_))) - (_%tl175926175949%_ + (##car _%e176030176050%_))) + (_%tl176032176055%_ (let () (declare (not safe)) - (##cdr _%e175924175944%_)))) - ((lambda (_%L175952%_ _%L175953%_) - (let* ((_%self175970%_ - (list-ref _%L175953%_ _%self-index175913%_)) - (_%receiver175975%_ - (let ((_%$e175972%_ + (##cdr _%e176030176050%_)))) + ((lambda (_%L176058%_ _%L176059%_) + (let* ((_%self176076%_ + (list-ref _%L176059%_ _%self-index176019%_)) + (_%receiver176081%_ + (let ((_%$e176078%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L175952%_)))) - (if _%$e175972%_ - _%$e175972%_ - _%self175970%_)))) + _%L176058%_)))) + (if _%$e176078%_ + _%$e176078%_ + _%self176076%_)))) (for-each - (lambda (_%g175977175979%_) + (lambda (_%g176083176085%_) (gxc#apply-collect-object-refs__% '#f - _%receiver175975%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g175977175979%_)) - _%L175952%_) - (if (_%no-specializer?173907%_) - _%stx173811%_ - (let* ((_%specializer-id175988%_ - (let* ((_%id175982%_ - (let ((__tmp178071 + _%receiver176081%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176083176085%_)) + _%L176058%_) + (if (_%no-specializer?174013%_) + _%stx173917%_ + (let* ((_%specializer-id176094%_ + (let* ((_%id176088%_ + (let ((__tmp178177 (let () (declare (not safe)) (gx#stx-e - _%L173884%_)))) + _%L173990%_)))) (declare (not safe)) (make-symbol__1 - __tmp178071 + __tmp178177 '"::specialize"))) - (_%specializer-id175985%_ - (let ((__tmp178072 + (_%specializer-id176091%_ + (let ((__tmp178178 (let () (declare (not safe)) (gx#stx-source - _%stx173811%_)))) + _%stx173917%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id175982%_ - __tmp178072)))) + _%id176088%_ + __tmp178178)))) (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%specializer-id175985%_)) - _%specializer-id175985%_)) - (_%$klass175990%_ - (let ((__tmp178073 + _%specializer-id176091%_)) + _%specializer-id176091%_)) + (_%$klass176096%_ + (let ((__tmp178179 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178073))) - (_%$method-table175992%_ - (let ((__tmp178074 + (make-symbol__0 __tmp178179))) + (_%$method-table176098%_ + (let ((__tmp178180 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178074))) - (_%methods175994%_ + (make-symbol__0 __tmp178180))) + (_%methods176100%_ (let () (declare (not safe)) (__hash-keys - _%method-calls173903%_))) - (_%$methods175998%_ - (map (lambda (_%id175996%_) - (let ((__tmp178075 - (gensym _%id175996%_))) + _%method-calls174009%_))) + (_%$methods176104%_ + (map (lambda (_%id176102%_) + (let ((__tmp178181 + (gensym _%id176102%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178075))) - _%methods175994%_)) - (_%_176007%_ + __tmp178181))) + _%methods176100%_)) + (_%_176113%_ (for-each - (lambda (_%g175999176002%_ - _%g176000176004%_) + (lambda (_%g176105176108%_ + _%g176106176110%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173903%_ - _%g175999176002%_ - _%g176000176004%_))) - _%methods175994%_ - _%$methods175998%_)) - (_%methods-bind176017%_ - (map (lambda (_%g176009176012%_ - _%g176010176014%_) - (_%generate-method-bind173813%_ - _%$klass175990%_ - _%$method-table175992%_ - _%g176009176012%_ - _%g176010176014%_)) - _%methods175994%_ - _%$methods175998%_)) - (_%slots176019%_ + _%method-calls174009%_ + _%g176105176108%_ + _%g176106176110%_))) + _%methods176100%_ + _%$methods176104%_)) + (_%methods-bind176123%_ + (map (lambda (_%g176115176118%_ + _%g176116176120%_) + (_%generate-method-bind173919%_ + _%$klass176096%_ + _%$method-table176098%_ + _%g176115176118%_ + _%g176116176120%_)) + _%methods176100%_ + _%$methods176104%_)) + (_%slots176125%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173904%_))) - (_%$slots176023%_ - (map (lambda (_%id176021%_) - (let ((__tmp178076 - (gensym _%id176021%_))) + (__hash-keys _%slot-refs174010%_))) + (_%$slots176129%_ + (map (lambda (_%id176127%_) + (let ((__tmp178182 + (gensym _%id176127%_))) (declare (not safe)) (make-symbol__1 '"__" - __tmp178076))) - _%slots176019%_)) - (_%_176032%_ + __tmp178182))) + _%slots176125%_)) + (_%_176138%_ (for-each - (lambda (_%g176024176027%_ - _%g176025176029%_) + (lambda (_%g176130176133%_ + _%g176131176135%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173904%_ - _%g176024176027%_ - _%g176025176029%_))) - _%slots176019%_ - _%$slots176023%_)) - (_%slots-bind176041%_ - (map (lambda (_%g176033176036%_ - _%g176034176038%_) - (_%generate-slot-bind173814%_ - _%$klass175990%_ - _%g176033176036%_ - _%g176034176038%_)) - _%slots176019%_ - _%$slots176023%_)) - (_%specializer-impl176049%_ - (let* ((_%specializer-body176047%_ - (map (lambda (_%g176042176044%_) + _%slot-refs174010%_ + _%g176130176133%_ + _%g176131176135%_))) + _%slots176125%_ + _%$slots176129%_)) + (_%slots-bind176147%_ + (map (lambda (_%g176139176142%_ + _%g176140176144%_) + (_%generate-slot-bind173920%_ + _%$klass176096%_ + _%g176139176142%_ + _%g176140176144%_)) + _%slots176125%_ + _%$slots176129%_)) + (_%specializer-impl176155%_ + (let* ((_%specializer-body176153%_ + (map (lambda (_%g176148176150%_) (gxc#apply-subst-object-refs__% '#f - _%receiver175975%_ - _%$klass175990%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g176042176044%_)) - _%L175952%_)) - (__tmp178077 + _%receiver176081%_ + _%$klass176096%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176148176150%_)) + _%L176058%_)) + (__tmp178183 (cons '%#let-values - (cons (cons (cons (cons _%L175613%_ + (cons (cons (cons (cons _%L175719%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175612%_ + (cons (cons (cons (cons _%L175718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178078 + (cons (let ((__tmp178184 (cons '%#lambda - (cons _%L175953%_ - _%specializer-body176047%_)))) + (cons _%L176059%_ + _%specializer-body176153%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178078 _%L175611%_)) + (gxc#xform-wrap-source __tmp178184 _%L175717%_)) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L175610%_ '()))) + (cons _%L175716%_ '()))) '())) '()) - (cons _%L175609%_ '()))))) + (cons _%L175715%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178077 - _%stx173811%_))) - (_%specializer-impl176051%_ - (_%generate-specializer-impl173815%_ - _%$klass175990%_ - _%$method-table175992%_ - _%methods-bind176017%_ - _%slots-bind176041%_ - _%specializer-impl176049%_))) - (let ((__tmp178080 + __tmp178183 + _%stx173917%_))) + (_%specializer-impl176157%_ + (_%generate-specializer-impl173921%_ + _%$klass176096%_ + _%$method-table176098%_ + _%methods-bind176123%_ + _%slots-bind176147%_ + _%specializer-impl176155%_))) + (let ((__tmp178186 (let () (declare (not safe)) - (gx#stx-e _%L173884%_))) - (__tmp178079 + (gx#stx-e _%L173990%_))) + (__tmp178185 (let () (declare (not safe)) (gx#stx-e - _%specializer-id175988%_)))) + _%specializer-id176094%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178080 + __tmp178186 '" => " - __tmp178079)) - (_%generate-specializer-def173816%_ - _%L173884%_ - _%specializer-id175988%_ - _%specializer-impl176051%_))))) - _%tl175926175949%_ - _%hd175925175947%_))) - (_%g175917175931%_ _%g175918175934%_)))) + __tmp178185)) + (_%generate-specializer-def173922%_ + _%L173990%_ + _%specializer-id176094%_ + _%specializer-impl176157%_))))) + _%tl176032176055%_ + _%hd176031176053%_))) + (_%g176023176037%_ _%g176024176040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175917175931%_ - _%g175918175934%_))))) - (_%g175916176054%_ _%L175611%_)) + (_%g176023176037%_ + _%g176024176040%_))))) + (_%g176022176160%_ _%L175717%_)) (if (let () (declare (not safe)) - (gxc#opt-lambda-expr? _%L175611%_)) - (let* ((_%g176058176088%_ - (lambda (_%g176059176085%_) + (gxc#opt-lambda-expr? _%L175717%_)) + (let* ((_%g176164176194%_ + (lambda (_%g176165176191%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176059176085%_)))) - (_%g176057176656%_ - (lambda (_%g176059176091%_) + _%g176165176191%_)))) + (_%g176163176762%_ + (lambda (_%g176165176197%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176059176091%_)) - (let ((_%e176063176093%_ + _%g176165176197%_)) + (let ((_%e176169176199%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%g176059176091%_)))) - (let ((_%hd176064176096%_ + (gx#stx-e _%g176165176197%_)))) + (let ((_%hd176170176202%_ (let () (declare (not safe)) - (##car _%e176063176093%_))) - (_%tl176065176098%_ + (##car _%e176169176199%_))) + (_%tl176171176204%_ (let () (declare (not safe)) - (##cdr _%e176063176093%_)))) + (##cdr _%e176169176199%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176065176098%_)) - (let ((_%e176066176101%_ + (gx#stx-pair? _%tl176171176204%_)) + (let ((_%e176172176207%_ (let () (declare (not safe)) - (gx#stx-e _%tl176065176098%_)))) - (let ((_%hd176067176104%_ + (gx#stx-e _%tl176171176204%_)))) + (let ((_%hd176173176210%_ (let () (declare (not safe)) - (##car _%e176066176101%_))) - (_%tl176068176106%_ + (##car _%e176172176207%_))) + (_%tl176174176212%_ (let () (declare (not safe)) - (##cdr _%e176066176101%_)))) + (##cdr _%e176172176207%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176067176104%_)) - (let ((_%e176069176109%_ + (gx#stx-pair? _%hd176173176210%_)) + (let ((_%e176175176215%_ (let () (declare (not safe)) - (gx#stx-e _%hd176067176104%_)))) - (let ((_%hd176070176112%_ + (gx#stx-e _%hd176173176210%_)))) + (let ((_%hd176176176218%_ (let () (declare (not safe)) - (##car _%e176069176109%_))) - (_%tl176071176114%_ + (##car _%e176175176215%_))) + (_%tl176177176220%_ (let () (declare (not safe)) - (##cdr _%e176069176109%_)))) + (##cdr _%e176175176215%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176070176112%_)) - (let ((_%e176072176117%_ + (gx#stx-pair? _%hd176176176218%_)) + (let ((_%e176178176223%_ (let () (declare (not safe)) (gx#stx-e - _%hd176070176112%_)))) - (let ((_%hd176073176120%_ + _%hd176176176218%_)))) + (let ((_%hd176179176226%_ (let () (declare (not safe)) - (##car _%e176072176117%_))) - (_%tl176074176122%_ + (##car _%e176178176223%_))) + (_%tl176180176228%_ (let () (declare (not safe)) - (##cdr _%e176072176117%_)))) + (##cdr _%e176178176223%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176073176120%_)) - (let ((_%e176075176125%_ + _%hd176179176226%_)) + (let ((_%e176181176231%_ (let () (declare (not safe)) (gx#stx-e - _%hd176073176120%_)))) - (let ((_%hd176076176128%_ + _%hd176179176226%_)))) + (let ((_%hd176182176234%_ (let () (declare (not safe)) - (##car _%e176075176125%_))) - (_%tl176077176130%_ + (##car _%e176181176231%_))) + (_%tl176183176236%_ (let () (declare (not safe)) - (##cdr _%e176075176125%_)))) + (##cdr _%e176181176231%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176077176130%_)) + _%tl176183176236%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl176074176122%_)) - (let ((_%e176078176133%_ + _%tl176180176228%_)) + (let ((_%e176184176239%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl176074176122%_)))) - (let ((_%hd176079176136%_ + (gx#stx-e _%tl176180176228%_)))) + (let ((_%hd176185176242%_ (let () (declare (not safe)) - (##car _%e176078176133%_))) - (_%tl176080176138%_ + (##car _%e176184176239%_))) + (_%tl176186176244%_ (let () (declare (not safe)) - (##cdr _%e176078176133%_)))) + (##cdr _%e176184176239%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176080176138%_)) + (gx#stx-null? _%tl176186176244%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176071176114%_)) + (gx#stx-null? _%tl176177176220%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176068176106%_)) - (let ((_%e176081176141%_ + (gx#stx-pair? _%tl176174176212%_)) + (let ((_%e176187176247%_ (let () (declare (not safe)) - (gx#stx-e _%tl176068176106%_)))) - (let ((_%hd176082176144%_ + (gx#stx-e _%tl176174176212%_)))) + (let ((_%hd176188176250%_ (let () (declare (not safe)) - (##car _%e176081176141%_))) - (_%tl176083176146%_ + (##car _%e176187176247%_))) + (_%tl176189176252%_ (let () (declare (not safe)) - (##cdr _%e176081176141%_)))) + (##cdr _%e176187176247%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176083176146%_)) - ((lambda (_%L176149%_ - _%L176150%_ - _%L176151%_) - (let* ((_%g176175176189%_ - (lambda (_%g176176176186%_) + (gx#stx-null? _%tl176189176252%_)) + ((lambda (_%L176255%_ + _%L176256%_ + _%L176257%_) + (let* ((_%g176281176295%_ + (lambda (_%g176282176292%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176176176186%_)))) - (_%g176174176236%_ - (lambda (_%g176176176192%_) + _%g176282176292%_)))) + (_%g176280176342%_ + (lambda (_%g176282176298%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176176176192%_)) - (let ((_%e176179176194%_ + _%g176282176298%_)) + (let ((_%e176285176300%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176176176192%_)))) - (let ((_%hd176180176197%_ + (gx#stx-e _%g176282176298%_)))) + (let ((_%hd176286176303%_ (let () (declare (not safe)) - (##car _%e176179176194%_))) - (_%tl176181176199%_ + (##car _%e176285176300%_))) + (_%tl176287176305%_ (let () (declare (not safe)) - (##cdr _%e176179176194%_)))) + (##cdr _%e176285176300%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176181176199%_)) - (let ((_%e176182176202%_ + (gx#stx-pair? _%tl176287176305%_)) + (let ((_%e176288176308%_ (let () (declare (not safe)) - (gx#stx-e _%tl176181176199%_)))) - (let ((_%hd176183176205%_ + (gx#stx-e _%tl176287176305%_)))) + (let ((_%hd176289176311%_ (let () (declare (not safe)) - (##car _%e176182176202%_))) - (_%tl176184176207%_ + (##car _%e176288176308%_))) + (_%tl176290176313%_ (let () (declare (not safe)) - (##cdr _%e176182176202%_)))) - ((lambda (_%L176210%_ _%L176211%_) - (let* ((_%self176224%_ + (##cdr _%e176288176308%_)))) + ((lambda (_%L176316%_ _%L176317%_) + (let* ((_%self176330%_ (list-ref - _%L176211%_ - _%self-index175913%_)) - (_%receiver176229%_ - (let ((_%$e176226%_ + _%L176317%_ + _%self-index176019%_)) + (_%receiver176335%_ + (let ((_%$e176332%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176210%_)))) - (if _%$e176226%_ - _%$e176226%_ - _%self176224%_)))) + _%L176316%_)))) + (if _%$e176332%_ + _%$e176332%_ + _%self176330%_)))) (for-each - (lambda (_%g176231176233%_) + (lambda (_%g176337176339%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176229%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g176231176233%_)) - _%L176210%_))) - _%tl176184176207%_ - _%hd176183176205%_))) - (_%g176175176189%_ _%g176176176192%_)))) - (_%g176175176189%_ _%g176176176192%_))))) + _%receiver176335%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176337176339%_)) + _%L176316%_))) + _%tl176290176313%_ + _%hd176289176311%_))) + (_%g176281176295%_ _%g176282176298%_)))) + (_%g176281176295%_ _%g176282176298%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176174176236%_ - _%L176150%_)) - (let* ((_%g176239176258%_ - (lambda (_%g176240176255%_) + (_%g176280176342%_ + _%L176256%_)) + (let* ((_%g176345176364%_ + (lambda (_%g176346176361%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176240176255%_)))) - (_%g176238176369%_ - (lambda (_%g176240176261%_) + _%g176346176361%_)))) + (_%g176344176475%_ + (lambda (_%g176346176367%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176240176261%_)) - (let ((_%e176242176263%_ + _%g176346176367%_)) + (let ((_%e176348176369%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176240176261%_)))) - (let ((_%hd176243176266%_ + (gx#stx-e _%g176346176367%_)))) + (let ((_%hd176349176372%_ (let () (declare (not safe)) - (##car _%e176242176263%_))) - (_%tl176244176268%_ + (##car _%e176348176369%_))) + (_%tl176350176374%_ (let () (declare (not safe)) - (##cdr _%e176242176263%_)))) + (##cdr _%e176348176369%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl176244176268%_)) - (let ((_g178081_ + (gx#stx-pair/null? _%tl176350176374%_)) + (let ((_g178187_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176244176268%_ + _%tl176350176374%_ '0)))) (begin - (let ((_g178082_ + (let ((_g178188_ (let () (declare (not safe)) - (if (##values? _g178081_) - (##vector-length _g178081_) + (if (##values? _g178187_) + (##values-length _g178187_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178082_ 2))) + (##fx= _g178188_ 2))) (error "Context expects 2 values" - _g178082_))) - (let ((_%target176245176271%_ + _g178188_))) + (let ((_%target176351176377%_ (let () (declare (not safe)) - (##vector-ref _g178081_ 0))) - (_%tl176247176273%_ + (##values-ref _g178187_ 0))) + (_%tl176353176379%_ (let () (declare (not safe)) - (##vector-ref _g178081_ 1)))) + (##values-ref _g178187_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl176247176273%_)) - (letrec ((_%loop176248176276%_ - (lambda (_%hd176246176279%_ - _%clause176252176281%_) + (gx#stx-null? _%tl176353176379%_)) + (letrec ((_%loop176354176382%_ + (lambda (_%hd176352176385%_ + _%clause176358176387%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd176246176279%_)) - (let ((_%e176249176284%_ + _%hd176352176385%_)) + (let ((_%e176355176390%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd176246176279%_)))) - (let ((_%lp-hd176250176287%_ - (let () (declare (not safe)) (##car _%e176249176284%_))) - (_%lp-tl176251176289%_ + (gx#stx-e _%hd176352176385%_)))) + (let ((_%lp-hd176356176393%_ + (let () (declare (not safe)) (##car _%e176355176390%_))) + (_%lp-tl176357176395%_ (let () (declare (not safe)) - (##cdr _%e176249176284%_)))) - (_%loop176248176276%_ - _%lp-tl176251176289%_ - (cons _%lp-hd176250176287%_ _%clause176252176281%_)))) - (let ((_%clause176253176292%_ (reverse _%clause176252176281%_))) - ((lambda (_%L176295%_) + (##cdr _%e176355176390%_)))) + (_%loop176354176382%_ + _%lp-tl176357176395%_ + (cons _%lp-hd176356176393%_ _%clause176358176387%_)))) + (let ((_%clause176359176398%_ (reverse _%clause176358176387%_))) + ((lambda (_%L176401%_) (for-each - (lambda (_%clause176308%_) - (let* ((_%g176310176321%_ - (lambda (_%g176311176318%_) + (lambda (_%clause176414%_) + (let* ((_%g176416176427%_ + (lambda (_%g176417176424%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176311176318%_)))) - (_%g176309176359%_ - (lambda (_%g176311176324%_) + _%g176417176424%_)))) + (_%g176415176465%_ + (lambda (_%g176417176430%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176311176324%_)) - (let ((_%e176314176326%_ + (gx#stx-pair? _%g176417176430%_)) + (let ((_%e176420176432%_ (let () (declare (not safe)) - (gx#stx-e _%g176311176324%_)))) - (let ((_%hd176315176329%_ + (gx#stx-e _%g176417176430%_)))) + (let ((_%hd176421176435%_ (let () (declare (not safe)) - (##car _%e176314176326%_))) - (_%tl176316176331%_ + (##car _%e176420176432%_))) + (_%tl176422176437%_ (let () (declare (not safe)) - (##cdr _%e176314176326%_)))) - ((lambda (_%L176334%_ _%L176335%_) - (let* ((_%self176347%_ + (##cdr _%e176420176432%_)))) + ((lambda (_%L176440%_ _%L176441%_) + (let* ((_%self176453%_ (list-ref - _%L176335%_ - _%self-index175913%_)) - (_%receiver176352%_ - (let ((_%$e176349%_ + _%L176441%_ + _%self-index176019%_)) + (_%receiver176458%_ + (let ((_%$e176455%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176334%_)))) + _%L176440%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e176349%_ - _%$e176349%_ - _%self176347%_)))) + (if _%$e176455%_ + _%$e176455%_ + _%self176453%_)))) (for-each - (lambda (_%g176354176356%_) + (lambda (_%g176460176462%_) (gxc#apply-collect-object-refs__% '#f - _%receiver176352%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g176354176356%_)) - _%L176334%_))) - _%tl176316176331%_ - _%hd176315176329%_))) - (_%g176310176321%_ _%g176311176324%_))))) - (_%g176309176359%_ _%clause176308%_))) - (let ((__tmp178083 - (lambda (_%g176361176364%_ _%g176362176366%_) - (cons _%g176361176364%_ _%g176362176366%_)))) + _%receiver176458%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176460176462%_)) + _%L176440%_))) + _%tl176422176437%_ + _%hd176421176435%_))) + (_%g176416176427%_ _%g176417176430%_))))) + (_%g176415176465%_ _%clause176414%_))) + (let ((__tmp178189 + (lambda (_%g176467176470%_ _%g176468176472%_) + (cons _%g176467176470%_ _%g176468176472%_)))) (declare (not safe)) - (__foldr1 __tmp178083 '() _%L176295%_)))) - _%clause176253176292%_)))))) + (__foldr1 __tmp178189 '() _%L176401%_)))) + _%clause176359176398%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176248176276%_ - _%target176245176271%_ + (_%loop176354176382%_ + _%target176351176377%_ '())) - (_%g176239176258%_ _%g176240176261%_))))) - (_%g176239176258%_ _%g176240176261%_)))) - (_%g176239176258%_ _%g176240176261%_))))) + (_%g176345176364%_ _%g176346176367%_))))) + (_%g176345176364%_ _%g176346176367%_)))) + (_%g176345176364%_ _%g176346176367%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176238176369%_ - _%L176149%_)) - (if (_%no-specializer?173907%_) - _%stx173811%_ - (let* ((_%specializer-id176378%_ - (let* ((_%id176372%_ + (_%g176344176475%_ + _%L176255%_)) + (if (_%no-specializer?174013%_) + _%stx173917%_ + (let* ((_%specializer-id176484%_ + (let* ((_%id176478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp178084 + (let ((__tmp178190 (let () (declare (not safe)) - (gx#stx-e _%L173884%_)))) + (gx#stx-e _%L173990%_)))) (declare (not safe)) - (make-symbol__1 __tmp178084 '"::specialize"))) - (_%specializer-id176375%_ - (let ((__tmp178085 + (make-symbol__1 __tmp178190 '"::specialize"))) + (_%specializer-id176481%_ + (let ((__tmp178191 (let () (declare (not safe)) - (gx#stx-source _%stx173811%_)))) + (gx#stx-source _%stx173917%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id176372%_ - __tmp178085)))) + _%id176478%_ + __tmp178191)))) (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%specializer-id176375%_)) - _%specializer-id176375%_)) - (_%$klass176380%_ - (let ((__tmp178086 + (gx#core-bind-runtime!__0 _%specializer-id176481%_)) + _%specializer-id176481%_)) + (_%$klass176486%_ + (let ((__tmp178192 (let () (declare (not safe)) (##gensym '__klass)))) (declare (not safe)) - (make-symbol__0 __tmp178086))) - (_%$method-table176382%_ - (let ((__tmp178087 + (make-symbol__0 __tmp178192))) + (_%$method-table176488%_ + (let ((__tmp178193 (let () (declare (not safe)) (##gensym '__method-table)))) (declare (not safe)) - (make-symbol__0 __tmp178087))) - (_%methods176384%_ + (make-symbol__0 __tmp178193))) + (_%methods176490%_ (let () (declare (not safe)) - (__hash-keys _%method-calls173903%_))) - (_%$methods176388%_ - (map (lambda (_%id176386%_) - (let ((__tmp178088 (gensym _%id176386%_))) + (__hash-keys _%method-calls174009%_))) + (_%$methods176494%_ + (map (lambda (_%id176492%_) + (let ((__tmp178194 (gensym _%id176492%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178088))) - _%methods176384%_)) - (_%_176397%_ + (make-symbol__1 '"__" __tmp178194))) + _%methods176490%_)) + (_%_176503%_ (for-each - (lambda (_%g176389176392%_ _%g176390176394%_) + (lambda (_%g176495176498%_ _%g176496176500%_) (let () (declare (not safe)) (__hash-put! - _%method-calls173903%_ - _%g176389176392%_ - _%g176390176394%_))) - _%methods176384%_ - _%$methods176388%_)) - (_%methods-bind176407%_ - (map (lambda (_%g176399176402%_ _%g176400176404%_) - (_%generate-method-bind173813%_ - _%$klass176380%_ - _%$method-table176382%_ - _%g176399176402%_ - _%g176400176404%_)) - _%methods176384%_ - _%$methods176388%_)) - (_%slots176409%_ + _%method-calls174009%_ + _%g176495176498%_ + _%g176496176500%_))) + _%methods176490%_ + _%$methods176494%_)) + (_%methods-bind176513%_ + (map (lambda (_%g176505176508%_ _%g176506176510%_) + (_%generate-method-bind173919%_ + _%$klass176486%_ + _%$method-table176488%_ + _%g176505176508%_ + _%g176506176510%_)) + _%methods176490%_ + _%$methods176494%_)) + (_%slots176515%_ (let () (declare (not safe)) - (__hash-keys _%slot-refs173904%_))) - (_%$slots176413%_ - (map (lambda (_%id176411%_) - (let ((__tmp178089 (gensym _%id176411%_))) + (__hash-keys _%slot-refs174010%_))) + (_%$slots176519%_ + (map (lambda (_%id176517%_) + (let ((__tmp178195 (gensym _%id176517%_))) (declare (not safe)) - (make-symbol__1 '"__" __tmp178089))) - _%slots176409%_)) - (_%_176422%_ + (make-symbol__1 '"__" __tmp178195))) + _%slots176515%_)) + (_%_176528%_ (for-each - (lambda (_%g176414176417%_ _%g176415176419%_) + (lambda (_%g176520176523%_ _%g176521176525%_) (let () (declare (not safe)) (__hash-put! - _%slot-refs173904%_ - _%g176414176417%_ - _%g176415176419%_))) - _%slots176409%_ - _%$slots176413%_)) - (_%slots-bind176431%_ - (map (lambda (_%g176423176426%_ _%g176424176428%_) - (_%generate-slot-bind173814%_ - _%$klass176380%_ - _%g176423176426%_ - _%g176424176428%_)) - _%slots176409%_ - _%$slots176413%_)) - (_%specializer-lambda-expr176509%_ - (let* ((_%g176433176447%_ - (lambda (_%g176434176444%_) + _%slot-refs174010%_ + _%g176520176523%_ + _%g176521176525%_))) + _%slots176515%_ + _%$slots176519%_)) + (_%slots-bind176537%_ + (map (lambda (_%g176529176532%_ _%g176530176534%_) + (_%generate-slot-bind173920%_ + _%$klass176486%_ + _%g176529176532%_ + _%g176530176534%_)) + _%slots176515%_ + _%$slots176519%_)) + (_%specializer-lambda-expr176615%_ + (let* ((_%g176539176553%_ + (lambda (_%g176540176550%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176434176444%_)))) - (_%g176432176506%_ - (lambda (_%g176434176450%_) + _%g176540176550%_)))) + (_%g176538176612%_ + (lambda (_%g176540176556%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176434176450%_)) - (let ((_%e176437176452%_ + (gx#stx-pair? _%g176540176556%_)) + (let ((_%e176543176558%_ (let () (declare (not safe)) - (gx#stx-e _%g176434176450%_)))) - (let ((_%hd176438176455%_ + (gx#stx-e _%g176540176556%_)))) + (let ((_%hd176544176561%_ (let () (declare (not safe)) - (##car _%e176437176452%_))) - (_%tl176439176457%_ + (##car _%e176543176558%_))) + (_%tl176545176563%_ (let () (declare (not safe)) - (##cdr _%e176437176452%_)))) + (##cdr _%e176543176558%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl176439176457%_)) - (let ((_%e176440176460%_ + (gx#stx-pair? _%tl176545176563%_)) + (let ((_%e176546176566%_ (let () (declare (not safe)) (gx#stx-e - _%tl176439176457%_)))) - (let ((_%hd176441176463%_ + _%tl176545176563%_)))) + (let ((_%hd176547176569%_ (let () (declare (not safe)) - (##car _%e176440176460%_))) - (_%tl176442176465%_ + (##car _%e176546176566%_))) + (_%tl176548176571%_ (let () (declare (not safe)) - (##cdr _%e176440176460%_)))) - ((lambda (_%L176468%_ _%L176469%_) - (let* ((_%self176492%_ + (##cdr _%e176546176566%_)))) + ((lambda (_%L176574%_ _%L176575%_) + (let* ((_%self176598%_ (list-ref - _%L176469%_ - _%self-index175913%_)) - (_%receiver176497%_ - (let ((_%$e176494%_ + _%L176575%_ + _%self-index176019%_)) + (_%receiver176603%_ + (let ((_%$e176600%_ (gxc#apply-extract-receiver (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176468%_)))) - (if _%$e176494%_ _%$e176494%_ _%self176492%_))) - (_%body176503%_ - (map (lambda (_%g176498176500%_) + _%L176574%_)))) + (if _%$e176600%_ _%$e176600%_ _%self176598%_))) + (_%body176609%_ + (map (lambda (_%g176604176606%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176497%_ - _%$klass176380%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g176498176500%_)) - _%L176468%_)) - (__tmp178090 (cons '%#lambda (cons _%L176469%_ _%body176503%_)))) + _%receiver176603%_ + _%$klass176486%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176604176606%_)) + _%L176574%_)) + (__tmp178196 (cons '%#lambda (cons _%L176575%_ _%body176609%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178090 - _%L176150%_))) - _%tl176442176465%_ - _%hd176441176463%_))) - (_%g176433176447%_ - _%g176434176450%_)))) - (_%g176433176447%_ _%g176434176450%_))))) - (_%g176432176506%_ _%L176150%_))) - (_%specializer-case-lambda-expr176649%_ - (let* ((_%g176511176530%_ - (lambda (_%g176512176527%_) + __tmp178196 + _%L176256%_))) + _%tl176548176571%_ + _%hd176547176569%_))) + (_%g176539176553%_ + _%g176540176556%_)))) + (_%g176539176553%_ _%g176540176556%_))))) + (_%g176538176612%_ _%L176256%_))) + (_%specializer-case-lambda-expr176755%_ + (let* ((_%g176617176636%_ + (lambda (_%g176618176633%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176512176527%_)))) - (_%g176510176646%_ - (lambda (_%g176512176533%_) + _%g176618176633%_)))) + (_%g176616176752%_ + (lambda (_%g176618176639%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g176512176533%_)) - (let ((_%e176514176535%_ + (gx#stx-pair? _%g176618176639%_)) + (let ((_%e176620176641%_ (let () (declare (not safe)) - (gx#stx-e _%g176512176533%_)))) - (let ((_%hd176515176538%_ + (gx#stx-e _%g176618176639%_)))) + (let ((_%hd176621176644%_ (let () (declare (not safe)) - (##car _%e176514176535%_))) - (_%tl176516176540%_ + (##car _%e176620176641%_))) + (_%tl176622176646%_ (let () (declare (not safe)) - (##cdr _%e176514176535%_)))) + (##cdr _%e176620176641%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl176516176540%_)) - (let ((_g178091_ + _%tl176622176646%_)) + (let ((_g178197_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl176516176540%_ + _%tl176622176646%_ '0)))) (begin - (let ((_g178092_ + (let ((_g178198_ (let () (declare (not safe)) - (if (##values? _g178091_) - (##vector-length - _g178091_) + (if (##values? _g178197_) + (##values-length + _g178197_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g178092_ 2))) + (##fx= _g178198_ 2))) (error "Context expects 2 values" - _g178092_))) - (let ((_%target176517176543%_ + _g178198_))) + (let ((_%target176623176649%_ (let () (declare (not safe)) - (##vector-ref - _g178091_ + (##values-ref + _g178197_ 0))) - (_%tl176519176545%_ + (_%tl176625176651%_ (let () (declare (not safe)) - (##vector-ref - _g178091_ + (##values-ref + _g178197_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl176519176545%_)) - (letrec ((_%loop176520176548%_ - (lambda (_%hd176518176551%_ + _%tl176625176651%_)) + (letrec ((_%loop176626176654%_ + (lambda (_%hd176624176657%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause176524176553%_) + _%clause176630176659%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd176518176551%_)) - (let ((_%e176521176556%_ + (gx#stx-pair? _%hd176624176657%_)) + (let ((_%e176627176662%_ (let () (declare (not safe)) - (gx#stx-e _%hd176518176551%_)))) - (let ((_%lp-hd176522176559%_ + (gx#stx-e _%hd176624176657%_)))) + (let ((_%lp-hd176628176665%_ (let () (declare (not safe)) - (##car _%e176521176556%_))) - (_%lp-tl176523176561%_ + (##car _%e176627176662%_))) + (_%lp-tl176629176667%_ (let () (declare (not safe)) - (##cdr _%e176521176556%_)))) - (_%loop176520176548%_ - _%lp-tl176523176561%_ - (cons _%lp-hd176522176559%_ - _%clause176524176553%_)))) - (let ((_%clause176525176564%_ - (reverse _%clause176524176553%_))) - ((lambda (_%L176567%_) - (let* ((_%clauses176644%_ - (map (lambda (_%clause176581%_) - (let* ((_%g176583176594%_ - (lambda (_%g176584176591%_) + (##cdr _%e176627176662%_)))) + (_%loop176626176654%_ + _%lp-tl176629176667%_ + (cons _%lp-hd176628176665%_ + _%clause176630176659%_)))) + (let ((_%clause176631176670%_ + (reverse _%clause176630176659%_))) + ((lambda (_%L176673%_) + (let* ((_%clauses176750%_ + (map (lambda (_%clause176687%_) + (let* ((_%g176689176700%_ + (lambda (_%g176690176697%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g176584176591%_)))) - (_%g176582176634%_ - (lambda (_%g176584176597%_) + _%g176690176697%_)))) + (_%g176688176740%_ + (lambda (_%g176690176703%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g176584176597%_)) - (let ((_%e176587176599%_ + _%g176690176703%_)) + (let ((_%e176693176705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g176584176597%_)))) - (let ((_%hd176588176602%_ + (gx#stx-e _%g176690176703%_)))) + (let ((_%hd176694176708%_ (let () (declare (not safe)) - (##car _%e176587176599%_))) - (_%tl176589176604%_ + (##car _%e176693176705%_))) + (_%tl176695176710%_ (let () (declare (not safe)) - (##cdr _%e176587176599%_)))) - ((lambda (_%L176607%_ _%L176608%_) - (let* ((_%self176620%_ - (list-ref _%L176608%_ _%self-index175913%_)) - (_%receiver176625%_ - (let ((_%$e176622%_ + (##cdr _%e176693176705%_)))) + ((lambda (_%L176713%_ _%L176714%_) + (let* ((_%self176726%_ + (list-ref _%L176714%_ _%self-index176019%_)) + (_%receiver176731%_ + (let ((_%$e176728%_ (gxc#apply-extract-receiver (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#begin)) - _%L176607%_)))) - (if _%$e176622%_ - _%$e176622%_ - _%self176620%_))) - (_%body176631%_ - (map (lambda (_%g176626176628%_) + _%L176713%_)))) + (if _%$e176728%_ + _%$e176728%_ + _%self176726%_))) + (_%body176737%_ + (map (lambda (_%g176732176734%_) (gxc#apply-subst-object-refs__% '#f - _%receiver176625%_ - _%$klass176380%_ - _%method-calls173903%_ - _%slot-refs173904%_ - _%g176626176628%_)) - _%L176607%_))) - (cons _%L176608%_ _%body176631%_))) - _%tl176589176604%_ - _%hd176588176602%_))) - (_%g176583176594%_ _%g176584176597%_))))) + _%receiver176731%_ + _%$klass176486%_ + _%method-calls174009%_ + _%slot-refs174010%_ + _%g176732176734%_)) + _%L176713%_))) + (cons _%L176714%_ _%body176737%_))) + _%tl176695176710%_ + _%hd176694176708%_))) + (_%g176689176700%_ _%g176690176703%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176582176634%_ - _%clause176581%_))) - (let ((__tmp178093 - (lambda (_%g176636176639%_ - _%g176637176641%_) - (cons _%g176636176639%_ - _%g176637176641%_)))) + (_%g176688176740%_ + _%clause176687%_))) + (let ((__tmp178199 + (lambda (_%g176742176745%_ + _%g176743176747%_) + (cons _%g176742176745%_ + _%g176743176747%_)))) (declare (not safe)) (__foldr1 - __tmp178093 + __tmp178199 '() - _%L176567%_)))) - (__tmp178094 + _%L176673%_)))) + (__tmp178200 (cons '%#case-lambda - _%clauses176644%_))) + _%clauses176750%_))) (declare (not safe)) (gxc#xform-wrap-source - __tmp178094 - _%L176149%_))) - _%clause176525176564%_)))))) + __tmp178200 + _%L176255%_))) + _%clause176631176670%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop176520176548%_ - _%target176517176543%_ + (_%loop176626176654%_ + _%target176623176649%_ '())) - (_%g176511176530%_ - _%g176512176533%_))))) - (_%g176511176530%_ - _%g176512176533%_)))) - (_%g176511176530%_ _%g176512176533%_))))) - (_%g176510176646%_ _%L176149%_))) - (_%specializer-impl176651%_ - (let ((__tmp178095 + (_%g176617176636%_ + _%g176618176639%_))))) + (_%g176617176636%_ + _%g176618176639%_)))) + (_%g176617176636%_ _%g176618176639%_))))) + (_%g176616176752%_ _%L176255%_))) + (_%specializer-impl176757%_ + (let ((__tmp178201 (cons '%#let-values - (cons (cons (cons (cons _%L175613%_ '()) + (cons (cons (cons (cons _%L175719%_ '()) (cons (cons '%#let-values - (cons (cons (cons (cons _%L175612%_ + (cons (cons (cons (cons _%L175718%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp178096 + (cons (let ((__tmp178202 (cons '%#let-values - (cons (cons (cons (cons _%L176151%_ + (cons (cons (cons (cons _%L176257%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%specializer-lambda-expr176509%_ + (cons _%specializer-lambda-expr176615%_ '())) '()) - (cons _%specializer-case-lambda-expr176649%_ '()))))) + (cons _%specializer-case-lambda-expr176755%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178096 - _%stx173811%_)) + __tmp178202 + _%stx173917%_)) '())) '()) - (cons _%L175610%_ '()))) + (cons _%L175716%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L175609%_ '()))))) + (cons _%L175715%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178095 _%stx173811%_))) - (_%specializer-impl176653%_ - (_%generate-specializer-impl173815%_ - _%$klass176380%_ - _%$method-table176382%_ - _%methods-bind176407%_ - _%slots-bind176431%_ - _%specializer-impl176651%_))) + (gxc#xform-wrap-source __tmp178201 _%stx173917%_))) + (_%specializer-impl176759%_ + (_%generate-specializer-impl173921%_ + _%$klass176486%_ + _%$method-table176488%_ + _%methods-bind176513%_ + _%slots-bind176537%_ + _%specializer-impl176757%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp178098 + (let ((__tmp178204 (let () (declare (not safe)) (gx#stx-e - _%L173884%_))) - (__tmp178097 + _%L173990%_))) + (__tmp178203 (let () (declare (not safe)) (gx#stx-e - _%specializer-id176378%_)))) + _%specializer-id176484%_)))) (declare (not safe)) (gxc#verbose '"generate method specializer " - __tmp178098 + __tmp178204 '" => " - __tmp178097)) - (_%generate-specializer-def173816%_ - _%L173884%_ - _%specializer-id176378%_ - _%specializer-impl176653%_)))) - _%hd176082176144%_ - _%hd176079176136%_ - _%hd176076176128%_) - (_%g176058176088%_ - _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_)) - (_%g176058176088%_ _%g176059176091%_)) - (_%g176058176088%_ _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_)) - (_%g176058176088%_ _%g176059176091%_)))) + __tmp178203)) + (_%generate-specializer-def173922%_ + _%L173990%_ + _%specializer-id176484%_ + _%specializer-impl176759%_)))) + _%hd176188176250%_ + _%hd176185176242%_ + _%hd176182176234%_) + (_%g176164176194%_ + _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_)) + (_%g176164176194%_ _%g176165176197%_)) + (_%g176164176194%_ _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_)) + (_%g176164176194%_ _%g176165176197%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176058176088%_ - _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_)))) - (_%g176058176088%_ _%g176059176091%_))))) + (_%g176164176194%_ + _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_)))) + (_%g176164176194%_ _%g176165176197%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g176057176656%_ _%L175611%_)) - _%stx173811%_)))) - _%hd175709175832%_ - _%kw-ref175707175853%_ - _%hd175697175819%_ - _%hd175688175795%_ - _%hd175679175771%_) - (_%g175653175715%_ _%g175654175718%_))))))) + (_%g176163176762%_ _%L175717%_)) + _%stx173917%_)))) + _%hd175815175938%_ + _%kw-ref175813175959%_ + _%hd175803175925%_ + _%hd175794175901%_ + _%hd175785175877%_) + (_%g175759175821%_ _%g175760175824%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop175702175837%_ - _%target175699175824%_ + (_%loop175808175943%_ + _%target175805175930%_ '())) - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_))))) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)))) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_))))) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175653175715%_ - _%g175654175718%_)) - (_%g175653175715%_ - _%g175654175718%_)) - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)) + (_%g175759175821%_ + _%g175760175824%_)) + (_%g175759175821%_ + _%g175760175824%_)) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175653175715%_ - _%g175654175718%_)) - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)) + (_%g175759175821%_ + _%g175760175824%_)) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_)))) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175653175715%_ - _%g175654175718%_)))) - (_%g175653175715%_ - _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)) - (_%g175653175715%_ _%g175654175718%_)))) - (_%g175653175715%_ _%g175654175718%_))))) - (_%g175652176660%_ _%L175610%_))) + (_%g175759175821%_ + _%g175760175824%_)))) + (_%g175759175821%_ + _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)) + (_%g175759175821%_ _%g175760175824%_)))) + (_%g175759175821%_ _%g175760175824%_))))) + (_%g175758176766%_ _%L175716%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd175486175604%_ - _%hd175483175596%_ - _%hd175480175588%_ - _%hd175477175580%_ - _%hd175459175532%_) - (_%g175439175492%_ - _%g175440175495%_)))) - (_%g175439175492%_ - _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)))) + _%hd175592175710%_ + _%hd175589175702%_ + _%hd175586175694%_ + _%hd175583175686%_ + _%hd175565175638%_) + (_%g175545175598%_ + _%g175546175601%_)))) + (_%g175545175598%_ + _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175439175492%_ - _%g175440175495%_)) - (_%g175439175492%_ - _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) + (_%g175545175598%_ + _%g175546175601%_)) + (_%g175545175598%_ + _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175439175492%_ - _%g175440175495%_)) - (_%g175439175492%_ - _%g175440175495%_)) - (_%g175439175492%_ - _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) + (_%g175545175598%_ + _%g175546175601%_)) + (_%g175545175598%_ + _%g175546175601%_)) + (_%g175545175598%_ + _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175439175492%_ - _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)) - (_%g175439175492%_ _%g175440175495%_)))) - (_%g175439175492%_ _%g175440175495%_))))) + (_%g175545175598%_ + _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)) + (_%g175545175598%_ _%g175546175601%_)))) + (_%g175545175598%_ _%g175546175601%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g175438176663%_ _%L173883%_)) - _%stx173811%_)))))))) - (_%__kont176897176898%_ (lambda () _%stx173811%_))) - (let ((_%__match176926176927%_ - (lambda (_%e173823173851%_ - _%hd173824173854%_ - _%tl173825173856%_ - _%e173826173859%_ - _%hd173827173862%_ - _%tl173828173864%_ - _%e173829173867%_ - _%hd173830173870%_ - _%tl173831173872%_ - _%e173832173875%_ - _%hd173833173878%_ - _%tl173834173880%_) - (let ((_%L173883%_ _%hd173833173878%_) - (_%L173884%_ _%hd173830173870%_)) - (if (let ((__tmp178099 + (_%g175544176769%_ _%L173989%_)) + _%stx173917%_)))))))) + (_%__kont177003177004%_ (lambda () _%stx173917%_))) + (let ((_%__match177032177033%_ + (lambda (_%e173929173957%_ + _%hd173930173960%_ + _%tl173931173962%_ + _%e173932173965%_ + _%hd173933173968%_ + _%tl173934173970%_ + _%e173935173973%_ + _%hd173936173976%_ + _%tl173937173978%_ + _%e173938173981%_ + _%hd173939173984%_ + _%tl173940173986%_) + (let ((_%L173989%_ _%hd173939173984%_) + (_%L173990%_ _%hd173936173976%_)) + (if (let ((__tmp178205 (let () (declare (not safe)) - (gxc#identifier-symbol _%L173884%_)))) + (gxc#identifier-symbol _%L173990%_)))) (declare (not safe)) - (gxc#optimizer-top-level-method? __tmp178099)) - (_%__kont176895176896%_ _%L173883%_ _%L173884%_) - (_%__kont176897176898%_)))))) + (gxc#optimizer-top-level-method? __tmp178205)) + (_%__kont177001177002%_ _%L173989%_ _%L173990%_) + (_%__kont177003177004%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176893176894%_)) - (let ((_%e173823173851%_ + (gx#stx-pair? _%__stx176999177000%_)) + (let ((_%e173929173957%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176893176894%_)))) - (let ((_%tl173825173856%_ + (gx#stx-e _%__stx176999177000%_)))) + (let ((_%tl173931173962%_ (let () (declare (not safe)) - (##cdr _%e173823173851%_))) - (_%hd173824173854%_ + (##cdr _%e173929173957%_))) + (_%hd173930173960%_ (let () (declare (not safe)) - (##car _%e173823173851%_)))) + (##car _%e173929173957%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173825173856%_)) - (let ((_%e173826173859%_ + (gx#stx-pair? _%tl173931173962%_)) + (let ((_%e173932173965%_ (let () (declare (not safe)) - (gx#stx-e _%tl173825173856%_)))) - (let ((_%tl173828173864%_ + (gx#stx-e _%tl173931173962%_)))) + (let ((_%tl173934173970%_ (let () (declare (not safe)) - (##cdr _%e173826173859%_))) - (_%hd173827173862%_ + (##cdr _%e173932173965%_))) + (_%hd173933173968%_ (let () (declare (not safe)) - (##car _%e173826173859%_)))) + (##car _%e173932173965%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173827173862%_)) - (let ((_%e173829173867%_ + (gx#stx-pair? _%hd173933173968%_)) + (let ((_%e173935173973%_ (let () (declare (not safe)) - (gx#stx-e _%hd173827173862%_)))) - (let ((_%tl173831173872%_ + (gx#stx-e _%hd173933173968%_)))) + (let ((_%tl173937173978%_ (let () (declare (not safe)) - (##cdr _%e173829173867%_))) - (_%hd173830173870%_ + (##cdr _%e173935173973%_))) + (_%hd173936173976%_ (let () (declare (not safe)) - (##car _%e173829173867%_)))) + (##car _%e173935173973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173831173872%_)) + _%tl173937173978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173828173864%_)) - (let ((_%e173832173875%_ + _%tl173934173970%_)) + (let ((_%e173938173981%_ (let () (declare (not safe)) (gx#stx-e - _%tl173828173864%_)))) - (let ((_%tl173834173880%_ + _%tl173934173970%_)))) + (let ((_%tl173940173986%_ (let () (declare (not safe)) - (##cdr _%e173832173875%_))) - (_%hd173833173878%_ + (##cdr _%e173938173981%_))) + (_%hd173939173984%_ (let () (declare (not safe)) - (##car _%e173832173875%_)))) + (##car _%e173938173981%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173834173880%_)) - (_%__match176926176927%_ - _%e173823173851%_ - _%hd173824173854%_ - _%tl173825173856%_ - _%e173826173859%_ - _%hd173827173862%_ - _%tl173828173864%_ - _%e173829173867%_ - _%hd173830173870%_ - _%tl173831173872%_ - _%e173832173875%_ - _%hd173833173878%_ - _%tl173834173880%_) - (_%__kont176897176898%_)))) - (_%__kont176897176898%_)) - (_%__kont176897176898%_)))) - (_%__kont176897176898%_)))) - (_%__kont176897176898%_)))) - (_%__kont176897176898%_)))))))) + _%tl173940173986%_)) + (_%__match177032177033%_ + _%e173929173957%_ + _%hd173930173960%_ + _%tl173931173962%_ + _%e173932173965%_ + _%hd173933173968%_ + _%tl173934173970%_ + _%e173935173973%_ + _%hd173936173976%_ + _%tl173937173978%_ + _%e173938173981%_ + _%hd173939173984%_ + _%tl173940173986%_) + (_%__kont177003177004%_)))) + (_%__kont177003177004%_)) + (_%__kont177003177004%_)))) + (_%__kont177003177004%_)))) + (_%__kont177003177004%_)))) + (_%__kont177003177004%_)))))))) (define gxc#extract-receiver-begin-annotation% - (lambda (_%self173663%_ _%stx173664%_) - (let* ((_%__stx176929176930%_ _%stx173664%_) - (_%g173667173700%_ + (lambda (_%self173769%_ _%stx173770%_) + (let* ((_%__stx177035177036%_ _%stx173770%_) + (_%g173773173806%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176929176930%_))))) - (let ((_%__kont176931176932%_ (lambda (_%L173790%_) _%L173790%_)) - (_%__kont176933176934%_ - (lambda (_%L173729%_ _%L173730%_) + _%__stx177035177036%_))))) + (let ((_%__kont177037177038%_ (lambda (_%L173896%_) _%L173896%_)) + (_%__kont177039177040%_ + (lambda (_%L173835%_ _%L173836%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self173663%_ _%L173729%_))))) + (gxc#compile-e__1 _%self173769%_ _%L173835%_))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176929176930%_)) - (let ((_%e173670173750%_ + (gx#stx-pair? _%__stx177035177036%_)) + (let ((_%e173776173856%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176929176930%_)))) - (let ((_%tl173672173755%_ + (gx#stx-e _%__stx177035177036%_)))) + (let ((_%tl173778173861%_ (let () (declare (not safe)) - (##cdr _%e173670173750%_))) - (_%hd173671173753%_ + (##cdr _%e173776173856%_))) + (_%hd173777173859%_ (let () (declare (not safe)) - (##car _%e173670173750%_)))) + (##car _%e173776173856%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173672173755%_)) - (let ((_%e173673173758%_ + (gx#stx-pair? _%tl173778173861%_)) + (let ((_%e173779173864%_ (let () (declare (not safe)) - (gx#stx-e _%tl173672173755%_)))) - (let ((_%tl173675173763%_ + (gx#stx-e _%tl173778173861%_)))) + (let ((_%tl173781173869%_ (let () (declare (not safe)) - (##cdr _%e173673173758%_))) - (_%hd173674173761%_ + (##cdr _%e173779173864%_))) + (_%hd173780173867%_ (let () (declare (not safe)) - (##car _%e173673173758%_)))) + (##car _%e173779173864%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd173674173761%_)) - (let ((_%e173676173766%_ + (gx#stx-pair? _%hd173780173867%_)) + (let ((_%e173782173872%_ (let () (declare (not safe)) - (gx#stx-e _%hd173674173761%_)))) - (let ((_%tl173678173771%_ + (gx#stx-e _%hd173780173867%_)))) + (let ((_%tl173784173877%_ (let () (declare (not safe)) - (##cdr _%e173676173766%_))) - (_%hd173677173769%_ + (##cdr _%e173782173872%_))) + (_%hd173783173875%_ (let () (declare (not safe)) - (##car _%e173676173766%_)))) + (##car _%e173782173872%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd173677173769%_)) + (gx#identifier? _%hd173783173875%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@receiver - _%hd173677173769%_)) + _%hd173783173875%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173678173771%_)) - (let ((_%e173679173774%_ + _%tl173784173877%_)) + (let ((_%e173785173880%_ (let () (declare (not safe)) (gx#stx-e - _%tl173678173771%_)))) - (let ((_%tl173681173779%_ + _%tl173784173877%_)))) + (let ((_%tl173787173885%_ (let () (declare (not safe)) - (##cdr _%e173679173774%_))) - (_%hd173680173777%_ + (##cdr _%e173785173880%_))) + (_%hd173786173883%_ (let () (declare (not safe)) - (##car _%e173679173774%_)))) + (##car _%e173785173880%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173681173779%_)) + _%tl173787173885%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173675173763%_)) - (let ((_%e173682173782%_ + _%tl173781173869%_)) + (let ((_%e173788173888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl173675173763%_)))) - (let ((_%tl173684173787%_ + (gx#stx-e _%tl173781173869%_)))) + (let ((_%tl173790173893%_ (let () (declare (not safe)) - (##cdr _%e173682173782%_))) - (_%hd173683173785%_ + (##cdr _%e173788173888%_))) + (_%hd173789173891%_ (let () (declare (not safe)) - (##car _%e173682173782%_)))) + (##car _%e173788173888%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173684173787%_)) - (_%__kont176931176932%_ _%hd173680173777%_) + (gx#stx-null? _%tl173790173893%_)) + (_%__kont177037177038%_ _%hd173786173883%_) (let () (declare (not safe)) - (_%g173667173700%_))))) - (let () (declare (not safe)) (_%g173667173700%_))) + (_%g173773173806%_))))) + (let () (declare (not safe)) (_%g173773173806%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173675173763%_)) - (let ((_%e173693173721%_ + (gx#stx-pair? _%tl173781173869%_)) + (let ((_%e173799173827%_ (let () (declare (not safe)) - (gx#stx-e _%tl173675173763%_)))) - (let ((_%tl173695173726%_ + (gx#stx-e _%tl173781173869%_)))) + (let ((_%tl173801173832%_ (let () (declare (not safe)) - (##cdr _%e173693173721%_))) - (_%hd173694173724%_ + (##cdr _%e173799173827%_))) + (_%hd173800173830%_ (let () (declare (not safe)) - (##car _%e173693173721%_)))) + (##car _%e173799173827%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173695173726%_)) - (_%__kont176933176934%_ - _%hd173694173724%_ - _%hd173674173761%_) + (gx#stx-null? _%tl173801173832%_)) + (_%__kont177039177040%_ + _%hd173800173830%_ + _%hd173780173867%_) (let () (declare (not safe)) - (_%g173667173700%_))))) - (let () (declare (not safe)) (_%g173667173700%_)))))) + (_%g173773173806%_))))) + (let () (declare (not safe)) (_%g173773173806%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173675173763%_)) - (let ((_%e173693173721%_ + _%tl173781173869%_)) + (let ((_%e173799173827%_ (let () (declare (not safe)) (gx#stx-e - _%tl173675173763%_)))) - (let ((_%tl173695173726%_ + _%tl173781173869%_)))) + (let ((_%tl173801173832%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e173693173721%_))) - (_%hd173694173724%_ - (let () (declare (not safe)) (##car _%e173693173721%_)))) + (##cdr _%e173799173827%_))) + (_%hd173800173830%_ + (let () (declare (not safe)) (##car _%e173799173827%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl173695173726%_)) - (_%__kont176933176934%_ - _%hd173694173724%_ - _%hd173674173761%_) - (let () (declare (not safe)) (_%g173667173700%_))))) + (gx#stx-null? _%tl173801173832%_)) + (_%__kont177039177040%_ + _%hd173800173830%_ + _%hd173780173867%_) + (let () (declare (not safe)) (_%g173773173806%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g173667173700%_)))) + (_%g173773173806%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173675173763%_)) - (let ((_%e173693173721%_ + _%tl173781173869%_)) + (let ((_%e173799173827%_ (let () (declare (not safe)) (gx#stx-e - _%tl173675173763%_)))) - (let ((_%tl173695173726%_ + _%tl173781173869%_)))) + (let ((_%tl173801173832%_ (let () (declare (not safe)) - (##cdr _%e173693173721%_))) - (_%hd173694173724%_ + (##cdr _%e173799173827%_))) + (_%hd173800173830%_ (let () (declare (not safe)) - (##car _%e173693173721%_)))) + (##car _%e173799173827%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173695173726%_)) - (_%__kont176933176934%_ - _%hd173694173724%_ - _%hd173674173761%_) + _%tl173801173832%_)) + (_%__kont177039177040%_ + _%hd173800173830%_ + _%hd173780173867%_) (let () (declare (not safe)) - (_%g173667173700%_))))) + (_%g173773173806%_))))) (let () (declare (not safe)) - (_%g173667173700%_)))) + (_%g173773173806%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173675173763%_)) - (let ((_%e173693173721%_ + _%tl173781173869%_)) + (let ((_%e173799173827%_ (let () (declare (not safe)) (gx#stx-e - _%tl173675173763%_)))) - (let ((_%tl173695173726%_ + _%tl173781173869%_)))) + (let ((_%tl173801173832%_ (let () (declare (not safe)) - (##cdr _%e173693173721%_))) - (_%hd173694173724%_ + (##cdr _%e173799173827%_))) + (_%hd173800173830%_ (let () (declare (not safe)) - (##car _%e173693173721%_)))) + (##car _%e173799173827%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173695173726%_)) - (_%__kont176933176934%_ - _%hd173694173724%_ - _%hd173674173761%_) + _%tl173801173832%_)) + (_%__kont177039177040%_ + _%hd173800173830%_ + _%hd173780173867%_) (let () (declare (not safe)) - (_%g173667173700%_))))) + (_%g173773173806%_))))) (let () (declare (not safe)) - (_%g173667173700%_)))))) + (_%g173773173806%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173675173763%_)) - (let ((_%e173693173721%_ + (gx#stx-pair? _%tl173781173869%_)) + (let ((_%e173799173827%_ (let () (declare (not safe)) - (gx#stx-e _%tl173675173763%_)))) - (let ((_%tl173695173726%_ + (gx#stx-e _%tl173781173869%_)))) + (let ((_%tl173801173832%_ (let () (declare (not safe)) - (##cdr _%e173693173721%_))) - (_%hd173694173724%_ + (##cdr _%e173799173827%_))) + (_%hd173800173830%_ (let () (declare (not safe)) - (##car _%e173693173721%_)))) + (##car _%e173799173827%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173695173726%_)) - (_%__kont176933176934%_ - _%hd173694173724%_ - _%hd173674173761%_) + _%tl173801173832%_)) + (_%__kont177039177040%_ + _%hd173800173830%_ + _%hd173780173867%_) (let () (declare (not safe)) - (_%g173667173700%_))))) + (_%g173773173806%_))))) (let () (declare (not safe)) - (_%g173667173700%_)))))) - (let () (declare (not safe)) (_%g173667173700%_))))) - (let () (declare (not safe)) (_%g173667173700%_))))))) + (_%g173773173806%_)))))) + (let () (declare (not safe)) (_%g173773173806%_))))) + (let () (declare (not safe)) (_%g173773173806%_))))))) (define gxc#extract-receiver-if% - (lambda (_%self173579%_ _%stx173580%_) - (let* ((_%g173582173603%_ - (lambda (_%g173583173600%_) + (lambda (_%self173685%_ _%stx173686%_) + (let* ((_%g173688173709%_ + (lambda (_%g173689173706%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g173583173600%_)))) - (_%g173581173660%_ - (lambda (_%g173583173606%_) + _%g173689173706%_)))) + (_%g173687173766%_ + (lambda (_%g173689173712%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g173583173606%_)) - (let ((_%e173587173608%_ + (gx#stx-pair? _%g173689173712%_)) + (let ((_%e173693173714%_ (let () (declare (not safe)) - (gx#stx-e _%g173583173606%_)))) - (let ((_%hd173588173611%_ + (gx#stx-e _%g173689173712%_)))) + (let ((_%hd173694173717%_ (let () (declare (not safe)) - (##car _%e173587173608%_))) - (_%tl173589173613%_ + (##car _%e173693173714%_))) + (_%tl173695173719%_ (let () (declare (not safe)) - (##cdr _%e173587173608%_)))) + (##cdr _%e173693173714%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173589173613%_)) - (let ((_%e173590173616%_ + (gx#stx-pair? _%tl173695173719%_)) + (let ((_%e173696173722%_ (let () (declare (not safe)) - (gx#stx-e _%tl173589173613%_)))) - (let ((_%hd173591173619%_ + (gx#stx-e _%tl173695173719%_)))) + (let ((_%hd173697173725%_ (let () (declare (not safe)) - (##car _%e173590173616%_))) - (_%tl173592173621%_ + (##car _%e173696173722%_))) + (_%tl173698173727%_ (let () (declare (not safe)) - (##cdr _%e173590173616%_)))) + (##cdr _%e173696173722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl173592173621%_)) - (let ((_%e173593173624%_ + (gx#stx-pair? _%tl173698173727%_)) + (let ((_%e173699173730%_ (let () (declare (not safe)) - (gx#stx-e _%tl173592173621%_)))) - (let ((_%hd173594173627%_ + (gx#stx-e _%tl173698173727%_)))) + (let ((_%hd173700173733%_ (let () (declare (not safe)) - (##car _%e173593173624%_))) - (_%tl173595173629%_ + (##car _%e173699173730%_))) + (_%tl173701173735%_ (let () (declare (not safe)) - (##cdr _%e173593173624%_)))) + (##cdr _%e173699173730%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl173595173629%_)) - (let ((_%e173596173632%_ + _%tl173701173735%_)) + (let ((_%e173702173738%_ (let () (declare (not safe)) (gx#stx-e - _%tl173595173629%_)))) - (let ((_%hd173597173635%_ + _%tl173701173735%_)))) + (let ((_%hd173703173741%_ (let () (declare (not safe)) - (##car _%e173596173632%_))) - (_%tl173598173637%_ + (##car _%e173702173738%_))) + (_%tl173704173743%_ (let () (declare (not safe)) - (##cdr _%e173596173632%_)))) + (##cdr _%e173702173738%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl173598173637%_)) - ((lambda (_%L173640%_ - _%L173641%_ - _%L173642%_) + _%tl173704173743%_)) + ((lambda (_%L173746%_ + _%L173747%_ + _%L173748%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self173579%_ - _%L173641%_))) - _%hd173597173635%_ - _%hd173594173627%_ - _%hd173591173619%_) - (_%g173582173603%_ - _%g173583173606%_)))) - (_%g173582173603%_ - _%g173583173606%_)))) - (_%g173582173603%_ _%g173583173606%_)))) - (_%g173582173603%_ _%g173583173606%_)))) - (_%g173582173603%_ _%g173583173606%_))))) - (_%g173581173660%_ _%stx173580%_)))) + _%self173685%_ + _%L173747%_))) + _%hd173703173741%_ + _%hd173700173733%_ + _%hd173697173725%_) + (_%g173688173709%_ + _%g173689173712%_)))) + (_%g173688173709%_ + _%g173689173712%_)))) + (_%g173688173709%_ _%g173689173712%_)))) + (_%g173688173709%_ _%g173689173712%_)))) + (_%g173688173709%_ _%g173689173712%_))))) + (_%g173687173766%_ _%stx173686%_)))) (define gxc#collect-object-refs-call% - (lambda (_%self172540%_ _%stx172541%_) - (let* ((_%__stx176995176996%_ _%stx172541%_) - (_%g172549172771%_ + (lambda (_%self172646%_ _%stx172647%_) + (let* ((_%__stx177101177102%_ _%stx172647%_) + (_%g172655172877%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx176995176996%_))))) - (let ((_%__kont176997176998%_ - (lambda (_%L173528%_ _%L173529%_ _%L173530%_ _%L173531%_) - (let ((__tmp178101 + _%__stx177101177102%_))))) + (let ((_%__kont177103177104%_ + (lambda (_%L173634%_ _%L173635%_ _%L173636%_ _%L173637%_) + (let ((__tmp178207 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'methods))) - (__tmp178100 + (slot-ref__0 _%self172646%_ 'methods))) + (__tmp178206 (let () (declare (not safe)) - (gx#stx-e _%L173529%_)))) + (gx#stx-e _%L173635%_)))) (declare (not safe)) - (hash-put! __tmp178101 __tmp178100 '#t)) + (hash-put! __tmp178207 __tmp178206 '#t)) (for-each - (lambda (_%g173564173566%_) + (lambda (_%g173670173672%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172540%_ _%g173564173566%_))) - (let ((__tmp178102 - (lambda (_%g173568173571%_ _%g173569173573%_) - (cons _%g173568173571%_ _%g173569173573%_)))) + (gxc#compile-e__1 _%self172646%_ _%g173670173672%_))) + (let ((__tmp178208 + (lambda (_%g173674173677%_ _%g173675173679%_) + (cons _%g173674173677%_ _%g173675173679%_)))) (declare (not safe)) - (__foldr1 __tmp178102 '() _%L173528%_))))) - (_%__kont177001177002%_ - (lambda (_%L173363%_ - _%L173364%_ - _%L173365%_ - _%L173366%_ - _%L173367%_) - (let ((__tmp178104 + (__foldr1 __tmp178208 '() _%L173634%_))))) + (_%__kont177107177108%_ + (lambda (_%L173469%_ + _%L173470%_ + _%L173471%_ + _%L173472%_ + _%L173473%_) + (let ((__tmp178210 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'methods))) - (__tmp178103 + (slot-ref__0 _%self172646%_ 'methods))) + (__tmp178209 (let () (declare (not safe)) - (gx#stx-e _%L173364%_)))) + (gx#stx-e _%L173470%_)))) (declare (not safe)) - (hash-put! __tmp178104 __tmp178103 '#t)) + (hash-put! __tmp178210 __tmp178209 '#t)) (for-each - (lambda (_%g173407173409%_) + (lambda (_%g173513173515%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172540%_ _%g173407173409%_))) - (let ((__tmp178105 - (lambda (_%g173411173414%_ _%g173412173416%_) - (cons _%g173411173414%_ _%g173412173416%_)))) + (gxc#compile-e__1 _%self172646%_ _%g173513173515%_))) + (let ((__tmp178211 + (lambda (_%g173517173520%_ _%g173518173522%_) + (cons _%g173517173520%_ _%g173518173522%_)))) (declare (not safe)) - (__foldr1 __tmp178105 '() _%L173363%_))))) - (_%__kont177005177006%_ - (lambda (_%L173196%_ _%L173197%_ _%L173198%_) - (let ((__tmp178107 + (__foldr1 __tmp178211 '() _%L173469%_))))) + (_%__kont177111177112%_ + (lambda (_%L173302%_ _%L173303%_ _%L173304%_) + (let ((__tmp178213 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'slots))) - (__tmp178106 + (slot-ref__0 _%self172646%_ 'slots))) + (__tmp178212 (let () (declare (not safe)) - (gx#stx-e _%L173196%_)))) + (gx#stx-e _%L173302%_)))) (declare (not safe)) - (hash-put! __tmp178107 __tmp178106 '#t)))) - (_%__kont177007177008%_ - (lambda (_%L173073%_ _%L173074%_ _%L173075%_ _%L173076%_) - (let ((__tmp178109 + (hash-put! __tmp178213 __tmp178212 '#t)))) + (_%__kont177113177114%_ + (lambda (_%L173179%_ _%L173180%_ _%L173181%_ _%L173182%_) + (let ((__tmp178215 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'slots))) - (__tmp178108 + (slot-ref__0 _%self172646%_ 'slots))) + (__tmp178214 (let () (declare (not safe)) - (gx#stx-e _%L173074%_)))) + (gx#stx-e _%L173180%_)))) (declare (not safe)) - (hash-put! __tmp178109 __tmp178108 '#t)) + (hash-put! __tmp178215 __tmp178214 '#t)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172540%_ _%L173073%_)))) - (_%__kont177009177010%_ - (lambda (_%L172947%_ _%L172948%_) - (let* ((_%accessor172970%_ - (let ((__tmp178110 + (gxc#compile-e__1 _%self172646%_ _%L173179%_)))) + (_%__kont177115177116%_ + (lambda (_%L173053%_ _%L173054%_) + (let* ((_%accessor173076%_ + (let ((__tmp178216 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172948%_)))) + (gxc#identifier-symbol _%L173054%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178110))) - (_%klass172972%_ - (let ((__tmp178111 + (gxc#optimizer-resolve-type __tmp178216))) + (_%klass173078%_ + (let ((__tmp178217 (##structure-ref - _%accessor172970%_ + _%accessor173076%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172541%_ - __tmp178111))) - (_%slot172974%_ + _%stx172647%_ + __tmp178217))) + (_%slot173080%_ (##structure-ref - _%accessor172970%_ + _%accessor173076%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor172970%_ + _%accessor173076%_ '4 gxc#!accessor::t '#f) @@ -4837,56 +4837,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172972%_ - _%slot172974%_)) + _%klass173078%_ + _%slot173080%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172972%_ + _%klass173078%_ '8 '#f '#f)))) '#!void - (let ((__tmp178113 + (let ((__tmp178219 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'slots))) - (__tmp178112 + (slot-ref__0 _%self172646%_ 'slots))) + (__tmp178218 (##structure-ref - _%accessor172970%_ + _%accessor173076%_ '3 gxc#!accessor::t '#f))) (declare (not safe)) - (hash-put! __tmp178113 __tmp178112 '#t)))))) - (_%__kont177011177012%_ - (lambda (_%L172847%_ _%L172848%_ _%L172849%_) - (let* ((_%mutator172876%_ - (let ((__tmp178114 + (hash-put! __tmp178219 __tmp178218 '#t)))))) + (_%__kont177117177118%_ + (lambda (_%L172953%_ _%L172954%_ _%L172955%_) + (let* ((_%mutator172982%_ + (let ((__tmp178220 (let () (declare (not safe)) - (gxc#identifier-symbol _%L172849%_)))) + (gxc#identifier-symbol _%L172955%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178114))) - (_%klass172878%_ - (let ((__tmp178115 + (gxc#optimizer-resolve-type __tmp178220))) + (_%klass172984%_ + (let ((__tmp178221 (##structure-ref - _%mutator172876%_ + _%mutator172982%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx172541%_ - __tmp178115))) - (_%slot172880%_ + _%stx172647%_ + __tmp178221))) + (_%slot172986%_ (##structure-ref - _%mutator172876%_ + _%mutator172982%_ '3 gxc#!mutator::t '#f))) (if (if (##structure-ref - _%mutator172876%_ + _%mutator172982%_ '4 gxc#!mutator::t '#f) @@ -4894,2064 +4894,2064 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass172878%_ - _%slot172880%_)) + _%klass172984%_ + _%slot172986%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass172878%_ + _%klass172984%_ '8 '#f '#f)))) '#!void - (let ((__tmp178116 + (let ((__tmp178222 (let () (declare (not safe)) - (slot-ref__0 _%self172540%_ 'slots)))) + (slot-ref__0 _%self172646%_ 'slots)))) (declare (not safe)) - (hash-put! __tmp178116 _%slot172880%_ '#t))) + (hash-put! __tmp178222 _%slot172986%_ '#t))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self172540%_ _%L172847%_))))) - (_%__kont177013177014%_ + (gxc#compile-e__1 _%self172646%_ _%L172953%_))))) + (_%__kont177119177120%_ (lambda () (let () (declare (not safe)) - (gxc#apply-operands _%self172540%_ _%stx172541%_))))) - (let* ((_%__match177494177495%_ - (lambda (_%e172743172783%_ - _%hd172744172786%_ - _%tl172745172788%_ - _%e172746172791%_ - _%hd172747172794%_ - _%tl172748172796%_ - _%e172749172799%_ - _%hd172750172802%_ - _%tl172751172804%_ - _%e172752172807%_ - _%hd172753172810%_ - _%tl172754172812%_ - _%e172755172815%_ - _%hd172756172818%_ - _%tl172757172820%_ - _%e172758172823%_ - _%hd172759172826%_ - _%tl172760172828%_ - _%e172761172831%_ - _%hd172762172834%_ - _%tl172763172836%_ - _%e172764172839%_ - _%hd172765172842%_ - _%tl172766172844%_) - (let ((_%L172847%_ _%hd172765172842%_) - (_%L172848%_ _%hd172762172834%_) - (_%L172849%_ _%hd172753172810%_)) - (if (and (let ((__tmp178117 - (let ((__tmp178118 + (gxc#apply-operands _%self172646%_ _%stx172647%_))))) + (let* ((_%__match177600177601%_ + (lambda (_%e172849172889%_ + _%hd172850172892%_ + _%tl172851172894%_ + _%e172852172897%_ + _%hd172853172900%_ + _%tl172854172902%_ + _%e172855172905%_ + _%hd172856172908%_ + _%tl172857172910%_ + _%e172858172913%_ + _%hd172859172916%_ + _%tl172860172918%_ + _%e172861172921%_ + _%hd172862172924%_ + _%tl172863172926%_ + _%e172864172929%_ + _%hd172865172932%_ + _%tl172866172934%_ + _%e172867172937%_ + _%hd172868172940%_ + _%tl172869172942%_ + _%e172870172945%_ + _%hd172871172948%_ + _%tl172872172950%_) + (let ((_%L172953%_ _%hd172871172948%_) + (_%L172954%_ _%hd172868172940%_) + (_%L172955%_ _%hd172859172916%_)) + (if (and (let ((__tmp178223 + (let ((__tmp178224 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172849%_)))) + _%L172955%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178118)))) + __tmp178224)))) (declare (not safe)) (##structure-instance-of? - __tmp178117 + __tmp178223 'gxc#!mutator::t)) - (let ((__tmp178119 + (let ((__tmp178225 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172848%_ - __tmp178119))) - (_%__kont177011177012%_ - _%L172847%_ - _%L172848%_ - _%L172849%_) - (_%__kont177013177014%_))))) - (_%__match177492177493%_ - (lambda (_%e172743172783%_ - _%hd172744172786%_ - _%tl172745172788%_ - _%e172746172791%_ - _%hd172747172794%_ - _%tl172748172796%_ - _%e172749172799%_ - _%hd172750172802%_ - _%tl172751172804%_ - _%e172752172807%_ - _%hd172753172810%_ - _%tl172754172812%_ - _%e172755172815%_ - _%hd172756172818%_ - _%tl172757172820%_ - _%e172758172823%_ - _%hd172759172826%_ - _%tl172760172828%_ - _%e172761172831%_ - _%hd172762172834%_ - _%tl172763172836%_ - _%e172764172839%_ - _%hd172765172842%_ - _%tl172766172844%_) + _%L172954%_ + __tmp178225))) + (_%__kont177117177118%_ + _%L172953%_ + _%L172954%_ + _%L172955%_) + (_%__kont177119177120%_))))) + (_%__match177598177599%_ + (lambda (_%e172849172889%_ + _%hd172850172892%_ + _%tl172851172894%_ + _%e172852172897%_ + _%hd172853172900%_ + _%tl172854172902%_ + _%e172855172905%_ + _%hd172856172908%_ + _%tl172857172910%_ + _%e172858172913%_ + _%hd172859172916%_ + _%tl172860172918%_ + _%e172861172921%_ + _%hd172862172924%_ + _%tl172863172926%_ + _%e172864172929%_ + _%hd172865172932%_ + _%tl172866172934%_ + _%e172867172937%_ + _%hd172868172940%_ + _%tl172869172942%_ + _%e172870172945%_ + _%hd172871172948%_ + _%tl172872172950%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172766172844%_)) - (_%__match177494177495%_ - _%e172743172783%_ - _%hd172744172786%_ - _%tl172745172788%_ - _%e172746172791%_ - _%hd172747172794%_ - _%tl172748172796%_ - _%e172749172799%_ - _%hd172750172802%_ - _%tl172751172804%_ - _%e172752172807%_ - _%hd172753172810%_ - _%tl172754172812%_ - _%e172755172815%_ - _%hd172756172818%_ - _%tl172757172820%_ - _%e172758172823%_ - _%hd172759172826%_ - _%tl172760172828%_ - _%e172761172831%_ - _%hd172762172834%_ - _%tl172763172836%_ - _%e172764172839%_ - _%hd172765172842%_ - _%tl172766172844%_) - (_%__kont177013177014%_)))) - (_%__match177486177487%_ - (lambda (_%e172743172783%_ - _%hd172744172786%_ - _%tl172745172788%_ - _%e172746172791%_ - _%hd172747172794%_ - _%tl172748172796%_ - _%e172749172799%_ - _%hd172750172802%_ - _%tl172751172804%_ - _%e172752172807%_ - _%hd172753172810%_ - _%tl172754172812%_ - _%e172755172815%_ - _%hd172756172818%_ - _%tl172757172820%_ - _%e172758172823%_ - _%hd172759172826%_ - _%tl172760172828%_ - _%e172761172831%_ - _%hd172762172834%_ - _%tl172763172836%_) + (gx#stx-null? _%tl172872172950%_)) + (_%__match177600177601%_ + _%e172849172889%_ + _%hd172850172892%_ + _%tl172851172894%_ + _%e172852172897%_ + _%hd172853172900%_ + _%tl172854172902%_ + _%e172855172905%_ + _%hd172856172908%_ + _%tl172857172910%_ + _%e172858172913%_ + _%hd172859172916%_ + _%tl172860172918%_ + _%e172861172921%_ + _%hd172862172924%_ + _%tl172863172926%_ + _%e172864172929%_ + _%hd172865172932%_ + _%tl172866172934%_ + _%e172867172937%_ + _%hd172868172940%_ + _%tl172869172942%_ + _%e172870172945%_ + _%hd172871172948%_ + _%tl172872172950%_) + (_%__kont177119177120%_)))) + (_%__match177592177593%_ + (lambda (_%e172849172889%_ + _%hd172850172892%_ + _%tl172851172894%_ + _%e172852172897%_ + _%hd172853172900%_ + _%tl172854172902%_ + _%e172855172905%_ + _%hd172856172908%_ + _%tl172857172910%_ + _%e172858172913%_ + _%hd172859172916%_ + _%tl172860172918%_ + _%e172861172921%_ + _%hd172862172924%_ + _%tl172863172926%_ + _%e172864172929%_ + _%hd172865172932%_ + _%tl172866172934%_ + _%e172867172937%_ + _%hd172868172940%_ + _%tl172869172942%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172757172820%_)) - (let ((_%e172764172839%_ + (gx#stx-pair? _%tl172863172926%_)) + (let ((_%e172870172945%_ (let () (declare (not safe)) - (gx#stx-e _%tl172757172820%_)))) - (let ((_%tl172766172844%_ + (gx#stx-e _%tl172863172926%_)))) + (let ((_%tl172872172950%_ (let () (declare (not safe)) - (##cdr _%e172764172839%_))) - (_%hd172765172842%_ + (##cdr _%e172870172945%_))) + (_%hd172871172948%_ (let () (declare (not safe)) - (##car _%e172764172839%_)))) + (##car _%e172870172945%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172766172844%_)) - (_%__match177494177495%_ - _%e172743172783%_ - _%hd172744172786%_ - _%tl172745172788%_ - _%e172746172791%_ - _%hd172747172794%_ - _%tl172748172796%_ - _%e172749172799%_ - _%hd172750172802%_ - _%tl172751172804%_ - _%e172752172807%_ - _%hd172753172810%_ - _%tl172754172812%_ - _%e172755172815%_ - _%hd172756172818%_ - _%tl172757172820%_ - _%e172758172823%_ - _%hd172759172826%_ - _%tl172760172828%_ - _%e172761172831%_ - _%hd172762172834%_ - _%tl172763172836%_ - _%e172764172839%_ - _%hd172765172842%_ - _%tl172766172844%_) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)))) - (_%__match177432177433%_ - (lambda (_%e172719172891%_ - _%hd172720172894%_ - _%tl172721172896%_ - _%e172722172899%_ - _%hd172723172902%_ - _%tl172724172904%_ - _%e172725172907%_ - _%hd172726172910%_ - _%tl172727172912%_ - _%e172728172915%_ - _%hd172729172918%_ - _%tl172730172920%_ - _%e172731172923%_ - _%hd172732172926%_ - _%tl172733172928%_ - _%e172734172931%_ - _%hd172735172934%_ - _%tl172736172936%_ - _%e172737172939%_ - _%hd172738172942%_ - _%tl172739172944%_) - (let ((_%L172947%_ _%hd172738172942%_) - (_%L172948%_ _%hd172729172918%_)) - (if (and (let ((__tmp178120 - (let ((__tmp178121 + (gx#stx-null? _%tl172872172950%_)) + (_%__match177600177601%_ + _%e172849172889%_ + _%hd172850172892%_ + _%tl172851172894%_ + _%e172852172897%_ + _%hd172853172900%_ + _%tl172854172902%_ + _%e172855172905%_ + _%hd172856172908%_ + _%tl172857172910%_ + _%e172858172913%_ + _%hd172859172916%_ + _%tl172860172918%_ + _%e172861172921%_ + _%hd172862172924%_ + _%tl172863172926%_ + _%e172864172929%_ + _%hd172865172932%_ + _%tl172866172934%_ + _%e172867172937%_ + _%hd172868172940%_ + _%tl172869172942%_ + _%e172870172945%_ + _%hd172871172948%_ + _%tl172872172950%_) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)))) + (_%__match177538177539%_ + (lambda (_%e172825172997%_ + _%hd172826173000%_ + _%tl172827173002%_ + _%e172828173005%_ + _%hd172829173008%_ + _%tl172830173010%_ + _%e172831173013%_ + _%hd172832173016%_ + _%tl172833173018%_ + _%e172834173021%_ + _%hd172835173024%_ + _%tl172836173026%_ + _%e172837173029%_ + _%hd172838173032%_ + _%tl172839173034%_ + _%e172840173037%_ + _%hd172841173040%_ + _%tl172842173042%_ + _%e172843173045%_ + _%hd172844173048%_ + _%tl172845173050%_) + (let ((_%L173053%_ _%hd172844173048%_) + (_%L173054%_ _%hd172835173024%_)) + (if (and (let ((__tmp178226 + (let ((__tmp178227 (let () (declare (not safe)) (gxc#identifier-symbol - _%L172948%_)))) + _%L173054%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178121)))) + __tmp178227)))) (declare (not safe)) (##structure-instance-of? - __tmp178120 + __tmp178226 'gxc#!accessor::t)) - (let ((__tmp178122 + (let ((__tmp178228 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172947%_ - __tmp178122))) - (_%__kont177009177010%_ _%L172947%_ _%L172948%_) - (_%__kont177013177014%_))))) - (_%__match177430177431%_ - (lambda (_%e172719172891%_ - _%hd172720172894%_ - _%tl172721172896%_ - _%e172722172899%_ - _%hd172723172902%_ - _%tl172724172904%_ - _%e172725172907%_ - _%hd172726172910%_ - _%tl172727172912%_ - _%e172728172915%_ - _%hd172729172918%_ - _%tl172730172920%_ - _%e172731172923%_ - _%hd172732172926%_ - _%tl172733172928%_ - _%e172734172931%_ - _%hd172735172934%_ - _%tl172736172936%_ - _%e172737172939%_ - _%hd172738172942%_ - _%tl172739172944%_) + _%L173053%_ + __tmp178228))) + (_%__kont177115177116%_ _%L173053%_ _%L173054%_) + (_%__kont177119177120%_))))) + (_%__match177536177537%_ + (lambda (_%e172825172997%_ + _%hd172826173000%_ + _%tl172827173002%_ + _%e172828173005%_ + _%hd172829173008%_ + _%tl172830173010%_ + _%e172831173013%_ + _%hd172832173016%_ + _%tl172833173018%_ + _%e172834173021%_ + _%hd172835173024%_ + _%tl172836173026%_ + _%e172837173029%_ + _%hd172838173032%_ + _%tl172839173034%_ + _%e172840173037%_ + _%hd172841173040%_ + _%tl172842173042%_ + _%e172843173045%_ + _%hd172844173048%_ + _%tl172845173050%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172733172928%_)) - (_%__match177432177433%_ - _%e172719172891%_ - _%hd172720172894%_ - _%tl172721172896%_ - _%e172722172899%_ - _%hd172723172902%_ - _%tl172724172904%_ - _%e172725172907%_ - _%hd172726172910%_ - _%tl172727172912%_ - _%e172728172915%_ - _%hd172729172918%_ - _%tl172730172920%_ - _%e172731172923%_ - _%hd172732172926%_ - _%tl172733172928%_ - _%e172734172931%_ - _%hd172735172934%_ - _%tl172736172936%_ - _%e172737172939%_ - _%hd172738172942%_ - _%tl172739172944%_) - (_%__match177486177487%_ - _%e172719172891%_ - _%hd172720172894%_ - _%tl172721172896%_ - _%e172722172899%_ - _%hd172723172902%_ - _%tl172724172904%_ - _%e172725172907%_ - _%hd172726172910%_ - _%tl172727172912%_ - _%e172728172915%_ - _%hd172729172918%_ - _%tl172730172920%_ - _%e172731172923%_ - _%hd172732172926%_ - _%tl172733172928%_ - _%e172734172931%_ - _%hd172735172934%_ - _%tl172736172936%_ - _%e172737172939%_ - _%hd172738172942%_ - _%tl172739172944%_)))) - (_%__match177376177377%_ - (lambda (_%e172684172985%_ - _%hd172685172988%_ - _%tl172686172990%_ - _%e172687172993%_ - _%hd172688172996%_ - _%tl172689172998%_ - _%e172690173001%_ - _%hd172691173004%_ - _%tl172692173006%_ - _%e172693173009%_ - _%hd172694173012%_ - _%tl172695173014%_ - _%e172696173017%_ - _%hd172697173020%_ - _%tl172698173022%_ - _%e172699173025%_ - _%hd172700173028%_ - _%tl172701173030%_ - _%e172702173033%_ - _%hd172703173036%_ - _%tl172704173038%_ - _%e172705173041%_ - _%hd172706173044%_ - _%tl172707173046%_ - _%e172708173049%_ - _%hd172709173052%_ - _%tl172710173054%_ - _%e172711173057%_ - _%hd172712173060%_ - _%tl172713173062%_ - _%e172714173065%_ - _%hd172715173068%_ - _%tl172716173070%_) - (let ((_%L173073%_ _%hd172715173068%_) - (_%L173074%_ _%hd172712173060%_) - (_%L173075%_ _%hd172703173036%_) - (_%L173076%_ _%hd172694173012%_)) + (gx#stx-null? _%tl172839173034%_)) + (_%__match177538177539%_ + _%e172825172997%_ + _%hd172826173000%_ + _%tl172827173002%_ + _%e172828173005%_ + _%hd172829173008%_ + _%tl172830173010%_ + _%e172831173013%_ + _%hd172832173016%_ + _%tl172833173018%_ + _%e172834173021%_ + _%hd172835173024%_ + _%tl172836173026%_ + _%e172837173029%_ + _%hd172838173032%_ + _%tl172839173034%_ + _%e172840173037%_ + _%hd172841173040%_ + _%tl172842173042%_ + _%e172843173045%_ + _%hd172844173048%_ + _%tl172845173050%_) + (_%__match177592177593%_ + _%e172825172997%_ + _%hd172826173000%_ + _%tl172827173002%_ + _%e172828173005%_ + _%hd172829173008%_ + _%tl172830173010%_ + _%e172831173013%_ + _%hd172832173016%_ + _%tl172833173018%_ + _%e172834173021%_ + _%hd172835173024%_ + _%tl172836173026%_ + _%e172837173029%_ + _%hd172838173032%_ + _%tl172839173034%_ + _%e172840173037%_ + _%hd172841173040%_ + _%tl172842173042%_ + _%e172843173045%_ + _%hd172844173048%_ + _%tl172845173050%_)))) + (_%__match177482177483%_ + (lambda (_%e172790173091%_ + _%hd172791173094%_ + _%tl172792173096%_ + _%e172793173099%_ + _%hd172794173102%_ + _%tl172795173104%_ + _%e172796173107%_ + _%hd172797173110%_ + _%tl172798173112%_ + _%e172799173115%_ + _%hd172800173118%_ + _%tl172801173120%_ + _%e172802173123%_ + _%hd172803173126%_ + _%tl172804173128%_ + _%e172805173131%_ + _%hd172806173134%_ + _%tl172807173136%_ + _%e172808173139%_ + _%hd172809173142%_ + _%tl172810173144%_ + _%e172811173147%_ + _%hd172812173150%_ + _%tl172813173152%_ + _%e172814173155%_ + _%hd172815173158%_ + _%tl172816173160%_ + _%e172817173163%_ + _%hd172818173166%_ + _%tl172819173168%_ + _%e172820173171%_ + _%hd172821173174%_ + _%tl172822173176%_) + (let ((_%L173179%_ _%hd172821173174%_) + (_%L173180%_ _%hd172818173166%_) + (_%L173181%_ _%hd172809173142%_) + (_%L173182%_ _%hd172800173118%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173076%_ + _%L173182%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173076%_ + _%L173182%_ 'unchecked-slot-set!))) - (let ((__tmp178123 + (let ((__tmp178229 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173075%_ - __tmp178123))) - (_%__kont177007177008%_ - _%L173073%_ - _%L173074%_ - _%L173075%_ - _%L173076%_) - (_%__kont177013177014%_))))) - (_%__match177368177369%_ - (lambda (_%e172684172985%_ - _%hd172685172988%_ - _%tl172686172990%_ - _%e172687172993%_ - _%hd172688172996%_ - _%tl172689172998%_ - _%e172690173001%_ - _%hd172691173004%_ - _%tl172692173006%_ - _%e172693173009%_ - _%hd172694173012%_ - _%tl172695173014%_ - _%e172696173017%_ - _%hd172697173020%_ - _%tl172698173022%_ - _%e172699173025%_ - _%hd172700173028%_ - _%tl172701173030%_ - _%e172702173033%_ - _%hd172703173036%_ - _%tl172704173038%_ - _%e172705173041%_ - _%hd172706173044%_ - _%tl172707173046%_ - _%e172708173049%_ - _%hd172709173052%_ - _%tl172710173054%_ - _%e172711173057%_ - _%hd172712173060%_ - _%tl172713173062%_) + _%L173181%_ + __tmp178229))) + (_%__kont177113177114%_ + _%L173179%_ + _%L173180%_ + _%L173181%_ + _%L173182%_) + (_%__kont177119177120%_))))) + (_%__match177474177475%_ + (lambda (_%e172790173091%_ + _%hd172791173094%_ + _%tl172792173096%_ + _%e172793173099%_ + _%hd172794173102%_ + _%tl172795173104%_ + _%e172796173107%_ + _%hd172797173110%_ + _%tl172798173112%_ + _%e172799173115%_ + _%hd172800173118%_ + _%tl172801173120%_ + _%e172802173123%_ + _%hd172803173126%_ + _%tl172804173128%_ + _%e172805173131%_ + _%hd172806173134%_ + _%tl172807173136%_ + _%e172808173139%_ + _%hd172809173142%_ + _%tl172810173144%_ + _%e172811173147%_ + _%hd172812173150%_ + _%tl172813173152%_ + _%e172814173155%_ + _%hd172815173158%_ + _%tl172816173160%_ + _%e172817173163%_ + _%hd172818173166%_ + _%tl172819173168%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172707173046%_)) - (let ((_%e172714173065%_ + (gx#stx-pair? _%tl172813173152%_)) + (let ((_%e172820173171%_ (let () (declare (not safe)) - (gx#stx-e _%tl172707173046%_)))) - (let ((_%tl172716173070%_ + (gx#stx-e _%tl172813173152%_)))) + (let ((_%tl172822173176%_ (let () (declare (not safe)) - (##cdr _%e172714173065%_))) - (_%hd172715173068%_ + (##cdr _%e172820173171%_))) + (_%hd172821173174%_ (let () (declare (not safe)) - (##car _%e172714173065%_)))) + (##car _%e172820173171%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172716173070%_)) - (_%__match177376177377%_ - _%e172684172985%_ - _%hd172685172988%_ - _%tl172686172990%_ - _%e172687172993%_ - _%hd172688172996%_ - _%tl172689172998%_ - _%e172690173001%_ - _%hd172691173004%_ - _%tl172692173006%_ - _%e172693173009%_ - _%hd172694173012%_ - _%tl172695173014%_ - _%e172696173017%_ - _%hd172697173020%_ - _%tl172698173022%_ - _%e172699173025%_ - _%hd172700173028%_ - _%tl172701173030%_ - _%e172702173033%_ - _%hd172703173036%_ - _%tl172704173038%_ - _%e172705173041%_ - _%hd172706173044%_ - _%tl172707173046%_ - _%e172708173049%_ - _%hd172709173052%_ - _%tl172710173054%_ - _%e172711173057%_ - _%hd172712173060%_ - _%tl172713173062%_ - _%e172714173065%_ - _%hd172715173068%_ - _%tl172716173070%_) - (_%__kont177013177014%_)))) - (_%__match177492177493%_ - _%e172684172985%_ - _%hd172685172988%_ - _%tl172686172990%_ - _%e172687172993%_ - _%hd172688172996%_ - _%tl172689172998%_ - _%e172690173001%_ - _%hd172691173004%_ - _%tl172692173006%_ - _%e172693173009%_ - _%hd172694173012%_ - _%tl172695173014%_ - _%e172696173017%_ - _%hd172697173020%_ - _%tl172698173022%_ - _%e172699173025%_ - _%hd172700173028%_ - _%tl172701173030%_ - _%e172702173033%_ - _%hd172703173036%_ - _%tl172704173038%_ - _%e172705173041%_ - _%hd172706173044%_ - _%tl172707173046%_)))) - (_%__match177290177291%_ - (lambda (_%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_) - (let ((_%L173196%_ _%hd172678173191%_) - (_%L173197%_ _%hd172669173167%_) - (_%L173198%_ _%hd172660173143%_)) + (gx#stx-null? _%tl172822173176%_)) + (_%__match177482177483%_ + _%e172790173091%_ + _%hd172791173094%_ + _%tl172792173096%_ + _%e172793173099%_ + _%hd172794173102%_ + _%tl172795173104%_ + _%e172796173107%_ + _%hd172797173110%_ + _%tl172798173112%_ + _%e172799173115%_ + _%hd172800173118%_ + _%tl172801173120%_ + _%e172802173123%_ + _%hd172803173126%_ + _%tl172804173128%_ + _%e172805173131%_ + _%hd172806173134%_ + _%tl172807173136%_ + _%e172808173139%_ + _%hd172809173142%_ + _%tl172810173144%_ + _%e172811173147%_ + _%hd172812173150%_ + _%tl172813173152%_ + _%e172814173155%_ + _%hd172815173158%_ + _%tl172816173160%_ + _%e172817173163%_ + _%hd172818173166%_ + _%tl172819173168%_ + _%e172820173171%_ + _%hd172821173174%_ + _%tl172822173176%_) + (_%__kont177119177120%_)))) + (_%__match177598177599%_ + _%e172790173091%_ + _%hd172791173094%_ + _%tl172792173096%_ + _%e172793173099%_ + _%hd172794173102%_ + _%tl172795173104%_ + _%e172796173107%_ + _%hd172797173110%_ + _%tl172798173112%_ + _%e172799173115%_ + _%hd172800173118%_ + _%tl172801173120%_ + _%e172802173123%_ + _%hd172803173126%_ + _%tl172804173128%_ + _%e172805173131%_ + _%hd172806173134%_ + _%tl172807173136%_ + _%e172808173139%_ + _%hd172809173142%_ + _%tl172810173144%_ + _%e172811173147%_ + _%hd172812173150%_ + _%tl172813173152%_)))) + (_%__match177396177397%_ + (lambda (_%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_) + (let ((_%L173302%_ _%hd172784173297%_) + (_%L173303%_ _%hd172775173273%_) + (_%L173304%_ _%hd172766173249%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173198%_ + _%L173304%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173198%_ + _%L173304%_ 'unchecked-slot-ref))) - (let ((__tmp178124 + (let ((__tmp178230 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173197%_ - __tmp178124))) - (_%__kont177005177006%_ - _%L173196%_ - _%L173197%_ - _%L173198%_) - (_%__match177494177495%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_))))) - (_%__match177288177289%_ - (lambda (_%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_) + _%L173303%_ + __tmp178230))) + (_%__kont177111177112%_ + _%L173302%_ + _%L173303%_ + _%L173304%_) + (_%__match177600177601%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_))))) + (_%__match177394177395%_ + (lambda (_%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172673173177%_)) - (_%__match177290177291%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_) - (_%__match177368177369%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_)))) - (_%__match177278177279%_ - (lambda (_%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_) + (gx#stx-null? _%tl172779173283%_)) + (_%__match177396177397%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_) + (_%__match177474177475%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_)))) + (_%__match177384177385%_ + (lambda (_%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd172675173183%_)) + (gx#stx-eq? '%#quote _%hd172781173289%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172676173185%_)) - (let ((_%e172677173188%_ + (gx#stx-pair? _%tl172782173291%_)) + (let ((_%e172783173294%_ (let () (declare (not safe)) - (gx#stx-e _%tl172676173185%_)))) - (let ((_%tl172679173193%_ + (gx#stx-e _%tl172782173291%_)))) + (let ((_%tl172785173299%_ (let () (declare (not safe)) - (##cdr _%e172677173188%_))) - (_%hd172678173191%_ + (##cdr _%e172783173294%_))) + (_%hd172784173297%_ (let () (declare (not safe)) - (##car _%e172677173188%_)))) + (##car _%e172783173294%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172679173193%_)) + (gx#stx-null? _%tl172785173299%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172673173177%_)) - (_%__match177290177291%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_) - (_%__match177368177369%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_ - _%e172674173180%_ - _%hd172675173183%_ - _%tl172676173185%_ - _%e172677173188%_ - _%hd172678173191%_ - _%tl172679173193%_)) - (_%__match177492177493%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_)))) - (_%__match177492177493%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_)) - (_%__match177492177493%_ - _%e172650173116%_ - _%hd172651173119%_ - _%tl172652173121%_ - _%e172653173124%_ - _%hd172654173127%_ - _%tl172655173129%_ - _%e172656173132%_ - _%hd172657173135%_ - _%tl172658173137%_ - _%e172659173140%_ - _%hd172660173143%_ - _%tl172661173145%_ - _%e172662173148%_ - _%hd172663173151%_ - _%tl172664173153%_ - _%e172665173156%_ - _%hd172666173159%_ - _%tl172667173161%_ - _%e172668173164%_ - _%hd172669173167%_ - _%tl172670173169%_ - _%e172671173172%_ - _%hd172672173175%_ - _%tl172673173177%_)))) - (_%__match177210177211%_ - (lambda (_%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_ - _%e172623173299%_ - _%hd172624173302%_ - _%tl172625173304%_ - _%e172626173307%_ - _%hd172627173310%_ - _%tl172628173312%_ - _%e172629173315%_ - _%hd172630173318%_ - _%tl172631173320%_ - _%e172632173323%_ - _%hd172633173326%_ - _%tl172634173328%_ - _%e172635173331%_ - _%hd172636173334%_ - _%tl172637173336%_ - _%__splice177003177004%_ - _%target172638173339%_ - _%tl172640173341%_) - (letrec ((_%loop172641173344%_ - (lambda (_%hd172639173347%_ - _%args172645173349%_) + (gx#stx-null? _%tl172779173283%_)) + (_%__match177396177397%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_) + (_%__match177474177475%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_ + _%e172780173286%_ + _%hd172781173289%_ + _%tl172782173291%_ + _%e172783173294%_ + _%hd172784173297%_ + _%tl172785173299%_)) + (_%__match177598177599%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_)))) + (_%__match177598177599%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_)) + (_%__match177598177599%_ + _%e172756173222%_ + _%hd172757173225%_ + _%tl172758173227%_ + _%e172759173230%_ + _%hd172760173233%_ + _%tl172761173235%_ + _%e172762173238%_ + _%hd172763173241%_ + _%tl172764173243%_ + _%e172765173246%_ + _%hd172766173249%_ + _%tl172767173251%_ + _%e172768173254%_ + _%hd172769173257%_ + _%tl172770173259%_ + _%e172771173262%_ + _%hd172772173265%_ + _%tl172773173267%_ + _%e172774173270%_ + _%hd172775173273%_ + _%tl172776173275%_ + _%e172777173278%_ + _%hd172778173281%_ + _%tl172779173283%_)))) + (_%__match177316177317%_ + (lambda (_%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_ + _%e172729173405%_ + _%hd172730173408%_ + _%tl172731173410%_ + _%e172732173413%_ + _%hd172733173416%_ + _%tl172734173418%_ + _%e172735173421%_ + _%hd172736173424%_ + _%tl172737173426%_ + _%e172738173429%_ + _%hd172739173432%_ + _%tl172740173434%_ + _%e172741173437%_ + _%hd172742173440%_ + _%tl172743173442%_ + _%__splice177109177110%_ + _%target172744173445%_ + _%tl172746173447%_) + (letrec ((_%loop172747173450%_ + (lambda (_%hd172745173453%_ + _%args172751173455%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172639173347%_)) - (let ((_%e172642173352%_ + (gx#stx-pair? _%hd172745173453%_)) + (let ((_%e172748173458%_ (let () (declare (not safe)) - (gx#stx-e _%hd172639173347%_)))) - (let ((_%lp-tl172644173357%_ + (gx#stx-e _%hd172745173453%_)))) + (let ((_%lp-tl172750173463%_ (let () (declare (not safe)) - (##cdr _%e172642173352%_))) - (_%lp-hd172643173355%_ + (##cdr _%e172748173458%_))) + (_%lp-hd172749173461%_ (let () (declare (not safe)) - (##car _%e172642173352%_)))) - (_%loop172641173344%_ - _%lp-tl172644173357%_ - (cons _%lp-hd172643173355%_ - _%args172645173349%_)))) - (let ((_%args172646173360%_ - (reverse _%args172645173349%_))) - (let ((_%L173363%_ - _%args172646173360%_) - (_%L173364%_ _%hd172636173334%_) - (_%L173365%_ _%hd172627173310%_) - (_%L173366%_ _%hd172618173286%_) - (_%L173367%_ _%hd172609173262%_)) + (##car _%e172748173458%_)))) + (_%loop172747173450%_ + _%lp-tl172750173463%_ + (cons _%lp-hd172749173461%_ + _%args172751173455%_)))) + (let ((_%args172752173466%_ + (reverse _%args172751173455%_))) + (let ((_%L173469%_ + _%args172752173466%_) + (_%L173470%_ _%hd172742173440%_) + (_%L173471%_ _%hd172733173416%_) + (_%L173472%_ _%hd172724173392%_) + (_%L173473%_ _%hd172715173368%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173367%_ + _%L173473%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173366%_ + _%L173472%_ 'call-method)) - (let ((__tmp178125 + (let ((__tmp178231 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173365%_ - __tmp178125))) - (_%__kont177001177002%_ - _%L173363%_ - _%L173364%_ - _%L173365%_ - _%L173366%_ - _%L173367%_) - (_%__kont177013177014%_)))))))) - (_%loop172641173344%_ _%target172638173339%_ '())))) - (_%__match177168177169%_ - (lambda (_%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_ - _%e172623173299%_ - _%hd172624173302%_ - _%tl172625173304%_) + _%L173471%_ + __tmp178231))) + (_%__kont177107177108%_ + _%L173469%_ + _%L173470%_ + _%L173471%_ + _%L173472%_ + _%L173473%_) + (_%__kont177119177120%_)))))))) + (_%loop172747173450%_ _%target172744173445%_ '())))) + (_%__match177274177275%_ + (lambda (_%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_ + _%e172729173405%_ + _%hd172730173408%_ + _%tl172731173410%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd172624173302%_)) + (gx#stx-eq? '%#ref _%hd172730173408%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172625173304%_)) - (let ((_%e172626173307%_ + (gx#stx-pair? _%tl172731173410%_)) + (let ((_%e172732173413%_ (let () (declare (not safe)) - (gx#stx-e _%tl172625173304%_)))) - (let ((_%tl172628173312%_ + (gx#stx-e _%tl172731173410%_)))) + (let ((_%tl172734173418%_ (let () (declare (not safe)) - (##cdr _%e172626173307%_))) - (_%hd172627173310%_ + (##cdr _%e172732173413%_))) + (_%hd172733173416%_ (let () (declare (not safe)) - (##car _%e172626173307%_)))) + (##car _%e172732173413%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172628173312%_)) + (gx#stx-null? _%tl172734173418%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172622173296%_)) - (let ((_%e172629173315%_ + (gx#stx-pair? _%tl172728173402%_)) + (let ((_%e172735173421%_ (let () (declare (not safe)) (gx#stx-e - _%tl172622173296%_)))) - (let ((_%tl172631173320%_ + _%tl172728173402%_)))) + (let ((_%tl172737173426%_ (let () (declare (not safe)) - (##cdr _%e172629173315%_))) - (_%hd172630173318%_ + (##cdr _%e172735173421%_))) + (_%hd172736173424%_ (let () (declare (not safe)) - (##car _%e172629173315%_)))) + (##car _%e172735173421%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd172630173318%_)) - (let ((_%e172632173323%_ + _%hd172736173424%_)) + (let ((_%e172738173429%_ (let () (declare (not safe)) (gx#stx-e - _%hd172630173318%_)))) - (let ((_%tl172634173328%_ + _%hd172736173424%_)))) + (let ((_%tl172740173434%_ (let () (declare (not safe)) - (##cdr _%e172632173323%_))) - (_%hd172633173326%_ + (##cdr _%e172738173429%_))) + (_%hd172739173432%_ (let () (declare (not safe)) - (##car _%e172632173323%_)))) + (##car _%e172738173429%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172633173326%_)) + _%hd172739173432%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#quote _%hd172633173326%_)) + (gx#stx-eq? '%#quote _%hd172739173432%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172634173328%_)) - (let ((_%e172635173331%_ + (gx#stx-pair? _%tl172740173434%_)) + (let ((_%e172741173437%_ (let () (declare (not safe)) - (gx#stx-e _%tl172634173328%_)))) - (let ((_%tl172637173336%_ + (gx#stx-e _%tl172740173434%_)))) + (let ((_%tl172743173442%_ (let () (declare (not safe)) - (##cdr _%e172635173331%_))) - (_%hd172636173334%_ + (##cdr _%e172741173437%_))) + (_%hd172742173440%_ (let () (declare (not safe)) - (##car _%e172635173331%_)))) + (##car _%e172741173437%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172637173336%_)) + (gx#stx-null? _%tl172743173442%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl172631173320%_)) - (let ((_%__splice177003177004%_ + (gx#stx-pair/null? _%tl172737173426%_)) + (let ((_%__splice177109177110%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl172631173320%_ + _%tl172737173426%_ '0)))) - (let ((_%tl172640173341%_ + (let ((_%tl172746173447%_ (let () (declare (not safe)) (##vector-ref - _%__splice177003177004%_ + _%__splice177109177110%_ '1))) - (_%target172638173339%_ + (_%target172744173445%_ (let () (declare (not safe)) (##vector-ref - _%__splice177003177004%_ + _%__splice177109177110%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172640173341%_)) - (_%__match177210177211%_ - _%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_ - _%e172623173299%_ - _%hd172624173302%_ - _%tl172625173304%_ - _%e172626173307%_ - _%hd172627173310%_ - _%tl172628173312%_ - _%e172629173315%_ - _%hd172630173318%_ - _%tl172631173320%_ - _%e172632173323%_ - _%hd172633173326%_ - _%tl172634173328%_ - _%e172635173331%_ - _%hd172636173334%_ - _%tl172637173336%_ - _%__splice177003177004%_ - _%target172638173339%_ - _%tl172640173341%_) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)))) + _%tl172746173447%_)) + (_%__match177316177317%_ + _%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_ + _%e172729173405%_ + _%hd172730173408%_ + _%tl172731173410%_ + _%e172732173413%_ + _%hd172733173416%_ + _%tl172734173418%_ + _%e172735173421%_ + _%hd172736173424%_ + _%tl172737173426%_ + _%e172738173429%_ + _%hd172739173432%_ + _%tl172740173434%_ + _%e172741173437%_ + _%hd172742173440%_ + _%tl172743173442%_ + _%__splice177109177110%_ + _%target172744173445%_ + _%tl172746173447%_) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177013177014%_)))) - (_%__match177492177493%_ - _%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_)) - (_%__match177492177493%_ - _%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_)))) - (_%__match177492177493%_ - _%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_)) - (_%__match177278177279%_ - _%e172599173235%_ - _%hd172600173238%_ - _%tl172601173240%_ - _%e172602173243%_ - _%hd172603173246%_ - _%tl172604173248%_ - _%e172605173251%_ - _%hd172606173254%_ - _%tl172607173256%_ - _%e172608173259%_ - _%hd172609173262%_ - _%tl172610173264%_ - _%e172611173267%_ - _%hd172612173270%_ - _%tl172613173272%_ - _%e172614173275%_ - _%hd172615173278%_ - _%tl172616173280%_ - _%e172617173283%_ - _%hd172618173286%_ - _%tl172619173288%_ - _%e172620173291%_ - _%hd172621173294%_ - _%tl172622173296%_ - _%e172623173299%_ - _%hd172624173302%_ - _%tl172625173304%_)))) - (_%__match177100177101%_ - (lambda (_%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_ - _%e172582173496%_ - _%hd172583173499%_ - _%tl172584173501%_ - _%__splice176999177000%_ - _%target172585173504%_ - _%tl172587173506%_) - (letrec ((_%loop172588173509%_ - (lambda (_%hd172586173512%_ - _%args172592173514%_) + (_%__kont177119177120%_)))) + (_%__match177598177599%_ + _%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_)) + (_%__match177598177599%_ + _%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_)))) + (_%__match177598177599%_ + _%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_)) + (_%__match177384177385%_ + _%e172705173341%_ + _%hd172706173344%_ + _%tl172707173346%_ + _%e172708173349%_ + _%hd172709173352%_ + _%tl172710173354%_ + _%e172711173357%_ + _%hd172712173360%_ + _%tl172713173362%_ + _%e172714173365%_ + _%hd172715173368%_ + _%tl172716173370%_ + _%e172717173373%_ + _%hd172718173376%_ + _%tl172719173378%_ + _%e172720173381%_ + _%hd172721173384%_ + _%tl172722173386%_ + _%e172723173389%_ + _%hd172724173392%_ + _%tl172725173394%_ + _%e172726173397%_ + _%hd172727173400%_ + _%tl172728173402%_ + _%e172729173405%_ + _%hd172730173408%_ + _%tl172731173410%_)))) + (_%__match177206177207%_ + (lambda (_%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_ + _%e172688173602%_ + _%hd172689173605%_ + _%tl172690173607%_ + _%__splice177105177106%_ + _%target172691173610%_ + _%tl172693173612%_) + (letrec ((_%loop172694173615%_ + (lambda (_%hd172692173618%_ + _%args172698173620%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172586173512%_)) - (let ((_%e172589173517%_ + (gx#stx-pair? _%hd172692173618%_)) + (let ((_%e172695173623%_ (let () (declare (not safe)) - (gx#stx-e _%hd172586173512%_)))) - (let ((_%lp-tl172591173522%_ + (gx#stx-e _%hd172692173618%_)))) + (let ((_%lp-tl172697173628%_ (let () (declare (not safe)) - (##cdr _%e172589173517%_))) - (_%lp-hd172590173520%_ + (##cdr _%e172695173623%_))) + (_%lp-hd172696173626%_ (let () (declare (not safe)) - (##car _%e172589173517%_)))) - (_%loop172588173509%_ - _%lp-tl172591173522%_ - (cons _%lp-hd172590173520%_ - _%args172592173514%_)))) - (let ((_%args172593173525%_ - (reverse _%args172592173514%_))) - (let ((_%L173528%_ - _%args172593173525%_) - (_%L173529%_ _%hd172583173499%_) - (_%L173530%_ _%hd172574173475%_) - (_%L173531%_ _%hd172565173451%_)) + (##car _%e172695173623%_)))) + (_%loop172694173615%_ + _%lp-tl172697173628%_ + (cons _%lp-hd172696173626%_ + _%args172698173620%_)))) + (let ((_%args172699173631%_ + (reverse _%args172698173620%_))) + (let ((_%L173634%_ + _%args172699173631%_) + (_%L173635%_ _%hd172689173605%_) + (_%L173636%_ _%hd172680173581%_) + (_%L173637%_ _%hd172671173557%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L173531%_ + _%L173637%_ 'call-method)) - (let ((__tmp178126 + (let ((__tmp178232 (let () (declare (not safe)) (slot-ref__0 - _%self172540%_ + _%self172646%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L173530%_ - __tmp178126))) - (_%__kont176997176998%_ - _%L173528%_ - _%L173529%_ - _%L173530%_ - _%L173531%_) - (_%__match177288177289%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_ - _%e172582173496%_ - _%hd172583173499%_ - _%tl172584173501%_)))))))) - (_%loop172588173509%_ _%target172585173504%_ '()))))) + _%L173636%_ + __tmp178232))) + (_%__kont177103177104%_ + _%L173634%_ + _%L173635%_ + _%L173636%_ + _%L173637%_) + (_%__match177394177395%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_ + _%e172688173602%_ + _%hd172689173605%_ + _%tl172690173607%_)))))))) + (_%loop172694173615%_ _%target172691173610%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx176995176996%_)) - (let ((_%e172555173424%_ + (gx#stx-pair? _%__stx177101177102%_)) + (let ((_%e172661173530%_ (let () (declare (not safe)) - (gx#stx-e _%__stx176995176996%_)))) - (let ((_%tl172557173429%_ + (gx#stx-e _%__stx177101177102%_)))) + (let ((_%tl172663173535%_ (let () (declare (not safe)) - (##cdr _%e172555173424%_))) - (_%hd172556173427%_ + (##cdr _%e172661173530%_))) + (_%hd172662173533%_ (let () (declare (not safe)) - (##car _%e172555173424%_)))) + (##car _%e172661173530%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172557173429%_)) - (let ((_%e172558173432%_ + (gx#stx-pair? _%tl172663173535%_)) + (let ((_%e172664173538%_ (let () (declare (not safe)) - (gx#stx-e _%tl172557173429%_)))) - (let ((_%tl172560173437%_ + (gx#stx-e _%tl172663173535%_)))) + (let ((_%tl172666173543%_ (let () (declare (not safe)) - (##cdr _%e172558173432%_))) - (_%hd172559173435%_ + (##cdr _%e172664173538%_))) + (_%hd172665173541%_ (let () (declare (not safe)) - (##car _%e172558173432%_)))) + (##car _%e172664173538%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172559173435%_)) - (let ((_%e172561173440%_ + (gx#stx-pair? _%hd172665173541%_)) + (let ((_%e172667173546%_ (let () (declare (not safe)) - (gx#stx-e _%hd172559173435%_)))) - (let ((_%tl172563173445%_ + (gx#stx-e _%hd172665173541%_)))) + (let ((_%tl172669173551%_ (let () (declare (not safe)) - (##cdr _%e172561173440%_))) - (_%hd172562173443%_ + (##cdr _%e172667173546%_))) + (_%hd172668173549%_ (let () (declare (not safe)) - (##car _%e172561173440%_)))) + (##car _%e172667173546%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd172562173443%_)) + _%hd172668173549%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172562173443%_)) + _%hd172668173549%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172563173445%_)) - (let ((_%e172564173448%_ + _%tl172669173551%_)) + (let ((_%e172670173554%_ (let () (declare (not safe)) (gx#stx-e - _%tl172563173445%_)))) - (let ((_%tl172566173453%_ + _%tl172669173551%_)))) + (let ((_%tl172672173559%_ (let () (declare (not safe)) - (##cdr _%e172564173448%_))) - (_%hd172565173451%_ + (##cdr _%e172670173554%_))) + (_%hd172671173557%_ (let () (declare (not safe)) - (##car _%e172564173448%_)))) + (##car _%e172670173554%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172566173453%_)) + _%tl172672173559%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl172560173437%_)) - (let ((_%e172567173456%_ + (gx#stx-pair? _%tl172666173543%_)) + (let ((_%e172673173562%_ (let () (declare (not safe)) - (gx#stx-e _%tl172560173437%_)))) - (let ((_%tl172569173461%_ + (gx#stx-e _%tl172666173543%_)))) + (let ((_%tl172675173567%_ (let () (declare (not safe)) - (##cdr _%e172567173456%_))) - (_%hd172568173459%_ + (##cdr _%e172673173562%_))) + (_%hd172674173565%_ (let () (declare (not safe)) - (##car _%e172567173456%_)))) + (##car _%e172673173562%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172568173459%_)) - (let ((_%e172570173464%_ + (gx#stx-pair? _%hd172674173565%_)) + (let ((_%e172676173570%_ (let () (declare (not safe)) - (gx#stx-e _%hd172568173459%_)))) - (let ((_%tl172572173469%_ + (gx#stx-e _%hd172674173565%_)))) + (let ((_%tl172678173575%_ (let () (declare (not safe)) - (##cdr _%e172570173464%_))) - (_%hd172571173467%_ + (##cdr _%e172676173570%_))) + (_%hd172677173573%_ (let () (declare (not safe)) - (##car _%e172570173464%_)))) + (##car _%e172676173570%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172571173467%_)) + (gx#identifier? _%hd172677173573%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd172571173467%_)) + _%hd172677173573%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172572173469%_)) - (let ((_%e172573173472%_ + _%tl172678173575%_)) + (let ((_%e172679173578%_ (let () (declare (not safe)) (gx#stx-e - _%tl172572173469%_)))) - (let ((_%tl172575173477%_ + _%tl172678173575%_)))) + (let ((_%tl172681173583%_ (let () (declare (not safe)) - (##cdr _%e172573173472%_))) - (_%hd172574173475%_ + (##cdr _%e172679173578%_))) + (_%hd172680173581%_ (let () (declare (not safe)) - (##car _%e172573173472%_)))) + (##car _%e172679173578%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172575173477%_)) + _%tl172681173583%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl172569173461%_)) - (let ((_%e172576173480%_ + _%tl172675173567%_)) + (let ((_%e172682173586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl172569173461%_)))) - (let ((_%tl172578173485%_ + (gx#stx-e _%tl172675173567%_)))) + (let ((_%tl172684173591%_ (let () (declare (not safe)) - (##cdr _%e172576173480%_))) - (_%hd172577173483%_ + (##cdr _%e172682173586%_))) + (_%hd172683173589%_ (let () (declare (not safe)) - (##car _%e172576173480%_)))) + (##car _%e172682173586%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd172577173483%_)) - (let ((_%e172579173488%_ + (gx#stx-pair? _%hd172683173589%_)) + (let ((_%e172685173594%_ (let () (declare (not safe)) - (gx#stx-e _%hd172577173483%_)))) - (let ((_%tl172581173493%_ + (gx#stx-e _%hd172683173589%_)))) + (let ((_%tl172687173599%_ (let () (declare (not safe)) - (##cdr _%e172579173488%_))) - (_%hd172580173491%_ + (##cdr _%e172685173594%_))) + (_%hd172686173597%_ (let () (declare (not safe)) - (##car _%e172579173488%_)))) + (##car _%e172685173594%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd172580173491%_)) + (gx#identifier? _%hd172686173597%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd172580173491%_)) + _%hd172686173597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl172581173493%_)) - (let ((_%e172582173496%_ + (gx#stx-pair? _%tl172687173599%_)) + (let ((_%e172688173602%_ (let () (declare (not safe)) (gx#stx-e - _%tl172581173493%_)))) - (let ((_%tl172584173501%_ + _%tl172687173599%_)))) + (let ((_%tl172690173607%_ (let () (declare (not safe)) - (##cdr _%e172582173496%_))) - (_%hd172583173499%_ + (##cdr _%e172688173602%_))) + (_%hd172689173605%_ (let () (declare (not safe)) - (##car _%e172582173496%_)))) + (##car _%e172688173602%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl172584173501%_)) + _%tl172690173607%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl172578173485%_)) - (let ((_%__splice176999177000%_ + _%tl172684173591%_)) + (let ((_%__splice177105177106%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl172578173485%_ '0)))) - (let ((_%tl172587173506%_ + (gx#syntax-split-splice _%tl172684173591%_ '0)))) + (let ((_%tl172693173612%_ (let () (declare (not safe)) - (##vector-ref _%__splice176999177000%_ '1))) - (_%target172585173504%_ + (##vector-ref _%__splice177105177106%_ '1))) + (_%target172691173610%_ (let () (declare (not safe)) - (##vector-ref _%__splice176999177000%_ '0)))) + (##vector-ref _%__splice177105177106%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl172587173506%_)) - (_%__match177100177101%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_ - _%e172582173496%_ - _%hd172583173499%_ - _%tl172584173501%_ - _%__splice176999177000%_ - _%target172585173504%_ - _%tl172587173506%_) - (_%__match177288177289%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_ - _%e172582173496%_ - _%hd172583173499%_ - _%tl172584173501%_)))) - (_%__match177288177289%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_ - _%e172582173496%_ - _%hd172583173499%_ - _%tl172584173501%_)) + (gx#stx-null? _%tl172693173612%_)) + (_%__match177206177207%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_ + _%e172688173602%_ + _%hd172689173605%_ + _%tl172690173607%_ + _%__splice177105177106%_ + _%target172691173610%_ + _%tl172693173612%_) + (_%__match177394177395%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_ + _%e172688173602%_ + _%hd172689173605%_ + _%tl172690173607%_)))) + (_%__match177394177395%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_ + _%e172688173602%_ + _%hd172689173605%_ + _%tl172690173607%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177492177493%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_)))) - (_%__match177492177493%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_)) - (_%__match177168177169%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_ - _%e172579173488%_ - _%hd172580173491%_ - _%tl172581173493%_)) - (_%__match177492177493%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_)))) - (_%__match177492177493%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_ - _%e172576173480%_ - _%hd172577173483%_ - _%tl172578173485%_)))) - (_%__match177430177431%_ - _%e172555173424%_ - _%hd172556173427%_ - _%tl172557173429%_ - _%e172558173432%_ - _%hd172559173435%_ - _%tl172560173437%_ - _%e172561173440%_ - _%hd172562173443%_ - _%tl172563173445%_ - _%e172564173448%_ - _%hd172565173451%_ - _%tl172566173453%_ - _%e172567173456%_ - _%hd172568173459%_ - _%tl172569173461%_ - _%e172570173464%_ - _%hd172571173467%_ - _%tl172572173469%_ - _%e172573173472%_ - _%hd172574173475%_ - _%tl172575173477%_)) - (_%__kont177013177014%_)))) + (_%__match177598177599%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_)))) + (_%__match177598177599%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_)) + (_%__match177274177275%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_ + _%e172685173594%_ + _%hd172686173597%_ + _%tl172687173599%_)) + (_%__match177598177599%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_)))) + (_%__match177598177599%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_ + _%e172682173586%_ + _%hd172683173589%_ + _%tl172684173591%_)))) + (_%__match177536177537%_ + _%e172661173530%_ + _%hd172662173533%_ + _%tl172663173535%_ + _%e172664173538%_ + _%hd172665173541%_ + _%tl172666173543%_ + _%e172667173546%_ + _%hd172668173549%_ + _%tl172669173551%_ + _%e172670173554%_ + _%hd172671173557%_ + _%tl172672173559%_ + _%e172673173562%_ + _%hd172674173565%_ + _%tl172675173567%_ + _%e172676173570%_ + _%hd172677173573%_ + _%tl172678173575%_ + _%e172679173578%_ + _%hd172680173581%_ + _%tl172681173583%_)) + (_%__kont177119177120%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177013177014%_)) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)))) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177013177014%_)) - (_%__kont177013177014%_)) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_)))) - (_%__kont177013177014%_))))))) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_)))) + (_%__kont177119177120%_))))))) (define gxc#subst-object-refs-call% - (lambda (_%self171479%_ _%stx171480%_) - (letrec ((_%force-e171482%_ - (lambda (_%target172538%_) + (lambda (_%self171585%_ _%stx171586%_) + (letrec ((_%force-e171588%_ + (lambda (_%target172644%_) (cons '%#call (cons (cons '%#ref (cons 'force '())) - (cons (cons '%#ref (cons _%target172538%_ '())) + (cons (cons '%#ref (cons _%target172644%_ '())) '())))))) - (let* ((_%__stx177497177498%_ _%stx171480%_) - (_%g171490171712%_ + (let* ((_%__stx177603177604%_ _%stx171586%_) + (_%g171596171818%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx177497177498%_))))) - (let ((_%__kont177499177500%_ - (lambda (_%L172484%_ _%L172485%_ _%L172486%_ _%L172487%_) - (let ((_%$method172532%_ - (let ((__tmp178128 + _%__stx177603177604%_))))) + (let ((_%__kont177605177606%_ + (lambda (_%L172590%_ _%L172591%_ _%L172592%_ _%L172593%_) + (let ((_%$method172638%_ + (let ((__tmp178234 (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'methods))) - (__tmp178127 + (slot-ref__0 _%self171585%_ 'methods))) + (__tmp178233 (let () (declare (not safe)) - (gx#stx-e _%L172485%_)))) + (gx#stx-e _%L172591%_)))) (declare (not safe)) - (hash-ref__0 __tmp178128 __tmp178127))) - (_%args172533%_ - (map (lambda (_%g172520172522%_) + (hash-ref__0 __tmp178234 __tmp178233))) + (_%args172639%_ + (map (lambda (_%g172626172628%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171479%_ - _%g172520172522%_))) - (let ((__tmp178129 - (lambda (_%g172524172527%_ - _%g172525172529%_) - (cons _%g172524172527%_ - _%g172525172529%_)))) + _%self171585%_ + _%g172626172628%_))) + (let ((__tmp178235 + (lambda (_%g172630172633%_ + _%g172631172635%_) + (cons _%g172630172633%_ + _%g172631172635%_)))) (declare (not safe)) - (__foldr1 __tmp178129 '() _%L172484%_))))) - (let ((__tmp178130 + (__foldr1 __tmp178235 '() _%L172590%_))))) + (let ((__tmp178236 (cons '%#call - (cons (_%force-e171482%_ _%$method172532%_) + (cons (_%force-e171588%_ _%$method172638%_) (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)) '())) - _%args172533%_))))) + _%args172639%_))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178130 _%stx171480%_))))) - (_%__kont177503177504%_ - (lambda (_%L172316%_ - _%L172317%_ - _%L172318%_ - _%L172319%_ - _%L172320%_) - (let ((_%$method172372%_ - (let ((__tmp178132 + (gxc#xform-wrap-source __tmp178236 _%stx171586%_))))) + (_%__kont177609177610%_ + (lambda (_%L172422%_ + _%L172423%_ + _%L172424%_ + _%L172425%_ + _%L172426%_) + (let ((_%$method172478%_ + (let ((__tmp178238 (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'methods))) - (__tmp178131 + (slot-ref__0 _%self171585%_ 'methods))) + (__tmp178237 (let () (declare (not safe)) - (gx#stx-e _%L172317%_)))) + (gx#stx-e _%L172423%_)))) (declare (not safe)) - (hash-ref__0 __tmp178132 __tmp178131))) - (_%args172373%_ - (map (lambda (_%g172360172362%_) + (hash-ref__0 __tmp178238 __tmp178237))) + (_%args172479%_ + (map (lambda (_%g172466172468%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self171479%_ - _%g172360172362%_))) - (let ((__tmp178133 - (lambda (_%g172364172367%_ - _%g172365172369%_) - (cons _%g172364172367%_ - _%g172365172369%_)))) + _%self171585%_ + _%g172466172468%_))) + (let ((__tmp178239 + (lambda (_%g172470172473%_ + _%g172471172475%_) + (cons _%g172470172473%_ + _%g172471172475%_)))) (declare (not safe)) - (__foldr1 __tmp178133 '() _%L172316%_))))) - (let ((__tmp178134 + (__foldr1 __tmp178239 '() _%L172422%_))))) + (let ((__tmp178240 (cons '%#call (cons (cons '%#ref (cons 'apply '())) - (cons (_%force-e171482%_ - _%$method172372%_) + (cons (_%force-e171588%_ + _%$method172478%_) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171479%_ 'receiver)) + (slot-ref__0 _%self171585%_ 'receiver)) '())) - _%args172373%_)))))) + _%args172479%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178134 _%stx171480%_))))) - (_%__kont177507177508%_ - (lambda (_%L172147%_ _%L172148%_ _%L172149%_) - (let* ((_%$field172181%_ - (let ((__tmp178136 + (gxc#xform-wrap-source __tmp178240 _%stx171586%_))))) + (_%__kont177613177614%_ + (lambda (_%L172253%_ _%L172254%_ _%L172255%_) + (let* ((_%$field172287%_ + (let ((__tmp178242 (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'slots))) - (__tmp178135 + (slot-ref__0 _%self171585%_ 'slots))) + (__tmp178241 (let () (declare (not safe)) - (gx#stx-e _%L172147%_)))) + (gx#stx-e _%L172253%_)))) (declare (not safe)) - (hash-ref__0 __tmp178136 __tmp178135))) - (__tmp178137 + (hash-ref__0 __tmp178242 __tmp178241))) + (__tmp178243 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172181%_ + (cons _%$field172287%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171479%_ 'receiver)) + (slot-ref__0 _%self171585%_ 'receiver)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178137 _%stx171480%_)))) - (_%__kont177509177510%_ - (lambda (_%L172021%_ _%L172022%_ _%L172023%_ _%L172024%_) - (let ((_%$field172059%_ - (let ((__tmp178139 + (gxc#xform-wrap-source __tmp178243 _%stx171586%_)))) + (_%__kont177615177616%_ + (lambda (_%L172127%_ _%L172128%_ _%L172129%_ _%L172130%_) + (let ((_%$field172165%_ + (let ((__tmp178245 (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'slots))) - (__tmp178138 + (slot-ref__0 _%self171585%_ 'slots))) + (__tmp178244 (let () (declare (not safe)) - (gx#stx-e _%L172022%_)))) + (gx#stx-e _%L172128%_)))) (declare (not safe)) - (hash-ref__0 __tmp178139 __tmp178138))) - (_%expr172060%_ + (hash-ref__0 __tmp178245 __tmp178244))) + (_%expr172166%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171479%_ _%L172021%_)))) - (let ((__tmp178140 + (gxc#compile-e__1 _%self171585%_ _%L172127%_)))) + (let ((__tmp178246 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field172059%_ + (cons _%$field172165%_ '())) (cons (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self171479%_ 'receiver)) + (slot-ref__0 _%self171585%_ 'receiver)) '())) - (cons _%expr172060%_ '()))))))) + (cons _%expr172166%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (gxc#xform-wrap-source __tmp178140 _%stx171480%_))))) - (_%__kont177511177512%_ - (lambda (_%L171893%_ _%L171894%_) - (let* ((_%accessor171916%_ - (let ((__tmp178141 + (gxc#xform-wrap-source __tmp178246 _%stx171586%_))))) + (_%__kont177617177618%_ + (lambda (_%L171999%_ _%L172000%_) + (let* ((_%accessor172022%_ + (let ((__tmp178247 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171894%_)))) + (gxc#identifier-symbol _%L172000%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178141))) - (_%klass171918%_ - (let ((__tmp178142 + (gxc#optimizer-resolve-type __tmp178247))) + (_%klass172024%_ + (let ((__tmp178248 (##structure-ref - _%accessor171916%_ + _%accessor172022%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171480%_ - __tmp178142))) - (_%slot171920%_ + _%stx171586%_ + __tmp178248))) + (_%slot172026%_ (##structure-ref - _%accessor171916%_ + _%accessor172022%_ '3 gxc#!accessor::t '#f))) (if (if (##structure-ref - _%accessor171916%_ + _%accessor172022%_ '4 gxc#!accessor::t '#f) @@ -6959,37 +6959,37 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171918%_ - _%slot171920%_)) + _%klass172024%_ + _%slot172026%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171918%_ + _%klass172024%_ '8 '#f '#f)))) - _%stx171480%_ - (let* ((_%$field171926%_ - (let ((__tmp178143 + _%stx171586%_ + (let* ((_%$field172032%_ + (let ((__tmp178249 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178143 _%slot171920%_))) - (__tmp178144 + (hash-ref__0 __tmp178249 _%slot172026%_))) + (__tmp178250 (cons '%#struct-unchecked-ref (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171926%_ + (cons _%$field172032%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6997,46 +6997,46 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'receiver)) + (slot-ref__0 _%self171585%_ 'receiver)) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178144 - _%stx171480%_)))))) - (_%__kont177513177514%_ - (lambda (_%L171788%_ _%L171789%_ _%L171790%_) - (let* ((_%mutator171818%_ - (let ((__tmp178145 + __tmp178250 + _%stx171586%_)))))) + (_%__kont177619177620%_ + (lambda (_%L171894%_ _%L171895%_ _%L171896%_) + (let* ((_%mutator171924%_ + (let ((__tmp178251 (let () (declare (not safe)) - (gxc#identifier-symbol _%L171790%_)))) + (gxc#identifier-symbol _%L171896%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp178145))) - (_%klass171820%_ - (let ((__tmp178146 + (gxc#optimizer-resolve-type __tmp178251))) + (_%klass171926%_ + (let ((__tmp178252 (##structure-ref - _%mutator171818%_ + _%mutator171924%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx171480%_ - __tmp178146))) - (_%slot171822%_ + _%stx171586%_ + __tmp178252))) + (_%slot171928%_ (##structure-ref - _%mutator171818%_ + _%mutator171924%_ '3 gxc#!mutator::t '#f)) - (_%expr171824%_ + (_%expr171930%_ (let () (declare (not safe)) - (gxc#compile-e__1 _%self171479%_ _%L171788%_)))) + (gxc#compile-e__1 _%self171585%_ _%L171894%_)))) (if (if (##structure-ref - _%mutator171818%_ + _%mutator171924%_ '4 gxc#!mutator::t '#f) @@ -7044,56 +7044,56 @@ (or (let () (declare (not safe)) (gxc#!class-struct-slot? - _%klass171820%_ - _%slot171822%_)) + _%klass171926%_ + _%slot171928%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass171820%_ + _%klass171926%_ '8 '#f '#f)))) - (let ((__tmp178147 + (let ((__tmp178253 (cons '%#call (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171790%_ '())) + (cons _%L171896%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L171789%_ + (cons _%L171895%_ '())) - (cons _%expr171824%_ + (cons _%expr171930%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp178147 _%stx171480%_)) - (let* ((_%$field171830%_ - (let ((__tmp178148 + (gxc#xform-wrap-source __tmp178253 _%stx171586%_)) + (let* ((_%$field171936%_ + (let ((__tmp178254 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'slots)))) (declare (not safe)) - (hash-ref__0 __tmp178148 _%slot171822%_))) - (__tmp178149 + (hash-ref__0 __tmp178254 _%slot171928%_))) + (__tmp178255 (cons '%#struct-unchecked-set! (cons (cons '%#ref (cons (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'klass)) '())) (cons (cons '%#ref - (cons _%$field171830%_ + (cons _%$field171936%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -7101,1846 +7101,1846 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (let () (declare (not safe)) - (slot-ref__0 _%self171479%_ 'receiver)) + (slot-ref__0 _%self171585%_ 'receiver)) '())) - (cons _%expr171824%_ '()))))))) + (cons _%expr171930%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp178149 - _%stx171480%_)))))) - (_%__kont177515177516%_ + __tmp178255 + _%stx171586%_)))))) + (_%__kont177621177622%_ (lambda () (let () (declare (not safe)) - (gxc#xform-operands _%self171479%_ _%stx171480%_))))) - (let* ((_%__match177996177997%_ - (lambda (_%e171684171724%_ - _%hd171685171727%_ - _%tl171686171729%_ - _%e171687171732%_ - _%hd171688171735%_ - _%tl171689171737%_ - _%e171690171740%_ - _%hd171691171743%_ - _%tl171692171745%_ - _%e171693171748%_ - _%hd171694171751%_ - _%tl171695171753%_ - _%e171696171756%_ - _%hd171697171759%_ - _%tl171698171761%_ - _%e171699171764%_ - _%hd171700171767%_ - _%tl171701171769%_ - _%e171702171772%_ - _%hd171703171775%_ - _%tl171704171777%_ - _%e171705171780%_ - _%hd171706171783%_ - _%tl171707171785%_) - (let ((_%L171788%_ _%hd171706171783%_) - (_%L171789%_ _%hd171703171775%_) - (_%L171790%_ _%hd171694171751%_)) - (if (and (let ((__tmp178150 + (gxc#xform-operands _%self171585%_ _%stx171586%_))))) + (let* ((_%__match178102178103%_ + (lambda (_%e171790171830%_ + _%hd171791171833%_ + _%tl171792171835%_ + _%e171793171838%_ + _%hd171794171841%_ + _%tl171795171843%_ + _%e171796171846%_ + _%hd171797171849%_ + _%tl171798171851%_ + _%e171799171854%_ + _%hd171800171857%_ + _%tl171801171859%_ + _%e171802171862%_ + _%hd171803171865%_ + _%tl171804171867%_ + _%e171805171870%_ + _%hd171806171873%_ + _%tl171807171875%_ + _%e171808171878%_ + _%hd171809171881%_ + _%tl171810171883%_ + _%e171811171886%_ + _%hd171812171889%_ + _%tl171813171891%_) + (let ((_%L171894%_ _%hd171812171889%_) + (_%L171895%_ _%hd171809171881%_) + (_%L171896%_ _%hd171800171857%_)) + (if (and (let ((__tmp178256 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171789%_ - __tmp178150)) - (let ((__tmp178151 - (let ((__tmp178152 + _%L171895%_ + __tmp178256)) + (let ((__tmp178257 + (let ((__tmp178258 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171790%_)))) + _%L171896%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178152)))) + __tmp178258)))) (declare (not safe)) (##structure-instance-of? - __tmp178151 + __tmp178257 'gxc#!mutator::t))) - (_%__kont177513177514%_ - _%L171788%_ - _%L171789%_ - _%L171790%_) - (_%__kont177515177516%_))))) - (_%__match177994177995%_ - (lambda (_%e171684171724%_ - _%hd171685171727%_ - _%tl171686171729%_ - _%e171687171732%_ - _%hd171688171735%_ - _%tl171689171737%_ - _%e171690171740%_ - _%hd171691171743%_ - _%tl171692171745%_ - _%e171693171748%_ - _%hd171694171751%_ - _%tl171695171753%_ - _%e171696171756%_ - _%hd171697171759%_ - _%tl171698171761%_ - _%e171699171764%_ - _%hd171700171767%_ - _%tl171701171769%_ - _%e171702171772%_ - _%hd171703171775%_ - _%tl171704171777%_ - _%e171705171780%_ - _%hd171706171783%_ - _%tl171707171785%_) + (_%__kont177619177620%_ + _%L171894%_ + _%L171895%_ + _%L171896%_) + (_%__kont177621177622%_))))) + (_%__match178100178101%_ + (lambda (_%e171790171830%_ + _%hd171791171833%_ + _%tl171792171835%_ + _%e171793171838%_ + _%hd171794171841%_ + _%tl171795171843%_ + _%e171796171846%_ + _%hd171797171849%_ + _%tl171798171851%_ + _%e171799171854%_ + _%hd171800171857%_ + _%tl171801171859%_ + _%e171802171862%_ + _%hd171803171865%_ + _%tl171804171867%_ + _%e171805171870%_ + _%hd171806171873%_ + _%tl171807171875%_ + _%e171808171878%_ + _%hd171809171881%_ + _%tl171810171883%_ + _%e171811171886%_ + _%hd171812171889%_ + _%tl171813171891%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171707171785%_)) - (_%__match177996177997%_ - _%e171684171724%_ - _%hd171685171727%_ - _%tl171686171729%_ - _%e171687171732%_ - _%hd171688171735%_ - _%tl171689171737%_ - _%e171690171740%_ - _%hd171691171743%_ - _%tl171692171745%_ - _%e171693171748%_ - _%hd171694171751%_ - _%tl171695171753%_ - _%e171696171756%_ - _%hd171697171759%_ - _%tl171698171761%_ - _%e171699171764%_ - _%hd171700171767%_ - _%tl171701171769%_ - _%e171702171772%_ - _%hd171703171775%_ - _%tl171704171777%_ - _%e171705171780%_ - _%hd171706171783%_ - _%tl171707171785%_) - (_%__kont177515177516%_)))) - (_%__match177988177989%_ - (lambda (_%e171684171724%_ - _%hd171685171727%_ - _%tl171686171729%_ - _%e171687171732%_ - _%hd171688171735%_ - _%tl171689171737%_ - _%e171690171740%_ - _%hd171691171743%_ - _%tl171692171745%_ - _%e171693171748%_ - _%hd171694171751%_ - _%tl171695171753%_ - _%e171696171756%_ - _%hd171697171759%_ - _%tl171698171761%_ - _%e171699171764%_ - _%hd171700171767%_ - _%tl171701171769%_ - _%e171702171772%_ - _%hd171703171775%_ - _%tl171704171777%_) + (gx#stx-null? _%tl171813171891%_)) + (_%__match178102178103%_ + _%e171790171830%_ + _%hd171791171833%_ + _%tl171792171835%_ + _%e171793171838%_ + _%hd171794171841%_ + _%tl171795171843%_ + _%e171796171846%_ + _%hd171797171849%_ + _%tl171798171851%_ + _%e171799171854%_ + _%hd171800171857%_ + _%tl171801171859%_ + _%e171802171862%_ + _%hd171803171865%_ + _%tl171804171867%_ + _%e171805171870%_ + _%hd171806171873%_ + _%tl171807171875%_ + _%e171808171878%_ + _%hd171809171881%_ + _%tl171810171883%_ + _%e171811171886%_ + _%hd171812171889%_ + _%tl171813171891%_) + (_%__kont177621177622%_)))) + (_%__match178094178095%_ + (lambda (_%e171790171830%_ + _%hd171791171833%_ + _%tl171792171835%_ + _%e171793171838%_ + _%hd171794171841%_ + _%tl171795171843%_ + _%e171796171846%_ + _%hd171797171849%_ + _%tl171798171851%_ + _%e171799171854%_ + _%hd171800171857%_ + _%tl171801171859%_ + _%e171802171862%_ + _%hd171803171865%_ + _%tl171804171867%_ + _%e171805171870%_ + _%hd171806171873%_ + _%tl171807171875%_ + _%e171808171878%_ + _%hd171809171881%_ + _%tl171810171883%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171698171761%_)) - (let ((_%e171705171780%_ + (gx#stx-pair? _%tl171804171867%_)) + (let ((_%e171811171886%_ (let () (declare (not safe)) - (gx#stx-e _%tl171698171761%_)))) - (let ((_%tl171707171785%_ + (gx#stx-e _%tl171804171867%_)))) + (let ((_%tl171813171891%_ (let () (declare (not safe)) - (##cdr _%e171705171780%_))) - (_%hd171706171783%_ + (##cdr _%e171811171886%_))) + (_%hd171812171889%_ (let () (declare (not safe)) - (##car _%e171705171780%_)))) + (##car _%e171811171886%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171707171785%_)) - (_%__match177996177997%_ - _%e171684171724%_ - _%hd171685171727%_ - _%tl171686171729%_ - _%e171687171732%_ - _%hd171688171735%_ - _%tl171689171737%_ - _%e171690171740%_ - _%hd171691171743%_ - _%tl171692171745%_ - _%e171693171748%_ - _%hd171694171751%_ - _%tl171695171753%_ - _%e171696171756%_ - _%hd171697171759%_ - _%tl171698171761%_ - _%e171699171764%_ - _%hd171700171767%_ - _%tl171701171769%_ - _%e171702171772%_ - _%hd171703171775%_ - _%tl171704171777%_ - _%e171705171780%_ - _%hd171706171783%_ - _%tl171707171785%_) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)))) - (_%__match177934177935%_ - (lambda (_%e171660171837%_ - _%hd171661171840%_ - _%tl171662171842%_ - _%e171663171845%_ - _%hd171664171848%_ - _%tl171665171850%_ - _%e171666171853%_ - _%hd171667171856%_ - _%tl171668171858%_ - _%e171669171861%_ - _%hd171670171864%_ - _%tl171671171866%_ - _%e171672171869%_ - _%hd171673171872%_ - _%tl171674171874%_ - _%e171675171877%_ - _%hd171676171880%_ - _%tl171677171882%_ - _%e171678171885%_ - _%hd171679171888%_ - _%tl171680171890%_) - (let ((_%L171893%_ _%hd171679171888%_) - (_%L171894%_ _%hd171670171864%_)) - (if (and (let ((__tmp178153 + (gx#stx-null? _%tl171813171891%_)) + (_%__match178102178103%_ + _%e171790171830%_ + _%hd171791171833%_ + _%tl171792171835%_ + _%e171793171838%_ + _%hd171794171841%_ + _%tl171795171843%_ + _%e171796171846%_ + _%hd171797171849%_ + _%tl171798171851%_ + _%e171799171854%_ + _%hd171800171857%_ + _%tl171801171859%_ + _%e171802171862%_ + _%hd171803171865%_ + _%tl171804171867%_ + _%e171805171870%_ + _%hd171806171873%_ + _%tl171807171875%_ + _%e171808171878%_ + _%hd171809171881%_ + _%tl171810171883%_ + _%e171811171886%_ + _%hd171812171889%_ + _%tl171813171891%_) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)))) + (_%__match178040178041%_ + (lambda (_%e171766171943%_ + _%hd171767171946%_ + _%tl171768171948%_ + _%e171769171951%_ + _%hd171770171954%_ + _%tl171771171956%_ + _%e171772171959%_ + _%hd171773171962%_ + _%tl171774171964%_ + _%e171775171967%_ + _%hd171776171970%_ + _%tl171777171972%_ + _%e171778171975%_ + _%hd171779171978%_ + _%tl171780171980%_ + _%e171781171983%_ + _%hd171782171986%_ + _%tl171783171988%_ + _%e171784171991%_ + _%hd171785171994%_ + _%tl171786171996%_) + (let ((_%L171999%_ _%hd171785171994%_) + (_%L172000%_ _%hd171776171970%_)) + (if (and (let ((__tmp178259 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L171893%_ - __tmp178153)) - (let ((__tmp178154 - (let ((__tmp178155 + _%L171999%_ + __tmp178259)) + (let ((__tmp178260 + (let ((__tmp178261 (let () (declare (not safe)) (gxc#identifier-symbol - _%L171894%_)))) + _%L172000%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp178155)))) + __tmp178261)))) (declare (not safe)) (##structure-instance-of? - __tmp178154 + __tmp178260 'gxc#!accessor::t))) - (_%__kont177511177512%_ _%L171893%_ _%L171894%_) - (_%__kont177515177516%_))))) - (_%__match177932177933%_ - (lambda (_%e171660171837%_ - _%hd171661171840%_ - _%tl171662171842%_ - _%e171663171845%_ - _%hd171664171848%_ - _%tl171665171850%_ - _%e171666171853%_ - _%hd171667171856%_ - _%tl171668171858%_ - _%e171669171861%_ - _%hd171670171864%_ - _%tl171671171866%_ - _%e171672171869%_ - _%hd171673171872%_ - _%tl171674171874%_ - _%e171675171877%_ - _%hd171676171880%_ - _%tl171677171882%_ - _%e171678171885%_ - _%hd171679171888%_ - _%tl171680171890%_) + (_%__kont177617177618%_ _%L171999%_ _%L172000%_) + (_%__kont177621177622%_))))) + (_%__match178038178039%_ + (lambda (_%e171766171943%_ + _%hd171767171946%_ + _%tl171768171948%_ + _%e171769171951%_ + _%hd171770171954%_ + _%tl171771171956%_ + _%e171772171959%_ + _%hd171773171962%_ + _%tl171774171964%_ + _%e171775171967%_ + _%hd171776171970%_ + _%tl171777171972%_ + _%e171778171975%_ + _%hd171779171978%_ + _%tl171780171980%_ + _%e171781171983%_ + _%hd171782171986%_ + _%tl171783171988%_ + _%e171784171991%_ + _%hd171785171994%_ + _%tl171786171996%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171674171874%_)) - (_%__match177934177935%_ - _%e171660171837%_ - _%hd171661171840%_ - _%tl171662171842%_ - _%e171663171845%_ - _%hd171664171848%_ - _%tl171665171850%_ - _%e171666171853%_ - _%hd171667171856%_ - _%tl171668171858%_ - _%e171669171861%_ - _%hd171670171864%_ - _%tl171671171866%_ - _%e171672171869%_ - _%hd171673171872%_ - _%tl171674171874%_ - _%e171675171877%_ - _%hd171676171880%_ - _%tl171677171882%_ - _%e171678171885%_ - _%hd171679171888%_ - _%tl171680171890%_) - (_%__match177988177989%_ - _%e171660171837%_ - _%hd171661171840%_ - _%tl171662171842%_ - _%e171663171845%_ - _%hd171664171848%_ - _%tl171665171850%_ - _%e171666171853%_ - _%hd171667171856%_ - _%tl171668171858%_ - _%e171669171861%_ - _%hd171670171864%_ - _%tl171671171866%_ - _%e171672171869%_ - _%hd171673171872%_ - _%tl171674171874%_ - _%e171675171877%_ - _%hd171676171880%_ - _%tl171677171882%_ - _%e171678171885%_ - _%hd171679171888%_ - _%tl171680171890%_)))) - (_%__match177878177879%_ - (lambda (_%e171625171933%_ - _%hd171626171936%_ - _%tl171627171938%_ - _%e171628171941%_ - _%hd171629171944%_ - _%tl171630171946%_ - _%e171631171949%_ - _%hd171632171952%_ - _%tl171633171954%_ - _%e171634171957%_ - _%hd171635171960%_ - _%tl171636171962%_ - _%e171637171965%_ - _%hd171638171968%_ - _%tl171639171970%_ - _%e171640171973%_ - _%hd171641171976%_ - _%tl171642171978%_ - _%e171643171981%_ - _%hd171644171984%_ - _%tl171645171986%_ - _%e171646171989%_ - _%hd171647171992%_ - _%tl171648171994%_ - _%e171649171997%_ - _%hd171650172000%_ - _%tl171651172002%_ - _%e171652172005%_ - _%hd171653172008%_ - _%tl171654172010%_ - _%e171655172013%_ - _%hd171656172016%_ - _%tl171657172018%_) - (let ((_%L172021%_ _%hd171656172016%_) - (_%L172022%_ _%hd171653172008%_) - (_%L172023%_ _%hd171644171984%_) - (_%L172024%_ _%hd171635171960%_)) + (gx#stx-null? _%tl171780171980%_)) + (_%__match178040178041%_ + _%e171766171943%_ + _%hd171767171946%_ + _%tl171768171948%_ + _%e171769171951%_ + _%hd171770171954%_ + _%tl171771171956%_ + _%e171772171959%_ + _%hd171773171962%_ + _%tl171774171964%_ + _%e171775171967%_ + _%hd171776171970%_ + _%tl171777171972%_ + _%e171778171975%_ + _%hd171779171978%_ + _%tl171780171980%_ + _%e171781171983%_ + _%hd171782171986%_ + _%tl171783171988%_ + _%e171784171991%_ + _%hd171785171994%_ + _%tl171786171996%_) + (_%__match178094178095%_ + _%e171766171943%_ + _%hd171767171946%_ + _%tl171768171948%_ + _%e171769171951%_ + _%hd171770171954%_ + _%tl171771171956%_ + _%e171772171959%_ + _%hd171773171962%_ + _%tl171774171964%_ + _%e171775171967%_ + _%hd171776171970%_ + _%tl171777171972%_ + _%e171778171975%_ + _%hd171779171978%_ + _%tl171780171980%_ + _%e171781171983%_ + _%hd171782171986%_ + _%tl171783171988%_ + _%e171784171991%_ + _%hd171785171994%_ + _%tl171786171996%_)))) + (_%__match177984177985%_ + (lambda (_%e171731172039%_ + _%hd171732172042%_ + _%tl171733172044%_ + _%e171734172047%_ + _%hd171735172050%_ + _%tl171736172052%_ + _%e171737172055%_ + _%hd171738172058%_ + _%tl171739172060%_ + _%e171740172063%_ + _%hd171741172066%_ + _%tl171742172068%_ + _%e171743172071%_ + _%hd171744172074%_ + _%tl171745172076%_ + _%e171746172079%_ + _%hd171747172082%_ + _%tl171748172084%_ + _%e171749172087%_ + _%hd171750172090%_ + _%tl171751172092%_ + _%e171752172095%_ + _%hd171753172098%_ + _%tl171754172100%_ + _%e171755172103%_ + _%hd171756172106%_ + _%tl171757172108%_ + _%e171758172111%_ + _%hd171759172114%_ + _%tl171760172116%_ + _%e171761172119%_ + _%hd171762172122%_ + _%tl171763172124%_) + (let ((_%L172127%_ _%hd171762172122%_) + (_%L172128%_ _%hd171759172114%_) + (_%L172129%_ _%hd171750172090%_) + (_%L172130%_ _%hd171741172066%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172024%_ + _%L172130%_ 'slot-set!)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172024%_ + _%L172130%_ 'unchecked-slot-set!))) - (let ((__tmp178156 + (let ((__tmp178262 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172023%_ - __tmp178156))) - (_%__kont177509177510%_ - _%L172021%_ - _%L172022%_ - _%L172023%_ - _%L172024%_) - (_%__kont177515177516%_))))) - (_%__match177870177871%_ - (lambda (_%e171625171933%_ - _%hd171626171936%_ - _%tl171627171938%_ - _%e171628171941%_ - _%hd171629171944%_ - _%tl171630171946%_ - _%e171631171949%_ - _%hd171632171952%_ - _%tl171633171954%_ - _%e171634171957%_ - _%hd171635171960%_ - _%tl171636171962%_ - _%e171637171965%_ - _%hd171638171968%_ - _%tl171639171970%_ - _%e171640171973%_ - _%hd171641171976%_ - _%tl171642171978%_ - _%e171643171981%_ - _%hd171644171984%_ - _%tl171645171986%_ - _%e171646171989%_ - _%hd171647171992%_ - _%tl171648171994%_ - _%e171649171997%_ - _%hd171650172000%_ - _%tl171651172002%_ - _%e171652172005%_ - _%hd171653172008%_ - _%tl171654172010%_) + _%L172129%_ + __tmp178262))) + (_%__kont177615177616%_ + _%L172127%_ + _%L172128%_ + _%L172129%_ + _%L172130%_) + (_%__kont177621177622%_))))) + (_%__match177976177977%_ + (lambda (_%e171731172039%_ + _%hd171732172042%_ + _%tl171733172044%_ + _%e171734172047%_ + _%hd171735172050%_ + _%tl171736172052%_ + _%e171737172055%_ + _%hd171738172058%_ + _%tl171739172060%_ + _%e171740172063%_ + _%hd171741172066%_ + _%tl171742172068%_ + _%e171743172071%_ + _%hd171744172074%_ + _%tl171745172076%_ + _%e171746172079%_ + _%hd171747172082%_ + _%tl171748172084%_ + _%e171749172087%_ + _%hd171750172090%_ + _%tl171751172092%_ + _%e171752172095%_ + _%hd171753172098%_ + _%tl171754172100%_ + _%e171755172103%_ + _%hd171756172106%_ + _%tl171757172108%_ + _%e171758172111%_ + _%hd171759172114%_ + _%tl171760172116%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171648171994%_)) - (let ((_%e171655172013%_ + (gx#stx-pair? _%tl171754172100%_)) + (let ((_%e171761172119%_ (let () (declare (not safe)) - (gx#stx-e _%tl171648171994%_)))) - (let ((_%tl171657172018%_ + (gx#stx-e _%tl171754172100%_)))) + (let ((_%tl171763172124%_ (let () (declare (not safe)) - (##cdr _%e171655172013%_))) - (_%hd171656172016%_ + (##cdr _%e171761172119%_))) + (_%hd171762172122%_ (let () (declare (not safe)) - (##car _%e171655172013%_)))) + (##car _%e171761172119%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171657172018%_)) - (_%__match177878177879%_ - _%e171625171933%_ - _%hd171626171936%_ - _%tl171627171938%_ - _%e171628171941%_ - _%hd171629171944%_ - _%tl171630171946%_ - _%e171631171949%_ - _%hd171632171952%_ - _%tl171633171954%_ - _%e171634171957%_ - _%hd171635171960%_ - _%tl171636171962%_ - _%e171637171965%_ - _%hd171638171968%_ - _%tl171639171970%_ - _%e171640171973%_ - _%hd171641171976%_ - _%tl171642171978%_ - _%e171643171981%_ - _%hd171644171984%_ - _%tl171645171986%_ - _%e171646171989%_ - _%hd171647171992%_ - _%tl171648171994%_ - _%e171649171997%_ - _%hd171650172000%_ - _%tl171651172002%_ - _%e171652172005%_ - _%hd171653172008%_ - _%tl171654172010%_ - _%e171655172013%_ - _%hd171656172016%_ - _%tl171657172018%_) - (_%__kont177515177516%_)))) - (_%__match177994177995%_ - _%e171625171933%_ - _%hd171626171936%_ - _%tl171627171938%_ - _%e171628171941%_ - _%hd171629171944%_ - _%tl171630171946%_ - _%e171631171949%_ - _%hd171632171952%_ - _%tl171633171954%_ - _%e171634171957%_ - _%hd171635171960%_ - _%tl171636171962%_ - _%e171637171965%_ - _%hd171638171968%_ - _%tl171639171970%_ - _%e171640171973%_ - _%hd171641171976%_ - _%tl171642171978%_ - _%e171643171981%_ - _%hd171644171984%_ - _%tl171645171986%_ - _%e171646171989%_ - _%hd171647171992%_ - _%tl171648171994%_)))) - (_%__match177792177793%_ - (lambda (_%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_) - (let ((_%L172147%_ _%hd171619172142%_) - (_%L172148%_ _%hd171610172118%_) - (_%L172149%_ _%hd171601172094%_)) + (gx#stx-null? _%tl171763172124%_)) + (_%__match177984177985%_ + _%e171731172039%_ + _%hd171732172042%_ + _%tl171733172044%_ + _%e171734172047%_ + _%hd171735172050%_ + _%tl171736172052%_ + _%e171737172055%_ + _%hd171738172058%_ + _%tl171739172060%_ + _%e171740172063%_ + _%hd171741172066%_ + _%tl171742172068%_ + _%e171743172071%_ + _%hd171744172074%_ + _%tl171745172076%_ + _%e171746172079%_ + _%hd171747172082%_ + _%tl171748172084%_ + _%e171749172087%_ + _%hd171750172090%_ + _%tl171751172092%_ + _%e171752172095%_ + _%hd171753172098%_ + _%tl171754172100%_ + _%e171755172103%_ + _%hd171756172106%_ + _%tl171757172108%_ + _%e171758172111%_ + _%hd171759172114%_ + _%tl171760172116%_ + _%e171761172119%_ + _%hd171762172122%_ + _%tl171763172124%_) + (_%__kont177621177622%_)))) + (_%__match178100178101%_ + _%e171731172039%_ + _%hd171732172042%_ + _%tl171733172044%_ + _%e171734172047%_ + _%hd171735172050%_ + _%tl171736172052%_ + _%e171737172055%_ + _%hd171738172058%_ + _%tl171739172060%_ + _%e171740172063%_ + _%hd171741172066%_ + _%tl171742172068%_ + _%e171743172071%_ + _%hd171744172074%_ + _%tl171745172076%_ + _%e171746172079%_ + _%hd171747172082%_ + _%tl171748172084%_ + _%e171749172087%_ + _%hd171750172090%_ + _%tl171751172092%_ + _%e171752172095%_ + _%hd171753172098%_ + _%tl171754172100%_)))) + (_%__match177898177899%_ + (lambda (_%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_) + (let ((_%L172253%_ _%hd171725172248%_) + (_%L172254%_ _%hd171716172224%_) + (_%L172255%_ _%hd171707172200%_)) (if (and (or (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172149%_ + _%L172255%_ 'slot-ref)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172149%_ + _%L172255%_ 'unchecked-slot-ref))) - (let ((__tmp178157 + (let ((__tmp178263 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172148%_ - __tmp178157))) - (_%__kont177507177508%_ - _%L172147%_ - _%L172148%_ - _%L172149%_) - (_%__match177996177997%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_))))) - (_%__match177790177791%_ - (lambda (_%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_) + _%L172254%_ + __tmp178263))) + (_%__kont177613177614%_ + _%L172253%_ + _%L172254%_ + _%L172255%_) + (_%__match178102178103%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_))))) + (_%__match177896177897%_ + (lambda (_%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171614172128%_)) - (_%__match177792177793%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_) - (_%__match177870177871%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_)))) - (_%__match177780177781%_ - (lambda (_%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_) + (gx#stx-null? _%tl171720172234%_)) + (_%__match177898177899%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_) + (_%__match177976177977%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_)))) + (_%__match177886177887%_ + (lambda (_%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171616172134%_)) + (gx#stx-eq? '%#quote _%hd171722172240%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171617172136%_)) - (let ((_%e171618172139%_ + (gx#stx-pair? _%tl171723172242%_)) + (let ((_%e171724172245%_ (let () (declare (not safe)) - (gx#stx-e _%tl171617172136%_)))) - (let ((_%tl171620172144%_ + (gx#stx-e _%tl171723172242%_)))) + (let ((_%tl171726172250%_ (let () (declare (not safe)) - (##cdr _%e171618172139%_))) - (_%hd171619172142%_ + (##cdr _%e171724172245%_))) + (_%hd171725172248%_ (let () (declare (not safe)) - (##car _%e171618172139%_)))) + (##car _%e171724172245%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171620172144%_)) + (gx#stx-null? _%tl171726172250%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171614172128%_)) - (_%__match177792177793%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_) - (_%__match177870177871%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_ - _%e171615172131%_ - _%hd171616172134%_ - _%tl171617172136%_ - _%e171618172139%_ - _%hd171619172142%_ - _%tl171620172144%_)) - (_%__match177994177995%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_)))) - (_%__match177994177995%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_)) - (_%__match177994177995%_ - _%e171591172067%_ - _%hd171592172070%_ - _%tl171593172072%_ - _%e171594172075%_ - _%hd171595172078%_ - _%tl171596172080%_ - _%e171597172083%_ - _%hd171598172086%_ - _%tl171599172088%_ - _%e171600172091%_ - _%hd171601172094%_ - _%tl171602172096%_ - _%e171603172099%_ - _%hd171604172102%_ - _%tl171605172104%_ - _%e171606172107%_ - _%hd171607172110%_ - _%tl171608172112%_ - _%e171609172115%_ - _%hd171610172118%_ - _%tl171611172120%_ - _%e171612172123%_ - _%hd171613172126%_ - _%tl171614172128%_)))) - (_%__match177712177713%_ - (lambda (_%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_ - _%e171564172252%_ - _%hd171565172255%_ - _%tl171566172257%_ - _%e171567172260%_ - _%hd171568172263%_ - _%tl171569172265%_ - _%e171570172268%_ - _%hd171571172271%_ - _%tl171572172273%_ - _%e171573172276%_ - _%hd171574172279%_ - _%tl171575172281%_ - _%e171576172284%_ - _%hd171577172287%_ - _%tl171578172289%_ - _%__splice177505177506%_ - _%target171579172292%_ - _%tl171581172294%_) - (letrec ((_%loop171582172297%_ - (lambda (_%hd171580172300%_ - _%args171586172302%_) + _%tl171720172234%_)) + (_%__match177898177899%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_) + (_%__match177976177977%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_ + _%e171721172237%_ + _%hd171722172240%_ + _%tl171723172242%_ + _%e171724172245%_ + _%hd171725172248%_ + _%tl171726172250%_)) + (_%__match178100178101%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_)))) + (_%__match178100178101%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_)) + (_%__match178100178101%_ + _%e171697172173%_ + _%hd171698172176%_ + _%tl171699172178%_ + _%e171700172181%_ + _%hd171701172184%_ + _%tl171702172186%_ + _%e171703172189%_ + _%hd171704172192%_ + _%tl171705172194%_ + _%e171706172197%_ + _%hd171707172200%_ + _%tl171708172202%_ + _%e171709172205%_ + _%hd171710172208%_ + _%tl171711172210%_ + _%e171712172213%_ + _%hd171713172216%_ + _%tl171714172218%_ + _%e171715172221%_ + _%hd171716172224%_ + _%tl171717172226%_ + _%e171718172229%_ + _%hd171719172232%_ + _%tl171720172234%_)))) + (_%__match177818177819%_ + (lambda (_%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_ + _%e171670172358%_ + _%hd171671172361%_ + _%tl171672172363%_ + _%e171673172366%_ + _%hd171674172369%_ + _%tl171675172371%_ + _%e171676172374%_ + _%hd171677172377%_ + _%tl171678172379%_ + _%e171679172382%_ + _%hd171680172385%_ + _%tl171681172387%_ + _%e171682172390%_ + _%hd171683172393%_ + _%tl171684172395%_ + _%__splice177611177612%_ + _%target171685172398%_ + _%tl171687172400%_) + (letrec ((_%loop171688172403%_ + (lambda (_%hd171686172406%_ + _%args171692172408%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171580172300%_)) - (let ((_%e171583172305%_ + (gx#stx-pair? _%hd171686172406%_)) + (let ((_%e171689172411%_ (let () (declare (not safe)) (gx#stx-e - _%hd171580172300%_)))) - (let ((_%lp-tl171585172310%_ + _%hd171686172406%_)))) + (let ((_%lp-tl171691172416%_ (let () (declare (not safe)) - (##cdr _%e171583172305%_))) - (_%lp-hd171584172308%_ + (##cdr _%e171689172411%_))) + (_%lp-hd171690172414%_ (let () (declare (not safe)) - (##car _%e171583172305%_)))) - (_%loop171582172297%_ - _%lp-tl171585172310%_ - (cons _%lp-hd171584172308%_ - _%args171586172302%_)))) - (let ((_%args171587172313%_ - (reverse _%args171586172302%_))) - (let ((_%L172316%_ - _%args171587172313%_) - (_%L172317%_ - _%hd171577172287%_) - (_%L172318%_ - _%hd171568172263%_) - (_%L172319%_ - _%hd171559172239%_) - (_%L172320%_ - _%hd171550172215%_)) + (##car _%e171689172411%_)))) + (_%loop171688172403%_ + _%lp-tl171691172416%_ + (cons _%lp-hd171690172414%_ + _%args171692172408%_)))) + (let ((_%args171693172419%_ + (reverse _%args171692172408%_))) + (let ((_%L172422%_ + _%args171693172419%_) + (_%L172423%_ + _%hd171683172393%_) + (_%L172424%_ + _%hd171674172369%_) + (_%L172425%_ + _%hd171665172345%_) + (_%L172426%_ + _%hd171656172321%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172320%_ + _%L172426%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172319%_ + _%L172425%_ 'call-method)) - (let ((__tmp178158 + (let ((__tmp178264 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172318%_ - __tmp178158))) - (_%__kont177503177504%_ - _%L172316%_ - _%L172317%_ - _%L172318%_ - _%L172319%_ - _%L172320%_) - (_%__kont177515177516%_)))))))) - (_%loop171582172297%_ _%target171579172292%_ '())))) - (_%__match177670177671%_ - (lambda (_%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_ - _%e171564172252%_ - _%hd171565172255%_ - _%tl171566172257%_) + _%L172424%_ + __tmp178264))) + (_%__kont177609177610%_ + _%L172422%_ + _%L172423%_ + _%L172424%_ + _%L172425%_ + _%L172426%_) + (_%__kont177621177622%_)))))))) + (_%loop171688172403%_ _%target171685172398%_ '())))) + (_%__match177776177777%_ + (lambda (_%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_ + _%e171670172358%_ + _%hd171671172361%_ + _%tl171672172363%_) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd171565172255%_)) + (gx#stx-eq? '%#ref _%hd171671172361%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171566172257%_)) - (let ((_%e171567172260%_ + (gx#stx-pair? _%tl171672172363%_)) + (let ((_%e171673172366%_ (let () (declare (not safe)) - (gx#stx-e _%tl171566172257%_)))) - (let ((_%tl171569172265%_ + (gx#stx-e _%tl171672172363%_)))) + (let ((_%tl171675172371%_ (let () (declare (not safe)) - (##cdr _%e171567172260%_))) - (_%hd171568172263%_ + (##cdr _%e171673172366%_))) + (_%hd171674172369%_ (let () (declare (not safe)) - (##car _%e171567172260%_)))) + (##car _%e171673172366%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171569172265%_)) + (gx#stx-null? _%tl171675172371%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171563172249%_)) - (let ((_%e171570172268%_ + _%tl171669172355%_)) + (let ((_%e171676172374%_ (let () (declare (not safe)) (gx#stx-e - _%tl171563172249%_)))) - (let ((_%tl171572172273%_ + _%tl171669172355%_)))) + (let ((_%tl171678172379%_ (let () (declare (not safe)) - (##cdr _%e171570172268%_))) - (_%hd171571172271%_ + (##cdr _%e171676172374%_))) + (_%hd171677172377%_ (let () (declare (not safe)) - (##car _%e171570172268%_)))) + (##car _%e171676172374%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd171571172271%_)) - (let ((_%e171573172276%_ + _%hd171677172377%_)) + (let ((_%e171679172382%_ (let () (declare (not safe)) (gx#stx-e - _%hd171571172271%_)))) - (let ((_%tl171575172281%_ + _%hd171677172377%_)))) + (let ((_%tl171681172387%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171573172276%_))) - (_%hd171574172279%_ - (let () (declare (not safe)) (##car _%e171573172276%_)))) + (##cdr _%e171679172382%_))) + (_%hd171680172385%_ + (let () (declare (not safe)) (##car _%e171679172382%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171574172279%_)) + (gx#identifier? _%hd171680172385%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd171574172279%_)) + (gx#stx-eq? '%#quote _%hd171680172385%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171575172281%_)) - (let ((_%e171576172284%_ + (gx#stx-pair? _%tl171681172387%_)) + (let ((_%e171682172390%_ (let () (declare (not safe)) - (gx#stx-e _%tl171575172281%_)))) - (let ((_%tl171578172289%_ + (gx#stx-e _%tl171681172387%_)))) + (let ((_%tl171684172395%_ (let () (declare (not safe)) - (##cdr _%e171576172284%_))) - (_%hd171577172287%_ + (##cdr _%e171682172390%_))) + (_%hd171683172393%_ (let () (declare (not safe)) - (##car _%e171576172284%_)))) + (##car _%e171682172390%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171578172289%_)) + (gx#stx-null? _%tl171684172395%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171572172273%_)) - (let ((_%__splice177505177506%_ + _%tl171678172379%_)) + (let ((_%__splice177611177612%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl171572172273%_ + _%tl171678172379%_ '0)))) - (let ((_%tl171581172294%_ + (let ((_%tl171687172400%_ (let () (declare (not safe)) (##vector-ref - _%__splice177505177506%_ + _%__splice177611177612%_ '1))) - (_%target171579172292%_ + (_%target171685172398%_ (let () (declare (not safe)) (##vector-ref - _%__splice177505177506%_ + _%__splice177611177612%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171581172294%_)) - (_%__match177712177713%_ - _%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_ - _%e171564172252%_ - _%hd171565172255%_ - _%tl171566172257%_ - _%e171567172260%_ - _%hd171568172263%_ - _%tl171569172265%_ - _%e171570172268%_ - _%hd171571172271%_ - _%tl171572172273%_ - _%e171573172276%_ - _%hd171574172279%_ - _%tl171575172281%_ - _%e171576172284%_ - _%hd171577172287%_ - _%tl171578172289%_ - _%__splice177505177506%_ - _%target171579172292%_ - _%tl171581172294%_) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)))) + _%tl171687172400%_)) + (_%__match177818177819%_ + _%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_ + _%e171670172358%_ + _%hd171671172361%_ + _%tl171672172363%_ + _%e171673172366%_ + _%hd171674172369%_ + _%tl171675172371%_ + _%e171676172374%_ + _%hd171677172377%_ + _%tl171678172379%_ + _%e171679172382%_ + _%hd171680172385%_ + _%tl171681172387%_ + _%e171682172390%_ + _%hd171683172393%_ + _%tl171684172395%_ + _%__splice177611177612%_ + _%target171685172398%_ + _%tl171687172400%_) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177515177516%_)))) - (_%__match177994177995%_ - _%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_)) - (_%__match177994177995%_ - _%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_)))) - (_%__match177994177995%_ - _%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_)) - (_%__match177780177781%_ - _%e171540172188%_ - _%hd171541172191%_ - _%tl171542172193%_ - _%e171543172196%_ - _%hd171544172199%_ - _%tl171545172201%_ - _%e171546172204%_ - _%hd171547172207%_ - _%tl171548172209%_ - _%e171549172212%_ - _%hd171550172215%_ - _%tl171551172217%_ - _%e171552172220%_ - _%hd171553172223%_ - _%tl171554172225%_ - _%e171555172228%_ - _%hd171556172231%_ - _%tl171557172233%_ - _%e171558172236%_ - _%hd171559172239%_ - _%tl171560172241%_ - _%e171561172244%_ - _%hd171562172247%_ - _%tl171563172249%_ - _%e171564172252%_ - _%hd171565172255%_ - _%tl171566172257%_)))) - (_%__match177602177603%_ - (lambda (_%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_ - _%e171523172452%_ - _%hd171524172455%_ - _%tl171525172457%_ - _%__splice177501177502%_ - _%target171526172460%_ - _%tl171528172462%_) - (letrec ((_%loop171529172465%_ - (lambda (_%hd171527172468%_ - _%args171533172470%_) + (_%__kont177621177622%_)))) + (_%__match178100178101%_ + _%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_)) + (_%__match178100178101%_ + _%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_)))) + (_%__match178100178101%_ + _%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_)) + (_%__match177886177887%_ + _%e171646172294%_ + _%hd171647172297%_ + _%tl171648172299%_ + _%e171649172302%_ + _%hd171650172305%_ + _%tl171651172307%_ + _%e171652172310%_ + _%hd171653172313%_ + _%tl171654172315%_ + _%e171655172318%_ + _%hd171656172321%_ + _%tl171657172323%_ + _%e171658172326%_ + _%hd171659172329%_ + _%tl171660172331%_ + _%e171661172334%_ + _%hd171662172337%_ + _%tl171663172339%_ + _%e171664172342%_ + _%hd171665172345%_ + _%tl171666172347%_ + _%e171667172350%_ + _%hd171668172353%_ + _%tl171669172355%_ + _%e171670172358%_ + _%hd171671172361%_ + _%tl171672172363%_)))) + (_%__match177708177709%_ + (lambda (_%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_ + _%e171629172558%_ + _%hd171630172561%_ + _%tl171631172563%_ + _%__splice177607177608%_ + _%target171632172566%_ + _%tl171634172568%_) + (letrec ((_%loop171635172571%_ + (lambda (_%hd171633172574%_ + _%args171639172576%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171527172468%_)) - (let ((_%e171530172473%_ + (gx#stx-pair? _%hd171633172574%_)) + (let ((_%e171636172579%_ (let () (declare (not safe)) (gx#stx-e - _%hd171527172468%_)))) - (let ((_%lp-tl171532172478%_ + _%hd171633172574%_)))) + (let ((_%lp-tl171638172584%_ (let () (declare (not safe)) - (##cdr _%e171530172473%_))) - (_%lp-hd171531172476%_ + (##cdr _%e171636172579%_))) + (_%lp-hd171637172582%_ (let () (declare (not safe)) - (##car _%e171530172473%_)))) - (_%loop171529172465%_ - _%lp-tl171532172478%_ - (cons _%lp-hd171531172476%_ - _%args171533172470%_)))) - (let ((_%args171534172481%_ - (reverse _%args171533172470%_))) - (let ((_%L172484%_ - _%args171534172481%_) - (_%L172485%_ - _%hd171524172455%_) - (_%L172486%_ - _%hd171515172431%_) - (_%L172487%_ - _%hd171506172407%_)) + (##car _%e171636172579%_)))) + (_%loop171635172571%_ + _%lp-tl171638172584%_ + (cons _%lp-hd171637172582%_ + _%args171639172576%_)))) + (let ((_%args171640172587%_ + (reverse _%args171639172576%_))) + (let ((_%L172590%_ + _%args171640172587%_) + (_%L172591%_ + _%hd171630172561%_) + (_%L172592%_ + _%hd171621172537%_) + (_%L172593%_ + _%hd171612172513%_)) (if (and (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L172487%_ + _%L172593%_ 'call-method)) - (let ((__tmp178159 + (let ((__tmp178265 (let () (declare (not safe)) (slot-ref__0 - _%self171479%_ + _%self171585%_ 'receiver)))) (declare (not safe)) (gx#free-identifier=? - _%L172486%_ - __tmp178159))) - (_%__kont177499177500%_ - _%L172484%_ - _%L172485%_ - _%L172486%_ - _%L172487%_) - (_%__match177790177791%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_ - _%e171523172452%_ - _%hd171524172455%_ - _%tl171525172457%_)))))))) - (_%loop171529172465%_ _%target171526172460%_ '()))))) + _%L172592%_ + __tmp178265))) + (_%__kont177605177606%_ + _%L172590%_ + _%L172591%_ + _%L172592%_ + _%L172593%_) + (_%__match177896177897%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_ + _%e171629172558%_ + _%hd171630172561%_ + _%tl171631172563%_)))))))) + (_%loop171635172571%_ _%target171632172566%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx177497177498%_)) - (let ((_%e171496172380%_ + (gx#stx-pair? _%__stx177603177604%_)) + (let ((_%e171602172486%_ (let () (declare (not safe)) - (gx#stx-e _%__stx177497177498%_)))) - (let ((_%tl171498172385%_ + (gx#stx-e _%__stx177603177604%_)))) + (let ((_%tl171604172491%_ (let () (declare (not safe)) - (##cdr _%e171496172380%_))) - (_%hd171497172383%_ + (##cdr _%e171602172486%_))) + (_%hd171603172489%_ (let () (declare (not safe)) - (##car _%e171496172380%_)))) + (##car _%e171602172486%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171498172385%_)) - (let ((_%e171499172388%_ + (gx#stx-pair? _%tl171604172491%_)) + (let ((_%e171605172494%_ (let () (declare (not safe)) - (gx#stx-e _%tl171498172385%_)))) - (let ((_%tl171501172393%_ + (gx#stx-e _%tl171604172491%_)))) + (let ((_%tl171607172499%_ (let () (declare (not safe)) - (##cdr _%e171499172388%_))) - (_%hd171500172391%_ + (##cdr _%e171605172494%_))) + (_%hd171606172497%_ (let () (declare (not safe)) - (##car _%e171499172388%_)))) + (##car _%e171605172494%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171500172391%_)) - (let ((_%e171502172396%_ + (gx#stx-pair? _%hd171606172497%_)) + (let ((_%e171608172502%_ (let () (declare (not safe)) - (gx#stx-e _%hd171500172391%_)))) - (let ((_%tl171504172401%_ + (gx#stx-e _%hd171606172497%_)))) + (let ((_%tl171610172507%_ (let () (declare (not safe)) - (##cdr _%e171502172396%_))) - (_%hd171503172399%_ + (##cdr _%e171608172502%_))) + (_%hd171609172505%_ (let () (declare (not safe)) - (##car _%e171502172396%_)))) + (##car _%e171608172502%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd171503172399%_)) + _%hd171609172505%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171503172399%_)) + _%hd171609172505%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171504172401%_)) - (let ((_%e171505172404%_ + _%tl171610172507%_)) + (let ((_%e171611172510%_ (let () (declare (not safe)) (gx#stx-e - _%tl171504172401%_)))) - (let ((_%tl171507172409%_ + _%tl171610172507%_)))) + (let ((_%tl171613172515%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e171505172404%_))) - (_%hd171506172407%_ - (let () (declare (not safe)) (##car _%e171505172404%_)))) + (##cdr _%e171611172510%_))) + (_%hd171612172513%_ + (let () (declare (not safe)) (##car _%e171611172510%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171507172409%_)) + (gx#stx-null? _%tl171613172515%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl171501172393%_)) - (let ((_%e171508172412%_ + (gx#stx-pair? _%tl171607172499%_)) + (let ((_%e171614172518%_ (let () (declare (not safe)) - (gx#stx-e _%tl171501172393%_)))) - (let ((_%tl171510172417%_ + (gx#stx-e _%tl171607172499%_)))) + (let ((_%tl171616172523%_ (let () (declare (not safe)) - (##cdr _%e171508172412%_))) - (_%hd171509172415%_ + (##cdr _%e171614172518%_))) + (_%hd171615172521%_ (let () (declare (not safe)) - (##car _%e171508172412%_)))) + (##car _%e171614172518%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171509172415%_)) - (let ((_%e171511172420%_ + (gx#stx-pair? _%hd171615172521%_)) + (let ((_%e171617172526%_ (let () (declare (not safe)) - (gx#stx-e _%hd171509172415%_)))) - (let ((_%tl171513172425%_ + (gx#stx-e _%hd171615172521%_)))) + (let ((_%tl171619172531%_ (let () (declare (not safe)) - (##cdr _%e171511172420%_))) - (_%hd171512172423%_ + (##cdr _%e171617172526%_))) + (_%hd171618172529%_ (let () (declare (not safe)) - (##car _%e171511172420%_)))) + (##car _%e171617172526%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171512172423%_)) + (gx#identifier? _%hd171618172529%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd171512172423%_)) + _%hd171618172529%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171513172425%_)) - (let ((_%e171514172428%_ + _%tl171619172531%_)) + (let ((_%e171620172534%_ (let () (declare (not safe)) (gx#stx-e - _%tl171513172425%_)))) - (let ((_%tl171516172433%_ + _%tl171619172531%_)))) + (let ((_%tl171622172539%_ (let () (declare (not safe)) - (##cdr _%e171514172428%_))) - (_%hd171515172431%_ + (##cdr _%e171620172534%_))) + (_%hd171621172537%_ (let () (declare (not safe)) - (##car _%e171514172428%_)))) + (##car _%e171620172534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171516172433%_)) + _%tl171622172539%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171510172417%_)) - (let ((_%e171517172436%_ + _%tl171616172523%_)) + (let ((_%e171623172542%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl171510172417%_)))) - (let ((_%tl171519172441%_ + (gx#stx-e _%tl171616172523%_)))) + (let ((_%tl171625172547%_ (let () (declare (not safe)) - (##cdr _%e171517172436%_))) - (_%hd171518172439%_ + (##cdr _%e171623172542%_))) + (_%hd171624172545%_ (let () (declare (not safe)) - (##car _%e171517172436%_)))) + (##car _%e171623172542%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd171518172439%_)) - (let ((_%e171520172444%_ + (gx#stx-pair? _%hd171624172545%_)) + (let ((_%e171626172550%_ (let () (declare (not safe)) - (gx#stx-e _%hd171518172439%_)))) - (let ((_%tl171522172449%_ + (gx#stx-e _%hd171624172545%_)))) + (let ((_%tl171628172555%_ (let () (declare (not safe)) - (##cdr _%e171520172444%_))) - (_%hd171521172447%_ + (##cdr _%e171626172550%_))) + (_%hd171627172553%_ (let () (declare (not safe)) - (##car _%e171520172444%_)))) + (##car _%e171626172550%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd171521172447%_)) + (gx#identifier? _%hd171627172553%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd171521172447%_)) + _%hd171627172553%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl171522172449%_)) - (let ((_%e171523172452%_ + _%tl171628172555%_)) + (let ((_%e171629172558%_ (let () (declare (not safe)) (gx#stx-e - _%tl171522172449%_)))) - (let ((_%tl171525172457%_ + _%tl171628172555%_)))) + (let ((_%tl171631172563%_ (let () (declare (not safe)) - (##cdr _%e171523172452%_))) - (_%hd171524172455%_ + (##cdr _%e171629172558%_))) + (_%hd171630172561%_ (let () (declare (not safe)) - (##car _%e171523172452%_)))) + (##car _%e171629172558%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl171525172457%_)) + _%tl171631172563%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl171519172441%_)) - (let ((_%__splice177501177502%_ + _%tl171625172547%_)) + (let ((_%__splice177607177608%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-split-splice _%tl171519172441%_ '0)))) - (let ((_%tl171528172462%_ + (gx#syntax-split-splice _%tl171625172547%_ '0)))) + (let ((_%tl171634172568%_ (let () (declare (not safe)) - (##vector-ref _%__splice177501177502%_ '1))) - (_%target171526172460%_ + (##vector-ref _%__splice177607177608%_ '1))) + (_%target171632172566%_ (let () (declare (not safe)) - (##vector-ref _%__splice177501177502%_ '0)))) + (##vector-ref _%__splice177607177608%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl171528172462%_)) - (_%__match177602177603%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_ - _%e171523172452%_ - _%hd171524172455%_ - _%tl171525172457%_ - _%__splice177501177502%_ - _%target171526172460%_ - _%tl171528172462%_) - (_%__match177790177791%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_ - _%e171523172452%_ - _%hd171524172455%_ - _%tl171525172457%_)))) - (_%__match177790177791%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_ - _%e171523172452%_ - _%hd171524172455%_ - _%tl171525172457%_)) + (gx#stx-null? _%tl171634172568%_)) + (_%__match177708177709%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_ + _%e171629172558%_ + _%hd171630172561%_ + _%tl171631172563%_ + _%__splice177607177608%_ + _%target171632172566%_ + _%tl171634172568%_) + (_%__match177896177897%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_ + _%e171629172558%_ + _%hd171630172561%_ + _%tl171631172563%_)))) + (_%__match177896177897%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_ + _%e171629172558%_ + _%hd171630172561%_ + _%tl171631172563%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match177994177995%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_)))) - (_%__match177994177995%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_)) - (_%__match177670177671%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_ - _%e171520172444%_ - _%hd171521172447%_ - _%tl171522172449%_)) - (_%__match177994177995%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_)))) - (_%__match177994177995%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_ - _%e171517172436%_ - _%hd171518172439%_ - _%tl171519172441%_)))) - (_%__match177932177933%_ - _%e171496172380%_ - _%hd171497172383%_ - _%tl171498172385%_ - _%e171499172388%_ - _%hd171500172391%_ - _%tl171501172393%_ - _%e171502172396%_ - _%hd171503172399%_ - _%tl171504172401%_ - _%e171505172404%_ - _%hd171506172407%_ - _%tl171507172409%_ - _%e171508172412%_ - _%hd171509172415%_ - _%tl171510172417%_ - _%e171511172420%_ - _%hd171512172423%_ - _%tl171513172425%_ - _%e171514172428%_ - _%hd171515172431%_ - _%tl171516172433%_)) - (_%__kont177515177516%_)))) + (_%__match178100178101%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_)))) + (_%__match178100178101%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_)) + (_%__match177776177777%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_ + _%e171626172550%_ + _%hd171627172553%_ + _%tl171628172555%_)) + (_%__match178100178101%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_)))) + (_%__match178100178101%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_ + _%e171623172542%_ + _%hd171624172545%_ + _%tl171625172547%_)))) + (_%__match178038178039%_ + _%e171602172486%_ + _%hd171603172489%_ + _%tl171604172491%_ + _%e171605172494%_ + _%hd171606172497%_ + _%tl171607172499%_ + _%e171608172502%_ + _%hd171609172505%_ + _%tl171610172507%_ + _%e171611172510%_ + _%hd171612172513%_ + _%tl171613172515%_ + _%e171614172518%_ + _%hd171615172521%_ + _%tl171616172523%_ + _%e171617172526%_ + _%hd171618172529%_ + _%tl171619172531%_ + _%e171620172534%_ + _%hd171621172537%_ + _%tl171622172539%_)) + (_%__kont177621177622%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177515177516%_)) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)))) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont177515177516%_)) - (_%__kont177515177516%_)) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)))) - (_%__kont177515177516%_)))))))))) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)))) + (_%__kont177621177622%_)))))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm index f9f53cfe9..1a6c690ca 100644 --- a/src/bootstrap/gerbil/compiler/optimize-spec~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-spec~1.scm @@ -1,307 +1,307 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g178161_| + (define |gxc[1]#_g178267_| (##structure gx#syntax-quote::t '::identity #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178163_| + (define |gxc[1]#_g178269_| (##structure gx#syntax-quote::t '::generate-method-specializers::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178165_| + (define |gxc[1]#_g178271_| (##structure gx#syntax-quote::t 'make-::generate-method-specializers #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178167_| + (define |gxc[1]#_g178273_| (##structure gx#syntax-quote::t '::generate-method-specializers? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178169_| + (define |gxc[1]#_g178275_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178171_| + (define |gxc[1]#_g178277_| (##structure gx#syntax-quote::t '::extract-receiver::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178173_| + (define |gxc[1]#_g178279_| (##structure gx#syntax-quote::t 'make-::extract-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178175_| + (define |gxc[1]#_g178281_| (##structure gx#syntax-quote::t '::extract-receiver? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178177_| + (define |gxc[1]#_g178283_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178179_| + (define |gxc[1]#_g178285_| (##structure gx#syntax-quote::t '::collect-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178181_| + (define |gxc[1]#_g178287_| (##structure gx#syntax-quote::t 'make-::collect-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178183_| + (define |gxc[1]#_g178289_| (##structure gx#syntax-quote::t '::collect-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178185_| + (define |gxc[1]#_g178291_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178186_| + (define |gxc[1]#_g178292_| (##structure gx#syntax-quote::t '::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178187_| + (define |gxc[1]#_g178293_| (##structure gx#syntax-quote::t '::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178189_| + (define |gxc[1]#_g178295_| (##structure gx#syntax-quote::t '::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178190_| + (define |gxc[1]#_g178296_| (##structure gx#syntax-quote::t '::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178191_| + (define |gxc[1]#_g178297_| (##structure gx#syntax-quote::t '::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178193_| + (define |gxc[1]#_g178299_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178194_| + (define |gxc[1]#_g178300_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178195_| + (define |gxc[1]#_g178301_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178197_| + (define |gxc[1]#_g178303_| (##structure gx#syntax-quote::t '&::collect-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178198_| + (define |gxc[1]#_g178304_| (##structure gx#syntax-quote::t '&::collect-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178199_| + (define |gxc[1]#_g178305_| (##structure gx#syntax-quote::t '&::collect-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178201_| + (define |gxc[1]#_g178307_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178203_| + (define |gxc[1]#_g178309_| (##structure gx#syntax-quote::t '::subst-object-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178205_| + (define |gxc[1]#_g178311_| (##structure gx#syntax-quote::t 'make-::subst-object-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178207_| + (define |gxc[1]#_g178313_| (##structure gx#syntax-quote::t '::subst-object-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178209_| + (define |gxc[1]#_g178315_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178210_| + (define |gxc[1]#_g178316_| (##structure gx#syntax-quote::t '::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178211_| + (define |gxc[1]#_g178317_| (##structure gx#syntax-quote::t '::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178212_| + (define |gxc[1]#_g178318_| (##structure gx#syntax-quote::t '::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178214_| + (define |gxc[1]#_g178320_| (##structure gx#syntax-quote::t '::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178215_| + (define |gxc[1]#_g178321_| (##structure gx#syntax-quote::t '::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178216_| + (define |gxc[1]#_g178322_| (##structure gx#syntax-quote::t '::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178217_| + (define |gxc[1]#_g178323_| (##structure gx#syntax-quote::t '::subst-object-refs-slots-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178219_| + (define |gxc[1]#_g178325_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178220_| + (define |gxc[1]#_g178326_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178221_| + (define |gxc[1]#_g178327_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178222_| + (define |gxc[1]#_g178328_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178224_| + (define |gxc[1]#_g178330_| (##structure gx#syntax-quote::t '&::subst-object-refs-receiver-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178225_| + (define |gxc[1]#_g178331_| (##structure gx#syntax-quote::t '&::subst-object-refs-klass-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178226_| + (define |gxc[1]#_g178332_| (##structure gx#syntax-quote::t '&::subst-object-refs-methods-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g178227_| + (define |gxc[1]#_g178333_| (##structure gx#syntax-quote::t '&::subst-object-refs-slots-set! @@ -310,7 +310,7 @@ '())) (begin (define |gxc[:0:]#::generate-method-specializers| - (let ((__obj177998 + (let ((__obj178104 (let () (declare (not safe)) (##structure @@ -339,7 +339,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177998 + __obj178104 'gxc#::generate-method-specializers::t '1 '#f @@ -347,65 +347,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj177998 + __obj178104 '::generate-method-specializers '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '6 '#f '#f)) - (let ((__tmp178160 (cons |gxc[1]#_g178161_| '()))) + (##unchecked-structure-set! __obj178104 '() '6 '#f '#f)) + (let ((__tmp178266 (cons |gxc[1]#_g178267_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj177998 __tmp178160 '3 '#f '#f)) + (##unchecked-structure-set! __obj178104 __tmp178266 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178104 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178104 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178104 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '#f '11 '#f '#f)) - (let ((__tmp178162 |gxc[1]#_g178163_|)) + (##unchecked-structure-set! __obj178104 '#f '11 '#f '#f)) + (let ((__tmp178268 |gxc[1]#_g178269_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177998 __tmp178162 '12 '#f '#f)) - (let ((__tmp178164 |gxc[1]#_g178165_|)) + (##unchecked-structure-set! __obj178104 __tmp178268 '12 '#f '#f)) + (let ((__tmp178270 |gxc[1]#_g178271_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177998 __tmp178164 '13 '#f '#f)) - (let ((__tmp178166 |gxc[1]#_g178167_|)) + (##unchecked-structure-set! __obj178104 __tmp178270 '13 '#f '#f)) + (let ((__tmp178272 |gxc[1]#_g178273_|)) (declare (not safe)) - (##unchecked-structure-set! __obj177998 __tmp178166 '14 '#f '#f)) + (##unchecked-structure-set! __obj178104 __tmp178272 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178104 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj177998 '() '20 '#f '#f)) - __obj177998)) + (##unchecked-structure-set! __obj178104 '() '20 '#f '#f)) + __obj178104)) (define |gxc[:0:]#::extract-receiver| - (let ((__obj178000 + (let ((__obj178106 (let () (declare (not safe)) (##structure @@ -434,7 +434,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178000 + __obj178106 'gxc#::extract-receiver::t '1 '#f @@ -442,65 +442,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178000 + __obj178106 '::extract-receiver '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '6 '#f '#f)) - (let ((__tmp178168 (cons |gxc[1]#_g178169_| '()))) + (##unchecked-structure-set! __obj178106 '() '6 '#f '#f)) + (let ((__tmp178274 (cons |gxc[1]#_g178275_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178000 __tmp178168 '3 '#f '#f)) + (##unchecked-structure-set! __obj178106 __tmp178274 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178106 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178106 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178106 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '#f '11 '#f '#f)) - (let ((__tmp178170 |gxc[1]#_g178171_|)) + (##unchecked-structure-set! __obj178106 '#f '11 '#f '#f)) + (let ((__tmp178276 |gxc[1]#_g178277_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178000 __tmp178170 '12 '#f '#f)) - (let ((__tmp178172 |gxc[1]#_g178173_|)) + (##unchecked-structure-set! __obj178106 __tmp178276 '12 '#f '#f)) + (let ((__tmp178278 |gxc[1]#_g178279_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178000 __tmp178172 '13 '#f '#f)) - (let ((__tmp178174 |gxc[1]#_g178175_|)) + (##unchecked-structure-set! __obj178106 __tmp178278 '13 '#f '#f)) + (let ((__tmp178280 |gxc[1]#_g178281_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178000 __tmp178174 '14 '#f '#f)) + (##unchecked-structure-set! __obj178106 __tmp178280 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178106 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178000 '() '20 '#f '#f)) - __obj178000)) + (##unchecked-structure-set! __obj178106 '() '20 '#f '#f)) + __obj178106)) (define |gxc[:0:]#::collect-object-refs| - (let ((__obj178002 + (let ((__obj178108 (let () (declare (not safe)) (##structure @@ -529,7 +529,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178002 + __obj178108 'gxc#::collect-object-refs::t '1 '#f @@ -537,7 +537,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178002 + __obj178108 '::collect-object-refs '2 '#f @@ -545,7 +545,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178002 + __obj178108 '(receiver methods slots) '4 '#f @@ -553,71 +553,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178002 + __obj178108 '(receiver methods slots) '6 '#f '#f)) - (let ((__tmp178176 (cons |gxc[1]#_g178177_| '()))) + (let ((__tmp178282 (cons |gxc[1]#_g178283_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178176 '3 '#f '#f)) + (##unchecked-structure-set! __obj178108 __tmp178282 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178108 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178108 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178108 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '#f '11 '#f '#f)) - (let ((__tmp178178 |gxc[1]#_g178179_|)) + (##unchecked-structure-set! __obj178108 '#f '11 '#f '#f)) + (let ((__tmp178284 |gxc[1]#_g178285_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178178 '12 '#f '#f)) - (let ((__tmp178180 |gxc[1]#_g178181_|)) + (##unchecked-structure-set! __obj178108 __tmp178284 '12 '#f '#f)) + (let ((__tmp178286 |gxc[1]#_g178287_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178180 '13 '#f '#f)) - (let ((__tmp178182 |gxc[1]#_g178183_|)) + (##unchecked-structure-set! __obj178108 __tmp178286 '13 '#f '#f)) + (let ((__tmp178288 |gxc[1]#_g178289_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178182 '14 '#f '#f)) - (let ((__tmp178184 - (cons (cons 'receiver |gxc[1]#_g178185_|) - (cons (cons 'methods |gxc[1]#_g178186_|) - (cons (cons 'slots |gxc[1]#_g178187_|) '()))))) + (##unchecked-structure-set! __obj178108 __tmp178288 '14 '#f '#f)) + (let ((__tmp178290 + (cons (cons 'receiver |gxc[1]#_g178291_|) + (cons (cons 'methods |gxc[1]#_g178292_|) + (cons (cons 'slots |gxc[1]#_g178293_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178184 '15 '#f '#f)) - (let ((__tmp178188 - (cons (cons 'receiver |gxc[1]#_g178189_|) - (cons (cons 'methods |gxc[1]#_g178190_|) - (cons (cons 'slots |gxc[1]#_g178191_|) '()))))) + (##unchecked-structure-set! __obj178108 __tmp178290 '15 '#f '#f)) + (let ((__tmp178294 + (cons (cons 'receiver |gxc[1]#_g178295_|) + (cons (cons 'methods |gxc[1]#_g178296_|) + (cons (cons 'slots |gxc[1]#_g178297_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178188 '16 '#f '#f)) - (let ((__tmp178192 - (cons (cons 'receiver |gxc[1]#_g178193_|) - (cons (cons 'methods |gxc[1]#_g178194_|) - (cons (cons 'slots |gxc[1]#_g178195_|) '()))))) + (##unchecked-structure-set! __obj178108 __tmp178294 '16 '#f '#f)) + (let ((__tmp178298 + (cons (cons 'receiver |gxc[1]#_g178299_|) + (cons (cons 'methods |gxc[1]#_g178300_|) + (cons (cons 'slots |gxc[1]#_g178301_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178192 '17 '#f '#f)) - (let ((__tmp178196 - (cons (cons 'receiver |gxc[1]#_g178197_|) - (cons (cons 'methods |gxc[1]#_g178198_|) - (cons (cons 'slots |gxc[1]#_g178199_|) '()))))) + (##unchecked-structure-set! __obj178108 __tmp178298 '17 '#f '#f)) + (let ((__tmp178302 + (cons (cons 'receiver |gxc[1]#_g178303_|) + (cons (cons 'methods |gxc[1]#_g178304_|) + (cons (cons 'slots |gxc[1]#_g178305_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj178002 __tmp178196 '18 '#f '#f)) + (##unchecked-structure-set! __obj178108 __tmp178302 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178108 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178108 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178002 '() '20 '#f '#f)) - __obj178002)) + (##unchecked-structure-set! __obj178108 '() '20 '#f '#f)) + __obj178108)) (define |gxc[:0:]#::subst-object-refs| - (let ((__obj178004 + (let ((__obj178110 (let () (declare (not safe)) (##structure @@ -646,7 +646,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178004 + __obj178110 'gxc#::subst-object-refs::t '1 '#f @@ -654,7 +654,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178004 + __obj178110 '::subst-object-refs '2 '#f @@ -662,7 +662,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178004 + __obj178110 '(receiver klass methods slots) '4 '#f @@ -670,74 +670,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj178004 + __obj178110 '(receiver klass methods slots) '6 '#f '#f)) - (let ((__tmp178200 (cons |gxc[1]#_g178201_| '()))) + (let ((__tmp178306 (cons |gxc[1]#_g178307_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178200 '3 '#f '#f)) + (##unchecked-structure-set! __obj178110 __tmp178306 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj178110 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj178110 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj178110 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '#f '11 '#f '#f)) - (let ((__tmp178202 |gxc[1]#_g178203_|)) + (##unchecked-structure-set! __obj178110 '#f '11 '#f '#f)) + (let ((__tmp178308 |gxc[1]#_g178309_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178202 '12 '#f '#f)) - (let ((__tmp178204 |gxc[1]#_g178205_|)) + (##unchecked-structure-set! __obj178110 __tmp178308 '12 '#f '#f)) + (let ((__tmp178310 |gxc[1]#_g178311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178204 '13 '#f '#f)) - (let ((__tmp178206 |gxc[1]#_g178207_|)) + (##unchecked-structure-set! __obj178110 __tmp178310 '13 '#f '#f)) + (let ((__tmp178312 |gxc[1]#_g178313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178206 '14 '#f '#f)) - (let ((__tmp178208 - (cons (cons 'receiver |gxc[1]#_g178209_|) - (cons (cons 'klass |gxc[1]#_g178210_|) - (cons (cons 'methods |gxc[1]#_g178211_|) - (cons (cons 'slots |gxc[1]#_g178212_|) + (##unchecked-structure-set! __obj178110 __tmp178312 '14 '#f '#f)) + (let ((__tmp178314 + (cons (cons 'receiver |gxc[1]#_g178315_|) + (cons (cons 'klass |gxc[1]#_g178316_|) + (cons (cons 'methods |gxc[1]#_g178317_|) + (cons (cons 'slots |gxc[1]#_g178318_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178208 '15 '#f '#f)) - (let ((__tmp178213 - (cons (cons 'receiver |gxc[1]#_g178214_|) - (cons (cons 'klass |gxc[1]#_g178215_|) - (cons (cons 'methods |gxc[1]#_g178216_|) - (cons (cons 'slots |gxc[1]#_g178217_|) + (##unchecked-structure-set! __obj178110 __tmp178314 '15 '#f '#f)) + (let ((__tmp178319 + (cons (cons 'receiver |gxc[1]#_g178320_|) + (cons (cons 'klass |gxc[1]#_g178321_|) + (cons (cons 'methods |gxc[1]#_g178322_|) + (cons (cons 'slots |gxc[1]#_g178323_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178213 '16 '#f '#f)) - (let ((__tmp178218 - (cons (cons 'receiver |gxc[1]#_g178219_|) - (cons (cons 'klass |gxc[1]#_g178220_|) - (cons (cons 'methods |gxc[1]#_g178221_|) - (cons (cons 'slots |gxc[1]#_g178222_|) + (##unchecked-structure-set! __obj178110 __tmp178319 '16 '#f '#f)) + (let ((__tmp178324 + (cons (cons 'receiver |gxc[1]#_g178325_|) + (cons (cons 'klass |gxc[1]#_g178326_|) + (cons (cons 'methods |gxc[1]#_g178327_|) + (cons (cons 'slots |gxc[1]#_g178328_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178218 '17 '#f '#f)) - (let ((__tmp178223 - (cons (cons 'receiver |gxc[1]#_g178224_|) - (cons (cons 'klass |gxc[1]#_g178225_|) - (cons (cons 'methods |gxc[1]#_g178226_|) - (cons (cons 'slots |gxc[1]#_g178227_|) + (##unchecked-structure-set! __obj178110 __tmp178324 '17 '#f '#f)) + (let ((__tmp178329 + (cons (cons 'receiver |gxc[1]#_g178330_|) + (cons (cons 'klass |gxc[1]#_g178331_|) + (cons (cons 'methods |gxc[1]#_g178332_|) + (cons (cons 'slots |gxc[1]#_g178333_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj178004 __tmp178223 '18 '#f '#f)) + (##unchecked-structure-set! __obj178110 __tmp178329 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj178110 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj178110 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj178004 '() '20 '#f '#f)) - __obj178004)))) + (##unchecked-structure-set! __obj178110 '() '20 '#f '#f)) + __obj178110)))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~0.scm b/src/bootstrap/gerbil/compiler/optimize-top~0.scm index 803e2b567..d653bcc02 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~0.scm @@ -1,29 +1,29 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-top::timestamp 1733870076) + (define gerbil/compiler/optimize-top::timestamp 1734131749) (begin (define gxc#::collect-top-level-type-info::t - (let ((__tmp171047 (list gxc#::void::t)) - (__tmp171046 (cons (cons 'final: '#t) '()))) + (let ((__tmp171153 (list gxc#::void::t)) + (__tmp171152 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-type-info::t '::collect-top-level-type-info - __tmp171047 + __tmp171153 '() - __tmp171046 + __tmp171152 '#f))) (define gxc#::collect-top-level-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-type-info::t))) (define gxc#make-::collect-top-level-type-info - (lambda _%$args167989%_ + (lambda _%$args168095%_ (apply make-instance gxc#::collect-top-level-type-info::t - _%$args167989%_))) + _%$args168095%_))) (define gxc#::collect-top-level-type-info-bind-methods! - (let ((__tmp171048 + (let ((__tmp171154 (lambda () (force gxc#::void-bind-methods!) (let () @@ -102,48 +102,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-type-info::t))))) (declare (not safe)) - (__make-promise __tmp171048))) + (__make-promise __tmp171154))) (define gxc#apply-collect-top-level-type-info - (lambda (_%stx167981%_) + (lambda (_%stx168087%_) (force gxc#::collect-top-level-type-info-bind-methods!) - (let* ((_%self167984%_ - (let ((__obj170993 + (let* ((_%self168090%_ + (let ((__obj171099 (let () (declare (not safe)) (##structure gxc#::collect-top-level-type-info::t)))) - __obj170993)) - (__tmp171049 + __obj171099)) + (__tmp171155 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167984%_ _%stx167981%_))))) + (gxc#compile-e__1 _%self168090%_ _%stx168087%_))))) (declare (not safe)) (__call-with-parameters - __tmp171049 + __tmp171155 gxc#current-compile-method - _%self167984%_)))) + _%self168090%_)))) (define gxc#::collect-top-level-declarations::t - (let ((__tmp171051 (list gxc#::void::t)) - (__tmp171050 (cons (cons 'final: '#t) '()))) + (let ((__tmp171157 (list gxc#::void::t)) + (__tmp171156 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-top-level-declarations::t '::collect-top-level-declarations - __tmp171051 + __tmp171157 '() - __tmp171050 + __tmp171156 '#f))) (define gxc#::collect-top-level-declarations? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-top-level-declarations::t))) (define gxc#make-::collect-top-level-declarations - (lambda _%$args167978%_ + (lambda _%$args168084%_ (apply make-instance gxc#::collect-top-level-declarations::t - _%$args167978%_))) + _%$args168084%_))) (define gxc#::collect-top-level-declarations-bind-methods! - (let ((__tmp171052 + (let ((__tmp171158 (lambda () (force gxc#::void-bind-methods!) (let () @@ -174,49 +174,49 @@ (declare (not safe)) (__seal-class! gxc#::collect-top-level-declarations::t))))) (declare (not safe)) - (__make-promise __tmp171052))) + (__make-promise __tmp171158))) (define gxc#apply-collect-top-level-declarations - (lambda (_%stx167970%_) + (lambda (_%stx168076%_) (force gxc#::collect-top-level-declarations-bind-methods!) - (let* ((_%self167973%_ - (let ((__obj170995 + (let* ((_%self168079%_ + (let ((__obj171101 (let () (declare (not safe)) (##structure gxc#::collect-top-level-declarations::t)))) - __obj170995)) - (__tmp171053 + __obj171101)) + (__tmp171159 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167973%_ _%stx167970%_))))) + (gxc#compile-e__1 _%self168079%_ _%stx168076%_))))) (declare (not safe)) (__call-with-parameters - __tmp171053 + __tmp171159 gxc#current-compile-method - _%self167973%_)))) + _%self168079%_)))) (define gxc#::basic-expression-top-level-type::t - (let ((__tmp171055 (list gxc#::false::t)) - (__tmp171054 (cons (cons 'final: '#t) '()))) + (let ((__tmp171161 (list gxc#::false::t)) + (__tmp171160 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-top-level-type::t '::basic-expression-top-level-type - __tmp171055 + __tmp171161 '() - __tmp171054 + __tmp171160 '#f))) (define gxc#::basic-expression-top-level-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-top-level-type::t))) (define gxc#make-::basic-expression-top-level-type - (lambda _%$args167967%_ + (lambda _%$args168073%_ (apply make-instance gxc#::basic-expression-top-level-type::t - _%$args167967%_))) + _%$args168073%_))) (define gxc#::basic-expression-top-level-type-bind-methods! - (let ((__tmp171056 + (let ((__tmp171162 (lambda () (force gxc#::false-bind-methods!) (let () @@ -229,47 +229,47 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-top-level-type::t))))) (declare (not safe)) - (__make-promise __tmp171056))) + (__make-promise __tmp171162))) (define gxc#apply-basic-expression-top-level-type - (lambda (_%stx167959%_) + (lambda (_%stx168065%_) (force gxc#::basic-expression-top-level-type-bind-methods!) - (let* ((_%self167962%_ - (let ((__obj170997 + (let* ((_%self168068%_ + (let ((__obj171103 (let () (declare (not safe)) (##structure gxc#::basic-expression-top-level-type::t)))) - __obj170997)) - (__tmp171057 + __obj171103)) + (__tmp171163 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167962%_ _%stx167959%_))))) + (gxc#compile-e__1 _%self168068%_ _%stx168065%_))))) (declare (not safe)) (__call-with-parameters - __tmp171057 + __tmp171163 gxc#current-compile-method - _%self167962%_)))) + _%self168068%_)))) (define gxc#::collect-type-info::t - (let ((__tmp171059 (list gxc#::void::t)) - (__tmp171058 (cons (cons 'final: '#t) '()))) + (let ((__tmp171165 (list gxc#::void::t)) + (__tmp171164 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-type-info::t '::collect-type-info - __tmp171059 + __tmp171165 '() - __tmp171058 + __tmp171164 '#f))) (define gxc#::collect-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-type-info::t))) (define gxc#make-::collect-type-info - (lambda _%$args167956%_ - (apply make-instance gxc#::collect-type-info::t _%$args167956%_))) + (lambda _%$args168062%_ + (apply make-instance gxc#::collect-type-info::t _%$args168062%_))) (define gxc#::collect-type-info-bind-methods! - (let ((__tmp171060 + (let ((__tmp171166 (lambda () (force gxc#::void-bind-methods!) (let () @@ -354,48 +354,48 @@ (declare (not safe)) (__seal-class! gxc#::collect-type-info::t))))) (declare (not safe)) - (__make-promise __tmp171060))) + (__make-promise __tmp171166))) (define gxc#apply-collect-type-info - (lambda (_%stx167948%_) + (lambda (_%stx168054%_) (force gxc#::collect-type-info-bind-methods!) - (let* ((_%self167951%_ - (let ((__obj170999 + (let* ((_%self168057%_ + (let ((__obj171105 (let () (declare (not safe)) (##structure gxc#::collect-type-info::t)))) - __obj170999)) - (__tmp171061 + __obj171105)) + (__tmp171167 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167951%_ _%stx167948%_))))) + (gxc#compile-e__1 _%self168057%_ _%stx168054%_))))) (declare (not safe)) (__call-with-parameters - __tmp171061 + __tmp171167 gxc#current-compile-method - _%self167951%_)))) + _%self168057%_)))) (define gxc#::collect-mutable-type-info::t - (let ((__tmp171063 (list gxc#::void::t)) - (__tmp171062 (cons (cons 'final: '#t) '()))) + (let ((__tmp171169 (list gxc#::void::t)) + (__tmp171168 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutable-type-info::t '::collect-mutable-type-info - __tmp171063 + __tmp171169 '() - __tmp171062 + __tmp171168 '#f))) (define gxc#::collect-mutable-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutable-type-info::t))) (define gxc#make-::collect-mutable-type-info - (lambda _%$args167945%_ + (lambda _%$args168051%_ (apply make-instance gxc#::collect-mutable-type-info::t - _%$args167945%_))) + _%$args168051%_))) (define gxc#::collect-mutable-type-info-bind-methods! - (let ((__tmp171064 + (let ((__tmp171170 (lambda () (force gxc#::void-bind-methods!) (let () @@ -480,46 +480,46 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutable-type-info::t))))) (declare (not safe)) - (__make-promise __tmp171064))) + (__make-promise __tmp171170))) (define gxc#apply-collect-mutable-type-info - (lambda (_%stx167937%_) + (lambda (_%stx168043%_) (force gxc#::collect-mutable-type-info-bind-methods!) - (let* ((_%self167940%_ - (let ((__obj171001 + (let* ((_%self168046%_ + (let ((__obj171107 (let () (declare (not safe)) (##structure gxc#::collect-mutable-type-info::t)))) - __obj171001)) - (__tmp171065 + __obj171107)) + (__tmp171171 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167940%_ _%stx167937%_))))) + (gxc#compile-e__1 _%self168046%_ _%stx168043%_))))) (declare (not safe)) (__call-with-parameters - __tmp171065 + __tmp171171 gxc#current-compile-method - _%self167940%_)))) + _%self168046%_)))) (define gxc#::refine-type-info::t - (let ((__tmp171067 (list gxc#::void::t)) - (__tmp171066 (cons (cons 'final: '#t) '()))) + (let ((__tmp171173 (list gxc#::void::t)) + (__tmp171172 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::refine-type-info::t '::refine-type-info - __tmp171067 + __tmp171173 '() - __tmp171066 + __tmp171172 '#f))) (define gxc#::refine-type-info? (let () (declare (not safe)) (__make-class-predicate gxc#::refine-type-info::t))) (define gxc#make-::refine-type-info - (lambda _%$args167934%_ - (apply make-instance gxc#::refine-type-info::t _%$args167934%_))) + (lambda _%$args168040%_ + (apply make-instance gxc#::refine-type-info::t _%$args168040%_))) (define gxc#::refine-type-info-bind-methods! - (let ((__tmp171068 + (let ((__tmp171174 (lambda () (force gxc#::void-bind-methods!) (let () @@ -604,33 +604,33 @@ (declare (not safe)) (__seal-class! gxc#::refine-type-info::t))))) (declare (not safe)) - (__make-promise __tmp171068))) + (__make-promise __tmp171174))) (define gxc#apply-refine-type-info - (lambda (_%stx167926%_) + (lambda (_%stx168032%_) (force gxc#::refine-type-info-bind-methods!) - (let* ((_%self167929%_ - (let ((__obj171003 + (let* ((_%self168035%_ + (let ((__obj171109 (let () (declare (not safe)) (##structure gxc#::refine-type-info::t)))) - __obj171003)) - (__tmp171069 + __obj171109)) + (__tmp171175 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167929%_ _%stx167926%_))))) + (gxc#compile-e__1 _%self168035%_ _%stx168032%_))))) (declare (not safe)) (__call-with-parameters - __tmp171069 + __tmp171175 gxc#current-compile-method - _%self167929%_)))) + _%self168035%_)))) (define gxc#::raw-expression-type::t - (let ((__tmp171070 (list gxc#::false::t))) + (let ((__tmp171176 (list gxc#::false::t))) (declare (not safe)) (__make-class-type 'gxc#::raw-expression-type::t '::raw-expression-type - __tmp171070 + __tmp171176 '() '() '#f))) @@ -639,10 +639,10 @@ (declare (not safe)) (__make-class-predicate gxc#::raw-expression-type::t))) (define gxc#make-::raw-expression-type - (lambda _%$args167923%_ - (apply make-instance gxc#::raw-expression-type::t _%$args167923%_))) + (lambda _%$args168029%_ + (apply make-instance gxc#::raw-expression-type::t _%$args168029%_))) (define gxc#::raw-expression-type-bind-methods! - (let ((__tmp171071 + (let ((__tmp171177 (lambda () (force gxc#::false-bind-methods!) (let () @@ -712,46 +712,46 @@ '%#quote gxc#basic-expression-type-quote%))))) (declare (not safe)) - (__make-promise __tmp171071))) + (__make-promise __tmp171177))) (define gxc#apply-raw-expression-type - (lambda (_%stx167915%_) + (lambda (_%stx168021%_) (force gxc#::raw-expression-type-bind-methods!) - (let* ((_%self167918%_ - (let ((__obj171005 + (let* ((_%self168024%_ + (let ((__obj171111 (let () (declare (not safe)) (##structure gxc#::raw-expression-type::t)))) - __obj171005)) - (__tmp171072 + __obj171111)) + (__tmp171178 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167918%_ _%stx167915%_))))) + (gxc#compile-e__1 _%self168024%_ _%stx168021%_))))) (declare (not safe)) (__call-with-parameters - __tmp171072 + __tmp171178 gxc#current-compile-method - _%self167918%_)))) + _%self168024%_)))) (define gxc#::basic-expression-type::t - (let ((__tmp171074 (list gxc#::raw-expression-type::t gxc#::false::t)) - (__tmp171073 (cons (cons 'final: '#t) '()))) + (let ((__tmp171180 (list gxc#::raw-expression-type::t gxc#::false::t)) + (__tmp171179 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::basic-expression-type::t '::basic-expression-type - __tmp171074 + __tmp171180 '() - __tmp171073 + __tmp171179 '#f))) (define gxc#::basic-expression-type? (let () (declare (not safe)) (__make-class-predicate gxc#::basic-expression-type::t))) (define gxc#make-::basic-expression-type - (lambda _%$args167912%_ - (apply make-instance gxc#::basic-expression-type::t _%$args167912%_))) + (lambda _%$args168018%_ + (apply make-instance gxc#::basic-expression-type::t _%$args168018%_))) (define gxc#::basic-expression-type-bind-methods! - (let ((__tmp171075 + (let ((__tmp171181 (lambda () (force gxc#::raw-expression-type-bind-methods!) (force gxc#::false-bind-methods!) @@ -765,46 +765,46 @@ (declare (not safe)) (__seal-class! gxc#::basic-expression-type::t))))) (declare (not safe)) - (__make-promise __tmp171075))) + (__make-promise __tmp171181))) (define gxc#apply-basic-expression-type - (lambda (_%stx167904%_) + (lambda (_%stx168010%_) (force gxc#::basic-expression-type-bind-methods!) - (let* ((_%self167907%_ - (let ((__obj171007 + (let* ((_%self168013%_ + (let ((__obj171113 (let () (declare (not safe)) (##structure gxc#::basic-expression-type::t)))) - __obj171007)) - (__tmp171076 + __obj171113)) + (__tmp171182 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167907%_ _%stx167904%_))))) + (gxc#compile-e__1 _%self168013%_ _%stx168010%_))))) (declare (not safe)) (__call-with-parameters - __tmp171076 + __tmp171182 gxc#current-compile-method - _%self167907%_)))) + _%self168013%_)))) (define gxc#::lift-top-lambdas::t - (let ((__tmp171078 (list gxc#::basic-xform::t)) - (__tmp171077 (cons (cons 'final: '#t) '()))) + (let ((__tmp171184 (list gxc#::basic-xform::t)) + (__tmp171183 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::lift-top-lambdas::t '::lift-top-lambdas - __tmp171078 + __tmp171184 '() - __tmp171077 + __tmp171183 '#f))) (define gxc#::lift-top-lambdas? (let () (declare (not safe)) (__make-class-predicate gxc#::lift-top-lambdas::t))) (define gxc#make-::lift-top-lambdas - (lambda _%$args167901%_ - (apply make-instance gxc#::lift-top-lambdas::t _%$args167901%_))) + (lambda _%$args168007%_ + (apply make-instance gxc#::lift-top-lambdas::t _%$args168007%_))) (define gxc#::lift-top-lambdas-bind-methods! - (let ((__tmp171079 + (let ((__tmp171185 (lambda () (force gxc#::basic-xform-bind-methods!) (let () @@ -835,48 +835,48 @@ (declare (not safe)) (__seal-class! gxc#::lift-top-lambdas::t))))) (declare (not safe)) - (__make-promise __tmp171079))) + (__make-promise __tmp171185))) (define gxc#apply-lift-top-lambdas - (lambda (_%stx167893%_) + (lambda (_%stx167999%_) (force gxc#::lift-top-lambdas-bind-methods!) - (let* ((_%self167896%_ - (let ((__obj171009 + (let* ((_%self168002%_ + (let ((__obj171115 (let () (declare (not safe)) (##structure gxc#::lift-top-lambdas::t)))) - __obj171009)) - (__tmp171080 + __obj171115)) + (__tmp171186 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167896%_ _%stx167893%_))))) + (gxc#compile-e__1 _%self168002%_ _%stx167999%_))))) (declare (not safe)) (__call-with-parameters - __tmp171080 + __tmp171186 gxc#current-compile-method - _%self167896%_)))) + _%self168002%_)))) (define gxc#::extract-lambda-signature::t - (let ((__tmp171082 (list gxc#::false::t)) - (__tmp171081 (cons (cons 'final: '#t) '()))) + (let ((__tmp171188 (list gxc#::false::t)) + (__tmp171187 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::extract-lambda-signature::t '::extract-lambda-signature - __tmp171082 + __tmp171188 '() - __tmp171081 + __tmp171187 '#f))) (define gxc#::extract-lambda-signature? (let () (declare (not safe)) (__make-class-predicate gxc#::extract-lambda-signature::t))) (define gxc#make-::extract-lambda-signature - (lambda _%$args167890%_ + (lambda _%$args167996%_ (apply make-instance gxc#::extract-lambda-signature::t - _%$args167890%_))) + _%$args167996%_))) (define gxc#::extract-lambda-signature-bind-methods! - (let ((__tmp171083 + (let ((__tmp171189 (lambda () (force gxc#::false-bind-methods!) (let () @@ -913,225 +913,225 @@ (declare (not safe)) (__seal-class! gxc#::extract-lambda-signature::t))))) (declare (not safe)) - (__make-promise __tmp171083))) + (__make-promise __tmp171189))) (define gxc#apply-extract-lambda-signature - (lambda (_%stx167882%_) + (lambda (_%stx167988%_) (force gxc#::extract-lambda-signature-bind-methods!) - (let* ((_%self167885%_ - (let ((__obj171011 + (let* ((_%self167991%_ + (let ((__obj171117 (let () (declare (not safe)) (##structure gxc#::extract-lambda-signature::t)))) - __obj171011)) - (__tmp171084 + __obj171117)) + (__tmp171190 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self167885%_ _%stx167882%_))))) + (gxc#compile-e__1 _%self167991%_ _%stx167988%_))))) (declare (not safe)) (__call-with-parameters - __tmp171084 + __tmp171190 gxc#current-compile-method - _%self167885%_)))) + _%self167991%_)))) (define gxc#collect-top-level-type-define-values% - (lambda (_%self167784%_ _%stx167785%_) - (let* ((_%__stx168002168003%_ _%stx167785%_) - (_%g167788167808%_ + (lambda (_%self167890%_ _%stx167891%_) + (let* ((_%__stx168108168109%_ _%stx167891%_) + (_%g167894167914%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168002168003%_))))) - (let ((_%__kont168004168005%_ - (lambda (_%L167852%_ _%L167853%_) - (let ((_%sym167871%_ + _%__stx168108168109%_))))) + (let ((_%__kont168110168111%_ + (lambda (_%L167958%_ _%L167959%_) + (let ((_%sym167977%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167853%_)))) + (gxc#identifier-symbol _%L167959%_)))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167784%_ _%L167852%_)) - (let ((_%type167872167874%_ + (gxc#compile-e__1 _%self167890%_ _%L167958%_)) + (let ((_%type167978167980%_ (gxc#apply-basic-expression-top-level-type - _%L167852%_))) - (if _%type167872167874%_ - (let ((_%type167877%_ _%type167872167874%_)) + _%L167958%_))) + (if _%type167978167980%_ + (let ((_%type167983%_ _%type167978167980%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167877%_ + _%type167983%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171085 + (let ((__tmp171191 (let () (declare (not safe)) (##unchecked-structure-ref - _%type167877%_ + _%type167983%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym167871%_ - __tmp171085)) - (let ((__tmp171086 + _%sym167977%_ + __tmp171191)) + (let ((__tmp171192 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167785%_ + _%stx167891%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167871%_ - __tmp171086))) + _%sym167977%_ + __tmp171192))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167871%_ - _%type167877%_)))) + _%sym167977%_ + _%type167983%_)))) '#f))))) - (_%__kont168006168007%_ (lambda () '#!void))) - (let ((_%__match168035168036%_ - (lambda (_%e167792167820%_ - _%hd167793167823%_ - _%tl167794167825%_ - _%e167795167828%_ - _%hd167796167831%_ - _%tl167797167833%_ - _%e167798167836%_ - _%hd167799167839%_ - _%tl167800167841%_ - _%e167801167844%_ - _%hd167802167847%_ - _%tl167803167849%_) - (let ((_%L167852%_ _%hd167802167847%_) - (_%L167853%_ _%hd167799167839%_)) + (_%__kont168112168113%_ (lambda () '#!void))) + (let ((_%__match168141168142%_ + (lambda (_%e167898167926%_ + _%hd167899167929%_ + _%tl167900167931%_ + _%e167901167934%_ + _%hd167902167937%_ + _%tl167903167939%_ + _%e167904167942%_ + _%hd167905167945%_ + _%tl167906167947%_ + _%e167907167950%_ + _%hd167908167953%_ + _%tl167909167955%_) + (let ((_%L167958%_ _%hd167908167953%_) + (_%L167959%_ _%hd167905167945%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167853%_)) - (_%__kont168004168005%_ _%L167852%_ _%L167853%_) - (_%__kont168006168007%_)))))) + (gx#identifier? _%L167959%_)) + (_%__kont168110168111%_ _%L167958%_ _%L167959%_) + (_%__kont168112168113%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168002168003%_)) - (let ((_%e167792167820%_ + (gx#stx-pair? _%__stx168108168109%_)) + (let ((_%e167898167926%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168002168003%_)))) - (let ((_%tl167794167825%_ + (gx#stx-e _%__stx168108168109%_)))) + (let ((_%tl167900167931%_ (let () (declare (not safe)) - (##cdr _%e167792167820%_))) - (_%hd167793167823%_ + (##cdr _%e167898167926%_))) + (_%hd167899167929%_ (let () (declare (not safe)) - (##car _%e167792167820%_)))) + (##car _%e167898167926%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167794167825%_)) - (let ((_%e167795167828%_ + (gx#stx-pair? _%tl167900167931%_)) + (let ((_%e167901167934%_ (let () (declare (not safe)) - (gx#stx-e _%tl167794167825%_)))) - (let ((_%tl167797167833%_ + (gx#stx-e _%tl167900167931%_)))) + (let ((_%tl167903167939%_ (let () (declare (not safe)) - (##cdr _%e167795167828%_))) - (_%hd167796167831%_ + (##cdr _%e167901167934%_))) + (_%hd167902167937%_ (let () (declare (not safe)) - (##car _%e167795167828%_)))) + (##car _%e167901167934%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167796167831%_)) - (let ((_%e167798167836%_ + (gx#stx-pair? _%hd167902167937%_)) + (let ((_%e167904167942%_ (let () (declare (not safe)) - (gx#stx-e _%hd167796167831%_)))) - (let ((_%tl167800167841%_ + (gx#stx-e _%hd167902167937%_)))) + (let ((_%tl167906167947%_ (let () (declare (not safe)) - (##cdr _%e167798167836%_))) - (_%hd167799167839%_ + (##cdr _%e167904167942%_))) + (_%hd167905167945%_ (let () (declare (not safe)) - (##car _%e167798167836%_)))) + (##car _%e167904167942%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167800167841%_)) + (gx#stx-null? _%tl167906167947%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167797167833%_)) - (let ((_%e167801167844%_ + _%tl167903167939%_)) + (let ((_%e167907167950%_ (let () (declare (not safe)) (gx#stx-e - _%tl167797167833%_)))) - (let ((_%tl167803167849%_ + _%tl167903167939%_)))) + (let ((_%tl167909167955%_ (let () (declare (not safe)) - (##cdr _%e167801167844%_))) - (_%hd167802167847%_ + (##cdr _%e167907167950%_))) + (_%hd167908167953%_ (let () (declare (not safe)) - (##car _%e167801167844%_)))) + (##car _%e167907167950%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167803167849%_)) - (_%__match168035168036%_ - _%e167792167820%_ - _%hd167793167823%_ - _%tl167794167825%_ - _%e167795167828%_ - _%hd167796167831%_ - _%tl167797167833%_ - _%e167798167836%_ - _%hd167799167839%_ - _%tl167800167841%_ - _%e167801167844%_ - _%hd167802167847%_ - _%tl167803167849%_) - (_%__kont168006168007%_)))) - (_%__kont168006168007%_)) - (_%__kont168006168007%_)))) - (_%__kont168006168007%_)))) - (_%__kont168006168007%_)))) - (_%__kont168006168007%_))))))) + _%tl167909167955%_)) + (_%__match168141168142%_ + _%e167898167926%_ + _%hd167899167929%_ + _%tl167900167931%_ + _%e167901167934%_ + _%hd167902167937%_ + _%tl167903167939%_ + _%e167904167942%_ + _%hd167905167945%_ + _%tl167906167947%_ + _%e167907167950%_ + _%hd167908167953%_ + _%tl167909167955%_) + (_%__kont168112168113%_)))) + (_%__kont168112168113%_)) + (_%__kont168112168113%_)))) + (_%__kont168112168113%_)))) + (_%__kont168112168113%_)))) + (_%__kont168112168113%_))))))) (define gxc#collect-top-level-decl-begin-annotation% - (lambda (_%self167606%_ _%stx167607%_) - (let* ((_%__stx168038168039%_ _%stx167607%_) - (_%g167610167650%_ + (lambda (_%self167712%_ _%stx167713%_) + (let* ((_%__stx168144168145%_ _%stx167713%_) + (_%g167716167756%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168038168039%_))))) - (let ((_%__kont168040168041%_ - (lambda (_%L167756%_ _%L167757%_) - (let ((_%type167779%_ - (let ((__tmp171087 + _%__stx168144168145%_))))) + (let ((_%__kont168146168147%_ + (lambda (_%L167862%_ _%L167863%_) + (let ((_%type167885%_ + (let ((__tmp171193 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167757%_)))) + (gxc#identifier-symbol _%L167863%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171087)))) + (gxc#optimizer-lookup-type __tmp171193)))) (if (let () (declare (not safe)) (##structure-instance-of? - _%type167779%_ + _%type167885%_ 'gxc#!lambda::t)) - (let ((__tmp171088 - (gxc#eval-in-ssxi-context _%L167756%_))) + (let ((__tmp171194 + (gxc#eval-in-ssxi-context _%L167862%_))) (declare (not safe)) (##unchecked-structure-set! - _%type167779%_ - __tmp171088 + _%type167885%_ + __tmp171194 '5 '#f '#f)) @@ -1139,6747 +1139,6747 @@ (declare (not safe)) (gxc#raise-compile-error '"inline rule for non lambda procedure" - _%stx167607%_ - _%L167757%_)))))) - (_%__kont168042168043%_ - (lambda (_%L167679%_ _%L167680%_) '#!void))) + _%stx167713%_ + _%L167863%_)))))) + (_%__kont168148168149%_ + (lambda (_%L167785%_ _%L167786%_) '#!void))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168038168039%_)) - (let ((_%e167614167700%_ + (gx#stx-pair? _%__stx168144168145%_)) + (let ((_%e167720167806%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168038168039%_)))) - (let ((_%tl167616167705%_ + (gx#stx-e _%__stx168144168145%_)))) + (let ((_%tl167722167811%_ (let () (declare (not safe)) - (##cdr _%e167614167700%_))) - (_%hd167615167703%_ + (##cdr _%e167720167806%_))) + (_%hd167721167809%_ (let () (declare (not safe)) - (##car _%e167614167700%_)))) + (##car _%e167720167806%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167616167705%_)) - (let ((_%e167617167708%_ + (gx#stx-pair? _%tl167722167811%_)) + (let ((_%e167723167814%_ (let () (declare (not safe)) - (gx#stx-e _%tl167616167705%_)))) - (let ((_%tl167619167713%_ + (gx#stx-e _%tl167722167811%_)))) + (let ((_%tl167725167819%_ (let () (declare (not safe)) - (##cdr _%e167617167708%_))) - (_%hd167618167711%_ + (##cdr _%e167723167814%_))) + (_%hd167724167817%_ (let () (declare (not safe)) - (##car _%e167617167708%_)))) + (##car _%e167723167814%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167618167711%_)) - (let ((_%e167620167716%_ + (gx#stx-pair? _%hd167724167817%_)) + (let ((_%e167726167822%_ (let () (declare (not safe)) - (gx#stx-e _%hd167618167711%_)))) - (let ((_%tl167622167721%_ + (gx#stx-e _%hd167724167817%_)))) + (let ((_%tl167728167827%_ (let () (declare (not safe)) - (##cdr _%e167620167716%_))) - (_%hd167621167719%_ + (##cdr _%e167726167822%_))) + (_%hd167727167825%_ (let () (declare (not safe)) - (##car _%e167620167716%_)))) + (##car _%e167726167822%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167621167719%_)) + (gx#identifier? _%hd167727167825%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd167621167719%_)) + _%hd167727167825%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167622167721%_)) - (let ((_%e167623167724%_ + _%tl167728167827%_)) + (let ((_%e167729167830%_ (let () (declare (not safe)) (gx#stx-e - _%tl167622167721%_)))) - (let ((_%tl167625167729%_ + _%tl167728167827%_)))) + (let ((_%tl167731167835%_ (let () (declare (not safe)) - (##cdr _%e167623167724%_))) - (_%hd167624167727%_ + (##cdr _%e167729167830%_))) + (_%hd167730167833%_ (let () (declare (not safe)) - (##car _%e167623167724%_)))) + (##car _%e167729167830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167625167729%_)) + _%tl167731167835%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167619167713%_)) - (let ((_%e167626167732%_ + _%tl167725167819%_)) + (let ((_%e167732167838%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl167619167713%_)))) - (let ((_%tl167628167737%_ + (gx#stx-e _%tl167725167819%_)))) + (let ((_%tl167734167843%_ (let () (declare (not safe)) - (##cdr _%e167626167732%_))) - (_%hd167627167735%_ + (##cdr _%e167732167838%_))) + (_%hd167733167841%_ (let () (declare (not safe)) - (##car _%e167626167732%_)))) + (##car _%e167732167838%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167627167735%_)) - (let ((_%e167629167740%_ + (gx#stx-pair? _%hd167733167841%_)) + (let ((_%e167735167846%_ (let () (declare (not safe)) - (gx#stx-e _%hd167627167735%_)))) - (let ((_%tl167631167745%_ + (gx#stx-e _%hd167733167841%_)))) + (let ((_%tl167737167851%_ (let () (declare (not safe)) - (##cdr _%e167629167740%_))) - (_%hd167630167743%_ + (##cdr _%e167735167846%_))) + (_%hd167736167849%_ (let () (declare (not safe)) - (##car _%e167629167740%_)))) + (##car _%e167735167846%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd167630167743%_)) + (gx#identifier? _%hd167736167849%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd167630167743%_)) + _%hd167736167849%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167631167745%_)) - (let ((_%e167632167748%_ + _%tl167737167851%_)) + (let ((_%e167738167854%_ (let () (declare (not safe)) (gx#stx-e - _%tl167631167745%_)))) - (let ((_%tl167634167753%_ + _%tl167737167851%_)))) + (let ((_%tl167740167859%_ (let () (declare (not safe)) - (##cdr _%e167632167748%_))) - (_%hd167633167751%_ + (##cdr _%e167738167854%_))) + (_%hd167739167857%_ (let () (declare (not safe)) - (##car _%e167632167748%_)))) + (##car _%e167738167854%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167634167753%_)) + _%tl167740167859%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167628167737%_)) - (_%__kont168040168041%_ - _%hd167633167751%_ - _%hd167624167727%_) + _%tl167734167843%_)) + (_%__kont168146168147%_ + _%hd167739167857%_ + _%hd167730167833%_) (let () (declare (not safe)) - (_%g167610167650%_))) + (_%g167716167756%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167628167737%_)) - (_%__kont168042168043%_ - _%hd167627167735%_ - _%hd167618167711%_) + _%tl167734167843%_)) + (_%__kont168148168149%_ + _%hd167733167841%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_)))))) + (_%g167716167756%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167628167737%_)) - (_%__kont168042168043%_ - _%hd167627167735%_ - _%hd167618167711%_) + _%tl167734167843%_)) + (_%__kont168148168149%_ + _%hd167733167841%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_)))) + (_%g167716167756%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167628167737%_)) - (_%__kont168042168043%_ - _%hd167627167735%_ - _%hd167618167711%_) + _%tl167734167843%_)) + (_%__kont168148168149%_ + _%hd167733167841%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_)))) + (_%g167716167756%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167628167737%_)) - (_%__kont168042168043%_ - _%hd167627167735%_ - _%hd167618167711%_) + (gx#stx-null? _%tl167734167843%_)) + (_%__kont168148168149%_ + _%hd167733167841%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_)))))) + (_%g167716167756%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167628167737%_)) - (_%__kont168042168043%_ - _%hd167627167735%_ - _%hd167618167711%_) + (gx#stx-null? _%tl167734167843%_)) + (_%__kont168148168149%_ + _%hd167733167841%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_)))))) - (let () (declare (not safe)) (_%g167610167650%_))) + (_%g167716167756%_)))))) + (let () (declare (not safe)) (_%g167716167756%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167619167713%_)) - (let ((_%e167643167671%_ + (gx#stx-pair? _%tl167725167819%_)) + (let ((_%e167749167777%_ (let () (declare (not safe)) - (gx#stx-e _%tl167619167713%_)))) - (let ((_%tl167645167676%_ + (gx#stx-e _%tl167725167819%_)))) + (let ((_%tl167751167782%_ (let () (declare (not safe)) - (##cdr _%e167643167671%_))) - (_%hd167644167674%_ + (##cdr _%e167749167777%_))) + (_%hd167750167780%_ (let () (declare (not safe)) - (##car _%e167643167671%_)))) + (##car _%e167749167777%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167645167676%_)) - (_%__kont168042168043%_ - _%hd167644167674%_ - _%hd167618167711%_) + (gx#stx-null? _%tl167751167782%_)) + (_%__kont168148168149%_ + _%hd167750167780%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_))))) - (let () (declare (not safe)) (_%g167610167650%_)))))) + (_%g167716167756%_))))) + (let () (declare (not safe)) (_%g167716167756%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167619167713%_)) - (let ((_%e167643167671%_ + _%tl167725167819%_)) + (let ((_%e167749167777%_ (let () (declare (not safe)) (gx#stx-e - _%tl167619167713%_)))) - (let ((_%tl167645167676%_ + _%tl167725167819%_)))) + (let ((_%tl167751167782%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e167643167671%_))) - (_%hd167644167674%_ - (let () (declare (not safe)) (##car _%e167643167671%_)))) + (##cdr _%e167749167777%_))) + (_%hd167750167780%_ + (let () (declare (not safe)) (##car _%e167749167777%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167645167676%_)) - (_%__kont168042168043%_ - _%hd167644167674%_ - _%hd167618167711%_) - (let () (declare (not safe)) (_%g167610167650%_))))) + (gx#stx-null? _%tl167751167782%_)) + (_%__kont168148168149%_ + _%hd167750167780%_ + _%hd167724167817%_) + (let () (declare (not safe)) (_%g167716167756%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g167610167650%_)))) + (_%g167716167756%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167619167713%_)) - (let ((_%e167643167671%_ + _%tl167725167819%_)) + (let ((_%e167749167777%_ (let () (declare (not safe)) (gx#stx-e - _%tl167619167713%_)))) - (let ((_%tl167645167676%_ + _%tl167725167819%_)))) + (let ((_%tl167751167782%_ (let () (declare (not safe)) - (##cdr _%e167643167671%_))) - (_%hd167644167674%_ + (##cdr _%e167749167777%_))) + (_%hd167750167780%_ (let () (declare (not safe)) - (##car _%e167643167671%_)))) + (##car _%e167749167777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167645167676%_)) - (_%__kont168042168043%_ - _%hd167644167674%_ - _%hd167618167711%_) + _%tl167751167782%_)) + (_%__kont168148168149%_ + _%hd167750167780%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_))))) + (_%g167716167756%_))))) (let () (declare (not safe)) - (_%g167610167650%_)))) + (_%g167716167756%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167619167713%_)) - (let ((_%e167643167671%_ + _%tl167725167819%_)) + (let ((_%e167749167777%_ (let () (declare (not safe)) (gx#stx-e - _%tl167619167713%_)))) - (let ((_%tl167645167676%_ + _%tl167725167819%_)))) + (let ((_%tl167751167782%_ (let () (declare (not safe)) - (##cdr _%e167643167671%_))) - (_%hd167644167674%_ + (##cdr _%e167749167777%_))) + (_%hd167750167780%_ (let () (declare (not safe)) - (##car _%e167643167671%_)))) + (##car _%e167749167777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167645167676%_)) - (_%__kont168042168043%_ - _%hd167644167674%_ - _%hd167618167711%_) + _%tl167751167782%_)) + (_%__kont168148168149%_ + _%hd167750167780%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_))))) + (_%g167716167756%_))))) (let () (declare (not safe)) - (_%g167610167650%_)))))) + (_%g167716167756%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167619167713%_)) - (let ((_%e167643167671%_ + (gx#stx-pair? _%tl167725167819%_)) + (let ((_%e167749167777%_ (let () (declare (not safe)) - (gx#stx-e _%tl167619167713%_)))) - (let ((_%tl167645167676%_ + (gx#stx-e _%tl167725167819%_)))) + (let ((_%tl167751167782%_ (let () (declare (not safe)) - (##cdr _%e167643167671%_))) - (_%hd167644167674%_ + (##cdr _%e167749167777%_))) + (_%hd167750167780%_ (let () (declare (not safe)) - (##car _%e167643167671%_)))) + (##car _%e167749167777%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167645167676%_)) - (_%__kont168042168043%_ - _%hd167644167674%_ - _%hd167618167711%_) + _%tl167751167782%_)) + (_%__kont168148168149%_ + _%hd167750167780%_ + _%hd167724167817%_) (let () (declare (not safe)) - (_%g167610167650%_))))) + (_%g167716167756%_))))) (let () (declare (not safe)) - (_%g167610167650%_)))))) - (let () (declare (not safe)) (_%g167610167650%_))))) - (let () (declare (not safe)) (_%g167610167650%_))))))) + (_%g167716167756%_)))))) + (let () (declare (not safe)) (_%g167716167756%_))))) + (let () (declare (not safe)) (_%g167716167756%_))))))) (define gxc#eval-in-ssxi-context - (lambda (_%expr167603%_) - (let ((__tmp171090 + (lambda (_%expr167709%_) + (let ((__tmp171196 (lambda () (eval '(import :gerbil/compiler/ssxi)) (let () (declare (not safe)) - (gx#eval-syntax__0 _%expr167603%_)))) - (__tmp171089 - (let ((__obj171012 + (gx#eval-syntax__0 _%expr167709%_)))) + (__tmp171195 + (let ((__obj171118 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj171012)) - __obj171012))) + (gx#top-context:::init!__0 __obj171118)) + __obj171118))) (declare (not safe)) (__call-with-parameters - __tmp171090 + __tmp171196 gx#current-expander-context - __tmp171089)))) + __tmp171195)))) (define gxc#collect-type-define-values% - (lambda (_%self167465%_ _%stx167466%_) - (let* ((_%__stx168122168123%_ _%stx167466%_) - (_%g167469167499%_ + (lambda (_%self167571%_ _%stx167572%_) + (let* ((_%__stx168228168229%_ _%stx167572%_) + (_%g167575167605%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168122168123%_))))) - (let ((_%__kont168124168125%_ - (lambda (_%L167579%_ _%L167580%_) - (let ((_%sym167596%_ + _%__stx168228168229%_))))) + (let ((_%__kont168230168231%_ + (lambda (_%L167685%_ _%L167686%_) + (let ((_%sym167702%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L167580%_)))) + (gxc#identifier-symbol _%L167686%_)))) (if (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym167596%_)) + (gxc#optimizer-lookup-type _%sym167702%_)) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%L167579%_)) - (let ((_%type167598%_ - (gxc#apply-basic-expression-type _%L167579%_))) - (if _%type167598%_ + (gxc#compile-e__1 _%self167571%_ _%L167685%_)) + (let ((_%type167704%_ + (gxc#apply-basic-expression-type _%L167685%_))) + (if _%type167704%_ (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym167596%_ - _%type167598%_)) + _%sym167702%_ + _%type167704%_)) '#!void) (let () (declare (not safe)) (gxc#compile-e__1 - _%self167465%_ - _%L167579%_))))))) - (_%__kont168126168127%_ - (lambda (_%L167528%_) + _%self167571%_ + _%L167685%_))))))) + (_%__kont168232168233%_ + (lambda (_%L167634%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167465%_ _%L167528%_))))) - (let ((_%__match168155168156%_ - (lambda (_%e167473167547%_ - _%hd167474167550%_ - _%tl167475167552%_ - _%e167476167555%_ - _%hd167477167558%_ - _%tl167478167560%_ - _%e167479167563%_ - _%hd167480167566%_ - _%tl167481167568%_ - _%e167482167571%_ - _%hd167483167574%_ - _%tl167484167576%_) - (let ((_%L167579%_ _%hd167483167574%_) - (_%L167580%_ _%hd167480167566%_)) + (gxc#compile-e__1 _%self167571%_ _%L167634%_))))) + (let ((_%__match168261168262%_ + (lambda (_%e167579167653%_ + _%hd167580167656%_ + _%tl167581167658%_ + _%e167582167661%_ + _%hd167583167664%_ + _%tl167584167666%_ + _%e167585167669%_ + _%hd167586167672%_ + _%tl167587167674%_ + _%e167588167677%_ + _%hd167589167680%_ + _%tl167590167682%_) + (let ((_%L167685%_ _%hd167589167680%_) + (_%L167686%_ _%hd167586167672%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L167580%_)) - (_%__kont168124168125%_ _%L167579%_ _%L167580%_) - (_%__kont168126168127%_ _%hd167483167574%_)))))) + (gx#identifier? _%L167686%_)) + (_%__kont168230168231%_ _%L167685%_ _%L167686%_) + (_%__kont168232168233%_ _%hd167589167680%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168122168123%_)) - (let ((_%e167473167547%_ + (gx#stx-pair? _%__stx168228168229%_)) + (let ((_%e167579167653%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168122168123%_)))) - (let ((_%tl167475167552%_ + (gx#stx-e _%__stx168228168229%_)))) + (let ((_%tl167581167658%_ (let () (declare (not safe)) - (##cdr _%e167473167547%_))) - (_%hd167474167550%_ + (##cdr _%e167579167653%_))) + (_%hd167580167656%_ (let () (declare (not safe)) - (##car _%e167473167547%_)))) + (##car _%e167579167653%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167475167552%_)) - (let ((_%e167476167555%_ + (gx#stx-pair? _%tl167581167658%_)) + (let ((_%e167582167661%_ (let () (declare (not safe)) - (gx#stx-e _%tl167475167552%_)))) - (let ((_%tl167478167560%_ + (gx#stx-e _%tl167581167658%_)))) + (let ((_%tl167584167666%_ (let () (declare (not safe)) - (##cdr _%e167476167555%_))) - (_%hd167477167558%_ + (##cdr _%e167582167661%_))) + (_%hd167583167664%_ (let () (declare (not safe)) - (##car _%e167476167555%_)))) + (##car _%e167582167661%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167477167558%_)) - (let ((_%e167479167563%_ + (gx#stx-pair? _%hd167583167664%_)) + (let ((_%e167585167669%_ (let () (declare (not safe)) - (gx#stx-e _%hd167477167558%_)))) - (let ((_%tl167481167568%_ + (gx#stx-e _%hd167583167664%_)))) + (let ((_%tl167587167674%_ (let () (declare (not safe)) - (##cdr _%e167479167563%_))) - (_%hd167480167566%_ + (##cdr _%e167585167669%_))) + (_%hd167586167672%_ (let () (declare (not safe)) - (##car _%e167479167563%_)))) + (##car _%e167585167669%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167481167568%_)) + (gx#stx-null? _%tl167587167674%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167478167560%_)) - (let ((_%e167482167571%_ + _%tl167584167666%_)) + (let ((_%e167588167677%_ (let () (declare (not safe)) (gx#stx-e - _%tl167478167560%_)))) - (let ((_%tl167484167576%_ + _%tl167584167666%_)))) + (let ((_%tl167590167682%_ (let () (declare (not safe)) - (##cdr _%e167482167571%_))) - (_%hd167483167574%_ + (##cdr _%e167588167677%_))) + (_%hd167589167680%_ (let () (declare (not safe)) - (##car _%e167482167571%_)))) + (##car _%e167588167677%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167484167576%_)) - (_%__match168155168156%_ - _%e167473167547%_ - _%hd167474167550%_ - _%tl167475167552%_ - _%e167476167555%_ - _%hd167477167558%_ - _%tl167478167560%_ - _%e167479167563%_ - _%hd167480167566%_ - _%tl167481167568%_ - _%e167482167571%_ - _%hd167483167574%_ - _%tl167484167576%_) + _%tl167590167682%_)) + (_%__match168261168262%_ + _%e167579167653%_ + _%hd167580167656%_ + _%tl167581167658%_ + _%e167582167661%_ + _%hd167583167664%_ + _%tl167584167666%_ + _%e167585167669%_ + _%hd167586167672%_ + _%tl167587167674%_ + _%e167588167677%_ + _%hd167589167680%_ + _%tl167590167682%_) (let () (declare (not safe)) - (_%g167469167499%_))))) + (_%g167575167605%_))))) (let () (declare (not safe)) - (_%g167469167499%_))) + (_%g167575167605%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167478167560%_)) - (let ((_%e167492167520%_ + _%tl167584167666%_)) + (let ((_%e167598167626%_ (let () (declare (not safe)) (gx#stx-e - _%tl167478167560%_)))) - (let ((_%tl167494167525%_ + _%tl167584167666%_)))) + (let ((_%tl167600167631%_ (let () (declare (not safe)) - (##cdr _%e167492167520%_))) - (_%hd167493167523%_ + (##cdr _%e167598167626%_))) + (_%hd167599167629%_ (let () (declare (not safe)) - (##car _%e167492167520%_)))) + (##car _%e167598167626%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167494167525%_)) - (_%__kont168126168127%_ - _%hd167493167523%_) + _%tl167600167631%_)) + (_%__kont168232168233%_ + _%hd167599167629%_) (let () (declare (not safe)) - (_%g167469167499%_))))) + (_%g167575167605%_))))) (let () (declare (not safe)) - (_%g167469167499%_)))))) + (_%g167575167605%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167478167560%_)) - (let ((_%e167492167520%_ + (gx#stx-pair? _%tl167584167666%_)) + (let ((_%e167598167626%_ (let () (declare (not safe)) - (gx#stx-e _%tl167478167560%_)))) - (let ((_%tl167494167525%_ + (gx#stx-e _%tl167584167666%_)))) + (let ((_%tl167600167631%_ (let () (declare (not safe)) - (##cdr _%e167492167520%_))) - (_%hd167493167523%_ + (##cdr _%e167598167626%_))) + (_%hd167599167629%_ (let () (declare (not safe)) - (##car _%e167492167520%_)))) + (##car _%e167598167626%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167494167525%_)) - (_%__kont168126168127%_ - _%hd167493167523%_) + _%tl167600167631%_)) + (_%__kont168232168233%_ + _%hd167599167629%_) (let () (declare (not safe)) - (_%g167469167499%_))))) + (_%g167575167605%_))))) (let () (declare (not safe)) - (_%g167469167499%_)))))) - (let () (declare (not safe)) (_%g167469167499%_))))) - (let () (declare (not safe)) (_%g167469167499%_)))))))) + (_%g167575167605%_)))))) + (let () (declare (not safe)) (_%g167575167605%_))))) + (let () (declare (not safe)) (_%g167575167605%_)))))))) (define gxc#collect-type-begin-annotation% - (lambda (_%self167220%_ _%stx167221%_) - (let* ((_%__stx168200168201%_ _%stx167221%_) - (_%g167224167264%_ + (lambda (_%self167326%_ _%stx167327%_) + (let* ((_%__stx168306168307%_ _%stx167327%_) + (_%g167330167370%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168200168201%_))))) - (let ((_%__kont168202168203%_ - (lambda (_%L167370%_ _%L167371%_) + _%__stx168306168307%_))))) + (let ((_%__kont168308168309%_ + (lambda (_%L167476%_ _%L167477%_) (for-each - (lambda (_%assertion167391%_) - (let* ((_%__stx168178168179%_ _%assertion167391%_) - (_%g167394167408%_ + (lambda (_%assertion167497%_) + (let* ((_%__stx168284168285%_ _%assertion167497%_) + (_%g167500167514%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168178168179%_))))) - (let ((_%__kont168180168181%_ - (lambda (_%L167436%_ _%L167437%_) - (let ((__tmp171093 + _%__stx168284168285%_))))) + (let ((_%__kont168286168287%_ + (lambda (_%L167542%_ _%L167543%_) + (let ((__tmp171199 (let () (declare (not safe)) - (gxc#identifier-symbol _%L167437%_))) - (__tmp171091 - (let ((__tmp171092 + (gxc#identifier-symbol _%L167543%_))) + (__tmp171197 + (let ((__tmp171198 (let () (declare (not safe)) (gxc#identifier-symbol - _%L167436%_)))) + _%L167542%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx167221%_ - __tmp171092)))) + _%stx167327%_ + __tmp171198)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171093 - __tmp171091 + __tmp171199 + __tmp171197 '#t)))) - (_%__kont168182168183%_ + (_%__kont168288168289%_ (lambda () (let () (declare (not safe)) (gxc#raise-compile-error '"malformed type assertion" - _%stx167221%_ - _%assertion167391%_))))) - (let ((_%__match168197168198%_ - (lambda (_%e167398167420%_ - _%hd167399167423%_ - _%tl167400167425%_ - _%e167401167428%_ - _%hd167402167431%_ - _%tl167403167433%_) - (let ((_%L167436%_ _%hd167402167431%_) - (_%L167437%_ _%hd167399167423%_)) + _%stx167327%_ + _%assertion167497%_))))) + (let ((_%__match168303168304%_ + (lambda (_%e167504167526%_ + _%hd167505167529%_ + _%tl167506167531%_ + _%e167507167534%_ + _%hd167508167537%_ + _%tl167509167539%_) + (let ((_%L167542%_ _%hd167508167537%_) + (_%L167543%_ _%hd167505167529%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L167437%_)) + (gx#identifier? _%L167543%_)) (let () (declare (not safe)) - (gx#identifier? _%L167436%_))) - (_%__kont168180168181%_ - _%L167436%_ - _%L167437%_) - (_%__kont168182168183%_)))))) + (gx#identifier? _%L167542%_))) + (_%__kont168286168287%_ + _%L167542%_ + _%L167543%_) + (_%__kont168288168289%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168178168179%_)) - (let ((_%e167398167420%_ + (gx#stx-pair? _%__stx168284168285%_)) + (let ((_%e167504167526%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168178168179%_)))) - (let ((_%tl167400167425%_ + (gx#stx-e _%__stx168284168285%_)))) + (let ((_%tl167506167531%_ (let () (declare (not safe)) - (##cdr _%e167398167420%_))) - (_%hd167399167423%_ + (##cdr _%e167504167526%_))) + (_%hd167505167529%_ (let () (declare (not safe)) - (##car _%e167398167420%_)))) + (##car _%e167504167526%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167400167425%_)) - (let ((_%e167401167428%_ + (gx#stx-pair? _%tl167506167531%_)) + (let ((_%e167507167534%_ (let () (declare (not safe)) (gx#stx-e - _%tl167400167425%_)))) - (let ((_%tl167403167433%_ + _%tl167506167531%_)))) + (let ((_%tl167509167539%_ (let () (declare (not safe)) - (##cdr _%e167401167428%_))) - (_%hd167402167431%_ + (##cdr _%e167507167534%_))) + (_%hd167508167537%_ (let () (declare (not safe)) - (##car _%e167401167428%_)))) + (##car _%e167507167534%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167403167433%_)) - (_%__match168197168198%_ - _%e167398167420%_ - _%hd167399167423%_ - _%tl167400167425%_ - _%e167401167428%_ - _%hd167402167431%_ - _%tl167403167433%_) - (_%__kont168182168183%_)))) - (_%__kont168182168183%_)))) - (_%__kont168182168183%_)))))) - (let ((__tmp171094 - (lambda (_%g167454167457%_ _%g167455167459%_) - (cons _%g167454167457%_ _%g167455167459%_)))) + _%tl167509167539%_)) + (_%__match168303168304%_ + _%e167504167526%_ + _%hd167505167529%_ + _%tl167506167531%_ + _%e167507167534%_ + _%hd167508167537%_ + _%tl167509167539%_) + (_%__kont168288168289%_)))) + (_%__kont168288168289%_)))) + (_%__kont168288168289%_)))))) + (let ((__tmp171200 + (lambda (_%g167560167563%_ _%g167561167565%_) + (cons _%g167560167563%_ _%g167561167565%_)))) (declare (not safe)) - (__foldr1 __tmp171094 '() _%L167371%_))) + (__foldr1 __tmp171200 '() _%L167477%_))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167220%_ _%L167370%_)))) - (_%__kont168206168207%_ - (lambda (_%L167293%_ _%L167294%_) + (gxc#compile-e__1 _%self167326%_ _%L167476%_)))) + (_%__kont168312168313%_ + (lambda (_%L167399%_ _%L167400%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self167220%_ _%L167293%_))))) - (let ((_%__match168237168238%_ - (lambda (_%e167228167314%_ - _%hd167229167317%_ - _%tl167230167319%_ - _%e167231167322%_ - _%hd167232167325%_ - _%tl167233167327%_ - _%e167234167330%_ - _%hd167235167333%_ - _%tl167236167335%_ - _%__splice168204168205%_ - _%target167237167338%_ - _%tl167239167340%_) - (letrec ((_%loop167240167343%_ - (lambda (_%hd167238167346%_ - _%assertion167244167348%_) + (gxc#compile-e__1 _%self167326%_ _%L167399%_))))) + (let ((_%__match168343168344%_ + (lambda (_%e167334167420%_ + _%hd167335167423%_ + _%tl167336167425%_ + _%e167337167428%_ + _%hd167338167431%_ + _%tl167339167433%_ + _%e167340167436%_ + _%hd167341167439%_ + _%tl167342167441%_ + _%__splice168310168311%_ + _%target167343167444%_ + _%tl167345167446%_) + (letrec ((_%loop167346167449%_ + (lambda (_%hd167344167452%_ + _%assertion167350167454%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167238167346%_)) - (let ((_%e167241167351%_ + (gx#stx-pair? _%hd167344167452%_)) + (let ((_%e167347167457%_ (let () (declare (not safe)) - (gx#stx-e _%hd167238167346%_)))) - (let ((_%lp-tl167243167356%_ + (gx#stx-e _%hd167344167452%_)))) + (let ((_%lp-tl167349167462%_ (let () (declare (not safe)) - (##cdr _%e167241167351%_))) - (_%lp-hd167242167354%_ + (##cdr _%e167347167457%_))) + (_%lp-hd167348167460%_ (let () (declare (not safe)) - (##car _%e167241167351%_)))) - (_%loop167240167343%_ - _%lp-tl167243167356%_ - (cons _%lp-hd167242167354%_ - _%assertion167244167348%_)))) - (let ((_%assertion167245167359%_ - (reverse _%assertion167244167348%_))) + (##car _%e167347167457%_)))) + (_%loop167346167449%_ + _%lp-tl167349167462%_ + (cons _%lp-hd167348167460%_ + _%assertion167350167454%_)))) + (let ((_%assertion167351167465%_ + (reverse _%assertion167350167454%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167233167327%_)) - (let ((_%e167246167362%_ + (gx#stx-pair? _%tl167339167433%_)) + (let ((_%e167352167468%_ (let () (declare (not safe)) (gx#stx-e - _%tl167233167327%_)))) - (let ((_%tl167248167367%_ + _%tl167339167433%_)))) + (let ((_%tl167354167473%_ (let () (declare (not safe)) - (##cdr _%e167246167362%_))) - (_%hd167247167365%_ + (##cdr _%e167352167468%_))) + (_%hd167353167471%_ (let () (declare (not safe)) - (##car _%e167246167362%_)))) + (##car _%e167352167468%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167248167367%_)) - (_%__kont168202168203%_ - _%hd167247167365%_ - _%assertion167245167359%_) + _%tl167354167473%_)) + (_%__kont168308168309%_ + _%hd167353167471%_ + _%assertion167351167465%_) (let () (declare (not safe)) - (_%g167224167264%_))))) + (_%g167330167370%_))))) (let () (declare (not safe)) - (_%g167224167264%_)))))))) - (_%loop167240167343%_ _%target167237167338%_ '()))))) + (_%g167330167370%_)))))))) + (_%loop167346167449%_ _%target167343167444%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168200168201%_)) - (let ((_%e167228167314%_ + (gx#stx-pair? _%__stx168306168307%_)) + (let ((_%e167334167420%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168200168201%_)))) - (let ((_%tl167230167319%_ + (gx#stx-e _%__stx168306168307%_)))) + (let ((_%tl167336167425%_ (let () (declare (not safe)) - (##cdr _%e167228167314%_))) - (_%hd167229167317%_ + (##cdr _%e167334167420%_))) + (_%hd167335167423%_ (let () (declare (not safe)) - (##car _%e167228167314%_)))) + (##car _%e167334167420%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167230167319%_)) - (let ((_%e167231167322%_ + (gx#stx-pair? _%tl167336167425%_)) + (let ((_%e167337167428%_ (let () (declare (not safe)) - (gx#stx-e _%tl167230167319%_)))) - (let ((_%tl167233167327%_ + (gx#stx-e _%tl167336167425%_)))) + (let ((_%tl167339167433%_ (let () (declare (not safe)) - (##cdr _%e167231167322%_))) - (_%hd167232167325%_ + (##cdr _%e167337167428%_))) + (_%hd167338167431%_ (let () (declare (not safe)) - (##car _%e167231167322%_)))) + (##car _%e167337167428%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd167232167325%_)) - (let ((_%e167234167330%_ + (gx#stx-pair? _%hd167338167431%_)) + (let ((_%e167340167436%_ (let () (declare (not safe)) - (gx#stx-e _%hd167232167325%_)))) - (let ((_%tl167236167335%_ + (gx#stx-e _%hd167338167431%_)))) + (let ((_%tl167342167441%_ (let () (declare (not safe)) - (##cdr _%e167234167330%_))) - (_%hd167235167333%_ + (##cdr _%e167340167436%_))) + (_%hd167341167439%_ (let () (declare (not safe)) - (##car _%e167234167330%_)))) + (##car _%e167340167436%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd167235167333%_)) + _%hd167341167439%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.assert - _%hd167235167333%_)) + _%hd167341167439%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl167236167335%_)) - (let ((_%__splice168204168205%_ + _%tl167342167441%_)) + (let ((_%__splice168310168311%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl167236167335%_ + _%tl167342167441%_ '0)))) - (let ((_%tl167239167340%_ + (let ((_%tl167345167446%_ (let () (declare (not safe)) (##vector-ref - _%__splice168204168205%_ + _%__splice168310168311%_ '1))) - (_%target167237167338%_ + (_%target167343167444%_ (let () (declare (not safe)) (##vector-ref - _%__splice168204168205%_ + _%__splice168310168311%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167239167340%_)) - (_%__match168237168238%_ - _%e167228167314%_ - _%hd167229167317%_ - _%tl167230167319%_ - _%e167231167322%_ - _%hd167232167325%_ - _%tl167233167327%_ - _%e167234167330%_ - _%hd167235167333%_ - _%tl167236167335%_ - _%__splice168204168205%_ - _%target167237167338%_ - _%tl167239167340%_) + _%tl167345167446%_)) + (_%__match168343168344%_ + _%e167334167420%_ + _%hd167335167423%_ + _%tl167336167425%_ + _%e167337167428%_ + _%hd167338167431%_ + _%tl167339167433%_ + _%e167340167436%_ + _%hd167341167439%_ + _%tl167342167441%_ + _%__splice168310168311%_ + _%target167343167444%_ + _%tl167345167446%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl167233167327%_)) - (let ((_%e167257167285%_ + (gx#stx-pair? _%tl167339167433%_)) + (let ((_%e167363167391%_ (let () (declare (not safe)) - (gx#stx-e _%tl167233167327%_)))) - (let ((_%tl167259167290%_ + (gx#stx-e _%tl167339167433%_)))) + (let ((_%tl167365167396%_ (let () (declare (not safe)) - (##cdr _%e167257167285%_))) - (_%hd167258167288%_ + (##cdr _%e167363167391%_))) + (_%hd167364167394%_ (let () (declare (not safe)) - (##car _%e167257167285%_)))) + (##car _%e167363167391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167259167290%_)) - (_%__kont168206168207%_ - _%hd167258167288%_ - _%hd167232167325%_) + (gx#stx-null? _%tl167365167396%_)) + (_%__kont168312168313%_ + _%hd167364167394%_ + _%hd167338167431%_) (let () (declare (not safe)) - (_%g167224167264%_))))) - (let () (declare (not safe)) (_%g167224167264%_)))))) + (_%g167330167370%_))))) + (let () (declare (not safe)) (_%g167330167370%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167233167327%_)) - (let ((_%e167257167285%_ + _%tl167339167433%_)) + (let ((_%e167363167391%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl167233167327%_)))) - (let ((_%tl167259167290%_ - (let () (declare (not safe)) (##cdr _%e167257167285%_))) - (_%hd167258167288%_ + (gx#stx-e _%tl167339167433%_)))) + (let ((_%tl167365167396%_ + (let () (declare (not safe)) (##cdr _%e167363167391%_))) + (_%hd167364167394%_ (let () (declare (not safe)) - (##car _%e167257167285%_)))) + (##car _%e167363167391%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167259167290%_)) - (_%__kont168206168207%_ - _%hd167258167288%_ - _%hd167232167325%_) - (let () (declare (not safe)) (_%g167224167264%_))))) - (let () (declare (not safe)) (_%g167224167264%_)))) + (gx#stx-null? _%tl167365167396%_)) + (_%__kont168312168313%_ + _%hd167364167394%_ + _%hd167338167431%_) + (let () (declare (not safe)) (_%g167330167370%_))))) + (let () (declare (not safe)) (_%g167330167370%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167233167327%_)) - (let ((_%e167257167285%_ + _%tl167339167433%_)) + (let ((_%e167363167391%_ (let () (declare (not safe)) (gx#stx-e - _%tl167233167327%_)))) - (let ((_%tl167259167290%_ + _%tl167339167433%_)))) + (let ((_%tl167365167396%_ (let () (declare (not safe)) - (##cdr _%e167257167285%_))) - (_%hd167258167288%_ + (##cdr _%e167363167391%_))) + (_%hd167364167394%_ (let () (declare (not safe)) - (##car _%e167257167285%_)))) + (##car _%e167363167391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167259167290%_)) - (_%__kont168206168207%_ - _%hd167258167288%_ - _%hd167232167325%_) + _%tl167365167396%_)) + (_%__kont168312168313%_ + _%hd167364167394%_ + _%hd167338167431%_) (let () (declare (not safe)) - (_%g167224167264%_))))) + (_%g167330167370%_))))) (let () (declare (not safe)) - (_%g167224167264%_)))) + (_%g167330167370%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167233167327%_)) - (let ((_%e167257167285%_ + _%tl167339167433%_)) + (let ((_%e167363167391%_ (let () (declare (not safe)) (gx#stx-e - _%tl167233167327%_)))) - (let ((_%tl167259167290%_ + _%tl167339167433%_)))) + (let ((_%tl167365167396%_ (let () (declare (not safe)) - (##cdr _%e167257167285%_))) - (_%hd167258167288%_ + (##cdr _%e167363167391%_))) + (_%hd167364167394%_ (let () (declare (not safe)) - (##car _%e167257167285%_)))) + (##car _%e167363167391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167259167290%_)) - (_%__kont168206168207%_ - _%hd167258167288%_ - _%hd167232167325%_) + _%tl167365167396%_)) + (_%__kont168312168313%_ + _%hd167364167394%_ + _%hd167338167431%_) (let () (declare (not safe)) - (_%g167224167264%_))))) + (_%g167330167370%_))))) (let () (declare (not safe)) - (_%g167224167264%_)))))) + (_%g167330167370%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167233167327%_)) - (let ((_%e167257167285%_ + (gx#stx-pair? _%tl167339167433%_)) + (let ((_%e167363167391%_ (let () (declare (not safe)) - (gx#stx-e _%tl167233167327%_)))) - (let ((_%tl167259167290%_ + (gx#stx-e _%tl167339167433%_)))) + (let ((_%tl167365167396%_ (let () (declare (not safe)) - (##cdr _%e167257167285%_))) - (_%hd167258167288%_ + (##cdr _%e167363167391%_))) + (_%hd167364167394%_ (let () (declare (not safe)) - (##car _%e167257167285%_)))) + (##car _%e167363167391%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167259167290%_)) - (_%__kont168206168207%_ - _%hd167258167288%_ - _%hd167232167325%_) + _%tl167365167396%_)) + (_%__kont168312168313%_ + _%hd167364167394%_ + _%hd167338167431%_) (let () (declare (not safe)) - (_%g167224167264%_))))) + (_%g167330167370%_))))) (let () (declare (not safe)) - (_%g167224167264%_)))))) - (let () (declare (not safe)) (_%g167224167264%_))))) - (let () (declare (not safe)) (_%g167224167264%_)))))))) + (_%g167330167370%_)))))) + (let () (declare (not safe)) (_%g167330167370%_))))) + (let () (declare (not safe)) (_%g167330167370%_)))))))) (define gxc#collect-type-lambda% - (lambda (_%self167164%_ _%stx167165%_) - (let* ((_%g167167167181%_ - (lambda (_%g167168167178%_) + (lambda (_%self167270%_ _%stx167271%_) + (let* ((_%g167273167287%_ + (lambda (_%g167274167284%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167168167178%_)))) - (_%g167166167217%_ - (lambda (_%g167168167184%_) + _%g167274167284%_)))) + (_%g167272167323%_ + (lambda (_%g167274167290%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167168167184%_)) - (let ((_%e167171167186%_ + (gx#stx-pair? _%g167274167290%_)) + (let ((_%e167277167292%_ (let () (declare (not safe)) - (gx#stx-e _%g167168167184%_)))) - (let ((_%hd167172167189%_ + (gx#stx-e _%g167274167290%_)))) + (let ((_%hd167278167295%_ (let () (declare (not safe)) - (##car _%e167171167186%_))) - (_%tl167173167191%_ + (##car _%e167277167292%_))) + (_%tl167279167297%_ (let () (declare (not safe)) - (##cdr _%e167171167186%_)))) + (##cdr _%e167277167292%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167173167191%_)) - (let ((_%e167174167194%_ + (gx#stx-pair? _%tl167279167297%_)) + (let ((_%e167280167300%_ (let () (declare (not safe)) - (gx#stx-e _%tl167173167191%_)))) - (let ((_%hd167175167197%_ + (gx#stx-e _%tl167279167297%_)))) + (let ((_%hd167281167303%_ (let () (declare (not safe)) - (##car _%e167174167194%_))) - (_%tl167176167199%_ + (##car _%e167280167300%_))) + (_%tl167282167305%_ (let () (declare (not safe)) - (##cdr _%e167174167194%_)))) - ((lambda (_%L167202%_ _%L167203%_) - (let ((__tmp171096 + (##cdr _%e167280167300%_)))) + ((lambda (_%L167308%_ _%L167309%_) + (let ((__tmp171202 (lambda () (gxc#collect-type-lambda-formals-tail - _%stx167165%_ - _%L167203%_) + _%stx167271%_ + _%L167309%_) (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self167164%_ - _%stx167165%_)))) - (__tmp171095 + _%self167270%_ + _%stx167271%_)))) + (__tmp171201 (let () (declare (not safe)) (gxc#xform-let-locals - _%L167203%_)))) + _%L167309%_)))) (declare (not safe)) (__call-with-parameters - __tmp171096 + __tmp171202 gxc#current-compile-local-env - __tmp171095))) - _%tl167176167199%_ - _%hd167175167197%_))) - (_%g167167167181%_ _%g167168167184%_)))) - (_%g167167167181%_ _%g167168167184%_))))) - (_%g167166167217%_ _%stx167165%_)))) + __tmp171201))) + _%tl167282167305%_ + _%hd167281167303%_))) + (_%g167273167287%_ _%g167274167290%_)))) + (_%g167273167287%_ _%g167274167290%_))))) + (_%g167272167323%_ _%stx167271%_)))) (define gxc#collect-type-case-lambda% - (lambda (_%self166980%_ _%stx166981%_) - (let* ((_%g166983167011%_ - (lambda (_%g166984167008%_) + (lambda (_%self167086%_ _%stx167087%_) + (let* ((_%g167089167117%_ + (lambda (_%g167090167114%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166984167008%_)))) - (_%g166982167161%_ - (lambda (_%g166984167014%_) + _%g167090167114%_)))) + (_%g167088167267%_ + (lambda (_%g167090167120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166984167014%_)) - (let ((_%e166987167016%_ + (gx#stx-pair? _%g167090167120%_)) + (let ((_%e167093167122%_ (let () (declare (not safe)) - (gx#stx-e _%g166984167014%_)))) - (let ((_%hd166988167019%_ + (gx#stx-e _%g167090167120%_)))) + (let ((_%hd167094167125%_ (let () (declare (not safe)) - (##car _%e166987167016%_))) - (_%tl166989167021%_ + (##car _%e167093167122%_))) + (_%tl167095167127%_ (let () (declare (not safe)) - (##cdr _%e166987167016%_)))) + (##cdr _%e167093167122%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl166989167021%_)) - (let ((_g171097_ + (gx#stx-pair/null? _%tl167095167127%_)) + (let ((_g171203_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl166989167021%_ + _%tl167095167127%_ '0)))) (begin - (let ((_g171098_ + (let ((_g171204_ (let () (declare (not safe)) - (if (##values? _g171097_) - (##vector-length _g171097_) + (if (##values? _g171203_) + (##values-length _g171203_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171098_ 2))) + (##fx= _g171204_ 2))) (error "Context expects 2 values" - _g171098_))) - (let ((_%target166990167024%_ + _g171204_))) + (let ((_%target167096167130%_ (let () (declare (not safe)) - (##vector-ref _g171097_ 0))) - (_%tl166992167026%_ + (##values-ref _g171203_ 0))) + (_%tl167098167132%_ (let () (declare (not safe)) - (##vector-ref _g171097_ 1)))) + (##values-ref _g171203_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166992167026%_)) - (letrec ((_%loop166993167029%_ - (lambda (_%hd166991167032%_ - _%body166997167034%_ - _%hd166998167036%_) + (gx#stx-null? _%tl167098167132%_)) + (letrec ((_%loop167099167135%_ + (lambda (_%hd167097167138%_ + _%body167103167140%_ + _%hd167104167142%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd166991167032%_)) - (let ((_%e166994167039%_ + _%hd167097167138%_)) + (let ((_%e167100167145%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd166991167032%_)))) - (let ((_%lp-hd166995167042%_ + (gx#stx-e _%hd167097167138%_)))) + (let ((_%lp-hd167101167148%_ (let () (declare (not safe)) - (##car _%e166994167039%_))) - (_%lp-tl166996167044%_ + (##car _%e167100167145%_))) + (_%lp-tl167102167150%_ (let () (declare (not safe)) - (##cdr _%e166994167039%_)))) + (##cdr _%e167100167145%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166995167042%_)) - (let ((_%e167001167047%_ + (gx#stx-pair? _%lp-hd167101167148%_)) + (let ((_%e167107167153%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166995167042%_)))) - (let ((_%hd167002167050%_ + (gx#stx-e _%lp-hd167101167148%_)))) + (let ((_%hd167108167156%_ (let () (declare (not safe)) - (##car _%e167001167047%_))) - (_%tl167003167052%_ + (##car _%e167107167153%_))) + (_%tl167109167158%_ (let () (declare (not safe)) - (##cdr _%e167001167047%_)))) + (##cdr _%e167107167153%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl167003167052%_)) - (let ((_%e167004167055%_ + (gx#stx-pair? _%tl167109167158%_)) + (let ((_%e167110167161%_ (let () (declare (not safe)) - (gx#stx-e _%tl167003167052%_)))) - (let ((_%hd167005167058%_ + (gx#stx-e _%tl167109167158%_)))) + (let ((_%hd167111167164%_ (let () (declare (not safe)) - (##car _%e167004167055%_))) - (_%tl167006167060%_ + (##car _%e167110167161%_))) + (_%tl167112167166%_ (let () (declare (not safe)) - (##cdr _%e167004167055%_)))) + (##cdr _%e167110167161%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl167006167060%_)) - (_%loop166993167029%_ - _%lp-tl166996167044%_ - (cons _%hd167005167058%_ - _%body166997167034%_) - (cons _%hd167002167050%_ - _%hd166998167036%_)) - (_%g166983167011%_ - _%g166984167014%_)))) - (_%g166983167011%_ _%g166984167014%_)))) - (_%g166983167011%_ _%g166984167014%_)))) - (let ((_%body166999167063%_ (reverse _%body166997167034%_)) - (_%hd167000167065%_ (reverse _%hd166998167036%_))) - ((lambda (_%L167068%_ _%L167069%_) + (gx#stx-null? _%tl167112167166%_)) + (_%loop167099167135%_ + _%lp-tl167102167150%_ + (cons _%hd167111167164%_ + _%body167103167140%_) + (cons _%hd167108167156%_ + _%hd167104167142%_)) + (_%g167089167117%_ + _%g167090167120%_)))) + (_%g167089167117%_ _%g167090167120%_)))) + (_%g167089167117%_ _%g167090167120%_)))) + (let ((_%body167105167169%_ (reverse _%body167103167140%_)) + (_%hd167106167171%_ (reverse _%hd167104167142%_))) + ((lambda (_%L167174%_ _%L167175%_) (for-each - (lambda (_%g167083167085%_) + (lambda (_%g167189167191%_) (gxc#collect-type-lambda-formals-tail - _%stx166981%_ - _%g167083167085%_)) - (let ((__tmp171099 - (lambda (_%g167087167090%_ _%g167088167092%_) - (cons _%g167087167090%_ _%g167088167092%_)))) + _%stx167087%_ + _%g167189167191%_)) + (let ((__tmp171205 + (lambda (_%g167193167196%_ _%g167194167198%_) + (cons _%g167193167196%_ _%g167194167198%_)))) (declare (not safe)) - (__foldr1 __tmp171099 '() _%L167069%_))) + (__foldr1 __tmp171205 '() _%L167175%_))) (for-each - (lambda (_%clause167095%_) - (let* ((_%g167097167111%_ - (lambda (_%g167098167108%_) + (lambda (_%clause167201%_) + (let* ((_%g167203167217%_ + (lambda (_%g167204167214%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g167098167108%_)))) - (_%g167096167148%_ - (lambda (_%g167098167114%_) + _%g167204167214%_)))) + (_%g167202167254%_ + (lambda (_%g167204167220%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g167098167114%_)) - (let ((_%e167101167116%_ + (gx#stx-pair? _%g167204167220%_)) + (let ((_%e167207167222%_ (let () (declare (not safe)) - (gx#stx-e _%g167098167114%_)))) - (let ((_%hd167102167119%_ + (gx#stx-e _%g167204167220%_)))) + (let ((_%hd167208167225%_ (let () (declare (not safe)) - (##car _%e167101167116%_))) - (_%tl167103167121%_ + (##car _%e167207167222%_))) + (_%tl167209167227%_ (let () (declare (not safe)) - (##cdr _%e167101167116%_)))) + (##cdr _%e167207167222%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl167103167121%_)) - (let ((_%e167104167124%_ + _%tl167209167227%_)) + (let ((_%e167210167230%_ (let () (declare (not safe)) (gx#stx-e - _%tl167103167121%_)))) - (let ((_%hd167105167127%_ + _%tl167209167227%_)))) + (let ((_%hd167211167233%_ (let () (declare (not safe)) - (##car _%e167104167124%_))) - (_%tl167106167129%_ + (##car _%e167210167230%_))) + (_%tl167212167235%_ (let () (declare (not safe)) - (##cdr _%e167104167124%_)))) + (##cdr _%e167210167230%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl167106167129%_)) - ((lambda (_%L167132%_ - _%L167133%_) - (let ((__tmp171101 + _%tl167212167235%_)) + ((lambda (_%L167238%_ + _%L167239%_) + (let ((__tmp171207 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self166980%_ - _%stx166981%_)))) - (__tmp171100 + _%self167086%_ + _%stx167087%_)))) + (__tmp171206 (let () (declare (not safe)) - (gxc#xform-let-locals _%L167133%_)))) + (gxc#xform-let-locals _%L167239%_)))) (declare (not safe)) (__call-with-parameters - __tmp171101 + __tmp171207 gxc#current-compile-local-env - __tmp171100))) - _%hd167105167127%_ - _%hd167102167119%_) - (_%g167097167111%_ _%g167098167114%_)))) + __tmp171206))) + _%hd167211167233%_ + _%hd167208167225%_) + (_%g167203167217%_ _%g167204167220%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g167097167111%_ - _%g167098167114%_)))) - (_%g167097167111%_ _%g167098167114%_))))) - (_%g167096167148%_ _%clause167095%_))) + (_%g167203167217%_ + _%g167204167220%_)))) + (_%g167203167217%_ _%g167204167220%_))))) + (_%g167202167254%_ _%clause167201%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L167068%_ - _%L167069%_)) - (let ((__tmp171102 - (lambda (_%g167150167154%_ - _%g167151167156%_ - _%g167152167158%_) - (cons (cons _%g167151167156%_ - (cons _%g167150167154%_ '())) - _%g167152167158%_)))) + _%L167174%_ + _%L167175%_)) + (let ((__tmp171208 + (lambda (_%g167256167260%_ + _%g167257167262%_ + _%g167258167264%_) + (cons (cons _%g167257167262%_ + (cons _%g167256167260%_ '())) + _%g167258167264%_)))) (declare (not safe)) (__foldr2 - __tmp171102 + __tmp171208 '() - _%L167068%_ - _%L167069%_))))) - _%body166999167063%_ - _%hd167000167065%_)))))) + _%L167174%_ + _%L167175%_))))) + _%body167105167169%_ + _%hd167106167171%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166993167029%_ - _%target166990167024%_ + (_%loop167099167135%_ + _%target167096167130%_ '() '())) - (_%g166983167011%_ - _%g166984167014%_))))) - (_%g166983167011%_ _%g166984167014%_)))) - (_%g166983167011%_ _%g166984167014%_))))) - (_%g166982167161%_ _%stx166981%_)))) + (_%g167089167117%_ + _%g167090167120%_))))) + (_%g167089167117%_ _%g167090167120%_)))) + (_%g167089167117%_ _%g167090167120%_))))) + (_%g167088167267%_ _%stx167087%_)))) (define gxc#collect-type-lambda-formals-tail - (lambda (_%stx166912%_ _%formals166913%_) - (let _%loop166915%_ ((_%rest166917%_ _%formals166913%_)) - (let* ((_%__stx168260168261%_ _%rest166917%_) - (_%g166921166932%_ + (lambda (_%stx167018%_ _%formals167019%_) + (let _%loop167021%_ ((_%rest167023%_ _%formals167019%_)) + (let* ((_%__stx168366168367%_ _%rest167023%_) + (_%g167027167038%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168260168261%_))))) - (let ((_%__kont168262168263%_ - (lambda (_%L166968%_) (_%loop166915%_ _%L166968%_))) - (_%__kont168264168265%_ - (lambda (_%L166944%_) - (let ((__tmp171104 + _%__stx168366168367%_))))) + (let ((_%__kont168368168369%_ + (lambda (_%L167074%_) (_%loop167021%_ _%L167074%_))) + (_%__kont168370168371%_ + (lambda (_%L167050%_) + (let ((__tmp171210 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166944%_))) - (__tmp171103 + (gxc#identifier-symbol _%L167050%_))) + (__tmp171209 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166912%_ + _%stx167018%_ 'list::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - __tmp171104 - __tmp171103 + __tmp171210 + __tmp171209 '#t)))) - (_%__kont168266168267%_ (lambda () '#!void))) - (let ((_%g166919166955%_ + (_%__kont168372168373%_ (lambda () '#!void))) + (let ((_%g167025167061%_ (lambda () - (let ((_%L166944%_ _%__stx168260168261%_)) + (let ((_%L167050%_ _%__stx168366168367%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166944%_)) - (_%__kont168264168265%_ _%L166944%_) - (_%__kont168266168267%_)))))) + (gx#identifier? _%L167050%_)) + (_%__kont168370168371%_ _%L167050%_) + (_%__kont168372168373%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168260168261%_)) - (let ((_%e166924166960%_ + (gx#stx-pair? _%__stx168366168367%_)) + (let ((_%e167030167066%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168260168261%_)))) - (let ((_%tl166926166965%_ + (gx#stx-e _%__stx168366168367%_)))) + (let ((_%tl167032167071%_ (let () (declare (not safe)) - (##cdr _%e166924166960%_))) - (_%hd166925166963%_ + (##cdr _%e167030167066%_))) + (_%hd167031167069%_ (let () (declare (not safe)) - (##car _%e166924166960%_)))) - (_%__kont168262168263%_ _%tl166926166965%_))) - (let () (declare (not safe)) (_%g166919166955%_))))))))) + (##car _%e167030167066%_)))) + (_%__kont168368168369%_ _%tl167032167071%_))) + (let () (declare (not safe)) (_%g167025167061%_))))))))) (define gxc#collect-type-let-values%__% - (lambda (_%self166671%_ _%stx166672%_ _%expression-type166673%_) - (letrec ((_%collect-e166675%_ - (lambda (_%hd166844%_ _%expr166845%_) - (let* ((_%__stx168276168277%_ _%hd166844%_) - (_%g166848166858%_ + (lambda (_%self166777%_ _%stx166778%_ _%expression-type166779%_) + (letrec ((_%collect-e166781%_ + (lambda (_%hd166950%_ _%expr166951%_) + (let* ((_%__stx168382168383%_ _%hd166950%_) + (_%g166954166964%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168276168277%_))))) - (let ((_%__kont168278168279%_ - (lambda (_%L166878%_) - (let* ((_%sym166889%_ + _%__stx168382168383%_))))) + (let ((_%__kont168384168385%_ + (lambda (_%L166984%_) + (let* ((_%sym166995%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166878%_))) - (_%type166890166892%_ - (_%expression-type166673%_ - _%expr166845%_))) - (if _%type166890166892%_ - (let ((_%type166895%_ - _%type166890166892%_)) + (gxc#identifier-symbol _%L166984%_))) + (_%type166996166998%_ + (_%expression-type166779%_ + _%expr166951%_))) + (if _%type166996166998%_ + (let ((_%type167001%_ + _%type166996166998%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166895%_ + _%type167001%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171105 + (let ((__tmp171211 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166895%_ + _%type167001%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166889%_ - __tmp171105)) - (let ((__tmp171106 + _%sym166995%_ + __tmp171211)) + (let ((__tmp171212 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166672%_ + _%stx166778%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166889%_ - __tmp171106 + _%sym166995%_ + __tmp171212 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166889%_ - _%type166895%_ + _%sym166995%_ + _%type167001%_ '#t)))) '#f)))) - (_%__kont168280168281%_ (lambda () '#!void))) - (let ((_%__match168289168290%_ - (lambda (_%e166851166870%_ - _%hd166852166873%_ - _%tl166853166875%_) - (let ((_%L166878%_ _%hd166852166873%_)) + (_%__kont168386168387%_ (lambda () '#!void))) + (let ((_%__match168395168396%_ + (lambda (_%e166957166976%_ + _%hd166958166979%_ + _%tl166959166981%_) + (let ((_%L166984%_ _%hd166958166979%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166878%_)) - (_%__kont168278168279%_ _%L166878%_) - (_%__kont168280168281%_)))))) + (gx#identifier? _%L166984%_)) + (_%__kont168384168385%_ _%L166984%_) + (_%__kont168386168387%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168276168277%_)) - (let ((_%e166851166870%_ + (gx#stx-pair? _%__stx168382168383%_)) + (let ((_%e166957166976%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168276168277%_)))) - (let ((_%tl166853166875%_ + (gx#stx-e _%__stx168382168383%_)))) + (let ((_%tl166959166981%_ (let () (declare (not safe)) - (##cdr _%e166851166870%_))) - (_%hd166852166873%_ + (##cdr _%e166957166976%_))) + (_%hd166958166979%_ (let () (declare (not safe)) - (##car _%e166851166870%_)))) + (##car _%e166957166976%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166853166875%_)) - (_%__match168289168290%_ - _%e166851166870%_ - _%hd166852166873%_ - _%tl166853166875%_) - (_%__kont168280168281%_)))) - (_%__kont168280168281%_)))))))) - (let* ((_%g166677166712%_ - (lambda (_%g166678166709%_) + (gx#stx-null? _%tl166959166981%_)) + (_%__match168395168396%_ + _%e166957166976%_ + _%hd166958166979%_ + _%tl166959166981%_) + (_%__kont168386168387%_)))) + (_%__kont168386168387%_)))))))) + (let* ((_%g166783166818%_ + (lambda (_%g166784166815%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166678166709%_)))) - (_%g166676166841%_ - (lambda (_%g166678166715%_) + _%g166784166815%_)))) + (_%g166782166947%_ + (lambda (_%g166784166821%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166678166715%_)) - (let ((_%e166682166717%_ + (gx#stx-pair? _%g166784166821%_)) + (let ((_%e166788166823%_ (let () (declare (not safe)) - (gx#stx-e _%g166678166715%_)))) - (let ((_%hd166683166720%_ + (gx#stx-e _%g166784166821%_)))) + (let ((_%hd166789166826%_ (let () (declare (not safe)) - (##car _%e166682166717%_))) - (_%tl166684166722%_ + (##car _%e166788166823%_))) + (_%tl166790166828%_ (let () (declare (not safe)) - (##cdr _%e166682166717%_)))) + (##cdr _%e166788166823%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166684166722%_)) - (let ((_%e166685166725%_ + (gx#stx-pair? _%tl166790166828%_)) + (let ((_%e166791166831%_ (let () (declare (not safe)) - (gx#stx-e _%tl166684166722%_)))) - (let ((_%hd166686166728%_ + (gx#stx-e _%tl166790166828%_)))) + (let ((_%hd166792166834%_ (let () (declare (not safe)) - (##car _%e166685166725%_))) - (_%tl166687166730%_ + (##car _%e166791166831%_))) + (_%tl166793166836%_ (let () (declare (not safe)) - (##cdr _%e166685166725%_)))) + (##cdr _%e166791166831%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166686166728%_)) - (let ((_g171107_ + _%hd166792166834%_)) + (let ((_g171213_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166686166728%_ + _%hd166792166834%_ '0)))) (begin - (let ((_g171108_ + (let ((_g171214_ (let () (declare (not safe)) - (if (##values? _g171107_) - (##vector-length - _g171107_) + (if (##values? _g171213_) + (##values-length + _g171213_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171108_ 2))) + (##fx= _g171214_ 2))) (error "Context expects 2 values" - _g171108_))) - (let ((_%target166688166733%_ + _g171214_))) + (let ((_%target166794166839%_ (let () (declare (not safe)) - (##vector-ref - _g171107_ + (##values-ref + _g171213_ 0))) - (_%tl166690166735%_ + (_%tl166796166841%_ (let () (declare (not safe)) - (##vector-ref - _g171107_ + (##values-ref + _g171213_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166690166735%_)) - (letrec ((_%loop166691166738%_ - (lambda (_%hd166689166741%_ + _%tl166796166841%_)) + (letrec ((_%loop166797166844%_ + (lambda (_%hd166795166847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166695166743%_ - _%hd166696166745%_) + _%expr166801166849%_ + _%hd166802166851%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166689166741%_)) - (let ((_%e166692166748%_ + (gx#stx-pair? _%hd166795166847%_)) + (let ((_%e166798166854%_ (let () (declare (not safe)) - (gx#stx-e _%hd166689166741%_)))) - (let ((_%lp-hd166693166751%_ + (gx#stx-e _%hd166795166847%_)))) + (let ((_%lp-hd166799166857%_ (let () (declare (not safe)) - (##car _%e166692166748%_))) - (_%lp-tl166694166753%_ + (##car _%e166798166854%_))) + (_%lp-tl166800166859%_ (let () (declare (not safe)) - (##cdr _%e166692166748%_)))) + (##cdr _%e166798166854%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166693166751%_)) - (let ((_%e166702166756%_ + (gx#stx-pair? _%lp-hd166799166857%_)) + (let ((_%e166808166862%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166693166751%_)))) - (let ((_%hd166703166759%_ + (gx#stx-e _%lp-hd166799166857%_)))) + (let ((_%hd166809166865%_ (let () (declare (not safe)) - (##car _%e166702166756%_))) - (_%tl166704166761%_ + (##car _%e166808166862%_))) + (_%tl166810166867%_ (let () (declare (not safe)) - (##cdr _%e166702166756%_)))) + (##cdr _%e166808166862%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166704166761%_)) - (let ((_%e166705166764%_ + (gx#stx-pair? _%tl166810166867%_)) + (let ((_%e166811166870%_ (let () (declare (not safe)) (gx#stx-e - _%tl166704166761%_)))) - (let ((_%hd166706166767%_ + _%tl166810166867%_)))) + (let ((_%hd166812166873%_ (let () (declare (not safe)) - (##car _%e166705166764%_))) - (_%tl166707166769%_ + (##car _%e166811166870%_))) + (_%tl166813166875%_ (let () (declare (not safe)) - (##cdr _%e166705166764%_)))) + (##cdr _%e166811166870%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166707166769%_)) - (_%loop166691166738%_ - _%lp-tl166694166753%_ - (cons _%hd166706166767%_ - _%expr166695166743%_) - (cons _%hd166703166759%_ - _%hd166696166745%_)) - (_%g166677166712%_ - _%g166678166715%_)))) - (_%g166677166712%_ - _%g166678166715%_)))) - (_%g166677166712%_ _%g166678166715%_)))) - (let ((_%expr166697166772%_ - (reverse _%expr166695166743%_)) - (_%hd166698166774%_ - (reverse _%hd166696166745%_))) + _%tl166813166875%_)) + (_%loop166797166844%_ + _%lp-tl166800166859%_ + (cons _%hd166812166873%_ + _%expr166801166849%_) + (cons _%hd166809166865%_ + _%hd166802166851%_)) + (_%g166783166818%_ + _%g166784166821%_)))) + (_%g166783166818%_ + _%g166784166821%_)))) + (_%g166783166818%_ _%g166784166821%_)))) + (let ((_%expr166803166878%_ + (reverse _%expr166801166849%_)) + (_%hd166804166880%_ + (reverse _%hd166802166851%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166687166730%_)) - (let ((_%e166699166777%_ + (gx#stx-pair? _%tl166793166836%_)) + (let ((_%e166805166883%_ (let () (declare (not safe)) - (gx#stx-e _%tl166687166730%_)))) - (let ((_%hd166700166780%_ + (gx#stx-e _%tl166793166836%_)))) + (let ((_%hd166806166886%_ (let () (declare (not safe)) - (##car _%e166699166777%_))) - (_%tl166701166782%_ + (##car _%e166805166883%_))) + (_%tl166807166888%_ (let () (declare (not safe)) - (##cdr _%e166699166777%_)))) + (##cdr _%e166805166883%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166701166782%_)) - ((lambda (_%L166785%_ - _%L166786%_ - _%L166787%_) + (gx#stx-null? _%tl166807166888%_)) + ((lambda (_%L166891%_ + _%L166892%_ + _%L166893%_) (for-each - _%collect-e166675%_ - (let ((__tmp171109 - (lambda (_%g166807166810%_ - _%g166808166812%_) - (cons _%g166807166810%_ - _%g166808166812%_)))) + _%collect-e166781%_ + (let ((__tmp171215 + (lambda (_%g166913166916%_ + _%g166914166918%_) + (cons _%g166913166916%_ + _%g166914166918%_)))) (declare (not safe)) (__foldr1 - __tmp171109 + __tmp171215 '() - _%L166787%_)) - (let ((__tmp171110 - (lambda (_%g166814166817%_ - _%g166815166819%_) - (cons _%g166814166817%_ - _%g166815166819%_)))) + _%L166893%_)) + (let ((__tmp171216 + (lambda (_%g166920166923%_ + _%g166921166925%_) + (cons _%g166920166923%_ + _%g166921166925%_)))) (declare (not safe)) (__foldr1 - __tmp171110 + __tmp171216 '() - _%L166786%_))) + _%L166892%_))) (for-each - (lambda (_%g166821166823%_) + (lambda (_%g166927166929%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166671%_ - _%g166821166823%_))) - (let ((__tmp171111 - (lambda (_%g166825166828%_ - _%g166826166830%_) - (cons _%g166825166828%_ - _%g166826166830%_)))) + _%self166777%_ + _%g166927166929%_))) + (let ((__tmp171217 + (lambda (_%g166931166934%_ + _%g166932166936%_) + (cons _%g166931166934%_ + _%g166932166936%_)))) (declare (not safe)) (__foldr1 - __tmp171111 + __tmp171217 '() - _%L166786%_))) - (let ((__tmp171115 + _%L166892%_))) + (let ((__tmp171221 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self166671%_ - _%L166785%_)))) - (__tmp171112 - (let ((__tmp171113 - (let ((__tmp171114 - (lambda (_%g166833166836%_ + _%self166777%_ + _%L166891%_)))) + (__tmp171218 + (let ((__tmp171219 + (let ((__tmp171220 + (lambda (_%g166939166942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166834166838%_) - (cons _%g166833166836%_ _%g166834166838%_)))) + _%g166940166944%_) + (cons _%g166939166942%_ _%g166940166944%_)))) (declare (not safe)) - (__foldr1 __tmp171114 '() _%L166787%_)))) + (__foldr1 __tmp171220 '() _%L166893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171113)))) + __tmp171219)))) (declare (not safe)) (__call-with-parameters - __tmp171115 + __tmp171221 gxc#current-compile-local-env - __tmp171112))) - _%hd166700166780%_ - _%expr166697166772%_ - _%hd166698166774%_) - (_%g166677166712%_ - _%g166678166715%_)))) - (_%g166677166712%_ _%g166678166715%_))))))) + __tmp171218))) + _%hd166806166886%_ + _%expr166803166878%_ + _%hd166804166880%_) + (_%g166783166818%_ + _%g166784166821%_)))) + (_%g166783166818%_ _%g166784166821%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166691166738%_ - _%target166688166733%_ + (_%loop166797166844%_ + _%target166794166839%_ '() '())) - (_%g166677166712%_ - _%g166678166715%_))))) - (_%g166677166712%_ - _%g166678166715%_)))) - (_%g166677166712%_ _%g166678166715%_)))) - (_%g166677166712%_ _%g166678166715%_))))) - (_%g166676166841%_ _%stx166672%_))))) + (_%g166783166818%_ + _%g166784166821%_))))) + (_%g166783166818%_ + _%g166784166821%_)))) + (_%g166783166818%_ _%g166784166821%_)))) + (_%g166783166818%_ _%g166784166821%_))))) + (_%g166782166947%_ _%stx166778%_))))) (define gxc#collect-type-let-values%__0 - (lambda (_%self166903%_ _%stx166904%_) - (let ((_%expression-type166906%_ gxc#apply-basic-expression-type)) + (lambda (_%self167009%_ _%stx167010%_) + (let ((_%expression-type167012%_ gxc#apply-basic-expression-type)) (gxc#collect-type-let-values%__% - _%self166903%_ - _%stx166904%_ - _%expression-type166906%_)))) + _%self167009%_ + _%stx167010%_ + _%expression-type167012%_)))) (define gxc#collect-type-let-values% - (lambda _g171117_ - (let ((_g171116_ (let () (declare (not safe)) (##length _g171117_)))) - (cond ((let () (declare (not safe)) (##fx= _g171116_ 2)) - (apply gxc#collect-type-let-values%__0 _g171117_)) - ((let () (declare (not safe)) (##fx= _g171116_ 3)) - (apply gxc#collect-type-let-values%__% _g171117_)) + (lambda _g171223_ + (let ((_g171222_ (let () (declare (not safe)) (##length _g171223_)))) + (cond ((let () (declare (not safe)) (##fx= _g171222_ 2)) + (apply gxc#collect-type-let-values%__0 _g171223_)) + ((let () (declare (not safe)) (##fx= _g171222_ 3)) + (apply gxc#collect-type-let-values%__% _g171223_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-let-values% - _g171117_)))))) + _g171223_)))))) (define gxc#collect-type-letrec-values%__% - (lambda (_%self166404%_ _%stx166405%_ _%expression-type166406%_) - (letrec ((_%collect-e166408%_ - (lambda (_%hd166602%_ _%expr166603%_) - (let* ((_%__stx168292168293%_ _%hd166602%_) - (_%g166606166616%_ + (lambda (_%self166510%_ _%stx166511%_ _%expression-type166512%_) + (letrec ((_%collect-e166514%_ + (lambda (_%hd166708%_ _%expr166709%_) + (let* ((_%__stx168398168399%_ _%hd166708%_) + (_%g166712166722%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168292168293%_))))) - (let ((_%__kont168294168295%_ - (lambda (_%L166636%_) - (let* ((_%sym166647%_ + _%__stx168398168399%_))))) + (let ((_%__kont168400168401%_ + (lambda (_%L166742%_) + (let* ((_%sym166753%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L166636%_))) - (_%type166648166650%_ - (_%expression-type166406%_ - _%expr166603%_))) - (if _%type166648166650%_ - (let ((_%type166653%_ - _%type166648166650%_)) + (gxc#identifier-symbol _%L166742%_))) + (_%type166754166756%_ + (_%expression-type166512%_ + _%expr166709%_))) + (if _%type166754166756%_ + (let ((_%type166759%_ + _%type166754166756%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type166653%_ + _%type166759%_ 'gxc#!class-meta::t)) (begin - (let ((__tmp171118 + (let ((__tmp171224 (let () (declare (not safe)) (##unchecked-structure-ref - _%type166653%_ + _%type166759%_ '2 '#f '#f)))) (declare (not safe)) (gxc#optimizer-declare-class! - _%sym166647%_ - __tmp171118)) - (let ((__tmp171119 + _%sym166753%_ + __tmp171224)) + (let ((__tmp171225 (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx166405%_ + _%stx166511%_ 'class::t)))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166647%_ - __tmp171119 + _%sym166753%_ + __tmp171225 '#t))) (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym166647%_ - _%type166653%_ + _%sym166753%_ + _%type166759%_ '#t)))) '#f)))) - (_%__kont168296168297%_ (lambda () '#!void))) - (let ((_%__match168305168306%_ - (lambda (_%e166609166628%_ - _%hd166610166631%_ - _%tl166611166633%_) - (let ((_%L166636%_ _%hd166610166631%_)) + (_%__kont168402168403%_ (lambda () '#!void))) + (let ((_%__match168411168412%_ + (lambda (_%e166715166734%_ + _%hd166716166737%_ + _%tl166717166739%_) + (let ((_%L166742%_ _%hd166716166737%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L166636%_)) - (_%__kont168294168295%_ _%L166636%_) - (_%__kont168296168297%_)))))) + (gx#identifier? _%L166742%_)) + (_%__kont168400168401%_ _%L166742%_) + (_%__kont168402168403%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168292168293%_)) - (let ((_%e166609166628%_ + (gx#stx-pair? _%__stx168398168399%_)) + (let ((_%e166715166734%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168292168293%_)))) - (let ((_%tl166611166633%_ + (gx#stx-e _%__stx168398168399%_)))) + (let ((_%tl166717166739%_ (let () (declare (not safe)) - (##cdr _%e166609166628%_))) - (_%hd166610166631%_ + (##cdr _%e166715166734%_))) + (_%hd166716166737%_ (let () (declare (not safe)) - (##car _%e166609166628%_)))) + (##car _%e166715166734%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166611166633%_)) - (_%__match168305168306%_ - _%e166609166628%_ - _%hd166610166631%_ - _%tl166611166633%_) - (_%__kont168296168297%_)))) - (_%__kont168296168297%_)))))))) - (let* ((_%g166410166445%_ - (lambda (_%g166411166442%_) + (gx#stx-null? _%tl166717166739%_)) + (_%__match168411168412%_ + _%e166715166734%_ + _%hd166716166737%_ + _%tl166717166739%_) + (_%__kont168402168403%_)))) + (_%__kont168402168403%_)))))))) + (let* ((_%g166516166551%_ + (lambda (_%g166517166548%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g166411166442%_)))) - (_%g166409166599%_ - (lambda (_%g166411166448%_) + _%g166517166548%_)))) + (_%g166515166705%_ + (lambda (_%g166517166554%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g166411166448%_)) - (let ((_%e166415166450%_ + (gx#stx-pair? _%g166517166554%_)) + (let ((_%e166521166556%_ (let () (declare (not safe)) - (gx#stx-e _%g166411166448%_)))) - (let ((_%hd166416166453%_ + (gx#stx-e _%g166517166554%_)))) + (let ((_%hd166522166559%_ (let () (declare (not safe)) - (##car _%e166415166450%_))) - (_%tl166417166455%_ + (##car _%e166521166556%_))) + (_%tl166523166561%_ (let () (declare (not safe)) - (##cdr _%e166415166450%_)))) + (##cdr _%e166521166556%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166417166455%_)) - (let ((_%e166418166458%_ + (gx#stx-pair? _%tl166523166561%_)) + (let ((_%e166524166564%_ (let () (declare (not safe)) - (gx#stx-e _%tl166417166455%_)))) - (let ((_%hd166419166461%_ + (gx#stx-e _%tl166523166561%_)))) + (let ((_%hd166525166567%_ (let () (declare (not safe)) - (##car _%e166418166458%_))) - (_%tl166420166463%_ + (##car _%e166524166564%_))) + (_%tl166526166569%_ (let () (declare (not safe)) - (##cdr _%e166418166458%_)))) + (##cdr _%e166524166564%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd166419166461%_)) - (let ((_g171120_ + _%hd166525166567%_)) + (let ((_g171226_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd166419166461%_ + _%hd166525166567%_ '0)))) (begin - (let ((_g171121_ + (let ((_g171227_ (let () (declare (not safe)) - (if (##values? _g171120_) - (##vector-length - _g171120_) + (if (##values? _g171226_) + (##values-length + _g171226_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171121_ 2))) + (##fx= _g171227_ 2))) (error "Context expects 2 values" - _g171121_))) - (let ((_%target166421166466%_ + _g171227_))) + (let ((_%target166527166572%_ (let () (declare (not safe)) - (##vector-ref - _g171120_ + (##values-ref + _g171226_ 0))) - (_%tl166423166468%_ + (_%tl166529166574%_ (let () (declare (not safe)) - (##vector-ref - _g171120_ + (##values-ref + _g171226_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166423166468%_)) - (letrec ((_%loop166424166471%_ - (lambda (_%hd166422166474%_ + _%tl166529166574%_)) + (letrec ((_%loop166530166577%_ + (lambda (_%hd166528166580%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr166428166476%_ - _%hd166429166478%_) + _%expr166534166582%_ + _%hd166535166584%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd166422166474%_)) - (let ((_%e166425166481%_ + (gx#stx-pair? _%hd166528166580%_)) + (let ((_%e166531166587%_ (let () (declare (not safe)) - (gx#stx-e _%hd166422166474%_)))) - (let ((_%lp-hd166426166484%_ + (gx#stx-e _%hd166528166580%_)))) + (let ((_%lp-hd166532166590%_ (let () (declare (not safe)) - (##car _%e166425166481%_))) - (_%lp-tl166427166486%_ + (##car _%e166531166587%_))) + (_%lp-tl166533166592%_ (let () (declare (not safe)) - (##cdr _%e166425166481%_)))) + (##cdr _%e166531166587%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd166426166484%_)) - (let ((_%e166435166489%_ + (gx#stx-pair? _%lp-hd166532166590%_)) + (let ((_%e166541166595%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd166426166484%_)))) - (let ((_%hd166436166492%_ + (gx#stx-e _%lp-hd166532166590%_)))) + (let ((_%hd166542166598%_ (let () (declare (not safe)) - (##car _%e166435166489%_))) - (_%tl166437166494%_ + (##car _%e166541166595%_))) + (_%tl166543166600%_ (let () (declare (not safe)) - (##cdr _%e166435166489%_)))) + (##cdr _%e166541166595%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166437166494%_)) - (let ((_%e166438166497%_ + (gx#stx-pair? _%tl166543166600%_)) + (let ((_%e166544166603%_ (let () (declare (not safe)) (gx#stx-e - _%tl166437166494%_)))) - (let ((_%hd166439166500%_ + _%tl166543166600%_)))) + (let ((_%hd166545166606%_ (let () (declare (not safe)) - (##car _%e166438166497%_))) - (_%tl166440166502%_ + (##car _%e166544166603%_))) + (_%tl166546166608%_ (let () (declare (not safe)) - (##cdr _%e166438166497%_)))) + (##cdr _%e166544166603%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl166440166502%_)) - (_%loop166424166471%_ - _%lp-tl166427166486%_ - (cons _%hd166439166500%_ - _%expr166428166476%_) - (cons _%hd166436166492%_ - _%hd166429166478%_)) - (_%g166410166445%_ - _%g166411166448%_)))) - (_%g166410166445%_ - _%g166411166448%_)))) - (_%g166410166445%_ _%g166411166448%_)))) - (let ((_%expr166430166505%_ - (reverse _%expr166428166476%_)) - (_%hd166431166507%_ - (reverse _%hd166429166478%_))) + _%tl166546166608%_)) + (_%loop166530166577%_ + _%lp-tl166533166592%_ + (cons _%hd166545166606%_ + _%expr166534166582%_) + (cons _%hd166542166598%_ + _%hd166535166584%_)) + (_%g166516166551%_ + _%g166517166554%_)))) + (_%g166516166551%_ + _%g166517166554%_)))) + (_%g166516166551%_ _%g166517166554%_)))) + (let ((_%expr166536166611%_ + (reverse _%expr166534166582%_)) + (_%hd166537166613%_ + (reverse _%hd166535166584%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl166420166463%_)) - (let ((_%e166432166510%_ + (gx#stx-pair? _%tl166526166569%_)) + (let ((_%e166538166616%_ (let () (declare (not safe)) - (gx#stx-e _%tl166420166463%_)))) - (let ((_%hd166433166513%_ + (gx#stx-e _%tl166526166569%_)))) + (let ((_%hd166539166619%_ (let () (declare (not safe)) - (##car _%e166432166510%_))) - (_%tl166434166515%_ + (##car _%e166538166616%_))) + (_%tl166540166621%_ (let () (declare (not safe)) - (##cdr _%e166432166510%_)))) + (##cdr _%e166538166616%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl166434166515%_)) - ((lambda (_%L166518%_ - _%L166519%_ - _%L166520%_) - (let ((__tmp171125 + (gx#stx-null? _%tl166540166621%_)) + ((lambda (_%L166624%_ + _%L166625%_ + _%L166626%_) + (let ((__tmp171231 (lambda () (for-each - _%collect-e166408%_ - (let ((__tmp171126 - (lambda (_%g166541166544%_ + _%collect-e166514%_ + (let ((__tmp171232 + (lambda (_%g166647166650%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166542166546%_) - (cons _%g166541166544%_ _%g166542166546%_)))) + _%g166648166652%_) + (cons _%g166647166650%_ _%g166648166652%_)))) (declare (not safe)) - (__foldr1 __tmp171126 '() _%L166520%_)) + (__foldr1 __tmp171232 '() _%L166626%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171127 - (lambda (_%g166548166551%_ + (let ((__tmp171233 + (lambda (_%g166654166657%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166549166553%_) - (cons _%g166548166551%_ _%g166549166553%_)))) + _%g166655166659%_) + (cons _%g166654166657%_ _%g166655166659%_)))) (declare (not safe)) - (__foldr1 __tmp171127 '() _%L166519%_))) + (__foldr1 __tmp171233 '() _%L166625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166555166557%_) + (lambda (_%g166661166663%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166404%_ - _%g166555166557%_))) - (let ((__tmp171128 - (lambda (_%g166559166562%_ + _%self166510%_ + _%g166661166663%_))) + (let ((__tmp171234 + (lambda (_%g166665166668%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166560166564%_) - (cons _%g166559166562%_ _%g166560166564%_)))) + _%g166666166670%_) + (cons _%g166665166668%_ _%g166666166670%_)))) (declare (not safe)) - (__foldr1 __tmp171128 '() _%L166519%_))) + (__foldr1 __tmp171234 '() _%L166625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - _%collect-e166408%_ - (let ((__tmp171129 - (lambda (_%g166566166569%_ + _%collect-e166514%_ + (let ((__tmp171235 + (lambda (_%g166672166675%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166567166571%_) - (cons _%g166566166569%_ _%g166567166571%_)))) + _%g166673166677%_) + (cons _%g166672166675%_ _%g166673166677%_)))) (declare (not safe)) - (__foldr1 __tmp171129 '() _%L166520%_)) + (__foldr1 __tmp171235 '() _%L166626%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171130 - (lambda (_%g166573166576%_ + (let ((__tmp171236 + (lambda (_%g166679166682%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166574166578%_) - (cons _%g166573166576%_ _%g166574166578%_)))) + _%g166680166684%_) + (cons _%g166679166682%_ _%g166680166684%_)))) (declare (not safe)) - (__foldr1 __tmp171130 '() _%L166519%_))) + (__foldr1 __tmp171236 '() _%L166625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g166580166582%_) + (lambda (_%g166686166688%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self166404%_ - _%g166580166582%_))) - (let ((__tmp171131 - (lambda (_%g166584166587%_ + _%self166510%_ + _%g166686166688%_))) + (let ((__tmp171237 + (lambda (_%g166690166693%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166585166589%_) - (cons _%g166584166587%_ _%g166585166589%_)))) + _%g166691166695%_) + (cons _%g166690166693%_ _%g166691166695%_)))) (declare (not safe)) - (__foldr1 __tmp171131 '() _%L166519%_))) + (__foldr1 __tmp171237 '() _%L166625%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self166404%_ - _%L166518%_)))) - (__tmp171122 - (let ((__tmp171123 - (let ((__tmp171124 - (lambda (_%g166591166594%_ + _%self166510%_ + _%L166624%_)))) + (__tmp171228 + (let ((__tmp171229 + (let ((__tmp171230 + (lambda (_%g166697166700%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g166592166596%_) - (cons _%g166591166594%_ _%g166592166596%_)))) + _%g166698166702%_) + (cons _%g166697166700%_ _%g166698166702%_)))) (declare (not safe)) - (__foldr1 __tmp171124 '() _%L166520%_)))) + (__foldr1 __tmp171230 '() _%L166626%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171123)))) + __tmp171229)))) (declare (not safe)) (__call-with-parameters - __tmp171125 + __tmp171231 gxc#current-compile-local-env - __tmp171122))) - _%hd166433166513%_ - _%expr166430166505%_ - _%hd166431166507%_) - (_%g166410166445%_ - _%g166411166448%_)))) - (_%g166410166445%_ _%g166411166448%_))))))) + __tmp171228))) + _%hd166539166619%_ + _%expr166536166611%_ + _%hd166537166613%_) + (_%g166516166551%_ + _%g166517166554%_)))) + (_%g166516166551%_ _%g166517166554%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop166424166471%_ - _%target166421166466%_ + (_%loop166530166577%_ + _%target166527166572%_ '() '())) - (_%g166410166445%_ - _%g166411166448%_))))) - (_%g166410166445%_ - _%g166411166448%_)))) - (_%g166410166445%_ _%g166411166448%_)))) - (_%g166410166445%_ _%g166411166448%_))))) - (_%g166409166599%_ _%stx166405%_))))) + (_%g166516166551%_ + _%g166517166554%_))))) + (_%g166516166551%_ + _%g166517166554%_)))) + (_%g166516166551%_ _%g166517166554%_)))) + (_%g166516166551%_ _%g166517166554%_))))) + (_%g166515166705%_ _%stx166511%_))))) (define gxc#collect-type-letrec-values%__0 - (lambda (_%self166661%_ _%stx166662%_) - (let ((_%expression-type166664%_ gxc#apply-basic-expression-type)) + (lambda (_%self166767%_ _%stx166768%_) + (let ((_%expression-type166770%_ gxc#apply-basic-expression-type)) (gxc#collect-type-letrec-values%__% - _%self166661%_ - _%stx166662%_ - _%expression-type166664%_)))) + _%self166767%_ + _%stx166768%_ + _%expression-type166770%_)))) (define gxc#collect-type-letrec-values% - (lambda _g171133_ - (let ((_g171132_ (let () (declare (not safe)) (##length _g171133_)))) - (cond ((let () (declare (not safe)) (##fx= _g171132_ 2)) - (apply gxc#collect-type-letrec-values%__0 _g171133_)) - ((let () (declare (not safe)) (##fx= _g171132_ 3)) - (apply gxc#collect-type-letrec-values%__% _g171133_)) + (lambda _g171239_ + (let ((_g171238_ (let () (declare (not safe)) (##length _g171239_)))) + (cond ((let () (declare (not safe)) (##fx= _g171238_ 2)) + (apply gxc#collect-type-letrec-values%__0 _g171239_)) + ((let () (declare (not safe)) (##fx= _g171238_ 3)) + (apply gxc#collect-type-letrec-values%__% _g171239_)) (else (##raise-wrong-number-of-arguments-exception gxc#collect-type-letrec-values% - _g171133_)))))) + _g171239_)))))) (define gxc#collect-top-level-type-let-values% - (lambda (_%self166400%_ _%stx166401%_) + (lambda (_%self166506%_ _%stx166507%_) (gxc#collect-type-let-values%__% - _%self166400%_ - _%stx166401%_ + _%self166506%_ + _%stx166507%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-letrec-values% - (lambda (_%self166397%_ _%stx166398%_) + (lambda (_%self166503%_ _%stx166504%_) (gxc#collect-type-letrec-values%__% - _%self166397%_ - _%stx166398%_ + _%self166503%_ + _%stx166504%_ gxc#apply-raw-expression-type))) (define gxc#collect-top-level-type-call% - (lambda (_%self165884%_ _%stx165885%_) - (let* ((_%__stx168308168309%_ _%stx165885%_) - (_%g165889166004%_ + (lambda (_%self165990%_ _%stx165991%_) + (let* ((_%__stx168414168415%_ _%stx165991%_) + (_%g165995166110%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168308168309%_))))) - (let ((_%__kont168310168311%_ - (lambda (_%L166347%_ - _%L166348%_ - _%L166349%_ - _%L166350%_ - _%L166351%_) - (let ((__tmp171137 + _%__stx168414168415%_))))) + (let ((_%__kont168416168417%_ + (lambda (_%L166453%_ + _%L166454%_ + _%L166455%_ + _%L166456%_ + _%L166457%_) + (let ((__tmp171243 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166350%_))) - (__tmp171136 - (let () (declare (not safe)) (gx#stx-e _%L166349%_))) - (__tmp171135 + (gxc#identifier-symbol _%L166456%_))) + (__tmp171242 + (let () (declare (not safe)) (gx#stx-e _%L166455%_))) + (__tmp171241 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166348%_))) - (__tmp171134 + (gxc#identifier-symbol _%L166454%_))) + (__tmp171240 (let () (declare (not safe)) - (gx#stx-e _%L166347%_)))) + (gx#stx-e _%L166453%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171137 - __tmp171136 - __tmp171135 - __tmp171134)))) - (_%__kont168312168313%_ - (lambda (_%L166175%_ _%L166176%_ _%L166177%_ _%L166178%_) - (let ((__tmp171140 + __tmp171243 + __tmp171242 + __tmp171241 + __tmp171240)))) + (_%__kont168418168419%_ + (lambda (_%L166281%_ _%L166282%_ _%L166283%_ _%L166284%_) + (let ((__tmp171246 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166177%_))) - (__tmp171139 - (let () (declare (not safe)) (gx#stx-e _%L166176%_))) - (__tmp171138 + (gxc#identifier-symbol _%L166283%_))) + (__tmp171245 + (let () (declare (not safe)) (gx#stx-e _%L166282%_))) + (__tmp171244 (let () (declare (not safe)) - (gxc#identifier-symbol _%L166175%_)))) + (gxc#identifier-symbol _%L166281%_)))) (declare (not safe)) (gxc#optimizer-declare-method!__% - __tmp171140 - __tmp171139 - __tmp171138 + __tmp171246 + __tmp171245 + __tmp171244 '#f)))) - (_%__kont168314168315%_ - (lambda (_%L166041%_) + (_%__kont168420168421%_ + (lambda (_%L166147%_) (for-each - (lambda (_%g166054166056%_) + (lambda (_%g166160166162%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165884%_ _%g166054166056%_))) - (let ((__tmp171141 - (lambda (_%g166058166061%_ _%g166059166063%_) - (cons _%g166058166061%_ _%g166059166063%_)))) + (gxc#compile-e__1 _%self165990%_ _%g166160166162%_))) + (let ((__tmp171247 + (lambda (_%g166164166167%_ _%g166165166169%_) + (cons _%g166164166167%_ _%g166165166169%_)))) (declare (not safe)) - (__foldr1 __tmp171141 '() _%L166041%_)))))) - (let* ((_%__match168565168566%_ - (lambda (_%e165988166009%_ - _%hd165989166012%_ - _%tl165990166014%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (letrec ((_%loop165994166022%_ - (lambda (_%hd165992166025%_ - _%expr165998166027%_) + (__foldr1 __tmp171247 '() _%L166147%_)))))) + (let* ((_%__match168671168672%_ + (lambda (_%e166094166115%_ + _%hd166095166118%_ + _%tl166096166120%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (letrec ((_%loop166100166128%_ + (lambda (_%hd166098166131%_ + _%expr166104166133%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165992166025%_)) - (let ((_%e165995166030%_ + (gx#stx-pair? _%hd166098166131%_)) + (let ((_%e166101166136%_ (let () (declare (not safe)) - (gx#stx-e _%hd165992166025%_)))) - (let ((_%lp-tl165997166035%_ + (gx#stx-e _%hd166098166131%_)))) + (let ((_%lp-tl166103166141%_ (let () (declare (not safe)) - (##cdr _%e165995166030%_))) - (_%lp-hd165996166033%_ + (##cdr _%e166101166136%_))) + (_%lp-hd166102166139%_ (let () (declare (not safe)) - (##car _%e165995166030%_)))) - (_%loop165994166022%_ - _%lp-tl165997166035%_ - (cons _%lp-hd165996166033%_ - _%expr165998166027%_)))) - (let ((_%expr165999166038%_ - (reverse _%expr165998166027%_))) - (_%__kont168314168315%_ - _%expr165999166038%_)))))) - (_%loop165994166022%_ _%target165991166017%_ '())))) - (_%__match168445168446%_ - (lambda (_%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%e165899166227%_ - _%hd165900166230%_ - _%tl165901166232%_ - _%e165902166235%_ - _%hd165903166238%_ - _%tl165904166240%_ - _%e165905166243%_ - _%hd165906166246%_ - _%tl165907166248%_ - _%e165908166251%_ - _%hd165909166254%_ - _%tl165910166256%_ - _%e165911166259%_ - _%hd165912166262%_ - _%tl165913166264%_ - _%e165914166267%_ - _%hd165915166270%_ - _%tl165916166272%_ - _%e165917166275%_ - _%hd165918166278%_ - _%tl165919166280%_ - _%e165920166283%_ - _%hd165921166286%_ - _%tl165922166288%_ - _%e165923166291%_ - _%hd165924166294%_ - _%tl165925166296%_ - _%e165926166299%_ - _%hd165927166302%_ - _%tl165928166304%_ - _%e165929166307%_ - _%hd165930166310%_ - _%tl165931166312%_ - _%e165932166315%_ - _%hd165933166318%_ - _%tl165934166320%_ - _%e165935166323%_ - _%hd165936166326%_ - _%tl165937166328%_ - _%e165938166331%_ - _%hd165939166334%_ - _%tl165940166336%_ - _%e165941166339%_ - _%hd165942166342%_ - _%tl165943166344%_) - (let ((_%L166347%_ _%hd165942166342%_) - (_%L166348%_ _%hd165933166318%_) - (_%L166349%_ _%hd165924166294%_) - (_%L166350%_ _%hd165915166270%_) - (_%L166351%_ _%hd165906166246%_)) + (##car _%e166101166136%_)))) + (_%loop166100166128%_ + _%lp-tl166103166141%_ + (cons _%lp-hd166102166139%_ + _%expr166104166133%_)))) + (let ((_%expr166105166144%_ + (reverse _%expr166104166133%_))) + (_%__kont168420168421%_ + _%expr166105166144%_)))))) + (_%loop166100166128%_ _%target166097166123%_ '())))) + (_%__match168551168552%_ + (lambda (_%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%e166005166333%_ + _%hd166006166336%_ + _%tl166007166338%_ + _%e166008166341%_ + _%hd166009166344%_ + _%tl166010166346%_ + _%e166011166349%_ + _%hd166012166352%_ + _%tl166013166354%_ + _%e166014166357%_ + _%hd166015166360%_ + _%tl166016166362%_ + _%e166017166365%_ + _%hd166018166368%_ + _%tl166019166370%_ + _%e166020166373%_ + _%hd166021166376%_ + _%tl166022166378%_ + _%e166023166381%_ + _%hd166024166384%_ + _%tl166025166386%_ + _%e166026166389%_ + _%hd166027166392%_ + _%tl166028166394%_ + _%e166029166397%_ + _%hd166030166400%_ + _%tl166031166402%_ + _%e166032166405%_ + _%hd166033166408%_ + _%tl166034166410%_ + _%e166035166413%_ + _%hd166036166416%_ + _%tl166037166418%_ + _%e166038166421%_ + _%hd166039166424%_ + _%tl166040166426%_ + _%e166041166429%_ + _%hd166042166432%_ + _%tl166043166434%_ + _%e166044166437%_ + _%hd166045166440%_ + _%tl166046166442%_ + _%e166047166445%_ + _%hd166048166448%_ + _%tl166049166450%_) + (let ((_%L166453%_ _%hd166048166448%_) + (_%L166454%_ _%hd166039166424%_) + (_%L166455%_ _%hd166030166400%_) + (_%L166456%_ _%hd166021166376%_) + (_%L166457%_ _%hd166012166352%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L166351%_ + _%L166457%_ 'bind-method!)) - (_%__kont168310168311%_ - _%L166347%_ - _%L166348%_ - _%L166349%_ - _%L166350%_ - _%L166351%_) + (_%__kont168416168417%_ + _%L166453%_ + _%L166454%_ + _%L166455%_ + _%L166456%_ + _%L166457%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))))) + (_%g165995166110%_)))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168308168309%_)) - (let ((_%e165896166219%_ + (gx#stx-pair? _%__stx168414168415%_)) + (let ((_%e166002166325%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168308168309%_)))) - (let ((_%tl165898166224%_ + (gx#stx-e _%__stx168414168415%_)))) + (let ((_%tl166004166330%_ (let () (declare (not safe)) - (##cdr _%e165896166219%_))) - (_%hd165897166222%_ + (##cdr _%e166002166325%_))) + (_%hd166003166328%_ (let () (declare (not safe)) - (##car _%e165896166219%_)))) + (##car _%e166002166325%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165898166224%_)) - (let ((_%e165899166227%_ + (gx#stx-pair? _%tl166004166330%_)) + (let ((_%e166005166333%_ (let () (declare (not safe)) - (gx#stx-e _%tl165898166224%_)))) - (let ((_%tl165901166232%_ + (gx#stx-e _%tl166004166330%_)))) + (let ((_%tl166007166338%_ (let () (declare (not safe)) - (##cdr _%e165899166227%_))) - (_%hd165900166230%_ + (##cdr _%e166005166333%_))) + (_%hd166006166336%_ (let () (declare (not safe)) - (##car _%e165899166227%_)))) + (##car _%e166005166333%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165900166230%_)) - (let ((_%e165902166235%_ + (gx#stx-pair? _%hd166006166336%_)) + (let ((_%e166008166341%_ (let () (declare (not safe)) - (gx#stx-e _%hd165900166230%_)))) - (let ((_%tl165904166240%_ + (gx#stx-e _%hd166006166336%_)))) + (let ((_%tl166010166346%_ (let () (declare (not safe)) - (##cdr _%e165902166235%_))) - (_%hd165903166238%_ + (##cdr _%e166008166341%_))) + (_%hd166009166344%_ (let () (declare (not safe)) - (##car _%e165902166235%_)))) + (##car _%e166008166341%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165903166238%_)) + _%hd166009166344%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165903166238%_)) + _%hd166009166344%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165904166240%_)) - (let ((_%e165905166243%_ + _%tl166010166346%_)) + (let ((_%e166011166349%_ (let () (declare (not safe)) (gx#stx-e - _%tl165904166240%_)))) - (let ((_%tl165907166248%_ + _%tl166010166346%_)))) + (let ((_%tl166013166354%_ (let () (declare (not safe)) - (##cdr _%e165905166243%_))) - (_%hd165906166246%_ + (##cdr _%e166011166349%_))) + (_%hd166012166352%_ (let () (declare (not safe)) - (##car _%e165905166243%_)))) + (##car _%e166011166349%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165907166248%_)) + _%tl166013166354%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl165901166232%_)) - (let ((_%e165908166251%_ + (gx#stx-pair? _%tl166007166338%_)) + (let ((_%e166014166357%_ (let () (declare (not safe)) - (gx#stx-e _%tl165901166232%_)))) - (let ((_%tl165910166256%_ + (gx#stx-e _%tl166007166338%_)))) + (let ((_%tl166016166362%_ (let () (declare (not safe)) - (##cdr _%e165908166251%_))) - (_%hd165909166254%_ + (##cdr _%e166014166357%_))) + (_%hd166015166360%_ (let () (declare (not safe)) - (##car _%e165908166251%_)))) + (##car _%e166014166357%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165909166254%_)) - (let ((_%e165911166259%_ + (gx#stx-pair? _%hd166015166360%_)) + (let ((_%e166017166365%_ (let () (declare (not safe)) - (gx#stx-e _%hd165909166254%_)))) - (let ((_%tl165913166264%_ + (gx#stx-e _%hd166015166360%_)))) + (let ((_%tl166019166370%_ (let () (declare (not safe)) - (##cdr _%e165911166259%_))) - (_%hd165912166262%_ + (##cdr _%e166017166365%_))) + (_%hd166018166368%_ (let () (declare (not safe)) - (##car _%e165911166259%_)))) + (##car _%e166017166365%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165912166262%_)) + (gx#identifier? _%hd166018166368%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd165912166262%_)) + _%hd166018166368%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165913166264%_)) - (let ((_%e165914166267%_ + _%tl166019166370%_)) + (let ((_%e166020166373%_ (let () (declare (not safe)) (gx#stx-e - _%tl165913166264%_)))) - (let ((_%tl165916166272%_ + _%tl166019166370%_)))) + (let ((_%tl166022166378%_ (let () (declare (not safe)) - (##cdr _%e165914166267%_))) - (_%hd165915166270%_ + (##cdr _%e166020166373%_))) + (_%hd166021166376%_ (let () (declare (not safe)) - (##car _%e165914166267%_)))) + (##car _%e166020166373%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165916166272%_)) + _%tl166022166378%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165910166256%_)) - (let ((_%e165917166275%_ + _%tl166016166362%_)) + (let ((_%e166023166381%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165910166256%_)))) - (let ((_%tl165919166280%_ + (gx#stx-e _%tl166016166362%_)))) + (let ((_%tl166025166386%_ (let () (declare (not safe)) - (##cdr _%e165917166275%_))) - (_%hd165918166278%_ + (##cdr _%e166023166381%_))) + (_%hd166024166384%_ (let () (declare (not safe)) - (##car _%e165917166275%_)))) + (##car _%e166023166381%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165918166278%_)) - (let ((_%e165920166283%_ + (gx#stx-pair? _%hd166024166384%_)) + (let ((_%e166026166389%_ (let () (declare (not safe)) - (gx#stx-e _%hd165918166278%_)))) - (let ((_%tl165922166288%_ + (gx#stx-e _%hd166024166384%_)))) + (let ((_%tl166028166394%_ (let () (declare (not safe)) - (##cdr _%e165920166283%_))) - (_%hd165921166286%_ + (##cdr _%e166026166389%_))) + (_%hd166027166392%_ (let () (declare (not safe)) - (##car _%e165920166283%_)))) + (##car _%e166026166389%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165921166286%_)) + (gx#identifier? _%hd166027166392%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd165921166286%_)) + _%hd166027166392%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165922166288%_)) - (let ((_%e165923166291%_ + (gx#stx-pair? _%tl166028166394%_)) + (let ((_%e166029166397%_ (let () (declare (not safe)) (gx#stx-e - _%tl165922166288%_)))) - (let ((_%tl165925166296%_ + _%tl166028166394%_)))) + (let ((_%tl166031166402%_ (let () (declare (not safe)) - (##cdr _%e165923166291%_))) - (_%hd165924166294%_ + (##cdr _%e166029166397%_))) + (_%hd166030166400%_ (let () (declare (not safe)) - (##car _%e165923166291%_)))) + (##car _%e166029166397%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165925166296%_)) + _%tl166031166402%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165919166280%_)) - (let ((_%e165926166299%_ + _%tl166025166386%_)) + (let ((_%e166032166405%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165919166280%_)))) - (let ((_%tl165928166304%_ - (let () (declare (not safe)) (##cdr _%e165926166299%_))) - (_%hd165927166302%_ + (gx#stx-e _%tl166025166386%_)))) + (let ((_%tl166034166410%_ + (let () (declare (not safe)) (##cdr _%e166032166405%_))) + (_%hd166033166408%_ (let () (declare (not safe)) - (##car _%e165926166299%_)))) + (##car _%e166032166405%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165927166302%_)) - (let ((_%e165929166307%_ + (gx#stx-pair? _%hd166033166408%_)) + (let ((_%e166035166413%_ (let () (declare (not safe)) - (gx#stx-e _%hd165927166302%_)))) - (let ((_%tl165931166312%_ + (gx#stx-e _%hd166033166408%_)))) + (let ((_%tl166037166418%_ (let () (declare (not safe)) - (##cdr _%e165929166307%_))) - (_%hd165930166310%_ + (##cdr _%e166035166413%_))) + (_%hd166036166416%_ (let () (declare (not safe)) - (##car _%e165929166307%_)))) + (##car _%e166035166413%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165930166310%_)) + (gx#identifier? _%hd166036166416%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165930166310%_)) + (gx#stx-eq? '%#ref _%hd166036166416%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165931166312%_)) - (let ((_%e165932166315%_ + (gx#stx-pair? _%tl166037166418%_)) + (let ((_%e166038166421%_ (let () (declare (not safe)) - (gx#stx-e _%tl165931166312%_)))) - (let ((_%tl165934166320%_ + (gx#stx-e _%tl166037166418%_)))) + (let ((_%tl166040166426%_ (let () (declare (not safe)) - (##cdr _%e165932166315%_))) - (_%hd165933166318%_ + (##cdr _%e166038166421%_))) + (_%hd166039166424%_ (let () (declare (not safe)) - (##car _%e165932166315%_)))) + (##car _%e166038166421%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165934166320%_)) + _%tl166040166426%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165928166304%_)) - (let ((_%e165935166323%_ + _%tl166034166410%_)) + (let ((_%e166041166429%_ (let () (declare (not safe)) (gx#stx-e - _%tl165928166304%_)))) - (let ((_%tl165937166328%_ + _%tl166034166410%_)))) + (let ((_%tl166043166434%_ (let () (declare (not safe)) - (##cdr _%e165935166323%_))) - (_%hd165936166326%_ + (##cdr _%e166041166429%_))) + (_%hd166042166432%_ (let () (declare (not safe)) - (##car _%e165935166323%_)))) + (##car _%e166041166429%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165936166326%_)) - (let ((_%e165938166331%_ + _%hd166042166432%_)) + (let ((_%e166044166437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165936166326%_)))) - (let ((_%tl165940166336%_ + (gx#stx-e _%hd166042166432%_)))) + (let ((_%tl166046166442%_ (let () (declare (not safe)) - (##cdr _%e165938166331%_))) - (_%hd165939166334%_ + (##cdr _%e166044166437%_))) + (_%hd166045166440%_ (let () (declare (not safe)) - (##car _%e165938166331%_)))) + (##car _%e166044166437%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165939166334%_)) + (gx#identifier? _%hd166045166440%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd165939166334%_)) + (gx#stx-eq? '%#quote _%hd166045166440%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165940166336%_)) - (let ((_%e165941166339%_ + (gx#stx-pair? _%tl166046166442%_)) + (let ((_%e166047166445%_ (let () (declare (not safe)) - (gx#stx-e _%tl165940166336%_)))) - (let ((_%tl165943166344%_ + (gx#stx-e _%tl166046166442%_)))) + (let ((_%tl166049166450%_ (let () (declare (not safe)) - (##cdr _%e165941166339%_))) - (_%hd165942166342%_ + (##cdr _%e166047166445%_))) + (_%hd166048166448%_ (let () (declare (not safe)) - (##car _%e165941166339%_)))) + (##car _%e166047166445%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165943166344%_)) + (gx#stx-null? _%tl166049166450%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165937166328%_)) - (_%__match168445168446%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%e165899166227%_ - _%hd165900166230%_ - _%tl165901166232%_ - _%e165902166235%_ - _%hd165903166238%_ - _%tl165904166240%_ - _%e165905166243%_ - _%hd165906166246%_ - _%tl165907166248%_ - _%e165908166251%_ - _%hd165909166254%_ - _%tl165910166256%_ - _%e165911166259%_ - _%hd165912166262%_ - _%tl165913166264%_ - _%e165914166267%_ - _%hd165915166270%_ - _%tl165916166272%_ - _%e165917166275%_ - _%hd165918166278%_ - _%tl165919166280%_ - _%e165920166283%_ - _%hd165921166286%_ - _%tl165922166288%_ - _%e165923166291%_ - _%hd165924166294%_ - _%tl165925166296%_ - _%e165926166299%_ - _%hd165927166302%_ - _%tl165928166304%_ - _%e165929166307%_ - _%hd165930166310%_ - _%tl165931166312%_ - _%e165932166315%_ - _%hd165933166318%_ - _%tl165934166320%_ - _%e165935166323%_ - _%hd165936166326%_ - _%tl165937166328%_ - _%e165938166331%_ - _%hd165939166334%_ - _%tl165940166336%_ - _%e165941166339%_ - _%hd165942166342%_ - _%tl165943166344%_) + _%tl166043166434%_)) + (_%__match168551168552%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%e166005166333%_ + _%hd166006166336%_ + _%tl166007166338%_ + _%e166008166341%_ + _%hd166009166344%_ + _%tl166010166346%_ + _%e166011166349%_ + _%hd166012166352%_ + _%tl166013166354%_ + _%e166014166357%_ + _%hd166015166360%_ + _%tl166016166362%_ + _%e166017166365%_ + _%hd166018166368%_ + _%tl166019166370%_ + _%e166020166373%_ + _%hd166021166376%_ + _%tl166022166378%_ + _%e166023166381%_ + _%hd166024166384%_ + _%tl166025166386%_ + _%e166026166389%_ + _%hd166027166392%_ + _%tl166028166394%_ + _%e166029166397%_ + _%hd166030166400%_ + _%tl166031166402%_ + _%e166032166405%_ + _%hd166033166408%_ + _%tl166034166410%_ + _%e166035166413%_ + _%hd166036166416%_ + _%tl166037166418%_ + _%e166038166421%_ + _%hd166039166424%_ + _%tl166040166426%_ + _%e166041166429%_ + _%hd166042166432%_ + _%tl166043166434%_ + _%e166044166437%_ + _%hd166045166440%_ + _%tl166046166442%_ + _%e166047166445%_ + _%hd166048166448%_ + _%tl166049166450%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl165928166304%_)) - (if (let ((__tmp171142 + _%tl166034166410%_)) + (if (let ((__tmp171248 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp171142 'bind-method!)) - (let ((_%L166175%_ _%hd165933166318%_) - (_%L166176%_ _%hd165924166294%_) - (_%L166177%_ _%hd165915166270%_) - (_%L166178%_ _%hd165906166246%_)) - (_%__kont168312168313%_ - _%L166175%_ - _%L166176%_ - _%L166177%_ - _%L166178%_)) + (gxc#runtime-identifier=? __tmp171248 'bind-method!)) + (let ((_%L166281%_ _%hd166039166424%_) + (_%L166282%_ _%hd166030166400%_) + (_%L166283%_ _%hd166021166376%_) + (_%L166284%_ _%hd166012166352%_)) + (_%__kont168418168419%_ + _%L166281%_ + _%L166282%_ + _%L166283%_ + _%L166284%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165898166224%_ '0)))) - (let ((_%tl165993166019%_ + (gx#syntax-split-splice _%tl166004166330%_ '0)))) + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (let () (declare (not safe)) (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_))))) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (let () (declare (not safe)) (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165898166224%_ '0)))) - (let ((_%tl165993166019%_ + (gx#syntax-split-splice _%tl166004166330%_ '0)))) + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (let () (declare (not safe)) (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (let () (declare (not safe)) (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165898166224%_ '0)))) - (let ((_%tl165993166019%_ + (gx#syntax-split-splice _%tl166004166330%_ '0)))) + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (let () (declare (not safe)) (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))))) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (let () (declare (not safe)) (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl165898166224%_ '0)))) - (let ((_%tl165993166019%_ + (gx#syntax-split-splice _%tl166004166330%_ '0)))) + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (let () (declare (not safe)) (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))))) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (let () (declare (not safe)) (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))))) + (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl165898166224%_ '0)))) - (let ((_%tl165993166019%_ + (gx#syntax-split-splice _%tl166004166330%_ '0)))) + (let ((_%tl166099166125%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '1))) - (_%target165991166017%_ + (##vector-ref _%__splice168422168423%_ '1))) + (_%target166097166123%_ (let () (declare (not safe)) - (##vector-ref _%__splice168316168317%_ '0)))) + (##vector-ref _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) - (let () (declare (not safe)) (_%g165889166004%_))))) - (let () (declare (not safe)) (_%g165889166004%_)))) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) + (let () (declare (not safe)) (_%g165995166110%_))))) + (let () (declare (not safe)) (_%g165995166110%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))) + (_%g165995166110%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) + (_%g165995166110%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl165898166224%_)) - (let ((_%__splice168316168317%_ + (gx#stx-pair/null? _%tl166004166330%_)) + (let ((_%__splice168422168423%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl165898166224%_ + _%tl166004166330%_ '0)))) - (let ((_%tl165993166019%_ + (let ((_%tl166099166125%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '1))) - (_%target165991166017%_ + (_%target166097166123%_ (let () (declare (not safe)) (##vector-ref - _%__splice168316168317%_ + _%__splice168422168423%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165993166019%_)) - (_%__match168565168566%_ - _%e165896166219%_ - _%hd165897166222%_ - _%tl165898166224%_ - _%__splice168316168317%_ - _%target165991166017%_ - _%tl165993166019%_) + (gx#stx-null? _%tl166099166125%_)) + (_%__match168671168672%_ + _%e166002166325%_ + _%hd166003166328%_ + _%tl166004166330%_ + _%__splice168422168423%_ + _%target166097166123%_ + _%tl166099166125%_) (let () (declare (not safe)) - (_%g165889166004%_))))) + (_%g165995166110%_))))) (let () (declare (not safe)) - (_%g165889166004%_)))))) - (let () (declare (not safe)) (_%g165889166004%_)))))))) + (_%g165995166110%_)))))) + (let () (declare (not safe)) (_%g165995166110%_)))))))) (define gxc#collect-type-setq% - (lambda (_%self165807%_ _%stx165808%_) - (let* ((_%g165810165827%_ - (lambda (_%g165811165824%_) + (lambda (_%self165913%_ _%stx165914%_) + (let* ((_%g165916165933%_ + (lambda (_%g165917165930%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165811165824%_)))) - (_%g165809165881%_ - (lambda (_%g165811165830%_) + _%g165917165930%_)))) + (_%g165915165987%_ + (lambda (_%g165917165936%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165811165830%_)) - (let ((_%e165814165832%_ + (gx#stx-pair? _%g165917165936%_)) + (let ((_%e165920165938%_ (let () (declare (not safe)) - (gx#stx-e _%g165811165830%_)))) - (let ((_%hd165815165835%_ + (gx#stx-e _%g165917165936%_)))) + (let ((_%hd165921165941%_ (let () (declare (not safe)) - (##car _%e165814165832%_))) - (_%tl165816165837%_ + (##car _%e165920165938%_))) + (_%tl165922165943%_ (let () (declare (not safe)) - (##cdr _%e165814165832%_)))) + (##cdr _%e165920165938%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165816165837%_)) - (let ((_%e165817165840%_ + (gx#stx-pair? _%tl165922165943%_)) + (let ((_%e165923165946%_ (let () (declare (not safe)) - (gx#stx-e _%tl165816165837%_)))) - (let ((_%hd165818165843%_ + (gx#stx-e _%tl165922165943%_)))) + (let ((_%hd165924165949%_ (let () (declare (not safe)) - (##car _%e165817165840%_))) - (_%tl165819165845%_ + (##car _%e165923165946%_))) + (_%tl165925165951%_ (let () (declare (not safe)) - (##cdr _%e165817165840%_)))) + (##cdr _%e165923165946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165819165845%_)) - (let ((_%e165820165848%_ + (gx#stx-pair? _%tl165925165951%_)) + (let ((_%e165926165954%_ (let () (declare (not safe)) - (gx#stx-e _%tl165819165845%_)))) - (let ((_%hd165821165851%_ + (gx#stx-e _%tl165925165951%_)))) + (let ((_%hd165927165957%_ (let () (declare (not safe)) - (##car _%e165820165848%_))) - (_%tl165822165853%_ + (##car _%e165926165954%_))) + (_%tl165928165959%_ (let () (declare (not safe)) - (##cdr _%e165820165848%_)))) + (##cdr _%e165926165954%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165822165853%_)) - ((lambda (_%L165856%_ - _%L165857%_) - (let* ((_%sym165872%_ + _%tl165928165959%_)) + ((lambda (_%L165962%_ + _%L165963%_) + (let* ((_%sym165978%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L165857%_))) - (_%bind-type165874%_ + _%L165963%_))) + (_%bind-type165980%_ (let () (declare (not safe)) (gxc#optimizer-resolve-type - _%sym165872%_))) - (_%expr-type165876%_ + _%sym165978%_))) + (_%expr-type165982%_ (gxc#apply-basic-expression-type - _%L165856%_)) - (_%reduced-type165878%_ + _%L165962%_)) + (_%reduced-type165984%_ (gxc#greatest-common-type - _%stx165808%_ - _%bind-type165874%_ - _%expr-type165876%_))) - (if _%reduced-type165878%_ - (let ((__tmp171143 - (memq _%sym165872%_ + _%stx165914%_ + _%bind-type165980%_ + _%expr-type165982%_))) + (if _%reduced-type165984%_ + (let ((__tmp171249 + (memq _%sym165978%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#current-compile-local-env))))) (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165872%_ - _%reduced-type165878%_ - __tmp171143)) + _%sym165978%_ + _%reduced-type165984%_ + __tmp171249)) '#!void) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self165807%_ - _%L165856%_)))) - _%hd165821165851%_ - _%hd165818165843%_) - (_%g165810165827%_ - _%g165811165830%_)))) - (_%g165810165827%_ _%g165811165830%_)))) - (_%g165810165827%_ _%g165811165830%_)))) - (_%g165810165827%_ _%g165811165830%_))))) - (_%g165809165881%_ _%stx165808%_)))) + _%self165913%_ + _%L165962%_)))) + _%hd165927165957%_ + _%hd165924165949%_) + (_%g165916165933%_ + _%g165917165936%_)))) + (_%g165916165933%_ _%g165917165936%_)))) + (_%g165916165933%_ _%g165917165936%_)))) + (_%g165916165933%_ _%g165917165936%_))))) + (_%g165915165987%_ _%stx165914%_)))) (define gxc#apply-path-type-if% - (lambda (_%self165407%_ _%stx165408%_) - (let* ((_%__stx168568168569%_ _%stx165408%_) - (_%g165412165501%_ + (lambda (_%self165513%_ _%stx165514%_) + (let* ((_%__stx168674168675%_ _%stx165514%_) + (_%g165518165607%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168568168569%_))))) - (let ((_%__kont168570168571%_ - (lambda (_%L165759%_ _%L165760%_ _%L165761%_ _%L165762%_) - (let ((_%$e165794%_ - (let ((__tmp171144 + _%__stx168674168675%_))))) + (let ((_%__kont168676168677%_ + (lambda (_%L165865%_ _%L165866%_ _%L165867%_ _%L165868%_) + (let ((_%$e165900%_ + (let ((__tmp171250 (let () (declare (not safe)) - (gxc#identifier-symbol _%L165762%_)))) + (gxc#identifier-symbol _%L165868%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171144)))) - (if _%$e165794%_ - ((lambda (_%pred-type165797%_) + (gxc#optimizer-lookup-type __tmp171250)))) + (if _%$e165900%_ + ((lambda (_%pred-type165903%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165797%_ + _%pred-type165903%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type165797%_ + _%pred-type165903%_ 'gxc#!primitive-predicate::t))) (begin - (let ((__tmp171147 + (let ((__tmp171253 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165407%_ - _%L165760%_)))) - (__tmp171145 + _%self165513%_ + _%L165866%_)))) + (__tmp171251 (cons (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L165761%_)) - (let ((__tmp171146 + _%L165867%_)) + (let ((__tmp171252 (##structure-ref - _%pred-type165797%_ + _%pred-type165903%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx165408%_ - __tmp171146))) + _%stx165514%_ + __tmp171252))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) (declare (not safe)) (__call-with-parameters - __tmp171147 + __tmp171253 gxc#current-compile-path-type - __tmp171145)) + __tmp171251)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165407%_ - _%L165759%_))) + _%self165513%_ + _%L165865%_))) (let () (declare (not safe)) (gxc#apply-operands - _%self165407%_ - _%stx165408%_)))) - _%$e165794%_) + _%self165513%_ + _%stx165514%_)))) + _%$e165900%_) (let () (declare (not safe)) (gxc#apply-operands - _%self165407%_ - _%stx165408%_)))))) - (_%__kont168572168573%_ - (lambda (_%L165635%_ _%L165636%_ _%L165637%_ _%L165638%_) + _%self165513%_ + _%stx165514%_)))))) + (_%__kont168678168679%_ + (lambda (_%L165741%_ _%L165742%_ _%L165743%_ _%L165744%_) (gxc#apply-path-type-if% - _%self165407%_ - (let ((__tmp171148 + _%self165513%_ + (let ((__tmp171254 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L165637%_ - (cons _%L165635%_ - (cons _%L165636%_ '())))))) + (cons _%L165743%_ + (cons _%L165741%_ + (cons _%L165742%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171148 _%stx165408%_))))) - (_%__kont168574168575%_ - (lambda (_%L165538%_ _%L165539%_ _%L165540%_) + (gxc#xform-wrap-source __tmp171254 _%stx165514%_))))) + (_%__kont168680168681%_ + (lambda (_%L165644%_ _%L165645%_ _%L165646%_) (let () (declare (not safe)) - (gxc#apply-operands _%self165407%_ _%stx165408%_))))) - (let ((_%__match168729168730%_ - (lambda (_%e165455165563%_ - _%hd165456165566%_ - _%tl165457165568%_ - _%e165458165571%_ - _%hd165459165574%_ - _%tl165460165576%_ - _%e165461165579%_ - _%hd165462165582%_ - _%tl165463165584%_ - _%e165464165587%_ - _%hd165465165590%_ - _%tl165466165592%_ - _%e165467165595%_ - _%hd165468165598%_ - _%tl165469165600%_ - _%e165470165603%_ - _%hd165471165606%_ - _%tl165472165608%_ - _%e165473165611%_ - _%hd165474165614%_ - _%tl165475165616%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) - (let ((_%L165635%_ _%hd165480165630%_) - (_%L165636%_ _%hd165477165622%_) - (_%L165637%_ _%hd165474165614%_) - (_%L165638%_ _%hd165471165606%_)) + (gxc#apply-operands _%self165513%_ _%stx165514%_))))) + (let ((_%__match168835168836%_ + (lambda (_%e165561165669%_ + _%hd165562165672%_ + _%tl165563165674%_ + _%e165564165677%_ + _%hd165565165680%_ + _%tl165566165682%_ + _%e165567165685%_ + _%hd165568165688%_ + _%tl165569165690%_ + _%e165570165693%_ + _%hd165571165696%_ + _%tl165572165698%_ + _%e165573165701%_ + _%hd165574165704%_ + _%tl165575165706%_ + _%e165576165709%_ + _%hd165577165712%_ + _%tl165578165714%_ + _%e165579165717%_ + _%hd165580165720%_ + _%tl165581165722%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) + (let ((_%L165741%_ _%hd165586165736%_) + (_%L165742%_ _%hd165583165728%_) + (_%L165743%_ _%hd165580165720%_) + (_%L165744%_ _%hd165577165712%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L165638%_ 'not)) - (_%__kont168572168573%_ - _%L165635%_ - _%L165636%_ - _%L165637%_ - _%L165638%_) - (_%__kont168574168575%_ - _%hd165480165630%_ - _%hd165477165622%_ - _%hd165459165574%_)))))) + (gxc#runtime-identifier=? _%L165744%_ 'not)) + (_%__kont168678168679%_ + _%L165741%_ + _%L165742%_ + _%L165743%_ + _%L165744%_) + (_%__kont168680168681%_ + _%hd165586165736%_ + _%hd165583165728%_ + _%hd165565165680%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168568168569%_)) - (let ((_%e165418165671%_ + (gx#stx-pair? _%__stx168674168675%_)) + (let ((_%e165524165777%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168568168569%_)))) - (let ((_%tl165420165676%_ + (gx#stx-e _%__stx168674168675%_)))) + (let ((_%tl165526165782%_ (let () (declare (not safe)) - (##cdr _%e165418165671%_))) - (_%hd165419165674%_ + (##cdr _%e165524165777%_))) + (_%hd165525165780%_ (let () (declare (not safe)) - (##car _%e165418165671%_)))) + (##car _%e165524165777%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165420165676%_)) - (let ((_%e165421165679%_ + (gx#stx-pair? _%tl165526165782%_)) + (let ((_%e165527165785%_ (let () (declare (not safe)) - (gx#stx-e _%tl165420165676%_)))) - (let ((_%tl165423165684%_ + (gx#stx-e _%tl165526165782%_)))) + (let ((_%tl165529165790%_ (let () (declare (not safe)) - (##cdr _%e165421165679%_))) - (_%hd165422165682%_ + (##cdr _%e165527165785%_))) + (_%hd165528165788%_ (let () (declare (not safe)) - (##car _%e165421165679%_)))) + (##car _%e165527165785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165422165682%_)) - (let ((_%e165424165687%_ + (gx#stx-pair? _%hd165528165788%_)) + (let ((_%e165530165793%_ (let () (declare (not safe)) - (gx#stx-e _%hd165422165682%_)))) - (let ((_%tl165426165692%_ + (gx#stx-e _%hd165528165788%_)))) + (let ((_%tl165532165798%_ (let () (declare (not safe)) - (##cdr _%e165424165687%_))) - (_%hd165425165690%_ + (##cdr _%e165530165793%_))) + (_%hd165531165796%_ (let () (declare (not safe)) - (##car _%e165424165687%_)))) + (##car _%e165530165793%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd165425165690%_)) + _%hd165531165796%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd165425165690%_)) + _%hd165531165796%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165426165692%_)) - (let ((_%e165427165695%_ + _%tl165532165798%_)) + (let ((_%e165533165801%_ (let () (declare (not safe)) (gx#stx-e - _%tl165426165692%_)))) - (let ((_%tl165429165700%_ + _%tl165532165798%_)))) + (let ((_%tl165535165806%_ (let () (declare (not safe)) - (##cdr _%e165427165695%_))) - (_%hd165428165698%_ + (##cdr _%e165533165801%_))) + (_%hd165534165804%_ (let () (declare (not safe)) - (##car _%e165427165695%_)))) + (##car _%e165533165801%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165428165698%_)) - (let ((_%e165430165703%_ + _%hd165534165804%_)) + (let ((_%e165536165809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd165428165698%_)))) - (let ((_%tl165432165708%_ + (gx#stx-e _%hd165534165804%_)))) + (let ((_%tl165538165814%_ (let () (declare (not safe)) - (##cdr _%e165430165703%_))) - (_%hd165431165706%_ + (##cdr _%e165536165809%_))) + (_%hd165537165812%_ (let () (declare (not safe)) - (##car _%e165430165703%_)))) + (##car _%e165536165809%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165431165706%_)) + (gx#identifier? _%hd165537165812%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165431165706%_)) + (gx#stx-eq? '%#ref _%hd165537165812%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165432165708%_)) - (let ((_%e165433165711%_ + (gx#stx-pair? _%tl165538165814%_)) + (let ((_%e165539165817%_ (let () (declare (not safe)) - (gx#stx-e _%tl165432165708%_)))) - (let ((_%tl165435165716%_ + (gx#stx-e _%tl165538165814%_)))) + (let ((_%tl165541165822%_ (let () (declare (not safe)) - (##cdr _%e165433165711%_))) - (_%hd165434165714%_ + (##cdr _%e165539165817%_))) + (_%hd165540165820%_ (let () (declare (not safe)) - (##car _%e165433165711%_)))) + (##car _%e165539165817%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165435165716%_)) + (gx#stx-null? _%tl165541165822%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165429165700%_)) - (let ((_%e165436165719%_ + _%tl165535165806%_)) + (let ((_%e165542165825%_ (let () (declare (not safe)) (gx#stx-e - _%tl165429165700%_)))) - (let ((_%tl165438165724%_ + _%tl165535165806%_)))) + (let ((_%tl165544165830%_ (let () (declare (not safe)) - (##cdr _%e165436165719%_))) - (_%hd165437165722%_ + (##cdr _%e165542165825%_))) + (_%hd165543165828%_ (let () (declare (not safe)) - (##car _%e165436165719%_)))) + (##car _%e165542165825%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd165437165722%_)) - (let ((_%e165439165727%_ + _%hd165543165828%_)) + (let ((_%e165545165833%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd165437165722%_)))) - (let ((_%tl165441165732%_ - (let () (declare (not safe)) (##cdr _%e165439165727%_))) - (_%hd165440165730%_ + (gx#stx-e _%hd165543165828%_)))) + (let ((_%tl165547165838%_ + (let () (declare (not safe)) (##cdr _%e165545165833%_))) + (_%hd165546165836%_ (let () (declare (not safe)) - (##car _%e165439165727%_)))) + (##car _%e165545165833%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd165440165730%_)) + (gx#identifier? _%hd165546165836%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd165440165730%_)) + (gx#stx-eq? '%#ref _%hd165546165836%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165441165732%_)) - (let ((_%e165442165735%_ + (gx#stx-pair? _%tl165547165838%_)) + (let ((_%e165548165841%_ (let () (declare (not safe)) - (gx#stx-e _%tl165441165732%_)))) - (let ((_%tl165444165740%_ + (gx#stx-e _%tl165547165838%_)))) + (let ((_%tl165550165846%_ (let () (declare (not safe)) - (##cdr _%e165442165735%_))) - (_%hd165443165738%_ + (##cdr _%e165548165841%_))) + (_%hd165549165844%_ (let () (declare (not safe)) - (##car _%e165442165735%_)))) + (##car _%e165548165841%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165444165740%_)) + (gx#stx-null? _%tl165550165846%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165445165743%_ + _%tl165529165790%_)) + (let ((_%e165551165849%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165447165748%_ + _%tl165529165790%_)))) + (let ((_%tl165553165854%_ (let () (declare (not safe)) - (##cdr _%e165445165743%_))) - (_%hd165446165746%_ + (##cdr _%e165551165849%_))) + (_%hd165552165852%_ (let () (declare (not safe)) - (##car _%e165445165743%_)))) + (##car _%e165551165849%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165447165748%_)) - (let ((_%e165448165751%_ + _%tl165553165854%_)) + (let ((_%e165554165857%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165447165748%_)))) - (let ((_%tl165450165756%_ - (let () (declare (not safe)) (##cdr _%e165448165751%_))) - (_%hd165449165754%_ + (gx#stx-e _%tl165553165854%_)))) + (let ((_%tl165556165862%_ + (let () (declare (not safe)) (##cdr _%e165554165857%_))) + (_%hd165555165860%_ (let () (declare (not safe)) - (##car _%e165448165751%_)))) + (##car _%e165554165857%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165450165756%_)) - (_%__kont168570168571%_ - _%hd165449165754%_ - _%hd165446165746%_ - _%hd165443165738%_ - _%hd165434165714%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165556165862%_)) + (_%__kont168676168677%_ + _%hd165555165860%_ + _%hd165552165852%_ + _%hd165549165844%_ + _%hd165540165820%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_))) + (_%g165518165607%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ - (let () (declare (not safe)) (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ + (let () (declare (not safe)) (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_)))) + (_%g165518165607%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165476165619%_ + _%tl165529165790%_)) + (let ((_%e165582165725%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165478165624%_ + _%tl165529165790%_)))) + (let ((_%tl165584165730%_ (let () (declare (not safe)) - (##cdr _%e165476165619%_))) - (_%hd165477165622%_ + (##cdr _%e165582165725%_))) + (_%hd165583165728%_ (let () (declare (not safe)) - (##car _%e165476165619%_)))) + (##car _%e165582165725%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165478165624%_)) - (let ((_%e165479165627%_ + _%tl165584165730%_)) + (let ((_%e165585165733%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165478165624%_)))) - (let ((_%tl165481165632%_ - (let () (declare (not safe)) (##cdr _%e165479165627%_))) - (_%hd165480165630%_ + (gx#stx-e _%tl165584165730%_)))) + (let ((_%tl165587165738%_ + (let () (declare (not safe)) (##cdr _%e165585165733%_))) + (_%hd165586165736%_ (let () (declare (not safe)) - (##car _%e165479165627%_)))) + (##car _%e165585165733%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165481165632%_)) - (_%__match168729168730%_ - _%e165418165671%_ - _%hd165419165674%_ - _%tl165420165676%_ - _%e165421165679%_ - _%hd165422165682%_ - _%tl165423165684%_ - _%e165424165687%_ - _%hd165425165690%_ - _%tl165426165692%_ - _%e165427165695%_ - _%hd165428165698%_ - _%tl165429165700%_ - _%e165430165703%_ - _%hd165431165706%_ - _%tl165432165708%_ - _%e165433165711%_ - _%hd165434165714%_ - _%tl165435165716%_ - _%e165436165719%_ - _%hd165437165722%_ - _%tl165438165724%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165587165738%_)) + (_%__match168835168836%_ + _%e165524165777%_ + _%hd165525165780%_ + _%tl165526165782%_ + _%e165527165785%_ + _%hd165528165788%_ + _%tl165529165790%_ + _%e165530165793%_ + _%hd165531165796%_ + _%tl165532165798%_ + _%e165533165801%_ + _%hd165534165804%_ + _%tl165535165806%_ + _%e165536165809%_ + _%hd165537165812%_ + _%tl165538165814%_ + _%e165539165817%_ + _%hd165540165820%_ + _%tl165541165822%_ + _%e165542165825%_ + _%hd165543165828%_ + _%tl165544165830%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_))) + (_%g165518165607%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ - (let () (declare (not safe)) (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ + (let () (declare (not safe)) (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_))))))) + (_%g165518165607%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165476165619%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165582165725%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165478165624%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165584165730%_ (let () (declare (not safe)) - (##cdr _%e165476165619%_))) - (_%hd165477165622%_ + (##cdr _%e165582165725%_))) + (_%hd165583165728%_ (let () (declare (not safe)) - (##car _%e165476165619%_)))) + (##car _%e165582165725%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165478165624%_)) - (let ((_%e165479165627%_ + _%tl165584165730%_)) + (let ((_%e165585165733%_ (let () (declare (not safe)) (gx#stx-e - _%tl165478165624%_)))) - (let ((_%tl165481165632%_ + _%tl165584165730%_)))) + (let ((_%tl165587165738%_ (let () (declare (not safe)) - (##cdr _%e165479165627%_))) - (_%hd165480165630%_ + (##cdr _%e165585165733%_))) + (_%hd165586165736%_ (let () (declare (not safe)) - (##car _%e165479165627%_)))) + (##car _%e165585165733%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165481165632%_)) - (_%__match168729168730%_ - _%e165418165671%_ - _%hd165419165674%_ - _%tl165420165676%_ - _%e165421165679%_ - _%hd165422165682%_ - _%tl165423165684%_ - _%e165424165687%_ - _%hd165425165690%_ - _%tl165426165692%_ - _%e165427165695%_ - _%hd165428165698%_ - _%tl165429165700%_ - _%e165430165703%_ - _%hd165431165706%_ - _%tl165432165708%_ - _%e165433165711%_ - _%hd165434165714%_ - _%tl165435165716%_ - _%e165436165719%_ - _%hd165437165722%_ - _%tl165438165724%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) + _%tl165587165738%_)) + (_%__match168835168836%_ + _%e165524165777%_ + _%hd165525165780%_ + _%tl165526165782%_ + _%e165527165785%_ + _%hd165528165788%_ + _%tl165529165790%_ + _%e165530165793%_ + _%hd165531165796%_ + _%tl165532165798%_ + _%e165533165801%_ + _%hd165534165804%_ + _%tl165535165806%_ + _%e165536165809%_ + _%hd165537165812%_ + _%tl165538165814%_ + _%e165539165817%_ + _%hd165540165820%_ + _%tl165541165822%_ + _%e165542165825%_ + _%hd165543165828%_ + _%tl165544165830%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))) + (_%g165518165607%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) (gx#stx-e - _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165476165619%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165582165725%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165478165624%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165584165730%_ (let () (declare (not safe)) - (##cdr _%e165476165619%_))) - (_%hd165477165622%_ + (##cdr _%e165582165725%_))) + (_%hd165583165728%_ (let () (declare (not safe)) - (##car _%e165476165619%_)))) + (##car _%e165582165725%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165478165624%_)) - (let ((_%e165479165627%_ + (gx#stx-pair? _%tl165584165730%_)) + (let ((_%e165585165733%_ (let () (declare (not safe)) (gx#stx-e - _%tl165478165624%_)))) - (let ((_%tl165481165632%_ + _%tl165584165730%_)))) + (let ((_%tl165587165738%_ (let () (declare (not safe)) - (##cdr _%e165479165627%_))) - (_%hd165480165630%_ + (##cdr _%e165585165733%_))) + (_%hd165586165736%_ (let () (declare (not safe)) - (##car _%e165479165627%_)))) + (##car _%e165585165733%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165481165632%_)) - (_%__match168729168730%_ - _%e165418165671%_ - _%hd165419165674%_ - _%tl165420165676%_ - _%e165421165679%_ - _%hd165422165682%_ - _%tl165423165684%_ - _%e165424165687%_ - _%hd165425165690%_ - _%tl165426165692%_ - _%e165427165695%_ - _%hd165428165698%_ - _%tl165429165700%_ - _%e165430165703%_ - _%hd165431165706%_ - _%tl165432165708%_ - _%e165433165711%_ - _%hd165434165714%_ - _%tl165435165716%_ - _%e165436165719%_ - _%hd165437165722%_ - _%tl165438165724%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) + _%tl165587165738%_)) + (_%__match168835168836%_ + _%e165524165777%_ + _%hd165525165780%_ + _%tl165526165782%_ + _%e165527165785%_ + _%hd165528165788%_ + _%tl165529165790%_ + _%e165530165793%_ + _%hd165531165796%_ + _%tl165532165798%_ + _%e165533165801%_ + _%hd165534165804%_ + _%tl165535165806%_ + _%e165536165809%_ + _%hd165537165812%_ + _%tl165538165814%_ + _%e165539165817%_ + _%hd165540165820%_ + _%tl165541165822%_ + _%e165542165825%_ + _%hd165543165828%_ + _%tl165544165830%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))) + (_%g165518165607%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) (gx#stx-e - _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165476165619%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165582165725%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165478165624%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165584165730%_ (let () (declare (not safe)) - (##cdr _%e165476165619%_))) - (_%hd165477165622%_ + (##cdr _%e165582165725%_))) + (_%hd165583165728%_ (let () (declare (not safe)) - (##car _%e165476165619%_)))) + (##car _%e165582165725%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165478165624%_)) - (let ((_%e165479165627%_ + (gx#stx-pair? _%tl165584165730%_)) + (let ((_%e165585165733%_ (let () (declare (not safe)) - (gx#stx-e _%tl165478165624%_)))) - (let ((_%tl165481165632%_ + (gx#stx-e _%tl165584165730%_)))) + (let ((_%tl165587165738%_ (let () (declare (not safe)) - (##cdr _%e165479165627%_))) - (_%hd165480165630%_ + (##cdr _%e165585165733%_))) + (_%hd165586165736%_ (let () (declare (not safe)) - (##car _%e165479165627%_)))) + (##car _%e165585165733%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165481165632%_)) - (_%__match168729168730%_ - _%e165418165671%_ - _%hd165419165674%_ - _%tl165420165676%_ - _%e165421165679%_ - _%hd165422165682%_ - _%tl165423165684%_ - _%e165424165687%_ - _%hd165425165690%_ - _%tl165426165692%_ - _%e165427165695%_ - _%hd165428165698%_ - _%tl165429165700%_ - _%e165430165703%_ - _%hd165431165706%_ - _%tl165432165708%_ - _%e165433165711%_ - _%hd165434165714%_ - _%tl165435165716%_ - _%e165436165719%_ - _%hd165437165722%_ - _%tl165438165724%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) + _%tl165587165738%_)) + (_%__match168835168836%_ + _%e165524165777%_ + _%hd165525165780%_ + _%tl165526165782%_ + _%e165527165785%_ + _%hd165528165788%_ + _%tl165529165790%_ + _%e165530165793%_ + _%hd165531165796%_ + _%tl165532165798%_ + _%e165533165801%_ + _%hd165534165804%_ + _%tl165535165806%_ + _%e165536165809%_ + _%hd165537165812%_ + _%tl165538165814%_ + _%e165539165817%_ + _%hd165540165820%_ + _%tl165541165822%_ + _%e165542165825%_ + _%hd165543165828%_ + _%tl165544165830%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))) + (_%g165518165607%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))))) + (_%g165518165607%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165438165724%_)) + (gx#stx-null? _%tl165544165830%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165476165619%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165582165725%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165478165624%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165584165730%_ (let () (declare (not safe)) - (##cdr _%e165476165619%_))) - (_%hd165477165622%_ + (##cdr _%e165582165725%_))) + (_%hd165583165728%_ (let () (declare (not safe)) - (##car _%e165476165619%_)))) + (##car _%e165582165725%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165478165624%_)) - (let ((_%e165479165627%_ + (gx#stx-pair? _%tl165584165730%_)) + (let ((_%e165585165733%_ (let () (declare (not safe)) - (gx#stx-e _%tl165478165624%_)))) - (let ((_%tl165481165632%_ + (gx#stx-e _%tl165584165730%_)))) + (let ((_%tl165587165738%_ (let () (declare (not safe)) - (##cdr _%e165479165627%_))) - (_%hd165480165630%_ + (##cdr _%e165585165733%_))) + (_%hd165586165736%_ (let () (declare (not safe)) - (##car _%e165479165627%_)))) + (##car _%e165585165733%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165481165632%_)) - (_%__match168729168730%_ - _%e165418165671%_ - _%hd165419165674%_ - _%tl165420165676%_ - _%e165421165679%_ - _%hd165422165682%_ - _%tl165423165684%_ - _%e165424165687%_ - _%hd165425165690%_ - _%tl165426165692%_ - _%e165427165695%_ - _%hd165428165698%_ - _%tl165429165700%_ - _%e165430165703%_ - _%hd165431165706%_ - _%tl165432165708%_ - _%e165433165711%_ - _%hd165434165714%_ - _%tl165435165716%_ - _%e165436165719%_ - _%hd165437165722%_ - _%tl165438165724%_ - _%e165476165619%_ - _%hd165477165622%_ - _%tl165478165624%_ - _%e165479165627%_ - _%hd165480165630%_ - _%tl165481165632%_) + (gx#stx-null? _%tl165587165738%_)) + (_%__match168835168836%_ + _%e165524165777%_ + _%hd165525165780%_ + _%tl165526165782%_ + _%e165527165785%_ + _%hd165528165788%_ + _%tl165529165790%_ + _%e165530165793%_ + _%hd165531165796%_ + _%tl165532165798%_ + _%e165533165801%_ + _%hd165534165804%_ + _%tl165535165806%_ + _%e165536165809%_ + _%hd165537165812%_ + _%tl165538165814%_ + _%e165539165817%_ + _%hd165540165820%_ + _%tl165541165822%_ + _%e165542165825%_ + _%hd165543165828%_ + _%tl165544165830%_ + _%e165582165725%_ + _%hd165583165728%_ + _%tl165584165730%_ + _%e165585165733%_ + _%hd165586165736%_ + _%tl165587165738%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))) + (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))))) + (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_)))) + (_%g165518165607%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ - (let () (declare (not safe)) (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ + (let () (declare (not safe)) (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_)))))) + (_%g165518165607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) (gx#stx-e - _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_)))) + (_%g165518165607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) (gx#stx-e - _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_)))) + (_%g165518165607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_)))))) + (_%g165518165607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_)))))) + (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ - (let () (declare (not safe)) (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ + (let () (declare (not safe)) (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165493165527%_)) - (let ((_%e165494165530%_ + (gx#stx-pair? _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_)))) + (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_)))) + (_%g165518165607%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165423165684%_)) - (let ((_%e165491165522%_ + _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) (gx#stx-e - _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl165493165527%_)))) - (let ((_%tl165496165535%_ - (let () (declare (not safe)) (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (gx#stx-e _%tl165599165633%_)))) + (let ((_%tl165602165641%_ + (let () (declare (not safe)) (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_))))) + (gx#stx-null? _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g165412165501%_)))))) + (_%g165518165607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165423165684%_)) - (let ((_%e165491165522%_ + (gx#stx-pair? _%tl165529165790%_)) + (let ((_%e165597165628%_ (let () (declare (not safe)) - (gx#stx-e _%tl165423165684%_)))) - (let ((_%tl165493165527%_ + (gx#stx-e _%tl165529165790%_)))) + (let ((_%tl165599165633%_ (let () (declare (not safe)) - (##cdr _%e165491165522%_))) - (_%hd165492165525%_ + (##cdr _%e165597165628%_))) + (_%hd165598165631%_ (let () (declare (not safe)) - (##car _%e165491165522%_)))) + (##car _%e165597165628%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165493165527%_)) - (let ((_%e165494165530%_ + _%tl165599165633%_)) + (let ((_%e165600165636%_ (let () (declare (not safe)) (gx#stx-e - _%tl165493165527%_)))) - (let ((_%tl165496165535%_ + _%tl165599165633%_)))) + (let ((_%tl165602165641%_ (let () (declare (not safe)) - (##cdr _%e165494165530%_))) - (_%hd165495165533%_ + (##cdr _%e165600165636%_))) + (_%hd165601165639%_ (let () (declare (not safe)) - (##car _%e165494165530%_)))) + (##car _%e165600165636%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165496165535%_)) - (_%__kont168574168575%_ - _%hd165495165533%_ - _%hd165492165525%_ - _%hd165422165682%_) + _%tl165602165641%_)) + (_%__kont168680168681%_ + _%hd165601165639%_ + _%hd165598165631%_ + _%hd165528165788%_) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_))))) + (_%g165518165607%_))))) (let () (declare (not safe)) - (_%g165412165501%_)))))) - (let () (declare (not safe)) (_%g165412165501%_))))) - (let () (declare (not safe)) (_%g165412165501%_)))))))) + (_%g165518165607%_)))))) + (let () (declare (not safe)) (_%g165518165607%_))))) + (let () (declare (not safe)) (_%g165518165607%_)))))))) (define gxc#refine-type-define-values% - (lambda (_%self165265%_ _%stx165266%_) - (let* ((_%__stx168758168759%_ _%stx165266%_) - (_%g165269165299%_ + (lambda (_%self165371%_ _%stx165372%_) + (let* ((_%__stx168864168865%_ _%stx165372%_) + (_%g165375165405%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168758168759%_))))) - (let ((_%__kont168760168761%_ - (lambda (_%L165379%_ _%L165380%_) - (let ((_%sym165396%_ + _%__stx168864168865%_))))) + (let ((_%__kont168866168867%_ + (lambda (_%L165485%_ _%L165486%_) + (let ((_%sym165502%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165380%_)))) - (if (let ((__tmp171149 + (gxc#identifier-symbol _%L165486%_)))) + (if (let ((__tmp171255 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171149 _%sym165396%_)) + (hash-get __tmp171255 _%sym165502%_)) '#!void - (let ((_%type165397165399%_ - (gxc#apply-basic-expression-type _%L165379%_))) - (if _%type165397165399%_ - (let ((_%type165402%_ _%type165397165399%_)) + (let ((_%type165503165505%_ + (gxc#apply-basic-expression-type _%L165485%_))) + (if _%type165503165505%_ + (let ((_%type165508%_ _%type165503165505%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165402%_ + _%type165508%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__0 - _%sym165396%_ - _%type165402%_)))) + _%sym165502%_ + _%type165508%_)))) '#f))) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165265%_ _%L165379%_))))) - (_%__kont168762168763%_ - (lambda (_%L165328%_) + (gxc#compile-e__1 _%self165371%_ _%L165485%_))))) + (_%__kont168868168869%_ + (lambda (_%L165434%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self165265%_ _%L165328%_))))) - (let ((_%__match168791168792%_ - (lambda (_%e165273165347%_ - _%hd165274165350%_ - _%tl165275165352%_ - _%e165276165355%_ - _%hd165277165358%_ - _%tl165278165360%_ - _%e165279165363%_ - _%hd165280165366%_ - _%tl165281165368%_ - _%e165282165371%_ - _%hd165283165374%_ - _%tl165284165376%_) - (let ((_%L165379%_ _%hd165283165374%_) - (_%L165380%_ _%hd165280165366%_)) + (gxc#compile-e__1 _%self165371%_ _%L165434%_))))) + (let ((_%__match168897168898%_ + (lambda (_%e165379165453%_ + _%hd165380165456%_ + _%tl165381165458%_ + _%e165382165461%_ + _%hd165383165464%_ + _%tl165384165466%_ + _%e165385165469%_ + _%hd165386165472%_ + _%tl165387165474%_ + _%e165388165477%_ + _%hd165389165480%_ + _%tl165390165482%_) + (let ((_%L165485%_ _%hd165389165480%_) + (_%L165486%_ _%hd165386165472%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165380%_)) - (_%__kont168760168761%_ _%L165379%_ _%L165380%_) - (_%__kont168762168763%_ _%hd165283165374%_)))))) + (gx#identifier? _%L165486%_)) + (_%__kont168866168867%_ _%L165485%_ _%L165486%_) + (_%__kont168868168869%_ _%hd165389165480%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168758168759%_)) - (let ((_%e165273165347%_ + (gx#stx-pair? _%__stx168864168865%_)) + (let ((_%e165379165453%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168758168759%_)))) - (let ((_%tl165275165352%_ + (gx#stx-e _%__stx168864168865%_)))) + (let ((_%tl165381165458%_ (let () (declare (not safe)) - (##cdr _%e165273165347%_))) - (_%hd165274165350%_ + (##cdr _%e165379165453%_))) + (_%hd165380165456%_ (let () (declare (not safe)) - (##car _%e165273165347%_)))) + (##car _%e165379165453%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165275165352%_)) - (let ((_%e165276165355%_ + (gx#stx-pair? _%tl165381165458%_)) + (let ((_%e165382165461%_ (let () (declare (not safe)) - (gx#stx-e _%tl165275165352%_)))) - (let ((_%tl165278165360%_ + (gx#stx-e _%tl165381165458%_)))) + (let ((_%tl165384165466%_ (let () (declare (not safe)) - (##cdr _%e165276165355%_))) - (_%hd165277165358%_ + (##cdr _%e165382165461%_))) + (_%hd165383165464%_ (let () (declare (not safe)) - (##car _%e165276165355%_)))) + (##car _%e165382165461%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165277165358%_)) - (let ((_%e165279165363%_ + (gx#stx-pair? _%hd165383165464%_)) + (let ((_%e165385165469%_ (let () (declare (not safe)) - (gx#stx-e _%hd165277165358%_)))) - (let ((_%tl165281165368%_ + (gx#stx-e _%hd165383165464%_)))) + (let ((_%tl165387165474%_ (let () (declare (not safe)) - (##cdr _%e165279165363%_))) - (_%hd165280165366%_ + (##cdr _%e165385165469%_))) + (_%hd165386165472%_ (let () (declare (not safe)) - (##car _%e165279165363%_)))) + (##car _%e165385165469%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165281165368%_)) + (gx#stx-null? _%tl165387165474%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165278165360%_)) - (let ((_%e165282165371%_ + _%tl165384165466%_)) + (let ((_%e165388165477%_ (let () (declare (not safe)) (gx#stx-e - _%tl165278165360%_)))) - (let ((_%tl165284165376%_ + _%tl165384165466%_)))) + (let ((_%tl165390165482%_ (let () (declare (not safe)) - (##cdr _%e165282165371%_))) - (_%hd165283165374%_ + (##cdr _%e165388165477%_))) + (_%hd165389165480%_ (let () (declare (not safe)) - (##car _%e165282165371%_)))) + (##car _%e165388165477%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165284165376%_)) - (_%__match168791168792%_ - _%e165273165347%_ - _%hd165274165350%_ - _%tl165275165352%_ - _%e165276165355%_ - _%hd165277165358%_ - _%tl165278165360%_ - _%e165279165363%_ - _%hd165280165366%_ - _%tl165281165368%_ - _%e165282165371%_ - _%hd165283165374%_ - _%tl165284165376%_) + _%tl165390165482%_)) + (_%__match168897168898%_ + _%e165379165453%_ + _%hd165380165456%_ + _%tl165381165458%_ + _%e165382165461%_ + _%hd165383165464%_ + _%tl165384165466%_ + _%e165385165469%_ + _%hd165386165472%_ + _%tl165387165474%_ + _%e165388165477%_ + _%hd165389165480%_ + _%tl165390165482%_) (let () (declare (not safe)) - (_%g165269165299%_))))) + (_%g165375165405%_))))) (let () (declare (not safe)) - (_%g165269165299%_))) + (_%g165375165405%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl165278165360%_)) - (let ((_%e165292165320%_ + _%tl165384165466%_)) + (let ((_%e165398165426%_ (let () (declare (not safe)) (gx#stx-e - _%tl165278165360%_)))) - (let ((_%tl165294165325%_ + _%tl165384165466%_)))) + (let ((_%tl165400165431%_ (let () (declare (not safe)) - (##cdr _%e165292165320%_))) - (_%hd165293165323%_ + (##cdr _%e165398165426%_))) + (_%hd165399165429%_ (let () (declare (not safe)) - (##car _%e165292165320%_)))) + (##car _%e165398165426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165294165325%_)) - (_%__kont168762168763%_ - _%hd165293165323%_) + _%tl165400165431%_)) + (_%__kont168868168869%_ + _%hd165399165429%_) (let () (declare (not safe)) - (_%g165269165299%_))))) + (_%g165375165405%_))))) (let () (declare (not safe)) - (_%g165269165299%_)))))) + (_%g165375165405%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165278165360%_)) - (let ((_%e165292165320%_ + (gx#stx-pair? _%tl165384165466%_)) + (let ((_%e165398165426%_ (let () (declare (not safe)) - (gx#stx-e _%tl165278165360%_)))) - (let ((_%tl165294165325%_ + (gx#stx-e _%tl165384165466%_)))) + (let ((_%tl165400165431%_ (let () (declare (not safe)) - (##cdr _%e165292165320%_))) - (_%hd165293165323%_ + (##cdr _%e165398165426%_))) + (_%hd165399165429%_ (let () (declare (not safe)) - (##car _%e165292165320%_)))) + (##car _%e165398165426%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165294165325%_)) - (_%__kont168762168763%_ - _%hd165293165323%_) + _%tl165400165431%_)) + (_%__kont168868168869%_ + _%hd165399165429%_) (let () (declare (not safe)) - (_%g165269165299%_))))) + (_%g165375165405%_))))) (let () (declare (not safe)) - (_%g165269165299%_)))))) - (let () (declare (not safe)) (_%g165269165299%_))))) - (let () (declare (not safe)) (_%g165269165299%_)))))))) + (_%g165375165405%_)))))) + (let () (declare (not safe)) (_%g165375165405%_))))) + (let () (declare (not safe)) (_%g165375165405%_)))))))) (define gxc#refine-type-let-values% - (lambda (_%self165037%_ _%stx165038%_) - (letrec ((_%collect-e165040%_ - (lambda (_%hd165209%_ _%expr165210%_) - (let* ((_%__stx168814168815%_ _%hd165209%_) - (_%g165213165223%_ + (lambda (_%self165143%_ _%stx165144%_) + (letrec ((_%collect-e165146%_ + (lambda (_%hd165315%_ _%expr165316%_) + (let* ((_%__stx168920168921%_ _%hd165315%_) + (_%g165319165329%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168814168815%_))))) - (let ((_%__kont168816168817%_ - (lambda (_%L165243%_) - (let ((_%sym165254%_ + _%__stx168920168921%_))))) + (let ((_%__kont168922168923%_ + (lambda (_%L165349%_) + (let ((_%sym165360%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165243%_)))) - (if (let ((__tmp171150 + (gxc#identifier-symbol _%L165349%_)))) + (if (let ((__tmp171256 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171150 _%sym165254%_)) + (hash-get __tmp171256 _%sym165360%_)) '#!void - (let ((_%type165255165257%_ + (let ((_%type165361165363%_ (gxc#apply-basic-expression-type - _%expr165210%_))) - (if _%type165255165257%_ - (let ((_%type165260%_ - _%type165255165257%_)) + _%expr165316%_))) + (if _%type165361165363%_ + (let ((_%type165366%_ + _%type165361165363%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165260%_ + _%type165366%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165254%_ - _%type165260%_ + _%sym165360%_ + _%type165366%_ '#t)))) '#f)))))) - (_%__kont168818168819%_ (lambda () '#!void))) - (let ((_%__match168827168828%_ - (lambda (_%e165216165235%_ - _%hd165217165238%_ - _%tl165218165240%_) - (let ((_%L165243%_ _%hd165217165238%_)) + (_%__kont168924168925%_ (lambda () '#!void))) + (let ((_%__match168933168934%_ + (lambda (_%e165322165341%_ + _%hd165323165344%_ + _%tl165324165346%_) + (let ((_%L165349%_ _%hd165323165344%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165243%_)) - (_%__kont168816168817%_ _%L165243%_) - (_%__kont168818168819%_)))))) + (gx#identifier? _%L165349%_)) + (_%__kont168922168923%_ _%L165349%_) + (_%__kont168924168925%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168814168815%_)) - (let ((_%e165216165235%_ + (gx#stx-pair? _%__stx168920168921%_)) + (let ((_%e165322165341%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168814168815%_)))) - (let ((_%tl165218165240%_ + (gx#stx-e _%__stx168920168921%_)))) + (let ((_%tl165324165346%_ (let () (declare (not safe)) - (##cdr _%e165216165235%_))) - (_%hd165217165238%_ + (##cdr _%e165322165341%_))) + (_%hd165323165344%_ (let () (declare (not safe)) - (##car _%e165216165235%_)))) + (##car _%e165322165341%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165218165240%_)) - (_%__match168827168828%_ - _%e165216165235%_ - _%hd165217165238%_ - _%tl165218165240%_) - (_%__kont168818168819%_)))) - (_%__kont168818168819%_)))))))) - (let* ((_%g165042165077%_ - (lambda (_%g165043165074%_) + (gx#stx-null? _%tl165324165346%_)) + (_%__match168933168934%_ + _%e165322165341%_ + _%hd165323165344%_ + _%tl165324165346%_) + (_%__kont168924168925%_)))) + (_%__kont168924168925%_)))))))) + (let* ((_%g165148165183%_ + (lambda (_%g165149165180%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g165043165074%_)))) - (_%g165041165206%_ - (lambda (_%g165043165080%_) + _%g165149165180%_)))) + (_%g165147165312%_ + (lambda (_%g165149165186%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g165043165080%_)) - (let ((_%e165047165082%_ + (gx#stx-pair? _%g165149165186%_)) + (let ((_%e165153165188%_ (let () (declare (not safe)) - (gx#stx-e _%g165043165080%_)))) - (let ((_%hd165048165085%_ + (gx#stx-e _%g165149165186%_)))) + (let ((_%hd165154165191%_ (let () (declare (not safe)) - (##car _%e165047165082%_))) - (_%tl165049165087%_ + (##car _%e165153165188%_))) + (_%tl165155165193%_ (let () (declare (not safe)) - (##cdr _%e165047165082%_)))) + (##cdr _%e165153165188%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165049165087%_)) - (let ((_%e165050165090%_ + (gx#stx-pair? _%tl165155165193%_)) + (let ((_%e165156165196%_ (let () (declare (not safe)) - (gx#stx-e _%tl165049165087%_)))) - (let ((_%hd165051165093%_ + (gx#stx-e _%tl165155165193%_)))) + (let ((_%hd165157165199%_ (let () (declare (not safe)) - (##car _%e165050165090%_))) - (_%tl165052165095%_ + (##car _%e165156165196%_))) + (_%tl165158165201%_ (let () (declare (not safe)) - (##cdr _%e165050165090%_)))) + (##cdr _%e165156165196%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd165051165093%_)) - (let ((_g171151_ + _%hd165157165199%_)) + (let ((_g171257_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd165051165093%_ + _%hd165157165199%_ '0)))) (begin - (let ((_g171152_ + (let ((_g171258_ (let () (declare (not safe)) - (if (##values? _g171151_) - (##vector-length - _g171151_) + (if (##values? _g171257_) + (##values-length + _g171257_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171152_ 2))) + (##fx= _g171258_ 2))) (error "Context expects 2 values" - _g171152_))) - (let ((_%target165053165098%_ + _g171258_))) + (let ((_%target165159165204%_ (let () (declare (not safe)) - (##vector-ref - _g171151_ + (##values-ref + _g171257_ 0))) - (_%tl165055165100%_ + (_%tl165161165206%_ (let () (declare (not safe)) - (##vector-ref - _g171151_ + (##values-ref + _g171257_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165055165100%_)) - (letrec ((_%loop165056165103%_ - (lambda (_%hd165054165106%_ + _%tl165161165206%_)) + (letrec ((_%loop165162165209%_ + (lambda (_%hd165160165212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr165060165108%_ - _%hd165061165110%_) + _%expr165166165214%_ + _%hd165167165216%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd165054165106%_)) - (let ((_%e165057165113%_ + (gx#stx-pair? _%hd165160165212%_)) + (let ((_%e165163165219%_ (let () (declare (not safe)) - (gx#stx-e _%hd165054165106%_)))) - (let ((_%lp-hd165058165116%_ + (gx#stx-e _%hd165160165212%_)))) + (let ((_%lp-hd165164165222%_ (let () (declare (not safe)) - (##car _%e165057165113%_))) - (_%lp-tl165059165118%_ + (##car _%e165163165219%_))) + (_%lp-tl165165165224%_ (let () (declare (not safe)) - (##cdr _%e165057165113%_)))) + (##cdr _%e165163165219%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd165058165116%_)) - (let ((_%e165067165121%_ + (gx#stx-pair? _%lp-hd165164165222%_)) + (let ((_%e165173165227%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd165058165116%_)))) - (let ((_%hd165068165124%_ + (gx#stx-e _%lp-hd165164165222%_)))) + (let ((_%hd165174165230%_ (let () (declare (not safe)) - (##car _%e165067165121%_))) - (_%tl165069165126%_ + (##car _%e165173165227%_))) + (_%tl165175165232%_ (let () (declare (not safe)) - (##cdr _%e165067165121%_)))) + (##cdr _%e165173165227%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165069165126%_)) - (let ((_%e165070165129%_ + (gx#stx-pair? _%tl165175165232%_)) + (let ((_%e165176165235%_ (let () (declare (not safe)) (gx#stx-e - _%tl165069165126%_)))) - (let ((_%hd165071165132%_ + _%tl165175165232%_)))) + (let ((_%hd165177165238%_ (let () (declare (not safe)) - (##car _%e165070165129%_))) - (_%tl165072165134%_ + (##car _%e165176165235%_))) + (_%tl165178165240%_ (let () (declare (not safe)) - (##cdr _%e165070165129%_)))) + (##cdr _%e165176165235%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl165072165134%_)) - (_%loop165056165103%_ - _%lp-tl165059165118%_ - (cons _%hd165071165132%_ - _%expr165060165108%_) - (cons _%hd165068165124%_ - _%hd165061165110%_)) - (_%g165042165077%_ - _%g165043165080%_)))) - (_%g165042165077%_ - _%g165043165080%_)))) - (_%g165042165077%_ _%g165043165080%_)))) - (let ((_%expr165062165137%_ - (reverse _%expr165060165108%_)) - (_%hd165063165139%_ - (reverse _%hd165061165110%_))) + _%tl165178165240%_)) + (_%loop165162165209%_ + _%lp-tl165165165224%_ + (cons _%hd165177165238%_ + _%expr165166165214%_) + (cons _%hd165174165230%_ + _%hd165167165216%_)) + (_%g165148165183%_ + _%g165149165186%_)))) + (_%g165148165183%_ + _%g165149165186%_)))) + (_%g165148165183%_ _%g165149165186%_)))) + (let ((_%expr165168165243%_ + (reverse _%expr165166165214%_)) + (_%hd165169165245%_ + (reverse _%hd165167165216%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl165052165095%_)) - (let ((_%e165064165142%_ + (gx#stx-pair? _%tl165158165201%_)) + (let ((_%e165170165248%_ (let () (declare (not safe)) - (gx#stx-e _%tl165052165095%_)))) - (let ((_%hd165065165145%_ + (gx#stx-e _%tl165158165201%_)))) + (let ((_%hd165171165251%_ (let () (declare (not safe)) - (##car _%e165064165142%_))) - (_%tl165066165147%_ + (##car _%e165170165248%_))) + (_%tl165172165253%_ (let () (declare (not safe)) - (##cdr _%e165064165142%_)))) + (##cdr _%e165170165248%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl165066165147%_)) - ((lambda (_%L165150%_ - _%L165151%_ - _%L165152%_) + (gx#stx-null? _%tl165172165253%_)) + ((lambda (_%L165256%_ + _%L165257%_ + _%L165258%_) (for-each - _%collect-e165040%_ - (let ((__tmp171153 - (lambda (_%g165172165175%_ - _%g165173165177%_) - (cons _%g165172165175%_ - _%g165173165177%_)))) + _%collect-e165146%_ + (let ((__tmp171259 + (lambda (_%g165278165281%_ + _%g165279165283%_) + (cons _%g165278165281%_ + _%g165279165283%_)))) (declare (not safe)) (__foldr1 - __tmp171153 + __tmp171259 '() - _%L165152%_)) - (let ((__tmp171154 - (lambda (_%g165179165182%_ - _%g165180165184%_) - (cons _%g165179165182%_ - _%g165180165184%_)))) + _%L165258%_)) + (let ((__tmp171260 + (lambda (_%g165285165288%_ + _%g165286165290%_) + (cons _%g165285165288%_ + _%g165286165290%_)))) (declare (not safe)) (__foldr1 - __tmp171154 + __tmp171260 '() - _%L165151%_))) + _%L165257%_))) (for-each - (lambda (_%g165186165188%_) + (lambda (_%g165292165294%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self165037%_ - _%g165186165188%_))) - (let ((__tmp171155 - (lambda (_%g165190165193%_ - _%g165191165195%_) - (cons _%g165190165193%_ - _%g165191165195%_)))) + _%self165143%_ + _%g165292165294%_))) + (let ((__tmp171261 + (lambda (_%g165296165299%_ + _%g165297165301%_) + (cons _%g165296165299%_ + _%g165297165301%_)))) (declare (not safe)) (__foldr1 - __tmp171155 + __tmp171261 '() - _%L165151%_))) - (let ((__tmp171159 + _%L165257%_))) + (let ((__tmp171265 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self165037%_ - _%L165150%_)))) - (__tmp171156 - (let ((__tmp171157 - (let ((__tmp171158 - (lambda (_%g165198165201%_ + _%self165143%_ + _%L165256%_)))) + (__tmp171262 + (let ((__tmp171263 + (let ((__tmp171264 + (lambda (_%g165304165307%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g165199165203%_) - (cons _%g165198165201%_ _%g165199165203%_)))) + _%g165305165309%_) + (cons _%g165304165307%_ _%g165305165309%_)))) (declare (not safe)) - (__foldr1 __tmp171158 '() _%L165152%_)))) + (__foldr1 __tmp171264 '() _%L165258%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171157)))) + __tmp171263)))) (declare (not safe)) (__call-with-parameters - __tmp171159 + __tmp171265 gxc#current-compile-local-env - __tmp171156))) - _%hd165065165145%_ - _%expr165062165137%_ - _%hd165063165139%_) - (_%g165042165077%_ - _%g165043165080%_)))) - (_%g165042165077%_ _%g165043165080%_))))))) + __tmp171262))) + _%hd165171165251%_ + _%expr165168165243%_ + _%hd165169165245%_) + (_%g165148165183%_ + _%g165149165186%_)))) + (_%g165148165183%_ _%g165149165186%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop165056165103%_ - _%target165053165098%_ + (_%loop165162165209%_ + _%target165159165204%_ '() '())) - (_%g165042165077%_ - _%g165043165080%_))))) - (_%g165042165077%_ - _%g165043165080%_)))) - (_%g165042165077%_ _%g165043165080%_)))) - (_%g165042165077%_ _%g165043165080%_))))) - (_%g165041165206%_ _%stx165038%_))))) + (_%g165148165183%_ + _%g165149165186%_))))) + (_%g165148165183%_ + _%g165149165186%_)))) + (_%g165148165183%_ _%g165149165186%_)))) + (_%g165148165183%_ _%g165149165186%_))))) + (_%g165147165312%_ _%stx165144%_))))) (define gxc#refine-type-letrec-values% - (lambda (_%self164809%_ _%stx164810%_) - (letrec ((_%collect-e164812%_ - (lambda (_%hd164981%_ _%expr164982%_) - (let* ((_%__stx168830168831%_ _%hd164981%_) - (_%g164985164995%_ + (lambda (_%self164915%_ _%stx164916%_) + (letrec ((_%collect-e164918%_ + (lambda (_%hd165087%_ _%expr165088%_) + (let* ((_%__stx168936168937%_ _%hd165087%_) + (_%g165091165101%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168830168831%_))))) - (let ((_%__kont168832168833%_ - (lambda (_%L165015%_) - (let ((_%sym165026%_ + _%__stx168936168937%_))))) + (let ((_%__kont168938168939%_ + (lambda (_%L165121%_) + (let ((_%sym165132%_ (let () (declare (not safe)) - (gxc#identifier-symbol _%L165015%_)))) - (if (let ((__tmp171160 + (gxc#identifier-symbol _%L165121%_)))) + (if (let ((__tmp171266 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) - (hash-get __tmp171160 _%sym165026%_)) + (hash-get __tmp171266 _%sym165132%_)) '#!void - (let ((_%type165027165029%_ + (let ((_%type165133165135%_ (gxc#apply-basic-expression-type - _%expr164982%_))) - (if _%type165027165029%_ - (let ((_%type165032%_ - _%type165027165029%_)) + _%expr165088%_))) + (if _%type165133165135%_ + (let ((_%type165138%_ + _%type165133165135%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type165032%_ + _%type165138%_ 'gxc#!class-meta::t)) '#!void (let () (declare (not safe)) (gxc#optimizer-declare-type!__% - _%sym165026%_ - _%type165032%_ + _%sym165132%_ + _%type165138%_ '#t)))) '#f)))))) - (_%__kont168834168835%_ (lambda () '#!void))) - (let ((_%__match168843168844%_ - (lambda (_%e164988165007%_ - _%hd164989165010%_ - _%tl164990165012%_) - (let ((_%L165015%_ _%hd164989165010%_)) + (_%__kont168940168941%_ (lambda () '#!void))) + (let ((_%__match168949168950%_ + (lambda (_%e165094165113%_ + _%hd165095165116%_ + _%tl165096165118%_) + (let ((_%L165121%_ _%hd165095165116%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L165015%_)) - (_%__kont168832168833%_ _%L165015%_) - (_%__kont168834168835%_)))))) + (gx#identifier? _%L165121%_)) + (_%__kont168938168939%_ _%L165121%_) + (_%__kont168940168941%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168830168831%_)) - (let ((_%e164988165007%_ + (gx#stx-pair? _%__stx168936168937%_)) + (let ((_%e165094165113%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168830168831%_)))) - (let ((_%tl164990165012%_ + (gx#stx-e _%__stx168936168937%_)))) + (let ((_%tl165096165118%_ (let () (declare (not safe)) - (##cdr _%e164988165007%_))) - (_%hd164989165010%_ + (##cdr _%e165094165113%_))) + (_%hd165095165116%_ (let () (declare (not safe)) - (##car _%e164988165007%_)))) + (##car _%e165094165113%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164990165012%_)) - (_%__match168843168844%_ - _%e164988165007%_ - _%hd164989165010%_ - _%tl164990165012%_) - (_%__kont168834168835%_)))) - (_%__kont168834168835%_)))))))) - (let* ((_%g164814164849%_ - (lambda (_%g164815164846%_) + (gx#stx-null? _%tl165096165118%_)) + (_%__match168949168950%_ + _%e165094165113%_ + _%hd165095165116%_ + _%tl165096165118%_) + (_%__kont168940168941%_)))) + (_%__kont168940168941%_)))))))) + (let* ((_%g164920164955%_ + (lambda (_%g164921164952%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164815164846%_)))) - (_%g164813164978%_ - (lambda (_%g164815164852%_) + _%g164921164952%_)))) + (_%g164919165084%_ + (lambda (_%g164921164958%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164815164852%_)) - (let ((_%e164819164854%_ + (gx#stx-pair? _%g164921164958%_)) + (let ((_%e164925164960%_ (let () (declare (not safe)) - (gx#stx-e _%g164815164852%_)))) - (let ((_%hd164820164857%_ + (gx#stx-e _%g164921164958%_)))) + (let ((_%hd164926164963%_ (let () (declare (not safe)) - (##car _%e164819164854%_))) - (_%tl164821164859%_ + (##car _%e164925164960%_))) + (_%tl164927164965%_ (let () (declare (not safe)) - (##cdr _%e164819164854%_)))) + (##cdr _%e164925164960%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164821164859%_)) - (let ((_%e164822164862%_ + (gx#stx-pair? _%tl164927164965%_)) + (let ((_%e164928164968%_ (let () (declare (not safe)) - (gx#stx-e _%tl164821164859%_)))) - (let ((_%hd164823164865%_ + (gx#stx-e _%tl164927164965%_)))) + (let ((_%hd164929164971%_ (let () (declare (not safe)) - (##car _%e164822164862%_))) - (_%tl164824164867%_ + (##car _%e164928164968%_))) + (_%tl164930164973%_ (let () (declare (not safe)) - (##cdr _%e164822164862%_)))) + (##cdr _%e164928164968%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd164823164865%_)) - (let ((_g171161_ + _%hd164929164971%_)) + (let ((_g171267_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd164823164865%_ + _%hd164929164971%_ '0)))) (begin - (let ((_g171162_ + (let ((_g171268_ (let () (declare (not safe)) - (if (##values? _g171161_) - (##vector-length - _g171161_) + (if (##values? _g171267_) + (##values-length + _g171267_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171162_ 2))) + (##fx= _g171268_ 2))) (error "Context expects 2 values" - _g171162_))) - (let ((_%target164825164870%_ + _g171268_))) + (let ((_%target164931164976%_ (let () (declare (not safe)) - (##vector-ref - _g171161_ + (##values-ref + _g171267_ 0))) - (_%tl164827164872%_ + (_%tl164933164978%_ (let () (declare (not safe)) - (##vector-ref - _g171161_ + (##values-ref + _g171267_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164827164872%_)) - (letrec ((_%loop164828164875%_ - (lambda (_%hd164826164878%_ + _%tl164933164978%_)) + (letrec ((_%loop164934164981%_ + (lambda (_%hd164932164984%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr164832164880%_ - _%hd164833164882%_) + _%expr164938164986%_ + _%hd164939164988%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd164826164878%_)) - (let ((_%e164829164885%_ + (gx#stx-pair? _%hd164932164984%_)) + (let ((_%e164935164991%_ (let () (declare (not safe)) - (gx#stx-e _%hd164826164878%_)))) - (let ((_%lp-hd164830164888%_ + (gx#stx-e _%hd164932164984%_)))) + (let ((_%lp-hd164936164994%_ (let () (declare (not safe)) - (##car _%e164829164885%_))) - (_%lp-tl164831164890%_ + (##car _%e164935164991%_))) + (_%lp-tl164937164996%_ (let () (declare (not safe)) - (##cdr _%e164829164885%_)))) + (##cdr _%e164935164991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164830164888%_)) - (let ((_%e164839164893%_ + (gx#stx-pair? _%lp-hd164936164994%_)) + (let ((_%e164945164999%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164830164888%_)))) - (let ((_%hd164840164896%_ + (gx#stx-e _%lp-hd164936164994%_)))) + (let ((_%hd164946165002%_ (let () (declare (not safe)) - (##car _%e164839164893%_))) - (_%tl164841164898%_ + (##car _%e164945164999%_))) + (_%tl164947165004%_ (let () (declare (not safe)) - (##cdr _%e164839164893%_)))) + (##cdr _%e164945164999%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164841164898%_)) - (let ((_%e164842164901%_ + (gx#stx-pair? _%tl164947165004%_)) + (let ((_%e164948165007%_ (let () (declare (not safe)) (gx#stx-e - _%tl164841164898%_)))) - (let ((_%hd164843164904%_ + _%tl164947165004%_)))) + (let ((_%hd164949165010%_ (let () (declare (not safe)) - (##car _%e164842164901%_))) - (_%tl164844164906%_ + (##car _%e164948165007%_))) + (_%tl164950165012%_ (let () (declare (not safe)) - (##cdr _%e164842164901%_)))) + (##cdr _%e164948165007%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164844164906%_)) - (_%loop164828164875%_ - _%lp-tl164831164890%_ - (cons _%hd164843164904%_ - _%expr164832164880%_) - (cons _%hd164840164896%_ - _%hd164833164882%_)) - (_%g164814164849%_ - _%g164815164852%_)))) - (_%g164814164849%_ - _%g164815164852%_)))) - (_%g164814164849%_ _%g164815164852%_)))) - (let ((_%expr164834164909%_ - (reverse _%expr164832164880%_)) - (_%hd164835164911%_ - (reverse _%hd164833164882%_))) + _%tl164950165012%_)) + (_%loop164934164981%_ + _%lp-tl164937164996%_ + (cons _%hd164949165010%_ + _%expr164938164986%_) + (cons _%hd164946165002%_ + _%hd164939164988%_)) + (_%g164920164955%_ + _%g164921164958%_)))) + (_%g164920164955%_ + _%g164921164958%_)))) + (_%g164920164955%_ _%g164921164958%_)))) + (let ((_%expr164940165015%_ + (reverse _%expr164938164986%_)) + (_%hd164941165017%_ + (reverse _%hd164939164988%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164824164867%_)) - (let ((_%e164836164914%_ + (gx#stx-pair? _%tl164930164973%_)) + (let ((_%e164942165020%_ (let () (declare (not safe)) - (gx#stx-e _%tl164824164867%_)))) - (let ((_%hd164837164917%_ + (gx#stx-e _%tl164930164973%_)))) + (let ((_%hd164943165023%_ (let () (declare (not safe)) - (##car _%e164836164914%_))) - (_%tl164838164919%_ + (##car _%e164942165020%_))) + (_%tl164944165025%_ (let () (declare (not safe)) - (##cdr _%e164836164914%_)))) + (##cdr _%e164942165020%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164838164919%_)) - ((lambda (_%L164922%_ - _%L164923%_ - _%L164924%_) - (let ((__tmp171166 + (gx#stx-null? _%tl164944165025%_)) + ((lambda (_%L165028%_ + _%L165029%_ + _%L165030%_) + (let ((__tmp171272 (lambda () (for-each - _%collect-e164812%_ - (let ((__tmp171167 - (lambda (_%g164945164948%_ + _%collect-e164918%_ + (let ((__tmp171273 + (lambda (_%g165051165054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164946164950%_) - (cons _%g164945164948%_ _%g164946164950%_)))) + _%g165052165056%_) + (cons _%g165051165054%_ _%g165052165056%_)))) (declare (not safe)) - (__foldr1 __tmp171167 '() _%L164924%_)) + (__foldr1 __tmp171273 '() _%L165030%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171168 - (lambda (_%g164952164955%_ + (let ((__tmp171274 + (lambda (_%g165058165061%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164953164957%_) - (cons _%g164952164955%_ _%g164953164957%_)))) + _%g165059165063%_) + (cons _%g165058165061%_ _%g165059165063%_)))) (declare (not safe)) - (__foldr1 __tmp171168 '() _%L164923%_))) + (__foldr1 __tmp171274 '() _%L165029%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (for-each - (lambda (_%g164959164961%_) + (lambda (_%g165065165067%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self164809%_ - _%g164959164961%_))) - (let ((__tmp171169 - (lambda (_%g164963164966%_ + _%self164915%_ + _%g165065165067%_))) + (let ((__tmp171275 + (lambda (_%g165069165072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164964164968%_) - (cons _%g164963164966%_ _%g164964164968%_)))) + _%g165070165074%_) + (cons _%g165069165072%_ _%g165070165074%_)))) (declare (not safe)) - (__foldr1 __tmp171169 '() _%L164923%_))) + (__foldr1 __tmp171275 '() _%L165029%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gxc#compile-e__1 - _%self164809%_ - _%L164922%_)))) - (__tmp171163 - (let ((__tmp171164 - (let ((__tmp171165 - (lambda (_%g164970164973%_ + _%self164915%_ + _%L165028%_)))) + (__tmp171269 + (let ((__tmp171270 + (let ((__tmp171271 + (lambda (_%g165076165079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g164971164975%_) - (cons _%g164970164973%_ _%g164971164975%_)))) + _%g165077165081%_) + (cons _%g165076165079%_ _%g165077165081%_)))) (declare (not safe)) - (__foldr1 __tmp171165 '() _%L164924%_)))) + (__foldr1 __tmp171271 '() _%L165030%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-let-locals - __tmp171164)))) + __tmp171270)))) (declare (not safe)) (__call-with-parameters - __tmp171166 + __tmp171272 gxc#current-compile-local-env - __tmp171163))) - _%hd164837164917%_ - _%expr164834164909%_ - _%hd164835164911%_) - (_%g164814164849%_ - _%g164815164852%_)))) - (_%g164814164849%_ _%g164815164852%_))))))) + __tmp171269))) + _%hd164943165023%_ + _%expr164940165015%_ + _%hd164941165017%_) + (_%g164920164955%_ + _%g164921164958%_)))) + (_%g164920164955%_ _%g164921164958%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164828164875%_ - _%target164825164870%_ + (_%loop164934164981%_ + _%target164931164976%_ '() '())) - (_%g164814164849%_ - _%g164815164852%_))))) - (_%g164814164849%_ - _%g164815164852%_)))) - (_%g164814164849%_ _%g164815164852%_)))) - (_%g164814164849%_ _%g164815164852%_))))) - (_%g164813164978%_ _%stx164810%_))))) + (_%g164920164955%_ + _%g164921164958%_))))) + (_%g164920164955%_ + _%g164921164958%_)))) + (_%g164920164955%_ _%g164921164958%_)))) + (_%g164920164955%_ _%g164921164958%_))))) + (_%g164919165084%_ _%stx164916%_))))) (define gxc#refine-type-lambda% - (lambda (_%self164753%_ _%stx164754%_) - (let* ((_%g164756164770%_ - (lambda (_%g164757164767%_) + (lambda (_%self164859%_ _%stx164860%_) + (let* ((_%g164862164876%_ + (lambda (_%g164863164873%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164757164767%_)))) - (_%g164755164806%_ - (lambda (_%g164757164773%_) + _%g164863164873%_)))) + (_%g164861164912%_ + (lambda (_%g164863164879%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164757164773%_)) - (let ((_%e164760164775%_ + (gx#stx-pair? _%g164863164879%_)) + (let ((_%e164866164881%_ (let () (declare (not safe)) - (gx#stx-e _%g164757164773%_)))) - (let ((_%hd164761164778%_ + (gx#stx-e _%g164863164879%_)))) + (let ((_%hd164867164884%_ (let () (declare (not safe)) - (##car _%e164760164775%_))) - (_%tl164762164780%_ + (##car _%e164866164881%_))) + (_%tl164868164886%_ (let () (declare (not safe)) - (##cdr _%e164760164775%_)))) + (##cdr _%e164866164881%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164762164780%_)) - (let ((_%e164763164783%_ + (gx#stx-pair? _%tl164868164886%_)) + (let ((_%e164869164889%_ (let () (declare (not safe)) - (gx#stx-e _%tl164762164780%_)))) - (let ((_%hd164764164786%_ + (gx#stx-e _%tl164868164886%_)))) + (let ((_%hd164870164892%_ (let () (declare (not safe)) - (##car _%e164763164783%_))) - (_%tl164765164788%_ + (##car _%e164869164889%_))) + (_%tl164871164894%_ (let () (declare (not safe)) - (##cdr _%e164763164783%_)))) - ((lambda (_%L164791%_ _%L164792%_) - (let ((__tmp171171 + (##cdr _%e164869164889%_)))) + ((lambda (_%L164897%_ _%L164898%_) + (let ((__tmp171277 (lambda () (let () (declare (not safe)) (gxc#apply-body-lambda% - _%self164753%_ - _%stx164754%_)))) - (__tmp171170 + _%self164859%_ + _%stx164860%_)))) + (__tmp171276 (let () (declare (not safe)) (gxc#xform-let-locals - _%L164792%_)))) + _%L164898%_)))) (declare (not safe)) (__call-with-parameters - __tmp171171 + __tmp171277 gxc#current-compile-local-env - __tmp171170))) - _%tl164765164788%_ - _%hd164764164786%_))) - (_%g164756164770%_ _%g164757164773%_)))) - (_%g164756164770%_ _%g164757164773%_))))) - (_%g164755164806%_ _%stx164754%_)))) + __tmp171276))) + _%tl164871164894%_ + _%hd164870164892%_))) + (_%g164862164876%_ _%g164863164879%_)))) + (_%g164862164876%_ _%g164863164879%_))))) + (_%g164861164912%_ _%stx164860%_)))) (define gxc#refine-type-case-lambda% - (lambda (_%self164580%_ _%stx164581%_) - (let* ((_%g164583164611%_ - (lambda (_%g164584164608%_) + (lambda (_%self164686%_ _%stx164687%_) + (let* ((_%g164689164717%_ + (lambda (_%g164690164714%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164584164608%_)))) - (_%g164582164750%_ - (lambda (_%g164584164614%_) + _%g164690164714%_)))) + (_%g164688164856%_ + (lambda (_%g164690164720%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164584164614%_)) - (let ((_%e164587164616%_ + (gx#stx-pair? _%g164690164720%_)) + (let ((_%e164693164722%_ (let () (declare (not safe)) - (gx#stx-e _%g164584164614%_)))) - (let ((_%hd164588164619%_ + (gx#stx-e _%g164690164720%_)))) + (let ((_%hd164694164725%_ (let () (declare (not safe)) - (##car _%e164587164616%_))) - (_%tl164589164621%_ + (##car _%e164693164722%_))) + (_%tl164695164727%_ (let () (declare (not safe)) - (##cdr _%e164587164616%_)))) + (##cdr _%e164693164722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl164589164621%_)) - (let ((_g171172_ + (gx#stx-pair/null? _%tl164695164727%_)) + (let ((_g171278_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl164589164621%_ + _%tl164695164727%_ '0)))) (begin - (let ((_g171173_ + (let ((_g171279_ (let () (declare (not safe)) - (if (##values? _g171172_) - (##vector-length _g171172_) + (if (##values? _g171278_) + (##values-length _g171278_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171173_ 2))) + (##fx= _g171279_ 2))) (error "Context expects 2 values" - _g171173_))) - (let ((_%target164590164624%_ + _g171279_))) + (let ((_%target164696164730%_ (let () (declare (not safe)) - (##vector-ref _g171172_ 0))) - (_%tl164592164626%_ + (##values-ref _g171278_ 0))) + (_%tl164698164732%_ (let () (declare (not safe)) - (##vector-ref _g171172_ 1)))) + (##values-ref _g171278_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164592164626%_)) - (letrec ((_%loop164593164629%_ - (lambda (_%hd164591164632%_ - _%body164597164634%_ - _%hd164598164636%_) + (gx#stx-null? _%tl164698164732%_)) + (letrec ((_%loop164699164735%_ + (lambda (_%hd164697164738%_ + _%body164703164740%_ + _%hd164704164742%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd164591164632%_)) - (let ((_%e164594164639%_ + _%hd164697164738%_)) + (let ((_%e164700164745%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd164591164632%_)))) - (let ((_%lp-hd164595164642%_ + (gx#stx-e _%hd164697164738%_)))) + (let ((_%lp-hd164701164748%_ (let () (declare (not safe)) - (##car _%e164594164639%_))) - (_%lp-tl164596164644%_ + (##car _%e164700164745%_))) + (_%lp-tl164702164750%_ (let () (declare (not safe)) - (##cdr _%e164594164639%_)))) + (##cdr _%e164700164745%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd164595164642%_)) - (let ((_%e164601164647%_ + (gx#stx-pair? _%lp-hd164701164748%_)) + (let ((_%e164707164753%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd164595164642%_)))) - (let ((_%hd164602164650%_ + (gx#stx-e _%lp-hd164701164748%_)))) + (let ((_%hd164708164756%_ (let () (declare (not safe)) - (##car _%e164601164647%_))) - (_%tl164603164652%_ + (##car _%e164707164753%_))) + (_%tl164709164758%_ (let () (declare (not safe)) - (##cdr _%e164601164647%_)))) + (##cdr _%e164707164753%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164603164652%_)) - (let ((_%e164604164655%_ + (gx#stx-pair? _%tl164709164758%_)) + (let ((_%e164710164761%_ (let () (declare (not safe)) - (gx#stx-e _%tl164603164652%_)))) - (let ((_%hd164605164658%_ + (gx#stx-e _%tl164709164758%_)))) + (let ((_%hd164711164764%_ (let () (declare (not safe)) - (##car _%e164604164655%_))) - (_%tl164606164660%_ + (##car _%e164710164761%_))) + (_%tl164712164766%_ (let () (declare (not safe)) - (##cdr _%e164604164655%_)))) + (##cdr _%e164710164761%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164606164660%_)) - (_%loop164593164629%_ - _%lp-tl164596164644%_ - (cons _%hd164605164658%_ - _%body164597164634%_) - (cons _%hd164602164650%_ - _%hd164598164636%_)) - (_%g164583164611%_ - _%g164584164614%_)))) - (_%g164583164611%_ _%g164584164614%_)))) - (_%g164583164611%_ _%g164584164614%_)))) - (let ((_%body164599164663%_ (reverse _%body164597164634%_)) - (_%hd164600164665%_ (reverse _%hd164598164636%_))) - ((lambda (_%L164668%_ _%L164669%_) + (gx#stx-null? _%tl164712164766%_)) + (_%loop164699164735%_ + _%lp-tl164702164750%_ + (cons _%hd164711164764%_ + _%body164703164740%_) + (cons _%hd164708164756%_ + _%hd164704164742%_)) + (_%g164689164717%_ + _%g164690164720%_)))) + (_%g164689164717%_ _%g164690164720%_)))) + (_%g164689164717%_ _%g164690164720%_)))) + (let ((_%body164705164769%_ (reverse _%body164703164740%_)) + (_%hd164706164771%_ (reverse _%hd164704164742%_))) + ((lambda (_%L164774%_ _%L164775%_) (for-each - (lambda (_%clause164684%_) - (let* ((_%g164686164700%_ - (lambda (_%g164687164697%_) + (lambda (_%clause164790%_) + (let* ((_%g164792164806%_ + (lambda (_%g164793164803%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164687164697%_)))) - (_%g164685164737%_ - (lambda (_%g164687164703%_) + _%g164793164803%_)))) + (_%g164791164843%_ + (lambda (_%g164793164809%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164687164703%_)) - (let ((_%e164690164705%_ + (gx#stx-pair? _%g164793164809%_)) + (let ((_%e164796164811%_ (let () (declare (not safe)) - (gx#stx-e _%g164687164703%_)))) - (let ((_%hd164691164708%_ + (gx#stx-e _%g164793164809%_)))) + (let ((_%hd164797164814%_ (let () (declare (not safe)) - (##car _%e164690164705%_))) - (_%tl164692164710%_ + (##car _%e164796164811%_))) + (_%tl164798164816%_ (let () (declare (not safe)) - (##cdr _%e164690164705%_)))) + (##cdr _%e164796164811%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164692164710%_)) - (let ((_%e164693164713%_ + _%tl164798164816%_)) + (let ((_%e164799164819%_ (let () (declare (not safe)) (gx#stx-e - _%tl164692164710%_)))) - (let ((_%hd164694164716%_ + _%tl164798164816%_)))) + (let ((_%hd164800164822%_ (let () (declare (not safe)) - (##car _%e164693164713%_))) - (_%tl164695164718%_ + (##car _%e164799164819%_))) + (_%tl164801164824%_ (let () (declare (not safe)) - (##cdr _%e164693164713%_)))) + (##cdr _%e164799164819%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164695164718%_)) - ((lambda (_%L164721%_ - _%L164722%_) - (let ((__tmp171175 + _%tl164801164824%_)) + ((lambda (_%L164827%_ + _%L164828%_) + (let ((__tmp171281 (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gxc#apply-body-case-lambda% - _%self164580%_ - _%stx164581%_)))) - (__tmp171174 + _%self164686%_ + _%stx164687%_)))) + (__tmp171280 (let () (declare (not safe)) - (gxc#xform-let-locals _%L164722%_)))) + (gxc#xform-let-locals _%L164828%_)))) (declare (not safe)) (__call-with-parameters - __tmp171175 + __tmp171281 gxc#current-compile-local-env - __tmp171174))) - _%hd164694164716%_ - _%hd164691164708%_) - (_%g164686164700%_ _%g164687164703%_)))) + __tmp171280))) + _%hd164800164822%_ + _%hd164797164814%_) + (_%g164792164806%_ _%g164793164809%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164686164700%_ - _%g164687164703%_)))) - (_%g164686164700%_ _%g164687164703%_))))) - (_%g164685164737%_ _%clause164684%_))) + (_%g164792164806%_ + _%g164793164809%_)))) + (_%g164792164806%_ _%g164793164809%_))))) + (_%g164791164843%_ _%clause164790%_))) (begin (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L164668%_ - _%L164669%_)) - (let ((__tmp171176 - (lambda (_%g164739164743%_ - _%g164740164745%_ - _%g164741164747%_) - (cons (cons _%g164740164745%_ - (cons _%g164739164743%_ '())) - _%g164741164747%_)))) + _%L164774%_ + _%L164775%_)) + (let ((__tmp171282 + (lambda (_%g164845164849%_ + _%g164846164851%_ + _%g164847164853%_) + (cons (cons _%g164846164851%_ + (cons _%g164845164849%_ '())) + _%g164847164853%_)))) (declare (not safe)) (__foldr2 - __tmp171176 + __tmp171282 '() - _%L164668%_ - _%L164669%_))))) - _%body164599164663%_ - _%hd164600164665%_)))))) + _%L164774%_ + _%L164775%_))))) + _%body164705164769%_ + _%hd164706164771%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop164593164629%_ - _%target164590164624%_ + (_%loop164699164735%_ + _%target164696164730%_ '() '())) - (_%g164583164611%_ - _%g164584164614%_))))) - (_%g164583164611%_ _%g164584164614%_)))) - (_%g164583164611%_ _%g164584164614%_))))) - (_%g164582164750%_ _%stx164581%_)))) + (_%g164689164717%_ + _%g164690164720%_))))) + (_%g164689164717%_ _%g164690164720%_)))) + (_%g164689164717%_ _%g164690164720%_))))) + (_%g164688164856%_ _%stx164687%_)))) (define gxc#basic-expression-type-annotations (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-begin-annotation% - (lambda (_%self164458%_ _%stx164459%_) - (let* ((_%g164461164478%_ - (lambda (_%g164462164475%_) + (lambda (_%self164564%_ _%stx164565%_) + (let* ((_%g164567164584%_ + (lambda (_%g164568164581%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164462164475%_)))) - (_%g164460164577%_ - (lambda (_%g164462164481%_) + _%g164568164581%_)))) + (_%g164566164683%_ + (lambda (_%g164568164587%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164462164481%_)) - (let ((_%e164465164483%_ + (gx#stx-pair? _%g164568164587%_)) + (let ((_%e164571164589%_ (let () (declare (not safe)) - (gx#stx-e _%g164462164481%_)))) - (let ((_%hd164466164486%_ + (gx#stx-e _%g164568164587%_)))) + (let ((_%hd164572164592%_ (let () (declare (not safe)) - (##car _%e164465164483%_))) - (_%tl164467164488%_ + (##car _%e164571164589%_))) + (_%tl164573164594%_ (let () (declare (not safe)) - (##cdr _%e164465164483%_)))) + (##cdr _%e164571164589%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164467164488%_)) - (let ((_%e164468164491%_ + (gx#stx-pair? _%tl164573164594%_)) + (let ((_%e164574164597%_ (let () (declare (not safe)) - (gx#stx-e _%tl164467164488%_)))) - (let ((_%hd164469164494%_ + (gx#stx-e _%tl164573164594%_)))) + (let ((_%hd164575164600%_ (let () (declare (not safe)) - (##car _%e164468164491%_))) - (_%tl164470164496%_ + (##car _%e164574164597%_))) + (_%tl164576164602%_ (let () (declare (not safe)) - (##cdr _%e164468164491%_)))) + (##cdr _%e164574164597%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164470164496%_)) - (let ((_%e164471164499%_ + (gx#stx-pair? _%tl164576164602%_)) + (let ((_%e164577164605%_ (let () (declare (not safe)) - (gx#stx-e _%tl164470164496%_)))) - (let ((_%hd164472164502%_ + (gx#stx-e _%tl164576164602%_)))) + (let ((_%hd164578164608%_ (let () (declare (not safe)) - (##car _%e164471164499%_))) - (_%tl164473164504%_ + (##car _%e164577164605%_))) + (_%tl164579164610%_ (let () (declare (not safe)) - (##cdr _%e164471164499%_)))) + (##cdr _%e164577164605%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164473164504%_)) - ((lambda (_%L164507%_ - _%L164508%_) - (let* ((_%__stx168846168847%_ - _%L164508%_) - (_%g164524164535%_ + _%tl164579164610%_)) + ((lambda (_%L164613%_ + _%L164614%_) + (let* ((_%__stx168952168953%_ + _%L164614%_) + (_%g164630164641%_ (lambda () (let () (declare @@ -7887,325 +7887,325 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168846168847%_))))) - (let ((_%__kont168848168849%_ - (lambda (_%L164555%_ + _%__stx168952168953%_))))) + (let ((_%__kont168954168955%_ + (lambda (_%L164661%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L164556%_) - (let ((_%$e164568%_ - (let ((__tmp171177 + _%L164662%_) + (let ((_%$e164674%_ + (let ((__tmp171283 (let () (declare (not safe)) - (gx#stx-e _%L164556%_)))) + (gx#stx-e _%L164662%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-annotations - __tmp171177)))) - (if _%$e164568%_ - ((lambda (_%type-e164571%_) - (_%type-e164571%_ _%stx164459%_ _%L164508%_)) - _%$e164568%_) + __tmp171283)))) + (if _%$e164674%_ + ((lambda (_%type-e164677%_) + (_%type-e164677%_ _%stx164565%_ _%L164614%_)) + _%$e164674%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self164458%_ _%L164507%_)))))) - (_%__kont168850168851%_ + (gxc#compile-e__1 _%self164564%_ _%L164613%_)))))) + (_%__kont168956168957%_ (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self164458%_ _%L164507%_))))) + (gxc#compile-e__1 _%self164564%_ _%L164613%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match168857168858%_ - (lambda (_%e164528164547%_ + (let ((_%__match168963168964%_ + (lambda (_%e164634164653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd164529164550%_ - _%tl164530164552%_) - (let ((_%L164555%_ _%tl164530164552%_) - (_%L164556%_ _%hd164529164550%_)) + _%hd164635164656%_ + _%tl164636164658%_) + (let ((_%L164661%_ _%tl164636164658%_) + (_%L164662%_ _%hd164635164656%_)) (if (let () (declare (not safe)) - (gx#identifier? _%L164556%_)) - (_%__kont168848168849%_ _%L164555%_ _%L164556%_) - (_%__kont168850168851%_)))))) + (gx#identifier? _%L164662%_)) + (_%__kont168954168955%_ _%L164661%_ _%L164662%_) + (_%__kont168956168957%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168846168847%_)) - (let ((_%e164528164547%_ + (gx#stx-pair? _%__stx168952168953%_)) + (let ((_%e164634164653%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168846168847%_)))) - (let ((_%tl164530164552%_ + (gx#stx-e _%__stx168952168953%_)))) + (let ((_%tl164636164658%_ (let () (declare (not safe)) - (##cdr _%e164528164547%_))) - (_%hd164529164550%_ + (##cdr _%e164634164653%_))) + (_%hd164635164656%_ (let () (declare (not safe)) - (##car _%e164528164547%_)))) - (_%__match168857168858%_ - _%e164528164547%_ - _%hd164529164550%_ - _%tl164530164552%_))) - (_%__kont168850168851%_)))))) + (##car _%e164634164653%_)))) + (_%__match168963168964%_ + _%e164634164653%_ + _%hd164635164656%_ + _%tl164636164658%_))) + (_%__kont168956168957%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd164472164502%_ - _%hd164469164494%_) - (_%g164461164478%_ - _%g164462164481%_)))) - (_%g164461164478%_ _%g164462164481%_)))) - (_%g164461164478%_ _%g164462164481%_)))) - (_%g164461164478%_ _%g164462164481%_))))) - (_%g164460164577%_ _%stx164459%_)))) + _%hd164578164608%_ + _%hd164575164600%_) + (_%g164567164584%_ + _%g164568164587%_)))) + (_%g164567164584%_ _%g164568164587%_)))) + (_%g164567164584%_ _%g164568164587%_)))) + (_%g164567164584%_ _%g164568164587%_))))) + (_%g164566164683%_ _%stx164565%_)))) (define gxc#basic-expression-type-annotation-typedecl - (lambda (_%stx164406%_ _%ann164407%_) - (let* ((_%g164409164422%_ - (lambda (_%g164410164419%_) + (lambda (_%stx164512%_ _%ann164513%_) + (let* ((_%g164515164528%_ + (lambda (_%g164516164525%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164410164419%_)))) - (_%g164408164455%_ - (lambda (_%g164410164425%_) + _%g164516164525%_)))) + (_%g164514164561%_ + (lambda (_%g164516164531%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164410164425%_)) - (let ((_%e164412164427%_ + (gx#stx-pair? _%g164516164531%_)) + (let ((_%e164518164533%_ (let () (declare (not safe)) - (gx#stx-e _%g164410164425%_)))) - (let ((_%hd164413164430%_ + (gx#stx-e _%g164516164531%_)))) + (let ((_%hd164519164536%_ (let () (declare (not safe)) - (##car _%e164412164427%_))) - (_%tl164414164432%_ + (##car _%e164518164533%_))) + (_%tl164520164538%_ (let () (declare (not safe)) - (##cdr _%e164412164427%_)))) + (##cdr _%e164518164533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164414164432%_)) - (let ((_%e164415164435%_ + (gx#stx-pair? _%tl164520164538%_)) + (let ((_%e164521164541%_ (let () (declare (not safe)) - (gx#stx-e _%tl164414164432%_)))) - (let ((_%hd164416164438%_ + (gx#stx-e _%tl164520164538%_)))) + (let ((_%hd164522164544%_ (let () (declare (not safe)) - (##car _%e164415164435%_))) - (_%tl164417164440%_ + (##car _%e164521164541%_))) + (_%tl164523164546%_ (let () (declare (not safe)) - (##cdr _%e164415164435%_)))) + (##cdr _%e164521164541%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164417164440%_)) - ((lambda (_%L164443%_) - (let ((__tmp171178 + (gx#stx-null? _%tl164523164546%_)) + ((lambda (_%L164549%_) + (let ((__tmp171284 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164443%_)))) + _%L164549%_)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx164406%_ - __tmp171178))) - _%hd164416164438%_) - (_%g164409164422%_ _%g164410164425%_)))) - (_%g164409164422%_ _%g164410164425%_)))) - (_%g164409164422%_ _%g164410164425%_))))) - (_%g164408164455%_ _%ann164407%_)))) + _%stx164512%_ + __tmp171284))) + _%hd164522164544%_) + (_%g164515164528%_ _%g164516164531%_)))) + (_%g164515164528%_ _%g164516164531%_)))) + (_%g164515164528%_ _%g164516164531%_))))) + (_%g164514164561%_ _%ann164513%_)))) (define gxc#basic-expression-type-annotation-mop.class - (lambda (_%stx164250%_ _%ann164251%_) - (let* ((_%g164253164290%_ - (lambda (_%g164254164287%_) + (lambda (_%stx164356%_ _%ann164357%_) + (let* ((_%g164359164396%_ + (lambda (_%g164360164393%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164254164287%_)))) - (_%g164252164403%_ - (lambda (_%g164254164293%_) + _%g164360164393%_)))) + (_%g164358164509%_ + (lambda (_%g164360164399%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164254164293%_)) - (let ((_%e164262164295%_ + (gx#stx-pair? _%g164360164399%_)) + (let ((_%e164368164401%_ (let () (declare (not safe)) - (gx#stx-e _%g164254164293%_)))) - (let ((_%hd164263164298%_ + (gx#stx-e _%g164360164399%_)))) + (let ((_%hd164369164404%_ (let () (declare (not safe)) - (##car _%e164262164295%_))) - (_%tl164264164300%_ + (##car _%e164368164401%_))) + (_%tl164370164406%_ (let () (declare (not safe)) - (##cdr _%e164262164295%_)))) + (##cdr _%e164368164401%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164264164300%_)) - (let ((_%e164265164303%_ + (gx#stx-pair? _%tl164370164406%_)) + (let ((_%e164371164409%_ (let () (declare (not safe)) - (gx#stx-e _%tl164264164300%_)))) - (let ((_%hd164266164306%_ + (gx#stx-e _%tl164370164406%_)))) + (let ((_%hd164372164412%_ (let () (declare (not safe)) - (##car _%e164265164303%_))) - (_%tl164267164308%_ + (##car _%e164371164409%_))) + (_%tl164373164414%_ (let () (declare (not safe)) - (##cdr _%e164265164303%_)))) + (##cdr _%e164371164409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164267164308%_)) - (let ((_%e164268164311%_ + (gx#stx-pair? _%tl164373164414%_)) + (let ((_%e164374164417%_ (let () (declare (not safe)) - (gx#stx-e _%tl164267164308%_)))) - (let ((_%hd164269164314%_ + (gx#stx-e _%tl164373164414%_)))) + (let ((_%hd164375164420%_ (let () (declare (not safe)) - (##car _%e164268164311%_))) - (_%tl164270164316%_ + (##car _%e164374164417%_))) + (_%tl164376164422%_ (let () (declare (not safe)) - (##cdr _%e164268164311%_)))) + (##cdr _%e164374164417%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164270164316%_)) - (let ((_%e164271164319%_ + _%tl164376164422%_)) + (let ((_%e164377164425%_ (let () (declare (not safe)) (gx#stx-e - _%tl164270164316%_)))) - (let ((_%hd164272164322%_ + _%tl164376164422%_)))) + (let ((_%hd164378164428%_ (let () (declare (not safe)) - (##car _%e164271164319%_))) - (_%tl164273164324%_ + (##car _%e164377164425%_))) + (_%tl164379164430%_ (let () (declare (not safe)) - (##cdr _%e164271164319%_)))) + (##cdr _%e164377164425%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164273164324%_)) - (let ((_%e164274164327%_ + _%tl164379164430%_)) + (let ((_%e164380164433%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl164273164324%_)))) - (let ((_%hd164275164330%_ - (let () (declare (not safe)) (##car _%e164274164327%_))) - (_%tl164276164332%_ + (gx#stx-e _%tl164379164430%_)))) + (let ((_%hd164381164436%_ + (let () (declare (not safe)) (##car _%e164380164433%_))) + (_%tl164382164438%_ (let () (declare (not safe)) - (##cdr _%e164274164327%_)))) + (##cdr _%e164380164433%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164276164332%_)) - (let ((_%e164277164335%_ + (gx#stx-pair? _%tl164382164438%_)) + (let ((_%e164383164441%_ (let () (declare (not safe)) - (gx#stx-e _%tl164276164332%_)))) - (let ((_%hd164278164338%_ + (gx#stx-e _%tl164382164438%_)))) + (let ((_%hd164384164444%_ (let () (declare (not safe)) - (##car _%e164277164335%_))) - (_%tl164279164340%_ + (##car _%e164383164441%_))) + (_%tl164385164446%_ (let () (declare (not safe)) - (##cdr _%e164277164335%_)))) + (##cdr _%e164383164441%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164279164340%_)) - (let ((_%e164280164343%_ + (gx#stx-pair? _%tl164385164446%_)) + (let ((_%e164386164449%_ (let () (declare (not safe)) - (gx#stx-e _%tl164279164340%_)))) - (let ((_%hd164281164346%_ + (gx#stx-e _%tl164385164446%_)))) + (let ((_%hd164387164452%_ (let () (declare (not safe)) - (##car _%e164280164343%_))) - (_%tl164282164348%_ + (##car _%e164386164449%_))) + (_%tl164388164454%_ (let () (declare (not safe)) - (##cdr _%e164280164343%_)))) + (##cdr _%e164386164449%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164282164348%_)) - (let ((_%e164283164351%_ + (gx#stx-pair? _%tl164388164454%_)) + (let ((_%e164389164457%_ (let () (declare (not safe)) - (gx#stx-e _%tl164282164348%_)))) - (let ((_%hd164284164354%_ + (gx#stx-e _%tl164388164454%_)))) + (let ((_%hd164390164460%_ (let () (declare (not safe)) - (##car _%e164283164351%_))) - (_%tl164285164356%_ + (##car _%e164389164457%_))) + (_%tl164391164462%_ (let () (declare (not safe)) - (##cdr _%e164283164351%_)))) + (##cdr _%e164389164457%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164285164356%_)) - ((lambda (_%L164359%_ - _%L164360%_ - _%L164361%_ - _%L164362%_ - _%L164363%_ - _%L164364%_ - _%L164365%_) - (let ((_%type-id164395%_ + _%tl164391164462%_)) + ((lambda (_%L164465%_ + _%L164466%_ + _%L164467%_ + _%L164468%_ + _%L164469%_ + _%L164470%_ + _%L164471%_) + (let ((_%type-id164501%_ (let () (declare (not safe)) (gx#stx-e - _%L164365%_))) - (_%super164396%_ + _%L164471%_))) + (_%super164502%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164364%_))) - (_%slots164397%_ + _%L164470%_))) + (_%slots164503%_ (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L164363%_))) - (_%ctor-method164398%_ + _%L164469%_))) + (_%ctor-method164504%_ (let () (declare (not safe)) (gx#stx-e - _%L164362%_))) - (_%struct?164399%_ + _%L164468%_))) + (_%struct?164505%_ (let () (declare (not safe)) (gx#stx-e - _%L164361%_))) - (_%final?164400%_ + _%L164467%_))) + (_%final?164506%_ (let () (declare (not safe)) (gx#stx-e - _%L164360%_))) - (_%metaclass164401%_ + _%L164466%_))) + (_%metaclass164507%_ (if (let () (declare (not safe)) (gx#stx-e - _%L164359%_)) + _%L164465%_)) (let () (declare (not safe)) (gxc#identifier-symbol - _%L164359%_)) + _%L164465%_)) '#f))) - (let ((__obj171014 + (let ((__obj171120 (let () (declare (not safe)) @@ -8213,8 +8213,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171179 - (let ((__obj171013 + (let ((__tmp171285 + (let ((__obj171119 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8234,115 +8234,115 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj171013 - _%type-id164395%_ - _%super164396%_ - _%slots164397%_ - _%ctor-method164398%_ - _%struct?164399%_ - _%final?164400%_ + __obj171119 + _%type-id164501%_ + _%super164502%_ + _%slots164503%_ + _%ctor-method164504%_ + _%struct?164505%_ + _%final?164506%_ '#f - _%metaclass164401%_)) - __obj171013))) + _%metaclass164507%_)) + __obj171119))) (declare (not safe)) - (gxc#!class-meta:::init! __obj171014 __tmp171179)) + (gxc#!class-meta:::init! __obj171120 __tmp171285)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj171014))) - _%hd164284164354%_ - _%hd164281164346%_ - _%hd164278164338%_ - _%hd164275164330%_ - _%hd164272164322%_ - _%hd164269164314%_ - _%hd164266164306%_) - (_%g164253164290%_ - _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) + __obj171120))) + _%hd164390164460%_ + _%hd164387164452%_ + _%hd164384164444%_ + _%hd164381164436%_ + _%hd164378164428%_ + _%hd164375164420%_ + _%hd164372164412%_) + (_%g164359164396%_ + _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g164253164290%_ - _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_)))) - (_%g164253164290%_ _%g164254164293%_))))) - (_%g164252164403%_ _%ann164251%_)))) + (_%g164359164396%_ + _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_)))) + (_%g164359164396%_ _%g164360164399%_))))) + (_%g164358164509%_ _%ann164357%_)))) (define gxc#basic-expression-type-annotation-mop.system - (lambda (_%stx164179%_ _%ann164180%_) - (let* ((_%g164182164199%_ - (lambda (_%g164183164196%_) + (lambda (_%stx164285%_ _%ann164286%_) + (let* ((_%g164288164305%_ + (lambda (_%g164289164302%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164183164196%_)))) - (_%g164181164247%_ - (lambda (_%g164183164202%_) + _%g164289164302%_)))) + (_%g164287164353%_ + (lambda (_%g164289164308%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164183164202%_)) - (let ((_%e164186164204%_ + (gx#stx-pair? _%g164289164308%_)) + (let ((_%e164292164310%_ (let () (declare (not safe)) - (gx#stx-e _%g164183164202%_)))) - (let ((_%hd164187164207%_ + (gx#stx-e _%g164289164308%_)))) + (let ((_%hd164293164313%_ (let () (declare (not safe)) - (##car _%e164186164204%_))) - (_%tl164188164209%_ + (##car _%e164292164310%_))) + (_%tl164294164315%_ (let () (declare (not safe)) - (##cdr _%e164186164204%_)))) + (##cdr _%e164292164310%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164188164209%_)) - (let ((_%e164189164212%_ + (gx#stx-pair? _%tl164294164315%_)) + (let ((_%e164295164318%_ (let () (declare (not safe)) - (gx#stx-e _%tl164188164209%_)))) - (let ((_%hd164190164215%_ + (gx#stx-e _%tl164294164315%_)))) + (let ((_%hd164296164321%_ (let () (declare (not safe)) - (##car _%e164189164212%_))) - (_%tl164191164217%_ + (##car _%e164295164318%_))) + (_%tl164297164323%_ (let () (declare (not safe)) - (##cdr _%e164189164212%_)))) + (##cdr _%e164295164318%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164191164217%_)) - (let ((_%e164192164220%_ + (gx#stx-pair? _%tl164297164323%_)) + (let ((_%e164298164326%_ (let () (declare (not safe)) - (gx#stx-e _%tl164191164217%_)))) - (let ((_%hd164193164223%_ + (gx#stx-e _%tl164297164323%_)))) + (let ((_%hd164299164329%_ (let () (declare (not safe)) - (##car _%e164192164220%_))) - (_%tl164194164225%_ + (##car _%e164298164326%_))) + (_%tl164300164331%_ (let () (declare (not safe)) - (##cdr _%e164192164220%_)))) + (##cdr _%e164298164326%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164194164225%_)) - ((lambda (_%L164228%_ - _%L164229%_) - (let ((_%type-id164244%_ + _%tl164300164331%_)) + ((lambda (_%L164334%_ + _%L164335%_) + (let ((_%type-id164350%_ (let () (declare (not safe)) (gx#stx-e - _%L164229%_))) - (_%super164245%_ + _%L164335%_))) + (_%super164351%_ (let () (declare (not safe)) (gx#stx-map1 gxc#identifier-symbol - _%L164228%_)))) - (let ((__obj171016 + _%L164334%_)))) + (let ((__obj171122 (let () (declare (not safe)) @@ -8350,8 +8350,8 @@ gxc#!class-meta::t '#f '#f)))) - (let ((__tmp171180 - (let ((__obj171015 + (let ((__tmp171286 + (let ((__obj171121 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) @@ -8371,589 +8371,589 @@ (let () (declare (not safe)) (gxc#!class:::init!__0 - __obj171015 - _%type-id164244%_ - _%super164245%_ + __obj171121 + _%type-id164350%_ + _%super164351%_ '() '#f '#f '#f '#t '#f)) - __obj171015))) + __obj171121))) (declare (not safe)) - (gxc#!class-meta:::init! __obj171016 __tmp171180)) + (gxc#!class-meta:::init! __obj171122 __tmp171286)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - __obj171016))) - _%hd164193164223%_ - _%hd164190164215%_) - (_%g164182164199%_ - _%g164183164202%_)))) - (_%g164182164199%_ _%g164183164202%_)))) - (_%g164182164199%_ _%g164183164202%_)))) - (_%g164182164199%_ _%g164183164202%_))))) - (_%g164181164247%_ _%ann164180%_)))) + __obj171122))) + _%hd164299164329%_ + _%hd164296164321%_) + (_%g164288164305%_ + _%g164289164308%_)))) + (_%g164288164305%_ _%g164289164308%_)))) + (_%g164288164305%_ _%g164289164308%_)))) + (_%g164288164305%_ _%g164289164308%_))))) + (_%g164287164353%_ _%ann164286%_)))) (define gxc#basic-expression-type-annotation-mop.constructor - (lambda (_%stx164127%_ _%ann164128%_) - (let* ((_%g164130164143%_ - (lambda (_%g164131164140%_) + (lambda (_%stx164233%_ _%ann164234%_) + (let* ((_%g164236164249%_ + (lambda (_%g164237164246%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164131164140%_)))) - (_%g164129164176%_ - (lambda (_%g164131164146%_) + _%g164237164246%_)))) + (_%g164235164282%_ + (lambda (_%g164237164252%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164131164146%_)) - (let ((_%e164133164148%_ + (gx#stx-pair? _%g164237164252%_)) + (let ((_%e164239164254%_ (let () (declare (not safe)) - (gx#stx-e _%g164131164146%_)))) - (let ((_%hd164134164151%_ + (gx#stx-e _%g164237164252%_)))) + (let ((_%hd164240164257%_ (let () (declare (not safe)) - (##car _%e164133164148%_))) - (_%tl164135164153%_ + (##car _%e164239164254%_))) + (_%tl164241164259%_ (let () (declare (not safe)) - (##cdr _%e164133164148%_)))) + (##cdr _%e164239164254%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164135164153%_)) - (let ((_%e164136164156%_ + (gx#stx-pair? _%tl164241164259%_)) + (let ((_%e164242164262%_ (let () (declare (not safe)) - (gx#stx-e _%tl164135164153%_)))) - (let ((_%hd164137164159%_ + (gx#stx-e _%tl164241164259%_)))) + (let ((_%hd164243164265%_ (let () (declare (not safe)) - (##car _%e164136164156%_))) - (_%tl164138164161%_ + (##car _%e164242164262%_))) + (_%tl164244164267%_ (let () (declare (not safe)) - (##cdr _%e164136164156%_)))) + (##cdr _%e164242164262%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164138164161%_)) - ((lambda (_%L164164%_) - (let ((__obj171017 + (gx#stx-null? _%tl164244164267%_)) + ((lambda (_%L164270%_) + (let ((__obj171123 (let () (declare (not safe)) (##structure gxc#!constructor::t '#f '#f)))) - (let ((__tmp171181 + (let ((__tmp171287 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164164%_)))) + _%L164270%_)))) (declare (not safe)) (gxc#!constructor:::init! - __obj171017 - __tmp171181)) - __obj171017)) - _%hd164137164159%_) - (_%g164130164143%_ _%g164131164146%_)))) - (_%g164130164143%_ _%g164131164146%_)))) - (_%g164130164143%_ _%g164131164146%_))))) - (_%g164129164176%_ _%ann164128%_)))) + __obj171123 + __tmp171287)) + __obj171123)) + _%hd164243164265%_) + (_%g164236164249%_ _%g164237164252%_)))) + (_%g164236164249%_ _%g164237164252%_)))) + (_%g164236164249%_ _%g164237164252%_))))) + (_%g164235164282%_ _%ann164234%_)))) (define gxc#basic-expression-type-annotation-mop.predicate - (lambda (_%stx164075%_ _%ann164076%_) - (let* ((_%g164078164091%_ - (lambda (_%g164079164088%_) + (lambda (_%stx164181%_ _%ann164182%_) + (let* ((_%g164184164197%_ + (lambda (_%g164185164194%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g164079164088%_)))) - (_%g164077164124%_ - (lambda (_%g164079164094%_) + _%g164185164194%_)))) + (_%g164183164230%_ + (lambda (_%g164185164200%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g164079164094%_)) - (let ((_%e164081164096%_ + (gx#stx-pair? _%g164185164200%_)) + (let ((_%e164187164202%_ (let () (declare (not safe)) - (gx#stx-e _%g164079164094%_)))) - (let ((_%hd164082164099%_ + (gx#stx-e _%g164185164200%_)))) + (let ((_%hd164188164205%_ (let () (declare (not safe)) - (##car _%e164081164096%_))) - (_%tl164083164101%_ + (##car _%e164187164202%_))) + (_%tl164189164207%_ (let () (declare (not safe)) - (##cdr _%e164081164096%_)))) + (##cdr _%e164187164202%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164083164101%_)) - (let ((_%e164084164104%_ + (gx#stx-pair? _%tl164189164207%_)) + (let ((_%e164190164210%_ (let () (declare (not safe)) - (gx#stx-e _%tl164083164101%_)))) - (let ((_%hd164085164107%_ + (gx#stx-e _%tl164189164207%_)))) + (let ((_%hd164191164213%_ (let () (declare (not safe)) - (##car _%e164084164104%_))) - (_%tl164086164109%_ + (##car _%e164190164210%_))) + (_%tl164192164215%_ (let () (declare (not safe)) - (##cdr _%e164084164104%_)))) + (##cdr _%e164190164210%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl164086164109%_)) - ((lambda (_%L164112%_) - (let ((__obj171018 + (gx#stx-null? _%tl164192164215%_)) + ((lambda (_%L164218%_) + (let ((__obj171124 (let () (declare (not safe)) (##structure gxc#!predicate::t '#f '#f)))) - (let ((__tmp171182 + (let ((__tmp171288 (let () (declare (not safe)) (gxc#identifier-symbol - _%L164112%_)))) + _%L164218%_)))) (declare (not safe)) (gxc#!predicate:::init! - __obj171018 - __tmp171182)) - __obj171018)) - _%hd164085164107%_) - (_%g164078164091%_ _%g164079164094%_)))) - (_%g164078164091%_ _%g164079164094%_)))) - (_%g164078164091%_ _%g164079164094%_))))) - (_%g164077164124%_ _%ann164076%_)))) + __obj171124 + __tmp171288)) + __obj171124)) + _%hd164191164213%_) + (_%g164184164197%_ _%g164185164200%_)))) + (_%g164184164197%_ _%g164185164200%_)))) + (_%g164184164197%_ _%g164185164200%_))))) + (_%g164183164230%_ _%ann164182%_)))) (define gxc#basic-expression-type-annotation-mop.accessor - (lambda (_%stx163991%_ _%ann163992%_) - (let* ((_%g163994164015%_ - (lambda (_%g163995164012%_) + (lambda (_%stx164097%_ _%ann164098%_) + (let* ((_%g164100164121%_ + (lambda (_%g164101164118%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163995164012%_)))) - (_%g163993164072%_ - (lambda (_%g163995164018%_) + _%g164101164118%_)))) + (_%g164099164178%_ + (lambda (_%g164101164124%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163995164018%_)) - (let ((_%e163999164020%_ + (gx#stx-pair? _%g164101164124%_)) + (let ((_%e164105164126%_ (let () (declare (not safe)) - (gx#stx-e _%g163995164018%_)))) - (let ((_%hd164000164023%_ + (gx#stx-e _%g164101164124%_)))) + (let ((_%hd164106164129%_ (let () (declare (not safe)) - (##car _%e163999164020%_))) - (_%tl164001164025%_ + (##car _%e164105164126%_))) + (_%tl164107164131%_ (let () (declare (not safe)) - (##cdr _%e163999164020%_)))) + (##cdr _%e164105164126%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164001164025%_)) - (let ((_%e164002164028%_ + (gx#stx-pair? _%tl164107164131%_)) + (let ((_%e164108164134%_ (let () (declare (not safe)) - (gx#stx-e _%tl164001164025%_)))) - (let ((_%hd164003164031%_ + (gx#stx-e _%tl164107164131%_)))) + (let ((_%hd164109164137%_ (let () (declare (not safe)) - (##car _%e164002164028%_))) - (_%tl164004164033%_ + (##car _%e164108164134%_))) + (_%tl164110164139%_ (let () (declare (not safe)) - (##cdr _%e164002164028%_)))) + (##cdr _%e164108164134%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl164004164033%_)) - (let ((_%e164005164036%_ + (gx#stx-pair? _%tl164110164139%_)) + (let ((_%e164111164142%_ (let () (declare (not safe)) - (gx#stx-e _%tl164004164033%_)))) - (let ((_%hd164006164039%_ + (gx#stx-e _%tl164110164139%_)))) + (let ((_%hd164112164145%_ (let () (declare (not safe)) - (##car _%e164005164036%_))) - (_%tl164007164041%_ + (##car _%e164111164142%_))) + (_%tl164113164147%_ (let () (declare (not safe)) - (##cdr _%e164005164036%_)))) + (##cdr _%e164111164142%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl164007164041%_)) - (let ((_%e164008164044%_ + _%tl164113164147%_)) + (let ((_%e164114164150%_ (let () (declare (not safe)) (gx#stx-e - _%tl164007164041%_)))) - (let ((_%hd164009164047%_ + _%tl164113164147%_)))) + (let ((_%hd164115164153%_ (let () (declare (not safe)) - (##car _%e164008164044%_))) - (_%tl164010164049%_ + (##car _%e164114164150%_))) + (_%tl164116164155%_ (let () (declare (not safe)) - (##cdr _%e164008164044%_)))) + (##cdr _%e164114164150%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl164010164049%_)) - ((lambda (_%L164052%_ - _%L164053%_ - _%L164054%_) - (let ((__obj171019 + _%tl164116164155%_)) + ((lambda (_%L164158%_ + _%L164159%_ + _%L164160%_) + (let ((__obj171125 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!accessor::t '#f '#f '#f '#f)))) - (let ((__tmp171185 + (let ((__tmp171291 (let () (declare (not safe)) - (gxc#identifier-symbol _%L164054%_))) - (__tmp171184 - (let () (declare (not safe)) (gx#stx-e _%L164053%_))) - (__tmp171183 + (gxc#identifier-symbol _%L164160%_))) + (__tmp171290 + (let () (declare (not safe)) (gx#stx-e _%L164159%_))) + (__tmp171289 (let () (declare (not safe)) - (gx#stx-e _%L164052%_)))) + (gx#stx-e _%L164158%_)))) (declare (not safe)) (gxc#!accessor:::init! - __obj171019 - __tmp171185 - __tmp171184 - __tmp171183)) - __obj171019)) - _%hd164009164047%_ - _%hd164006164039%_ - _%hd164003164031%_) - (_%g163994164015%_ _%g163995164018%_)))) + __obj171125 + __tmp171291 + __tmp171290 + __tmp171289)) + __obj171125)) + _%hd164115164153%_ + _%hd164112164145%_ + _%hd164109164137%_) + (_%g164100164121%_ _%g164101164124%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163994164015%_ - _%g163995164018%_)))) - (_%g163994164015%_ _%g163995164018%_)))) - (_%g163994164015%_ _%g163995164018%_)))) - (_%g163994164015%_ _%g163995164018%_))))) - (_%g163993164072%_ _%ann163992%_)))) + (_%g164100164121%_ + _%g164101164124%_)))) + (_%g164100164121%_ _%g164101164124%_)))) + (_%g164100164121%_ _%g164101164124%_)))) + (_%g164100164121%_ _%g164101164124%_))))) + (_%g164099164178%_ _%ann164098%_)))) (define gxc#basic-expression-type-annotation-mop.mutator - (lambda (_%stx163907%_ _%ann163908%_) - (let* ((_%g163910163931%_ - (lambda (_%g163911163928%_) + (lambda (_%stx164013%_ _%ann164014%_) + (let* ((_%g164016164037%_ + (lambda (_%g164017164034%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163911163928%_)))) - (_%g163909163988%_ - (lambda (_%g163911163934%_) + _%g164017164034%_)))) + (_%g164015164094%_ + (lambda (_%g164017164040%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163911163934%_)) - (let ((_%e163915163936%_ + (gx#stx-pair? _%g164017164040%_)) + (let ((_%e164021164042%_ (let () (declare (not safe)) - (gx#stx-e _%g163911163934%_)))) - (let ((_%hd163916163939%_ + (gx#stx-e _%g164017164040%_)))) + (let ((_%hd164022164045%_ (let () (declare (not safe)) - (##car _%e163915163936%_))) - (_%tl163917163941%_ + (##car _%e164021164042%_))) + (_%tl164023164047%_ (let () (declare (not safe)) - (##cdr _%e163915163936%_)))) + (##cdr _%e164021164042%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163917163941%_)) - (let ((_%e163918163944%_ + (gx#stx-pair? _%tl164023164047%_)) + (let ((_%e164024164050%_ (let () (declare (not safe)) - (gx#stx-e _%tl163917163941%_)))) - (let ((_%hd163919163947%_ + (gx#stx-e _%tl164023164047%_)))) + (let ((_%hd164025164053%_ (let () (declare (not safe)) - (##car _%e163918163944%_))) - (_%tl163920163949%_ + (##car _%e164024164050%_))) + (_%tl164026164055%_ (let () (declare (not safe)) - (##cdr _%e163918163944%_)))) + (##cdr _%e164024164050%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163920163949%_)) - (let ((_%e163921163952%_ + (gx#stx-pair? _%tl164026164055%_)) + (let ((_%e164027164058%_ (let () (declare (not safe)) - (gx#stx-e _%tl163920163949%_)))) - (let ((_%hd163922163955%_ + (gx#stx-e _%tl164026164055%_)))) + (let ((_%hd164028164061%_ (let () (declare (not safe)) - (##car _%e163921163952%_))) - (_%tl163923163957%_ + (##car _%e164027164058%_))) + (_%tl164029164063%_ (let () (declare (not safe)) - (##cdr _%e163921163952%_)))) + (##cdr _%e164027164058%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163923163957%_)) - (let ((_%e163924163960%_ + _%tl164029164063%_)) + (let ((_%e164030164066%_ (let () (declare (not safe)) (gx#stx-e - _%tl163923163957%_)))) - (let ((_%hd163925163963%_ + _%tl164029164063%_)))) + (let ((_%hd164031164069%_ (let () (declare (not safe)) - (##car _%e163924163960%_))) - (_%tl163926163965%_ + (##car _%e164030164066%_))) + (_%tl164032164071%_ (let () (declare (not safe)) - (##cdr _%e163924163960%_)))) + (##cdr _%e164030164066%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163926163965%_)) - ((lambda (_%L163968%_ - _%L163969%_ - _%L163970%_) - (let ((__obj171020 + _%tl164032164071%_)) + ((lambda (_%L164074%_ + _%L164075%_ + _%L164076%_) + (let ((__obj171126 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##structure gxc#!mutator::t '#f '#f '#f '#f)))) - (let ((__tmp171188 + (let ((__tmp171294 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163970%_))) - (__tmp171187 - (let () (declare (not safe)) (gx#stx-e _%L163969%_))) - (__tmp171186 + (gxc#identifier-symbol _%L164076%_))) + (__tmp171293 + (let () (declare (not safe)) (gx#stx-e _%L164075%_))) + (__tmp171292 (let () (declare (not safe)) - (gx#stx-e _%L163968%_)))) + (gx#stx-e _%L164074%_)))) (declare (not safe)) (gxc#!mutator:::init! - __obj171020 - __tmp171188 - __tmp171187 - __tmp171186)) - __obj171020)) - _%hd163925163963%_ - _%hd163922163955%_ - _%hd163919163947%_) - (_%g163910163931%_ _%g163911163934%_)))) + __obj171126 + __tmp171294 + __tmp171293 + __tmp171292)) + __obj171126)) + _%hd164031164069%_ + _%hd164028164061%_ + _%hd164025164053%_) + (_%g164016164037%_ _%g164017164040%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g163910163931%_ - _%g163911163934%_)))) - (_%g163910163931%_ _%g163911163934%_)))) - (_%g163910163931%_ _%g163911163934%_)))) - (_%g163910163931%_ _%g163911163934%_))))) - (_%g163909163988%_ _%ann163908%_)))) + (_%g164016164037%_ + _%g164017164040%_)))) + (_%g164016164037%_ _%g164017164040%_)))) + (_%g164016164037%_ _%g164017164040%_)))) + (_%g164016164037%_ _%g164017164040%_))))) + (_%g164015164094%_ _%ann164014%_)))) (define gxc#basic-expression-type-annotation-interface - (lambda (_%stx163839%_ _%ann163840%_) - (let* ((_%g163842163859%_ - (lambda (_%g163843163856%_) + (lambda (_%stx163945%_ _%ann163946%_) + (let* ((_%g163948163965%_ + (lambda (_%g163949163962%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163843163856%_)))) - (_%g163841163904%_ - (lambda (_%g163843163862%_) + _%g163949163962%_)))) + (_%g163947164010%_ + (lambda (_%g163949163968%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163843163862%_)) - (let ((_%e163846163864%_ + (gx#stx-pair? _%g163949163968%_)) + (let ((_%e163952163970%_ (let () (declare (not safe)) - (gx#stx-e _%g163843163862%_)))) - (let ((_%hd163847163867%_ + (gx#stx-e _%g163949163968%_)))) + (let ((_%hd163953163973%_ (let () (declare (not safe)) - (##car _%e163846163864%_))) - (_%tl163848163869%_ + (##car _%e163952163970%_))) + (_%tl163954163975%_ (let () (declare (not safe)) - (##cdr _%e163846163864%_)))) + (##cdr _%e163952163970%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163848163869%_)) - (let ((_%e163849163872%_ + (gx#stx-pair? _%tl163954163975%_)) + (let ((_%e163955163978%_ (let () (declare (not safe)) - (gx#stx-e _%tl163848163869%_)))) - (let ((_%hd163850163875%_ + (gx#stx-e _%tl163954163975%_)))) + (let ((_%hd163956163981%_ (let () (declare (not safe)) - (##car _%e163849163872%_))) - (_%tl163851163877%_ + (##car _%e163955163978%_))) + (_%tl163957163983%_ (let () (declare (not safe)) - (##cdr _%e163849163872%_)))) + (##cdr _%e163955163978%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163851163877%_)) - (let ((_%e163852163880%_ + (gx#stx-pair? _%tl163957163983%_)) + (let ((_%e163958163986%_ (let () (declare (not safe)) - (gx#stx-e _%tl163851163877%_)))) - (let ((_%hd163853163883%_ + (gx#stx-e _%tl163957163983%_)))) + (let ((_%hd163959163989%_ (let () (declare (not safe)) - (##car _%e163852163880%_))) - (_%tl163854163885%_ + (##car _%e163958163986%_))) + (_%tl163960163991%_ (let () (declare (not safe)) - (##cdr _%e163852163880%_)))) + (##cdr _%e163958163986%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163854163885%_)) - ((lambda (_%L163888%_ - _%L163889%_) - (let ((__tmp171190 + _%tl163960163991%_)) + ((lambda (_%L163994%_ + _%L163995%_) + (let ((__tmp171296 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163889%_))) - (__tmp171189 + _%L163995%_))) + (__tmp171295 (let () (declare (not safe)) (gx#stx-map1 gx#stx-e - _%L163888%_)))) + _%L163994%_)))) (declare (not safe)) (##structure gxc#!interface::t - __tmp171190 - __tmp171189))) - _%hd163853163883%_ - _%hd163850163875%_) - (_%g163842163859%_ - _%g163843163862%_)))) - (_%g163842163859%_ _%g163843163862%_)))) - (_%g163842163859%_ _%g163843163862%_)))) - (_%g163842163859%_ _%g163843163862%_))))) - (_%g163841163904%_ _%ann163840%_)))) + __tmp171296 + __tmp171295))) + _%hd163959163989%_ + _%hd163956163981%_) + (_%g163948163965%_ + _%g163949163968%_)))) + (_%g163948163965%_ _%g163949163968%_)))) + (_%g163948163965%_ _%g163949163968%_)))) + (_%g163948163965%_ _%g163949163968%_))))) + (_%g163947164010%_ _%ann163946%_)))) (define gxc#basic-expression-type-annotation-predicate - (lambda (_%stx163787%_ _%ann163788%_) - (let* ((_%g163790163803%_ - (lambda (_%g163791163800%_) + (lambda (_%stx163893%_ _%ann163894%_) + (let* ((_%g163896163909%_ + (lambda (_%g163897163906%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163791163800%_)))) - (_%g163789163836%_ - (lambda (_%g163791163806%_) + _%g163897163906%_)))) + (_%g163895163942%_ + (lambda (_%g163897163912%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163791163806%_)) - (let ((_%e163793163808%_ + (gx#stx-pair? _%g163897163912%_)) + (let ((_%e163899163914%_ (let () (declare (not safe)) - (gx#stx-e _%g163791163806%_)))) - (let ((_%hd163794163811%_ + (gx#stx-e _%g163897163912%_)))) + (let ((_%hd163900163917%_ (let () (declare (not safe)) - (##car _%e163793163808%_))) - (_%tl163795163813%_ + (##car _%e163899163914%_))) + (_%tl163901163919%_ (let () (declare (not safe)) - (##cdr _%e163793163808%_)))) + (##cdr _%e163899163914%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163795163813%_)) - (let ((_%e163796163816%_ + (gx#stx-pair? _%tl163901163919%_)) + (let ((_%e163902163922%_ (let () (declare (not safe)) - (gx#stx-e _%tl163795163813%_)))) - (let ((_%hd163797163819%_ + (gx#stx-e _%tl163901163919%_)))) + (let ((_%hd163903163925%_ (let () (declare (not safe)) - (##car _%e163796163816%_))) - (_%tl163798163821%_ + (##car _%e163902163922%_))) + (_%tl163904163927%_ (let () (declare (not safe)) - (##cdr _%e163796163816%_)))) + (##cdr _%e163902163922%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163798163821%_)) - ((lambda (_%L163824%_) - (let ((__obj171021 + (gx#stx-null? _%tl163904163927%_)) + ((lambda (_%L163930%_) + (let ((__obj171127 (let () (declare (not safe)) (##structure gxc#!primitive-predicate::t '#f '#f)))) - (let ((__tmp171191 + (let ((__tmp171297 (let () (declare (not safe)) (gxc#identifier-symbol - _%L163824%_)))) + _%L163930%_)))) (declare (not safe)) (gxc#!primitive-predicate:::init! - __obj171021 - __tmp171191)) - __obj171021)) - _%hd163797163819%_) - (_%g163790163803%_ _%g163791163806%_)))) - (_%g163790163803%_ _%g163791163806%_)))) - (_%g163790163803%_ _%g163791163806%_))))) - (_%g163789163836%_ _%ann163788%_)))) + __obj171127 + __tmp171297)) + __obj171127)) + _%hd163903163925%_) + (_%g163896163909%_ _%g163897163912%_)))) + (_%g163896163909%_ _%g163897163912%_)))) + (_%g163896163909%_ _%g163897163912%_))))) + (_%g163895163942%_ _%ann163894%_)))) (define gxc#basic-expression-type-annotation-abort - (lambda (_%stx163757%_ _%ann163758%_) - (let* ((_%g163760163769%_ - (lambda (_%g163761163766%_) + (lambda (_%stx163863%_ _%ann163864%_) + (let* ((_%g163866163875%_ + (lambda (_%g163867163872%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g163761163766%_)))) - (_%g163759163784%_ - (lambda (_%g163761163772%_) + _%g163867163872%_)))) + (_%g163865163890%_ + (lambda (_%g163867163878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g163761163772%_)) - (let ((_%e163762163774%_ + (gx#stx-pair? _%g163867163878%_)) + (let ((_%e163868163880%_ (let () (declare (not safe)) - (gx#stx-e _%g163761163772%_)))) - (let ((_%hd163763163777%_ + (gx#stx-e _%g163867163878%_)))) + (let ((_%hd163869163883%_ (let () (declare (not safe)) - (##car _%e163762163774%_))) - (_%tl163764163779%_ + (##car _%e163868163880%_))) + (_%tl163870163885%_ (let () (declare (not safe)) - (##cdr _%e163762163774%_)))) + (##cdr _%e163868163880%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163764163779%_)) + (gx#stx-null? _%tl163870163885%_)) ((lambda () - (let ((__obj171022 + (let ((__obj171128 (let () (declare (not safe)) (##structure gxc#!abort::t '#f)))) (let () (declare (not safe)) - (gxc#!abort:::init! __obj171022)) - __obj171022))) - (_%g163760163769%_ _%g163761163772%_)))) - (_%g163760163769%_ _%g163761163772%_))))) - (_%g163759163784%_ _%ann163758%_)))) + (gxc#!abort:::init! __obj171128)) + __obj171128))) + (_%g163866163875%_ _%g163867163878%_)))) + (_%g163866163875%_ _%g163867163878%_))))) + (_%g163865163890%_ _%ann163864%_)))) (let () (declare (not safe)) (__hash-put! @@ -9015,19 +9015,19 @@ '@abort gxc#basic-expression-type-annotation-abort)) (define gxc#raw-expression-type-lambda% - (lambda (_%self163689%_ _%stx163690%_) - (let* ((_%__stx168860168861%_ _%stx163690%_) - (_%g163693163707%_ + (lambda (_%self163795%_ _%stx163796%_) + (let* ((_%__stx168966168967%_ _%stx163796%_) + (_%g163799163813%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168860168861%_))))) - (let ((_%__kont168862168863%_ - (lambda (_%L163745%_) - (let ((__obj171023 + _%__stx168966168967%_))))) + (let ((_%__kont168968168969%_ + (lambda (_%L163851%_) + (let ((__obj171129 (let () (declare (not safe)) (##structure @@ -9038,22 +9038,22 @@ '#f '#f '#f)))) - (let ((__tmp171193 (gxc#lambda-form-arity _%L163745%_)) - (__tmp171192 - (gxc#dispatch-lambda-form-delegate _%L163745%_))) + (let ((__tmp171299 (gxc#lambda-form-arity _%L163851%_)) + (__tmp171298 + (gxc#dispatch-lambda-form-delegate _%L163851%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj171023 - __tmp171193 - __tmp171192)) - __obj171023))) - (_%__kont168864168865%_ - (lambda (_%L163720%_) - (let* ((_%signature163730%_ - (gxc#lambda-form-infer-signature _%L163720%_)) - (__obj171024 + __obj171129 + __tmp171299 + __tmp171298)) + __obj171129))) + (_%__kont168970168971%_ + (lambda (_%L163826%_) + (let* ((_%signature163836%_ + (gxc#lambda-form-infer-signature _%L163826%_)) + (__obj171130 (let () (declare (not safe)) (##structure @@ -9064,98 +9064,98 @@ '#f '#f '#f)))) - (let ((__tmp171194 (gxc#lambda-form-arity _%L163720%_))) + (let ((__tmp171300 (gxc#lambda-form-arity _%L163826%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163730%_ - __obj171024 - __tmp171194 + _%signature163836%_ + __obj171130 + __tmp171300 '#f)) - __obj171024)))) - (let ((_%__match168871168872%_ - (lambda (_%e163696163737%_ - _%hd163697163740%_ - _%tl163698163742%_) - (let ((_%L163745%_ _%tl163698163742%_)) - (if (gxc#dispatch-lambda-form? _%L163745%_) - (_%__kont168862168863%_ _%L163745%_) - (_%__kont168864168865%_ _%tl163698163742%_)))))) + __obj171130)))) + (let ((_%__match168977168978%_ + (lambda (_%e163802163843%_ + _%hd163803163846%_ + _%tl163804163848%_) + (let ((_%L163851%_ _%tl163804163848%_)) + (if (gxc#dispatch-lambda-form? _%L163851%_) + (_%__kont168968168969%_ _%L163851%_) + (_%__kont168970168971%_ _%tl163804163848%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168860168861%_)) - (let ((_%e163696163737%_ + (gx#stx-pair? _%__stx168966168967%_)) + (let ((_%e163802163843%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168860168861%_)))) - (let ((_%tl163698163742%_ + (gx#stx-e _%__stx168966168967%_)))) + (let ((_%tl163804163848%_ (let () (declare (not safe)) - (##cdr _%e163696163737%_))) - (_%hd163697163740%_ + (##cdr _%e163802163843%_))) + (_%hd163803163846%_ (let () (declare (not safe)) - (##car _%e163696163737%_)))) - (_%__match168871168872%_ - _%e163696163737%_ - _%hd163697163740%_ - _%tl163698163742%_))) - (let () (declare (not safe)) (_%g163693163707%_)))))))) + (##car _%e163802163843%_)))) + (_%__match168977168978%_ + _%e163802163843%_ + _%hd163803163846%_ + _%tl163804163848%_))) + (let () (declare (not safe)) (_%g163799163813%_)))))))) (define gxc#basic-expression-type-lambda% - (lambda (_%self162833%_ _%stx162834%_) - (let* ((_%__stx168880168881%_ _%stx162834%_) - (_%g162839163031%_ + (lambda (_%self162939%_ _%stx162940%_) + (let* ((_%__stx168986168987%_ _%stx162940%_) + (_%g162945163137%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx168880168881%_))))) - (let ((_%__kont168882168883%_ - (lambda (_%L163626%_ - _%L163627%_ - _%L163628%_ - _%L163629%_ - _%L163630%_ - _%L163631%_) - (let* ((_%tab163681%_ + _%__stx168986168987%_))))) + (let ((_%__kont168988168989%_ + (lambda (_%L163732%_ + _%L163733%_ + _%L163734%_ + _%L163735%_ + _%L163736%_ + _%L163737%_) + (let* ((_%tab163787%_ (let () (declare (not safe)) - (gx#stx-e _%L163628%_))) - (_%keys163683%_ - (if _%tab163681%_ - (let ((__tmp171195 - (vector->list _%tab163681%_))) + (gx#stx-e _%L163734%_))) + (_%keys163789%_ + (if _%tab163787%_ + (let ((__tmp171301 + (vector->list _%tab163787%_))) (declare (not safe)) - (##filter identity __tmp171195)) + (##filter identity __tmp171301)) '#f)) - (__obj171025 + (__obj171131 (let () (declare (not safe)) (##structure gxc#!kw-lambda::t '#f '#f '#f '#f)))) - (let ((__tmp171196 + (let ((__tmp171302 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163627%_)))) + (gxc#identifier-symbol _%L163733%_)))) (declare (not safe)) (gxc#!kw-lambda:::init! - __obj171025 - _%keys163683%_ - __tmp171196)) - __obj171025))) - (_%__kont168884168885%_ - (lambda (_%L163359%_ - _%L163360%_ - _%L163361%_ - _%L163362%_ - _%L163363%_ - _%L163364%_ - _%L163365%_ - _%L163366%_ - _%L163367%_ - _%L163368%_) - (let ((__obj171026 + __obj171131 + _%keys163789%_ + __tmp171302)) + __obj171131))) + (_%__kont168990168991%_ + (lambda (_%L163465%_ + _%L163466%_ + _%L163467%_ + _%L163468%_ + _%L163469%_ + _%L163470%_ + _%L163471%_ + _%L163472%_ + _%L163473%_ + _%L163474%_) + (let ((__obj171132 (let () (declare (not safe)) (##structure @@ -9164,28 +9164,28 @@ '#f '#f '#f)))) - (let ((__tmp171198 + (let ((__tmp171304 (map gx#stx-e - (let ((__tmp171199 - (lambda (_%g163461163464%_ - _%g163462163466%_) - (cons _%g163461163464%_ - _%g163462163466%_)))) + (let ((__tmp171305 + (lambda (_%g163567163570%_ + _%g163568163572%_) + (cons _%g163567163570%_ + _%g163568163572%_)))) (declare (not safe)) - (__foldr1 __tmp171199 '() _%L163361%_)))) - (__tmp171197 + (__foldr1 __tmp171305 '() _%L163467%_)))) + (__tmp171303 (let () (declare (not safe)) - (gxc#identifier-symbol _%L163365%_)))) + (gxc#identifier-symbol _%L163471%_)))) (declare (not safe)) (gxc#!kw-lambda-primary:::init! - __obj171026 - __tmp171198 - __tmp171197)) - __obj171026))) - (_%__kont168888168889%_ - (lambda (_%L163069%_) - (let ((__obj171027 + __obj171132 + __tmp171304 + __tmp171303)) + __obj171132))) + (_%__kont168994168995%_ + (lambda (_%L163175%_) + (let ((__obj171133 (let () (declare (not safe)) (##structure @@ -9196,22 +9196,22 @@ '#f '#f '#f)))) - (let ((__tmp171201 (gxc#lambda-form-arity _%L163069%_)) - (__tmp171200 - (gxc#dispatch-lambda-form-delegate _%L163069%_))) + (let ((__tmp171307 (gxc#lambda-form-arity _%L163175%_)) + (__tmp171306 + (gxc#dispatch-lambda-form-delegate _%L163175%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f absent-value - __obj171027 - __tmp171201 - __tmp171200)) - __obj171027))) - (_%__kont168890168891%_ - (lambda (_%L163044%_) - (let* ((_%signature163054%_ - (gxc#lambda-form-infer-signature _%L163044%_)) - (__obj171028 + __obj171133 + __tmp171307 + __tmp171306)) + __obj171133))) + (_%__kont168996168997%_ + (lambda (_%L163150%_) + (let* ((_%signature163160%_ + (gxc#lambda-form-infer-signature _%L163150%_)) + (__obj171134 (let () (declare (not safe)) (##structure @@ -9222,1937 +9222,1937 @@ '#f '#f '#f)))) - (let ((__tmp171202 (gxc#lambda-form-arity _%L163044%_))) + (let ((__tmp171308 (gxc#lambda-form-arity _%L163150%_))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature163054%_ - __obj171028 - __tmp171202 + _%signature163160%_ + __obj171134 + __tmp171308 '#f)) - __obj171028)))) - (let* ((_%__match169189169190%_ - (lambda (_%e163020163061%_ - _%hd163021163064%_ - _%tl163022163066%_) - (let ((_%L163069%_ _%tl163022163066%_)) - (if (gxc#dispatch-lambda-form? _%L163069%_) - (_%__kont168888168889%_ _%L163069%_) - (_%__kont168890168891%_ _%tl163022163066%_))))) - (_%__match169183169184%_ - (lambda (_%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_ - _%e162917163091%_ - _%hd162918163094%_ - _%tl162919163096%_ - _%e162920163099%_ - _%hd162921163102%_ - _%tl162922163104%_ - _%e162923163107%_ - _%hd162924163110%_ - _%tl162925163112%_ - _%e162926163115%_ - _%hd162927163118%_ - _%tl162928163120%_ - _%e162929163123%_ - _%hd162930163126%_ - _%tl162931163128%_ - _%e162932163131%_ - _%hd162933163134%_ - _%tl162934163136%_ - _%e162935163139%_ - _%hd162936163142%_ - _%tl162937163144%_ - _%e162938163147%_ - _%hd162939163150%_ - _%tl162940163152%_ - _%e162941163155%_ - _%hd162942163158%_ - _%tl162943163160%_ - _%e162944163163%_ - _%hd162945163166%_ - _%tl162946163168%_ - _%e162947163171%_ - _%hd162948163174%_ - _%tl162949163176%_ - _%e162950163179%_ - _%hd162951163182%_ - _%tl162952163184%_ - _%e162953163187%_ - _%hd162954163190%_ - _%tl162955163192%_ - _%__splice168886168887%_ - _%target162956163195%_ - _%tl162958163197%_ - _%e162971163200%_ - _%hd162972163203%_ - _%tl162973163205%_ - _%e162974163208%_ - _%hd162975163211%_ - _%tl162976163213%_ - _%e162977163216%_ - _%hd162978163219%_ - _%tl162979163221%_) - (letrec ((_%loop162959163224%_ - (lambda (_%hd162957163227%_ - _%-absent-value162963163229%_ - _%key162964163231%_ - _%-xkwvar162965163233%_ - _%-hash-ref162966163235%_) + __obj171134)))) + (let* ((_%__match169295169296%_ + (lambda (_%e163126163167%_ + _%hd163127163170%_ + _%tl163128163172%_) + (let ((_%L163175%_ _%tl163128163172%_)) + (if (gxc#dispatch-lambda-form? _%L163175%_) + (_%__kont168994168995%_ _%L163175%_) + (_%__kont168996168997%_ _%tl163128163172%_))))) + (_%__match169289169290%_ + (lambda (_%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_ + _%e163023163197%_ + _%hd163024163200%_ + _%tl163025163202%_ + _%e163026163205%_ + _%hd163027163208%_ + _%tl163028163210%_ + _%e163029163213%_ + _%hd163030163216%_ + _%tl163031163218%_ + _%e163032163221%_ + _%hd163033163224%_ + _%tl163034163226%_ + _%e163035163229%_ + _%hd163036163232%_ + _%tl163037163234%_ + _%e163038163237%_ + _%hd163039163240%_ + _%tl163040163242%_ + _%e163041163245%_ + _%hd163042163248%_ + _%tl163043163250%_ + _%e163044163253%_ + _%hd163045163256%_ + _%tl163046163258%_ + _%e163047163261%_ + _%hd163048163264%_ + _%tl163049163266%_ + _%e163050163269%_ + _%hd163051163272%_ + _%tl163052163274%_ + _%e163053163277%_ + _%hd163054163280%_ + _%tl163055163282%_ + _%e163056163285%_ + _%hd163057163288%_ + _%tl163058163290%_ + _%e163059163293%_ + _%hd163060163296%_ + _%tl163061163298%_ + _%__splice168992168993%_ + _%target163062163301%_ + _%tl163064163303%_ + _%e163077163306%_ + _%hd163078163309%_ + _%tl163079163311%_ + _%e163080163314%_ + _%hd163081163317%_ + _%tl163082163319%_ + _%e163083163322%_ + _%hd163084163325%_ + _%tl163085163327%_) + (letrec ((_%loop163065163330%_ + (lambda (_%hd163063163333%_ + _%-absent-value163069163335%_ + _%key163070163337%_ + _%-xkwvar163071163339%_ + _%-hash-ref163072163341%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162957163227%_)) - (let ((_%e162960163238%_ + (gx#stx-pair? _%hd163063163333%_)) + (let ((_%e163066163344%_ (let () (declare (not safe)) - (gx#stx-e _%hd162957163227%_)))) - (let ((_%lp-tl162962163243%_ + (gx#stx-e _%hd163063163333%_)))) + (let ((_%lp-tl163068163349%_ (let () (declare (not safe)) - (##cdr _%e162960163238%_))) - (_%lp-hd162961163241%_ + (##cdr _%e163066163344%_))) + (_%lp-hd163067163347%_ (let () (declare (not safe)) - (##car _%e162960163238%_)))) + (##car _%e163066163344%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd162961163241%_)) - (let ((_%e162980163246%_ + _%lp-hd163067163347%_)) + (let ((_%e163086163352%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd162961163241%_)))) - (let ((_%tl162982163251%_ + _%lp-hd163067163347%_)))) + (let ((_%tl163088163357%_ (let () (declare (not safe)) - (##cdr _%e162980163246%_))) - (_%hd162981163249%_ + (##cdr _%e163086163352%_))) + (_%hd163087163355%_ (let () (declare (not safe)) - (##car _%e162980163246%_)))) + (##car _%e163086163352%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162981163249%_)) + _%hd163087163355%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162981163249%_)) + _%hd163087163355%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl162982163251%_)) - (let ((_%e162983163254%_ + (gx#stx-pair? _%tl163088163357%_)) + (let ((_%e163089163360%_ (let () (declare (not safe)) - (gx#stx-e _%tl162982163251%_)))) - (let ((_%tl162985163259%_ + (gx#stx-e _%tl163088163357%_)))) + (let ((_%tl163091163365%_ (let () (declare (not safe)) - (##cdr _%e162983163254%_))) - (_%hd162984163257%_ + (##cdr _%e163089163360%_))) + (_%hd163090163363%_ (let () (declare (not safe)) - (##car _%e162983163254%_)))) + (##car _%e163089163360%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162984163257%_)) - (let ((_%e162986163262%_ + (gx#stx-pair? _%hd163090163363%_)) + (let ((_%e163092163368%_ (let () (declare (not safe)) - (gx#stx-e _%hd162984163257%_)))) - (let ((_%tl162988163267%_ + (gx#stx-e _%hd163090163363%_)))) + (let ((_%tl163094163373%_ (let () (declare (not safe)) - (##cdr _%e162986163262%_))) - (_%hd162987163265%_ + (##cdr _%e163092163368%_))) + (_%hd163093163371%_ (let () (declare (not safe)) - (##car _%e162986163262%_)))) + (##car _%e163092163368%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162987163265%_)) + (gx#identifier? _%hd163093163371%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162987163265%_)) + _%hd163093163371%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162988163267%_)) - (let ((_%e162989163270%_ + _%tl163094163373%_)) + (let ((_%e163095163376%_ (let () (declare (not safe)) (gx#stx-e - _%tl162988163267%_)))) - (let ((_%tl162991163275%_ + _%tl163094163373%_)))) + (let ((_%tl163097163381%_ (let () (declare (not safe)) - (##cdr _%e162989163270%_))) - (_%hd162990163273%_ + (##cdr _%e163095163376%_))) + (_%hd163096163379%_ (let () (declare (not safe)) - (##car _%e162989163270%_)))) + (##car _%e163095163376%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162991163275%_)) + _%tl163097163381%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162985163259%_)) - (let ((_%e162992163278%_ + _%tl163091163365%_)) + (let ((_%e163098163384%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162985163259%_)))) - (let ((_%tl162994163283%_ + (gx#stx-e _%tl163091163365%_)))) + (let ((_%tl163100163389%_ (let () (declare (not safe)) - (##cdr _%e162992163278%_))) - (_%hd162993163281%_ + (##cdr _%e163098163384%_))) + (_%hd163099163387%_ (let () (declare (not safe)) - (##car _%e162992163278%_)))) + (##car _%e163098163384%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162993163281%_)) - (let ((_%e162995163286%_ + (gx#stx-pair? _%hd163099163387%_)) + (let ((_%e163101163392%_ (let () (declare (not safe)) - (gx#stx-e _%hd162993163281%_)))) - (let ((_%tl162997163291%_ + (gx#stx-e _%hd163099163387%_)))) + (let ((_%tl163103163397%_ (let () (declare (not safe)) - (##cdr _%e162995163286%_))) - (_%hd162996163289%_ + (##cdr _%e163101163392%_))) + (_%hd163102163395%_ (let () (declare (not safe)) - (##car _%e162995163286%_)))) + (##car _%e163101163392%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162996163289%_)) + (gx#identifier? _%hd163102163395%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162996163289%_)) + (gx#stx-eq? '%#ref _%hd163102163395%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162997163291%_)) - (let ((_%e162998163294%_ + (gx#stx-pair? _%tl163103163397%_)) + (let ((_%e163104163400%_ (let () (declare (not safe)) (gx#stx-e - _%tl162997163291%_)))) - (let ((_%tl163000163299%_ + _%tl163103163397%_)))) + (let ((_%tl163106163405%_ (let () (declare (not safe)) - (##cdr _%e162998163294%_))) - (_%hd162999163297%_ + (##cdr _%e163104163400%_))) + (_%hd163105163403%_ (let () (declare (not safe)) - (##car _%e162998163294%_)))) + (##car _%e163104163400%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163000163299%_)) + _%tl163106163405%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162994163283%_)) - (let ((_%e163001163302%_ + _%tl163100163389%_)) + (let ((_%e163107163408%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162994163283%_)))) - (let ((_%tl163003163307%_ - (let () (declare (not safe)) (##cdr _%e163001163302%_))) - (_%hd163002163305%_ + (gx#stx-e _%tl163100163389%_)))) + (let ((_%tl163109163413%_ + (let () (declare (not safe)) (##cdr _%e163107163408%_))) + (_%hd163108163411%_ (let () (declare (not safe)) - (##car _%e163001163302%_)))) + (##car _%e163107163408%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd163002163305%_)) - (let ((_%e163004163310%_ + (gx#stx-pair? _%hd163108163411%_)) + (let ((_%e163110163416%_ (let () (declare (not safe)) - (gx#stx-e _%hd163002163305%_)))) - (let ((_%tl163006163315%_ + (gx#stx-e _%hd163108163411%_)))) + (let ((_%tl163112163421%_ (let () (declare (not safe)) - (##cdr _%e163004163310%_))) - (_%hd163005163313%_ + (##cdr _%e163110163416%_))) + (_%hd163111163419%_ (let () (declare (not safe)) - (##car _%e163004163310%_)))) + (##car _%e163110163416%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163005163313%_)) + (gx#identifier? _%hd163111163419%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd163005163313%_)) + (gx#stx-eq? '%#quote _%hd163111163419%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163006163315%_)) - (let ((_%e163007163318%_ + (gx#stx-pair? _%tl163112163421%_)) + (let ((_%e163113163424%_ (let () (declare (not safe)) - (gx#stx-e _%tl163006163315%_)))) - (let ((_%tl163009163323%_ + (gx#stx-e _%tl163112163421%_)))) + (let ((_%tl163115163429%_ (let () (declare (not safe)) - (##cdr _%e163007163318%_))) - (_%hd163008163321%_ + (##cdr _%e163113163424%_))) + (_%hd163114163427%_ (let () (declare (not safe)) - (##car _%e163007163318%_)))) + (##car _%e163113163424%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163009163323%_)) + _%tl163115163429%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl163003163307%_)) - (let ((_%e163010163326%_ + _%tl163109163413%_)) + (let ((_%e163116163432%_ (let () (declare (not safe)) (gx#stx-e - _%tl163003163307%_)))) - (let ((_%tl163012163331%_ + _%tl163109163413%_)))) + (let ((_%tl163118163437%_ (let () (declare (not safe)) - (##cdr _%e163010163326%_))) - (_%hd163011163329%_ + (##cdr _%e163116163432%_))) + (_%hd163117163435%_ (let () (declare (not safe)) - (##car _%e163010163326%_)))) + (##car _%e163116163432%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd163011163329%_)) - (let ((_%e163013163334%_ + _%hd163117163435%_)) + (let ((_%e163119163440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd163011163329%_)))) - (let ((_%tl163015163339%_ + (gx#stx-e _%hd163117163435%_)))) + (let ((_%tl163121163445%_ (let () (declare (not safe)) - (##cdr _%e163013163334%_))) - (_%hd163014163337%_ + (##cdr _%e163119163440%_))) + (_%hd163120163443%_ (let () (declare (not safe)) - (##car _%e163013163334%_)))) + (##car _%e163119163440%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd163014163337%_)) + (gx#identifier? _%hd163120163443%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd163014163337%_)) + (gx#stx-eq? '%#ref _%hd163120163443%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl163015163339%_)) - (let ((_%e163016163342%_ + (gx#stx-pair? _%tl163121163445%_)) + (let ((_%e163122163448%_ (let () (declare (not safe)) - (gx#stx-e _%tl163015163339%_)))) - (let ((_%tl163018163347%_ + (gx#stx-e _%tl163121163445%_)))) + (let ((_%tl163124163453%_ (let () (declare (not safe)) - (##cdr _%e163016163342%_))) - (_%hd163017163345%_ + (##cdr _%e163122163448%_))) + (_%hd163123163451%_ (let () (declare (not safe)) - (##car _%e163016163342%_)))) + (##car _%e163122163448%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl163018163347%_)) + (gx#stx-null? _%tl163124163453%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl163012163331%_)) - (_%loop162959163224%_ - _%lp-tl162962163243%_ - (cons _%hd163017163345%_ - _%-absent-value162963163229%_) - (cons _%hd163008163321%_ - _%key162964163231%_) - (cons _%hd162999163297%_ - _%-xkwvar162965163233%_) - (cons _%hd162990163273%_ - _%-hash-ref162966163235%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) + _%tl163118163437%_)) + (_%loop163065163330%_ + _%lp-tl163068163349%_ + (cons _%hd163123163451%_ + _%-absent-value163069163335%_) + (cons _%hd163114163427%_ + _%key163070163337%_) + (cons _%hd163105163403%_ + _%-xkwvar163071163339%_) + (cons _%hd163096163379%_ + _%-hash-ref163072163341%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (let ((_%-hash-ref162970163356%_ - (reverse _%-hash-ref162966163235%_)) - (_%-xkwvar162969163354%_ - (reverse _%-xkwvar162965163233%_)) - (_%key162968163352%_ - (reverse _%key162964163231%_)) - (_%-absent-value162967163350%_ - (reverse _%-absent-value162963163229%_))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (let ((_%-hash-ref163076163462%_ + (reverse _%-hash-ref163072163341%_)) + (_%-xkwvar163075163460%_ + (reverse _%-xkwvar163071163339%_)) + (_%key163074163458%_ + (reverse _%key163070163337%_)) + (_%-absent-value163073163456%_ + (reverse _%-absent-value163069163335%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162925163112%_)) - (let ((_%L163359%_ - _%hd162978163219%_) - (_%L163360%_ - _%-absent-value162967163350%_) - (_%L163361%_ - _%key162968163352%_) - (_%L163362%_ - _%-xkwvar162969163354%_) - (_%L163363%_ - _%-hash-ref162970163356%_) - (_%L163364%_ - _%hd162954163190%_) - (_%L163365%_ - _%hd162945163166%_) - (_%L163366%_ - _%hd162936163142%_) - (_%L163367%_ - _%tl162922163104%_) - (_%L163368%_ - _%hd162921163102%_)) + _%tl163031163218%_)) + (let ((_%L163465%_ + _%hd163084163325%_) + (_%L163466%_ + _%-absent-value163073163456%_) + (_%L163467%_ + _%key163074163458%_) + (_%L163468%_ + _%-xkwvar163075163460%_) + (_%L163469%_ + _%-hash-ref163076163462%_) + (_%L163470%_ + _%hd163060163296%_) + (_%L163471%_ + _%hd163051163272%_) + (_%L163472%_ + _%hd163042163248%_) + (_%L163473%_ + _%tl163028163210%_) + (_%L163474%_ + _%hd163027163208%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L163368%_)) + _%L163474%_)) (let () (declare (not safe)) (gx#identifier? - _%L163367%_)) + _%L163473%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163366%_ + _%L163472%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163368%_ - _%L163364%_)) - (let ((__tmp171203 - (let ((__tmp171204 + _%L163474%_ + _%L163470%_)) + (let ((__tmp171309 + (let ((__tmp171310 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g163421163424%_ _%g163422163426%_) - (cons _%g163421163424%_ _%g163422163426%_)))) + (lambda (_%g163527163530%_ _%g163528163532%_) + (cons _%g163527163530%_ _%g163528163532%_)))) (declare (not safe)) - (__foldr1 __tmp171204 '() _%L163361%_)))) + (__foldr1 __tmp171310 '() _%L163467%_)))) (declare (not safe)) - (__andmap1 gx#stx-keyword? __tmp171203)) - (let ((__tmp171207 - (lambda (_%g163428163430%_) + (__andmap1 gx#stx-keyword? __tmp171309)) + (let ((__tmp171313 + (lambda (_%g163534163536%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163428163430%_ + _%g163534163536%_ 'symbolic-table-ref)))) - (__tmp171205 - (let ((__tmp171206 - (lambda (_%g163432163435%_ _%g163433163437%_) - (cons _%g163432163435%_ _%g163433163437%_)))) + (__tmp171311 + (let ((__tmp171312 + (lambda (_%g163538163541%_ _%g163539163543%_) + (cons _%g163538163541%_ _%g163539163543%_)))) (declare (not safe)) - (__foldr1 __tmp171206 '() _%L163363%_)))) + (__foldr1 __tmp171312 '() _%L163469%_)))) (declare (not safe)) - (__andmap1 __tmp171207 __tmp171205)) - (let ((__tmp171210 - (lambda (_%g163439163441%_) + (__andmap1 __tmp171313 __tmp171311)) + (let ((__tmp171316 + (lambda (_%g163545163547%_) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%g163439163441%_ + _%g163545163547%_ 'absent-value)))) - (__tmp171208 - (let ((__tmp171209 - (lambda (_%g163443163446%_ _%g163444163448%_) - (cons _%g163443163446%_ _%g163444163448%_)))) + (__tmp171314 + (let ((__tmp171315 + (lambda (_%g163549163552%_ _%g163550163554%_) + (cons _%g163549163552%_ _%g163550163554%_)))) (declare (not safe)) - (__foldr1 __tmp171209 '() _%L163360%_)))) + (__foldr1 __tmp171315 '() _%L163466%_)))) (declare (not safe)) - (__andmap1 __tmp171210 __tmp171208)) - (let ((__tmp171213 - (lambda (_%g163450163452%_) + (__andmap1 __tmp171316 __tmp171314)) + (let ((__tmp171319 + (lambda (_%g163556163558%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g163450163452%_ - _%L163368%_)))) - (__tmp171211 - (let ((__tmp171212 - (lambda (_%g163454163457%_ _%g163455163459%_) - (cons _%g163454163457%_ _%g163455163459%_)))) + _%g163556163558%_ + _%L163474%_)))) + (__tmp171317 + (let ((__tmp171318 + (lambda (_%g163560163563%_ _%g163561163565%_) + (cons _%g163560163563%_ _%g163561163565%_)))) (declare (not safe)) - (__foldr1 __tmp171212 '() _%L163362%_)))) + (__foldr1 __tmp171318 '() _%L163468%_)))) (declare (not safe)) - (__andmap1 __tmp171213 __tmp171211))) + (__andmap1 __tmp171319 __tmp171317))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont168884168885%_ - _%L163359%_ - _%L163360%_ - _%L163361%_ - _%L163362%_ - _%L163363%_ - _%L163364%_ - _%L163365%_ - _%L163366%_ - _%L163367%_ - _%L163368%_) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_))))))) - (_%loop162959163224%_ - _%target162956163195%_ + (_%__kont168990168991%_ + _%L163465%_ + _%L163466%_ + _%L163467%_ + _%L163468%_ + _%L163469%_ + _%L163470%_ + _%L163471%_ + _%L163472%_ + _%L163473%_ + _%L163474%_) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_))))))) + (_%loop163065163330%_ + _%target163062163301%_ '() '() '() '())))) - (_%__match169055169056%_ - (lambda (_%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_ - _%e162917163091%_ - _%hd162918163094%_ - _%tl162919163096%_) + (_%__match169161169162%_ + (lambda (_%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_ + _%e163023163197%_ + _%hd163024163200%_ + _%tl163025163202%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162918163094%_)) - (let ((_%e162920163099%_ + (gx#stx-pair? _%hd163024163200%_)) + (let ((_%e163026163205%_ (let () (declare (not safe)) - (gx#stx-e _%hd162918163094%_)))) - (let ((_%tl162922163104%_ + (gx#stx-e _%hd163024163200%_)))) + (let ((_%tl163028163210%_ (let () (declare (not safe)) - (##cdr _%e162920163099%_))) - (_%hd162921163102%_ + (##cdr _%e163026163205%_))) + (_%hd163027163208%_ (let () (declare (not safe)) - (##car _%e162920163099%_)))) + (##car _%e163026163205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162919163096%_)) - (let ((_%e162923163107%_ + (gx#stx-pair? _%tl163025163202%_)) + (let ((_%e163029163213%_ (let () (declare (not safe)) - (gx#stx-e _%tl162919163096%_)))) - (let ((_%tl162925163112%_ + (gx#stx-e _%tl163025163202%_)))) + (let ((_%tl163031163218%_ (let () (declare (not safe)) - (##cdr _%e162923163107%_))) - (_%hd162924163110%_ + (##cdr _%e163029163213%_))) + (_%hd163030163216%_ (let () (declare (not safe)) - (##car _%e162923163107%_)))) + (##car _%e163029163213%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162924163110%_)) - (let ((_%e162926163115%_ + (gx#stx-pair? _%hd163030163216%_)) + (let ((_%e163032163221%_ (let () (declare (not safe)) (gx#stx-e - _%hd162924163110%_)))) - (let ((_%tl162928163120%_ + _%hd163030163216%_)))) + (let ((_%tl163034163226%_ (let () (declare (not safe)) - (##cdr _%e162926163115%_))) - (_%hd162927163118%_ + (##cdr _%e163032163221%_))) + (_%hd163033163224%_ (let () (declare (not safe)) - (##car _%e162926163115%_)))) + (##car _%e163032163221%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162927163118%_)) + _%hd163033163224%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162927163118%_)) + _%hd163033163224%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162928163120%_)) - (let ((_%e162929163123%_ + _%tl163034163226%_)) + (let ((_%e163035163229%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162928163120%_)))) - (let ((_%tl162931163128%_ + (gx#stx-e _%tl163034163226%_)))) + (let ((_%tl163037163234%_ (let () (declare (not safe)) - (##cdr _%e162929163123%_))) - (_%hd162930163126%_ + (##cdr _%e163035163229%_))) + (_%hd163036163232%_ (let () (declare (not safe)) - (##car _%e162929163123%_)))) + (##car _%e163035163229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162930163126%_)) - (let ((_%e162932163131%_ + (gx#stx-pair? _%hd163036163232%_)) + (let ((_%e163038163237%_ (let () (declare (not safe)) - (gx#stx-e _%hd162930163126%_)))) - (let ((_%tl162934163136%_ + (gx#stx-e _%hd163036163232%_)))) + (let ((_%tl163040163242%_ (let () (declare (not safe)) - (##cdr _%e162932163131%_))) - (_%hd162933163134%_ + (##cdr _%e163038163237%_))) + (_%hd163039163240%_ (let () (declare (not safe)) - (##car _%e162932163131%_)))) + (##car _%e163038163237%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162933163134%_)) + (gx#identifier? _%hd163039163240%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162933163134%_)) + (gx#stx-eq? '%#ref _%hd163039163240%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162934163136%_)) - (let ((_%e162935163139%_ + (gx#stx-pair? _%tl163040163242%_)) + (let ((_%e163041163245%_ (let () (declare (not safe)) (gx#stx-e - _%tl162934163136%_)))) - (let ((_%tl162937163144%_ + _%tl163040163242%_)))) + (let ((_%tl163043163250%_ (let () (declare (not safe)) - (##cdr _%e162935163139%_))) - (_%hd162936163142%_ + (##cdr _%e163041163245%_))) + (_%hd163042163248%_ (let () (declare (not safe)) - (##car _%e162935163139%_)))) + (##car _%e163041163245%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162937163144%_)) + _%tl163043163250%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162931163128%_)) - (let ((_%e162938163147%_ + _%tl163037163234%_)) + (let ((_%e163044163253%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162931163128%_)))) - (let ((_%tl162940163152%_ - (let () (declare (not safe)) (##cdr _%e162938163147%_))) - (_%hd162939163150%_ + (gx#stx-e _%tl163037163234%_)))) + (let ((_%tl163046163258%_ + (let () (declare (not safe)) (##cdr _%e163044163253%_))) + (_%hd163045163256%_ (let () (declare (not safe)) - (##car _%e162938163147%_)))) + (##car _%e163044163253%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162939163150%_)) - (let ((_%e162941163155%_ + (gx#stx-pair? _%hd163045163256%_)) + (let ((_%e163047163261%_ (let () (declare (not safe)) - (gx#stx-e _%hd162939163150%_)))) - (let ((_%tl162943163160%_ + (gx#stx-e _%hd163045163256%_)))) + (let ((_%tl163049163266%_ (let () (declare (not safe)) - (##cdr _%e162941163155%_))) - (_%hd162942163158%_ + (##cdr _%e163047163261%_))) + (_%hd163048163264%_ (let () (declare (not safe)) - (##car _%e162941163155%_)))) + (##car _%e163047163261%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162942163158%_)) + (gx#identifier? _%hd163048163264%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162942163158%_)) + (gx#stx-eq? '%#ref _%hd163048163264%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162943163160%_)) - (let ((_%e162944163163%_ + (gx#stx-pair? _%tl163049163266%_)) + (let ((_%e163050163269%_ (let () (declare (not safe)) - (gx#stx-e _%tl162943163160%_)))) - (let ((_%tl162946163168%_ + (gx#stx-e _%tl163049163266%_)))) + (let ((_%tl163052163274%_ (let () (declare (not safe)) - (##cdr _%e162944163163%_))) - (_%hd162945163166%_ + (##cdr _%e163050163269%_))) + (_%hd163051163272%_ (let () (declare (not safe)) - (##car _%e162944163163%_)))) + (##car _%e163050163269%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162946163168%_)) + _%tl163052163274%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162940163152%_)) - (let ((_%e162947163171%_ + _%tl163046163258%_)) + (let ((_%e163053163277%_ (let () (declare (not safe)) (gx#stx-e - _%tl162940163152%_)))) - (let ((_%tl162949163176%_ + _%tl163046163258%_)))) + (let ((_%tl163055163282%_ (let () (declare (not safe)) - (##cdr _%e162947163171%_))) - (_%hd162948163174%_ + (##cdr _%e163053163277%_))) + (_%hd163054163280%_ (let () (declare (not safe)) - (##car _%e162947163171%_)))) + (##car _%e163053163277%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162948163174%_)) - (let ((_%e162950163179%_ + _%hd163054163280%_)) + (let ((_%e163056163285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162948163174%_)))) - (let ((_%tl162952163184%_ + (gx#stx-e _%hd163054163280%_)))) + (let ((_%tl163058163290%_ (let () (declare (not safe)) - (##cdr _%e162950163179%_))) - (_%hd162951163182%_ + (##cdr _%e163056163285%_))) + (_%hd163057163288%_ (let () (declare (not safe)) - (##car _%e162950163179%_)))) + (##car _%e163056163285%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162951163182%_)) + (gx#identifier? _%hd163057163288%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162951163182%_)) + (gx#stx-eq? '%#ref _%hd163057163288%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162952163184%_)) - (let ((_%e162953163187%_ + (gx#stx-pair? _%tl163058163290%_)) + (let ((_%e163059163293%_ (let () (declare (not safe)) - (gx#stx-e _%tl162952163184%_)))) - (let ((_%tl162955163192%_ + (gx#stx-e _%tl163058163290%_)))) + (let ((_%tl163061163298%_ (let () (declare (not safe)) - (##cdr _%e162953163187%_))) - (_%hd162954163190%_ + (##cdr _%e163059163293%_))) + (_%hd163060163296%_ (let () (declare (not safe)) - (##car _%e162953163187%_)))) + (##car _%e163059163293%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162955163192%_)) + (gx#stx-null? _%tl163061163298%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl162949163176%_)) - (if (let ((__tmp171214 + _%tl163055163282%_)) + (if (let ((__tmp171320 (let () (declare (not safe)) (gx#stx-length - _%tl162949163176%_)))) + _%tl163055163282%_)))) (declare (not safe)) - (##fx>= __tmp171214 '1)) - (let ((_%__splice168886168887%_ + (##fx>= __tmp171320 '1)) + (let ((_%__splice168992168993%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl162949163176%_ + _%tl163055163282%_ '1)))) - (let ((_%tl162958163197%_ + (let ((_%tl163064163303%_ (let () (declare (not safe)) (##vector-ref - _%__splice168886168887%_ + _%__splice168992168993%_ '1))) - (_%target162956163195%_ + (_%target163062163301%_ (let () (declare (not safe)) (##vector-ref - _%__splice168886168887%_ + _%__splice168992168993%_ '0)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162958163197%_)) - (let ((_%e162971163200%_ + _%tl163064163303%_)) + (let ((_%e163077163306%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162958163197%_)))) - (let ((_%tl162973163205%_ + (gx#stx-e _%tl163064163303%_)))) + (let ((_%tl163079163311%_ (let () (declare (not safe)) - (##cdr _%e162971163200%_))) - (_%hd162972163203%_ + (##cdr _%e163077163306%_))) + (_%hd163078163309%_ (let () (declare (not safe)) - (##car _%e162971163200%_)))) + (##car _%e163077163306%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162972163203%_)) - (let ((_%e162974163208%_ + (gx#stx-pair? _%hd163078163309%_)) + (let ((_%e163080163314%_ (let () (declare (not safe)) - (gx#stx-e _%hd162972163203%_)))) - (let ((_%tl162976163213%_ + (gx#stx-e _%hd163078163309%_)))) + (let ((_%tl163082163319%_ (let () (declare (not safe)) - (##cdr _%e162974163208%_))) - (_%hd162975163211%_ + (##cdr _%e163080163314%_))) + (_%hd163081163317%_ (let () (declare (not safe)) - (##car _%e162974163208%_)))) + (##car _%e163080163314%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162975163211%_)) + (gx#identifier? _%hd163081163317%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162975163211%_)) + (gx#stx-eq? '%#ref _%hd163081163317%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162976163213%_)) - (let ((_%e162977163216%_ + (gx#stx-pair? _%tl163082163319%_)) + (let ((_%e163083163322%_ (let () (declare (not safe)) (gx#stx-e - _%tl162976163213%_)))) - (let ((_%tl162979163221%_ + _%tl163082163319%_)))) + (let ((_%tl163085163327%_ (let () (declare (not safe)) - (##cdr _%e162977163216%_))) - (_%hd162978163219%_ + (##cdr _%e163083163322%_))) + (_%hd163084163325%_ (let () (declare (not safe)) - (##car _%e162977163216%_)))) + (##car _%e163083163322%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162979163221%_)) + _%tl163085163327%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162973163205%_)) - (_%__match169183169184%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_ - _%e162917163091%_ - _%hd162918163094%_ - _%tl162919163096%_ - _%e162920163099%_ - _%hd162921163102%_ - _%tl162922163104%_ - _%e162923163107%_ - _%hd162924163110%_ - _%tl162925163112%_ - _%e162926163115%_ - _%hd162927163118%_ - _%tl162928163120%_ - _%e162929163123%_ - _%hd162930163126%_ - _%tl162931163128%_ - _%e162932163131%_ - _%hd162933163134%_ - _%tl162934163136%_ - _%e162935163139%_ - _%hd162936163142%_ - _%tl162937163144%_ - _%e162938163147%_ - _%hd162939163150%_ - _%tl162940163152%_ - _%e162941163155%_ - _%hd162942163158%_ - _%tl162943163160%_ - _%e162944163163%_ - _%hd162945163166%_ - _%tl162946163168%_ - _%e162947163171%_ - _%hd162948163174%_ - _%tl162949163176%_ - _%e162950163179%_ - _%hd162951163182%_ - _%tl162952163184%_ - _%e162953163187%_ - _%hd162954163190%_ - _%tl162955163192%_ - _%__splice168886168887%_ - _%target162956163195%_ - _%tl162958163197%_ - _%e162971163200%_ - _%hd162972163203%_ - _%tl162973163205%_ - _%e162974163208%_ - _%hd162975163211%_ - _%tl162976163213%_ - _%e162977163216%_ - _%hd162978163219%_ - _%tl162979163221%_) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) + _%tl163079163311%_)) + (_%__match169289169290%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_ + _%e163023163197%_ + _%hd163024163200%_ + _%tl163025163202%_ + _%e163026163205%_ + _%hd163027163208%_ + _%tl163028163210%_ + _%e163029163213%_ + _%hd163030163216%_ + _%tl163031163218%_ + _%e163032163221%_ + _%hd163033163224%_ + _%tl163034163226%_ + _%e163035163229%_ + _%hd163036163232%_ + _%tl163037163234%_ + _%e163038163237%_ + _%hd163039163240%_ + _%tl163040163242%_ + _%e163041163245%_ + _%hd163042163248%_ + _%tl163043163250%_ + _%e163044163253%_ + _%hd163045163256%_ + _%tl163046163258%_ + _%e163047163261%_ + _%hd163048163264%_ + _%tl163049163266%_ + _%e163050163269%_ + _%hd163051163272%_ + _%tl163052163274%_ + _%e163053163277%_ + _%hd163054163280%_ + _%tl163055163282%_ + _%e163056163285%_ + _%hd163057163288%_ + _%tl163058163290%_ + _%e163059163293%_ + _%hd163060163296%_ + _%tl163061163298%_ + _%__splice168992168993%_ + _%target163062163301%_ + _%tl163064163303%_ + _%e163077163306%_ + _%hd163078163309%_ + _%tl163079163311%_ + _%e163080163314%_ + _%hd163081163317%_ + _%tl163082163319%_ + _%e163083163322%_ + _%hd163084163325%_ + _%tl163085163327%_) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169189169190%_ - _%e162914163083%_ - _%hd162915163086%_ - _%tl162916163088%_)))) - (_%__match169043169044%_ - (lambda (_%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_ - _%e162853163490%_ - _%hd162854163493%_ - _%tl162855163495%_ - _%e162856163498%_ - _%hd162857163501%_ - _%tl162858163503%_ - _%e162859163506%_ - _%hd162860163509%_ - _%tl162861163511%_ - _%e162862163514%_ - _%hd162863163517%_ - _%tl162864163519%_ - _%e162865163522%_ - _%hd162866163525%_ - _%tl162867163527%_ - _%e162868163530%_ - _%hd162869163533%_ - _%tl162870163535%_ - _%e162871163538%_ - _%hd162872163541%_ - _%tl162873163543%_ - _%e162874163546%_ - _%hd162875163549%_ - _%tl162876163551%_ - _%e162877163554%_ - _%hd162878163557%_ - _%tl162879163559%_ - _%e162880163562%_ - _%hd162881163565%_ - _%tl162882163567%_ - _%e162883163570%_ - _%hd162884163573%_ - _%tl162885163575%_ - _%e162886163578%_ - _%hd162887163581%_ - _%tl162888163583%_ - _%e162889163586%_ - _%hd162890163589%_ - _%tl162891163591%_ - _%e162892163594%_ - _%hd162893163597%_ - _%tl162894163599%_ - _%e162895163602%_ - _%hd162896163605%_ - _%tl162897163607%_ - _%e162898163610%_ - _%hd162899163613%_ - _%tl162900163615%_ - _%e162901163618%_ - _%hd162902163621%_ - _%tl162903163623%_) - (let ((_%L163626%_ _%hd162902163621%_) - (_%L163627%_ _%hd162893163597%_) - (_%L163628%_ _%hd162884163573%_) - (_%L163629%_ _%hd162875163549%_) - (_%L163630%_ _%hd162866163525%_) - (_%L163631%_ _%hd162851163485%_)) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169295169296%_ + _%e163020163189%_ + _%hd163021163192%_ + _%tl163022163194%_)))) + (_%__match169149169150%_ + (lambda (_%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_ + _%e162959163596%_ + _%hd162960163599%_ + _%tl162961163601%_ + _%e162962163604%_ + _%hd162963163607%_ + _%tl162964163609%_ + _%e162965163612%_ + _%hd162966163615%_ + _%tl162967163617%_ + _%e162968163620%_ + _%hd162969163623%_ + _%tl162970163625%_ + _%e162971163628%_ + _%hd162972163631%_ + _%tl162973163633%_ + _%e162974163636%_ + _%hd162975163639%_ + _%tl162976163641%_ + _%e162977163644%_ + _%hd162978163647%_ + _%tl162979163649%_ + _%e162980163652%_ + _%hd162981163655%_ + _%tl162982163657%_ + _%e162983163660%_ + _%hd162984163663%_ + _%tl162985163665%_ + _%e162986163668%_ + _%hd162987163671%_ + _%tl162988163673%_ + _%e162989163676%_ + _%hd162990163679%_ + _%tl162991163681%_ + _%e162992163684%_ + _%hd162993163687%_ + _%tl162994163689%_ + _%e162995163692%_ + _%hd162996163695%_ + _%tl162997163697%_ + _%e162998163700%_ + _%hd162999163703%_ + _%tl163000163705%_ + _%e163001163708%_ + _%hd163002163711%_ + _%tl163003163713%_ + _%e163004163716%_ + _%hd163005163719%_ + _%tl163006163721%_ + _%e163007163724%_ + _%hd163008163727%_ + _%tl163009163729%_) + (let ((_%L163732%_ _%hd163008163727%_) + (_%L163733%_ _%hd162999163703%_) + (_%L163734%_ _%hd162990163679%_) + (_%L163735%_ _%hd162981163655%_) + (_%L163736%_ _%hd162972163631%_) + (_%L163737%_ _%hd162957163591%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L163631%_)) + (gx#identifier? _%L163737%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163630%_ + _%L163736%_ 'apply)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L163629%_ + _%L163735%_ 'keyword-dispatch)) (let () (declare (not safe)) (gx#free-identifier=? - _%L163631%_ - _%L163626%_))) - (_%__kont168882168883%_ - _%L163626%_ - _%L163627%_ - _%L163628%_ - _%L163629%_ - _%L163630%_ - _%L163631%_) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))))) + _%L163737%_ + _%L163732%_))) + (_%__kont168988168989%_ + _%L163732%_ + _%L163733%_ + _%L163734%_ + _%L163735%_ + _%L163736%_ + _%L163737%_) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx168880168881%_)) - (let ((_%e162847163474%_ + (gx#stx-pair? _%__stx168986168987%_)) + (let ((_%e162953163580%_ (let () (declare (not safe)) - (gx#stx-e _%__stx168880168881%_)))) - (let ((_%tl162849163479%_ + (gx#stx-e _%__stx168986168987%_)))) + (let ((_%tl162955163585%_ (let () (declare (not safe)) - (##cdr _%e162847163474%_))) - (_%hd162848163477%_ + (##cdr _%e162953163580%_))) + (_%hd162954163583%_ (let () (declare (not safe)) - (##car _%e162847163474%_)))) + (##car _%e162953163580%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162849163479%_)) - (let ((_%e162850163482%_ + (gx#stx-pair? _%tl162955163585%_)) + (let ((_%e162956163588%_ (let () (declare (not safe)) - (gx#stx-e _%tl162849163479%_)))) - (let ((_%tl162852163487%_ + (gx#stx-e _%tl162955163585%_)))) + (let ((_%tl162958163593%_ (let () (declare (not safe)) - (##cdr _%e162850163482%_))) - (_%hd162851163485%_ + (##cdr _%e162956163588%_))) + (_%hd162957163591%_ (let () (declare (not safe)) - (##car _%e162850163482%_)))) + (##car _%e162956163588%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162852163487%_)) - (let ((_%e162853163490%_ + (gx#stx-pair? _%tl162958163593%_)) + (let ((_%e162959163596%_ (let () (declare (not safe)) - (gx#stx-e _%tl162852163487%_)))) - (let ((_%tl162855163495%_ + (gx#stx-e _%tl162958163593%_)))) + (let ((_%tl162961163601%_ (let () (declare (not safe)) - (##cdr _%e162853163490%_))) - (_%hd162854163493%_ + (##cdr _%e162959163596%_))) + (_%hd162960163599%_ (let () (declare (not safe)) - (##car _%e162853163490%_)))) + (##car _%e162959163596%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162854163493%_)) - (let ((_%e162856163498%_ + (gx#stx-pair? _%hd162960163599%_)) + (let ((_%e162962163604%_ (let () (declare (not safe)) (gx#stx-e - _%hd162854163493%_)))) - (let ((_%tl162858163503%_ + _%hd162960163599%_)))) + (let ((_%tl162964163609%_ (let () (declare (not safe)) - (##cdr _%e162856163498%_))) - (_%hd162857163501%_ + (##cdr _%e162962163604%_))) + (_%hd162963163607%_ (let () (declare (not safe)) - (##car _%e162856163498%_)))) + (##car _%e162962163604%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162857163501%_)) + _%hd162963163607%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd162857163501%_)) + _%hd162963163607%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162858163503%_)) - (let ((_%e162859163506%_ + _%tl162964163609%_)) + (let ((_%e162965163612%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl162858163503%_)))) - (let ((_%tl162861163511%_ + (gx#stx-e _%tl162964163609%_)))) + (let ((_%tl162967163617%_ (let () (declare (not safe)) - (##cdr _%e162859163506%_))) - (_%hd162860163509%_ + (##cdr _%e162965163612%_))) + (_%hd162966163615%_ (let () (declare (not safe)) - (##car _%e162859163506%_)))) + (##car _%e162965163612%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162860163509%_)) - (let ((_%e162862163514%_ + (gx#stx-pair? _%hd162966163615%_)) + (let ((_%e162968163620%_ (let () (declare (not safe)) - (gx#stx-e _%hd162860163509%_)))) - (let ((_%tl162864163519%_ + (gx#stx-e _%hd162966163615%_)))) + (let ((_%tl162970163625%_ (let () (declare (not safe)) - (##cdr _%e162862163514%_))) - (_%hd162863163517%_ + (##cdr _%e162968163620%_))) + (_%hd162969163623%_ (let () (declare (not safe)) - (##car _%e162862163514%_)))) + (##car _%e162968163620%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162863163517%_)) + (gx#identifier? _%hd162969163623%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162863163517%_)) + (gx#stx-eq? '%#ref _%hd162969163623%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162864163519%_)) - (let ((_%e162865163522%_ + (gx#stx-pair? _%tl162970163625%_)) + (let ((_%e162971163628%_ (let () (declare (not safe)) (gx#stx-e - _%tl162864163519%_)))) - (let ((_%tl162867163527%_ + _%tl162970163625%_)))) + (let ((_%tl162973163633%_ (let () (declare (not safe)) - (##cdr _%e162865163522%_))) - (_%hd162866163525%_ + (##cdr _%e162971163628%_))) + (_%hd162972163631%_ (let () (declare (not safe)) - (##car _%e162865163522%_)))) + (##car _%e162971163628%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162867163527%_)) + _%tl162973163633%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162861163511%_)) - (let ((_%e162868163530%_ + _%tl162967163617%_)) + (let ((_%e162974163636%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl162861163511%_)))) - (let ((_%tl162870163535%_ - (let () (declare (not safe)) (##cdr _%e162868163530%_))) - (_%hd162869163533%_ + (gx#stx-e _%tl162967163617%_)))) + (let ((_%tl162976163641%_ + (let () (declare (not safe)) (##cdr _%e162974163636%_))) + (_%hd162975163639%_ (let () (declare (not safe)) - (##car _%e162868163530%_)))) + (##car _%e162974163636%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162869163533%_)) - (let ((_%e162871163538%_ + (gx#stx-pair? _%hd162975163639%_)) + (let ((_%e162977163644%_ (let () (declare (not safe)) - (gx#stx-e _%hd162869163533%_)))) - (let ((_%tl162873163543%_ + (gx#stx-e _%hd162975163639%_)))) + (let ((_%tl162979163649%_ (let () (declare (not safe)) - (##cdr _%e162871163538%_))) - (_%hd162872163541%_ + (##cdr _%e162977163644%_))) + (_%hd162978163647%_ (let () (declare (not safe)) - (##car _%e162871163538%_)))) + (##car _%e162977163644%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162872163541%_)) + (gx#identifier? _%hd162978163647%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162872163541%_)) + (gx#stx-eq? '%#ref _%hd162978163647%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162873163543%_)) - (let ((_%e162874163546%_ + (gx#stx-pair? _%tl162979163649%_)) + (let ((_%e162980163652%_ (let () (declare (not safe)) - (gx#stx-e _%tl162873163543%_)))) - (let ((_%tl162876163551%_ + (gx#stx-e _%tl162979163649%_)))) + (let ((_%tl162982163657%_ (let () (declare (not safe)) - (##cdr _%e162874163546%_))) - (_%hd162875163549%_ + (##cdr _%e162980163652%_))) + (_%hd162981163655%_ (let () (declare (not safe)) - (##car _%e162874163546%_)))) + (##car _%e162980163652%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162876163551%_)) + _%tl162982163657%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162870163535%_)) - (let ((_%e162877163554%_ + _%tl162976163641%_)) + (let ((_%e162983163660%_ (let () (declare (not safe)) (gx#stx-e - _%tl162870163535%_)))) - (let ((_%tl162879163559%_ + _%tl162976163641%_)))) + (let ((_%tl162985163665%_ (let () (declare (not safe)) - (##cdr _%e162877163554%_))) - (_%hd162878163557%_ + (##cdr _%e162983163660%_))) + (_%hd162984163663%_ (let () (declare (not safe)) - (##car _%e162877163554%_)))) + (##car _%e162983163660%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162878163557%_)) - (let ((_%e162880163562%_ + _%hd162984163663%_)) + (let ((_%e162986163668%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd162878163557%_)))) - (let ((_%tl162882163567%_ + (gx#stx-e _%hd162984163663%_)))) + (let ((_%tl162988163673%_ (let () (declare (not safe)) - (##cdr _%e162880163562%_))) - (_%hd162881163565%_ + (##cdr _%e162986163668%_))) + (_%hd162987163671%_ (let () (declare (not safe)) - (##car _%e162880163562%_)))) + (##car _%e162986163668%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162881163565%_)) + (gx#identifier? _%hd162987163671%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd162881163565%_)) + (gx#stx-eq? '%#quote _%hd162987163671%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162882163567%_)) - (let ((_%e162883163570%_ + (gx#stx-pair? _%tl162988163673%_)) + (let ((_%e162989163676%_ (let () (declare (not safe)) - (gx#stx-e _%tl162882163567%_)))) - (let ((_%tl162885163575%_ + (gx#stx-e _%tl162988163673%_)))) + (let ((_%tl162991163681%_ (let () (declare (not safe)) - (##cdr _%e162883163570%_))) - (_%hd162884163573%_ + (##cdr _%e162989163676%_))) + (_%hd162990163679%_ (let () (declare (not safe)) - (##car _%e162883163570%_)))) + (##car _%e162989163676%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162885163575%_)) + (gx#stx-null? _%tl162991163681%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162879163559%_)) - (let ((_%e162886163578%_ + _%tl162985163665%_)) + (let ((_%e162992163684%_ (let () (declare (not safe)) (gx#stx-e - _%tl162879163559%_)))) - (let ((_%tl162888163583%_ + _%tl162985163665%_)))) + (let ((_%tl162994163689%_ (let () (declare (not safe)) - (##cdr _%e162886163578%_))) - (_%hd162887163581%_ + (##cdr _%e162992163684%_))) + (_%hd162993163687%_ (let () (declare (not safe)) - (##car _%e162886163578%_)))) + (##car _%e162992163684%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162887163581%_)) - (let ((_%e162889163586%_ + _%hd162993163687%_)) + (let ((_%e162995163692%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd162887163581%_)))) - (let ((_%tl162891163591%_ - (let () (declare (not safe)) (##cdr _%e162889163586%_))) - (_%hd162890163589%_ + (gx#stx-e _%hd162993163687%_)))) + (let ((_%tl162997163697%_ + (let () (declare (not safe)) (##cdr _%e162995163692%_))) + (_%hd162996163695%_ (let () (declare (not safe)) - (##car _%e162889163586%_)))) + (##car _%e162995163692%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd162890163589%_)) + (gx#identifier? _%hd162996163695%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd162890163589%_)) + (gx#stx-eq? '%#ref _%hd162996163695%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162891163591%_)) - (let ((_%e162892163594%_ + (gx#stx-pair? _%tl162997163697%_)) + (let ((_%e162998163700%_ (let () (declare (not safe)) - (gx#stx-e _%tl162891163591%_)))) - (let ((_%tl162894163599%_ + (gx#stx-e _%tl162997163697%_)))) + (let ((_%tl163000163705%_ (let () (declare (not safe)) - (##cdr _%e162892163594%_))) - (_%hd162893163597%_ + (##cdr _%e162998163700%_))) + (_%hd162999163703%_ (let () (declare (not safe)) - (##car _%e162892163594%_)))) + (##car _%e162998163700%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162894163599%_)) + (gx#stx-null? _%tl163000163705%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162888163583%_)) - (let ((_%e162895163602%_ + (gx#stx-pair? _%tl162994163689%_)) + (let ((_%e163001163708%_ (let () (declare (not safe)) (gx#stx-e - _%tl162888163583%_)))) - (let ((_%tl162897163607%_ + _%tl162994163689%_)))) + (let ((_%tl163003163713%_ (let () (declare (not safe)) - (##cdr _%e162895163602%_))) - (_%hd162896163605%_ + (##cdr _%e163001163708%_))) + (_%hd163002163711%_ (let () (declare (not safe)) - (##car _%e162895163602%_)))) + (##car _%e163001163708%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd162896163605%_)) - (let ((_%e162898163610%_ + _%hd163002163711%_)) + (let ((_%e163004163716%_ (let () (declare (not safe)) (gx#stx-e - _%hd162896163605%_)))) - (let ((_%tl162900163615%_ + _%hd163002163711%_)))) + (let ((_%tl163006163721%_ (let () (declare (not safe)) - (##cdr _%e162898163610%_))) - (_%hd162899163613%_ + (##cdr _%e163004163716%_))) + (_%hd163005163719%_ (let () (declare (not safe)) - (##car _%e162898163610%_)))) + (##car _%e163004163716%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162899163613%_)) + _%hd163005163719%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-eq? '%#ref _%hd162899163613%_)) + (gx#stx-eq? '%#ref _%hd163005163719%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162900163615%_)) - (let ((_%e162901163618%_ + (gx#stx-pair? _%tl163006163721%_)) + (let ((_%e163007163724%_ (let () (declare (not safe)) - (gx#stx-e _%tl162900163615%_)))) - (let ((_%tl162903163623%_ + (gx#stx-e _%tl163006163721%_)))) + (let ((_%tl163009163729%_ (let () (declare (not safe)) - (##cdr _%e162901163618%_))) - (_%hd162902163621%_ + (##cdr _%e163007163724%_))) + (_%hd163008163727%_ (let () (declare (not safe)) - (##car _%e162901163618%_)))) + (##car _%e163007163724%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162903163623%_)) + (gx#stx-null? _%tl163009163729%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162897163607%_)) + (gx#stx-null? _%tl163003163713%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl162855163495%_)) - (_%__match169043169044%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_ - _%e162853163490%_ - _%hd162854163493%_ - _%tl162855163495%_ - _%e162856163498%_ - _%hd162857163501%_ - _%tl162858163503%_ - _%e162859163506%_ - _%hd162860163509%_ - _%tl162861163511%_ - _%e162862163514%_ - _%hd162863163517%_ - _%tl162864163519%_ - _%e162865163522%_ - _%hd162866163525%_ - _%tl162867163527%_ - _%e162868163530%_ - _%hd162869163533%_ - _%tl162870163535%_ - _%e162871163538%_ - _%hd162872163541%_ - _%tl162873163543%_ - _%e162874163546%_ - _%hd162875163549%_ - _%tl162876163551%_ - _%e162877163554%_ - _%hd162878163557%_ - _%tl162879163559%_ - _%e162880163562%_ - _%hd162881163565%_ - _%tl162882163567%_ - _%e162883163570%_ - _%hd162884163573%_ - _%tl162885163575%_ - _%e162886163578%_ - _%hd162887163581%_ - _%tl162888163583%_ - _%e162889163586%_ - _%hd162890163589%_ - _%tl162891163591%_ - _%e162892163594%_ - _%hd162893163597%_ - _%tl162894163599%_ - _%e162895163602%_ - _%hd162896163605%_ - _%tl162897163607%_ - _%e162898163610%_ - _%hd162899163613%_ - _%tl162900163615%_ - _%e162901163618%_ - _%hd162902163621%_ - _%tl162903163623%_) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) + (gx#stx-null? _%tl162961163601%_)) + (_%__match169149169150%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_ + _%e162959163596%_ + _%hd162960163599%_ + _%tl162961163601%_ + _%e162962163604%_ + _%hd162963163607%_ + _%tl162964163609%_ + _%e162965163612%_ + _%hd162966163615%_ + _%tl162967163617%_ + _%e162968163620%_ + _%hd162969163623%_ + _%tl162970163625%_ + _%e162971163628%_ + _%hd162972163631%_ + _%tl162973163633%_ + _%e162974163636%_ + _%hd162975163639%_ + _%tl162976163641%_ + _%e162977163644%_ + _%hd162978163647%_ + _%tl162979163649%_ + _%e162980163652%_ + _%hd162981163655%_ + _%tl162982163657%_ + _%e162983163660%_ + _%hd162984163663%_ + _%tl162985163665%_ + _%e162986163668%_ + _%hd162987163671%_ + _%tl162988163673%_ + _%e162989163676%_ + _%hd162990163679%_ + _%tl162991163681%_ + _%e162992163684%_ + _%hd162993163687%_ + _%tl162994163689%_ + _%e162995163692%_ + _%hd162996163695%_ + _%tl162997163697%_ + _%e162998163700%_ + _%hd162999163703%_ + _%tl163000163705%_ + _%e163001163708%_ + _%hd163002163711%_ + _%tl163003163713%_ + _%e163004163716%_ + _%hd163005163719%_ + _%tl163006163721%_ + _%e163007163724%_ + _%hd163008163727%_ + _%tl163009163729%_) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169055169056%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_ - _%e162850163482%_ - _%hd162851163485%_ - _%tl162852163487%_)))) - (_%__match169189169190%_ - _%e162847163474%_ - _%hd162848163477%_ - _%tl162849163479%_)))) - (let () (declare (not safe)) (_%g162839163031%_)))))))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169161169162%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_ + _%e162956163588%_ + _%hd162957163591%_ + _%tl162958163593%_)))) + (_%__match169295169296%_ + _%e162953163580%_ + _%hd162954163583%_ + _%tl162955163585%_)))) + (let () (declare (not safe)) (_%g162945163137%_)))))))) (define gxc#basic-expression-type-case-lambda% - (lambda (_%self162703%_ _%stx162704%_) - (letrec ((_%clause-e162706%_ - (lambda (_%form162829%_) - (let* ((_%signature162831%_ - (gxc#lambda-form-infer-signature _%form162829%_)) - (__obj171029 + (lambda (_%self162809%_ _%stx162810%_) + (letrec ((_%clause-e162812%_ + (lambda (_%form162935%_) + (let* ((_%signature162937%_ + (gxc#lambda-form-infer-signature _%form162935%_)) + (__obj171135 (let () (declare (not safe)) (##structure @@ -11163,126 +11163,126 @@ '#f '#f '#f)))) - (let ((__tmp171216 - (gxc#lambda-form-arity _%form162829%_)) - (__tmp171215 - (if (gxc#dispatch-lambda-form? _%form162829%_) + (let ((__tmp171322 + (gxc#lambda-form-arity _%form162935%_)) + (__tmp171321 + (if (gxc#dispatch-lambda-form? _%form162935%_) (gxc#dispatch-lambda-form-delegate - _%form162829%_) + _%form162935%_) '#f))) (declare (not safe)) (gxc#!lambda:::init!__% '#f - _%signature162831%_ - __obj171029 - __tmp171216 - __tmp171215)) - __obj171029))) - (_%return-type-e162707%_ - (lambda (_%clauses162757%_) - (let _%loop162759%_ ((_%rest162761%_ _%clauses162757%_) - (_%result162762%_ '#f)) - (let* ((_%rest162763162771%_ _%rest162761%_) - (_%else162765162779%_ - (lambda () _%result162762%_)) - (_%K162767162817%_ - (lambda (_%rest162782%_ _%clause162783%_) - (let* ((_%clause162785%_ _%clause162783%_) - (_%return162809%_ - (let* ((_%signature162798%_ + _%signature162937%_ + __obj171135 + __tmp171322 + __tmp171321)) + __obj171135))) + (_%return-type-e162813%_ + (lambda (_%clauses162863%_) + (let _%loop162865%_ ((_%rest162867%_ _%clauses162863%_) + (_%result162868%_ '#f)) + (let* ((_%rest162869162877%_ _%rest162867%_) + (_%else162871162885%_ + (lambda () _%result162868%_)) + (_%K162873162923%_ + (lambda (_%rest162888%_ _%clause162889%_) + (let* ((_%clause162891%_ _%clause162889%_) + (_%return162915%_ + (let* ((_%signature162904%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%clause162785%_ + _%clause162891%_ '2 '#f '#f))) - (_%signature162800%_ - _%signature162798%_)) - (if _%signature162800%_ + (_%signature162906%_ + _%signature162904%_)) + (if _%signature162906%_ (if (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162800%_ + _%signature162906%_ '1 '#f '#f)) - (let ((__tmp171217 + (let ((__tmp171323 (let () (declare (not safe)) (##unchecked-structure-ref - _%signature162800%_ + _%signature162906%_ '1 '#f '#f)))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx162704%_ - __tmp171217)) + _%stx162810%_ + __tmp171323)) '#f) '#f))) - (_%result162814%_ - (if (and _%result162762%_ - _%return162809%_) + (_%result162920%_ + (if (and _%result162868%_ + _%return162915%_) (gxc#greatest-common-type - _%stx162704%_ - _%result162762%_ - _%return162809%_) - (let ((_%$e162811%_ - _%result162762%_)) - (if _%$e162811%_ - _%$e162811%_ - _%return162809%_))))) - (_%loop162759%_ - _%rest162782%_ - _%result162814%_))))) - (if (pair? _%rest162763162771%_) - (let ((_%hd162768162820%_ + _%stx162810%_ + _%result162868%_ + _%return162915%_) + (let ((_%$e162917%_ + _%result162868%_)) + (if _%$e162917%_ + _%$e162917%_ + _%return162915%_))))) + (_%loop162865%_ + _%rest162888%_ + _%result162920%_))))) + (if (pair? _%rest162869162877%_) + (let ((_%hd162874162926%_ (let () (declare (not safe)) - (##car _%rest162763162771%_))) - (_%tl162769162822%_ + (##car _%rest162869162877%_))) + (_%tl162875162928%_ (let () (declare (not safe)) - (##cdr _%rest162763162771%_)))) - (let* ((_%clause162825%_ _%hd162768162820%_) - (_%rest162827%_ _%tl162769162822%_)) - (_%K162767162817%_ - _%rest162827%_ - _%clause162825%_))) - (_%else162765162779%_))))))) - (let* ((_%g162709162719%_ - (lambda (_%g162710162716%_) + (##cdr _%rest162869162877%_)))) + (let* ((_%clause162931%_ _%hd162874162926%_) + (_%rest162933%_ _%tl162875162928%_)) + (_%K162873162923%_ + _%rest162933%_ + _%clause162931%_))) + (_%else162871162885%_))))))) + (let* ((_%g162815162825%_ + (lambda (_%g162816162822%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g162710162716%_)))) - (_%g162708162754%_ - (lambda (_%g162710162722%_) + _%g162816162822%_)))) + (_%g162814162860%_ + (lambda (_%g162816162828%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g162710162722%_)) - (let ((_%e162712162724%_ + (gx#stx-pair? _%g162816162828%_)) + (let ((_%e162818162830%_ (let () (declare (not safe)) - (gx#stx-e _%g162710162722%_)))) - (let ((_%hd162713162727%_ + (gx#stx-e _%g162816162828%_)))) + (let ((_%hd162819162833%_ (let () (declare (not safe)) - (##car _%e162712162724%_))) - (_%tl162714162729%_ + (##car _%e162818162830%_))) + (_%tl162820162835%_ (let () (declare (not safe)) - (##cdr _%e162712162724%_)))) - ((lambda (_%L162732%_) - (let* ((_%clauses162743%_ - (map _%clause-e162706%_ _%L162732%_)) - (_%return162745%_ - (_%return-type-e162707%_ - _%clauses162743%_)) - (__obj171031 + (##cdr _%e162818162830%_)))) + ((lambda (_%L162838%_) + (let* ((_%clauses162849%_ + (map _%clause-e162812%_ _%L162838%_)) + (_%return162851%_ + (_%return-type-e162813%_ + _%clauses162849%_)) + (__obj171137 (let () (declare (not safe)) (##structure @@ -11290,17 +11290,17 @@ '#f '#f '#f)))) - (let ((__tmp171218 - (if _%return162745%_ - (let ((_%return-type162747162749%_ + (let ((__tmp171324 + (if _%return162851%_ + (let ((_%return-type162853162855%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return162745%_)))) - (if _%return-type162747162749%_ - (let* ((_%return-type162752%_ - _%return-type162747162749%_) - (__obj171030 + _%return162851%_)))) + (if _%return-type162853162855%_ + (let* ((_%return-type162858%_ + _%return-type162853162855%_) + (__obj171136 (let () (declare (not safe)) @@ -11314,216 +11314,216 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171030 - _%return-type162752%_ + __obj171136 + _%return-type162858%_ '1 '#f '#f)) - __obj171030) + __obj171136) '#f)) '#f))) (declare (not safe)) (gxc#!case-lambda:::init!__% '#f - __tmp171218 - __obj171031 - _%clauses162743%_)) - __obj171031)) - _%tl162714162729%_))) - (_%g162709162719%_ _%g162710162722%_))))) - (_%g162708162754%_ _%stx162704%_))))) + __tmp171324 + __obj171137 + _%clauses162849%_)) + __obj171137)) + _%tl162820162835%_))) + (_%g162815162825%_ _%g162816162828%_))))) + (_%g162814162860%_ _%stx162810%_))))) (define gxc#basic-expression-type-special (let () (declare (not safe)) (make-hash-table-eq))) (define gxc#basic-expression-type-call% - (lambda (_%self162563%_ _%stx162564%_) - (letrec ((_%type-e162566%_ - (lambda (_%rator162696%_ _%rator-type162697%_ _%args162698%_) - (if (not _%rator-type162697%_) + (lambda (_%self162669%_ _%stx162670%_) + (letrec ((_%type-e162672%_ + (lambda (_%rator162802%_ _%rator-type162803%_ _%args162804%_) + (if (not _%rator-type162803%_) '#f (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type162697%_ + _%rator-type162803%_ 'gxc#!procedure::t)) - (let ((__method171032 + (let ((__method171138 (let () (declare (not safe)) (__method-ref - _%rator-type162697%_ + _%rator-type162803%_ 'return-type)))) - (if __method171032 + (if __method171138 (let () (declare (not safe)) - (__method171032 - _%rator-type162697%_ - _%self162563%_ - _%stx162564%_ - _%args162698%_)) + (__method171138 + _%rator-type162803%_ + _%self162669%_ + _%stx162670%_ + _%args162804%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type162697%_ + _%rator-type162803%_ 'return-type)) '#!void))) '#f))))) - (let* ((_%__stx169198169199%_ _%stx162564%_) - (_%g162569162597%_ + (let* ((_%__stx169304169305%_ _%stx162670%_) + (_%g162675162703%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169198169199%_))))) - (let ((_%__kont169200169201%_ - (lambda (_%L162670%_ _%L162671%_) - (let ((_%$e162687%_ - (let ((__tmp171219 + _%__stx169304169305%_))))) + (let ((_%__kont169306169307%_ + (lambda (_%L162776%_ _%L162777%_) + (let ((_%$e162793%_ + (let ((__tmp171325 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162671%_)))) + (gxc#identifier-symbol _%L162777%_)))) (declare (not safe)) (__hash-get gxc#basic-expression-type-special - __tmp171219)))) - (if _%$e162687%_ - ((lambda (_%type-e162690%_) - (_%type-e162690%_ _%self162563%_ _%stx162564%_)) - _%$e162687%_) - (_%type-e162566%_ - _%L162671%_ - (let ((__tmp171220 + __tmp171325)))) + (if _%$e162793%_ + ((lambda (_%type-e162796%_) + (_%type-e162796%_ _%self162669%_ _%stx162670%_)) + _%$e162793%_) + (_%type-e162672%_ + _%L162777%_ + (let ((__tmp171326 (let () (declare (not safe)) - (gxc#identifier-symbol _%L162671%_)))) + (gxc#identifier-symbol _%L162777%_)))) (declare (not safe)) - (gxc#optimizer-resolve-type __tmp171220)) - _%L162670%_))))) - (_%__kont169202169203%_ - (lambda (_%L162618%_ _%L162619%_) - (_%type-e162566%_ - _%L162619%_ - (gxc#apply-basic-expression-type _%L162619%_) - _%L162618%_)))) + (gxc#optimizer-resolve-type __tmp171326)) + _%L162776%_))))) + (_%__kont169308169309%_ + (lambda (_%L162724%_ _%L162725%_) + (_%type-e162672%_ + _%L162725%_ + (gxc#apply-basic-expression-type _%L162725%_) + _%L162724%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169198169199%_)) - (let ((_%e162573162638%_ + (gx#stx-pair? _%__stx169304169305%_)) + (let ((_%e162679162744%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169198169199%_)))) - (let ((_%tl162575162643%_ + (gx#stx-e _%__stx169304169305%_)))) + (let ((_%tl162681162749%_ (let () (declare (not safe)) - (##cdr _%e162573162638%_))) - (_%hd162574162641%_ + (##cdr _%e162679162744%_))) + (_%hd162680162747%_ (let () (declare (not safe)) - (##car _%e162573162638%_)))) + (##car _%e162679162744%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl162575162643%_)) - (let ((_%e162576162646%_ + (gx#stx-pair? _%tl162681162749%_)) + (let ((_%e162682162752%_ (let () (declare (not safe)) - (gx#stx-e _%tl162575162643%_)))) - (let ((_%tl162578162651%_ + (gx#stx-e _%tl162681162749%_)))) + (let ((_%tl162684162757%_ (let () (declare (not safe)) - (##cdr _%e162576162646%_))) - (_%hd162577162649%_ + (##cdr _%e162682162752%_))) + (_%hd162683162755%_ (let () (declare (not safe)) - (##car _%e162576162646%_)))) + (##car _%e162682162752%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd162577162649%_)) - (let ((_%e162579162654%_ + (gx#stx-pair? _%hd162683162755%_)) + (let ((_%e162685162760%_ (let () (declare (not safe)) - (gx#stx-e _%hd162577162649%_)))) - (let ((_%tl162581162659%_ + (gx#stx-e _%hd162683162755%_)))) + (let ((_%tl162687162765%_ (let () (declare (not safe)) - (##cdr _%e162579162654%_))) - (_%hd162580162657%_ + (##cdr _%e162685162760%_))) + (_%hd162686162763%_ (let () (declare (not safe)) - (##car _%e162579162654%_)))) + (##car _%e162685162760%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd162580162657%_)) + _%hd162686162763%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd162580162657%_)) + _%hd162686162763%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl162581162659%_)) - (let ((_%e162582162662%_ + _%tl162687162765%_)) + (let ((_%e162688162768%_ (let () (declare (not safe)) (gx#stx-e - _%tl162581162659%_)))) - (let ((_%tl162584162667%_ + _%tl162687162765%_)))) + (let ((_%tl162690162773%_ (let () (declare (not safe)) - (##cdr _%e162582162662%_))) - (_%hd162583162665%_ + (##cdr _%e162688162768%_))) + (_%hd162689162771%_ (let () (declare (not safe)) - (##car _%e162582162662%_)))) + (##car _%e162688162768%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl162584162667%_)) - (_%__kont169200169201%_ - _%tl162578162651%_ - _%hd162583162665%_) - (_%__kont169202169203%_ - _%tl162578162651%_ - _%hd162577162649%_)))) - (_%__kont169202169203%_ - _%tl162578162651%_ - _%hd162577162649%_)) - (_%__kont169202169203%_ - _%tl162578162651%_ - _%hd162577162649%_)) - (_%__kont169202169203%_ - _%tl162578162651%_ - _%hd162577162649%_)))) - (_%__kont169202169203%_ - _%tl162578162651%_ - _%hd162577162649%_)))) - (let () (declare (not safe)) (_%g162569162597%_))))) - (let () (declare (not safe)) (_%g162569162597%_)))))))) + _%tl162690162773%_)) + (_%__kont169306169307%_ + _%tl162684162757%_ + _%hd162689162771%_) + (_%__kont169308169309%_ + _%tl162684162757%_ + _%hd162683162755%_)))) + (_%__kont169308169309%_ + _%tl162684162757%_ + _%hd162683162755%_)) + (_%__kont169308169309%_ + _%tl162684162757%_ + _%hd162683162755%_)) + (_%__kont169308169309%_ + _%tl162684162757%_ + _%hd162683162755%_)))) + (_%__kont169308169309%_ + _%tl162684162757%_ + _%hd162683162755%_)))) + (let () (declare (not safe)) (_%g162675162703%_))))) + (let () (declare (not safe)) (_%g162675162703%_)))))))) (define gxc#!procedure::return-type - (lambda (_%self154306162545%_ _%ctx162547%_ _%stx162548%_ _%args162549%_) - (let* ((_%self162551%_ _%self154306162545%_) - (_%self162553%_ _%self162551%_)) + (lambda (_%self154412162651%_ _%ctx162653%_ _%stx162654%_ _%args162655%_) + (let* ((_%self162657%_ _%self154412162651%_) + (_%self162659%_ _%self162657%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162553%_ '2 '#f '#f)) - (let ((__tmp171221 - (let ((__tmp171222 + (##unchecked-structure-ref _%self162659%_ '2 '#f '#f)) + (let ((__tmp171327 + (let ((__tmp171328 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162553%_ + _%self162659%_ '2 '#f '#f)))) (declare (not safe)) - (##unchecked-structure-ref __tmp171222 '1 '#f '#f)))) + (##unchecked-structure-ref __tmp171328 '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx162548%_ __tmp171221)) + (gxc#optimizer-resolve-class _%stx162654%_ __tmp171327)) '#f)))) (let () (declare (not safe)) @@ -11541,59 +11541,59 @@ gxc#!procedure::apply-return-type '#f)) (define gxc#!lambda::return-type - (lambda (_%self154307162277%_ _%ctx162279%_ _%stx162280%_ _%args162281%_) - (let* ((_%self162283%_ _%self154307162277%_) - (_%self162285%_ _%self162283%_)) + (lambda (_%self154413162383%_ _%ctx162385%_ _%stx162386%_ _%args162387%_) + (let* ((_%self162389%_ _%self154413162383%_) + (_%self162391%_ _%self162389%_)) (if (let () (declare (not safe)) - (##unchecked-structure-ref _%self162285%_ '4 '#f '#f)) - (let ((_%dispatch-type162294162296%_ - (let ((__tmp171223 + (##unchecked-structure-ref _%self162391%_ '4 '#f '#f)) + (let ((_%dispatch-type162400162402%_ + (let ((__tmp171329 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162285%_ + _%self162391%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171223)))) - (if _%dispatch-type162294162296%_ - (let ((_%dispatch-type162299%_ - _%dispatch-type162294162296%_)) + (gxc#optimizer-lookup-type __tmp171329)))) + (if _%dispatch-type162400162402%_ + (let ((_%dispatch-type162405%_ + _%dispatch-type162400162402%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%dispatch-type162299%_ + _%dispatch-type162405%_ 'gxc#!procedure::t)) - (let ((__method171033 + (let ((__method171139 (let () (declare (not safe)) (__method-ref - _%dispatch-type162299%_ + _%dispatch-type162405%_ 'return-type)))) - (if __method171033 + (if __method171139 (let () (declare (not safe)) - (__method171033 - _%dispatch-type162299%_ - _%ctx162279%_ - _%stx162280%_ - _%args162281%_)) + (__method171139 + _%dispatch-type162405%_ + _%ctx162385%_ + _%stx162386%_ + _%args162387%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%dispatch-type162299%_ + _%dispatch-type162405%_ 'return-type)) '#!void))) '#f)) '#f)) (gxc#!procedure::return-type - _%self162285%_ - _%ctx162279%_ - _%stx162280%_ - _%args162281%_))))) + _%self162391%_ + _%ctx162385%_ + _%stx162386%_ + _%args162387%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11610,52 +11610,52 @@ gxc#!lambda::apply-return-type '#f)) (define gxc#!case-lambda::return-type - (lambda (_%self154308162005%_ _%ctx162007%_ _%stx162008%_ _%args162009%_) - (let* ((_%self162011%_ _%self154308162005%_) - (_%self162013%_ _%self162011%_) - (_%$e162027%_ - (let ((__tmp171225 - (lambda (_%g162022162024%_) + (lambda (_%self154414162111%_ _%ctx162113%_ _%stx162114%_ _%args162115%_) + (let* ((_%self162117%_ _%self154414162111%_) + (_%self162119%_ _%self162117%_) + (_%$e162133%_ + (let ((__tmp171331 + (lambda (_%g162128162130%_) (gxc#!lambda-arity-match? - _%g162022162024%_ - _%args162009%_))) - (__tmp171224 + _%g162128162130%_ + _%args162115%_))) + (__tmp171330 (let () (declare (not safe)) (##unchecked-structure-ref - _%self162013%_ + _%self162119%_ '3 '#f '#f)))) (declare (not safe)) - (__find __tmp171225 __tmp171224)))) - (if _%$e162027%_ - ((lambda (_%clause162030%_) - (let ((__method171034 + (__find __tmp171331 __tmp171330)))) + (if _%$e162133%_ + ((lambda (_%clause162136%_) + (let ((__method171140 (let () (declare (not safe)) - (__method-ref _%clause162030%_ 'return-type)))) - (if __method171034 + (__method-ref _%clause162136%_ 'return-type)))) + (if __method171140 (let () (declare (not safe)) - (__method171034 - _%clause162030%_ - _%ctx162007%_ - _%stx162008%_ - _%args162009%_)) + (__method171140 + _%clause162136%_ + _%ctx162113%_ + _%stx162114%_ + _%args162115%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause162030%_ + _%clause162136%_ 'return-type)) '#!void)))) - _%$e162027%_) + _%$e162133%_) (gxc#!procedure::return-type - _%self162013%_ - _%ctx162007%_ - _%stx162008%_ - _%args162009%_))))) + _%self162119%_ + _%ctx162113%_ + _%stx162114%_ + _%args162115%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11664,73 +11664,73 @@ gxc#!case-lambda::return-type '#f)) (define gxc#!case-lambda::apply-return-type - (lambda (_%self154309161851%_ _%ctx161853%_ _%stx161854%_ _%args161855%_) - (let* ((_%self161857%_ _%self154309161851%_) - (_%self161859%_ _%self161857%_) - (_%candidates161873%_ - (filter (lambda (_%g161868161870%_) + (lambda (_%self154415161957%_ _%ctx161959%_ _%stx161960%_ _%args161961%_) + (let* ((_%self161963%_ _%self154415161957%_) + (_%self161965%_ _%self161963%_) + (_%candidates161979%_ + (filter (lambda (_%g161974161976%_) (gxc#!lambda-arity-match-apply? - _%g161868161870%_ - _%args161855%_)) + _%g161974161976%_ + _%args161961%_)) (let () (declare (not safe)) (##unchecked-structure-ref - _%self161859%_ + _%self161965%_ '3 '#f '#f)))) - (_%candidate-types161877%_ - (let ((__tmp171226 - (lambda (_%candidate161875%_) - (let ((__method171035 + (_%candidate-types161983%_ + (let ((__tmp171332 + (lambda (_%candidate161981%_) + (let ((__method171141 (let () (declare (not safe)) (__method-ref - _%candidate161875%_ + _%candidate161981%_ 'apply-return-type)))) - (if __method171035 + (if __method171141 (let () (declare (not safe)) - (__method171035 - _%candidate161875%_ - _%ctx161853%_ - _%stx161854%_ - _%args161855%_)) + (__method171141 + _%candidate161981%_ + _%ctx161959%_ + _%stx161960%_ + _%args161961%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%candidate161875%_ + _%candidate161981%_ 'apply-return-type)) '#!void)))))) (declare (not safe)) - (##map __tmp171226 _%candidates161873%_)))) - (if (pair? _%candidate-types161877%_) - (let ((__tmp171229 - (lambda (_%candidate-type161880%_ _%ret161881%_) - (if _%ret161881%_ - (if _%candidate-type161880%_ + (##map __tmp171332 _%candidates161979%_)))) + (if (pair? _%candidate-types161983%_) + (let ((__tmp171335 + (lambda (_%candidate-type161986%_ _%ret161987%_) + (if _%ret161987%_ + (if _%candidate-type161986%_ (gxc#greatest-common-type - _%stx161854%_ - _%candidate-type161880%_ - _%ret161881%_) + _%stx161960%_ + _%candidate-type161986%_ + _%ret161987%_) '#f) '#f))) - (__tmp171228 + (__tmp171334 (let () (declare (not safe)) - (##car _%candidate-types161877%_))) - (__tmp171227 + (##car _%candidate-types161983%_))) + (__tmp171333 (let () (declare (not safe)) - (##cdr _%candidate-types161877%_)))) + (##cdr _%candidate-types161983%_)))) (declare (not safe)) - (__foldl1 __tmp171229 __tmp171228 __tmp171227)) + (__foldl1 __tmp171335 __tmp171334 __tmp171333)) (gxc#!procedure::return-type - _%self161859%_ - _%ctx161853%_ - _%stx161854%_ - _%args161855%_))))) + _%self161965%_ + _%ctx161959%_ + _%stx161960%_ + _%args161961%_))))) (let () (declare (not safe)) (__bind-method!__% @@ -11739,135 +11739,135 @@ gxc#!case-lambda::apply-return-type '#f)) (define gxc#!kw-lambda::return-type - (lambda (_%self154310161655%_ _%ctx161657%_ _%stx161658%_ _%args161659%_) - (let* ((_%self161661%_ _%self154310161655%_) - (_%self161663%_ _%self161661%_) - (_%g161672161683%_ - (let ((__tmp171230 + (lambda (_%self154416161761%_ _%ctx161763%_ _%stx161764%_ _%args161765%_) + (let* ((_%self161767%_ _%self154416161761%_) + (_%self161769%_ _%self161767%_) + (_%g161778161789%_ + (let ((__tmp171336 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161663%_ + _%self161769%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171230))) - (_%E161675161687%_ + (gxc#optimizer-lookup-type __tmp171336))) + (_%E161781161793%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161672161683%_ + _%g161778161789%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161677161710%_ - (lambda (_%main161701%_ _%keys161702%_) - (let ((_%main-type161703161705%_ + (let ((_%K161783161816%_ + (lambda (_%main161807%_ _%keys161808%_) + (let ((_%main-type161809161811%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161701%_)))) - (if _%main-type161703161705%_ - (let* ((_%main-type161708%_ _%main-type161703161705%_) - (__method171036 + (gxc#optimizer-lookup-type _%main161807%_)))) + (if _%main-type161809161811%_ + (let* ((_%main-type161814%_ _%main-type161809161811%_) + (__method171142 (let () (declare (not safe)) (__method-ref - _%main-type161708%_ + _%main-type161814%_ 'return-type)))) - (if __method171036 - (let ((__tmp171231 + (if __method171142 + (let ((__tmp171337 (gxc#extract-keyword-args - _%args161659%_))) + _%args161765%_))) (declare (not safe)) - (__method171036 - _%main-type161708%_ - _%ctx161657%_ - _%stx161658%_ - __tmp171231)) + (__method171142 + _%main-type161814%_ + _%ctx161763%_ + _%stx161764%_ + __tmp171337)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161708%_ + _%main-type161814%_ 'return-type)) '#!void))) '#f)))) - (_%K161676161693%_ - (lambda (_%proc161691%_) - (let ((__method171037 + (_%K161782161799%_ + (lambda (_%proc161797%_) + (let ((__method171143 (let () (declare (not safe)) - (__method-ref _%proc161691%_ 'return-type)))) - (if __method171037 - (let ((__tmp171232 - (gxc#extract-keyword-args _%args161659%_))) + (__method-ref _%proc161797%_ 'return-type)))) + (if __method171143 + (let ((__tmp171338 + (gxc#extract-keyword-args _%args161765%_))) (declare (not safe)) - (__method171037 - _%proc161691%_ - _%proc161691%_ - _%ctx161657%_ - _%stx161658%_ - __tmp171232)) + (__method171143 + _%proc161797%_ + _%proc161797%_ + _%ctx161763%_ + _%stx161764%_ + __tmp171338)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161691%_ + _%proc161797%_ 'return-type)) '#!void)))))) - (let ((_%try-match161674161698%_ + (let ((_%try-match161780161804%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161672161683%_ + _%g161778161789%_ 'gxc#!procedure::t)) - (let ((_%proc161696%_ _%g161672161683%_)) - (_%K161676161693%_ _%proc161696%_)) - (_%E161675161687%_))))) + (let ((_%proc161802%_ _%g161778161789%_)) + (_%K161782161799%_ _%proc161802%_)) + (_%E161781161793%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161672161683%_ + _%g161778161789%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161678161713%_ + (let* ((_%e161784161819%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161672161683%_ + _%g161778161789%_ '1 '#f '#f))) - (_%e161679161716%_ + (_%e161785161822%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161672161683%_ + _%g161778161789%_ '2 '#f '#f))) - (_%e161680161719%_ + (_%e161786161825%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161672161683%_ + _%g161778161789%_ '3 '#f '#f))) - (_%e161681161724%_ + (_%e161787161830%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161672161683%_ + _%g161778161789%_ '4 '#f '#f)))) - (let ((_%keys161722%_ _%e161680161719%_) - (_%main161727%_ _%e161681161724%_)) - (_%K161677161710%_ _%main161727%_ _%keys161722%_))) - (_%try-match161674161698%_))))))) + (let ((_%keys161828%_ _%e161786161825%_) + (_%main161833%_ _%e161787161830%_)) + (_%K161783161816%_ _%main161833%_ _%keys161828%_))) + (_%try-match161780161804%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -11876,135 +11876,135 @@ gxc#!kw-lambda::return-type '#f)) (define gxc#!kw-lambda::apply-return-type - (lambda (_%self154311161459%_ _%ctx161461%_ _%stx161462%_ _%args161463%_) - (let* ((_%self161465%_ _%self154311161459%_) - (_%self161467%_ _%self161465%_) - (_%g161476161487%_ - (let ((__tmp171233 + (lambda (_%self154417161565%_ _%ctx161567%_ _%stx161568%_ _%args161569%_) + (let* ((_%self161571%_ _%self154417161565%_) + (_%self161573%_ _%self161571%_) + (_%g161582161593%_ + (let ((__tmp171339 (let () (declare (not safe)) (##unchecked-structure-ref - _%self161467%_ + _%self161573%_ '4 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171233))) - (_%E161479161491%_ + (gxc#optimizer-lookup-type __tmp171339))) + (_%E161585161597%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g161476161487%_ + _%g161582161593%_ '((!kw-lambda-primary _ _ keys main)) '((? !procedure? proc)))) '#!void))) - (let ((_%K161481161514%_ - (lambda (_%main161505%_ _%keys161506%_) - (let ((_%main-type161507161509%_ + (let ((_%K161587161620%_ + (lambda (_%main161611%_ _%keys161612%_) + (let ((_%main-type161613161615%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%main161505%_)))) - (if _%main-type161507161509%_ - (let* ((_%main-type161512%_ _%main-type161507161509%_) - (__method171038 + (gxc#optimizer-lookup-type _%main161611%_)))) + (if _%main-type161613161615%_ + (let* ((_%main-type161618%_ _%main-type161613161615%_) + (__method171144 (let () (declare (not safe)) (__method-ref - _%main-type161512%_ + _%main-type161618%_ 'apply-return-type)))) - (if __method171038 - (let ((__tmp171234 + (if __method171144 + (let ((__tmp171340 (gxc#extract-keyword-args - _%args161463%_))) + _%args161569%_))) (declare (not safe)) - (__method171038 - _%main-type161512%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171234)) + (__method171144 + _%main-type161618%_ + _%ctx161567%_ + _%stx161568%_ + __tmp171340)) (begin (let () (declare (not safe)) (error '"Missing method" - _%main-type161512%_ + _%main-type161618%_ 'apply-return-type)) '#!void))) '#f)))) - (_%K161480161497%_ - (lambda (_%proc161495%_) - (let ((__method171039 + (_%K161586161603%_ + (lambda (_%proc161601%_) + (let ((__method171145 (let () (declare (not safe)) - (__method-ref _%proc161495%_ 'apply-return-type)))) - (if __method171039 - (let ((__tmp171235 - (gxc#extract-keyword-args _%args161463%_))) + (__method-ref _%proc161601%_ 'apply-return-type)))) + (if __method171145 + (let ((__tmp171341 + (gxc#extract-keyword-args _%args161569%_))) (declare (not safe)) - (__method171039 - _%proc161495%_ - _%proc161495%_ - _%ctx161461%_ - _%stx161462%_ - __tmp171235)) + (__method171145 + _%proc161601%_ + _%proc161601%_ + _%ctx161567%_ + _%stx161568%_ + __tmp171341)) (begin (let () (declare (not safe)) (error '"Missing method" - _%proc161495%_ + _%proc161601%_ 'apply-return-type)) '#!void)))))) - (let ((_%try-match161478161502%_ + (let ((_%try-match161584161608%_ (lambda () (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g161582161593%_ 'gxc#!procedure::t)) - (let ((_%proc161500%_ _%g161476161487%_)) - (_%K161480161497%_ _%proc161500%_)) - (_%E161479161491%_))))) + (let ((_%proc161606%_ _%g161582161593%_)) + (_%K161586161603%_ _%proc161606%_)) + (_%E161585161597%_))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%g161476161487%_ + _%g161582161593%_ 'gxc#!kw-lambda-primary::t)) - (let* ((_%e161482161517%_ + (let* ((_%e161588161623%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161582161593%_ '1 '#f '#f))) - (_%e161483161520%_ + (_%e161589161626%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161582161593%_ '2 '#f '#f))) - (_%e161484161523%_ + (_%e161590161629%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161582161593%_ '3 '#f '#f))) - (_%e161485161528%_ + (_%e161591161634%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%g161476161487%_ + _%g161582161593%_ '4 '#f '#f)))) - (let ((_%keys161526%_ _%e161484161523%_) - (_%main161531%_ _%e161485161528%_)) - (_%K161481161514%_ _%main161531%_ _%keys161526%_))) - (_%try-match161478161502%_))))))) + (let ((_%keys161632%_ _%e161590161629%_) + (_%main161637%_ _%e161591161634%_)) + (_%K161587161620%_ _%main161637%_ _%keys161632%_))) + (_%try-match161584161608%_))))))) (let () (declare (not safe)) (__bind-method!__% @@ -12013,788 +12013,788 @@ gxc#!kw-lambda::apply-return-type '#f)) (define gxc#extract-keyword-args - (lambda (_%args161208%_) - (let _%loop161210%_ ((_%rest161212%_ _%args161208%_) - (_%result161213%_ '())) - (let* ((_%__stx169278169279%_ _%rest161212%_) - (_%g161217161243%_ + (lambda (_%args161314%_) + (let _%loop161316%_ ((_%rest161318%_ _%args161314%_) + (_%result161319%_ '())) + (let* ((_%__stx169384169385%_ _%rest161318%_) + (_%g161323161349%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169278169279%_))))) - (let ((_%__kont169280169281%_ - (lambda (_%L161315%_ _%L161316%_ _%L161317%_) - (_%loop161210%_ - _%L161315%_ - (cons _%L161316%_ _%result161213%_)))) - (_%__kont169282169283%_ - (lambda (_%L161263%_ _%L161264%_) - (_%loop161210%_ - _%L161263%_ - (cons _%L161264%_ _%result161213%_)))) - (_%__kont169284169285%_ - (lambda () (reverse! _%result161213%_)))) - (let ((_%__match169315169316%_ - (lambda (_%e161222161283%_ - _%hd161223161286%_ - _%tl161224161288%_ - _%e161225161291%_ - _%hd161226161294%_ - _%tl161227161296%_ - _%e161228161299%_ - _%hd161229161302%_ - _%tl161230161304%_ - _%e161231161307%_ - _%hd161232161310%_ - _%tl161233161312%_) - (let ((_%L161315%_ _%tl161233161312%_) - (_%L161316%_ _%hd161232161310%_) - (_%L161317%_ _%hd161229161302%_)) + _%__stx169384169385%_))))) + (let ((_%__kont169386169387%_ + (lambda (_%L161421%_ _%L161422%_ _%L161423%_) + (_%loop161316%_ + _%L161421%_ + (cons _%L161422%_ _%result161319%_)))) + (_%__kont169388169389%_ + (lambda (_%L161369%_ _%L161370%_) + (_%loop161316%_ + _%L161369%_ + (cons _%L161370%_ _%result161319%_)))) + (_%__kont169390169391%_ + (lambda () (reverse! _%result161319%_)))) + (let ((_%__match169421169422%_ + (lambda (_%e161328161389%_ + _%hd161329161392%_ + _%tl161330161394%_ + _%e161331161397%_ + _%hd161332161400%_ + _%tl161333161402%_ + _%e161334161405%_ + _%hd161335161408%_ + _%tl161336161410%_ + _%e161337161413%_ + _%hd161338161416%_ + _%tl161339161418%_) + (let ((_%L161421%_ _%tl161339161418%_) + (_%L161422%_ _%hd161338161416%_) + (_%L161423%_ _%hd161335161408%_)) (if (let () (declare (not safe)) - (gx#stx-keyword? _%L161317%_)) - (_%__kont169280169281%_ - _%L161315%_ - _%L161316%_ - _%L161317%_) - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)))))) + (gx#stx-keyword? _%L161423%_)) + (_%__kont169386169387%_ + _%L161421%_ + _%L161422%_ + _%L161423%_) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169278169279%_)) - (let ((_%e161222161283%_ + (gx#stx-pair? _%__stx169384169385%_)) + (let ((_%e161328161389%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169278169279%_)))) - (let ((_%tl161224161288%_ + (gx#stx-e _%__stx169384169385%_)))) + (let ((_%tl161330161394%_ (let () (declare (not safe)) - (##cdr _%e161222161283%_))) - (_%hd161223161286%_ + (##cdr _%e161328161389%_))) + (_%hd161329161392%_ (let () (declare (not safe)) - (##car _%e161222161283%_)))) + (##car _%e161328161389%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd161223161286%_)) - (let ((_%e161225161291%_ + (gx#stx-pair? _%hd161329161392%_)) + (let ((_%e161331161397%_ (let () (declare (not safe)) - (gx#stx-e _%hd161223161286%_)))) - (let ((_%tl161227161296%_ + (gx#stx-e _%hd161329161392%_)))) + (let ((_%tl161333161402%_ (let () (declare (not safe)) - (##cdr _%e161225161291%_))) - (_%hd161226161294%_ + (##cdr _%e161331161397%_))) + (_%hd161332161400%_ (let () (declare (not safe)) - (##car _%e161225161291%_)))) + (##car _%e161331161397%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd161226161294%_)) + (gx#identifier? _%hd161332161400%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd161226161294%_)) + _%hd161332161400%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161227161296%_)) - (let ((_%e161228161299%_ + _%tl161333161402%_)) + (let ((_%e161334161405%_ (let () (declare (not safe)) (gx#stx-e - _%tl161227161296%_)))) - (let ((_%tl161230161304%_ + _%tl161333161402%_)))) + (let ((_%tl161336161410%_ (let () (declare (not safe)) - (##cdr _%e161228161299%_))) - (_%hd161229161302%_ + (##cdr _%e161334161405%_))) + (_%hd161335161408%_ (let () (declare (not safe)) - (##car _%e161228161299%_)))) + (##car _%e161334161405%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl161230161304%_)) + _%tl161336161410%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl161224161288%_)) - (let ((_%e161231161307%_ + _%tl161330161394%_)) + (let ((_%e161337161413%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl161224161288%_)))) - (let ((_%tl161233161312%_ + (gx#stx-e _%tl161330161394%_)))) + (let ((_%tl161339161418%_ (let () (declare (not safe)) - (##cdr _%e161231161307%_))) - (_%hd161232161310%_ + (##cdr _%e161337161413%_))) + (_%hd161338161416%_ (let () (declare (not safe)) - (##car _%e161231161307%_)))) - (_%__match169315169316%_ - _%e161222161283%_ - _%hd161223161286%_ - _%tl161224161288%_ - _%e161225161291%_ - _%hd161226161294%_ - _%tl161227161296%_ - _%e161228161299%_ - _%hd161229161302%_ - _%tl161230161304%_ - _%e161231161307%_ - _%hd161232161310%_ - _%tl161233161312%_))) - (_%__kont169282169283%_ _%tl161224161288%_ _%hd161223161286%_)) + (##car _%e161337161413%_)))) + (_%__match169421169422%_ + _%e161328161389%_ + _%hd161329161392%_ + _%tl161330161394%_ + _%e161331161397%_ + _%hd161332161400%_ + _%tl161333161402%_ + _%e161334161405%_ + _%hd161335161408%_ + _%tl161336161410%_ + _%e161337161413%_ + _%hd161338161416%_ + _%tl161339161418%_))) + (_%__kont169388169389%_ _%tl161330161394%_ _%hd161329161392%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)))) - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)) - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)) - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)))) - (_%__kont169282169283%_ - _%tl161224161288%_ - _%hd161223161286%_)))) - (_%__kont169284169285%_)))))))) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)))) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)))) + (_%__kont169388169389%_ + _%tl161330161394%_ + _%hd161329161392%_)))) + (_%__kont169390169391%_)))))))) (define gxc#!lambda-arity-match? - (lambda (_%self161140%_ _%args161141%_) - (let* ((_%self161142161150%_ _%self161140%_) - (_%E161144161154%_ + (lambda (_%self161246%_ _%args161247%_) + (let* ((_%self161248161256%_ _%self161246%_) + (_%E161250161260%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161142161150%_ + _%self161248161256%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161145161194%_ - (lambda (_%arity161157%_) - (let* ((_%arity161158161167%_ _%arity161157%_) - (_%E161161161171%_ + (_%K161251161300%_ + (lambda (_%arity161263%_) + (let* ((_%arity161264161273%_ _%arity161263%_) + (_%E161267161277%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161158161167%_ + _%arity161264161273%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161165161191%_ + (let ((_%K161271161297%_ (lambda () - (fx= (length _%args161141%_) _%arity161157%_))) - (_%K161162161177%_ - (lambda (_%arity161175%_) - (fx>= (length _%args161141%_) _%arity161175%_)))) - (let* ((_%__match169334169335%_ - (lambda (_%hd161163161180%_ _%tl161164161182%_) - (let ((_%arity161185%_ _%hd161163161180%_)) - (_%E161161161171%_)))) - (_%try-match161160161187%_ + (fx= (length _%args161247%_) _%arity161263%_))) + (_%K161268161283%_ + (lambda (_%arity161281%_) + (fx>= (length _%args161247%_) _%arity161281%_)))) + (let* ((_%__match169440169441%_ + (lambda (_%hd161269161286%_ _%tl161270161288%_) + (let ((_%arity161291%_ _%hd161269161286%_)) + (_%E161267161277%_)))) + (_%try-match161266161293%_ (lambda () - (if (pair? _%arity161158161167%_) - (let ((_%tl161164161182%_ + (if (pair? _%arity161264161273%_) + (let ((_%tl161270161288%_ (let () (declare (not safe)) - (##cdr _%arity161158161167%_))) - (_%hd161163161180%_ + (##cdr _%arity161264161273%_))) + (_%hd161269161286%_ (let () (declare (not safe)) - (##car _%arity161158161167%_)))) - (if (null? _%tl161164161182%_) - (let ((_%arity161185%_ - _%hd161163161180%_)) - (_%K161162161177%_ - _%arity161185%_)) - (_%__match169334169335%_ - _%hd161163161180%_ - _%tl161164161182%_))) - (_%E161161161171%_))))) - (if (fixnum? _%arity161158161167%_) - (_%K161165161191%_) - (_%try-match161160161187%_)))))))) + (##car _%arity161264161273%_)))) + (if (null? _%tl161270161288%_) + (let ((_%arity161291%_ + _%hd161269161286%_)) + (_%K161268161283%_ + _%arity161291%_)) + (_%__match169440169441%_ + _%hd161269161286%_ + _%tl161270161288%_))) + (_%E161267161277%_))))) + (if (fixnum? _%arity161264161273%_) + (_%K161271161297%_) + (_%try-match161266161293%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self161142161150%_ + _%self161248161256%_ 'gxc#!lambda::t)) - (let* ((_%e161146161197%_ + (let* ((_%e161252161303%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161142161150%_ + _%self161248161256%_ '1 '#f '#f))) - (_%e161147161200%_ + (_%e161253161306%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161142161150%_ + _%self161248161256%_ '2 '#f '#f))) - (_%e161148161203%_ + (_%e161254161309%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161142161150%_ + _%self161248161256%_ '3 '#f '#f))) - (_%arity161206%_ _%e161148161203%_)) - (_%K161145161194%_ _%arity161206%_)) - (_%E161144161154%_))))) + (_%arity161312%_ _%e161254161309%_)) + (_%K161251161300%_ _%arity161312%_)) + (_%E161250161260%_))))) (define gxc#!lambda-arity-match-apply? - (lambda (_%self161072%_ _%args161073%_) - (let* ((_%self161074161082%_ _%self161072%_) - (_%E161076161086%_ + (lambda (_%self161178%_ _%args161179%_) + (let* ((_%self161180161188%_ _%self161178%_) + (_%E161182161192%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self161074161082%_ + _%self161180161188%_ '((!lambda _ _ arity)))) '#!void)) - (_%K161077161126%_ - (lambda (_%arity161089%_) - (let* ((_%arity161090161099%_ _%arity161089%_) - (_%E161093161103%_ + (_%K161183161232%_ + (lambda (_%arity161195%_) + (let* ((_%arity161196161205%_ _%arity161195%_) + (_%E161199161209%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arity161090161099%_ + _%arity161196161205%_ '((? fixnum?)) '([arity]))) '#!void))) - (let ((_%K161097161123%_ + (let ((_%K161203161229%_ (lambda () - (let ((__tmp171236 (length _%args161073%_))) + (let ((__tmp171342 (length _%args161179%_))) (declare (not safe)) - (##fx>= _%arity161089%_ __tmp171236)))) - (_%K161094161109%_ (lambda (_%arity161107%_) '#t))) - (let* ((_%__match169347169348%_ - (lambda (_%hd161095161112%_ _%tl161096161114%_) - (let ((_%arity161117%_ _%hd161095161112%_)) - (_%E161093161103%_)))) - (_%try-match161092161119%_ + (##fx>= _%arity161195%_ __tmp171342)))) + (_%K161200161215%_ (lambda (_%arity161213%_) '#t))) + (let* ((_%__match169453169454%_ + (lambda (_%hd161201161218%_ _%tl161202161220%_) + (let ((_%arity161223%_ _%hd161201161218%_)) + (_%E161199161209%_)))) + (_%try-match161198161225%_ (lambda () - (if (pair? _%arity161090161099%_) - (let ((_%tl161096161114%_ + (if (pair? _%arity161196161205%_) + (let ((_%tl161202161220%_ (let () (declare (not safe)) - (##cdr _%arity161090161099%_))) - (_%hd161095161112%_ + (##cdr _%arity161196161205%_))) + (_%hd161201161218%_ (let () (declare (not safe)) - (##car _%arity161090161099%_)))) - (if (null? _%tl161096161114%_) - (let ((_%arity161117%_ - _%hd161095161112%_)) - (_%K161094161109%_ - _%arity161117%_)) - (_%__match169347169348%_ - _%hd161095161112%_ - _%tl161096161114%_))) - (_%E161093161103%_))))) - (if (fixnum? _%arity161090161099%_) - (_%K161097161123%_) - (_%try-match161092161119%_)))))))) + (##car _%arity161196161205%_)))) + (if (null? _%tl161202161220%_) + (let ((_%arity161223%_ + _%hd161201161218%_)) + (_%K161200161215%_ + _%arity161223%_)) + (_%__match169453169454%_ + _%hd161201161218%_ + _%tl161202161220%_))) + (_%E161199161209%_))))) + (if (fixnum? _%arity161196161205%_) + (_%K161203161229%_) + (_%try-match161198161225%_)))))))) (if (let () (declare (not safe)) (##structure-instance-of? - _%self161074161082%_ + _%self161180161188%_ 'gxc#!lambda::t)) - (let* ((_%e161078161129%_ + (let* ((_%e161184161235%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161074161082%_ + _%self161180161188%_ '1 '#f '#f))) - (_%e161079161132%_ + (_%e161185161238%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161074161082%_ + _%self161180161188%_ '2 '#f '#f))) - (_%e161080161135%_ + (_%e161186161241%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self161074161082%_ + _%self161180161188%_ '3 '#f '#f))) - (_%arity161138%_ _%e161080161135%_)) - (_%K161077161126%_ _%arity161138%_)) - (_%E161076161086%_))))) + (_%arity161244%_ _%e161186161241%_)) + (_%K161183161232%_ _%arity161244%_)) + (_%E161182161192%_))))) (define gxc#basic-expression-type-special-cast - (lambda (_%ctx160959%_ _%stx160960%_) - (let* ((_%g160962160988%_ - (lambda (_%g160963160985%_) + (lambda (_%ctx161065%_ _%stx161066%_) + (let* ((_%g161068161094%_ + (lambda (_%g161069161091%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160963160985%_)))) - (_%g160961161069%_ - (lambda (_%g160963160991%_) + _%g161069161091%_)))) + (_%g161067161175%_ + (lambda (_%g161069161097%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160963160991%_)) - (let ((_%e160966160993%_ + (gx#stx-pair? _%g161069161097%_)) + (let ((_%e161072161099%_ (let () (declare (not safe)) - (gx#stx-e _%g160963160991%_)))) - (let ((_%hd160967160996%_ + (gx#stx-e _%g161069161097%_)))) + (let ((_%hd161073161102%_ (let () (declare (not safe)) - (##car _%e160966160993%_))) - (_%tl160968160998%_ + (##car _%e161072161099%_))) + (_%tl161074161104%_ (let () (declare (not safe)) - (##cdr _%e160966160993%_)))) + (##cdr _%e161072161099%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160968160998%_)) - (let ((_%e160969161001%_ + (gx#stx-pair? _%tl161074161104%_)) + (let ((_%e161075161107%_ (let () (declare (not safe)) - (gx#stx-e _%tl160968160998%_)))) - (let ((_%hd160970161004%_ + (gx#stx-e _%tl161074161104%_)))) + (let ((_%hd161076161110%_ (let () (declare (not safe)) - (##car _%e160969161001%_))) - (_%tl160971161006%_ + (##car _%e161075161107%_))) + (_%tl161077161112%_ (let () (declare (not safe)) - (##cdr _%e160969161001%_)))) + (##cdr _%e161075161107%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160971161006%_)) - (let ((_%e160972161009%_ + (gx#stx-pair? _%tl161077161112%_)) + (let ((_%e161078161115%_ (let () (declare (not safe)) - (gx#stx-e _%tl160971161006%_)))) - (let ((_%hd160973161012%_ + (gx#stx-e _%tl161077161112%_)))) + (let ((_%hd161079161118%_ (let () (declare (not safe)) - (##car _%e160972161009%_))) - (_%tl160974161014%_ + (##car _%e161078161115%_))) + (_%tl161080161120%_ (let () (declare (not safe)) - (##cdr _%e160972161009%_)))) + (##cdr _%e161078161115%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160973161012%_)) - (let ((_%e160975161017%_ + _%hd161079161118%_)) + (let ((_%e161081161123%_ (let () (declare (not safe)) (gx#stx-e - _%hd160973161012%_)))) - (let ((_%hd160976161020%_ + _%hd161079161118%_)))) + (let ((_%hd161082161126%_ (let () (declare (not safe)) - (##car _%e160975161017%_))) - (_%tl160977161022%_ + (##car _%e161081161123%_))) + (_%tl161083161128%_ (let () (declare (not safe)) - (##cdr _%e160975161017%_)))) + (##cdr _%e161081161123%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160976161020%_)) + _%hd161082161126%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160976161020%_)) + _%hd161082161126%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl160977161022%_)) - (let ((_%e160978161025%_ + (gx#stx-pair? _%tl161083161128%_)) + (let ((_%e161084161131%_ (let () (declare (not safe)) - (gx#stx-e _%tl160977161022%_)))) - (let ((_%hd160979161028%_ + (gx#stx-e _%tl161083161128%_)))) + (let ((_%hd161085161134%_ (let () (declare (not safe)) - (##car _%e160978161025%_))) - (_%tl160980161030%_ + (##car _%e161084161131%_))) + (_%tl161086161136%_ (let () (declare (not safe)) - (##cdr _%e160978161025%_)))) + (##cdr _%e161084161131%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160980161030%_)) + (gx#stx-null? _%tl161086161136%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160974161014%_)) - (let ((_%e160981161033%_ + (gx#stx-pair? _%tl161080161120%_)) + (let ((_%e161087161139%_ (let () (declare (not safe)) - (gx#stx-e _%tl160974161014%_)))) - (let ((_%hd160982161036%_ + (gx#stx-e _%tl161080161120%_)))) + (let ((_%hd161088161142%_ (let () (declare (not safe)) - (##car _%e160981161033%_))) - (_%tl160983161038%_ + (##car _%e161087161139%_))) + (_%tl161089161144%_ (let () (declare (not safe)) - (##cdr _%e160981161033%_)))) + (##cdr _%e161087161139%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160983161038%_)) - ((lambda (_%L161041%_ _%L161042%_) - (let ((_%interface-type161062161064%_ - (let ((__tmp171237 + (gx#stx-null? _%tl161089161144%_)) + ((lambda (_%L161147%_ _%L161148%_) + (let ((_%interface-type161168161170%_ + (let ((__tmp171343 (let () (declare (not safe)) (gxc#identifier-symbol - _%L161042%_)))) + _%L161148%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171237)))) - (if _%interface-type161062161064%_ - (let ((_%interface-type161067%_ - _%interface-type161062161064%_)) + __tmp171343)))) + (if _%interface-type161168161170%_ + (let ((_%interface-type161173%_ + _%interface-type161168161170%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%interface-type161067%_ + _%interface-type161173%_ 'gxc#!interface::t)) - (let ((__tmp171238 + (let ((__tmp171344 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%interface-type161067%_ + _%interface-type161173%_ '1 '#f '#f)))) (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160960%_ __tmp171238)) + (gxc#optimizer-resolve-class _%stx161066%_ __tmp171344)) (let () (declare (not safe)) (gxc#raise-compile-error '"cast to non interface" - _%stx160960%_ - _%L161042%_ - _%interface-type161067%_)))) + _%stx161066%_ + _%L161148%_ + _%interface-type161173%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#f))) - _%hd160982161036%_ - _%hd160979161028%_) - (_%g160962160988%_ - _%g160963160991%_)))) - (_%g160962160988%_ _%g160963160991%_)) - (_%g160962160988%_ _%g160963160991%_)))) - (_%g160962160988%_ _%g160963160991%_)) - (_%g160962160988%_ _%g160963160991%_)) - (_%g160962160988%_ _%g160963160991%_)))) + _%hd161088161142%_ + _%hd161085161134%_) + (_%g161068161094%_ + _%g161069161097%_)))) + (_%g161068161094%_ _%g161069161097%_)) + (_%g161068161094%_ _%g161069161097%_)))) + (_%g161068161094%_ _%g161069161097%_)) + (_%g161068161094%_ _%g161069161097%_)) + (_%g161068161094%_ _%g161069161097%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g160962160988%_ - _%g160963160991%_)))) - (_%g160962160988%_ _%g160963160991%_)))) - (_%g160962160988%_ _%g160963160991%_)))) - (_%g160962160988%_ _%g160963160991%_))))) - (_%g160961161069%_ _%stx160960%_)))) + (_%g161068161094%_ + _%g161069161097%_)))) + (_%g161068161094%_ _%g161069161097%_)))) + (_%g161068161094%_ _%g161069161097%_)))) + (_%g161068161094%_ _%g161069161097%_))))) + (_%g161067161175%_ _%stx161066%_)))) (define gxc#basic-expression-type-special-apply - (lambda (_%ctx160749%_ _%stx160750%_) - (letrec ((_%type-e160752%_ - (lambda (_%rator160955%_ _%rator-type160956%_ _%args160957%_) + (lambda (_%ctx160855%_ _%stx160856%_) + (letrec ((_%type-e160858%_ + (lambda (_%rator161061%_ _%rator-type161062%_ _%args161063%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%rator-type160956%_ + _%rator-type161062%_ 'gxc#!procedure::t)) - (let ((__method171040 + (let ((__method171146 (let () (declare (not safe)) (__method-ref - _%rator-type160956%_ + _%rator-type161062%_ 'apply-return-type)))) - (if __method171040 + (if __method171146 (let () (declare (not safe)) - (__method171040 - _%rator-type160956%_ - _%ctx160749%_ - _%stx160750%_ - _%args160957%_)) + (__method171146 + _%rator-type161062%_ + _%ctx160855%_ + _%stx160856%_ + _%args161063%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%rator-type160956%_ + _%rator-type161062%_ 'apply-return-type)) '#!void))) '#f)))) - (let* ((_%__stx169350169351%_ _%stx160750%_) - (_%g160756160798%_ + (let* ((_%__stx169456169457%_ _%stx160856%_) + (_%g160862160904%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169350169351%_))))) - (let ((_%__kont169352169353%_ - (lambda (_%L160919%_ _%L160920%_ _%L160921%_ _%L160922%_) - (let ((_%rator-type160945160947%_ - (gxc#apply-basic-expression-type _%L160920%_))) - (if _%rator-type160945160947%_ - (let ((_%rator-type160950%_ - _%rator-type160945160947%_)) - (_%type-e160752%_ - _%L160920%_ - _%rator-type160950%_ - (cons _%L160921%_ _%L160919%_))) + _%__stx169456169457%_))))) + (let ((_%__kont169458169459%_ + (lambda (_%L161025%_ _%L161026%_ _%L161027%_ _%L161028%_) + (let ((_%rator-type161051161053%_ + (gxc#apply-basic-expression-type _%L161026%_))) + (if _%rator-type161051161053%_ + (let ((_%rator-type161056%_ + _%rator-type161051161053%_)) + (_%type-e160858%_ + _%L161026%_ + _%rator-type161056%_ + (cons _%L161027%_ _%L161025%_))) '#f)))) - (_%__kont169354169355%_ - (lambda (_%L160834%_ _%L160835%_) - (let ((_%rator-type160851160853%_ - (gxc#apply-basic-expression-type _%L160835%_))) - (if _%rator-type160851160853%_ - (let ((_%rator-type160856%_ - _%rator-type160851160853%_)) - (_%type-e160752%_ - _%L160835%_ - _%rator-type160856%_ - _%L160834%_)) + (_%__kont169460169461%_ + (lambda (_%L160940%_ _%L160941%_) + (let ((_%rator-type160957160959%_ + (gxc#apply-basic-expression-type _%L160941%_))) + (if _%rator-type160957160959%_ + (let ((_%rator-type160962%_ + _%rator-type160957160959%_)) + (_%type-e160858%_ + _%L160941%_ + _%rator-type160962%_ + _%L160940%_)) '#f)))) - (_%__kont169356169357%_ (lambda () '#f))) - (let ((_%__match169405169406%_ - (lambda (_%e160762160863%_ - _%hd160763160866%_ - _%tl160764160868%_ - _%e160765160871%_ - _%hd160766160874%_ - _%tl160767160876%_ - _%e160768160879%_ - _%hd160769160882%_ - _%tl160770160884%_ - _%e160771160887%_ - _%hd160772160890%_ - _%tl160773160892%_ - _%e160774160895%_ - _%hd160775160898%_ - _%tl160776160900%_ - _%e160777160903%_ - _%hd160778160906%_ - _%tl160779160908%_ - _%e160780160911%_ - _%hd160781160914%_ - _%tl160782160916%_) - (let ((_%L160919%_ _%tl160782160916%_) - (_%L160920%_ _%hd160781160914%_) - (_%L160921%_ _%hd160778160906%_) - (_%L160922%_ _%hd160775160898%_)) + (_%__kont169462169463%_ (lambda () '#f))) + (let ((_%__match169511169512%_ + (lambda (_%e160868160969%_ + _%hd160869160972%_ + _%tl160870160974%_ + _%e160871160977%_ + _%hd160872160980%_ + _%tl160873160982%_ + _%e160874160985%_ + _%hd160875160988%_ + _%tl160876160990%_ + _%e160877160993%_ + _%hd160878160996%_ + _%tl160879160998%_ + _%e160880161001%_ + _%hd160881161004%_ + _%tl160882161006%_ + _%e160883161009%_ + _%hd160884161012%_ + _%tl160885161014%_ + _%e160886161017%_ + _%hd160887161020%_ + _%tl160888161022%_) + (let ((_%L161025%_ _%tl160888161022%_) + (_%L161026%_ _%hd160887161020%_) + (_%L161027%_ _%hd160884161012%_) + (_%L161028%_ _%hd160881161004%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L160922%_ + _%L161028%_ 'keyword-dispatch)) - (_%__kont169352169353%_ - _%L160919%_ - _%L160920%_ - _%L160921%_ - _%L160922%_) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)))))) + (_%__kont169458169459%_ + _%L161025%_ + _%L161026%_ + _%L161027%_ + _%L161028%_) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169350169351%_)) - (let ((_%e160762160863%_ + (gx#stx-pair? _%__stx169456169457%_)) + (let ((_%e160868160969%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169350169351%_)))) - (let ((_%tl160764160868%_ + (gx#stx-e _%__stx169456169457%_)))) + (let ((_%tl160870160974%_ (let () (declare (not safe)) - (##cdr _%e160762160863%_))) - (_%hd160763160866%_ + (##cdr _%e160868160969%_))) + (_%hd160869160972%_ (let () (declare (not safe)) - (##car _%e160762160863%_)))) + (##car _%e160868160969%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160764160868%_)) - (let ((_%e160765160871%_ + (gx#stx-pair? _%tl160870160974%_)) + (let ((_%e160871160977%_ (let () (declare (not safe)) - (gx#stx-e _%tl160764160868%_)))) - (let ((_%tl160767160876%_ + (gx#stx-e _%tl160870160974%_)))) + (let ((_%tl160873160982%_ (let () (declare (not safe)) - (##cdr _%e160765160871%_))) - (_%hd160766160874%_ + (##cdr _%e160871160977%_))) + (_%hd160872160980%_ (let () (declare (not safe)) - (##car _%e160765160871%_)))) + (##car _%e160871160977%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160767160876%_)) - (let ((_%e160768160879%_ + (gx#stx-pair? _%tl160873160982%_)) + (let ((_%e160874160985%_ (let () (declare (not safe)) - (gx#stx-e _%tl160767160876%_)))) - (let ((_%tl160770160884%_ + (gx#stx-e _%tl160873160982%_)))) + (let ((_%tl160876160990%_ (let () (declare (not safe)) - (##cdr _%e160768160879%_))) - (_%hd160769160882%_ + (##cdr _%e160874160985%_))) + (_%hd160875160988%_ (let () (declare (not safe)) - (##car _%e160768160879%_)))) + (##car _%e160874160985%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160769160882%_)) - (let ((_%e160771160887%_ + _%hd160875160988%_)) + (let ((_%e160877160993%_ (let () (declare (not safe)) (gx#stx-e - _%hd160769160882%_)))) - (let ((_%tl160773160892%_ + _%hd160875160988%_)))) + (let ((_%tl160879160998%_ (let () (declare (not safe)) - (##cdr _%e160771160887%_))) - (_%hd160772160890%_ + (##cdr _%e160877160993%_))) + (_%hd160878160996%_ (let () (declare (not safe)) - (##car _%e160771160887%_)))) + (##car _%e160877160993%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160772160890%_)) + _%hd160878160996%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd160772160890%_)) + _%hd160878160996%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160773160892%_)) - (let ((_%e160774160895%_ + _%tl160879160998%_)) + (let ((_%e160880161001%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl160773160892%_)))) - (let ((_%tl160776160900%_ + (gx#stx-e _%tl160879160998%_)))) + (let ((_%tl160882161006%_ (let () (declare (not safe)) - (##cdr _%e160774160895%_))) - (_%hd160775160898%_ + (##cdr _%e160880161001%_))) + (_%hd160881161004%_ (let () (declare (not safe)) - (##car _%e160774160895%_)))) + (##car _%e160880161001%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160776160900%_)) + (gx#stx-null? _%tl160882161006%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160770160884%_)) - (let ((_%e160777160903%_ + (gx#stx-pair? _%tl160876160990%_)) + (let ((_%e160883161009%_ (let () (declare (not safe)) - (gx#stx-e _%tl160770160884%_)))) - (let ((_%tl160779160908%_ + (gx#stx-e _%tl160876160990%_)))) + (let ((_%tl160885161014%_ (let () (declare (not safe)) - (##cdr _%e160777160903%_))) - (_%hd160778160906%_ + (##cdr _%e160883161009%_))) + (_%hd160884161012%_ (let () (declare (not safe)) - (##car _%e160777160903%_)))) + (##car _%e160883161009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160779160908%_)) - (let ((_%e160780160911%_ + (gx#stx-pair? _%tl160885161014%_)) + (let ((_%e160886161017%_ (let () (declare (not safe)) (gx#stx-e - _%tl160779160908%_)))) - (let ((_%tl160782160916%_ + _%tl160885161014%_)))) + (let ((_%tl160888161022%_ (let () (declare (not safe)) - (##cdr _%e160780160911%_))) - (_%hd160781160914%_ + (##cdr _%e160886161017%_))) + (_%hd160887161020%_ (let () (declare (not safe)) - (##car _%e160780160911%_)))) - (_%__match169405169406%_ - _%e160762160863%_ - _%hd160763160866%_ - _%tl160764160868%_ - _%e160765160871%_ - _%hd160766160874%_ - _%tl160767160876%_ - _%e160768160879%_ - _%hd160769160882%_ - _%tl160770160884%_ - _%e160771160887%_ - _%hd160772160890%_ - _%tl160773160892%_ - _%e160774160895%_ - _%hd160775160898%_ - _%tl160776160900%_ - _%e160777160903%_ - _%hd160778160906%_ - _%tl160779160908%_ - _%e160780160911%_ - _%hd160781160914%_ - _%tl160782160916%_))) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)))) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)))) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)) - (_%__kont169354169355%_ _%tl160770160884%_ _%hd160769160882%_)) + (##car _%e160886161017%_)))) + (_%__match169511169512%_ + _%e160868160969%_ + _%hd160869160972%_ + _%tl160870160974%_ + _%e160871160977%_ + _%hd160872160980%_ + _%tl160873160982%_ + _%e160874160985%_ + _%hd160875160988%_ + _%tl160876160990%_ + _%e160877160993%_ + _%hd160878160996%_ + _%tl160879160998%_ + _%e160880161001%_ + _%hd160881161004%_ + _%tl160882161006%_ + _%e160883161009%_ + _%hd160884161012%_ + _%tl160885161014%_ + _%e160886161017%_ + _%hd160887161020%_ + _%tl160888161022%_))) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)))) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)))) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)) + (_%__kont169460169461%_ _%tl160876160990%_ _%hd160875160988%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)))) - (_%__kont169354169355%_ - _%tl160770160884%_ - _%hd160769160882%_)))) - (_%__kont169356169357%_)))) - (_%__kont169356169357%_)))) - (_%__kont169356169357%_)))))))) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)))) + (_%__kont169460169461%_ + _%tl160876160990%_ + _%hd160875160988%_)))) + (_%__kont169462169463%_)))) + (_%__kont169462169463%_)))) + (_%__kont169462169463%_)))))))) (let () (declare (not safe)) (__hash-put! @@ -12814,1758 +12814,1758 @@ '##apply gxc#basic-expression-type-special-apply)) (define gxc#basic-expression-type-ref% - (lambda (_%self160697%_ _%stx160698%_) - (let* ((_%g160700160713%_ - (lambda (_%g160701160710%_) + (lambda (_%self160803%_ _%stx160804%_) + (let* ((_%g160806160819%_ + (lambda (_%g160807160816%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160701160710%_)))) - (_%g160699160746%_ - (lambda (_%g160701160716%_) + _%g160807160816%_)))) + (_%g160805160852%_ + (lambda (_%g160807160822%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160701160716%_)) - (let ((_%e160703160718%_ + (gx#stx-pair? _%g160807160822%_)) + (let ((_%e160809160824%_ (let () (declare (not safe)) - (gx#stx-e _%g160701160716%_)))) - (let ((_%hd160704160721%_ + (gx#stx-e _%g160807160822%_)))) + (let ((_%hd160810160827%_ (let () (declare (not safe)) - (##car _%e160703160718%_))) - (_%tl160705160723%_ + (##car _%e160809160824%_))) + (_%tl160811160829%_ (let () (declare (not safe)) - (##cdr _%e160703160718%_)))) + (##cdr _%e160809160824%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160705160723%_)) - (let ((_%e160706160726%_ + (gx#stx-pair? _%tl160811160829%_)) + (let ((_%e160812160832%_ (let () (declare (not safe)) - (gx#stx-e _%tl160705160723%_)))) - (let ((_%hd160707160729%_ + (gx#stx-e _%tl160811160829%_)))) + (let ((_%hd160813160835%_ (let () (declare (not safe)) - (##car _%e160706160726%_))) - (_%tl160708160731%_ + (##car _%e160812160832%_))) + (_%tl160814160837%_ (let () (declare (not safe)) - (##cdr _%e160706160726%_)))) + (##cdr _%e160812160832%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160708160731%_)) - ((lambda (_%L160734%_) - (let ((__tmp171239 + (gx#stx-null? _%tl160814160837%_)) + ((lambda (_%L160840%_) + (let ((__tmp171345 (let () (declare (not safe)) (gxc#identifier-symbol - _%L160734%_)))) + _%L160840%_)))) (declare (not safe)) (gxc#optimizer-resolve-type - __tmp171239))) - _%hd160707160729%_) - (_%g160700160713%_ _%g160701160716%_)))) - (_%g160700160713%_ _%g160701160716%_)))) - (_%g160700160713%_ _%g160701160716%_))))) - (_%g160699160746%_ _%stx160698%_)))) + __tmp171345))) + _%hd160813160835%_) + (_%g160806160819%_ _%g160807160822%_)))) + (_%g160806160819%_ _%g160807160822%_)))) + (_%g160806160819%_ _%g160807160822%_))))) + (_%g160805160852%_ _%stx160804%_)))) (define gxc#basic-expression-type-if% - (lambda (_%self160276%_ _%stx160277%_) - (letrec ((_%type-e160279%_ - (lambda (_%type-K160691%_ _%type-E160692%_) + (lambda (_%self160382%_ _%stx160383%_) + (letrec ((_%type-e160385%_ + (lambda (_%type-K160797%_ _%type-E160798%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%type-E160692%_ + _%type-E160798%_ 'gxc#!abort::t)) - _%type-K160691%_ + _%type-K160797%_ (if (let () (declare (not safe)) (##structure-instance-of? - _%type-K160691%_ + _%type-K160797%_ 'gxc#!abort::t)) - _%type-E160692%_ + _%type-E160798%_ (gxc#greatest-common-type - _%stx160277%_ - _%type-K160691%_ - _%type-E160692%_))))) - (_%basic-type-e160280%_ - (lambda (_%K160685%_ _%E160686%_) - (let ((_%type-K160688%_ - (gxc#apply-basic-expression-type _%K160685%_)) - (_%type-E160689%_ - (gxc#apply-basic-expression-type _%E160686%_))) - (_%type-e160279%_ _%type-K160688%_ _%type-E160689%_))))) - (let* ((_%__stx169426169427%_ _%stx160277%_) - (_%g160284160373%_ + _%stx160383%_ + _%type-K160797%_ + _%type-E160798%_))))) + (_%basic-type-e160386%_ + (lambda (_%K160791%_ _%E160792%_) + (let ((_%type-K160794%_ + (gxc#apply-basic-expression-type _%K160791%_)) + (_%type-E160795%_ + (gxc#apply-basic-expression-type _%E160792%_))) + (_%type-e160385%_ _%type-K160794%_ _%type-E160795%_))))) + (let* ((_%__stx169532169533%_ _%stx160383%_) + (_%g160390160479%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169426169427%_))))) - (let ((_%__kont169428169429%_ - (lambda (_%L160632%_ _%L160633%_ _%L160634%_ _%L160635%_) - (let ((_%$e160667%_ - (let ((__tmp171240 + _%__stx169532169533%_))))) + (let ((_%__kont169534169535%_ + (lambda (_%L160738%_ _%L160739%_ _%L160740%_ _%L160741%_) + (let ((_%$e160773%_ + (let ((__tmp171346 (let () (declare (not safe)) - (gxc#identifier-symbol _%L160635%_)))) + (gxc#identifier-symbol _%L160741%_)))) (declare (not safe)) - (gxc#optimizer-lookup-type __tmp171240)))) - (if _%$e160667%_ - ((lambda (_%pred-type160670%_) + (gxc#optimizer-lookup-type __tmp171346)))) + (if _%$e160773%_ + ((lambda (_%pred-type160776%_) (if (or (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160670%_ + _%pred-type160776%_ 'gxc#!predicate::t)) (let () (declare (not safe)) (##structure-instance-of? - _%pred-type160670%_ + _%pred-type160776%_ 'gxc#!primitive-predicate::t))) - (let* ((_%type-K160676%_ - (let ((__tmp171243 + (let* ((_%type-K160782%_ + (let ((__tmp171349 (lambda () (gxc#apply-basic-expression-type - _%L160633%_))) - (__tmp171241 + _%L160739%_))) + (__tmp171347 (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gxc#identifier-symbol _%L160634%_)) - (let ((__tmp171242 + (gxc#identifier-symbol _%L160740%_)) + (let ((__tmp171348 (##structure-ref - _%pred-type160670%_ + _%pred-type160776%_ '1 gxc#!type::t '#f))) (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160277%_ - __tmp171242))) + _%stx160383%_ + __tmp171348))) (let () (declare (not safe)) (gxc#current-compile-path-type))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__call-with-parameters - __tmp171243 + __tmp171349 gxc#current-compile-path-type - __tmp171241))) - (_%type-E160678%_ + __tmp171347))) + (_%type-E160784%_ (gxc#apply-basic-expression-type - _%L160632%_))) - (_%type-e160279%_ - _%type-K160676%_ - _%type-E160678%_)) - (_%basic-type-e160280%_ - _%L160633%_ - _%L160632%_))) - _%$e160667%_) - (_%basic-type-e160280%_ _%L160633%_ _%L160632%_))))) - (_%__kont169430169431%_ - (lambda (_%L160508%_ _%L160509%_ _%L160510%_ _%L160511%_) + _%L160738%_))) + (_%type-e160385%_ + _%type-K160782%_ + _%type-E160784%_)) + (_%basic-type-e160386%_ + _%L160739%_ + _%L160738%_))) + _%$e160773%_) + (_%basic-type-e160386%_ _%L160739%_ _%L160738%_))))) + (_%__kont169536169537%_ + (lambda (_%L160614%_ _%L160615%_ _%L160616%_ _%L160617%_) (gxc#basic-expression-type-if% - _%self160276%_ - (let ((__tmp171244 + _%self160382%_ + (let ((__tmp171350 (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#if)) - (cons _%L160510%_ - (cons _%L160508%_ - (cons _%L160509%_ '())))))) + (cons _%L160616%_ + (cons _%L160614%_ + (cons _%L160615%_ '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171244 _%stx160277%_))))) - (_%__kont169432169433%_ - (lambda (_%L160410%_ _%L160411%_ _%L160412%_) - (_%basic-type-e160280%_ _%L160411%_ _%L160410%_)))) - (let ((_%__match169587169588%_ - (lambda (_%e160327160436%_ - _%hd160328160439%_ - _%tl160329160441%_ - _%e160330160444%_ - _%hd160331160447%_ - _%tl160332160449%_ - _%e160333160452%_ - _%hd160334160455%_ - _%tl160335160457%_ - _%e160336160460%_ - _%hd160337160463%_ - _%tl160338160465%_ - _%e160339160468%_ - _%hd160340160471%_ - _%tl160341160473%_ - _%e160342160476%_ - _%hd160343160479%_ - _%tl160344160481%_ - _%e160345160484%_ - _%hd160346160487%_ - _%tl160347160489%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) - (let ((_%L160508%_ _%hd160352160503%_) - (_%L160509%_ _%hd160349160495%_) - (_%L160510%_ _%hd160346160487%_) - (_%L160511%_ _%hd160343160479%_)) + (gxc#xform-wrap-source __tmp171350 _%stx160383%_))))) + (_%__kont169538169539%_ + (lambda (_%L160516%_ _%L160517%_ _%L160518%_) + (_%basic-type-e160386%_ _%L160517%_ _%L160516%_)))) + (let ((_%__match169693169694%_ + (lambda (_%e160433160542%_ + _%hd160434160545%_ + _%tl160435160547%_ + _%e160436160550%_ + _%hd160437160553%_ + _%tl160438160555%_ + _%e160439160558%_ + _%hd160440160561%_ + _%tl160441160563%_ + _%e160442160566%_ + _%hd160443160569%_ + _%tl160444160571%_ + _%e160445160574%_ + _%hd160446160577%_ + _%tl160447160579%_ + _%e160448160582%_ + _%hd160449160585%_ + _%tl160450160587%_ + _%e160451160590%_ + _%hd160452160593%_ + _%tl160453160595%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) + (let ((_%L160614%_ _%hd160458160609%_) + (_%L160615%_ _%hd160455160601%_) + (_%L160616%_ _%hd160452160593%_) + (_%L160617%_ _%hd160449160585%_)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L160511%_ 'not)) - (_%__kont169430169431%_ - _%L160508%_ - _%L160509%_ - _%L160510%_ - _%L160511%_) - (_%__kont169432169433%_ - _%hd160352160503%_ - _%hd160349160495%_ - _%hd160331160447%_)))))) + (gxc#runtime-identifier=? _%L160617%_ 'not)) + (_%__kont169536169537%_ + _%L160614%_ + _%L160615%_ + _%L160616%_ + _%L160617%_) + (_%__kont169538169539%_ + _%hd160458160609%_ + _%hd160455160601%_ + _%hd160437160553%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169426169427%_)) - (let ((_%e160290160544%_ + (gx#stx-pair? _%__stx169532169533%_)) + (let ((_%e160396160650%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169426169427%_)))) - (let ((_%tl160292160549%_ + (gx#stx-e _%__stx169532169533%_)))) + (let ((_%tl160398160655%_ (let () (declare (not safe)) - (##cdr _%e160290160544%_))) - (_%hd160291160547%_ + (##cdr _%e160396160650%_))) + (_%hd160397160653%_ (let () (declare (not safe)) - (##car _%e160290160544%_)))) + (##car _%e160396160650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160292160549%_)) - (let ((_%e160293160552%_ + (gx#stx-pair? _%tl160398160655%_)) + (let ((_%e160399160658%_ (let () (declare (not safe)) - (gx#stx-e _%tl160292160549%_)))) - (let ((_%tl160295160557%_ + (gx#stx-e _%tl160398160655%_)))) + (let ((_%tl160401160663%_ (let () (declare (not safe)) - (##cdr _%e160293160552%_))) - (_%hd160294160555%_ + (##cdr _%e160399160658%_))) + (_%hd160400160661%_ (let () (declare (not safe)) - (##car _%e160293160552%_)))) + (##car _%e160399160658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160294160555%_)) - (let ((_%e160296160560%_ + (gx#stx-pair? _%hd160400160661%_)) + (let ((_%e160402160666%_ (let () (declare (not safe)) - (gx#stx-e _%hd160294160555%_)))) - (let ((_%tl160298160565%_ + (gx#stx-e _%hd160400160661%_)))) + (let ((_%tl160404160671%_ (let () (declare (not safe)) - (##cdr _%e160296160560%_))) - (_%hd160297160563%_ + (##cdr _%e160402160666%_))) + (_%hd160403160669%_ (let () (declare (not safe)) - (##car _%e160296160560%_)))) + (##car _%e160402160666%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd160297160563%_)) + _%hd160403160669%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd160297160563%_)) + _%hd160403160669%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160298160565%_)) - (let ((_%e160299160568%_ + _%tl160404160671%_)) + (let ((_%e160405160674%_ (let () (declare (not safe)) (gx#stx-e - _%tl160298160565%_)))) - (let ((_%tl160301160573%_ + _%tl160404160671%_)))) + (let ((_%tl160407160679%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160299160568%_))) - (_%hd160300160571%_ - (let () (declare (not safe)) (##car _%e160299160568%_)))) + (##cdr _%e160405160674%_))) + (_%hd160406160677%_ + (let () (declare (not safe)) (##car _%e160405160674%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd160300160571%_)) - (let ((_%e160302160576%_ + (gx#stx-pair? _%hd160406160677%_)) + (let ((_%e160408160682%_ (let () (declare (not safe)) - (gx#stx-e _%hd160300160571%_)))) - (let ((_%tl160304160581%_ + (gx#stx-e _%hd160406160677%_)))) + (let ((_%tl160410160687%_ (let () (declare (not safe)) - (##cdr _%e160302160576%_))) - (_%hd160303160579%_ + (##cdr _%e160408160682%_))) + (_%hd160409160685%_ (let () (declare (not safe)) - (##car _%e160302160576%_)))) + (##car _%e160408160682%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160303160579%_)) + (gx#identifier? _%hd160409160685%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160303160579%_)) + (gx#stx-eq? '%#ref _%hd160409160685%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160304160581%_)) - (let ((_%e160305160584%_ + (gx#stx-pair? _%tl160410160687%_)) + (let ((_%e160411160690%_ (let () (declare (not safe)) - (gx#stx-e _%tl160304160581%_)))) - (let ((_%tl160307160589%_ + (gx#stx-e _%tl160410160687%_)))) + (let ((_%tl160413160695%_ (let () (declare (not safe)) - (##cdr _%e160305160584%_))) - (_%hd160306160587%_ + (##cdr _%e160411160690%_))) + (_%hd160412160693%_ (let () (declare (not safe)) - (##car _%e160305160584%_)))) + (##car _%e160411160690%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160307160589%_)) + _%tl160413160695%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160301160573%_)) - (let ((_%e160308160592%_ + _%tl160407160679%_)) + (let ((_%e160414160698%_ (let () (declare (not safe)) (gx#stx-e - _%tl160301160573%_)))) - (let ((_%tl160310160597%_ + _%tl160407160679%_)))) + (let ((_%tl160416160703%_ (let () (declare (not safe)) - (##cdr _%e160308160592%_))) - (_%hd160309160595%_ + (##cdr _%e160414160698%_))) + (_%hd160415160701%_ (let () (declare (not safe)) - (##car _%e160308160592%_)))) + (##car _%e160414160698%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd160309160595%_)) - (let ((_%e160311160600%_ + _%hd160415160701%_)) + (let ((_%e160417160706%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd160309160595%_)))) - (let ((_%tl160313160605%_ + (gx#stx-e _%hd160415160701%_)))) + (let ((_%tl160419160711%_ (let () (declare (not safe)) - (##cdr _%e160311160600%_))) - (_%hd160312160603%_ + (##cdr _%e160417160706%_))) + (_%hd160418160709%_ (let () (declare (not safe)) - (##car _%e160311160600%_)))) + (##car _%e160417160706%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd160312160603%_)) + (gx#identifier? _%hd160418160709%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd160312160603%_)) + (gx#stx-eq? '%#ref _%hd160418160709%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160313160605%_)) - (let ((_%e160314160608%_ + (gx#stx-pair? _%tl160419160711%_)) + (let ((_%e160420160714%_ (let () (declare (not safe)) - (gx#stx-e _%tl160313160605%_)))) - (let ((_%tl160316160613%_ + (gx#stx-e _%tl160419160711%_)))) + (let ((_%tl160422160719%_ (let () (declare (not safe)) - (##cdr _%e160314160608%_))) - (_%hd160315160611%_ + (##cdr _%e160420160714%_))) + (_%hd160421160717%_ (let () (declare (not safe)) - (##car _%e160314160608%_)))) + (##car _%e160420160714%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160316160613%_)) + (gx#stx-null? _%tl160422160719%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160310160597%_)) + _%tl160416160703%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160317160616%_ + _%tl160401160663%_)) + (let ((_%e160423160722%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160319160621%_ + _%tl160401160663%_)))) + (let ((_%tl160425160727%_ (let () (declare (not safe)) - (##cdr _%e160317160616%_))) - (_%hd160318160619%_ + (##cdr _%e160423160722%_))) + (_%hd160424160725%_ (let () (declare (not safe)) - (##car _%e160317160616%_)))) + (##car _%e160423160722%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160319160621%_)) - (let ((_%e160320160624%_ + _%tl160425160727%_)) + (let ((_%e160426160730%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160319160621%_)))) - (let ((_%tl160322160629%_ + (gx#stx-e _%tl160425160727%_)))) + (let ((_%tl160428160735%_ (let () (declare (not safe)) - (##cdr _%e160320160624%_))) - (_%hd160321160627%_ + (##cdr _%e160426160730%_))) + (_%hd160427160733%_ (let () (declare (not safe)) - (##car _%e160320160624%_)))) + (##car _%e160426160730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160322160629%_)) - (_%__kont169428169429%_ - _%hd160321160627%_ - _%hd160318160619%_ - _%hd160315160611%_ - _%hd160306160587%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160428160735%_)) + (_%__kont169534169535%_ + _%hd160427160733%_ + _%hd160424160725%_ + _%hd160421160717%_ + _%hd160412160693%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_))) + (_%g160390160479%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_)))) + (_%g160390160479%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160310160597%_)) + _%tl160416160703%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160348160492%_ + _%tl160401160663%_)) + (let ((_%e160454160598%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160350160497%_ + _%tl160401160663%_)))) + (let ((_%tl160456160603%_ (let () (declare (not safe)) - (##cdr _%e160348160492%_))) - (_%hd160349160495%_ + (##cdr _%e160454160598%_))) + (_%hd160455160601%_ (let () (declare (not safe)) - (##car _%e160348160492%_)))) + (##car _%e160454160598%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160350160497%_)) - (let ((_%e160351160500%_ + _%tl160456160603%_)) + (let ((_%e160457160606%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160350160497%_)))) - (let ((_%tl160353160505%_ + (gx#stx-e _%tl160456160603%_)))) + (let ((_%tl160459160611%_ (let () (declare (not safe)) - (##cdr _%e160351160500%_))) - (_%hd160352160503%_ + (##cdr _%e160457160606%_))) + (_%hd160458160609%_ (let () (declare (not safe)) - (##car _%e160351160500%_)))) + (##car _%e160457160606%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160353160505%_)) - (_%__match169587169588%_ - _%e160290160544%_ - _%hd160291160547%_ - _%tl160292160549%_ - _%e160293160552%_ - _%hd160294160555%_ - _%tl160295160557%_ - _%e160296160560%_ - _%hd160297160563%_ - _%tl160298160565%_ - _%e160299160568%_ - _%hd160300160571%_ - _%tl160301160573%_ - _%e160302160576%_ - _%hd160303160579%_ - _%tl160304160581%_ - _%e160305160584%_ - _%hd160306160587%_ - _%tl160307160589%_ - _%e160308160592%_ - _%hd160309160595%_ - _%tl160310160597%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160459160611%_)) + (_%__match169693169694%_ + _%e160396160650%_ + _%hd160397160653%_ + _%tl160398160655%_ + _%e160399160658%_ + _%hd160400160661%_ + _%tl160401160663%_ + _%e160402160666%_ + _%hd160403160669%_ + _%tl160404160671%_ + _%e160405160674%_ + _%hd160406160677%_ + _%tl160407160679%_ + _%e160408160682%_ + _%hd160409160685%_ + _%tl160410160687%_ + _%e160411160690%_ + _%hd160412160693%_ + _%tl160413160695%_ + _%e160414160698%_ + _%hd160415160701%_ + _%tl160416160703%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_))) + (_%g160390160479%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_))))))) + (_%g160390160479%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160310160597%_)) + (gx#stx-null? _%tl160416160703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160348160492%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160454160598%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160350160497%_ + _%tl160401160663%_)))) + (let ((_%tl160456160603%_ (let () (declare (not safe)) - (##cdr _%e160348160492%_))) - (_%hd160349160495%_ + (##cdr _%e160454160598%_))) + (_%hd160455160601%_ (let () (declare (not safe)) - (##car _%e160348160492%_)))) + (##car _%e160454160598%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160350160497%_)) - (let ((_%e160351160500%_ + _%tl160456160603%_)) + (let ((_%e160457160606%_ (let () (declare (not safe)) (gx#stx-e - _%tl160350160497%_)))) - (let ((_%tl160353160505%_ + _%tl160456160603%_)))) + (let ((_%tl160459160611%_ (let () (declare (not safe)) - (##cdr _%e160351160500%_))) - (_%hd160352160503%_ + (##cdr _%e160457160606%_))) + (_%hd160458160609%_ (let () (declare (not safe)) - (##car _%e160351160500%_)))) + (##car _%e160457160606%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160353160505%_)) - (_%__match169587169588%_ - _%e160290160544%_ - _%hd160291160547%_ - _%tl160292160549%_ - _%e160293160552%_ - _%hd160294160555%_ - _%tl160295160557%_ - _%e160296160560%_ - _%hd160297160563%_ - _%tl160298160565%_ - _%e160299160568%_ - _%hd160300160571%_ - _%tl160301160573%_ - _%e160302160576%_ - _%hd160303160579%_ - _%tl160304160581%_ - _%e160305160584%_ - _%hd160306160587%_ - _%tl160307160589%_ - _%e160308160592%_ - _%hd160309160595%_ - _%tl160310160597%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) + _%tl160459160611%_)) + (_%__match169693169694%_ + _%e160396160650%_ + _%hd160397160653%_ + _%tl160398160655%_ + _%e160399160658%_ + _%hd160400160661%_ + _%tl160401160663%_ + _%e160402160666%_ + _%hd160403160669%_ + _%tl160404160671%_ + _%e160405160674%_ + _%hd160406160677%_ + _%tl160407160679%_ + _%e160408160682%_ + _%hd160409160685%_ + _%tl160410160687%_ + _%e160411160690%_ + _%hd160412160693%_ + _%tl160413160695%_ + _%e160414160698%_ + _%hd160415160701%_ + _%tl160416160703%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))) + (_%g160390160479%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160310160597%_)) + (gx#stx-null? _%tl160416160703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160348160492%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160454160598%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160350160497%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160456160603%_ (let () (declare (not safe)) - (##cdr _%e160348160492%_))) - (_%hd160349160495%_ + (##cdr _%e160454160598%_))) + (_%hd160455160601%_ (let () (declare (not safe)) - (##car _%e160348160492%_)))) + (##car _%e160454160598%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160350160497%_)) - (let ((_%e160351160500%_ + _%tl160456160603%_)) + (let ((_%e160457160606%_ (let () (declare (not safe)) (gx#stx-e - _%tl160350160497%_)))) - (let ((_%tl160353160505%_ + _%tl160456160603%_)))) + (let ((_%tl160459160611%_ (let () (declare (not safe)) - (##cdr _%e160351160500%_))) - (_%hd160352160503%_ + (##cdr _%e160457160606%_))) + (_%hd160458160609%_ (let () (declare (not safe)) - (##car _%e160351160500%_)))) + (##car _%e160457160606%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160353160505%_)) - (_%__match169587169588%_ - _%e160290160544%_ - _%hd160291160547%_ - _%tl160292160549%_ - _%e160293160552%_ - _%hd160294160555%_ - _%tl160295160557%_ - _%e160296160560%_ - _%hd160297160563%_ - _%tl160298160565%_ - _%e160299160568%_ - _%hd160300160571%_ - _%tl160301160573%_ - _%e160302160576%_ - _%hd160303160579%_ - _%tl160304160581%_ - _%e160305160584%_ - _%hd160306160587%_ - _%tl160307160589%_ - _%e160308160592%_ - _%hd160309160595%_ - _%tl160310160597%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) + _%tl160459160611%_)) + (_%__match169693169694%_ + _%e160396160650%_ + _%hd160397160653%_ + _%tl160398160655%_ + _%e160399160658%_ + _%hd160400160661%_ + _%tl160401160663%_ + _%e160402160666%_ + _%hd160403160669%_ + _%tl160404160671%_ + _%e160405160674%_ + _%hd160406160677%_ + _%tl160407160679%_ + _%e160408160682%_ + _%hd160409160685%_ + _%tl160410160687%_ + _%e160411160690%_ + _%hd160412160693%_ + _%tl160413160695%_ + _%e160414160698%_ + _%hd160415160701%_ + _%tl160416160703%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))) + (_%g160390160479%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160310160597%_)) + (gx#stx-null? _%tl160416160703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160348160492%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160454160598%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160350160497%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160456160603%_ (let () (declare (not safe)) - (##cdr _%e160348160492%_))) - (_%hd160349160495%_ + (##cdr _%e160454160598%_))) + (_%hd160455160601%_ (let () (declare (not safe)) - (##car _%e160348160492%_)))) + (##car _%e160454160598%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160350160497%_)) - (let ((_%e160351160500%_ + (gx#stx-pair? _%tl160456160603%_)) + (let ((_%e160457160606%_ (let () (declare (not safe)) (gx#stx-e - _%tl160350160497%_)))) - (let ((_%tl160353160505%_ + _%tl160456160603%_)))) + (let ((_%tl160459160611%_ (let () (declare (not safe)) - (##cdr _%e160351160500%_))) - (_%hd160352160503%_ + (##cdr _%e160457160606%_))) + (_%hd160458160609%_ (let () (declare (not safe)) - (##car _%e160351160500%_)))) + (##car _%e160457160606%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160353160505%_)) - (_%__match169587169588%_ - _%e160290160544%_ - _%hd160291160547%_ - _%tl160292160549%_ - _%e160293160552%_ - _%hd160294160555%_ - _%tl160295160557%_ - _%e160296160560%_ - _%hd160297160563%_ - _%tl160298160565%_ - _%e160299160568%_ - _%hd160300160571%_ - _%tl160301160573%_ - _%e160302160576%_ - _%hd160303160579%_ - _%tl160304160581%_ - _%e160305160584%_ - _%hd160306160587%_ - _%tl160307160589%_ - _%e160308160592%_ - _%hd160309160595%_ - _%tl160310160597%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) + _%tl160459160611%_)) + (_%__match169693169694%_ + _%e160396160650%_ + _%hd160397160653%_ + _%tl160398160655%_ + _%e160399160658%_ + _%hd160400160661%_ + _%tl160401160663%_ + _%e160402160666%_ + _%hd160403160669%_ + _%tl160404160671%_ + _%e160405160674%_ + _%hd160406160677%_ + _%tl160407160679%_ + _%e160408160682%_ + _%hd160409160685%_ + _%tl160410160687%_ + _%e160411160690%_ + _%hd160412160693%_ + _%tl160413160695%_ + _%e160414160698%_ + _%hd160415160701%_ + _%tl160416160703%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))) + (_%g160390160479%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))))) + (_%g160390160479%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160310160597%_)) + (gx#stx-null? _%tl160416160703%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160348160492%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160454160598%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160350160497%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160456160603%_ (let () (declare (not safe)) - (##cdr _%e160348160492%_))) - (_%hd160349160495%_ + (##cdr _%e160454160598%_))) + (_%hd160455160601%_ (let () (declare (not safe)) - (##car _%e160348160492%_)))) + (##car _%e160454160598%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160350160497%_)) - (let ((_%e160351160500%_ + (gx#stx-pair? _%tl160456160603%_)) + (let ((_%e160457160606%_ (let () (declare (not safe)) - (gx#stx-e _%tl160350160497%_)))) - (let ((_%tl160353160505%_ + (gx#stx-e _%tl160456160603%_)))) + (let ((_%tl160459160611%_ (let () (declare (not safe)) - (##cdr _%e160351160500%_))) - (_%hd160352160503%_ + (##cdr _%e160457160606%_))) + (_%hd160458160609%_ (let () (declare (not safe)) - (##car _%e160351160500%_)))) + (##car _%e160457160606%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160353160505%_)) - (_%__match169587169588%_ - _%e160290160544%_ - _%hd160291160547%_ - _%tl160292160549%_ - _%e160293160552%_ - _%hd160294160555%_ - _%tl160295160557%_ - _%e160296160560%_ - _%hd160297160563%_ - _%tl160298160565%_ - _%e160299160568%_ - _%hd160300160571%_ - _%tl160301160573%_ - _%e160302160576%_ - _%hd160303160579%_ - _%tl160304160581%_ - _%e160305160584%_ - _%hd160306160587%_ - _%tl160307160589%_ - _%e160308160592%_ - _%hd160309160595%_ - _%tl160310160597%_ - _%e160348160492%_ - _%hd160349160495%_ - _%tl160350160497%_ - _%e160351160500%_ - _%hd160352160503%_ - _%tl160353160505%_) + (gx#stx-null? _%tl160459160611%_)) + (_%__match169693169694%_ + _%e160396160650%_ + _%hd160397160653%_ + _%tl160398160655%_ + _%e160399160658%_ + _%hd160400160661%_ + _%tl160401160663%_ + _%e160402160666%_ + _%hd160403160669%_ + _%tl160404160671%_ + _%e160405160674%_ + _%hd160406160677%_ + _%tl160407160679%_ + _%e160408160682%_ + _%hd160409160685%_ + _%tl160410160687%_ + _%e160411160690%_ + _%hd160412160693%_ + _%tl160413160695%_ + _%e160414160698%_ + _%hd160415160701%_ + _%tl160416160703%_ + _%e160454160598%_ + _%hd160455160601%_ + _%tl160456160603%_ + _%e160457160606%_ + _%hd160458160609%_ + _%tl160459160611%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ - (let () (declare (not safe)) (##car _%e160363160394%_)))) + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ + (let () (declare (not safe)) (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_)))) + (_%g160390160479%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_)))))) + (_%g160390160479%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_)))) + (_%g160390160479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_)))) + (_%g160390160479%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_)))))) + (_%g160390160479%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_)))))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + (gx#stx-e _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_)))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ - (let () (declare (not safe)) (##car _%e160363160394%_)))) + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ + (let () (declare (not safe)) (##car _%e160469160500%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160365160399%_)) - (let ((_%e160366160402%_ + (gx#stx-pair? _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_)))) + (_%g160390160479%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160295160557%_)) - (let ((_%e160363160394%_ + _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + (gx#stx-e _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) - (let () (declare (not safe)) (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))) + (gx#stx-null? _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) + (let () (declare (not safe)) (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g160284160373%_)))))) + (_%g160390160479%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160295160557%_)) - (let ((_%e160363160394%_ + (gx#stx-pair? _%tl160401160663%_)) + (let ((_%e160469160500%_ (let () (declare (not safe)) (gx#stx-e - _%tl160295160557%_)))) - (let ((_%tl160365160399%_ + _%tl160401160663%_)))) + (let ((_%tl160471160505%_ (let () (declare (not safe)) - (##cdr _%e160363160394%_))) - (_%hd160364160397%_ + (##cdr _%e160469160500%_))) + (_%hd160470160503%_ (let () (declare (not safe)) - (##car _%e160363160394%_)))) + (##car _%e160469160500%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl160365160399%_)) - (let ((_%e160366160402%_ + _%tl160471160505%_)) + (let ((_%e160472160508%_ (let () (declare (not safe)) (gx#stx-e - _%tl160365160399%_)))) - (let ((_%tl160368160407%_ + _%tl160471160505%_)))) + (let ((_%tl160474160513%_ (let () (declare (not safe)) - (##cdr _%e160366160402%_))) - (_%hd160367160405%_ + (##cdr _%e160472160508%_))) + (_%hd160473160511%_ (let () (declare (not safe)) - (##car _%e160366160402%_)))) + (##car _%e160472160508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl160368160407%_)) - (_%__kont169432169433%_ - _%hd160367160405%_ - _%hd160364160397%_ - _%hd160294160555%_) + _%tl160474160513%_)) + (_%__kont169538169539%_ + _%hd160473160511%_ + _%hd160470160503%_ + _%hd160400160661%_) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_))))) + (_%g160390160479%_))))) (let () (declare (not safe)) - (_%g160284160373%_)))))) + (_%g160390160479%_)))))) (let () (declare (not safe)) - (_%g160284160373%_))))) - (let () (declare (not safe)) (_%g160284160373%_))))))))) + (_%g160390160479%_))))) + (let () (declare (not safe)) (_%g160390160479%_))))))))) (define gxc#greatest-common-type - (lambda (_%stx160132%_ _%type-a160133%_ _%type-b160134%_) - (letrec ((_%common-e160136%_ - (lambda (_%left160236%_ _%right160237%_) - (let _%loop160239%_ ((_%rest160241%_ _%left160236%_)) - (let* ((_%rest160242160250%_ _%rest160241%_) - (_%else160244160258%_ + (lambda (_%stx160238%_ _%type-a160239%_ _%type-b160240%_) + (letrec ((_%common-e160242%_ + (lambda (_%left160342%_ _%right160343%_) + (let _%loop160345%_ ((_%rest160347%_ _%left160342%_)) + (let* ((_%rest160348160356%_ _%rest160347%_) + (_%else160350160364%_ (lambda () (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ + _%stx160238%_ 't::t)))) - (_%K160246160264%_ - (lambda (_%rest160261%_ _%klass-name160262%_) - (if (memq _%klass-name160262%_ _%right160237%_) + (_%K160352160370%_ + (lambda (_%rest160367%_ _%klass-name160368%_) + (if (memq _%klass-name160368%_ _%right160343%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ - _%klass-name160262%_)) - (_%loop160239%_ _%rest160261%_))))) - (if (pair? _%rest160242160250%_) - (let ((_%hd160247160267%_ + _%stx160238%_ + _%klass-name160368%_)) + (_%loop160345%_ _%rest160367%_))))) + (if (pair? _%rest160348160356%_) + (let ((_%hd160353160373%_ (let () (declare (not safe)) - (##car _%rest160242160250%_))) - (_%tl160248160269%_ + (##car _%rest160348160356%_))) + (_%tl160354160375%_ (let () (declare (not safe)) - (##cdr _%rest160242160250%_)))) - (let* ((_%klass-name160272%_ _%hd160247160267%_) - (_%rest160274%_ _%tl160248160269%_)) - (_%K160246160264%_ - _%rest160274%_ - _%klass-name160272%_))) - (_%else160244160258%_)))))) - (_%common-tail160137%_ - (lambda (_%precedence-list-a160156%_ - _%precedence-list-b160157%_) - (let* ((_%rev-precedence-list-a160159%_ - (reverse _%precedence-list-a160156%_)) - (_%rev-precedence-list-b160161%_ - (reverse _%precedence-list-b160157%_))) - (let _%loop160164%_ ((_%rest-a160166%_ - _%rev-precedence-list-a160159%_) - (_%rest-b160167%_ - _%rev-precedence-list-b160161%_) - (_%result160168%_ '#f)) - (let* ((_%rest-a160169160177%_ _%rest-a160166%_) - (_%else160171160185%_ + (##cdr _%rest160348160356%_)))) + (let* ((_%klass-name160378%_ _%hd160353160373%_) + (_%rest160380%_ _%tl160354160375%_)) + (_%K160352160370%_ + _%rest160380%_ + _%klass-name160378%_))) + (_%else160350160364%_)))))) + (_%common-tail160243%_ + (lambda (_%precedence-list-a160262%_ + _%precedence-list-b160263%_) + (let* ((_%rev-precedence-list-a160265%_ + (reverse _%precedence-list-a160262%_)) + (_%rev-precedence-list-b160267%_ + (reverse _%precedence-list-b160263%_))) + (let _%loop160270%_ ((_%rest-a160272%_ + _%rev-precedence-list-a160265%_) + (_%rest-b160273%_ + _%rev-precedence-list-b160267%_) + (_%result160274%_ '#f)) + (let* ((_%rest-a160275160283%_ _%rest-a160272%_) + (_%else160277160291%_ (lambda () - (if _%result160168%_ + (if _%result160274%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ - _%result160168%_)) + _%stx160238%_ + _%result160274%_)) '#f))) - (_%K160173160224%_ - (lambda (_%rest-a160188%_ _%super-a160189%_) - (let* ((_%rest-b160190160198%_ - _%rest-b160167%_) - (_%else160192160206%_ + (_%K160279160330%_ + (lambda (_%rest-a160294%_ _%super-a160295%_) + (let* ((_%rest-b160296160304%_ + _%rest-b160273%_) + (_%else160298160312%_ (lambda () - (if _%result160168%_ + (if _%result160274%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ - _%result160168%_)) + _%stx160238%_ + _%result160274%_)) '#f))) - (_%K160194160212%_ - (lambda (_%rest-b160209%_ - _%super-b160210%_) - (if (eq? _%super-a160189%_ - _%super-b160210%_) - (_%loop160164%_ - _%rest-a160188%_ - _%rest-b160209%_ - _%super-a160189%_) - (if _%result160168%_ + (_%K160300160318%_ + (lambda (_%rest-b160315%_ + _%super-b160316%_) + (if (eq? _%super-a160295%_ + _%super-b160316%_) + (_%loop160270%_ + _%rest-a160294%_ + _%rest-b160315%_ + _%super-a160295%_) + (if _%result160274%_ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ - _%result160168%_)) + _%stx160238%_ + _%result160274%_)) '#f))))) - (if (pair? _%rest-b160190160198%_) - (let ((_%hd160195160215%_ + (if (pair? _%rest-b160296160304%_) + (let ((_%hd160301160321%_ (let () (declare (not safe)) - (##car _%rest-b160190160198%_))) - (_%tl160196160217%_ + (##car _%rest-b160296160304%_))) + (_%tl160302160323%_ (let () (declare (not safe)) - (##cdr _%rest-b160190160198%_)))) - (let* ((_%super-b160220%_ - _%hd160195160215%_) - (_%rest-b160222%_ - _%tl160196160217%_)) - (_%K160194160212%_ - _%rest-b160222%_ - _%super-b160220%_))) - (_%else160192160206%_)))))) - (if (pair? _%rest-a160169160177%_) - (let ((_%hd160174160227%_ + (##cdr _%rest-b160296160304%_)))) + (let* ((_%super-b160326%_ + _%hd160301160321%_) + (_%rest-b160328%_ + _%tl160302160323%_)) + (_%K160300160318%_ + _%rest-b160328%_ + _%super-b160326%_))) + (_%else160298160312%_)))))) + (if (pair? _%rest-a160275160283%_) + (let ((_%hd160280160333%_ (let () (declare (not safe)) - (##car _%rest-a160169160177%_))) - (_%tl160175160229%_ + (##car _%rest-a160275160283%_))) + (_%tl160281160335%_ (let () (declare (not safe)) - (##cdr _%rest-a160169160177%_)))) - (let* ((_%super-a160232%_ _%hd160174160227%_) - (_%rest-a160234%_ _%tl160175160229%_)) - (_%K160173160224%_ - _%rest-a160234%_ - _%super-a160232%_))) - (_%else160171160185%_)))))))) - (if (or (not _%type-a160133%_) (not _%type-b160134%_)) + (##cdr _%rest-a160275160283%_)))) + (let* ((_%super-a160338%_ _%hd160280160333%_) + (_%rest-a160340%_ _%tl160281160335%_)) + (_%K160279160330%_ + _%rest-a160340%_ + _%super-a160338%_))) + (_%else160277160291%_)))))))) + (if (or (not _%type-a160239%_) (not _%type-b160240%_)) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160132%_ 't::t)) + (gxc#optimizer-resolve-class _%stx160238%_ 't::t)) (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-a160133%_ _%type-b160134%_)) - _%type-b160134%_ + (gxc#!type-subtype? _%type-a160239%_ _%type-b160240%_)) + _%type-b160240%_ (if (let () (declare (not safe)) - (gxc#!type-subtype? _%type-b160134%_ _%type-a160133%_)) - _%type-a160133%_ + (gxc#!type-subtype? _%type-b160240%_ _%type-a160239%_)) + _%type-a160239%_ (if (and (let () (declare (not safe)) (##structure-instance-of? - _%type-a160133%_ + _%type-a160239%_ 'gxc#!class::t)) (let () (declare (not safe)) (##structure-instance-of? - _%type-b160134%_ + _%type-b160240%_ 'gxc#!class::t))) - (let* ((_%precedence-list-a160146%_ + (let* ((_%precedence-list-a160252%_ (##structure-ref - _%type-a160133%_ + _%type-a160239%_ '3 gxc#!class::t '#f)) - (_%precedence-list-b160148%_ + (_%precedence-list-b160254%_ (##structure-ref - _%type-b160134%_ + _%type-b160240%_ '3 gxc#!class::t '#f))) - (if (> (length _%precedence-list-a160146%_) - (length _%precedence-list-b160148%_)) - (_%common-e160136%_ - _%precedence-list-b160148%_ - _%precedence-list-a160146%_) - (if (< (length _%precedence-list-a160146%_) - (length _%precedence-list-b160148%_)) - (_%common-e160136%_ - _%precedence-list-a160146%_ - _%precedence-list-b160148%_) - (_%common-tail160137%_ - _%precedence-list-a160146%_ - _%precedence-list-b160148%_)))) + (if (> (length _%precedence-list-a160252%_) + (length _%precedence-list-b160254%_)) + (_%common-e160242%_ + _%precedence-list-b160254%_ + _%precedence-list-a160252%_) + (if (< (length _%precedence-list-a160252%_) + (length _%precedence-list-b160254%_)) + (_%common-e160242%_ + _%precedence-list-a160252%_ + _%precedence-list-b160254%_) + (_%common-tail160243%_ + _%precedence-list-a160252%_ + _%precedence-list-b160254%_)))) (if (and (eq? (##structure-ref - _%type-a160133%_ + _%type-a160239%_ '1 gxc#!type::t '#f) 'procedure) (eq? (##structure-ref - _%type-b160134%_ + _%type-b160240%_ '1 gxc#!type::t '#f) @@ -14573,3419 +14573,3419 @@ (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160132%_ + _%stx160238%_ 'procedure::t)) '#f)))))))) (define gxc#basic-expression-type-quote% - (lambda (_%self160044%_ _%stx160045%_) - (let* ((_%g160047160060%_ - (lambda (_%g160048160057%_) + (lambda (_%self160150%_ _%stx160151%_) + (let* ((_%g160153160166%_ + (lambda (_%g160154160163%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g160048160057%_)))) - (_%g160046160129%_ - (lambda (_%g160048160063%_) + _%g160154160163%_)))) + (_%g160152160235%_ + (lambda (_%g160154160169%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g160048160063%_)) - (let ((_%e160050160065%_ + (gx#stx-pair? _%g160154160169%_)) + (let ((_%e160156160171%_ (let () (declare (not safe)) - (gx#stx-e _%g160048160063%_)))) - (let ((_%hd160051160068%_ + (gx#stx-e _%g160154160169%_)))) + (let ((_%hd160157160174%_ (let () (declare (not safe)) - (##car _%e160050160065%_))) - (_%tl160052160070%_ + (##car _%e160156160171%_))) + (_%tl160158160176%_ (let () (declare (not safe)) - (##cdr _%e160050160065%_)))) + (##cdr _%e160156160171%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl160052160070%_)) - (let ((_%e160053160073%_ + (gx#stx-pair? _%tl160158160176%_)) + (let ((_%e160159160179%_ (let () (declare (not safe)) - (gx#stx-e _%tl160052160070%_)))) - (let ((_%hd160054160076%_ + (gx#stx-e _%tl160158160176%_)))) + (let ((_%hd160160160182%_ (let () (declare (not safe)) - (##car _%e160053160073%_))) - (_%tl160055160078%_ + (##car _%e160159160179%_))) + (_%tl160161160184%_ (let () (declare (not safe)) - (##cdr _%e160053160073%_)))) + (##cdr _%e160159160179%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl160055160078%_)) - ((lambda (_%L160081%_) - (let ((_%obj160093%_ + (gx#stx-null? _%tl160161160184%_)) + ((lambda (_%L160187%_) + (let ((_%obj160199%_ (let () (declare (not safe)) - (gx#stx-e _%L160081%_)))) + (gx#stx-e _%L160187%_)))) (if (let () (declare (not safe)) - (immediate? _%obj160093%_)) - (if (char? _%obj160093%_) + (immediate? _%obj160199%_)) + (if (char? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'char::t)) - (if (eq? _%obj160093%_ '#t) + (if (eq? _%obj160199%_ '#t) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'true::t)) - (if (not _%obj160093%_) + (if (not _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'false::t)) - (if (eq? _%obj160093%_ + (if (eq? _%obj160199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#!void) (let () (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160045%_ 'void::t)) - (if (eof-object? _%obj160093%_) + (gxc#optimizer-resolve-class _%stx160151%_ 'void::t)) + (if (eof-object? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'eof::t)) - (if (fixnum? _%obj160093%_) + (if (fixnum? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'fixnum::t)) - (if (null? _%obj160093%_) + (if (null? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'null::t)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'special::t))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (number? _%obj160093%_) - (if (flonum? _%obj160093%_) + (if (number? _%obj160199%_) + (if (flonum? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'flonum::t)) (if (let () (declare (not safe)) (##bignum? - _%obj160093%_)) + _%obj160199%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'bignum::t)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##ratnum? _%obj160093%_)) + (##ratnum? _%obj160199%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'ratnum::t)) (if (let () (declare (not safe)) - (##cpxnum? _%obj160093%_)) + (##cpxnum? _%obj160199%_)) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'cpxnum::t)) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (symbol? _%obj160093%_) + (if (symbol? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'symbol::t)) (if (keyword? - _%obj160093%_) + _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'keyword::t)) - (if (pair? _%obj160093%_) + (if (pair? _%obj160199%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#optimizer-resolve-class _%stx160045%_ 'pair::t)) - (if (sequence? _%obj160093%_) - (if (vector? _%obj160093%_) + (gxc#optimizer-resolve-class _%stx160151%_ 'pair::t)) + (if (sequence? _%obj160199%_) + (if (vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'vector::t)) - (if (string? _%obj160093%_) + (if (string? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'string::t)) - (if (u8vector? _%obj160093%_) + (if (u8vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'u8vector::t)) - (if (s8vector? _%obj160093%_) + (if (s8vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 's8vector::t)) - (if (u16vector? _%obj160093%_) + (if (u16vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'u16vector::t)) - (if (s16vector? _%obj160093%_) + (if (s16vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 's16vector::t)) (if (u32vector? - _%obj160093%_) + _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'u32vector::t)) (if (s32vector? - _%obj160093%_) + _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 's32vector::t)) (if (u64vector? - _%obj160093%_) + _%obj160199%_) (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'u64vector::t)) - (if (s64vector? _%obj160093%_) + (if (s64vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 's64vector::t)) - (if (f32vector? _%obj160093%_) + (if (f32vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'f32vector::t)) - (if (f64vector? _%obj160093%_) + (if (f64vector? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'f64vector::t)) '#f)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (box? _%obj160093%_) + (if (box? _%obj160199%_) (let () (declare (not safe)) (gxc#optimizer-resolve-class - _%stx160045%_ + _%stx160151%_ 'box::t)) '#f))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd160054160076%_) - (_%g160047160060%_ _%g160048160063%_)))) - (_%g160047160060%_ _%g160048160063%_)))) - (_%g160047160060%_ _%g160048160063%_))))) - (_%g160046160129%_ _%stx160045%_)))) + _%hd160160160182%_) + (_%g160153160166%_ _%g160154160169%_)))) + (_%g160153160166%_ _%g160154160169%_)))) + (_%g160153160166%_ _%g160154160169%_))))) + (_%g160152160235%_ _%stx160151%_)))) (define gxc#dispatch-lambda-form? - (lambda (_%form159278%_) - (let* ((_%__stx169616169617%_ _%form159278%_) - (_%g159283159440%_ + (lambda (_%form159384%_) + (let* ((_%__stx169722169723%_ _%form159384%_) + (_%g159389159546%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169616169617%_))))) - (let ((_%__kont169618169619%_ - (lambda (_%L159964%_ _%L159965%_ _%L159966%_) '#t)) - (_%__kont169624169625%_ - (lambda (_%L159752%_ - _%L159753%_ - _%L159754%_ - _%L159755%_ - _%L159756%_ - _%L159757%_) + _%__stx169722169723%_))))) + (let ((_%__kont169724169725%_ + (lambda (_%L160070%_ _%L160071%_ _%L160072%_) '#t)) + (_%__kont169730169731%_ + (lambda (_%L159858%_ + _%L159859%_ + _%L159860%_ + _%L159861%_ + _%L159862%_ + _%L159863%_) '#t)) - (_%__kont169630169631%_ - (lambda (_%L159548%_ _%L159549%_ _%L159550%_ _%L159551%_) + (_%__kont169736169737%_ + (lambda (_%L159654%_ _%L159655%_ _%L159656%_ _%L159657%_) '#t)) - (_%__kont169632169633%_ (lambda () '#f))) - (let* ((_%__match169757169758%_ - (lambda (_%e159400159452%_ - _%hd159401159455%_ - _%tl159402159457%_ - _%e159403159460%_ - _%hd159404159463%_ - _%tl159405159465%_ - _%e159406159468%_ - _%hd159407159471%_ - _%tl159408159473%_ - _%e159409159476%_ - _%hd159410159479%_ - _%tl159411159481%_ - _%e159412159484%_ - _%hd159413159487%_ - _%tl159414159489%_ - _%e159415159492%_ - _%hd159416159495%_ - _%tl159417159497%_ - _%e159418159500%_ - _%hd159419159503%_ - _%tl159420159505%_ - _%e159421159508%_ - _%hd159422159511%_ - _%tl159423159513%_ - _%e159424159516%_ - _%hd159425159519%_ - _%tl159426159521%_ - _%e159427159524%_ - _%hd159428159527%_ - _%tl159429159529%_ - _%e159430159532%_ - _%hd159431159535%_ - _%tl159432159537%_ - _%e159433159540%_ - _%hd159434159543%_ - _%tl159435159545%_) - (let ((_%L159548%_ _%hd159434159543%_) - (_%L159549%_ _%hd159425159519%_) - (_%L159550%_ _%hd159416159495%_) - (_%L159551%_ _%hd159401159455%_)) + (_%__kont169738169739%_ (lambda () '#f))) + (let* ((_%__match169863169864%_ + (lambda (_%e159506159558%_ + _%hd159507159561%_ + _%tl159508159563%_ + _%e159509159566%_ + _%hd159510159569%_ + _%tl159511159571%_ + _%e159512159574%_ + _%hd159513159577%_ + _%tl159514159579%_ + _%e159515159582%_ + _%hd159516159585%_ + _%tl159517159587%_ + _%e159518159590%_ + _%hd159519159593%_ + _%tl159520159595%_ + _%e159521159598%_ + _%hd159522159601%_ + _%tl159523159603%_ + _%e159524159606%_ + _%hd159525159609%_ + _%tl159526159611%_ + _%e159527159614%_ + _%hd159528159617%_ + _%tl159529159619%_ + _%e159530159622%_ + _%hd159531159625%_ + _%tl159532159627%_ + _%e159533159630%_ + _%hd159534159633%_ + _%tl159535159635%_ + _%e159536159638%_ + _%hd159537159641%_ + _%tl159538159643%_ + _%e159539159646%_ + _%hd159540159649%_ + _%tl159541159651%_) + (let ((_%L159654%_ _%hd159540159649%_) + (_%L159655%_ _%hd159531159625%_) + (_%L159656%_ _%hd159522159601%_) + (_%L159657%_ _%hd159507159561%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L159551%_)) + (gx#identifier? _%L159657%_)) (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L159550%_ + _%L159656%_ 'apply)) (let () (declare (not safe)) (gx#free-identifier=? - _%L159551%_ - _%L159548%_)) + _%L159657%_ + _%L159654%_)) (not (let () (declare (not safe)) (gx#free-identifier=? - _%L159549%_ - _%L159551%_)))) - (_%__kont169630169631%_ - _%L159548%_ - _%L159549%_ - _%L159550%_ - _%L159551%_) - (_%__kont169632169633%_))))) - (_%__match169729169730%_ - (lambda (_%e159400159452%_ - _%hd159401159455%_ - _%tl159402159457%_ - _%e159403159460%_ - _%hd159404159463%_ - _%tl159405159465%_ - _%e159406159468%_ - _%hd159407159471%_ - _%tl159408159473%_ - _%e159409159476%_ - _%hd159410159479%_ - _%tl159411159481%_ - _%e159412159484%_ - _%hd159413159487%_ - _%tl159414159489%_ - _%e159415159492%_ - _%hd159416159495%_ - _%tl159417159497%_ - _%e159418159500%_ - _%hd159419159503%_ - _%tl159420159505%_ - _%e159421159508%_ - _%hd159422159511%_ - _%tl159423159513%_ - _%e159424159516%_ - _%hd159425159519%_ - _%tl159426159521%_) + _%L159655%_ + _%L159657%_)))) + (_%__kont169736169737%_ + _%L159654%_ + _%L159655%_ + _%L159656%_ + _%L159657%_) + (_%__kont169738169739%_))))) + (_%__match169835169836%_ + (lambda (_%e159506159558%_ + _%hd159507159561%_ + _%tl159508159563%_ + _%e159509159566%_ + _%hd159510159569%_ + _%tl159511159571%_ + _%e159512159574%_ + _%hd159513159577%_ + _%tl159514159579%_ + _%e159515159582%_ + _%hd159516159585%_ + _%tl159517159587%_ + _%e159518159590%_ + _%hd159519159593%_ + _%tl159520159595%_ + _%e159521159598%_ + _%hd159522159601%_ + _%tl159523159603%_ + _%e159524159606%_ + _%hd159525159609%_ + _%tl159526159611%_ + _%e159527159614%_ + _%hd159528159617%_ + _%tl159529159619%_ + _%e159530159622%_ + _%hd159531159625%_ + _%tl159532159627%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159420159505%_)) - (let ((_%e159427159524%_ + (gx#stx-pair? _%tl159526159611%_)) + (let ((_%e159533159630%_ (let () (declare (not safe)) - (gx#stx-e _%tl159420159505%_)))) - (let ((_%tl159429159529%_ + (gx#stx-e _%tl159526159611%_)))) + (let ((_%tl159535159635%_ (let () (declare (not safe)) - (##cdr _%e159427159524%_))) - (_%hd159428159527%_ + (##cdr _%e159533159630%_))) + (_%hd159534159633%_ (let () (declare (not safe)) - (##car _%e159427159524%_)))) + (##car _%e159533159630%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159428159527%_)) - (let ((_%e159430159532%_ + (gx#stx-pair? _%hd159534159633%_)) + (let ((_%e159536159638%_ (let () (declare (not safe)) - (gx#stx-e _%hd159428159527%_)))) - (let ((_%tl159432159537%_ + (gx#stx-e _%hd159534159633%_)))) + (let ((_%tl159538159643%_ (let () (declare (not safe)) - (##cdr _%e159430159532%_))) - (_%hd159431159535%_ + (##cdr _%e159536159638%_))) + (_%hd159537159641%_ (let () (declare (not safe)) - (##car _%e159430159532%_)))) + (##car _%e159536159638%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159431159535%_)) + _%hd159537159641%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159431159535%_)) + _%hd159537159641%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159432159537%_)) - (let ((_%e159433159540%_ + _%tl159538159643%_)) + (let ((_%e159539159646%_ (let () (declare (not safe)) (gx#stx-e - _%tl159432159537%_)))) - (let ((_%tl159435159545%_ + _%tl159538159643%_)))) + (let ((_%tl159541159651%_ (let () (declare (not safe)) - (##cdr _%e159433159540%_))) - (_%hd159434159543%_ + (##cdr _%e159539159646%_))) + (_%hd159540159649%_ (let () (declare (not safe)) - (##car _%e159433159540%_)))) + (##car _%e159539159646%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159435159545%_)) + _%tl159541159651%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl159429159529%_)) + (gx#stx-null? _%tl159535159635%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159405159465%_)) - (_%__match169757169758%_ - _%e159400159452%_ - _%hd159401159455%_ - _%tl159402159457%_ - _%e159403159460%_ - _%hd159404159463%_ - _%tl159405159465%_ - _%e159406159468%_ - _%hd159407159471%_ - _%tl159408159473%_ - _%e159409159476%_ - _%hd159410159479%_ - _%tl159411159481%_ - _%e159412159484%_ - _%hd159413159487%_ - _%tl159414159489%_ - _%e159415159492%_ - _%hd159416159495%_ - _%tl159417159497%_ - _%e159418159500%_ - _%hd159419159503%_ - _%tl159420159505%_ - _%e159421159508%_ - _%hd159422159511%_ - _%tl159423159513%_ - _%e159424159516%_ - _%hd159425159519%_ - _%tl159426159521%_ - _%e159427159524%_ - _%hd159428159527%_ - _%tl159429159529%_ - _%e159430159532%_ - _%hd159431159535%_ - _%tl159432159537%_ - _%e159433159540%_ - _%hd159434159543%_ - _%tl159435159545%_) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) + (gx#stx-null? _%tl159511159571%_)) + (_%__match169863169864%_ + _%e159506159558%_ + _%hd159507159561%_ + _%tl159508159563%_ + _%e159509159566%_ + _%hd159510159569%_ + _%tl159511159571%_ + _%e159512159574%_ + _%hd159513159577%_ + _%tl159514159579%_ + _%e159515159582%_ + _%hd159516159585%_ + _%tl159517159587%_ + _%e159518159590%_ + _%hd159519159593%_ + _%tl159520159595%_ + _%e159521159598%_ + _%hd159522159601%_ + _%tl159523159603%_ + _%e159524159606%_ + _%hd159525159609%_ + _%tl159526159611%_ + _%e159527159614%_ + _%hd159528159617%_ + _%tl159529159619%_ + _%e159530159622%_ + _%hd159531159625%_ + _%tl159532159627%_ + _%e159533159630%_ + _%hd159534159633%_ + _%tl159535159635%_ + _%e159536159638%_ + _%hd159537159641%_ + _%tl159538159643%_ + _%e159539159646%_ + _%hd159540159649%_ + _%tl159541159651%_) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__match169659169660%_ - (lambda (_%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%__splice169626169627%_ - _%target159339159600%_ - _%tl159341159602%_) - (letrec ((_%loop159342159605%_ - (lambda (_%hd159340159608%_ - _%arg159346159610%_) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__match169765169766%_ + (lambda (_%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%__splice169732169733%_ + _%target159445159706%_ + _%tl159447159708%_) + (letrec ((_%loop159448159711%_ + (lambda (_%hd159446159714%_ + _%arg159452159716%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159340159608%_)) - (let ((_%e159343159613%_ + (gx#stx-pair? _%hd159446159714%_)) + (let ((_%e159449159719%_ (let () (declare (not safe)) - (gx#stx-e _%hd159340159608%_)))) - (let ((_%lp-tl159345159618%_ + (gx#stx-e _%hd159446159714%_)))) + (let ((_%lp-tl159451159724%_ (let () (declare (not safe)) - (##cdr _%e159343159613%_))) - (_%lp-hd159344159616%_ + (##cdr _%e159449159719%_))) + (_%lp-hd159450159722%_ (let () (declare (not safe)) - (##car _%e159343159613%_)))) - (_%loop159342159605%_ - _%lp-tl159345159618%_ - (cons _%lp-hd159344159616%_ - _%arg159346159610%_)))) - (let ((_%arg159347159621%_ - (reverse _%arg159346159610%_))) + (##car _%e159449159719%_)))) + (_%loop159448159711%_ + _%lp-tl159451159724%_ + (cons _%lp-hd159450159722%_ + _%arg159452159716%_)))) + (let ((_%arg159453159727%_ + (reverse _%arg159452159716%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159338159597%_)) - (let ((_%e159348159624%_ + _%tl159444159703%_)) + (let ((_%e159454159730%_ (let () (declare (not safe)) (gx#stx-e - _%tl159338159597%_)))) - (let ((_%tl159350159629%_ + _%tl159444159703%_)))) + (let ((_%tl159456159735%_ (let () (declare (not safe)) - (##cdr _%e159348159624%_))) - (_%hd159349159627%_ + (##cdr _%e159454159730%_))) + (_%hd159455159733%_ (let () (declare (not safe)) - (##car _%e159348159624%_)))) + (##car _%e159454159730%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159349159627%_)) - (let ((_%e159351159632%_ + _%hd159455159733%_)) + (let ((_%e159457159738%_ (let () (declare (not safe)) (gx#stx-e - _%hd159349159627%_)))) - (let ((_%tl159353159637%_ + _%hd159455159733%_)))) + (let ((_%tl159459159743%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159351159632%_))) - (_%hd159352159635%_ - (let () (declare (not safe)) (##car _%e159351159632%_)))) + (##cdr _%e159457159738%_))) + (_%hd159458159741%_ + (let () (declare (not safe)) (##car _%e159457159738%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159352159635%_)) + (gx#identifier? _%hd159458159741%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159352159635%_)) + (gx#stx-eq? '%#call _%hd159458159741%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159353159637%_)) - (let ((_%e159354159640%_ + (gx#stx-pair? _%tl159459159743%_)) + (let ((_%e159460159746%_ (let () (declare (not safe)) - (gx#stx-e _%tl159353159637%_)))) - (let ((_%tl159356159645%_ + (gx#stx-e _%tl159459159743%_)))) + (let ((_%tl159462159751%_ (let () (declare (not safe)) - (##cdr _%e159354159640%_))) - (_%hd159355159643%_ + (##cdr _%e159460159746%_))) + (_%hd159461159749%_ (let () (declare (not safe)) - (##car _%e159354159640%_)))) + (##car _%e159460159746%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159355159643%_)) - (let ((_%e159357159648%_ + (gx#stx-pair? _%hd159461159749%_)) + (let ((_%e159463159754%_ (let () (declare (not safe)) - (gx#stx-e _%hd159355159643%_)))) - (let ((_%tl159359159653%_ + (gx#stx-e _%hd159461159749%_)))) + (let ((_%tl159465159759%_ (let () (declare (not safe)) - (##cdr _%e159357159648%_))) - (_%hd159358159651%_ + (##cdr _%e159463159754%_))) + (_%hd159464159757%_ (let () (declare (not safe)) - (##car _%e159357159648%_)))) + (##car _%e159463159754%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159358159651%_)) + _%hd159464159757%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159358159651%_)) + _%hd159464159757%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159359159653%_)) - (let ((_%e159360159656%_ + _%tl159465159759%_)) + (let ((_%e159466159762%_ (let () (declare (not safe)) (gx#stx-e - _%tl159359159653%_)))) - (let ((_%tl159362159661%_ + _%tl159465159759%_)))) + (let ((_%tl159468159767%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159360159656%_))) - (_%hd159361159659%_ - (let () (declare (not safe)) (##car _%e159360159656%_)))) + (##cdr _%e159466159762%_))) + (_%hd159467159765%_ + (let () (declare (not safe)) (##car _%e159466159762%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159362159661%_)) + (gx#stx-null? _%tl159468159767%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159356159645%_)) - (let ((_%e159363159664%_ + (gx#stx-pair? _%tl159462159751%_)) + (let ((_%e159469159770%_ (let () (declare (not safe)) - (gx#stx-e _%tl159356159645%_)))) - (let ((_%tl159365159669%_ + (gx#stx-e _%tl159462159751%_)))) + (let ((_%tl159471159775%_ (let () (declare (not safe)) - (##cdr _%e159363159664%_))) - (_%hd159364159667%_ + (##cdr _%e159469159770%_))) + (_%hd159470159773%_ (let () (declare (not safe)) - (##car _%e159363159664%_)))) + (##car _%e159469159770%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159364159667%_)) - (let ((_%e159366159672%_ + (gx#stx-pair? _%hd159470159773%_)) + (let ((_%e159472159778%_ (let () (declare (not safe)) - (gx#stx-e _%hd159364159667%_)))) - (let ((_%tl159368159677%_ + (gx#stx-e _%hd159470159773%_)))) + (let ((_%tl159474159783%_ (let () (declare (not safe)) - (##cdr _%e159366159672%_))) - (_%hd159367159675%_ + (##cdr _%e159472159778%_))) + (_%hd159473159781%_ (let () (declare (not safe)) - (##car _%e159366159672%_)))) + (##car _%e159472159778%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159367159675%_)) + (gx#identifier? _%hd159473159781%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159367159675%_)) + _%hd159473159781%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159368159677%_)) - (let ((_%e159369159680%_ + _%tl159474159783%_)) + (let ((_%e159475159786%_ (let () (declare (not safe)) (gx#stx-e - _%tl159368159677%_)))) - (let ((_%tl159371159685%_ + _%tl159474159783%_)))) + (let ((_%tl159477159791%_ (let () (declare (not safe)) - (##cdr _%e159369159680%_))) - (_%hd159370159683%_ + (##cdr _%e159475159786%_))) + (_%hd159476159789%_ (let () (declare (not safe)) - (##car _%e159369159680%_)))) + (##car _%e159475159786%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159371159685%_)) + _%tl159477159791%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl159365159669%_)) - (if (let ((__tmp171245 + _%tl159471159775%_)) + (if (let ((__tmp171351 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-length _%tl159365159669%_)))) + (gx#stx-length _%tl159471159775%_)))) (declare (not safe)) - (##fx>= __tmp171245 '1)) - (let ((_%__splice169628169629%_ + (##fx>= __tmp171351 '1)) + (let ((_%__splice169734169735%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159365159669%_ + _%tl159471159775%_ '1)))) - (let ((_%tl159374159690%_ + (let ((_%tl159480159796%_ (let () (declare (not safe)) - (##vector-ref _%__splice169628169629%_ '1))) - (_%target159372159688%_ + (##vector-ref _%__splice169734169735%_ '1))) + (_%target159478159794%_ (let () (declare (not safe)) (##vector-ref - _%__splice169628169629%_ + _%__splice169734169735%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159374159690%_)) - (let ((_%e159381159693%_ + (gx#stx-pair? _%tl159480159796%_)) + (let ((_%e159487159799%_ (let () (declare (not safe)) - (gx#stx-e _%tl159374159690%_)))) - (let ((_%tl159383159698%_ + (gx#stx-e _%tl159480159796%_)))) + (let ((_%tl159489159804%_ (let () (declare (not safe)) - (##cdr _%e159381159693%_))) - (_%hd159382159696%_ + (##cdr _%e159487159799%_))) + (_%hd159488159802%_ (let () (declare (not safe)) - (##car _%e159381159693%_)))) + (##car _%e159487159799%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159382159696%_)) - (let ((_%e159384159701%_ + (gx#stx-pair? _%hd159488159802%_)) + (let ((_%e159490159807%_ (let () (declare (not safe)) (gx#stx-e - _%hd159382159696%_)))) - (let ((_%tl159386159706%_ + _%hd159488159802%_)))) + (let ((_%tl159492159812%_ (let () (declare (not safe)) - (##cdr _%e159384159701%_))) - (_%hd159385159704%_ + (##cdr _%e159490159807%_))) + (_%hd159491159810%_ (let () (declare (not safe)) - (##car _%e159384159701%_)))) + (##car _%e159490159807%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159385159704%_)) + _%hd159491159810%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159385159704%_)) + _%hd159491159810%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159386159706%_)) - (let ((_%e159387159709%_ + _%tl159492159812%_)) + (let ((_%e159493159815%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl159386159706%_)))) - (let ((_%tl159389159714%_ + (gx#stx-e _%tl159492159812%_)))) + (let ((_%tl159495159820%_ (let () (declare (not safe)) - (##cdr _%e159387159709%_))) - (_%hd159388159712%_ + (##cdr _%e159493159815%_))) + (_%hd159494159818%_ (let () (declare (not safe)) - (##car _%e159387159709%_)))) + (##car _%e159493159815%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159389159714%_)) + (gx#stx-null? _%tl159495159820%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159383159698%_)) - (letrec ((_%loop159375159717%_ - (lambda (_%hd159373159720%_ - _%xarg159379159722%_) + (gx#stx-null? _%tl159489159804%_)) + (letrec ((_%loop159481159823%_ + (lambda (_%hd159479159826%_ + _%xarg159485159828%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159373159720%_)) - (let ((_%e159376159725%_ + _%hd159479159826%_)) + (let ((_%e159482159831%_ (let () (declare (not safe)) (gx#stx-e - _%hd159373159720%_)))) - (let ((_%lp-tl159378159730%_ + _%hd159479159826%_)))) + (let ((_%lp-tl159484159836%_ (let () (declare (not safe)) - (##cdr _%e159376159725%_))) - (_%lp-hd159377159728%_ + (##cdr _%e159482159831%_))) + (_%lp-hd159483159834%_ (let () (declare (not safe)) - (##car _%e159376159725%_)))) + (##car _%e159482159831%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159377159728%_)) - (let ((_%e159390159733%_ + _%lp-hd159483159834%_)) + (let ((_%e159496159839%_ (let () (declare (not safe)) (gx#stx-e - _%lp-hd159377159728%_)))) - (let ((_%tl159392159738%_ + _%lp-hd159483159834%_)))) + (let ((_%tl159498159844%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159390159733%_))) - (_%hd159391159736%_ - (let () (declare (not safe)) (##car _%e159390159733%_)))) + (##cdr _%e159496159839%_))) + (_%hd159497159842%_ + (let () (declare (not safe)) (##car _%e159496159839%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159391159736%_)) + (gx#identifier? _%hd159497159842%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159391159736%_)) + (gx#stx-eq? '%#ref _%hd159497159842%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159392159738%_)) - (let ((_%e159393159741%_ + (gx#stx-pair? _%tl159498159844%_)) + (let ((_%e159499159847%_ (let () (declare (not safe)) - (gx#stx-e _%tl159392159738%_)))) - (let ((_%tl159395159746%_ + (gx#stx-e _%tl159498159844%_)))) + (let ((_%tl159501159852%_ (let () (declare (not safe)) - (##cdr _%e159393159741%_))) - (_%hd159394159744%_ + (##cdr _%e159499159847%_))) + (_%hd159500159850%_ (let () (declare (not safe)) - (##car _%e159393159741%_)))) + (##car _%e159499159847%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159395159746%_)) - (_%loop159375159717%_ - _%lp-tl159378159730%_ - (cons _%hd159394159744%_ - _%xarg159379159722%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) + (gx#stx-null? _%tl159501159852%_)) + (_%loop159481159823%_ + _%lp-tl159484159836%_ + (cons _%hd159500159850%_ + _%xarg159485159828%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (let ((_%xarg159380159749%_ - (reverse _%xarg159379159722%_))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (let ((_%xarg159486159855%_ + (reverse _%xarg159485159828%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159350159629%_)) - (let ((_%L159752%_ - _%hd159388159712%_) - (_%L159753%_ - _%xarg159380159749%_) - (_%L159754%_ - _%hd159370159683%_) - (_%L159755%_ - _%hd159361159659%_) - (_%L159756%_ - _%tl159341159602%_) - (_%L159757%_ - _%arg159347159621%_)) - (if (and (let ((__tmp171246 + _%tl159456159735%_)) + (let ((_%L159858%_ + _%hd159494159818%_) + (_%L159859%_ + _%xarg159486159855%_) + (_%L159860%_ + _%hd159476159789%_) + (_%L159861%_ + _%hd159467159765%_) + (_%L159862%_ + _%tl159447159708%_) + (_%L159863%_ + _%arg159453159727%_)) + (if (and (let ((__tmp171352 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171247 - (lambda (_%g159800159803%_ - _%g159801159805%_) - (cons _%g159800159803%_ - _%g159801159805%_)))) + (let ((__tmp171353 + (lambda (_%g159906159909%_ + _%g159907159911%_) + (cons _%g159906159909%_ + _%g159907159911%_)))) (declare (not safe)) - (__foldr1 __tmp171247 '() _%L159757%_)))) + (__foldr1 __tmp171353 '() _%L159863%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171246)) - (let () (declare (not safe)) (gx#identifier? _%L159756%_)) + (gx#identifier-list? __tmp171352)) + (let () (declare (not safe)) (gx#identifier? _%L159862%_)) (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L159755%_ 'apply)) - (let ((__tmp171250 - (length (let ((__tmp171251 - (lambda (_%g159807159810%_ - _%g159808159812%_) - (cons _%g159807159810%_ - _%g159808159812%_)))) + (gxc#runtime-identifier=? _%L159861%_ 'apply)) + (let ((__tmp171356 + (length (let ((__tmp171357 + (lambda (_%g159913159916%_ + _%g159914159918%_) + (cons _%g159913159916%_ + _%g159914159918%_)))) (declare (not safe)) - (__foldr1 __tmp171251 '() _%L159757%_)))) - (__tmp171248 - (length (let ((__tmp171249 - (lambda (_%g159814159817%_ - _%g159815159819%_) - (cons _%g159814159817%_ - _%g159815159819%_)))) + (__foldr1 __tmp171357 '() _%L159863%_)))) + (__tmp171354 + (length (let ((__tmp171355 + (lambda (_%g159920159923%_ + _%g159921159925%_) + (cons _%g159920159923%_ + _%g159921159925%_)))) (declare (not safe)) (__foldr1 - __tmp171249 + __tmp171355 '() - _%L159753%_))))) + _%L159859%_))))) (declare (not safe)) - (##fx= __tmp171250 __tmp171248)) - (let ((__tmp171254 - (let ((__tmp171255 - (lambda (_%g159821159824%_ - _%g159822159826%_) - (cons _%g159821159824%_ - _%g159822159826%_)))) + (##fx= __tmp171356 __tmp171354)) + (let ((__tmp171360 + (let ((__tmp171361 + (lambda (_%g159927159930%_ + _%g159928159932%_) + (cons _%g159927159930%_ + _%g159928159932%_)))) (declare (not safe)) - (__foldr1 __tmp171255 '() _%L159757%_))) - (__tmp171252 - (let ((__tmp171253 - (lambda (_%g159828159831%_ - _%g159829159833%_) - (cons _%g159828159831%_ - _%g159829159833%_)))) + (__foldr1 __tmp171361 '() _%L159863%_))) + (__tmp171358 + (let ((__tmp171359 + (lambda (_%g159934159937%_ + _%g159935159939%_) + (cons _%g159934159937%_ + _%g159935159939%_)))) (declare (not safe)) - (__foldr1 __tmp171253 '() _%L159753%_)))) + (__foldr1 __tmp171359 '() _%L159859%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171254 - __tmp171252)) + __tmp171360 + __tmp171358)) (let () (declare (not safe)) - (gx#free-identifier=? _%L159756%_ _%L159752%_)) - (not (let ((__tmp171259 - (lambda (_%g159835159837%_) + (gx#free-identifier=? _%L159862%_ _%L159858%_)) + (not (let ((__tmp171365 + (lambda (_%g159941159943%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g159835159837%_ - _%L159754%_)))) - (__tmp171256 - (let ((__tmp171258 - (lambda (_%g159839159842%_ - _%g159840159844%_) - (cons _%g159839159842%_ - _%g159840159844%_))) - (__tmp171257 (cons _%L159756%_ '()))) + _%g159941159943%_ + _%L159860%_)))) + (__tmp171362 + (let ((__tmp171364 + (lambda (_%g159945159948%_ + _%g159946159950%_) + (cons _%g159945159948%_ + _%g159946159950%_))) + (__tmp171363 (cons _%L159862%_ '()))) (declare (not safe)) (__foldr1 - __tmp171258 - __tmp171257 - _%L159757%_)))) + __tmp171364 + __tmp171363 + _%L159863%_)))) (declare (not safe)) - (__find __tmp171259 __tmp171256)))) - (_%__kont169624169625%_ - _%L159752%_ - _%L159753%_ - _%L159754%_ - _%L159755%_ - _%L159756%_ - _%L159757%_) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_))) + (__find __tmp171365 __tmp171362)))) + (_%__kont169730169731%_ + _%L159858%_ + _%L159859%_ + _%L159860%_ + _%L159861%_ + _%L159862%_ + _%L159863%_) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_))))))) - (_%loop159375159717%_ - _%target159372159688%_ + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_))))))) + (_%loop159481159823%_ + _%target159478159794%_ '())) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)))) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__match169729169730%_ - _%e159336159592%_ - _%hd159337159595%_ - _%tl159338159597%_ - _%e159348159624%_ - _%hd159349159627%_ - _%tl159350159629%_ - _%e159351159632%_ - _%hd159352159635%_ - _%tl159353159637%_ - _%e159354159640%_ - _%hd159355159643%_ - _%tl159356159645%_ - _%e159357159648%_ - _%hd159358159651%_ - _%tl159359159653%_ - _%e159360159656%_ - _%hd159361159659%_ - _%tl159362159661%_ - _%e159363159664%_ - _%hd159364159667%_ - _%tl159365159669%_ - _%e159366159672%_ - _%hd159367159675%_ - _%tl159368159677%_ - _%e159369159680%_ - _%hd159370159683%_ - _%tl159371159685%_)) - (_%__kont169632169633%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)))) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__match169835169836%_ + _%e159442159698%_ + _%hd159443159701%_ + _%tl159444159703%_ + _%e159454159730%_ + _%hd159455159733%_ + _%tl159456159735%_ + _%e159457159738%_ + _%hd159458159741%_ + _%tl159459159743%_ + _%e159460159746%_ + _%hd159461159749%_ + _%tl159462159751%_ + _%e159463159754%_ + _%hd159464159757%_ + _%tl159465159759%_ + _%e159466159762%_ + _%hd159467159765%_ + _%tl159468159767%_ + _%e159469159770%_ + _%hd159470159773%_ + _%tl159471159775%_ + _%e159472159778%_ + _%hd159473159781%_ + _%tl159474159783%_ + _%e159475159786%_ + _%hd159476159789%_ + _%tl159477159791%_)) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)))) - (_%__kont169632169633%_))))))) - (_%loop159342159605%_ _%target159339159600%_ '())))) - (_%__match169647169648%_ - (lambda (_%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_) - (letrec ((_%loop159294159865%_ - (lambda (_%hd159292159868%_ - _%arg159298159870%_) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_))))))) + (_%loop159448159711%_ _%target159445159706%_ '())))) + (_%__match169753169754%_ + (lambda (_%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_) + (letrec ((_%loop159400159971%_ + (lambda (_%hd159398159974%_ + _%arg159404159976%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159292159868%_)) - (let ((_%e159295159873%_ + (gx#stx-pair? _%hd159398159974%_)) + (let ((_%e159401159979%_ (let () (declare (not safe)) - (gx#stx-e _%hd159292159868%_)))) - (let ((_%lp-tl159297159878%_ + (gx#stx-e _%hd159398159974%_)))) + (let ((_%lp-tl159403159984%_ (let () (declare (not safe)) - (##cdr _%e159295159873%_))) - (_%lp-hd159296159876%_ + (##cdr _%e159401159979%_))) + (_%lp-hd159402159982%_ (let () (declare (not safe)) - (##car _%e159295159873%_)))) - (_%loop159294159865%_ - _%lp-tl159297159878%_ - (cons _%lp-hd159296159876%_ - _%arg159298159870%_)))) - (let ((_%arg159299159881%_ - (reverse _%arg159298159870%_))) + (##car _%e159401159979%_)))) + (_%loop159400159971%_ + _%lp-tl159403159984%_ + (cons _%lp-hd159402159982%_ + _%arg159404159976%_)))) + (let ((_%arg159405159987%_ + (reverse _%arg159404159976%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159290159857%_)) - (let ((_%e159300159884%_ + _%tl159396159963%_)) + (let ((_%e159406159990%_ (let () (declare (not safe)) (gx#stx-e - _%tl159290159857%_)))) - (let ((_%tl159302159889%_ + _%tl159396159963%_)))) + (let ((_%tl159408159995%_ (let () (declare (not safe)) - (##cdr _%e159300159884%_))) - (_%hd159301159887%_ + (##cdr _%e159406159990%_))) + (_%hd159407159993%_ (let () (declare (not safe)) - (##car _%e159300159884%_)))) + (##car _%e159406159990%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159301159887%_)) - (let ((_%e159303159892%_ + _%hd159407159993%_)) + (let ((_%e159409159998%_ (let () (declare (not safe)) (gx#stx-e - _%hd159301159887%_)))) - (let ((_%tl159305159897%_ + _%hd159407159993%_)))) + (let ((_%tl159411160003%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159303159892%_))) - (_%hd159304159895%_ - (let () (declare (not safe)) (##car _%e159303159892%_)))) + (##cdr _%e159409159998%_))) + (_%hd159410160001%_ + (let () (declare (not safe)) (##car _%e159409159998%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159304159895%_)) + (gx#identifier? _%hd159410160001%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd159304159895%_)) + (gx#stx-eq? '%#call _%hd159410160001%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159305159897%_)) - (let ((_%e159306159900%_ + (gx#stx-pair? _%tl159411160003%_)) + (let ((_%e159412160006%_ (let () (declare (not safe)) - (gx#stx-e _%tl159305159897%_)))) - (let ((_%tl159308159905%_ + (gx#stx-e _%tl159411160003%_)))) + (let ((_%tl159414160011%_ (let () (declare (not safe)) - (##cdr _%e159306159900%_))) - (_%hd159307159903%_ + (##cdr _%e159412160006%_))) + (_%hd159413160009%_ (let () (declare (not safe)) - (##car _%e159306159900%_)))) + (##car _%e159412160006%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159307159903%_)) - (let ((_%e159309159908%_ + (gx#stx-pair? _%hd159413160009%_)) + (let ((_%e159415160014%_ (let () (declare (not safe)) - (gx#stx-e _%hd159307159903%_)))) - (let ((_%tl159311159913%_ + (gx#stx-e _%hd159413160009%_)))) + (let ((_%tl159417160019%_ (let () (declare (not safe)) - (##cdr _%e159309159908%_))) - (_%hd159310159911%_ + (##cdr _%e159415160014%_))) + (_%hd159416160017%_ (let () (declare (not safe)) - (##car _%e159309159908%_)))) + (##car _%e159415160014%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159310159911%_)) + _%hd159416160017%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd159310159911%_)) + _%hd159416160017%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159311159913%_)) - (let ((_%e159312159916%_ + _%tl159417160019%_)) + (let ((_%e159418160022%_ (let () (declare (not safe)) (gx#stx-e - _%tl159311159913%_)))) - (let ((_%tl159314159921%_ + _%tl159417160019%_)))) + (let ((_%tl159420160027%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e159312159916%_))) - (_%hd159313159919%_ - (let () (declare (not safe)) (##car _%e159312159916%_)))) + (##cdr _%e159418160022%_))) + (_%hd159419160025%_ + (let () (declare (not safe)) (##car _%e159418160022%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159314159921%_)) + (gx#stx-null? _%tl159420160027%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl159308159905%_)) - (let ((_%__splice169622169623%_ + (gx#stx-pair/null? _%tl159414160011%_)) + (let ((_%__splice169728169729%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl159308159905%_ + _%tl159414160011%_ '0)))) - (let ((_%tl159317159926%_ + (let ((_%tl159423160032%_ (let () (declare (not safe)) - (##vector-ref _%__splice169622169623%_ '1))) - (_%target159315159924%_ + (##vector-ref _%__splice169728169729%_ '1))) + (_%target159421160030%_ (let () (declare (not safe)) (##vector-ref - _%__splice169622169623%_ + _%__splice169728169729%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159317159926%_)) - (letrec ((_%loop159318159929%_ - (lambda (_%hd159316159932%_ - _%xarg159322159934%_) + (gx#stx-null? _%tl159423160032%_)) + (letrec ((_%loop159424160035%_ + (lambda (_%hd159422160038%_ + _%xarg159428160040%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159316159932%_)) - (let ((_%e159319159937%_ + _%hd159422160038%_)) + (let ((_%e159425160043%_ (let () (declare (not safe)) (gx#stx-e - _%hd159316159932%_)))) - (let ((_%lp-tl159321159942%_ + _%hd159422160038%_)))) + (let ((_%lp-tl159427160048%_ (let () (declare (not safe)) - (##cdr _%e159319159937%_))) - (_%lp-hd159320159940%_ + (##cdr _%e159425160043%_))) + (_%lp-hd159426160046%_ (let () (declare (not safe)) - (##car _%e159319159937%_)))) + (##car _%e159425160043%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd159320159940%_)) - (let ((_%e159324159945%_ + _%lp-hd159426160046%_)) + (let ((_%e159430160051%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd159320159940%_)))) - (let ((_%tl159326159950%_ + (gx#stx-e _%lp-hd159426160046%_)))) + (let ((_%tl159432160056%_ (let () (declare (not safe)) - (##cdr _%e159324159945%_))) - (_%hd159325159948%_ + (##cdr _%e159430160051%_))) + (_%hd159431160054%_ (let () (declare (not safe)) - (##car _%e159324159945%_)))) + (##car _%e159430160051%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159325159948%_)) + (gx#identifier? _%hd159431160054%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159325159948%_)) + (gx#stx-eq? '%#ref _%hd159431160054%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159326159950%_)) - (let ((_%e159327159953%_ + (gx#stx-pair? _%tl159432160056%_)) + (let ((_%e159433160059%_ (let () (declare (not safe)) - (gx#stx-e _%tl159326159950%_)))) - (let ((_%tl159329159958%_ + (gx#stx-e _%tl159432160056%_)))) + (let ((_%tl159435160064%_ (let () (declare (not safe)) - (##cdr _%e159327159953%_))) - (_%hd159328159956%_ + (##cdr _%e159433160059%_))) + (_%hd159434160062%_ (let () (declare (not safe)) - (##car _%e159327159953%_)))) + (##car _%e159433160059%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159329159958%_)) - (_%loop159318159929%_ - _%lp-tl159321159942%_ - (cons _%hd159328159956%_ - _%xarg159322159934%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) + (gx#stx-null? _%tl159435160064%_)) + (_%loop159424160035%_ + _%lp-tl159427160048%_ + (cons _%hd159434160062%_ + _%xarg159428160040%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg159323159961%_ - (reverse _%xarg159322159934%_))) + (let ((_%xarg159429160067%_ + (reverse _%xarg159428160040%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159302159889%_)) - (let ((_%L159964%_ - _%xarg159323159961%_) - (_%L159965%_ - _%hd159313159919%_) - (_%L159966%_ - _%arg159299159881%_)) - (if (and (let ((__tmp171260 + _%tl159408159995%_)) + (let ((_%L160070%_ + _%xarg159429160067%_) + (_%L160071%_ + _%hd159419160025%_) + (_%L160072%_ + _%arg159405159987%_)) + (if (and (let ((__tmp171366 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171261 - (lambda (_%g159994159997%_ - _%g159995159999%_) - (cons _%g159994159997%_ - _%g159995159999%_)))) + (let ((__tmp171367 + (lambda (_%g160100160103%_ + _%g160101160105%_) + (cons _%g160100160103%_ + _%g160101160105%_)))) (declare (not safe)) - (__foldr1 __tmp171261 '() _%L159966%_)))) + (__foldr1 __tmp171367 '() _%L160072%_)))) (declare (not safe)) - (gx#identifier-list? __tmp171260)) - (let ((__tmp171264 - (length (let ((__tmp171265 - (lambda (_%g160001160004%_ - _%g160002160006%_) - (cons _%g160001160004%_ - _%g160002160006%_)))) + (gx#identifier-list? __tmp171366)) + (let ((__tmp171370 + (length (let ((__tmp171371 + (lambda (_%g160107160110%_ + _%g160108160112%_) + (cons _%g160107160110%_ + _%g160108160112%_)))) (declare (not safe)) (__foldr1 - __tmp171265 + __tmp171371 '() - _%L159966%_)))) - (__tmp171262 - (length (let ((__tmp171263 - (lambda (_%g160008160011%_ - _%g160009160013%_) - (cons _%g160008160011%_ - _%g160009160013%_)))) + _%L160072%_)))) + (__tmp171368 + (length (let ((__tmp171369 + (lambda (_%g160114160117%_ + _%g160115160119%_) + (cons _%g160114160117%_ + _%g160115160119%_)))) (declare (not safe)) (__foldr1 - __tmp171263 + __tmp171369 '() - _%L159964%_))))) + _%L160070%_))))) (declare (not safe)) - (##fx= __tmp171264 __tmp171262)) - (let ((__tmp171268 - (let ((__tmp171269 - (lambda (_%g160015160018%_ - _%g160016160020%_) - (cons _%g160015160018%_ - _%g160016160020%_)))) + (##fx= __tmp171370 __tmp171368)) + (let ((__tmp171374 + (let ((__tmp171375 + (lambda (_%g160121160124%_ + _%g160122160126%_) + (cons _%g160121160124%_ + _%g160122160126%_)))) (declare (not safe)) - (__foldr1 __tmp171269 '() _%L159966%_))) - (__tmp171266 - (let ((__tmp171267 - (lambda (_%g160022160025%_ - _%g160023160027%_) - (cons _%g160022160025%_ - _%g160023160027%_)))) + (__foldr1 __tmp171375 '() _%L160072%_))) + (__tmp171372 + (let ((__tmp171373 + (lambda (_%g160128160131%_ + _%g160129160133%_) + (cons _%g160128160131%_ + _%g160129160133%_)))) (declare (not safe)) - (__foldr1 __tmp171267 '() _%L159964%_)))) + (__foldr1 __tmp171373 '() _%L160070%_)))) (declare (not safe)) (__andmap2 gx#free-identifier=? - __tmp171268 - __tmp171266)) - (not (let ((__tmp171272 - (lambda (_%g160029160031%_) + __tmp171374 + __tmp171372)) + (not (let ((__tmp171378 + (lambda (_%g160135160137%_) (let () (declare (not safe)) (gx#free-identifier=? - _%g160029160031%_ - _%L159965%_)))) - (__tmp171270 - (let ((__tmp171271 - (lambda (_%g160033160036%_ - _%g160034160038%_) - (cons _%g160033160036%_ - _%g160034160038%_)))) + _%g160135160137%_ + _%L160071%_)))) + (__tmp171376 + (let ((__tmp171377 + (lambda (_%g160139160142%_ + _%g160140160144%_) + (cons _%g160139160142%_ + _%g160140160144%_)))) (declare (not safe)) (__foldr1 - __tmp171271 + __tmp171377 '() - _%L159966%_)))) + _%L160072%_)))) (declare (not safe)) - (__find __tmp171272 __tmp171270)))) - (_%__kont169618169619%_ - _%L159964%_ - _%L159965%_ - _%L159966%_) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_))))))) + (__find __tmp171378 __tmp171376)))) + (_%__kont169724169725%_ + _%L160070%_ + _%L160071%_ + _%L160072%_) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop159318159929%_ - _%target159315159924%_ + (_%loop159424160035%_ + _%target159421160030%_ '())) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_))))))) - (_%loop159294159865%_ _%target159291159860%_ '()))))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_))))))) + (_%loop159400159971%_ _%target159397159966%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169616169617%_)) - (let ((_%e159288159852%_ + (gx#stx-pair? _%__stx169722169723%_)) + (let ((_%e159394159958%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169616169617%_)))) - (let ((_%tl159290159857%_ + (gx#stx-e _%__stx169722169723%_)))) + (let ((_%tl159396159963%_ (let () (declare (not safe)) - (##cdr _%e159288159852%_))) - (_%hd159289159855%_ + (##cdr _%e159394159958%_))) + (_%hd159395159961%_ (let () (declare (not safe)) - (##car _%e159288159852%_)))) + (##car _%e159394159958%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd159289159855%_)) - (let ((_%__splice169620169621%_ + (gx#stx-pair/null? _%hd159395159961%_)) + (let ((_%__splice169726169727%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd159289159855%_ + _%hd159395159961%_ '0)))) - (let ((_%tl159293159862%_ + (let ((_%tl159399159968%_ (let () (declare (not safe)) (##vector-ref - _%__splice169620169621%_ + _%__splice169726169727%_ '1))) - (_%target159291159860%_ + (_%target159397159966%_ (let () (declare (not safe)) (##vector-ref - _%__splice169620169621%_ + _%__splice169726169727%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159293159862%_)) - (_%__match169647169648%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_) - (_%__match169659169660%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%__splice169620169621%_ - _%target159291159860%_ - _%tl159293159862%_)))) + (gx#stx-null? _%tl159399159968%_)) + (_%__match169753169754%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_) + (_%__match169765169766%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%__splice169726169727%_ + _%target159397159966%_ + _%tl159399159968%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159290159857%_)) - (let ((_%e159403159460%_ + (gx#stx-pair? _%tl159396159963%_)) + (let ((_%e159509159566%_ (let () (declare (not safe)) - (gx#stx-e _%tl159290159857%_)))) - (let ((_%tl159405159465%_ + (gx#stx-e _%tl159396159963%_)))) + (let ((_%tl159511159571%_ (let () (declare (not safe)) - (##cdr _%e159403159460%_))) - (_%hd159404159463%_ + (##cdr _%e159509159566%_))) + (_%hd159510159569%_ (let () (declare (not safe)) - (##car _%e159403159460%_)))) + (##car _%e159509159566%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159404159463%_)) - (let ((_%e159406159468%_ + (gx#stx-pair? _%hd159510159569%_)) + (let ((_%e159512159574%_ (let () (declare (not safe)) - (gx#stx-e _%hd159404159463%_)))) - (let ((_%tl159408159473%_ + (gx#stx-e _%hd159510159569%_)))) + (let ((_%tl159514159579%_ (let () (declare (not safe)) - (##cdr _%e159406159468%_))) - (_%hd159407159471%_ + (##cdr _%e159512159574%_))) + (_%hd159513159577%_ (let () (declare (not safe)) - (##car _%e159406159468%_)))) + (##car _%e159512159574%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd159407159471%_)) + _%hd159513159577%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd159407159471%_)) + _%hd159513159577%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159408159473%_)) - (let ((_%e159409159476%_ + _%tl159514159579%_)) + (let ((_%e159515159582%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl159408159473%_)))) - (let ((_%tl159411159481%_ - (let () (declare (not safe)) (##cdr _%e159409159476%_))) - (_%hd159410159479%_ + (gx#stx-e _%tl159514159579%_)))) + (let ((_%tl159517159587%_ + (let () (declare (not safe)) (##cdr _%e159515159582%_))) + (_%hd159516159585%_ (let () (declare (not safe)) - (##car _%e159409159476%_)))) + (##car _%e159515159582%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd159410159479%_)) - (let ((_%e159412159484%_ + (gx#stx-pair? _%hd159516159585%_)) + (let ((_%e159518159590%_ (let () (declare (not safe)) - (gx#stx-e _%hd159410159479%_)))) - (let ((_%tl159414159489%_ + (gx#stx-e _%hd159516159585%_)))) + (let ((_%tl159520159595%_ (let () (declare (not safe)) - (##cdr _%e159412159484%_))) - (_%hd159413159487%_ + (##cdr _%e159518159590%_))) + (_%hd159519159593%_ (let () (declare (not safe)) - (##car _%e159412159484%_)))) + (##car _%e159518159590%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159413159487%_)) + (gx#identifier? _%hd159519159593%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159413159487%_)) + (gx#stx-eq? '%#ref _%hd159519159593%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159414159489%_)) - (let ((_%e159415159492%_ + (gx#stx-pair? _%tl159520159595%_)) + (let ((_%e159521159598%_ (let () (declare (not safe)) - (gx#stx-e _%tl159414159489%_)))) - (let ((_%tl159417159497%_ + (gx#stx-e _%tl159520159595%_)))) + (let ((_%tl159523159603%_ (let () (declare (not safe)) - (##cdr _%e159415159492%_))) - (_%hd159416159495%_ + (##cdr _%e159521159598%_))) + (_%hd159522159601%_ (let () (declare (not safe)) - (##car _%e159415159492%_)))) + (##car _%e159521159598%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159417159497%_)) + _%tl159523159603%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159411159481%_)) - (let ((_%e159418159500%_ + _%tl159517159587%_)) + (let ((_%e159524159606%_ (let () (declare (not safe)) (gx#stx-e - _%tl159411159481%_)))) - (let ((_%tl159420159505%_ + _%tl159517159587%_)))) + (let ((_%tl159526159611%_ (let () (declare (not safe)) - (##cdr _%e159418159500%_))) - (_%hd159419159503%_ + (##cdr _%e159524159606%_))) + (_%hd159525159609%_ (let () (declare (not safe)) - (##car _%e159418159500%_)))) + (##car _%e159524159606%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159419159503%_)) - (let ((_%e159421159508%_ + _%hd159525159609%_)) + (let ((_%e159527159614%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd159419159503%_)))) - (let ((_%tl159423159513%_ + (gx#stx-e _%hd159525159609%_)))) + (let ((_%tl159529159619%_ (let () (declare (not safe)) - (##cdr _%e159421159508%_))) - (_%hd159422159511%_ + (##cdr _%e159527159614%_))) + (_%hd159528159617%_ (let () (declare (not safe)) - (##car _%e159421159508%_)))) + (##car _%e159527159614%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159422159511%_)) + (gx#identifier? _%hd159528159617%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159422159511%_)) + (gx#stx-eq? '%#ref _%hd159528159617%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159423159513%_)) - (let ((_%e159424159516%_ + (gx#stx-pair? _%tl159529159619%_)) + (let ((_%e159530159622%_ (let () (declare (not safe)) - (gx#stx-e _%tl159423159513%_)))) - (let ((_%tl159426159521%_ + (gx#stx-e _%tl159529159619%_)))) + (let ((_%tl159532159627%_ (let () (declare (not safe)) - (##cdr _%e159424159516%_))) - (_%hd159425159519%_ + (##cdr _%e159530159622%_))) + (_%hd159531159625%_ (let () (declare (not safe)) - (##car _%e159424159516%_)))) + (##car _%e159530159622%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159426159521%_)) + (gx#stx-null? _%tl159532159627%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl159420159505%_)) - (let ((_%e159427159524%_ + _%tl159526159611%_)) + (let ((_%e159533159630%_ (let () (declare (not safe)) (gx#stx-e - _%tl159420159505%_)))) - (let ((_%tl159429159529%_ + _%tl159526159611%_)))) + (let ((_%tl159535159635%_ (let () (declare (not safe)) - (##cdr _%e159427159524%_))) - (_%hd159428159527%_ + (##cdr _%e159533159630%_))) + (_%hd159534159633%_ (let () (declare (not safe)) - (##car _%e159427159524%_)))) + (##car _%e159533159630%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd159428159527%_)) - (let ((_%e159430159532%_ + _%hd159534159633%_)) + (let ((_%e159536159638%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd159428159527%_)))) - (let ((_%tl159432159537%_ - (let () (declare (not safe)) (##cdr _%e159430159532%_))) - (_%hd159431159535%_ + (gx#stx-e _%hd159534159633%_)))) + (let ((_%tl159538159643%_ + (let () (declare (not safe)) (##cdr _%e159536159638%_))) + (_%hd159537159641%_ (let () (declare (not safe)) - (##car _%e159430159532%_)))) + (##car _%e159536159638%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd159431159535%_)) + (gx#identifier? _%hd159537159641%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd159431159535%_)) + (gx#stx-eq? '%#ref _%hd159537159641%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl159432159537%_)) - (let ((_%e159433159540%_ + (gx#stx-pair? _%tl159538159643%_)) + (let ((_%e159539159646%_ (let () (declare (not safe)) - (gx#stx-e _%tl159432159537%_)))) - (let ((_%tl159435159545%_ + (gx#stx-e _%tl159538159643%_)))) + (let ((_%tl159541159651%_ (let () (declare (not safe)) - (##cdr _%e159433159540%_))) - (_%hd159434159543%_ + (##cdr _%e159539159646%_))) + (_%hd159540159649%_ (let () (declare (not safe)) - (##car _%e159433159540%_)))) + (##car _%e159539159646%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159435159545%_)) + (gx#stx-null? _%tl159541159651%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl159429159529%_)) + (gx#stx-null? _%tl159535159635%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl159405159465%_)) - (_%__match169757169758%_ - _%e159288159852%_ - _%hd159289159855%_ - _%tl159290159857%_ - _%e159403159460%_ - _%hd159404159463%_ - _%tl159405159465%_ - _%e159406159468%_ - _%hd159407159471%_ - _%tl159408159473%_ - _%e159409159476%_ - _%hd159410159479%_ - _%tl159411159481%_ - _%e159412159484%_ - _%hd159413159487%_ - _%tl159414159489%_ - _%e159415159492%_ - _%hd159416159495%_ - _%tl159417159497%_ - _%e159418159500%_ - _%hd159419159503%_ - _%tl159420159505%_ - _%e159421159508%_ - _%hd159422159511%_ - _%tl159423159513%_ - _%e159424159516%_ - _%hd159425159519%_ - _%tl159426159521%_ - _%e159427159524%_ - _%hd159428159527%_ - _%tl159429159529%_ - _%e159430159532%_ - _%hd159431159535%_ - _%tl159432159537%_ - _%e159433159540%_ - _%hd159434159543%_ - _%tl159435159545%_) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) + _%tl159511159571%_)) + (_%__match169863169864%_ + _%e159394159958%_ + _%hd159395159961%_ + _%tl159396159963%_ + _%e159509159566%_ + _%hd159510159569%_ + _%tl159511159571%_ + _%e159512159574%_ + _%hd159513159577%_ + _%tl159514159579%_ + _%e159515159582%_ + _%hd159516159585%_ + _%tl159517159587%_ + _%e159518159590%_ + _%hd159519159593%_ + _%tl159520159595%_ + _%e159521159598%_ + _%hd159522159601%_ + _%tl159523159603%_ + _%e159524159606%_ + _%hd159525159609%_ + _%tl159526159611%_ + _%e159527159614%_ + _%hd159528159617%_ + _%tl159529159619%_ + _%e159530159622%_ + _%hd159531159625%_ + _%tl159532159627%_ + _%e159533159630%_ + _%hd159534159633%_ + _%tl159535159635%_ + _%e159536159638%_ + _%hd159537159641%_ + _%tl159538159643%_ + _%e159539159646%_ + _%hd159540159649%_ + _%tl159541159651%_) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169632169633%_)) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_)))) - (_%__kont169632169633%_))))) - (_%__kont169632169633%_))))))) + (_%__kont169738169739%_)) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_)))) + (_%__kont169738169739%_))))) + (_%__kont169738169739%_))))))) (define gxc#dispatch-lambda-form-delegate - (lambda (_%form158746%_) - (let* ((_%__stx169760169761%_ _%form158746%_) - (_%g158750158874%_ + (lambda (_%form158852%_) + (let* ((_%__stx169866169867%_ _%form158852%_) + (_%g158856158980%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169760169761%_))))) - (let ((_%__kont169762169763%_ - (lambda (_%L159244%_ _%L159245%_ _%L159246%_) + _%__stx169866169867%_))))) + (let ((_%__kont169868169869%_ + (lambda (_%L159350%_ _%L159351%_ _%L159352%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159245%_)))) - (_%__kont169768169769%_ - (lambda (_%L159092%_ _%L159093%_ _%L159094%_ _%L159095%_) + (gxc#identifier-symbol _%L159351%_)))) + (_%__kont169874169875%_ + (lambda (_%L159198%_ _%L159199%_ _%L159200%_ _%L159201%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L159092%_)))) - (_%__kont169772169773%_ - (lambda (_%L158959%_ _%L158960%_ _%L158961%_) + (gxc#identifier-symbol _%L159198%_)))) + (_%__kont169878169879%_ + (lambda (_%L159065%_ _%L159066%_ _%L159067%_) (let () (declare (not safe)) - (gxc#identifier-symbol _%L158959%_))))) - (let* ((_%__match169869169870%_ - (lambda (_%e158840158879%_ - _%hd158841158882%_ - _%tl158842158884%_ - _%e158843158887%_ - _%hd158844158890%_ - _%tl158845158892%_ - _%e158846158895%_ - _%hd158847158898%_ - _%tl158848158900%_ - _%e158849158903%_ - _%hd158850158906%_ - _%tl158851158908%_ - _%e158852158911%_ - _%hd158853158914%_ - _%tl158854158916%_ - _%e158855158919%_ - _%hd158856158922%_ - _%tl158857158924%_ - _%e158858158927%_ - _%hd158859158930%_ - _%tl158860158932%_ - _%e158861158935%_ - _%hd158862158938%_ - _%tl158863158940%_ - _%e158864158943%_ - _%hd158865158946%_ - _%tl158866158948%_) + (gxc#identifier-symbol _%L159065%_))))) + (let* ((_%__match169975169976%_ + (lambda (_%e158946158985%_ + _%hd158947158988%_ + _%tl158948158990%_ + _%e158949158993%_ + _%hd158950158996%_ + _%tl158951158998%_ + _%e158952159001%_ + _%hd158953159004%_ + _%tl158954159006%_ + _%e158955159009%_ + _%hd158956159012%_ + _%tl158957159014%_ + _%e158958159017%_ + _%hd158959159020%_ + _%tl158960159022%_ + _%e158961159025%_ + _%hd158962159028%_ + _%tl158963159030%_ + _%e158964159033%_ + _%hd158965159036%_ + _%tl158966159038%_ + _%e158967159041%_ + _%hd158968159044%_ + _%tl158969159046%_ + _%e158970159049%_ + _%hd158971159052%_ + _%tl158972159054%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158860158932%_)) - (let ((_%e158867158951%_ + (gx#stx-pair? _%tl158966159038%_)) + (let ((_%e158973159057%_ (let () (declare (not safe)) - (gx#stx-e _%tl158860158932%_)))) - (let ((_%tl158869158956%_ + (gx#stx-e _%tl158966159038%_)))) + (let ((_%tl158975159062%_ (let () (declare (not safe)) - (##cdr _%e158867158951%_))) - (_%hd158868158954%_ + (##cdr _%e158973159057%_))) + (_%hd158974159060%_ (let () (declare (not safe)) - (##car _%e158867158951%_)))) + (##car _%e158973159057%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158869158956%_)) + (gx#stx-null? _%tl158975159062%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158845158892%_)) - (_%__kont169772169773%_ - _%hd158865158946%_ - _%hd158856158922%_ - _%hd158841158882%_) + (gx#stx-null? _%tl158951158998%_)) + (_%__kont169878169879%_ + _%hd158971159052%_ + _%hd158962159028%_ + _%hd158947158988%_) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))))) - (_%__match169799169800%_ - (lambda (_%e158801158996%_ - _%hd158802158999%_ - _%tl158803159001%_ - _%__splice169770169771%_ - _%target158804159004%_ - _%tl158806159006%_) - (letrec ((_%loop158807159009%_ - (lambda (_%hd158805159012%_ - _%arg158811159014%_) + (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))))) + (_%__match169905169906%_ + (lambda (_%e158907159102%_ + _%hd158908159105%_ + _%tl158909159107%_ + _%__splice169876169877%_ + _%target158910159110%_ + _%tl158912159112%_) + (letrec ((_%loop158913159115%_ + (lambda (_%hd158911159118%_ + _%arg158917159120%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158805159012%_)) - (let ((_%e158808159017%_ + (gx#stx-pair? _%hd158911159118%_)) + (let ((_%e158914159123%_ (let () (declare (not safe)) - (gx#stx-e _%hd158805159012%_)))) - (let ((_%lp-tl158810159022%_ + (gx#stx-e _%hd158911159118%_)))) + (let ((_%lp-tl158916159128%_ (let () (declare (not safe)) - (##cdr _%e158808159017%_))) - (_%lp-hd158809159020%_ + (##cdr _%e158914159123%_))) + (_%lp-hd158915159126%_ (let () (declare (not safe)) - (##car _%e158808159017%_)))) - (_%loop158807159009%_ - _%lp-tl158810159022%_ - (cons _%lp-hd158809159020%_ - _%arg158811159014%_)))) - (let ((_%arg158812159025%_ - (reverse _%arg158811159014%_))) + (##car _%e158914159123%_)))) + (_%loop158913159115%_ + _%lp-tl158916159128%_ + (cons _%lp-hd158915159126%_ + _%arg158917159120%_)))) + (let ((_%arg158918159131%_ + (reverse _%arg158917159120%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158803159001%_)) - (let ((_%e158813159028%_ + _%tl158909159107%_)) + (let ((_%e158919159134%_ (let () (declare (not safe)) (gx#stx-e - _%tl158803159001%_)))) - (let ((_%tl158815159033%_ + _%tl158909159107%_)))) + (let ((_%tl158921159139%_ (let () (declare (not safe)) - (##cdr _%e158813159028%_))) - (_%hd158814159031%_ + (##cdr _%e158919159134%_))) + (_%hd158920159137%_ (let () (declare (not safe)) - (##car _%e158813159028%_)))) + (##car _%e158919159134%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158814159031%_)) - (let ((_%e158816159036%_ + _%hd158920159137%_)) + (let ((_%e158922159142%_ (let () (declare (not safe)) (gx#stx-e - _%hd158814159031%_)))) - (let ((_%tl158818159041%_ + _%hd158920159137%_)))) + (let ((_%tl158924159147%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158816159036%_))) - (_%hd158817159039%_ - (let () (declare (not safe)) (##car _%e158816159036%_)))) + (##cdr _%e158922159142%_))) + (_%hd158923159145%_ + (let () (declare (not safe)) (##car _%e158922159142%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158817159039%_)) + (gx#identifier? _%hd158923159145%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158817159039%_)) + (gx#stx-eq? '%#call _%hd158923159145%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158818159041%_)) - (let ((_%e158819159044%_ + (gx#stx-pair? _%tl158924159147%_)) + (let ((_%e158925159150%_ (let () (declare (not safe)) - (gx#stx-e _%tl158818159041%_)))) - (let ((_%tl158821159049%_ + (gx#stx-e _%tl158924159147%_)))) + (let ((_%tl158927159155%_ (let () (declare (not safe)) - (##cdr _%e158819159044%_))) - (_%hd158820159047%_ + (##cdr _%e158925159150%_))) + (_%hd158926159153%_ (let () (declare (not safe)) - (##car _%e158819159044%_)))) + (##car _%e158925159150%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158820159047%_)) - (let ((_%e158822159052%_ + (gx#stx-pair? _%hd158926159153%_)) + (let ((_%e158928159158%_ (let () (declare (not safe)) - (gx#stx-e _%hd158820159047%_)))) - (let ((_%tl158824159057%_ + (gx#stx-e _%hd158926159153%_)))) + (let ((_%tl158930159163%_ (let () (declare (not safe)) - (##cdr _%e158822159052%_))) - (_%hd158823159055%_ + (##cdr _%e158928159158%_))) + (_%hd158929159161%_ (let () (declare (not safe)) - (##car _%e158822159052%_)))) + (##car _%e158928159158%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158823159055%_)) + _%hd158929159161%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158823159055%_)) + _%hd158929159161%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158824159057%_)) - (let ((_%e158825159060%_ + _%tl158930159163%_)) + (let ((_%e158931159166%_ (let () (declare (not safe)) (gx#stx-e - _%tl158824159057%_)))) - (let ((_%tl158827159065%_ + _%tl158930159163%_)))) + (let ((_%tl158933159171%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158825159060%_))) - (_%hd158826159063%_ - (let () (declare (not safe)) (##car _%e158825159060%_)))) + (##cdr _%e158931159166%_))) + (_%hd158932159169%_ + (let () (declare (not safe)) (##car _%e158931159166%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158827159065%_)) + (gx#stx-null? _%tl158933159171%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158821159049%_)) - (let ((_%e158828159068%_ + (gx#stx-pair? _%tl158927159155%_)) + (let ((_%e158934159174%_ (let () (declare (not safe)) - (gx#stx-e _%tl158821159049%_)))) - (let ((_%tl158830159073%_ + (gx#stx-e _%tl158927159155%_)))) + (let ((_%tl158936159179%_ (let () (declare (not safe)) - (##cdr _%e158828159068%_))) - (_%hd158829159071%_ + (##cdr _%e158934159174%_))) + (_%hd158935159177%_ (let () (declare (not safe)) - (##car _%e158828159068%_)))) + (##car _%e158934159174%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158829159071%_)) - (let ((_%e158831159076%_ + (gx#stx-pair? _%hd158935159177%_)) + (let ((_%e158937159182%_ (let () (declare (not safe)) - (gx#stx-e _%hd158829159071%_)))) - (let ((_%tl158833159081%_ + (gx#stx-e _%hd158935159177%_)))) + (let ((_%tl158939159187%_ (let () (declare (not safe)) - (##cdr _%e158831159076%_))) - (_%hd158832159079%_ + (##cdr _%e158937159182%_))) + (_%hd158938159185%_ (let () (declare (not safe)) - (##car _%e158831159076%_)))) + (##car _%e158937159182%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158832159079%_)) + (gx#identifier? _%hd158938159185%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158832159079%_)) + _%hd158938159185%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158833159081%_)) - (let ((_%e158834159084%_ + _%tl158939159187%_)) + (let ((_%e158940159190%_ (let () (declare (not safe)) (gx#stx-e - _%tl158833159081%_)))) - (let ((_%tl158836159089%_ + _%tl158939159187%_)))) + (let ((_%tl158942159195%_ (let () (declare (not safe)) - (##cdr _%e158834159084%_))) - (_%hd158835159087%_ + (##cdr _%e158940159190%_))) + (_%hd158941159193%_ (let () (declare (not safe)) - (##car _%e158834159084%_)))) + (##car _%e158940159190%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158836159089%_)) + _%tl158942159195%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158815159033%_)) - (_%__kont169768169769%_ - _%hd158835159087%_ - _%hd158826159063%_ - _%tl158806159006%_ - _%arg158812159025%_) - (_%__match169869169870%_ - _%e158801158996%_ - _%hd158802158999%_ - _%tl158803159001%_ - _%e158813159028%_ - _%hd158814159031%_ - _%tl158815159033%_ - _%e158816159036%_ - _%hd158817159039%_ - _%tl158818159041%_ - _%e158819159044%_ - _%hd158820159047%_ - _%tl158821159049%_ - _%e158822159052%_ - _%hd158823159055%_ - _%tl158824159057%_ - _%e158825159060%_ - _%hd158826159063%_ - _%tl158827159065%_ - _%e158828159068%_ - _%hd158829159071%_ - _%tl158830159073%_ - _%e158831159076%_ - _%hd158832159079%_ - _%tl158833159081%_ - _%e158834159084%_ - _%hd158835159087%_ - _%tl158836159089%_)) + _%tl158921159139%_)) + (_%__kont169874169875%_ + _%hd158941159193%_ + _%hd158932159169%_ + _%tl158912159112%_ + _%arg158918159131%_) + (_%__match169975169976%_ + _%e158907159102%_ + _%hd158908159105%_ + _%tl158909159107%_ + _%e158919159134%_ + _%hd158920159137%_ + _%tl158921159139%_ + _%e158922159142%_ + _%hd158923159145%_ + _%tl158924159147%_ + _%e158925159150%_ + _%hd158926159153%_ + _%tl158927159155%_ + _%e158928159158%_ + _%hd158929159161%_ + _%tl158930159163%_ + _%e158931159166%_ + _%hd158932159169%_ + _%tl158933159171%_ + _%e158934159174%_ + _%hd158935159177%_ + _%tl158936159179%_ + _%e158937159182%_ + _%hd158938159185%_ + _%tl158939159187%_ + _%e158940159190%_ + _%hd158941159193%_ + _%tl158942159195%_)) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))) - (let () (declare (not safe)) (_%g158750158874%_))))) + (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))) + (let () (declare (not safe)) (_%g158856158980%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))) - (let () (declare (not safe)) (_%g158750158874%_))) - (let () (declare (not safe)) (_%g158750158874%_))))) + (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))) + (let () (declare (not safe)) (_%g158856158980%_))) + (let () (declare (not safe)) (_%g158856158980%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_)))))))) - (_%loop158807159009%_ _%target158804159004%_ '())))) - (_%__match169787169788%_ - (lambda (_%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_) - (letrec ((_%loop158761159145%_ - (lambda (_%hd158759159148%_ - _%arg158765159150%_) + (_%g158856158980%_)))))))) + (_%loop158913159115%_ _%target158910159110%_ '())))) + (_%__match169893169894%_ + (lambda (_%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_) + (letrec ((_%loop158867159251%_ + (lambda (_%hd158865159254%_ + _%arg158871159256%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158759159148%_)) - (let ((_%e158762159153%_ + (gx#stx-pair? _%hd158865159254%_)) + (let ((_%e158868159259%_ (let () (declare (not safe)) - (gx#stx-e _%hd158759159148%_)))) - (let ((_%lp-tl158764159158%_ + (gx#stx-e _%hd158865159254%_)))) + (let ((_%lp-tl158870159264%_ (let () (declare (not safe)) - (##cdr _%e158762159153%_))) - (_%lp-hd158763159156%_ + (##cdr _%e158868159259%_))) + (_%lp-hd158869159262%_ (let () (declare (not safe)) - (##car _%e158762159153%_)))) - (_%loop158761159145%_ - _%lp-tl158764159158%_ - (cons _%lp-hd158763159156%_ - _%arg158765159150%_)))) - (let ((_%arg158766159161%_ - (reverse _%arg158765159150%_))) + (##car _%e158868159259%_)))) + (_%loop158867159251%_ + _%lp-tl158870159264%_ + (cons _%lp-hd158869159262%_ + _%arg158871159256%_)))) + (let ((_%arg158872159267%_ + (reverse _%arg158871159256%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158757159137%_)) - (let ((_%e158767159164%_ + _%tl158863159243%_)) + (let ((_%e158873159270%_ (let () (declare (not safe)) (gx#stx-e - _%tl158757159137%_)))) - (let ((_%tl158769159169%_ + _%tl158863159243%_)))) + (let ((_%tl158875159275%_ (let () (declare (not safe)) - (##cdr _%e158767159164%_))) - (_%hd158768159167%_ + (##cdr _%e158873159270%_))) + (_%hd158874159273%_ (let () (declare (not safe)) - (##car _%e158767159164%_)))) + (##car _%e158873159270%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158768159167%_)) - (let ((_%e158770159172%_ + _%hd158874159273%_)) + (let ((_%e158876159278%_ (let () (declare (not safe)) (gx#stx-e - _%hd158768159167%_)))) - (let ((_%tl158772159177%_ + _%hd158874159273%_)))) + (let ((_%tl158878159283%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158770159172%_))) - (_%hd158771159175%_ - (let () (declare (not safe)) (##car _%e158770159172%_)))) + (##cdr _%e158876159278%_))) + (_%hd158877159281%_ + (let () (declare (not safe)) (##car _%e158876159278%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158771159175%_)) + (gx#identifier? _%hd158877159281%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd158771159175%_)) + (gx#stx-eq? '%#call _%hd158877159281%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158772159177%_)) - (let ((_%e158773159180%_ + (gx#stx-pair? _%tl158878159283%_)) + (let ((_%e158879159286%_ (let () (declare (not safe)) - (gx#stx-e _%tl158772159177%_)))) - (let ((_%tl158775159185%_ + (gx#stx-e _%tl158878159283%_)))) + (let ((_%tl158881159291%_ (let () (declare (not safe)) - (##cdr _%e158773159180%_))) - (_%hd158774159183%_ + (##cdr _%e158879159286%_))) + (_%hd158880159289%_ (let () (declare (not safe)) - (##car _%e158773159180%_)))) + (##car _%e158879159286%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158774159183%_)) - (let ((_%e158776159188%_ + (gx#stx-pair? _%hd158880159289%_)) + (let ((_%e158882159294%_ (let () (declare (not safe)) - (gx#stx-e _%hd158774159183%_)))) - (let ((_%tl158778159193%_ + (gx#stx-e _%hd158880159289%_)))) + (let ((_%tl158884159299%_ (let () (declare (not safe)) - (##cdr _%e158776159188%_))) - (_%hd158777159191%_ + (##cdr _%e158882159294%_))) + (_%hd158883159297%_ (let () (declare (not safe)) - (##car _%e158776159188%_)))) + (##car _%e158882159294%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158777159191%_)) + _%hd158883159297%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd158777159191%_)) + _%hd158883159297%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158778159193%_)) - (let ((_%e158779159196%_ + _%tl158884159299%_)) + (let ((_%e158885159302%_ (let () (declare (not safe)) (gx#stx-e - _%tl158778159193%_)))) - (let ((_%tl158781159201%_ + _%tl158884159299%_)))) + (let ((_%tl158887159307%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e158779159196%_))) - (_%hd158780159199%_ - (let () (declare (not safe)) (##car _%e158779159196%_)))) + (##cdr _%e158885159302%_))) + (_%hd158886159305%_ + (let () (declare (not safe)) (##car _%e158885159302%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158781159201%_)) + (gx#stx-null? _%tl158887159307%_)) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl158775159185%_)) - (let ((_%__splice169766169767%_ + (gx#stx-pair/null? _%tl158881159291%_)) + (let ((_%__splice169872169873%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158775159185%_ + _%tl158881159291%_ '0)))) - (let ((_%tl158784159206%_ + (let ((_%tl158890159312%_ (let () (declare (not safe)) - (##vector-ref _%__splice169766169767%_ '1))) - (_%target158782159204%_ + (##vector-ref _%__splice169872169873%_ '1))) + (_%target158888159310%_ (let () (declare (not safe)) (##vector-ref - _%__splice169766169767%_ + _%__splice169872169873%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158784159206%_)) - (letrec ((_%loop158785159209%_ - (lambda (_%hd158783159212%_ - _%xarg158789159214%_) + (gx#stx-null? _%tl158890159312%_)) + (letrec ((_%loop158891159315%_ + (lambda (_%hd158889159318%_ + _%xarg158895159320%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158783159212%_)) - (let ((_%e158786159217%_ + _%hd158889159318%_)) + (let ((_%e158892159323%_ (let () (declare (not safe)) (gx#stx-e - _%hd158783159212%_)))) - (let ((_%lp-tl158788159222%_ + _%hd158889159318%_)))) + (let ((_%lp-tl158894159328%_ (let () (declare (not safe)) - (##cdr _%e158786159217%_))) - (_%lp-hd158787159220%_ + (##cdr _%e158892159323%_))) + (_%lp-hd158893159326%_ (let () (declare (not safe)) - (##car _%e158786159217%_)))) + (##car _%e158892159323%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd158787159220%_)) - (let ((_%e158791159225%_ + _%lp-hd158893159326%_)) + (let ((_%e158897159331%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%lp-hd158787159220%_)))) - (let ((_%tl158793159230%_ + (gx#stx-e _%lp-hd158893159326%_)))) + (let ((_%tl158899159336%_ (let () (declare (not safe)) - (##cdr _%e158791159225%_))) - (_%hd158792159228%_ + (##cdr _%e158897159331%_))) + (_%hd158898159334%_ (let () (declare (not safe)) - (##car _%e158791159225%_)))) + (##car _%e158897159331%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158792159228%_)) + (gx#identifier? _%hd158898159334%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158792159228%_)) + (gx#stx-eq? '%#ref _%hd158898159334%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158793159230%_)) - (let ((_%e158794159233%_ + (gx#stx-pair? _%tl158899159336%_)) + (let ((_%e158900159339%_ (let () (declare (not safe)) - (gx#stx-e _%tl158793159230%_)))) - (let ((_%tl158796159238%_ + (gx#stx-e _%tl158899159336%_)))) + (let ((_%tl158902159344%_ (let () (declare (not safe)) - (##cdr _%e158794159233%_))) - (_%hd158795159236%_ + (##cdr _%e158900159339%_))) + (_%hd158901159342%_ (let () (declare (not safe)) - (##car _%e158794159233%_)))) + (##car _%e158900159339%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158796159238%_)) - (_%loop158785159209%_ - _%lp-tl158788159222%_ - (cons _%hd158795159236%_ - _%xarg158789159214%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) + (gx#stx-null? _%tl158902159344%_)) + (_%loop158891159315%_ + _%lp-tl158894159328%_ + (cons _%hd158901159342%_ + _%xarg158895159320%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%xarg158790159241%_ - (reverse _%xarg158789159214%_))) + (let ((_%xarg158896159347%_ + (reverse _%xarg158895159320%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158769159169%_)) - (_%__kont169762169763%_ - _%xarg158790159241%_ - _%hd158780159199%_ - _%arg158766159161%_) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_))))))) - (_%loop158785159209%_ - _%target158782159204%_ + _%tl158875159275%_)) + (_%__kont169868169869%_ + _%xarg158896159347%_ + _%hd158886159305%_ + _%arg158872159267%_) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_))))))) + (_%loop158891159315%_ + _%target158888159310%_ '())) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_))))))) - (_%loop158761159145%_ _%target158758159140%_ '()))))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_))))))) + (_%loop158867159251%_ _%target158864159246%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169760169761%_)) - (let ((_%e158755159132%_ + (gx#stx-pair? _%__stx169866169867%_)) + (let ((_%e158861159238%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169760169761%_)))) - (let ((_%tl158757159137%_ + (gx#stx-e _%__stx169866169867%_)))) + (let ((_%tl158863159243%_ (let () (declare (not safe)) - (##cdr _%e158755159132%_))) - (_%hd158756159135%_ + (##cdr _%e158861159238%_))) + (_%hd158862159241%_ (let () (declare (not safe)) - (##car _%e158755159132%_)))) + (##car _%e158861159238%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd158756159135%_)) - (let ((_%__splice169764169765%_ + (gx#stx-pair/null? _%hd158862159241%_)) + (let ((_%__splice169870169871%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd158756159135%_ + _%hd158862159241%_ '0)))) - (let ((_%tl158760159142%_ + (let ((_%tl158866159248%_ (let () (declare (not safe)) (##vector-ref - _%__splice169764169765%_ + _%__splice169870169871%_ '1))) - (_%target158758159140%_ + (_%target158864159246%_ (let () (declare (not safe)) (##vector-ref - _%__splice169764169765%_ + _%__splice169870169871%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158760159142%_)) - (_%__match169787169788%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_) - (_%__match169799169800%_ - _%e158755159132%_ - _%hd158756159135%_ - _%tl158757159137%_ - _%__splice169764169765%_ - _%target158758159140%_ - _%tl158760159142%_)))) + (gx#stx-null? _%tl158866159248%_)) + (_%__match169893169894%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_) + (_%__match169905169906%_ + _%e158861159238%_ + _%hd158862159241%_ + _%tl158863159243%_ + _%__splice169870169871%_ + _%target158864159246%_ + _%tl158866159248%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158757159137%_)) - (let ((_%e158843158887%_ + (gx#stx-pair? _%tl158863159243%_)) + (let ((_%e158949158993%_ (let () (declare (not safe)) - (gx#stx-e _%tl158757159137%_)))) - (let ((_%tl158845158892%_ + (gx#stx-e _%tl158863159243%_)))) + (let ((_%tl158951158998%_ (let () (declare (not safe)) - (##cdr _%e158843158887%_))) - (_%hd158844158890%_ + (##cdr _%e158949158993%_))) + (_%hd158950158996%_ (let () (declare (not safe)) - (##car _%e158843158887%_)))) + (##car _%e158949158993%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158844158890%_)) - (let ((_%e158846158895%_ + (gx#stx-pair? _%hd158950158996%_)) + (let ((_%e158952159001%_ (let () (declare (not safe)) - (gx#stx-e _%hd158844158890%_)))) - (let ((_%tl158848158900%_ + (gx#stx-e _%hd158950158996%_)))) + (let ((_%tl158954159006%_ (let () (declare (not safe)) - (##cdr _%e158846158895%_))) - (_%hd158847158898%_ + (##cdr _%e158952159001%_))) + (_%hd158953159004%_ (let () (declare (not safe)) - (##car _%e158846158895%_)))) + (##car _%e158952159001%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158847158898%_)) + _%hd158953159004%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd158847158898%_)) + _%hd158953159004%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158848158900%_)) - (let ((_%e158849158903%_ + _%tl158954159006%_)) + (let ((_%e158955159009%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158848158900%_)))) - (let ((_%tl158851158908%_ - (let () (declare (not safe)) (##cdr _%e158849158903%_))) - (_%hd158850158906%_ + (gx#stx-e _%tl158954159006%_)))) + (let ((_%tl158957159014%_ + (let () (declare (not safe)) (##cdr _%e158955159009%_))) + (_%hd158956159012%_ (let () (declare (not safe)) - (##car _%e158849158903%_)))) + (##car _%e158955159009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158850158906%_)) - (let ((_%e158852158911%_ + (gx#stx-pair? _%hd158956159012%_)) + (let ((_%e158958159017%_ (let () (declare (not safe)) - (gx#stx-e _%hd158850158906%_)))) - (let ((_%tl158854158916%_ + (gx#stx-e _%hd158956159012%_)))) + (let ((_%tl158960159022%_ (let () (declare (not safe)) - (##cdr _%e158852158911%_))) - (_%hd158853158914%_ + (##cdr _%e158958159017%_))) + (_%hd158959159020%_ (let () (declare (not safe)) - (##car _%e158852158911%_)))) + (##car _%e158958159017%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158853158914%_)) + (gx#identifier? _%hd158959159020%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158853158914%_)) + (gx#stx-eq? '%#ref _%hd158959159020%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158854158916%_)) - (let ((_%e158855158919%_ + (gx#stx-pair? _%tl158960159022%_)) + (let ((_%e158961159025%_ (let () (declare (not safe)) - (gx#stx-e _%tl158854158916%_)))) - (let ((_%tl158857158924%_ + (gx#stx-e _%tl158960159022%_)))) + (let ((_%tl158963159030%_ (let () (declare (not safe)) - (##cdr _%e158855158919%_))) - (_%hd158856158922%_ + (##cdr _%e158961159025%_))) + (_%hd158962159028%_ (let () (declare (not safe)) - (##car _%e158855158919%_)))) + (##car _%e158961159025%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158857158924%_)) + _%tl158963159030%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158851158908%_)) - (let ((_%e158858158927%_ + _%tl158957159014%_)) + (let ((_%e158964159033%_ (let () (declare (not safe)) (gx#stx-e - _%tl158851158908%_)))) - (let ((_%tl158860158932%_ + _%tl158957159014%_)))) + (let ((_%tl158966159038%_ (let () (declare (not safe)) - (##cdr _%e158858158927%_))) - (_%hd158859158930%_ + (##cdr _%e158964159033%_))) + (_%hd158965159036%_ (let () (declare (not safe)) - (##car _%e158858158927%_)))) + (##car _%e158964159033%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158859158930%_)) - (let ((_%e158861158935%_ + _%hd158965159036%_)) + (let ((_%e158967159041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd158859158930%_)))) - (let ((_%tl158863158940%_ + (gx#stx-e _%hd158965159036%_)))) + (let ((_%tl158969159046%_ (let () (declare (not safe)) - (##cdr _%e158861158935%_))) - (_%hd158862158938%_ + (##cdr _%e158967159041%_))) + (_%hd158968159044%_ (let () (declare (not safe)) - (##car _%e158861158935%_)))) + (##car _%e158967159041%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158862158938%_)) + (gx#identifier? _%hd158968159044%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd158862158938%_)) + (gx#stx-eq? '%#ref _%hd158968159044%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158863158940%_)) - (let ((_%e158864158943%_ + (gx#stx-pair? _%tl158969159046%_)) + (let ((_%e158970159049%_ (let () (declare (not safe)) - (gx#stx-e _%tl158863158940%_)))) - (let ((_%tl158866158948%_ + (gx#stx-e _%tl158969159046%_)))) + (let ((_%tl158972159054%_ (let () (declare (not safe)) - (##cdr _%e158864158943%_))) - (_%hd158865158946%_ + (##cdr _%e158970159049%_))) + (_%hd158971159052%_ (let () (declare (not safe)) - (##car _%e158864158943%_)))) + (##car _%e158970159049%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158866158948%_)) + (gx#stx-null? _%tl158972159054%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158860158932%_)) - (let ((_%e158867158951%_ + _%tl158966159038%_)) + (let ((_%e158973159057%_ (let () (declare (not safe)) (gx#stx-e - _%tl158860158932%_)))) - (let ((_%tl158869158956%_ + _%tl158966159038%_)))) + (let ((_%tl158975159062%_ (let () (declare (not safe)) - (##cdr _%e158867158951%_))) - (_%hd158868158954%_ + (##cdr _%e158973159057%_))) + (_%hd158974159060%_ (let () (declare (not safe)) - (##car _%e158867158951%_)))) + (##car _%e158973159057%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158869158956%_)) + _%tl158975159062%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158845158892%_)) - (_%__kont169772169773%_ - _%hd158865158946%_ - _%hd158856158922%_ - _%hd158756159135%_) + _%tl158951158998%_)) + (_%__kont169878169879%_ + _%hd158971159052%_ + _%hd158962159028%_ + _%hd158862159241%_) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))) - (let () (declare (not safe)) (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))))) + (_%g158856158980%_))) + (let () (declare (not safe)) (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))))) - (let () (declare (not safe)) (_%g158750158874%_))) + (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))))) + (let () (declare (not safe)) (_%g158856158980%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g158750158874%_))) + (_%g158856158980%_))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_))))) + (_%g158856158980%_))))) (let () (declare (not safe)) - (_%g158750158874%_)))))) - (let () (declare (not safe)) (_%g158750158874%_)))))))) + (_%g158856158980%_)))))) + (let () (declare (not safe)) (_%g158856158980%_)))))))) (define gxc#lambda-form-arity - (lambda (_%form158550%_) - (let* ((_%g158552158566%_ - (lambda (_%g158553158563%_) + (lambda (_%form158656%_) + (let* ((_%g158658158672%_ + (lambda (_%g158659158669%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158553158563%_)))) - (_%g158551158743%_ - (lambda (_%g158553158569%_) + _%g158659158669%_)))) + (_%g158657158849%_ + (lambda (_%g158659158675%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158553158569%_)) - (let ((_%e158556158571%_ + (gx#stx-pair? _%g158659158675%_)) + (let ((_%e158662158677%_ (let () (declare (not safe)) - (gx#stx-e _%g158553158569%_)))) - (let ((_%hd158557158574%_ + (gx#stx-e _%g158659158675%_)))) + (let ((_%hd158663158680%_ (let () (declare (not safe)) - (##car _%e158556158571%_))) - (_%tl158558158576%_ + (##car _%e158662158677%_))) + (_%tl158664158682%_ (let () (declare (not safe)) - (##cdr _%e158556158571%_)))) + (##cdr _%e158662158677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158558158576%_)) - (let ((_%e158559158579%_ + (gx#stx-pair? _%tl158664158682%_)) + (let ((_%e158665158685%_ (let () (declare (not safe)) - (gx#stx-e _%tl158558158576%_)))) - (let ((_%hd158560158582%_ + (gx#stx-e _%tl158664158682%_)))) + (let ((_%hd158666158688%_ (let () (declare (not safe)) - (##car _%e158559158579%_))) - (_%tl158561158584%_ + (##car _%e158665158685%_))) + (_%tl158667158690%_ (let () (declare (not safe)) - (##cdr _%e158559158579%_)))) + (##cdr _%e158665158685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158561158584%_)) - ((lambda (_%L158587%_ _%L158588%_) - (let* ((_%__stx169882169883%_ - _%L158588%_) - (_%g158603158631%_ + (gx#stx-null? _%tl158667158690%_)) + ((lambda (_%L158693%_ _%L158694%_) + (let* ((_%__stx169988169989%_ + _%L158694%_) + (_%g158709158737%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169882169883%_))))) - (let ((_%__kont169884169885%_ - (lambda (_%L158722%_) - (length (let ((__tmp171273 + _%__stx169988169989%_))))) + (let ((_%__kont169990169991%_ + (lambda (_%L158828%_) + (length (let ((__tmp171379 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158732158735%_ _%g158733158737%_) - (cons _%g158732158735%_ _%g158733158737%_)))) + (lambda (_%g158838158841%_ _%g158839158843%_) + (cons _%g158838158841%_ _%g158839158843%_)))) (declare (not safe)) - (__foldr1 __tmp171273 '() _%L158722%_))))) + (__foldr1 __tmp171379 '() _%L158828%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169888169889%_ - (lambda (_%L158673%_ - _%L158674%_) - (cons (length (let ((__tmp171274 + (_%__kont169994169995%_ + (lambda (_%L158779%_ + _%L158780%_) + (cons (length (let ((__tmp171380 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g158685158688%_ _%g158686158690%_) - (cons _%g158685158688%_ - _%g158686158690%_)))) + (lambda (_%g158791158794%_ _%g158792158796%_) + (cons _%g158791158794%_ + _%g158792158796%_)))) (declare (not safe)) - (__foldr1 __tmp171274 '() _%L158674%_))) + (__foldr1 __tmp171380 '() _%L158780%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont169892169893%_ - (lambda (_%L158636%_) + (_%__kont169998169999%_ + (lambda (_%L158742%_) (cons '0 '())))) - (let* ((_%__match169907169908%_ - (lambda (_%__splice169890169891%_ - _%target158617158649%_ - _%tl158619158651%_) - (letrec ((_%loop158620158654%_ + (let* ((_%__match170013170014%_ + (lambda (_%__splice169996169997%_ + _%target158723158755%_ + _%tl158725158757%_) + (letrec ((_%loop158726158760%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158618158657%_ _%arg158624158659%_) + (lambda (_%hd158724158763%_ _%arg158730158765%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158618158657%_)) - (let ((_%e158621158662%_ + (gx#stx-pair? _%hd158724158763%_)) + (let ((_%e158727158768%_ (let () (declare (not safe)) - (gx#stx-e _%hd158618158657%_)))) - (let ((_%lp-tl158623158667%_ + (gx#stx-e _%hd158724158763%_)))) + (let ((_%lp-tl158729158773%_ (let () (declare (not safe)) - (##cdr _%e158621158662%_))) - (_%lp-hd158622158665%_ + (##cdr _%e158727158768%_))) + (_%lp-hd158728158771%_ (let () (declare (not safe)) - (##car _%e158621158662%_)))) - (_%loop158620158654%_ - _%lp-tl158623158667%_ - (cons _%lp-hd158622158665%_ - _%arg158624158659%_)))) - (let ((_%arg158625158670%_ - (reverse _%arg158624158659%_))) - (_%__kont169888169889%_ - _%tl158619158651%_ - _%arg158625158670%_)))))) - (_%loop158620158654%_ _%target158617158649%_ '())))) + (##car _%e158727158768%_)))) + (_%loop158726158760%_ + _%lp-tl158729158773%_ + (cons _%lp-hd158728158771%_ + _%arg158730158765%_)))) + (let ((_%arg158731158776%_ + (reverse _%arg158730158765%_))) + (_%__kont169994169995%_ + _%tl158725158757%_ + _%arg158731158776%_)))))) + (_%loop158726158760%_ _%target158723158755%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match169901169902%_ - (lambda (_%__splice169886169887%_ - _%target158606158698%_ - _%tl158608158700%_) - (letrec ((_%loop158609158703%_ + (_%__match170007170008%_ + (lambda (_%__splice169992169993%_ + _%target158712158804%_ + _%tl158714158806%_) + (letrec ((_%loop158715158809%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd158607158706%_ _%arg158613158708%_) + (lambda (_%hd158713158812%_ _%arg158719158814%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158607158706%_)) - (let ((_%e158610158711%_ + (gx#stx-pair? _%hd158713158812%_)) + (let ((_%e158716158817%_ (let () (declare (not safe)) - (gx#stx-e _%hd158607158706%_)))) - (let ((_%lp-tl158612158716%_ + (gx#stx-e _%hd158713158812%_)))) + (let ((_%lp-tl158718158822%_ (let () (declare (not safe)) - (##cdr _%e158610158711%_))) - (_%lp-hd158611158714%_ + (##cdr _%e158716158817%_))) + (_%lp-hd158717158820%_ (let () (declare (not safe)) - (##car _%e158610158711%_)))) - (_%loop158609158703%_ - _%lp-tl158612158716%_ - (cons _%lp-hd158611158714%_ - _%arg158613158708%_)))) - (let ((_%arg158614158719%_ - (reverse _%arg158613158708%_))) - (_%__kont169884169885%_ - _%arg158614158719%_)))))) - (_%loop158609158703%_ _%target158606158698%_ '()))))) + (##car _%e158716158817%_)))) + (_%loop158715158809%_ + _%lp-tl158718158822%_ + (cons _%lp-hd158717158820%_ + _%arg158719158814%_)))) + (let ((_%arg158720158825%_ + (reverse _%arg158719158814%_))) + (_%__kont169990169991%_ + _%arg158720158825%_)))))) + (_%loop158715158809%_ _%target158712158804%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%__stx169882169883%_)) - (let ((_%__splice169886169887%_ + _%__stx169988169989%_)) + (let ((_%__splice169992169993%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx169882169883%_ + _%__stx169988169989%_ '0)))) - (let ((_%tl158608158700%_ + (let ((_%tl158714158806%_ (let () (declare (not safe)) (##vector-ref - _%__splice169886169887%_ + _%__splice169992169993%_ '1))) - (_%target158606158698%_ + (_%target158712158804%_ (let () (declare (not safe)) (##vector-ref - _%__splice169886169887%_ + _%__splice169992169993%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158608158700%_)) - (_%__match169901169902%_ - _%__splice169886169887%_ - _%target158606158698%_ - _%tl158608158700%_) - (_%__match169907169908%_ - _%__splice169886169887%_ - _%target158606158698%_ - _%tl158608158700%_)))) - (_%__kont169892169893%_ - _%__stx169882169883%_)))))) - _%hd158560158582%_ - _%hd158557158574%_) - (_%g158552158566%_ _%g158553158569%_)))) - (_%g158552158566%_ _%g158553158569%_)))) - (_%g158552158566%_ _%g158553158569%_))))) - (_%g158551158743%_ _%form158550%_)))) + _%tl158714158806%_)) + (_%__match170007170008%_ + _%__splice169992169993%_ + _%target158712158804%_ + _%tl158714158806%_) + (_%__match170013170014%_ + _%__splice169992169993%_ + _%target158712158804%_ + _%tl158714158806%_)))) + (_%__kont169998169999%_ + _%__stx169988169989%_)))))) + _%hd158666158688%_ + _%hd158663158680%_) + (_%g158658158672%_ _%g158659158675%_)))) + (_%g158658158672%_ _%g158659158675%_)))) + (_%g158658158672%_ _%g158659158675%_))))) + (_%g158657158849%_ _%form158656%_)))) (define gxc#lambda-form-infer-signature - (lambda (_%form158476%_) - (letrec ((_%default-signature158478%_ + (lambda (_%form158582%_) + (letrec ((_%default-signature158584%_ (lambda () - (let ((__obj171041 + (let ((__obj171147 (let () (declare (not safe)) (##structure @@ -17998,12 +17998,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171041 + __obj171147 't::t '1 '#f '#f)) - (let ((__tmp171275 + (let ((__tmp171381 (##structure-ref (let () (declare (not safe)) @@ -18013,74 +18013,74 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171041 - __tmp171275 + __obj171147 + __tmp171381 '5 '#f '#f)) - __obj171041)))) - (let* ((_%g158480158494%_ - (lambda (_%g158481158491%_) + __obj171147)))) + (let* ((_%g158586158600%_ + (lambda (_%g158587158597%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g158481158491%_)))) - (_%g158479158546%_ - (lambda (_%g158481158497%_) + _%g158587158597%_)))) + (_%g158585158652%_ + (lambda (_%g158587158603%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g158481158497%_)) - (let ((_%e158484158499%_ + (gx#stx-pair? _%g158587158603%_)) + (let ((_%e158590158605%_ (let () (declare (not safe)) - (gx#stx-e _%g158481158497%_)))) - (let ((_%hd158485158502%_ + (gx#stx-e _%g158587158603%_)))) + (let ((_%hd158591158608%_ (let () (declare (not safe)) - (##car _%e158484158499%_))) - (_%tl158486158504%_ + (##car _%e158590158605%_))) + (_%tl158592158610%_ (let () (declare (not safe)) - (##cdr _%e158484158499%_)))) + (##cdr _%e158590158605%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158486158504%_)) - (let ((_%e158487158507%_ + (gx#stx-pair? _%tl158592158610%_)) + (let ((_%e158593158613%_ (let () (declare (not safe)) - (gx#stx-e _%tl158486158504%_)))) - (let ((_%hd158488158510%_ + (gx#stx-e _%tl158592158610%_)))) + (let ((_%hd158594158616%_ (let () (declare (not safe)) - (##car _%e158487158507%_))) - (_%tl158489158512%_ + (##car _%e158593158613%_))) + (_%tl158595158618%_ (let () (declare (not safe)) - (##cdr _%e158487158507%_)))) + (##cdr _%e158593158613%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158489158512%_)) - ((lambda (_%L158515%_ _%L158516%_) - (let ((_%$e158530%_ + (gx#stx-null? _%tl158595158618%_)) + ((lambda (_%L158621%_ _%L158622%_) + (let ((_%$e158636%_ (gxc#apply-extract-lambda-signature - _%L158515%_))) - (if _%$e158530%_ - _%$e158530%_ - (let ((_%$e158533%_ + _%L158621%_))) + (if _%$e158636%_ + _%$e158636%_ + (let ((_%$e158639%_ (gxc#apply-basic-expression-type - _%L158515%_))) - (if _%$e158533%_ - ((lambda (_%return-type158536%_) + _%L158621%_))) + (if _%$e158639%_ + ((lambda (_%return-type158642%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-instance-of? - _%return-type158536%_ + _%return-type158642%_ 'gxc#!procedure::t)) - (let ((__obj171043 + (let ((__obj171149 (let () (declare (not safe)) (##structure @@ -18093,12 +18093,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171043 + __obj171149 'procedure::t '1 '#f '#f)) - (let ((__tmp171276 + (let ((__tmp171382 (##structure-ref (let () (declare (not safe)) @@ -18108,20 +18108,20 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171043 - __tmp171276 + __obj171149 + __tmp171382 '5 '#f '#f)) - __obj171043) - (let ((_%$e158539%_ + __obj171149) + (let ((_%$e158645%_ (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%return-type158536%_)))) - (if _%$e158539%_ - ((lambda (_%return-type-name158542%_) - (let ((__obj171042 + _%return-type158642%_)))) + (if _%$e158645%_ + ((lambda (_%return-type-name158648%_) + (let ((__obj171148 (let () (declare (not safe)) (##structure @@ -18134,12 +18134,12 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171042 - _%return-type-name158542%_ + __obj171148 + _%return-type-name158648%_ '1 '#f '#f)) - (let ((__tmp171277 + (let ((__tmp171383 (##structure-ref (let () (declare (not safe)) @@ -18149,124 +18149,124 @@ '#f))) (declare (not safe)) (##unchecked-structure-set! - __obj171042 - __tmp171277 + __obj171148 + __tmp171383 '5 '#f '#f)) - __obj171042)) - _%$e158539%_) - (_%default-signature158478%_))))) - _%$e158533%_) - (_%default-signature158478%_)))))) + __obj171148)) + _%$e158645%_) + (_%default-signature158584%_))))) + _%$e158639%_) + (_%default-signature158584%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd158488158510%_ - _%hd158485158502%_) - (_%g158480158494%_ - _%g158481158497%_)))) - (_%g158480158494%_ _%g158481158497%_)))) - (_%g158480158494%_ _%g158481158497%_))))) - (_%g158479158546%_ _%form158476%_))))) + _%hd158594158616%_ + _%hd158591158608%_) + (_%g158586158600%_ + _%g158587158603%_)))) + (_%g158586158600%_ _%g158587158603%_)))) + (_%g158586158600%_ _%g158587158603%_))))) + (_%g158585158652%_ _%form158582%_))))) (define gxc#extract-lambda-signature-begin-annotation% - (lambda (_%self158215%_ _%stx158216%_) - (let* ((_%__stx169923169924%_ _%stx158216%_) - (_%g158219158259%_ + (lambda (_%self158321%_ _%stx158322%_) + (let* ((_%__stx170029170030%_ _%stx158322%_) + (_%g158325158365%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169923169924%_))))) - (let ((_%__kont169925169926%_ - (lambda (_%L158365%_ _%L158366%_) - (let _%loop158386%_ ((_%rest158388%_ - (let ((__tmp171282 - (lambda (_%g158465158468%_ - _%g158466158470%_) - (cons _%g158465158468%_ - _%g158466158470%_)))) + _%__stx170029170030%_))))) + (let ((_%__kont170031170032%_ + (lambda (_%L158471%_ _%L158472%_) + (let _%loop158492%_ ((_%rest158494%_ + (let ((__tmp171388 + (lambda (_%g158571158574%_ + _%g158572158576%_) + (cons _%g158571158574%_ + _%g158572158576%_)))) (declare (not safe)) (__foldr1 - __tmp171282 + __tmp171388 '() - _%L158366%_))) - (_%result158389%_ '())) - (let* ((_%rest158390158403%_ _%rest158388%_) - (_%E158394158407%_ + _%L158472%_))) + (_%result158495%_ '())) + (let* ((_%rest158496158509%_ _%rest158494%_) + (_%E158500158513%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest158390158403%_ + _%rest158496158509%_ '([(? stx-keyword? key) arg . rest]) '([]) '(_))) '#!void))) - (let ((_%K158397158447%_ - (lambda (_%rest158433%_ - _%arg158434%_ - _%key158435%_) - (let ((_%$e158437%_ + (let ((_%K158503158553%_ + (lambda (_%rest158539%_ + _%arg158540%_ + _%key158541%_) + (let ((_%$e158543%_ (let () (declare (not safe)) - (gx#stx-e _%key158435%_)))) - (if (eq? 'return: _%$e158437%_) - (_%loop158386%_ - _%rest158433%_ + (gx#stx-e _%key158541%_)))) + (if (eq? 'return: _%$e158543%_) + (_%loop158492%_ + _%rest158539%_ (cons 'return: (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%arg158434%_)) - _%result158389%_))) - (if (eq? 'effect: _%$e158437%_) - (_%loop158386%_ - _%rest158433%_ + _%arg158540%_)) + _%result158495%_))) + (if (eq? 'effect: _%$e158543%_) + (_%loop158492%_ + _%rest158539%_ (cons 'effect: - (cons (if _%arg158434%_ + (cons (if _%arg158540%_ (map gx#stx-e - _%arg158434%_) + _%arg158540%_) '#f) - _%result158389%_))) - (if (eq? 'arguments: _%$e158437%_) - (_%loop158386%_ - _%rest158433%_ + _%result158495%_))) + (if (eq? 'arguments: _%$e158543%_) + (_%loop158492%_ + _%rest158539%_ (cons 'arguments: (cons (let () (declare (not safe)) (gxc#map* gxc#identifier-symbol - _%arg158434%_)) - _%result158389%_))) + _%arg158540%_)) + _%result158495%_))) (if (eq? 'unchecked: - _%$e158437%_) - (_%loop158386%_ - _%rest158433%_ + _%$e158543%_) + (_%loop158492%_ + _%rest158539%_ (cons 'unchecked: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#identifier-symbol _%arg158434%_)) - _%result158389%_))) + (gxc#identifier-symbol _%arg158540%_)) + _%result158495%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171278 - (let ((__tmp171279 - (lambda (_%g158439158442%_ + (let ((__tmp171384 + (let ((__tmp171385 + (lambda (_%g158545158548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g158440158444%_) - (cons _%g158439158442%_ _%g158440158444%_)))) + _%g158546158550%_) + (cons _%g158545158548%_ _%g158546158550%_)))) (declare (not safe)) - (__foldr1 __tmp171279 '() _%L158366%_)))) + (__foldr1 __tmp171385 '() _%L158472%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158216%_ - __tmp171278 - _%key158435%_))))))))) - (_%K158396158427%_ + _%stx158322%_ + __tmp171384 + _%key158541%_))))))))) + (_%K158502158533%_ (lambda () (apply gxc#make-!signature 'origin: @@ -18277,1824 +18277,1824 @@ '1 gx#expander-context::t '#f) - _%result158389%_))) - (_%K158395158419%_ + _%result158495%_))) + (_%K158501158525%_ (lambda () - (let ((__tmp171280 - (let ((__tmp171281 - (lambda (_%g158411158414%_ - _%g158412158416%_) - (cons _%g158411158414%_ - _%g158412158416%_)))) + (let ((__tmp171386 + (let ((__tmp171387 + (lambda (_%g158517158520%_ + _%g158518158522%_) + (cons _%g158517158520%_ + _%g158518158522%_)))) (declare (not safe)) (__foldr1 - __tmp171281 + __tmp171387 '() - _%L158366%_)))) + _%L158472%_)))) (declare (not safe)) (gxc#raise-compile-error '"bad lambda signature" - _%stx158216%_ - __tmp171280))))) - (let ((_%try-match158392158430%_ + _%stx158322%_ + __tmp171386))))) + (let ((_%try-match158498158536%_ (lambda () - (if (null? _%rest158390158403%_) - (_%K158396158427%_) - (_%K158395158419%_))))) - (if (pair? _%rest158390158403%_) - (let ((_%tl158399158452%_ + (if (null? _%rest158496158509%_) + (_%K158502158533%_) + (_%K158501158525%_))))) + (if (pair? _%rest158496158509%_) + (let ((_%tl158505158558%_ (let () (declare (not safe)) - (##cdr _%rest158390158403%_))) - (_%hd158398158450%_ + (##cdr _%rest158496158509%_))) + (_%hd158504158556%_ (let () (declare (not safe)) - (##car _%rest158390158403%_)))) + (##car _%rest158496158509%_)))) (if (let () (declare (not safe)) - (gx#stx-keyword? _%hd158398158450%_)) - (if (pair? _%tl158399158452%_) - (let ((_%tl158401158459%_ + (gx#stx-keyword? _%hd158504158556%_)) + (if (pair? _%tl158505158558%_) + (let ((_%tl158507158565%_ (let () (declare (not safe)) - (##cdr _%tl158399158452%_))) - (_%hd158400158457%_ + (##cdr _%tl158505158558%_))) + (_%hd158506158563%_ (let () (declare (not safe)) - (##car _%tl158399158452%_)))) - (let ((_%key158455%_ - _%hd158398158450%_) - (_%arg158462%_ - _%hd158400158457%_) - (_%rest158464%_ - _%tl158401158459%_)) - (_%K158397158447%_ - _%rest158464%_ - _%arg158462%_ - _%key158455%_))) - (_%K158395158419%_)) - (_%K158395158419%_))) - (_%try-match158392158430%_)))))))) - (_%__kont169929169930%_ - (lambda (_%L158288%_ _%L158289%_) + (##car _%tl158505158558%_)))) + (let ((_%key158561%_ + _%hd158504158556%_) + (_%arg158568%_ + _%hd158506158563%_) + (_%rest158570%_ + _%tl158507158565%_)) + (_%K158503158553%_ + _%rest158570%_ + _%arg158568%_ + _%key158561%_))) + (_%K158501158525%_)) + (_%K158501158525%_))) + (_%try-match158498158536%_)))))))) + (_%__kont170035170036%_ + (lambda (_%L158394%_ _%L158395%_) (let () (declare (not safe)) - (gxc#compile-e__1 _%self158215%_ _%L158288%_))))) - (let ((_%__match169960169961%_ - (lambda (_%e158223158309%_ - _%hd158224158312%_ - _%tl158225158314%_ - _%e158226158317%_ - _%hd158227158320%_ - _%tl158228158322%_ - _%e158229158325%_ - _%hd158230158328%_ - _%tl158231158330%_ - _%__splice169927169928%_ - _%target158232158333%_ - _%tl158234158335%_) - (letrec ((_%loop158235158338%_ - (lambda (_%hd158233158341%_ - _%signature158239158343%_) + (gxc#compile-e__1 _%self158321%_ _%L158394%_))))) + (let ((_%__match170066170067%_ + (lambda (_%e158329158415%_ + _%hd158330158418%_ + _%tl158331158420%_ + _%e158332158423%_ + _%hd158333158426%_ + _%tl158334158428%_ + _%e158335158431%_ + _%hd158336158434%_ + _%tl158337158436%_ + _%__splice170033170034%_ + _%target158338158439%_ + _%tl158340158441%_) + (letrec ((_%loop158341158444%_ + (lambda (_%hd158339158447%_ + _%signature158345158449%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158233158341%_)) - (let ((_%e158236158346%_ + (gx#stx-pair? _%hd158339158447%_)) + (let ((_%e158342158452%_ (let () (declare (not safe)) - (gx#stx-e _%hd158233158341%_)))) - (let ((_%lp-tl158238158351%_ + (gx#stx-e _%hd158339158447%_)))) + (let ((_%lp-tl158344158457%_ (let () (declare (not safe)) - (##cdr _%e158236158346%_))) - (_%lp-hd158237158349%_ + (##cdr _%e158342158452%_))) + (_%lp-hd158343158455%_ (let () (declare (not safe)) - (##car _%e158236158346%_)))) - (_%loop158235158338%_ - _%lp-tl158238158351%_ - (cons _%lp-hd158237158349%_ - _%signature158239158343%_)))) - (let ((_%signature158240158354%_ - (reverse _%signature158239158343%_))) + (##car _%e158342158452%_)))) + (_%loop158341158444%_ + _%lp-tl158344158457%_ + (cons _%lp-hd158343158455%_ + _%signature158345158449%_)))) + (let ((_%signature158346158460%_ + (reverse _%signature158345158449%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158228158322%_)) - (let ((_%e158241158357%_ + (gx#stx-pair? _%tl158334158428%_)) + (let ((_%e158347158463%_ (let () (declare (not safe)) (gx#stx-e - _%tl158228158322%_)))) - (let ((_%tl158243158362%_ + _%tl158334158428%_)))) + (let ((_%tl158349158468%_ (let () (declare (not safe)) - (##cdr _%e158241158357%_))) - (_%hd158242158360%_ + (##cdr _%e158347158463%_))) + (_%hd158348158466%_ (let () (declare (not safe)) - (##car _%e158241158357%_)))) + (##car _%e158347158463%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158243158362%_)) - (_%__kont169925169926%_ - _%hd158242158360%_ - _%signature158240158354%_) + _%tl158349158468%_)) + (_%__kont170031170032%_ + _%hd158348158466%_ + _%signature158346158460%_) (let () (declare (not safe)) - (_%g158219158259%_))))) + (_%g158325158365%_))))) (let () (declare (not safe)) - (_%g158219158259%_)))))))) - (_%loop158235158338%_ _%target158232158333%_ '()))))) + (_%g158325158365%_)))))))) + (_%loop158341158444%_ _%target158338158439%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169923169924%_)) - (let ((_%e158223158309%_ + (gx#stx-pair? _%__stx170029170030%_)) + (let ((_%e158329158415%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169923169924%_)))) - (let ((_%tl158225158314%_ + (gx#stx-e _%__stx170029170030%_)))) + (let ((_%tl158331158420%_ (let () (declare (not safe)) - (##cdr _%e158223158309%_))) - (_%hd158224158312%_ + (##cdr _%e158329158415%_))) + (_%hd158330158418%_ (let () (declare (not safe)) - (##car _%e158223158309%_)))) + (##car _%e158329158415%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158225158314%_)) - (let ((_%e158226158317%_ + (gx#stx-pair? _%tl158331158420%_)) + (let ((_%e158332158423%_ (let () (declare (not safe)) - (gx#stx-e _%tl158225158314%_)))) - (let ((_%tl158228158322%_ + (gx#stx-e _%tl158331158420%_)))) + (let ((_%tl158334158428%_ (let () (declare (not safe)) - (##cdr _%e158226158317%_))) - (_%hd158227158320%_ + (##cdr _%e158332158423%_))) + (_%hd158333158426%_ (let () (declare (not safe)) - (##car _%e158226158317%_)))) + (##car _%e158332158423%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158227158320%_)) - (let ((_%e158229158325%_ + (gx#stx-pair? _%hd158333158426%_)) + (let ((_%e158335158431%_ (let () (declare (not safe)) - (gx#stx-e _%hd158227158320%_)))) - (let ((_%tl158231158330%_ + (gx#stx-e _%hd158333158426%_)))) + (let ((_%tl158337158436%_ (let () (declare (not safe)) - (##cdr _%e158229158325%_))) - (_%hd158230158328%_ + (##cdr _%e158335158431%_))) + (_%hd158336158434%_ (let () (declare (not safe)) - (##car _%e158229158325%_)))) + (##car _%e158335158431%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd158230158328%_)) + _%hd158336158434%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@type.signature - _%hd158230158328%_)) + _%hd158336158434%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl158231158330%_)) - (let ((_%__splice169927169928%_ + _%tl158337158436%_)) + (let ((_%__splice170033170034%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl158231158330%_ + _%tl158337158436%_ '0)))) - (let ((_%tl158234158335%_ + (let ((_%tl158340158441%_ (let () (declare (not safe)) (##vector-ref - _%__splice169927169928%_ + _%__splice170033170034%_ '1))) - (_%target158232158333%_ + (_%target158338158439%_ (let () (declare (not safe)) (##vector-ref - _%__splice169927169928%_ + _%__splice170033170034%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158234158335%_)) - (_%__match169960169961%_ - _%e158223158309%_ - _%hd158224158312%_ - _%tl158225158314%_ - _%e158226158317%_ - _%hd158227158320%_ - _%tl158228158322%_ - _%e158229158325%_ - _%hd158230158328%_ - _%tl158231158330%_ - _%__splice169927169928%_ - _%target158232158333%_ - _%tl158234158335%_) + _%tl158340158441%_)) + (_%__match170066170067%_ + _%e158329158415%_ + _%hd158330158418%_ + _%tl158331158420%_ + _%e158332158423%_ + _%hd158333158426%_ + _%tl158334158428%_ + _%e158335158431%_ + _%hd158336158434%_ + _%tl158337158436%_ + _%__splice170033170034%_ + _%target158338158439%_ + _%tl158340158441%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl158228158322%_)) - (let ((_%e158252158280%_ + (gx#stx-pair? _%tl158334158428%_)) + (let ((_%e158358158386%_ (let () (declare (not safe)) - (gx#stx-e _%tl158228158322%_)))) - (let ((_%tl158254158285%_ + (gx#stx-e _%tl158334158428%_)))) + (let ((_%tl158360158391%_ (let () (declare (not safe)) - (##cdr _%e158252158280%_))) - (_%hd158253158283%_ + (##cdr _%e158358158386%_))) + (_%hd158359158389%_ (let () (declare (not safe)) - (##car _%e158252158280%_)))) + (##car _%e158358158386%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158254158285%_)) - (_%__kont169929169930%_ - _%hd158253158283%_ - _%hd158227158320%_) + (gx#stx-null? _%tl158360158391%_)) + (_%__kont170035170036%_ + _%hd158359158389%_ + _%hd158333158426%_) (let () (declare (not safe)) - (_%g158219158259%_))))) - (let () (declare (not safe)) (_%g158219158259%_)))))) + (_%g158325158365%_))))) + (let () (declare (not safe)) (_%g158325158365%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158228158322%_)) - (let ((_%e158252158280%_ + _%tl158334158428%_)) + (let ((_%e158358158386%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl158228158322%_)))) - (let ((_%tl158254158285%_ - (let () (declare (not safe)) (##cdr _%e158252158280%_))) - (_%hd158253158283%_ + (gx#stx-e _%tl158334158428%_)))) + (let ((_%tl158360158391%_ + (let () (declare (not safe)) (##cdr _%e158358158386%_))) + (_%hd158359158389%_ (let () (declare (not safe)) - (##car _%e158252158280%_)))) + (##car _%e158358158386%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158254158285%_)) - (_%__kont169929169930%_ - _%hd158253158283%_ - _%hd158227158320%_) - (let () (declare (not safe)) (_%g158219158259%_))))) - (let () (declare (not safe)) (_%g158219158259%_)))) + (gx#stx-null? _%tl158360158391%_)) + (_%__kont170035170036%_ + _%hd158359158389%_ + _%hd158333158426%_) + (let () (declare (not safe)) (_%g158325158365%_))))) + (let () (declare (not safe)) (_%g158325158365%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158228158322%_)) - (let ((_%e158252158280%_ + _%tl158334158428%_)) + (let ((_%e158358158386%_ (let () (declare (not safe)) (gx#stx-e - _%tl158228158322%_)))) - (let ((_%tl158254158285%_ + _%tl158334158428%_)))) + (let ((_%tl158360158391%_ (let () (declare (not safe)) - (##cdr _%e158252158280%_))) - (_%hd158253158283%_ + (##cdr _%e158358158386%_))) + (_%hd158359158389%_ (let () (declare (not safe)) - (##car _%e158252158280%_)))) + (##car _%e158358158386%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158254158285%_)) - (_%__kont169929169930%_ - _%hd158253158283%_ - _%hd158227158320%_) + _%tl158360158391%_)) + (_%__kont170035170036%_ + _%hd158359158389%_ + _%hd158333158426%_) (let () (declare (not safe)) - (_%g158219158259%_))))) + (_%g158325158365%_))))) (let () (declare (not safe)) - (_%g158219158259%_)))) + (_%g158325158365%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158228158322%_)) - (let ((_%e158252158280%_ + _%tl158334158428%_)) + (let ((_%e158358158386%_ (let () (declare (not safe)) (gx#stx-e - _%tl158228158322%_)))) - (let ((_%tl158254158285%_ + _%tl158334158428%_)))) + (let ((_%tl158360158391%_ (let () (declare (not safe)) - (##cdr _%e158252158280%_))) - (_%hd158253158283%_ + (##cdr _%e158358158386%_))) + (_%hd158359158389%_ (let () (declare (not safe)) - (##car _%e158252158280%_)))) + (##car _%e158358158386%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158254158285%_)) - (_%__kont169929169930%_ - _%hd158253158283%_ - _%hd158227158320%_) + _%tl158360158391%_)) + (_%__kont170035170036%_ + _%hd158359158389%_ + _%hd158333158426%_) (let () (declare (not safe)) - (_%g158219158259%_))))) + (_%g158325158365%_))))) (let () (declare (not safe)) - (_%g158219158259%_)))))) + (_%g158325158365%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158228158322%_)) - (let ((_%e158252158280%_ + (gx#stx-pair? _%tl158334158428%_)) + (let ((_%e158358158386%_ (let () (declare (not safe)) - (gx#stx-e _%tl158228158322%_)))) - (let ((_%tl158254158285%_ + (gx#stx-e _%tl158334158428%_)))) + (let ((_%tl158360158391%_ (let () (declare (not safe)) - (##cdr _%e158252158280%_))) - (_%hd158253158283%_ + (##cdr _%e158358158386%_))) + (_%hd158359158389%_ (let () (declare (not safe)) - (##car _%e158252158280%_)))) + (##car _%e158358158386%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158254158285%_)) - (_%__kont169929169930%_ - _%hd158253158283%_ - _%hd158227158320%_) + _%tl158360158391%_)) + (_%__kont170035170036%_ + _%hd158359158389%_ + _%hd158333158426%_) (let () (declare (not safe)) - (_%g158219158259%_))))) + (_%g158325158365%_))))) (let () (declare (not safe)) - (_%g158219158259%_)))))) - (let () (declare (not safe)) (_%g158219158259%_))))) - (let () (declare (not safe)) (_%g158219158259%_)))))))) + (_%g158325158365%_)))))) + (let () (declare (not safe)) (_%g158325158365%_))))) + (let () (declare (not safe)) (_%g158325158365%_)))))))) (define gxc#lambda-expr? - (lambda (_%expr158168%_) - (let* ((_%__stx169983169984%_ _%expr158168%_) - (_%g158171158181%_ + (lambda (_%expr158274%_) + (let* ((_%__stx170089170090%_ _%expr158274%_) + (_%g158277158287%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx169983169984%_))))) - (let ((_%__kont169985169986%_ (lambda (_%L158201%_) '#t)) - (_%__kont169987169988%_ (lambda () '#f))) + _%__stx170089170090%_))))) + (let ((_%__kont170091170092%_ (lambda (_%L158307%_) '#t)) + (_%__kont170093170094%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx169983169984%_)) - (let ((_%e158174158193%_ + (gx#stx-pair? _%__stx170089170090%_)) + (let ((_%e158280158299%_ (let () (declare (not safe)) - (gx#stx-e _%__stx169983169984%_)))) - (let ((_%tl158176158198%_ + (gx#stx-e _%__stx170089170090%_)))) + (let ((_%tl158282158304%_ (let () (declare (not safe)) - (##cdr _%e158174158193%_))) - (_%hd158175158196%_ + (##cdr _%e158280158299%_))) + (_%hd158281158302%_ (let () (declare (not safe)) - (##car _%e158174158193%_)))) + (##car _%e158280158299%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158175158196%_)) + (gx#identifier? _%hd158281158302%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd158175158196%_)) - (_%__kont169985169986%_ _%tl158176158198%_) - (_%__kont169987169988%_)) - (_%__kont169987169988%_)))) - (_%__kont169987169988%_)))))) + (gx#stx-eq? '%#lambda _%hd158281158302%_)) + (_%__kont170091170092%_ _%tl158282158304%_) + (_%__kont170093170094%_)) + (_%__kont170093170094%_)))) + (_%__kont170093170094%_)))))) (define gxc#case-lambda-expr? - (lambda (_%expr158121%_) - (let* ((_%__stx170001170002%_ _%expr158121%_) - (_%g158124158134%_ + (lambda (_%expr158227%_) + (let* ((_%__stx170107170108%_ _%expr158227%_) + (_%g158230158240%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170001170002%_))))) - (let ((_%__kont170003170004%_ (lambda (_%L158154%_) '#t)) - (_%__kont170005170006%_ (lambda () '#f))) + _%__stx170107170108%_))))) + (let ((_%__kont170109170110%_ (lambda (_%L158260%_) '#t)) + (_%__kont170111170112%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170001170002%_)) - (let ((_%e158127158146%_ + (gx#stx-pair? _%__stx170107170108%_)) + (let ((_%e158233158252%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170001170002%_)))) - (let ((_%tl158129158151%_ + (gx#stx-e _%__stx170107170108%_)))) + (let ((_%tl158235158257%_ (let () (declare (not safe)) - (##cdr _%e158127158146%_))) - (_%hd158128158149%_ + (##cdr _%e158233158252%_))) + (_%hd158234158255%_ (let () (declare (not safe)) - (##car _%e158127158146%_)))) + (##car _%e158233158252%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd158128158149%_)) + (gx#identifier? _%hd158234158255%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#case-lambda _%hd158128158149%_)) - (_%__kont170003170004%_ _%tl158129158151%_) - (_%__kont170005170006%_)) - (_%__kont170005170006%_)))) - (_%__kont170005170006%_)))))) + (gx#stx-eq? '%#case-lambda _%hd158234158255%_)) + (_%__kont170109170110%_ _%tl158235158257%_) + (_%__kont170111170112%_)) + (_%__kont170111170112%_)))) + (_%__kont170111170112%_)))))) (define gxc#opt-lambda-expr? - (lambda (_%expr157990%_) - (let* ((_%__stx170019170020%_ _%expr157990%_) - (_%g157993158023%_ + (lambda (_%expr158096%_) + (let* ((_%__stx170125170126%_ _%expr158096%_) + (_%g158099158129%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170019170020%_))))) - (let ((_%__kont170021170022%_ - (lambda (_%L158091%_ _%L158092%_ _%L158093%_) + _%__stx170125170126%_))))) + (let ((_%__kont170127170128%_ + (lambda (_%L158197%_ _%L158198%_ _%L158199%_) (if (let () (declare (not safe)) - (gx#identifier? _%L158093%_)) - (if (gxc#lambda-expr? _%L158092%_) - (gxc#case-lambda-expr? _%L158091%_) + (gx#identifier? _%L158199%_)) + (if (gxc#lambda-expr? _%L158198%_) + (gxc#case-lambda-expr? _%L158197%_) '#f) '#f))) - (_%__kont170023170024%_ (lambda () '#f))) + (_%__kont170129170130%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170019170020%_)) - (let ((_%e157998158035%_ + (gx#stx-pair? _%__stx170125170126%_)) + (let ((_%e158104158141%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170019170020%_)))) - (let ((_%tl158000158040%_ + (gx#stx-e _%__stx170125170126%_)))) + (let ((_%tl158106158146%_ (let () (declare (not safe)) - (##cdr _%e157998158035%_))) - (_%hd157999158038%_ + (##cdr _%e158104158141%_))) + (_%hd158105158144%_ (let () (declare (not safe)) - (##car _%e157998158035%_)))) + (##car _%e158104158141%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157999158038%_)) + (gx#identifier? _%hd158105158144%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157999158038%_)) + (gx#stx-eq? '%#let-values _%hd158105158144%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158000158040%_)) - (let ((_%e158001158043%_ + (gx#stx-pair? _%tl158106158146%_)) + (let ((_%e158107158149%_ (let () (declare (not safe)) - (gx#stx-e _%tl158000158040%_)))) - (let ((_%tl158003158048%_ + (gx#stx-e _%tl158106158146%_)))) + (let ((_%tl158109158154%_ (let () (declare (not safe)) - (##cdr _%e158001158043%_))) - (_%hd158002158046%_ + (##cdr _%e158107158149%_))) + (_%hd158108158152%_ (let () (declare (not safe)) - (##car _%e158001158043%_)))) + (##car _%e158107158149%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd158002158046%_)) - (let ((_%e158004158051%_ + (gx#stx-pair? _%hd158108158152%_)) + (let ((_%e158110158157%_ (let () (declare (not safe)) (gx#stx-e - _%hd158002158046%_)))) - (let ((_%tl158006158056%_ + _%hd158108158152%_)))) + (let ((_%tl158112158162%_ (let () (declare (not safe)) - (##cdr _%e158004158051%_))) - (_%hd158005158054%_ + (##cdr _%e158110158157%_))) + (_%hd158111158160%_ (let () (declare (not safe)) - (##car _%e158004158051%_)))) + (##car _%e158110158157%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158005158054%_)) - (let ((_%e158007158059%_ + _%hd158111158160%_)) + (let ((_%e158113158165%_ (let () (declare (not safe)) (gx#stx-e - _%hd158005158054%_)))) - (let ((_%tl158009158064%_ + _%hd158111158160%_)))) + (let ((_%tl158115158170%_ (let () (declare (not safe)) - (##cdr _%e158007158059%_))) - (_%hd158008158062%_ + (##cdr _%e158113158165%_))) + (_%hd158114158168%_ (let () (declare (not safe)) - (##car _%e158007158059%_)))) + (##car _%e158113158165%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd158008158062%_)) - (let ((_%e158010158067%_ + _%hd158114158168%_)) + (let ((_%e158116158173%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd158008158062%_)))) - (let ((_%tl158012158072%_ + (gx#stx-e _%hd158114158168%_)))) + (let ((_%tl158118158178%_ (let () (declare (not safe)) - (##cdr _%e158010158067%_))) - (_%hd158011158070%_ + (##cdr _%e158116158173%_))) + (_%hd158117158176%_ (let () (declare (not safe)) - (##car _%e158010158067%_)))) + (##car _%e158116158173%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158012158072%_)) + (gx#stx-null? _%tl158118158178%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl158009158064%_)) - (let ((_%e158013158075%_ + (gx#stx-pair? _%tl158115158170%_)) + (let ((_%e158119158181%_ (let () (declare (not safe)) - (gx#stx-e _%tl158009158064%_)))) - (let ((_%tl158015158080%_ + (gx#stx-e _%tl158115158170%_)))) + (let ((_%tl158121158186%_ (let () (declare (not safe)) - (##cdr _%e158013158075%_))) - (_%hd158014158078%_ + (##cdr _%e158119158181%_))) + (_%hd158120158184%_ (let () (declare (not safe)) - (##car _%e158013158075%_)))) + (##car _%e158119158181%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158015158080%_)) + (gx#stx-null? _%tl158121158186%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl158006158056%_)) + (gx#stx-null? _%tl158112158162%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl158003158048%_)) - (let ((_%e158016158083%_ + _%tl158109158154%_)) + (let ((_%e158122158189%_ (let () (declare (not safe)) (gx#stx-e - _%tl158003158048%_)))) - (let ((_%tl158018158088%_ + _%tl158109158154%_)))) + (let ((_%tl158124158194%_ (let () (declare (not safe)) - (##cdr _%e158016158083%_))) - (_%hd158017158086%_ + (##cdr _%e158122158189%_))) + (_%hd158123158192%_ (let () (declare (not safe)) - (##car _%e158016158083%_)))) + (##car _%e158122158189%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl158018158088%_)) - (_%__kont170021170022%_ - _%hd158017158086%_ - _%hd158014158078%_ - _%hd158011158070%_) - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)) - (_%__kont170023170024%_)) - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)) - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)))) + _%tl158124158194%_)) + (_%__kont170127170128%_ + _%hd158123158192%_ + _%hd158120158184%_ + _%hd158117158176%_) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)) + (_%__kont170129170130%_)) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)) - (_%__kont170023170024%_)) - (_%__kont170023170024%_)))) - (_%__kont170023170024%_)))))) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)) + (_%__kont170129170130%_)) + (_%__kont170129170130%_)))) + (_%__kont170129170130%_)))))) (define gxc#kw-lambda-expr? - (lambda (_%expr157315%_) - (let* ((_%__stx170081170082%_ _%expr157315%_) - (_%g157318157476%_ + (lambda (_%expr157421%_) + (let* ((_%__stx170187170188%_ _%expr157421%_) + (_%g157424157582%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170081170082%_))))) - (let ((_%__kont170083170084%_ - (lambda (_%L157864%_ - _%L157865%_ - _%L157866%_ - _%L157867%_ - _%L157868%_ - _%L157869%_ - _%L157870%_ - _%L157871%_ - _%L157872%_ - _%L157873%_ - _%L157874%_) + _%__stx170187170188%_))))) + (let ((_%__kont170189170190%_ + (lambda (_%L157970%_ + _%L157971%_ + _%L157972%_ + _%L157973%_ + _%L157974%_ + _%L157975%_ + _%L157976%_ + _%L157977%_ + _%L157978%_ + _%L157979%_ + _%L157980%_) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157871%_ 'apply)) + (gxc#runtime-identifier=? _%L157977%_ 'apply)) (if (let () (declare (not safe)) - (gxc#runtime-identifier=? _%L157867%_ 'apply)) + (gxc#runtime-identifier=? _%L157973%_ 'apply)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L157866%_ + _%L157972%_ 'keyword-dispatch)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157874%_ - _%L157865%_)) + _%L157980%_ + _%L157971%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157873%_ - _%L157870%_)) + _%L157979%_ + _%L157976%_)) (if (let () (declare (not safe)) (gx#free-identifier=? - _%L157868%_ - _%L157864%_)) + _%L157974%_ + _%L157970%_)) (let () (declare (not safe)) (gx#free-identifier=? - _%L157872%_ - _%L157869%_)) + _%L157978%_ + _%L157975%_)) '#f) '#f) '#f) '#f) '#f) '#f))) - (_%__kont170085170086%_ (lambda () '#f))) + (_%__kont170191170192%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170081170082%_)) - (let ((_%e157331157488%_ + (gx#stx-pair? _%__stx170187170188%_)) + (let ((_%e157437157594%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170081170082%_)))) - (let ((_%tl157333157493%_ + (gx#stx-e _%__stx170187170188%_)))) + (let ((_%tl157439157599%_ (let () (declare (not safe)) - (##cdr _%e157331157488%_))) - (_%hd157332157491%_ + (##cdr _%e157437157594%_))) + (_%hd157438157597%_ (let () (declare (not safe)) - (##car _%e157331157488%_)))) + (##car _%e157437157594%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157332157491%_)) + (gx#identifier? _%hd157438157597%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#let-values _%hd157332157491%_)) + (gx#stx-eq? '%#let-values _%hd157438157597%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157333157493%_)) - (let ((_%e157334157496%_ + (gx#stx-pair? _%tl157439157599%_)) + (let ((_%e157440157602%_ (let () (declare (not safe)) - (gx#stx-e _%tl157333157493%_)))) - (let ((_%tl157336157501%_ + (gx#stx-e _%tl157439157599%_)))) + (let ((_%tl157442157607%_ (let () (declare (not safe)) - (##cdr _%e157334157496%_))) - (_%hd157335157499%_ + (##cdr _%e157440157602%_))) + (_%hd157441157605%_ (let () (declare (not safe)) - (##car _%e157334157496%_)))) + (##car _%e157440157602%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157335157499%_)) - (let ((_%e157337157504%_ + (gx#stx-pair? _%hd157441157605%_)) + (let ((_%e157443157610%_ (let () (declare (not safe)) (gx#stx-e - _%hd157335157499%_)))) - (let ((_%tl157339157509%_ + _%hd157441157605%_)))) + (let ((_%tl157445157615%_ (let () (declare (not safe)) - (##cdr _%e157337157504%_))) - (_%hd157338157507%_ + (##cdr _%e157443157610%_))) + (_%hd157444157613%_ (let () (declare (not safe)) - (##car _%e157337157504%_)))) + (##car _%e157443157610%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157338157507%_)) - (let ((_%e157340157512%_ + _%hd157444157613%_)) + (let ((_%e157446157618%_ (let () (declare (not safe)) (gx#stx-e - _%hd157338157507%_)))) - (let ((_%tl157342157517%_ + _%hd157444157613%_)))) + (let ((_%tl157448157623%_ (let () (declare (not safe)) - (##cdr _%e157340157512%_))) - (_%hd157341157515%_ + (##cdr _%e157446157618%_))) + (_%hd157447157621%_ (let () (declare (not safe)) - (##car _%e157340157512%_)))) + (##car _%e157446157618%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157341157515%_)) - (let ((_%e157343157520%_ + _%hd157447157621%_)) + (let ((_%e157449157626%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157341157515%_)))) - (let ((_%tl157345157525%_ + (gx#stx-e _%hd157447157621%_)))) + (let ((_%tl157451157631%_ (let () (declare (not safe)) - (##cdr _%e157343157520%_))) - (_%hd157344157523%_ + (##cdr _%e157449157626%_))) + (_%hd157450157629%_ (let () (declare (not safe)) - (##car _%e157343157520%_)))) + (##car _%e157449157626%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157345157525%_)) + (gx#stx-null? _%tl157451157631%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157342157517%_)) - (let ((_%e157346157528%_ + (gx#stx-pair? _%tl157448157623%_)) + (let ((_%e157452157634%_ (let () (declare (not safe)) - (gx#stx-e _%tl157342157517%_)))) - (let ((_%tl157348157533%_ + (gx#stx-e _%tl157448157623%_)))) + (let ((_%tl157454157639%_ (let () (declare (not safe)) - (##cdr _%e157346157528%_))) - (_%hd157347157531%_ + (##cdr _%e157452157634%_))) + (_%hd157453157637%_ (let () (declare (not safe)) - (##car _%e157346157528%_)))) + (##car _%e157452157634%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157347157531%_)) - (let ((_%e157349157536%_ + (gx#stx-pair? _%hd157453157637%_)) + (let ((_%e157455157642%_ (let () (declare (not safe)) - (gx#stx-e _%hd157347157531%_)))) - (let ((_%tl157351157541%_ + (gx#stx-e _%hd157453157637%_)))) + (let ((_%tl157457157647%_ (let () (declare (not safe)) - (##cdr _%e157349157536%_))) - (_%hd157350157539%_ + (##cdr _%e157455157642%_))) + (_%hd157456157645%_ (let () (declare (not safe)) - (##car _%e157349157536%_)))) + (##car _%e157455157642%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157350157539%_)) + _%hd157456157645%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#let-values - _%hd157350157539%_)) + _%hd157456157645%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157351157541%_)) - (let ((_%e157352157544%_ + _%tl157457157647%_)) + (let ((_%e157458157650%_ (let () (declare (not safe)) (gx#stx-e - _%tl157351157541%_)))) - (let ((_%tl157354157549%_ + _%tl157457157647%_)))) + (let ((_%tl157460157655%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157352157544%_))) - (_%hd157353157547%_ - (let () (declare (not safe)) (##car _%e157352157544%_)))) + (##cdr _%e157458157650%_))) + (_%hd157459157653%_ + (let () (declare (not safe)) (##car _%e157458157650%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157353157547%_)) - (let ((_%e157355157552%_ + (gx#stx-pair? _%hd157459157653%_)) + (let ((_%e157461157658%_ (let () (declare (not safe)) - (gx#stx-e _%hd157353157547%_)))) - (let ((_%tl157357157557%_ + (gx#stx-e _%hd157459157653%_)))) + (let ((_%tl157463157663%_ (let () (declare (not safe)) - (##cdr _%e157355157552%_))) - (_%hd157356157555%_ + (##cdr _%e157461157658%_))) + (_%hd157462157661%_ (let () (declare (not safe)) - (##car _%e157355157552%_)))) + (##car _%e157461157658%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157356157555%_)) - (let ((_%e157358157560%_ + (gx#stx-pair? _%hd157462157661%_)) + (let ((_%e157464157666%_ (let () (declare (not safe)) - (gx#stx-e _%hd157356157555%_)))) - (let ((_%tl157360157565%_ + (gx#stx-e _%hd157462157661%_)))) + (let ((_%tl157466157671%_ (let () (declare (not safe)) - (##cdr _%e157358157560%_))) - (_%hd157359157563%_ + (##cdr _%e157464157666%_))) + (_%hd157465157669%_ (let () (declare (not safe)) - (##car _%e157358157560%_)))) + (##car _%e157464157666%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157359157563%_)) - (let ((_%e157361157568%_ + (gx#stx-pair? _%hd157465157669%_)) + (let ((_%e157467157674%_ (let () (declare (not safe)) - (gx#stx-e _%hd157359157563%_)))) - (let ((_%tl157363157573%_ + (gx#stx-e _%hd157465157669%_)))) + (let ((_%tl157469157679%_ (let () (declare (not safe)) - (##cdr _%e157361157568%_))) - (_%hd157362157571%_ + (##cdr _%e157467157674%_))) + (_%hd157468157677%_ (let () (declare (not safe)) - (##car _%e157361157568%_)))) + (##car _%e157467157674%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157363157573%_)) + _%tl157469157679%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157360157565%_)) - (let ((_%e157364157576%_ + _%tl157466157671%_)) + (let ((_%e157470157682%_ (let () (declare (not safe)) (gx#stx-e - _%tl157360157565%_)))) - (let ((_%tl157366157581%_ + _%tl157466157671%_)))) + (let ((_%tl157472157687%_ (let () (declare (not safe)) - (##cdr _%e157364157576%_))) - (_%hd157365157579%_ + (##cdr _%e157470157682%_))) + (_%hd157471157685%_ (let () (declare (not safe)) - (##car _%e157364157576%_)))) + (##car _%e157470157682%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157366157581%_)) + _%tl157472157687%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157357157557%_)) + _%tl157463157663%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157354157549%_)) - (let ((_%e157367157584%_ + (gx#stx-pair? _%tl157460157655%_)) + (let ((_%e157473157690%_ (let () (declare (not safe)) - (gx#stx-e _%tl157354157549%_)))) - (let ((_%tl157369157589%_ + (gx#stx-e _%tl157460157655%_)))) + (let ((_%tl157475157695%_ (let () (declare (not safe)) - (##cdr _%e157367157584%_))) - (_%hd157368157587%_ + (##cdr _%e157473157690%_))) + (_%hd157474157693%_ (let () (declare (not safe)) - (##car _%e157367157584%_)))) + (##car _%e157473157690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157368157587%_)) - (let ((_%e157370157592%_ + (gx#stx-pair? _%hd157474157693%_)) + (let ((_%e157476157698%_ (let () (declare (not safe)) - (gx#stx-e _%hd157368157587%_)))) - (let ((_%tl157372157597%_ + (gx#stx-e _%hd157474157693%_)))) + (let ((_%tl157478157703%_ (let () (declare (not safe)) - (##cdr _%e157370157592%_))) - (_%hd157371157595%_ + (##cdr _%e157476157698%_))) + (_%hd157477157701%_ (let () (declare (not safe)) - (##car _%e157370157592%_)))) + (##car _%e157476157698%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157371157595%_)) + (gx#identifier? _%hd157477157701%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#lambda - _%hd157371157595%_)) + _%hd157477157701%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157372157597%_)) - (let ((_%e157373157600%_ + _%tl157478157703%_)) + (let ((_%e157479157706%_ (let () (declare (not safe)) (gx#stx-e - _%tl157372157597%_)))) - (let ((_%tl157375157605%_ + _%tl157478157703%_)))) + (let ((_%tl157481157711%_ (let () (declare (not safe)) - (##cdr _%e157373157600%_))) - (_%hd157374157603%_ + (##cdr _%e157479157706%_))) + (_%hd157480157709%_ (let () (declare (not safe)) - (##car _%e157373157600%_)))) + (##car _%e157479157706%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157374157603%_)) - (let ((_%e157376157608%_ + _%hd157480157709%_)) + (let ((_%e157482157714%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157374157603%_)))) - (let ((_%tl157378157613%_ + (gx#stx-e _%hd157480157709%_)))) + (let ((_%tl157484157719%_ (let () (declare (not safe)) - (##cdr _%e157376157608%_))) - (_%hd157377157611%_ + (##cdr _%e157482157714%_))) + (_%hd157483157717%_ (let () (declare (not safe)) - (##car _%e157376157608%_)))) + (##car _%e157482157714%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157375157605%_)) - (let ((_%e157379157616%_ + (gx#stx-pair? _%tl157481157711%_)) + (let ((_%e157485157722%_ (let () (declare (not safe)) - (gx#stx-e _%tl157375157605%_)))) - (let ((_%tl157381157621%_ + (gx#stx-e _%tl157481157711%_)))) + (let ((_%tl157487157727%_ (let () (declare (not safe)) - (##cdr _%e157379157616%_))) - (_%hd157380157619%_ + (##cdr _%e157485157722%_))) + (_%hd157486157725%_ (let () (declare (not safe)) - (##car _%e157379157616%_)))) + (##car _%e157485157722%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157380157619%_)) - (let ((_%e157382157624%_ + (gx#stx-pair? _%hd157486157725%_)) + (let ((_%e157488157730%_ (let () (declare (not safe)) - (gx#stx-e _%hd157380157619%_)))) - (let ((_%tl157384157629%_ + (gx#stx-e _%hd157486157725%_)))) + (let ((_%tl157490157735%_ (let () (declare (not safe)) - (##cdr _%e157382157624%_))) - (_%hd157383157627%_ + (##cdr _%e157488157730%_))) + (_%hd157489157733%_ (let () (declare (not safe)) - (##car _%e157382157624%_)))) + (##car _%e157488157730%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157383157627%_)) + (gx#identifier? _%hd157489157733%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#call - _%hd157383157627%_)) + _%hd157489157733%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157384157629%_)) - (let ((_%e157385157632%_ + _%tl157490157735%_)) + (let ((_%e157491157738%_ (let () (declare (not safe)) (gx#stx-e - _%tl157384157629%_)))) - (let ((_%tl157387157637%_ + _%tl157490157735%_)))) + (let ((_%tl157493157743%_ (let () (declare (not safe)) - (##cdr _%e157385157632%_))) - (_%hd157386157635%_ + (##cdr _%e157491157738%_))) + (_%hd157492157741%_ (let () (declare (not safe)) - (##car _%e157385157632%_)))) + (##car _%e157491157738%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157386157635%_)) - (let ((_%e157388157640%_ + _%hd157492157741%_)) + (let ((_%e157494157746%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd157386157635%_)))) - (let ((_%tl157390157645%_ + (gx#stx-e _%hd157492157741%_)))) + (let ((_%tl157496157751%_ (let () (declare (not safe)) - (##cdr _%e157388157640%_))) - (_%hd157389157643%_ + (##cdr _%e157494157746%_))) + (_%hd157495157749%_ (let () (declare (not safe)) - (##car _%e157388157640%_)))) + (##car _%e157494157746%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157389157643%_)) + (gx#identifier? _%hd157495157749%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157389157643%_)) + (gx#stx-eq? '%#ref _%hd157495157749%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157390157645%_)) - (let ((_%e157391157648%_ + (gx#stx-pair? _%tl157496157751%_)) + (let ((_%e157497157754%_ (let () (declare (not safe)) - (gx#stx-e _%tl157390157645%_)))) - (let ((_%tl157393157653%_ + (gx#stx-e _%tl157496157751%_)))) + (let ((_%tl157499157759%_ (let () (declare (not safe)) - (##cdr _%e157391157648%_))) - (_%hd157392157651%_ + (##cdr _%e157497157754%_))) + (_%hd157498157757%_ (let () (declare (not safe)) - (##car _%e157391157648%_)))) + (##car _%e157497157754%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157393157653%_)) + (gx#stx-null? _%tl157499157759%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157387157637%_)) - (let ((_%e157394157656%_ + _%tl157493157743%_)) + (let ((_%e157500157762%_ (let () (declare (not safe)) (gx#stx-e - _%tl157387157637%_)))) - (let ((_%tl157396157661%_ + _%tl157493157743%_)))) + (let ((_%tl157502157767%_ (let () (declare (not safe)) - (##cdr _%e157394157656%_))) - (_%hd157395157659%_ + (##cdr _%e157500157762%_))) + (_%hd157501157765%_ (let () (declare (not safe)) - (##car _%e157394157656%_)))) + (##car _%e157500157762%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157395157659%_)) - (let ((_%e157397157664%_ + _%hd157501157765%_)) + (let ((_%e157503157770%_ (let () (declare (not safe)) (gx#stx-e - _%hd157395157659%_)))) - (let ((_%tl157399157669%_ + _%hd157501157765%_)))) + (let ((_%tl157505157775%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157397157664%_))) - (_%hd157398157667%_ - (let () (declare (not safe)) (##car _%e157397157664%_)))) + (##cdr _%e157503157770%_))) + (_%hd157504157773%_ + (let () (declare (not safe)) (##car _%e157503157770%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157398157667%_)) + (gx#identifier? _%hd157504157773%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157398157667%_)) + (gx#stx-eq? '%#ref _%hd157504157773%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157399157669%_)) - (let ((_%e157400157672%_ + (gx#stx-pair? _%tl157505157775%_)) + (let ((_%e157506157778%_ (let () (declare (not safe)) - (gx#stx-e _%tl157399157669%_)))) - (let ((_%tl157402157677%_ + (gx#stx-e _%tl157505157775%_)))) + (let ((_%tl157508157783%_ (let () (declare (not safe)) - (##cdr _%e157400157672%_))) - (_%hd157401157675%_ + (##cdr _%e157506157778%_))) + (_%hd157507157781%_ (let () (declare (not safe)) - (##car _%e157400157672%_)))) + (##car _%e157506157778%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157402157677%_)) + (gx#stx-null? _%tl157508157783%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157396157661%_)) - (let ((_%e157403157680%_ + (gx#stx-pair? _%tl157502157767%_)) + (let ((_%e157509157786%_ (let () (declare (not safe)) (gx#stx-e - _%tl157396157661%_)))) - (let ((_%tl157405157685%_ + _%tl157502157767%_)))) + (let ((_%tl157511157791%_ (let () (declare (not safe)) - (##cdr _%e157403157680%_))) - (_%hd157404157683%_ + (##cdr _%e157509157786%_))) + (_%hd157510157789%_ (let () (declare (not safe)) - (##car _%e157403157680%_)))) + (##car _%e157509157786%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157404157683%_)) - (let ((_%e157406157688%_ + _%hd157510157789%_)) + (let ((_%e157512157794%_ (let () (declare (not safe)) (gx#stx-e - _%hd157404157683%_)))) - (let ((_%tl157408157693%_ + _%hd157510157789%_)))) + (let ((_%tl157514157799%_ (let () (declare (not safe)) - (##cdr _%e157406157688%_))) - (_%hd157407157691%_ + (##cdr _%e157512157794%_))) + (_%hd157513157797%_ (let () (declare (not safe)) - (##car _%e157406157688%_)))) + (##car _%e157512157794%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157407157691%_)) + _%hd157513157797%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157407157691%_)) + _%hd157513157797%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl157408157693%_)) - (let ((_%e157409157696%_ + (gx#stx-pair? _%tl157514157799%_)) + (let ((_%e157515157802%_ (let () (declare (not safe)) - (gx#stx-e _%tl157408157693%_)))) - (let ((_%tl157411157701%_ + (gx#stx-e _%tl157514157799%_)))) + (let ((_%tl157517157807%_ (let () (declare (not safe)) - (##cdr _%e157409157696%_))) - (_%hd157410157699%_ + (##cdr _%e157515157802%_))) + (_%hd157516157805%_ (let () (declare (not safe)) - (##car _%e157409157696%_)))) + (##car _%e157515157802%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157411157701%_)) + (gx#stx-null? _%tl157517157807%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157381157621%_)) + (gx#stx-null? _%tl157487157727%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157369157589%_)) + (gx#stx-null? _%tl157475157695%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157348157533%_)) + _%tl157454157639%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157339157509%_)) + _%tl157445157615%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157336157501%_)) - (let ((_%e157412157704%_ + _%tl157442157607%_)) + (let ((_%e157518157810%_ (let () (declare (not safe)) (gx#stx-e - _%tl157336157501%_)))) - (let ((_%tl157414157709%_ + _%tl157442157607%_)))) + (let ((_%tl157520157815%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157412157704%_))) - (_%hd157413157707%_ - (let () (declare (not safe)) (##car _%e157412157704%_)))) + (##cdr _%e157518157810%_))) + (_%hd157519157813%_ + (let () (declare (not safe)) (##car _%e157518157810%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157413157707%_)) - (let ((_%e157415157712%_ + (gx#stx-pair? _%hd157519157813%_)) + (let ((_%e157521157818%_ (let () (declare (not safe)) - (gx#stx-e _%hd157413157707%_)))) - (let ((_%tl157417157717%_ + (gx#stx-e _%hd157519157813%_)))) + (let ((_%tl157523157823%_ (let () (declare (not safe)) - (##cdr _%e157415157712%_))) - (_%hd157416157715%_ + (##cdr _%e157521157818%_))) + (_%hd157522157821%_ (let () (declare (not safe)) - (##car _%e157415157712%_)))) + (##car _%e157521157818%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157416157715%_)) + (gx#identifier? _%hd157522157821%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#lambda _%hd157416157715%_)) + (gx#stx-eq? '%#lambda _%hd157522157821%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157417157717%_)) - (let ((_%e157418157720%_ + (gx#stx-pair? _%tl157523157823%_)) + (let ((_%e157524157826%_ (let () (declare (not safe)) - (gx#stx-e _%tl157417157717%_)))) - (let ((_%tl157420157725%_ + (gx#stx-e _%tl157523157823%_)))) + (let ((_%tl157526157831%_ (let () (declare (not safe)) - (##cdr _%e157418157720%_))) - (_%hd157419157723%_ + (##cdr _%e157524157826%_))) + (_%hd157525157829%_ (let () (declare (not safe)) - (##car _%e157418157720%_)))) + (##car _%e157524157826%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157420157725%_)) - (let ((_%e157421157728%_ + _%tl157526157831%_)) + (let ((_%e157527157834%_ (let () (declare (not safe)) (gx#stx-e - _%tl157420157725%_)))) - (let ((_%tl157423157733%_ + _%tl157526157831%_)))) + (let ((_%tl157529157839%_ (let () (declare (not safe)) - (##cdr _%e157421157728%_))) - (_%hd157422157731%_ + (##cdr _%e157527157834%_))) + (_%hd157528157837%_ (let () (declare (not safe)) - (##car _%e157421157728%_)))) + (##car _%e157527157834%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd157422157731%_)) - (let ((_%e157424157736%_ + _%hd157528157837%_)) + (let ((_%e157530157842%_ (let () (declare (not safe)) (gx#stx-e - _%hd157422157731%_)))) - (let ((_%tl157426157741%_ + _%hd157528157837%_)))) + (let ((_%tl157532157847%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157424157736%_))) - (_%hd157425157739%_ - (let () (declare (not safe)) (##car _%e157424157736%_)))) + (##cdr _%e157530157842%_))) + (_%hd157531157845%_ + (let () (declare (not safe)) (##car _%e157530157842%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157425157739%_)) + (gx#identifier? _%hd157531157845%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#call _%hd157425157739%_)) + (gx#stx-eq? '%#call _%hd157531157845%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157426157741%_)) - (let ((_%e157427157744%_ + (gx#stx-pair? _%tl157532157847%_)) + (let ((_%e157533157850%_ (let () (declare (not safe)) - (gx#stx-e _%tl157426157741%_)))) - (let ((_%tl157429157749%_ + (gx#stx-e _%tl157532157847%_)))) + (let ((_%tl157535157855%_ (let () (declare (not safe)) - (##cdr _%e157427157744%_))) - (_%hd157428157747%_ + (##cdr _%e157533157850%_))) + (_%hd157534157853%_ (let () (declare (not safe)) - (##car _%e157427157744%_)))) + (##car _%e157533157850%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157428157747%_)) - (let ((_%e157430157752%_ + (gx#stx-pair? _%hd157534157853%_)) + (let ((_%e157536157858%_ (let () (declare (not safe)) - (gx#stx-e _%hd157428157747%_)))) - (let ((_%tl157432157757%_ + (gx#stx-e _%hd157534157853%_)))) + (let ((_%tl157538157863%_ (let () (declare (not safe)) - (##cdr _%e157430157752%_))) - (_%hd157431157755%_ + (##cdr _%e157536157858%_))) + (_%hd157537157861%_ (let () (declare (not safe)) - (##car _%e157430157752%_)))) + (##car _%e157536157858%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd157431157755%_)) + _%hd157537157861%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157431157755%_)) + _%hd157537157861%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157432157757%_)) - (let ((_%e157433157760%_ + _%tl157538157863%_)) + (let ((_%e157539157866%_ (let () (declare (not safe)) (gx#stx-e - _%tl157432157757%_)))) - (let ((_%tl157435157765%_ + _%tl157538157863%_)))) + (let ((_%tl157541157871%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157433157760%_))) - (_%hd157434157763%_ - (let () (declare (not safe)) (##car _%e157433157760%_)))) + (##cdr _%e157539157866%_))) + (_%hd157540157869%_ + (let () (declare (not safe)) (##car _%e157539157866%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157435157765%_)) + (gx#stx-null? _%tl157541157871%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157429157749%_)) - (let ((_%e157436157768%_ + (gx#stx-pair? _%tl157535157855%_)) + (let ((_%e157542157874%_ (let () (declare (not safe)) - (gx#stx-e _%tl157429157749%_)))) - (let ((_%tl157438157773%_ + (gx#stx-e _%tl157535157855%_)))) + (let ((_%tl157544157879%_ (let () (declare (not safe)) - (##cdr _%e157436157768%_))) - (_%hd157437157771%_ + (##cdr _%e157542157874%_))) + (_%hd157543157877%_ (let () (declare (not safe)) - (##car _%e157436157768%_)))) + (##car _%e157542157874%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157437157771%_)) - (let ((_%e157439157776%_ + (gx#stx-pair? _%hd157543157877%_)) + (let ((_%e157545157882%_ (let () (declare (not safe)) - (gx#stx-e _%hd157437157771%_)))) - (let ((_%tl157441157781%_ + (gx#stx-e _%hd157543157877%_)))) + (let ((_%tl157547157887%_ (let () (declare (not safe)) - (##cdr _%e157439157776%_))) - (_%hd157440157779%_ + (##cdr _%e157545157882%_))) + (_%hd157546157885%_ (let () (declare (not safe)) - (##car _%e157439157776%_)))) + (##car _%e157545157882%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157440157779%_)) + (gx#identifier? _%hd157546157885%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd157440157779%_)) + _%hd157546157885%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157441157781%_)) - (let ((_%e157442157784%_ + _%tl157547157887%_)) + (let ((_%e157548157890%_ (let () (declare (not safe)) (gx#stx-e - _%tl157441157781%_)))) - (let ((_%tl157444157789%_ + _%tl157547157887%_)))) + (let ((_%tl157550157895%_ (let () (declare (not safe)) - (##cdr _%e157442157784%_))) - (_%hd157443157787%_ + (##cdr _%e157548157890%_))) + (_%hd157549157893%_ (let () (declare (not safe)) - (##car _%e157442157784%_)))) + (##car _%e157548157890%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157444157789%_)) + _%tl157550157895%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157438157773%_)) - (let ((_%e157445157792%_ + _%tl157544157879%_)) + (let ((_%e157551157898%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl157438157773%_)))) - (let ((_%tl157447157797%_ + (gx#stx-e _%tl157544157879%_)))) + (let ((_%tl157553157903%_ (let () (declare (not safe)) - (##cdr _%e157445157792%_))) - (_%hd157446157795%_ + (##cdr _%e157551157898%_))) + (_%hd157552157901%_ (let () (declare (not safe)) - (##car _%e157445157792%_)))) + (##car _%e157551157898%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157446157795%_)) - (let ((_%e157448157800%_ + (gx#stx-pair? _%hd157552157901%_)) + (let ((_%e157554157906%_ (let () (declare (not safe)) - (gx#stx-e _%hd157446157795%_)))) - (let ((_%tl157450157805%_ + (gx#stx-e _%hd157552157901%_)))) + (let ((_%tl157556157911%_ (let () (declare (not safe)) - (##cdr _%e157448157800%_))) - (_%hd157449157803%_ + (##cdr _%e157554157906%_))) + (_%hd157555157909%_ (let () (declare (not safe)) - (##car _%e157448157800%_)))) + (##car _%e157554157906%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157449157803%_)) + (gx#identifier? _%hd157555157909%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd157449157803%_)) + _%hd157555157909%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157450157805%_)) - (let ((_%e157451157808%_ + _%tl157556157911%_)) + (let ((_%e157557157914%_ (let () (declare (not safe)) (gx#stx-e - _%tl157450157805%_)))) - (let ((_%tl157453157813%_ + _%tl157556157911%_)))) + (let ((_%tl157559157919%_ (let () (declare (not safe)) - (##cdr _%e157451157808%_))) - (_%hd157452157811%_ + (##cdr _%e157557157914%_))) + (_%hd157558157917%_ (let () (declare (not safe)) - (##car _%e157451157808%_)))) + (##car _%e157557157914%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157453157813%_)) + _%tl157559157919%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157447157797%_)) - (let ((_%e157454157816%_ + _%tl157553157903%_)) + (let ((_%e157560157922%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%tl157447157797%_)))) - (let ((_%tl157456157821%_ + (gx#stx-e _%tl157553157903%_)))) + (let ((_%tl157562157927%_ (let () (declare (not safe)) - (##cdr _%e157454157816%_))) - (_%hd157455157819%_ + (##cdr _%e157560157922%_))) + (_%hd157561157925%_ (let () (declare (not safe)) - (##car _%e157454157816%_)))) + (##car _%e157560157922%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157455157819%_)) - (let ((_%e157457157824%_ + (gx#stx-pair? _%hd157561157925%_)) + (let ((_%e157563157930%_ (let () (declare (not safe)) - (gx#stx-e _%hd157455157819%_)))) - (let ((_%tl157459157829%_ + (gx#stx-e _%hd157561157925%_)))) + (let ((_%tl157565157935%_ (let () (declare (not safe)) - (##cdr _%e157457157824%_))) - (_%hd157458157827%_ + (##cdr _%e157563157930%_))) + (_%hd157564157933%_ (let () (declare (not safe)) - (##car _%e157457157824%_)))) + (##car _%e157563157930%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157458157827%_)) + (gx#identifier? _%hd157564157933%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157458157827%_)) + (gx#stx-eq? '%#ref _%hd157564157933%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157459157829%_)) - (let ((_%e157460157832%_ + (gx#stx-pair? _%tl157565157935%_)) + (let ((_%e157566157938%_ (let () (declare (not safe)) (gx#stx-e - _%tl157459157829%_)))) - (let ((_%tl157462157837%_ + _%tl157565157935%_)))) + (let ((_%tl157568157943%_ (let () (declare (not safe)) - (##cdr _%e157460157832%_))) - (_%hd157461157835%_ + (##cdr _%e157566157938%_))) + (_%hd157567157941%_ (let () (declare (not safe)) - (##car _%e157460157832%_)))) + (##car _%e157566157938%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157462157837%_)) + _%tl157568157943%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl157456157821%_)) - (let ((_%e157463157840%_ + _%tl157562157927%_)) + (let ((_%e157569157946%_ (let () (declare (not safe)) (gx#stx-e - _%tl157456157821%_)))) - (let ((_%tl157465157845%_ + _%tl157562157927%_)))) + (let ((_%tl157571157951%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e157463157840%_))) - (_%hd157464157843%_ - (let () (declare (not safe)) (##car _%e157463157840%_)))) + (##cdr _%e157569157946%_))) + (_%hd157570157949%_ + (let () (declare (not safe)) (##car _%e157569157946%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157464157843%_)) - (let ((_%e157466157848%_ + (gx#stx-pair? _%hd157570157949%_)) + (let ((_%e157572157954%_ (let () (declare (not safe)) - (gx#stx-e _%hd157464157843%_)))) - (let ((_%tl157468157853%_ + (gx#stx-e _%hd157570157949%_)))) + (let ((_%tl157574157959%_ (let () (declare (not safe)) - (##cdr _%e157466157848%_))) - (_%hd157467157851%_ + (##cdr _%e157572157954%_))) + (_%hd157573157957%_ (let () (declare (not safe)) - (##car _%e157466157848%_)))) + (##car _%e157572157954%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd157467157851%_)) + (gx#identifier? _%hd157573157957%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd157467157851%_)) + (gx#stx-eq? '%#ref _%hd157573157957%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl157468157853%_)) - (let ((_%e157469157856%_ + (gx#stx-pair? _%tl157574157959%_)) + (let ((_%e157575157962%_ (let () (declare (not safe)) - (gx#stx-e _%tl157468157853%_)))) - (let ((_%tl157471157861%_ + (gx#stx-e _%tl157574157959%_)))) + (let ((_%tl157577157967%_ (let () (declare (not safe)) - (##cdr _%e157469157856%_))) - (_%hd157470157859%_ + (##cdr _%e157575157962%_))) + (_%hd157576157965%_ (let () (declare (not safe)) - (##car _%e157469157856%_)))) + (##car _%e157575157962%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157471157861%_)) + _%tl157577157967%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157465157845%_)) + _%tl157571157951%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157423157733%_)) + _%tl157529157839%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl157414157709%_)) - (_%__kont170083170084%_ - _%hd157470157859%_ - _%hd157461157835%_ - _%hd157443157787%_ - _%hd157434157763%_ - _%hd157419157723%_ - _%hd157410157699%_ - _%hd157401157675%_ - _%hd157392157651%_ - _%hd157377157611%_ - _%hd157362157571%_ - _%hd157344157523%_) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + _%tl157520157815%_)) + (_%__kont170189170190%_ + _%hd157576157965%_ + _%hd157567157941%_ + _%hd157549157893%_ + _%hd157540157869%_ + _%hd157525157829%_ + _%hd157516157805%_ + _%hd157507157781%_ + _%hd157498157757%_ + _%hd157483157717%_ + _%hd157468157677%_ + _%hd157450157629%_) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)) - (_%__kont170085170086%_)))) - (_%__kont170085170086%_)))))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)) + (_%__kont170191170192%_)))) + (_%__kont170191170192%_)))))) (define gxc#lift-case-lambda-clauses__% - (lambda (_%stx157057%_ _%id157058%_ _%clauses157059%_ _%gensym?157060%_) - (let _%lp157062%_ ((_%rest157064%_ _%clauses157059%_) - (_%ids157065%_ '()) - (_%impls157066%_ '()) - (_%clauses157067%_ '())) - (let* ((_%rest157068157076%_ _%rest157064%_) - (_%else157070157084%_ + (lambda (_%stx157163%_ _%id157164%_ _%clauses157165%_ _%gensym?157166%_) + (let _%lp157168%_ ((_%rest157170%_ _%clauses157165%_) + (_%ids157171%_ '()) + (_%impls157172%_ '()) + (_%clauses157173%_ '())) + (let* ((_%rest157174157182%_ _%rest157170%_) + (_%else157176157190%_ (lambda () - (values (reverse _%ids157065%_) - (reverse _%impls157066%_) - (reverse _%clauses157067%_)))) - (_%K157072157289%_ - (lambda (_%rest157087%_ _%clause157088%_) - (if (gxc#dispatch-lambda-form? _%clause157088%_) - (_%lp157062%_ - _%rest157087%_ - _%ids157065%_ - _%impls157066%_ - (cons _%clause157088%_ _%clauses157067%_)) - (let* ((_%g157090157101%_ - (lambda (_%g157091157098%_) + (values (reverse _%ids157171%_) + (reverse _%impls157172%_) + (reverse _%clauses157173%_)))) + (_%K157178157395%_ + (lambda (_%rest157193%_ _%clause157194%_) + (if (gxc#dispatch-lambda-form? _%clause157194%_) + (_%lp157168%_ + _%rest157193%_ + _%ids157171%_ + _%impls157172%_ + (cons _%clause157194%_ _%clauses157173%_)) + (let* ((_%g157196157207%_ + (lambda (_%g157197157204%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g157091157098%_)))) - (_%g157089157286%_ - (lambda (_%g157091157104%_) + _%g157197157204%_)))) + (_%g157195157392%_ + (lambda (_%g157197157210%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g157091157104%_)) - (let ((_%e157094157106%_ + (gx#stx-pair? _%g157197157210%_)) + (let ((_%e157200157212%_ (let () (declare (not safe)) - (gx#stx-e _%g157091157104%_)))) - (let ((_%hd157095157109%_ + (gx#stx-e _%g157197157210%_)))) + (let ((_%hd157201157215%_ (let () (declare (not safe)) - (##car _%e157094157106%_))) - (_%tl157096157111%_ + (##car _%e157200157212%_))) + (_%tl157202157217%_ (let () (declare (not safe)) - (##cdr _%e157094157106%_)))) - ((lambda (_%L157114%_ _%L157115%_) - (let* ((_%id157132%_ - (let ((__tmp171285 + (##cdr _%e157200157212%_)))) + ((lambda (_%L157220%_ _%L157221%_) + (let* ((_%id157238%_ + (let ((__tmp171391 (let () (declare (not safe)) (gx#stx-e - _%id157058%_))) - (__tmp171284 - (length _%clauses157067%_)) - (__tmp171283 - (if _%gensym?157060%_ + _%id157164%_))) + (__tmp171390 + (length _%clauses157173%_)) + (__tmp171389 + (if _%gensym?157166%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##gensym '__)) '""))) (declare (not safe)) - (make-symbol__1 __tmp171285 '"__" __tmp171284 __tmp171283))) + (make-symbol__1 __tmp171391 '"__" __tmp171390 __tmp171389))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%id157134%_ - (let ((__tmp171286 + (_%id157240%_ + (let ((__tmp171392 (let () (declare (not safe)) (gx#stx-source - _%stx157057%_)))) + _%stx157163%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%id157132%_ - __tmp171286))) - (_%impl157136%_ - (let ((__tmp171287 + _%id157238%_ + __tmp171392))) + (_%impl157242%_ + (let ((__tmp171393 (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f '%#lambda)) - (cons _%L157115%_ _%L157114%_)))) + (cons _%L157221%_ _%L157220%_)))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171287 _%stx157057%_))) + (gxc#xform-wrap-source __tmp171393 _%stx157163%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%clause157283%_ - (let* ((_%__stx170465170466%_ - _%L157115%_) - (_%g157140157168%_ + (_%clause157389%_ + (let* ((_%__stx170571170572%_ + _%L157221%_) + (_%g157246157274%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -20102,353 +20102,353 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170465170466%_))))) - (let ((_%__kont170467170468%_ - (lambda (_%L157262%_) - (cons _%L157115%_ - (cons (let ((__tmp171288 + _%__stx170571170572%_))))) + (let ((_%__kont170573170574%_ + (lambda (_%L157368%_) + (cons _%L157221%_ + (cons (let ((__tmp171394 (cons '%#call (cons (cons '%#ref - (cons _%id157134%_ + (cons _%id157240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (let ((__tmp171289 - (lambda (_%g157272157275%_ _%g157273157277%_) + (let ((__tmp171395 + (lambda (_%g157378157381%_ _%g157379157383%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157272157275%_ '())) - _%g157273157277%_)))) + (cons _%g157378157381%_ '())) + _%g157379157383%_)))) (declare (not safe)) - (__foldr1 __tmp171289 '() _%L157262%_)))))) + (__foldr1 __tmp171395 '() _%L157368%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171288 - _%stx157057%_)) + __tmp171394 + _%stx157163%_)) '())))) - (_%__kont170471170472%_ - (lambda (_%L157213%_ _%L157214%_) - (cons _%L157115%_ - (cons (let ((__tmp171290 + (_%__kont170577170578%_ + (lambda (_%L157319%_ _%L157320%_) + (cons _%L157221%_ + (cons (let ((__tmp171396 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157134%_ '())) - (let ((__tmp171293 + (cons _%id157240%_ '())) + (let ((__tmp171399 (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157213%_ '())) + (cons _%L157319%_ '())) '())) - (__tmp171291 - (let ((__tmp171292 - (lambda (_%g157225157228%_ - _%g157226157230%_) + (__tmp171397 + (let ((__tmp171398 + (lambda (_%g157331157334%_ + _%g157332157336%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%g157225157228%_ '())) - _%g157226157230%_)))) + (cons _%g157331157334%_ '())) + _%g157332157336%_)))) (declare (not safe)) - (__foldr1 __tmp171292 '() _%L157214%_)))) + (__foldr1 __tmp171398 '() _%L157320%_)))) (declare (not safe)) - (__foldr1 cons __tmp171293 __tmp171291))))))) + (__foldr1 cons __tmp171399 __tmp171397))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171290 - _%stx157057%_)) + __tmp171396 + _%stx157163%_)) '())))) - (_%__kont170475170476%_ - (lambda (_%L157173%_) - (cons _%L157115%_ - (cons (let ((__tmp171294 + (_%__kont170581170582%_ + (lambda (_%L157279%_) + (cons _%L157221%_ + (cons (let ((__tmp171400 (cons '%#call (cons (cons '%#ref (cons 'apply '())) (cons (cons '%#ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id157134%_ '())) + (cons _%id157240%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '%#ref)) - (cons _%L157173%_ '())) + (cons _%L157279%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171294 - _%stx157057%_)) + __tmp171400 + _%stx157163%_)) '()))))) - (let* ((_%__match170490170491%_ - (lambda (_%__splice170473170474%_ - _%target157154157189%_ - _%tl157156157191%_) - (letrec ((_%loop157157157194%_ - (lambda (_%hd157155157197%_ - _%arg157161157199%_) + (let* ((_%__match170596170597%_ + (lambda (_%__splice170579170580%_ + _%target157260157295%_ + _%tl157262157297%_) + (letrec ((_%loop157263157300%_ + (lambda (_%hd157261157303%_ + _%arg157267157305%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157155157197%_)) - (let ((_%e157158157202%_ + (gx#stx-pair? _%hd157261157303%_)) + (let ((_%e157264157308%_ (let () (declare (not safe)) (gx#stx-e - _%hd157155157197%_)))) - (let ((_%lp-tl157160157207%_ + _%hd157261157303%_)))) + (let ((_%lp-tl157266157313%_ (let () (declare (not safe)) - (##cdr _%e157158157202%_))) - (_%lp-hd157159157205%_ + (##cdr _%e157264157308%_))) + (_%lp-hd157265157311%_ (let () (declare (not safe)) - (##car _%e157158157202%_)))) - (_%loop157157157194%_ - _%lp-tl157160157207%_ - (cons _%lp-hd157159157205%_ - _%arg157161157199%_)))) - (let ((_%arg157162157210%_ - (reverse _%arg157161157199%_))) - (_%__kont170471170472%_ - _%tl157156157191%_ - _%arg157162157210%_)))))) - (_%loop157157157194%_ - _%target157154157189%_ + (##car _%e157264157308%_)))) + (_%loop157263157300%_ + _%lp-tl157266157313%_ + (cons _%lp-hd157265157311%_ + _%arg157267157305%_)))) + (let ((_%arg157268157316%_ + (reverse _%arg157267157305%_))) + (_%__kont170577170578%_ + _%tl157262157297%_ + _%arg157268157316%_)))))) + (_%loop157263157300%_ + _%target157260157295%_ '())))) - (_%__match170484170485%_ - (lambda (_%__splice170469170470%_ - _%target157143157238%_ - _%tl157145157240%_) - (letrec ((_%loop157146157243%_ - (lambda (_%hd157144157246%_ - _%arg157150157248%_) + (_%__match170590170591%_ + (lambda (_%__splice170575170576%_ + _%target157249157344%_ + _%tl157251157346%_) + (letrec ((_%loop157252157349%_ + (lambda (_%hd157250157352%_ + _%arg157256157354%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd157144157246%_)) - (let ((_%e157147157251%_ + (gx#stx-pair? _%hd157250157352%_)) + (let ((_%e157253157357%_ (let () (declare (not safe)) (gx#stx-e - _%hd157144157246%_)))) - (let ((_%lp-tl157149157256%_ + _%hd157250157352%_)))) + (let ((_%lp-tl157255157362%_ (let () (declare (not safe)) - (##cdr _%e157147157251%_))) - (_%lp-hd157148157254%_ + (##cdr _%e157253157357%_))) + (_%lp-hd157254157360%_ (let () (declare (not safe)) - (##car _%e157147157251%_)))) - (_%loop157146157243%_ - _%lp-tl157149157256%_ - (cons _%lp-hd157148157254%_ - _%arg157150157248%_)))) - (let ((_%arg157151157259%_ - (reverse _%arg157150157248%_))) - (_%__kont170467170468%_ - _%arg157151157259%_)))))) - (_%loop157146157243%_ - _%target157143157238%_ + (##car _%e157253157357%_)))) + (_%loop157252157349%_ + _%lp-tl157255157362%_ + (cons _%lp-hd157254157360%_ + _%arg157256157354%_)))) + (let ((_%arg157257157365%_ + (reverse _%arg157256157354%_))) + (_%__kont170573170574%_ + _%arg157257157365%_)))))) + (_%loop157252157349%_ + _%target157249157344%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%__stx170465170466%_)) - (let ((_%__splice170469170470%_ + (gx#stx-pair/null? _%__stx170571170572%_)) + (let ((_%__splice170575170576%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%__stx170465170466%_ + _%__stx170571170572%_ '0)))) - (let ((_%tl157145157240%_ + (let ((_%tl157251157346%_ (let () (declare (not safe)) - (##vector-ref _%__splice170469170470%_ '1))) - (_%target157143157238%_ + (##vector-ref _%__splice170575170576%_ '1))) + (_%target157249157344%_ (let () (declare (not safe)) - (##vector-ref _%__splice170469170470%_ '0)))) + (##vector-ref _%__splice170575170576%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl157145157240%_)) - (_%__match170484170485%_ - _%__splice170469170470%_ - _%target157143157238%_ - _%tl157145157240%_) - (_%__match170490170491%_ - _%__splice170469170470%_ - _%target157143157238%_ - _%tl157145157240%_)))) - (_%__kont170475170476%_ _%__stx170465170466%_))))))) + (gx#stx-null? _%tl157251157346%_)) + (_%__match170590170591%_ + _%__splice170575170576%_ + _%target157249157344%_ + _%tl157251157346%_) + (_%__match170596170597%_ + _%__splice170575170576%_ + _%target157249157344%_ + _%tl157251157346%_)))) + (_%__kont170581170582%_ _%__stx170571170572%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp157062%_ - _%rest157087%_ - (cons _%id157134%_ - _%ids157065%_) - (cons _%impl157136%_ - _%impls157066%_) - (cons _%clause157283%_ - _%clauses157067%_)))) - _%tl157096157111%_ - _%hd157095157109%_))) - (_%g157090157101%_ _%g157091157104%_))))) - (_%g157089157286%_ _%clause157088%_)))))) - (if (pair? _%rest157068157076%_) - (let ((_%hd157073157292%_ + (_%lp157168%_ + _%rest157193%_ + (cons _%id157240%_ + _%ids157171%_) + (cons _%impl157242%_ + _%impls157172%_) + (cons _%clause157389%_ + _%clauses157173%_)))) + _%tl157202157217%_ + _%hd157201157215%_))) + (_%g157196157207%_ _%g157197157210%_))))) + (_%g157195157392%_ _%clause157194%_)))))) + (if (pair? _%rest157174157182%_) + (let ((_%hd157179157398%_ (let () (declare (not safe)) - (##car _%rest157068157076%_))) - (_%tl157074157294%_ + (##car _%rest157174157182%_))) + (_%tl157180157400%_ (let () (declare (not safe)) - (##cdr _%rest157068157076%_)))) - (let* ((_%clause157297%_ _%hd157073157292%_) - (_%rest157299%_ _%tl157074157294%_)) - (_%K157072157289%_ _%rest157299%_ _%clause157297%_))) - (_%else157070157084%_)))))) + (##cdr _%rest157174157182%_)))) + (let* ((_%clause157403%_ _%hd157179157398%_) + (_%rest157405%_ _%tl157180157400%_)) + (_%K157178157395%_ _%rest157405%_ _%clause157403%_))) + (_%else157176157190%_)))))) (define gxc#lift-case-lambda-clauses__0 - (lambda (_%stx157304%_ _%id157305%_ _%clauses157306%_) - (let ((_%gensym?157308%_ '#f)) + (lambda (_%stx157410%_ _%id157411%_ _%clauses157412%_) + (let ((_%gensym?157414%_ '#f)) (gxc#lift-case-lambda-clauses__% - _%stx157304%_ - _%id157305%_ - _%clauses157306%_ - _%gensym?157308%_)))) + _%stx157410%_ + _%id157411%_ + _%clauses157412%_ + _%gensym?157414%_)))) (define gxc#lift-case-lambda-clauses - (lambda _g171296_ - (let ((_g171295_ (let () (declare (not safe)) (##length _g171296_)))) - (cond ((let () (declare (not safe)) (##fx= _g171295_ 3)) - (apply gxc#lift-case-lambda-clauses__0 _g171296_)) - ((let () (declare (not safe)) (##fx= _g171295_ 4)) - (apply gxc#lift-case-lambda-clauses__% _g171296_)) + (lambda _g171402_ + (let ((_g171401_ (let () (declare (not safe)) (##length _g171402_)))) + (cond ((let () (declare (not safe)) (##fx= _g171401_ 3)) + (apply gxc#lift-case-lambda-clauses__0 _g171402_)) + ((let () (declare (not safe)) (##fx= _g171401_ 4)) + (apply gxc#lift-case-lambda-clauses__% _g171402_)) (else (##raise-wrong-number-of-arguments-exception gxc#lift-case-lambda-clauses - _g171296_)))))) + _g171402_)))))) (define gxc#lift-top-lambda-define-values% - (lambda (_%self156329%_ _%stx156330%_) - (letrec ((_%case-lambda-clause-def156332%_ - (lambda (_%id157053%_ _%impl157054%_) - (let ((__tmp171297 + (lambda (_%self156435%_ _%stx156436%_) + (letrec ((_%case-lambda-clause-def156438%_ + (lambda (_%id157159%_ _%impl157160%_) + (let ((__tmp171403 (cons '%#define-values - (cons (cons _%id157053%_ '()) + (cons (cons _%id157159%_ '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156329%_ - _%impl157054%_)) + _%self156435%_ + _%impl157160%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171297 _%stx156330%_)))) - (_%opt-lambda-dispatch-name156333%_ - (lambda (_%id157049%_) - (if (uninterned-symbol? _%id157049%_) - (let ((_%str157051%_ (symbol->string _%id157049%_))) + (gxc#xform-wrap-source __tmp171403 _%stx156436%_)))) + (_%opt-lambda-dispatch-name156439%_ + (lambda (_%id157155%_) + (if (uninterned-symbol? _%id157155%_) + (let ((_%str157157%_ (symbol->string _%id157155%_))) (if (let () (declare (not safe)) - (##string-prefix? '"opt-lambda" _%str157051%_)) + (##string-prefix? '"opt-lambda" _%str157157%_)) '"%" - _%id157049%_)) - _%id157049%_))) - (_%kw-lambda-dispatch-name156334%_ - (lambda (_%id157044%_ _%name157045%_) - (if (uninterned-symbol? _%id157044%_) - (let ((_%str157047%_ (symbol->string _%id157044%_))) + _%id157155%_)) + _%id157155%_))) + (_%kw-lambda-dispatch-name156440%_ + (lambda (_%id157150%_ _%name157151%_) + (if (uninterned-symbol? _%id157150%_) + (let ((_%str157153%_ (symbol->string _%id157150%_))) (if (let () (declare (not safe)) - (##string-prefix? '"kw-lambda" _%str157047%_)) - _%name157045%_ - _%id157044%_)) - _%id157044%_)))) - (let* ((_%__stx170513170514%_ _%stx156330%_) - (_%g156339156398%_ + (##string-prefix? '"kw-lambda" _%str157153%_)) + _%name157151%_ + _%id157150%_)) + _%id157150%_)))) + (let* ((_%__stx170619170620%_ _%stx156436%_) + (_%g156445156504%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170513170514%_))))) - (let ((_%__kont170515170516%_ - (lambda (_%L156952%_ _%L156953%_) - (let* ((_%__stx170493170494%_ _%L156952%_) - (_%g156970156984%_ + _%__stx170619170620%_))))) + (let ((_%__kont170621170622%_ + (lambda (_%L157058%_ _%L157059%_) + (let* ((_%__stx170599170600%_ _%L157058%_) + (_%g157076157090%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170493170494%_))))) - (let ((_%__kont170495170496%_ - (lambda (_%L157029%_) _%stx156330%_)) - (_%__kont170497170498%_ - (lambda (_%L156997%_) - (let ((_g171298_ + _%__stx170599170600%_))))) + (let ((_%__kont170601170602%_ + (lambda (_%L157135%_) _%stx156436%_)) + (_%__kont170603170604%_ + (lambda (_%L157103%_) + (let ((_g171404_ (gxc#lift-case-lambda-clauses__0 - _%stx156330%_ - _%L156953%_ - _%L156997%_))) + _%stx156436%_ + _%L157059%_ + _%L157103%_))) (begin - (let ((_g171299_ + (let ((_g171405_ (let () (declare (not safe)) - (if (##values? _g171298_) - (##vector-length _g171298_) + (if (##values? _g171404_) + (##values-length _g171404_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171299_ 3))) + (##fx= _g171405_ 3))) (error "Context expects 3 values" - _g171299_))) - (let ((_%ids157007%_ + _g171405_))) + (let ((_%ids157113%_ (let () (declare (not safe)) - (##vector-ref _g171298_ 0))) - (_%impls157008%_ + (##values-ref _g171404_ 0))) + (_%impls157114%_ (let () (declare (not safe)) - (##vector-ref _g171298_ 1))) - (_%clauses157009%_ + (##values-ref _g171404_ 1))) + (_%clauses157115%_ (let () (declare (not safe)) - (##vector-ref _g171298_ 2)))) - (let* ((_%_157011%_ + (##values-ref _g171404_ 2)))) + (let* ((_%_157117%_ (for-each gx#core-bind-runtime! - _%ids157007%_)) - (_%defs157013%_ - (map _%case-lambda-clause-def156332%_ - _%ids157007%_ - _%impls157008%_))) - (let ((__tmp171301 + _%ids157113%_)) + (_%defs157119%_ + (map _%case-lambda-clause-def156438%_ + _%ids157113%_ + _%impls157114%_))) + (let ((__tmp171407 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156953%_))) - (__tmp171300 + _%L157059%_))) + (__tmp171406 (map gxc#identifier-symbol - _%ids157007%_))) + _%ids157113%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171301 + __tmp171407 '" => " - __tmp171300)) - (let ((__tmp171302 + __tmp171406)) + (let ((__tmp171408 (cons '%#begin - (let ((__tmp171303 - (cons (let ((__tmp171304 + (let ((__tmp171409 + (cons (let ((__tmp171410 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '%#define-values - (cons (cons _%L156953%_ '()) - (cons (let ((__tmp171306 + (cons (cons _%L157059%_ '()) + (cons (let ((__tmp171412 (cons '%#case-lambda - _%clauses157009%_)) - (__tmp171305 + _%clauses157115%_)) + (__tmp171411 (let () (declare (not safe)) @@ -20457,1128 +20457,1128 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171306 - __tmp171305)) + __tmp171412 + __tmp171411)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171304 _%stx156330%_)) + (gxc#xform-wrap-source __tmp171410 _%stx156436%_)) '()))) (declare (not safe)) - (__foldr1 cons __tmp171303 _%defs157013%_))))) + (__foldr1 cons __tmp171409 _%defs157119%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171302 - _%stx156330%_))))))))) - (let ((_%__match170504170505%_ - (lambda (_%e156973157021%_ - _%hd156974157024%_ - _%tl156975157026%_) - (let ((_%L157029%_ _%tl156975157026%_)) + __tmp171408 + _%stx156436%_))))))))) + (let ((_%__match170610170611%_ + (lambda (_%e157079157127%_ + _%hd157080157130%_ + _%tl157081157132%_) + (let ((_%L157135%_ _%tl157081157132%_)) (if (let () (declare (not safe)) (__andmap1 gxc#dispatch-lambda-form? - _%L157029%_)) - (_%__kont170495170496%_ _%L157029%_) - (_%__kont170497170498%_ - _%tl156975157026%_)))))) + _%L157135%_)) + (_%__kont170601170602%_ _%L157135%_) + (_%__kont170603170604%_ + _%tl157081157132%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170493170494%_)) - (let ((_%e156973157021%_ + (gx#stx-pair? _%__stx170599170600%_)) + (let ((_%e157079157127%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170493170494%_)))) - (let ((_%tl156975157026%_ + (gx#stx-e _%__stx170599170600%_)))) + (let ((_%tl157081157132%_ (let () (declare (not safe)) - (##cdr _%e156973157021%_))) - (_%hd156974157024%_ + (##cdr _%e157079157127%_))) + (_%hd157080157130%_ (let () (declare (not safe)) - (##car _%e156973157021%_)))) - (_%__match170504170505%_ - _%e156973157021%_ - _%hd156974157024%_ - _%tl156975157026%_))) + (##car _%e157079157127%_)))) + (_%__match170610170611%_ + _%e157079157127%_ + _%hd157080157130%_ + _%tl157081157132%_))) (let () (declare (not safe)) - (_%g156970156984%_)))))))) - (_%__kont170517170518%_ - (lambda (_%L156769%_ _%L156770%_) - (let* ((_%g156786156816%_ - (lambda (_%g156787156813%_) + (_%g157076157090%_)))))))) + (_%__kont170623170624%_ + (lambda (_%L156875%_ _%L156876%_) + (let* ((_%g156892156922%_ + (lambda (_%g156893156919%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156787156813%_)))) - (_%g156785156912%_ - (lambda (_%g156787156819%_) + _%g156893156919%_)))) + (_%g156891157018%_ + (lambda (_%g156893156925%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156787156819%_)) - (let ((_%e156791156821%_ + (gx#stx-pair? _%g156893156925%_)) + (let ((_%e156897156927%_ (let () (declare (not safe)) - (gx#stx-e _%g156787156819%_)))) - (let ((_%hd156792156824%_ + (gx#stx-e _%g156893156925%_)))) + (let ((_%hd156898156930%_ (let () (declare (not safe)) - (##car _%e156791156821%_))) - (_%tl156793156826%_ + (##car _%e156897156927%_))) + (_%tl156899156932%_ (let () (declare (not safe)) - (##cdr _%e156791156821%_)))) + (##cdr _%e156897156927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156793156826%_)) - (let ((_%e156794156829%_ + (gx#stx-pair? _%tl156899156932%_)) + (let ((_%e156900156935%_ (let () (declare (not safe)) (gx#stx-e - _%tl156793156826%_)))) - (let ((_%hd156795156832%_ + _%tl156899156932%_)))) + (let ((_%hd156901156938%_ (let () (declare (not safe)) - (##car _%e156794156829%_))) - (_%tl156796156834%_ + (##car _%e156900156935%_))) + (_%tl156902156940%_ (let () (declare (not safe)) - (##cdr _%e156794156829%_)))) + (##cdr _%e156900156935%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156795156832%_)) - (let ((_%e156797156837%_ + _%hd156901156938%_)) + (let ((_%e156903156943%_ (let () (declare (not safe)) (gx#stx-e - _%hd156795156832%_)))) - (let ((_%hd156798156840%_ + _%hd156901156938%_)))) + (let ((_%hd156904156946%_ (let () (declare (not safe)) - (##car _%e156797156837%_))) - (_%tl156799156842%_ + (##car _%e156903156943%_))) + (_%tl156905156948%_ (let () (declare (not safe)) - (##cdr _%e156797156837%_)))) + (##cdr _%e156903156943%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156798156840%_)) - (let ((_%e156800156845%_ + _%hd156904156946%_)) + (let ((_%e156906156951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156798156840%_)))) - (let ((_%hd156801156848%_ + (gx#stx-e _%hd156904156946%_)))) + (let ((_%hd156907156954%_ (let () (declare (not safe)) - (##car _%e156800156845%_))) - (_%tl156802156850%_ + (##car _%e156906156951%_))) + (_%tl156908156956%_ (let () (declare (not safe)) - (##cdr _%e156800156845%_)))) + (##cdr _%e156906156951%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156801156848%_)) - (let ((_%e156803156853%_ + (gx#stx-pair? _%hd156907156954%_)) + (let ((_%e156909156959%_ (let () (declare (not safe)) - (gx#stx-e _%hd156801156848%_)))) - (let ((_%hd156804156856%_ + (gx#stx-e _%hd156907156954%_)))) + (let ((_%hd156910156962%_ (let () (declare (not safe)) - (##car _%e156803156853%_))) - (_%tl156805156858%_ + (##car _%e156909156959%_))) + (_%tl156911156964%_ (let () (declare (not safe)) - (##cdr _%e156803156853%_)))) + (##cdr _%e156909156959%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156805156858%_)) + (gx#stx-null? _%tl156911156964%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156802156850%_)) - (let ((_%e156806156861%_ + (gx#stx-pair? _%tl156908156956%_)) + (let ((_%e156912156967%_ (let () (declare (not safe)) (gx#stx-e - _%tl156802156850%_)))) - (let ((_%hd156807156864%_ + _%tl156908156956%_)))) + (let ((_%hd156913156970%_ (let () (declare (not safe)) - (##car _%e156806156861%_))) - (_%tl156808156866%_ + (##car _%e156912156967%_))) + (_%tl156914156972%_ (let () (declare (not safe)) - (##cdr _%e156806156861%_)))) + (##cdr _%e156912156967%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156808156866%_)) + _%tl156914156972%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156799156842%_)) + _%tl156905156948%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156796156834%_)) - (let ((_%e156809156869%_ + _%tl156902156940%_)) + (let ((_%e156915156975%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156796156834%_)))) - (let ((_%hd156810156872%_ + (gx#stx-e _%tl156902156940%_)))) + (let ((_%hd156916156978%_ (let () (declare (not safe)) - (##car _%e156809156869%_))) - (_%tl156811156874%_ + (##car _%e156915156975%_))) + (_%tl156917156980%_ (let () (declare (not safe)) - (##cdr _%e156809156869%_)))) + (##cdr _%e156915156975%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156811156874%_)) - ((lambda (_%L156877%_ _%L156878%_ _%L156879%_) - (let* ((_%lambda-id156903%_ - (let ((__tmp171308 + (gx#stx-null? _%tl156917156980%_)) + ((lambda (_%L156983%_ _%L156984%_ _%L156985%_) + (let* ((_%lambda-id157009%_ + (let ((__tmp171414 (let () (declare (not safe)) - (gx#stx-e _%L156770%_))) - (__tmp171307 - (_%opt-lambda-dispatch-name156333%_ + (gx#stx-e _%L156876%_))) + (__tmp171413 + (_%opt-lambda-dispatch-name156439%_ (let () (declare (not safe)) - (gx#stx-e _%L156879%_))))) + (gx#stx-e _%L156985%_))))) (declare (not safe)) (make-symbol__1 - __tmp171308 + __tmp171414 '"__" - __tmp171307))) - (_%lambda-id156905%_ - (let ((__tmp171309 + __tmp171413))) + (_%lambda-id157011%_ + (let ((__tmp171415 (let () (declare (not safe)) - (gx#stx-source _%stx156330%_)))) + (gx#stx-source _%stx156436%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%lambda-id156903%_ - __tmp171309))) - (_%_156907%_ + _%lambda-id157009%_ + __tmp171415))) + (_%_157013%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%lambda-id156905%_))) - (_%new-case-lambda-expr156909%_ + _%lambda-id157011%_))) + (_%new-case-lambda-expr157015%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156879%_ - _%lambda-id156905%_ - _%L156877%_)))) - (let ((__tmp171311 + _%L156985%_ + _%lambda-id157011%_ + _%L156983%_)))) + (let ((__tmp171417 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156770%_))) - (__tmp171310 + (gxc#identifier-symbol _%L156876%_))) + (__tmp171416 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156905%_)))) + _%lambda-id157011%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171311 + __tmp171417 '" => " - __tmp171310)) - (let ((__tmp171312 + __tmp171416)) + (let ((__tmp171418 (cons '%#begin - (cons (let ((__tmp171313 + (cons (let ((__tmp171419 (cons '%#define-values - (cons (cons _%lambda-id156905%_ + (cons (cons _%lambda-id157011%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156329%_ - _%L156878%_)) + _%self156435%_ + _%L156984%_)) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171313 - _%stx156330%_)) + __tmp171419 + _%stx156436%_)) (cons (gxc#lift-top-lambda-define-values% - _%self156329%_ - (let ((__tmp171314 + _%self156435%_ + (let ((__tmp171420 (cons '%#define-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L156770%_ '()) - (cons _%new-case-lambda-expr156909%_ '()))))) + (cons (cons _%L156876%_ '()) + (cons _%new-case-lambda-expr157015%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171314 _%stx156330%_))) + (gxc#xform-wrap-source __tmp171420 _%stx156436%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171312 - _%stx156330%_)))) - _%hd156810156872%_ - _%hd156807156864%_ - _%hd156804156856%_) - (_%g156786156816%_ _%g156787156819%_)))) - (_%g156786156816%_ _%g156787156819%_)) + __tmp171418 + _%stx156436%_)))) + _%hd156916156978%_ + _%hd156913156970%_ + _%hd156910156962%_) + (_%g156892156922%_ _%g156893156925%_)))) + (_%g156892156922%_ _%g156893156925%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156786156816%_ - _%g156787156819%_)) - (_%g156786156816%_ - _%g156787156819%_)))) - (_%g156786156816%_ _%g156787156819%_)) - (_%g156786156816%_ _%g156787156819%_)))) - (_%g156786156816%_ _%g156787156819%_)))) - (_%g156786156816%_ _%g156787156819%_)))) + (_%g156892156922%_ + _%g156893156925%_)) + (_%g156892156922%_ + _%g156893156925%_)))) + (_%g156892156922%_ _%g156893156925%_)) + (_%g156892156922%_ _%g156893156925%_)))) + (_%g156892156922%_ _%g156893156925%_)))) + (_%g156892156922%_ _%g156893156925%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156786156816%_ - _%g156787156819%_)))) - (_%g156786156816%_ - _%g156787156819%_)))) - (_%g156786156816%_ _%g156787156819%_))))) - (_%g156785156912%_ _%L156769%_)))) - (_%__kont170519170520%_ - (lambda (_%L156481%_ _%L156482%_) - (let* ((_%g156498156551%_ - (lambda (_%g156499156548%_) + (_%g156892156922%_ + _%g156893156925%_)))) + (_%g156892156922%_ + _%g156893156925%_)))) + (_%g156892156922%_ _%g156893156925%_))))) + (_%g156891157018%_ _%L156875%_)))) + (_%__kont170625170626%_ + (lambda (_%L156587%_ _%L156588%_) + (let* ((_%g156604156657%_ + (lambda (_%g156605156654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156499156548%_)))) - (_%g156497156729%_ - (lambda (_%g156499156554%_) + _%g156605156654%_)))) + (_%g156603156835%_ + (lambda (_%g156605156660%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g156499156554%_)) - (let ((_%e156505156556%_ + (gx#stx-pair? _%g156605156660%_)) + (let ((_%e156611156662%_ (let () (declare (not safe)) - (gx#stx-e _%g156499156554%_)))) - (let ((_%hd156506156559%_ + (gx#stx-e _%g156605156660%_)))) + (let ((_%hd156612156665%_ (let () (declare (not safe)) - (##car _%e156505156556%_))) - (_%tl156507156561%_ + (##car _%e156611156662%_))) + (_%tl156613156667%_ (let () (declare (not safe)) - (##cdr _%e156505156556%_)))) + (##cdr _%e156611156662%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156507156561%_)) - (let ((_%e156508156564%_ + (gx#stx-pair? _%tl156613156667%_)) + (let ((_%e156614156670%_ (let () (declare (not safe)) (gx#stx-e - _%tl156507156561%_)))) - (let ((_%hd156509156567%_ + _%tl156613156667%_)))) + (let ((_%hd156615156673%_ (let () (declare (not safe)) - (##car _%e156508156564%_))) - (_%tl156510156569%_ + (##car _%e156614156670%_))) + (_%tl156616156675%_ (let () (declare (not safe)) - (##cdr _%e156508156564%_)))) + (##cdr _%e156614156670%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156509156567%_)) - (let ((_%e156511156572%_ + _%hd156615156673%_)) + (let ((_%e156617156678%_ (let () (declare (not safe)) (gx#stx-e - _%hd156509156567%_)))) - (let ((_%hd156512156575%_ + _%hd156615156673%_)))) + (let ((_%hd156618156681%_ (let () (declare (not safe)) - (##car _%e156511156572%_))) - (_%tl156513156577%_ + (##car _%e156617156678%_))) + (_%tl156619156683%_ (let () (declare (not safe)) - (##cdr _%e156511156572%_)))) + (##cdr _%e156617156678%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156512156575%_)) - (let ((_%e156514156580%_ + _%hd156618156681%_)) + (let ((_%e156620156686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd156512156575%_)))) - (let ((_%hd156515156583%_ + (gx#stx-e _%hd156618156681%_)))) + (let ((_%hd156621156689%_ (let () (declare (not safe)) - (##car _%e156514156580%_))) - (_%tl156516156585%_ + (##car _%e156620156686%_))) + (_%tl156622156691%_ (let () (declare (not safe)) - (##cdr _%e156514156580%_)))) + (##cdr _%e156620156686%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156515156583%_)) - (let ((_%e156517156588%_ + (gx#stx-pair? _%hd156621156689%_)) + (let ((_%e156623156694%_ (let () (declare (not safe)) - (gx#stx-e _%hd156515156583%_)))) - (let ((_%hd156518156591%_ + (gx#stx-e _%hd156621156689%_)))) + (let ((_%hd156624156697%_ (let () (declare (not safe)) - (##car _%e156517156588%_))) - (_%tl156519156593%_ + (##car _%e156623156694%_))) + (_%tl156625156699%_ (let () (declare (not safe)) - (##cdr _%e156517156588%_)))) + (##cdr _%e156623156694%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156519156593%_)) + (gx#stx-null? _%tl156625156699%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156516156585%_)) - (let ((_%e156520156596%_ + (gx#stx-pair? _%tl156622156691%_)) + (let ((_%e156626156702%_ (let () (declare (not safe)) (gx#stx-e - _%tl156516156585%_)))) - (let ((_%hd156521156599%_ + _%tl156622156691%_)))) + (let ((_%hd156627156705%_ (let () (declare (not safe)) - (##car _%e156520156596%_))) - (_%tl156522156601%_ + (##car _%e156626156702%_))) + (_%tl156628156707%_ (let () (declare (not safe)) - (##cdr _%e156520156596%_)))) + (##cdr _%e156626156702%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156521156599%_)) - (let ((_%e156523156604%_ + _%hd156627156705%_)) + (let ((_%e156629156710%_ (let () (declare (not safe)) (gx#stx-e - _%hd156521156599%_)))) - (let ((_%hd156524156607%_ + _%hd156627156705%_)))) + (let ((_%hd156630156713%_ (let () (declare (not safe)) - (##car _%e156523156604%_))) - (_%tl156525156609%_ + (##car _%e156629156710%_))) + (_%tl156631156715%_ (let () (declare (not safe)) - (##cdr _%e156523156604%_)))) + (##cdr _%e156629156710%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156525156609%_)) - (let ((_%e156526156612%_ + _%tl156631156715%_)) + (let ((_%e156632156718%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl156525156609%_)))) - (let ((_%hd156527156615%_ + (gx#stx-e _%tl156631156715%_)))) + (let ((_%hd156633156721%_ (let () (declare (not safe)) - (##car _%e156526156612%_))) - (_%tl156528156617%_ + (##car _%e156632156718%_))) + (_%tl156634156723%_ (let () (declare (not safe)) - (##cdr _%e156526156612%_)))) + (##cdr _%e156632156718%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156527156615%_)) - (let ((_%e156529156620%_ + (gx#stx-pair? _%hd156633156721%_)) + (let ((_%e156635156726%_ (let () (declare (not safe)) - (gx#stx-e _%hd156527156615%_)))) - (let ((_%hd156530156623%_ + (gx#stx-e _%hd156633156721%_)))) + (let ((_%hd156636156729%_ (let () (declare (not safe)) - (##car _%e156529156620%_))) - (_%tl156531156625%_ + (##car _%e156635156726%_))) + (_%tl156637156731%_ (let () (declare (not safe)) - (##cdr _%e156529156620%_)))) + (##cdr _%e156635156726%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156530156623%_)) - (let ((_%e156532156628%_ + (gx#stx-pair? _%hd156636156729%_)) + (let ((_%e156638156734%_ (let () (declare (not safe)) - (gx#stx-e _%hd156530156623%_)))) - (let ((_%hd156533156631%_ + (gx#stx-e _%hd156636156729%_)))) + (let ((_%hd156639156737%_ (let () (declare (not safe)) - (##car _%e156532156628%_))) - (_%tl156534156633%_ + (##car _%e156638156734%_))) + (_%tl156640156739%_ (let () (declare (not safe)) - (##cdr _%e156532156628%_)))) + (##cdr _%e156638156734%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156533156631%_)) - (let ((_%e156535156636%_ + (gx#stx-pair? _%hd156639156737%_)) + (let ((_%e156641156742%_ (let () (declare (not safe)) (gx#stx-e - _%hd156533156631%_)))) - (let ((_%hd156536156639%_ + _%hd156639156737%_)))) + (let ((_%hd156642156745%_ (let () (declare (not safe)) - (##car _%e156535156636%_))) - (_%tl156537156641%_ + (##car _%e156641156742%_))) + (_%tl156643156747%_ (let () (declare (not safe)) - (##cdr _%e156535156636%_)))) + (##cdr _%e156641156742%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156537156641%_)) + _%tl156643156747%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156534156633%_)) - (let ((_%e156538156644%_ + _%tl156640156739%_)) + (let ((_%e156644156750%_ (let () (declare (not safe)) (gx#stx-e - _%tl156534156633%_)))) - (let ((_%hd156539156647%_ + _%tl156640156739%_)))) + (let ((_%hd156645156753%_ (let () (declare (not safe)) - (##car _%e156538156644%_))) - (_%tl156540156649%_ + (##car _%e156644156750%_))) + (_%tl156646156755%_ (let () (declare (not safe)) - (##cdr _%e156538156644%_)))) + (##cdr _%e156644156750%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156540156649%_)) + _%tl156646156755%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-null? _%tl156531156625%_)) + (gx#stx-null? _%tl156637156731%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156528156617%_)) - (let ((_%e156541156652%_ + (gx#stx-pair? _%tl156634156723%_)) + (let ((_%e156647156758%_ (let () (declare (not safe)) - (gx#stx-e _%tl156528156617%_)))) - (let ((_%hd156542156655%_ + (gx#stx-e _%tl156634156723%_)))) + (let ((_%hd156648156761%_ (let () (declare (not safe)) - (##car _%e156541156652%_))) - (_%tl156543156657%_ + (##car _%e156647156758%_))) + (_%tl156649156763%_ (let () (declare (not safe)) - (##cdr _%e156541156652%_)))) + (##cdr _%e156647156758%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156543156657%_)) + (gx#stx-null? _%tl156649156763%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156522156601%_)) + (gx#stx-null? _%tl156628156707%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156513156577%_)) + (gx#stx-null? _%tl156619156683%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156510156569%_)) - (let ((_%e156544156660%_ + _%tl156616156675%_)) + (let ((_%e156650156766%_ (let () (declare (not safe)) (gx#stx-e - _%tl156510156569%_)))) - (let ((_%hd156545156663%_ + _%tl156616156675%_)))) + (let ((_%hd156651156769%_ (let () (declare (not safe)) - (##car _%e156544156660%_))) - (_%tl156546156665%_ + (##car _%e156650156766%_))) + (_%tl156652156771%_ (let () (declare (not safe)) - (##cdr _%e156544156660%_)))) + (##cdr _%e156650156766%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156546156665%_)) - ((lambda (_%L156668%_ + _%tl156652156771%_)) + ((lambda (_%L156774%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L156669%_ - _%L156670%_ - _%L156671%_ - _%L156672%_) - (let* ((_%get-kws-id156712%_ - (let ((__tmp171316 + _%L156775%_ + _%L156776%_ + _%L156777%_ + _%L156778%_) + (let* ((_%get-kws-id156818%_ + (let ((__tmp171422 (let () (declare (not safe)) - (gx#stx-e _%L156482%_))) - (__tmp171315 - (_%kw-lambda-dispatch-name156334%_ + (gx#stx-e _%L156588%_))) + (__tmp171421 + (_%kw-lambda-dispatch-name156440%_ (let () (declare (not safe)) - (gx#stx-e _%L156672%_)) + (gx#stx-e _%L156778%_)) '"@"))) (declare (not safe)) - (make-symbol__1 __tmp171316 '"__" __tmp171315))) - (_%get-kws-id156714%_ - (let ((__tmp171317 + (make-symbol__1 __tmp171422 '"__" __tmp171421))) + (_%get-kws-id156820%_ + (let ((__tmp171423 (let () (declare (not safe)) - (gx#stx-source _%stx156330%_)))) + (gx#stx-source _%stx156436%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id156712%_ - __tmp171317))) - (_%main-id156716%_ - (let ((__tmp171319 + _%get-kws-id156818%_ + __tmp171423))) + (_%main-id156822%_ + (let ((__tmp171425 (let () (declare (not safe)) - (gx#stx-e _%L156482%_))) - (__tmp171318 - (_%kw-lambda-dispatch-name156334%_ + (gx#stx-e _%L156588%_))) + (__tmp171424 + (_%kw-lambda-dispatch-name156440%_ (let () (declare (not safe)) - (gx#stx-e _%L156671%_)) + (gx#stx-e _%L156777%_)) '"%"))) (declare (not safe)) - (make-symbol__1 __tmp171319 '"__" __tmp171318))) - (_%main-id156718%_ - (let ((__tmp171320 + (make-symbol__1 __tmp171425 '"__" __tmp171424))) + (_%main-id156824%_ + (let ((__tmp171426 (let () (declare (not safe)) - (gx#stx-source _%stx156330%_)))) + (gx#stx-source _%stx156436%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id156716%_ - __tmp171320))) - (_%_156720%_ + _%main-id156822%_ + __tmp171426))) + (_%_156826%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%get-kws-id156714%_))) - (_%_156722%_ + (gx#core-bind-runtime!__0 _%get-kws-id156820%_))) + (_%_156828%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%main-id156718%_))) - (_%new-kw-dispatch156724%_ + (gx#core-bind-runtime!__0 _%main-id156824%_))) + (_%new-kw-dispatch156830%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156672%_ - _%get-kws-id156714%_ - _%L156668%_))) - (_%new-get-kws156726%_ + _%L156778%_ + _%get-kws-id156820%_ + _%L156774%_))) + (_%new-get-kws156832%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156671%_ - _%main-id156718%_ - _%L156669%_)))) - (let ((__tmp171323 + _%L156777%_ + _%main-id156824%_ + _%L156775%_)))) + (let ((__tmp171429 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156482%_))) - (__tmp171322 + (gxc#identifier-symbol _%L156588%_))) + (__tmp171428 (let () (declare (not safe)) - (gxc#identifier-symbol _%get-kws-id156714%_))) - (__tmp171321 + (gxc#identifier-symbol _%get-kws-id156820%_))) + (__tmp171427 (let () (declare (not safe)) - (gxc#identifier-symbol _%main-id156718%_)))) + (gxc#identifier-symbol _%main-id156824%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171323 + __tmp171429 '" => " - __tmp171322 + __tmp171428 '" => " - __tmp171321)) - (let ((__tmp171324 + __tmp171427)) + (let ((__tmp171430 (cons '%#begin (cons (gxc#lift-top-lambda-define-values% - _%self156329%_ - (let ((__tmp171325 + _%self156435%_ + (let ((__tmp171431 (cons '%#define-values - (cons (cons _%main-id156718%_ + (cons (cons _%main-id156824%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L156670%_ '()))))) + (cons _%L156776%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171325 - _%stx156330%_))) - (cons (let ((__tmp171326 + __tmp171431 + _%stx156436%_))) + (cons (let ((__tmp171432 (cons '%#define-values - (cons (cons _%get-kws-id156714%_ + (cons (cons _%get-kws-id156820%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-get-kws156726%_ '()))))) + (cons _%new-get-kws156832%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171326 - _%stx156330%_)) - (cons (let ((__tmp171327 + __tmp171432 + _%stx156436%_)) + (cons (let ((__tmp171433 (cons '%#define-values - (cons (cons _%L156482%_ + (cons (cons _%L156588%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%new-kw-dispatch156724%_ '()))))) + (cons _%new-kw-dispatch156830%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171327 - _%stx156330%_)) + __tmp171433 + _%stx156436%_)) '())))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171324 _%stx156330%_)))) - _%hd156545156663%_ - _%hd156542156655%_ - _%hd156539156647%_ - _%hd156536156639%_ - _%hd156518156591%_) - (_%g156498156551%_ _%g156499156554%_)))) + (gxc#xform-wrap-source __tmp171430 _%stx156436%_)))) + _%hd156651156769%_ + _%hd156648156761%_ + _%hd156645156753%_ + _%hd156642156745%_ + _%hd156624156697%_) + (_%g156604156657%_ _%g156605156660%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156498156551%_ - _%g156499156554%_)) - (_%g156498156551%_ - _%g156499156554%_)) - (_%g156498156551%_ _%g156499156554%_)) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)) - (_%g156498156551%_ _%g156499156554%_)) - (_%g156498156551%_ _%g156499156554%_)))) + (_%g156604156657%_ + _%g156605156660%_)) + (_%g156604156657%_ + _%g156605156660%_)) + (_%g156604156657%_ _%g156605156660%_)) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)) + (_%g156604156657%_ _%g156605156660%_)) + (_%g156604156657%_ _%g156605156660%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156498156551%_ - _%g156499156554%_)) - (_%g156498156551%_ - _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) + (_%g156604156657%_ + _%g156605156660%_)) + (_%g156604156657%_ + _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156498156551%_ - _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_)))) + (_%g156604156657%_ + _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156498156551%_ - _%g156499156554%_)))) - (_%g156498156551%_ - _%g156499156554%_)))) - (_%g156498156551%_ _%g156499156554%_))))) - (_%g156497156729%_ _%L156481%_)))) - (_%__kont170521170522%_ - (lambda (_%L156427%_ _%L156428%_) - (let ((__tmp171328 + (_%g156604156657%_ + _%g156605156660%_)))) + (_%g156604156657%_ + _%g156605156660%_)))) + (_%g156604156657%_ _%g156605156660%_))))) + (_%g156603156835%_ _%L156587%_)))) + (_%__kont170627170628%_ + (lambda (_%L156533%_ _%L156534%_) + (let ((__tmp171434 (cons '%#define-values - (cons _%L156428%_ + (cons _%L156534%_ (cons (let () (declare (not safe)) (gxc#compile-e__1 - _%self156329%_ - _%L156427%_)) + _%self156435%_ + _%L156533%_)) '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171328 _%stx156330%_))))) - (let* ((_%__match170606170607%_ - (lambda (_%e156371156449%_ - _%hd156372156452%_ - _%tl156373156454%_ - _%e156374156457%_ - _%hd156375156460%_ - _%tl156376156462%_ - _%e156377156465%_ - _%hd156378156468%_ - _%tl156379156470%_ - _%e156380156473%_ - _%hd156381156476%_ - _%tl156382156478%_) - (let ((_%L156481%_ _%hd156381156476%_) - (_%L156482%_ _%hd156378156468%_)) + (gxc#xform-wrap-source __tmp171434 _%stx156436%_))))) + (let* ((_%__match170712170713%_ + (lambda (_%e156477156555%_ + _%hd156478156558%_ + _%tl156479156560%_ + _%e156480156563%_ + _%hd156481156566%_ + _%tl156482156568%_ + _%e156483156571%_ + _%hd156484156574%_ + _%tl156485156576%_ + _%e156486156579%_ + _%hd156487156582%_ + _%tl156488156584%_) + (let ((_%L156587%_ _%hd156487156582%_) + (_%L156588%_ _%hd156484156574%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156482%_)) - (gxc#kw-lambda-expr? _%L156481%_)) - (_%__kont170519170520%_ _%L156481%_ _%L156482%_) - (_%__kont170521170522%_ - _%hd156381156476%_ - _%hd156375156460%_))))) - (_%__match170578170579%_ - (lambda (_%e156357156737%_ - _%hd156358156740%_ - _%tl156359156742%_ - _%e156360156745%_ - _%hd156361156748%_ - _%tl156362156750%_ - _%e156363156753%_ - _%hd156364156756%_ - _%tl156365156758%_ - _%e156366156761%_ - _%hd156367156764%_ - _%tl156368156766%_) - (let ((_%L156769%_ _%hd156367156764%_) - (_%L156770%_ _%hd156364156756%_)) + (gx#identifier? _%L156588%_)) + (gxc#kw-lambda-expr? _%L156587%_)) + (_%__kont170625170626%_ _%L156587%_ _%L156588%_) + (_%__kont170627170628%_ + _%hd156487156582%_ + _%hd156481156566%_))))) + (_%__match170684170685%_ + (lambda (_%e156463156843%_ + _%hd156464156846%_ + _%tl156465156848%_ + _%e156466156851%_ + _%hd156467156854%_ + _%tl156468156856%_ + _%e156469156859%_ + _%hd156470156862%_ + _%tl156471156864%_ + _%e156472156867%_ + _%hd156473156870%_ + _%tl156474156872%_) + (let ((_%L156875%_ _%hd156473156870%_) + (_%L156876%_ _%hd156470156862%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156770%_)) - (gxc#opt-lambda-expr? _%L156769%_)) - (_%__kont170517170518%_ _%L156769%_ _%L156770%_) - (_%__match170606170607%_ - _%e156357156737%_ - _%hd156358156740%_ - _%tl156359156742%_ - _%e156360156745%_ - _%hd156361156748%_ - _%tl156362156750%_ - _%e156363156753%_ - _%hd156364156756%_ - _%tl156365156758%_ - _%e156366156761%_ - _%hd156367156764%_ - _%tl156368156766%_))))) - (_%__match170550170551%_ - (lambda (_%e156343156920%_ - _%hd156344156923%_ - _%tl156345156925%_ - _%e156346156928%_ - _%hd156347156931%_ - _%tl156348156933%_ - _%e156349156936%_ - _%hd156350156939%_ - _%tl156351156941%_ - _%e156352156944%_ - _%hd156353156947%_ - _%tl156354156949%_) - (let ((_%L156952%_ _%hd156353156947%_) - (_%L156953%_ _%hd156350156939%_)) + (gx#identifier? _%L156876%_)) + (gxc#opt-lambda-expr? _%L156875%_)) + (_%__kont170623170624%_ _%L156875%_ _%L156876%_) + (_%__match170712170713%_ + _%e156463156843%_ + _%hd156464156846%_ + _%tl156465156848%_ + _%e156466156851%_ + _%hd156467156854%_ + _%tl156468156856%_ + _%e156469156859%_ + _%hd156470156862%_ + _%tl156471156864%_ + _%e156472156867%_ + _%hd156473156870%_ + _%tl156474156872%_))))) + (_%__match170656170657%_ + (lambda (_%e156449157026%_ + _%hd156450157029%_ + _%tl156451157031%_ + _%e156452157034%_ + _%hd156453157037%_ + _%tl156454157039%_ + _%e156455157042%_ + _%hd156456157045%_ + _%tl156457157047%_ + _%e156458157050%_ + _%hd156459157053%_ + _%tl156460157055%_) + (let ((_%L157058%_ _%hd156459157053%_) + (_%L157059%_ _%hd156456157045%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L156953%_)) - (gxc#case-lambda-expr? _%L156952%_)) - (_%__kont170515170516%_ _%L156952%_ _%L156953%_) - (_%__match170578170579%_ - _%e156343156920%_ - _%hd156344156923%_ - _%tl156345156925%_ - _%e156346156928%_ - _%hd156347156931%_ - _%tl156348156933%_ - _%e156349156936%_ - _%hd156350156939%_ - _%tl156351156941%_ - _%e156352156944%_ - _%hd156353156947%_ - _%tl156354156949%_)))))) + (gx#identifier? _%L157059%_)) + (gxc#case-lambda-expr? _%L157058%_)) + (_%__kont170621170622%_ _%L157058%_ _%L157059%_) + (_%__match170684170685%_ + _%e156449157026%_ + _%hd156450157029%_ + _%tl156451157031%_ + _%e156452157034%_ + _%hd156453157037%_ + _%tl156454157039%_ + _%e156455157042%_ + _%hd156456157045%_ + _%tl156457157047%_ + _%e156458157050%_ + _%hd156459157053%_ + _%tl156460157055%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170513170514%_)) - (let ((_%e156343156920%_ + (gx#stx-pair? _%__stx170619170620%_)) + (let ((_%e156449157026%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170513170514%_)))) - (let ((_%tl156345156925%_ + (gx#stx-e _%__stx170619170620%_)))) + (let ((_%tl156451157031%_ (let () (declare (not safe)) - (##cdr _%e156343156920%_))) - (_%hd156344156923%_ + (##cdr _%e156449157026%_))) + (_%hd156450157029%_ (let () (declare (not safe)) - (##car _%e156343156920%_)))) + (##car _%e156449157026%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156345156925%_)) - (let ((_%e156346156928%_ + (gx#stx-pair? _%tl156451157031%_)) + (let ((_%e156452157034%_ (let () (declare (not safe)) - (gx#stx-e _%tl156345156925%_)))) - (let ((_%tl156348156933%_ + (gx#stx-e _%tl156451157031%_)))) + (let ((_%tl156454157039%_ (let () (declare (not safe)) - (##cdr _%e156346156928%_))) - (_%hd156347156931%_ + (##cdr _%e156452157034%_))) + (_%hd156453157037%_ (let () (declare (not safe)) - (##car _%e156346156928%_)))) + (##car _%e156452157034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156347156931%_)) - (let ((_%e156349156936%_ + (gx#stx-pair? _%hd156453157037%_)) + (let ((_%e156455157042%_ (let () (declare (not safe)) - (gx#stx-e _%hd156347156931%_)))) - (let ((_%tl156351156941%_ + (gx#stx-e _%hd156453157037%_)))) + (let ((_%tl156457157047%_ (let () (declare (not safe)) - (##cdr _%e156349156936%_))) - (_%hd156350156939%_ + (##cdr _%e156455157042%_))) + (_%hd156456157045%_ (let () (declare (not safe)) - (##car _%e156349156936%_)))) + (##car _%e156455157042%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156351156941%_)) + _%tl156457157047%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156348156933%_)) - (let ((_%e156352156944%_ + _%tl156454157039%_)) + (let ((_%e156458157050%_ (let () (declare (not safe)) (gx#stx-e - _%tl156348156933%_)))) - (let ((_%tl156354156949%_ + _%tl156454157039%_)))) + (let ((_%tl156460157055%_ (let () (declare (not safe)) - (##cdr _%e156352156944%_))) - (_%hd156353156947%_ + (##cdr _%e156458157050%_))) + (_%hd156459157053%_ (let () (declare (not safe)) - (##car _%e156352156944%_)))) + (##car _%e156458157050%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156354156949%_)) - (_%__match170550170551%_ - _%e156343156920%_ - _%hd156344156923%_ - _%tl156345156925%_ - _%e156346156928%_ - _%hd156347156931%_ - _%tl156348156933%_ - _%e156349156936%_ - _%hd156350156939%_ - _%tl156351156941%_ - _%e156352156944%_ - _%hd156353156947%_ - _%tl156354156949%_) + _%tl156460157055%_)) + (_%__match170656170657%_ + _%e156449157026%_ + _%hd156450157029%_ + _%tl156451157031%_ + _%e156452157034%_ + _%hd156453157037%_ + _%tl156454157039%_ + _%e156455157042%_ + _%hd156456157045%_ + _%tl156457157047%_ + _%e156458157050%_ + _%hd156459157053%_ + _%tl156460157055%_) (let () (declare (not safe)) - (_%g156339156398%_))))) + (_%g156445156504%_))))) (let () (declare (not safe)) - (_%g156339156398%_))) + (_%g156445156504%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl156348156933%_)) - (let ((_%e156391156419%_ + _%tl156454157039%_)) + (let ((_%e156497156525%_ (let () (declare (not safe)) (gx#stx-e - _%tl156348156933%_)))) - (let ((_%tl156393156424%_ + _%tl156454157039%_)))) + (let ((_%tl156499156530%_ (let () (declare (not safe)) - (##cdr _%e156391156419%_))) - (_%hd156392156422%_ + (##cdr _%e156497156525%_))) + (_%hd156498156528%_ (let () (declare (not safe)) - (##car _%e156391156419%_)))) + (##car _%e156497156525%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156393156424%_)) - (_%__kont170521170522%_ - _%hd156392156422%_ - _%hd156347156931%_) + _%tl156499156530%_)) + (_%__kont170627170628%_ + _%hd156498156528%_ + _%hd156453157037%_) (let () (declare (not safe)) - (_%g156339156398%_))))) + (_%g156445156504%_))))) (let () (declare (not safe)) - (_%g156339156398%_)))))) + (_%g156445156504%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156348156933%_)) - (let ((_%e156391156419%_ + (gx#stx-pair? _%tl156454157039%_)) + (let ((_%e156497156525%_ (let () (declare (not safe)) (gx#stx-e - _%tl156348156933%_)))) - (let ((_%tl156393156424%_ + _%tl156454157039%_)))) + (let ((_%tl156499156530%_ (let () (declare (not safe)) - (##cdr _%e156391156419%_))) - (_%hd156392156422%_ + (##cdr _%e156497156525%_))) + (_%hd156498156528%_ (let () (declare (not safe)) - (##car _%e156391156419%_)))) + (##car _%e156497156525%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156393156424%_)) - (_%__kont170521170522%_ - _%hd156392156422%_ - _%hd156347156931%_) + _%tl156499156530%_)) + (_%__kont170627170628%_ + _%hd156498156528%_ + _%hd156453157037%_) (let () (declare (not safe)) - (_%g156339156398%_))))) + (_%g156445156504%_))))) (let () (declare (not safe)) - (_%g156339156398%_)))))) + (_%g156445156504%_)))))) (let () (declare (not safe)) - (_%g156339156398%_))))) - (let () (declare (not safe)) (_%g156339156398%_))))))))) + (_%g156445156504%_))))) + (let () (declare (not safe)) (_%g156445156504%_))))))))) (define gxc#lift-top-lambda-let-values% - (lambda (_%self155256%_ _%stx155257%_) - (letrec* ((_%bind-e__167992167993%_ - (lambda (_%id156313%_ _%expr156314%_ _%compile?156315%_) - (cons (cons _%id156313%_ '()) - (cons (if _%compile?156315%_ + (lambda (_%self155362%_ _%stx155363%_) + (letrec* ((_%bind-e__168098168099%_ + (lambda (_%id156419%_ _%expr156420%_ _%compile?156421%_) + (cons (cons _%id156419%_ '()) + (cons (if _%compile?156421%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155256%_ - _%expr156314%_)) - _%expr156314%_) + _%self155362%_ + _%expr156420%_)) + _%expr156420%_) '())))) - (_%bind-e__0__167994167995%_ - (lambda (_%id156320%_ _%expr156321%_) - (let ((_%compile?156323%_ '#t)) - (_%bind-e__167992167993%_ - _%id156320%_ - _%expr156321%_ - _%compile?156323%_)))) - (_%bind-e155259%_ - (lambda _g171330_ - (let ((_g171329_ + (_%bind-e__0__168100168101%_ + (lambda (_%id156426%_ _%expr156427%_) + (let ((_%compile?156429%_ '#t)) + (_%bind-e__168098168099%_ + _%id156426%_ + _%expr156427%_ + _%compile?156429%_)))) + (_%bind-e155365%_ + (lambda _g171436_ + (let ((_g171435_ (let () (declare (not safe)) - (##length _g171330_)))) - (cond ((let () (declare (not safe)) (##fx= _g171329_ 2)) - (apply _%bind-e__0__167994167995%_ _g171330_)) - ((let () (declare (not safe)) (##fx= _g171329_ 3)) - (apply _%bind-e__167992167993%_ _g171330_)) + (##length _g171436_)))) + (cond ((let () (declare (not safe)) (##fx= _g171435_ 2)) + (apply _%bind-e__0__168100168101%_ _g171436_)) + ((let () (declare (not safe)) (##fx= _g171435_ 3)) + (apply _%bind-e__168098168099%_ _g171436_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171330_)))))) - (_%compile-bindings155260%_ - (lambda (_%bindings155895%_) - (let _%lp155897%_ ((_%rest155899%_ _%bindings155895%_) - (_%lift1155900%_ '()) - (_%lift2155901%_ '()) - (_%bind155902%_ '())) - (let* ((_%rest155903155911%_ _%rest155899%_) - (_%else155905155919%_ + _g171436_)))))) + (_%compile-bindings155366%_ + (lambda (_%bindings156001%_) + (let _%lp156003%_ ((_%rest156005%_ _%bindings156001%_) + (_%lift1156006%_ '()) + (_%lift2156007%_ '()) + (_%bind156008%_ '())) + (let* ((_%rest156009156017%_ _%rest156005%_) + (_%else156011156025%_ (lambda () - (values (reverse _%lift1155900%_) - (reverse _%lift2155901%_) - (reverse _%bind155902%_)))) - (_%K155907156300%_ - (lambda (_%rest155922%_ _%hd155923%_) - (let* ((_%__stx170649170650%_ _%hd155923%_) - (_%g155927155963%_ + (values (reverse _%lift1156006%_) + (reverse _%lift2156007%_) + (reverse _%bind156008%_)))) + (_%K156013156406%_ + (lambda (_%rest156028%_ _%hd156029%_) + (let* ((_%__stx170755170756%_ _%hd156029%_) + (_%g156033156069%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170649170650%_))))) - (let ((_%__kont170651170652%_ - (lambda (_%L156206%_ _%L156207%_) - (let* ((_%__stx170629170630%_ - _%L156206%_) - (_%g156222156236%_ + _%__stx170755170756%_))))) + (let ((_%__kont170757170758%_ + (lambda (_%L156312%_ _%L156313%_) + (let* ((_%__stx170735170736%_ + _%L156312%_) + (_%g156328156342%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170629170630%_))))) - (let ((_%__kont170631170632%_ - (lambda (_%L156285%_) - (_%lp155897%_ - _%rest155922%_ - _%lift1155900%_ - _%lift2155901%_ - (cons (_%bind-e__167992167993%_ - _%L156207%_ - _%L156206%_ + _%__stx170735170736%_))))) + (let ((_%__kont170737170738%_ + (lambda (_%L156391%_) + (_%lp156003%_ + _%rest156028%_ + _%lift1156006%_ + _%lift2156007%_ + (cons (_%bind-e__168098168099%_ + _%L156313%_ + _%L156312%_ '#f) - _%bind155902%_)))) - (_%__kont170633170634%_ - (lambda (_%L156249%_) - (let ((_g171331_ + _%bind156008%_)))) + (_%__kont170739170740%_ + (lambda (_%L156355%_) + (let ((_g171437_ (gxc#lift-case-lambda-clauses__% - _%stx155257%_ - _%L156207%_ - _%L156249%_ + _%stx155363%_ + _%L156313%_ + _%L156355%_ '#t))) (begin - (let ((_g171332_ + (let ((_g171438_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171331_) - (##vector-length _g171331_) + (if (##values? _g171437_) + (##values-length _g171437_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171332_ 3))) - (error "Context expects 3 values" _g171332_))) - (let ((_%ids156259%_ + (##fx= _g171438_ 3))) + (error "Context expects 3 values" _g171438_))) + (let ((_%ids156365%_ (let () (declare (not safe)) - (##vector-ref _g171331_ 0))) - (_%impls156260%_ + (##values-ref _g171437_ 0))) + (_%impls156366%_ (let () (declare (not safe)) - (##vector-ref _g171331_ 1))) - (_%clauses156261%_ + (##values-ref _g171437_ 1))) + (_%clauses156367%_ (let () (declare (not safe)) - (##vector-ref _g171331_ 2)))) - (let* ((_%_156263%_ - (for-each gx#core-bind-runtime! _%ids156259%_)) - (_%xbind156265%_ - (map _%bind-e155259%_ - _%ids156259%_ - _%impls156260%_)) - (_%expr*156267%_ - (let ((__tmp171334 - (cons '%#case-lambda _%clauses156261%_)) - (__tmp171333 + (##values-ref _g171437_ 2)))) + (let* ((_%_156369%_ + (for-each gx#core-bind-runtime! _%ids156365%_)) + (_%xbind156371%_ + (map _%bind-e155365%_ + _%ids156365%_ + _%impls156366%_)) + (_%expr*156373%_ + (let ((__tmp171440 + (cons '%#case-lambda _%clauses156367%_)) + (__tmp171439 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -21586,1408 +21586,1408 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171334 - __tmp171333))) - (_%bind*156269%_ - (_%bind-e__167992167993%_ - _%L156207%_ - _%expr*156267%_ + __tmp171440 + __tmp171439))) + (_%bind*156375%_ + (_%bind-e__168098168099%_ + _%L156313%_ + _%expr*156373%_ '#f))) - (let ((__tmp171336 + (let ((__tmp171442 (let () (declare (not safe)) - (gxc#identifier-symbol _%L156207%_))) - (__tmp171335 - (map gxc#identifier-symbol _%ids156259%_))) + (gxc#identifier-symbol _%L156313%_))) + (__tmp171441 + (map gxc#identifier-symbol _%ids156365%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171336 + __tmp171442 '" => " - __tmp171335)) - (_%lp155897%_ - _%rest155922%_ - _%lift1155900%_ + __tmp171441)) + (_%lp156003%_ + _%rest156028%_ + _%lift1156006%_ (let () (declare (not safe)) - (__foldl1 cons _%lift2155901%_ _%xbind156265%_)) - (cons _%bind*156269%_ _%bind155902%_))))))))) + (__foldl1 cons _%lift2156007%_ _%xbind156371%_)) + (cons _%bind*156375%_ _%bind156008%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170640170641%_ - (lambda (_%e156225156277%_ - _%hd156226156280%_ - _%tl156227156282%_) - (let ((_%L156285%_ - _%tl156227156282%_)) + (let ((_%__match170746170747%_ + (lambda (_%e156331156383%_ + _%hd156332156386%_ + _%tl156333156388%_) + (let ((_%L156391%_ + _%tl156333156388%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L156285%_)) - (_%__kont170631170632%_ _%L156285%_) - (_%__kont170633170634%_ _%tl156227156282%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L156391%_)) + (_%__kont170737170738%_ _%L156391%_) + (_%__kont170739170740%_ _%tl156333156388%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170629170630%_)) - (let ((_%e156225156277%_ + _%__stx170735170736%_)) + (let ((_%e156331156383%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170629170630%_)))) - (let ((_%tl156227156282%_ - (let () (declare (not safe)) (##cdr _%e156225156277%_))) - (_%hd156226156280%_ + (gx#stx-e _%__stx170735170736%_)))) + (let ((_%tl156333156388%_ + (let () (declare (not safe)) (##cdr _%e156331156383%_))) + (_%hd156332156386%_ (let () (declare (not safe)) - (##car _%e156225156277%_)))) - (_%__match170640170641%_ - _%e156225156277%_ - _%hd156226156280%_ - _%tl156227156282%_))) - (let () (declare (not safe)) (_%g156222156236%_)))))))) + (##car _%e156331156383%_)))) + (_%__match170746170747%_ + _%e156331156383%_ + _%hd156332156386%_ + _%tl156333156388%_))) + (let () (declare (not safe)) (_%g156328156342%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170653170654%_ - (lambda (_%L156033%_ _%L156034%_) - (let* ((_%g156048156078%_ - (lambda (_%g156049156075%_) + (_%__kont170759170760%_ + (lambda (_%L156139%_ _%L156140%_) + (let* ((_%g156154156184%_ + (lambda (_%g156155156181%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g156049156075%_)))) - (_%g156047156174%_ - (lambda (_%g156049156081%_) + _%g156155156181%_)))) + (_%g156153156280%_ + (lambda (_%g156155156187%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g156049156081%_)) - (let ((_%e156053156083%_ + _%g156155156187%_)) + (let ((_%e156159156189%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g156049156081%_)))) - (let ((_%hd156054156086%_ + (gx#stx-e _%g156155156187%_)))) + (let ((_%hd156160156192%_ (let () (declare (not safe)) - (##car _%e156053156083%_))) - (_%tl156055156088%_ + (##car _%e156159156189%_))) + (_%tl156161156194%_ (let () (declare (not safe)) - (##cdr _%e156053156083%_)))) + (##cdr _%e156159156189%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156055156088%_)) - (let ((_%e156056156091%_ + (gx#stx-pair? _%tl156161156194%_)) + (let ((_%e156162156197%_ (let () (declare (not safe)) - (gx#stx-e _%tl156055156088%_)))) - (let ((_%hd156057156094%_ + (gx#stx-e _%tl156161156194%_)))) + (let ((_%hd156163156200%_ (let () (declare (not safe)) - (##car _%e156056156091%_))) - (_%tl156058156096%_ + (##car _%e156162156197%_))) + (_%tl156164156202%_ (let () (declare (not safe)) - (##cdr _%e156056156091%_)))) + (##cdr _%e156162156197%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156057156094%_)) - (let ((_%e156059156099%_ + (gx#stx-pair? _%hd156163156200%_)) + (let ((_%e156165156205%_ (let () (declare (not safe)) - (gx#stx-e _%hd156057156094%_)))) - (let ((_%hd156060156102%_ + (gx#stx-e _%hd156163156200%_)))) + (let ((_%hd156166156208%_ (let () (declare (not safe)) - (##car _%e156059156099%_))) - (_%tl156061156104%_ + (##car _%e156165156205%_))) + (_%tl156167156210%_ (let () (declare (not safe)) - (##cdr _%e156059156099%_)))) + (##cdr _%e156165156205%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd156060156102%_)) - (let ((_%e156062156107%_ + (gx#stx-pair? _%hd156166156208%_)) + (let ((_%e156168156213%_ (let () (declare (not safe)) (gx#stx-e - _%hd156060156102%_)))) - (let ((_%hd156063156110%_ + _%hd156166156208%_)))) + (let ((_%hd156169156216%_ (let () (declare (not safe)) - (##car _%e156062156107%_))) - (_%tl156064156112%_ + (##car _%e156168156213%_))) + (_%tl156170156218%_ (let () (declare (not safe)) - (##cdr _%e156062156107%_)))) + (##cdr _%e156168156213%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd156063156110%_)) - (let ((_%e156065156115%_ + _%hd156169156216%_)) + (let ((_%e156171156221%_ (let () (declare (not safe)) (gx#stx-e - _%hd156063156110%_)))) - (let ((_%hd156066156118%_ + _%hd156169156216%_)))) + (let ((_%hd156172156224%_ (let () (declare (not safe)) - (##car _%e156065156115%_))) - (_%tl156067156120%_ + (##car _%e156171156221%_))) + (_%tl156173156226%_ (let () (declare (not safe)) - (##cdr _%e156065156115%_)))) + (##cdr _%e156171156221%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156067156120%_)) + _%tl156173156226%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl156064156112%_)) - (let ((_%e156068156123%_ + (gx#stx-pair? _%tl156170156218%_)) + (let ((_%e156174156229%_ (let () (declare (not safe)) - (gx#stx-e _%tl156064156112%_)))) - (let ((_%hd156069156126%_ + (gx#stx-e _%tl156170156218%_)))) + (let ((_%hd156175156232%_ (let () (declare (not safe)) - (##car _%e156068156123%_))) - (_%tl156070156128%_ + (##car _%e156174156229%_))) + (_%tl156176156234%_ (let () (declare (not safe)) - (##cdr _%e156068156123%_)))) + (##cdr _%e156174156229%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156070156128%_)) + (gx#stx-null? _%tl156176156234%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl156061156104%_)) + (gx#stx-null? _%tl156167156210%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl156058156096%_)) - (let ((_%e156071156131%_ + (gx#stx-pair? _%tl156164156202%_)) + (let ((_%e156177156237%_ (let () (declare (not safe)) - (gx#stx-e _%tl156058156096%_)))) - (let ((_%hd156072156134%_ + (gx#stx-e _%tl156164156202%_)))) + (let ((_%hd156178156240%_ (let () (declare (not safe)) - (##car _%e156071156131%_))) - (_%tl156073156136%_ + (##car _%e156177156237%_))) + (_%tl156179156242%_ (let () (declare (not safe)) - (##cdr _%e156071156131%_)))) + (##cdr _%e156177156237%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl156073156136%_)) - ((lambda (_%L156139%_ - _%L156140%_ - _%L156141%_) - (let* ((_%lambda-id156165%_ - (let ((__tmp171338 + _%tl156179156242%_)) + ((lambda (_%L156245%_ + _%L156246%_ + _%L156247%_) + (let* ((_%lambda-id156271%_ + (let ((__tmp171444 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L156034%_))) - (__tmp171337 + (gx#stx-e _%L156140%_))) + (__tmp171443 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171338 __tmp171337))) - (_%lambda-id156167%_ - (let ((__tmp171339 + (make-symbol__1 __tmp171444 __tmp171443))) + (_%lambda-id156273%_ + (let ((__tmp171445 (let () (declare (not safe)) - (gx#stx-source _%stx155257%_)))) + (gx#stx-source _%stx155363%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id156165%_ __tmp171339))) - (_%_156169%_ + (gx#core-quote-syntax__1 _%lambda-id156271%_ __tmp171445))) + (_%_156275%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id156167%_))) - (_%new-case-lambda-expr156171%_ + (gx#core-bind-runtime!__0 _%lambda-id156273%_))) + (_%new-case-lambda-expr156277%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L156141%_ - _%lambda-id156167%_ - _%L156139%_)))) + _%L156247%_ + _%lambda-id156273%_ + _%L156245%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171341 + (let ((__tmp171447 (let () (declare (not safe)) (gxc#identifier-symbol - _%L156034%_))) - (__tmp171340 + _%L156140%_))) + (__tmp171446 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id156167%_)))) + _%lambda-id156273%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171341 + __tmp171447 '" => " - __tmp171340)) - (_%lp155897%_ - (cons (_%bind-e__167992167993%_ - _%L156034%_ - _%new-case-lambda-expr156171%_ + __tmp171446)) + (_%lp156003%_ + (cons (_%bind-e__168098168099%_ + _%L156140%_ + _%new-case-lambda-expr156277%_ '#f) - _%rest155922%_) - (cons (_%bind-e__0__167994167995%_ - _%lambda-id156167%_ - _%L156140%_) - _%lift1155900%_) - _%lift2155901%_ - _%bind155902%_))) - _%hd156072156134%_ - _%hd156069156126%_ - _%hd156066156118%_) - (_%g156048156078%_ - _%g156049156081%_)))) - (_%g156048156078%_ _%g156049156081%_)) - (_%g156048156078%_ _%g156049156081%_)) - (_%g156048156078%_ _%g156049156081%_)))) - (_%g156048156078%_ _%g156049156081%_)) - (_%g156048156078%_ _%g156049156081%_)))) + _%rest156028%_) + (cons (_%bind-e__0__168100168101%_ + _%lambda-id156273%_ + _%L156246%_) + _%lift1156006%_) + _%lift2156007%_ + _%bind156008%_))) + _%hd156178156240%_ + _%hd156175156232%_ + _%hd156172156224%_) + (_%g156154156184%_ + _%g156155156187%_)))) + (_%g156154156184%_ _%g156155156187%_)) + (_%g156154156184%_ _%g156155156187%_)) + (_%g156154156184%_ _%g156155156187%_)))) + (_%g156154156184%_ _%g156155156187%_)) + (_%g156154156184%_ _%g156155156187%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156048156078%_ - _%g156049156081%_)))) - (_%g156048156078%_ - _%g156049156081%_)))) - (_%g156048156078%_ _%g156049156081%_)))) - (_%g156048156078%_ _%g156049156081%_)))) - (_%g156048156078%_ _%g156049156081%_))))) + (_%g156154156184%_ + _%g156155156187%_)))) + (_%g156154156184%_ + _%g156155156187%_)))) + (_%g156154156184%_ _%g156155156187%_)))) + (_%g156154156184%_ _%g156155156187%_)))) + (_%g156154156184%_ _%g156155156187%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g156047156174%_ - _%L156033%_)))) - (_%__kont170655170656%_ - (lambda (_%L155984%_ _%L155985%_) - (_%lp155897%_ - _%rest155922%_ - _%lift1155900%_ - _%lift2155901%_ - (cons (cons _%L155985%_ + (_%g156153156280%_ + _%L156139%_)))) + (_%__kont170761170762%_ + (lambda (_%L156090%_ _%L156091%_) + (_%lp156003%_ + _%rest156028%_ + _%lift1156006%_ + _%lift2156007%_ + (cons (cons _%L156091%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self155256%_ _%L155984%_)) + (gxc#compile-e__1 _%self155362%_ _%L156090%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind155902%_))))) - (let* ((_%__match170700170701%_ - (lambda (_%e155942156009%_ - _%hd155943156012%_ - _%tl155944156014%_ - _%e155945156017%_ - _%hd155946156020%_ - _%tl155947156022%_ - _%e155948156025%_ - _%hd155949156028%_ - _%tl155950156030%_) - (let ((_%L156033%_ - _%hd155949156028%_) - (_%L156034%_ - _%hd155946156020%_)) + _%bind156008%_))))) + (let* ((_%__match170806170807%_ + (lambda (_%e156048156115%_ + _%hd156049156118%_ + _%tl156050156120%_ + _%e156051156123%_ + _%hd156052156126%_ + _%tl156053156128%_ + _%e156054156131%_ + _%hd156055156134%_ + _%tl156056156136%_) + (let ((_%L156139%_ + _%hd156055156134%_) + (_%L156140%_ + _%hd156052156126%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L156034%_)) + _%L156140%_)) (gxc#opt-lambda-expr? - _%L156033%_)) - (_%__kont170653170654%_ - _%L156033%_ - _%L156034%_) - (_%__kont170655170656%_ - _%hd155949156028%_ - _%hd155943156012%_))))) - (_%__match170678170679%_ - (lambda (_%e155931156182%_ - _%hd155932156185%_ - _%tl155933156187%_ - _%e155934156190%_ - _%hd155935156193%_ - _%tl155936156195%_ - _%e155937156198%_ - _%hd155938156201%_ - _%tl155939156203%_) - (let ((_%L156206%_ - _%hd155938156201%_) - (_%L156207%_ - _%hd155935156193%_)) + _%L156139%_)) + (_%__kont170759170760%_ + _%L156139%_ + _%L156140%_) + (_%__kont170761170762%_ + _%hd156055156134%_ + _%hd156049156118%_))))) + (_%__match170784170785%_ + (lambda (_%e156037156288%_ + _%hd156038156291%_ + _%tl156039156293%_ + _%e156040156296%_ + _%hd156041156299%_ + _%tl156042156301%_ + _%e156043156304%_ + _%hd156044156307%_ + _%tl156045156309%_) + (let ((_%L156312%_ + _%hd156044156307%_) + (_%L156313%_ + _%hd156041156299%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L156207%_)) + _%L156313%_)) (gxc#case-lambda-expr? - _%L156206%_)) - (_%__kont170651170652%_ - _%L156206%_ - _%L156207%_) - (_%__match170700170701%_ - _%e155931156182%_ - _%hd155932156185%_ - _%tl155933156187%_ - _%e155934156190%_ - _%hd155935156193%_ - _%tl155936156195%_ - _%e155937156198%_ - _%hd155938156201%_ - _%tl155939156203%_)))))) + _%L156312%_)) + (_%__kont170757170758%_ + _%L156312%_ + _%L156313%_) + (_%__match170806170807%_ + _%e156037156288%_ + _%hd156038156291%_ + _%tl156039156293%_ + _%e156040156296%_ + _%hd156041156299%_ + _%tl156042156301%_ + _%e156043156304%_ + _%hd156044156307%_ + _%tl156045156309%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170649170650%_)) - (let ((_%e155931156182%_ + _%__stx170755170756%_)) + (let ((_%e156037156288%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170649170650%_)))) - (let ((_%tl155933156187%_ + _%__stx170755170756%_)))) + (let ((_%tl156039156293%_ (let () (declare (not safe)) - (##cdr _%e155931156182%_))) - (_%hd155932156185%_ + (##cdr _%e156037156288%_))) + (_%hd156038156291%_ (let () (declare (not safe)) - (##car _%e155931156182%_)))) + (##car _%e156037156288%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155932156185%_)) - (let ((_%e155934156190%_ + _%hd156038156291%_)) + (let ((_%e156040156296%_ (let () (declare (not safe)) (gx#stx-e - _%hd155932156185%_)))) - (let ((_%tl155936156195%_ + _%hd156038156291%_)))) + (let ((_%tl156042156301%_ (let () (declare (not safe)) - (##cdr _%e155934156190%_))) - (_%hd155935156193%_ + (##cdr _%e156040156296%_))) + (_%hd156041156299%_ (let () (declare (not safe)) - (##car _%e155934156190%_)))) + (##car _%e156040156296%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155936156195%_)) + _%tl156042156301%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155933156187%_)) - (let ((_%e155937156198%_ + (gx#stx-pair? _%tl156039156293%_)) + (let ((_%e156043156304%_ (let () (declare (not safe)) - (gx#stx-e _%tl155933156187%_)))) - (let ((_%tl155939156203%_ + (gx#stx-e _%tl156039156293%_)))) + (let ((_%tl156045156309%_ (let () (declare (not safe)) - (##cdr _%e155937156198%_))) - (_%hd155938156201%_ + (##cdr _%e156043156304%_))) + (_%hd156044156307%_ (let () (declare (not safe)) - (##car _%e155937156198%_)))) + (##car _%e156043156304%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155939156203%_)) - (_%__match170678170679%_ - _%e155931156182%_ - _%hd155932156185%_ - _%tl155933156187%_ - _%e155934156190%_ - _%hd155935156193%_ - _%tl155936156195%_ - _%e155937156198%_ - _%hd155938156201%_ - _%tl155939156203%_) + (gx#stx-null? _%tl156045156309%_)) + (_%__match170784170785%_ + _%e156037156288%_ + _%hd156038156291%_ + _%tl156039156293%_ + _%e156040156296%_ + _%hd156041156299%_ + _%tl156042156301%_ + _%e156043156304%_ + _%hd156044156307%_ + _%tl156045156309%_) (let () (declare (not safe)) - (_%g155927155963%_))))) - (let () (declare (not safe)) (_%g155927155963%_))) + (_%g156033156069%_))))) + (let () (declare (not safe)) (_%g156033156069%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155933156187%_)) - (let ((_%e155956155976%_ + (gx#stx-pair? _%tl156039156293%_)) + (let ((_%e156062156082%_ (let () (declare (not safe)) - (gx#stx-e _%tl155933156187%_)))) - (let ((_%tl155958155981%_ + (gx#stx-e _%tl156039156293%_)))) + (let ((_%tl156064156087%_ (let () (declare (not safe)) - (##cdr _%e155956155976%_))) - (_%hd155957155979%_ + (##cdr _%e156062156082%_))) + (_%hd156063156085%_ (let () (declare (not safe)) - (##car _%e155956155976%_)))) + (##car _%e156062156082%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155958155981%_)) - (_%__kont170655170656%_ - _%hd155957155979%_ - _%hd155932156185%_) + (gx#stx-null? _%tl156064156087%_)) + (_%__kont170761170762%_ + _%hd156063156085%_ + _%hd156038156291%_) (let () (declare (not safe)) - (_%g155927155963%_))))) - (let () (declare (not safe)) (_%g155927155963%_)))))) + (_%g156033156069%_))))) + (let () (declare (not safe)) (_%g156033156069%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155933156187%_)) - (let ((_%e155956155976%_ + _%tl156039156293%_)) + (let ((_%e156062156082%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155933156187%_)))) - (let ((_%tl155958155981%_ + (gx#stx-e _%tl156039156293%_)))) + (let ((_%tl156064156087%_ (let () (declare (not safe)) - (##cdr _%e155956155976%_))) - (_%hd155957155979%_ + (##cdr _%e156062156082%_))) + (_%hd156063156085%_ (let () (declare (not safe)) - (##car _%e155956155976%_)))) + (##car _%e156062156082%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155958155981%_)) - (_%__kont170655170656%_ - _%hd155957155979%_ - _%hd155932156185%_) - (let () (declare (not safe)) (_%g155927155963%_))))) - (let () (declare (not safe)) (_%g155927155963%_)))))) + (gx#stx-null? _%tl156064156087%_)) + (_%__kont170761170762%_ + _%hd156063156085%_ + _%hd156038156291%_) + (let () (declare (not safe)) (_%g156033156069%_))))) + (let () (declare (not safe)) (_%g156033156069%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155927155963%_))))))))) - (if (pair? _%rest155903155911%_) - (let ((_%hd155908156303%_ + (_%g156033156069%_))))))))) + (if (pair? _%rest156009156017%_) + (let ((_%hd156014156409%_ (let () (declare (not safe)) - (##car _%rest155903155911%_))) - (_%tl155909156305%_ + (##car _%rest156009156017%_))) + (_%tl156015156411%_ (let () (declare (not safe)) - (##cdr _%rest155903155911%_)))) - (let* ((_%hd156308%_ _%hd155908156303%_) - (_%rest156310%_ _%tl155909156305%_)) - (_%K155907156300%_ - _%rest156310%_ - _%hd156308%_))) - (_%else155905155919%_)))))) - (_%lift-kw-lambda?155261%_ - (lambda (_%bind155819%_) - (let* ((_%__stx170717170718%_ _%bind155819%_) - (_%g155822155839%_ + (##cdr _%rest156009156017%_)))) + (let* ((_%hd156414%_ _%hd156014156409%_) + (_%rest156416%_ _%tl156015156411%_)) + (_%K156013156406%_ + _%rest156416%_ + _%hd156414%_))) + (_%else156011156025%_)))))) + (_%lift-kw-lambda?155367%_ + (lambda (_%bind155925%_) + (let* ((_%__stx170823170824%_ _%bind155925%_) + (_%g155928155945%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170717170718%_))))) - (let ((_%__kont170719170720%_ - (lambda (_%L155875%_ _%L155876%_) + _%__stx170823170824%_))))) + (let ((_%__kont170825170826%_ + (lambda (_%L155981%_ _%L155982%_) (if (let () (declare (not safe)) - (gx#identifier? _%L155876%_)) - (gxc#kw-lambda-expr? _%L155875%_) + (gx#identifier? _%L155982%_)) + (gxc#kw-lambda-expr? _%L155981%_) '#f))) - (_%__kont170721170722%_ (lambda () '#f))) + (_%__kont170827170828%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170717170718%_)) - (let ((_%e155826155851%_ + (gx#stx-pair? _%__stx170823170824%_)) + (let ((_%e155932155957%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170717170718%_)))) - (let ((_%tl155828155856%_ + (gx#stx-e _%__stx170823170824%_)))) + (let ((_%tl155934155962%_ (let () (declare (not safe)) - (##cdr _%e155826155851%_))) - (_%hd155827155854%_ + (##cdr _%e155932155957%_))) + (_%hd155933155960%_ (let () (declare (not safe)) - (##car _%e155826155851%_)))) + (##car _%e155932155957%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155827155854%_)) - (let ((_%e155829155859%_ + (gx#stx-pair? _%hd155933155960%_)) + (let ((_%e155935155965%_ (let () (declare (not safe)) - (gx#stx-e _%hd155827155854%_)))) - (let ((_%tl155831155864%_ + (gx#stx-e _%hd155933155960%_)))) + (let ((_%tl155937155970%_ (let () (declare (not safe)) - (##cdr _%e155829155859%_))) - (_%hd155830155862%_ + (##cdr _%e155935155965%_))) + (_%hd155936155968%_ (let () (declare (not safe)) - (##car _%e155829155859%_)))) + (##car _%e155935155965%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155831155864%_)) + _%tl155937155970%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155828155856%_)) - (let ((_%e155832155867%_ + _%tl155934155962%_)) + (let ((_%e155938155973%_ (let () (declare (not safe)) (gx#stx-e - _%tl155828155856%_)))) - (let ((_%tl155834155872%_ + _%tl155934155962%_)))) + (let ((_%tl155940155978%_ (let () (declare (not safe)) - (##cdr _%e155832155867%_))) - (_%hd155833155870%_ + (##cdr _%e155938155973%_))) + (_%hd155939155976%_ (let () (declare (not safe)) - (##car _%e155832155867%_)))) + (##car _%e155938155973%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155834155872%_)) - (_%__kont170719170720%_ - _%hd155833155870%_ - _%hd155830155862%_) - (_%__kont170721170722%_)))) - (_%__kont170721170722%_)) - (_%__kont170721170722%_)))) - (_%__kont170721170722%_)))) - (_%__kont170721170722%_)))))) - (_%lift-kw-lambda-bindings155262%_ - (lambda (_%bindings155429%_) - (let _%lp155431%_ ((_%rest155433%_ _%bindings155429%_) - (_%lift1155434%_ '()) - (_%lift2155435%_ '()) - (_%bind155436%_ '())) - (let* ((_%rest155437155445%_ _%rest155433%_) - (_%else155439155453%_ + _%tl155940155978%_)) + (_%__kont170825170826%_ + _%hd155939155976%_ + _%hd155936155968%_) + (_%__kont170827170828%_)))) + (_%__kont170827170828%_)) + (_%__kont170827170828%_)))) + (_%__kont170827170828%_)))) + (_%__kont170827170828%_)))))) + (_%lift-kw-lambda-bindings155368%_ + (lambda (_%bindings155535%_) + (let _%lp155537%_ ((_%rest155539%_ _%bindings155535%_) + (_%lift1155540%_ '()) + (_%lift2155541%_ '()) + (_%bind155542%_ '())) + (let* ((_%rest155543155551%_ _%rest155539%_) + (_%else155545155559%_ (lambda () - (values (reverse _%lift1155434%_) - (reverse _%lift2155435%_) - (reverse _%bind155436%_)))) - (_%K155441155807%_ - (lambda (_%rest155456%_ _%hd155457%_) - (let* ((_%__stx170747170748%_ _%hd155457%_) - (_%g155460155485%_ + (values (reverse _%lift1155540%_) + (reverse _%lift2155541%_) + (reverse _%bind155542%_)))) + (_%K155547155913%_ + (lambda (_%rest155562%_ _%hd155563%_) + (let* ((_%__stx170853170854%_ _%hd155563%_) + (_%g155566155591%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170747170748%_))))) - (let ((_%__kont170749170750%_ - (lambda (_%L155555%_ _%L155556%_) - (let* ((_%g155570155623%_ - (lambda (_%g155571155620%_) + _%__stx170853170854%_))))) + (let ((_%__kont170855170856%_ + (lambda (_%L155661%_ _%L155662%_) + (let* ((_%g155676155729%_ + (lambda (_%g155677155726%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g155571155620%_)))) - (_%g155569155801%_ - (lambda (_%g155571155626%_) + _%g155677155726%_)))) + (_%g155675155907%_ + (lambda (_%g155677155732%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g155571155626%_)) - (let ((_%e155577155628%_ + _%g155677155732%_)) + (let ((_%e155683155734%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g155571155626%_)))) - (let ((_%hd155578155631%_ + (gx#stx-e _%g155677155732%_)))) + (let ((_%hd155684155737%_ (let () (declare (not safe)) - (##car _%e155577155628%_))) - (_%tl155579155633%_ + (##car _%e155683155734%_))) + (_%tl155685155739%_ (let () (declare (not safe)) - (##cdr _%e155577155628%_)))) + (##cdr _%e155683155734%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155579155633%_)) - (let ((_%e155580155636%_ + (gx#stx-pair? _%tl155685155739%_)) + (let ((_%e155686155742%_ (let () (declare (not safe)) - (gx#stx-e _%tl155579155633%_)))) - (let ((_%hd155581155639%_ + (gx#stx-e _%tl155685155739%_)))) + (let ((_%hd155687155745%_ (let () (declare (not safe)) - (##car _%e155580155636%_))) - (_%tl155582155641%_ + (##car _%e155686155742%_))) + (_%tl155688155747%_ (let () (declare (not safe)) - (##cdr _%e155580155636%_)))) + (##cdr _%e155686155742%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155581155639%_)) - (let ((_%e155583155644%_ + (gx#stx-pair? _%hd155687155745%_)) + (let ((_%e155689155750%_ (let () (declare (not safe)) - (gx#stx-e _%hd155581155639%_)))) - (let ((_%hd155584155647%_ + (gx#stx-e _%hd155687155745%_)))) + (let ((_%hd155690155753%_ (let () (declare (not safe)) - (##car _%e155583155644%_))) - (_%tl155585155649%_ + (##car _%e155689155750%_))) + (_%tl155691155755%_ (let () (declare (not safe)) - (##cdr _%e155583155644%_)))) + (##cdr _%e155689155750%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155584155647%_)) - (let ((_%e155586155652%_ + (gx#stx-pair? _%hd155690155753%_)) + (let ((_%e155692155758%_ (let () (declare (not safe)) (gx#stx-e - _%hd155584155647%_)))) - (let ((_%hd155587155655%_ + _%hd155690155753%_)))) + (let ((_%hd155693155761%_ (let () (declare (not safe)) - (##car _%e155586155652%_))) - (_%tl155588155657%_ + (##car _%e155692155758%_))) + (_%tl155694155763%_ (let () (declare (not safe)) - (##cdr _%e155586155652%_)))) + (##cdr _%e155692155758%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155587155655%_)) - (let ((_%e155589155660%_ + _%hd155693155761%_)) + (let ((_%e155695155766%_ (let () (declare (not safe)) (gx#stx-e - _%hd155587155655%_)))) - (let ((_%hd155590155663%_ + _%hd155693155761%_)))) + (let ((_%hd155696155769%_ (let () (declare (not safe)) - (##car _%e155589155660%_))) - (_%tl155591155665%_ + (##car _%e155695155766%_))) + (_%tl155697155771%_ (let () (declare (not safe)) - (##cdr _%e155589155660%_)))) + (##cdr _%e155695155766%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155591155665%_)) + _%tl155697155771%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl155588155657%_)) - (let ((_%e155592155668%_ + (gx#stx-pair? _%tl155694155763%_)) + (let ((_%e155698155774%_ (let () (declare (not safe)) - (gx#stx-e _%tl155588155657%_)))) - (let ((_%hd155593155671%_ + (gx#stx-e _%tl155694155763%_)))) + (let ((_%hd155699155777%_ (let () (declare (not safe)) - (##car _%e155592155668%_))) - (_%tl155594155673%_ + (##car _%e155698155774%_))) + (_%tl155700155779%_ (let () (declare (not safe)) - (##cdr _%e155592155668%_)))) + (##cdr _%e155698155774%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155593155671%_)) - (let ((_%e155595155676%_ + (gx#stx-pair? _%hd155699155777%_)) + (let ((_%e155701155782%_ (let () (declare (not safe)) - (gx#stx-e _%hd155593155671%_)))) - (let ((_%hd155596155679%_ + (gx#stx-e _%hd155699155777%_)))) + (let ((_%hd155702155785%_ (let () (declare (not safe)) - (##car _%e155595155676%_))) - (_%tl155597155681%_ + (##car _%e155701155782%_))) + (_%tl155703155787%_ (let () (declare (not safe)) - (##cdr _%e155595155676%_)))) + (##cdr _%e155701155782%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155597155681%_)) - (let ((_%e155598155684%_ + (gx#stx-pair? _%tl155703155787%_)) + (let ((_%e155704155790%_ (let () (declare (not safe)) - (gx#stx-e _%tl155597155681%_)))) - (let ((_%hd155599155687%_ + (gx#stx-e _%tl155703155787%_)))) + (let ((_%hd155705155793%_ (let () (declare (not safe)) - (##car _%e155598155684%_))) - (_%tl155600155689%_ + (##car _%e155704155790%_))) + (_%tl155706155795%_ (let () (declare (not safe)) - (##cdr _%e155598155684%_)))) + (##cdr _%e155704155790%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155599155687%_)) - (let ((_%e155601155692%_ + _%hd155705155793%_)) + (let ((_%e155707155798%_ (let () (declare (not safe)) (gx#stx-e - _%hd155599155687%_)))) - (let ((_%hd155602155695%_ + _%hd155705155793%_)))) + (let ((_%hd155708155801%_ (let () (declare (not safe)) - (##car _%e155601155692%_))) - (_%tl155603155697%_ + (##car _%e155707155798%_))) + (_%tl155709155803%_ (let () (declare (not safe)) - (##cdr _%e155601155692%_)))) + (##cdr _%e155707155798%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155602155695%_)) - (let ((_%e155604155700%_ + _%hd155708155801%_)) + (let ((_%e155710155806%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd155602155695%_)))) - (let ((_%hd155605155703%_ - (let () (declare (not safe)) (##car _%e155604155700%_))) - (_%tl155606155705%_ + (gx#stx-e _%hd155708155801%_)))) + (let ((_%hd155711155809%_ + (let () (declare (not safe)) (##car _%e155710155806%_))) + (_%tl155712155811%_ (let () (declare (not safe)) - (##cdr _%e155604155700%_)))) + (##cdr _%e155710155806%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155605155703%_)) - (let ((_%e155607155708%_ + (gx#stx-pair? _%hd155711155809%_)) + (let ((_%e155713155814%_ (let () (declare (not safe)) - (gx#stx-e _%hd155605155703%_)))) - (let ((_%hd155608155711%_ + (gx#stx-e _%hd155711155809%_)))) + (let ((_%hd155714155817%_ (let () (declare (not safe)) - (##car _%e155607155708%_))) - (_%tl155609155713%_ + (##car _%e155713155814%_))) + (_%tl155715155819%_ (let () (declare (not safe)) - (##cdr _%e155607155708%_)))) + (##cdr _%e155713155814%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155609155713%_)) + (gx#stx-null? _%tl155715155819%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155606155705%_)) - (let ((_%e155610155716%_ + (gx#stx-pair? _%tl155712155811%_)) + (let ((_%e155716155822%_ (let () (declare (not safe)) - (gx#stx-e _%tl155606155705%_)))) - (let ((_%hd155611155719%_ + (gx#stx-e _%tl155712155811%_)))) + (let ((_%hd155717155825%_ (let () (declare (not safe)) - (##car _%e155610155716%_))) - (_%tl155612155721%_ + (##car _%e155716155822%_))) + (_%tl155718155827%_ (let () (declare (not safe)) - (##cdr _%e155610155716%_)))) + (##cdr _%e155716155822%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155612155721%_)) + (gx#stx-null? _%tl155718155827%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155603155697%_)) + _%tl155709155803%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155600155689%_)) - (let ((_%e155613155724%_ + _%tl155706155795%_)) + (let ((_%e155719155830%_ (let () (declare (not safe)) (gx#stx-e - _%tl155600155689%_)))) - (let ((_%hd155614155727%_ + _%tl155706155795%_)))) + (let ((_%hd155720155833%_ (let () (declare (not safe)) - (##car _%e155613155724%_))) - (_%tl155615155729%_ + (##car _%e155719155830%_))) + (_%tl155721155835%_ (let () (declare (not safe)) - (##cdr _%e155613155724%_)))) + (##cdr _%e155719155830%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155615155729%_)) + _%tl155721155835%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl155594155673%_)) + (gx#stx-null? _%tl155700155779%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155585155649%_)) + (gx#stx-null? _%tl155691155755%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155582155641%_)) - (let ((_%e155616155732%_ + (gx#stx-pair? _%tl155688155747%_)) + (let ((_%e155722155838%_ (let () (declare (not safe)) - (gx#stx-e _%tl155582155641%_)))) - (let ((_%hd155617155735%_ + (gx#stx-e _%tl155688155747%_)))) + (let ((_%hd155723155841%_ (let () (declare (not safe)) - (##car _%e155616155732%_))) - (_%tl155618155737%_ + (##car _%e155722155838%_))) + (_%tl155724155843%_ (let () (declare (not safe)) - (##cdr _%e155616155732%_)))) + (##cdr _%e155722155838%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155618155737%_)) - ((lambda (_%L155740%_ - _%L155741%_ - _%L155742%_ - _%L155743%_ - _%L155744%_) - (let* ((_%get-kws-id155784%_ - (let ((__tmp171343 + (gx#stx-null? _%tl155724155843%_)) + ((lambda (_%L155846%_ + _%L155847%_ + _%L155848%_ + _%L155849%_ + _%L155850%_) + (let* ((_%get-kws-id155890%_ + (let ((__tmp171449 (let () (declare (not safe)) (gx#stx-e - _%L155556%_))) - (__tmp171342 + _%L155662%_))) + (__tmp171448 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171343 - __tmp171342))) - (_%get-kws-id155786%_ - (let ((__tmp171344 + __tmp171449 + __tmp171448))) + (_%get-kws-id155892%_ + (let ((__tmp171450 (let () (declare (not safe)) (gx#stx-source - _%stx155257%_)))) + _%stx155363%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id155784%_ - __tmp171344))) - (_%main-id155788%_ - (let ((__tmp171346 + _%get-kws-id155890%_ + __tmp171450))) + (_%main-id155894%_ + (let ((__tmp171452 (let () (declare (not safe)) (gx#stx-e - _%L155556%_))) - (__tmp171345 + _%L155662%_))) + (__tmp171451 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171346 - __tmp171345))) - (_%main-id155790%_ - (let ((__tmp171347 + __tmp171452 + __tmp171451))) + (_%main-id155896%_ + (let ((__tmp171453 (let () (declare (not safe)) (gx#stx-source - _%stx155257%_)))) + _%stx155363%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id155788%_ - __tmp171347))) - (_%_155792%_ + _%main-id155894%_ + __tmp171453))) + (_%_155898%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id155786%_))) - (_%_155794%_ + _%get-kws-id155892%_))) + (_%_155900%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id155790%_))) - (_%new-kw-dispatch155796%_ + _%main-id155896%_))) + (_%new-kw-dispatch155902%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155744%_ - _%get-kws-id155786%_ - _%L155740%_))) - (_%new-get-kws155798%_ + _%L155850%_ + _%get-kws-id155892%_ + _%L155846%_))) + (_%new-get-kws155904%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155743%_ - _%main-id155790%_ - _%L155741%_)))) - (let ((__tmp171350 + _%L155849%_ + _%main-id155896%_ + _%L155847%_)))) + (let ((__tmp171456 (let () (declare (not safe)) (gxc#identifier-symbol - _%L155556%_))) - (__tmp171349 + _%L155662%_))) + (__tmp171455 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id155786%_))) - (__tmp171348 + _%get-kws-id155892%_))) + (__tmp171454 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id155790%_)))) + _%main-id155896%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171350 + __tmp171456 '" => " - __tmp171349 + __tmp171455 '" => " - __tmp171348)) - (_%lp155431%_ - _%rest155456%_ - (cons (_%bind-e__167992167993%_ - _%main-id155790%_ - _%L155742%_ + __tmp171454)) + (_%lp155537%_ + _%rest155562%_ + (cons (_%bind-e__168098168099%_ + _%main-id155896%_ + _%L155848%_ '#f) - _%lift1155434%_) - (cons (_%bind-e__167992167993%_ - _%get-kws-id155786%_ - _%new-get-kws155798%_ + _%lift1155540%_) + (cons (_%bind-e__168098168099%_ + _%get-kws-id155892%_ + _%new-get-kws155904%_ '#f) - _%lift2155435%_) - (cons (_%bind-e__167992167993%_ - _%L155556%_ - _%new-kw-dispatch155796%_ + _%lift2155541%_) + (cons (_%bind-e__168098168099%_ + _%L155662%_ + _%new-kw-dispatch155902%_ '#f) - _%bind155436%_)))) - _%hd155617155735%_ - _%hd155614155727%_ - _%hd155611155719%_ - _%hd155608155711%_ - _%hd155590155663%_) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)) - (_%g155570155623%_ _%g155571155626%_)) - (_%g155570155623%_ _%g155571155626%_)) - (_%g155570155623%_ _%g155571155626%_)))) + _%bind155542%_)))) + _%hd155723155841%_ + _%hd155720155833%_ + _%hd155717155825%_ + _%hd155714155817%_ + _%hd155696155769%_) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)) + (_%g155676155729%_ _%g155677155732%_)) + (_%g155676155729%_ _%g155677155732%_)) + (_%g155676155729%_ _%g155677155732%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155570155623%_ - _%g155571155626%_)) - (_%g155570155623%_ - _%g155571155626%_)) - (_%g155570155623%_ - _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) + (_%g155676155729%_ + _%g155677155732%_)) + (_%g155676155729%_ + _%g155677155732%_)) + (_%g155676155729%_ + _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155570155623%_ - _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)) - (_%g155570155623%_ _%g155571155626%_)))) + (_%g155676155729%_ + _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)) + (_%g155676155729%_ _%g155677155732%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155570155623%_ - _%g155571155626%_)))) - (_%g155570155623%_ - _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_)))) - (_%g155570155623%_ _%g155571155626%_))))) + (_%g155676155729%_ + _%g155677155732%_)))) + (_%g155676155729%_ + _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_)))) + (_%g155676155729%_ _%g155677155732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g155569155801%_ - _%L155555%_)))) - (_%__kont170751170752%_ - (lambda (_%L155506%_ _%L155507%_) - (_%lp155431%_ - _%rest155456%_ - _%lift1155434%_ - _%lift2155435%_ - (cons (cons _%L155507%_ - (cons _%L155506%_ + (_%g155675155907%_ + _%L155661%_)))) + (_%__kont170857170858%_ + (lambda (_%L155612%_ _%L155613%_) + (_%lp155537%_ + _%rest155562%_ + _%lift1155540%_ + _%lift2155541%_ + (cons (cons _%L155613%_ + (cons _%L155612%_ '())) - _%bind155436%_))))) - (let ((_%__match170774170775%_ - (lambda (_%e155464155531%_ - _%hd155465155534%_ - _%tl155466155536%_ - _%e155467155539%_ - _%hd155468155542%_ - _%tl155469155544%_ - _%e155470155547%_ - _%hd155471155550%_ - _%tl155472155552%_) - (let ((_%L155555%_ - _%hd155471155550%_) - (_%L155556%_ - _%hd155468155542%_)) + _%bind155542%_))))) + (let ((_%__match170880170881%_ + (lambda (_%e155570155637%_ + _%hd155571155640%_ + _%tl155572155642%_ + _%e155573155645%_ + _%hd155574155648%_ + _%tl155575155650%_ + _%e155576155653%_ + _%hd155577155656%_ + _%tl155578155658%_) + (let ((_%L155661%_ + _%hd155577155656%_) + (_%L155662%_ + _%hd155574155648%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155556%_)) + _%L155662%_)) (gxc#kw-lambda-expr? - _%L155555%_)) - (_%__kont170749170750%_ - _%L155555%_ - _%L155556%_) - (_%__kont170751170752%_ - _%hd155471155550%_ - _%hd155465155534%_)))))) + _%L155661%_)) + (_%__kont170855170856%_ + _%L155661%_ + _%L155662%_) + (_%__kont170857170858%_ + _%hd155577155656%_ + _%hd155571155640%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170747170748%_)) - (let ((_%e155464155531%_ + _%__stx170853170854%_)) + (let ((_%e155570155637%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170747170748%_)))) - (let ((_%tl155466155536%_ + _%__stx170853170854%_)))) + (let ((_%tl155572155642%_ (let () (declare (not safe)) - (##cdr _%e155464155531%_))) - (_%hd155465155534%_ + (##cdr _%e155570155637%_))) + (_%hd155571155640%_ (let () (declare (not safe)) - (##car _%e155464155531%_)))) + (##car _%e155570155637%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd155465155534%_)) - (let ((_%e155467155539%_ + _%hd155571155640%_)) + (let ((_%e155573155645%_ (let () (declare (not safe)) (gx#stx-e - _%hd155465155534%_)))) - (let ((_%tl155469155544%_ + _%hd155571155640%_)))) + (let ((_%tl155575155650%_ (let () (declare (not safe)) - (##cdr _%e155467155539%_))) - (_%hd155468155542%_ + (##cdr _%e155573155645%_))) + (_%hd155574155648%_ (let () (declare (not safe)) - (##car _%e155467155539%_)))) + (##car _%e155573155645%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155469155544%_)) + _%tl155575155650%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl155466155536%_)) - (let ((_%e155470155547%_ + (gx#stx-pair? _%tl155572155642%_)) + (let ((_%e155576155653%_ (let () (declare (not safe)) - (gx#stx-e _%tl155466155536%_)))) - (let ((_%tl155472155552%_ + (gx#stx-e _%tl155572155642%_)))) + (let ((_%tl155578155658%_ (let () (declare (not safe)) - (##cdr _%e155470155547%_))) - (_%hd155471155550%_ + (##cdr _%e155576155653%_))) + (_%hd155577155656%_ (let () (declare (not safe)) - (##car _%e155470155547%_)))) + (##car _%e155576155653%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155472155552%_)) - (_%__match170774170775%_ - _%e155464155531%_ - _%hd155465155534%_ - _%tl155466155536%_ - _%e155467155539%_ - _%hd155468155542%_ - _%tl155469155544%_ - _%e155470155547%_ - _%hd155471155550%_ - _%tl155472155552%_) + (gx#stx-null? _%tl155578155658%_)) + (_%__match170880170881%_ + _%e155570155637%_ + _%hd155571155640%_ + _%tl155572155642%_ + _%e155573155645%_ + _%hd155574155648%_ + _%tl155575155650%_ + _%e155576155653%_ + _%hd155577155656%_ + _%tl155578155658%_) (let () (declare (not safe)) - (_%g155460155485%_))))) - (let () (declare (not safe)) (_%g155460155485%_))) + (_%g155566155591%_))))) + (let () (declare (not safe)) (_%g155566155591%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155466155536%_)) - (let ((_%e155478155498%_ + (gx#stx-pair? _%tl155572155642%_)) + (let ((_%e155584155604%_ (let () (declare (not safe)) - (gx#stx-e _%tl155466155536%_)))) - (let ((_%tl155480155503%_ + (gx#stx-e _%tl155572155642%_)))) + (let ((_%tl155586155609%_ (let () (declare (not safe)) - (##cdr _%e155478155498%_))) - (_%hd155479155501%_ + (##cdr _%e155584155604%_))) + (_%hd155585155607%_ (let () (declare (not safe)) - (##car _%e155478155498%_)))) + (##car _%e155584155604%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155480155503%_)) - (_%__kont170751170752%_ - _%hd155479155501%_ - _%hd155465155534%_) + (gx#stx-null? _%tl155586155609%_)) + (_%__kont170857170858%_ + _%hd155585155607%_ + _%hd155571155640%_) (let () (declare (not safe)) - (_%g155460155485%_))))) - (let () (declare (not safe)) (_%g155460155485%_)))))) + (_%g155566155591%_))))) + (let () (declare (not safe)) (_%g155566155591%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155466155536%_)) - (let ((_%e155478155498%_ + _%tl155572155642%_)) + (let ((_%e155584155604%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl155466155536%_)))) - (let ((_%tl155480155503%_ + (gx#stx-e _%tl155572155642%_)))) + (let ((_%tl155586155609%_ (let () (declare (not safe)) - (##cdr _%e155478155498%_))) - (_%hd155479155501%_ + (##cdr _%e155584155604%_))) + (_%hd155585155607%_ (let () (declare (not safe)) - (##car _%e155478155498%_)))) + (##car _%e155584155604%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl155480155503%_)) - (_%__kont170751170752%_ - _%hd155479155501%_ - _%hd155465155534%_) - (let () (declare (not safe)) (_%g155460155485%_))))) - (let () (declare (not safe)) (_%g155460155485%_)))))) + (gx#stx-null? _%tl155586155609%_)) + (_%__kont170857170858%_ + _%hd155585155607%_ + _%hd155571155640%_) + (let () (declare (not safe)) (_%g155566155591%_))))) + (let () (declare (not safe)) (_%g155566155591%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g155460155485%_))))))))) - (if (pair? _%rest155437155445%_) - (let ((_%hd155442155810%_ + (_%g155566155591%_))))))))) + (if (pair? _%rest155543155551%_) + (let ((_%hd155548155916%_ (let () (declare (not safe)) - (##car _%rest155437155445%_))) - (_%tl155443155812%_ + (##car _%rest155543155551%_))) + (_%tl155549155918%_ (let () (declare (not safe)) - (##cdr _%rest155437155445%_)))) - (let* ((_%hd155815%_ _%hd155442155810%_) - (_%rest155817%_ _%tl155443155812%_)) - (_%K155441155807%_ - _%rest155817%_ - _%hd155815%_))) - (_%else155439155453%_))))))) - (let* ((_%__stx170791170792%_ _%stx155257%_) - (_%g155265155291%_ + (##cdr _%rest155543155551%_)))) + (let* ((_%hd155921%_ _%hd155548155916%_) + (_%rest155923%_ _%tl155549155918%_)) + (_%K155547155913%_ + _%rest155923%_ + _%hd155921%_))) + (_%else155545155559%_))))))) + (let* ((_%__stx170897170898%_ _%stx155363%_) + (_%g155371155397%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170791170792%_))))) - (let ((_%__kont170793170794%_ - (lambda (_%L155351%_ _%L155352%_) - (let ((__tmp171352 + _%__stx170897170898%_))))) + (let ((_%__kont170899170900%_ + (lambda (_%L155457%_ _%L155458%_) + (let ((__tmp171458 (lambda () - (if (let ((__tmp171353 - (let ((__tmp171354 - (lambda (_%g155380155383%_ - _%g155381155385%_) - (cons _%g155380155383%_ - _%g155381155385%_)))) + (if (let ((__tmp171459 + (let ((__tmp171460 + (lambda (_%g155486155489%_ + _%g155487155491%_) + (cons _%g155486155489%_ + _%g155487155491%_)))) (declare (not safe)) (__foldr1 - __tmp171354 + __tmp171460 '() - _%L155352%_)))) + _%L155458%_)))) (declare (not safe)) (__ormap1 - _%lift-kw-lambda?155261%_ - __tmp171353)) - (let ((_g171355_ - (_%lift-kw-lambda-bindings155262%_ - (let ((__tmp171357 - (lambda (_%g155387155390%_ - _%g155388155392%_) - (cons _%g155387155390%_ - _%g155388155392%_)))) + _%lift-kw-lambda?155367%_ + __tmp171459)) + (let ((_g171461_ + (_%lift-kw-lambda-bindings155368%_ + (let ((__tmp171463 + (lambda (_%g155493155496%_ + _%g155494155498%_) + (cons _%g155493155496%_ + _%g155494155498%_)))) (declare (not safe)) (__foldr1 - __tmp171357 + __tmp171463 '() - _%L155352%_))))) + _%L155458%_))))) (begin - (let ((_g171356_ + (let ((_g171462_ (let () (declare (not safe)) - (if (##values? _g171355_) - (##vector-length _g171355_) + (if (##values? _g171461_) + (##values-length _g171461_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171356_ 3))) + (##fx= _g171462_ 3))) (error "Context expects 3 values" - _g171356_))) - (let ((_%lift1155395%_ + _g171462_))) + (let ((_%lift1155501%_ (let () (declare (not safe)) - (##vector-ref _g171355_ 0))) - (_%lift2155396%_ + (##values-ref _g171461_ 0))) + (_%lift2155502%_ (let () (declare (not safe)) - (##vector-ref _g171355_ 1))) - (_%hd155397%_ + (##values-ref _g171461_ 1))) + (_%hd155503%_ (let () (declare (not safe)) - (##vector-ref _g171355_ 2)))) - (let* ((_%expr155399%_ - (let ((__tmp171358 + (##values-ref _g171461_ 2)))) + (let* ((_%expr155505%_ + (let ((__tmp171464 (cons '%#let-values - (cons _%hd155397%_ + (cons _%hd155503%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L155351%_ '()))))) + (cons _%L155457%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171358 - _%stx155257%_))) - (_%expr155401%_ - (let ((__tmp171359 + __tmp171464 + _%stx155363%_))) + (_%expr155507%_ + (let ((__tmp171465 (cons '%#let-values - (cons _%lift2155396%_ + (cons _%lift2155502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155399%_ '()))))) + (cons _%expr155505%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171359 - _%stx155257%_))) - (_%expr155403%_ - (let ((__tmp171360 + __tmp171465 + _%stx155363%_))) + (_%expr155509%_ + (let ((__tmp171466 (cons '%#let-values - (cons _%lift1155395%_ + (cons _%lift1155501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr155401%_ '()))))) + (cons _%expr155507%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171360 - _%stx155257%_)))) + __tmp171466 + _%stx155363%_)))) (gxc#lift-top-lambda-let-values% - _%self155256%_ - _%expr155403%_))))) - (let ((_g171361_ - (_%compile-bindings155260%_ - (let ((__tmp171363 - (lambda (_%g155405155408%_ - _%g155406155410%_) - (cons _%g155405155408%_ - _%g155406155410%_)))) + _%self155362%_ + _%expr155509%_))))) + (let ((_g171467_ + (_%compile-bindings155366%_ + (let ((__tmp171469 + (lambda (_%g155511155514%_ + _%g155512155516%_) + (cons _%g155511155514%_ + _%g155512155516%_)))) (declare (not safe)) (__foldr1 - __tmp171363 + __tmp171469 '() - _%L155352%_))))) + _%L155458%_))))) (begin - (let ((_g171362_ + (let ((_g171468_ (let () (declare (not safe)) - (if (##values? _g171361_) - (##vector-length _g171361_) + (if (##values? _g171467_) + (##values-length _g171467_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171362_ 3))) + (##fx= _g171468_ 3))) (error "Context expects 3 values" - _g171362_))) - (let ((_%lift1155413%_ + _g171468_))) + (let ((_%lift1155519%_ (let () (declare (not safe)) - (##vector-ref _g171361_ 0))) - (_%lift2155414%_ + (##values-ref _g171467_ 0))) + (_%lift2155520%_ (let () (declare (not safe)) - (##vector-ref _g171361_ 1))) - (_%hd155415%_ + (##values-ref _g171467_ 1))) + (_%hd155521%_ (let () (declare (not safe)) - (##vector-ref _g171361_ 2)))) - (let* ((_%body155417%_ + (##values-ref _g171467_ 2)))) + (let* ((_%body155523%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self155256%_ - _%L155351%_))) - (_%expr155419%_ - (let ((__tmp171364 + _%self155362%_ + _%L155457%_))) + (_%expr155525%_ + (let ((__tmp171470 (cons '%#let-values - (cons _%hd155415%_ + (cons _%hd155521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body155417%_ '()))))) + (cons _%body155523%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp171364 - _%stx155257%_))) - (_%expr155421%_ - (if (null? _%lift2155414%_) - _%expr155419%_ - (let ((__tmp171365 + __tmp171470 + _%stx155363%_))) + (_%expr155527%_ + (if (null? _%lift2155520%_) + _%expr155525%_ + (let ((__tmp171471 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift2155414%_ (cons _%expr155419%_ '()))))) + (cons _%lift2155520%_ (cons _%expr155525%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171365 _%stx155257%_)))) + (gxc#xform-wrap-source __tmp171471 _%stx155363%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%expr155423%_ - (if (null? _%lift1155413%_) - _%expr155421%_ - (let ((__tmp171366 + (_%expr155529%_ + (if (null? _%lift1155519%_) + _%expr155527%_ + (let ((__tmp171472 (cons '%#let-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%lift1155413%_ (cons _%expr155421%_ '()))))) + (cons _%lift1155519%_ (cons _%expr155527%_ '()))))) (declare (not safe)) - (gxc#xform-wrap-source __tmp171366 _%stx155257%_))))) + (gxc#xform-wrap-source __tmp171472 _%stx155363%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%expr155423%_))))))) - (__tmp171351 - (let ((__obj171044 + _%expr155529%_))))))) + (__tmp171457 + (let ((__obj171150 (let () (declare (not safe)) (##structure @@ -22999,278 +22999,278 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171044)) - __obj171044))) + (gx#local-context:::init!__0 __obj171150)) + __obj171150))) (declare (not safe)) (__call-with-parameters - __tmp171352 + __tmp171458 gx#current-expander-context - __tmp171351)))) - (_%__kont170797170798%_ + __tmp171457)))) + (_%__kont170903170904%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self155256%_ _%stx155257%_))))) - (let ((_%__match170818170819%_ - (lambda (_%e155269155303%_ - _%hd155270155306%_ - _%tl155271155308%_ - _%e155272155311%_ - _%hd155273155314%_ - _%tl155274155316%_ - _%__splice170795170796%_ - _%target155275155319%_ - _%tl155277155321%_) - (letrec ((_%loop155278155324%_ - (lambda (_%hd155276155327%_ - _%bind155282155329%_) + (gxc#xform-let-values% _%self155362%_ _%stx155363%_))))) + (let ((_%__match170924170925%_ + (lambda (_%e155375155409%_ + _%hd155376155412%_ + _%tl155377155414%_ + _%e155378155417%_ + _%hd155379155420%_ + _%tl155380155422%_ + _%__splice170901170902%_ + _%target155381155425%_ + _%tl155383155427%_) + (letrec ((_%loop155384155430%_ + (lambda (_%hd155382155433%_ + _%bind155388155435%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd155276155327%_)) - (let ((_%e155279155332%_ + (gx#stx-pair? _%hd155382155433%_)) + (let ((_%e155385155438%_ (let () (declare (not safe)) (gx#stx-e - _%hd155276155327%_)))) - (let ((_%lp-tl155281155337%_ + _%hd155382155433%_)))) + (let ((_%lp-tl155387155443%_ (let () (declare (not safe)) - (##cdr _%e155279155332%_))) - (_%lp-hd155280155335%_ + (##cdr _%e155385155438%_))) + (_%lp-hd155386155441%_ (let () (declare (not safe)) - (##car _%e155279155332%_)))) - (_%loop155278155324%_ - _%lp-tl155281155337%_ - (cons _%lp-hd155280155335%_ - _%bind155282155329%_)))) - (let ((_%bind155283155340%_ - (reverse _%bind155282155329%_))) + (##car _%e155385155438%_)))) + (_%loop155384155430%_ + _%lp-tl155387155443%_ + (cons _%lp-hd155386155441%_ + _%bind155388155435%_)))) + (let ((_%bind155389155446%_ + (reverse _%bind155388155435%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl155274155316%_)) - (let ((_%e155284155343%_ + _%tl155380155422%_)) + (let ((_%e155390155449%_ (let () (declare (not safe)) (gx#stx-e - _%tl155274155316%_)))) - (let ((_%tl155286155348%_ + _%tl155380155422%_)))) + (let ((_%tl155392155454%_ (let () (declare (not safe)) - (##cdr _%e155284155343%_))) - (_%hd155285155346%_ + (##cdr _%e155390155449%_))) + (_%hd155391155452%_ (let () (declare (not safe)) - (##car _%e155284155343%_)))) + (##car _%e155390155449%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155286155348%_)) - (let ((_%L155351%_ - _%hd155285155346%_) - (_%L155352%_ - _%bind155283155340%_)) - (if (let ((__tmp171367 + _%tl155392155454%_)) + (let ((_%L155457%_ + _%hd155391155452%_) + (_%L155458%_ + _%bind155389155446%_)) + (if (let ((__tmp171473 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171368 - (lambda (_%g155372155375%_ _%g155373155377%_) - (cons _%g155372155375%_ - _%g155373155377%_)))) + (let ((__tmp171474 + (lambda (_%g155478155481%_ _%g155479155483%_) + (cons _%g155478155481%_ + _%g155479155483%_)))) (declare (not safe)) - (__foldr1 __tmp171368 '() _%L155352%_)))) + (__foldr1 __tmp171474 '() _%L155458%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171367)) - (_%__kont170793170794%_ _%L155351%_ _%L155352%_) - (_%__kont170797170798%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171473)) + (_%__kont170899170900%_ _%L155457%_ _%L155458%_) + (_%__kont170903170904%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170797170798%_)))) - (_%__kont170797170798%_))))))) - (_%loop155278155324%_ _%target155275155319%_ '()))))) + (_%__kont170903170904%_)))) + (_%__kont170903170904%_))))))) + (_%loop155384155430%_ _%target155381155425%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170791170792%_)) - (let ((_%e155269155303%_ + (gx#stx-pair? _%__stx170897170898%_)) + (let ((_%e155375155409%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170791170792%_)))) - (let ((_%tl155271155308%_ + (gx#stx-e _%__stx170897170898%_)))) + (let ((_%tl155377155414%_ (let () (declare (not safe)) - (##cdr _%e155269155303%_))) - (_%hd155270155306%_ + (##cdr _%e155375155409%_))) + (_%hd155376155412%_ (let () (declare (not safe)) - (##car _%e155269155303%_)))) + (##car _%e155375155409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl155271155308%_)) - (let ((_%e155272155311%_ + (gx#stx-pair? _%tl155377155414%_)) + (let ((_%e155378155417%_ (let () (declare (not safe)) - (gx#stx-e _%tl155271155308%_)))) - (let ((_%tl155274155316%_ + (gx#stx-e _%tl155377155414%_)))) + (let ((_%tl155380155422%_ (let () (declare (not safe)) - (##cdr _%e155272155311%_))) - (_%hd155273155314%_ + (##cdr _%e155378155417%_))) + (_%hd155379155420%_ (let () (declare (not safe)) - (##car _%e155272155311%_)))) + (##car _%e155378155417%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd155273155314%_)) - (let ((_%__splice170795170796%_ + (gx#stx-pair/null? _%hd155379155420%_)) + (let ((_%__splice170901170902%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd155273155314%_ + _%hd155379155420%_ '0)))) - (let ((_%tl155277155321%_ + (let ((_%tl155383155427%_ (let () (declare (not safe)) (##vector-ref - _%__splice170795170796%_ + _%__splice170901170902%_ '1))) - (_%target155275155319%_ + (_%target155381155425%_ (let () (declare (not safe)) (##vector-ref - _%__splice170795170796%_ + _%__splice170901170902%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155277155321%_)) - (_%__match170818170819%_ - _%e155269155303%_ - _%hd155270155306%_ - _%tl155271155308%_ - _%e155272155311%_ - _%hd155273155314%_ - _%tl155274155316%_ - _%__splice170795170796%_ - _%target155275155319%_ - _%tl155277155321%_) - (_%__kont170797170798%_)))) - (_%__kont170797170798%_)))) - (_%__kont170797170798%_)))) - (_%__kont170797170798%_)))))))) + _%tl155383155427%_)) + (_%__match170924170925%_ + _%e155375155409%_ + _%hd155376155412%_ + _%tl155377155414%_ + _%e155378155417%_ + _%hd155379155420%_ + _%tl155380155422%_ + _%__splice170901170902%_ + _%target155381155425%_ + _%tl155383155427%_) + (_%__kont170903170904%_)))) + (_%__kont170903170904%_)))) + (_%__kont170903170904%_)))) + (_%__kont170903170904%_)))))))) (define gxc#lift-top-lambda-letrec-values% - (lambda (_%self154395%_ _%stx154396%_) - (letrec* ((_%bind-e__167997167998%_ - (lambda (_%id155240%_ _%expr155241%_ _%compile?155242%_) - (cons (cons _%id155240%_ '()) - (cons (if _%compile?155242%_ + (lambda (_%self154501%_ _%stx154502%_) + (letrec* ((_%bind-e__168103168104%_ + (lambda (_%id155346%_ _%expr155347%_ _%compile?155348%_) + (cons (cons _%id155346%_ '()) + (cons (if _%compile?155348%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154395%_ - _%expr155241%_)) - _%expr155241%_) + _%self154501%_ + _%expr155347%_)) + _%expr155347%_) '())))) - (_%bind-e__0__167999168000%_ - (lambda (_%id155247%_ _%expr155248%_) - (let ((_%compile?155250%_ '#t)) - (_%bind-e__167997167998%_ - _%id155247%_ - _%expr155248%_ - _%compile?155250%_)))) - (_%bind-e154398%_ - (lambda _g171370_ - (let ((_g171369_ + (_%bind-e__0__168105168106%_ + (lambda (_%id155353%_ _%expr155354%_) + (let ((_%compile?155356%_ '#t)) + (_%bind-e__168103168104%_ + _%id155353%_ + _%expr155354%_ + _%compile?155356%_)))) + (_%bind-e154504%_ + (lambda _g171476_ + (let ((_g171475_ (let () (declare (not safe)) - (##length _g171370_)))) - (cond ((let () (declare (not safe)) (##fx= _g171369_ 2)) - (apply _%bind-e__0__167999168000%_ _g171370_)) - ((let () (declare (not safe)) (##fx= _g171369_ 3)) - (apply _%bind-e__167997167998%_ _g171370_)) + (##length _g171476_)))) + (cond ((let () (declare (not safe)) (##fx= _g171475_ 2)) + (apply _%bind-e__0__168105168106%_ _g171476_)) + ((let () (declare (not safe)) (##fx= _g171475_ 3)) + (apply _%bind-e__168103168104%_ _g171476_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g171370_)))))) - (_%compile-bindings154399%_ - (lambda (_%rest154534%_) - (let _%lp154536%_ ((_%rest154538%_ _%rest154534%_) - (_%bind154539%_ '())) - (let* ((_%rest154540154548%_ _%rest154538%_) - (_%else154542154556%_ - (lambda () (reverse _%bind154539%_))) - (_%K154544155227%_ - (lambda (_%rest154559%_ _%hd154560%_) - (let* ((_%__stx170841170842%_ _%hd154560%_) - (_%g154565154612%_ + _g171476_)))))) + (_%compile-bindings154505%_ + (lambda (_%rest154640%_) + (let _%lp154642%_ ((_%rest154644%_ _%rest154640%_) + (_%bind154645%_ '())) + (let* ((_%rest154646154654%_ _%rest154644%_) + (_%else154648154662%_ + (lambda () (reverse _%bind154645%_))) + (_%K154650155333%_ + (lambda (_%rest154665%_ _%hd154666%_) + (let* ((_%__stx170947170948%_ _%hd154666%_) + (_%g154671154718%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170841170842%_))))) - (let ((_%__kont170843170844%_ - (lambda (_%L155133%_ _%L155134%_) - (let* ((_%__stx170821170822%_ - _%L155133%_) - (_%g155149155163%_ + _%__stx170947170948%_))))) + (let ((_%__kont170949170950%_ + (lambda (_%L155239%_ _%L155240%_) + (let* ((_%__stx170927170928%_ + _%L155239%_) + (_%g155255155269%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170821170822%_))))) - (let ((_%__kont170823170824%_ - (lambda (_%L155212%_) - (_%lp154536%_ - _%rest154559%_ - (cons (_%bind-e__167997167998%_ - _%L155134%_ - _%L155133%_ + _%__stx170927170928%_))))) + (let ((_%__kont170929170930%_ + (lambda (_%L155318%_) + (_%lp154642%_ + _%rest154665%_ + (cons (_%bind-e__168103168104%_ + _%L155240%_ + _%L155239%_ '#f) - _%bind154539%_)))) - (_%__kont170825170826%_ - (lambda (_%L155176%_) - (let ((_g171371_ + _%bind154645%_)))) + (_%__kont170931170932%_ + (lambda (_%L155282%_) + (let ((_g171477_ (gxc#lift-case-lambda-clauses__% - _%stx154396%_ - _%L155134%_ - _%L155176%_ + _%stx154502%_ + _%L155240%_ + _%L155282%_ '#t))) (begin - (let ((_g171372_ + (let ((_g171478_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g171371_) - (##vector-length _g171371_) + (if (##values? _g171477_) + (##values-length _g171477_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171372_ 3))) - (error "Context expects 3 values" _g171372_))) - (let ((_%ids155186%_ + (##fx= _g171478_ 3))) + (error "Context expects 3 values" _g171478_))) + (let ((_%ids155292%_ (let () (declare (not safe)) - (##vector-ref _g171371_ 0))) - (_%impls155187%_ + (##values-ref _g171477_ 0))) + (_%impls155293%_ (let () (declare (not safe)) - (##vector-ref _g171371_ 1))) - (_%clauses155188%_ + (##values-ref _g171477_ 1))) + (_%clauses155294%_ (let () (declare (not safe)) - (##vector-ref _g171371_ 2)))) - (let* ((_%_155190%_ - (for-each gx#core-bind-runtime! _%ids155186%_)) - (_%xbind155192%_ - (map _%bind-e154398%_ - _%ids155186%_ - _%impls155187%_)) - (_%expr*155194%_ - (let ((__tmp171374 - (cons '%#case-lambda _%clauses155188%_)) - (__tmp171373 + (##values-ref _g171477_ 2)))) + (let* ((_%_155296%_ + (for-each gx#core-bind-runtime! _%ids155292%_)) + (_%xbind155298%_ + (map _%bind-e154504%_ + _%ids155292%_ + _%impls155293%_)) + (_%expr*155300%_ + (let ((__tmp171480 + (cons '%#case-lambda _%clauses155294%_)) + (__tmp171479 (let () (declare (not safe)) (gx#datum->syntax__0 @@ -23278,1015 +23278,1015 @@ 'case-lambda-expr)))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171374 - __tmp171373))) - (_%bind*155196%_ - (_%bind-e__167997167998%_ - _%L155134%_ - _%expr*155194%_ + __tmp171480 + __tmp171479))) + (_%bind*155302%_ + (_%bind-e__168103168104%_ + _%L155240%_ + _%expr*155300%_ '#f))) - (let ((__tmp171376 + (let ((__tmp171482 (let () (declare (not safe)) - (gxc#identifier-symbol _%L155134%_))) - (__tmp171375 - (map gxc#identifier-symbol _%ids155186%_))) + (gxc#identifier-symbol _%L155240%_))) + (__tmp171481 + (map gxc#identifier-symbol _%ids155292%_))) (declare (not safe)) (gxc#verbose '"lift case-lambda clauses " - __tmp171376 + __tmp171482 '" => " - __tmp171375)) - (_%lp154536%_ - _%rest154559%_ - (cons _%bind*155196%_ + __tmp171481)) + (_%lp154642%_ + _%rest154665%_ + (cons _%bind*155302%_ (let () (declare (not safe)) (__foldl1 cons - _%bind154539%_ - _%xbind155192%_))))))))))) + _%bind154645%_ + _%xbind155298%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__match170832170833%_ - (lambda (_%e155152155204%_ - _%hd155153155207%_ - _%tl155154155209%_) - (let ((_%L155212%_ - _%tl155154155209%_)) + (let ((_%__match170938170939%_ + (lambda (_%e155258155310%_ + _%hd155259155313%_ + _%tl155260155315%_) + (let ((_%L155318%_ + _%tl155260155315%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__andmap1 gxc#dispatch-lambda-form? _%L155212%_)) - (_%__kont170823170824%_ _%L155212%_) - (_%__kont170825170826%_ _%tl155154155209%_)))))) + (__andmap1 gxc#dispatch-lambda-form? _%L155318%_)) + (_%__kont170929170930%_ _%L155318%_) + (_%__kont170931170932%_ _%tl155260155315%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170821170822%_)) - (let ((_%e155152155204%_ + _%__stx170927170928%_)) + (let ((_%e155258155310%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%__stx170821170822%_)))) - (let ((_%tl155154155209%_ - (let () (declare (not safe)) (##cdr _%e155152155204%_))) - (_%hd155153155207%_ + (gx#stx-e _%__stx170927170928%_)))) + (let ((_%tl155260155315%_ + (let () (declare (not safe)) (##cdr _%e155258155310%_))) + (_%hd155259155313%_ (let () (declare (not safe)) - (##car _%e155152155204%_)))) - (_%__match170832170833%_ - _%e155152155204%_ - _%hd155153155207%_ - _%tl155154155209%_))) - (let () (declare (not safe)) (_%g155149155163%_)))))))) + (##car _%e155258155310%_)))) + (_%__match170938170939%_ + _%e155258155310%_ + _%hd155259155313%_ + _%tl155260155315%_))) + (let () (declare (not safe)) (_%g155255155269%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170845170846%_ - (lambda (_%L154960%_ _%L154961%_) - (let* ((_%g154975155005%_ - (lambda (_%g154976155002%_) + (_%__kont170951170952%_ + (lambda (_%L155066%_ _%L155067%_) + (let* ((_%g155081155111%_ + (lambda (_%g155082155108%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154976155002%_)))) - (_%g154974155101%_ - (lambda (_%g154976155008%_) + _%g155082155108%_)))) + (_%g155080155207%_ + (lambda (_%g155082155114%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154976155008%_)) - (let ((_%e154980155010%_ + _%g155082155114%_)) + (let ((_%e155086155116%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154976155008%_)))) - (let ((_%hd154981155013%_ + (gx#stx-e _%g155082155114%_)))) + (let ((_%hd155087155119%_ (let () (declare (not safe)) - (##car _%e154980155010%_))) - (_%tl154982155015%_ + (##car _%e155086155116%_))) + (_%tl155088155121%_ (let () (declare (not safe)) - (##cdr _%e154980155010%_)))) + (##cdr _%e155086155116%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154982155015%_)) - (let ((_%e154983155018%_ + (gx#stx-pair? _%tl155088155121%_)) + (let ((_%e155089155124%_ (let () (declare (not safe)) - (gx#stx-e _%tl154982155015%_)))) - (let ((_%hd154984155021%_ + (gx#stx-e _%tl155088155121%_)))) + (let ((_%hd155090155127%_ (let () (declare (not safe)) - (##car _%e154983155018%_))) - (_%tl154985155023%_ + (##car _%e155089155124%_))) + (_%tl155091155129%_ (let () (declare (not safe)) - (##cdr _%e154983155018%_)))) + (##cdr _%e155089155124%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154984155021%_)) - (let ((_%e154986155026%_ + (gx#stx-pair? _%hd155090155127%_)) + (let ((_%e155092155132%_ (let () (declare (not safe)) - (gx#stx-e _%hd154984155021%_)))) - (let ((_%hd154987155029%_ + (gx#stx-e _%hd155090155127%_)))) + (let ((_%hd155093155135%_ (let () (declare (not safe)) - (##car _%e154986155026%_))) - (_%tl154988155031%_ + (##car _%e155092155132%_))) + (_%tl155094155137%_ (let () (declare (not safe)) - (##cdr _%e154986155026%_)))) + (##cdr _%e155092155132%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154987155029%_)) - (let ((_%e154989155034%_ + (gx#stx-pair? _%hd155093155135%_)) + (let ((_%e155095155140%_ (let () (declare (not safe)) (gx#stx-e - _%hd154987155029%_)))) - (let ((_%hd154990155037%_ + _%hd155093155135%_)))) + (let ((_%hd155096155143%_ (let () (declare (not safe)) - (##car _%e154989155034%_))) - (_%tl154991155039%_ + (##car _%e155095155140%_))) + (_%tl155097155145%_ (let () (declare (not safe)) - (##cdr _%e154989155034%_)))) + (##cdr _%e155095155140%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154990155037%_)) - (let ((_%e154992155042%_ + _%hd155096155143%_)) + (let ((_%e155098155148%_ (let () (declare (not safe)) (gx#stx-e - _%hd154990155037%_)))) - (let ((_%hd154993155045%_ + _%hd155096155143%_)))) + (let ((_%hd155099155151%_ (let () (declare (not safe)) - (##car _%e154992155042%_))) - (_%tl154994155047%_ + (##car _%e155098155148%_))) + (_%tl155100155153%_ (let () (declare (not safe)) - (##cdr _%e154992155042%_)))) + (##cdr _%e155098155148%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154994155047%_)) + _%tl155100155153%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154991155039%_)) - (let ((_%e154995155050%_ + (gx#stx-pair? _%tl155097155145%_)) + (let ((_%e155101155156%_ (let () (declare (not safe)) - (gx#stx-e _%tl154991155039%_)))) - (let ((_%hd154996155053%_ + (gx#stx-e _%tl155097155145%_)))) + (let ((_%hd155102155159%_ (let () (declare (not safe)) - (##car _%e154995155050%_))) - (_%tl154997155055%_ + (##car _%e155101155156%_))) + (_%tl155103155161%_ (let () (declare (not safe)) - (##cdr _%e154995155050%_)))) + (##cdr _%e155101155156%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154997155055%_)) + (gx#stx-null? _%tl155103155161%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154988155031%_)) + (gx#stx-null? _%tl155094155137%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154985155023%_)) - (let ((_%e154998155058%_ + (gx#stx-pair? _%tl155091155129%_)) + (let ((_%e155104155164%_ (let () (declare (not safe)) - (gx#stx-e _%tl154985155023%_)))) - (let ((_%hd154999155061%_ + (gx#stx-e _%tl155091155129%_)))) + (let ((_%hd155105155167%_ (let () (declare (not safe)) - (##car _%e154998155058%_))) - (_%tl155000155063%_ + (##car _%e155104155164%_))) + (_%tl155106155169%_ (let () (declare (not safe)) - (##cdr _%e154998155058%_)))) + (##cdr _%e155104155164%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl155000155063%_)) - ((lambda (_%L155066%_ - _%L155067%_ - _%L155068%_) - (let* ((_%lambda-id155092%_ - (let ((__tmp171378 + _%tl155106155169%_)) + ((lambda (_%L155172%_ + _%L155173%_ + _%L155174%_) + (let* ((_%lambda-id155198%_ + (let ((__tmp171484 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%L154961%_))) - (__tmp171377 + (gx#stx-e _%L155067%_))) + (__tmp171483 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) - (make-symbol__1 __tmp171378 __tmp171377))) - (_%lambda-id155094%_ - (let ((__tmp171379 + (make-symbol__1 __tmp171484 __tmp171483))) + (_%lambda-id155200%_ + (let ((__tmp171485 (let () (declare (not safe)) - (gx#stx-source _%stx154396%_)))) + (gx#stx-source _%stx154502%_)))) (declare (not safe)) - (gx#core-quote-syntax__1 _%lambda-id155092%_ __tmp171379))) - (_%_155096%_ + (gx#core-quote-syntax__1 _%lambda-id155198%_ __tmp171485))) + (_%_155202%_ (let () (declare (not safe)) - (gx#core-bind-runtime!__0 _%lambda-id155094%_))) - (_%new-case-lambda-expr155098%_ + (gx#core-bind-runtime!__0 _%lambda-id155200%_))) + (_%new-case-lambda-expr155204%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L155068%_ - _%lambda-id155094%_ - _%L155066%_)))) + _%L155174%_ + _%lambda-id155200%_ + _%L155172%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp171381 + (let ((__tmp171487 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154961%_))) - (__tmp171380 + _%L155067%_))) + (__tmp171486 (let () (declare (not safe)) (gxc#identifier-symbol - _%lambda-id155094%_)))) + _%lambda-id155200%_)))) (declare (not safe)) (gxc#verbose '"lift opt-lambda dispatch " - __tmp171381 + __tmp171487 '" => " - __tmp171380)) - (_%lp154536%_ - (cons (_%bind-e__167997167998%_ - _%L154961%_ - _%new-case-lambda-expr155098%_ + __tmp171486)) + (_%lp154642%_ + (cons (_%bind-e__168103168104%_ + _%L155067%_ + _%new-case-lambda-expr155204%_ '#f) - _%rest154559%_) - (cons (_%bind-e__0__167999168000%_ - _%lambda-id155094%_ - _%L155067%_) - _%bind154539%_)))) - _%hd154999155061%_ - _%hd154996155053%_ - _%hd154993155045%_) - (_%g154975155005%_ - _%g154976155008%_)))) - (_%g154975155005%_ _%g154976155008%_)) - (_%g154975155005%_ _%g154976155008%_)) - (_%g154975155005%_ _%g154976155008%_)))) - (_%g154975155005%_ _%g154976155008%_)) - (_%g154975155005%_ _%g154976155008%_)))) + _%rest154665%_) + (cons (_%bind-e__0__168105168106%_ + _%lambda-id155200%_ + _%L155173%_) + _%bind154645%_)))) + _%hd155105155167%_ + _%hd155102155159%_ + _%hd155099155151%_) + (_%g155081155111%_ + _%g155082155114%_)))) + (_%g155081155111%_ _%g155082155114%_)) + (_%g155081155111%_ _%g155082155114%_)) + (_%g155081155111%_ _%g155082155114%_)))) + (_%g155081155111%_ _%g155082155114%_)) + (_%g155081155111%_ _%g155082155114%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154975155005%_ - _%g154976155008%_)))) - (_%g154975155005%_ - _%g154976155008%_)))) - (_%g154975155005%_ _%g154976155008%_)))) - (_%g154975155005%_ _%g154976155008%_)))) - (_%g154975155005%_ _%g154976155008%_))))) + (_%g155081155111%_ + _%g155082155114%_)))) + (_%g155081155111%_ + _%g155082155114%_)))) + (_%g155081155111%_ _%g155082155114%_)))) + (_%g155081155111%_ _%g155082155114%_)))) + (_%g155081155111%_ _%g155082155114%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154974155101%_ - _%L154960%_)))) - (_%__kont170847170848%_ - (lambda (_%L154682%_ _%L154683%_) - (let* ((_%g154697154750%_ - (lambda (_%g154698154747%_) + (_%g155080155207%_ + _%L155066%_)))) + (_%__kont170953170954%_ + (lambda (_%L154788%_ _%L154789%_) + (let* ((_%g154803154856%_ + (lambda (_%g154804154853%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154698154747%_)))) - (_%g154696154928%_ - (lambda (_%g154698154753%_) + _%g154804154853%_)))) + (_%g154802155034%_ + (lambda (_%g154804154859%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g154698154753%_)) - (let ((_%e154704154755%_ + _%g154804154859%_)) + (let ((_%e154810154861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%g154698154753%_)))) - (let ((_%hd154705154758%_ + (gx#stx-e _%g154804154859%_)))) + (let ((_%hd154811154864%_ (let () (declare (not safe)) - (##car _%e154704154755%_))) - (_%tl154706154760%_ + (##car _%e154810154861%_))) + (_%tl154812154866%_ (let () (declare (not safe)) - (##cdr _%e154704154755%_)))) + (##cdr _%e154810154861%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154706154760%_)) - (let ((_%e154707154763%_ + (gx#stx-pair? _%tl154812154866%_)) + (let ((_%e154813154869%_ (let () (declare (not safe)) - (gx#stx-e _%tl154706154760%_)))) - (let ((_%hd154708154766%_ + (gx#stx-e _%tl154812154866%_)))) + (let ((_%hd154814154872%_ (let () (declare (not safe)) - (##car _%e154707154763%_))) - (_%tl154709154768%_ + (##car _%e154813154869%_))) + (_%tl154815154874%_ (let () (declare (not safe)) - (##cdr _%e154707154763%_)))) + (##cdr _%e154813154869%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154708154766%_)) - (let ((_%e154710154771%_ + (gx#stx-pair? _%hd154814154872%_)) + (let ((_%e154816154877%_ (let () (declare (not safe)) - (gx#stx-e _%hd154708154766%_)))) - (let ((_%hd154711154774%_ + (gx#stx-e _%hd154814154872%_)))) + (let ((_%hd154817154880%_ (let () (declare (not safe)) - (##car _%e154710154771%_))) - (_%tl154712154776%_ + (##car _%e154816154877%_))) + (_%tl154818154882%_ (let () (declare (not safe)) - (##cdr _%e154710154771%_)))) + (##cdr _%e154816154877%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154711154774%_)) - (let ((_%e154713154779%_ + (gx#stx-pair? _%hd154817154880%_)) + (let ((_%e154819154885%_ (let () (declare (not safe)) (gx#stx-e - _%hd154711154774%_)))) - (let ((_%hd154714154782%_ + _%hd154817154880%_)))) + (let ((_%hd154820154888%_ (let () (declare (not safe)) - (##car _%e154713154779%_))) - (_%tl154715154784%_ + (##car _%e154819154885%_))) + (_%tl154821154890%_ (let () (declare (not safe)) - (##cdr _%e154713154779%_)))) + (##cdr _%e154819154885%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154714154782%_)) - (let ((_%e154716154787%_ + _%hd154820154888%_)) + (let ((_%e154822154893%_ (let () (declare (not safe)) (gx#stx-e - _%hd154714154782%_)))) - (let ((_%hd154717154790%_ + _%hd154820154888%_)))) + (let ((_%hd154823154896%_ (let () (declare (not safe)) - (##car _%e154716154787%_))) - (_%tl154718154792%_ + (##car _%e154822154893%_))) + (_%tl154824154898%_ (let () (declare (not safe)) - (##cdr _%e154716154787%_)))) + (##cdr _%e154822154893%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154718154792%_)) + _%tl154824154898%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl154715154784%_)) - (let ((_%e154719154795%_ + (gx#stx-pair? _%tl154821154890%_)) + (let ((_%e154825154901%_ (let () (declare (not safe)) - (gx#stx-e _%tl154715154784%_)))) - (let ((_%hd154720154798%_ + (gx#stx-e _%tl154821154890%_)))) + (let ((_%hd154826154904%_ (let () (declare (not safe)) - (##car _%e154719154795%_))) - (_%tl154721154800%_ + (##car _%e154825154901%_))) + (_%tl154827154906%_ (let () (declare (not safe)) - (##cdr _%e154719154795%_)))) + (##cdr _%e154825154901%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154720154798%_)) - (let ((_%e154722154803%_ + (gx#stx-pair? _%hd154826154904%_)) + (let ((_%e154828154909%_ (let () (declare (not safe)) - (gx#stx-e _%hd154720154798%_)))) - (let ((_%hd154723154806%_ + (gx#stx-e _%hd154826154904%_)))) + (let ((_%hd154829154912%_ (let () (declare (not safe)) - (##car _%e154722154803%_))) - (_%tl154724154808%_ + (##car _%e154828154909%_))) + (_%tl154830154914%_ (let () (declare (not safe)) - (##cdr _%e154722154803%_)))) + (##cdr _%e154828154909%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154724154808%_)) - (let ((_%e154725154811%_ + (gx#stx-pair? _%tl154830154914%_)) + (let ((_%e154831154917%_ (let () (declare (not safe)) - (gx#stx-e _%tl154724154808%_)))) - (let ((_%hd154726154814%_ + (gx#stx-e _%tl154830154914%_)))) + (let ((_%hd154832154920%_ (let () (declare (not safe)) - (##car _%e154725154811%_))) - (_%tl154727154816%_ + (##car _%e154831154917%_))) + (_%tl154833154922%_ (let () (declare (not safe)) - (##cdr _%e154725154811%_)))) + (##cdr _%e154831154917%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154726154814%_)) - (let ((_%e154728154819%_ + _%hd154832154920%_)) + (let ((_%e154834154925%_ (let () (declare (not safe)) (gx#stx-e - _%hd154726154814%_)))) - (let ((_%hd154729154822%_ + _%hd154832154920%_)))) + (let ((_%hd154835154928%_ (let () (declare (not safe)) - (##car _%e154728154819%_))) - (_%tl154730154824%_ + (##car _%e154834154925%_))) + (_%tl154836154930%_ (let () (declare (not safe)) - (##cdr _%e154728154819%_)))) + (##cdr _%e154834154925%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154729154822%_)) - (let ((_%e154731154827%_ + _%hd154835154928%_)) + (let ((_%e154837154933%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd154729154822%_)))) - (let ((_%hd154732154830%_ - (let () (declare (not safe)) (##car _%e154731154827%_))) - (_%tl154733154832%_ + (gx#stx-e _%hd154835154928%_)))) + (let ((_%hd154838154936%_ + (let () (declare (not safe)) (##car _%e154837154933%_))) + (_%tl154839154938%_ (let () (declare (not safe)) - (##cdr _%e154731154827%_)))) + (##cdr _%e154837154933%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154732154830%_)) - (let ((_%e154734154835%_ + (gx#stx-pair? _%hd154838154936%_)) + (let ((_%e154840154941%_ (let () (declare (not safe)) - (gx#stx-e _%hd154732154830%_)))) - (let ((_%hd154735154838%_ + (gx#stx-e _%hd154838154936%_)))) + (let ((_%hd154841154944%_ (let () (declare (not safe)) - (##car _%e154734154835%_))) - (_%tl154736154840%_ + (##car _%e154840154941%_))) + (_%tl154842154946%_ (let () (declare (not safe)) - (##cdr _%e154734154835%_)))) + (##cdr _%e154840154941%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154736154840%_)) + (gx#stx-null? _%tl154842154946%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154733154832%_)) - (let ((_%e154737154843%_ + (gx#stx-pair? _%tl154839154938%_)) + (let ((_%e154843154949%_ (let () (declare (not safe)) - (gx#stx-e _%tl154733154832%_)))) - (let ((_%hd154738154846%_ + (gx#stx-e _%tl154839154938%_)))) + (let ((_%hd154844154952%_ (let () (declare (not safe)) - (##car _%e154737154843%_))) - (_%tl154739154848%_ + (##car _%e154843154949%_))) + (_%tl154845154954%_ (let () (declare (not safe)) - (##cdr _%e154737154843%_)))) + (##cdr _%e154843154949%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154739154848%_)) + (gx#stx-null? _%tl154845154954%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154730154824%_)) + _%tl154836154930%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154727154816%_)) - (let ((_%e154740154851%_ + _%tl154833154922%_)) + (let ((_%e154846154957%_ (let () (declare (not safe)) (gx#stx-e - _%tl154727154816%_)))) - (let ((_%hd154741154854%_ + _%tl154833154922%_)))) + (let ((_%hd154847154960%_ (let () (declare (not safe)) - (##car _%e154740154851%_))) - (_%tl154742154856%_ + (##car _%e154846154957%_))) + (_%tl154848154962%_ (let () (declare (not safe)) - (##cdr _%e154740154851%_)))) + (##cdr _%e154846154957%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154742154856%_)) + _%tl154848154962%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl154721154800%_)) + (gx#stx-null? _%tl154827154906%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154712154776%_)) + (gx#stx-null? _%tl154818154882%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154709154768%_)) - (let ((_%e154743154859%_ + (gx#stx-pair? _%tl154815154874%_)) + (let ((_%e154849154965%_ (let () (declare (not safe)) - (gx#stx-e _%tl154709154768%_)))) - (let ((_%hd154744154862%_ + (gx#stx-e _%tl154815154874%_)))) + (let ((_%hd154850154968%_ (let () (declare (not safe)) - (##car _%e154743154859%_))) - (_%tl154745154864%_ + (##car _%e154849154965%_))) + (_%tl154851154970%_ (let () (declare (not safe)) - (##cdr _%e154743154859%_)))) + (##cdr _%e154849154965%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154745154864%_)) - ((lambda (_%L154867%_ - _%L154868%_ - _%L154869%_ - _%L154870%_ - _%L154871%_) - (let* ((_%get-kws-id154911%_ - (let ((__tmp171383 + (gx#stx-null? _%tl154851154970%_)) + ((lambda (_%L154973%_ + _%L154974%_ + _%L154975%_ + _%L154976%_ + _%L154977%_) + (let* ((_%get-kws-id155017%_ + (let ((__tmp171489 (let () (declare (not safe)) (gx#stx-e - _%L154683%_))) - (__tmp171382 + _%L154789%_))) + (__tmp171488 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171383 - __tmp171382))) - (_%get-kws-id154913%_ - (let ((__tmp171384 + __tmp171489 + __tmp171488))) + (_%get-kws-id155019%_ + (let ((__tmp171490 (let () (declare (not safe)) (gx#stx-source - _%stx154396%_)))) + _%stx154502%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%get-kws-id154911%_ - __tmp171384))) - (_%main-id154915%_ - (let ((__tmp171386 + _%get-kws-id155017%_ + __tmp171490))) + (_%main-id155021%_ + (let ((__tmp171492 (let () (declare (not safe)) (gx#stx-e - _%L154683%_))) - (__tmp171385 + _%L154789%_))) + (__tmp171491 (let () (declare (not safe)) (##gensym '__)))) (declare (not safe)) (make-symbol__1 - __tmp171386 - __tmp171385))) - (_%main-id154917%_ - (let ((__tmp171387 + __tmp171492 + __tmp171491))) + (_%main-id155023%_ + (let ((__tmp171493 (let () (declare (not safe)) (gx#stx-source - _%stx154396%_)))) + _%stx154502%_)))) (declare (not safe)) (gx#core-quote-syntax__1 - _%main-id154915%_ - __tmp171387))) - (_%_154919%_ + _%main-id155021%_ + __tmp171493))) + (_%_155025%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%get-kws-id154913%_))) - (_%_154921%_ + _%get-kws-id155019%_))) + (_%_155027%_ (let () (declare (not safe)) (gx#core-bind-runtime!__0 - _%main-id154917%_))) - (_%new-kw-dispatch154923%_ + _%main-id155023%_))) + (_%new-kw-dispatch155029%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154871%_ - _%get-kws-id154913%_ - _%L154867%_))) - (_%new-get-kws154925%_ + _%L154977%_ + _%get-kws-id155019%_ + _%L154973%_))) + (_%new-get-kws155031%_ (let () (declare (not safe)) (gxc#apply-expression-subst__% '#f - _%L154870%_ - _%main-id154917%_ - _%L154868%_)))) - (let ((__tmp171390 + _%L154976%_ + _%main-id155023%_ + _%L154974%_)))) + (let ((__tmp171496 (let () (declare (not safe)) (gxc#identifier-symbol - _%L154683%_))) - (__tmp171389 + _%L154789%_))) + (__tmp171495 (let () (declare (not safe)) (gxc#identifier-symbol - _%get-kws-id154913%_))) - (__tmp171388 + _%get-kws-id155019%_))) + (__tmp171494 (let () (declare (not safe)) (gxc#identifier-symbol - _%main-id154917%_)))) + _%main-id155023%_)))) (declare (not safe)) (gxc#verbose '"lift kw-lambda dispatch " - __tmp171390 + __tmp171496 '" => " - __tmp171389 + __tmp171495 '" => " - __tmp171388)) - (_%lp154536%_ - (cons (_%bind-e__167997167998%_ - _%main-id154917%_ - _%L154869%_ + __tmp171494)) + (_%lp154642%_ + (cons (_%bind-e__168103168104%_ + _%main-id155023%_ + _%L154975%_ '#f) - (cons (_%bind-e__167997167998%_ - _%get-kws-id154913%_ - _%new-get-kws154925%_ + (cons (_%bind-e__168103168104%_ + _%get-kws-id155019%_ + _%new-get-kws155031%_ '#f) - (cons (_%bind-e__167997167998%_ - _%L154683%_ - _%new-kw-dispatch154923%_ + (cons (_%bind-e__168103168104%_ + _%L154789%_ + _%new-kw-dispatch155029%_ '#f) - _%rest154559%_))) - _%bind154539%_))) - _%hd154744154862%_ - _%hd154741154854%_ - _%hd154738154846%_ - _%hd154735154838%_ - _%hd154717154790%_) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)) - (_%g154697154750%_ _%g154698154753%_)) - (_%g154697154750%_ _%g154698154753%_)) - (_%g154697154750%_ _%g154698154753%_)))) + _%rest154665%_))) + _%bind154645%_))) + _%hd154850154968%_ + _%hd154847154960%_ + _%hd154844154952%_ + _%hd154841154944%_ + _%hd154823154896%_) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)) + (_%g154803154856%_ _%g154804154859%_)) + (_%g154803154856%_ _%g154804154859%_)) + (_%g154803154856%_ _%g154804154859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154697154750%_ - _%g154698154753%_)) - (_%g154697154750%_ - _%g154698154753%_)) - (_%g154697154750%_ - _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) + (_%g154803154856%_ + _%g154804154859%_)) + (_%g154803154856%_ + _%g154804154859%_)) + (_%g154803154856%_ + _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154697154750%_ - _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)) - (_%g154697154750%_ _%g154698154753%_)))) + (_%g154803154856%_ + _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)) + (_%g154803154856%_ _%g154804154859%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154697154750%_ - _%g154698154753%_)))) - (_%g154697154750%_ - _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_)))) - (_%g154697154750%_ _%g154698154753%_))))) + (_%g154803154856%_ + _%g154804154859%_)))) + (_%g154803154856%_ + _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_)))) + (_%g154803154856%_ _%g154804154859%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g154696154928%_ - _%L154682%_)))) - (_%__kont170849170850%_ - (lambda (_%L154633%_ _%L154634%_) - (_%lp154536%_ - _%rest154559%_ - (cons (cons _%L154634%_ + (_%g154802155034%_ + _%L154788%_)))) + (_%__kont170955170956%_ + (lambda (_%L154739%_ _%L154740%_) + (_%lp154642%_ + _%rest154665%_ + (cons (cons _%L154740%_ (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gxc#compile-e__1 _%self154395%_ _%L154633%_)) + (gxc#compile-e__1 _%self154501%_ _%L154739%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind154539%_))))) - (let* ((_%__match170916170917%_ - (lambda (_%e154591154658%_ - _%hd154592154661%_ - _%tl154593154663%_ - _%e154594154666%_ - _%hd154595154669%_ - _%tl154596154671%_ - _%e154597154674%_ - _%hd154598154677%_ - _%tl154599154679%_) - (let ((_%L154682%_ - _%hd154598154677%_) - (_%L154683%_ - _%hd154595154669%_)) + _%bind154645%_))))) + (let* ((_%__match171022171023%_ + (lambda (_%e154697154764%_ + _%hd154698154767%_ + _%tl154699154769%_ + _%e154700154772%_ + _%hd154701154775%_ + _%tl154702154777%_ + _%e154703154780%_ + _%hd154704154783%_ + _%tl154705154785%_) + (let ((_%L154788%_ + _%hd154704154783%_) + (_%L154789%_ + _%hd154701154775%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154683%_)) + _%L154789%_)) (gxc#kw-lambda-expr? - _%L154682%_)) - (_%__kont170847170848%_ - _%L154682%_ - _%L154683%_) - (_%__kont170849170850%_ - _%hd154598154677%_ - _%hd154592154661%_))))) - (_%__match170894170895%_ - (lambda (_%e154580154936%_ - _%hd154581154939%_ - _%tl154582154941%_ - _%e154583154944%_ - _%hd154584154947%_ - _%tl154585154949%_ - _%e154586154952%_ - _%hd154587154955%_ - _%tl154588154957%_) - (let ((_%L154960%_ - _%hd154587154955%_) - (_%L154961%_ - _%hd154584154947%_)) + _%L154788%_)) + (_%__kont170953170954%_ + _%L154788%_ + _%L154789%_) + (_%__kont170955170956%_ + _%hd154704154783%_ + _%hd154698154767%_))))) + (_%__match171000171001%_ + (lambda (_%e154686155042%_ + _%hd154687155045%_ + _%tl154688155047%_ + _%e154689155050%_ + _%hd154690155053%_ + _%tl154691155055%_ + _%e154692155058%_ + _%hd154693155061%_ + _%tl154694155063%_) + (let ((_%L155066%_ + _%hd154693155061%_) + (_%L155067%_ + _%hd154690155053%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L154961%_)) + _%L155067%_)) (gxc#opt-lambda-expr? - _%L154960%_)) - (_%__kont170845170846%_ - _%L154960%_ - _%L154961%_) - (_%__match170916170917%_ - _%e154580154936%_ - _%hd154581154939%_ - _%tl154582154941%_ - _%e154583154944%_ - _%hd154584154947%_ - _%tl154585154949%_ - _%e154586154952%_ - _%hd154587154955%_ - _%tl154588154957%_))))) - (_%__match170872170873%_ - (lambda (_%e154569155109%_ - _%hd154570155112%_ - _%tl154571155114%_ - _%e154572155117%_ - _%hd154573155120%_ - _%tl154574155122%_ - _%e154575155125%_ - _%hd154576155128%_ - _%tl154577155130%_) - (let ((_%L155133%_ - _%hd154576155128%_) - (_%L155134%_ - _%hd154573155120%_)) + _%L155066%_)) + (_%__kont170951170952%_ + _%L155066%_ + _%L155067%_) + (_%__match171022171023%_ + _%e154686155042%_ + _%hd154687155045%_ + _%tl154688155047%_ + _%e154689155050%_ + _%hd154690155053%_ + _%tl154691155055%_ + _%e154692155058%_ + _%hd154693155061%_ + _%tl154694155063%_))))) + (_%__match170978170979%_ + (lambda (_%e154675155215%_ + _%hd154676155218%_ + _%tl154677155220%_ + _%e154678155223%_ + _%hd154679155226%_ + _%tl154680155228%_ + _%e154681155231%_ + _%hd154682155234%_ + _%tl154683155236%_) + (let ((_%L155239%_ + _%hd154682155234%_) + (_%L155240%_ + _%hd154679155226%_)) (if (and (let () (declare (not safe)) (gx#identifier? - _%L155134%_)) + _%L155240%_)) (gxc#case-lambda-expr? - _%L155133%_)) - (_%__kont170843170844%_ - _%L155133%_ - _%L155134%_) - (_%__match170894170895%_ - _%e154569155109%_ - _%hd154570155112%_ - _%tl154571155114%_ - _%e154572155117%_ - _%hd154573155120%_ - _%tl154574155122%_ - _%e154575155125%_ - _%hd154576155128%_ - _%tl154577155130%_)))))) + _%L155239%_)) + (_%__kont170949170950%_ + _%L155239%_ + _%L155240%_) + (_%__match171000171001%_ + _%e154675155215%_ + _%hd154676155218%_ + _%tl154677155220%_ + _%e154678155223%_ + _%hd154679155226%_ + _%tl154680155228%_ + _%e154681155231%_ + _%hd154682155234%_ + _%tl154683155236%_)))))) (if (let () (declare (not safe)) (gx#stx-pair? - _%__stx170841170842%_)) - (let ((_%e154569155109%_ + _%__stx170947170948%_)) + (let ((_%e154675155215%_ (let () (declare (not safe)) (gx#stx-e - _%__stx170841170842%_)))) - (let ((_%tl154571155114%_ + _%__stx170947170948%_)))) + (let ((_%tl154677155220%_ (let () (declare (not safe)) - (##cdr _%e154569155109%_))) - (_%hd154570155112%_ + (##cdr _%e154675155215%_))) + (_%hd154676155218%_ (let () (declare (not safe)) - (##car _%e154569155109%_)))) + (##car _%e154675155215%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154570155112%_)) - (let ((_%e154572155117%_ + _%hd154676155218%_)) + (let ((_%e154678155223%_ (let () (declare (not safe)) (gx#stx-e - _%hd154570155112%_)))) - (let ((_%tl154574155122%_ + _%hd154676155218%_)))) + (let ((_%tl154680155228%_ (let () (declare (not safe)) - (##cdr _%e154572155117%_))) - (_%hd154573155120%_ + (##cdr _%e154678155223%_))) + (_%hd154679155226%_ (let () (declare (not safe)) - (##car _%e154572155117%_)))) + (##car _%e154678155223%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154574155122%_)) + _%tl154680155228%_)) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl154571155114%_)) - (let ((_%e154575155125%_ + (gx#stx-pair? _%tl154677155220%_)) + (let ((_%e154681155231%_ (let () (declare (not safe)) - (gx#stx-e _%tl154571155114%_)))) - (let ((_%tl154577155130%_ + (gx#stx-e _%tl154677155220%_)))) + (let ((_%tl154683155236%_ (let () (declare (not safe)) - (##cdr _%e154575155125%_))) - (_%hd154576155128%_ + (##cdr _%e154681155231%_))) + (_%hd154682155234%_ (let () (declare (not safe)) - (##car _%e154575155125%_)))) + (##car _%e154681155231%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154577155130%_)) - (_%__match170872170873%_ - _%e154569155109%_ - _%hd154570155112%_ - _%tl154571155114%_ - _%e154572155117%_ - _%hd154573155120%_ - _%tl154574155122%_ - _%e154575155125%_ - _%hd154576155128%_ - _%tl154577155130%_) + (gx#stx-null? _%tl154683155236%_)) + (_%__match170978170979%_ + _%e154675155215%_ + _%hd154676155218%_ + _%tl154677155220%_ + _%e154678155223%_ + _%hd154679155226%_ + _%tl154680155228%_ + _%e154681155231%_ + _%hd154682155234%_ + _%tl154683155236%_) (let () (declare (not safe)) - (_%g154565154612%_))))) - (let () (declare (not safe)) (_%g154565154612%_))) + (_%g154671154718%_))))) + (let () (declare (not safe)) (_%g154671154718%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154571155114%_)) - (let ((_%e154605154625%_ + (gx#stx-pair? _%tl154677155220%_)) + (let ((_%e154711154731%_ (let () (declare (not safe)) - (gx#stx-e _%tl154571155114%_)))) - (let ((_%tl154607154630%_ + (gx#stx-e _%tl154677155220%_)))) + (let ((_%tl154713154736%_ (let () (declare (not safe)) - (##cdr _%e154605154625%_))) - (_%hd154606154628%_ + (##cdr _%e154711154731%_))) + (_%hd154712154734%_ (let () (declare (not safe)) - (##car _%e154605154625%_)))) + (##car _%e154711154731%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154607154630%_)) - (_%__kont170849170850%_ - _%hd154606154628%_ - _%hd154570155112%_) + (gx#stx-null? _%tl154713154736%_)) + (_%__kont170955170956%_ + _%hd154712154734%_ + _%hd154676155218%_) (let () (declare (not safe)) - (_%g154565154612%_))))) - (let () (declare (not safe)) (_%g154565154612%_)))))) + (_%g154671154718%_))))) + (let () (declare (not safe)) (_%g154671154718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154571155114%_)) - (let ((_%e154605154625%_ + _%tl154677155220%_)) + (let ((_%e154711154731%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl154571155114%_)))) - (let ((_%tl154607154630%_ + (gx#stx-e _%tl154677155220%_)))) + (let ((_%tl154713154736%_ (let () (declare (not safe)) - (##cdr _%e154605154625%_))) - (_%hd154606154628%_ + (##cdr _%e154711154731%_))) + (_%hd154712154734%_ (let () (declare (not safe)) - (##car _%e154605154625%_)))) + (##car _%e154711154731%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154607154630%_)) - (_%__kont170849170850%_ - _%hd154606154628%_ - _%hd154570155112%_) - (let () (declare (not safe)) (_%g154565154612%_))))) - (let () (declare (not safe)) (_%g154565154612%_)))))) + (gx#stx-null? _%tl154713154736%_)) + (_%__kont170955170956%_ + _%hd154712154734%_ + _%hd154676155218%_) + (let () (declare (not safe)) (_%g154671154718%_))))) + (let () (declare (not safe)) (_%g154671154718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g154565154612%_))))))))) - (if (pair? _%rest154540154548%_) - (let ((_%hd154545155230%_ + (_%g154671154718%_))))))))) + (if (pair? _%rest154646154654%_) + (let ((_%hd154651155336%_ (let () (declare (not safe)) - (##car _%rest154540154548%_))) - (_%tl154546155232%_ + (##car _%rest154646154654%_))) + (_%tl154652155338%_ (let () (declare (not safe)) - (##cdr _%rest154540154548%_)))) - (let* ((_%hd155235%_ _%hd154545155230%_) - (_%rest155237%_ _%tl154546155232%_)) - (_%K154544155227%_ - _%rest155237%_ - _%hd155235%_))) - (_%else154542154556%_))))))) - (let* ((_%__stx170933170934%_ _%stx154396%_) - (_%g154402154429%_ + (##cdr _%rest154646154654%_)))) + (let* ((_%hd155341%_ _%hd154651155336%_) + (_%rest155343%_ _%tl154652155338%_)) + (_%K154650155333%_ + _%rest155343%_ + _%hd155341%_))) + (_%else154648154662%_))))))) + (let* ((_%__stx171039171040%_ _%stx154502%_) + (_%g154508154535%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170933170934%_))))) - (let ((_%__kont170935170936%_ - (lambda (_%L154489%_ _%L154490%_ _%L154491%_) - (let ((__tmp171392 + _%__stx171039171040%_))))) + (let ((_%__kont171041171042%_ + (lambda (_%L154595%_ _%L154596%_ _%L154597%_) + (let ((__tmp171498 (lambda () - (let ((_%hd154528%_ - (_%compile-bindings154399%_ - (let ((__tmp171393 - (lambda (_%g154520154523%_ - _%g154521154525%_) - (cons _%g154520154523%_ - _%g154521154525%_)))) + (let ((_%hd154634%_ + (_%compile-bindings154505%_ + (let ((__tmp171499 + (lambda (_%g154626154629%_ + _%g154627154631%_) + (cons _%g154626154629%_ + _%g154627154631%_)))) (declare (not safe)) (__foldr1 - __tmp171393 + __tmp171499 '() - _%L154490%_)))) - (_%body154529%_ + _%L154596%_)))) + (_%body154635%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self154395%_ - _%L154489%_)))) - (let ((__tmp171394 - (cons _%L154491%_ - (cons _%hd154528%_ - (cons _%body154529%_ + _%self154501%_ + _%L154595%_)))) + (let ((__tmp171500 + (cons _%L154597%_ + (cons _%hd154634%_ + (cons _%body154635%_ '()))))) (declare (not safe)) (gxc#xform-wrap-source - __tmp171394 - _%stx154396%_))))) - (__tmp171391 - (let ((__obj171045 + __tmp171500 + _%stx154502%_))))) + (__tmp171497 + (let ((__obj171151 (let () (declare (not safe)) (##structure @@ -24298,249 +24298,249 @@ '#f)))) (let () (declare (not safe)) - (gx#local-context:::init!__0 __obj171045)) - __obj171045))) + (gx#local-context:::init!__0 __obj171151)) + __obj171151))) (declare (not safe)) (__call-with-parameters - __tmp171392 + __tmp171498 gx#current-expander-context - __tmp171391)))) - (_%__kont170939170940%_ + __tmp171497)))) + (_%__kont171045171046%_ (lambda () (let () (declare (not safe)) - (gxc#xform-let-values% _%self154395%_ _%stx154396%_))))) - (let ((_%__match170960170961%_ - (lambda (_%e154407154441%_ - _%hd154408154444%_ - _%tl154409154446%_ - _%e154410154449%_ - _%hd154411154452%_ - _%tl154412154454%_ - _%__splice170937170938%_ - _%target154413154457%_ - _%tl154415154459%_) - (letrec ((_%loop154416154462%_ - (lambda (_%hd154414154465%_ - _%bind154420154467%_) + (gxc#xform-let-values% _%self154501%_ _%stx154502%_))))) + (let ((_%__match171066171067%_ + (lambda (_%e154513154547%_ + _%hd154514154550%_ + _%tl154515154552%_ + _%e154516154555%_ + _%hd154517154558%_ + _%tl154518154560%_ + _%__splice171043171044%_ + _%target154519154563%_ + _%tl154521154565%_) + (letrec ((_%loop154522154568%_ + (lambda (_%hd154520154571%_ + _%bind154526154573%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154414154465%_)) - (let ((_%e154417154470%_ + (gx#stx-pair? _%hd154520154571%_)) + (let ((_%e154523154576%_ (let () (declare (not safe)) (gx#stx-e - _%hd154414154465%_)))) - (let ((_%lp-tl154419154475%_ + _%hd154520154571%_)))) + (let ((_%lp-tl154525154581%_ (let () (declare (not safe)) - (##cdr _%e154417154470%_))) - (_%lp-hd154418154473%_ + (##cdr _%e154523154576%_))) + (_%lp-hd154524154579%_ (let () (declare (not safe)) - (##car _%e154417154470%_)))) - (_%loop154416154462%_ - _%lp-tl154419154475%_ - (cons _%lp-hd154418154473%_ - _%bind154420154467%_)))) - (let ((_%bind154421154478%_ - (reverse _%bind154420154467%_))) + (##car _%e154523154576%_)))) + (_%loop154522154568%_ + _%lp-tl154525154581%_ + (cons _%lp-hd154524154579%_ + _%bind154526154573%_)))) + (let ((_%bind154527154584%_ + (reverse _%bind154526154573%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl154412154454%_)) - (let ((_%e154422154481%_ + _%tl154518154560%_)) + (let ((_%e154528154587%_ (let () (declare (not safe)) (gx#stx-e - _%tl154412154454%_)))) - (let ((_%tl154424154486%_ + _%tl154518154560%_)))) + (let ((_%tl154530154592%_ (let () (declare (not safe)) - (##cdr _%e154422154481%_))) - (_%hd154423154484%_ + (##cdr _%e154528154587%_))) + (_%hd154529154590%_ (let () (declare (not safe)) - (##car _%e154422154481%_)))) + (##car _%e154528154587%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154424154486%_)) - (let ((_%L154489%_ - _%hd154423154484%_) - (_%L154490%_ - _%bind154421154478%_) - (_%L154491%_ - _%hd154408154444%_)) - (if (let ((__tmp171395 + _%tl154530154592%_)) + (let ((_%L154595%_ + _%hd154529154590%_) + (_%L154596%_ + _%bind154527154584%_) + (_%L154597%_ + _%hd154514154550%_)) + (if (let ((__tmp171501 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp171396 - (lambda (_%g154512154515%_ _%g154513154517%_) - (cons _%g154512154515%_ - _%g154513154517%_)))) + (let ((__tmp171502 + (lambda (_%g154618154621%_ _%g154619154623%_) + (cons _%g154618154621%_ + _%g154619154623%_)))) (declare (not safe)) - (__foldr1 __tmp171396 '() _%L154490%_)))) + (__foldr1 __tmp171502 '() _%L154596%_)))) (declare (not safe)) - (__ormap1 gxc#lift-top-lambda-binding? __tmp171395)) - (_%__kont170935170936%_ _%L154489%_ _%L154490%_ _%L154491%_) - (_%__kont170939170940%_))) + (__ormap1 gxc#lift-top-lambda-binding? __tmp171501)) + (_%__kont171041171042%_ _%L154595%_ _%L154596%_ _%L154597%_) + (_%__kont171045171046%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont170939170940%_)))) - (_%__kont170939170940%_))))))) - (_%loop154416154462%_ _%target154413154457%_ '()))))) + (_%__kont171045171046%_)))) + (_%__kont171045171046%_))))))) + (_%loop154522154568%_ _%target154519154563%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170933170934%_)) - (let ((_%e154407154441%_ + (gx#stx-pair? _%__stx171039171040%_)) + (let ((_%e154513154547%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170933170934%_)))) - (let ((_%tl154409154446%_ + (gx#stx-e _%__stx171039171040%_)))) + (let ((_%tl154515154552%_ (let () (declare (not safe)) - (##cdr _%e154407154441%_))) - (_%hd154408154444%_ + (##cdr _%e154513154547%_))) + (_%hd154514154550%_ (let () (declare (not safe)) - (##car _%e154407154441%_)))) + (##car _%e154513154547%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154409154446%_)) - (let ((_%e154410154449%_ + (gx#stx-pair? _%tl154515154552%_)) + (let ((_%e154516154555%_ (let () (declare (not safe)) - (gx#stx-e _%tl154409154446%_)))) - (let ((_%tl154412154454%_ + (gx#stx-e _%tl154515154552%_)))) + (let ((_%tl154518154560%_ (let () (declare (not safe)) - (##cdr _%e154410154449%_))) - (_%hd154411154452%_ + (##cdr _%e154516154555%_))) + (_%hd154517154558%_ (let () (declare (not safe)) - (##car _%e154410154449%_)))) + (##car _%e154516154555%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd154411154452%_)) - (let ((_%__splice170937170938%_ + (gx#stx-pair/null? _%hd154517154558%_)) + (let ((_%__splice171043171044%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd154411154452%_ + _%hd154517154558%_ '0)))) - (let ((_%tl154415154459%_ + (let ((_%tl154521154565%_ (let () (declare (not safe)) (##vector-ref - _%__splice170937170938%_ + _%__splice171043171044%_ '1))) - (_%target154413154457%_ + (_%target154519154563%_ (let () (declare (not safe)) (##vector-ref - _%__splice170937170938%_ + _%__splice171043171044%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154415154459%_)) - (_%__match170960170961%_ - _%e154407154441%_ - _%hd154408154444%_ - _%tl154409154446%_ - _%e154410154449%_ - _%hd154411154452%_ - _%tl154412154454%_ - _%__splice170937170938%_ - _%target154413154457%_ - _%tl154415154459%_) - (_%__kont170939170940%_)))) - (_%__kont170939170940%_)))) - (_%__kont170939170940%_)))) - (_%__kont170939170940%_)))))))) + _%tl154521154565%_)) + (_%__match171066171067%_ + _%e154513154547%_ + _%hd154514154550%_ + _%tl154515154552%_ + _%e154516154555%_ + _%hd154517154558%_ + _%tl154518154560%_ + _%__splice171043171044%_ + _%target154519154563%_ + _%tl154521154565%_) + (_%__kont171045171046%_)))) + (_%__kont171045171046%_)))) + (_%__kont171045171046%_)))) + (_%__kont171045171046%_)))))))) (define gxc#lift-top-lambda-binding? - (lambda (_%bind154313%_) - (let* ((_%__stx170963170964%_ _%bind154313%_) - (_%g154316154333%_ + (lambda (_%bind154419%_) + (let* ((_%__stx171069171070%_ _%bind154419%_) + (_%g154422154439%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx170963170964%_))))) - (let ((_%__kont170965170966%_ - (lambda (_%L154369%_ _%L154370%_) + _%__stx171069171070%_))))) + (let ((_%__kont171071171072%_ + (lambda (_%L154475%_ _%L154476%_) (if (let () (declare (not safe)) - (gx#identifier? _%L154370%_)) - (let ((_%$e154386%_ - (gxc#case-lambda-expr? _%L154369%_))) - (if _%$e154386%_ - _%$e154386%_ - (let ((_%$e154389%_ - (gxc#opt-lambda-expr? _%L154369%_))) - (if _%$e154389%_ - _%$e154389%_ - (gxc#kw-lambda-expr? _%L154369%_))))) + (gx#identifier? _%L154476%_)) + (let ((_%$e154492%_ + (gxc#case-lambda-expr? _%L154475%_))) + (if _%$e154492%_ + _%$e154492%_ + (let ((_%$e154495%_ + (gxc#opt-lambda-expr? _%L154475%_))) + (if _%$e154495%_ + _%$e154495%_ + (gxc#kw-lambda-expr? _%L154475%_))))) '#f))) - (_%__kont170967170968%_ (lambda () '#f))) + (_%__kont171073171074%_ (lambda () '#f))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx170963170964%_)) - (let ((_%e154320154345%_ + (gx#stx-pair? _%__stx171069171070%_)) + (let ((_%e154426154451%_ (let () (declare (not safe)) - (gx#stx-e _%__stx170963170964%_)))) - (let ((_%tl154322154350%_ + (gx#stx-e _%__stx171069171070%_)))) + (let ((_%tl154428154456%_ (let () (declare (not safe)) - (##cdr _%e154320154345%_))) - (_%hd154321154348%_ + (##cdr _%e154426154451%_))) + (_%hd154427154454%_ (let () (declare (not safe)) - (##car _%e154320154345%_)))) + (##car _%e154426154451%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd154321154348%_)) - (let ((_%e154323154353%_ + (gx#stx-pair? _%hd154427154454%_)) + (let ((_%e154429154459%_ (let () (declare (not safe)) - (gx#stx-e _%hd154321154348%_)))) - (let ((_%tl154325154358%_ + (gx#stx-e _%hd154427154454%_)))) + (let ((_%tl154431154464%_ (let () (declare (not safe)) - (##cdr _%e154323154353%_))) - (_%hd154324154356%_ + (##cdr _%e154429154459%_))) + (_%hd154430154462%_ (let () (declare (not safe)) - (##car _%e154323154353%_)))) + (##car _%e154429154459%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154325154358%_)) + (gx#stx-null? _%tl154431154464%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154322154350%_)) - (let ((_%e154326154361%_ + (gx#stx-pair? _%tl154428154456%_)) + (let ((_%e154432154467%_ (let () (declare (not safe)) - (gx#stx-e _%tl154322154350%_)))) - (let ((_%tl154328154366%_ + (gx#stx-e _%tl154428154456%_)))) + (let ((_%tl154434154472%_ (let () (declare (not safe)) - (##cdr _%e154326154361%_))) - (_%hd154327154364%_ + (##cdr _%e154432154467%_))) + (_%hd154433154470%_ (let () (declare (not safe)) - (##car _%e154326154361%_)))) + (##car _%e154432154467%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl154328154366%_)) - (_%__kont170965170966%_ - _%hd154327154364%_ - _%hd154324154356%_) - (_%__kont170967170968%_)))) - (_%__kont170967170968%_)) - (_%__kont170967170968%_)))) - (_%__kont170967170968%_)))) - (_%__kont170967170968%_)))))))) + _%tl154434154472%_)) + (_%__kont171071171072%_ + _%hd154433154470%_ + _%hd154430154462%_) + (_%__kont171073171074%_)))) + (_%__kont171073171074%_)) + (_%__kont171073171074%_)))) + (_%__kont171073171074%_)))) + (_%__kont171073171074%_)))))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-top~1.scm b/src/bootstrap/gerbil/compiler/optimize-top~1.scm index 9bac0d913..f287891f8 100644 --- a/src/bootstrap/gerbil/compiler/optimize-top~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-top~1.scm @@ -1,237 +1,237 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g171398_| + (define |gxc[1]#_g171504_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171400_| + (define |gxc[1]#_g171506_| (##structure gx#syntax-quote::t '::collect-top-level-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171402_| + (define |gxc[1]#_g171508_| (##structure gx#syntax-quote::t 'make-::collect-top-level-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171404_| + (define |gxc[1]#_g171510_| (##structure gx#syntax-quote::t '::collect-top-level-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171407_| + (define |gxc[1]#_g171513_| (##structure gx#syntax-quote::t '::collect-top-level-declarations::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171409_| + (define |gxc[1]#_g171515_| (##structure gx#syntax-quote::t 'make-::collect-top-level-declarations #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171411_| + (define |gxc[1]#_g171517_| (##structure gx#syntax-quote::t '::collect-top-level-declarations? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171413_| + (define |gxc[1]#_g171519_| (##structure gx#syntax-quote::t '::false #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171415_| + (define |gxc[1]#_g171521_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171417_| + (define |gxc[1]#_g171523_| (##structure gx#syntax-quote::t 'make-::basic-expression-top-level-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171419_| + (define |gxc[1]#_g171525_| (##structure gx#syntax-quote::t '::basic-expression-top-level-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171422_| + (define |gxc[1]#_g171528_| (##structure gx#syntax-quote::t '::collect-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171424_| + (define |gxc[1]#_g171530_| (##structure gx#syntax-quote::t 'make-::collect-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171426_| + (define |gxc[1]#_g171532_| (##structure gx#syntax-quote::t '::collect-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171429_| + (define |gxc[1]#_g171535_| (##structure gx#syntax-quote::t '::collect-mutable-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171431_| + (define |gxc[1]#_g171537_| (##structure gx#syntax-quote::t 'make-::collect-mutable-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171433_| + (define |gxc[1]#_g171539_| (##structure gx#syntax-quote::t '::collect-mutable-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171436_| + (define |gxc[1]#_g171542_| (##structure gx#syntax-quote::t '::refine-type-info::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171438_| + (define |gxc[1]#_g171544_| (##structure gx#syntax-quote::t 'make-::refine-type-info #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171440_| + (define |gxc[1]#_g171546_| (##structure gx#syntax-quote::t '::refine-type-info? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171443_| + (define |gxc[1]#_g171549_| (##structure gx#syntax-quote::t '::raw-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171445_| + (define |gxc[1]#_g171551_| (##structure gx#syntax-quote::t 'make-::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171447_| + (define |gxc[1]#_g171553_| (##structure gx#syntax-quote::t '::raw-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171449_| + (define |gxc[1]#_g171555_| (##structure gx#syntax-quote::t '::raw-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171451_| + (define |gxc[1]#_g171557_| (##structure gx#syntax-quote::t '::basic-expression-type::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171453_| + (define |gxc[1]#_g171559_| (##structure gx#syntax-quote::t 'make-::basic-expression-type #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171455_| + (define |gxc[1]#_g171561_| (##structure gx#syntax-quote::t '::basic-expression-type? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171457_| + (define |gxc[1]#_g171563_| (##structure gx#syntax-quote::t '::basic-xform #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171459_| + (define |gxc[1]#_g171565_| (##structure gx#syntax-quote::t '::lift-top-lambdas::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171461_| + (define |gxc[1]#_g171567_| (##structure gx#syntax-quote::t 'make-::lift-top-lambdas #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171463_| + (define |gxc[1]#_g171569_| (##structure gx#syntax-quote::t '::lift-top-lambdas? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171466_| + (define |gxc[1]#_g171572_| (##structure gx#syntax-quote::t '::extract-lambda-signature::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171468_| + (define |gxc[1]#_g171574_| (##structure gx#syntax-quote::t 'make-::extract-lambda-signature #f (gx#current-expander-context) '())) - (define |gxc[1]#_g171470_| + (define |gxc[1]#_g171576_| (##structure gx#syntax-quote::t '::extract-lambda-signature? @@ -240,7 +240,7 @@ '())) (begin (define |gxc[:0:]#::collect-top-level-type-info| - (let ((__obj170992 + (let ((__obj171098 (let () (declare (not safe)) (##structure @@ -269,7 +269,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170992 + __obj171098 'gxc#::collect-top-level-type-info::t '1 '#f @@ -277,65 +277,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170992 + __obj171098 '::collect-top-level-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '6 '#f '#f)) - (let ((__tmp171397 (cons |gxc[1]#_g171398_| '()))) + (##unchecked-structure-set! __obj171098 '() '6 '#f '#f)) + (let ((__tmp171503 (cons |gxc[1]#_g171504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170992 __tmp171397 '3 '#f '#f)) + (##unchecked-structure-set! __obj171098 __tmp171503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171098 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171098 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171098 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '#f '11 '#f '#f)) - (let ((__tmp171399 |gxc[1]#_g171400_|)) + (##unchecked-structure-set! __obj171098 '#f '11 '#f '#f)) + (let ((__tmp171505 |gxc[1]#_g171506_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170992 __tmp171399 '12 '#f '#f)) - (let ((__tmp171401 |gxc[1]#_g171402_|)) + (##unchecked-structure-set! __obj171098 __tmp171505 '12 '#f '#f)) + (let ((__tmp171507 |gxc[1]#_g171508_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170992 __tmp171401 '13 '#f '#f)) - (let ((__tmp171403 |gxc[1]#_g171404_|)) + (##unchecked-structure-set! __obj171098 __tmp171507 '13 '#f '#f)) + (let ((__tmp171509 |gxc[1]#_g171510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170992 __tmp171403 '14 '#f '#f)) + (##unchecked-structure-set! __obj171098 __tmp171509 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171098 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170992 '() '20 '#f '#f)) - __obj170992)) + (##unchecked-structure-set! __obj171098 '() '20 '#f '#f)) + __obj171098)) (define |gxc[:0:]#::collect-top-level-declarations| - (let ((__obj170994 + (let ((__obj171100 (let () (declare (not safe)) (##structure @@ -364,7 +364,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170994 + __obj171100 'gxc#::collect-top-level-declarations::t '1 '#f @@ -372,65 +372,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170994 + __obj171100 '::collect-top-level-declarations '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '6 '#f '#f)) - (let ((__tmp171405 (cons |gxc[1]#_g171398_| '()))) + (##unchecked-structure-set! __obj171100 '() '6 '#f '#f)) + (let ((__tmp171511 (cons |gxc[1]#_g171504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170994 __tmp171405 '3 '#f '#f)) + (##unchecked-structure-set! __obj171100 __tmp171511 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171100 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171100 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171100 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '#f '11 '#f '#f)) - (let ((__tmp171406 |gxc[1]#_g171407_|)) + (##unchecked-structure-set! __obj171100 '#f '11 '#f '#f)) + (let ((__tmp171512 |gxc[1]#_g171513_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170994 __tmp171406 '12 '#f '#f)) - (let ((__tmp171408 |gxc[1]#_g171409_|)) + (##unchecked-structure-set! __obj171100 __tmp171512 '12 '#f '#f)) + (let ((__tmp171514 |gxc[1]#_g171515_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170994 __tmp171408 '13 '#f '#f)) - (let ((__tmp171410 |gxc[1]#_g171411_|)) + (##unchecked-structure-set! __obj171100 __tmp171514 '13 '#f '#f)) + (let ((__tmp171516 |gxc[1]#_g171517_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170994 __tmp171410 '14 '#f '#f)) + (##unchecked-structure-set! __obj171100 __tmp171516 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171100 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170994 '() '20 '#f '#f)) - __obj170994)) + (##unchecked-structure-set! __obj171100 '() '20 '#f '#f)) + __obj171100)) (define |gxc[:0:]#::basic-expression-top-level-type| - (let ((__obj170996 + (let ((__obj171102 (let () (declare (not safe)) (##structure @@ -459,7 +459,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170996 + __obj171102 'gxc#::basic-expression-top-level-type::t '1 '#f @@ -467,65 +467,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170996 + __obj171102 '::basic-expression-top-level-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '6 '#f '#f)) - (let ((__tmp171412 (cons |gxc[1]#_g171413_| '()))) + (##unchecked-structure-set! __obj171102 '() '6 '#f '#f)) + (let ((__tmp171518 (cons |gxc[1]#_g171519_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170996 __tmp171412 '3 '#f '#f)) + (##unchecked-structure-set! __obj171102 __tmp171518 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171102 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171102 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171102 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '#f '11 '#f '#f)) - (let ((__tmp171414 |gxc[1]#_g171415_|)) + (##unchecked-structure-set! __obj171102 '#f '11 '#f '#f)) + (let ((__tmp171520 |gxc[1]#_g171521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170996 __tmp171414 '12 '#f '#f)) - (let ((__tmp171416 |gxc[1]#_g171417_|)) + (##unchecked-structure-set! __obj171102 __tmp171520 '12 '#f '#f)) + (let ((__tmp171522 |gxc[1]#_g171523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170996 __tmp171416 '13 '#f '#f)) - (let ((__tmp171418 |gxc[1]#_g171419_|)) + (##unchecked-structure-set! __obj171102 __tmp171522 '13 '#f '#f)) + (let ((__tmp171524 |gxc[1]#_g171525_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170996 __tmp171418 '14 '#f '#f)) + (##unchecked-structure-set! __obj171102 __tmp171524 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171102 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170996 '() '20 '#f '#f)) - __obj170996)) + (##unchecked-structure-set! __obj171102 '() '20 '#f '#f)) + __obj171102)) (define |gxc[:0:]#::collect-type-info| - (let ((__obj170998 + (let ((__obj171104 (let () (declare (not safe)) (##structure @@ -554,7 +554,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170998 + __obj171104 'gxc#::collect-type-info::t '1 '#f @@ -562,65 +562,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj170998 + __obj171104 '::collect-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '6 '#f '#f)) - (let ((__tmp171420 (cons |gxc[1]#_g171398_| '()))) + (##unchecked-structure-set! __obj171104 '() '6 '#f '#f)) + (let ((__tmp171526 (cons |gxc[1]#_g171504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj170998 __tmp171420 '3 '#f '#f)) + (##unchecked-structure-set! __obj171104 __tmp171526 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171104 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171104 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171104 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '#f '11 '#f '#f)) - (let ((__tmp171421 |gxc[1]#_g171422_|)) + (##unchecked-structure-set! __obj171104 '#f '11 '#f '#f)) + (let ((__tmp171527 |gxc[1]#_g171528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170998 __tmp171421 '12 '#f '#f)) - (let ((__tmp171423 |gxc[1]#_g171424_|)) + (##unchecked-structure-set! __obj171104 __tmp171527 '12 '#f '#f)) + (let ((__tmp171529 |gxc[1]#_g171530_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170998 __tmp171423 '13 '#f '#f)) - (let ((__tmp171425 |gxc[1]#_g171426_|)) + (##unchecked-structure-set! __obj171104 __tmp171529 '13 '#f '#f)) + (let ((__tmp171531 |gxc[1]#_g171532_|)) (declare (not safe)) - (##unchecked-structure-set! __obj170998 __tmp171425 '14 '#f '#f)) + (##unchecked-structure-set! __obj171104 __tmp171531 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171104 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj170998 '() '20 '#f '#f)) - __obj170998)) + (##unchecked-structure-set! __obj171104 '() '20 '#f '#f)) + __obj171104)) (define |gxc[:0:]#::collect-mutable-type-info| - (let ((__obj171000 + (let ((__obj171106 (let () (declare (not safe)) (##structure @@ -649,7 +649,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171000 + __obj171106 'gxc#::collect-mutable-type-info::t '1 '#f @@ -657,65 +657,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171000 + __obj171106 '::collect-mutable-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '6 '#f '#f)) - (let ((__tmp171427 (cons |gxc[1]#_g171398_| '()))) + (##unchecked-structure-set! __obj171106 '() '6 '#f '#f)) + (let ((__tmp171533 (cons |gxc[1]#_g171504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171000 __tmp171427 '3 '#f '#f)) + (##unchecked-structure-set! __obj171106 __tmp171533 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171106 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171106 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171106 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '#f '11 '#f '#f)) - (let ((__tmp171428 |gxc[1]#_g171429_|)) + (##unchecked-structure-set! __obj171106 '#f '11 '#f '#f)) + (let ((__tmp171534 |gxc[1]#_g171535_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171000 __tmp171428 '12 '#f '#f)) - (let ((__tmp171430 |gxc[1]#_g171431_|)) + (##unchecked-structure-set! __obj171106 __tmp171534 '12 '#f '#f)) + (let ((__tmp171536 |gxc[1]#_g171537_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171000 __tmp171430 '13 '#f '#f)) - (let ((__tmp171432 |gxc[1]#_g171433_|)) + (##unchecked-structure-set! __obj171106 __tmp171536 '13 '#f '#f)) + (let ((__tmp171538 |gxc[1]#_g171539_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171000 __tmp171432 '14 '#f '#f)) + (##unchecked-structure-set! __obj171106 __tmp171538 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171106 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171000 '() '20 '#f '#f)) - __obj171000)) + (##unchecked-structure-set! __obj171106 '() '20 '#f '#f)) + __obj171106)) (define |gxc[:0:]#::refine-type-info| - (let ((__obj171002 + (let ((__obj171108 (let () (declare (not safe)) (##structure @@ -744,7 +744,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171002 + __obj171108 'gxc#::refine-type-info::t '1 '#f @@ -752,65 +752,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171002 + __obj171108 '::refine-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '6 '#f '#f)) - (let ((__tmp171434 (cons |gxc[1]#_g171398_| '()))) + (##unchecked-structure-set! __obj171108 '() '6 '#f '#f)) + (let ((__tmp171540 (cons |gxc[1]#_g171504_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171002 __tmp171434 '3 '#f '#f)) + (##unchecked-structure-set! __obj171108 __tmp171540 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171108 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171108 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171108 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '#f '11 '#f '#f)) - (let ((__tmp171435 |gxc[1]#_g171436_|)) + (##unchecked-structure-set! __obj171108 '#f '11 '#f '#f)) + (let ((__tmp171541 |gxc[1]#_g171542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171002 __tmp171435 '12 '#f '#f)) - (let ((__tmp171437 |gxc[1]#_g171438_|)) + (##unchecked-structure-set! __obj171108 __tmp171541 '12 '#f '#f)) + (let ((__tmp171543 |gxc[1]#_g171544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171002 __tmp171437 '13 '#f '#f)) - (let ((__tmp171439 |gxc[1]#_g171440_|)) + (##unchecked-structure-set! __obj171108 __tmp171543 '13 '#f '#f)) + (let ((__tmp171545 |gxc[1]#_g171546_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171002 __tmp171439 '14 '#f '#f)) + (##unchecked-structure-set! __obj171108 __tmp171545 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171108 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171002 '() '20 '#f '#f)) - __obj171002)) + (##unchecked-structure-set! __obj171108 '() '20 '#f '#f)) + __obj171108)) (define |gxc[:0:]#::raw-expression-type| - (let ((__obj171004 + (let ((__obj171110 (let () (declare (not safe)) (##structure @@ -839,7 +839,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171004 + __obj171110 'gxc#::raw-expression-type::t '1 '#f @@ -847,65 +847,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171004 + __obj171110 '::raw-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '6 '#f '#f)) - (let ((__tmp171441 (cons |gxc[1]#_g171413_| '()))) + (##unchecked-structure-set! __obj171110 '() '6 '#f '#f)) + (let ((__tmp171547 (cons |gxc[1]#_g171519_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171004 __tmp171441 '3 '#f '#f)) + (##unchecked-structure-set! __obj171110 __tmp171547 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171110 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj171110 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171110 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '#f '11 '#f '#f)) - (let ((__tmp171442 |gxc[1]#_g171443_|)) + (##unchecked-structure-set! __obj171110 '#f '11 '#f '#f)) + (let ((__tmp171548 |gxc[1]#_g171549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171004 __tmp171442 '12 '#f '#f)) - (let ((__tmp171444 |gxc[1]#_g171445_|)) + (##unchecked-structure-set! __obj171110 __tmp171548 '12 '#f '#f)) + (let ((__tmp171550 |gxc[1]#_g171551_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171004 __tmp171444 '13 '#f '#f)) - (let ((__tmp171446 |gxc[1]#_g171447_|)) + (##unchecked-structure-set! __obj171110 __tmp171550 '13 '#f '#f)) + (let ((__tmp171552 |gxc[1]#_g171553_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171004 __tmp171446 '14 '#f '#f)) + (##unchecked-structure-set! __obj171110 __tmp171552 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171110 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171004 '() '20 '#f '#f)) - __obj171004)) + (##unchecked-structure-set! __obj171110 '() '20 '#f '#f)) + __obj171110)) (define |gxc[:0:]#::basic-expression-type| - (let ((__obj171006 + (let ((__obj171112 (let () (declare (not safe)) (##structure @@ -934,7 +934,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171006 + __obj171112 'gxc#::basic-expression-type::t '1 '#f @@ -942,66 +942,66 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171006 + __obj171112 '::basic-expression-type '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '6 '#f '#f)) - (let ((__tmp171448 - (cons |gxc[1]#_g171449_| (cons |gxc[1]#_g171413_| '())))) + (##unchecked-structure-set! __obj171112 '() '6 '#f '#f)) + (let ((__tmp171554 + (cons |gxc[1]#_g171555_| (cons |gxc[1]#_g171519_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj171006 __tmp171448 '3 '#f '#f)) + (##unchecked-structure-set! __obj171112 __tmp171554 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171112 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171112 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171112 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '#f '11 '#f '#f)) - (let ((__tmp171450 |gxc[1]#_g171451_|)) + (##unchecked-structure-set! __obj171112 '#f '11 '#f '#f)) + (let ((__tmp171556 |gxc[1]#_g171557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171006 __tmp171450 '12 '#f '#f)) - (let ((__tmp171452 |gxc[1]#_g171453_|)) + (##unchecked-structure-set! __obj171112 __tmp171556 '12 '#f '#f)) + (let ((__tmp171558 |gxc[1]#_g171559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171006 __tmp171452 '13 '#f '#f)) - (let ((__tmp171454 |gxc[1]#_g171455_|)) + (##unchecked-structure-set! __obj171112 __tmp171558 '13 '#f '#f)) + (let ((__tmp171560 |gxc[1]#_g171561_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171006 __tmp171454 '14 '#f '#f)) + (##unchecked-structure-set! __obj171112 __tmp171560 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171112 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171006 '() '20 '#f '#f)) - __obj171006)) + (##unchecked-structure-set! __obj171112 '() '20 '#f '#f)) + __obj171112)) (define |gxc[:0:]#::lift-top-lambdas| - (let ((__obj171008 + (let ((__obj171114 (let () (declare (not safe)) (##structure @@ -1030,7 +1030,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171008 + __obj171114 'gxc#::lift-top-lambdas::t '1 '#f @@ -1038,65 +1038,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171008 + __obj171114 '::lift-top-lambdas '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '6 '#f '#f)) - (let ((__tmp171456 (cons |gxc[1]#_g171457_| '()))) + (##unchecked-structure-set! __obj171114 '() '6 '#f '#f)) + (let ((__tmp171562 (cons |gxc[1]#_g171563_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171008 __tmp171456 '3 '#f '#f)) + (##unchecked-structure-set! __obj171114 __tmp171562 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171114 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171114 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171114 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '#f '11 '#f '#f)) - (let ((__tmp171458 |gxc[1]#_g171459_|)) + (##unchecked-structure-set! __obj171114 '#f '11 '#f '#f)) + (let ((__tmp171564 |gxc[1]#_g171565_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171008 __tmp171458 '12 '#f '#f)) - (let ((__tmp171460 |gxc[1]#_g171461_|)) + (##unchecked-structure-set! __obj171114 __tmp171564 '12 '#f '#f)) + (let ((__tmp171566 |gxc[1]#_g171567_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171008 __tmp171460 '13 '#f '#f)) - (let ((__tmp171462 |gxc[1]#_g171463_|)) + (##unchecked-structure-set! __obj171114 __tmp171566 '13 '#f '#f)) + (let ((__tmp171568 |gxc[1]#_g171569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171008 __tmp171462 '14 '#f '#f)) + (##unchecked-structure-set! __obj171114 __tmp171568 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171114 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171008 '() '20 '#f '#f)) - __obj171008)) + (##unchecked-structure-set! __obj171114 '() '20 '#f '#f)) + __obj171114)) (define |gxc[:0:]#::extract-lambda-signature| - (let ((__obj171010 + (let ((__obj171116 (let () (declare (not safe)) (##structure @@ -1125,7 +1125,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171010 + __obj171116 'gxc#::extract-lambda-signature::t '1 '#f @@ -1133,189 +1133,189 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj171010 + __obj171116 '::extract-lambda-signature '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '6 '#f '#f)) - (let ((__tmp171464 (cons |gxc[1]#_g171413_| '()))) + (##unchecked-structure-set! __obj171116 '() '6 '#f '#f)) + (let ((__tmp171570 (cons |gxc[1]#_g171519_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj171010 __tmp171464 '3 '#f '#f)) + (##unchecked-structure-set! __obj171116 __tmp171570 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj171116 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj171116 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj171116 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '#f '11 '#f '#f)) - (let ((__tmp171465 |gxc[1]#_g171466_|)) + (##unchecked-structure-set! __obj171116 '#f '11 '#f '#f)) + (let ((__tmp171571 |gxc[1]#_g171572_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171010 __tmp171465 '12 '#f '#f)) - (let ((__tmp171467 |gxc[1]#_g171468_|)) + (##unchecked-structure-set! __obj171116 __tmp171571 '12 '#f '#f)) + (let ((__tmp171573 |gxc[1]#_g171574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171010 __tmp171467 '13 '#f '#f)) - (let ((__tmp171469 |gxc[1]#_g171470_|)) + (##unchecked-structure-set! __obj171116 __tmp171573 '13 '#f '#f)) + (let ((__tmp171575 |gxc[1]#_g171576_|)) (declare (not safe)) - (##unchecked-structure-set! __obj171010 __tmp171469 '14 '#f '#f)) + (##unchecked-structure-set! __obj171116 __tmp171575 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj171116 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj171010 '() '20 '#f '#f)) - __obj171010)) + (##unchecked-structure-set! __obj171116 '() '20 '#f '#f)) + __obj171116)) (define |gxc[:0:]#defbasic-expression-type-annotations| - (lambda (_%$stx154030%_) - (let* ((_%g154034154063%_ - (lambda (_%g154035154059%_) + (lambda (_%$stx154136%_) + (let* ((_%g154140154169%_ + (lambda (_%g154141154165%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154035154059%_)))) - (_%g154033154164%_ - (lambda (_%g154035154067%_) + _%g154141154165%_)))) + (_%g154139154270%_ + (lambda (_%g154141154173%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154035154067%_)) - (let ((_%e154038154070%_ + (gx#stx-pair? _%g154141154173%_)) + (let ((_%e154144154176%_ (let () (declare (not safe)) - (gx#syntax-e _%g154035154067%_)))) - (let ((_%hd154039154074%_ + (gx#syntax-e _%g154141154173%_)))) + (let ((_%hd154145154180%_ (let () (declare (not safe)) - (##car _%e154038154070%_))) - (_%tl154040154077%_ + (##car _%e154144154176%_))) + (_%tl154146154183%_ (let () (declare (not safe)) - (##cdr _%e154038154070%_)))) + (##cdr _%e154144154176%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154040154077%_)) - (let ((_g171471_ + (gx#stx-pair/null? _%tl154146154183%_)) + (let ((_g171577_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154040154077%_ + _%tl154146154183%_ '0)))) (begin - (let ((_g171472_ + (let ((_g171578_ (let () (declare (not safe)) - (if (##values? _g171471_) - (##vector-length _g171471_) + (if (##values? _g171577_) + (##values-length _g171577_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171472_ 2))) + (##fx= _g171578_ 2))) (error "Context expects 2 values" - _g171472_))) - (let ((_%target154041154080%_ + _g171578_))) + (let ((_%target154147154186%_ (let () (declare (not safe)) - (##vector-ref _g171471_ 0))) - (_%tl154043154083%_ + (##values-ref _g171577_ 0))) + (_%tl154149154189%_ (let () (declare (not safe)) - (##vector-ref _g171471_ 1)))) + (##values-ref _g171577_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154043154083%_)) - (letrec ((_%loop154044154086%_ - (lambda (_%hd154042154090%_ - _%type-e154048154093%_ - _%id154049154095%_) + (gx#stx-null? _%tl154149154189%_)) + (letrec ((_%loop154150154192%_ + (lambda (_%hd154148154196%_ + _%type-e154154154199%_ + _%id154155154201%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154042154090%_)) - (let ((_%e154045154098%_ + _%hd154148154196%_)) + (let ((_%e154151154204%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154042154090%_)))) - (let ((_%lp-hd154046154102%_ + (gx#syntax-e _%hd154148154196%_)))) + (let ((_%lp-hd154152154208%_ (let () (declare (not safe)) - (##car _%e154045154098%_))) - (_%lp-tl154047154105%_ + (##car _%e154151154204%_))) + (_%lp-tl154153154211%_ (let () (declare (not safe)) - (##cdr _%e154045154098%_)))) + (##cdr _%e154151154204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154046154102%_)) - (let ((_%e154052154108%_ + (gx#stx-pair? _%lp-hd154152154208%_)) + (let ((_%e154158154214%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154046154102%_)))) - (let ((_%hd154053154112%_ + (gx#syntax-e _%lp-hd154152154208%_)))) + (let ((_%hd154159154218%_ (let () (declare (not safe)) - (##car _%e154052154108%_))) - (_%tl154054154115%_ + (##car _%e154158154214%_))) + (_%tl154160154221%_ (let () (declare (not safe)) - (##cdr _%e154052154108%_)))) + (##cdr _%e154158154214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154054154115%_)) - (let ((_%e154055154118%_ + (gx#stx-pair? _%tl154160154221%_)) + (let ((_%e154161154224%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154054154115%_)))) - (let ((_%hd154056154122%_ + (gx#syntax-e _%tl154160154221%_)))) + (let ((_%hd154162154228%_ (let () (declare (not safe)) - (##car _%e154055154118%_))) - (_%tl154057154125%_ + (##car _%e154161154224%_))) + (_%tl154163154231%_ (let () (declare (not safe)) - (##cdr _%e154055154118%_)))) + (##cdr _%e154161154224%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154057154125%_)) - (_%loop154044154086%_ - _%lp-tl154047154105%_ - (cons _%hd154056154122%_ - _%type-e154048154093%_) - (cons _%hd154053154112%_ - _%id154049154095%_)) - (_%g154034154063%_ - _%g154035154067%_)))) - (_%g154034154063%_ _%g154035154067%_)))) - (_%g154034154063%_ _%g154035154067%_)))) - (let ((_%type-e154050154128%_ (reverse _%type-e154048154093%_)) - (_%id154051154131%_ (reverse _%id154049154095%_))) - ((lambda (_%L154134%_ _%L154136%_) + (gx#stx-null? _%tl154163154231%_)) + (_%loop154150154192%_ + _%lp-tl154153154211%_ + (cons _%hd154162154228%_ + _%type-e154154154199%_) + (cons _%hd154159154218%_ + _%id154155154201%_)) + (_%g154140154169%_ + _%g154141154173%_)))) + (_%g154140154169%_ _%g154141154173%_)))) + (_%g154140154169%_ _%g154141154173%_)))) + (let ((_%type-e154156154234%_ (reverse _%type-e154154154199%_)) + (_%id154157154237%_ (reverse _%id154155154201%_))) + ((lambda (_%L154240%_ _%L154242%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1323,12 +1323,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154134%_ - _%L154136%_)) - (let ((__tmp171473 - (lambda (_%g154152154156%_ - _%g154153154159%_ - _%g154154154161%_) + _%L154240%_ + _%L154242%_)) + (let ((__tmp171579 + (lambda (_%g154258154262%_ + _%g154259154265%_ + _%g154260154267%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1343,154 +1343,154 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154153154159%_ '())) - (cons _%g154152154156%_ '())))) + (cons _%g154259154265%_ '())) + (cons _%g154258154262%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154154154161%_)))) + _%g154260154267%_)))) (declare (not safe)) (__foldr2 - __tmp171473 + __tmp171579 '() - _%L154134%_ - _%L154136%_))))) - _%type-e154050154128%_ - _%id154051154131%_)))))) + _%L154240%_ + _%L154242%_))))) + _%type-e154156154234%_ + _%id154157154237%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154044154086%_ - _%target154041154080%_ + (_%loop154150154192%_ + _%target154147154186%_ '() '())) - (_%g154034154063%_ - _%g154035154067%_))))) - (_%g154034154063%_ _%g154035154067%_)))) - (_%g154034154063%_ _%g154035154067%_))))) - (_%g154033154164%_ _%$stx154030%_)))) + (_%g154140154169%_ + _%g154141154173%_))))) + (_%g154140154169%_ _%g154141154173%_)))) + (_%g154140154169%_ _%g154141154173%_))))) + (_%g154139154270%_ _%$stx154136%_)))) (define |gxc[:0:]#defbasic-expression-type-special| - (lambda (_%$stx154169%_) - (let* ((_%g154173154202%_ - (lambda (_%g154174154198%_) + (lambda (_%$stx154275%_) + (let* ((_%g154279154308%_ + (lambda (_%g154280154304%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g154174154198%_)))) - (_%g154172154302%_ - (lambda (_%g154174154206%_) + _%g154280154304%_)))) + (_%g154278154408%_ + (lambda (_%g154280154312%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g154174154206%_)) - (let ((_%e154177154209%_ + (gx#stx-pair? _%g154280154312%_)) + (let ((_%e154283154315%_ (let () (declare (not safe)) - (gx#syntax-e _%g154174154206%_)))) - (let ((_%hd154178154213%_ + (gx#syntax-e _%g154280154312%_)))) + (let ((_%hd154284154319%_ (let () (declare (not safe)) - (##car _%e154177154209%_))) - (_%tl154179154216%_ + (##car _%e154283154315%_))) + (_%tl154285154322%_ (let () (declare (not safe)) - (##cdr _%e154177154209%_)))) + (##cdr _%e154283154315%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl154179154216%_)) - (let ((_g171474_ + (gx#stx-pair/null? _%tl154285154322%_)) + (let ((_g171580_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl154179154216%_ + _%tl154285154322%_ '0)))) (begin - (let ((_g171475_ + (let ((_g171581_ (let () (declare (not safe)) - (if (##values? _g171474_) - (##vector-length _g171474_) + (if (##values? _g171580_) + (##values-length _g171580_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g171475_ 2))) + (##fx= _g171581_ 2))) (error "Context expects 2 values" - _g171475_))) - (let ((_%target154180154219%_ + _g171581_))) + (let ((_%target154286154325%_ (let () (declare (not safe)) - (##vector-ref _g171474_ 0))) - (_%tl154182154222%_ + (##values-ref _g171580_ 0))) + (_%tl154288154328%_ (let () (declare (not safe)) - (##vector-ref _g171474_ 1)))) + (##values-ref _g171580_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154182154222%_)) - (letrec ((_%loop154183154225%_ - (lambda (_%hd154181154229%_ - _%type-e154187154232%_ - _%id154188154234%_) + (gx#stx-null? _%tl154288154328%_)) + (letrec ((_%loop154289154331%_ + (lambda (_%hd154287154335%_ + _%type-e154293154338%_ + _%id154294154340%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd154181154229%_)) - (let ((_%e154184154237%_ + _%hd154287154335%_)) + (let ((_%e154290154343%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd154181154229%_)))) - (let ((_%lp-hd154185154241%_ + (gx#syntax-e _%hd154287154335%_)))) + (let ((_%lp-hd154291154347%_ (let () (declare (not safe)) - (##car _%e154184154237%_))) - (_%lp-tl154186154244%_ + (##car _%e154290154343%_))) + (_%lp-tl154292154350%_ (let () (declare (not safe)) - (##cdr _%e154184154237%_)))) + (##cdr _%e154290154343%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd154185154241%_)) - (let ((_%e154191154247%_ + (gx#stx-pair? _%lp-hd154291154347%_)) + (let ((_%e154297154353%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd154185154241%_)))) - (let ((_%hd154192154251%_ + (gx#syntax-e _%lp-hd154291154347%_)))) + (let ((_%hd154298154357%_ (let () (declare (not safe)) - (##car _%e154191154247%_))) - (_%tl154193154254%_ + (##car _%e154297154353%_))) + (_%tl154299154360%_ (let () (declare (not safe)) - (##cdr _%e154191154247%_)))) + (##cdr _%e154297154353%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl154193154254%_)) - (let ((_%e154194154257%_ + (gx#stx-pair? _%tl154299154360%_)) + (let ((_%e154300154363%_ (let () (declare (not safe)) - (gx#syntax-e _%tl154193154254%_)))) - (let ((_%hd154195154261%_ + (gx#syntax-e _%tl154299154360%_)))) + (let ((_%hd154301154367%_ (let () (declare (not safe)) - (##car _%e154194154257%_))) - (_%tl154196154264%_ + (##car _%e154300154363%_))) + (_%tl154302154370%_ (let () (declare (not safe)) - (##cdr _%e154194154257%_)))) + (##cdr _%e154300154363%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl154196154264%_)) - (_%loop154183154225%_ - _%lp-tl154186154244%_ - (cons _%hd154195154261%_ - _%type-e154187154232%_) - (cons _%hd154192154251%_ - _%id154188154234%_)) - (_%g154173154202%_ - _%g154174154206%_)))) - (_%g154173154202%_ _%g154174154206%_)))) - (_%g154173154202%_ _%g154174154206%_)))) - (let ((_%type-e154189154267%_ (reverse _%type-e154187154232%_)) - (_%id154190154270%_ (reverse _%id154188154234%_))) - ((lambda (_%L154273%_ _%L154275%_) + (gx#stx-null? _%tl154302154370%_)) + (_%loop154289154331%_ + _%lp-tl154292154350%_ + (cons _%hd154301154367%_ + _%type-e154293154338%_) + (cons _%hd154298154357%_ + _%id154294154340%_)) + (_%g154279154308%_ + _%g154280154312%_)))) + (_%g154279154308%_ _%g154280154312%_)))) + (_%g154279154308%_ _%g154280154312%_)))) + (let ((_%type-e154295154373%_ (reverse _%type-e154293154338%_)) + (_%id154296154376%_ (reverse _%id154294154340%_))) + ((lambda (_%L154379%_ _%L154381%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -1498,12 +1498,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L154273%_ - _%L154275%_)) - (let ((__tmp171476 - (lambda (_%g154290154294%_ - _%g154291154297%_ - _%g154292154299%_) + _%L154379%_ + _%L154381%_)) + (let ((__tmp171582 + (lambda (_%g154396154400%_ + _%g154397154403%_ + _%g154398154405%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1518,25 +1518,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g154291154297%_ '())) - (cons _%g154290154294%_ '())))) + (cons _%g154397154403%_ '())) + (cons _%g154396154400%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g154292154299%_)))) + _%g154398154405%_)))) (declare (not safe)) (__foldr2 - __tmp171476 + __tmp171582 '() - _%L154273%_ - _%L154275%_))))) - _%type-e154189154267%_ - _%id154190154270%_)))))) + _%L154379%_ + _%L154381%_))))) + _%type-e154295154373%_ + _%id154296154376%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop154183154225%_ - _%target154180154219%_ + (_%loop154289154331%_ + _%target154286154325%_ '() '())) - (_%g154173154202%_ - _%g154174154206%_))))) - (_%g154173154202%_ _%g154174154206%_)))) - (_%g154173154202%_ _%g154174154206%_))))) - (_%g154172154302%_ _%$stx154169%_)))))) + (_%g154279154308%_ + _%g154280154312%_))))) + (_%g154279154308%_ _%g154280154312%_)))) + (_%g154279154308%_ _%g154280154312%_))))) + (_%g154278154408%_ _%$stx154275%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm index c8fec99b7..66fb0bfaf 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~0.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize-xform::timestamp 1733870076) + (define gerbil/compiler/optimize-xform::timestamp 1734131749) (begin (define gxc#::collect-mutators::t - (let ((__tmp153895 (list gxc#::void::t)) - (__tmp153894 (cons (cons 'final: '#t) '()))) + (let ((__tmp154001 (list gxc#::void::t)) + (__tmp154000 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-mutators::t '::collect-mutators - __tmp153895 + __tmp154001 '() - __tmp153894 + __tmp154000 '#f))) (define gxc#::collect-mutators? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-mutators::t))) (define gxc#make-::collect-mutators - (lambda _%$args153881%_ - (apply make-instance gxc#::collect-mutators::t _%$args153881%_))) + (lambda _%$args153987%_ + (apply make-instance gxc#::collect-mutators::t _%$args153987%_))) (define gxc#::collect-mutators-bind-methods! - (let ((__tmp153896 + (let ((__tmp154002 (lambda () (force gxc#::void-bind-methods!) (let () @@ -166,44 +166,44 @@ (declare (not safe)) (__seal-class! gxc#::collect-mutators::t))))) (declare (not safe)) - (__make-promise __tmp153896))) + (__make-promise __tmp154002))) (define gxc#apply-collect-mutators - (lambda (_%stx153873%_) + (lambda (_%stx153979%_) (force gxc#::collect-mutators-bind-methods!) - (let* ((_%self153876%_ - (let ((__obj153884 + (let* ((_%self153982%_ + (let ((__obj153990 (let () (declare (not safe)) (##structure gxc#::collect-mutators::t)))) - __obj153884)) - (__tmp153897 + __obj153990)) + (__tmp154003 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153876%_ _%stx153873%_))))) + (gxc#compile-e__1 _%self153982%_ _%stx153979%_))))) (declare (not safe)) (__call-with-parameters - __tmp153897 + __tmp154003 gxc#current-compile-method - _%self153876%_)))) + _%self153982%_)))) (define gxc#::expression-subst::t - (let ((__tmp153899 (list gxc#::basic-xform-expression::t)) - (__tmp153898 (cons (cons 'final: '#t) '()))) + (let ((__tmp154005 (list gxc#::basic-xform-expression::t)) + (__tmp154004 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst::t '::expression-subst - __tmp153899 + __tmp154005 '(id new-id) - __tmp153898 + __tmp154004 '#f))) (define gxc#::expression-subst? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst::t))) (define gxc#make-::expression-subst - (lambda _%$args153870%_ - (apply make-instance gxc#::expression-subst::t _%$args153870%_))) + (lambda _%$args153976%_ + (apply make-instance gxc#::expression-subst::t _%$args153976%_))) (define gxc#::expression-subst-id (let () (declare (not safe)) @@ -241,7 +241,7 @@ gxc#::expression-subst::t 'new-id))) (define gxc#::expression-subst-bind-methods! - (let ((__tmp153900 + (let ((__tmp154006 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -266,95 +266,95 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst::t))))) (declare (not safe)) - (__make-promise __tmp153900))) + (__make-promise __tmp154006))) (define gxc#apply-expression-subst__% - (lambda (_%@@keywords153840%_ - _%id153836153841%_ - _%new-id153837153843%_ - _%stx153845%_) - (let* ((_%id153848%_ - (if (eq? _%id153836153841%_ absent-value) + (lambda (_%@@keywords153946%_ + _%id153942153947%_ + _%new-id153943153949%_ + _%stx153951%_) + (let* ((_%id153954%_ + (if (eq? _%id153942153947%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'id:)) - _%id153836153841%_)) - (_%new-id153850%_ - (if (eq? _%new-id153837153843%_ absent-value) + _%id153942153947%_)) + (_%new-id153956%_ + (if (eq? _%new-id153943153949%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'new-id:)) - _%new-id153837153843%_))) + _%new-id153943153949%_))) (force gxc#::expression-subst-bind-methods!) - (let* ((_%self153852%_ - (let ((__obj153886 + (let* ((_%self153958%_ + (let ((__obj153992 (let () (declare (not safe)) (##structure gxc#::expression-subst::t '#f '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153886 - _%id153848%_ + __obj153992 + _%id153954%_ '1 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153886 - _%new-id153850%_ + __obj153992 + _%new-id153956%_ '2 '#f '#f)) - __obj153886)) - (__tmp153901 + __obj153992)) + (__tmp154007 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153852%_ _%stx153845%_))))) + (gxc#compile-e__1 _%self153958%_ _%stx153951%_))))) (declare (not safe)) (__call-with-parameters - __tmp153901 + __tmp154007 gxc#current-compile-method - _%self153852%_))))) + _%self153958%_))))) (define gxc#apply-expression-subst__@ - (lambda (_%@@keywords153859%_ . _%args153860%_) + (lambda (_%@@keywords153965%_ . _%args153966%_) (apply gxc#apply-expression-subst__% - _%@@keywords153859%_ + _%@@keywords153965%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153859%_ 'id: absent-value)) + (symbolic-table-ref _%@@keywords153965%_ 'id: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153859%_ + _%@@keywords153965%_ 'new-id: absent-value)) - _%args153860%_))) + _%args153966%_))) (define gxc#apply-expression-subst - (lambda _%args153838153866%_ + (lambda _%args153944153972%_ (apply keyword-dispatch '#(id: new-id:) gxc#apply-expression-subst__@ - _%args153838153866%_))) + _%args153944153972%_))) (define gxc#::expression-subst*::t - (let ((__tmp153903 (list gxc#::basic-xform-expression::t)) - (__tmp153902 (cons (cons 'final: '#t) '()))) + (let ((__tmp154009 (list gxc#::basic-xform-expression::t)) + (__tmp154008 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::expression-subst*::t '::expression-subst* - __tmp153903 + __tmp154009 '(subst) - __tmp153902 + __tmp154008 '#f))) (define gxc#::expression-subst*? (let () (declare (not safe)) (__make-class-predicate gxc#::expression-subst*::t))) (define gxc#make-::expression-subst* - (lambda _%$args153832%_ - (apply make-instance gxc#::expression-subst*::t _%$args153832%_))) + (lambda _%$args153938%_ + (apply make-instance gxc#::expression-subst*::t _%$args153938%_))) (define gxc#::expression-subst*-subst (let () (declare (not safe)) @@ -376,7 +376,7 @@ gxc#::expression-subst*::t 'subst))) (define gxc#::expression-subst*-bind-methods! - (let ((__tmp153904 + (let ((__tmp154010 (lambda () (force gxc#::basic-xform-expression-bind-methods!) (let () @@ -401,64 +401,64 @@ (declare (not safe)) (__seal-class! gxc#::expression-subst*::t))))) (declare (not safe)) - (__make-promise __tmp153904))) + (__make-promise __tmp154010))) (define gxc#apply-expression-subst*__% - (lambda (_%@@keywords153806%_ _%subst153803153807%_ _%stx153809%_) - (let ((_%subst153812%_ - (if (eq? _%subst153803153807%_ absent-value) + (lambda (_%@@keywords153912%_ _%subst153909153913%_ _%stx153915%_) + (let ((_%subst153918%_ + (if (eq? _%subst153909153913%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'subst:)) - _%subst153803153807%_))) + _%subst153909153913%_))) (force gxc#::expression-subst*-bind-methods!) - (let* ((_%self153814%_ - (let ((__obj153888 + (let* ((_%self153920%_ + (let ((__obj153994 (let () (declare (not safe)) (##structure gxc#::expression-subst*::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153888 - _%subst153812%_ + __obj153994 + _%subst153918%_ '1 '#f '#f)) - __obj153888)) - (__tmp153905 + __obj153994)) + (__tmp154011 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153814%_ _%stx153809%_))))) + (gxc#compile-e__1 _%self153920%_ _%stx153915%_))))) (declare (not safe)) (__call-with-parameters - __tmp153905 + __tmp154011 gxc#current-compile-method - _%self153814%_))))) + _%self153920%_))))) (define gxc#apply-expression-subst*__@ - (lambda (_%@@keywords153821%_ . _%args153822%_) + (lambda (_%@@keywords153927%_ . _%args153928%_) (apply gxc#apply-expression-subst*__% - _%@@keywords153821%_ + _%@@keywords153927%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153821%_ + _%@@keywords153927%_ 'subst: absent-value)) - _%args153822%_))) + _%args153928%_))) (define gxc#apply-expression-subst* - (lambda _%args153804153828%_ + (lambda _%args153910153934%_ (apply keyword-dispatch '#(subst:) gxc#apply-expression-subst*__@ - _%args153804153828%_))) + _%args153910153934%_))) (define gxc#::find-expression::t - (let ((__tmp153906 (list gxc#::false-expression::t))) + (let ((__tmp154012 (list gxc#::false-expression::t))) (declare (not safe)) (__make-class-type 'gxc#::find-expression::t '::find-expression - __tmp153906 + __tmp154012 '() '() '#f))) @@ -467,10 +467,10 @@ (declare (not safe)) (__make-class-predicate gxc#::find-expression::t))) (define gxc#make-::find-expression - (lambda _%$args153799%_ - (apply make-instance gxc#::find-expression::t _%$args153799%_))) + (lambda _%$args153905%_ + (apply make-instance gxc#::find-expression::t _%$args153905%_))) (define gxc#::find-expression-bind-methods! - (let ((__tmp153907 + (let ((__tmp154013 (lambda () (force gxc#::false-expression-bind-methods!) (let () @@ -588,25 +588,25 @@ '%#struct-unchecked-set! gxc#find-body%))))) (declare (not safe)) - (__make-promise __tmp153907))) + (__make-promise __tmp154013))) (define gxc#::find-var-refs::t - (let ((__tmp153909 (list gxc#::find-expression::t)) - (__tmp153908 (cons (cons 'final: '#t) '()))) + (let ((__tmp154015 (list gxc#::find-expression::t)) + (__tmp154014 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::find-var-refs::t '::find-var-refs - __tmp153909 + __tmp154015 '(ids) - __tmp153908 + __tmp154014 '#f))) (define gxc#::find-var-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::find-var-refs::t))) (define gxc#make-::find-var-refs - (lambda _%$args153795%_ - (apply make-instance gxc#::find-var-refs::t _%$args153795%_))) + (lambda _%$args153901%_ + (apply make-instance gxc#::find-var-refs::t _%$args153901%_))) (define gxc#::find-var-refs-ids (let () (declare (not safe)) @@ -624,7 +624,7 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gxc#::find-var-refs::t 'ids))) (define gxc#::find-var-refs-bind-methods! - (let ((__tmp153910 + (let ((__tmp154016 (lambda () (force gxc#::find-expression-bind-methods!) (let () @@ -643,72 +643,72 @@ (declare (not safe)) (__seal-class! gxc#::find-var-refs::t))))) (declare (not safe)) - (__make-promise __tmp153910))) + (__make-promise __tmp154016))) (define gxc#apply-find-var-refs__% - (lambda (_%@@keywords153769%_ _%ids153766153770%_ _%stx153772%_) - (let ((_%ids153775%_ - (if (eq? _%ids153766153770%_ absent-value) + (lambda (_%@@keywords153875%_ _%ids153872153876%_ _%stx153878%_) + (let ((_%ids153881%_ + (if (eq? _%ids153872153876%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'ids:)) - _%ids153766153770%_))) + _%ids153872153876%_))) (force gxc#::find-var-refs-bind-methods!) - (let* ((_%self153777%_ - (let ((__obj153891 + (let* ((_%self153883%_ + (let ((__obj153997 (let () (declare (not safe)) (##structure gxc#::find-var-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153891 - _%ids153775%_ + __obj153997 + _%ids153881%_ '1 '#f '#f)) - __obj153891)) - (__tmp153911 + __obj153997)) + (__tmp154017 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153777%_ _%stx153772%_))))) + (gxc#compile-e__1 _%self153883%_ _%stx153878%_))))) (declare (not safe)) (__call-with-parameters - __tmp153911 + __tmp154017 gxc#current-compile-method - _%self153777%_))))) + _%self153883%_))))) (define gxc#apply-find-var-refs__@ - (lambda (_%@@keywords153784%_ . _%args153785%_) + (lambda (_%@@keywords153890%_ . _%args153891%_) (apply gxc#apply-find-var-refs__% - _%@@keywords153784%_ + _%@@keywords153890%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords153784%_ 'ids: absent-value)) - _%args153785%_))) + (symbolic-table-ref _%@@keywords153890%_ 'ids: absent-value)) + _%args153891%_))) (define gxc#apply-find-var-refs - (lambda _%args153767153791%_ + (lambda _%args153873153897%_ (apply keyword-dispatch '#(ids:) gxc#apply-find-var-refs__@ - _%args153767153791%_))) + _%args153873153897%_))) (define gxc#::collect-runtime-refs::t - (let ((__tmp153913 (list gxc#::collect-expression-refs::t)) - (__tmp153912 (cons (cons 'final: '#t) '()))) + (let ((__tmp154019 (list gxc#::collect-expression-refs::t)) + (__tmp154018 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::collect-runtime-refs::t '::collect-runtime-refs - __tmp153913 + __tmp154019 '() - __tmp153912 + __tmp154018 '#f))) (define gxc#::collect-runtime-refs? (let () (declare (not safe)) (__make-class-predicate gxc#::collect-runtime-refs::t))) (define gxc#make-::collect-runtime-refs - (lambda _%$args153762%_ - (apply make-instance gxc#::collect-runtime-refs::t _%$args153762%_))) + (lambda _%$args153868%_ + (apply make-instance gxc#::collect-runtime-refs::t _%$args153868%_))) (define gxc#::collect-runtime-refs-table (let () (declare (not safe)) @@ -730,7 +730,7 @@ gxc#::collect-runtime-refs::t 'table))) (define gxc#::collect-runtime-refs-bind-methods! - (let ((__tmp153914 + (let ((__tmp154020 (lambda () (force gxc#::collect-expression-refs-bind-methods!) (let () @@ -749,1158 +749,1158 @@ (declare (not safe)) (__seal-class! gxc#::collect-runtime-refs::t))))) (declare (not safe)) - (__make-promise __tmp153914))) + (__make-promise __tmp154020))) (define gxc#apply-collect-runtime-refs__% - (lambda (_%@@keywords153736%_ _%table153733153737%_ _%stx153739%_) - (let ((_%table153742%_ - (if (eq? _%table153733153737%_ absent-value) + (lambda (_%@@keywords153842%_ _%table153839153843%_ _%stx153845%_) + (let ((_%table153848%_ + (if (eq? _%table153839153843%_ absent-value) (let () (declare (not safe)) (error '"Missing required keyword argument" 'table:)) - _%table153733153737%_))) + _%table153839153843%_))) (force gxc#::collect-runtime-refs-bind-methods!) - (let* ((_%self153744%_ - (let ((__obj153893 + (let* ((_%self153850%_ + (let ((__obj153999 (let () (declare (not safe)) (##structure gxc#::collect-runtime-refs::t '#f)))) (let () (declare (not safe)) (##unchecked-structure-set! - __obj153893 - _%table153742%_ + __obj153999 + _%table153848%_ '1 '#f '#f)) - __obj153893)) - (__tmp153915 + __obj153999)) + (__tmp154021 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self153744%_ _%stx153739%_))))) + (gxc#compile-e__1 _%self153850%_ _%stx153845%_))))) (declare (not safe)) (__call-with-parameters - __tmp153915 + __tmp154021 gxc#current-compile-method - _%self153744%_))))) + _%self153850%_))))) (define gxc#apply-collect-runtime-refs__@ - (lambda (_%@@keywords153751%_ . _%args153752%_) + (lambda (_%@@keywords153857%_ . _%args153858%_) (apply gxc#apply-collect-runtime-refs__% - _%@@keywords153751%_ + _%@@keywords153857%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords153751%_ + _%@@keywords153857%_ 'table: absent-value)) - _%args153752%_))) + _%args153858%_))) (define gxc#apply-collect-runtime-refs - (lambda _%args153734153758%_ + (lambda _%args153840153864%_ (apply keyword-dispatch '#(table:) gxc#apply-collect-runtime-refs__@ - _%args153734153758%_))) + _%args153840153864%_))) (define gxc#collect-mutators-setq% - (lambda (_%self153662%_ _%stx153663%_) - (let* ((_%g153665153682%_ - (lambda (_%g153666153679%_) + (lambda (_%self153768%_ _%stx153769%_) + (let* ((_%g153771153788%_ + (lambda (_%g153772153785%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153666153679%_)))) - (_%g153664153729%_ - (lambda (_%g153666153685%_) + _%g153772153785%_)))) + (_%g153770153835%_ + (lambda (_%g153772153791%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153666153685%_)) - (let ((_%e153669153687%_ + (gx#stx-pair? _%g153772153791%_)) + (let ((_%e153775153793%_ (let () (declare (not safe)) - (gx#stx-e _%g153666153685%_)))) - (let ((_%hd153670153690%_ + (gx#stx-e _%g153772153791%_)))) + (let ((_%hd153776153796%_ (let () (declare (not safe)) - (##car _%e153669153687%_))) - (_%tl153671153692%_ + (##car _%e153775153793%_))) + (_%tl153777153798%_ (let () (declare (not safe)) - (##cdr _%e153669153687%_)))) + (##cdr _%e153775153793%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153671153692%_)) - (let ((_%e153672153695%_ + (gx#stx-pair? _%tl153777153798%_)) + (let ((_%e153778153801%_ (let () (declare (not safe)) - (gx#stx-e _%tl153671153692%_)))) - (let ((_%hd153673153698%_ + (gx#stx-e _%tl153777153798%_)))) + (let ((_%hd153779153804%_ (let () (declare (not safe)) - (##car _%e153672153695%_))) - (_%tl153674153700%_ + (##car _%e153778153801%_))) + (_%tl153780153806%_ (let () (declare (not safe)) - (##cdr _%e153672153695%_)))) + (##cdr _%e153778153801%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153674153700%_)) - (let ((_%e153675153703%_ + (gx#stx-pair? _%tl153780153806%_)) + (let ((_%e153781153809%_ (let () (declare (not safe)) - (gx#stx-e _%tl153674153700%_)))) - (let ((_%hd153676153706%_ + (gx#stx-e _%tl153780153806%_)))) + (let ((_%hd153782153812%_ (let () (declare (not safe)) - (##car _%e153675153703%_))) - (_%tl153677153708%_ + (##car _%e153781153809%_))) + (_%tl153783153814%_ (let () (declare (not safe)) - (##cdr _%e153675153703%_)))) + (##cdr _%e153781153809%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153677153708%_)) - ((lambda (_%L153711%_ - _%L153712%_) - (let ((_%sym153727%_ + _%tl153783153814%_)) + ((lambda (_%L153817%_ + _%L153818%_) + (let ((_%sym153833%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153712%_)))) + _%L153818%_)))) (let () (declare (not safe)) (gxc#verbose '"collect mutator " - _%sym153727%_)) - (let ((__tmp153916 + _%sym153833%_)) + (let ((__tmp154022 (let () (declare (not safe)) (gxc#current-compile-mutators)))) (declare (not safe)) (hash-put! - __tmp153916 - _%sym153727%_ + __tmp154022 + _%sym153833%_ '#t)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153662%_ - _%L153711%_)))) - _%hd153676153706%_ - _%hd153673153698%_) - (_%g153665153682%_ - _%g153666153685%_)))) - (_%g153665153682%_ _%g153666153685%_)))) - (_%g153665153682%_ _%g153666153685%_)))) - (_%g153665153682%_ _%g153666153685%_))))) - (_%g153664153729%_ _%stx153663%_)))) + _%self153768%_ + _%L153817%_)))) + _%hd153782153812%_ + _%hd153779153804%_) + (_%g153771153788%_ + _%g153772153791%_)))) + (_%g153771153788%_ _%g153772153791%_)))) + (_%g153771153788%_ _%g153772153791%_)))) + (_%g153771153788%_ _%g153772153791%_))))) + (_%g153770153835%_ _%stx153769%_)))) (define gxc#expression-subst-ref% - (lambda (_%self153610%_ _%stx153611%_) - (let* ((_%g153613153626%_ - (lambda (_%g153614153623%_) + (lambda (_%self153716%_ _%stx153717%_) + (let* ((_%g153719153732%_ + (lambda (_%g153720153729%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153614153623%_)))) - (_%g153612153659%_ - (lambda (_%g153614153629%_) + _%g153720153729%_)))) + (_%g153718153765%_ + (lambda (_%g153720153735%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153614153629%_)) - (let ((_%e153616153631%_ + (gx#stx-pair? _%g153720153735%_)) + (let ((_%e153722153737%_ (let () (declare (not safe)) - (gx#stx-e _%g153614153629%_)))) - (let ((_%hd153617153634%_ + (gx#stx-e _%g153720153735%_)))) + (let ((_%hd153723153740%_ (let () (declare (not safe)) - (##car _%e153616153631%_))) - (_%tl153618153636%_ + (##car _%e153722153737%_))) + (_%tl153724153742%_ (let () (declare (not safe)) - (##cdr _%e153616153631%_)))) + (##cdr _%e153722153737%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153618153636%_)) - (let ((_%e153619153639%_ + (gx#stx-pair? _%tl153724153742%_)) + (let ((_%e153725153745%_ (let () (declare (not safe)) - (gx#stx-e _%tl153618153636%_)))) - (let ((_%hd153620153642%_ + (gx#stx-e _%tl153724153742%_)))) + (let ((_%hd153726153748%_ (let () (declare (not safe)) - (##car _%e153619153639%_))) - (_%tl153621153644%_ + (##car _%e153725153745%_))) + (_%tl153727153750%_ (let () (declare (not safe)) - (##cdr _%e153619153639%_)))) + (##cdr _%e153725153745%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153621153644%_)) - ((lambda (_%L153647%_) - (if (let ((__tmp153917 + (gx#stx-null? _%tl153727153750%_)) + ((lambda (_%L153753%_) + (if (let ((__tmp154023 (let () (declare (not safe)) (slot-ref__0 - _%self153610%_ + _%self153716%_ 'id)))) (declare (not safe)) (gx#free-identifier=? - _%L153647%_ - __tmp153917)) - (let ((__tmp153918 + _%L153753%_ + __tmp154023)) + (let ((__tmp154024 (cons '%#ref (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (slot-ref__0 _%self153610%_ 'new-id)) + (slot-ref__0 _%self153716%_ 'new-id)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153918 - _%stx153611%_)) - _%stx153611%_)) - _%hd153620153642%_) - (_%g153613153626%_ _%g153614153629%_)))) - (_%g153613153626%_ _%g153614153629%_)))) - (_%g153613153626%_ _%g153614153629%_))))) - (_%g153612153659%_ _%stx153611%_)))) + __tmp154024 + _%stx153717%_)) + _%stx153717%_)) + _%hd153726153748%_) + (_%g153719153732%_ _%g153720153735%_)))) + (_%g153719153732%_ _%g153720153735%_)))) + (_%g153719153732%_ _%g153720153735%_))))) + (_%g153718153765%_ _%stx153717%_)))) (define gxc#expression-subst*-ref% - (lambda (_%self153550%_ _%stx153551%_) - (let* ((_%g153553153566%_ - (lambda (_%g153554153563%_) + (lambda (_%self153656%_ _%stx153657%_) + (let* ((_%g153659153672%_ + (lambda (_%g153660153669%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153554153563%_)))) - (_%g153552153607%_ - (lambda (_%g153554153569%_) + _%g153660153669%_)))) + (_%g153658153713%_ + (lambda (_%g153660153675%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153554153569%_)) - (let ((_%e153556153571%_ + (gx#stx-pair? _%g153660153675%_)) + (let ((_%e153662153677%_ (let () (declare (not safe)) - (gx#stx-e _%g153554153569%_)))) - (let ((_%hd153557153574%_ + (gx#stx-e _%g153660153675%_)))) + (let ((_%hd153663153680%_ (let () (declare (not safe)) - (##car _%e153556153571%_))) - (_%tl153558153576%_ + (##car _%e153662153677%_))) + (_%tl153664153682%_ (let () (declare (not safe)) - (##cdr _%e153556153571%_)))) + (##cdr _%e153662153677%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153558153576%_)) - (let ((_%e153559153579%_ + (gx#stx-pair? _%tl153664153682%_)) + (let ((_%e153665153685%_ (let () (declare (not safe)) - (gx#stx-e _%tl153558153576%_)))) - (let ((_%hd153560153582%_ + (gx#stx-e _%tl153664153682%_)))) + (let ((_%hd153666153688%_ (let () (declare (not safe)) - (##car _%e153559153579%_))) - (_%tl153561153584%_ + (##car _%e153665153685%_))) + (_%tl153667153690%_ (let () (declare (not safe)) - (##cdr _%e153559153579%_)))) + (##cdr _%e153665153685%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153561153584%_)) - ((lambda (_%L153587%_) - (let ((_%$e153601%_ - (let ((__tmp153920 - (lambda (_%sub153599%_) - (let ((__tmp153921 - (car _%sub153599%_))) + (gx#stx-null? _%tl153667153690%_)) + ((lambda (_%L153693%_) + (let ((_%$e153707%_ + (let ((__tmp154026 + (lambda (_%sub153705%_) + (let ((__tmp154027 + (car _%sub153705%_))) (declare (not safe)) (gx#free-identifier=? - _%L153587%_ - __tmp153921)))) - (__tmp153919 + _%L153693%_ + __tmp154027)))) + (__tmp154025 (let () (declare (not safe)) (slot-ref__0 - _%self153550%_ + _%self153656%_ 'subst)))) (declare (not safe)) - (__find __tmp153920 - __tmp153919)))) - (if _%$e153601%_ - ((lambda (_%sub153604%_) - (let ((__tmp153922 + (__find __tmp154026 + __tmp154025)))) + (if _%$e153707%_ + ((lambda (_%sub153710%_) + (let ((__tmp154028 (cons '%#ref - (cons (cdr _%sub153604%_) + (cons (cdr _%sub153710%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153922 - _%stx153551%_))) - _%$e153601%_) - _%stx153551%_))) - _%hd153560153582%_) - (_%g153553153566%_ _%g153554153569%_)))) - (_%g153553153566%_ _%g153554153569%_)))) - (_%g153553153566%_ _%g153554153569%_))))) - (_%g153552153607%_ _%stx153551%_)))) + __tmp154028 + _%stx153657%_))) + _%$e153707%_) + _%stx153657%_))) + _%hd153666153688%_) + (_%g153659153672%_ _%g153660153675%_)))) + (_%g153659153672%_ _%g153660153675%_)))) + (_%g153659153672%_ _%g153660153675%_))))) + (_%g153658153713%_ _%stx153657%_)))) (define gxc#expression-subst-setq% - (lambda (_%self153479%_ _%stx153480%_) - (let* ((_%g153482153499%_ - (lambda (_%g153483153496%_) + (lambda (_%self153585%_ _%stx153586%_) + (let* ((_%g153588153605%_ + (lambda (_%g153589153602%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153483153496%_)))) - (_%g153481153547%_ - (lambda (_%g153483153502%_) + _%g153589153602%_)))) + (_%g153587153653%_ + (lambda (_%g153589153608%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153483153502%_)) - (let ((_%e153486153504%_ + (gx#stx-pair? _%g153589153608%_)) + (let ((_%e153592153610%_ (let () (declare (not safe)) - (gx#stx-e _%g153483153502%_)))) - (let ((_%hd153487153507%_ + (gx#stx-e _%g153589153608%_)))) + (let ((_%hd153593153613%_ (let () (declare (not safe)) - (##car _%e153486153504%_))) - (_%tl153488153509%_ + (##car _%e153592153610%_))) + (_%tl153594153615%_ (let () (declare (not safe)) - (##cdr _%e153486153504%_)))) + (##cdr _%e153592153610%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153488153509%_)) - (let ((_%e153489153512%_ + (gx#stx-pair? _%tl153594153615%_)) + (let ((_%e153595153618%_ (let () (declare (not safe)) - (gx#stx-e _%tl153488153509%_)))) - (let ((_%hd153490153515%_ + (gx#stx-e _%tl153594153615%_)))) + (let ((_%hd153596153621%_ (let () (declare (not safe)) - (##car _%e153489153512%_))) - (_%tl153491153517%_ + (##car _%e153595153618%_))) + (_%tl153597153623%_ (let () (declare (not safe)) - (##cdr _%e153489153512%_)))) + (##cdr _%e153595153618%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153491153517%_)) - (let ((_%e153492153520%_ + (gx#stx-pair? _%tl153597153623%_)) + (let ((_%e153598153626%_ (let () (declare (not safe)) - (gx#stx-e _%tl153491153517%_)))) - (let ((_%hd153493153523%_ + (gx#stx-e _%tl153597153623%_)))) + (let ((_%hd153599153629%_ (let () (declare (not safe)) - (##car _%e153492153520%_))) - (_%tl153494153525%_ + (##car _%e153598153626%_))) + (_%tl153600153631%_ (let () (declare (not safe)) - (##cdr _%e153492153520%_)))) + (##cdr _%e153598153626%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153494153525%_)) - ((lambda (_%L153528%_ - _%L153529%_) - (let ((_%new-expr153544%_ + _%tl153600153631%_)) + ((lambda (_%L153634%_ + _%L153635%_) + (let ((_%new-expr153650%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153479%_ - _%L153528%_))) - (_%new-xid153545%_ - (if (let ((__tmp153923 + _%self153585%_ + _%L153634%_))) + (_%new-xid153651%_ + (if (let ((__tmp154029 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (slot-ref__0 _%self153479%_ 'id)))) + (slot-ref__0 _%self153585%_ 'id)))) (declare (not safe)) - (gx#free-identifier=? _%L153529%_ __tmp153923)) + (gx#free-identifier=? _%L153635%_ __tmp154029)) (let () (declare (not safe)) - (slot-ref__0 _%self153479%_ 'new-id)) - _%L153529%_))) + (slot-ref__0 _%self153585%_ 'new-id)) + _%L153635%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153924 + (let ((__tmp154030 (cons '%#set! - (cons _%new-xid153545%_ + (cons _%new-xid153651%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153544%_ '()))))) + (cons _%new-expr153650%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153924 - _%stx153480%_)))) - _%hd153493153523%_ - _%hd153490153515%_) - (_%g153482153499%_ - _%g153483153502%_)))) - (_%g153482153499%_ _%g153483153502%_)))) - (_%g153482153499%_ _%g153483153502%_)))) - (_%g153482153499%_ _%g153483153502%_))))) - (_%g153481153547%_ _%stx153480%_)))) + __tmp154030 + _%stx153586%_)))) + _%hd153599153629%_ + _%hd153596153621%_) + (_%g153588153605%_ + _%g153589153608%_)))) + (_%g153588153605%_ _%g153589153608%_)))) + (_%g153588153605%_ _%g153589153608%_)))) + (_%g153588153605%_ _%g153589153608%_))))) + (_%g153587153653%_ _%stx153586%_)))) (define gxc#expression-subst*-setq% - (lambda (_%self153402%_ _%stx153403%_) - (let* ((_%g153405153422%_ - (lambda (_%g153406153419%_) + (lambda (_%self153508%_ _%stx153509%_) + (let* ((_%g153511153528%_ + (lambda (_%g153512153525%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153406153419%_)))) - (_%g153404153476%_ - (lambda (_%g153406153425%_) + _%g153512153525%_)))) + (_%g153510153582%_ + (lambda (_%g153512153531%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153406153425%_)) - (let ((_%e153409153427%_ + (gx#stx-pair? _%g153512153531%_)) + (let ((_%e153515153533%_ (let () (declare (not safe)) - (gx#stx-e _%g153406153425%_)))) - (let ((_%hd153410153430%_ + (gx#stx-e _%g153512153531%_)))) + (let ((_%hd153516153536%_ (let () (declare (not safe)) - (##car _%e153409153427%_))) - (_%tl153411153432%_ + (##car _%e153515153533%_))) + (_%tl153517153538%_ (let () (declare (not safe)) - (##cdr _%e153409153427%_)))) + (##cdr _%e153515153533%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153411153432%_)) - (let ((_%e153412153435%_ + (gx#stx-pair? _%tl153517153538%_)) + (let ((_%e153518153541%_ (let () (declare (not safe)) - (gx#stx-e _%tl153411153432%_)))) - (let ((_%hd153413153438%_ + (gx#stx-e _%tl153517153538%_)))) + (let ((_%hd153519153544%_ (let () (declare (not safe)) - (##car _%e153412153435%_))) - (_%tl153414153440%_ + (##car _%e153518153541%_))) + (_%tl153520153546%_ (let () (declare (not safe)) - (##cdr _%e153412153435%_)))) + (##cdr _%e153518153541%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153414153440%_)) - (let ((_%e153415153443%_ + (gx#stx-pair? _%tl153520153546%_)) + (let ((_%e153521153549%_ (let () (declare (not safe)) - (gx#stx-e _%tl153414153440%_)))) - (let ((_%hd153416153446%_ + (gx#stx-e _%tl153520153546%_)))) + (let ((_%hd153522153552%_ (let () (declare (not safe)) - (##car _%e153415153443%_))) - (_%tl153417153448%_ + (##car _%e153521153549%_))) + (_%tl153523153554%_ (let () (declare (not safe)) - (##cdr _%e153415153443%_)))) + (##cdr _%e153521153549%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153417153448%_)) - ((lambda (_%L153451%_ - _%L153452%_) - (let ((_%new-expr153473%_ + _%tl153523153554%_)) + ((lambda (_%L153557%_ + _%L153558%_) + (let ((_%new-expr153579%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153402%_ - _%L153451%_))) - (_%new-xid153474%_ - (let ((_%$e153469%_ - (let ((__tmp153926 + _%self153508%_ + _%L153557%_))) + (_%new-xid153580%_ + (let ((_%$e153575%_ + (let ((__tmp154032 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%sub153467%_) - (let ((__tmp153927 (car _%sub153467%_))) + (lambda (_%sub153573%_) + (let ((__tmp154033 (car _%sub153573%_))) (declare (not safe)) (gx#free-identifier=? - _%L153452%_ - __tmp153927)))) - (__tmp153925 + _%L153558%_ + __tmp154033)))) + (__tmp154031 (let () (declare (not safe)) - (slot-ref__0 _%self153402%_ 'subst)))) + (slot-ref__0 _%self153508%_ 'subst)))) (declare (not safe)) - (__find __tmp153926 __tmp153925)))) - (if _%$e153469%_ (cdr _%$e153469%_) _%L153452%_)))) + (__find __tmp154032 __tmp154031)))) + (if _%$e153575%_ (cdr _%$e153575%_) _%L153558%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((__tmp153928 + (let ((__tmp154034 (cons '%#set! - (cons _%new-xid153474%_ + (cons _%new-xid153580%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%new-expr153473%_ '()))))) + (cons _%new-expr153579%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gxc#xform-wrap-source - __tmp153928 - _%stx153403%_)))) - _%hd153416153446%_ - _%hd153413153438%_) - (_%g153405153422%_ - _%g153406153425%_)))) - (_%g153405153422%_ _%g153406153425%_)))) - (_%g153405153422%_ _%g153406153425%_)))) - (_%g153405153422%_ _%g153406153425%_))))) - (_%g153404153476%_ _%stx153403%_)))) + __tmp154034 + _%stx153509%_)))) + _%hd153522153552%_ + _%hd153519153544%_) + (_%g153511153528%_ + _%g153512153531%_)))) + (_%g153511153528%_ _%g153512153531%_)))) + (_%g153511153528%_ _%g153512153531%_)))) + (_%g153511153528%_ _%g153512153531%_))))) + (_%g153510153582%_ _%stx153509%_)))) (define gxc#collect-runtime-refs-ref% - (lambda (_%self153348%_ _%stx153349%_) - (let* ((_%g153351153364%_ - (lambda (_%g153352153361%_) + (lambda (_%self153454%_ _%stx153455%_) + (let* ((_%g153457153470%_ + (lambda (_%g153458153467%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153352153361%_)))) - (_%g153350153399%_ - (lambda (_%g153352153367%_) + _%g153458153467%_)))) + (_%g153456153505%_ + (lambda (_%g153458153473%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153352153367%_)) - (let ((_%e153354153369%_ + (gx#stx-pair? _%g153458153473%_)) + (let ((_%e153460153475%_ (let () (declare (not safe)) - (gx#stx-e _%g153352153367%_)))) - (let ((_%hd153355153372%_ + (gx#stx-e _%g153458153473%_)))) + (let ((_%hd153461153478%_ (let () (declare (not safe)) - (##car _%e153354153369%_))) - (_%tl153356153374%_ + (##car _%e153460153475%_))) + (_%tl153462153480%_ (let () (declare (not safe)) - (##cdr _%e153354153369%_)))) + (##cdr _%e153460153475%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153356153374%_)) - (let ((_%e153357153377%_ + (gx#stx-pair? _%tl153462153480%_)) + (let ((_%e153463153483%_ (let () (declare (not safe)) - (gx#stx-e _%tl153356153374%_)))) - (let ((_%hd153358153380%_ + (gx#stx-e _%tl153462153480%_)))) + (let ((_%hd153464153486%_ (let () (declare (not safe)) - (##car _%e153357153377%_))) - (_%tl153359153382%_ + (##car _%e153463153483%_))) + (_%tl153465153488%_ (let () (declare (not safe)) - (##cdr _%e153357153377%_)))) + (##cdr _%e153463153483%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153359153382%_)) - ((lambda (_%L153385%_) - (let* ((_%eid153397%_ + (gx#stx-null? _%tl153465153488%_)) + ((lambda (_%L153491%_) + (let* ((_%eid153503%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153385%_))) - (__tmp153929 + _%L153491%_))) + (__tmp154035 (let () (declare (not safe)) (slot-ref__0 - _%self153348%_ + _%self153454%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153929 - _%eid153397%_ + __tmp154035 + _%eid153503%_ 1+ '0))) - _%hd153358153380%_) - (_%g153351153364%_ _%g153352153367%_)))) - (_%g153351153364%_ _%g153352153367%_)))) - (_%g153351153364%_ _%g153352153367%_))))) - (_%g153350153399%_ _%stx153349%_)))) + _%hd153464153486%_) + (_%g153457153470%_ _%g153458153473%_)))) + (_%g153457153470%_ _%g153458153473%_)))) + (_%g153457153470%_ _%g153458153473%_))))) + (_%g153456153505%_ _%stx153455%_)))) (define gxc#collect-runtime-refs-setq% - (lambda (_%self153278%_ _%stx153279%_) - (let* ((_%g153281153298%_ - (lambda (_%g153282153295%_) + (lambda (_%self153384%_ _%stx153385%_) + (let* ((_%g153387153404%_ + (lambda (_%g153388153401%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153282153295%_)))) - (_%g153280153345%_ - (lambda (_%g153282153301%_) + _%g153388153401%_)))) + (_%g153386153451%_ + (lambda (_%g153388153407%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153282153301%_)) - (let ((_%e153285153303%_ + (gx#stx-pair? _%g153388153407%_)) + (let ((_%e153391153409%_ (let () (declare (not safe)) - (gx#stx-e _%g153282153301%_)))) - (let ((_%hd153286153306%_ + (gx#stx-e _%g153388153407%_)))) + (let ((_%hd153392153412%_ (let () (declare (not safe)) - (##car _%e153285153303%_))) - (_%tl153287153308%_ + (##car _%e153391153409%_))) + (_%tl153393153414%_ (let () (declare (not safe)) - (##cdr _%e153285153303%_)))) + (##cdr _%e153391153409%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153287153308%_)) - (let ((_%e153288153311%_ + (gx#stx-pair? _%tl153393153414%_)) + (let ((_%e153394153417%_ (let () (declare (not safe)) - (gx#stx-e _%tl153287153308%_)))) - (let ((_%hd153289153314%_ + (gx#stx-e _%tl153393153414%_)))) + (let ((_%hd153395153420%_ (let () (declare (not safe)) - (##car _%e153288153311%_))) - (_%tl153290153316%_ + (##car _%e153394153417%_))) + (_%tl153396153422%_ (let () (declare (not safe)) - (##cdr _%e153288153311%_)))) + (##cdr _%e153394153417%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153290153316%_)) - (let ((_%e153291153319%_ + (gx#stx-pair? _%tl153396153422%_)) + (let ((_%e153397153425%_ (let () (declare (not safe)) - (gx#stx-e _%tl153290153316%_)))) - (let ((_%hd153292153322%_ + (gx#stx-e _%tl153396153422%_)))) + (let ((_%hd153398153428%_ (let () (declare (not safe)) - (##car _%e153291153319%_))) - (_%tl153293153324%_ + (##car _%e153397153425%_))) + (_%tl153399153430%_ (let () (declare (not safe)) - (##cdr _%e153291153319%_)))) + (##cdr _%e153397153425%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153293153324%_)) - ((lambda (_%L153327%_ - _%L153328%_) - (let ((_%eid153343%_ + _%tl153399153430%_)) + ((lambda (_%L153433%_ + _%L153434%_) + (let ((_%eid153449%_ (let () (declare (not safe)) (gxc#identifier-symbol - _%L153328%_)))) - (let ((__tmp153930 + _%L153434%_)))) + (let ((__tmp154036 (let () (declare (not safe)) (slot-ref__0 - _%self153278%_ + _%self153384%_ 'table)))) (declare (not safe)) (hash-update!__% - __tmp153930 - _%eid153343%_ + __tmp154036 + _%eid153449%_ 1+ '0)) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153278%_ - _%L153327%_)))) - _%hd153292153322%_ - _%hd153289153314%_) - (_%g153281153298%_ - _%g153282153301%_)))) - (_%g153281153298%_ _%g153282153301%_)))) - (_%g153281153298%_ _%g153282153301%_)))) - (_%g153281153298%_ _%g153282153301%_))))) - (_%g153280153345%_ _%stx153279%_)))) + _%self153384%_ + _%L153433%_)))) + _%hd153398153428%_ + _%hd153395153420%_) + (_%g153387153404%_ + _%g153388153407%_)))) + (_%g153387153404%_ _%g153388153407%_)))) + (_%g153387153404%_ _%g153388153407%_)))) + (_%g153387153404%_ _%g153388153407%_))))) + (_%g153386153451%_ _%stx153385%_)))) (define gxc#find-body% - (lambda (_%self153191%_ _%stx153192%_) - (let* ((_%g153194153213%_ - (lambda (_%g153195153210%_) + (lambda (_%self153297%_ _%stx153298%_) + (let* ((_%g153300153319%_ + (lambda (_%g153301153316%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153195153210%_)))) - (_%g153193153275%_ - (lambda (_%g153195153216%_) + _%g153301153316%_)))) + (_%g153299153381%_ + (lambda (_%g153301153322%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153195153216%_)) - (let ((_%e153197153218%_ + (gx#stx-pair? _%g153301153322%_)) + (let ((_%e153303153324%_ (let () (declare (not safe)) - (gx#stx-e _%g153195153216%_)))) - (let ((_%hd153198153221%_ + (gx#stx-e _%g153301153322%_)))) + (let ((_%hd153304153327%_ (let () (declare (not safe)) - (##car _%e153197153218%_))) - (_%tl153199153223%_ + (##car _%e153303153324%_))) + (_%tl153305153329%_ (let () (declare (not safe)) - (##cdr _%e153197153218%_)))) + (##cdr _%e153303153324%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl153199153223%_)) - (let ((_g153931_ + (gx#stx-pair/null? _%tl153305153329%_)) + (let ((_g154037_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl153199153223%_ + _%tl153305153329%_ '0)))) (begin - (let ((_g153932_ + (let ((_g154038_ (let () (declare (not safe)) - (if (##values? _g153931_) - (##vector-length _g153931_) + (if (##values? _g154037_) + (##values-length _g154037_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153932_ 2))) + (##fx= _g154038_ 2))) (error "Context expects 2 values" - _g153932_))) - (let ((_%target153200153226%_ + _g154038_))) + (let ((_%target153306153332%_ (let () (declare (not safe)) - (##vector-ref _g153931_ 0))) - (_%tl153202153228%_ + (##values-ref _g154037_ 0))) + (_%tl153308153334%_ (let () (declare (not safe)) - (##vector-ref _g153931_ 1)))) + (##values-ref _g154037_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153202153228%_)) - (letrec ((_%loop153203153231%_ - (lambda (_%hd153201153234%_ - _%expr153207153236%_) + (gx#stx-null? _%tl153308153334%_)) + (letrec ((_%loop153309153337%_ + (lambda (_%hd153307153340%_ + _%expr153313153342%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd153201153234%_)) - (let ((_%e153204153239%_ + _%hd153307153340%_)) + (let ((_%e153310153345%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd153201153234%_)))) - (let ((_%lp-hd153205153242%_ + (gx#stx-e _%hd153307153340%_)))) + (let ((_%lp-hd153311153348%_ (let () (declare (not safe)) - (##car _%e153204153239%_))) - (_%lp-tl153206153244%_ + (##car _%e153310153345%_))) + (_%lp-tl153312153350%_ (let () (declare (not safe)) - (##cdr _%e153204153239%_)))) - (_%loop153203153231%_ - _%lp-tl153206153244%_ - (cons _%lp-hd153205153242%_ _%expr153207153236%_)))) - (let ((_%expr153208153247%_ (reverse _%expr153207153236%_))) - ((lambda (_%L153250%_) - (let ((__tmp153935 - (lambda (_%g153263153265%_) + (##cdr _%e153310153345%_)))) + (_%loop153309153337%_ + _%lp-tl153312153350%_ + (cons _%lp-hd153311153348%_ _%expr153313153342%_)))) + (let ((_%expr153314153353%_ (reverse _%expr153313153342%_))) + ((lambda (_%L153356%_) + (let ((__tmp154041 + (lambda (_%g153369153371%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153191%_ - _%g153263153265%_)))) - (__tmp153933 - (let ((__tmp153934 - (lambda (_%g153267153270%_ - _%g153268153272%_) - (cons _%g153267153270%_ - _%g153268153272%_)))) + _%self153297%_ + _%g153369153371%_)))) + (__tmp154039 + (let ((__tmp154040 + (lambda (_%g153373153376%_ + _%g153374153378%_) + (cons _%g153373153376%_ + _%g153374153378%_)))) (declare (not safe)) - (__foldr1 __tmp153934 '() _%L153250%_)))) + (__foldr1 __tmp154040 '() _%L153356%_)))) (declare (not safe)) - (__ormap1 __tmp153935 __tmp153933))) - _%expr153208153247%_)))))) + (__ormap1 __tmp154041 __tmp154039))) + _%expr153314153353%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153203153231%_ - _%target153200153226%_ + (_%loop153309153337%_ + _%target153306153332%_ '())) - (_%g153194153213%_ - _%g153195153216%_))))) - (_%g153194153213%_ _%g153195153216%_)))) - (_%g153194153213%_ _%g153195153216%_))))) - (_%g153193153275%_ _%stx153192%_)))) + (_%g153300153319%_ + _%g153301153322%_))))) + (_%g153300153319%_ _%g153301153322%_)))) + (_%g153300153319%_ _%g153301153322%_))))) + (_%g153299153381%_ _%stx153298%_)))) (define gxc#find-let-values% - (lambda (_%self153041%_ _%stx153042%_) - (let* ((_%g153044153079%_ - (lambda (_%g153045153076%_) + (lambda (_%self153147%_ _%stx153148%_) + (let* ((_%g153150153185%_ + (lambda (_%g153151153182%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g153045153076%_)))) - (_%g153043153188%_ - (lambda (_%g153045153082%_) + _%g153151153182%_)))) + (_%g153149153294%_ + (lambda (_%g153151153188%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g153045153082%_)) - (let ((_%e153049153084%_ + (gx#stx-pair? _%g153151153188%_)) + (let ((_%e153155153190%_ (let () (declare (not safe)) - (gx#stx-e _%g153045153082%_)))) - (let ((_%hd153050153087%_ + (gx#stx-e _%g153151153188%_)))) + (let ((_%hd153156153193%_ (let () (declare (not safe)) - (##car _%e153049153084%_))) - (_%tl153051153089%_ + (##car _%e153155153190%_))) + (_%tl153157153195%_ (let () (declare (not safe)) - (##cdr _%e153049153084%_)))) + (##cdr _%e153155153190%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153051153089%_)) - (let ((_%e153052153092%_ + (gx#stx-pair? _%tl153157153195%_)) + (let ((_%e153158153198%_ (let () (declare (not safe)) - (gx#stx-e _%tl153051153089%_)))) - (let ((_%hd153053153095%_ + (gx#stx-e _%tl153157153195%_)))) + (let ((_%hd153159153201%_ (let () (declare (not safe)) - (##car _%e153052153092%_))) - (_%tl153054153097%_ + (##car _%e153158153198%_))) + (_%tl153160153203%_ (let () (declare (not safe)) - (##cdr _%e153052153092%_)))) + (##cdr _%e153158153198%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%hd153053153095%_)) - (let ((_g153936_ + (gx#stx-pair/null? _%hd153159153201%_)) + (let ((_g154042_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd153053153095%_ + _%hd153159153201%_ '0)))) (begin - (let ((_g153937_ + (let ((_g154043_ (let () (declare (not safe)) - (if (##values? _g153936_) - (##vector-length - _g153936_) + (if (##values? _g154042_) + (##values-length + _g154042_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g153937_ 2))) + (##fx= _g154043_ 2))) (error "Context expects 2 values" - _g153937_))) - (let ((_%target153055153100%_ + _g154043_))) + (let ((_%target153161153206%_ (let () (declare (not safe)) - (##vector-ref _g153936_ 0))) - (_%tl153057153102%_ + (##values-ref _g154042_ 0))) + (_%tl153163153208%_ (let () (declare (not safe)) - (##vector-ref - _g153936_ + (##values-ref + _g154042_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153057153102%_)) - (letrec ((_%loop153058153105%_ - (lambda (_%hd153056153108%_ + _%tl153163153208%_)) + (letrec ((_%loop153164153211%_ + (lambda (_%hd153162153214%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr153062153110%_ - _%bind153063153112%_) + _%expr153168153216%_ + _%bind153169153218%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd153056153108%_)) - (let ((_%e153059153115%_ + (gx#stx-pair? _%hd153162153214%_)) + (let ((_%e153165153221%_ (let () (declare (not safe)) - (gx#stx-e _%hd153056153108%_)))) - (let ((_%lp-hd153060153118%_ + (gx#stx-e _%hd153162153214%_)))) + (let ((_%lp-hd153166153224%_ (let () (declare (not safe)) - (##car _%e153059153115%_))) - (_%lp-tl153061153120%_ + (##car _%e153165153221%_))) + (_%lp-tl153167153226%_ (let () (declare (not safe)) - (##cdr _%e153059153115%_)))) + (##cdr _%e153165153221%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd153060153118%_)) - (let ((_%e153069153123%_ + (gx#stx-pair? _%lp-hd153166153224%_)) + (let ((_%e153175153229%_ (let () (declare (not safe)) - (gx#stx-e _%lp-hd153060153118%_)))) - (let ((_%hd153070153126%_ + (gx#stx-e _%lp-hd153166153224%_)))) + (let ((_%hd153176153232%_ (let () (declare (not safe)) - (##car _%e153069153123%_))) - (_%tl153071153128%_ + (##car _%e153175153229%_))) + (_%tl153177153234%_ (let () (declare (not safe)) - (##cdr _%e153069153123%_)))) + (##cdr _%e153175153229%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153071153128%_)) - (let ((_%e153072153131%_ + (gx#stx-pair? _%tl153177153234%_)) + (let ((_%e153178153237%_ (let () (declare (not safe)) (gx#stx-e - _%tl153071153128%_)))) - (let ((_%hd153073153134%_ + _%tl153177153234%_)))) + (let ((_%hd153179153240%_ (let () (declare (not safe)) - (##car _%e153072153131%_))) - (_%tl153074153136%_ + (##car _%e153178153237%_))) + (_%tl153180153242%_ (let () (declare (not safe)) - (##cdr _%e153072153131%_)))) + (##cdr _%e153178153237%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl153074153136%_)) - (_%loop153058153105%_ - _%lp-tl153061153120%_ - (cons _%hd153073153134%_ - _%expr153062153110%_) - (cons _%hd153070153126%_ - _%bind153063153112%_)) - (_%g153044153079%_ - _%g153045153082%_)))) - (_%g153044153079%_ - _%g153045153082%_)))) - (_%g153044153079%_ _%g153045153082%_)))) - (let ((_%expr153064153139%_ - (reverse _%expr153062153110%_)) - (_%bind153065153141%_ - (reverse _%bind153063153112%_))) + _%tl153180153242%_)) + (_%loop153164153211%_ + _%lp-tl153167153226%_ + (cons _%hd153179153240%_ + _%expr153168153216%_) + (cons _%hd153176153232%_ + _%bind153169153218%_)) + (_%g153150153185%_ + _%g153151153188%_)))) + (_%g153150153185%_ + _%g153151153188%_)))) + (_%g153150153185%_ _%g153151153188%_)))) + (let ((_%expr153170153245%_ + (reverse _%expr153168153216%_)) + (_%bind153171153247%_ + (reverse _%bind153169153218%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl153054153097%_)) - (let ((_%e153066153144%_ + (gx#stx-pair? _%tl153160153203%_)) + (let ((_%e153172153250%_ (let () (declare (not safe)) - (gx#stx-e _%tl153054153097%_)))) - (let ((_%hd153067153147%_ + (gx#stx-e _%tl153160153203%_)))) + (let ((_%hd153173153253%_ (let () (declare (not safe)) - (##car _%e153066153144%_))) - (_%tl153068153149%_ + (##car _%e153172153250%_))) + (_%tl153174153255%_ (let () (declare (not safe)) - (##cdr _%e153066153144%_)))) + (##cdr _%e153172153250%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl153068153149%_)) - ((lambda (_%L153152%_ - _%L153153%_ - _%L153154%_) - (let ((_%$e153185%_ - (let ((__tmp153940 - (lambda (_%g153173153175%_) + (gx#stx-null? _%tl153174153255%_)) + ((lambda (_%L153258%_ + _%L153259%_ + _%L153260%_) + (let ((_%$e153291%_ + (let ((__tmp154046 + (lambda (_%g153279153281%_) (let () (declare (not safe)) (gxc#compile-e__1 - _%self153041%_ - _%g153173153175%_)))) - (__tmp153938 - (let ((__tmp153939 - (lambda (_%g153177153180%_ + _%self153147%_ + _%g153279153281%_)))) + (__tmp154044 + (let ((__tmp154045 + (lambda (_%g153283153286%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g153178153182%_) - (cons _%g153177153180%_ _%g153178153182%_)))) + _%g153284153288%_) + (cons _%g153283153286%_ _%g153284153288%_)))) (declare (not safe)) - (__foldr1 __tmp153939 '() _%L153153%_)))) + (__foldr1 __tmp154045 '() _%L153259%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__ormap1 - __tmp153940 - __tmp153938)))) - (if _%$e153185%_ - _%$e153185%_ + __tmp154046 + __tmp154044)))) + (if _%$e153291%_ + _%$e153291%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self153041%_ - _%L153152%_))))) - _%hd153067153147%_ - _%expr153064153139%_ - _%bind153065153141%_) - (_%g153044153079%_ _%g153045153082%_)))) - (_%g153044153079%_ _%g153045153082%_))))))) + _%self153147%_ + _%L153258%_))))) + _%hd153173153253%_ + _%expr153170153245%_ + _%bind153171153247%_) + (_%g153150153185%_ _%g153151153188%_)))) + (_%g153150153185%_ _%g153151153188%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop153058153105%_ - _%target153055153100%_ + (_%loop153164153211%_ + _%target153161153206%_ '() '())) - (_%g153044153079%_ - _%g153045153082%_))))) - (_%g153044153079%_ _%g153045153082%_)))) - (_%g153044153079%_ _%g153045153082%_)))) - (_%g153044153079%_ _%g153045153082%_))))) - (_%g153043153188%_ _%stx153042%_)))) + (_%g153150153185%_ + _%g153151153188%_))))) + (_%g153150153185%_ _%g153151153188%_)))) + (_%g153150153185%_ _%g153151153188%_)))) + (_%g153150153185%_ _%g153151153188%_))))) + (_%g153149153294%_ _%stx153148%_)))) (define gxc#find-var-refs-ref% - (lambda (_%self152985%_ _%stx152986%_) - (let* ((_%g152988153001%_ - (lambda (_%g152989152998%_) + (lambda (_%self153091%_ _%stx153092%_) + (let* ((_%g153094153107%_ + (lambda (_%g153095153104%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152989152998%_)))) - (_%g152987153038%_ - (lambda (_%g152989153004%_) + _%g153095153104%_)))) + (_%g153093153144%_ + (lambda (_%g153095153110%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152989153004%_)) - (let ((_%e152991153006%_ + (gx#stx-pair? _%g153095153110%_)) + (let ((_%e153097153112%_ (let () (declare (not safe)) - (gx#stx-e _%g152989153004%_)))) - (let ((_%hd152992153009%_ + (gx#stx-e _%g153095153110%_)))) + (let ((_%hd153098153115%_ (let () (declare (not safe)) - (##car _%e152991153006%_))) - (_%tl152993153011%_ + (##car _%e153097153112%_))) + (_%tl153099153117%_ (let () (declare (not safe)) - (##cdr _%e152991153006%_)))) + (##cdr _%e153097153112%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152993153011%_)) - (let ((_%e152994153014%_ + (gx#stx-pair? _%tl153099153117%_)) + (let ((_%e153100153120%_ (let () (declare (not safe)) - (gx#stx-e _%tl152993153011%_)))) - (let ((_%hd152995153017%_ + (gx#stx-e _%tl153099153117%_)))) + (let ((_%hd153101153123%_ (let () (declare (not safe)) - (##car _%e152994153014%_))) - (_%tl152996153019%_ + (##car _%e153100153120%_))) + (_%tl153102153125%_ (let () (declare (not safe)) - (##cdr _%e152994153014%_)))) + (##cdr _%e153100153120%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl152996153019%_)) - ((lambda (_%L153022%_) - (let ((__tmp153942 - (lambda (_%g153033153035%_) + (gx#stx-null? _%tl153102153125%_)) + ((lambda (_%L153128%_) + (let ((__tmp154048 + (lambda (_%g153139153141%_) (let () (declare (not safe)) (gx#free-identifier=? - _%L153022%_ - _%g153033153035%_)))) - (__tmp153941 + _%L153128%_ + _%g153139153141%_)))) + (__tmp154047 (let () (declare (not safe)) (slot-ref__0 - _%self152985%_ + _%self153091%_ 'ids)))) (declare (not safe)) - (__find __tmp153942 __tmp153941))) - _%hd152995153017%_) - (_%g152988153001%_ _%g152989153004%_)))) - (_%g152988153001%_ _%g152989153004%_)))) - (_%g152988153001%_ _%g152989153004%_))))) - (_%g152987153038%_ _%stx152986%_)))) + (__find __tmp154048 __tmp154047))) + _%hd153101153123%_) + (_%g153094153107%_ _%g153095153110%_)))) + (_%g153094153107%_ _%g153095153110%_)))) + (_%g153094153107%_ _%g153095153110%_))))) + (_%g153093153144%_ _%stx153092%_)))) (define gxc#find-var-refs-setq% - (lambda (_%self152910%_ _%stx152911%_) - (let* ((_%g152913152930%_ - (lambda (_%g152914152927%_) + (lambda (_%self153016%_ _%stx153017%_) + (let* ((_%g153019153036%_ + (lambda (_%g153020153033%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g152914152927%_)))) - (_%g152912152982%_ - (lambda (_%g152914152933%_) + _%g153020153033%_)))) + (_%g153018153088%_ + (lambda (_%g153020153039%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g152914152933%_)) - (let ((_%e152917152935%_ + (gx#stx-pair? _%g153020153039%_)) + (let ((_%e153023153041%_ (let () (declare (not safe)) - (gx#stx-e _%g152914152933%_)))) - (let ((_%hd152918152938%_ + (gx#stx-e _%g153020153039%_)))) + (let ((_%hd153024153044%_ (let () (declare (not safe)) - (##car _%e152917152935%_))) - (_%tl152919152940%_ + (##car _%e153023153041%_))) + (_%tl153025153046%_ (let () (declare (not safe)) - (##cdr _%e152917152935%_)))) + (##cdr _%e153023153041%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152919152940%_)) - (let ((_%e152920152943%_ + (gx#stx-pair? _%tl153025153046%_)) + (let ((_%e153026153049%_ (let () (declare (not safe)) - (gx#stx-e _%tl152919152940%_)))) - (let ((_%hd152921152946%_ + (gx#stx-e _%tl153025153046%_)))) + (let ((_%hd153027153052%_ (let () (declare (not safe)) - (##car _%e152920152943%_))) - (_%tl152922152948%_ + (##car _%e153026153049%_))) + (_%tl153028153054%_ (let () (declare (not safe)) - (##cdr _%e152920152943%_)))) + (##cdr _%e153026153049%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl152922152948%_)) - (let ((_%e152923152951%_ + (gx#stx-pair? _%tl153028153054%_)) + (let ((_%e153029153057%_ (let () (declare (not safe)) - (gx#stx-e _%tl152922152948%_)))) - (let ((_%hd152924152954%_ + (gx#stx-e _%tl153028153054%_)))) + (let ((_%hd153030153060%_ (let () (declare (not safe)) - (##car _%e152923152951%_))) - (_%tl152925152956%_ + (##car _%e153029153057%_))) + (_%tl153031153062%_ (let () (declare (not safe)) - (##cdr _%e152923152951%_)))) + (##cdr _%e153029153057%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl152925152956%_)) - ((lambda (_%L152959%_ - _%L152960%_) - (let ((_%$e152979%_ - (let ((__tmp153944 - (lambda (_%g152974152976%_) + _%tl153031153062%_)) + ((lambda (_%L153065%_ + _%L153066%_) + (let ((_%$e153085%_ + (let ((__tmp154050 + (lambda (_%g153080153082%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#free-identifier=? - _%L152960%_ - _%g152974152976%_)))) - (__tmp153943 + _%L153066%_ + _%g153080153082%_)))) + (__tmp154049 (let () (declare (not safe)) - (slot-ref__0 _%self152910%_ 'ids)))) + (slot-ref__0 _%self153016%_ 'ids)))) (declare (not safe)) - (__find __tmp153944 __tmp153943)))) + (__find __tmp154050 __tmp154049)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e152979%_ - _%$e152979%_ + (if _%$e153085%_ + _%$e153085%_ (let () (declare (not safe)) (gxc#compile-e__1 - _%self152910%_ - _%L152959%_))))) - _%hd152924152954%_ - _%hd152921152946%_) - (_%g152913152930%_ - _%g152914152933%_)))) - (_%g152913152930%_ _%g152914152933%_)))) - (_%g152913152930%_ _%g152914152933%_)))) - (_%g152913152930%_ _%g152914152933%_))))) - (_%g152912152982%_ _%stx152911%_)))))) + _%self153016%_ + _%L153065%_))))) + _%hd153030153060%_ + _%hd153027153052%_) + (_%g153019153036%_ + _%g153020153039%_)))) + (_%g153019153036%_ _%g153020153039%_)))) + (_%g153019153036%_ _%g153020153039%_)))) + (_%g153019153036%_ _%g153020153039%_))))) + (_%g153018153088%_ _%stx153017%_)))))) diff --git a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm index 359f84728..92e45409f 100644 --- a/src/bootstrap/gerbil/compiler/optimize-xform~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize-xform~1.scm @@ -1,300 +1,300 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g153946_| + (define |gxc[1]#_g154052_| (##structure gx#syntax-quote::t '::void #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153948_| + (define |gxc[1]#_g154054_| (##structure gx#syntax-quote::t '::collect-mutators::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153950_| + (define |gxc[1]#_g154056_| (##structure gx#syntax-quote::t 'make-::collect-mutators #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153952_| + (define |gxc[1]#_g154058_| (##structure gx#syntax-quote::t '::collect-mutators? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153954_| + (define |gxc[1]#_g154060_| (##structure gx#syntax-quote::t '::basic-xform-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153956_| + (define |gxc[1]#_g154062_| (##structure gx#syntax-quote::t '::expression-subst::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153958_| + (define |gxc[1]#_g154064_| (##structure gx#syntax-quote::t 'make-::expression-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153960_| + (define |gxc[1]#_g154066_| (##structure gx#syntax-quote::t '::expression-subst? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153962_| + (define |gxc[1]#_g154068_| (##structure gx#syntax-quote::t '::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153963_| + (define |gxc[1]#_g154069_| (##structure gx#syntax-quote::t '::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153965_| + (define |gxc[1]#_g154071_| (##structure gx#syntax-quote::t '::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153966_| + (define |gxc[1]#_g154072_| (##structure gx#syntax-quote::t '::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153968_| + (define |gxc[1]#_g154074_| (##structure gx#syntax-quote::t '&::expression-subst-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153969_| + (define |gxc[1]#_g154075_| (##structure gx#syntax-quote::t '&::expression-subst-new-id #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153971_| + (define |gxc[1]#_g154077_| (##structure gx#syntax-quote::t '&::expression-subst-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153972_| + (define |gxc[1]#_g154078_| (##structure gx#syntax-quote::t '&::expression-subst-new-id-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153975_| + (define |gxc[1]#_g154081_| (##structure gx#syntax-quote::t '::expression-subst*::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153977_| + (define |gxc[1]#_g154083_| (##structure gx#syntax-quote::t 'make-::expression-subst* #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153979_| + (define |gxc[1]#_g154085_| (##structure gx#syntax-quote::t '::expression-subst*? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153981_| + (define |gxc[1]#_g154087_| (##structure gx#syntax-quote::t '::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153983_| + (define |gxc[1]#_g154089_| (##structure gx#syntax-quote::t '::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153985_| + (define |gxc[1]#_g154091_| (##structure gx#syntax-quote::t '&::expression-subst*-subst #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153987_| + (define |gxc[1]#_g154093_| (##structure gx#syntax-quote::t '&::expression-subst*-subst-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153989_| + (define |gxc[1]#_g154095_| (##structure gx#syntax-quote::t '::false-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153991_| + (define |gxc[1]#_g154097_| (##structure gx#syntax-quote::t '::find-expression::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153993_| + (define |gxc[1]#_g154099_| (##structure gx#syntax-quote::t 'make-::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153995_| + (define |gxc[1]#_g154101_| (##structure gx#syntax-quote::t '::find-expression? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153997_| + (define |gxc[1]#_g154103_| (##structure gx#syntax-quote::t '::find-expression #f (gx#current-expander-context) '())) - (define |gxc[1]#_g153999_| + (define |gxc[1]#_g154105_| (##structure gx#syntax-quote::t '::find-var-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154001_| + (define |gxc[1]#_g154107_| (##structure gx#syntax-quote::t 'make-::find-var-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154003_| + (define |gxc[1]#_g154109_| (##structure gx#syntax-quote::t '::find-var-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154005_| + (define |gxc[1]#_g154111_| (##structure gx#syntax-quote::t '::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154007_| + (define |gxc[1]#_g154113_| (##structure gx#syntax-quote::t '::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154009_| + (define |gxc[1]#_g154115_| (##structure gx#syntax-quote::t '&::find-var-refs-ids #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154011_| + (define |gxc[1]#_g154117_| (##structure gx#syntax-quote::t '&::find-var-refs-ids-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154013_| + (define |gxc[1]#_g154119_| (##structure gx#syntax-quote::t '::collect-expression-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154015_| + (define |gxc[1]#_g154121_| (##structure gx#syntax-quote::t '::collect-runtime-refs::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154017_| + (define |gxc[1]#_g154123_| (##structure gx#syntax-quote::t 'make-::collect-runtime-refs #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154019_| + (define |gxc[1]#_g154125_| (##structure gx#syntax-quote::t '::collect-runtime-refs? #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154021_| + (define |gxc[1]#_g154127_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154023_| + (define |gxc[1]#_g154129_| (##structure gx#syntax-quote::t '::collect-runtime-refs-table-set! #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154025_| + (define |gxc[1]#_g154131_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table #f (gx#current-expander-context) '())) - (define |gxc[1]#_g154027_| + (define |gxc[1]#_g154133_| (##structure gx#syntax-quote::t '&::collect-runtime-refs-table-set! @@ -303,7 +303,7 @@ '())) (begin (define |gxc[:0:]#::collect-mutators| - (let ((__obj153883 + (let ((__obj153989 (let () (declare (not safe)) (##structure @@ -332,7 +332,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153883 + __obj153989 'gxc#::collect-mutators::t '1 '#f @@ -340,65 +340,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153883 + __obj153989 '::collect-mutators '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '6 '#f '#f)) - (let ((__tmp153945 (cons |gxc[1]#_g153946_| '()))) + (##unchecked-structure-set! __obj153989 '() '6 '#f '#f)) + (let ((__tmp154051 (cons |gxc[1]#_g154052_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153883 __tmp153945 '3 '#f '#f)) + (##unchecked-structure-set! __obj153989 __tmp154051 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153989 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153989 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153989 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '#f '11 '#f '#f)) - (let ((__tmp153947 |gxc[1]#_g153948_|)) + (##unchecked-structure-set! __obj153989 '#f '11 '#f '#f)) + (let ((__tmp154053 |gxc[1]#_g154054_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153883 __tmp153947 '12 '#f '#f)) - (let ((__tmp153949 |gxc[1]#_g153950_|)) + (##unchecked-structure-set! __obj153989 __tmp154053 '12 '#f '#f)) + (let ((__tmp154055 |gxc[1]#_g154056_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153883 __tmp153949 '13 '#f '#f)) - (let ((__tmp153951 |gxc[1]#_g153952_|)) + (##unchecked-structure-set! __obj153989 __tmp154055 '13 '#f '#f)) + (let ((__tmp154057 |gxc[1]#_g154058_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153883 __tmp153951 '14 '#f '#f)) + (##unchecked-structure-set! __obj153989 __tmp154057 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153989 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153883 '() '20 '#f '#f)) - __obj153883)) + (##unchecked-structure-set! __obj153989 '() '20 '#f '#f)) + __obj153989)) (define |gxc[:0:]#::expression-subst| - (let ((__obj153885 + (let ((__obj153991 (let () (declare (not safe)) (##structure @@ -427,7 +427,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153885 + __obj153991 'gxc#::expression-subst::t '1 '#f @@ -435,73 +435,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153885 + __obj153991 '::expression-subst '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '(id new-id) '4 '#f '#f)) + (##unchecked-structure-set! __obj153991 '(id new-id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '(id new-id) '6 '#f '#f)) - (let ((__tmp153953 (cons |gxc[1]#_g153954_| '()))) + (##unchecked-structure-set! __obj153991 '(id new-id) '6 '#f '#f)) + (let ((__tmp154059 (cons |gxc[1]#_g154060_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153953 '3 '#f '#f)) + (##unchecked-structure-set! __obj153991 __tmp154059 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153991 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153991 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153991 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '#f '11 '#f '#f)) - (let ((__tmp153955 |gxc[1]#_g153956_|)) + (##unchecked-structure-set! __obj153991 '#f '11 '#f '#f)) + (let ((__tmp154061 |gxc[1]#_g154062_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153955 '12 '#f '#f)) - (let ((__tmp153957 |gxc[1]#_g153958_|)) + (##unchecked-structure-set! __obj153991 __tmp154061 '12 '#f '#f)) + (let ((__tmp154063 |gxc[1]#_g154064_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153957 '13 '#f '#f)) - (let ((__tmp153959 |gxc[1]#_g153960_|)) + (##unchecked-structure-set! __obj153991 __tmp154063 '13 '#f '#f)) + (let ((__tmp154065 |gxc[1]#_g154066_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153959 '14 '#f '#f)) - (let ((__tmp153961 - (cons (cons 'id |gxc[1]#_g153962_|) - (cons (cons 'new-id |gxc[1]#_g153963_|) '())))) + (##unchecked-structure-set! __obj153991 __tmp154065 '14 '#f '#f)) + (let ((__tmp154067 + (cons (cons 'id |gxc[1]#_g154068_|) + (cons (cons 'new-id |gxc[1]#_g154069_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153961 '15 '#f '#f)) - (let ((__tmp153964 - (cons (cons 'id |gxc[1]#_g153965_|) - (cons (cons 'new-id |gxc[1]#_g153966_|) '())))) + (##unchecked-structure-set! __obj153991 __tmp154067 '15 '#f '#f)) + (let ((__tmp154070 + (cons (cons 'id |gxc[1]#_g154071_|) + (cons (cons 'new-id |gxc[1]#_g154072_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153964 '16 '#f '#f)) - (let ((__tmp153967 - (cons (cons 'id |gxc[1]#_g153968_|) - (cons (cons 'new-id |gxc[1]#_g153969_|) '())))) + (##unchecked-structure-set! __obj153991 __tmp154070 '16 '#f '#f)) + (let ((__tmp154073 + (cons (cons 'id |gxc[1]#_g154074_|) + (cons (cons 'new-id |gxc[1]#_g154075_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153967 '17 '#f '#f)) - (let ((__tmp153970 - (cons (cons 'id |gxc[1]#_g153971_|) - (cons (cons 'new-id |gxc[1]#_g153972_|) '())))) + (##unchecked-structure-set! __obj153991 __tmp154073 '17 '#f '#f)) + (let ((__tmp154076 + (cons (cons 'id |gxc[1]#_g154077_|) + (cons (cons 'new-id |gxc[1]#_g154078_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj153885 __tmp153970 '18 '#f '#f)) + (##unchecked-structure-set! __obj153991 __tmp154076 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153991 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153991 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153885 '() '20 '#f '#f)) - __obj153885)) + (##unchecked-structure-set! __obj153991 '() '20 '#f '#f)) + __obj153991)) (define |gxc[:0:]#::expression-subst*| - (let ((__obj153887 + (let ((__obj153993 (let () (declare (not safe)) (##structure @@ -530,7 +530,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153887 + __obj153993 'gxc#::expression-subst*::t '1 '#f @@ -538,65 +538,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153887 + __obj153993 '::expression-subst* '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '(subst) '4 '#f '#f)) + (##unchecked-structure-set! __obj153993 '(subst) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '(subst) '6 '#f '#f)) - (let ((__tmp153973 (cons |gxc[1]#_g153954_| '()))) + (##unchecked-structure-set! __obj153993 '(subst) '6 '#f '#f)) + (let ((__tmp154079 (cons |gxc[1]#_g154060_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153973 '3 '#f '#f)) + (##unchecked-structure-set! __obj153993 __tmp154079 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153993 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153993 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153993 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '#f '11 '#f '#f)) - (let ((__tmp153974 |gxc[1]#_g153975_|)) + (##unchecked-structure-set! __obj153993 '#f '11 '#f '#f)) + (let ((__tmp154080 |gxc[1]#_g154081_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153974 '12 '#f '#f)) - (let ((__tmp153976 |gxc[1]#_g153977_|)) + (##unchecked-structure-set! __obj153993 __tmp154080 '12 '#f '#f)) + (let ((__tmp154082 |gxc[1]#_g154083_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153976 '13 '#f '#f)) - (let ((__tmp153978 |gxc[1]#_g153979_|)) + (##unchecked-structure-set! __obj153993 __tmp154082 '13 '#f '#f)) + (let ((__tmp154084 |gxc[1]#_g154085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153978 '14 '#f '#f)) - (let ((__tmp153980 (cons (cons 'subst |gxc[1]#_g153981_|) '()))) + (##unchecked-structure-set! __obj153993 __tmp154084 '14 '#f '#f)) + (let ((__tmp154086 (cons (cons 'subst |gxc[1]#_g154087_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153980 '15 '#f '#f)) - (let ((__tmp153982 (cons (cons 'subst |gxc[1]#_g153983_|) '()))) + (##unchecked-structure-set! __obj153993 __tmp154086 '15 '#f '#f)) + (let ((__tmp154088 (cons (cons 'subst |gxc[1]#_g154089_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153982 '16 '#f '#f)) - (let ((__tmp153984 (cons (cons 'subst |gxc[1]#_g153985_|) '()))) + (##unchecked-structure-set! __obj153993 __tmp154088 '16 '#f '#f)) + (let ((__tmp154090 (cons (cons 'subst |gxc[1]#_g154091_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153984 '17 '#f '#f)) - (let ((__tmp153986 (cons (cons 'subst |gxc[1]#_g153987_|) '()))) + (##unchecked-structure-set! __obj153993 __tmp154090 '17 '#f '#f)) + (let ((__tmp154092 (cons (cons 'subst |gxc[1]#_g154093_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153887 __tmp153986 '18 '#f '#f)) + (##unchecked-structure-set! __obj153993 __tmp154092 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153993 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153993 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153887 '() '20 '#f '#f)) - __obj153887)) + (##unchecked-structure-set! __obj153993 '() '20 '#f '#f)) + __obj153993)) (define |gxc[:0:]#::find-expression| - (let ((__obj153889 + (let ((__obj153995 (let () (declare (not safe)) (##structure @@ -625,7 +625,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153889 + __obj153995 'gxc#::find-expression::t '1 '#f @@ -633,65 +633,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153889 + __obj153995 '::find-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '6 '#f '#f)) - (let ((__tmp153988 (cons |gxc[1]#_g153989_| '()))) + (##unchecked-structure-set! __obj153995 '() '6 '#f '#f)) + (let ((__tmp154094 (cons |gxc[1]#_g154095_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153889 __tmp153988 '3 '#f '#f)) + (##unchecked-structure-set! __obj153995 __tmp154094 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153995 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj153995 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153995 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '#f '11 '#f '#f)) - (let ((__tmp153990 |gxc[1]#_g153991_|)) + (##unchecked-structure-set! __obj153995 '#f '11 '#f '#f)) + (let ((__tmp154096 |gxc[1]#_g154097_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153889 __tmp153990 '12 '#f '#f)) - (let ((__tmp153992 |gxc[1]#_g153993_|)) + (##unchecked-structure-set! __obj153995 __tmp154096 '12 '#f '#f)) + (let ((__tmp154098 |gxc[1]#_g154099_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153889 __tmp153992 '13 '#f '#f)) - (let ((__tmp153994 |gxc[1]#_g153995_|)) + (##unchecked-structure-set! __obj153995 __tmp154098 '13 '#f '#f)) + (let ((__tmp154100 |gxc[1]#_g154101_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153889 __tmp153994 '14 '#f '#f)) + (##unchecked-structure-set! __obj153995 __tmp154100 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153995 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153889 '() '20 '#f '#f)) - __obj153889)) + (##unchecked-structure-set! __obj153995 '() '20 '#f '#f)) + __obj153995)) (define |gxc[:0:]#::find-var-refs| - (let ((__obj153890 + (let ((__obj153996 (let () (declare (not safe)) (##structure @@ -720,68 +720,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153890 + __obj153996 'gxc#::find-var-refs::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '::find-var-refs '2 '#f '#f)) + (##unchecked-structure-set! __obj153996 '::find-var-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '(ids) '4 '#f '#f)) + (##unchecked-structure-set! __obj153996 '(ids) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '(ids) '6 '#f '#f)) - (let ((__tmp153996 (cons |gxc[1]#_g153997_| '()))) + (##unchecked-structure-set! __obj153996 '(ids) '6 '#f '#f)) + (let ((__tmp154102 (cons |gxc[1]#_g154103_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp153996 '3 '#f '#f)) + (##unchecked-structure-set! __obj153996 __tmp154102 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153996 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153996 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153996 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '#f '11 '#f '#f)) - (let ((__tmp153998 |gxc[1]#_g153999_|)) + (##unchecked-structure-set! __obj153996 '#f '11 '#f '#f)) + (let ((__tmp154104 |gxc[1]#_g154105_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp153998 '12 '#f '#f)) - (let ((__tmp154000 |gxc[1]#_g154001_|)) + (##unchecked-structure-set! __obj153996 __tmp154104 '12 '#f '#f)) + (let ((__tmp154106 |gxc[1]#_g154107_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154000 '13 '#f '#f)) - (let ((__tmp154002 |gxc[1]#_g154003_|)) + (##unchecked-structure-set! __obj153996 __tmp154106 '13 '#f '#f)) + (let ((__tmp154108 |gxc[1]#_g154109_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154002 '14 '#f '#f)) - (let ((__tmp154004 (cons (cons 'ids |gxc[1]#_g154005_|) '()))) + (##unchecked-structure-set! __obj153996 __tmp154108 '14 '#f '#f)) + (let ((__tmp154110 (cons (cons 'ids |gxc[1]#_g154111_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154004 '15 '#f '#f)) - (let ((__tmp154006 (cons (cons 'ids |gxc[1]#_g154007_|) '()))) + (##unchecked-structure-set! __obj153996 __tmp154110 '15 '#f '#f)) + (let ((__tmp154112 (cons (cons 'ids |gxc[1]#_g154113_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154006 '16 '#f '#f)) - (let ((__tmp154008 (cons (cons 'ids |gxc[1]#_g154009_|) '()))) + (##unchecked-structure-set! __obj153996 __tmp154112 '16 '#f '#f)) + (let ((__tmp154114 (cons (cons 'ids |gxc[1]#_g154115_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154008 '17 '#f '#f)) - (let ((__tmp154010 (cons (cons 'ids |gxc[1]#_g154011_|) '()))) + (##unchecked-structure-set! __obj153996 __tmp154114 '17 '#f '#f)) + (let ((__tmp154116 (cons (cons 'ids |gxc[1]#_g154117_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153890 __tmp154010 '18 '#f '#f)) + (##unchecked-structure-set! __obj153996 __tmp154116 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153996 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153996 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153890 '() '20 '#f '#f)) - __obj153890)) + (##unchecked-structure-set! __obj153996 '() '20 '#f '#f)) + __obj153996)) (define |gxc[:0:]#::collect-runtime-refs| - (let ((__obj153892 + (let ((__obj153998 (let () (declare (not safe)) (##structure @@ -810,7 +810,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153892 + __obj153998 'gxc#::collect-runtime-refs::t '1 '#f @@ -818,60 +818,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj153892 + __obj153998 '::collect-runtime-refs '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj153998 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '(table) '6 '#f '#f)) - (let ((__tmp154012 (cons |gxc[1]#_g154013_| '()))) + (##unchecked-structure-set! __obj153998 '(table) '6 '#f '#f)) + (let ((__tmp154118 (cons |gxc[1]#_g154119_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154012 '3 '#f '#f)) + (##unchecked-structure-set! __obj153998 __tmp154118 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj153998 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj153998 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj153998 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '#f '11 '#f '#f)) - (let ((__tmp154014 |gxc[1]#_g154015_|)) + (##unchecked-structure-set! __obj153998 '#f '11 '#f '#f)) + (let ((__tmp154120 |gxc[1]#_g154121_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154014 '12 '#f '#f)) - (let ((__tmp154016 |gxc[1]#_g154017_|)) + (##unchecked-structure-set! __obj153998 __tmp154120 '12 '#f '#f)) + (let ((__tmp154122 |gxc[1]#_g154123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154016 '13 '#f '#f)) - (let ((__tmp154018 |gxc[1]#_g154019_|)) + (##unchecked-structure-set! __obj153998 __tmp154122 '13 '#f '#f)) + (let ((__tmp154124 |gxc[1]#_g154125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154018 '14 '#f '#f)) - (let ((__tmp154020 (cons (cons 'table |gxc[1]#_g154021_|) '()))) + (##unchecked-structure-set! __obj153998 __tmp154124 '14 '#f '#f)) + (let ((__tmp154126 (cons (cons 'table |gxc[1]#_g154127_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154020 '15 '#f '#f)) - (let ((__tmp154022 (cons (cons 'table |gxc[1]#_g154023_|) '()))) + (##unchecked-structure-set! __obj153998 __tmp154126 '15 '#f '#f)) + (let ((__tmp154128 (cons (cons 'table |gxc[1]#_g154129_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154022 '16 '#f '#f)) - (let ((__tmp154024 (cons (cons 'table |gxc[1]#_g154025_|) '()))) + (##unchecked-structure-set! __obj153998 __tmp154128 '16 '#f '#f)) + (let ((__tmp154130 (cons (cons 'table |gxc[1]#_g154131_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154024 '17 '#f '#f)) - (let ((__tmp154026 (cons (cons 'table |gxc[1]#_g154027_|) '()))) + (##unchecked-structure-set! __obj153998 __tmp154130 '17 '#f '#f)) + (let ((__tmp154132 (cons (cons 'table |gxc[1]#_g154133_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj153892 __tmp154026 '18 '#f '#f)) + (##unchecked-structure-set! __obj153998 __tmp154132 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj153998 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj153998 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj153892 '() '20 '#f '#f)) - __obj153892)))) + (##unchecked-structure-set! __obj153998 '() '20 '#f '#f)) + __obj153998)))) diff --git a/src/bootstrap/gerbil/compiler/optimize~0.scm b/src/bootstrap/gerbil/compiler/optimize~0.scm index 152314924..d33cd5616 100644 --- a/src/bootstrap/gerbil/compiler/optimize~0.scm +++ b/src/bootstrap/gerbil/compiler/optimize~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/compiler/optimize::timestamp 1733870081) + (define gerbil/compiler/optimize::timestamp 1734131754) (begin (define gxc#optimizer-info-init! (lambda () (if (let () (declare (not safe)) (gxc#current-compile-optimizer-info)) '#!void - (let ((__tmp200748 - (let ((__obj200742 + (let ((__tmp200854 + (let ((__obj200848 (let () (declare (not safe)) (##structure @@ -18,17 +18,17 @@ '#f)))) (let () (declare (not safe)) - (gxc#optimizer-info:::init! __obj200742)) - __obj200742))) + (gxc#optimizer-info:::init! __obj200848)) + __obj200848))) (declare (not safe)) - (gxc#current-compile-optimizer-info __tmp200748))))) + (gxc#current-compile-optimizer-info __tmp200854))))) (define gxc#optimize! - (lambda (_%ctx200351%_) - (let ((__tmp200751 + (lambda (_%ctx200457%_) + (let ((__tmp200857 (lambda () - (gxc#optimizer-load-builtin-ssxi _%ctx200351%_) - (gxc#optimizer-load-ssxi-deps _%ctx200351%_) - (let ((__tmp200753 + (gxc#optimizer-load-builtin-ssxi _%ctx200457%_) + (gxc#optimizer-load-ssxi-deps _%ctx200457%_) + (let ((__tmp200859 (##structure-ref (let () (declare (not safe)) @@ -36,41 +36,41 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200752 + (__tmp200858 (##structure-ref - _%ctx200351%_ + _%ctx200457%_ '1 gx#expander-context::t '#f))) (declare (not safe)) - (hash-put! __tmp200753 __tmp200752 '#t)) - (let ((_%code200354%_ + (hash-put! __tmp200859 __tmp200858 '#t)) + (let ((_%code200460%_ (gxc#optimize-source (##structure-ref - _%ctx200351%_ + _%ctx200457%_ '11 gx#module-context::t '#f)))) (##structure-set! - _%ctx200351%_ - _%code200354%_ + _%ctx200457%_ + _%code200460%_ '11 gx#module-context::t '#f)))) - (__tmp200750 (let () (declare (not safe)) (make-hash-table-eq))) - (__tmp200749 (let () (declare (not safe)) (make-hash-table-eq)))) + (__tmp200856 (let () (declare (not safe)) (make-hash-table-eq))) + (__tmp200855 (let () (declare (not safe)) (make-hash-table-eq)))) (declare (not safe)) (__call-with-parameters - __tmp200751 + __tmp200857 gxc#current-compile-mutators - __tmp200750 + __tmp200856 gxc#current-compile-local-type - __tmp200749)))) + __tmp200855)))) (define gxc#optimizer-load-builtin-ssxi - (lambda (_%ctx200337%_) - (letrec ((_%load-it!200339%_ - (lambda (_%id200349%_) - (if (let ((__tmp200754 + (lambda (_%ctx200443%_) + (letrec ((_%load-it!200445%_ + (lambda (_%id200455%_) + (if (let ((__tmp200860 (##structure-ref (let () (declare (not safe)) @@ -79,11 +79,11 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-get __tmp200754 _%id200349%_)) + (hash-get __tmp200860 _%id200455%_)) '#!void (begin - (gxc#optimizer-import-ssxi-by-id _%id200349%_) - (let ((__tmp200755 + (gxc#optimizer-import-ssxi-by-id _%id200455%_) + (let ((__tmp200861 (##structure-ref (let () (declare (not safe)) @@ -92,29 +92,29 @@ gxc#optimizer-info::t '#f))) (declare (not safe)) - (hash-put! __tmp200755 _%id200349%_ '#t))))))) - (let* ((_%modid200341%_ + (hash-put! __tmp200861 _%id200455%_ '#t))))))) + (let* ((_%modid200447%_ (##structure-ref - _%ctx200337%_ + _%ctx200443%_ '1 gx#expander-context::t '#f)) - (_%modid-str200343%_ (symbol->string _%modid200341%_))) + (_%modid-str200449%_ (symbol->string _%modid200447%_))) (if (or (let () (declare (not safe)) - (##string-prefix? '"gerbil/runtime" _%modid-str200343%_)) + (##string-prefix? '"gerbil/runtime" _%modid-str200449%_)) (let () (declare (not safe)) - (##string-prefix? '"gerbil/core" _%modid-str200343%_))) + (##string-prefix? '"gerbil/core" _%modid-str200449%_))) (let () (declare (not safe)) (##for-each - _%load-it!200339%_ + _%load-it!200445%_ '(gerbil/builtin gerbil/builtin-inline-rules))) (let () (declare (not safe)) (##for-each - _%load-it!200339%_ + _%load-it!200445%_ '(gerbil/builtin gerbil/builtin-inline-rules gerbil/runtime/gambit @@ -136,35 +136,35 @@ gerbil/runtime/init gerbil/runtime)))))))) (define gxc#optimizer-load-ssxi-deps - (lambda (_%ctx200274%_) - (letrec* ((_%deps200276%_ - (let* ((_%imports200327%_ + (lambda (_%ctx200380%_) + (letrec* ((_%deps200382%_ + (let* ((_%imports200433%_ (##structure-ref - _%ctx200274%_ + _%ctx200380%_ '8 gx#module-context::t '#f)) - (_%$e200329%_ + (_%$e200435%_ (let () (declare (not safe)) - (gx#core-context-prelude__% _%ctx200274%_)))) - (if _%$e200329%_ - ((lambda (_%g200331200333%_) - (cons _%g200331200333%_ _%imports200327%_)) - _%$e200329%_) - _%imports200327%_)))) - (let _%lp200278%_ ((_%rest200280%_ _%deps200276%_)) - (let* ((_%rest200281200289%_ _%rest200280%_) - (_%else200283200297%_ (lambda () '#!void)) - (_%K200285200315%_ - (lambda (_%rest200300%_ _%hd200301%_) + (gx#core-context-prelude__% _%ctx200380%_)))) + (if _%$e200435%_ + ((lambda (_%g200437200439%_) + (cons _%g200437200439%_ _%imports200433%_)) + _%$e200435%_) + _%imports200433%_)))) + (let _%lp200384%_ ((_%rest200386%_ _%deps200382%_)) + (let* ((_%rest200387200395%_ _%rest200386%_) + (_%else200389200403%_ (lambda () '#!void)) + (_%K200391200421%_ + (lambda (_%rest200406%_ _%hd200407%_) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200301%_ + _%hd200407%_ 'gx#module-context::t)) (let () - (if (let ((__tmp200757 + (if (let ((__tmp200863 (##structure-ref (let () (declare (not safe)) @@ -172,52 +172,52 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200756 + (__tmp200862 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200757 __tmp200756)) + (hash-get __tmp200863 __tmp200862)) '#!void (begin - (let ((_%$e200304%_ + (let ((_%$e200410%_ (let () (declare (not safe)) (gx#core-context-prelude__% - _%hd200301%_)))) - (if _%$e200304%_ - ((lambda (_%pre200307%_) - (_%lp200278%_ - (cons _%pre200307%_ + _%hd200407%_)))) + (if _%$e200410%_ + ((lambda (_%pre200413%_) + (_%lp200384%_ + (cons _%pre200413%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '8 '#f '#f))))) - _%$e200304%_) - (_%lp200278%_ + _%$e200410%_) + (_%lp200384%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '8 '#f '#f))))) - (gxc#optimizer-load-ssxi _%hd200301%_))) - (_%lp200278%_ _%rest200300%_)) + (gxc#optimizer-load-ssxi _%hd200407%_))) + (_%lp200384%_ _%rest200406%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%hd200301%_ + _%hd200407%_ 'gx#prelude-context::t)) (let () - (if (let ((__tmp200759 + (if (let ((__tmp200865 (##structure-ref (let () (declare (not safe)) @@ -225,103 +225,103 @@ '3 gxc#optimizer-info::t '#f)) - (__tmp200758 + (__tmp200864 (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '1 '#f '#f)))) (declare (not safe)) - (hash-get __tmp200759 __tmp200758)) + (hash-get __tmp200865 __tmp200864)) '#!void (begin - (_%lp200278%_ + (_%lp200384%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '7 '#f '#f))) - (gxc#optimizer-load-ssxi _%hd200301%_))) - (_%lp200278%_ _%rest200300%_)) + (gxc#optimizer-load-ssxi _%hd200407%_))) + (_%lp200384%_ _%rest200406%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200301%_ + _%hd200407%_ 'gx#module-import::t)) - (_%lp200278%_ + (_%lp200384%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '1 '#f '#f)) - _%rest200300%_)) + _%rest200406%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200301%_ + _%hd200407%_ 'gx#module-export::t)) - (_%lp200278%_ + (_%lp200384%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '1 '#f '#f)) - _%rest200300%_)) + _%rest200406%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%hd200301%_ + _%hd200407%_ 'gx#import-set::t)) - (_%lp200278%_ + (_%lp200384%_ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%hd200301%_ + _%hd200407%_ '1 '#f '#f)) - _%rest200300%_)) + _%rest200406%_)) (let () (declare (not safe)) (error '"Unexpected module import" - _%hd200301%_)))))))))) - (if (pair? _%rest200281200289%_) - (let ((_%hd200286200318%_ + _%hd200407%_)))))))))) + (if (pair? _%rest200387200395%_) + (let ((_%hd200392200424%_ (let () (declare (not safe)) - (##car _%rest200281200289%_))) - (_%tl200287200320%_ + (##car _%rest200387200395%_))) + (_%tl200393200426%_ (let () (declare (not safe)) - (##cdr _%rest200281200289%_)))) - (let* ((_%hd200323%_ _%hd200286200318%_) - (_%rest200325%_ _%tl200287200320%_)) - (_%K200285200315%_ _%rest200325%_ _%hd200323%_))) + (##cdr _%rest200387200395%_)))) + (let* ((_%hd200429%_ _%hd200392200424%_) + (_%rest200431%_ _%tl200393200426%_)) + (_%K200391200421%_ _%rest200431%_ _%hd200429%_))) '#!void)))))) (define gxc#optimizer-load-ssxi - (lambda (_%ctx200254%_) + (lambda (_%ctx200360%_) (if (and (let () (declare (not safe)) (##structure-instance-of? - _%ctx200254%_ + _%ctx200360%_ 'gx#module-context::t)) (list? (let () (declare (not safe)) (##unchecked-structure-ref - _%ctx200254%_ + _%ctx200360%_ '7 '#f '#f)))) '#!void - (let* ((_%ht200256%_ + (let* ((_%ht200362%_ (##structure-ref (let () (declare (not safe)) @@ -329,172 +329,172 @@ '3 gxc#optimizer-info::t '#f)) - (_%id200258%_ + (_%id200364%_ (##structure-ref - _%ctx200254%_ + _%ctx200360%_ '1 gx#expander-context::t '#f)) - (_%mod200260%_ + (_%mod200366%_ (let () (declare (not safe)) - (hash-get _%ht200256%_ _%id200258%_))) - (_%$e200263%_ _%mod200260%_)) - (if _%$e200263%_ - _%$e200263%_ - (let* ((_%mod200266%_ - (gxc#optimizer-import-ssxi _%ctx200254%_)) - (_%val200271%_ - (let ((_%$e200268%_ _%mod200266%_)) - (if _%$e200268%_ _%$e200268%_ '#!void)))) + (hash-get _%ht200362%_ _%id200364%_))) + (_%$e200369%_ _%mod200366%_)) + (if _%$e200369%_ + _%$e200369%_ + (let* ((_%mod200372%_ + (gxc#optimizer-import-ssxi _%ctx200360%_)) + (_%val200377%_ + (let ((_%$e200374%_ _%mod200372%_)) + (if _%$e200374%_ _%$e200374%_ '#!void)))) (let () (declare (not safe)) - (hash-put! _%ht200256%_ _%id200258%_ _%val200271%_)) - _%val200271%_)))))) + (hash-put! _%ht200362%_ _%id200364%_ _%val200377%_)) + _%val200377%_)))))) (define gxc#optimizer-import-ssxi - (lambda (_%ctx200252%_) - (if (##structure-ref _%ctx200252%_ '1 gx#expander-context::t '#f) + (lambda (_%ctx200358%_) + (if (##structure-ref _%ctx200358%_ '1 gx#expander-context::t '#f) (gxc#optimizer-import-ssxi-by-id - (##structure-ref _%ctx200252%_ '1 gx#expander-context::t '#f)) + (##structure-ref _%ctx200358%_ '1 gx#expander-context::t '#f)) '#f))) (define gxc#optimizer-import-ssxi-by-id - (lambda (_%id200229%_) - (letrec ((_%catch-e200231%_ - (lambda (_%exn200250%_) + (lambda (_%id200335%_) + (letrec ((_%catch-e200337%_ + (lambda (_%exn200356%_) (if (equal? (let () (declare (not safe)) - (error-message _%exn200250%_)) + (error-message _%exn200356%_)) '"cannot find library module") '#!void (begin (let () (declare (not safe)) - (display-exception__0 _%exn200250%_)) + (display-exception__0 _%exn200356%_)) (let () (declare (not safe)) (displayln '"*** WARNING Failed to load ssxi module for " - _%id200229%_)))) + _%id200335%_)))) '#f)) - (_%import-e200232%_ + (_%import-e200338%_ (lambda () - (let* ((_%str-id200235%_ - (let ((__tmp200760 + (let* ((_%str-id200341%_ + (let ((__tmp200866 (let () (declare (not safe)) (gxc#module-id->path-string - _%id200229%_)))) + _%id200335%_)))) (declare (not safe)) - (##string-append __tmp200760 '".ssxi"))) - (_%artefact-path200243%_ - (let ((_%odir200236200238%_ + (##string-append __tmp200866 '".ssxi"))) + (_%artefact-path200349%_ + (let ((_%odir200342200344%_ (let () (declare (not safe)) (gxc#current-compile-output-dir)))) - (if _%odir200236200238%_ - (let ((_%odir200241%_ _%odir200236200238%_)) + (if _%odir200342200344%_ + (let ((_%odir200347%_ _%odir200342200344%_)) (path-expand (let () (declare (not safe)) (##string-append - _%str-id200235%_ + _%str-id200341%_ '".ss")) - _%odir200241%_)) + _%odir200347%_)) '#f))) - (_%library-path200245%_ - (let ((__tmp200761 + (_%library-path200351%_ + (let ((__tmp200867 (let () (declare (not safe)) (##string-append '":" - _%str-id200235%_ + _%str-id200341%_ '".ss")))) (declare (not safe)) - (##string->symbol __tmp200761))) - (_%ssxi-path200247%_ - (if (and _%artefact-path200243%_ - (file-exists? _%artefact-path200243%_)) - _%artefact-path200243%_ - _%library-path200245%_))) + (##string->symbol __tmp200867))) + (_%ssxi-path200353%_ + (if (and _%artefact-path200349%_ + (file-exists? _%artefact-path200349%_)) + _%artefact-path200349%_ + _%library-path200351%_))) (let () (declare (not safe)) (gxc#verbose '"Loading ssxi module " - _%ssxi-path200247%_)) + _%ssxi-path200353%_)) (let () (declare (not safe)) - (gx#import-module__% _%ssxi-path200247%_ '#t '#t)))))) + (gx#import-module__% _%ssxi-path200353%_ '#t '#t)))))) (let () (declare (not safe)) - (__with-catch _%catch-e200231%_ _%import-e200232%_))))) + (__with-catch _%catch-e200337%_ _%import-e200338%_))))) (define gxc#optimize-source - (lambda (_%stx200214%_) + (lambda (_%stx200320%_) (let () (declare (not safe)) - (gxc#apply-collect-mutators _%stx200214%_)) + (gxc#apply-collect-mutators _%stx200320%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-type-info _%stx200214%_)) - (let* ((_%stx200216%_ + (gxc#apply-collect-top-level-type-info _%stx200320%_)) + (let* ((_%stx200322%_ (let () (declare (not safe)) - (gxc#apply-generate-method-specializers _%stx200214%_))) - (_%stx200218%_ + (gxc#apply-generate-method-specializers _%stx200320%_))) + (_%stx200324%_ (let () (declare (not safe)) - (gxc#apply-lift-top-lambdas _%stx200216%_)))) + (gxc#apply-lift-top-lambdas _%stx200322%_)))) (let () (declare (not safe)) - (gxc#apply-collect-type-info _%stx200218%_)) + (gxc#apply-collect-type-info _%stx200324%_)) (let () (declare (not safe)) - (gxc#apply-collect-mutable-type-info _%stx200218%_)) - (let _%fixpoint200221%_ ((_%current200223%_ + (gxc#apply-collect-mutable-type-info _%stx200324%_)) + (let _%fixpoint200327%_ ((_%current200329%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) (let () (declare (not safe)) - (gxc#apply-refine-type-info _%stx200218%_)) - (let ((_%refined200225%_ + (gxc#apply-refine-type-info _%stx200324%_)) + (let ((_%refined200331%_ (let () (declare (not safe)) (gxc#optimizer-current-types)))) - (if (equal? _%current200223%_ _%refined200225%_) + (if (equal? _%current200329%_ _%refined200331%_) '#!void - (_%fixpoint200221%_ _%refined200225%_)))) + (_%fixpoint200327%_ _%refined200331%_)))) (let () (declare (not safe)) - (gxc#apply-check-return-type _%stx200218%_)) + (gxc#apply-check-return-type _%stx200324%_)) (let () (declare (not safe)) - (gxc#apply-collect-top-level-declarations _%stx200218%_)) - (let ((_%stx200227%_ + (gxc#apply-collect-top-level-declarations _%stx200324%_)) + (let ((_%stx200333%_ (let () (declare (not safe)) - (gxc#apply-optimize-annotated _%stx200218%_)))) + (gxc#apply-optimize-annotated _%stx200324%_)))) (declare (not safe)) - (gxc#apply-optimize-call _%stx200227%_))))) + (gxc#apply-optimize-call _%stx200333%_))))) (define gxc#::generate-ssxi::t - (let ((__tmp200763 (list gxc#::generate-runtime-empty::t)) - (__tmp200762 (cons (cons 'final: '#t) '()))) + (let ((__tmp200869 (list gxc#::generate-runtime-empty::t)) + (__tmp200868 (cons (cons 'final: '#t) '()))) (declare (not safe)) (__make-class-type 'gxc#::generate-ssxi::t '::generate-ssxi - __tmp200763 + __tmp200869 '() - __tmp200762 + __tmp200868 '#f))) (define gxc#::generate-ssxi? (let () (declare (not safe)) (__make-class-predicate gxc#::generate-ssxi::t))) (define gxc#make-::generate-ssxi - (lambda _%$args200211%_ - (apply make-instance gxc#::generate-ssxi::t _%$args200211%_))) + (lambda _%$args200317%_ + (apply make-instance gxc#::generate-ssxi::t _%$args200317%_))) (define gxc#::generate-ssxi-bind-methods! - (let ((__tmp200764 + (let ((__tmp200870 (lambda () (force gxc#::generate-runtime-empty-bind-methods!) (let () @@ -537,201 +537,201 @@ (declare (not safe)) (__seal-class! gxc#::generate-ssxi::t))))) (declare (not safe)) - (__make-promise __tmp200764))) + (__make-promise __tmp200870))) (define gxc#apply-generate-ssxi - (lambda (_%stx200203%_) + (lambda (_%stx200309%_) (force gxc#::generate-ssxi-bind-methods!) - (let* ((_%self200206%_ - (let ((__obj200744 + (let* ((_%self200312%_ + (let ((__obj200850 (let () (declare (not safe)) (##structure gxc#::generate-ssxi::t)))) - __obj200744)) - (__tmp200765 + __obj200850)) + (__tmp200871 (lambda () (let () (declare (not safe)) - (gxc#compile-e__1 _%self200206%_ _%stx200203%_))))) + (gxc#compile-e__1 _%self200312%_ _%stx200309%_))))) (declare (not safe)) (__call-with-parameters - __tmp200765 + __tmp200871 gxc#current-compile-method - _%self200206%_)))) + _%self200312%_)))) (define gxc#generate-ssxi-begin-syntax% - (lambda (_%self200163%_ _%stx200164%_) - (let* ((_%g200166200176%_ - (lambda (_%g200167200173%_) + (lambda (_%self200269%_ _%stx200270%_) + (let* ((_%g200272200282%_ + (lambda (_%g200273200279%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200167200173%_)))) - (_%g200165200200%_ - (lambda (_%g200167200179%_) + _%g200273200279%_)))) + (_%g200271200306%_ + (lambda (_%g200273200285%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200167200179%_)) - (let ((_%e200169200181%_ + (gx#stx-pair? _%g200273200285%_)) + (let ((_%e200275200287%_ (let () (declare (not safe)) - (gx#stx-e _%g200167200179%_)))) - (let ((_%hd200170200184%_ + (gx#stx-e _%g200273200285%_)))) + (let ((_%hd200276200290%_ (let () (declare (not safe)) - (##car _%e200169200181%_))) - (_%tl200171200186%_ + (##car _%e200275200287%_))) + (_%tl200277200292%_ (let () (declare (not safe)) - (##cdr _%e200169200181%_)))) - ((lambda (_%L200189%_) - (let ((__tmp200768 + (##cdr _%e200275200287%_)))) + ((lambda (_%L200295%_) + (let ((__tmp200874 (lambda () (let () (declare (not safe)) (gxc#generate-runtime-begin% - _%self200163%_ - _%stx200164%_)))) - (__tmp200766 - (let ((__tmp200767 + _%self200269%_ + _%stx200270%_)))) + (__tmp200872 + (let ((__tmp200873 (let () (declare (not safe)) (gx#current-expander-phi)))) (declare (not safe)) - (##fx+ __tmp200767 '1)))) + (##fx+ __tmp200873 '1)))) (declare (not safe)) (__call-with-parameters - __tmp200768 + __tmp200874 gx#current-expander-phi - __tmp200766))) - _%tl200171200186%_))) - (_%g200166200176%_ _%g200167200179%_))))) - (_%g200165200200%_ _%stx200164%_)))) + __tmp200872))) + _%tl200277200292%_))) + (_%g200272200282%_ _%g200273200285%_))))) + (_%g200271200306%_ _%stx200270%_)))) (define gxc#generate-ssxi-module% - (lambda (_%self200102%_ _%stx200103%_) - (let* ((_%g200105200119%_ - (lambda (_%g200106200116%_) + (lambda (_%self200208%_ _%stx200209%_) + (let* ((_%g200211200225%_ + (lambda (_%g200212200222%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g200106200116%_)))) - (_%g200104200160%_ - (lambda (_%g200106200122%_) + _%g200212200222%_)))) + (_%g200210200266%_ + (lambda (_%g200212200228%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g200106200122%_)) - (let ((_%e200109200124%_ + (gx#stx-pair? _%g200212200228%_)) + (let ((_%e200215200230%_ (let () (declare (not safe)) - (gx#stx-e _%g200106200122%_)))) - (let ((_%hd200110200127%_ + (gx#stx-e _%g200212200228%_)))) + (let ((_%hd200216200233%_ (let () (declare (not safe)) - (##car _%e200109200124%_))) - (_%tl200111200129%_ + (##car _%e200215200230%_))) + (_%tl200217200235%_ (let () (declare (not safe)) - (##cdr _%e200109200124%_)))) + (##cdr _%e200215200230%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl200111200129%_)) - (let ((_%e200112200132%_ + (gx#stx-pair? _%tl200217200235%_)) + (let ((_%e200218200238%_ (let () (declare (not safe)) - (gx#stx-e _%tl200111200129%_)))) - (let ((_%hd200113200135%_ + (gx#stx-e _%tl200217200235%_)))) + (let ((_%hd200219200241%_ (let () (declare (not safe)) - (##car _%e200112200132%_))) - (_%tl200114200137%_ + (##car _%e200218200238%_))) + (_%tl200220200243%_ (let () (declare (not safe)) - (##cdr _%e200112200132%_)))) - ((lambda (_%L200140%_ _%L200141%_) - (let* ((_%ctx200154%_ + (##cdr _%e200218200238%_)))) + ((lambda (_%L200246%_ _%L200247%_) + (let* ((_%ctx200260%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%L200141%_))) - (_%code200156%_ + _%L200247%_))) + (_%code200262%_ (##structure-ref - _%ctx200154%_ + _%ctx200260%_ '11 gx#module-context::t '#f)) - (__tmp200769 + (__tmp200875 (lambda () (let () (declare (not safe)) (gxc#compile-e__1 - _%self200102%_ - _%code200156%_))))) + _%self200208%_ + _%code200262%_))))) (declare (not safe)) (__call-with-parameters - __tmp200769 + __tmp200875 gx#current-expander-context - _%ctx200154%_))) - _%tl200114200137%_ - _%hd200113200135%_))) - (_%g200105200119%_ _%g200106200122%_)))) - (_%g200105200119%_ _%g200106200122%_))))) - (_%g200104200160%_ _%stx200103%_)))) + _%ctx200260%_))) + _%tl200220200243%_ + _%hd200219200241%_))) + (_%g200211200225%_ _%g200212200228%_)))) + (_%g200211200225%_ _%g200212200228%_))))) + (_%g200210200266%_ _%stx200209%_)))) (define gxc#generate-ssxi-define-values% - (lambda (_%self199907%_ _%stx199908%_) - (letrec ((_%generate-e199910%_ - (lambda (_%id200087%_) - (let* ((_%sym200089%_ - (if (let ((__tmp200770 + (lambda (_%self200013%_ _%stx200014%_) + (letrec ((_%generate-e200016%_ + (lambda (_%id200193%_) + (let* ((_%sym200195%_ + (if (let ((__tmp200876 (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'id)))) (declare (not safe)) - (gx#identifier? __tmp200770)) + (gx#identifier? __tmp200876)) (let () (declare (not safe)) - (gxc#identifier-symbol _%id200087%_)) + (gxc#identifier-symbol _%id200193%_)) '#f)) - (_%$e200091%_ + (_%$e200197%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-class _%sym200089%_)))) - (if _%$e200091%_ - ((lambda (_%klass200094%_) + (gxc#optimizer-lookup-class _%sym200195%_)))) + (if _%$e200197%_ + ((lambda (_%klass200200%_) (let () (declare (not safe)) (gxc#verbose '"generate class decl" - _%sym200089%_)) + _%sym200195%_)) (cons 'begin (cons (cons 'declare-class - (cons _%sym200089%_ - (cons (let ((__method200745 + (cons _%sym200195%_ + (cons (let ((__method200851 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (__method-ref _%klass200094%_ 'typedecl)))) - (if __method200745 + (__method-ref _%klass200200%_ 'typedecl)))) + (if __method200851 (let () (declare (not safe)) - (__method200745 _%klass200094%_)) + (__method200851 _%klass200200%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%klass200094%_ + _%klass200200%_ 'typedecl)) '#!void))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons 'declare-type - (cons _%sym200089%_ + (cons _%sym200195%_ (cons (cons 'optimizer-resolve-class ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'quote (cons (cons 'typedecl - (cons _%sym200089%_ + (cons _%sym200195%_ '())) '())) (cons (cons 'quote (cons 'class::t '())) @@ -739,1309 +739,1309 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%$e200091%_) - (let ((_%$e200096%_ + _%$e200197%_) + (let ((_%$e200202%_ (let () (declare (not safe)) - (gxc#optimizer-lookup-type _%sym200089%_)))) - (if _%$e200096%_ - ((lambda (_%type200099%_) + (gxc#optimizer-lookup-type _%sym200195%_)))) + (if _%$e200202%_ + ((lambda (_%type200205%_) (let () (declare (not safe)) (gxc#verbose '"generate typedecl " - _%sym200089%_ + _%sym200195%_ '" " - _%type200099%_)) + _%type200205%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%type200099%_ + _%type200205%_ 'gxc#!class::t)) (cons 'declare-type - (cons _%sym200089%_ + (cons _%sym200195%_ (cons (cons 'optimizer-resolve-class (cons (cons 'quote ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons 'typedecl - (cons _%sym200089%_ '())) + (cons _%sym200195%_ '())) '())) (cons (cons 'quote (cons (let () (declare (not safe)) (gxc#optimizer-lookup-class-name - _%type200099%_)) + _%type200205%_)) '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'declare-type - (cons _%sym200089%_ - (cons (let ((__method200746 + (cons _%sym200195%_ + (cons (let ((__method200852 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (__method-ref _%type200099%_ 'typedecl)))) - (if __method200746 + (__method-ref _%type200205%_ 'typedecl)))) + (if __method200852 (let () (declare (not safe)) - (__method200746 _%type200099%_)) + (__method200852 _%type200205%_)) (begin (let () (declare (not safe)) - (error '"Missing method" _%type200099%_ 'typedecl)) + (error '"Missing method" _%type200205%_ 'typedecl)) '#!void))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e200096%_) + _%$e200202%_) '(begin)))))))) - (let* ((_%__stx200357200358%_ _%stx199908%_) - (_%g199913199951%_ + (let* ((_%__stx200463200464%_ _%stx200014%_) + (_%g200019200057%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200357200358%_))))) - (let ((_%__kont200359200360%_ - (lambda (_%L200069%_) (_%generate-e199910%_ _%L200069%_))) - (_%__kont200361200362%_ - (lambda (_%L200004%_) - (let ((_%types200030%_ - (map _%generate-e199910%_ - (let ((__tmp200771 - (lambda (_%g200022200025%_ - _%g200023200027%_) - (cons _%g200022200025%_ - _%g200023200027%_)))) + _%__stx200463200464%_))))) + (let ((_%__kont200465200466%_ + (lambda (_%L200175%_) (_%generate-e200016%_ _%L200175%_))) + (_%__kont200467200468%_ + (lambda (_%L200110%_) + (let ((_%types200136%_ + (map _%generate-e200016%_ + (let ((__tmp200877 + (lambda (_%g200128200131%_ + _%g200129200133%_) + (cons _%g200128200131%_ + _%g200129200133%_)))) (declare (not safe)) - (__foldr1 __tmp200771 '() _%L200004%_))))) - (cons 'begin _%types200030%_))))) - (let ((_%__match200412200413%_ - (lambda (_%e199929199956%_ - _%hd199930199959%_ - _%tl199931199961%_ - _%e199932199964%_ - _%hd199933199967%_ - _%tl199934199969%_ - _%__splice200363200364%_ - _%target199935199972%_ - _%tl199937199974%_) - (letrec ((_%loop199938199977%_ - (lambda (_%hd199936199980%_ - _%id199942199982%_) + (__foldr1 __tmp200877 '() _%L200110%_))))) + (cons 'begin _%types200136%_))))) + (let ((_%__match200518200519%_ + (lambda (_%e200035200062%_ + _%hd200036200065%_ + _%tl200037200067%_ + _%e200038200070%_ + _%hd200039200073%_ + _%tl200040200075%_ + _%__splice200469200470%_ + _%target200041200078%_ + _%tl200043200080%_) + (letrec ((_%loop200044200083%_ + (lambda (_%hd200042200086%_ + _%id200048200088%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199936199980%_)) - (let ((_%e199939199985%_ + (gx#stx-pair? _%hd200042200086%_)) + (let ((_%e200045200091%_ (let () (declare (not safe)) (gx#stx-e - _%hd199936199980%_)))) - (let ((_%lp-tl199941199990%_ + _%hd200042200086%_)))) + (let ((_%lp-tl200047200096%_ (let () (declare (not safe)) - (##cdr _%e199939199985%_))) - (_%lp-hd199940199988%_ + (##cdr _%e200045200091%_))) + (_%lp-hd200046200094%_ (let () (declare (not safe)) - (##car _%e199939199985%_)))) - (_%loop199938199977%_ - _%lp-tl199941199990%_ - (cons _%lp-hd199940199988%_ - _%id199942199982%_)))) - (let ((_%id199943199993%_ - (reverse _%id199942199982%_))) + (##car _%e200045200091%_)))) + (_%loop200044200083%_ + _%lp-tl200047200096%_ + (cons _%lp-hd200046200094%_ + _%id200048200088%_)))) + (let ((_%id200049200099%_ + (reverse _%id200048200088%_))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199934199969%_)) - (let ((_%e199944199996%_ + _%tl200040200075%_)) + (let ((_%e200050200102%_ (let () (declare (not safe)) (gx#stx-e - _%tl199934199969%_)))) - (let ((_%tl199946200001%_ + _%tl200040200075%_)))) + (let ((_%tl200052200107%_ (let () (declare (not safe)) - (##cdr _%e199944199996%_))) - (_%hd199945199999%_ + (##cdr _%e200050200102%_))) + (_%hd200051200105%_ (let () (declare (not safe)) - (##car _%e199944199996%_)))) + (##car _%e200050200102%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199946200001%_)) - (_%__kont200361200362%_ - _%id199943199993%_) + _%tl200052200107%_)) + (_%__kont200467200468%_ + _%id200049200099%_) (let () (declare (not safe)) - (_%g199913199951%_))))) + (_%g200019200057%_))))) (let () (declare (not safe)) - (_%g199913199951%_)))))))) - (_%loop199938199977%_ _%target199935199972%_ '()))))) + (_%g200019200057%_)))))))) + (_%loop200044200083%_ _%target200041200078%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200357200358%_)) - (let ((_%e199916200037%_ + (gx#stx-pair? _%__stx200463200464%_)) + (let ((_%e200022200143%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200357200358%_)))) - (let ((_%tl199918200042%_ + (gx#stx-e _%__stx200463200464%_)))) + (let ((_%tl200024200148%_ (let () (declare (not safe)) - (##cdr _%e199916200037%_))) - (_%hd199917200040%_ + (##cdr _%e200022200143%_))) + (_%hd200023200146%_ (let () (declare (not safe)) - (##car _%e199916200037%_)))) + (##car _%e200022200143%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199918200042%_)) - (let ((_%e199919200045%_ + (gx#stx-pair? _%tl200024200148%_)) + (let ((_%e200025200151%_ (let () (declare (not safe)) - (gx#stx-e _%tl199918200042%_)))) - (let ((_%tl199921200050%_ + (gx#stx-e _%tl200024200148%_)))) + (let ((_%tl200027200156%_ (let () (declare (not safe)) - (##cdr _%e199919200045%_))) - (_%hd199920200048%_ + (##cdr _%e200025200151%_))) + (_%hd200026200154%_ (let () (declare (not safe)) - (##car _%e199919200045%_)))) + (##car _%e200025200151%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199920200048%_)) - (let ((_%e199922200053%_ + (gx#stx-pair? _%hd200026200154%_)) + (let ((_%e200028200159%_ (let () (declare (not safe)) - (gx#stx-e _%hd199920200048%_)))) - (let ((_%tl199924200058%_ + (gx#stx-e _%hd200026200154%_)))) + (let ((_%tl200030200164%_ (let () (declare (not safe)) - (##cdr _%e199922200053%_))) - (_%hd199923200056%_ + (##cdr _%e200028200159%_))) + (_%hd200029200162%_ (let () (declare (not safe)) - (##car _%e199922200053%_)))) + (##car _%e200028200159%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199924200058%_)) + _%tl200030200164%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199921200050%_)) - (let ((_%e199925200061%_ + _%tl200027200156%_)) + (let ((_%e200031200167%_ (let () (declare (not safe)) (gx#stx-e - _%tl199921200050%_)))) - (let ((_%tl199927200066%_ + _%tl200027200156%_)))) + (let ((_%tl200033200172%_ (let () (declare (not safe)) - (##cdr _%e199925200061%_))) - (_%hd199926200064%_ + (##cdr _%e200031200167%_))) + (_%hd200032200170%_ (let () (declare (not safe)) - (##car _%e199925200061%_)))) + (##car _%e200031200167%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199927200066%_)) - (_%__kont200359200360%_ - _%hd199923200056%_) + _%tl200033200172%_)) + (_%__kont200465200466%_ + _%hd200029200162%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199920200048%_)) - (let ((_%__splice200363200364%_ + _%hd200026200154%_)) + (let ((_%__splice200469200470%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%hd199920200048%_ '0)))) - (let ((_%tl199937199974%_ + (gx#syntax-split-splice _%hd200026200154%_ '0)))) + (let ((_%tl200043200080%_ (let () (declare (not safe)) - (##vector-ref _%__splice200363200364%_ '1))) - (_%target199935199972%_ + (##vector-ref _%__splice200469200470%_ '1))) + (_%target200041200078%_ (let () (declare (not safe)) - (##vector-ref _%__splice200363200364%_ '0)))) + (##vector-ref _%__splice200469200470%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199937199974%_)) - (_%__match200412200413%_ - _%e199916200037%_ - _%hd199917200040%_ - _%tl199918200042%_ - _%e199919200045%_ - _%hd199920200048%_ - _%tl199921200050%_ - _%__splice200363200364%_ - _%target199935199972%_ - _%tl199937199974%_) + (gx#stx-null? _%tl200043200080%_)) + (_%__match200518200519%_ + _%e200022200143%_ + _%hd200023200146%_ + _%tl200024200148%_ + _%e200025200151%_ + _%hd200026200154%_ + _%tl200027200156%_ + _%__splice200469200470%_ + _%target200041200078%_ + _%tl200043200080%_) (let () (declare (not safe)) - (_%g199913199951%_))))) - (let () (declare (not safe)) (_%g199913199951%_)))))) + (_%g200019200057%_))))) + (let () (declare (not safe)) (_%g200019200057%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199920200048%_)) - (let ((_%__splice200363200364%_ + _%hd200026200154%_)) + (let ((_%__splice200469200470%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199920200048%_ + _%hd200026200154%_ '0)))) - (let ((_%tl199937199974%_ + (let ((_%tl200043200080%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice200363200364%_ '1))) - (_%target199935199972%_ + (##vector-ref _%__splice200469200470%_ '1))) + (_%target200041200078%_ (let () (declare (not safe)) - (##vector-ref _%__splice200363200364%_ '0)))) + (##vector-ref _%__splice200469200470%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199937199974%_)) - (_%__match200412200413%_ - _%e199916200037%_ - _%hd199917200040%_ - _%tl199918200042%_ - _%e199919200045%_ - _%hd199920200048%_ - _%tl199921200050%_ - _%__splice200363200364%_ - _%target199935199972%_ - _%tl199937199974%_) - (let () (declare (not safe)) (_%g199913199951%_))))) + (gx#stx-null? _%tl200043200080%_)) + (_%__match200518200519%_ + _%e200022200143%_ + _%hd200023200146%_ + _%tl200024200148%_ + _%e200025200151%_ + _%hd200026200154%_ + _%tl200027200156%_ + _%__splice200469200470%_ + _%target200041200078%_ + _%tl200043200080%_) + (let () (declare (not safe)) (_%g200019200057%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199913199951%_)))) + (_%g200019200057%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199920200048%_)) - (let ((_%__splice200363200364%_ + _%hd200026200154%_)) + (let ((_%__splice200469200470%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199920200048%_ + _%hd200026200154%_ '0)))) - (let ((_%tl199937199974%_ + (let ((_%tl200043200080%_ (let () (declare (not safe)) (##vector-ref - _%__splice200363200364%_ + _%__splice200469200470%_ '1))) - (_%target199935199972%_ + (_%target200041200078%_ (let () (declare (not safe)) (##vector-ref - _%__splice200363200364%_ + _%__splice200469200470%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199937199974%_)) - (_%__match200412200413%_ - _%e199916200037%_ - _%hd199917200040%_ - _%tl199918200042%_ - _%e199919200045%_ - _%hd199920200048%_ - _%tl199921200050%_ - _%__splice200363200364%_ - _%target199935199972%_ - _%tl199937199974%_) + _%tl200043200080%_)) + (_%__match200518200519%_ + _%e200022200143%_ + _%hd200023200146%_ + _%tl200024200148%_ + _%e200025200151%_ + _%hd200026200154%_ + _%tl200027200156%_ + _%__splice200469200470%_ + _%target200041200078%_ + _%tl200043200080%_) (let () (declare (not safe)) - (_%g199913199951%_))))) + (_%g200019200057%_))))) (let () (declare (not safe)) - (_%g199913199951%_)))))) + (_%g200019200057%_)))))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd199920200048%_)) - (let ((_%__splice200363200364%_ + _%hd200026200154%_)) + (let ((_%__splice200469200470%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%hd199920200048%_ + _%hd200026200154%_ '0)))) - (let ((_%tl199937199974%_ + (let ((_%tl200043200080%_ (let () (declare (not safe)) (##vector-ref - _%__splice200363200364%_ + _%__splice200469200470%_ '1))) - (_%target199935199972%_ + (_%target200041200078%_ (let () (declare (not safe)) (##vector-ref - _%__splice200363200364%_ + _%__splice200469200470%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199937199974%_)) - (_%__match200412200413%_ - _%e199916200037%_ - _%hd199917200040%_ - _%tl199918200042%_ - _%e199919200045%_ - _%hd199920200048%_ - _%tl199921200050%_ - _%__splice200363200364%_ - _%target199935199972%_ - _%tl199937199974%_) + _%tl200043200080%_)) + (_%__match200518200519%_ + _%e200022200143%_ + _%hd200023200146%_ + _%tl200024200148%_ + _%e200025200151%_ + _%hd200026200154%_ + _%tl200027200156%_ + _%__splice200469200470%_ + _%target200041200078%_ + _%tl200043200080%_) (let () (declare (not safe)) - (_%g199913199951%_))))) + (_%g200019200057%_))))) (let () (declare (not safe)) - (_%g199913199951%_)))))) + (_%g200019200057%_)))))) (let () (declare (not safe)) - (_%g199913199951%_))))) - (let () (declare (not safe)) (_%g199913199951%_))))))))) + (_%g200019200057%_))))) + (let () (declare (not safe)) (_%g200019200057%_))))))))) (define gxc#generate-ssxi-call% - (lambda (_%self199460%_ _%stx199461%_) - (let* ((_%__stx200415200416%_ _%stx199461%_) - (_%g199465199567%_ + (lambda (_%self199566%_ _%stx199567%_) + (let* ((_%__stx200521200522%_ _%stx199567%_) + (_%g199571199673%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200415200416%_))))) - (let ((_%__kont200417200418%_ - (lambda (_%L199857%_ - _%L199858%_ - _%L199859%_ - _%L199860%_ - _%L199861%_) + _%__stx200521200522%_))))) + (let ((_%__kont200523200524%_ + (lambda (_%L199963%_ + _%L199964%_ + _%L199965%_ + _%L199966%_ + _%L199967%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199860%_)) + (gxc#identifier-symbol _%L199966%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199859%_)) + (gx#stx-e _%L199965%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199858%_)) + _%L199964%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199857%_)) + (gx#stx-e _%L199963%_)) '()))))))) - (_%__kont200419200420%_ - (lambda (_%L199683%_ _%L199684%_ _%L199685%_ _%L199686%_) + (_%__kont200525200526%_ + (lambda (_%L199789%_ _%L199790%_ _%L199791%_ _%L199792%_) (cons 'declare-method (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199685%_)) + (gxc#identifier-symbol _%L199791%_)) (cons (let () (declare (not safe)) - (gx#stx-e _%L199684%_)) + (gx#stx-e _%L199790%_)) (cons (let () (declare (not safe)) (gxc#identifier-symbol - _%L199683%_)) + _%L199789%_)) (cons '#f '()))))))) - (_%__kont200421200422%_ (lambda () '(begin)))) - (let ((_%__match200550200551%_ - (lambda (_%e199472199729%_ - _%hd199473199732%_ - _%tl199474199734%_ - _%e199475199737%_ - _%hd199476199740%_ - _%tl199477199742%_ - _%e199478199745%_ - _%hd199479199748%_ - _%tl199480199750%_ - _%e199481199753%_ - _%hd199482199756%_ - _%tl199483199758%_ - _%e199484199761%_ - _%hd199485199764%_ - _%tl199486199766%_ - _%e199487199769%_ - _%hd199488199772%_ - _%tl199489199774%_ - _%e199490199777%_ - _%hd199491199780%_ - _%tl199492199782%_ - _%e199493199785%_ - _%hd199494199788%_ - _%tl199495199790%_ - _%e199496199793%_ - _%hd199497199796%_ - _%tl199498199798%_ - _%e199499199801%_ - _%hd199500199804%_ - _%tl199501199806%_ - _%e199502199809%_ - _%hd199503199812%_ - _%tl199504199814%_ - _%e199505199817%_ - _%hd199506199820%_ - _%tl199507199822%_ - _%e199508199825%_ - _%hd199509199828%_ - _%tl199510199830%_ - _%e199511199833%_ - _%hd199512199836%_ - _%tl199513199838%_ - _%e199514199841%_ - _%hd199515199844%_ - _%tl199516199846%_ - _%e199517199849%_ - _%hd199518199852%_ - _%tl199519199854%_) - (let ((_%L199857%_ _%hd199518199852%_) - (_%L199858%_ _%hd199509199828%_) - (_%L199859%_ _%hd199500199804%_) - (_%L199860%_ _%hd199491199780%_) - (_%L199861%_ _%hd199482199756%_)) + (_%__kont200527200528%_ (lambda () '(begin)))) + (let ((_%__match200656200657%_ + (lambda (_%e199578199835%_ + _%hd199579199838%_ + _%tl199580199840%_ + _%e199581199843%_ + _%hd199582199846%_ + _%tl199583199848%_ + _%e199584199851%_ + _%hd199585199854%_ + _%tl199586199856%_ + _%e199587199859%_ + _%hd199588199862%_ + _%tl199589199864%_ + _%e199590199867%_ + _%hd199591199870%_ + _%tl199592199872%_ + _%e199593199875%_ + _%hd199594199878%_ + _%tl199595199880%_ + _%e199596199883%_ + _%hd199597199886%_ + _%tl199598199888%_ + _%e199599199891%_ + _%hd199600199894%_ + _%tl199601199896%_ + _%e199602199899%_ + _%hd199603199902%_ + _%tl199604199904%_ + _%e199605199907%_ + _%hd199606199910%_ + _%tl199607199912%_ + _%e199608199915%_ + _%hd199609199918%_ + _%tl199610199920%_ + _%e199611199923%_ + _%hd199612199926%_ + _%tl199613199928%_ + _%e199614199931%_ + _%hd199615199934%_ + _%tl199616199936%_ + _%e199617199939%_ + _%hd199618199942%_ + _%tl199619199944%_ + _%e199620199947%_ + _%hd199621199950%_ + _%tl199622199952%_ + _%e199623199955%_ + _%hd199624199958%_ + _%tl199625199960%_) + (let ((_%L199963%_ _%hd199624199958%_) + (_%L199964%_ _%hd199615199934%_) + (_%L199965%_ _%hd199606199910%_) + (_%L199966%_ _%hd199597199886%_) + (_%L199967%_ _%hd199588199862%_)) (if (let () (declare (not safe)) (gxc#runtime-identifier=? - _%L199861%_ + _%L199967%_ 'bind-method!)) - (_%__kont200417200418%_ - _%L199857%_ - _%L199858%_ - _%L199859%_ - _%L199860%_ - _%L199861%_) - (_%__kont200421200422%_)))))) + (_%__kont200523200524%_ + _%L199963%_ + _%L199964%_ + _%L199965%_ + _%L199966%_ + _%L199967%_) + (_%__kont200527200528%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200415200416%_)) - (let ((_%e199472199729%_ + (gx#stx-pair? _%__stx200521200522%_)) + (let ((_%e199578199835%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200415200416%_)))) - (let ((_%tl199474199734%_ + (gx#stx-e _%__stx200521200522%_)))) + (let ((_%tl199580199840%_ (let () (declare (not safe)) - (##cdr _%e199472199729%_))) - (_%hd199473199732%_ + (##cdr _%e199578199835%_))) + (_%hd199579199838%_ (let () (declare (not safe)) - (##car _%e199472199729%_)))) + (##car _%e199578199835%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199474199734%_)) - (let ((_%e199475199737%_ + (gx#stx-pair? _%tl199580199840%_)) + (let ((_%e199581199843%_ (let () (declare (not safe)) - (gx#stx-e _%tl199474199734%_)))) - (let ((_%tl199477199742%_ + (gx#stx-e _%tl199580199840%_)))) + (let ((_%tl199583199848%_ (let () (declare (not safe)) - (##cdr _%e199475199737%_))) - (_%hd199476199740%_ + (##cdr _%e199581199843%_))) + (_%hd199582199846%_ (let () (declare (not safe)) - (##car _%e199475199737%_)))) + (##car _%e199581199843%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199476199740%_)) - (let ((_%e199478199745%_ + (gx#stx-pair? _%hd199582199846%_)) + (let ((_%e199584199851%_ (let () (declare (not safe)) - (gx#stx-e _%hd199476199740%_)))) - (let ((_%tl199480199750%_ + (gx#stx-e _%hd199582199846%_)))) + (let ((_%tl199586199856%_ (let () (declare (not safe)) - (##cdr _%e199478199745%_))) - (_%hd199479199748%_ + (##cdr _%e199584199851%_))) + (_%hd199585199854%_ (let () (declare (not safe)) - (##car _%e199478199745%_)))) + (##car _%e199584199851%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd199479199748%_)) + _%hd199585199854%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199479199748%_)) + _%hd199585199854%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199480199750%_)) - (let ((_%e199481199753%_ + _%tl199586199856%_)) + (let ((_%e199587199859%_ (let () (declare (not safe)) (gx#stx-e - _%tl199480199750%_)))) - (let ((_%tl199483199758%_ + _%tl199586199856%_)))) + (let ((_%tl199589199864%_ (let () (declare (not safe)) - (##cdr _%e199481199753%_))) - (_%hd199482199756%_ + (##cdr _%e199587199859%_))) + (_%hd199588199862%_ (let () (declare (not safe)) - (##car _%e199481199753%_)))) + (##car _%e199587199859%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199483199758%_)) + _%tl199589199864%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl199477199742%_)) - (let ((_%e199484199761%_ + (gx#stx-pair? _%tl199583199848%_)) + (let ((_%e199590199867%_ (let () (declare (not safe)) - (gx#stx-e _%tl199477199742%_)))) - (let ((_%tl199486199766%_ + (gx#stx-e _%tl199583199848%_)))) + (let ((_%tl199592199872%_ (let () (declare (not safe)) - (##cdr _%e199484199761%_))) - (_%hd199485199764%_ + (##cdr _%e199590199867%_))) + (_%hd199591199870%_ (let () (declare (not safe)) - (##car _%e199484199761%_)))) + (##car _%e199590199867%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199485199764%_)) - (let ((_%e199487199769%_ + (gx#stx-pair? _%hd199591199870%_)) + (let ((_%e199593199875%_ (let () (declare (not safe)) - (gx#stx-e _%hd199485199764%_)))) - (let ((_%tl199489199774%_ + (gx#stx-e _%hd199591199870%_)))) + (let ((_%tl199595199880%_ (let () (declare (not safe)) - (##cdr _%e199487199769%_))) - (_%hd199488199772%_ + (##cdr _%e199593199875%_))) + (_%hd199594199878%_ (let () (declare (not safe)) - (##car _%e199487199769%_)))) + (##car _%e199593199875%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199488199772%_)) + (gx#identifier? _%hd199594199878%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#ref - _%hd199488199772%_)) + _%hd199594199878%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199489199774%_)) - (let ((_%e199490199777%_ + _%tl199595199880%_)) + (let ((_%e199596199883%_ (let () (declare (not safe)) (gx#stx-e - _%tl199489199774%_)))) - (let ((_%tl199492199782%_ + _%tl199595199880%_)))) + (let ((_%tl199598199888%_ (let () (declare (not safe)) - (##cdr _%e199490199777%_))) - (_%hd199491199780%_ + (##cdr _%e199596199883%_))) + (_%hd199597199886%_ (let () (declare (not safe)) - (##car _%e199490199777%_)))) + (##car _%e199596199883%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199492199782%_)) + _%tl199598199888%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199486199766%_)) - (let ((_%e199493199785%_ + _%tl199592199872%_)) + (let ((_%e199599199891%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199486199766%_)))) - (let ((_%tl199495199790%_ + (gx#stx-e _%tl199592199872%_)))) + (let ((_%tl199601199896%_ (let () (declare (not safe)) - (##cdr _%e199493199785%_))) - (_%hd199494199788%_ + (##cdr _%e199599199891%_))) + (_%hd199600199894%_ (let () (declare (not safe)) - (##car _%e199493199785%_)))) + (##car _%e199599199891%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199494199788%_)) - (let ((_%e199496199793%_ + (gx#stx-pair? _%hd199600199894%_)) + (let ((_%e199602199899%_ (let () (declare (not safe)) - (gx#stx-e _%hd199494199788%_)))) - (let ((_%tl199498199798%_ + (gx#stx-e _%hd199600199894%_)))) + (let ((_%tl199604199904%_ (let () (declare (not safe)) - (##cdr _%e199496199793%_))) - (_%hd199497199796%_ + (##cdr _%e199602199899%_))) + (_%hd199603199902%_ (let () (declare (not safe)) - (##car _%e199496199793%_)))) + (##car _%e199602199899%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199497199796%_)) + (gx#identifier? _%hd199603199902%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199497199796%_)) + _%hd199603199902%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199498199798%_)) - (let ((_%e199499199801%_ + (gx#stx-pair? _%tl199604199904%_)) + (let ((_%e199605199907%_ (let () (declare (not safe)) (gx#stx-e - _%tl199498199798%_)))) - (let ((_%tl199501199806%_ + _%tl199604199904%_)))) + (let ((_%tl199607199912%_ (let () (declare (not safe)) - (##cdr _%e199499199801%_))) - (_%hd199500199804%_ + (##cdr _%e199605199907%_))) + (_%hd199606199910%_ (let () (declare (not safe)) - (##car _%e199499199801%_)))) + (##car _%e199605199907%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199501199806%_)) + _%tl199607199912%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199495199790%_)) - (let ((_%e199502199809%_ + _%tl199601199896%_)) + (let ((_%e199608199915%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%tl199495199790%_)))) - (let ((_%tl199504199814%_ - (let () (declare (not safe)) (##cdr _%e199502199809%_))) - (_%hd199503199812%_ + (gx#stx-e _%tl199601199896%_)))) + (let ((_%tl199610199920%_ + (let () (declare (not safe)) (##cdr _%e199608199915%_))) + (_%hd199609199918%_ (let () (declare (not safe)) - (##car _%e199502199809%_)))) + (##car _%e199608199915%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199503199812%_)) - (let ((_%e199505199817%_ + (gx#stx-pair? _%hd199609199918%_)) + (let ((_%e199611199923%_ (let () (declare (not safe)) - (gx#stx-e _%hd199503199812%_)))) - (let ((_%tl199507199822%_ + (gx#stx-e _%hd199609199918%_)))) + (let ((_%tl199613199928%_ (let () (declare (not safe)) - (##cdr _%e199505199817%_))) - (_%hd199506199820%_ + (##cdr _%e199611199923%_))) + (_%hd199612199926%_ (let () (declare (not safe)) - (##car _%e199505199817%_)))) + (##car _%e199611199923%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199506199820%_)) + (gx#identifier? _%hd199612199926%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#ref _%hd199506199820%_)) + (gx#stx-eq? '%#ref _%hd199612199926%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199507199822%_)) - (let ((_%e199508199825%_ + (gx#stx-pair? _%tl199613199928%_)) + (let ((_%e199614199931%_ (let () (declare (not safe)) - (gx#stx-e _%tl199507199822%_)))) - (let ((_%tl199510199830%_ + (gx#stx-e _%tl199613199928%_)))) + (let ((_%tl199616199936%_ (let () (declare (not safe)) - (##cdr _%e199508199825%_))) - (_%hd199509199828%_ + (##cdr _%e199614199931%_))) + (_%hd199615199934%_ (let () (declare (not safe)) - (##car _%e199508199825%_)))) + (##car _%e199614199931%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199510199830%_)) + _%tl199616199936%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199504199814%_)) - (let ((_%e199511199833%_ + _%tl199610199920%_)) + (let ((_%e199617199939%_ (let () (declare (not safe)) (gx#stx-e - _%tl199504199814%_)))) - (let ((_%tl199513199838%_ + _%tl199610199920%_)))) + (let ((_%tl199619199944%_ (let () (declare (not safe)) - (##cdr _%e199511199833%_))) - (_%hd199512199836%_ + (##cdr _%e199617199939%_))) + (_%hd199618199942%_ (let () (declare (not safe)) - (##car _%e199511199833%_)))) + (##car _%e199617199939%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd199512199836%_)) - (let ((_%e199514199841%_ + _%hd199618199942%_)) + (let ((_%e199620199947%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%hd199512199836%_)))) - (let ((_%tl199516199846%_ + (gx#stx-e _%hd199618199942%_)))) + (let ((_%tl199622199952%_ (let () (declare (not safe)) - (##cdr _%e199514199841%_))) - (_%hd199515199844%_ + (##cdr _%e199620199947%_))) + (_%hd199621199950%_ (let () (declare (not safe)) - (##car _%e199514199841%_)))) + (##car _%e199620199947%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199515199844%_)) + (gx#identifier? _%hd199621199950%_)) (if (let () (declare (not safe)) - (gx#stx-eq? '%#quote _%hd199515199844%_)) + (gx#stx-eq? '%#quote _%hd199621199950%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199516199846%_)) - (let ((_%e199517199849%_ + (gx#stx-pair? _%tl199622199952%_)) + (let ((_%e199623199955%_ (let () (declare (not safe)) - (gx#stx-e _%tl199516199846%_)))) - (let ((_%tl199519199854%_ + (gx#stx-e _%tl199622199952%_)))) + (let ((_%tl199625199960%_ (let () (declare (not safe)) - (##cdr _%e199517199849%_))) - (_%hd199518199852%_ + (##cdr _%e199623199955%_))) + (_%hd199624199958%_ (let () (declare (not safe)) - (##car _%e199517199849%_)))) + (##car _%e199623199955%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199519199854%_)) + (gx#stx-null? _%tl199625199960%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199513199838%_)) - (_%__match200550200551%_ - _%e199472199729%_ - _%hd199473199732%_ - _%tl199474199734%_ - _%e199475199737%_ - _%hd199476199740%_ - _%tl199477199742%_ - _%e199478199745%_ - _%hd199479199748%_ - _%tl199480199750%_ - _%e199481199753%_ - _%hd199482199756%_ - _%tl199483199758%_ - _%e199484199761%_ - _%hd199485199764%_ - _%tl199486199766%_ - _%e199487199769%_ - _%hd199488199772%_ - _%tl199489199774%_ - _%e199490199777%_ - _%hd199491199780%_ - _%tl199492199782%_ - _%e199493199785%_ - _%hd199494199788%_ - _%tl199495199790%_ - _%e199496199793%_ - _%hd199497199796%_ - _%tl199498199798%_ - _%e199499199801%_ - _%hd199500199804%_ - _%tl199501199806%_ - _%e199502199809%_ - _%hd199503199812%_ - _%tl199504199814%_ - _%e199505199817%_ - _%hd199506199820%_ - _%tl199507199822%_ - _%e199508199825%_ - _%hd199509199828%_ - _%tl199510199830%_ - _%e199511199833%_ - _%hd199512199836%_ - _%tl199513199838%_ - _%e199514199841%_ - _%hd199515199844%_ - _%tl199516199846%_ - _%e199517199849%_ - _%hd199518199852%_ - _%tl199519199854%_) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) + _%tl199619199944%_)) + (_%__match200656200657%_ + _%e199578199835%_ + _%hd199579199838%_ + _%tl199580199840%_ + _%e199581199843%_ + _%hd199582199846%_ + _%tl199583199848%_ + _%e199584199851%_ + _%hd199585199854%_ + _%tl199586199856%_ + _%e199587199859%_ + _%hd199588199862%_ + _%tl199589199864%_ + _%e199590199867%_ + _%hd199591199870%_ + _%tl199592199872%_ + _%e199593199875%_ + _%hd199594199878%_ + _%tl199595199880%_ + _%e199596199883%_ + _%hd199597199886%_ + _%tl199598199888%_ + _%e199599199891%_ + _%hd199600199894%_ + _%tl199601199896%_ + _%e199602199899%_ + _%hd199603199902%_ + _%tl199604199904%_ + _%e199605199907%_ + _%hd199606199910%_ + _%tl199607199912%_ + _%e199608199915%_ + _%hd199609199918%_ + _%tl199610199920%_ + _%e199611199923%_ + _%hd199612199926%_ + _%tl199613199928%_ + _%e199614199931%_ + _%hd199615199934%_ + _%tl199616199936%_ + _%e199617199939%_ + _%hd199618199942%_ + _%tl199619199944%_ + _%e199620199947%_ + _%hd199621199950%_ + _%tl199622199952%_ + _%e199623199955%_ + _%hd199624199958%_ + _%tl199625199960%_) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-null? - _%tl199504199814%_)) - (if (let ((__tmp200772 + _%tl199610199920%_)) + (if (let ((__tmp200878 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) (gx#datum->syntax__0 '#f '-bind-method)))) (declare (not safe)) - (gxc#runtime-identifier=? __tmp200772 'bind-method!)) - (let ((_%L199683%_ _%hd199509199828%_) - (_%L199684%_ _%hd199500199804%_) - (_%L199685%_ _%hd199491199780%_) - (_%L199686%_ _%hd199482199756%_)) - (_%__kont200419200420%_ - _%L199683%_ - _%L199684%_ - _%L199685%_ - _%L199686%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_))) + (gxc#runtime-identifier=? __tmp200878 'bind-method!)) + (let ((_%L199789%_ _%hd199615199934%_) + (_%L199790%_ _%hd199606199910%_) + (_%L199791%_ _%hd199597199886%_) + (_%L199792%_ _%hd199588199862%_)) + (_%__kont200525200526%_ + _%L199789%_ + _%L199790%_ + _%L199791%_ + _%L199792%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200421200422%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont200421200422%_)) - (_%__kont200421200422%_)) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_)))) - (_%__kont200421200422%_))))))) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_)))) + (_%__kont200527200528%_))))))) (define gxc#generate-ssxi-begin-annotation% - (lambda (_%self199284%_ _%stx199285%_) - (let* ((_%__stx200659200660%_ _%stx199285%_) - (_%g199288199328%_ + (lambda (_%self199390%_ _%stx199391%_) + (let* ((_%__stx200765200766%_ _%stx199391%_) + (_%g199394199434%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx200659200660%_))))) - (let ((_%__kont200661200662%_ - (lambda (_%L199434%_ _%L199435%_) + _%__stx200765200766%_))))) + (let ((_%__kont200767200768%_ + (lambda (_%L199540%_ _%L199541%_) (cons 'declare-inline-rule! (cons (let () (declare (not safe)) - (gxc#identifier-symbol _%L199435%_)) - (cons _%L199434%_ '()))))) - (_%__kont200663200664%_ - (lambda (_%L199357%_ _%L199358%_) '(begin)))) + (gxc#identifier-symbol _%L199541%_)) + (cons _%L199540%_ '()))))) + (_%__kont200769200770%_ + (lambda (_%L199463%_ _%L199464%_) '(begin)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx200659200660%_)) - (let ((_%e199292199378%_ + (gx#stx-pair? _%__stx200765200766%_)) + (let ((_%e199398199484%_ (let () (declare (not safe)) - (gx#stx-e _%__stx200659200660%_)))) - (let ((_%tl199294199383%_ + (gx#stx-e _%__stx200765200766%_)))) + (let ((_%tl199400199489%_ (let () (declare (not safe)) - (##cdr _%e199292199378%_))) - (_%hd199293199381%_ + (##cdr _%e199398199484%_))) + (_%hd199399199487%_ (let () (declare (not safe)) - (##car _%e199292199378%_)))) + (##car _%e199398199484%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199294199383%_)) - (let ((_%e199295199386%_ + (gx#stx-pair? _%tl199400199489%_)) + (let ((_%e199401199492%_ (let () (declare (not safe)) - (gx#stx-e _%tl199294199383%_)))) - (let ((_%tl199297199391%_ + (gx#stx-e _%tl199400199489%_)))) + (let ((_%tl199403199497%_ (let () (declare (not safe)) - (##cdr _%e199295199386%_))) - (_%hd199296199389%_ + (##cdr _%e199401199492%_))) + (_%hd199402199495%_ (let () (declare (not safe)) - (##car _%e199295199386%_)))) + (##car _%e199401199492%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199296199389%_)) - (let ((_%e199298199394%_ + (gx#stx-pair? _%hd199402199495%_)) + (let ((_%e199404199500%_ (let () (declare (not safe)) - (gx#stx-e _%hd199296199389%_)))) - (let ((_%tl199300199399%_ + (gx#stx-e _%hd199402199495%_)))) + (let ((_%tl199406199505%_ (let () (declare (not safe)) - (##cdr _%e199298199394%_))) - (_%hd199299199397%_ + (##cdr _%e199404199500%_))) + (_%hd199405199503%_ (let () (declare (not safe)) - (##car _%e199298199394%_)))) + (##car _%e199404199500%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199299199397%_)) + (gx#identifier? _%hd199405199503%_)) (if (let () (declare (not safe)) (gx#stx-eq? '@inline - _%hd199299199397%_)) + _%hd199405199503%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199300199399%_)) - (let ((_%e199301199402%_ + _%tl199406199505%_)) + (let ((_%e199407199508%_ (let () (declare (not safe)) (gx#stx-e - _%tl199300199399%_)))) - (let ((_%tl199303199407%_ + _%tl199406199505%_)))) + (let ((_%tl199409199513%_ (let () (declare (not safe)) - (##cdr _%e199301199402%_))) - (_%hd199302199405%_ + (##cdr _%e199407199508%_))) + (_%hd199408199511%_ (let () (declare (not safe)) - (##car _%e199301199402%_)))) + (##car _%e199407199508%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199303199407%_)) + _%tl199409199513%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199297199391%_)) - (let ((_%e199304199410%_ + _%tl199403199497%_)) + (let ((_%e199410199516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#stx-e _%tl199297199391%_)))) - (let ((_%tl199306199415%_ + (gx#stx-e _%tl199403199497%_)))) + (let ((_%tl199412199521%_ (let () (declare (not safe)) - (##cdr _%e199304199410%_))) - (_%hd199305199413%_ + (##cdr _%e199410199516%_))) + (_%hd199411199519%_ (let () (declare (not safe)) - (##car _%e199304199410%_)))) + (##car _%e199410199516%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd199305199413%_)) - (let ((_%e199307199418%_ + (gx#stx-pair? _%hd199411199519%_)) + (let ((_%e199413199524%_ (let () (declare (not safe)) - (gx#stx-e _%hd199305199413%_)))) - (let ((_%tl199309199423%_ + (gx#stx-e _%hd199411199519%_)))) + (let ((_%tl199415199529%_ (let () (declare (not safe)) - (##cdr _%e199307199418%_))) - (_%hd199308199421%_ + (##cdr _%e199413199524%_))) + (_%hd199414199527%_ (let () (declare (not safe)) - (##car _%e199307199418%_)))) + (##car _%e199413199524%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd199308199421%_)) + (gx#identifier? _%hd199414199527%_)) (if (let () (declare (not safe)) (gx#stx-eq? '%#quote - _%hd199308199421%_)) + _%hd199414199527%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199309199423%_)) - (let ((_%e199310199426%_ + _%tl199415199529%_)) + (let ((_%e199416199532%_ (let () (declare (not safe)) (gx#stx-e - _%tl199309199423%_)))) - (let ((_%tl199312199431%_ + _%tl199415199529%_)))) + (let ((_%tl199418199537%_ (let () (declare (not safe)) - (##cdr _%e199310199426%_))) - (_%hd199311199429%_ + (##cdr _%e199416199532%_))) + (_%hd199417199535%_ (let () (declare (not safe)) - (##car _%e199310199426%_)))) + (##car _%e199416199532%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199312199431%_)) + _%tl199418199537%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199306199415%_)) - (_%__kont200661200662%_ - _%hd199311199429%_ - _%hd199302199405%_) + _%tl199412199521%_)) + (_%__kont200767200768%_ + _%hd199417199535%_ + _%hd199408199511%_) (let () (declare (not safe)) - (_%g199288199328%_))) + (_%g199394199434%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199306199415%_)) - (_%__kont200663200664%_ - _%hd199305199413%_ - _%hd199296199389%_) + _%tl199412199521%_)) + (_%__kont200769200770%_ + _%hd199411199519%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_)))))) + (_%g199394199434%_)))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199306199415%_)) - (_%__kont200663200664%_ - _%hd199305199413%_ - _%hd199296199389%_) + _%tl199412199521%_)) + (_%__kont200769200770%_ + _%hd199411199519%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_)))) + (_%g199394199434%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199306199415%_)) - (_%__kont200663200664%_ - _%hd199305199413%_ - _%hd199296199389%_) + _%tl199412199521%_)) + (_%__kont200769200770%_ + _%hd199411199519%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_)))) + (_%g199394199434%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199306199415%_)) - (_%__kont200663200664%_ - _%hd199305199413%_ - _%hd199296199389%_) + (gx#stx-null? _%tl199412199521%_)) + (_%__kont200769200770%_ + _%hd199411199519%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_)))))) + (_%g199394199434%_)))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199306199415%_)) - (_%__kont200663200664%_ - _%hd199305199413%_ - _%hd199296199389%_) + (gx#stx-null? _%tl199412199521%_)) + (_%__kont200769200770%_ + _%hd199411199519%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_)))))) - (let () (declare (not safe)) (_%g199288199328%_))) + (_%g199394199434%_)))))) + (let () (declare (not safe)) (_%g199394199434%_))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199297199391%_)) - (let ((_%e199321199349%_ + (gx#stx-pair? _%tl199403199497%_)) + (let ((_%e199427199455%_ (let () (declare (not safe)) - (gx#stx-e _%tl199297199391%_)))) - (let ((_%tl199323199354%_ + (gx#stx-e _%tl199403199497%_)))) + (let ((_%tl199429199460%_ (let () (declare (not safe)) - (##cdr _%e199321199349%_))) - (_%hd199322199352%_ + (##cdr _%e199427199455%_))) + (_%hd199428199458%_ (let () (declare (not safe)) - (##car _%e199321199349%_)))) + (##car _%e199427199455%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199323199354%_)) - (_%__kont200663200664%_ - _%hd199322199352%_ - _%hd199296199389%_) + (gx#stx-null? _%tl199429199460%_)) + (_%__kont200769200770%_ + _%hd199428199458%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_))))) - (let () (declare (not safe)) (_%g199288199328%_)))))) + (_%g199394199434%_))))) + (let () (declare (not safe)) (_%g199394199434%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199297199391%_)) - (let ((_%e199321199349%_ + _%tl199403199497%_)) + (let ((_%e199427199455%_ (let () (declare (not safe)) (gx#stx-e - _%tl199297199391%_)))) - (let ((_%tl199323199354%_ + _%tl199403199497%_)))) + (let ((_%tl199429199460%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e199321199349%_))) - (_%hd199322199352%_ - (let () (declare (not safe)) (##car _%e199321199349%_)))) + (##cdr _%e199427199455%_))) + (_%hd199428199458%_ + (let () (declare (not safe)) (##car _%e199427199455%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl199323199354%_)) - (_%__kont200663200664%_ - _%hd199322199352%_ - _%hd199296199389%_) - (let () (declare (not safe)) (_%g199288199328%_))))) + (gx#stx-null? _%tl199429199460%_)) + (_%__kont200769200770%_ + _%hd199428199458%_ + _%hd199402199495%_) + (let () (declare (not safe)) (_%g199394199434%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g199288199328%_)))) + (_%g199394199434%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199297199391%_)) - (let ((_%e199321199349%_ + _%tl199403199497%_)) + (let ((_%e199427199455%_ (let () (declare (not safe)) (gx#stx-e - _%tl199297199391%_)))) - (let ((_%tl199323199354%_ + _%tl199403199497%_)))) + (let ((_%tl199429199460%_ (let () (declare (not safe)) - (##cdr _%e199321199349%_))) - (_%hd199322199352%_ + (##cdr _%e199427199455%_))) + (_%hd199428199458%_ (let () (declare (not safe)) - (##car _%e199321199349%_)))) + (##car _%e199427199455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199323199354%_)) - (_%__kont200663200664%_ - _%hd199322199352%_ - _%hd199296199389%_) + _%tl199429199460%_)) + (_%__kont200769200770%_ + _%hd199428199458%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_))))) + (_%g199394199434%_))))) (let () (declare (not safe)) - (_%g199288199328%_)))) + (_%g199394199434%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl199297199391%_)) - (let ((_%e199321199349%_ + _%tl199403199497%_)) + (let ((_%e199427199455%_ (let () (declare (not safe)) (gx#stx-e - _%tl199297199391%_)))) - (let ((_%tl199323199354%_ + _%tl199403199497%_)))) + (let ((_%tl199429199460%_ (let () (declare (not safe)) - (##cdr _%e199321199349%_))) - (_%hd199322199352%_ + (##cdr _%e199427199455%_))) + (_%hd199428199458%_ (let () (declare (not safe)) - (##car _%e199321199349%_)))) + (##car _%e199427199455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199323199354%_)) - (_%__kont200663200664%_ - _%hd199322199352%_ - _%hd199296199389%_) + _%tl199429199460%_)) + (_%__kont200769200770%_ + _%hd199428199458%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_))))) + (_%g199394199434%_))))) (let () (declare (not safe)) - (_%g199288199328%_)))))) + (_%g199394199434%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl199297199391%_)) - (let ((_%e199321199349%_ + (gx#stx-pair? _%tl199403199497%_)) + (let ((_%e199427199455%_ (let () (declare (not safe)) - (gx#stx-e _%tl199297199391%_)))) - (let ((_%tl199323199354%_ + (gx#stx-e _%tl199403199497%_)))) + (let ((_%tl199429199460%_ (let () (declare (not safe)) - (##cdr _%e199321199349%_))) - (_%hd199322199352%_ + (##cdr _%e199427199455%_))) + (_%hd199428199458%_ (let () (declare (not safe)) - (##car _%e199321199349%_)))) + (##car _%e199427199455%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl199323199354%_)) - (_%__kont200663200664%_ - _%hd199322199352%_ - _%hd199296199389%_) + _%tl199429199460%_)) + (_%__kont200769200770%_ + _%hd199428199458%_ + _%hd199402199495%_) (let () (declare (not safe)) - (_%g199288199328%_))))) + (_%g199394199434%_))))) (let () (declare (not safe)) - (_%g199288199328%_)))))) - (let () (declare (not safe)) (_%g199288199328%_))))) - (let () (declare (not safe)) (_%g199288199328%_))))))) + (_%g199394199434%_)))))) + (let () (declare (not safe)) (_%g199394199434%_))))) + (let () (declare (not safe)) (_%g199394199434%_))))))) (define gxc#!alias::typedecl - (lambda (_%self197478199269%_) - (let* ((_%self199272%_ _%self197478199269%_) - (_%self199274%_ _%self199272%_)) + (lambda (_%self197584199375%_) + (let* ((_%self199378%_ _%self197584199375%_) + (_%self199380%_ _%self199378%_)) (cons '@alias (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self199274%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199380%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) (__bind-method!__% gxc#!alias::t 'typedecl gxc#!alias::typedecl '#f)) (define gxc#!class::typedecl - (lambda (_%self197479199040%_) - (let* ((_%self199043%_ _%self197479199040%_) - (_%self199045%_ _%self199043%_) - (_%self199054199070%_ _%self199045%_) - (_%E199056199074%_ + (lambda (_%self197585199146%_) + (let* ((_%self199149%_ _%self197585199146%_) + (_%self199151%_ _%self199149%_) + (_%self199160199176%_ _%self199151%_) + (_%E199162199180%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self199054199070%_ + _%self199160199176%_ '((!class id super precendence-list @@ -2054,124 +2054,124 @@ metaclass methods)))) '#!void)) - (_%K199057199089%_ - (lambda (_%methods199077%_ - _%metaclass199078%_ - _%system?199079%_ - _%final?199080%_ - _%struct?199081%_ - _%constructor199082%_ - _%fields199083%_ - _%slots199084%_ - _%precendence-list199085%_ - _%super199086%_ - _%id199087%_) + (_%K199163199195%_ + (lambda (_%methods199183%_ + _%metaclass199184%_ + _%system?199185%_ + _%final?199186%_ + _%struct?199187%_ + _%constructor199188%_ + _%fields199189%_ + _%slots199190%_ + _%precendence-list199191%_ + _%super199192%_ + _%id199193%_) (cons '@class - (cons _%id199087%_ - (cons _%super199086%_ - (cons _%precendence-list199085%_ - (cons _%slots199084%_ - (cons _%fields199083%_ - (cons _%constructor199082%_ - (cons _%struct?199081%_ + (cons _%id199193%_ + (cons _%super199192%_ + (cons _%precendence-list199191%_ + (cons _%slots199190%_ + (cons _%fields199189%_ + (cons _%constructor199188%_ + (cons _%struct?199187%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%final?199080%_ - (cons _%system?199079%_ - (cons _%metaclass199078%_ - (cons (if _%methods199077%_ + (cons _%final?199186%_ + (cons _%system?199185%_ + (cons _%metaclass199184%_ + (cons (if _%methods199183%_ (let () (declare (not safe)) (hash->list - _%methods199077%_)) + _%methods199183%_)) '#f) '())))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%e199058199092%_ + (_%e199164199198%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '1 '#f '#f))) - (_%id199095%_ _%e199058199092%_) - (_%e199059199097%_ + (##unchecked-structure-ref _%self199160199176%_ '1 '#f '#f))) + (_%id199201%_ _%e199164199198%_) + (_%e199165199203%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '2 '#f '#f))) - (_%super199100%_ _%e199059199097%_) - (_%e199060199102%_ + (##unchecked-structure-ref _%self199160199176%_ '2 '#f '#f))) + (_%super199206%_ _%e199165199203%_) + (_%e199166199208%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '3 '#f '#f))) - (_%precendence-list199105%_ _%e199060199102%_) - (_%e199061199107%_ + (##unchecked-structure-ref _%self199160199176%_ '3 '#f '#f))) + (_%precendence-list199211%_ _%e199166199208%_) + (_%e199167199213%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '4 '#f '#f))) - (_%slots199110%_ _%e199061199107%_) - (_%e199062199112%_ + (##unchecked-structure-ref _%self199160199176%_ '4 '#f '#f))) + (_%slots199216%_ _%e199167199213%_) + (_%e199168199218%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '5 '#f '#f))) - (_%fields199115%_ _%e199062199112%_) - (_%e199063199117%_ + (##unchecked-structure-ref _%self199160199176%_ '5 '#f '#f))) + (_%fields199221%_ _%e199168199218%_) + (_%e199169199223%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '6 '#f '#f))) - (_%constructor199120%_ _%e199063199117%_) - (_%e199064199122%_ + (##unchecked-structure-ref _%self199160199176%_ '6 '#f '#f))) + (_%constructor199226%_ _%e199169199223%_) + (_%e199170199228%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '7 '#f '#f))) - (_%struct?199125%_ _%e199064199122%_) - (_%e199065199127%_ + (##unchecked-structure-ref _%self199160199176%_ '7 '#f '#f))) + (_%struct?199231%_ _%e199170199228%_) + (_%e199171199233%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '8 '#f '#f))) - (_%final?199130%_ _%e199065199127%_) - (_%e199066199132%_ + (##unchecked-structure-ref _%self199160199176%_ '8 '#f '#f))) + (_%final?199236%_ _%e199171199233%_) + (_%e199172199238%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self199054199070%_ '9 '#f '#f))) - (_%system?199135%_ _%e199066199132%_) - (_%e199067199137%_ + (##unchecked-structure-ref _%self199160199176%_ '9 '#f '#f))) + (_%system?199241%_ _%e199172199238%_) + (_%e199173199243%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199054199070%_ + _%self199160199176%_ '10 '#f '#f))) - (_%metaclass199140%_ _%e199067199137%_) - (_%e199068199142%_ + (_%metaclass199246%_ _%e199173199243%_) + (_%e199174199248%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self199054199070%_ + _%self199160199176%_ '11 '#f '#f))) - (_%methods199145%_ _%e199068199142%_)) - (_%K199057199089%_ - _%methods199145%_ - _%metaclass199140%_ - _%system?199135%_ - _%final?199130%_ - _%struct?199125%_ - _%constructor199120%_ - _%fields199115%_ - _%slots199110%_ - _%precendence-list199105%_ - _%super199100%_ - _%id199095%_)))) + (_%methods199251%_ _%e199174199248%_)) + (_%K199163199195%_ + _%methods199251%_ + _%metaclass199246%_ + _%system?199241%_ + _%final?199236%_ + _%struct?199231%_ + _%constructor199226%_ + _%fields199221%_ + _%slots199216%_ + _%precendence-list199211%_ + _%super199206%_ + _%id199201%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!class::t 'typedecl gxc#!class::typedecl '#f)) (define gxc#!predicate::typedecl - (lambda (_%self197480198903%_) - (let* ((_%self198906%_ _%self197480198903%_) - (_%self198908%_ _%self198906%_)) + (lambda (_%self197586199009%_) + (let* ((_%self199012%_ _%self197586199009%_) + (_%self199014%_ _%self199012%_)) (cons '@predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198908%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self199014%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2181,13 +2181,13 @@ gxc#!predicate::typedecl '#f)) (define gxc#!constructor::typedecl - (lambda (_%self197481198766%_) - (let* ((_%self198769%_ _%self197481198766%_) - (_%self198771%_ _%self198769%_)) + (lambda (_%self197587198872%_) + (let* ((_%self198875%_ _%self197587198872%_) + (_%self198877%_ _%self198875%_)) (cons '@constructor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198771%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198877%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) @@ -2197,24 +2197,24 @@ gxc#!constructor::typedecl '#f)) (define gxc#!accessor::typedecl - (lambda (_%self197482198629%_) - (let* ((_%self198632%_ _%self197482198629%_) - (_%self198634%_ _%self198632%_)) + (lambda (_%self197588198735%_) + (let* ((_%self198738%_ _%self197588198735%_) + (_%self198740%_ _%self198738%_)) (cons '@accessor (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198634%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198740%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198634%_ + _%self198740%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198634%_ + _%self198740%_ '4 '#f '#f)) @@ -2227,24 +2227,24 @@ gxc#!accessor::typedecl '#f)) (define gxc#!mutator::typedecl - (lambda (_%self197483198492%_) - (let* ((_%self198495%_ _%self197483198492%_) - (_%self198497%_ _%self198495%_)) + (lambda (_%self197589198598%_) + (let* ((_%self198601%_ _%self197589198598%_) + (_%self198603%_ _%self198601%_)) (cons '@mutator (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198497%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198603%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198497%_ + _%self198603%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198497%_ + _%self198603%_ '4 '#f '#f)) @@ -2253,17 +2253,17 @@ (declare (not safe)) (__bind-method!__% gxc#!mutator::t 'typedecl gxc#!mutator::typedecl '#f)) (define gxc#!interface::typedecl - (lambda (_%self197484198355%_) - (let* ((_%self198358%_ _%self197484198355%_) - (_%self198360%_ _%self198358%_)) + (lambda (_%self197590198461%_) + (let* ((_%self198464%_ _%self197590198461%_) + (_%self198466%_ _%self198464%_)) (cons '@interface (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self198360%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self198466%_ '1 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self198360%_ + _%self198466%_ '2 '#f '#f)) @@ -2276,34 +2276,34 @@ gxc#!interface::typedecl '#f)) (define gxc#!lambda::typedecl - (lambda (_%self197485198166%_) - (let* ((_%self198169%_ _%self197485198166%_) - (_%self198171%_ _%self198169%_) - (_%self198180198189%_ _%self198171%_) - (_%E198182198193%_ + (lambda (_%self197591198272%_) + (let* ((_%self198275%_ _%self197591198272%_) + (_%self198277%_ _%self198275%_) + (_%self198286198295%_ _%self198277%_) + (_%E198288198299%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%self198180198189%_ + _%self198286198295%_ '((!lambda _ signature arity dispatch)))) '#!void)) - (_%K198183198212%_ - (lambda (_%dispatch198196%_ - _%arity198197%_ - _%signature198198%_) - (if _%signature198198%_ - (let ((_%signature198200%_ _%signature198198%_)) + (_%K198289198318%_ + (lambda (_%dispatch198302%_ + _%arity198303%_ + _%signature198304%_) + (if _%signature198304%_ + (let ((_%signature198306%_ _%signature198304%_)) (cons '@lambda - (cons _%arity198197%_ - (cons _%dispatch198196%_ + (cons _%arity198303%_ + (cons _%dispatch198302%_ (cons 'signature: (cons (cons 'return: (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (##unchecked-structure-ref - _%signature198200%_ + _%signature198306%_ '1 '#f '#f)) @@ -2311,7 +2311,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198200%_ + _%signature198306%_ '2 '#f '#f)) @@ -2319,7 +2319,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198200%_ + _%signature198306%_ '3 '#f '#f)) @@ -2329,7 +2329,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##unchecked-structure-ref - _%signature198200%_ + _%signature198306%_ '4 '#f '#f)) @@ -2337,7 +2337,7 @@ (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%signature198200%_ + _%signature198306%_ '5 '#f '#f)) @@ -2346,63 +2346,63 @@ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '@lambda - (cons _%arity198197%_ - (cons _%dispatch198196%_ '())))))) - (_%e198184198215%_ + (cons _%arity198303%_ + (cons _%dispatch198302%_ '())))))) + (_%e198290198321%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198180198189%_ '1 '#f '#f))) - (_%e198185198218%_ + (##unchecked-structure-ref _%self198286198295%_ '1 '#f '#f))) + (_%e198291198324%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198180198189%_ '2 '#f '#f))) - (_%signature198221%_ _%e198185198218%_) - (_%e198186198223%_ + (##unchecked-structure-ref _%self198286198295%_ '2 '#f '#f))) + (_%signature198327%_ _%e198291198324%_) + (_%e198292198329%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198180198189%_ '3 '#f '#f))) - (_%arity198226%_ _%e198186198223%_) - (_%e198187198228%_ + (##unchecked-structure-ref _%self198286198295%_ '3 '#f '#f))) + (_%arity198332%_ _%e198292198329%_) + (_%e198293198334%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self198180198189%_ '4 '#f '#f))) - (_%dispatch198231%_ _%e198187198228%_)) - (_%K198183198212%_ - _%dispatch198231%_ - _%arity198226%_ - _%signature198221%_)))) + (##unchecked-structure-ref _%self198286198295%_ '4 '#f '#f))) + (_%dispatch198337%_ _%e198293198334%_)) + (_%K198289198318%_ + _%dispatch198337%_ + _%arity198332%_ + _%signature198327%_)))) (let () (declare (not safe)) (__bind-method!__% gxc#!lambda::t 'typedecl gxc#!lambda::typedecl '#f)) (define gxc#!case-lambda::typedecl - (lambda (_%self197486198025%_) - (let* ((_%self198028%_ _%self197486198025%_) - (_%self198030%_ _%self198028%_)) - (letrec ((_%clause-e198040%_ - (lambda (_%clause198042%_) - (cdr (let ((__method200747 + (lambda (_%self197592198131%_) + (let* ((_%self198134%_ _%self197592198131%_) + (_%self198136%_ _%self198134%_)) + (letrec ((_%clause-e198146%_ + (lambda (_%clause198148%_) + (cdr (let ((__method200853 (let () (declare (not safe)) (__method-ref - _%clause198042%_ + _%clause198148%_ 'typedecl)))) - (if __method200747 + (if __method200853 (let () (declare (not safe)) - (__method200747 _%clause198042%_)) + (__method200853 _%clause198148%_)) (begin (let () (declare (not safe)) (error '"Missing method" - _%clause198042%_ + _%clause198148%_ 'typedecl)) '#!void))))))) (cons '@case-lambda - (map _%clause-e198040%_ + (map _%clause-e198146%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self198030%_ + _%self198136%_ '3 '#f '#f)))))))) @@ -2414,17 +2414,17 @@ gxc#!case-lambda::typedecl '#f)) (define gxc#!kw-lambda::typedecl - (lambda (_%self197487197888%_) - (let* ((_%self197891%_ _%self197487197888%_) - (_%self197893%_ _%self197891%_)) + (lambda (_%self197593197994%_) + (let* ((_%self197997%_ _%self197593197994%_) + (_%self197999%_ _%self197997%_)) (cons '@kw-lambda (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197893%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197999%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197893%_ + _%self197999%_ '4 '#f '#f)) @@ -2437,17 +2437,17 @@ gxc#!kw-lambda::typedecl '#f)) (define gxc#!kw-lambda-primary::typedecl - (lambda (_%self197488197751%_) - (let* ((_%self197754%_ _%self197488197751%_) - (_%self197756%_ _%self197754%_)) + (lambda (_%self197594197857%_) + (let* ((_%self197860%_ _%self197594197857%_) + (_%self197862%_ _%self197860%_)) (cons '@kw-lambda-dispatch (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197756%_ '3 '#f '#f)) + (##unchecked-structure-ref _%self197862%_ '3 '#f '#f)) (cons (let () (declare (not safe)) (##unchecked-structure-ref - _%self197756%_ + _%self197862%_ '4 '#f '#f)) @@ -2460,13 +2460,13 @@ gxc#!kw-lambda-primary::typedecl '#f)) (define gxc#!primitive-predicate::typedecl - (lambda (_%self197489197614%_) - (let* ((_%self197617%_ _%self197489197614%_) - (_%self197619%_ _%self197617%_)) + (lambda (_%self197595197720%_) + (let* ((_%self197723%_ _%self197595197720%_) + (_%self197725%_ _%self197723%_)) (cons '@primitive-predicate (cons (let () (declare (not safe)) - (##unchecked-structure-ref _%self197619%_ '1 '#f '#f)) + (##unchecked-structure-ref _%self197725%_ '1 '#f '#f)) '()))))) (let () (declare (not safe)) diff --git a/src/bootstrap/gerbil/compiler/optimize~1.scm b/src/bootstrap/gerbil/compiler/optimize~1.scm index 520ae8137..aa7ed64c5 100644 --- a/src/bootstrap/gerbil/compiler/optimize~1.scm +++ b/src/bootstrap/gerbil/compiler/optimize~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g200774_| + (define |gxc[1]#_g200880_| (##structure gx#syntax-quote::t '::generate-runtime-empty #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200776_| + (define |gxc[1]#_g200882_| (##structure gx#syntax-quote::t '::generate-ssxi::t #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200778_| + (define |gxc[1]#_g200884_| (##structure gx#syntax-quote::t 'make-::generate-ssxi #f (gx#current-expander-context) '())) - (define |gxc[1]#_g200780_| + (define |gxc[1]#_g200886_| (##structure gx#syntax-quote::t '::generate-ssxi? @@ -29,7 +29,7 @@ (gx#current-expander-context) '())) (define |gxc[:0:]#::generate-ssxi| - (let ((__obj200743 + (let ((__obj200849 (let () (declare (not safe)) (##structure @@ -58,63 +58,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj200743 + __obj200849 'gxc#::generate-ssxi::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '::generate-ssxi '2 '#f '#f)) + (##unchecked-structure-set! __obj200849 '::generate-ssxi '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '6 '#f '#f)) - (let ((__tmp200773 (cons |gxc[1]#_g200774_| '()))) + (##unchecked-structure-set! __obj200849 '() '6 '#f '#f)) + (let ((__tmp200879 (cons |gxc[1]#_g200880_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj200743 __tmp200773 '3 '#f '#f)) + (##unchecked-structure-set! __obj200849 __tmp200879 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj200849 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj200849 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj200849 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '#f '11 '#f '#f)) - (let ((__tmp200775 |gxc[1]#_g200776_|)) + (##unchecked-structure-set! __obj200849 '#f '11 '#f '#f)) + (let ((__tmp200881 |gxc[1]#_g200882_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200743 __tmp200775 '12 '#f '#f)) - (let ((__tmp200777 |gxc[1]#_g200778_|)) + (##unchecked-structure-set! __obj200849 __tmp200881 '12 '#f '#f)) + (let ((__tmp200883 |gxc[1]#_g200884_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200743 __tmp200777 '13 '#f '#f)) - (let ((__tmp200779 |gxc[1]#_g200780_|)) + (##unchecked-structure-set! __obj200849 __tmp200883 '13 '#f '#f)) + (let ((__tmp200885 |gxc[1]#_g200886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj200743 __tmp200779 '14 '#f '#f)) + (##unchecked-structure-set! __obj200849 __tmp200885 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj200849 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj200743 '() '20 '#f '#f)) - __obj200743))) + (##unchecked-structure-set! __obj200849 '() '20 '#f '#f)) + __obj200849))) diff --git a/src/bootstrap/gerbil/compiler/ssxi~1.scm b/src/bootstrap/gerbil/compiler/ssxi~1.scm index f7992939d..913df228b 100644 --- a/src/bootstrap/gerbil/compiler/ssxi~1.scm +++ b/src/bootstrap/gerbil/compiler/ssxi~1.scm @@ -1,76 +1,76 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gxc[1]#_g209261_| + (define |gxc[1]#_g209399_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209268_| + (define |gxc[1]#_g209406_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209270_| + (define |gxc[1]#_g209408_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209272_| + (define |gxc[1]#_g209410_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209274_| + (define |gxc[1]#_g209412_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209276_| + (define |gxc[1]#_g209414_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209288_| + (define |gxc[1]#_g209426_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209290_| + (define |gxc[1]#_g209428_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209292_| + (define |gxc[1]#_g209430_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209294_| + (define |gxc[1]#_g209432_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gxc[1]#_g209296_| + (define |gxc[1]#_g209434_| (##structure gx#syntax-quote::t 'quote @@ -79,73 +79,73 @@ '())) (begin (define |gxc[:0:]#declare-type| - (lambda (_%$stx202679%_) - (let* ((_%g202683202701%_ - (lambda (_%g202684202697%_) + (lambda (_%$stx202817%_) + (let* ((_%g202821202839%_ + (lambda (_%g202822202835%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202684202697%_)))) - (_%g202682202756%_ - (lambda (_%g202684202705%_) + _%g202822202835%_)))) + (_%g202820202894%_ + (lambda (_%g202822202843%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202684202705%_)) - (let ((_%e202687202708%_ + (gx#stx-pair? _%g202822202843%_)) + (let ((_%e202825202846%_ (let () (declare (not safe)) - (gx#syntax-e _%g202684202705%_)))) - (let ((_%hd202688202712%_ + (gx#syntax-e _%g202822202843%_)))) + (let ((_%hd202826202850%_ (let () (declare (not safe)) - (##car _%e202687202708%_))) - (_%tl202689202715%_ + (##car _%e202825202846%_))) + (_%tl202827202853%_ (let () (declare (not safe)) - (##cdr _%e202687202708%_)))) + (##cdr _%e202825202846%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202689202715%_)) - (let ((_%e202690202718%_ + (gx#stx-pair? _%tl202827202853%_)) + (let ((_%e202828202856%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202689202715%_)))) - (let ((_%hd202691202722%_ + (gx#syntax-e _%tl202827202853%_)))) + (let ((_%hd202829202860%_ (let () (declare (not safe)) - (##car _%e202690202718%_))) - (_%tl202692202725%_ + (##car _%e202828202856%_))) + (_%tl202830202863%_ (let () (declare (not safe)) - (##cdr _%e202690202718%_)))) + (##cdr _%e202828202856%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202692202725%_)) - (let ((_%e202693202728%_ + (gx#stx-pair? _%tl202830202863%_)) + (let ((_%e202831202866%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202692202725%_)))) - (let ((_%hd202694202732%_ + _%tl202830202863%_)))) + (let ((_%hd202832202870%_ (let () (declare (not safe)) - (##car _%e202693202728%_))) - (_%tl202695202735%_ + (##car _%e202831202866%_))) + (_%tl202833202873%_ (let () (declare (not safe)) - (##cdr _%e202693202728%_)))) + (##cdr _%e202831202866%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202695202735%_)) - ((lambda (_%L202738%_ - _%L202740%_) + _%tl202833202873%_)) + ((lambda (_%L202876%_ + _%L202878%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202740%_)) + _%L202878%_)) (cons (let () (declare (not safe)) @@ -156,87 +156,87 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202740%_ '())) - (cons _%L202738%_ '()))) + (cons _%L202878%_ '())) + (cons _%L202876%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202683202701%_ - _%g202684202705%_))) - _%hd202694202732%_ - _%hd202691202722%_) - (_%g202683202701%_ - _%g202684202705%_)))) - (_%g202683202701%_ _%g202684202705%_)))) - (_%g202683202701%_ _%g202684202705%_)))) - (_%g202683202701%_ _%g202684202705%_))))) - (_%g202682202756%_ _%$stx202679%_)))) + (_%g202821202839%_ + _%g202822202843%_))) + _%hd202832202870%_ + _%hd202829202860%_) + (_%g202821202839%_ + _%g202822202843%_)))) + (_%g202821202839%_ _%g202822202843%_)))) + (_%g202821202839%_ _%g202822202843%_)))) + (_%g202821202839%_ _%g202822202843%_))))) + (_%g202820202894%_ _%$stx202817%_)))) (define |gxc[:0:]#declare-class| - (lambda (_%$stx202760%_) - (let* ((_%g202764202782%_ - (lambda (_%g202765202778%_) + (lambda (_%$stx202898%_) + (let* ((_%g202902202920%_ + (lambda (_%g202903202916%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202765202778%_)))) - (_%g202763202837%_ - (lambda (_%g202765202786%_) + _%g202903202916%_)))) + (_%g202901202975%_ + (lambda (_%g202903202924%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202765202786%_)) - (let ((_%e202768202789%_ + (gx#stx-pair? _%g202903202924%_)) + (let ((_%e202906202927%_ (let () (declare (not safe)) - (gx#syntax-e _%g202765202786%_)))) - (let ((_%hd202769202793%_ + (gx#syntax-e _%g202903202924%_)))) + (let ((_%hd202907202931%_ (let () (declare (not safe)) - (##car _%e202768202789%_))) - (_%tl202770202796%_ + (##car _%e202906202927%_))) + (_%tl202908202934%_ (let () (declare (not safe)) - (##cdr _%e202768202789%_)))) + (##cdr _%e202906202927%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202770202796%_)) - (let ((_%e202771202799%_ + (gx#stx-pair? _%tl202908202934%_)) + (let ((_%e202909202937%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202770202796%_)))) - (let ((_%hd202772202803%_ + (gx#syntax-e _%tl202908202934%_)))) + (let ((_%hd202910202941%_ (let () (declare (not safe)) - (##car _%e202771202799%_))) - (_%tl202773202806%_ + (##car _%e202909202937%_))) + (_%tl202911202944%_ (let () (declare (not safe)) - (##cdr _%e202771202799%_)))) + (##cdr _%e202909202937%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202773202806%_)) - (let ((_%e202774202809%_ + (gx#stx-pair? _%tl202911202944%_)) + (let ((_%e202912202947%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202773202806%_)))) - (let ((_%hd202775202813%_ + _%tl202911202944%_)))) + (let ((_%hd202913202951%_ (let () (declare (not safe)) - (##car _%e202774202809%_))) - (_%tl202776202816%_ + (##car _%e202912202947%_))) + (_%tl202914202954%_ (let () (declare (not safe)) - (##cdr _%e202774202809%_)))) + (##cdr _%e202912202947%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl202776202816%_)) - ((lambda (_%L202819%_ - _%L202821%_) + _%tl202914202954%_)) + ((lambda (_%L202957%_ + _%L202959%_) (if (let () (declare (not safe)) (gx#identifier? - _%L202821%_)) + _%L202959%_)) (cons (let () (declare (not safe)) @@ -247,146 +247,146 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L202821%_ '())) - (cons _%L202819%_ '()))) + (cons _%L202959%_ '())) + (cons _%L202957%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g202764202782%_ - _%g202765202786%_))) - _%hd202775202813%_ - _%hd202772202803%_) - (_%g202764202782%_ - _%g202765202786%_)))) - (_%g202764202782%_ _%g202765202786%_)))) - (_%g202764202782%_ _%g202765202786%_)))) - (_%g202764202782%_ _%g202765202786%_))))) - (_%g202763202837%_ _%$stx202760%_)))) + (_%g202902202920%_ + _%g202903202924%_))) + _%hd202913202951%_ + _%hd202910202941%_) + (_%g202902202920%_ + _%g202903202924%_)))) + (_%g202902202920%_ _%g202903202924%_)))) + (_%g202902202920%_ _%g202903202924%_)))) + (_%g202902202920%_ _%g202903202924%_))))) + (_%g202901202975%_ _%$stx202898%_)))) (define |gxc[:0:]#declare-type*| - (lambda (_%$stx202841%_) - (let* ((_%g202845202874%_ - (lambda (_%g202846202870%_) + (lambda (_%$stx202979%_) + (let* ((_%g202983203012%_ + (lambda (_%g202984203008%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g202846202870%_)))) - (_%g202844202974%_ - (lambda (_%g202846202878%_) + _%g202984203008%_)))) + (_%g202982203112%_ + (lambda (_%g202984203016%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g202846202878%_)) - (let ((_%e202849202881%_ + (gx#stx-pair? _%g202984203016%_)) + (let ((_%e202987203019%_ (let () (declare (not safe)) - (gx#syntax-e _%g202846202878%_)))) - (let ((_%hd202850202885%_ + (gx#syntax-e _%g202984203016%_)))) + (let ((_%hd202988203023%_ (let () (declare (not safe)) - (##car _%e202849202881%_))) - (_%tl202851202888%_ + (##car _%e202987203019%_))) + (_%tl202989203026%_ (let () (declare (not safe)) - (##cdr _%e202849202881%_)))) + (##cdr _%e202987203019%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl202851202888%_)) - (let ((_g209239_ + (gx#stx-pair/null? _%tl202989203026%_)) + (let ((_g209377_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl202851202888%_ + _%tl202989203026%_ '0)))) (begin - (let ((_g209240_ + (let ((_g209378_ (let () (declare (not safe)) - (if (##values? _g209239_) - (##vector-length _g209239_) + (if (##values? _g209377_) + (##values-length _g209377_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209240_ 2))) + (##fx= _g209378_ 2))) (error "Context expects 2 values" - _g209240_))) - (let ((_%target202852202891%_ + _g209378_))) + (let ((_%target202990203029%_ (let () (declare (not safe)) - (##vector-ref _g209239_ 0))) - (_%tl202854202894%_ + (##values-ref _g209377_ 0))) + (_%tl202992203032%_ (let () (declare (not safe)) - (##vector-ref _g209239_ 1)))) + (##values-ref _g209377_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202854202894%_)) - (letrec ((_%loop202855202897%_ - (lambda (_%hd202853202901%_ - _%type202859202904%_ - _%symbol202860202906%_) + (gx#stx-null? _%tl202992203032%_)) + (letrec ((_%loop202993203035%_ + (lambda (_%hd202991203039%_ + _%type202997203042%_ + _%symbol202998203044%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd202853202901%_)) - (let ((_%e202856202909%_ + _%hd202991203039%_)) + (let ((_%e202994203047%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd202853202901%_)))) - (let ((_%lp-hd202857202913%_ + (gx#syntax-e _%hd202991203039%_)))) + (let ((_%lp-hd202995203051%_ (let () (declare (not safe)) - (##car _%e202856202909%_))) - (_%lp-tl202858202916%_ + (##car _%e202994203047%_))) + (_%lp-tl202996203054%_ (let () (declare (not safe)) - (##cdr _%e202856202909%_)))) + (##cdr _%e202994203047%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd202857202913%_)) - (let ((_%e202863202919%_ + (gx#stx-pair? _%lp-hd202995203051%_)) + (let ((_%e203001203057%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd202857202913%_)))) - (let ((_%hd202864202923%_ + (gx#syntax-e _%lp-hd202995203051%_)))) + (let ((_%hd203002203061%_ (let () (declare (not safe)) - (##car _%e202863202919%_))) - (_%tl202865202926%_ + (##car _%e203001203057%_))) + (_%tl203003203064%_ (let () (declare (not safe)) - (##cdr _%e202863202919%_)))) + (##cdr _%e203001203057%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202865202926%_)) - (let ((_%e202866202929%_ + (gx#stx-pair? _%tl203003203064%_)) + (let ((_%e203004203067%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202865202926%_)))) - (let ((_%hd202867202933%_ + (gx#syntax-e _%tl203003203064%_)))) + (let ((_%hd203005203071%_ (let () (declare (not safe)) - (##car _%e202866202929%_))) - (_%tl202868202936%_ + (##car _%e203004203067%_))) + (_%tl203006203074%_ (let () (declare (not safe)) - (##cdr _%e202866202929%_)))) + (##cdr _%e203004203067%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl202868202936%_)) - (_%loop202855202897%_ - _%lp-tl202858202916%_ - (cons _%hd202867202933%_ - _%type202859202904%_) - (cons _%hd202864202923%_ - _%symbol202860202906%_)) - (_%g202845202874%_ - _%g202846202878%_)))) - (_%g202845202874%_ _%g202846202878%_)))) - (_%g202845202874%_ _%g202846202878%_)))) - (let ((_%type202861202939%_ (reverse _%type202859202904%_)) - (_%symbol202862202942%_ - (reverse _%symbol202860202906%_))) - ((lambda (_%L202945%_ _%L202947%_) + (gx#stx-null? _%tl203006203074%_)) + (_%loop202993203035%_ + _%lp-tl202996203054%_ + (cons _%hd203005203071%_ + _%type202997203042%_) + (cons _%hd203002203061%_ + _%symbol202998203044%_)) + (_%g202983203012%_ + _%g202984203016%_)))) + (_%g202983203012%_ _%g202984203016%_)))) + (_%g202983203012%_ _%g202984203016%_)))) + (let ((_%type202999203077%_ (reverse _%type202997203042%_)) + (_%symbol203000203080%_ + (reverse _%symbol202998203044%_))) + ((lambda (_%L203083%_ _%L203085%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -394,52 +394,52 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L202945%_ - _%L202947%_)) - (let ((__tmp209241 - (lambda (_%g202962202966%_ - _%g202963202969%_ - _%g202964202971%_) + _%L203083%_ + _%L203085%_)) + (let ((__tmp209379 + (lambda (_%g203100203104%_ + _%g203101203107%_ + _%g203102203109%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%g202963202969%_ - (cons _%g202962202966%_ + (cons _%g203101203107%_ + (cons _%g203100203104%_ '()))) - _%g202964202971%_)))) + _%g203102203109%_)))) (declare (not safe)) (__foldr2 - __tmp209241 + __tmp209379 '() - _%L202945%_ - _%L202947%_))))) - _%type202861202939%_ - _%symbol202862202942%_)))))) + _%L203083%_ + _%L203085%_))))) + _%type202999203077%_ + _%symbol203000203080%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop202855202897%_ - _%target202852202891%_ + (_%loop202993203035%_ + _%target202990203029%_ '() '())) - (_%g202845202874%_ - _%g202846202878%_))))) - (_%g202845202874%_ _%g202846202878%_)))) - (_%g202845202874%_ _%g202846202878%_))))) - (_%g202844202974%_ _%$stx202841%_)))) + (_%g202983203012%_ + _%g202984203016%_))))) + (_%g202983203012%_ _%g202984203016%_)))) + (_%g202983203012%_ _%g202984203016%_))))) + (_%g202982203112%_ _%$stx202979%_)))) (define |gxc[:0:]#declare-method| - (lambda (_%$stx202979%_) - (let* ((_%__stx208550208551%_ _%$stx202979%_) - (_%g202984203026%_ + (lambda (_%$stx203117%_) + (let* ((_%__stx208688208689%_ _%$stx203117%_) + (_%g203122203164%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208550208551%_))))) - (let ((_%__kont208553208554%_ - (lambda (_%L203154%_ _%L203156%_ _%L203157%_ _%L203158%_) + _%__stx208688208689%_))))) + (let ((_%__kont208691208692%_ + (lambda (_%L203292%_ _%L203294%_ _%L203295%_ _%L203296%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -448,342 +448,342 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203158%_ '())) + (cons _%L203296%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203157%_ '())) + (cons _%L203295%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203156%_ '())) - (cons _%L203154%_ '()))))))) - (_%__kont208555208556%_ - (lambda (_%L203073%_ _%L203075%_ _%L203076%_ _%L203077%_) - (cons _%L203077%_ - (cons _%L203076%_ - (cons _%L203075%_ - (cons _%L203073%_ + (cons _%L203294%_ '())) + (cons _%L203292%_ '()))))))) + (_%__kont208693208694%_ + (lambda (_%L203211%_ _%L203213%_ _%L203214%_ _%L203215%_) + (cons _%L203215%_ + (cons _%L203214%_ + (cons _%L203213%_ + (cons _%L203211%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'rebind?)) '())))))))) - (let ((_%__match208589208590%_ - (lambda (_%e202990203104%_ - _%hd202991203108%_ - _%tl202992203111%_ - _%e202993203114%_ - _%hd202994203118%_ - _%tl202995203121%_ - _%e202996203124%_ - _%hd202997203128%_ - _%tl202998203131%_ - _%e202999203134%_ - _%hd203000203138%_ - _%tl203001203141%_ - _%e203002203144%_ - _%hd203003203148%_ - _%tl203004203151%_) - (let ((_%L203154%_ _%hd203003203148%_) - (_%L203156%_ _%hd203000203138%_) - (_%L203157%_ _%hd202997203128%_) - (_%L203158%_ _%hd202994203118%_)) + (let ((_%__match208727208728%_ + (lambda (_%e203128203242%_ + _%hd203129203246%_ + _%tl203130203249%_ + _%e203131203252%_ + _%hd203132203256%_ + _%tl203133203259%_ + _%e203134203262%_ + _%hd203135203266%_ + _%tl203136203269%_ + _%e203137203272%_ + _%hd203138203276%_ + _%tl203139203279%_ + _%e203140203282%_ + _%hd203141203286%_ + _%tl203142203289%_) + (let ((_%L203292%_ _%hd203141203286%_) + (_%L203294%_ _%hd203138203276%_) + (_%L203295%_ _%hd203135203266%_) + (_%L203296%_ _%hd203132203256%_)) (if (and (let () (declare (not safe)) - (gx#identifier? _%L203158%_)) + (gx#identifier? _%L203296%_)) (let () (declare (not safe)) - (gx#identifier? _%L203157%_)) + (gx#identifier? _%L203295%_)) (let () (declare (not safe)) - (gx#identifier? _%L203156%_))) - (_%__kont208553208554%_ - _%L203154%_ - _%L203156%_ - _%L203157%_ - _%L203158%_) + (gx#identifier? _%L203294%_))) + (_%__kont208691208692%_ + _%L203292%_ + _%L203294%_ + _%L203295%_ + _%L203296%_) (let () (declare (not safe)) - (_%g202984203026%_))))))) + (_%g203122203164%_))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208550208551%_)) - (let ((_%e202990203104%_ + (gx#stx-pair? _%__stx208688208689%_)) + (let ((_%e203128203242%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208550208551%_)))) - (let ((_%tl202992203111%_ + (gx#syntax-e _%__stx208688208689%_)))) + (let ((_%tl203130203249%_ (let () (declare (not safe)) - (##cdr _%e202990203104%_))) - (_%hd202991203108%_ + (##cdr _%e203128203242%_))) + (_%hd203129203246%_ (let () (declare (not safe)) - (##car _%e202990203104%_)))) + (##car _%e203128203242%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202992203111%_)) - (let ((_%e202993203114%_ + (gx#stx-pair? _%tl203130203249%_)) + (let ((_%e203131203252%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202992203111%_)))) - (let ((_%tl202995203121%_ + (gx#syntax-e _%tl203130203249%_)))) + (let ((_%tl203133203259%_ (let () (declare (not safe)) - (##cdr _%e202993203114%_))) - (_%hd202994203118%_ + (##cdr _%e203131203252%_))) + (_%hd203132203256%_ (let () (declare (not safe)) - (##car _%e202993203114%_)))) + (##car _%e203131203252%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202995203121%_)) - (let ((_%e202996203124%_ + (gx#stx-pair? _%tl203133203259%_)) + (let ((_%e203134203262%_ (let () (declare (not safe)) - (gx#syntax-e _%tl202995203121%_)))) - (let ((_%tl202998203131%_ + (gx#syntax-e _%tl203133203259%_)))) + (let ((_%tl203136203269%_ (let () (declare (not safe)) - (##cdr _%e202996203124%_))) - (_%hd202997203128%_ + (##cdr _%e203134203262%_))) + (_%hd203135203266%_ (let () (declare (not safe)) - (##car _%e202996203124%_)))) + (##car _%e203134203262%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl202998203131%_)) - (let ((_%e202999203134%_ + (gx#stx-pair? _%tl203136203269%_)) + (let ((_%e203137203272%_ (let () (declare (not safe)) (gx#syntax-e - _%tl202998203131%_)))) - (let ((_%tl203001203141%_ + _%tl203136203269%_)))) + (let ((_%tl203139203279%_ (let () (declare (not safe)) - (##cdr _%e202999203134%_))) - (_%hd203000203138%_ + (##cdr _%e203137203272%_))) + (_%hd203138203276%_ (let () (declare (not safe)) - (##car _%e202999203134%_)))) + (##car _%e203137203272%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203001203141%_)) - (let ((_%e203002203144%_ + _%tl203139203279%_)) + (let ((_%e203140203282%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203001203141%_)))) - (let ((_%tl203004203151%_ + _%tl203139203279%_)))) + (let ((_%tl203142203289%_ (let () (declare (not safe)) - (##cdr _%e203002203144%_))) - (_%hd203003203148%_ + (##cdr _%e203140203282%_))) + (_%hd203141203286%_ (let () (declare (not safe)) - (##car _%e203002203144%_)))) + (##car _%e203140203282%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203004203151%_)) - (_%__match208589208590%_ - _%e202990203104%_ - _%hd202991203108%_ - _%tl202992203111%_ - _%e202993203114%_ - _%hd202994203118%_ - _%tl202995203121%_ - _%e202996203124%_ - _%hd202997203128%_ - _%tl202998203131%_ - _%e202999203134%_ - _%hd203000203138%_ - _%tl203001203141%_ - _%e203002203144%_ - _%hd203003203148%_ - _%tl203004203151%_) + _%tl203142203289%_)) + (_%__match208727208728%_ + _%e203128203242%_ + _%hd203129203246%_ + _%tl203130203249%_ + _%e203131203252%_ + _%hd203132203256%_ + _%tl203133203259%_ + _%e203134203262%_ + _%hd203135203266%_ + _%tl203136203269%_ + _%e203137203272%_ + _%hd203138203276%_ + _%tl203139203279%_ + _%e203140203282%_ + _%hd203141203286%_ + _%tl203142203289%_) (let () (declare (not safe)) - (_%g202984203026%_))))) + (_%g203122203164%_))))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203001203141%_)) - (_%__kont208555208556%_ - _%hd203000203138%_ - _%hd202997203128%_ - _%hd202994203118%_ - _%hd202991203108%_) + _%tl203139203279%_)) + (_%__kont208693208694%_ + _%hd203138203276%_ + _%hd203135203266%_ + _%hd203132203256%_ + _%hd203129203246%_) (let () (declare (not safe)) - (_%g202984203026%_)))))) + (_%g203122203164%_)))))) (let () (declare (not safe)) - (_%g202984203026%_))))) + (_%g203122203164%_))))) (let () (declare (not safe)) - (_%g202984203026%_))))) - (let () (declare (not safe)) (_%g202984203026%_))))) - (let () (declare (not safe)) (_%g202984203026%_)))))))) + (_%g203122203164%_))))) + (let () (declare (not safe)) (_%g203122203164%_))))) + (let () (declare (not safe)) (_%g203122203164%_)))))))) (define |gxc[:0:]#declare-method*| - (lambda (_%$stx203183%_) - (let* ((_%g203187203222%_ - (lambda (_%g203188203218%_) + (lambda (_%$stx203321%_) + (let* ((_%g203325203360%_ + (lambda (_%g203326203356%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203188203218%_)))) - (_%g203186203341%_ - (lambda (_%g203188203226%_) + _%g203326203356%_)))) + (_%g203324203479%_ + (lambda (_%g203326203364%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203188203226%_)) - (let ((_%e203192203229%_ + (gx#stx-pair? _%g203326203364%_)) + (let ((_%e203330203367%_ (let () (declare (not safe)) - (gx#syntax-e _%g203188203226%_)))) - (let ((_%hd203193203233%_ + (gx#syntax-e _%g203326203364%_)))) + (let ((_%hd203331203371%_ (let () (declare (not safe)) - (##car _%e203192203229%_))) - (_%tl203194203236%_ + (##car _%e203330203367%_))) + (_%tl203332203374%_ (let () (declare (not safe)) - (##cdr _%e203192203229%_)))) + (##cdr _%e203330203367%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203194203236%_)) - (let ((_g209242_ + (gx#stx-pair/null? _%tl203332203374%_)) + (let ((_g209380_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203194203236%_ + _%tl203332203374%_ '0)))) (begin - (let ((_g209243_ + (let ((_g209381_ (let () (declare (not safe)) - (if (##values? _g209242_) - (##vector-length _g209242_) + (if (##values? _g209380_) + (##values-length _g209380_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209243_ 2))) + (##fx= _g209381_ 2))) (error "Context expects 2 values" - _g209243_))) - (let ((_%target203195203239%_ + _g209381_))) + (let ((_%target203333203377%_ (let () (declare (not safe)) - (##vector-ref _g209242_ 0))) - (_%tl203197203242%_ + (##values-ref _g209380_ 0))) + (_%tl203335203380%_ (let () (declare (not safe)) - (##vector-ref _g209242_ 1)))) + (##values-ref _g209380_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203197203242%_)) - (letrec ((_%loop203198203245%_ - (lambda (_%hd203196203249%_ - _%symbol203202203252%_ - _%method203203203254%_ - _%type-t203204203256%_) + (gx#stx-null? _%tl203335203380%_)) + (letrec ((_%loop203336203383%_ + (lambda (_%hd203334203387%_ + _%symbol203340203390%_ + _%method203341203392%_ + _%type-t203342203394%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd203196203249%_)) - (let ((_%e203199203259%_ + _%hd203334203387%_)) + (let ((_%e203337203397%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd203196203249%_)))) - (let ((_%lp-hd203200203263%_ + (gx#syntax-e _%hd203334203387%_)))) + (let ((_%lp-hd203338203401%_ (let () (declare (not safe)) - (##car _%e203199203259%_))) - (_%lp-tl203201203266%_ + (##car _%e203337203397%_))) + (_%lp-tl203339203404%_ (let () (declare (not safe)) - (##cdr _%e203199203259%_)))) + (##cdr _%e203337203397%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203200203263%_)) - (let ((_%e203208203269%_ + (gx#stx-pair? _%lp-hd203338203401%_)) + (let ((_%e203346203407%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203200203263%_)))) - (let ((_%hd203209203273%_ + (gx#syntax-e _%lp-hd203338203401%_)))) + (let ((_%hd203347203411%_ (let () (declare (not safe)) - (##car _%e203208203269%_))) - (_%tl203210203276%_ + (##car _%e203346203407%_))) + (_%tl203348203414%_ (let () (declare (not safe)) - (##cdr _%e203208203269%_)))) + (##cdr _%e203346203407%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203210203276%_)) - (let ((_%e203211203279%_ + (gx#stx-pair? _%tl203348203414%_)) + (let ((_%e203349203417%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203210203276%_)))) - (let ((_%hd203212203283%_ + (gx#syntax-e _%tl203348203414%_)))) + (let ((_%hd203350203421%_ (let () (declare (not safe)) - (##car _%e203211203279%_))) - (_%tl203213203286%_ + (##car _%e203349203417%_))) + (_%tl203351203424%_ (let () (declare (not safe)) - (##cdr _%e203211203279%_)))) + (##cdr _%e203349203417%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203213203286%_)) - (let ((_%e203214203289%_ + (gx#stx-pair? _%tl203351203424%_)) + (let ((_%e203352203427%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203213203286%_)))) - (let ((_%hd203215203293%_ + _%tl203351203424%_)))) + (let ((_%hd203353203431%_ (let () (declare (not safe)) - (##car _%e203214203289%_))) - (_%tl203216203296%_ + (##car _%e203352203427%_))) + (_%tl203354203434%_ (let () (declare (not safe)) - (##cdr _%e203214203289%_)))) + (##cdr _%e203352203427%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203216203296%_)) - (_%loop203198203245%_ - _%lp-tl203201203266%_ - (cons _%hd203215203293%_ - _%symbol203202203252%_) - (cons _%hd203212203283%_ - _%method203203203254%_) - (cons _%hd203209203273%_ - _%type-t203204203256%_)) - (_%g203187203222%_ - _%g203188203226%_)))) - (_%g203187203222%_ - _%g203188203226%_)))) - (_%g203187203222%_ _%g203188203226%_)))) - (_%g203187203222%_ _%g203188203226%_)))) - (let ((_%symbol203205203299%_ (reverse _%symbol203202203252%_)) - (_%method203206203302%_ (reverse _%method203203203254%_)) - (_%type-t203207203304%_ - (reverse _%type-t203204203256%_))) - ((lambda (_%L203307%_ _%L203309%_ _%L203310%_) + _%tl203354203434%_)) + (_%loop203336203383%_ + _%lp-tl203339203404%_ + (cons _%hd203353203431%_ + _%symbol203340203390%_) + (cons _%hd203350203421%_ + _%method203341203392%_) + (cons _%hd203347203411%_ + _%type-t203342203394%_)) + (_%g203325203360%_ + _%g203326203364%_)))) + (_%g203325203360%_ + _%g203326203364%_)))) + (_%g203325203360%_ _%g203326203364%_)))) + (_%g203325203360%_ _%g203326203364%_)))) + (let ((_%symbol203343203437%_ (reverse _%symbol203340203390%_)) + (_%method203344203440%_ (reverse _%method203341203392%_)) + (_%type-t203345203442%_ + (reverse _%type-t203342203394%_))) + ((lambda (_%L203445%_ _%L203447%_ _%L203448%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -791,196 +791,196 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203307%_ - _%L203309%_ - _%L203310%_)) - (let ((__tmp209244 - (lambda (_%g203326203331%_ - _%g203327203334%_ - _%g203328203336%_ - _%g203329203338%_) + _%L203445%_ + _%L203447%_ + _%L203448%_)) + (let ((__tmp209382 + (lambda (_%g203464203469%_ + _%g203465203472%_ + _%g203466203474%_ + _%g203467203476%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%g203328203336%_ - (cons _%g203327203334%_ - (cons _%g203326203331%_ + (cons _%g203466203474%_ + (cons _%g203465203472%_ + (cons _%g203464203469%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203329203338%_)))) + _%g203467203476%_)))) (declare (not safe)) (__foldr* - __tmp209244 + __tmp209382 '() - _%L203307%_ - _%L203309%_ - _%L203310%_))))) - _%symbol203205203299%_ - _%method203206203302%_ - _%type-t203207203304%_)))))) + _%L203445%_ + _%L203447%_ + _%L203448%_))))) + _%symbol203343203437%_ + _%method203344203440%_ + _%type-t203345203442%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203198203245%_ - _%target203195203239%_ + (_%loop203336203383%_ + _%target203333203377%_ '() '() '())) - (_%g203187203222%_ - _%g203188203226%_))))) - (_%g203187203222%_ _%g203188203226%_)))) - (_%g203187203222%_ _%g203188203226%_))))) - (_%g203186203341%_ _%$stx203183%_)))) + (_%g203325203360%_ + _%g203326203364%_))))) + (_%g203325203360%_ _%g203326203364%_)))) + (_%g203325203360%_ _%g203326203364%_))))) + (_%g203324203479%_ _%$stx203321%_)))) (define |gxc[:0:]#declare-methods| - (lambda (_%$stx203346%_) - (let* ((_%g203350203383%_ - (lambda (_%g203351203379%_) + (lambda (_%$stx203484%_) + (let* ((_%g203488203521%_ + (lambda (_%g203489203517%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203351203379%_)))) - (_%g203349203497%_ - (lambda (_%g203351203387%_) + _%g203489203517%_)))) + (_%g203487203635%_ + (lambda (_%g203489203525%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203351203387%_)) - (let ((_%e203355203390%_ + (gx#stx-pair? _%g203489203525%_)) + (let ((_%e203493203528%_ (let () (declare (not safe)) - (gx#syntax-e _%g203351203387%_)))) - (let ((_%hd203356203394%_ + (gx#syntax-e _%g203489203525%_)))) + (let ((_%hd203494203532%_ (let () (declare (not safe)) - (##car _%e203355203390%_))) - (_%tl203357203397%_ + (##car _%e203493203528%_))) + (_%tl203495203535%_ (let () (declare (not safe)) - (##cdr _%e203355203390%_)))) + (##cdr _%e203493203528%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203357203397%_)) - (let ((_%e203358203400%_ + (gx#stx-pair? _%tl203495203535%_)) + (let ((_%e203496203538%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203357203397%_)))) - (let ((_%hd203359203404%_ + (gx#syntax-e _%tl203495203535%_)))) + (let ((_%hd203497203542%_ (let () (declare (not safe)) - (##car _%e203358203400%_))) - (_%tl203360203407%_ + (##car _%e203496203538%_))) + (_%tl203498203545%_ (let () (declare (not safe)) - (##cdr _%e203358203400%_)))) + (##cdr _%e203496203538%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl203360203407%_)) - (let ((_g209245_ + (gx#stx-pair/null? _%tl203498203545%_)) + (let ((_g209383_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl203360203407%_ + _%tl203498203545%_ '0)))) (begin - (let ((_g209246_ + (let ((_g209384_ (let () (declare (not safe)) - (if (##values? _g209245_) - (##vector-length - _g209245_) + (if (##values? _g209383_) + (##values-length + _g209383_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209246_ 2))) + (##fx= _g209384_ 2))) (error "Context expects 2 values" - _g209246_))) - (let ((_%target203361203410%_ + _g209384_))) + (let ((_%target203499203548%_ (let () (declare (not safe)) - (##vector-ref _g209245_ 0))) - (_%tl203363203413%_ + (##values-ref _g209383_ 0))) + (_%tl203501203551%_ (let () (declare (not safe)) - (##vector-ref - _g209245_ + (##values-ref + _g209383_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203363203413%_)) - (letrec ((_%loop203364203416%_ - (lambda (_%hd203362203420%_ + _%tl203501203551%_)) + (letrec ((_%loop203502203554%_ + (lambda (_%hd203500203558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%symbol203368203423%_ - _%method203369203425%_) + _%symbol203506203561%_ + _%method203507203563%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd203362203420%_)) - (let ((_%e203365203428%_ + (gx#stx-pair? _%hd203500203558%_)) + (let ((_%e203503203566%_ (let () (declare (not safe)) - (gx#syntax-e _%hd203362203420%_)))) - (let ((_%lp-hd203366203432%_ + (gx#syntax-e _%hd203500203558%_)))) + (let ((_%lp-hd203504203570%_ (let () (declare (not safe)) - (##car _%e203365203428%_))) - (_%lp-tl203367203435%_ + (##car _%e203503203566%_))) + (_%lp-tl203505203573%_ (let () (declare (not safe)) - (##cdr _%e203365203428%_)))) + (##cdr _%e203503203566%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd203366203432%_)) - (let ((_%e203372203438%_ + (gx#stx-pair? _%lp-hd203504203570%_)) + (let ((_%e203510203576%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd203366203432%_)))) - (let ((_%hd203373203442%_ + (gx#syntax-e _%lp-hd203504203570%_)))) + (let ((_%hd203511203580%_ (let () (declare (not safe)) - (##car _%e203372203438%_))) - (_%tl203374203445%_ + (##car _%e203510203576%_))) + (_%tl203512203583%_ (let () (declare (not safe)) - (##cdr _%e203372203438%_)))) + (##cdr _%e203510203576%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203374203445%_)) - (let ((_%e203375203448%_ + (gx#stx-pair? _%tl203512203583%_)) + (let ((_%e203513203586%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203374203445%_)))) - (let ((_%hd203376203452%_ + _%tl203512203583%_)))) + (let ((_%hd203514203590%_ (let () (declare (not safe)) - (##car _%e203375203448%_))) - (_%tl203377203455%_ + (##car _%e203513203586%_))) + (_%tl203515203593%_ (let () (declare (not safe)) - (##cdr _%e203375203448%_)))) + (##cdr _%e203513203586%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203377203455%_)) - (_%loop203364203416%_ - _%lp-tl203367203435%_ - (cons _%hd203376203452%_ - _%symbol203368203423%_) - (cons _%hd203373203442%_ - _%method203369203425%_)) - (_%g203350203383%_ - _%g203351203387%_)))) - (_%g203350203383%_ - _%g203351203387%_)))) - (_%g203350203383%_ _%g203351203387%_)))) - (let ((_%symbol203370203458%_ - (reverse _%symbol203368203423%_)) - (_%method203371203461%_ - (reverse _%method203369203425%_))) - ((lambda (_%L203464%_ _%L203466%_ _%L203467%_) + _%tl203515203593%_)) + (_%loop203502203554%_ + _%lp-tl203505203573%_ + (cons _%hd203514203590%_ + _%symbol203506203561%_) + (cons _%hd203511203580%_ + _%method203507203563%_)) + (_%g203488203521%_ + _%g203489203525%_)))) + (_%g203488203521%_ + _%g203489203525%_)))) + (_%g203488203521%_ _%g203489203525%_)))) + (let ((_%symbol203508203596%_ + (reverse _%symbol203506203561%_)) + (_%method203509203599%_ + (reverse _%method203507203563%_))) + ((lambda (_%L203602%_ _%L203604%_ _%L203605%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -988,90 +988,90 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L203464%_ - _%L203466%_)) - (let ((__tmp209247 - (lambda (_%g203485203489%_ - _%g203486203492%_ - _%g203487203494%_) + _%L203602%_ + _%L203604%_)) + (let ((__tmp209385 + (lambda (_%g203623203627%_ + _%g203624203630%_ + _%g203625203632%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-method)) - (cons _%L203467%_ - (cons _%g203486203492%_ + (cons _%L203605%_ + (cons _%g203624203630%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g203485203489%_ '())))) + (cons _%g203623203627%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g203487203494%_)))) + _%g203625203632%_)))) (declare (not safe)) (__foldr2 - __tmp209247 + __tmp209385 '() - _%L203464%_ - _%L203466%_))))) - _%symbol203370203458%_ - _%method203371203461%_ - _%hd203359203404%_)))))) + _%L203602%_ + _%L203604%_))))) + _%symbol203508203596%_ + _%method203509203599%_ + _%hd203497203542%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop203364203416%_ - _%target203361203410%_ + (_%loop203502203554%_ + _%target203499203548%_ '() '())) - (_%g203350203383%_ - _%g203351203387%_))))) - (_%g203350203383%_ _%g203351203387%_)))) - (_%g203350203383%_ _%g203351203387%_)))) - (_%g203350203383%_ _%g203351203387%_))))) - (_%g203349203497%_ _%$stx203346%_)))) + (_%g203488203521%_ + _%g203489203525%_))))) + (_%g203488203521%_ _%g203489203525%_)))) + (_%g203488203521%_ _%g203489203525%_)))) + (_%g203488203521%_ _%g203489203525%_))))) + (_%g203487203635%_ _%$stx203484%_)))) (define |gxc[:0:]#@alias| - (lambda (_%$stx203502%_) - (let* ((_%g203506203520%_ - (lambda (_%g203507203516%_) + (lambda (_%$stx203640%_) + (let* ((_%g203644203658%_ + (lambda (_%g203645203654%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203507203516%_)))) - (_%g203505203561%_ - (lambda (_%g203507203524%_) + _%g203645203654%_)))) + (_%g203643203699%_ + (lambda (_%g203645203662%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203507203524%_)) - (let ((_%e203509203527%_ + (gx#stx-pair? _%g203645203662%_)) + (let ((_%e203647203665%_ (let () (declare (not safe)) - (gx#syntax-e _%g203507203524%_)))) - (let ((_%hd203510203531%_ + (gx#syntax-e _%g203645203662%_)))) + (let ((_%hd203648203669%_ (let () (declare (not safe)) - (##car _%e203509203527%_))) - (_%tl203511203534%_ + (##car _%e203647203665%_))) + (_%tl203649203672%_ (let () (declare (not safe)) - (##cdr _%e203509203527%_)))) + (##cdr _%e203647203665%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203511203534%_)) - (let ((_%e203512203537%_ + (gx#stx-pair? _%tl203649203672%_)) + (let ((_%e203650203675%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203511203534%_)))) - (let ((_%hd203513203541%_ + (gx#syntax-e _%tl203649203672%_)))) + (let ((_%hd203651203679%_ (let () (declare (not safe)) - (##car _%e203512203537%_))) - (_%tl203514203544%_ + (##car _%e203650203675%_))) + (_%tl203652203682%_ (let () (declare (not safe)) - (##cdr _%e203512203537%_)))) + (##cdr _%e203650203675%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203514203544%_)) - ((lambda (_%L203547%_) + (gx#stx-null? _%tl203652203682%_)) + ((lambda (_%L203685%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1083,230 +1083,230 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203547%_ + (cons _%L203685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203513203541%_) - (_%g203506203520%_ _%g203507203524%_)))) - (_%g203506203520%_ _%g203507203524%_)))) - (_%g203506203520%_ _%g203507203524%_))))) - (_%g203505203561%_ _%$stx203502%_)))) + _%hd203651203679%_) + (_%g203644203658%_ _%g203645203662%_)))) + (_%g203644203658%_ _%g203645203662%_)))) + (_%g203644203658%_ _%g203645203662%_))))) + (_%g203643203699%_ _%$stx203640%_)))) (define |gxc[:0:]#@class| - (lambda (_%$stx203565%_) - (let* ((_%g203569203623%_ - (lambda (_%g203570203619%_) + (lambda (_%$stx203703%_) + (let* ((_%g203707203761%_ + (lambda (_%g203708203757%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203570203619%_)))) - (_%g203568203804%_ - (lambda (_%g203570203627%_) + _%g203708203757%_)))) + (_%g203706203942%_ + (lambda (_%g203708203765%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203570203627%_)) - (let ((_%e203582203630%_ + (gx#stx-pair? _%g203708203765%_)) + (let ((_%e203720203768%_ (let () (declare (not safe)) - (gx#syntax-e _%g203570203627%_)))) - (let ((_%hd203583203634%_ + (gx#syntax-e _%g203708203765%_)))) + (let ((_%hd203721203772%_ (let () (declare (not safe)) - (##car _%e203582203630%_))) - (_%tl203584203637%_ + (##car _%e203720203768%_))) + (_%tl203722203775%_ (let () (declare (not safe)) - (##cdr _%e203582203630%_)))) + (##cdr _%e203720203768%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203584203637%_)) - (let ((_%e203585203640%_ + (gx#stx-pair? _%tl203722203775%_)) + (let ((_%e203723203778%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203584203637%_)))) - (let ((_%hd203586203644%_ + (gx#syntax-e _%tl203722203775%_)))) + (let ((_%hd203724203782%_ (let () (declare (not safe)) - (##car _%e203585203640%_))) - (_%tl203587203647%_ + (##car _%e203723203778%_))) + (_%tl203725203785%_ (let () (declare (not safe)) - (##cdr _%e203585203640%_)))) + (##cdr _%e203723203778%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203587203647%_)) - (let ((_%e203588203650%_ + (gx#stx-pair? _%tl203725203785%_)) + (let ((_%e203726203788%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203587203647%_)))) - (let ((_%hd203589203654%_ + _%tl203725203785%_)))) + (let ((_%hd203727203792%_ (let () (declare (not safe)) - (##car _%e203588203650%_))) - (_%tl203590203657%_ + (##car _%e203726203788%_))) + (_%tl203728203795%_ (let () (declare (not safe)) - (##cdr _%e203588203650%_)))) + (##cdr _%e203726203788%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203590203657%_)) - (let ((_%e203591203660%_ + _%tl203728203795%_)) + (let ((_%e203729203798%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203590203657%_)))) - (let ((_%hd203592203664%_ + _%tl203728203795%_)))) + (let ((_%hd203730203802%_ (let () (declare (not safe)) - (##car _%e203591203660%_))) - (_%tl203593203667%_ + (##car _%e203729203798%_))) + (_%tl203731203805%_ (let () (declare (not safe)) - (##cdr _%e203591203660%_)))) + (##cdr _%e203729203798%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203593203667%_)) - (let ((_%e203594203670%_ + _%tl203731203805%_)) + (let ((_%e203732203808%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203593203667%_)))) - (let ((_%hd203595203674%_ - (let () (declare (not safe)) (##car _%e203594203670%_))) - (_%tl203596203677%_ + (gx#syntax-e _%tl203731203805%_)))) + (let ((_%hd203733203812%_ + (let () (declare (not safe)) (##car _%e203732203808%_))) + (_%tl203734203815%_ (let () (declare (not safe)) - (##cdr _%e203594203670%_)))) + (##cdr _%e203732203808%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203596203677%_)) - (let ((_%e203597203680%_ + (gx#stx-pair? _%tl203734203815%_)) + (let ((_%e203735203818%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203596203677%_)))) - (let ((_%hd203598203684%_ + (gx#syntax-e _%tl203734203815%_)))) + (let ((_%hd203736203822%_ (let () (declare (not safe)) - (##car _%e203597203680%_))) - (_%tl203599203687%_ + (##car _%e203735203818%_))) + (_%tl203737203825%_ (let () (declare (not safe)) - (##cdr _%e203597203680%_)))) + (##cdr _%e203735203818%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203599203687%_)) - (let ((_%e203600203690%_ + (gx#stx-pair? _%tl203737203825%_)) + (let ((_%e203738203828%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203599203687%_)))) - (let ((_%hd203601203694%_ + (gx#syntax-e _%tl203737203825%_)))) + (let ((_%hd203739203832%_ (let () (declare (not safe)) - (##car _%e203600203690%_))) - (_%tl203602203697%_ + (##car _%e203738203828%_))) + (_%tl203740203835%_ (let () (declare (not safe)) - (##cdr _%e203600203690%_)))) + (##cdr _%e203738203828%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203602203697%_)) - (let ((_%e203603203700%_ + (gx#stx-pair? _%tl203740203835%_)) + (let ((_%e203741203838%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203602203697%_)))) - (let ((_%hd203604203704%_ + _%tl203740203835%_)))) + (let ((_%hd203742203842%_ (let () (declare (not safe)) - (##car _%e203603203700%_))) - (_%tl203605203707%_ + (##car _%e203741203838%_))) + (_%tl203743203845%_ (let () (declare (not safe)) - (##cdr _%e203603203700%_)))) + (##cdr _%e203741203838%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203605203707%_)) - (let ((_%e203606203710%_ + _%tl203743203845%_)) + (let ((_%e203744203848%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203605203707%_)))) - (let ((_%hd203607203714%_ + _%tl203743203845%_)))) + (let ((_%hd203745203852%_ (let () (declare (not safe)) - (##car _%e203606203710%_))) - (_%tl203608203717%_ + (##car _%e203744203848%_))) + (_%tl203746203855%_ (let () (declare (not safe)) - (##cdr _%e203606203710%_)))) + (##cdr _%e203744203848%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203608203717%_)) - (let ((_%e203609203720%_ + _%tl203746203855%_)) + (let ((_%e203747203858%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl203608203717%_)))) - (let ((_%hd203610203724%_ - (let () (declare (not safe)) (##car _%e203609203720%_))) - (_%tl203611203727%_ + (gx#syntax-e _%tl203746203855%_)))) + (let ((_%hd203748203862%_ + (let () (declare (not safe)) (##car _%e203747203858%_))) + (_%tl203749203865%_ (let () (declare (not safe)) - (##cdr _%e203609203720%_)))) + (##cdr _%e203747203858%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203611203727%_)) - (let ((_%e203612203730%_ + (gx#stx-pair? _%tl203749203865%_)) + (let ((_%e203750203868%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203611203727%_)))) - (let ((_%hd203613203734%_ + (gx#syntax-e _%tl203749203865%_)))) + (let ((_%hd203751203872%_ (let () (declare (not safe)) - (##car _%e203612203730%_))) - (_%tl203614203737%_ + (##car _%e203750203868%_))) + (_%tl203752203875%_ (let () (declare (not safe)) - (##cdr _%e203612203730%_)))) + (##cdr _%e203750203868%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203614203737%_)) - (let ((_%e203615203740%_ + (gx#stx-pair? _%tl203752203875%_)) + (let ((_%e203753203878%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203614203737%_)))) - (let ((_%hd203616203744%_ + (gx#syntax-e _%tl203752203875%_)))) + (let ((_%hd203754203882%_ (let () (declare (not safe)) - (##car _%e203615203740%_))) - (_%tl203617203747%_ + (##car _%e203753203878%_))) + (_%tl203755203885%_ (let () (declare (not safe)) - (##cdr _%e203615203740%_)))) + (##cdr _%e203753203878%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203617203747%_)) - ((lambda (_%L203750%_ - _%L203752%_ - _%L203753%_ - _%L203754%_ - _%L203755%_ - _%L203756%_ - _%L203757%_ - _%L203758%_ - _%L203759%_ - _%L203760%_ - _%L203761%_) + (gx#stx-null? _%tl203755203885%_)) + ((lambda (_%L203888%_ + _%L203890%_ + _%L203891%_ + _%L203892%_ + _%L203893%_ + _%L203894%_ + _%L203895%_ + _%L203896%_ + _%L203897%_ + _%L203898%_ + _%L203899%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1318,7 +1318,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203761%_ + (cons _%L203899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1326,115 +1326,115 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203760%_ '())) + (cons _%L203898%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203759%_ '())) + (cons _%L203897%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203758%_ '())) + (cons _%L203896%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203757%_ '())) + (cons _%L203895%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203756%_ '())) - (cons _%L203755%_ - (cons _%L203754%_ - (cons _%L203753%_ + (cons _%L203894%_ '())) + (cons _%L203893%_ + (cons _%L203892%_ + (cons _%L203891%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203752%_ '())) + (cons _%L203890%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203750%_ '())) + (cons _%L203888%_ '())) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd203616203744%_ - _%hd203613203734%_ - _%hd203610203724%_ - _%hd203607203714%_ - _%hd203604203704%_ - _%hd203601203694%_ - _%hd203598203684%_ - _%hd203595203674%_ - _%hd203592203664%_ - _%hd203589203654%_ - _%hd203586203644%_) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) + _%hd203754203882%_ + _%hd203751203872%_ + _%hd203748203862%_ + _%hd203745203852%_ + _%hd203742203842%_ + _%hd203739203832%_ + _%hd203736203822%_ + _%hd203733203812%_ + _%hd203730203802%_ + _%hd203727203792%_ + _%hd203724203782%_) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203569203623%_ - _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) + (_%g203707203761%_ + _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203569203623%_ - _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_)))) - (_%g203569203623%_ _%g203570203627%_))))) - (_%g203568203804%_ _%$stx203565%_)))) + (_%g203707203761%_ + _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_)))) + (_%g203707203761%_ _%g203708203765%_))))) + (_%g203706203942%_ _%$stx203703%_)))) (define |gxc[:0:]#@predicate| - (lambda (_%$stx203808%_) - (let* ((_%g203812203826%_ - (lambda (_%g203813203822%_) + (lambda (_%$stx203946%_) + (let* ((_%g203950203964%_ + (lambda (_%g203951203960%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203813203822%_)))) - (_%g203811203867%_ - (lambda (_%g203813203830%_) + _%g203951203960%_)))) + (_%g203949204005%_ + (lambda (_%g203951203968%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203813203830%_)) - (let ((_%e203815203833%_ + (gx#stx-pair? _%g203951203968%_)) + (let ((_%e203953203971%_ (let () (declare (not safe)) - (gx#syntax-e _%g203813203830%_)))) - (let ((_%hd203816203837%_ + (gx#syntax-e _%g203951203968%_)))) + (let ((_%hd203954203975%_ (let () (declare (not safe)) - (##car _%e203815203833%_))) - (_%tl203817203840%_ + (##car _%e203953203971%_))) + (_%tl203955203978%_ (let () (declare (not safe)) - (##cdr _%e203815203833%_)))) + (##cdr _%e203953203971%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203817203840%_)) - (let ((_%e203818203843%_ + (gx#stx-pair? _%tl203955203978%_)) + (let ((_%e203956203981%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203817203840%_)))) - (let ((_%hd203819203847%_ + (gx#syntax-e _%tl203955203978%_)))) + (let ((_%hd203957203985%_ (let () (declare (not safe)) - (##car _%e203818203843%_))) - (_%tl203820203850%_ + (##car _%e203956203981%_))) + (_%tl203958203988%_ (let () (declare (not safe)) - (##cdr _%e203818203843%_)))) + (##cdr _%e203956203981%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203820203850%_)) - ((lambda (_%L203853%_) + (gx#stx-null? _%tl203958203988%_)) + ((lambda (_%L203991%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1446,62 +1446,62 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203853%_ + (cons _%L203991%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203819203847%_) - (_%g203812203826%_ _%g203813203830%_)))) - (_%g203812203826%_ _%g203813203830%_)))) - (_%g203812203826%_ _%g203813203830%_))))) - (_%g203811203867%_ _%$stx203808%_)))) + _%hd203957203985%_) + (_%g203950203964%_ _%g203951203968%_)))) + (_%g203950203964%_ _%g203951203968%_)))) + (_%g203950203964%_ _%g203951203968%_))))) + (_%g203949204005%_ _%$stx203946%_)))) (define |gxc[:0:]#@constructor| - (lambda (_%$stx203871%_) - (let* ((_%g203875203889%_ - (lambda (_%g203876203885%_) + (lambda (_%$stx204009%_) + (let* ((_%g204013204027%_ + (lambda (_%g204014204023%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203876203885%_)))) - (_%g203874203930%_ - (lambda (_%g203876203893%_) + _%g204014204023%_)))) + (_%g204012204068%_ + (lambda (_%g204014204031%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203876203893%_)) - (let ((_%e203878203896%_ + (gx#stx-pair? _%g204014204031%_)) + (let ((_%e204016204034%_ (let () (declare (not safe)) - (gx#syntax-e _%g203876203893%_)))) - (let ((_%hd203879203900%_ + (gx#syntax-e _%g204014204031%_)))) + (let ((_%hd204017204038%_ (let () (declare (not safe)) - (##car _%e203878203896%_))) - (_%tl203880203903%_ + (##car _%e204016204034%_))) + (_%tl204018204041%_ (let () (declare (not safe)) - (##cdr _%e203878203896%_)))) + (##cdr _%e204016204034%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203880203903%_)) - (let ((_%e203881203906%_ + (gx#stx-pair? _%tl204018204041%_)) + (let ((_%e204019204044%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203880203903%_)))) - (let ((_%hd203882203910%_ + (gx#syntax-e _%tl204018204041%_)))) + (let ((_%hd204020204048%_ (let () (declare (not safe)) - (##car _%e203881203906%_))) - (_%tl203883203913%_ + (##car _%e204019204044%_))) + (_%tl204021204051%_ (let () (declare (not safe)) - (##cdr _%e203881203906%_)))) + (##cdr _%e204019204044%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl203883203913%_)) - ((lambda (_%L203916%_) + (gx#stx-null? _%tl204021204051%_)) + ((lambda (_%L204054%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1513,98 +1513,98 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L203916%_ + (cons _%L204054%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd203882203910%_) - (_%g203875203889%_ _%g203876203893%_)))) - (_%g203875203889%_ _%g203876203893%_)))) - (_%g203875203889%_ _%g203876203893%_))))) - (_%g203874203930%_ _%$stx203871%_)))) + _%hd204020204048%_) + (_%g204013204027%_ _%g204014204031%_)))) + (_%g204013204027%_ _%g204014204031%_)))) + (_%g204013204027%_ _%g204014204031%_))))) + (_%g204012204068%_ _%$stx204009%_)))) (define |gxc[:0:]#@accessor| - (lambda (_%$stx203934%_) - (let* ((_%g203938203960%_ - (lambda (_%g203939203956%_) + (lambda (_%$stx204072%_) + (let* ((_%g204076204098%_ + (lambda (_%g204077204094%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g203939203956%_)))) - (_%g203937204029%_ - (lambda (_%g203939203964%_) + _%g204077204094%_)))) + (_%g204075204167%_ + (lambda (_%g204077204102%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g203939203964%_)) - (let ((_%e203943203967%_ + (gx#stx-pair? _%g204077204102%_)) + (let ((_%e204081204105%_ (let () (declare (not safe)) - (gx#syntax-e _%g203939203964%_)))) - (let ((_%hd203944203971%_ + (gx#syntax-e _%g204077204102%_)))) + (let ((_%hd204082204109%_ (let () (declare (not safe)) - (##car _%e203943203967%_))) - (_%tl203945203974%_ + (##car _%e204081204105%_))) + (_%tl204083204112%_ (let () (declare (not safe)) - (##cdr _%e203943203967%_)))) + (##cdr _%e204081204105%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203945203974%_)) - (let ((_%e203946203977%_ + (gx#stx-pair? _%tl204083204112%_)) + (let ((_%e204084204115%_ (let () (declare (not safe)) - (gx#syntax-e _%tl203945203974%_)))) - (let ((_%hd203947203981%_ + (gx#syntax-e _%tl204083204112%_)))) + (let ((_%hd204085204119%_ (let () (declare (not safe)) - (##car _%e203946203977%_))) - (_%tl203948203984%_ + (##car _%e204084204115%_))) + (_%tl204086204122%_ (let () (declare (not safe)) - (##cdr _%e203946203977%_)))) + (##cdr _%e204084204115%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl203948203984%_)) - (let ((_%e203949203987%_ + (gx#stx-pair? _%tl204086204122%_)) + (let ((_%e204087204125%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203948203984%_)))) - (let ((_%hd203950203991%_ + _%tl204086204122%_)))) + (let ((_%hd204088204129%_ (let () (declare (not safe)) - (##car _%e203949203987%_))) - (_%tl203951203994%_ + (##car _%e204087204125%_))) + (_%tl204089204132%_ (let () (declare (not safe)) - (##cdr _%e203949203987%_)))) + (##cdr _%e204087204125%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl203951203994%_)) - (let ((_%e203952203997%_ + _%tl204089204132%_)) + (let ((_%e204090204135%_ (let () (declare (not safe)) (gx#syntax-e - _%tl203951203994%_)))) - (let ((_%hd203953204001%_ + _%tl204089204132%_)))) + (let ((_%hd204091204139%_ (let () (declare (not safe)) - (##car _%e203952203997%_))) - (_%tl203954204004%_ + (##car _%e204090204135%_))) + (_%tl204092204142%_ (let () (declare (not safe)) - (##cdr _%e203952203997%_)))) + (##cdr _%e204090204135%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl203954204004%_)) - ((lambda (_%L204007%_ - _%L204009%_ - _%L204010%_) + _%tl204092204142%_)) + ((lambda (_%L204145%_ + _%L204147%_ + _%L204148%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1612,105 +1612,105 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204010%_ '())) + (cons _%L204148%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204009%_ '())) - (cons _%L204007%_ '()))))) - _%hd203953204001%_ - _%hd203950203991%_ - _%hd203947203981%_) - (_%g203938203960%_ _%g203939203964%_)))) + (cons _%L204147%_ '())) + (cons _%L204145%_ '()))))) + _%hd204091204139%_ + _%hd204088204129%_ + _%hd204085204119%_) + (_%g204076204098%_ _%g204077204102%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g203938203960%_ - _%g203939203964%_)))) - (_%g203938203960%_ _%g203939203964%_)))) - (_%g203938203960%_ _%g203939203964%_)))) - (_%g203938203960%_ _%g203939203964%_))))) - (_%g203937204029%_ _%$stx203934%_)))) + (_%g204076204098%_ + _%g204077204102%_)))) + (_%g204076204098%_ _%g204077204102%_)))) + (_%g204076204098%_ _%g204077204102%_)))) + (_%g204076204098%_ _%g204077204102%_))))) + (_%g204075204167%_ _%$stx204072%_)))) (define |gxc[:0:]#@mutator| - (lambda (_%$stx204033%_) - (let* ((_%g204037204059%_ - (lambda (_%g204038204055%_) + (lambda (_%$stx204171%_) + (let* ((_%g204175204197%_ + (lambda (_%g204176204193%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204038204055%_)))) - (_%g204036204128%_ - (lambda (_%g204038204063%_) + _%g204176204193%_)))) + (_%g204174204266%_ + (lambda (_%g204176204201%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204038204063%_)) - (let ((_%e204042204066%_ + (gx#stx-pair? _%g204176204201%_)) + (let ((_%e204180204204%_ (let () (declare (not safe)) - (gx#syntax-e _%g204038204063%_)))) - (let ((_%hd204043204070%_ + (gx#syntax-e _%g204176204201%_)))) + (let ((_%hd204181204208%_ (let () (declare (not safe)) - (##car _%e204042204066%_))) - (_%tl204044204073%_ + (##car _%e204180204204%_))) + (_%tl204182204211%_ (let () (declare (not safe)) - (##cdr _%e204042204066%_)))) + (##cdr _%e204180204204%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204044204073%_)) - (let ((_%e204045204076%_ + (gx#stx-pair? _%tl204182204211%_)) + (let ((_%e204183204214%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204044204073%_)))) - (let ((_%hd204046204080%_ + (gx#syntax-e _%tl204182204211%_)))) + (let ((_%hd204184204218%_ (let () (declare (not safe)) - (##car _%e204045204076%_))) - (_%tl204047204083%_ + (##car _%e204183204214%_))) + (_%tl204185204221%_ (let () (declare (not safe)) - (##cdr _%e204045204076%_)))) + (##cdr _%e204183204214%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204047204083%_)) - (let ((_%e204048204086%_ + (gx#stx-pair? _%tl204185204221%_)) + (let ((_%e204186204224%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204047204083%_)))) - (let ((_%hd204049204090%_ + _%tl204185204221%_)))) + (let ((_%hd204187204228%_ (let () (declare (not safe)) - (##car _%e204048204086%_))) - (_%tl204050204093%_ + (##car _%e204186204224%_))) + (_%tl204188204231%_ (let () (declare (not safe)) - (##cdr _%e204048204086%_)))) + (##cdr _%e204186204224%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204050204093%_)) - (let ((_%e204051204096%_ + _%tl204188204231%_)) + (let ((_%e204189204234%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204050204093%_)))) - (let ((_%hd204052204100%_ + _%tl204188204231%_)))) + (let ((_%hd204190204238%_ (let () (declare (not safe)) - (##car _%e204051204096%_))) - (_%tl204053204103%_ + (##car _%e204189204234%_))) + (_%tl204191204241%_ (let () (declare (not safe)) - (##cdr _%e204051204096%_)))) + (##cdr _%e204189204234%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204053204103%_)) - ((lambda (_%L204106%_ - _%L204108%_ - _%L204109%_) + _%tl204191204241%_)) + ((lambda (_%L204244%_ + _%L204246%_ + _%L204247%_) (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -1718,69 +1718,69 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204109%_ '())) + (cons _%L204247%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204108%_ '())) - (cons _%L204106%_ '()))))) - _%hd204052204100%_ - _%hd204049204090%_ - _%hd204046204080%_) - (_%g204037204059%_ _%g204038204063%_)))) + (cons _%L204246%_ '())) + (cons _%L204244%_ '()))))) + _%hd204190204238%_ + _%hd204187204228%_ + _%hd204184204218%_) + (_%g204175204197%_ _%g204176204201%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g204037204059%_ - _%g204038204063%_)))) - (_%g204037204059%_ _%g204038204063%_)))) - (_%g204037204059%_ _%g204038204063%_)))) - (_%g204037204059%_ _%g204038204063%_))))) - (_%g204036204128%_ _%$stx204033%_)))) + (_%g204175204197%_ + _%g204176204201%_)))) + (_%g204175204197%_ _%g204176204201%_)))) + (_%g204175204197%_ _%g204176204201%_)))) + (_%g204175204197%_ _%g204176204201%_))))) + (_%g204174204266%_ _%$stx204171%_)))) (define |gxc[:0:]#@primitive-predicate| - (lambda (_%$stx204132%_) - (let* ((_%g204136204150%_ - (lambda (_%g204137204146%_) + (lambda (_%$stx204270%_) + (let* ((_%g204274204288%_ + (lambda (_%g204275204284%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204137204146%_)))) - (_%g204135204191%_ - (lambda (_%g204137204154%_) + _%g204275204284%_)))) + (_%g204273204329%_ + (lambda (_%g204275204292%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204137204154%_)) - (let ((_%e204139204157%_ + (gx#stx-pair? _%g204275204292%_)) + (let ((_%e204277204295%_ (let () (declare (not safe)) - (gx#syntax-e _%g204137204154%_)))) - (let ((_%hd204140204161%_ + (gx#syntax-e _%g204275204292%_)))) + (let ((_%hd204278204299%_ (let () (declare (not safe)) - (##car _%e204139204157%_))) - (_%tl204141204164%_ + (##car _%e204277204295%_))) + (_%tl204279204302%_ (let () (declare (not safe)) - (##cdr _%e204139204157%_)))) + (##cdr _%e204277204295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204141204164%_)) - (let ((_%e204142204167%_ + (gx#stx-pair? _%tl204279204302%_)) + (let ((_%e204280204305%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204141204164%_)))) - (let ((_%hd204143204171%_ + (gx#syntax-e _%tl204279204302%_)))) + (let ((_%hd204281204309%_ (let () (declare (not safe)) - (##car _%e204142204167%_))) - (_%tl204144204174%_ + (##car _%e204280204305%_))) + (_%tl204282204312%_ (let () (declare (not safe)) - (##cdr _%e204142204167%_)))) + (##cdr _%e204280204305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204144204174%_)) - ((lambda (_%L204177%_) + (gx#stx-null? _%tl204282204312%_)) + ((lambda (_%L204315%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1792,80 +1792,80 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204177%_ + (cons _%L204315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd204143204171%_) - (_%g204136204150%_ _%g204137204154%_)))) - (_%g204136204150%_ _%g204137204154%_)))) - (_%g204136204150%_ _%g204137204154%_))))) - (_%g204135204191%_ _%$stx204132%_)))) + _%hd204281204309%_) + (_%g204274204288%_ _%g204275204292%_)))) + (_%g204274204288%_ _%g204275204292%_)))) + (_%g204274204288%_ _%g204275204292%_))))) + (_%g204273204329%_ _%$stx204270%_)))) (define |gxc[:0:]#@interface| - (lambda (_%$stx204195%_) - (let* ((_%g204199204217%_ - (lambda (_%g204200204213%_) + (lambda (_%$stx204333%_) + (let* ((_%g204337204355%_ + (lambda (_%g204338204351%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204200204213%_)))) - (_%g204198204272%_ - (lambda (_%g204200204221%_) + _%g204338204351%_)))) + (_%g204336204410%_ + (lambda (_%g204338204359%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204200204221%_)) - (let ((_%e204203204224%_ + (gx#stx-pair? _%g204338204359%_)) + (let ((_%e204341204362%_ (let () (declare (not safe)) - (gx#syntax-e _%g204200204221%_)))) - (let ((_%hd204204204228%_ + (gx#syntax-e _%g204338204359%_)))) + (let ((_%hd204342204366%_ (let () (declare (not safe)) - (##car _%e204203204224%_))) - (_%tl204205204231%_ + (##car _%e204341204362%_))) + (_%tl204343204369%_ (let () (declare (not safe)) - (##cdr _%e204203204224%_)))) + (##cdr _%e204341204362%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204205204231%_)) - (let ((_%e204206204234%_ + (gx#stx-pair? _%tl204343204369%_)) + (let ((_%e204344204372%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204205204231%_)))) - (let ((_%hd204207204238%_ + (gx#syntax-e _%tl204343204369%_)))) + (let ((_%hd204345204376%_ (let () (declare (not safe)) - (##car _%e204206204234%_))) - (_%tl204208204241%_ + (##car _%e204344204372%_))) + (_%tl204346204379%_ (let () (declare (not safe)) - (##cdr _%e204206204234%_)))) + (##cdr _%e204344204372%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204208204241%_)) - (let ((_%e204209204244%_ + (gx#stx-pair? _%tl204346204379%_)) + (let ((_%e204347204382%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204208204241%_)))) - (let ((_%hd204210204248%_ + _%tl204346204379%_)))) + (let ((_%hd204348204386%_ (let () (declare (not safe)) - (##car _%e204209204244%_))) - (_%tl204211204251%_ + (##car _%e204347204382%_))) + (_%tl204349204389%_ (let () (declare (not safe)) - (##cdr _%e204209204244%_)))) + (##cdr _%e204347204382%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204211204251%_)) - ((lambda (_%L204254%_ - _%L204256%_) + _%tl204349204389%_)) + ((lambda (_%L204392%_ + _%L204394%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -1875,59 +1875,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204256%_ '())) + (cons _%L204394%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204254%_ '())) + (cons _%L204392%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204210204248%_ - _%hd204207204238%_) - (_%g204199204217%_ - _%g204200204221%_)))) - (_%g204199204217%_ _%g204200204221%_)))) - (_%g204199204217%_ _%g204200204221%_)))) - (_%g204199204217%_ _%g204200204221%_))))) - (_%g204198204272%_ _%$stx204195%_)))) + _%hd204348204386%_ + _%hd204345204376%_) + (_%g204337204355%_ + _%g204338204359%_)))) + (_%g204337204355%_ _%g204338204359%_)))) + (_%g204337204355%_ _%g204338204359%_)))) + (_%g204337204355%_ _%g204338204359%_))))) + (_%g204336204410%_ _%$stx204333%_)))) (define |gxc[:0:]#@lambda| - (lambda (_%$stx204276%_) - (let* ((_%__stx208618208619%_ _%$stx204276%_) - (_%g204283204344%_ + (lambda (_%$stx204414%_) + (let* ((_%__stx208756208757%_ _%$stx204414%_) + (_%g204421204482%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208618208619%_))))) - (let ((_%__kont208621208622%_ - (lambda (_%L204582%_ _%L204584%_) + _%__stx208756208757%_))))) + (let ((_%__kont208759208760%_ + (lambda (_%L204720%_ _%L204722%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204584%_ '())) + (cons _%L204722%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204582%_ '())) + (cons _%L204720%_ '())) '()))))) - (_%__kont208623208624%_ - (lambda (_%L204521%_ _%L204523%_ _%L204524%_) + (_%__kont208761208762%_ + (lambda (_%L204659%_ _%L204661%_ _%L204662%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204524%_ '())) + (cons _%L204662%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204523%_ '())) + (cons _%L204661%_ '())) (cons 'signature: (cons (cons (let () (declare (not safe)) @@ -1942,478 +1942,478 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204521%_ '())) + (cons _%L204659%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont208625208626%_ - (lambda (_%L204445%_ _%L204447%_) - (cons _%L204447%_ (cons _%L204445%_ (cons '#f '()))))) - (_%__kont208627208628%_ - (lambda (_%L204395%_ _%L204397%_ _%L204398%_) - (cons _%L204398%_ - (cons _%L204397%_ + (_%__kont208763208764%_ + (lambda (_%L204583%_ _%L204585%_) + (cons _%L204585%_ (cons _%L204583%_ (cons '#f '()))))) + (_%__kont208765208766%_ + (lambda (_%L204533%_ _%L204535%_ _%L204536%_) + (cons _%L204536%_ + (cons _%L204535%_ (cons '#f (cons 'signature: - (cons _%L204395%_ '())))))))) + (cons _%L204533%_ '())))))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208618208619%_)) - (let ((_%e204287204552%_ + (gx#stx-pair? _%__stx208756208757%_)) + (let ((_%e204425204690%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208618208619%_)))) - (let ((_%tl204289204559%_ + (gx#syntax-e _%__stx208756208757%_)))) + (let ((_%tl204427204697%_ (let () (declare (not safe)) - (##cdr _%e204287204552%_))) - (_%hd204288204556%_ + (##cdr _%e204425204690%_))) + (_%hd204426204694%_ (let () (declare (not safe)) - (##car _%e204287204552%_)))) + (##car _%e204425204690%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204289204559%_)) - (let ((_%e204290204562%_ + (gx#stx-pair? _%tl204427204697%_)) + (let ((_%e204428204700%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204289204559%_)))) - (let ((_%tl204292204569%_ + (gx#syntax-e _%tl204427204697%_)))) + (let ((_%tl204430204707%_ (let () (declare (not safe)) - (##cdr _%e204290204562%_))) - (_%hd204291204566%_ + (##cdr _%e204428204700%_))) + (_%hd204429204704%_ (let () (declare (not safe)) - (##car _%e204290204562%_)))) + (##car _%e204428204700%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204292204569%_)) - (let ((_%e204293204572%_ + (gx#stx-pair? _%tl204430204707%_)) + (let ((_%e204431204710%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204292204569%_)))) - (let ((_%tl204295204579%_ + (gx#syntax-e _%tl204430204707%_)))) + (let ((_%tl204433204717%_ (let () (declare (not safe)) - (##cdr _%e204293204572%_))) - (_%hd204294204576%_ + (##cdr _%e204431204710%_))) + (_%hd204432204714%_ (let () (declare (not safe)) - (##car _%e204293204572%_)))) + (##car _%e204431204710%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204295204579%_)) - (_%__kont208621208622%_ - _%hd204294204576%_ - _%hd204291204566%_) + (gx#stx-null? _%tl204433204717%_)) + (_%__kont208759208760%_ + _%hd204432204714%_ + _%hd204429204704%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl204295204579%_)) - (let ((_%e204308204497%_ + _%tl204433204717%_)) + (let ((_%e204446204635%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204295204579%_)))) - (let ((_%tl204310204504%_ + _%tl204433204717%_)))) + (let ((_%tl204448204642%_ (let () (declare (not safe)) - (##cdr _%e204308204497%_))) - (_%hd204309204501%_ + (##cdr _%e204446204635%_))) + (_%hd204447204639%_ (let () (declare (not safe)) - (##car _%e204308204497%_)))) + (##car _%e204446204635%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204309204501%_)) - (let ((_%e204311204507%_ + _%hd204447204639%_)) + (let ((_%e204449204645%_ (let () (declare (not safe)) (gx#stx-e - _%hd204309204501%_)))) - (if (equal? _%e204311204507%_ + _%hd204447204639%_)))) + (if (equal? _%e204449204645%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'signature:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204310204504%_)) - (let ((_%e204312204511%_ + (gx#stx-pair? _%tl204448204642%_)) + (let ((_%e204450204649%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204310204504%_)))) - (let ((_%tl204314204518%_ + (gx#syntax-e _%tl204448204642%_)))) + (let ((_%tl204452204656%_ (let () (declare (not safe)) - (##cdr _%e204312204511%_))) - (_%hd204313204515%_ + (##cdr _%e204450204649%_))) + (_%hd204451204653%_ (let () (declare (not safe)) - (##car _%e204312204511%_)))) + (##car _%e204450204649%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204314204518%_)) - (_%__kont208623208624%_ - _%hd204313204515%_ - _%hd204294204576%_ - _%hd204291204566%_) + (gx#stx-null? _%tl204452204656%_)) + (_%__kont208761208762%_ + _%hd204451204653%_ + _%hd204432204714%_ + _%hd204429204704%_) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204294204576%_)) - (let ((_%e204335204381%_ + (gx#stx-datum? _%hd204432204714%_)) + (let ((_%e204473204519%_ (let () (declare (not safe)) - (gx#stx-e _%hd204294204576%_)))) + (gx#stx-e _%hd204432204714%_)))) (declare (not safe)) - (_%g204283204344%_)) + (_%g204421204482%_)) (let () (declare (not safe)) - (_%g204283204344%_)))))) + (_%g204421204482%_)))))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204294204576%_)) - (let ((_%e204335204381%_ + (gx#stx-datum? _%hd204432204714%_)) + (let ((_%e204473204519%_ (let () (declare (not safe)) - (gx#stx-e _%hd204294204576%_)))) - (if (equal? _%e204335204381%_ 'signature:) + (gx#stx-e _%hd204432204714%_)))) + (if (equal? _%e204473204519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204310204504%_)) - (_%__kont208627208628%_ - _%hd204309204501%_ - _%hd204291204566%_ - _%hd204288204556%_) + (gx#stx-null? _%tl204448204642%_)) + (_%__kont208765208766%_ + _%hd204447204639%_ + _%hd204429204704%_ + _%hd204426204694%_) (let () (declare (not safe)) - (_%g204283204344%_))) + (_%g204421204482%_))) (let () (declare (not safe)) - (_%g204283204344%_)))) - (let () (declare (not safe)) (_%g204283204344%_)))) + (_%g204421204482%_)))) + (let () (declare (not safe)) (_%g204421204482%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd204294204576%_)) - (let ((_%e204335204381%_ + (gx#stx-datum? _%hd204432204714%_)) + (let ((_%e204473204519%_ (let () (declare (not safe)) - (gx#stx-e _%hd204294204576%_)))) - (if (equal? _%e204335204381%_ 'signature:) + (gx#stx-e _%hd204432204714%_)))) + (if (equal? _%e204473204519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204310204504%_)) - (_%__kont208627208628%_ - _%hd204309204501%_ - _%hd204291204566%_ - _%hd204288204556%_) + (gx#stx-null? _%tl204448204642%_)) + (_%__kont208765208766%_ + _%hd204447204639%_ + _%hd204429204704%_ + _%hd204426204694%_) (let () (declare (not safe)) - (_%g204283204344%_))) - (let () (declare (not safe)) (_%g204283204344%_)))) - (let () (declare (not safe)) (_%g204283204344%_))))) + (_%g204421204482%_))) + (let () (declare (not safe)) (_%g204421204482%_)))) + (let () (declare (not safe)) (_%g204421204482%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204294204576%_)) - (let ((_%e204335204381%_ + _%hd204432204714%_)) + (let ((_%e204473204519%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-e _%hd204294204576%_)))) - (if (equal? _%e204335204381%_ 'signature:) + (gx#stx-e _%hd204432204714%_)))) + (if (equal? _%e204473204519%_ 'signature:) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204310204504%_)) - (_%__kont208627208628%_ - _%hd204309204501%_ - _%hd204291204566%_ - _%hd204288204556%_) - (let () (declare (not safe)) (_%g204283204344%_))) - (let () (declare (not safe)) (_%g204283204344%_)))) - (let () (declare (not safe)) (_%g204283204344%_)))))) + (gx#stx-null? _%tl204448204642%_)) + (_%__kont208765208766%_ + _%hd204447204639%_ + _%hd204429204704%_ + _%hd204426204694%_) + (let () (declare (not safe)) (_%g204421204482%_))) + (let () (declare (not safe)) (_%g204421204482%_)))) + (let () (declare (not safe)) (_%g204421204482%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-datum? - _%hd204294204576%_)) - (let ((_%e204335204381%_ + _%hd204432204714%_)) + (let ((_%e204473204519%_ (let () (declare (not safe)) (gx#stx-e - _%hd204294204576%_)))) + _%hd204432204714%_)))) (declare (not safe)) - (_%g204283204344%_)) + (_%g204421204482%_)) (let () (declare (not safe)) - (_%g204283204344%_))))))) + (_%g204421204482%_))))))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204292204569%_)) - (_%__kont208625208626%_ - _%hd204291204566%_ - _%hd204288204556%_) + (gx#stx-null? _%tl204430204707%_)) + (_%__kont208763208764%_ + _%hd204429204704%_ + _%hd204426204694%_) (let () (declare (not safe)) - (_%g204283204344%_)))))) - (let () (declare (not safe)) (_%g204283204344%_))))) - (let () (declare (not safe)) (_%g204283204344%_))))))) + (_%g204421204482%_)))))) + (let () (declare (not safe)) (_%g204421204482%_))))) + (let () (declare (not safe)) (_%g204421204482%_))))))) (define |gxc[:0:]#@case-lambda| - (lambda (_%$stx204603%_) - (let* ((_%g204607204636%_ - (lambda (_%g204608204632%_) + (lambda (_%$stx204741%_) + (let* ((_%g204745204774%_ + (lambda (_%g204746204770%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204608204632%_)))) - (_%g204606204745%_ - (lambda (_%g204608204640%_) + _%g204746204770%_)))) + (_%g204744204883%_ + (lambda (_%g204746204778%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204608204640%_)) - (let ((_%e204610204643%_ + (gx#stx-pair? _%g204746204778%_)) + (let ((_%e204748204781%_ (let () (declare (not safe)) - (gx#syntax-e _%g204608204640%_)))) - (let ((_%hd204611204647%_ + (gx#syntax-e _%g204746204778%_)))) + (let ((_%hd204749204785%_ (let () (declare (not safe)) - (##car _%e204610204643%_))) - (_%tl204612204650%_ + (##car _%e204748204781%_))) + (_%tl204750204788%_ (let () (declare (not safe)) - (##cdr _%e204610204643%_)))) + (##cdr _%e204748204781%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204612204650%_)) - (let ((_g209248_ + (gx#stx-pair/null? _%tl204750204788%_)) + (let ((_g209386_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204612204650%_ + _%tl204750204788%_ '0)))) (begin - (let ((_g209249_ + (let ((_g209387_ (let () (declare (not safe)) - (if (##values? _g209248_) - (##vector-length _g209248_) + (if (##values? _g209386_) + (##values-length _g209386_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209249_ 2))) + (##fx= _g209387_ 2))) (error "Context expects 2 values" - _g209249_))) - (let ((_%target204613204653%_ + _g209387_))) + (let ((_%target204751204791%_ (let () (declare (not safe)) - (##vector-ref _g209248_ 0))) - (_%tl204615204656%_ + (##values-ref _g209386_ 0))) + (_%tl204753204794%_ (let () (declare (not safe)) - (##vector-ref _g209248_ 1)))) + (##values-ref _g209386_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204615204656%_)) - (letrec ((_%loop204616204659%_ - (lambda (_%hd204614204663%_ - _%clause204620204666%_) + (gx#stx-null? _%tl204753204794%_)) + (letrec ((_%loop204754204797%_ + (lambda (_%hd204752204801%_ + _%clause204758204804%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204614204663%_)) - (let ((_%e204617204669%_ + _%hd204752204801%_)) + (let ((_%e204755204807%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204614204663%_)))) - (let ((_%lp-hd204618204673%_ + (gx#syntax-e _%hd204752204801%_)))) + (let ((_%lp-hd204756204811%_ (let () (declare (not safe)) - (##car _%e204617204669%_))) - (_%lp-tl204619204676%_ + (##car _%e204755204807%_))) + (_%lp-tl204757204814%_ (let () (declare (not safe)) - (##cdr _%e204617204669%_)))) + (##cdr _%e204755204807%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%lp-hd204618204673%_)) - (let ((_g209250_ + (gx#stx-pair/null? _%lp-hd204756204811%_)) + (let ((_g209388_ (let () (declare (not safe)) (gx#syntax-split-splice - _%lp-hd204618204673%_ + _%lp-hd204756204811%_ '0)))) (begin - (let ((_g209251_ + (let ((_g209389_ (let () (declare (not safe)) - (if (##values? _g209250_) - (##vector-length _g209250_) + (if (##values? _g209388_) + (##values-length _g209388_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209251_ 2))) + (##fx= _g209389_ 2))) (error "Context expects 2 values" - _g209251_))) - (let ((_%target204622204679%_ + _g209389_))) + (let ((_%target204760204817%_ (let () (declare (not safe)) - (##vector-ref _g209250_ 0))) - (_%tl204624204682%_ + (##values-ref _g209388_ 0))) + (_%tl204762204820%_ (let () (declare (not safe)) - (##vector-ref _g209250_ 1)))) + (##values-ref _g209388_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204624204682%_)) - (letrec ((_%loop204625204685%_ - (lambda (_%hd204623204689%_ - _%clause204629204692%_) + (gx#stx-null? _%tl204762204820%_)) + (letrec ((_%loop204763204823%_ + (lambda (_%hd204761204827%_ + _%clause204767204830%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204623204689%_)) - (let ((_%e204626204695%_ + _%hd204761204827%_)) + (let ((_%e204764204833%_ (let () (declare (not safe)) (gx#syntax-e - _%hd204623204689%_)))) - (let ((_%lp-hd204627204699%_ + _%hd204761204827%_)))) + (let ((_%lp-hd204765204837%_ (let () (declare (not safe)) - (##car _%e204626204695%_))) - (_%lp-tl204628204702%_ + (##car _%e204764204833%_))) + (_%lp-tl204766204840%_ (let () (declare (not safe)) - (##cdr _%e204626204695%_)))) - (_%loop204625204685%_ - _%lp-tl204628204702%_ - (cons _%lp-hd204627204699%_ - _%clause204629204692%_)))) - (let ((_%clause204630204705%_ - (reverse _%clause204629204692%_))) - (_%loop204616204659%_ - _%lp-tl204619204676%_ - (cons _%clause204630204705%_ - _%clause204620204666%_))))))) - (_%loop204625204685%_ - _%target204622204679%_ + (##cdr _%e204764204833%_)))) + (_%loop204763204823%_ + _%lp-tl204766204840%_ + (cons _%lp-hd204765204837%_ + _%clause204767204830%_)))) + (let ((_%clause204768204843%_ + (reverse _%clause204767204830%_))) + (_%loop204754204797%_ + _%lp-tl204757204814%_ + (cons _%clause204768204843%_ + _%clause204758204804%_))))))) + (_%loop204763204823%_ + _%target204760204817%_ '())) - (_%g204607204636%_ _%g204608204640%_))))) - (_%g204607204636%_ _%g204608204640%_)))) - (let ((_%clause204621204709%_ - (reverse _%clause204620204666%_))) - ((lambda (_%L204713%_) + (_%g204745204774%_ _%g204746204778%_))))) + (_%g204745204774%_ _%g204746204778%_)))) + (let ((_%clause204759204847%_ + (reverse _%clause204758204804%_))) + ((lambda (_%L204851%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'make-!case-lambda)) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209252 - (lambda (_%g204728204733%_ - _%g204729204736%_) + (let ((__tmp209390 + (lambda (_%g204866204871%_ + _%g204867204874%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@lambda)) - (let ((__tmp209253 + (let ((__tmp209391 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g204730204739%_ _%g204731204742%_) - (cons _%g204730204739%_ _%g204731204742%_)))) + (lambda (_%g204868204877%_ _%g204869204880%_) + (cons _%g204868204877%_ _%g204869204880%_)))) (declare (not safe)) - (__foldr1 __tmp209253 '() _%g204728204733%_))) - _%g204729204736%_)))) + (__foldr1 __tmp209391 '() _%g204866204871%_))) + _%g204867204874%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp209252 + __tmp209390 '() - _%L204713%_))) + _%L204851%_))) '()))) - _%clause204621204709%_)))))) + _%clause204759204847%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204616204659%_ - _%target204613204653%_ + (_%loop204754204797%_ + _%target204751204791%_ '())) - (_%g204607204636%_ - _%g204608204640%_))))) - (_%g204607204636%_ _%g204608204640%_)))) - (_%g204607204636%_ _%g204608204640%_))))) - (_%g204606204745%_ _%$stx204603%_)))) + (_%g204745204774%_ + _%g204746204778%_))))) + (_%g204745204774%_ _%g204746204778%_)))) + (_%g204745204774%_ _%g204746204778%_))))) + (_%g204744204883%_ _%$stx204741%_)))) (define |gxc[:0:]#@kw-lambda| - (lambda (_%$stx204751%_) - (let* ((_%g204755204773%_ - (lambda (_%g204756204769%_) + (lambda (_%$stx204889%_) + (let* ((_%g204893204911%_ + (lambda (_%g204894204907%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204756204769%_)))) - (_%g204754204828%_ - (lambda (_%g204756204777%_) + _%g204894204907%_)))) + (_%g204892204966%_ + (lambda (_%g204894204915%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204756204777%_)) - (let ((_%e204759204780%_ + (gx#stx-pair? _%g204894204915%_)) + (let ((_%e204897204918%_ (let () (declare (not safe)) - (gx#syntax-e _%g204756204777%_)))) - (let ((_%hd204760204784%_ + (gx#syntax-e _%g204894204915%_)))) + (let ((_%hd204898204922%_ (let () (declare (not safe)) - (##car _%e204759204780%_))) - (_%tl204761204787%_ + (##car _%e204897204918%_))) + (_%tl204899204925%_ (let () (declare (not safe)) - (##cdr _%e204759204780%_)))) + (##cdr _%e204897204918%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204761204787%_)) - (let ((_%e204762204790%_ + (gx#stx-pair? _%tl204899204925%_)) + (let ((_%e204900204928%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204761204787%_)))) - (let ((_%hd204763204794%_ + (gx#syntax-e _%tl204899204925%_)))) + (let ((_%hd204901204932%_ (let () (declare (not safe)) - (##car _%e204762204790%_))) - (_%tl204764204797%_ + (##car _%e204900204928%_))) + (_%tl204902204935%_ (let () (declare (not safe)) - (##cdr _%e204762204790%_)))) + (##cdr _%e204900204928%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204764204797%_)) - (let ((_%e204765204800%_ + (gx#stx-pair? _%tl204902204935%_)) + (let ((_%e204903204938%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204764204797%_)))) - (let ((_%hd204766204804%_ + _%tl204902204935%_)))) + (let ((_%hd204904204942%_ (let () (declare (not safe)) - (##car _%e204765204800%_))) - (_%tl204767204807%_ + (##car _%e204903204938%_))) + (_%tl204905204945%_ (let () (declare (not safe)) - (##cdr _%e204765204800%_)))) + (##cdr _%e204903204938%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204767204807%_)) - ((lambda (_%L204810%_ - _%L204812%_) + _%tl204905204945%_)) + ((lambda (_%L204948%_ + _%L204950%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2423,85 +2423,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204812%_ '())) + (cons _%L204950%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204810%_ '())) + (cons _%L204948%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204766204804%_ - _%hd204763204794%_) - (_%g204755204773%_ - _%g204756204777%_)))) - (_%g204755204773%_ _%g204756204777%_)))) - (_%g204755204773%_ _%g204756204777%_)))) - (_%g204755204773%_ _%g204756204777%_))))) - (_%g204754204828%_ _%$stx204751%_)))) + _%hd204904204942%_ + _%hd204901204932%_) + (_%g204893204911%_ + _%g204894204915%_)))) + (_%g204893204911%_ _%g204894204915%_)))) + (_%g204893204911%_ _%g204894204915%_)))) + (_%g204893204911%_ _%g204894204915%_))))) + (_%g204892204966%_ _%$stx204889%_)))) (define |gxc[:0:]#@kw-lambda-dispatch| - (lambda (_%$stx204832%_) - (let* ((_%g204836204854%_ - (lambda (_%g204837204850%_) + (lambda (_%$stx204970%_) + (let* ((_%g204974204992%_ + (lambda (_%g204975204988%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204837204850%_)))) - (_%g204835204909%_ - (lambda (_%g204837204858%_) + _%g204975204988%_)))) + (_%g204973205047%_ + (lambda (_%g204975204996%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204837204858%_)) - (let ((_%e204840204861%_ + (gx#stx-pair? _%g204975204996%_)) + (let ((_%e204978204999%_ (let () (declare (not safe)) - (gx#syntax-e _%g204837204858%_)))) - (let ((_%hd204841204865%_ + (gx#syntax-e _%g204975204996%_)))) + (let ((_%hd204979205003%_ (let () (declare (not safe)) - (##car _%e204840204861%_))) - (_%tl204842204868%_ + (##car _%e204978204999%_))) + (_%tl204980205006%_ (let () (declare (not safe)) - (##cdr _%e204840204861%_)))) + (##cdr _%e204978204999%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204842204868%_)) - (let ((_%e204843204871%_ + (gx#stx-pair? _%tl204980205006%_)) + (let ((_%e204981205009%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204842204868%_)))) - (let ((_%hd204844204875%_ + (gx#syntax-e _%tl204980205006%_)))) + (let ((_%hd204982205013%_ (let () (declare (not safe)) - (##car _%e204843204871%_))) - (_%tl204845204878%_ + (##car _%e204981205009%_))) + (_%tl204983205016%_ (let () (declare (not safe)) - (##cdr _%e204843204871%_)))) + (##cdr _%e204981205009%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204845204878%_)) - (let ((_%e204846204881%_ + (gx#stx-pair? _%tl204983205016%_)) + (let ((_%e204984205019%_ (let () (declare (not safe)) (gx#syntax-e - _%tl204845204878%_)))) - (let ((_%hd204847204885%_ + _%tl204983205016%_)))) + (let ((_%hd204985205023%_ (let () (declare (not safe)) - (##car _%e204846204881%_))) - (_%tl204848204888%_ + (##car _%e204984205019%_))) + (_%tl204986205026%_ (let () (declare (not safe)) - (##cdr _%e204846204881%_)))) + (##cdr _%e204984205019%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl204848204888%_)) - ((lambda (_%L204891%_ - _%L204893%_) + _%tl204986205026%_)) + ((lambda (_%L205029%_ + _%L205031%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2511,147 +2511,147 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204893%_ '())) + (cons _%L205031%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L204891%_ '())) + (cons _%L205029%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd204847204885%_ - _%hd204844204875%_) - (_%g204836204854%_ - _%g204837204858%_)))) - (_%g204836204854%_ _%g204837204858%_)))) - (_%g204836204854%_ _%g204837204858%_)))) - (_%g204836204854%_ _%g204837204858%_))))) - (_%g204835204909%_ _%$stx204832%_)))) + _%hd204985205023%_ + _%hd204982205013%_) + (_%g204974204992%_ + _%g204975204996%_)))) + (_%g204974204992%_ _%g204975204996%_)))) + (_%g204974204992%_ _%g204975204996%_)))) + (_%g204974204992%_ _%g204975204996%_))))) + (_%g204973205047%_ _%$stx204970%_)))) (define |gxc[:0:]#declare-inline-rules!| - (lambda (_%$stx204913%_) - (let* ((_%g204917204946%_ - (lambda (_%g204918204942%_) + (lambda (_%$stx205051%_) + (let* ((_%g205055205084%_ + (lambda (_%g205056205080%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g204918204942%_)))) - (_%g204916205046%_ - (lambda (_%g204918204950%_) + _%g205056205080%_)))) + (_%g205054205184%_ + (lambda (_%g205056205088%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g204918204950%_)) - (let ((_%e204921204953%_ + (gx#stx-pair? _%g205056205088%_)) + (let ((_%e205059205091%_ (let () (declare (not safe)) - (gx#syntax-e _%g204918204950%_)))) - (let ((_%hd204922204957%_ + (gx#syntax-e _%g205056205088%_)))) + (let ((_%hd205060205095%_ (let () (declare (not safe)) - (##car _%e204921204953%_))) - (_%tl204923204960%_ + (##car _%e205059205091%_))) + (_%tl205061205098%_ (let () (declare (not safe)) - (##cdr _%e204921204953%_)))) + (##cdr _%e205059205091%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl204923204960%_)) - (let ((_g209254_ + (gx#stx-pair/null? _%tl205061205098%_)) + (let ((_g209392_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl204923204960%_ + _%tl205061205098%_ '0)))) (begin - (let ((_g209255_ + (let ((_g209393_ (let () (declare (not safe)) - (if (##values? _g209254_) - (##vector-length _g209254_) + (if (##values? _g209392_) + (##values-length _g209392_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209255_ 2))) + (##fx= _g209393_ 2))) (error "Context expects 2 values" - _g209255_))) - (let ((_%target204924204963%_ + _g209393_))) + (let ((_%target205062205101%_ (let () (declare (not safe)) - (##vector-ref _g209254_ 0))) - (_%tl204926204966%_ + (##values-ref _g209392_ 0))) + (_%tl205064205104%_ (let () (declare (not safe)) - (##vector-ref _g209254_ 1)))) + (##values-ref _g209392_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204926204966%_)) - (letrec ((_%loop204927204969%_ - (lambda (_%hd204925204973%_ - _%rule204931204976%_ - _%proc204932204978%_) + (gx#stx-null? _%tl205064205104%_)) + (letrec ((_%loop205065205107%_ + (lambda (_%hd205063205111%_ + _%rule205069205114%_ + _%proc205070205116%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd204925204973%_)) - (let ((_%e204928204981%_ + _%hd205063205111%_)) + (let ((_%e205066205119%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd204925204973%_)))) - (let ((_%lp-hd204929204985%_ + (gx#syntax-e _%hd205063205111%_)))) + (let ((_%lp-hd205067205123%_ (let () (declare (not safe)) - (##car _%e204928204981%_))) - (_%lp-tl204930204988%_ + (##car _%e205066205119%_))) + (_%lp-tl205068205126%_ (let () (declare (not safe)) - (##cdr _%e204928204981%_)))) + (##cdr _%e205066205119%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%lp-hd204929204985%_)) - (let ((_%e204935204991%_ + (gx#stx-pair? _%lp-hd205067205123%_)) + (let ((_%e205073205129%_ (let () (declare (not safe)) - (gx#syntax-e _%lp-hd204929204985%_)))) - (let ((_%hd204936204995%_ + (gx#syntax-e _%lp-hd205067205123%_)))) + (let ((_%hd205074205133%_ (let () (declare (not safe)) - (##car _%e204935204991%_))) - (_%tl204937204998%_ + (##car _%e205073205129%_))) + (_%tl205075205136%_ (let () (declare (not safe)) - (##cdr _%e204935204991%_)))) + (##cdr _%e205073205129%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl204937204998%_)) - (let ((_%e204938205001%_ + (gx#stx-pair? _%tl205075205136%_)) + (let ((_%e205076205139%_ (let () (declare (not safe)) - (gx#syntax-e _%tl204937204998%_)))) - (let ((_%hd204939205005%_ + (gx#syntax-e _%tl205075205136%_)))) + (let ((_%hd205077205143%_ (let () (declare (not safe)) - (##car _%e204938205001%_))) - (_%tl204940205008%_ + (##car _%e205076205139%_))) + (_%tl205078205146%_ (let () (declare (not safe)) - (##cdr _%e204938205001%_)))) + (##cdr _%e205076205139%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl204940205008%_)) - (_%loop204927204969%_ - _%lp-tl204930204988%_ - (cons _%hd204939205005%_ - _%rule204931204976%_) - (cons _%hd204936204995%_ - _%proc204932204978%_)) - (_%g204917204946%_ - _%g204918204950%_)))) - (_%g204917204946%_ _%g204918204950%_)))) - (_%g204917204946%_ _%g204918204950%_)))) - (let ((_%rule204933205011%_ (reverse _%rule204931204976%_)) - (_%proc204934205014%_ (reverse _%proc204932204978%_))) - ((lambda (_%L205017%_ _%L205019%_) + (gx#stx-null? _%tl205078205146%_)) + (_%loop205065205107%_ + _%lp-tl205068205126%_ + (cons _%hd205077205143%_ + _%rule205069205114%_) + (cons _%hd205074205133%_ + _%proc205070205116%_)) + (_%g205055205084%_ + _%g205056205088%_)))) + (_%g205055205084%_ _%g205056205088%_)))) + (_%g205055205084%_ _%g205056205088%_)))) + (let ((_%rule205071205149%_ (reverse _%rule205069205114%_)) + (_%proc205072205152%_ (reverse _%proc205070205116%_))) + ((lambda (_%L205155%_ _%L205157%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2659,103 +2659,103 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L205017%_ - _%L205019%_)) - (let ((__tmp209256 - (lambda (_%g205034205038%_ - _%g205035205041%_ - _%g205036205043%_) + _%L205155%_ + _%L205157%_)) + (let ((__tmp209394 + (lambda (_%g205172205176%_ + _%g205173205179%_ + _%g205174205181%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-inline-rule!)) - (cons _%g205035205041%_ - (cons _%g205034205038%_ + (cons _%g205173205179%_ + (cons _%g205172205176%_ '()))) - _%g205036205043%_)))) + _%g205174205181%_)))) (declare (not safe)) (__foldr2 - __tmp209256 + __tmp209394 '() - _%L205017%_ - _%L205019%_))))) - _%rule204933205011%_ - _%proc204934205014%_)))))) + _%L205155%_ + _%L205157%_))))) + _%rule205071205149%_ + _%proc205072205152%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop204927204969%_ - _%target204924204963%_ + (_%loop205065205107%_ + _%target205062205101%_ '() '())) - (_%g204917204946%_ - _%g204918204950%_))))) - (_%g204917204946%_ _%g204918204950%_)))) - (_%g204917204946%_ _%g204918204950%_))))) - (_%g204916205046%_ _%$stx204913%_)))) + (_%g205055205084%_ + _%g205056205088%_))))) + (_%g205055205084%_ _%g205056205088%_)))) + (_%g205055205084%_ _%g205056205088%_))))) + (_%g205054205184%_ _%$stx205051%_)))) (define |gxc[:0:]#declare-inline-rule!| - (lambda (_%$stx205051%_) - (let* ((_%g205055205073%_ - (lambda (_%g205056205069%_) + (lambda (_%$stx205189%_) + (let* ((_%g205193205211%_ + (lambda (_%g205194205207%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205056205069%_)))) - (_%g205054205128%_ - (lambda (_%g205056205077%_) + _%g205194205207%_)))) + (_%g205192205266%_ + (lambda (_%g205194205215%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205056205077%_)) - (let ((_%e205059205080%_ + (gx#stx-pair? _%g205194205215%_)) + (let ((_%e205197205218%_ (let () (declare (not safe)) - (gx#syntax-e _%g205056205077%_)))) - (let ((_%hd205060205084%_ + (gx#syntax-e _%g205194205215%_)))) + (let ((_%hd205198205222%_ (let () (declare (not safe)) - (##car _%e205059205080%_))) - (_%tl205061205087%_ + (##car _%e205197205218%_))) + (_%tl205199205225%_ (let () (declare (not safe)) - (##cdr _%e205059205080%_)))) + (##cdr _%e205197205218%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205061205087%_)) - (let ((_%e205062205090%_ + (gx#stx-pair? _%tl205199205225%_)) + (let ((_%e205200205228%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205061205087%_)))) - (let ((_%hd205063205094%_ + (gx#syntax-e _%tl205199205225%_)))) + (let ((_%hd205201205232%_ (let () (declare (not safe)) - (##car _%e205062205090%_))) - (_%tl205064205097%_ + (##car _%e205200205228%_))) + (_%tl205202205235%_ (let () (declare (not safe)) - (##cdr _%e205062205090%_)))) + (##cdr _%e205200205228%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205064205097%_)) - (let ((_%e205065205100%_ + (gx#stx-pair? _%tl205202205235%_)) + (let ((_%e205203205238%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205064205097%_)))) - (let ((_%hd205066205104%_ + _%tl205202205235%_)))) + (let ((_%hd205204205242%_ (let () (declare (not safe)) - (##car _%e205065205100%_))) - (_%tl205067205107%_ + (##car _%e205203205238%_))) + (_%tl205205205245%_ (let () (declare (not safe)) - (##cdr _%e205065205100%_)))) + (##cdr _%e205203205238%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205067205107%_)) - ((lambda (_%L205110%_ - _%L205112%_) + _%tl205205205245%_)) + ((lambda (_%L205248%_ + _%L205250%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -2775,7 +2775,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205112%_ '())) + (cons _%L205250%_ '())) '())) '())) (cons (cons (let () @@ -2805,7 +2805,7 @@ (declare (not safe)) (gx#datum->syntax__0 '#f 'type)) '())) - (cons _%L205110%_ '()))) + (cons _%L205248%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (let () (declare (not safe)) @@ -2817,39 +2817,39 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205112%_ '())) + (cons _%L205250%_ '())) (cons '"; ignoring inline rule" '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd205066205104%_ - _%hd205063205094%_) - (_%g205055205073%_ - _%g205056205077%_)))) - (_%g205055205073%_ _%g205056205077%_)))) - (_%g205055205073%_ _%g205056205077%_)))) - (_%g205055205073%_ _%g205056205077%_))))) - (_%g205054205128%_ _%$stx205051%_)))) + _%hd205204205242%_ + _%hd205201205232%_) + (_%g205193205211%_ + _%g205194205215%_)))) + (_%g205193205211%_ _%g205194205215%_)))) + (_%g205193205211%_ _%g205194205215%_)))) + (_%g205193205211%_ _%g205194205215%_))))) + (_%g205192205266%_ _%$stx205189%_)))) (define |gxc[:0:]#declare-primitive-predicates| - (lambda (_%$stx205132%_) - (let* ((_%__stx208736208737%_ _%$stx205132%_) - (_%g205137205162%_ + (lambda (_%$stx205270%_) + (let* ((_%__stx208874208875%_ _%$stx205270%_) + (_%g205275205300%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208736208737%_))))) - (let ((_%__kont208739208740%_ + _%__stx208874208875%_))))) + (let ((_%__kont208877208878%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208741208742%_ - (lambda (_%L205209%_ _%L205211%_ _%L205212%_) + (_%__kont208879208880%_ + (lambda (_%L205347%_ _%L205349%_ _%L205350%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2858,121 +2858,121 @@ (gx#datum->syntax__0 '#f 'declare-primitive-predicate)) - (cons _%L205212%_ (cons _%L205211%_ '()))) + (cons _%L205350%_ (cons _%L205349%_ '()))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-predicates)) - _%L205209%_) + _%L205347%_) '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208736208737%_)) - (let ((_%e205139205238%_ + (gx#stx-pair? _%__stx208874208875%_)) + (let ((_%e205277205376%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208736208737%_)))) - (let ((_%tl205141205245%_ + (gx#syntax-e _%__stx208874208875%_)))) + (let ((_%tl205279205383%_ (let () (declare (not safe)) - (##cdr _%e205139205238%_))) - (_%hd205140205242%_ + (##cdr _%e205277205376%_))) + (_%hd205278205380%_ (let () (declare (not safe)) - (##car _%e205139205238%_)))) + (##car _%e205277205376%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205141205245%_)) - (_%__kont208739208740%_) + (gx#stx-null? _%tl205279205383%_)) + (_%__kont208877208878%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205141205245%_)) - (let ((_%e205148205179%_ + (gx#stx-pair? _%tl205279205383%_)) + (let ((_%e205286205317%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205141205245%_)))) - (let ((_%tl205150205186%_ + (gx#syntax-e _%tl205279205383%_)))) + (let ((_%tl205288205324%_ (let () (declare (not safe)) - (##cdr _%e205148205179%_))) - (_%hd205149205183%_ + (##cdr _%e205286205317%_))) + (_%hd205287205321%_ (let () (declare (not safe)) - (##car _%e205148205179%_)))) + (##car _%e205286205317%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205149205183%_)) - (let ((_%e205151205189%_ + (gx#stx-pair? _%hd205287205321%_)) + (let ((_%e205289205327%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205149205183%_)))) - (let ((_%tl205153205196%_ + _%hd205287205321%_)))) + (let ((_%tl205291205334%_ (let () (declare (not safe)) - (##cdr _%e205151205189%_))) - (_%hd205152205193%_ + (##cdr _%e205289205327%_))) + (_%hd205290205331%_ (let () (declare (not safe)) - (##car _%e205151205189%_)))) + (##car _%e205289205327%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205153205196%_)) - (let ((_%e205154205199%_ + _%tl205291205334%_)) + (let ((_%e205292205337%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205153205196%_)))) - (let ((_%tl205156205206%_ + _%tl205291205334%_)))) + (let ((_%tl205294205344%_ (let () (declare (not safe)) - (##cdr _%e205154205199%_))) - (_%hd205155205203%_ + (##cdr _%e205292205337%_))) + (_%hd205293205341%_ (let () (declare (not safe)) - (##car _%e205154205199%_)))) + (##car _%e205292205337%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205156205206%_)) - (_%__kont208741208742%_ - _%tl205150205186%_ - _%hd205155205203%_ - _%hd205152205193%_) + _%tl205294205344%_)) + (_%__kont208879208880%_ + _%tl205288205324%_ + _%hd205293205341%_ + _%hd205290205331%_) (let () (declare (not safe)) - (_%g205137205162%_))))) + (_%g205275205300%_))))) (let () (declare (not safe)) - (_%g205137205162%_))))) + (_%g205275205300%_))))) (let () (declare (not safe)) - (_%g205137205162%_))))) + (_%g205275205300%_))))) (let () (declare (not safe)) - (_%g205137205162%_)))))) - (let () (declare (not safe)) (_%g205137205162%_))))))) + (_%g205275205300%_)))))) + (let () (declare (not safe)) (_%g205275205300%_))))))) (define |gxc[:0:]#declare-primitive-procedures| - (lambda (_%$stx205256%_) - (let* ((_%__stx208780208781%_ _%$stx205256%_) - (_%g205261205292%_ + (lambda (_%$stx205394%_) + (let* ((_%__stx208918208919%_ _%$stx205394%_) + (_%g205399205430%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208780208781%_))))) - (let ((_%__kont208783208784%_ + _%__stx208918208919%_))))) + (let ((_%__kont208921208922%_ (lambda () (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) '()))) - (_%__kont208785208786%_ - (lambda (_%L205359%_ _%L205361%_ _%L205362%_) + (_%__kont208923208924%_ + (lambda (_%L205497%_ _%L205499%_ _%L205500%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) @@ -2981,883 +2981,883 @@ (gx#datum->syntax__0 '#f 'declare-primitive-procedure)) - (cons _%L205362%_ - (let ((__tmp209257 - (lambda (_%g205382205385%_ - _%g205383205388%_) - (cons _%g205382205385%_ - _%g205383205388%_)))) + (cons _%L205500%_ + (let ((__tmp209395 + (lambda (_%g205520205523%_ + _%g205521205526%_) + (cons _%g205520205523%_ + _%g205521205526%_)))) (declare (not safe)) (__foldr1 - __tmp209257 + __tmp209395 '() - _%L205361%_)))) + _%L205499%_)))) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-procedures)) - _%L205359%_) + _%L205497%_) '())))))) - (let ((_%__match208823208824%_ - (lambda (_%e205269205299%_ - _%hd205270205303%_ - _%tl205271205306%_ - _%e205272205309%_ - _%hd205273205313%_ - _%tl205274205316%_ - _%e205275205319%_ - _%hd205276205323%_ - _%tl205277205326%_ - _%__splice208787208788%_ - _%target205278205329%_ - _%tl205280205332%_) - (letrec ((_%loop205281205335%_ - (lambda (_%hd205279205339%_ _%sig205285205342%_) + (let ((_%__match208961208962%_ + (lambda (_%e205407205437%_ + _%hd205408205441%_ + _%tl205409205444%_ + _%e205410205447%_ + _%hd205411205451%_ + _%tl205412205454%_ + _%e205413205457%_ + _%hd205414205461%_ + _%tl205415205464%_ + _%__splice208925208926%_ + _%target205416205467%_ + _%tl205418205470%_) + (letrec ((_%loop205419205473%_ + (lambda (_%hd205417205477%_ _%sig205423205480%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205279205339%_)) - (let ((_%e205282205345%_ + (gx#stx-pair? _%hd205417205477%_)) + (let ((_%e205420205483%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205279205339%_)))) - (let ((_%lp-tl205284205352%_ + _%hd205417205477%_)))) + (let ((_%lp-tl205422205490%_ (let () (declare (not safe)) - (##cdr _%e205282205345%_))) - (_%lp-hd205283205349%_ + (##cdr _%e205420205483%_))) + (_%lp-hd205421205487%_ (let () (declare (not safe)) - (##car _%e205282205345%_)))) - (_%loop205281205335%_ - _%lp-tl205284205352%_ - (cons _%lp-hd205283205349%_ - _%sig205285205342%_)))) - (let ((_%sig205286205355%_ - (reverse _%sig205285205342%_))) - (_%__kont208785208786%_ - _%tl205274205316%_ - _%sig205286205355%_ - _%hd205276205323%_)))))) - (_%loop205281205335%_ _%target205278205329%_ '()))))) + (##car _%e205420205483%_)))) + (_%loop205419205473%_ + _%lp-tl205422205490%_ + (cons _%lp-hd205421205487%_ + _%sig205423205480%_)))) + (let ((_%sig205424205493%_ + (reverse _%sig205423205480%_))) + (_%__kont208923208924%_ + _%tl205412205454%_ + _%sig205424205493%_ + _%hd205414205461%_)))))) + (_%loop205419205473%_ _%target205416205467%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208780208781%_)) - (let ((_%e205263205398%_ + (gx#stx-pair? _%__stx208918208919%_)) + (let ((_%e205401205536%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208780208781%_)))) - (let ((_%tl205265205405%_ + (gx#syntax-e _%__stx208918208919%_)))) + (let ((_%tl205403205543%_ (let () (declare (not safe)) - (##cdr _%e205263205398%_))) - (_%hd205264205402%_ + (##cdr _%e205401205536%_))) + (_%hd205402205540%_ (let () (declare (not safe)) - (##car _%e205263205398%_)))) + (##car _%e205401205536%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205265205405%_)) - (_%__kont208783208784%_) + (gx#stx-null? _%tl205403205543%_)) + (_%__kont208921208922%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205265205405%_)) - (let ((_%e205272205309%_ + (gx#stx-pair? _%tl205403205543%_)) + (let ((_%e205410205447%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205265205405%_)))) - (let ((_%tl205274205316%_ + (gx#syntax-e _%tl205403205543%_)))) + (let ((_%tl205412205454%_ (let () (declare (not safe)) - (##cdr _%e205272205309%_))) - (_%hd205273205313%_ + (##cdr _%e205410205447%_))) + (_%hd205411205451%_ (let () (declare (not safe)) - (##car _%e205272205309%_)))) + (##car _%e205410205447%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205273205313%_)) - (let ((_%e205275205319%_ + (gx#stx-pair? _%hd205411205451%_)) + (let ((_%e205413205457%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205273205313%_)))) - (let ((_%tl205277205326%_ + _%hd205411205451%_)))) + (let ((_%tl205415205464%_ (let () (declare (not safe)) - (##cdr _%e205275205319%_))) - (_%hd205276205323%_ + (##cdr _%e205413205457%_))) + (_%hd205414205461%_ (let () (declare (not safe)) - (##car _%e205275205319%_)))) + (##car _%e205413205457%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205277205326%_)) - (let ((_%__splice208787208788%_ + _%tl205415205464%_)) + (let ((_%__splice208925208926%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205277205326%_ + _%tl205415205464%_ '0)))) - (let ((_%tl205280205332%_ + (let ((_%tl205418205470%_ (let () (declare (not safe)) (##vector-ref - _%__splice208787208788%_ + _%__splice208925208926%_ '1))) - (_%target205278205329%_ + (_%target205416205467%_ (let () (declare (not safe)) (##vector-ref - _%__splice208787208788%_ + _%__splice208925208926%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205280205332%_)) - (_%__match208823208824%_ - _%e205263205398%_ - _%hd205264205402%_ - _%tl205265205405%_ - _%e205272205309%_ - _%hd205273205313%_ - _%tl205274205316%_ - _%e205275205319%_ - _%hd205276205323%_ - _%tl205277205326%_ - _%__splice208787208788%_ - _%target205278205329%_ - _%tl205280205332%_) + _%tl205418205470%_)) + (_%__match208961208962%_ + _%e205401205536%_ + _%hd205402205540%_ + _%tl205403205543%_ + _%e205410205447%_ + _%hd205411205451%_ + _%tl205412205454%_ + _%e205413205457%_ + _%hd205414205461%_ + _%tl205415205464%_ + _%__splice208925208926%_ + _%target205416205467%_ + _%tl205418205470%_) (let () (declare (not safe)) - (_%g205261205292%_))))) + (_%g205399205430%_))))) (let () (declare (not safe)) - (_%g205261205292%_))))) + (_%g205399205430%_))))) (let () (declare (not safe)) - (_%g205261205292%_))))) + (_%g205399205430%_))))) (let () (declare (not safe)) - (_%g205261205292%_)))))) - (let () (declare (not safe)) (_%g205261205292%_)))))))) + (_%g205399205430%_)))))) + (let () (declare (not safe)) (_%g205399205430%_)))))))) (define |gxc[:0:]#declare-primitive-procedure| - (lambda (_%$stx205417%_) - (let* ((_%__stx208826208827%_ _%$stx205417%_) - (_%g205422205469%_ + (lambda (_%$stx205555%_) + (let* ((_%__stx208964208965%_ _%$stx205555%_) + (_%g205560205607%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208826208827%_))))) - (let ((_%__kont208829208830%_ - (lambda (_%L205631%_ _%L205633%_) + _%__stx208964208965%_))))) + (let ((_%__kont208967208968%_ + (lambda (_%L205769%_ _%L205771%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-case-lambda)) - (cons _%L205633%_ - (let ((__tmp209258 - (lambda (_%g205653205656%_ - _%g205654205659%_) - (cons _%g205653205656%_ - _%g205654205659%_)))) + (cons _%L205771%_ + (let ((__tmp209396 + (lambda (_%g205791205794%_ + _%g205792205797%_) + (cons _%g205791205794%_ + _%g205792205797%_)))) (declare (not safe)) - (__foldr1 __tmp209258 '() _%L205631%_)))))) - (_%__kont208833208834%_ - (lambda (_%L205526%_ _%L205528%_) + (__foldr1 __tmp209396 '() _%L205769%_)))))) + (_%__kont208971208972%_ + (lambda (_%L205664%_ _%L205666%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-primitive-lambda)) - (cons _%L205528%_ - (let ((__tmp209259 - (lambda (_%g205545205548%_ - _%g205546205551%_) - (cons _%g205545205548%_ - _%g205546205551%_)))) + (cons _%L205666%_ + (let ((__tmp209397 + (lambda (_%g205683205686%_ + _%g205684205689%_) + (cons _%g205683205686%_ + _%g205684205689%_)))) (declare (not safe)) - (__foldr1 __tmp209259 '() _%L205526%_))))))) - (let* ((_%__match208893208894%_ - (lambda (_%e205449205476%_ - _%hd205450205480%_ - _%tl205451205483%_ - _%e205452205486%_ - _%hd205453205490%_ - _%tl205454205493%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) - (letrec ((_%loop205458205502%_ - (lambda (_%hd205456205506%_ - _%sig205462205509%_) + (__foldr1 __tmp209397 '() _%L205664%_))))))) + (let* ((_%__match209031209032%_ + (lambda (_%e205587205614%_ + _%hd205588205618%_ + _%tl205589205621%_ + _%e205590205624%_ + _%hd205591205628%_ + _%tl205592205631%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) + (letrec ((_%loop205596205640%_ + (lambda (_%hd205594205644%_ + _%sig205600205647%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205456205506%_)) - (let ((_%e205459205512%_ + (gx#stx-pair? _%hd205594205644%_)) + (let ((_%e205597205650%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205456205506%_)))) - (let ((_%lp-tl205461205519%_ + _%hd205594205644%_)))) + (let ((_%lp-tl205599205657%_ (let () (declare (not safe)) - (##cdr _%e205459205512%_))) - (_%lp-hd205460205516%_ + (##cdr _%e205597205650%_))) + (_%lp-hd205598205654%_ (let () (declare (not safe)) - (##car _%e205459205512%_)))) - (_%loop205458205502%_ - _%lp-tl205461205519%_ - (cons _%lp-hd205460205516%_ - _%sig205462205509%_)))) - (let ((_%sig205463205522%_ - (reverse _%sig205462205509%_))) - (_%__kont208833208834%_ - _%sig205463205522%_ - _%hd205453205490%_)))))) - (_%loop205458205502%_ _%target205455205496%_ '())))) - (_%__match208885208886%_ - (lambda (_%e205449205476%_ - _%hd205450205480%_ - _%tl205451205483%_ - _%e205452205486%_ - _%hd205453205490%_ - _%tl205454205493%_) + (##car _%e205597205650%_)))) + (_%loop205596205640%_ + _%lp-tl205599205657%_ + (cons _%lp-hd205598205654%_ + _%sig205600205647%_)))) + (let ((_%sig205601205660%_ + (reverse _%sig205600205647%_))) + (_%__kont208971208972%_ + _%sig205601205660%_ + _%hd205591205628%_)))))) + (_%loop205596205640%_ _%target205593205634%_ '())))) + (_%__match209023209024%_ + (lambda (_%e205587205614%_ + _%hd205588205618%_ + _%tl205589205621%_ + _%e205590205624%_ + _%hd205591205628%_ + _%tl205592205631%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205454205493%_)) - (let ((_%__splice208835208836%_ + (gx#stx-pair/null? _%tl205592205631%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205454205493%_ + _%tl205592205631%_ '0)))) - (let ((_%tl205457205499%_ + (let ((_%tl205595205637%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '1))) - (_%target205455205496%_ + (_%target205593205634%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205449205476%_ - _%hd205450205480%_ - _%tl205451205483%_ - _%e205452205486%_ - _%hd205453205490%_ - _%tl205454205493%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) + (gx#stx-null? _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205587205614%_ + _%hd205588205618%_ + _%tl205589205621%_ + _%e205590205624%_ + _%hd205591205628%_ + _%tl205592205631%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) (let () (declare (not safe)) - (_%g205422205469%_))))) - (let () (declare (not safe)) (_%g205422205469%_))))) - (_%__match208873208874%_ - (lambda (_%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%e205432205581%_ - _%hd205433205585%_ - _%tl205434205588%_ - _%e205435205591%_ - _%hd205436205595%_ - _%tl205437205598%_ - _%__splice208831208832%_ - _%target205438205601%_ - _%tl205440205604%_) - (letrec ((_%loop205441205607%_ - (lambda (_%hd205439205611%_ - _%sig205445205614%_) + (_%g205560205607%_))))) + (let () (declare (not safe)) (_%g205560205607%_))))) + (_%__match209011209012%_ + (lambda (_%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%e205570205719%_ + _%hd205571205723%_ + _%tl205572205726%_ + _%e205573205729%_ + _%hd205574205733%_ + _%tl205575205736%_ + _%__splice208969208970%_ + _%target205576205739%_ + _%tl205578205742%_) + (letrec ((_%loop205579205745%_ + (lambda (_%hd205577205749%_ + _%sig205583205752%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205439205611%_)) - (let ((_%e205442205617%_ + (gx#stx-pair? _%hd205577205749%_)) + (let ((_%e205580205755%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205439205611%_)))) - (let ((_%lp-tl205444205624%_ + _%hd205577205749%_)))) + (let ((_%lp-tl205582205762%_ (let () (declare (not safe)) - (##cdr _%e205442205617%_))) - (_%lp-hd205443205621%_ + (##cdr _%e205580205755%_))) + (_%lp-hd205581205759%_ (let () (declare (not safe)) - (##car _%e205442205617%_)))) - (_%loop205441205607%_ - _%lp-tl205444205624%_ - (cons _%lp-hd205443205621%_ - _%sig205445205614%_)))) - (let ((_%sig205446205627%_ - (reverse _%sig205445205614%_))) + (##car _%e205580205755%_)))) + (_%loop205579205745%_ + _%lp-tl205582205762%_ + (cons _%lp-hd205581205759%_ + _%sig205583205752%_)))) + (let ((_%sig205584205765%_ + (reverse _%sig205583205752%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205434205588%_)) - (_%__kont208829208830%_ - _%sig205446205627%_ - _%hd205430205575%_) - (_%__match208885208886%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_))))))) - (_%loop205441205607%_ _%target205438205601%_ '()))))) + _%tl205572205726%_)) + (_%__kont208967208968%_ + _%sig205584205765%_ + _%hd205568205713%_) + (_%__match209023209024%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_))))))) + (_%loop205579205745%_ _%target205576205739%_ '()))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208826208827%_)) - (let ((_%e205426205561%_ + (gx#stx-pair? _%__stx208964208965%_)) + (let ((_%e205564205699%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208826208827%_)))) - (let ((_%tl205428205568%_ + (gx#syntax-e _%__stx208964208965%_)))) + (let ((_%tl205566205706%_ (let () (declare (not safe)) - (##cdr _%e205426205561%_))) - (_%hd205427205565%_ + (##cdr _%e205564205699%_))) + (_%hd205565205703%_ (let () (declare (not safe)) - (##car _%e205426205561%_)))) + (##car _%e205564205699%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205428205568%_)) - (let ((_%e205429205571%_ + (gx#stx-pair? _%tl205566205706%_)) + (let ((_%e205567205709%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205428205568%_)))) - (let ((_%tl205431205578%_ + (gx#syntax-e _%tl205566205706%_)))) + (let ((_%tl205569205716%_ (let () (declare (not safe)) - (##cdr _%e205429205571%_))) - (_%hd205430205575%_ + (##cdr _%e205567205709%_))) + (_%hd205568205713%_ (let () (declare (not safe)) - (##car _%e205429205571%_)))) + (##car _%e205567205709%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205431205578%_)) - (let ((_%e205432205581%_ + (gx#stx-pair? _%tl205569205716%_)) + (let ((_%e205570205719%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205431205578%_)))) - (let ((_%tl205434205588%_ + (gx#syntax-e _%tl205569205716%_)))) + (let ((_%tl205572205726%_ (let () (declare (not safe)) - (##cdr _%e205432205581%_))) - (_%hd205433205585%_ + (##cdr _%e205570205719%_))) + (_%hd205571205723%_ (let () (declare (not safe)) - (##car _%e205432205581%_)))) + (##car _%e205570205719%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205433205585%_)) - (let ((_%e205435205591%_ + (gx#stx-pair? _%hd205571205723%_)) + (let ((_%e205573205729%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205433205585%_)))) - (let ((_%tl205437205598%_ + _%hd205571205723%_)))) + (let ((_%tl205575205736%_ (let () (declare (not safe)) - (##cdr _%e205435205591%_))) - (_%hd205436205595%_ + (##cdr _%e205573205729%_))) + (_%hd205574205733%_ (let () (declare (not safe)) - (##car _%e205435205591%_)))) + (##car _%e205573205729%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205436205595%_)) - (if (let ((__tmp209260 - |gxc[1]#_g209261_|)) + _%hd205574205733%_)) + (if (let ((__tmp209398 + |gxc[1]#_g209399_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209260 - _%hd205436205595%_)) + __tmp209398 + _%hd205574205733%_)) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205437205598%_)) - (let ((_%__splice208831208832%_ + _%tl205575205736%_)) + (let ((_%__splice208969208970%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205437205598%_ '0)))) - (let ((_%tl205440205604%_ + (gx#syntax-split-splice _%tl205575205736%_ '0)))) + (let ((_%tl205578205742%_ (let () (declare (not safe)) - (##vector-ref _%__splice208831208832%_ '1))) - (_%target205438205601%_ + (##vector-ref _%__splice208969208970%_ '1))) + (_%target205576205739%_ (let () (declare (not safe)) - (##vector-ref _%__splice208831208832%_ '0)))) + (##vector-ref _%__splice208969208970%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205440205604%_)) - (_%__match208873208874%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%e205432205581%_ - _%hd205433205585%_ - _%tl205434205588%_ - _%e205435205591%_ - _%hd205436205595%_ - _%tl205437205598%_ - _%__splice208831208832%_ - _%target205438205601%_ - _%tl205440205604%_) + (gx#stx-null? _%tl205578205742%_)) + (_%__match209011209012%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%e205570205719%_ + _%hd205571205723%_ + _%tl205572205726%_ + _%e205573205729%_ + _%hd205574205733%_ + _%tl205575205736%_ + _%__splice208969208970%_ + _%target205576205739%_ + _%tl205578205742%_) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + (gx#stx-pair/null? _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205431205578%_ + _%tl205569205716%_ '0)))) - (let ((_%tl205457205499%_ + (let ((_%tl205595205637%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '1))) - (_%target205455205496%_ + (_%target205593205634%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) + (gx#stx-null? _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) (let () (declare (not safe)) - (_%g205422205469%_))))) + (_%g205560205607%_))))) (let () (declare (not safe)) - (_%g205422205469%_)))))) + (_%g205560205607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + (gx#stx-pair/null? _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205431205578%_ + _%tl205569205716%_ '0)))) - (let ((_%tl205457205499%_ + (let ((_%tl205595205637%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '1))) - (_%target205455205496%_ + (##vector-ref _%__splice208973208974%_ '1))) + (_%target205593205634%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '0)))) + (##vector-ref _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) + (gx#stx-null? _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) (let () (declare (not safe)) - (_%g205422205469%_))))) - (let () (declare (not safe)) (_%g205422205469%_)))) + (_%g205560205607%_))))) + (let () (declare (not safe)) (_%g205560205607%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + (gx#stx-pair/null? _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) - (gx#syntax-split-splice _%tl205431205578%_ '0)))) - (let ((_%tl205457205499%_ + (gx#syntax-split-splice _%tl205569205716%_ '0)))) + (let ((_%tl205595205637%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '1))) - (_%target205455205496%_ + (##vector-ref _%__splice208973208974%_ '1))) + (_%target205593205634%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '0)))) + (##vector-ref _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) - (let () (declare (not safe)) (_%g205422205469%_))))) - (let () (declare (not safe)) (_%g205422205469%_)))) + (gx#stx-null? _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) + (let () (declare (not safe)) (_%g205560205607%_))))) + (let () (declare (not safe)) (_%g205560205607%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%tl205431205578%_ '0)))) - (let ((_%tl205457205499%_ + (gx#syntax-split-splice _%tl205569205716%_ '0)))) + (let ((_%tl205595205637%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '1))) - (_%target205455205496%_ + (##vector-ref _%__splice208973208974%_ '1))) + (_%target205593205634%_ (let () (declare (not safe)) - (##vector-ref _%__splice208835208836%_ '0)))) + (##vector-ref _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) - (let () (declare (not safe)) (_%g205422205469%_))))) - (let () (declare (not safe)) (_%g205422205469%_)))))) + (gx#stx-null? _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) + (let () (declare (not safe)) (_%g205560205607%_))))) + (let () (declare (not safe)) (_%g205560205607%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-pair/null? - _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205431205578%_ + _%tl205569205716%_ '0)))) - (let ((_%tl205457205499%_ + (let ((_%tl205595205637%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '1))) - (_%target205455205496%_ + (_%target205593205634%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) + _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) (let () (declare (not safe)) - (_%g205422205469%_))))) + (_%g205560205607%_))))) (let () (declare (not safe)) - (_%g205422205469%_)))))) + (_%g205560205607%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl205431205578%_)) - (let ((_%__splice208835208836%_ + (gx#stx-pair/null? _%tl205569205716%_)) + (let ((_%__splice208973208974%_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl205431205578%_ + _%tl205569205716%_ '0)))) - (let ((_%tl205457205499%_ + (let ((_%tl205595205637%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '1))) - (_%target205455205496%_ + (_%target205593205634%_ (let () (declare (not safe)) (##vector-ref - _%__splice208835208836%_ + _%__splice208973208974%_ '0)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205457205499%_)) - (_%__match208893208894%_ - _%e205426205561%_ - _%hd205427205565%_ - _%tl205428205568%_ - _%e205429205571%_ - _%hd205430205575%_ - _%tl205431205578%_ - _%__splice208835208836%_ - _%target205455205496%_ - _%tl205457205499%_) + _%tl205595205637%_)) + (_%__match209031209032%_ + _%e205564205699%_ + _%hd205565205703%_ + _%tl205566205706%_ + _%e205567205709%_ + _%hd205568205713%_ + _%tl205569205716%_ + _%__splice208973208974%_ + _%target205593205634%_ + _%tl205595205637%_) (let () (declare (not safe)) - (_%g205422205469%_))))) + (_%g205560205607%_))))) (let () (declare (not safe)) - (_%g205422205469%_)))))) - (let () (declare (not safe)) (_%g205422205469%_))))) - (let () (declare (not safe)) (_%g205422205469%_)))))))) + (_%g205560205607%_)))))) + (let () (declare (not safe)) (_%g205560205607%_))))) + (let () (declare (not safe)) (_%g205560205607%_)))))))) (define |gxc[1]#verify-procedure!| - (lambda (_%ctx206816%_ _%id206818%_) - (let ((_%proc206822%_ - (let ((__tmp209262 + (lambda (_%ctx206954%_ _%id206956%_) + (let ((_%proc206960%_ + (let ((__tmp209400 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206818%_))))) + (gx#eval-syntax__0 _%id206956%_))))) (declare (not safe)) - (__with-catch false __tmp209262)))) - (if (procedure? _%proc206822%_) + (__with-catch false __tmp209400)))) + (if (procedure? _%proc206960%_) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown procedure" - _%ctx206816%_ - _%id206818%_)))))) + _%ctx206954%_ + _%id206956%_)))))) (define |gxc[1]#verify-class!| - (lambda (_%ctx206807%_ _%id206809%_) - (let ((_%klass206813%_ - (let ((__tmp209263 + (lambda (_%ctx206945%_ _%id206947%_) + (let ((_%klass206951%_ + (let ((__tmp209401 (lambda () (let () (declare (not safe)) - (gx#eval-syntax__0 _%id206809%_))))) + (gx#eval-syntax__0 _%id206947%_))))) (declare (not safe)) - (__with-catch false __tmp209263)))) + (__with-catch false __tmp209401)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass206813%_ 'class)) + (##structure-instance-of? _%klass206951%_ 'class)) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"unknown class" - _%ctx206807%_ - _%id206809%_)))))) + _%ctx206945%_ + _%id206947%_)))))) (define |gxc[1]#parse-signature| - (lambda (_%ctx206057%_ _%proc206059%_ _%sig206060%_) - (letrec ((_%signature-arity206062%_ - (lambda (_%args206739%_) - (let _%loop206742%_ ((_%rest206745%_ _%args206739%_) - (_%count206747%_ '0)) - (let* ((_%rest206748206759%_ _%rest206745%_) - (_%E206752206765%_ + (lambda (_%ctx206195%_ _%proc206197%_ _%sig206198%_) + (letrec ((_%signature-arity206200%_ + (lambda (_%args206877%_) + (let _%loop206880%_ ((_%rest206883%_ _%args206877%_) + (_%count206885%_ '0)) + (let* ((_%rest206886206897%_ _%rest206883%_) + (_%E206890206903%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest206748206759%_ + _%rest206886206897%_ '([_ . rest]) '([]) '(_))) '#!void))) - (let ((_%K206755206796%_ - (lambda (_%rest206793%_) - (_%loop206742%_ - _%rest206793%_ + (let ((_%K206893206934%_ + (lambda (_%rest206931%_) + (_%loop206880%_ + _%rest206931%_ (let () (declare (not safe)) - (##fx+ _%count206747%_ '1))))) - (_%K206754206785%_ (lambda () _%count206747%_)) - (_%K206753206773%_ - (lambda () (cons _%count206747%_ '())))) - (let ((_%try-match206750206789%_ + (##fx+ _%count206885%_ '1))))) + (_%K206892206923%_ (lambda () _%count206885%_)) + (_%K206891206911%_ + (lambda () (cons _%count206885%_ '())))) + (let ((_%try-match206888206927%_ (lambda () - (if (null? _%rest206748206759%_) - (_%K206754206785%_) - (_%K206753206773%_))))) - (if (pair? _%rest206748206759%_) - (let* ((_%tl206757206800%_ + (if (null? _%rest206886206897%_) + (_%K206892206923%_) + (_%K206891206911%_))))) + (if (pair? _%rest206886206897%_) + (let* ((_%tl206895206938%_ (let () (declare (not safe)) - (##cdr _%rest206748206759%_))) - (_%rest206804%_ _%tl206757206800%_)) - (_%K206755206796%_ _%rest206804%_)) - (_%try-match206750206789%_)))))))) - (_%make-signature206064%_ - (lambda (_%args206621%_ - _%return206623%_ - _%effect206624%_ - _%unchecked206625%_) - (let ((__tmp209264 - (lambda (_%g206626206628%_) + (##cdr _%rest206886206897%_))) + (_%rest206942%_ _%tl206895206938%_)) + (_%K206893206934%_ _%rest206942%_)) + (_%try-match206888206927%_)))))))) + (_%make-signature206202%_ + (lambda (_%args206759%_ + _%return206761%_ + _%effect206762%_ + _%unchecked206763%_) + (let ((__tmp209402 + (lambda (_%g206764206766%_) (|gxc[1]#verify-class!| - _%ctx206057%_ - _%g206626206628%_)))) + _%ctx206195%_ + _%g206764206766%_)))) (declare (not safe)) - (gx#stx-for-each1 __tmp209264 _%args206621%_)) - (|gxc[1]#verify-class!| _%ctx206057%_ _%return206623%_) - (if _%unchecked206625%_ + (gx#stx-for-each1 __tmp209402 _%args206759%_)) + (|gxc[1]#verify-class!| _%ctx206195%_ _%return206761%_) + (if _%unchecked206763%_ (|gxc[1]#verify-procedure!| - _%ctx206057%_ - _%unchecked206625%_) + _%ctx206195%_ + _%unchecked206763%_) '#!void) - (let ((_%arity206632%_ - (_%signature-arity206062%_ + (let ((_%arity206770%_ + (_%signature-arity206200%_ (let () (declare (not safe)) - (gx#stx-map1 gx#stx-e _%args206621%_))))) - (if _%effect206624%_ - (let ((_%effect206635%_ + (gx#stx-map1 gx#stx-e _%args206759%_))))) + (if _%effect206762%_ + (let ((_%effect206773%_ (let () (declare (not safe)) - (gx#syntax->datum _%effect206624%_)))) - (if (and (list? _%effect206635%_) + (gx#syntax->datum _%effect206762%_)))) + (if (and (list? _%effect206773%_) (let () (declare (not safe)) - (__andmap1 symbol? _%effect206635%_))) + (__andmap1 symbol? _%effect206773%_))) '#!void (let () (declare (not safe)) (gx#raise-syntax-error '#f '"bad effect" - _%ctx206057%_ - _%proc206059%_ - _%effect206635%_)))) + _%ctx206195%_ + _%proc206197%_ + _%effect206773%_)))) '#!void) - (cons _%arity206632%_ - (cons (let* ((_%g206638206661%_ - (lambda (_%g206639206657%_) + (cons _%arity206770%_ + (cons (let* ((_%g206776206799%_ + (lambda (_%g206777206795%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206639206657%_)))) - (_%g206637206735%_ - (lambda (_%g206639206665%_) + _%g206777206795%_)))) + (_%g206775206873%_ + (lambda (_%g206777206803%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g206639206665%_)) - (let ((_%e206644206668%_ + _%g206777206803%_)) + (let ((_%e206782206806%_ (let () (declare (not safe)) (gx#syntax-e - _%g206639206665%_)))) - (let ((_%hd206645206672%_ + _%g206777206803%_)))) + (let ((_%hd206783206810%_ (let () (declare (not safe)) - (##car _%e206644206668%_))) - (_%tl206646206675%_ + (##car _%e206782206806%_))) + (_%tl206784206813%_ (let () (declare (not safe)) - (##cdr _%e206644206668%_)))) + (##cdr _%e206782206806%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206646206675%_)) - (let ((_%e206647206678%_ + _%tl206784206813%_)) + (let ((_%e206785206816%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206646206675%_)))) - (let ((_%hd206648206682%_ + (gx#syntax-e _%tl206784206813%_)))) + (let ((_%hd206786206820%_ (let () (declare (not safe)) - (##car _%e206647206678%_))) - (_%tl206649206685%_ + (##car _%e206785206816%_))) + (_%tl206787206823%_ (let () (declare (not safe)) - (##cdr _%e206647206678%_)))) + (##cdr _%e206785206816%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206649206685%_)) - (let ((_%e206650206688%_ + (gx#stx-pair? _%tl206787206823%_)) + (let ((_%e206788206826%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206649206685%_)))) - (let ((_%hd206651206692%_ + (gx#syntax-e _%tl206787206823%_)))) + (let ((_%hd206789206830%_ (let () (declare (not safe)) - (##car _%e206650206688%_))) - (_%tl206652206695%_ + (##car _%e206788206826%_))) + (_%tl206790206833%_ (let () (declare (not safe)) - (##cdr _%e206650206688%_)))) + (##cdr _%e206788206826%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206652206695%_)) - (let ((_%e206653206698%_ + (gx#stx-pair? _%tl206790206833%_)) + (let ((_%e206791206836%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206652206695%_)))) - (let ((_%hd206654206702%_ + (gx#syntax-e _%tl206790206833%_)))) + (let ((_%hd206792206840%_ (let () (declare (not safe)) - (##car _%e206653206698%_))) - (_%tl206655206705%_ + (##car _%e206791206836%_))) + (_%tl206793206843%_ (let () (declare (not safe)) - (##cdr _%e206653206698%_)))) + (##cdr _%e206791206836%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206655206705%_)) - ((lambda (_%L206708%_ - _%L206710%_ - _%L206711%_ - _%L206712%_) + (gx#stx-null? _%tl206793206843%_)) + ((lambda (_%L206846%_ + _%L206848%_ + _%L206849%_ + _%L206850%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -3868,25 +3868,25 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206712%_ '())) + (cons _%L206850%_ '())) (cons 'return: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206711%_ '())) + (cons _%L206849%_ '())) (cons 'effect: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206710%_ '())) + (cons _%L206848%_ '())) (cons 'unchecked: (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206708%_ '())) + (cons _%L206846%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) @@ -3898,779 +3898,779 @@ '())))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd206654206702%_ - _%hd206651206692%_ - _%hd206648206682%_ - _%hd206645206672%_) - (_%g206638206661%_ - _%g206639206665%_)))) - (_%g206638206661%_ _%g206639206665%_)))) - (_%g206638206661%_ _%g206639206665%_)))) - (_%g206638206661%_ _%g206639206665%_)))) + _%hd206792206840%_ + _%hd206789206830%_ + _%hd206786206820%_ + _%hd206783206810%_) + (_%g206776206799%_ + _%g206777206803%_)))) + (_%g206776206799%_ _%g206777206803%_)))) + (_%g206776206799%_ _%g206777206803%_)))) + (_%g206776206799%_ _%g206777206803%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206638206661%_ - _%g206639206665%_))))) - (_%g206637206735%_ - (list _%args206621%_ - _%return206623%_ - _%effect206624%_ - _%unchecked206625%_))) + (_%g206776206799%_ + _%g206777206803%_))))) + (_%g206775206873%_ + (list _%args206759%_ + _%return206761%_ + _%effect206762%_ + _%unchecked206763%_))) '())))))) - (|gxc[1]#verify-procedure!| _%ctx206057%_ _%proc206059%_) - (let* ((_%__stx208904208905%_ _%sig206060%_) - (_%g206071206174%_ + (|gxc[1]#verify-procedure!| _%ctx206195%_ _%proc206197%_) + (let* ((_%__stx209042209043%_ _%sig206198%_) + (_%g206209206312%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx208904208905%_))))) - (let ((_%__kont208907208908%_ - (lambda (_%L206602%_ _%L206604%_) - (_%make-signature206064%_ - _%L206604%_ - _%L206602%_ + _%__stx209042209043%_))))) + (let ((_%__kont209045209046%_ + (lambda (_%L206740%_ _%L206742%_) + (_%make-signature206202%_ + _%L206742%_ + _%L206740%_ '#f '#f))) - (_%__kont208909208910%_ - (lambda (_%L206553%_ _%L206555%_ _%L206556%_) - (_%make-signature206064%_ - _%L206556%_ - _%L206555%_ - _%L206553%_ + (_%__kont209047209048%_ + (lambda (_%L206691%_ _%L206693%_ _%L206694%_) + (_%make-signature206202%_ + _%L206694%_ + _%L206693%_ + _%L206691%_ '#f))) - (_%__kont208911208912%_ - (lambda (_%L206477%_ _%L206479%_ _%L206480%_) - (_%make-signature206064%_ - _%L206480%_ - _%L206479%_ - _%L206477%_ - (let ((__tmp209265 + (_%__kont209049209050%_ + (lambda (_%L206615%_ _%L206617%_ _%L206618%_) + (_%make-signature206202%_ + _%L206618%_ + _%L206617%_ + _%L206615%_ + (let ((__tmp209403 (let () (declare (not safe)) - (gx#stx-e _%proc206059%_)))) + (gx#stx-e _%proc206197%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209265))))) - (_%__kont208913208914%_ - (lambda (_%L206383%_ _%L206385%_ _%L206386%_ _%L206387%_) - (_%make-signature206064%_ - _%L206387%_ - _%L206386%_ + (make-symbol__1 '"##" __tmp209403))))) + (_%__kont209051209052%_ + (lambda (_%L206521%_ _%L206523%_ _%L206524%_ _%L206525%_) + (_%make-signature206202%_ + _%L206525%_ + _%L206524%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206383%_))))) - (_%__kont208915208916%_ - (lambda (_%L206290%_ _%L206292%_) - (_%make-signature206064%_ - _%L206292%_ - _%L206290%_ + (let () (declare (not safe)) (gx#stx-e _%L206521%_))))) + (_%__kont209053209054%_ + (lambda (_%L206428%_ _%L206430%_) + (_%make-signature206202%_ + _%L206430%_ + _%L206428%_ '#f - (let ((__tmp209266 + (let ((__tmp209404 (let () (declare (not safe)) - (gx#stx-e _%proc206059%_)))) + (gx#stx-e _%proc206197%_)))) (declare (not safe)) - (make-symbol__1 '"##" __tmp209266))))) - (_%__kont208917208918%_ - (lambda (_%L206225%_ _%L206227%_ _%L206228%_) - (_%make-signature206064%_ - _%L206228%_ - _%L206227%_ + (make-symbol__1 '"##" __tmp209404))))) + (_%__kont209055209056%_ + (lambda (_%L206363%_ _%L206365%_ _%L206366%_) + (_%make-signature206202%_ + _%L206366%_ + _%L206365%_ '#f - (let () (declare (not safe)) (gx#stx-e _%L206225%_)))))) + (let () (declare (not safe)) (gx#stx-e _%L206363%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx208904208905%_)) - (let ((_%e206075206582%_ + (gx#stx-pair? _%__stx209042209043%_)) + (let ((_%e206213206720%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx208904208905%_)))) - (let ((_%tl206077206589%_ + (gx#syntax-e _%__stx209042209043%_)))) + (let ((_%tl206215206727%_ (let () (declare (not safe)) - (##cdr _%e206075206582%_))) - (_%hd206076206586%_ + (##cdr _%e206213206720%_))) + (_%hd206214206724%_ (let () (declare (not safe)) - (##car _%e206075206582%_)))) + (##car _%e206213206720%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206077206589%_)) - (let ((_%e206078206592%_ + (gx#stx-pair? _%tl206215206727%_)) + (let ((_%e206216206730%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206077206589%_)))) - (let ((_%tl206080206599%_ + (gx#syntax-e _%tl206215206727%_)))) + (let ((_%tl206218206737%_ (let () (declare (not safe)) - (##cdr _%e206078206592%_))) - (_%hd206079206596%_ + (##cdr _%e206216206730%_))) + (_%hd206217206734%_ (let () (declare (not safe)) - (##car _%e206078206592%_)))) + (##car _%e206216206730%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206080206599%_)) - (_%__kont208907208908%_ - _%hd206079206596%_ - _%hd206076206586%_) + (gx#stx-null? _%tl206218206737%_)) + (_%__kont209045209046%_ + _%hd206217206734%_ + _%hd206214206724%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206080206599%_)) - (let ((_%e206090206529%_ + (gx#stx-pair? _%tl206218206737%_)) + (let ((_%e206228206667%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206080206599%_)))) - (let ((_%tl206092206536%_ + _%tl206218206737%_)))) + (let ((_%tl206230206674%_ (let () (declare (not safe)) - (##cdr _%e206090206529%_))) - (_%hd206091206533%_ + (##cdr _%e206228206667%_))) + (_%hd206229206671%_ (let () (declare (not safe)) - (##car _%e206090206529%_)))) + (##car _%e206228206667%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd206091206533%_)) - (let ((_%e206093206539%_ + _%hd206229206671%_)) + (let ((_%e206231206677%_ (let () (declare (not safe)) (gx#stx-e - _%hd206091206533%_)))) - (if (equal? _%e206093206539%_ + _%hd206229206671%_)))) + (if (equal? _%e206231206677%_ 'effect:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206092206536%_)) - (let ((_%e206094206543%_ + _%tl206230206674%_)) + (let ((_%e206232206681%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl206092206536%_)))) - (let ((_%tl206096206550%_ + (gx#syntax-e _%tl206230206674%_)))) + (let ((_%tl206234206688%_ (let () (declare (not safe)) - (##cdr _%e206094206543%_))) - (_%hd206095206547%_ + (##cdr _%e206232206681%_))) + (_%hd206233206685%_ (let () (declare (not safe)) - (##car _%e206094206543%_)))) + (##car _%e206232206681%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206096206550%_)) - (_%__kont208909208910%_ - _%hd206095206547%_ - _%hd206079206596%_ - _%hd206076206586%_) + (gx#stx-null? _%tl206234206688%_)) + (_%__kont209047209048%_ + _%hd206233206685%_ + _%hd206217206734%_ + _%hd206214206724%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206096206550%_)) - (let ((_%e206113206463%_ + (gx#stx-pair? _%tl206234206688%_)) + (let ((_%e206251206601%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206096206550%_)))) - (let ((_%tl206115206470%_ + (gx#syntax-e _%tl206234206688%_)))) + (let ((_%tl206253206608%_ (let () (declare (not safe)) - (##cdr _%e206113206463%_))) - (_%hd206114206467%_ + (##cdr _%e206251206601%_))) + (_%hd206252206605%_ (let () (declare (not safe)) - (##car _%e206113206463%_)))) + (##car _%e206251206601%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd206114206467%_)) - (let ((_%e206116206473%_ + (gx#stx-datum? _%hd206252206605%_)) + (let ((_%e206254206611%_ (let () (declare (not safe)) - (gx#stx-e _%hd206114206467%_)))) - (if (equal? _%e206116206473%_ + (gx#stx-e _%hd206252206605%_)))) + (if (equal? _%e206254206611%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206115206470%_)) - (_%__kont208911208912%_ - _%hd206095206547%_ - _%hd206079206596%_ - _%hd206076206586%_) + _%tl206253206608%_)) + (_%__kont209049209050%_ + _%hd206233206685%_ + _%hd206217206734%_ + _%hd206214206724%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl206115206470%_)) - (let ((_%e206138206373%_ + _%tl206253206608%_)) + (let ((_%e206276206511%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206115206470%_)))) - (let ((_%tl206140206380%_ + _%tl206253206608%_)))) + (let ((_%tl206278206518%_ (let () (declare (not safe)) - (##cdr _%e206138206373%_))) - (_%hd206139206377%_ + (##cdr _%e206276206511%_))) + (_%hd206277206515%_ (let () (declare (not safe)) - (##car _%e206138206373%_)))) + (##car _%e206276206511%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206140206380%_)) - (_%__kont208913208914%_ - _%hd206139206377%_ - _%hd206095206547%_ - _%hd206079206596%_ - _%hd206076206586%_) + _%tl206278206518%_)) + (_%__kont209051209052%_ + _%hd206277206515%_ + _%hd206233206685%_ + _%hd206217206734%_ + _%hd206214206724%_) (let () (declare (not safe)) - (_%g206071206174%_))))) + (_%g206209206312%_))))) (let () (declare (not safe)) - (_%g206071206174%_)))) + (_%g206209206312%_)))) (let () (declare (not safe)) - (_%g206071206174%_)))) + (_%g206209206312%_)))) (let () (declare (not safe)) - (_%g206071206174%_))))) + (_%g206209206312%_))))) (let () (declare (not safe)) - (_%g206071206174%_)))))) - (let () (declare (not safe)) (_%g206071206174%_))) + (_%g206209206312%_)))))) + (let () (declare (not safe)) (_%g206209206312%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e206093206539%_ + (if (equal? _%e206231206677%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206092206536%_)) - (_%__kont208915208916%_ - _%hd206079206596%_ - _%hd206076206586%_) + _%tl206230206674%_)) + (_%__kont209053209054%_ + _%hd206217206734%_ + _%hd206214206724%_) (if (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-pair? _%tl206092206536%_)) - (let ((_%e206166206215%_ + (gx#stx-pair? _%tl206230206674%_)) + (let ((_%e206304206353%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206092206536%_)))) - (let ((_%tl206168206222%_ + (gx#syntax-e _%tl206230206674%_)))) + (let ((_%tl206306206360%_ (let () (declare (not safe)) - (##cdr _%e206166206215%_))) - (_%hd206167206219%_ + (##cdr _%e206304206353%_))) + (_%hd206305206357%_ (let () (declare (not safe)) - (##car _%e206166206215%_)))) + (##car _%e206304206353%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl206168206222%_)) - (_%__kont208917208918%_ - _%hd206167206219%_ - _%hd206079206596%_ - _%hd206076206586%_) + (gx#stx-null? _%tl206306206360%_)) + (_%__kont209055209056%_ + _%hd206305206357%_ + _%hd206217206734%_ + _%hd206214206724%_) (let () (declare (not safe)) - (_%g206071206174%_))))) - (let () (declare (not safe)) (_%g206071206174%_)))) - (let () (declare (not safe)) (_%g206071206174%_))))) + (_%g206209206312%_))))) + (let () (declare (not safe)) (_%g206209206312%_)))) + (let () (declare (not safe)) (_%g206209206312%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g206071206174%_))))) + (_%g206209206312%_))))) (let () (declare (not safe)) - (_%g206071206174%_)))))) - (let () (declare (not safe)) (_%g206071206174%_))))) - (let () (declare (not safe)) (_%g206071206174%_)))))))) + (_%g206209206312%_)))))) + (let () (declare (not safe)) (_%g206209206312%_))))) + (let () (declare (not safe)) (_%g206209206312%_)))))))) (define |gxc[1]#signature->unchecked-signature| - (lambda (_%sig205668%_) - (let* ((_%g205671205751%_ - (lambda (_%g205672205747%_) + (lambda (_%sig205806%_) + (let* ((_%g205809205889%_ + (lambda (_%g205810205885%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g205672205747%_)))) - (_%g205670206053%_ - (lambda (_%g205672205755%_) + _%g205810205885%_)))) + (_%g205808206191%_ + (lambda (_%g205810205893%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g205672205755%_)) - (let ((_%e205678205758%_ + (gx#stx-pair? _%g205810205893%_)) + (let ((_%e205816205896%_ (let () (declare (not safe)) - (gx#syntax-e _%g205672205755%_)))) - (let ((_%hd205679205762%_ + (gx#syntax-e _%g205810205893%_)))) + (let ((_%hd205817205900%_ (let () (declare (not safe)) - (##car _%e205678205758%_))) - (_%tl205680205765%_ + (##car _%e205816205896%_))) + (_%tl205818205903%_ (let () (declare (not safe)) - (##cdr _%e205678205758%_)))) + (##cdr _%e205816205896%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205680205765%_)) - (let ((_%e205681205768%_ + (gx#stx-pair? _%tl205818205903%_)) + (let ((_%e205819205906%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205680205765%_)))) - (let ((_%hd205682205772%_ + (gx#syntax-e _%tl205818205903%_)))) + (let ((_%hd205820205910%_ (let () (declare (not safe)) - (##car _%e205681205768%_))) - (_%tl205683205775%_ + (##car _%e205819205906%_))) + (_%tl205821205913%_ (let () (declare (not safe)) - (##cdr _%e205681205768%_)))) + (##cdr _%e205819205906%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205682205772%_)) - (let ((_%e205684205778%_ + (gx#stx-datum? _%hd205820205910%_)) + (let ((_%e205822205916%_ (let () (declare (not safe)) - (gx#stx-e _%hd205682205772%_)))) - (if (equal? _%e205684205778%_ + (gx#stx-e _%hd205820205910%_)))) + (if (equal? _%e205822205916%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205683205775%_)) - (let ((_%e205685205782%_ + _%tl205821205913%_)) + (let ((_%e205823205920%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205683205775%_)))) - (let ((_%hd205686205786%_ + _%tl205821205913%_)))) + (let ((_%hd205824205924%_ (let () (declare (not safe)) - (##car _%e205685205782%_))) - (_%tl205687205789%_ + (##car _%e205823205920%_))) + (_%tl205825205927%_ (let () (declare (not safe)) - (##cdr _%e205685205782%_)))) + (##cdr _%e205823205920%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205686205786%_)) - (let ((_%e205688205792%_ + _%hd205824205924%_)) + (let ((_%e205826205930%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd205686205786%_)))) - (let ((_%hd205689205796%_ + (gx#syntax-e _%hd205824205924%_)))) + (let ((_%hd205827205934%_ (let () (declare (not safe)) - (##car _%e205688205792%_))) - (_%tl205690205799%_ + (##car _%e205826205930%_))) + (_%tl205828205937%_ (let () (declare (not safe)) - (##cdr _%e205688205792%_)))) + (##cdr _%e205826205930%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205689205796%_)) - (if (let ((__tmp209267 |gxc[1]#_g209268_|)) + (gx#identifier? _%hd205827205934%_)) + (if (let ((__tmp209405 |gxc[1]#_g209406_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209267 - _%hd205689205796%_)) + __tmp209405 + _%hd205827205934%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205690205799%_)) - (let ((_%e205691205802%_ + (gx#stx-pair? _%tl205828205937%_)) + (let ((_%e205829205940%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205690205799%_)))) - (let ((_%hd205692205806%_ + (gx#syntax-e _%tl205828205937%_)))) + (let ((_%hd205830205944%_ (let () (declare (not safe)) - (##car _%e205691205802%_))) - (_%tl205693205809%_ + (##car _%e205829205940%_))) + (_%tl205831205947%_ (let () (declare (not safe)) - (##cdr _%e205691205802%_)))) + (##cdr _%e205829205940%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205693205809%_)) + (gx#stx-null? _%tl205831205947%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205687205789%_)) - (let ((_%e205694205812%_ + _%tl205825205927%_)) + (let ((_%e205832205950%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205687205789%_)))) - (let ((_%hd205695205816%_ + _%tl205825205927%_)))) + (let ((_%hd205833205954%_ (let () (declare (not safe)) - (##car _%e205694205812%_))) - (_%tl205696205819%_ + (##car _%e205832205950%_))) + (_%tl205834205957%_ (let () (declare (not safe)) - (##cdr _%e205694205812%_)))) + (##cdr _%e205832205950%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205695205816%_)) - (let ((_%e205697205822%_ + _%hd205833205954%_)) + (let ((_%e205835205960%_ (let () (declare (not safe)) (gx#stx-e - _%hd205695205816%_)))) - (if (equal? _%e205697205822%_ + _%hd205833205954%_)))) + (if (equal? _%e205835205960%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205696205819%_)) - (let ((_%e205698205826%_ + (gx#stx-pair? _%tl205834205957%_)) + (let ((_%e205836205964%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205696205819%_)))) - (let ((_%hd205699205830%_ + (gx#syntax-e _%tl205834205957%_)))) + (let ((_%hd205837205968%_ (let () (declare (not safe)) - (##car _%e205698205826%_))) - (_%tl205700205833%_ + (##car _%e205836205964%_))) + (_%tl205838205971%_ (let () (declare (not safe)) - (##cdr _%e205698205826%_)))) + (##cdr _%e205836205964%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205699205830%_)) - (let ((_%e205701205836%_ + (gx#stx-pair? _%hd205837205968%_)) + (let ((_%e205839205974%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205699205830%_)))) - (let ((_%hd205702205840%_ + (gx#syntax-e _%hd205837205968%_)))) + (let ((_%hd205840205978%_ (let () (declare (not safe)) - (##car _%e205701205836%_))) - (_%tl205703205843%_ + (##car _%e205839205974%_))) + (_%tl205841205981%_ (let () (declare (not safe)) - (##cdr _%e205701205836%_)))) + (##cdr _%e205839205974%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205702205840%_)) - (if (let ((__tmp209269 - |gxc[1]#_g209270_|)) + (gx#identifier? _%hd205840205978%_)) + (if (let ((__tmp209407 + |gxc[1]#_g209408_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209269 - _%hd205702205840%_)) + __tmp209407 + _%hd205840205978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205703205843%_)) - (let ((_%e205704205846%_ + _%tl205841205981%_)) + (let ((_%e205842205984%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205703205843%_)))) - (let ((_%hd205705205850%_ + _%tl205841205981%_)))) + (let ((_%hd205843205988%_ (let () (declare (not safe)) - (##car _%e205704205846%_))) - (_%tl205706205853%_ + (##car _%e205842205984%_))) + (_%tl205844205991%_ (let () (declare (not safe)) - (##cdr _%e205704205846%_)))) + (##cdr _%e205842205984%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205706205853%_)) + _%tl205844205991%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205700205833%_)) - (let ((_%e205707205856%_ + _%tl205838205971%_)) + (let ((_%e205845205994%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205700205833%_)))) - (let ((_%hd205708205860%_ + (gx#syntax-e _%tl205838205971%_)))) + (let ((_%hd205846205998%_ (let () (declare (not safe)) - (##car _%e205707205856%_))) - (_%tl205709205863%_ + (##car _%e205845205994%_))) + (_%tl205847206001%_ (let () (declare (not safe)) - (##cdr _%e205707205856%_)))) + (##cdr _%e205845205994%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205708205860%_)) - (let ((_%e205710205866%_ + (gx#stx-datum? _%hd205846205998%_)) + (let ((_%e205848206004%_ (let () (declare (not safe)) - (gx#stx-e _%hd205708205860%_)))) - (if (equal? _%e205710205866%_ 'effect:) + (gx#stx-e _%hd205846205998%_)))) + (if (equal? _%e205848206004%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205709205863%_)) - (let ((_%e205711205870%_ + (gx#stx-pair? _%tl205847206001%_)) + (let ((_%e205849206008%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205709205863%_)))) - (let ((_%hd205712205874%_ + _%tl205847206001%_)))) + (let ((_%hd205850206012%_ (let () (declare (not safe)) - (##car _%e205711205870%_))) - (_%tl205713205877%_ + (##car _%e205849206008%_))) + (_%tl205851206015%_ (let () (declare (not safe)) - (##cdr _%e205711205870%_)))) + (##cdr _%e205849206008%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205712205874%_)) - (let ((_%e205714205880%_ + _%hd205850206012%_)) + (let ((_%e205852206018%_ (let () (declare (not safe)) (gx#syntax-e - _%hd205712205874%_)))) - (let ((_%hd205715205884%_ + _%hd205850206012%_)))) + (let ((_%hd205853206022%_ (let () (declare (not safe)) - (##car _%e205714205880%_))) - (_%tl205716205887%_ + (##car _%e205852206018%_))) + (_%tl205854206025%_ (let () (declare (not safe)) - (##cdr _%e205714205880%_)))) + (##cdr _%e205852206018%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd205715205884%_)) - (if (let ((__tmp209271 - |gxc[1]#_g209272_|)) + _%hd205853206022%_)) + (if (let ((__tmp209409 + |gxc[1]#_g209410_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209271 - _%hd205715205884%_)) + __tmp209409 + _%hd205853206022%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205716205887%_)) - (let ((_%e205717205890%_ + _%tl205854206025%_)) + (let ((_%e205855206028%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl205716205887%_)))) - (let ((_%hd205718205894%_ + (gx#syntax-e _%tl205854206025%_)))) + (let ((_%hd205856206032%_ (let () (declare (not safe)) - (##car _%e205717205890%_))) - (_%tl205719205897%_ + (##car _%e205855206028%_))) + (_%tl205857206035%_ (let () (declare (not safe)) - (##cdr _%e205717205890%_)))) + (##cdr _%e205855206028%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205719205897%_)) + (gx#stx-null? _%tl205857206035%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205713205877%_)) - (let ((_%e205720205900%_ + (gx#stx-pair? _%tl205851206015%_)) + (let ((_%e205858206038%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205713205877%_)))) - (let ((_%hd205721205904%_ + (gx#syntax-e _%tl205851206015%_)))) + (let ((_%hd205859206042%_ (let () (declare (not safe)) - (##car _%e205720205900%_))) - (_%tl205722205907%_ + (##car _%e205858206038%_))) + (_%tl205860206045%_ (let () (declare (not safe)) - (##cdr _%e205720205900%_)))) + (##cdr _%e205858206038%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd205721205904%_)) - (let ((_%e205723205910%_ + (gx#stx-datum? _%hd205859206042%_)) + (let ((_%e205861206048%_ (let () (declare (not safe)) (gx#stx-e - _%hd205721205904%_)))) - (if (equal? _%e205723205910%_ + _%hd205859206042%_)))) + (if (equal? _%e205861206048%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205722205907%_)) - (let ((_%e205724205914%_ + _%tl205860206045%_)) + (let ((_%e205862206052%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205722205907%_)))) - (let ((_%hd205725205918%_ + _%tl205860206045%_)))) + (let ((_%hd205863206056%_ (let () (declare (not safe)) - (##car _%e205724205914%_))) - (_%tl205726205921%_ + (##car _%e205862206052%_))) + (_%tl205864206059%_ (let () (declare (not safe)) - (##cdr _%e205724205914%_)))) + (##cdr _%e205862206052%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd205725205918%_)) - (let ((_%e205727205924%_ + _%hd205863206056%_)) + (let ((_%e205865206062%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd205725205918%_)))) - (let ((_%hd205728205928%_ + (gx#syntax-e _%hd205863206056%_)))) + (let ((_%hd205866206066%_ (let () (declare (not safe)) - (##car _%e205727205924%_))) - (_%tl205729205931%_ + (##car _%e205865206062%_))) + (_%tl205867206069%_ (let () (declare (not safe)) - (##cdr _%e205727205924%_)))) + (##cdr _%e205865206062%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205728205928%_)) - (if (let ((__tmp209273 |gxc[1]#_g209274_|)) + (gx#identifier? _%hd205866206066%_)) + (if (let ((__tmp209411 |gxc[1]#_g209412_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209273 - _%hd205728205928%_)) + __tmp209411 + _%hd205866206066%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205729205931%_)) - (let ((_%e205730205934%_ + (gx#stx-pair? _%tl205867206069%_)) + (let ((_%e205868206072%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205729205931%_)))) - (let ((_%hd205731205938%_ + (gx#syntax-e _%tl205867206069%_)))) + (let ((_%hd205869206076%_ (let () (declare (not safe)) - (##car _%e205730205934%_))) - (_%tl205732205941%_ + (##car _%e205868206072%_))) + (_%tl205870206079%_ (let () (declare (not safe)) - (##cdr _%e205730205934%_)))) + (##cdr _%e205868206072%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl205732205941%_)) + (gx#stx-null? _%tl205870206079%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205726205921%_)) - (let ((_%e205733205944%_ + _%tl205864206059%_)) + (let ((_%e205871206082%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205726205921%_)))) - (let ((_%hd205734205948%_ + _%tl205864206059%_)))) + (let ((_%hd205872206086%_ (let () (declare (not safe)) - (##car _%e205733205944%_))) - (_%tl205735205951%_ + (##car _%e205871206082%_))) + (_%tl205873206089%_ (let () (declare (not safe)) - (##cdr _%e205733205944%_)))) + (##cdr _%e205871206082%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd205734205948%_)) - (let ((_%e205736205954%_ + _%hd205872206086%_)) + (let ((_%e205874206092%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd205734205948%_)))) - (if (equal? _%e205736205954%_ 'origin:) + (gx#stx-e _%hd205872206086%_)))) + (if (equal? _%e205874206092%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl205735205951%_)) - (let ((_%e205737205958%_ + (gx#stx-pair? _%tl205873206089%_)) + (let ((_%e205875206096%_ (let () (declare (not safe)) - (gx#syntax-e _%tl205735205951%_)))) - (let ((_%hd205738205962%_ + (gx#syntax-e _%tl205873206089%_)))) + (let ((_%hd205876206100%_ (let () (declare (not safe)) - (##car _%e205737205958%_))) - (_%tl205739205965%_ + (##car _%e205875206096%_))) + (_%tl205877206103%_ (let () (declare (not safe)) - (##cdr _%e205737205958%_)))) + (##cdr _%e205875206096%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd205738205962%_)) - (let ((_%e205740205968%_ + (gx#stx-pair? _%hd205876206100%_)) + (let ((_%e205878206106%_ (let () (declare (not safe)) - (gx#syntax-e _%hd205738205962%_)))) - (let ((_%hd205741205972%_ + (gx#syntax-e _%hd205876206100%_)))) + (let ((_%hd205879206110%_ (let () (declare (not safe)) - (##car _%e205740205968%_))) - (_%tl205742205975%_ + (##car _%e205878206106%_))) + (_%tl205880206113%_ (let () (declare (not safe)) - (##cdr _%e205740205968%_)))) + (##cdr _%e205878206106%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd205741205972%_)) - (if (let ((__tmp209275 - |gxc[1]#_g209276_|)) + (gx#identifier? _%hd205879206110%_)) + (if (let ((__tmp209413 + |gxc[1]#_g209414_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209275 - _%hd205741205972%_)) + __tmp209413 + _%hd205879206110%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl205742205975%_)) - (let ((_%e205743205978%_ + _%tl205880206113%_)) + (let ((_%e205881206116%_ (let () (declare (not safe)) (gx#syntax-e - _%tl205742205975%_)))) - (let ((_%hd205744205982%_ + _%tl205880206113%_)))) + (let ((_%hd205882206120%_ (let () (declare (not safe)) - (##car _%e205743205978%_))) - (_%tl205745205985%_ + (##car _%e205881206116%_))) + (_%tl205883206123%_ (let () (declare (not safe)) - (##cdr _%e205743205978%_)))) + (##cdr _%e205881206116%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205745205985%_)) + _%tl205883206123%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl205739205965%_)) - ((lambda (_%L205988%_ + _%tl205877206103%_)) + ((lambda (_%L206126%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L205990%_ - _%L205991%_ - _%L205992%_ - _%L205993%_) - (if (let () (declare (not safe)) (gx#stx-e _%L205990%_)) - (cons _%L205990%_ + _%L206128%_ + _%L206129%_ + _%L206130%_ + _%L206131%_) + (if (let () (declare (not safe)) (gx#stx-e _%L206128%_)) + (cons _%L206128%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4681,180 +4681,180 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205992%_ '())) + (cons _%L206130%_ '())) (cons 'origin: (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L205988%_ '())) + (cons _%L206126%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '#f)) - _%hd205744205982%_ - _%hd205731205938%_ - _%hd205718205894%_ - _%hd205705205850%_ - _%hd205692205806%_) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) + _%hd205882206120%_ + _%hd205869206076%_ + _%hd205856206032%_ + _%hd205843205988%_ + _%hd205830205944%_) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_))) - (_%g205671205751%_ _%g205672205755%_)))) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_))) + (_%g205809205889%_ _%g205810205893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)))) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_))) - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_))) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_))) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_))) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_))) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)))) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g205671205751%_ - _%g205672205755%_)) - (_%g205671205751%_ - _%g205672205755%_))) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_)))) - (_%g205671205751%_ _%g205672205755%_))))) - (_%g205670206053%_ _%sig205668%_)))) + (_%g205809205889%_ + _%g205810205893%_)) + (_%g205809205889%_ + _%g205810205893%_))) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_)))) + (_%g205809205889%_ _%g205810205893%_))))) + (_%g205808206191%_ _%sig205806%_)))) (define |gxc[:0:]#declare-primitive-predicate| - (lambda (_%stx206825%_) - (let* ((_%g206828206846%_ - (lambda (_%g206829206842%_) + (lambda (_%stx206963%_) + (let* ((_%g206966206984%_ + (lambda (_%g206967206980%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206829206842%_)))) - (_%g206827206901%_ - (lambda (_%g206829206850%_) + _%g206967206980%_)))) + (_%g206965207039%_ + (lambda (_%g206967206988%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206829206850%_)) - (let ((_%e206832206853%_ + (gx#stx-pair? _%g206967206988%_)) + (let ((_%e206970206991%_ (let () (declare (not safe)) - (gx#syntax-e _%g206829206850%_)))) - (let ((_%hd206833206857%_ + (gx#syntax-e _%g206967206988%_)))) + (let ((_%hd206971206995%_ (let () (declare (not safe)) - (##car _%e206832206853%_))) - (_%tl206834206860%_ + (##car _%e206970206991%_))) + (_%tl206972206998%_ (let () (declare (not safe)) - (##cdr _%e206832206853%_)))) + (##cdr _%e206970206991%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206834206860%_)) - (let ((_%e206835206863%_ + (gx#stx-pair? _%tl206972206998%_)) + (let ((_%e206973207001%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206834206860%_)))) - (let ((_%hd206836206867%_ + (gx#syntax-e _%tl206972206998%_)))) + (let ((_%hd206974207005%_ (let () (declare (not safe)) - (##car _%e206835206863%_))) - (_%tl206837206870%_ + (##car _%e206973207001%_))) + (_%tl206975207008%_ (let () (declare (not safe)) - (##cdr _%e206835206863%_)))) + (##cdr _%e206973207001%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206837206870%_)) - (let ((_%e206838206873%_ + (gx#stx-pair? _%tl206975207008%_)) + (let ((_%e206976207011%_ (let () (declare (not safe)) (gx#syntax-e - _%tl206837206870%_)))) - (let ((_%hd206839206877%_ + _%tl206975207008%_)))) + (let ((_%hd206977207015%_ (let () (declare (not safe)) - (##car _%e206838206873%_))) - (_%tl206840206880%_ + (##car _%e206976207011%_))) + (_%tl206978207018%_ (let () (declare (not safe)) - (##cdr _%e206838206873%_)))) + (##cdr _%e206976207011%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206840206880%_)) - ((lambda (_%L206883%_ - _%L206885%_) + _%tl206978207018%_)) + ((lambda (_%L207021%_ + _%L207023%_) (if (and (let () (declare (not safe)) (gx#identifier? - _%L206885%_)) + _%L207023%_)) (let () (declare (not safe)) (gx#identifier? - _%L206883%_))) + _%L207021%_))) (begin (|gxc[1]#verify-procedure!| - _%stx206825%_ - _%L206885%_) + _%stx206963%_ + _%L207023%_) (|gxc[1]#verify-class!| - _%stx206825%_ - _%L206883%_) + _%stx206963%_ + _%L207021%_) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206885%_ + (cons _%L207023%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -4865,268 +4865,268 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L206883%_ '())) + (cons _%L207021%_ '())) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g206828206846%_ - _%g206829206850%_))) - _%hd206839206877%_ - _%hd206836206867%_) - (_%g206828206846%_ - _%g206829206850%_)))) - (_%g206828206846%_ _%g206829206850%_)))) - (_%g206828206846%_ _%g206829206850%_)))) - (_%g206828206846%_ _%g206829206850%_))))) - (_%g206827206901%_ _%stx206825%_)))) + (_%g206966206984%_ + _%g206967206988%_))) + _%hd206977207015%_ + _%hd206974207005%_) + (_%g206966206984%_ + _%g206967206988%_)))) + (_%g206966206984%_ _%g206967206988%_)))) + (_%g206966206984%_ _%g206967206988%_)))) + (_%g206966206984%_ _%g206967206988%_))))) + (_%g206965207039%_ _%stx206963%_)))) (define |gxc[:0:]#declare-primitive-lambda| - (lambda (_%stx206905%_) - (let* ((_%g206908206932%_ - (lambda (_%g206909206928%_) + (lambda (_%stx207043%_) + (let* ((_%g207046207070%_ + (lambda (_%g207047207066%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g206909206928%_)))) - (_%g206907207215%_ - (lambda (_%g206909206936%_) + _%g207047207066%_)))) + (_%g207045207353%_ + (lambda (_%g207047207074%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g206909206936%_)) - (let ((_%e206912206939%_ + (gx#stx-pair? _%g207047207074%_)) + (let ((_%e207050207077%_ (let () (declare (not safe)) - (gx#syntax-e _%g206909206936%_)))) - (let ((_%hd206913206943%_ + (gx#syntax-e _%g207047207074%_)))) + (let ((_%hd207051207081%_ (let () (declare (not safe)) - (##car _%e206912206939%_))) - (_%tl206914206946%_ + (##car _%e207050207077%_))) + (_%tl207052207084%_ (let () (declare (not safe)) - (##cdr _%e206912206939%_)))) + (##cdr _%e207050207077%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl206914206946%_)) - (let ((_%e206915206949%_ + (gx#stx-pair? _%tl207052207084%_)) + (let ((_%e207053207087%_ (let () (declare (not safe)) - (gx#syntax-e _%tl206914206946%_)))) - (let ((_%hd206916206953%_ + (gx#syntax-e _%tl207052207084%_)))) + (let ((_%hd207054207091%_ (let () (declare (not safe)) - (##car _%e206915206949%_))) - (_%tl206917206956%_ + (##car _%e207053207087%_))) + (_%tl207055207094%_ (let () (declare (not safe)) - (##cdr _%e206915206949%_)))) + (##cdr _%e207053207087%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl206917206956%_)) - (let ((_g209277_ + (gx#stx-pair/null? _%tl207055207094%_)) + (let ((_g209415_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl206917206956%_ + _%tl207055207094%_ '0)))) (begin - (let ((_g209278_ + (let ((_g209416_ (let () (declare (not safe)) - (if (##values? _g209277_) - (##vector-length - _g209277_) + (if (##values? _g209415_) + (##values-length + _g209415_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209278_ 2))) + (##fx= _g209416_ 2))) (error "Context expects 2 values" - _g209278_))) - (let ((_%target206918206959%_ + _g209416_))) + (let ((_%target207056207097%_ (let () (declare (not safe)) - (##vector-ref _g209277_ 0))) - (_%tl206920206962%_ + (##values-ref _g209415_ 0))) + (_%tl207058207100%_ (let () (declare (not safe)) - (##vector-ref - _g209277_ + (##values-ref + _g209415_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl206920206962%_)) - (letrec ((_%loop206921206965%_ - (lambda (_%hd206919206969%_ + _%tl207058207100%_)) + (letrec ((_%loop207059207103%_ + (lambda (_%hd207057207107%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signature206925206972%_) + _%signature207063207110%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd206919206969%_)) - (let ((_%e206922206975%_ + (gx#stx-pair? _%hd207057207107%_)) + (let ((_%e207060207113%_ (let () (declare (not safe)) - (gx#syntax-e _%hd206919206969%_)))) - (let ((_%lp-hd206923206979%_ + (gx#syntax-e _%hd207057207107%_)))) + (let ((_%lp-hd207061207117%_ (let () (declare (not safe)) - (##car _%e206922206975%_))) - (_%lp-tl206924206982%_ + (##car _%e207060207113%_))) + (_%lp-tl207062207120%_ (let () (declare (not safe)) - (##cdr _%e206922206975%_)))) - (_%loop206921206965%_ - _%lp-tl206924206982%_ - (cons _%lp-hd206923206979%_ - _%signature206925206972%_)))) - (let ((_%signature206926206985%_ - (reverse _%signature206925206972%_))) - ((lambda (_%L206989%_ _%L206991%_) + (##cdr _%e207060207113%_)))) + (_%loop207059207103%_ + _%lp-tl207062207120%_ + (cons _%lp-hd207061207117%_ + _%signature207063207110%_)))) + (let ((_%signature207064207123%_ + (reverse _%signature207063207110%_))) + ((lambda (_%L207127%_ _%L207129%_) (if (let () (declare (not safe)) - (gx#identifier? _%L206991%_)) - (let* ((_%g207009207024%_ - (lambda (_%g207010207020%_) + (gx#identifier? _%L207129%_)) + (let* ((_%g207147207162%_ + (lambda (_%g207148207158%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207010207020%_)))) - (_%g207008207203%_ - (lambda (_%g207010207028%_) + _%g207148207158%_)))) + (_%g207146207341%_ + (lambda (_%g207148207166%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207010207028%_)) - (let ((_%e207013207031%_ + _%g207148207166%_)) + (let ((_%e207151207169%_ (let () (declare (not safe)) (gx#syntax-e - _%g207010207028%_)))) - (let ((_%hd207014207035%_ + _%g207148207166%_)))) + (let ((_%hd207152207173%_ (let () (declare (not safe)) - (##car _%e207013207031%_))) - (_%tl207015207038%_ + (##car _%e207151207169%_))) + (_%tl207153207176%_ (let () (declare (not safe)) - (##cdr _%e207013207031%_)))) + (##cdr _%e207151207169%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207015207038%_)) - (let ((_%e207016207041%_ + _%tl207153207176%_)) + (let ((_%e207154207179%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207015207038%_)))) - (let ((_%hd207017207045%_ + (gx#syntax-e _%tl207153207176%_)))) + (let ((_%hd207155207183%_ (let () (declare (not safe)) - (##car _%e207016207041%_))) - (_%tl207018207048%_ + (##car _%e207154207179%_))) + (_%tl207156207186%_ (let () (declare (not safe)) - (##cdr _%e207016207041%_)))) + (##cdr _%e207154207179%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207018207048%_)) - ((lambda (_%L207051%_ _%L207053%_) - (let* ((_%g207069207077%_ - (lambda (_%g207070207073%_) + (gx#stx-null? _%tl207156207186%_)) + ((lambda (_%L207189%_ _%L207191%_) + (let* ((_%g207207207215%_ + (lambda (_%g207208207211%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207070207073%_)))) - (_%g207068207199%_ - (lambda (_%g207070207081%_) - ((lambda (_%L207084%_) - (let* ((_%unchecked207097%_ + _%g207208207211%_)))) + (_%g207206207337%_ + (lambda (_%g207208207219%_) + ((lambda (_%L207222%_) + (let* ((_%unchecked207235%_ (|gxc[1]#signature->unchecked-signature| - _%L207051%_)) - (_%g207100207108%_ - (lambda (_%g207101207104%_) + _%L207189%_)) + (_%g207238207246%_ + (lambda (_%g207239207242%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207101207104%_)))) - (_%g207099207131%_ - (lambda (_%g207101207112%_) - ((lambda (_%L207115%_) + _%g207239207242%_)))) + (_%g207237207269%_ + (lambda (_%g207239207250%_) + ((lambda (_%L207253%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207084%_ - (cons _%L207115%_ + (cons _%L207222%_ + (cons _%L207253%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207101207112%_)))) - (_%g207099207131%_ - (if _%unchecked207097%_ - (let* ((_%g207135207150%_ - (lambda (_%g207136207146%_) + _%g207239207250%_)))) + (_%g207237207269%_ + (if _%unchecked207235%_ + (let* ((_%g207273207288%_ + (lambda (_%g207274207284%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207136207146%_)))) - (_%g207134207195%_ - (lambda (_%g207136207154%_) + _%g207274207284%_)))) + (_%g207272207333%_ + (lambda (_%g207274207292%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207136207154%_)) - (let ((_%e207139207157%_ + _%g207274207292%_)) + (let ((_%e207277207295%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%g207136207154%_)))) - (let ((_%hd207140207161%_ + (gx#syntax-e _%g207274207292%_)))) + (let ((_%hd207278207299%_ (let () (declare (not safe)) - (##car _%e207139207157%_))) - (_%tl207141207164%_ + (##car _%e207277207295%_))) + (_%tl207279207302%_ (let () (declare (not safe)) - (##cdr _%e207139207157%_)))) + (##cdr _%e207277207295%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207141207164%_)) - (let ((_%e207142207167%_ + (gx#stx-pair? _%tl207279207302%_)) + (let ((_%e207280207305%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207141207164%_)))) - (let ((_%hd207143207171%_ + (gx#syntax-e _%tl207279207302%_)))) + (let ((_%hd207281207309%_ (let () (declare (not safe)) - (##car _%e207142207167%_))) - (_%tl207144207174%_ + (##car _%e207280207305%_))) + (_%tl207282207312%_ (let () (declare (not safe)) - (##cdr _%e207142207167%_)))) + (##cdr _%e207280207305%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207144207174%_)) - ((lambda (_%L207177%_ _%L207179%_) + (gx#stx-null? _%tl207282207312%_)) + ((lambda (_%L207315%_ _%L207317%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207179%_ + (cons _%L207317%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -5134,26 +5134,26 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207053%_ '())) + (cons _%L207191%_ '())) (cons '#f - (cons 'signature: (cons _%L207177%_ '()))))) + (cons 'signature: (cons _%L207315%_ '()))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd207143207171%_ - _%hd207140207161%_) - (_%g207135207150%_ _%g207136207154%_)))) - (_%g207135207150%_ _%g207136207154%_)))) - (_%g207135207150%_ _%g207136207154%_))))) + _%hd207281207309%_ + _%hd207278207299%_) + (_%g207273207288%_ _%g207274207292%_)))) + (_%g207273207288%_ _%g207274207292%_)))) + (_%g207273207288%_ _%g207274207292%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207134207195%_ - _%unchecked207097%_)) + (_%g207272207333%_ + _%unchecked207235%_)) '(begin))))) - _%g207070207081%_)))) - (_%g207068207199%_ + _%g207208207219%_)))) + (_%g207206207337%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L206991%_ + (cons _%L207129%_ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -5163,313 +5163,313 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207053%_ '())) - (cons '#f (cons 'signature: (cons _%L207051%_ '()))))) + (cons _%L207191%_ '())) + (cons '#f (cons 'signature: (cons _%L207189%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%hd207017207045%_ - _%hd207014207035%_) - (_%g207009207024%_ _%g207010207028%_)))) - (_%g207009207024%_ _%g207010207028%_)))) + _%hd207155207183%_ + _%hd207152207173%_) + (_%g207147207162%_ _%g207148207166%_)))) + (_%g207147207162%_ _%g207148207166%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207009207024%_ - _%g207010207028%_))))) - (_%g207008207203%_ + (_%g207147207162%_ + _%g207148207166%_))))) + (_%g207146207341%_ (|gxc[1]#parse-signature| - _%stx206905%_ - _%L206991%_ - (let ((__tmp209279 - (lambda (_%g207206207209%_ - _%g207207207212%_) - (cons _%g207206207209%_ - _%g207207207212%_)))) + _%stx207043%_ + _%L207129%_ + (let ((__tmp209417 + (lambda (_%g207344207347%_ + _%g207345207350%_) + (cons _%g207344207347%_ + _%g207345207350%_)))) (declare (not safe)) (__foldr1 - __tmp209279 + __tmp209417 '() - _%L206989%_))))) - (_%g206908206932%_ _%g206909206936%_))) - _%signature206926206985%_ - _%hd206916206953%_)))))) + _%L207127%_))))) + (_%g207046207070%_ _%g207047207074%_))) + _%signature207064207123%_ + _%hd207054207091%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop206921206965%_ - _%target206918206959%_ + (_%loop207059207103%_ + _%target207056207097%_ '())) - (_%g206908206932%_ - _%g206909206936%_))))) - (_%g206908206932%_ _%g206909206936%_)))) - (_%g206908206932%_ _%g206909206936%_)))) - (_%g206908206932%_ _%g206909206936%_))))) - (_%g206907207215%_ _%stx206905%_)))) + (_%g207046207070%_ + _%g207047207074%_))))) + (_%g207046207070%_ _%g207047207074%_)))) + (_%g207046207070%_ _%g207047207074%_)))) + (_%g207046207070%_ _%g207047207074%_))))) + (_%g207045207353%_ _%stx207043%_)))) (define |gxc[:0:]#declare-primitive-case-lambda| - (lambda (_%stx207220%_) - (let* ((_%g207223207247%_ - (lambda (_%g207224207243%_) + (lambda (_%stx207358%_) + (let* ((_%g207361207385%_ + (lambda (_%g207362207381%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207224207243%_)))) - (_%g207222208130%_ - (lambda (_%g207224207251%_) + _%g207362207381%_)))) + (_%g207360208268%_ + (lambda (_%g207362207389%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207224207251%_)) - (let ((_%e207227207254%_ + (gx#stx-pair? _%g207362207389%_)) + (let ((_%e207365207392%_ (let () (declare (not safe)) - (gx#syntax-e _%g207224207251%_)))) - (let ((_%hd207228207258%_ + (gx#syntax-e _%g207362207389%_)))) + (let ((_%hd207366207396%_ (let () (declare (not safe)) - (##car _%e207227207254%_))) - (_%tl207229207261%_ + (##car _%e207365207392%_))) + (_%tl207367207399%_ (let () (declare (not safe)) - (##cdr _%e207227207254%_)))) + (##cdr _%e207365207392%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207229207261%_)) - (let ((_%e207230207264%_ + (gx#stx-pair? _%tl207367207399%_)) + (let ((_%e207368207402%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207229207261%_)))) - (let ((_%hd207231207268%_ + (gx#syntax-e _%tl207367207399%_)))) + (let ((_%hd207369207406%_ (let () (declare (not safe)) - (##car _%e207230207264%_))) - (_%tl207232207271%_ + (##car _%e207368207402%_))) + (_%tl207370207409%_ (let () (declare (not safe)) - (##cdr _%e207230207264%_)))) + (##cdr _%e207368207402%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl207232207271%_)) - (let ((_g209280_ + (gx#stx-pair/null? _%tl207370207409%_)) + (let ((_g209418_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl207232207271%_ + _%tl207370207409%_ '0)))) (begin - (let ((_g209281_ + (let ((_g209419_ (let () (declare (not safe)) - (if (##values? _g209280_) - (##vector-length - _g209280_) + (if (##values? _g209418_) + (##values-length + _g209418_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209281_ 2))) + (##fx= _g209419_ 2))) (error "Context expects 2 values" - _g209281_))) - (let ((_%target207233207274%_ + _g209419_))) + (let ((_%target207371207412%_ (let () (declare (not safe)) - (##vector-ref _g209280_ 0))) - (_%tl207235207277%_ + (##values-ref _g209418_ 0))) + (_%tl207373207415%_ (let () (declare (not safe)) - (##vector-ref - _g209280_ + (##values-ref + _g209418_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207235207277%_)) - (letrec ((_%loop207236207280%_ - (lambda (_%hd207234207284%_ + _%tl207373207415%_)) + (letrec ((_%loop207374207418%_ + (lambda (_%hd207372207422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%case-signature207240207287%_) + _%case-signature207378207425%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207234207284%_)) - (let ((_%e207237207290%_ + (gx#stx-pair? _%hd207372207422%_)) + (let ((_%e207375207428%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207234207284%_)))) - (let ((_%lp-hd207238207294%_ + (gx#syntax-e _%hd207372207422%_)))) + (let ((_%lp-hd207376207432%_ (let () (declare (not safe)) - (##car _%e207237207290%_))) - (_%lp-tl207239207297%_ + (##car _%e207375207428%_))) + (_%lp-tl207377207435%_ (let () (declare (not safe)) - (##cdr _%e207237207290%_)))) - (_%loop207236207280%_ - _%lp-tl207239207297%_ - (cons _%lp-hd207238207294%_ - _%case-signature207240207287%_)))) - (let ((_%case-signature207241207300%_ - (reverse _%case-signature207240207287%_))) - ((lambda (_%L207304%_ _%L207306%_) + (##cdr _%e207375207428%_)))) + (_%loop207374207418%_ + _%lp-tl207377207435%_ + (cons _%lp-hd207376207432%_ + _%case-signature207378207425%_)))) + (let ((_%case-signature207379207438%_ + (reverse _%case-signature207378207425%_))) + ((lambda (_%L207442%_ _%L207444%_) (if (let () (declare (not safe)) - (gx#identifier? _%L207306%_)) - (let* ((_%signatures207337%_ - (map (lambda (_%g207323207325%_) + (gx#identifier? _%L207444%_)) + (let* ((_%signatures207475%_ + (map (lambda (_%g207461207463%_) (|gxc[1]#parse-signature| - _%stx207220%_ - _%L207306%_ - _%g207323207325%_)) - (let ((__tmp209282 - (lambda (_%g207328207331%_ - _%g207329207334%_) - (cons _%g207328207331%_ - _%g207329207334%_)))) + _%stx207358%_ + _%L207444%_ + _%g207461207463%_)) + (let ((__tmp209420 + (lambda (_%g207466207469%_ + _%g207467207472%_) + (cons _%g207466207469%_ + _%g207467207472%_)))) (declare (not safe)) (__foldr1 - __tmp209282 + __tmp209420 '() - _%L207304%_)))) - (_%g207340207366%_ - (lambda (_%g207341207362%_) + _%L207442%_)))) + (_%g207478207504%_ + (lambda (_%g207479207500%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207341207362%_)))) - (_%g207339208126%_ - (lambda (_%g207341207370%_) + _%g207479207500%_)))) + (_%g207477208264%_ + (lambda (_%g207479207508%_) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%g207341207370%_)) - (let ((_g209283_ + _%g207479207508%_)) + (let ((_g209421_ (let () (declare (not safe)) (gx#syntax-split-splice - _%g207341207370%_ + _%g207479207508%_ '0)))) (begin - (let ((_g209284_ + (let ((_g209422_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g209283_) - (##vector-length _g209283_) + _g209421_) + (##values-length _g209421_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g209284_ 2))) - (error "Context expects 2 values" _g209284_))) + (##fx= _g209422_ 2))) + (error "Context expects 2 values" _g209422_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target207344207373%_ + (let ((_%target207482207511%_ (let () (declare (not safe)) - (##vector-ref - _g209283_ + (##values-ref + _g209421_ 0))) - (_%tl207346207376%_ + (_%tl207484207514%_ (let () (declare (not safe)) - (##vector-ref - _g209283_ + (##values-ref + _g209421_ 1)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207346207376%_)) - (letrec ((_%loop207347207379%_ + _%tl207484207514%_)) + (letrec ((_%loop207485207517%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd207345207383%_ - _%sig207351207386%_ - _%arity207352207388%_) + (lambda (_%hd207483207521%_ + _%sig207489207524%_ + _%arity207490207526%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207345207383%_)) - (let ((_%e207348207391%_ + (gx#stx-pair? _%hd207483207521%_)) + (let ((_%e207486207529%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207345207383%_)))) - (let ((_%lp-hd207349207395%_ + (gx#syntax-e _%hd207483207521%_)))) + (let ((_%lp-hd207487207533%_ (let () (declare (not safe)) - (##car _%e207348207391%_))) - (_%lp-tl207350207398%_ + (##car _%e207486207529%_))) + (_%lp-tl207488207536%_ (let () (declare (not safe)) - (##cdr _%e207348207391%_)))) + (##cdr _%e207486207529%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%lp-hd207349207395%_)) - (let ((_%e207355207401%_ + _%lp-hd207487207533%_)) + (let ((_%e207493207539%_ (let () (declare (not safe)) (gx#syntax-e - _%lp-hd207349207395%_)))) - (let ((_%hd207356207405%_ + _%lp-hd207487207533%_)))) + (let ((_%hd207494207543%_ (let () (declare (not safe)) - (##car _%e207355207401%_))) - (_%tl207357207408%_ + (##car _%e207493207539%_))) + (_%tl207495207546%_ (let () (declare (not safe)) - (##cdr _%e207355207401%_)))) + (##cdr _%e207493207539%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207357207408%_)) - (let ((_%e207358207411%_ + _%tl207495207546%_)) + (let ((_%e207496207549%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207357207408%_)))) - (let ((_%hd207359207415%_ + _%tl207495207546%_)))) + (let ((_%hd207497207553%_ (let () (declare (not safe)) - (##car _%e207358207411%_))) - (_%tl207360207418%_ + (##car _%e207496207549%_))) + (_%tl207498207556%_ (let () (declare (not safe)) - (##cdr _%e207358207411%_)))) + (##cdr _%e207496207549%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207360207418%_)) - (_%loop207347207379%_ - _%lp-tl207350207398%_ - (cons _%hd207359207415%_ - _%sig207351207386%_) - (cons _%hd207356207405%_ - _%arity207352207388%_)) - (_%g207340207366%_ - _%g207341207370%_)))) - (_%g207340207366%_ - _%g207341207370%_)))) - (_%g207340207366%_ - _%g207341207370%_)))) - (let ((_%sig207353207421%_ - (reverse _%sig207351207386%_)) - (_%arity207354207424%_ - (reverse _%arity207352207388%_))) - ((lambda (_%L207427%_ _%L207429%_) - (let* ((_%g207446207454%_ - (lambda (_%g207447207450%_) + _%tl207498207556%_)) + (_%loop207485207517%_ + _%lp-tl207488207536%_ + (cons _%hd207497207553%_ + _%sig207489207524%_) + (cons _%hd207494207543%_ + _%arity207490207526%_)) + (_%g207478207504%_ + _%g207479207508%_)))) + (_%g207478207504%_ + _%g207479207508%_)))) + (_%g207478207504%_ + _%g207479207508%_)))) + (let ((_%sig207491207559%_ + (reverse _%sig207489207524%_)) + (_%arity207492207562%_ + (reverse _%arity207490207526%_))) + ((lambda (_%L207565%_ _%L207567%_) + (let* ((_%g207584207592%_ + (lambda (_%g207585207588%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207447207450%_)))) - (_%g207445208111%_ - (lambda (_%g207447207458%_) - ((lambda (_%L207461%_) - (let* ((_%g207474207482%_ - (lambda (_%g207475207478%_) + _%g207585207588%_)))) + (_%g207583208249%_ + (lambda (_%g207585207596%_) + ((lambda (_%L207599%_) + (let* ((_%g207612207620%_ + (lambda (_%g207613207616%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -5477,551 +5477,551 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207475207478%_)))) - (_%g207473207504%_ - (lambda (_%g207475207486%_) - ((lambda (_%L207489%_) + _%g207613207616%_)))) + (_%g207611207642%_ + (lambda (_%g207613207624%_) + ((lambda (_%L207627%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (cons _%L207461%_ (cons _%L207489%_ '())))) - _%g207475207486%_)))) + (cons _%L207599%_ (cons _%L207627%_ '())))) + _%g207613207624%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207473207504%_ - (let ((_g209285_ - (let _%loop207508%_ ((_%rest207511%_ + (_%g207611207642%_ + (let ((_g209423_ + (let _%loop207646%_ ((_%rest207649%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%signatures207337%_) - (_%unchecked-proc207513%_ '#f) - (_%unchecked-clauses207514%_ '())) - (let* ((_%rest207515207523%_ _%rest207511%_) - (_%else207517207535%_ + _%signatures207475%_) + (_%unchecked-proc207651%_ '#f) + (_%unchecked-clauses207652%_ '())) + (let* ((_%rest207653207661%_ _%rest207649%_) + (_%else207655207673%_ (lambda () - (values _%unchecked-proc207513%_ + (values _%unchecked-proc207651%_ (reverse! - _%unchecked-clauses207514%_)))) - (_%K207519207976%_ - (lambda (_%rest207539%_ _%hd207541%_) - (let* ((_%g207543207630%_ - (lambda (_%g207544207626%_) + _%unchecked-clauses207652%_)))) + (_%K207657208114%_ + (lambda (_%rest207677%_ _%hd207679%_) + (let* ((_%g207681207768%_ + (lambda (_%g207682207764%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207544207626%_)))) - (_%g207542207972%_ - (lambda (_%g207544207634%_) + _%g207682207764%_)))) + (_%g207680208110%_ + (lambda (_%g207682207772%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%g207544207634%_)) - (let ((_%e207551207637%_ + _%g207682207772%_)) + (let ((_%e207689207775%_ (let () (declare (not safe)) (gx#syntax-e - _%g207544207634%_)))) - (let ((_%hd207552207641%_ + _%g207682207772%_)))) + (let ((_%hd207690207779%_ (let () (declare (not safe)) - (##car _%e207551207637%_))) - (_%tl207553207644%_ + (##car _%e207689207775%_))) + (_%tl207691207782%_ (let () (declare (not safe)) - (##cdr _%e207551207637%_)))) + (##cdr _%e207689207775%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207553207644%_)) - (let ((_%e207554207647%_ + _%tl207691207782%_)) + (let ((_%e207692207785%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl207553207644%_)))) - (let ((_%hd207555207651%_ + (gx#syntax-e _%tl207691207782%_)))) + (let ((_%hd207693207789%_ (let () (declare (not safe)) - (##car _%e207554207647%_))) - (_%tl207556207654%_ + (##car _%e207692207785%_))) + (_%tl207694207792%_ (let () (declare (not safe)) - (##cdr _%e207554207647%_)))) + (##cdr _%e207692207785%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207555207651%_)) - (let ((_%e207557207657%_ + (gx#stx-pair? _%hd207693207789%_)) + (let ((_%e207695207795%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207555207651%_)))) - (let ((_%hd207558207661%_ + (gx#syntax-e _%hd207693207789%_)))) + (let ((_%hd207696207799%_ (let () (declare (not safe)) - (##car _%e207557207657%_))) - (_%tl207559207664%_ + (##car _%e207695207795%_))) + (_%tl207697207802%_ (let () (declare (not safe)) - (##cdr _%e207557207657%_)))) + (##cdr _%e207695207795%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207559207664%_)) - (let ((_%e207560207667%_ + (gx#stx-pair? _%tl207697207802%_)) + (let ((_%e207698207805%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207559207664%_)))) - (let ((_%hd207561207671%_ + (gx#syntax-e _%tl207697207802%_)))) + (let ((_%hd207699207809%_ (let () (declare (not safe)) - (##car _%e207560207667%_))) - (_%tl207562207674%_ + (##car _%e207698207805%_))) + (_%tl207700207812%_ (let () (declare (not safe)) - (##cdr _%e207560207667%_)))) + (##cdr _%e207698207805%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207561207671%_)) - (let ((_%e207563207677%_ + (gx#stx-datum? _%hd207699207809%_)) + (let ((_%e207701207815%_ (let () (declare (not safe)) (gx#stx-e - _%hd207561207671%_)))) - (if (equal? _%e207563207677%_ + _%hd207699207809%_)))) + (if (equal? _%e207701207815%_ 'arguments:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207562207674%_)) - (let ((_%e207564207681%_ + _%tl207700207812%_)) + (let ((_%e207702207819%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207562207674%_)))) - (let ((_%hd207565207685%_ + _%tl207700207812%_)))) + (let ((_%hd207703207823%_ (let () (declare (not safe)) - (##car _%e207564207681%_))) - (_%tl207566207688%_ + (##car _%e207702207819%_))) + (_%tl207704207826%_ (let () (declare (not safe)) - (##cdr _%e207564207681%_)))) + (##cdr _%e207702207819%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207565207685%_)) - (let ((_%e207567207691%_ + _%hd207703207823%_)) + (let ((_%e207705207829%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd207565207685%_)))) - (let ((_%hd207568207695%_ + (gx#syntax-e _%hd207703207823%_)))) + (let ((_%hd207706207833%_ (let () (declare (not safe)) - (##car _%e207567207691%_))) - (_%tl207569207698%_ + (##car _%e207705207829%_))) + (_%tl207707207836%_ (let () (declare (not safe)) - (##cdr _%e207567207691%_)))) + (##cdr _%e207705207829%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207568207695%_)) - (if (let ((__tmp209287 |gxc[1]#_g209288_|)) + (gx#identifier? _%hd207706207833%_)) + (if (let ((__tmp209425 |gxc[1]#_g209426_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209287 - _%hd207568207695%_)) + __tmp209425 + _%hd207706207833%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207569207698%_)) - (let ((_%e207570207701%_ + (gx#stx-pair? _%tl207707207836%_)) + (let ((_%e207708207839%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207569207698%_)))) - (let ((_%hd207571207705%_ + (gx#syntax-e _%tl207707207836%_)))) + (let ((_%hd207709207843%_ (let () (declare (not safe)) - (##car _%e207570207701%_))) - (_%tl207572207708%_ + (##car _%e207708207839%_))) + (_%tl207710207846%_ (let () (declare (not safe)) - (##cdr _%e207570207701%_)))) + (##cdr _%e207708207839%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207572207708%_)) + (gx#stx-null? _%tl207710207846%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207566207688%_)) - (let ((_%e207573207711%_ + _%tl207704207826%_)) + (let ((_%e207711207849%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207566207688%_)))) - (let ((_%hd207574207715%_ + _%tl207704207826%_)))) + (let ((_%hd207712207853%_ (let () (declare (not safe)) - (##car _%e207573207711%_))) - (_%tl207575207718%_ + (##car _%e207711207849%_))) + (_%tl207713207856%_ (let () (declare (not safe)) - (##cdr _%e207573207711%_)))) + (##cdr _%e207711207849%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207574207715%_)) - (let ((_%e207576207721%_ + _%hd207712207853%_)) + (let ((_%e207714207859%_ (let () (declare (not safe)) (gx#stx-e - _%hd207574207715%_)))) - (if (equal? _%e207576207721%_ + _%hd207712207853%_)))) + (if (equal? _%e207714207859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'return:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207575207718%_)) - (let ((_%e207577207725%_ + (gx#stx-pair? _%tl207713207856%_)) + (let ((_%e207715207863%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207575207718%_)))) - (let ((_%hd207578207729%_ + (gx#syntax-e _%tl207713207856%_)))) + (let ((_%hd207716207867%_ (let () (declare (not safe)) - (##car _%e207577207725%_))) - (_%tl207579207732%_ + (##car _%e207715207863%_))) + (_%tl207717207870%_ (let () (declare (not safe)) - (##cdr _%e207577207725%_)))) + (##cdr _%e207715207863%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207578207729%_)) - (let ((_%e207580207735%_ + (gx#stx-pair? _%hd207716207867%_)) + (let ((_%e207718207873%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207578207729%_)))) - (let ((_%hd207581207739%_ + (gx#syntax-e _%hd207716207867%_)))) + (let ((_%hd207719207877%_ (let () (declare (not safe)) - (##car _%e207580207735%_))) - (_%tl207582207742%_ + (##car _%e207718207873%_))) + (_%tl207720207880%_ (let () (declare (not safe)) - (##cdr _%e207580207735%_)))) + (##cdr _%e207718207873%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207581207739%_)) - (if (let ((__tmp209289 - |gxc[1]#_g209290_|)) + (gx#identifier? _%hd207719207877%_)) + (if (let ((__tmp209427 + |gxc[1]#_g209428_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209289 - _%hd207581207739%_)) + __tmp209427 + _%hd207719207877%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207582207742%_)) - (let ((_%e207583207745%_ + _%tl207720207880%_)) + (let ((_%e207721207883%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207582207742%_)))) - (let ((_%hd207584207749%_ + _%tl207720207880%_)))) + (let ((_%hd207722207887%_ (let () (declare (not safe)) - (##car _%e207583207745%_))) - (_%tl207585207752%_ + (##car _%e207721207883%_))) + (_%tl207723207890%_ (let () (declare (not safe)) - (##cdr _%e207583207745%_)))) + (##cdr _%e207721207883%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207585207752%_)) + _%tl207723207890%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207579207732%_)) - (let ((_%e207586207755%_ + _%tl207717207870%_)) + (let ((_%e207724207893%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl207579207732%_)))) - (let ((_%hd207587207759%_ + (gx#syntax-e _%tl207717207870%_)))) + (let ((_%hd207725207897%_ (let () (declare (not safe)) - (##car _%e207586207755%_))) - (_%tl207588207762%_ + (##car _%e207724207893%_))) + (_%tl207726207900%_ (let () (declare (not safe)) - (##cdr _%e207586207755%_)))) + (##cdr _%e207724207893%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207587207759%_)) - (let ((_%e207589207765%_ + (gx#stx-datum? _%hd207725207897%_)) + (let ((_%e207727207903%_ (let () (declare (not safe)) - (gx#stx-e _%hd207587207759%_)))) - (if (equal? _%e207589207765%_ 'effect:) + (gx#stx-e _%hd207725207897%_)))) + (if (equal? _%e207727207903%_ 'effect:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207588207762%_)) - (let ((_%e207590207769%_ + (gx#stx-pair? _%tl207726207900%_)) + (let ((_%e207728207907%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207588207762%_)))) - (let ((_%hd207591207773%_ + _%tl207726207900%_)))) + (let ((_%hd207729207911%_ (let () (declare (not safe)) - (##car _%e207590207769%_))) - (_%tl207592207776%_ + (##car _%e207728207907%_))) + (_%tl207730207914%_ (let () (declare (not safe)) - (##cdr _%e207590207769%_)))) + (##cdr _%e207728207907%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207591207773%_)) - (let ((_%e207593207779%_ + _%hd207729207911%_)) + (let ((_%e207731207917%_ (let () (declare (not safe)) (gx#syntax-e - _%hd207591207773%_)))) - (let ((_%hd207594207783%_ + _%hd207729207911%_)))) + (let ((_%hd207732207921%_ (let () (declare (not safe)) - (##car _%e207593207779%_))) - (_%tl207595207786%_ + (##car _%e207731207917%_))) + (_%tl207733207924%_ (let () (declare (not safe)) - (##cdr _%e207593207779%_)))) + (##cdr _%e207731207917%_)))) (if (let () (declare (not safe)) (gx#identifier? - _%hd207594207783%_)) - (if (let ((__tmp209291 - |gxc[1]#_g209292_|)) + _%hd207732207921%_)) + (if (let ((__tmp209429 + |gxc[1]#_g209430_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209291 - _%hd207594207783%_)) + __tmp209429 + _%hd207732207921%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%tl207595207786%_)) - (let ((_%e207596207789%_ + (gx#stx-pair? _%tl207733207924%_)) + (let ((_%e207734207927%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207595207786%_)))) - (let ((_%hd207597207793%_ + (gx#syntax-e _%tl207733207924%_)))) + (let ((_%hd207735207931%_ (let () (declare (not safe)) - (##car _%e207596207789%_))) - (_%tl207598207796%_ + (##car _%e207734207927%_))) + (_%tl207736207934%_ (let () (declare (not safe)) - (##cdr _%e207596207789%_)))) + (##cdr _%e207734207927%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207598207796%_)) + (gx#stx-null? _%tl207736207934%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207592207776%_)) - (let ((_%e207599207799%_ + (gx#stx-pair? _%tl207730207914%_)) + (let ((_%e207737207937%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207592207776%_)))) - (let ((_%hd207600207803%_ + (gx#syntax-e _%tl207730207914%_)))) + (let ((_%hd207738207941%_ (let () (declare (not safe)) - (##car _%e207599207799%_))) - (_%tl207601207806%_ + (##car _%e207737207937%_))) + (_%tl207739207944%_ (let () (declare (not safe)) - (##cdr _%e207599207799%_)))) + (##cdr _%e207737207937%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd207600207803%_)) - (let ((_%e207602207809%_ + (gx#stx-datum? _%hd207738207941%_)) + (let ((_%e207740207947%_ (let () (declare (not safe)) (gx#stx-e - _%hd207600207803%_)))) - (if (equal? _%e207602207809%_ + _%hd207738207941%_)))) + (if (equal? _%e207740207947%_ 'unchecked:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207601207806%_)) - (let ((_%e207603207813%_ + _%tl207739207944%_)) + (let ((_%e207741207951%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207601207806%_)))) - (let ((_%hd207604207817%_ + _%tl207739207944%_)))) + (let ((_%hd207742207955%_ (let () (declare (not safe)) - (##car _%e207603207813%_))) - (_%tl207605207820%_ + (##car _%e207741207951%_))) + (_%tl207743207958%_ (let () (declare (not safe)) - (##cdr _%e207603207813%_)))) + (##cdr _%e207741207951%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd207604207817%_)) - (let ((_%e207606207823%_ + _%hd207742207955%_)) + (let ((_%e207744207961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%hd207604207817%_)))) - (let ((_%hd207607207827%_ + (gx#syntax-e _%hd207742207955%_)))) + (let ((_%hd207745207965%_ (let () (declare (not safe)) - (##car _%e207606207823%_))) - (_%tl207608207830%_ + (##car _%e207744207961%_))) + (_%tl207746207968%_ (let () (declare (not safe)) - (##cdr _%e207606207823%_)))) + (##cdr _%e207744207961%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207607207827%_)) - (if (let ((__tmp209293 |gxc[1]#_g209294_|)) + (gx#identifier? _%hd207745207965%_)) + (if (let ((__tmp209431 |gxc[1]#_g209432_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209293 - _%hd207607207827%_)) + __tmp209431 + _%hd207745207965%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207608207830%_)) - (let ((_%e207609207833%_ + (gx#stx-pair? _%tl207746207968%_)) + (let ((_%e207747207971%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207608207830%_)))) - (let ((_%hd207610207837%_ + (gx#syntax-e _%tl207746207968%_)))) + (let ((_%hd207748207975%_ (let () (declare (not safe)) - (##car _%e207609207833%_))) - (_%tl207611207840%_ + (##car _%e207747207971%_))) + (_%tl207749207978%_ (let () (declare (not safe)) - (##cdr _%e207609207833%_)))) + (##cdr _%e207747207971%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207611207840%_)) + (gx#stx-null? _%tl207749207978%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207605207820%_)) - (let ((_%e207612207843%_ + _%tl207743207958%_)) + (let ((_%e207750207981%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207605207820%_)))) - (let ((_%hd207613207847%_ + _%tl207743207958%_)))) + (let ((_%hd207751207985%_ (let () (declare (not safe)) - (##car _%e207612207843%_))) - (_%tl207614207850%_ + (##car _%e207750207981%_))) + (_%tl207752207988%_ (let () (declare (not safe)) - (##cdr _%e207612207843%_)))) + (##cdr _%e207750207981%_)))) (if (let () (declare (not safe)) (gx#stx-datum? - _%hd207613207847%_)) - (let ((_%e207615207853%_ + _%hd207751207985%_)) + (let ((_%e207753207991%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-e _%hd207613207847%_)))) - (if (equal? _%e207615207853%_ 'origin:) + (gx#stx-e _%hd207751207985%_)))) + (if (equal? _%e207753207991%_ 'origin:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl207614207850%_)) - (let ((_%e207616207857%_ + (gx#stx-pair? _%tl207752207988%_)) + (let ((_%e207754207995%_ (let () (declare (not safe)) - (gx#syntax-e _%tl207614207850%_)))) - (let ((_%hd207617207861%_ + (gx#syntax-e _%tl207752207988%_)))) + (let ((_%hd207755207999%_ (let () (declare (not safe)) - (##car _%e207616207857%_))) - (_%tl207618207864%_ + (##car _%e207754207995%_))) + (_%tl207756208002%_ (let () (declare (not safe)) - (##cdr _%e207616207857%_)))) + (##cdr _%e207754207995%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd207617207861%_)) - (let ((_%e207619207867%_ + (gx#stx-pair? _%hd207755207999%_)) + (let ((_%e207757208005%_ (let () (declare (not safe)) - (gx#syntax-e _%hd207617207861%_)))) - (let ((_%hd207620207871%_ + (gx#syntax-e _%hd207755207999%_)))) + (let ((_%hd207758208009%_ (let () (declare (not safe)) - (##car _%e207619207867%_))) - (_%tl207621207874%_ + (##car _%e207757208005%_))) + (_%tl207759208012%_ (let () (declare (not safe)) - (##cdr _%e207619207867%_)))) + (##cdr _%e207757208005%_)))) (if (let () (declare (not safe)) - (gx#identifier? _%hd207620207871%_)) - (if (let ((__tmp209295 - |gxc[1]#_g209296_|)) + (gx#identifier? _%hd207758208009%_)) + (if (let ((__tmp209433 + |gxc[1]#_g209434_|)) (declare (not safe)) (gx#free-identifier=? - __tmp209295 - _%hd207620207871%_)) + __tmp209433 + _%hd207758208009%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl207621207874%_)) - (let ((_%e207622207877%_ + _%tl207759208012%_)) + (let ((_%e207760208015%_ (let () (declare (not safe)) (gx#syntax-e - _%tl207621207874%_)))) - (let ((_%hd207623207881%_ + _%tl207759208012%_)))) + (let ((_%hd207761208019%_ (let () (declare (not safe)) - (##car _%e207622207877%_))) - (_%tl207624207884%_ + (##car _%e207760208015%_))) + (_%tl207762208022%_ (let () (declare (not safe)) - (##cdr _%e207622207877%_)))) + (##cdr _%e207760208015%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl207624207884%_)) + _%tl207762208022%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-null? _%tl207618207864%_)) + (gx#stx-null? _%tl207756208002%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl207556207654%_)) - ((lambda (_%L207887%_ - _%L207889%_ - _%L207890%_ - _%L207891%_ - _%L207892%_ - _%L207893%_) - (let ((_%clause207964%_ + (gx#stx-null? _%tl207694207792%_)) + ((lambda (_%L208025%_ + _%L208027%_ + _%L208028%_ + _%L208029%_ + _%L208030%_ + _%L208031%_) + (let ((_%clause208102%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6032,7 +6032,7 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207893%_ '())) + (cons _%L208031%_ '())) (cons '#f (cons 'signature: (cons (cons (let () @@ -6045,256 +6045,256 @@ (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207891%_ '())) + (cons _%L208029%_ '())) (cons 'origin: (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L207887%_ '())) + (cons _%L208025%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%unchecked207966%_ + (_%unchecked208104%_ (let () (declare (not safe)) - (gx#stx-e _%L207889%_)))) - (_%loop207508%_ - _%rest207539%_ - (let ((_%$e207968%_ _%unchecked207966%_)) - (if _%$e207968%_ - _%$e207968%_ - _%unchecked-proc207513%_)) - (cons _%clause207964%_ - _%unchecked-clauses207514%_)))) - _%hd207623207881%_ - _%hd207610207837%_ - _%hd207597207793%_ - _%hd207584207749%_ - _%hd207571207705%_ - _%hd207552207641%_) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) + (gx#stx-e _%L208027%_)))) + (_%loop207646%_ + _%rest207677%_ + (let ((_%$e208106%_ _%unchecked208104%_)) + (if _%$e208106%_ + _%$e208106%_ + _%unchecked-proc207651%_)) + (cons _%clause208102%_ + _%unchecked-clauses207652%_)))) + _%hd207761208019%_ + _%hd207748207975%_ + _%hd207735207931%_ + _%hd207722207887%_ + _%hd207709207843%_ + _%hd207690207779%_) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_))) - (_%g207543207630%_ _%g207544207634%_)))) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_))) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_))) - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_))) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_))) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_)) - (_%g207543207630%_ - _%g207544207634%_))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) - (_%g207543207630%_ _%g207544207634%_)))) + (_%g207681207768%_ + _%g207682207772%_)) + (_%g207681207768%_ + _%g207682207772%_))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) + (_%g207681207768%_ _%g207682207772%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207543207630%_ - _%g207544207634%_))))) - (_%g207542207972%_ _%hd207541%_))))) - (if (pair? _%rest207515207523%_) - (let ((_%hd207520207980%_ + (_%g207681207768%_ + _%g207682207772%_))))) + (_%g207680208110%_ _%hd207679%_))))) + (if (pair? _%rest207653207661%_) + (let ((_%hd207658208118%_ (let () (declare (not safe)) - (##car _%rest207515207523%_))) - (_%tl207521207983%_ + (##car _%rest207653207661%_))) + (_%tl207659208121%_ (let () (declare (not safe)) - (##cdr _%rest207515207523%_)))) - (let* ((_%hd207986%_ _%hd207520207980%_) - (_%rest207989%_ _%tl207521207983%_)) - (_%K207519207976%_ - _%rest207989%_ - _%hd207986%_))) - (_%else207517207535%_)))))) + (##cdr _%rest207653207661%_)))) + (let* ((_%hd208124%_ _%hd207658208118%_) + (_%rest208127%_ _%tl207659208121%_)) + (_%K207657208114%_ + _%rest208127%_ + _%hd208124%_))) + (_%else207655207673%_)))))) (begin - (let ((_g209286_ + (let ((_g209424_ (let () (declare (not safe)) - (if (##values? _g209285_) - (##vector-length _g209285_) + (if (##values? _g209423_) + (##values-length _g209423_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209286_ 2))) - (error "Context expects 2 values" _g209286_))) - (let ((_%unchecked-proc207992%_ + (if (not (let () (declare (not safe)) (##fx= _g209424_ 2))) + (error "Context expects 2 values" _g209424_))) + (let ((_%unchecked-proc208130%_ (let () (declare (not safe)) - (##vector-ref _g209285_ 0))) - (_%unchecked-clauses207994%_ + (##values-ref _g209423_ 0))) + (_%unchecked-clauses208132%_ (let () (declare (not safe)) - (##vector-ref _g209285_ 1)))) - (if _%unchecked-proc207992%_ - (let* ((_%g207996208020%_ - (lambda (_%g207997208016%_) + (##values-ref _g209423_ 1)))) + (if _%unchecked-proc208130%_ + (let* ((_%g208134208158%_ + (lambda (_%g208135208154%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g207997208016%_)))) - (_%g207995208107%_ - (lambda (_%g207997208024%_) + _%g208135208154%_)))) + (_%g208133208245%_ + (lambda (_%g208135208162%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g207997208024%_)) - (let ((_%e208000208027%_ + (gx#stx-pair? _%g208135208162%_)) + (let ((_%e208138208165%_ (let () (declare (not safe)) (gx#syntax-e - _%g207997208024%_)))) - (let ((_%hd208001208031%_ + _%g208135208162%_)))) + (let ((_%hd208139208169%_ (let () (declare (not safe)) - (##car _%e208000208027%_))) - (_%tl208002208034%_ + (##car _%e208138208165%_))) + (_%tl208140208172%_ (let () (declare (not safe)) - (##cdr _%e208000208027%_)))) + (##cdr _%e208138208165%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208002208034%_)) - (let ((_%e208003208037%_ + _%tl208140208172%_)) + (let ((_%e208141208175%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208002208034%_)))) - (let ((_%hd208004208041%_ + _%tl208140208172%_)))) + (let ((_%hd208142208179%_ (let () (declare (not safe)) - (##car _%e208003208037%_))) - (_%tl208005208044%_ + (##car _%e208141208175%_))) + (_%tl208143208182%_ (let () (declare (not safe)) - (##cdr _%e208003208037%_)))) + (##cdr _%e208141208175%_)))) (if (let () (declare (not safe)) (gx#stx-pair/null? - _%hd208004208041%_)) - (let ((_g209297_ + _%hd208142208179%_)) + (let ((_g209435_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-split-splice _%hd208004208041%_ '0)))) + (gx#syntax-split-splice _%hd208142208179%_ '0)))) (begin - (let ((_g209298_ + (let ((_g209436_ (let () (declare (not safe)) - (if (##values? _g209297_) - (##vector-length _g209297_) + (if (##values? _g209435_) + (##values-length _g209435_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g209298_ 2))) - (error "Context expects 2 values" _g209298_))) - (let ((_%target208006208047%_ + (if (not (let () (declare (not safe)) (##fx= _g209436_ 2))) + (error "Context expects 2 values" _g209436_))) + (let ((_%target208144208185%_ (let () (declare (not safe)) - (##vector-ref _g209297_ 0))) - (_%tl208008208050%_ + (##values-ref _g209435_ 0))) + (_%tl208146208188%_ (let () (declare (not safe)) - (##vector-ref _g209297_ 1)))) + (##values-ref _g209435_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208008208050%_)) - (letrec ((_%loop208009208053%_ - (lambda (_%hd208007208057%_ - _%clause208013208060%_) + (gx#stx-null? _%tl208146208188%_)) + (letrec ((_%loop208147208191%_ + (lambda (_%hd208145208195%_ + _%clause208151208198%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%hd208007208057%_)) - (let ((_%e208010208063%_ + (gx#stx-pair? _%hd208145208195%_)) + (let ((_%e208148208201%_ (let () (declare (not safe)) (gx#syntax-e - _%hd208007208057%_)))) - (let ((_%lp-hd208011208067%_ + _%hd208145208195%_)))) + (let ((_%lp-hd208149208205%_ (let () (declare (not safe)) - (##car _%e208010208063%_))) - (_%lp-tl208012208070%_ + (##car _%e208148208201%_))) + (_%lp-tl208150208208%_ (let () (declare (not safe)) - (##cdr _%e208010208063%_)))) - (_%loop208009208053%_ - _%lp-tl208012208070%_ - (cons _%lp-hd208011208067%_ - _%clause208013208060%_)))) - (let ((_%clause208014208073%_ - (reverse _%clause208013208060%_))) + (##cdr _%e208148208201%_)))) + (_%loop208147208191%_ + _%lp-tl208150208208%_ + (cons _%lp-hd208149208205%_ + _%clause208151208198%_)))) + (let ((_%clause208152208211%_ + (reverse _%clause208151208198%_))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208005208044%_)) - ((lambda (_%L208077%_ - _%L208079%_) + _%tl208143208182%_)) + ((lambda (_%L208215%_ + _%L208217%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L208079%_ + (cons _%L208217%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6306,43 +6306,43 @@ (gx#datum->syntax__0 '#f '@list)) - (let ((__tmp209299 - (lambda (_%g208098208101%_ - _%g208099208104%_) - (cons _%g208098208101%_ - _%g208099208104%_)))) + (let ((__tmp209437 + (lambda (_%g208236208239%_ + _%g208237208242%_) + (cons _%g208236208239%_ + _%g208237208242%_)))) (declare (not safe)) (__foldr1 - __tmp209299 + __tmp209437 '() - _%L208077%_))) + _%L208215%_))) '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause208014208073%_ - _%hd208001208031%_) - (_%g207996208020%_ - _%g207997208024%_))))))) - (_%loop208009208053%_ _%target208006208047%_ '())) - (_%g207996208020%_ _%g207997208024%_))))) - (_%g207996208020%_ _%g207997208024%_)))) + _%clause208152208211%_ + _%hd208139208169%_) + (_%g208134208158%_ + _%g208135208162%_))))))) + (_%loop208147208191%_ _%target208144208185%_ '())) + (_%g208134208158%_ _%g208135208162%_))))) + (_%g208134208158%_ _%g208135208162%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207996208020%_ - _%g207997208024%_)))) - (_%g207996208020%_ _%g207997208024%_))))) - (_%g207995208107%_ - (list _%unchecked-proc207992%_ - _%unchecked-clauses207994%_))) + (_%g208134208158%_ + _%g208135208162%_)))) + (_%g208134208158%_ _%g208135208162%_))))) + (_%g208133208245%_ + (list _%unchecked-proc208130%_ + _%unchecked-clauses208132%_))) '(begin)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g207447207458%_)))) - (_%g207445208111%_ + _%g207585207596%_)))) + (_%g207583208249%_ (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-type)) - (cons _%L207306%_ + (cons _%L207444%_ (cons (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) @@ -6356,12 +6356,12 @@ (let () (declare (not safe)) (gx#syntax-check-splice-targets - _%L207427%_ - _%L207429%_)) - (let ((__tmp209300 - (lambda (_%g208114208118%_ - _%g208115208121%_ - _%g208116208123%_) + _%L207565%_ + _%L207567%_)) + (let ((__tmp209438 + (lambda (_%g208252208256%_ + _%g208253208259%_ + _%g208254208261%_) (cons (cons (let () (declare (not safe)) @@ -6372,55 +6372,55 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%g208115208121%_ '())) + (cons _%g208253208259%_ '())) (cons '#f (cons 'signature: - (cons _%g208114208118%_ '()))))) - _%g208116208123%_)))) + (cons _%g208252208256%_ '()))))) + _%g208254208261%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr2 - __tmp209300 + __tmp209438 '() - _%L207427%_ - _%L207429%_)))) + _%L207565%_ + _%L207567%_)))) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%sig207353207421%_ - _%arity207354207424%_)))))) - (_%loop207347207379%_ _%target207344207373%_ '() '())) - (_%g207340207366%_ _%g207341207370%_))))) + _%sig207491207559%_ + _%arity207492207562%_)))))) + (_%loop207485207517%_ _%target207482207511%_ '() '())) + (_%g207478207504%_ _%g207479207508%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g207340207366%_ - _%g207341207370%_))))) - (_%g207339208126%_ _%signatures207337%_)) - (_%g207223207247%_ _%g207224207251%_))) - _%case-signature207241207300%_ - _%hd207231207268%_)))))) + (_%g207478207504%_ + _%g207479207508%_))))) + (_%g207477208264%_ _%signatures207475%_)) + (_%g207361207385%_ _%g207362207389%_))) + _%case-signature207379207438%_ + _%hd207369207406%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop207236207280%_ - _%target207233207274%_ + (_%loop207374207418%_ + _%target207371207412%_ '())) - (_%g207223207247%_ - _%g207224207251%_))))) - (_%g207223207247%_ _%g207224207251%_)))) - (_%g207223207247%_ _%g207224207251%_)))) - (_%g207223207247%_ _%g207224207251%_))))) - (_%g207222208130%_ _%stx207220%_)))) + (_%g207361207385%_ + _%g207362207389%_))))) + (_%g207361207385%_ _%g207362207389%_)))) + (_%g207361207385%_ _%g207362207389%_)))) + (_%g207361207385%_ _%g207362207389%_))))) + (_%g207360208268%_ _%stx207358%_)))) (define |gxc[:0:]#declare-builtin-class| - (lambda (_%$stx208138%_) - (let* ((_%__stx209120209121%_ _%$stx208138%_) - (_%g208144208204%_ + (lambda (_%$stx208276%_) + (let* ((_%__stx209258209259%_ _%$stx208276%_) + (_%g208282208342%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx209120209121%_))))) - (let ((_%__kont209123209124%_ - (lambda (_%L208426%_ _%L208428%_) + _%__stx209258209259%_))))) + (let ((_%__kont209261209262%_ + (lambda (_%L208564%_ _%L208566%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6429,7 +6429,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208428%_ '())) + (cons _%L208566%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6440,13 +6440,13 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208428%_ '())) + (cons _%L208566%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208426%_ '())) + (cons _%L208564%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f '@list)) @@ -6455,8 +6455,8 @@ (cons '#f (cons '#f (cons '#t (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209125209126%_ - (lambda (_%L208351%_ _%L208353%_ _%L208354%_) + (_%__kont209263209264%_ + (lambda (_%L208489%_ _%L208491%_ _%L208492%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6465,7 +6465,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208354%_ '())) + (cons _%L208492%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6476,23 +6476,23 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208354%_ '())) + (cons _%L208492%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208353%_ '())) + (cons _%L208491%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208351%_ '())) + (cons _%L208489%_ '())) (cons '#f (cons '#f (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont209127209128%_ - (lambda (_%L208265%_ _%L208267%_ _%L208268%_) + (_%__kont209265209266%_ + (lambda (_%L208403%_ _%L208405%_ _%L208406%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6501,7 +6501,7 @@ (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208268%_ '())) + (cons _%L208406%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 @@ -6512,360 +6512,360 @@ (gx#datum->syntax__0 '#f 'class-type-id)) - (cons _%L208268%_ '())) + (cons _%L208406%_ '())) (cons (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208267%_ '())) + (cons _%L208405%_ '())) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'quote)) - (cons _%L208265%_ '())) + (cons _%L208403%_ '())) (cons '#f (cons '#t (cons '#f (cons '#f (cons '#f '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%__stx209120209121%_)) - (let ((_%e208148208382%_ + (gx#stx-pair? _%__stx209258209259%_)) + (let ((_%e208286208520%_ (let () (declare (not safe)) - (gx#syntax-e _%__stx209120209121%_)))) - (let ((_%tl208150208389%_ + (gx#syntax-e _%__stx209258209259%_)))) + (let ((_%tl208288208527%_ (let () (declare (not safe)) - (##cdr _%e208148208382%_))) - (_%hd208149208386%_ + (##cdr _%e208286208520%_))) + (_%hd208287208524%_ (let () (declare (not safe)) - (##car _%e208148208382%_)))) + (##car _%e208286208520%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208150208389%_)) - (let ((_%e208151208392%_ + (gx#stx-pair? _%tl208288208527%_)) + (let ((_%e208289208530%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208150208389%_)))) - (let ((_%tl208153208399%_ + (gx#syntax-e _%tl208288208527%_)))) + (let ((_%tl208291208537%_ (let () (declare (not safe)) - (##cdr _%e208151208392%_))) - (_%hd208152208396%_ + (##cdr _%e208289208530%_))) + (_%hd208290208534%_ (let () (declare (not safe)) - (##car _%e208151208392%_)))) + (##car _%e208289208530%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%hd208152208396%_)) - (let ((_%e208154208402%_ + (gx#stx-datum? _%hd208290208534%_)) + (let ((_%e208292208540%_ (let () (declare (not safe)) - (gx#stx-e _%hd208152208396%_)))) - (if (equal? _%e208154208402%_ 'system:) + (gx#stx-e _%hd208290208534%_)))) + (if (equal? _%e208292208540%_ 'system:) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208153208399%_)) - (let ((_%e208155208406%_ + (gx#stx-pair? _%tl208291208537%_)) + (let ((_%e208293208544%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208153208399%_)))) - (let ((_%tl208157208413%_ + _%tl208291208537%_)))) + (let ((_%tl208295208551%_ (let () (declare (not safe)) - (##cdr _%e208155208406%_))) - (_%hd208156208410%_ + (##cdr _%e208293208544%_))) + (_%hd208294208548%_ (let () (declare (not safe)) - (##car _%e208155208406%_)))) + (##car _%e208293208544%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208157208413%_)) - (let ((_%e208158208416%_ + _%tl208295208551%_)) + (let ((_%e208296208554%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208157208413%_)))) - (let ((_%tl208160208423%_ + _%tl208295208551%_)))) + (let ((_%tl208298208561%_ (let () (declare (not safe)) - (##cdr _%e208158208416%_))) - (_%hd208159208420%_ + (##cdr _%e208296208554%_))) + (_%hd208297208558%_ (let () (declare (not safe)) - (##car _%e208158208416%_)))) + (##car _%e208296208554%_)))) (if (let () (declare (not safe)) (gx#stx-null? - _%tl208160208423%_)) - (_%__kont209123209124%_ - _%hd208159208420%_ - _%hd208156208410%_) + _%tl208298208561%_)) + (_%__kont209261209262%_ + _%hd208297208558%_ + _%hd208294208548%_) (let () (declare (not safe)) - (_%g208144208204%_))))) + (_%g208282208342%_))))) (let () (declare (not safe)) - (_%g208144208204%_))))) + (_%g208282208342%_))))) (let () (declare (not safe)) - (_%g208144208204%_))) - (if (equal? _%e208154208402%_ 'struct:) + (_%g208282208342%_))) + (if (equal? _%e208292208540%_ 'struct:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208153208399%_)) - (let ((_%e208171208321%_ + _%tl208291208537%_)) + (let ((_%e208309208459%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208153208399%_)))) - (let ((_%tl208173208328%_ + _%tl208291208537%_)))) + (let ((_%tl208311208466%_ (let () (declare (not safe)) - (##cdr _%e208171208321%_))) - (_%hd208172208325%_ + (##cdr _%e208309208459%_))) + (_%hd208310208463%_ (let () (declare (not safe)) - (##car _%e208171208321%_)))) + (##car _%e208309208459%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208173208328%_)) - (let ((_%e208174208331%_ + _%tl208311208466%_)) + (let ((_%e208312208469%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#syntax-e _%tl208173208328%_)))) - (let ((_%tl208176208338%_ - (let () (declare (not safe)) (##cdr _%e208174208331%_))) - (_%hd208175208335%_ + (gx#syntax-e _%tl208311208466%_)))) + (let ((_%tl208314208476%_ + (let () (declare (not safe)) (##cdr _%e208312208469%_))) + (_%hd208313208473%_ (let () (declare (not safe)) - (##car _%e208174208331%_)))) + (##car _%e208312208469%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208176208338%_)) - (let ((_%e208177208341%_ + (gx#stx-pair? _%tl208314208476%_)) + (let ((_%e208315208479%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208176208338%_)))) - (let ((_%tl208179208348%_ + (gx#syntax-e _%tl208314208476%_)))) + (let ((_%tl208317208486%_ (let () (declare (not safe)) - (##cdr _%e208177208341%_))) - (_%hd208178208345%_ + (##cdr _%e208315208479%_))) + (_%hd208316208483%_ (let () (declare (not safe)) - (##car _%e208177208341%_)))) + (##car _%e208315208479%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208179208348%_)) - (_%__kont209125209126%_ - _%hd208178208345%_ - _%hd208175208335%_ - _%hd208172208325%_) + (gx#stx-null? _%tl208317208486%_)) + (_%__kont209263209264%_ + _%hd208316208483%_ + _%hd208313208473%_ + _%hd208310208463%_) (let () (declare (not safe)) - (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))) + (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208144208204%_))) - (if (equal? _%e208154208402%_ + (_%g208282208342%_))) + (if (equal? _%e208292208540%_ 'class:) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208153208399%_)) - (let ((_%e208190208235%_ + _%tl208291208537%_)) + (let ((_%e208328208373%_ (let () (declare (not safe)) (gx#syntax-e - _%tl208153208399%_)))) - (let ((_%tl208192208242%_ + _%tl208291208537%_)))) + (let ((_%tl208330208380%_ (let () (declare (not safe)) - (##cdr _%e208190208235%_))) - (_%hd208191208239%_ + (##cdr _%e208328208373%_))) + (_%hd208329208377%_ (let () (declare (not safe)) - (##car _%e208190208235%_)))) + (##car _%e208328208373%_)))) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl208192208242%_)) - (let ((_%e208193208245%_ + _%tl208330208380%_)) + (let ((_%e208331208383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#syntax-e _%tl208192208242%_)))) - (let ((_%tl208195208252%_ + (gx#syntax-e _%tl208330208380%_)))) + (let ((_%tl208333208390%_ (let () (declare (not safe)) - (##cdr _%e208193208245%_))) - (_%hd208194208249%_ + (##cdr _%e208331208383%_))) + (_%hd208332208387%_ (let () (declare (not safe)) - (##car _%e208193208245%_)))) + (##car _%e208331208383%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl208195208252%_)) - (let ((_%e208196208255%_ + (gx#stx-pair? _%tl208333208390%_)) + (let ((_%e208334208393%_ (let () (declare (not safe)) - (gx#syntax-e _%tl208195208252%_)))) - (let ((_%tl208198208262%_ + (gx#syntax-e _%tl208333208390%_)))) + (let ((_%tl208336208400%_ (let () (declare (not safe)) - (##cdr _%e208196208255%_))) - (_%hd208197208259%_ + (##cdr _%e208334208393%_))) + (_%hd208335208397%_ (let () (declare (not safe)) - (##car _%e208196208255%_)))) + (##car _%e208334208393%_)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208198208262%_)) - (_%__kont209127209128%_ - _%hd208197208259%_ - _%hd208194208249%_ - _%hd208191208239%_) + (gx#stx-null? _%tl208336208400%_)) + (_%__kont209265209266%_ + _%hd208335208397%_ + _%hd208332208387%_ + _%hd208329208377%_) (let () (declare (not safe)) - (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))) + (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g208144208204%_))) + (_%g208282208342%_))) (let () (declare (not safe)) - (_%g208144208204%_)))))) + (_%g208282208342%_)))))) (let () (declare (not safe)) - (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))) - (let () (declare (not safe)) (_%g208144208204%_))))))) + (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))) + (let () (declare (not safe)) (_%g208282208342%_))))))) (define |gxc[:0:]#declare-builtin-classes| - (lambda (_%$stx208450%_) - (let* ((_%g208454208474%_ - (lambda (_%g208455208470%_) + (lambda (_%$stx208588%_) + (let* ((_%g208592208612%_ + (lambda (_%g208593208608%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g208455208470%_)))) - (_%g208453208545%_ - (lambda (_%g208455208478%_) + _%g208593208608%_)))) + (_%g208591208683%_ + (lambda (_%g208593208616%_) (if (let () (declare (not safe)) - (gx#stx-pair? _%g208455208478%_)) - (let ((_%e208457208481%_ + (gx#stx-pair? _%g208593208616%_)) + (let ((_%e208595208619%_ (let () (declare (not safe)) - (gx#syntax-e _%g208455208478%_)))) - (let ((_%hd208458208485%_ + (gx#syntax-e _%g208593208616%_)))) + (let ((_%hd208596208623%_ (let () (declare (not safe)) - (##car _%e208457208481%_))) - (_%tl208459208488%_ + (##car _%e208595208619%_))) + (_%tl208597208626%_ (let () (declare (not safe)) - (##cdr _%e208457208481%_)))) + (##cdr _%e208595208619%_)))) (if (let () (declare (not safe)) - (gx#stx-pair/null? _%tl208459208488%_)) - (let ((_g209301_ + (gx#stx-pair/null? _%tl208597208626%_)) + (let ((_g209439_ (let () (declare (not safe)) (gx#syntax-split-splice - _%tl208459208488%_ + _%tl208597208626%_ '0)))) (begin - (let ((_g209302_ + (let ((_g209440_ (let () (declare (not safe)) - (if (##values? _g209301_) - (##vector-length _g209301_) + (if (##values? _g209439_) + (##values-length _g209439_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g209302_ 2))) + (##fx= _g209440_ 2))) (error "Context expects 2 values" - _g209302_))) - (let ((_%target208460208491%_ + _g209440_))) + (let ((_%target208598208629%_ (let () (declare (not safe)) - (##vector-ref _g209301_ 0))) - (_%tl208462208494%_ + (##values-ref _g209439_ 0))) + (_%tl208600208632%_ (let () (declare (not safe)) - (##vector-ref _g209301_ 1)))) + (##values-ref _g209439_ 1)))) (if (let () (declare (not safe)) - (gx#stx-null? _%tl208462208494%_)) - (letrec ((_%loop208463208497%_ - (lambda (_%hd208461208501%_ - _%decl208467208504%_) + (gx#stx-null? _%tl208600208632%_)) + (letrec ((_%loop208601208635%_ + (lambda (_%hd208599208639%_ + _%decl208605208642%_) (if (let () (declare (not safe)) (gx#stx-pair? - _%hd208461208501%_)) - (let ((_%e208464208507%_ + _%hd208599208639%_)) + (let ((_%e208602208645%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%hd208461208501%_)))) - (let ((_%lp-hd208465208511%_ + (gx#syntax-e _%hd208599208639%_)))) + (let ((_%lp-hd208603208649%_ (let () (declare (not safe)) - (##car _%e208464208507%_))) - (_%lp-tl208466208514%_ + (##car _%e208602208645%_))) + (_%lp-tl208604208652%_ (let () (declare (not safe)) - (##cdr _%e208464208507%_)))) - (_%loop208463208497%_ - _%lp-tl208466208514%_ - (cons _%lp-hd208465208511%_ _%decl208467208504%_)))) - (let ((_%decl208468208517%_ (reverse _%decl208467208504%_))) - ((lambda (_%L208521%_) + (##cdr _%e208602208645%_)))) + (_%loop208601208635%_ + _%lp-tl208604208652%_ + (cons _%lp-hd208603208649%_ _%decl208605208642%_)))) + (let ((_%decl208606208655%_ (reverse _%decl208605208642%_))) + ((lambda (_%L208659%_) (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'begin)) - (let ((__tmp209303 - (lambda (_%g208536208539%_ _%g208537208542%_) + (let ((__tmp209441 + (lambda (_%g208674208677%_ _%g208675208680%_) (cons (cons (let () (declare (not safe)) (gx#datum->syntax__0 '#f 'declare-builtin-class)) - _%g208536208539%_) - _%g208537208542%_)))) + _%g208674208677%_) + _%g208675208680%_)))) (declare (not safe)) - (__foldr1 __tmp209303 '() _%L208521%_)))) - _%decl208468208517%_)))))) + (__foldr1 __tmp209441 '() _%L208659%_)))) + _%decl208606208655%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop208463208497%_ - _%target208460208491%_ + (_%loop208601208635%_ + _%target208598208629%_ '())) - (_%g208454208474%_ - _%g208455208478%_))))) - (_%g208454208474%_ _%g208455208478%_)))) - (_%g208454208474%_ _%g208455208478%_))))) - (_%g208453208545%_ _%$stx208450%_)))))) + (_%g208592208612%_ + _%g208593208616%_))))) + (_%g208592208612%_ _%g208593208616%_)))) + (_%g208592208612%_ _%g208593208616%_))))) + (_%g208591208683%_ _%$stx208588%_)))))) diff --git a/src/bootstrap/gerbil/core.ssi b/src/bootstrap/gerbil/core.ssi index da1e3e6ff..cb7d6cfb0 100644 --- a/src/bootstrap/gerbil/core.ssi +++ b/src/bootstrap/gerbil/core.ssi @@ -8,328 +8,328 @@ namespace: gerbil/core :gerbil/core/sugar (spec: (:gerbil/core/mop) - (0 MOP-2 0 MOP-2) + (0 MOP-3 0 MOP-3) (0 MOP-5 0 MOP-5) (0 MOP-1 0 MOP-1) + (0 MOP-2 0 MOP-2) (0 MOP-4 0 MOP-4) - (0 MOP-3 0 MOP-3) (0 defclass-type 0 defclass-type) (0 defstruct-type 0 defstruct-type) (1 module-type-id 1 module-type-id) (1 make-class-type-id 1 make-class-type-id) + (0 defstruct 0 defstruct) + (0 define-struct 0 define-struct) + (0 defclass 0 defclass) (0 @-set! 0 @-set!) + (0 @ 0 @) (0 defmethod 0 defmethod) (0 define-class 0 define-class) - (0 define-struct 0 define-struct) - (0 @ 0 @) - (0 defclass 0 defclass) - (0 defstruct 0 defstruct) - (0 :readtable 0 :readtable) - (0 :cpxnum 0 :cpxnum) - (0 :thread 0 :thread) - (0 :promise 0 :promise) - (0 :boolean 0 :boolean) - (0 :string 0 :string) - (0 :s16vector 0 :s16vector) - (0 :t 0 :t) + (0 :box 0 :box) + (0 :thread-group 0 :thread-group) + (0 :symbol 0 :symbol) + (0 :true 0 :true) + (0 :void 0 :void) (0 :atom 0 :atom) - (0 :socket-info 0 :socket-info) + (0 :number 0 :number) + (0 :t 0 :t) + (0 :eof 0 :eof) + (0 class 0 class) + (0 :f32vector 0 :f32vector) + (0 :ratnum 0 :ratnum) + (0 :pair 0 :pair) (0 :u32vector 0 :u32vector) - (0 :symbolic 0 :symbolic) - (0 :file-info 0 :file-info) - (0 :true 0 :true) - (0 :vector-port 0 :vector-port) - (0 :readenv 0 :readenv) - (0 :procedure 0 :procedure) + (0 :list 0 :list) (0 :hvector 0 :hvector) - (0 :condvar 0 :condvar) - (0 :number 0 :number) - (0 :s32vector 0 :s32vector) - (0 :f64vector 0 :f64vector) - (0 :vm 0 :vm) - (0 :integer 0 :integer) + (0 :null 0 :null) (0 :u16vector 0 :u16vector) + (0 :string 0 :string) + (0 :s32vector 0 :s32vector) + (0 :frame 0 :frame) + (0 :port 0 :port) + (0 :boolean 0 :boolean) + (0 :flonum 0 :flonum) (0 :vector 0 :vector) + (0 :socket-info 0 :socket-info) + (0 :mutex 0 :mutex) + (0 :vm 0 :vm) + (0 :thread 0 :thread) + (0 :continuation 0 :continuation) (0 :values 0 :values) + (0 :integer 0 :integer) + (0 :weak 0 :weak) + (0 :u8vector 0 :u8vector) + (0 defsystem-class-info 0 defsystem-class-info) + (0 :procedure 0 :procedure) + (0 :f64vector 0 :f64vector) + (0 :s64vector 0 :s64vector) + (0 :s8vector 0 :s8vector) + (0 :keyword 0 :keyword) + (0 :class 0 :class) + (0 :immediate 0 :immediate) + (0 :condvar 0 :condvar) + (0 :vector-port 0 :vector-port) + (0 :real 0 :real) + (0 :char 0 :char) + (0 :object 0 :object) + (0 :udp-port 0 :udp-port) + (0 :address-info 0 :address-info) + (0 :file-info 0 :file-info) (0 :processor 0 :processor) + (0 :tcp-server-port 0 :tcp-server-port) + (0 :raw-device-port 0 :raw-device-port) + (0 :promise 0 :promise) (0 :writeenv 0 :writeenv) - (0 :udp-port 0 :udp-port) - (0 :sequence 0 :sequence) - (0 :thread-group 0 :thread-group) - (0 :keyword 0 :keyword) - (0 defsystem-class-info 0 defsystem-class-info) - (0 :directory-port 0 :directory-port) + (0 :device-port 0 :device-port) + (0 :cpxnum 0 :cpxnum) (0 :byte-port 0 :byte-port) - (0 :character-port 0 :character-port) - (0 :mutex 0 :mutex) - (0 :time 0 :time) - (0 :continuation 0 :continuation) (0 :bignum 0 :bignum) - (0 :box 0 :box) - (0 :s64vector 0 :s64vector) - (0 :u8vector 0 :u8vector) - (0 :real 0 :real) + (0 :u64vector 0 :u64vector) + (0 :special 0 :special) + (0 :false 0 :false) + (0 :s16vector 0 :s16vector) (0 :table 0 :table) - (0 :raw-device-port 0 :raw-device-port) + (0 :string-port 0 :string-port) + (0 :time 0 :time) + (0 :sequence 0 :sequence) + (0 :fixnum 0 :fixnum) + (0 :readtable 0 :readtable) + (0 :readenv 0 :readenv) (0 :event-queue-port 0 :event-queue-port) + (0 :directory-port 0 :directory-port) + (0 :symbolic 0 :symbolic) (0 :u8vector-port 0 :u8vector-port) - (0 :flonum 0 :flonum) - (0 :fixnum 0 :fixnum) - (0 :object 0 :object) - (0 :null 0 :null) - (0 :frame 0 :frame) - (0 :device-port 0 :device-port) - (0 :symbol 0 :symbol) - (0 :string-port 0 :string-port) - (0 :char 0 :char) - (0 :list 0 :list) + (0 :character-port 0 :character-port) (0 :object-port 0 :object-port) - (0 :f32vector 0 :f32vector) - (0 :pair 0 :pair) - (0 :special 0 :special) - (0 :port 0 :port) - (0 :void 0 :void) (0 :foreign 0 :foreign) - (0 :false 0 :false) - (0 :weak 0 :weak) - (0 :s8vector 0 :s8vector) - (0 class 0 class) - (0 :ratnum 0 :ratnum) - (0 :address-info 0 :address-info) - (0 :eof 0 :eof) - (0 :immediate 0 :immediate) - (0 :tcp-server-port 0 :tcp-server-port) - (0 :u64vector 0 :u64vector) - (0 :class 0 :class) (1 defclass-type 1 defclass-type) (1 defstruct-type 1 defstruct-type) (2 module-type-id 2 module-type-id) (2 make-class-type-id 2 make-class-type-id) - (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 !class-type-accessors-set! 1 !class-type-accessors-set!) + (1 !class-type-slot-contracts 1 !class-type-slot-contracts) + (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (1 !class-type-struct?-set! 1 !class-type-struct?-set!) - (1 !class-type-name-set! 1 !class-type-name-set!) - (1 !class-type-slots-set! 1 !class-type-slots-set!) - (1 &!class-type-id 1 &!class-type-id) - (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (1 &!class-type-final?-set! 1 &!class-type-final?-set!) - (1 make-class-type-info 1 make-class-type-info) - (1 &!class-type-metaclass 1 &!class-type-metaclass) - (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (1 !class-type-id-set! 1 !class-type-id-set!) + (1 !class-type-slot-defaults 1 !class-type-slot-defaults) + (1 !class-type-ordered-slots 1 !class-type-ordered-slots) + (1 !class-type-slots 1 !class-type-slots) + (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (1 !class-type-predicate 1 !class-type-predicate) + (1 !class-type-constructor-set! 1 !class-type-constructor-set!) (1 - &!class-type-slot-contracts-set! + &!class-type-precedence-list-set! 1 - &!class-type-slot-contracts-set!) - (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (1 &!class-type-accessors 1 &!class-type-accessors) + &!class-type-precedence-list-set!) + (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 !class-type-system? 1 !class-type-system?) + (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (1 &!class-type-id-set! 1 &!class-type-id-set!) + (1 !class-type-super 1 !class-type-super) + (1 &!class-type-descriptor 1 &!class-type-descriptor) + (1 &!class-type-struct? 1 &!class-type-struct?) + (1 class-type-info::t 1 class-type-info::t) + (1 &!class-type-name 1 &!class-type-name) (1 - !class-type-unchecked-mutators-set! + !class-type-precedence-list-set! 1 - !class-type-unchecked-mutators-set!) - (1 !class-type-ordered-slots 1 !class-type-ordered-slots) - (1 !class-type-mutators 1 !class-type-mutators) - (1 !class-type-accessors 1 !class-type-accessors) - (1 !class-type-descriptor 1 !class-type-descriptor) - (1 &!class-type-constructor 1 &!class-type-constructor) + !class-type-precedence-list-set!) + (1 !class-type-constructor-method 1 !class-type-constructor-method) + (1 !class-type-precedence-list 1 !class-type-precedence-list) (1 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) + (1 &!class-type-system?-set! 1 &!class-type-system?-set!) (1 - &!class-type-unchecked-mutators + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators) - (1 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (1 &!class-type-mutators 1 &!class-type-mutators) - (1 &!class-type-final? 1 &!class-type-final?) - (1 &!class-type-name 1 &!class-type-name) - (1 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + &!class-type-slot-contracts-set!) + (1 &!class-type-predicate 1 &!class-type-predicate) (1 - !class-type-unchecked-accessors + &!class-type-unchecked-mutators-set! 1 - !class-type-unchecked-accessors) - (1 !class-type-precedence-list 1 !class-type-precedence-list) - (1 !class-type-mutators-set! 1 !class-type-mutators-set!) - (1 !class-type-constructor 1 !class-type-constructor) - (1 !class-type-metaclass 1 !class-type-metaclass) - (1 !class-type-name 1 !class-type-name) - (1 &!class-type-id-set! 1 &!class-type-id-set!) + &!class-type-unchecked-mutators-set!) (1 !class-type-system?-set! 1 !class-type-system?-set!) - (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (1 !class-type-super 1 !class-type-super) + (1 &!class-type-struct?-set! 1 &!class-type-struct?-set!) (1 - &!class-type-constructor-method-set! + &!class-type-constructor-method 1 - &!class-type-constructor-method-set!) - (1 &!class-type-slots 1 &!class-type-slots) - (1 !class-type-constructor-set! 1 !class-type-constructor-set!) - (1 &!class-type-descriptor 1 &!class-type-descriptor) - (1 &!class-type-super 1 &!class-type-super) - (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (1 !class-type-system? 1 !class-type-system?) - (1 !class-type-struct? 1 !class-type-struct?) + &!class-type-constructor-method) (1 - class-type-info::apply-macro-expander + !class-type-constructor-method-set! 1 - class-type-info::apply-macro-expander) + !class-type-constructor-method-set!) + (1 &!class-type-id 1 &!class-type-id) + (1 !class-type-struct? 1 !class-type-struct?) + (1 !class-type-super-set! 1 !class-type-super-set!) (1 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) + (1 &!class-type-slot-types 1 &!class-type-slot-types) + (1 !class-type-descriptor 1 !class-type-descriptor) + (1 &!class-type-final? 1 &!class-type-final?) (1 - &!class-type-ordered-slots-set! + &!class-type-unchecked-mutators 1 - &!class-type-ordered-slots-set!) - (1 !class-type-slot-types 1 !class-type-slot-types) + &!class-type-unchecked-mutators) + (1 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (1 class-type-info? 1 class-type-info?) + (1 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (1 &!class-type-slots-set! 1 &!class-type-slots-set!) + (1 &!class-type-precedence-list 1 &!class-type-precedence-list) + (1 make-class-type-info 1 make-class-type-info) (1 &!class-type-name-set! 1 &!class-type-name-set!) - (1 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (1 &!class-type-predicate 1 &!class-type-predicate) - (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (1 !class-type-final? 1 !class-type-final?) + (1 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) (1 &!class-type-unchecked-accessors-set! 1 &!class-type-unchecked-accessors-set!) - (1 !class-type-final?-set! 1 !class-type-final?-set!) - (1 !class-type-super-set! 1 !class-type-super-set!) - (1 !class-type-final? 1 !class-type-final?) + (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (1 &!class-type-constructor 1 &!class-type-constructor) + (1 !class-type-metaclass 1 !class-type-metaclass) + (1 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (1 - &!class-type-constructor-method + !class-type-slot-contracts-set! 1 - &!class-type-constructor-method) - (1 !class-type-predicate-set! 1 !class-type-predicate-set!) - (1 !class-type-id 1 !class-type-id) + !class-type-slot-contracts-set!) + (1 !class-type-name-set! 1 !class-type-name-set!) + (1 &!class-type-super-set! 1 &!class-type-super-set!) + (1 !class-type-slot-types 1 !class-type-slot-types) (1 - &!class-type-unchecked-mutators-set! + &!class-type-constructor-method-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-constructor-method-set!) + (1 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (1 + class-type-info::apply-macro-expander + 1 + class-type-info::apply-macro-expander) + (1 &!class-type-accessors 1 &!class-type-accessors) + (1 &!class-type-slots 1 &!class-type-slots) + (1 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (1 &!class-type-mutators 1 &!class-type-mutators) + (1 !class-type-mutators 1 !class-type-mutators) + (1 !class-type-mutators-set! 1 !class-type-mutators-set!) (1 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (1 &!class-type-system?-set! 1 &!class-type-system?-set!) - (1 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (1 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (1 &!class-type-metaclass 1 &!class-type-metaclass) + (1 !class-type-predicate-set! 1 !class-type-predicate-set!) (1 &!class-type-system? 1 &!class-type-system?) + (1 &!class-type-super 1 &!class-type-super) + (1 !class-type-final?-set! 1 !class-type-final?-set!) + (1 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) (1 - !class-type-constructor-method-set! + !class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) - (1 &!class-type-slots-set! 1 &!class-type-slots-set!) - (1 !class-type-id-set! 1 !class-type-id-set!) - (1 &!class-type-slot-types 1 &!class-type-slot-types) + !class-type-unchecked-accessors) + (1 !class-type-accessors 1 !class-type-accessors) + (1 !class-type-name 1 !class-type-name) + (1 !class-type-id 1 !class-type-id) (1 - !class-type-slot-contracts-set! + !class-type-unchecked-mutators-set! 1 - !class-type-slot-contracts-set!) + !class-type-unchecked-mutators-set!) (1 !class-type-unchecked-accessors-set! 1 !class-type-unchecked-accessors-set!) + (1 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (1 !class-type-slots-set! 1 !class-type-slots-set!) + (1 !class-type-constructor 1 !class-type-constructor) + (1 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (1 &!class-type-final?-set! 1 &!class-type-final?-set!) (1 - !class-type-precedence-list-set! - 1 - !class-type-precedence-list-set!) - (1 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (1 - &!class-type-precedence-list-set! + &!class-type-ordered-slots-set! 1 - &!class-type-precedence-list-set!) - (1 &!class-type-struct? 1 &!class-type-struct?) - (1 &!class-type-precedence-list 1 &!class-type-precedence-list) - (1 !class-type-slot-defaults 1 !class-type-slot-defaults) - (1 !class-type-constructor-method 1 !class-type-constructor-method) - (1 !class-type-accessors-set! 1 !class-type-accessors-set!) - (1 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (1 !class-type-slot-contracts 1 !class-type-slot-contracts) - (1 !class-type-predicate 1 !class-type-predicate) - (1 !class-type-slots 1 !class-type-slots) - (1 class-type-info? 1 class-type-info?) - (1 class-type-info::t 1 class-type-info::t) + &!class-type-ordered-slots-set!) (1 class-type-info 1 class-type-info) + (1 defstruct 1 defstruct) + (1 define-struct 1 define-struct) + (1 defclass 1 defclass) (1 @-set! 1 @-set!) + (1 @ 1 @) (1 defmethod 1 defmethod) (1 define-class 1 define-class) - (1 define-struct 1 define-struct) - (1 @ 1 @) - (1 defclass 1 defclass) - (1 defstruct 1 defstruct) - (1 :readtable 1 :readtable) - (1 :cpxnum 1 :cpxnum) - (1 :thread 1 :thread) - (1 :promise 1 :promise) - (1 :boolean 1 :boolean) - (1 :string 1 :string) - (1 :s16vector 1 :s16vector) - (1 :t 1 :t) + (1 :box 1 :box) + (1 :thread-group 1 :thread-group) + (1 :symbol 1 :symbol) + (1 :true 1 :true) + (1 :void 1 :void) (1 :atom 1 :atom) - (1 :socket-info 1 :socket-info) + (1 :number 1 :number) + (1 :t 1 :t) + (1 :eof 1 :eof) + (1 class 1 class) + (1 :f32vector 1 :f32vector) + (1 :ratnum 1 :ratnum) + (1 :pair 1 :pair) (1 :u32vector 1 :u32vector) - (1 :symbolic 1 :symbolic) - (1 :file-info 1 :file-info) - (1 :true 1 :true) - (1 :vector-port 1 :vector-port) - (1 :readenv 1 :readenv) - (1 :procedure 1 :procedure) + (1 :list 1 :list) (1 :hvector 1 :hvector) - (1 :condvar 1 :condvar) - (1 :number 1 :number) - (1 :s32vector 1 :s32vector) - (1 :f64vector 1 :f64vector) - (1 :vm 1 :vm) - (1 :integer 1 :integer) + (1 :null 1 :null) (1 :u16vector 1 :u16vector) + (1 :string 1 :string) + (1 :s32vector 1 :s32vector) + (1 :frame 1 :frame) + (1 :port 1 :port) + (1 :boolean 1 :boolean) + (1 :flonum 1 :flonum) (1 :vector 1 :vector) + (1 :socket-info 1 :socket-info) + (1 :mutex 1 :mutex) + (1 :vm 1 :vm) + (1 :thread 1 :thread) + (1 :continuation 1 :continuation) (1 :values 1 :values) + (1 :integer 1 :integer) + (1 :weak 1 :weak) + (1 :u8vector 1 :u8vector) + (1 defsystem-class-info 1 defsystem-class-info) + (1 :procedure 1 :procedure) + (1 :f64vector 1 :f64vector) + (1 :s64vector 1 :s64vector) + (1 :s8vector 1 :s8vector) + (1 :keyword 1 :keyword) + (1 :class 1 :class) + (1 :immediate 1 :immediate) + (1 :condvar 1 :condvar) + (1 :vector-port 1 :vector-port) + (1 :real 1 :real) + (1 :char 1 :char) + (1 :object 1 :object) + (1 :udp-port 1 :udp-port) + (1 :address-info 1 :address-info) + (1 :file-info 1 :file-info) (1 :processor 1 :processor) + (1 :tcp-server-port 1 :tcp-server-port) + (1 :raw-device-port 1 :raw-device-port) + (1 :promise 1 :promise) (1 :writeenv 1 :writeenv) - (1 :udp-port 1 :udp-port) - (1 :sequence 1 :sequence) - (1 :thread-group 1 :thread-group) - (1 :keyword 1 :keyword) - (1 defsystem-class-info 1 defsystem-class-info) - (1 :directory-port 1 :directory-port) + (1 :device-port 1 :device-port) + (1 :cpxnum 1 :cpxnum) (1 :byte-port 1 :byte-port) - (1 :character-port 1 :character-port) - (1 :mutex 1 :mutex) - (1 :time 1 :time) - (1 :continuation 1 :continuation) (1 :bignum 1 :bignum) - (1 :box 1 :box) - (1 :s64vector 1 :s64vector) - (1 :u8vector 1 :u8vector) - (1 :real 1 :real) + (1 :u64vector 1 :u64vector) + (1 :special 1 :special) + (1 :false 1 :false) + (1 :s16vector 1 :s16vector) (1 :table 1 :table) - (1 :raw-device-port 1 :raw-device-port) + (1 :string-port 1 :string-port) + (1 :time 1 :time) + (1 :sequence 1 :sequence) + (1 :fixnum 1 :fixnum) + (1 :readtable 1 :readtable) + (1 :readenv 1 :readenv) (1 :event-queue-port 1 :event-queue-port) + (1 :directory-port 1 :directory-port) + (1 :symbolic 1 :symbolic) (1 :u8vector-port 1 :u8vector-port) - (1 :flonum 1 :flonum) - (1 :fixnum 1 :fixnum) - (1 :object 1 :object) - (1 :null 1 :null) - (1 :frame 1 :frame) - (1 :device-port 1 :device-port) - (1 :symbol 1 :symbol) - (1 :string-port 1 :string-port) - (1 :char 1 :char) - (1 :list 1 :list) + (1 :character-port 1 :character-port) (1 :object-port 1 :object-port) - (1 :f32vector 1 :f32vector) - (1 :pair 1 :pair) - (1 :special 1 :special) - (1 :port 1 :port) - (1 :void 1 :void) - (1 :foreign 1 :foreign) - (1 :false 1 :false) - (1 :weak 1 :weak) - (1 :s8vector 1 :s8vector) - (1 class 1 class) - (1 :ratnum 1 :ratnum) - (1 :address-info 1 :address-info) - (1 :eof 1 :eof) - (1 :immediate 1 :immediate) - (1 :tcp-server-port 1 :tcp-server-port) - (1 :u64vector 1 :u64vector) - (1 :class 1 :class)) + (1 :foreign 1 :foreign)) :gerbil/core/match :gerbil/core/more-sugar :gerbil/core/contract @@ -337,328 +337,328 @@ namespace: gerbil/core (phi: 1 :gerbil/core/sugar) (spec: (:gerbil/core/mop) - (1 MOP-2 0 MOP-2) + (1 MOP-3 0 MOP-3) (1 MOP-5 0 MOP-5) (1 MOP-1 0 MOP-1) + (1 MOP-2 0 MOP-2) (1 MOP-4 0 MOP-4) - (1 MOP-3 0 MOP-3) (1 defclass-type 0 defclass-type) (1 defstruct-type 0 defstruct-type) (2 module-type-id 1 module-type-id) (2 make-class-type-id 1 make-class-type-id) + (1 defstruct 0 defstruct) + (1 define-struct 0 define-struct) + (1 defclass 0 defclass) (1 @-set! 0 @-set!) + (1 @ 0 @) (1 defmethod 0 defmethod) (1 define-class 0 define-class) - (1 define-struct 0 define-struct) - (1 @ 0 @) - (1 defclass 0 defclass) - (1 defstruct 0 defstruct) - (1 :readtable 0 :readtable) - (1 :cpxnum 0 :cpxnum) - (1 :thread 0 :thread) - (1 :promise 0 :promise) - (1 :boolean 0 :boolean) - (1 :string 0 :string) - (1 :s16vector 0 :s16vector) - (1 :t 0 :t) + (1 :box 0 :box) + (1 :thread-group 0 :thread-group) + (1 :symbol 0 :symbol) + (1 :true 0 :true) + (1 :void 0 :void) (1 :atom 0 :atom) - (1 :socket-info 0 :socket-info) + (1 :number 0 :number) + (1 :t 0 :t) + (1 :eof 0 :eof) + (1 class 0 class) + (1 :f32vector 0 :f32vector) + (1 :ratnum 0 :ratnum) + (1 :pair 0 :pair) (1 :u32vector 0 :u32vector) - (1 :symbolic 0 :symbolic) - (1 :file-info 0 :file-info) - (1 :true 0 :true) - (1 :vector-port 0 :vector-port) - (1 :readenv 0 :readenv) - (1 :procedure 0 :procedure) + (1 :list 0 :list) (1 :hvector 0 :hvector) - (1 :condvar 0 :condvar) - (1 :number 0 :number) + (1 :null 0 :null) + (1 :u16vector 0 :u16vector) + (1 :string 0 :string) (1 :s32vector 0 :s32vector) - (1 :f64vector 0 :f64vector) + (1 :frame 0 :frame) + (1 :port 0 :port) + (1 :boolean 0 :boolean) + (1 :flonum 0 :flonum) + (1 :vector 0 :vector) + (1 :socket-info 0 :socket-info) + (1 :mutex 0 :mutex) (1 :vm 0 :vm) + (1 :thread 0 :thread) + (1 :continuation 0 :continuation) + (1 :values 0 :values) (1 :integer 0 :integer) - (1 :u16vector 0 :u16vector) - (1 :vector 0 :vector) - (1 :values 0 :values) + (1 :weak 0 :weak) + (1 :u8vector 0 :u8vector) + (1 defsystem-class-info 0 defsystem-class-info) + (1 :procedure 0 :procedure) + (1 :f64vector 0 :f64vector) + (1 :s64vector 0 :s64vector) + (1 :s8vector 0 :s8vector) + (1 :keyword 0 :keyword) + (1 :class 0 :class) + (1 :immediate 0 :immediate) + (1 :condvar 0 :condvar) + (1 :vector-port 0 :vector-port) + (1 :real 0 :real) + (1 :char 0 :char) + (1 :object 0 :object) + (1 :udp-port 0 :udp-port) + (1 :address-info 0 :address-info) + (1 :file-info 0 :file-info) (1 :processor 0 :processor) + (1 :tcp-server-port 0 :tcp-server-port) + (1 :raw-device-port 0 :raw-device-port) + (1 :promise 0 :promise) (1 :writeenv 0 :writeenv) - (1 :udp-port 0 :udp-port) - (1 :sequence 0 :sequence) - (1 :thread-group 0 :thread-group) - (1 :keyword 0 :keyword) - (1 defsystem-class-info 0 defsystem-class-info) - (1 :directory-port 0 :directory-port) + (1 :device-port 0 :device-port) + (1 :cpxnum 0 :cpxnum) (1 :byte-port 0 :byte-port) - (1 :character-port 0 :character-port) - (1 :mutex 0 :mutex) - (1 :time 0 :time) - (1 :continuation 0 :continuation) (1 :bignum 0 :bignum) - (1 :box 0 :box) - (1 :s64vector 0 :s64vector) - (1 :u8vector 0 :u8vector) - (1 :real 0 :real) + (1 :u64vector 0 :u64vector) + (1 :special 0 :special) + (1 :false 0 :false) + (1 :s16vector 0 :s16vector) (1 :table 0 :table) - (1 :raw-device-port 0 :raw-device-port) + (1 :string-port 0 :string-port) + (1 :time 0 :time) + (1 :sequence 0 :sequence) + (1 :fixnum 0 :fixnum) + (1 :readtable 0 :readtable) + (1 :readenv 0 :readenv) (1 :event-queue-port 0 :event-queue-port) + (1 :directory-port 0 :directory-port) + (1 :symbolic 0 :symbolic) (1 :u8vector-port 0 :u8vector-port) - (1 :flonum 0 :flonum) - (1 :fixnum 0 :fixnum) - (1 :object 0 :object) - (1 :null 0 :null) - (1 :frame 0 :frame) - (1 :device-port 0 :device-port) - (1 :symbol 0 :symbol) - (1 :string-port 0 :string-port) - (1 :char 0 :char) - (1 :list 0 :list) + (1 :character-port 0 :character-port) (1 :object-port 0 :object-port) - (1 :f32vector 0 :f32vector) - (1 :pair 0 :pair) - (1 :special 0 :special) - (1 :port 0 :port) - (1 :void 0 :void) (1 :foreign 0 :foreign) - (1 :false 0 :false) - (1 :weak 0 :weak) - (1 :s8vector 0 :s8vector) - (1 class 0 class) - (1 :ratnum 0 :ratnum) - (1 :address-info 0 :address-info) - (1 :eof 0 :eof) - (1 :immediate 0 :immediate) - (1 :tcp-server-port 0 :tcp-server-port) - (1 :u64vector 0 :u64vector) - (1 :class 0 :class) (2 defclass-type 1 defclass-type) (2 defstruct-type 1 defstruct-type) (3 module-type-id 2 module-type-id) (3 make-class-type-id 2 make-class-type-id) - (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 !class-type-accessors-set! 1 !class-type-accessors-set!) + (2 !class-type-slot-contracts 1 !class-type-slot-contracts) + (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) (2 !class-type-struct?-set! 1 !class-type-struct?-set!) - (2 !class-type-name-set! 1 !class-type-name-set!) - (2 !class-type-slots-set! 1 !class-type-slots-set!) - (2 &!class-type-id 1 &!class-type-id) - (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) - (2 &!class-type-final?-set! 1 &!class-type-final?-set!) - (2 make-class-type-info 1 make-class-type-info) - (2 &!class-type-metaclass 1 &!class-type-metaclass) - (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) - (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) + (2 !class-type-id-set! 1 !class-type-id-set!) + (2 !class-type-slot-defaults 1 !class-type-slot-defaults) + (2 !class-type-ordered-slots 1 !class-type-ordered-slots) + (2 !class-type-slots 1 !class-type-slots) + (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) + (2 !class-type-predicate 1 !class-type-predicate) + (2 !class-type-constructor-set! 1 !class-type-constructor-set!) (2 - &!class-type-slot-contracts-set! + &!class-type-precedence-list-set! 1 - &!class-type-slot-contracts-set!) - (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) - (2 &!class-type-accessors 1 &!class-type-accessors) + &!class-type-precedence-list-set!) + (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 !class-type-system? 1 !class-type-system?) + (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) + (2 &!class-type-id-set! 1 &!class-type-id-set!) + (2 !class-type-super 1 !class-type-super) + (2 &!class-type-descriptor 1 &!class-type-descriptor) + (2 &!class-type-struct? 1 &!class-type-struct?) + (2 class-type-info::t 1 class-type-info::t) + (2 &!class-type-name 1 &!class-type-name) (2 - !class-type-unchecked-mutators-set! + !class-type-precedence-list-set! 1 - !class-type-unchecked-mutators-set!) - (2 !class-type-ordered-slots 1 !class-type-ordered-slots) - (2 !class-type-mutators 1 !class-type-mutators) - (2 !class-type-accessors 1 !class-type-accessors) - (2 !class-type-descriptor 1 !class-type-descriptor) - (2 &!class-type-constructor 1 &!class-type-constructor) + !class-type-precedence-list-set!) + (2 !class-type-constructor-method 1 !class-type-constructor-method) + (2 !class-type-precedence-list 1 !class-type-precedence-list) (2 &!class-type-unchecked-accessors 1 &!class-type-unchecked-accessors) + (2 &!class-type-system?-set! 1 &!class-type-system?-set!) (2 - &!class-type-unchecked-mutators + &!class-type-slot-contracts-set! 1 - &!class-type-unchecked-mutators) - (2 !class-type-descriptor-set! 1 !class-type-descriptor-set!) - (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) - (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) - (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) - (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) - (2 &!class-type-mutators 1 &!class-type-mutators) - (2 &!class-type-final? 1 &!class-type-final?) - (2 &!class-type-name 1 &!class-type-name) - (2 !class-type-ordered-slots-set! 1 !class-type-ordered-slots-set!) + &!class-type-slot-contracts-set!) + (2 &!class-type-predicate 1 &!class-type-predicate) (2 - !class-type-unchecked-accessors + &!class-type-unchecked-mutators-set! 1 - !class-type-unchecked-accessors) - (2 !class-type-precedence-list 1 !class-type-precedence-list) - (2 !class-type-mutators-set! 1 !class-type-mutators-set!) - (2 !class-type-constructor 1 !class-type-constructor) - (2 !class-type-metaclass 1 !class-type-metaclass) - (2 !class-type-name 1 !class-type-name) - (2 &!class-type-id-set! 1 &!class-type-id-set!) + &!class-type-unchecked-mutators-set!) (2 !class-type-system?-set! 1 !class-type-system?-set!) - (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) - (2 !class-type-super 1 !class-type-super) + (2 &!class-type-struct?-set! 1 &!class-type-struct?-set!) (2 - &!class-type-constructor-method-set! + &!class-type-constructor-method 1 - &!class-type-constructor-method-set!) - (2 &!class-type-slots 1 &!class-type-slots) - (2 !class-type-constructor-set! 1 !class-type-constructor-set!) - (2 &!class-type-descriptor 1 &!class-type-descriptor) - (2 &!class-type-super 1 &!class-type-super) - (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) - (2 !class-type-system? 1 !class-type-system?) - (2 !class-type-struct? 1 !class-type-struct?) + &!class-type-constructor-method) (2 - class-type-info::apply-macro-expander + !class-type-constructor-method-set! 1 - class-type-info::apply-macro-expander) + !class-type-constructor-method-set!) + (2 &!class-type-id 1 &!class-type-id) + (2 !class-type-struct? 1 !class-type-struct?) + (2 !class-type-super-set! 1 !class-type-super-set!) (2 &!class-type-slot-defaults-set! 1 &!class-type-slot-defaults-set!) + (2 &!class-type-slot-types 1 &!class-type-slot-types) + (2 !class-type-descriptor 1 !class-type-descriptor) + (2 &!class-type-final? 1 &!class-type-final?) (2 - &!class-type-ordered-slots-set! + &!class-type-unchecked-mutators 1 - &!class-type-ordered-slots-set!) - (2 !class-type-slot-types 1 !class-type-slot-types) + &!class-type-unchecked-mutators) + (2 !class-type-slot-types-set! 1 !class-type-slot-types-set!) + (2 class-type-info? 1 class-type-info?) + (2 &!class-type-ordered-slots 1 &!class-type-ordered-slots) + (2 &!class-type-slots-set! 1 &!class-type-slots-set!) + (2 &!class-type-precedence-list 1 &!class-type-precedence-list) + (2 make-class-type-info 1 make-class-type-info) (2 &!class-type-name-set! 1 &!class-type-name-set!) - (2 &!class-type-predicate-set! 1 &!class-type-predicate-set!) - (2 &!class-type-predicate 1 &!class-type-predicate) - (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 !class-type-final? 1 !class-type-final?) + (2 !class-type-slot-defaults-set! 1 !class-type-slot-defaults-set!) + (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) (2 &!class-type-unchecked-accessors-set! 1 &!class-type-unchecked-accessors-set!) - (2 !class-type-final?-set! 1 !class-type-final?-set!) - (2 !class-type-super-set! 1 !class-type-super-set!) - (2 !class-type-final? 1 !class-type-final?) + (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) + (2 &!class-type-constructor 1 &!class-type-constructor) + (2 !class-type-metaclass 1 !class-type-metaclass) + (2 &!class-type-accessors-set! 1 &!class-type-accessors-set!) (2 - &!class-type-constructor-method + !class-type-slot-contracts-set! 1 - &!class-type-constructor-method) - (2 !class-type-predicate-set! 1 !class-type-predicate-set!) - (2 !class-type-id 1 !class-type-id) + !class-type-slot-contracts-set!) + (2 !class-type-name-set! 1 !class-type-name-set!) + (2 &!class-type-super-set! 1 &!class-type-super-set!) + (2 !class-type-slot-types 1 !class-type-slot-types) (2 - &!class-type-unchecked-mutators-set! + &!class-type-constructor-method-set! 1 - &!class-type-unchecked-mutators-set!) + &!class-type-constructor-method-set!) + (2 syntax-local-class-type-info? 1 syntax-local-class-type-info?) + (2 + class-type-info::apply-macro-expander + 1 + class-type-info::apply-macro-expander) + (2 &!class-type-accessors 1 &!class-type-accessors) + (2 &!class-type-slots 1 &!class-type-slots) + (2 &!class-type-slot-types-set! 1 &!class-type-slot-types-set!) + (2 &!class-type-mutators 1 &!class-type-mutators) + (2 !class-type-mutators 1 !class-type-mutators) + (2 !class-type-mutators-set! 1 !class-type-mutators-set!) (2 &!class-type-constructor-set! 1 &!class-type-constructor-set!) - (2 &!class-type-system?-set! 1 &!class-type-system?-set!) - (2 &!class-type-slot-contracts 1 &!class-type-slot-contracts) + (2 &!class-type-slot-defaults 1 &!class-type-slot-defaults) + (2 &!class-type-metaclass 1 &!class-type-metaclass) + (2 !class-type-predicate-set! 1 !class-type-predicate-set!) (2 &!class-type-system? 1 &!class-type-system?) + (2 &!class-type-super 1 &!class-type-super) + (2 !class-type-final?-set! 1 !class-type-final?-set!) + (2 !class-type-unchecked-mutators 1 !class-type-unchecked-mutators) (2 - !class-type-constructor-method-set! + !class-type-unchecked-accessors 1 - !class-type-constructor-method-set!) - (2 &!class-type-slots-set! 1 &!class-type-slots-set!) - (2 !class-type-id-set! 1 !class-type-id-set!) - (2 &!class-type-slot-types 1 &!class-type-slot-types) + !class-type-unchecked-accessors) + (2 !class-type-accessors 1 !class-type-accessors) + (2 !class-type-name 1 !class-type-name) + (2 !class-type-id 1 !class-type-id) (2 - !class-type-slot-contracts-set! + !class-type-unchecked-mutators-set! 1 - !class-type-slot-contracts-set!) + !class-type-unchecked-mutators-set!) (2 !class-type-unchecked-accessors-set! 1 !class-type-unchecked-accessors-set!) + (2 &!class-type-descriptor-set! 1 &!class-type-descriptor-set!) + (2 !class-type-slots-set! 1 !class-type-slots-set!) + (2 !class-type-constructor 1 !class-type-constructor) + (2 &!class-type-metaclass-set! 1 &!class-type-metaclass-set!) + (2 &!class-type-final?-set! 1 &!class-type-final?-set!) (2 - !class-type-precedence-list-set! + &!class-type-ordered-slots-set! 1 - !class-type-precedence-list-set!) - (2 &!class-type-mutators-set! 1 &!class-type-mutators-set!) - (2 - &!class-type-precedence-list-set! - 1 - &!class-type-precedence-list-set!) - (2 &!class-type-struct? 1 &!class-type-struct?) - (2 &!class-type-precedence-list 1 &!class-type-precedence-list) - (2 !class-type-slot-defaults 1 !class-type-slot-defaults) - (2 !class-type-constructor-method 1 !class-type-constructor-method) - (2 !class-type-accessors-set! 1 !class-type-accessors-set!) - (2 !class-type-metaclass-set! 1 !class-type-metaclass-set!) - (2 !class-type-slot-contracts 1 !class-type-slot-contracts) - (2 !class-type-predicate 1 !class-type-predicate) - (2 !class-type-slots 1 !class-type-slots) - (2 class-type-info? 1 class-type-info?) - (2 class-type-info::t 1 class-type-info::t) + &!class-type-ordered-slots-set!) (2 class-type-info 1 class-type-info) + (2 defstruct 1 defstruct) + (2 define-struct 1 define-struct) + (2 defclass 1 defclass) (2 @-set! 1 @-set!) + (2 @ 1 @) (2 defmethod 1 defmethod) (2 define-class 1 define-class) - (2 define-struct 1 define-struct) - (2 @ 1 @) - (2 defclass 1 defclass) - (2 defstruct 1 defstruct) - (2 :readtable 1 :readtable) - (2 :cpxnum 1 :cpxnum) - (2 :thread 1 :thread) - (2 :promise 1 :promise) - (2 :boolean 1 :boolean) - (2 :string 1 :string) - (2 :s16vector 1 :s16vector) - (2 :t 1 :t) + (2 :box 1 :box) + (2 :thread-group 1 :thread-group) + (2 :symbol 1 :symbol) + (2 :true 1 :true) + (2 :void 1 :void) (2 :atom 1 :atom) - (2 :socket-info 1 :socket-info) + (2 :number 1 :number) + (2 :t 1 :t) + (2 :eof 1 :eof) + (2 class 1 class) + (2 :f32vector 1 :f32vector) + (2 :ratnum 1 :ratnum) + (2 :pair 1 :pair) (2 :u32vector 1 :u32vector) - (2 :symbolic 1 :symbolic) - (2 :file-info 1 :file-info) - (2 :true 1 :true) - (2 :vector-port 1 :vector-port) - (2 :readenv 1 :readenv) - (2 :procedure 1 :procedure) + (2 :list 1 :list) (2 :hvector 1 :hvector) - (2 :condvar 1 :condvar) - (2 :number 1 :number) - (2 :s32vector 1 :s32vector) - (2 :f64vector 1 :f64vector) - (2 :vm 1 :vm) - (2 :integer 1 :integer) + (2 :null 1 :null) (2 :u16vector 1 :u16vector) + (2 :string 1 :string) + (2 :s32vector 1 :s32vector) + (2 :frame 1 :frame) + (2 :port 1 :port) + (2 :boolean 1 :boolean) + (2 :flonum 1 :flonum) (2 :vector 1 :vector) + (2 :socket-info 1 :socket-info) + (2 :mutex 1 :mutex) + (2 :vm 1 :vm) + (2 :thread 1 :thread) + (2 :continuation 1 :continuation) (2 :values 1 :values) + (2 :integer 1 :integer) + (2 :weak 1 :weak) + (2 :u8vector 1 :u8vector) + (2 defsystem-class-info 1 defsystem-class-info) + (2 :procedure 1 :procedure) + (2 :f64vector 1 :f64vector) + (2 :s64vector 1 :s64vector) + (2 :s8vector 1 :s8vector) + (2 :keyword 1 :keyword) + (2 :class 1 :class) + (2 :immediate 1 :immediate) + (2 :condvar 1 :condvar) + (2 :vector-port 1 :vector-port) + (2 :real 1 :real) + (2 :char 1 :char) + (2 :object 1 :object) + (2 :udp-port 1 :udp-port) + (2 :address-info 1 :address-info) + (2 :file-info 1 :file-info) (2 :processor 1 :processor) + (2 :tcp-server-port 1 :tcp-server-port) + (2 :raw-device-port 1 :raw-device-port) + (2 :promise 1 :promise) (2 :writeenv 1 :writeenv) - (2 :udp-port 1 :udp-port) - (2 :sequence 1 :sequence) - (2 :thread-group 1 :thread-group) - (2 :keyword 1 :keyword) - (2 defsystem-class-info 1 defsystem-class-info) - (2 :directory-port 1 :directory-port) + (2 :device-port 1 :device-port) + (2 :cpxnum 1 :cpxnum) (2 :byte-port 1 :byte-port) - (2 :character-port 1 :character-port) - (2 :mutex 1 :mutex) - (2 :time 1 :time) - (2 :continuation 1 :continuation) (2 :bignum 1 :bignum) - (2 :box 1 :box) - (2 :s64vector 1 :s64vector) - (2 :u8vector 1 :u8vector) - (2 :real 1 :real) + (2 :u64vector 1 :u64vector) + (2 :special 1 :special) + (2 :false 1 :false) + (2 :s16vector 1 :s16vector) (2 :table 1 :table) - (2 :raw-device-port 1 :raw-device-port) + (2 :string-port 1 :string-port) + (2 :time 1 :time) + (2 :sequence 1 :sequence) + (2 :fixnum 1 :fixnum) + (2 :readtable 1 :readtable) + (2 :readenv 1 :readenv) (2 :event-queue-port 1 :event-queue-port) + (2 :directory-port 1 :directory-port) + (2 :symbolic 1 :symbolic) (2 :u8vector-port 1 :u8vector-port) - (2 :flonum 1 :flonum) - (2 :fixnum 1 :fixnum) - (2 :object 1 :object) - (2 :null 1 :null) - (2 :frame 1 :frame) - (2 :device-port 1 :device-port) - (2 :symbol 1 :symbol) - (2 :string-port 1 :string-port) - (2 :char 1 :char) - (2 :list 1 :list) + (2 :character-port 1 :character-port) (2 :object-port 1 :object-port) - (2 :f32vector 1 :f32vector) - (2 :pair 1 :pair) - (2 :special 1 :special) - (2 :port 1 :port) - (2 :void 1 :void) - (2 :foreign 1 :foreign) - (2 :false 1 :false) - (2 :weak 1 :weak) - (2 :s8vector 1 :s8vector) - (2 class 1 class) - (2 :ratnum 1 :ratnum) - (2 :address-info 1 :address-info) - (2 :eof 1 :eof) - (2 :immediate 1 :immediate) - (2 :tcp-server-port 1 :tcp-server-port) - (2 :u64vector 1 :u64vector) - (2 :class 1 :class)) + (2 :foreign 1 :foreign)) (phi: 1 :gerbil/core/match) (phi: 1 :gerbil/core/more-sugar) (phi: 1 :gerbil/core/contract) @@ -669,2669 +669,2671 @@ namespace: gerbil/core (phi: 2 :gerbil/core/expander)) (%#export (spec: 1 !class-precedence-list !class-precedence-list) + (spec: 1 type-env-var type-env-var) + (spec: 1 type-env type-env) + (spec: 1 type-env? type-env?) (spec: 1 type-env-var-set! type-env-var-set!) - (spec: 1 type-env-checked?-set! type-env-checked?-set!) - (spec: 1 &type-env-super &type-env-super) (spec: 1 &type-env-type &type-env-type) - (spec: 1 &type-env-var-set! &type-env-var-set!) + (spec: 1 type-env-lookup type-env-lookup) (spec: 1 type-env-checked? type-env-checked?) - (spec: 1 type-env-super type-env-super) - (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 1 &type-env-checked? &type-env-checked?) (spec: 1 &type-env-var &type-env-var) - (spec: 1 type-env? type-env?) - (spec: 1 &type-env-type-set! &type-env-type-set!) - (spec: 1 type-env::t type-env::t) - (spec: 1 type-env-type type-env-type) - (spec: 1 type-env-var type-env-var) - (spec: 1 current-type-env current-type-env) - (spec: 1 type-env-lookup type-env-lookup) - (spec: 1 type-env type-env) + (spec: 1 &type-env-var-set! &type-env-var-set!) (spec: 1 type-env-super-set! type-env-super-set!) + (spec: 1 &type-env-checked?-set! &type-env-checked?-set!) (spec: 1 make-type-env make-type-env) - (spec: 1 type-env-type-set! type-env-type-set!) + (spec: 1 current-type-env current-type-env) + (spec: 1 type-env-type type-env-type) + (spec: 1 type-env::t type-env::t) + (spec: 1 &type-env-checked? &type-env-checked?) + (spec: 1 &type-env-type-set! &type-env-type-set!) (spec: 1 &type-env-super-set! &type-env-super-set!) + (spec: 1 &type-env-super &type-env-super) + (spec: 1 type-env-checked?-set! type-env-checked?-set!) + (spec: 1 type-env-type-set! type-env-type-set!) + (spec: 1 type-env-super type-env-super) (spec: 1 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) - (spec: - 1 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) - (spec: - 1 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 1 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 1 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 1 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 1 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) (spec: 1 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 1 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 1 interface-info interface-info) (spec: 1 interface-info-instance-predicate interface-info-instance-predicate) + (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + (spec: 1 interface-info::t interface-info::t) (spec: 1 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 1 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) - (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 1 - &interface-info-instance-predicate - &interface-info-instance-predicate) + interface-info-interface-methods + interface-info-interface-methods) (spec: 1 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 1 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 1 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 1 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 1 interface-info-instance-type-set! interface-info-instance-type-set!) + (spec: 1 make-interface-info make-interface-info) + (spec: 1 interface-info? interface-info?) (spec: 1 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: - 1 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 1 &interface-info-name-set! &interface-info-name-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) + (spec: 1 interface-info-name-set! interface-info-name-set!) (spec: 1 &interface-info-instance-try-constructor-set! &interface-info-instance-try-constructor-set!) - (spec: 1 &interface-info-name &interface-info-name) (spec: 1 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 1 interface-info? interface-info?) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 1 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 1 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 1 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 1 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 1 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 1 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 1 interface-info-name interface-info-name) (spec: 1 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) + (spec: 1 syntax-local-interface-info? syntax-local-interface-info?) (spec: 1 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) + (spec: + 1 + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 1 interface-info-interface-methods-set! interface-info-interface-methods-set!) - (spec: 1 interface-info-instance-type interface-info-instance-type) - (spec: 1 interface-info-name-set! interface-info-name-set!) - (spec: 1 interface-info::t interface-info::t) (spec: 1 - interface-info-implementation-methods - interface-info-implementation-methods) - (spec: 1 interface-info-name interface-info-name) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 1 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 1 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 1 interface-info interface-info) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) + (spec: 1 &interface-info-name-set! &interface-info-name-set!) (spec: 1 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: 1 interface-info-instance-type interface-info-instance-type) + (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 &interface-info-interface-methods-set! &interface-info-interface-methods-set!) - (spec: 1 make-interface-info make-interface-info) - (spec: - 1 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) - (spec: 1 &interface-info-instance-type &interface-info-instance-type) (spec: 1 &interface-info-interface-descriptor &interface-info-interface-descriptor) (spec: 1 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 1 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 1 &interface-info-name &interface-info-name) + (spec: + 1 + interface-info-interface-mixin + interface-info-interface-mixin) + (spec: + 1 + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) + (spec: + 1 + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 1 is-signature? is-signature?) + (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 defmutable* defmutable*) + (spec: 0 do-loop-result do-loop-result) + (spec: 0 do-while/c do-while/c) + (spec: 0 case-lambda/c case-lambda/c) + (spec: 0 let/c let/c) (spec: 0 lambda/c lambda/c) - (spec: 0 @method @method) - (spec: 0 with-procedure-signature with-procedure-signature) - (spec: 0 def*/c def*/c) + (spec: 0 defmethod/c defmethod/c) (spec: 0 defstruct/c defstruct/c) + (spec: 0 @method @method) (spec: 0 do/c do/c) - (spec: 0 do-loop-result do-loop-result) (spec: 0 do-loop-step do-loop-step) (spec: 0 defclass/c defclass/c) - (spec: 0 defmutable* defmutable*) (spec: 0 defmutable defmutable) - (spec: 0 with-procedure-contract with-procedure-contract) + (spec: 0 with-receiver with-receiver) + (spec: 0 def*/c def*/c) (spec: 0 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 0 case-lambda/c case-lambda/c) - (spec: 0 with-receiver with-receiver) - (spec: 0 let/c let/c) - (spec: 0 do-while/c do-while/c) - (spec: 0 defmethod/c defmethod/c) (spec: 0 def/c def/c) - (spec: 1 check-signature! check-signature!) - (spec: 1 compatible-type-contract? compatible-type-contract?) - (spec: 1 check-signature-spec! check-signature-spec!) - (spec: 1 make-procedure-contract make-procedure-contract) + (spec: 0 with-procedure-signature with-procedure-signature) + (spec: 1 check-valid-type! check-valid-type!) + (spec: 1 signature-keywords signature-keywords) (spec: 1 signature-contract? signature-contract?) - (spec: 1 keywordidentifier resolve-type->identifier) + (spec: 1 type-reference? type-reference?) (spec: 1 make-type-reference make-type-reference) - (spec: 1 &type-reference-identifier &type-reference-identifier) (spec: 1 &type-reference-identifier-set! &type-reference-identifier-set!) + (spec: 1 type-identifier? type-identifier?) (spec: 1 resolve-type resolve-type) + (spec: 1 type-reference::t type-reference::t) (spec: 1 type-reference-identifier type-reference-identifier) - (spec: 1 type-reference? type-reference?) - (spec: 1 resolve-type->identifier resolve-type->identifier) + (spec: 1 type-reference type-reference) (spec: 1 type-reference-identifier-set! type-reference-identifier-set!) - (spec: 1 type-reference type-reference) + (spec: 1 &type-reference-identifier &type-reference-identifier) (spec: 1 resolve-type->type-descriptor resolve-type->type-descriptor) - (spec: 1 type-identifier? type-identifier?) (spec: 0 deftype deftype) - (spec: 0 TypeReference TypeReference) - (spec: 0 TypedDefinitions TypedDefinitions) - (spec: 0 ClassMeta ClassMeta) (spec: 0 InterfaceInfo InterfaceInfo) + (spec: 0 TypeEnv TypeEnv) + (spec: 0 TypeReference TypeReference) + (spec: 0 Using Using) (spec: 0 TypeCast TypeCast) + (spec: 0 ClassMeta ClassMeta) (spec: 0 Interface Interface) (spec: 0 ContractRules ContractRules) - (spec: 0 TypeEnv TypeEnv) - (spec: 0 Using Using) - (spec: 0 group-in group-in) - (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) - (spec: 0 except-out except-out) - (spec: 0 defsyntax-for-import defsyntax-for-import) - (spec: 0 except-in except-in) + (spec: 0 TypedDefinitions TypedDefinitions) (spec: 0 require require) - (spec: 0 for-syntax for-syntax) + (spec: 0 prefix-in prefix-in) (spec: 0 only-in only-in) - (spec: 0 rename-out rename-out) - (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 except-out except-out) + (spec: 0 group-in group-in) + (spec: 0 for-syntax for-syntax) + (spec: 0 prefix-out prefix-out) (spec: 0 rename-in rename-in) + (spec: 0 defsyntax-for-import-export defsyntax-for-import-export) + (spec: 0 rename-out rename-out) (spec: 0 struct-out struct-out) - (spec: 0 prefix-out prefix-out) - (spec: 0 prefix-in prefix-in) (spec: 0 for-template for-template) - (spec: 1 make-setq-macro make-setq-macro) - (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 1 setf-macro? setf-macro?) - (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 0 except-in except-in) + (spec: 0 defsyntax-for-export defsyntax-for-export) + (spec: 0 defsyntax-for-import defsyntax-for-import) (spec: 1 setq-macro-macro setq-macro-macro) - (spec: 1 &setf-macro-macro &setf-macro-macro) - (spec: 1 setf-macro::t setf-macro::t) - (spec: 1 setq-macro::t setq-macro::t) - (spec: 1 &setq-macro-macro &setq-macro-macro) (spec: 1 setq-macro setq-macro) - (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 setf-macro? setf-macro?) + (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 setq-macro::t setq-macro::t) (spec: 1 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 1 setf-macro-macro setf-macro-macro) - (spec: 1 setq-macro? setq-macro?) + (spec: 1 &setf-macro-macro &setf-macro-macro) (spec: 1 make-setf-macro make-setf-macro) + (spec: 1 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 &setq-macro-macro &setq-macro-macro) + (spec: 1 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 1 setf-macro setf-macro) (spec: 1 expand-set! expand-set!) + (spec: 1 setq-macro? setq-macro?) + (spec: 1 setf-macro-macro setf-macro-macro) (spec: 1 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 1 setf-macro setf-macro) - (spec: 1 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 1 setf-macro::t setf-macro::t) + (spec: 1 make-setq-macro make-setq-macro) + (spec: 1 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 0 parameterize parameterize) (spec: 0 values-set! values-set!) - (spec: 0 let/cc let/cc) - (spec: 0 unwind-protect unwind-protect) (spec: 0 eval-when-compile eval-when-compile) - (spec: 0 parameterize parameterize) (spec: 0 @bytes @bytes) + (spec: 0 unwind-protect unwind-protect) + (spec: 0 let/cc let/cc) (spec: 1 match-pattern? match-pattern?) (spec: 1 syntax-local-match-macro? syntax-local-match-macro?) (spec: 1 match-macro? match-macro?) (spec: 1 make-match-macro make-match-macro) (spec: 1 match-macro::t match-macro::t) (spec: 1 match-macro match-macro) - (spec: 0 match match) - (spec: 0 match* match*) - (spec: 0 defsyntax-for-match defsyntax-for-match) - (spec: 0 with with) (spec: 0 with* with*) - (spec: 0 ? ?) + (spec: 0 with with) (spec: 0 defrules-for-match defrules-for-match) - (spec: 0 :class :class) - (spec: 0 :u64vector :u64vector) - (spec: 0 :tcp-server-port :tcp-server-port) - (spec: 0 :immediate :immediate) - (spec: 0 :eof :eof) - (spec: 0 :address-info :address-info) - (spec: 0 :ratnum :ratnum) - (spec: 0 class class) - (spec: 0 :s8vector :s8vector) - (spec: 0 :weak :weak) - (spec: 0 :false :false) + (spec: 0 ? ?) + (spec: 0 match* match*) + (spec: 0 match match) + (spec: 0 defsyntax-for-match defsyntax-for-match) (spec: 0 :foreign :foreign) - (spec: 0 :void :void) - (spec: 0 :port :port) - (spec: 0 :special :special) - (spec: 0 :pair :pair) - (spec: 0 :f32vector :f32vector) (spec: 0 :object-port :object-port) - (spec: 0 :list :list) - (spec: 0 :char :char) - (spec: 0 :string-port :string-port) - (spec: 0 :symbol :symbol) - (spec: 0 :device-port :device-port) - (spec: 0 :frame :frame) - (spec: 0 :null :null) - (spec: 0 :object :object) - (spec: 0 :fixnum :fixnum) - (spec: 0 :flonum :flonum) + (spec: 0 :character-port :character-port) (spec: 0 :u8vector-port :u8vector-port) + (spec: 0 :symbolic :symbolic) + (spec: 0 :directory-port :directory-port) (spec: 0 :event-queue-port :event-queue-port) - (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :readenv :readenv) + (spec: 0 :readtable :readtable) + (spec: 0 :fixnum :fixnum) + (spec: 0 :sequence :sequence) + (spec: 0 :time :time) + (spec: 0 :string-port :string-port) (spec: 0 :table :table) - (spec: 0 :real :real) - (spec: 0 :u8vector :u8vector) - (spec: 0 :s64vector :s64vector) - (spec: 0 :box :box) + (spec: 0 :s16vector :s16vector) + (spec: 0 :false :false) + (spec: 0 :special :special) + (spec: 0 :u64vector :u64vector) (spec: 0 :bignum :bignum) - (spec: 0 :continuation :continuation) - (spec: 0 :time :time) - (spec: 0 :mutex :mutex) - (spec: 0 :character-port :character-port) (spec: 0 :byte-port :byte-port) - (spec: 0 :directory-port :directory-port) - (spec: 0 defsystem-class-info defsystem-class-info) - (spec: 0 :keyword :keyword) - (spec: 0 :thread-group :thread-group) - (spec: 0 :sequence :sequence) - (spec: 0 :udp-port :udp-port) + (spec: 0 :cpxnum :cpxnum) + (spec: 0 :device-port :device-port) (spec: 0 :writeenv :writeenv) + (spec: 0 :promise :promise) + (spec: 0 :raw-device-port :raw-device-port) + (spec: 0 :tcp-server-port :tcp-server-port) (spec: 0 :processor :processor) - (spec: 0 :values :values) - (spec: 0 :vector :vector) - (spec: 0 :u16vector :u16vector) + (spec: 0 :file-info :file-info) + (spec: 0 :address-info :address-info) + (spec: 0 :udp-port :udp-port) + (spec: 0 :object :object) + (spec: 0 :char :char) + (spec: 0 :real :real) + (spec: 0 :vector-port :vector-port) + (spec: 0 :condvar :condvar) + (spec: 0 :immediate :immediate) + (spec: 0 :class :class) + (spec: 0 :keyword :keyword) + (spec: 0 :s8vector :s8vector) + (spec: 0 :s64vector :s64vector) + (spec: 0 :f64vector :f64vector) + (spec: 0 :procedure :procedure) + (spec: 0 defsystem-class-info defsystem-class-info) + (spec: 0 :u8vector :u8vector) + (spec: 0 :weak :weak) (spec: 0 :integer :integer) + (spec: 0 :values :values) + (spec: 0 :continuation :continuation) + (spec: 0 :thread :thread) (spec: 0 :vm :vm) - (spec: 0 :f64vector :f64vector) + (spec: 0 :mutex :mutex) + (spec: 0 :socket-info :socket-info) + (spec: 0 :vector :vector) + (spec: 0 :flonum :flonum) + (spec: 0 :boolean :boolean) + (spec: 0 :port :port) + (spec: 0 :frame :frame) (spec: 0 :s32vector :s32vector) - (spec: 0 :number :number) - (spec: 0 :condvar :condvar) + (spec: 0 :string :string) + (spec: 0 :u16vector :u16vector) + (spec: 0 :null :null) (spec: 0 :hvector :hvector) - (spec: 0 :procedure :procedure) - (spec: 0 :readenv :readenv) - (spec: 0 :vector-port :vector-port) - (spec: 0 :true :true) - (spec: 0 :file-info :file-info) - (spec: 0 :symbolic :symbolic) + (spec: 0 :list :list) (spec: 0 :u32vector :u32vector) - (spec: 0 :socket-info :socket-info) - (spec: 0 :atom :atom) + (spec: 0 :pair :pair) + (spec: 0 :ratnum :ratnum) + (spec: 0 :f32vector :f32vector) + (spec: 0 class class) + (spec: 0 :eof :eof) (spec: 0 :t :t) - (spec: 0 :s16vector :s16vector) - (spec: 0 :string :string) - (spec: 0 :boolean :boolean) - (spec: 0 :promise :promise) - (spec: 0 :thread :thread) - (spec: 0 :cpxnum :cpxnum) - (spec: 0 :readtable :readtable) - (spec: 0 @ @) - (spec: 0 define-struct define-struct) + (spec: 0 :number :number) + (spec: 0 :atom :atom) + (spec: 0 :void :void) + (spec: 0 :true :true) + (spec: 0 :symbol :symbol) + (spec: 0 :thread-group :thread-group) + (spec: 0 :box :box) (spec: 0 define-class define-class) + (spec: 0 @ @) (spec: 0 @-set! @-set!) + (spec: 0 define-struct define-struct) (spec: 0 defstruct-type defstruct-type) (spec: 0 defclass-type defclass-type) - (spec: 0 MOP-3 MOP-3) (spec: 0 MOP-4 MOP-4) + (spec: 0 MOP-2 MOP-2) (spec: 0 MOP-1 MOP-1) (spec: 0 MOP-5 MOP-5) - (spec: 0 MOP-2 MOP-2) - (spec: 0 defconst defconst) - (spec: 0 defsyntax defsyntax) + (spec: 0 MOP-3 MOP-3) (spec: 0 definline definline) - (spec: 0 <> <>) - (spec: 0 quasiquote quasiquote) - (spec: 0 alet* alet*) - (spec: 0 case case) - (spec: 0 and-let* and-let*) + (spec: 0 defsyntax defsyntax) + (spec: 0 defconst defconst) (spec: 0 begin0 begin0) - (spec: 0 ~case ~case) + (spec: 0 @list @list) (spec: 0 cut cut) (spec: 0 ~case-dispatch* ~case-dispatch*) - (spec: 0 ~case-test ~case-test) - (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 alet alet) + (spec: 0 quasiquote quasiquote) (spec: 0 ~case-dispatch ~case-dispatch) - (spec: 0 delay delay) + (spec: 0 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 0 rec rec) + (spec: 0 and-let* and-let*) (spec: 0 <...> <...>) - (spec: 0 @list @list) - (spec: 0 alet alet) (spec: 0 defvalues defvalues) - (spec: 0 rec rec) - (spec: 0 when when) + (spec: 0 case case) + (spec: 0 ~case ~case) + (spec: 0 <> <>) + (spec: 0 ~case-test ~case-test) + (spec: 0 delay delay) + (spec: 0 alet* alet*) (spec: 0 define define) - (spec: 0 defalias defalias) + (spec: 0 letrec letrec) + (spec: 0 defrules defrules) + (spec: 0 compilation-target? compilation-target?) + (spec: 0 letrec* letrec*) (spec: 0 ~let ~let) - (spec: 0 defsyntax% defsyntax%) - (spec: 0 cond cond) (spec: 0 defrule defrule) - (spec: 0 let* let*) - (spec: 0 unless unless) - (spec: 0 let*-values let*-values) + (spec: 0 cond cond) + (spec: 0 syntax-error syntax-error) + (spec: 0 defsyntax% defsyntax%) (spec: 0 or or) - (spec: 0 defrules defrules) - (spec: 0 letrec letrec) (spec: 0 define-rules define-rules) + (spec: 0 defalias defalias) + (spec: 0 unless unless) + (spec: 0 when when) + (spec: 0 let* let*) (spec: 0 and and) - (spec: 0 letrec* letrec*) - (spec: 0 syntax-error syntax-error) - (spec: 0 call/values call/values) - (spec: 0 s8vector-ref-set! s8vector-ref-set!) - (spec: 0 random-bytes random-bytes) - (spec: 0 car-set! car-set!) - (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 let*-values let*-values) (spec: 0 s16vector-ref-set! s16vector-ref-set!) + (spec: 0 s32vector-ref-set! s32vector-ref-set!) + (spec: 0 f32vector-ref-set! f32vector-ref-set!) (spec: 0 u64vector-ref-set! u64vector-ref-set!) - (spec: 0 u32vector-ref-set! u32vector-ref-set!) + (spec: 0 u8vector-ref-set! u8vector-ref-set!) + (spec: 0 string-ref-set! string-ref-set!) + (spec: 0 u16vector-ref-set! u16vector-ref-set!) + (spec: 0 call/values call/values) + (spec: 0 vector-ref-set! vector-ref-set!) (spec: 0 call/parameters call/parameters) + (spec: 0 car-set! car-set!) + (spec: 0 box-set! box-set!) (spec: 0 cdr-set! cdr-set!) - (spec: 0 u16vector-ref-set! u16vector-ref-set!) + (spec: 0 u32vector-ref-set! u32vector-ref-set!) (spec: 0 s64vector-ref-set! s64vector-ref-set!) - (spec: 0 string-ref-set! string-ref-set!) - (spec: 0 random-source-make-bytes random-source-make-bytes) - (spec: 0 f32vector-ref-set! f32vector-ref-set!) - (spec: 0 box-set! box-set!) - (spec: 0 u8vector-ref-set! u8vector-ref-set!) (spec: 0 f64vector-ref-set! f64vector-ref-set!) - (spec: 0 vector-ref-set! vector-ref-set!) - (spec: 0 hash-fold hash-fold) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 assgetv assgetv) - (spec: 0 call-next-method call-next-method) + (spec: 0 random-source-make-bytes random-source-make-bytes) + (spec: 0 s8vector-ref-set! s8vector-ref-set!) + (spec: 0 random-bytes random-bytes) (spec: 0 gerbil-load-expander! gerbil-load-expander!) - (spec: 0 hash-table? hash-table?) - (spec: 0 interface-instance-object interface-instance-object) - (spec: 0 &interface-instance-object &interface-instance-object) - (spec: 0 readtable::t readtable::t) - (spec: 0 u16vector::t u16vector::t) - (spec: 0 build-manifest-string build-manifest-string) - (spec: 0 keyword-dispatch keyword-dispatch) - (spec: 0 class-type-constructor class-type-constructor) - (spec: 0 display-build-manifest display-build-manifest) (spec: 0 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 0 class-type-precedence-list class-type-precedence-list) - (spec: 0 string-index string-index) - (spec: 0 symbolic-table-delete! symbolic-table-delete!) - (spec: 0 socket-info::t socket-info::t) - (spec: 0 struct-copy struct-copy) - (spec: 0 tcp-server-port? tcp-server-port?) - (spec: - 0 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 0 gerbil-home gerbil-home) - (spec: 0 AST-e AST-e) - (spec: 0 void? void?) - (spec: 0 class-type? class-type?) - (spec: 0 immediate-hash immediate-hash) - (spec: 0 write-u8vector write-u8vector) (spec: 0 keyword->symbol keyword->symbol) - (spec: 0 build-manifest/head build-manifest/head) - (spec: 0 class-type-fields class-type-fields) - (spec: 0 load-path load-path) - (spec: 0 sequence? sequence?) + (spec: 0 with-dynamic-lock with-dynamic-lock) + (spec: 0 replx replx) + (spec: 0 class-type-sealed? class-type-sealed?) + (spec: 0 HashTable::interface HashTable::interface) + (spec: 0 fx<=0? fx<=0?) + (spec: 0 thread::t thread::t) + (spec: 0 hash-values hash-values) + (spec: 0 values-ref values-ref) + (spec: 0 u8vector::t u8vector::t) + (spec: 0 memf memf) + (spec: 0 next-method next-method) + (spec: 0 t::t t::t) + (spec: 0 error error) + (spec: 0 symbol::t symbol::t) + (spec: 0 exception? exception?) + (spec: 0 slot-set! slot-set!) + (spec: 0 hash-keys hash-keys) + (spec: 0 s32vector::t s32vector::t) (spec: 0 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) - (spec: 0 cpxnum::t cpxnum::t) - (spec: 0 string-join string-join) - (spec: 0 eof::t eof::t) - (spec: 0 source-location? source-location?) - (spec: 0 eof-object eof-object) - (spec: 0 error-message error-message) - (spec: 0 t::t t::t) - (spec: 0 number::t number::t) - (spec: 0 atom::t atom::t) - (spec: 0 hash-get hash-get) - (spec: 0 subclass? subclass?) - (spec: 0 method-ref method-ref) - (spec: 0 thread::t thread::t) - (spec: 0 vector::t vector::t) - (spec: 0 interface-instance::t interface-instance::t) - (spec: 0 real::t real::t) - (spec: 0 gerbil-version-string gerbil-version-string) - (spec: 0 class-type=? class-type=?) - (spec: 0 immediate-instance-of? immediate-instance-of?) - (spec: 0 with-unwind-protect with-unwind-protect) - (spec: 0 keyword::t keyword::t) - (spec: 0 class-type-field-count class-type-field-count) - (spec: 0 load-module load-module) - (spec: 0 sequence::t sequence::t) - (spec: 0 symbolic-table-set! symbolic-table-set!) - (spec: 0 andmap andmap) - (spec: 0 find-method find-method) - (spec: 0 source-location-path? source-location-path?) - (spec: 0 struct-instance? struct-instance?) - (spec: 0 error-irritants error-irritants) - (spec: 0 hash-for-each hash-for-each) - (spec: 0 error error) - (spec: 0 fxshift fxshift) - (spec: 0 hash-update! hash-update!) - (spec: 0 gerbil-system-version-string gerbil-system-version-string) - (spec: 0 vector-port? vector-port?) - (spec: 0 keyword-rest keyword-rest) - (spec: 0 with-lock with-lock) - (spec: 0 replx replx) - (spec: 0 class-type-id class-type-id) - (spec: 0 &class-type-name &class-type-name) - (spec: 0 satisfies? satisfies?) (spec: 0 string-hash string-hash) - (spec: 0 symbol::t symbol::t) - (spec: 0 make-symbol make-symbol) - (spec: 0 fx<0? fx<0?) - (spec: 0 object-fill! object-fill!) - (spec: 0 hash-values hash-values) - (spec: 0 values-count values-count) - (spec: 0 cast cast) - (spec: 0 error-object? error-object?) - (spec: 0 hash-keys hash-keys) - (spec: 0 thread-local-ref thread-local-ref) - (spec: 0 bind-specializer! bind-specializer!) - (spec: 0 actor-thread? actor-thread?) - (spec: 0 AST? AST?) - (spec: 0 class->list class->list) - (spec: 0 with-catch with-catch) - (spec: 0 class::t class::t) - (spec: 0 build-manifest/layer build-manifest/layer) - (spec: 0 u8vector-port? u8vector-port?) - (spec: 0 &class-type-fields &class-type-fields) - (spec: 0 writeenv::t writeenv::t) - (spec: 0 1- 1-) - (spec: 0 make-class-type make-class-type) - (spec: 0 return::t return::t) - (spec: 0 class-type-seal! class-type-seal!) - (spec: 0 create-directory* create-directory*) - (spec: 0 set-load-path! set-load-path!) - (spec: 0 eq-hash eq-hash) - (spec: 0 string-port::t string-port::t) - (spec: 0 hash->list hash->list) - (spec: 0 symbolic::t symbolic::t) - (spec: 0 make-instance make-instance) - (spec: 0 spawn spawn) - (spec: 0 error-trace error-trace) - (spec: 0 hash-key? hash-key?) - (spec: 0 fx1- fx1-) - (spec: 0 object-type object-type) - (spec: 0 thread-local-get thread-local-get) - (spec: 0 values->list values->list) + (spec: 0 dssl-key-object? dssl-key-object?) + (spec: 0 make-object make-object) + (spec: 0 device-port? device-port?) (spec: 0 gerbil-path gerbil-path) - (spec: 0 false::t false::t) - (spec: 0 processor::t processor::t) - (spec: 0 character-port? character-port?) - (spec: 0 true? true?) - (spec: 0 pair::t pair::t) + (spec: 0 load-module load-module) + (spec: 0 &class-type-precedence-list &class-type-precedence-list) + (spec: 0 keyword::t keyword::t) (spec: 0 class-of class-of) - (spec: 0 interface-instance? interface-instance?) - (spec: 0 remf remf) + (spec: 0 raw-device-port? raw-device-port?) + (spec: 0 class-type-seal! class-type-seal!) + (spec: 0 fx<0? fx<0?) + (spec: 0 interface-instance::t interface-instance::t) + (spec: 0 vector-port::t vector-port::t) + (spec: 0 character-port? character-port?) + (spec: 0 cons* cons*) (spec: 0 byte-port::t byte-port::t) - (spec: 0 u8vector-port::t u8vector-port::t) - (spec: 0 plist->hash-table-eq plist->hash-table-eq) - (spec: 0 list-modules list-modules) - (spec: 0 1+ 1+) - (spec: 0 read-syntax-from-file read-syntax-from-file) - (spec: 0 remq remq) - (spec: 0 &class-type-precedence-list &class-type-precedence-list) - (spec: 0 slot-ref slot-ref) + (spec: 0 unbound-key-error? unbound-key-error?) + (spec: 0 absent-value absent-value) + (spec: 0 event-queue-port? event-queue-port?) + (spec: 0 make-symbol make-symbol) (spec: 0 foldl foldl) - (spec: 0 module-load-order module-load-order) + (spec: 0 hash-key? hash-key?) + (spec: 0 false::t false::t) + (spec: + 0 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 0 satisfies? satisfies?) + (spec: 0 string-empty? string-empty?) (spec: 0 device-port::t device-port::t) - (spec: 0 event-queue-port? event-queue-port?) - (spec: 0 hash-map hash-map) - (spec: 0 frame::t frame::t) - (spec: 0 object-port? object-port?) - (spec: 0 integer::t integer::t) - (spec: 0 cons* cons*) (spec: 0 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 0 f64vector::t f64vector::t) - (spec: 0 procedure::t procedure::t) (spec: 0 character-port::t character-port::t) - (spec: 0 make-promise make-promise) - (spec: 0 interned-symbol? interned-symbol?) - (spec: 0 class-instance? class-instance?) - (spec: - 0 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 0 tcp-server-port::t tcp-server-port::t) - (spec: 0 void::t void::t) - (spec: 0 address-info::t address-info::t) - (spec: 0 writenv? writenv?) - (spec: 0 make-AST make-AST) - (spec: 0 reload-module! reload-module!) + (spec: 0 values->list values->list) + (spec: 0 list->hash-table-immediate list->hash-table-immediate) + (spec: 0 raw-device-port::t raw-device-port::t) (spec: 0 condvar::t condvar::t) - (spec: 0 make-keyword make-keyword) - (spec: 0 displayln displayln) - (spec: 0 class-type-name class-type-name) - (spec: 0 string-rindex string-rindex) (spec: 0 flonum::t flonum::t) + (spec: 0 immediate-instance-of? immediate-instance-of?) + (spec: 0 build-manifest/head build-manifest/head) + (spec: 0 object::t object::t) + (spec: 0 class-instance? class-instance?) + (spec: 0 displayln displayln) + (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 0 max-char-code max-char-code) + (spec: 0 f64vector::t f64vector::t) + (spec: 0 address-info::t address-info::t) (spec: 0 event-queue-port::t event-queue-port::t) - (spec: 0 hash-length hash-length) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 ormap ormap) - (spec: 0 unchecked-slot-set! unchecked-slot-set!) - (spec: 0 call-with-parameters call-with-parameters) - (spec: 0 gerbil-greeting gerbil-greeting) - (spec: 0 null::t null::t) + (spec: 0 hash-get hash-get) + (spec: 0 fx1- fx1-) + (spec: 0 class-type? class-type?) + (spec: 0 symblic-hash symblic-hash) + (spec: 0 make-class-slot-mutator make-class-slot-mutator) + (spec: 0 cpxnum::t cpxnum::t) + (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 0 spawn/name spawn/name) + (spec: 0 &class-type-name &class-type-name) + (spec: 0 char::t char::t) + (spec: 0 class-type-properties class-type-properties) + (spec: 0 keyword-dispatch keyword-dispatch) + (spec: 0 ratnum::t ratnum::t) + (spec: 0 class-type-final? class-type-final?) + (spec: 0 with-exception-stack-trace with-exception-stack-trace) + (spec: 0 list-modules list-modules) + (spec: 0 fixnum::t fixnum::t) + (spec: 0 HashTable::t HashTable::t) + (spec: 0 hash-update! hash-update!) + (spec: 0 thread-local-set! thread-local-set!) + (spec: 0 values::t values::t) + (spec: 0 interface-instance-object interface-instance-object) + (spec: 0 class-instance-init! class-instance-init!) + (spec: 0 udp-port::t udp-port::t) + (spec: 0 plist->hash-table-string plist->hash-table-string) + (spec: 0 f32vector::t f32vector::t) + (spec: 0 hash-for-each hash-for-each) + (spec: 0 error? error?) + (spec: 0 fx1+ fx1+) + (spec: 0 module-load-order module-load-order) + (spec: 0 make-class-slot-accessor make-class-slot-accessor) + (spec: 0 remq remq) + (spec: 0 s64vector::t s64vector::t) + (spec: 0 spawn/group spawn/group) + (spec: 0 class-type-id class-type-id) + (spec: 0 load-path load-path) + (spec: 0 with-lock with-lock) + (spec: 0 class-type-slot-vector class-type-slot-vector) + (spec: 0 with-exception-catcher with-exception-catcher) (spec: 0 symbolic-table-ref symbolic-table-ref) - (spec: 0 foreign::t foreign::t) - (spec: 0 bind-method! bind-method!) - (spec: 0 interned-keyword? interned-keyword?) - (spec: 0 checked-method-ref checked-method-ref) - (spec: 0 vm? vm?) - (spec: 0 add-load-path! add-load-path!) - (spec: 0 class-type-system? class-type-system?) - (spec: 0 make-interface-descriptor make-interface-descriptor) - (spec: 0 &class-type-properties &class-type-properties) - (spec: 0 list::t list::t) + (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 immediate? immediate?) + (spec: 0 fxshift fxshift) + (spec: 0 hvector::t hvector::t) + (spec: 0 vector-port? vector-port?) + (spec: 0 interface-instance? interface-instance?) + (spec: 0 c4-linearize c4-linearize) + (spec: 0 AST-e AST-e) + (spec: 0 method-ref method-ref) (spec: 0 struct-instance-init! struct-instance-init!) - (spec: 0 move-file move-file) - (spec: 0 find find) - (spec: 0 make-symbolic-table make-symbolic-table) - (spec: 0 source-location-path source-location-path) - (spec: 0 foldr foldr) - (spec: 0 object::t object::t) + (spec: 0 tcp-server-port::t tcp-server-port::t) + (spec: 0 filter-map filter-map) (spec: 0 hash-merge! hash-merge!) - (spec: 0 promise::t promise::t) - (spec: 0 vector-port::t vector-port::t) - (spec: 0 substruct? substruct?) + (spec: 0 readenv::t readenv::t) + (spec: 0 current-thread-group current-thread-group) + (spec: 0 seal-class! seal-class!) + (spec: 0 dump-stack-trace! dump-stack-trace!) + (spec: 0 directory-port? directory-port?) + (spec: 0 integer::t integer::t) + (spec: 0 &class-type-slot-table &class-type-slot-table) + (spec: 0 &class-type-constructor &class-type-constructor) + (spec: 0 symbolic-table-delete! symbolic-table-delete!) + (spec: 0 immediate::t immediate::t) + (spec: 0 box::t box::t) (spec: 0 fx>=0? fx>=0?) - (spec: 0 hvector::t hvector::t) - (spec: 0 raise raise) - (spec: 0 gerbil-system-manifest gerbil-system-manifest) - (spec: 0 raise-unbound-key-error raise-unbound-key-error) - (spec: 0 class-type-sealed? class-type-sealed?) - (spec: 0 immediate? immediate?) - (spec: 0 unbound-key-error? unbound-key-error?) - (spec: 0 HashTable::interface HashTable::interface) - (spec: 0 &class-type-id &class-type-id) - (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 0 device-port? device-port?) - (spec: 0 dssl-key-object? dssl-key-object?) - (spec: 0 hash-find hash-find) - (spec: 0 make-hash-table-eq make-hash-table-eq) - (spec: 0 thread-local-set! thread-local-set!) - (spec: 0 hash-merge hash-merge) - (spec: 0 interface-cast-error? interface-cast-error?) - (spec: 0 aget aget) - (spec: 0 fx>0? fx>0?) + (spec: 0 bignum::t bignum::t) + (spec: 0 ormap ormap) (spec: 0 gerbil-system gerbil-system) - (spec: 0 raw-device-port::t raw-device-port::t) - (spec: 0 bound-method-ref bound-method-ref) - (spec: 0 immediate::t immediate::t) - (spec: 0 udp-port? udp-port?) - (spec: 0 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 0 HashTableLock::interface HashTableLock::interface) - (spec: 0 s64vector::t s64vector::t) + (spec: 0 interned-symbol? interned-symbol?) + (spec: 0 unchecked-slot-ref unchecked-slot-ref) + (spec: 0 vm::t vm::t) + (spec: 0 error-object? error-object?) + (spec: 0 make-interface-descriptor make-interface-descriptor) + (spec: 0 eqv-hash eqv-hash) + (spec: 0 make-symbolic-table make-symbolic-table) + (spec: 0 foldr foldr) + (spec: 0 struct-copy struct-copy) + (spec: 0 file-newer? file-newer?) + (spec: 0 null::t null::t) + (spec: 0 hash-merge hash-merge) + (spec: 0 source-location-path source-location-path) + (spec: 0 continuation::t continuation::t) + (spec: 0 dssl-rest-object? dssl-rest-object?) + (spec: 0 string-index string-index) (spec: 0 directory-port::t directory-port::t) (spec: 0 class-type-flags class-type-flags) - (spec: 0 &class-type-slot-table &class-type-slot-table) - (spec: 0 dssl-rest-object? dssl-rest-object?) - (spec: 0 file-newer? file-newer?) - (spec: - 0 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 0 spawn/name spawn/name) - (spec: 0 make-hash-table make-hash-table) - (spec: 0 eqv-hash eqv-hash) - (spec: 0 fx1+ fx1+) - (spec: 0 as-string as-string) - (spec: 0 hash-ref hash-ref) - (spec: 0 thread-local-delete! thread-local-delete!) - (spec: 0 agetq agetq) - (spec: 0 true::t true::t) - (spec: 0 weak? weak?) - (spec: 0 ratnum::t ratnum::t) + (spec: 0 keyword-rest keyword-rest) + (spec: 0 list::t list::t) + (spec: 0 readenv? readenv?) (spec: 0 class-type-slot-table class-type-slot-table) - (spec: 0 boolean::t boolean::t) - (spec: 0 u64vector::t u64vector::t) - (spec: 0 plist->hash-table-string plist->hash-table-string) - (spec: 0 &class-type-constructor &class-type-constructor) - (spec: 0 remv remv) - (spec: 0 s32vector::t s32vector::t) + (spec: 0 pgetq pgetq) + (spec: 0 fx>0? fx>0?) + (spec: 0 port::t port::t) + (spec: 0 udp-port? udp-port?) + (spec: 0 absent-obj absent-obj) + (spec: 0 struct->list struct->list) + (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 0 hash-map hash-map) + (spec: 0 agetq agetq) + (spec: 0 file-info::t file-info::t) + (spec: 0 s8vector::t s8vector::t) + (spec: 0 dssl-optional-object? dssl-optional-object?) + (spec: 0 special? special?) (spec: 0 direct-method-ref direct-method-ref) - (spec: 0 class-type-properties class-type-properties) - (spec: 0 read-syntax read-syntax) + (spec: 0 &class-type-properties &class-type-properties) + (spec: 0 with-unwind-protect with-unwind-protect) + (spec: 0 class-type-slot-list class-type-slot-list) + (spec: 0 &interface-instance-object &interface-instance-object) + (spec: 0 pgetv pgetv) + (spec: 0 boolean::t boolean::t) + (spec: 0 fx=0? fx=0?) + (spec: 0 checked-bound-method-ref checked-bound-method-ref) + (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 vector::t vector::t) + (spec: 0 bytes->string bytes->string) + (spec: 0 time::t time::t) + (spec: 0 special::t special::t) + (spec: 0 raise raise) + (spec: 0 string::t string::t) + (spec: 0 as-string as-string) + (spec: 0 table::t table::t) + (spec: 0 hash-length hash-length) + (spec: 0 agetv agetv) + (spec: 0 HashTableLock::interface HashTableLock::interface) (spec: 0 constructor-init! constructor-init!) - (spec: 0 slot-set! slot-set!) - (spec: 0 dssl-optional-object? dssl-optional-object?) - (spec: 0 file-info::t file-info::t) - (spec: 0 spawn/group spawn/group) - (spec: 0 make-hash-table-immediate make-hash-table-immediate) - (spec: 0 absent-obj absent-obj) - (spec: 0 object-port::t object-port::t) - (spec: 0 fx/ fx/) - (spec: 0 char::t char::t) + (spec: 0 dssl-object? dssl-object?) + (spec: 0 direct-instance? direct-instance?) (spec: 0 procedure-hash procedure-hash) - (spec: 0 thread-group::t thread-group::t) + (spec: 0 unchecked-slot-set! unchecked-slot-set!) + (spec: 0 call-next-method call-next-method) + (spec: 0 interface-cast-error? interface-cast-error?) + (spec: 0 read-syntax read-syntax) + (spec: 0 class-type-constructor class-type-constructor) + (spec: 0 1+ 1+) + (spec: 0 move-file move-file) + (spec: 0 symbolic? symbolic?) + (spec: 0 hash-copy hash-copy) + (spec: 0 u64vector::t u64vector::t) + (spec: 0 true::t true::t) + (spec: 0 gerbil-system-manifest gerbil-system-manifest) + (spec: 0 vm? vm?) + (spec: 0 remv remv) + (spec: 0 make-keyword make-keyword) + (spec: 0 display-build-manifest display-build-manifest) (spec: 0 substring->bytes substring->bytes) - (spec: 0 f32vector::t f32vector::t) - (spec: 0 interface-descriptor-methods interface-descriptor-methods) - (spec: 0 hash-put! hash-put!) - (spec: 0 true true) - (spec: 0 class-instance-init! class-instance-init!) - (spec: 0 hvector? hvector?) - (spec: 0 weak::t weak::t) - (spec: 0 AST-source AST-source) - (spec: 0 plist->hash-table plist->hash-table) - (spec: 0 class-type-final? class-type-final?) - (spec: 0 u32vector::t u32vector::t) - (spec: 0 list->hash-table list->hash-table) - (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 writenv? writenv?) + (spec: 0 number::t number::t) + (spec: 0 foreign::t foreign::t) + (spec: 0 real::t real::t) + (spec: 0 thread-local-delete! thread-local-delete!) + (spec: 0 source-location-path? source-location-path?) + (spec: 0 make-hash-table make-hash-table) + (spec: 0 sequence::t sequence::t) (spec: 0 string-port? string-port?) - (spec: 0 fixnum::t fixnum::t) - (spec: 0 symbolic? symbolic?) - (spec: 0 mutex::t mutex::t) - (spec: 0 hash->plist hash->plist) - (spec: 0 make-hash-table-eqv make-hash-table-eqv) - (spec: 0 error? error?) - (spec: 0 make-syntax-error make-syntax-error) - (spec: 0 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 0 c4-linearize c4-linearize) - (spec: 0 unchecked-slot-ref unchecked-slot-ref) - (spec: 0 bignum::t bignum::t) - (spec: 0 exception? exception?) - (spec: 0 vm::t vm::t) - (spec: 0 class-type-slot-vector class-type-slot-vector) - (spec: 0 box::t box::t) - (spec: 0 pgetq pgetq) - (spec: 0 list->hash-table-eqv list->hash-table-eqv) - (spec: 0 raw-device-port? raw-device-port?) - (spec: 0 make-class-slot-accessor make-class-slot-accessor) - (spec: 0 directory-port? directory-port?) - (spec: 0 class-type-methods class-type-methods) - (spec: 0 continuation::t continuation::t) - (spec: 0 s8vector::t s8vector::t) - (spec: 0 string-empty? string-empty?) - (spec: 0 dump-stack-trace! dump-stack-trace!) - (spec: 0 filter-map filter-map) - (spec: 0 new-instance new-instance) - (spec: 0 display-exception display-exception) - (spec: 0 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 0 max-char-code max-char-code) - (spec: 0 assgetq assgetq) - (spec: 0 table::t table::t) (spec: 0 call-method call-method) - (spec: 0 port::t port::t) - (spec: 0 interface-descriptor-type interface-descriptor-type) - (spec: 0 absent-value absent-value) - (spec: 0 time::t time::t) - (spec: 0 false false) - (spec: 0 is-hash-table? is-hash-table?) - (spec: 0 class-type-super class-type-super) - (spec: 0 readenv? readenv?) - (spec: 0 pgetv pgetv) - (spec: 0 build-manifest-set! build-manifest-set!) - (spec: 0 list->hash-table-eq list->hash-table-eq) - (spec: 0 make-class-predicate make-class-predicate) - (spec: 0 display-as-string display-as-string) - (spec: 0 special? special?) - (spec: 0 byte-port? byte-port?) - (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 class-type-methods class-type-methods) (spec: 0 &class-type-super &class-type-super) - (spec: 0 dump-stack-trace? dump-stack-trace?) - (spec: 0 hash-copy hash-copy) - (spec: 0 make-hash-table-string make-hash-table-string) - (spec: 0 struct->list struct->list) - (spec: 0 assget assget) - (spec: 0 values::t values::t) - (spec: 0 interface-descriptor? interface-descriptor?) - (spec: 0 fx=0? fx=0?) - (spec: 0 try-cast try-cast) - (spec: 0 with-exception-stack-trace with-exception-stack-trace) - (spec: 0 class-type-struct? class-type-struct?) - (spec: 0 readenv::t readenv::t) - (spec: 0 build-manifest build-manifest) - (spec: 0 udp-port::t udp-port::t) (spec: 0 &class-type-flags &class-type-flags) - (spec: 0 list->hash-table-string list->hash-table-string) - (spec: - 0 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 0 display* display*) - (spec: 0 special::t special::t) - (spec: 0 make-object make-object) - (spec: 0 read-u8vector read-u8vector) - (spec: 0 seal-class! seal-class!) + (spec: 0 return::t return::t) + (spec: 0 symbolic::t symbolic::t) (spec: 0 hash-clear! hash-clear!) - (spec: 0 string::t string::t) - (spec: 0 memf memf) - (spec: 0 object? object?) - (spec: 0 hash-remove! hash-remove!) - (spec: 0 bytes->string bytes->string) - (spec: 0 values-ref values-ref) - (spec: 0 symbol->keyword symbol->keyword) - (spec: 0 pget pget) - (spec: 0 checked-bound-method-ref checked-bound-method-ref) - (spec: 0 fx<=0? fx<=0?) - (spec: 0 with-dynamic-lock with-dynamic-lock) - (spec: 0 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 0 build-manifest-string build-manifest-string) + (spec: 0 u32vector::t u32vector::t) + (spec: 0 true true) + (spec: 0 plist->hash-table plist->hash-table) + (spec: 0 display-as-string display-as-string) + (spec: 0 make-syntax-error make-syntax-error) + (spec: 0 thread-group::t thread-group::t) + (spec: 0 assgetv assgetv) + (spec: 0 object-port::t object-port::t) + (spec: 0 make-AST make-AST) + (spec: 0 string-port::t string-port::t) + (spec: 0 dump-stack-trace? dump-stack-trace?) + (spec: 0 class-type-metaclass? class-type-metaclass?) + (spec: 0 class-type-struct? class-type-struct?) + (spec: 0 hash->plist hash->plist) + (spec: 0 bound-method-ref bound-method-ref) + (spec: 0 u16vector::t u16vector::t) + (spec: 0 interned-keyword? interned-keyword?) + (spec: 0 make-instance make-instance) + (spec: 0 AST-source AST-source) + (spec: 0 eof-object eof-object) + (spec: 0 hash-ref hash-ref) + (spec: 0 readtable::t readtable::t) + (spec: + 0 + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 0 socket-info::t socket-info::t) + (spec: 0 string-join string-join) + (spec: 0 display* display*) + (spec: 0 &class-type-slot-vector &class-type-slot-vector) + (spec: 0 &class-type-fields &class-type-fields) + (spec: 0 1- 1-) + (spec: 0 symbolic-table-set! symbolic-table-set!) + (spec: 0 hash->list hash->list) + (spec: 0 build-manifest build-manifest) + (spec: 0 hvector? hvector?) + (spec: 0 gerbil-system-version-string gerbil-system-version-string) + (spec: 0 void::t void::t) + (spec: 0 subclass? subclass?) + (spec: 0 AST? AST?) + (spec: 0 struct-instance? struct-instance?) + (spec: 0 assget assget) + (spec: 0 tcp-server-port? tcp-server-port?) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 hash-put! hash-put!) + (spec: 0 source-location? source-location?) + (spec: 0 make-class-type make-class-type) + (spec: 0 sequence? sequence?) + (spec: 0 false false) + (spec: 0 interface-descriptor-type interface-descriptor-type) + (spec: 0 cast cast) (spec: 0 remove1 remove1) - (spec: 0 class-type-slot-list class-type-slot-list) - (spec: 0 HashTable::t HashTable::t) - (spec: 0 u8vector::t u8vector::t) + (spec: 0 list->hash-table-eq list->hash-table-eq) + (spec: 0 read-u8vector read-u8vector) + (spec: 0 mutex::t mutex::t) + (spec: 0 try-cast try-cast) + (spec: 0 bind-method! bind-method!) + (spec: 0 hash-table? hash-table?) + (spec: 0 class->list class->list) + (spec: 0 weak::t weak::t) + (spec: 0 is-hash-table? is-hash-table?) (spec: 0 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 0 list->hash-table-immediate list->hash-table-immediate) - (spec: 0 s16vector::t s16vector::t) - (spec: 0 make-class-slot-mutator make-class-slot-mutator) - (spec: 0 direct-instance? direct-instance?) - (spec: 0 string->bytes string->bytes) - (spec: 0 dssl-object? dssl-object?) + (spec: 0 actor-thread? actor-thread?) (spec: 0 string-split string-split) - (spec: 0 HashTableLock::t HashTableLock::t) + (spec: 0 error-trace error-trace) (spec: 0 syntax-error? syntax-error?) - (spec: 0 agetv agetv) - (spec: 0 symblic-hash symblic-hash) - (spec: 0 next-method next-method) - (spec: 0 current-thread-group current-thread-group) - (spec: 0 any-bits-set? any-bits-set?) - (spec: 0 with-exception-catcher with-exception-catcher) - (spec: 0 pp pp) - (spec: 0 s8vector-fill! s8vector-fill!) - (spec: 0 type-exception-arg-id type-exception-arg-id) - (spec: 0 bit-field-reverse bit-field-reverse) - (spec: 0 substring-move! substring-move!) - (spec: - 0 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 0 u64vector-copy! u64vector-copy!) - (spec: 0 console-port console-port) - (spec: 0 vector-unfold-right vector-unfold-right) - (spec: 0 s32vector-length s32vector-length) - (spec: 0 string->char-set string->char-set) - (spec: 0 fxpositive? fxpositive?) - (spec: 0 string-suffix-length-ci string-suffix-length-ci) - (spec: 0 error-exception-parameters error-exception-parameters) - (spec: 0 char-set-ref char-set-ref) - (spec: 0 u16vector-length u16vector-length) - (spec: 0 bitwise-merge bitwise-merge) - (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 0 file-info-inode file-info-inode) - (spec: 0 module-whitelist-reset! module-whitelist-reset!) - (spec: 0 sinh sinh) - (spec: 0 u8vector-append u8vector-append) - (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 0 fifth fifth) + (spec: 0 fx/ fx/) + (spec: 0 type-of type-of) + (spec: 0 symbol->keyword symbol->keyword) + (spec: 0 class-type-system? class-type-system?) + (spec: 0 object-port? object-port?) + (spec: 0 make-hash-table-string make-hash-table-string) + (spec: 0 hash-fold hash-fold) + (spec: 0 reload-module! reload-module!) + (spec: 0 string->bytes string->bytes) + (spec: 0 eq-hash eq-hash) + (spec: 0 values-count values-count) + (spec: 0 gerbil-home gerbil-home) + (spec: 0 class-type-precedence-list class-type-precedence-list) + (spec: 0 list->hash-table-string list->hash-table-string) + (spec: 0 raise-unbound-key-error raise-unbound-key-error) + (spec: 0 class-type-fields class-type-fields) + (spec: 0 writeenv::t writeenv::t) + (spec: 0 immediate-hash immediate-hash) + (spec: 0 pget pget) + (spec: 0 build-manifest/layer build-manifest/layer) + (spec: 0 object? object?) + (spec: 0 bind-specializer! bind-specializer!) + (spec: 0 interface-descriptor? interface-descriptor?) + (spec: 0 promise::t promise::t) + (spec: 0 with-catch with-catch) + (spec: 0 plist->hash-table-eqv plist->hash-table-eqv) + (spec: 0 aget aget) + (spec: 0 error-message error-message) + (spec: 0 new-instance new-instance) + (spec: 0 substruct? substruct?) + (spec: 0 class::t class::t) + (spec: 0 s16vector::t s16vector::t) + (spec: 0 create-directory* create-directory*) + (spec: 0 make-hash-table-immediate make-hash-table-immediate) + (spec: 0 eof::t eof::t) (spec: 0 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 0 subf64vector-fill! subf64vector-fill!) - (spec: 0 unbox unbox) - (spec: 0 protocol-info-aliases protocol-info-aliases) - (spec: 0 f64vector-copy f64vector-copy) - (spec: 0 service-info-protocol service-info-protocol) - (spec: 0 u32vector-fill! u32vector-fill!) - (spec: 0 write-substring write-substring) - (spec: 0 u8vector? u8vector?) - (spec: 0 f32vector-copy f32vector-copy) - (spec: 0 uninterned-symbol? uninterned-symbol?) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 0 processor::t processor::t) + (spec: 0 interface-descriptor-methods interface-descriptor-methods) + (spec: 0 write-u8vector write-u8vector) + (spec: 0 list->hash-table list->hash-table) + (spec: 0 class-type-field-count class-type-field-count) + (spec: 0 andmap andmap) + (spec: 0 find-method find-method) + (spec: 0 u8vector-port? u8vector-port?) + (spec: 0 build-manifest-set! build-manifest-set!) + (spec: 0 make-promise make-promise) + (spec: 0 void? void?) + (spec: 0 gerbil-version-string gerbil-version-string) + (spec: 0 error-irritants error-irritants) + (spec: 0 object-fill! object-fill!) + (spec: 0 assgetq assgetq) + (spec: 0 thread-local-ref thread-local-ref) + (spec: 0 class-type-super class-type-super) + (spec: 0 make-hash-table-eqv make-hash-table-eqv) + (spec: 0 spawn spawn) + (spec: 0 display-exception display-exception) + (spec: 0 set-load-path! set-load-path!) + (spec: 0 call-with-parameters call-with-parameters) + (spec: 0 gerbil-greeting gerbil-greeting) + (spec: 0 class-type-name class-type-name) + (spec: 0 procedure::t procedure::t) + (spec: 0 read-syntax-from-file read-syntax-from-file) + (spec: 0 &class-type-id &class-type-id) + (spec: 0 list->hash-table-eqv list->hash-table-eqv) + (spec: 0 make-class-predicate make-class-predicate) + (spec: 0 find find) + (spec: 0 plist->hash-table-eq plist->hash-table-eq) + (spec: 0 u8vector-port::t u8vector-port::t) + (spec: 0 pair::t pair::t) + (spec: 0 true? true?) + (spec: 0 checked-method-ref checked-method-ref) + (spec: 0 weak? weak?) + (spec: 0 byte-port? byte-port?) (spec: 0 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 0 call/cc call/cc) - (spec: 0 flatanh flatanh) + raise-contract-violation-error + raise-contract-violation-error) + (spec: 0 hash-remove! hash-remove!) + (spec: 0 add-load-path! add-load-path!) + (spec: 0 frame::t frame::t) + (spec: 0 object-type object-type) + (spec: 0 thread-local-get thread-local-get) + (spec: 0 remf remf) + (spec: 0 class-type=? class-type=?) + (spec: 0 atom::t atom::t) + (spec: 0 make-hash-table-eq make-hash-table-eq) + (spec: 0 hash-find hash-find) + (spec: 0 slot-ref slot-ref) + (spec: 0 string-rindex string-rindex) + (spec: 0 subu16vector-move! subu16vector-move!) + (spec: 0 u64vector-copy u64vector-copy) + (spec: 0 file-mode file-mode) (spec: 0 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 0 open-string-pipe open-string-pipe) - (spec: 0 reverse! reverse!) - (spec: 0 delete-directory delete-directory) - (spec: 0 force-output force-output) - (spec: 0 last-pair last-pair) - (spec: 0 split-at! split-at!) - (spec: 0 thread-join! thread-join!) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 0 read-file-string read-file-string) + (spec: 0 file-info-group file-info-group) + (spec: 0 u8vector-swap! u8vector-swap!) + (spec: 0 flabs flabs) + (spec: 0 tanh tanh) + (spec: 0 readtable? readtable?) (spec: 0 fixnum->flonum fixnum->flonum) - (spec: 0 user-info-home user-info-home) + (spec: 0 input-port-readtable input-port-readtable) + (spec: 0 s64vector-set! s64vector-set!) + (spec: 0 string-concatenate string-concatenate) + (spec: 0 touch touch) + (spec: 0 host-info-name host-info-name) + (spec: 0 atanh atanh) + (spec: 0 concatenate concatenate) + (spec: 0 subs16vector-move! subs16vector-move!) + (spec: 0 u32vector-append u32vector-append) + (spec: 0 f64vector f64vector) + (spec: 0 group-info? group-info?) + (spec: 0 second second) + (spec: 0 make-s32vector make-s32vector) + (spec: 0 u16vector-concatenate u16vector-concatenate) + (spec: 0 copy-bit-field copy-bit-field) + (spec: 0 f32vector f32vector) + (spec: 0 bitwise-ior bitwise-ior) + (spec: 0 mutex-lock! mutex-lock!) (spec: 0 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) - (spec: - 0 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 0 file-mode file-mode) - (spec: 0 fllog fllog) - (spec: 0 os-exception? os-exception?) - (spec: 0 char-set-cursor-next char-set-cursor-next) - (spec: 0 fx+ fx+) - (spec: 0 thread-state thread-state) - (spec: 0 s64vector-fill! s64vector-fill!) - (spec: 0 open-file open-file) - (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 0 flround flround) - (spec: - 0 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 0 repl-output-port repl-output-port) - (spec: 0 s16vector-ref s16vector-ref) - (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 0 display-procedure-environment display-procedure-environment) - (spec: 0 fxeqv fxeqv) - (spec: 0 any-bit-set? any-bit-set?) - (spec: 0 list->bits list->bits) - (spec: 0 s8vector-copy! s8vector-copy!) - (spec: 0 vector-fold-right vector-fold-right) - (spec: 0 main main) - (spec: 0 get-output-vector get-output-vector) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 0 u8vector->object u8vector->object) + (spec: 0 f64vector-concatenate f64vector-concatenate) (spec: 0 bit-field-replace-same bit-field-replace-same) + (spec: 0 user-info-name user-info-name) + (spec: 0 fxnand fxnand) + (spec: 0 char-set-size char-set-size) (spec: 0 link-incremental link-incremental) (spec: 0 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 0 subu16vector-move! subu16vector-move!) - (spec: 0 u64vector-copy u64vector-copy) - (spec: 0 vector-unfold vector-unfold) - (spec: 0 with-output-to-string with-output-to-string) - (spec: 0 partition! partition!) - (spec: 0 list= list=) - (spec: 0 fxorc2 fxorc2) - (spec: 0 s32vector-set s32vector-set) - (spec: 0 time->seconds time->seconds) - (spec: 0 write-file-u8vector write-file-u8vector) - (spec: 0 u16vector-fill! u16vector-fill!) - (spec: 0 char-set-map char-set-map) - (spec: 0 help help) - (spec: 0 bitwise-ior bitwise-ior) - (spec: 0 list->u16vector list->u16vector) - (spec: 0 make-random-source make-random-source) - (spec: 0 file-info-group file-info-group) - (spec: 0 module-whitelist-add! module-whitelist-add!) - (spec: 0 random-real random-real) - (spec: 0 u8vector->object u8vector->object) - (spec: - 0 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 0 copy-bit-field copy-bit-field) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 0 s32vector-shrink! s32vector-shrink!) + (spec: 0 string->char-set! string->char-set!) + (spec: 0 fxandc1 fxandc1) + (spec: 0 char-set-delete char-set-delete) + (spec: 0 list->s16vector list->s16vector) + (spec: 0 s16vector? s16vector?) (spec: 0 - wrong-number-of-values-exception-vals - wrong-number-of-values-exception-vals) - (spec: 0 proper-list? proper-list?) - (spec: 0 f64vector-concatenate f64vector-concatenate) - (spec: 0 identity identity) - (spec: 0 make-u8vector make-u8vector) - (spec: 0 service-info-port-number service-info-port-number) - (spec: 0 subs16vector-fill! subs16vector-fill!) - (spec: 0 range-exception-arguments range-exception-arguments) - (spec: 0 f32vector-concatenate f32vector-concatenate) - (spec: 0 u32vector-copy! u32vector-copy!) - (spec: 0 u8vector-swap! u8vector-swap!) - (spec: 0 uninterned-keyword? uninterned-keyword?) - (spec: 0 table? table?) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 0 error error) + (spec: 0 gensym gensym) + (spec: 0 compile-file-to-target compile-file-to-target) + (spec: 0 make-condition-variable make-condition-variable) + (spec: 0 s8vector-set s8vector-set) + (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 0 table->list table->list) (spec: 0 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 0 flatan flatan) - (spec: 0 readtable-start-syntax readtable-start-syntax) - (spec: 0 user-info-gid user-info-gid) - (spec: 0 open-string open-string) - (spec: 0 split-at split-at) - (spec: 0 thread-group-terminate! thread-group-terminate!) - (spec: 0 read-all read-all) - (spec: 0 defer-user-interrupts defer-user-interrupts) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 0 tty-type-set! tty-type-set!) + (spec: 0 with-output-to-u8vector with-output-to-u8vector) + (spec: 0 fl= fl=) (spec: 0 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 0 directory-files directory-files) - (spec: 0 udp-read-u8vector udp-read-u8vector) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 0 open-input-vector open-input-vector) (spec: 0 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 0 tcp-service-register! tcp-service-register!) - (spec: 0 network-info-aliases network-info-aliases) - (spec: 0 os-exception-procedure os-exception-procedure) - (spec: 0 char-set-cursor char-set-cursor) - (spec: 0 fx* fx*) - (spec: 0 thread-send thread-send) - (spec: 0 s64vector-ref s64vector-ref) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 0 fltan fltan) (spec: 0 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 0 open-event-queue open-event-queue) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 0 object->u8vector object->u8vector) + (spec: 0 flnumerator flnumerator) + (spec: 0 fourth fourth) + (spec: 0 output-port-readtable output-port-readtable) + (spec: 0 thread-specific thread-specific) + (spec: 0 u64vector-concatenate u64vector-concatenate) + (spec: 0 subu32vector-move! subu32vector-move!) + (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 0 file-last-modification-time file-last-modification-time) + (spec: 0 current-exception-handler current-exception-handler) + (spec: 0 file-info-device file-info-device) + (spec: 0 random-source? random-source?) + (spec: 0 u8vector-shrink! u8vector-shrink!) (spec: 0 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 0 flpositive? flpositive?) - (spec: 0 last last) - (spec: 0 replace-bit-field replace-bit-field) - (spec: 0 vector-fold vector-fold) - (spec: 0 thread-state-running? thread-state-running?) - (spec: 0 fxbit-set? fxbit-set?) - (spec: 0 all-bits-set? all-bits-set?) - (spec: 0 s16vector-shrink! s16vector-shrink!) - (spec: 0 with-output-to-process with-output-to-process) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 0 fl>= fl>=) + (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 0 uninterned-symbol? uninterned-symbol?) + (spec: 0 null-list? null-list?) + (spec: 0 s64vector? s64vector?) + (spec: 0 f32vector-concatenate f32vector-concatenate) + (spec: 0 host-info-aliases host-info-aliases) + (spec: 0 subs16vector-fill! subs16vector-fill!) (spec: 0 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 0 clear-bit-field clear-bit-field) - (spec: 0 get-output-u8vector get-output-u8vector) - (spec: 0 bit-field bit-field) - (spec: 0 f64vector-fill! f64vector-fill!) - (spec: 0 subu16vector-fill! subu16vector-fill!) - (spec: 0 char-set-unfold char-set-unfold) - (spec: 0 time time) - (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 0 s32vector-ref s32vector-ref) - (spec: 0 write-file-string-list write-file-string-list) - (spec: 0 println println) - (spec: 0 string-swap! string-swap!) - (spec: 0 fxnegative? fxnegative?) - (spec: 0 bitwise-andc2 bitwise-andc2) - (spec: 0 file-creation-time file-creation-time) - (spec: 0 heap-overflow-exception? heap-overflow-exception?) - (spec: 0 list->table list->table) - (spec: 0 mutex-specific-set! mutex-specific-set!) - (spec: 0 random-integer random-integer) - (spec: 0 script-file script-file) + wrong-number-of-values-exception-vals + wrong-number-of-values-exception-vals) + (spec: 0 u32vector-copy! u32vector-copy!) + (spec: 0 group-info-name group-info-name) + (spec: 0 protocol-info? protocol-info?) + (spec: 0 write-file-u8vector write-file-u8vector) + (spec: 0 u16vector-fill! u16vector-fill!) + (spec: 0 bitwise-if bitwise-if) + (spec: 0 cosh cosh) + (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 0 symbol-hash symbol-hash) + (spec: 0 thread-priority thread-priority) + (spec: 0 bit-field-replace bit-field-replace) + (spec: 0 cons* cons*) + (spec: 0 f64vector-append f64vector-append) + (spec: 0 u8vector->list u8vector->list) + (spec: 0 split-at! split-at!) + (spec: 0 thread-join! thread-join!) + (spec: 0 char-set-ref char-set-ref) + (spec: 0 error-exception-parameters error-exception-parameters) + (spec: 0 fxmodulo fxmodulo) + (spec: 0 list-tabulate list-tabulate) + (spec: 0 string->char-set string->char-set) + (spec: 0 char-set-cursor-next char-set-cursor-next) + (spec: 0 user-info-home user-info-home) + (spec: 0 fxand fxand) + (spec: 0 path-strip-extension path-strip-extension) + (spec: 0 list->s8vector list->s8vector) + (spec: 0 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 0 vector-fold-right vector-fold-right) + (spec: 0 vector-unfold-right vector-unfold-right) + (spec: 0 any-bit-set? any-bit-set?) + (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 0 make-f64vector make-f64vector) + (spec: 0 s8vector-swap! s8vector-swap!) + (spec: 0 with-output-to-string with-output-to-string) + (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 0 pretty-print pretty-print) (spec: 0 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) - (spec: 0 u16vector->list u16vector->list) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) (spec: 0 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 0 copy-bit copy-bit) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 0 open-output-process open-output-process) (spec: 0 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 0 f32vector-fill! f32vector-fill!) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 0 flfinite? flfinite?) + (spec: 0 terminated-thread-exception? terminated-thread-exception?) (spec: 0 - wrong-number-of-values-exception-rte - wrong-number-of-values-exception-rte) - (spec: 0 subs16vector subs16vector) - (spec: 0 configure-command-string configure-command-string) - (spec: 0 u32vector u32vector) - (spec: 0 file-info-last-change-time file-info-last-change-time) - (spec: 0 range-exception-arg-id range-exception-arg-id) - (spec: 0 compilation-target compilation-target) - (spec: 0 make-thread-group make-thread-group) - (spec: 0 delete-file-or-directory delete-file-or-directory) - (spec: 0 table-set! table-set!) - (spec: 0 flfloor flfloor) - (spec: - 0 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: - 0 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 0 foreign? foreign?) + (spec: 0 s16vector->list s16vector->list) + (spec: 0 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 0 thread-state thread-state) + (spec: 0 fltruncate fltruncate) + (spec: 0 subu16vector subu16vector) + (spec: 0 u64vector-append u64vector-append) + (spec: 0 first-set-bit first-set-bit) + (spec: 0 udp-write-u8vector udp-write-u8vector) + (spec: 0 input-port-line input-port-line) + (spec: 0 create-temporary-directory create-temporary-directory) + (spec: 0 file-last-change-time file-last-change-time) + (spec: 0 u8vector-set! u8vector-set!) + (spec: 0 initial-current-directory initial-current-directory) + (spec: 0 delete! delete!) + (spec: 0 flexpm1 flexpm1) (spec: 0 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 0 thread-group-suspend! thread-group-suspend!) - (spec: 0 user-info-shell user-info-shell) - (spec: 0 flacos flacos) - (spec: 0 open-tcp-server open-tcp-server) - (spec: 0 file-owner file-owner) - (spec: 0 udp-read-subu8vector udp-read-subu8vector) - (spec: 0 input-port-timeout-set! input-port-timeout-set!) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 0 take-right take-right) + (spec: 0 uninterned-keyword? uninterned-keyword?) (spec: 0 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 0 s64vector-ref s64vector-ref) + (spec: 0 all-bits-set? all-bits-set?) + (spec: 0 compilation-target compilation-target) + (spec: 0 f32vector? f32vector?) + (spec: 0 make-will make-will) + (spec: 0 protocol-info-number protocol-info-number) + (spec: 0 subs16vector subs16vector) + (spec: 0 bit-field bit-field) + (spec: 0 clear-bit-field clear-bit-field) + (spec: 0 host-info-addresses host-info-addresses) + (spec: 0 make-root-thread make-root-thread) + (spec: 0 process-times process-times) + (spec: 0 bitwise-for-each bitwise-for-each) + (spec: 0 script-file script-file) + (spec: 0 file-info-creation-time file-info-creation-time) (spec: 0 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 0 initialized-thread-exception? initialized-thread-exception?) - (spec: 0 network-info network-info) - (spec: 0 thread-resume! thread-resume!) - (spec: 0 fxandc2 fxandc2) - (spec: 0 abort abort) - (spec: 0 every-bit-set? every-bit-set?) - (spec: 0 will-execute! will-execute!) - (spec: 0 length+ length+) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 0 string-swap! string-swap!) + (spec: 0 u16vector->list u16vector->list) + (spec: 0 bit-field-every? bit-field-every?) + (spec: 0 open-vector-pipe open-vector-pipe) + (spec: 0 thread-group-terminate! thread-group-terminate!) + (spec: 0 split-at split-at) + (spec: 0 u32vector u32vector) + (spec: 0 char-set-map char-set-map) + (spec: 0 u8vector u8vector) + (spec: 0 fxwrapabs fxwrapabs) + (spec: 0 path-strip-directory path-strip-directory) + (spec: 0 s32vector-set s32vector-set) + (spec: 0 time->seconds time->seconds) + (spec: 0 char-set-cursor char-set-cursor) + (spec: 0 list->f32vector list->f32vector) + (spec: 0 eqv?-hash eqv?-hash) + (spec: 0 fxmin fxmin) + (spec: 0 s16vector-shrink! s16vector-shrink!) + (spec: 0 thread-state-running? thread-state-running?) + (spec: 0 make-bitwise-generator make-bitwise-generator) + (spec: 0 group-info-members group-info-members) + (spec: 0 user-info-gid user-info-gid) + (spec: 0 vector-fold vector-fold) + (spec: 0 vector-unfold vector-unfold) + (spec: 0 with-output-to-process with-output-to-process) (spec: 0 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 0 third third) - (spec: 0 flzero? flzero?) - (spec: 0 repl-result-history-ref repl-result-history-ref) - (spec: 0 char-set-delete! char-set-delete!) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 0 fl< fl<) + (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 0 - thread-state-running-processor - thread-state-running-processor) - (spec: 0 vector-inc! vector-inc!) - (spec: 0 flonum? flonum?) - (spec: 0 s16vector-set! s16vector-set!) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 0 display-procedure-environment display-procedure-environment) + (spec: 0 write-file-string-list write-file-string-list) + (spec: 0 flsqrt flsqrt) (spec: 0 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 0 with-output-to-vector with-output-to-vector) - (spec: 0 s8vector-length s8vector-length) - (spec: 0 bit-count bit-count) - (spec: 0 f64vector-copy! f64vector-copy!) - (spec: 0 subs8vector-move! subs8vector-move!) - (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 0 error error) - (spec: 0 char-set-size char-set-size) - (spec: 0 list->u64vector list->u64vector) - (spec: 0 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 0 path-directory path-directory) - (spec: 0 s64vector-concatenate s64vector-concatenate) - (spec: 0 u16vector u16vector) - (spec: 0 string-shrink! string-shrink!) - (spec: 0 fxnand fxnand) - (spec: 0 bitwise-andc1 bitwise-andc1) - (spec: 0 file-attributes file-attributes) - (spec: 0 s32vector-copy s32vector-copy) - (spec: 0 script-directory script-directory) - (spec: 0 mutex-specific mutex-specific) - (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + wrong-number-of-values-exception-rte + wrong-number-of-values-exception-rte) (spec: 0 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 0 subvector subvector) - (spec: 0 u64vector? u64vector?) - (spec: 0 system-type-string system-type-string) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 0 object->serial-number object->serial-number) + (spec: 0 flnan? flnan?) + (spec: 0 rename-file rename-file) (spec: 0 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 0 readtable-case-conversion? readtable-case-conversion?) - (spec: 0 concatenate! concatenate!) - (spec: 0 f32vector-copy! f32vector-copy!) - (spec: 0 subf32vector-fill! subf32vector-fill!) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 0 output-port-line output-port-line) + (spec: 0 fxabs fxabs) + (spec: 0 thread-send thread-send) (spec: 0 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 0 service-info? service-info?) - (spec: 0 file-info-last-access-time file-info-last-access-time) - (spec: 0 make-thread make-thread) - (spec: 0 host-info? host-info?) - (spec: 0 range-exception? range-exception?) - (spec: 0 flfinite? flfinite?) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 0 subu32vector subu32vector) + (spec: 0 u64vector->list u64vector->list) (spec: 0 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 0 take take) - (spec: 0 socket-info? socket-info?) - (spec: 0 user-info-name user-info-name) - (spec: 0 flabs flabs) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 0 read-file-string-list read-file-string-list) + (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 first first) + (spec: 0 current-directory current-directory) + (spec: 0 u8vector-set u8vector-set) (spec: 0 file-last-access-time file-last-access-time) - (spec: 0 network-info-number network-info-number) - (spec: 0 open-tcp-client open-tcp-client) - (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 delete-file-or-directory delete-file-or-directory) + (spec: 0 flexp flexp) (spec: 0 input-port-readtable-set! input-port-readtable-set!) - (spec: 0 udp-write-subu8vector udp-write-subu8vector) + (spec: 0 permission-denied-exception? permission-denied-exception?) + (spec: 0 s64vector-shrink! s64vector-shrink!) + (spec: 0 string-ci=?-hash string-ci=?-hash) + (spec: 0 trace trace) + (spec: 0 subf64vector-move! subf64vector-move!) + (spec: 0 protocol-info-name protocol-info-name) + (spec: 0 f64vector->list f64vector->list) + (spec: 0 u32vector-concatenate u32vector-concatenate) (spec: 0 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 0 circular-list? circular-list?) + (spec: 0 make-s64vector make-s64vector) + (spec: 0 f32vector->list f32vector->list) + (spec: 0 process-status process-status) + (spec: 0 seconds->time seconds->time) + (spec: 0 host-info host-info) + (spec: 0 bitwise-fold bitwise-fold) + (spec: 0 copy-file copy-file) + (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 0 random-source-state-ref random-source-state-ref) + (spec: 0 string-suffix? string-suffix?) + (spec: 0 file-info-attributes file-info-attributes) + (spec: 0 bit-field-clear bit-field-clear) + (spec: 0 conjugate conjugate) + (spec: 0 open-vector open-vector) + (spec: 0 thread-init! thread-init!) + (spec: 0 foreign-tags foreign-tags) + (spec: 0 char-set-intersection! char-set-intersection!) + (spec: 0 list-sort list-sort) + (spec: 0 thread-priority-set! thread-priority-set!) + (spec: 0 s32vector-swap! s32vector-swap!) + (spec: 0 timeout->time timeout->time) + (spec: 0 fxwrap- fxwrap-) + (spec: 0 char-set-count char-set-count) + (spec: 0 list->s32vector list->s32vector) + (spec: 0 u16vector-copy u16vector-copy) + (spec: 0 user-info user-info) + (spec: 0 fxmax fxmax) + (spec: 0 vector-swap! vector-swap!) + (spec: 0 write-file-string write-file-string) + (spec: 0 tty? tty?) + (spec: 0 s8vector-set! s8vector-set!) + (spec: 0 with-output-to-port with-output-to-port) + (spec: 0 group-info-gid group-info-gid) (spec: 0 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 0 tenth tenth) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 0 fl> fl>) + (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) (spec: 0 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 0 fxandc1 fxandc1) - (spec: 0 s16vector-fill! s16vector-fill!) - (spec: 0 thread-specific thread-specific) - (spec: 0 fourth fourth) - (spec: 0 display-exception-in-context display-exception-in-context) - (spec: 0 keyword->string keyword->string) - (spec: - 0 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 0 touch touch) - (spec: 0 thread-base-priority thread-base-priority) - (spec: 0 char-set-delete char-set-delete) - (spec: 0 repl-error-port repl-error-port) - (spec: 0 string-concatenate string-concatenate) - (spec: 0 getenv getenv) - (spec: 0 s8vector-set s8vector-set) - (spec: 0 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 0 make-condition-variable make-condition-variable) - (spec: 0 append-reverse! append-reverse!) - (spec: 0 subs16vector-move! subs16vector-move!) - (spec: 0 with-input-from-process with-input-from-process) - (spec: 0 u32vector-set u32vector-set) - (spec: 0 continuation-capture continuation-capture) - (spec: 0 bit-swap bit-swap) - (spec: 0 s32vector-set! s32vector-set!) - (spec: 0 path-extension path-extension) - (spec: 0 char-set-union char-set-union) - (spec: 0 fxwrap* fxwrap*) - (spec: 0 link-flat link-flat) - (spec: 0 list-set list-set) - (spec: 0 help-browser help-browser) - (spec: 0 second second) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 fltanh fltanh) (spec: 0 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 0 make-s32vector make-s32vector) - (spec: 0 subu32vector subu32vector) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 0 remq remq) + (spec: 0 join-timeout-exception? join-timeout-exception?) + (spec: 0 output-port-column output-port-column) + (spec: 0 end-of-char-set? end-of-char-set?) + (spec: 0 thread-specific-set! thread-specific-set!) + (spec: 0 fx>= fx>=) (spec: 0 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 0 thread-thread-group thread-thread-group) - (spec: 0 type-exception? type-exception?) - (spec: 0 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 0 bitwise-orc1 bitwise-orc1) - (spec: 0 u64vector-ref u64vector-ref) - (spec: 0 read-file-string-list read-file-string-list) - (spec: 0 fixnum? fixnum?) - (spec: 0 u16vector-set! u16vector-set!) - (spec: 0 condition-variable-specific condition-variable-specific) - (spec: 0 random-source-state-ref random-source-state-ref) - (spec: 0 file-info-mode file-info-mode) - (spec: 0 u8vector-fill! u8vector-fill!) - (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 0 not-pair? not-pair?) - (spec: 0 table-for-each table-for-each) - (spec: 0 fldenominator fldenominator) - (spec: 0 open-u8vector-pipe open-u8vector-pipe) - (spec: 0 thread-group->thread-vector thread-group->thread-vector) - (spec: 0 foreign-release! foreign-release!) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 0 file-size file-size) + (spec: 0 network-info-name network-info-name) (spec: 0 datum-parsing-exception-parameters datum-parsing-exception-parameters) - (spec: 0 file-size file-size) - (spec: - 0 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 0 ninth ninth) - (spec: 0 object->serial-number object->serial-number) - (spec: 0 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 0 flnan? flnan?) - (spec: - 0 - unknown-keyword-argument-exception-procedure - unknown-keyword-argument-exception-procedure) - (spec: 0 user-info? user-info?) - (spec: 0 output-port-byte-position output-port-byte-position) - (spec: 0 char-set char-set) - (spec: 0 fx= fx=) - (spec: 0 thread-name thread-name) + (spec: 0 random-u8vector random-u8vector) (spec: 0 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 0 s64vector-set s64vector-set) - (spec: 0 address-info-socket-info address-info-socket-info) - (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 0 flsqrt flsqrt) - (spec: 0 s16vector-swap! s16vector-swap!) - (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 0 fxior fxior) - (spec: 0 list->f64vector list->f64vector) - (spec: 0 will? will?) - (spec: 0 s8vector-ref s8vector-ref) - (spec: 0 append-reverse append-reverse) - (spec: 0 subs32vector-move! subs32vector-move!) - (spec: 0 f64vector-length f64vector-length) - (spec: 0 bit-set? bit-set?) - (spec: 0 u32vector-ref u32vector-ref) - (spec: 0 path-expand path-expand) - (spec: 0 char-set-unfold! char-set-unfold!) - (spec: 0 fxsquare fxsquare) - (spec: 0 acosh acosh) - (spec: 0 s32vector? s32vector?) - (spec: 0 process-pid process-pid) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 0 unbound-global-exception? unbound-global-exception?) + (spec: 0 mutex-state mutex-state) + (spec: 0 flasin flasin) + (spec: 0 call-with-input-process call-with-input-process) + (spec: 0 readtable-max-write-length readtable-max-write-length) + (spec: 0 table-length table-length) (spec: 0 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 0 make-s16vector make-s16vector) - (spec: 0 started-thread-exception? started-thread-exception?) - (spec: 0 string-prefix-length string-prefix-length) - (spec: 0 type-exception-type-id type-exception-type-id) - (spec: 0 random-source-make-reals random-source-make-reals) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 0 with-exception-catcher with-exception-catcher) + (spec: 0 f32vector-copy f32vector-copy) + (spec: 0 make-table make-table) + (spec: 0 u32vector-fill! u32vector-fill!) + (spec: 0 string-prefix-length-ci string-prefix-length-ci) + (spec: 0 primordial-exception-handler primordial-exception-handler) + (spec: 0 u16vector-length u16vector-length) + (spec: 0 ->char-set ->char-set) (spec: 0 file-device file-device) - (spec: 0 subu64vector subu64vector) (spec: 0 bitwise-not bitwise-not) - (spec: 0 readtable-comment-handler readtable-comment-handler) - (spec: 0 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 0 integer-sqrt integer-sqrt) - (spec: 0 unbound-global-exception? unbound-global-exception?) - (spec: 0 protocol-info protocol-info) - (spec: 0 f32vector-length f32vector-length) - (spec: 0 set-box! set-box!) - (spec: 0 string=?-hash string=?-hash) - (spec: 0 u16vector-set u16vector-set) + (spec: 0 module-not-found-exception? module-not-found-exception?) + (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 0 serial-number->object serial-number->object) + (spec: 0 shell-command shell-command) + (spec: 0 bit-set? bit-set?) + (spec: 0 f64vector-length f64vector-length) + (spec: 0 seventh seventh) + (spec: 0 subs32vector-move! subs32vector-move!) + (spec: 0 subu64vector subu64vector) + (spec: 0 error-exception? error-exception?) + (spec: 0 char-set-union! char-set-union!) + (spec: 0 fxodd? fxodd?) (spec: 0 - file-info-last-modification-time - file-info-last-modification-time) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) (spec: 0 u8vector-copy! u8vector-copy!) - (spec: 0 unbreak unbreak) - (spec: 0 take-right take-right) - (spec: - 0 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 0 flcosh flcosh) + (spec: 0 user-name user-name) + (spec: 0 char-set-difference char-set-difference) + (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 0 write-substring write-substring) + (spec: 0 thread-state-waiting? thread-state-waiting?) + (spec: 0 any-bits-set? any-bits-set?) + (spec: 0 poll-point poll-point) + (spec: 0 s32vector s32vector) + (spec: 0 type-exception-arg-id type-exception-arg-id) + (spec: 0 every every) + (spec: 0 fxxor fxxor) + (spec: 0 s8vector? s8vector?) + (spec: 0 unbox unbox) + (spec: 0 flonum? flonum?) + (spec: 0 repl-highlight-source-level repl-highlight-source-level) + (spec: 0 flfloor flfloor) + (spec: 0 iota iota) + (spec: 0 sixth sixth) + (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 0 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 0 open-u8vector open-u8vector) - (spec: 0 thread-interrupt! thread-interrupt!) - (spec: 0 foreign-address foreign-address) - (spec: 0 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 0 input-port-char-position input-port-char-position) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 0 char-set->list char-set->list) + (spec: 0 os-exception-code os-exception-code) + (spec: 0 s16vector-append s16vector-append) + (spec: 0 bit-field-set bit-field-set) + (spec: 0 network-info-aliases network-info-aliases) + (spec: 0 read-all read-all) + (spec: 0 u64vector-length u64vector-length) + (spec: 0 dead-end dead-end) + (spec: 0 mutex-specific-set! mutex-specific-set!) + (spec: 0 file-info-last-change-time file-info-last-change-time) + (spec: 0 range-exception-arg-id range-exception-arg-id) (spec: 0 - unknown-keyword-argument-exception-arguments - unknown-keyword-argument-exception-arguments) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 0 box? box?) + (spec: 0 current-processor current-processor) + (spec: 0 readtable-max-write-level-set readtable-max-write-level-set) (spec: 0 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 0 car+cdr car+cdr) - (spec: 0 flmin flmin) - (spec: 0 remq remq) - (spec: 0 user-info-uid user-info-uid) - (spec: 0 thread-start! thread-start!) - (spec: 0 length-mismatch-exception? length-mismatch-exception?) - (spec: 0 fx<= fx<=) - (spec: 0 s16vector s16vector) - (spec: 0 void void) - (spec: 0 gc-report-set! gc-report-set!) - (spec: 0 s64vector-swap! s64vector-swap!) - (spec: 0 untrace untrace) - (spec: 0 open-input-process open-input-process) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 0 table-ref table-ref) + (spec: 0 ucs-range->char-set! ucs-range->char-set!) (spec: 0 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 0 flsinh flsinh) - (spec: 0 vector->bits vector->bits) - (spec: 0 thread-state-waiting-for thread-state-waiting-for) - (spec: 0 char-set-diff+intersection char-set-diff+intersection) - (spec: 0 fxif fxif) - (spec: 0 eq?-hash eq?-hash) - (spec: 0 will-testator will-testator) - (spec: 0 string-contains-ci string-contains-ci) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 0 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 0 s8vector-shrink! s8vector-shrink!) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) (spec: 0 - wrong-processor-c-return-exception? - wrong-processor-c-return-exception?) - (spec: 0 u64vector-concatenate u64vector-concatenate) - (spec: 0 cons* cons*) - (spec: 0 subs32vector-fill! subs32vector-fill!) - (spec: 0 any any) - (spec: 0 f64vector-set f64vector-set) - (spec: 0 timeout->time timeout->time) - (spec: 0 fxorc1 fxorc1) - (spec: 0 list->u8vector list->u8vector) - (spec: 0 char-set-xor char-set-xor) - (spec: 0 s32vector-swap! s32vector-swap!) - (spec: 0 u16vector-copy! u16vector-copy!) - (spec: 0 string-prefix-ci? string-prefix-ci?) - (spec: 0 expression-parsing-exception? expression-parsing-exception?) - (spec: 0 random-source-make-integers random-source-make-integers) - (spec: 0 cosh cosh) - (spec: 0 inactive-thread-exception? inactive-thread-exception?) + unknown-keyword-argument-exception-procedure + unknown-keyword-argument-exception-procedure) + (spec: 0 f32vector-length f32vector-length) + (spec: 0 processor? processor?) + (spec: 0 make-tls-context make-tls-context) + (spec: 0 string=?-hash string=?-hash) + (spec: 0 u32vector-ref u32vector-ref) + (spec: 0 will? will?) (spec: 0 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 0 module-search-order-reset! module-search-order-reset!) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 0 scheduler-exception-reason scheduler-exception-reason) + (spec: 0 make-mutex make-mutex) + (spec: 0 string-prefix-length string-prefix-length) + (spec: 0 u16vector-set u16vector-set) (spec: 0 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 0 subu32vector-move! subu32vector-move!) - (spec: 0 integer-nth-root integer-nth-root) - (spec: 0 bitwise-if bitwise-if) - (spec: 0 fl+ fl+) - (spec: 0 u8vector->list u8vector->list) - (spec: 0 u32vector-copy u32vector-copy) - (spec: 0 make-u64vector make-u64vector) + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 0 file-creation-time file-creation-time) + (spec: 0 random-integer random-integer) + (spec: 0 subu8vector subu8vector) + (spec: 0 bitwise-nor bitwise-nor) + (spec: 0 f64vector-fill! f64vector-fill!) + (spec: 0 u8vector-copy u8vector-copy) + (spec: 0 subs64vector-move! subs64vector-move!) + (spec: 0 thread-name thread-name) + (spec: 0 xcons xcons) + (spec: 0 fxnot fxnot) + (spec: 0 s32vector-concatenate s32vector-concatenate) + (spec: 0 list->u32vector list->u32vector) + (spec: 0 char-set-union char-set-union) + (spec: 0 output-port-width output-port-width) + (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 0 s16vector-copy! s16vector-copy!) + (spec: 0 user-info? user-info?) + (spec: 0 thread-thread-group thread-thread-group) + (spec: 0 char-set-diff+intersection! char-set-diff+intersection!) + (spec: 0 append-reverse append-reverse) + (spec: 0 s8vector->list s8vector->list) + (spec: 0 type-exception-type-id type-exception-type-id) + (spec: 0 address-info-socket-info address-info-socket-info) + (spec: 0 fxwrapsquare fxwrapsquare) + (spec: 0 s64vector-append s64vector-append) + (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 0 repl-error-port repl-error-port) + (spec: 0 keyword->string keyword->string) + (spec: 0 open-directory open-directory) + (spec: 0 flinfinite? flinfinite?) (spec: 0 - unbound-serial-number-exception-procedure - unbound-serial-number-exception-procedure) - (spec: 0 bit-field-replace bit-field-replace) - (spec: 0 f32vector-set f32vector-set) - (spec: 0 u8vector-shrink! u8vector-shrink!) - (spec: 0 current-exception-handler current-exception-handler) - (spec: 0 symbol-hash symbol-hash) - (spec: 0 file-info-owner file-info-owner) - (spec: 0 take! take!) - (spec: 0 flasinh flasinh) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 0 os-exception-arguments os-exception-arguments) (spec: 0 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 0 call-with-input-string call-with-input-string) - (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 0 thread-init! thread-init!) - (spec: 0 open-vector open-vector) - (spec: 0 udp-write-u8vector udp-write-u8vector) - (spec: 0 network-info? network-info?) - (spec: 0 datum-parsing-exception? datum-parsing-exception?) - (spec: 0 flinteger? flinteger?) - (spec: 0 iota iota) - (spec: 0 object->u8vector object->u8vector) - (spec: 0 remove! remove!) - (spec: 0 thread-priority thread-priority) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 0 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 0 output-port-column output-port-column) - (spec: 0 char-set->string char-set->string) - (spec: 0 thread-specific-set! thread-specific-set!) - (spec: 0 string-ci=?-hash string-ci=?-hash) - (spec: 0 trace trace) - (spec: 0 fxzero? fxzero?) - (spec: 0 permission-denied-exception? permission-denied-exception?) - (spec: 0 s64vector-shrink! s64vector-shrink!) - (spec: 0 thread-base-priority-set! thread-base-priority-set!) - (spec: 0 open-input-vector open-input-vector) - (spec: 0 vector-any vector-any) - (spec: 0 fxbit-count fxbit-count) - (spec: 0 char-set-difference! char-set-difference!) - (spec: 0 tty? tty?) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 0 char-set char-set) + (spec: 0 open-output-vector open-output-vector) + (spec: 0 fold-right fold-right) + (spec: 0 u64vector-fill! u64vector-fill!) + (spec: 0 initialized-thread-exception? initialized-thread-exception?) + (spec: 0 file-owner file-owner) + (spec: 0 network-info network-info) + (spec: 0 subu32vector-fill! subu32vector-fill!) + (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 0 box box) + (spec: 0 mutex-specific mutex-specific) + (spec: 0 file-info-last-access-time file-info-last-access-time) + (spec: 0 random-source-state-set! random-source-state-set!) + (spec: 0 ucs-range->char-set ucs-range->char-set) + (spec: 0 flacosh flacosh) (spec: 0 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 0 s8vector-set! s8vector-set!) - (spec: 0 with-exception-handler with-exception-handler) - (spec: 0 subu16vector subu16vector) - (spec: 0 u64vector-append u64vector-append) - (spec: 0 f64vector-ref f64vector-ref) - (spec: 0 step-level-set! step-level-set!) - (spec: 0 fxodd? fxodd?) - (spec: 0 path-normalize path-normalize) - (spec: 0 every every) - (spec: 0 char-set-union! char-set-union!) - (spec: 0 u16vector-copy u16vector-copy) - (spec: 0 string-suffix? string-suffix?) - (spec: 0 seconds->time seconds->time) - (spec: 0 error-exception? error-exception?) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 0 input-port-timeout-set! input-port-timeout-set!) (spec: 0 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 0 process-status process-status) - (spec: 0 u8vector u8vector) - (spec: 0 module-search-order-add! module-search-order-add!) + unknown-keyword-argument-exception-arguments + unknown-keyword-argument-exception-arguments) (spec: 0 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 0 cpu-time cpu-time) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 0 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 0 noncontinuable-exception? noncontinuable-exception?) - (spec: 0 bitwise-for-each bitwise-for-each) - (spec: 0 fl* fl*) - (spec: 0 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 0 subf64vector-move! subf64vector-move!) - (spec: 0 make-u32vector make-u32vector) - (spec: 0 bit-field-every? bit-field-every?) - (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 0 f32vector-ref f32vector-ref) - (spec: 0 protocol-info-name protocol-info-name) - (spec: 0 u32vector-concatenate u32vector-concatenate) - (spec: 0 mutex? mutex?) - (spec: 0 u8vector-set! u8vector-set!) - (spec: 0 file-info-number-of-links file-info-number-of-links) - (spec: 0 write-subu8vector write-subu8vector) - (spec: 0 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 0 flasin flasin) - (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 0 call-with-input-process call-with-input-process) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 0 read-file-u8vector read-file-u8vector) + (spec: 0 s64vector-swap! s64vector-swap!) + (spec: 0 string-contains-ci string-contains-ci) + (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 0 f32vector-append f32vector-append) + (spec: 0 host-name host-name) + (spec: 0 processor-id processor-id) + (spec: 0 subs32vector-fill! subs32vector-fill!) + (spec: 0 u32vector-copy u32vector-copy) + (spec: 0 will-testator will-testator) + (spec: 0 executable-path executable-path) + (spec: 0 u16vector-copy! u16vector-copy!) (spec: 0 - invalid-hash-number-exception? - invalid-hash-number-exception?) - (spec: 0 tanh tanh) - (spec: 0 open-udp open-udp) + wrong-processor-c-return-exception? + wrong-processor-c-return-exception?) + (spec: 0 bitwise-nand bitwise-nand) + (spec: 0 make-s8vector make-s8vector) + (spec: 0 file-attributes file-attributes) (spec: 0 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 0 unbound-global-exception-code unbound-global-exception-code) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 0 r7rs-raise r7rs-raise) + (spec: 0 u8vector-concatenate u8vector-concatenate) + (spec: 0 bit-field-rotate bit-field-rotate) + (spec: 0 f64vector-copy! f64vector-copy!) + (spec: 0 thread-interrupt! thread-interrupt!) + (spec: 0 user-info-uid user-info-uid) + (spec: 0 char-set-unfold! char-set-unfold!) + (spec: 0 error-exception-message error-exception-message) + (spec: 0 fxnor fxnor) + (spec: 0 s32vector? s32vector?) + (spec: 0 void void) + (spec: 0 char-set-diff+intersection char-set-diff+intersection) + (spec: 0 list-sort! list-sort!) + (spec: 0 fxarithmetic-shift fxarithmetic-shift) + (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 started-thread-exception? started-thread-exception?) + (spec: 0 any any) + (spec: 0 list->s64vector list->s64vector) + (spec: 0 thread-state-waiting-for thread-state-waiting-for) + (spec: 0 s8vector-shrink! s8vector-shrink!) + (spec: 0 string-prefix-ci? string-prefix-ci?) + (spec: 0 acosh acosh) + (spec: 0 make-f32vector make-f32vector) + (spec: 0 fxwrapquotient fxwrapquotient) + (spec: 0 path-volume path-volume) + (spec: 0 table-for-each table-for-each) + (spec: 0 divide-by-zero-exception? divide-by-zero-exception?) (spec: 0 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 0 flodd? flodd?) (spec: 0 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 0 flinfinite? flinfinite?) - (spec: 0 file-number-of-links file-number-of-links) - (spec: 0 object->string object->string) - (spec: 0 terminated-thread-exception? terminated-thread-exception?) - (spec: 0 user-name user-name) - (spec: 0 output-port-char-position output-port-char-position) - (spec: 0 char-set->list char-set->list) - (spec: 0 fxxor fxxor) + unbound-serial-number-exception-procedure + unbound-serial-number-exception-procedure) + (spec: 0 thread-group->thread-vector thread-group->thread-vector) + (spec: 0 call/cc call/cc) + (spec: 0 real-time real-time) + (spec: 0 flexpt flexpt) (spec: 0 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 0 s64vector-length s64vector-length) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) (spec: 0 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 0 open-input-u8vector open-input-u8vector) - (spec: 0 keyword-expected-exception? keyword-expected-exception?) + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 0 s16vector s16vector) + (spec: 0 thread-start! thread-start!) + (spec: 0 vector->bits vector->bits) + (spec: 0 open-output-u8vector open-output-u8vector) + (spec: 0 fold fold) + (spec: 0 u64vector-copy! u64vector-copy!) + (spec: 0 file-number-of-links file-number-of-links) (spec: 0 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 0 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 0 s16vector-set s16vector-set) - (spec: 0 char-set-difference char-set-difference) - (spec: 0 list->char-set list->char-set) - (spec: 0 poll-point poll-point) - (spec: 0 thread-state-waiting? thread-state-waiting?) - (spec: 0 string-prefix-length-ci string-prefix-length-ci) - (spec: 0 tty-mode-set! tty-mode-set!) - (spec: 0 u32vector? u32vector?) - (spec: 0 f64vector-shrink! f64vector-shrink!) - (spec: 0 bitwise-and bitwise-and) - (spec: 0 list->s8vector list->s8vector) - (spec: 0 fxmodulo fxmodulo) - (spec: 0 group-info group-info) - (spec: 0 ->char-set ->char-set) - (spec: 0 circular-list circular-list) - (spec: 0 primordial-exception-handler primordial-exception-handler) - (spec: 0 s8vector? s8vector?) - (spec: 0 raise raise) - (spec: 0 file-exists-exception? file-exists-exception?) - (spec: 0 u64vector-swap! u64vector-swap!) - (spec: 0 input-port-column input-port-column) - (spec: 0 read-substring read-substring) - (spec: 0 fl- fl-) - (spec: 0 default-random-source default-random-source) + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 0 unbound-global-exception-code unbound-global-exception-code) + (spec: 0 file-info-inode file-info-inode) + (spec: 0 mutex-name mutex-name) + (spec: 0 u8vector? u8vector?) + (spec: 0 flacos flacos) + (spec: 0 table-merge table-merge) + (spec: + 0 + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: + 0 + readtable-max-write-length-set + readtable-max-write-length-set) (spec: 0 no-such-file-or-directory-exception-arguments no-such-file-or-directory-exception-arguments) + (spec: 0 read-substring read-substring) + (spec: 0 will-execute! will-execute!) + (spec: 0 host-info? host-info?) + (spec: 0 concatenate! concatenate!) + (spec: 0 f32vector-copy! f32vector-copy!) + (spec: 0 make-thread make-thread) + (spec: 0 setenv setenv) + (spec: 0 string-contains string-contains) + (spec: 0 u32vector-length u32vector-length) + (spec: 0 subs32vector subs32vector) + (spec: 0 fifth fifth) + (spec: 0 bitwise-merge bitwise-merge) + (spec: 0 raise raise) (spec: 0 subu64vector-fill! subu64vector-fill!) - (spec: 0 serial-number->object serial-number->object) - (spec: 0 f32vector-shrink! f32vector-shrink!) - (spec: 0 make-table make-table) + (spec: 0 u8vector-append u8vector-append) + (spec: 0 f64vector-copy f64vector-copy) + (spec: 0 bit-field-reverse bit-field-reverse) + (spec: 0 console-port console-port) (spec: 0 subs64vector subs64vector) - (spec: 0 file-info-type file-info-type) - (spec: 0 create-symbolic-link create-symbolic-link) - (spec: 0 mutex-name mutex-name) - (spec: 0 readtable-eval-allowed?-set readtable-eval-allowed?-set) + (spec: 0 thread-mailbox-next thread-mailbox-next) + (spec: 0 fxnegative? fxnegative?) + (spec: 0 char-set-unfold char-set-unfold) + (spec: 0 list->table list->table) + (spec: 0 user-info-shell user-info-shell) + (spec: 0 s64vector s64vector) + (spec: 0 char-set-delete! char-set-delete!) + (spec: 0 fxandc2 fxandc2) + (spec: 0 output-port-readtable-set! output-port-readtable-set!) + (spec: 0 s32vector->list s32vector->list) + (spec: 0 string->keyword string->keyword) + (spec: 0 thread-suspend! thread-suspend!) (spec: 0 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 0 call-with-input-vector call-with-input-vector) - (spec: 0 fl>= fl>=) - (spec: 0 table-ref table-ref) - (spec: 0 socket-info-port-number socket-info-port-number) - (spec: 0 fltruncate fltruncate) - (spec: 0 thread-group-specific thread-group-specific) - (spec: 0 uncaught-exception? uncaught-exception?) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 0 vector-inc! vector-inc!) + (spec: 0 type-exception-arguments type-exception-arguments) + (spec: 0 with-output-to-vector with-output-to-vector) + (spec: 0 address-info-family address-info-family) + (spec: 0 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 0 every-bit-set? every-bit-set?) + (spec: 0 path-strip-volume path-strip-volume) + (spec: 0 unbreak unbreak) (spec: 0 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 0 null-list? null-list?) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 0 link-flat link-flat) + (spec: 0 table-copy table-copy) + (spec: 0 car+cdr car+cdr) + (spec: 0 directory-files directory-files) + (spec: 0 flhypot flhypot) (spec: 0 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 0 flexpt flexpt) - (spec: 0 thread-quantum-set! thread-quantum-set!) - (spec: 0 char-set-adjoin! char-set-adjoin!) - (spec: 0 foreign? foreign?) - (spec: 0 vector-cas! vector-cas!) - (spec: 0 path-strip-extension path-strip-extension) - (spec: 0 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 0 list-tabulate list-tabulate) - (spec: 0 rename-file rename-file) - (spec: 0 flodd? flodd?) - (spec: 0 s16vector->list s16vector->list) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 0 thread-group->thread-list thread-group->thread-list) + (spec: 0 untrace untrace) + (spec: 0 test-bit-field? test-bit-field?) + (spec: 0 length+ length+) (spec: 0 - thread-state-normally-terminated? - thread-state-normally-terminated?) - (spec: 0 char-set-filter char-set-filter) - (spec: 0 fxand fxand) - (spec: 0 s64vector? s64vector?) - (spec: 0 tty-history-set! tty-history-set!) - (spec: 0 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 0 protocol-info? protocol-info?) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 0 s16vector-concatenate s16vector-concatenate) + (spec: 0 flzero? flzero?) (spec: 0 f64vector-set! f64vector-set!) - (spec: 0 subs8vector subs8vector) (spec: 0 bits->vector bits->vector) - (spec: 0 u32vector-swap! u32vector-swap!) - (spec: 0 with-input-from-port with-input-from-port) - (spec: 0 thread-terminate! thread-terminate!) - (spec: 0 char-set-xor! char-set-xor!) - (spec: 0 fxmin fxmin) - (spec: 0 s32vector-append s32vector-append) - (spec: 0 pretty-print pretty-print) - (spec: 0 s8vector-swap! s8vector-swap!) - (spec: 0 make-f64vector make-f64vector) - (spec: 0 group-info-name group-info-name) - (spec: 0 string-set string-set) - (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 current-readtable current-readtable) + (spec: 0 file-info-size file-info-size) + (spec: 0 range-exception-arguments range-exception-arguments) (spec: 0 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 0 u64vector-shrink! u64vector-shrink!) - (spec: 0 bitwise-xor bitwise-xor) - (spec: 0 read-file-string read-file-string) - (spec: 0 fl+* fl+*) - (spec: 0 input-port-readtable input-port-readtable) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 0 table-search table-search) + (spec: 0 readtable-sharing-allowed? readtable-sharing-allowed?) + (spec: 0 flceiling flceiling) + (spec: + 0 + invalid-hash-number-exception? + invalid-hash-number-exception?) (spec: 0 system-stamp system-stamp) (spec: 0 unbound-key-exception? unbound-key-exception?) - (spec: 0 u16vector? u16vector?) - (spec: 0 f32vector-set! f32vector-set!) - (spec: 0 condition-variable-signal! condition-variable-signal!) - (spec: 0 host-info-aliases host-info-aliases) - (spec: 0 file-info-size file-info-size) - (spec: 0 current-readtable current-readtable) - (spec: 0 mutex-lock! mutex-lock!) + (spec: 0 address-info-socket-type address-info-socket-type) + (spec: 0 service-info service-info) + (spec: 0 make-u16vector make-u16vector) + (spec: 0 subf32vector subf32vector) + (spec: 0 u16vector-set! u16vector-set!) + (spec: 0 condition-variable-specific condition-variable-specific) + (spec: 0 scheduler-exception? scheduler-exception?) + (spec: 0 type-exception? type-exception?) (spec: 0 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 0 table-copy table-copy) - (spec: 0 call-with-input-u8vector call-with-input-u8vector) - (spec: 0 fl> fl>) - (spec: 0 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 socket-info-family socket-info-family) - (spec: 0 fltanh fltanh) - (spec: 0 thread-group->thread-list thread-group->thread-list) - (spec: 0 uncaught-exception-reason uncaught-exception-reason) - (spec: 0 ucs-range->char-set! ucs-range->char-set!) - (spec: 0 dead-end dead-end) - (spec: 0 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 0 flexpm1 flexpm1) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 0 help-browser help-browser) + (spec: 0 module-whitelist-add! module-whitelist-add!) + (spec: 0 subu8vector-fill! subu8vector-fill!) + (spec: 0 u64vector-shrink! u64vector-shrink!) + (spec: 0 random-real random-real) (spec: 0 - display-continuation-environment - display-continuation-environment) - (spec: 0 open-vector-pipe open-vector-pipe) - (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 0 char-set-adjoin char-set-adjoin) - (spec: 0 path-strip-directory path-strip-directory) - (spec: 0 string->uninterned-symbol string->uninterned-symbol) - (spec: 0 fxwrapabs fxwrapabs) - (spec: 0 address-info-protocol address-info-protocol) - (spec: 0 s64vector->list s64vector->list) - (spec: 0 test-bit-field? test-bit-field?) - (spec: 0 keyword? keyword?) - (spec: 0 drop-right drop-right) - (spec: 0 output-port-line output-port-line) - (spec: 0 char-set-every char-set-every) - (spec: 0 fxabs fxabs) - (spec: 0 list->f32vector list->f32vector) - (spec: 0 eqv?-hash eqv?-hash) - (spec: 0 s16vector-copy s16vector-copy) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 0 bitwise-xor bitwise-xor) (spec: 0 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 0 make-bitwise-generator make-bitwise-generator) - (spec: 0 s8vector s8vector) - (spec: 0 append! append!) - (spec: 0 protocol-info-number protocol-info-number) - (spec: 0 subs64vector-move! subs64vector-move!) - (spec: 0 bit-field-set bit-field-set) - (spec: 0 f64vector? f64vector?) - (spec: 0 thread-suspend! thread-suspend!) - (spec: - 0 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 0 fxremainder fxremainder) - (spec: 0 s32vector->list s32vector->list) - (spec: 0 type-exception-procedure type-exception-procedure) - (spec: 0 group-info-members group-info-members) - (spec: 0 arithmetic-shift arithmetic-shift) - (spec: 0 make-root-thread make-root-thread) - (spec: 0 subu8vector subu8vector) - (spec: 0 u64vector-length u64vector-length) - (spec: 0 bitwise-nor bitwise-nor) - (spec: 0 file-group file-group) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 0 subs8vector subs8vector) + (spec: 0 u32vector-swap! u32vector-swap!) + (spec: 0 s32vector-copy s32vector-copy) + (spec: 0 list->u64vector list->u64vector) + (spec: 0 path-directory path-directory) + (spec: 0 thread-yield! thread-yield!) + (spec: 0 fxquotient fxquotient) + (spec: 0 s16vector-fill! s16vector-fill!) + (spec: 0 thread-state-initialized? thread-state-initialized?) + (spec: 0 vector-concatenate vector-concatenate) + (spec: 0 fxeven? fxeven?) + (spec: 0 char-set-filter! char-set-filter!) (spec: 0 - unbound-global-exception-variable - unbound-global-exception-variable) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 0 port-settings-set! port-settings-set!) + (spec: 0 s8vector-append s8vector-append) + (spec: 0 with-input-from-process with-input-from-process) + (spec: 0 getenv getenv) + (spec: 0 append-reverse! append-reverse!) + (spec: 0 s64vector-concatenate s64vector-concatenate) + (spec: 0 fixnum? fixnum?) + (spec: 0 third third) + (spec: 0 open-dummy open-dummy) + (spec: 0 repl-result-history-ref repl-result-history-ref) + (spec: 0 keyword-hash keyword-hash) + (spec: 0 drop drop) (spec: 0 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 0 fl< fl<) - (spec: 0 process-times process-times) - (spec: 0 u16vector-ref u16vector-ref) - (spec: 0 condition-variable-name condition-variable-name) - (spec: 0 host-info-addresses host-info-addresses) - (spec: 0 f32vector? f32vector?) - (spec: 0 make-will make-will) - (spec: 0 random-source-randomize! random-source-randomize!) - (spec: 0 current-processor current-processor) - (spec: 0 u8vector-copy u8vector-copy) - (spec: 0 box? box?) - (spec: 0 file-inode file-inode) - (spec: 0 table->list table->list) - (spec: 0 xcons xcons) - (spec: 0 flcos flcos) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 0 flinteger? flinteger?) (spec: 0 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 0 call-with-output-process call-with-output-process) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 0 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 0 sixth sixth) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) (spec: 0 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 0 ucs-range->char-set ucs-range->char-set) - (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 0 filter! filter!) - (spec: 0 flmax flmax) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 0 thread-priority-boost thread-priority-boost) + (spec: 0 fx- fx-) + (spec: 0 char-set-any char-set-any) + (spec: 0 open-tcp-client open-tcp-client) + (spec: 0 bits->list bits->list) + (spec: 0 continuation-return continuation-return) + (spec: 0 f64vector-set f64vector-set) + (spec: 0 socket-info? socket-info?) + (spec: 0 thread-group-name thread-group-name) + (spec: 0 udp-local-socket-info udp-local-socket-info) + (spec: 0 input-port-char-position input-port-char-position) + (spec: 0 u8vector-length u8vector-length) + (spec: 0 current-time current-time) + (spec: 0 file-info-owner file-info-owner) + (spec: 0 uncaught-exception? uncaught-exception?) + (spec: 0 call-with-input-vector call-with-input-vector) (spec: 0 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 0 thread-mailbox-next thread-mailbox-next) - (spec: 0 fx< fx<) - (spec: 0 char-set-complement char-set-complement) - (spec: 0 string->keyword string->keyword) - (spec: 0 path-strip-volume path-strip-volume) - (spec: 0 address-info-family address-info-family) - (spec: 0 char-set<= char-set<=) - (spec: 0 s64vector s64vector) - (spec: 0 flsin flsin) - (spec: 0 keyword-hash keyword-hash) - (spec: 0 drop drop) + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 0 flatanh flatanh) + (spec: 0 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 0 system-version system-version) (spec: 0 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 0 list->char-set! list->char-set!) - (spec: 0 fxfirst-set-bit fxfirst-set-bit) - (spec: 0 output-port-readtable-set! output-port-readtable-set!) - (spec: 0 char-set-fold char-set-fold) - (spec: 0 s16vector-concatenate s16vector-concatenate) - (spec: 0 string-contains string-contains) - (spec: 0 with-input-from-string with-input-from-string) - (spec: 0 subs32vector subs32vector) - (spec: 0 u32vector-length u32vector-length) - (spec: 0 setenv setenv) - (spec: 0 bit-field-rotate bit-field-rotate) - (spec: 0 continuation-graft continuation-graft) - (spec: 0 f64vector-swap! f64vector-swap!) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 0 service-info-port-number service-info-port-number) + (spec: 0 make-u8vector make-u8vector) + (spec: 0 condition-variable-signal! condition-variable-signal!) + (spec: 0 proper-list? proper-list?) + (spec: 0 f32vector-set! f32vector-set!) + (spec: 0 identity identity) + (spec: 0 make-random-source make-random-source) + (spec: 0 string-set string-set) + (spec: 0 u16vector? u16vector?) + (spec: 0 help help) + (spec: 0 u64vector-set! u64vector-set!) + (spec: 0 subvector-fill! subvector-fill!) + (spec: 0 bitwise-unfold bitwise-unfold) + (spec: 0 create-fifo create-fifo) (spec: 0 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 0 fxquotient fxquotient) - (spec: 0 s32vector-shrink! s32vector-shrink!) - (spec: 0 thread-yield! thread-yield!) - (spec: 0 type-exception-arguments type-exception-arguments) - (spec: 0 extract-bit-field extract-bit-field) - (spec: 0 command-args command-args) - (spec: 0 subu32vector-fill! subu32vector-fill!) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 0 inactive-thread-exception? inactive-thread-exception?) + (spec: 0 module-search-order-reset! module-search-order-reset!) + (spec: 0 random-source-make-integers random-source-make-integers) (spec: 0 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 0 bitwise-nand bitwise-nand) - (spec: 0 create-directory create-directory) - (spec: 0 r7rs-raise r7rs-raise) - (spec: 0 u64vector-fill! u64vector-fill!) + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 0 force-output force-output) + (spec: 0 open-string-pipe open-string-pipe) + (spec: 0 s32vector-length s32vector-length) + (spec: 0 u32vector-shrink! u32vector-shrink!) + (spec: 0 fxpositive? fxpositive?) + (spec: 0 s16vector-ref s16vector-ref) + (spec: 0 list->bits list->bits) + (spec: 0 char-set-filter char-set-filter) (spec: 0 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 0 integer-length integer-length) - (spec: 0 fl/ fl/) - (spec: 0 read-file-u8vector read-file-u8vector) - (spec: 0 unbound-global-exception-rte unbound-global-exception-rte) + thread-state-normally-terminated? + thread-state-normally-terminated?) + (spec: 0 fxeqv fxeqv) + (spec: 0 s8vector-copy! s8vector-copy!) + (spec: 0 main main) + (spec: 0 vector-cas! vector-cas!) + (spec: 0 tty-history-set! tty-history-set!) + (spec: 0 with-input-from-port with-input-from-port) + (spec: 0 get-output-vector get-output-vector) + (spec: 0 s64vector-fill! s64vector-fill!) + (spec: 0 fl+* fl+*) + (spec: 0 dotted-list? dotted-list?) (spec: 0 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 0 flscalbn flscalbn) + (spec: 0 keyword-expected-exception? keyword-expected-exception?) + (spec: 0 tcp-server-socket-info tcp-server-socket-info) (spec: 0 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 0 f32vector-swap! f32vector-swap!) - (spec: 0 u8vector-concatenate u8vector-concatenate) - (spec: 0 random-source-state-set! random-source-state-set!) - (spec: 0 box box) - (spec: 0 current-thread current-thread) - (spec: 0 file-info? file-info?) - (spec: 0 flceiling flceiling) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 0 fllog1p fllog1p) + (spec: 0 char-set-adjoin! char-set-adjoin!) + (spec: 0 os-exception? os-exception?) + (spec: 0 fx+ fx+) + (spec: 0 reverse! reverse!) + (spec: 0 last-pair last-pair) + (spec: 0 socket-info-port-number socket-info-port-number) + (spec: 0 thread-group-specific thread-group-specific) + (spec: 0 bits bits) + (spec: 0 thread-quantum-set! thread-quantum-set!) + (spec: 0 network-info? network-info?) + (spec: 0 datum-parsing-exception? datum-parsing-exception?) + (spec: 0 mutex? mutex?) + (spec: 0 file-info-number-of-links file-info-number-of-links) + (spec: 0 break break) + (spec: 0 table-merge! table-merge!) + (spec: 0 compile-file compile-file) + (spec: 0 flatan flatan) + (spec: 0 readtable-max-write-level readtable-max-write-level) (spec: 0 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) + (spec: 0 call-with-input-u8vector call-with-input-u8vector) + (spec: 0 noncontinuable-exception? noncontinuable-exception?) + (spec: 0 fl* fl*) + (spec: 0 read-subu8vector read-subu8vector) (spec: 0 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 0 table-length table-length) - (spec: 0 open-output-process open-output-process) - (spec: 0 thread-group-name thread-group-name) - (spec: 0 input-port-byte-position input-port-byte-position) + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 0 address-info-protocol address-info-protocol) + (spec: 0 make-thread-group make-thread-group) + (spec: 0 f32vector-fill! f32vector-fill!) + (spec: 0 uncaught-exception-reason uncaught-exception-reason) + (spec: 0 condition-variable-name condition-variable-name) + (spec: 0 println println) + (spec: 0 heap-overflow-exception? heap-overflow-exception?) + (spec: 0 arithmetic-shift arithmetic-shift) + (spec: 0 subu64vector-move! subu64vector-move!) + (spec: 0 module-search-order-add! module-search-order-add!) + (spec: 0 random-f64vector random-f64vector) + (spec: 0 u16vector-ref u16vector-ref) + (spec: 0 u64vector-set u64vector-set) + (spec: 0 bitwise-orc2 bitwise-orc2) + (spec: 0 cpu-time cpu-time) + (spec: 0 f64vector-ref f64vector-ref) + (spec: + 0 + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 0 subs64vector-fill! subs64vector-fill!) + (spec: 0 u32vector-set! u32vector-set!) + (spec: 0 list->u16vector list->u16vector) + (spec: 0 fxorc2 fxorc2) + (spec: 0 partition! partition!) + (spec: 0 s32vector-append s32vector-append) + (spec: 0 thread-mailbox-rewind thread-mailbox-rewind) + (spec: 0 char-set-xor! char-set-xor!) + (spec: 0 fxbit-set? fxbit-set?) + (spec: 0 s16vector-copy s16vector-copy) + (spec: 0 char-set-every char-set-every) + (spec: 0 get-output-u8vector get-output-u8vector) + (spec: + 0 + port-io-exception-handler-set! + port-io-exception-handler-set!) + (spec: 0 s8vector s8vector) + (spec: 0 append! append!) + (spec: 0 thread-terminate! thread-terminate!) + (spec: 0 list= list=) + (spec: 0 type-exception-procedure type-exception-procedure) + (spec: 0 s64vector->list s64vector->list) + (spec: 0 string->uninterned-symbol string->uninterned-symbol) + (spec: + 0 + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 0 repl-output-port repl-output-port) + (spec: 0 flilogb flilogb) + (spec: 0 os-exception-procedure os-exception-procedure) + (spec: 0 fx* fx*) + (spec: 0 char-set-adjoin char-set-adjoin) + (spec: 0 last last) + (spec: 0 open-string open-string) + (spec: 0 socket-info-family socket-info-family) + (spec: + 0 + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 0 bit-swap bit-swap) + (spec: 0 continuation-capture continuation-capture) + (spec: 0 network-info-number network-info-number) (spec: 0 udp-destination-set! udp-destination-set!) (spec: 0 file-type file-type) (spec: 0 deadlock-exception? deadlock-exception?) - (spec: 0 fllog1p fllog1p) - (spec: 0 remove remove) + (spec: 0 input-port-byte-position input-port-byte-position) + (spec: 0 mutex-unlock! mutex-unlock!) + (spec: 0 range-exception-procedure range-exception-procedure) + (spec: 0 u8vector-fill! u8vector-fill!) + (spec: 0 file-info-mode file-info-mode) (spec: 0 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 0 fx- fx-) - (spec: 0 thread-priority-boost thread-priority-boost) - (spec: 0 char-set-any char-set-any) - (spec: 0 string->char-set! string->char-set!) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 0 table-set! table-set!) + (spec: 0 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 0 flasinh flasinh) + (spec: 0 call-with-input-string call-with-input-string) (spec: 0 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 0 s64vector-set! s64vector-set!) - (spec: 0 address-info-socket-type address-info-socket-type) - (spec: 0 flscalbn flscalbn) - (spec: 0 fxeven? fxeven?) - (spec: 0 output-port-readtable output-port-readtable) - (spec: 0 s16vector? s16vector?) - (spec: 0 char-set-filter! char-set-filter!) - (spec: 0 list->s16vector list->s16vector) - (spec: 0 thread-state-initialized? thread-state-initialized?) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 0 system-type system-type) + (spec: 0 address-info? address-info?) + (spec: 0 fxzero? fxzero?) + (spec: 0 f32vector-ref f32vector-ref) + (spec: 0 make-u32vector make-u32vector) + (spec: 0 service-info-aliases service-info-aliases) + (spec: 0 u16vector-shrink! u16vector-shrink!) + (spec: 0 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 0 print print) (spec: 0 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 0 vector-concatenate vector-concatenate) - (spec: 0 with-output-to-u8vector with-output-to-u8vector) - (spec: 0 group-info? group-info?) - (spec: 0 f64vector f64vector) - (spec: 0 conjugate conjugate) - (spec: 0 bit-field-clear bit-field-clear) - (spec: 0 port-settings-set! port-settings-set!) - (spec: 0 gensym gensym) - (spec: 0 s8vector-append s8vector-append) - (spec: 0 err-code->string err-code->string) - (spec: 0 char-set-hash char-set-hash) - (spec: 0 fxnot fxnot) - (spec: 0 list->u32vector list->u32vector) - (spec: 0 s64vector-append s64vector-append) - (spec: 0 scheduler-exception? scheduler-exception?) - (spec: 0 step step) - (spec: 0 subs8vector-fill! subs8vector-fill!) - (spec: 0 time? time?) - (spec: 0 s32vector-concatenate s32vector-concatenate) - (spec: 0 tty-type-set! tty-type-set!) - (spec: 0 copy-file copy-file) - (spec: 0 u16vector-concatenate u16vector-concatenate) - (spec: 0 bitwise-fold bitwise-fold) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 0 string-prefix? string-prefix?) + (spec: 0 write-subu8vector write-subu8vector) + (spec: 0 asinh asinh) (spec: 0 subu8vector-move! subu8vector-move!) - (spec: 0 u64vector->list u64vector->list) - (spec: 0 first first) + (spec: 0 u64vector-ref u64vector-ref) + (spec: 0 bitwise-orc1 bitwise-orc1) (spec: 0 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 0 system-type system-type) - (spec: 0 concatenate concatenate) - (spec: 0 f32vector f32vector) - (spec: 0 atanh atanh) - (spec: 0 make-u16vector make-u16vector) - (spec: 0 subf32vector subf32vector) - (spec: 0 file-info-attributes file-info-attributes) - (spec: 0 current-directory current-directory) - (spec: 0 mutex-unlock! mutex-unlock!) - (spec: 0 u32vector-append u32vector-append) - (spec: 0 host-info-name host-info-name) - (spec: 0 range-exception-procedure range-exception-procedure) - (spec: 0 service-info service-info) - (spec: 0 u8vector-set u8vector-set) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 0 subs8vector-fill! subs8vector-fill!) + (spec: 0 u32vector-set u32vector-set) + (spec: 0 list->u8vector list->u8vector) + (spec: 0 partition partition) + (spec: 0 s32vector-copy! s32vector-copy!) + (spec: 0 fxorc1 fxorc1) + (spec: 0 char-set-xor char-set-xor) + (spec: 0 thread? thread?) + (spec: 0 s16vector-length s16vector-length) + (spec: 0 vector-any vector-any) + (spec: 0 fxbit-count fxbit-count) + (spec: 0 char-set-difference! char-set-difference!) (spec: 0 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 0 tty-history tty-history) + (spec: 0 s8vector-concatenate s8vector-concatenate) + (spec: 0 with-exception-handler with-exception-handler) + (spec: 0 string->uninterned-keyword string->uninterned-keyword) + (spec: 0 s64vector-copy s64vector-copy) + (spec: 0 flpositive? flpositive?) + (spec: 0 open-event-queue open-event-queue) + (spec: 0 repl-input-port repl-input-port) (spec: 0 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 0 real-time real-time) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 0 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 0 drop-right! drop-right!) - (spec: 0 fold-right fold-right) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 0 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 0 thread-group? thread-group?) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 0 os-exception-message os-exception-message) + (spec: + 0 + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 0 char-set->string char-set->string) + (spec: 0 open-process open-process) + (spec: 0 socket-info-address socket-info-address) + (spec: 0 thread-group-parent thread-group-parent) + (spec: 0 bitwise-eqv bitwise-eqv) + (spec: 0 substring-fill! substring-fill!) + (spec: 0 udp-source-socket-info udp-source-socket-info) + (spec: 0 continuation? continuation?) + (spec: + 0 + input-port-characters-buffered + input-port-characters-buffered) + (spec: 0 ninth ninth) + (spec: 0 u8vector-ref u8vector-ref) (spec: 0 file-last-access-and-modification-times-set! file-last-access-and-modification-times-set!) + (spec: + 0 + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 0 current-user-interrupt-handler current-user-interrupt-handler) - (spec: 0 network-info-name network-info-name) - (spec: 0 udp-source-socket-info udp-source-socket-info) - (spec: 0 call-with-output-u8vector call-with-output-u8vector) - (spec: 0 flilogb flilogb) (spec: 0 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 0 thread-priority-set! thread-priority-set!) - (spec: 0 tcp-service-unregister! tcp-service-unregister!) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 0 call-with-output-vector call-with-output-vector) + (spec: 0 fleven? fleven?) + (spec: 0 take take) (spec: 0 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 0 output-port-width output-port-width) - (spec: 0 s16vector-copy! s16vector-copy!) - (spec: 0 fxwrapsquare fxwrapsquare) - (spec: 0 thread-sleep! thread-sleep!) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 0 s64vector-length s64vector-length) (spec: 0 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 0 os-exception-arguments os-exception-arguments) - (spec: 0 display-exception display-exception) - (spec: 0 open-output-vector open-output-vector) - (spec: 0 char-set-contains? char-set-contains?) - (spec: 0 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 0 thread thread) - (spec: 0 vector-cumulate vector-cumulate) - (spec: 0 char-set? char-set?) - (spec: 0 with-input-from-vector with-input-from-vector) - (spec: 0 scheduler-exception-reason scheduler-exception-reason) - (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) - (spec: 0 bit-field-any? bit-field-any?) - (spec: 0 s8vector->list s8vector->list) - (spec: 0 substring-fill! substring-fill!) - (spec: 0 char-set-for-each char-set-for-each) - (spec: 0 fxnor fxnor) - (spec: 0 error-exception-message error-exception-message) - (spec: 0 list->s64vector list->s64vector) - (spec: 0 path-volume path-volume) - (spec: 0 s32vector-fill! s32vector-fill!) - (spec: 0 make-mutex make-mutex) - (spec: 0 top top) - (spec: 0 u64vector u64vector) - (spec: 0 vector-set vector-set) - (spec: 0 string-suffix-length string-suffix-length) - (spec: 0 continuation? continuation?) - (spec: 0 module-not-found-exception? module-not-found-exception?) - (spec: 0 bitwise-eqv bitwise-eqv) - (spec: 0 u16vector-append u16vector-append) - (spec: 0 random-u8vector random-u8vector) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 0 f32vector-shrink! f32vector-shrink!) + (spec: 0 service-info-protocol service-info-protocol) + (spec: 0 protocol-info-aliases protocol-info-aliases) + (spec: 0 subf64vector-fill! subf64vector-fill!) + (spec: 0 string-suffix-length-ci string-suffix-length-ci) + (spec: 0 random-source-make-reals random-source-make-reals) + (spec: 0 file-info file-info) (spec: 0 subvector-move! subvector-move!) - (spec: 0 shell-command shell-command) - (spec: 0 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 0 command-name command-name) - (spec: 0 make-tls-context make-tls-context) - (spec: 0 system-version-string system-version-string) + (spec: 0 create-link create-link) + (spec: 0 u64vector u64vector) + (spec: 0 eighth eighth) + (spec: 0 foreign-released? foreign-released?) + (spec: 0 open-udp open-udp) + (spec: 0 vector-shrink! vector-shrink!) + (spec: 0 fxwrap+ fxwrap+) + (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 0 path-normalize path-normalize) + (spec: 0 step-level-set! step-level-set!) + (spec: 0 vector-every vector-every) + (spec: 0 equal?-hash equal?-hash) + (spec: 0 char-set-intersection char-set-intersection) + (spec: 0 fxlength fxlength) + (spec: 0 list->char-set list->char-set) + (spec: 0 s16vector-set s16vector-set) + (spec: 0 group-info group-info) + (spec: 0 circular-list circular-list) + (spec: 0 s8vector-fill! s8vector-fill!) + (spec: 0 pp pp) + (spec: 0 tty-mode-set! tty-mode-set!) + (spec: 0 fl- fl-) + (spec: 0 delete delete) (spec: 0 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 0 seventh seventh) - (spec: 0 file-info file-info) - (spec: 0 create-link create-link) - (spec: 0 mutex-state mutex-state) - (spec: 0 subf64vector subf64vector) - (spec: 0 compile-file-to-target compile-file-to-target) - (spec: 0 processor? processor?) - (spec: 0 flacosh flacosh) - (spec: 0 readtable-max-write-level readtable-max-write-level) - (spec: 0 delete! delete!) - (spec: 0 u32vector->list u32vector->list) - (spec: 0 u8vector-ref u8vector-ref) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 0 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 0 flsin flsin) + (spec: 0 thread-base-priority-set! thread-base-priority-set!) + (spec: 0 flmax flmax) (spec: 0 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 0 fold fold) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 0 remove! remove!) + (spec: 0 thread-receive thread-receive) + (spec: 0 fx> fx>) + (spec: 0 char-set-copy char-set-copy) + (spec: 0 output-port-char-position output-port-char-position) + (spec: 0 thread-group-specific-set! thread-group-specific-set!) + (spec: 0 f64vector? f64vector?) + (spec: 0 subu16vector-fill! subu16vector-fill!) + (spec: 0 bitwise-andc2 bitwise-andc2) + (spec: 0 udp-read-u8vector udp-read-u8vector) + (spec: 0 file-inode file-inode) + (spec: 0 delete-directory delete-directory) + (spec: 0 not-pair? not-pair?) + (spec: 0 fldenominator fldenominator) + (spec: + 0 + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) + (spec: + 0 + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) + (spec: 0 call-with-output-u8vector call-with-output-u8vector) + (spec: 0 defer-user-interrupts defer-user-interrupts) + (spec: + 0 + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 0 s64vector-set s64vector-set) + (spec: 0 u32vector->list u32vector->list) + (spec: 0 char-set? char-set?) + (spec: 0 protocol-info protocol-info) + (spec: 0 bit-field-any? bit-field-any?) + (spec: 0 set-box! set-box!) + (spec: 0 subf64vector subf64vector) + (spec: 0 u16vector-append u16vector-append) (spec: 0 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) + (spec: 0 process-pid process-pid) + (spec: 0 string-suffix-length string-suffix-length) + (spec: 0 make-s16vector make-s16vector) + (spec: 0 command-name command-name) + (spec: 0 copy-bit copy-bit) + (spec: 0 file-group file-group) + (spec: 0 random-source-randomize! random-source-randomize!) + (spec: 0 configure-command-string configure-command-string) + (spec: 0 foreign-release! foreign-release!) + (spec: 0 open-u8vector-pipe open-u8vector-pipe) + (spec: 0 time? time?) + (spec: 0 path-extension path-extension) + (spec: 0 fxwrap* fxwrap*) + (spec: 0 s32vector-set! s32vector-set!) + (spec: 0 list-set list-set) + (spec: 0 step step) + (spec: 0 err-code->string err-code->string) + (spec: 0 fxior fxior) + (spec: 0 list->f64vector list->f64vector) + (spec: 0 s16vector-swap! s16vector-swap!) + (spec: 0 char-set-hash char-set-hash) + (spec: 0 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 0 vector-cumulate vector-cumulate) + (spec: 0 s8vector-ref s8vector-ref) + (spec: 0 with-input-from-vector with-input-from-vector) + (spec: 0 fl<= fl<=) + (spec: 0 integer-sqrt integer-sqrt) + (spec: 0 readtable-comment-handler readtable-comment-handler) + (spec: 0 system-version-string system-version-string) + (spec: 0 flsquare flsquare) (spec: 0 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 0 table-merge! table-merge!) - (spec: 0 current-time current-time) - (spec: 0 file-last-modification-time file-last-modification-time) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 0 open-input-u8vector open-input-u8vector) + (spec: 0 thread-base-priority thread-base-priority) + (spec: 0 remove remove) + (spec: 0 flnegative? flnegative?) (spec: 0 - unbound-key-exception-procedure - unbound-key-exception-procedure) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 0 object->string object->string) + (spec: 0 display-exception-in-context display-exception-in-context) + (spec: 0 output-port-byte-position output-port-byte-position) + (spec: 0 fx= fx=) + (spec: 0 tenth tenth) + (spec: 0 thread-sleep! thread-sleep!) + (spec: 0 char-set-contains? char-set-contains?) + (spec: 0 thread-group? thread-group?) + (spec: 0 bitwise-andc1 bitwise-andc1) + (spec: 0 continuation-graft continuation-graft) + (spec: 0 f64vector-swap! f64vector-swap!) + (spec: 0 subs8vector-move! subs8vector-move!) + (spec: 0 udp-read-subu8vector udp-read-subu8vector) + (spec: 0 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 0 filter! filter!) + (spec: 0 current-thread current-thread) + (spec: 0 file-info? file-info?) + (spec: 0 range-exception? range-exception?) + (spec: + 0 + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) (spec: 0 call-with-output-string call-with-output-string) - (spec: 0 flhypot flhypot) - (spec: 0 udp-local-socket-info udp-local-socket-info) - (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 0 output-port-timeout-set! output-port-timeout-set!) + (spec: 0 table? table?) + (spec: 0 flcosh flcosh) + (spec: 0 readtable-start-syntax readtable-start-syntax) (spec: 0 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 0 fxwrapquotient fxwrapquotient) + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) (spec: 0 address-infos address-infos) - (spec: 0 list-sort! list-sort!) - (spec: 0 s64vector-copy! s64vector-copy!) - (spec: 0 thread-quantum thread-quantum) - (spec: 0 join-timeout-exception? join-timeout-exception?) - (spec: 0 repl-input-port repl-input-port) - (spec: 0 open-output-u8vector open-output-u8vector) - (spec: 0 char-set-complement! char-set-complement!) - (spec: 0 fxarithmetic-shift fxarithmetic-shift) - (spec: 0 thread-group-resume! thread-group-resume!) - (spec: 0 stack-overflow-exception? stack-overflow-exception?) (spec: 0 char-set= char-set=) - (spec: 0 apropos apropos) - (spec: 0 s8vector-copy s8vector-copy) - (spec: 0 with-input-from-u8vector with-input-from-u8vector) - (spec: 0 condition-variable? condition-variable?) - (spec: - 0 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 0 bits->list bits->list) - (spec: 0 f64vector-append f64vector-append) - (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 0 list->s32vector list->s32vector) - (spec: 0 fxmax fxmax) - (spec: 0 char-set-intersection! char-set-intersection!) - (spec: 0 partition partition) - (spec: 0 s32vector-copy! s32vector-copy!) - (spec: 0 string->uninterned-keyword string->uninterned-keyword) - (spec: 0 make-f32vector make-f32vector) - (spec: 0 vector-swap! vector-swap!) - (spec: 0 executable-path executable-path) - (spec: 0 thread? thread?) - (spec: 0 string-suffix-ci? string-suffix-ci?) - (spec: 0 continuation-return continuation-return) - (spec: 0 bitwise-unfold bitwise-unfold) - (spec: 0 random-source? random-source?) - (spec: 0 subvector-fill! subvector-fill!) - (spec: 0 u8vector-length u8vector-length) - (spec: 0 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 0 system-version system-version) - (spec: 0 host-name host-name) - (spec: 0 make-s8vector make-s8vector) - (spec: 0 f32vector-append f32vector-append) + (spec: 0 gc-report-set! gc-report-set!) (spec: 0 service-info-name service-info-name) - (spec: 0 u32vector-shrink! u32vector-shrink!) - (spec: 0 create-fifo create-fifo) (spec: 0 subf32vector-move! subf32vector-move!) - (spec: 0 u64vector-set! u64vector-set!) - (spec: 0 file-info-device file-info-device) - (spec: 0 processor-id processor-id) (spec: 0 u16vector-swap! u16vector-swap!) - (spec: 0 compile-file compile-file) - (spec: 0 fl= fl=) - (spec: 0 delete delete) - (spec: - 0 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 0 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 0 condition-variable? condition-variable?) + (spec: 0 f32vector-set f32vector-set) + (spec: 0 make-u64vector make-u64vector) + (spec: 0 string-suffix-ci? string-suffix-ci?) (spec: 0 wrong-number-of-arguments-exception-procedure wrong-number-of-arguments-exception-procedure) - (spec: 0 fltan fltan) - (spec: 0 open-process open-process) + (spec: 0 expression-parsing-exception? expression-parsing-exception?) + (spec: 0 u64vector? u64vector?) (spec: 0 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 0 table-merge table-merge) - (spec: 0 user-info user-info) - (spec: 0 initial-current-directory initial-current-directory) - (spec: 0 file-last-change-time file-last-change-time) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 0 create-directory create-directory) + (spec: 0 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 0 subvector subvector) + (spec: 0 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 0 open-u8vector open-u8vector) + (spec: 0 foreign-address foreign-address) + (spec: 0 s32vector-fill! s32vector-fill!) + (spec: 0 vector-set vector-set) + (spec: 0 path-expand path-expand) + (spec: 0 fxsquare fxsquare) + (spec: 0 stack-overflow-exception? stack-overflow-exception?) (spec: 0 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 0 flexp flexp) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 0 char-set-for-each char-set-for-each) + (spec: 0 eq?-hash eq?-hash) + (spec: 0 fxif fxif) + (spec: 0 s8vector-copy s8vector-copy) + (spec: 0 apropos apropos) + (spec: 0 tty-history-max-length-set! tty-history-max-length-set!) (spec: 0 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 0 foreign-tags foreign-tags) - (spec: 0 os-exception-message os-exception-message) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 0 top top) + (spec: 0 s64vector-copy! s64vector-copy!) + (spec: 0 with-input-from-u8vector with-input-from-u8vector) (spec: 0 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 0 list-sort list-sort) - (spec: 0 fxwrap- fxwrap-) - (spec: 0 address-info? address-info?) - (spec: 0 s64vector-copy s64vector-copy) - (spec: 0 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 0 flnumerator flnumerator) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 0 fl+ fl+) + (spec: 0 integer-nth-root integer-nth-root) + (spec: 0 thread thread) + (spec: 0 drop-right! drop-right!) + (spec: 0 flround flround) + (spec: 0 open-file open-file) + (spec: 0 tcp-service-unregister! tcp-service-unregister!) + (spec: 0 display-exception display-exception) + (spec: 0 fllog fllog) + (spec: 0 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 0 thread-quantum thread-quantum) + (spec: 0 char-set-complement! char-set-complement!) + (spec: 0 length-mismatch-exception? length-mismatch-exception?) + (spec: 0 fx<= fx<=) + (spec: 0 thread-group-resume! thread-group-resume!) + (spec: 0 f64vector-shrink! f64vector-shrink!) + (spec: 0 bitwise-and bitwise-and) (spec: 0 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 0 open-dummy open-dummy) - (spec: 0 repl-highlight-source-level repl-highlight-source-level) - (spec: 0 socket-info-address socket-info-address) - (spec: 0 thread-group-parent thread-group-parent) - (spec: 0 fx>= fx>=) - (spec: 0 end-of-char-set? end-of-char-set?) - (spec: 0 char-set-count char-set-count) - (spec: 0 s16vector-length s16vector-length) - (spec: 0 s8vector-concatenate s8vector-concatenate) - (spec: 0 string-prefix? string-prefix?) - (spec: 0 with-output-to-port with-output-to-port) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 0 substring-move! substring-move!) + (spec: 0 filter filter) + (spec: 0 default-random-source default-random-source) + (spec: 0 input-port-column input-port-column) + (spec: 0 file-info-type file-info-type) + (spec: 0 flcos flcos) + (spec: 0 call-with-output-process call-with-output-process) (spec: 0 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 0 bits bits) - (spec: 0 f64vector->list f64vector->list) - (spec: 0 tty-history tty-history) - (spec: 0 fxlength fxlength) - (spec: 0 s32vector s32vector) - (spec: 0 char-set-intersection char-set-intersection) - (spec: 0 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 0 vector-shrink! vector-shrink!) - (spec: 0 group-info-gid group-info-gid) - (spec: 0 asinh asinh) - (spec: 0 circular-list? circular-list?) - (spec: 0 print print) - (spec: 0 write-file-string write-file-string) - (spec: 0 bitwise-orc2 bitwise-orc2) - (spec: 0 random-f64vector random-f64vector) - (spec: 0 input-port-line input-port-line) - (spec: 0 read-subu8vector read-subu8vector) - (spec: 0 first-set-bit first-set-bit) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 0 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 0 subu64vector-move! subu64vector-move!) - (spec: 0 host-info host-info) - (spec: 0 make-s64vector make-s64vector) - (spec: 0 f32vector->list f32vector->list) - (spec: 0 service-info-aliases service-info-aliases) - (spec: 0 subs64vector-fill! subs64vector-fill!) - (spec: 0 u32vector-set! u32vector-set!) - (spec: 0 u64vector-set u64vector-set) - (spec: 0 file-info-creation-time file-info-creation-time) - (spec: 0 break break) - (spec: 0 create-temporary-directory create-temporary-directory) - (spec: 0 u16vector-shrink! u16vector-shrink!) - (spec: 0 fl<= fl<=) - (spec: 0 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 0 table-search table-search) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 0 take! take!) + (spec: 0 char-set<= char-set<=) (spec: 0 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 0 flsquare flsquare) - (spec: 0 thread-group-specific-set! thread-group-specific-set!) - (spec: 0 eighth eighth) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 0 service-info? service-info?) + (spec: 0 bit-count bit-count) (spec: 0 - cfun-conversion-exception-code - cfun-conversion-exception-code) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 0 f32vector-swap! f32vector-swap!) + (spec: 0 script-directory script-directory) + (spec: 0 subf32vector-fill! subf32vector-fill!) + (spec: 0 command-args command-args) + (spec: 0 string-shrink! string-shrink!) + (spec: 0 extract-bit-field extract-bit-field) + (spec: 0 u16vector u16vector) + (spec: 0 u64vector-swap! u64vector-swap!) + (spec: 0 file-exists-exception? file-exists-exception?) + (spec: 0 create-symbolic-link create-symbolic-link) + (spec: 0 module-whitelist-reset! module-whitelist-reset!) + (spec: 0 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 0 sinh sinh) + (spec: 0 u32vector? u32vector?) + (spec: 0 open-tcp-server open-tcp-server) + (spec: 0 time time) + (spec: 0 s32vector-ref s32vector-ref) + (spec: 0 fxremainder fxremainder) + (spec: 0 abort abort) (spec: 0 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 0 filter filter) - (spec: 0 fleven? fleven?) + thread-state-running-processor + thread-state-running-processor) + (spec: 0 s16vector-set! s16vector-set!) + (spec: 0 fxfirst-set-bit fxfirst-set-bit) + (spec: 0 char-set-fold char-set-fold) + (spec: 0 list->char-set! list->char-set!) (spec: 0 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 0 s8vector-length s8vector-length) + (spec: 0 with-input-from-string with-input-from-string) + (spec: 0 integer-length integer-length) + (spec: 0 system-type-string system-type-string) + (spec: 0 fl/ fl/) (spec: 0 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 0 call-with-output-vector call-with-output-vector) - (spec: 0 readtable? readtable?) - (spec: 0 tcp-server-socket-info tcp-server-socket-info) - (spec: 0 foreign-released? foreign-released?) - (spec: 0 os-exception-code os-exception-code) - (spec: 0 thread-receive thread-receive) - (spec: 0 fxwrap+ fxwrap+) - (spec: 0 flnegative? flnegative?) - (spec: 0 open-directory open-directory) - (spec: 0 dotted-list? dotted-list?) - (spec: 0 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 0 fx> fx>) - (spec: 0 s16vector-append s16vector-append) - (spec: 0 equal?-hash equal?-hash) - (spec: 0 char-set-copy char-set-copy) - (spec: 0 vector-every vector-every) - (spec: 0 exit exit) - (spec: 0 get-output-bytevector get-output-bytevector) - (spec: 0 list-copy list-copy) - (spec: 0 current-jiffy current-jiffy) - (spec: 0 string-map string-map) - (spec: 0 read-bytevector read-bytevector) - (spec: 0 peek-u8 peek-u8) - (spec: 0 error-object-message error-object-message) - (spec: 0 string-upcase string-upcase) - (spec: 0 exact exact) - (spec: 0 eof-object eof-object) - (spec: 0 error-object-irritants error-object-irritants) - (spec: 0 make-list make-list) - (spec: 0 bytevector-u8-ref bytevector-u8-ref) - (spec: 0 read-u8 read-u8) - (spec: 0 get-environment-variable get-environment-variable) - (spec: 0 port? port?) - (spec: 0 bytevector-length bytevector-length) - (spec: 0 current-error-port current-error-port) - (spec: 0 write-shared write-shared) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 0 readtable-case-conversion? readtable-case-conversion?) + (spec: 0 keyword? keyword?) + (spec: 0 drop-right drop-right) + (spec: 0 open-input-process open-input-process) + (spec: 0 flsinh flsinh) + (spec: 0 replace-bit-field replace-bit-field) + (spec: + 0 + display-continuation-environment + display-continuation-environment) + (spec: 0 tcp-service-register! tcp-service-register!) + (spec: 0 flmin flmin) + (spec: 0 thread-resume! thread-resume!) + (spec: 0 fx< fx<) + (spec: 0 char-set-complement char-set-complement) + (spec: 0 thread-group-suspend! thread-group-suspend!) + (spec: 0 delete-file delete-file) (spec: 0 emergency-exit emergency-exit) - (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 list-set! list-set!) + (spec: 0 call-with-port call-with-port) (spec: 0 flush-output-port flush-output-port) - (spec: 0 open-input-bytevector open-input-bytevector) - (spec: 0 error-object? error-object?) - (spec: 0 file-error? file-error?) - (spec: 0 current-second current-second) - (spec: 0 nan? nan?) - (spec: 0 string->vector string->vector) - (spec: 0 open-input-string open-input-string) - (spec: 0 truncate/ truncate/) - (spec: 0 make-bytevector make-bytevector) (spec: 0 vector-for-each vector-for-each) - (spec: 0 write-bytevector write-bytevector) - (spec: 0 balanced/ balanced/) - (spec: 0 round-quotient round-quotient) + (spec: 0 read-line read-line) + (spec: 0 round-remainder round-remainder) + (spec: 0 string-upcase string-upcase) + (spec: 0 features features) + (spec: 0 boolean=? boolean=?) + (spec: 0 output-port-open? output-port-open?) + (spec: 0 read-error? read-error?) + (spec: 0 open-input-string open-input-string) + (spec: 0 nan? nan?) + (spec: 0 bytevector? bytevector?) + (spec: 0 digit-value digit-value) + (spec: 0 char-foldcase char-foldcase) + (spec: 0 inexact inexact) + (spec: 0 open-output-bytevector open-output-bytevector) + (spec: 0 exit exit) + (spec: 0 read-string read-string) + (spec: 0 round/ round/) + (spec: 0 get-output-bytevector get-output-bytevector) + (spec: 0 string-copy! string-copy!) (spec: 0 symbol=? symbol=?) + (spec: 0 vector->string vector->string) + (spec: 0 read-u8 read-u8) + (spec: 0 balanced/ balanced/) + (spec: 0 error-object? error-object?) + (spec: 0 truncate/ truncate/) + (spec: 0 floor-remainder floor-remainder) + (spec: 0 textual-port? textual-port?) (spec: 0 write-string write-string) - (spec: 0 vector-map vector-map) - (spec: 0 make-promise make-promise) + (spec: 0 current-error-port current-error-port) (spec: 0 write-simple write-simple) - (spec: 0 read-error? read-error?) + (spec: 0 round-quotient round-quotient) + (spec: 0 get-environment-variables get-environment-variables) + (spec: 0 current-jiffy current-jiffy) + (spec: 0 balanced-quotient balanced-quotient) + (spec: 0 truncate-quotient truncate-quotient) + (spec: 0 square square) + (spec: 0 error-object-irritants error-object-irritants) + (spec: 0 get-environment-variable get-environment-variable) + (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 open-output-string open-output-string) + (spec: 0 bytevector-copy bytevector-copy) + (spec: 0 read-bytevector read-bytevector) + (spec: 0 make-parameter make-parameter) + (spec: 0 write-bytevector write-bytevector) + (spec: 0 string-for-each string-for-each) + (spec: 0 string->vector string->vector) (spec: 0 floor/ floor/) - (spec: 0 get-output-string get-output-string) - (spec: 0 boolean=? boolean=?) - (spec: 0 delete-file delete-file) - (spec: 0 floor-remainder floor-remainder) - (spec: 0 vector->string vector->string) + (spec: 0 bytevector-append bytevector-append) + (spec: 0 write-shared write-shared) + (spec: 0 peek-u8 peek-u8) + (spec: 0 list-copy list-copy) (spec: 0 euclidean-quotient euclidean-quotient) - (spec: 0 string-copy! string-copy!) - (spec: 0 binary-port? binary-port?) - (spec: 0 bytevector-copy bytevector-copy) - (spec: 0 round-remainder round-remainder) - (spec: 0 ceiling-quotient ceiling-quotient) - (spec: 0 output-port-open? output-port-open?) + (spec: 0 open-input-bytevector open-input-bytevector) + (spec: 0 ceiling-remainder ceiling-remainder) (spec: 0 string->utf8 string->utf8) + (spec: 0 bytevector bytevector) (spec: 0 string-foldcase string-foldcase) - (spec: 0 open-output-bytevector open-output-bytevector) - (spec: 0 jiffies-per-second jiffies-per-second) - (spec: 0 utf8->string utf8->string) - (spec: 0 truncate-remainder truncate-remainder) - (spec: 0 close-port close-port) (spec: 0 balanced-remainder balanced-remainder) - (spec: 0 euclidean/ euclidean/) - (spec: 0 input-port-open? input-port-open?) - (spec: 0 open-output-string open-output-string) - (spec: 0 exact-integer? exact-integer?) - (spec: 0 ceiling/ ceiling/) - (spec: 0 list-set! list-set!) - (spec: 0 file-exists? file-exists?) - (spec: 0 balanced-quotient balanced-quotient) - (spec: 0 infinite? infinite?) - (spec: 0 square square) - (spec: 0 truncate-quotient truncate-quotient) - (spec: 0 ceiling-remainder ceiling-remainder) - (spec: 0 string-for-each string-for-each) - (spec: 0 make-parameter make-parameter) - (spec: 0 bytevector? bytevector?) - (spec: 0 textual-port? textual-port?) - (spec: 0 vector-append vector-append) - (spec: 0 read-string read-string) - (spec: 0 vector-copy vector-copy) + (spec: 0 close-port close-port) + (spec: 0 eof-object eof-object) + (spec: 0 exact exact) (spec: 0 floor-quotient floor-quotient) + (spec: 0 read-bytevector! read-bytevector!) + (spec: 0 current-second current-second) + (spec: 0 promise? promise?) + (spec: 0 error-object-message error-object-message) + (spec: 0 file-error? file-error?) + (spec: 0 get-output-string get-output-string) + (spec: 0 make-list make-list) (spec: 0 open-binary-output-file open-binary-output-file) - (spec: 0 write-u8 write-u8) (spec: 0 bytevector-u8-set! bytevector-u8-set!) - (spec: 0 inexact inexact) (spec: 0 finite? finite?) - (spec: 0 read-line read-line) - (spec: 0 digit-value digit-value) - (spec: 0 bytevector-append bytevector-append) - (spec: 0 get-environment-variables get-environment-variables) - (spec: 0 open-binary-input-file open-binary-input-file) + (spec: 0 exact-integer-sqrt exact-integer-sqrt) + (spec: 0 binary-port? binary-port?) + (spec: 0 euclidean-remainder euclidean-remainder) + (spec: 0 string-downcase string-downcase) + (spec: 0 ceiling/ ceiling/) + (spec: 0 string-map string-map) + (spec: 0 input-port-open? input-port-open?) + (spec: 0 bytevector-u8-ref bytevector-u8-ref) + (spec: 0 truncate-remainder truncate-remainder) (spec: 0 u8-ready? u8-ready?) + (spec: 0 utf8->string utf8->string) + (spec: 0 make-bytevector make-bytevector) + (spec: 0 vector-append vector-append) + (spec: 0 vector-map vector-map) + (spec: 0 bytevector-length bytevector-length) + (spec: 0 infinite? infinite?) + (spec: 0 write-u8 write-u8) (spec: 0 command-line command-line) + (spec: 0 file-exists? file-exists?) + (spec: 0 make-promise make-promise) + (spec: 0 ceiling-quotient ceiling-quotient) (spec: 0 vector-copy! vector-copy!) - (spec: 0 call-with-port call-with-port) - (spec: 0 char-foldcase char-foldcase) - (spec: 0 bytevector bytevector) - (spec: 0 string-downcase string-downcase) - (spec: 0 euclidean-remainder euclidean-remainder) - (spec: 0 features features) - (spec: 0 promise? promise?) (spec: 0 bytevector-copy! bytevector-copy!) - (spec: 0 exact-integer-sqrt exact-integer-sqrt) - (spec: 0 round/ round/) - (spec: 0 char>=? char>=?) - (spec: 0 close-output-port close-output-port) - (spec: 0 <= <=) - (spec: 0 inexact->exact inexact->exact) - (spec: 0 rationalize rationalize) + (spec: 0 exact-integer? exact-integer?) + (spec: 0 euclidean/ euclidean/) + (spec: 0 port? port?) + (spec: 0 vector-copy vector-copy) + (spec: 0 jiffies-per-second jiffies-per-second) + (spec: 0 negative? negative?) + (spec: 0 caddr caddr) + (spec: 0 null? null?) + (spec: 0 >= >=) + (spec: 0 set-car! set-car!) + (spec: 0 string<=? string<=?) + (spec: 0 sqrt sqrt) + (spec: 0 vector? vector?) + (spec: 0 even? even?) + (spec: 0 angle angle) + (spec: 0 char-whitespace? char-whitespace?) + (spec: 0 cdar cdar) + (spec: 0 char-lower-case? char-lower-case?) + (spec: 0 boolean? boolean?) (spec: 0 cadddr cadddr) - (spec: 0 tan tan) - (spec: 0 string-ci>? string-ci>?) - (spec: 0 transcript-on transcript-on) - (spec: 0 cddadr cddadr) - (spec: 0 memv memv) - (spec: 0 string string) - (spec: 0 sin sin) + (spec: 0 input-port? input-port?) (spec: 0 > >) (spec: 0 complex? complex?) - (spec: 0 denominator denominator) + (spec: 0 make-string make-string) + (spec: 0 max max) + (spec: 0 string-ci>? string-ci>?) + (spec: 0 transcript-on transcript-on) + (spec: 0 cddar cddar) (spec: 0 caddar caddar) - (spec: 0 force force) - (spec: 0 call-with-values call-with-values) - (spec: 0 abs abs) + (spec: 0 null-environment null-environment) (spec: 0 string-ci>=? string-ci>=?) - (spec: 0 cddaar cddaar) + (spec: 0 lcm lcm) + (spec: 0 list-ref list-ref) + (spec: 0 abs abs) + (spec: 0 string string) (spec: 0 char-upper-case? char-upper-case?) - (spec: 0 cadr cadr) - (spec: 0 car car) - (spec: 0 char-numeric? char-numeric?) - (spec: 0 numerator numerator) + (spec: 0 exact? exact?) + (spec: 0 cadaar cadaar) + (spec: 0 eval eval) + (spec: 0 cdaddr cdaddr) + (spec: 0 cadar cadar) + (spec: 0 = =) + (spec: 0 gcd gcd) + (spec: 0 set-cdr! set-cdr!) + (spec: 0 round round) + (spec: 0 vector-fill! vector-fill!) + (spec: 0 char-upcase char-upcase) + (spec: 0 acos acos) + (spec: 0 cddaar cddaar) + (spec: 0 call-with-values call-with-values) + (spec: 0 interaction-environment interaction-environment) + (spec: 0 current-input-port current-input-port) + (spec: 0 caaaar caaaar) + (spec: 0 string>=? string>=?) + (spec: 0 close-output-port close-output-port) + (spec: 0 imag-part imag-part) + (spec: 0 truncate truncate) + (spec: 0 list->string list->string) + (spec: 0 output-port? output-port?) + (spec: 0 char>=? char>=?) + (spec: 0 list-tail list-tail) (spec: 0 cdddar cdddar) - (spec: 0 open-input-file open-input-file) - (spec: 0 read-char read-char) - (spec: 0 char<=? char<=?) - (spec: 0 cons cons) - (spec: 0 magnitude magnitude) - (spec: 0 exp exp) - (spec: 0 cos cos) - (spec: 0 procedure? procedure?) - (spec: 0 assv assv) - (spec: 0 string-append string-append) - (spec: 0 vector vector) - (spec: 0 caddr caddr) - (spec: 0 real? real?) - (spec: 0 vector? vector?) - (spec: 0 char-lower-case? char-lower-case?) - (spec: 0 even? even?) - (spec: 0 load load) - (spec: 0 cddar cddar) - (spec: 0 number? number?) - (spec: 0 vector-length vector-length) - (spec: 0 asin asin) - (spec: 0 integer->char integer->char) - (spec: 0 caaadr caaadr) - (spec: 0 >= >=) - (spec: 0 inexact? inexact?) + (spec: 0 car car) + (spec: 0 odd? odd?) + (spec: 0 length length) + (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 string->symbol string->symbol) + (spec: 0 not not) (spec: 0 call-with-input-file call-with-input-file) + (spec: 0 - -) + (spec: 0 close-input-port close-input-port) (spec: 0 char-alphabetic? char-alphabetic?) - (spec: 0 set-car! set-car!) - (spec: 0 remainder remainder) - (spec: 0 string<=? string<=?) - (spec: 0 exact->inexact exact->inexact) - (spec: 0 cdddr cdddr) - (spec: 0 log log) (spec: 0 eof-object? eof-object?) + (spec: 0 vector-length vector-length) (spec: 0 char=? char=?) - (spec: 0 positive? positive?) - (spec: 0 list->vector list->vector) - (spec: 0 close-input-port close-input-port) - (spec: 0 - -) - (spec: 0 quotient quotient) - (spec: 0 caaaar caaaar) - (spec: 0 map map) - (spec: 0 current-input-port current-input-port) + (spec: 0 exact->inexact exact->inexact) + (spec: 0 cddr cddr) + (spec: 0 list? list?) + (spec: 0 real? real?) + (spec: 0 string->number string->number) + (spec: 0 string-copy string-copy) (spec: 0 call-with-current-continuation call-with-current-continuation) - (spec: 0 char->integer char->integer) - (spec: 0 rational? rational?) - (spec: 0 string->number string->number) - (spec: 0 display display) - (spec: 0 char-ready? char-ready?) + (spec: 0 denominator denominator) + (spec: 0 transcript-off transcript-off) + (spec: 0 vector->list vector->list) + (spec: 0 + +) + (spec: 0 cos cos) + (spec: 0 cons cons) + (spec: 0 string=? string=?) (spec: 0 string->list string->list) - (spec: 0 cddddr cddddr) - (spec: 0 list list) + (spec: 0 symbol->string symbol->string) (spec: 0 charinteger char->integer) + (spec: 0 inexact->exact inexact->exact) + (spec: 0 cadr cadr) + (spec: 0 symbol? symbol?) + (spec: 0 * *) + (spec: 0 exp exp) + (spec: 0 stringstring number->string) + (spec: 0 real-part real-part) + (spec: 0 vector vector) + (spec: 0 call-with-output-file call-with-output-file) + (spec: 0 string-set! string-set!) + (spec: 0 asin asin) + (spec: 0 sin sin) + (spec: 0 memv memv) + (spec: 0 char-ci>? char-ci>?) + (spec: 0 load load) + (spec: 0 caaadr caaadr) + (spec: 0 cdr cdr) + (spec: 0 integer->char integer->char) (spec: 0 memq memq) - (spec: 0 string-copy string-copy) - (spec: 0 acos acos) - (spec: 0 + +) - (spec: 0 boolean? boolean?) - (spec: 0 transcript-off transcript-off) - (spec: 0 string=? string=?) - (spec: 0 vector->list vector->list) + (spec: 0 write write) + (spec: 0 assoc assoc) + (spec: 0 expt expt) + (spec: 0 char-ci>=? char-ci>=?) + (spec: 0 substring substring) + (spec: 0 equal? equal?) + (spec: 0 zero? zero?) + (spec: 0 caaddr caaddr) + (spec: 0 number? number?) + (spec: 0 cdaadr cdaadr) + (spec: 0 read read) + (spec: 0 current-output-port current-output-port) + (spec: 0 string? string?) + (spec: 0 string-ref string-ref) + (spec: 0 char-ci=? char-ci=?) + (spec: 0 string-fill! string-fill!) + (spec: 0 char? char?) + (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 cdddr cdddr) + (spec: 0 force force) + (spec: 0 inexact? inexact?) + (spec: 0 string>? string>?) + (spec: 0 make-polar make-polar) + (spec: 0 scheme-report-environment scheme-report-environment) (spec: 0 for-each for-each) (spec: 0 char-ci? char>?) - (spec: 0 make-polar make-polar) - (spec: 0 set-cdr! set-cdr!) - (spec: 0 = =) - (spec: 0 current-output-port current-output-port) - (spec: 0 char-ci<=? char-ci<=?) + (spec: 0 display display) + (spec: 0 peek-char peek-char) + (spec: 0 quotient quotient) + (spec: 0 dynamic-wind dynamic-wind) + (spec: 0 rational? rational?) (spec: 0 string-ci=? string-ci=?) - (spec: 0 truncate truncate) - (spec: 0 cddr cddr) + (spec: 0 <= <=) + (spec: 0 assq assq) (spec: 0 pair? pair?) (spec: 0 with-output-to-file with-output-to-file) - (spec: 0 assq assq) - (spec: 0 symbol? symbol?) (spec: 0 caadr caadr) - (spec: 0 string>=? string>=?) - (spec: 0 open-output-file open-output-file) - (spec: 0 char-ci>=? char-ci>=?) - (spec: 0 negative? negative?) - (spec: 0 cdaaar cdaaar) - (spec: 0 equal? equal?) - (spec: 0 write write) - (spec: 0 max max) - (spec: 0 list-ref list-ref) - (spec: 0 expt expt) - (spec: 0 assoc assoc) - (spec: 0 eval eval) - (spec: 0 caaddr caaddr) - (spec: 0 make-string make-string) - (spec: 0 char-ci=? char-ci=?) - (spec: 0 lcm lcm) - (spec: 0 newline newline) - (spec: 0 real-part real-part) - (spec: 0 null-environment null-environment) - (spec: 0 ceiling ceiling) - (spec: 0 char? char?) - (spec: 0 exact? exact?) - (spec: 0 min min) - (spec: 0 string-fill! string-fill!) - (spec: 0 string-ref string-ref) - (spec: 0 vector-ref vector-ref) - (spec: 0 string? string?) - (spec: 0 with-input-from-file with-input-from-file) + (spec: 0 integer? integer?) (spec: 0 cdaar cdaar) - (spec: 0 odd? odd?) - (spec: 0 eqv? eqv?) - (spec: 0 append append) - (spec: 0 make-rectangular make-rectangular) - (spec: 0 * *) - (spec: 0 modulo modulo) - (spec: 0 make-vector make-vector) - (spec: 0 stringstring symbol->string) - (spec: 0 call-with-output-file call-with-output-file) - (spec: 0 char-ci>? char-ci>?) - (spec: 0 null? null?) - (spec: 0 cdaadr cdaadr) - (spec: 0 sqrt sqrt) - (spec: 0 char-whitespace? char-whitespace?) - (spec: 0 angle angle) - (spec: 0 member member) - (spec: 0 vector-set! vector-set!) - (spec: 0 string-set! string-set!) - (spec: 0 cadaar cadaar) - (spec: 0 not not) - (spec: 0 list? list?) - (spec: 0 cdaddr cdaddr) + (spec: 0 numerator numerator) + (spec: 0 open-input-file open-input-file) + (spec: 0 min min) + (spec: 0 newline newline) + (spec: 0 tan tan) + (spec: 0 < <) + (spec: 0 log log) + (spec: 0 atan atan) + (spec: 0 map map) (spec: 0 string-cistring number->string) - (spec: 0 reverse reverse) - (spec: 0 interaction-environment interaction-environment) + (spec: 0 read-char read-char) + (spec: 0 write-char write-char) + (spec: 0 / /) + (spec: 0 modulo modulo) (spec: 0 char-downcase char-downcase) - (spec: 0 cdadar cdadar) - (spec: 0 floor floor) + (spec: 0 list->vector list->vector) + (spec: 0 list list) (spec: 0 string-ci<=? string-ci<=?) - (spec: 0 string-length string-length) - (spec: 0 substring substring) - (spec: 0 zero? zero?) - (spec: 0 write-char write-char) - (spec: 0 input-port? input-port?) (spec: 0 caadar caadar) - (spec: 0 / /) - (spec: 0 integer? integer?) - (spec: 0 cadar cadar) - (spec: 0 read read) - (spec: 0 peek-char peek-char) - (spec: 0 cdar cdar) - (spec: 0 gcd gcd) - (spec: 0 apply apply) - (spec: 0 char-upcase char-upcase) - (spec: 0 list->string list->string) - (spec: 0 string->symbol string->symbol) - (spec: 0 vector-fill! vector-fill!) - (spec: 0 caaar caaar) - (spec: 0 scheme-report-environment scheme-report-environment) - (spec: 0 string>? string>?) - (spec: 0 cadadr cadadr) - (spec: 0 length length) - (spec: 0 list-tail list-tail) - (spec: 0 cdadr cdadr) - (spec: 0 output-port? output-port?) + (spec: 0 string-length string-length) + (spec: 0 cdaaar cdaaar) + (spec: 0 remainder remainder) + (spec: 0 reverse reverse) + (spec: 0 rationalize rationalize) + (spec: 0 string-append string-append) + (spec: 0 make-vector make-vector) + (spec: 0 assv assv) + (spec: 0 make-rectangular make-rectangular) + (spec: 0 procedure? procedure?) + (spec: 0 vector-ref vector-ref) + (spec: 0 eqv? eqv?) + (spec: 0 caar caar) + (spec: 0 cdadar cdadar) + (spec: 0 RuntimeAliases RuntimeAliases) (spec: 0 R5RSRuntime R5RSRuntime) - (spec: 0 GambitRuntime GambitRuntime) (spec: 0 R7RSRuntime R7RSRuntime) (spec: 0 Runtime Runtime) - (spec: 0 RuntimeAliases RuntimeAliases) + (spec: 0 GambitRuntime GambitRuntime) (spec: 0 GerbilRuntime GerbilRuntime) (spec: 0 %%app-dotted %%app) (spec: 0 %%ref-dotted %%ref) @@ -3346,3070 +3348,3073 @@ namespace: gerbil/core (spec: 0 defstruct/c defstruct) (spec: 0 do/c do) (spec: 0 do-while/c do-while) - (spec: 1 identifier-rules identifier-rules) (spec: 1 quasisyntax quasisyntax) - (spec: 1 ¯o-object-macro ¯o-object-macro) - (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) - (spec: 1 macro-object-macro-set! macro-object-macro-set!) - (spec: 1 macro-object::t macro-object::t) + (spec: 1 identifier-rules identifier-rules) (spec: 1 make-macro-object make-macro-object) - (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 macro-object-macro-set! macro-object-macro-set!) (spec: 1 macro-object macro-object) - (spec: 1 macro-object? macro-object?) + (spec: 1 ¯o-object-macro-set! ¯o-object-macro-set!) + (spec: 1 macro-object-macro macro-object-macro) + (spec: 1 macro-object::t macro-object::t) (spec: 1 macro-object::apply-macro-expander macro-object::apply-macro-expander) + (spec: 1 macro-object? macro-object?) + (spec: 1 ¯o-object-macro ¯o-object-macro) (spec: 1 with-syntax* with-syntax*) - (spec: 1 with-syntax with-syntax) (spec: 1 syntax/loc syntax/loc) (spec: 1 syntax-rules syntax-rules) + (spec: 1 with-syntax with-syntax) (spec: 1 syntax syntax) (spec: 1 syntax-case syntax-case) - (spec: 1 free-identifier=? free-identifier=?) - (spec: 1 module-context? module-context?) - (spec: 1 current-expander-marks current-expander-marks) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 stx-keyword? stx-keyword?) - (spec: 1 expander-e expander-e) - (spec: 1 syntax-binding? syntax-binding?) - (spec: 1 top-context? top-context?) - (spec: 1 stx-identifier stx-identifier) - (spec: 1 core-quote-syntax core-quote-syntax) - (spec: 1 user-expander-phi user-expander-phi) - (spec: 1 module-import-source module-import-source) - (spec: 1 module-import-weak? module-import-weak?) - (spec: 1 stx-for-each stx-for-each) - (spec: 1 stx-string? stx-string?) - (spec: 1 current-expander-phi current-expander-phi) - (spec: 1 module-export-weak? module-export-weak?) - (spec: 1 core-resolve-module-export core-resolve-module-export) - (spec: 1 module-context-export module-context-export) - (spec: 1 datum->syntax datum->syntax) - (spec: 1 top-binding? top-binding?) - (spec: 1 stx-cdr stx-cdr) - (spec: 1 syntax-local-rewrap syntax-local-rewrap) - (spec: 1 local-context? local-context?) - (spec: 1 syntax-pattern-id syntax-pattern-id) - (spec: 1 core-expand-import-source core-expand-import-source) - (spec: 1 import-set-source import-set-source) - (spec: 1 core-expand core-expand) - (spec: 1 export-set-source export-set-source) - (spec: 1 stx-last-pair stx-last-pair) - (spec: 1 import-module import-module) - (spec: 1 syntax-binding-e syntax-binding-e) - (spec: 1 module-context-code module-context-code) - (spec: 1 stx-plist? stx-plist?) - (spec: 1 syntax->datum syntax->datum) - (spec: 1 stx-andmap stx-andmap) - (spec: 1 expander-context-id expander-context-id) - (spec: 1 stx-car stx-car) - (spec: 1 stx-equal? stx-equal?) - (spec: 1 stx-fixnum? stx-fixnum?) - (spec: 1 macro-expand-syntax macro-expand-syntax) - (spec: 1 stx-foldr stx-foldr) - (spec: 1 raise-syntax-error raise-syntax-error) - (spec: 1 underscore? underscore?) - (spec: 1 expander-binding? expander-binding?) - (spec: 1 stx-boolean? stx-boolean?) - (spec: 1 stx-last stx-last) - (spec: 1 module-export-phi module-export-phi) - (spec: 1 make-module-export make-module-export) - (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) - (spec: 1 stx-datum? stx-datum?) - (spec: 1 alias-binding-e alias-binding-e) - (spec: 1 resolve-identifier resolve-identifier) - (spec: 1 binding-id binding-id) - (spec: 1 ellipsis? ellipsis?) + (spec: 1 binding? binding?) (spec: 1 expander-binding-e expander-binding-e) - (spec: 1 import-export-expander? import-export-expander?) - (spec: 1 core-identifier=? core-identifier=?) - (spec: 1 module-import-phi module-import-phi) + (spec: 1 expander-binding? expander-binding?) + (spec: 1 stx-source stx-source) + (spec: 1 eval-syntax eval-syntax) + (spec: 1 stx-list-tail stx-list-tail) + (spec: 1 syntax-pattern-depth syntax-pattern-depth) (spec: 1 eval-module eval-module) - (spec: 1 bound-identifier=? bound-identifier=?) + (spec: + 1 + core-resolve-library-module-path + core-resolve-library-module-path) + (spec: 1 core-expand core-expand) + (spec: 1 syntax-local-introduce syntax-local-introduce) + (spec: 1 binding-id binding-id) (spec: 1 syntax-pattern? syntax-pattern?) + (spec: 1 stx-null? stx-null?) + (spec: 1 syntax-binding? syntax-binding?) + (spec: 1 import-export-expander? import-export-expander?) + (spec: 1 stx-foldr stx-foldr) + (spec: 1 module-export-weak? module-export-weak?) (spec: 1 check-duplicate-identifiers check-duplicate-identifiers) - (spec: 1 user-expander-context user-expander-context) - (spec: 1 core-identifier-key core-identifier-key) - (spec: 1 stx-vector? stx-vector?) - (spec: 1 make-import-export-expander make-import-export-expander) - (spec: 1 stx-source stx-source) - (spec: 1 module-binding? module-binding?) + (spec: 1 stx-number? stx-number?) + (spec: 1 make-export-expander make-export-expander) + (spec: 1 module-export-key module-export-key) + (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 prelude-context? prelude-context?) + (spec: 1 module-import-phi module-import-phi) + (spec: 1 stx-foldl stx-foldl) + (spec: 1 syntax->datum syntax->datum) + (spec: 1 current-expander-marks current-expander-marks) + (spec: 1 import-set-source import-set-source) + (spec: 1 stx-length stx-length) (spec: 1 make-module-import make-module-import) - (spec: 1 stx-false? stx-false?) - (spec: 1 alias-binding? alias-binding?) - (spec: 1 runtime-binding? runtime-binding?) - (spec: 1 import-set? import-set?) - (spec: 1 identifier-list? identifier-list?) - (spec: 1 stx-map stx-map) - (spec: 1 import-binding? import-binding?) - (spec: 1 current-module-reader-args current-module-reader-args) - (spec: 1 syntax-local-e syntax-local-e) + (spec: 1 stx-equal? stx-equal?) + (spec: 1 stx-cdr stx-cdr) + (spec: 1 make-local-context make-local-context) + (spec: 1 module-context-ns module-context-ns) + (spec: 1 user-expander? user-expander?) + (spec: 1 underscore? underscore?) + (spec: 1 stx-vector? stx-vector?) + (spec: 1 stx-wrap-source stx-wrap-source) + (spec: 1 module-import? module-import?) + (spec: 1 stx-reverse stx-reverse) (spec: 1 current-expander-compiling? current-expander-compiling?) - (spec: 1 feature-expander? feature-expander?) - (spec: 1 stx-ormap stx-ormap) - (spec: 1 syntax-e syntax-e) - (spec: 1 stx-e stx-e) - (spec: 1 export-expander? export-expander?) - (spec: 1 module-export-name module-export-name) - (spec: 1 core-expand-export-source core-expand-export-source) - (spec: 1 stx-char? stx-char?) - (spec: 1 stx-eqv? stx-eqv?) + (spec: 1 core-resolve-identifier core-resolve-identifier) (spec: 1 module-export? module-export?) - (spec: 1 core-module-export->import core-module-export->import) - (spec: 1 make-local-context make-local-context) - (spec: 1 syntax-split-splice syntax-split-splice) + (spec: 1 stx-keyword? stx-keyword?) + (spec: 1 core-apply-expander core-apply-expander) + (spec: 1 expander-context-id expander-context-id) + (spec: 1 core-resolve-module-path core-resolve-module-path) + (spec: 1 export-set-phi export-set-phi) + (spec: 1 syntax->list syntax->list) + (spec: 1 macro-expand-syntax macro-expand-syntax) + (spec: 1 export-set-exports export-set-exports) (spec: 1 make-user-expander make-user-expander) - (spec: 1 genident genident) + (spec: 1 stx-last stx-last) + (spec: 1 stx-pair? stx-pair?) + (spec: 1 stx-fixnum? stx-fixnum?) + (spec: 1 stx-for-each stx-for-each) + (spec: 1 stx-plist? stx-plist?) + (spec: 1 current-expander-path current-expander-path) + (spec: 1 core-expand-head core-expand-head) (spec: 1 core-expand-expression+1 core-expand-expression+1) + (spec: 1 ellipsis? ellipsis?) + (spec: 1 expander? expander?) + (spec: 1 core-expand-export-source core-expand-export-source) + (spec: 1 core-module-export->import core-module-export->import) + (spec: 1 stx-pair/null? stx-pair/null?) + (spec: 1 stx-false? stx-false?) + (spec: 1 current-compilation-target current-compilation-target) + (spec: 1 alias-binding? alias-binding?) (spec: 1 gentemps gentemps) - (spec: 1 stx-list-ref stx-list-ref) - (spec: 1 make-export-expander make-export-expander) - (spec: 1 syntax-local-introduce syntax-local-introduce) - (spec: 1 module-import? module-import?) - (spec: 1 current-expander-context current-expander-context) - (spec: 1 stx-length stx-length) - (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 make-import-expander make-import-expander) + (spec: 1 stx-ormap stx-ormap) + (spec: 1 import-module import-module) + (spec: 1 current-module-reader-args current-module-reader-args) (spec: 1 core-context-top core-context-top) - (spec: 1 syntax->list syntax->list) - (spec: - 1 - core-resolve-library-module-path - core-resolve-library-module-path) (spec: 1 stx-box? stx-box?) - (spec: 1 stx-number? stx-number?) - (spec: 1 stx-null? stx-null?) - (spec: 1 core-resolve-identifier core-resolve-identifier) - (spec: 1 binding? binding?) - (spec: 1 stx-reverse stx-reverse) - (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 syntax-local-pattern? syntax-local-pattern?) (spec: 1 core-library-module-path? core-library-module-path?) - (spec: 1 expander? expander?) - (spec: 1 user-expander? user-expander?) - (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) - (spec: 1 make-import-expander make-import-expander) - (spec: 1 module-import-name module-import-name) - (spec: 1 core-apply-expander core-apply-expander) - (spec: 1 stx-pair? stx-pair?) + (spec: 1 core-resolve-module-export core-resolve-module-export) + (spec: 1 module-context? module-context?) + (spec: 1 stx-map stx-map) + (spec: 1 syntax-local-e syntax-local-e) (spec: 1 identifier? identifier?) - (spec: 1 syntax-local-value syntax-local-value) - (spec: 1 export-set-phi export-set-phi) + (spec: 1 module-import-name module-import-name) + (spec: 1 stx-char? stx-char?) + (spec: 1 import-binding? import-binding?) + (spec: 1 current-module-reader-path current-module-reader-path) + (spec: 1 syntax-local-unwrap syntax-local-unwrap) + (spec: 1 module-context-code module-context-code) + (spec: 1 stx-identifier stx-identifier) + (spec: 1 module-import-source module-import-source) + (spec: 1 module-export-phi module-export-phi) + (spec: 1 local-context? local-context?) + (spec: 1 extern-binding? extern-binding?) + (spec: 1 current-expander-phi current-expander-phi) + (spec: 1 module-context-import module-context-import) + (spec: 1 stx-last-pair stx-last-pair) + (spec: 1 top-context? top-context?) + (spec: 1 stx-boolean? stx-boolean?) + (spec: 1 module-binding? module-binding?) + (spec: 1 alias-binding-e alias-binding-e) + (spec: 1 feature-expander? feature-expander?) + (spec: 1 user-expander-context user-expander-context) (spec: 1 import-set-phi import-set-phi) + (spec: 1 syntax-pattern-id syntax-pattern-id) + (spec: 1 core-quote-syntax core-quote-syntax) + (spec: 1 syntax-local-rewrap syntax-local-rewrap) + (spec: 1 genident genident) + (spec: 1 stx-car stx-car) + (spec: 1 current-expander-context current-expander-context) + (spec: 1 core-identifier-key core-identifier-key) + (spec: 1 syntax-binding-e syntax-binding-e) + (spec: 1 stx-eq? stx-eq?) + (spec: 1 syntax-local-value syntax-local-value) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 make-syntax-pattern make-syntax-pattern) + (spec: 1 resolve-identifier resolve-identifier) + (spec: 1 user-expander-phi user-expander-phi) + (spec: 1 datum->syntax datum->syntax) + (spec: 1 module-import-weak? module-import-weak?) + (spec: 1 module-export-context module-export-context) + (spec: 1 expander-e expander-e) + (spec: 1 bound-identifier=? bound-identifier=?) + (spec: 1 export-expander? export-expander?) + (spec: 1 stx-e stx-e) (spec: 1 export-set? export-set?) - (spec: 1 export-set-exports export-set-exports) - (spec: 1 eval-syntax eval-syntax) - (spec: 1 stx-foldl stx-foldl) - (spec: 1 prelude-context? prelude-context?) - (spec: 1 stx-pair/null? stx-pair/null?) - (spec: 1 stx-list? stx-list?) - (spec: 1 stx-getq stx-getq) - (spec: 1 module-context-ns module-context-ns) - (spec: 1 core-resolve-module-path core-resolve-module-path) - (spec: 1 syntax-pattern-depth syntax-pattern-depth) + (spec: 1 syntax-e syntax-e) + (spec: 1 free-identifier=? free-identifier=?) (spec: 1 import-binding-e import-binding-e) - (spec: 1 import-expander? import-expander?) - (spec: 1 stx-list-tail stx-list-tail) - (spec: 1 current-expander-path current-expander-path) - (spec: 1 syntax-local-pattern? syntax-local-pattern?) - (spec: 1 module-export-context module-export-context) - (spec: 1 module-export-key module-export-key) - (spec: 1 extern-binding? extern-binding?) + (spec: 1 runtime-binding? runtime-binding?) + (spec: 1 top-binding? top-binding?) + (spec: 1 syntax-check-splice-targets syntax-check-splice-targets) (spec: 1 import-set-imports import-set-imports) - (spec: 1 stx-wrap-source stx-wrap-source) - (spec: 1 module-context-import module-context-import) - (spec: 1 core-expand-head core-expand-head) - (spec: 1 syntax-local-unwrap syntax-local-unwrap) - (spec: 1 stx-eq? stx-eq?) - (spec: 1 SyntaxCase SyntaxCase) - (spec: 1 ExpanderRuntime ExpanderRuntime) - (spec: 1 SyntaxSugar SyntaxSugar) - (spec: 2 !class-precedence-list !class-precedence-list) - (spec: 2 type-env-var-set! type-env-var-set!) - (spec: 2 type-env-checked?-set! type-env-checked?-set!) - (spec: 2 &type-env-super &type-env-super) - (spec: 2 &type-env-type &type-env-type) - (spec: 2 &type-env-var-set! &type-env-var-set!) - (spec: 2 type-env-checked? type-env-checked?) - (spec: 2 type-env-super type-env-super) - (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) - (spec: 2 &type-env-checked? &type-env-checked?) - (spec: 2 &type-env-var &type-env-var) - (spec: 2 type-env? type-env?) - (spec: 2 &type-env-type-set! &type-env-type-set!) - (spec: 2 type-env::t type-env::t) - (spec: 2 type-env-type type-env-type) + (spec: 1 raise-syntax-error raise-syntax-error) + (spec: 1 stx-andmap stx-andmap) + (spec: 1 stx-datum? stx-datum?) + (spec: 1 make-import-export-expander make-import-export-expander) + (spec: 1 module-export-name module-export-name) + (spec: 1 stx-getq stx-getq) + (spec: 1 import-expander? import-expander?) + (spec: 1 stx-eqv? stx-eqv?) + (spec: 1 stx-list-ref stx-list-ref) + (spec: 1 stx-list? stx-list?) + (spec: 1 import-set? import-set?) + (spec: 1 export-set-source export-set-source) + (spec: 1 core-expand-import-source core-expand-import-source) + (spec: 1 stx-string? stx-string?) + (spec: 1 macro-expand-syntax-case macro-expand-syntax-case) + (spec: 1 make-module-export make-module-export) + (spec: 1 core-identifier=? core-identifier=?) + (spec: 1 module-context-export module-context-export) + (spec: 1 identifier-list? identifier-list?) + (spec: 1 SyntaxCase SyntaxCase) + (spec: 1 ExpanderRuntime ExpanderRuntime) + (spec: 1 SyntaxSugar SyntaxSugar) + (spec: 2 !class-precedence-list !class-precedence-list) (spec: 2 type-env-var type-env-var) - (spec: 2 current-type-env current-type-env) - (spec: 2 type-env-lookup type-env-lookup) (spec: 2 type-env type-env) + (spec: 2 type-env? type-env?) + (spec: 2 type-env-var-set! type-env-var-set!) + (spec: 2 &type-env-type &type-env-type) + (spec: 2 type-env-lookup type-env-lookup) + (spec: 2 type-env-checked? type-env-checked?) + (spec: 2 &type-env-var &type-env-var) + (spec: 2 &type-env-var-set! &type-env-var-set!) (spec: 2 type-env-super-set! type-env-super-set!) + (spec: 2 &type-env-checked?-set! &type-env-checked?-set!) (spec: 2 make-type-env make-type-env) - (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 current-type-env current-type-env) + (spec: 2 type-env-type type-env-type) + (spec: 2 type-env::t type-env::t) + (spec: 2 &type-env-checked? &type-env-checked?) + (spec: 2 &type-env-type-set! &type-env-type-set!) (spec: 2 &type-env-super-set! &type-env-super-set!) + (spec: 2 &type-env-super &type-env-super) + (spec: 2 type-env-checked?-set! type-env-checked?-set!) + (spec: 2 type-env-type-set! type-env-type-set!) + (spec: 2 type-env-super type-env-super) (spec: 2 - interface-info-instance-satisfies-predicate-set! - interface-info-instance-satisfies-predicate-set!) - (spec: - 2 - interface-info-instance-satisfies-predicate - interface-info-instance-satisfies-predicate) - (spec: - 2 - &interface-info-instance-predicate-set! - &interface-info-instance-predicate-set!) + &interface-info-implementation-methods-set! + &interface-info-implementation-methods-set!) (spec: 2 - &interface-info-instance-satisfies-predicate-set! - &interface-info-instance-satisfies-predicate-set!) + &interface-info-interface-mixin + &interface-info-interface-mixin) (spec: 2 - interface-info-instance-try-constructor-set! - interface-info-instance-try-constructor-set!) + interface-info-instance-satisfies-predicate + interface-info-instance-satisfies-predicate) (spec: 2 - &interface-info-unchecked-implementation-methods-set! - &interface-info-unchecked-implementation-methods-set!) + &interface-info-interface-methods + &interface-info-interface-methods) (spec: 2 - &interface-info-instance-type-set! - &interface-info-instance-type-set!) + interface-info-instance-predicate-set! + interface-info-instance-predicate-set!) (spec: 2 - &interface-info-implementation-methods-set! - &interface-info-implementation-methods-set!) + &interface-info-unchecked-implementation-methods + &interface-info-unchecked-implementation-methods) (spec: 2 - interface-info-instance-constructor-set! - interface-info-instance-constructor-set!) + &interface-info-instance-try-constructor + &interface-info-instance-try-constructor) + (spec: 2 interface-info interface-info) (spec: 2 interface-info-instance-predicate interface-info-instance-predicate) + (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + (spec: 2 interface-info::t interface-info::t) (spec: 2 - &interface-info-interface-descriptor-set! - &interface-info-interface-descriptor-set!) + interface-info-implementation-methods + interface-info-implementation-methods) (spec: 2 - interface-info-instance-predicate-set! - interface-info-instance-predicate-set!) - (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) + interface-info-interface-descriptor + interface-info-interface-descriptor) (spec: 2 - &interface-info-instance-predicate - &interface-info-instance-predicate) + interface-info-interface-methods + interface-info-interface-methods) (spec: 2 - &interface-info-implementation-methods - &interface-info-implementation-methods) + &interface-info-instance-satisfies-predicate + &interface-info-instance-satisfies-predicate) (spec: 2 - &interface-info-instance-constructor-set! - &interface-info-instance-constructor-set!) + &interface-info-implementation-methods + &interface-info-implementation-methods) (spec: 2 - interface-info::apply-macro-expander - interface-info::apply-macro-expander) + interface-info-instance-try-constructor + interface-info-instance-try-constructor) (spec: 2 - interface-info-unchecked-implementation-methods - interface-info-unchecked-implementation-methods) + interface-info-instance-satisfies-predicate-set! + interface-info-instance-satisfies-predicate-set!) (spec: 2 interface-info-instance-type-set! interface-info-instance-type-set!) + (spec: 2 make-interface-info make-interface-info) + (spec: 2 interface-info? interface-info?) (spec: 2 - &interface-info-interface-methods - &interface-info-interface-methods) - (spec: - 2 - &interface-info-instance-constructor - &interface-info-instance-constructor) - (spec: 2 &interface-info-name-set! &interface-info-name-set!) + interface-info-unchecked-implementation-methods + interface-info-unchecked-implementation-methods) + (spec: 2 interface-info-name-set! interface-info-name-set!) (spec: 2 &interface-info-instance-try-constructor-set! &interface-info-instance-try-constructor-set!) - (spec: 2 &interface-info-name &interface-info-name) (spec: 2 - interface-info-interface-methods - interface-info-interface-methods) - (spec: 2 interface-info? interface-info?) + interface-info-unchecked-implementation-methods-set! + interface-info-unchecked-implementation-methods-set!) (spec: 2 - &interface-info-instance-satisfies-predicate - &interface-info-instance-satisfies-predicate) + interface-info::apply-macro-expander + interface-info::apply-macro-expander) (spec: 2 - &interface-info-interface-mixin - &interface-info-interface-mixin) - (spec: 2 interface-info-flatten-mixin interface-info-flatten-mixin) + interface-info-instance-constructor + interface-info-instance-constructor) (spec: 2 - &interface-info-interface-mixin-set! - &interface-info-interface-mixin-set!) + &interface-info-instance-constructor-set! + &interface-info-instance-constructor-set!) (spec: 2 - interface-info-interface-mixin - interface-info-interface-mixin) + &interface-info-unchecked-implementation-methods-set! + &interface-info-unchecked-implementation-methods-set!) (spec: 2 - interface-info-unchecked-implementation-methods-set! - interface-info-unchecked-implementation-methods-set!) + interface-info-implementation-methods-set! + interface-info-implementation-methods-set!) + (spec: 2 interface-info-name interface-info-name) (spec: 2 - interface-info-interface-descriptor-set! - interface-info-interface-descriptor-set!) + &interface-info-instance-predicate-set! + &interface-info-instance-predicate-set!) + (spec: 2 syntax-local-interface-info? syntax-local-interface-info?) (spec: 2 - interface-info-instance-try-constructor - interface-info-instance-try-constructor) + interface-info-instance-try-constructor-set! + interface-info-instance-try-constructor-set!) + (spec: + 2 + &interface-info-interface-mixin-set! + &interface-info-interface-mixin-set!) (spec: 2 interface-info-interface-methods-set! interface-info-interface-methods-set!) - (spec: 2 interface-info-instance-type interface-info-instance-type) - (spec: 2 interface-info-name-set! interface-info-name-set!) - (spec: 2 interface-info::t interface-info::t) (spec: 2 - interface-info-implementation-methods - interface-info-implementation-methods) - (spec: 2 interface-info-name interface-info-name) + &interface-info-interface-descriptor-set! + &interface-info-interface-descriptor-set!) (spec: 2 - interface-info-implementation-methods-set! - interface-info-implementation-methods-set!) + &interface-info-instance-satisfies-predicate-set! + &interface-info-instance-satisfies-predicate-set!) (spec: 2 - &interface-info-instance-try-constructor - &interface-info-instance-try-constructor) - (spec: 2 interface-info interface-info) + interface-info-instance-constructor-set! + interface-info-instance-constructor-set!) + (spec: 2 &interface-info-name-set! &interface-info-name-set!) (spec: 2 - interface-info-interface-mixin-set! - interface-info-interface-mixin-set!) + &interface-info-instance-type-set! + &interface-info-instance-type-set!) + (spec: 2 interface-info-instance-type interface-info-instance-type) + (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 &interface-info-interface-methods-set! &interface-info-interface-methods-set!) - (spec: 2 make-interface-info make-interface-info) - (spec: - 2 - &interface-info-unchecked-implementation-methods - &interface-info-unchecked-implementation-methods) - (spec: 2 &interface-info-instance-type &interface-info-instance-type) (spec: 2 &interface-info-interface-descriptor &interface-info-interface-descriptor) (spec: 2 - interface-info-instance-constructor - interface-info-instance-constructor) + &interface-info-instance-constructor + &interface-info-instance-constructor) (spec: 2 - interface-info-interface-descriptor - interface-info-interface-descriptor) + interface-info-interface-descriptor-set! + interface-info-interface-descriptor-set!) + (spec: 2 &interface-info-name &interface-info-name) + (spec: + 2 + interface-info-interface-mixin + interface-info-interface-mixin) + (spec: + 2 + interface-info-interface-mixin-set! + interface-info-interface-mixin-set!) + (spec: + 2 + &interface-info-instance-predicate + &interface-info-instance-predicate) (spec: 2 is-signature? is-signature?) + (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 defmutable* defmutable*) + (spec: 1 do-loop-result do-loop-result) + (spec: 1 do-while/c do-while/c) + (spec: 1 case-lambda/c case-lambda/c) + (spec: 1 let/c let/c) (spec: 1 lambda/c lambda/c) - (spec: 1 @method @method) - (spec: 1 with-procedure-signature with-procedure-signature) - (spec: 1 def*/c def*/c) + (spec: 1 defmethod/c defmethod/c) (spec: 1 defstruct/c defstruct/c) + (spec: 1 @method @method) (spec: 1 do/c do/c) - (spec: 1 do-loop-result do-loop-result) (spec: 1 do-loop-step do-loop-step) (spec: 1 defclass/c defclass/c) - (spec: 1 defmutable* defmutable*) (spec: 1 defmutable defmutable) - (spec: 1 with-procedure-contract with-procedure-contract) + (spec: 1 with-receiver with-receiver) + (spec: 1 def*/c def*/c) (spec: 1 with-procedure-unchecked-contract with-procedure-unchecked-contract) - (spec: 1 case-lambda/c case-lambda/c) - (spec: 1 with-receiver with-receiver) - (spec: 1 let/c let/c) - (spec: 1 do-while/c do-while/c) - (spec: 1 defmethod/c defmethod/c) (spec: 1 def/c def/c) - (spec: 2 check-signature! check-signature!) - (spec: 2 compatible-type-contract? compatible-type-contract?) - (spec: 2 check-signature-spec! check-signature-spec!) - (spec: 2 make-procedure-contract make-procedure-contract) + (spec: 1 with-procedure-signature with-procedure-signature) + (spec: 2 check-valid-type! check-valid-type!) + (spec: 2 signature-keywords signature-keywords) (spec: 2 signature-contract? signature-contract?) - (spec: 2 keywordidentifier resolve-type->identifier) + (spec: 2 type-reference? type-reference?) (spec: 2 make-type-reference make-type-reference) - (spec: 2 &type-reference-identifier &type-reference-identifier) (spec: 2 &type-reference-identifier-set! &type-reference-identifier-set!) + (spec: 2 type-identifier? type-identifier?) (spec: 2 resolve-type resolve-type) + (spec: 2 type-reference::t type-reference::t) (spec: 2 type-reference-identifier type-reference-identifier) - (spec: 2 type-reference? type-reference?) - (spec: 2 resolve-type->identifier resolve-type->identifier) + (spec: 2 type-reference type-reference) (spec: 2 type-reference-identifier-set! type-reference-identifier-set!) - (spec: 2 type-reference type-reference) + (spec: 2 &type-reference-identifier &type-reference-identifier) (spec: 2 resolve-type->type-descriptor resolve-type->type-descriptor) - (spec: 2 type-identifier? type-identifier?) (spec: 1 deftype deftype) - (spec: 1 TypeReference TypeReference) - (spec: 1 TypedDefinitions TypedDefinitions) - (spec: 1 ClassMeta ClassMeta) (spec: 1 InterfaceInfo InterfaceInfo) + (spec: 1 TypeEnv TypeEnv) + (spec: 1 TypeReference TypeReference) + (spec: 1 Using Using) (spec: 1 TypeCast TypeCast) + (spec: 1 ClassMeta ClassMeta) (spec: 1 Interface Interface) (spec: 1 ContractRules ContractRules) - (spec: 1 TypeEnv TypeEnv) - (spec: 1 Using Using) - (spec: 2 make-setq-macro make-setq-macro) - (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) - (spec: 2 setf-macro? setf-macro?) - (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 1 TypedDefinitions TypedDefinitions) (spec: 2 setq-macro-macro setq-macro-macro) - (spec: 2 &setf-macro-macro &setf-macro-macro) - (spec: 2 setf-macro::t setf-macro::t) - (spec: 2 setq-macro::t setq-macro::t) - (spec: 2 &setq-macro-macro &setq-macro-macro) (spec: 2 setq-macro setq-macro) - (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 2 setf-macro? setf-macro?) + (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 2 setq-macro::t setq-macro::t) (spec: 2 &setq-macro-macro-set! &setq-macro-macro-set!) - (spec: 2 setf-macro-macro setf-macro-macro) - (spec: 2 setq-macro? setq-macro?) + (spec: 2 &setf-macro-macro &setf-macro-macro) (spec: 2 make-setf-macro make-setf-macro) + (spec: 2 syntax-local-setq-macro? syntax-local-setq-macro?) + (spec: 2 &setq-macro-macro &setq-macro-macro) + (spec: 2 setq-macro-macro-set! setq-macro-macro-set!) + (spec: 2 setf-macro setf-macro) (spec: 2 expand-set! expand-set!) + (spec: 2 setq-macro? setq-macro?) + (spec: 2 setf-macro-macro setf-macro-macro) (spec: 2 &setf-macro-macro-set! &setf-macro-macro-set!) - (spec: 2 setf-macro setf-macro) - (spec: 2 syntax-local-setf-macro? syntax-local-setf-macro?) + (spec: 2 setf-macro::t setf-macro::t) + (spec: 2 make-setq-macro make-setq-macro) + (spec: 2 setf-macro-macro-set! setf-macro-macro-set!) + (spec: 1 parameterize parameterize) (spec: 1 values-set! values-set!) - (spec: 1 let/cc let/cc) - (spec: 1 unwind-protect unwind-protect) (spec: 1 eval-when-compile eval-when-compile) - (spec: 1 parameterize parameterize) (spec: 1 @bytes @bytes) + (spec: 1 unwind-protect unwind-protect) + (spec: 1 let/cc let/cc) (spec: 2 match-pattern? match-pattern?) (spec: 2 syntax-local-match-macro? syntax-local-match-macro?) (spec: 2 match-macro? match-macro?) (spec: 2 make-match-macro make-match-macro) (spec: 2 match-macro::t match-macro::t) (spec: 2 match-macro match-macro) - (spec: 1 match match) - (spec: 1 match* match*) - (spec: 1 defsyntax-for-match defsyntax-for-match) - (spec: 1 with with) (spec: 1 with* with*) - (spec: 1 ? ?) + (spec: 1 with with) (spec: 1 defrules-for-match defrules-for-match) - (spec: 1 :class :class) - (spec: 1 :u64vector :u64vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :immediate :immediate) - (spec: 1 :eof :eof) - (spec: 1 :address-info :address-info) - (spec: 1 :ratnum :ratnum) - (spec: 1 class class) - (spec: 1 :s8vector :s8vector) - (spec: 1 :weak :weak) - (spec: 1 :false :false) + (spec: 1 ? ?) + (spec: 1 match* match*) + (spec: 1 match match) + (spec: 1 defsyntax-for-match defsyntax-for-match) (spec: 1 :foreign :foreign) - (spec: 1 :void :void) - (spec: 1 :port :port) - (spec: 1 :special :special) - (spec: 1 :pair :pair) - (spec: 1 :f32vector :f32vector) (spec: 1 :object-port :object-port) - (spec: 1 :list :list) - (spec: 1 :char :char) - (spec: 1 :string-port :string-port) - (spec: 1 :symbol :symbol) - (spec: 1 :device-port :device-port) - (spec: 1 :frame :frame) - (spec: 1 :null :null) - (spec: 1 :object :object) - (spec: 1 :fixnum :fixnum) - (spec: 1 :flonum :flonum) + (spec: 1 :character-port :character-port) (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :symbolic :symbolic) + (spec: 1 :directory-port :directory-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :readenv :readenv) + (spec: 1 :readtable :readtable) + (spec: 1 :fixnum :fixnum) + (spec: 1 :sequence :sequence) + (spec: 1 :time :time) + (spec: 1 :string-port :string-port) (spec: 1 :table :table) - (spec: 1 :real :real) - (spec: 1 :u8vector :u8vector) - (spec: 1 :s64vector :s64vector) - (spec: 1 :box :box) + (spec: 1 :s16vector :s16vector) + (spec: 1 :false :false) + (spec: 1 :special :special) + (spec: 1 :u64vector :u64vector) (spec: 1 :bignum :bignum) - (spec: 1 :continuation :continuation) - (spec: 1 :time :time) - (spec: 1 :mutex :mutex) - (spec: 1 :character-port :character-port) (spec: 1 :byte-port :byte-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :keyword :keyword) - (spec: 1 :thread-group :thread-group) - (spec: 1 :sequence :sequence) - (spec: 1 :udp-port :udp-port) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :device-port :device-port) (spec: 1 :writeenv :writeenv) + (spec: 1 :promise :promise) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :processor :processor) - (spec: 1 :values :values) - (spec: 1 :vector :vector) - (spec: 1 :u16vector :u16vector) + (spec: 1 :file-info :file-info) + (spec: 1 :address-info :address-info) + (spec: 1 :udp-port :udp-port) + (spec: 1 :object :object) + (spec: 1 :char :char) + (spec: 1 :real :real) + (spec: 1 :vector-port :vector-port) + (spec: 1 :condvar :condvar) + (spec: 1 :immediate :immediate) + (spec: 1 :class :class) + (spec: 1 :keyword :keyword) + (spec: 1 :s8vector :s8vector) + (spec: 1 :s64vector :s64vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :procedure :procedure) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :u8vector :u8vector) + (spec: 1 :weak :weak) (spec: 1 :integer :integer) + (spec: 1 :values :values) + (spec: 1 :continuation :continuation) + (spec: 1 :thread :thread) (spec: 1 :vm :vm) - (spec: 1 :f64vector :f64vector) + (spec: 1 :mutex :mutex) + (spec: 1 :socket-info :socket-info) + (spec: 1 :vector :vector) + (spec: 1 :flonum :flonum) + (spec: 1 :boolean :boolean) + (spec: 1 :port :port) + (spec: 1 :frame :frame) (spec: 1 :s32vector :s32vector) - (spec: 1 :number :number) - (spec: 1 :condvar :condvar) + (spec: 1 :string :string) + (spec: 1 :u16vector :u16vector) + (spec: 1 :null :null) (spec: 1 :hvector :hvector) - (spec: 1 :procedure :procedure) - (spec: 1 :readenv :readenv) - (spec: 1 :vector-port :vector-port) - (spec: 1 :true :true) - (spec: 1 :file-info :file-info) - (spec: 1 :symbolic :symbolic) + (spec: 1 :list :list) (spec: 1 :u32vector :u32vector) - (spec: 1 :socket-info :socket-info) - (spec: 1 :atom :atom) + (spec: 1 :pair :pair) + (spec: 1 :ratnum :ratnum) + (spec: 1 :f32vector :f32vector) + (spec: 1 class class) + (spec: 1 :eof :eof) (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :string :string) - (spec: 1 :boolean :boolean) - (spec: 1 :promise :promise) - (spec: 1 :thread :thread) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) - (spec: 1 define-struct define-struct) + (spec: 1 :number :number) + (spec: 1 :atom :atom) + (spec: 1 :void :void) + (spec: 1 :true :true) + (spec: 1 :symbol :symbol) + (spec: 1 :thread-group :thread-group) + (spec: 1 :box :box) (spec: 1 define-class define-class) + (spec: 1 @ @) (spec: 1 @-set! @-set!) + (spec: 1 define-struct define-struct) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) - (spec: 1 MOP-3 MOP-3) (spec: 1 MOP-4 MOP-4) + (spec: 1 MOP-2 MOP-2) (spec: 1 MOP-1 MOP-1) (spec: 1 MOP-5 MOP-5) - (spec: 1 MOP-2 MOP-2) - (spec: 1 :class :class) - (spec: 1 :u64vector :u64vector) - (spec: 1 :tcp-server-port :tcp-server-port) - (spec: 1 :immediate :immediate) - (spec: 1 :eof :eof) - (spec: 1 :address-info :address-info) - (spec: 1 :ratnum :ratnum) - (spec: 1 class class) - (spec: 1 :s8vector :s8vector) - (spec: 1 :weak :weak) - (spec: 1 :false :false) + (spec: 1 MOP-3 MOP-3) (spec: 1 :foreign :foreign) - (spec: 1 :void :void) - (spec: 1 :port :port) - (spec: 1 :special :special) - (spec: 1 :pair :pair) - (spec: 1 :f32vector :f32vector) (spec: 1 :object-port :object-port) - (spec: 1 :list :list) - (spec: 1 :char :char) - (spec: 1 :string-port :string-port) - (spec: 1 :symbol :symbol) - (spec: 1 :device-port :device-port) - (spec: 1 :frame :frame) - (spec: 1 :null :null) - (spec: 1 :object :object) - (spec: 1 :fixnum :fixnum) - (spec: 1 :flonum :flonum) + (spec: 1 :character-port :character-port) (spec: 1 :u8vector-port :u8vector-port) + (spec: 1 :symbolic :symbolic) + (spec: 1 :directory-port :directory-port) (spec: 1 :event-queue-port :event-queue-port) - (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :readenv :readenv) + (spec: 1 :readtable :readtable) + (spec: 1 :fixnum :fixnum) + (spec: 1 :sequence :sequence) + (spec: 1 :time :time) + (spec: 1 :string-port :string-port) (spec: 1 :table :table) - (spec: 1 :real :real) - (spec: 1 :u8vector :u8vector) - (spec: 1 :s64vector :s64vector) - (spec: 1 :box :box) + (spec: 1 :s16vector :s16vector) + (spec: 1 :false :false) + (spec: 1 :special :special) + (spec: 1 :u64vector :u64vector) (spec: 1 :bignum :bignum) - (spec: 1 :continuation :continuation) - (spec: 1 :time :time) - (spec: 1 :mutex :mutex) - (spec: 1 :character-port :character-port) (spec: 1 :byte-port :byte-port) - (spec: 1 :directory-port :directory-port) - (spec: 1 defsystem-class-info defsystem-class-info) - (spec: 1 :keyword :keyword) - (spec: 1 :thread-group :thread-group) - (spec: 1 :sequence :sequence) - (spec: 1 :udp-port :udp-port) + (spec: 1 :cpxnum :cpxnum) + (spec: 1 :device-port :device-port) (spec: 1 :writeenv :writeenv) + (spec: 1 :promise :promise) + (spec: 1 :raw-device-port :raw-device-port) + (spec: 1 :tcp-server-port :tcp-server-port) (spec: 1 :processor :processor) - (spec: 1 :values :values) - (spec: 1 :vector :vector) - (spec: 1 :u16vector :u16vector) + (spec: 1 :file-info :file-info) + (spec: 1 :address-info :address-info) + (spec: 1 :udp-port :udp-port) + (spec: 1 :object :object) + (spec: 1 :char :char) + (spec: 1 :real :real) + (spec: 1 :vector-port :vector-port) + (spec: 1 :condvar :condvar) + (spec: 1 :immediate :immediate) + (spec: 1 :class :class) + (spec: 1 :keyword :keyword) + (spec: 1 :s8vector :s8vector) + (spec: 1 :s64vector :s64vector) + (spec: 1 :f64vector :f64vector) + (spec: 1 :procedure :procedure) + (spec: 1 defsystem-class-info defsystem-class-info) + (spec: 1 :u8vector :u8vector) + (spec: 1 :weak :weak) (spec: 1 :integer :integer) + (spec: 1 :values :values) + (spec: 1 :continuation :continuation) + (spec: 1 :thread :thread) (spec: 1 :vm :vm) - (spec: 1 :f64vector :f64vector) + (spec: 1 :mutex :mutex) + (spec: 1 :socket-info :socket-info) + (spec: 1 :vector :vector) + (spec: 1 :flonum :flonum) + (spec: 1 :boolean :boolean) + (spec: 1 :port :port) + (spec: 1 :frame :frame) (spec: 1 :s32vector :s32vector) - (spec: 1 :number :number) - (spec: 1 :condvar :condvar) + (spec: 1 :string :string) + (spec: 1 :u16vector :u16vector) + (spec: 1 :null :null) (spec: 1 :hvector :hvector) - (spec: 1 :procedure :procedure) - (spec: 1 :readenv :readenv) - (spec: 1 :vector-port :vector-port) - (spec: 1 :true :true) - (spec: 1 :file-info :file-info) - (spec: 1 :symbolic :symbolic) + (spec: 1 :list :list) (spec: 1 :u32vector :u32vector) - (spec: 1 :socket-info :socket-info) - (spec: 1 :atom :atom) + (spec: 1 :pair :pair) + (spec: 1 :ratnum :ratnum) + (spec: 1 :f32vector :f32vector) + (spec: 1 class class) + (spec: 1 :eof :eof) (spec: 1 :t :t) - (spec: 1 :s16vector :s16vector) - (spec: 1 :string :string) - (spec: 1 :boolean :boolean) - (spec: 1 :promise :promise) - (spec: 1 :thread :thread) - (spec: 1 :cpxnum :cpxnum) - (spec: 1 :readtable :readtable) - (spec: 1 @ @) - (spec: 1 define-struct define-struct) + (spec: 1 :number :number) + (spec: 1 :atom :atom) + (spec: 1 :void :void) + (spec: 1 :true :true) + (spec: 1 :symbol :symbol) + (spec: 1 :thread-group :thread-group) + (spec: 1 :box :box) (spec: 1 define-class define-class) + (spec: 1 @ @) (spec: 1 @-set! @-set!) + (spec: 1 define-struct define-struct) (spec: 1 class-type-info class-type-info) - (spec: 1 class-type-info::t class-type-info::t) - (spec: 1 class-type-info? class-type-info?) - (spec: 1 !class-type-slots !class-type-slots) - (spec: 1 !class-type-predicate !class-type-predicate) - (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) - (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) - (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) - (spec: - 1 - !class-type-constructor-method - !class-type-constructor-method) - (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) - (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) - (spec: 1 &!class-type-struct? &!class-type-struct?) - (spec: - 1 - &!class-type-precedence-list-set! - &!class-type-precedence-list-set!) - (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (spec: 1 - !class-type-precedence-list-set! - !class-type-precedence-list-set!) + &!class-type-ordered-slots-set! + &!class-type-ordered-slots-set!) + (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + (spec: 1 !class-type-constructor !class-type-constructor) + (spec: 1 !class-type-slots-set! !class-type-slots-set!) + (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) (spec: 1 !class-type-unchecked-accessors-set! !class-type-unchecked-accessors-set!) (spec: 1 - !class-type-slot-contracts-set! - !class-type-slot-contracts-set!) - (spec: 1 &!class-type-slot-types &!class-type-slot-types) - (spec: 1 !class-type-id-set! !class-type-id-set!) - (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + !class-type-unchecked-mutators-set! + !class-type-unchecked-mutators-set!) + (spec: 1 !class-type-id !class-type-id) + (spec: 1 !class-type-name !class-type-name) + (spec: 1 !class-type-accessors !class-type-accessors) (spec: 1 - !class-type-constructor-method-set! - !class-type-constructor-method-set!) + !class-type-unchecked-accessors + !class-type-unchecked-accessors) + (spec: + 1 + !class-type-unchecked-mutators + !class-type-unchecked-mutators) + (spec: 1 !class-type-final?-set! !class-type-final?-set!) + (spec: 1 &!class-type-super &!class-type-super) (spec: 1 &!class-type-system? &!class-type-system?) - (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) - (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) + (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + (spec: 1 &!class-type-metaclass &!class-type-metaclass) + (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) (spec: 1 &!class-type-constructor-set! &!class-type-constructor-set!) + (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) + (spec: 1 !class-type-mutators !class-type-mutators) + (spec: 1 &!class-type-mutators &!class-type-mutators) + (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) + (spec: 1 &!class-type-slots &!class-type-slots) + (spec: 1 &!class-type-accessors &!class-type-accessors) (spec: 1 - &!class-type-unchecked-mutators-set! - &!class-type-unchecked-mutators-set!) - (spec: 1 !class-type-id !class-type-id) - (spec: 1 !class-type-predicate-set! !class-type-predicate-set!) + class-type-info::apply-macro-expander + class-type-info::apply-macro-expander) + (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) (spec: 1 - &!class-type-constructor-method - &!class-type-constructor-method) - (spec: 1 !class-type-final? !class-type-final?) - (spec: 1 !class-type-super-set! !class-type-super-set!) - (spec: 1 !class-type-final?-set! !class-type-final?-set!) + &!class-type-constructor-method-set! + &!class-type-constructor-method-set!) + (spec: 1 !class-type-slot-types !class-type-slot-types) + (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: 1 !class-type-name-set! !class-type-name-set!) + (spec: + 1 + !class-type-slot-contracts-set! + !class-type-slot-contracts-set!) + (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) + (spec: 1 !class-type-metaclass !class-type-metaclass) + (spec: 1 &!class-type-constructor &!class-type-constructor) + (spec: 1 &!class-type-mutators-set! &!class-type-mutators-set!) (spec: 1 &!class-type-unchecked-accessors-set! &!class-type-unchecked-accessors-set!) - (spec: 1 &!class-type-slot-types-set! &!class-type-slot-types-set!) - (spec: 1 &!class-type-predicate &!class-type-predicate) - (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 1 !class-type-metaclass-set! !class-type-metaclass-set!) + (spec: + 1 + !class-type-slot-defaults-set! + !class-type-slot-defaults-set!) + (spec: 1 !class-type-final? !class-type-final?) (spec: 1 &!class-type-name-set! &!class-type-name-set!) - (spec: 1 !class-type-slot-types !class-type-slot-types) + (spec: 1 make-class-type-info make-class-type-info) + (spec: 1 &!class-type-precedence-list &!class-type-precedence-list) + (spec: 1 &!class-type-slots-set! &!class-type-slots-set!) + (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) + (spec: 1 class-type-info? class-type-info?) + (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) (spec: 1 - &!class-type-ordered-slots-set! - &!class-type-ordered-slots-set!) + &!class-type-unchecked-mutators + &!class-type-unchecked-mutators) + (spec: 1 &!class-type-final? &!class-type-final?) + (spec: 1 !class-type-descriptor !class-type-descriptor) + (spec: 1 &!class-type-slot-types &!class-type-slot-types) (spec: 1 &!class-type-slot-defaults-set! &!class-type-slot-defaults-set!) - (spec: - 1 - class-type-info::apply-macro-expander - class-type-info::apply-macro-expander) + (spec: 1 !class-type-super-set! !class-type-super-set!) (spec: 1 !class-type-struct? !class-type-struct?) - (spec: 1 !class-type-system? !class-type-system?) + (spec: 1 &!class-type-id &!class-type-id) (spec: 1 - !class-type-slot-defaults-set! - !class-type-slot-defaults-set!) - (spec: 1 &!class-type-super &!class-type-super) - (spec: 1 &!class-type-descriptor &!class-type-descriptor) - (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) - (spec: 1 &!class-type-slots &!class-type-slots) + !class-type-constructor-method-set! + !class-type-constructor-method-set!) (spec: 1 - &!class-type-constructor-method-set! - &!class-type-constructor-method-set!) - (spec: 1 !class-type-super !class-type-super) - (spec: 1 &!class-type-slot-defaults &!class-type-slot-defaults) + &!class-type-constructor-method + &!class-type-constructor-method) + (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) (spec: 1 !class-type-system?-set! !class-type-system?-set!) - (spec: 1 &!class-type-id-set! &!class-type-id-set!) - (spec: 1 !class-type-name !class-type-name) - (spec: 1 !class-type-metaclass !class-type-metaclass) - (spec: 1 !class-type-constructor !class-type-constructor) - (spec: 1 !class-type-mutators-set! !class-type-mutators-set!) - (spec: 1 !class-type-precedence-list !class-type-precedence-list) - (spec: - 1 - !class-type-unchecked-accessors - !class-type-unchecked-accessors) (spec: 1 - !class-type-ordered-slots-set! - !class-type-ordered-slots-set!) - (spec: 1 &!class-type-name &!class-type-name) - (spec: 1 &!class-type-final? &!class-type-final?) - (spec: 1 &!class-type-mutators &!class-type-mutators) - (spec: 1 &!class-type-descriptor-set! &!class-type-descriptor-set!) - (spec: 1 &!class-type-accessors-set! &!class-type-accessors-set!) - (spec: 1 &!class-type-ordered-slots &!class-type-ordered-slots) - (spec: 1 syntax-local-class-type-info? syntax-local-class-type-info?) - (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + &!class-type-unchecked-mutators-set! + &!class-type-unchecked-mutators-set!) + (spec: 1 &!class-type-predicate &!class-type-predicate) (spec: 1 - &!class-type-unchecked-mutators - &!class-type-unchecked-mutators) + &!class-type-slot-contracts-set! + &!class-type-slot-contracts-set!) + (spec: 1 &!class-type-system?-set! &!class-type-system?-set!) (spec: 1 &!class-type-unchecked-accessors &!class-type-unchecked-accessors) - (spec: 1 &!class-type-constructor &!class-type-constructor) - (spec: 1 !class-type-descriptor !class-type-descriptor) - (spec: 1 !class-type-accessors !class-type-accessors) - (spec: 1 !class-type-mutators !class-type-mutators) - (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-precedence-list !class-type-precedence-list) (spec: 1 - !class-type-unchecked-mutators-set! - !class-type-unchecked-mutators-set!) - (spec: 1 &!class-type-accessors &!class-type-accessors) - (spec: 1 &!class-type-metaclass-set! &!class-type-metaclass-set!) + !class-type-constructor-method + !class-type-constructor-method) (spec: 1 - &!class-type-slot-contracts-set! - &!class-type-slot-contracts-set!) - (spec: 1 &!class-type-struct?-set! &!class-type-struct?-set!) - (spec: 1 !class-type-slot-types-set! !class-type-slot-types-set!) - (spec: 1 &!class-type-metaclass &!class-type-metaclass) - (spec: 1 make-class-type-info make-class-type-info) - (spec: 1 &!class-type-final?-set! &!class-type-final?-set!) + !class-type-precedence-list-set! + !class-type-precedence-list-set!) + (spec: 1 &!class-type-name &!class-type-name) + (spec: 1 class-type-info::t class-type-info::t) + (spec: 1 &!class-type-struct? &!class-type-struct?) + (spec: 1 &!class-type-descriptor &!class-type-descriptor) + (spec: 1 !class-type-super !class-type-super) + (spec: 1 &!class-type-id-set! &!class-type-id-set!) + (spec: 1 &!class-type-predicate-set! &!class-type-predicate-set!) + (spec: 1 !class-type-system? !class-type-system?) + (spec: 1 &!class-type-slot-contracts &!class-type-slot-contracts) (spec: 1 - !class-type-unchecked-mutators - !class-type-unchecked-mutators) - (spec: 1 &!class-type-id &!class-type-id) - (spec: 1 !class-type-slots-set! !class-type-slots-set!) - (spec: 1 !class-type-name-set! !class-type-name-set!) + &!class-type-precedence-list-set! + &!class-type-precedence-list-set!) + (spec: 1 !class-type-constructor-set! !class-type-constructor-set!) + (spec: 1 !class-type-predicate !class-type-predicate) + (spec: 1 !class-type-descriptor-set! !class-type-descriptor-set!) + (spec: 1 !class-type-slots !class-type-slots) + (spec: 1 !class-type-ordered-slots !class-type-ordered-slots) + (spec: 1 !class-type-slot-defaults !class-type-slot-defaults) + (spec: 1 !class-type-id-set! !class-type-id-set!) (spec: 1 !class-type-struct?-set! !class-type-struct?-set!) - (spec: 1 &!class-type-super-set! &!class-type-super-set!) + (spec: + 1 + !class-type-ordered-slots-set! + !class-type-ordered-slots-set!) + (spec: 1 !class-type-slot-contracts !class-type-slot-contracts) + (spec: 1 !class-type-accessors-set! !class-type-accessors-set!) (spec: 1 defstruct-type defstruct-type) (spec: 1 defclass-type defclass-type) (spec: 1 make-class-type-id make-class-type-id) (spec: 1 module-type-id module-type-id) - (spec: 1 defconst defconst) - (spec: 1 defsyntax defsyntax) (spec: 1 definline definline) - (spec: 1 <> <>) - (spec: 1 quasiquote quasiquote) - (spec: 1 alet* alet*) - (spec: 1 case case) - (spec: 1 and-let* and-let*) + (spec: 1 defsyntax defsyntax) + (spec: 1 defconst defconst) (spec: 1 begin0 begin0) - (spec: 1 ~case ~case) + (spec: 1 @list @list) (spec: 1 cut cut) (spec: 1 ~case-dispatch* ~case-dispatch*) - (spec: 1 ~case-test ~case-test) - (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 alet alet) + (spec: 1 quasiquote quasiquote) (spec: 1 ~case-dispatch ~case-dispatch) - (spec: 1 delay delay) + (spec: 1 ~case-dispatch-bsearch ~case-dispatch-bsearch) + (spec: 1 rec rec) + (spec: 1 and-let* and-let*) (spec: 1 <...> <...>) - (spec: 1 @list @list) - (spec: 1 alet alet) (spec: 1 defvalues defvalues) - (spec: 1 rec rec) - (spec: 1 when when) + (spec: 1 case case) + (spec: 1 ~case ~case) + (spec: 1 <> <>) + (spec: 1 ~case-test ~case-test) + (spec: 1 delay delay) + (spec: 1 alet* alet*) (spec: 1 define define) - (spec: 1 defalias defalias) + (spec: 1 letrec letrec) + (spec: 1 defrules defrules) + (spec: 1 compilation-target? compilation-target?) + (spec: 1 letrec* letrec*) (spec: 1 ~let ~let) - (spec: 1 defsyntax% defsyntax%) - (spec: 1 cond cond) (spec: 1 defrule defrule) - (spec: 1 let* let*) - (spec: 1 unless unless) - (spec: 1 let*-values let*-values) + (spec: 1 cond cond) + (spec: 1 syntax-error syntax-error) + (spec: 1 defsyntax% defsyntax%) (spec: 1 or or) - (spec: 1 defrules defrules) - (spec: 1 letrec letrec) (spec: 1 define-rules define-rules) + (spec: 1 defalias defalias) + (spec: 1 unless unless) + (spec: 1 when when) + (spec: 1 let* let*) (spec: 1 and and) - (spec: 1 letrec* letrec*) - (spec: 1 syntax-error syntax-error) - (spec: 1 call/values call/values) - (spec: 1 s8vector-ref-set! s8vector-ref-set!) - (spec: 1 random-bytes random-bytes) - (spec: 1 car-set! car-set!) - (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 let*-values let*-values) (spec: 1 s16vector-ref-set! s16vector-ref-set!) + (spec: 1 s32vector-ref-set! s32vector-ref-set!) + (spec: 1 f32vector-ref-set! f32vector-ref-set!) (spec: 1 u64vector-ref-set! u64vector-ref-set!) - (spec: 1 u32vector-ref-set! u32vector-ref-set!) + (spec: 1 u8vector-ref-set! u8vector-ref-set!) + (spec: 1 string-ref-set! string-ref-set!) + (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 call/values call/values) + (spec: 1 vector-ref-set! vector-ref-set!) (spec: 1 call/parameters call/parameters) + (spec: 1 car-set! car-set!) + (spec: 1 box-set! box-set!) (spec: 1 cdr-set! cdr-set!) - (spec: 1 u16vector-ref-set! u16vector-ref-set!) + (spec: 1 u32vector-ref-set! u32vector-ref-set!) (spec: 1 s64vector-ref-set! s64vector-ref-set!) - (spec: 1 string-ref-set! string-ref-set!) - (spec: 1 random-source-make-bytes random-source-make-bytes) - (spec: 1 f32vector-ref-set! f32vector-ref-set!) - (spec: 1 box-set! box-set!) - (spec: 1 u8vector-ref-set! u8vector-ref-set!) (spec: 1 f64vector-ref-set! f64vector-ref-set!) - (spec: 1 vector-ref-set! vector-ref-set!) - (spec: 1 hash-fold hash-fold) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 assgetv assgetv) - (spec: 1 call-next-method call-next-method) + (spec: 1 random-source-make-bytes random-source-make-bytes) + (spec: 1 s8vector-ref-set! s8vector-ref-set!) + (spec: 1 random-bytes random-bytes) (spec: 1 gerbil-load-expander! gerbil-load-expander!) - (spec: 1 hash-table? hash-table?) - (spec: 1 interface-instance-object interface-instance-object) - (spec: 1 &interface-instance-object &interface-instance-object) - (spec: 1 readtable::t readtable::t) - (spec: 1 u16vector::t u16vector::t) - (spec: 1 build-manifest-string build-manifest-string) - (spec: 1 keyword-dispatch keyword-dispatch) - (spec: 1 class-type-constructor class-type-constructor) - (spec: 1 display-build-manifest display-build-manifest) (spec: 1 list->hash-table-symbolic list->hash-table-symbolic) - (spec: 1 class-type-precedence-list class-type-precedence-list) - (spec: 1 string-index string-index) - (spec: 1 symbolic-table-delete! symbolic-table-delete!) - (spec: 1 socket-info::t socket-info::t) - (spec: 1 struct-copy struct-copy) - (spec: 1 tcp-server-port? tcp-server-port?) - (spec: - 1 - unhandled-actor-exception-hook-set! - unhandled-actor-exception-hook-set!) - (spec: 1 gerbil-home gerbil-home) - (spec: 1 AST-e AST-e) - (spec: 1 void? void?) - (spec: 1 class-type? class-type?) - (spec: 1 immediate-hash immediate-hash) - (spec: 1 write-u8vector write-u8vector) (spec: 1 keyword->symbol keyword->symbol) - (spec: 1 build-manifest/head build-manifest/head) - (spec: 1 class-type-fields class-type-fields) - (spec: 1 load-path load-path) - (spec: 1 sequence? sequence?) + (spec: 1 with-dynamic-lock with-dynamic-lock) + (spec: 1 replx replx) + (spec: 1 class-type-sealed? class-type-sealed?) + (spec: 1 HashTable::interface HashTable::interface) + (spec: 1 fx<=0? fx<=0?) + (spec: 1 thread::t thread::t) + (spec: 1 hash-values hash-values) + (spec: 1 values-ref values-ref) + (spec: 1 u8vector::t u8vector::t) + (spec: 1 memf memf) + (spec: 1 next-method next-method) + (spec: 1 t::t t::t) + (spec: 1 error error) + (spec: 1 symbol::t symbol::t) + (spec: 1 exception? exception?) + (spec: 1 slot-set! slot-set!) + (spec: 1 hash-keys hash-keys) + (spec: 1 s32vector::t s32vector::t) (spec: 1 make-class-slot-unchecked-mutator make-class-slot-unchecked-mutator) + (spec: 1 string-hash string-hash) + (spec: 1 dssl-key-object? dssl-key-object?) + (spec: 1 make-object make-object) + (spec: 1 device-port? device-port?) + (spec: 1 gerbil-path gerbil-path) + (spec: 1 load-module load-module) + (spec: 1 &class-type-precedence-list &class-type-precedence-list) + (spec: 1 keyword::t keyword::t) + (spec: 1 class-of class-of) + (spec: 1 raw-device-port? raw-device-port?) + (spec: 1 class-type-seal! class-type-seal!) + (spec: 1 fx<0? fx<0?) + (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 vector-port::t vector-port::t) + (spec: 1 character-port? character-port?) + (spec: 1 cons* cons*) + (spec: 1 byte-port::t byte-port::t) + (spec: 1 unbound-key-error? unbound-key-error?) + (spec: 1 absent-value absent-value) + (spec: 1 event-queue-port? event-queue-port?) + (spec: 1 make-symbol make-symbol) + (spec: 1 foldl foldl) + (spec: 1 hash-key? hash-key?) + (spec: 1 false::t false::t) + (spec: + 1 + make-class-slot-unchecked-accessor + make-class-slot-unchecked-accessor) + (spec: 1 satisfies? satisfies?) + (spec: 1 string-empty? string-empty?) + (spec: 1 device-port::t device-port::t) + (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) + (spec: 1 character-port::t character-port::t) + (spec: 1 values->list values->list) + (spec: 1 list->hash-table-immediate list->hash-table-immediate) + (spec: 1 raw-device-port::t raw-device-port::t) + (spec: 1 condvar::t condvar::t) + (spec: 1 flonum::t flonum::t) + (spec: 1 immediate-instance-of? immediate-instance-of?) + (spec: 1 build-manifest/head build-manifest/head) + (spec: 1 object::t object::t) + (spec: 1 class-instance? class-instance?) + (spec: 1 displayln displayln) + (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) + (spec: 1 max-char-code max-char-code) + (spec: 1 f64vector::t f64vector::t) + (spec: 1 address-info::t address-info::t) + (spec: 1 event-queue-port::t event-queue-port::t) + (spec: 1 hash-get hash-get) + (spec: 1 fx1- fx1-) + (spec: 1 class-type? class-type?) + (spec: 1 symblic-hash symblic-hash) + (spec: 1 make-class-slot-mutator make-class-slot-mutator) (spec: 1 cpxnum::t cpxnum::t) - (spec: 1 string-join string-join) - (spec: 1 eof::t eof::t) - (spec: 1 source-location? source-location?) - (spec: 1 eof-object eof-object) - (spec: 1 error-message error-message) - (spec: 1 t::t t::t) + (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) + (spec: 1 spawn/name spawn/name) + (spec: 1 &class-type-name &class-type-name) + (spec: 1 char::t char::t) + (spec: 1 class-type-properties class-type-properties) + (spec: 1 keyword-dispatch keyword-dispatch) + (spec: 1 ratnum::t ratnum::t) + (spec: 1 class-type-final? class-type-final?) + (spec: 1 with-exception-stack-trace with-exception-stack-trace) + (spec: 1 list-modules list-modules) + (spec: 1 fixnum::t fixnum::t) + (spec: 1 HashTable::t HashTable::t) + (spec: 1 hash-update! hash-update!) + (spec: 1 thread-local-set! thread-local-set!) + (spec: 1 values::t values::t) + (spec: 1 interface-instance-object interface-instance-object) + (spec: 1 class-instance-init! class-instance-init!) + (spec: 1 udp-port::t udp-port::t) + (spec: 1 plist->hash-table-string plist->hash-table-string) + (spec: 1 f32vector::t f32vector::t) + (spec: 1 hash-for-each hash-for-each) + (spec: 1 error? error?) + (spec: 1 fx1+ fx1+) + (spec: 1 module-load-order module-load-order) + (spec: 1 make-class-slot-accessor make-class-slot-accessor) + (spec: 1 remq remq) + (spec: 1 s64vector::t s64vector::t) + (spec: 1 spawn/group spawn/group) + (spec: 1 class-type-id class-type-id) + (spec: 1 load-path load-path) + (spec: 1 with-lock with-lock) + (spec: 1 class-type-slot-vector class-type-slot-vector) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 symbolic-table-ref symbolic-table-ref) + (spec: 1 HashTableLock::t HashTableLock::t) + (spec: 1 immediate? immediate?) + (spec: 1 fxshift fxshift) + (spec: 1 hvector::t hvector::t) + (spec: 1 vector-port? vector-port?) + (spec: 1 interface-instance? interface-instance?) + (spec: 1 c4-linearize c4-linearize) + (spec: 1 AST-e AST-e) + (spec: 1 method-ref method-ref) + (spec: 1 struct-instance-init! struct-instance-init!) + (spec: 1 tcp-server-port::t tcp-server-port::t) + (spec: 1 filter-map filter-map) + (spec: 1 hash-merge! hash-merge!) + (spec: 1 readenv::t readenv::t) + (spec: 1 current-thread-group current-thread-group) + (spec: 1 seal-class! seal-class!) + (spec: 1 dump-stack-trace! dump-stack-trace!) + (spec: 1 directory-port? directory-port?) + (spec: 1 integer::t integer::t) + (spec: 1 &class-type-slot-table &class-type-slot-table) + (spec: 1 &class-type-constructor &class-type-constructor) + (spec: 1 symbolic-table-delete! symbolic-table-delete!) + (spec: 1 immediate::t immediate::t) + (spec: 1 box::t box::t) + (spec: 1 fx>=0? fx>=0?) + (spec: 1 bignum::t bignum::t) + (spec: 1 ormap ormap) + (spec: 1 gerbil-system gerbil-system) + (spec: 1 interned-symbol? interned-symbol?) + (spec: 1 unchecked-slot-ref unchecked-slot-ref) + (spec: 1 vm::t vm::t) + (spec: 1 error-object? error-object?) + (spec: 1 make-interface-descriptor make-interface-descriptor) + (spec: 1 eqv-hash eqv-hash) + (spec: 1 make-symbolic-table make-symbolic-table) + (spec: 1 foldr foldr) + (spec: 1 struct-copy struct-copy) + (spec: 1 file-newer? file-newer?) + (spec: 1 null::t null::t) + (spec: 1 hash-merge hash-merge) + (spec: 1 source-location-path source-location-path) + (spec: 1 continuation::t continuation::t) + (spec: 1 dssl-rest-object? dssl-rest-object?) + (spec: 1 string-index string-index) + (spec: 1 directory-port::t directory-port::t) + (spec: 1 class-type-flags class-type-flags) + (spec: 1 keyword-rest keyword-rest) + (spec: 1 list::t list::t) + (spec: 1 readenv? readenv?) + (spec: 1 class-type-slot-table class-type-slot-table) + (spec: 1 pgetq pgetq) + (spec: 1 fx>0? fx>0?) + (spec: 1 port::t port::t) + (spec: 1 udp-port? udp-port?) + (spec: 1 absent-obj absent-obj) + (spec: 1 struct->list struct->list) + (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) + (spec: 1 hash-map hash-map) + (spec: 1 agetq agetq) + (spec: 1 file-info::t file-info::t) + (spec: 1 s8vector::t s8vector::t) + (spec: 1 dssl-optional-object? dssl-optional-object?) + (spec: 1 special? special?) + (spec: 1 direct-method-ref direct-method-ref) + (spec: 1 &class-type-properties &class-type-properties) + (spec: 1 with-unwind-protect with-unwind-protect) + (spec: 1 class-type-slot-list class-type-slot-list) + (spec: 1 &interface-instance-object &interface-instance-object) + (spec: 1 pgetv pgetv) + (spec: 1 boolean::t boolean::t) + (spec: 1 fx=0? fx=0?) + (spec: 1 checked-bound-method-ref checked-bound-method-ref) + (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) + (spec: 1 vector::t vector::t) + (spec: 1 bytes->string bytes->string) + (spec: 1 time::t time::t) + (spec: 1 special::t special::t) + (spec: 1 raise raise) + (spec: 1 string::t string::t) + (spec: 1 as-string as-string) + (spec: 1 table::t table::t) + (spec: 1 hash-length hash-length) + (spec: 1 agetv agetv) + (spec: 1 HashTableLock::interface HashTableLock::interface) + (spec: 1 constructor-init! constructor-init!) + (spec: 1 dssl-object? dssl-object?) + (spec: 1 direct-instance? direct-instance?) + (spec: 1 procedure-hash procedure-hash) + (spec: 1 unchecked-slot-set! unchecked-slot-set!) + (spec: 1 call-next-method call-next-method) + (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 read-syntax read-syntax) + (spec: 1 class-type-constructor class-type-constructor) + (spec: 1 1+ 1+) + (spec: 1 move-file move-file) + (spec: 1 symbolic? symbolic?) + (spec: 1 hash-copy hash-copy) + (spec: 1 u64vector::t u64vector::t) + (spec: 1 true::t true::t) + (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 vm? vm?) + (spec: 1 remv remv) + (spec: 1 make-keyword make-keyword) + (spec: 1 display-build-manifest display-build-manifest) + (spec: 1 substring->bytes substring->bytes) + (spec: 1 writenv? writenv?) (spec: 1 number::t number::t) - (spec: 1 atom::t atom::t) - (spec: 1 hash-get hash-get) - (spec: 1 subclass? subclass?) - (spec: 1 method-ref method-ref) - (spec: 1 thread::t thread::t) - (spec: 1 vector::t vector::t) - (spec: 1 interface-instance::t interface-instance::t) + (spec: 1 foreign::t foreign::t) (spec: 1 real::t real::t) - (spec: 1 gerbil-version-string gerbil-version-string) - (spec: 1 class-type=? class-type=?) - (spec: 1 immediate-instance-of? immediate-instance-of?) - (spec: 1 with-unwind-protect with-unwind-protect) - (spec: 1 keyword::t keyword::t) - (spec: 1 class-type-field-count class-type-field-count) - (spec: 1 load-module load-module) - (spec: 1 sequence::t sequence::t) - (spec: 1 symbolic-table-set! symbolic-table-set!) - (spec: 1 andmap andmap) - (spec: 1 find-method find-method) + (spec: 1 thread-local-delete! thread-local-delete!) (spec: 1 source-location-path? source-location-path?) - (spec: 1 struct-instance? struct-instance?) - (spec: 1 error-irritants error-irritants) - (spec: 1 hash-for-each hash-for-each) - (spec: 1 error error) - (spec: 1 fxshift fxshift) - (spec: 1 hash-update! hash-update!) - (spec: 1 gerbil-system-version-string gerbil-system-version-string) - (spec: 1 vector-port? vector-port?) - (spec: 1 keyword-rest keyword-rest) - (spec: 1 with-lock with-lock) - (spec: 1 replx replx) - (spec: 1 class-type-id class-type-id) - (spec: 1 &class-type-name &class-type-name) - (spec: 1 satisfies? satisfies?) - (spec: 1 string-hash string-hash) - (spec: 1 symbol::t symbol::t) - (spec: 1 make-symbol make-symbol) - (spec: 1 fx<0? fx<0?) - (spec: 1 object-fill! object-fill!) - (spec: 1 hash-values hash-values) - (spec: 1 values-count values-count) - (spec: 1 cast cast) - (spec: 1 error-object? error-object?) - (spec: 1 hash-keys hash-keys) - (spec: 1 thread-local-ref thread-local-ref) - (spec: 1 bind-specializer! bind-specializer!) - (spec: 1 actor-thread? actor-thread?) - (spec: 1 AST? AST?) - (spec: 1 class->list class->list) - (spec: 1 with-catch with-catch) - (spec: 1 class::t class::t) - (spec: 1 build-manifest/layer build-manifest/layer) - (spec: 1 u8vector-port? u8vector-port?) - (spec: 1 &class-type-fields &class-type-fields) - (spec: 1 writeenv::t writeenv::t) - (spec: 1 1- 1-) - (spec: 1 make-class-type make-class-type) + (spec: 1 make-hash-table make-hash-table) + (spec: 1 sequence::t sequence::t) + (spec: 1 string-port? string-port?) + (spec: 1 call-method call-method) + (spec: 1 class-type-methods class-type-methods) + (spec: 1 &class-type-super &class-type-super) + (spec: 1 &class-type-flags &class-type-flags) (spec: 1 return::t return::t) - (spec: 1 class-type-seal! class-type-seal!) - (spec: 1 create-directory* create-directory*) - (spec: 1 set-load-path! set-load-path!) - (spec: 1 eq-hash eq-hash) - (spec: 1 string-port::t string-port::t) - (spec: 1 hash->list hash->list) (spec: 1 symbolic::t symbolic::t) + (spec: 1 hash-clear! hash-clear!) + (spec: 1 build-manifest-string build-manifest-string) + (spec: 1 u32vector::t u32vector::t) + (spec: 1 true true) + (spec: 1 plist->hash-table plist->hash-table) + (spec: 1 display-as-string display-as-string) + (spec: 1 make-syntax-error make-syntax-error) + (spec: 1 thread-group::t thread-group::t) + (spec: 1 assgetv assgetv) + (spec: 1 object-port::t object-port::t) + (spec: 1 make-AST make-AST) + (spec: 1 string-port::t string-port::t) + (spec: 1 dump-stack-trace? dump-stack-trace?) + (spec: 1 class-type-metaclass? class-type-metaclass?) + (spec: 1 class-type-struct? class-type-struct?) + (spec: 1 hash->plist hash->plist) + (spec: 1 bound-method-ref bound-method-ref) + (spec: 1 u16vector::t u16vector::t) + (spec: 1 interned-keyword? interned-keyword?) (spec: 1 make-instance make-instance) - (spec: 1 spawn spawn) - (spec: 1 error-trace error-trace) - (spec: 1 hash-key? hash-key?) - (spec: 1 fx1- fx1-) - (spec: 1 object-type object-type) - (spec: 1 thread-local-get thread-local-get) - (spec: 1 values->list values->list) - (spec: 1 gerbil-path gerbil-path) - (spec: 1 false::t false::t) - (spec: 1 processor::t processor::t) - (spec: 1 character-port? character-port?) - (spec: 1 true? true?) - (spec: 1 pair::t pair::t) - (spec: 1 class-of class-of) - (spec: 1 interface-instance? interface-instance?) - (spec: 1 remf remf) - (spec: 1 byte-port::t byte-port::t) - (spec: 1 u8vector-port::t u8vector-port::t) - (spec: 1 plist->hash-table-eq plist->hash-table-eq) - (spec: 1 list-modules list-modules) - (spec: 1 1+ 1+) - (spec: 1 read-syntax-from-file read-syntax-from-file) - (spec: 1 remq remq) - (spec: 1 &class-type-precedence-list &class-type-precedence-list) - (spec: 1 slot-ref slot-ref) - (spec: 1 foldl foldl) - (spec: 1 module-load-order module-load-order) - (spec: 1 device-port::t device-port::t) - (spec: 1 event-queue-port? event-queue-port?) - (spec: 1 hash-map hash-map) - (spec: 1 frame::t frame::t) - (spec: 1 object-port? object-port?) - (spec: 1 integer::t integer::t) - (spec: 1 cons* cons*) - (spec: 1 gerbil-greeting-set! gerbil-greeting-set!) - (spec: 1 f64vector::t f64vector::t) - (spec: 1 procedure::t procedure::t) - (spec: 1 character-port::t character-port::t) - (spec: 1 make-promise make-promise) - (spec: 1 interned-symbol? interned-symbol?) - (spec: 1 class-instance? class-instance?) + (spec: 1 AST-source AST-source) + (spec: 1 eof-object eof-object) + (spec: 1 hash-ref hash-ref) + (spec: 1 readtable::t readtable::t) (spec: 1 - raise-contract-violation-error - raise-contract-violation-error) - (spec: 1 tcp-server-port::t tcp-server-port::t) + datum-parsing-exception-filepos + datum-parsing-exception-filepos) + (spec: 1 socket-info::t socket-info::t) + (spec: 1 string-join string-join) + (spec: 1 display* display*) + (spec: 1 &class-type-slot-vector &class-type-slot-vector) + (spec: 1 &class-type-fields &class-type-fields) + (spec: 1 1- 1-) + (spec: 1 symbolic-table-set! symbolic-table-set!) + (spec: 1 hash->list hash->list) + (spec: 1 build-manifest build-manifest) + (spec: 1 hvector? hvector?) + (spec: 1 gerbil-system-version-string gerbil-system-version-string) (spec: 1 void::t void::t) - (spec: 1 address-info::t address-info::t) - (spec: 1 writenv? writenv?) - (spec: 1 make-AST make-AST) - (spec: 1 reload-module! reload-module!) - (spec: 1 condvar::t condvar::t) - (spec: 1 make-keyword make-keyword) - (spec: 1 displayln displayln) - (spec: 1 class-type-name class-type-name) - (spec: 1 string-rindex string-rindex) - (spec: 1 flonum::t flonum::t) - (spec: 1 event-queue-port::t event-queue-port::t) - (spec: 1 hash-length hash-length) + (spec: 1 subclass? subclass?) + (spec: 1 AST? AST?) + (spec: 1 struct-instance? struct-instance?) + (spec: 1 assget assget) + (spec: 1 tcp-server-port? tcp-server-port?) (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 ormap ormap) - (spec: 1 unchecked-slot-set! unchecked-slot-set!) - (spec: 1 call-with-parameters call-with-parameters) - (spec: 1 gerbil-greeting gerbil-greeting) - (spec: 1 null::t null::t) - (spec: 1 symbolic-table-ref symbolic-table-ref) - (spec: 1 foreign::t foreign::t) + (spec: 1 hash-put! hash-put!) + (spec: 1 source-location? source-location?) + (spec: 1 make-class-type make-class-type) + (spec: 1 sequence? sequence?) + (spec: 1 false false) + (spec: 1 interface-descriptor-type interface-descriptor-type) + (spec: 1 cast cast) + (spec: 1 remove1 remove1) + (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 read-u8vector read-u8vector) + (spec: 1 mutex::t mutex::t) + (spec: 1 try-cast try-cast) (spec: 1 bind-method! bind-method!) - (spec: 1 interned-keyword? interned-keyword?) - (spec: 1 checked-method-ref checked-method-ref) - (spec: 1 vm? vm?) - (spec: 1 add-load-path! add-load-path!) + (spec: 1 hash-table? hash-table?) + (spec: 1 class->list class->list) + (spec: 1 weak::t weak::t) + (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) + (spec: 1 actor-thread? actor-thread?) + (spec: 1 string-split string-split) + (spec: 1 error-trace error-trace) + (spec: 1 syntax-error? syntax-error?) + (spec: 1 fx/ fx/) + (spec: 1 type-of type-of) + (spec: 1 symbol->keyword symbol->keyword) (spec: 1 class-type-system? class-type-system?) - (spec: 1 make-interface-descriptor make-interface-descriptor) - (spec: 1 &class-type-properties &class-type-properties) - (spec: 1 list::t list::t) - (spec: 1 struct-instance-init! struct-instance-init!) - (spec: 1 move-file move-file) - (spec: 1 find find) - (spec: 1 make-symbolic-table make-symbolic-table) - (spec: 1 source-location-path source-location-path) - (spec: 1 foldr foldr) - (spec: 1 object::t object::t) - (spec: 1 hash-merge! hash-merge!) - (spec: 1 promise::t promise::t) - (spec: 1 vector-port::t vector-port::t) - (spec: 1 substruct? substruct?) - (spec: 1 fx>=0? fx>=0?) - (spec: 1 hvector::t hvector::t) - (spec: 1 raise raise) - (spec: 1 gerbil-system-manifest gerbil-system-manifest) + (spec: 1 object-port? object-port?) + (spec: 1 make-hash-table-string make-hash-table-string) + (spec: 1 hash-fold hash-fold) + (spec: 1 reload-module! reload-module!) + (spec: 1 string->bytes string->bytes) + (spec: 1 eq-hash eq-hash) + (spec: 1 values-count values-count) + (spec: 1 gerbil-home gerbil-home) + (spec: 1 class-type-precedence-list class-type-precedence-list) + (spec: 1 list->hash-table-string list->hash-table-string) (spec: 1 raise-unbound-key-error raise-unbound-key-error) - (spec: 1 class-type-sealed? class-type-sealed?) - (spec: 1 immediate? immediate?) - (spec: 1 unbound-key-error? unbound-key-error?) - (spec: 1 HashTable::interface HashTable::interface) - (spec: 1 &class-type-id &class-type-id) - (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) - (spec: 1 device-port? device-port?) - (spec: 1 dssl-key-object? dssl-key-object?) - (spec: 1 hash-find hash-find) - (spec: 1 make-hash-table-eq make-hash-table-eq) - (spec: 1 thread-local-set! thread-local-set!) - (spec: 1 hash-merge hash-merge) - (spec: 1 interface-cast-error? interface-cast-error?) + (spec: 1 class-type-fields class-type-fields) + (spec: 1 writeenv::t writeenv::t) + (spec: 1 immediate-hash immediate-hash) + (spec: 1 pget pget) + (spec: 1 build-manifest/layer build-manifest/layer) + (spec: 1 object? object?) + (spec: 1 bind-specializer! bind-specializer!) + (spec: 1 interface-descriptor? interface-descriptor?) + (spec: 1 promise::t promise::t) + (spec: 1 with-catch with-catch) + (spec: 1 plist->hash-table-eqv plist->hash-table-eqv) (spec: 1 aget aget) - (spec: 1 fx>0? fx>0?) - (spec: 1 gerbil-system gerbil-system) - (spec: 1 raw-device-port::t raw-device-port::t) - (spec: 1 bound-method-ref bound-method-ref) - (spec: 1 immediate::t immediate::t) - (spec: 1 udp-port? udp-port?) - (spec: 1 plist->hash-table-symbolic plist->hash-table-symbolic) - (spec: 1 HashTableLock::interface HashTableLock::interface) - (spec: 1 s64vector::t s64vector::t) - (spec: 1 directory-port::t directory-port::t) - (spec: 1 class-type-flags class-type-flags) - (spec: 1 &class-type-slot-table &class-type-slot-table) - (spec: 1 dssl-rest-object? dssl-rest-object?) - (spec: 1 file-newer? file-newer?) + (spec: 1 error-message error-message) + (spec: 1 new-instance new-instance) + (spec: 1 substruct? substruct?) + (spec: 1 class::t class::t) + (spec: 1 s16vector::t s16vector::t) + (spec: 1 create-directory* create-directory*) + (spec: 1 make-hash-table-immediate make-hash-table-immediate) + (spec: 1 eof::t eof::t) (spec: 1 - datum-parsing-exception-filepos - datum-parsing-exception-filepos) - (spec: 1 spawn/name spawn/name) - (spec: 1 make-hash-table make-hash-table) - (spec: 1 eqv-hash eqv-hash) - (spec: 1 fx1+ fx1+) - (spec: 1 as-string as-string) - (spec: 1 hash-ref hash-ref) - (spec: 1 thread-local-delete! thread-local-delete!) - (spec: 1 agetq agetq) - (spec: 1 true::t true::t) - (spec: 1 weak? weak?) - (spec: 1 ratnum::t ratnum::t) - (spec: 1 class-type-slot-table class-type-slot-table) - (spec: 1 boolean::t boolean::t) - (spec: 1 u64vector::t u64vector::t) - (spec: 1 plist->hash-table-string plist->hash-table-string) - (spec: 1 &class-type-constructor &class-type-constructor) - (spec: 1 remv remv) - (spec: 1 s32vector::t s32vector::t) - (spec: 1 direct-method-ref direct-method-ref) - (spec: 1 class-type-properties class-type-properties) - (spec: 1 read-syntax read-syntax) - (spec: 1 constructor-init! constructor-init!) - (spec: 1 slot-set! slot-set!) - (spec: 1 dssl-optional-object? dssl-optional-object?) - (spec: 1 file-info::t file-info::t) - (spec: 1 spawn/group spawn/group) - (spec: 1 make-hash-table-immediate make-hash-table-immediate) - (spec: 1 absent-obj absent-obj) - (spec: 1 object-port::t object-port::t) - (spec: 1 fx/ fx/) - (spec: 1 char::t char::t) - (spec: 1 procedure-hash procedure-hash) - (spec: 1 thread-group::t thread-group::t) - (spec: 1 substring->bytes substring->bytes) - (spec: 1 f32vector::t f32vector::t) + unhandled-actor-exception-hook-set! + unhandled-actor-exception-hook-set!) + (spec: 1 processor::t processor::t) (spec: 1 interface-descriptor-methods interface-descriptor-methods) - (spec: 1 hash-put! hash-put!) - (spec: 1 true true) - (spec: 1 class-instance-init! class-instance-init!) - (spec: 1 hvector? hvector?) - (spec: 1 weak::t weak::t) - (spec: 1 AST-source AST-source) - (spec: 1 plist->hash-table plist->hash-table) - (spec: 1 class-type-final? class-type-final?) - (spec: 1 u32vector::t u32vector::t) + (spec: 1 write-u8vector write-u8vector) (spec: 1 list->hash-table list->hash-table) - (spec: 1 &class-type-slot-vector &class-type-slot-vector) - (spec: 1 string-port? string-port?) - (spec: 1 fixnum::t fixnum::t) - (spec: 1 symbolic? symbolic?) - (spec: 1 mutex::t mutex::t) - (spec: 1 hash->plist hash->plist) - (spec: 1 make-hash-table-eqv make-hash-table-eqv) - (spec: 1 error? error?) - (spec: 1 make-syntax-error make-syntax-error) - (spec: 1 nonnegative-fixnum? nonnegative-fixnum?) - (spec: 1 c4-linearize c4-linearize) - (spec: 1 unchecked-slot-ref unchecked-slot-ref) - (spec: 1 bignum::t bignum::t) - (spec: 1 exception? exception?) - (spec: 1 vm::t vm::t) - (spec: 1 class-type-slot-vector class-type-slot-vector) - (spec: 1 box::t box::t) - (spec: 1 pgetq pgetq) - (spec: 1 list->hash-table-eqv list->hash-table-eqv) - (spec: 1 raw-device-port? raw-device-port?) - (spec: 1 make-class-slot-accessor make-class-slot-accessor) - (spec: 1 directory-port? directory-port?) - (spec: 1 class-type-methods class-type-methods) - (spec: 1 continuation::t continuation::t) - (spec: 1 s8vector::t s8vector::t) - (spec: 1 string-empty? string-empty?) - (spec: 1 dump-stack-trace! dump-stack-trace!) - (spec: 1 filter-map filter-map) - (spec: 1 new-instance new-instance) - (spec: 1 display-exception display-exception) - (spec: 1 make-hash-table-symbolic make-hash-table-symbolic) - (spec: 1 max-char-code max-char-code) + (spec: 1 class-type-field-count class-type-field-count) + (spec: 1 andmap andmap) + (spec: 1 find-method find-method) + (spec: 1 u8vector-port? u8vector-port?) + (spec: 1 build-manifest-set! build-manifest-set!) + (spec: 1 make-promise make-promise) + (spec: 1 void? void?) + (spec: 1 gerbil-version-string gerbil-version-string) + (spec: 1 error-irritants error-irritants) + (spec: 1 object-fill! object-fill!) (spec: 1 assgetq assgetq) - (spec: 1 table::t table::t) - (spec: 1 call-method call-method) - (spec: 1 port::t port::t) - (spec: 1 interface-descriptor-type interface-descriptor-type) - (spec: 1 absent-value absent-value) - (spec: 1 time::t time::t) - (spec: 1 false false) - (spec: 1 is-hash-table? is-hash-table?) + (spec: 1 thread-local-ref thread-local-ref) (spec: 1 class-type-super class-type-super) - (spec: 1 readenv? readenv?) - (spec: 1 pgetv pgetv) - (spec: 1 build-manifest-set! build-manifest-set!) - (spec: 1 list->hash-table-eq list->hash-table-eq) + (spec: 1 make-hash-table-eqv make-hash-table-eqv) + (spec: 1 spawn spawn) + (spec: 1 display-exception display-exception) + (spec: 1 set-load-path! set-load-path!) + (spec: 1 call-with-parameters call-with-parameters) + (spec: 1 gerbil-greeting gerbil-greeting) + (spec: 1 class-type-name class-type-name) + (spec: 1 procedure::t procedure::t) + (spec: 1 read-syntax-from-file read-syntax-from-file) + (spec: 1 &class-type-id &class-type-id) + (spec: 1 list->hash-table-eqv list->hash-table-eqv) (spec: 1 make-class-predicate make-class-predicate) - (spec: 1 display-as-string display-as-string) - (spec: 1 special? special?) + (spec: 1 find find) + (spec: 1 plist->hash-table-eq plist->hash-table-eq) + (spec: 1 u8vector-port::t u8vector-port::t) + (spec: 1 pair::t pair::t) + (spec: 1 true? true?) + (spec: 1 checked-method-ref checked-method-ref) + (spec: 1 weak? weak?) (spec: 1 byte-port? byte-port?) - (spec: 1 class-type-metaclass? class-type-metaclass?) - (spec: 1 &class-type-super &class-type-super) - (spec: 1 dump-stack-trace? dump-stack-trace?) - (spec: 1 hash-copy hash-copy) - (spec: 1 make-hash-table-string make-hash-table-string) - (spec: 1 struct->list struct->list) - (spec: 1 assget assget) - (spec: 1 values::t values::t) - (spec: 1 interface-descriptor? interface-descriptor?) - (spec: 1 fx=0? fx=0?) - (spec: 1 try-cast try-cast) - (spec: 1 with-exception-stack-trace with-exception-stack-trace) - (spec: 1 class-type-struct? class-type-struct?) - (spec: 1 readenv::t readenv::t) - (spec: 1 build-manifest build-manifest) - (spec: 1 udp-port::t udp-port::t) - (spec: 1 &class-type-flags &class-type-flags) - (spec: 1 list->hash-table-string list->hash-table-string) (spec: 1 - make-class-slot-unchecked-accessor - make-class-slot-unchecked-accessor) - (spec: 1 display* display*) - (spec: 1 special::t special::t) - (spec: 1 make-object make-object) - (spec: 1 read-u8vector read-u8vector) - (spec: 1 seal-class! seal-class!) - (spec: 1 hash-clear! hash-clear!) - (spec: 1 string::t string::t) - (spec: 1 memf memf) - (spec: 1 object? object?) + raise-contract-violation-error + raise-contract-violation-error) (spec: 1 hash-remove! hash-remove!) - (spec: 1 bytes->string bytes->string) - (spec: 1 values-ref values-ref) - (spec: 1 symbol->keyword symbol->keyword) - (spec: 1 pget pget) - (spec: 1 checked-bound-method-ref checked-bound-method-ref) - (spec: 1 fx<=0? fx<=0?) - (spec: 1 with-dynamic-lock with-dynamic-lock) - (spec: 1 gerbil-runtime-smp? gerbil-runtime-smp?) - (spec: 1 remove1 remove1) - (spec: 1 class-type-slot-list class-type-slot-list) - (spec: 1 HashTable::t HashTable::t) - (spec: 1 u8vector::t u8vector::t) - (spec: 1 plist->hash-table-immediate plist->hash-table-immediate) - (spec: 1 list->hash-table-immediate list->hash-table-immediate) - (spec: 1 s16vector::t s16vector::t) - (spec: 1 make-class-slot-mutator make-class-slot-mutator) - (spec: 1 direct-instance? direct-instance?) - (spec: 1 string->bytes string->bytes) - (spec: 1 dssl-object? dssl-object?) - (spec: 1 string-split string-split) - (spec: 1 HashTableLock::t HashTableLock::t) - (spec: 1 syntax-error? syntax-error?) - (spec: 1 agetv agetv) - (spec: 1 symblic-hash symblic-hash) - (spec: 1 next-method next-method) - (spec: 1 current-thread-group current-thread-group) - (spec: 1 any-bits-set? any-bits-set?) - (spec: 1 with-exception-catcher with-exception-catcher) - (spec: 1 pp pp) - (spec: 1 s8vector-fill! s8vector-fill!) - (spec: 1 type-exception-arg-id type-exception-arg-id) - (spec: 1 bit-field-reverse bit-field-reverse) - (spec: 1 substring-move! substring-move!) + (spec: 1 add-load-path! add-load-path!) + (spec: 1 frame::t frame::t) + (spec: 1 object-type object-type) + (spec: 1 thread-local-get thread-local-get) + (spec: 1 remf remf) + (spec: 1 class-type=? class-type=?) + (spec: 1 atom::t atom::t) + (spec: 1 make-hash-table-eq make-hash-table-eq) + (spec: 1 hash-find hash-find) + (spec: 1 slot-ref slot-ref) + (spec: 1 string-rindex string-rindex) + (spec: 1 subu16vector-move! subu16vector-move!) + (spec: 1 u64vector-copy u64vector-copy) + (spec: 1 file-mode file-mode) (spec: 1 - sfun-conversion-exception-procedure - sfun-conversion-exception-procedure) - (spec: 1 u64vector-copy! u64vector-copy!) - (spec: 1 console-port console-port) - (spec: 1 vector-unfold-right vector-unfold-right) - (spec: 1 s32vector-length s32vector-length) - (spec: 1 string->char-set string->char-set) - (spec: 1 fxpositive? fxpositive?) - (spec: 1 string-suffix-length-ci string-suffix-length-ci) - (spec: 1 error-exception-parameters error-exception-parameters) - (spec: 1 char-set-ref char-set-ref) - (spec: 1 u16vector-length u16vector-length) - (spec: 1 bitwise-merge bitwise-merge) - (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) - (spec: 1 file-info-inode file-info-inode) - (spec: 1 module-whitelist-reset! module-whitelist-reset!) - (spec: 1 sinh sinh) - (spec: 1 u8vector-append u8vector-append) - (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) - (spec: 1 fifth fifth) + initialized-thread-exception-arguments + initialized-thread-exception-arguments) + (spec: 1 read-file-string read-file-string) + (spec: 1 file-info-group file-info-group) + (spec: 1 u8vector-swap! u8vector-swap!) + (spec: 1 flabs flabs) + (spec: 1 tanh tanh) + (spec: 1 readtable? readtable?) + (spec: 1 fixnum->flonum fixnum->flonum) + (spec: 1 input-port-readtable input-port-readtable) + (spec: 1 s64vector-set! s64vector-set!) + (spec: 1 string-concatenate string-concatenate) + (spec: 1 touch touch) + (spec: 1 host-info-name host-info-name) + (spec: 1 atanh atanh) + (spec: 1 concatenate concatenate) + (spec: 1 subs16vector-move! subs16vector-move!) + (spec: 1 u32vector-append u32vector-append) + (spec: 1 f64vector f64vector) + (spec: 1 group-info? group-info?) + (spec: 1 second second) + (spec: 1 make-s32vector make-s32vector) + (spec: 1 u16vector-concatenate u16vector-concatenate) + (spec: 1 copy-bit-field copy-bit-field) + (spec: 1 f32vector f32vector) + (spec: 1 bitwise-ior bitwise-ior) + (spec: 1 mutex-lock! mutex-lock!) (spec: 1 - nonempty-input-port-character-buffer-exception-arguments - nonempty-input-port-character-buffer-exception-arguments) - (spec: 1 subf64vector-fill! subf64vector-fill!) - (spec: 1 unbox unbox) - (spec: 1 protocol-info-aliases protocol-info-aliases) - (spec: 1 f64vector-copy f64vector-copy) - (spec: 1 service-info-protocol service-info-protocol) - (spec: 1 u32vector-fill! u32vector-fill!) - (spec: 1 write-substring write-substring) - (spec: 1 u8vector? u8vector?) - (spec: 1 f32vector-copy f32vector-copy) - (spec: 1 uninterned-symbol? uninterned-symbol?) + wrong-number-of-values-exception? + wrong-number-of-values-exception?) + (spec: 1 u8vector->object u8vector->object) + (spec: 1 f64vector-concatenate f64vector-concatenate) + (spec: 1 bit-field-replace-same bit-field-replace-same) + (spec: 1 user-info-name user-info-name) + (spec: 1 fxnand fxnand) + (spec: 1 char-set-size char-set-size) + (spec: 1 link-incremental link-incremental) (spec: 1 - not-in-compilation-context-exception-arguments - not-in-compilation-context-exception-arguments) - (spec: 1 call/cc call/cc) - (spec: 1 flatanh flatanh) + path-strip-trailing-directory-separator + path-strip-trailing-directory-separator) + (spec: 1 s32vector-shrink! s32vector-shrink!) + (spec: 1 string->char-set! string->char-set!) + (spec: 1 fxandc1 fxandc1) + (spec: 1 char-set-delete char-set-delete) + (spec: 1 list->s16vector list->s16vector) + (spec: 1 s16vector? s16vector?) (spec: 1 - invalid-hash-number-exception-procedure - invalid-hash-number-exception-procedure) - (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) - (spec: 1 open-string-pipe open-string-pipe) - (spec: 1 reverse! reverse!) - (spec: 1 delete-directory delete-directory) - (spec: 1 force-output force-output) - (spec: 1 last-pair last-pair) - (spec: 1 split-at! split-at!) - (spec: 1 thread-join! thread-join!) - (spec: 1 fixnum->flonum fixnum->flonum) - (spec: 1 user-info-home user-info-home) + started-thread-exception-arguments + started-thread-exception-arguments) + (spec: 1 error error) + (spec: 1 gensym gensym) + (spec: 1 compile-file-to-target compile-file-to-target) + (spec: 1 make-condition-variable make-condition-variable) + (spec: 1 s8vector-set s8vector-set) + (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) + (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) + (spec: 1 table->list table->list) (spec: 1 - unterminated-process-exception-arguments - unterminated-process-exception-arguments) + readtable-keywords-allowed?-set + readtable-keywords-allowed?-set) + (spec: 1 tty-type-set! tty-type-set!) + (spec: 1 with-output-to-u8vector with-output-to-u8vector) + (spec: 1 fl= fl=) (spec: 1 - terminated-thread-exception-procedure - terminated-thread-exception-procedure) - (spec: 1 file-mode file-mode) - (spec: 1 fllog fllog) - (spec: 1 os-exception? os-exception?) - (spec: 1 char-set-cursor-next char-set-cursor-next) - (spec: 1 fx+ fx+) - (spec: 1 thread-state thread-state) - (spec: 1 s64vector-fill! s64vector-fill!) - (spec: 1 open-file open-file) - (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) - (spec: 1 flround flround) + divide-by-zero-exception-arguments + divide-by-zero-exception-arguments) + (spec: 1 open-input-vector open-input-vector) (spec: 1 - keyword-expected-exception-procedure - keyword-expected-exception-procedure) - (spec: 1 repl-output-port repl-output-port) - (spec: 1 s16vector-ref s16vector-ref) - (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) - (spec: 1 display-procedure-environment display-procedure-environment) - (spec: 1 fxeqv fxeqv) - (spec: 1 any-bit-set? any-bit-set?) - (spec: 1 list->bits list->bits) - (spec: 1 s8vector-copy! s8vector-copy!) - (spec: 1 vector-fold-right vector-fold-right) - (spec: 1 main main) - (spec: 1 get-output-vector get-output-vector) - (spec: 1 bit-field-replace-same bit-field-replace-same) - (spec: 1 link-incremental link-incremental) + thread-group->thread-group-vector + thread-group->thread-group-vector) + (spec: 1 fltan fltan) (spec: 1 - sfun-conversion-exception-message - sfun-conversion-exception-message) - (spec: 1 subu16vector-move! subu16vector-move!) - (spec: 1 u64vector-copy u64vector-copy) - (spec: 1 vector-unfold vector-unfold) - (spec: 1 with-output-to-string with-output-to-string) - (spec: 1 partition! partition!) - (spec: 1 list= list=) - (spec: 1 fxorc2 fxorc2) - (spec: 1 s32vector-set s32vector-set) - (spec: 1 time->seconds time->seconds) - (spec: 1 write-file-u8vector write-file-u8vector) - (spec: 1 u16vector-fill! u16vector-fill!) - (spec: 1 char-set-map char-set-map) - (spec: 1 help help) - (spec: 1 bitwise-ior bitwise-ior) - (spec: 1 list->u16vector list->u16vector) - (spec: 1 make-random-source make-random-source) - (spec: 1 file-info-group file-info-group) - (spec: 1 module-whitelist-add! module-whitelist-add!) - (spec: 1 random-real random-real) - (spec: 1 u8vector->object u8vector->object) + invalid-utf8-encoding-exception-arguments + invalid-utf8-encoding-exception-arguments) + (spec: 1 object->u8vector object->u8vector) + (spec: 1 flnumerator flnumerator) + (spec: 1 fourth fourth) + (spec: 1 output-port-readtable output-port-readtable) + (spec: 1 thread-specific thread-specific) + (spec: 1 u64vector-concatenate u64vector-concatenate) + (spec: 1 subu32vector-move! subu32vector-move!) + (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) + (spec: 1 file-last-modification-time file-last-modification-time) + (spec: 1 current-exception-handler current-exception-handler) + (spec: 1 file-info-device file-info-device) + (spec: 1 random-source? random-source?) + (spec: 1 u8vector-shrink! u8vector-shrink!) (spec: 1 - unbound-serial-number-exception? - unbound-serial-number-exception?) - (spec: 1 copy-bit-field copy-bit-field) + readtable-max-unescaped-char-set + readtable-max-unescaped-char-set) + (spec: 1 fl>= fl>=) + (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) + (spec: 1 uninterned-symbol? uninterned-symbol?) + (spec: 1 null-list? null-list?) + (spec: 1 s64vector? s64vector?) + (spec: 1 f32vector-concatenate f32vector-concatenate) + (spec: 1 host-info-aliases host-info-aliases) + (spec: 1 subs16vector-fill! subs16vector-fill!) (spec: 1 wrong-number-of-values-exception-vals wrong-number-of-values-exception-vals) - (spec: 1 proper-list? proper-list?) - (spec: 1 f64vector-concatenate f64vector-concatenate) - (spec: 1 identity identity) - (spec: 1 make-u8vector make-u8vector) - (spec: 1 service-info-port-number service-info-port-number) - (spec: 1 subs16vector-fill! subs16vector-fill!) - (spec: 1 range-exception-arguments range-exception-arguments) - (spec: 1 f32vector-concatenate f32vector-concatenate) (spec: 1 u32vector-copy! u32vector-copy!) - (spec: 1 u8vector-swap! u8vector-swap!) - (spec: 1 uninterned-keyword? uninterned-keyword?) - (spec: 1 table? table?) + (spec: 1 group-info-name group-info-name) + (spec: 1 protocol-info? protocol-info?) + (spec: 1 write-file-u8vector write-file-u8vector) + (spec: 1 u16vector-fill! u16vector-fill!) + (spec: 1 bitwise-if bitwise-if) + (spec: 1 cosh cosh) + (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) + (spec: 1 symbol-hash symbol-hash) + (spec: 1 thread-priority thread-priority) + (spec: 1 bit-field-replace bit-field-replace) + (spec: 1 cons* cons*) + (spec: 1 f64vector-append f64vector-append) + (spec: 1 u8vector->list u8vector->list) + (spec: 1 split-at! split-at!) + (spec: 1 thread-join! thread-join!) + (spec: 1 char-set-ref char-set-ref) + (spec: 1 error-exception-parameters error-exception-parameters) + (spec: 1 fxmodulo fxmodulo) + (spec: 1 list-tabulate list-tabulate) + (spec: 1 string->char-set string->char-set) + (spec: 1 char-set-cursor-next char-set-cursor-next) + (spec: 1 user-info-home user-info-home) + (spec: 1 fxand fxand) + (spec: 1 path-strip-extension path-strip-extension) + (spec: 1 list->s8vector list->s8vector) + (spec: 1 thread-state-waiting-timeout thread-state-waiting-timeout) + (spec: 1 vector-fold-right vector-fold-right) + (spec: 1 vector-unfold-right vector-unfold-right) + (spec: 1 any-bit-set? any-bit-set?) + (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) + (spec: 1 make-f64vector make-f64vector) + (spec: 1 s8vector-swap! s8vector-swap!) + (spec: 1 with-output-to-string with-output-to-string) + (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) + (spec: 1 pretty-print pretty-print) (spec: 1 - invalid-utf8-encoding-exception-procedure - invalid-utf8-encoding-exception-procedure) - (spec: 1 flatan flatan) - (spec: 1 readtable-start-syntax readtable-start-syntax) - (spec: 1 user-info-gid user-info-gid) - (spec: 1 open-string open-string) - (spec: 1 split-at split-at) - (spec: 1 thread-group-terminate! thread-group-terminate!) - (spec: 1 read-all read-all) - (spec: 1 defer-user-interrupts defer-user-interrupts) + nonprocedure-operator-exception-operator + nonprocedure-operator-exception-operator) (spec: 1 - no-such-file-or-directory-exception? - no-such-file-or-directory-exception?) - (spec: 1 directory-files directory-files) - (spec: 1 udp-read-u8vector udp-read-u8vector) + unbound-serial-number-exception? + unbound-serial-number-exception?) + (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) + (spec: 1 open-output-process open-output-process) (spec: 1 - number-of-arguments-limit-exception? - number-of-arguments-limit-exception?) - (spec: 1 tcp-service-register! tcp-service-register!) - (spec: 1 network-info-aliases network-info-aliases) - (spec: 1 os-exception-procedure os-exception-procedure) - (spec: 1 char-set-cursor char-set-cursor) - (spec: 1 fx* fx*) - (spec: 1 thread-send thread-send) - (spec: 1 s64vector-ref s64vector-ref) + thread-group->thread-group-list + thread-group->thread-group-list) + (spec: 1 flfinite? flfinite?) + (spec: 1 terminated-thread-exception? terminated-thread-exception?) + (spec: + 1 + unterminated-process-exception-procedure + unterminated-process-exception-procedure) + (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) + (spec: 1 foreign? foreign?) + (spec: 1 s16vector->list s16vector->list) + (spec: 1 cfun-conversion-exception? cfun-conversion-exception?) + (spec: 1 thread-state thread-state) + (spec: 1 fltruncate fltruncate) + (spec: 1 subu16vector subu16vector) + (spec: 1 u64vector-append u64vector-append) + (spec: 1 first-set-bit first-set-bit) + (spec: 1 udp-write-u8vector udp-write-u8vector) + (spec: 1 input-port-line input-port-line) + (spec: 1 create-temporary-directory create-temporary-directory) + (spec: 1 file-last-change-time file-last-change-time) + (spec: 1 u8vector-set! u8vector-set!) + (spec: 1 initial-current-directory initial-current-directory) + (spec: 1 delete! delete!) + (spec: 1 flexpm1 flexpm1) (spec: 1 - divide-by-zero-exception-procedure - divide-by-zero-exception-procedure) - (spec: 1 open-event-queue open-event-queue) + readtable-write-extended-read-macros? + readtable-write-extended-read-macros?) + (spec: 1 take-right take-right) + (spec: 1 uninterned-keyword? uninterned-keyword?) (spec: 1 - cfun-conversion-exception-procedure - cfun-conversion-exception-procedure) - (spec: 1 flpositive? flpositive?) - (spec: 1 last last) - (spec: 1 replace-bit-field replace-bit-field) - (spec: 1 vector-fold vector-fold) - (spec: 1 thread-state-running? thread-state-running?) - (spec: 1 fxbit-set? fxbit-set?) + default-user-interrupt-handler + default-user-interrupt-handler) + (spec: 1 s64vector-ref s64vector-ref) (spec: 1 all-bits-set? all-bits-set?) - (spec: 1 s16vector-shrink! s16vector-shrink!) - (spec: 1 with-output-to-process with-output-to-process) - (spec: - 1 - port-io-exception-handler-set! - port-io-exception-handler-set!) - (spec: 1 clear-bit-field clear-bit-field) - (spec: 1 get-output-u8vector get-output-u8vector) + (spec: 1 compilation-target compilation-target) + (spec: 1 f32vector? f32vector?) + (spec: 1 make-will make-will) + (spec: 1 protocol-info-number protocol-info-number) + (spec: 1 subs16vector subs16vector) (spec: 1 bit-field bit-field) - (spec: 1 f64vector-fill! f64vector-fill!) - (spec: 1 subu16vector-fill! subu16vector-fill!) - (spec: 1 char-set-unfold char-set-unfold) - (spec: 1 time time) - (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) - (spec: 1 s32vector-ref s32vector-ref) - (spec: 1 write-file-string-list write-file-string-list) - (spec: 1 println println) - (spec: 1 string-swap! string-swap!) - (spec: 1 fxnegative? fxnegative?) - (spec: 1 bitwise-andc2 bitwise-andc2) - (spec: 1 file-creation-time file-creation-time) - (spec: 1 heap-overflow-exception? heap-overflow-exception?) - (spec: 1 list->table list->table) - (spec: 1 mutex-specific-set! mutex-specific-set!) - (spec: 1 random-integer random-integer) + (spec: 1 clear-bit-field clear-bit-field) + (spec: 1 host-info-addresses host-info-addresses) + (spec: 1 make-root-thread make-root-thread) + (spec: 1 process-times process-times) + (spec: 1 bitwise-for-each bitwise-for-each) (spec: 1 script-file script-file) + (spec: 1 file-info-creation-time file-info-creation-time) (spec: 1 - fixnum-overflow-exception-procedure - fixnum-overflow-exception-procedure) + random-source-pseudo-randomize! + random-source-pseudo-randomize!) + (spec: 1 string-swap! string-swap!) (spec: 1 u16vector->list u16vector->list) + (spec: 1 bit-field-every? bit-field-every?) + (spec: 1 open-vector-pipe open-vector-pipe) + (spec: 1 thread-group-terminate! thread-group-terminate!) + (spec: 1 split-at split-at) + (spec: 1 u32vector u32vector) + (spec: 1 char-set-map char-set-map) + (spec: 1 u8vector u8vector) + (spec: 1 fxwrapabs fxwrapabs) + (spec: 1 path-strip-directory path-strip-directory) + (spec: 1 s32vector-set s32vector-set) + (spec: 1 time->seconds time->seconds) + (spec: 1 char-set-cursor char-set-cursor) + (spec: 1 list->f32vector list->f32vector) + (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 fxmin fxmin) + (spec: 1 s16vector-shrink! s16vector-shrink!) + (spec: 1 thread-state-running? thread-state-running?) + (spec: 1 make-bitwise-generator make-bitwise-generator) + (spec: 1 group-info-members group-info-members) + (spec: 1 user-info-gid user-info-gid) + (spec: 1 vector-fold vector-fold) + (spec: 1 vector-unfold vector-unfold) + (spec: 1 with-output-to-process with-output-to-process) (spec: 1 - unbound-os-environment-variable-exception-procedure - unbound-os-environment-variable-exception-procedure) - (spec: 1 copy-bit copy-bit) + nonempty-input-port-character-buffer-exception? + nonempty-input-port-character-buffer-exception?) + (spec: 1 fl< fl<) + (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) (spec: 1 - module-not-found-exception-procedure - module-not-found-exception-procedure) - (spec: 1 f32vector-fill! f32vector-fill!) + unbound-os-environment-variable-exception-procedure + unbound-os-environment-variable-exception-procedure) + (spec: 1 display-procedure-environment display-procedure-environment) + (spec: 1 write-file-string-list write-file-string-list) + (spec: 1 flsqrt flsqrt) (spec: 1 wrong-number-of-values-exception-rte wrong-number-of-values-exception-rte) - (spec: 1 subs16vector subs16vector) - (spec: 1 configure-command-string configure-command-string) - (spec: 1 u32vector u32vector) - (spec: 1 file-info-last-change-time file-info-last-change-time) - (spec: 1 range-exception-arg-id range-exception-arg-id) - (spec: 1 compilation-target compilation-target) - (spec: 1 make-thread-group make-thread-group) - (spec: 1 delete-file-or-directory delete-file-or-directory) - (spec: 1 table-set! table-set!) - (spec: 1 flfloor flfloor) (spec: 1 - invalid-utf8-encoding-exception-arguments - invalid-utf8-encoding-exception-arguments) - (spec: - 1 - not-in-compilation-context-exception? - not-in-compilation-context-exception?) - (spec: - 1 - readtable-sharing-allowed?-set - readtable-sharing-allowed?-set) - (spec: 1 thread-group-suspend! thread-group-suspend!) - (spec: 1 user-info-shell user-info-shell) - (spec: 1 flacos flacos) - (spec: 1 open-tcp-server open-tcp-server) - (spec: 1 file-owner file-owner) - (spec: 1 udp-read-subu8vector udp-read-subu8vector) - (spec: 1 input-port-timeout-set! input-port-timeout-set!) + cfun-conversion-exception-arguments + cfun-conversion-exception-arguments) + (spec: 1 object->serial-number object->serial-number) + (spec: 1 flnan? flnan?) + (spec: 1 rename-file rename-file) (spec: 1 - no-such-file-or-directory-exception-procedure - no-such-file-or-directory-exception-procedure) + terminated-thread-exception-procedure + terminated-thread-exception-procedure) + (spec: 1 output-port-line output-port-line) + (spec: 1 fxabs fxabs) + (spec: 1 thread-send thread-send) (spec: 1 - unterminated-process-exception? - unterminated-process-exception?) - (spec: 1 initialized-thread-exception? initialized-thread-exception?) - (spec: 1 network-info network-info) - (spec: 1 thread-resume! thread-resume!) - (spec: 1 fxandc2 fxandc2) - (spec: 1 abort abort) - (spec: 1 every-bit-set? every-bit-set?) - (spec: 1 will-execute! will-execute!) - (spec: 1 length+ length+) + cfun-conversion-exception-procedure + cfun-conversion-exception-procedure) + (spec: 1 subu32vector subu32vector) + (spec: 1 u64vector->list u64vector->list) (spec: 1 - divide-by-zero-exception-arguments - divide-by-zero-exception-arguments) - (spec: 1 third third) - (spec: 1 flzero? flzero?) - (spec: 1 repl-result-history-ref repl-result-history-ref) - (spec: 1 char-set-delete! char-set-delete!) + initialized-thread-exception-procedure + initialized-thread-exception-procedure) + (spec: 1 read-file-string-list read-file-string-list) + (spec: 1 udp-write-subu8vector udp-write-subu8vector) + (spec: 1 first first) + (spec: 1 current-directory current-directory) + (spec: 1 u8vector-set u8vector-set) + (spec: 1 file-last-access-time file-last-access-time) + (spec: 1 delete-file-or-directory delete-file-or-directory) + (spec: 1 flexp flexp) + (spec: 1 input-port-readtable-set! input-port-readtable-set!) + (spec: 1 permission-denied-exception? permission-denied-exception?) + (spec: 1 s64vector-shrink! s64vector-shrink!) + (spec: 1 string-ci=?-hash string-ci=?-hash) + (spec: 1 trace trace) + (spec: 1 subf64vector-move! subf64vector-move!) + (spec: 1 protocol-info-name protocol-info-name) + (spec: 1 f64vector->list f64vector->list) + (spec: 1 u32vector-concatenate u32vector-concatenate) (spec: 1 - thread-state-running-processor - thread-state-running-processor) - (spec: 1 vector-inc! vector-inc!) - (spec: 1 flonum? flonum?) - (spec: 1 s16vector-set! s16vector-set!) + wrong-number-of-values-exception-code + wrong-number-of-values-exception-code) + (spec: 1 circular-list? circular-list?) + (spec: 1 make-s64vector make-s64vector) + (spec: 1 f32vector->list f32vector->list) + (spec: 1 process-status process-status) + (spec: 1 seconds->time seconds->time) + (spec: 1 host-info host-info) + (spec: 1 bitwise-fold bitwise-fold) + (spec: 1 copy-file copy-file) + (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) + (spec: 1 random-source-state-ref random-source-state-ref) + (spec: 1 string-suffix? string-suffix?) + (spec: 1 file-info-attributes file-info-attributes) + (spec: 1 bit-field-clear bit-field-clear) + (spec: 1 conjugate conjugate) + (spec: 1 open-vector open-vector) + (spec: 1 thread-init! thread-init!) + (spec: 1 foreign-tags foreign-tags) + (spec: 1 char-set-intersection! char-set-intersection!) + (spec: 1 list-sort list-sort) + (spec: 1 thread-priority-set! thread-priority-set!) + (spec: 1 s32vector-swap! s32vector-swap!) + (spec: 1 timeout->time timeout->time) + (spec: 1 fxwrap- fxwrap-) + (spec: 1 char-set-count char-set-count) + (spec: 1 list->s32vector list->s32vector) + (spec: 1 u16vector-copy u16vector-copy) + (spec: 1 user-info user-info) + (spec: 1 fxmax fxmax) + (spec: 1 vector-swap! vector-swap!) + (spec: 1 write-file-string write-file-string) + (spec: 1 tty? tty?) + (spec: 1 s8vector-set! s8vector-set!) + (spec: 1 with-output-to-port with-output-to-port) + (spec: 1 group-info-gid group-info-gid) (spec: 1 - tty-paren-balance-duration-set! - tty-paren-balance-duration-set!) - (spec: 1 with-output-to-vector with-output-to-vector) - (spec: 1 s8vector-length s8vector-length) - (spec: 1 bit-count bit-count) - (spec: 1 f64vector-copy! f64vector-copy!) - (spec: 1 subs8vector-move! subs8vector-move!) - (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) - (spec: 1 error error) - (spec: 1 char-set-size char-set-size) - (spec: 1 list->u64vector list->u64vector) - (spec: 1 fxwraparithmetic-shift-left fxwraparithmetic-shift-left) - (spec: 1 path-directory path-directory) - (spec: 1 s64vector-concatenate s64vector-concatenate) - (spec: 1 u16vector u16vector) - (spec: 1 string-shrink! string-shrink!) - (spec: 1 fxnand fxnand) - (spec: 1 bitwise-andc1 bitwise-andc1) - (spec: 1 file-attributes file-attributes) - (spec: 1 s32vector-copy s32vector-copy) - (spec: 1 script-directory script-directory) - (spec: 1 mutex-specific mutex-specific) - (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + nonprocedure-operator-exception-arguments + nonprocedure-operator-exception-arguments) + (spec: 1 fl> fl>) + (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) (spec: 1 - fixnum-overflow-exception-arguments - fixnum-overflow-exception-arguments) - (spec: 1 subvector subvector) - (spec: 1 u64vector? u64vector?) - (spec: 1 system-type-string system-type-string) + unbound-serial-number-exception-arguments + unbound-serial-number-exception-arguments) + (spec: 1 open-output-bytevector open-output-bytevector) + (spec: 1 fltanh fltanh) (spec: 1 - module-not-found-exception-arguments - module-not-found-exception-arguments) - (spec: 1 readtable-case-conversion? readtable-case-conversion?) - (spec: 1 concatenate! concatenate!) - (spec: 1 f32vector-copy! f32vector-copy!) - (spec: 1 subf32vector-fill! subf32vector-fill!) + terminated-thread-exception-arguments + terminated-thread-exception-arguments) + (spec: 1 remq remq) + (spec: 1 join-timeout-exception? join-timeout-exception?) + (spec: 1 output-port-column output-port-column) + (spec: 1 end-of-char-set? end-of-char-set?) + (spec: 1 thread-specific-set! thread-specific-set!) + (spec: 1 fx>= fx>=) (spec: 1 - unbound-os-environment-variable-exception-arguments - unbound-os-environment-variable-exception-arguments) - (spec: 1 service-info? service-info?) - (spec: 1 file-info-last-access-time file-info-last-access-time) - (spec: 1 make-thread make-thread) - (spec: 1 host-info? host-info?) - (spec: 1 range-exception? range-exception?) - (spec: 1 flfinite? flfinite?) + cfun-conversion-exception-message + cfun-conversion-exception-message) + (spec: 1 file-size file-size) + (spec: 1 network-info-name network-info-name) (spec: 1 - not-in-compilation-context-exception-procedure - not-in-compilation-context-exception-procedure) - (spec: 1 take take) - (spec: 1 socket-info? socket-info?) - (spec: 1 user-info-name user-info-name) - (spec: 1 flabs flabs) - (spec: 1 file-last-access-time file-last-access-time) - (spec: 1 network-info-number network-info-number) - (spec: 1 open-tcp-client open-tcp-client) - (spec: 1 readtable-max-write-length readtable-max-write-length) - (spec: 1 input-port-readtable-set! input-port-readtable-set!) - (spec: 1 udp-write-subu8vector udp-write-subu8vector) + datum-parsing-exception-parameters + datum-parsing-exception-parameters) + (spec: 1 random-u8vector random-u8vector) (spec: 1 - unterminated-process-exception-procedure - unterminated-process-exception-procedure) + file-info-last-modification-time + file-info-last-modification-time) + (spec: 1 unbound-global-exception? unbound-global-exception?) + (spec: 1 mutex-state mutex-state) + (spec: 1 flasin flasin) + (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 readtable-max-write-length readtable-max-write-length) + (spec: 1 table-length table-length) (spec: 1 - initialized-thread-exception-procedure - initialized-thread-exception-procedure) - (spec: 1 tenth tenth) + unknown-keyword-argument-exception? + unknown-keyword-argument-exception?) + (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) + (spec: 1 with-exception-catcher with-exception-catcher) + (spec: 1 f32vector-copy f32vector-copy) + (spec: 1 make-table make-table) + (spec: 1 u32vector-fill! u32vector-fill!) + (spec: 1 string-prefix-length-ci string-prefix-length-ci) + (spec: 1 primordial-exception-handler primordial-exception-handler) + (spec: 1 u16vector-length u16vector-length) + (spec: 1 ->char-set ->char-set) + (spec: 1 file-device file-device) + (spec: 1 bitwise-not bitwise-not) + (spec: 1 module-not-found-exception? module-not-found-exception?) + (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) + (spec: 1 serial-number->object serial-number->object) + (spec: 1 shell-command shell-command) + (spec: 1 bit-set? bit-set?) + (spec: 1 f64vector-length f64vector-length) + (spec: 1 seventh seventh) + (spec: 1 subs32vector-move! subs32vector-move!) + (spec: 1 subu64vector subu64vector) + (spec: 1 error-exception? error-exception?) + (spec: 1 char-set-union! char-set-union!) + (spec: 1 fxodd? fxodd?) (spec: 1 - length-mismatch-exception-arguments - length-mismatch-exception-arguments) - (spec: 1 fxandc1 fxandc1) - (spec: 1 s16vector-fill! s16vector-fill!) - (spec: 1 thread-specific thread-specific) - (spec: 1 fourth fourth) - (spec: 1 display-exception-in-context display-exception-in-context) - (spec: 1 keyword->string keyword->string) + thread-mailbox-extract-and-rewind + thread-mailbox-extract-and-rewind) + (spec: 1 u8vector-copy! u8vector-copy!) + (spec: 1 user-name user-name) + (spec: 1 char-set-difference char-set-difference) + (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) + (spec: 1 write-substring write-substring) + (spec: 1 thread-state-waiting? thread-state-waiting?) + (spec: 1 any-bits-set? any-bits-set?) + (spec: 1 poll-point poll-point) + (spec: 1 s32vector s32vector) + (spec: 1 type-exception-arg-id type-exception-arg-id) + (spec: 1 every every) + (spec: 1 fxxor fxxor) + (spec: 1 s8vector? s8vector?) + (spec: 1 unbox unbox) + (spec: 1 flonum? flonum?) + (spec: 1 repl-highlight-source-level repl-highlight-source-level) + (spec: 1 flfloor flfloor) + (spec: 1 iota iota) + (spec: 1 sixth sixth) + (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) (spec: 1 - rpc-remote-error-exception-message - rpc-remote-error-exception-message) - (spec: 1 touch touch) - (spec: 1 thread-base-priority thread-base-priority) - (spec: 1 char-set-delete char-set-delete) - (spec: 1 repl-error-port repl-error-port) - (spec: 1 string-concatenate string-concatenate) - (spec: 1 getenv getenv) - (spec: 1 s8vector-set s8vector-set) - (spec: 1 thread-state-uninitialized? thread-state-uninitialized?) - (spec: 1 make-condition-variable make-condition-variable) - (spec: 1 append-reverse! append-reverse!) - (spec: 1 subs16vector-move! subs16vector-move!) - (spec: 1 with-input-from-process with-input-from-process) - (spec: 1 u32vector-set u32vector-set) - (spec: 1 continuation-capture continuation-capture) - (spec: 1 bit-swap bit-swap) - (spec: 1 s32vector-set! s32vector-set!) - (spec: 1 path-extension path-extension) - (spec: 1 char-set-union char-set-union) - (spec: 1 fxwrap* fxwrap*) - (spec: 1 link-flat link-flat) - (spec: 1 list-set list-set) - (spec: 1 help-browser help-browser) - (spec: 1 second second) + unterminated-process-exception? + unterminated-process-exception?) + (spec: 1 char-set->list char-set->list) + (spec: 1 os-exception-code os-exception-code) + (spec: 1 s16vector-append s16vector-append) + (spec: 1 bit-field-set bit-field-set) + (spec: 1 network-info-aliases network-info-aliases) + (spec: 1 read-all read-all) + (spec: 1 u64vector-length u64vector-length) + (spec: 1 dead-end dead-end) + (spec: 1 mutex-specific-set! mutex-specific-set!) + (spec: 1 file-info-last-change-time file-info-last-change-time) + (spec: 1 range-exception-arg-id range-exception-arg-id) (spec: 1 - expression-parsing-exception-parameters - expression-parsing-exception-parameters) - (spec: 1 make-s32vector make-s32vector) - (spec: 1 subu32vector subu32vector) + unbound-global-exception-variable + unbound-global-exception-variable) + (spec: 1 box? box?) + (spec: 1 current-processor current-processor) + (spec: 1 readtable-max-write-level-set readtable-max-write-level-set) (spec: 1 - inactive-thread-exception-arguments - inactive-thread-exception-arguments) - (spec: 1 thread-thread-group thread-thread-group) - (spec: 1 type-exception? type-exception?) - (spec: 1 multiple-c-return-exception? multiple-c-return-exception?) - (spec: 1 bitwise-orc1 bitwise-orc1) - (spec: 1 u64vector-ref u64vector-ref) - (spec: 1 read-file-string-list read-file-string-list) - (spec: 1 fixnum? fixnum?) - (spec: 1 u16vector-set! u16vector-set!) - (spec: 1 condition-variable-specific condition-variable-specific) - (spec: 1 random-source-state-ref random-source-state-ref) - (spec: 1 file-info-mode file-info-mode) - (spec: 1 u8vector-fill! u8vector-fill!) - (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) - (spec: 1 not-pair? not-pair?) - (spec: 1 table-for-each table-for-each) - (spec: 1 fldenominator fldenominator) - (spec: 1 open-u8vector-pipe open-u8vector-pipe) - (spec: 1 thread-group->thread-vector thread-group->thread-vector) - (spec: 1 foreign-release! foreign-release!) + invalid-hash-number-exception-procedure + invalid-hash-number-exception-procedure) + (spec: 1 table-ref table-ref) + (spec: 1 ucs-range->char-set! ucs-range->char-set!) (spec: 1 - datum-parsing-exception-parameters - datum-parsing-exception-parameters) - (spec: 1 file-size file-size) + no-such-file-or-directory-exception? + no-such-file-or-directory-exception?) (spec: 1 - input-port-characters-buffered - input-port-characters-buffered) - (spec: 1 ninth ninth) - (spec: 1 object->serial-number object->serial-number) - (spec: 1 tcp-client-peer-socket-info tcp-client-peer-socket-info) - (spec: 1 flnan? flnan?) + fixnum-overflow-exception-procedure + fixnum-overflow-exception-procedure) (spec: 1 unknown-keyword-argument-exception-procedure unknown-keyword-argument-exception-procedure) - (spec: 1 user-info? user-info?) - (spec: 1 output-port-byte-position output-port-byte-position) - (spec: 1 char-set char-set) - (spec: 1 fx= fx=) - (spec: 1 thread-name thread-name) + (spec: 1 f32vector-length f32vector-length) + (spec: 1 processor? processor?) + (spec: 1 make-tls-context make-tls-context) + (spec: 1 string=?-hash string=?-hash) + (spec: 1 u32vector-ref u32vector-ref) + (spec: 1 will? will?) (spec: 1 - permission-denied-exception-arguments - permission-denied-exception-arguments) - (spec: 1 s64vector-set s64vector-set) - (spec: 1 address-info-socket-info address-info-socket-info) - (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) - (spec: 1 flsqrt flsqrt) - (spec: 1 s16vector-swap! s16vector-swap!) + expression-parsing-exception-kind + expression-parsing-exception-kind) + (spec: 1 scheduler-exception-reason scheduler-exception-reason) + (spec: 1 make-mutex make-mutex) + (spec: 1 string-prefix-length string-prefix-length) + (spec: 1 u16vector-set u16vector-set) + (spec: + 1 + module-not-found-exception-procedure + module-not-found-exception-procedure) + (spec: 1 file-creation-time file-creation-time) + (spec: 1 random-integer random-integer) + (spec: 1 subu8vector subu8vector) + (spec: 1 bitwise-nor bitwise-nor) + (spec: 1 f64vector-fill! f64vector-fill!) + (spec: 1 u8vector-copy u8vector-copy) + (spec: 1 subs64vector-move! subs64vector-move!) + (spec: 1 thread-name thread-name) + (spec: 1 xcons xcons) + (spec: 1 fxnot fxnot) + (spec: 1 s32vector-concatenate s32vector-concatenate) + (spec: 1 list->u32vector list->u32vector) + (spec: 1 char-set-union char-set-union) + (spec: 1 output-port-width output-port-width) + (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) + (spec: 1 s16vector-copy! s16vector-copy!) + (spec: 1 user-info? user-info?) + (spec: 1 thread-thread-group thread-thread-group) (spec: 1 char-set-diff+intersection! char-set-diff+intersection!) - (spec: 1 fxior fxior) - (spec: 1 list->f64vector list->f64vector) - (spec: 1 will? will?) - (spec: 1 s8vector-ref s8vector-ref) - (spec: 1 append-reverse append-reverse) - (spec: 1 subs32vector-move! subs32vector-move!) - (spec: 1 f64vector-length f64vector-length) - (spec: 1 bit-set? bit-set?) - (spec: 1 u32vector-ref u32vector-ref) - (spec: 1 path-expand path-expand) - (spec: 1 char-set-unfold! char-set-unfold!) - (spec: 1 fxsquare fxsquare) - (spec: 1 acosh acosh) - (spec: 1 s32vector? s32vector?) - (spec: 1 process-pid process-pid) + (spec: 1 append-reverse append-reverse) + (spec: 1 s8vector->list s8vector->list) + (spec: 1 type-exception-type-id type-exception-type-id) + (spec: 1 address-info-socket-info address-info-socket-info) + (spec: 1 fxwrapsquare fxwrapsquare) + (spec: 1 s64vector-append s64vector-append) + (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) + (spec: 1 repl-error-port repl-error-port) + (spec: 1 keyword->string keyword->string) + (spec: 1 open-directory open-directory) + (spec: 1 flinfinite? flinfinite?) (spec: 1 - expression-parsing-exception-kind - expression-parsing-exception-kind) - (spec: 1 make-s16vector make-s16vector) - (spec: 1 started-thread-exception? started-thread-exception?) - (spec: 1 string-prefix-length string-prefix-length) - (spec: 1 type-exception-type-id type-exception-type-id) - (spec: 1 random-source-make-reals random-source-make-reals) - (spec: 1 file-device file-device) - (spec: 1 subu64vector subu64vector) - (spec: 1 bitwise-not bitwise-not) - (spec: 1 readtable-comment-handler readtable-comment-handler) - (spec: 1 fixnum-overflow-exception? fixnum-overflow-exception?) - (spec: 1 integer-sqrt integer-sqrt) - (spec: 1 unbound-global-exception? unbound-global-exception?) - (spec: 1 protocol-info protocol-info) - (spec: 1 f32vector-length f32vector-length) - (spec: 1 set-box! set-box!) - (spec: 1 string=?-hash string=?-hash) - (spec: 1 u16vector-set u16vector-set) + number-of-arguments-limit-exception-arguments + number-of-arguments-limit-exception-arguments) + (spec: 1 os-exception-arguments os-exception-arguments) (spec: 1 - file-info-last-modification-time - file-info-last-modification-time) - (spec: 1 u8vector-copy! u8vector-copy!) - (spec: 1 unbreak unbreak) - (spec: 1 take-right take-right) + length-mismatch-exception-arg-id + length-mismatch-exception-arg-id) (spec: 1 - invalid-hash-number-exception-arguments - invalid-hash-number-exception-arguments) - (spec: 1 flcosh flcosh) + rpc-remote-error-exception-arguments + rpc-remote-error-exception-arguments) + (spec: 1 char-set char-set) + (spec: 1 open-output-vector open-output-vector) + (spec: 1 fold-right fold-right) + (spec: 1 u64vector-fill! u64vector-fill!) + (spec: 1 initialized-thread-exception? initialized-thread-exception?) + (spec: 1 file-owner file-owner) + (spec: 1 network-info network-info) + (spec: 1 subu32vector-fill! subu32vector-fill!) + (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + (spec: 1 box box) + (spec: 1 mutex-specific mutex-specific) + (spec: 1 file-info-last-access-time file-info-last-access-time) + (spec: 1 random-source-state-set! random-source-state-set!) + (spec: 1 ucs-range->char-set ucs-range->char-set) + (spec: 1 flacosh flacosh) (spec: 1 - readtable-write-extended-read-macros? - readtable-write-extended-read-macros?) - (spec: 1 open-u8vector open-u8vector) - (spec: 1 thread-interrupt! thread-interrupt!) - (spec: 1 foreign-address foreign-address) - (spec: 1 datum-parsing-exception-kind datum-parsing-exception-kind) - (spec: 1 input-port-char-position input-port-char-position) + nonprocedure-operator-exception? + nonprocedure-operator-exception?) + (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) + (spec: 1 input-port-timeout-set! input-port-timeout-set!) (spec: 1 unknown-keyword-argument-exception-arguments unknown-keyword-argument-exception-arguments) (spec: 1 - terminated-thread-exception-arguments - terminated-thread-exception-arguments) - (spec: 1 car+cdr car+cdr) - (spec: 1 flmin flmin) - (spec: 1 remq remq) - (spec: 1 user-info-uid user-info-uid) - (spec: 1 thread-start! thread-start!) - (spec: 1 length-mismatch-exception? length-mismatch-exception?) - (spec: 1 fx<= fx<=) - (spec: 1 s16vector s16vector) - (spec: 1 void void) - (spec: 1 gc-report-set! gc-report-set!) - (spec: 1 s64vector-swap! s64vector-swap!) - (spec: 1 untrace untrace) - (spec: 1 open-input-process open-input-process) + no-such-file-or-directory-exception-procedure + no-such-file-or-directory-exception-procedure) (spec: 1 - keyword-expected-exception-arguments - keyword-expected-exception-arguments) - (spec: 1 flsinh flsinh) - (spec: 1 vector->bits vector->bits) - (spec: 1 thread-state-waiting-for thread-state-waiting-for) - (spec: 1 char-set-diff+intersection char-set-diff+intersection) - (spec: 1 fxif fxif) - (spec: 1 eq?-hash eq?-hash) - (spec: 1 will-testator will-testator) + fixnum-overflow-exception-arguments + fixnum-overflow-exception-arguments) + (spec: 1 read-file-u8vector read-file-u8vector) + (spec: 1 s64vector-swap! s64vector-swap!) (spec: 1 string-contains-ci string-contains-ci) - (spec: - 1 - mailbox-receive-timeout-exception? - mailbox-receive-timeout-exception?) - (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) + (spec: 1 f32vector-append f32vector-append) + (spec: 1 host-name host-name) + (spec: 1 processor-id processor-id) + (spec: 1 subs32vector-fill! subs32vector-fill!) + (spec: 1 u32vector-copy u32vector-copy) + (spec: 1 will-testator will-testator) + (spec: 1 executable-path executable-path) + (spec: 1 u16vector-copy! u16vector-copy!) (spec: 1 wrong-processor-c-return-exception? wrong-processor-c-return-exception?) - (spec: 1 u64vector-concatenate u64vector-concatenate) - (spec: 1 cons* cons*) - (spec: 1 subs32vector-fill! subs32vector-fill!) - (spec: 1 any any) - (spec: 1 f64vector-set f64vector-set) - (spec: 1 timeout->time timeout->time) - (spec: 1 fxorc1 fxorc1) - (spec: 1 list->u8vector list->u8vector) - (spec: 1 char-set-xor char-set-xor) - (spec: 1 s32vector-swap! s32vector-swap!) - (spec: 1 u16vector-copy! u16vector-copy!) - (spec: 1 string-prefix-ci? string-prefix-ci?) - (spec: 1 expression-parsing-exception? expression-parsing-exception?) - (spec: 1 random-source-make-integers random-source-make-integers) - (spec: 1 cosh cosh) - (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 bitwise-nand bitwise-nand) + (spec: 1 make-s8vector make-s8vector) + (spec: 1 file-attributes file-attributes) (spec: 1 - file-exists-exception-arguments - file-exists-exception-arguments) - (spec: 1 module-search-order-reset! module-search-order-reset!) + module-not-found-exception-arguments + module-not-found-exception-arguments) + (spec: 1 r7rs-raise r7rs-raise) + (spec: 1 u8vector-concatenate u8vector-concatenate) + (spec: 1 bit-field-rotate bit-field-rotate) + (spec: 1 f64vector-copy! f64vector-copy!) + (spec: 1 thread-interrupt! thread-interrupt!) + (spec: 1 user-info-uid user-info-uid) + (spec: 1 char-set-unfold! char-set-unfold!) + (spec: 1 error-exception-message error-exception-message) + (spec: 1 fxnor fxnor) + (spec: 1 s32vector? s32vector?) + (spec: 1 void void) + (spec: 1 char-set-diff+intersection char-set-diff+intersection) + (spec: 1 list-sort! list-sort!) + (spec: 1 fxarithmetic-shift fxarithmetic-shift) + (spec: 1 output-port-timeout-set! output-port-timeout-set!) + (spec: 1 started-thread-exception? started-thread-exception?) + (spec: 1 any any) + (spec: 1 list->s64vector list->s64vector) + (spec: 1 thread-state-waiting-for thread-state-waiting-for) + (spec: 1 s8vector-shrink! s8vector-shrink!) + (spec: 1 string-prefix-ci? string-prefix-ci?) + (spec: 1 acosh acosh) + (spec: 1 make-f32vector make-f32vector) + (spec: 1 fxwrapquotient fxwrapquotient) + (spec: 1 path-volume path-volume) + (spec: 1 table-for-each table-for-each) + (spec: 1 divide-by-zero-exception? divide-by-zero-exception?) (spec: 1 - readtable-case-conversion?-set - readtable-case-conversion?-set) - (spec: 1 subu32vector-move! subu32vector-move!) - (spec: 1 integer-nth-root integer-nth-root) - (spec: 1 bitwise-if bitwise-if) - (spec: 1 fl+ fl+) - (spec: 1 u8vector->list u8vector->list) - (spec: 1 u32vector-copy u32vector-copy) - (spec: 1 make-u64vector make-u64vector) + nonprocedure-operator-exception-code + nonprocedure-operator-exception-code) + (spec: 1 flodd? flodd?) (spec: 1 unbound-serial-number-exception-procedure unbound-serial-number-exception-procedure) - (spec: 1 bit-field-replace bit-field-replace) - (spec: 1 f32vector-set f32vector-set) - (spec: 1 u8vector-shrink! u8vector-shrink!) - (spec: 1 current-exception-handler current-exception-handler) - (spec: 1 symbol-hash symbol-hash) - (spec: 1 file-info-owner file-info-owner) - (spec: 1 take! take!) - (spec: 1 flasinh flasinh) + (spec: 1 thread-group->thread-vector thread-group->thread-vector) + (spec: 1 call/cc call/cc) + (spec: 1 real-time real-time) + (spec: 1 flexpt flexpt) (spec: 1 - readtable-write-cdr-read-macros?-set - readtable-write-cdr-read-macros?-set) - (spec: 1 call-with-input-string call-with-input-string) - (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) - (spec: 1 thread-init! thread-init!) - (spec: 1 open-vector open-vector) - (spec: 1 udp-write-u8vector udp-write-u8vector) - (spec: 1 network-info? network-info?) - (spec: 1 datum-parsing-exception? datum-parsing-exception?) - (spec: 1 flinteger? flinteger?) - (spec: 1 iota iota) - (spec: 1 object->u8vector object->u8vector) - (spec: 1 remove! remove!) - (spec: 1 thread-priority thread-priority) + invalid-utf8-encoding-exception? + invalid-utf8-encoding-exception?) + (spec: + 1 + unterminated-process-exception-arguments + unterminated-process-exception-arguments) + (spec: 1 s16vector s16vector) + (spec: 1 thread-start! thread-start!) + (spec: 1 vector->bits vector->bits) + (spec: 1 open-output-u8vector open-output-u8vector) + (spec: 1 fold fold) + (spec: 1 u64vector-copy! u64vector-copy!) + (spec: 1 file-number-of-links file-number-of-links) + (spec: + 1 + datum-parsing-exception-readenv + datum-parsing-exception-readenv) + (spec: 1 unbound-global-exception-code unbound-global-exception-code) + (spec: 1 file-info-inode file-info-inode) + (spec: 1 mutex-name mutex-name) + (spec: 1 u8vector? u8vector?) + (spec: 1 flacos flacos) + (spec: 1 table-merge table-merge) + (spec: + 1 + nonprocedure-operator-exception-rte + nonprocedure-operator-exception-rte) + (spec: + 1 + readtable-max-write-length-set + readtable-max-write-length-set) + (spec: + 1 + no-such-file-or-directory-exception-arguments + no-such-file-or-directory-exception-arguments) + (spec: 1 read-substring read-substring) + (spec: 1 will-execute! will-execute!) + (spec: 1 host-info? host-info?) + (spec: 1 concatenate! concatenate!) + (spec: 1 f32vector-copy! f32vector-copy!) + (spec: 1 make-thread make-thread) + (spec: 1 setenv setenv) + (spec: 1 string-contains string-contains) + (spec: 1 u32vector-length u32vector-length) + (spec: 1 subs32vector subs32vector) + (spec: 1 fifth fifth) + (spec: 1 bitwise-merge bitwise-merge) + (spec: 1 raise raise) + (spec: 1 subu64vector-fill! subu64vector-fill!) + (spec: 1 u8vector-append u8vector-append) + (spec: 1 f64vector-copy f64vector-copy) + (spec: 1 bit-field-reverse bit-field-reverse) + (spec: 1 console-port console-port) + (spec: 1 subs64vector subs64vector) + (spec: 1 thread-mailbox-next thread-mailbox-next) + (spec: 1 fxnegative? fxnegative?) + (spec: 1 char-set-unfold char-set-unfold) + (spec: 1 list->table list->table) + (spec: 1 user-info-shell user-info-shell) + (spec: 1 s64vector s64vector) + (spec: 1 char-set-delete! char-set-delete!) + (spec: 1 fxandc2 fxandc2) + (spec: 1 output-port-readtable-set! output-port-readtable-set!) + (spec: 1 s32vector->list s32vector->list) + (spec: 1 string->keyword string->keyword) + (spec: 1 thread-suspend! thread-suspend!) (spec: 1 - length-mismatch-exception-procedure - length-mismatch-exception-procedure) - (spec: 1 output-port-column output-port-column) - (spec: 1 char-set->string char-set->string) - (spec: 1 thread-specific-set! thread-specific-set!) - (spec: 1 string-ci=?-hash string-ci=?-hash) - (spec: 1 trace trace) - (spec: 1 fxzero? fxzero?) - (spec: 1 permission-denied-exception? permission-denied-exception?) - (spec: 1 s64vector-shrink! s64vector-shrink!) - (spec: 1 thread-base-priority-set! thread-base-priority-set!) - (spec: 1 open-input-vector open-input-vector) - (spec: 1 vector-any vector-any) - (spec: 1 fxbit-count fxbit-count) - (spec: 1 char-set-difference! char-set-difference!) - (spec: 1 tty? tty?) + started-thread-exception-procedure + started-thread-exception-procedure) + (spec: 1 vector-inc! vector-inc!) + (spec: 1 type-exception-arguments type-exception-arguments) + (spec: 1 with-output-to-vector with-output-to-vector) + (spec: 1 address-info-family address-info-family) + (spec: 1 fxwraplogical-shift-right fxwraplogical-shift-right) + (spec: 1 every-bit-set? every-bit-set?) + (spec: 1 path-strip-volume path-strip-volume) + (spec: 1 unbreak unbreak) (spec: 1 - mailbox-receive-timeout-exception-procedure - mailbox-receive-timeout-exception-procedure) - (spec: 1 s8vector-set! s8vector-set!) - (spec: 1 with-exception-handler with-exception-handler) - (spec: 1 subu16vector subu16vector) - (spec: 1 u64vector-append u64vector-append) - (spec: 1 f64vector-ref f64vector-ref) - (spec: 1 step-level-set! step-level-set!) - (spec: 1 fxodd? fxodd?) - (spec: 1 path-normalize path-normalize) - (spec: 1 every every) - (spec: 1 char-set-union! char-set-union!) - (spec: 1 u16vector-copy u16vector-copy) - (spec: 1 string-suffix? string-suffix?) - (spec: 1 seconds->time seconds->time) - (spec: 1 error-exception? error-exception?) + divide-by-zero-exception-procedure + divide-by-zero-exception-procedure) + (spec: 1 link-flat link-flat) + (spec: 1 table-copy table-copy) + (spec: 1 car+cdr car+cdr) + (spec: 1 directory-files directory-files) + (spec: 1 flhypot flhypot) (spec: 1 - expression-parsing-exception-source - expression-parsing-exception-source) - (spec: 1 process-status process-status) - (spec: 1 u8vector u8vector) - (spec: 1 module-search-order-add! module-search-order-add!) + invalid-utf8-encoding-exception-procedure + invalid-utf8-encoding-exception-procedure) + (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 untrace untrace) + (spec: 1 test-bit-field? test-bit-field?) + (spec: 1 length+ length+) (spec: 1 - random-source-pseudo-randomize! - random-source-pseudo-randomize!) - (spec: 1 cpu-time cpu-time) + thread-state-abnormally-terminated-reason + thread-state-abnormally-terminated-reason) + (spec: 1 s16vector-concatenate s16vector-concatenate) + (spec: 1 flzero? flzero?) + (spec: 1 f64vector-set! f64vector-set!) + (spec: 1 bits->vector bits->vector) + (spec: 1 current-readtable current-readtable) + (spec: 1 file-info-size file-info-size) + (spec: 1 range-exception-arguments range-exception-arguments) (spec: 1 - unbound-serial-number-exception-arguments - unbound-serial-number-exception-arguments) - (spec: 1 noncontinuable-exception? noncontinuable-exception?) - (spec: 1 bitwise-for-each bitwise-for-each) - (spec: 1 fl* fl*) - (spec: 1 readtable-eval-allowed? readtable-eval-allowed?) - (spec: 1 subf64vector-move! subf64vector-move!) - (spec: 1 make-u32vector make-u32vector) - (spec: 1 bit-field-every? bit-field-every?) - (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) - (spec: 1 f32vector-ref f32vector-ref) - (spec: 1 protocol-info-name protocol-info-name) - (spec: 1 u32vector-concatenate u32vector-concatenate) - (spec: 1 mutex? mutex?) - (spec: 1 u8vector-set! u8vector-set!) - (spec: 1 file-info-number-of-links file-info-number-of-links) - (spec: 1 write-subu8vector write-subu8vector) - (spec: 1 uncaught-exception-arguments uncaught-exception-arguments) - (spec: 1 flasin flasin) + not-in-compilation-context-exception-procedure + not-in-compilation-context-exception-procedure) + (spec: 1 table-search table-search) (spec: 1 readtable-sharing-allowed? readtable-sharing-allowed?) - (spec: 1 call-with-input-process call-with-input-process) + (spec: 1 flceiling flceiling) (spec: 1 invalid-hash-number-exception? invalid-hash-number-exception?) - (spec: 1 tanh tanh) - (spec: 1 open-udp open-udp) + (spec: 1 system-stamp system-stamp) + (spec: 1 unbound-key-exception? unbound-key-exception?) + (spec: 1 address-info-socket-type address-info-socket-type) + (spec: 1 service-info service-info) + (spec: 1 make-u16vector make-u16vector) + (spec: 1 subf32vector subf32vector) + (spec: 1 u16vector-set! u16vector-set!) + (spec: 1 condition-variable-specific condition-variable-specific) + (spec: 1 scheduler-exception? scheduler-exception?) + (spec: 1 type-exception? type-exception?) (spec: 1 - thread-mailbox-extract-and-rewind - thread-mailbox-extract-and-rewind) - (spec: 1 unbound-global-exception-code unbound-global-exception-code) + expression-parsing-exception-parameters + expression-parsing-exception-parameters) + (spec: 1 help-browser help-browser) + (spec: 1 module-whitelist-add! module-whitelist-add!) + (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 u64vector-shrink! u64vector-shrink!) + (spec: 1 random-real random-real) (spec: 1 - datum-parsing-exception-readenv - datum-parsing-exception-readenv) + file-exists-exception-procedure + file-exists-exception-procedure) + (spec: 1 bitwise-xor bitwise-xor) (spec: 1 - unknown-keyword-argument-exception? - unknown-keyword-argument-exception?) - (spec: 1 flinfinite? flinfinite?) - (spec: 1 file-number-of-links file-number-of-links) - (spec: 1 object->string object->string) - (spec: 1 terminated-thread-exception? terminated-thread-exception?) - (spec: 1 user-name user-name) - (spec: 1 output-port-char-position output-port-char-position) - (spec: 1 char-set->list char-set->list) - (spec: 1 fxxor fxxor) + sfun-conversion-exception-message + sfun-conversion-exception-message) + (spec: 1 subs8vector subs8vector) + (spec: 1 u32vector-swap! u32vector-swap!) + (spec: 1 s32vector-copy s32vector-copy) + (spec: 1 list->u64vector list->u64vector) + (spec: 1 path-directory path-directory) + (spec: 1 thread-yield! thread-yield!) + (spec: 1 fxquotient fxquotient) + (spec: 1 s16vector-fill! s16vector-fill!) + (spec: 1 thread-state-initialized? thread-state-initialized?) + (spec: 1 vector-concatenate vector-concatenate) + (spec: 1 fxeven? fxeven?) + (spec: 1 char-set-filter! char-set-filter!) (spec: 1 - permission-denied-exception-procedure - permission-denied-exception-procedure) - (spec: 1 s64vector-length s64vector-length) + mailbox-receive-timeout-exception-arguments + mailbox-receive-timeout-exception-arguments) + (spec: 1 port-settings-set! port-settings-set!) + (spec: 1 s8vector-append s8vector-append) + (spec: 1 with-input-from-process with-input-from-process) + (spec: 1 getenv getenv) + (spec: 1 append-reverse! append-reverse!) + (spec: 1 s64vector-concatenate s64vector-concatenate) + (spec: 1 fixnum? fixnum?) + (spec: 1 third third) + (spec: 1 open-dummy open-dummy) + (spec: 1 repl-result-history-ref repl-result-history-ref) + (spec: 1 keyword-hash keyword-hash) + (spec: 1 drop drop) (spec: 1 - repl-result-history-max-length-set! - repl-result-history-max-length-set!) - (spec: 1 open-input-u8vector open-input-u8vector) - (spec: 1 keyword-expected-exception? keyword-expected-exception?) + number-of-arguments-limit-exception-procedure + number-of-arguments-limit-exception-procedure) + (spec: 1 flinteger? flinteger?) (spec: 1 - thread-group->thread-group-list - thread-group->thread-group-list) - (spec: 1 fxarithmetic-shift-right fxarithmetic-shift-right) - (spec: 1 s16vector-set s16vector-set) - (spec: 1 char-set-difference char-set-difference) - (spec: 1 list->char-set list->char-set) - (spec: 1 poll-point poll-point) - (spec: 1 thread-state-waiting? thread-state-waiting?) - (spec: 1 string-prefix-length-ci string-prefix-length-ci) - (spec: 1 tty-mode-set! tty-mode-set!) - (spec: 1 u32vector? u32vector?) - (spec: 1 f64vector-shrink! f64vector-shrink!) - (spec: 1 bitwise-and bitwise-and) - (spec: 1 list->s8vector list->s8vector) - (spec: 1 fxmodulo fxmodulo) - (spec: 1 group-info group-info) - (spec: 1 ->char-set ->char-set) - (spec: 1 circular-list circular-list) - (spec: 1 primordial-exception-handler primordial-exception-handler) - (spec: 1 s8vector? s8vector?) - (spec: 1 raise raise) - (spec: 1 file-exists-exception? file-exists-exception?) - (spec: 1 u64vector-swap! u64vector-swap!) - (spec: 1 input-port-column input-port-column) - (spec: 1 read-substring read-substring) - (spec: 1 fl- fl-) - (spec: 1 default-random-source default-random-source) + display-continuation-dynamic-environment + display-continuation-dynamic-environment) (spec: 1 - no-such-file-or-directory-exception-arguments - no-such-file-or-directory-exception-arguments) - (spec: 1 subu64vector-fill! subu64vector-fill!) - (spec: 1 serial-number->object serial-number->object) - (spec: 1 f32vector-shrink! f32vector-shrink!) - (spec: 1 make-table make-table) - (spec: 1 subs64vector subs64vector) - (spec: 1 file-info-type file-info-type) - (spec: 1 create-symbolic-link create-symbolic-link) - (spec: 1 mutex-name mutex-name) - (spec: 1 readtable-eval-allowed?-set readtable-eval-allowed?-set) + length-mismatch-exception-arguments + length-mismatch-exception-arguments) (spec: 1 - nonprocedure-operator-exception-code - nonprocedure-operator-exception-code) - (spec: 1 call-with-input-vector call-with-input-vector) - (spec: 1 fl>= fl>=) - (spec: 1 table-ref table-ref) - (spec: 1 socket-info-port-number socket-info-port-number) - (spec: 1 fltruncate fltruncate) - (spec: 1 thread-group-specific thread-group-specific) + rpc-remote-error-exception-message + rpc-remote-error-exception-message) + (spec: 1 thread-priority-boost thread-priority-boost) + (spec: 1 fx- fx-) + (spec: 1 char-set-any char-set-any) + (spec: 1 open-tcp-client open-tcp-client) + (spec: 1 bits->list bits->list) + (spec: 1 continuation-return continuation-return) + (spec: 1 f64vector-set f64vector-set) + (spec: 1 socket-info? socket-info?) + (spec: 1 thread-group-name thread-group-name) + (spec: 1 udp-local-socket-info udp-local-socket-info) + (spec: 1 input-port-char-position input-port-char-position) + (spec: 1 u8vector-length u8vector-length) + (spec: 1 current-time current-time) + (spec: 1 file-info-owner file-info-owner) (spec: 1 uncaught-exception? uncaught-exception?) + (spec: 1 call-with-input-vector call-with-input-vector) + (spec: + 1 + not-in-compilation-context-exception-arguments + not-in-compilation-context-exception-arguments) + (spec: 1 flatanh flatanh) + (spec: 1 readtable-start-syntax-set readtable-start-syntax-set) + (spec: 1 system-version system-version) (spec: 1 - initialized-thread-exception-arguments - initialized-thread-exception-arguments) - (spec: 1 null-list? null-list?) + unbound-key-exception-procedure + unbound-key-exception-procedure) + (spec: 1 service-info-port-number service-info-port-number) + (spec: 1 make-u8vector make-u8vector) + (spec: 1 condition-variable-signal! condition-variable-signal!) + (spec: 1 proper-list? proper-list?) + (spec: 1 f32vector-set! f32vector-set!) + (spec: 1 identity identity) + (spec: 1 make-random-source make-random-source) + (spec: 1 string-set string-set) + (spec: 1 u16vector? u16vector?) + (spec: 1 help help) + (spec: 1 u64vector-set! u64vector-set!) + (spec: 1 subvector-fill! subvector-fill!) + (spec: 1 bitwise-unfold bitwise-unfold) + (spec: 1 create-fifo create-fifo) (spec: 1 - readtable-write-extended-read-macros?-set - readtable-write-extended-read-macros?-set) - (spec: 1 flexpt flexpt) - (spec: 1 thread-quantum-set! thread-quantum-set!) - (spec: 1 char-set-adjoin! char-set-adjoin!) - (spec: 1 foreign? foreign?) - (spec: 1 vector-cas! vector-cas!) - (spec: 1 path-strip-extension path-strip-extension) - (spec: 1 fxwraparithmetic-shift fxwraparithmetic-shift) - (spec: 1 list-tabulate list-tabulate) - (spec: 1 rename-file rename-file) - (spec: 1 flodd? flodd?) - (spec: 1 s16vector->list s16vector->list) + file-exists-exception-arguments + file-exists-exception-arguments) + (spec: 1 inactive-thread-exception? inactive-thread-exception?) + (spec: 1 module-search-order-reset! module-search-order-reset!) + (spec: 1 random-source-make-integers random-source-make-integers) + (spec: + 1 + sfun-conversion-exception-code + sfun-conversion-exception-code) + (spec: 1 force-output force-output) + (spec: 1 open-string-pipe open-string-pipe) + (spec: 1 s32vector-length s32vector-length) + (spec: 1 u32vector-shrink! u32vector-shrink!) + (spec: 1 fxpositive? fxpositive?) + (spec: 1 s16vector-ref s16vector-ref) + (spec: 1 list->bits list->bits) + (spec: 1 char-set-filter char-set-filter) (spec: 1 thread-state-normally-terminated? thread-state-normally-terminated?) - (spec: 1 char-set-filter char-set-filter) - (spec: 1 fxand fxand) - (spec: 1 s64vector? s64vector?) + (spec: 1 fxeqv fxeqv) + (spec: 1 s8vector-copy! s8vector-copy!) + (spec: 1 main main) + (spec: 1 vector-cas! vector-cas!) (spec: 1 tty-history-set! tty-history-set!) - (spec: 1 generate-proper-tail-calls generate-proper-tail-calls) - (spec: 1 protocol-info? protocol-info?) - (spec: 1 f64vector-set! f64vector-set!) - (spec: 1 subs8vector subs8vector) - (spec: 1 bits->vector bits->vector) - (spec: 1 u32vector-swap! u32vector-swap!) (spec: 1 with-input-from-port with-input-from-port) - (spec: 1 thread-terminate! thread-terminate!) - (spec: 1 char-set-xor! char-set-xor!) - (spec: 1 fxmin fxmin) - (spec: 1 s32vector-append s32vector-append) - (spec: 1 pretty-print pretty-print) - (spec: 1 s8vector-swap! s8vector-swap!) - (spec: 1 make-f64vector make-f64vector) - (spec: 1 group-info-name group-info-name) - (spec: 1 string-set string-set) - (spec: 1 subu8vector-fill! subu8vector-fill!) + (spec: 1 get-output-vector get-output-vector) + (spec: 1 s64vector-fill! s64vector-fill!) + (spec: 1 fl+* fl+*) + (spec: 1 dotted-list? dotted-list?) (spec: 1 - file-exists-exception-procedure - file-exists-exception-procedure) - (spec: 1 u64vector-shrink! u64vector-shrink!) - (spec: 1 bitwise-xor bitwise-xor) - (spec: 1 read-file-string read-file-string) - (spec: 1 fl+* fl+*) - (spec: 1 input-port-readtable input-port-readtable) - (spec: 1 system-stamp system-stamp) - (spec: 1 unbound-key-exception? unbound-key-exception?) - (spec: 1 u16vector? u16vector?) - (spec: 1 f32vector-set! f32vector-set!) - (spec: 1 condition-variable-signal! condition-variable-signal!) - (spec: 1 host-info-aliases host-info-aliases) - (spec: 1 file-info-size file-info-size) - (spec: 1 current-readtable current-readtable) - (spec: 1 mutex-lock! mutex-lock!) + repl-result-history-max-length-set! + repl-result-history-max-length-set!) + (spec: 1 flscalbn flscalbn) + (spec: 1 keyword-expected-exception? keyword-expected-exception?) + (spec: 1 tcp-server-socket-info tcp-server-socket-info) (spec: 1 - nonprocedure-operator-exception-arguments - nonprocedure-operator-exception-arguments) - (spec: 1 table-copy table-copy) + display-continuation-backtrace + display-continuation-backtrace) + (spec: 1 fllog1p fllog1p) + (spec: 1 char-set-adjoin! char-set-adjoin!) + (spec: 1 os-exception? os-exception?) + (spec: 1 fx+ fx+) + (spec: 1 reverse! reverse!) + (spec: 1 last-pair last-pair) + (spec: 1 socket-info-port-number socket-info-port-number) + (spec: 1 thread-group-specific thread-group-specific) + (spec: 1 bits bits) + (spec: 1 thread-quantum-set! thread-quantum-set!) + (spec: 1 network-info? network-info?) + (spec: 1 datum-parsing-exception? datum-parsing-exception?) + (spec: 1 mutex? mutex?) + (spec: 1 file-info-number-of-links file-info-number-of-links) + (spec: 1 break break) + (spec: 1 table-merge! table-merge!) + (spec: 1 compile-file compile-file) + (spec: 1 flatan flatan) + (spec: 1 readtable-max-write-level readtable-max-write-level) + (spec: + 1 + invalid-hash-number-exception-arguments + invalid-hash-number-exception-arguments) (spec: 1 call-with-input-u8vector call-with-input-u8vector) - (spec: 1 fl> fl>) - (spec: 1 readtable-max-unescaped-char readtable-max-unescaped-char) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 socket-info-family socket-info-family) - (spec: 1 fltanh fltanh) - (spec: 1 thread-group->thread-list thread-group->thread-list) + (spec: 1 noncontinuable-exception? noncontinuable-exception?) + (spec: 1 fl* fl*) + (spec: 1 read-subu8vector read-subu8vector) + (spec: + 1 + unbound-key-exception-arguments + unbound-key-exception-arguments) + (spec: 1 address-info-protocol address-info-protocol) + (spec: 1 make-thread-group make-thread-group) + (spec: 1 f32vector-fill! f32vector-fill!) (spec: 1 uncaught-exception-reason uncaught-exception-reason) - (spec: 1 ucs-range->char-set! ucs-range->char-set!) - (spec: 1 dead-end dead-end) - (spec: 1 tcp-client-local-socket-info tcp-client-local-socket-info) - (spec: 1 flexpm1 flexpm1) + (spec: 1 condition-variable-name condition-variable-name) + (spec: 1 println println) + (spec: 1 heap-overflow-exception? heap-overflow-exception?) + (spec: 1 arithmetic-shift arithmetic-shift) + (spec: 1 subu64vector-move! subu64vector-move!) + (spec: 1 module-search-order-add! module-search-order-add!) + (spec: 1 random-f64vector random-f64vector) + (spec: 1 u16vector-ref u16vector-ref) + (spec: 1 u64vector-set u64vector-set) + (spec: 1 bitwise-orc2 bitwise-orc2) + (spec: 1 cpu-time cpu-time) + (spec: 1 f64vector-ref f64vector-ref) (spec: 1 - display-continuation-environment - display-continuation-environment) - (spec: 1 open-vector-pipe open-vector-pipe) + sfun-conversion-exception-arguments + sfun-conversion-exception-arguments) + (spec: 1 subs64vector-fill! subs64vector-fill!) + (spec: 1 u32vector-set! u32vector-set!) + (spec: 1 list->u16vector list->u16vector) + (spec: 1 fxorc2 fxorc2) + (spec: 1 partition! partition!) + (spec: 1 s32vector-append s32vector-append) (spec: 1 thread-mailbox-rewind thread-mailbox-rewind) - (spec: 1 char-set-adjoin char-set-adjoin) - (spec: 1 path-strip-directory path-strip-directory) - (spec: 1 string->uninterned-symbol string->uninterned-symbol) - (spec: 1 fxwrapabs fxwrapabs) - (spec: 1 address-info-protocol address-info-protocol) - (spec: 1 s64vector->list s64vector->list) - (spec: 1 test-bit-field? test-bit-field?) - (spec: 1 keyword? keyword?) - (spec: 1 drop-right drop-right) - (spec: 1 output-port-line output-port-line) - (spec: 1 char-set-every char-set-every) - (spec: 1 fxabs fxabs) - (spec: 1 list->f32vector list->f32vector) - (spec: 1 eqv?-hash eqv?-hash) + (spec: 1 char-set-xor! char-set-xor!) + (spec: 1 fxbit-set? fxbit-set?) (spec: 1 s16vector-copy s16vector-copy) + (spec: 1 char-set-every char-set-every) + (spec: 1 get-output-u8vector get-output-u8vector) (spec: 1 - thread-state-abnormally-terminated? - thread-state-abnormally-terminated?) - (spec: 1 make-bitwise-generator make-bitwise-generator) + port-io-exception-handler-set! + port-io-exception-handler-set!) (spec: 1 s8vector s8vector) (spec: 1 append! append!) - (spec: 1 protocol-info-number protocol-info-number) - (spec: 1 subs64vector-move! subs64vector-move!) - (spec: 1 bit-field-set bit-field-set) - (spec: 1 f64vector? f64vector?) - (spec: 1 thread-suspend! thread-suspend!) - (spec: - 1 - started-thread-exception-procedure - started-thread-exception-procedure) - (spec: 1 fxremainder fxremainder) - (spec: 1 s32vector->list s32vector->list) + (spec: 1 thread-terminate! thread-terminate!) + (spec: 1 list= list=) (spec: 1 type-exception-procedure type-exception-procedure) - (spec: 1 group-info-members group-info-members) - (spec: 1 arithmetic-shift arithmetic-shift) - (spec: 1 make-root-thread make-root-thread) - (spec: 1 subu8vector subu8vector) - (spec: 1 u64vector-length u64vector-length) - (spec: 1 bitwise-nor bitwise-nor) - (spec: 1 file-group file-group) - (spec: - 1 - unbound-global-exception-variable - unbound-global-exception-variable) - (spec: - 1 - nonempty-input-port-character-buffer-exception? - nonempty-input-port-character-buffer-exception?) - (spec: 1 fl< fl<) - (spec: 1 process-times process-times) - (spec: 1 u16vector-ref u16vector-ref) - (spec: 1 condition-variable-name condition-variable-name) - (spec: 1 host-info-addresses host-info-addresses) - (spec: 1 f32vector? f32vector?) - (spec: 1 make-will make-will) - (spec: 1 random-source-randomize! random-source-randomize!) - (spec: 1 current-processor current-processor) - (spec: 1 u8vector-copy u8vector-copy) - (spec: 1 box? box?) - (spec: 1 file-inode file-inode) - (spec: 1 table->list table->list) - (spec: 1 xcons xcons) - (spec: 1 flcos flcos) + (spec: 1 s64vector->list s64vector->list) + (spec: 1 string->uninterned-symbol string->uninterned-symbol) (spec: 1 - nonprocedure-operator-exception-rte - nonprocedure-operator-exception-rte) - (spec: 1 call-with-output-process call-with-output-process) + keyword-expected-exception-procedure + keyword-expected-exception-procedure) + (spec: 1 repl-output-port repl-output-port) + (spec: 1 flilogb flilogb) + (spec: 1 os-exception-procedure os-exception-procedure) + (spec: 1 fx* fx*) + (spec: 1 char-set-adjoin char-set-adjoin) + (spec: 1 last last) + (spec: 1 open-string open-string) + (spec: 1 socket-info-family socket-info-family) (spec: 1 - readtable-keywords-allowed?-set - readtable-keywords-allowed?-set) - (spec: 1 sixth sixth) + thread-state-abnormally-terminated? + thread-state-abnormally-terminated?) + (spec: 1 bit-swap bit-swap) + (spec: 1 continuation-capture continuation-capture) + (spec: 1 network-info-number network-info-number) + (spec: 1 udp-destination-set! udp-destination-set!) + (spec: 1 file-type file-type) + (spec: 1 deadlock-exception? deadlock-exception?) + (spec: 1 input-port-byte-position input-port-byte-position) + (spec: 1 mutex-unlock! mutex-unlock!) + (spec: 1 range-exception-procedure range-exception-procedure) + (spec: 1 u8vector-fill! u8vector-fill!) + (spec: 1 file-info-mode file-info-mode) (spec: 1 - thread-group->thread-group-vector - thread-group->thread-group-vector) - (spec: 1 ucs-range->char-set ucs-range->char-set) - (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) - (spec: 1 filter! filter!) - (spec: 1 flmax flmax) + readtable-sharing-allowed?-set + readtable-sharing-allowed?-set) + (spec: 1 table-set! table-set!) + (spec: 1 uncaught-exception-procedure uncaught-exception-procedure) + (spec: 1 flasinh flasinh) + (spec: 1 call-with-input-string call-with-input-string) (spec: 1 - display-continuation-dynamic-environment - display-continuation-dynamic-environment) - (spec: 1 thread-mailbox-next thread-mailbox-next) - (spec: 1 fx< fx<) - (spec: 1 char-set-complement char-set-complement) - (spec: 1 string->keyword string->keyword) - (spec: 1 path-strip-volume path-strip-volume) - (spec: 1 address-info-family address-info-family) - (spec: 1 char-set<= char-set<=) - (spec: 1 s64vector s64vector) - (spec: 1 flsin flsin) - (spec: 1 keyword-hash keyword-hash) - (spec: 1 drop drop) + noncontinuable-exception-reason + noncontinuable-exception-reason) + (spec: 1 system-type system-type) + (spec: 1 address-info? address-info?) + (spec: 1 fxzero? fxzero?) + (spec: 1 f32vector-ref f32vector-ref) + (spec: 1 make-u32vector make-u32vector) + (spec: 1 service-info-aliases service-info-aliases) + (spec: 1 u16vector-shrink! u16vector-shrink!) + (spec: 1 condition-variable-broadcast! condition-variable-broadcast!) + (spec: 1 print print) (spec: 1 - thread-state-abnormally-terminated-reason - thread-state-abnormally-terminated-reason) - (spec: 1 list->char-set! list->char-set!) - (spec: 1 fxfirst-set-bit fxfirst-set-bit) - (spec: 1 output-port-readtable-set! output-port-readtable-set!) - (spec: 1 char-set-fold char-set-fold) - (spec: 1 s16vector-concatenate s16vector-concatenate) - (spec: 1 string-contains string-contains) - (spec: 1 with-input-from-string with-input-from-string) - (spec: 1 subs32vector subs32vector) - (spec: 1 u32vector-length u32vector-length) - (spec: 1 setenv setenv) - (spec: 1 bit-field-rotate bit-field-rotate) - (spec: 1 continuation-graft continuation-graft) - (spec: 1 f64vector-swap! f64vector-swap!) + expression-parsing-exception-source + expression-parsing-exception-source) + (spec: 1 string-prefix? string-prefix?) + (spec: 1 write-subu8vector write-subu8vector) + (spec: 1 asinh asinh) + (spec: 1 subu8vector-move! subu8vector-move!) + (spec: 1 u64vector-ref u64vector-ref) + (spec: 1 bitwise-orc1 bitwise-orc1) (spec: 1 - started-thread-exception-arguments - started-thread-exception-arguments) - (spec: 1 fxquotient fxquotient) - (spec: 1 s32vector-shrink! s32vector-shrink!) - (spec: 1 thread-yield! thread-yield!) - (spec: 1 type-exception-arguments type-exception-arguments) - (spec: 1 extract-bit-field extract-bit-field) - (spec: 1 command-args command-args) - (spec: 1 subu32vector-fill! subu32vector-fill!) + inactive-thread-exception-arguments + inactive-thread-exception-arguments) + (spec: 1 subs8vector-fill! subs8vector-fill!) + (spec: 1 u32vector-set u32vector-set) + (spec: 1 list->u8vector list->u8vector) + (spec: 1 partition partition) + (spec: 1 s32vector-copy! s32vector-copy!) + (spec: 1 fxorc1 fxorc1) + (spec: 1 char-set-xor char-set-xor) + (spec: 1 thread? thread?) + (spec: 1 s16vector-length s16vector-length) + (spec: 1 vector-any vector-any) + (spec: 1 fxbit-count fxbit-count) + (spec: 1 char-set-difference! char-set-difference!) (spec: 1 - inactive-thread-exception-procedure - inactive-thread-exception-procedure) - (spec: 1 bitwise-nand bitwise-nand) - (spec: 1 create-directory create-directory) - (spec: 1 r7rs-raise r7rs-raise) - (spec: 1 u64vector-fill! u64vector-fill!) + mailbox-receive-timeout-exception-procedure + mailbox-receive-timeout-exception-procedure) + (spec: 1 tty-history tty-history) + (spec: 1 s8vector-concatenate s8vector-concatenate) + (spec: 1 with-exception-handler with-exception-handler) + (spec: 1 string->uninterned-keyword string->uninterned-keyword) + (spec: 1 s64vector-copy s64vector-copy) + (spec: 1 flpositive? flpositive?) + (spec: 1 open-event-queue open-event-queue) + (spec: 1 repl-input-port repl-input-port) (spec: 1 - nonempty-input-port-character-buffer-exception-procedure - nonempty-input-port-character-buffer-exception-procedure) - (spec: 1 integer-length integer-length) - (spec: 1 fl/ fl/) - (spec: 1 read-file-u8vector read-file-u8vector) - (spec: 1 unbound-global-exception-rte unbound-global-exception-rte) + keyword-expected-exception-arguments + keyword-expected-exception-arguments) (spec: 1 - wrong-number-of-arguments-exception-arguments - wrong-number-of-arguments-exception-arguments) + number-of-arguments-limit-exception? + number-of-arguments-limit-exception?) (spec: 1 - condition-variable-specific-set! - condition-variable-specific-set!) - (spec: 1 f32vector-swap! f32vector-swap!) - (spec: 1 u8vector-concatenate u8vector-concatenate) - (spec: 1 random-source-state-set! random-source-state-set!) - (spec: 1 box box) - (spec: 1 current-thread current-thread) - (spec: 1 file-info? file-info?) - (spec: 1 flceiling flceiling) + length-mismatch-exception-procedure + length-mismatch-exception-procedure) + (spec: 1 os-exception-message os-exception-message) (spec: 1 - nonprocedure-operator-exception-operator - nonprocedure-operator-exception-operator) + rpc-remote-error-exception-procedure + rpc-remote-error-exception-procedure) + (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) + (spec: 1 char-set->string char-set->string) + (spec: 1 open-process open-process) + (spec: 1 socket-info-address socket-info-address) + (spec: 1 thread-group-parent thread-group-parent) + (spec: 1 bitwise-eqv bitwise-eqv) + (spec: 1 substring-fill! substring-fill!) + (spec: 1 udp-source-socket-info udp-source-socket-info) + (spec: 1 continuation? continuation?) (spec: 1 - readtable-write-cdr-read-macros? - readtable-write-cdr-read-macros?) - (spec: 1 table-length table-length) - (spec: 1 open-output-process open-output-process) - (spec: 1 thread-group-name thread-group-name) - (spec: 1 input-port-byte-position input-port-byte-position) - (spec: 1 udp-destination-set! udp-destination-set!) - (spec: 1 file-type file-type) - (spec: 1 deadlock-exception? deadlock-exception?) - (spec: 1 fllog1p fllog1p) - (spec: 1 remove remove) + input-port-characters-buffered + input-port-characters-buffered) + (spec: 1 ninth ninth) + (spec: 1 u8vector-ref u8vector-ref) (spec: 1 - join-timeout-exception-arguments - join-timeout-exception-arguments) - (spec: 1 fx- fx-) - (spec: 1 thread-priority-boost thread-priority-boost) - (spec: 1 char-set-any char-set-any) - (spec: 1 string->char-set! string->char-set!) + file-last-access-and-modification-times-set! + file-last-access-and-modification-times-set!) (spec: 1 - path-strip-trailing-directory-separator - path-strip-trailing-directory-separator) - (spec: 1 s64vector-set! s64vector-set!) - (spec: 1 address-info-socket-type address-info-socket-type) - (spec: 1 flscalbn flscalbn) - (spec: 1 fxeven? fxeven?) - (spec: 1 output-port-readtable output-port-readtable) - (spec: 1 s16vector? s16vector?) - (spec: 1 char-set-filter! char-set-filter!) - (spec: 1 list->s16vector list->s16vector) - (spec: 1 thread-state-initialized? thread-state-initialized?) + uninitialized-thread-exception? + uninitialized-thread-exception?) (spec: 1 - mailbox-receive-timeout-exception-arguments - mailbox-receive-timeout-exception-arguments) - (spec: 1 vector-concatenate vector-concatenate) - (spec: 1 with-output-to-u8vector with-output-to-u8vector) - (spec: 1 group-info? group-info?) - (spec: 1 f64vector f64vector) - (spec: 1 conjugate conjugate) - (spec: 1 bit-field-clear bit-field-clear) - (spec: 1 port-settings-set! port-settings-set!) - (spec: 1 gensym gensym) - (spec: 1 s8vector-append s8vector-append) - (spec: 1 err-code->string err-code->string) - (spec: 1 char-set-hash char-set-hash) - (spec: 1 fxnot fxnot) - (spec: 1 list->u32vector list->u32vector) - (spec: 1 s64vector-append s64vector-append) - (spec: 1 scheduler-exception? scheduler-exception?) - (spec: 1 step step) - (spec: 1 subs8vector-fill! subs8vector-fill!) - (spec: 1 time? time?) - (spec: 1 s32vector-concatenate s32vector-concatenate) - (spec: 1 tty-type-set! tty-type-set!) - (spec: 1 copy-file copy-file) - (spec: 1 u16vector-concatenate u16vector-concatenate) - (spec: 1 bitwise-fold bitwise-fold) - (spec: 1 subu8vector-move! subu8vector-move!) - (spec: 1 u64vector->list u64vector->list) - (spec: 1 first first) + current-user-interrupt-handler + current-user-interrupt-handler) (spec: 1 - noncontinuable-exception-reason - noncontinuable-exception-reason) - (spec: 1 system-type system-type) - (spec: 1 concatenate concatenate) - (spec: 1 f32vector f32vector) - (spec: 1 atanh atanh) - (spec: 1 make-u16vector make-u16vector) - (spec: 1 subf32vector subf32vector) - (spec: 1 file-info-attributes file-info-attributes) - (spec: 1 current-directory current-directory) - (spec: 1 mutex-unlock! mutex-unlock!) - (spec: 1 u32vector-append u32vector-append) - (spec: 1 host-info-name host-info-name) - (spec: 1 range-exception-procedure range-exception-procedure) - (spec: 1 service-info service-info) - (spec: 1 u8vector-set u8vector-set) + readtable-write-cdr-read-macros? + readtable-write-cdr-read-macros?) + (spec: 1 call-with-output-vector call-with-output-vector) + (spec: 1 fleven? fleven?) + (spec: 1 take take) (spec: 1 - wrong-number-of-values-exception? - wrong-number-of-values-exception?) + unbound-os-environment-variable-exception? + unbound-os-environment-variable-exception?) + (spec: 1 s64vector-length s64vector-length) (spec: 1 - uninitialized-thread-exception-procedure - uninitialized-thread-exception-procedure) - (spec: 1 real-time real-time) + permission-denied-exception-procedure + permission-denied-exception-procedure) + (spec: 1 f32vector-shrink! f32vector-shrink!) + (spec: 1 service-info-protocol service-info-protocol) + (spec: 1 protocol-info-aliases protocol-info-aliases) + (spec: 1 subf64vector-fill! subf64vector-fill!) + (spec: 1 string-suffix-length-ci string-suffix-length-ci) + (spec: 1 random-source-make-reals random-source-make-reals) + (spec: 1 file-info file-info) + (spec: 1 subvector-move! subvector-move!) + (spec: 1 create-link create-link) + (spec: 1 u64vector u64vector) + (spec: 1 eighth eighth) + (spec: 1 foreign-released? foreign-released?) + (spec: 1 open-udp open-udp) + (spec: 1 vector-shrink! vector-shrink!) + (spec: 1 fxwrap+ fxwrap+) + (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) + (spec: 1 path-normalize path-normalize) + (spec: 1 step-level-set! step-level-set!) + (spec: 1 vector-every vector-every) + (spec: 1 equal?-hash equal?-hash) + (spec: 1 char-set-intersection char-set-intersection) + (spec: 1 fxlength fxlength) + (spec: 1 list->char-set list->char-set) + (spec: 1 s16vector-set s16vector-set) + (spec: 1 group-info group-info) + (spec: 1 circular-list circular-list) + (spec: 1 s8vector-fill! s8vector-fill!) + (spec: 1 pp pp) + (spec: 1 tty-mode-set! tty-mode-set!) + (spec: 1 fl- fl-) + (spec: 1 delete delete) (spec: 1 - cfun-conversion-exception-arguments - cfun-conversion-exception-arguments) - (spec: 1 drop-right! drop-right!) - (spec: 1 fold-right fold-right) + nonempty-input-port-character-buffer-exception-arguments + nonempty-input-port-character-buffer-exception-arguments) + (spec: 1 readtable-comment-handler-set readtable-comment-handler-set) + (spec: 1 flsin flsin) + (spec: 1 thread-base-priority-set! thread-base-priority-set!) + (spec: 1 flmax flmax) (spec: 1 - readtable-max-unescaped-char-set - readtable-max-unescaped-char-set) - (spec: 1 thread-group? thread-group?) + join-timeout-exception-procedure + join-timeout-exception-procedure) + (spec: 1 remove! remove!) + (spec: 1 thread-receive thread-receive) + (spec: 1 fx> fx>) + (spec: 1 char-set-copy char-set-copy) + (spec: 1 output-port-char-position output-port-char-position) + (spec: 1 thread-group-specific-set! thread-group-specific-set!) + (spec: 1 f64vector? f64vector?) + (spec: 1 subu16vector-fill! subu16vector-fill!) + (spec: 1 bitwise-andc2 bitwise-andc2) + (spec: 1 udp-read-u8vector udp-read-u8vector) + (spec: 1 file-inode file-inode) + (spec: 1 delete-directory delete-directory) + (spec: 1 not-pair? not-pair?) + (spec: 1 fldenominator fldenominator) (spec: 1 - file-last-access-and-modification-times-set! - file-last-access-and-modification-times-set!) + readtable-write-extended-read-macros?-set + readtable-write-extended-read-macros?-set) (spec: 1 - current-user-interrupt-handler - current-user-interrupt-handler) - (spec: 1 network-info-name network-info-name) - (spec: 1 udp-source-socket-info udp-source-socket-info) + uninitialized-thread-exception-procedure + uninitialized-thread-exception-procedure) (spec: 1 call-with-output-u8vector call-with-output-u8vector) - (spec: 1 flilogb flilogb) - (spec: - 1 - invalid-utf8-encoding-exception? - invalid-utf8-encoding-exception?) - (spec: 1 thread-priority-set! thread-priority-set!) - (spec: 1 tcp-service-unregister! tcp-service-unregister!) - (spec: - 1 - length-mismatch-exception-arg-id - length-mismatch-exception-arg-id) - (spec: 1 output-port-width output-port-width) - (spec: 1 s16vector-copy! s16vector-copy!) - (spec: 1 fxwrapsquare fxwrapsquare) - (spec: 1 thread-sleep! thread-sleep!) + (spec: 1 defer-user-interrupts defer-user-interrupts) (spec: 1 - rpc-remote-error-exception-arguments - rpc-remote-error-exception-arguments) - (spec: 1 os-exception-arguments os-exception-arguments) - (spec: 1 display-exception display-exception) - (spec: 1 open-output-vector open-output-vector) - (spec: 1 char-set-contains? char-set-contains?) - (spec: 1 fxarithmetic-shift-left fxarithmetic-shift-left) - (spec: 1 thread thread) - (spec: 1 vector-cumulate vector-cumulate) + permission-denied-exception-arguments + permission-denied-exception-arguments) + (spec: 1 s64vector-set s64vector-set) + (spec: 1 u32vector->list u32vector->list) (spec: 1 char-set? char-set?) - (spec: 1 with-input-from-vector with-input-from-vector) - (spec: 1 scheduler-exception-reason scheduler-exception-reason) - (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 protocol-info protocol-info) (spec: 1 bit-field-any? bit-field-any?) - (spec: 1 s8vector->list s8vector->list) - (spec: 1 substring-fill! substring-fill!) - (spec: 1 char-set-for-each char-set-for-each) - (spec: 1 fxnor fxnor) - (spec: 1 error-exception-message error-exception-message) - (spec: 1 list->s64vector list->s64vector) - (spec: 1 path-volume path-volume) - (spec: 1 s32vector-fill! s32vector-fill!) - (spec: 1 make-mutex make-mutex) - (spec: 1 top top) - (spec: 1 u64vector u64vector) - (spec: 1 vector-set vector-set) - (spec: 1 string-suffix-length string-suffix-length) - (spec: 1 continuation? continuation?) - (spec: 1 module-not-found-exception? module-not-found-exception?) - (spec: 1 bitwise-eqv bitwise-eqv) - (spec: 1 u16vector-append u16vector-append) - (spec: 1 random-u8vector random-u8vector) - (spec: 1 subvector-move! subvector-move!) - (spec: 1 shell-command shell-command) - (spec: 1 r7rs-with-exception-handler r7rs-with-exception-handler) - (spec: 1 command-name command-name) - (spec: 1 make-tls-context make-tls-context) - (spec: 1 system-version-string system-version-string) - (spec: - 1 - unbound-os-environment-variable-exception? - unbound-os-environment-variable-exception?) - (spec: 1 seventh seventh) - (spec: 1 file-info file-info) - (spec: 1 create-link create-link) - (spec: 1 mutex-state mutex-state) + (spec: 1 set-box! set-box!) (spec: 1 subf64vector subf64vector) - (spec: 1 compile-file-to-target compile-file-to-target) - (spec: 1 processor? processor?) - (spec: 1 flacosh flacosh) - (spec: 1 readtable-max-write-level readtable-max-write-level) - (spec: 1 delete! delete!) - (spec: 1 u32vector->list u32vector->list) - (spec: 1 u8vector-ref u8vector-ref) - (spec: - 1 - uninitialized-thread-exception-arguments - uninitialized-thread-exception-arguments) - (spec: 1 fold fold) + (spec: 1 u16vector-append u16vector-append) (spec: 1 wrong-number-of-arguments-exception? wrong-number-of-arguments-exception?) + (spec: 1 process-pid process-pid) + (spec: 1 string-suffix-length string-suffix-length) + (spec: 1 make-s16vector make-s16vector) + (spec: 1 command-name command-name) + (spec: 1 copy-bit copy-bit) + (spec: 1 file-group file-group) + (spec: 1 random-source-randomize! random-source-randomize!) + (spec: 1 configure-command-string configure-command-string) + (spec: 1 foreign-release! foreign-release!) + (spec: 1 open-u8vector-pipe open-u8vector-pipe) + (spec: 1 time? time?) + (spec: 1 path-extension path-extension) + (spec: 1 fxwrap* fxwrap*) + (spec: 1 s32vector-set! s32vector-set!) + (spec: 1 list-set list-set) + (spec: 1 step step) + (spec: 1 err-code->string err-code->string) + (spec: 1 fxior fxior) + (spec: 1 list->f64vector list->f64vector) + (spec: 1 s16vector-swap! s16vector-swap!) + (spec: 1 char-set-hash char-set-hash) + (spec: 1 tty-text-attributes-set! tty-text-attributes-set!) + (spec: 1 vector-cumulate vector-cumulate) + (spec: 1 s8vector-ref s8vector-ref) + (spec: 1 with-input-from-vector with-input-from-vector) + (spec: 1 fl<= fl<=) + (spec: 1 integer-sqrt integer-sqrt) + (spec: 1 readtable-comment-handler readtable-comment-handler) + (spec: 1 system-version-string system-version-string) + (spec: 1 flsquare flsquare) (spec: 1 - nonprocedure-operator-exception? - nonprocedure-operator-exception?) - (spec: 1 table-merge! table-merge!) - (spec: 1 current-time current-time) - (spec: 1 file-last-modification-time file-last-modification-time) - (spec: - 1 - unbound-key-exception-procedure - unbound-key-exception-procedure) - (spec: 1 call-with-output-string call-with-output-string) - (spec: 1 flhypot flhypot) - (spec: 1 udp-local-socket-info udp-local-socket-info) - (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) - (spec: 1 output-port-timeout-set! output-port-timeout-set!) + cfun-conversion-exception-code + cfun-conversion-exception-code) + (spec: 1 open-input-u8vector open-input-u8vector) + (spec: 1 thread-base-priority thread-base-priority) + (spec: 1 remove remove) + (spec: 1 flnegative? flnegative?) (spec: 1 - thread-state-normally-terminated-result - thread-state-normally-terminated-result) - (spec: 1 fxwrapquotient fxwrapquotient) - (spec: 1 address-infos address-infos) - (spec: 1 list-sort! list-sort!) - (spec: 1 s64vector-copy! s64vector-copy!) - (spec: 1 thread-quantum thread-quantum) - (spec: 1 join-timeout-exception? join-timeout-exception?) - (spec: 1 repl-input-port repl-input-port) - (spec: 1 open-output-u8vector open-output-u8vector) - (spec: 1 char-set-complement! char-set-complement!) - (spec: 1 fxarithmetic-shift fxarithmetic-shift) - (spec: 1 thread-group-resume! thread-group-resume!) - (spec: 1 stack-overflow-exception? stack-overflow-exception?) - (spec: 1 char-set= char-set=) - (spec: 1 apropos apropos) - (spec: 1 s8vector-copy s8vector-copy) - (spec: 1 with-input-from-u8vector with-input-from-u8vector) - (spec: 1 condition-variable? condition-variable?) + join-timeout-exception-arguments + join-timeout-exception-arguments) + (spec: 1 object->string object->string) + (spec: 1 display-exception-in-context display-exception-in-context) + (spec: 1 output-port-byte-position output-port-byte-position) + (spec: 1 fx= fx=) + (spec: 1 tenth tenth) + (spec: 1 thread-sleep! thread-sleep!) + (spec: 1 char-set-contains? char-set-contains?) + (spec: 1 thread-group? thread-group?) + (spec: 1 bitwise-andc1 bitwise-andc1) + (spec: 1 continuation-graft continuation-graft) + (spec: 1 f64vector-swap! f64vector-swap!) + (spec: 1 subs8vector-move! subs8vector-move!) + (spec: 1 udp-read-subu8vector udp-read-subu8vector) + (spec: 1 input-port-bytes-buffered input-port-bytes-buffered) + (spec: 1 filter! filter!) + (spec: 1 current-thread current-thread) + (spec: 1 file-info? file-info?) + (spec: 1 range-exception? range-exception?) (spec: 1 - sfun-conversion-exception-code - sfun-conversion-exception-code) - (spec: 1 bits->list bits->list) - (spec: 1 f64vector-append f64vector-append) - (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) - (spec: 1 list->s32vector list->s32vector) - (spec: 1 fxmax fxmax) - (spec: 1 char-set-intersection! char-set-intersection!) - (spec: 1 partition partition) - (spec: 1 s32vector-copy! s32vector-copy!) - (spec: 1 string->uninterned-keyword string->uninterned-keyword) - (spec: 1 make-f32vector make-f32vector) - (spec: 1 vector-swap! vector-swap!) - (spec: 1 executable-path executable-path) - (spec: 1 thread? thread?) - (spec: 1 string-suffix-ci? string-suffix-ci?) - (spec: 1 continuation-return continuation-return) - (spec: 1 bitwise-unfold bitwise-unfold) - (spec: 1 random-source? random-source?) - (spec: 1 subvector-fill! subvector-fill!) - (spec: 1 u8vector-length u8vector-length) - (spec: 1 r7rs-raise-continuable r7rs-raise-continuable) - (spec: 1 system-version system-version) - (spec: 1 host-name host-name) - (spec: 1 make-s8vector make-s8vector) - (spec: 1 f32vector-append f32vector-append) + uninitialized-thread-exception-arguments + uninitialized-thread-exception-arguments) + (spec: 1 call-with-output-string call-with-output-string) + (spec: 1 table? table?) + (spec: 1 flcosh flcosh) + (spec: 1 readtable-start-syntax readtable-start-syntax) + (spec: + 1 + unbound-os-environment-variable-exception-arguments + unbound-os-environment-variable-exception-arguments) + (spec: 1 address-infos address-infos) + (spec: 1 char-set= char-set=) + (spec: 1 gc-report-set! gc-report-set!) (spec: 1 service-info-name service-info-name) - (spec: 1 u32vector-shrink! u32vector-shrink!) - (spec: 1 create-fifo create-fifo) (spec: 1 subf32vector-move! subf32vector-move!) - (spec: 1 u64vector-set! u64vector-set!) - (spec: 1 file-info-device file-info-device) - (spec: 1 processor-id processor-id) (spec: 1 u16vector-swap! u16vector-swap!) - (spec: 1 compile-file compile-file) - (spec: 1 fl= fl=) - (spec: 1 delete delete) - (spec: - 1 - readtable-max-write-length-set - readtable-max-write-length-set) - (spec: 1 tcp-client-self-socket-info tcp-client-self-socket-info) + (spec: 1 condition-variable? condition-variable?) + (spec: 1 f32vector-set f32vector-set) + (spec: 1 make-u64vector make-u64vector) + (spec: 1 string-suffix-ci? string-suffix-ci?) (spec: 1 wrong-number-of-arguments-exception-procedure wrong-number-of-arguments-exception-procedure) - (spec: 1 fltan fltan) - (spec: 1 open-process open-process) + (spec: 1 expression-parsing-exception? expression-parsing-exception?) + (spec: 1 u64vector? u64vector?) (spec: 1 - cfun-conversion-exception-message - cfun-conversion-exception-message) - (spec: 1 table-merge table-merge) - (spec: 1 user-info user-info) - (spec: 1 initial-current-directory initial-current-directory) - (spec: 1 file-last-change-time file-last-change-time) + inactive-thread-exception-procedure + inactive-thread-exception-procedure) + (spec: 1 create-directory create-directory) + (spec: 1 random-source-make-f64vectors random-source-make-f64vectors) + (spec: 1 subvector subvector) + (spec: 1 sfun-conversion-exception? sfun-conversion-exception?) + (spec: 1 open-u8vector open-u8vector) + (spec: 1 foreign-address foreign-address) + (spec: 1 s32vector-fill! s32vector-fill!) + (spec: 1 vector-set vector-set) + (spec: 1 path-expand path-expand) + (spec: 1 fxsquare fxsquare) + (spec: 1 stack-overflow-exception? stack-overflow-exception?) (spec: 1 - unbound-key-exception-arguments - unbound-key-exception-arguments) - (spec: 1 flexp flexp) + thread-state-normally-terminated-result + thread-state-normally-terminated-result) + (spec: 1 char-set-for-each char-set-for-each) + (spec: 1 eq?-hash eq?-hash) + (spec: 1 fxif fxif) + (spec: 1 s8vector-copy s8vector-copy) + (spec: 1 apropos apropos) + (spec: 1 tty-history-max-length-set! tty-history-max-length-set!) (spec: 1 - number-of-arguments-limit-exception-procedure - number-of-arguments-limit-exception-procedure) - (spec: 1 foreign-tags foreign-tags) - (spec: 1 os-exception-message os-exception-message) + mailbox-receive-timeout-exception? + mailbox-receive-timeout-exception?) + (spec: 1 top top) + (spec: 1 s64vector-copy! s64vector-copy!) + (spec: 1 with-input-from-u8vector with-input-from-u8vector) (spec: 1 - rpc-remote-error-exception-procedure - rpc-remote-error-exception-procedure) - (spec: 1 list-sort list-sort) - (spec: 1 fxwrap- fxwrap-) - (spec: 1 address-info? address-info?) - (spec: 1 s64vector-copy s64vector-copy) - (spec: 1 thread-priority-boost-set! thread-priority-boost-set!) - (spec: 1 flnumerator flnumerator) + readtable-case-conversion?-set + readtable-case-conversion?-set) + (spec: 1 fl+ fl+) + (spec: 1 integer-nth-root integer-nth-root) + (spec: 1 thread thread) + (spec: 1 drop-right! drop-right!) + (spec: 1 flround flround) + (spec: 1 open-file open-file) + (spec: 1 tcp-service-unregister! tcp-service-unregister!) + (spec: 1 display-exception display-exception) + (spec: 1 fllog fllog) + (spec: 1 rpc-remote-error-exception? rpc-remote-error-exception?) + (spec: 1 thread-quantum thread-quantum) + (spec: 1 char-set-complement! char-set-complement!) + (spec: 1 length-mismatch-exception? length-mismatch-exception?) + (spec: 1 fx<= fx<=) + (spec: 1 thread-group-resume! thread-group-resume!) + (spec: 1 f64vector-shrink! f64vector-shrink!) + (spec: 1 bitwise-and bitwise-and) (spec: 1 - join-timeout-exception-procedure - join-timeout-exception-procedure) - (spec: 1 open-dummy open-dummy) - (spec: 1 repl-highlight-source-level repl-highlight-source-level) - (spec: 1 socket-info-address socket-info-address) - (spec: 1 thread-group-parent thread-group-parent) - (spec: 1 fx>= fx>=) - (spec: 1 end-of-char-set? end-of-char-set?) - (spec: 1 char-set-count char-set-count) - (spec: 1 s16vector-length s16vector-length) - (spec: 1 s8vector-concatenate s8vector-concatenate) - (spec: 1 string-prefix? string-prefix?) - (spec: 1 with-output-to-port with-output-to-port) + sfun-conversion-exception-procedure + sfun-conversion-exception-procedure) + (spec: 1 substring-move! substring-move!) + (spec: 1 filter filter) + (spec: 1 default-random-source default-random-source) + (spec: 1 input-port-column input-port-column) + (spec: 1 file-info-type file-info-type) + (spec: 1 flcos flcos) + (spec: 1 call-with-output-process call-with-output-process) (spec: 1 - sfun-conversion-exception-arguments - sfun-conversion-exception-arguments) - (spec: 1 bits bits) - (spec: 1 f64vector->list f64vector->list) - (spec: 1 tty-history tty-history) - (spec: 1 fxlength fxlength) - (spec: 1 s32vector s32vector) - (spec: 1 char-set-intersection char-set-intersection) - (spec: 1 abandoned-mutex-exception? abandoned-mutex-exception?) - (spec: 1 vector-shrink! vector-shrink!) - (spec: 1 group-info-gid group-info-gid) - (spec: 1 asinh asinh) - (spec: 1 circular-list? circular-list?) - (spec: 1 print print) - (spec: 1 write-file-string write-file-string) - (spec: 1 bitwise-orc2 bitwise-orc2) - (spec: 1 random-f64vector random-f64vector) - (spec: 1 input-port-line input-port-line) - (spec: 1 read-subu8vector read-subu8vector) - (spec: 1 first-set-bit first-set-bit) + not-in-compilation-context-exception? + not-in-compilation-context-exception?) (spec: 1 - default-user-interrupt-handler - default-user-interrupt-handler) - (spec: 1 subu64vector-move! subu64vector-move!) - (spec: 1 host-info host-info) - (spec: 1 make-s64vector make-s64vector) - (spec: 1 f32vector->list f32vector->list) - (spec: 1 service-info-aliases service-info-aliases) - (spec: 1 subs64vector-fill! subs64vector-fill!) - (spec: 1 u32vector-set! u32vector-set!) - (spec: 1 u64vector-set u64vector-set) - (spec: 1 file-info-creation-time file-info-creation-time) - (spec: 1 break break) - (spec: 1 create-temporary-directory create-temporary-directory) - (spec: 1 u16vector-shrink! u16vector-shrink!) - (spec: 1 fl<= fl<=) - (spec: 1 readtable-keywords-allowed? readtable-keywords-allowed?) - (spec: 1 table-search table-search) + readtable-write-cdr-read-macros?-set + readtable-write-cdr-read-macros?-set) + (spec: 1 take! take!) + (spec: 1 char-set<= char-set<=) (spec: 1 - wrong-number-of-values-exception-code - wrong-number-of-values-exception-code) - (spec: 1 flsquare flsquare) - (spec: 1 thread-group-specific-set! thread-group-specific-set!) - (spec: 1 eighth eighth) + wrong-number-of-arguments-exception-arguments + wrong-number-of-arguments-exception-arguments) + (spec: 1 service-info? service-info?) + (spec: 1 bit-count bit-count) (spec: 1 - cfun-conversion-exception-code - cfun-conversion-exception-code) + condition-variable-specific-set! + condition-variable-specific-set!) + (spec: 1 f32vector-swap! f32vector-swap!) + (spec: 1 script-directory script-directory) + (spec: 1 subf32vector-fill! subf32vector-fill!) + (spec: 1 command-args command-args) + (spec: 1 string-shrink! string-shrink!) + (spec: 1 extract-bit-field extract-bit-field) + (spec: 1 u16vector u16vector) + (spec: 1 u64vector-swap! u64vector-swap!) + (spec: 1 file-exists-exception? file-exists-exception?) + (spec: 1 create-symbolic-link create-symbolic-link) + (spec: 1 module-whitelist-reset! module-whitelist-reset!) + (spec: 1 random-source-make-u8vectors random-source-make-u8vectors) + (spec: 1 sinh sinh) + (spec: 1 u32vector? u32vector?) + (spec: 1 open-tcp-server open-tcp-server) + (spec: 1 time time) + (spec: 1 s32vector-ref s32vector-ref) + (spec: 1 fxremainder fxremainder) + (spec: 1 abort abort) (spec: 1 - uninitialized-thread-exception? - uninitialized-thread-exception?) - (spec: 1 filter filter) - (spec: 1 fleven? fleven?) + thread-state-running-processor + thread-state-running-processor) + (spec: 1 s16vector-set! s16vector-set!) + (spec: 1 fxfirst-set-bit fxfirst-set-bit) + (spec: 1 char-set-fold char-set-fold) + (spec: 1 list->char-set! list->char-set!) (spec: 1 - number-of-arguments-limit-exception-arguments - number-of-arguments-limit-exception-arguments) + tty-paren-balance-duration-set! + tty-paren-balance-duration-set!) + (spec: 1 s8vector-length s8vector-length) + (spec: 1 with-input-from-string with-input-from-string) + (spec: 1 integer-length integer-length) + (spec: 1 system-type-string system-type-string) + (spec: 1 fl/ fl/) (spec: 1 - display-continuation-backtrace - display-continuation-backtrace) - (spec: 1 call-with-output-vector call-with-output-vector) - (spec: 1 readtable? readtable?) - (spec: 1 tcp-server-socket-info tcp-server-socket-info) - (spec: 1 foreign-released? foreign-released?) - (spec: 1 os-exception-code os-exception-code) - (spec: 1 thread-receive thread-receive) - (spec: 1 fxwrap+ fxwrap+) - (spec: 1 flnegative? flnegative?) - (spec: 1 open-directory open-directory) - (spec: 1 dotted-list? dotted-list?) - (spec: 1 repl-backtrace-detail-level repl-backtrace-detail-level) - (spec: 1 fx> fx>) - (spec: 1 s16vector-append s16vector-append) - (spec: 1 equal?-hash equal?-hash) - (spec: 1 char-set-copy char-set-copy) - (spec: 1 vector-every vector-every) + nonempty-input-port-character-buffer-exception-procedure + nonempty-input-port-character-buffer-exception-procedure) + (spec: 1 readtable-case-conversion? readtable-case-conversion?) + (spec: 1 keyword? keyword?) + (spec: 1 drop-right drop-right) + (spec: 1 open-input-process open-input-process) + (spec: 1 flsinh flsinh) + (spec: 1 replace-bit-field replace-bit-field) + (spec: + 1 + display-continuation-environment + display-continuation-environment) + (spec: 1 tcp-service-register! tcp-service-register!) + (spec: 1 flmin flmin) + (spec: 1 thread-resume! thread-resume!) + (spec: 1 fx< fx<) + (spec: 1 char-set-complement char-set-complement) + (spec: 1 thread-group-suspend! thread-group-suspend!) + (spec: 1 delete-file delete-file) + (spec: 1 emergency-exit emergency-exit) + (spec: 1 list-set! list-set!) + (spec: 1 call-with-port call-with-port) + (spec: 1 flush-output-port flush-output-port) + (spec: 1 vector-for-each vector-for-each) + (spec: 1 read-line read-line) + (spec: 1 round-remainder round-remainder) + (spec: 1 string-upcase string-upcase) + (spec: 1 features features) + (spec: 1 boolean=? boolean=?) + (spec: 1 output-port-open? output-port-open?) + (spec: 1 read-error? read-error?) + (spec: 1 open-input-string open-input-string) + (spec: 1 nan? nan?) + (spec: 1 bytevector? bytevector?) + (spec: 1 digit-value digit-value) + (spec: 1 char-foldcase char-foldcase) + (spec: 1 inexact inexact) + (spec: 1 open-output-bytevector open-output-bytevector) (spec: 1 exit exit) + (spec: 1 read-string read-string) + (spec: 1 round/ round/) (spec: 1 get-output-bytevector get-output-bytevector) - (spec: 1 list-copy list-copy) - (spec: 1 current-jiffy current-jiffy) - (spec: 1 string-map string-map) - (spec: 1 read-bytevector read-bytevector) - (spec: 1 peek-u8 peek-u8) - (spec: 1 error-object-message error-object-message) - (spec: 1 string-upcase string-upcase) - (spec: 1 exact exact) - (spec: 1 eof-object eof-object) - (spec: 1 error-object-irritants error-object-irritants) - (spec: 1 make-list make-list) - (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 string-copy! string-copy!) + (spec: 1 symbol=? symbol=?) + (spec: 1 vector->string vector->string) (spec: 1 read-u8 read-u8) - (spec: 1 get-environment-variable get-environment-variable) - (spec: 1 port? port?) - (spec: 1 bytevector-length bytevector-length) - (spec: 1 current-error-port current-error-port) - (spec: 1 write-shared write-shared) - (spec: 1 emergency-exit emergency-exit) - (spec: 1 read-bytevector! read-bytevector!) - (spec: 1 flush-output-port flush-output-port) - (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 balanced/ balanced/) (spec: 1 error-object? error-object?) - (spec: 1 file-error? file-error?) - (spec: 1 current-second current-second) - (spec: 1 nan? nan?) - (spec: 1 string->vector string->vector) - (spec: 1 open-input-string open-input-string) (spec: 1 truncate/ truncate/) - (spec: 1 make-bytevector make-bytevector) - (spec: 1 vector-for-each vector-for-each) - (spec: 1 write-bytevector write-bytevector) - (spec: 1 balanced/ balanced/) - (spec: 1 round-quotient round-quotient) - (spec: 1 symbol=? symbol=?) + (spec: 1 floor-remainder floor-remainder) + (spec: 1 textual-port? textual-port?) (spec: 1 write-string write-string) - (spec: 1 vector-map vector-map) - (spec: 1 make-promise make-promise) + (spec: 1 current-error-port current-error-port) (spec: 1 write-simple write-simple) - (spec: 1 read-error? read-error?) + (spec: 1 round-quotient round-quotient) + (spec: 1 get-environment-variables get-environment-variables) + (spec: 1 current-jiffy current-jiffy) + (spec: 1 balanced-quotient balanced-quotient) + (spec: 1 truncate-quotient truncate-quotient) + (spec: 1 square square) + (spec: 1 error-object-irritants error-object-irritants) + (spec: 1 get-environment-variable get-environment-variable) + (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 open-output-string open-output-string) + (spec: 1 bytevector-copy bytevector-copy) + (spec: 1 read-bytevector read-bytevector) + (spec: 1 make-parameter make-parameter) + (spec: 1 write-bytevector write-bytevector) + (spec: 1 string-for-each string-for-each) + (spec: 1 string->vector string->vector) (spec: 1 floor/ floor/) - (spec: 1 get-output-string get-output-string) - (spec: 1 boolean=? boolean=?) - (spec: 1 delete-file delete-file) - (spec: 1 floor-remainder floor-remainder) - (spec: 1 vector->string vector->string) + (spec: 1 bytevector-append bytevector-append) + (spec: 1 write-shared write-shared) + (spec: 1 peek-u8 peek-u8) + (spec: 1 list-copy list-copy) (spec: 1 euclidean-quotient euclidean-quotient) - (spec: 1 string-copy! string-copy!) - (spec: 1 binary-port? binary-port?) - (spec: 1 bytevector-copy bytevector-copy) - (spec: 1 round-remainder round-remainder) - (spec: 1 ceiling-quotient ceiling-quotient) - (spec: 1 output-port-open? output-port-open?) + (spec: 1 open-input-bytevector open-input-bytevector) + (spec: 1 ceiling-remainder ceiling-remainder) (spec: 1 string->utf8 string->utf8) + (spec: 1 bytevector bytevector) (spec: 1 string-foldcase string-foldcase) - (spec: 1 open-output-bytevector open-output-bytevector) - (spec: 1 jiffies-per-second jiffies-per-second) - (spec: 1 utf8->string utf8->string) - (spec: 1 truncate-remainder truncate-remainder) - (spec: 1 close-port close-port) (spec: 1 balanced-remainder balanced-remainder) - (spec: 1 euclidean/ euclidean/) - (spec: 1 input-port-open? input-port-open?) - (spec: 1 open-output-string open-output-string) - (spec: 1 exact-integer? exact-integer?) - (spec: 1 ceiling/ ceiling/) - (spec: 1 list-set! list-set!) - (spec: 1 file-exists? file-exists?) - (spec: 1 balanced-quotient balanced-quotient) - (spec: 1 infinite? infinite?) - (spec: 1 square square) - (spec: 1 truncate-quotient truncate-quotient) - (spec: 1 ceiling-remainder ceiling-remainder) - (spec: 1 string-for-each string-for-each) - (spec: 1 make-parameter make-parameter) - (spec: 1 bytevector? bytevector?) - (spec: 1 textual-port? textual-port?) - (spec: 1 vector-append vector-append) - (spec: 1 read-string read-string) - (spec: 1 vector-copy vector-copy) + (spec: 1 close-port close-port) + (spec: 1 eof-object eof-object) + (spec: 1 exact exact) (spec: 1 floor-quotient floor-quotient) + (spec: 1 read-bytevector! read-bytevector!) + (spec: 1 current-second current-second) + (spec: 1 promise? promise?) + (spec: 1 error-object-message error-object-message) + (spec: 1 file-error? file-error?) + (spec: 1 get-output-string get-output-string) + (spec: 1 make-list make-list) (spec: 1 open-binary-output-file open-binary-output-file) - (spec: 1 write-u8 write-u8) (spec: 1 bytevector-u8-set! bytevector-u8-set!) - (spec: 1 inexact inexact) (spec: 1 finite? finite?) - (spec: 1 read-line read-line) - (spec: 1 digit-value digit-value) - (spec: 1 bytevector-append bytevector-append) - (spec: 1 get-environment-variables get-environment-variables) - (spec: 1 open-binary-input-file open-binary-input-file) + (spec: 1 exact-integer-sqrt exact-integer-sqrt) + (spec: 1 binary-port? binary-port?) + (spec: 1 euclidean-remainder euclidean-remainder) + (spec: 1 string-downcase string-downcase) + (spec: 1 ceiling/ ceiling/) + (spec: 1 string-map string-map) + (spec: 1 input-port-open? input-port-open?) + (spec: 1 bytevector-u8-ref bytevector-u8-ref) + (spec: 1 truncate-remainder truncate-remainder) (spec: 1 u8-ready? u8-ready?) + (spec: 1 utf8->string utf8->string) + (spec: 1 make-bytevector make-bytevector) + (spec: 1 vector-append vector-append) + (spec: 1 vector-map vector-map) + (spec: 1 bytevector-length bytevector-length) + (spec: 1 infinite? infinite?) + (spec: 1 write-u8 write-u8) (spec: 1 command-line command-line) + (spec: 1 file-exists? file-exists?) + (spec: 1 make-promise make-promise) + (spec: 1 ceiling-quotient ceiling-quotient) (spec: 1 vector-copy! vector-copy!) - (spec: 1 call-with-port call-with-port) - (spec: 1 char-foldcase char-foldcase) - (spec: 1 bytevector bytevector) - (spec: 1 string-downcase string-downcase) - (spec: 1 euclidean-remainder euclidean-remainder) - (spec: 1 features features) - (spec: 1 promise? promise?) (spec: 1 bytevector-copy! bytevector-copy!) - (spec: 1 exact-integer-sqrt exact-integer-sqrt) - (spec: 1 round/ round/) - (spec: 1 char>=? char>=?) - (spec: 1 close-output-port close-output-port) - (spec: 1 <= <=) - (spec: 1 inexact->exact inexact->exact) - (spec: 1 rationalize rationalize) + (spec: 1 exact-integer? exact-integer?) + (spec: 1 euclidean/ euclidean/) + (spec: 1 port? port?) + (spec: 1 vector-copy vector-copy) + (spec: 1 jiffies-per-second jiffies-per-second) + (spec: 1 negative? negative?) + (spec: 1 caddr caddr) + (spec: 1 null? null?) + (spec: 1 >= >=) + (spec: 1 set-car! set-car!) + (spec: 1 string<=? string<=?) + (spec: 1 sqrt sqrt) + (spec: 1 vector? vector?) + (spec: 1 even? even?) + (spec: 1 angle angle) + (spec: 1 char-whitespace? char-whitespace?) + (spec: 1 cdar cdar) + (spec: 1 char-lower-case? char-lower-case?) + (spec: 1 boolean? boolean?) (spec: 1 cadddr cadddr) - (spec: 1 tan tan) - (spec: 1 string-ci>? string-ci>?) - (spec: 1 transcript-on transcript-on) - (spec: 1 cddadr cddadr) - (spec: 1 memv memv) - (spec: 1 string string) - (spec: 1 sin sin) + (spec: 1 input-port? input-port?) (spec: 1 > >) (spec: 1 complex? complex?) - (spec: 1 denominator denominator) + (spec: 1 make-string make-string) + (spec: 1 max max) + (spec: 1 string-ci>? string-ci>?) + (spec: 1 transcript-on transcript-on) + (spec: 1 cddar cddar) (spec: 1 caddar caddar) - (spec: 1 force force) - (spec: 1 call-with-values call-with-values) - (spec: 1 abs abs) + (spec: 1 null-environment null-environment) (spec: 1 string-ci>=? string-ci>=?) - (spec: 1 cddaar cddaar) + (spec: 1 lcm lcm) + (spec: 1 list-ref list-ref) + (spec: 1 abs abs) + (spec: 1 string string) (spec: 1 char-upper-case? char-upper-case?) - (spec: 1 cadr cadr) - (spec: 1 car car) - (spec: 1 char-numeric? char-numeric?) - (spec: 1 numerator numerator) - (spec: 1 cdddar cdddar) - (spec: 1 open-input-file open-input-file) - (spec: 1 read-char read-char) - (spec: 1 char<=? char<=?) - (spec: 1 cons cons) - (spec: 1 magnitude magnitude) - (spec: 1 exp exp) - (spec: 1 cos cos) - (spec: 1 procedure? procedure?) - (spec: 1 assv assv) - (spec: 1 string-append string-append) - (spec: 1 vector vector) - (spec: 1 caddr caddr) - (spec: 1 real? real?) - (spec: 1 vector? vector?) - (spec: 1 char-lower-case? char-lower-case?) - (spec: 1 even? even?) - (spec: 1 load load) - (spec: 1 cddar cddar) - (spec: 1 number? number?) - (spec: 1 vector-length vector-length) - (spec: 1 asin asin) - (spec: 1 integer->char integer->char) - (spec: 1 caaadr caaadr) - (spec: 1 >= >=) - (spec: 1 inexact? inexact?) + (spec: 1 exact? exact?) + (spec: 1 cadaar cadaar) + (spec: 1 eval eval) + (spec: 1 cdaddr cdaddr) + (spec: 1 cadar cadar) + (spec: 1 = =) + (spec: 1 gcd gcd) + (spec: 1 set-cdr! set-cdr!) + (spec: 1 round round) + (spec: 1 vector-fill! vector-fill!) + (spec: 1 char-upcase char-upcase) + (spec: 1 acos acos) + (spec: 1 cddaar cddaar) + (spec: 1 call-with-values call-with-values) + (spec: 1 interaction-environment interaction-environment) + (spec: 1 current-input-port current-input-port) + (spec: 1 caaaar caaaar) + (spec: 1 string>=? string>=?) + (spec: 1 close-output-port close-output-port) + (spec: 1 imag-part imag-part) + (spec: 1 truncate truncate) + (spec: 1 list->string list->string) + (spec: 1 output-port? output-port?) + (spec: 1 char>=? char>=?) + (spec: 1 list-tail list-tail) + (spec: 1 cdddar cdddar) + (spec: 1 car car) + (spec: 1 odd? odd?) + (spec: 1 length length) + (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 string->symbol string->symbol) + (spec: 1 not not) (spec: 1 call-with-input-file call-with-input-file) + (spec: 1 - -) + (spec: 1 close-input-port close-input-port) (spec: 1 char-alphabetic? char-alphabetic?) - (spec: 1 set-car! set-car!) - (spec: 1 remainder remainder) - (spec: 1 string<=? string<=?) - (spec: 1 exact->inexact exact->inexact) - (spec: 1 cdddr cdddr) - (spec: 1 log log) (spec: 1 eof-object? eof-object?) + (spec: 1 vector-length vector-length) (spec: 1 char=? char=?) - (spec: 1 positive? positive?) - (spec: 1 list->vector list->vector) - (spec: 1 close-input-port close-input-port) - (spec: 1 - -) - (spec: 1 quotient quotient) - (spec: 1 caaaar caaaar) - (spec: 1 map map) - (spec: 1 current-input-port current-input-port) + (spec: 1 exact->inexact exact->inexact) + (spec: 1 cddr cddr) + (spec: 1 list? list?) + (spec: 1 real? real?) + (spec: 1 string->number string->number) + (spec: 1 string-copy string-copy) (spec: 1 call-with-current-continuation call-with-current-continuation) - (spec: 1 char->integer char->integer) - (spec: 1 rational? rational?) - (spec: 1 string->number string->number) - (spec: 1 display display) - (spec: 1 char-ready? char-ready?) + (spec: 1 denominator denominator) + (spec: 1 transcript-off transcript-off) + (spec: 1 vector->list vector->list) + (spec: 1 + +) + (spec: 1 cos cos) + (spec: 1 cons cons) + (spec: 1 string=? string=?) (spec: 1 string->list string->list) - (spec: 1 cddddr cddddr) - (spec: 1 list list) + (spec: 1 symbol->string symbol->string) (spec: 1 charinteger char->integer) + (spec: 1 inexact->exact inexact->exact) + (spec: 1 cadr cadr) + (spec: 1 symbol? symbol?) + (spec: 1 * *) + (spec: 1 exp exp) + (spec: 1 stringstring number->string) + (spec: 1 real-part real-part) + (spec: 1 vector vector) + (spec: 1 call-with-output-file call-with-output-file) + (spec: 1 string-set! string-set!) + (spec: 1 asin asin) + (spec: 1 sin sin) + (spec: 1 memv memv) + (spec: 1 char-ci>? char-ci>?) + (spec: 1 load load) + (spec: 1 caaadr caaadr) + (spec: 1 cdr cdr) + (spec: 1 integer->char integer->char) (spec: 1 memq memq) - (spec: 1 string-copy string-copy) - (spec: 1 acos acos) - (spec: 1 + +) - (spec: 1 boolean? boolean?) - (spec: 1 transcript-off transcript-off) - (spec: 1 string=? string=?) - (spec: 1 vector->list vector->list) + (spec: 1 write write) + (spec: 1 assoc assoc) + (spec: 1 expt expt) + (spec: 1 char-ci>=? char-ci>=?) + (spec: 1 substring substring) + (spec: 1 equal? equal?) + (spec: 1 zero? zero?) + (spec: 1 caaddr caaddr) + (spec: 1 number? number?) + (spec: 1 cdaadr cdaadr) + (spec: 1 read read) + (spec: 1 current-output-port current-output-port) + (spec: 1 string? string?) + (spec: 1 string-ref string-ref) + (spec: 1 char-ci=? char-ci=?) + (spec: 1 string-fill! string-fill!) + (spec: 1 char? char?) + (spec: 1 with-input-from-file with-input-from-file) + (spec: 1 cdddr cdddr) + (spec: 1 force force) + (spec: 1 inexact? inexact?) + (spec: 1 string>? string>?) + (spec: 1 make-polar make-polar) + (spec: 1 scheme-report-environment scheme-report-environment) (spec: 1 for-each for-each) (spec: 1 char-ci? char>?) - (spec: 1 make-polar make-polar) - (spec: 1 set-cdr! set-cdr!) - (spec: 1 = =) - (spec: 1 current-output-port current-output-port) - (spec: 1 char-ci<=? char-ci<=?) + (spec: 1 display display) + (spec: 1 peek-char peek-char) + (spec: 1 quotient quotient) + (spec: 1 dynamic-wind dynamic-wind) + (spec: 1 rational? rational?) (spec: 1 string-ci=? string-ci=?) - (spec: 1 truncate truncate) - (spec: 1 cddr cddr) + (spec: 1 <= <=) + (spec: 1 assq assq) (spec: 1 pair? pair?) (spec: 1 with-output-to-file with-output-to-file) - (spec: 1 assq assq) - (spec: 1 symbol? symbol?) (spec: 1 caadr caadr) - (spec: 1 string>=? string>=?) - (spec: 1 open-output-file open-output-file) - (spec: 1 char-ci>=? char-ci>=?) - (spec: 1 negative? negative?) - (spec: 1 cdaaar cdaaar) - (spec: 1 equal? equal?) - (spec: 1 write write) - (spec: 1 max max) - (spec: 1 list-ref list-ref) - (spec: 1 expt expt) - (spec: 1 assoc assoc) - (spec: 1 eval eval) - (spec: 1 caaddr caaddr) - (spec: 1 make-string make-string) - (spec: 1 char-ci=? char-ci=?) - (spec: 1 lcm lcm) - (spec: 1 newline newline) - (spec: 1 real-part real-part) - (spec: 1 null-environment null-environment) - (spec: 1 ceiling ceiling) - (spec: 1 char? char?) - (spec: 1 exact? exact?) - (spec: 1 min min) - (spec: 1 string-fill! string-fill!) - (spec: 1 string-ref string-ref) - (spec: 1 vector-ref vector-ref) - (spec: 1 string? string?) - (spec: 1 with-input-from-file with-input-from-file) + (spec: 1 integer? integer?) (spec: 1 cdaar cdaar) - (spec: 1 odd? odd?) - (spec: 1 eqv? eqv?) - (spec: 1 append append) - (spec: 1 make-rectangular make-rectangular) - (spec: 1 * *) - (spec: 1 modulo modulo) - (spec: 1 make-vector make-vector) - (spec: 1 stringstring symbol->string) - (spec: 1 call-with-output-file call-with-output-file) - (spec: 1 char-ci>? char-ci>?) - (spec: 1 null? null?) - (spec: 1 cdaadr cdaadr) - (spec: 1 sqrt sqrt) - (spec: 1 char-whitespace? char-whitespace?) - (spec: 1 angle angle) - (spec: 1 member member) - (spec: 1 vector-set! vector-set!) - (spec: 1 string-set! string-set!) - (spec: 1 cadaar cadaar) - (spec: 1 not not) - (spec: 1 list? list?) - (spec: 1 cdaddr cdaddr) + (spec: 1 numerator numerator) + (spec: 1 open-input-file open-input-file) + (spec: 1 min min) + (spec: 1 newline newline) + (spec: 1 tan tan) + (spec: 1 < <) + (spec: 1 log log) + (spec: 1 atan atan) + (spec: 1 map map) (spec: 1 string-cistring number->string) - (spec: 1 reverse reverse) - (spec: 1 interaction-environment interaction-environment) + (spec: 1 read-char read-char) + (spec: 1 write-char write-char) + (spec: 1 / /) + (spec: 1 modulo modulo) (spec: 1 char-downcase char-downcase) - (spec: 1 cdadar cdadar) - (spec: 1 floor floor) + (spec: 1 list->vector list->vector) + (spec: 1 list list) (spec: 1 string-ci<=? string-ci<=?) - (spec: 1 string-length string-length) - (spec: 1 substring substring) - (spec: 1 zero? zero?) - (spec: 1 write-char write-char) - (spec: 1 input-port? input-port?) (spec: 1 caadar caadar) - (spec: 1 / /) - (spec: 1 integer? integer?) - (spec: 1 cadar cadar) - (spec: 1 read read) - (spec: 1 peek-char peek-char) - (spec: 1 cdar cdar) - (spec: 1 gcd gcd) - (spec: 1 apply apply) - (spec: 1 char-upcase char-upcase) - (spec: 1 list->string list->string) - (spec: 1 string->symbol string->symbol) - (spec: 1 vector-fill! vector-fill!) - (spec: 1 caaar caaar) - (spec: 1 scheme-report-environment scheme-report-environment) - (spec: 1 string>? string>?) - (spec: 1 cadadr cadadr) - (spec: 1 length length) - (spec: 1 list-tail list-tail) - (spec: 1 cdadr cdadr) - (spec: 1 output-port? output-port?) + (spec: 1 string-length string-length) + (spec: 1 cdaaar cdaaar) + (spec: 1 remainder remainder) + (spec: 1 reverse reverse) + (spec: 1 rationalize rationalize) + (spec: 1 string-append string-append) + (spec: 1 make-vector make-vector) + (spec: 1 assv assv) + (spec: 1 make-rectangular make-rectangular) + (spec: 1 procedure? procedure?) + (spec: 1 vector-ref vector-ref) + (spec: 1 eqv? eqv?) + (spec: 1 caar caar) + (spec: 1 cdadar cdadar) + (spec: 1 RuntimeAliases RuntimeAliases) (spec: 1 R5RSRuntime R5RSRuntime) - (spec: 1 GambitRuntime GambitRuntime) (spec: 1 R7RSRuntime R7RSRuntime) (spec: 1 Runtime Runtime) - (spec: 1 RuntimeAliases RuntimeAliases) + (spec: 1 GambitRuntime GambitRuntime) (spec: 1 GerbilRuntime GerbilRuntime) (spec: 1 %%app-dotted %%app) (spec: 1 %%ref-dotted %%ref) diff --git a/src/bootstrap/gerbil/core/contract~1.scm b/src/bootstrap/gerbil/core/contract~1.scm index 05eda69aa..6fd069107 100644 --- a/src/bootstrap/gerbil/core/contract~1.scm +++ b/src/bootstrap/gerbil/core/contract~1.scm @@ -1,328 +1,328 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~InterfaceInfo[1]#_g83968_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84031_| (##structure gx#syntax-quote::t 'interface-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83970_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84033_| (##structure gx#syntax-quote::t 'make-interface-info #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83972_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84035_| (##structure gx#syntax-quote::t 'interface-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83974_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84037_| (##structure gx#syntax-quote::t 'interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83975_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84038_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83976_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84039_| (##structure gx#syntax-quote::t 'interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83977_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84040_| (##structure gx#syntax-quote::t 'interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83978_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84041_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83979_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84042_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83980_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84043_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83981_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84044_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83982_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84045_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83983_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84046_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83984_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84047_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83986_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84049_| (##structure gx#syntax-quote::t 'interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83987_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84050_| (##structure gx#syntax-quote::t 'interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83988_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84051_| (##structure gx#syntax-quote::t 'interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83989_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84052_| (##structure gx#syntax-quote::t 'interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83990_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84053_| (##structure gx#syntax-quote::t 'interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83991_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84054_| (##structure gx#syntax-quote::t 'interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83992_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84055_| (##structure gx#syntax-quote::t 'interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83993_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84056_| (##structure gx#syntax-quote::t 'interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83994_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84057_| (##structure gx#syntax-quote::t 'interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83995_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84058_| (##structure gx#syntax-quote::t 'interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83996_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84059_| (##structure gx#syntax-quote::t 'interface-info-unchecked-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83998_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84061_| (##structure gx#syntax-quote::t '&interface-info-name #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g83999_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84062_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84000_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84063_| (##structure gx#syntax-quote::t '&interface-info-interface-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84001_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84064_| (##structure gx#syntax-quote::t '&interface-info-instance-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84002_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84065_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84003_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84066_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84004_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84067_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84005_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84068_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84006_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84069_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84007_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84070_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84008_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84071_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84010_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84073_| (##structure gx#syntax-quote::t '&interface-info-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84011_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84074_| (##structure gx#syntax-quote::t '&interface-info-interface-mixin-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84012_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84075_| (##structure gx#syntax-quote::t '&interface-info-interface-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84013_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84076_| (##structure gx#syntax-quote::t '&interface-info-instance-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84014_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84077_| (##structure gx#syntax-quote::t '&interface-info-interface-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84015_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84078_| (##structure gx#syntax-quote::t '&interface-info-instance-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84016_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84079_| (##structure gx#syntax-quote::t '&interface-info-instance-try-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84017_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84080_| (##structure gx#syntax-quote::t '&interface-info-instance-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84018_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84081_| (##structure gx#syntax-quote::t '&interface-info-instance-satisfies-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84019_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84082_| (##structure gx#syntax-quote::t '&interface-info-implementation-methods-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~InterfaceInfo[1]#_g84020_| + (define |gerbil/core/contract~InterfaceInfo[1]#_g84083_| (##structure gx#syntax-quote::t '&interface-info-unchecked-implementation-methods-set! @@ -330,7 +330,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~InterfaceInfo[:0:]#interface-info| - (let ((__obj83883 + (let ((__obj83946 (let () (declare (not safe)) (##structure @@ -359,18 +359,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83883 + __obj83946 'gerbil/core/contract~InterfaceInfo#interface-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 'interface-info '2 '#f '#f)) + (##unchecked-structure-set! __obj83946 'interface-info '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83883 + __obj83946 '(name interface-mixin interface-methods instance-type @@ -386,138 +386,138 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83946 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj83946 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj83946 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83946 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83883 '#f '11 '#f '#f)) - (let ((__tmp83967 |gerbil/core/contract~InterfaceInfo[1]#_g83968_|)) + (##unchecked-structure-set! __obj83946 '#f '11 '#f '#f)) + (let ((__tmp84030 |gerbil/core/contract~InterfaceInfo[1]#_g84031_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83967 '12 '#f '#f)) - (let ((__tmp83969 |gerbil/core/contract~InterfaceInfo[1]#_g83970_|)) + (##unchecked-structure-set! __obj83946 __tmp84030 '12 '#f '#f)) + (let ((__tmp84032 |gerbil/core/contract~InterfaceInfo[1]#_g84033_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83969 '13 '#f '#f)) - (let ((__tmp83971 |gerbil/core/contract~InterfaceInfo[1]#_g83972_|)) + (##unchecked-structure-set! __obj83946 __tmp84032 '13 '#f '#f)) + (let ((__tmp84034 |gerbil/core/contract~InterfaceInfo[1]#_g84035_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83971 '14 '#f '#f)) - (let ((__tmp83973 + (##unchecked-structure-set! __obj83946 __tmp84034 '14 '#f '#f)) + (let ((__tmp84036 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83974_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84037_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83975_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84038_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83976_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84039_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83977_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84040_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83978_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84041_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83979_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84042_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83980_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84043_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83981_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84044_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83982_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84045_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83983_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84046_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83984_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84047_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83973 '15 '#f '#f)) - (let ((__tmp83985 + (##unchecked-structure-set! __obj83946 __tmp84036 '15 '#f '#f)) + (let ((__tmp84048 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83986_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84049_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83987_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84050_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83988_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84051_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g83989_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84052_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g83990_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84053_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83991_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84054_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g83992_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84055_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g83993_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84056_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g83994_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84057_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83995_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84058_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g83996_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84059_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83985 '16 '#f '#f)) - (let ((__tmp83997 + (##unchecked-structure-set! __obj83946 __tmp84048 '16 '#f '#f)) + (let ((__tmp84060 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g83998_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84061_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g83999_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84062_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84000_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84063_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84001_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84064_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84002_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84065_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84003_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84066_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84004_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84067_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g84005_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84068_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84006_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84069_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84007_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84070_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84008_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84071_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp83997 '17 '#f '#f)) - (let ((__tmp84009 + (##unchecked-structure-set! __obj83946 __tmp84060 '17 '#f '#f)) + (let ((__tmp84072 (cons (cons 'name - |gerbil/core/contract~InterfaceInfo[1]#_g84010_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84073_|) (cons (cons 'interface-mixin - |gerbil/core/contract~InterfaceInfo[1]#_g84011_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84074_|) (cons (cons 'interface-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84012_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84075_|) (cons (cons 'instance-type - |gerbil/core/contract~InterfaceInfo[1]#_g84013_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84076_|) (cons (cons 'interface-descriptor - |gerbil/core/contract~InterfaceInfo[1]#_g84014_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84077_|) (cons (cons 'instance-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84015_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84078_|) (cons (cons 'instance-try-constructor - |gerbil/core/contract~InterfaceInfo[1]#_g84016_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84079_|) (cons (cons 'instance-predicate ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~InterfaceInfo[1]#_g84017_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84080_|) (cons (cons 'instance-satisfies-predicate - |gerbil/core/contract~InterfaceInfo[1]#_g84018_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84081_|) (cons (cons 'implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84019_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84082_|) (cons (cons 'unchecked-implementation-methods - |gerbil/core/contract~InterfaceInfo[1]#_g84020_|) + |gerbil/core/contract~InterfaceInfo[1]#_g84083_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj83883 __tmp84009 '18 '#f '#f)) - __obj83883))) + (##unchecked-structure-set! __obj83946 __tmp84072 '18 '#f '#f)) + __obj83946))) diff --git a/src/bootstrap/gerbil/core/contract~2.scm b/src/bootstrap/gerbil/core/contract~2.scm index 4afd7457d..2f2fa8312 100644 --- a/src/bootstrap/gerbil/core/contract~2.scm +++ b/src/bootstrap/gerbil/core/contract~2.scm @@ -12,10 +12,10 @@ (make-class-predicate |gerbil/core/contract~TypeReference[1]#type-reference::t|)) (define |gerbil/core/contract~TypeReference[1]#make-type-reference| - (lambda _%$args45108%_ + (lambda _%$args45171%_ (apply make-instance |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%$args45108%_))) + _%$args45171%_))) (define |gerbil/core/contract~TypeReference[1]#type-reference-identifier| (make-class-slot-accessor |gerbil/core/contract~TypeReference[1]#type-reference::t| @@ -33,232 +33,232 @@ |gerbil/core/contract~TypeReference[1]#type-reference::t| 'identifier)) (define |gerbil/core/contract~TypeReference[1]#type-identifier?| - (lambda (_%id45089%_) - (if (gx#identifier? _%id45089%_) - (let ((_%t4509145093%_ (gx#syntax-local-value _%id45089%_ false))) - (if _%t4509145093%_ - (let* ((_%t45097%_ _%t4509145093%_) - (_%$e45100%_ + (lambda (_%id45152%_) + (if (gx#identifier? _%id45152%_) + (let ((_%t4515445156%_ (gx#syntax-local-value _%id45152%_ false))) + (if _%t4515445156%_ + (let* ((_%t45160%_ _%t4515445156%_) + (_%$e45163%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45097%_)))) - (if _%$e45100%_ - _%$e45100%_ - (let ((_%$e45104%_ + _%t45160%_)))) + (if _%$e45163%_ + _%$e45163%_ + (let ((_%$e45167%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45097%_)))) - (if _%$e45104%_ - _%$e45104%_ + _%t45160%_)))) + (if _%$e45167%_ + _%$e45167%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45097%_)))))) + _%t45160%_)))))) '#f)) '#f))) (define |gerbil/core/contract~TypeReference[1]#resolve-type| - (lambda (_%stx45069%_ _%id45071%_) - (let _%loop45073%_ ((_%t45076%_ - (gx#syntax-local-value _%id45071%_ false))) + (lambda (_%stx45132%_ _%id45134%_) + (let _%loop45136%_ ((_%t45139%_ + (gx#syntax-local-value _%id45134%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45076%_)) - _%t45076%_ + _%t45139%_)) + _%t45139%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45076%_)) - _%t45076%_ + _%t45139%_)) + _%t45139%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45076%_)) - (_%loop45073%_ + _%t45139%_)) + (_%loop45136%_ (gx#syntax-local-value - (let ((__obj83891 _%t45076%_)) + (let ((__obj83954 _%t45139%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83891 + __obj83954 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83891 + __obj83954 '1 '#f '#f)) - (unchecked-slot-ref __obj83891 'identifier))) + (unchecked-slot-ref __obj83954 'identifier))) false)) - (if (not _%t45076%_) + (if (not _%t45139%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45069%_ - _%id45071%_) + _%stx45132%_ + _%id45134%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45069%_ - _%id45071%_ - _%t45076%_)))))))) + _%stx45132%_ + _%id45134%_ + _%t45139%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - (lambda (_%stx45045%_ _%id45047%_) - (let _%loop45049%_ ((_%id45052%_ _%id45047%_) - (_%t45054%_ - (gx#syntax-local-value _%id45047%_ false))) + (lambda (_%stx45108%_ _%id45110%_) + (let _%loop45112%_ ((_%id45115%_ _%id45110%_) + (_%t45117%_ + (gx#syntax-local-value _%id45110%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45054%_)) - _%id45052%_ + _%t45117%_)) + _%id45115%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45054%_)) - _%id45052%_ + _%t45117%_)) + _%id45115%_ (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%t45054%_)) - (let ((_%id45062%_ - (let ((__obj83892 _%t45054%_)) + _%t45117%_)) + (let ((_%id45125%_ + (let ((__obj83955 _%t45117%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83892 + __obj83955 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83892 + __obj83955 '1 '#f '#f)) (unchecked-slot-ref - __obj83892 + __obj83955 'identifier))))) - (_%loop45049%_ - _%id45062%_ - (gx#syntax-local-value _%id45062%_ false))) - (if (not _%t45054%_) + (_%loop45112%_ + _%id45125%_ + (gx#syntax-local-value _%id45125%_ false))) + (if (not _%t45117%_) (gx#raise-syntax-error '#f '"unresolved type" - _%stx45045%_ - _%id45052%_) + _%stx45108%_ + _%id45115%_) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45045%_ - _%id45052%_ - _%t45054%_)))))))) + _%stx45108%_ + _%id45115%_ + _%t45117%_)))))))) (define |gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - (lambda (_%stx45032%_ _%id45034%_) - (let ((_%t45036%_ + (lambda (_%stx45095%_ _%id45097%_) + (let ((_%t45099%_ (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45032%_ - _%id45034%_))) + _%stx45095%_ + _%id45097%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%t45036%_)) - (let ((__obj83894 _%t45036%_)) + _%t45099%_)) + (let ((__obj83957 _%t45099%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83894 + __obj83957 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83894 '12 '#f '#f)) - (unchecked-slot-ref __obj83894 'type-descriptor))) + (##unchecked-structure-ref __obj83957 '12 '#f '#f)) + (unchecked-slot-ref __obj83957 'type-descriptor))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%t45036%_)) - (let ((__obj83893 _%t45036%_)) + _%t45099%_)) + (let ((__obj83956 _%t45099%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83893 + __obj83956 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83893 '4 '#f '#f)) - (unchecked-slot-ref __obj83893 'instance-type))) + (##unchecked-structure-ref __obj83956 '4 '#f '#f)) + (unchecked-slot-ref __obj83956 'instance-type))) (gx#raise-syntax-error '#f '"unexpected type; expected class, interface or type reference" - _%stx45032%_ - _%id45034%_ - _%t45036%_)))))) + _%stx45095%_ + _%id45097%_ + _%t45099%_)))))) (define |gerbil/core/contract~TypeReference[:0:]#deftype| - (lambda (_%$stx45112%_) - (let* ((_%g4511645134%_ - (lambda (_%g4511745130%_) + (lambda (_%$stx45175%_) + (let* ((_%g4517945197%_ + (lambda (_%g4518045193%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4511745130%_))) - (_%g4511545189%_ - (lambda (_%g4511745138%_) - (if (gx#stx-pair? _%g4511745138%_) - (let ((_%e4512045141%_ (gx#syntax-e _%g4511745138%_))) - (let ((_%hd4512145145%_ + _%g4518045193%_))) + (_%g4517845252%_ + (lambda (_%g4518045201%_) + (if (gx#stx-pair? _%g4518045201%_) + (let ((_%e4518345204%_ (gx#syntax-e _%g4518045201%_))) + (let ((_%hd4518445208%_ (let () (declare (not safe)) - (##car _%e4512045141%_))) - (_%tl4512245148%_ + (##car _%e4518345204%_))) + (_%tl4518545211%_ (let () (declare (not safe)) - (##cdr _%e4512045141%_)))) - (if (gx#stx-pair? _%tl4512245148%_) - (let ((_%e4512345151%_ - (gx#syntax-e _%tl4512245148%_))) - (let ((_%hd4512445155%_ + (##cdr _%e4518345204%_)))) + (if (gx#stx-pair? _%tl4518545211%_) + (let ((_%e4518645214%_ + (gx#syntax-e _%tl4518545211%_))) + (let ((_%hd4518745218%_ (let () (declare (not safe)) - (##car _%e4512345151%_))) - (_%tl4512545158%_ + (##car _%e4518645214%_))) + (_%tl4518845221%_ (let () (declare (not safe)) - (##cdr _%e4512345151%_)))) - (if (gx#stx-pair? _%tl4512545158%_) - (let ((_%e4512645161%_ - (gx#syntax-e _%tl4512545158%_))) - (let ((_%hd4512745165%_ + (##cdr _%e4518645214%_)))) + (if (gx#stx-pair? _%tl4518845221%_) + (let ((_%e4518945224%_ + (gx#syntax-e _%tl4518845221%_))) + (let ((_%hd4519045228%_ (let () (declare (not safe)) - (##car _%e4512645161%_))) - (_%tl4512845168%_ + (##car _%e4518945224%_))) + (_%tl4519145231%_ (let () (declare (not safe)) - (##cdr _%e4512645161%_)))) - (if (gx#stx-null? _%tl4512845168%_) - ((lambda (_%L45171%_ _%L45173%_) + (##cdr _%e4518945224%_)))) + (if (gx#stx-null? _%tl4519145231%_) + ((lambda (_%L45234%_ _%L45236%_) (if (and (gx#identifier? - _%L45173%_) + _%L45236%_) (gx#identifier? - _%L45171%_)) + _%L45234%_)) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L45173%_ + (cons _%L45236%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -267,17 +267,17 @@ (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L45171%_ '())) + (cons _%L45234%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4511645134%_ - _%g4511745138%_))) - _%hd4512745165%_ - _%hd4512445155%_) - (_%g4511645134%_ - _%g4511745138%_)))) - (_%g4511645134%_ _%g4511745138%_)))) - (_%g4511645134%_ _%g4511745138%_)))) - (_%g4511645134%_ _%g4511745138%_))))) - (_%g4511545189%_ _%$stx45112%_))))) + (_%g4517945197%_ + _%g4518045201%_))) + _%hd4519045228%_ + _%hd4518745218%_) + (_%g4517945197%_ + _%g4518045201%_)))) + (_%g4517945197%_ _%g4518045201%_)))) + (_%g4517945197%_ _%g4518045201%_)))) + (_%g4517945197%_ _%g4518045201%_))))) + (_%g4517845252%_ _%$stx45175%_))))) diff --git a/src/bootstrap/gerbil/core/contract~3.scm b/src/bootstrap/gerbil/core/contract~3.scm index c0cc47a7b..1a87b695e 100644 --- a/src/bootstrap/gerbil/core/contract~3.scm +++ b/src/bootstrap/gerbil/core/contract~3.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeReference[2]#_g84022_| + (define |gerbil/core/contract~TypeReference[2]#_g84085_| (##structure gx#syntax-quote::t 'type-reference::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84024_| + (define |gerbil/core/contract~TypeReference[2]#_g84087_| (##structure gx#syntax-quote::t 'make-type-reference #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84026_| + (define |gerbil/core/contract~TypeReference[2]#_g84089_| (##structure gx#syntax-quote::t 'type-reference? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84028_| + (define |gerbil/core/contract~TypeReference[2]#_g84091_| (##structure gx#syntax-quote::t 'type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84030_| + (define |gerbil/core/contract~TypeReference[2]#_g84093_| (##structure gx#syntax-quote::t 'type-reference-identifier-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84032_| + (define |gerbil/core/contract~TypeReference[2]#_g84095_| (##structure gx#syntax-quote::t '&type-reference-identifier #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeReference[2]#_g84034_| + (define |gerbil/core/contract~TypeReference[2]#_g84097_| (##structure gx#syntax-quote::t '&type-reference-identifier-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeReference[:1:]#type-reference| - (let ((__obj83890 + (let ((__obj83953 (let () (declare (not safe)) (##structure @@ -79,63 +79,63 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83890 + __obj83953 'gerbil/core/contract~TypeReference#type-reference::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 'type-reference '2 '#f '#f)) + (##unchecked-structure-set! __obj83953 'type-reference '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '(identifier) '4 '#f '#f)) + (##unchecked-structure-set! __obj83953 '(identifier) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83953 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj83953 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj83953 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83953 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83890 '#f '11 '#f '#f)) - (let ((__tmp84021 |gerbil/core/contract~TypeReference[2]#_g84022_|)) + (##unchecked-structure-set! __obj83953 '#f '11 '#f '#f)) + (let ((__tmp84084 |gerbil/core/contract~TypeReference[2]#_g84085_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84021 '12 '#f '#f)) - (let ((__tmp84023 |gerbil/core/contract~TypeReference[2]#_g84024_|)) + (##unchecked-structure-set! __obj83953 __tmp84084 '12 '#f '#f)) + (let ((__tmp84086 |gerbil/core/contract~TypeReference[2]#_g84087_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84023 '13 '#f '#f)) - (let ((__tmp84025 |gerbil/core/contract~TypeReference[2]#_g84026_|)) + (##unchecked-structure-set! __obj83953 __tmp84086 '13 '#f '#f)) + (let ((__tmp84088 |gerbil/core/contract~TypeReference[2]#_g84089_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84025 '14 '#f '#f)) - (let ((__tmp84027 + (##unchecked-structure-set! __obj83953 __tmp84088 '14 '#f '#f)) + (let ((__tmp84090 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84028_|) + |gerbil/core/contract~TypeReference[2]#_g84091_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84027 '15 '#f '#f)) - (let ((__tmp84029 + (##unchecked-structure-set! __obj83953 __tmp84090 '15 '#f '#f)) + (let ((__tmp84092 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84030_|) + |gerbil/core/contract~TypeReference[2]#_g84093_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84029 '16 '#f '#f)) - (let ((__tmp84031 + (##unchecked-structure-set! __obj83953 __tmp84092 '16 '#f '#f)) + (let ((__tmp84094 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84032_|) + |gerbil/core/contract~TypeReference[2]#_g84095_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84031 '17 '#f '#f)) - (let ((__tmp84033 + (##unchecked-structure-set! __obj83953 __tmp84094 '17 '#f '#f)) + (let ((__tmp84096 (cons (cons 'identifier - |gerbil/core/contract~TypeReference[2]#_g84034_|) + |gerbil/core/contract~TypeReference[2]#_g84097_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj83890 __tmp84033 '18 '#f '#f)) - __obj83890))) + (##unchecked-structure-set! __obj83953 __tmp84096 '18 '#f '#f)) + __obj83953))) diff --git a/src/bootstrap/gerbil/core/contract~4.scm b/src/bootstrap/gerbil/core/contract~4.scm index 0d5d0f492..d6fe85862 100644 --- a/src/bootstrap/gerbil/core/contract~4.scm +++ b/src/bootstrap/gerbil/core/contract~4.scm @@ -1,142 +1,142 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeCast[1]#_g84037_| + (define |gerbil/core/contract~TypeCast[1]#_g84100_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypeCast[:0:]#:| - (lambda (_%stx45194%_) - (let* ((_%g4519745215%_ - (lambda (_%g4519845211%_) + (lambda (_%stx45257%_) + (let* ((_%g4526045278%_ + (lambda (_%g4526145274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4519845211%_))) - (_%g4519645410%_ - (lambda (_%g4519845219%_) - (if (gx#stx-pair? _%g4519845219%_) - (let ((_%e4520145222%_ (gx#syntax-e _%g4519845219%_))) - (let ((_%hd4520245226%_ + _%g4526145274%_))) + (_%g4525945473%_ + (lambda (_%g4526145282%_) + (if (gx#stx-pair? _%g4526145282%_) + (let ((_%e4526445285%_ (gx#syntax-e _%g4526145282%_))) + (let ((_%hd4526545289%_ (let () (declare (not safe)) - (##car _%e4520145222%_))) - (_%tl4520345229%_ + (##car _%e4526445285%_))) + (_%tl4526645292%_ (let () (declare (not safe)) - (##cdr _%e4520145222%_)))) - (if (gx#stx-pair? _%tl4520345229%_) - (let ((_%e4520445232%_ - (gx#syntax-e _%tl4520345229%_))) - (let ((_%hd4520545236%_ + (##cdr _%e4526445285%_)))) + (if (gx#stx-pair? _%tl4526645292%_) + (let ((_%e4526745295%_ + (gx#syntax-e _%tl4526645292%_))) + (let ((_%hd4526845299%_ (let () (declare (not safe)) - (##car _%e4520445232%_))) - (_%tl4520645239%_ + (##car _%e4526745295%_))) + (_%tl4526945302%_ (let () (declare (not safe)) - (##cdr _%e4520445232%_)))) - (if (gx#stx-pair? _%tl4520645239%_) - (let ((_%e4520745242%_ - (gx#syntax-e _%tl4520645239%_))) - (let ((_%hd4520845246%_ + (##cdr _%e4526745295%_)))) + (if (gx#stx-pair? _%tl4526945302%_) + (let ((_%e4527045305%_ + (gx#syntax-e _%tl4526945302%_))) + (let ((_%hd4527145309%_ (let () (declare (not safe)) - (##car _%e4520745242%_))) - (_%tl4520945249%_ + (##car _%e4527045305%_))) + (_%tl4527245312%_ (let () (declare (not safe)) - (##cdr _%e4520745242%_)))) - (if (gx#stx-null? _%tl4520945249%_) - ((lambda (_%L45252%_ _%L45254%_) + (##cdr _%e4527045305%_)))) + (if (gx#stx-null? _%tl4527245312%_) + ((lambda (_%L45315%_ _%L45317%_) (if (gx#identifier? - _%L45252%_) - (let ((_%meta45271%_ + _%L45315%_) + (let ((_%meta45334%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45194%_ - _%L45252%_)))) + _%stx45257%_ + _%L45315%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45271%_)) - (let* ((_%g4527645291%_ + _%meta45334%_)) + (let* ((_%g4533945354%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4527745287%_) + (lambda (_%g4534045350%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4527745287%_))) - (_%g4527545338%_ - (lambda (_%g4527745295%_) - (if (gx#stx-pair? _%g4527745295%_) - (let ((_%e4528045298%_ - (gx#syntax-e _%g4527745295%_))) - (let ((_%hd4528145302%_ + _%g4534045350%_))) + (_%g4533845401%_ + (lambda (_%g4534045358%_) + (if (gx#stx-pair? _%g4534045358%_) + (let ((_%e4534345361%_ + (gx#syntax-e _%g4534045358%_))) + (let ((_%hd4534445365%_ (let () (declare (not safe)) - (##car _%e4528045298%_))) - (_%tl4528245305%_ + (##car _%e4534345361%_))) + (_%tl4534545368%_ (let () (declare (not safe)) - (##cdr _%e4528045298%_)))) - (if (gx#stx-pair? _%tl4528245305%_) - (let ((_%e4528345308%_ + (##cdr _%e4534345361%_)))) + (if (gx#stx-pair? _%tl4534545368%_) + (let ((_%e4534645371%_ (gx#syntax-e - _%tl4528245305%_))) - (let ((_%hd4528445312%_ + _%tl4534545368%_))) + (let ((_%hd4534745375%_ (let () (declare (not safe)) - (##car _%e4528345308%_))) - (_%tl4528545315%_ + (##car _%e4534645371%_))) + (_%tl4534845378%_ (let () (declare (not safe)) - (##cdr _%e4528345308%_)))) + (##cdr _%e4534645371%_)))) (if (gx#stx-null? - _%tl4528545315%_) - ((lambda (_%L45318%_ - _%L45320%_) - (if (let ((__tmp84035 - (let ((__obj83896 + _%tl4534845378%_) + ((lambda (_%L45381%_ + _%L45383%_) + (if (let ((__tmp84098 + (let ((__obj83959 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45271%_)) + _%meta45334%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83896 + __obj83959 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83896 + __obj83959 '1 '#f '#f)) - (unchecked-slot-ref __obj83896 'id))))) + (unchecked-slot-ref __obj83959 'id))))) (declare (not safe)) - (##memq __tmp84035 '(t void))) + (##memq __tmp84098 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45320%_ '())) - (cons _%L45254%_ '()))) + (cons _%L45383%_ '())) + (cons _%L45317%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45320%_ '())) + (cons _%L45383%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45254%_ '())) + (cons _%L45317%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45318%_ + (cons (cons _%L45381%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'val) '())) (cons (gx#datum->syntax '#f 'val) (cons (cons (gx#datum->syntax '#f 'error) (cons '"bad cast" - (cons _%L45320%_ + (cons _%L45383%_ (cons (gx#datum->syntax '#f 'val) @@ -146,85 +146,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4528445312%_ - _%hd4528145302%_) - (_%g4527645291%_ - _%g4527745295%_)))) - (_%g4527645291%_ _%g4527745295%_)))) - (_%g4527645291%_ _%g4527745295%_))))) - (_%g4527545338%_ - (list (let ((__obj83897 _%meta45271%_)) + _%hd4534745375%_ + _%hd4534445365%_) + (_%g4533945354%_ + _%g4534045358%_)))) + (_%g4533945354%_ _%g4534045358%_)))) + (_%g4533945354%_ _%g4534045358%_))))) + (_%g4533845401%_ + (list (let ((__obj83960 _%meta45334%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83897 + __obj83960 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83897 + __obj83960 '12 '#f '#f)) (unchecked-slot-ref - __obj83897 + __obj83960 'type-descriptor))) - (let ((__obj83898 _%meta45271%_)) + (let ((__obj83961 _%meta45334%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83898 + __obj83961 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83898 + __obj83961 '14 '#f '#f)) (unchecked-slot-ref - __obj83898 + __obj83961 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45271%_)) - (let* ((_%g4534445359%_ - (lambda (_%g4534545355%_) + _%meta45334%_)) + (let* ((_%g4540745422%_ + (lambda (_%g4540845418%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4534545355%_))) - (_%g4534345404%_ - (lambda (_%g4534545363%_) - (if (gx#stx-pair? _%g4534545363%_) - (let ((_%e4534845366%_ - (gx#syntax-e _%g4534545363%_))) - (let ((_%hd4534945370%_ + _%g4540845418%_))) + (_%g4540645467%_ + (lambda (_%g4540845426%_) + (if (gx#stx-pair? _%g4540845426%_) + (let ((_%e4541145429%_ + (gx#syntax-e _%g4540845426%_))) + (let ((_%hd4541245433%_ (let () (declare (not safe)) - (##car _%e4534845366%_))) - (_%tl4535045373%_ + (##car _%e4541145429%_))) + (_%tl4541345436%_ (let () (declare (not safe)) - (##cdr _%e4534845366%_)))) - (if (gx#stx-pair? _%tl4535045373%_) - (let ((_%e4535145376%_ + (##cdr _%e4541145429%_)))) + (if (gx#stx-pair? _%tl4541345436%_) + (let ((_%e4541445439%_ (gx#syntax-e - _%tl4535045373%_))) - (let ((_%hd4535245380%_ + _%tl4541345436%_))) + (let ((_%hd4541545443%_ (let () (declare (not safe)) - (##car _%e4535145376%_))) - (_%tl4535345383%_ + (##car _%e4541445439%_))) + (_%tl4541645446%_ (let () (declare (not safe)) - (##cdr _%e4535145376%_)))) + (##cdr _%e4541445439%_)))) (if (gx#stx-null? - _%tl4535345383%_) - ((lambda (_%L45386%_ - _%L45388%_) + _%tl4541645446%_) + ((lambda (_%L45449%_ + _%L45451%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -232,179 +232,179 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45388%_ '())) - (cons (cons _%L45386%_ (cons _%L45254%_ '())) + (cons _%L45451%_ '())) + (cons (cons _%L45449%_ (cons _%L45317%_ '())) '())))) - _%hd4535245380%_ - _%hd4534945370%_) + _%hd4541545443%_ + _%hd4541245433%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4534445359%_ - _%g4534545363%_)))) - (_%g4534445359%_ - _%g4534545363%_)))) - (_%g4534445359%_ _%g4534545363%_))))) - (_%g4534345404%_ - (list (let ((__obj83895 _%meta45271%_)) + (_%g4540745422%_ + _%g4540845426%_)))) + (_%g4540745422%_ + _%g4540845426%_)))) + (_%g4540745422%_ _%g4540845426%_))))) + (_%g4540645467%_ + (list (let ((__obj83958 _%meta45334%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83895 + __obj83958 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83895 + __obj83958 '4 '#f '#f)) (unchecked-slot-ref - __obj83895 + __obj83958 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45194%_ - _%L45252%_))))) + _%stx45257%_ + _%L45315%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45194%_ - _%L45252%_)))) + _%stx45257%_ + _%L45315%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4519745215%_ - _%g4519845219%_))) - _%hd4520845246%_ - _%hd4520545236%_) - (_%g4519745215%_ - _%g4519845219%_)))) - (_%g4519745215%_ _%g4519845219%_)))) - (_%g4519745215%_ _%g4519845219%_)))) - (_%g4519745215%_ _%g4519845219%_))))) - (_%g4519645410%_ _%stx45194%_)))) + (_%g4526045278%_ + _%g4526145282%_))) + _%hd4527145309%_ + _%hd4526845299%_) + (_%g4526045278%_ + _%g4526145282%_)))) + (_%g4526045278%_ _%g4526145282%_)))) + (_%g4526045278%_ _%g4526145282%_)))) + (_%g4526045278%_ _%g4526145282%_))))) + (_%g4525945473%_ _%stx45257%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:?| - (lambda (_%stx45414%_) - (let* ((_%g4541745435%_ - (lambda (_%g4541845431%_) + (lambda (_%stx45477%_) + (let* ((_%g4548045498%_ + (lambda (_%g4548145494%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4541845431%_))) - (_%g4541645629%_ - (lambda (_%g4541845439%_) - (if (gx#stx-pair? _%g4541845439%_) - (let ((_%e4542145442%_ (gx#syntax-e _%g4541845439%_))) - (let ((_%hd4542245446%_ + _%g4548145494%_))) + (_%g4547945692%_ + (lambda (_%g4548145502%_) + (if (gx#stx-pair? _%g4548145502%_) + (let ((_%e4548445505%_ (gx#syntax-e _%g4548145502%_))) + (let ((_%hd4548545509%_ (let () (declare (not safe)) - (##car _%e4542145442%_))) - (_%tl4542345449%_ + (##car _%e4548445505%_))) + (_%tl4548645512%_ (let () (declare (not safe)) - (##cdr _%e4542145442%_)))) - (if (gx#stx-pair? _%tl4542345449%_) - (let ((_%e4542445452%_ - (gx#syntax-e _%tl4542345449%_))) - (let ((_%hd4542545456%_ + (##cdr _%e4548445505%_)))) + (if (gx#stx-pair? _%tl4548645512%_) + (let ((_%e4548745515%_ + (gx#syntax-e _%tl4548645512%_))) + (let ((_%hd4548845519%_ (let () (declare (not safe)) - (##car _%e4542445452%_))) - (_%tl4542645459%_ + (##car _%e4548745515%_))) + (_%tl4548945522%_ (let () (declare (not safe)) - (##cdr _%e4542445452%_)))) - (if (gx#stx-pair? _%tl4542645459%_) - (let ((_%e4542745462%_ - (gx#syntax-e _%tl4542645459%_))) - (let ((_%hd4542845466%_ + (##cdr _%e4548745515%_)))) + (if (gx#stx-pair? _%tl4548945522%_) + (let ((_%e4549045525%_ + (gx#syntax-e _%tl4548945522%_))) + (let ((_%hd4549145529%_ (let () (declare (not safe)) - (##car _%e4542745462%_))) - (_%tl4542945469%_ + (##car _%e4549045525%_))) + (_%tl4549245532%_ (let () (declare (not safe)) - (##cdr _%e4542745462%_)))) - (if (gx#stx-null? _%tl4542945469%_) - ((lambda (_%L45472%_ _%L45474%_) + (##cdr _%e4549045525%_)))) + (if (gx#stx-null? _%tl4549245532%_) + ((lambda (_%L45535%_ _%L45537%_) (if (gx#identifier? - _%L45472%_) - (let ((_%meta45490%_ + _%L45535%_) + (let ((_%meta45553%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx45414%_ - _%L45472%_)))) + _%stx45477%_ + _%L45535%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta45490%_)) - (let* ((_%g4549545510%_ + _%meta45553%_)) + (let* ((_%g4555845573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4549645506%_) + (lambda (_%g4555945569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4549645506%_))) - (_%g4549445557%_ - (lambda (_%g4549645514%_) - (if (gx#stx-pair? _%g4549645514%_) - (let ((_%e4549945517%_ - (gx#syntax-e _%g4549645514%_))) - (let ((_%hd4550045521%_ + _%g4555945569%_))) + (_%g4555745620%_ + (lambda (_%g4555945577%_) + (if (gx#stx-pair? _%g4555945577%_) + (let ((_%e4556245580%_ + (gx#syntax-e _%g4555945577%_))) + (let ((_%hd4556345584%_ (let () (declare (not safe)) - (##car _%e4549945517%_))) - (_%tl4550145524%_ + (##car _%e4556245580%_))) + (_%tl4556445587%_ (let () (declare (not safe)) - (##cdr _%e4549945517%_)))) - (if (gx#stx-pair? _%tl4550145524%_) - (let ((_%e4550245527%_ + (##cdr _%e4556245580%_)))) + (if (gx#stx-pair? _%tl4556445587%_) + (let ((_%e4556545590%_ (gx#syntax-e - _%tl4550145524%_))) - (let ((_%hd4550345531%_ + _%tl4556445587%_))) + (let ((_%hd4556645594%_ (let () (declare (not safe)) - (##car _%e4550245527%_))) - (_%tl4550445534%_ + (##car _%e4556545590%_))) + (_%tl4556745597%_ (let () (declare (not safe)) - (##cdr _%e4550245527%_)))) + (##cdr _%e4556545590%_)))) (if (gx#stx-null? - _%tl4550445534%_) - ((lambda (_%L45537%_ - _%L45539%_) - (if (let ((__tmp84036 - (let ((__obj83900 + _%tl4556745597%_) + ((lambda (_%L45600%_ + _%L45602%_) + (if (let ((__tmp84099 + (let ((__obj83963 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%meta45490%_)) + _%meta45553%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83900 + __obj83963 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83900 + __obj83963 '1 '#f '#f)) - (unchecked-slot-ref __obj83900 'id))))) + (unchecked-slot-ref __obj83963 'id))))) (declare (not safe)) - (##memq __tmp84036 '(t void))) + (##memq __tmp84099 '(t void))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45539%_ '())) - (cons _%L45474%_ '()))) + (cons _%L45602%_ '())) + (cons _%L45537%_ '()))) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45539%_ '())) + (cons _%L45602%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45474%_ '())) + (cons _%L45537%_ '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -415,7 +415,7 @@ (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'val) '())) - (cons (cons _%L45537%_ + (cons (cons _%L45600%_ (cons (gx#datum->syntax '#f 'val) @@ -426,8 +426,8 @@ '#f 'contract-violation!) (cons '"bad cast" - (cons _%L45474%_ - (cons _%L45537%_ + (cons _%L45537%_ + (cons _%L45600%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -439,85 +439,85 @@ '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4550345531%_ - _%hd4550045521%_) - (_%g4549545510%_ - _%g4549645514%_)))) - (_%g4549545510%_ _%g4549645514%_)))) - (_%g4549545510%_ _%g4549645514%_))))) - (_%g4549445557%_ - (list (let ((__obj83901 _%meta45490%_)) + _%hd4556645594%_ + _%hd4556345584%_) + (_%g4555845573%_ + _%g4555945577%_)))) + (_%g4555845573%_ _%g4555945577%_)))) + (_%g4555845573%_ _%g4555945577%_))))) + (_%g4555745620%_ + (list (let ((__obj83964 _%meta45553%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83901 + __obj83964 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83901 + __obj83964 '12 '#f '#f)) (unchecked-slot-ref - __obj83901 + __obj83964 'type-descriptor))) - (let ((__obj83902 _%meta45490%_)) + (let ((__obj83965 _%meta45553%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83902 + __obj83965 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83902 + __obj83965 '14 '#f '#f)) (unchecked-slot-ref - __obj83902 + __obj83965 'predicate)))))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta45490%_)) - (let* ((_%g4556345578%_ - (lambda (_%g4556445574%_) + _%meta45553%_)) + (let* ((_%g4562645641%_ + (lambda (_%g4562745637%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4556445574%_))) - (_%g4556245623%_ - (lambda (_%g4556445582%_) - (if (gx#stx-pair? _%g4556445582%_) - (let ((_%e4556745585%_ - (gx#syntax-e _%g4556445582%_))) - (let ((_%hd4556845589%_ + _%g4562745637%_))) + (_%g4562545686%_ + (lambda (_%g4562745645%_) + (if (gx#stx-pair? _%g4562745645%_) + (let ((_%e4563045648%_ + (gx#syntax-e _%g4562745645%_))) + (let ((_%hd4563145652%_ (let () (declare (not safe)) - (##car _%e4556745585%_))) - (_%tl4556945592%_ + (##car _%e4563045648%_))) + (_%tl4563245655%_ (let () (declare (not safe)) - (##cdr _%e4556745585%_)))) - (if (gx#stx-pair? _%tl4556945592%_) - (let ((_%e4557045595%_ + (##cdr _%e4563045648%_)))) + (if (gx#stx-pair? _%tl4563245655%_) + (let ((_%e4563345658%_ (gx#syntax-e - _%tl4556945592%_))) - (let ((_%hd4557145599%_ + _%tl4563245655%_))) + (let ((_%hd4563445662%_ (let () (declare (not safe)) - (##car _%e4557045595%_))) - (_%tl4557245602%_ + (##car _%e4563345658%_))) + (_%tl4563545665%_ (let () (declare (not safe)) - (##cdr _%e4557045595%_)))) + (##cdr _%e4563345658%_)))) (if (gx#stx-null? - _%tl4557245602%_) - ((lambda (_%L45605%_ - _%L45607%_) + _%tl4563545665%_) + ((lambda (_%L45668%_ + _%L45670%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -525,10 +525,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L45607%_ '())) + (cons _%L45670%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45474%_ '())) + (cons _%L45537%_ '())) (cons (cons (gx#datum->syntax '#f 'and) @@ -536,152 +536,152 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons (cons _%L45605%_ + (cons (cons _%L45668%_ (cons (gx#datum->syntax '#f 'val) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) - _%hd4557145599%_ - _%hd4556845589%_) + _%hd4563445662%_ + _%hd4563145652%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4556345578%_ - _%g4556445582%_)))) - (_%g4556345578%_ - _%g4556445582%_)))) - (_%g4556345578%_ _%g4556445582%_))))) - (_%g4556245623%_ - (list (let ((__obj83899 _%meta45490%_)) + (_%g4562645641%_ + _%g4562745645%_)))) + (_%g4562645641%_ + _%g4562745645%_)))) + (_%g4562645641%_ _%g4562745645%_))))) + (_%g4562545686%_ + (list (let ((__obj83962 _%meta45553%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83899 + __obj83962 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83899 + __obj83962 '4 '#f '#f)) (unchecked-slot-ref - __obj83899 + __obj83962 'instance-type))) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%stx45414%_ - _%L45472%_))))) + _%stx45477%_ + _%L45535%_))))) (gx#raise-syntax-error '#f '"not a class type or interface" - _%stx45414%_ - _%L45472%_)))) + _%stx45477%_ + _%L45535%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4541745435%_ - _%g4541845439%_))) - _%hd4542845466%_ - _%hd4542545456%_) - (_%g4541745435%_ - _%g4541845439%_)))) - (_%g4541745435%_ _%g4541845439%_)))) - (_%g4541745435%_ _%g4541845439%_)))) - (_%g4541745435%_ _%g4541845439%_))))) - (_%g4541645629%_ _%stx45414%_)))) + (_%g4548045498%_ + _%g4548145502%_))) + _%hd4549145529%_ + _%hd4548845519%_) + (_%g4548045498%_ + _%g4548145502%_)))) + (_%g4548045498%_ _%g4548145502%_)))) + (_%g4548045498%_ _%g4548145502%_)))) + (_%g4548045498%_ _%g4548145502%_))))) + (_%g4547945692%_ _%stx45477%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:-| - (lambda (_%stx45633%_) - (let* ((_%g4563645654%_ - (lambda (_%g4563745650%_) + (lambda (_%stx45696%_) + (let* ((_%g4569945717%_ + (lambda (_%g4570045713%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4563745650%_))) - (_%g4563545740%_ - (lambda (_%g4563745658%_) - (if (gx#stx-pair? _%g4563745658%_) - (let ((_%e4564045661%_ (gx#syntax-e _%g4563745658%_))) - (let ((_%hd4564145665%_ + _%g4570045713%_))) + (_%g4569845803%_ + (lambda (_%g4570045721%_) + (if (gx#stx-pair? _%g4570045721%_) + (let ((_%e4570345724%_ (gx#syntax-e _%g4570045721%_))) + (let ((_%hd4570445728%_ (let () (declare (not safe)) - (##car _%e4564045661%_))) - (_%tl4564245668%_ + (##car _%e4570345724%_))) + (_%tl4570545731%_ (let () (declare (not safe)) - (##cdr _%e4564045661%_)))) - (if (gx#stx-pair? _%tl4564245668%_) - (let ((_%e4564345671%_ - (gx#syntax-e _%tl4564245668%_))) - (let ((_%hd4564445675%_ + (##cdr _%e4570345724%_)))) + (if (gx#stx-pair? _%tl4570545731%_) + (let ((_%e4570645734%_ + (gx#syntax-e _%tl4570545731%_))) + (let ((_%hd4570745738%_ (let () (declare (not safe)) - (##car _%e4564345671%_))) - (_%tl4564545678%_ + (##car _%e4570645734%_))) + (_%tl4570845741%_ (let () (declare (not safe)) - (##cdr _%e4564345671%_)))) - (if (gx#stx-pair? _%tl4564545678%_) - (let ((_%e4564645681%_ - (gx#syntax-e _%tl4564545678%_))) - (let ((_%hd4564745685%_ + (##cdr _%e4570645734%_)))) + (if (gx#stx-pair? _%tl4570845741%_) + (let ((_%e4570945744%_ + (gx#syntax-e _%tl4570845741%_))) + (let ((_%hd4571045748%_ (let () (declare (not safe)) - (##car _%e4564645681%_))) - (_%tl4564845688%_ + (##car _%e4570945744%_))) + (_%tl4571145751%_ (let () (declare (not safe)) - (##cdr _%e4564645681%_)))) - (if (gx#stx-null? _%tl4564845688%_) - ((lambda (_%L45691%_ _%L45693%_) + (##cdr _%e4570945744%_)))) + (if (gx#stx-null? _%tl4571145751%_) + ((lambda (_%L45754%_ _%L45756%_) (if (gx#identifier? - _%L45691%_) - (let* ((_%g4570945717%_ - (lambda (_%g4571045713%_) + _%L45754%_) + (let* ((_%g4577245780%_ + (lambda (_%g4577345776%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4571045713%_))) - (_%g4570845736%_ - (lambda (_%g4571045721%_) - ((lambda (_%L45724%_) + _%g4577345776%_))) + (_%g4577145799%_ + (lambda (_%g4577345784%_) + ((lambda (_%L45787%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L45724%_ '())) - (cons _%L45693%_ '())))) - _%g4571045721%_)))) - (_%g4570845736%_ + (cons _%L45787%_ '())) + (cons _%L45756%_ '())))) + _%g4577345784%_)))) + (_%g4577145799%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx45633%_ - _%L45691%_)))) + _%stx45696%_ + _%L45754%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4563645654%_ - _%g4563745658%_))) - _%hd4564745685%_ - _%hd4564445675%_) - (_%g4563645654%_ - _%g4563745658%_)))) - (_%g4563645654%_ _%g4563745658%_)))) - (_%g4563645654%_ _%g4563745658%_)))) - (_%g4563645654%_ _%g4563745658%_))))) - (_%g4563545740%_ _%stx45633%_)))) + (_%g4569945717%_ + _%g4570045721%_))) + _%hd4571045748%_ + _%hd4570745738%_) + (_%g4569945717%_ + _%g4570045721%_)))) + (_%g4569945717%_ _%g4570045721%_)))) + (_%g4569945717%_ _%g4570045721%_)))) + (_%g4569945717%_ _%g4570045721%_))))) + (_%g4569845803%_ _%stx45696%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:~| - (lambda (_%$stx45744%_) - (let* ((_%__stx7842478425%_ _%$stx45744%_) - (_%g4574945785%_ + (lambda (_%$stx45807%_) + (let* ((_%__stx7848778488%_ _%$stx45807%_) + (_%g4581245848%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7842478425%_)))) - (let ((_%__kont7842778428%_ - (lambda (_%L45903%_ _%L45905%_) + _%__stx7848778488%_)))) + (let ((_%__kont7849078491%_ + (lambda (_%L45966%_ _%L45968%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'val) - (cons _%L45905%_ '())) + (cons _%L45968%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L45903%_ + (cons (cons _%L45966%_ (cons (gx#datum->syntax '#f 'val) @@ -693,237 +693,237 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'contract-violation!) - (cons _%L45905%_ - (cons _%L45903%_ + (cons _%L45968%_ + (cons _%L45966%_ (cons (gx#datum->syntax '#f 'val) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7842978430%_ - (lambda (_%L45842%_ _%L45844%_ _%L45845%_) + (_%__kont7849278493%_ + (lambda (_%L45905%_ _%L45907%_ _%L45908%_) (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f ':~) - (cons _%L45845%_ (cons _%L45844%_ '()))) - (cons _%L45842%_ '())))))) - (if (gx#stx-pair? _%__stx7842478425%_) - (let ((_%e4575345873%_ (gx#syntax-e _%__stx7842478425%_))) - (let ((_%tl4575545880%_ - (let () (declare (not safe)) (##cdr _%e4575345873%_))) - (_%hd4575445877%_ + (cons _%L45908%_ (cons _%L45907%_ '()))) + (cons _%L45905%_ '())))))) + (if (gx#stx-pair? _%__stx7848778488%_) + (let ((_%e4581645936%_ (gx#syntax-e _%__stx7848778488%_))) + (let ((_%tl4581845943%_ + (let () (declare (not safe)) (##cdr _%e4581645936%_))) + (_%hd4581745940%_ (let () (declare (not safe)) - (##car _%e4575345873%_)))) - (if (gx#stx-pair? _%tl4575545880%_) - (let ((_%e4575645883%_ (gx#syntax-e _%tl4575545880%_))) - (let ((_%tl4575845890%_ + (##car _%e4581645936%_)))) + (if (gx#stx-pair? _%tl4581845943%_) + (let ((_%e4581945946%_ (gx#syntax-e _%tl4581845943%_))) + (let ((_%tl4582145953%_ (let () (declare (not safe)) - (##cdr _%e4575645883%_))) - (_%hd4575745887%_ + (##cdr _%e4581945946%_))) + (_%hd4582045950%_ (let () (declare (not safe)) - (##car _%e4575645883%_)))) - (if (gx#stx-pair? _%tl4575845890%_) - (let ((_%e4575945893%_ - (gx#syntax-e _%tl4575845890%_))) - (let ((_%tl4576145900%_ + (##car _%e4581945946%_)))) + (if (gx#stx-pair? _%tl4582145953%_) + (let ((_%e4582245956%_ + (gx#syntax-e _%tl4582145953%_))) + (let ((_%tl4582445963%_ (let () (declare (not safe)) - (##cdr _%e4575945893%_))) - (_%hd4576045897%_ + (##cdr _%e4582245956%_))) + (_%hd4582345960%_ (let () (declare (not safe)) - (##car _%e4575945893%_)))) - (if (gx#stx-null? _%tl4576145900%_) - (_%__kont7842778428%_ - _%hd4576045897%_ - _%hd4575745887%_) - (if (gx#stx-pair? _%tl4576145900%_) - (let ((_%e4577445822%_ + (##car _%e4582245956%_)))) + (if (gx#stx-null? _%tl4582445963%_) + (_%__kont7849078491%_ + _%hd4582345960%_ + _%hd4582045950%_) + (if (gx#stx-pair? _%tl4582445963%_) + (let ((_%e4583745885%_ (gx#syntax-e - _%tl4576145900%_))) - (let ((_%tl4577645829%_ + _%tl4582445963%_))) + (let ((_%tl4583945892%_ (let () (declare (not safe)) - (##cdr _%e4577445822%_))) - (_%hd4577545826%_ + (##cdr _%e4583745885%_))) + (_%hd4583845889%_ (let () (declare (not safe)) - (##car _%e4577445822%_)))) + (##car _%e4583745885%_)))) (if (gx#identifier? - _%hd4577545826%_) + _%hd4583845889%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypeCast[1]#_g84037_| - _%hd4577545826%_) + |gerbil/core/contract~TypeCast[1]#_g84100_| + _%hd4583845889%_) (if (gx#stx-pair? - _%tl4577645829%_) - (let ((_%e4577745832%_ + _%tl4583945892%_) + (let ((_%e4584045895%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4577645829%_))) - (let ((_%tl4577945839%_ + (gx#syntax-e _%tl4583945892%_))) + (let ((_%tl4584245902%_ (let () (declare (not safe)) - (##cdr _%e4577745832%_))) - (_%hd4577845836%_ + (##cdr _%e4584045895%_))) + (_%hd4584145899%_ (let () (declare (not safe)) - (##car _%e4577745832%_)))) - (if (gx#stx-null? _%tl4577945839%_) - (_%__kont7842978430%_ - _%hd4577845836%_ - _%hd4576045897%_ - _%hd4575745887%_) - (let () (declare (not safe)) (_%g4574945785%_))))) - (let () (declare (not safe)) (_%g4574945785%_))) - (let () (declare (not safe)) (_%g4574945785%_))) + (##car _%e4584045895%_)))) + (if (gx#stx-null? _%tl4584245902%_) + (_%__kont7849278493%_ + _%hd4584145899%_ + _%hd4582345960%_ + _%hd4582045950%_) + (let () (declare (not safe)) (_%g4581245848%_))))) + (let () (declare (not safe)) (_%g4581245848%_))) + (let () (declare (not safe)) (_%g4581245848%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4574945785%_))))) + (_%g4581245848%_))))) (let () (declare (not safe)) - (_%g4574945785%_)))))) + (_%g4581245848%_)))))) (let () (declare (not safe)) - (_%g4574945785%_))))) - (let () (declare (not safe)) (_%g4574945785%_))))) - (let () (declare (not safe)) (_%g4574945785%_))))))) + (_%g4581245848%_))))) + (let () (declare (not safe)) (_%g4581245848%_))))) + (let () (declare (not safe)) (_%g4581245848%_))))))) (define |gerbil/core/contract~TypeCast[:0:]#::-| - (lambda (_%$stx45924%_) - (let ((_%g4592745934%_ - (lambda (_%g4592845930%_) + (lambda (_%$stx45987%_) + (let ((_%g4599045997%_ + (lambda (_%g4599145993%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4592845930%_)))) - (_%g4592745934%_ _%$stx45924%_)))) + _%g4599145993%_)))) + (_%g4599045997%_ _%$stx45987%_)))) (define |gerbil/core/contract~TypeCast[:0:]#:=| - (lambda (_%$stx45938%_) - (let ((_%g4594145948%_ - (lambda (_%g4594245944%_) + (lambda (_%$stx46001%_) + (let ((_%g4600446011%_ + (lambda (_%g4600546007%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4594245944%_)))) - (_%g4594145948%_ _%$stx45938%_)))) + _%g4600546007%_)))) + (_%g4600446011%_ _%$stx46001%_)))) (define |gerbil/core/contract~TypeCast[:0:]#check-nil!| - (lambda (_%$stx45952%_) - (let* ((_%g4595645970%_ - (lambda (_%g4595745966%_) + (lambda (_%$stx46015%_) + (let* ((_%g4601946033%_ + (lambda (_%g4602046029%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4595745966%_))) - (_%g4595546011%_ - (lambda (_%g4595745974%_) - (if (gx#stx-pair? _%g4595745974%_) - (let ((_%e4595945977%_ (gx#syntax-e _%g4595745974%_))) - (let ((_%hd4596045981%_ + _%g4602046029%_))) + (_%g4601846074%_ + (lambda (_%g4602046037%_) + (if (gx#stx-pair? _%g4602046037%_) + (let ((_%e4602246040%_ (gx#syntax-e _%g4602046037%_))) + (let ((_%hd4602346044%_ (let () (declare (not safe)) - (##car _%e4595945977%_))) - (_%tl4596145984%_ + (##car _%e4602246040%_))) + (_%tl4602446047%_ (let () (declare (not safe)) - (##cdr _%e4595945977%_)))) - (if (gx#stx-pair? _%tl4596145984%_) - (let ((_%e4596245987%_ - (gx#syntax-e _%tl4596145984%_))) - (let ((_%hd4596345991%_ + (##cdr _%e4602246040%_)))) + (if (gx#stx-pair? _%tl4602446047%_) + (let ((_%e4602546050%_ + (gx#syntax-e _%tl4602446047%_))) + (let ((_%hd4602646054%_ (let () (declare (not safe)) - (##car _%e4596245987%_))) - (_%tl4596445994%_ + (##car _%e4602546050%_))) + (_%tl4602746057%_ (let () (declare (not safe)) - (##cdr _%e4596245987%_)))) - (if (gx#stx-null? _%tl4596445994%_) - ((lambda (_%L45997%_) + (##cdr _%e4602546050%_)))) + (if (gx#stx-null? _%tl4602746057%_) + ((lambda (_%L46060%_) (cons (gx#datum->syntax '#f 'or) - (cons _%L45997%_ + (cons _%L46060%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'nil-dereference!) - (cons _%L45997%_ '())) + (cons _%L46060%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4596345991%_) - (_%g4595645970%_ _%g4595745974%_)))) - (_%g4595645970%_ _%g4595745974%_)))) - (_%g4595645970%_ _%g4595745974%_))))) - (_%g4595546011%_ _%$stx45952%_)))) + _%hd4602646054%_) + (_%g4601946033%_ _%g4602046037%_)))) + (_%g4601946033%_ _%g4602046037%_)))) + (_%g4601946033%_ _%g4602046037%_))))) + (_%g4601846074%_ _%$stx46015%_)))) (define |gerbil/core/contract~TypeCast[:0:]#contract-violation!| - (lambda (_%stx46015%_) - (let* ((_%g4601846041%_ - (lambda (_%g4601946037%_) + (lambda (_%stx46078%_) + (let* ((_%g4608146104%_ + (lambda (_%g4608246100%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4601946037%_))) - (_%g4601746165%_ - (lambda (_%g4601946045%_) - (if (gx#stx-pair? _%g4601946045%_) - (let ((_%e4602446048%_ (gx#syntax-e _%g4601946045%_))) - (let ((_%hd4602546052%_ + _%g4608246100%_))) + (_%g4608046228%_ + (lambda (_%g4608246108%_) + (if (gx#stx-pair? _%g4608246108%_) + (let ((_%e4608746111%_ (gx#syntax-e _%g4608246108%_))) + (let ((_%hd4608846115%_ (let () (declare (not safe)) - (##car _%e4602446048%_))) - (_%tl4602646055%_ + (##car _%e4608746111%_))) + (_%tl4608946118%_ (let () (declare (not safe)) - (##cdr _%e4602446048%_)))) - (if (gx#stx-pair? _%tl4602646055%_) - (let ((_%e4602746058%_ - (gx#syntax-e _%tl4602646055%_))) - (let ((_%hd4602846062%_ + (##cdr _%e4608746111%_)))) + (if (gx#stx-pair? _%tl4608946118%_) + (let ((_%e4609046121%_ + (gx#syntax-e _%tl4608946118%_))) + (let ((_%hd4609146125%_ (let () (declare (not safe)) - (##car _%e4602746058%_))) - (_%tl4602946065%_ + (##car _%e4609046121%_))) + (_%tl4609246128%_ (let () (declare (not safe)) - (##cdr _%e4602746058%_)))) - (if (gx#stx-pair? _%tl4602946065%_) - (let ((_%e4603046068%_ - (gx#syntax-e _%tl4602946065%_))) - (let ((_%hd4603146072%_ + (##cdr _%e4609046121%_)))) + (if (gx#stx-pair? _%tl4609246128%_) + (let ((_%e4609346131%_ + (gx#syntax-e _%tl4609246128%_))) + (let ((_%hd4609446135%_ (let () (declare (not safe)) - (##car _%e4603046068%_))) - (_%tl4603246075%_ + (##car _%e4609346131%_))) + (_%tl4609546138%_ (let () (declare (not safe)) - (##cdr _%e4603046068%_)))) - (if (gx#stx-pair? _%tl4603246075%_) - (let ((_%e4603346078%_ + (##cdr _%e4609346131%_)))) + (if (gx#stx-pair? _%tl4609546138%_) + (let ((_%e4609646141%_ (gx#syntax-e - _%tl4603246075%_))) - (let ((_%hd4603446082%_ + _%tl4609546138%_))) + (let ((_%hd4609746145%_ (let () (declare (not safe)) - (##car _%e4603346078%_))) - (_%tl4603546085%_ + (##car _%e4609646141%_))) + (_%tl4609846148%_ (let () (declare (not safe)) - (##cdr _%e4603346078%_)))) + (##cdr _%e4609646141%_)))) (if (gx#stx-null? - _%tl4603546085%_) - ((lambda (_%L46088%_ - _%L46090%_ - _%L46091%_ - _%L46092%_) - (let* ((_%g4611246120%_ + _%tl4609846148%_) + ((lambda (_%L46151%_ + _%L46153%_ + _%L46154%_ + _%L46155%_) + (let* ((_%g4617546183%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g4611346116%_) + (lambda (_%g4617646179%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4611346116%_))) - (_%g4611146139%_ - (lambda (_%g4611346124%_) - ((lambda (_%L46127%_) + _%g4617646179%_))) + (_%g4617446202%_ + (lambda (_%g4617646187%_) + ((lambda (_%L46190%_) (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -934,92 +934,92 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L46127%_ '())) + (cons _%L46190%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46090%_ '())) + (cons _%L46153%_ '())) (cons 'value: - (cons _%L46088%_ '())))))))) + (cons _%L46151%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g4611346124%_)))) - (_%g4611146139%_ - (let ((_%$e46151%_ - (let ((_%$e46143%_ (gx#stx-source _%L46091%_))) - (if _%$e46143%_ - _%$e46143%_ - (let ((_%$e46147%_ - (gx#stx-source _%stx46015%_))) - (if _%$e46147%_ - _%$e46147%_ - (gx#stx-source _%L46092%_))))))) - (if _%$e46151%_ - ((lambda (_%locat46155%_) + _%g4617646187%_)))) + (_%g4617446202%_ + (let ((_%$e46214%_ + (let ((_%$e46206%_ (gx#stx-source _%L46154%_))) + (if _%$e46206%_ + _%$e46206%_ + (let ((_%$e46210%_ + (gx#stx-source _%stx46078%_))) + (if _%$e46210%_ + _%$e46210%_ + (gx#stx-source _%L46155%_))))))) + (if _%$e46214%_ + ((lambda (_%locat46218%_) (call-with-output-string '"" - (lambda (_%g4615746159%_) + (lambda (_%g4622046222%_) (let () (declare (not safe)) (##display-locat - _%locat46155%_ + _%locat46218%_ '#t - _%g4615746159%_))))) - _%$e46151%_) + _%g4622046222%_))))) + _%$e46214%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4603446082%_ - _%hd4603146072%_ - _%hd4602846062%_ - _%hd4602546052%_) - (_%g4601846041%_ _%g4601946045%_)))) + _%hd4609746145%_ + _%hd4609446135%_ + _%hd4609146125%_ + _%hd4608846115%_) + (_%g4608146104%_ _%g4608246108%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4601846041%_ - _%g4601946045%_)))) - (_%g4601846041%_ _%g4601946045%_)))) - (_%g4601846041%_ _%g4601946045%_)))) - (_%g4601846041%_ _%g4601946045%_))))) - (_%g4601746165%_ _%stx46015%_)))) + (_%g4608146104%_ + _%g4608246108%_)))) + (_%g4608146104%_ _%g4608246108%_)))) + (_%g4608146104%_ _%g4608246108%_)))) + (_%g4608146104%_ _%g4608246108%_))))) + (_%g4608046228%_ _%stx46078%_)))) (define |gerbil/core/contract~TypeCast[:0:]#nil-dereference!| - (lambda (_%stx46169%_) - (let* ((_%g4617246187%_ - (lambda (_%g4617346183%_) + (lambda (_%stx46232%_) + (let* ((_%g4623546250%_ + (lambda (_%g4623646246%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4617346183%_))) - (_%g4617146283%_ - (lambda (_%g4617346191%_) - (if (gx#stx-pair? _%g4617346191%_) - (let ((_%e4617646194%_ (gx#syntax-e _%g4617346191%_))) - (let ((_%hd4617746198%_ + _%g4623646246%_))) + (_%g4623446346%_ + (lambda (_%g4623646254%_) + (if (gx#stx-pair? _%g4623646254%_) + (let ((_%e4623946257%_ (gx#syntax-e _%g4623646254%_))) + (let ((_%hd4624046261%_ (let () (declare (not safe)) - (##car _%e4617646194%_))) - (_%tl4617846201%_ + (##car _%e4623946257%_))) + (_%tl4624146264%_ (let () (declare (not safe)) - (##cdr _%e4617646194%_)))) - (if (gx#stx-pair? _%tl4617846201%_) - (let ((_%e4617946204%_ - (gx#syntax-e _%tl4617846201%_))) - (let ((_%hd4618046208%_ + (##cdr _%e4623946257%_)))) + (if (gx#stx-pair? _%tl4624146264%_) + (let ((_%e4624246267%_ + (gx#syntax-e _%tl4624146264%_))) + (let ((_%hd4624346271%_ (let () (declare (not safe)) - (##car _%e4617946204%_))) - (_%tl4618146211%_ + (##car _%e4624246267%_))) + (_%tl4624446274%_ (let () (declare (not safe)) - (##cdr _%e4617946204%_)))) - (if (gx#stx-null? _%tl4618146211%_) - ((lambda (_%L46214%_ _%L46216%_) - (let* ((_%g4623046238%_ - (lambda (_%g4623146234%_) + (##cdr _%e4624246267%_)))) + (if (gx#stx-null? _%tl4624446274%_) + ((lambda (_%L46277%_ _%L46279%_) + (let* ((_%g4629346301%_ + (lambda (_%g4629446297%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4623146234%_))) - (_%g4622946257%_ - (lambda (_%g4623146242%_) - ((lambda (_%L46245%_) + _%g4629446297%_))) + (_%g4629246320%_ + (lambda (_%g4629446305%_) + ((lambda (_%L46308%_) (cons (gx#datum->syntax '#f 'abort!) @@ -1032,86 +1032,86 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L46245%_ '())) + (cons _%L46308%_ '())) (cons 'contract: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L46214%_ '())) + (cons _%L46277%_ '())) '())) (cons 'value: (cons '#f '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g4623146242%_)))) - (_%g4622946257%_ - (let ((_%$e46269%_ - (let ((_%$e46261%_ + _%g4629446305%_)))) + (_%g4629246320%_ + (let ((_%$e46332%_ + (let ((_%$e46324%_ (gx#stx-source - _%L46214%_))) - (if _%$e46261%_ - _%$e46261%_ - (let ((_%$e46265%_ + _%L46277%_))) + (if _%$e46324%_ + _%$e46324%_ + (let ((_%$e46328%_ (gx#stx-source ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx46169%_))) - (if _%$e46265%_ _%$e46265%_ (gx#stx-source _%L46216%_))))))) + _%stx46232%_))) + (if _%$e46328%_ _%$e46328%_ (gx#stx-source _%L46279%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e46269%_ - ((lambda (_%locat46273%_) + (if _%$e46332%_ + ((lambda (_%locat46336%_) (call-with-output-string '"" - (lambda (_%g4627546277%_) + (lambda (_%g4633846340%_) (let () (declare (not safe)) (##display-locat - _%locat46273%_ + _%locat46336%_ '#t - _%g4627546277%_))))) - _%$e46269%_) + _%g4633846340%_))))) + _%$e46332%_) (gx#expander-context-id (gx#core-context-top))))))) - _%hd4618046208%_ - _%hd4617746198%_) - (_%g4617246187%_ _%g4617346191%_)))) - (_%g4617246187%_ _%g4617346191%_)))) - (_%g4617246187%_ _%g4617346191%_))))) - (_%g4617146283%_ _%stx46169%_)))) + _%hd4624346271%_ + _%hd4624046261%_) + (_%g4623546250%_ _%g4623646254%_)))) + (_%g4623546250%_ _%g4623646254%_)))) + (_%g4623546250%_ _%g4623646254%_))))) + (_%g4623446346%_ _%stx46232%_)))) (define |gerbil/core/contract~TypeCast[:0:]#abort!| - (lambda (_%$stx46287%_) - (let* ((_%g4629146305%_ - (lambda (_%g4629246301%_) + (lambda (_%$stx46350%_) + (let* ((_%g4635446368%_ + (lambda (_%g4635546364%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4629246301%_))) - (_%g4629046346%_ - (lambda (_%g4629246309%_) - (if (gx#stx-pair? _%g4629246309%_) - (let ((_%e4629446312%_ (gx#syntax-e _%g4629246309%_))) - (let ((_%hd4629546316%_ + _%g4635546364%_))) + (_%g4635346409%_ + (lambda (_%g4635546372%_) + (if (gx#stx-pair? _%g4635546372%_) + (let ((_%e4635746375%_ (gx#syntax-e _%g4635546372%_))) + (let ((_%hd4635846379%_ (let () (declare (not safe)) - (##car _%e4629446312%_))) - (_%tl4629646319%_ + (##car _%e4635746375%_))) + (_%tl4635946382%_ (let () (declare (not safe)) - (##cdr _%e4629446312%_)))) - (if (gx#stx-pair? _%tl4629646319%_) - (let ((_%e4629746322%_ - (gx#syntax-e _%tl4629646319%_))) - (let ((_%hd4629846326%_ + (##cdr _%e4635746375%_)))) + (if (gx#stx-pair? _%tl4635946382%_) + (let ((_%e4636046385%_ + (gx#syntax-e _%tl4635946382%_))) + (let ((_%hd4636146389%_ (let () (declare (not safe)) - (##car _%e4629746322%_))) - (_%tl4629946329%_ + (##car _%e4636046385%_))) + (_%tl4636246392%_ (let () (declare (not safe)) - (##cdr _%e4629746322%_)))) - (if (gx#stx-null? _%tl4629946329%_) - ((lambda (_%L46332%_) + (##cdr _%e4636046385%_)))) + (if (gx#stx-null? _%tl4636246392%_) + ((lambda (_%L46395%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -1123,13 +1123,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - (cons _%L46332%_ + (cons _%L46395%_ (cons (cons (gx#datum->syntax '#f 'void) '()) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4629846326%_) - (_%g4629146305%_ _%g4629246309%_)))) - (_%g4629146305%_ _%g4629246309%_)))) - (_%g4629146305%_ _%g4629246309%_))))) - (_%g4629046346%_ _%$stx46287%_)))))) + _%hd4636146389%_) + (_%g4635446368%_ _%g4635546372%_)))) + (_%g4635446368%_ _%g4635546372%_)))) + (_%g4635446368%_ _%g4635546372%_))))) + (_%g4635346409%_ _%$stx46350%_)))))) diff --git a/src/bootstrap/gerbil/core/contract~5.scm b/src/bootstrap/gerbil/core/contract~5.scm index dc7c0a3f2..94ee845b9 100644 --- a/src/bootstrap/gerbil/core/contract~5.scm +++ b/src/bootstrap/gerbil/core/contract~5.scm @@ -1,132 +1,132 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypeEnv[1]#_g84039_| + (define |gerbil/core/contract~TypeEnv[1]#_g84102_| (##structure gx#syntax-quote::t 'type-env::t #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84041_| + (define |gerbil/core/contract~TypeEnv[1]#_g84104_| (##structure gx#syntax-quote::t 'make-type-env #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84043_| + (define |gerbil/core/contract~TypeEnv[1]#_g84106_| (##structure gx#syntax-quote::t 'type-env? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84045_| + (define |gerbil/core/contract~TypeEnv[1]#_g84108_| (##structure gx#syntax-quote::t 'type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84046_| + (define |gerbil/core/contract~TypeEnv[1]#_g84109_| (##structure gx#syntax-quote::t 'type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84047_| + (define |gerbil/core/contract~TypeEnv[1]#_g84110_| (##structure gx#syntax-quote::t 'type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84048_| + (define |gerbil/core/contract~TypeEnv[1]#_g84111_| (##structure gx#syntax-quote::t 'type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84050_| + (define |gerbil/core/contract~TypeEnv[1]#_g84113_| (##structure gx#syntax-quote::t 'type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84051_| + (define |gerbil/core/contract~TypeEnv[1]#_g84114_| (##structure gx#syntax-quote::t 'type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84052_| + (define |gerbil/core/contract~TypeEnv[1]#_g84115_| (##structure gx#syntax-quote::t 'type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84053_| + (define |gerbil/core/contract~TypeEnv[1]#_g84116_| (##structure gx#syntax-quote::t 'type-env-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84055_| + (define |gerbil/core/contract~TypeEnv[1]#_g84118_| (##structure gx#syntax-quote::t '&type-env-var #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84056_| + (define |gerbil/core/contract~TypeEnv[1]#_g84119_| (##structure gx#syntax-quote::t '&type-env-type #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84057_| + (define |gerbil/core/contract~TypeEnv[1]#_g84120_| (##structure gx#syntax-quote::t '&type-env-checked? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84058_| + (define |gerbil/core/contract~TypeEnv[1]#_g84121_| (##structure gx#syntax-quote::t '&type-env-super #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84060_| + (define |gerbil/core/contract~TypeEnv[1]#_g84123_| (##structure gx#syntax-quote::t '&type-env-var-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84061_| + (define |gerbil/core/contract~TypeEnv[1]#_g84124_| (##structure gx#syntax-quote::t '&type-env-type-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84062_| + (define |gerbil/core/contract~TypeEnv[1]#_g84125_| (##structure gx#syntax-quote::t '&type-env-checked?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypeEnv[1]#_g84063_| + (define |gerbil/core/contract~TypeEnv[1]#_g84126_| (##structure gx#syntax-quote::t '&type-env-super-set! @@ -134,7 +134,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/contract~TypeEnv[:0:]#type-env| - (let ((__obj83903 + (let ((__obj83966 (let () (declare (not safe)) (##structure @@ -163,88 +163,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj83903 + __obj83966 'gerbil/core/contract~TypeEnv#type-env::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 'type-env '2 '#f '#f)) + (##unchecked-structure-set! __obj83966 'type-env '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83903 + __obj83966 '(var type checked? super) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj83966 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj83966 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj83966 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj83966 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj83903 '#f '11 '#f '#f)) - (let ((__tmp84038 |gerbil/core/contract~TypeEnv[1]#_g84039_|)) + (##unchecked-structure-set! __obj83966 '#f '11 '#f '#f)) + (let ((__tmp84101 |gerbil/core/contract~TypeEnv[1]#_g84102_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84038 '12 '#f '#f)) - (let ((__tmp84040 |gerbil/core/contract~TypeEnv[1]#_g84041_|)) + (##unchecked-structure-set! __obj83966 __tmp84101 '12 '#f '#f)) + (let ((__tmp84103 |gerbil/core/contract~TypeEnv[1]#_g84104_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84040 '13 '#f '#f)) - (let ((__tmp84042 |gerbil/core/contract~TypeEnv[1]#_g84043_|)) + (##unchecked-structure-set! __obj83966 __tmp84103 '13 '#f '#f)) + (let ((__tmp84105 |gerbil/core/contract~TypeEnv[1]#_g84106_|)) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84042 '14 '#f '#f)) - (let ((__tmp84044 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84045_|) + (##unchecked-structure-set! __obj83966 __tmp84105 '14 '#f '#f)) + (let ((__tmp84107 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84108_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84046_|) + |gerbil/core/contract~TypeEnv[1]#_g84109_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84047_|) + |gerbil/core/contract~TypeEnv[1]#_g84110_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84048_|) + |gerbil/core/contract~TypeEnv[1]#_g84111_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84044 '15 '#f '#f)) - (let ((__tmp84049 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84050_|) + (##unchecked-structure-set! __obj83966 __tmp84107 '15 '#f '#f)) + (let ((__tmp84112 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84113_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84051_|) + |gerbil/core/contract~TypeEnv[1]#_g84114_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84052_|) + |gerbil/core/contract~TypeEnv[1]#_g84115_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84053_|) + |gerbil/core/contract~TypeEnv[1]#_g84116_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84049 '16 '#f '#f)) - (let ((__tmp84054 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84055_|) + (##unchecked-structure-set! __obj83966 __tmp84112 '16 '#f '#f)) + (let ((__tmp84117 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84118_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84056_|) + |gerbil/core/contract~TypeEnv[1]#_g84119_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84057_|) + |gerbil/core/contract~TypeEnv[1]#_g84120_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84058_|) + |gerbil/core/contract~TypeEnv[1]#_g84121_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84054 '17 '#f '#f)) - (let ((__tmp84059 - (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84060_|) + (##unchecked-structure-set! __obj83966 __tmp84117 '17 '#f '#f)) + (let ((__tmp84122 + (cons (cons 'var |gerbil/core/contract~TypeEnv[1]#_g84123_|) (cons (cons 'type - |gerbil/core/contract~TypeEnv[1]#_g84061_|) + |gerbil/core/contract~TypeEnv[1]#_g84124_|) (cons (cons 'checked? - |gerbil/core/contract~TypeEnv[1]#_g84062_|) + |gerbil/core/contract~TypeEnv[1]#_g84125_|) (cons (cons 'super - |gerbil/core/contract~TypeEnv[1]#_g84063_|) + |gerbil/core/contract~TypeEnv[1]#_g84126_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj83903 __tmp84059 '18 '#f '#f)) - __obj83903))) + (##unchecked-structure-set! __obj83966 __tmp84122 '18 '#f '#f)) + __obj83966))) diff --git a/src/bootstrap/gerbil/core/contract~6.scm b/src/bootstrap/gerbil/core/contract~6.scm index 2c2d0d78d..1bd5949ad 100644 --- a/src/bootstrap/gerbil/core/contract~6.scm +++ b/src/bootstrap/gerbil/core/contract~6.scm @@ -1,32 +1,32 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Using[1]#_g84064_| + (define |gerbil/core/contract~Using[1]#_g84127_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84065_| + (define |gerbil/core/contract~Using[1]#_g84128_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84066_| + (define |gerbil/core/contract~Using[1]#_g84129_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84069_| + (define |gerbil/core/contract~Using[1]#_g84132_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84070_| + (define |gerbil/core/contract~Using[1]#_g84133_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84073_| + (define |gerbil/core/contract~Using[1]#_g84136_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84074_| + (define |gerbil/core/contract~Using[1]#_g84137_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84075_| + (define |gerbil/core/contract~Using[1]#_g84138_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84076_| + (define |gerbil/core/contract~Using[1]#_g84139_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84080_| + (define |gerbil/core/contract~Using[1]#_g84143_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84081_| + (define |gerbil/core/contract~Using[1]#_g84144_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84082_| + (define |gerbil/core/contract~Using[1]#_g84145_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84083_| + (define |gerbil/core/contract~Using[1]#_g84146_| (##structure gx#syntax-quote::t '::- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Using[1]#_g84087_| + (define |gerbil/core/contract~Using[1]#_g84150_| (##structure gx#syntax-quote::t '%%ref-dotted @@ -35,5012 +35,5012 @@ '())) (begin (define |gerbil/core/contract~Using[:0:]#using| - (lambda (_%stx46365%_) - (let* ((_%__stx7849078491%_ _%stx46365%_) - (_%g4637446583%_ + (lambda (_%stx46428%_) + (let* ((_%__stx7855378554%_ _%stx46428%_) + (_%g4643746646%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7849078491%_)))) - (let ((_%__kont7849378494%_ - (lambda (_%L47489%_ - _%L47491%_ - _%L47492%_ - _%L47493%_ - _%L47494%_) + _%__stx7855378554%_)))) + (let ((_%__kont7855678557%_ + (lambda (_%L47552%_ + _%L47554%_ + _%L47555%_ + _%L47556%_ + _%L47557%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47494%_ (cons _%L47493%_ '())) + (cons (cons _%L47557%_ (cons _%L47556%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47494%_ - (cons _%L47492%_ - (cons _%L47491%_ + (cons (cons _%L47557%_ + (cons _%L47555%_ + (cons _%L47554%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4753747540%_ + (foldr (lambda (_%g4760047603%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4753847543%_) - (cons _%g4753747540%_ _%g4753847543%_)) + _%g4760147606%_) + (cons _%g4760047603%_ _%g4760147606%_)) '() - _%L47489%_))) + _%L47552%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7849778498%_ - (lambda (_%L47333%_ - _%L47335%_ - _%L47336%_ - _%L47337%_ - _%L47338%_ - _%L47339%_) + (_%__kont7856078561%_ + (lambda (_%L47396%_ + _%L47398%_ + _%L47399%_ + _%L47400%_ + _%L47401%_ + _%L47402%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L47339%_ (cons _%L47338%_ '())) + (cons (cons _%L47402%_ (cons _%L47401%_ '())) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47339%_ + (cons (cons _%L47402%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47337%_ + (cons _%L47400%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L47339%_ + (cons (cons _%L47402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47336%_ (cons _%L47335%_ '()))) - (foldr (lambda (_%g4738347386%_ _%g4738447389%_) - (cons _%g4738347386%_ _%g4738447389%_)) + (cons _%L47399%_ (cons _%L47398%_ '()))) + (foldr (lambda (_%g4744647449%_ _%g4744747452%_) + (cons _%g4744647449%_ _%g4744747452%_)) '() - _%L47333%_))) + _%L47396%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7850178502%_ - (lambda (_%L47150%_ _%L47152%_ _%L47153%_ _%L47154%_) - (let ((_%meta47191%_ + (_%__kont7856478565%_ + (lambda (_%L47213%_ _%L47215%_ _%L47216%_ _%L47217%_) + (let ((_%meta47254%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx46365%_ - _%L47152%_)))) + _%stx46428%_ + _%L47215%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%meta47191%_)) + _%meta47254%_)) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L47154%_ - (cons _%L47153%_ - (cons _%L47152%_ '()))) - (foldr (lambda (_%g4719547198%_ - _%g4719647201%_) - (cons _%g4719547198%_ - _%g4719647201%_)) + (cons (cons _%L47217%_ + (cons _%L47216%_ + (cons _%L47215%_ '()))) + (foldr (lambda (_%g4725847261%_ + _%g4725947264%_) + (cons _%g4725847261%_ + _%g4725947264%_)) '() - _%L47150%_))) + _%L47213%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%meta47191%_)) + _%meta47254%_)) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L47154%_ - (cons _%L47153%_ - (cons _%L47152%_ '()))) - (foldr (lambda (_%g4720547208%_ - _%g4720647211%_) - (cons _%g4720547208%_ - _%g4720647211%_)) + (cons (cons _%L47217%_ + (cons _%L47216%_ + (cons _%L47215%_ '()))) + (foldr (lambda (_%g4726847271%_ + _%g4726947274%_) + (cons _%g4726847271%_ + _%g4726947274%_)) '() - _%L47150%_))) + _%L47213%_))) (gx#raise-syntax-error '#f '"unexpected type; must be a class type or interface" - _%stx46365%_ - _%L47152%_ - _%meta47191%_)))))) - (_%__kont7850578506%_ - (lambda (_%L47028%_ _%L47030%_ _%L47031%_) + _%stx46428%_ + _%L47215%_ + _%meta47254%_)))))) + (_%__kont7856878569%_ + (lambda (_%L47091%_ _%L47093%_ _%L47094%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L47031%_ + (cons (cons _%L47094%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L47030%_ '()))) - (foldr (lambda (_%g4705447057%_ _%g4705547060%_) - (cons _%g4705447057%_ _%g4705547060%_)) + (cons _%L47093%_ '()))) + (foldr (lambda (_%g4711747120%_ _%g4711847123%_) + (cons _%g4711747120%_ _%g4711847123%_)) '() - _%L47028%_))))) - (_%__kont7850978510%_ - (lambda (_%L46886%_ - _%L46888%_ - _%L46889%_ - _%L46890%_ - _%L46891%_) + _%L47091%_))))) + (_%__kont7857278573%_ + (lambda (_%L46949%_ + _%L46951%_ + _%L46952%_ + _%L46953%_ + _%L46954%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46891%_ + (cons (cons _%L46954%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L46890%_ '()))) + (cons _%L46953%_ '()))) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46891%_ - (cons _%L46889%_ - (cons _%L46888%_ + (cons (cons _%L46954%_ + (cons _%L46952%_ + (cons _%L46951%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g4693246935%_ + (foldr (lambda (_%g4699546998%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4693346938%_) - (cons _%g4693246935%_ _%g4693346938%_)) + _%g4699647001%_) + (cons _%g4699546998%_ _%g4699647001%_)) '() - _%L46886%_))) + _%L46949%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7851378514%_ - (lambda (_%L46744%_ _%L46746%_ _%L46747%_ _%L46748%_) + (_%__kont7857678577%_ + (lambda (_%L46807%_ _%L46809%_ _%L46810%_ _%L46811%_) (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L46748%_ _%L46747%_) + (cons (cons _%L46811%_ _%L46810%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L46746%_ - (foldr (lambda (_%g4677046773%_ + (cons _%L46809%_ + (foldr (lambda (_%g4683346836%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4677146776%_) - (cons _%g4677046773%_ _%g4677146776%_)) + _%g4683446839%_) + (cons _%g4683346836%_ _%g4683446839%_)) '() - _%L46744%_))) + _%L46807%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont7851778518%_ - (lambda (_%L46640%_) + (_%__kont7858078581%_ + (lambda (_%L46703%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4665846661%_ _%g4665946664%_) - (cons _%g4665846661%_ _%g4665946664%_)) + (foldr (lambda (_%g4672146724%_ _%g4672246727%_) + (cons _%g4672146724%_ _%g4672246727%_)) '() - _%L46640%_)))))) - (let* ((_%__match7882378824%_ - (lambda (_%e4656346590%_ - _%hd4656446594%_ - _%tl4656546597%_ - _%e4656646600%_ - _%hd4656746604%_ - _%tl4656846607%_ - _%__splice7851978520%_ - _%target4656946610%_ - _%tl4657146613%_) - (letrec ((_%loop4657246616%_ - (lambda (_%hd4657046620%_ _%body4657646623%_) - (if (gx#stx-pair? _%hd4657046620%_) - (let ((_%e4657346626%_ - (gx#syntax-e _%hd4657046620%_))) - (let ((_%lp-tl4657546633%_ + _%L46703%_)))))) + (let* ((_%__match7888678887%_ + (lambda (_%e4662646653%_ + _%hd4662746657%_ + _%tl4662846660%_ + _%e4662946663%_ + _%hd4663046667%_ + _%tl4663146670%_ + _%__splice7858278583%_ + _%target4663246673%_ + _%tl4663446676%_) + (letrec ((_%loop4663546679%_ + (lambda (_%hd4663346683%_ _%body4663946686%_) + (if (gx#stx-pair? _%hd4663346683%_) + (let ((_%e4663646689%_ + (gx#syntax-e _%hd4663346683%_))) + (let ((_%lp-tl4663846696%_ (let () (declare (not safe)) - (##cdr _%e4657346626%_))) - (_%lp-hd4657446630%_ + (##cdr _%e4663646689%_))) + (_%lp-hd4663746693%_ (let () (declare (not safe)) - (##car _%e4657346626%_)))) - (_%loop4657246616%_ - _%lp-tl4657546633%_ - (cons _%lp-hd4657446630%_ - _%body4657646623%_)))) - (let ((_%body4657746636%_ - (reverse _%body4657646623%_))) - (_%__kont7851778518%_ - _%body4657746636%_)))))) - (_%loop4657246616%_ _%target4656946610%_ '())))) - (_%__match7880178802%_ - (lambda (_%e4654146674%_ - _%hd4654246678%_ - _%tl4654346681%_ - _%e4654446684%_ - _%hd4654546688%_ - _%tl4654646691%_ - _%e4654746694%_ - _%hd4654846698%_ - _%tl4654946701%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (letrec ((_%loop4655646720%_ - (lambda (_%hd4655446724%_ _%body4656046727%_) - (if (gx#stx-pair? _%hd4655446724%_) - (let ((_%e4655746730%_ - (gx#syntax-e _%hd4655446724%_))) - (let ((_%lp-tl4655946737%_ + (##car _%e4663646689%_)))) + (_%loop4663546679%_ + _%lp-tl4663846696%_ + (cons _%lp-hd4663746693%_ + _%body4663946686%_)))) + (let ((_%body4664046699%_ + (reverse _%body4663946686%_))) + (_%__kont7858078581%_ + _%body4664046699%_)))))) + (_%loop4663546679%_ _%target4663246673%_ '())))) + (_%__match7886478865%_ + (lambda (_%e4660446737%_ + _%hd4660546741%_ + _%tl4660646744%_ + _%e4660746747%_ + _%hd4660846751%_ + _%tl4660946754%_ + _%e4661046757%_ + _%hd4661146761%_ + _%tl4661246764%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (letrec ((_%loop4661946783%_ + (lambda (_%hd4661746787%_ _%body4662346790%_) + (if (gx#stx-pair? _%hd4661746787%_) + (let ((_%e4662046793%_ + (gx#syntax-e _%hd4661746787%_))) + (let ((_%lp-tl4662246800%_ (let () (declare (not safe)) - (##cdr _%e4655746730%_))) - (_%lp-hd4655846734%_ + (##cdr _%e4662046793%_))) + (_%lp-hd4662146797%_ (let () (declare (not safe)) - (##car _%e4655746730%_)))) - (_%loop4655646720%_ - _%lp-tl4655946737%_ - (cons _%lp-hd4655846734%_ - _%body4656046727%_)))) - (let ((_%body4656146740%_ - (reverse _%body4656046727%_))) - (let ((_%L46744%_ _%body4656146740%_) - (_%L46746%_ _%tl4654946701%_) - (_%L46747%_ _%tl4655246711%_) - (_%L46748%_ _%hd4655146708%_)) - (if (gx#identifier? _%L46748%_) - (_%__kont7851378514%_ - _%L46744%_ - _%L46746%_ - _%L46747%_ - _%L46748%_) + (##car _%e4662046793%_)))) + (_%loop4661946783%_ + _%lp-tl4662246800%_ + (cons _%lp-hd4662146797%_ + _%body4662346790%_)))) + (let ((_%body4662446803%_ + (reverse _%body4662346790%_))) + (let ((_%L46807%_ _%body4662446803%_) + (_%L46809%_ _%tl4661246764%_) + (_%L46810%_ _%tl4661546774%_) + (_%L46811%_ _%hd4661446771%_)) + (if (gx#identifier? _%L46811%_) + (_%__kont7857678577%_ + _%L46807%_ + _%L46809%_ + _%L46810%_ + _%L46811%_) (let () (declare (not safe)) - (_%g4637446583%_))))))))) - (_%loop4655646720%_ _%target4655346714%_ '())))) - (_%__match7878778788%_ - (lambda (_%e4654146674%_ - _%hd4654246678%_ - _%tl4654346681%_ - _%e4654446684%_ - _%hd4654546688%_ - _%tl4654646691%_ - _%e4654746694%_ - _%hd4654846698%_ - _%tl4654946701%_) - (if (gx#stx-pair? _%hd4654846698%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4654846698%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))))))) + (_%loop4661946783%_ _%target4661646777%_ '())))) + (_%__match7885078851%_ + (lambda (_%e4660446737%_ + _%hd4660546741%_ + _%tl4660646744%_ + _%e4660746747%_ + _%hd4660846751%_ + _%tl4660946754%_ + _%e4661046757%_ + _%hd4661146761%_ + _%tl4661246764%_) + (if (gx#stx-pair? _%hd4661146761%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4661146761%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4654646691%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4660946754%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4654646691%_ + _%tl4660946754%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4654146674%_ - _%hd4654246678%_ - _%tl4654346681%_ - _%e4654446684%_ - _%hd4654546688%_ - _%tl4654646691%_ - _%e4654746694%_ - _%hd4654846698%_ - _%tl4654946701%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4660446737%_ + _%hd4660546741%_ + _%tl4660646744%_ + _%e4660746747%_ + _%hd4660846751%_ + _%tl4660946754%_ + _%e4661046757%_ + _%hd4661146761%_ + _%tl4661246764%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (_%__match7876978770%_ - (lambda (_%e4650746786%_ - _%hd4650846790%_ - _%tl4650946793%_ - _%e4651046796%_ - _%hd4651146800%_ - _%tl4651246803%_ - _%e4651346806%_ - _%hd4651446810%_ - _%tl4651546813%_ - _%e4651646816%_ - _%hd4651746820%_ - _%tl4651846823%_ - _%e4651946826%_ - _%hd4652046830%_ - _%tl4652146833%_ - _%e4652246836%_ - _%hd4652346840%_ - _%tl4652446843%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (letrec ((_%loop4653146862%_ - (lambda (_%hd4652946866%_ _%body4653546869%_) - (if (gx#stx-pair? _%hd4652946866%_) - (let ((_%e4653246872%_ - (gx#syntax-e _%hd4652946866%_))) - (let ((_%lp-tl4653446879%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (_%__match7883278833%_ + (lambda (_%e4657046849%_ + _%hd4657146853%_ + _%tl4657246856%_ + _%e4657346859%_ + _%hd4657446863%_ + _%tl4657546866%_ + _%e4657646869%_ + _%hd4657746873%_ + _%tl4657846876%_ + _%e4657946879%_ + _%hd4658046883%_ + _%tl4658146886%_ + _%e4658246889%_ + _%hd4658346893%_ + _%tl4658446896%_ + _%e4658546899%_ + _%hd4658646903%_ + _%tl4658746906%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (letrec ((_%loop4659446925%_ + (lambda (_%hd4659246929%_ _%body4659846932%_) + (if (gx#stx-pair? _%hd4659246929%_) + (let ((_%e4659546935%_ + (gx#syntax-e _%hd4659246929%_))) + (let ((_%lp-tl4659746942%_ (let () (declare (not safe)) - (##cdr _%e4653246872%_))) - (_%lp-hd4653346876%_ + (##cdr _%e4659546935%_))) + (_%lp-hd4659646939%_ (let () (declare (not safe)) - (##car _%e4653246872%_)))) - (_%loop4653146862%_ - _%lp-tl4653446879%_ - (cons _%lp-hd4653346876%_ - _%body4653546869%_)))) - (let ((_%body4653646882%_ - (reverse _%body4653546869%_))) - (let ((_%L46886%_ _%body4653646882%_) - (_%L46888%_ _%hd4652646850%_) - (_%L46889%_ _%hd4652346840%_) - (_%L46890%_ _%hd4652046830%_) - (_%L46891%_ _%hd4651446810%_)) - (if (and (gx#identifier? _%L46891%_) - (gx#identifier? _%L46888%_) - (gx#identifier? _%L46889%_) + (##car _%e4659546935%_)))) + (_%loop4659446925%_ + _%lp-tl4659746942%_ + (cons _%lp-hd4659646939%_ + _%body4659846932%_)))) + (let ((_%body4659946945%_ + (reverse _%body4659846932%_))) + (let ((_%L46949%_ _%body4659946945%_) + (_%L46951%_ _%hd4658946913%_) + (_%L46952%_ _%hd4658646903%_) + (_%L46953%_ _%hd4658346893%_) + (_%L46954%_ _%hd4657746873%_)) + (if (and (gx#identifier? _%L46954%_) + (gx#identifier? _%L46951%_) + (gx#identifier? _%L46952%_) (or (gx#free-identifier=? - _%L46889%_ + _%L46952%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L46889%_ + _%L46952%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L46889%_ + _%L46952%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L46889%_ + _%L46952%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7850978510%_ - _%L46886%_ - _%L46888%_ - _%L46889%_ - _%L46890%_ - _%L46891%_) - (_%__match7878778788%_ - _%e4650746786%_ - _%hd4650846790%_ - _%tl4650946793%_ - _%e4651046796%_ - _%hd4651146800%_ - _%tl4651246803%_ - _%e4651346806%_ - _%hd4651446810%_ - _%tl4651546813%_)))))))) - (_%loop4653146862%_ _%target4652846856%_ '())))) - (_%__match7871378714%_ - (lambda (_%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4648746978%_ - _%hd4648846982%_ - _%tl4648946985%_ - _%e4649046988%_ - _%hd4649146992%_ - _%tl4649246995%_ - _%__splice7850778508%_ - _%target4649346998%_ - _%tl4649547001%_) - (letrec ((_%loop4649647004%_ - (lambda (_%hd4649447008%_ _%body4650047011%_) - (if (gx#stx-pair? _%hd4649447008%_) - (let ((_%e4649747014%_ - (gx#syntax-e _%hd4649447008%_))) - (let ((_%lp-tl4649947021%_ + (_%__kont7857278573%_ + _%L46949%_ + _%L46951%_ + _%L46952%_ + _%L46953%_ + _%L46954%_) + (_%__match7885078851%_ + _%e4657046849%_ + _%hd4657146853%_ + _%tl4657246856%_ + _%e4657346859%_ + _%hd4657446863%_ + _%tl4657546866%_ + _%e4657646869%_ + _%hd4657746873%_ + _%tl4657846876%_)))))))) + (_%loop4659446925%_ _%target4659146919%_ '())))) + (_%__match7877678777%_ + (lambda (_%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4655047041%_ + _%hd4655147045%_ + _%tl4655247048%_ + _%e4655347051%_ + _%hd4655447055%_ + _%tl4655547058%_ + _%__splice7857078571%_ + _%target4655647061%_ + _%tl4655847064%_) + (letrec ((_%loop4655947067%_ + (lambda (_%hd4655747071%_ _%body4656347074%_) + (if (gx#stx-pair? _%hd4655747071%_) + (let ((_%e4656047077%_ + (gx#syntax-e _%hd4655747071%_))) + (let ((_%lp-tl4656247084%_ (let () (declare (not safe)) - (##cdr _%e4649747014%_))) - (_%lp-hd4649847018%_ + (##cdr _%e4656047077%_))) + (_%lp-hd4656147081%_ (let () (declare (not safe)) - (##car _%e4649747014%_)))) - (_%loop4649647004%_ - _%lp-tl4649947021%_ - (cons _%lp-hd4649847018%_ - _%body4650047011%_)))) - (let ((_%body4650147024%_ - (reverse _%body4650047011%_))) - (let ((_%L47028%_ _%body4650147024%_) - (_%L47030%_ _%hd4649146992%_) - (_%L47031%_ _%hd4648546972%_)) - (if (gx#identifier? _%L47031%_) - (_%__kont7850578506%_ - _%L47028%_ - _%L47030%_ - _%L47031%_) - (_%__match7878778788%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_)))))))) - (_%loop4649647004%_ _%target4649346998%_ '())))) - (_%__match7869378694%_ - (lambda (_%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4648746978%_ - _%hd4648846982%_ - _%tl4648946985%_) - (if (gx#identifier? _%hd4648846982%_) + (##car _%e4656047077%_)))) + (_%loop4655947067%_ + _%lp-tl4656247084%_ + (cons _%lp-hd4656147081%_ + _%body4656347074%_)))) + (let ((_%body4656447087%_ + (reverse _%body4656347074%_))) + (let ((_%L47091%_ _%body4656447087%_) + (_%L47093%_ _%hd4655447055%_) + (_%L47094%_ _%hd4654847035%_)) + (if (gx#identifier? _%L47094%_) + (_%__kont7856878569%_ + _%L47091%_ + _%L47093%_ + _%L47094%_) + (_%__match7885078851%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_)))))))) + (_%loop4655947067%_ _%target4655647061%_ '())))) + (_%__match7875678757%_ + (lambda (_%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4655047041%_ + _%hd4655147045%_ + _%tl4655247048%_) + (if (gx#identifier? _%hd4655147045%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4648846982%_) - (if (gx#stx-pair? _%tl4648946985%_) - (let ((_%e4649046988%_ - (gx#syntax-e _%tl4648946985%_))) - (let ((_%tl4649246995%_ + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4655147045%_) + (if (gx#stx-pair? _%tl4655247048%_) + (let ((_%e4655347051%_ + (gx#syntax-e _%tl4655247048%_))) + (let ((_%tl4655547058%_ (let () (declare (not safe)) - (##cdr _%e4649046988%_))) - (_%hd4649146992%_ + (##cdr _%e4655347051%_))) + (_%hd4655447055%_ (let () (declare (not safe)) - (##car _%e4649046988%_)))) - (if (gx#stx-null? _%tl4649246995%_) + (##car _%e4655347051%_)))) + (if (gx#stx-null? _%tl4655547058%_) (if (gx#stx-pair/null? - _%tl4648346965%_) - (let ((_%__splice7850778508%_ + _%tl4654647028%_) + (let ((_%__splice7857078571%_ (gx#syntax-split-splice - _%tl4648346965%_ + _%tl4654647028%_ '0))) - (let ((_%tl4649547001%_ + (let ((_%tl4655847064%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850778508%_ + _%__splice7857078571%_ '1))) - (_%target4649346998%_ + (_%target4655647061%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850778508%_ + _%__splice7857078571%_ '0)))) (if (gx#stx-null? - _%tl4649547001%_) - (_%__match7871378714%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4648746978%_ - _%hd4648846982%_ - _%tl4648946985%_ - _%e4649046988%_ - _%hd4649146992%_ - _%tl4649246995%_ - _%__splice7850778508%_ - _%target4649346998%_ - _%tl4649547001%_) + _%tl4655847064%_) + (_%__match7877678777%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4655047041%_ + _%hd4655147045%_ + _%tl4655247048%_ + _%e4655347051%_ + _%hd4655447055%_ + _%tl4655547058%_ + _%__splice7857078571%_ + _%target4655647061%_ + _%tl4655847064%_) (if (gx#stx-pair? - _%hd4648546972%_) - (let ((_%e4655046704%_ + _%hd4654847035%_) + (let ((_%e4661346767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4648546972%_) - (let ((_%e4655046704%_ + _%hd4654847035%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4648546972%_))) - (let ((_%tl4655246711%_ + _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%tl4649246995%_) - (let ((_%e4652246836%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%tl4655547058%_) + (let ((_%e4658546899%_ (gx#syntax-e - _%tl4649246995%_))) - (let ((_%tl4652446843%_ + _%tl4655547058%_))) + (let ((_%tl4658746906%_ (let () (declare (not safe)) - (##cdr _%e4652246836%_))) - (_%hd4652346840%_ + (##cdr _%e4658546899%_))) + (_%hd4658646903%_ (let () (declare (not safe)) - (##car _%e4652246836%_)))) + (##car _%e4658546899%_)))) (if (gx#stx-pair? - _%tl4652446843%_) - (let ((_%e4652546846%_ + _%tl4658746906%_) + (let ((_%e4658846909%_ (gx#syntax-e - _%tl4652446843%_))) - (let ((_%tl4652746853%_ + _%tl4658746906%_))) + (let ((_%tl4659046916%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4652546846%_))) - (_%hd4652646850%_ - (let () (declare (not safe)) (##car _%e4652546846%_)))) - (if (gx#stx-null? _%tl4652746853%_) - (if (gx#stx-pair/null? _%tl4648346965%_) - (let ((_%__splice7851178512%_ - (gx#syntax-split-splice _%tl4648346965%_ '0))) - (let ((_%tl4653046859%_ + (##cdr _%e4658846909%_))) + (_%hd4658946913%_ + (let () (declare (not safe)) (##car _%e4658846909%_)))) + (if (gx#stx-null? _%tl4659046916%_) + (if (gx#stx-pair/null? _%tl4654647028%_) + (let ((_%__splice7857478575%_ + (gx#syntax-split-splice _%tl4654647028%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851178512%_ + _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4648746978%_ - _%hd4648846982%_ - _%tl4648946985%_ - _%e4649046988%_ - _%hd4649146992%_ - _%tl4649246995%_ - _%e4652246836%_ - _%hd4652346840%_ - _%tl4652446843%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4655047041%_ + _%hd4655147045%_ + _%tl4655247048%_ + _%e4655347051%_ + _%hd4655447055%_ + _%tl4655547058%_ + _%e4658546899%_ + _%hd4658646903%_ + _%tl4658746906%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4648346965%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4654647028%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4648346965%_ + _%tl4654647028%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4648346965%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4648346965%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4654647028%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4654647028%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4648546972%_) - (let ((_%e4655046704%_ + _%hd4654847035%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4648546972%_))) - (let ((_%tl4655246711%_ + _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4648346965%_) - (let ((_%__splice7851578516%_ + _%tl4654647028%_) + (let ((_%__splice7857878579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4648346965%_ '0))) - (let ((_%tl4655546717%_ + (gx#syntax-split-splice _%tl4654647028%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_))))))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4648346965%_) - (let ((_%__splice7851578516%_ + _%tl4654647028%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4648346965%_ + _%tl4654647028%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4648346965%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4654647028%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4648346965%_ + _%tl4654647028%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4648546972%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4648546972%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4654847035%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4654847035%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4648346965%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4654647028%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4648346965%_ + _%tl4654647028%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4647846948%_ - _%hd4647946952%_ - _%tl4648046955%_ - _%e4648146958%_ - _%hd4648246962%_ - _%tl4648346965%_ - _%e4648446968%_ - _%hd4648546972%_ - _%tl4648646975%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4654147011%_ + _%hd4654247015%_ + _%tl4654347018%_ + _%e4654447021%_ + _%hd4654547025%_ + _%tl4654647028%_ + _%e4654747031%_ + _%hd4654847035%_ + _%tl4654947038%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (_%__match7866978670%_ - (lambda (_%e4645147070%_ - _%hd4645247074%_ - _%tl4645347077%_ - _%e4645447080%_ - _%hd4645547084%_ - _%tl4645647087%_ - _%e4645747090%_ - _%hd4645847094%_ - _%tl4645947097%_ - _%e4646047100%_ - _%hd4646147104%_ - _%tl4646247107%_ - _%e4646347110%_ - _%hd4646447114%_ - _%tl4646547117%_ - _%__splice7850378504%_ - _%target4646647120%_ - _%tl4646847123%_) - (letrec ((_%loop4646947126%_ - (lambda (_%hd4646747130%_ _%body4647347133%_) - (if (gx#stx-pair? _%hd4646747130%_) - (let ((_%e4647047136%_ - (gx#syntax-e _%hd4646747130%_))) - (let ((_%lp-tl4647247143%_ + (_%g4643746646%_)))))) + (_%__match7873278733%_ + (lambda (_%e4651447133%_ + _%hd4651547137%_ + _%tl4651647140%_ + _%e4651747143%_ + _%hd4651847147%_ + _%tl4651947150%_ + _%e4652047153%_ + _%hd4652147157%_ + _%tl4652247160%_ + _%e4652347163%_ + _%hd4652447167%_ + _%tl4652547170%_ + _%e4652647173%_ + _%hd4652747177%_ + _%tl4652847180%_ + _%__splice7856678567%_ + _%target4652947183%_ + _%tl4653147186%_) + (letrec ((_%loop4653247189%_ + (lambda (_%hd4653047193%_ _%body4653647196%_) + (if (gx#stx-pair? _%hd4653047193%_) + (let ((_%e4653347199%_ + (gx#syntax-e _%hd4653047193%_))) + (let ((_%lp-tl4653547206%_ (let () (declare (not safe)) - (##cdr _%e4647047136%_))) - (_%lp-hd4647147140%_ + (##cdr _%e4653347199%_))) + (_%lp-hd4653447203%_ (let () (declare (not safe)) - (##car _%e4647047136%_)))) - (_%loop4646947126%_ - _%lp-tl4647247143%_ - (cons _%lp-hd4647147140%_ - _%body4647347133%_)))) - (let ((_%body4647447146%_ - (reverse _%body4647347133%_))) - (let ((_%L47150%_ _%body4647447146%_) - (_%L47152%_ _%hd4646447114%_) - (_%L47153%_ _%hd4646147104%_) - (_%L47154%_ _%hd4645847094%_)) - (if (and (gx#identifier? _%L47154%_) - (gx#identifier? _%L47152%_) - (gx#identifier? _%L47153%_) + (##car _%e4653347199%_)))) + (_%loop4653247189%_ + _%lp-tl4653547206%_ + (cons _%lp-hd4653447203%_ + _%body4653647196%_)))) + (let ((_%body4653747209%_ + (reverse _%body4653647196%_))) + (let ((_%L47213%_ _%body4653747209%_) + (_%L47215%_ _%hd4652747177%_) + (_%L47216%_ _%hd4652447167%_) + (_%L47217%_ _%hd4652147157%_)) + (if (and (gx#identifier? _%L47217%_) + (gx#identifier? _%L47215%_) + (gx#identifier? _%L47216%_) (or (gx#free-identifier=? - _%L47153%_ + _%L47216%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47153%_ + _%L47216%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47153%_ + _%L47216%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47153%_ + _%L47216%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7850178502%_ - _%L47150%_ - _%L47152%_ - _%L47153%_ - _%L47154%_) - (_%__match7869378694%_ - _%e4645147070%_ - _%hd4645247074%_ - _%tl4645347077%_ - _%e4645447080%_ - _%hd4645547084%_ - _%tl4645647087%_ - _%e4645747090%_ - _%hd4645847094%_ - _%tl4645947097%_ - _%e4646047100%_ - _%hd4646147104%_ - _%tl4646247107%_)))))))) - (_%loop4646947126%_ _%target4646647120%_ '())))) - (_%__match7862978630%_ - (lambda (_%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%e4642947273%_ - _%hd4643047277%_ - _%tl4643147280%_ - _%e4643247283%_ - _%hd4643347287%_ - _%tl4643447290%_ - _%e4643547293%_ - _%hd4643647297%_ - _%tl4643747300%_ - _%__splice7849978500%_ - _%target4643847303%_ - _%tl4644047306%_) - (letrec ((_%loop4644147309%_ - (lambda (_%hd4643947313%_ _%body4644547316%_) - (if (gx#stx-pair? _%hd4643947313%_) - (let ((_%e4644247319%_ - (gx#syntax-e _%hd4643947313%_))) - (let ((_%lp-tl4644447326%_ + (_%__kont7856478565%_ + _%L47213%_ + _%L47215%_ + _%L47216%_ + _%L47217%_) + (_%__match7875678757%_ + _%e4651447133%_ + _%hd4651547137%_ + _%tl4651647140%_ + _%e4651747143%_ + _%hd4651847147%_ + _%tl4651947150%_ + _%e4652047153%_ + _%hd4652147157%_ + _%tl4652247160%_ + _%e4652347163%_ + _%hd4652447167%_ + _%tl4652547170%_)))))))) + (_%loop4653247189%_ _%target4652947183%_ '())))) + (_%__match7869278693%_ + (lambda (_%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%e4649247336%_ + _%hd4649347340%_ + _%tl4649447343%_ + _%e4649547346%_ + _%hd4649647350%_ + _%tl4649747353%_ + _%e4649847356%_ + _%hd4649947360%_ + _%tl4650047363%_ + _%__splice7856278563%_ + _%target4650147366%_ + _%tl4650347369%_) + (letrec ((_%loop4650447372%_ + (lambda (_%hd4650247376%_ _%body4650847379%_) + (if (gx#stx-pair? _%hd4650247376%_) + (let ((_%e4650547382%_ + (gx#syntax-e _%hd4650247376%_))) + (let ((_%lp-tl4650747389%_ (let () (declare (not safe)) - (##cdr _%e4644247319%_))) - (_%lp-hd4644347323%_ + (##cdr _%e4650547382%_))) + (_%lp-hd4650647386%_ (let () (declare (not safe)) - (##car _%e4644247319%_)))) - (_%loop4644147309%_ - _%lp-tl4644447326%_ - (cons _%lp-hd4644347323%_ - _%body4644547316%_)))) - (let ((_%body4644647329%_ - (reverse _%body4644547316%_))) - (let ((_%L47333%_ _%body4644647329%_) - (_%L47335%_ _%hd4643647297%_) - (_%L47336%_ _%hd4643347287%_) - (_%L47337%_ _%hd4643047277%_) - (_%L47338%_ _%hd4642447257%_) - (_%L47339%_ _%hd4642147247%_)) - (if (and (gx#identifier? _%L47339%_) - (gx#identifier? _%L47335%_) - (gx#identifier? _%L47336%_) + (##car _%e4650547382%_)))) + (_%loop4650447372%_ + _%lp-tl4650747389%_ + (cons _%lp-hd4650647386%_ + _%body4650847379%_)))) + (let ((_%body4650947392%_ + (reverse _%body4650847379%_))) + (let ((_%L47396%_ _%body4650947392%_) + (_%L47398%_ _%hd4649947360%_) + (_%L47399%_ _%hd4649647350%_) + (_%L47400%_ _%hd4649347340%_) + (_%L47401%_ _%hd4648747320%_) + (_%L47402%_ _%hd4648447310%_)) + (if (and (gx#identifier? _%L47402%_) + (gx#identifier? _%L47398%_) + (gx#identifier? _%L47399%_) (or (gx#free-identifier=? - _%L47336%_ + _%L47399%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47336%_ + _%L47399%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47336%_ + _%L47399%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47336%_ + _%L47399%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7849778498%_ - _%L47333%_ - _%L47335%_ - _%L47336%_ - _%L47337%_ - _%L47338%_ - _%L47339%_) - (_%__match7869378694%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_)))))))) - (_%loop4644147309%_ _%target4643847303%_ '())))) - (_%__match7859778598%_ - (lambda (_%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_) - (if (gx#identifier? _%hd4642747267%_) + (_%__kont7856078561%_ + _%L47396%_ + _%L47398%_ + _%L47399%_ + _%L47400%_ + _%L47401%_ + _%L47402%_) + (_%__match7875678757%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_)))))))) + (_%loop4650447372%_ _%target4650147366%_ '())))) + (_%__match7866078661%_ + (lambda (_%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_) + (if (gx#identifier? _%hd4649047330%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84065_| - _%hd4642747267%_) - (if (gx#stx-pair? _%tl4642847270%_) - (let ((_%e4642947273%_ - (gx#syntax-e _%tl4642847270%_))) - (let ((_%tl4643147280%_ + |gerbil/core/contract~Using[1]#_g84128_| + _%hd4649047330%_) + (if (gx#stx-pair? _%tl4649147333%_) + (let ((_%e4649247336%_ + (gx#syntax-e _%tl4649147333%_))) + (let ((_%tl4649447343%_ (let () (declare (not safe)) - (##cdr _%e4642947273%_))) - (_%hd4643047277%_ + (##cdr _%e4649247336%_))) + (_%hd4649347340%_ (let () (declare (not safe)) - (##car _%e4642947273%_)))) - (if (gx#stx-pair? _%tl4643147280%_) - (let ((_%e4643247283%_ + (##car _%e4649247336%_)))) + (if (gx#stx-pair? _%tl4649447343%_) + (let ((_%e4649547346%_ (gx#syntax-e - _%tl4643147280%_))) - (let ((_%tl4643447290%_ + _%tl4649447343%_))) + (let ((_%tl4649747353%_ (let () (declare (not safe)) - (##cdr _%e4643247283%_))) - (_%hd4643347287%_ + (##cdr _%e4649547346%_))) + (_%hd4649647350%_ (let () (declare (not safe)) - (##car _%e4643247283%_)))) + (##car _%e4649547346%_)))) (if (gx#stx-pair? - _%tl4643447290%_) - (let ((_%e4643547293%_ + _%tl4649747353%_) + (let ((_%e4649847356%_ (gx#syntax-e - _%tl4643447290%_))) - (let ((_%tl4643747300%_ + _%tl4649747353%_))) + (let ((_%tl4650047363%_ (let () (declare (not safe)) - (##cdr _%e4643547293%_))) - (_%hd4643647297%_ + (##cdr _%e4649847356%_))) + (_%hd4649947360%_ (let () (declare (not safe)) - (##car _%e4643547293%_)))) + (##car _%e4649847356%_)))) (if (gx#stx-null? - _%tl4643747300%_) + _%tl4650047363%_) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7849978500%_ + _%tl4648247303%_) + (let ((_%__splice7856278563%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4644047306%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4650347369%_ (let () (declare (not safe)) - (##vector-ref _%__splice7849978500%_ '1))) - (_%target4643847303%_ + (##vector-ref _%__splice7856278563%_ '1))) + (_%target4650147366%_ (let () (declare (not safe)) - (##vector-ref _%__splice7849978500%_ '0)))) - (if (gx#stx-null? _%tl4644047306%_) - (_%__match7862978630%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%e4642947273%_ - _%hd4643047277%_ - _%tl4643147280%_ - _%e4643247283%_ - _%hd4643347287%_ - _%tl4643447290%_ - _%e4643547293%_ - _%hd4643647297%_ - _%tl4643747300%_ - _%__splice7849978500%_ - _%target4643847303%_ - _%tl4644047306%_) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7856278563%_ '0)))) + (if (gx#stx-null? _%tl4650347369%_) + (_%__match7869278693%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%e4649247336%_ + _%hd4649347340%_ + _%tl4649447343%_ + _%e4649547346%_ + _%hd4649647350%_ + _%tl4649747353%_ + _%e4649847356%_ + _%hd4649947360%_ + _%tl4650047363%_ + _%__splice7856278563%_ + _%target4650147366%_ + _%tl4650347369%_) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4642447257%_) + _%hd4648747320%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4642447257%_) + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4648747320%_) (if (gx#stx-null? - _%tl4643447290%_) + _%tl4649747353%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4641947240%_) - (let ((_%__splice7851178512%_ - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4653046859%_ + _%tl4648247303%_) + (let ((_%__splice7857478575%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851178512%_ + _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%e4642947273%_ - _%hd4643047277%_ - _%tl4643147280%_ - _%e4643247283%_ - _%hd4643347287%_ - _%tl4643447290%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%e4649247336%_ + _%hd4649347340%_ + _%tl4649447343%_ + _%e4649547346%_ + _%hd4649647350%_ + _%tl4649747353%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-null? _%tl4642847270%_) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7850378504%_ + (_%g4643746646%_)))))) + (if (gx#stx-null? _%tl4649147333%_) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7856678567%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4646847123%_ + (let ((_%tl4653147186%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '1))) - (_%target4646647120%_ + (_%target4652947183%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '0)))) (if (gx#stx-null? - _%tl4646847123%_) - (_%__match7866978670%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%__splice7850378504%_ - _%target4646647120%_ - _%tl4646847123%_) + _%tl4653147186%_) + (_%__match7873278733%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%__splice7856678567%_ + _%target4652947183%_ + _%tl4653147186%_) (if (gx#stx-pair? - _%hd4642147247%_) - (let ((_%e4655046704%_ + _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ - (let () (declare (not safe)) (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ + (let () (declare (not safe)) (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (if (gx#stx-null? _%tl4642847270%_) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7850378504%_ + (_%g4643746646%_))))) + (if (gx#stx-null? _%tl4649147333%_) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7856678567%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4646847123%_ + (let ((_%tl4653147186%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '1))) - (_%target4646647120%_ + (_%target4652947183%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '0)))) - (if (gx#stx-null? _%tl4646847123%_) - (_%__match7866978670%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%__splice7850378504%_ - _%target4646647120%_ - _%tl4646847123%_) + (if (gx#stx-null? _%tl4653147186%_) + (_%__match7873278733%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%__splice7856678567%_ + _%target4652947183%_ + _%tl4653147186%_) (if (gx#stx-pair? - _%hd4642147247%_) - (let ((_%e4655046704%_ + _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#identifier? _%hd4642447257%_) + (_%g4643746646%_)))) + (if (gx#identifier? _%hd4648747320%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4642447257%_) - (if (gx#stx-pair? _%tl4642847270%_) - (let ((_%e4652246836%_ + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4648747320%_) + (if (gx#stx-pair? _%tl4649147333%_) + (let ((_%e4658546899%_ (gx#syntax-e - _%tl4642847270%_))) - (let ((_%tl4652446843%_ + _%tl4649147333%_))) + (let ((_%tl4658746906%_ (let () (declare (not safe)) - (##cdr _%e4652246836%_))) - (_%hd4652346840%_ + (##cdr _%e4658546899%_))) + (_%hd4658646903%_ (let () (declare (not safe)) - (##car _%e4652246836%_)))) + (##car _%e4658546899%_)))) (if (gx#stx-pair? - _%tl4652446843%_) - (let ((_%e4652546846%_ + _%tl4658746906%_) + (let ((_%e4658846909%_ (gx#syntax-e - _%tl4652446843%_))) - (let ((_%tl4652746853%_ + _%tl4658746906%_))) + (let ((_%tl4659046916%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4652546846%_))) - (_%hd4652646850%_ - (let () (declare (not safe)) (##car _%e4652546846%_)))) - (if (gx#stx-null? _%tl4652746853%_) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851178512%_ - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4653046859%_ + (##cdr _%e4658846909%_))) + (_%hd4658946913%_ + (let () (declare (not safe)) (##car _%e4658846909%_)))) + (if (gx#stx-null? _%tl4659046916%_) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857478575%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851178512%_ + _%__splice7857478575%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%e4652246836%_ - _%hd4652346840%_ - _%tl4652446843%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%e4658546899%_ + _%hd4658646903%_ + _%tl4658746906%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4642147247%_) - (let ((_%e4655046704%_ + _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4655546717%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-null? _%tl4642847270%_) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7850378504%_ + (_%g4643746646%_)))))) + (if (gx#stx-null? _%tl4649147333%_) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7856678567%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4646847123%_ + (let ((_%tl4653147186%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '1))) - (_%target4646647120%_ + (_%target4652947183%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '0)))) - (if (gx#stx-null? _%tl4646847123%_) - (_%__match7866978670%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%__splice7850378504%_ - _%target4646647120%_ - _%tl4646847123%_) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (if (gx#stx-null? _%tl4653147186%_) + (_%__match7873278733%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%__splice7856678567%_ + _%target4652947183%_ + _%tl4653147186%_) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#identifier? _%hd4642447257%_) + (_%g4643746646%_)))) + (if (gx#identifier? _%hd4648747320%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4642447257%_) - (if (gx#stx-pair? _%tl4642847270%_) - (let ((_%e4652246836%_ + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4648747320%_) + (if (gx#stx-pair? _%tl4649147333%_) + (let ((_%e4658546899%_ (gx#syntax-e - _%tl4642847270%_))) - (let ((_%tl4652446843%_ + _%tl4649147333%_))) + (let ((_%tl4658746906%_ (let () (declare (not safe)) - (##cdr _%e4652246836%_))) - (_%hd4652346840%_ + (##cdr _%e4658546899%_))) + (_%hd4658646903%_ (let () (declare (not safe)) - (##car _%e4652246836%_)))) + (##car _%e4658546899%_)))) (if (gx#stx-pair? - _%tl4652446843%_) - (let ((_%e4652546846%_ + _%tl4658746906%_) + (let ((_%e4658846909%_ (gx#syntax-e - _%tl4652446843%_))) - (let ((_%tl4652746853%_ + _%tl4658746906%_))) + (let ((_%tl4659046916%_ (let () (declare (not safe)) - (##cdr _%e4652546846%_))) - (_%hd4652646850%_ + (##cdr _%e4658846909%_))) + (_%hd4658946913%_ (let () (declare (not safe)) - (##car _%e4652546846%_)))) + (##car _%e4658846909%_)))) (if (gx#stx-null? - _%tl4652746853%_) + _%tl4659046916%_) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851178512%_ + _%tl4648247303%_) + (let ((_%__splice7857478575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4653046859%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4642347253%_ - _%hd4642447257%_ - _%tl4642547260%_ - _%e4642647263%_ - _%hd4642747267%_ - _%tl4642847270%_ - _%e4652246836%_ - _%hd4652346840%_ - _%tl4652446843%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7857478575%_ '0)))) + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4648647316%_ + _%hd4648747320%_ + _%tl4648847323%_ + _%e4648947326%_ + _%hd4649047330%_ + _%tl4649147333%_ + _%e4658546899%_ + _%hd4658646903%_ + _%tl4658746906%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4642147247%_) - (let ((_%e4655046704%_ + _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ - (let () (declare (not safe)) (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4641947240%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4641947240%_ '0))) - (let ((_%tl4655546717%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ + (let () (declare (not safe)) (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4648247303%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4648247303%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4642147247%_))) - (let ((_%tl4655246711%_ + _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4642147247%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4642147247%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4648447310%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4648447310%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4641947240%_) - (let ((_%__splice7851578516%_ + _%tl4648247303%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4641947240%_ + _%tl4648247303%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4641447223%_ - _%hd4641547227%_ - _%tl4641647230%_ - _%e4641747233%_ - _%hd4641847237%_ - _%tl4641947240%_ - _%e4642047243%_ - _%hd4642147247%_ - _%tl4642247250%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4647747286%_ + _%hd4647847290%_ + _%tl4647947293%_ + _%e4648047296%_ + _%hd4648147300%_ + _%tl4648247303%_ + _%e4648347306%_ + _%hd4648447310%_ + _%tl4648547313%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))))))) - (_%__match7856778568%_ - (lambda (_%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%__splice7849578496%_ - _%target4639947459%_ - _%tl4640147462%_) - (letrec ((_%loop4640247465%_ - (lambda (_%hd4640047469%_ _%body4640647472%_) - (if (gx#stx-pair? _%hd4640047469%_) - (let ((_%e4640347475%_ - (gx#syntax-e _%hd4640047469%_))) - (let ((_%lp-tl4640547482%_ + (_%g4643746646%_)))))))) + (_%__match7863078631%_ + (lambda (_%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%__splice7855878559%_ + _%target4646247522%_ + _%tl4646447525%_) + (letrec ((_%loop4646547528%_ + (lambda (_%hd4646347532%_ _%body4646947535%_) + (if (gx#stx-pair? _%hd4646347532%_) + (let ((_%e4646647538%_ + (gx#syntax-e _%hd4646347532%_))) + (let ((_%lp-tl4646847545%_ (let () (declare (not safe)) - (##cdr _%e4640347475%_))) - (_%lp-hd4640447479%_ + (##cdr _%e4646647538%_))) + (_%lp-hd4646747542%_ (let () (declare (not safe)) - (##car _%e4640347475%_)))) - (_%loop4640247465%_ - _%lp-tl4640547482%_ - (cons _%lp-hd4640447479%_ - _%body4640647472%_)))) - (let ((_%body4640747485%_ - (reverse _%body4640647472%_))) - (let ((_%L47489%_ _%body4640747485%_) - (_%L47491%_ _%hd4639747453%_) - (_%L47492%_ _%hd4639447443%_) - (_%L47493%_ _%hd4639147433%_) - (_%L47494%_ _%hd4638847423%_)) - (if (and (gx#identifier? _%L47494%_) - (gx#identifier? _%L47492%_) + (##car _%e4646647538%_)))) + (_%loop4646547528%_ + _%lp-tl4646847545%_ + (cons _%lp-hd4646747542%_ + _%body4646947535%_)))) + (let ((_%body4647047548%_ + (reverse _%body4646947535%_))) + (let ((_%L47552%_ _%body4647047548%_) + (_%L47554%_ _%hd4646047516%_) + (_%L47555%_ _%hd4645747506%_) + (_%L47556%_ _%hd4645447496%_) + (_%L47557%_ _%hd4645147486%_)) + (if (and (gx#identifier? _%L47557%_) + (gx#identifier? _%L47555%_) (or (gx#free-identifier=? - _%L47492%_ + _%L47555%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47492%_ + _%L47555%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47492%_ + _%L47555%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47492%_ + _%L47555%_ (gx#datum->syntax '#f ':~)) (gx#free-identifier=? - _%L47492%_ + _%L47555%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7849378494%_ - _%L47489%_ - _%L47491%_ - _%L47492%_ - _%L47493%_ - _%L47494%_) - (_%__match7859778598%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_)))))))) - (_%loop4640247465%_ _%target4639947459%_ '()))))) - (if (gx#stx-pair? _%__stx7849078491%_) - (let ((_%e4638147399%_ (gx#syntax-e _%__stx7849078491%_))) - (let ((_%tl4638347406%_ + (_%__kont7855678557%_ + _%L47552%_ + _%L47554%_ + _%L47555%_ + _%L47556%_ + _%L47557%_) + (_%__match7866078661%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_)))))))) + (_%loop4646547528%_ _%target4646247522%_ '()))))) + (if (gx#stx-pair? _%__stx7855378554%_) + (let ((_%e4644447462%_ (gx#syntax-e _%__stx7855378554%_))) + (let ((_%tl4644647469%_ (let () (declare (not safe)) - (##cdr _%e4638147399%_))) - (_%hd4638247403%_ + (##cdr _%e4644447462%_))) + (_%hd4644547466%_ (let () (declare (not safe)) - (##car _%e4638147399%_)))) - (if (gx#stx-pair? _%tl4638347406%_) - (let ((_%e4638447409%_ - (gx#syntax-e _%tl4638347406%_))) - (let ((_%tl4638647416%_ + (##car _%e4644447462%_)))) + (if (gx#stx-pair? _%tl4644647469%_) + (let ((_%e4644747472%_ + (gx#syntax-e _%tl4644647469%_))) + (let ((_%tl4644947479%_ (let () (declare (not safe)) - (##cdr _%e4638447409%_))) - (_%hd4638547413%_ + (##cdr _%e4644747472%_))) + (_%hd4644847476%_ (let () (declare (not safe)) - (##car _%e4638447409%_)))) - (if (gx#stx-pair? _%hd4638547413%_) - (let ((_%e4638747419%_ - (gx#syntax-e _%hd4638547413%_))) - (let ((_%tl4638947426%_ + (##car _%e4644747472%_)))) + (if (gx#stx-pair? _%hd4644847476%_) + (let ((_%e4645047482%_ + (gx#syntax-e _%hd4644847476%_))) + (let ((_%tl4645247489%_ (let () (declare (not safe)) - (##cdr _%e4638747419%_))) - (_%hd4638847423%_ + (##cdr _%e4645047482%_))) + (_%hd4645147486%_ (let () (declare (not safe)) - (##car _%e4638747419%_)))) - (if (gx#stx-pair? _%tl4638947426%_) - (let ((_%e4639047429%_ + (##car _%e4645047482%_)))) + (if (gx#stx-pair? _%tl4645247489%_) + (let ((_%e4645347492%_ (gx#syntax-e - _%tl4638947426%_))) - (let ((_%tl4639247436%_ + _%tl4645247489%_))) + (let ((_%tl4645547499%_ (let () (declare (not safe)) - (##cdr _%e4639047429%_))) - (_%hd4639147433%_ + (##cdr _%e4645347492%_))) + (_%hd4645447496%_ (let () (declare (not safe)) - (##car _%e4639047429%_)))) + (##car _%e4645347492%_)))) (if (gx#stx-pair? - _%tl4639247436%_) - (let ((_%e4639347439%_ + _%tl4645547499%_) + (let ((_%e4645647502%_ (gx#syntax-e - _%tl4639247436%_))) - (let ((_%tl4639547446%_ + _%tl4645547499%_))) + (let ((_%tl4645847509%_ (let () (declare (not safe)) - (##cdr _%e4639347439%_))) - (_%hd4639447443%_ + (##cdr _%e4645647502%_))) + (_%hd4645747506%_ (let () (declare (not safe)) - (##car _%e4639347439%_)))) + (##car _%e4645647502%_)))) (if (gx#stx-pair? - _%tl4639547446%_) - (let ((_%e4639647449%_ + _%tl4645847509%_) + (let ((_%e4645947512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4639547446%_))) - (let ((_%tl4639847456%_ + (gx#syntax-e _%tl4645847509%_))) + (let ((_%tl4646147519%_ (let () (declare (not safe)) - (##cdr _%e4639647449%_))) - (_%hd4639747453%_ + (##cdr _%e4645947512%_))) + (_%hd4646047516%_ (let () (declare (not safe)) - (##car _%e4639647449%_)))) - (if (gx#stx-null? _%tl4639847456%_) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7849578496%_ + (##car _%e4645947512%_)))) + (if (gx#stx-null? _%tl4646147519%_) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7855878559%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4640147462%_ + (let ((_%tl4646447525%_ (let () (declare (not safe)) (##vector-ref - _%__splice7849578496%_ + _%__splice7855878559%_ '1))) - (_%target4639947459%_ + (_%target4646247522%_ (let () (declare (not safe)) (##vector-ref - _%__splice7849578496%_ + _%__splice7855878559%_ '0)))) - (if (gx#stx-null? _%tl4640147462%_) - (_%__match7856778568%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%__splice7849578496%_ - _%target4639947459%_ - _%tl4640147462%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (if (gx#stx-null? _%tl4646447525%_) + (_%__match7863078631%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%__splice7855878559%_ + _%target4646247522%_ + _%tl4646447525%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#identifier? _%hd4639447443%_) + (_%g4643746646%_)))) + (if (gx#identifier? _%hd4645747506%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84065_| - _%hd4639447443%_) - (if (gx#stx-pair? _%tl4639847456%_) - (let ((_%e4643247283%_ - (gx#syntax-e _%tl4639847456%_))) - (let ((_%tl4643447290%_ + |gerbil/core/contract~Using[1]#_g84128_| + _%hd4645747506%_) + (if (gx#stx-pair? _%tl4646147519%_) + (let ((_%e4649547346%_ + (gx#syntax-e _%tl4646147519%_))) + (let ((_%tl4649747353%_ (let () (declare (not safe)) - (##cdr _%e4643247283%_))) - (_%hd4643347287%_ + (##cdr _%e4649547346%_))) + (_%hd4649647350%_ (let () (declare (not safe)) - (##car _%e4643247283%_)))) - (if (gx#stx-pair? _%tl4643447290%_) - (let ((_%e4643547293%_ + (##car _%e4649547346%_)))) + (if (gx#stx-pair? _%tl4649747353%_) + (let ((_%e4649847356%_ (gx#syntax-e - _%tl4643447290%_))) - (let ((_%tl4643747300%_ + _%tl4649747353%_))) + (let ((_%tl4650047363%_ (let () (declare (not safe)) - (##cdr _%e4643547293%_))) - (_%hd4643647297%_ + (##cdr _%e4649847356%_))) + (_%hd4649947360%_ (let () (declare (not safe)) - (##car _%e4643547293%_)))) + (##car _%e4649847356%_)))) (if (gx#stx-null? - _%tl4643747300%_) + _%tl4650047363%_) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7849978500%_ + _%tl4644947479%_) + (let ((_%__splice7856278563%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4644047306%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4650347369%_ (let () (declare (not safe)) - (##vector-ref _%__splice7849978500%_ '1))) - (_%target4643847303%_ + (##vector-ref _%__splice7856278563%_ '1))) + (_%target4650147366%_ (let () (declare (not safe)) - (##vector-ref _%__splice7849978500%_ '0)))) - (if (gx#stx-null? _%tl4644047306%_) - (_%__match7862978630%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%e4643247283%_ - _%hd4643347287%_ - _%tl4643447290%_ - _%e4643547293%_ - _%hd4643647297%_ - _%tl4643747300%_ - _%__splice7849978500%_ - _%target4643847303%_ - _%tl4644047306%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7856278563%_ '0)))) + (if (gx#stx-null? _%tl4650347369%_) + (_%__match7869278693%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%e4649547346%_ + _%hd4649647350%_ + _%tl4649747353%_ + _%e4649847356%_ + _%hd4649947360%_ + _%tl4650047363%_ + _%__splice7856278563%_ + _%target4650147366%_ + _%tl4650347369%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd4639147433%_) + _%hd4645447496%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4639147433%_) + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4645447496%_) (if (gx#stx-null? - _%tl4643447290%_) + _%tl4649747353%_) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851178512%_ + _%tl4644947479%_) + (let ((_%__splice7857478575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4653046859%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%e4643247283%_ - _%hd4643347287%_ - _%tl4643447290%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7857478575%_ '0)))) + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%e4649547346%_ + _%hd4649647350%_ + _%tl4649747353%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638847423%_) - (let ((_%e4655046704%_ + _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ - (let () (declare (not safe)) (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ + (let () (declare (not safe)) (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#identifier? _%hd4639147433%_) + (_%g4643746646%_)))) + (if (gx#identifier? _%hd4645447496%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4639147433%_) - (if (gx#stx-pair? _%tl4639847456%_) - (let ((_%e4652546846%_ + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4645447496%_) + (if (gx#stx-pair? _%tl4646147519%_) + (let ((_%e4658846909%_ (gx#syntax-e - _%tl4639847456%_))) - (let ((_%tl4652746853%_ + _%tl4646147519%_))) + (let ((_%tl4659046916%_ (let () (declare (not safe)) - (##cdr _%e4652546846%_))) - (_%hd4652646850%_ + (##cdr _%e4658846909%_))) + (_%hd4658946913%_ (let () (declare (not safe)) - (##car _%e4652546846%_)))) + (##car _%e4658846909%_)))) (if (gx#stx-null? - _%tl4652746853%_) + _%tl4659046916%_) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851178512%_ + _%tl4644947479%_) + (let ((_%__splice7857478575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4653046859%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4659346922%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7857478575%_ '0)))) + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638847423%_) - (let ((_%e4655046704%_ + _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (if (gx#identifier? _%hd4639147433%_) + (_%g4643746646%_))))) + (if (gx#identifier? _%hd4645447496%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84064_| - _%hd4639147433%_) - (if (gx#stx-pair? _%tl4639847456%_) - (let ((_%e4652546846%_ + |gerbil/core/contract~Using[1]#_g84127_| + _%hd4645447496%_) + (if (gx#stx-pair? _%tl4646147519%_) + (let ((_%e4658846909%_ (gx#syntax-e - _%tl4639847456%_))) - (let ((_%tl4652746853%_ + _%tl4646147519%_))) + (let ((_%tl4659046916%_ (let () (declare (not safe)) - (##cdr _%e4652546846%_))) - (_%hd4652646850%_ + (##cdr _%e4658846909%_))) + (_%hd4658946913%_ (let () (declare (not safe)) - (##car _%e4652546846%_)))) + (##car _%e4658846909%_)))) (if (gx#stx-null? - _%tl4652746853%_) + _%tl4659046916%_) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851178512%_ + _%tl4644947479%_) + (let ((_%__splice7857478575%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4653046859%_ + (let ((_%tl4659346922%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '1))) - (_%target4652846856%_ + (##vector-ref _%__splice7857478575%_ '1))) + (_%target4659146919%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851178512%_ '0)))) - (if (gx#stx-null? _%tl4653046859%_) - (_%__match7876978770%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%e4639647449%_ - _%hd4639747453%_ - _%tl4639847456%_ - _%e4652546846%_ - _%hd4652646850%_ - _%tl4652746853%_ - _%__splice7851178512%_ - _%target4652846856%_ - _%tl4653046859%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##vector-ref _%__splice7857478575%_ '0)))) + (if (gx#stx-null? _%tl4659346922%_) + (_%__match7883278833%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%e4645947512%_ + _%hd4646047516%_ + _%tl4646147519%_ + _%e4658846909%_ + _%hd4658946913%_ + _%tl4659046916%_ + _%__splice7857478575%_ + _%target4659146919%_ + _%tl4659346922%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) + (##car _%e4661346767%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638847423%_) - (let ((_%e4655046704%_ + _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ - (let () (declare (not safe)) (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ + (let () (declare (not safe)) (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) (if (gx#stx-null? - _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_)))))))) - (if (gx#stx-null? _%tl4639547446%_) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7850378504%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4646847123%_ + (_%g4643746646%_)))))))) + (if (gx#stx-null? _%tl4645847509%_) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7856678567%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4653147186%_ (let () (declare (not safe)) - (##vector-ref _%__splice7850378504%_ '1))) - (_%target4646647120%_ + (##vector-ref _%__splice7856678567%_ '1))) + (_%target4652947183%_ (let () (declare (not safe)) (##vector-ref - _%__splice7850378504%_ + _%__splice7856678567%_ '0)))) - (if (gx#stx-null? _%tl4646847123%_) - (_%__match7866978670%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4639047429%_ - _%hd4639147433%_ - _%tl4639247436%_ - _%e4639347439%_ - _%hd4639447443%_ - _%tl4639547446%_ - _%__splice7850378504%_ - _%target4646647120%_ - _%tl4646847123%_) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (if (gx#stx-null? _%tl4653147186%_) + (_%__match7873278733%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4645347492%_ + _%hd4645447496%_ + _%tl4645547499%_ + _%e4645647502%_ + _%hd4645747506%_ + _%tl4645847509%_ + _%__splice7856678567%_ + _%target4652947183%_ + _%tl4653147186%_) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) + (_%g4643746646%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (let () (declare (not safe)) - (_%g4637446583%_)))) - (let () (declare (not safe)) (_%g4637446583%_)))) - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ - (gx#syntax-e _%hd4638847423%_))) - (let ((_%tl4655246711%_ + (_%g4643746646%_)))) + (let () (declare (not safe)) (_%g4643746646%_)))) + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ + (gx#syntax-e _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ + (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '1))) - (_%target4655346714%_ + (_%target4661646777%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851578516%_ + _%__splice7857878579%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd4638847423%_) - (let ((_%e4655046704%_ + _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ - (let () (declare (not safe)) (##car _%e4655046704%_)))) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851578516%_ - (gx#syntax-split-splice _%tl4638647416%_ '0))) - (let ((_%tl4655546717%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ + (let () (declare (not safe)) (##car _%e4661346767%_)))) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7857878579%_ + (gx#syntax-split-splice _%tl4644947479%_ '0))) + (let ((_%tl4661846780%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) (let () (declare (not safe)) - (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))) + (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd4638847423%_) - (let ((_%e4655046704%_ + (if (gx#stx-pair? _%hd4645147486%_) + (let ((_%e4661346767%_ (gx#syntax-e - _%hd4638847423%_))) - (let ((_%tl4655246711%_ + _%hd4645147486%_))) + (let ((_%tl4661546774%_ (let () (declare (not safe)) - (##cdr _%e4655046704%_))) - (_%hd4655146708%_ + (##cdr _%e4661346767%_))) + (_%hd4661446771%_ (let () (declare (not safe)) - (##car _%e4655046704%_)))) + (##car _%e4661346767%_)))) (if (gx#stx-pair/null? - _%tl4638647416%_) - (let ((_%__splice7851578516%_ + _%tl4644947479%_) + (let ((_%__splice7857878579%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4655546717%_ + (let ((_%tl4661846780%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '1))) - (_%target4655346714%_ + (##vector-ref _%__splice7857878579%_ '1))) + (_%target4661646777%_ (let () (declare (not safe)) - (##vector-ref _%__splice7851578516%_ '0)))) - (if (gx#stx-null? _%tl4655546717%_) - (_%__match7880178802%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%e4638747419%_ - _%hd4638847423%_ - _%tl4638947426%_ - _%e4655046704%_ - _%hd4655146708%_ - _%tl4655246711%_ - _%__splice7851578516%_ - _%target4655346714%_ - _%tl4655546717%_) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_))))) + (##vector-ref _%__splice7857878579%_ '0)))) + (if (gx#stx-null? _%tl4661846780%_) + (_%__match7886478865%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%e4645047482%_ + _%hd4645147486%_ + _%tl4645247489%_ + _%e4661346767%_ + _%hd4661446771%_ + _%tl4661546774%_ + _%__splice7857878579%_ + _%target4661646777%_ + _%tl4661846780%_) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4637446583%_)))))) - (if (gx#stx-null? _%hd4638547413%_) - (if (gx#stx-pair/null? _%tl4638647416%_) - (let ((_%__splice7851978520%_ + (_%g4643746646%_)))))) + (if (gx#stx-null? _%hd4644847476%_) + (if (gx#stx-pair/null? _%tl4644947479%_) + (let ((_%__splice7858278583%_ (gx#syntax-split-splice - _%tl4638647416%_ + _%tl4644947479%_ '0))) - (let ((_%tl4657146613%_ + (let ((_%tl4663446676%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851978520%_ + _%__splice7858278583%_ '1))) - (_%target4656946610%_ + (_%target4663246673%_ (let () (declare (not safe)) (##vector-ref - _%__splice7851978520%_ + _%__splice7858278583%_ '0)))) (if (gx#stx-null? - _%tl4657146613%_) - (_%__match7882378824%_ - _%e4638147399%_ - _%hd4638247403%_ - _%tl4638347406%_ - _%e4638447409%_ - _%hd4638547413%_ - _%tl4638647416%_ - _%__splice7851978520%_ - _%target4656946610%_ - _%tl4657146613%_) + _%tl4663446676%_) + (_%__match7888678887%_ + _%e4644447462%_ + _%hd4644547466%_ + _%tl4644647469%_ + _%e4644747472%_ + _%hd4644847476%_ + _%tl4644947479%_ + _%__splice7858278583%_ + _%target4663246673%_ + _%tl4663446676%_) (let () (declare (not safe)) - (_%g4637446583%_))))) + (_%g4643746646%_))))) (let () (declare (not safe)) - (_%g4637446583%_))) + (_%g4643746646%_))) (let () (declare (not safe)) - (_%g4637446583%_)))))) - (let () (declare (not safe)) (_%g4637446583%_))))) - (let () (declare (not safe)) (_%g4637446583%_)))))))) + (_%g4643746646%_)))))) + (let () (declare (not safe)) (_%g4643746646%_))))) + (let () (declare (not safe)) (_%g4643746646%_)))))))) (define |gerbil/core/contract~Using[:0:]#with-contract| - (lambda (_%$stx47557%_) - (let* ((_%g4756147595%_ - (lambda (_%g4756247591%_) + (lambda (_%$stx47620%_) + (let* ((_%g4762447658%_ + (lambda (_%g4762547654%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4756247591%_))) - (_%g4756047718%_ - (lambda (_%g4756247599%_) - (if (gx#stx-pair? _%g4756247599%_) - (let ((_%e4756647602%_ (gx#syntax-e _%g4756247599%_))) - (let ((_%hd4756747606%_ + _%g4762547654%_))) + (_%g4762347781%_ + (lambda (_%g4762547662%_) + (if (gx#stx-pair? _%g4762547662%_) + (let ((_%e4762947665%_ (gx#syntax-e _%g4762547662%_))) + (let ((_%hd4763047669%_ (let () (declare (not safe)) - (##car _%e4756647602%_))) - (_%tl4756847609%_ + (##car _%e4762947665%_))) + (_%tl4763147672%_ (let () (declare (not safe)) - (##cdr _%e4756647602%_)))) - (if (gx#stx-pair? _%tl4756847609%_) - (let ((_%e4756947612%_ - (gx#syntax-e _%tl4756847609%_))) - (let ((_%hd4757047616%_ + (##cdr _%e4762947665%_)))) + (if (gx#stx-pair? _%tl4763147672%_) + (let ((_%e4763247675%_ + (gx#syntax-e _%tl4763147672%_))) + (let ((_%hd4763347679%_ (let () (declare (not safe)) - (##car _%e4756947612%_))) - (_%tl4757147619%_ + (##car _%e4763247675%_))) + (_%tl4763447682%_ (let () (declare (not safe)) - (##cdr _%e4756947612%_)))) - (if (gx#stx-pair? _%hd4757047616%_) - (let ((_%e4757247622%_ - (gx#syntax-e _%hd4757047616%_))) - (let ((_%hd4757347626%_ + (##cdr _%e4763247675%_)))) + (if (gx#stx-pair? _%hd4763347679%_) + (let ((_%e4763547685%_ + (gx#syntax-e _%hd4763347679%_))) + (let ((_%hd4763647689%_ (let () (declare (not safe)) - (##car _%e4757247622%_))) - (_%tl4757447629%_ + (##car _%e4763547685%_))) + (_%tl4763747692%_ (let () (declare (not safe)) - (##cdr _%e4757247622%_)))) - (if (gx#stx-pair? _%tl4757447629%_) - (let ((_%e4757547632%_ + (##cdr _%e4763547685%_)))) + (if (gx#stx-pair? _%tl4763747692%_) + (let ((_%e4763847695%_ (gx#syntax-e - _%tl4757447629%_))) - (let ((_%hd4757647636%_ + _%tl4763747692%_))) + (let ((_%hd4763947699%_ (let () (declare (not safe)) - (##car _%e4757547632%_))) - (_%tl4757747639%_ + (##car _%e4763847695%_))) + (_%tl4764047702%_ (let () (declare (not safe)) - (##cdr _%e4757547632%_)))) + (##cdr _%e4763847695%_)))) (if (gx#identifier? - _%hd4757647636%_) + _%hd4763947699%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84066_| - _%hd4757647636%_) + |gerbil/core/contract~Using[1]#_g84129_| + _%hd4763947699%_) (if (gx#stx-pair? - _%tl4757747639%_) - (let ((_%e4757847642%_ + _%tl4764047702%_) + (let ((_%e4764147705%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4757747639%_))) - (let ((_%hd4757947646%_ + (gx#syntax-e _%tl4764047702%_))) + (let ((_%hd4764247709%_ (let () (declare (not safe)) - (##car _%e4757847642%_))) - (_%tl4758047649%_ + (##car _%e4764147705%_))) + (_%tl4764347712%_ (let () (declare (not safe)) - (##cdr _%e4757847642%_)))) - (if (gx#stx-null? _%tl4758047649%_) - (if (gx#stx-pair/null? _%tl4757147619%_) - (let ((_g84067_ + (##cdr _%e4764147705%_)))) + (if (gx#stx-null? _%tl4764347712%_) + (if (gx#stx-pair/null? _%tl4763447682%_) + (let ((_g84130_ (gx#syntax-split-splice - _%tl4757147619%_ + _%tl4763447682%_ '0))) (begin - (let ((_g84068_ + (let ((_g84131_ (let () (declare (not safe)) - (if (##values? _g84067_) - (##vector-length _g84067_) + (if (##values? _g84130_) + (##values-length _g84130_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84068_ 2))) + (##fx= _g84131_ 2))) (error "Context expects 2 values" - _g84068_))) - (let ((_%target4758147652%_ + _g84131_))) + (let ((_%target4764447715%_ (let () (declare (not safe)) - (##vector-ref _g84067_ 0))) - (_%tl4758347655%_ + (##values-ref _g84130_ 0))) + (_%tl4764647718%_ (let () (declare (not safe)) - (##vector-ref _g84067_ 1)))) - (if (gx#stx-null? _%tl4758347655%_) - (letrec ((_%loop4758447658%_ - (lambda (_%hd4758247662%_ - _%body4758847665%_) + (##values-ref _g84130_ 1)))) + (if (gx#stx-null? _%tl4764647718%_) + (letrec ((_%loop4764747721%_ + (lambda (_%hd4764547725%_ + _%body4765147728%_) (if (gx#stx-pair? - _%hd4758247662%_) - (let ((_%e4758547668%_ + _%hd4764547725%_) + (let ((_%e4764847731%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd4758247662%_))) - (let ((_%lp-hd4758647672%_ + (gx#syntax-e _%hd4764547725%_))) + (let ((_%lp-hd4764947735%_ (let () (declare (not safe)) - (##car _%e4758547668%_))) - (_%lp-tl4758747675%_ + (##car _%e4764847731%_))) + (_%lp-tl4765047738%_ (let () (declare (not safe)) - (##cdr _%e4758547668%_)))) - (_%loop4758447658%_ - _%lp-tl4758747675%_ - (cons _%lp-hd4758647672%_ _%body4758847665%_)))) - (let ((_%body4758947678%_ (reverse _%body4758847665%_))) - ((lambda (_%L47682%_ _%L47684%_ _%L47685%_) - (if (gx#identifier? _%L47685%_) + (##cdr _%e4764847731%_)))) + (_%loop4764747721%_ + _%lp-tl4765047738%_ + (cons _%lp-hd4764947735%_ _%body4765147728%_)))) + (let ((_%body4765247741%_ (reverse _%body4765147728%_))) + ((lambda (_%L47745%_ _%L47747%_ _%L47748%_) + (if (gx#identifier? _%L47748%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L47684%_ - (cons _%L47685%_ '())) + (cons (cons _%L47747%_ + (cons _%L47748%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4770947712%_ + (foldr (lambda (_%g4777247775%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4771047715%_) - (cons _%g4770947712%_ _%g4771047715%_)) + _%g4777347778%_) + (cons _%g4777247775%_ _%g4777347778%_)) '() - _%L47682%_))) + _%L47745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'contract-violation!) - (cons _%L47685%_ + (cons _%L47748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L47684%_ (cons _%L47685%_ '())))) + (cons _%L47747%_ (cons _%L47748%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%g4756147595%_ _%g4756247599%_))) - _%body4758947678%_ - _%hd4757947646%_ - _%hd4757347626%_)))))) + (_%g4762447658%_ _%g4762547662%_))) + _%body4765247741%_ + _%hd4764247709%_ + _%hd4763647689%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4758447658%_ - _%target4758147652%_ + (_%loop4764747721%_ + _%target4764447715%_ '())) - (_%g4756147595%_ - _%g4756247599%_))))) - (_%g4756147595%_ _%g4756247599%_)) - (_%g4756147595%_ _%g4756247599%_)))) - (_%g4756147595%_ _%g4756247599%_)) - (_%g4756147595%_ _%g4756247599%_)) - (_%g4756147595%_ _%g4756247599%_)))) + (_%g4762447658%_ + _%g4762547662%_))))) + (_%g4762447658%_ _%g4762547662%_)) + (_%g4762447658%_ _%g4762547662%_)))) + (_%g4762447658%_ _%g4762547662%_)) + (_%g4762447658%_ _%g4762547662%_)) + (_%g4762447658%_ _%g4762547662%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4756147595%_ - _%g4756247599%_)))) - (_%g4756147595%_ _%g4756247599%_)))) - (_%g4756147595%_ _%g4756247599%_)))) - (_%g4756147595%_ _%g4756247599%_))))) - (_%g4756047718%_ _%$stx47557%_)))) + (_%g4762447658%_ + _%g4762547662%_)))) + (_%g4762447658%_ _%g4762547662%_)))) + (_%g4762447658%_ _%g4762547662%_)))) + (_%g4762447658%_ _%g4762547662%_))))) + (_%g4762347781%_ _%$stx47620%_)))) (define |gerbil/core/contract~Using[1]#!class-slot-type| - (lambda (_%klass48285%_ _%slot48287%_) - (let ((_%$e48289%_ - (let ((__obj83904 _%klass48285%_)) + (lambda (_%klass48348%_ _%slot48350%_) + (let ((_%$e48352%_ + (let ((__obj83967 _%klass48348%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83904 + __obj83967 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83904 '19 '#f '#f)) + (##unchecked-structure-ref __obj83967 '19 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83904 + __obj83967 'slot-types))))) - (if _%$e48289%_ - ((lambda (_%slot-types48293%_) - (agetq _%slot48287%_ _%slot-types48293%_)) - _%$e48289%_) + (if _%$e48352%_ + ((lambda (_%slot-types48356%_) + (agetq _%slot48350%_ _%slot-types48356%_)) + _%$e48352%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%klass48266%_ _%slot48268%_) - (let ((_%$e48270%_ - (let ((__obj83905 _%klass48266%_)) + (lambda (_%klass48329%_ _%slot48331%_) + (let ((_%$e48333%_ + (let ((__obj83968 _%klass48329%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83905 + __obj83968 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83905 '20 '#f '#f)) + (##unchecked-structure-ref __obj83968 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83905 + __obj83968 'slot-defaults))))) - (if _%$e48270%_ - ((lambda (_%slot-defaults48274%_) - (let ((_%$e48277%_ - (agetq _%slot48268%_ _%slot-defaults48274%_))) - (if _%$e48277%_ - (gx#syntax-local-introduce _%$e48277%_) + (if _%$e48333%_ + ((lambda (_%slot-defaults48337%_) + (let ((_%$e48340%_ + (agetq _%slot48331%_ _%slot-defaults48337%_))) + (if _%$e48340%_ + (gx#syntax-local-introduce _%$e48340%_) '#f))) - _%$e48270%_) + _%$e48333%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%klass48247%_ _%slot48249%_) - (let ((_%$e48251%_ - (let ((__obj83906 _%klass48247%_)) + (lambda (_%klass48310%_ _%slot48312%_) + (let ((_%$e48314%_ + (let ((__obj83969 _%klass48310%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83906 + __obj83969 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83906 '20 '#f '#f)) + (##unchecked-structure-ref __obj83969 '20 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83906 + __obj83969 'slot-defaults))))) - (if _%$e48251%_ - ((lambda (_%slot-defaults48255%_) - (let ((_%$e48258%_ - (agetq _%slot48249%_ _%slot-defaults48255%_))) - (if _%$e48258%_ - (gx#syntax-local-introduce _%$e48258%_) + (if _%$e48314%_ + ((lambda (_%slot-defaults48318%_) + (let ((_%$e48321%_ + (agetq _%slot48312%_ _%slot-defaults48318%_))) + (if _%$e48321%_ + (gx#syntax-local-introduce _%$e48321%_) '#f))) - _%$e48251%_) + _%$e48314%_) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - (lambda (_%klass48015%_ _%slot48017%_) - (let ((_%contract4801848020%_ + (lambda (_%klass48078%_ _%slot48080%_) + (let ((_%contract4808148083%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass48015%_ - _%slot48017%_))) - (if _%contract4801848020%_ - (let* ((_%contract48024%_ _%contract4801848020%_) - (_%__stx7882678827%_ _%contract48024%_) - (_%g4802948066%_ + _%klass48078%_ + _%slot48080%_))) + (if _%contract4808148083%_ + (let* ((_%contract48087%_ _%contract4808148083%_) + (_%__stx7888978890%_ _%contract48087%_) + (_%g4809248129%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7882678827%_)))) - (let ((_%__kont7882978830%_ - (lambda (_%L48216%_ _%L48218%_) + _%__stx7888978890%_)))) + (let ((_%__kont7889278893%_ + (lambda (_%L48279%_ _%L48281%_) (not (gx#free-identifier=? - _%L48218%_ + _%L48281%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7883178832%_ - (lambda (_%L48156%_ _%L48158%_ _%L48159%_) + (_%__kont7889478895%_ + (lambda (_%L48219%_ _%L48221%_ _%L48222%_) (not (gx#free-identifier=? - _%L48158%_ + _%L48221%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7883378834%_ (lambda (_%L48093%_) '#f))) - (let* ((_%__match7887978880%_ - (lambda (_%e4804248116%_ - _%hd4804348120%_ - _%tl4804448123%_ - _%e4804548126%_ - _%hd4804648130%_ - _%tl4804748133%_ - _%e4804848136%_ - _%hd4804948140%_ - _%tl4805048143%_ - _%e4805148146%_ - _%hd4805248150%_ - _%tl4805348153%_) - (let ((_%L48156%_ _%hd4805248150%_) - (_%L48158%_ _%hd4804948140%_) - (_%L48159%_ _%hd4804648130%_)) - (if (and (gx#identifier? _%L48158%_) + (_%__kont7889678897%_ (lambda (_%L48156%_) '#f))) + (let* ((_%__match7894278943%_ + (lambda (_%e4810548179%_ + _%hd4810648183%_ + _%tl4810748186%_ + _%e4810848189%_ + _%hd4810948193%_ + _%tl4811048196%_ + _%e4811148199%_ + _%hd4811248203%_ + _%tl4811348206%_ + _%e4811448209%_ + _%hd4811548213%_ + _%tl4811648216%_) + (let ((_%L48219%_ _%hd4811548213%_) + (_%L48221%_ _%hd4811248203%_) + (_%L48222%_ _%hd4810948193%_)) + (if (and (gx#identifier? _%L48221%_) (or (gx#free-identifier=? - _%L48158%_ + _%L48221%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48158%_ + _%L48221%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48158%_ + _%L48221%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48158%_ + _%L48221%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7883178832%_ - _%L48156%_ - _%L48158%_ - _%L48159%_) + (_%__kont7889478895%_ + _%L48219%_ + _%L48221%_ + _%L48222%_) (let () (declare (not safe)) - (_%g4802948066%_)))))) - (_%__match7884978850%_ - (lambda (_%e4803348196%_ - _%hd4803448200%_ - _%tl4803548203%_ - _%e4803648206%_ - _%hd4803748210%_ - _%tl4803848213%_) - (let ((_%L48216%_ _%hd4803748210%_) - (_%L48218%_ _%hd4803448200%_)) - (if (and (gx#identifier? _%L48218%_) + (_%g4809248129%_)))))) + (_%__match7891278913%_ + (lambda (_%e4809648259%_ + _%hd4809748263%_ + _%tl4809848266%_ + _%e4809948269%_ + _%hd4810048273%_ + _%tl4810148276%_) + (let ((_%L48279%_ _%hd4810048273%_) + (_%L48281%_ _%hd4809748263%_)) + (if (and (gx#identifier? _%L48281%_) (or (gx#free-identifier=? - _%L48218%_ + _%L48281%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L48218%_ + _%L48281%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L48218%_ + _%L48281%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L48218%_ + _%L48281%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7882978830%_ _%L48216%_ _%L48218%_) - (if (gx#identifier? _%hd4803448200%_) + (_%__kont7889278893%_ _%L48279%_ _%L48281%_) + (if (gx#identifier? _%hd4809748263%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84069_| - _%hd4803448200%_) - (_%__kont7883378834%_ - _%hd4803748210%_) + |gerbil/core/contract~Using[1]#_g84132_| + _%hd4809748263%_) + (_%__kont7889678897%_ + _%hd4810048273%_) (let () (declare (not safe)) - (_%g4802948066%_))) + (_%g4809248129%_))) (let () (declare (not safe)) - (_%g4802948066%_)))))))) - (if (gx#stx-pair? _%__stx7882678827%_) - (let ((_%e4803348196%_ - (gx#syntax-e _%__stx7882678827%_))) - (let ((_%tl4803548203%_ + (_%g4809248129%_)))))))) + (if (gx#stx-pair? _%__stx7888978890%_) + (let ((_%e4809648259%_ + (gx#syntax-e _%__stx7888978890%_))) + (let ((_%tl4809848266%_ (let () (declare (not safe)) - (##cdr _%e4803348196%_))) - (_%hd4803448200%_ + (##cdr _%e4809648259%_))) + (_%hd4809748263%_ (let () (declare (not safe)) - (##car _%e4803348196%_)))) - (if (gx#stx-pair? _%tl4803548203%_) - (let ((_%e4803648206%_ - (gx#syntax-e _%tl4803548203%_))) - (let ((_%tl4803848213%_ + (##car _%e4809648259%_)))) + (if (gx#stx-pair? _%tl4809848266%_) + (let ((_%e4809948269%_ + (gx#syntax-e _%tl4809848266%_))) + (let ((_%tl4810148276%_ (let () (declare (not safe)) - (##cdr _%e4803648206%_))) - (_%hd4803748210%_ + (##cdr _%e4809948269%_))) + (_%hd4810048273%_ (let () (declare (not safe)) - (##car _%e4803648206%_)))) - (if (gx#stx-null? _%tl4803848213%_) - (_%__match7884978850%_ - _%e4803348196%_ - _%hd4803448200%_ - _%tl4803548203%_ - _%e4803648206%_ - _%hd4803748210%_ - _%tl4803848213%_) - (if (gx#identifier? _%hd4803448200%_) + (##car _%e4809948269%_)))) + (if (gx#stx-null? _%tl4810148276%_) + (_%__match7891278913%_ + _%e4809648259%_ + _%hd4809748263%_ + _%tl4809848266%_ + _%e4809948269%_ + _%hd4810048273%_ + _%tl4810148276%_) + (if (gx#identifier? _%hd4809748263%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84069_| - _%hd4803448200%_) + |gerbil/core/contract~Using[1]#_g84132_| + _%hd4809748263%_) (if (gx#stx-pair? - _%tl4803848213%_) - (let ((_%e4804848136%_ + _%tl4810148276%_) + (let ((_%e4811148199%_ (gx#syntax-e - _%tl4803848213%_))) - (let ((_%tl4805048143%_ + _%tl4810148276%_))) + (let ((_%tl4811348206%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4804848136%_))) - (_%hd4804948140%_ - (let () (declare (not safe)) (##car _%e4804848136%_)))) - (if (gx#stx-pair? _%tl4805048143%_) - (let ((_%e4805148146%_ (gx#syntax-e _%tl4805048143%_))) - (let ((_%tl4805348153%_ + (##cdr _%e4811148199%_))) + (_%hd4811248203%_ + (let () (declare (not safe)) (##car _%e4811148199%_)))) + (if (gx#stx-pair? _%tl4811348206%_) + (let ((_%e4811448209%_ (gx#syntax-e _%tl4811348206%_))) + (let ((_%tl4811648216%_ (let () (declare (not safe)) - (##cdr _%e4805148146%_))) - (_%hd4805248150%_ + (##cdr _%e4811448209%_))) + (_%hd4811548213%_ (let () (declare (not safe)) - (##car _%e4805148146%_)))) - (if (gx#stx-null? _%tl4805348153%_) - (_%__match7887978880%_ - _%e4803348196%_ - _%hd4803448200%_ - _%tl4803548203%_ - _%e4803648206%_ - _%hd4803748210%_ - _%tl4803848213%_ - _%e4804848136%_ - _%hd4804948140%_ - _%tl4805048143%_ - _%e4805148146%_ - _%hd4805248150%_ - _%tl4805348153%_) - (let () (declare (not safe)) (_%g4802948066%_))))) - (let () (declare (not safe)) (_%g4802948066%_))))) + (##car _%e4811448209%_)))) + (if (gx#stx-null? _%tl4811648216%_) + (_%__match7894278943%_ + _%e4809648259%_ + _%hd4809748263%_ + _%tl4809848266%_ + _%e4809948269%_ + _%hd4810048273%_ + _%tl4810148276%_ + _%e4811148199%_ + _%hd4811248203%_ + _%tl4811348206%_ + _%e4811448209%_ + _%hd4811548213%_ + _%tl4811648216%_) + (let () (declare (not safe)) (_%g4809248129%_))))) + (let () (declare (not safe)) (_%g4809248129%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4802948066%_))) + (_%g4809248129%_))) (let () (declare (not safe)) - (_%g4802948066%_))) + (_%g4809248129%_))) (let () (declare (not safe)) - (_%g4802948066%_)))))) + (_%g4809248129%_)))))) (let () (declare (not safe)) - (_%g4802948066%_))))) - (let () (declare (not safe)) (_%g4802948066%_)))))) + (_%g4809248129%_))))) + (let () (declare (not safe)) (_%g4809248129%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - (lambda (_%klass47783%_ _%slot47785%_) - (let ((_%contract4778647788%_ + (lambda (_%klass47846%_ _%slot47848%_) + (let ((_%contract4784947851%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%klass47783%_ - _%slot47785%_))) - (if _%contract4778647788%_ - (let* ((_%contract47792%_ _%contract4778647788%_) - (_%__stx7890078901%_ _%contract47792%_) - (_%g4779747834%_ + _%klass47846%_ + _%slot47848%_))) + (if _%contract4784947851%_ + (let* ((_%contract47855%_ _%contract4784947851%_) + (_%__stx7896378964%_ _%contract47855%_) + (_%g4786047897%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7890078901%_)))) - (let ((_%__kont7890378904%_ - (lambda (_%L47984%_ _%L47986%_) + _%__stx7896378964%_)))) + (let ((_%__kont7896678967%_ + (lambda (_%L48047%_ _%L48049%_) (not (gx#free-identifier=? - _%L47986%_ + _%L48049%_ (gx#datum->syntax '#f ':-))))) - (_%__kont7890578906%_ - (lambda (_%L47924%_ _%L47926%_ _%L47927%_) '#t)) - (_%__kont7890778908%_ (lambda (_%L47861%_) '#t))) - (let* ((_%__match7895378954%_ - (lambda (_%e4781047884%_ - _%hd4781147888%_ - _%tl4781247891%_ - _%e4781347894%_ - _%hd4781447898%_ - _%tl4781547901%_ - _%e4781647904%_ - _%hd4781747908%_ - _%tl4781847911%_ - _%e4781947914%_ - _%hd4782047918%_ - _%tl4782147921%_) - (let ((_%L47924%_ _%hd4782047918%_) - (_%L47926%_ _%hd4781747908%_) - (_%L47927%_ _%hd4781447898%_)) - (if (and (gx#identifier? _%L47926%_) + (_%__kont7896878969%_ + (lambda (_%L47987%_ _%L47989%_ _%L47990%_) '#t)) + (_%__kont7897078971%_ (lambda (_%L47924%_) '#t))) + (let* ((_%__match7901679017%_ + (lambda (_%e4787347947%_ + _%hd4787447951%_ + _%tl4787547954%_ + _%e4787647957%_ + _%hd4787747961%_ + _%tl4787847964%_ + _%e4787947967%_ + _%hd4788047971%_ + _%tl4788147974%_ + _%e4788247977%_ + _%hd4788347981%_ + _%tl4788447984%_) + (let ((_%L47987%_ _%hd4788347981%_) + (_%L47989%_ _%hd4788047971%_) + (_%L47990%_ _%hd4787747961%_)) + (if (and (gx#identifier? _%L47989%_) (or (gx#free-identifier=? - _%L47926%_ + _%L47989%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47926%_ + _%L47989%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47926%_ + _%L47989%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47926%_ + _%L47989%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7890578906%_ - _%L47924%_ - _%L47926%_ - _%L47927%_) + (_%__kont7896878969%_ + _%L47987%_ + _%L47989%_ + _%L47990%_) (let () (declare (not safe)) - (_%g4779747834%_)))))) - (_%__match7892378924%_ - (lambda (_%e4780147964%_ - _%hd4780247968%_ - _%tl4780347971%_ - _%e4780447974%_ - _%hd4780547978%_ - _%tl4780647981%_) - (let ((_%L47984%_ _%hd4780547978%_) - (_%L47986%_ _%hd4780247968%_)) - (if (and (gx#identifier? _%L47986%_) + (_%g4786047897%_)))))) + (_%__match7898678987%_ + (lambda (_%e4786448027%_ + _%hd4786548031%_ + _%tl4786648034%_ + _%e4786748037%_ + _%hd4786848041%_ + _%tl4786948044%_) + (let ((_%L48047%_ _%hd4786848041%_) + (_%L48049%_ _%hd4786548031%_)) + (if (and (gx#identifier? _%L48049%_) (or (gx#free-identifier=? - _%L47986%_ + _%L48049%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L47986%_ + _%L48049%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L47986%_ + _%L48049%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L47986%_ + _%L48049%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7890378904%_ _%L47984%_ _%L47986%_) - (if (gx#identifier? _%hd4780247968%_) + (_%__kont7896678967%_ _%L48047%_ _%L48049%_) + (if (gx#identifier? _%hd4786548031%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84070_| - _%hd4780247968%_) - (_%__kont7890778908%_ - _%hd4780547978%_) + |gerbil/core/contract~Using[1]#_g84133_| + _%hd4786548031%_) + (_%__kont7897078971%_ + _%hd4786848041%_) (let () (declare (not safe)) - (_%g4779747834%_))) + (_%g4786047897%_))) (let () (declare (not safe)) - (_%g4779747834%_)))))))) - (if (gx#stx-pair? _%__stx7890078901%_) - (let ((_%e4780147964%_ - (gx#syntax-e _%__stx7890078901%_))) - (let ((_%tl4780347971%_ + (_%g4786047897%_)))))))) + (if (gx#stx-pair? _%__stx7896378964%_) + (let ((_%e4786448027%_ + (gx#syntax-e _%__stx7896378964%_))) + (let ((_%tl4786648034%_ (let () (declare (not safe)) - (##cdr _%e4780147964%_))) - (_%hd4780247968%_ + (##cdr _%e4786448027%_))) + (_%hd4786548031%_ (let () (declare (not safe)) - (##car _%e4780147964%_)))) - (if (gx#stx-pair? _%tl4780347971%_) - (let ((_%e4780447974%_ - (gx#syntax-e _%tl4780347971%_))) - (let ((_%tl4780647981%_ + (##car _%e4786448027%_)))) + (if (gx#stx-pair? _%tl4786648034%_) + (let ((_%e4786748037%_ + (gx#syntax-e _%tl4786648034%_))) + (let ((_%tl4786948044%_ (let () (declare (not safe)) - (##cdr _%e4780447974%_))) - (_%hd4780547978%_ + (##cdr _%e4786748037%_))) + (_%hd4786848041%_ (let () (declare (not safe)) - (##car _%e4780447974%_)))) - (if (gx#stx-null? _%tl4780647981%_) - (_%__match7892378924%_ - _%e4780147964%_ - _%hd4780247968%_ - _%tl4780347971%_ - _%e4780447974%_ - _%hd4780547978%_ - _%tl4780647981%_) - (if (gx#identifier? _%hd4780247968%_) + (##car _%e4786748037%_)))) + (if (gx#stx-null? _%tl4786948044%_) + (_%__match7898678987%_ + _%e4786448027%_ + _%hd4786548031%_ + _%tl4786648034%_ + _%e4786748037%_ + _%hd4786848041%_ + _%tl4786948044%_) + (if (gx#identifier? _%hd4786548031%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84070_| - _%hd4780247968%_) + |gerbil/core/contract~Using[1]#_g84133_| + _%hd4786548031%_) (if (gx#stx-pair? - _%tl4780647981%_) - (let ((_%e4781647904%_ + _%tl4786948044%_) + (let ((_%e4787947967%_ (gx#syntax-e - _%tl4780647981%_))) - (let ((_%tl4781847911%_ + _%tl4786948044%_))) + (let ((_%tl4788147974%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4781647904%_))) - (_%hd4781747908%_ - (let () (declare (not safe)) (##car _%e4781647904%_)))) - (if (gx#stx-pair? _%tl4781847911%_) - (let ((_%e4781947914%_ (gx#syntax-e _%tl4781847911%_))) - (let ((_%tl4782147921%_ + (##cdr _%e4787947967%_))) + (_%hd4788047971%_ + (let () (declare (not safe)) (##car _%e4787947967%_)))) + (if (gx#stx-pair? _%tl4788147974%_) + (let ((_%e4788247977%_ (gx#syntax-e _%tl4788147974%_))) + (let ((_%tl4788447984%_ (let () (declare (not safe)) - (##cdr _%e4781947914%_))) - (_%hd4782047918%_ + (##cdr _%e4788247977%_))) + (_%hd4788347981%_ (let () (declare (not safe)) - (##car _%e4781947914%_)))) - (if (gx#stx-null? _%tl4782147921%_) - (_%__match7895378954%_ - _%e4780147964%_ - _%hd4780247968%_ - _%tl4780347971%_ - _%e4780447974%_ - _%hd4780547978%_ - _%tl4780647981%_ - _%e4781647904%_ - _%hd4781747908%_ - _%tl4781847911%_ - _%e4781947914%_ - _%hd4782047918%_ - _%tl4782147921%_) - (let () (declare (not safe)) (_%g4779747834%_))))) - (let () (declare (not safe)) (_%g4779747834%_))))) + (##car _%e4788247977%_)))) + (if (gx#stx-null? _%tl4788447984%_) + (_%__match7901679017%_ + _%e4786448027%_ + _%hd4786548031%_ + _%tl4786648034%_ + _%e4786748037%_ + _%hd4786848041%_ + _%tl4786948044%_ + _%e4787947967%_ + _%hd4788047971%_ + _%tl4788147974%_ + _%e4788247977%_ + _%hd4788347981%_ + _%tl4788447984%_) + (let () (declare (not safe)) (_%g4786047897%_))))) + (let () (declare (not safe)) (_%g4786047897%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4779747834%_))) + (_%g4786047897%_))) (let () (declare (not safe)) - (_%g4779747834%_))) + (_%g4786047897%_))) (let () (declare (not safe)) - (_%g4779747834%_)))))) + (_%g4786047897%_)))))) (let () (declare (not safe)) - (_%g4779747834%_))))) - (let () (declare (not safe)) (_%g4779747834%_)))))) + (_%g4786047897%_))))) + (let () (declare (not safe)) (_%g4786047897%_)))))) '#f)))) (define |gerbil/core/contract~Using[1]#dotted-identifier?| - (lambda (_%id47769%_) - (if (gx#identifier? _%id47769%_) - (let* ((_%str47772%_ (symbol->string (gx#stx-e _%id47769%_))) - (_%index4777447776%_ (string-index _%str47772%_ '#\.))) - (if _%index4777447776%_ - (let ((_%index47780%_ _%index4777447776%_)) - (if (let () (declare (not safe)) (##fx> _%index47780%_ '0)) + (lambda (_%id47832%_) + (if (gx#identifier? _%id47832%_) + (let* ((_%str47835%_ (symbol->string (gx#stx-e _%id47832%_))) + (_%index4783747839%_ (string-index _%str47835%_ '#\.))) + (if _%index4783747839%_ + (let ((_%index47843%_ _%index4783747839%_)) + (if (let () (declare (not safe)) (##fx> _%index47843%_ '0)) (not (ormap string-empty? - (string-split _%str47772%_ '#\.))) + (string-split _%str47835%_ '#\.))) '#f)) '#f)) '#f))) (define |gerbil/core/contract~Using[1]#split-dotted-identifier| - (lambda (_%stx47762%_ _%id47764%_) - (let ((_%parts47766%_ - (string-split (symbol->string (gx#stx-e _%id47764%_)) '#\.))) - (if (find string-empty? _%parts47766%_) + (lambda (_%stx47825%_ _%id47827%_) + (let ((_%parts47829%_ + (string-split (symbol->string (gx#stx-e _%id47827%_)) '#\.))) + (if (find string-empty? _%parts47829%_) (gx#raise-syntax-error '#f '"bad dotted identifier" - _%stx47762%_ - _%id47764%_) - (cons (gx#stx-identifier _%id47764%_ (car _%parts47766%_)) - (map string->symbol (cdr _%parts47766%_))))))) + _%stx47825%_ + _%id47827%_) + (cons (gx#stx-identifier _%id47827%_ (car _%parts47829%_)) + (map string->symbol (cdr _%parts47829%_))))))) (define |gerbil/core/contract~Using[1]#get-slot-accessor| - (lambda (_%stx47743%_ _%klass-or-id47745%_ _%slot47746%_) - (let* ((_%klass47748%_ - (if (gx#identifier? _%klass-or-id47745%_) + (lambda (_%stx47806%_ _%klass-or-id47808%_ _%slot47809%_) + (let* ((_%klass47811%_ + (if (gx#identifier? _%klass-or-id47808%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47743%_ - _%klass-or-id47745%_)) - _%klass-or-id47745%_)) - (_%accessors47751%_ - (let ((__obj83907 _%klass47748%_)) + _%stx47806%_ + _%klass-or-id47808%_)) + _%klass-or-id47808%_)) + (_%accessors47814%_ + (let ((__obj83970 _%klass47811%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83907 + __obj83970 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83907 '17 '#f '#f)) + (##unchecked-structure-ref __obj83970 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83907 + __obj83970 'unchecked-accessors)))) - (_%$e47756%_ (agetq _%slot47746%_ _%accessors47751%_))) - (if _%$e47756%_ - _%$e47756%_ + (_%$e47819%_ (agetq _%slot47809%_ _%accessors47814%_))) + (if _%$e47819%_ + _%$e47819%_ (gx#raise-syntax-error '#f '"no accessor for slot" - _%stx47743%_ - _%klass47748%_ - _%slot47746%_))))) + _%stx47806%_ + _%klass47811%_ + _%slot47809%_))))) (define |gerbil/core/contract~Using[1]#get-slot-mutator| - (lambda (_%stx47723%_ - _%klass-or-id47725%_ - _%slot47726%_ - _%checked?47727%_) - (let* ((_%klass47729%_ - (if (gx#identifier? _%klass-or-id47725%_) + (lambda (_%stx47786%_ + _%klass-or-id47788%_ + _%slot47789%_ + _%checked?47790%_) + (let* ((_%klass47792%_ + (if (gx#identifier? _%klass-or-id47788%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx47723%_ - _%klass-or-id47725%_)) - _%klass-or-id47725%_)) - (_%mutators47732%_ - (if _%checked?47727%_ - (let ((__obj83908 _%klass47729%_)) + _%stx47786%_ + _%klass-or-id47788%_)) + _%klass-or-id47788%_)) + (_%mutators47795%_ + (if _%checked?47790%_ + (let ((__obj83971 _%klass47792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83908 + __obj83971 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83908 '16 '#f '#f)) + (##unchecked-structure-ref __obj83971 '16 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83908 + __obj83971 'mutators))) - (let ((__obj83909 _%klass47729%_)) + (let ((__obj83972 _%klass47792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83909 + __obj83972 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83909 '18 '#f '#f)) + (##unchecked-structure-ref __obj83972 '18 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83909 + __obj83972 'unchecked-mutators))))) - (_%$e47737%_ (agetq _%slot47726%_ _%mutators47732%_))) - (if _%$e47737%_ - _%$e47737%_ + (_%$e47800%_ (agetq _%slot47789%_ _%mutators47795%_))) + (if _%$e47800%_ + _%$e47800%_ (gx#raise-syntax-error '#f '"no mutator for slot" - _%stx47723%_ - _%klass47729%_ - _%slot47726%_))))) + _%stx47786%_ + _%klass47792%_ + _%slot47789%_))))) (define |gerbil/core/contract~Using[:0:]#with-class| - (lambda (_%stx48298%_) - (letrec ((_%expand-body48301%_ - (lambda (_%klass49209%_ - _%var49211%_ - _%Type49212%_ - _%body49213%_ - _%checked?49214%_) - (let* ((_%g4921649260%_ - (lambda (_%g4921749256%_) + (lambda (_%stx48361%_) + (letrec ((_%expand-body48364%_ + (lambda (_%klass49272%_ + _%var49274%_ + _%Type49275%_ + _%body49276%_ + _%checked?49277%_) + (let* ((_%g4927949323%_ + (lambda (_%g4928049319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4921749256%_))) - (_%g4921549417%_ - (lambda (_%g4921749264%_) - (if (gx#stx-pair? _%g4921749264%_) - (let ((_%e4922549267%_ - (gx#syntax-e _%g4921749264%_))) - (let ((_%hd4922649271%_ + _%g4928049319%_))) + (_%g4927849480%_ + (lambda (_%g4928049327%_) + (if (gx#stx-pair? _%g4928049327%_) + (let ((_%e4928849330%_ + (gx#syntax-e _%g4928049327%_))) + (let ((_%hd4928949334%_ (let () (declare (not safe)) - (##car _%e4922549267%_))) - (_%tl4922749274%_ + (##car _%e4928849330%_))) + (_%tl4929049337%_ (let () (declare (not safe)) - (##cdr _%e4922549267%_)))) - (if (gx#stx-pair? _%tl4922749274%_) - (let ((_%e4922849277%_ + (##cdr _%e4928849330%_)))) + (if (gx#stx-pair? _%tl4929049337%_) + (let ((_%e4929149340%_ (gx#syntax-e - _%tl4922749274%_))) - (let ((_%hd4922949281%_ + _%tl4929049337%_))) + (let ((_%hd4929249344%_ (let () (declare (not safe)) - (##car _%e4922849277%_))) - (_%tl4923049284%_ + (##car _%e4929149340%_))) + (_%tl4929349347%_ (let () (declare (not safe)) - (##cdr _%e4922849277%_)))) + (##cdr _%e4929149340%_)))) (if (gx#stx-pair? - _%tl4923049284%_) - (let ((_%e4923149287%_ + _%tl4929349347%_) + (let ((_%e4929449350%_ (gx#syntax-e - _%tl4923049284%_))) - (let ((_%hd4923249291%_ + _%tl4929349347%_))) + (let ((_%hd4929549354%_ (let () (declare (not safe)) - (##car _%e4923149287%_))) - (_%tl4923349294%_ + (##car _%e4929449350%_))) + (_%tl4929649357%_ (let () (declare (not safe)) - (##cdr _%e4923149287%_)))) + (##cdr _%e4929449350%_)))) (if (gx#stx-pair? - _%tl4923349294%_) - (let ((_%e4923449297%_ + _%tl4929649357%_) + (let ((_%e4929749360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl4923349294%_))) - (let ((_%hd4923549301%_ + (gx#syntax-e _%tl4929649357%_))) + (let ((_%hd4929849364%_ (let () (declare (not safe)) - (##car _%e4923449297%_))) - (_%tl4923649304%_ + (##car _%e4929749360%_))) + (_%tl4929949367%_ (let () (declare (not safe)) - (##cdr _%e4923449297%_)))) - (if (gx#stx-pair? _%tl4923649304%_) - (let ((_%e4923749307%_ - (gx#syntax-e _%tl4923649304%_))) - (let ((_%hd4923849311%_ + (##cdr _%e4929749360%_)))) + (if (gx#stx-pair? _%tl4929949367%_) + (let ((_%e4930049370%_ + (gx#syntax-e _%tl4929949367%_))) + (let ((_%hd4930149374%_ (let () (declare (not safe)) - (##car _%e4923749307%_))) - (_%tl4923949314%_ + (##car _%e4930049370%_))) + (_%tl4930249377%_ (let () (declare (not safe)) - (##cdr _%e4923749307%_)))) - (if (gx#stx-pair? _%tl4923949314%_) - (let ((_%e4924049317%_ - (gx#syntax-e _%tl4923949314%_))) - (let ((_%hd4924149321%_ + (##cdr _%e4930049370%_)))) + (if (gx#stx-pair? _%tl4930249377%_) + (let ((_%e4930349380%_ + (gx#syntax-e _%tl4930249377%_))) + (let ((_%hd4930449384%_ (let () (declare (not safe)) - (##car _%e4924049317%_))) - (_%tl4924249324%_ + (##car _%e4930349380%_))) + (_%tl4930549387%_ (let () (declare (not safe)) - (##cdr _%e4924049317%_)))) - (if (gx#stx-pair? _%tl4924249324%_) - (let ((_%e4924349327%_ + (##cdr _%e4930349380%_)))) + (if (gx#stx-pair? _%tl4930549387%_) + (let ((_%e4930649390%_ (gx#syntax-e - _%tl4924249324%_))) - (let ((_%hd4924449331%_ + _%tl4930549387%_))) + (let ((_%hd4930749394%_ (let () (declare (not safe)) - (##car _%e4924349327%_))) - (_%tl4924549334%_ + (##car _%e4930649390%_))) + (_%tl4930849397%_ (let () (declare (not safe)) - (##cdr _%e4924349327%_)))) + (##cdr _%e4930649390%_)))) (if (gx#stx-pair/null? - _%hd4924449331%_) - (let ((_g84071_ + _%hd4930749394%_) + (let ((_g84134_ (gx#syntax-split-splice - _%hd4924449331%_ + _%hd4930749394%_ '0))) (begin - (let ((_g84072_ + (let ((_g84135_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84071_) - (##vector-length _g84071_) + (if (##values? _g84134_) + (##values-length _g84134_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84072_ 2))) - (error "Context expects 2 values" _g84072_))) - (let ((_%target4924649337%_ - (let () (declare (not safe)) (##vector-ref _g84071_ 0))) - (_%tl4924849340%_ - (let () (declare (not safe)) (##vector-ref _g84071_ 1)))) - (if (gx#stx-null? _%tl4924849340%_) - (letrec ((_%loop4924949343%_ - (lambda (_%hd4924749347%_ _%body4925349350%_) - (if (gx#stx-pair? _%hd4924749347%_) - (let ((_%e4925049353%_ - (gx#syntax-e _%hd4924749347%_))) - (let ((_%lp-hd4925149357%_ + (if (not (let () (declare (not safe)) (##fx= _g84135_ 2))) + (error "Context expects 2 values" _g84135_))) + (let ((_%target4930949400%_ + (let () (declare (not safe)) (##values-ref _g84134_ 0))) + (_%tl4931149403%_ + (let () (declare (not safe)) (##values-ref _g84134_ 1)))) + (if (gx#stx-null? _%tl4931149403%_) + (letrec ((_%loop4931249406%_ + (lambda (_%hd4931049410%_ _%body4931649413%_) + (if (gx#stx-pair? _%hd4931049410%_) + (let ((_%e4931349416%_ + (gx#syntax-e _%hd4931049410%_))) + (let ((_%lp-hd4931449420%_ (let () (declare (not safe)) - (##car _%e4925049353%_))) - (_%lp-tl4925249360%_ + (##car _%e4931349416%_))) + (_%lp-tl4931549423%_ (let () (declare (not safe)) - (##cdr _%e4925049353%_)))) - (_%loop4924949343%_ - _%lp-tl4925249360%_ - (cons _%lp-hd4925149357%_ - _%body4925349350%_)))) - (let ((_%body4925449363%_ - (reverse _%body4925349350%_))) - (if (gx#stx-null? _%tl4924549334%_) - ((lambda (_%L49367%_ - _%L49369%_ - _%L49370%_ - _%L49371%_ - _%L49372%_ - _%L49373%_ - _%L49374%_) + (##cdr _%e4931349416%_)))) + (_%loop4931249406%_ + _%lp-tl4931549423%_ + (cons _%lp-hd4931449420%_ + _%body4931649413%_)))) + (let ((_%body4931749426%_ + (reverse _%body4931649413%_))) + (if (gx#stx-null? _%tl4930849397%_) + ((lambda (_%L49430%_ + _%L49432%_ + _%L49433%_ + _%L49434%_ + _%L49435%_ + _%L49436%_ + _%L49437%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L49372%_ + (cons (cons _%L49435%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L49373%_ '())) - (cons _%L49372%_ '()))) + (cons _%L49436%_ '())) + (cons _%L49435%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L49374%_ + (cons (cons (cons _%L49437%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -5048,1101 +5048,1101 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L49372%_ '())) + (cons _%L49435%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49371%_ '())) - (cons _%L49370%_ + (cons _%L49434%_ '())) + (cons _%L49433%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L49369%_ '())) + (cons _%L49432%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4940849411%_ + (foldr (lambda (_%g4947149474%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4940949414%_) - (cons _%g4940849411%_ _%g4940949414%_)) + _%g4947249477%_) + (cons _%g4947149474%_ _%g4947249477%_)) '() - _%L49367%_))) + _%L49430%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body4925449363%_ - _%hd4924149321%_ - _%hd4923849311%_ - _%hd4923549301%_ - _%hd4923249291%_ - _%hd4922949281%_ - _%hd4922649271%_) - (_%g4921649260%_ - _%g4921749264%_))))))) - (_%loop4924949343%_ _%target4924649337%_ '())) - (_%g4921649260%_ _%g4921749264%_))))) + _%body4931749426%_ + _%hd4930449384%_ + _%hd4930149374%_ + _%hd4929849364%_ + _%hd4929549354%_ + _%hd4929249344%_ + _%hd4928949334%_) + (_%g4927949323%_ + _%g4928049327%_))))))) + (_%loop4931249406%_ _%target4930949400%_ '())) + (_%g4927949323%_ _%g4928049327%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4921649260%_ - _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_)))) + (_%g4927949323%_ + _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4921649260%_ - _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_)))) - (_%g4921649260%_ _%g4921749264%_))))) - (_%g4921549417%_ + (_%g4927949323%_ + _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_)))) + (_%g4927949323%_ _%g4928049327%_))))) + (_%g4927849480%_ (list (gx#syntax-local-introduce '@@type) - (let ((__obj83910 _%klass49209%_)) + (let ((__obj83973 _%klass49272%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83910 + __obj83973 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83910 + __obj83973 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83910 + __obj83973 'type-descriptor))) - _%var49211%_ - _%klass49209%_ - _%checked?49214%_ + _%var49274%_ + _%klass49272%_ + _%checked?49277%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body49213%_))))) - (_%expand48303%_ - (lambda (_%var49101%_ - _%Type49103%_ - _%body49104%_ - _%checked?49105%_ - _%checked-mutators?49106%_ - _%maybe?49107%_) - (let* ((_%klass49109%_ - (gx#syntax-local-value _%Type49103%_ false)) - (_%expr-body49116%_ - (_%expand-body48301%_ - _%klass49109%_ - _%var49101%_ - _%Type49103%_ - _%body49104%_ - (let ((_%$e49112%_ _%checked?49105%_)) - (if _%$e49112%_ - _%$e49112%_ - _%checked-mutators?49106%_))))) - (if _%checked?49105%_ - (let* ((_%g4912149140%_ - (lambda (_%g4912249136%_) + _%body49276%_))))) + (_%expand48366%_ + (lambda (_%var49164%_ + _%Type49166%_ + _%body49167%_ + _%checked?49168%_ + _%checked-mutators?49169%_ + _%maybe?49170%_) + (let* ((_%klass49172%_ + (gx#syntax-local-value _%Type49166%_ false)) + (_%expr-body49179%_ + (_%expand-body48364%_ + _%klass49172%_ + _%var49164%_ + _%Type49166%_ + _%body49167%_ + (let ((_%$e49175%_ _%checked?49168%_)) + (if _%$e49175%_ + _%$e49175%_ + _%checked-mutators?49169%_))))) + (if _%checked?49168%_ + (let* ((_%g4918449203%_ + (lambda (_%g4918549199%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4912249136%_))) - (_%g4912049202%_ - (lambda (_%g4912249144%_) - (if (gx#stx-pair? _%g4912249144%_) - (let ((_%e4912649147%_ - (gx#syntax-e _%g4912249144%_))) - (let ((_%hd4912749151%_ + _%g4918549199%_))) + (_%g4918349265%_ + (lambda (_%g4918549207%_) + (if (gx#stx-pair? _%g4918549207%_) + (let ((_%e4918949210%_ + (gx#syntax-e _%g4918549207%_))) + (let ((_%hd4919049214%_ (let () (declare (not safe)) - (##car _%e4912649147%_))) - (_%tl4912849154%_ + (##car _%e4918949210%_))) + (_%tl4919149217%_ (let () (declare (not safe)) - (##cdr _%e4912649147%_)))) - (if (gx#stx-pair? _%tl4912849154%_) - (let ((_%e4912949157%_ + (##cdr _%e4918949210%_)))) + (if (gx#stx-pair? _%tl4919149217%_) + (let ((_%e4919249220%_ (gx#syntax-e - _%tl4912849154%_))) - (let ((_%hd4913049161%_ + _%tl4919149217%_))) + (let ((_%hd4919349224%_ (let () (declare (not safe)) - (##car _%e4912949157%_))) - (_%tl4913149164%_ + (##car _%e4919249220%_))) + (_%tl4919449227%_ (let () (declare (not safe)) - (##cdr _%e4912949157%_)))) + (##cdr _%e4919249220%_)))) (if (gx#stx-pair? - _%tl4913149164%_) - (let ((_%e4913249167%_ + _%tl4919449227%_) + (let ((_%e4919549230%_ (gx#syntax-e - _%tl4913149164%_))) - (let ((_%hd4913349171%_ + _%tl4919449227%_))) + (let ((_%hd4919649234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e4913249167%_))) - (_%tl4913449174%_ + (let () (declare (not safe)) (##car _%e4919549230%_))) + (_%tl4919749237%_ (let () (declare (not safe)) - (##cdr _%e4913249167%_)))) - (if (gx#stx-null? _%tl4913449174%_) - ((lambda (_%L49177%_ _%L49179%_ _%L49180%_) + (##cdr _%e4919549230%_)))) + (if (gx#stx-null? _%tl4919749237%_) + ((lambda (_%L49240%_ _%L49242%_ _%L49243%_) (cons (gx#datum->syntax '#f 'with-contract) - (cons (cons _%L49179%_ + (cons (cons _%L49242%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L49180%_ '()))) - (cons _%L49177%_ '())))) - _%hd4913349171%_ - _%hd4913049161%_ - _%hd4912749151%_) - (_%g4912149140%_ _%g4912249144%_)))) - (_%g4912149140%_ _%g4912249144%_)))) + (cons _%L49243%_ '()))) + (cons _%L49240%_ '())))) + _%hd4919649234%_ + _%hd4919349224%_ + _%hd4919049214%_) + (_%g4918449203%_ _%g4918549207%_)))) + (_%g4918449203%_ _%g4918549207%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4912149140%_ - _%g4912249144%_)))) - (_%g4912149140%_ _%g4912249144%_))))) - (_%g4912049202%_ - (list (let ((_%instance?49206%_ - (let ((__obj83911 _%klass49109%_)) + (_%g4918449203%_ + _%g4918549207%_)))) + (_%g4918449203%_ _%g4918549207%_))))) + (_%g4918349265%_ + (list (let ((_%instance?49269%_ + (let ((__obj83974 _%klass49172%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83911 + __obj83974 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83911 + __obj83974 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83911 + __obj83974 'predicate))))) - (if _%maybe?49107%_ + (if _%maybe?49170%_ (cons '? (cons (cons 'or (cons 'not ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%instance?49206%_ '()))) + (cons _%instance?49269%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - _%instance?49206%_)) - _%var49101%_ - _%expr-body49116%_))) - _%expr-body49116%_))))) - (let* ((_%__stx7897478975%_ _%stx48298%_) - (_%g4830948452%_ + _%instance?49269%_)) + _%var49164%_ + _%expr-body49179%_))) + _%expr-body49179%_))))) + (let* ((_%__stx7903779038%_ _%stx48361%_) + (_%g4837248515%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7897478975%_)))) - (let ((_%__kont7897778978%_ - (lambda (_%L49029%_ _%L49031%_ _%L49032%_ _%L49033%_) - (let* ((_%g4905849066%_ - (lambda (_%g4905949062%_) + _%__stx7903779038%_)))) + (let ((_%__kont7904079041%_ + (lambda (_%L49092%_ _%L49094%_ _%L49095%_ _%L49096%_) + (let* ((_%g4912149129%_ + (lambda (_%g4912249125%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4905949062%_))) - (_%g4905749093%_ - (lambda (_%g4905949070%_) - ((lambda (_%L49073%_) + _%g4912249125%_))) + (_%g4912049156%_ + (lambda (_%g4912249133%_) + ((lambda (_%L49136%_) (cons (gx#datum->syntax '#f 'with-class) - (cons (cons _%L49033%_ - (cons _%L49032%_ - (cons _%L49073%_ + (cons (cons _%L49096%_ + (cons _%L49095%_ + (cons _%L49136%_ '()))) - (foldr (lambda (_%g4908449087%_ - _%g4908549090%_) - (cons _%g4908449087%_ - _%g4908549090%_)) + (foldr (lambda (_%g4914749150%_ + _%g4914849153%_) + (cons _%g4914749150%_ + _%g4914849153%_)) '() - _%L49029%_)))) - _%g4905949070%_)))) - (_%g4905749093%_ - (let ((__obj83912 (gx#syntax-local-value _%L49031%_))) + _%L49092%_)))) + _%g4912249133%_)))) + (_%g4912049156%_ + (let ((__obj83975 (gx#syntax-local-value _%L49094%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83912 + __obj83975 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83912 + __obj83975 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83912 + __obj83975 'identifier))))))) - (_%__kont7898178982%_ - (lambda (_%L48907%_ _%L48909%_ _%L48910%_) - (_%expand48303%_ - _%L48910%_ - _%L48909%_ - (foldr (lambda (_%g4893348936%_ _%g4893448939%_) - (cons _%g4893348936%_ _%g4893448939%_)) + (_%__kont7904479045%_ + (lambda (_%L48970%_ _%L48972%_ _%L48973%_) + (_%expand48366%_ + _%L48973%_ + _%L48972%_ + (foldr (lambda (_%g4899648999%_ _%g4899749002%_) + (cons _%g4899648999%_ _%g4899749002%_)) '() - _%L48907%_) + _%L48970%_) '#t '#t '#f))) - (_%__kont7898578986%_ - (lambda (_%L48785%_ _%L48787%_ _%L48788%_) - (_%expand48303%_ - _%L48788%_ - _%L48787%_ - (foldr (lambda (_%g4881148814%_ _%g4881248817%_) - (cons _%g4881148814%_ _%g4881248817%_)) + (_%__kont7904879049%_ + (lambda (_%L48848%_ _%L48850%_ _%L48851%_) + (_%expand48366%_ + _%L48851%_ + _%L48850%_ + (foldr (lambda (_%g4887448877%_ _%g4887548880%_) + (cons _%g4887448877%_ _%g4887548880%_)) '() - _%L48785%_) + _%L48848%_) '#t '#t '#t))) - (_%__kont7898978990%_ - (lambda (_%L48663%_ _%L48665%_ _%L48666%_) - (_%expand48303%_ - _%L48666%_ - _%L48665%_ - (foldr (lambda (_%g4868948692%_ _%g4869048695%_) - (cons _%g4868948692%_ _%g4869048695%_)) + (_%__kont7905279053%_ + (lambda (_%L48726%_ _%L48728%_ _%L48729%_) + (_%expand48366%_ + _%L48729%_ + _%L48728%_ + (foldr (lambda (_%g4875248755%_ _%g4875348758%_) + (cons _%g4875248755%_ _%g4875348758%_)) '() - _%L48663%_) + _%L48726%_) '#f '#f '#f))) - (_%__kont7899378994%_ - (lambda (_%L48539%_ _%L48541%_ _%L48542%_) - (_%expand48303%_ - _%L48542%_ - _%L48541%_ - (foldr (lambda (_%g4856748570%_ _%g4856848573%_) - (cons _%g4856748570%_ _%g4856848573%_)) + (_%__kont7905679057%_ + (lambda (_%L48602%_ _%L48604%_ _%L48605%_) + (_%expand48366%_ + _%L48605%_ + _%L48604%_ + (foldr (lambda (_%g4863048633%_ _%g4863148636%_) + (cons _%g4863048633%_ _%g4863148636%_)) '() - _%L48539%_) + _%L48602%_) '#f '#t '#f)))) - (let* ((_%__match7921379214%_ - (lambda (_%e4842348459%_ - _%hd4842448463%_ - _%tl4842548466%_ - _%e4842648469%_ - _%hd4842748473%_ - _%tl4842848476%_ - _%e4842948479%_ - _%hd4843048483%_ - _%tl4843148486%_ - _%e4843248489%_ - _%hd4843348493%_ - _%tl4843448496%_ - _%e4843548499%_ - _%hd4843648503%_ - _%tl4843748506%_ - _%__splice7899578996%_ - _%target4843848509%_ - _%tl4844048512%_) - (letrec ((_%loop4844148515%_ - (lambda (_%hd4843948519%_ _%body4844548522%_) - (if (gx#stx-pair? _%hd4843948519%_) - (let ((_%e4844248525%_ - (gx#syntax-e _%hd4843948519%_))) - (let ((_%lp-tl4844448532%_ + (let* ((_%__match7927679277%_ + (lambda (_%e4848648522%_ + _%hd4848748526%_ + _%tl4848848529%_ + _%e4848948532%_ + _%hd4849048536%_ + _%tl4849148539%_ + _%e4849248542%_ + _%hd4849348546%_ + _%tl4849448549%_ + _%e4849548552%_ + _%hd4849648556%_ + _%tl4849748559%_ + _%e4849848562%_ + _%hd4849948566%_ + _%tl4850048569%_ + _%__splice7905879059%_ + _%target4850148572%_ + _%tl4850348575%_) + (letrec ((_%loop4850448578%_ + (lambda (_%hd4850248582%_ _%body4850848585%_) + (if (gx#stx-pair? _%hd4850248582%_) + (let ((_%e4850548588%_ + (gx#syntax-e _%hd4850248582%_))) + (let ((_%lp-tl4850748595%_ (let () (declare (not safe)) - (##cdr _%e4844248525%_))) - (_%lp-hd4844348529%_ + (##cdr _%e4850548588%_))) + (_%lp-hd4850648592%_ (let () (declare (not safe)) - (##car _%e4844248525%_)))) - (_%loop4844148515%_ - _%lp-tl4844448532%_ - (cons _%lp-hd4844348529%_ - _%body4844548522%_)))) - (let ((_%body4844648535%_ - (reverse _%body4844548522%_))) - (let ((_%L48539%_ _%body4844648535%_) - (_%L48541%_ _%hd4843648503%_) - (_%L48542%_ _%hd4843048483%_)) + (##car _%e4850548588%_)))) + (_%loop4850448578%_ + _%lp-tl4850748595%_ + (cons _%lp-hd4850648592%_ + _%body4850848585%_)))) + (let ((_%body4850948598%_ + (reverse _%body4850848585%_))) + (let ((_%L48602%_ _%body4850948598%_) + (_%L48604%_ _%hd4849948566%_) + (_%L48605%_ _%hd4849348546%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48541%_)) - (_%__kont7899378994%_ - _%L48539%_ - _%L48541%_ - _%L48542%_) + _%L48604%_)) + (_%__kont7905679057%_ + _%L48602%_ + _%L48604%_ + _%L48605%_) (let () (declare (not safe)) - (_%g4830948452%_))))))))) - (_%loop4844148515%_ _%target4843848509%_ '())))) - (_%__match7916979170%_ - (lambda (_%e4839648583%_ - _%hd4839748587%_ - _%tl4839848590%_ - _%e4839948593%_ - _%hd4840048597%_ - _%tl4840148600%_ - _%e4840248603%_ - _%hd4840348607%_ - _%tl4840448610%_ - _%e4840548613%_ - _%hd4840648617%_ - _%tl4840748620%_ - _%e4840848623%_ - _%hd4840948627%_ - _%tl4841048630%_ - _%__splice7899178992%_ - _%target4841148633%_ - _%tl4841348636%_) - (letrec ((_%loop4841448639%_ - (lambda (_%hd4841248643%_ _%body4841848646%_) - (if (gx#stx-pair? _%hd4841248643%_) - (let ((_%e4841548649%_ - (gx#syntax-e _%hd4841248643%_))) - (let ((_%lp-tl4841748656%_ + (_%g4837248515%_))))))))) + (_%loop4850448578%_ _%target4850148572%_ '())))) + (_%__match7923279233%_ + (lambda (_%e4845948646%_ + _%hd4846048650%_ + _%tl4846148653%_ + _%e4846248656%_ + _%hd4846348660%_ + _%tl4846448663%_ + _%e4846548666%_ + _%hd4846648670%_ + _%tl4846748673%_ + _%e4846848676%_ + _%hd4846948680%_ + _%tl4847048683%_ + _%e4847148686%_ + _%hd4847248690%_ + _%tl4847348693%_ + _%__splice7905479055%_ + _%target4847448696%_ + _%tl4847648699%_) + (letrec ((_%loop4847748702%_ + (lambda (_%hd4847548706%_ _%body4848148709%_) + (if (gx#stx-pair? _%hd4847548706%_) + (let ((_%e4847848712%_ + (gx#syntax-e _%hd4847548706%_))) + (let ((_%lp-tl4848048719%_ (let () (declare (not safe)) - (##cdr _%e4841548649%_))) - (_%lp-hd4841648653%_ + (##cdr _%e4847848712%_))) + (_%lp-hd4847948716%_ (let () (declare (not safe)) - (##car _%e4841548649%_)))) - (_%loop4841448639%_ - _%lp-tl4841748656%_ - (cons _%lp-hd4841648653%_ - _%body4841848646%_)))) - (let ((_%body4841948659%_ - (reverse _%body4841848646%_))) - (let ((_%L48663%_ _%body4841948659%_) - (_%L48665%_ _%hd4840948627%_) - (_%L48666%_ _%hd4840348607%_)) + (##car _%e4847848712%_)))) + (_%loop4847748702%_ + _%lp-tl4848048719%_ + (cons _%lp-hd4847948716%_ + _%body4848148709%_)))) + (let ((_%body4848248722%_ + (reverse _%body4848148709%_))) + (let ((_%L48726%_ _%body4848248722%_) + (_%L48728%_ _%hd4847248690%_) + (_%L48729%_ _%hd4846648670%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48665%_)) - (_%__kont7898978990%_ - _%L48663%_ - _%L48665%_ - _%L48666%_) + _%L48728%_)) + (_%__kont7905279053%_ + _%L48726%_ + _%L48728%_ + _%L48729%_) (let () (declare (not safe)) - (_%g4830948452%_))))))))) - (_%loop4841448639%_ _%target4841148633%_ '())))) - (_%__match7912579126%_ - (lambda (_%e4836948705%_ - _%hd4837048709%_ - _%tl4837148712%_ - _%e4837248715%_ - _%hd4837348719%_ - _%tl4837448722%_ - _%e4837548725%_ - _%hd4837648729%_ - _%tl4837748732%_ - _%e4837848735%_ - _%hd4837948739%_ - _%tl4838048742%_ - _%e4838148745%_ - _%hd4838248749%_ - _%tl4838348752%_ - _%__splice7898778988%_ - _%target4838448755%_ - _%tl4838648758%_) - (letrec ((_%loop4838748761%_ - (lambda (_%hd4838548765%_ _%body4839148768%_) - (if (gx#stx-pair? _%hd4838548765%_) - (let ((_%e4838848771%_ - (gx#syntax-e _%hd4838548765%_))) - (let ((_%lp-tl4839048778%_ + (_%g4837248515%_))))))))) + (_%loop4847748702%_ _%target4847448696%_ '())))) + (_%__match7918879189%_ + (lambda (_%e4843248768%_ + _%hd4843348772%_ + _%tl4843448775%_ + _%e4843548778%_ + _%hd4843648782%_ + _%tl4843748785%_ + _%e4843848788%_ + _%hd4843948792%_ + _%tl4844048795%_ + _%e4844148798%_ + _%hd4844248802%_ + _%tl4844348805%_ + _%e4844448808%_ + _%hd4844548812%_ + _%tl4844648815%_ + _%__splice7905079051%_ + _%target4844748818%_ + _%tl4844948821%_) + (letrec ((_%loop4845048824%_ + (lambda (_%hd4844848828%_ _%body4845448831%_) + (if (gx#stx-pair? _%hd4844848828%_) + (let ((_%e4845148834%_ + (gx#syntax-e _%hd4844848828%_))) + (let ((_%lp-tl4845348841%_ (let () (declare (not safe)) - (##cdr _%e4838848771%_))) - (_%lp-hd4838948775%_ + (##cdr _%e4845148834%_))) + (_%lp-hd4845248838%_ (let () (declare (not safe)) - (##car _%e4838848771%_)))) - (_%loop4838748761%_ - _%lp-tl4839048778%_ - (cons _%lp-hd4838948775%_ - _%body4839148768%_)))) - (let ((_%body4839248781%_ - (reverse _%body4839148768%_))) - (let ((_%L48785%_ _%body4839248781%_) - (_%L48787%_ _%hd4838248749%_) - (_%L48788%_ _%hd4837648729%_)) + (##car _%e4845148834%_)))) + (_%loop4845048824%_ + _%lp-tl4845348841%_ + (cons _%lp-hd4845248838%_ + _%body4845448831%_)))) + (let ((_%body4845548844%_ + (reverse _%body4845448831%_))) + (let ((_%L48848%_ _%body4845548844%_) + (_%L48850%_ _%hd4844548812%_) + (_%L48851%_ _%hd4843948792%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48787%_)) - (_%__kont7898578986%_ - _%L48785%_ - _%L48787%_ - _%L48788%_) + _%L48850%_)) + (_%__kont7904879049%_ + _%L48848%_ + _%L48850%_ + _%L48851%_) (let () (declare (not safe)) - (_%g4830948452%_))))))))) - (_%loop4838748761%_ _%target4838448755%_ '())))) - (_%__match7908179082%_ - (lambda (_%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_ - _%e4835448867%_ - _%hd4835548871%_ - _%tl4835648874%_ - _%__splice7898378984%_ - _%target4835748877%_ - _%tl4835948880%_) - (letrec ((_%loop4836048883%_ - (lambda (_%hd4835848887%_ _%body4836448890%_) - (if (gx#stx-pair? _%hd4835848887%_) - (let ((_%e4836148893%_ - (gx#syntax-e _%hd4835848887%_))) - (let ((_%lp-tl4836348900%_ + (_%g4837248515%_))))))))) + (_%loop4845048824%_ _%target4844748818%_ '())))) + (_%__match7914479145%_ + (lambda (_%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_ + _%e4841748930%_ + _%hd4841848934%_ + _%tl4841948937%_ + _%__splice7904679047%_ + _%target4842048940%_ + _%tl4842248943%_) + (letrec ((_%loop4842348946%_ + (lambda (_%hd4842148950%_ _%body4842748953%_) + (if (gx#stx-pair? _%hd4842148950%_) + (let ((_%e4842448956%_ + (gx#syntax-e _%hd4842148950%_))) + (let ((_%lp-tl4842648963%_ (let () (declare (not safe)) - (##cdr _%e4836148893%_))) - (_%lp-hd4836248897%_ + (##cdr _%e4842448956%_))) + (_%lp-hd4842548960%_ (let () (declare (not safe)) - (##car _%e4836148893%_)))) - (_%loop4836048883%_ - _%lp-tl4836348900%_ - (cons _%lp-hd4836248897%_ - _%body4836448890%_)))) - (let ((_%body4836548903%_ - (reverse _%body4836448890%_))) - (let ((_%L48907%_ _%body4836548903%_) - (_%L48909%_ _%hd4835548871%_) - (_%L48910%_ _%hd4834948851%_)) + (##car _%e4842448956%_)))) + (_%loop4842348946%_ + _%lp-tl4842648963%_ + (cons _%lp-hd4842548960%_ + _%body4842748953%_)))) + (let ((_%body4842848966%_ + (reverse _%body4842748953%_))) + (let ((_%L48970%_ _%body4842848966%_) + (_%L48972%_ _%hd4841848934%_) + (_%L48973%_ _%hd4841248914%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L48909%_)) - (_%__kont7898178982%_ - _%L48907%_ - _%L48909%_ - _%L48910%_) + _%L48972%_)) + (_%__kont7904479045%_ + _%L48970%_ + _%L48972%_ + _%L48973%_) (let () (declare (not safe)) - (_%g4830948452%_))))))))) - (_%loop4836048883%_ _%target4835748877%_ '())))) - (_%__match7906179062%_ - (lambda (_%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_) - (if (gx#identifier? _%hd4835248861%_) + (_%g4837248515%_))))))))) + (_%loop4842348946%_ _%target4842048940%_ '())))) + (_%__match7912479125%_ + (lambda (_%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_) + (if (gx#identifier? _%hd4841548924%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84073_| - _%hd4835248861%_) - (if (gx#stx-pair? _%tl4835348864%_) - (let ((_%e4835448867%_ - (gx#syntax-e _%tl4835348864%_))) - (let ((_%tl4835648874%_ + |gerbil/core/contract~Using[1]#_g84136_| + _%hd4841548924%_) + (if (gx#stx-pair? _%tl4841648927%_) + (let ((_%e4841748930%_ + (gx#syntax-e _%tl4841648927%_))) + (let ((_%tl4841948937%_ (let () (declare (not safe)) - (##cdr _%e4835448867%_))) - (_%hd4835548871%_ + (##cdr _%e4841748930%_))) + (_%hd4841848934%_ (let () (declare (not safe)) - (##car _%e4835448867%_)))) - (if (gx#stx-null? _%tl4835648874%_) + (##car _%e4841748930%_)))) + (if (gx#stx-null? _%tl4841948937%_) (if (gx#stx-pair/null? - _%tl4834748844%_) - (let ((_%__splice7898378984%_ + _%tl4841048907%_) + (let ((_%__splice7904679047%_ (gx#syntax-split-splice - _%tl4834748844%_ + _%tl4841048907%_ '0))) - (let ((_%tl4835948880%_ + (let ((_%tl4842248943%_ (let () (declare (not safe)) (##vector-ref - _%__splice7898378984%_ + _%__splice7904679047%_ '1))) - (_%target4835748877%_ + (_%target4842048940%_ (let () (declare (not safe)) (##vector-ref - _%__splice7898378984%_ + _%__splice7904679047%_ '0)))) (if (gx#stx-null? - _%tl4835948880%_) - (_%__match7908179082%_ - _%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_ - _%e4835448867%_ - _%hd4835548871%_ - _%tl4835648874%_ - _%__splice7898378984%_ - _%target4835748877%_ - _%tl4835948880%_) + _%tl4842248943%_) + (_%__match7914479145%_ + _%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_ + _%e4841748930%_ + _%hd4841848934%_ + _%tl4841948937%_ + _%__splice7904679047%_ + _%target4842048940%_ + _%tl4842248943%_) (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84074_| - _%hd4835248861%_) - (if (gx#stx-pair? _%tl4835348864%_) - (let ((_%e4838148745%_ - (gx#syntax-e _%tl4835348864%_))) - (let ((_%tl4838348752%_ + |gerbil/core/contract~Using[1]#_g84137_| + _%hd4841548924%_) + (if (gx#stx-pair? _%tl4841648927%_) + (let ((_%e4844448808%_ + (gx#syntax-e _%tl4841648927%_))) + (let ((_%tl4844648815%_ (let () (declare (not safe)) - (##cdr _%e4838148745%_))) - (_%hd4838248749%_ + (##cdr _%e4844448808%_))) + (_%hd4844548812%_ (let () (declare (not safe)) - (##car _%e4838148745%_)))) - (if (gx#stx-null? _%tl4838348752%_) + (##car _%e4844448808%_)))) + (if (gx#stx-null? _%tl4844648815%_) (if (gx#stx-pair/null? - _%tl4834748844%_) - (let ((_%__splice7898778988%_ + _%tl4841048907%_) + (let ((_%__splice7905079051%_ (gx#syntax-split-splice - _%tl4834748844%_ + _%tl4841048907%_ '0))) - (let ((_%tl4838648758%_ + (let ((_%tl4844948821%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7898778988%_ '1))) - (_%target4838448755%_ + (##vector-ref _%__splice7905079051%_ '1))) + (_%target4844748818%_ (let () (declare (not safe)) - (##vector-ref _%__splice7898778988%_ '0)))) - (if (gx#stx-null? _%tl4838648758%_) - (_%__match7912579126%_ - _%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_ - _%e4838148745%_ - _%hd4838248749%_ - _%tl4838348752%_ - _%__splice7898778988%_ - _%target4838448755%_ - _%tl4838648758%_) - (let () (declare (not safe)) (_%g4830948452%_))))) + (##vector-ref _%__splice7905079051%_ '0)))) + (if (gx#stx-null? _%tl4844948821%_) + (_%__match7918879189%_ + _%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_ + _%e4844448808%_ + _%hd4844548812%_ + _%tl4844648815%_ + _%__splice7905079051%_ + _%target4844748818%_ + _%tl4844948821%_) + (let () (declare (not safe)) (_%g4837248515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84075_| - _%hd4835248861%_) - (if (gx#stx-pair? _%tl4835348864%_) - (let ((_%e4840848623%_ + |gerbil/core/contract~Using[1]#_g84138_| + _%hd4841548924%_) + (if (gx#stx-pair? _%tl4841648927%_) + (let ((_%e4847148686%_ (gx#syntax-e - _%tl4835348864%_))) - (let ((_%tl4841048630%_ + _%tl4841648927%_))) + (let ((_%tl4847348693%_ (let () (declare (not safe)) - (##cdr _%e4840848623%_))) - (_%hd4840948627%_ + (##cdr _%e4847148686%_))) + (_%hd4847248690%_ (let () (declare (not safe)) - (##car _%e4840848623%_)))) + (##car _%e4847148686%_)))) (if (gx#stx-null? - _%tl4841048630%_) + _%tl4847348693%_) (if (gx#stx-pair/null? - _%tl4834748844%_) - (let ((_%__splice7899178992%_ + _%tl4841048907%_) + (let ((_%__splice7905479055%_ (gx#syntax-split-splice - _%tl4834748844%_ + _%tl4841048907%_ '0))) - (let ((_%tl4841348636%_ + (let ((_%tl4847648699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7899178992%_ '1))) - (_%target4841148633%_ + (##vector-ref _%__splice7905479055%_ '1))) + (_%target4847448696%_ (let () (declare (not safe)) - (##vector-ref _%__splice7899178992%_ '0)))) - (if (gx#stx-null? _%tl4841348636%_) - (_%__match7916979170%_ - _%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_ - _%e4840848623%_ - _%hd4840948627%_ - _%tl4841048630%_ - _%__splice7899178992%_ - _%target4841148633%_ - _%tl4841348636%_) - (let () (declare (not safe)) (_%g4830948452%_))))) - (let () (declare (not safe)) (_%g4830948452%_))) + (##vector-ref _%__splice7905479055%_ '0)))) + (if (gx#stx-null? _%tl4847648699%_) + (_%__match7923279233%_ + _%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_ + _%e4847148686%_ + _%hd4847248690%_ + _%tl4847348693%_ + _%__splice7905479055%_ + _%target4847448696%_ + _%tl4847648699%_) + (let () (declare (not safe)) (_%g4837248515%_))))) + (let () (declare (not safe)) (_%g4837248515%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84076_| - _%hd4835248861%_) - (if (gx#stx-pair? _%tl4835348864%_) - (let ((_%e4843548499%_ + |gerbil/core/contract~Using[1]#_g84139_| + _%hd4841548924%_) + (if (gx#stx-pair? _%tl4841648927%_) + (let ((_%e4849848562%_ (gx#syntax-e - _%tl4835348864%_))) - (let ((_%tl4843748506%_ + _%tl4841648927%_))) + (let ((_%tl4850048569%_ (let () (declare (not safe)) - (##cdr _%e4843548499%_))) - (_%hd4843648503%_ + (##cdr _%e4849848562%_))) + (_%hd4849948566%_ (let () (declare (not safe)) - (##car _%e4843548499%_)))) + (##car _%e4849848562%_)))) (if (gx#stx-null? - _%tl4843748506%_) + _%tl4850048569%_) (if (gx#stx-pair/null? - _%tl4834748844%_) - (let ((_%__splice7899578996%_ + _%tl4841048907%_) + (let ((_%__splice7905879059%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4834748844%_ '0))) - (let ((_%tl4844048512%_ + (gx#syntax-split-splice _%tl4841048907%_ '0))) + (let ((_%tl4850348575%_ (let () (declare (not safe)) - (##vector-ref _%__splice7899578996%_ '1))) - (_%target4843848509%_ + (##vector-ref _%__splice7905879059%_ '1))) + (_%target4850148572%_ (let () (declare (not safe)) - (##vector-ref _%__splice7899578996%_ '0)))) - (if (gx#stx-null? _%tl4844048512%_) - (_%__match7921379214%_ - _%e4834248827%_ - _%hd4834348831%_ - _%tl4834448834%_ - _%e4834548837%_ - _%hd4834648841%_ - _%tl4834748844%_ - _%e4834848847%_ - _%hd4834948851%_ - _%tl4835048854%_ - _%e4835148857%_ - _%hd4835248861%_ - _%tl4835348864%_ - _%e4843548499%_ - _%hd4843648503%_ - _%tl4843748506%_ - _%__splice7899578996%_ - _%target4843848509%_ - _%tl4844048512%_) - (let () (declare (not safe)) (_%g4830948452%_))))) - (let () (declare (not safe)) (_%g4830948452%_))) - (let () (declare (not safe)) (_%g4830948452%_))))) + (##vector-ref _%__splice7905879059%_ '0)))) + (if (gx#stx-null? _%tl4850348575%_) + (_%__match7927679277%_ + _%e4840548890%_ + _%hd4840648894%_ + _%tl4840748897%_ + _%e4840848900%_ + _%hd4840948904%_ + _%tl4841048907%_ + _%e4841148910%_ + _%hd4841248914%_ + _%tl4841348917%_ + _%e4841448920%_ + _%hd4841548924%_ + _%tl4841648927%_ + _%e4849848562%_ + _%hd4849948566%_ + _%tl4850048569%_ + _%__splice7905879059%_ + _%target4850148572%_ + _%tl4850348575%_) + (let () (declare (not safe)) (_%g4837248515%_))))) + (let () (declare (not safe)) (_%g4837248515%_))) + (let () (declare (not safe)) (_%g4837248515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4830948452%_))) + (_%g4837248515%_))) (let () (declare (not safe)) - (_%g4830948452%_)))))) - (let () (declare (not safe)) (_%g4830948452%_))))) - (_%__match7903779038%_ - (lambda (_%e4831548949%_ - _%hd4831648953%_ - _%tl4831748956%_ - _%e4831848959%_ - _%hd4831948963%_ - _%tl4832048966%_ - _%e4832148969%_ - _%hd4832248973%_ - _%tl4832348976%_ - _%e4832448979%_ - _%hd4832548983%_ - _%tl4832648986%_ - _%e4832748989%_ - _%hd4832848993%_ - _%tl4832948996%_ - _%__splice7897978980%_ - _%target4833048999%_ - _%tl4833249002%_) - (letrec ((_%loop4833349005%_ - (lambda (_%hd4833149009%_ _%body4833749012%_) - (if (gx#stx-pair? _%hd4833149009%_) - (let ((_%e4833449015%_ - (gx#syntax-e _%hd4833149009%_))) - (let ((_%lp-tl4833649022%_ + (_%g4837248515%_)))))) + (let () (declare (not safe)) (_%g4837248515%_))))) + (_%__match7910079101%_ + (lambda (_%e4837849012%_ + _%hd4837949016%_ + _%tl4838049019%_ + _%e4838149022%_ + _%hd4838249026%_ + _%tl4838349029%_ + _%e4838449032%_ + _%hd4838549036%_ + _%tl4838649039%_ + _%e4838749042%_ + _%hd4838849046%_ + _%tl4838949049%_ + _%e4839049052%_ + _%hd4839149056%_ + _%tl4839249059%_ + _%__splice7904279043%_ + _%target4839349062%_ + _%tl4839549065%_) + (letrec ((_%loop4839649068%_ + (lambda (_%hd4839449072%_ _%body4840049075%_) + (if (gx#stx-pair? _%hd4839449072%_) + (let ((_%e4839749078%_ + (gx#syntax-e _%hd4839449072%_))) + (let ((_%lp-tl4839949085%_ (let () (declare (not safe)) - (##cdr _%e4833449015%_))) - (_%lp-hd4833549019%_ + (##cdr _%e4839749078%_))) + (_%lp-hd4839849082%_ (let () (declare (not safe)) - (##car _%e4833449015%_)))) - (_%loop4833349005%_ - _%lp-tl4833649022%_ - (cons _%lp-hd4833549019%_ - _%body4833749012%_)))) - (let ((_%body4833849025%_ - (reverse _%body4833749012%_))) - (let ((_%L49029%_ _%body4833849025%_) - (_%L49031%_ _%hd4832848993%_) - (_%L49032%_ _%hd4832548983%_) - (_%L49033%_ _%hd4832248973%_)) - (if (let ((__tmp84077 + (##car _%e4839749078%_)))) + (_%loop4839649068%_ + _%lp-tl4839949085%_ + (cons _%lp-hd4839849082%_ + _%body4840049075%_)))) + (let ((_%body4840149088%_ + (reverse _%body4840049075%_))) + (let ((_%L49092%_ _%body4840149088%_) + (_%L49094%_ _%hd4839149056%_) + (_%L49095%_ _%hd4838849046%_) + (_%L49096%_ _%hd4838549036%_)) + (if (let ((__tmp84140 (gx#syntax-local-value - _%L49031%_ + _%L49094%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84077)) - (_%__kont7897778978%_ - _%L49029%_ - _%L49031%_ - _%L49032%_ - _%L49033%_) - (_%__match7906179062%_ - _%e4831548949%_ - _%hd4831648953%_ - _%tl4831748956%_ - _%e4831848959%_ - _%hd4831948963%_ - _%tl4832048966%_ - _%e4832148969%_ - _%hd4832248973%_ - _%tl4832348976%_ - _%e4832448979%_ - _%hd4832548983%_ - _%tl4832648986%_)))))))) - (_%loop4833349005%_ _%target4833048999%_ '()))))) - (if (gx#stx-pair? _%__stx7897478975%_) - (let ((_%e4831548949%_ (gx#syntax-e _%__stx7897478975%_))) - (let ((_%tl4831748956%_ + __tmp84140)) + (_%__kont7904079041%_ + _%L49092%_ + _%L49094%_ + _%L49095%_ + _%L49096%_) + (_%__match7912479125%_ + _%e4837849012%_ + _%hd4837949016%_ + _%tl4838049019%_ + _%e4838149022%_ + _%hd4838249026%_ + _%tl4838349029%_ + _%e4838449032%_ + _%hd4838549036%_ + _%tl4838649039%_ + _%e4838749042%_ + _%hd4838849046%_ + _%tl4838949049%_)))))))) + (_%loop4839649068%_ _%target4839349062%_ '()))))) + (if (gx#stx-pair? _%__stx7903779038%_) + (let ((_%e4837849012%_ (gx#syntax-e _%__stx7903779038%_))) + (let ((_%tl4838049019%_ (let () (declare (not safe)) - (##cdr _%e4831548949%_))) - (_%hd4831648953%_ + (##cdr _%e4837849012%_))) + (_%hd4837949016%_ (let () (declare (not safe)) - (##car _%e4831548949%_)))) - (if (gx#stx-pair? _%tl4831748956%_) - (let ((_%e4831848959%_ - (gx#syntax-e _%tl4831748956%_))) - (let ((_%tl4832048966%_ + (##car _%e4837849012%_)))) + (if (gx#stx-pair? _%tl4838049019%_) + (let ((_%e4838149022%_ + (gx#syntax-e _%tl4838049019%_))) + (let ((_%tl4838349029%_ (let () (declare (not safe)) - (##cdr _%e4831848959%_))) - (_%hd4831948963%_ + (##cdr _%e4838149022%_))) + (_%hd4838249026%_ (let () (declare (not safe)) - (##car _%e4831848959%_)))) - (if (gx#stx-pair? _%hd4831948963%_) - (let ((_%e4832148969%_ - (gx#syntax-e _%hd4831948963%_))) - (let ((_%tl4832348976%_ + (##car _%e4838149022%_)))) + (if (gx#stx-pair? _%hd4838249026%_) + (let ((_%e4838449032%_ + (gx#syntax-e _%hd4838249026%_))) + (let ((_%tl4838649039%_ (let () (declare (not safe)) - (##cdr _%e4832148969%_))) - (_%hd4832248973%_ + (##cdr _%e4838449032%_))) + (_%hd4838549036%_ (let () (declare (not safe)) - (##car _%e4832148969%_)))) - (if (gx#stx-pair? _%tl4832348976%_) - (let ((_%e4832448979%_ + (##car _%e4838449032%_)))) + (if (gx#stx-pair? _%tl4838649039%_) + (let ((_%e4838749042%_ (gx#syntax-e - _%tl4832348976%_))) - (let ((_%tl4832648986%_ + _%tl4838649039%_))) + (let ((_%tl4838949049%_ (let () (declare (not safe)) - (##cdr _%e4832448979%_))) - (_%hd4832548983%_ + (##cdr _%e4838749042%_))) + (_%hd4838849046%_ (let () (declare (not safe)) - (##car _%e4832448979%_)))) + (##car _%e4838749042%_)))) (if (gx#stx-pair? - _%tl4832648986%_) - (let ((_%e4832748989%_ + _%tl4838949049%_) + (let ((_%e4839049052%_ (gx#syntax-e - _%tl4832648986%_))) - (let ((_%tl4832948996%_ + _%tl4838949049%_))) + (let ((_%tl4839249059%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4832748989%_))) - (_%hd4832848993%_ - (let () (declare (not safe)) (##car _%e4832748989%_)))) - (if (gx#stx-null? _%tl4832948996%_) - (if (gx#stx-pair/null? _%tl4832048966%_) - (let ((_%__splice7897978980%_ - (gx#syntax-split-splice _%tl4832048966%_ '0))) - (let ((_%tl4833249002%_ + (##cdr _%e4839049052%_))) + (_%hd4839149056%_ + (let () (declare (not safe)) (##car _%e4839049052%_)))) + (if (gx#stx-null? _%tl4839249059%_) + (if (gx#stx-pair/null? _%tl4838349029%_) + (let ((_%__splice7904279043%_ + (gx#syntax-split-splice _%tl4838349029%_ '0))) + (let ((_%tl4839549065%_ (let () (declare (not safe)) - (##vector-ref _%__splice7897978980%_ '1))) - (_%target4833048999%_ + (##vector-ref _%__splice7904279043%_ '1))) + (_%target4839349062%_ (let () (declare (not safe)) - (##vector-ref _%__splice7897978980%_ '0)))) - (if (gx#stx-null? _%tl4833249002%_) - (_%__match7903779038%_ - _%e4831548949%_ - _%hd4831648953%_ - _%tl4831748956%_ - _%e4831848959%_ - _%hd4831948963%_ - _%tl4832048966%_ - _%e4832148969%_ - _%hd4832248973%_ - _%tl4832348976%_ - _%e4832448979%_ - _%hd4832548983%_ - _%tl4832648986%_ - _%e4832748989%_ - _%hd4832848993%_ - _%tl4832948996%_ - _%__splice7897978980%_ - _%target4833048999%_ - _%tl4833249002%_) + (##vector-ref _%__splice7904279043%_ '0)))) + (if (gx#stx-null? _%tl4839549065%_) + (_%__match7910079101%_ + _%e4837849012%_ + _%hd4837949016%_ + _%tl4838049019%_ + _%e4838149022%_ + _%hd4838249026%_ + _%tl4838349029%_ + _%e4838449032%_ + _%hd4838549036%_ + _%tl4838649039%_ + _%e4838749042%_ + _%hd4838849046%_ + _%tl4838949049%_ + _%e4839049052%_ + _%hd4839149056%_ + _%tl4839249059%_ + _%__splice7904279043%_ + _%target4839349062%_ + _%tl4839549065%_) (let () (declare (not safe)) - (_%g4830948452%_))))) - (let () (declare (not safe)) (_%g4830948452%_))) - (let () (declare (not safe)) (_%g4830948452%_))))) + (_%g4837248515%_))))) + (let () (declare (not safe)) (_%g4837248515%_))) + (let () (declare (not safe)) (_%g4837248515%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))))) + (_%g4837248515%_))))) (let () (declare (not safe)) - (_%g4830948452%_))))) - (let () (declare (not safe)) (_%g4830948452%_))))) - (let () (declare (not safe)) (_%g4830948452%_))))))))) + (_%g4837248515%_))))) + (let () (declare (not safe)) (_%g4837248515%_))))) + (let () (declare (not safe)) (_%g4837248515%_))))))))) (define |gerbil/core/contract~Using[:0:]#with-interface| - (lambda (_%stx49427%_) - (letrec ((_%expand-body49430%_ - (lambda (_%var50431%_ - _%Interface50433%_ - _%body50434%_ - _%checked?50435%_) - (let* ((_%type50437%_ + (lambda (_%stx49490%_) + (letrec ((_%expand-body49493%_ + (lambda (_%var50494%_ + _%Interface50496%_ + _%body50497%_ + _%checked?50498%_) + (let* ((_%type50500%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx49427%_ - _%Interface50433%_))) - (_%g5044050484%_ - (lambda (_%g5044150480%_) + _%stx49490%_ + _%Interface50496%_))) + (_%g5050350547%_ + (lambda (_%g5050450543%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5044150480%_))) - (_%g5043950642%_ - (lambda (_%g5044150488%_) - (if (gx#stx-pair? _%g5044150488%_) - (let ((_%e5044950491%_ - (gx#syntax-e _%g5044150488%_))) - (let ((_%hd5045050495%_ + _%g5050450543%_))) + (_%g5050250705%_ + (lambda (_%g5050450551%_) + (if (gx#stx-pair? _%g5050450551%_) + (let ((_%e5051250554%_ + (gx#syntax-e _%g5050450551%_))) + (let ((_%hd5051350558%_ (let () (declare (not safe)) - (##car _%e5044950491%_))) - (_%tl5045150498%_ + (##car _%e5051250554%_))) + (_%tl5051450561%_ (let () (declare (not safe)) - (##cdr _%e5044950491%_)))) - (if (gx#stx-pair? _%tl5045150498%_) - (let ((_%e5045250501%_ + (##cdr _%e5051250554%_)))) + (if (gx#stx-pair? _%tl5051450561%_) + (let ((_%e5051550564%_ (gx#syntax-e - _%tl5045150498%_))) - (let ((_%hd5045350505%_ + _%tl5051450561%_))) + (let ((_%hd5051650568%_ (let () (declare (not safe)) - (##car _%e5045250501%_))) - (_%tl5045450508%_ + (##car _%e5051550564%_))) + (_%tl5051750571%_ (let () (declare (not safe)) - (##cdr _%e5045250501%_)))) + (##cdr _%e5051550564%_)))) (if (gx#stx-pair? - _%tl5045450508%_) - (let ((_%e5045550511%_ + _%tl5051750571%_) + (let ((_%e5051850574%_ (gx#syntax-e - _%tl5045450508%_))) - (let ((_%hd5045650515%_ + _%tl5051750571%_))) + (let ((_%hd5051950578%_ (let () (declare (not safe)) - (##car _%e5045550511%_))) - (_%tl5045750518%_ + (##car _%e5051850574%_))) + (_%tl5052050581%_ (let () (declare (not safe)) - (##cdr _%e5045550511%_)))) + (##cdr _%e5051850574%_)))) (if (gx#stx-pair? - _%tl5045750518%_) - (let ((_%e5045850521%_ + _%tl5052050581%_) + (let ((_%e5052150584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5045750518%_))) - (let ((_%hd5045950525%_ + (gx#syntax-e _%tl5052050581%_))) + (let ((_%hd5052250588%_ (let () (declare (not safe)) - (##car _%e5045850521%_))) - (_%tl5046050528%_ + (##car _%e5052150584%_))) + (_%tl5052350591%_ (let () (declare (not safe)) - (##cdr _%e5045850521%_)))) - (if (gx#stx-pair? _%tl5046050528%_) - (let ((_%e5046150531%_ - (gx#syntax-e _%tl5046050528%_))) - (let ((_%hd5046250535%_ + (##cdr _%e5052150584%_)))) + (if (gx#stx-pair? _%tl5052350591%_) + (let ((_%e5052450594%_ + (gx#syntax-e _%tl5052350591%_))) + (let ((_%hd5052550598%_ (let () (declare (not safe)) - (##car _%e5046150531%_))) - (_%tl5046350538%_ + (##car _%e5052450594%_))) + (_%tl5052650601%_ (let () (declare (not safe)) - (##cdr _%e5046150531%_)))) - (if (gx#stx-pair? _%tl5046350538%_) - (let ((_%e5046450541%_ - (gx#syntax-e _%tl5046350538%_))) - (let ((_%hd5046550545%_ + (##cdr _%e5052450594%_)))) + (if (gx#stx-pair? _%tl5052650601%_) + (let ((_%e5052750604%_ + (gx#syntax-e _%tl5052650601%_))) + (let ((_%hd5052850608%_ (let () (declare (not safe)) - (##car _%e5046450541%_))) - (_%tl5046650548%_ + (##car _%e5052750604%_))) + (_%tl5052950611%_ (let () (declare (not safe)) - (##cdr _%e5046450541%_)))) - (if (gx#stx-pair? _%tl5046650548%_) - (let ((_%e5046750551%_ + (##cdr _%e5052750604%_)))) + (if (gx#stx-pair? _%tl5052950611%_) + (let ((_%e5053050614%_ (gx#syntax-e - _%tl5046650548%_))) - (let ((_%hd5046850555%_ + _%tl5052950611%_))) + (let ((_%hd5053150618%_ (let () (declare (not safe)) - (##car _%e5046750551%_))) - (_%tl5046950558%_ + (##car _%e5053050614%_))) + (_%tl5053250621%_ (let () (declare (not safe)) - (##cdr _%e5046750551%_)))) + (##cdr _%e5053050614%_)))) (if (gx#stx-pair/null? - _%hd5046850555%_) - (let ((_g84078_ + _%hd5053150618%_) + (let ((_g84141_ (gx#syntax-split-splice - _%hd5046850555%_ + _%hd5053150618%_ '0))) (begin - (let ((_g84079_ + (let ((_g84142_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84078_) - (##vector-length _g84078_) + (if (##values? _g84141_) + (##values-length _g84141_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84079_ 2))) - (error "Context expects 2 values" _g84079_))) - (let ((_%target5047050561%_ - (let () (declare (not safe)) (##vector-ref _g84078_ 0))) - (_%tl5047250564%_ - (let () (declare (not safe)) (##vector-ref _g84078_ 1)))) - (if (gx#stx-null? _%tl5047250564%_) - (letrec ((_%loop5047350567%_ - (lambda (_%hd5047150571%_ _%body5047750574%_) - (if (gx#stx-pair? _%hd5047150571%_) - (let ((_%e5047450577%_ - (gx#syntax-e _%hd5047150571%_))) - (let ((_%lp-hd5047550581%_ + (if (not (let () (declare (not safe)) (##fx= _g84142_ 2))) + (error "Context expects 2 values" _g84142_))) + (let ((_%target5053350624%_ + (let () (declare (not safe)) (##values-ref _g84141_ 0))) + (_%tl5053550627%_ + (let () (declare (not safe)) (##values-ref _g84141_ 1)))) + (if (gx#stx-null? _%tl5053550627%_) + (letrec ((_%loop5053650630%_ + (lambda (_%hd5053450634%_ _%body5054050637%_) + (if (gx#stx-pair? _%hd5053450634%_) + (let ((_%e5053750640%_ + (gx#syntax-e _%hd5053450634%_))) + (let ((_%lp-hd5053850644%_ (let () (declare (not safe)) - (##car _%e5047450577%_))) - (_%lp-tl5047650584%_ + (##car _%e5053750640%_))) + (_%lp-tl5053950647%_ (let () (declare (not safe)) - (##cdr _%e5047450577%_)))) - (_%loop5047350567%_ - _%lp-tl5047650584%_ - (cons _%lp-hd5047550581%_ - _%body5047750574%_)))) - (let ((_%body5047850587%_ - (reverse _%body5047750574%_))) - (if (gx#stx-null? _%tl5046950558%_) - ((lambda (_%L50591%_ - _%L50593%_ - _%L50594%_ - _%L50595%_ - _%L50596%_ - _%L50597%_ - _%L50598%_) + (##cdr _%e5053750640%_)))) + (_%loop5053650630%_ + _%lp-tl5053950647%_ + (cons _%lp-hd5053850644%_ + _%body5054050637%_)))) + (let ((_%body5054150650%_ + (reverse _%body5054050637%_))) + (if (gx#stx-null? _%tl5053250621%_) + ((lambda (_%L50654%_ + _%L50656%_ + _%L50657%_ + _%L50658%_ + _%L50659%_ + _%L50660%_ + _%L50661%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50595%_ + (cons (cons _%L50658%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L50596%_ '())) - (cons _%L50595%_ '()))) + (cons _%L50659%_ '())) + (cons _%L50658%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'let-syntax) - (cons (cons (cons _%L50598%_ + (cons (cons (cons _%L50661%_ (cons (cons (gx#datum->syntax '#f 'make-type-env) @@ -6150,131 +6150,131 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L50595%_ '())) + (cons _%L50658%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50597%_ '())) - (cons _%L50594%_ + (cons _%L50660%_ '())) + (cons _%L50657%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L50593%_ '())) + (cons _%L50656%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g5063350636%_ + (foldr (lambda (_%g5069650699%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5063450639%_) - (cons _%g5063350636%_ _%g5063450639%_)) + _%g5069750702%_) + (cons _%g5069650699%_ _%g5069750702%_)) '() - _%L50591%_))) + _%L50654%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body5047850587%_ - _%hd5046550545%_ - _%hd5046250535%_ - _%hd5045950525%_ - _%hd5045650515%_ - _%hd5045350505%_ - _%hd5045050495%_) - (_%g5044050484%_ - _%g5044150488%_))))))) - (_%loop5047350567%_ _%target5047050561%_ '())) - (_%g5044050484%_ _%g5044150488%_))))) + _%body5054150650%_ + _%hd5052850608%_ + _%hd5052550598%_ + _%hd5052250588%_ + _%hd5051950578%_ + _%hd5051650568%_ + _%hd5051350558%_) + (_%g5050350547%_ + _%g5050450551%_))))))) + (_%loop5053650630%_ _%target5053350624%_ '())) + (_%g5050350547%_ _%g5050450551%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5044050484%_ - _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_)))) + (_%g5050350547%_ + _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5044050484%_ - _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_)))) - (_%g5044050484%_ _%g5044150488%_))))) - (_%g5043950642%_ + (_%g5050350547%_ + _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_)))) + (_%g5050350547%_ _%g5050450551%_))))) + (_%g5050250705%_ (list (gx#syntax-local-introduce '@@type) - _%type50437%_ - (let ((__obj83913 _%type50437%_)) + _%type50500%_ + (let ((__obj83976 _%type50500%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83913 + __obj83976 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83913 + __obj83976 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83913 + __obj83976 'instance-type))) - _%var50431%_ - _%checked?50435%_ + _%var50494%_ + _%checked?50498%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#current-type-env)) - _%body50434%_))))) - (_%expand49432%_ - (lambda (_%var50230%_ - _%Interface50232%_ - _%body50233%_ - _%checked?50234%_ - _%checked-methods?50235%_ - _%maybe?50236%_) - (let* ((_%g5023850246%_ - (lambda (_%g5023950242%_) + _%body50497%_))))) + (_%expand49495%_ + (lambda (_%var50293%_ + _%Interface50295%_ + _%body50296%_ + _%checked?50297%_ + _%checked-methods?50298%_ + _%maybe?50299%_) + (let* ((_%g5030150309%_ + (lambda (_%g5030250305%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5023950242%_))) - (_%g5023750423%_ - (lambda (_%g5023950250%_) - ((lambda (_%L50253%_) - (if _%checked?50234%_ - (if _%maybe?50236%_ - (let* ((_%g5026550280%_ - (lambda (_%g5026650276%_) + _%g5030250305%_))) + (_%g5030050486%_ + (lambda (_%g5030250313%_) + ((lambda (_%L50316%_) + (if _%checked?50297%_ + (if _%maybe?50299%_ + (let* ((_%g5032850343%_ + (lambda (_%g5032950339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5026650276%_))) - (_%g5026450326%_ - (lambda (_%g5026650284%_) + _%g5032950339%_))) + (_%g5032750389%_ + (lambda (_%g5032950347%_) (if (gx#stx-pair? - _%g5026650284%_) - (let ((_%e5026950287%_ + _%g5032950347%_) + (let ((_%e5033250350%_ (gx#syntax-e - _%g5026650284%_))) - (let ((_%hd5027050291%_ + _%g5032950347%_))) + (let ((_%hd5033350354%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5026950287%_))) - (_%tl5027150294%_ - (let () (declare (not safe)) (##cdr _%e5026950287%_)))) - (if (gx#stx-pair? _%tl5027150294%_) - (let ((_%e5027250297%_ (gx#syntax-e _%tl5027150294%_))) - (let ((_%hd5027350301%_ + (##car _%e5033250350%_))) + (_%tl5033450357%_ + (let () (declare (not safe)) (##cdr _%e5033250350%_)))) + (if (gx#stx-pair? _%tl5033450357%_) + (let ((_%e5033550360%_ (gx#syntax-e _%tl5033450357%_))) + (let ((_%hd5033650364%_ (let () (declare (not safe)) - (##car _%e5027250297%_))) - (_%tl5027450304%_ + (##car _%e5033550360%_))) + (_%tl5033750367%_ (let () (declare (not safe)) - (##cdr _%e5027250297%_)))) - (if (gx#stx-null? _%tl5027450304%_) - ((lambda (_%L50307%_ _%L50309%_) + (##cdr _%e5033550360%_)))) + (if (gx#stx-null? _%tl5033750367%_) + ((lambda (_%L50370%_ _%L50372%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50309%_ - (cons (cons _%L50307%_ - (cons _%L50309%_ + (cons (cons _%L50372%_ + (cons (cons _%L50370%_ + (cons _%L50372%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -6282,2653 +6282,2653 @@ (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L50309%_ - (cons _%L50253%_ + (cons _%L50372%_ + (cons _%L50316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50309%_ '())) + (cons _%L50372%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd5027350301%_ - _%hd5027050291%_) - (_%g5026550280%_ _%g5026650284%_)))) - (_%g5026550280%_ _%g5026650284%_)))) - (_%g5026550280%_ _%g5026650284%_))))) + _%hd5033650364%_ + _%hd5033350354%_) + (_%g5032850343%_ _%g5032950347%_)))) + (_%g5032850343%_ _%g5032950347%_)))) + (_%g5032850343%_ _%g5032950347%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5026450326%_ - (list _%var50230%_ - _%Interface50232%_))) - (let* ((_%g5033050345%_ - (lambda (_%g5033150341%_) + (_%g5032750389%_ + (list _%var50293%_ + _%Interface50295%_))) + (let* ((_%g5039350408%_ + (lambda (_%g5039450404%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5033150341%_))) - (_%g5032950389%_ - (lambda (_%g5033150349%_) + _%g5039450404%_))) + (_%g5039250452%_ + (lambda (_%g5039450412%_) (if (gx#stx-pair? - _%g5033150349%_) - (let ((_%e5033450352%_ + _%g5039450412%_) + (let ((_%e5039750415%_ (gx#syntax-e - _%g5033150349%_))) - (let ((_%hd5033550356%_ + _%g5039450412%_))) + (let ((_%hd5039850419%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e5033450352%_))) - (_%tl5033650359%_ - (let () (declare (not safe)) (##cdr _%e5033450352%_)))) - (if (gx#stx-pair? _%tl5033650359%_) - (let ((_%e5033750362%_ (gx#syntax-e _%tl5033650359%_))) - (let ((_%hd5033850366%_ + (##car _%e5039750415%_))) + (_%tl5039950422%_ + (let () (declare (not safe)) (##cdr _%e5039750415%_)))) + (if (gx#stx-pair? _%tl5039950422%_) + (let ((_%e5040050425%_ (gx#syntax-e _%tl5039950422%_))) + (let ((_%hd5040150429%_ (let () (declare (not safe)) - (##car _%e5033750362%_))) - (_%tl5033950369%_ + (##car _%e5040050425%_))) + (_%tl5040250432%_ (let () (declare (not safe)) - (##cdr _%e5033750362%_)))) - (if (gx#stx-null? _%tl5033950369%_) - ((lambda (_%L50372%_ _%L50374%_) + (##cdr _%e5040050425%_)))) + (if (gx#stx-null? _%tl5040250432%_) + ((lambda (_%L50435%_ _%L50437%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L50374%_ - (cons (cons _%L50372%_ - (cons _%L50374%_ + (cons (cons _%L50437%_ + (cons (cons _%L50435%_ + (cons _%L50437%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L50253%_ '())))) - _%hd5033850366%_ - _%hd5033550356%_) - (_%g5033050345%_ _%g5033150349%_)))) - (_%g5033050345%_ _%g5033150349%_)))) - (_%g5033050345%_ _%g5033150349%_))))) + (cons _%L50316%_ '())))) + _%hd5040150429%_ + _%hd5039850419%_) + (_%g5039350408%_ _%g5039450412%_)))) + (_%g5039350408%_ _%g5039450412%_)))) + (_%g5039350408%_ _%g5039450412%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5032950389%_ - (list _%var50230%_ - _%Interface50232%_)))) - (if _%maybe?50236%_ - (let* ((_%g5039350401%_ - (lambda (_%g5039450397%_) + (_%g5039250452%_ + (list _%var50293%_ + _%Interface50295%_)))) + (if _%maybe?50299%_ + (let* ((_%g5045650464%_ + (lambda (_%g5045750460%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5039450397%_))) - (_%g5039250419%_ - (lambda (_%g5039450405%_) - ((lambda (_%L50408%_) + _%g5045750460%_))) + (_%g5045550482%_ + (lambda (_%g5045750468%_) + ((lambda (_%L50471%_) (cons (gx#datum->syntax '#f 'if) - (cons _%L50408%_ + (cons _%L50471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L50253%_ + (cons _%L50316%_ (cons (cons (gx#datum->syntax '#f 'nil-dereference!) - (cons _%L50408%_ '())) + (cons _%L50471%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5039450405%_)))) - (_%g5039250419%_ _%var50230%_)) - _%L50253%_))) - _%g5023950250%_)))) - (_%g5023750423%_ - (_%expand-body49430%_ - _%var50230%_ - _%Interface50232%_ - _%body50233%_ - (let ((_%$e50427%_ _%checked?50234%_)) - (if _%$e50427%_ - _%$e50427%_ - _%checked-methods?50235%_)))))))) - (let* ((_%__stx7921679217%_ _%stx49427%_) - (_%g4943849581%_ + _%g5045750468%_)))) + (_%g5045550482%_ _%var50293%_)) + _%L50316%_))) + _%g5030250313%_)))) + (_%g5030050486%_ + (_%expand-body49493%_ + _%var50293%_ + _%Interface50295%_ + _%body50296%_ + (let ((_%$e50490%_ _%checked?50297%_)) + (if _%$e50490%_ + _%$e50490%_ + _%checked-methods?50298%_)))))))) + (let* ((_%__stx7927979280%_ _%stx49490%_) + (_%g4950149644%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7921679217%_)))) - (let ((_%__kont7921979220%_ - (lambda (_%L50158%_ _%L50160%_ _%L50161%_ _%L50162%_) - (let* ((_%g5018750195%_ - (lambda (_%g5018850191%_) + _%__stx7927979280%_)))) + (let ((_%__kont7928279283%_ + (lambda (_%L50221%_ _%L50223%_ _%L50224%_ _%L50225%_) + (let* ((_%g5025050258%_ + (lambda (_%g5025150254%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5018850191%_))) - (_%g5018650222%_ - (lambda (_%g5018850199%_) - ((lambda (_%L50202%_) + _%g5025150254%_))) + (_%g5024950285%_ + (lambda (_%g5025150262%_) + ((lambda (_%L50265%_) (cons (gx#datum->syntax '#f 'with-interface) - (cons (cons _%L50162%_ - (cons _%L50161%_ - (cons _%L50202%_ + (cons (cons _%L50225%_ + (cons _%L50224%_ + (cons _%L50265%_ '()))) - (foldr (lambda (_%g5021350216%_ - _%g5021450219%_) - (cons _%g5021350216%_ - _%g5021450219%_)) + (foldr (lambda (_%g5027650279%_ + _%g5027750282%_) + (cons _%g5027650279%_ + _%g5027750282%_)) '() - _%L50158%_)))) - _%g5018850199%_)))) - (_%g5018650222%_ - (let ((__obj83914 (gx#syntax-local-value _%L50160%_))) + _%L50221%_)))) + _%g5025150262%_)))) + (_%g5024950285%_ + (let ((__obj83977 (gx#syntax-local-value _%L50223%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83914 + __obj83977 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83914 + __obj83977 '1 '#f '#f)) (class-slot-ref |gerbil/core/contract~TypeReference[1]#type-reference::t| - __obj83914 + __obj83977 'identifier))))))) - (_%__kont7922379224%_ - (lambda (_%L50036%_ _%L50038%_ _%L50039%_) - (_%expand49432%_ - _%L50039%_ - _%L50038%_ - (foldr (lambda (_%g5006250065%_ _%g5006350068%_) - (cons _%g5006250065%_ _%g5006350068%_)) + (_%__kont7928679287%_ + (lambda (_%L50099%_ _%L50101%_ _%L50102%_) + (_%expand49495%_ + _%L50102%_ + _%L50101%_ + (foldr (lambda (_%g5012550128%_ _%g5012650131%_) + (cons _%g5012550128%_ _%g5012650131%_)) '() - _%L50036%_) + _%L50099%_) '#t '#t '#f))) - (_%__kont7922779228%_ - (lambda (_%L49914%_ _%L49916%_ _%L49917%_) - (_%expand49432%_ - _%L49917%_ - _%L49916%_ - (foldr (lambda (_%g4994049943%_ _%g4994149946%_) - (cons _%g4994049943%_ _%g4994149946%_)) + (_%__kont7929079291%_ + (lambda (_%L49977%_ _%L49979%_ _%L49980%_) + (_%expand49495%_ + _%L49980%_ + _%L49979%_ + (foldr (lambda (_%g5000350006%_ _%g5000450009%_) + (cons _%g5000350006%_ _%g5000450009%_)) '() - _%L49914%_) + _%L49977%_) '#t '#t '#t))) - (_%__kont7923179232%_ - (lambda (_%L49792%_ _%L49794%_ _%L49795%_) - (_%expand49432%_ - _%L49795%_ - _%L49794%_ - (foldr (lambda (_%g4981849821%_ _%g4981949824%_) - (cons _%g4981849821%_ _%g4981949824%_)) + (_%__kont7929479295%_ + (lambda (_%L49855%_ _%L49857%_ _%L49858%_) + (_%expand49495%_ + _%L49858%_ + _%L49857%_ + (foldr (lambda (_%g4988149884%_ _%g4988249887%_) + (cons _%g4988149884%_ _%g4988249887%_)) '() - _%L49792%_) + _%L49855%_) '#f '#f '#f))) - (_%__kont7923579236%_ - (lambda (_%L49668%_ _%L49670%_ _%L49671%_) - (_%expand49432%_ - _%L49671%_ - _%L49670%_ - (foldr (lambda (_%g4969649699%_ _%g4969749702%_) - (cons _%g4969649699%_ _%g4969749702%_)) + (_%__kont7929879299%_ + (lambda (_%L49731%_ _%L49733%_ _%L49734%_) + (_%expand49495%_ + _%L49734%_ + _%L49733%_ + (foldr (lambda (_%g4975949762%_ _%g4976049765%_) + (cons _%g4975949762%_ _%g4976049765%_)) '() - _%L49668%_) + _%L49731%_) '#f '#t '#f)))) - (let* ((_%__match7945579456%_ - (lambda (_%e4955249588%_ - _%hd4955349592%_ - _%tl4955449595%_ - _%e4955549598%_ - _%hd4955649602%_ - _%tl4955749605%_ - _%e4955849608%_ - _%hd4955949612%_ - _%tl4956049615%_ - _%e4956149618%_ - _%hd4956249622%_ - _%tl4956349625%_ - _%e4956449628%_ - _%hd4956549632%_ - _%tl4956649635%_ - _%__splice7923779238%_ - _%target4956749638%_ - _%tl4956949641%_) - (letrec ((_%loop4957049644%_ - (lambda (_%hd4956849648%_ _%body4957449651%_) - (if (gx#stx-pair? _%hd4956849648%_) - (let ((_%e4957149654%_ - (gx#syntax-e _%hd4956849648%_))) - (let ((_%lp-tl4957349661%_ + (let* ((_%__match7951879519%_ + (lambda (_%e4961549651%_ + _%hd4961649655%_ + _%tl4961749658%_ + _%e4961849661%_ + _%hd4961949665%_ + _%tl4962049668%_ + _%e4962149671%_ + _%hd4962249675%_ + _%tl4962349678%_ + _%e4962449681%_ + _%hd4962549685%_ + _%tl4962649688%_ + _%e4962749691%_ + _%hd4962849695%_ + _%tl4962949698%_ + _%__splice7930079301%_ + _%target4963049701%_ + _%tl4963249704%_) + (letrec ((_%loop4963349707%_ + (lambda (_%hd4963149711%_ _%body4963749714%_) + (if (gx#stx-pair? _%hd4963149711%_) + (let ((_%e4963449717%_ + (gx#syntax-e _%hd4963149711%_))) + (let ((_%lp-tl4963649724%_ (let () (declare (not safe)) - (##cdr _%e4957149654%_))) - (_%lp-hd4957249658%_ + (##cdr _%e4963449717%_))) + (_%lp-hd4963549721%_ (let () (declare (not safe)) - (##car _%e4957149654%_)))) - (_%loop4957049644%_ - _%lp-tl4957349661%_ - (cons _%lp-hd4957249658%_ - _%body4957449651%_)))) - (let ((_%body4957549664%_ - (reverse _%body4957449651%_))) - (let ((_%L49668%_ _%body4957549664%_) - (_%L49670%_ _%hd4956549632%_) - (_%L49671%_ _%hd4955949612%_)) + (##car _%e4963449717%_)))) + (_%loop4963349707%_ + _%lp-tl4963649724%_ + (cons _%lp-hd4963549721%_ + _%body4963749714%_)))) + (let ((_%body4963849727%_ + (reverse _%body4963749714%_))) + (let ((_%L49731%_ _%body4963849727%_) + (_%L49733%_ _%hd4962849695%_) + (_%L49734%_ _%hd4962249675%_)) (if (and (gx#identifier? - _%L49671%_) + _%L49734%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49670%_))) - (_%__kont7923579236%_ - _%L49668%_ - _%L49670%_ - _%L49671%_) + _%L49733%_))) + (_%__kont7929879299%_ + _%L49731%_ + _%L49733%_ + _%L49734%_) (let () (declare (not safe)) - (_%g4943849581%_))))))))) - (_%loop4957049644%_ _%target4956749638%_ '())))) - (_%__match7941179412%_ - (lambda (_%e4952549712%_ - _%hd4952649716%_ - _%tl4952749719%_ - _%e4952849722%_ - _%hd4952949726%_ - _%tl4953049729%_ - _%e4953149732%_ - _%hd4953249736%_ - _%tl4953349739%_ - _%e4953449742%_ - _%hd4953549746%_ - _%tl4953649749%_ - _%e4953749752%_ - _%hd4953849756%_ - _%tl4953949759%_ - _%__splice7923379234%_ - _%target4954049762%_ - _%tl4954249765%_) - (letrec ((_%loop4954349768%_ - (lambda (_%hd4954149772%_ _%body4954749775%_) - (if (gx#stx-pair? _%hd4954149772%_) - (let ((_%e4954449778%_ - (gx#syntax-e _%hd4954149772%_))) - (let ((_%lp-tl4954649785%_ + (_%g4950149644%_))))))))) + (_%loop4963349707%_ _%target4963049701%_ '())))) + (_%__match7947479475%_ + (lambda (_%e4958849775%_ + _%hd4958949779%_ + _%tl4959049782%_ + _%e4959149785%_ + _%hd4959249789%_ + _%tl4959349792%_ + _%e4959449795%_ + _%hd4959549799%_ + _%tl4959649802%_ + _%e4959749805%_ + _%hd4959849809%_ + _%tl4959949812%_ + _%e4960049815%_ + _%hd4960149819%_ + _%tl4960249822%_ + _%__splice7929679297%_ + _%target4960349825%_ + _%tl4960549828%_) + (letrec ((_%loop4960649831%_ + (lambda (_%hd4960449835%_ _%body4961049838%_) + (if (gx#stx-pair? _%hd4960449835%_) + (let ((_%e4960749841%_ + (gx#syntax-e _%hd4960449835%_))) + (let ((_%lp-tl4960949848%_ (let () (declare (not safe)) - (##cdr _%e4954449778%_))) - (_%lp-hd4954549782%_ + (##cdr _%e4960749841%_))) + (_%lp-hd4960849845%_ (let () (declare (not safe)) - (##car _%e4954449778%_)))) - (_%loop4954349768%_ - _%lp-tl4954649785%_ - (cons _%lp-hd4954549782%_ - _%body4954749775%_)))) - (let ((_%body4954849788%_ - (reverse _%body4954749775%_))) - (let ((_%L49792%_ _%body4954849788%_) - (_%L49794%_ _%hd4953849756%_) - (_%L49795%_ _%hd4953249736%_)) + (##car _%e4960749841%_)))) + (_%loop4960649831%_ + _%lp-tl4960949848%_ + (cons _%lp-hd4960849845%_ + _%body4961049838%_)))) + (let ((_%body4961149851%_ + (reverse _%body4961049838%_))) + (let ((_%L49855%_ _%body4961149851%_) + (_%L49857%_ _%hd4960149819%_) + (_%L49858%_ _%hd4959549799%_)) (if (and (gx#identifier? - _%L49795%_) + _%L49858%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49794%_))) - (_%__kont7923179232%_ - _%L49792%_ - _%L49794%_ - _%L49795%_) + _%L49857%_))) + (_%__kont7929479295%_ + _%L49855%_ + _%L49857%_ + _%L49858%_) (let () (declare (not safe)) - (_%g4943849581%_))))))))) - (_%loop4954349768%_ _%target4954049762%_ '())))) - (_%__match7936779368%_ - (lambda (_%e4949849834%_ - _%hd4949949838%_ - _%tl4950049841%_ - _%e4950149844%_ - _%hd4950249848%_ - _%tl4950349851%_ - _%e4950449854%_ - _%hd4950549858%_ - _%tl4950649861%_ - _%e4950749864%_ - _%hd4950849868%_ - _%tl4950949871%_ - _%e4951049874%_ - _%hd4951149878%_ - _%tl4951249881%_ - _%__splice7922979230%_ - _%target4951349884%_ - _%tl4951549887%_) - (letrec ((_%loop4951649890%_ - (lambda (_%hd4951449894%_ _%body4952049897%_) - (if (gx#stx-pair? _%hd4951449894%_) - (let ((_%e4951749900%_ - (gx#syntax-e _%hd4951449894%_))) - (let ((_%lp-tl4951949907%_ + (_%g4950149644%_))))))))) + (_%loop4960649831%_ _%target4960349825%_ '())))) + (_%__match7943079431%_ + (lambda (_%e4956149897%_ + _%hd4956249901%_ + _%tl4956349904%_ + _%e4956449907%_ + _%hd4956549911%_ + _%tl4956649914%_ + _%e4956749917%_ + _%hd4956849921%_ + _%tl4956949924%_ + _%e4957049927%_ + _%hd4957149931%_ + _%tl4957249934%_ + _%e4957349937%_ + _%hd4957449941%_ + _%tl4957549944%_ + _%__splice7929279293%_ + _%target4957649947%_ + _%tl4957849950%_) + (letrec ((_%loop4957949953%_ + (lambda (_%hd4957749957%_ _%body4958349960%_) + (if (gx#stx-pair? _%hd4957749957%_) + (let ((_%e4958049963%_ + (gx#syntax-e _%hd4957749957%_))) + (let ((_%lp-tl4958249970%_ (let () (declare (not safe)) - (##cdr _%e4951749900%_))) - (_%lp-hd4951849904%_ + (##cdr _%e4958049963%_))) + (_%lp-hd4958149967%_ (let () (declare (not safe)) - (##car _%e4951749900%_)))) - (_%loop4951649890%_ - _%lp-tl4951949907%_ - (cons _%lp-hd4951849904%_ - _%body4952049897%_)))) - (let ((_%body4952149910%_ - (reverse _%body4952049897%_))) - (let ((_%L49914%_ _%body4952149910%_) - (_%L49916%_ _%hd4951149878%_) - (_%L49917%_ _%hd4950549858%_)) + (##car _%e4958049963%_)))) + (_%loop4957949953%_ + _%lp-tl4958249970%_ + (cons _%lp-hd4958149967%_ + _%body4958349960%_)))) + (let ((_%body4958449973%_ + (reverse _%body4958349960%_))) + (let ((_%L49977%_ _%body4958449973%_) + (_%L49979%_ _%hd4957449941%_) + (_%L49980%_ _%hd4956849921%_)) (if (and (gx#identifier? - _%L49917%_) + _%L49980%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L49916%_))) - (_%__kont7922779228%_ - _%L49914%_ - _%L49916%_ - _%L49917%_) + _%L49979%_))) + (_%__kont7929079291%_ + _%L49977%_ + _%L49979%_ + _%L49980%_) (let () (declare (not safe)) - (_%g4943849581%_))))))))) - (_%loop4951649890%_ _%target4951349884%_ '())))) - (_%__match7932379324%_ - (lambda (_%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_ - _%e4948349996%_ - _%hd4948450000%_ - _%tl4948550003%_ - _%__splice7922579226%_ - _%target4948650006%_ - _%tl4948850009%_) - (letrec ((_%loop4948950012%_ - (lambda (_%hd4948750016%_ _%body4949350019%_) - (if (gx#stx-pair? _%hd4948750016%_) - (let ((_%e4949050022%_ - (gx#syntax-e _%hd4948750016%_))) - (let ((_%lp-tl4949250029%_ + (_%g4950149644%_))))))))) + (_%loop4957949953%_ _%target4957649947%_ '())))) + (_%__match7938679387%_ + (lambda (_%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_ + _%e4954650059%_ + _%hd4954750063%_ + _%tl4954850066%_ + _%__splice7928879289%_ + _%target4954950069%_ + _%tl4955150072%_) + (letrec ((_%loop4955250075%_ + (lambda (_%hd4955050079%_ _%body4955650082%_) + (if (gx#stx-pair? _%hd4955050079%_) + (let ((_%e4955350085%_ + (gx#syntax-e _%hd4955050079%_))) + (let ((_%lp-tl4955550092%_ (let () (declare (not safe)) - (##cdr _%e4949050022%_))) - (_%lp-hd4949150026%_ + (##cdr _%e4955350085%_))) + (_%lp-hd4955450089%_ (let () (declare (not safe)) - (##car _%e4949050022%_)))) - (_%loop4948950012%_ - _%lp-tl4949250029%_ - (cons _%lp-hd4949150026%_ - _%body4949350019%_)))) - (let ((_%body4949450032%_ - (reverse _%body4949350019%_))) - (let ((_%L50036%_ _%body4949450032%_) - (_%L50038%_ _%hd4948450000%_) - (_%L50039%_ _%hd4947849980%_)) + (##car _%e4955350085%_)))) + (_%loop4955250075%_ + _%lp-tl4955550092%_ + (cons _%lp-hd4955450089%_ + _%body4955650082%_)))) + (let ((_%body4955750095%_ + (reverse _%body4955650082%_))) + (let ((_%L50099%_ _%body4955750095%_) + (_%L50101%_ _%hd4954750063%_) + (_%L50102%_ _%hd4954150043%_)) (if (and (gx#identifier? - _%L50039%_) + _%L50102%_) (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L50038%_))) - (_%__kont7922379224%_ - _%L50036%_ - _%L50038%_ - _%L50039%_) + _%L50101%_))) + (_%__kont7928679287%_ + _%L50099%_ + _%L50101%_ + _%L50102%_) (let () (declare (not safe)) - (_%g4943849581%_))))))))) - (_%loop4948950012%_ _%target4948650006%_ '())))) - (_%__match7930379304%_ - (lambda (_%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_) - (if (gx#identifier? _%hd4948149990%_) + (_%g4950149644%_))))))))) + (_%loop4955250075%_ _%target4954950069%_ '())))) + (_%__match7936679367%_ + (lambda (_%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_) + (if (gx#identifier? _%hd4954450053%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84080_| - _%hd4948149990%_) - (if (gx#stx-pair? _%tl4948249993%_) - (let ((_%e4948349996%_ - (gx#syntax-e _%tl4948249993%_))) - (let ((_%tl4948550003%_ + |gerbil/core/contract~Using[1]#_g84143_| + _%hd4954450053%_) + (if (gx#stx-pair? _%tl4954550056%_) + (let ((_%e4954650059%_ + (gx#syntax-e _%tl4954550056%_))) + (let ((_%tl4954850066%_ (let () (declare (not safe)) - (##cdr _%e4948349996%_))) - (_%hd4948450000%_ + (##cdr _%e4954650059%_))) + (_%hd4954750063%_ (let () (declare (not safe)) - (##car _%e4948349996%_)))) - (if (gx#stx-null? _%tl4948550003%_) + (##car _%e4954650059%_)))) + (if (gx#stx-null? _%tl4954850066%_) (if (gx#stx-pair/null? - _%tl4947649973%_) - (let ((_%__splice7922579226%_ + _%tl4953950036%_) + (let ((_%__splice7928879289%_ (gx#syntax-split-splice - _%tl4947649973%_ + _%tl4953950036%_ '0))) - (let ((_%tl4948850009%_ + (let ((_%tl4955150072%_ (let () (declare (not safe)) (##vector-ref - _%__splice7922579226%_ + _%__splice7928879289%_ '1))) - (_%target4948650006%_ + (_%target4954950069%_ (let () (declare (not safe)) (##vector-ref - _%__splice7922579226%_ + _%__splice7928879289%_ '0)))) (if (gx#stx-null? - _%tl4948850009%_) - (_%__match7932379324%_ - _%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_ - _%e4948349996%_ - _%hd4948450000%_ - _%tl4948550003%_ - _%__splice7922579226%_ - _%target4948650006%_ - _%tl4948850009%_) + _%tl4955150072%_) + (_%__match7938679387%_ + _%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_ + _%e4954650059%_ + _%hd4954750063%_ + _%tl4954850066%_ + _%__splice7928879289%_ + _%target4954950069%_ + _%tl4955150072%_) (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84081_| - _%hd4948149990%_) - (if (gx#stx-pair? _%tl4948249993%_) - (let ((_%e4951049874%_ - (gx#syntax-e _%tl4948249993%_))) - (let ((_%tl4951249881%_ + |gerbil/core/contract~Using[1]#_g84144_| + _%hd4954450053%_) + (if (gx#stx-pair? _%tl4954550056%_) + (let ((_%e4957349937%_ + (gx#syntax-e _%tl4954550056%_))) + (let ((_%tl4957549944%_ (let () (declare (not safe)) - (##cdr _%e4951049874%_))) - (_%hd4951149878%_ + (##cdr _%e4957349937%_))) + (_%hd4957449941%_ (let () (declare (not safe)) - (##car _%e4951049874%_)))) - (if (gx#stx-null? _%tl4951249881%_) + (##car _%e4957349937%_)))) + (if (gx#stx-null? _%tl4957549944%_) (if (gx#stx-pair/null? - _%tl4947649973%_) - (let ((_%__splice7922979230%_ + _%tl4953950036%_) + (let ((_%__splice7929279293%_ (gx#syntax-split-splice - _%tl4947649973%_ + _%tl4953950036%_ '0))) - (let ((_%tl4951549887%_ + (let ((_%tl4957849950%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice7922979230%_ '1))) - (_%target4951349884%_ + (##vector-ref _%__splice7929279293%_ '1))) + (_%target4957649947%_ (let () (declare (not safe)) - (##vector-ref _%__splice7922979230%_ '0)))) - (if (gx#stx-null? _%tl4951549887%_) - (_%__match7936779368%_ - _%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_ - _%e4951049874%_ - _%hd4951149878%_ - _%tl4951249881%_ - _%__splice7922979230%_ - _%target4951349884%_ - _%tl4951549887%_) - (let () (declare (not safe)) (_%g4943849581%_))))) + (##vector-ref _%__splice7929279293%_ '0)))) + (if (gx#stx-null? _%tl4957849950%_) + (_%__match7943079431%_ + _%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_ + _%e4957349937%_ + _%hd4957449941%_ + _%tl4957549944%_ + _%__splice7929279293%_ + _%target4957649947%_ + _%tl4957849950%_) + (let () (declare (not safe)) (_%g4950149644%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84082_| - _%hd4948149990%_) - (if (gx#stx-pair? _%tl4948249993%_) - (let ((_%e4953749752%_ + |gerbil/core/contract~Using[1]#_g84145_| + _%hd4954450053%_) + (if (gx#stx-pair? _%tl4954550056%_) + (let ((_%e4960049815%_ (gx#syntax-e - _%tl4948249993%_))) - (let ((_%tl4953949759%_ + _%tl4954550056%_))) + (let ((_%tl4960249822%_ (let () (declare (not safe)) - (##cdr _%e4953749752%_))) - (_%hd4953849756%_ + (##cdr _%e4960049815%_))) + (_%hd4960149819%_ (let () (declare (not safe)) - (##car _%e4953749752%_)))) + (##car _%e4960049815%_)))) (if (gx#stx-null? - _%tl4953949759%_) + _%tl4960249822%_) (if (gx#stx-pair/null? - _%tl4947649973%_) - (let ((_%__splice7923379234%_ + _%tl4953950036%_) + (let ((_%__splice7929679297%_ (gx#syntax-split-splice - _%tl4947649973%_ + _%tl4953950036%_ '0))) - (let ((_%tl4954249765%_ + (let ((_%tl4960549828%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice7923379234%_ '1))) - (_%target4954049762%_ + (##vector-ref _%__splice7929679297%_ '1))) + (_%target4960349825%_ (let () (declare (not safe)) - (##vector-ref _%__splice7923379234%_ '0)))) - (if (gx#stx-null? _%tl4954249765%_) - (_%__match7941179412%_ - _%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_ - _%e4953749752%_ - _%hd4953849756%_ - _%tl4953949759%_ - _%__splice7923379234%_ - _%target4954049762%_ - _%tl4954249765%_) - (let () (declare (not safe)) (_%g4943849581%_))))) - (let () (declare (not safe)) (_%g4943849581%_))) + (##vector-ref _%__splice7929679297%_ '0)))) + (if (gx#stx-null? _%tl4960549828%_) + (_%__match7947479475%_ + _%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_ + _%e4960049815%_ + _%hd4960149819%_ + _%tl4960249822%_ + _%__splice7929679297%_ + _%target4960349825%_ + _%tl4960549828%_) + (let () (declare (not safe)) (_%g4950149644%_))))) + (let () (declare (not safe)) (_%g4950149644%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84083_| - _%hd4948149990%_) - (if (gx#stx-pair? _%tl4948249993%_) - (let ((_%e4956449628%_ + |gerbil/core/contract~Using[1]#_g84146_| + _%hd4954450053%_) + (if (gx#stx-pair? _%tl4954550056%_) + (let ((_%e4962749691%_ (gx#syntax-e - _%tl4948249993%_))) - (let ((_%tl4956649635%_ + _%tl4954550056%_))) + (let ((_%tl4962949698%_ (let () (declare (not safe)) - (##cdr _%e4956449628%_))) - (_%hd4956549632%_ + (##cdr _%e4962749691%_))) + (_%hd4962849695%_ (let () (declare (not safe)) - (##car _%e4956449628%_)))) + (##car _%e4962749691%_)))) (if (gx#stx-null? - _%tl4956649635%_) + _%tl4962949698%_) (if (gx#stx-pair/null? - _%tl4947649973%_) - (let ((_%__splice7923779238%_ + _%tl4953950036%_) + (let ((_%__splice7930079301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl4947649973%_ '0))) - (let ((_%tl4956949641%_ + (gx#syntax-split-splice _%tl4953950036%_ '0))) + (let ((_%tl4963249704%_ (let () (declare (not safe)) - (##vector-ref _%__splice7923779238%_ '1))) - (_%target4956749638%_ + (##vector-ref _%__splice7930079301%_ '1))) + (_%target4963049701%_ (let () (declare (not safe)) - (##vector-ref _%__splice7923779238%_ '0)))) - (if (gx#stx-null? _%tl4956949641%_) - (_%__match7945579456%_ - _%e4947149956%_ - _%hd4947249960%_ - _%tl4947349963%_ - _%e4947449966%_ - _%hd4947549970%_ - _%tl4947649973%_ - _%e4947749976%_ - _%hd4947849980%_ - _%tl4947949983%_ - _%e4948049986%_ - _%hd4948149990%_ - _%tl4948249993%_ - _%e4956449628%_ - _%hd4956549632%_ - _%tl4956649635%_ - _%__splice7923779238%_ - _%target4956749638%_ - _%tl4956949641%_) - (let () (declare (not safe)) (_%g4943849581%_))))) - (let () (declare (not safe)) (_%g4943849581%_))) - (let () (declare (not safe)) (_%g4943849581%_))))) + (##vector-ref _%__splice7930079301%_ '0)))) + (if (gx#stx-null? _%tl4963249704%_) + (_%__match7951879519%_ + _%e4953450019%_ + _%hd4953550023%_ + _%tl4953650026%_ + _%e4953750029%_ + _%hd4953850033%_ + _%tl4953950036%_ + _%e4954050039%_ + _%hd4954150043%_ + _%tl4954250046%_ + _%e4954350049%_ + _%hd4954450053%_ + _%tl4954550056%_ + _%e4962749691%_ + _%hd4962849695%_ + _%tl4962949698%_ + _%__splice7930079301%_ + _%target4963049701%_ + _%tl4963249704%_) + (let () (declare (not safe)) (_%g4950149644%_))))) + (let () (declare (not safe)) (_%g4950149644%_))) + (let () (declare (not safe)) (_%g4950149644%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4943849581%_))) + (_%g4950149644%_))) (let () (declare (not safe)) - (_%g4943849581%_)))))) - (let () (declare (not safe)) (_%g4943849581%_))))) - (_%__match7927979280%_ - (lambda (_%e4944450078%_ - _%hd4944550082%_ - _%tl4944650085%_ - _%e4944750088%_ - _%hd4944850092%_ - _%tl4944950095%_ - _%e4945050098%_ - _%hd4945150102%_ - _%tl4945250105%_ - _%e4945350108%_ - _%hd4945450112%_ - _%tl4945550115%_ - _%e4945650118%_ - _%hd4945750122%_ - _%tl4945850125%_ - _%__splice7922179222%_ - _%target4945950128%_ - _%tl4946150131%_) - (letrec ((_%loop4946250134%_ - (lambda (_%hd4946050138%_ _%body4946650141%_) - (if (gx#stx-pair? _%hd4946050138%_) - (let ((_%e4946350144%_ - (gx#syntax-e _%hd4946050138%_))) - (let ((_%lp-tl4946550151%_ + (_%g4950149644%_)))))) + (let () (declare (not safe)) (_%g4950149644%_))))) + (_%__match7934279343%_ + (lambda (_%e4950750141%_ + _%hd4950850145%_ + _%tl4950950148%_ + _%e4951050151%_ + _%hd4951150155%_ + _%tl4951250158%_ + _%e4951350161%_ + _%hd4951450165%_ + _%tl4951550168%_ + _%e4951650171%_ + _%hd4951750175%_ + _%tl4951850178%_ + _%e4951950181%_ + _%hd4952050185%_ + _%tl4952150188%_ + _%__splice7928479285%_ + _%target4952250191%_ + _%tl4952450194%_) + (letrec ((_%loop4952550197%_ + (lambda (_%hd4952350201%_ _%body4952950204%_) + (if (gx#stx-pair? _%hd4952350201%_) + (let ((_%e4952650207%_ + (gx#syntax-e _%hd4952350201%_))) + (let ((_%lp-tl4952850214%_ (let () (declare (not safe)) - (##cdr _%e4946350144%_))) - (_%lp-hd4946450148%_ + (##cdr _%e4952650207%_))) + (_%lp-hd4952750211%_ (let () (declare (not safe)) - (##car _%e4946350144%_)))) - (_%loop4946250134%_ - _%lp-tl4946550151%_ - (cons _%lp-hd4946450148%_ - _%body4946650141%_)))) - (let ((_%body4946750154%_ - (reverse _%body4946650141%_))) - (let ((_%L50158%_ _%body4946750154%_) - (_%L50160%_ _%hd4945750122%_) - (_%L50161%_ _%hd4945450112%_) - (_%L50162%_ _%hd4945150102%_)) - (if (let ((__tmp84084 + (##car _%e4952650207%_)))) + (_%loop4952550197%_ + _%lp-tl4952850214%_ + (cons _%lp-hd4952750211%_ + _%body4952950204%_)))) + (let ((_%body4953050217%_ + (reverse _%body4952950204%_))) + (let ((_%L50221%_ _%body4953050217%_) + (_%L50223%_ _%hd4952050185%_) + (_%L50224%_ _%hd4951750175%_) + (_%L50225%_ _%hd4951450165%_)) + (if (let ((__tmp84147 (gx#syntax-local-value - _%L50160%_ + _%L50223%_ false))) (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - __tmp84084)) - (_%__kont7921979220%_ - _%L50158%_ - _%L50160%_ - _%L50161%_ - _%L50162%_) - (_%__match7930379304%_ - _%e4944450078%_ - _%hd4944550082%_ - _%tl4944650085%_ - _%e4944750088%_ - _%hd4944850092%_ - _%tl4944950095%_ - _%e4945050098%_ - _%hd4945150102%_ - _%tl4945250105%_ - _%e4945350108%_ - _%hd4945450112%_ - _%tl4945550115%_)))))))) - (_%loop4946250134%_ _%target4945950128%_ '()))))) - (if (gx#stx-pair? _%__stx7921679217%_) - (let ((_%e4944450078%_ (gx#syntax-e _%__stx7921679217%_))) - (let ((_%tl4944650085%_ + __tmp84147)) + (_%__kont7928279283%_ + _%L50221%_ + _%L50223%_ + _%L50224%_ + _%L50225%_) + (_%__match7936679367%_ + _%e4950750141%_ + _%hd4950850145%_ + _%tl4950950148%_ + _%e4951050151%_ + _%hd4951150155%_ + _%tl4951250158%_ + _%e4951350161%_ + _%hd4951450165%_ + _%tl4951550168%_ + _%e4951650171%_ + _%hd4951750175%_ + _%tl4951850178%_)))))))) + (_%loop4952550197%_ _%target4952250191%_ '()))))) + (if (gx#stx-pair? _%__stx7927979280%_) + (let ((_%e4950750141%_ (gx#syntax-e _%__stx7927979280%_))) + (let ((_%tl4950950148%_ (let () (declare (not safe)) - (##cdr _%e4944450078%_))) - (_%hd4944550082%_ + (##cdr _%e4950750141%_))) + (_%hd4950850145%_ (let () (declare (not safe)) - (##car _%e4944450078%_)))) - (if (gx#stx-pair? _%tl4944650085%_) - (let ((_%e4944750088%_ - (gx#syntax-e _%tl4944650085%_))) - (let ((_%tl4944950095%_ + (##car _%e4950750141%_)))) + (if (gx#stx-pair? _%tl4950950148%_) + (let ((_%e4951050151%_ + (gx#syntax-e _%tl4950950148%_))) + (let ((_%tl4951250158%_ (let () (declare (not safe)) - (##cdr _%e4944750088%_))) - (_%hd4944850092%_ + (##cdr _%e4951050151%_))) + (_%hd4951150155%_ (let () (declare (not safe)) - (##car _%e4944750088%_)))) - (if (gx#stx-pair? _%hd4944850092%_) - (let ((_%e4945050098%_ - (gx#syntax-e _%hd4944850092%_))) - (let ((_%tl4945250105%_ + (##car _%e4951050151%_)))) + (if (gx#stx-pair? _%hd4951150155%_) + (let ((_%e4951350161%_ + (gx#syntax-e _%hd4951150155%_))) + (let ((_%tl4951550168%_ (let () (declare (not safe)) - (##cdr _%e4945050098%_))) - (_%hd4945150102%_ + (##cdr _%e4951350161%_))) + (_%hd4951450165%_ (let () (declare (not safe)) - (##car _%e4945050098%_)))) - (if (gx#stx-pair? _%tl4945250105%_) - (let ((_%e4945350108%_ + (##car _%e4951350161%_)))) + (if (gx#stx-pair? _%tl4951550168%_) + (let ((_%e4951650171%_ (gx#syntax-e - _%tl4945250105%_))) - (let ((_%tl4945550115%_ + _%tl4951550168%_))) + (let ((_%tl4951850178%_ (let () (declare (not safe)) - (##cdr _%e4945350108%_))) - (_%hd4945450112%_ + (##cdr _%e4951650171%_))) + (_%hd4951750175%_ (let () (declare (not safe)) - (##car _%e4945350108%_)))) + (##car _%e4951650171%_)))) (if (gx#stx-pair? - _%tl4945550115%_) - (let ((_%e4945650118%_ + _%tl4951850178%_) + (let ((_%e4951950181%_ (gx#syntax-e - _%tl4945550115%_))) - (let ((_%tl4945850125%_ + _%tl4951850178%_))) + (let ((_%tl4952150188%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4945650118%_))) - (_%hd4945750122%_ - (let () (declare (not safe)) (##car _%e4945650118%_)))) - (if (gx#stx-null? _%tl4945850125%_) - (if (gx#stx-pair/null? _%tl4944950095%_) - (let ((_%__splice7922179222%_ - (gx#syntax-split-splice _%tl4944950095%_ '0))) - (let ((_%tl4946150131%_ + (##cdr _%e4951950181%_))) + (_%hd4952050185%_ + (let () (declare (not safe)) (##car _%e4951950181%_)))) + (if (gx#stx-null? _%tl4952150188%_) + (if (gx#stx-pair/null? _%tl4951250158%_) + (let ((_%__splice7928479285%_ + (gx#syntax-split-splice _%tl4951250158%_ '0))) + (let ((_%tl4952450194%_ (let () (declare (not safe)) - (##vector-ref _%__splice7922179222%_ '1))) - (_%target4945950128%_ + (##vector-ref _%__splice7928479285%_ '1))) + (_%target4952250191%_ (let () (declare (not safe)) - (##vector-ref _%__splice7922179222%_ '0)))) - (if (gx#stx-null? _%tl4946150131%_) - (_%__match7927979280%_ - _%e4944450078%_ - _%hd4944550082%_ - _%tl4944650085%_ - _%e4944750088%_ - _%hd4944850092%_ - _%tl4944950095%_ - _%e4945050098%_ - _%hd4945150102%_ - _%tl4945250105%_ - _%e4945350108%_ - _%hd4945450112%_ - _%tl4945550115%_ - _%e4945650118%_ - _%hd4945750122%_ - _%tl4945850125%_ - _%__splice7922179222%_ - _%target4945950128%_ - _%tl4946150131%_) + (##vector-ref _%__splice7928479285%_ '0)))) + (if (gx#stx-null? _%tl4952450194%_) + (_%__match7934279343%_ + _%e4950750141%_ + _%hd4950850145%_ + _%tl4950950148%_ + _%e4951050151%_ + _%hd4951150155%_ + _%tl4951250158%_ + _%e4951350161%_ + _%hd4951450165%_ + _%tl4951550168%_ + _%e4951650171%_ + _%hd4951750175%_ + _%tl4951850178%_ + _%e4951950181%_ + _%hd4952050185%_ + _%tl4952150188%_ + _%__splice7928479285%_ + _%target4952250191%_ + _%tl4952450194%_) (let () (declare (not safe)) - (_%g4943849581%_))))) - (let () (declare (not safe)) (_%g4943849581%_))) - (let () (declare (not safe)) (_%g4943849581%_))))) + (_%g4950149644%_))))) + (let () (declare (not safe)) (_%g4950149644%_))) + (let () (declare (not safe)) (_%g4950149644%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))))) + (_%g4950149644%_))))) (let () (declare (not safe)) - (_%g4943849581%_))))) - (let () (declare (not safe)) (_%g4943849581%_))))) - (let () (declare (not safe)) (_%g4943849581%_))))))))) + (_%g4950149644%_))))) + (let () (declare (not safe)) (_%g4950149644%_))))) + (let () (declare (not safe)) (_%g4950149644%_))))))))) (define |gerbil/core/contract~Using[:0:]#%%app-dotted| - (lambda (_%stx50652%_) - (let* ((_%__stx7945879459%_ _%stx50652%_) - (_%g5065750717%_ + (lambda (_%stx50715%_) + (let* ((_%__stx7952179522%_ _%stx50715%_) + (_%g5072050780%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7945879459%_)))) - (let ((_%__kont7946179462%_ - (lambda (_%L51279%_ _%L51281%_) + _%__stx7952179522%_)))) + (let ((_%__kont7952479525%_ + (lambda (_%L51342%_ _%L51344%_) (cons (gx#datum->syntax '#f '%%app-dotted) (cons (cons (gx#datum->syntax '#f '%%ref-dotted) - (cons _%L51281%_ '())) - (foldr (lambda (_%g5129751300%_ _%g5129851303%_) - (cons _%g5129751300%_ _%g5129851303%_)) + (cons _%L51344%_ '())) + (foldr (lambda (_%g5136051363%_ _%g5136151366%_) + (cons _%g5136051363%_ _%g5136151366%_)) '() - _%L51279%_))))) - (_%__kont7946579466%_ - (lambda (_%L50865%_ _%L50867%_) + _%L51342%_))))) + (_%__kont7952879529%_ + (lambda (_%L50928%_ _%L50930%_) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L50867%_) - (let* ((_%g5088750894%_ + _%L50930%_) + (let* ((_%g5095050957%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx50652%_ - _%L50867%_)) - (_%E5088950900%_ + _%stx50715%_ + _%L50930%_)) + (_%E5095250963%_ (lambda () (error '"No clause matching" - _%g5088750894%_ + _%g5095050957%_ '([var . parts])) (void))) - (_%K5089051198%_ - (lambda (_%parts50904%_ _%var50906%_) - (let ((_%$e50908%_ + (_%K5095351261%_ + (lambda (_%parts50967%_ _%var50969%_) + (let ((_%$e50971%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var50906%_)))) - (if _%$e50908%_ - ((lambda (_%te50912%_) - (let _%loop50915%_ ((_%parts50918%_ - _%parts50904%_) - (_%type50920%_ + _%var50969%_)))) + (if _%$e50971%_ + ((lambda (_%te50975%_) + (let _%loop50978%_ ((_%parts50981%_ + _%parts50967%_) + (_%type50983%_ (##direct-structure-ref - _%te50912%_ + _%te50975%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object50921%_ - _%var50906%_) - (_%checked-method?50922%_ + (_%object50984%_ + _%var50969%_) + (_%checked-method?50985%_ (##direct-structure-ref - _%te50912%_ + _%te50975%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?50923%_ + (_%nil-check?50986%_ '#f)) - (let* ((_%parts5092450932%_ - _%parts50918%_) - (_%else5092650993%_ + (let* ((_%parts5098750995%_ + _%parts50981%_) + (_%else5098951056%_ (lambda () - (let* ((_%g5094450952%_ - (lambda (_%g5094550948%_) + (let* ((_%g5100751015%_ + (lambda (_%g5100851011%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g5094550948%_))) - (_%g5094350989%_ - (lambda (_%g5094550956%_) - ((lambda (_%L50959%_) + _%g5100851011%_))) + (_%g5100651052%_ + (lambda (_%g5100851019%_) + ((lambda (_%L51022%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50959%_ - (foldr (lambda (_%g5098050983%_ - _%g5098150986%_) - (cons _%g5098050983%_ - _%g5098150986%_)) + (cons _%L51022%_ + (foldr (lambda (_%g5104351046%_ + _%g5104451049%_) + (cons _%g5104351046%_ + _%g5104451049%_)) '() - _%L50865%_)))) - _%g5094550956%_)))) - (_%g5094350989%_ _%object50921%_)))) + _%L50928%_)))) + _%g5100851019%_)))) + (_%g5100651052%_ _%object50984%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5092851172%_ - (lambda (_%rest50997%_ - _%part50999%_) - (if (and (not _%nil-check?50923%_) - (let ((__tmp84085 + (_%K5099151235%_ + (lambda (_%rest51060%_ + _%part51062%_) + (if (and (not _%nil-check?50986%_) + (let ((__tmp84148 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part50999%_))) + (symbol->string _%part51062%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84085))) - (let ((_%str51003%_ (symbol->string _%part50999%_))) - (_%loop50915%_ - (cons (let ((__tmp84086 + (##string-prefix? '"?" __tmp84148))) + (let ((_%str51066%_ (symbol->string _%part51062%_))) + (_%loop50978%_ + (cons (let ((__tmp84149 (substring - _%str51003%_ + _%str51066%_ '1 - (string-length _%str51003%_)))) + (string-length _%str51066%_)))) (declare (not safe)) - (##string->symbol __tmp84086)) - _%rest50997%_) - _%type50920%_ - _%object50921%_ - _%checked-method?50922%_ + (##string->symbol __tmp84149)) + _%rest51060%_) + _%type50983%_ + _%object50984%_ + _%checked-method?50985%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type50920%_)) - (let* ((_%g5100851023%_ - (lambda (_%g5100951019%_) + _%type50983%_)) + (let* ((_%g5107151086%_ + (lambda (_%g5107251082%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5100951019%_))) - (_%g5100751092%_ - (lambda (_%g5100951027%_) - (if (gx#stx-pair? _%g5100951027%_) - (let ((_%e5101251030%_ - (gx#syntax-e _%g5100951027%_))) - (let ((_%hd5101351034%_ + _%g5107251082%_))) + (_%g5107051155%_ + (lambda (_%g5107251090%_) + (if (gx#stx-pair? _%g5107251090%_) + (let ((_%e5107551093%_ + (gx#syntax-e _%g5107251090%_))) + (let ((_%hd5107651097%_ (let () (declare (not safe)) - (##car _%e5101251030%_))) - (_%tl5101451037%_ + (##car _%e5107551093%_))) + (_%tl5107751100%_ (let () (declare (not safe)) - (##cdr _%e5101251030%_)))) - (if (gx#stx-pair? _%tl5101451037%_) - (let ((_%e5101551040%_ + (##cdr _%e5107551093%_)))) + (if (gx#stx-pair? _%tl5107751100%_) + (let ((_%e5107851103%_ (gx#syntax-e - _%tl5101451037%_))) - (let ((_%hd5101651044%_ + _%tl5107751100%_))) + (let ((_%hd5107951107%_ (let () (declare (not safe)) - (##car _%e5101551040%_))) - (_%tl5101751047%_ + (##car _%e5107851103%_))) + (_%tl5108051110%_ (let () (declare (not safe)) - (##cdr _%e5101551040%_)))) + (##cdr _%e5107851103%_)))) (if (gx#stx-null? - _%tl5101751047%_) - ((lambda (_%L51050%_ - _%L51052%_) - (if (null? _%rest50997%_) + _%tl5108051110%_) + ((lambda (_%L51113%_ + _%L51115%_) + (if (null? _%rest51060%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%app) - (cons (cons _%L51050%_ (cons _%L51052%_ '())) - (foldr (lambda (_%g5107151074%_ _%g5107251077%_) - (cons _%g5107151074%_ _%g5107251077%_)) + (cons (cons _%L51113%_ (cons _%L51115%_ '())) + (foldr (lambda (_%g5113451137%_ _%g5113551140%_) + (cons _%g5113451137%_ _%g5113551140%_)) '() - _%L50865%_))) - (let ((_%$e51080%_ + _%L50928%_))) + (let ((_%$e51143%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type50920%_ - _%part50999%_))) - (if _%$e51080%_ - ((lambda (_%slot-type51084%_) - (let ((_%slot-type51087%_ + _%type50983%_ + _%part51062%_))) + (if _%$e51143%_ + ((lambda (_%slot-type51147%_) + (let ((_%slot-type51150%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx50652%_ - _%slot-type51084%_)))) - (_%loop50915%_ - _%rest50997%_ - _%slot-type51087%_ - (cons _%L51050%_ (cons _%L51052%_ '())) + _%stx50715%_ + _%slot-type51147%_)))) + (_%loop50978%_ + _%rest51060%_ + _%slot-type51150%_ + (cons _%L51113%_ (cons _%L51115%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-method-contract?| - _%type50920%_ - _%part50999%_) + _%type50983%_ + _%part51062%_) '#f))) - _%$e51080%_) + _%$e51143%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx50652%_ - _%L50867%_ - _%part50999%_))))) + _%stx50715%_ + _%L50930%_ + _%part51062%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5101651044%_ - _%hd5101351034%_) - (_%g5100851023%_ - _%g5100951027%_)))) - (_%g5100851023%_ - _%g5100951027%_)))) - (_%g5100851023%_ _%g5100951027%_))))) - (_%g5100751092%_ - (list (if _%nil-check?50923%_ + _%hd5107951107%_ + _%hd5107651097%_) + (_%g5107151086%_ + _%g5107251090%_)))) + (_%g5107151086%_ + _%g5107251090%_)))) + (_%g5107151086%_ _%g5107251090%_))))) + (_%g5107051155%_ + (list (if _%nil-check?50986%_ (cons 'check-nil! - (cons _%object50921%_ '())) - _%object50921%_) + (cons _%object50984%_ '())) + _%object50984%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx50652%_ - _%type50920%_ - _%part50999%_)))) + _%stx50715%_ + _%type50983%_ + _%part51062%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type50920%_)) - (if (null? _%rest50997%_) - (let* ((_%g5109851113%_ - (lambda (_%g5109951109%_) + _%type50983%_)) + (if (null? _%rest51060%_) + (let* ((_%g5116151176%_ + (lambda (_%g5116251172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5109951109%_))) - (_%g5109751166%_ - (lambda (_%g5109951117%_) - (if (gx#stx-pair? _%g5109951117%_) - (let ((_%e5110251120%_ + _%g5116251172%_))) + (_%g5116051229%_ + (lambda (_%g5116251180%_) + (if (gx#stx-pair? _%g5116251180%_) + (let ((_%e5116551183%_ (gx#syntax-e - _%g5109951117%_))) - (let ((_%hd5110351124%_ + _%g5116251180%_))) + (let ((_%hd5116651187%_ (let () (declare (not safe)) - (##car _%e5110251120%_))) - (_%tl5110451127%_ + (##car _%e5116551183%_))) + (_%tl5116751190%_ (let () (declare (not safe)) - (##cdr _%e5110251120%_)))) + (##cdr _%e5116551183%_)))) (if (gx#stx-pair? - _%tl5110451127%_) - (let ((_%e5110551130%_ + _%tl5116751190%_) + (let ((_%e5116851193%_ (gx#syntax-e - _%tl5110451127%_))) - (let ((_%hd5110651134%_ + _%tl5116751190%_))) + (let ((_%hd5116951197%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5110551130%_))) - (_%tl5110751137%_ - (let () (declare (not safe)) (##cdr _%e5110551130%_)))) - (if (gx#stx-null? _%tl5110751137%_) - ((lambda (_%L51140%_ _%L51142%_) - (cons _%L51140%_ - (cons _%L51142%_ - (foldr (lambda (_%g5115751160%_ - _%g5115851163%_) - (cons _%g5115751160%_ - _%g5115851163%_)) + (##car _%e5116851193%_))) + (_%tl5117051200%_ + (let () (declare (not safe)) (##cdr _%e5116851193%_)))) + (if (gx#stx-null? _%tl5117051200%_) + ((lambda (_%L51203%_ _%L51205%_) + (cons _%L51203%_ + (cons _%L51205%_ + (foldr (lambda (_%g5122051223%_ + _%g5122151226%_) + (cons _%g5122051223%_ + _%g5122151226%_)) '() - _%L50865%_)))) - _%hd5110651134%_ - _%hd5110351124%_) - (_%g5109851113%_ _%g5109951117%_)))) + _%L50928%_)))) + _%hd5116951197%_ + _%hd5116651187%_) + (_%g5116151176%_ _%g5116251180%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5109851113%_ - _%g5109951117%_)))) - (_%g5109851113%_ - _%g5109951117%_))))) - (_%g5109751166%_ - (list (if _%nil-check?50923%_ + (_%g5116151176%_ + _%g5116251180%_)))) + (_%g5116151176%_ + _%g5116251180%_))))) + (_%g5116051229%_ + (list (if _%nil-check?50986%_ (cons 'check-nil! - (cons _%object50921%_ '())) - _%object50921%_) + (cons _%object50984%_ '())) + _%object50984%_) (gx#stx-identifier - _%L50867%_ - (if _%checked-method?50922%_ '"" '"&") - (let ((__obj83915 _%type50920%_)) + _%L50930%_ + (if _%checked-method?50985%_ '"" '"&") + (let ((__obj83978 _%type50983%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83915 + __obj83978 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83915 + __obj83978 '1 '#f '#f)) (unchecked-slot-ref - __obj83915 + __obj83978 'name))) '"-" - _%part50999%_)))) + _%part51062%_)))) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots" - _%stx50652%_ - _%L50867%_ - _%part50999%_)) + _%stx50715%_ + _%L50930%_ + _%part51062%_)) (gx#raise-syntax-error '#f '"unexpected type" - _%stx50652%_ - _%type50920%_))))))) + _%stx50715%_ + _%type50983%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5092450932%_) - (let ((_%hd5092951176%_ + (if (pair? _%parts5098750995%_) + (let ((_%hd5099251239%_ (let () (declare (not safe)) - (##car _%parts5092450932%_))) - (_%tl5093051179%_ + (##car _%parts5098750995%_))) + (_%tl5099351242%_ (let () (declare (not safe)) - (##cdr _%parts5092450932%_)))) - (let* ((_%part51182%_ - _%hd5092951176%_) - (_%rest51185%_ - _%tl5093051179%_)) - (_%K5092851172%_ - _%rest51185%_ - _%part51182%_))) - (_%else5092650993%_))))) - _%$e50908%_) + (##cdr _%parts5098750995%_)))) + (let* ((_%part51245%_ + _%hd5099251239%_) + (_%rest51248%_ + _%tl5099351242%_)) + (_%K5099151235%_ + _%rest51248%_ + _%part51245%_))) + (_%else5098951056%_))))) + _%$e50971%_) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50867%_ - (foldr (lambda (_%g5118951192%_ + (cons _%L50930%_ + (foldr (lambda (_%g5125251255%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g5119051195%_) - (cons _%g5118951192%_ _%g5119051195%_)) + _%g5125351258%_) + (cons _%g5125251255%_ _%g5125351258%_)) '() - _%L50865%_)))))))) + _%L50928%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%g5088750894%_) - (let ((_%hd5089151202%_ + (if (pair? _%g5095050957%_) + (let ((_%hd5095451265%_ (let () (declare (not safe)) - (##car _%g5088750894%_))) - (_%tl5089251205%_ + (##car _%g5095050957%_))) + (_%tl5095551268%_ (let () (declare (not safe)) - (##cdr _%g5088750894%_)))) - (let* ((_%var51208%_ _%hd5089151202%_) - (_%parts51211%_ _%tl5089251205%_)) - (_%K5089051198%_ - _%parts51211%_ - _%var51208%_))) - (_%E5088950900%_))) + (##cdr _%g5095050957%_)))) + (let* ((_%var51271%_ _%hd5095451265%_) + (_%parts51274%_ _%tl5095551268%_)) + (_%K5095351261%_ + _%parts51274%_ + _%var51271%_))) + (_%E5095250963%_))) (cons (gx#datum->syntax '#f '%%app) - (cons _%L50867%_ - (foldr (lambda (_%g5121351216%_ - _%g5121451219%_) - (cons _%g5121351216%_ - _%g5121451219%_)) + (cons _%L50930%_ + (foldr (lambda (_%g5127651279%_ + _%g5127751282%_) + (cons _%g5127651279%_ + _%g5127751282%_)) '() - _%L50865%_)))))) - (_%__kont7946979470%_ - (lambda (_%L50764%_) + _%L50928%_)))))) + (_%__kont7953279533%_ + (lambda (_%L50827%_) (cons (gx#datum->syntax '#f '%%app) - (foldr (lambda (_%g5077950782%_ _%g5078050785%_) - (cons _%g5077950782%_ _%g5078050785%_)) + (foldr (lambda (_%g5084250845%_ _%g5084350848%_) + (cons _%g5084250845%_ _%g5084350848%_)) '() - _%L50764%_))))) - (let* ((_%__match7954579546%_ - (lambda (_%e5070050724%_ - _%hd5070150728%_ - _%tl5070250731%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (letrec ((_%loop5070650740%_ - (lambda (_%hd5070450744%_ _%arg5071050747%_) - (if (gx#stx-pair? _%hd5070450744%_) - (let ((_%e5070750750%_ - (gx#syntax-e _%hd5070450744%_))) - (let ((_%lp-tl5070950757%_ + _%L50827%_))))) + (let* ((_%__match7960879609%_ + (lambda (_%e5076350787%_ + _%hd5076450791%_ + _%tl5076550794%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (letrec ((_%loop5076950803%_ + (lambda (_%hd5076750807%_ _%arg5077350810%_) + (if (gx#stx-pair? _%hd5076750807%_) + (let ((_%e5077050813%_ + (gx#syntax-e _%hd5076750807%_))) + (let ((_%lp-tl5077250820%_ (let () (declare (not safe)) - (##cdr _%e5070750750%_))) - (_%lp-hd5070850754%_ + (##cdr _%e5077050813%_))) + (_%lp-hd5077150817%_ (let () (declare (not safe)) - (##car _%e5070750750%_)))) - (_%loop5070650740%_ - _%lp-tl5070950757%_ - (cons _%lp-hd5070850754%_ - _%arg5071050747%_)))) - (let ((_%arg5071150760%_ - (reverse _%arg5071050747%_))) - (_%__kont7946979470%_ - _%arg5071150760%_)))))) - (_%loop5070650740%_ _%target5070350734%_ '())))) - (_%__match7953179532%_ - (lambda (_%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%e5068150805%_ - _%hd5068250809%_ - _%tl5068350812%_ - _%e5068450815%_ - _%hd5068550819%_ - _%tl5068650822%_ - _%e5068750825%_ - _%hd5068850829%_ - _%tl5068950832%_ - _%__splice7946779468%_ - _%target5069050835%_ - _%tl5069250838%_) - (letrec ((_%loop5069350841%_ - (lambda (_%hd5069150845%_ _%rand5069750848%_) - (if (gx#stx-pair? _%hd5069150845%_) - (let ((_%e5069450851%_ - (gx#syntax-e _%hd5069150845%_))) - (let ((_%lp-tl5069650858%_ + (##car _%e5077050813%_)))) + (_%loop5076950803%_ + _%lp-tl5077250820%_ + (cons _%lp-hd5077150817%_ + _%arg5077350810%_)))) + (let ((_%arg5077450823%_ + (reverse _%arg5077350810%_))) + (_%__kont7953279533%_ + _%arg5077450823%_)))))) + (_%loop5076950803%_ _%target5076650797%_ '())))) + (_%__match7959479595%_ + (lambda (_%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%e5074450868%_ + _%hd5074550872%_ + _%tl5074650875%_ + _%e5074750878%_ + _%hd5074850882%_ + _%tl5074950885%_ + _%e5075050888%_ + _%hd5075150892%_ + _%tl5075250895%_ + _%__splice7953079531%_ + _%target5075350898%_ + _%tl5075550901%_) + (letrec ((_%loop5075650904%_ + (lambda (_%hd5075450908%_ _%rand5076050911%_) + (if (gx#stx-pair? _%hd5075450908%_) + (let ((_%e5075750914%_ + (gx#syntax-e _%hd5075450908%_))) + (let ((_%lp-tl5075950921%_ (let () (declare (not safe)) - (##cdr _%e5069450851%_))) - (_%lp-hd5069550855%_ + (##cdr _%e5075750914%_))) + (_%lp-hd5075850918%_ (let () (declare (not safe)) - (##car _%e5069450851%_)))) - (_%loop5069350841%_ - _%lp-tl5069650858%_ - (cons _%lp-hd5069550855%_ - _%rand5069750848%_)))) - (let ((_%rand5069850861%_ - (reverse _%rand5069750848%_))) - (_%__kont7946579466%_ - _%rand5069850861%_ - _%hd5068850829%_)))))) - (_%loop5069350841%_ _%target5069050835%_ '())))) - (_%__match7950579506%_ - (lambda (_%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%e5068150805%_ - _%hd5068250809%_ - _%tl5068350812%_) - (if (gx#stx-pair? _%hd5068250809%_) - (let ((_%e5068450815%_ - (gx#syntax-e _%hd5068250809%_))) - (let ((_%tl5068650822%_ + (##car _%e5075750914%_)))) + (_%loop5075650904%_ + _%lp-tl5075950921%_ + (cons _%lp-hd5075850918%_ + _%rand5076050911%_)))) + (let ((_%rand5076150924%_ + (reverse _%rand5076050911%_))) + (_%__kont7952879529%_ + _%rand5076150924%_ + _%hd5075150892%_)))))) + (_%loop5075650904%_ _%target5075350898%_ '())))) + (_%__match7956879569%_ + (lambda (_%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%e5074450868%_ + _%hd5074550872%_ + _%tl5074650875%_) + (if (gx#stx-pair? _%hd5074550872%_) + (let ((_%e5074750878%_ + (gx#syntax-e _%hd5074550872%_))) + (let ((_%tl5074950885%_ (let () (declare (not safe)) - (##cdr _%e5068450815%_))) - (_%hd5068550819%_ + (##cdr _%e5074750878%_))) + (_%hd5074850882%_ (let () (declare (not safe)) - (##car _%e5068450815%_)))) - (if (gx#identifier? _%hd5068550819%_) + (##car _%e5074750878%_)))) + (if (gx#identifier? _%hd5074850882%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84087_| - _%hd5068550819%_) - (if (gx#stx-pair? _%tl5068650822%_) - (let ((_%e5068750825%_ + |gerbil/core/contract~Using[1]#_g84150_| + _%hd5074850882%_) + (if (gx#stx-pair? _%tl5074950885%_) + (let ((_%e5075050888%_ (gx#syntax-e - _%tl5068650822%_))) - (let ((_%tl5068950832%_ + _%tl5074950885%_))) + (let ((_%tl5075250895%_ (let () (declare (not safe)) - (##cdr _%e5068750825%_))) - (_%hd5068850829%_ + (##cdr _%e5075050888%_))) + (_%hd5075150892%_ (let () (declare (not safe)) - (##car _%e5068750825%_)))) + (##car _%e5075050888%_)))) (if (gx#stx-null? - _%tl5068950832%_) + _%tl5075250895%_) (if (gx#stx-pair/null? - _%tl5068350812%_) - (let ((_%__splice7946779468%_ + _%tl5074650875%_) + (let ((_%__splice7953079531%_ (gx#syntax-split-splice - _%tl5068350812%_ + _%tl5074650875%_ '0))) - (let ((_%tl5069250838%_ + (let ((_%tl5075550901%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7946779468%_ '1))) - (_%target5069050835%_ + (##vector-ref _%__splice7953079531%_ '1))) + (_%target5075350898%_ (let () (declare (not safe)) - (##vector-ref _%__splice7946779468%_ '0)))) - (if (gx#stx-null? _%tl5069250838%_) - (_%__match7953179532%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%e5068150805%_ - _%hd5068250809%_ - _%tl5068350812%_ - _%e5068450815%_ - _%hd5068550819%_ - _%tl5068650822%_ - _%e5068750825%_ - _%hd5068850829%_ - _%tl5068950832%_ - _%__splice7946779468%_ - _%target5069050835%_ - _%tl5069250838%_) - (if (gx#stx-pair/null? _%tl5068050802%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5068050802%_ '0))) - (let ((_%tl5070550737%_ + (##vector-ref _%__splice7953079531%_ '0)))) + (if (gx#stx-null? _%tl5075550901%_) + (_%__match7959479595%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%e5074450868%_ + _%hd5074550872%_ + _%tl5074650875%_ + _%e5074750878%_ + _%hd5074850882%_ + _%tl5074950885%_ + _%e5075050888%_ + _%hd5075150892%_ + _%tl5075250895%_ + _%__splice7953079531%_ + _%target5075350898%_ + _%tl5075550901%_) + (if (gx#stx-pair/null? _%tl5074350865%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5074350865%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))))) - (if (gx#stx-pair/null? _%tl5068050802%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5068050802%_ '0))) - (let ((_%tl5070550737%_ + (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))))) + (if (gx#stx-pair/null? _%tl5074350865%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5074350865%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (let () (declare (not safe)) (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (let () (declare (not safe)) (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5068050802%_) - (let ((_%__splice7947179472%_ + _%tl5074350865%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5068050802%_ + _%tl5074350865%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (let () (declare (not safe)) (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))))) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (let () (declare (not safe)) (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5068050802%_) - (let ((_%__splice7947179472%_ + _%tl5074350865%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5068050802%_ + _%tl5074350865%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) (if (gx#stx-null? - _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))) - (if (gx#stx-pair/null? _%tl5068050802%_) - (let ((_%__splice7947179472%_ + (_%g5072050780%_)))) + (if (gx#stx-pair/null? _%tl5074350865%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5068050802%_ + _%tl5074350865%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) (if (gx#stx-null? - _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))) - (if (gx#stx-pair/null? _%tl5068050802%_) - (let ((_%__splice7947179472%_ + (_%g5072050780%_)))) + (if (gx#stx-pair/null? _%tl5074350865%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5068050802%_ + _%tl5074350865%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))))) - (if (gx#stx-pair/null? _%tl5068050802%_) - (let ((_%__splice7947179472%_ + (_%g5072050780%_)))))) + (if (gx#stx-pair/null? _%tl5074350865%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5068050802%_ + _%tl5074350865%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5067850795%_ - _%hd5067950799%_ - _%tl5068050802%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5074150858%_ + _%hd5074250862%_ + _%tl5074350865%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))))) - (_%__match7949379494%_ - (lambda (_%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%e5066451239%_ - _%hd5066551243%_ - _%tl5066651246%_ - _%__splice7946379464%_ - _%target5066751249%_ - _%tl5066951252%_) - (letrec ((_%loop5067051255%_ - (lambda (_%hd5066851259%_ _%rand5067451262%_) - (if (gx#stx-pair? _%hd5066851259%_) - (let ((_%e5067151265%_ - (gx#syntax-e _%hd5066851259%_))) - (let ((_%lp-tl5067351272%_ + (_%g5072050780%_)))))) + (_%__match7955679557%_ + (lambda (_%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%e5072751302%_ + _%hd5072851306%_ + _%tl5072951309%_ + _%__splice7952679527%_ + _%target5073051312%_ + _%tl5073251315%_) + (letrec ((_%loop5073351318%_ + (lambda (_%hd5073151322%_ _%rand5073751325%_) + (if (gx#stx-pair? _%hd5073151322%_) + (let ((_%e5073451328%_ + (gx#syntax-e _%hd5073151322%_))) + (let ((_%lp-tl5073651335%_ (let () (declare (not safe)) - (##cdr _%e5067151265%_))) - (_%lp-hd5067251269%_ + (##cdr _%e5073451328%_))) + (_%lp-hd5073551332%_ (let () (declare (not safe)) - (##car _%e5067151265%_)))) - (_%loop5067051255%_ - _%lp-tl5067351272%_ - (cons _%lp-hd5067251269%_ - _%rand5067451262%_)))) - (let ((_%rand5067551275%_ - (reverse _%rand5067451262%_))) - (let ((_%L51279%_ _%rand5067551275%_) - (_%L51281%_ _%hd5066551243%_)) - (if (gx#identifier? _%L51281%_) - (_%__kont7946179462%_ - _%L51279%_ - _%L51281%_) - (_%__match7950579506%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%e5066451239%_ - _%hd5066551243%_ - _%tl5066651246%_)))))))) - (_%loop5067051255%_ _%target5066751249%_ '()))))) - (if (gx#stx-pair? _%__stx7945879459%_) - (let ((_%e5066151229%_ (gx#syntax-e _%__stx7945879459%_))) - (let ((_%tl5066351236%_ + (##car _%e5073451328%_)))) + (_%loop5073351318%_ + _%lp-tl5073651335%_ + (cons _%lp-hd5073551332%_ + _%rand5073751325%_)))) + (let ((_%rand5073851338%_ + (reverse _%rand5073751325%_))) + (let ((_%L51342%_ _%rand5073851338%_) + (_%L51344%_ _%hd5072851306%_)) + (if (gx#identifier? _%L51344%_) + (_%__kont7952479525%_ + _%L51342%_ + _%L51344%_) + (_%__match7956879569%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%e5072751302%_ + _%hd5072851306%_ + _%tl5072951309%_)))))))) + (_%loop5073351318%_ _%target5073051312%_ '()))))) + (if (gx#stx-pair? _%__stx7952179522%_) + (let ((_%e5072451292%_ (gx#syntax-e _%__stx7952179522%_))) + (let ((_%tl5072651299%_ (let () (declare (not safe)) - (##cdr _%e5066151229%_))) - (_%hd5066251233%_ + (##cdr _%e5072451292%_))) + (_%hd5072551296%_ (let () (declare (not safe)) - (##car _%e5066151229%_)))) - (if (gx#stx-pair? _%tl5066351236%_) - (let ((_%e5066451239%_ - (gx#syntax-e _%tl5066351236%_))) - (let ((_%tl5066651246%_ + (##car _%e5072451292%_)))) + (if (gx#stx-pair? _%tl5072651299%_) + (let ((_%e5072751302%_ + (gx#syntax-e _%tl5072651299%_))) + (let ((_%tl5072951309%_ (let () (declare (not safe)) - (##cdr _%e5066451239%_))) - (_%hd5066551243%_ + (##cdr _%e5072751302%_))) + (_%hd5072851306%_ (let () (declare (not safe)) - (##car _%e5066451239%_)))) - (if (gx#stx-pair/null? _%tl5066651246%_) - (let ((_%__splice7946379464%_ + (##car _%e5072751302%_)))) + (if (gx#stx-pair/null? _%tl5072951309%_) + (let ((_%__splice7952679527%_ (gx#syntax-split-splice - _%tl5066651246%_ + _%tl5072951309%_ '0))) - (let ((_%tl5066951252%_ + (let ((_%tl5073251315%_ (let () (declare (not safe)) (##vector-ref - _%__splice7946379464%_ + _%__splice7952679527%_ '1))) - (_%target5066751249%_ + (_%target5073051312%_ (let () (declare (not safe)) (##vector-ref - _%__splice7946379464%_ + _%__splice7952679527%_ '0)))) - (if (gx#stx-null? _%tl5066951252%_) - (_%__match7949379494%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%e5066451239%_ - _%hd5066551243%_ - _%tl5066651246%_ - _%__splice7946379464%_ - _%target5066751249%_ - _%tl5066951252%_) - (if (gx#stx-pair? _%hd5066551243%_) - (let ((_%e5068450815%_ + (if (gx#stx-null? _%tl5073251315%_) + (_%__match7955679557%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%e5072751302%_ + _%hd5072851306%_ + _%tl5072951309%_ + _%__splice7952679527%_ + _%target5073051312%_ + _%tl5073251315%_) + (if (gx#stx-pair? _%hd5072851306%_) + (let ((_%e5074750878%_ (gx#syntax-e - _%hd5066551243%_))) - (let ((_%tl5068650822%_ + _%hd5072851306%_))) + (let ((_%tl5074950885%_ (let () (declare (not safe)) - (##cdr _%e5068450815%_))) - (_%hd5068550819%_ + (##cdr _%e5074750878%_))) + (_%hd5074850882%_ (let () (declare (not safe)) - (##car _%e5068450815%_)))) + (##car _%e5074750878%_)))) (if (gx#identifier? - _%hd5068550819%_) + _%hd5074850882%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84087_| - _%hd5068550819%_) + |gerbil/core/contract~Using[1]#_g84150_| + _%hd5074850882%_) (if (gx#stx-pair? - _%tl5068650822%_) - (let ((_%e5068750825%_ + _%tl5074950885%_) + (let ((_%e5075050888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5068650822%_))) - (let ((_%tl5068950832%_ + (gx#syntax-e _%tl5074950885%_))) + (let ((_%tl5075250895%_ (let () (declare (not safe)) - (##cdr _%e5068750825%_))) - (_%hd5068850829%_ + (##cdr _%e5075050888%_))) + (_%hd5075150892%_ (let () (declare (not safe)) - (##car _%e5068750825%_)))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ + (##car _%e5075050888%_)))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_))))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5066351236%_ '0))) - (let ((_%tl5070550737%_ + (_%g5072050780%_))))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5072651299%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5066351236%_ '0))) - (let ((_%tl5070550737%_ + (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5072651299%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5066351236%_ '0))) - (let ((_%tl5070550737%_ + (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5072651299%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (let () (declare (not safe)) (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))))) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (let () (declare (not safe)) (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5066351236%_) - (let ((_%__splice7947179472%_ + _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) (if (gx#stx-null? - _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_))))))) - (if (gx#stx-pair? _%hd5066551243%_) - (let ((_%e5068450815%_ - (gx#syntax-e _%hd5066551243%_))) - (let ((_%tl5068650822%_ + (_%g5072050780%_))))))) + (if (gx#stx-pair? _%hd5072851306%_) + (let ((_%e5074750878%_ + (gx#syntax-e _%hd5072851306%_))) + (let ((_%tl5074950885%_ (let () (declare (not safe)) - (##cdr _%e5068450815%_))) - (_%hd5068550819%_ + (##cdr _%e5074750878%_))) + (_%hd5074850882%_ (let () (declare (not safe)) - (##car _%e5068450815%_)))) - (if (gx#identifier? _%hd5068550819%_) + (##car _%e5074750878%_)))) + (if (gx#identifier? _%hd5074850882%_) (if (gx#free-identifier=? - |gerbil/core/contract~Using[1]#_g84087_| - _%hd5068550819%_) + |gerbil/core/contract~Using[1]#_g84150_| + _%hd5074850882%_) (if (gx#stx-pair? - _%tl5068650822%_) - (let ((_%e5068750825%_ + _%tl5074950885%_) + (let ((_%e5075050888%_ (gx#syntax-e - _%tl5068650822%_))) - (let ((_%tl5068950832%_ + _%tl5074950885%_))) + (let ((_%tl5075250895%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5068750825%_))) - (_%hd5068850829%_ - (let () (declare (not safe)) (##car _%e5068750825%_)))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5066351236%_ '0))) - (let ((_%tl5070550737%_ + (##cdr _%e5075050888%_))) + (_%hd5075150892%_ + (let () (declare (not safe)) (##car _%e5075050888%_)))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5072651299%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_))))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ - (gx#syntax-split-splice _%tl5066351236%_ '0))) - (let ((_%tl5070550737%_ + (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_))))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ + (gx#syntax-split-splice _%tl5072651299%_ '0))) + (let ((_%tl5076850800%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (let () (declare (not safe)) (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (let () (declare (not safe)) (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5066351236%_) - (let ((_%__splice7947179472%_ + _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '1))) - (_%target5070350734%_ + (##vector-ref _%__splice7953479535%_ '1))) + (_%target5076650797%_ (let () (declare (not safe)) - (##vector-ref _%__splice7947179472%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) - (let () (declare (not safe)) (_%g5065750717%_))))) - (let () (declare (not safe)) (_%g5065750717%_)))) + (##vector-ref _%__splice7953479535%_ '0)))) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) + (let () (declare (not safe)) (_%g5072050780%_))))) + (let () (declare (not safe)) (_%g5072050780%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl5066351236%_) - (let ((_%__splice7947179472%_ + _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) (if (gx#stx-null? - _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ + (_%g5072050780%_)))))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) (if (gx#stx-null? - _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_))))))) - (if (gx#stx-pair/null? _%tl5066351236%_) - (let ((_%__splice7947179472%_ + (_%g5072050780%_))))))) + (if (gx#stx-pair/null? _%tl5072651299%_) + (let ((_%__splice7953479535%_ (gx#syntax-split-splice - _%tl5066351236%_ + _%tl5072651299%_ '0))) - (let ((_%tl5070550737%_ + (let ((_%tl5076850800%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '1))) - (_%target5070350734%_ + (_%target5076650797%_ (let () (declare (not safe)) (##vector-ref - _%__splice7947179472%_ + _%__splice7953479535%_ '0)))) - (if (gx#stx-null? _%tl5070550737%_) - (_%__match7954579546%_ - _%e5066151229%_ - _%hd5066251233%_ - _%tl5066351236%_ - _%__splice7947179472%_ - _%target5070350734%_ - _%tl5070550737%_) + (if (gx#stx-null? _%tl5076850800%_) + (_%__match7960879609%_ + _%e5072451292%_ + _%hd5072551296%_ + _%tl5072651299%_ + _%__splice7953479535%_ + _%target5076650797%_ + _%tl5076850800%_) (let () (declare (not safe)) - (_%g5065750717%_))))) + (_%g5072050780%_))))) (let () (declare (not safe)) - (_%g5065750717%_)))))) - (let () (declare (not safe)) (_%g5065750717%_)))))))) + (_%g5072050780%_)))))) + (let () (declare (not safe)) (_%g5072050780%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%ref-dotted| - (lambda (_%stx51313%_) - (let* ((_%__stx7954879549%_ _%stx51313%_) - (_%g5131751338%_ + (lambda (_%stx51376%_) + (let* ((_%__stx7961179612%_ _%stx51376%_) + (_%g5138051401%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7954879549%_)))) - (let ((_%__kont7955179552%_ - (lambda (_%L51406%_) - (let* ((_%g5141851425%_ + _%__stx7961179612%_)))) + (let ((_%__kont7961479615%_ + (lambda (_%L51469%_) + (let* ((_%g5148151488%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51313%_ - _%L51406%_)) - (_%E5142051431%_ + _%stx51376%_ + _%L51469%_)) + (_%E5148351494%_ (lambda () (error '"No clause matching" - _%g5141851425%_ + _%g5148151488%_ '([var . parts])) (void))) - (_%K5142151647%_ - (lambda (_%parts51435%_ _%var51437%_) - (let ((_%$e51439%_ + (_%K5148451710%_ + (lambda (_%parts51498%_ _%var51500%_) + (let ((_%$e51502%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51437%_)))) - (if _%$e51439%_ - ((lambda (_%te51443%_) - (let _%loop51446%_ ((_%parts51449%_ - _%parts51435%_) - (_%type51451%_ + _%var51500%_)))) + (if _%$e51502%_ + ((lambda (_%te51506%_) + (let _%loop51509%_ ((_%parts51512%_ + _%parts51498%_) + (_%type51514%_ (##direct-structure-ref - _%te51443%_ + _%te51506%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51452%_ - _%var51437%_) - (_%nil-check?51453%_ + (_%object51515%_ + _%var51500%_) + (_%nil-check?51516%_ '#f)) - (let* ((_%parts5145451462%_ - _%parts51449%_) - (_%else5145651474%_ - (lambda () _%object51452%_)) - (_%K5145851629%_ - (lambda (_%rest51478%_ - _%part51480%_) - (if (and (not _%nil-check?51453%_) - (let ((__tmp84088 + (let* ((_%parts5151751525%_ + _%parts51512%_) + (_%else5151951537%_ + (lambda () _%object51515%_)) + (_%K5152151692%_ + (lambda (_%rest51541%_ + _%part51543%_) + (if (and (not _%nil-check?51516%_) + (let ((__tmp84151 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51480%_))) + (symbol->string _%part51543%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84088))) - (let ((_%str51484%_ (symbol->string _%part51480%_))) - (_%loop51446%_ - (cons (let ((__tmp84089 + (##string-prefix? '"?" __tmp84151))) + (let ((_%str51547%_ (symbol->string _%part51543%_))) + (_%loop51509%_ + (cons (let ((__tmp84152 (substring - _%str51484%_ + _%str51547%_ '1 - (string-length _%str51484%_)))) + (string-length _%str51547%_)))) (declare (not safe)) - (##string->symbol __tmp84089)) - _%rest51478%_) - _%type51451%_ - _%object51452%_ + (##string->symbol __tmp84152)) + _%rest51541%_) + _%type51514%_ + _%object51515%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51451%_)) - (let* ((_%g5148951504%_ - (lambda (_%g5149051500%_) + _%type51514%_)) + (let* ((_%g5155251567%_ + (lambda (_%g5155351563%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5149051500%_))) - (_%g5148851621%_ - (lambda (_%g5149051508%_) - (if (gx#stx-pair? _%g5149051508%_) - (let ((_%e5149351511%_ - (gx#syntax-e _%g5149051508%_))) - (let ((_%hd5149451515%_ + _%g5155351563%_))) + (_%g5155151684%_ + (lambda (_%g5155351571%_) + (if (gx#stx-pair? _%g5155351571%_) + (let ((_%e5155651574%_ + (gx#syntax-e _%g5155351571%_))) + (let ((_%hd5155751578%_ (let () (declare (not safe)) - (##car _%e5149351511%_))) - (_%tl5149551518%_ + (##car _%e5155651574%_))) + (_%tl5155851581%_ (let () (declare (not safe)) - (##cdr _%e5149351511%_)))) - (if (gx#stx-pair? _%tl5149551518%_) - (let ((_%e5149651521%_ - (gx#syntax-e _%tl5149551518%_))) - (let ((_%hd5149751525%_ + (##cdr _%e5155651574%_)))) + (if (gx#stx-pair? _%tl5155851581%_) + (let ((_%e5155951584%_ + (gx#syntax-e _%tl5155851581%_))) + (let ((_%hd5156051588%_ (let () (declare (not safe)) - (##car _%e5149651521%_))) - (_%tl5149851528%_ + (##car _%e5155951584%_))) + (_%tl5156151591%_ (let () (declare (not safe)) - (##cdr _%e5149651521%_)))) - (if (gx#stx-null? _%tl5149851528%_) - ((lambda (_%L51531%_ - _%L51533%_) - (if (null? _%rest51478%_) - (let ((_%$e51563%_ + (##cdr _%e5155951584%_)))) + (if (gx#stx-null? _%tl5156151591%_) + ((lambda (_%L51594%_ + _%L51596%_) + (if (null? _%rest51541%_) + (let ((_%$e51626%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51451%_ - _%part51480%_))) - (if _%$e51563%_ - ((lambda (_%slot-type51567%_) - (let* ((_%g5157051578%_ + _%type51514%_ + _%part51543%_))) + (if _%$e51626%_ + ((lambda (_%slot-type51630%_) + (let* ((_%g5163351641%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g5157151574%_) + (lambda (_%g5163451637%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5157151574%_))) - (_%g5156951601%_ - (lambda (_%g5157151582%_) - ((lambda (_%L51585%_) + _%g5163451637%_))) + (_%g5163251664%_ + (lambda (_%g5163451645%_) + ((lambda (_%L51648%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L51585%_ '())) - (cons (cons _%L51531%_ - (cons _%L51533%_ + (cons _%L51648%_ '())) + (cons (cons _%L51594%_ + (cons _%L51596%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g5157151582%_)))) - (_%g5156951601%_ + _%g5163451645%_)))) + (_%g5163251664%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx51313%_ - _%slot-type51567%_))))) - _%$e51563%_) - (if _%nil-check?51453%_ - (cons _%L51531%_ + _%stx51376%_ + _%slot-type51630%_))))) + _%$e51626%_) + (if _%nil-check?51516%_ + (cons _%L51594%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51533%_ '())) + (cons _%L51596%_ '())) '())) - (cons _%L51531%_ (cons _%L51533%_ '()))))) - (let ((_%$e51609%_ + (cons _%L51594%_ (cons _%L51596%_ '()))))) + (let ((_%$e51672%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51451%_ - _%part51480%_))) - (if _%$e51609%_ - ((lambda (_%type51613%_) - (let ((_%type51616%_ + _%type51514%_ + _%part51543%_))) + (if _%$e51672%_ + ((lambda (_%type51676%_) + (let ((_%type51679%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51313%_ - _%type51613%_)))) - (if _%nil-check?51453%_ - (_%loop51446%_ - _%rest51478%_ - _%type51616%_ - (cons _%L51531%_ + _%stx51376%_ + _%type51676%_)))) + (if _%nil-check?51516%_ + (_%loop51509%_ + _%rest51541%_ + _%type51679%_ + (cons _%L51594%_ (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51533%_ '())) + (cons _%L51596%_ '())) '())) '#f) - (_%loop51446%_ - _%rest51478%_ - _%type51616%_ - (cons _%L51531%_ (cons _%L51533%_ '())) + (_%loop51509%_ + _%rest51541%_ + _%type51679%_ + (cons _%L51594%_ (cons _%L51596%_ '())) '#f)))) - _%$e51609%_) + _%$e51672%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51313%_ - _%L51406%_ - _%part51480%_))))) + _%stx51376%_ + _%L51469%_ + _%part51543%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5149751525%_ - _%hd5149451515%_) - (_%g5148951504%_ - _%g5149051508%_)))) - (_%g5148951504%_ _%g5149051508%_)))) - (_%g5148951504%_ _%g5149051508%_))))) - (_%g5148851621%_ - (list (if _%nil-check?51453%_ - (cons 'check-nil! (cons _%object51452%_ '())) - _%object51452%_) + _%hd5156051588%_ + _%hd5155751578%_) + (_%g5155251567%_ + _%g5155351571%_)))) + (_%g5155251567%_ _%g5155351571%_)))) + (_%g5155251567%_ _%g5155351571%_))))) + (_%g5155151684%_ + (list (if _%nil-check?51516%_ + (cons 'check-nil! (cons _%object51515%_ '())) + _%object51515%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51313%_ - _%type51451%_ - _%part51480%_)))) + _%stx51376%_ + _%type51514%_ + _%part51543%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51451%_)) + _%type51514%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51313%_ - _%type51451%_))))))) + _%stx51376%_ + _%type51514%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5145451462%_) - (let ((_%hd5145951633%_ + (if (pair? _%parts5151751525%_) + (let ((_%hd5152251696%_ (let () (declare (not safe)) - (##car _%parts5145451462%_))) - (_%tl5146051636%_ + (##car _%parts5151751525%_))) + (_%tl5152351699%_ (let () (declare (not safe)) - (##cdr _%parts5145451462%_)))) - (let* ((_%part51639%_ - _%hd5145951633%_) - (_%rest51642%_ - _%tl5146051636%_)) - (_%K5145851629%_ - _%rest51642%_ - _%part51639%_))) - (_%else5145651474%_))))) - _%$e51439%_) + (##cdr _%parts5151751525%_)))) + (let* ((_%part51702%_ + _%hd5152251696%_) + (_%rest51705%_ + _%tl5152351699%_)) + (_%K5152151692%_ + _%rest51705%_ + _%part51702%_))) + (_%else5151951537%_))))) + _%$e51502%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51406%_ '()))))))) - (if (pair? _%g5141851425%_) - (let ((_%hd5142251651%_ + (cons _%L51469%_ '()))))))) + (if (pair? _%g5148151488%_) + (let ((_%hd5148551714%_ (let () (declare (not safe)) - (##car _%g5141851425%_))) - (_%tl5142351654%_ + (##car _%g5148151488%_))) + (_%tl5148651717%_ (let () (declare (not safe)) - (##cdr _%g5141851425%_)))) - (let* ((_%var51657%_ _%hd5142251651%_) - (_%parts51660%_ _%tl5142351654%_)) - (_%K5142151647%_ _%parts51660%_ _%var51657%_))) - (_%E5142051431%_))))) - (_%__kont7955379554%_ - (lambda (_%L51365%_) + (##cdr _%g5148151488%_)))) + (let* ((_%var51720%_ _%hd5148551714%_) + (_%parts51723%_ _%tl5148651717%_)) + (_%K5148451710%_ _%parts51723%_ _%var51720%_))) + (_%E5148351494%_))))) + (_%__kont7961679617%_ + (lambda (_%L51428%_) (cons (gx#datum->syntax '#f '%%ref) - (cons _%L51365%_ '()))))) - (let ((_%__match7956979570%_ - (lambda (_%e5132051386%_ - _%hd5132151390%_ - _%tl5132251393%_ - _%e5132351396%_ - _%hd5132451400%_ - _%tl5132551403%_) - (let ((_%L51406%_ _%hd5132451400%_)) + (cons _%L51428%_ '()))))) + (let ((_%__match7963279633%_ + (lambda (_%e5138351449%_ + _%hd5138451453%_ + _%tl5138551456%_ + _%e5138651459%_ + _%hd5138751463%_ + _%tl5138851466%_) + (let ((_%L51469%_ _%hd5138751463%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51406%_) - (_%__kont7955179552%_ _%L51406%_) - (_%__kont7955379554%_ _%hd5132451400%_)))))) - (if (gx#stx-pair? _%__stx7954879549%_) - (let ((_%e5132051386%_ (gx#syntax-e _%__stx7954879549%_))) - (let ((_%tl5132251393%_ + _%L51469%_) + (_%__kont7961479615%_ _%L51469%_) + (_%__kont7961679617%_ _%hd5138751463%_)))))) + (if (gx#stx-pair? _%__stx7961179612%_) + (let ((_%e5138351449%_ (gx#syntax-e _%__stx7961179612%_))) + (let ((_%tl5138551456%_ (let () (declare (not safe)) - (##cdr _%e5132051386%_))) - (_%hd5132151390%_ + (##cdr _%e5138351449%_))) + (_%hd5138451453%_ (let () (declare (not safe)) - (##car _%e5132051386%_)))) - (if (gx#stx-pair? _%tl5132251393%_) - (let ((_%e5132351396%_ - (gx#syntax-e _%tl5132251393%_))) - (let ((_%tl5132551403%_ + (##car _%e5138351449%_)))) + (if (gx#stx-pair? _%tl5138551456%_) + (let ((_%e5138651459%_ + (gx#syntax-e _%tl5138551456%_))) + (let ((_%tl5138851466%_ (let () (declare (not safe)) - (##cdr _%e5132351396%_))) - (_%hd5132451400%_ + (##cdr _%e5138651459%_))) + (_%hd5138751463%_ (let () (declare (not safe)) - (##car _%e5132351396%_)))) - (if (gx#stx-null? _%tl5132551403%_) - (_%__match7956979570%_ - _%e5132051386%_ - _%hd5132151390%_ - _%tl5132251393%_ - _%e5132351396%_ - _%hd5132451400%_ - _%tl5132551403%_) + (##car _%e5138651459%_)))) + (if (gx#stx-null? _%tl5138851466%_) + (_%__match7963279633%_ + _%e5138351449%_ + _%hd5138451453%_ + _%tl5138551456%_ + _%e5138651459%_ + _%hd5138751463%_ + _%tl5138851466%_) (let () (declare (not safe)) - (_%g5131751338%_))))) - (let () (declare (not safe)) (_%g5131751338%_))))) - (let () (declare (not safe)) (_%g5131751338%_)))))))) + (_%g5138051401%_))))) + (let () (declare (not safe)) (_%g5138051401%_))))) + (let () (declare (not safe)) (_%g5138051401%_)))))))) (define |gerbil/core/contract~Using[:0:]#%%set-dotted!| - (lambda (_%stx51667%_) - (let* ((_%__stx7958679587%_ _%stx51667%_) - (_%g5167151700%_ + (lambda (_%stx51730%_) + (let* ((_%__stx7964979650%_ _%stx51730%_) + (_%g5173451763%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7958679587%_)))) - (let ((_%__kont7958979590%_ - (lambda (_%L51792%_ _%L51794%_) - (let* ((_%g5180851815%_ + _%__stx7964979650%_)))) + (let ((_%__kont7965279653%_ + (lambda (_%L51855%_ _%L51857%_) + (let* ((_%g5187151878%_ (|gerbil/core/contract~Using[1]#split-dotted-identifier| - _%stx51667%_ - _%L51794%_)) - (_%E5181051821%_ + _%stx51730%_ + _%L51857%_)) + (_%E5187351884%_ (lambda () (error '"No clause matching" - _%g5180851815%_ + _%g5187151878%_ '([var . parts])) (void))) - (_%K5181152051%_ - (lambda (_%parts51825%_ _%var51827%_) - (let ((_%$e51829%_ + (_%K5187452114%_ + (lambda (_%parts51888%_ _%var51890%_) + (let ((_%$e51892%_ (let () (declare (not safe)) (gerbil/core/contract~TypeEnv#type-env-lookup - _%var51827%_)))) - (if _%$e51829%_ - ((lambda (_%te51833%_) - (let _%loop51836%_ ((_%parts51839%_ - _%parts51825%_) - (_%type51841%_ + _%var51890%_)))) + (if _%$e51892%_ + ((lambda (_%te51896%_) + (let _%loop51899%_ ((_%parts51902%_ + _%parts51888%_) + (_%type51904%_ (##direct-structure-ref - _%te51833%_ + _%te51896%_ '2 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%object51842%_ - _%var51827%_) - (_%checked-mutator?51843%_ + (_%object51905%_ + _%var51890%_) + (_%checked-mutator?51906%_ (##direct-structure-ref - _%te51833%_ + _%te51896%_ '3 gerbil/core/contract~TypeEnv#type-env::t '#f)) - (_%nil-check?51844%_ + (_%nil-check?51907%_ '#f)) - (let* ((_%parts5184551852%_ - _%parts51839%_) - (_%E5184751858%_ + (let* ((_%parts5190851915%_ + _%parts51902%_) + (_%E5191051921%_ (lambda () (error '"No clause matching" - _%parts5184551852%_ + _%parts5190851915%_ '([part . rest])) (void))) - (_%K5184852033%_ - (lambda (_%rest51862%_ - _%part51864%_) - (if (and (not _%nil-check?51844%_) - (let ((__tmp84090 + (_%K5191152096%_ + (lambda (_%rest51925%_ + _%part51927%_) + (if (and (not _%nil-check?51907%_) + (let ((__tmp84153 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (symbol->string _%part51864%_))) + (symbol->string _%part51927%_))) (declare (not safe)) - (##string-prefix? '"?" __tmp84090))) - (let ((_%str51868%_ (symbol->string _%part51864%_))) - (_%loop51836%_ - (cons (let ((__tmp84091 + (##string-prefix? '"?" __tmp84153))) + (let ((_%str51931%_ (symbol->string _%part51927%_))) + (_%loop51899%_ + (cons (let ((__tmp84154 (substring - _%str51868%_ + _%str51931%_ '1 - (string-length _%str51868%_)))) + (string-length _%str51931%_)))) (declare (not safe)) - (##string->symbol __tmp84091)) - _%rest51862%_) - _%type51841%_ - _%object51842%_ - _%checked-mutator?51843%_ + (##string->symbol __tmp84154)) + _%rest51925%_) + _%type51904%_ + _%object51905%_ + _%checked-mutator?51906%_ '#t)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%type51841%_)) - (if (null? _%rest51862%_) - (let* ((_%g5187551890%_ - (lambda (_%g5187651886%_) + _%type51904%_)) + (if (null? _%rest51925%_) + (let* ((_%g5193851953%_ + (lambda (_%g5193951949%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5187651886%_))) - (_%g5187451947%_ - (lambda (_%g5187651894%_) - (if (gx#stx-pair? _%g5187651894%_) - (let ((_%e5187951897%_ - (gx#syntax-e _%g5187651894%_))) - (let ((_%hd5188051901%_ + _%g5193951949%_))) + (_%g5193752010%_ + (lambda (_%g5193951957%_) + (if (gx#stx-pair? _%g5193951957%_) + (let ((_%e5194251960%_ + (gx#syntax-e _%g5193951957%_))) + (let ((_%hd5194351964%_ (let () (declare (not safe)) - (##car _%e5187951897%_))) - (_%tl5188151904%_ + (##car _%e5194251960%_))) + (_%tl5194451967%_ (let () (declare (not safe)) - (##cdr _%e5187951897%_)))) - (if (gx#stx-pair? _%tl5188151904%_) - (let ((_%e5188251907%_ + (##cdr _%e5194251960%_)))) + (if (gx#stx-pair? _%tl5194451967%_) + (let ((_%e5194551970%_ (gx#syntax-e - _%tl5188151904%_))) - (let ((_%hd5188351911%_ + _%tl5194451967%_))) + (let ((_%hd5194651974%_ (let () (declare (not safe)) - (##car _%e5188251907%_))) - (_%tl5188451914%_ + (##car _%e5194551970%_))) + (_%tl5194751977%_ (let () (declare (not safe)) - (##cdr _%e5188251907%_)))) + (##cdr _%e5194551970%_)))) (if (gx#stx-null? - _%tl5188451914%_) - ((lambda (_%L51917%_ - _%L51919%_) - (if _%nil-check?51844%_ - (cons _%L51917%_ + _%tl5194751977%_) + ((lambda (_%L51980%_ + _%L51982%_) + (if _%nil-check?51907%_ + (cons _%L51980%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'check-nil!) - (cons _%L51919%_ '())) - (cons _%L51792%_ '()))) - (cons _%L51917%_ (cons _%L51919%_ (cons _%L51792%_ '()))))) + (cons _%L51982%_ '())) + (cons _%L51855%_ '()))) + (cons _%L51980%_ (cons _%L51982%_ (cons _%L51855%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5188351911%_ - _%hd5188051901%_) - (_%g5187551890%_ - _%g5187651894%_)))) - (_%g5187551890%_ - _%g5187651894%_)))) - (_%g5187551890%_ _%g5187651894%_))))) - (_%g5187451947%_ - (list _%object51842%_ + _%hd5194651974%_ + _%hd5194351964%_) + (_%g5193851953%_ + _%g5193951957%_)))) + (_%g5193851953%_ + _%g5193951957%_)))) + (_%g5193851953%_ _%g5193951957%_))))) + (_%g5193752010%_ + (list _%object51905%_ (|gerbil/core/contract~Using[1]#get-slot-mutator| - _%stx51667%_ - _%type51841%_ - _%part51864%_ - (if _%checked-mutator?51843%_ + _%stx51730%_ + _%type51904%_ + _%part51927%_ + (if _%checked-mutator?51906%_ (|gerbil/core/contract~Using[1]#!class-slot-contract| - _%type51841%_ - _%part51864%_) + _%type51904%_ + _%part51927%_) '#f))))) - (let ((_%$e51951%_ + (let ((_%$e52014%_ (|gerbil/core/contract~Using[1]#!class-slot-type| - _%type51841%_ - _%part51864%_))) - (if _%$e51951%_ - ((lambda (_%type51955%_) - (let* ((_%type51958%_ + _%type51904%_ + _%part51927%_))) + (if _%$e52014%_ + ((lambda (_%type52018%_) + (let* ((_%type52021%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx51667%_ - _%type51955%_))) - (_%g5196151976%_ - (lambda (_%g5196251972%_) + _%stx51730%_ + _%type52018%_))) + (_%g5202452039%_ + (lambda (_%g5202552035%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5196251972%_))) - (_%g5196052023%_ - (lambda (_%g5196251980%_) - (if (gx#stx-pair? _%g5196251980%_) - (let ((_%e5196551983%_ + _%g5202552035%_))) + (_%g5202352086%_ + (lambda (_%g5202552043%_) + (if (gx#stx-pair? _%g5202552043%_) + (let ((_%e5202852046%_ (gx#syntax-e - _%g5196251980%_))) - (let ((_%hd5196651987%_ + _%g5202552043%_))) + (let ((_%hd5202952050%_ (let () (declare (not safe)) - (##car _%e5196551983%_))) - (_%tl5196751990%_ + (##car _%e5202852046%_))) + (_%tl5203052053%_ (let () (declare (not safe)) - (##cdr _%e5196551983%_)))) + (##cdr _%e5202852046%_)))) (if (gx#stx-pair? - _%tl5196751990%_) - (let ((_%e5196851993%_ + _%tl5203052053%_) + (let ((_%e5203152056%_ (gx#syntax-e - _%tl5196751990%_))) - (let ((_%hd5196951997%_ + _%tl5203052053%_))) + (let ((_%hd5203252060%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e5196851993%_))) - (_%tl5197052000%_ - (let () (declare (not safe)) (##cdr _%e5196851993%_)))) - (if (gx#stx-null? _%tl5197052000%_) - ((lambda (_%L52003%_ _%L52005%_) - (_%loop51836%_ - _%rest51862%_ - _%type51958%_ - (cons _%L52003%_ (cons _%L52005%_ '())) + (##car _%e5203152056%_))) + (_%tl5203352063%_ + (let () (declare (not safe)) (##cdr _%e5203152056%_)))) + (if (gx#stx-null? _%tl5203352063%_) + ((lambda (_%L52066%_ _%L52068%_) + (_%loop51899%_ + _%rest51925%_ + _%type52021%_ + (cons _%L52066%_ (cons _%L52068%_ '())) (|gerbil/core/contract~Using[1]#!class-slot-checked-mutator-contract?| - _%type51958%_ - _%part51864%_) + _%type52021%_ + _%part51927%_) '#f)) - _%hd5196951997%_ - _%hd5196651987%_) - (_%g5196151976%_ _%g5196251980%_)))) + _%hd5203252060%_ + _%hd5202952050%_) + (_%g5202452039%_ _%g5202552043%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g5196151976%_ - _%g5196251980%_)))) - (_%g5196151976%_ - _%g5196251980%_))))) - (_%g5196052023%_ - (list (if _%nil-check?51844%_ + (_%g5202452039%_ + _%g5202552043%_)))) + (_%g5202452039%_ + _%g5202552043%_))))) + (_%g5202352086%_ + (list (if _%nil-check?51907%_ (cons 'check-nil! - (cons _%object51842%_ '())) - _%object51842%_) + (cons _%object51905%_ '())) + _%object51905%_) (|gerbil/core/contract~Using[1]#get-slot-accessor| - _%stx51667%_ - _%type51958%_ - _%part51864%_))))) - _%$e51951%_) + _%stx51730%_ + _%type52021%_ + _%part51927%_))))) + _%$e52014%_) (gx#raise-syntax-error '#f '"unresolved dotted reference; unknown type for slot" - _%stx51667%_ - _%L51794%_ - _%part51864%_)))) + _%stx51730%_ + _%L51857%_ + _%part51927%_)))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%type51841%_)) + _%type51904%_)) (gx#raise-syntax-error '#f '"illegal dotted reference; interface has no slots") (gx#raise-syntax-error '#f '"unexpected type" - _%stx51667%_ - _%type51841%_))))))) + _%stx51730%_ + _%type51904%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%parts5184551852%_) - (let ((_%hd5184952037%_ + (if (pair? _%parts5190851915%_) + (let ((_%hd5191252100%_ (let () (declare (not safe)) - (##car _%parts5184551852%_))) - (_%tl5185052040%_ + (##car _%parts5190851915%_))) + (_%tl5191352103%_ (let () (declare (not safe)) - (##cdr _%parts5184551852%_)))) - (let* ((_%part52043%_ - _%hd5184952037%_) - (_%rest52046%_ - _%tl5185052040%_)) - (_%K5184852033%_ - _%rest52046%_ - _%part52043%_))) - (_%E5184751858%_))))) - _%$e51829%_) + (##cdr _%parts5190851915%_)))) + (let* ((_%part52106%_ + _%hd5191252100%_) + (_%rest52109%_ + _%tl5191352103%_)) + (_%K5191152096%_ + _%rest52109%_ + _%part52106%_))) + (_%E5191051921%_))))) + _%$e51892%_) (let () (declare (not safe)) (|gerbil/core/more-sugar[1]#expand-set!| - _%stx51667%_))))))) - (if (pair? _%g5180851815%_) - (let ((_%hd5181252055%_ + _%stx51730%_))))))) + (if (pair? _%g5187151878%_) + (let ((_%hd5187552118%_ (let () (declare (not safe)) - (##car _%g5180851815%_))) - (_%tl5181352058%_ + (##car _%g5187151878%_))) + (_%tl5187652121%_ (let () (declare (not safe)) - (##cdr _%g5180851815%_)))) - (let* ((_%var52061%_ _%hd5181252055%_) - (_%parts52064%_ _%tl5181352058%_)) - (_%K5181152051%_ _%parts52064%_ _%var52061%_))) - (_%E5181051821%_))))) - (_%__kont7959179592%_ - (lambda (_%L51737%_ _%L51739%_) + (##cdr _%g5187151878%_)))) + (let* ((_%var52124%_ _%hd5187552118%_) + (_%parts52127%_ _%tl5187652121%_)) + (_%K5187452114%_ _%parts52127%_ _%var52124%_))) + (_%E5187351884%_))))) + (_%__kont7965479655%_ + (lambda (_%L51800%_ _%L51802%_) (let () (declare (not safe)) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx51667%_))))) - (let ((_%__match7961379614%_ - (lambda (_%e5167551762%_ - _%hd5167651766%_ - _%tl5167751769%_ - _%e5167851772%_ - _%hd5167951776%_ - _%tl5168051779%_ - _%e5168151782%_ - _%hd5168251786%_ - _%tl5168351789%_) - (let ((_%L51792%_ _%hd5168251786%_) - (_%L51794%_ _%hd5167951776%_)) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx51730%_))))) + (let ((_%__match7967679677%_ + (lambda (_%e5173851825%_ + _%hd5173951829%_ + _%tl5174051832%_ + _%e5174151835%_ + _%hd5174251839%_ + _%tl5174351842%_ + _%e5174451845%_ + _%hd5174551849%_ + _%tl5174651852%_) + (let ((_%L51855%_ _%hd5174551849%_) + (_%L51857%_ _%hd5174251839%_)) (if (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L51794%_) - (_%__kont7958979590%_ _%L51792%_ _%L51794%_) - (_%__kont7959179592%_ - _%hd5168251786%_ - _%hd5167951776%_)))))) - (if (gx#stx-pair? _%__stx7958679587%_) - (let ((_%e5167551762%_ (gx#syntax-e _%__stx7958679587%_))) - (let ((_%tl5167751769%_ + _%L51857%_) + (_%__kont7965279653%_ _%L51855%_ _%L51857%_) + (_%__kont7965479655%_ + _%hd5174551849%_ + _%hd5174251839%_)))))) + (if (gx#stx-pair? _%__stx7964979650%_) + (let ((_%e5173851825%_ (gx#syntax-e _%__stx7964979650%_))) + (let ((_%tl5174051832%_ (let () (declare (not safe)) - (##cdr _%e5167551762%_))) - (_%hd5167651766%_ + (##cdr _%e5173851825%_))) + (_%hd5173951829%_ (let () (declare (not safe)) - (##car _%e5167551762%_)))) - (if (gx#stx-pair? _%tl5167751769%_) - (let ((_%e5167851772%_ - (gx#syntax-e _%tl5167751769%_))) - (let ((_%tl5168051779%_ + (##car _%e5173851825%_)))) + (if (gx#stx-pair? _%tl5174051832%_) + (let ((_%e5174151835%_ + (gx#syntax-e _%tl5174051832%_))) + (let ((_%tl5174351842%_ (let () (declare (not safe)) - (##cdr _%e5167851772%_))) - (_%hd5167951776%_ + (##cdr _%e5174151835%_))) + (_%hd5174251839%_ (let () (declare (not safe)) - (##car _%e5167851772%_)))) - (if (gx#stx-pair? _%tl5168051779%_) - (let ((_%e5168151782%_ - (gx#syntax-e _%tl5168051779%_))) - (let ((_%tl5168351789%_ + (##car _%e5174151835%_)))) + (if (gx#stx-pair? _%tl5174351842%_) + (let ((_%e5174451845%_ + (gx#syntax-e _%tl5174351842%_))) + (let ((_%tl5174651852%_ (let () (declare (not safe)) - (##cdr _%e5168151782%_))) - (_%hd5168251786%_ + (##cdr _%e5174451845%_))) + (_%hd5174551849%_ (let () (declare (not safe)) - (##car _%e5168151782%_)))) - (if (gx#stx-null? _%tl5168351789%_) - (_%__match7961379614%_ - _%e5167551762%_ - _%hd5167651766%_ - _%tl5167751769%_ - _%e5167851772%_ - _%hd5167951776%_ - _%tl5168051779%_ - _%e5168151782%_ - _%hd5168251786%_ - _%tl5168351789%_) + (##car _%e5174451845%_)))) + (if (gx#stx-null? _%tl5174651852%_) + (_%__match7967679677%_ + _%e5173851825%_ + _%hd5173951829%_ + _%tl5174051832%_ + _%e5174151835%_ + _%hd5174251839%_ + _%tl5174351842%_ + _%e5174451845%_ + _%hd5174551849%_ + _%tl5174651852%_) (let () (declare (not safe)) - (_%g5167151700%_))))) + (_%g5173451763%_))))) (let () (declare (not safe)) - (_%g5167151700%_))))) - (let () (declare (not safe)) (_%g5167151700%_))))) - (let () (declare (not safe)) (_%g5167151700%_)))))))))) + (_%g5173451763%_))))) + (let () (declare (not safe)) (_%g5173451763%_))))) + (let () (declare (not safe)) (_%g5173451763%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~7.scm b/src/bootstrap/gerbil/core/contract~7.scm index 69f82adb7..fe566e736 100644 --- a/src/bootstrap/gerbil/core/contract~7.scm +++ b/src/bootstrap/gerbil/core/contract~7.scm @@ -1,38 +1,38 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/contract~ContractRules[:0:]#maybe| - (lambda (_%$stx52072%_) - (let* ((_%g5207652090%_ - (lambda (_%g5207752086%_) + (lambda (_%$stx52135%_) + (let* ((_%g5213952153%_ + (lambda (_%g5214052149%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5207752086%_))) - (_%g5207552132%_ - (lambda (_%g5207752094%_) - (if (gx#stx-pair? _%g5207752094%_) - (let ((_%e5207952097%_ (gx#syntax-e _%g5207752094%_))) - (let ((_%hd5208052101%_ + _%g5214052149%_))) + (_%g5213852195%_ + (lambda (_%g5214052157%_) + (if (gx#stx-pair? _%g5214052157%_) + (let ((_%e5214252160%_ (gx#syntax-e _%g5214052157%_))) + (let ((_%hd5214352164%_ (let () (declare (not safe)) - (##car _%e5207952097%_))) - (_%tl5208152104%_ + (##car _%e5214252160%_))) + (_%tl5214452167%_ (let () (declare (not safe)) - (##cdr _%e5207952097%_)))) - (if (gx#stx-pair? _%tl5208152104%_) - (let ((_%e5208252107%_ - (gx#syntax-e _%tl5208152104%_))) - (let ((_%hd5208352111%_ + (##cdr _%e5214252160%_)))) + (if (gx#stx-pair? _%tl5214452167%_) + (let ((_%e5214552170%_ + (gx#syntax-e _%tl5214452167%_))) + (let ((_%hd5214652174%_ (let () (declare (not safe)) - (##car _%e5208252107%_))) - (_%tl5208452114%_ + (##car _%e5214552170%_))) + (_%tl5214752177%_ (let () (declare (not safe)) - (##cdr _%e5208252107%_)))) - (if (gx#stx-null? _%tl5208452114%_) - ((lambda (_%L52117%_) + (##cdr _%e5214552170%_)))) + (if (gx#stx-null? _%tl5214752177%_) + ((lambda (_%L52180%_) (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f @@ -40,60 +40,60 @@ (cons (gx#datum->syntax '#f 'not) - (cons _%L52117%_ + (cons _%L52180%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%hd5208352111%_) - (_%g5207652090%_ _%g5207752094%_)))) - (_%g5207652090%_ _%g5207752094%_)))) - (_%g5207652090%_ _%g5207752094%_))))) - (_%g5207552132%_ _%$stx52072%_)))) + _%hd5214652174%_) + (_%g5213952153%_ _%g5214052157%_)))) + (_%g5213952153%_ _%g5214052157%_)))) + (_%g5213952153%_ _%g5214052157%_))))) + (_%g5213852195%_ _%$stx52135%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range?| - (lambda (_%$stx52136%_) - (let* ((_%g5214052158%_ - (lambda (_%g5214152154%_) + (lambda (_%$stx52199%_) + (let* ((_%g5220352221%_ + (lambda (_%g5220452217%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5214152154%_))) - (_%g5213952213%_ - (lambda (_%g5214152162%_) - (if (gx#stx-pair? _%g5214152162%_) - (let ((_%e5214452165%_ (gx#syntax-e _%g5214152162%_))) - (let ((_%hd5214552169%_ + _%g5220452217%_))) + (_%g5220252276%_ + (lambda (_%g5220452225%_) + (if (gx#stx-pair? _%g5220452225%_) + (let ((_%e5220752228%_ (gx#syntax-e _%g5220452225%_))) + (let ((_%hd5220852232%_ (let () (declare (not safe)) - (##car _%e5214452165%_))) - (_%tl5214652172%_ + (##car _%e5220752228%_))) + (_%tl5220952235%_ (let () (declare (not safe)) - (##cdr _%e5214452165%_)))) - (if (gx#stx-pair? _%tl5214652172%_) - (let ((_%e5214752175%_ - (gx#syntax-e _%tl5214652172%_))) - (let ((_%hd5214852179%_ + (##cdr _%e5220752228%_)))) + (if (gx#stx-pair? _%tl5220952235%_) + (let ((_%e5221052238%_ + (gx#syntax-e _%tl5220952235%_))) + (let ((_%hd5221152242%_ (let () (declare (not safe)) - (##car _%e5214752175%_))) - (_%tl5214952182%_ + (##car _%e5221052238%_))) + (_%tl5221252245%_ (let () (declare (not safe)) - (##cdr _%e5214752175%_)))) - (if (gx#stx-pair? _%tl5214952182%_) - (let ((_%e5215052185%_ - (gx#syntax-e _%tl5214952182%_))) - (let ((_%hd5215152189%_ + (##cdr _%e5221052238%_)))) + (if (gx#stx-pair? _%tl5221252245%_) + (let ((_%e5221352248%_ + (gx#syntax-e _%tl5221252245%_))) + (let ((_%hd5221452252%_ (let () (declare (not safe)) - (##car _%e5215052185%_))) - (_%tl5215252192%_ + (##car _%e5221352248%_))) + (_%tl5221552255%_ (let () (declare (not safe)) - (##cdr _%e5215052185%_)))) - (if (gx#stx-null? _%tl5215252192%_) - ((lambda (_%L52195%_ _%L52197%_) + (##cdr _%e5221352248%_)))) + (if (gx#stx-null? _%tl5221552255%_) + ((lambda (_%L52258%_ _%L52260%_) (cons (gx#datum->syntax '#f 'lambda) @@ -110,72 +110,72 @@ (cons (gx#datum->syntax '#f 'o) - (cons _%L52197%_ '()))) + (cons _%L52260%_ '()))) (cons (cons (gx#datum->syntax '#f 'fx<) (cons (gx#datum->syntax '#f 'o) - (cons _%L52195%_ + (cons _%L52258%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5215152189%_ - _%hd5214852179%_) - (_%g5214052158%_ - _%g5214152162%_)))) - (_%g5214052158%_ _%g5214152162%_)))) - (_%g5214052158%_ _%g5214152162%_)))) - (_%g5214052158%_ _%g5214152162%_))))) - (_%g5213952213%_ _%$stx52136%_)))) + _%hd5221452252%_ + _%hd5221152242%_) + (_%g5220352221%_ + _%g5220452225%_)))) + (_%g5220352221%_ _%g5220452225%_)))) + (_%g5220352221%_ _%g5220452225%_)))) + (_%g5220352221%_ _%g5220452225%_))))) + (_%g5220252276%_ _%$stx52199%_)))) (define |gerbil/core/contract~ContractRules[:0:]#in-range-inclusive?| - (lambda (_%$stx52217%_) - (let* ((_%g5222152239%_ - (lambda (_%g5222252235%_) + (lambda (_%$stx52280%_) + (let* ((_%g5228452302%_ + (lambda (_%g5228552298%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5222252235%_))) - (_%g5222052294%_ - (lambda (_%g5222252243%_) - (if (gx#stx-pair? _%g5222252243%_) - (let ((_%e5222552246%_ (gx#syntax-e _%g5222252243%_))) - (let ((_%hd5222652250%_ + _%g5228552298%_))) + (_%g5228352357%_ + (lambda (_%g5228552306%_) + (if (gx#stx-pair? _%g5228552306%_) + (let ((_%e5228852309%_ (gx#syntax-e _%g5228552306%_))) + (let ((_%hd5228952313%_ (let () (declare (not safe)) - (##car _%e5222552246%_))) - (_%tl5222752253%_ + (##car _%e5228852309%_))) + (_%tl5229052316%_ (let () (declare (not safe)) - (##cdr _%e5222552246%_)))) - (if (gx#stx-pair? _%tl5222752253%_) - (let ((_%e5222852256%_ - (gx#syntax-e _%tl5222752253%_))) - (let ((_%hd5222952260%_ + (##cdr _%e5228852309%_)))) + (if (gx#stx-pair? _%tl5229052316%_) + (let ((_%e5229152319%_ + (gx#syntax-e _%tl5229052316%_))) + (let ((_%hd5229252323%_ (let () (declare (not safe)) - (##car _%e5222852256%_))) - (_%tl5223052263%_ + (##car _%e5229152319%_))) + (_%tl5229352326%_ (let () (declare (not safe)) - (##cdr _%e5222852256%_)))) - (if (gx#stx-pair? _%tl5223052263%_) - (let ((_%e5223152266%_ - (gx#syntax-e _%tl5223052263%_))) - (let ((_%hd5223252270%_ + (##cdr _%e5229152319%_)))) + (if (gx#stx-pair? _%tl5229352326%_) + (let ((_%e5229452329%_ + (gx#syntax-e _%tl5229352326%_))) + (let ((_%hd5229552333%_ (let () (declare (not safe)) - (##car _%e5223152266%_))) - (_%tl5223352273%_ + (##car _%e5229452329%_))) + (_%tl5229652336%_ (let () (declare (not safe)) - (##cdr _%e5223152266%_)))) - (if (gx#stx-null? _%tl5223352273%_) - ((lambda (_%L52276%_ _%L52278%_) + (##cdr _%e5229452329%_)))) + (if (gx#stx-null? _%tl5229652336%_) + ((lambda (_%L52339%_ _%L52341%_) (cons (gx#datum->syntax '#f 'lambda) @@ -189,58 +189,58 @@ (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'fx<=) - (cons _%L52278%_ + (cons _%L52341%_ (cons (gx#datum->syntax '#f 'o) - (cons _%L52276%_ + (cons _%L52339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5223252270%_ - _%hd5222952260%_) - (_%g5222152239%_ - _%g5222252243%_)))) - (_%g5222152239%_ _%g5222252243%_)))) - (_%g5222152239%_ _%g5222252243%_)))) - (_%g5222152239%_ _%g5222252243%_))))) - (_%g5222052294%_ _%$stx52217%_)))) + _%hd5229552333%_ + _%hd5229252323%_) + (_%g5228452302%_ + _%g5228552306%_)))) + (_%g5228452302%_ _%g5228552306%_)))) + (_%g5228452302%_ _%g5228552306%_)))) + (_%g5228452302%_ _%g5228552306%_))))) + (_%g5228352357%_ _%$stx52280%_)))) (define |gerbil/core/contract~ContractRules[:0:]#list-of?| - (lambda (_%$stx52298%_) - (let* ((_%g5230252316%_ - (lambda (_%g5230352312%_) + (lambda (_%$stx52361%_) + (let* ((_%g5236552379%_ + (lambda (_%g5236652375%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5230352312%_))) - (_%g5230152357%_ - (lambda (_%g5230352320%_) - (if (gx#stx-pair? _%g5230352320%_) - (let ((_%e5230552323%_ (gx#syntax-e _%g5230352320%_))) - (let ((_%hd5230652327%_ + _%g5236652375%_))) + (_%g5236452420%_ + (lambda (_%g5236652383%_) + (if (gx#stx-pair? _%g5236652383%_) + (let ((_%e5236852386%_ (gx#syntax-e _%g5236652383%_))) + (let ((_%hd5236952390%_ (let () (declare (not safe)) - (##car _%e5230552323%_))) - (_%tl5230752330%_ + (##car _%e5236852386%_))) + (_%tl5237052393%_ (let () (declare (not safe)) - (##cdr _%e5230552323%_)))) - (if (gx#stx-pair? _%tl5230752330%_) - (let ((_%e5230852333%_ - (gx#syntax-e _%tl5230752330%_))) - (let ((_%hd5230952337%_ + (##cdr _%e5236852386%_)))) + (if (gx#stx-pair? _%tl5237052393%_) + (let ((_%e5237152396%_ + (gx#syntax-e _%tl5237052393%_))) + (let ((_%hd5237252400%_ (let () (declare (not safe)) - (##car _%e5230852333%_))) - (_%tl5231052340%_ + (##car _%e5237152396%_))) + (_%tl5237352403%_ (let () (declare (not safe)) - (##cdr _%e5230852333%_)))) - (if (gx#stx-null? _%tl5231052340%_) - ((lambda (_%L52343%_) + (##cdr _%e5237152396%_)))) + (if (gx#stx-null? _%tl5237352403%_) + ((lambda (_%L52406%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -255,14 +255,14 @@ 'list?) (cons (gx#datum->syntax '#f 'o) '())) (cons (cons (gx#datum->syntax '#f 'andmap) - (cons _%L52343%_ + (cons _%L52406%_ (cons (gx#datum->syntax '#f 'o) '()))) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd5230952337%_) - (_%g5230252316%_ _%g5230352320%_)))) - (_%g5230252316%_ _%g5230352320%_)))) - (_%g5230252316%_ _%g5230352320%_))))) - (_%g5230152357%_ _%$stx52298%_))))) + _%hd5237252400%_) + (_%g5236552379%_ _%g5236652383%_)))) + (_%g5236552379%_ _%g5236652383%_)))) + (_%g5236552379%_ _%g5236652383%_))))) + (_%g5236452420%_ _%$stx52361%_))))) diff --git a/src/bootstrap/gerbil/core/contract~8.scm b/src/bootstrap/gerbil/core/contract~8.scm index 5ee4f042f..eb5a12552 100644 --- a/src/bootstrap/gerbil/core/contract~8.scm +++ b/src/bootstrap/gerbil/core/contract~8.scm @@ -1,3635 +1,3635 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~Interface[1]#_g84093_| + (define |gerbil/core/contract~Interface[1]#_g84156_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84095_| + (define |gerbil/core/contract~Interface[1]#_g84158_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84096_| + (define |gerbil/core/contract~Interface[1]#_g84159_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84097_| + (define |gerbil/core/contract~Interface[1]#_g84160_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84098_| + (define |gerbil/core/contract~Interface[1]#_g84161_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84099_| + (define |gerbil/core/contract~Interface[1]#_g84162_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84101_| + (define |gerbil/core/contract~Interface[1]#_g84164_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84103_| + (define |gerbil/core/contract~Interface[1]#_g84166_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84104_| + (define |gerbil/core/contract~Interface[1]#_g84167_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84105_| + (define |gerbil/core/contract~Interface[1]#_g84168_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84106_| + (define |gerbil/core/contract~Interface[1]#_g84169_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84107_| + (define |gerbil/core/contract~Interface[1]#_g84170_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84108_| + (define |gerbil/core/contract~Interface[1]#_g84171_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84109_| + (define |gerbil/core/contract~Interface[1]#_g84172_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84115_| + (define |gerbil/core/contract~Interface[1]#_g84178_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84116_| + (define |gerbil/core/contract~Interface[1]#_g84179_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84117_| + (define |gerbil/core/contract~Interface[1]#_g84180_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84118_| + (define |gerbil/core/contract~Interface[1]#_g84181_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84119_| + (define |gerbil/core/contract~Interface[1]#_g84182_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84120_| + (define |gerbil/core/contract~Interface[1]#_g84183_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84121_| + (define |gerbil/core/contract~Interface[1]#_g84184_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84122_| + (define |gerbil/core/contract~Interface[1]#_g84185_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84123_| + (define |gerbil/core/contract~Interface[1]#_g84186_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84124_| + (define |gerbil/core/contract~Interface[1]#_g84187_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84125_| + (define |gerbil/core/contract~Interface[1]#_g84188_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84126_| + (define |gerbil/core/contract~Interface[1]#_g84189_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84127_| + (define |gerbil/core/contract~Interface[1]#_g84190_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84128_| + (define |gerbil/core/contract~Interface[1]#_g84191_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84129_| + (define |gerbil/core/contract~Interface[1]#_g84192_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84130_| + (define |gerbil/core/contract~Interface[1]#_g84193_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84131_| + (define |gerbil/core/contract~Interface[1]#_g84194_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84132_| + (define |gerbil/core/contract~Interface[1]#_g84195_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84134_| + (define |gerbil/core/contract~Interface[1]#_g84197_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~Interface[1]#_g84142_| + (define |gerbil/core/contract~Interface[1]#_g84205_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~Interface[1]#check-signature!__%| - (lambda (_%@@keywords60151%_ - _%optionals-allowed?6014760153%_ - _%keywords-allowed?6014860155%_ - _%stx60157%_ - _%args60158%_ - _%return60159%_) - (let* ((_%optionals-allowed?60161%_ - (if (eq? _%optionals-allowed?6014760153%_ absent-value) + (lambda (_%@@keywords60214%_ + _%optionals-allowed?6021060216%_ + _%keywords-allowed?6021160218%_ + _%stx60220%_ + _%args60221%_ + _%return60222%_) + (let* ((_%optionals-allowed?60224%_ + (if (eq? _%optionals-allowed?6021060216%_ absent-value) '#t - _%optionals-allowed?6014760153%_)) - (_%keywords-allowed?60164%_ - (if (eq? _%keywords-allowed?6014860155%_ absent-value) + _%optionals-allowed?6021060216%_)) + (_%keywords-allowed?60227%_ + (if (eq? _%keywords-allowed?6021160218%_ absent-value) '#t - _%keywords-allowed?6014860155%_))) - (if (gx#stx-e _%return60159%_) + _%keywords-allowed?6021160218%_))) + (if (gx#stx-e _%return60222%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx60157%_ - _%return60159%_) + _%stx60220%_ + _%return60222%_) '#!void) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f - _%optionals-allowed?60161%_ - _%keywords-allowed?60164%_ - _%stx60157%_ - _%args60158%_)))) + _%optionals-allowed?60224%_ + _%keywords-allowed?60227%_ + _%stx60220%_ + _%args60221%_)))) (define |gerbil/core/contract~Interface[1]#check-signature!__@| - (lambda (_%@@keywords60171%_ . _%args60173%_) + (lambda (_%@@keywords60234%_ . _%args60236%_) (apply |gerbil/core/contract~Interface[1]#check-signature!__%| - _%@@keywords60171%_ + _%@@keywords60234%_ (symbolic-table-ref - _%@@keywords60171%_ + _%@@keywords60234%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60171%_ 'keywords: absent-value) - _%args60173%_))) + (symbolic-table-ref _%@@keywords60234%_ 'keywords: absent-value) + _%args60236%_))) (define |gerbil/core/contract~Interface[1]#check-signature!| - (lambda _%args6014960180%_ + (lambda _%args6021260243%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature!__@| - _%args6014960180%_))) + _%args6021260243%_))) (define |gerbil/core/contract~Interface[1]#check-valid-type!| - (lambda (_%stx60123%_ _%id60125%_) - (let* ((_%info60127%_ (gx#syntax-local-value _%id60125%_ false)) - (_%$e60138%_ - (let ((_%$e60130%_ + (lambda (_%stx60186%_ _%id60188%_) + (let* ((_%info60190%_ (gx#syntax-local-value _%id60188%_ false)) + (_%$e60201%_ + (let ((_%$e60193%_ (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info60127%_)))) - (if _%$e60130%_ - _%$e60130%_ - (let ((_%$e60134%_ + _%info60190%_)))) + (if _%$e60193%_ + _%$e60193%_ + (let ((_%$e60197%_ (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info60127%_)))) - (if _%$e60134%_ - _%$e60134%_ + _%info60190%_)))) + (if _%$e60197%_ + _%$e60197%_ (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%info60127%_)))))))) - (if _%$e60138%_ - _%$e60138%_ - (if (not _%info60127%_) + _%info60190%_)))))))) + (if _%$e60201%_ + _%$e60201%_ + (if (not _%info60190%_) (gx#raise-syntax-error '#f '"invalid signature; unknown type" - _%stx60123%_ - _%id60125%_) + _%stx60186%_ + _%id60188%_) (gx#raise-syntax-error '#f '"invalid signature; not a a class type or interface" - _%stx60123%_ - _%id60125%_ - _%info60127%_)))))) + _%stx60186%_ + _%id60188%_ + _%info60190%_)))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - (lambda (_%@@keywords59358%_ - _%optionals-allowed?5935459360%_ - _%keywords-allowed?5935559362%_ - _%stx59364%_ - _%signature59365%_) - (let* ((_%optionals-allowed?59367%_ - (if (eq? _%optionals-allowed?5935459360%_ absent-value) + (lambda (_%@@keywords59421%_ + _%optionals-allowed?5941759423%_ + _%keywords-allowed?5941859425%_ + _%stx59427%_ + _%signature59428%_) + (let* ((_%optionals-allowed?59430%_ + (if (eq? _%optionals-allowed?5941759423%_ absent-value) '#t - _%optionals-allowed?5935459360%_)) - (_%keywords-allowed?59370%_ - (if (eq? _%keywords-allowed?5935559362%_ absent-value) + _%optionals-allowed?5941759423%_)) + (_%keywords-allowed?59433%_ + (if (eq? _%keywords-allowed?5941859425%_ absent-value) '#t - _%keywords-allowed?5935559362%_))) - (let _%lp59373%_ ((_%rest59376%_ _%signature59365%_) - (_%have-optional?59378%_ '#f) - (_%ids59379%_ '()) - (_%kws59380%_ '())) - (let* ((_%__stx7971279713%_ _%rest59376%_) - (_%g5939059460%_ + _%keywords-allowed?5941859425%_))) + (let _%lp59436%_ ((_%rest59439%_ _%signature59428%_) + (_%have-optional?59441%_ '#f) + (_%ids59442%_ '()) + (_%kws59443%_ '())) + (let* ((_%__stx7977579776%_ _%rest59439%_) + (_%g5945359523%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7971279713%_)))) - (let ((_%__kont7971579716%_ - (lambda (_%L60076%_ _%L60078%_) - (if _%have-optional?59378%_ + _%__stx7977579776%_)))) + (let ((_%__kont7977879779%_ + (lambda (_%L60139%_ _%L60141%_) + (if _%have-optional?59441%_ (gx#raise-syntax-error '#f '"invalid signature; required argument after optionals" - _%stx59364%_ - _%signature59365%_ - _%L60078%_) - (if (null? _%kws59380%_) - (if (find (lambda (_%g6009260094%_) + _%stx59427%_ + _%signature59428%_ + _%L60141%_) + (if (null? _%kws59443%_) + (if (find (lambda (_%g6015560157%_) (gx#bound-identifier=? - _%g6009260094%_ - _%L60078%_)) - _%ids59379%_) + _%g6015560157%_ + _%L60141%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L60078%_) - (_%lp59373%_ - _%L60076%_ - _%have-optional?59378%_ - (cons _%L60078%_ _%ids59379%_) - _%kws59380%_)) + _%stx59427%_ + _%signature59428%_ + _%L60141%_) + (_%lp59436%_ + _%L60139%_ + _%have-optional?59441%_ + (cons _%L60141%_ _%ids59442%_) + _%kws59443%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7971779718%_ - (lambda (_%L60029%_ _%L60031%_) - (if (not _%optionals-allowed?59367%_) + (_%__kont7978079781%_ + (lambda (_%L60092%_ _%L60094%_) + (if (not _%optionals-allowed?59430%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59364%_ - _%signature59365%_) - (if (null? _%kws59380%_) - (if (find (lambda (_%g6004960051%_) + _%stx59427%_ + _%signature59428%_) + (if (null? _%kws59443%_) + (if (find (lambda (_%g6011260114%_) (gx#bound-identifier=? - _%g6004960051%_ - _%L60031%_)) - _%ids59379%_) + _%g6011260114%_ + _%L60094%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L60031%_) - (_%lp59373%_ - _%L60029%_ + _%stx59427%_ + _%signature59428%_ + _%L60094%_) + (_%lp59436%_ + _%L60092%_ '#t - (cons _%L60031%_ _%ids59379%_) - _%kws59380%_)) + (cons _%L60094%_ _%ids59442%_) + _%kws59443%_)) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7971979720%_ - (lambda (_%L59741%_ _%L59743%_ _%L59744%_) - (if (not _%optionals-allowed?59367%_) - (let* ((_%__stx7963679637%_ _%L59743%_) - (_%g5976159782%_ + (_%__kont7978279783%_ + (lambda (_%L59804%_ _%L59806%_ _%L59807%_) + (if (not _%optionals-allowed?59430%_) + (let* ((_%__stx7969979700%_ _%L59806%_) + (_%g5982459845%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7963679637%_)))) - (let ((_%__kont7963979640%_ - (lambda (_%L59846%_) + _%__stx7969979700%_)))) + (let ((_%__kont7970279703%_ + (lambda (_%L59909%_) (gx#raise-syntax-error '#f '"invalid signature; optionals not allowed" - _%stx59364%_ - _%signature59365%_))) - (_%__kont7964379644%_ (lambda () (void)))) - (let ((_%__match7967179672%_ - (lambda (_%__splice7964179642%_ - _%target5976459800%_ - _%tl5976659803%_ - _%e5977159806%_ - _%hd5977259810%_ - _%tl5977359813%_ - _%e5977459816%_ - _%hd5977559820%_ - _%tl5977659823%_) - (letrec ((_%loop5976759826%_ - (lambda (_%hd5976559830%_) + _%stx59427%_ + _%signature59428%_))) + (_%__kont7970679707%_ (lambda () (void)))) + (let ((_%__match7973479735%_ + (lambda (_%__splice7970479705%_ + _%target5982759863%_ + _%tl5982959866%_ + _%e5983459869%_ + _%hd5983559873%_ + _%tl5983659876%_ + _%e5983759879%_ + _%hd5983859883%_ + _%tl5983959886%_) + (letrec ((_%loop5983059889%_ + (lambda (_%hd5982859893%_) (if (gx#stx-pair? - _%hd5976559830%_) - (let ((_%e5976859834%_ + _%hd5982859893%_) + (let ((_%e5983159897%_ (gx#syntax-e - _%hd5976559830%_))) - (let ((_%lp-tl5977059841%_ + _%hd5982859893%_))) + (let ((_%lp-tl5983359904%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e5976859834%_))) - (_%lp-hd5976959838%_ + (let () (declare (not safe)) (##cdr _%e5983159897%_))) + (_%lp-hd5983259901%_ (let () (declare (not safe)) - (##car _%e5976859834%_)))) - (_%loop5976759826%_ _%lp-tl5977059841%_))) - (_%__kont7963979640%_ _%hd5977559820%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5976759826%_ - _%target5976459800%_))))) - (if (gx#stx-pair/null? _%__stx7963679637%_) - (if (let ((__tmp84092 + (##car _%e5983159897%_)))) + (_%loop5983059889%_ _%lp-tl5983359904%_))) + (_%__kont7970279703%_ _%hd5983859883%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop5983059889%_ + _%target5982759863%_))))) + (if (gx#stx-pair/null? _%__stx7969979700%_) + (if (let ((__tmp84155 (gx#stx-length - _%__stx7963679637%_))) + _%__stx7969979700%_))) (declare (not safe)) - (##fx>= __tmp84092 '2)) - (let ((_%__splice7964179642%_ + (##fx>= __tmp84155 '2)) + (let ((_%__splice7970479705%_ (gx#syntax-split-splice - _%__stx7963679637%_ + _%__stx7969979700%_ '2))) - (let ((_%tl5976659803%_ + (let ((_%tl5982959866%_ (let () (declare (not safe)) (##vector-ref - _%__splice7964179642%_ + _%__splice7970479705%_ '1))) - (_%target5976459800%_ + (_%target5982759863%_ (let () (declare (not safe)) (##vector-ref - _%__splice7964179642%_ + _%__splice7970479705%_ '0)))) (if (gx#stx-pair? - _%tl5976659803%_) - (let ((_%e5977159806%_ + _%tl5982959866%_) + (let ((_%e5983459869%_ (gx#syntax-e - _%tl5976659803%_))) - (let ((_%tl5977359813%_ + _%tl5982959866%_))) + (let ((_%tl5983659876%_ (let () (declare (not safe)) - (##cdr _%e5977159806%_))) - (_%hd5977259810%_ + (##cdr _%e5983459869%_))) + (_%hd5983559873%_ (let () (declare (not safe)) - (##car _%e5977159806%_)))) + (##car _%e5983459869%_)))) (if (gx#identifier? - _%hd5977259810%_) + _%hd5983559873%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84093_| - _%hd5977259810%_) + |gerbil/core/contract~Interface[1]#_g84156_| + _%hd5983559873%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5977359813%_) - (let ((_%e5977459816%_ - (gx#syntax-e _%tl5977359813%_))) - (let ((_%tl5977659823%_ + _%tl5983659876%_) + (let ((_%e5983759879%_ + (gx#syntax-e _%tl5983659876%_))) + (let ((_%tl5983959886%_ (let () (declare (not safe)) - (##cdr _%e5977459816%_))) - (_%hd5977559820%_ + (##cdr _%e5983759879%_))) + (_%hd5983859883%_ (let () (declare (not safe)) - (##car _%e5977459816%_)))) - (if (gx#stx-null? _%tl5977659823%_) - (_%__match7967179672%_ - _%__splice7964179642%_ - _%target5976459800%_ - _%tl5976659803%_ - _%e5977159806%_ - _%hd5977259810%_ - _%tl5977359813%_ - _%e5977459816%_ - _%hd5977559820%_ - _%tl5977659823%_) - (_%__kont7964379644%_)))) - (_%__kont7964379644%_)) - (_%__kont7964379644%_)) - (_%__kont7964379644%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7964379644%_)))) - (_%__kont7964379644%_)) - (_%__kont7964379644%_))))) - (if (null? _%kws59380%_) - (if _%have-optional?59378%_ - (let* ((_%__stx7967479675%_ _%L59743%_) - (_%g5987559896%_ + (##car _%e5983759879%_)))) + (if (gx#stx-null? _%tl5983959886%_) + (_%__match7973479735%_ + _%__splice7970479705%_ + _%target5982759863%_ + _%tl5982959866%_ + _%e5983459869%_ + _%hd5983559873%_ + _%tl5983659876%_ + _%e5983759879%_ + _%hd5983859883%_ + _%tl5983959886%_) + (_%__kont7970679707%_)))) + (_%__kont7970679707%_)) + (_%__kont7970679707%_)) + (_%__kont7970679707%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7970679707%_)))) + (_%__kont7970679707%_)) + (_%__kont7970679707%_))))) + (if (null? _%kws59443%_) + (if _%have-optional?59441%_ + (let* ((_%__stx7973779738%_ _%L59806%_) + (_%g5993859959%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7967479675%_)))) - (let ((_%__kont7967779678%_ - (lambda (_%L59960%_) + _%__stx7973779738%_)))) + (let ((_%__kont7974079741%_ + (lambda (_%L60023%_) (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59364%_ - _%L59743%_) - (_%lp59373%_ - _%L59741%_ + _%stx59427%_ + _%L59806%_) + (_%lp59436%_ + _%L59804%_ '#t - (cons _%L59744%_ _%ids59379%_) - _%kws59380%_))) - (_%__kont7968179682%_ + (cons _%L59807%_ _%ids59442%_) + _%kws59443%_))) + (_%__kont7974479745%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature; expected optional argument" - _%stx59364%_ - _%signature59365%_ - _%L59743%_)))) - (let ((_%__match7970979710%_ - (lambda (_%__splice7967979680%_ - _%target5987859914%_ - _%tl5988059917%_ - _%e5988559920%_ - _%hd5988659924%_ - _%tl5988759927%_ - _%e5988859930%_ - _%hd5988959934%_ - _%tl5989059937%_) - (letrec ((_%loop5988159940%_ - (lambda (_%hd5987959944%_) + _%stx59427%_ + _%signature59428%_ + _%L59806%_)))) + (let ((_%__match7977279773%_ + (lambda (_%__splice7974279743%_ + _%target5994159977%_ + _%tl5994359980%_ + _%e5994859983%_ + _%hd5994959987%_ + _%tl5995059990%_ + _%e5995159993%_ + _%hd5995259997%_ + _%tl5995360000%_) + (letrec ((_%loop5994460003%_ + (lambda (_%hd5994260007%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd5987959944%_) - (let ((_%e5988259948%_ (gx#syntax-e _%hd5987959944%_))) - (let ((_%lp-tl5988459955%_ + _%hd5994260007%_) + (let ((_%e5994560011%_ (gx#syntax-e _%hd5994260007%_))) + (let ((_%lp-tl5994760018%_ (let () (declare (not safe)) - (##cdr _%e5988259948%_))) - (_%lp-hd5988359952%_ + (##cdr _%e5994560011%_))) + (_%lp-hd5994660015%_ (let () (declare (not safe)) - (##car _%e5988259948%_)))) - (_%loop5988159940%_ _%lp-tl5988459955%_))) - (_%__kont7967779678%_ _%hd5988959934%_))))) + (##car _%e5994560011%_)))) + (_%loop5994460003%_ _%lp-tl5994760018%_))) + (_%__kont7974079741%_ _%hd5995259997%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop5988159940%_ - _%target5987859914%_))))) + (_%loop5994460003%_ + _%target5994159977%_))))) (if (gx#stx-pair/null? - _%__stx7967479675%_) - (if (let ((__tmp84094 + _%__stx7973779738%_) + (if (let ((__tmp84157 (gx#stx-length - _%__stx7967479675%_))) + _%__stx7973779738%_))) (declare (not safe)) - (##fx>= __tmp84094 '2)) - (let ((_%__splice7967979680%_ + (##fx>= __tmp84157 '2)) + (let ((_%__splice7974279743%_ (gx#syntax-split-splice - _%__stx7967479675%_ + _%__stx7973779738%_ '2))) - (let ((_%tl5988059917%_ + (let ((_%tl5994359980%_ (let () (declare (not safe)) (##vector-ref - _%__splice7967979680%_ + _%__splice7974279743%_ '1))) - (_%target5987859914%_ + (_%target5994159977%_ (let () (declare (not safe)) (##vector-ref - _%__splice7967979680%_ + _%__splice7974279743%_ '0)))) (if (gx#stx-pair? - _%tl5988059917%_) - (let ((_%e5988559920%_ + _%tl5994359980%_) + (let ((_%e5994859983%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5988059917%_))) - (let ((_%tl5988759927%_ + _%tl5994359980%_))) + (let ((_%tl5995059990%_ (let () (declare (not safe)) - (##cdr _%e5988559920%_))) - (_%hd5988659924%_ + (##cdr _%e5994859983%_))) + (_%hd5994959987%_ (let () (declare (not safe)) - (##car _%e5988559920%_)))) - (if (gx#identifier? _%hd5988659924%_) + (##car _%e5994859983%_)))) + (if (gx#identifier? _%hd5994959987%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84095_| - _%hd5988659924%_) - (if (gx#stx-pair? _%tl5988759927%_) - (let ((_%e5988859930%_ - (gx#syntax-e _%tl5988759927%_))) - (let ((_%tl5989059937%_ + |gerbil/core/contract~Interface[1]#_g84158_| + _%hd5994959987%_) + (if (gx#stx-pair? _%tl5995059990%_) + (let ((_%e5995159993%_ + (gx#syntax-e _%tl5995059990%_))) + (let ((_%tl5995360000%_ (let () (declare (not safe)) - (##cdr _%e5988859930%_))) - (_%hd5988959934%_ + (##cdr _%e5995159993%_))) + (_%hd5995259997%_ (let () (declare (not safe)) - (##car _%e5988859930%_)))) - (if (gx#stx-null? _%tl5989059937%_) - (_%__match7970979710%_ - _%__splice7967979680%_ - _%target5987859914%_ - _%tl5988059917%_ - _%e5988559920%_ - _%hd5988659924%_ - _%tl5988759927%_ - _%e5988859930%_ - _%hd5988959934%_ - _%tl5989059937%_) - (_%__kont7968179682%_)))) - (_%__kont7968179682%_)) - (_%__kont7968179682%_)) - (_%__kont7968179682%_)))) - (_%__kont7968179682%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7968179682%_)) - (_%__kont7968179682%_))))) - (if (find (lambda (_%g5998259984%_) + (##car _%e5995159993%_)))) + (if (gx#stx-null? _%tl5995360000%_) + (_%__match7977279773%_ + _%__splice7974279743%_ + _%target5994159977%_ + _%tl5994359980%_ + _%e5994859983%_ + _%hd5994959987%_ + _%tl5995059990%_ + _%e5995159993%_ + _%hd5995259997%_ + _%tl5995360000%_) + (_%__kont7974479745%_)))) + (_%__kont7974479745%_)) + (_%__kont7974479745%_)) + (_%__kont7974479745%_)))) + (_%__kont7974479745%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7974479745%_)) + (_%__kont7974479745%_))))) + (if (find (lambda (_%g6004560047%_) (gx#bound-identifier=? - _%g5998259984%_ - _%L59744%_)) - _%ids59379%_) + _%g6004560047%_ + _%L59807%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L59744%_) + _%stx59427%_ + _%signature59428%_ + _%L59807%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59364%_ - _%L59743%_) - (_%lp59373%_ - _%L59741%_ - _%have-optional?59378%_ - (cons _%L59744%_ _%ids59379%_) - _%kws59380%_)))) + _%stx59427%_ + _%L59806%_) + (_%lp59436%_ + _%L59804%_ + _%have-optional?59441%_ + (cons _%L59807%_ _%ids59442%_) + _%kws59443%_)))) (gx#raise-syntax-error '#f '"invalid signature; positional arguments must precede keyword arguments"))))) - (_%__kont7972179722%_ - (lambda (_%L59684%_ _%L59686%_ _%L59687%_) - (if (not _%keywords-allowed?59370%_) + (_%__kont7978479785%_ + (lambda (_%L59747%_ _%L59749%_ _%L59750%_) + (if (not _%keywords-allowed?59433%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59364%_ - _%signature59365%_) - (if (find (lambda (_%g5970259704%_) + _%stx59427%_ + _%signature59428%_) + (if (find (lambda (_%g5976559767%_) (gx#bound-identifier=? - _%g5970259704%_ - _%L59686%_)) - _%ids59379%_) + _%g5976559767%_ + _%L59749%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L59686%_) - (if (memq (gx#stx-e _%L59687%_) _%kws59380%_) + _%stx59427%_ + _%signature59428%_ + _%L59749%_) + (if (memq (gx#stx-e _%L59750%_) _%kws59443%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59364%_ - _%signature59365%_ - _%L59687%_) - (_%lp59373%_ - _%L59684%_ - _%have-optional?59378%_ - (cons _%L59686%_ _%ids59379%_) - (cons (gx#stx-e _%L59687%_) - _%kws59380%_))))))) - (_%__kont7972379724%_ - (lambda (_%L59623%_ _%L59625%_ _%L59626%_) - (if (not _%keywords-allowed?59370%_) + _%stx59427%_ + _%signature59428%_ + _%L59750%_) + (_%lp59436%_ + _%L59747%_ + _%have-optional?59441%_ + (cons _%L59749%_ _%ids59442%_) + (cons (gx#stx-e _%L59750%_) + _%kws59443%_))))))) + (_%__kont7978679787%_ + (lambda (_%L59686%_ _%L59688%_ _%L59689%_) + (if (not _%keywords-allowed?59433%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59364%_ - _%signature59365%_) - (if (find (lambda (_%g5964559647%_) + _%stx59427%_ + _%signature59428%_) + (if (find (lambda (_%g5970859710%_) (gx#bound-identifier=? - _%g5964559647%_ - _%L59625%_)) - _%ids59379%_) + _%g5970859710%_ + _%L59688%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L59625%_) - (if (memq (gx#stx-e _%L59626%_) _%kws59380%_) + _%stx59427%_ + _%signature59428%_ + _%L59688%_) + (if (memq (gx#stx-e _%L59689%_) _%kws59443%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59364%_ - _%signature59365%_ - _%L59626%_) - (_%lp59373%_ - _%L59623%_ - _%have-optional?59378%_ - (cons _%L59625%_ _%ids59379%_) - (cons (gx#stx-e _%L59626%_) - _%kws59380%_))))))) - (_%__kont7972579726%_ - (lambda (_%L59542%_ _%L59544%_ _%L59545%_ _%L59546%_) - (if (not _%keywords-allowed?59370%_) + _%stx59427%_ + _%signature59428%_ + _%L59689%_) + (_%lp59436%_ + _%L59686%_ + _%have-optional?59441%_ + (cons _%L59688%_ _%ids59442%_) + (cons (gx#stx-e _%L59689%_) + _%kws59443%_))))))) + (_%__kont7978879789%_ + (lambda (_%L59605%_ _%L59607%_ _%L59608%_ _%L59609%_) + (if (not _%keywords-allowed?59433%_) (gx#raise-syntax-error '#f '"invalid signature; keywords not allowed" - _%stx59364%_ - _%signature59365%_) - (if (find (lambda (_%g5956459566%_) + _%stx59427%_ + _%signature59428%_) + (if (find (lambda (_%g5962759629%_) (gx#bound-identifier=? - _%g5956459566%_ - _%L59545%_)) - _%ids59379%_) + _%g5962759629%_ + _%L59608%_)) + _%ids59442%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate identifier" - _%stx59364%_ - _%signature59365%_ - _%L59545%_) - (if (memq (gx#stx-e _%L59546%_) _%kws59380%_) + _%stx59427%_ + _%signature59428%_ + _%L59608%_) + (if (memq (gx#stx-e _%L59609%_) _%kws59443%_) (gx#raise-syntax-error '#f '"invalid signature; duplicate keyword" - _%stx59364%_ - _%signature59365%_ - _%L59546%_) + _%stx59427%_ + _%signature59428%_ + _%L59609%_) (let () (|gerbil/core/contract~Interface[1]#check-signature-contract-types!| - _%stx59364%_ - _%L59544%_) - (_%lp59373%_ - _%L59542%_ - _%have-optional?59378%_ - (cons _%L59545%_ _%ids59379%_) - (cons (gx#stx-e _%L59546%_) - _%kws59380%_)))))))) - (_%__kont7972779728%_ (lambda (_%L59489%_) '#t)) - (_%__kont7972979730%_ (lambda () '#t)) - (_%__kont7973179732%_ + _%stx59427%_ + _%L59607%_) + (_%lp59436%_ + _%L59605%_ + _%have-optional?59441%_ + (cons _%L59608%_ _%ids59442%_) + (cons (gx#stx-e _%L59609%_) + _%kws59443%_)))))))) + (_%__kont7979079791%_ (lambda (_%L59552%_) '#t)) + (_%__kont7979279793%_ (lambda () '#t)) + (_%__kont7979479795%_ (lambda () (gx#raise-syntax-error '#f '"invalid signature" - _%stx59364%_ - _%signature59365%_ - _%rest59376%_)))) - (let* ((_%g5938859482%_ + _%stx59427%_ + _%signature59428%_ + _%rest59439%_)))) + (let* ((_%g5945159545%_ (lambda () - (if (gx#stx-null? _%__stx7971279713%_) - (_%__kont7972979730%_) - (_%__kont7973179732%_)))) - (_%g5938759505%_ + (if (gx#stx-null? _%__stx7977579776%_) + (_%__kont7979279793%_) + (_%__kont7979479795%_)))) + (_%g5945059568%_ (lambda () - (let ((_%L59489%_ _%__stx7971279713%_)) - (if (gx#identifier? _%L59489%_) - (_%__kont7972779728%_ _%L59489%_) + (let ((_%L59552%_ _%__stx7977579776%_)) + (if (gx#identifier? _%L59552%_) + (_%__kont7979079791%_ _%L59552%_) (let () (declare (not safe)) - (_%g5938859482%_)))))) - (_%__match7982779828%_ - (lambda (_%e5944559512%_ - _%hd5944659516%_ - _%tl5944759519%_ - _%e5944859522%_ - _%hd5944959526%_ - _%tl5945059529%_ - _%e5945159532%_ - _%hd5945259536%_ - _%tl5945359539%_) - (let ((_%L59542%_ _%tl5945059529%_) - (_%L59544%_ _%tl5945359539%_) - (_%L59545%_ _%hd5945259536%_) - (_%L59546%_ _%hd5944659516%_)) - (if (and (gx#stx-keyword? _%L59546%_) - (gx#identifier? _%L59545%_) + (_%g5945159545%_)))))) + (_%__match7989079891%_ + (lambda (_%e5950859575%_ + _%hd5950959579%_ + _%tl5951059582%_ + _%e5951159585%_ + _%hd5951259589%_ + _%tl5951359592%_ + _%e5951459595%_ + _%hd5951559599%_ + _%tl5951659602%_) + (let ((_%L59605%_ _%tl5951359592%_) + (_%L59607%_ _%tl5951659602%_) + (_%L59608%_ _%hd5951559599%_) + (_%L59609%_ _%hd5950959579%_)) + (if (and (gx#stx-keyword? _%L59609%_) + (gx#identifier? _%L59608%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59544%_)) - (_%__kont7972579726%_ - _%L59542%_ - _%L59544%_ - _%L59545%_ - _%L59546%_) + _%L59607%_)) + (_%__kont7978879789%_ + _%L59605%_ + _%L59607%_ + _%L59608%_ + _%L59609%_) (let () (declare (not safe)) - (_%g5938759505%_)))))) - (_%__match7980979810%_ - (lambda (_%e5942959583%_ - _%hd5943059587%_ - _%tl5943159590%_ - _%e5943259593%_ - _%hd5943359597%_ - _%tl5943459600%_ - _%e5943559603%_ - _%hd5943659607%_ - _%tl5943759610%_ - _%e5943859613%_ - _%hd5943959617%_ - _%tl5944059620%_) - (let ((_%L59623%_ _%tl5943459600%_) - (_%L59625%_ _%hd5943659607%_) - (_%L59626%_ _%hd5943059587%_)) - (if (and (gx#stx-keyword? _%L59626%_) - (gx#identifier? _%L59625%_)) - (_%__kont7972379724%_ - _%L59623%_ - _%L59625%_ - _%L59626%_) - (_%__match7982779828%_ - _%e5942959583%_ - _%hd5943059587%_ - _%tl5943159590%_ - _%e5943259593%_ - _%hd5943359597%_ - _%tl5943459600%_ - _%e5943559603%_ - _%hd5943659607%_ - _%tl5943759610%_))))) - (_%__match7978379784%_ - (lambda (_%e5942059664%_ - _%hd5942159668%_ - _%tl5942259671%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_) - (let ((_%L59684%_ _%tl5942559681%_) - (_%L59686%_ _%hd5942459678%_) - (_%L59687%_ _%hd5942159668%_)) - (if (and (gx#stx-keyword? _%L59687%_) - (gx#identifier? _%L59686%_)) - (_%__kont7972179722%_ - _%L59684%_ + (_%g5945059568%_)))))) + (_%__match7987279873%_ + (lambda (_%e5949259646%_ + _%hd5949359650%_ + _%tl5949459653%_ + _%e5949559656%_ + _%hd5949659660%_ + _%tl5949759663%_ + _%e5949859666%_ + _%hd5949959670%_ + _%tl5950059673%_ + _%e5950159676%_ + _%hd5950259680%_ + _%tl5950359683%_) + (let ((_%L59686%_ _%tl5949759663%_) + (_%L59688%_ _%hd5949959670%_) + (_%L59689%_ _%hd5949359650%_)) + (if (and (gx#stx-keyword? _%L59689%_) + (gx#identifier? _%L59688%_)) + (_%__kont7978679787%_ _%L59686%_ - _%L59687%_) - (if (gx#stx-pair? _%hd5942459678%_) - (let ((_%e5943559603%_ - (gx#syntax-e _%hd5942459678%_))) - (let ((_%tl5943759610%_ + _%L59688%_ + _%L59689%_) + (_%__match7989079891%_ + _%e5949259646%_ + _%hd5949359650%_ + _%tl5949459653%_ + _%e5949559656%_ + _%hd5949659660%_ + _%tl5949759663%_ + _%e5949859666%_ + _%hd5949959670%_ + _%tl5950059673%_))))) + (_%__match7984679847%_ + (lambda (_%e5948359727%_ + _%hd5948459731%_ + _%tl5948559734%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_) + (let ((_%L59747%_ _%tl5948859744%_) + (_%L59749%_ _%hd5948759741%_) + (_%L59750%_ _%hd5948459731%_)) + (if (and (gx#stx-keyword? _%L59750%_) + (gx#identifier? _%L59749%_)) + (_%__kont7978479785%_ + _%L59747%_ + _%L59749%_ + _%L59750%_) + (if (gx#stx-pair? _%hd5948759741%_) + (let ((_%e5949859666%_ + (gx#syntax-e _%hd5948759741%_))) + (let ((_%tl5950059673%_ (let () (declare (not safe)) - (##cdr _%e5943559603%_))) - (_%hd5943659607%_ + (##cdr _%e5949859666%_))) + (_%hd5949959670%_ (let () (declare (not safe)) - (##car _%e5943559603%_)))) - (if (gx#stx-pair? _%tl5943759610%_) - (let ((_%e5943859613%_ + (##car _%e5949859666%_)))) + (if (gx#stx-pair? _%tl5950059673%_) + (let ((_%e5950159676%_ (gx#syntax-e - _%tl5943759610%_))) - (let ((_%tl5944059620%_ + _%tl5950059673%_))) + (let ((_%tl5950359683%_ (let () (declare (not safe)) - (##cdr _%e5943859613%_))) - (_%hd5943959617%_ + (##cdr _%e5950159676%_))) + (_%hd5950259680%_ (let () (declare (not safe)) - (##car _%e5943859613%_)))) + (##car _%e5950159676%_)))) (if (gx#stx-null? - _%tl5944059620%_) - (_%__match7980979810%_ - _%e5942059664%_ - _%hd5942159668%_ - _%tl5942259671%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_ - _%e5943559603%_ - _%hd5943659607%_ - _%tl5943759610%_ - _%e5943859613%_ - _%hd5943959617%_ - _%tl5944059620%_) - (_%__match7982779828%_ - _%e5942059664%_ - _%hd5942159668%_ - _%tl5942259671%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_ - _%e5943559603%_ - _%hd5943659607%_ - _%tl5943759610%_)))) - (_%__match7982779828%_ - _%e5942059664%_ - _%hd5942159668%_ - _%tl5942259671%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_ - _%e5943559603%_ - _%hd5943659607%_ - _%tl5943759610%_)))) + _%tl5950359683%_) + (_%__match7987279873%_ + _%e5948359727%_ + _%hd5948459731%_ + _%tl5948559734%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_ + _%e5949859666%_ + _%hd5949959670%_ + _%tl5950059673%_ + _%e5950159676%_ + _%hd5950259680%_ + _%tl5950359683%_) + (_%__match7989079891%_ + _%e5948359727%_ + _%hd5948459731%_ + _%tl5948559734%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_ + _%e5949859666%_ + _%hd5949959670%_ + _%tl5950059673%_)))) + (_%__match7989079891%_ + _%e5948359727%_ + _%hd5948459731%_ + _%tl5948559734%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_ + _%e5949859666%_ + _%hd5949959670%_ + _%tl5950059673%_)))) (let () (declare (not safe)) - (_%g5938759505%_))))))) - (_%__match7977179772%_ - (lambda (_%e5941159721%_ - _%hd5941259725%_ - _%tl5941359728%_ - _%e5941459731%_ - _%hd5941559735%_ - _%tl5941659738%_) - (let ((_%L59741%_ _%tl5941359728%_) - (_%L59743%_ _%tl5941659738%_) - (_%L59744%_ _%hd5941559735%_)) - (if (and (gx#identifier? _%L59744%_) + (_%g5945059568%_))))))) + (_%__match7983479835%_ + (lambda (_%e5947459784%_ + _%hd5947559788%_ + _%tl5947659791%_ + _%e5947759794%_ + _%hd5947859798%_ + _%tl5947959801%_) + (let ((_%L59804%_ _%tl5947659791%_) + (_%L59806%_ _%tl5947959801%_) + (_%L59807%_ _%hd5947859798%_)) + (if (and (gx#identifier? _%L59807%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L59743%_)) - (_%__kont7971979720%_ - _%L59741%_ - _%L59743%_ - _%L59744%_) - (if (gx#stx-pair? _%tl5941359728%_) - (let ((_%e5942359674%_ - (gx#syntax-e _%tl5941359728%_))) - (let ((_%tl5942559681%_ + _%L59806%_)) + (_%__kont7978279783%_ + _%L59804%_ + _%L59806%_ + _%L59807%_) + (if (gx#stx-pair? _%tl5947659791%_) + (let ((_%e5948659737%_ + (gx#syntax-e _%tl5947659791%_))) + (let ((_%tl5948859744%_ (let () (declare (not safe)) - (##cdr _%e5942359674%_))) - (_%hd5942459678%_ + (##cdr _%e5948659737%_))) + (_%hd5948759741%_ (let () (declare (not safe)) - (##car _%e5942359674%_)))) - (_%__match7978379784%_ - _%e5941159721%_ - _%hd5941259725%_ - _%tl5941359728%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_))) + (##car _%e5948659737%_)))) + (_%__match7984679847%_ + _%e5947459784%_ + _%hd5947559788%_ + _%tl5947659791%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_))) (let () (declare (not safe)) - (_%g5938759505%_))))))) - (_%__match7975979760%_ - (lambda (_%e5939959999%_ - _%hd5940060003%_ - _%tl5940160006%_ - _%e5940260009%_ - _%hd5940360013%_ - _%tl5940460016%_ - _%e5940560019%_ - _%hd5940660023%_ - _%tl5940760026%_) - (let ((_%L60029%_ _%tl5940160006%_) - (_%L60031%_ _%hd5940360013%_)) - (if (gx#identifier? _%L60031%_) - (_%__kont7971779718%_ _%L60029%_ _%L60031%_) - (_%__match7977179772%_ - _%e5939959999%_ - _%hd5940060003%_ - _%tl5940160006%_ - _%e5940260009%_ - _%hd5940360013%_ - _%tl5940460016%_))))) - (_%__match7973979740%_ - (lambda (_%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_) - (let ((_%L60076%_ _%tl5939660073%_) - (_%L60078%_ _%hd5939560070%_)) - (if (gx#identifier? _%L60078%_) - (_%__kont7971579716%_ _%L60076%_ _%L60078%_) - (if (gx#stx-pair? _%hd5939560070%_) - (let ((_%e5940260009%_ - (gx#syntax-e _%hd5939560070%_))) - (let ((_%tl5940460016%_ + (_%g5945059568%_))))))) + (_%__match7982279823%_ + (lambda (_%e5946260062%_ + _%hd5946360066%_ + _%tl5946460069%_ + _%e5946560072%_ + _%hd5946660076%_ + _%tl5946760079%_ + _%e5946860082%_ + _%hd5946960086%_ + _%tl5947060089%_) + (let ((_%L60092%_ _%tl5946460069%_) + (_%L60094%_ _%hd5946660076%_)) + (if (gx#identifier? _%L60094%_) + (_%__kont7978079781%_ _%L60092%_ _%L60094%_) + (_%__match7983479835%_ + _%e5946260062%_ + _%hd5946360066%_ + _%tl5946460069%_ + _%e5946560072%_ + _%hd5946660076%_ + _%tl5946760079%_))))) + (_%__match7980279803%_ + (lambda (_%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_) + (let ((_%L60139%_ _%tl5945960136%_) + (_%L60141%_ _%hd5945860133%_)) + (if (gx#identifier? _%L60141%_) + (_%__kont7977879779%_ _%L60139%_ _%L60141%_) + (if (gx#stx-pair? _%hd5945860133%_) + (let ((_%e5946560072%_ + (gx#syntax-e _%hd5945860133%_))) + (let ((_%tl5946760079%_ (let () (declare (not safe)) - (##cdr _%e5940260009%_))) - (_%hd5940360013%_ + (##cdr _%e5946560072%_))) + (_%hd5946660076%_ (let () (declare (not safe)) - (##car _%e5940260009%_)))) - (if (gx#stx-pair? _%tl5940460016%_) - (let ((_%e5940560019%_ + (##car _%e5946560072%_)))) + (if (gx#stx-pair? _%tl5946760079%_) + (let ((_%e5946860082%_ (gx#syntax-e - _%tl5940460016%_))) - (let ((_%tl5940760026%_ + _%tl5946760079%_))) + (let ((_%tl5947060089%_ (let () (declare (not safe)) - (##cdr _%e5940560019%_))) - (_%hd5940660023%_ + (##cdr _%e5946860082%_))) + (_%hd5946960086%_ (let () (declare (not safe)) - (##car _%e5940560019%_)))) + (##car _%e5946860082%_)))) (if (gx#stx-null? - _%tl5940760026%_) - (_%__match7975979760%_ - _%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_ - _%e5940260009%_ - _%hd5940360013%_ - _%tl5940460016%_ - _%e5940560019%_ - _%hd5940660023%_ - _%tl5940760026%_) - (_%__match7977179772%_ - _%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_ - _%e5940260009%_ - _%hd5940360013%_ - _%tl5940460016%_)))) - (_%__match7977179772%_ - _%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_ - _%e5940260009%_ - _%hd5940360013%_ - _%tl5940460016%_)))) - (if (gx#stx-pair? _%tl5939660073%_) - (let ((_%e5942359674%_ - (gx#syntax-e _%tl5939660073%_))) - (let ((_%tl5942559681%_ + _%tl5947060089%_) + (_%__match7982279823%_ + _%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_ + _%e5946560072%_ + _%hd5946660076%_ + _%tl5946760079%_ + _%e5946860082%_ + _%hd5946960086%_ + _%tl5947060089%_) + (_%__match7983479835%_ + _%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_ + _%e5946560072%_ + _%hd5946660076%_ + _%tl5946760079%_)))) + (_%__match7983479835%_ + _%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_ + _%e5946560072%_ + _%hd5946660076%_ + _%tl5946760079%_)))) + (if (gx#stx-pair? _%tl5945960136%_) + (let ((_%e5948659737%_ + (gx#syntax-e _%tl5945960136%_))) + (let ((_%tl5948859744%_ (let () (declare (not safe)) - (##cdr _%e5942359674%_))) - (_%hd5942459678%_ + (##cdr _%e5948659737%_))) + (_%hd5948759741%_ (let () (declare (not safe)) - (##car _%e5942359674%_)))) - (_%__match7978379784%_ - _%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_ - _%e5942359674%_ - _%hd5942459678%_ - _%tl5942559681%_))) + (##car _%e5948659737%_)))) + (_%__match7984679847%_ + _%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_ + _%e5948659737%_ + _%hd5948759741%_ + _%tl5948859744%_))) (let () (declare (not safe)) - (_%g5938759505%_))))))))) - (if (gx#stx-pair? _%__stx7971279713%_) - (let ((_%e5939460066%_ - (gx#syntax-e _%__stx7971279713%_))) - (let ((_%tl5939660073%_ + (_%g5945059568%_))))))))) + (if (gx#stx-pair? _%__stx7977579776%_) + (let ((_%e5945760129%_ + (gx#syntax-e _%__stx7977579776%_))) + (let ((_%tl5945960136%_ (let () (declare (not safe)) - (##cdr _%e5939460066%_))) - (_%hd5939560070%_ + (##cdr _%e5945760129%_))) + (_%hd5945860133%_ (let () (declare (not safe)) - (##car _%e5939460066%_)))) - (_%__match7973979740%_ - _%e5939460066%_ - _%hd5939560070%_ - _%tl5939660073%_))) - (let () (declare (not safe)) (_%g5938759505%_)))))))))) + (##car _%e5945760129%_)))) + (_%__match7980279803%_ + _%e5945760129%_ + _%hd5945860133%_ + _%tl5945960136%_))) + (let () (declare (not safe)) (_%g5945059568%_)))))))))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - (lambda (_%@@keywords60110%_ . _%args60112%_) + (lambda (_%@@keywords60173%_ . _%args60175%_) (apply |gerbil/core/contract~Interface[1]#check-signature-spec!__%| - _%@@keywords60110%_ + _%@@keywords60173%_ (symbolic-table-ref - _%@@keywords60110%_ + _%@@keywords60173%_ 'optionals: absent-value) - (symbolic-table-ref _%@@keywords60110%_ 'keywords: absent-value) - _%args60112%_))) + (symbolic-table-ref _%@@keywords60173%_ 'keywords: absent-value) + _%args60175%_))) (define |gerbil/core/contract~Interface[1]#check-signature-spec!| - (lambda _%args5935660119%_ + (lambda _%args5941960182%_ (apply keyword-dispatch '#(optionals: keywords:) |gerbil/core/contract~Interface[1]#check-signature-spec!__@| - _%args5935660119%_))) + _%args5941960182%_))) (define |gerbil/core/contract~Interface[1]#signature-contract?| - (lambda (_%contract58813%_) - (let* ((_%__stx7983279833%_ _%contract58813%_) - (_%g5882258910%_ + (lambda (_%contract58876%_) + (let* ((_%__stx7989579896%_ _%contract58876%_) + (_%g5888558973%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7983279833%_)))) - (let ((_%__kont7983579836%_ - (lambda (_%L59322%_ _%L59324%_) (gx#identifier? _%L59322%_))) - (_%__kont7983779838%_ - (lambda (_%L59262%_ _%L59264%_ _%L59265%_) - (gx#identifier? _%L59264%_))) - (_%__kont7983979840%_ (lambda (_%L59202%_) '#t)) - (_%__kont7984179842%_ (lambda (_%L59156%_ _%L59158%_) '#t)) - (_%__kont7984379844%_ - (lambda (_%L59076%_ _%L59078%_ _%L59079%_) - (gx#identifier? _%L59076%_))) - (_%__kont7984579846%_ - (lambda (_%L58988%_ _%L58990%_ _%L58991%_ _%L58992%_) - (gx#identifier? _%L58990%_))) - (_%__kont7984779848%_ (lambda () '#f))) - (let* ((_%__match8002180022%_ - (lambda (_%e5888758928%_ - _%hd5888858932%_ - _%tl5888958935%_ - _%e5889058938%_ - _%hd5889158942%_ - _%tl5889258945%_ - _%e5889358948%_ - _%hd5889458952%_ - _%tl5889558955%_ - _%e5889658958%_ - _%hd5889758962%_ - _%tl5889858965%_ - _%e5889958968%_ - _%hd5890058972%_ - _%tl5890158975%_ - _%e5890258978%_ - _%hd5890358982%_ - _%tl5890458985%_) - (let ((_%L58988%_ _%hd5890358982%_) - (_%L58990%_ _%hd5889758962%_) - (_%L58991%_ _%hd5889458952%_) - (_%L58992%_ _%hd5889158942%_)) - (if (and (gx#identifier? _%L58991%_) + _%__stx7989579896%_)))) + (let ((_%__kont7989879899%_ + (lambda (_%L59385%_ _%L59387%_) (gx#identifier? _%L59385%_))) + (_%__kont7990079901%_ + (lambda (_%L59325%_ _%L59327%_ _%L59328%_) + (gx#identifier? _%L59327%_))) + (_%__kont7990279903%_ (lambda (_%L59265%_) '#t)) + (_%__kont7990479905%_ (lambda (_%L59219%_ _%L59221%_) '#t)) + (_%__kont7990679907%_ + (lambda (_%L59139%_ _%L59141%_ _%L59142%_) + (gx#identifier? _%L59139%_))) + (_%__kont7990879909%_ + (lambda (_%L59051%_ _%L59053%_ _%L59054%_ _%L59055%_) + (gx#identifier? _%L59053%_))) + (_%__kont7991079911%_ (lambda () '#f))) + (let* ((_%__match8008480085%_ + (lambda (_%e5895058991%_ + _%hd5895158995%_ + _%tl5895258998%_ + _%e5895359001%_ + _%hd5895459005%_ + _%tl5895559008%_ + _%e5895659011%_ + _%hd5895759015%_ + _%tl5895859018%_ + _%e5895959021%_ + _%hd5896059025%_ + _%tl5896159028%_ + _%e5896259031%_ + _%hd5896359035%_ + _%tl5896459038%_ + _%e5896559041%_ + _%hd5896659045%_ + _%tl5896759048%_) + (let ((_%L59051%_ _%hd5896659045%_) + (_%L59053%_ _%hd5896059025%_) + (_%L59054%_ _%hd5895759015%_) + (_%L59055%_ _%hd5895459005%_)) + (if (and (gx#identifier? _%L59054%_) (or (gx#free-identifier=? - _%L58991%_ + _%L59054%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58991%_ + _%L59054%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58991%_ + _%L59054%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58991%_ + _%L59054%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7984579846%_ - _%L58988%_ - _%L58990%_ - _%L58991%_ - _%L58992%_) - (_%__kont7984779848%_))))) - (_%__match7997579976%_ - (lambda (_%e5887159036%_ - _%hd5887259040%_ - _%tl5887359043%_ - _%e5887459046%_ - _%hd5887559050%_ - _%tl5887659053%_ - _%e5887759056%_ - _%hd5887859060%_ - _%tl5887959063%_ - _%e5888059066%_ - _%hd5888159070%_ - _%tl5888259073%_) - (let ((_%L59076%_ _%hd5888159070%_) - (_%L59078%_ _%hd5887859060%_) - (_%L59079%_ _%hd5887559050%_)) - (if (and (gx#identifier? _%L59078%_) + (_%__kont7990879909%_ + _%L59051%_ + _%L59053%_ + _%L59054%_ + _%L59055%_) + (_%__kont7991079911%_))))) + (_%__match8003880039%_ + (lambda (_%e5893459099%_ + _%hd5893559103%_ + _%tl5893659106%_ + _%e5893759109%_ + _%hd5893859113%_ + _%tl5893959116%_ + _%e5894059119%_ + _%hd5894159123%_ + _%tl5894259126%_ + _%e5894359129%_ + _%hd5894459133%_ + _%tl5894559136%_) + (let ((_%L59139%_ _%hd5894459133%_) + (_%L59141%_ _%hd5894159123%_) + (_%L59142%_ _%hd5893859113%_)) + (if (and (gx#identifier? _%L59141%_) (or (gx#free-identifier=? - _%L59078%_ + _%L59141%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59078%_ + _%L59141%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59078%_ + _%L59141%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59078%_ + _%L59141%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7984379844%_ - _%L59076%_ - _%L59078%_ - _%L59079%_) - (_%__kont7984779848%_))))) - (_%__match7989379894%_ - (lambda (_%e5883559222%_ - _%hd5883659226%_ - _%tl5883759229%_ - _%e5883859232%_ - _%hd5883959236%_ - _%tl5884059239%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5884459252%_ - _%hd5884559256%_ - _%tl5884659259%_) - (let ((_%L59262%_ _%hd5884559256%_) - (_%L59264%_ _%hd5883959236%_) - (_%L59265%_ _%hd5883659226%_)) - (if (and (gx#identifier? _%L59265%_) + (_%__kont7990679907%_ + _%L59139%_ + _%L59141%_ + _%L59142%_) + (_%__kont7991079911%_))))) + (_%__match7995679957%_ + (lambda (_%e5889859285%_ + _%hd5889959289%_ + _%tl5890059292%_ + _%e5890159295%_ + _%hd5890259299%_ + _%tl5890359302%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5890759315%_ + _%hd5890859319%_ + _%tl5890959322%_) + (let ((_%L59325%_ _%hd5890859319%_) + (_%L59327%_ _%hd5890259299%_) + (_%L59328%_ _%hd5889959289%_)) + (if (and (gx#identifier? _%L59328%_) (or (gx#free-identifier=? - _%L59265%_ + _%L59328%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59265%_ + _%L59328%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59265%_ + _%L59328%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59265%_ + _%L59328%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7983779838%_ - _%L59262%_ - _%L59264%_ - _%L59265%_) - (if (gx#identifier? _%hd5883659226%_) + (_%__kont7990079901%_ + _%L59325%_ + _%L59327%_ + _%L59328%_) + (if (gx#identifier? _%hd5889959289%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84096_| - _%hd5883659226%_) - (_%__kont7984179842%_ - _%hd5884559256%_ - _%hd5883959236%_) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)))))) - (_%__match7986379864%_ - (lambda (_%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_) - (let ((_%L59322%_ _%hd5883059316%_) - (_%L59324%_ _%hd5882759306%_)) - (if (and (gx#identifier? _%L59324%_) + |gerbil/core/contract~Interface[1]#_g84159_| + _%hd5889959289%_) + (_%__kont7990479905%_ + _%hd5890859319%_ + _%hd5890259299%_) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)))))) + (_%__match7992679927%_ + (lambda (_%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_) + (let ((_%L59385%_ _%hd5889359379%_) + (_%L59387%_ _%hd5889059369%_)) + (if (and (gx#identifier? _%L59387%_) (or (gx#free-identifier=? - _%L59324%_ + _%L59387%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L59324%_ + _%L59387%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L59324%_ + _%L59387%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L59324%_ + _%L59387%_ (gx#datum->syntax '#f ':?)))) - (_%__kont7983579836%_ _%L59322%_ _%L59324%_) - (if (gx#identifier? _%hd5882759306%_) + (_%__kont7989879899%_ _%L59385%_ _%L59387%_) + (if (gx#identifier? _%hd5889059369%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84096_| - _%hd5882759306%_) - (_%__kont7983979840%_ _%hd5883059316%_) - (_%__kont7984779848%_)) - (_%__kont7984779848%_))))))) - (if (gx#stx-pair? _%__stx7983279833%_) - (let ((_%e5882659302%_ (gx#syntax-e _%__stx7983279833%_))) - (let ((_%tl5882859309%_ + |gerbil/core/contract~Interface[1]#_g84159_| + _%hd5889059369%_) + (_%__kont7990279903%_ _%hd5889359379%_) + (_%__kont7991079911%_)) + (_%__kont7991079911%_))))))) + (if (gx#stx-pair? _%__stx7989579896%_) + (let ((_%e5888959365%_ (gx#syntax-e _%__stx7989579896%_))) + (let ((_%tl5889159372%_ (let () (declare (not safe)) - (##cdr _%e5882659302%_))) - (_%hd5882759306%_ + (##cdr _%e5888959365%_))) + (_%hd5889059369%_ (let () (declare (not safe)) - (##car _%e5882659302%_)))) - (if (gx#stx-pair? _%tl5882859309%_) - (let ((_%e5882959312%_ - (gx#syntax-e _%tl5882859309%_))) - (let ((_%tl5883159319%_ + (##car _%e5888959365%_)))) + (if (gx#stx-pair? _%tl5889159372%_) + (let ((_%e5889259375%_ + (gx#syntax-e _%tl5889159372%_))) + (let ((_%tl5889459382%_ (let () (declare (not safe)) - (##cdr _%e5882959312%_))) - (_%hd5883059316%_ + (##cdr _%e5889259375%_))) + (_%hd5889359379%_ (let () (declare (not safe)) - (##car _%e5882959312%_)))) - (if (gx#stx-null? _%tl5883159319%_) - (_%__match7986379864%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_) - (if (gx#stx-pair? _%tl5883159319%_) - (let ((_%e5884159242%_ - (gx#syntax-e _%tl5883159319%_))) - (let ((_%tl5884359249%_ + (##car _%e5889259375%_)))) + (if (gx#stx-null? _%tl5889459382%_) + (_%__match7992679927%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_) + (if (gx#stx-pair? _%tl5889459382%_) + (let ((_%e5890459305%_ + (gx#syntax-e _%tl5889459382%_))) + (let ((_%tl5890659312%_ (let () (declare (not safe)) - (##cdr _%e5884159242%_))) - (_%hd5884259246%_ + (##cdr _%e5890459305%_))) + (_%hd5890559309%_ (let () (declare (not safe)) - (##car _%e5884159242%_)))) - (if (gx#identifier? _%hd5884259246%_) + (##car _%e5890459305%_)))) + (if (gx#identifier? _%hd5890559309%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84097_| - _%hd5884259246%_) + |gerbil/core/contract~Interface[1]#_g84160_| + _%hd5890559309%_) (if (gx#stx-pair? - _%tl5884359249%_) - (let ((_%e5884459252%_ + _%tl5890659312%_) + (let ((_%e5890759315%_ (gx#syntax-e - _%tl5884359249%_))) - (let ((_%tl5884659259%_ + _%tl5890659312%_))) + (let ((_%tl5890959322%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5884459252%_))) - (_%hd5884559256%_ - (let () (declare (not safe)) (##car _%e5884459252%_)))) - (if (gx#stx-null? _%tl5884659259%_) - (_%__match7989379894%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5884459252%_ - _%hd5884559256%_ - _%tl5884659259%_) - (if (gx#identifier? _%hd5882759306%_) + (##cdr _%e5890759315%_))) + (_%hd5890859319%_ + (let () (declare (not safe)) (##car _%e5890759315%_)))) + (if (gx#stx-null? _%tl5890959322%_) + (_%__match7995679957%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5890759315%_ + _%hd5890859319%_ + _%tl5890959322%_) + (if (gx#identifier? _%hd5889059369%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84096_| - _%hd5882759306%_) - (if (gx#stx-pair? _%tl5884659259%_) - (let ((_%e5889958968%_ - (gx#syntax-e _%tl5884659259%_))) - (let ((_%tl5890158975%_ + |gerbil/core/contract~Interface[1]#_g84159_| + _%hd5889059369%_) + (if (gx#stx-pair? _%tl5890959322%_) + (let ((_%e5896259031%_ + (gx#syntax-e _%tl5890959322%_))) + (let ((_%tl5896459038%_ (let () (declare (not safe)) - (##cdr _%e5889958968%_))) - (_%hd5890058972%_ + (##cdr _%e5896259031%_))) + (_%hd5896359035%_ (let () (declare (not safe)) - (##car _%e5889958968%_)))) - (if (gx#identifier? _%hd5890058972%_) + (##car _%e5896259031%_)))) + (if (gx#identifier? _%hd5896359035%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84098_| - _%hd5890058972%_) + |gerbil/core/contract~Interface[1]#_g84161_| + _%hd5896359035%_) (if (gx#stx-pair? - _%tl5890158975%_) - (let ((_%e5890258978%_ + _%tl5896459038%_) + (let ((_%e5896559041%_ (gx#syntax-e - _%tl5890158975%_))) - (let ((_%tl5890458985%_ + _%tl5896459038%_))) + (let ((_%tl5896759048%_ (let () (declare (not safe)) - (##cdr _%e5890258978%_))) - (_%hd5890358982%_ + (##cdr _%e5896559041%_))) + (_%hd5896659045%_ (let () (declare (not safe)) - (##car _%e5890258978%_)))) + (##car _%e5896559041%_)))) (if (gx#stx-null? - _%tl5890458985%_) - (_%__match8002180022%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5884459252%_ - _%hd5884559256%_ - _%tl5884659259%_ - _%e5889958968%_ - _%hd5890058972%_ - _%tl5890158975%_ - _%e5890258978%_ - _%hd5890358982%_ - _%tl5890458985%_) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_))))) - (_%__kont7984779848%_)) + _%tl5896759048%_) + (_%__match8008480085%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5890759315%_ + _%hd5890859319%_ + _%tl5890959322%_ + _%e5896259031%_ + _%hd5896359035%_ + _%tl5896459038%_ + _%e5896559041%_ + _%hd5896659045%_ + _%tl5896759048%_) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) + (_%__kont7991079911%_))))) + (_%__kont7991079911%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5882759306%_) + _%hd5889059369%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84096_| - _%hd5882759306%_) + |gerbil/core/contract~Interface[1]#_g84159_| + _%hd5889059369%_) (if (gx#stx-pair? - _%tl5884359249%_) - (let ((_%e5888059066%_ + _%tl5890659312%_) + (let ((_%e5894359129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5884359249%_))) - (let ((_%tl5888259073%_ + (gx#syntax-e _%tl5890659312%_))) + (let ((_%tl5894559136%_ (let () (declare (not safe)) - (##cdr _%e5888059066%_))) - (_%hd5888159070%_ + (##cdr _%e5894359129%_))) + (_%hd5894459133%_ (let () (declare (not safe)) - (##car _%e5888059066%_)))) - (if (gx#stx-null? _%tl5888259073%_) - (_%__match7997579976%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5888059066%_ - _%hd5888159070%_ - _%tl5888259073%_) - (if (gx#stx-pair? _%tl5888259073%_) - (let ((_%e5889958968%_ - (gx#syntax-e _%tl5888259073%_))) - (let ((_%tl5890158975%_ + (##car _%e5894359129%_)))) + (if (gx#stx-null? _%tl5894559136%_) + (_%__match8003880039%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5894359129%_ + _%hd5894459133%_ + _%tl5894559136%_) + (if (gx#stx-pair? _%tl5894559136%_) + (let ((_%e5896259031%_ + (gx#syntax-e _%tl5894559136%_))) + (let ((_%tl5896459038%_ (let () (declare (not safe)) - (##cdr _%e5889958968%_))) - (_%hd5890058972%_ + (##cdr _%e5896259031%_))) + (_%hd5896359035%_ (let () (declare (not safe)) - (##car _%e5889958968%_)))) - (if (gx#identifier? _%hd5890058972%_) + (##car _%e5896259031%_)))) + (if (gx#identifier? _%hd5896359035%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84098_| - _%hd5890058972%_) + |gerbil/core/contract~Interface[1]#_g84161_| + _%hd5896359035%_) (if (gx#stx-pair? - _%tl5890158975%_) - (let ((_%e5890258978%_ + _%tl5896459038%_) + (let ((_%e5896559041%_ (gx#syntax-e - _%tl5890158975%_))) - (let ((_%tl5890458985%_ + _%tl5896459038%_))) + (let ((_%tl5896759048%_ (let () (declare (not safe)) - (##cdr _%e5890258978%_))) - (_%hd5890358982%_ + (##cdr _%e5896559041%_))) + (_%hd5896659045%_ (let () (declare (not safe)) - (##car _%e5890258978%_)))) + (##car _%e5896559041%_)))) (if (gx#stx-null? - _%tl5890458985%_) - (_%__match8002180022%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5888059066%_ - _%hd5888159070%_ - _%tl5888259073%_ - _%e5889958968%_ - _%hd5890058972%_ - _%tl5890158975%_ - _%e5890258978%_ - _%hd5890358982%_ - _%tl5890458985%_) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_))))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_))) + _%tl5896759048%_) + (_%__match8008480085%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5894359129%_ + _%hd5894459133%_ + _%tl5894559136%_ + _%e5896259031%_ + _%hd5896359035%_ + _%tl5896459038%_ + _%e5896559041%_ + _%hd5896659045%_ + _%tl5896759048%_) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_))))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) + (_%__kont7991079911%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#identifier? - _%hd5882759306%_) + _%hd5889059369%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84096_| - _%hd5882759306%_) + |gerbil/core/contract~Interface[1]#_g84159_| + _%hd5889059369%_) (if (gx#stx-pair? - _%tl5884359249%_) - (let ((_%e5888059066%_ + _%tl5890659312%_) + (let ((_%e5894359129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5884359249%_))) - (let ((_%tl5888259073%_ + (gx#syntax-e _%tl5890659312%_))) + (let ((_%tl5894559136%_ (let () (declare (not safe)) - (##cdr _%e5888059066%_))) - (_%hd5888159070%_ + (##cdr _%e5894359129%_))) + (_%hd5894459133%_ (let () (declare (not safe)) - (##car _%e5888059066%_)))) - (if (gx#stx-null? _%tl5888259073%_) - (_%__match7997579976%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5888059066%_ - _%hd5888159070%_ - _%tl5888259073%_) - (if (gx#stx-pair? _%tl5888259073%_) - (let ((_%e5889958968%_ - (gx#syntax-e _%tl5888259073%_))) - (let ((_%tl5890158975%_ + (##car _%e5894359129%_)))) + (if (gx#stx-null? _%tl5894559136%_) + (_%__match8003880039%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5894359129%_ + _%hd5894459133%_ + _%tl5894559136%_) + (if (gx#stx-pair? _%tl5894559136%_) + (let ((_%e5896259031%_ + (gx#syntax-e _%tl5894559136%_))) + (let ((_%tl5896459038%_ (let () (declare (not safe)) - (##cdr _%e5889958968%_))) - (_%hd5890058972%_ + (##cdr _%e5896259031%_))) + (_%hd5896359035%_ (let () (declare (not safe)) - (##car _%e5889958968%_)))) - (if (gx#identifier? _%hd5890058972%_) + (##car _%e5896259031%_)))) + (if (gx#identifier? _%hd5896359035%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84098_| - _%hd5890058972%_) - (if (gx#stx-pair? _%tl5890158975%_) - (let ((_%e5890258978%_ + |gerbil/core/contract~Interface[1]#_g84161_| + _%hd5896359035%_) + (if (gx#stx-pair? _%tl5896459038%_) + (let ((_%e5896559041%_ (gx#syntax-e - _%tl5890158975%_))) - (let ((_%tl5890458985%_ + _%tl5896459038%_))) + (let ((_%tl5896759048%_ (let () (declare (not safe)) - (##cdr _%e5890258978%_))) - (_%hd5890358982%_ + (##cdr _%e5896559041%_))) + (_%hd5896659045%_ (let () (declare (not safe)) - (##car _%e5890258978%_)))) + (##car _%e5896559041%_)))) (if (gx#stx-null? - _%tl5890458985%_) - (_%__match8002180022%_ - _%e5882659302%_ - _%hd5882759306%_ - _%tl5882859309%_ - _%e5882959312%_ - _%hd5883059316%_ - _%tl5883159319%_ - _%e5884159242%_ - _%hd5884259246%_ - _%tl5884359249%_ - _%e5888059066%_ - _%hd5888159070%_ - _%tl5888259073%_ - _%e5889958968%_ - _%hd5890058972%_ - _%tl5890158975%_ - _%e5890258978%_ - _%hd5890358982%_ - _%tl5890458985%_) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_))))) - (_%__kont7984779848%_)) - (_%__kont7984779848%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7984779848%_))))) - (_%__kont7984779848%_))))) - (_%__kont7984779848%_)))) - (_%__kont7984779848%_))))))) + _%tl5896759048%_) + (_%__match8008480085%_ + _%e5888959365%_ + _%hd5889059369%_ + _%tl5889159372%_ + _%e5889259375%_ + _%hd5889359379%_ + _%tl5889459382%_ + _%e5890459305%_ + _%hd5890559309%_ + _%tl5890659312%_ + _%e5894359129%_ + _%hd5894459133%_ + _%tl5894559136%_ + _%e5896259031%_ + _%hd5896359035%_ + _%tl5896459038%_ + _%e5896559041%_ + _%hd5896659045%_ + _%tl5896759048%_) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_))))) + (_%__kont7991079911%_)) + (_%__kont7991079911%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont7991079911%_))))) + (_%__kont7991079911%_))))) + (_%__kont7991079911%_)))) + (_%__kont7991079911%_))))))) (define |gerbil/core/contract~Interface[1]#check-signature-contract-types!| - (lambda (_%stx58620%_ _%contract58622%_) - (let* ((_%__stx8002480025%_ _%contract58622%_) - (_%g5862658658%_ + (lambda (_%stx58683%_ _%contract58685%_) + (let* ((_%__stx8008780088%_ _%contract58685%_) + (_%g5868958721%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8002480025%_)))) - (let ((_%__kont8002780028%_ - (lambda (_%L58780%_ _%L58782%_ _%L58783%_) + _%__stx8008780088%_)))) + (let ((_%__kont8009080091%_ + (lambda (_%L58843%_ _%L58845%_ _%L58846%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58620%_ - _%L58782%_))) - (_%__kont8002980030%_ - (lambda (_%L58716%_ _%L58718%_ _%L58719%_ _%L58720%_) + _%stx58683%_ + _%L58845%_))) + (_%__kont8009280093%_ + (lambda (_%L58779%_ _%L58781%_ _%L58782%_ _%L58783%_) (|gerbil/core/contract~Interface[1]#check-valid-type!| - _%stx58620%_ - _%L58718%_))) - (_%__kont8003180032%_ (lambda () (void)))) - (let* ((_%__match8007380074%_ - (lambda (_%e5864158676%_ - _%hd5864258680%_ - _%tl5864358683%_ - _%e5864458686%_ - _%hd5864558690%_ - _%tl5864658693%_ - _%e5864758696%_ - _%hd5864858700%_ - _%tl5864958703%_ - _%e5865058706%_ - _%hd5865158710%_ - _%tl5865258713%_) - (let ((_%L58716%_ _%tl5865258713%_) - (_%L58718%_ _%hd5865158710%_) - (_%L58719%_ _%hd5864858700%_) - (_%L58720%_ _%hd5864558690%_)) - (if (and (gx#identifier? _%L58719%_) + _%stx58683%_ + _%L58781%_))) + (_%__kont8009480095%_ (lambda () (void)))) + (let* ((_%__match8013680137%_ + (lambda (_%e5870458739%_ + _%hd5870558743%_ + _%tl5870658746%_ + _%e5870758749%_ + _%hd5870858753%_ + _%tl5870958756%_ + _%e5871058759%_ + _%hd5871158763%_ + _%tl5871258766%_ + _%e5871358769%_ + _%hd5871458773%_ + _%tl5871558776%_) + (let ((_%L58779%_ _%tl5871558776%_) + (_%L58781%_ _%hd5871458773%_) + (_%L58782%_ _%hd5871158763%_) + (_%L58783%_ _%hd5870858753%_)) + (if (and (gx#identifier? _%L58782%_) (or (gx#free-identifier=? - _%L58719%_ + _%L58782%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58719%_ + _%L58782%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58719%_ + _%L58782%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58719%_ + _%L58782%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8002980030%_ - _%L58716%_ - _%L58718%_ - _%L58719%_ - _%L58720%_) - (_%__kont8003180032%_))))) - (_%__match8004580046%_ - (lambda (_%e5863158760%_ - _%hd5863258764%_ - _%tl5863358767%_ - _%e5863458770%_ - _%hd5863558774%_ - _%tl5863658777%_) - (let ((_%L58780%_ _%tl5863658777%_) - (_%L58782%_ _%hd5863558774%_) - (_%L58783%_ _%hd5863258764%_)) - (if (and (gx#identifier? _%L58783%_) + (_%__kont8009280093%_ + _%L58779%_ + _%L58781%_ + _%L58782%_ + _%L58783%_) + (_%__kont8009480095%_))))) + (_%__match8010880109%_ + (lambda (_%e5869458823%_ + _%hd5869558827%_ + _%tl5869658830%_ + _%e5869758833%_ + _%hd5869858837%_ + _%tl5869958840%_) + (let ((_%L58843%_ _%tl5869958840%_) + (_%L58845%_ _%hd5869858837%_) + (_%L58846%_ _%hd5869558827%_)) + (if (and (gx#identifier? _%L58846%_) (or (gx#free-identifier=? - _%L58783%_ + _%L58846%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L58783%_ + _%L58846%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L58783%_ + _%L58846%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L58783%_ + _%L58846%_ (gx#datum->syntax '#f ':?)))) - (_%__kont8002780028%_ - _%L58780%_ - _%L58782%_ - _%L58783%_) - (if (gx#identifier? _%hd5863258764%_) + (_%__kont8009080091%_ + _%L58843%_ + _%L58845%_ + _%L58846%_) + (if (gx#identifier? _%hd5869558827%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84099_| - _%hd5863258764%_) - (if (gx#stx-pair? _%tl5863658777%_) - (let ((_%e5864758696%_ - (gx#syntax-e _%tl5863658777%_))) - (let ((_%tl5864958703%_ + |gerbil/core/contract~Interface[1]#_g84162_| + _%hd5869558827%_) + (if (gx#stx-pair? _%tl5869958840%_) + (let ((_%e5871058759%_ + (gx#syntax-e _%tl5869958840%_))) + (let ((_%tl5871258766%_ (let () (declare (not safe)) - (##cdr _%e5864758696%_))) - (_%hd5864858700%_ + (##cdr _%e5871058759%_))) + (_%hd5871158763%_ (let () (declare (not safe)) - (##car _%e5864758696%_)))) - (if (gx#stx-pair? _%tl5864958703%_) - (let ((_%e5865058706%_ + (##car _%e5871058759%_)))) + (if (gx#stx-pair? _%tl5871258766%_) + (let ((_%e5871358769%_ (gx#syntax-e - _%tl5864958703%_))) - (let ((_%tl5865258713%_ + _%tl5871258766%_))) + (let ((_%tl5871558776%_ (let () (declare (not safe)) - (##cdr _%e5865058706%_))) - (_%hd5865158710%_ + (##cdr _%e5871358769%_))) + (_%hd5871458773%_ (let () (declare (not safe)) - (##car _%e5865058706%_)))) - (_%__match8007380074%_ - _%e5863158760%_ - _%hd5863258764%_ - _%tl5863358767%_ - _%e5863458770%_ - _%hd5863558774%_ - _%tl5863658777%_ - _%e5864758696%_ - _%hd5864858700%_ - _%tl5864958703%_ - _%e5865058706%_ - _%hd5865158710%_ - _%tl5865258713%_))) - (_%__kont8003180032%_)))) - (_%__kont8003180032%_)) - (_%__kont8003180032%_)) - (_%__kont8003180032%_))))))) - (if (gx#stx-pair? _%__stx8002480025%_) - (let ((_%e5863158760%_ (gx#syntax-e _%__stx8002480025%_))) - (let ((_%tl5863358767%_ + (##car _%e5871358769%_)))) + (_%__match8013680137%_ + _%e5869458823%_ + _%hd5869558827%_ + _%tl5869658830%_ + _%e5869758833%_ + _%hd5869858837%_ + _%tl5869958840%_ + _%e5871058759%_ + _%hd5871158763%_ + _%tl5871258766%_ + _%e5871358769%_ + _%hd5871458773%_ + _%tl5871558776%_))) + (_%__kont8009480095%_)))) + (_%__kont8009480095%_)) + (_%__kont8009480095%_)) + (_%__kont8009480095%_))))))) + (if (gx#stx-pair? _%__stx8008780088%_) + (let ((_%e5869458823%_ (gx#syntax-e _%__stx8008780088%_))) + (let ((_%tl5869658830%_ (let () (declare (not safe)) - (##cdr _%e5863158760%_))) - (_%hd5863258764%_ + (##cdr _%e5869458823%_))) + (_%hd5869558827%_ (let () (declare (not safe)) - (##car _%e5863158760%_)))) - (if (gx#stx-pair? _%tl5863358767%_) - (let ((_%e5863458770%_ - (gx#syntax-e _%tl5863358767%_))) - (let ((_%tl5863658777%_ + (##car _%e5869458823%_)))) + (if (gx#stx-pair? _%tl5869658830%_) + (let ((_%e5869758833%_ + (gx#syntax-e _%tl5869658830%_))) + (let ((_%tl5869958840%_ (let () (declare (not safe)) - (##cdr _%e5863458770%_))) - (_%hd5863558774%_ + (##cdr _%e5869758833%_))) + (_%hd5869858837%_ (let () (declare (not safe)) - (##car _%e5863458770%_)))) - (_%__match8004580046%_ - _%e5863158760%_ - _%hd5863258764%_ - _%tl5863358767%_ - _%e5863458770%_ - _%hd5863558774%_ - _%tl5863658777%_))) - (_%__kont8003180032%_)))) - (_%__kont8003180032%_))))))) + (##car _%e5869758833%_)))) + (_%__match8010880109%_ + _%e5869458823%_ + _%hd5869558827%_ + _%tl5869658830%_ + _%e5869758833%_ + _%hd5869858837%_ + _%tl5869958840%_))) + (_%__kont8009480095%_)))) + (_%__kont8009480095%_))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-in| - (lambda (_%signature57976%_) - (let _%loop57979%_ ((_%rest57982%_ _%signature57976%_) - (_%result57984%_ '())) - (let* ((_%__stx8015280153%_ _%rest57982%_) - (_%g5799358065%_ + (lambda (_%signature58039%_) + (let _%loop58042%_ ((_%rest58045%_ _%signature58039%_) + (_%result58047%_ '())) + (let* ((_%__stx8021580216%_ _%rest58045%_) + (_%g5805658128%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8015280153%_)))) - (let ((_%__kont8015580156%_ - (lambda (_%L58603%_ _%L58605%_) - (_%loop57979%_ - _%L58603%_ - (cons _%L58605%_ _%result57984%_)))) - (_%__kont8015780158%_ - (lambda (_%L58567%_ _%L58569%_ _%L58570%_) - (_%loop57979%_ - _%L58567%_ - (cons (cons _%L58570%_ (cons _%L58569%_ '())) - _%result57984%_)))) - (_%__kont8015980160%_ - (lambda (_%L58404%_ _%L58406%_ _%L58407%_) - (let* ((_%__stx8011480115%_ _%L58406%_) - (_%g5842258443%_ + _%__stx8021580216%_)))) + (let ((_%__kont8021880219%_ + (lambda (_%L58666%_ _%L58668%_) + (_%loop58042%_ + _%L58666%_ + (cons _%L58668%_ _%result58047%_)))) + (_%__kont8022080221%_ + (lambda (_%L58630%_ _%L58632%_ _%L58633%_) + (_%loop58042%_ + _%L58630%_ + (cons (cons _%L58633%_ (cons _%L58632%_ '())) + _%result58047%_)))) + (_%__kont8022280223%_ + (lambda (_%L58467%_ _%L58469%_ _%L58470%_) + (let* ((_%__stx8017780178%_ _%L58469%_) + (_%g5848558506%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8011480115%_)))) - (let ((_%__kont8011780118%_ - (lambda (_%L58507%_) - (_%loop57979%_ - _%L58404%_ - (cons (cons _%L58407%_ (cons _%L58507%_ '())) - _%result57984%_)))) - (_%__kont8012180122%_ + _%__stx8017780178%_)))) + (let ((_%__kont8018080181%_ + (lambda (_%L58570%_) + (_%loop58042%_ + _%L58467%_ + (cons (cons _%L58470%_ (cons _%L58570%_ '())) + _%result58047%_)))) + (_%__kont8018480185%_ (lambda () - (_%loop57979%_ - _%L58404%_ - (cons _%L58407%_ _%result57984%_))))) - (let ((_%__match8014980150%_ - (lambda (_%__splice8011980120%_ - _%target5842558461%_ - _%tl5842758464%_ - _%e5843258467%_ - _%hd5843358471%_ - _%tl5843458474%_ - _%e5843558477%_ - _%hd5843658481%_ - _%tl5843758484%_) - (letrec ((_%loop5842858487%_ - (lambda (_%hd5842658491%_) + (_%loop58042%_ + _%L58467%_ + (cons _%L58470%_ _%result58047%_))))) + (let ((_%__match8021280213%_ + (lambda (_%__splice8018280183%_ + _%target5848858524%_ + _%tl5849058527%_ + _%e5849558530%_ + _%hd5849658534%_ + _%tl5849758537%_ + _%e5849858540%_ + _%hd5849958544%_ + _%tl5850058547%_) + (letrec ((_%loop5849158550%_ + (lambda (_%hd5848958554%_) (if (gx#stx-pair? - _%hd5842658491%_) - (let ((_%e5842958495%_ + _%hd5848958554%_) + (let ((_%e5849258558%_ (gx#syntax-e - _%hd5842658491%_))) - (let ((_%lp-tl5843158502%_ + _%hd5848958554%_))) + (let ((_%lp-tl5849458565%_ (let () (declare (not safe)) - (##cdr _%e5842958495%_))) - (_%lp-hd5843058499%_ + (##cdr _%e5849258558%_))) + (_%lp-hd5849358562%_ (let () (declare (not safe)) - (##car _%e5842958495%_)))) - (_%loop5842858487%_ - _%lp-tl5843158502%_))) - (_%__kont8011780118%_ - _%hd5843658481%_))))) - (_%loop5842858487%_ - _%target5842558461%_))))) - (if (gx#stx-pair/null? _%__stx8011480115%_) - (if (let ((__tmp84100 - (gx#stx-length _%__stx8011480115%_))) + (##car _%e5849258558%_)))) + (_%loop5849158550%_ + _%lp-tl5849458565%_))) + (_%__kont8018080181%_ + _%hd5849958544%_))))) + (_%loop5849158550%_ + _%target5848858524%_))))) + (if (gx#stx-pair/null? _%__stx8017780178%_) + (if (let ((__tmp84163 + (gx#stx-length _%__stx8017780178%_))) (declare (not safe)) - (##fx>= __tmp84100 '2)) - (let ((_%__splice8011980120%_ + (##fx>= __tmp84163 '2)) + (let ((_%__splice8018280183%_ (gx#syntax-split-splice - _%__stx8011480115%_ + _%__stx8017780178%_ '2))) - (let ((_%tl5842758464%_ + (let ((_%tl5849058527%_ (let () (declare (not safe)) (##vector-ref - _%__splice8011980120%_ + _%__splice8018280183%_ '1))) - (_%target5842558461%_ + (_%target5848858524%_ (let () (declare (not safe)) (##vector-ref - _%__splice8011980120%_ + _%__splice8018280183%_ '0)))) - (if (gx#stx-pair? _%tl5842758464%_) - (let ((_%e5843258467%_ + (if (gx#stx-pair? _%tl5849058527%_) + (let ((_%e5849558530%_ (gx#syntax-e - _%tl5842758464%_))) - (let ((_%tl5843458474%_ + _%tl5849058527%_))) + (let ((_%tl5849758537%_ (let () (declare (not safe)) - (##cdr _%e5843258467%_))) - (_%hd5843358471%_ + (##cdr _%e5849558530%_))) + (_%hd5849658534%_ (let () (declare (not safe)) - (##car _%e5843258467%_)))) + (##car _%e5849558530%_)))) (if (gx#identifier? - _%hd5843358471%_) + _%hd5849658534%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84101_| - _%hd5843358471%_) + |gerbil/core/contract~Interface[1]#_g84164_| + _%hd5849658534%_) (if (gx#stx-pair? - _%tl5843458474%_) - (let ((_%e5843558477%_ + _%tl5849758537%_) + (let ((_%e5849858540%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5843458474%_))) - (let ((_%tl5843758484%_ + (gx#syntax-e _%tl5849758537%_))) + (let ((_%tl5850058547%_ (let () (declare (not safe)) - (##cdr _%e5843558477%_))) - (_%hd5843658481%_ + (##cdr _%e5849858540%_))) + (_%hd5849958544%_ (let () (declare (not safe)) - (##car _%e5843558477%_)))) - (if (gx#stx-null? _%tl5843758484%_) - (_%__match8014980150%_ - _%__splice8011980120%_ - _%target5842558461%_ - _%tl5842758464%_ - _%e5843258467%_ - _%hd5843358471%_ - _%tl5843458474%_ - _%e5843558477%_ - _%hd5843658481%_ - _%tl5843758484%_) - (_%__kont8012180122%_)))) - (_%__kont8012180122%_)) - (_%__kont8012180122%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8012180122%_)))) - (_%__kont8012180122%_)))) - (_%__kont8012180122%_)) - (_%__kont8012180122%_))))))) - (_%__kont8016180162%_ - (lambda (_%L58360%_ _%L58362%_ _%L58363%_) - (_%loop57979%_ - _%L58360%_ - (cons _%L58362%_ (cons _%L58363%_ _%result57984%_))))) - (_%__kont8016380164%_ - (lambda (_%L58310%_ _%L58312%_ _%L58313%_ _%L58314%_) - (_%loop57979%_ - _%L58310%_ - (cons (cons _%L58313%_ (cons _%L58312%_ '())) - (cons _%L58314%_ _%result57984%_))))) - (_%__kont8016580166%_ - (lambda (_%L58133%_ _%L58135%_ _%L58136%_ _%L58137%_) - (let* ((_%__stx8007680077%_ _%L58135%_) - (_%g5815558176%_ + (##car _%e5849858540%_)))) + (if (gx#stx-null? _%tl5850058547%_) + (_%__match8021280213%_ + _%__splice8018280183%_ + _%target5848858524%_ + _%tl5849058527%_ + _%e5849558530%_ + _%hd5849658534%_ + _%tl5849758537%_ + _%e5849858540%_ + _%hd5849958544%_ + _%tl5850058547%_) + (_%__kont8018480185%_)))) + (_%__kont8018480185%_)) + (_%__kont8018480185%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8018480185%_)))) + (_%__kont8018480185%_)))) + (_%__kont8018480185%_)) + (_%__kont8018480185%_))))))) + (_%__kont8022480225%_ + (lambda (_%L58423%_ _%L58425%_ _%L58426%_) + (_%loop58042%_ + _%L58423%_ + (cons _%L58425%_ (cons _%L58426%_ _%result58047%_))))) + (_%__kont8022680227%_ + (lambda (_%L58373%_ _%L58375%_ _%L58376%_ _%L58377%_) + (_%loop58042%_ + _%L58373%_ + (cons (cons _%L58376%_ (cons _%L58375%_ '())) + (cons _%L58377%_ _%result58047%_))))) + (_%__kont8022880229%_ + (lambda (_%L58196%_ _%L58198%_ _%L58199%_ _%L58200%_) + (let* ((_%__stx8013980140%_ _%L58198%_) + (_%g5821858239%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8007680077%_)))) - (let ((_%__kont8007980080%_ - (lambda (_%L58240%_) - (_%loop57979%_ - _%L58133%_ - (cons (cons _%L58136%_ (cons _%L58240%_ '())) - (cons _%L58137%_ _%result57984%_))))) - (_%__kont8008380084%_ + _%__stx8013980140%_)))) + (let ((_%__kont8014280143%_ + (lambda (_%L58303%_) + (_%loop58042%_ + _%L58196%_ + (cons (cons _%L58199%_ (cons _%L58303%_ '())) + (cons _%L58200%_ _%result58047%_))))) + (_%__kont8014680147%_ (lambda () - (_%loop57979%_ - _%L58133%_ - (cons _%L58136%_ - (cons _%L58137%_ _%result57984%_)))))) - (let ((_%__match8011180112%_ - (lambda (_%__splice8008180082%_ - _%target5815858194%_ - _%tl5816058197%_ - _%e5816558200%_ - _%hd5816658204%_ - _%tl5816758207%_ - _%e5816858210%_ - _%hd5816958214%_ - _%tl5817058217%_) - (letrec ((_%loop5816158220%_ - (lambda (_%hd5815958224%_) + (_%loop58042%_ + _%L58196%_ + (cons _%L58199%_ + (cons _%L58200%_ _%result58047%_)))))) + (let ((_%__match8017480175%_ + (lambda (_%__splice8014480145%_ + _%target5822158257%_ + _%tl5822358260%_ + _%e5822858263%_ + _%hd5822958267%_ + _%tl5823058270%_ + _%e5823158273%_ + _%hd5823258277%_ + _%tl5823358280%_) + (letrec ((_%loop5822458283%_ + (lambda (_%hd5822258287%_) (if (gx#stx-pair? - _%hd5815958224%_) - (let ((_%e5816258228%_ + _%hd5822258287%_) + (let ((_%e5822558291%_ (gx#syntax-e - _%hd5815958224%_))) - (let ((_%lp-tl5816458235%_ + _%hd5822258287%_))) + (let ((_%lp-tl5822758298%_ (let () (declare (not safe)) - (##cdr _%e5816258228%_))) - (_%lp-hd5816358232%_ + (##cdr _%e5822558291%_))) + (_%lp-hd5822658295%_ (let () (declare (not safe)) - (##car _%e5816258228%_)))) - (_%loop5816158220%_ - _%lp-tl5816458235%_))) - (_%__kont8007980080%_ - _%hd5816958214%_))))) - (_%loop5816158220%_ - _%target5815858194%_))))) - (if (gx#stx-pair/null? _%__stx8007680077%_) - (if (let ((__tmp84102 - (gx#stx-length _%__stx8007680077%_))) + (##car _%e5822558291%_)))) + (_%loop5822458283%_ + _%lp-tl5822758298%_))) + (_%__kont8014280143%_ + _%hd5823258277%_))))) + (_%loop5822458283%_ + _%target5822158257%_))))) + (if (gx#stx-pair/null? _%__stx8013980140%_) + (if (let ((__tmp84165 + (gx#stx-length _%__stx8013980140%_))) (declare (not safe)) - (##fx>= __tmp84102 '2)) - (let ((_%__splice8008180082%_ + (##fx>= __tmp84165 '2)) + (let ((_%__splice8014480145%_ (gx#syntax-split-splice - _%__stx8007680077%_ + _%__stx8013980140%_ '2))) - (let ((_%tl5816058197%_ + (let ((_%tl5822358260%_ (let () (declare (not safe)) (##vector-ref - _%__splice8008180082%_ + _%__splice8014480145%_ '1))) - (_%target5815858194%_ + (_%target5822158257%_ (let () (declare (not safe)) (##vector-ref - _%__splice8008180082%_ + _%__splice8014480145%_ '0)))) - (if (gx#stx-pair? _%tl5816058197%_) - (let ((_%e5816558200%_ + (if (gx#stx-pair? _%tl5822358260%_) + (let ((_%e5822858263%_ (gx#syntax-e - _%tl5816058197%_))) - (let ((_%tl5816758207%_ + _%tl5822358260%_))) + (let ((_%tl5823058270%_ (let () (declare (not safe)) - (##cdr _%e5816558200%_))) - (_%hd5816658204%_ + (##cdr _%e5822858263%_))) + (_%hd5822958267%_ (let () (declare (not safe)) - (##car _%e5816558200%_)))) + (##car _%e5822858263%_)))) (if (gx#identifier? - _%hd5816658204%_) + _%hd5822958267%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84103_| - _%hd5816658204%_) + |gerbil/core/contract~Interface[1]#_g84166_| + _%hd5822958267%_) (if (gx#stx-pair? - _%tl5816758207%_) - (let ((_%e5816858210%_ + _%tl5823058270%_) + (let ((_%e5823158273%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5816758207%_))) - (let ((_%tl5817058217%_ + (gx#syntax-e _%tl5823058270%_))) + (let ((_%tl5823358280%_ (let () (declare (not safe)) - (##cdr _%e5816858210%_))) - (_%hd5816958214%_ + (##cdr _%e5823158273%_))) + (_%hd5823258277%_ (let () (declare (not safe)) - (##car _%e5816858210%_)))) - (if (gx#stx-null? _%tl5817058217%_) - (_%__match8011180112%_ - _%__splice8008180082%_ - _%target5815858194%_ - _%tl5816058197%_ - _%e5816558200%_ - _%hd5816658204%_ - _%tl5816758207%_ - _%e5816858210%_ - _%hd5816958214%_ - _%tl5817058217%_) - (_%__kont8008380084%_)))) - (_%__kont8008380084%_)) - (_%__kont8008380084%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8008380084%_)))) - (_%__kont8008380084%_)))) - (_%__kont8008380084%_)) - (_%__kont8008380084%_))))))) - (_%__kont8016780168%_ - (lambda (_%L58083%_) - (foldl cons _%L58083%_ _%result57984%_))) - (_%__kont8016980170%_ - (lambda () (reverse! _%result57984%_)))) - (let* ((_%g5799158096%_ + (##car _%e5823158273%_)))) + (if (gx#stx-null? _%tl5823358280%_) + (_%__match8017480175%_ + _%__splice8014480145%_ + _%target5822158257%_ + _%tl5822358260%_ + _%e5822858263%_ + _%hd5822958267%_ + _%tl5823058270%_ + _%e5823158273%_ + _%hd5823258277%_ + _%tl5823358280%_) + (_%__kont8014680147%_)))) + (_%__kont8014680147%_)) + (_%__kont8014680147%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8014680147%_)))) + (_%__kont8014680147%_)))) + (_%__kont8014680147%_)) + (_%__kont8014680147%_))))))) + (_%__kont8023080231%_ + (lambda (_%L58146%_) + (foldl cons _%L58146%_ _%result58047%_))) + (_%__kont8023280233%_ + (lambda () (reverse! _%result58047%_)))) + (let* ((_%g5805458159%_ (lambda () - (let ((_%L58083%_ _%__stx8015280153%_)) - (if (gx#identifier? _%L58083%_) - (_%__kont8016780168%_ _%L58083%_) - (_%__kont8016980170%_))))) - (_%__match8026580266%_ - (lambda (_%e5805058103%_ - _%hd5805158107%_ - _%tl5805258110%_ - _%e5805358113%_ - _%hd5805458117%_ - _%tl5805558120%_ - _%e5805658123%_ - _%hd5805758127%_ - _%tl5805858130%_) - (let ((_%L58133%_ _%tl5805558120%_) - (_%L58135%_ _%tl5805858130%_) - (_%L58136%_ _%hd5805758127%_) - (_%L58137%_ _%hd5805158107%_)) - (if (and (gx#stx-keyword? _%L58137%_) - (gx#identifier? _%L58136%_) + (let ((_%L58146%_ _%__stx8021580216%_)) + (if (gx#identifier? _%L58146%_) + (_%__kont8023080231%_ _%L58146%_) + (_%__kont8023280233%_))))) + (_%__match8032880329%_ + (lambda (_%e5811358166%_ + _%hd5811458170%_ + _%tl5811558173%_ + _%e5811658176%_ + _%hd5811758180%_ + _%tl5811858183%_ + _%e5811958186%_ + _%hd5812058190%_ + _%tl5812158193%_) + (let ((_%L58196%_ _%tl5811858183%_) + (_%L58198%_ _%tl5812158193%_) + (_%L58199%_ _%hd5812058190%_) + (_%L58200%_ _%hd5811458170%_)) + (if (and (gx#stx-keyword? _%L58200%_) + (gx#identifier? _%L58199%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58135%_)) - (_%__kont8016580166%_ - _%L58133%_ - _%L58135%_ - _%L58136%_ - _%L58137%_) + _%L58198%_)) + (_%__kont8022880229%_ + _%L58196%_ + _%L58198%_ + _%L58199%_ + _%L58200%_) (let () (declare (not safe)) - (_%g5799158096%_)))))) - (_%__match8024780248%_ - (lambda (_%e5803458270%_ - _%hd5803558274%_ - _%tl5803658277%_ - _%e5803758280%_ - _%hd5803858284%_ - _%tl5803958287%_ - _%e5804058290%_ - _%hd5804158294%_ - _%tl5804258297%_ - _%e5804358300%_ - _%hd5804458304%_ - _%tl5804558307%_) - (let ((_%L58310%_ _%tl5803958287%_) - (_%L58312%_ _%hd5804458304%_) - (_%L58313%_ _%hd5804158294%_) - (_%L58314%_ _%hd5803558274%_)) - (if (and (gx#stx-keyword? _%L58314%_) - (gx#identifier? _%L58313%_)) - (_%__kont8016380164%_ - _%L58310%_ - _%L58312%_ - _%L58313%_ - _%L58314%_) - (_%__match8026580266%_ - _%e5803458270%_ - _%hd5803558274%_ - _%tl5803658277%_ - _%e5803758280%_ - _%hd5803858284%_ - _%tl5803958287%_ - _%e5804058290%_ - _%hd5804158294%_ - _%tl5804258297%_))))) - (_%__match8022180222%_ - (lambda (_%e5802458340%_ - _%hd5802558344%_ - _%tl5802658347%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_) - (let ((_%L58360%_ _%tl5802958357%_) - (_%L58362%_ _%hd5802858354%_) - (_%L58363%_ _%hd5802558344%_)) - (if (and (gx#stx-keyword? _%L58363%_) - (gx#identifier? _%L58362%_)) - (_%__kont8016180162%_ - _%L58360%_ - _%L58362%_ - _%L58363%_) - (if (gx#stx-pair? _%hd5802858354%_) - (let ((_%e5804058290%_ - (gx#syntax-e _%hd5802858354%_))) - (let ((_%tl5804258297%_ + (_%g5805458159%_)))))) + (_%__match8031080311%_ + (lambda (_%e5809758333%_ + _%hd5809858337%_ + _%tl5809958340%_ + _%e5810058343%_ + _%hd5810158347%_ + _%tl5810258350%_ + _%e5810358353%_ + _%hd5810458357%_ + _%tl5810558360%_ + _%e5810658363%_ + _%hd5810758367%_ + _%tl5810858370%_) + (let ((_%L58373%_ _%tl5810258350%_) + (_%L58375%_ _%hd5810758367%_) + (_%L58376%_ _%hd5810458357%_) + (_%L58377%_ _%hd5809858337%_)) + (if (and (gx#stx-keyword? _%L58377%_) + (gx#identifier? _%L58376%_)) + (_%__kont8022680227%_ + _%L58373%_ + _%L58375%_ + _%L58376%_ + _%L58377%_) + (_%__match8032880329%_ + _%e5809758333%_ + _%hd5809858337%_ + _%tl5809958340%_ + _%e5810058343%_ + _%hd5810158347%_ + _%tl5810258350%_ + _%e5810358353%_ + _%hd5810458357%_ + _%tl5810558360%_))))) + (_%__match8028480285%_ + (lambda (_%e5808758403%_ + _%hd5808858407%_ + _%tl5808958410%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_) + (let ((_%L58423%_ _%tl5809258420%_) + (_%L58425%_ _%hd5809158417%_) + (_%L58426%_ _%hd5808858407%_)) + (if (and (gx#stx-keyword? _%L58426%_) + (gx#identifier? _%L58425%_)) + (_%__kont8022480225%_ + _%L58423%_ + _%L58425%_ + _%L58426%_) + (if (gx#stx-pair? _%hd5809158417%_) + (let ((_%e5810358353%_ + (gx#syntax-e _%hd5809158417%_))) + (let ((_%tl5810558360%_ (let () (declare (not safe)) - (##cdr _%e5804058290%_))) - (_%hd5804158294%_ + (##cdr _%e5810358353%_))) + (_%hd5810458357%_ (let () (declare (not safe)) - (##car _%e5804058290%_)))) - (if (gx#stx-pair? _%tl5804258297%_) - (let ((_%e5804358300%_ + (##car _%e5810358353%_)))) + (if (gx#stx-pair? _%tl5810558360%_) + (let ((_%e5810658363%_ (gx#syntax-e - _%tl5804258297%_))) - (let ((_%tl5804558307%_ + _%tl5810558360%_))) + (let ((_%tl5810858370%_ (let () (declare (not safe)) - (##cdr _%e5804358300%_))) - (_%hd5804458304%_ + (##cdr _%e5810658363%_))) + (_%hd5810758367%_ (let () (declare (not safe)) - (##car _%e5804358300%_)))) + (##car _%e5810658363%_)))) (if (gx#stx-null? - _%tl5804558307%_) - (_%__match8024780248%_ - _%e5802458340%_ - _%hd5802558344%_ - _%tl5802658347%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_ - _%e5804058290%_ - _%hd5804158294%_ - _%tl5804258297%_ - _%e5804358300%_ - _%hd5804458304%_ - _%tl5804558307%_) - (_%__match8026580266%_ - _%e5802458340%_ - _%hd5802558344%_ - _%tl5802658347%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_ - _%e5804058290%_ - _%hd5804158294%_ - _%tl5804258297%_)))) - (_%__match8026580266%_ - _%e5802458340%_ - _%hd5802558344%_ - _%tl5802658347%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_ - _%e5804058290%_ - _%hd5804158294%_ - _%tl5804258297%_)))) + _%tl5810858370%_) + (_%__match8031080311%_ + _%e5808758403%_ + _%hd5808858407%_ + _%tl5808958410%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_ + _%e5810358353%_ + _%hd5810458357%_ + _%tl5810558360%_ + _%e5810658363%_ + _%hd5810758367%_ + _%tl5810858370%_) + (_%__match8032880329%_ + _%e5808758403%_ + _%hd5808858407%_ + _%tl5808958410%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_ + _%e5810358353%_ + _%hd5810458357%_ + _%tl5810558360%_)))) + (_%__match8032880329%_ + _%e5808758403%_ + _%hd5808858407%_ + _%tl5808958410%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_ + _%e5810358353%_ + _%hd5810458357%_ + _%tl5810558360%_)))) (let () (declare (not safe)) - (_%g5799158096%_))))))) - (_%__match8020980210%_ - (lambda (_%e5801558384%_ - _%hd5801658388%_ - _%tl5801758391%_ - _%e5801858394%_ - _%hd5801958398%_ - _%tl5802058401%_) - (let ((_%L58404%_ _%tl5801758391%_) - (_%L58406%_ _%tl5802058401%_) - (_%L58407%_ _%hd5801958398%_)) - (if (and (gx#identifier? _%L58407%_) + (_%g5805458159%_))))))) + (_%__match8027280273%_ + (lambda (_%e5807858447%_ + _%hd5807958451%_ + _%tl5808058454%_ + _%e5808158457%_ + _%hd5808258461%_ + _%tl5808358464%_) + (let ((_%L58467%_ _%tl5808058454%_) + (_%L58469%_ _%tl5808358464%_) + (_%L58470%_ _%hd5808258461%_)) + (if (and (gx#identifier? _%L58470%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L58406%_)) - (_%__kont8015980160%_ - _%L58404%_ - _%L58406%_ - _%L58407%_) - (if (gx#stx-pair? _%tl5801758391%_) - (let ((_%e5802758350%_ - (gx#syntax-e _%tl5801758391%_))) - (let ((_%tl5802958357%_ + _%L58469%_)) + (_%__kont8022280223%_ + _%L58467%_ + _%L58469%_ + _%L58470%_) + (if (gx#stx-pair? _%tl5808058454%_) + (let ((_%e5809058413%_ + (gx#syntax-e _%tl5808058454%_))) + (let ((_%tl5809258420%_ (let () (declare (not safe)) - (##cdr _%e5802758350%_))) - (_%hd5802858354%_ + (##cdr _%e5809058413%_))) + (_%hd5809158417%_ (let () (declare (not safe)) - (##car _%e5802758350%_)))) - (_%__match8022180222%_ - _%e5801558384%_ - _%hd5801658388%_ - _%tl5801758391%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_))) + (##car _%e5809058413%_)))) + (_%__match8028480285%_ + _%e5807858447%_ + _%hd5807958451%_ + _%tl5808058454%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_))) (let () (declare (not safe)) - (_%g5799158096%_))))))) - (_%__match8019780198%_ - (lambda (_%e5800358537%_ - _%hd5800458541%_ - _%tl5800558544%_ - _%e5800658547%_ - _%hd5800758551%_ - _%tl5800858554%_ - _%e5800958557%_ - _%hd5801058561%_ - _%tl5801158564%_) - (let ((_%L58567%_ _%tl5800558544%_) - (_%L58569%_ _%hd5801058561%_) - (_%L58570%_ _%hd5800758551%_)) - (if (gx#identifier? _%L58570%_) - (_%__kont8015780158%_ - _%L58567%_ - _%L58569%_ - _%L58570%_) - (_%__match8020980210%_ - _%e5800358537%_ - _%hd5800458541%_ - _%tl5800558544%_ - _%e5800658547%_ - _%hd5800758551%_ - _%tl5800858554%_))))) - (_%__match8017780178%_ - (lambda (_%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_) - (let ((_%L58603%_ _%tl5799958600%_) - (_%L58605%_ _%hd5799858597%_)) - (if (gx#identifier? _%L58605%_) - (_%__kont8015580156%_ _%L58603%_ _%L58605%_) - (if (gx#stx-pair? _%hd5799858597%_) - (let ((_%e5800658547%_ - (gx#syntax-e _%hd5799858597%_))) - (let ((_%tl5800858554%_ + (_%g5805458159%_))))))) + (_%__match8026080261%_ + (lambda (_%e5806658600%_ + _%hd5806758604%_ + _%tl5806858607%_ + _%e5806958610%_ + _%hd5807058614%_ + _%tl5807158617%_ + _%e5807258620%_ + _%hd5807358624%_ + _%tl5807458627%_) + (let ((_%L58630%_ _%tl5806858607%_) + (_%L58632%_ _%hd5807358624%_) + (_%L58633%_ _%hd5807058614%_)) + (if (gx#identifier? _%L58633%_) + (_%__kont8022080221%_ + _%L58630%_ + _%L58632%_ + _%L58633%_) + (_%__match8027280273%_ + _%e5806658600%_ + _%hd5806758604%_ + _%tl5806858607%_ + _%e5806958610%_ + _%hd5807058614%_ + _%tl5807158617%_))))) + (_%__match8024080241%_ + (lambda (_%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_) + (let ((_%L58666%_ _%tl5806258663%_) + (_%L58668%_ _%hd5806158660%_)) + (if (gx#identifier? _%L58668%_) + (_%__kont8021880219%_ _%L58666%_ _%L58668%_) + (if (gx#stx-pair? _%hd5806158660%_) + (let ((_%e5806958610%_ + (gx#syntax-e _%hd5806158660%_))) + (let ((_%tl5807158617%_ (let () (declare (not safe)) - (##cdr _%e5800658547%_))) - (_%hd5800758551%_ + (##cdr _%e5806958610%_))) + (_%hd5807058614%_ (let () (declare (not safe)) - (##car _%e5800658547%_)))) - (if (gx#stx-pair? _%tl5800858554%_) - (let ((_%e5800958557%_ + (##car _%e5806958610%_)))) + (if (gx#stx-pair? _%tl5807158617%_) + (let ((_%e5807258620%_ (gx#syntax-e - _%tl5800858554%_))) - (let ((_%tl5801158564%_ + _%tl5807158617%_))) + (let ((_%tl5807458627%_ (let () (declare (not safe)) - (##cdr _%e5800958557%_))) - (_%hd5801058561%_ + (##cdr _%e5807258620%_))) + (_%hd5807358624%_ (let () (declare (not safe)) - (##car _%e5800958557%_)))) + (##car _%e5807258620%_)))) (if (gx#stx-null? - _%tl5801158564%_) - (_%__match8019780198%_ - _%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_ - _%e5800658547%_ - _%hd5800758551%_ - _%tl5800858554%_ - _%e5800958557%_ - _%hd5801058561%_ - _%tl5801158564%_) - (_%__match8020980210%_ - _%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_ - _%e5800658547%_ - _%hd5800758551%_ - _%tl5800858554%_)))) - (_%__match8020980210%_ - _%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_ - _%e5800658547%_ - _%hd5800758551%_ - _%tl5800858554%_)))) - (if (gx#stx-pair? _%tl5799958600%_) - (let ((_%e5802758350%_ - (gx#syntax-e _%tl5799958600%_))) - (let ((_%tl5802958357%_ + _%tl5807458627%_) + (_%__match8026080261%_ + _%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_ + _%e5806958610%_ + _%hd5807058614%_ + _%tl5807158617%_ + _%e5807258620%_ + _%hd5807358624%_ + _%tl5807458627%_) + (_%__match8027280273%_ + _%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_ + _%e5806958610%_ + _%hd5807058614%_ + _%tl5807158617%_)))) + (_%__match8027280273%_ + _%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_ + _%e5806958610%_ + _%hd5807058614%_ + _%tl5807158617%_)))) + (if (gx#stx-pair? _%tl5806258663%_) + (let ((_%e5809058413%_ + (gx#syntax-e _%tl5806258663%_))) + (let ((_%tl5809258420%_ (let () (declare (not safe)) - (##cdr _%e5802758350%_))) - (_%hd5802858354%_ + (##cdr _%e5809058413%_))) + (_%hd5809158417%_ (let () (declare (not safe)) - (##car _%e5802758350%_)))) - (_%__match8022180222%_ - _%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_ - _%e5802758350%_ - _%hd5802858354%_ - _%tl5802958357%_))) + (##car _%e5809058413%_)))) + (_%__match8028480285%_ + _%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_ + _%e5809058413%_ + _%hd5809158417%_ + _%tl5809258420%_))) (let () (declare (not safe)) - (_%g5799158096%_))))))))) - (if (gx#stx-pair? _%__stx8015280153%_) - (let ((_%e5799758593%_ (gx#syntax-e _%__stx8015280153%_))) - (let ((_%tl5799958600%_ + (_%g5805458159%_))))))))) + (if (gx#stx-pair? _%__stx8021580216%_) + (let ((_%e5806058656%_ (gx#syntax-e _%__stx8021580216%_))) + (let ((_%tl5806258663%_ (let () (declare (not safe)) - (##cdr _%e5799758593%_))) - (_%hd5799858597%_ + (##cdr _%e5806058656%_))) + (_%hd5806158660%_ (let () (declare (not safe)) - (##car _%e5799758593%_)))) - (_%__match8017780178%_ - _%e5799758593%_ - _%hd5799858597%_ - _%tl5799958600%_))) - (let () (declare (not safe)) (_%g5799158096%_))))))))) + (##car _%e5806058656%_)))) + (_%__match8024080241%_ + _%e5806058656%_ + _%hd5806158660%_ + _%tl5806258663%_))) + (let () (declare (not safe)) (_%g5805458159%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-arguments-out| - (lambda (_%signature57553%_) - (let _%loop57556%_ ((_%rest57559%_ _%signature57553%_) - (_%result57561%_ '())) - (let* ((_%__stx8026880269%_ _%rest57559%_) - (_%g5757057641%_ + (lambda (_%signature57616%_) + (let _%loop57619%_ ((_%rest57622%_ _%signature57616%_) + (_%result57624%_ '())) + (let* ((_%__stx8033180332%_ _%rest57622%_) + (_%g5763357704%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8026880269%_)))) - (let ((_%__kont8027180272%_ - (lambda (_%L57959%_ _%L57961%_) - (_%loop57556%_ - _%L57959%_ - (cons _%L57961%_ _%result57561%_)))) - (_%__kont8027380274%_ - (lambda (_%L57925%_ _%L57927%_) - (_%loop57556%_ - _%L57925%_ - (cons _%L57927%_ _%result57561%_)))) - (_%__kont8027580276%_ - (lambda (_%L57871%_ _%L57873%_ _%L57874%_) - (_%loop57556%_ - _%L57871%_ - (cons _%L57874%_ _%result57561%_)))) - (_%__kont8027780278%_ - (lambda (_%L57827%_ _%L57829%_ _%L57830%_) - (_%loop57556%_ - _%L57827%_ - (cons _%L57829%_ (cons _%L57830%_ _%result57561%_))))) - (_%__kont8027980280%_ - (lambda (_%L57777%_ _%L57779%_ _%L57780%_ _%L57781%_) - (_%loop57556%_ - _%L57777%_ - (cons _%L57780%_ (cons _%L57781%_ _%result57561%_))))) - (_%__kont8028180282%_ - (lambda (_%L57709%_ _%L57711%_ _%L57712%_ _%L57713%_) - (_%loop57556%_ - _%L57709%_ - (cons _%L57712%_ (cons _%L57713%_ _%result57561%_))))) - (_%__kont8028380284%_ - (lambda (_%L57659%_) - (foldl cons (cons _%L57659%_ '()) _%result57561%_))) - (_%__kont8028580286%_ - (lambda () (reverse! _%result57561%_)))) - (let* ((_%g5756857672%_ + _%__stx8033180332%_)))) + (let ((_%__kont8033480335%_ + (lambda (_%L58022%_ _%L58024%_) + (_%loop57619%_ + _%L58022%_ + (cons _%L58024%_ _%result57624%_)))) + (_%__kont8033680337%_ + (lambda (_%L57988%_ _%L57990%_) + (_%loop57619%_ + _%L57988%_ + (cons _%L57990%_ _%result57624%_)))) + (_%__kont8033880339%_ + (lambda (_%L57934%_ _%L57936%_ _%L57937%_) + (_%loop57619%_ + _%L57934%_ + (cons _%L57937%_ _%result57624%_)))) + (_%__kont8034080341%_ + (lambda (_%L57890%_ _%L57892%_ _%L57893%_) + (_%loop57619%_ + _%L57890%_ + (cons _%L57892%_ (cons _%L57893%_ _%result57624%_))))) + (_%__kont8034280343%_ + (lambda (_%L57840%_ _%L57842%_ _%L57843%_ _%L57844%_) + (_%loop57619%_ + _%L57840%_ + (cons _%L57843%_ (cons _%L57844%_ _%result57624%_))))) + (_%__kont8034480345%_ + (lambda (_%L57772%_ _%L57774%_ _%L57775%_ _%L57776%_) + (_%loop57619%_ + _%L57772%_ + (cons _%L57775%_ (cons _%L57776%_ _%result57624%_))))) + (_%__kont8034680347%_ + (lambda (_%L57722%_) + (foldl cons (cons _%L57722%_ '()) _%result57624%_))) + (_%__kont8034880349%_ + (lambda () (reverse! _%result57624%_)))) + (let* ((_%g5763157735%_ (lambda () - (let ((_%L57659%_ _%__stx8026880269%_)) - (if (gx#identifier? _%L57659%_) - (_%__kont8028380284%_ _%L57659%_) - (_%__kont8028580286%_))))) - (_%__match8038180382%_ - (lambda (_%e5762657679%_ - _%hd5762757683%_ - _%tl5762857686%_ - _%e5762957689%_ - _%hd5763057693%_ - _%tl5763157696%_ - _%e5763257699%_ - _%hd5763357703%_ - _%tl5763457706%_) - (let ((_%L57709%_ _%tl5763157696%_) - (_%L57711%_ _%tl5763457706%_) - (_%L57712%_ _%hd5763357703%_) - (_%L57713%_ _%hd5762757683%_)) - (if (and (gx#stx-keyword? _%L57713%_) - (gx#identifier? _%L57712%_) + (let ((_%L57722%_ _%__stx8033180332%_)) + (if (gx#identifier? _%L57722%_) + (_%__kont8034680347%_ _%L57722%_) + (_%__kont8034880349%_))))) + (_%__match8044480445%_ + (lambda (_%e5768957742%_ + _%hd5769057746%_ + _%tl5769157749%_ + _%e5769257752%_ + _%hd5769357756%_ + _%tl5769457759%_ + _%e5769557762%_ + _%hd5769657766%_ + _%tl5769757769%_) + (let ((_%L57772%_ _%tl5769457759%_) + (_%L57774%_ _%tl5769757769%_) + (_%L57775%_ _%hd5769657766%_) + (_%L57776%_ _%hd5769057746%_)) + (if (and (gx#stx-keyword? _%L57776%_) + (gx#identifier? _%L57775%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57711%_)) - (_%__kont8028180282%_ - _%L57709%_ - _%L57711%_ - _%L57712%_ - _%L57713%_) + _%L57774%_)) + (_%__kont8034480345%_ + _%L57772%_ + _%L57774%_ + _%L57775%_ + _%L57776%_) (let () (declare (not safe)) - (_%g5756857672%_)))))) - (_%__match8036380364%_ - (lambda (_%e5761057737%_ - _%hd5761157741%_ - _%tl5761257744%_ - _%e5761357747%_ - _%hd5761457751%_ - _%tl5761557754%_ - _%e5761657757%_ - _%hd5761757761%_ - _%tl5761857764%_ - _%e5761957767%_ - _%hd5762057771%_ - _%tl5762157774%_) - (let ((_%L57777%_ _%tl5761557754%_) - (_%L57779%_ _%hd5762057771%_) - (_%L57780%_ _%hd5761757761%_) - (_%L57781%_ _%hd5761157741%_)) - (if (and (gx#stx-keyword? _%L57781%_) - (gx#identifier? _%L57780%_)) - (_%__kont8027980280%_ - _%L57777%_ - _%L57779%_ - _%L57780%_ - _%L57781%_) - (_%__match8038180382%_ - _%e5761057737%_ - _%hd5761157741%_ - _%tl5761257744%_ - _%e5761357747%_ - _%hd5761457751%_ - _%tl5761557754%_ - _%e5761657757%_ - _%hd5761757761%_ - _%tl5761857764%_))))) - (_%__match8033780338%_ - (lambda (_%e5760057807%_ - _%hd5760157811%_ - _%tl5760257814%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_) - (let ((_%L57827%_ _%tl5760557824%_) - (_%L57829%_ _%hd5760457821%_) - (_%L57830%_ _%hd5760157811%_)) - (if (and (gx#stx-keyword? _%L57830%_) - (gx#identifier? _%L57829%_)) - (_%__kont8027780278%_ - _%L57827%_ - _%L57829%_ - _%L57830%_) - (if (gx#stx-pair? _%hd5760457821%_) - (let ((_%e5761657757%_ - (gx#syntax-e _%hd5760457821%_))) - (let ((_%tl5761857764%_ + (_%g5763157735%_)))))) + (_%__match8042680427%_ + (lambda (_%e5767357800%_ + _%hd5767457804%_ + _%tl5767557807%_ + _%e5767657810%_ + _%hd5767757814%_ + _%tl5767857817%_ + _%e5767957820%_ + _%hd5768057824%_ + _%tl5768157827%_ + _%e5768257830%_ + _%hd5768357834%_ + _%tl5768457837%_) + (let ((_%L57840%_ _%tl5767857817%_) + (_%L57842%_ _%hd5768357834%_) + (_%L57843%_ _%hd5768057824%_) + (_%L57844%_ _%hd5767457804%_)) + (if (and (gx#stx-keyword? _%L57844%_) + (gx#identifier? _%L57843%_)) + (_%__kont8034280343%_ + _%L57840%_ + _%L57842%_ + _%L57843%_ + _%L57844%_) + (_%__match8044480445%_ + _%e5767357800%_ + _%hd5767457804%_ + _%tl5767557807%_ + _%e5767657810%_ + _%hd5767757814%_ + _%tl5767857817%_ + _%e5767957820%_ + _%hd5768057824%_ + _%tl5768157827%_))))) + (_%__match8040080401%_ + (lambda (_%e5766357870%_ + _%hd5766457874%_ + _%tl5766557877%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_) + (let ((_%L57890%_ _%tl5766857887%_) + (_%L57892%_ _%hd5766757884%_) + (_%L57893%_ _%hd5766457874%_)) + (if (and (gx#stx-keyword? _%L57893%_) + (gx#identifier? _%L57892%_)) + (_%__kont8034080341%_ + _%L57890%_ + _%L57892%_ + _%L57893%_) + (if (gx#stx-pair? _%hd5766757884%_) + (let ((_%e5767957820%_ + (gx#syntax-e _%hd5766757884%_))) + (let ((_%tl5768157827%_ (let () (declare (not safe)) - (##cdr _%e5761657757%_))) - (_%hd5761757761%_ + (##cdr _%e5767957820%_))) + (_%hd5768057824%_ (let () (declare (not safe)) - (##car _%e5761657757%_)))) - (if (gx#stx-pair? _%tl5761857764%_) - (let ((_%e5761957767%_ + (##car _%e5767957820%_)))) + (if (gx#stx-pair? _%tl5768157827%_) + (let ((_%e5768257830%_ (gx#syntax-e - _%tl5761857764%_))) - (let ((_%tl5762157774%_ + _%tl5768157827%_))) + (let ((_%tl5768457837%_ (let () (declare (not safe)) - (##cdr _%e5761957767%_))) - (_%hd5762057771%_ + (##cdr _%e5768257830%_))) + (_%hd5768357834%_ (let () (declare (not safe)) - (##car _%e5761957767%_)))) + (##car _%e5768257830%_)))) (if (gx#stx-null? - _%tl5762157774%_) - (_%__match8036380364%_ - _%e5760057807%_ - _%hd5760157811%_ - _%tl5760257814%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_ - _%e5761657757%_ - _%hd5761757761%_ - _%tl5761857764%_ - _%e5761957767%_ - _%hd5762057771%_ - _%tl5762157774%_) - (_%__match8038180382%_ - _%e5760057807%_ - _%hd5760157811%_ - _%tl5760257814%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_ - _%e5761657757%_ - _%hd5761757761%_ - _%tl5761857764%_)))) - (_%__match8038180382%_ - _%e5760057807%_ - _%hd5760157811%_ - _%tl5760257814%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_ - _%e5761657757%_ - _%hd5761757761%_ - _%tl5761857764%_)))) + _%tl5768457837%_) + (_%__match8042680427%_ + _%e5766357870%_ + _%hd5766457874%_ + _%tl5766557877%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_ + _%e5767957820%_ + _%hd5768057824%_ + _%tl5768157827%_ + _%e5768257830%_ + _%hd5768357834%_ + _%tl5768457837%_) + (_%__match8044480445%_ + _%e5766357870%_ + _%hd5766457874%_ + _%tl5766557877%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_ + _%e5767957820%_ + _%hd5768057824%_ + _%tl5768157827%_)))) + (_%__match8044480445%_ + _%e5766357870%_ + _%hd5766457874%_ + _%tl5766557877%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_ + _%e5767957820%_ + _%hd5768057824%_ + _%tl5768157827%_)))) (let () (declare (not safe)) - (_%g5756857672%_))))))) - (_%__match8032580326%_ - (lambda (_%e5759157851%_ - _%hd5759257855%_ - _%tl5759357858%_ - _%e5759457861%_ - _%hd5759557865%_ - _%tl5759657868%_) - (let ((_%L57871%_ _%tl5759357858%_) - (_%L57873%_ _%tl5759657868%_) - (_%L57874%_ _%hd5759557865%_)) - (if (and (gx#identifier? _%L57874%_) + (_%g5763157735%_))))))) + (_%__match8038880389%_ + (lambda (_%e5765457914%_ + _%hd5765557918%_ + _%tl5765657921%_ + _%e5765757924%_ + _%hd5765857928%_ + _%tl5765957931%_) + (let ((_%L57934%_ _%tl5765657921%_) + (_%L57936%_ _%tl5765957931%_) + (_%L57937%_ _%hd5765857928%_)) + (if (and (gx#identifier? _%L57937%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57873%_)) - (_%__kont8027580276%_ - _%L57871%_ - _%L57873%_ - _%L57874%_) - (if (gx#stx-pair? _%tl5759357858%_) - (let ((_%e5760357817%_ - (gx#syntax-e _%tl5759357858%_))) - (let ((_%tl5760557824%_ + _%L57936%_)) + (_%__kont8033880339%_ + _%L57934%_ + _%L57936%_ + _%L57937%_) + (if (gx#stx-pair? _%tl5765657921%_) + (let ((_%e5766657880%_ + (gx#syntax-e _%tl5765657921%_))) + (let ((_%tl5766857887%_ (let () (declare (not safe)) - (##cdr _%e5760357817%_))) - (_%hd5760457821%_ + (##cdr _%e5766657880%_))) + (_%hd5766757884%_ (let () (declare (not safe)) - (##car _%e5760357817%_)))) - (_%__match8033780338%_ - _%e5759157851%_ - _%hd5759257855%_ - _%tl5759357858%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_))) + (##car _%e5766657880%_)))) + (_%__match8040080401%_ + _%e5765457914%_ + _%hd5765557918%_ + _%tl5765657921%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_))) (let () (declare (not safe)) - (_%g5756857672%_))))))) - (_%__match8031380314%_ - (lambda (_%e5757957895%_ - _%hd5758057899%_ - _%tl5758157902%_ - _%e5758257905%_ - _%hd5758357909%_ - _%tl5758457912%_ - _%e5758557915%_ - _%hd5758657919%_ - _%tl5758757922%_) - (let ((_%L57925%_ _%tl5758157902%_) - (_%L57927%_ _%hd5758357909%_)) - (if (gx#identifier? _%L57927%_) - (_%__kont8027380274%_ _%L57925%_ _%L57927%_) - (_%__match8032580326%_ - _%e5757957895%_ - _%hd5758057899%_ - _%tl5758157902%_ - _%e5758257905%_ - _%hd5758357909%_ - _%tl5758457912%_))))) - (_%__match8029380294%_ - (lambda (_%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_) - (let ((_%L57959%_ _%tl5757657956%_) - (_%L57961%_ _%hd5757557953%_)) - (if (gx#identifier? _%L57961%_) - (_%__kont8027180272%_ _%L57959%_ _%L57961%_) - (if (gx#stx-pair? _%hd5757557953%_) - (let ((_%e5758257905%_ - (gx#syntax-e _%hd5757557953%_))) - (let ((_%tl5758457912%_ + (_%g5763157735%_))))))) + (_%__match8037680377%_ + (lambda (_%e5764257958%_ + _%hd5764357962%_ + _%tl5764457965%_ + _%e5764557968%_ + _%hd5764657972%_ + _%tl5764757975%_ + _%e5764857978%_ + _%hd5764957982%_ + _%tl5765057985%_) + (let ((_%L57988%_ _%tl5764457965%_) + (_%L57990%_ _%hd5764657972%_)) + (if (gx#identifier? _%L57990%_) + (_%__kont8033680337%_ _%L57988%_ _%L57990%_) + (_%__match8038880389%_ + _%e5764257958%_ + _%hd5764357962%_ + _%tl5764457965%_ + _%e5764557968%_ + _%hd5764657972%_ + _%tl5764757975%_))))) + (_%__match8035680357%_ + (lambda (_%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_) + (let ((_%L58022%_ _%tl5763958019%_) + (_%L58024%_ _%hd5763858016%_)) + (if (gx#identifier? _%L58024%_) + (_%__kont8033480335%_ _%L58022%_ _%L58024%_) + (if (gx#stx-pair? _%hd5763858016%_) + (let ((_%e5764557968%_ + (gx#syntax-e _%hd5763858016%_))) + (let ((_%tl5764757975%_ (let () (declare (not safe)) - (##cdr _%e5758257905%_))) - (_%hd5758357909%_ + (##cdr _%e5764557968%_))) + (_%hd5764657972%_ (let () (declare (not safe)) - (##car _%e5758257905%_)))) - (if (gx#stx-pair? _%tl5758457912%_) - (let ((_%e5758557915%_ + (##car _%e5764557968%_)))) + (if (gx#stx-pair? _%tl5764757975%_) + (let ((_%e5764857978%_ (gx#syntax-e - _%tl5758457912%_))) - (let ((_%tl5758757922%_ + _%tl5764757975%_))) + (let ((_%tl5765057985%_ (let () (declare (not safe)) - (##cdr _%e5758557915%_))) - (_%hd5758657919%_ + (##cdr _%e5764857978%_))) + (_%hd5764957982%_ (let () (declare (not safe)) - (##car _%e5758557915%_)))) + (##car _%e5764857978%_)))) (if (gx#stx-null? - _%tl5758757922%_) - (_%__match8031380314%_ - _%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_ - _%e5758257905%_ - _%hd5758357909%_ - _%tl5758457912%_ - _%e5758557915%_ - _%hd5758657919%_ - _%tl5758757922%_) - (_%__match8032580326%_ - _%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_ - _%e5758257905%_ - _%hd5758357909%_ - _%tl5758457912%_)))) - (_%__match8032580326%_ - _%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_ - _%e5758257905%_ - _%hd5758357909%_ - _%tl5758457912%_)))) - (if (gx#stx-pair? _%tl5757657956%_) - (let ((_%e5760357817%_ - (gx#syntax-e _%tl5757657956%_))) - (let ((_%tl5760557824%_ + _%tl5765057985%_) + (_%__match8037680377%_ + _%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_ + _%e5764557968%_ + _%hd5764657972%_ + _%tl5764757975%_ + _%e5764857978%_ + _%hd5764957982%_ + _%tl5765057985%_) + (_%__match8038880389%_ + _%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_ + _%e5764557968%_ + _%hd5764657972%_ + _%tl5764757975%_)))) + (_%__match8038880389%_ + _%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_ + _%e5764557968%_ + _%hd5764657972%_ + _%tl5764757975%_)))) + (if (gx#stx-pair? _%tl5763958019%_) + (let ((_%e5766657880%_ + (gx#syntax-e _%tl5763958019%_))) + (let ((_%tl5766857887%_ (let () (declare (not safe)) - (##cdr _%e5760357817%_))) - (_%hd5760457821%_ + (##cdr _%e5766657880%_))) + (_%hd5766757884%_ (let () (declare (not safe)) - (##car _%e5760357817%_)))) - (_%__match8033780338%_ - _%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_ - _%e5760357817%_ - _%hd5760457821%_ - _%tl5760557824%_))) + (##car _%e5766657880%_)))) + (_%__match8040080401%_ + _%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_ + _%e5766657880%_ + _%hd5766757884%_ + _%tl5766857887%_))) (let () (declare (not safe)) - (_%g5756857672%_))))))))) - (if (gx#stx-pair? _%__stx8026880269%_) - (let ((_%e5757457949%_ (gx#syntax-e _%__stx8026880269%_))) - (let ((_%tl5757657956%_ + (_%g5763157735%_))))))))) + (if (gx#stx-pair? _%__stx8033180332%_) + (let ((_%e5763758012%_ (gx#syntax-e _%__stx8033180332%_))) + (let ((_%tl5763958019%_ (let () (declare (not safe)) - (##cdr _%e5757457949%_))) - (_%hd5757557953%_ + (##cdr _%e5763758012%_))) + (_%hd5763858016%_ (let () (declare (not safe)) - (##car _%e5757457949%_)))) - (_%__match8029380294%_ - _%e5757457949%_ - _%hd5757557953%_ - _%tl5757657956%_))) - (let () (declare (not safe)) (_%g5756857672%_))))))))) + (##car _%e5763758012%_)))) + (_%__match8035680357%_ + _%e5763758012%_ + _%hd5763858016%_ + _%tl5763958019%_))) + (let () (declare (not safe)) (_%g5763157735%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-has-keywords?| - (lambda (_%signature57146%_) - (let _%loop57149%_ ((_%rest57152%_ _%signature57146%_)) - (let* ((_%__stx8038480385%_ _%rest57152%_) - (_%g5716157232%_ + (lambda (_%signature57209%_) + (let _%loop57212%_ ((_%rest57215%_ _%signature57209%_)) + (let* ((_%__stx8044780448%_ _%rest57215%_) + (_%g5722457295%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8038480385%_)))) - (let ((_%__kont8038780388%_ - (lambda (_%L57536%_ _%L57538%_) (_%loop57149%_ _%L57536%_))) - (_%__kont8038980390%_ - (lambda (_%L57500%_ _%L57502%_ _%L57503%_) - (_%loop57149%_ _%L57500%_))) - (_%__kont8039180392%_ - (lambda (_%L57446%_ _%L57448%_ _%L57449%_) - (_%loop57149%_ _%L57446%_))) - (_%__kont8039380394%_ - (lambda (_%L57402%_ _%L57404%_ _%L57405%_) '#t)) - (_%__kont8039580396%_ - (lambda (_%L57352%_ _%L57354%_ _%L57355%_ _%L57356%_) '#t)) - (_%__kont8039780398%_ - (lambda (_%L57280%_ _%L57282%_ _%L57283%_ _%L57284%_) '#t)) - (_%__kont8039980400%_ (lambda () '#f))) - (let* ((_%__match8049580496%_ - (lambda (_%e5721857250%_ - _%hd5721957254%_ - _%tl5722057257%_ - _%e5722157260%_ - _%hd5722257264%_ - _%tl5722357267%_ - _%e5722457270%_ - _%hd5722557274%_ - _%tl5722657277%_) - (let ((_%L57280%_ _%tl5722357267%_) - (_%L57282%_ _%tl5722657277%_) - (_%L57283%_ _%hd5722557274%_) - (_%L57284%_ _%hd5721957254%_)) - (if (and (gx#stx-keyword? _%L57284%_) - (gx#identifier? _%L57283%_) + _%__stx8044780448%_)))) + (let ((_%__kont8045080451%_ + (lambda (_%L57599%_ _%L57601%_) (_%loop57212%_ _%L57599%_))) + (_%__kont8045280453%_ + (lambda (_%L57563%_ _%L57565%_ _%L57566%_) + (_%loop57212%_ _%L57563%_))) + (_%__kont8045480455%_ + (lambda (_%L57509%_ _%L57511%_ _%L57512%_) + (_%loop57212%_ _%L57509%_))) + (_%__kont8045680457%_ + (lambda (_%L57465%_ _%L57467%_ _%L57468%_) '#t)) + (_%__kont8045880459%_ + (lambda (_%L57415%_ _%L57417%_ _%L57418%_ _%L57419%_) '#t)) + (_%__kont8046080461%_ + (lambda (_%L57343%_ _%L57345%_ _%L57346%_ _%L57347%_) '#t)) + (_%__kont8046280463%_ (lambda () '#f))) + (let* ((_%__match8055880559%_ + (lambda (_%e5728157313%_ + _%hd5728257317%_ + _%tl5728357320%_ + _%e5728457323%_ + _%hd5728557327%_ + _%tl5728657330%_ + _%e5728757333%_ + _%hd5728857337%_ + _%tl5728957340%_) + (let ((_%L57343%_ _%tl5728657330%_) + (_%L57345%_ _%tl5728957340%_) + (_%L57346%_ _%hd5728857337%_) + (_%L57347%_ _%hd5728257317%_)) + (if (and (gx#stx-keyword? _%L57347%_) + (gx#identifier? _%L57346%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57282%_)) - (_%__kont8039780398%_ - _%L57280%_ - _%L57282%_ - _%L57283%_ - _%L57284%_) - (_%__kont8039980400%_))))) - (_%__match8047780478%_ - (lambda (_%e5720257312%_ - _%hd5720357316%_ - _%tl5720457319%_ - _%e5720557322%_ - _%hd5720657326%_ - _%tl5720757329%_ - _%e5720857332%_ - _%hd5720957336%_ - _%tl5721057339%_ - _%e5721157342%_ - _%hd5721257346%_ - _%tl5721357349%_) - (let ((_%L57352%_ _%tl5720757329%_) - (_%L57354%_ _%hd5721257346%_) - (_%L57355%_ _%hd5720957336%_) - (_%L57356%_ _%hd5720357316%_)) - (if (and (gx#stx-keyword? _%L57356%_) - (gx#identifier? _%L57355%_)) - (_%__kont8039580396%_ - _%L57352%_ - _%L57354%_ - _%L57355%_ - _%L57356%_) - (_%__match8049580496%_ - _%e5720257312%_ - _%hd5720357316%_ - _%tl5720457319%_ - _%e5720557322%_ - _%hd5720657326%_ - _%tl5720757329%_ - _%e5720857332%_ - _%hd5720957336%_ - _%tl5721057339%_))))) - (_%__match8045180452%_ - (lambda (_%e5719257382%_ - _%hd5719357386%_ - _%tl5719457389%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_) - (let ((_%L57402%_ _%tl5719757399%_) - (_%L57404%_ _%hd5719657396%_) - (_%L57405%_ _%hd5719357386%_)) - (if (and (gx#stx-keyword? _%L57405%_) - (gx#identifier? _%L57404%_)) - (_%__kont8039380394%_ - _%L57402%_ - _%L57404%_ - _%L57405%_) - (if (gx#stx-pair? _%hd5719657396%_) - (let ((_%e5720857332%_ - (gx#syntax-e _%hd5719657396%_))) - (let ((_%tl5721057339%_ + _%L57345%_)) + (_%__kont8046080461%_ + _%L57343%_ + _%L57345%_ + _%L57346%_ + _%L57347%_) + (_%__kont8046280463%_))))) + (_%__match8054080541%_ + (lambda (_%e5726557375%_ + _%hd5726657379%_ + _%tl5726757382%_ + _%e5726857385%_ + _%hd5726957389%_ + _%tl5727057392%_ + _%e5727157395%_ + _%hd5727257399%_ + _%tl5727357402%_ + _%e5727457405%_ + _%hd5727557409%_ + _%tl5727657412%_) + (let ((_%L57415%_ _%tl5727057392%_) + (_%L57417%_ _%hd5727557409%_) + (_%L57418%_ _%hd5727257399%_) + (_%L57419%_ _%hd5726657379%_)) + (if (and (gx#stx-keyword? _%L57419%_) + (gx#identifier? _%L57418%_)) + (_%__kont8045880459%_ + _%L57415%_ + _%L57417%_ + _%L57418%_ + _%L57419%_) + (_%__match8055880559%_ + _%e5726557375%_ + _%hd5726657379%_ + _%tl5726757382%_ + _%e5726857385%_ + _%hd5726957389%_ + _%tl5727057392%_ + _%e5727157395%_ + _%hd5727257399%_ + _%tl5727357402%_))))) + (_%__match8051480515%_ + (lambda (_%e5725557445%_ + _%hd5725657449%_ + _%tl5725757452%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_) + (let ((_%L57465%_ _%tl5726057462%_) + (_%L57467%_ _%hd5725957459%_) + (_%L57468%_ _%hd5725657449%_)) + (if (and (gx#stx-keyword? _%L57468%_) + (gx#identifier? _%L57467%_)) + (_%__kont8045680457%_ + _%L57465%_ + _%L57467%_ + _%L57468%_) + (if (gx#stx-pair? _%hd5725957459%_) + (let ((_%e5727157395%_ + (gx#syntax-e _%hd5725957459%_))) + (let ((_%tl5727357402%_ (let () (declare (not safe)) - (##cdr _%e5720857332%_))) - (_%hd5720957336%_ + (##cdr _%e5727157395%_))) + (_%hd5727257399%_ (let () (declare (not safe)) - (##car _%e5720857332%_)))) - (if (gx#stx-pair? _%tl5721057339%_) - (let ((_%e5721157342%_ + (##car _%e5727157395%_)))) + (if (gx#stx-pair? _%tl5727357402%_) + (let ((_%e5727457405%_ (gx#syntax-e - _%tl5721057339%_))) - (let ((_%tl5721357349%_ + _%tl5727357402%_))) + (let ((_%tl5727657412%_ (let () (declare (not safe)) - (##cdr _%e5721157342%_))) - (_%hd5721257346%_ + (##cdr _%e5727457405%_))) + (_%hd5727557409%_ (let () (declare (not safe)) - (##car _%e5721157342%_)))) + (##car _%e5727457405%_)))) (if (gx#stx-null? - _%tl5721357349%_) - (_%__match8047780478%_ - _%e5719257382%_ - _%hd5719357386%_ - _%tl5719457389%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_ - _%e5720857332%_ - _%hd5720957336%_ - _%tl5721057339%_ - _%e5721157342%_ - _%hd5721257346%_ - _%tl5721357349%_) - (_%__match8049580496%_ - _%e5719257382%_ - _%hd5719357386%_ - _%tl5719457389%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_ - _%e5720857332%_ - _%hd5720957336%_ - _%tl5721057339%_)))) - (_%__match8049580496%_ - _%e5719257382%_ - _%hd5719357386%_ - _%tl5719457389%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_ - _%e5720857332%_ - _%hd5720957336%_ - _%tl5721057339%_)))) - (_%__kont8039980400%_)))))) - (_%__match8043980440%_ - (lambda (_%e5718357426%_ - _%hd5718457430%_ - _%tl5718557433%_ - _%e5718657436%_ - _%hd5718757440%_ - _%tl5718857443%_) - (let ((_%L57446%_ _%tl5718557433%_) - (_%L57448%_ _%tl5718857443%_) - (_%L57449%_ _%hd5718757440%_)) - (if (and (gx#identifier? _%L57449%_) + _%tl5727657412%_) + (_%__match8054080541%_ + _%e5725557445%_ + _%hd5725657449%_ + _%tl5725757452%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_ + _%e5727157395%_ + _%hd5727257399%_ + _%tl5727357402%_ + _%e5727457405%_ + _%hd5727557409%_ + _%tl5727657412%_) + (_%__match8055880559%_ + _%e5725557445%_ + _%hd5725657449%_ + _%tl5725757452%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_ + _%e5727157395%_ + _%hd5727257399%_ + _%tl5727357402%_)))) + (_%__match8055880559%_ + _%e5725557445%_ + _%hd5725657449%_ + _%tl5725757452%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_ + _%e5727157395%_ + _%hd5727257399%_ + _%tl5727357402%_)))) + (_%__kont8046280463%_)))))) + (_%__match8050280503%_ + (lambda (_%e5724657489%_ + _%hd5724757493%_ + _%tl5724857496%_ + _%e5724957499%_ + _%hd5725057503%_ + _%tl5725157506%_) + (let ((_%L57509%_ _%tl5724857496%_) + (_%L57511%_ _%tl5725157506%_) + (_%L57512%_ _%hd5725057503%_)) + (if (and (gx#identifier? _%L57512%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L57448%_)) - (_%__kont8039180392%_ - _%L57446%_ - _%L57448%_ - _%L57449%_) - (if (gx#stx-pair? _%tl5718557433%_) - (let ((_%e5719557392%_ - (gx#syntax-e _%tl5718557433%_))) - (let ((_%tl5719757399%_ + _%L57511%_)) + (_%__kont8045480455%_ + _%L57509%_ + _%L57511%_ + _%L57512%_) + (if (gx#stx-pair? _%tl5724857496%_) + (let ((_%e5725857455%_ + (gx#syntax-e _%tl5724857496%_))) + (let ((_%tl5726057462%_ (let () (declare (not safe)) - (##cdr _%e5719557392%_))) - (_%hd5719657396%_ + (##cdr _%e5725857455%_))) + (_%hd5725957459%_ (let () (declare (not safe)) - (##car _%e5719557392%_)))) - (_%__match8045180452%_ - _%e5718357426%_ - _%hd5718457430%_ - _%tl5718557433%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_))) - (_%__kont8039980400%_)))))) - (_%__match8042780428%_ - (lambda (_%e5717157470%_ - _%hd5717257474%_ - _%tl5717357477%_ - _%e5717457480%_ - _%hd5717557484%_ - _%tl5717657487%_ - _%e5717757490%_ - _%hd5717857494%_ - _%tl5717957497%_) - (let ((_%L57500%_ _%tl5717357477%_) - (_%L57502%_ _%hd5717857494%_) - (_%L57503%_ _%hd5717557484%_)) - (if (gx#identifier? _%L57503%_) - (_%__kont8038980390%_ - _%L57500%_ - _%L57502%_ - _%L57503%_) - (_%__match8043980440%_ - _%e5717157470%_ - _%hd5717257474%_ - _%tl5717357477%_ - _%e5717457480%_ - _%hd5717557484%_ - _%tl5717657487%_))))) - (_%__match8040780408%_ - (lambda (_%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_) - (let ((_%L57536%_ _%tl5716757533%_) - (_%L57538%_ _%hd5716657530%_)) - (if (gx#identifier? _%L57538%_) - (_%__kont8038780388%_ _%L57536%_ _%L57538%_) - (if (gx#stx-pair? _%hd5716657530%_) - (let ((_%e5717457480%_ - (gx#syntax-e _%hd5716657530%_))) - (let ((_%tl5717657487%_ + (##car _%e5725857455%_)))) + (_%__match8051480515%_ + _%e5724657489%_ + _%hd5724757493%_ + _%tl5724857496%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_))) + (_%__kont8046280463%_)))))) + (_%__match8049080491%_ + (lambda (_%e5723457533%_ + _%hd5723557537%_ + _%tl5723657540%_ + _%e5723757543%_ + _%hd5723857547%_ + _%tl5723957550%_ + _%e5724057553%_ + _%hd5724157557%_ + _%tl5724257560%_) + (let ((_%L57563%_ _%tl5723657540%_) + (_%L57565%_ _%hd5724157557%_) + (_%L57566%_ _%hd5723857547%_)) + (if (gx#identifier? _%L57566%_) + (_%__kont8045280453%_ + _%L57563%_ + _%L57565%_ + _%L57566%_) + (_%__match8050280503%_ + _%e5723457533%_ + _%hd5723557537%_ + _%tl5723657540%_ + _%e5723757543%_ + _%hd5723857547%_ + _%tl5723957550%_))))) + (_%__match8047080471%_ + (lambda (_%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_) + (let ((_%L57599%_ _%tl5723057596%_) + (_%L57601%_ _%hd5722957593%_)) + (if (gx#identifier? _%L57601%_) + (_%__kont8045080451%_ _%L57599%_ _%L57601%_) + (if (gx#stx-pair? _%hd5722957593%_) + (let ((_%e5723757543%_ + (gx#syntax-e _%hd5722957593%_))) + (let ((_%tl5723957550%_ (let () (declare (not safe)) - (##cdr _%e5717457480%_))) - (_%hd5717557484%_ + (##cdr _%e5723757543%_))) + (_%hd5723857547%_ (let () (declare (not safe)) - (##car _%e5717457480%_)))) - (if (gx#stx-pair? _%tl5717657487%_) - (let ((_%e5717757490%_ + (##car _%e5723757543%_)))) + (if (gx#stx-pair? _%tl5723957550%_) + (let ((_%e5724057553%_ (gx#syntax-e - _%tl5717657487%_))) - (let ((_%tl5717957497%_ + _%tl5723957550%_))) + (let ((_%tl5724257560%_ (let () (declare (not safe)) - (##cdr _%e5717757490%_))) - (_%hd5717857494%_ + (##cdr _%e5724057553%_))) + (_%hd5724157557%_ (let () (declare (not safe)) - (##car _%e5717757490%_)))) + (##car _%e5724057553%_)))) (if (gx#stx-null? - _%tl5717957497%_) - (_%__match8042780428%_ - _%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_ - _%e5717457480%_ - _%hd5717557484%_ - _%tl5717657487%_ - _%e5717757490%_ - _%hd5717857494%_ - _%tl5717957497%_) - (_%__match8043980440%_ - _%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_ - _%e5717457480%_ - _%hd5717557484%_ - _%tl5717657487%_)))) - (_%__match8043980440%_ - _%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_ - _%e5717457480%_ - _%hd5717557484%_ - _%tl5717657487%_)))) - (if (gx#stx-pair? _%tl5716757533%_) - (let ((_%e5719557392%_ - (gx#syntax-e _%tl5716757533%_))) - (let ((_%tl5719757399%_ + _%tl5724257560%_) + (_%__match8049080491%_ + _%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_ + _%e5723757543%_ + _%hd5723857547%_ + _%tl5723957550%_ + _%e5724057553%_ + _%hd5724157557%_ + _%tl5724257560%_) + (_%__match8050280503%_ + _%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_ + _%e5723757543%_ + _%hd5723857547%_ + _%tl5723957550%_)))) + (_%__match8050280503%_ + _%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_ + _%e5723757543%_ + _%hd5723857547%_ + _%tl5723957550%_)))) + (if (gx#stx-pair? _%tl5723057596%_) + (let ((_%e5725857455%_ + (gx#syntax-e _%tl5723057596%_))) + (let ((_%tl5726057462%_ (let () (declare (not safe)) - (##cdr _%e5719557392%_))) - (_%hd5719657396%_ + (##cdr _%e5725857455%_))) + (_%hd5725957459%_ (let () (declare (not safe)) - (##car _%e5719557392%_)))) - (_%__match8045180452%_ - _%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_ - _%e5719557392%_ - _%hd5719657396%_ - _%tl5719757399%_))) - (_%__kont8039980400%_)))))))) - (if (gx#stx-pair? _%__stx8038480385%_) - (let ((_%e5716557526%_ (gx#syntax-e _%__stx8038480385%_))) - (let ((_%tl5716757533%_ + (##car _%e5725857455%_)))) + (_%__match8051480515%_ + _%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_ + _%e5725857455%_ + _%hd5725957459%_ + _%tl5726057462%_))) + (_%__kont8046280463%_)))))))) + (if (gx#stx-pair? _%__stx8044780448%_) + (let ((_%e5722857589%_ (gx#syntax-e _%__stx8044780448%_))) + (let ((_%tl5723057596%_ (let () (declare (not safe)) - (##cdr _%e5716557526%_))) - (_%hd5716657530%_ + (##cdr _%e5722857589%_))) + (_%hd5722957593%_ (let () (declare (not safe)) - (##car _%e5716557526%_)))) - (_%__match8040780408%_ - _%e5716557526%_ - _%hd5716657530%_ - _%tl5716757533%_))) - (_%__kont8039980400%_)))))))) + (##car _%e5722857589%_)))) + (_%__match8047080471%_ + _%e5722857589%_ + _%hd5722957593%_ + _%tl5723057596%_))) + (_%__kont8046280463%_)))))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - (lambda (_%stx57135%_ - _%self57137%_ - _%Interface57138%_ - _%signature57139%_ - _%return57140%_ - _%unchecked-proc57141%_) - (if (gx#stx-e _%unchecked-proc57141%_) + (lambda (_%stx57198%_ + _%self57200%_ + _%Interface57201%_ + _%signature57202%_ + _%return57203%_ + _%unchecked-proc57204%_) + (if (gx#stx-e _%unchecked-proc57204%_) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx57135%_ - (cons (cons _%self57137%_ (cons ': (cons _%Interface57138%_ '()))) - _%signature57139%_) - _%return57140%_ - _%unchecked-proc57141%_) - (let ((_%return-type57143%_ + _%stx57198%_ + (cons (cons _%self57200%_ (cons ': (cons _%Interface57201%_ '()))) + _%signature57202%_) + _%return57203%_ + _%unchecked-proc57204%_) + (let ((_%return-type57206%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx57135%_ - _%return57140%_)))) - (cons 'return: (cons _%return-type57143%_ '())))))) + _%stx57198%_ + _%return57203%_)))) + (cons 'return: (cons _%return-type57206%_ '())))))) (define |gerbil/core/contract~Interface[1]#make-interface-method-contract| - (lambda (_%stx57128%_ - _%self57130%_ - _%Interface57131%_ - _%signature57132%_ - _%checked?57133%_) + (lambda (_%stx57191%_ + _%self57193%_ + _%Interface57194%_ + _%signature57195%_ + _%checked?57196%_) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx57128%_ - (cons (cons _%self57130%_ - (cons (if _%checked?57133%_ ': '::-) - (cons _%Interface57131%_ '()))) - _%signature57132%_) - _%checked?57133%_))) + _%stx57191%_ + (cons (cons _%self57193%_ + (cons (if _%checked?57196%_ ': '::-) + (cons _%Interface57194%_ '()))) + _%signature57195%_) + _%checked?57196%_))) (define |gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - (lambda (_%stx56367%_ - _%signature56369%_ - _%return56370%_ - _%unchecked56371%_) - (letrec ((_%type-e56373%_ - (lambda (_%contract56817%_) - (let* ((_%__stx8049880499%_ _%contract56817%_) - (_%g5682456879%_ + (lambda (_%stx56430%_ + _%signature56432%_ + _%return56433%_ + _%unchecked56434%_) + (letrec ((_%type-e56436%_ + (lambda (_%contract56880%_) + (let* ((_%__stx8056180562%_ _%contract56880%_) + (_%g5688756942%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8049880499%_)))) - (let ((_%__kont8050180502%_ - (lambda (_%L57109%_ _%L57111%_) + _%__stx8056180562%_)))) + (let ((_%__kont8056480565%_ + (lambda (_%L57172%_ _%L57174%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56367%_ - _%L57111%_)))) - (_%__kont8050380504%_ - (lambda (_%L57061%_ _%L57063%_ _%L57064%_) + _%stx56430%_ + _%L57174%_)))) + (_%__kont8056680567%_ + (lambda (_%L57124%_ _%L57126%_ _%L57127%_) (gx#core-quote-syntax 't::t))) - (_%__kont8050580506%_ - (lambda (_%L57013%_ _%L57015%_ _%L57016%_) + (_%__kont8056880569%_ + (lambda (_%L57076%_ _%L57078%_ _%L57079%_) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56367%_ - _%L57015%_)))) - (_%__kont8050780508%_ - (lambda (_%L56937%_ - _%L56939%_ - _%L56940%_ - _%L56941%_) + _%stx56430%_ + _%L57078%_)))) + (_%__kont8057080571%_ + (lambda (_%L57000%_ + _%L57002%_ + _%L57003%_ + _%L57004%_) (gx#core-quote-syntax 't::t))) - (_%__kont8050980510%_ (lambda () '#f))) - (let* ((_%__match8059980600%_ - (lambda (_%e5686256897%_ - _%hd5686356901%_ - _%tl5686456904%_ - _%e5686556907%_ - _%hd5686656911%_ - _%tl5686756914%_ - _%e5686856917%_ - _%hd5686956921%_ - _%tl5687056924%_ - _%e5687156927%_ - _%hd5687256931%_ - _%tl5687356934%_) - (let ((_%L56937%_ _%tl5687356934%_) - (_%L56939%_ _%hd5687256931%_) - (_%L56940%_ _%hd5686956921%_) - (_%L56941%_ _%hd5686656911%_)) - (if (and (gx#identifier? _%L56940%_) + (_%__kont8057280573%_ (lambda () '#f))) + (let* ((_%__match8066280663%_ + (lambda (_%e5692556960%_ + _%hd5692656964%_ + _%tl5692756967%_ + _%e5692856970%_ + _%hd5692956974%_ + _%tl5693056977%_ + _%e5693156980%_ + _%hd5693256984%_ + _%tl5693356987%_ + _%e5693456990%_ + _%hd5693556994%_ + _%tl5693656997%_) + (let ((_%L57000%_ _%tl5693656997%_) + (_%L57002%_ _%hd5693556994%_) + (_%L57003%_ _%hd5693256984%_) + (_%L57004%_ _%hd5692956974%_)) + (if (and (gx#identifier? _%L57003%_) (or (gx#free-identifier=? - _%L56940%_ + _%L57003%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L56940%_ + _%L57003%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8050780508%_ - _%L56937%_ - _%L56939%_ - _%L56940%_ - _%L56941%_) - (_%__kont8050980510%_))))) - (_%__match8053980540%_ - (lambda (_%e5683757041%_ - _%hd5683857045%_ - _%tl5683957048%_ - _%e5684057051%_ - _%hd5684157055%_ - _%tl5684257058%_) - (let ((_%L57061%_ _%tl5684257058%_) - (_%L57063%_ _%hd5684157055%_) - (_%L57064%_ _%hd5683857045%_)) - (if (and (gx#identifier? _%L57064%_) + (_%__kont8057080571%_ + _%L57000%_ + _%L57002%_ + _%L57003%_ + _%L57004%_) + (_%__kont8057280573%_))))) + (_%__match8060280603%_ + (lambda (_%e5690057104%_ + _%hd5690157108%_ + _%tl5690257111%_ + _%e5690357114%_ + _%hd5690457118%_ + _%tl5690557121%_) + (let ((_%L57124%_ _%tl5690557121%_) + (_%L57126%_ _%hd5690457118%_) + (_%L57127%_ _%hd5690157108%_)) + (if (and (gx#identifier? _%L57127%_) (or (gx#free-identifier=? - _%L57064%_ + _%L57127%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L57064%_ + _%L57127%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8050380504%_ - _%L57061%_ - _%L57063%_ - _%L57064%_) - (if (gx#identifier? _%hd5683857045%_) + (_%__kont8056680567%_ + _%L57124%_ + _%L57126%_ + _%L57127%_) + (if (gx#identifier? _%hd5690157108%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84104_| - _%hd5683857045%_) + |gerbil/core/contract~Interface[1]#_g84167_| + _%hd5690157108%_) (if (gx#stx-pair? - _%tl5684257058%_) - (let ((_%e5685256993%_ + _%tl5690557121%_) + (let ((_%e5691557056%_ (gx#syntax-e - _%tl5684257058%_))) - (let ((_%tl5685457000%_ + _%tl5690557121%_))) + (let ((_%tl5691757063%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5685256993%_))) - (_%hd5685356997%_ - (let () (declare (not safe)) (##car _%e5685256993%_)))) - (if (gx#identifier? _%hd5685356997%_) + (##cdr _%e5691557056%_))) + (_%hd5691657060%_ + (let () (declare (not safe)) (##car _%e5691557056%_)))) + (if (gx#identifier? _%hd5691657060%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84105_| - _%hd5685356997%_) - (if (gx#stx-pair? _%tl5685457000%_) - (let ((_%e5685557003%_ - (gx#syntax-e _%tl5685457000%_))) - (let ((_%tl5685757010%_ + |gerbil/core/contract~Interface[1]#_g84168_| + _%hd5691657060%_) + (if (gx#stx-pair? _%tl5691757063%_) + (let ((_%e5691857066%_ + (gx#syntax-e _%tl5691757063%_))) + (let ((_%tl5692057073%_ (let () (declare (not safe)) - (##cdr _%e5685557003%_))) - (_%hd5685657007%_ + (##cdr _%e5691857066%_))) + (_%hd5691957070%_ (let () (declare (not safe)) - (##car _%e5685557003%_)))) - (_%__kont8050580506%_ - _%tl5685757010%_ - _%hd5685657007%_ - _%hd5684157055%_))) - (_%__kont8050980510%_)) - (if (gx#stx-pair? _%tl5685457000%_) - (let ((_%e5687156927%_ - (gx#syntax-e _%tl5685457000%_))) - (let ((_%tl5687356934%_ + (##car _%e5691857066%_)))) + (_%__kont8056880569%_ + _%tl5692057073%_ + _%hd5691957070%_ + _%hd5690457118%_))) + (_%__kont8057280573%_)) + (if (gx#stx-pair? _%tl5691757063%_) + (let ((_%e5693456990%_ + (gx#syntax-e _%tl5691757063%_))) + (let ((_%tl5693656997%_ (let () (declare (not safe)) - (##cdr _%e5687156927%_))) - (_%hd5687256931%_ + (##cdr _%e5693456990%_))) + (_%hd5693556994%_ (let () (declare (not safe)) - (##car _%e5687156927%_)))) - (_%__match8059980600%_ - _%e5683757041%_ - _%hd5683857045%_ - _%tl5683957048%_ - _%e5684057051%_ - _%hd5684157055%_ - _%tl5684257058%_ - _%e5685256993%_ - _%hd5685356997%_ - _%tl5685457000%_ - _%e5687156927%_ - _%hd5687256931%_ - _%tl5687356934%_))) - (_%__kont8050980510%_))) - (if (gx#stx-pair? _%tl5685457000%_) - (let ((_%e5687156927%_ (gx#syntax-e _%tl5685457000%_))) - (let ((_%tl5687356934%_ + (##car _%e5693456990%_)))) + (_%__match8066280663%_ + _%e5690057104%_ + _%hd5690157108%_ + _%tl5690257111%_ + _%e5690357114%_ + _%hd5690457118%_ + _%tl5690557121%_ + _%e5691557056%_ + _%hd5691657060%_ + _%tl5691757063%_ + _%e5693456990%_ + _%hd5693556994%_ + _%tl5693656997%_))) + (_%__kont8057280573%_))) + (if (gx#stx-pair? _%tl5691757063%_) + (let ((_%e5693456990%_ (gx#syntax-e _%tl5691757063%_))) + (let ((_%tl5693656997%_ (let () (declare (not safe)) - (##cdr _%e5687156927%_))) - (_%hd5687256931%_ + (##cdr _%e5693456990%_))) + (_%hd5693556994%_ (let () (declare (not safe)) - (##car _%e5687156927%_)))) - (_%__match8059980600%_ - _%e5683757041%_ - _%hd5683857045%_ - _%tl5683957048%_ - _%e5684057051%_ - _%hd5684157055%_ - _%tl5684257058%_ - _%e5685256993%_ - _%hd5685356997%_ - _%tl5685457000%_ - _%e5687156927%_ - _%hd5687256931%_ - _%tl5687356934%_))) - (_%__kont8050980510%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8050980510%_)) - (_%__kont8050980510%_)) - (_%__kont8050980510%_))))))) - (if (gx#stx-pair? _%__stx8049880499%_) - (let ((_%e5682857089%_ - (gx#syntax-e _%__stx8049880499%_))) - (let ((_%tl5683057096%_ + (##car _%e5693456990%_)))) + (_%__match8066280663%_ + _%e5690057104%_ + _%hd5690157108%_ + _%tl5690257111%_ + _%e5690357114%_ + _%hd5690457118%_ + _%tl5690557121%_ + _%e5691557056%_ + _%hd5691657060%_ + _%tl5691757063%_ + _%e5693456990%_ + _%hd5693556994%_ + _%tl5693656997%_))) + (_%__kont8057280573%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8057280573%_)) + (_%__kont8057280573%_)) + (_%__kont8057280573%_))))))) + (if (gx#stx-pair? _%__stx8056180562%_) + (let ((_%e5689157152%_ + (gx#syntax-e _%__stx8056180562%_))) + (let ((_%tl5689357159%_ (let () (declare (not safe)) - (##cdr _%e5682857089%_))) - (_%hd5682957093%_ + (##cdr _%e5689157152%_))) + (_%hd5689257156%_ (let () (declare (not safe)) - (##car _%e5682857089%_)))) - (if (gx#identifier? _%hd5682957093%_) + (##car _%e5689157152%_)))) + (if (gx#identifier? _%hd5689257156%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84106_| - _%hd5682957093%_) - (if (gx#stx-pair? _%tl5683057096%_) - (let ((_%e5683157099%_ + |gerbil/core/contract~Interface[1]#_g84169_| + _%hd5689257156%_) + (if (gx#stx-pair? _%tl5689357159%_) + (let ((_%e5689457162%_ (gx#syntax-e - _%tl5683057096%_))) - (let ((_%tl5683357106%_ + _%tl5689357159%_))) + (let ((_%tl5689657169%_ (let () (declare (not safe)) - (##cdr _%e5683157099%_))) - (_%hd5683257103%_ + (##cdr _%e5689457162%_))) + (_%hd5689557166%_ (let () (declare (not safe)) - (##car _%e5683157099%_)))) - (_%__kont8050180502%_ - _%tl5683357106%_ - _%hd5683257103%_))) - (_%__kont8050980510%_)) - (if (gx#stx-pair? _%tl5683057096%_) - (let ((_%e5684057051%_ + (##car _%e5689457162%_)))) + (_%__kont8056480565%_ + _%tl5689657169%_ + _%hd5689557166%_))) + (_%__kont8057280573%_)) + (if (gx#stx-pair? _%tl5689357159%_) + (let ((_%e5690357114%_ (gx#syntax-e - _%tl5683057096%_))) - (let ((_%tl5684257058%_ + _%tl5689357159%_))) + (let ((_%tl5690557121%_ (let () (declare (not safe)) - (##cdr _%e5684057051%_))) - (_%hd5684157055%_ + (##cdr _%e5690357114%_))) + (_%hd5690457118%_ (let () (declare (not safe)) - (##car _%e5684057051%_)))) - (_%__match8053980540%_ - _%e5682857089%_ - _%hd5682957093%_ - _%tl5683057096%_ - _%e5684057051%_ - _%hd5684157055%_ - _%tl5684257058%_))) - (_%__kont8050980510%_))) - (if (gx#stx-pair? _%tl5683057096%_) - (let ((_%e5684057051%_ + (##car _%e5690357114%_)))) + (_%__match8060280603%_ + _%e5689157152%_ + _%hd5689257156%_ + _%tl5689357159%_ + _%e5690357114%_ + _%hd5690457118%_ + _%tl5690557121%_))) + (_%__kont8057280573%_))) + (if (gx#stx-pair? _%tl5689357159%_) + (let ((_%e5690357114%_ (gx#syntax-e - _%tl5683057096%_))) - (let ((_%tl5684257058%_ + _%tl5689357159%_))) + (let ((_%tl5690557121%_ (let () (declare (not safe)) - (##cdr _%e5684057051%_))) - (_%hd5684157055%_ + (##cdr _%e5690357114%_))) + (_%hd5690457118%_ (let () (declare (not safe)) - (##car _%e5684057051%_)))) - (_%__match8053980540%_ - _%e5682857089%_ - _%hd5682957093%_ - _%tl5683057096%_ - _%e5684057051%_ - _%hd5684157055%_ - _%tl5684257058%_))) - (_%__kont8050980510%_))))) - (_%__kont8050980510%_)))))))) - (let _%loop56376%_ ((_%rest56379%_ _%signature56369%_) - (_%has-keywords?56381%_ '#f) - (_%result56382%_ '())) - (let* ((_%__stx8060280603%_ _%rest56379%_) - (_%g5639156461%_ + (##car _%e5690357114%_)))) + (_%__match8060280603%_ + _%e5689157152%_ + _%hd5689257156%_ + _%tl5689357159%_ + _%e5690357114%_ + _%hd5690457118%_ + _%tl5690557121%_))) + (_%__kont8057280573%_))))) + (_%__kont8057280573%_)))))))) + (let _%loop56439%_ ((_%rest56442%_ _%signature56432%_) + (_%has-keywords?56444%_ '#f) + (_%result56445%_ '())) + (let* ((_%__stx8066580666%_ _%rest56442%_) + (_%g5645456524%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8060280603%_)))) - (let ((_%__kont8060580606%_ - (lambda (_%L56800%_ _%L56802%_) - (_%loop56376%_ - _%L56800%_ + _%__stx8066580666%_)))) + (let ((_%__kont8066880669%_ + (lambda (_%L56863%_ _%L56865%_) + (_%loop56439%_ + _%L56863%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) - (_%__kont8060780608%_ - (lambda (_%L56766%_ _%L56768%_) - (_%loop56376%_ - _%L56766%_ + (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) + (_%__kont8067080671%_ + (lambda (_%L56829%_ _%L56831%_) + (_%loop56439%_ + _%L56829%_ '#f - (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) - (_%__kont8060980610%_ - (lambda (_%L56712%_ _%L56714%_ _%L56715%_) - (_%loop56376%_ - _%L56712%_ + (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) + (_%__kont8067280673%_ + (lambda (_%L56775%_ _%L56777%_ _%L56778%_) + (_%loop56439%_ + _%L56775%_ '#f - (cons (_%type-e56373%_ _%L56714%_) _%result56382%_)))) - (_%__kont8061180612%_ - (lambda (_%L56668%_ _%L56670%_ _%L56671%_) - (_%loop56376%_ - _%L56668%_ + (cons (_%type-e56436%_ _%L56777%_) _%result56445%_)))) + (_%__kont8067480675%_ + (lambda (_%L56731%_ _%L56733%_ _%L56734%_) + (_%loop56439%_ + _%L56731%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) - (_%__kont8061380614%_ - (lambda (_%L56620%_ _%L56622%_ _%L56623%_) - (_%loop56376%_ - _%L56620%_ + (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) + (_%__kont8067680677%_ + (lambda (_%L56683%_ _%L56685%_ _%L56686%_) + (_%loop56439%_ + _%L56683%_ '#t - (cons (gx#core-quote-syntax 't::t) _%result56382%_)))) - (_%__kont8061580616%_ - (lambda (_%L56552%_ _%L56554%_ _%L56555%_ _%L56556%_) - (_%loop56376%_ - _%L56552%_ + (cons (gx#core-quote-syntax 't::t) _%result56445%_)))) + (_%__kont8067880679%_ + (lambda (_%L56615%_ _%L56617%_ _%L56618%_ _%L56619%_) + (_%loop56439%_ + _%L56615%_ '#t - (cons (_%type-e56373%_ _%L56554%_) _%result56382%_)))) - (_%__kont8061780618%_ - (lambda (_%L56490%_) - (let* ((_%arguments56504%_ - (if _%has-keywords?56381%_ + (cons (_%type-e56436%_ _%L56617%_) _%result56445%_)))) + (_%__kont8068080681%_ + (lambda (_%L56553%_) + (let* ((_%arguments56567%_ + (if _%has-keywords?56444%_ (gx#core-quote-syntax 't::t) (foldl cons (gx#core-quote-syntax 't::t) - _%result56382%_))) - (_%return-type56507%_ + _%result56445%_))) + (_%return-type56570%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56367%_ - _%return56370%_))) - (_%unchecked56510%_ - (if (not _%has-keywords?56381%_) - (if (gx#stx-e _%unchecked56371%_) + _%stx56430%_ + _%return56433%_))) + (_%unchecked56573%_ + (if (not _%has-keywords?56444%_) + (if (gx#stx-e _%unchecked56434%_) (gx#core-quote-syntax - _%unchecked56371%_) + _%unchecked56434%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56504%_ + (cons _%arguments56567%_ (cons 'return: - (cons _%return-type56507%_ + (cons _%return-type56570%_ (cons 'unchecked: - (cons _%unchecked56510%_ + (cons _%unchecked56573%_ '()))))))))) - (_%__kont8061980620%_ + (_%__kont8068280683%_ (lambda () - (let* ((_%arguments56472%_ - (if _%has-keywords?56381%_ + (let* ((_%arguments56535%_ + (if _%has-keywords?56444%_ (gx#core-quote-syntax 't::t) - (reverse! _%result56382%_))) - (_%return-type56475%_ + (reverse! _%result56445%_))) + (_%return-type56538%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx56367%_ - _%return56370%_))) - (_%unchecked56478%_ - (if (not _%has-keywords?56381%_) - (if (gx#stx-e _%unchecked56371%_) + _%stx56430%_ + _%return56433%_))) + (_%unchecked56541%_ + (if (not _%has-keywords?56444%_) + (if (gx#stx-e _%unchecked56434%_) (gx#core-quote-syntax - _%unchecked56371%_) + _%unchecked56434%_) '#f) '#f))) (cons 'arguments: - (cons _%arguments56472%_ + (cons _%arguments56535%_ (cons 'return: - (cons _%return-type56475%_ + (cons _%return-type56538%_ (cons 'unchecked: - (cons _%unchecked56478%_ + (cons _%unchecked56541%_ '())))))))))) - (let* ((_%g5639056483%_ + (let* ((_%g5645356546%_ (lambda () - (if (gx#stx-null? _%__stx8060280603%_) - (_%__kont8061980620%_) + (if (gx#stx-null? _%__stx8066580666%_) + (_%__kont8068280683%_) (let () (declare (not safe)) - (_%g5639156461%_))))) - (_%g5638956515%_ + (_%g5645456524%_))))) + (_%g5645256578%_ (lambda () - (let ((_%L56490%_ _%__stx8060280603%_)) - (if (gx#identifier? _%L56490%_) - (_%__kont8061780618%_ _%L56490%_) + (let ((_%L56553%_ _%__stx8066580666%_)) + (if (gx#identifier? _%L56553%_) + (_%__kont8068080681%_ _%L56553%_) (let () (declare (not safe)) - (_%g5639056483%_)))))) - (_%__match8071580716%_ - (lambda (_%e5644656522%_ - _%hd5644756526%_ - _%tl5644856529%_ - _%e5644956532%_ - _%hd5645056536%_ - _%tl5645156539%_ - _%e5645256542%_ - _%hd5645356546%_ - _%tl5645456549%_) - (let ((_%L56552%_ _%tl5645156539%_) - (_%L56554%_ _%tl5645456549%_) - (_%L56555%_ _%hd5645356546%_) - (_%L56556%_ _%hd5644756526%_)) - (if (and (gx#stx-keyword? _%L56556%_) - (gx#identifier? _%L56555%_) + (_%g5645356546%_)))))) + (_%__match8077880779%_ + (lambda (_%e5650956585%_ + _%hd5651056589%_ + _%tl5651156592%_ + _%e5651256595%_ + _%hd5651356599%_ + _%tl5651456602%_ + _%e5651556605%_ + _%hd5651656609%_ + _%tl5651756612%_) + (let ((_%L56615%_ _%tl5651456602%_) + (_%L56617%_ _%tl5651756612%_) + (_%L56618%_ _%hd5651656609%_) + (_%L56619%_ _%hd5651056589%_)) + (if (and (gx#stx-keyword? _%L56619%_) + (gx#identifier? _%L56618%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56554%_)) - (_%__kont8061580616%_ - _%L56552%_ - _%L56554%_ - _%L56555%_ - _%L56556%_) + _%L56617%_)) + (_%__kont8067880679%_ + _%L56615%_ + _%L56617%_ + _%L56618%_ + _%L56619%_) (let () (declare (not safe)) - (_%g5638956515%_)))))) - (_%__match8069780698%_ - (lambda (_%e5643056580%_ - _%hd5643156584%_ - _%tl5643256587%_ - _%e5643356590%_ - _%hd5643456594%_ - _%tl5643556597%_ - _%e5643656600%_ - _%hd5643756604%_ - _%tl5643856607%_ - _%e5643956610%_ - _%hd5644056614%_ - _%tl5644156617%_) - (let ((_%L56620%_ _%tl5643556597%_) - (_%L56622%_ _%hd5643756604%_) - (_%L56623%_ _%hd5643156584%_)) - (if (and (gx#stx-keyword? _%L56623%_) - (gx#identifier? _%L56622%_)) - (_%__kont8061380614%_ - _%L56620%_ - _%L56622%_ - _%L56623%_) - (_%__match8071580716%_ - _%e5643056580%_ - _%hd5643156584%_ - _%tl5643256587%_ - _%e5643356590%_ - _%hd5643456594%_ - _%tl5643556597%_ - _%e5643656600%_ - _%hd5643756604%_ - _%tl5643856607%_))))) - (_%__match8067180672%_ - (lambda (_%e5642156648%_ - _%hd5642256652%_ - _%tl5642356655%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_) - (let ((_%L56668%_ _%tl5642656665%_) - (_%L56670%_ _%hd5642556662%_) - (_%L56671%_ _%hd5642256652%_)) - (if (and (gx#stx-keyword? _%L56671%_) - (gx#identifier? _%L56670%_)) - (_%__kont8061180612%_ - _%L56668%_ - _%L56670%_ - _%L56671%_) - (if (gx#stx-pair? _%hd5642556662%_) - (let ((_%e5643656600%_ - (gx#syntax-e _%hd5642556662%_))) - (let ((_%tl5643856607%_ + (_%g5645256578%_)))))) + (_%__match8076080761%_ + (lambda (_%e5649356643%_ + _%hd5649456647%_ + _%tl5649556650%_ + _%e5649656653%_ + _%hd5649756657%_ + _%tl5649856660%_ + _%e5649956663%_ + _%hd5650056667%_ + _%tl5650156670%_ + _%e5650256673%_ + _%hd5650356677%_ + _%tl5650456680%_) + (let ((_%L56683%_ _%tl5649856660%_) + (_%L56685%_ _%hd5650056667%_) + (_%L56686%_ _%hd5649456647%_)) + (if (and (gx#stx-keyword? _%L56686%_) + (gx#identifier? _%L56685%_)) + (_%__kont8067680677%_ + _%L56683%_ + _%L56685%_ + _%L56686%_) + (_%__match8077880779%_ + _%e5649356643%_ + _%hd5649456647%_ + _%tl5649556650%_ + _%e5649656653%_ + _%hd5649756657%_ + _%tl5649856660%_ + _%e5649956663%_ + _%hd5650056667%_ + _%tl5650156670%_))))) + (_%__match8073480735%_ + (lambda (_%e5648456711%_ + _%hd5648556715%_ + _%tl5648656718%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_) + (let ((_%L56731%_ _%tl5648956728%_) + (_%L56733%_ _%hd5648856725%_) + (_%L56734%_ _%hd5648556715%_)) + (if (and (gx#stx-keyword? _%L56734%_) + (gx#identifier? _%L56733%_)) + (_%__kont8067480675%_ + _%L56731%_ + _%L56733%_ + _%L56734%_) + (if (gx#stx-pair? _%hd5648856725%_) + (let ((_%e5649956663%_ + (gx#syntax-e _%hd5648856725%_))) + (let ((_%tl5650156670%_ (let () (declare (not safe)) - (##cdr _%e5643656600%_))) - (_%hd5643756604%_ + (##cdr _%e5649956663%_))) + (_%hd5650056667%_ (let () (declare (not safe)) - (##car _%e5643656600%_)))) - (if (gx#stx-pair? _%tl5643856607%_) - (let ((_%e5643956610%_ + (##car _%e5649956663%_)))) + (if (gx#stx-pair? _%tl5650156670%_) + (let ((_%e5650256673%_ (gx#syntax-e - _%tl5643856607%_))) - (let ((_%tl5644156617%_ + _%tl5650156670%_))) + (let ((_%tl5650456680%_ (let () (declare (not safe)) - (##cdr _%e5643956610%_))) - (_%hd5644056614%_ + (##cdr _%e5650256673%_))) + (_%hd5650356677%_ (let () (declare (not safe)) - (##car _%e5643956610%_)))) + (##car _%e5650256673%_)))) (if (gx#stx-null? - _%tl5644156617%_) - (_%__match8069780698%_ - _%e5642156648%_ - _%hd5642256652%_ - _%tl5642356655%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_ - _%e5643656600%_ - _%hd5643756604%_ - _%tl5643856607%_ - _%e5643956610%_ - _%hd5644056614%_ - _%tl5644156617%_) - (_%__match8071580716%_ - _%e5642156648%_ - _%hd5642256652%_ - _%tl5642356655%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_ - _%e5643656600%_ - _%hd5643756604%_ - _%tl5643856607%_)))) - (_%__match8071580716%_ - _%e5642156648%_ - _%hd5642256652%_ - _%tl5642356655%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_ - _%e5643656600%_ - _%hd5643756604%_ - _%tl5643856607%_)))) + _%tl5650456680%_) + (_%__match8076080761%_ + _%e5648456711%_ + _%hd5648556715%_ + _%tl5648656718%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_ + _%e5649956663%_ + _%hd5650056667%_ + _%tl5650156670%_ + _%e5650256673%_ + _%hd5650356677%_ + _%tl5650456680%_) + (_%__match8077880779%_ + _%e5648456711%_ + _%hd5648556715%_ + _%tl5648656718%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_ + _%e5649956663%_ + _%hd5650056667%_ + _%tl5650156670%_)))) + (_%__match8077880779%_ + _%e5648456711%_ + _%hd5648556715%_ + _%tl5648656718%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_ + _%e5649956663%_ + _%hd5650056667%_ + _%tl5650156670%_)))) (let () (declare (not safe)) - (_%g5638956515%_))))))) - (_%__match8065980660%_ - (lambda (_%e5641256692%_ - _%hd5641356696%_ - _%tl5641456699%_ - _%e5641556702%_ - _%hd5641656706%_ - _%tl5641756709%_) - (let ((_%L56712%_ _%tl5641456699%_) - (_%L56714%_ _%tl5641756709%_) - (_%L56715%_ _%hd5641656706%_)) - (if (and (gx#identifier? _%L56715%_) + (_%g5645256578%_))))))) + (_%__match8072280723%_ + (lambda (_%e5647556755%_ + _%hd5647656759%_ + _%tl5647756762%_ + _%e5647856765%_ + _%hd5647956769%_ + _%tl5648056772%_) + (let ((_%L56775%_ _%tl5647756762%_) + (_%L56777%_ _%tl5648056772%_) + (_%L56778%_ _%hd5647956769%_)) + (if (and (gx#identifier? _%L56778%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L56714%_)) - (_%__kont8060980610%_ - _%L56712%_ - _%L56714%_ - _%L56715%_) - (if (gx#stx-pair? _%tl5641456699%_) - (let ((_%e5642456658%_ - (gx#syntax-e _%tl5641456699%_))) - (let ((_%tl5642656665%_ + _%L56777%_)) + (_%__kont8067280673%_ + _%L56775%_ + _%L56777%_ + _%L56778%_) + (if (gx#stx-pair? _%tl5647756762%_) + (let ((_%e5648756721%_ + (gx#syntax-e _%tl5647756762%_))) + (let ((_%tl5648956728%_ (let () (declare (not safe)) - (##cdr _%e5642456658%_))) - (_%hd5642556662%_ + (##cdr _%e5648756721%_))) + (_%hd5648856725%_ (let () (declare (not safe)) - (##car _%e5642456658%_)))) - (_%__match8067180672%_ - _%e5641256692%_ - _%hd5641356696%_ - _%tl5641456699%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_))) + (##car _%e5648756721%_)))) + (_%__match8073480735%_ + _%e5647556755%_ + _%hd5647656759%_ + _%tl5647756762%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_))) (let () (declare (not safe)) - (_%g5638956515%_))))))) - (_%__match8064780648%_ - (lambda (_%e5640056736%_ - _%hd5640156740%_ - _%tl5640256743%_ - _%e5640356746%_ - _%hd5640456750%_ - _%tl5640556753%_ - _%e5640656756%_ - _%hd5640756760%_ - _%tl5640856763%_) - (let ((_%L56766%_ _%tl5640256743%_) - (_%L56768%_ _%hd5640456750%_)) - (if (gx#identifier? _%L56768%_) - (_%__kont8060780608%_ _%L56766%_ _%L56768%_) - (_%__match8065980660%_ - _%e5640056736%_ - _%hd5640156740%_ - _%tl5640256743%_ - _%e5640356746%_ - _%hd5640456750%_ - _%tl5640556753%_))))) - (_%__match8062780628%_ - (lambda (_%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_) - (let ((_%L56800%_ _%tl5639756797%_) - (_%L56802%_ _%hd5639656794%_)) - (if (gx#identifier? _%L56802%_) - (_%__kont8060580606%_ _%L56800%_ _%L56802%_) - (if (gx#stx-pair? _%hd5639656794%_) - (let ((_%e5640356746%_ - (gx#syntax-e _%hd5639656794%_))) - (let ((_%tl5640556753%_ + (_%g5645256578%_))))))) + (_%__match8071080711%_ + (lambda (_%e5646356799%_ + _%hd5646456803%_ + _%tl5646556806%_ + _%e5646656809%_ + _%hd5646756813%_ + _%tl5646856816%_ + _%e5646956819%_ + _%hd5647056823%_ + _%tl5647156826%_) + (let ((_%L56829%_ _%tl5646556806%_) + (_%L56831%_ _%hd5646756813%_)) + (if (gx#identifier? _%L56831%_) + (_%__kont8067080671%_ _%L56829%_ _%L56831%_) + (_%__match8072280723%_ + _%e5646356799%_ + _%hd5646456803%_ + _%tl5646556806%_ + _%e5646656809%_ + _%hd5646756813%_ + _%tl5646856816%_))))) + (_%__match8069080691%_ + (lambda (_%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_) + (let ((_%L56863%_ _%tl5646056860%_) + (_%L56865%_ _%hd5645956857%_)) + (if (gx#identifier? _%L56865%_) + (_%__kont8066880669%_ _%L56863%_ _%L56865%_) + (if (gx#stx-pair? _%hd5645956857%_) + (let ((_%e5646656809%_ + (gx#syntax-e _%hd5645956857%_))) + (let ((_%tl5646856816%_ (let () (declare (not safe)) - (##cdr _%e5640356746%_))) - (_%hd5640456750%_ + (##cdr _%e5646656809%_))) + (_%hd5646756813%_ (let () (declare (not safe)) - (##car _%e5640356746%_)))) - (if (gx#stx-pair? _%tl5640556753%_) - (let ((_%e5640656756%_ + (##car _%e5646656809%_)))) + (if (gx#stx-pair? _%tl5646856816%_) + (let ((_%e5646956819%_ (gx#syntax-e - _%tl5640556753%_))) - (let ((_%tl5640856763%_ + _%tl5646856816%_))) + (let ((_%tl5647156826%_ (let () (declare (not safe)) - (##cdr _%e5640656756%_))) - (_%hd5640756760%_ + (##cdr _%e5646956819%_))) + (_%hd5647056823%_ (let () (declare (not safe)) - (##car _%e5640656756%_)))) + (##car _%e5646956819%_)))) (if (gx#stx-null? - _%tl5640856763%_) - (_%__match8064780648%_ - _%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_ - _%e5640356746%_ - _%hd5640456750%_ - _%tl5640556753%_ - _%e5640656756%_ - _%hd5640756760%_ - _%tl5640856763%_) - (_%__match8065980660%_ - _%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_ - _%e5640356746%_ - _%hd5640456750%_ - _%tl5640556753%_)))) - (_%__match8065980660%_ - _%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_ - _%e5640356746%_ - _%hd5640456750%_ - _%tl5640556753%_)))) - (if (gx#stx-pair? _%tl5639756797%_) - (let ((_%e5642456658%_ - (gx#syntax-e _%tl5639756797%_))) - (let ((_%tl5642656665%_ + _%tl5647156826%_) + (_%__match8071080711%_ + _%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_ + _%e5646656809%_ + _%hd5646756813%_ + _%tl5646856816%_ + _%e5646956819%_ + _%hd5647056823%_ + _%tl5647156826%_) + (_%__match8072280723%_ + _%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_ + _%e5646656809%_ + _%hd5646756813%_ + _%tl5646856816%_)))) + (_%__match8072280723%_ + _%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_ + _%e5646656809%_ + _%hd5646756813%_ + _%tl5646856816%_)))) + (if (gx#stx-pair? _%tl5646056860%_) + (let ((_%e5648756721%_ + (gx#syntax-e _%tl5646056860%_))) + (let ((_%tl5648956728%_ (let () (declare (not safe)) - (##cdr _%e5642456658%_))) - (_%hd5642556662%_ + (##cdr _%e5648756721%_))) + (_%hd5648856725%_ (let () (declare (not safe)) - (##car _%e5642456658%_)))) - (_%__match8067180672%_ - _%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_ - _%e5642456658%_ - _%hd5642556662%_ - _%tl5642656665%_))) + (##car _%e5648756721%_)))) + (_%__match8073480735%_ + _%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_ + _%e5648756721%_ + _%hd5648856725%_ + _%tl5648956728%_))) (let () (declare (not safe)) - (_%g5638956515%_))))))))) - (if (gx#stx-pair? _%__stx8060280603%_) - (let ((_%e5639556790%_ - (gx#syntax-e _%__stx8060280603%_))) - (let ((_%tl5639756797%_ + (_%g5645256578%_))))))))) + (if (gx#stx-pair? _%__stx8066580666%_) + (let ((_%e5645856853%_ + (gx#syntax-e _%__stx8066580666%_))) + (let ((_%tl5646056860%_ (let () (declare (not safe)) - (##cdr _%e5639556790%_))) - (_%hd5639656794%_ + (##cdr _%e5645856853%_))) + (_%hd5645956857%_ (let () (declare (not safe)) - (##car _%e5639556790%_)))) - (_%__match8062780628%_ - _%e5639556790%_ - _%hd5639656794%_ - _%tl5639756797%_))) - (let () (declare (not safe)) (_%g5638956515%_)))))))))) + (##car _%e5645856853%_)))) + (_%__match8069080691%_ + _%e5645856853%_ + _%hd5645956857%_ + _%tl5646056860%_))) + (let () (declare (not safe)) (_%g5645256578%_)))))))))) (define |gerbil/core/contract~Interface[1]#make-procedure-contract| - (lambda (_%stx55474%_ _%signature55476%_ _%checked?55477%_) - (letrec ((_%contract-e55479%_ - (lambda (_%id55882%_ _%contract55884%_) - (let* ((_%g5588655894%_ - (lambda (_%g5588755890%_) + (lambda (_%stx55537%_ _%signature55539%_ _%checked?55540%_) + (letrec ((_%contract-e55542%_ + (lambda (_%id55945%_ _%contract55947%_) + (let* ((_%g5594955957%_ + (lambda (_%g5595055953%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g5588755890%_))) - (_%g5588556363%_ - (lambda (_%g5588755898%_) - ((lambda (_%L55901%_) - (let* ((_%__stx8072080721%_ _%contract55884%_) - (_%g5591855997%_ + _%g5595055953%_))) + (_%g5594856426%_ + (lambda (_%g5595055961%_) + ((lambda (_%L55964%_) + (let* ((_%__stx8078380784%_ _%contract55947%_) + (_%g5598156060%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8072080721%_)))) - (let ((_%__kont8072380724%_ - (lambda (_%L56334%_ - _%L56336%_ - _%L56337%_) - (if _%checked?55477%_ - (cons _%L55901%_ - (cons _%L56337%_ - (cons _%L56336%_ + _%__stx8078380784%_)))) + (let ((_%__kont8078680787%_ + (lambda (_%L56397%_ + _%L56399%_ + _%L56400%_) + (if _%checked?55540%_ + (cons _%L55964%_ + (cons _%L56400%_ + (cons _%L56399%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55901%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56336%_ + (cons _%L56399%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8072580726%_ - (lambda (_%L56292%_ _%L56294%_) - (cons _%L55901%_ + (_%__kont8078880789%_ + (lambda (_%L56355%_ _%L56357%_) + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56294%_ + (cons _%L56357%_ '()))))) - (_%__kont8072780728%_ - (lambda (_%L56234%_ - _%L56236%_ - _%L56237%_ - _%L56238%_) - (if _%checked?55477%_ - (cons _%L55901%_ + (_%__kont8079080791%_ + (lambda (_%L56297%_ + _%L56299%_ + _%L56300%_ + _%L56301%_) + (if _%checked?55540%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56238%_ + (cons _%L56301%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56237%_ (cons _%L56236%_ '()))))) + (cons _%L56300%_ (cons _%L56299%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55901%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56236%_ + (cons _%L56299%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8072980730%_ - (lambda (_%L56156%_ - _%L56158%_ - _%L56159%_ - _%L56160%_) - (if _%checked?55477%_ - (cons _%L55901%_ + (_%__kont8079280793%_ + (lambda (_%L56219%_ + _%L56221%_ + _%L56222%_ + _%L56223%_) + (if _%checked?55540%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56160%_ + (cons _%L56223%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L56159%_ (cons _%L56158%_ '()))))) + (cons _%L56222%_ (cons _%L56221%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55901%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L56158%_ + (cons _%L56221%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8073180732%_ - (lambda (_%L56088%_ - _%L56090%_ - _%L56091%_) - (if _%checked?55477%_ - (cons _%L55901%_ + (_%__kont8079480795%_ + (lambda (_%L56151%_ + _%L56153%_ + _%L56154%_) + (if _%checked?55540%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56091%_ + (cons _%L56154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':-) - (cons _%L56090%_ '()))))) + (cons _%L56153%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55901%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L56090%_ + (cons _%L56153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8073380734%_ - (lambda (_%L56024%_ _%L56026%_) - (if _%checked?55477%_ - (cons _%L55901%_ + (_%__kont8079680797%_ + (lambda (_%L56087%_ _%L56089%_) + (if _%checked?55540%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':~) - (cons _%L56026%_ + (cons _%L56089%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L55901%_ + (cons _%L55964%_ (cons (gx#datum->syntax '#f ':-) @@ -3639,1958 +3639,1958 @@ ':t) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match8081980820%_ - (lambda (_%e5595756116%_ - _%hd5595856120%_ - _%tl5595956123%_ - _%e5596056126%_ - _%hd5596156130%_ - _%tl5596256133%_ - _%e5596356136%_ - _%hd5596456140%_ - _%tl5596556143%_ - _%e5596656146%_ - _%hd5596756150%_ - _%tl5596856153%_) - (let ((_%L56156%_ - _%tl5596856153%_) - (_%L56158%_ - _%hd5596756150%_) - (_%L56159%_ - _%hd5596456140%_) - (_%L56160%_ - _%hd5596156130%_)) + (let* ((_%__match8088280883%_ + (lambda (_%e5602056179%_ + _%hd5602156183%_ + _%tl5602256186%_ + _%e5602356189%_ + _%hd5602456193%_ + _%tl5602556196%_ + _%e5602656199%_ + _%hd5602756203%_ + _%tl5602856206%_ + _%e5602956209%_ + _%hd5603056213%_ + _%tl5603156216%_) + (let ((_%L56219%_ + _%tl5603156216%_) + (_%L56221%_ + _%hd5603056213%_) + (_%L56222%_ + _%hd5602756203%_) + (_%L56223%_ + _%hd5602456193%_)) (if (or (gx#free-identifier=? - _%L56159%_ + _%L56222%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56159%_ + _%L56222%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56159%_ + _%L56222%_ (gx#datum->syntax '#f ':?))) - (_%__kont8072980730%_ - _%L56156%_ - _%L56158%_ - _%L56159%_ - _%L56160%_) + (_%__kont8079280793%_ + _%L56219%_ + _%L56221%_ + _%L56222%_ + _%L56223%_) (if (gx#identifier? - _%hd5596456140%_) + _%hd5602756203%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84107_| - _%hd5596456140%_) - (_%__kont8073180732%_ - _%tl5596856153%_ - _%hd5596756150%_ - _%hd5596156130%_) - (_%__kont8073380734%_ - _%tl5596256133%_ - _%hd5596156130%_)) - (_%__kont8073380734%_ - _%tl5596256133%_ - _%hd5596156130%_)))))) - (_%__match8079180792%_ - (lambda (_%e5594156194%_ - _%hd5594256198%_ - _%tl5594356201%_ - _%e5594456204%_ - _%hd5594556208%_ - _%tl5594656211%_ - _%e5594756214%_ - _%hd5594856218%_ - _%tl5594956221%_ - _%e5595056224%_ - _%hd5595156228%_ - _%tl5595256231%_) - (let ((_%L56234%_ - _%tl5595256231%_) - (_%L56236%_ - _%hd5595156228%_) - (_%L56237%_ - _%hd5594856218%_) - (_%L56238%_ - _%hd5594556208%_)) + |gerbil/core/contract~Interface[1]#_g84170_| + _%hd5602756203%_) + (_%__kont8079480795%_ + _%tl5603156216%_ + _%hd5603056213%_ + _%hd5602456193%_) + (_%__kont8079680797%_ + _%tl5602556196%_ + _%hd5602456193%_)) + (_%__kont8079680797%_ + _%tl5602556196%_ + _%hd5602456193%_)))))) + (_%__match8085480855%_ + (lambda (_%e5600456257%_ + _%hd5600556261%_ + _%tl5600656264%_ + _%e5600756267%_ + _%hd5600856271%_ + _%tl5600956274%_ + _%e5601056277%_ + _%hd5601156281%_ + _%tl5601256284%_ + _%e5601356287%_ + _%hd5601456291%_ + _%tl5601556294%_) + (let ((_%L56297%_ + _%tl5601556294%_) + (_%L56299%_ + _%hd5601456291%_) + (_%L56300%_ + _%hd5601156281%_) + (_%L56301%_ + _%hd5600856271%_)) (if (or (gx#free-identifier=? - _%L56237%_ + _%L56300%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56237%_ + _%L56300%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56237%_ + _%L56300%_ (gx#datum->syntax '#f ':?))) - (_%__kont8072780728%_ - _%L56234%_ - _%L56236%_ - _%L56237%_ - _%L56238%_) - (_%__match8081980820%_ - _%e5594156194%_ - _%hd5594256198%_ - _%tl5594356201%_ - _%e5594456204%_ - _%hd5594556208%_ - _%tl5594656211%_ - _%e5594756214%_ - _%hd5594856218%_ - _%tl5594956221%_ - _%e5595056224%_ - _%hd5595156228%_ - _%tl5595256231%_))))) - (_%__match8074780748%_ - (lambda (_%e5592356314%_ - _%hd5592456318%_ - _%tl5592556321%_ - _%e5592656324%_ - _%hd5592756328%_ - _%tl5592856331%_) - (let ((_%L56334%_ - _%tl5592856331%_) - (_%L56336%_ - _%hd5592756328%_) - (_%L56337%_ - _%hd5592456318%_)) + (_%__kont8079080791%_ + _%L56297%_ + _%L56299%_ + _%L56300%_ + _%L56301%_) + (_%__match8088280883%_ + _%e5600456257%_ + _%hd5600556261%_ + _%tl5600656264%_ + _%e5600756267%_ + _%hd5600856271%_ + _%tl5600956274%_ + _%e5601056277%_ + _%hd5601156281%_ + _%tl5601256284%_ + _%e5601356287%_ + _%hd5601456291%_ + _%tl5601556294%_))))) + (_%__match8081080811%_ + (lambda (_%e5598656377%_ + _%hd5598756381%_ + _%tl5598856384%_ + _%e5598956387%_ + _%hd5599056391%_ + _%tl5599156394%_) + (let ((_%L56397%_ + _%tl5599156394%_) + (_%L56399%_ + _%hd5599056391%_) + (_%L56400%_ + _%hd5598756381%_)) (if (or (gx#free-identifier=? - _%L56337%_ + _%L56400%_ (gx#datum->syntax '#f '::-)) (gx#free-identifier=? - _%L56337%_ + _%L56400%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L56337%_ + _%L56400%_ (gx#datum->syntax '#f ':?))) - (_%__kont8072380724%_ - _%L56334%_ - _%L56336%_ - _%L56337%_) + (_%__kont8078680787%_ + _%L56397%_ + _%L56399%_ + _%L56400%_) (if (gx#identifier? - _%hd5592456318%_) + _%hd5598756381%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84108_| - _%hd5592456318%_) - (_%__kont8072580726%_ - _%tl5592856331%_ - _%hd5592756328%_) + |gerbil/core/contract~Interface[1]#_g84171_| + _%hd5598756381%_) + (_%__kont8078880789%_ + _%tl5599156394%_ + _%hd5599056391%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/contract~Interface[1]#_g84109_| - _%hd5592456318%_) - (if (gx#stx-pair? _%tl5592856331%_) - (let ((_%e5594756214%_ - (gx#syntax-e _%tl5592856331%_))) - (let ((_%tl5594956221%_ + |gerbil/core/contract~Interface[1]#_g84172_| + _%hd5598756381%_) + (if (gx#stx-pair? _%tl5599156394%_) + (let ((_%e5601056277%_ + (gx#syntax-e _%tl5599156394%_))) + (let ((_%tl5601256284%_ (let () (declare (not safe)) - (##cdr _%e5594756214%_))) - (_%hd5594856218%_ + (##cdr _%e5601056277%_))) + (_%hd5601156281%_ (let () (declare (not safe)) - (##car _%e5594756214%_)))) - (if (gx#stx-pair? _%tl5594956221%_) - (let ((_%e5595056224%_ - (gx#syntax-e _%tl5594956221%_))) - (let ((_%tl5595256231%_ + (##car _%e5601056277%_)))) + (if (gx#stx-pair? _%tl5601256284%_) + (let ((_%e5601356287%_ + (gx#syntax-e _%tl5601256284%_))) + (let ((_%tl5601556294%_ (let () (declare (not safe)) - (##cdr _%e5595056224%_))) - (_%hd5595156228%_ + (##cdr _%e5601356287%_))) + (_%hd5601456291%_ (let () (declare (not safe)) - (##car _%e5595056224%_)))) - (_%__match8079180792%_ - _%e5592356314%_ - _%hd5592456318%_ - _%tl5592556321%_ - _%e5592656324%_ - _%hd5592756328%_ - _%tl5592856331%_ - _%e5594756214%_ - _%hd5594856218%_ - _%tl5594956221%_ - _%e5595056224%_ - _%hd5595156228%_ - _%tl5595256231%_))) - (_%__kont8073380734%_ - _%tl5592856331%_ - _%hd5592756328%_)))) - (_%__kont8073380734%_ - _%tl5592856331%_ - _%hd5592756328%_)) - (let () (declare (not safe)) (_%g5591855997%_)))) - (let () (declare (not safe)) (_%g5591855997%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8072080721%_) - (let ((_%e5592356314%_ + (##car _%e5601356287%_)))) + (_%__match8085480855%_ + _%e5598656377%_ + _%hd5598756381%_ + _%tl5598856384%_ + _%e5598956387%_ + _%hd5599056391%_ + _%tl5599156394%_ + _%e5601056277%_ + _%hd5601156281%_ + _%tl5601256284%_ + _%e5601356287%_ + _%hd5601456291%_ + _%tl5601556294%_))) + (_%__kont8079680797%_ + _%tl5599156394%_ + _%hd5599056391%_)))) + (_%__kont8079680797%_ + _%tl5599156394%_ + _%hd5599056391%_)) + (let () (declare (not safe)) (_%g5598156060%_)))) + (let () (declare (not safe)) (_%g5598156060%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8078380784%_) + (let ((_%e5598656377%_ (gx#syntax-e - _%__stx8072080721%_))) - (let ((_%tl5592556321%_ + _%__stx8078380784%_))) + (let ((_%tl5598856384%_ (let () (declare (not safe)) - (##cdr _%e5592356314%_))) - (_%hd5592456318%_ + (##cdr _%e5598656377%_))) + (_%hd5598756381%_ (let () (declare (not safe)) - (##car _%e5592356314%_)))) + (##car _%e5598656377%_)))) (if (gx#stx-pair? - _%tl5592556321%_) - (let ((_%e5592656324%_ + _%tl5598856384%_) + (let ((_%e5598956387%_ (gx#syntax-e - _%tl5592556321%_))) - (let ((_%tl5592856331%_ + _%tl5598856384%_))) + (let ((_%tl5599156394%_ (let () (declare (not safe)) - (##cdr _%e5592656324%_))) - (_%hd5592756328%_ + (##cdr _%e5598956387%_))) + (_%hd5599056391%_ (let () (declare (not safe)) - (##car _%e5592656324%_)))) - (_%__match8074780748%_ - _%e5592356314%_ - _%hd5592456318%_ - _%tl5592556321%_ - _%e5592656324%_ - _%hd5592756328%_ - _%tl5592856331%_))) + (##car _%e5598956387%_)))) + (_%__match8081080811%_ + _%e5598656377%_ + _%hd5598756381%_ + _%tl5598856384%_ + _%e5598956387%_ + _%hd5599056391%_ + _%tl5599156394%_))) (let () (declare (not safe)) - (_%g5591855997%_))))) + (_%g5598156060%_))))) (let () (declare (not safe)) - (_%g5591855997%_))))))) - _%g5588755898%_)))) - (_%g5588556363%_ _%id55882%_))))) - (let _%loop55482%_ ((_%rest55485%_ _%signature55476%_) - (_%result55487%_ '())) - (let* ((_%__stx8087080871%_ _%rest55485%_) - (_%g5549555564%_ + (_%g5598156060%_))))))) + _%g5595055961%_)))) + (_%g5594856426%_ _%id55945%_))))) + (let _%loop55545%_ ((_%rest55548%_ _%signature55539%_) + (_%result55550%_ '())) + (let* ((_%__stx8093380934%_ _%rest55548%_) + (_%g5555855627%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8087080871%_)))) - (let ((_%__kont8087380874%_ - (lambda (_%L55865%_ _%L55867%_) - (_%loop55482%_ _%L55865%_ _%result55487%_))) - (_%__kont8087580876%_ - (lambda (_%L55831%_ _%L55833%_) - (_%loop55482%_ _%L55831%_ _%result55487%_))) - (_%__kont8087780878%_ - (lambda (_%L55777%_ _%L55779%_ _%L55780%_) - (_%loop55482%_ - _%L55777%_ - (cons (_%contract-e55479%_ _%L55780%_ _%L55779%_) - _%result55487%_)))) - (_%__kont8087980880%_ - (lambda (_%L55733%_ _%L55735%_ _%L55736%_) - (_%loop55482%_ _%L55733%_ _%result55487%_))) - (_%__kont8088180882%_ - (lambda (_%L55685%_ _%L55687%_ _%L55688%_) - (_%loop55482%_ _%L55685%_ _%result55487%_))) - (_%__kont8088380884%_ - (lambda (_%L55612%_ _%L55614%_ _%L55615%_ _%L55616%_) - (_%loop55482%_ - _%L55612%_ - (cons (_%contract-e55479%_ _%L55615%_ _%L55614%_) - _%result55487%_)))) - (_%__kont8088580886%_ - (lambda () (reverse! (filter identity _%result55487%_))))) - (let* ((_%__match8098180982%_ - (lambda (_%e5555055582%_ - _%hd5555155586%_ - _%tl5555255589%_ - _%e5555355592%_ - _%hd5555455596%_ - _%tl5555555599%_ - _%e5555655602%_ - _%hd5555755606%_ - _%tl5555855609%_) - (let ((_%L55612%_ _%tl5555555599%_) - (_%L55614%_ _%tl5555855609%_) - (_%L55615%_ _%hd5555755606%_) - (_%L55616%_ _%hd5555155586%_)) - (if (and (gx#stx-keyword? _%L55616%_) - (gx#identifier? _%L55615%_) + _%__stx8093380934%_)))) + (let ((_%__kont8093680937%_ + (lambda (_%L55928%_ _%L55930%_) + (_%loop55545%_ _%L55928%_ _%result55550%_))) + (_%__kont8093880939%_ + (lambda (_%L55894%_ _%L55896%_) + (_%loop55545%_ _%L55894%_ _%result55550%_))) + (_%__kont8094080941%_ + (lambda (_%L55840%_ _%L55842%_ _%L55843%_) + (_%loop55545%_ + _%L55840%_ + (cons (_%contract-e55542%_ _%L55843%_ _%L55842%_) + _%result55550%_)))) + (_%__kont8094280943%_ + (lambda (_%L55796%_ _%L55798%_ _%L55799%_) + (_%loop55545%_ _%L55796%_ _%result55550%_))) + (_%__kont8094480945%_ + (lambda (_%L55748%_ _%L55750%_ _%L55751%_) + (_%loop55545%_ _%L55748%_ _%result55550%_))) + (_%__kont8094680947%_ + (lambda (_%L55675%_ _%L55677%_ _%L55678%_ _%L55679%_) + (_%loop55545%_ + _%L55675%_ + (cons (_%contract-e55542%_ _%L55678%_ _%L55677%_) + _%result55550%_)))) + (_%__kont8094880949%_ + (lambda () (reverse! (filter identity _%result55550%_))))) + (let* ((_%__match8104481045%_ + (lambda (_%e5561355645%_ + _%hd5561455649%_ + _%tl5561555652%_ + _%e5561655655%_ + _%hd5561755659%_ + _%tl5561855662%_ + _%e5561955665%_ + _%hd5562055669%_ + _%tl5562155672%_) + (let ((_%L55675%_ _%tl5561855662%_) + (_%L55677%_ _%tl5562155672%_) + (_%L55678%_ _%hd5562055669%_) + (_%L55679%_ _%hd5561455649%_)) + (if (and (gx#stx-keyword? _%L55679%_) + (gx#identifier? _%L55678%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55614%_)) - (_%__kont8088380884%_ - _%L55612%_ - _%L55614%_ - _%L55615%_ - _%L55616%_) - (_%__kont8088580886%_))))) - (_%__match8096380964%_ - (lambda (_%e5553455645%_ - _%hd5553555649%_ - _%tl5553655652%_ - _%e5553755655%_ - _%hd5553855659%_ - _%tl5553955662%_ - _%e5554055665%_ - _%hd5554155669%_ - _%tl5554255672%_ - _%e5554355675%_ - _%hd5554455679%_ - _%tl5554555682%_) - (let ((_%L55685%_ _%tl5553955662%_) - (_%L55687%_ _%hd5554155669%_) - (_%L55688%_ _%hd5553555649%_)) - (if (and (gx#stx-keyword? _%L55688%_) - (gx#identifier? _%L55687%_)) - (_%__kont8088180882%_ - _%L55685%_ - _%L55687%_ - _%L55688%_) - (_%__match8098180982%_ - _%e5553455645%_ - _%hd5553555649%_ - _%tl5553655652%_ - _%e5553755655%_ - _%hd5553855659%_ - _%tl5553955662%_ - _%e5554055665%_ - _%hd5554155669%_ - _%tl5554255672%_))))) - (_%__match8093780938%_ - (lambda (_%e5552555713%_ - _%hd5552655717%_ - _%tl5552755720%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_) - (let ((_%L55733%_ _%tl5553055730%_) - (_%L55735%_ _%hd5552955727%_) - (_%L55736%_ _%hd5552655717%_)) - (if (and (gx#stx-keyword? _%L55736%_) - (gx#identifier? _%L55735%_)) - (_%__kont8087980880%_ - _%L55733%_ - _%L55735%_ - _%L55736%_) - (if (gx#stx-pair? _%hd5552955727%_) - (let ((_%e5554055665%_ - (gx#syntax-e _%hd5552955727%_))) - (let ((_%tl5554255672%_ + _%L55677%_)) + (_%__kont8094680947%_ + _%L55675%_ + _%L55677%_ + _%L55678%_ + _%L55679%_) + (_%__kont8094880949%_))))) + (_%__match8102681027%_ + (lambda (_%e5559755708%_ + _%hd5559855712%_ + _%tl5559955715%_ + _%e5560055718%_ + _%hd5560155722%_ + _%tl5560255725%_ + _%e5560355728%_ + _%hd5560455732%_ + _%tl5560555735%_ + _%e5560655738%_ + _%hd5560755742%_ + _%tl5560855745%_) + (let ((_%L55748%_ _%tl5560255725%_) + (_%L55750%_ _%hd5560455732%_) + (_%L55751%_ _%hd5559855712%_)) + (if (and (gx#stx-keyword? _%L55751%_) + (gx#identifier? _%L55750%_)) + (_%__kont8094480945%_ + _%L55748%_ + _%L55750%_ + _%L55751%_) + (_%__match8104481045%_ + _%e5559755708%_ + _%hd5559855712%_ + _%tl5559955715%_ + _%e5560055718%_ + _%hd5560155722%_ + _%tl5560255725%_ + _%e5560355728%_ + _%hd5560455732%_ + _%tl5560555735%_))))) + (_%__match8100081001%_ + (lambda (_%e5558855776%_ + _%hd5558955780%_ + _%tl5559055783%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_) + (let ((_%L55796%_ _%tl5559355793%_) + (_%L55798%_ _%hd5559255790%_) + (_%L55799%_ _%hd5558955780%_)) + (if (and (gx#stx-keyword? _%L55799%_) + (gx#identifier? _%L55798%_)) + (_%__kont8094280943%_ + _%L55796%_ + _%L55798%_ + _%L55799%_) + (if (gx#stx-pair? _%hd5559255790%_) + (let ((_%e5560355728%_ + (gx#syntax-e _%hd5559255790%_))) + (let ((_%tl5560555735%_ (let () (declare (not safe)) - (##cdr _%e5554055665%_))) - (_%hd5554155669%_ + (##cdr _%e5560355728%_))) + (_%hd5560455732%_ (let () (declare (not safe)) - (##car _%e5554055665%_)))) - (if (gx#stx-pair? _%tl5554255672%_) - (let ((_%e5554355675%_ + (##car _%e5560355728%_)))) + (if (gx#stx-pair? _%tl5560555735%_) + (let ((_%e5560655738%_ (gx#syntax-e - _%tl5554255672%_))) - (let ((_%tl5554555682%_ + _%tl5560555735%_))) + (let ((_%tl5560855745%_ (let () (declare (not safe)) - (##cdr _%e5554355675%_))) - (_%hd5554455679%_ + (##cdr _%e5560655738%_))) + (_%hd5560755742%_ (let () (declare (not safe)) - (##car _%e5554355675%_)))) + (##car _%e5560655738%_)))) (if (gx#stx-null? - _%tl5554555682%_) - (_%__match8096380964%_ - _%e5552555713%_ - _%hd5552655717%_ - _%tl5552755720%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_ - _%e5554055665%_ - _%hd5554155669%_ - _%tl5554255672%_ - _%e5554355675%_ - _%hd5554455679%_ - _%tl5554555682%_) - (_%__match8098180982%_ - _%e5552555713%_ - _%hd5552655717%_ - _%tl5552755720%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_ - _%e5554055665%_ - _%hd5554155669%_ - _%tl5554255672%_)))) - (_%__match8098180982%_ - _%e5552555713%_ - _%hd5552655717%_ - _%tl5552755720%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_ - _%e5554055665%_ - _%hd5554155669%_ - _%tl5554255672%_)))) - (_%__kont8088580886%_)))))) - (_%__match8092580926%_ - (lambda (_%e5551655757%_ - _%hd5551755761%_ - _%tl5551855764%_ - _%e5551955767%_ - _%hd5552055771%_ - _%tl5552155774%_) - (let ((_%L55777%_ _%tl5551855764%_) - (_%L55779%_ _%tl5552155774%_) - (_%L55780%_ _%hd5552055771%_)) - (if (and (gx#identifier? _%L55780%_) + _%tl5560855745%_) + (_%__match8102681027%_ + _%e5558855776%_ + _%hd5558955780%_ + _%tl5559055783%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_ + _%e5560355728%_ + _%hd5560455732%_ + _%tl5560555735%_ + _%e5560655738%_ + _%hd5560755742%_ + _%tl5560855745%_) + (_%__match8104481045%_ + _%e5558855776%_ + _%hd5558955780%_ + _%tl5559055783%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_ + _%e5560355728%_ + _%hd5560455732%_ + _%tl5560555735%_)))) + (_%__match8104481045%_ + _%e5558855776%_ + _%hd5558955780%_ + _%tl5559055783%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_ + _%e5560355728%_ + _%hd5560455732%_ + _%tl5560555735%_)))) + (_%__kont8094880949%_)))))) + (_%__match8098880989%_ + (lambda (_%e5557955820%_ + _%hd5558055824%_ + _%tl5558155827%_ + _%e5558255830%_ + _%hd5558355834%_ + _%tl5558455837%_) + (let ((_%L55840%_ _%tl5558155827%_) + (_%L55842%_ _%tl5558455837%_) + (_%L55843%_ _%hd5558355834%_)) + (if (and (gx#identifier? _%L55843%_) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L55779%_)) - (_%__kont8087780878%_ - _%L55777%_ - _%L55779%_ - _%L55780%_) - (if (gx#stx-pair? _%tl5551855764%_) - (let ((_%e5552855723%_ - (gx#syntax-e _%tl5551855764%_))) - (let ((_%tl5553055730%_ + _%L55842%_)) + (_%__kont8094080941%_ + _%L55840%_ + _%L55842%_ + _%L55843%_) + (if (gx#stx-pair? _%tl5558155827%_) + (let ((_%e5559155786%_ + (gx#syntax-e _%tl5558155827%_))) + (let ((_%tl5559355793%_ (let () (declare (not safe)) - (##cdr _%e5552855723%_))) - (_%hd5552955727%_ + (##cdr _%e5559155786%_))) + (_%hd5559255790%_ (let () (declare (not safe)) - (##car _%e5552855723%_)))) - (_%__match8093780938%_ - _%e5551655757%_ - _%hd5551755761%_ - _%tl5551855764%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_))) - (_%__kont8088580886%_)))))) - (_%__match8091380914%_ - (lambda (_%e5550455801%_ - _%hd5550555805%_ - _%tl5550655808%_ - _%e5550755811%_ - _%hd5550855815%_ - _%tl5550955818%_ - _%e5551055821%_ - _%hd5551155825%_ - _%tl5551255828%_) - (let ((_%L55831%_ _%tl5550655808%_) - (_%L55833%_ _%hd5550855815%_)) - (if (gx#identifier? _%L55833%_) - (_%__kont8087580876%_ _%L55831%_ _%L55833%_) - (_%__match8092580926%_ - _%e5550455801%_ - _%hd5550555805%_ - _%tl5550655808%_ - _%e5550755811%_ - _%hd5550855815%_ - _%tl5550955818%_))))) - (_%__match8089380894%_ - (lambda (_%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_) - (let ((_%L55865%_ _%tl5550155862%_) - (_%L55867%_ _%hd5550055859%_)) - (if (gx#identifier? _%L55867%_) - (_%__kont8087380874%_ _%L55865%_ _%L55867%_) - (if (gx#stx-pair? _%hd5550055859%_) - (let ((_%e5550755811%_ - (gx#syntax-e _%hd5550055859%_))) - (let ((_%tl5550955818%_ + (##car _%e5559155786%_)))) + (_%__match8100081001%_ + _%e5557955820%_ + _%hd5558055824%_ + _%tl5558155827%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_))) + (_%__kont8094880949%_)))))) + (_%__match8097680977%_ + (lambda (_%e5556755864%_ + _%hd5556855868%_ + _%tl5556955871%_ + _%e5557055874%_ + _%hd5557155878%_ + _%tl5557255881%_ + _%e5557355884%_ + _%hd5557455888%_ + _%tl5557555891%_) + (let ((_%L55894%_ _%tl5556955871%_) + (_%L55896%_ _%hd5557155878%_)) + (if (gx#identifier? _%L55896%_) + (_%__kont8093880939%_ _%L55894%_ _%L55896%_) + (_%__match8098880989%_ + _%e5556755864%_ + _%hd5556855868%_ + _%tl5556955871%_ + _%e5557055874%_ + _%hd5557155878%_ + _%tl5557255881%_))))) + (_%__match8095680957%_ + (lambda (_%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_) + (let ((_%L55928%_ _%tl5556455925%_) + (_%L55930%_ _%hd5556355922%_)) + (if (gx#identifier? _%L55930%_) + (_%__kont8093680937%_ _%L55928%_ _%L55930%_) + (if (gx#stx-pair? _%hd5556355922%_) + (let ((_%e5557055874%_ + (gx#syntax-e _%hd5556355922%_))) + (let ((_%tl5557255881%_ (let () (declare (not safe)) - (##cdr _%e5550755811%_))) - (_%hd5550855815%_ + (##cdr _%e5557055874%_))) + (_%hd5557155878%_ (let () (declare (not safe)) - (##car _%e5550755811%_)))) - (if (gx#stx-pair? _%tl5550955818%_) - (let ((_%e5551055821%_ + (##car _%e5557055874%_)))) + (if (gx#stx-pair? _%tl5557255881%_) + (let ((_%e5557355884%_ (gx#syntax-e - _%tl5550955818%_))) - (let ((_%tl5551255828%_ + _%tl5557255881%_))) + (let ((_%tl5557555891%_ (let () (declare (not safe)) - (##cdr _%e5551055821%_))) - (_%hd5551155825%_ + (##cdr _%e5557355884%_))) + (_%hd5557455888%_ (let () (declare (not safe)) - (##car _%e5551055821%_)))) + (##car _%e5557355884%_)))) (if (gx#stx-null? - _%tl5551255828%_) - (_%__match8091380914%_ - _%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_ - _%e5550755811%_ - _%hd5550855815%_ - _%tl5550955818%_ - _%e5551055821%_ - _%hd5551155825%_ - _%tl5551255828%_) - (_%__match8092580926%_ - _%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_ - _%e5550755811%_ - _%hd5550855815%_ - _%tl5550955818%_)))) - (_%__match8092580926%_ - _%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_ - _%e5550755811%_ - _%hd5550855815%_ - _%tl5550955818%_)))) - (if (gx#stx-pair? _%tl5550155862%_) - (let ((_%e5552855723%_ - (gx#syntax-e _%tl5550155862%_))) - (let ((_%tl5553055730%_ + _%tl5557555891%_) + (_%__match8097680977%_ + _%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_ + _%e5557055874%_ + _%hd5557155878%_ + _%tl5557255881%_ + _%e5557355884%_ + _%hd5557455888%_ + _%tl5557555891%_) + (_%__match8098880989%_ + _%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_ + _%e5557055874%_ + _%hd5557155878%_ + _%tl5557255881%_)))) + (_%__match8098880989%_ + _%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_ + _%e5557055874%_ + _%hd5557155878%_ + _%tl5557255881%_)))) + (if (gx#stx-pair? _%tl5556455925%_) + (let ((_%e5559155786%_ + (gx#syntax-e _%tl5556455925%_))) + (let ((_%tl5559355793%_ (let () (declare (not safe)) - (##cdr _%e5552855723%_))) - (_%hd5552955727%_ + (##cdr _%e5559155786%_))) + (_%hd5559255790%_ (let () (declare (not safe)) - (##car _%e5552855723%_)))) - (_%__match8093780938%_ - _%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_ - _%e5552855723%_ - _%hd5552955727%_ - _%tl5553055730%_))) - (_%__kont8088580886%_)))))))) - (if (gx#stx-pair? _%__stx8087080871%_) - (let ((_%e5549955855%_ - (gx#syntax-e _%__stx8087080871%_))) - (let ((_%tl5550155862%_ + (##car _%e5559155786%_)))) + (_%__match8100081001%_ + _%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_ + _%e5559155786%_ + _%hd5559255790%_ + _%tl5559355793%_))) + (_%__kont8094880949%_)))))))) + (if (gx#stx-pair? _%__stx8093380934%_) + (let ((_%e5556255918%_ + (gx#syntax-e _%__stx8093380934%_))) + (let ((_%tl5556455925%_ (let () (declare (not safe)) - (##cdr _%e5549955855%_))) - (_%hd5550055859%_ + (##cdr _%e5556255918%_))) + (_%hd5556355922%_ (let () (declare (not safe)) - (##car _%e5549955855%_)))) - (_%__match8089380894%_ - _%e5549955855%_ - _%hd5550055859%_ - _%tl5550155862%_))) - (_%__kont8088580886%_))))))))) + (##car _%e5556255918%_)))) + (_%__match8095680957%_ + _%e5556255918%_ + _%hd5556355922%_ + _%tl5556455925%_))) + (_%__kont8094880949%_))))))))) (define |gerbil/core/contract~Interface[1]#compatible-signatures?| - (lambda (_%left55431%_ _%right55433%_) - (let ((_%left55435%_ (gx#syntax->list _%left55431%_)) - (_%right55437%_ (gx#syntax->list _%right55433%_))) - (let ((_%left-args55439%_ (cadr _%left55435%_)) - (_%left-return55441%_ (caddr _%left55435%_)) - (_%right-args55442%_ (cadr _%right55437%_)) - (_%right-return55443%_ (caddr _%right55437%_))) - (let ((__tmp84110 - (lambda (_%return55445%_) - (let ((_%left-arity55448%_ + (lambda (_%left55494%_ _%right55496%_) + (let ((_%left55498%_ (gx#syntax->list _%left55494%_)) + (_%right55500%_ (gx#syntax->list _%right55496%_))) + (let ((_%left-args55502%_ (cadr _%left55498%_)) + (_%left-return55504%_ (caddr _%left55498%_)) + (_%right-args55505%_ (cadr _%right55500%_)) + (_%right-return55506%_ (caddr _%right55500%_))) + (let ((__tmp84173 + (lambda (_%return55508%_) + (let ((_%left-arity55511%_ (|gerbil/core/contract~Interface[1]#signature-arity| - _%left-args55439%_)) - (_%right-arity55450%_ + _%left-args55502%_)) + (_%right-arity55513%_ (|gerbil/core/contract~Interface[1]#signature-arity| - _%right-args55442%_))) - (if (equal? _%left-arity55448%_ _%right-arity55450%_) + _%right-args55505%_))) + (if (equal? _%left-arity55511%_ _%right-arity55513%_) '#!void - (_%return55445%_ '#f))) - (let ((_%left-kws55452%_ + (_%return55508%_ '#f))) + (let ((_%left-kws55515%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%left-args55439%_)) - (_%right-kws55454%_ + _%left-args55502%_)) + (_%right-kws55517%_ (|gerbil/core/contract~Interface[1]#signature-keywords| - _%right-args55442%_))) - (if (equal? _%left-kws55452%_ _%right-kws55454%_) + _%right-args55505%_))) + (if (equal? _%left-kws55515%_ _%right-kws55517%_) '#!void - (_%return55445%_ '#f))) - (let ((_g84111_ + (_%return55508%_ '#f))) + (let ((_g84174_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%left-args55439%_)) - (_g84113_ + _%left-args55502%_)) + (_g84176_ (|gerbil/core/contract~Interface[1]#signature-type-contract| - _%right-args55442%_))) + _%right-args55505%_))) (begin - (let ((_g84112_ + (let ((_g84175_ (let () (declare (not safe)) - (if (##values? _g84111_) - (##vector-length _g84111_) + (if (##values? _g84174_) + (##values-length _g84174_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84112_ 2))) - (error "Context expects 2 values" _g84112_))) - (let ((_g84114_ + (##fx= _g84175_ 2))) + (error "Context expects 2 values" _g84175_))) + (let ((_g84177_ (let () (declare (not safe)) - (if (##values? _g84113_) - (##vector-length _g84113_) + (if (##values? _g84176_) + (##values-length _g84176_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84114_ 2))) - (error "Context expects 2 values" _g84114_))) - (let ((_%left-positional-contract55456%_ + (##fx= _g84177_ 2))) + (error "Context expects 2 values" _g84177_))) + (let ((_%left-positional-contract55519%_ (let () (declare (not safe)) - (##vector-ref _g84111_ 0))) - (_%left-kw-contract55458%_ + (##values-ref _g84174_ 0))) + (_%left-kw-contract55521%_ (let () (declare (not safe)) - (##vector-ref _g84111_ 1)))) - (let ((_%right-positional-contract55459%_ + (##values-ref _g84174_ 1)))) + (let ((_%right-positional-contract55522%_ (let () (declare (not safe)) - (##vector-ref _g84113_ 0))) - (_%right-kw-contract55460%_ + (##values-ref _g84176_ 0))) + (_%right-kw-contract55523%_ (let () (declare (not safe)) - (##vector-ref _g84113_ 1)))) - (let ((_%left-contract55470%_ - (append _%left-positional-contract55456%_ - (foldr (lambda (_%kwc55462%_ - _%r55464%_) - (cons (cdr _%kwc55462%_) - _%r55464%_)) + (##values-ref _g84176_ 1)))) + (let ((_%left-contract55533%_ + (append _%left-positional-contract55519%_ + (foldr (lambda (_%kwc55525%_ + _%r55527%_) + (cons (cdr _%kwc55525%_) + _%r55527%_)) '() - _%left-kw-contract55458%_))) - (_%right-contract55472%_ - (append _%right-positional-contract55459%_ - (foldr (lambda (_%kwc55466%_ - _%r55468%_) - (cons (cdr _%kwc55466%_) - _%r55468%_)) + _%left-kw-contract55521%_))) + (_%right-contract55535%_ + (append _%right-positional-contract55522%_ + (foldr (lambda (_%kwc55529%_ + _%r55531%_) + (cons (cdr _%kwc55529%_) + _%r55531%_)) '() - _%right-kw-contract55460%_)))) + _%right-kw-contract55523%_)))) (if (|gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - _%left-contract55470%_ - _%right-contract55472%_) + _%left-contract55533%_ + _%right-contract55535%_) '#!void - (_%return55445%_ '#f))))))) + (_%return55508%_ '#f))))))) (if (gx#free-identifier=? (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%left55435%_ - _%left-return55441%_)) + _%left55498%_ + _%left-return55504%_)) (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->identifier| - _%right55437%_ - _%right-return55443%_))) + _%right55500%_ + _%right-return55506%_))) '#!void - (_%return55445%_ '#f)) + (_%return55508%_ '#f)) '#t))) (declare (not safe)) - (##call-with-current-continuation __tmp84110)))))) + (##call-with-current-continuation __tmp84173)))))) (define |gerbil/core/contract~Interface[1]#compatible-signature-type-contract?| - (lambda (_%left55334%_ _%right55336%_) - (let _%loop55338%_ ((_%left-rest55341%_ _%left55334%_) - (_%right-rest55343%_ _%right55336%_)) - (let* ((_%left-rest5534455352%_ _%left-rest55341%_) - (_%else5534655364%_ (lambda () (null? _%right-rest55343%_))) - (_%K5534855415%_ - (lambda (_%left-rest55368%_ _%left55370%_) - (let* ((_%right-rest5537155379%_ _%right-rest55343%_) - (_%else5537355391%_ (lambda () '#f)) - (_%K5537555399%_ - (lambda (_%right-rest55395%_ _%right55397%_) + (lambda (_%left55397%_ _%right55399%_) + (let _%loop55401%_ ((_%left-rest55404%_ _%left55397%_) + (_%right-rest55406%_ _%right55399%_)) + (let* ((_%left-rest5540755415%_ _%left-rest55404%_) + (_%else5540955427%_ (lambda () (null? _%right-rest55406%_))) + (_%K5541155478%_ + (lambda (_%left-rest55431%_ _%left55433%_) + (let* ((_%right-rest5543455442%_ _%right-rest55406%_) + (_%else5543655454%_ (lambda () '#f)) + (_%K5543855462%_ + (lambda (_%right-rest55458%_ _%right55460%_) (if (|gerbil/core/contract~Interface[1]#compatible-type-contract?| - _%left55370%_ - _%right55397%_) - (_%loop55338%_ - _%left-rest55368%_ - _%right-rest55395%_) + _%left55433%_ + _%right55460%_) + (_%loop55401%_ + _%left-rest55431%_ + _%right-rest55458%_) '#f)))) - (if (pair? _%right-rest5537155379%_) - (let ((_%hd5537655403%_ + (if (pair? _%right-rest5543455442%_) + (let ((_%hd5543955466%_ (let () (declare (not safe)) - (##car _%right-rest5537155379%_))) - (_%tl5537755406%_ + (##car _%right-rest5543455442%_))) + (_%tl5544055469%_ (let () (declare (not safe)) - (##cdr _%right-rest5537155379%_)))) - (let* ((_%right55409%_ _%hd5537655403%_) - (_%right-rest55412%_ _%tl5537755406%_)) - (_%K5537555399%_ - _%right-rest55412%_ - _%right55409%_))) - (_%else5537355391%_)))))) - (if (pair? _%left-rest5534455352%_) - (let ((_%hd5534955419%_ + (##cdr _%right-rest5543455442%_)))) + (let* ((_%right55472%_ _%hd5543955466%_) + (_%right-rest55475%_ _%tl5544055469%_)) + (_%K5543855462%_ + _%right-rest55475%_ + _%right55472%_))) + (_%else5543655454%_)))))) + (if (pair? _%left-rest5540755415%_) + (let ((_%hd5541255482%_ (let () (declare (not safe)) - (##car _%left-rest5534455352%_))) - (_%tl5535055422%_ + (##car _%left-rest5540755415%_))) + (_%tl5541355485%_ (let () (declare (not safe)) - (##cdr _%left-rest5534455352%_)))) - (let* ((_%left55425%_ _%hd5534955419%_) - (_%left-rest55428%_ _%tl5535055422%_)) - (_%K5534855415%_ _%left-rest55428%_ _%left55425%_))) - (_%else5534655364%_)))))) + (##cdr _%left-rest5540755415%_)))) + (let* ((_%left55488%_ _%hd5541255482%_) + (_%left-rest55491%_ _%tl5541355485%_)) + (_%K5541155478%_ _%left-rest55491%_ _%left55488%_))) + (_%else5540955427%_)))))) (define |gerbil/core/contract~Interface[1]#compatible-type-contract?| - (lambda (_%left53463%_ _%right53465%_) - (andmap (lambda (_%a53467%_ _%b53469%_) - (let* ((_%__stx8147681477%_ _%a53467%_) - (_%g5347753555%_ + (lambda (_%left53526%_ _%right53528%_) + (andmap (lambda (_%a53530%_ _%b53532%_) + (let* ((_%__stx8153981540%_ _%a53530%_) + (_%g5354053618%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8147681477%_)))) - (let ((_%__kont8147981480%_ - (lambda (_%L55068%_ _%L55070%_) - (let* ((_%__stx8139481395%_ _%b53469%_) - (_%g5508955133%_ + _%__stx8153981540%_)))) + (let ((_%__kont8154281543%_ + (lambda (_%L55131%_ _%L55133%_) + (let* ((_%__stx8145781458%_ _%b53532%_) + (_%g5515255196%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8139481395%_)))) - (let ((_%__kont8139781398%_ - (lambda (_%L55303%_ _%L55305%_) + _%__stx8145781458%_)))) + (let ((_%__kont8146081461%_ + (lambda (_%L55366%_ _%L55368%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55068%_ - _%L55303%_))) - (_%__kont8139981400%_ - (lambda (_%L55247%_ - _%L55249%_ - _%L55250%_) + _%L55131%_ + _%L55366%_))) + (_%__kont8146281463%_ + (lambda (_%L55310%_ + _%L55312%_ + _%L55313%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L55068%_ - _%L55247%_))) - (_%__kont8140181402%_ - (lambda (_%L55180%_ _%L55182%_) '#t))) - (let* ((_%__match8144381444%_ - (lambda (_%e5510255207%_ - _%hd5510355211%_ - _%tl5510455214%_ - _%e5510555217%_ - _%hd5510655221%_ - _%tl5510755224%_ - _%e5510855227%_ - _%hd5510955231%_ - _%tl5511055234%_ - _%e5511155237%_ - _%hd5511255241%_ - _%tl5511355244%_) - (let ((_%L55247%_ _%hd5511255241%_) - (_%L55249%_ _%hd5510955231%_) - (_%L55250%_ _%hd5510655221%_)) + _%L55131%_ + _%L55310%_))) + (_%__kont8146481465%_ + (lambda (_%L55243%_ _%L55245%_) '#t))) + (let* ((_%__match8150681507%_ + (lambda (_%e5516555270%_ + _%hd5516655274%_ + _%tl5516755277%_ + _%e5516855280%_ + _%hd5516955284%_ + _%tl5517055287%_ + _%e5517155290%_ + _%hd5517255294%_ + _%tl5517355297%_ + _%e5517455300%_ + _%hd5517555304%_ + _%tl5517655307%_) + (let ((_%L55310%_ _%hd5517555304%_) + (_%L55312%_ _%hd5517255294%_) + (_%L55313%_ _%hd5516955284%_)) (if (or (gx#free-identifier=? - _%L55249%_ + _%L55312%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55249%_ + _%L55312%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55249%_ + _%L55312%_ (gx#datum->syntax '#f ':-))) - (_%__kont8139981400%_ - _%L55247%_ - _%L55249%_ - _%L55250%_) + (_%__kont8146281463%_ + _%L55310%_ + _%L55312%_ + _%L55313%_) (if (gx#stx-null? - _%tl5511355244%_) - (_%__kont8140181402%_ - _%hd5510955231%_ - _%hd5510655221%_) + _%tl5517655307%_) + (_%__kont8146481465%_ + _%hd5517255294%_ + _%hd5516955284%_) (let () (declare (not safe)) - (_%g5508955133%_))))))) - (_%__match8141581416%_ - (lambda (_%e5509355283%_ - _%hd5509455287%_ - _%tl5509555290%_ - _%e5509655293%_ - _%hd5509755297%_ - _%tl5509855300%_) - (let ((_%L55303%_ _%hd5509755297%_) - (_%L55305%_ _%hd5509455287%_)) + (_%g5515255196%_))))))) + (_%__match8147881479%_ + (lambda (_%e5515655346%_ + _%hd5515755350%_ + _%tl5515855353%_ + _%e5515955356%_ + _%hd5516055360%_ + _%tl5516155363%_) + (let ((_%L55366%_ _%hd5516055360%_) + (_%L55368%_ _%hd5515755350%_)) (if (or (gx#free-identifier=? - _%L55305%_ + _%L55368%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55305%_ + _%L55368%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L55305%_ + _%L55368%_ (gx#datum->syntax '#f ':-))) - (_%__kont8139781398%_ - _%L55303%_ - _%L55305%_) + (_%__kont8146081461%_ + _%L55366%_ + _%L55368%_) (if (gx#identifier? - _%hd5509455287%_) + _%hd5515755350%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84115_| - _%hd5509455287%_) + |gerbil/core/contract~Interface[1]#_g84178_| + _%hd5515755350%_) (if (gx#stx-pair? - _%tl5509855300%_) - (let ((_%e5510855227%_ + _%tl5516155363%_) + (let ((_%e5517155290%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5509855300%_))) - (let ((_%tl5511055234%_ + (gx#syntax-e _%tl5516155363%_))) + (let ((_%tl5517355297%_ (let () (declare (not safe)) - (##cdr _%e5510855227%_))) - (_%hd5510955231%_ + (##cdr _%e5517155290%_))) + (_%hd5517255294%_ (let () (declare (not safe)) - (##car _%e5510855227%_)))) - (if (gx#stx-pair? _%tl5511055234%_) - (let ((_%e5511155237%_ - (gx#syntax-e _%tl5511055234%_))) - (let ((_%tl5511355244%_ + (##car _%e5517155290%_)))) + (if (gx#stx-pair? _%tl5517355297%_) + (let ((_%e5517455300%_ + (gx#syntax-e _%tl5517355297%_))) + (let ((_%tl5517655307%_ (let () (declare (not safe)) - (##cdr _%e5511155237%_))) - (_%hd5511255241%_ + (##cdr _%e5517455300%_))) + (_%hd5517555304%_ (let () (declare (not safe)) - (##car _%e5511155237%_)))) - (_%__match8144381444%_ - _%e5509355283%_ - _%hd5509455287%_ - _%tl5509555290%_ - _%e5509655293%_ - _%hd5509755297%_ - _%tl5509855300%_ - _%e5510855227%_ - _%hd5510955231%_ - _%tl5511055234%_ - _%e5511155237%_ - _%hd5511255241%_ - _%tl5511355244%_))) - (let () (declare (not safe)) (_%g5508955133%_))))) - (let () (declare (not safe)) (_%g5508955133%_))) - (let () (declare (not safe)) (_%g5508955133%_))) + (##car _%e5517455300%_)))) + (_%__match8150681507%_ + _%e5515655346%_ + _%hd5515755350%_ + _%tl5515855353%_ + _%e5515955356%_ + _%hd5516055360%_ + _%tl5516155363%_ + _%e5517155290%_ + _%hd5517255294%_ + _%tl5517355297%_ + _%e5517455300%_ + _%hd5517555304%_ + _%tl5517655307%_))) + (let () (declare (not safe)) (_%g5515255196%_))))) + (let () (declare (not safe)) (_%g5515255196%_))) + (let () (declare (not safe)) (_%g5515255196%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5508955133%_)))))))) - (if (gx#stx-pair? _%__stx8139481395%_) - (let ((_%e5509355283%_ + (_%g5515255196%_)))))))) + (if (gx#stx-pair? _%__stx8145781458%_) + (let ((_%e5515655346%_ (gx#syntax-e - _%__stx8139481395%_))) - (let ((_%tl5509555290%_ + _%__stx8145781458%_))) + (let ((_%tl5515855353%_ (let () (declare (not safe)) - (##cdr _%e5509355283%_))) - (_%hd5509455287%_ + (##cdr _%e5515655346%_))) + (_%hd5515755350%_ (let () (declare (not safe)) - (##car _%e5509355283%_)))) - (if (gx#stx-pair? _%tl5509555290%_) - (let ((_%e5509655293%_ + (##car _%e5515655346%_)))) + (if (gx#stx-pair? _%tl5515855353%_) + (let ((_%e5515955356%_ (gx#syntax-e - _%tl5509555290%_))) - (let ((_%tl5509855300%_ + _%tl5515855353%_))) + (let ((_%tl5516155363%_ (let () (declare (not safe)) - (##cdr _%e5509655293%_))) - (_%hd5509755297%_ + (##cdr _%e5515955356%_))) + (_%hd5516055360%_ (let () (declare (not safe)) - (##car _%e5509655293%_)))) - (_%__match8141581416%_ - _%e5509355283%_ - _%hd5509455287%_ - _%tl5509555290%_ - _%e5509655293%_ - _%hd5509755297%_ - _%tl5509855300%_))) + (##car _%e5515955356%_)))) + (_%__match8147881479%_ + _%e5515655346%_ + _%hd5515755350%_ + _%tl5515855353%_ + _%e5515955356%_ + _%hd5516055360%_ + _%tl5516155363%_))) (let () (declare (not safe)) - (_%g5508955133%_))))) + (_%g5515255196%_))))) (let () (declare (not safe)) - (_%g5508955133%_)))))))) - (_%__kont8148181482%_ - (lambda (_%L54875%_) - (let* ((_%__stx8133481335%_ _%b53469%_) - (_%g5489054918%_ + (_%g5515255196%_)))))))) + (_%__kont8154481545%_ + (lambda (_%L54938%_) + (let* ((_%__stx8139781398%_ _%b53532%_) + (_%g5495354981%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8133481335%_)))) - (let ((_%__kont8133781338%_ - (lambda (_%L55024%_) + _%__stx8139781398%_)))) + (let ((_%__kont8140081401%_ + (lambda (_%L55087%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54875%_ - _%L55024%_))) - (_%__kont8133981340%_ - (lambda (_%L54976%_ _%L54978%_) + _%L54938%_ + _%L55087%_))) + (_%__kont8140281403%_ + (lambda (_%L55039%_ _%L55041%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54875%_ - _%L54976%_))) - (_%__kont8134181342%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8133481335%_) - (let ((_%e5489355004%_ - (gx#syntax-e _%__stx8133481335%_))) - (let ((_%tl5489555011%_ + _%L54938%_ + _%L55039%_))) + (_%__kont8140481405%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8139781398%_) + (let ((_%e5495655067%_ + (gx#syntax-e _%__stx8139781398%_))) + (let ((_%tl5495855074%_ (let () (declare (not safe)) - (##cdr _%e5489355004%_))) - (_%hd5489455008%_ + (##cdr _%e5495655067%_))) + (_%hd5495755071%_ (let () (declare (not safe)) - (##car _%e5489355004%_)))) - (if (gx#identifier? _%hd5489455008%_) + (##car _%e5495655067%_)))) + (if (gx#identifier? _%hd5495755071%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84116_| - _%hd5489455008%_) + |gerbil/core/contract~Interface[1]#_g84179_| + _%hd5495755071%_) (if (gx#stx-pair? - _%tl5489555011%_) - (let ((_%e5489655014%_ + _%tl5495855074%_) + (let ((_%e5495955077%_ (gx#syntax-e - _%tl5489555011%_))) - (let ((_%tl5489855021%_ + _%tl5495855074%_))) + (let ((_%tl5496155084%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5489655014%_))) - (_%hd5489755018%_ - (let () (declare (not safe)) (##car _%e5489655014%_)))) - (_%__kont8133781338%_ _%hd5489755018%_))) + (##cdr _%e5495955077%_))) + (_%hd5496055081%_ + (let () (declare (not safe)) (##car _%e5495955077%_)))) + (_%__kont8140081401%_ _%hd5496055081%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8134181342%_)) + (_%__kont8140481405%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84117_| - _%hd5489455008%_) + |gerbil/core/contract~Interface[1]#_g84180_| + _%hd5495755071%_) (if (gx#stx-pair? - _%tl5489555011%_) - (let ((_%e5490454946%_ + _%tl5495855074%_) + (let ((_%e5496755009%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5489555011%_))) - (let ((_%tl5490654953%_ + _%tl5495855074%_))) + (let ((_%tl5496955016%_ (let () (declare (not safe)) - (##cdr _%e5490454946%_))) - (_%hd5490554950%_ + (##cdr _%e5496755009%_))) + (_%hd5496855013%_ (let () (declare (not safe)) - (##car _%e5490454946%_)))) - (if (gx#stx-pair? _%tl5490654953%_) - (let ((_%e5490754956%_ - (gx#syntax-e _%tl5490654953%_))) - (let ((_%tl5490954963%_ + (##car _%e5496755009%_)))) + (if (gx#stx-pair? _%tl5496955016%_) + (let ((_%e5497055019%_ + (gx#syntax-e _%tl5496955016%_))) + (let ((_%tl5497255026%_ (let () (declare (not safe)) - (##cdr _%e5490754956%_))) - (_%hd5490854960%_ + (##cdr _%e5497055019%_))) + (_%hd5497155023%_ (let () (declare (not safe)) - (##car _%e5490754956%_)))) - (if (gx#identifier? _%hd5490854960%_) + (##car _%e5497055019%_)))) + (if (gx#identifier? _%hd5497155023%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84118_| - _%hd5490854960%_) - (if (gx#stx-pair? _%tl5490954963%_) - (let ((_%e5491054966%_ + |gerbil/core/contract~Interface[1]#_g84181_| + _%hd5497155023%_) + (if (gx#stx-pair? _%tl5497255026%_) + (let ((_%e5497355029%_ (gx#syntax-e - _%tl5490954963%_))) - (let ((_%tl5491254973%_ + _%tl5497255026%_))) + (let ((_%tl5497555036%_ (let () (declare (not safe)) - (##cdr _%e5491054966%_))) - (_%hd5491154970%_ + (##cdr _%e5497355029%_))) + (_%hd5497455033%_ (let () (declare (not safe)) - (##car _%e5491054966%_)))) - (_%__kont8133981340%_ - _%hd5491154970%_ - _%hd5490554950%_))) - (_%__kont8134181342%_)) - (_%__kont8134181342%_)) - (_%__kont8134181342%_)))) - (_%__kont8134181342%_)))) - (_%__kont8134181342%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8134181342%_))) - (_%__kont8134181342%_)))) - (_%__kont8134181342%_)))))) - (_%__kont8148381484%_ - (lambda (_%L54592%_) - (let* ((_%__stx8124881249%_ _%b53469%_) - (_%g5460754651%_ + (##car _%e5497355029%_)))) + (_%__kont8140281403%_ + _%hd5497455033%_ + _%hd5496855013%_))) + (_%__kont8140481405%_)) + (_%__kont8140481405%_)) + (_%__kont8140481405%_)))) + (_%__kont8140481405%_)))) + (_%__kont8140481405%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8140481405%_))) + (_%__kont8140481405%_)))) + (_%__kont8140481405%_)))))) + (_%__kont8154681547%_ + (lambda (_%L54655%_) + (let* ((_%__stx8131181312%_ _%b53532%_) + (_%g5467054714%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8124881249%_)))) - (let ((_%__kont8125181252%_ - (lambda (_%L54821%_ _%L54823%_) + _%__stx8131181312%_)))) + (let ((_%__kont8131481315%_ + (lambda (_%L54884%_ _%L54886%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54592%_ - _%L54821%_))) - (_%__kont8125381254%_ - (lambda (_%L54763%_ - _%L54765%_ - _%L54766%_ - _%L54767%_) + _%L54655%_ + _%L54884%_))) + (_%__kont8131681317%_ + (lambda (_%L54826%_ + _%L54828%_ + _%L54829%_ + _%L54830%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54592%_ - _%L54765%_))) - (_%__kont8125581256%_ - (lambda (_%L54698%_) '#t))) - (let* ((_%__match8129781298%_ - (lambda (_%e5462154723%_ - _%hd5462254727%_ - _%tl5462354730%_ - _%e5462454733%_ - _%hd5462554737%_ - _%tl5462654740%_ - _%e5462754743%_ - _%hd5462854747%_ - _%tl5462954750%_ - _%e5463054753%_ - _%hd5463154757%_ - _%tl5463254760%_) - (let ((_%L54763%_ _%tl5463254760%_) - (_%L54765%_ _%hd5463154757%_) - (_%L54766%_ _%hd5462854747%_) - (_%L54767%_ _%hd5462554737%_)) + _%L54655%_ + _%L54828%_))) + (_%__kont8131881319%_ + (lambda (_%L54761%_) '#t))) + (let* ((_%__match8136081361%_ + (lambda (_%e5468454786%_ + _%hd5468554790%_ + _%tl5468654793%_ + _%e5468754796%_ + _%hd5468854800%_ + _%tl5468954803%_ + _%e5469054806%_ + _%hd5469154810%_ + _%tl5469254813%_ + _%e5469354816%_ + _%hd5469454820%_ + _%tl5469554823%_) + (let ((_%L54826%_ _%tl5469554823%_) + (_%L54828%_ _%hd5469454820%_) + (_%L54829%_ _%hd5469154810%_) + (_%L54830%_ _%hd5468854800%_)) (if (or (gx#free-identifier=? - _%L54766%_ + _%L54829%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54766%_ + _%L54829%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54766%_ + _%L54829%_ (gx#datum->syntax '#f ':-))) - (_%__kont8125381254%_ - _%L54763%_ - _%L54765%_ - _%L54766%_ - _%L54767%_) + (_%__kont8131681317%_ + _%L54826%_ + _%L54828%_ + _%L54829%_ + _%L54830%_) (if (gx#identifier? - _%hd5462854747%_) + _%hd5469154810%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84119_| - _%hd5462854747%_) + |gerbil/core/contract~Interface[1]#_g84182_| + _%hd5469154810%_) (if (gx#stx-null? - _%tl5463254760%_) - (_%__kont8125581256%_ - _%hd5462554737%_) + _%tl5469554823%_) + (_%__kont8131881319%_ + _%hd5468854800%_) (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (_%g5460754651%_))) - (let () (declare (not safe)) (_%g5460754651%_))) + (_%g5467054714%_))) + (let () (declare (not safe)) (_%g5467054714%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5460754651%_))))))) - (_%__match8126981270%_ - (lambda (_%e5461154801%_ - _%hd5461254805%_ - _%tl5461354808%_ - _%e5461454811%_ - _%hd5461554815%_ - _%tl5461654818%_) - (let ((_%L54821%_ _%hd5461554815%_) - (_%L54823%_ _%hd5461254805%_)) + (_%g5467054714%_))))))) + (_%__match8133281333%_ + (lambda (_%e5467454864%_ + _%hd5467554868%_ + _%tl5467654871%_ + _%e5467754874%_ + _%hd5467854878%_ + _%tl5467954881%_) + (let ((_%L54884%_ _%hd5467854878%_) + (_%L54886%_ _%hd5467554868%_)) (if (or (gx#free-identifier=? - _%L54823%_ + _%L54886%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54823%_ + _%L54886%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54823%_ + _%L54886%_ (gx#datum->syntax '#f ':-))) - (_%__kont8125181252%_ - _%L54821%_ - _%L54823%_) + (_%__kont8131481315%_ + _%L54884%_ + _%L54886%_) (if (gx#identifier? - _%hd5461254805%_) + _%hd5467554868%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84120_| - _%hd5461254805%_) + |gerbil/core/contract~Interface[1]#_g84183_| + _%hd5467554868%_) (if (gx#stx-pair? - _%tl5461654818%_) - (let ((_%e5462754743%_ + _%tl5467954881%_) + (let ((_%e5469054806%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5461654818%_))) - (let ((_%tl5462954750%_ + (gx#syntax-e _%tl5467954881%_))) + (let ((_%tl5469254813%_ (let () (declare (not safe)) - (##cdr _%e5462754743%_))) - (_%hd5462854747%_ + (##cdr _%e5469054806%_))) + (_%hd5469154810%_ (let () (declare (not safe)) - (##car _%e5462754743%_)))) - (if (gx#stx-pair? _%tl5462954750%_) - (let ((_%e5463054753%_ - (gx#syntax-e _%tl5462954750%_))) - (let ((_%tl5463254760%_ + (##car _%e5469054806%_)))) + (if (gx#stx-pair? _%tl5469254813%_) + (let ((_%e5469354816%_ + (gx#syntax-e _%tl5469254813%_))) + (let ((_%tl5469554823%_ (let () (declare (not safe)) - (##cdr _%e5463054753%_))) - (_%hd5463154757%_ + (##cdr _%e5469354816%_))) + (_%hd5469454820%_ (let () (declare (not safe)) - (##car _%e5463054753%_)))) - (_%__match8129781298%_ - _%e5461154801%_ - _%hd5461254805%_ - _%tl5461354808%_ - _%e5461454811%_ - _%hd5461554815%_ - _%tl5461654818%_ - _%e5462754743%_ - _%hd5462854747%_ - _%tl5462954750%_ - _%e5463054753%_ - _%hd5463154757%_ - _%tl5463254760%_))) - (let () (declare (not safe)) (_%g5460754651%_))))) - (let () (declare (not safe)) (_%g5460754651%_))) - (let () (declare (not safe)) (_%g5460754651%_))) + (##car _%e5469354816%_)))) + (_%__match8136081361%_ + _%e5467454864%_ + _%hd5467554868%_ + _%tl5467654871%_ + _%e5467754874%_ + _%hd5467854878%_ + _%tl5467954881%_ + _%e5469054806%_ + _%hd5469154810%_ + _%tl5469254813%_ + _%e5469354816%_ + _%hd5469454820%_ + _%tl5469554823%_))) + (let () (declare (not safe)) (_%g5467054714%_))))) + (let () (declare (not safe)) (_%g5467054714%_))) + (let () (declare (not safe)) (_%g5467054714%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5460754651%_)))))))) - (if (gx#stx-pair? _%__stx8124881249%_) - (let ((_%e5461154801%_ + (_%g5467054714%_)))))))) + (if (gx#stx-pair? _%__stx8131181312%_) + (let ((_%e5467454864%_ (gx#syntax-e - _%__stx8124881249%_))) - (let ((_%tl5461354808%_ + _%__stx8131181312%_))) + (let ((_%tl5467654871%_ (let () (declare (not safe)) - (##cdr _%e5461154801%_))) - (_%hd5461254805%_ + (##cdr _%e5467454864%_))) + (_%hd5467554868%_ (let () (declare (not safe)) - (##car _%e5461154801%_)))) - (if (gx#stx-pair? _%tl5461354808%_) - (let ((_%e5461454811%_ + (##car _%e5467454864%_)))) + (if (gx#stx-pair? _%tl5467654871%_) + (let ((_%e5467754874%_ (gx#syntax-e - _%tl5461354808%_))) - (let ((_%tl5461654818%_ + _%tl5467654871%_))) + (let ((_%tl5467954881%_ (let () (declare (not safe)) - (##cdr _%e5461454811%_))) - (_%hd5461554815%_ + (##cdr _%e5467754874%_))) + (_%hd5467854878%_ (let () (declare (not safe)) - (##car _%e5461454811%_)))) - (_%__match8126981270%_ - _%e5461154801%_ - _%hd5461254805%_ - _%tl5461354808%_ - _%e5461454811%_ - _%hd5461554815%_ - _%tl5461654818%_))) + (##car _%e5467754874%_)))) + (_%__match8133281333%_ + _%e5467454864%_ + _%hd5467554868%_ + _%tl5467654871%_ + _%e5467754874%_ + _%hd5467854878%_ + _%tl5467954881%_))) (let () (declare (not safe)) - (_%g5460754651%_))))) + (_%g5467054714%_))))) (let () (declare (not safe)) - (_%g5460754651%_)))))))) - (_%__kont8148581486%_ - (lambda (_%L54311%_ _%L54313%_) - (let* ((_%__stx8116681167%_ _%b53469%_) - (_%g5433254376%_ + (_%g5467054714%_)))))))) + (_%__kont8154881549%_ + (lambda (_%L54374%_ _%L54376%_) + (let* ((_%__stx8122981230%_ _%b53532%_) + (_%g5439554439%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8116681167%_)))) - (let ((_%__kont8116981170%_ - (lambda (_%L54538%_ _%L54540%_) + _%__stx8122981230%_)))) + (let ((_%__kont8123281233%_ + (lambda (_%L54601%_ _%L54603%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54311%_ - _%L54538%_))) - (_%__kont8117181172%_ - (lambda (_%L54490%_ - _%L54492%_ - _%L54493%_) + _%L54374%_ + _%L54601%_))) + (_%__kont8123481235%_ + (lambda (_%L54553%_ + _%L54555%_ + _%L54556%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54311%_ - _%L54490%_))) - (_%__kont8117381174%_ - (lambda (_%L54423%_ _%L54425%_) '#t))) - (let ((_%__match8118781188%_ - (lambda (_%e5433654518%_ - _%hd5433754522%_ - _%tl5433854525%_ - _%e5433954528%_ - _%hd5434054532%_ - _%tl5434154535%_) - (let ((_%L54538%_ _%hd5434054532%_) - (_%L54540%_ _%hd5433754522%_)) + _%L54374%_ + _%L54553%_))) + (_%__kont8123681237%_ + (lambda (_%L54486%_ _%L54488%_) '#t))) + (let ((_%__match8125081251%_ + (lambda (_%e5439954581%_ + _%hd5440054585%_ + _%tl5440154588%_ + _%e5440254591%_ + _%hd5440354595%_ + _%tl5440454598%_) + (let ((_%L54601%_ _%hd5440354595%_) + (_%L54603%_ _%hd5440054585%_)) (if (or (gx#free-identifier=? - _%L54540%_ + _%L54603%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54540%_ + _%L54603%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54540%_ + _%L54603%_ (gx#datum->syntax '#f ':-))) - (_%__kont8116981170%_ - _%L54538%_ - _%L54540%_) + (_%__kont8123281233%_ + _%L54601%_ + _%L54603%_) (if (gx#identifier? - _%hd5433754522%_) + _%hd5440054585%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84121_| - _%hd5433754522%_) + |gerbil/core/contract~Interface[1]#_g84184_| + _%hd5440054585%_) (if (gx#stx-pair? - _%tl5434154535%_) - (let ((_%e5435154470%_ + _%tl5440454598%_) + (let ((_%e5441454533%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5434154535%_))) - (let ((_%tl5435354477%_ + (gx#syntax-e _%tl5440454598%_))) + (let ((_%tl5441654540%_ (let () (declare (not safe)) - (##cdr _%e5435154470%_))) - (_%hd5435254474%_ + (##cdr _%e5441454533%_))) + (_%hd5441554537%_ (let () (declare (not safe)) - (##car _%e5435154470%_)))) - (if (gx#stx-pair? _%tl5435354477%_) - (let ((_%e5435454480%_ - (gx#syntax-e _%tl5435354477%_))) - (let ((_%tl5435654487%_ + (##car _%e5441454533%_)))) + (if (gx#stx-pair? _%tl5441654540%_) + (let ((_%e5441754543%_ + (gx#syntax-e _%tl5441654540%_))) + (let ((_%tl5441954550%_ (let () (declare (not safe)) - (##cdr _%e5435454480%_))) - (_%hd5435554484%_ + (##cdr _%e5441754543%_))) + (_%hd5441854547%_ (let () (declare (not safe)) - (##car _%e5435454480%_)))) - (_%__kont8117181172%_ - _%hd5435554484%_ - _%hd5435254474%_ - _%hd5434054532%_))) - (let () (declare (not safe)) (_%g5433254376%_))))) - (let () (declare (not safe)) (_%g5433254376%_))) - (let () (declare (not safe)) (_%g5433254376%_))) + (##car _%e5441754543%_)))) + (_%__kont8123481235%_ + _%hd5441854547%_ + _%hd5441554537%_ + _%hd5440354595%_))) + (let () (declare (not safe)) (_%g5439554439%_))))) + (let () (declare (not safe)) (_%g5439554439%_))) + (let () (declare (not safe)) (_%g5439554439%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5433254376%_)))))))) - (if (gx#stx-pair? _%__stx8116681167%_) - (let ((_%e5433654518%_ + (_%g5439554439%_)))))))) + (if (gx#stx-pair? _%__stx8122981230%_) + (let ((_%e5439954581%_ (gx#syntax-e - _%__stx8116681167%_))) - (let ((_%tl5433854525%_ + _%__stx8122981230%_))) + (let ((_%tl5440154588%_ (let () (declare (not safe)) - (##cdr _%e5433654518%_))) - (_%hd5433754522%_ + (##cdr _%e5439954581%_))) + (_%hd5440054585%_ (let () (declare (not safe)) - (##car _%e5433654518%_)))) - (if (gx#stx-pair? _%tl5433854525%_) - (let ((_%e5433954528%_ + (##car _%e5439954581%_)))) + (if (gx#stx-pair? _%tl5440154588%_) + (let ((_%e5440254591%_ (gx#syntax-e - _%tl5433854525%_))) - (let ((_%tl5434154535%_ + _%tl5440154588%_))) + (let ((_%tl5440454598%_ (let () (declare (not safe)) - (##cdr _%e5433954528%_))) - (_%hd5434054532%_ + (##cdr _%e5440254591%_))) + (_%hd5440354595%_ (let () (declare (not safe)) - (##car _%e5433954528%_)))) - (_%__match8118781188%_ - _%e5433654518%_ - _%hd5433754522%_ - _%tl5433854525%_ - _%e5433954528%_ - _%hd5434054532%_ - _%tl5434154535%_))) + (##car _%e5440254591%_)))) + (_%__match8125081251%_ + _%e5439954581%_ + _%hd5440054585%_ + _%tl5440154588%_ + _%e5440254591%_ + _%hd5440354595%_ + _%tl5440454598%_))) (let () (declare (not safe)) - (_%g5433254376%_))))) + (_%g5439554439%_))))) (let () (declare (not safe)) - (_%g5433254376%_)))))))) - (_%__kont8148781488%_ - (lambda (_%L54092%_ _%L54094%_) - (let* ((_%__stx8110681107%_ _%b53469%_) - (_%g5411354141%_ + (_%g5439554439%_)))))))) + (_%__kont8155081551%_ + (lambda (_%L54155%_ _%L54157%_) + (let* ((_%__stx8116981170%_ _%b53532%_) + (_%g5417654204%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8110681107%_)))) - (let ((_%__kont8110981110%_ - (lambda (_%L54247%_) + _%__stx8116981170%_)))) + (let ((_%__kont8117281173%_ + (lambda (_%L54310%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54092%_ - _%L54247%_))) - (_%__kont8111181112%_ - (lambda (_%L54199%_ _%L54201%_) + _%L54155%_ + _%L54310%_))) + (_%__kont8117481175%_ + (lambda (_%L54262%_ _%L54264%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L54092%_ - _%L54199%_))) - (_%__kont8111381114%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8110681107%_) - (let ((_%e5411654227%_ - (gx#syntax-e _%__stx8110681107%_))) - (let ((_%tl5411854234%_ + _%L54155%_ + _%L54262%_))) + (_%__kont8117681177%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8116981170%_) + (let ((_%e5417954290%_ + (gx#syntax-e _%__stx8116981170%_))) + (let ((_%tl5418154297%_ (let () (declare (not safe)) - (##cdr _%e5411654227%_))) - (_%hd5411754231%_ + (##cdr _%e5417954290%_))) + (_%hd5418054294%_ (let () (declare (not safe)) - (##car _%e5411654227%_)))) - (if (gx#identifier? _%hd5411754231%_) + (##car _%e5417954290%_)))) + (if (gx#identifier? _%hd5418054294%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84122_| - _%hd5411754231%_) + |gerbil/core/contract~Interface[1]#_g84185_| + _%hd5418054294%_) (if (gx#stx-pair? - _%tl5411854234%_) - (let ((_%e5411954237%_ + _%tl5418154297%_) + (let ((_%e5418254300%_ (gx#syntax-e - _%tl5411854234%_))) - (let ((_%tl5412154244%_ + _%tl5418154297%_))) + (let ((_%tl5418454307%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e5411954237%_))) - (_%hd5412054241%_ - (let () (declare (not safe)) (##car _%e5411954237%_)))) - (_%__kont8110981110%_ _%hd5412054241%_))) + (##cdr _%e5418254300%_))) + (_%hd5418354304%_ + (let () (declare (not safe)) (##car _%e5418254300%_)))) + (_%__kont8117281173%_ _%hd5418354304%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8111381114%_)) + (_%__kont8117681177%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84123_| - _%hd5411754231%_) + |gerbil/core/contract~Interface[1]#_g84186_| + _%hd5418054294%_) (if (gx#stx-pair? - _%tl5411854234%_) - (let ((_%e5412754169%_ + _%tl5418154297%_) + (let ((_%e5419054232%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5411854234%_))) - (let ((_%tl5412954176%_ + _%tl5418154297%_))) + (let ((_%tl5419254239%_ (let () (declare (not safe)) - (##cdr _%e5412754169%_))) - (_%hd5412854173%_ + (##cdr _%e5419054232%_))) + (_%hd5419154236%_ (let () (declare (not safe)) - (##car _%e5412754169%_)))) - (if (gx#stx-pair? _%tl5412954176%_) - (let ((_%e5413054179%_ - (gx#syntax-e _%tl5412954176%_))) - (let ((_%tl5413254186%_ + (##car _%e5419054232%_)))) + (if (gx#stx-pair? _%tl5419254239%_) + (let ((_%e5419354242%_ + (gx#syntax-e _%tl5419254239%_))) + (let ((_%tl5419554249%_ (let () (declare (not safe)) - (##cdr _%e5413054179%_))) - (_%hd5413154183%_ + (##cdr _%e5419354242%_))) + (_%hd5419454246%_ (let () (declare (not safe)) - (##car _%e5413054179%_)))) - (if (gx#identifier? _%hd5413154183%_) + (##car _%e5419354242%_)))) + (if (gx#identifier? _%hd5419454246%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84124_| - _%hd5413154183%_) - (if (gx#stx-pair? _%tl5413254186%_) - (let ((_%e5413354189%_ + |gerbil/core/contract~Interface[1]#_g84187_| + _%hd5419454246%_) + (if (gx#stx-pair? _%tl5419554249%_) + (let ((_%e5419654252%_ (gx#syntax-e - _%tl5413254186%_))) - (let ((_%tl5413554196%_ + _%tl5419554249%_))) + (let ((_%tl5419854259%_ (let () (declare (not safe)) - (##cdr _%e5413354189%_))) - (_%hd5413454193%_ + (##cdr _%e5419654252%_))) + (_%hd5419754256%_ (let () (declare (not safe)) - (##car _%e5413354189%_)))) - (_%__kont8111181112%_ - _%hd5413454193%_ - _%hd5412854173%_))) - (_%__kont8111381114%_)) - (_%__kont8111381114%_)) - (_%__kont8111381114%_)))) - (_%__kont8111381114%_)))) - (_%__kont8111381114%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8111381114%_))) - (_%__kont8111381114%_)))) - (_%__kont8111381114%_)))))) - (_%__kont8148981490%_ - (lambda (_%L53783%_ _%L53785%_) - (let* ((_%__stx8102481025%_ _%b53469%_) - (_%g5380453848%_ + (##car _%e5419654252%_)))) + (_%__kont8117481175%_ + _%hd5419754256%_ + _%hd5419154236%_))) + (_%__kont8117681177%_)) + (_%__kont8117681177%_)) + (_%__kont8117681177%_)))) + (_%__kont8117681177%_)))) + (_%__kont8117681177%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8117681177%_))) + (_%__kont8117681177%_)))) + (_%__kont8117681177%_)))))) + (_%__kont8155281553%_ + (lambda (_%L53846%_ _%L53848%_) + (let* ((_%__stx8108781088%_ _%b53532%_) + (_%g5386753911%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8102481025%_)))) - (let ((_%__kont8102781028%_ - (lambda (_%L54018%_ _%L54020%_) + _%__stx8108781088%_)))) + (let ((_%__kont8109081091%_ + (lambda (_%L54081%_ _%L54083%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53783%_ - _%L54018%_))) - (_%__kont8102981030%_ - (lambda (_%L53962%_ - _%L53964%_ - _%L53965%_) + _%L53846%_ + _%L54081%_))) + (_%__kont8109281093%_ + (lambda (_%L54025%_ + _%L54027%_ + _%L54028%_) (|gerbil/core/contract~Interface[1]#contract-type-subtype?| - _%L53783%_ - _%L53962%_))) - (_%__kont8103181032%_ - (lambda (_%L53895%_ _%L53897%_) '#t))) - (let* ((_%__match8107381074%_ - (lambda (_%e5381753922%_ - _%hd5381853926%_ - _%tl5381953929%_ - _%e5382053932%_ - _%hd5382153936%_ - _%tl5382253939%_ - _%e5382353942%_ - _%hd5382453946%_ - _%tl5382553949%_ - _%e5382653952%_ - _%hd5382753956%_ - _%tl5382853959%_) - (let ((_%L53962%_ _%hd5382753956%_) - (_%L53964%_ _%hd5382453946%_) - (_%L53965%_ _%hd5382153936%_)) + _%L53846%_ + _%L54025%_))) + (_%__kont8109481095%_ + (lambda (_%L53958%_ _%L53960%_) '#t))) + (let* ((_%__match8113681137%_ + (lambda (_%e5388053985%_ + _%hd5388153989%_ + _%tl5388253992%_ + _%e5388353995%_ + _%hd5388453999%_ + _%tl5388554002%_ + _%e5388654005%_ + _%hd5388754009%_ + _%tl5388854012%_ + _%e5388954015%_ + _%hd5389054019%_ + _%tl5389154022%_) + (let ((_%L54025%_ _%hd5389054019%_) + (_%L54027%_ _%hd5388754009%_) + (_%L54028%_ _%hd5388453999%_)) (if (or (gx#free-identifier=? - _%L53964%_ + _%L54027%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53964%_ + _%L54027%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53964%_ + _%L54027%_ (gx#datum->syntax '#f ':-))) - (_%__kont8102981030%_ - _%L53962%_ - _%L53964%_ - _%L53965%_) + (_%__kont8109281093%_ + _%L54025%_ + _%L54027%_ + _%L54028%_) (if (gx#stx-null? - _%tl5382853959%_) - (_%__kont8103181032%_ - _%hd5382453946%_ - _%hd5382153936%_) + _%tl5389154022%_) + (_%__kont8109481095%_ + _%hd5388754009%_ + _%hd5388453999%_) (let () (declare (not safe)) - (_%g5380453848%_))))))) - (_%__match8104581046%_ - (lambda (_%e5380853998%_ - _%hd5380954002%_ - _%tl5381054005%_ - _%e5381154008%_ - _%hd5381254012%_ - _%tl5381354015%_) - (let ((_%L54018%_ _%hd5381254012%_) - (_%L54020%_ _%hd5380954002%_)) + (_%g5386753911%_))))))) + (_%__match8110881109%_ + (lambda (_%e5387154061%_ + _%hd5387254065%_ + _%tl5387354068%_ + _%e5387454071%_ + _%hd5387554075%_ + _%tl5387654078%_) + (let ((_%L54081%_ _%hd5387554075%_) + (_%L54083%_ _%hd5387254065%_)) (if (or (gx#free-identifier=? - _%L54020%_ + _%L54083%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L54020%_ + _%L54083%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L54020%_ + _%L54083%_ (gx#datum->syntax '#f ':-))) - (_%__kont8102781028%_ - _%L54018%_ - _%L54020%_) + (_%__kont8109081091%_ + _%L54081%_ + _%L54083%_) (if (gx#identifier? - _%hd5380954002%_) + _%hd5387254065%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84125_| - _%hd5380954002%_) + |gerbil/core/contract~Interface[1]#_g84188_| + _%hd5387254065%_) (if (gx#stx-pair? - _%tl5381354015%_) - (let ((_%e5382353942%_ + _%tl5387654078%_) + (let ((_%e5388654005%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5381354015%_))) - (let ((_%tl5382553949%_ + (gx#syntax-e _%tl5387654078%_))) + (let ((_%tl5388854012%_ (let () (declare (not safe)) - (##cdr _%e5382353942%_))) - (_%hd5382453946%_ + (##cdr _%e5388654005%_))) + (_%hd5388754009%_ (let () (declare (not safe)) - (##car _%e5382353942%_)))) - (if (gx#stx-pair? _%tl5382553949%_) - (let ((_%e5382653952%_ - (gx#syntax-e _%tl5382553949%_))) - (let ((_%tl5382853959%_ + (##car _%e5388654005%_)))) + (if (gx#stx-pair? _%tl5388854012%_) + (let ((_%e5388954015%_ + (gx#syntax-e _%tl5388854012%_))) + (let ((_%tl5389154022%_ (let () (declare (not safe)) - (##cdr _%e5382653952%_))) - (_%hd5382753956%_ + (##cdr _%e5388954015%_))) + (_%hd5389054019%_ (let () (declare (not safe)) - (##car _%e5382653952%_)))) - (_%__match8107381074%_ - _%e5380853998%_ - _%hd5380954002%_ - _%tl5381054005%_ - _%e5381154008%_ - _%hd5381254012%_ - _%tl5381354015%_ - _%e5382353942%_ - _%hd5382453946%_ - _%tl5382553949%_ - _%e5382653952%_ - _%hd5382753956%_ - _%tl5382853959%_))) - (let () (declare (not safe)) (_%g5380453848%_))))) - (let () (declare (not safe)) (_%g5380453848%_))) - (let () (declare (not safe)) (_%g5380453848%_))) + (##car _%e5388954015%_)))) + (_%__match8113681137%_ + _%e5387154061%_ + _%hd5387254065%_ + _%tl5387354068%_ + _%e5387454071%_ + _%hd5387554075%_ + _%tl5387654078%_ + _%e5388654005%_ + _%hd5388754009%_ + _%tl5388854012%_ + _%e5388954015%_ + _%hd5389054019%_ + _%tl5389154022%_))) + (let () (declare (not safe)) (_%g5386753911%_))))) + (let () (declare (not safe)) (_%g5386753911%_))) + (let () (declare (not safe)) (_%g5386753911%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5380453848%_)))))))) - (if (gx#stx-pair? _%__stx8102481025%_) - (let ((_%e5380853998%_ + (_%g5386753911%_)))))))) + (if (gx#stx-pair? _%__stx8108781088%_) + (let ((_%e5387154061%_ (gx#syntax-e - _%__stx8102481025%_))) - (let ((_%tl5381054005%_ + _%__stx8108781088%_))) + (let ((_%tl5387354068%_ (let () (declare (not safe)) - (##cdr _%e5380853998%_))) - (_%hd5380954002%_ + (##cdr _%e5387154061%_))) + (_%hd5387254065%_ (let () (declare (not safe)) - (##car _%e5380853998%_)))) - (if (gx#stx-pair? _%tl5381054005%_) - (let ((_%e5381154008%_ + (##car _%e5387154061%_)))) + (if (gx#stx-pair? _%tl5387354068%_) + (let ((_%e5387454071%_ (gx#syntax-e - _%tl5381054005%_))) - (let ((_%tl5381354015%_ + _%tl5387354068%_))) + (let ((_%tl5387654078%_ (let () (declare (not safe)) - (##cdr _%e5381154008%_))) - (_%hd5381254012%_ + (##cdr _%e5387454071%_))) + (_%hd5387554075%_ (let () (declare (not safe)) - (##car _%e5381154008%_)))) - (_%__match8104581046%_ - _%e5380853998%_ - _%hd5380954002%_ - _%tl5381054005%_ - _%e5381154008%_ - _%hd5381254012%_ - _%tl5381354015%_))) + (##car _%e5387454071%_)))) + (_%__match8110881109%_ + _%e5387154061%_ + _%hd5387254065%_ + _%tl5387354068%_ + _%e5387454071%_ + _%hd5387554075%_ + _%tl5387654078%_))) (let () (declare (not safe)) - (_%g5380453848%_))))) + (_%g5386753911%_))))) (let () (declare (not safe)) - (_%g5380453848%_)))))))) - (_%__kont8149181492%_ - (lambda (_%L53582%_) - (let* ((_%__stx8098480985%_ _%b53469%_) - (_%g5359953621%_ + (_%g5386753911%_)))))))) + (_%__kont8155481555%_ + (lambda (_%L53645%_) + (let* ((_%__stx8104781048%_ _%b53532%_) + (_%g5366253684%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8098480985%_)))) - (let ((_%__kont8098780988%_ - (lambda (_%L53713%_) '#f)) - (_%__kont8098980990%_ - (lambda (_%L53669%_ _%L53671%_) '#f)) - (_%__kont8099180992%_ (lambda () '#t))) - (let* ((_%__match8102181022%_ - (lambda (_%e5360753639%_ - _%hd5360853643%_ - _%tl5360953646%_ - _%e5361053649%_ - _%hd5361153653%_ - _%tl5361253656%_ - _%e5361353659%_ - _%hd5361453663%_ - _%tl5361553666%_) - (let ((_%L53669%_ _%hd5361453663%_) - (_%L53671%_ _%hd5361153653%_)) + _%__stx8104781048%_)))) + (let ((_%__kont8105081051%_ + (lambda (_%L53776%_) '#f)) + (_%__kont8105281053%_ + (lambda (_%L53732%_ _%L53734%_) '#f)) + (_%__kont8105481055%_ (lambda () '#t))) + (let* ((_%__match8108481085%_ + (lambda (_%e5367053702%_ + _%hd5367153706%_ + _%tl5367253709%_ + _%e5367353712%_ + _%hd5367453716%_ + _%tl5367553719%_ + _%e5367653722%_ + _%hd5367753726%_ + _%tl5367853729%_) + (let ((_%L53732%_ _%hd5367753726%_) + (_%L53734%_ _%hd5367453716%_)) (if (or (gx#free-identifier=? - _%L53669%_ + _%L53732%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53669%_ + _%L53732%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53669%_ + _%L53732%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098980990%_ - _%L53669%_ - _%L53671%_) - (_%__kont8099180992%_))))) - (_%__match8099981000%_ - (lambda (_%e5360253703%_ - _%hd5360353707%_ - _%tl5360453710%_) - (let ((_%L53713%_ _%hd5360353707%_)) + (_%__kont8105281053%_ + _%L53732%_ + _%L53734%_) + (_%__kont8105481055%_))))) + (_%__match8106281063%_ + (lambda (_%e5366553766%_ + _%hd5366653770%_ + _%tl5366753773%_) + (let ((_%L53776%_ _%hd5366653770%_)) (if (or (gx#free-identifier=? - _%L53713%_ + _%L53776%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L53713%_ + _%L53776%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L53713%_ + _%L53776%_ (gx#datum->syntax '#f ':-))) - (_%__kont8098780988%_ - _%L53713%_) + (_%__kont8105081051%_ + _%L53776%_) (if (gx#identifier? - _%hd5360353707%_) + _%hd5366653770%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84126_| - _%hd5360353707%_) + |gerbil/core/contract~Interface[1]#_g84189_| + _%hd5366653770%_) (if (gx#stx-pair? - _%tl5360453710%_) - (let ((_%e5361053649%_ + _%tl5366753773%_) + (let ((_%e5367353712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5360453710%_))) - (let ((_%tl5361253656%_ + (gx#syntax-e _%tl5366753773%_))) + (let ((_%tl5367553719%_ (let () (declare (not safe)) - (##cdr _%e5361053649%_))) - (_%hd5361153653%_ + (##cdr _%e5367353712%_))) + (_%hd5367453716%_ (let () (declare (not safe)) - (##car _%e5361053649%_)))) - (if (gx#stx-pair? _%tl5361253656%_) - (let ((_%e5361353659%_ - (gx#syntax-e _%tl5361253656%_))) - (let ((_%tl5361553666%_ + (##car _%e5367353712%_)))) + (if (gx#stx-pair? _%tl5367553719%_) + (let ((_%e5367653722%_ + (gx#syntax-e _%tl5367553719%_))) + (let ((_%tl5367853729%_ (let () (declare (not safe)) - (##cdr _%e5361353659%_))) - (_%hd5361453663%_ + (##cdr _%e5367653722%_))) + (_%hd5367753726%_ (let () (declare (not safe)) - (##car _%e5361353659%_)))) - (_%__match8102181022%_ - _%e5360253703%_ - _%hd5360353707%_ - _%tl5360453710%_ - _%e5361053649%_ - _%hd5361153653%_ - _%tl5361253656%_ - _%e5361353659%_ - _%hd5361453663%_ - _%tl5361553666%_))) - (_%__kont8099180992%_)))) - (_%__kont8099180992%_)) - (_%__kont8099180992%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8099180992%_))))))) - (if (gx#stx-pair? _%__stx8098480985%_) - (let ((_%e5360253703%_ + (##car _%e5367653722%_)))) + (_%__match8108481085%_ + _%e5366553766%_ + _%hd5366653770%_ + _%tl5366753773%_ + _%e5367353712%_ + _%hd5367453716%_ + _%tl5367553719%_ + _%e5367653722%_ + _%hd5367753726%_ + _%tl5367853729%_))) + (_%__kont8105481055%_)))) + (_%__kont8105481055%_)) + (_%__kont8105481055%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8105481055%_))))))) + (if (gx#stx-pair? _%__stx8104781048%_) + (let ((_%e5366553766%_ (gx#syntax-e - _%__stx8098480985%_))) - (let ((_%tl5360453710%_ + _%__stx8104781048%_))) + (let ((_%tl5366753773%_ (let () (declare (not safe)) - (##cdr _%e5360253703%_))) - (_%hd5360353707%_ + (##cdr _%e5366553766%_))) + (_%hd5366653770%_ (let () (declare (not safe)) - (##car _%e5360253703%_)))) - (_%__match8099981000%_ - _%e5360253703%_ - _%hd5360353707%_ - _%tl5360453710%_))) - (_%__kont8099180992%_)))))))) - (let ((_%__match8150581506%_ - (lambda (_%e5348155048%_ - _%hd5348255052%_ - _%tl5348355055%_ - _%e5348455058%_ - _%hd5348555062%_ - _%tl5348655065%_) - (let ((_%L55068%_ _%hd5348555062%_) - (_%L55070%_ _%hd5348255052%_)) + (##car _%e5366553766%_)))) + (_%__match8106281063%_ + _%e5366553766%_ + _%hd5366653770%_ + _%tl5366753773%_))) + (_%__kont8105481055%_)))))))) + (let ((_%__match8156881569%_ + (lambda (_%e5354455111%_ + _%hd5354555115%_ + _%tl5354655118%_ + _%e5354755121%_ + _%hd5354855125%_ + _%tl5354955128%_) + (let ((_%L55131%_ _%hd5354855125%_) + (_%L55133%_ _%hd5354555115%_)) (if (or (gx#free-identifier=? - _%L55070%_ + _%L55133%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L55070%_ + _%L55133%_ (gx#datum->syntax '#f ':-))) - (_%__kont8147981480%_ - _%L55068%_ - _%L55070%_) - (if (gx#identifier? _%hd5348255052%_) + (_%__kont8154281543%_ + _%L55131%_ + _%L55133%_) + (if (gx#identifier? _%hd5354555115%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84127_| - _%hd5348255052%_) - (_%__kont8148181482%_ - _%hd5348555062%_) + |gerbil/core/contract~Interface[1]#_g84190_| + _%hd5354555115%_) + (_%__kont8154481545%_ + _%hd5354855125%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84128_| - _%hd5348255052%_) - (_%__kont8148381484%_ - _%hd5348555062%_) + |gerbil/core/contract~Interface[1]#_g84191_| + _%hd5354555115%_) + (_%__kont8154681547%_ + _%hd5354855125%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84129_| - _%hd5348255052%_) + |gerbil/core/contract~Interface[1]#_g84192_| + _%hd5354555115%_) (if (gx#stx-pair? - _%tl5348655065%_) - (let ((_%e5350954291%_ + _%tl5354955128%_) + (let ((_%e5357254354%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5348655065%_))) - (let ((_%tl5351154298%_ + _%tl5354955128%_))) + (let ((_%tl5357454361%_ (let () (declare (not safe)) - (##cdr _%e5350954291%_))) - (_%hd5351054295%_ + (##cdr _%e5357254354%_))) + (_%hd5357354358%_ (let () (declare (not safe)) - (##car _%e5350954291%_)))) - (if (gx#identifier? _%hd5351054295%_) + (##car _%e5357254354%_)))) + (if (gx#identifier? _%hd5357354358%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84130_| - _%hd5351054295%_) - (if (gx#stx-pair? _%tl5351154298%_) - (let ((_%e5351254301%_ - (gx#syntax-e _%tl5351154298%_))) - (let ((_%tl5351454308%_ + |gerbil/core/contract~Interface[1]#_g84193_| + _%hd5357354358%_) + (if (gx#stx-pair? _%tl5357454361%_) + (let ((_%e5357554364%_ + (gx#syntax-e _%tl5357454361%_))) + (let ((_%tl5357754371%_ (let () (declare (not safe)) - (##cdr _%e5351254301%_))) - (_%hd5351354305%_ + (##cdr _%e5357554364%_))) + (_%hd5357654368%_ (let () (declare (not safe)) - (##car _%e5351254301%_)))) - (_%__kont8148581486%_ - _%hd5351354305%_ - _%hd5348555062%_))) - (_%__kont8149181492%_ _%hd5348555062%_)) + (##car _%e5357554364%_)))) + (_%__kont8154881549%_ + _%hd5357654368%_ + _%hd5354855125%_))) + (_%__kont8155481555%_ _%hd5354855125%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84131_| - _%hd5351054295%_) - (if (gx#stx-pair? _%tl5351154298%_) - (let ((_%e5352654082%_ - (gx#syntax-e _%tl5351154298%_))) - (let ((_%tl5352854089%_ + |gerbil/core/contract~Interface[1]#_g84194_| + _%hd5357354358%_) + (if (gx#stx-pair? _%tl5357454361%_) + (let ((_%e5358954145%_ + (gx#syntax-e _%tl5357454361%_))) + (let ((_%tl5359154152%_ (let () (declare (not safe)) - (##cdr _%e5352654082%_))) - (_%hd5352754086%_ + (##cdr _%e5358954145%_))) + (_%hd5359054149%_ (let () (declare (not safe)) - (##car _%e5352654082%_)))) - (_%__kont8148781488%_ - _%hd5352754086%_ - _%hd5348555062%_))) - (_%__kont8149181492%_ _%hd5348555062%_)) + (##car _%e5358954145%_)))) + (_%__kont8155081551%_ + _%hd5359054149%_ + _%hd5354855125%_))) + (_%__kont8155481555%_ _%hd5354855125%_)) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84132_| - _%hd5351054295%_) - (if (gx#stx-pair? _%tl5351154298%_) - (let ((_%e5354053773%_ + |gerbil/core/contract~Interface[1]#_g84195_| + _%hd5357354358%_) + (if (gx#stx-pair? _%tl5357454361%_) + (let ((_%e5360353836%_ (gx#syntax-e - _%tl5351154298%_))) - (let ((_%tl5354253780%_ + _%tl5357454361%_))) + (let ((_%tl5360553843%_ (let () (declare (not safe)) - (##cdr _%e5354053773%_))) - (_%hd5354153777%_ + (##cdr _%e5360353836%_))) + (_%hd5360453840%_ (let () (declare (not safe)) - (##car _%e5354053773%_)))) - (_%__kont8148981490%_ - _%hd5354153777%_ - _%hd5348555062%_))) - (_%__kont8149181492%_ - _%hd5348555062%_)) - (_%__kont8149181492%_ _%hd5348555062%_)))) - (_%__kont8149181492%_ _%hd5348555062%_)))) - (_%__kont8149181492%_ _%hd5348555062%_)) + (##car _%e5360353836%_)))) + (_%__kont8155281553%_ + _%hd5360453840%_ + _%hd5354855125%_))) + (_%__kont8155481555%_ + _%hd5354855125%_)) + (_%__kont8155481555%_ _%hd5354855125%_)))) + (_%__kont8155481555%_ _%hd5354855125%_)))) + (_%__kont8155481555%_ _%hd5354855125%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g5347753555%_))))) + (_%g5354053618%_))))) (let () (declare (not safe)) - (_%g5347753555%_)))))))) - (if (gx#stx-pair? _%__stx8147681477%_) - (let ((_%e5348155048%_ - (gx#syntax-e _%__stx8147681477%_))) - (let ((_%tl5348355055%_ + (_%g5354053618%_)))))))) + (if (gx#stx-pair? _%__stx8153981540%_) + (let ((_%e5354455111%_ + (gx#syntax-e _%__stx8153981540%_))) + (let ((_%tl5354655118%_ (let () (declare (not safe)) - (##cdr _%e5348155048%_))) - (_%hd5348255052%_ + (##cdr _%e5354455111%_))) + (_%hd5354555115%_ (let () (declare (not safe)) - (##car _%e5348155048%_)))) - (if (gx#stx-pair? _%tl5348355055%_) - (let ((_%e5348455058%_ - (gx#syntax-e _%tl5348355055%_))) - (let ((_%tl5348655065%_ + (##car _%e5354455111%_)))) + (if (gx#stx-pair? _%tl5354655118%_) + (let ((_%e5354755121%_ + (gx#syntax-e _%tl5354655118%_))) + (let ((_%tl5354955128%_ (let () (declare (not safe)) - (##cdr _%e5348455058%_))) - (_%hd5348555062%_ + (##cdr _%e5354755121%_))) + (_%hd5354855125%_ (let () (declare (not safe)) - (##car _%e5348455058%_)))) - (_%__match8150581506%_ - _%e5348155048%_ - _%hd5348255052%_ - _%tl5348355055%_ - _%e5348455058%_ - _%hd5348555062%_ - _%tl5348655065%_))) + (##car _%e5354755121%_)))) + (_%__match8156881569%_ + _%e5354455111%_ + _%hd5354555115%_ + _%tl5354655118%_ + _%e5354755121%_ + _%hd5354855125%_ + _%tl5354955128%_))) (let () (declare (not safe)) - (_%g5347753555%_))))) + (_%g5354053618%_))))) (let () (declare (not safe)) - (_%g5347753555%_))))))) - _%left53463%_ - _%right53465%_))) + (_%g5354053618%_))))))) + _%left53526%_ + _%right53528%_))) (define |gerbil/core/contract~Interface[1]#contract-type-subtype?| - (lambda (_%type-a53366%_ _%type-b53368%_) - (if (not _%type-a53366%_) - (not _%type-b53368%_) - (if (not _%type-b53368%_) + (lambda (_%type-a53429%_ _%type-b53431%_) + (if (not _%type-a53429%_) + (not _%type-b53431%_) + (if (not _%type-b53431%_) '#f - (if (gx#free-identifier=? _%type-a53366%_ _%type-b53368%_) + (if (gx#free-identifier=? _%type-a53429%_ _%type-b53431%_) '#t - (let _%again53378%_ ((_%klass-a53381%_ + (let _%again53441%_ ((_%klass-a53444%_ (gx#syntax-local-value - _%type-a53366%_)) - (_%klass-b53383%_ + _%type-a53429%_)) + (_%klass-b53446%_ (gx#syntax-local-value - _%type-b53368%_))) - (if (eq? _%klass-a53381%_ _%klass-b53383%_) + _%type-b53431%_))) + (if (eq? _%klass-a53444%_ _%klass-b53446%_) '#t (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a53381%_)) + _%klass-a53444%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b53383%_)) - (if (eq? (let ((__obj83931 _%klass-a53381%_)) + _%klass-b53446%_)) + (if (eq? (let ((__obj83994 _%klass-a53444%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83931 + __obj83994 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83931 + __obj83994 '1 '#f '#f)) (unchecked-slot-ref - __obj83931 + __obj83994 'id))) - (let ((__obj83932 _%klass-b53383%_)) + (let ((__obj83995 _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83932 + __obj83995 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83932 + __obj83995 '1 '#f '#f)) (unchecked-slot-ref - __obj83932 + __obj83995 'id)))) '#t - (if (member _%type-b53368%_ + (if (member _%type-b53431%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a53381%_)) + _%klass-a53444%_)) gx#free-identifier=?) '#t '#f)) @@ -5598,51 +5598,51 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53383%_)) - (let ((_%$e53399%_ + _%klass-b53446%_)) + (let ((_%$e53462%_ (gx#syntax-local-value - (let ((__obj83929 - _%klass-b53383%_)) + (let ((__obj83992 + _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83929 + __obj83992 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83929 + __obj83992 '1 '#f '#f)) (unchecked-slot-ref - __obj83929 + __obj83992 'identifier))) false))) - (if _%$e53399%_ - ((lambda (_%klass-b53403%_) - (_%again53378%_ - _%klass-a53381%_ - _%klass-b53403%_)) - _%$e53399%_) + (if _%$e53462%_ + ((lambda (_%klass-b53466%_) + (_%again53441%_ + _%klass-a53444%_ + _%klass-b53466%_)) + _%$e53462%_) (if (gx#free-identifier=? - _%type-a53366%_ - (let ((__obj83930 - _%klass-b53383%_)) + _%type-a53429%_ + (let ((__obj83993 + _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83930 + __obj83993 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83930 + __obj83993 '1 '#f '#f)) (unchecked-slot-ref - __obj83930 + __obj83993 'identifier)))) '#t '#f))) @@ -5651,70 +5651,70 @@ (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a53381%_)) + _%klass-a53444%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b53383%_)) - (if (member _%type-b53368%_ + _%klass-b53446%_)) + (if (member _%type-b53431%_ (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a53381%_))) + _%klass-a53444%_))) '#t '#f) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53383%_)) - (let ((_%$e53422%_ + _%klass-b53446%_)) + (let ((_%$e53485%_ (gx#syntax-local-value - (let ((__obj83927 - _%klass-b53383%_)) + (let ((__obj83990 + _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83927 + __obj83990 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83927 + __obj83990 '1 '#f '#f)) (unchecked-slot-ref - __obj83927 + __obj83990 'identifier))) false))) - (if _%$e53422%_ - ((lambda (_%klass-b53426%_) - (_%again53378%_ - _%klass-a53381%_ - _%klass-b53426%_)) - _%$e53422%_) + (if _%$e53485%_ + ((lambda (_%klass-b53489%_) + (_%again53441%_ + _%klass-a53444%_ + _%klass-b53489%_)) + _%$e53485%_) (if (gx#free-identifier=? - _%type-a53366%_ - (let ((__obj83928 - _%klass-b53383%_)) + _%type-a53429%_ + (let ((__obj83991 + _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83928 + __obj83991 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83928 + __obj83991 '1 '#f '#f)) (unchecked-slot-ref - __obj83928 + __obj83991 'identifier)))) '#t '#f))) @@ -5723,1780 +5723,1780 @@ (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a53381%_)) - (let ((_%$e53437%_ + _%klass-a53444%_)) + (let ((_%$e53500%_ (gx#syntax-local-value - (let ((__obj83922 - _%klass-a53381%_)) + (let ((__obj83985 + _%klass-a53444%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83922 + __obj83985 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83922 + __obj83985 '1 '#f '#f)) (unchecked-slot-ref - __obj83922 + __obj83985 'identifier))) false))) - (if _%$e53437%_ - ((lambda (_%klass-a53441%_) - (_%again53378%_ - _%klass-a53441%_ - _%klass-b53383%_)) - _%$e53437%_) + (if _%$e53500%_ + ((lambda (_%klass-a53504%_) + (_%again53441%_ + _%klass-a53504%_ + _%klass-b53446%_)) + _%$e53500%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b53383%_)) - (let ((_%$e53446%_ + _%klass-b53446%_)) + (let ((_%$e53509%_ (gx#syntax-local-value - (let ((__obj83924 - _%klass-b53383%_)) + (let ((__obj83987 + _%klass-b53446%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83924 + __obj83987 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83924 '1 '#f '#f)) - (unchecked-slot-ref __obj83924 'identifier))) + (##unchecked-structure-ref __obj83987 '1 '#f '#f)) + (unchecked-slot-ref __obj83987 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e53446%_ - ((lambda (_%klass-b53450%_) - (_%again53378%_ - _%klass-a53381%_ - _%klass-b53450%_)) - _%$e53446%_) + (if _%$e53509%_ + ((lambda (_%klass-b53513%_) + (_%again53441%_ + _%klass-a53444%_ + _%klass-b53513%_)) + _%$e53509%_) (if (gx#free-identifier=? - (let ((__obj83925 + (let ((__obj83988 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a53381%_)) + _%klass-a53444%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83925 + __obj83988 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83925 '1 '#f '#f)) - (unchecked-slot-ref __obj83925 'identifier))) - (let ((__obj83926 _%klass-b53383%_)) + (##unchecked-structure-ref __obj83988 '1 '#f '#f)) + (unchecked-slot-ref __obj83988 'identifier))) + (let ((__obj83989 _%klass-b53446%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83926 + __obj83989 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83926 '1 '#f '#f)) - (unchecked-slot-ref __obj83926 'identifier)))) + (##unchecked-structure-ref __obj83989 '1 '#f '#f)) + (unchecked-slot-ref __obj83989 'identifier)))) '#t '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - _%type-b53368%_ - (let ((__obj83923 - _%klass-a53381%_)) + _%type-b53431%_ + (let ((__obj83986 + _%klass-a53444%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83923 + __obj83986 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83923 + __obj83986 '1 '#f '#f)) (unchecked-slot-ref - __obj83923 + __obj83986 'identifier)))) '#t '#f)))) '#f)))))))))) (define |gerbil/core/contract~Interface[1]#signature-type-contract| - (lambda (_%signature52971%_) - (let _%loop52974%_ ((_%rest52977%_ _%signature52971%_) - (_%positionals52979%_ '()) - (_%keywords52980%_ '())) - (let* ((_%__stx8165281653%_ (gx#datum->syntax '#f 'rest)) - (_%g5298853055%_ + (lambda (_%signature53034%_) + (let _%loop53037%_ ((_%rest53040%_ _%signature53034%_) + (_%positionals53042%_ '()) + (_%keywords53043%_ '())) + (let* ((_%__stx8171581716%_ (gx#datum->syntax '#f 'rest)) + (_%g5305153118%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8165281653%_)))) - (let ((_%__kont8165581656%_ - (lambda (_%L53349%_ _%L53351%_) - (_%loop52974%_ - _%L53349%_ + _%__stx8171581716%_)))) + (let ((_%__kont8171881719%_ + (lambda (_%L53412%_ _%L53414%_) + (_%loop53037%_ + _%L53412%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52979%_) - _%keywords52980%_))) - (_%__kont8165781658%_ - (lambda (_%L53313%_ _%L53315%_ _%L53316%_) - (_%loop52974%_ - _%L53313%_ + _%positionals53042%_) + _%keywords53043%_))) + (_%__kont8172081721%_ + (lambda (_%L53376%_ _%L53378%_ _%L53379%_) + (_%loop53037%_ + _%L53376%_ (cons (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())) - _%positionals52979%_) - _%keywords52980%_))) - (_%__kont8165981660%_ - (lambda (_%L53263%_ _%L53265%_) - (_%loop52974%_ + _%positionals53042%_) + _%keywords53043%_))) + (_%__kont8172281723%_ + (lambda (_%L53326%_ _%L53328%_) + (_%loop53037%_ (gx#datum->syntax '#f 'rest) - (cons _%L53263%_ _%positionals52979%_) - _%keywords52980%_))) - (_%__kont8166181662%_ - (lambda (_%L53229%_ _%L53231%_ _%L53232%_) - (_%loop52974%_ - _%L53229%_ - _%positionals52979%_ - (cons (cons (gx#stx-e _%L53232%_) - (cons _%L53231%_ + (cons _%L53326%_ _%positionals53042%_) + _%keywords53043%_))) + (_%__kont8172481725%_ + (lambda (_%L53292%_ _%L53294%_ _%L53295%_) + (_%loop53037%_ + _%L53292%_ + _%positionals53042%_ + (cons (cons (gx#stx-e _%L53295%_) + (cons _%L53294%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52980%_)))) - (_%__kont8166381664%_ - (lambda (_%L53179%_ _%L53181%_ _%L53182%_ _%L53183%_) - (_%loop52974%_ - _%L53179%_ - _%positionals52979%_ - (cons (cons (gx#stx-e _%L53183%_) - (cons _%L53182%_ + _%keywords53043%_)))) + (_%__kont8172681727%_ + (lambda (_%L53242%_ _%L53244%_ _%L53245%_ _%L53246%_) + (_%loop53037%_ + _%L53242%_ + _%positionals53042%_ + (cons (cons (gx#stx-e _%L53246%_) + (cons _%L53245%_ (cons (gx#datum->syntax '#f ':-) (cons (gx#datum->syntax '#f ':t) '())))) - _%keywords52980%_)))) - (_%__kont8166581666%_ - (lambda (_%L53107%_ _%L53109%_ _%L53110%_ _%L53111%_) - (_%loop52974%_ - _%L53107%_ - _%positionals52979%_ - (cons (cons (gx#stx-e _%L53111%_) - (cons _%L53110%_ _%L53109%_)) - _%keywords52980%_)))) - (_%__kont8166781668%_ + _%keywords53043%_)))) + (_%__kont8172881729%_ + (lambda (_%L53170%_ _%L53172%_ _%L53173%_ _%L53174%_) + (_%loop53037%_ + _%L53170%_ + _%positionals53042%_ + (cons (cons (gx#stx-e _%L53174%_) + (cons _%L53173%_ _%L53172%_)) + _%keywords53043%_)))) + (_%__kont8173081731%_ (lambda () - (values (reverse! _%positionals52979%_) + (values (reverse! _%positionals53042%_) (list-sort - (lambda (_%a53066%_ _%b53068%_) + (lambda (_%a53129%_ _%b53131%_) (|gerbil/core/contract~Interface[1]#keyword= __tmp84133 '2)) - (let ((_%__splice8176981770%_ + (##fx>= __tmp84196 '2)) + (let ((_%__splice8183281833%_ (gx#syntax-split-splice - _%hd5263452892%_ + _%hd5269752955%_ '2))) - (let ((_%tl5264952817%_ + (let ((_%tl5271252880%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '1))) - (_%target5264752814%_ + (_%target5271052877%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '0)))) - (if (gx#stx-pair? _%tl5264952817%_) - (let ((_%e5265452820%_ + (if (gx#stx-pair? _%tl5271252880%_) + (let ((_%e5271752883%_ (gx#syntax-e - _%tl5264952817%_))) - (let ((_%tl5265652827%_ + _%tl5271252880%_))) + (let ((_%tl5271952890%_ (let () (declare (not safe)) - (##cdr _%e5265452820%_))) - (_%hd5265552824%_ + (##cdr _%e5271752883%_))) + (_%hd5271852887%_ (let () (declare (not safe)) - (##car _%e5265452820%_)))) + (##car _%e5271752883%_)))) (if (gx#identifier? - _%hd5265552824%_) + _%hd5271852887%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84134_| - _%hd5265552824%_) + |gerbil/core/contract~Interface[1]#_g84197_| + _%hd5271852887%_) (if (gx#stx-pair? - _%tl5265652827%_) - (let ((_%e5265752830%_ + _%tl5271952890%_) + (let ((_%e5272052893%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5265652827%_))) - (let ((_%tl5265952837%_ + (gx#syntax-e _%tl5271952890%_))) + (let ((_%tl5272252900%_ (let () (declare (not safe)) - (##cdr _%e5265752830%_))) - (_%hd5265852834%_ + (##cdr _%e5272052893%_))) + (_%hd5272152897%_ (let () (declare (not safe)) - (##car _%e5265752830%_)))) - (if (gx#stx-null? _%tl5265952837%_) - (_%__match8183781838%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%__splice8176981770%_ - _%target5264752814%_ - _%tl5264952817%_ - _%e5265452820%_ - _%hd5265552824%_ - _%tl5265652827%_ - _%e5265752830%_ - _%hd5265852834%_ - _%tl5265952837%_) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5263352888%_ - _%hd5263452892%_ - _%tl5263552895%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))))) - (_%__match8178581786%_ - (lambda (_%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_) - (let ((_%L52954%_ _%tl5262952951%_) - (_%L52956%_ _%hd5262852948%_)) - (if (gx#identifier? _%L52956%_) - (_%__kont8176381764%_ _%L52954%_ _%L52956%_) - (if (gx#stx-pair? _%hd5262852948%_) - (let ((_%e5263652898%_ - (gx#syntax-e _%hd5262852948%_))) - (let ((_%tl5263852905%_ + (##car _%e5272052893%_)))) + (if (gx#stx-null? _%tl5272252900%_) + (_%__match8190081901%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%__splice8183281833%_ + _%target5271052877%_ + _%tl5271252880%_ + _%e5271752883%_ + _%hd5271852887%_ + _%tl5271952890%_ + _%e5272052893%_ + _%hd5272152897%_ + _%tl5272252900%_) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269652951%_ + _%hd5269752955%_ + _%tl5269852958%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))))) + (_%__match8184881849%_ + (lambda (_%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_) + (let ((_%L53017%_ _%tl5269253014%_) + (_%L53019%_ _%hd5269153011%_)) + (if (gx#identifier? _%L53019%_) + (_%__kont8182681827%_ _%L53017%_ _%L53019%_) + (if (gx#stx-pair? _%hd5269153011%_) + (let ((_%e5269952961%_ + (gx#syntax-e _%hd5269153011%_))) + (let ((_%tl5270152968%_ (let () (declare (not safe)) - (##cdr _%e5263652898%_))) - (_%hd5263752902%_ + (##cdr _%e5269952961%_))) + (_%hd5270052965%_ (let () (declare (not safe)) - (##car _%e5263652898%_)))) - (if (gx#stx-pair? _%tl5263852905%_) - (let ((_%e5263952908%_ + (##car _%e5269952961%_)))) + (if (gx#stx-pair? _%tl5270152968%_) + (let ((_%e5270252971%_ (gx#syntax-e - _%tl5263852905%_))) - (let ((_%tl5264152915%_ + _%tl5270152968%_))) + (let ((_%tl5270452978%_ (let () (declare (not safe)) - (##cdr _%e5263952908%_))) - (_%hd5264052912%_ + (##cdr _%e5270252971%_))) + (_%hd5270352975%_ (let () (declare (not safe)) - (##car _%e5263952908%_)))) + (##car _%e5270252971%_)))) (if (gx#stx-null? - _%tl5264152915%_) - (_%__match8180581806%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_ - _%e5263952908%_ - _%hd5264052912%_ - _%tl5264152915%_) + _%tl5270452978%_) + (_%__match8186881869%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_ + _%e5270252971%_ + _%hd5270352975%_ + _%tl5270452978%_) (if (gx#stx-pair/null? - _%hd5262852948%_) - (if (let ((__tmp84135 + _%hd5269153011%_) + (if (let ((__tmp84198 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%hd5262852948%_))) + (gx#stx-length _%hd5269153011%_))) (declare (not safe)) - (##fx>= __tmp84135 '2)) - (let ((_%__splice8176981770%_ - (gx#syntax-split-splice _%hd5262852948%_ '2))) - (let ((_%tl5264952817%_ + (##fx>= __tmp84198 '2)) + (let ((_%__splice8183281833%_ + (gx#syntax-split-splice _%hd5269153011%_ '2))) + (let ((_%tl5271252880%_ (let () (declare (not safe)) - (##vector-ref _%__splice8176981770%_ '1))) - (_%target5264752814%_ + (##vector-ref _%__splice8183281833%_ '1))) + (_%target5271052877%_ (let () (declare (not safe)) - (##vector-ref _%__splice8176981770%_ '0)))) - (if (gx#stx-pair? _%tl5264952817%_) - (let ((_%e5265452820%_ - (gx#syntax-e _%tl5264952817%_))) - (let ((_%tl5265652827%_ + (##vector-ref _%__splice8183281833%_ '0)))) + (if (gx#stx-pair? _%tl5271252880%_) + (let ((_%e5271752883%_ + (gx#syntax-e _%tl5271252880%_))) + (let ((_%tl5271952890%_ (let () (declare (not safe)) - (##cdr _%e5265452820%_))) - (_%hd5265552824%_ + (##cdr _%e5271752883%_))) + (_%hd5271852887%_ (let () (declare (not safe)) - (##car _%e5265452820%_)))) - (if (gx#identifier? _%hd5265552824%_) + (##car _%e5271752883%_)))) + (if (gx#identifier? _%hd5271852887%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84134_| - _%hd5265552824%_) - (if (gx#stx-pair? _%tl5265652827%_) - (let ((_%e5265752830%_ + |gerbil/core/contract~Interface[1]#_g84197_| + _%hd5271852887%_) + (if (gx#stx-pair? _%tl5271952890%_) + (let ((_%e5272052893%_ (gx#syntax-e - _%tl5265652827%_))) - (let ((_%tl5265952837%_ + _%tl5271952890%_))) + (let ((_%tl5272252900%_ (let () (declare (not safe)) - (##cdr _%e5265752830%_))) - (_%hd5265852834%_ + (##cdr _%e5272052893%_))) + (_%hd5272152897%_ (let () (declare (not safe)) - (##car _%e5265752830%_)))) + (##car _%e5272052893%_)))) (if (gx#stx-null? - _%tl5265952837%_) - (_%__match8183781838%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%__splice8176981770%_ - _%target5264752814%_ - _%tl5264952817%_ - _%e5265452820%_ - _%hd5265552824%_ - _%tl5265652827%_ - _%e5265752830%_ - _%hd5265852834%_ - _%tl5265952837%_) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_))))) + _%tl5272252900%_) + (_%__match8190081901%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%__splice8183281833%_ + _%target5271052877%_ + _%tl5271252880%_ + _%e5271752883%_ + _%hd5271852887%_ + _%tl5271952890%_ + _%e5272052893%_ + _%hd5272152897%_ + _%tl5272252900%_) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd5262852948%_) - (if (let ((__tmp84136 + _%hd5269153011%_) + (if (let ((__tmp84199 (gx#stx-length - _%hd5262852948%_))) + _%hd5269153011%_))) (declare (not safe)) - (##fx>= __tmp84136 '2)) - (let ((_%__splice8176981770%_ + (##fx>= __tmp84199 '2)) + (let ((_%__splice8183281833%_ (gx#syntax-split-splice - _%hd5262852948%_ + _%hd5269153011%_ '2))) - (let ((_%tl5264952817%_ + (let ((_%tl5271252880%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '1))) - (_%target5264752814%_ + (_%target5271052877%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '0)))) (if (gx#stx-pair? - _%tl5264952817%_) - (let ((_%e5265452820%_ + _%tl5271252880%_) + (let ((_%e5271752883%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl5264952817%_))) - (let ((_%tl5265652827%_ + (gx#syntax-e _%tl5271252880%_))) + (let ((_%tl5271952890%_ (let () (declare (not safe)) - (##cdr _%e5265452820%_))) - (_%hd5265552824%_ + (##cdr _%e5271752883%_))) + (_%hd5271852887%_ (let () (declare (not safe)) - (##car _%e5265452820%_)))) - (if (gx#identifier? _%hd5265552824%_) + (##car _%e5271752883%_)))) + (if (gx#identifier? _%hd5271852887%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84134_| - _%hd5265552824%_) - (if (gx#stx-pair? _%tl5265652827%_) - (let ((_%e5265752830%_ - (gx#syntax-e _%tl5265652827%_))) - (let ((_%tl5265952837%_ + |gerbil/core/contract~Interface[1]#_g84197_| + _%hd5271852887%_) + (if (gx#stx-pair? _%tl5271952890%_) + (let ((_%e5272052893%_ + (gx#syntax-e _%tl5271952890%_))) + (let ((_%tl5272252900%_ (let () (declare (not safe)) - (##cdr _%e5265752830%_))) - (_%hd5265852834%_ + (##cdr _%e5272052893%_))) + (_%hd5272152897%_ (let () (declare (not safe)) - (##car _%e5265752830%_)))) - (if (gx#stx-null? _%tl5265952837%_) - (_%__match8183781838%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%__splice8176981770%_ - _%target5264752814%_ - _%tl5264952817%_ - _%e5265452820%_ - _%hd5265552824%_ - _%tl5265652827%_ - _%e5265752830%_ - _%hd5265852834%_ - _%tl5265952837%_) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_)) - (_%__match8184981850%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5263652898%_ - _%hd5263752902%_ - _%tl5263852905%_))))) - (if (gx#stx-pair/null? _%hd5262852948%_) - (if (let ((__tmp84137 + (##car _%e5272052893%_)))) + (if (gx#stx-null? _%tl5272252900%_) + (_%__match8190081901%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%__splice8183281833%_ + _%target5271052877%_ + _%tl5271252880%_ + _%e5271752883%_ + _%hd5271852887%_ + _%tl5271952890%_ + _%e5272052893%_ + _%hd5272152897%_ + _%tl5272252900%_) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_)) + (_%__match8191281913%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5269952961%_ + _%hd5270052965%_ + _%tl5270152968%_))))) + (if (gx#stx-pair/null? _%hd5269153011%_) + (if (let ((__tmp84200 (gx#stx-length - _%hd5262852948%_))) + _%hd5269153011%_))) (declare (not safe)) - (##fx>= __tmp84137 '2)) - (let ((_%__splice8176981770%_ + (##fx>= __tmp84200 '2)) + (let ((_%__splice8183281833%_ (gx#syntax-split-splice - _%hd5262852948%_ + _%hd5269153011%_ '2))) - (let ((_%tl5264952817%_ + (let ((_%tl5271252880%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '1))) - (_%target5264752814%_ + (_%target5271052877%_ (let () (declare (not safe)) (##vector-ref - _%__splice8176981770%_ + _%__splice8183281833%_ '0)))) (if (gx#stx-pair? - _%tl5264952817%_) - (let ((_%e5265452820%_ + _%tl5271252880%_) + (let ((_%e5271752883%_ (gx#syntax-e - _%tl5264952817%_))) - (let ((_%tl5265652827%_ + _%tl5271252880%_))) + (let ((_%tl5271952890%_ (let () (declare (not safe)) - (##cdr _%e5265452820%_))) - (_%hd5265552824%_ + (##cdr _%e5271752883%_))) + (_%hd5271852887%_ (let () (declare (not safe)) - (##car _%e5265452820%_)))) + (##car _%e5271752883%_)))) (if (gx#identifier? - _%hd5265552824%_) + _%hd5271852887%_) (if (gx#free-identifier=? - |gerbil/core/contract~Interface[1]#_g84134_| - _%hd5265552824%_) + |gerbil/core/contract~Interface[1]#_g84197_| + _%hd5271852887%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl5265652827%_) - (let ((_%e5265752830%_ - (gx#syntax-e _%tl5265652827%_))) - (let ((_%tl5265952837%_ + _%tl5271952890%_) + (let ((_%e5272052893%_ + (gx#syntax-e _%tl5271952890%_))) + (let ((_%tl5272252900%_ (let () (declare (not safe)) - (##cdr _%e5265752830%_))) - (_%hd5265852834%_ + (##cdr _%e5272052893%_))) + (_%hd5272152897%_ (let () (declare (not safe)) - (##car _%e5265752830%_)))) - (if (gx#stx-null? _%tl5265952837%_) - (_%__match8183781838%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%__splice8176981770%_ - _%target5264752814%_ - _%tl5264952817%_ - _%e5265452820%_ - _%hd5265552824%_ - _%tl5265652827%_ - _%e5265752830%_ - _%hd5265852834%_ - _%tl5265952837%_) - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ - (gx#syntax-e _%tl5262952951%_))) - (let ((_%tl5267552737%_ + (##car _%e5272052893%_)))) + (if (gx#stx-null? _%tl5272252900%_) + (_%__match8190081901%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%__splice8183281833%_ + _%target5271052877%_ + _%tl5271252880%_ + _%e5271752883%_ + _%hd5271852887%_ + _%tl5271952890%_ + _%e5272052893%_ + _%hd5272152897%_ + _%tl5272252900%_) + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ + (gx#syntax-e _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) (let () (declare (not safe)) - (_%g5262152713%_)))))) - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ - (gx#syntax-e _%tl5262952951%_))) - (let ((_%tl5267552737%_ + (_%g5268452776%_)))))) + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ + (gx#syntax-e _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) - (let () (declare (not safe)) (_%g5262152713%_)))) - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ - (gx#syntax-e _%tl5262952951%_))) - (let ((_%tl5267552737%_ + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) + (let () (declare (not safe)) (_%g5268452776%_)))) + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ + (gx#syntax-e _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) - (let () (declare (not safe)) (_%g5262152713%_)))) - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ (gx#syntax-e _%tl5262952951%_))) - (let ((_%tl5267552737%_ + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) + (let () (declare (not safe)) (_%g5268452776%_)))) + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ (gx#syntax-e _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) - (let () (declare (not safe)) (_%g5262152713%_)))))) + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) + (let () (declare (not safe)) (_%g5268452776%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl5262952951%_) - (let ((_%e5267352730%_ + _%tl5269253014%_) + (let ((_%e5273652793%_ (gx#syntax-e - _%tl5262952951%_))) - (let ((_%tl5267552737%_ + _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ - (let () (declare (not safe)) (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) - (let () (declare (not safe)) (_%g5262152713%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ + (let () (declare (not safe)) (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) + (let () (declare (not safe)) (_%g5268452776%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ (gx#syntax-e - _%tl5262952951%_))) - (let ((_%tl5267552737%_ + _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) (let () (declare (not safe)) - (_%g5262152713%_)))) - (if (gx#stx-pair? _%tl5262952951%_) - (let ((_%e5267352730%_ + (_%g5268452776%_)))) + (if (gx#stx-pair? _%tl5269253014%_) + (let ((_%e5273652793%_ (gx#syntax-e - _%tl5262952951%_))) - (let ((_%tl5267552737%_ + _%tl5269253014%_))) + (let ((_%tl5273852800%_ (let () (declare (not safe)) - (##cdr _%e5267352730%_))) - (_%hd5267452734%_ + (##cdr _%e5273652793%_))) + (_%hd5273752797%_ (let () (declare (not safe)) - (##car _%e5267352730%_)))) - (_%__match8186181862%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_ - _%e5267352730%_ - _%hd5267452734%_ - _%tl5267552737%_))) + (##car _%e5273652793%_)))) + (_%__match8192481925%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_ + _%e5273652793%_ + _%hd5273752797%_ + _%tl5273852800%_))) (let () (declare (not safe)) - (_%g5262152713%_)))))))))) - (if (gx#stx-pair? _%__stx8176081761%_) - (let ((_%e5262752944%_ (gx#syntax-e _%__stx8176081761%_))) - (let ((_%tl5262952951%_ + (_%g5268452776%_)))))))))) + (if (gx#stx-pair? _%__stx8182381824%_) + (let ((_%e5269053007%_ (gx#syntax-e _%__stx8182381824%_))) + (let ((_%tl5269253014%_ (let () (declare (not safe)) - (##cdr _%e5262752944%_))) - (_%hd5262852948%_ + (##cdr _%e5269053007%_))) + (_%hd5269153011%_ (let () (declare (not safe)) - (##car _%e5262752944%_)))) - (_%__match8178581786%_ - _%e5262752944%_ - _%hd5262852948%_ - _%tl5262952951%_))) - (let () (declare (not safe)) (_%g5262152713%_))))))))) + (##car _%e5269053007%_)))) + (_%__match8184881849%_ + _%e5269053007%_ + _%hd5269153011%_ + _%tl5269253014%_))) + (let () (declare (not safe)) (_%g5268452776%_))))))))) (define |gerbil/core/contract~Interface[1]#signature-keywords| - (lambda (_%spec52431%_) - (let _%lp52434%_ ((_%rest52437%_ _%spec52431%_) - (_%keywords52439%_ '())) - (let* ((_%__stx8186681867%_ _%rest52437%_) - (_%g5244452472%_ + (lambda (_%spec52494%_) + (let _%lp52497%_ ((_%rest52500%_ _%spec52494%_) + (_%keywords52502%_ '())) + (let* ((_%__stx8192981930%_ _%rest52500%_) + (_%g5250752535%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8186681867%_)))) - (let ((_%__kont8186981870%_ - (lambda (_%L52589%_ _%L52591%_) - (_%lp52434%_ _%L52589%_ _%keywords52439%_))) - (_%__kont8187181872%_ - (lambda (_%L52557%_ _%L52559%_) - (_%lp52434%_ _%L52557%_ _%keywords52439%_))) - (_%__kont8187381874%_ - (lambda (_%L52510%_ _%L52512%_) - (_%lp52434%_ - _%L52510%_ - (cons (gx#stx-e _%L52512%_) _%keywords52439%_)))) - (_%__kont8187581876%_ + _%__stx8192981930%_)))) + (let ((_%__kont8193281933%_ + (lambda (_%L52652%_ _%L52654%_) + (_%lp52497%_ _%L52652%_ _%keywords52502%_))) + (_%__kont8193481935%_ + (lambda (_%L52620%_ _%L52622%_) + (_%lp52497%_ _%L52620%_ _%keywords52502%_))) + (_%__kont8193681937%_ + (lambda (_%L52573%_ _%L52575%_) + (_%lp52497%_ + _%L52573%_ + (cons (gx#stx-e _%L52575%_) _%keywords52502%_)))) + (_%__kont8193881939%_ (lambda () (list-sort |gerbil/core/contract~Interface[1]#keywordstring (gx#stx-e _%x52427%_))) - (__tmp84138 (symbol->string (gx#stx-e _%y52429%_)))) + (lambda (_%x52490%_ _%y52492%_) + (let ((__tmp84202 (symbol->string (gx#stx-e _%x52490%_))) + (__tmp84201 (symbol->string (gx#stx-e _%y52492%_)))) (declare (not safe)) - (##stringstring (gx#stx-e _%x52423%_))) - (__tmp84140 (keyword->string (gx#stx-e _%y52425%_)))) + (lambda (_%x52486%_ _%y52488%_) + (let ((__tmp84204 (keyword->string (gx#stx-e _%x52486%_))) + (__tmp84203 (keyword->string (gx#stx-e _%y52488%_)))) (declare (not safe)) - (##string>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8196181962%_ - _%e6171661825%_ - _%hd6171761829%_ - _%tl6171861832%_ - _%e6171961835%_ - _%hd6172061839%_ - _%tl6172161842%_)))) - (_%__kont8191981920%_ - _%__stx8191081911%_)))) + (##car _%e6178861918%_)))) + (_%__match8201282013%_ + _%e6177961888%_ + _%hd6178061892%_ + _%tl6178161895%_ + _%e6178261898%_ + _%hd6178361902%_ + _%tl6178461905%_ + _%e6178561908%_ + _%hd6178661912%_ + _%tl6178761915%_ + _%e6178861918%_ + _%hd6178961922%_ + _%tl6179061925%_))) + (_%__match8202482025%_ + _%e6177961888%_ + _%hd6178061892%_ + _%tl6178161895%_ + _%e6178261898%_ + _%hd6178361902%_ + _%tl6178461905%_)) + (_%__match8202482025%_ + _%e6177961888%_ + _%hd6178061892%_ + _%tl6178161895%_ + _%e6178261898%_ + _%hd6178361902%_ + _%tl6178461905%_)) + (_%__match8202482025%_ + _%e6177961888%_ + _%hd6178061892%_ + _%tl6178161895%_ + _%e6178261898%_ + _%hd6178361902%_ + _%tl6178461905%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8202482025%_ + _%e6177961888%_ + _%hd6178061892%_ + _%tl6178161895%_ + _%e6178261898%_ + _%hd6178361902%_ + _%tl6178461905%_)))) + (_%__kont8198281983%_ + _%__stx8197381974%_)))) (let () (declare (not safe)) - (_%g6170861773%_))))))))) - (_%make-method-defs60198%_ - (lambda (_%Interface61490%_) - (lambda (_%method61493%_ _%offset61495%_) - (let* ((_%signature61497%_ - (gx#stx-car (gx#stx-cdr _%method61493%_))) - (_%g6150061540%_ - (lambda (_%g6150161536%_) + (_%g6177161836%_))))))))) + (_%make-method-defs60261%_ + (lambda (_%Interface61553%_) + (lambda (_%method61556%_ _%offset61558%_) + (let* ((_%signature61560%_ + (gx#stx-car (gx#stx-cdr _%method61556%_))) + (_%g6156361603%_ + (lambda (_%g6156461599%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6150161536%_))) - (_%g6149961693%_ - (lambda (_%g6150161544%_) - (if (gx#stx-pair? _%g6150161544%_) - (let ((_%e6150861547%_ - (gx#syntax-e _%g6150161544%_))) - (let ((_%hd6150961551%_ + _%g6156461599%_))) + (_%g6156261756%_ + (lambda (_%g6156461607%_) + (if (gx#stx-pair? _%g6156461607%_) + (let ((_%e6157161610%_ + (gx#syntax-e _%g6156461607%_))) + (let ((_%hd6157261614%_ (let () (declare (not safe)) - (##car _%e6150861547%_))) - (_%tl6151061554%_ + (##car _%e6157161610%_))) + (_%tl6157361617%_ (let () (declare (not safe)) - (##cdr _%e6150861547%_)))) - (if (gx#stx-pair? _%tl6151061554%_) - (let ((_%e6151161557%_ + (##cdr _%e6157161610%_)))) + (if (gx#stx-pair? _%tl6157361617%_) + (let ((_%e6157461620%_ (gx#syntax-e - _%tl6151061554%_))) - (let ((_%hd6151261561%_ + _%tl6157361617%_))) + (let ((_%hd6157561624%_ (let () (declare (not safe)) - (##car _%e6151161557%_))) - (_%tl6151361564%_ + (##car _%e6157461620%_))) + (_%tl6157661627%_ (let () (declare (not safe)) - (##cdr _%e6151161557%_)))) + (##cdr _%e6157461620%_)))) (if (gx#stx-pair? - _%tl6151361564%_) - (let ((_%e6151461567%_ + _%tl6157661627%_) + (let ((_%e6157761630%_ (gx#syntax-e - _%tl6151361564%_))) - (let ((_%hd6151561571%_ + _%tl6157661627%_))) + (let ((_%hd6157861634%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6151461567%_))) - (_%tl6151661574%_ - (let () (declare (not safe)) (##cdr _%e6151461567%_)))) - (if (gx#stx-pair? _%tl6151661574%_) - (let ((_%e6151761577%_ (gx#syntax-e _%tl6151661574%_))) - (let ((_%hd6151861581%_ + (##car _%e6157761630%_))) + (_%tl6157961637%_ + (let () (declare (not safe)) (##cdr _%e6157761630%_)))) + (if (gx#stx-pair? _%tl6157961637%_) + (let ((_%e6158061640%_ (gx#syntax-e _%tl6157961637%_))) + (let ((_%hd6158161644%_ (let () (declare (not safe)) - (##car _%e6151761577%_))) - (_%tl6151961584%_ + (##car _%e6158061640%_))) + (_%tl6158261647%_ (let () (declare (not safe)) - (##cdr _%e6151761577%_)))) - (if (gx#stx-pair? _%tl6151961584%_) - (let ((_%e6152061587%_ - (gx#syntax-e _%tl6151961584%_))) - (let ((_%hd6152161591%_ + (##cdr _%e6158061640%_)))) + (if (gx#stx-pair? _%tl6158261647%_) + (let ((_%e6158361650%_ + (gx#syntax-e _%tl6158261647%_))) + (let ((_%hd6158461654%_ (let () (declare (not safe)) - (##car _%e6152061587%_))) - (_%tl6152261594%_ + (##car _%e6158361650%_))) + (_%tl6158561657%_ (let () (declare (not safe)) - (##cdr _%e6152061587%_)))) - (if (gx#stx-pair? _%tl6152261594%_) - (let ((_%e6152361597%_ - (gx#syntax-e _%tl6152261594%_))) - (let ((_%hd6152461601%_ + (##cdr _%e6158361650%_)))) + (if (gx#stx-pair? _%tl6158561657%_) + (let ((_%e6158661660%_ + (gx#syntax-e _%tl6158561657%_))) + (let ((_%hd6158761664%_ (let () (declare (not safe)) - (##car _%e6152361597%_))) - (_%tl6152561604%_ + (##car _%e6158661660%_))) + (_%tl6158861667%_ (let () (declare (not safe)) - (##cdr _%e6152361597%_)))) + (##cdr _%e6158661660%_)))) (if (gx#stx-pair/null? - _%hd6152461601%_) - (let ((_g84143_ + _%hd6158761664%_) + (let ((_g84206_ (gx#syntax-split-splice - _%hd6152461601%_ + _%hd6158761664%_ '0))) (begin - (let ((_g84144_ + (let ((_g84207_ (let () (declare (not safe)) (if (##values? - _g84143_) - (##vector-length - _g84143_) + _g84206_) + (##values-length + _g84206_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84144_ + (##fx= _g84207_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84144_))) + (error "Context expects 2 values" _g84207_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6152661607%_ + (let ((_%target6158961670%_ (let () (declare (not safe)) - (##vector-ref - _g84143_ + (##values-ref + _g84206_ 0))) - (_%tl6152861610%_ + (_%tl6159161673%_ (let () (declare (not safe)) - (##vector-ref - _g84143_ + (##values-ref + _g84206_ 1)))) (if (gx#stx-null? - _%tl6152861610%_) - (letrec ((_%loop6152961613%_ - (lambda (_%hd6152761617%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6153361620%_) - (if (gx#stx-pair? _%hd6152761617%_) - (let ((_%e6153061623%_ - (gx#syntax-e _%hd6152761617%_))) - (let ((_%lp-hd6153161627%_ + _%tl6159161673%_) + (letrec ((_%loop6159261676%_ + (lambda (_%hd6159061680%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6159661683%_) + (if (gx#stx-pair? _%hd6159061680%_) + (let ((_%e6159361686%_ + (gx#syntax-e _%hd6159061680%_))) + (let ((_%lp-hd6159461690%_ (let () (declare (not safe)) - (##car _%e6153061623%_))) - (_%lp-tl6153261630%_ + (##car _%e6159361686%_))) + (_%lp-tl6159561693%_ (let () (declare (not safe)) - (##cdr _%e6153061623%_)))) - (_%loop6152961613%_ - _%lp-tl6153261630%_ - (cons _%lp-hd6153161627%_ - _%out6153361620%_)))) - (let ((_%out6153461633%_ - (reverse _%out6153361620%_))) - (if (gx#stx-null? _%tl6152561604%_) - ((lambda (_%L61637%_ - _%L61639%_ - _%L61640%_ - _%L61641%_ - _%L61642%_ - _%L61643%_) - (if (gx#stx-list? _%signature61497%_) + (##cdr _%e6159361686%_)))) + (_%loop6159261676%_ + _%lp-tl6159561693%_ + (cons _%lp-hd6159461690%_ + _%out6159661683%_)))) + (let ((_%out6159761696%_ + (reverse _%out6159661683%_))) + (if (gx#stx-null? _%tl6158861667%_) + ((lambda (_%L61700%_ + _%L61702%_ + _%L61703%_ + _%L61704%_ + _%L61705%_ + _%L61706%_) + (if (gx#stx-list? _%signature61560%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61643%_ - (cons _%L61642%_ + (cons _%L61706%_ + (cons _%L61705%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7515,13 +7515,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61640%_ + (cons _%L61703%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61641%_ + (cons _%L61704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7535,14 +7535,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61640%_ - (cons _%L61639%_ + (cons _%L61703%_ + (cons _%L61702%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61641%_ '())) + (cons _%L61704%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7555,21 +7555,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) - (foldr (lambda (_%g6167661679%_ _%g6167761682%_) - (cons _%g6167661679%_ _%g6167761682%_)) + (foldr (lambda (_%g6173961742%_ _%g6174061745%_) + (cons _%g6173961742%_ _%g6174061745%_)) '() - _%L61637%_))) + _%L61700%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60191%_)) + (gx#stx-source _%stx60254%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'definterface-method) - (cons _%L61643%_ - (cons _%L61642%_ + (cons _%L61706%_ + (cons _%L61705%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -7588,13 +7588,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unchecked-structure-ref) - (cons _%L61640%_ + (cons _%L61703%_ (cons '1 (cons '#f (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L61641%_ + (cons _%L61704%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()))))) @@ -7608,14 +7608,14 @@ (cons (cons (gx#datum->syntax '#f '##unchecked-structure-ref) - (cons _%L61640%_ - (cons _%L61639%_ + (cons _%L61703%_ + (cons _%L61702%_ (cons '#f (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L61641%_ '())) + (cons _%L61704%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -7629,695 +7629,695 @@ '#f 'f) (cons (gx#datum->syntax '#f 'obj) - (foldr (lambda (_%g6168461687%_ _%g6168561690%_) - (cons _%g6168461687%_ _%g6168561690%_)) + (foldr (lambda (_%g6174761750%_ _%g6174861753%_) + (cons _%g6174761750%_ _%g6174861753%_)) '() - _%L61637%_)))) + _%L61700%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx60191%_)))) - _%out6153461633%_ - _%hd6152161591%_ - _%hd6151861581%_ - _%hd6151561571%_ - _%hd6151261561%_ - _%hd6150961551%_) - (_%g6150061540%_ _%g6150161544%_))))))) - (_%loop6152961613%_ _%target6152661607%_ '())) - (_%g6150061540%_ _%g6150161544%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6150061540%_ - _%g6150161544%_)))) - (_%g6150061540%_ _%g6150161544%_)))) - (_%g6150061540%_ _%g6150161544%_)))) - (_%g6150061540%_ _%g6150161544%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6150061540%_ - _%g6150161544%_)))) - (_%g6150061540%_ - _%g6150161544%_)))) - (_%g6150061540%_ _%g6150161544%_))))) - (_%g6149961693%_ - (list _%Interface61490%_ - _%method61493%_ - (gx#stx-car _%method61493%_) + (gx#stx-source _%stx60254%_)))) + _%out6159761696%_ + _%hd6158461654%_ + _%hd6158161644%_ + _%hd6157861634%_ + _%hd6157561624%_ + _%hd6157261614%_) + (_%g6156361603%_ _%g6156461607%_))))))) + (_%loop6159261676%_ _%target6158961670%_ '())) + (_%g6156361603%_ _%g6156461607%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6156361603%_ + _%g6156461607%_)))) + (_%g6156361603%_ _%g6156461607%_)))) + (_%g6156361603%_ _%g6156461607%_)))) + (_%g6156361603%_ _%g6156461607%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6156361603%_ + _%g6156461607%_)))) + (_%g6156361603%_ + _%g6156461607%_)))) + (_%g6156361603%_ _%g6156461607%_))))) + (_%g6156261756%_ + (list _%Interface61553%_ + _%method61556%_ + (gx#stx-car _%method61556%_) (gx#syntax-local-introduce 'self) - _%offset61495%_ + _%offset61558%_ (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature61497%_)))))))) - (let* ((_%g6020060224%_ - (lambda (_%g6020160220%_) + _%signature61560%_)))))))) + (let* ((_%g6026360287%_ + (lambda (_%g6026460283%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6020160220%_))) - (_%g6019961486%_ - (lambda (_%g6020160228%_) - (if (gx#stx-pair? _%g6020160228%_) - (let ((_%e6020460231%_ (gx#syntax-e _%g6020160228%_))) - (let ((_%hd6020560235%_ + _%g6026460283%_))) + (_%g6026261549%_ + (lambda (_%g6026460291%_) + (if (gx#stx-pair? _%g6026460291%_) + (let ((_%e6026760294%_ (gx#syntax-e _%g6026460291%_))) + (let ((_%hd6026860298%_ (let () (declare (not safe)) - (##car _%e6020460231%_))) - (_%tl6020660238%_ + (##car _%e6026760294%_))) + (_%tl6026960301%_ (let () (declare (not safe)) - (##cdr _%e6020460231%_)))) - (if (gx#stx-pair? _%tl6020660238%_) - (let ((_%e6020760241%_ - (gx#syntax-e _%tl6020660238%_))) - (let ((_%hd6020860245%_ + (##cdr _%e6026760294%_)))) + (if (gx#stx-pair? _%tl6026960301%_) + (let ((_%e6027060304%_ + (gx#syntax-e _%tl6026960301%_))) + (let ((_%hd6027160308%_ (let () (declare (not safe)) - (##car _%e6020760241%_))) - (_%tl6020960248%_ + (##car _%e6027060304%_))) + (_%tl6027260311%_ (let () (declare (not safe)) - (##cdr _%e6020760241%_)))) - (if (gx#stx-pair/null? _%tl6020960248%_) - (let ((_g84145_ + (##cdr _%e6027060304%_)))) + (if (gx#stx-pair/null? _%tl6027260311%_) + (let ((_g84208_ (gx#syntax-split-splice - _%tl6020960248%_ + _%tl6027260311%_ '0))) (begin - (let ((_g84146_ + (let ((_g84209_ (let () (declare (not safe)) - (if (##values? _g84145_) - (##vector-length - _g84145_) + (if (##values? _g84208_) + (##values-length + _g84208_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84146_ 2))) + (##fx= _g84209_ 2))) (error "Context expects 2 values" - _g84146_))) - (let ((_%target6021060251%_ + _g84209_))) + (let ((_%target6027360314%_ (let () (declare (not safe)) - (##vector-ref - _g84145_ + (##values-ref + _g84208_ 0))) - (_%tl6021260254%_ + (_%tl6027560317%_ (let () (declare (not safe)) - (##vector-ref - _g84145_ + (##values-ref + _g84208_ 1)))) (if (gx#stx-null? - _%tl6021260254%_) - (letrec ((_%loop6021360257%_ - (lambda (_%hd6021160261%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%spec6021760264%_) - (if (gx#stx-pair? _%hd6021160261%_) - (let ((_%e6021460267%_ - (gx#syntax-e _%hd6021160261%_))) - (let ((_%lp-hd6021560271%_ + _%tl6027560317%_) + (letrec ((_%loop6027660320%_ + (lambda (_%hd6027460324%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%spec6028060327%_) + (if (gx#stx-pair? _%hd6027460324%_) + (let ((_%e6027760330%_ + (gx#syntax-e _%hd6027460324%_))) + (let ((_%lp-hd6027860334%_ (let () (declare (not safe)) - (##car _%e6021460267%_))) - (_%lp-tl6021660274%_ + (##car _%e6027760330%_))) + (_%lp-tl6027960337%_ (let () (declare (not safe)) - (##cdr _%e6021460267%_)))) - (_%loop6021360257%_ - _%lp-tl6021660274%_ - (cons _%lp-hd6021560271%_ _%spec6021760264%_)))) - (let ((_%spec6021860277%_ - (reverse _%spec6021760264%_))) - ((lambda (_%L60281%_ _%L60283%_) - (if (or (gx#identifier? _%L60283%_) - (gx#identifier-list? _%L60283%_)) - (let* ((_%g6030660314%_ - (lambda (_%g6030760310%_) + (##cdr _%e6027760330%_)))) + (_%loop6027660320%_ + _%lp-tl6027960337%_ + (cons _%lp-hd6027860334%_ _%spec6028060327%_)))) + (let ((_%spec6028160340%_ + (reverse _%spec6028060327%_))) + ((lambda (_%L60344%_ _%L60346%_) + (if (or (gx#identifier? _%L60346%_) + (gx#identifier-list? _%L60346%_)) + (let* ((_%g6036960377%_ + (lambda (_%g6037060373%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6030760310%_))) - (_%g6030561482%_ - (lambda (_%g6030760318%_) - ((lambda (_%L60321%_) - (let* ((_%g6033360341%_ - (lambda (_%g6033460337%_) + _%g6037060373%_))) + (_%g6036861545%_ + (lambda (_%g6037060381%_) + ((lambda (_%L60384%_) + (let* ((_%g6039660404%_ + (lambda (_%g6039760400%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6033460337%_))) - (_%g6033261478%_ - (lambda (_%g6033460345%_) - ((lambda (_%L60348%_) - (let* ((_%g6036160369%_ + _%g6039760400%_))) + (_%g6039561541%_ + (lambda (_%g6039760408%_) + ((lambda (_%L60411%_) + (let* ((_%g6042460432%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6036260365%_) + (lambda (_%g6042560428%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6036260365%_))) - (_%g6036061474%_ - (lambda (_%g6036260373%_) - ((lambda (_%L60376%_) - (let* ((_%g6038960397%_ - (lambda (_%g6039060393%_) + _%g6042560428%_))) + (_%g6042361537%_ + (lambda (_%g6042560436%_) + ((lambda (_%L60439%_) + (let* ((_%g6045260460%_ + (lambda (_%g6045360456%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6039060393%_))) - (_%g6038861470%_ - (lambda (_%g6039060401%_) - ((lambda (_%L60404%_) - (let* ((_%g6041760425%_ - (lambda (_%g6041860421%_) + _%g6045360456%_))) + (_%g6045161533%_ + (lambda (_%g6045360464%_) + ((lambda (_%L60467%_) + (let* ((_%g6048060488%_ + (lambda (_%g6048160484%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6041860421%_))) - (_%g6041661466%_ - (lambda (_%g6041860429%_) - ((lambda (_%L60432%_) - (let* ((_%g6044560453%_ + _%g6048160484%_))) + (_%g6047961529%_ + (lambda (_%g6048160492%_) + ((lambda (_%L60495%_) + (let* ((_%g6050860516%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6044660449%_) + (lambda (_%g6050960512%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6044660449%_))) - (_%g6044461462%_ - (lambda (_%g6044660457%_) - ((lambda (_%L60460%_) - (let* ((_%g6047360481%_ - (lambda (_%g6047460477%_) + _%g6050960512%_))) + (_%g6050761525%_ + (lambda (_%g6050960520%_) + ((lambda (_%L60523%_) + (let* ((_%g6053660544%_ + (lambda (_%g6053760540%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6047460477%_))) - (_%g6047261458%_ - (lambda (_%g6047460485%_) - ((lambda (_%L60488%_) - (let* ((_%g6050160509%_ - (lambda (_%g6050260505%_) + _%g6053760540%_))) + (_%g6053561521%_ + (lambda (_%g6053760548%_) + ((lambda (_%L60551%_) + (let* ((_%g6056460572%_ + (lambda (_%g6056560568%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6050260505%_))) - (_%g6050061454%_ - (lambda (_%g6050260513%_) - ((lambda (_%L60516%_) - (let* ((_%g6052960537%_ + _%g6056560568%_))) + (_%g6056361517%_ + (lambda (_%g6056560576%_) + ((lambda (_%L60579%_) + (let* ((_%g6059260600%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6053060533%_) + (lambda (_%g6059360596%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6053060533%_))) - (_%g6052861450%_ - (lambda (_%g6053060541%_) - ((lambda (_%L60544%_) - (let* ((_%g6055760574%_ - (lambda (_%g6055860570%_) + _%g6059360596%_))) + (_%g6059161513%_ + (lambda (_%g6059360604%_) + ((lambda (_%L60607%_) + (let* ((_%g6062060637%_ + (lambda (_%g6062160633%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6055860570%_))) - (_%g6055661446%_ - (lambda (_%g6055860578%_) + _%g6062160633%_))) + (_%g6061961509%_ + (lambda (_%g6062160641%_) (if (gx#stx-pair/null? - _%g6055860578%_) - (let ((_g84147_ + _%g6062160641%_) + (let ((_g84210_ (gx#syntax-split-splice - _%g6055860578%_ + _%g6062160641%_ '0))) (begin - (let ((_g84148_ + (let ((_g84211_ (let () (declare (not safe)) (if (##values? - _g84147_) - (##vector-length - _g84147_) + _g84210_) + (##values-length + _g84210_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84148_ 2))) - (error "Context expects 2 values" _g84148_))) + (##fx= _g84211_ 2))) + (error "Context expects 2 values" _g84211_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6056060581%_ + (let ((_%target6062360644%_ (let () (declare (not safe)) - (##vector-ref - _g84147_ + (##values-ref + _g84210_ 0))) - (_%tl6056260584%_ + (_%tl6062560647%_ (let () (declare (not safe)) - (##vector-ref - _g84147_ + (##values-ref + _g84210_ 1)))) (if (gx#stx-null? - _%tl6056260584%_) - (letrec ((_%loop6056360587%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6056160591%_ _%mixin6056760594%_) - (if (gx#stx-pair? _%hd6056160591%_) - (let ((_%e6056460597%_ - (gx#syntax-e _%hd6056160591%_))) - (let ((_%lp-hd6056560601%_ + _%tl6062560647%_) + (letrec ((_%loop6062660650%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6062460654%_ _%mixin6063060657%_) + (if (gx#stx-pair? _%hd6062460654%_) + (let ((_%e6062760660%_ + (gx#syntax-e _%hd6062460654%_))) + (let ((_%lp-hd6062860664%_ (let () (declare (not safe)) - (##car _%e6056460597%_))) - (_%lp-tl6056660604%_ + (##car _%e6062760660%_))) + (_%lp-tl6062960667%_ (let () (declare (not safe)) - (##cdr _%e6056460597%_)))) - (_%loop6056360587%_ - _%lp-tl6056660604%_ - (cons _%lp-hd6056560601%_ - _%mixin6056760594%_)))) - (let ((_%mixin6056860607%_ - (reverse _%mixin6056760594%_))) - ((lambda (_%L60611%_) - (let* ((_%g6062860645%_ - (lambda (_%g6062960641%_) + (##cdr _%e6062760660%_)))) + (_%loop6062660650%_ + _%lp-tl6062960667%_ + (cons _%lp-hd6062860664%_ + _%mixin6063060657%_)))) + (let ((_%mixin6063160670%_ + (reverse _%mixin6063060657%_))) + ((lambda (_%L60674%_) + (let* ((_%g6069160708%_ + (lambda (_%g6069260704%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6062960641%_))) - (_%g6062761426%_ - (lambda (_%g6062960649%_) + _%g6069260704%_))) + (_%g6069061489%_ + (lambda (_%g6069260712%_) (if (gx#stx-pair/null? - _%g6062960649%_) - (let ((_g84149_ + _%g6069260712%_) + (let ((_g84212_ (gx#syntax-split-splice - _%g6062960649%_ + _%g6069260712%_ '0))) (begin - (let ((_g84150_ + (let ((_g84213_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84149_) - (##vector-length _g84149_) + (if (##values? _g84212_) + (##values-length _g84212_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84150_ 2))) - (error "Context expects 2 values" _g84150_))) - (let ((_%target6063160652%_ - (let () (declare (not safe)) (##vector-ref _g84149_ 0))) - (_%tl6063360655%_ - (let () (declare (not safe)) (##vector-ref _g84149_ 1)))) - (if (gx#stx-null? _%tl6063360655%_) - (letrec ((_%loop6063460658%_ - (lambda (_%hd6063260662%_ _%method6063860665%_) - (if (gx#stx-pair? _%hd6063260662%_) - (let ((_%e6063560668%_ - (gx#syntax-e _%hd6063260662%_))) - (let ((_%lp-hd6063660672%_ + (if (not (let () (declare (not safe)) (##fx= _g84213_ 2))) + (error "Context expects 2 values" _g84213_))) + (let ((_%target6069460715%_ + (let () (declare (not safe)) (##values-ref _g84212_ 0))) + (_%tl6069660718%_ + (let () (declare (not safe)) (##values-ref _g84212_ 1)))) + (if (gx#stx-null? _%tl6069660718%_) + (letrec ((_%loop6069760721%_ + (lambda (_%hd6069560725%_ _%method6070160728%_) + (if (gx#stx-pair? _%hd6069560725%_) + (let ((_%e6069860731%_ + (gx#syntax-e _%hd6069560725%_))) + (let ((_%lp-hd6069960735%_ (let () (declare (not safe)) - (##car _%e6063560668%_))) - (_%lp-tl6063760675%_ + (##car _%e6069860731%_))) + (_%lp-tl6070060738%_ (let () (declare (not safe)) - (##cdr _%e6063560668%_)))) - (_%loop6063460658%_ - _%lp-tl6063760675%_ - (cons _%lp-hd6063660672%_ - _%method6063860665%_)))) - (let ((_%method6063960678%_ - (reverse _%method6063860665%_))) - ((lambda (_%L60682%_) - (let* ((_%g6069960716%_ - (lambda (_%g6070060712%_) + (##cdr _%e6069860731%_)))) + (_%loop6069760721%_ + _%lp-tl6070060738%_ + (cons _%lp-hd6069960735%_ + _%method6070160728%_)))) + (let ((_%method6070260741%_ + (reverse _%method6070160728%_))) + ((lambda (_%L60745%_) + (let* ((_%g6076260779%_ + (lambda (_%g6076360775%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6070060712%_))) - (_%g6069861414%_ - (lambda (_%g6070060720%_) + _%g6076360775%_))) + (_%g6076161477%_ + (lambda (_%g6076360783%_) (if (gx#stx-pair/null? - _%g6070060720%_) - (let ((_g84151_ + _%g6076360783%_) + (let ((_g84214_ (gx#syntax-split-splice - _%g6070060720%_ + _%g6076360783%_ '0))) (begin - (let ((_g84152_ + (let ((_g84215_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84151_) - (##vector-length _g84151_) + (if (##values? _g84214_) + (##values-length _g84214_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84152_ 2))) - (error "Context expects 2 values" _g84152_))) - (let ((_%target6070260723%_ + (##fx= _g84215_ 2))) + (error "Context expects 2 values" _g84215_))) + (let ((_%target6076560786%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 0))) - (_%tl6070460726%_ + (##values-ref _g84214_ 0))) + (_%tl6076760789%_ (let () (declare (not safe)) - (##vector-ref _g84151_ 1)))) - (if (gx#stx-null? _%tl6070460726%_) - (letrec ((_%loop6070560729%_ - (lambda (_%hd6070360733%_ - _%method-name6070960736%_) - (if (gx#stx-pair? _%hd6070360733%_) - (let ((_%e6070660739%_ + (##values-ref _g84214_ 1)))) + (if (gx#stx-null? _%tl6076760789%_) + (letrec ((_%loop6076860792%_ + (lambda (_%hd6076660796%_ + _%method-name6077260799%_) + (if (gx#stx-pair? _%hd6076660796%_) + (let ((_%e6076960802%_ (gx#syntax-e - _%hd6070360733%_))) - (let ((_%lp-hd6070760743%_ + _%hd6076660796%_))) + (let ((_%lp-hd6077060806%_ (let () (declare (not safe)) - (##car _%e6070660739%_))) - (_%lp-tl6070860746%_ + (##car _%e6076960802%_))) + (_%lp-tl6077160809%_ (let () (declare (not safe)) - (##cdr _%e6070660739%_)))) - (_%loop6070560729%_ - _%lp-tl6070860746%_ - (cons _%lp-hd6070760743%_ - _%method-name6070960736%_)))) - (let ((_%method-name6071060749%_ - (reverse _%method-name6070960736%_))) - ((lambda (_%L60753%_) - (let* ((_%g6077060787%_ - (lambda (_%g6077160783%_) + (##cdr _%e6076960802%_)))) + (_%loop6076860792%_ + _%lp-tl6077160809%_ + (cons _%lp-hd6077060806%_ + _%method-name6077260799%_)))) + (let ((_%method-name6077360812%_ + (reverse _%method-name6077260799%_))) + ((lambda (_%L60816%_) + (let* ((_%g6083360850%_ + (lambda (_%g6083460846%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6077160783%_))) - (_%g6076961402%_ - (lambda (_%g6077160791%_) + _%g6083460846%_))) + (_%g6083261465%_ + (lambda (_%g6083460854%_) (if (gx#stx-pair/null? - _%g6077160791%_) - (let ((_g84153_ + _%g6083460854%_) + (let ((_g84216_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g6077160791%_ '0))) + (gx#syntax-split-splice _%g6083460854%_ '0))) (begin - (let ((_g84154_ + (let ((_g84217_ (let () (declare (not safe)) - (if (##values? _g84153_) - (##vector-length _g84153_) + (if (##values? _g84216_) + (##values-length _g84216_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84154_ 2))) - (error "Context expects 2 values" _g84154_))) - (let ((_%target6077360794%_ + (##fx= _g84217_ 2))) + (error "Context expects 2 values" _g84217_))) + (let ((_%target6083660857%_ (let () (declare (not safe)) - (##vector-ref _g84153_ 0))) - (_%tl6077560797%_ + (##values-ref _g84216_ 0))) + (_%tl6083860860%_ (let () (declare (not safe)) - (##vector-ref _g84153_ 1)))) - (if (gx#stx-null? _%tl6077560797%_) - (letrec ((_%loop6077660800%_ - (lambda (_%hd6077460804%_ - _%method-signature6078060807%_) - (if (gx#stx-pair? _%hd6077460804%_) - (let ((_%e6077760810%_ + (##values-ref _g84216_ 1)))) + (if (gx#stx-null? _%tl6083860860%_) + (letrec ((_%loop6083960863%_ + (lambda (_%hd6083760867%_ + _%method-signature6084360870%_) + (if (gx#stx-pair? _%hd6083760867%_) + (let ((_%e6084060873%_ (gx#syntax-e - _%hd6077460804%_))) - (let ((_%lp-hd6077860814%_ + _%hd6083760867%_))) + (let ((_%lp-hd6084160877%_ (let () (declare (not safe)) - (##car _%e6077760810%_))) - (_%lp-tl6077960817%_ + (##car _%e6084060873%_))) + (_%lp-tl6084260880%_ (let () (declare (not safe)) - (##cdr _%e6077760810%_)))) - (_%loop6077660800%_ - _%lp-tl6077960817%_ - (cons _%lp-hd6077860814%_ - _%method-signature6078060807%_)))) - (let ((_%method-signature6078160820%_ - (reverse _%method-signature6078060807%_))) - ((lambda (_%L60824%_) - (let* ((_%g6084160858%_ - (lambda (_%g6084260854%_) + (##cdr _%e6084060873%_)))) + (_%loop6083960863%_ + _%lp-tl6084260880%_ + (cons _%lp-hd6084160877%_ + _%method-signature6084360870%_)))) + (let ((_%method-signature6084460883%_ + (reverse _%method-signature6084360870%_))) + ((lambda (_%L60887%_) + (let* ((_%g6090460921%_ + (lambda (_%g6090560917%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6084260854%_))) - (_%g6084061387%_ - (lambda (_%g6084260862%_) + _%g6090560917%_))) + (_%g6090361450%_ + (lambda (_%g6090560925%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6084260862%_) - (let ((_g84155_ - (gx#syntax-split-splice _%g6084260862%_ '0))) + _%g6090560925%_) + (let ((_g84218_ + (gx#syntax-split-splice _%g6090560925%_ '0))) (begin - (let ((_g84156_ + (let ((_g84219_ (let () (declare (not safe)) - (if (##values? _g84155_) - (##vector-length _g84155_) + (if (##values? _g84218_) + (##values-length _g84218_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84156_ 2))) + (##fx= _g84219_ 2))) (error "Context expects 2 values" - _g84156_))) - (let ((_%target6084460865%_ + _g84219_))) + (let ((_%target6090760928%_ (let () (declare (not safe)) - (##vector-ref _g84155_ 0))) - (_%tl6084660868%_ + (##values-ref _g84218_ 0))) + (_%tl6090960931%_ (let () (declare (not safe)) - (##vector-ref _g84155_ 1)))) - (if (gx#stx-null? _%tl6084660868%_) - (letrec ((_%loop6084760871%_ - (lambda (_%hd6084560875%_ - _%method-impl-name6085160878%_) + (##values-ref _g84218_ 1)))) + (if (gx#stx-null? _%tl6090960931%_) + (letrec ((_%loop6091060934%_ + (lambda (_%hd6090860938%_ + _%method-impl-name6091460941%_) (if (gx#stx-pair? - _%hd6084560875%_) - (let ((_%e6084860881%_ + _%hd6090860938%_) + (let ((_%e6091160944%_ (gx#syntax-e - _%hd6084560875%_))) - (let ((_%lp-hd6084960885%_ + _%hd6090860938%_))) + (let ((_%lp-hd6091260948%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6084860881%_))) - (_%lp-tl6085060888%_ - (let () (declare (not safe)) (##cdr _%e6084860881%_)))) - (_%loop6084760871%_ - _%lp-tl6085060888%_ - (cons _%lp-hd6084960885%_ _%method-impl-name6085160878%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%method-impl-name6085260891%_ - (reverse _%method-impl-name6085160878%_))) - ((lambda (_%L60895%_) - (let* ((_%g6091260929%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g6091360925%_) + (##car _%e6091160944%_))) + (_%lp-tl6091360951%_ + (let () (declare (not safe)) (##cdr _%e6091160944%_)))) + (_%loop6091060934%_ + _%lp-tl6091360951%_ + (cons _%lp-hd6091260948%_ _%method-impl-name6091460941%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%method-impl-name6091560954%_ + (reverse _%method-impl-name6091460941%_))) + ((lambda (_%L60958%_) + (let* ((_%g6097560992%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g6097660988%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6091360925%_))) - (_%g6091161372%_ - (lambda (_%g6091360933%_) - (if (gx#stx-pair/null? _%g6091360933%_) - (let ((_g84157_ + _%g6097660988%_))) + (_%g6097461435%_ + (lambda (_%g6097660996%_) + (if (gx#stx-pair/null? _%g6097660996%_) + (let ((_g84220_ (gx#syntax-split-splice - _%g6091360933%_ + _%g6097660996%_ '0))) (begin - (let ((_g84158_ + (let ((_g84221_ (let () (declare (not safe)) - (if (##values? _g84157_) - (##vector-length _g84157_) + (if (##values? _g84220_) + (##values-length _g84220_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84158_ 2))) + (##fx= _g84221_ 2))) (error "Context expects 2 values" - _g84158_))) - (let ((_%target6091560936%_ + _g84221_))) + (let ((_%target6097860999%_ (let () (declare (not safe)) - (##vector-ref _g84157_ 0))) - (_%tl6091760939%_ + (##values-ref _g84220_ 0))) + (_%tl6098061002%_ (let () (declare (not safe)) - (##vector-ref _g84157_ 1)))) - (if (gx#stx-null? _%tl6091760939%_) - (letrec ((_%loop6091860942%_ - (lambda (_%hd6091660946%_ - _%unchecked-method-impl-name6092260949%_) + (##values-ref _g84220_ 1)))) + (if (gx#stx-null? _%tl6098061002%_) + (letrec ((_%loop6098161005%_ + (lambda (_%hd6097961009%_ + _%unchecked-method-impl-name6098561012%_) (if (gx#stx-pair? - _%hd6091660946%_) - (let ((_%e6091960952%_ + _%hd6097961009%_) + (let ((_%e6098261015%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd6091660946%_))) - (let ((_%lp-hd6092060956%_ + _%hd6097961009%_))) + (let ((_%lp-hd6098361019%_ (let () (declare (not safe)) - (##car _%e6091960952%_))) - (_%lp-tl6092160959%_ + (##car _%e6098261015%_))) + (_%lp-tl6098461022%_ (let () (declare (not safe)) - (##cdr _%e6091960952%_)))) - (_%loop6091860942%_ - _%lp-tl6092160959%_ - (cons _%lp-hd6092060956%_ - _%unchecked-method-impl-name6092260949%_)))) - (let ((_%unchecked-method-impl-name6092360962%_ - (reverse _%unchecked-method-impl-name6092260949%_))) - ((lambda (_%L60966%_) - (let* ((_%g6098361000%_ - (lambda (_%g6098460996%_) + (##cdr _%e6098261015%_)))) + (_%loop6098161005%_ + _%lp-tl6098461022%_ + (cons _%lp-hd6098361019%_ + _%unchecked-method-impl-name6098561012%_)))) + (let ((_%unchecked-method-impl-name6098661025%_ + (reverse _%unchecked-method-impl-name6098561012%_))) + ((lambda (_%L61029%_) + (let* ((_%g6104661063%_ + (lambda (_%g6104761059%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6098460996%_))) - (_%g6098261352%_ - (lambda (_%g6098461004%_) - (if (gx#stx-pair/null? _%g6098461004%_) - (let ((_g84159_ + _%g6104761059%_))) + (_%g6104561415%_ + (lambda (_%g6104761067%_) + (if (gx#stx-pair/null? _%g6104761067%_) + (let ((_g84222_ (gx#syntax-split-splice - _%g6098461004%_ + _%g6104761067%_ '0))) (begin - (let ((_g84160_ + (let ((_g84223_ (let () (declare (not safe)) - (if (##values? _g84159_) - (##vector-length _g84159_) + (if (##values? _g84222_) + (##values-length _g84222_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84160_ 2))) + (##fx= _g84223_ 2))) (error "Context expects 2 values" - _g84160_))) - (let ((_%target6098661007%_ + _g84223_))) + (let ((_%target6104961070%_ (let () (declare (not safe)) - (##vector-ref _g84159_ 0))) - (_%tl6098861010%_ + (##values-ref _g84222_ 0))) + (_%tl6105161073%_ (let () (declare (not safe)) - (##vector-ref _g84159_ 1)))) - (if (gx#stx-null? _%tl6098861010%_) - (letrec ((_%loop6098961013%_ - (lambda (_%hd6098761017%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defmethod-impl6099361020%_) - (if (gx#stx-pair? _%hd6098761017%_) - (let ((_%e6099061023%_ (gx#syntax-e _%hd6098761017%_))) - (let ((_%lp-hd6099161027%_ + (##values-ref _g84222_ 1)))) + (if (gx#stx-null? _%tl6105161073%_) + (letrec ((_%loop6105261076%_ + (lambda (_%hd6105061080%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defmethod-impl6105661083%_) + (if (gx#stx-pair? _%hd6105061080%_) + (let ((_%e6105361086%_ (gx#syntax-e _%hd6105061080%_))) + (let ((_%lp-hd6105461090%_ (let () (declare (not safe)) - (##car _%e6099061023%_))) - (_%lp-tl6099261030%_ + (##car _%e6105361086%_))) + (_%lp-tl6105561093%_ (let () (declare (not safe)) - (##cdr _%e6099061023%_)))) - (_%loop6098961013%_ - _%lp-tl6099261030%_ - (cons _%lp-hd6099161027%_ - _%defmethod-impl6099361020%_)))) - (let ((_%defmethod-impl6099461033%_ - (reverse _%defmethod-impl6099361020%_))) - ((lambda (_%L61037%_) - (let* ((_%g6105461062%_ - (lambda (_%g6105561058%_) + (##cdr _%e6105361086%_)))) + (_%loop6105261076%_ + _%lp-tl6105561093%_ + (cons _%lp-hd6105461090%_ + _%defmethod-impl6105661083%_)))) + (let ((_%defmethod-impl6105761096%_ + (reverse _%defmethod-impl6105661083%_))) + ((lambda (_%L61100%_) + (let* ((_%g6111761125%_ + (lambda (_%g6111861121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6105561058%_))) - (_%g6105361332%_ - (lambda (_%g6105561066%_) - ((lambda (_%L61069%_) - (let* ((_%g6108261090%_ - (lambda (_%g6108361086%_) + _%g6111861121%_))) + (_%g6111661395%_ + (lambda (_%g6111861129%_) + ((lambda (_%L61132%_) + (let* ((_%g6114561153%_ + (lambda (_%g6114661149%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6108361086%_))) - (_%g6108161312%_ - (lambda (_%g6108361094%_) - ((lambda (_%L61097%_) - (let* ((_%g6111061118%_ - (lambda (_%g6111161114%_) + _%g6114661149%_))) + (_%g6114461375%_ + (lambda (_%g6114661157%_) + ((lambda (_%L61160%_) + (let* ((_%g6117361181%_ + (lambda (_%g6117461177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6111161114%_))) - (_%g6110961308%_ - (lambda (_%g6111161122%_) - ((lambda (_%L61125%_) + _%g6117461177%_))) + (_%g6117261371%_ + (lambda (_%g6117461185%_) + ((lambda (_%L61188%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6113861146%_ - (lambda (_%g6113961142%_) + (let* ((_%g6120161209%_ + (lambda (_%g6120261205%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6113961142%_))) - (_%g6113761304%_ - (lambda (_%g6113961150%_) - ((lambda (_%L61153%_) - (let* ((_%g6116661174%_ - (lambda (_%g6116761170%_) + _%g6120261205%_))) + (_%g6120061367%_ + (lambda (_%g6120261213%_) + ((lambda (_%L61216%_) + (let* ((_%g6122961237%_ + (lambda (_%g6123061233%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6116761170%_))) - (_%g6116561300%_ - (lambda (_%g6116761178%_) - ((lambda (_%L61181%_) - (let* ((_%g6119461202%_ - (lambda (_%g6119561198%_) + _%g6123061233%_))) + (_%g6122861363%_ + (lambda (_%g6123061241%_) + ((lambda (_%L61244%_) + (let* ((_%g6125761265%_ + (lambda (_%g6125861261%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6119561198%_))) - (_%g6119361296%_ - (lambda (_%g6119561206%_) - ((lambda (_%L61209%_) + _%g6125861261%_))) + (_%g6125661359%_ + (lambda (_%g6125861269%_) + ((lambda (_%L61272%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g6122261230%_ - (lambda (_%g6122361226%_) + (let* ((_%g6128561293%_ + (lambda (_%g6128661289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6122361226%_))) - (_%g6122161260%_ - (lambda (_%g6122361234%_) - ((lambda (_%L61237%_) + _%g6128661289%_))) + (_%g6128461323%_ + (lambda (_%g6128661297%_) + ((lambda (_%L61300%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L61069%_ - (cons _%L61097%_ - (cons _%L61125%_ - (cons _%L61153%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L61181%_ - (cons _%L61209%_ - (cons _%L61237%_ - (foldr (lambda (_%g6125161254%_ - _%g6125261257%_) - (cons _%g6125161254%_ - _%g6125261257%_)) + (cons _%L61132%_ + (cons _%L61160%_ + (cons _%L61188%_ + (cons _%L61216%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L61244%_ + (cons _%L61272%_ + (cons _%L61300%_ + (foldr (lambda (_%g6131461317%_ + _%g6131561320%_) + (cons _%g6131461317%_ + _%g6131561320%_)) '() - _%L61037%_)))))))))) + _%L61100%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6122361234%_)))) - (_%g6122161260%_ + _%g6128661297%_)))) + (_%g6128461323%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L60321%_ + (cons _%L60384%_ (cons (cons (gx#datum->syntax '#f 'make-interface-info) @@ -8326,31 +8326,31 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L60321%_ '())) + (cons _%L60384%_ '())) (cons 'interface-mixin: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6126961272%_ - _%g6127061275%_) + (foldr (lambda (_%g6133261335%_ + _%g6133361338%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6126961272%_ + (cons _%g6133261335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6127061275%_)) + _%g6133361338%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L60611%_)) + _%L60674%_)) (cons 'interface-methods: (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6126761278%_ + (cons (foldr (lambda (_%g6133061341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6126861281%_) - (cons _%g6126761278%_ _%g6126861281%_)) + _%g6133161344%_) + (cons _%g6133061341%_ _%g6133161344%_)) '() - _%L60682%_) + _%L60745%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'instance-type: @@ -8358,66 +8358,66 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L60348%_ '())) + (cons _%L60411%_ '())) (cons 'interface-descriptor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60432%_ '())) + (cons _%L60495%_ '())) (cons 'instance-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60460%_ '())) + (cons _%L60523%_ '())) (cons 'instance-try-constructor: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60488%_ + (cons _%L60551%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons 'instance-predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60516%_ '())) + (cons _%L60579%_ '())) (cons 'instance-satisfies-predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L60544%_ '())) + (cons _%L60607%_ '())) (cons 'implementation-methods: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g6126561284%_ + (foldr (lambda (_%g6132861347%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6126661287%_) + _%g6132961350%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6126561284%_ '())) - _%g6126661287%_)) + (cons _%g6132861347%_ '())) + _%g6132961350%_)) '() - _%L60895%_)) + _%L60958%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons 'unchecked-implementation-methods: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) - (foldr (lambda (_%g6126361290%_ _%g6126461293%_) + (foldr (lambda (_%g6132661353%_ _%g6132761356%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g6126361290%_ '())) - _%g6126461293%_)) + (cons _%g6132661353%_ '())) + _%g6132761356%_)) '() - _%L60966%_)) + _%L61029%_)) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6119561206%_)))) - (_%g6119361296%_ + _%g6125861269%_)))) + (_%g6125661359%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60544%_ + (cons (cons _%L60607%_ (cons (gx#datum->syntax '#f 'obj) '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax @@ -8444,23 +8444,23 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'satisfies?) - (cons _%L60432%_ + (cons _%L60495%_ (cons (gx#datum->syntax '#f 'obj) '()))) (cons '#t '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6116761178%_)))) - (_%g6116561300%_ + _%g6123061241%_)))) + (_%g6122861363%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60516%_ + (cons _%L60579%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L60376%_ '())) + (cons _%L60439%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8469,7 +8469,7 @@ (cons (cons (gx#datum->syntax '#f 'direct-instance?) - (cons _%L60348%_ + (cons _%L60411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'obj) '()))) '()))) @@ -8477,10 +8477,10 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6113961150%_)))) - (_%g6113761304%_ + _%g6120261213%_)))) + (_%g6120061367%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60488%_ + (cons (cons _%L60551%_ (cons (gx#datum->syntax '#f 'obj) @@ -8508,15 +8508,15 @@ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'try-cast) - (cons _%L60432%_ + (cons _%L60495%_ (cons (gx#datum->syntax '#f 'obj) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%g6111161122%_)))) - (_%g6110961308%_ + _%g6117461185%_)))) + (_%g6117261371%_ (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L60460%_ + (cons (cons _%L60523%_ (cons (gx#datum->syntax '#f 'obj) '())) (cons (cons (gx#datum->syntax '#f @@ -8525,7 +8525,7 @@ '#f '@type.signature) (cons 'return: - (cons _%L60376%_ + (cons _%L60439%_ (cons 'effect: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'cast) '()) @@ -8539,7 +8539,7 @@ (cons (cons (gx#datum->syntax '#f 'cast) - (cons _%L60432%_ + (cons _%L60495%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -8549,47 +8549,47 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6108361094%_)))) - (_%g6108161312%_ + _%g6114661157%_)))) + (_%g6114461375%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60432%_ + (cons _%L60495%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@interface) - (cons _%L60376%_ - (cons (foldr (lambda (_%g6131761320%_ + (cons _%L60439%_ + (cons (foldr (lambda (_%g6138061383%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6131861323%_) - (cons _%g6131761320%_ _%g6131861323%_)) + _%g6138161386%_) + (cons _%g6138061383%_ _%g6138161386%_)) '() - _%L60753%_) + _%L60816%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'make-interface-descriptor) - (cons _%L60348%_ + (cons _%L60411%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6131561326%_ + (cons (foldr (lambda (_%g6137861389%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6131661329%_) - (cons _%g6131561326%_ _%g6131661329%_)) + _%g6137961392%_) + (cons _%g6137861389%_ _%g6137961392%_)) '() - _%L60753%_) + _%L60816%_) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6105561066%_)))) - (_%g6105361332%_ + _%g6111861129%_)))) + (_%g6111661395%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L60348%_ + (cons _%L60411%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -8597,17 +8597,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.class) - (cons _%L60404%_ + (cons _%L60467%_ (cons (cons (gx#datum->syntax '#f 'interface-instance::t) '()) - (cons (foldr (lambda (_%g6133761340%_ - _%g6133861343%_) - (cons _%g6133761340%_ - _%g6133861343%_)) + (cons (foldr (lambda (_%g6140061403%_ + _%g6140161406%_) + (cons _%g6140061403%_ + _%g6140161406%_)) '() - _%L60753%_) + _%L60816%_) (cons '#f (cons '#t (cons '#t @@ -8617,9 +8617,9 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60404%_ '())) + (cons _%L60467%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L60321%_ '())) + (cons _%L60384%_ '())) (cons (cons (gx#datum->syntax '#f '@list) @@ -8630,12 +8630,12 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g6133561346%_ + (cons (foldr (lambda (_%g6139861409%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6133661349%_) - (cons _%g6133561346%_ _%g6133661349%_)) + _%g6139961412%_) + (cons _%g6139861409%_ _%g6139961412%_)) '() - _%L60753%_) + _%L60816%_) '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons (cons (cons 'final: '#t) @@ -8646,916 +8646,916 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - _%defmethod-impl6099461033%_)))))) + _%defmethod-impl6105761096%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6098961013%_ - _%target6098661007%_ + (_%loop6105261076%_ + _%target6104961070%_ '())) - (_%g6098361000%_ - _%g6098461004%_))))) - (_%g6098361000%_ _%g6098461004%_))))) - (_%g6098261352%_ - (map (_%make-method-defs60198%_ _%L60321%_) - (foldr (lambda (_%g6135561358%_ _%g6135661361%_) - (cons _%g6135561358%_ _%g6135661361%_)) + (_%g6104661063%_ + _%g6104761067%_))))) + (_%g6104661063%_ _%g6104761067%_))))) + (_%g6104561415%_ + (map (_%make-method-defs60261%_ _%L60384%_) + (foldr (lambda (_%g6141861421%_ _%g6141961424%_) + (cons _%g6141861421%_ _%g6141961424%_)) '() - _%L60682%_) - (let ((__tmp84161 - (length (foldr (lambda (_%g6136361366%_ - _%g6136461369%_) - (cons _%g6136361366%_ - _%g6136461369%_)) + _%L60745%_) + (let ((__tmp84224 + (length (foldr (lambda (_%g6142661429%_ + _%g6142761432%_) + (cons _%g6142661429%_ + _%g6142761432%_)) '() - _%L60753%_)))) + _%L60816%_)))) (declare (not safe)) - (##iota __tmp84161 '2)))))) - _%unchecked-method-impl-name6092360962%_)))))) + (##iota __tmp84224 '2)))))) + _%unchecked-method-impl-name6098661025%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6091860942%_ - _%target6091560936%_ + (_%loop6098161005%_ + _%target6097860999%_ '())) - (_%g6091260929%_ _%g6091360933%_))))) - (_%g6091260929%_ _%g6091360933%_))))) - (_%g6091161372%_ - (map (lambda (_%method-name61376%_) + (_%g6097560992%_ _%g6097660996%_))))) + (_%g6097560992%_ _%g6097660996%_))))) + (_%g6097461435%_ + (map (lambda (_%method-name61439%_) (gx#stx-identifier - _%L60321%_ + _%L60384%_ '"&" - _%L60321%_ + _%L60384%_ '"-" - _%method-name61376%_)) - (foldr (lambda (_%g6137861381%_ _%g6137961384%_) - (cons _%g6137861381%_ _%g6137961384%_)) + _%method-name61439%_)) + (foldr (lambda (_%g6144161444%_ _%g6144261447%_) + (cons _%g6144161444%_ _%g6144261447%_)) '() - _%L60753%_))))) - _%method-impl-name6085260891%_)))))) + _%L60816%_))))) + _%method-impl-name6091560954%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6084760871%_ - _%target6084460865%_ + (_%loop6091060934%_ + _%target6090760928%_ '())) - (_%g6084160858%_ _%g6084260862%_))))) - (_%g6084160858%_ _%g6084260862%_))))) - (_%g6084061387%_ - (map (lambda (_%method-name61391%_) + (_%g6090460921%_ _%g6090560925%_))))) + (_%g6090460921%_ _%g6090560925%_))))) + (_%g6090361450%_ + (map (lambda (_%method-name61454%_) (gx#stx-identifier - _%L60321%_ - _%L60321%_ + _%L60384%_ + _%L60384%_ '"-" - _%method-name61391%_)) - (foldr (lambda (_%g6139361396%_ _%g6139461399%_) - (cons _%g6139361396%_ _%g6139461399%_)) + _%method-name61454%_)) + (foldr (lambda (_%g6145661459%_ _%g6145761462%_) + (cons _%g6145661459%_ _%g6145761462%_)) '() - _%L60753%_))))) + _%L60816%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-signature6078160820%_)))))) - (_%loop6077660800%_ _%target6077360794%_ '())) - (_%g6077060787%_ _%g6077160791%_))))) - (_%g6077060787%_ _%g6077160791%_))))) + _%method-signature6084460883%_)))))) + (_%loop6083960863%_ _%target6083660857%_ '())) + (_%g6083360850%_ _%g6083460854%_))))) + (_%g6083360850%_ _%g6083460854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6076961402%_ + (_%g6083261465%_ (map gx#stx-cdr - (foldr (lambda (_%g6140561408%_ + (foldr (lambda (_%g6146861471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6140661411%_) - (cons _%g6140561408%_ _%g6140661411%_)) + _%g6146961474%_) + (cons _%g6146861471%_ _%g6146961474%_)) '() - _%L60682%_))))) + _%L60745%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method-name6071060749%_)))))) - (_%loop6070560729%_ _%target6070260723%_ '())) - (_%g6069960716%_ _%g6070060720%_))))) - (_%g6069960716%_ _%g6070060720%_))))) + _%method-name6077360812%_)))))) + (_%loop6076860792%_ _%target6076560786%_ '())) + (_%g6076260779%_ _%g6076360783%_))))) + (_%g6076260779%_ _%g6076360783%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6069861414%_ + (_%g6076161477%_ (map gx#stx-car - (foldr (lambda (_%g6141761420%_ + (foldr (lambda (_%g6148061483%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6141861423%_) - (cons _%g6141761420%_ _%g6141861423%_)) + _%g6148161486%_) + (cons _%g6148061483%_ _%g6148161486%_)) '() - _%L60682%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%method6063960678%_)))))) - (_%loop6063460658%_ _%target6063160652%_ '())) - (_%g6062860645%_ _%g6062960649%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6062860645%_ - _%g6062960649%_))))) - (_%g6062761426%_ - (_%fold-methods60194%_ - (foldr (lambda (_%g6142961432%_ - _%g6143061435%_) - (cons _%g6142961432%_ - _%g6143061435%_)) + _%L60745%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%method6070260741%_)))))) + (_%loop6069760721%_ _%target6069460715%_ '())) + (_%g6069160708%_ _%g6069260712%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6069160708%_ + _%g6069260712%_))))) + (_%g6069061489%_ + (_%fold-methods60257%_ + (foldr (lambda (_%g6149261495%_ + _%g6149361498%_) + (cons _%g6149261495%_ + _%g6149361498%_)) '() - _%L60611%_) - (foldr (lambda (_%g6143761440%_ - _%g6143861443%_) - (cons _%g6143761440%_ - _%g6143861443%_)) + _%L60674%_) + (foldr (lambda (_%g6150061503%_ + _%g6150161506%_) + (cons _%g6150061503%_ + _%g6150161506%_)) '() - _%L60281%_))))) - _%mixin6056860607%_)))))) - (_%loop6056360587%_ _%target6056060581%_ '())) - (_%g6055760574%_ _%g6055860578%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6055760574%_ - _%g6055860578%_))))) - (_%g6055661446%_ - (if (gx#identifier? _%L60283%_) + _%L60344%_))))) + _%mixin6063160670%_)))))) + (_%loop6062660650%_ _%target6062360644%_ '())) + (_%g6062060637%_ _%g6062160641%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6062060637%_ + _%g6062160641%_))))) + (_%g6061961509%_ + (if (gx#identifier? _%L60346%_) '() (gx#syntax->list - (gx#stx-cdr _%L60283%_)))))) - _%g6053060541%_)))) - (_%g6052861450%_ - (gx#stx-identifier _%L60321%_ '"is-" _%L60321%_ '"?")))) - _%g6050260513%_)))) + (gx#stx-cdr _%L60346%_)))))) + _%g6059360604%_)))) + (_%g6059161513%_ + (gx#stx-identifier _%L60384%_ '"is-" _%L60384%_ '"?")))) + _%g6056560576%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6050061454%_ + (_%g6056361517%_ (gx#stx-identifier - _%L60321%_ - _%L60321%_ + _%L60384%_ + _%L60384%_ '"?")))) - _%g6047460485%_)))) - (_%g6047261458%_ + _%g6053760548%_)))) + (_%g6053561521%_ (gx#stx-identifier - _%L60321%_ + _%L60384%_ '"try-" - _%L60321%_)))) - _%g6044660457%_)))) - (_%g6044461462%_ - (gx#stx-identifier _%L60321%_ '"make-" _%L60321%_)))) - _%g6041860429%_)))) + _%L60384%_)))) + _%g6050960520%_)))) + (_%g6050761525%_ + (gx#stx-identifier _%L60384%_ '"make-" _%L60384%_)))) + _%g6048160492%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6041661466%_ + (_%g6047961529%_ (gx#stx-identifier - _%L60321%_ - _%L60321%_ + _%L60384%_ + _%L60384%_ '"::interface")))) - _%g6039060401%_)))) - (_%g6038861470%_ + _%g6045360464%_)))) + (_%g6045161533%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L60321%_))))) - _%g6036260373%_)))) - (_%g6036061474%_ (gx#core-quote-syntax _%L60348%_)))) - _%g6033460345%_)))) + _%L60384%_))))) + _%g6042560436%_)))) + (_%g6042361537%_ (gx#core-quote-syntax _%L60411%_)))) + _%g6039760408%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6033261478%_ + (_%g6039561541%_ (gx#stx-identifier - _%L60321%_ - _%L60321%_ + _%L60384%_ + _%L60384%_ '"::t")))) - _%g6030760318%_)))) - (_%g6030561482%_ - (if (gx#identifier? _%L60283%_) - _%L60283%_ - (gx#stx-car _%L60283%_)))) - (_%g6020060224%_ _%g6020160228%_))) - _%spec6021860277%_ - _%hd6020860245%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6021360257%_ - _%target6021060251%_ + _%g6037060381%_)))) + (_%g6036861545%_ + (if (gx#identifier? _%L60346%_) + _%L60346%_ + (gx#stx-car _%L60346%_)))) + (_%g6026360287%_ _%g6026460291%_))) + _%spec6028160340%_ + _%hd6027160308%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6027660320%_ + _%target6027360314%_ '())) - (_%g6020060224%_ - _%g6020160228%_))))) - (_%g6020060224%_ _%g6020160228%_)))) - (_%g6020060224%_ _%g6020160228%_)))) - (_%g6020060224%_ _%g6020160228%_))))) - (_%g6019961486%_ _%stx60191%_))))) + (_%g6026360287%_ + _%g6026460291%_))))) + (_%g6026360287%_ _%g6026460291%_)))) + (_%g6026360287%_ _%g6026460291%_)))) + (_%g6026360287%_ _%g6026460291%_))))) + (_%g6026261549%_ _%stx60254%_))))) (define |gerbil/core/contract~Interface[:0:]#definterface-method| - (lambda (_%stx61996%_) - (letrec ((_%emit-raw-method?61999%_ - (lambda (_%return62982%_) - (let ((_%return-type62985%_ - (gx#syntax-local-value _%return62982%_))) + (lambda (_%stx62059%_) + (letrec ((_%emit-raw-method?62062%_ + (lambda (_%return63045%_) + (let ((_%return-type63048%_ + (gx#syntax-local-value _%return63045%_))) (if (and (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%return-type62985%_)) - (let ((__tmp84162 - (let ((__obj83934 _%return-type62985%_)) + _%return-type63048%_)) + (let ((__tmp84225 + (let ((__obj83997 _%return-type63048%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83934 + __obj83997 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83934 + __obj83997 '1 '#f '#f)) (unchecked-slot-ref - __obj83934 + __obj83997 'id))))) (declare (not safe)) - (##memq __tmp84162 '(t void)))) + (##memq __tmp84225 '(t void)))) '#f '#t)))) - (_%make-checked-method-def62001%_ - (lambda (_%Interface62743%_ - _%method-name62745%_ - _%raw-method-name62746%_ - _%unchecked-method-name62747%_ - _%signature62748%_ - _%return62749%_) - (let* ((_%g6275162799%_ - (lambda (_%g6275262795%_) + (_%make-checked-method-def62064%_ + (lambda (_%Interface62806%_ + _%method-name62808%_ + _%raw-method-name62809%_ + _%unchecked-method-name62810%_ + _%signature62811%_ + _%return62812%_) + (let* ((_%g6281462862%_ + (lambda (_%g6281562858%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6275262795%_))) - (_%g6275062978%_ - (lambda (_%g6275262803%_) - (if (gx#stx-pair? _%g6275262803%_) - (let ((_%e6276162806%_ - (gx#syntax-e _%g6275262803%_))) - (let ((_%hd6276262810%_ + _%g6281562858%_))) + (_%g6281363041%_ + (lambda (_%g6281562866%_) + (if (gx#stx-pair? _%g6281562866%_) + (let ((_%e6282462869%_ + (gx#syntax-e _%g6281562866%_))) + (let ((_%hd6282562873%_ (let () (declare (not safe)) - (##car _%e6276162806%_))) - (_%tl6276362813%_ + (##car _%e6282462869%_))) + (_%tl6282662876%_ (let () (declare (not safe)) - (##cdr _%e6276162806%_)))) - (if (gx#stx-pair? _%tl6276362813%_) - (let ((_%e6276462816%_ + (##cdr _%e6282462869%_)))) + (if (gx#stx-pair? _%tl6282662876%_) + (let ((_%e6282762879%_ (gx#syntax-e - _%tl6276362813%_))) - (let ((_%hd6276562820%_ + _%tl6282662876%_))) + (let ((_%hd6282862883%_ (let () (declare (not safe)) - (##car _%e6276462816%_))) - (_%tl6276662823%_ + (##car _%e6282762879%_))) + (_%tl6282962886%_ (let () (declare (not safe)) - (##cdr _%e6276462816%_)))) + (##cdr _%e6282762879%_)))) (if (gx#stx-pair? - _%tl6276662823%_) - (let ((_%e6276762826%_ + _%tl6282962886%_) + (let ((_%e6283062889%_ (gx#syntax-e - _%tl6276662823%_))) - (let ((_%hd6276862830%_ + _%tl6282962886%_))) + (let ((_%hd6283162893%_ (let () (declare (not safe)) - (##car _%e6276762826%_))) - (_%tl6276962833%_ + (##car _%e6283062889%_))) + (_%tl6283262896%_ (let () (declare (not safe)) - (##cdr _%e6276762826%_)))) + (##cdr _%e6283062889%_)))) (if (gx#stx-pair? - _%tl6276962833%_) - (let ((_%e6277062836%_ + _%tl6283262896%_) + (let ((_%e6283362899%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6276962833%_))) - (let ((_%hd6277162840%_ + (gx#syntax-e _%tl6283262896%_))) + (let ((_%hd6283462903%_ (let () (declare (not safe)) - (##car _%e6277062836%_))) - (_%tl6277262843%_ + (##car _%e6283362899%_))) + (_%tl6283562906%_ (let () (declare (not safe)) - (##cdr _%e6277062836%_)))) - (if (gx#stx-pair? _%tl6277262843%_) - (let ((_%e6277362846%_ - (gx#syntax-e _%tl6277262843%_))) - (let ((_%hd6277462850%_ + (##cdr _%e6283362899%_)))) + (if (gx#stx-pair? _%tl6283562906%_) + (let ((_%e6283662909%_ + (gx#syntax-e _%tl6283562906%_))) + (let ((_%hd6283762913%_ (let () (declare (not safe)) - (##car _%e6277362846%_))) - (_%tl6277562853%_ + (##car _%e6283662909%_))) + (_%tl6283862916%_ (let () (declare (not safe)) - (##cdr _%e6277362846%_)))) - (if (gx#stx-pair? _%tl6277562853%_) - (let ((_%e6277662856%_ - (gx#syntax-e _%tl6277562853%_))) - (let ((_%hd6277762860%_ + (##cdr _%e6283662909%_)))) + (if (gx#stx-pair? _%tl6283862916%_) + (let ((_%e6283962919%_ + (gx#syntax-e _%tl6283862916%_))) + (let ((_%hd6284062923%_ (let () (declare (not safe)) - (##car _%e6277662856%_))) - (_%tl6277862863%_ + (##car _%e6283962919%_))) + (_%tl6284162926%_ (let () (declare (not safe)) - (##cdr _%e6277662856%_)))) - (if (gx#stx-pair/null? _%hd6277762860%_) - (let ((_g84163_ + (##cdr _%e6283962919%_)))) + (if (gx#stx-pair/null? _%hd6284062923%_) + (let ((_g84226_ (gx#syntax-split-splice - _%hd6277762860%_ + _%hd6284062923%_ '0))) (begin - (let ((_g84164_ + (let ((_g84227_ (let () (declare (not safe)) - (if (##values? _g84163_) - (##vector-length - _g84163_) + (if (##values? _g84226_) + (##values-length + _g84226_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84164_ 2))) + (##fx= _g84227_ 2))) (error "Context expects 2 values" - _g84164_))) - (let ((_%target6277962866%_ + _g84227_))) + (let ((_%target6284262929%_ (let () (declare (not safe)) - (##vector-ref - _g84163_ + (##values-ref + _g84226_ 0))) - (_%tl6278162869%_ + (_%tl6284462932%_ (let () (declare (not safe)) - (##vector-ref - _g84163_ + (##values-ref + _g84226_ 1)))) (if (gx#stx-null? - _%tl6278162869%_) - (letrec ((_%loop6278262872%_ - (lambda (_%hd6278062876%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out6278662879%_) - (if (gx#stx-pair? _%hd6278062876%_) - (let ((_%e6278362882%_ - (gx#syntax-e _%hd6278062876%_))) - (let ((_%lp-hd6278462886%_ + _%tl6284462932%_) + (letrec ((_%loop6284562935%_ + (lambda (_%hd6284362939%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%out6284962942%_) + (if (gx#stx-pair? _%hd6284362939%_) + (let ((_%e6284662945%_ + (gx#syntax-e _%hd6284362939%_))) + (let ((_%lp-hd6284762949%_ (let () (declare (not safe)) - (##car _%e6278362882%_))) - (_%lp-tl6278562889%_ + (##car _%e6284662945%_))) + (_%lp-tl6284862952%_ (let () (declare (not safe)) - (##cdr _%e6278362882%_)))) - (_%loop6278262872%_ - _%lp-tl6278562889%_ - (cons _%lp-hd6278462886%_ - _%out6278662879%_)))) - (let ((_%out6278762892%_ - (reverse _%out6278662879%_))) - (if (gx#stx-pair? _%tl6277862863%_) - (let ((_%e6278862896%_ - (gx#syntax-e _%tl6277862863%_))) - (let ((_%hd6278962900%_ + (##cdr _%e6284662945%_)))) + (_%loop6284562935%_ + _%lp-tl6284862952%_ + (cons _%lp-hd6284762949%_ + _%out6284962942%_)))) + (let ((_%out6285062955%_ + (reverse _%out6284962942%_))) + (if (gx#stx-pair? _%tl6284162926%_) + (let ((_%e6285162959%_ + (gx#syntax-e _%tl6284162926%_))) + (let ((_%hd6285262963%_ (let () (declare (not safe)) - (##car _%e6278862896%_))) - (_%tl6279062903%_ + (##car _%e6285162959%_))) + (_%tl6285362966%_ (let () (declare (not safe)) - (##cdr _%e6278862896%_)))) - (if (gx#stx-pair? _%tl6279062903%_) - (let ((_%e6279162906%_ + (##cdr _%e6285162959%_)))) + (if (gx#stx-pair? _%tl6285362966%_) + (let ((_%e6285462969%_ (gx#syntax-e - _%tl6279062903%_))) - (let ((_%hd6279262910%_ + _%tl6285362966%_))) + (let ((_%hd6285562973%_ (let () (declare (not safe)) - (##car _%e6279162906%_))) - (_%tl6279362913%_ + (##car _%e6285462969%_))) + (_%tl6285662976%_ (let () (declare (not safe)) - (##cdr _%e6279162906%_)))) + (##cdr _%e6285462969%_)))) (if (gx#stx-null? - _%tl6279362913%_) - ((lambda (_%L62916%_ - _%L62918%_ - _%L62919%_ - _%L62920%_ - _%L62921%_ - _%L62922%_ - _%L62923%_ - _%L62924%_) + _%tl6285662976%_) + ((lambda (_%L62979%_ + _%L62981%_ + _%L62982%_ + _%L62983%_ + _%L62984%_ + _%L62985%_ + _%L62986%_ + _%L62987%_) (if (gx#stx-list? - _%L62918%_) + _%L62981%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62923%_ (cons _%L62921%_ _%L62920%_)) + (cons (cons _%L62986%_ (cons _%L62984%_ _%L62983%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62921%_ - (cons (cons _%L62924%_ - (cons _%L62918%_ + (cons _%L62984%_ + (cons (cons _%L62987%_ + (cons _%L62981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62916%_ (cons _%L62922%_ '())))) + (cons _%L62979%_ (cons _%L62985%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) - (cons (cons _%L62922%_ - (cons _%L62921%_ - (foldr (lambda (_%g6296162964%_ - _%g6296262967%_) - (cons _%g6296162964%_ - _%g6296262967%_)) + (cons (cons _%L62985%_ + (cons _%L62984%_ + (foldr (lambda (_%g6302463027%_ + _%g6302563030%_) + (cons _%g6302463027%_ + _%g6302563030%_)) '() - _%L62919%_))) - (cons _%L62916%_ '()))) + _%L62982%_))) + (cons _%L62979%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61996%_)) + (gx#stx-source _%stx62059%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62923%_ (cons _%L62921%_ _%L62920%_)) + (cons (cons _%L62986%_ (cons _%L62984%_ _%L62983%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-checked-method) - (cons _%L62921%_ - (cons (cons _%L62924%_ - (cons _%L62918%_ + (cons _%L62984%_ + (cons (cons _%L62987%_ + (cons _%L62981%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62916%_ (cons _%L62922%_ '())))) + (cons _%L62979%_ (cons _%L62985%_ '())))) (cons (cons (gx#datum->syntax '#f ':-) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62922%_ - (cons _%L62921%_ - (foldr (lambda (_%g6296962972%_ + (cons _%L62985%_ + (cons _%L62984%_ + (foldr (lambda (_%g6303263035%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6297062975%_) - (cons _%g6296962972%_ _%g6297062975%_)) + _%g6303363038%_) + (cons _%g6303263035%_ _%g6303363038%_)) '() - _%L62919%_)))) + _%L62982%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62916%_ '()))) + (cons _%L62979%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61996%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6279262910%_ - _%hd6278962900%_ - _%out6278762892%_ - _%hd6277462850%_ - _%hd6277162840%_ - _%hd6276862830%_ - _%hd6276562820%_ - _%hd6276262810%_) - (_%g6275162799%_ - _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_))))))) - (_%loop6278262872%_ _%target6277962866%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6275162799%_ - _%g6275262803%_))))) - (_%g6275162799%_ _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6275162799%_ - _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_)))) - (_%g6275162799%_ _%g6275262803%_))))) - (_%g6275062978%_ - (list _%Interface62743%_ - _%method-name62745%_ - (if (_%emit-raw-method?61999%_ _%return62749%_) - _%raw-method-name62746%_ - _%unchecked-method-name62747%_) + (gx#stx-source _%stx62059%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6285562973%_ + _%hd6285262963%_ + _%out6285062955%_ + _%hd6283762913%_ + _%hd6283462903%_ + _%hd6283162893%_ + _%hd6282862883%_ + _%hd6282562873%_) + (_%g6281462862%_ + _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_))))))) + (_%loop6284562935%_ _%target6284262929%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6281462862%_ + _%g6281562866%_))))) + (_%g6281462862%_ _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6281462862%_ + _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_)))) + (_%g6281462862%_ _%g6281562866%_))))) + (_%g6281363041%_ + (list _%Interface62806%_ + _%method-name62808%_ + (if (_%emit-raw-method?62062%_ _%return62812%_) + _%raw-method-name62809%_ + _%unchecked-method-name62810%_) (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62748%_) + _%signature62811%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62748%_) - _%signature62748%_ - _%return62749%_))))) - (_%make-raw-method-def62002%_ - (lambda (_%Interface62505%_ - _%raw-method-name62507%_ - _%unchecked-method-name62508%_ - _%signature62509%_ - _%return62510%_) - (if (_%emit-raw-method?61999%_ _%return62510%_) - (let* ((_%g6251262560%_ - (lambda (_%g6251362556%_) + _%signature62811%_) + _%signature62811%_ + _%return62812%_))))) + (_%make-raw-method-def62065%_ + (lambda (_%Interface62568%_ + _%raw-method-name62570%_ + _%unchecked-method-name62571%_ + _%signature62572%_ + _%return62573%_) + (if (_%emit-raw-method?62062%_ _%return62573%_) + (let* ((_%g6257562623%_ + (lambda (_%g6257662619%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6251362556%_))) - (_%g6251162739%_ - (lambda (_%g6251362564%_) - (if (gx#stx-pair? _%g6251362564%_) - (let ((_%e6252262567%_ - (gx#syntax-e _%g6251362564%_))) - (let ((_%hd6252362571%_ + _%g6257662619%_))) + (_%g6257462802%_ + (lambda (_%g6257662627%_) + (if (gx#stx-pair? _%g6257662627%_) + (let ((_%e6258562630%_ + (gx#syntax-e _%g6257662627%_))) + (let ((_%hd6258662634%_ (let () (declare (not safe)) - (##car _%e6252262567%_))) - (_%tl6252462574%_ + (##car _%e6258562630%_))) + (_%tl6258762637%_ (let () (declare (not safe)) - (##cdr _%e6252262567%_)))) - (if (gx#stx-pair? _%tl6252462574%_) - (let ((_%e6252562577%_ + (##cdr _%e6258562630%_)))) + (if (gx#stx-pair? _%tl6258762637%_) + (let ((_%e6258862640%_ (gx#syntax-e - _%tl6252462574%_))) - (let ((_%hd6252662581%_ + _%tl6258762637%_))) + (let ((_%hd6258962644%_ (let () (declare (not safe)) - (##car _%e6252562577%_))) - (_%tl6252762584%_ + (##car _%e6258862640%_))) + (_%tl6259062647%_ (let () (declare (not safe)) - (##cdr _%e6252562577%_)))) + (##cdr _%e6258862640%_)))) (if (gx#stx-pair? - _%tl6252762584%_) - (let ((_%e6252862587%_ + _%tl6259062647%_) + (let ((_%e6259162650%_ (gx#syntax-e - _%tl6252762584%_))) - (let ((_%hd6252962591%_ + _%tl6259062647%_))) + (let ((_%hd6259262654%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6252862587%_))) - (_%tl6253062594%_ - (let () (declare (not safe)) (##cdr _%e6252862587%_)))) - (if (gx#stx-pair? _%tl6253062594%_) - (let ((_%e6253162597%_ (gx#syntax-e _%tl6253062594%_))) - (let ((_%hd6253262601%_ + (##car _%e6259162650%_))) + (_%tl6259362657%_ + (let () (declare (not safe)) (##cdr _%e6259162650%_)))) + (if (gx#stx-pair? _%tl6259362657%_) + (let ((_%e6259462660%_ (gx#syntax-e _%tl6259362657%_))) + (let ((_%hd6259562664%_ (let () (declare (not safe)) - (##car _%e6253162597%_))) - (_%tl6253362604%_ + (##car _%e6259462660%_))) + (_%tl6259662667%_ (let () (declare (not safe)) - (##cdr _%e6253162597%_)))) - (if (gx#stx-pair? _%tl6253362604%_) - (let ((_%e6253462607%_ - (gx#syntax-e _%tl6253362604%_))) - (let ((_%hd6253562611%_ + (##cdr _%e6259462660%_)))) + (if (gx#stx-pair? _%tl6259662667%_) + (let ((_%e6259762670%_ + (gx#syntax-e _%tl6259662667%_))) + (let ((_%hd6259862674%_ (let () (declare (not safe)) - (##car _%e6253462607%_))) - (_%tl6253662614%_ + (##car _%e6259762670%_))) + (_%tl6259962677%_ (let () (declare (not safe)) - (##cdr _%e6253462607%_)))) - (if (gx#stx-pair? _%tl6253662614%_) - (let ((_%e6253762617%_ - (gx#syntax-e _%tl6253662614%_))) - (let ((_%hd6253862621%_ + (##cdr _%e6259762670%_)))) + (if (gx#stx-pair? _%tl6259962677%_) + (let ((_%e6260062680%_ + (gx#syntax-e _%tl6259962677%_))) + (let ((_%hd6260162684%_ (let () (declare (not safe)) - (##car _%e6253762617%_))) - (_%tl6253962624%_ + (##car _%e6260062680%_))) + (_%tl6260262687%_ (let () (declare (not safe)) - (##cdr _%e6253762617%_)))) + (##cdr _%e6260062680%_)))) (if (gx#stx-pair/null? - _%hd6253862621%_) - (let ((_g84165_ + _%hd6260162684%_) + (let ((_g84228_ (gx#syntax-split-splice - _%hd6253862621%_ + _%hd6260162684%_ '0))) (begin - (let ((_g84166_ + (let ((_g84229_ (let () (declare (not safe)) (if (##values? - _g84165_) - (##vector-length - _g84165_) + _g84228_) + (##values-length + _g84228_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84166_ 2))) - (error "Context expects 2 values" _g84166_))) + (##fx= _g84229_ 2))) + (error "Context expects 2 values" _g84229_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6254062627%_ + (let ((_%target6260362690%_ (let () (declare (not safe)) - (##vector-ref - _g84165_ + (##values-ref + _g84228_ 0))) - (_%tl6254262630%_ + (_%tl6260562693%_ (let () (declare (not safe)) - (##vector-ref - _g84165_ + (##values-ref + _g84228_ 1)))) (if (gx#stx-null? - _%tl6254262630%_) - (letrec ((_%loop6254362633%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6254162637%_ _%out6254762640%_) - (if (gx#stx-pair? _%hd6254162637%_) - (let ((_%e6254462643%_ - (gx#syntax-e _%hd6254162637%_))) - (let ((_%lp-hd6254562647%_ + _%tl6260562693%_) + (letrec ((_%loop6260662696%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6260462700%_ _%out6261062703%_) + (if (gx#stx-pair? _%hd6260462700%_) + (let ((_%e6260762706%_ + (gx#syntax-e _%hd6260462700%_))) + (let ((_%lp-hd6260862710%_ (let () (declare (not safe)) - (##car _%e6254462643%_))) - (_%lp-tl6254662650%_ + (##car _%e6260762706%_))) + (_%lp-tl6260962713%_ (let () (declare (not safe)) - (##cdr _%e6254462643%_)))) - (_%loop6254362633%_ - _%lp-tl6254662650%_ - (cons _%lp-hd6254562647%_ - _%out6254762640%_)))) - (let ((_%out6254862653%_ - (reverse _%out6254762640%_))) - (if (gx#stx-pair? _%tl6253962624%_) - (let ((_%e6254962657%_ - (gx#syntax-e _%tl6253962624%_))) - (let ((_%hd6255062661%_ + (##cdr _%e6260762706%_)))) + (_%loop6260662696%_ + _%lp-tl6260962713%_ + (cons _%lp-hd6260862710%_ + _%out6261062703%_)))) + (let ((_%out6261162716%_ + (reverse _%out6261062703%_))) + (if (gx#stx-pair? _%tl6260262687%_) + (let ((_%e6261262720%_ + (gx#syntax-e _%tl6260262687%_))) + (let ((_%hd6261362724%_ (let () (declare (not safe)) - (##car _%e6254962657%_))) - (_%tl6255162664%_ + (##car _%e6261262720%_))) + (_%tl6261462727%_ (let () (declare (not safe)) - (##cdr _%e6254962657%_)))) - (if (gx#stx-pair? _%tl6255162664%_) - (let ((_%e6255262667%_ + (##cdr _%e6261262720%_)))) + (if (gx#stx-pair? _%tl6261462727%_) + (let ((_%e6261562730%_ (gx#syntax-e - _%tl6255162664%_))) - (let ((_%hd6255362671%_ + _%tl6261462727%_))) + (let ((_%hd6261662734%_ (let () (declare (not safe)) - (##car _%e6255262667%_))) - (_%tl6255462674%_ + (##car _%e6261562730%_))) + (_%tl6261762737%_ (let () (declare (not safe)) - (##cdr _%e6255262667%_)))) + (##cdr _%e6261562730%_)))) (if (gx#stx-null? - _%tl6255462674%_) - ((lambda (_%L62677%_ - _%L62679%_ - _%L62680%_ - _%L62681%_ - _%L62682%_ - _%L62683%_ - _%L62684%_ - _%L62685%_) + _%tl6261762737%_) + ((lambda (_%L62740%_ + _%L62742%_ + _%L62743%_ + _%L62744%_ + _%L62745%_ + _%L62746%_ + _%L62747%_ + _%L62748%_) (if (gx#stx-list? - _%L62679%_) + _%L62742%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L62684%_ - (cons _%L62682%_ _%L62681%_)) + (cons (cons _%L62747%_ + (cons _%L62745%_ _%L62744%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62682%_ - (cons (cons _%L62685%_ - (cons _%L62679%_ + (cons _%L62745%_ + (cons (cons _%L62748%_ + (cons _%L62742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62677%_ '()))) + (cons _%L62740%_ '()))) (cons (cons (gx#datum->syntax '#f ':) - (cons (cons _%L62683%_ - (cons _%L62682%_ - (foldr (lambda (_%g6272262725%_ - _%g6272362728%_) - (cons _%g6272262725%_ - _%g6272362728%_)) + (cons (cons _%L62746%_ + (cons _%L62745%_ + (foldr (lambda (_%g6278562788%_ + _%g6278662791%_) + (cons _%g6278562788%_ + _%g6278662791%_)) '() - _%L62680%_))) - (cons _%L62677%_ '()))) + _%L62743%_))) + (cons _%L62740%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61996%_)) + (gx#stx-source _%stx62059%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62684%_ - (cons _%L62682%_ _%L62681%_)) + (cons (cons _%L62747%_ + (cons _%L62745%_ _%L62744%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62682%_ - (cons (cons _%L62685%_ - (cons _%L62679%_ + (cons _%L62745%_ + (cons (cons _%L62748%_ + (cons _%L62742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L62677%_ '()))) + (cons _%L62740%_ '()))) (cons (cons (gx#datum->syntax '#f ':) (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L62683%_ - (cons _%L62682%_ - (foldr (lambda (_%g6273062733%_ + (cons _%L62746%_ + (cons _%L62745%_ + (foldr (lambda (_%g6279362796%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6273162736%_) - (cons _%g6273062733%_ _%g6273162736%_)) + _%g6279462799%_) + (cons _%g6279362796%_ _%g6279462799%_)) '() - _%L62680%_)))) + _%L62743%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L62677%_ '()))) + (cons _%L62740%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx61996%_)))) - _%hd6255362671%_ - _%hd6255062661%_ - _%out6254862653%_ - _%hd6253562611%_ - _%hd6253262601%_ - _%hd6252962591%_ - _%hd6252662581%_ - _%hd6252362571%_) - (_%g6251262560%_ _%g6251362564%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6251262560%_ - _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_))))))) - (_%loop6254362633%_ _%target6254062627%_ '())) - (_%g6251262560%_ _%g6251362564%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6251262560%_ - _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6251262560%_ - _%g6251362564%_)))) - (_%g6251262560%_ _%g6251362564%_))))) - (_%g6251162739%_ - (list _%Interface62505%_ - _%raw-method-name62507%_ - _%unchecked-method-name62508%_ + (gx#stx-source _%stx62059%_)))) + _%hd6261662734%_ + _%hd6261362724%_ + _%out6261162716%_ + _%hd6259862674%_ + _%hd6259562664%_ + _%hd6259262654%_ + _%hd6258962644%_ + _%hd6258662634%_) + (_%g6257562623%_ _%g6257662627%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6257562623%_ + _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_))))))) + (_%loop6260662696%_ _%target6260362690%_ '())) + (_%g6257562623%_ _%g6257662627%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6257562623%_ + _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6257562623%_ + _%g6257662627%_)))) + (_%g6257562623%_ _%g6257662627%_))))) + (_%g6257462802%_ + (list _%Interface62568%_ + _%raw-method-name62570%_ + _%unchecked-method-name62571%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62509%_) + _%signature62572%_) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature62509%_) - _%signature62509%_ - _%return62510%_))) + _%signature62572%_) + _%signature62572%_ + _%return62573%_))) '(begin)))) - (_%make-unchecked-method-def62003%_ - (lambda (_%Interface62293%_ - _%unchecked-method-name62295%_ - _%signature62296%_ - _%return62297%_ - _%body62298%_) - (let* ((_%g6230062344%_ - (lambda (_%g6230162340%_) + (_%make-unchecked-method-def62066%_ + (lambda (_%Interface62356%_ + _%unchecked-method-name62358%_ + _%signature62359%_ + _%return62360%_ + _%body62361%_) + (let* ((_%g6236362407%_ + (lambda (_%g6236462403%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6230162340%_))) - (_%g6229962501%_ - (lambda (_%g6230162348%_) - (if (gx#stx-pair? _%g6230162348%_) - (let ((_%e6230962351%_ - (gx#syntax-e _%g6230162348%_))) - (let ((_%hd6231062355%_ + _%g6236462403%_))) + (_%g6236262564%_ + (lambda (_%g6236462411%_) + (if (gx#stx-pair? _%g6236462411%_) + (let ((_%e6237262414%_ + (gx#syntax-e _%g6236462411%_))) + (let ((_%hd6237362418%_ (let () (declare (not safe)) - (##car _%e6230962351%_))) - (_%tl6231162358%_ + (##car _%e6237262414%_))) + (_%tl6237462421%_ (let () (declare (not safe)) - (##cdr _%e6230962351%_)))) - (if (gx#stx-pair? _%tl6231162358%_) - (let ((_%e6231262361%_ + (##cdr _%e6237262414%_)))) + (if (gx#stx-pair? _%tl6237462421%_) + (let ((_%e6237562424%_ (gx#syntax-e - _%tl6231162358%_))) - (let ((_%hd6231362365%_ + _%tl6237462421%_))) + (let ((_%hd6237662428%_ (let () (declare (not safe)) - (##car _%e6231262361%_))) - (_%tl6231462368%_ + (##car _%e6237562424%_))) + (_%tl6237762431%_ (let () (declare (not safe)) - (##cdr _%e6231262361%_)))) + (##cdr _%e6237562424%_)))) (if (gx#stx-pair? - _%tl6231462368%_) - (let ((_%e6231562371%_ + _%tl6237762431%_) + (let ((_%e6237862434%_ (gx#syntax-e - _%tl6231462368%_))) - (let ((_%hd6231662375%_ + _%tl6237762431%_))) + (let ((_%hd6237962438%_ (let () (declare (not safe)) - (##car _%e6231562371%_))) - (_%tl6231762378%_ + (##car _%e6237862434%_))) + (_%tl6238062441%_ (let () (declare (not safe)) - (##cdr _%e6231562371%_)))) + (##cdr _%e6237862434%_)))) (if (gx#stx-pair? - _%tl6231762378%_) - (let ((_%e6231862381%_ + _%tl6238062441%_) + (let ((_%e6238162444%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6231762378%_))) - (let ((_%hd6231962385%_ + (gx#syntax-e _%tl6238062441%_))) + (let ((_%hd6238262448%_ (let () (declare (not safe)) - (##car _%e6231862381%_))) - (_%tl6232062388%_ + (##car _%e6238162444%_))) + (_%tl6238362451%_ (let () (declare (not safe)) - (##cdr _%e6231862381%_)))) - (if (gx#stx-pair? _%tl6232062388%_) - (let ((_%e6232162391%_ - (gx#syntax-e _%tl6232062388%_))) - (let ((_%hd6232262395%_ + (##cdr _%e6238162444%_)))) + (if (gx#stx-pair? _%tl6238362451%_) + (let ((_%e6238462454%_ + (gx#syntax-e _%tl6238362451%_))) + (let ((_%hd6238562458%_ (let () (declare (not safe)) - (##car _%e6232162391%_))) - (_%tl6232362398%_ + (##car _%e6238462454%_))) + (_%tl6238662461%_ (let () (declare (not safe)) - (##cdr _%e6232162391%_)))) - (if (gx#stx-pair? _%tl6232362398%_) - (let ((_%e6232462401%_ - (gx#syntax-e _%tl6232362398%_))) - (let ((_%hd6232562405%_ + (##cdr _%e6238462454%_)))) + (if (gx#stx-pair? _%tl6238662461%_) + (let ((_%e6238762464%_ + (gx#syntax-e _%tl6238662461%_))) + (let ((_%hd6238862468%_ (let () (declare (not safe)) - (##car _%e6232462401%_))) - (_%tl6232662408%_ + (##car _%e6238762464%_))) + (_%tl6238962471%_ (let () (declare (not safe)) - (##cdr _%e6232462401%_)))) - (if (gx#stx-pair? _%tl6232662408%_) - (let ((_%e6232762411%_ + (##cdr _%e6238762464%_)))) + (if (gx#stx-pair? _%tl6238962471%_) + (let ((_%e6239062474%_ (gx#syntax-e - _%tl6232662408%_))) - (let ((_%hd6232862415%_ + _%tl6238962471%_))) + (let ((_%hd6239162478%_ (let () (declare (not safe)) - (##car _%e6232762411%_))) - (_%tl6232962418%_ + (##car _%e6239062474%_))) + (_%tl6239262481%_ (let () (declare (not safe)) - (##cdr _%e6232762411%_)))) + (##cdr _%e6239062474%_)))) (if (gx#stx-pair/null? - _%hd6232862415%_) - (let ((_g84167_ + _%hd6239162478%_) + (let ((_g84230_ (gx#syntax-split-splice - _%hd6232862415%_ + _%hd6239162478%_ '0))) (begin - (let ((_g84168_ + (let ((_g84231_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84167_) - (##vector-length _g84167_) + (if (##values? _g84230_) + (##values-length _g84230_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84168_ 2))) - (error "Context expects 2 values" _g84168_))) - (let ((_%target6233062421%_ - (let () (declare (not safe)) (##vector-ref _g84167_ 0))) - (_%tl6233262424%_ - (let () (declare (not safe)) (##vector-ref _g84167_ 1)))) - (if (gx#stx-null? _%tl6233262424%_) - (letrec ((_%loop6233362427%_ - (lambda (_%hd6233162431%_ _%body6233762434%_) - (if (gx#stx-pair? _%hd6233162431%_) - (let ((_%e6233462437%_ - (gx#syntax-e _%hd6233162431%_))) - (let ((_%lp-hd6233562441%_ + (if (not (let () (declare (not safe)) (##fx= _g84231_ 2))) + (error "Context expects 2 values" _g84231_))) + (let ((_%target6239362484%_ + (let () (declare (not safe)) (##values-ref _g84230_ 0))) + (_%tl6239562487%_ + (let () (declare (not safe)) (##values-ref _g84230_ 1)))) + (if (gx#stx-null? _%tl6239562487%_) + (letrec ((_%loop6239662490%_ + (lambda (_%hd6239462494%_ _%body6240062497%_) + (if (gx#stx-pair? _%hd6239462494%_) + (let ((_%e6239762500%_ + (gx#syntax-e _%hd6239462494%_))) + (let ((_%lp-hd6239862504%_ (let () (declare (not safe)) - (##car _%e6233462437%_))) - (_%lp-tl6233662444%_ + (##car _%e6239762500%_))) + (_%lp-tl6239962507%_ (let () (declare (not safe)) - (##cdr _%e6233462437%_)))) - (_%loop6233362427%_ - _%lp-tl6233662444%_ - (cons _%lp-hd6233562441%_ - _%body6233762434%_)))) - (let ((_%body6233862447%_ - (reverse _%body6233762434%_))) - (if (gx#stx-null? _%tl6232962418%_) - ((lambda (_%L62451%_ - _%L62453%_ - _%L62454%_ - _%L62455%_ - _%L62456%_ - _%L62457%_ - _%L62458%_) + (##cdr _%e6239762500%_)))) + (_%loop6239662490%_ + _%lp-tl6239962507%_ + (cons _%lp-hd6239862504%_ + _%body6240062497%_)))) + (let ((_%body6240162510%_ + (reverse _%body6240062497%_))) + (if (gx#stx-null? _%tl6239262481%_) + ((lambda (_%L62514%_ + _%L62516%_ + _%L62517%_ + _%L62518%_ + _%L62519%_ + _%L62520%_ + _%L62521%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L62457%_ - (cons _%L62456%_ + (cons (cons _%L62520%_ + (cons _%L62519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L62455%_)) + _%L62518%_)) (cons (cons (gx#datum->syntax '#f 'with-interface-unchecked-method) - (cons _%L62456%_ - (cons (cons _%L62458%_ - (cons _%L62454%_ - (cons _%L62453%_ '()))) + (cons _%L62519%_ + (cons (cons _%L62521%_ + (cons _%L62517%_ + (cons _%L62516%_ '()))) (cons (cons (gx#datum->syntax '#f ':-) @@ -9564,1020 +9564,1020 @@ '#f 'let) (cons '() - (foldr (lambda (_%g6249262495%_ - _%g6249362498%_) - (cons _%g6249262495%_ - _%g6249362498%_)) + (foldr (lambda (_%g6255562558%_ + _%g6255662561%_) + (cons _%g6255562558%_ + _%g6255662561%_)) '() - _%L62451%_))) - (cons _%L62453%_ '()))) + _%L62514%_))) + (cons _%L62516%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx61996%_))) - _%body6233862447%_ - _%hd6232562405%_ - _%hd6232262395%_ - _%hd6231962385%_ - _%hd6231662375%_ - _%hd6231362365%_ - _%hd6231062355%_) - (_%g6230062344%_ - _%g6230162348%_))))))) - (_%loop6233362427%_ _%target6233062421%_ '())) - (_%g6230062344%_ _%g6230162348%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6230062344%_ - _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6230062344%_ - _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_)))) - (_%g6230062344%_ _%g6230162348%_))))) - (_%g6229962501%_ - (list _%Interface62293%_ - _%unchecked-method-name62295%_ + (gx#stx-source _%stx62059%_))) + _%body6240162510%_ + _%hd6238862468%_ + _%hd6238562458%_ + _%hd6238262448%_ + _%hd6237962438%_ + _%hd6237662428%_ + _%hd6237362418%_) + (_%g6236362407%_ + _%g6236462411%_))))))) + (_%loop6239662490%_ _%target6239362484%_ '())) + (_%g6236362407%_ _%g6236462411%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6236362407%_ + _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6236362407%_ + _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_)))) + (_%g6236362407%_ _%g6236462411%_))))) + (_%g6236262564%_ + (list _%Interface62356%_ + _%unchecked-method-name62358%_ (gx#syntax-local-introduce 'self) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature62296%_) - _%signature62296%_ - _%return62297%_ - _%body62298%_)))))) - (let* ((_%g6200562044%_ - (lambda (_%g6200662040%_) + _%signature62359%_) + _%signature62359%_ + _%return62360%_ + _%body62361%_)))))) + (let* ((_%g6206862107%_ + (lambda (_%g6206962103%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6200662040%_))) - (_%g6200462289%_ - (lambda (_%g6200662048%_) - (if (gx#stx-pair? _%g6200662048%_) - (let ((_%e6201262051%_ (gx#syntax-e _%g6200662048%_))) - (let ((_%hd6201362055%_ + _%g6206962103%_))) + (_%g6206762352%_ + (lambda (_%g6206962111%_) + (if (gx#stx-pair? _%g6206962111%_) + (let ((_%e6207562114%_ (gx#syntax-e _%g6206962111%_))) + (let ((_%hd6207662118%_ (let () (declare (not safe)) - (##car _%e6201262051%_))) - (_%tl6201462058%_ + (##car _%e6207562114%_))) + (_%tl6207762121%_ (let () (declare (not safe)) - (##cdr _%e6201262051%_)))) - (if (gx#stx-pair? _%tl6201462058%_) - (let ((_%e6201562061%_ - (gx#syntax-e _%tl6201462058%_))) - (let ((_%hd6201662065%_ + (##cdr _%e6207562114%_)))) + (if (gx#stx-pair? _%tl6207762121%_) + (let ((_%e6207862124%_ + (gx#syntax-e _%tl6207762121%_))) + (let ((_%hd6207962128%_ (let () (declare (not safe)) - (##car _%e6201562061%_))) - (_%tl6201762068%_ + (##car _%e6207862124%_))) + (_%tl6208062131%_ (let () (declare (not safe)) - (##cdr _%e6201562061%_)))) - (if (gx#stx-pair? _%tl6201762068%_) - (let ((_%e6201862071%_ - (gx#syntax-e _%tl6201762068%_))) - (let ((_%hd6201962075%_ + (##cdr _%e6207862124%_)))) + (if (gx#stx-pair? _%tl6208062131%_) + (let ((_%e6208162134%_ + (gx#syntax-e _%tl6208062131%_))) + (let ((_%hd6208262138%_ (let () (declare (not safe)) - (##car _%e6201862071%_))) - (_%tl6202062078%_ + (##car _%e6208162134%_))) + (_%tl6208362141%_ (let () (declare (not safe)) - (##cdr _%e6201862071%_)))) - (if (gx#stx-pair? _%hd6201962075%_) - (let ((_%e6202162081%_ + (##cdr _%e6208162134%_)))) + (if (gx#stx-pair? _%hd6208262138%_) + (let ((_%e6208462144%_ (gx#syntax-e - _%hd6201962075%_))) - (let ((_%hd6202262085%_ + _%hd6208262138%_))) + (let ((_%hd6208562148%_ (let () (declare (not safe)) - (##car _%e6202162081%_))) - (_%tl6202362088%_ + (##car _%e6208462144%_))) + (_%tl6208662151%_ (let () (declare (not safe)) - (##cdr _%e6202162081%_)))) + (##cdr _%e6208462144%_)))) (if (gx#stx-pair? - _%tl6202362088%_) - (let ((_%e6202462091%_ + _%tl6208662151%_) + (let ((_%e6208762154%_ (gx#syntax-e - _%tl6202362088%_))) - (let ((_%hd6202562095%_ + _%tl6208662151%_))) + (let ((_%hd6208862158%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e6202462091%_))) - (_%tl6202662098%_ + (let () (declare (not safe)) (##car _%e6208762154%_))) + (_%tl6208962161%_ (let () (declare (not safe)) - (##cdr _%e6202462091%_)))) - (if (gx#stx-pair? _%tl6202662098%_) - (let ((_%e6202762101%_ (gx#syntax-e _%tl6202662098%_))) - (let ((_%hd6202862105%_ + (##cdr _%e6208762154%_)))) + (if (gx#stx-pair? _%tl6208962161%_) + (let ((_%e6209062164%_ (gx#syntax-e _%tl6208962161%_))) + (let ((_%hd6209162168%_ (let () (declare (not safe)) - (##car _%e6202762101%_))) - (_%tl6202962108%_ + (##car _%e6209062164%_))) + (_%tl6209262171%_ (let () (declare (not safe)) - (##cdr _%e6202762101%_)))) - (if (gx#stx-null? _%tl6202962108%_) - (if (gx#stx-pair/null? _%tl6202062078%_) - (let ((_g84169_ + (##cdr _%e6209062164%_)))) + (if (gx#stx-null? _%tl6209262171%_) + (if (gx#stx-pair/null? _%tl6208362141%_) + (let ((_g84232_ (gx#syntax-split-splice - _%tl6202062078%_ + _%tl6208362141%_ '0))) (begin - (let ((_g84170_ + (let ((_g84233_ (let () (declare (not safe)) - (if (##values? _g84169_) - (##vector-length _g84169_) + (if (##values? _g84232_) + (##values-length _g84232_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84170_ 2))) + (##fx= _g84233_ 2))) (error "Context expects 2 values" - _g84170_))) - (let ((_%target6203062111%_ + _g84233_))) + (let ((_%target6209362174%_ (let () (declare (not safe)) - (##vector-ref _g84169_ 0))) - (_%tl6203262114%_ + (##values-ref _g84232_ 0))) + (_%tl6209562177%_ (let () (declare (not safe)) - (##vector-ref _g84169_ 1)))) - (if (gx#stx-null? _%tl6203262114%_) - (letrec ((_%loop6203362117%_ - (lambda (_%hd6203162121%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6203762124%_) - (if (gx#stx-pair? _%hd6203162121%_) - (let ((_%e6203462127%_ (gx#syntax-e _%hd6203162121%_))) - (let ((_%lp-hd6203562131%_ + (##values-ref _g84232_ 1)))) + (if (gx#stx-null? _%tl6209562177%_) + (letrec ((_%loop6209662180%_ + (lambda (_%hd6209462184%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6210062187%_) + (if (gx#stx-pair? _%hd6209462184%_) + (let ((_%e6209762190%_ (gx#syntax-e _%hd6209462184%_))) + (let ((_%lp-hd6209862194%_ (let () (declare (not safe)) - (##car _%e6203462127%_))) - (_%lp-tl6203662134%_ + (##car _%e6209762190%_))) + (_%lp-tl6209962197%_ (let () (declare (not safe)) - (##cdr _%e6203462127%_)))) - (_%loop6203362117%_ - _%lp-tl6203662134%_ - (cons _%lp-hd6203562131%_ _%body6203762124%_)))) - (let ((_%body6203862137%_ (reverse _%body6203762124%_))) - ((lambda (_%L62141%_ - _%L62143%_ - _%L62144%_ - _%L62145%_ - _%L62146%_) + (##cdr _%e6209762190%_)))) + (_%loop6209662180%_ + _%lp-tl6209962197%_ + (cons _%lp-hd6209862194%_ _%body6210062187%_)))) + (let ((_%body6210162200%_ (reverse _%body6210062187%_))) + ((lambda (_%L62204%_ + _%L62206%_ + _%L62207%_ + _%L62208%_ + _%L62209%_) (if (and (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _%L62146%_)) - (gx#identifier? _%L62145%_)) - (let* ((_%info62176%_ - (gx#syntax-local-value _%L62146%_)) - (_%interface-name62179%_ - (let ((__obj83935 _%info62176%_)) + _%L62209%_)) + (gx#identifier? _%L62208%_)) + (let* ((_%info62239%_ + (gx#syntax-local-value _%L62209%_)) + (_%interface-name62242%_ + (let ((__obj83998 _%info62239%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83935 + __obj83998 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83935 + __obj83998 '1 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83935 + __obj83998 'name)))) - (_%method-name62182%_ + (_%method-name62245%_ (gx#stx-identifier - _%L62146%_ - _%interface-name62179%_ + _%L62209%_ + _%interface-name62242%_ '"-" - _%L62145%_)) - (_%raw-method-name62185%_ + _%L62208%_)) + (_%raw-method-name62248%_ (gx#stx-identifier - _%L62146%_ + _%L62209%_ '"__" - _%method-name62182%_)) - (_%unchecked-method-name62188%_ + _%method-name62245%_)) + (_%unchecked-method-name62251%_ (gx#stx-identifier - _%L62146%_ + _%L62209%_ '"&" - _%method-name62182%_))) + _%method-name62245%_))) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx61996%_ - _%L62144%_ - _%L62143%_) - (let* ((_%g6219362212%_ - (lambda (_%g6219462208%_) + _%stx62059%_ + _%L62207%_ + _%L62206%_) + (let* ((_%g6225662275%_ + (lambda (_%g6225762271%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6219462208%_))) - (_%g6219262277%_ - (lambda (_%g6219462216%_) - (if (gx#stx-pair? _%g6219462216%_) - (let ((_%e6219862219%_ + _%g6225762271%_))) + (_%g6225562340%_ + (lambda (_%g6225762279%_) + (if (gx#stx-pair? _%g6225762279%_) + (let ((_%e6226162282%_ (gx#syntax-e - _%g6219462216%_))) - (let ((_%hd6219962223%_ + _%g6225762279%_))) + (let ((_%hd6226262286%_ (let () (declare (not safe)) - (##car _%e6219862219%_))) - (_%tl6220062226%_ + (##car _%e6226162282%_))) + (_%tl6226362289%_ (let () (declare (not safe)) - (##cdr _%e6219862219%_)))) + (##cdr _%e6226162282%_)))) (if (gx#stx-pair? - _%tl6220062226%_) - (let ((_%e6220162229%_ + _%tl6226362289%_) + (let ((_%e6226462292%_ (gx#syntax-e - _%tl6220062226%_))) - (let ((_%hd6220262233%_ + _%tl6226362289%_))) + (let ((_%hd6226562296%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6220162229%_))) - (_%tl6220362236%_ - (let () (declare (not safe)) (##cdr _%e6220162229%_)))) - (if (gx#stx-pair? _%tl6220362236%_) - (let ((_%e6220462239%_ (gx#syntax-e _%tl6220362236%_))) - (let ((_%hd6220562243%_ + (##car _%e6226462292%_))) + (_%tl6226662299%_ + (let () (declare (not safe)) (##cdr _%e6226462292%_)))) + (if (gx#stx-pair? _%tl6226662299%_) + (let ((_%e6226762302%_ (gx#syntax-e _%tl6226662299%_))) + (let ((_%hd6226862306%_ (let () (declare (not safe)) - (##car _%e6220462239%_))) - (_%tl6220662246%_ + (##car _%e6226762302%_))) + (_%tl6226962309%_ (let () (declare (not safe)) - (##cdr _%e6220462239%_)))) - (if (gx#stx-null? _%tl6220662246%_) - ((lambda (_%L62249%_ _%L62251%_ _%L62252%_) + (##cdr _%e6226762302%_)))) + (if (gx#stx-null? _%tl6226962309%_) + ((lambda (_%L62312%_ _%L62314%_ _%L62315%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L62252%_ - (cons _%L62251%_ - (cons _%L62249%_ '()))))) - _%hd6220562243%_ - _%hd6220262233%_ - _%hd6219962223%_) - (_%g6219362212%_ _%g6219462216%_)))) - (_%g6219362212%_ _%g6219462216%_)))) - (_%g6219362212%_ _%g6219462216%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6219362212%_ - _%g6219462216%_))))) - (_%g6219262277%_ - (list (_%make-checked-method-def62001%_ - _%L62146%_ - _%method-name62182%_ - _%raw-method-name62185%_ - _%unchecked-method-name62188%_ - _%L62144%_ - _%L62143%_) - (_%make-raw-method-def62002%_ - _%L62146%_ - _%raw-method-name62185%_ - _%unchecked-method-name62188%_ - _%L62144%_ - _%L62143%_) - (_%make-unchecked-method-def62003%_ - _%L62146%_ - _%unchecked-method-name62188%_ - _%L62144%_ - _%L62143%_ - (foldr (lambda (_%g6228062283%_ - _%g6228162286%_) - (cons _%g6228062283%_ - _%g6228162286%_)) + (cons _%L62315%_ + (cons _%L62314%_ + (cons _%L62312%_ '()))))) + _%hd6226862306%_ + _%hd6226562296%_ + _%hd6226262286%_) + (_%g6225662275%_ _%g6225762279%_)))) + (_%g6225662275%_ _%g6225762279%_)))) + (_%g6225662275%_ _%g6225762279%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6225662275%_ + _%g6225762279%_))))) + (_%g6225562340%_ + (list (_%make-checked-method-def62064%_ + _%L62209%_ + _%method-name62245%_ + _%raw-method-name62248%_ + _%unchecked-method-name62251%_ + _%L62207%_ + _%L62206%_) + (_%make-raw-method-def62065%_ + _%L62209%_ + _%raw-method-name62248%_ + _%unchecked-method-name62251%_ + _%L62207%_ + _%L62206%_) + (_%make-unchecked-method-def62066%_ + _%L62209%_ + _%unchecked-method-name62251%_ + _%L62207%_ + _%L62206%_ + (foldr (lambda (_%g6234362346%_ + _%g6234462349%_) + (cons _%g6234362346%_ + _%g6234462349%_)) '() - _%L62141%_)))))) - (_%g6200562044%_ _%g6200662048%_))) - _%body6203862137%_ - _%hd6202862105%_ - _%hd6202562095%_ - _%hd6202262085%_ - _%hd6201662065%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6203362117%_ - _%target6203062111%_ + _%L62204%_)))))) + (_%g6206862107%_ _%g6206962111%_))) + _%body6210162200%_ + _%hd6209162168%_ + _%hd6208862158%_ + _%hd6208562148%_ + _%hd6207962128%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6209662180%_ + _%target6209362174%_ '())) - (_%g6200562044%_ - _%g6200662048%_))))) - (_%g6200562044%_ _%g6200662048%_)) - (_%g6200562044%_ _%g6200662048%_)))) - (_%g6200562044%_ _%g6200662048%_)))) - (_%g6200562044%_ _%g6200662048%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6200562044%_ - _%g6200662048%_)))) - (_%g6200562044%_ _%g6200662048%_)))) - (_%g6200562044%_ _%g6200662048%_)))) - (_%g6200562044%_ _%g6200662048%_))))) - (_%g6200462289%_ _%stx61996%_))))) + (_%g6206862107%_ + _%g6206962111%_))))) + (_%g6206862107%_ _%g6206962111%_)) + (_%g6206862107%_ _%g6206962111%_)))) + (_%g6206862107%_ _%g6206962111%_)))) + (_%g6206862107%_ _%g6206962111%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6206862107%_ + _%g6206962111%_)))) + (_%g6206862107%_ _%g6206962111%_)))) + (_%g6206862107%_ _%g6206962111%_)))) + (_%g6206862107%_ _%g6206962111%_))))) + (_%g6206762352%_ _%stx62059%_))))) (define |gerbil/core/contract~Interface[:0:]#with-interface-method| - (lambda (_%stx62992%_) - (let* ((_%g6299563038%_ - (lambda (_%g6299663034%_) + (lambda (_%stx63055%_) + (let* ((_%g6305863101%_ + (lambda (_%g6305963097%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6299663034%_))) - (_%g6299463259%_ - (lambda (_%g6299663042%_) - (if (gx#stx-pair? _%g6299663042%_) - (let ((_%e6300363045%_ (gx#syntax-e _%g6299663042%_))) - (let ((_%hd6300463049%_ + _%g6305963097%_))) + (_%g6305763322%_ + (lambda (_%g6305963105%_) + (if (gx#stx-pair? _%g6305963105%_) + (let ((_%e6306663108%_ (gx#syntax-e _%g6305963105%_))) + (let ((_%hd6306763112%_ (let () (declare (not safe)) - (##car _%e6300363045%_))) - (_%tl6300563052%_ + (##car _%e6306663108%_))) + (_%tl6306863115%_ (let () (declare (not safe)) - (##cdr _%e6300363045%_)))) - (if (gx#stx-pair? _%tl6300563052%_) - (let ((_%e6300663055%_ - (gx#syntax-e _%tl6300563052%_))) - (let ((_%hd6300763059%_ + (##cdr _%e6306663108%_)))) + (if (gx#stx-pair? _%tl6306863115%_) + (let ((_%e6306963118%_ + (gx#syntax-e _%tl6306863115%_))) + (let ((_%hd6307063122%_ (let () (declare (not safe)) - (##car _%e6300663055%_))) - (_%tl6300863062%_ + (##car _%e6306963118%_))) + (_%tl6307163125%_ (let () (declare (not safe)) - (##cdr _%e6300663055%_)))) - (if (gx#stx-pair? _%tl6300863062%_) - (let ((_%e6300963065%_ - (gx#syntax-e _%tl6300863062%_))) - (let ((_%hd6301063069%_ + (##cdr _%e6306963118%_)))) + (if (gx#stx-pair? _%tl6307163125%_) + (let ((_%e6307263128%_ + (gx#syntax-e _%tl6307163125%_))) + (let ((_%hd6307363132%_ (let () (declare (not safe)) - (##car _%e6300963065%_))) - (_%tl6301163072%_ + (##car _%e6307263128%_))) + (_%tl6307463135%_ (let () (declare (not safe)) - (##cdr _%e6300963065%_)))) - (if (gx#stx-pair? _%hd6301063069%_) - (let ((_%e6301263075%_ + (##cdr _%e6307263128%_)))) + (if (gx#stx-pair? _%hd6307363132%_) + (let ((_%e6307563138%_ (gx#syntax-e - _%hd6301063069%_))) - (let ((_%hd6301363079%_ + _%hd6307363132%_))) + (let ((_%hd6307663142%_ (let () (declare (not safe)) - (##car _%e6301263075%_))) - (_%tl6301463082%_ + (##car _%e6307563138%_))) + (_%tl6307763145%_ (let () (declare (not safe)) - (##cdr _%e6301263075%_)))) + (##cdr _%e6307563138%_)))) (if (gx#stx-pair? - _%tl6301463082%_) - (let ((_%e6301563085%_ + _%tl6307763145%_) + (let ((_%e6307863148%_ (gx#syntax-e - _%tl6301463082%_))) - (let ((_%hd6301663089%_ + _%tl6307763145%_))) + (let ((_%hd6307963152%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6301563085%_))) - (_%tl6301763092%_ - (let () (declare (not safe)) (##cdr _%e6301563085%_)))) - (if (gx#stx-pair? _%tl6301763092%_) - (let ((_%e6301863095%_ (gx#syntax-e _%tl6301763092%_))) - (let ((_%hd6301963099%_ + (##car _%e6307863148%_))) + (_%tl6308063155%_ + (let () (declare (not safe)) (##cdr _%e6307863148%_)))) + (if (gx#stx-pair? _%tl6308063155%_) + (let ((_%e6308163158%_ (gx#syntax-e _%tl6308063155%_))) + (let ((_%hd6308263162%_ (let () (declare (not safe)) - (##car _%e6301863095%_))) - (_%tl6302063102%_ + (##car _%e6308163158%_))) + (_%tl6308363165%_ (let () (declare (not safe)) - (##cdr _%e6301863095%_)))) - (if (gx#stx-pair? _%tl6302063102%_) - (let ((_%e6302163105%_ - (gx#syntax-e _%tl6302063102%_))) - (let ((_%hd6302263109%_ + (##cdr _%e6308163158%_)))) + (if (gx#stx-pair? _%tl6308363165%_) + (let ((_%e6308463168%_ + (gx#syntax-e _%tl6308363165%_))) + (let ((_%hd6308563172%_ (let () (declare (not safe)) - (##car _%e6302163105%_))) - (_%tl6302363112%_ + (##car _%e6308463168%_))) + (_%tl6308663175%_ (let () (declare (not safe)) - (##cdr _%e6302163105%_)))) - (if (gx#stx-null? _%tl6302363112%_) - (if (gx#stx-pair/null? _%tl6301163072%_) - (let ((_g84171_ + (##cdr _%e6308463168%_)))) + (if (gx#stx-null? _%tl6308663175%_) + (if (gx#stx-pair/null? _%tl6307463135%_) + (let ((_g84234_ (gx#syntax-split-splice - _%tl6301163072%_ + _%tl6307463135%_ '0))) (begin - (let ((_g84172_ + (let ((_g84235_ (let () (declare (not safe)) - (if (##values? _g84171_) - (##vector-length - _g84171_) + (if (##values? _g84234_) + (##values-length + _g84234_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84172_ 2))) + (##fx= _g84235_ 2))) (error "Context expects 2 values" - _g84172_))) - (let ((_%target6302463115%_ + _g84235_))) + (let ((_%target6308763178%_ (let () (declare (not safe)) - (##vector-ref - _g84171_ + (##values-ref + _g84234_ 0))) - (_%tl6302663118%_ + (_%tl6308963181%_ (let () (declare (not safe)) - (##vector-ref - _g84171_ + (##values-ref + _g84234_ 1)))) (if (gx#stx-null? - _%tl6302663118%_) - (letrec ((_%loop6302763121%_ - (lambda (_%hd6302563125%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6303163128%_) - (if (gx#stx-pair? _%hd6302563125%_) - (let ((_%e6302863131%_ - (gx#syntax-e _%hd6302563125%_))) - (let ((_%lp-hd6302963135%_ + _%tl6308963181%_) + (letrec ((_%loop6309063184%_ + (lambda (_%hd6308863188%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6309463191%_) + (if (gx#stx-pair? _%hd6308863188%_) + (let ((_%e6309163194%_ + (gx#syntax-e _%hd6308863188%_))) + (let ((_%lp-hd6309263198%_ (let () (declare (not safe)) - (##car _%e6302863131%_))) - (_%lp-tl6303063138%_ + (##car _%e6309163194%_))) + (_%lp-tl6309363201%_ (let () (declare (not safe)) - (##cdr _%e6302863131%_)))) - (_%loop6302763121%_ - _%lp-tl6303063138%_ - (cons _%lp-hd6302963135%_ - _%body6303163128%_)))) - (let ((_%body6303263141%_ - (reverse _%body6303163128%_))) - ((lambda (_%L63145%_ - _%L63147%_ - _%L63148%_ - _%L63149%_ - _%L63150%_ - _%L63151%_) - (let* ((_%checked?63183%_ - (if (gx#stx-e _%L63147%_) '#t '#f)) - (_%g6318663201%_ - (lambda (_%g6318763197%_) + (##cdr _%e6309163194%_)))) + (_%loop6309063184%_ + _%lp-tl6309363201%_ + (cons _%lp-hd6309263198%_ + _%body6309463191%_)))) + (let ((_%body6309563204%_ + (reverse _%body6309463191%_))) + ((lambda (_%L63208%_ + _%L63210%_ + _%L63211%_ + _%L63212%_ + _%L63213%_ + _%L63214%_) + (let* ((_%checked?63246%_ + (if (gx#stx-e _%L63210%_) '#t '#f)) + (_%g6324963264%_ + (lambda (_%g6325063260%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6318763197%_))) - (_%g6318563255%_ - (lambda (_%g6318763205%_) - (if (gx#stx-pair? _%g6318763205%_) - (let ((_%e6319063208%_ + _%g6325063260%_))) + (_%g6324863318%_ + (lambda (_%g6325063268%_) + (if (gx#stx-pair? _%g6325063268%_) + (let ((_%e6325363271%_ (gx#syntax-e - _%g6318763205%_))) - (let ((_%hd6319163212%_ + _%g6325063268%_))) + (let ((_%hd6325463275%_ (let () (declare (not safe)) - (##car _%e6319063208%_))) - (_%tl6319263215%_ + (##car _%e6325363271%_))) + (_%tl6325563278%_ (let () (declare (not safe)) - (##cdr _%e6319063208%_)))) + (##cdr _%e6325363271%_)))) (if (gx#stx-pair? - _%tl6319263215%_) - (let ((_%e6319363218%_ + _%tl6325563278%_) + (let ((_%e6325663281%_ (gx#syntax-e - _%tl6319263215%_))) - (let ((_%hd6319463222%_ + _%tl6325563278%_))) + (let ((_%hd6325763285%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6319363218%_))) - (_%tl6319563225%_ - (let () (declare (not safe)) (##cdr _%e6319363218%_)))) - (if (gx#stx-null? _%tl6319563225%_) - ((lambda (_%L63228%_ _%L63230%_) + (##car _%e6325663281%_))) + (_%tl6325863288%_ + (let () (declare (not safe)) (##cdr _%e6325663281%_)))) + (if (gx#stx-null? _%tl6325863288%_) + ((lambda (_%L63291%_ _%L63293%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L63230%_) + _%L63293%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons _%L63228%_ - (foldr (lambda (_%g6324663249%_ + (cons _%L63291%_ + (foldr (lambda (_%g6330963312%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6324763252%_) - (cons _%g6324663249%_ _%g6324763252%_)) + _%g6331063315%_) + (cons _%g6330963312%_ _%g6331063315%_)) '() - _%L63145%_))) + _%L63208%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd6319463222%_ - _%hd6319163212%_) - (_%g6318663201%_ _%g6318763205%_)))) - (_%g6318663201%_ _%g6318763205%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6318663201%_ - _%g6318763205%_))))) - (_%g6318563255%_ + _%hd6325763285%_ + _%hd6325463275%_) + (_%g6324963264%_ _%g6325063268%_)))) + (_%g6324963264%_ _%g6325063268%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6324963264%_ + _%g6325063268%_))))) + (_%g6324863318%_ (list (|gerbil/core/contract~Interface[1]#make-interface-method-lambda-signature| - _%stx62992%_ - _%L63151%_ - _%L63150%_ - _%L63149%_ - _%L63148%_ - _%L63147%_) + _%stx63055%_ + _%L63214%_ + _%L63213%_ + _%L63212%_ + _%L63211%_ + _%L63210%_) (|gerbil/core/contract~Interface[1]#make-interface-method-contract| - _%stx62992%_ - _%L63151%_ - _%L63150%_ - _%L63149%_ - _%checked?63183%_))))) - _%body6303263141%_ - _%hd6302263109%_ - _%hd6301963099%_ - _%hd6301663089%_ - _%hd6301363079%_ - _%hd6300763059%_)))))) - (_%loop6302763121%_ _%target6302463115%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6299563038%_ - _%g6299663042%_))))) - (_%g6299563038%_ _%g6299663042%_)) - (_%g6299563038%_ _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6299563038%_ - _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_)))) - (_%g6299563038%_ _%g6299663042%_))))) - (_%g6299463259%_ _%stx62992%_)))) + _%stx63055%_ + _%L63214%_ + _%L63213%_ + _%L63212%_ + _%checked?63246%_))))) + _%body6309563204%_ + _%hd6308563172%_ + _%hd6308263162%_ + _%hd6307963152%_ + _%hd6307663142%_ + _%hd6307063122%_)))))) + (_%loop6309063184%_ _%target6308763178%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6305863101%_ + _%g6305963105%_))))) + (_%g6305863101%_ _%g6305963105%_)) + (_%g6305863101%_ _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6305863101%_ + _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_)))) + (_%g6305863101%_ _%g6305963105%_))))) + (_%g6305763322%_ _%stx63055%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-checked-method| - (lambda (_%$stx63264%_) - (let* ((_%g6326863311%_ - (lambda (_%g6326963307%_) + (lambda (_%$stx63327%_) + (let* ((_%g6333163374%_ + (lambda (_%g6333263370%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6326963307%_))) - (_%g6326763464%_ - (lambda (_%g6326963315%_) - (if (gx#stx-pair? _%g6326963315%_) - (let ((_%e6327663318%_ (gx#syntax-e _%g6326963315%_))) - (let ((_%hd6327763322%_ + _%g6333263370%_))) + (_%g6333063527%_ + (lambda (_%g6333263378%_) + (if (gx#stx-pair? _%g6333263378%_) + (let ((_%e6333963381%_ (gx#syntax-e _%g6333263378%_))) + (let ((_%hd6334063385%_ (let () (declare (not safe)) - (##car _%e6327663318%_))) - (_%tl6327863325%_ + (##car _%e6333963381%_))) + (_%tl6334163388%_ (let () (declare (not safe)) - (##cdr _%e6327663318%_)))) - (if (gx#stx-pair? _%tl6327863325%_) - (let ((_%e6327963328%_ - (gx#syntax-e _%tl6327863325%_))) - (let ((_%hd6328063332%_ + (##cdr _%e6333963381%_)))) + (if (gx#stx-pair? _%tl6334163388%_) + (let ((_%e6334263391%_ + (gx#syntax-e _%tl6334163388%_))) + (let ((_%hd6334363395%_ (let () (declare (not safe)) - (##car _%e6327963328%_))) - (_%tl6328163335%_ + (##car _%e6334263391%_))) + (_%tl6334463398%_ (let () (declare (not safe)) - (##cdr _%e6327963328%_)))) - (if (gx#stx-pair? _%tl6328163335%_) - (let ((_%e6328263338%_ - (gx#syntax-e _%tl6328163335%_))) - (let ((_%hd6328363342%_ + (##cdr _%e6334263391%_)))) + (if (gx#stx-pair? _%tl6334463398%_) + (let ((_%e6334563401%_ + (gx#syntax-e _%tl6334463398%_))) + (let ((_%hd6334663405%_ (let () (declare (not safe)) - (##car _%e6328263338%_))) - (_%tl6328463345%_ + (##car _%e6334563401%_))) + (_%tl6334763408%_ (let () (declare (not safe)) - (##cdr _%e6328263338%_)))) - (if (gx#stx-pair? _%hd6328363342%_) - (let ((_%e6328563348%_ + (##cdr _%e6334563401%_)))) + (if (gx#stx-pair? _%hd6334663405%_) + (let ((_%e6334863411%_ (gx#syntax-e - _%hd6328363342%_))) - (let ((_%hd6328663352%_ + _%hd6334663405%_))) + (let ((_%hd6334963415%_ (let () (declare (not safe)) - (##car _%e6328563348%_))) - (_%tl6328763355%_ + (##car _%e6334863411%_))) + (_%tl6335063418%_ (let () (declare (not safe)) - (##cdr _%e6328563348%_)))) + (##cdr _%e6334863411%_)))) (if (gx#stx-pair? - _%tl6328763355%_) - (let ((_%e6328863358%_ + _%tl6335063418%_) + (let ((_%e6335163421%_ (gx#syntax-e - _%tl6328763355%_))) - (let ((_%hd6328963362%_ + _%tl6335063418%_))) + (let ((_%hd6335263425%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6328863358%_))) - (_%tl6329063365%_ - (let () (declare (not safe)) (##cdr _%e6328863358%_)))) - (if (gx#stx-pair? _%tl6329063365%_) - (let ((_%e6329163368%_ (gx#syntax-e _%tl6329063365%_))) - (let ((_%hd6329263372%_ + (##car _%e6335163421%_))) + (_%tl6335363428%_ + (let () (declare (not safe)) (##cdr _%e6335163421%_)))) + (if (gx#stx-pair? _%tl6335363428%_) + (let ((_%e6335463431%_ (gx#syntax-e _%tl6335363428%_))) + (let ((_%hd6335563435%_ (let () (declare (not safe)) - (##car _%e6329163368%_))) - (_%tl6329363375%_ + (##car _%e6335463431%_))) + (_%tl6335663438%_ (let () (declare (not safe)) - (##cdr _%e6329163368%_)))) - (if (gx#stx-pair? _%tl6329363375%_) - (let ((_%e6329463378%_ - (gx#syntax-e _%tl6329363375%_))) - (let ((_%hd6329563382%_ + (##cdr _%e6335463431%_)))) + (if (gx#stx-pair? _%tl6335663438%_) + (let ((_%e6335763441%_ + (gx#syntax-e _%tl6335663438%_))) + (let ((_%hd6335863445%_ (let () (declare (not safe)) - (##car _%e6329463378%_))) - (_%tl6329663385%_ + (##car _%e6335763441%_))) + (_%tl6335963448%_ (let () (declare (not safe)) - (##cdr _%e6329463378%_)))) - (if (gx#stx-null? _%tl6329663385%_) - (if (gx#stx-pair/null? _%tl6328463345%_) - (let ((_g84173_ + (##cdr _%e6335763441%_)))) + (if (gx#stx-null? _%tl6335963448%_) + (if (gx#stx-pair/null? _%tl6334763408%_) + (let ((_g84236_ (gx#syntax-split-splice - _%tl6328463345%_ + _%tl6334763408%_ '0))) (begin - (let ((_g84174_ + (let ((_g84237_ (let () (declare (not safe)) - (if (##values? _g84173_) - (##vector-length - _g84173_) + (if (##values? _g84236_) + (##values-length + _g84236_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84174_ 2))) + (##fx= _g84237_ 2))) (error "Context expects 2 values" - _g84174_))) - (let ((_%target6329763388%_ + _g84237_))) + (let ((_%target6336063451%_ (let () (declare (not safe)) - (##vector-ref - _g84173_ + (##values-ref + _g84236_ 0))) - (_%tl6329963391%_ + (_%tl6336263454%_ (let () (declare (not safe)) - (##vector-ref - _g84173_ + (##values-ref + _g84236_ 1)))) (if (gx#stx-null? - _%tl6329963391%_) - (letrec ((_%loop6330063394%_ - (lambda (_%hd6329863398%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6330463401%_) - (if (gx#stx-pair? _%hd6329863398%_) - (let ((_%e6330163404%_ - (gx#syntax-e _%hd6329863398%_))) - (let ((_%lp-hd6330263408%_ + _%tl6336263454%_) + (letrec ((_%loop6336363457%_ + (lambda (_%hd6336163461%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6336763464%_) + (if (gx#stx-pair? _%hd6336163461%_) + (let ((_%e6336463467%_ + (gx#syntax-e _%hd6336163461%_))) + (let ((_%lp-hd6336563471%_ (let () (declare (not safe)) - (##car _%e6330163404%_))) - (_%lp-tl6330363411%_ + (##car _%e6336463467%_))) + (_%lp-tl6336663474%_ (let () (declare (not safe)) - (##cdr _%e6330163404%_)))) - (_%loop6330063394%_ - _%lp-tl6330363411%_ - (cons _%lp-hd6330263408%_ - _%body6330463401%_)))) - (let ((_%body6330563414%_ - (reverse _%body6330463401%_))) - ((lambda (_%L63418%_ - _%L63420%_ - _%L63421%_ - _%L63422%_ - _%L63423%_ - _%L63424%_) + (##cdr _%e6336463467%_)))) + (_%loop6336363457%_ + _%lp-tl6336663474%_ + (cons _%lp-hd6336563471%_ + _%body6336763464%_)))) + (let ((_%body6336863477%_ + (reverse _%body6336763464%_))) + ((lambda (_%L63481%_ + _%L63483%_ + _%L63484%_ + _%L63485%_ + _%L63486%_ + _%L63487%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63424%_ - (cons (cons _%L63423%_ - (cons _%L63422%_ - (cons _%L63421%_ + (cons _%L63487%_ + (cons (cons _%L63486%_ + (cons _%L63485%_ + (cons _%L63484%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L63420%_ '())))) + (cons _%L63483%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g6345563458%_ + (foldr (lambda (_%g6351863521%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6345663461%_) - (cons _%g6345563458%_ _%g6345663461%_)) + _%g6351963524%_) + (cons _%g6351863521%_ _%g6351963524%_)) '() - _%L63418%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body6330563414%_ - _%hd6329563382%_ - _%hd6329263372%_ - _%hd6328963362%_ - _%hd6328663352%_ - _%hd6328063332%_)))))) - (_%loop6330063394%_ _%target6329763388%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6326863311%_ - _%g6326963315%_))))) - (_%g6326863311%_ _%g6326963315%_)) - (_%g6326863311%_ _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6326863311%_ - _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_)))) - (_%g6326863311%_ _%g6326963315%_))))) - (_%g6326763464%_ _%$stx63264%_)))) + _%L63481%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%body6336863477%_ + _%hd6335863445%_ + _%hd6335563435%_ + _%hd6335263425%_ + _%hd6334963415%_ + _%hd6334363395%_)))))) + (_%loop6336363457%_ _%target6336063451%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6333163374%_ + _%g6333263378%_))))) + (_%g6333163374%_ _%g6333263378%_)) + (_%g6333163374%_ _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6333163374%_ + _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_)))) + (_%g6333163374%_ _%g6333263378%_))))) + (_%g6333063527%_ _%$stx63327%_)))) (define |gerbil/core/contract~Interface[:0:]#with-interface-unchecked-method| - (lambda (_%$stx63469%_) - (let* ((_%g6347363512%_ - (lambda (_%g6347463508%_) + (lambda (_%$stx63532%_) + (let* ((_%g6353663575%_ + (lambda (_%g6353763571%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6347463508%_))) - (_%g6347263651%_ - (lambda (_%g6347463516%_) - (if (gx#stx-pair? _%g6347463516%_) - (let ((_%e6348063519%_ (gx#syntax-e _%g6347463516%_))) - (let ((_%hd6348163523%_ + _%g6353763571%_))) + (_%g6353563714%_ + (lambda (_%g6353763579%_) + (if (gx#stx-pair? _%g6353763579%_) + (let ((_%e6354363582%_ (gx#syntax-e _%g6353763579%_))) + (let ((_%hd6354463586%_ (let () (declare (not safe)) - (##car _%e6348063519%_))) - (_%tl6348263526%_ + (##car _%e6354363582%_))) + (_%tl6354563589%_ (let () (declare (not safe)) - (##cdr _%e6348063519%_)))) - (if (gx#stx-pair? _%tl6348263526%_) - (let ((_%e6348363529%_ - (gx#syntax-e _%tl6348263526%_))) - (let ((_%hd6348463533%_ + (##cdr _%e6354363582%_)))) + (if (gx#stx-pair? _%tl6354563589%_) + (let ((_%e6354663592%_ + (gx#syntax-e _%tl6354563589%_))) + (let ((_%hd6354763596%_ (let () (declare (not safe)) - (##car _%e6348363529%_))) - (_%tl6348563536%_ + (##car _%e6354663592%_))) + (_%tl6354863599%_ (let () (declare (not safe)) - (##cdr _%e6348363529%_)))) - (if (gx#stx-pair? _%tl6348563536%_) - (let ((_%e6348663539%_ - (gx#syntax-e _%tl6348563536%_))) - (let ((_%hd6348763543%_ + (##cdr _%e6354663592%_)))) + (if (gx#stx-pair? _%tl6354863599%_) + (let ((_%e6354963602%_ + (gx#syntax-e _%tl6354863599%_))) + (let ((_%hd6355063606%_ (let () (declare (not safe)) - (##car _%e6348663539%_))) - (_%tl6348863546%_ + (##car _%e6354963602%_))) + (_%tl6355163609%_ (let () (declare (not safe)) - (##cdr _%e6348663539%_)))) - (if (gx#stx-pair? _%hd6348763543%_) - (let ((_%e6348963549%_ + (##cdr _%e6354963602%_)))) + (if (gx#stx-pair? _%hd6355063606%_) + (let ((_%e6355263612%_ (gx#syntax-e - _%hd6348763543%_))) - (let ((_%hd6349063553%_ + _%hd6355063606%_))) + (let ((_%hd6355363616%_ (let () (declare (not safe)) - (##car _%e6348963549%_))) - (_%tl6349163556%_ + (##car _%e6355263612%_))) + (_%tl6355463619%_ (let () (declare (not safe)) - (##cdr _%e6348963549%_)))) + (##cdr _%e6355263612%_)))) (if (gx#stx-pair? - _%tl6349163556%_) - (let ((_%e6349263559%_ + _%tl6355463619%_) + (let ((_%e6355563622%_ (gx#syntax-e - _%tl6349163556%_))) - (let ((_%hd6349363563%_ + _%tl6355463619%_))) + (let ((_%hd6355663626%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6349263559%_))) - (_%tl6349463566%_ - (let () (declare (not safe)) (##cdr _%e6349263559%_)))) - (if (gx#stx-pair? _%tl6349463566%_) - (let ((_%e6349563569%_ (gx#syntax-e _%tl6349463566%_))) - (let ((_%hd6349663573%_ + (##car _%e6355563622%_))) + (_%tl6355763629%_ + (let () (declare (not safe)) (##cdr _%e6355563622%_)))) + (if (gx#stx-pair? _%tl6355763629%_) + (let ((_%e6355863632%_ (gx#syntax-e _%tl6355763629%_))) + (let ((_%hd6355963636%_ (let () (declare (not safe)) - (##car _%e6349563569%_))) - (_%tl6349763576%_ + (##car _%e6355863632%_))) + (_%tl6356063639%_ (let () (declare (not safe)) - (##cdr _%e6349563569%_)))) - (if (gx#stx-null? _%tl6349763576%_) - (if (gx#stx-pair/null? _%tl6348863546%_) - (let ((_g84175_ + (##cdr _%e6355863632%_)))) + (if (gx#stx-null? _%tl6356063639%_) + (if (gx#stx-pair/null? _%tl6355163609%_) + (let ((_g84238_ (gx#syntax-split-splice - _%tl6348863546%_ + _%tl6355163609%_ '0))) (begin - (let ((_g84176_ + (let ((_g84239_ (let () (declare (not safe)) - (if (##values? _g84175_) - (##vector-length _g84175_) + (if (##values? _g84238_) + (##values-length _g84238_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84176_ 2))) + (##fx= _g84239_ 2))) (error "Context expects 2 values" - _g84176_))) - (let ((_%target6349863579%_ + _g84239_))) + (let ((_%target6356163642%_ (let () (declare (not safe)) - (##vector-ref _g84175_ 0))) - (_%tl6350063582%_ + (##values-ref _g84238_ 0))) + (_%tl6356363645%_ (let () (declare (not safe)) - (##vector-ref _g84175_ 1)))) - (if (gx#stx-null? _%tl6350063582%_) - (letrec ((_%loop6350163585%_ - (lambda (_%hd6349963589%_ - _%body6350563592%_) + (##values-ref _g84238_ 1)))) + (if (gx#stx-null? _%tl6356363645%_) + (letrec ((_%loop6356463648%_ + (lambda (_%hd6356263652%_ + _%body6356863655%_) (if (gx#stx-pair? - _%hd6349963589%_) - (let ((_%e6350263595%_ + _%hd6356263652%_) + (let ((_%e6356563658%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6349963589%_))) - (let ((_%lp-hd6350363599%_ + (gx#syntax-e _%hd6356263652%_))) + (let ((_%lp-hd6356663662%_ (let () (declare (not safe)) - (##car _%e6350263595%_))) - (_%lp-tl6350463602%_ + (##car _%e6356563658%_))) + (_%lp-tl6356763665%_ (let () (declare (not safe)) - (##cdr _%e6350263595%_)))) - (_%loop6350163585%_ - _%lp-tl6350463602%_ - (cons _%lp-hd6350363599%_ _%body6350563592%_)))) - (let ((_%body6350663605%_ (reverse _%body6350563592%_))) - ((lambda (_%L63609%_ - _%L63611%_ - _%L63612%_ - _%L63613%_ - _%L63614%_) + (##cdr _%e6356563658%_)))) + (_%loop6356463648%_ + _%lp-tl6356763665%_ + (cons _%lp-hd6356663662%_ _%body6356863655%_)))) + (let ((_%body6356963668%_ (reverse _%body6356863655%_))) + ((lambda (_%L63672%_ + _%L63674%_ + _%L63675%_ + _%L63676%_ + _%L63677%_) (cons (gx#datum->syntax '#f 'with-interface-method) - (cons _%L63614%_ - (cons (cons _%L63613%_ - (cons _%L63612%_ - (cons _%L63611%_ + (cons _%L63677%_ + (cons (cons _%L63676%_ + (cons _%L63675%_ + (cons _%L63674%_ (cons '#f '())))) - (foldr (lambda (_%g6364263645%_ - _%g6364363648%_) - (cons _%g6364263645%_ - _%g6364363648%_)) + (foldr (lambda (_%g6370563708%_ + _%g6370663711%_) + (cons _%g6370563708%_ + _%g6370663711%_)) '() - _%L63609%_))))) - _%body6350663605%_ - _%hd6349663573%_ - _%hd6349363563%_ - _%hd6349063553%_ - _%hd6348463533%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6350163585%_ - _%target6349863579%_ + _%L63672%_))))) + _%body6356963668%_ + _%hd6355963636%_ + _%hd6355663626%_ + _%hd6355363616%_ + _%hd6354763596%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6356463648%_ + _%target6356163642%_ '())) - (_%g6347363512%_ - _%g6347463516%_))))) - (_%g6347363512%_ _%g6347463516%_)) - (_%g6347363512%_ _%g6347463516%_)))) - (_%g6347363512%_ _%g6347463516%_)))) - (_%g6347363512%_ _%g6347463516%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6347363512%_ - _%g6347463516%_)))) - (_%g6347363512%_ _%g6347463516%_)))) - (_%g6347363512%_ _%g6347463516%_)))) - (_%g6347363512%_ _%g6347463516%_))))) - (_%g6347263651%_ _%$stx63469%_)))) + (_%g6353663575%_ + _%g6353763579%_))))) + (_%g6353663575%_ _%g6353763579%_)) + (_%g6353663575%_ _%g6353763579%_)))) + (_%g6353663575%_ _%g6353763579%_)))) + (_%g6353663575%_ _%g6353763579%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6353663575%_ + _%g6353763579%_)))) + (_%g6353663575%_ _%g6353763579%_)))) + (_%g6353663575%_ _%g6353763579%_)))) + (_%g6353663575%_ _%g6353763579%_))))) + (_%g6353563714%_ _%$stx63532%_)))) (define |gerbil/core/contract~Interface[:0:]#interface-out| (gx#make-export-expander - (lambda (_%stx63656%_) - (letrec ((_%expand63659%_ - (lambda (_%body63881%_ _%unchecked?63883%_) - (let* ((_%g6388563902%_ - (lambda (_%g6388663898%_) + (lambda (_%stx63719%_) + (letrec ((_%expand63722%_ + (lambda (_%body63944%_ _%unchecked?63946%_) + (let* ((_%g6394863965%_ + (lambda (_%g6394963961%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6388663898%_))) - (_%g6388464133%_ - (lambda (_%g6388663906%_) - (if (gx#stx-pair/null? _%g6388663906%_) - (let ((_g84177_ + _%g6394963961%_))) + (_%g6394764196%_ + (lambda (_%g6394963969%_) + (if (gx#stx-pair/null? _%g6394963969%_) + (let ((_g84240_ (gx#syntax-split-splice - _%g6388663906%_ + _%g6394963969%_ '0))) (begin - (let ((_g84178_ + (let ((_g84241_ (let () (declare (not safe)) - (if (##values? _g84177_) - (##vector-length _g84177_) + (if (##values? _g84240_) + (##values-length _g84240_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84178_ 2))) + (##fx= _g84241_ 2))) (error "Context expects 2 values" - _g84178_))) - (let ((_%target6388863909%_ + _g84241_))) + (let ((_%target6395163972%_ (let () (declare (not safe)) - (##vector-ref _g84177_ 0))) - (_%tl6389063912%_ + (##values-ref _g84240_ 0))) + (_%tl6395363975%_ (let () (declare (not safe)) - (##vector-ref _g84177_ 1)))) - (if (gx#stx-null? _%tl6389063912%_) - (letrec ((_%loop6389163915%_ - (lambda (_%hd6388963919%_ - _%id6389563922%_) + (##values-ref _g84240_ 1)))) + (if (gx#stx-null? _%tl6395363975%_) + (letrec ((_%loop6395463978%_ + (lambda (_%hd6395263982%_ + _%id6395863985%_) (if (gx#stx-pair? - _%hd6388963919%_) - (let ((_%e6389263925%_ + _%hd6395263982%_) + (let ((_%e6395563988%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6388963919%_))) - (let ((_%lp-hd6389363929%_ + (gx#syntax-e _%hd6395263982%_))) + (let ((_%lp-hd6395663992%_ (let () (declare (not safe)) - (##car _%e6389263925%_))) - (_%lp-tl6389463932%_ + (##car _%e6395563988%_))) + (_%lp-tl6395763995%_ (let () (declare (not safe)) - (##cdr _%e6389263925%_)))) - (_%loop6389163915%_ - _%lp-tl6389463932%_ - (cons _%lp-hd6389363929%_ _%id6389563922%_)))) - (let ((_%id6389663935%_ (reverse _%id6389563922%_))) - ((lambda (_%L63939%_) + (##cdr _%e6395563988%_)))) + (_%loop6395463978%_ + _%lp-tl6395763995%_ + (cons _%lp-hd6395663992%_ _%id6395863985%_)))) + (let ((_%id6395963998%_ (reverse _%id6395863985%_))) + ((lambda (_%L64002%_) (if (gx#identifier-list? - (foldr (lambda (_%g6395263955%_ _%g6395363958%_) - (cons _%g6395263955%_ _%g6395363958%_)) + (foldr (lambda (_%g6401564018%_ _%g6401664021%_) + (cons _%g6401564018%_ _%g6401664021%_)) '() - _%L63939%_)) - (let _%lp63961%_ ((_%rest63964%_ - (foldr (lambda (_%g6412464127%_ + _%L64002%_)) + (let _%lp64024%_ ((_%rest64027%_ + (foldr (lambda (_%g6418764190%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6412564130%_) - (cons _%g6412464127%_ _%g6412564130%_)) + _%g6418864193%_) + (cons _%g6418764190%_ _%g6418864193%_)) '() - _%L63939%_)) + _%L64002%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%ids63966%_ '())) - (let* ((_%__stx8196681967%_ _%rest63964%_) - (_%g6396963981%_ + (_%ids64029%_ '())) + (let* ((_%__stx8202982030%_ _%rest64027%_) + (_%g6403264044%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8196681967%_)))) - (let ((_%__kont8196981970%_ - (lambda (_%L64009%_ _%L64011%_) - (let ((_%info64026%_ + _%__stx8202982030%_)))) + (let ((_%__kont8203282033%_ + (lambda (_%L64072%_ _%L64074%_) + (let ((_%info64089%_ (gx#syntax-local-value - _%L64011%_ + _%L64074%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info64026%_)) + _%info64089%_)) '#!void (gx#raise-syntax-error '#f '"not an interface type" - _%stx63656%_ - _%L64011%_)) - (let* ((_%info6402864041%_ - _%info64026%_) - (_%E6403064047%_ + _%stx63719%_ + _%L64074%_)) + (let* ((_%info6409164104%_ + _%info64089%_) + (_%E6409364110%_ (lambda () (error '"No clause matching" - _%info6402864041%_ + _%info6409164104%_ '((interface-info ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< instance-type: @@ -10598,492 +10598,492 @@ unchecked-impl))) (void))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K6403164061%_ - (lambda (_%unchecked-impl64051%_ - _%method-impl64053%_ - _%satisfies-predicate64054%_ - _%predicate64055%_ - _%try-constructor64056%_ - _%constructor64057%_ - _%descriptor64058%_ - _%type64059%_) - (_%lp63961%_ - _%L64009%_ - (cons _%L64011%_ - (cons _%type64059%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%descriptor64058%_ - (cons _%constructor64057%_ - (cons _%try-constructor64056%_ - (cons _%predicate64055%_ - (cons _%satisfies-predicate64054%_ + (_%K6409464124%_ + (lambda (_%unchecked-impl64114%_ + _%method-impl64116%_ + _%satisfies-predicate64117%_ + _%predicate64118%_ + _%try-constructor64119%_ + _%constructor64120%_ + _%descriptor64121%_ + _%type64122%_) + (_%lp64024%_ + _%L64072%_ + (cons _%L64074%_ + (cons _%type64122%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%descriptor64121%_ + (cons _%constructor64120%_ + (cons _%try-constructor64119%_ + (cons _%predicate64118%_ + (cons _%satisfies-predicate64117%_ (foldr cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons - _%ids63966%_ - (if _%unchecked?63883%_ - _%unchecked-impl64051%_ + _%ids64029%_ + (if _%unchecked?63946%_ + _%unchecked-impl64114%_ '())) - _%method-impl64053%_)))))))))))) + _%method-impl64116%_)))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%info6402864041%_)) - (let* ((_%e6403264065%_ + _%info6409164104%_)) + (let* ((_%e6409564128%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'instance-type))) - (_%type64069%_ - _%e6403264065%_) - (_%e6403364072%_ + (_%type64132%_ + _%e6409564128%_) + (_%e6409664135%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'interface-descriptor))) - (_%descriptor64076%_ - _%e6403364072%_) - (_%e6403464079%_ + (_%descriptor64139%_ + _%e6409664135%_) + (_%e6409764142%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'instance-constructor))) - (_%constructor64083%_ - _%e6403464079%_) - (_%e6403564086%_ + (_%constructor64146%_ + _%e6409764142%_) + (_%e6409864149%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'instance-try-constructor))) - (_%try-constructor64090%_ - _%e6403564086%_) - (_%e6403664093%_ + (_%try-constructor64153%_ + _%e6409864149%_) + (_%e6409964156%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'instance-predicate))) - (_%predicate64097%_ - _%e6403664093%_) - (_%e6403764100%_ + (_%predicate64160%_ + _%e6409964156%_) + (_%e6410064163%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'instance-satisfies-predicate))) - (_%satisfies-predicate64104%_ - _%e6403764100%_) - (_%e6403864107%_ + (_%satisfies-predicate64167%_ + _%e6410064163%_) + (_%e6410164170%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'implementation-methods))) - (_%method-impl64111%_ - _%e6403864107%_) - (_%e6403964114%_ + (_%method-impl64174%_ + _%e6410164170%_) + (_%e6410264177%_ (let () (declare (not safe)) (unchecked-slot-ref - _%info6402864041%_ + _%info6409164104%_ 'unchecked-implementation-methods))) - (_%unchecked-impl64118%_ - _%e6403964114%_)) - (_%K6403164061%_ - _%unchecked-impl64118%_ - _%method-impl64111%_ - _%satisfies-predicate64104%_ - _%predicate64097%_ - _%try-constructor64090%_ - _%constructor64083%_ - _%descriptor64076%_ - _%type64069%_)) - (_%E6403064047%_)))))) - (_%__kont8197181972%_ + (_%unchecked-impl64181%_ + _%e6410264177%_)) + (_%K6409464124%_ + _%unchecked-impl64181%_ + _%method-impl64174%_ + _%satisfies-predicate64167%_ + _%predicate64160%_ + _%try-constructor64153%_ + _%constructor64146%_ + _%descriptor64139%_ + _%type64132%_)) + (_%E6409364110%_)))))) + (_%__kont8203482035%_ (lambda () - (cons 'begin: _%ids63966%_)))) - (if (gx#stx-pair? _%__stx8196681967%_) - (let ((_%e6397363999%_ + (cons 'begin: _%ids64029%_)))) + (if (gx#stx-pair? _%__stx8202982030%_) + (let ((_%e6403664062%_ (gx#syntax-e - _%__stx8196681967%_))) - (let ((_%tl6397564006%_ + _%__stx8202982030%_))) + (let ((_%tl6403864069%_ (let () (declare (not safe)) - (##cdr _%e6397363999%_))) - (_%hd6397464003%_ + (##cdr _%e6403664062%_))) + (_%hd6403764066%_ (let () (declare (not safe)) - (##car _%e6397363999%_)))) - (_%__kont8196981970%_ - _%tl6397564006%_ - _%hd6397464003%_))) - (_%__kont8197181972%_))))) - (_%g6388563902%_ _%g6388663906%_))) - _%id6389663935%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6389163915%_ - _%target6388863909%_ + (##car _%e6403664062%_)))) + (_%__kont8203282033%_ + _%tl6403864069%_ + _%hd6403764066%_))) + (_%__kont8203482035%_))))) + (_%g6394863965%_ _%g6394963969%_))) + _%id6395963998%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6395463978%_ + _%target6395163972%_ '())) - (_%g6388563902%_ - _%g6388663906%_))))) - (_%g6388563902%_ _%g6388663906%_))))) - (_%g6388464133%_ _%body63881%_))))) - (let* ((_%__stx8198281983%_ _%stx63656%_) - (_%g6366363704%_ + (_%g6394863965%_ + _%g6394963969%_))))) + (_%g6394863965%_ _%g6394963969%_))))) + (_%g6394764196%_ _%body63944%_))))) + (let* ((_%__stx8204582046%_ _%stx63719%_) + (_%g6372663767%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8198281983%_)))) - (let ((_%__kont8198581986%_ - (lambda (_%L63847%_ _%L63849%_) - (_%expand63659%_ - (foldr (lambda (_%g6386863871%_ _%g6386963874%_) - (cons _%g6386863871%_ _%g6386963874%_)) + _%__stx8204582046%_)))) + (let ((_%__kont8204882049%_ + (lambda (_%L63910%_ _%L63912%_) + (_%expand63722%_ + (foldr (lambda (_%g6393163934%_ _%g6393263937%_) + (cons _%g6393163934%_ _%g6393263937%_)) '() - _%L63847%_) - (gx#stx-e _%L63849%_)))) - (_%__kont8198981990%_ - (lambda (_%L63751%_) - (_%expand63659%_ - (foldr (lambda (_%g6376763770%_ _%g6376863773%_) - (cons _%g6376763770%_ _%g6376863773%_)) + _%L63910%_) + (gx#stx-e _%L63912%_)))) + (_%__kont8205282053%_ + (lambda (_%L63814%_) + (_%expand63722%_ + (foldr (lambda (_%g6383063833%_ _%g6383163836%_) + (cons _%g6383063833%_ _%g6383163836%_)) '() - _%L63751%_) + _%L63814%_) '#t)))) - (let* ((_%__match8203982040%_ - (lambda (_%e6368763711%_ - _%hd6368863715%_ - _%tl6368963718%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) - (letrec ((_%loop6369363727%_ - (lambda (_%hd6369163731%_ - _%body6369763734%_) - (if (gx#stx-pair? _%hd6369163731%_) - (let ((_%e6369463737%_ + (let* ((_%__match8210282103%_ + (lambda (_%e6375063774%_ + _%hd6375163778%_ + _%tl6375263781%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) + (letrec ((_%loop6375663790%_ + (lambda (_%hd6375463794%_ + _%body6376063797%_) + (if (gx#stx-pair? _%hd6375463794%_) + (let ((_%e6375763800%_ (gx#syntax-e - _%hd6369163731%_))) - (let ((_%lp-tl6369663744%_ + _%hd6375463794%_))) + (let ((_%lp-tl6375963807%_ (let () (declare (not safe)) - (##cdr _%e6369463737%_))) - (_%lp-hd6369563741%_ + (##cdr _%e6375763800%_))) + (_%lp-hd6375863804%_ (let () (declare (not safe)) - (##car _%e6369463737%_)))) - (_%loop6369363727%_ - _%lp-tl6369663744%_ - (cons _%lp-hd6369563741%_ - _%body6369763734%_)))) - (let ((_%body6369863747%_ - (reverse _%body6369763734%_))) - (_%__kont8198981990%_ - _%body6369863747%_)))))) - (_%loop6369363727%_ _%target6369063721%_ '())))) - (_%__match8202582026%_ - (lambda (_%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%e6367063793%_ - _%hd6367163797%_ - _%tl6367263800%_ - _%e6367363803%_ - _%e6367463807%_ - _%hd6367563811%_ - _%tl6367663814%_ - _%__splice8198781988%_ - _%target6367763817%_ - _%tl6367963820%_) - (letrec ((_%loop6368063823%_ - (lambda (_%hd6367863827%_ - _%body6368463830%_) - (if (gx#stx-pair? _%hd6367863827%_) - (let ((_%e6368163833%_ + (##car _%e6375763800%_)))) + (_%loop6375663790%_ + _%lp-tl6375963807%_ + (cons _%lp-hd6375863804%_ + _%body6376063797%_)))) + (let ((_%body6376163810%_ + (reverse _%body6376063797%_))) + (_%__kont8205282053%_ + _%body6376163810%_)))))) + (_%loop6375663790%_ _%target6375363784%_ '())))) + (_%__match8208882089%_ + (lambda (_%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%e6373363856%_ + _%hd6373463860%_ + _%tl6373563863%_ + _%e6373663866%_ + _%e6373763870%_ + _%hd6373863874%_ + _%tl6373963877%_ + _%__splice8205082051%_ + _%target6374063880%_ + _%tl6374263883%_) + (letrec ((_%loop6374363886%_ + (lambda (_%hd6374163890%_ + _%body6374763893%_) + (if (gx#stx-pair? _%hd6374163890%_) + (let ((_%e6374463896%_ (gx#syntax-e - _%hd6367863827%_))) - (let ((_%lp-tl6368363840%_ + _%hd6374163890%_))) + (let ((_%lp-tl6374663903%_ (let () (declare (not safe)) - (##cdr _%e6368163833%_))) - (_%lp-hd6368263837%_ + (##cdr _%e6374463896%_))) + (_%lp-hd6374563900%_ (let () (declare (not safe)) - (##car _%e6368163833%_)))) - (_%loop6368063823%_ - _%lp-tl6368363840%_ - (cons _%lp-hd6368263837%_ - _%body6368463830%_)))) - (let ((_%body6368563843%_ - (reverse _%body6368463830%_))) - (_%__kont8198581986%_ - _%body6368563843%_ - _%hd6367563811%_)))))) - (_%loop6368063823%_ _%target6367763817%_ '()))))) - (if (gx#stx-pair? _%__stx8198281983%_) - (let ((_%e6366763783%_ (gx#syntax-e _%__stx8198281983%_))) - (let ((_%tl6366963790%_ + (##car _%e6374463896%_)))) + (_%loop6374363886%_ + _%lp-tl6374663903%_ + (cons _%lp-hd6374563900%_ + _%body6374763893%_)))) + (let ((_%body6374863906%_ + (reverse _%body6374763893%_))) + (_%__kont8204882049%_ + _%body6374863906%_ + _%hd6373863874%_)))))) + (_%loop6374363886%_ _%target6374063880%_ '()))))) + (if (gx#stx-pair? _%__stx8204582046%_) + (let ((_%e6373063846%_ (gx#syntax-e _%__stx8204582046%_))) + (let ((_%tl6373263853%_ (let () (declare (not safe)) - (##cdr _%e6366763783%_))) - (_%hd6366863787%_ + (##cdr _%e6373063846%_))) + (_%hd6373163850%_ (let () (declare (not safe)) - (##car _%e6366763783%_)))) - (if (gx#stx-pair? _%tl6366963790%_) - (let ((_%e6367063793%_ - (gx#syntax-e _%tl6366963790%_))) - (let ((_%tl6367263800%_ + (##car _%e6373063846%_)))) + (if (gx#stx-pair? _%tl6373263853%_) + (let ((_%e6373363856%_ + (gx#syntax-e _%tl6373263853%_))) + (let ((_%tl6373563863%_ (let () (declare (not safe)) - (##cdr _%e6367063793%_))) - (_%hd6367163797%_ + (##cdr _%e6373363856%_))) + (_%hd6373463860%_ (let () (declare (not safe)) - (##car _%e6367063793%_)))) - (if (gx#stx-datum? _%hd6367163797%_) - (let ((_%e6367363803%_ - (gx#stx-e _%hd6367163797%_))) - (if (equal? _%e6367363803%_ 'unchecked:) - (if (gx#stx-pair? _%tl6367263800%_) - (let ((_%e6367463807%_ + (##car _%e6373363856%_)))) + (if (gx#stx-datum? _%hd6373463860%_) + (let ((_%e6373663866%_ + (gx#stx-e _%hd6373463860%_))) + (if (equal? _%e6373663866%_ 'unchecked:) + (if (gx#stx-pair? _%tl6373563863%_) + (let ((_%e6373763870%_ (gx#syntax-e - _%tl6367263800%_))) - (let ((_%tl6367663814%_ + _%tl6373563863%_))) + (let ((_%tl6373963877%_ (let () (declare (not safe)) - (##cdr _%e6367463807%_))) - (_%hd6367563811%_ + (##cdr _%e6373763870%_))) + (_%hd6373863874%_ (let () (declare (not safe)) - (##car _%e6367463807%_)))) + (##car _%e6373763870%_)))) (if (gx#stx-pair/null? - _%tl6367663814%_) - (let ((_%__splice8198781988%_ + _%tl6373963877%_) + (let ((_%__splice8205082051%_ (gx#syntax-split-splice - _%tl6367663814%_ + _%tl6373963877%_ '0))) - (let ((_%tl6367963820%_ + (let ((_%tl6374263883%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8198781988%_ '1))) - (_%target6367763817%_ + (##vector-ref _%__splice8205082051%_ '1))) + (_%target6374063880%_ (let () (declare (not safe)) - (##vector-ref _%__splice8198781988%_ '0)))) - (if (gx#stx-null? _%tl6367963820%_) - (_%__match8202582026%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%e6367063793%_ - _%hd6367163797%_ - _%tl6367263800%_ - _%e6367363803%_ - _%e6367463807%_ - _%hd6367563811%_ - _%tl6367663814%_ - _%__splice8198781988%_ - _%target6367763817%_ - _%tl6367963820%_) - (if (gx#stx-pair/null? _%tl6366963790%_) - (let ((_%__splice8199181992%_ + (##vector-ref _%__splice8205082051%_ '0)))) + (if (gx#stx-null? _%tl6374263883%_) + (_%__match8208882089%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%e6373363856%_ + _%hd6373463860%_ + _%tl6373563863%_ + _%e6373663866%_ + _%e6373763870%_ + _%hd6373863874%_ + _%tl6373963877%_ + _%__splice8205082051%_ + _%target6374063880%_ + _%tl6374263883%_) + (if (gx#stx-pair/null? _%tl6373263853%_) + (let ((_%__splice8205482055%_ (gx#syntax-split-splice - _%tl6366963790%_ + _%tl6373263853%_ '0))) - (let ((_%tl6369263724%_ + (let ((_%tl6375563787%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '1))) - (_%target6369063721%_ + (_%target6375363784%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '0)))) - (if (gx#stx-null? _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) + (if (gx#stx-null? _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) (let () (declare (not safe)) - (_%g6366363704%_))))) - (let () (declare (not safe)) (_%g6366363704%_)))))) - (if (gx#stx-pair/null? _%tl6366963790%_) - (let ((_%__splice8199181992%_ - (gx#syntax-split-splice _%tl6366963790%_ '0))) - (let ((_%tl6369263724%_ + (_%g6372663767%_))))) + (let () (declare (not safe)) (_%g6372663767%_)))))) + (if (gx#stx-pair/null? _%tl6373263853%_) + (let ((_%__splice8205482055%_ + (gx#syntax-split-splice _%tl6373263853%_ '0))) + (let ((_%tl6375563787%_ (let () (declare (not safe)) - (##vector-ref _%__splice8199181992%_ '1))) - (_%target6369063721%_ + (##vector-ref _%__splice8205482055%_ '1))) + (_%target6375363784%_ (let () (declare (not safe)) - (##vector-ref _%__splice8199181992%_ '0)))) - (if (gx#stx-null? _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) - (let () (declare (not safe)) (_%g6366363704%_))))) - (let () (declare (not safe)) (_%g6366363704%_)))))) + (##vector-ref _%__splice8205482055%_ '0)))) + (if (gx#stx-null? _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) + (let () (declare (not safe)) (_%g6372663767%_))))) + (let () (declare (not safe)) (_%g6372663767%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6366963790%_) - (let ((_%__splice8199181992%_ + _%tl6373263853%_) + (let ((_%__splice8205482055%_ (gx#syntax-split-splice - _%tl6366963790%_ + _%tl6373263853%_ '0))) - (let ((_%tl6369263724%_ + (let ((_%tl6375563787%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '1))) - (_%target6369063721%_ + (_%target6375363784%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '0)))) (if (gx#stx-null? - _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) + _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) (let () (declare (not safe)) - (_%g6366363704%_))))) + (_%g6372663767%_))))) (let () (declare (not safe)) - (_%g6366363704%_)))) + (_%g6372663767%_)))) (if (gx#stx-pair/null? - _%tl6366963790%_) - (let ((_%__splice8199181992%_ + _%tl6373263853%_) + (let ((_%__splice8205482055%_ (gx#syntax-split-splice - _%tl6366963790%_ + _%tl6373263853%_ '0))) - (let ((_%tl6369263724%_ + (let ((_%tl6375563787%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '1))) - (_%target6369063721%_ + (_%target6375363784%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '0)))) (if (gx#stx-null? - _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) + _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) (let () (declare (not safe)) - (_%g6366363704%_))))) + (_%g6372663767%_))))) (let () (declare (not safe)) - (_%g6366363704%_))))) - (if (gx#stx-pair/null? _%tl6366963790%_) - (let ((_%__splice8199181992%_ + (_%g6372663767%_))))) + (if (gx#stx-pair/null? _%tl6373263853%_) + (let ((_%__splice8205482055%_ (gx#syntax-split-splice - _%tl6366963790%_ + _%tl6373263853%_ '0))) - (let ((_%tl6369263724%_ + (let ((_%tl6375563787%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '1))) - (_%target6369063721%_ + (_%target6375363784%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '0)))) (if (gx#stx-null? - _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) + _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) (let () (declare (not safe)) - (_%g6366363704%_))))) + (_%g6372663767%_))))) (let () (declare (not safe)) - (_%g6366363704%_)))))) - (if (gx#stx-pair/null? _%tl6366963790%_) - (let ((_%__splice8199181992%_ + (_%g6372663767%_)))))) + (if (gx#stx-pair/null? _%tl6373263853%_) + (let ((_%__splice8205482055%_ (gx#syntax-split-splice - _%tl6366963790%_ + _%tl6373263853%_ '0))) - (let ((_%tl6369263724%_ + (let ((_%tl6375563787%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '1))) - (_%target6369063721%_ + (_%target6375363784%_ (let () (declare (not safe)) (##vector-ref - _%__splice8199181992%_ + _%__splice8205482055%_ '0)))) - (if (gx#stx-null? _%tl6369263724%_) - (_%__match8203982040%_ - _%e6366763783%_ - _%hd6366863787%_ - _%tl6366963790%_ - _%__splice8199181992%_ - _%target6369063721%_ - _%tl6369263724%_) + (if (gx#stx-null? _%tl6375563787%_) + (_%__match8210282103%_ + _%e6373063846%_ + _%hd6373163850%_ + _%tl6373263853%_ + _%__splice8205482055%_ + _%target6375363784%_ + _%tl6375563787%_) (let () (declare (not safe)) - (_%g6366363704%_))))) + (_%g6372663767%_))))) (let () (declare (not safe)) - (_%g6366363704%_)))))) - (let () (declare (not safe)) (_%g6366363704%_)))))))))))) + (_%g6372663767%_)))))) + (let () (declare (not safe)) (_%g6372663767%_)))))))))))) diff --git a/src/bootstrap/gerbil/core/contract~9.scm b/src/bootstrap/gerbil/core/contract~9.scm index 15c358dab..4744fe9b0 100644 --- a/src/bootstrap/gerbil/core/contract~9.scm +++ b/src/bootstrap/gerbil/core/contract~9.scm @@ -1,826 +1,826 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/contract~TypedDefinitions[1]#_g84185_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84248_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84192_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84255_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84195_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84258_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84196_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84259_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84204_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84267_| (##structure gx#syntax-quote::t 'lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84205_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84268_| (##structure gx#syntax-quote::t 'case-lambda/c #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84206_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84269_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84208_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84271_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84209_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84272_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84210_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84273_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84212_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84275_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84213_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84276_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84214_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84277_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84216_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84279_| (##structure gx#syntax-quote::t ':= #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84217_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84280_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84218_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84281_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84219_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84282_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84220_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84283_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84221_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84284_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84222_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84285_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84223_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84286_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84224_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84287_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84225_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84288_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84226_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84289_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84227_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84290_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84228_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84291_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84229_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84292_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84230_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84293_| (##structure gx#syntax-quote::t ':~ #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84231_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84294_| (##structure gx#syntax-quote::t ': #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84232_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84295_| (##structure gx#syntax-quote::t ':? #f (gx#current-expander-context) '())) - (define |gerbil/core/contract~TypedDefinitions[1]#_g84233_| + (define |gerbil/core/contract~TypedDefinitions[1]#_g84296_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (begin (define |gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (lambda (_%formals64141%_) - (let _%lp64144%_ ((_%rest64147%_ _%formals64141%_)) - (let* ((_%__stx8204282043%_ _%rest64147%_) - (_%g6415664225%_ + (lambda (_%formals64204%_) + (let _%lp64207%_ ((_%rest64210%_ _%formals64204%_)) + (let* ((_%__stx8210582106%_ _%rest64210%_) + (_%g6421964288%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8204282043%_)))) - (let ((_%__kont8204582046%_ - (lambda (_%L64526%_ _%L64528%_) (_%lp64144%_ _%L64526%_))) - (_%__kont8204782048%_ - (lambda (_%L64492%_ _%L64494%_) (_%lp64144%_ _%L64492%_))) - (_%__kont8204982050%_ - (lambda (_%L64438%_ _%L64440%_ _%L64441%_) '#t)) - (_%__kont8205182052%_ - (lambda (_%L64394%_ _%L64396%_ _%L64397%_) - (_%lp64144%_ _%L64394%_))) - (_%__kont8205382054%_ - (lambda (_%L64346%_ _%L64348%_ _%L64349%_) - (_%lp64144%_ _%L64346%_))) - (_%__kont8205582056%_ - (lambda (_%L64273%_ _%L64275%_ _%L64276%_ _%L64277%_) '#t)) - (_%__kont8205782058%_ (lambda () '#f))) - (let* ((_%__match8215382154%_ - (lambda (_%e6421164243%_ - _%hd6421264247%_ - _%tl6421364250%_ - _%e6421464253%_ - _%hd6421564257%_ - _%tl6421664260%_ - _%e6421764263%_ - _%hd6421864267%_ - _%tl6421964270%_) - (let ((_%L64273%_ _%tl6421664260%_) - (_%L64275%_ _%tl6421964270%_) - (_%L64276%_ _%hd6421864267%_) - (_%L64277%_ _%hd6421264247%_)) - (if (and (gx#stx-keyword? _%L64277%_) - (gx#identifier? _%L64276%_) + _%__stx8210582106%_)))) + (let ((_%__kont8210882109%_ + (lambda (_%L64589%_ _%L64591%_) (_%lp64207%_ _%L64589%_))) + (_%__kont8211082111%_ + (lambda (_%L64555%_ _%L64557%_) (_%lp64207%_ _%L64555%_))) + (_%__kont8211282113%_ + (lambda (_%L64501%_ _%L64503%_ _%L64504%_) '#t)) + (_%__kont8211482115%_ + (lambda (_%L64457%_ _%L64459%_ _%L64460%_) + (_%lp64207%_ _%L64457%_))) + (_%__kont8211682117%_ + (lambda (_%L64409%_ _%L64411%_ _%L64412%_) + (_%lp64207%_ _%L64409%_))) + (_%__kont8211882119%_ + (lambda (_%L64336%_ _%L64338%_ _%L64339%_ _%L64340%_) '#t)) + (_%__kont8212082121%_ (lambda () '#f))) + (let* ((_%__match8221682217%_ + (lambda (_%e6427464306%_ + _%hd6427564310%_ + _%tl6427664313%_ + _%e6427764316%_ + _%hd6427864320%_ + _%tl6427964323%_ + _%e6428064326%_ + _%hd6428164330%_ + _%tl6428264333%_) + (let ((_%L64336%_ _%tl6427964323%_) + (_%L64338%_ _%tl6428264333%_) + (_%L64339%_ _%hd6428164330%_) + (_%L64340%_ _%hd6427564310%_)) + (if (and (gx#stx-keyword? _%L64340%_) + (gx#identifier? _%L64339%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64275%_))) - (_%__kont8205582056%_ - _%L64273%_ - _%L64275%_ - _%L64276%_ - _%L64277%_) - (_%__kont8205782058%_))))) - (_%__match8213582136%_ - (lambda (_%e6419564306%_ - _%hd6419664310%_ - _%tl6419764313%_ - _%e6419864316%_ - _%hd6419964320%_ - _%tl6420064323%_ - _%e6420164326%_ - _%hd6420264330%_ - _%tl6420364333%_ - _%e6420464336%_ - _%hd6420564340%_ - _%tl6420664343%_) - (let ((_%L64346%_ _%tl6420064323%_) - (_%L64348%_ _%hd6420264330%_) - (_%L64349%_ _%hd6419664310%_)) - (if (and (gx#stx-keyword? _%L64349%_) - (gx#identifier? _%L64348%_)) - (_%__kont8205382054%_ - _%L64346%_ - _%L64348%_ - _%L64349%_) - (_%__match8215382154%_ - _%e6419564306%_ - _%hd6419664310%_ - _%tl6419764313%_ - _%e6419864316%_ - _%hd6419964320%_ - _%tl6420064323%_ - _%e6420164326%_ - _%hd6420264330%_ - _%tl6420364333%_))))) - (_%__match8210982110%_ - (lambda (_%e6418664374%_ - _%hd6418764378%_ - _%tl6418864381%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_) - (let ((_%L64394%_ _%tl6419164391%_) - (_%L64396%_ _%hd6419064388%_) - (_%L64397%_ _%hd6418764378%_)) - (if (and (gx#stx-keyword? _%L64397%_) - (gx#identifier? _%L64396%_)) - (_%__kont8205182052%_ - _%L64394%_ - _%L64396%_ - _%L64397%_) - (if (gx#stx-pair? _%hd6419064388%_) - (let ((_%e6420164326%_ - (gx#syntax-e _%hd6419064388%_))) - (let ((_%tl6420364333%_ + _%L64338%_))) + (_%__kont8211882119%_ + _%L64336%_ + _%L64338%_ + _%L64339%_ + _%L64340%_) + (_%__kont8212082121%_))))) + (_%__match8219882199%_ + (lambda (_%e6425864369%_ + _%hd6425964373%_ + _%tl6426064376%_ + _%e6426164379%_ + _%hd6426264383%_ + _%tl6426364386%_ + _%e6426464389%_ + _%hd6426564393%_ + _%tl6426664396%_ + _%e6426764399%_ + _%hd6426864403%_ + _%tl6426964406%_) + (let ((_%L64409%_ _%tl6426364386%_) + (_%L64411%_ _%hd6426564393%_) + (_%L64412%_ _%hd6425964373%_)) + (if (and (gx#stx-keyword? _%L64412%_) + (gx#identifier? _%L64411%_)) + (_%__kont8211682117%_ + _%L64409%_ + _%L64411%_ + _%L64412%_) + (_%__match8221682217%_ + _%e6425864369%_ + _%hd6425964373%_ + _%tl6426064376%_ + _%e6426164379%_ + _%hd6426264383%_ + _%tl6426364386%_ + _%e6426464389%_ + _%hd6426564393%_ + _%tl6426664396%_))))) + (_%__match8217282173%_ + (lambda (_%e6424964437%_ + _%hd6425064441%_ + _%tl6425164444%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_) + (let ((_%L64457%_ _%tl6425464454%_) + (_%L64459%_ _%hd6425364451%_) + (_%L64460%_ _%hd6425064441%_)) + (if (and (gx#stx-keyword? _%L64460%_) + (gx#identifier? _%L64459%_)) + (_%__kont8211482115%_ + _%L64457%_ + _%L64459%_ + _%L64460%_) + (if (gx#stx-pair? _%hd6425364451%_) + (let ((_%e6426464389%_ + (gx#syntax-e _%hd6425364451%_))) + (let ((_%tl6426664396%_ (let () (declare (not safe)) - (##cdr _%e6420164326%_))) - (_%hd6420264330%_ + (##cdr _%e6426464389%_))) + (_%hd6426564393%_ (let () (declare (not safe)) - (##car _%e6420164326%_)))) - (if (gx#stx-pair? _%tl6420364333%_) - (let ((_%e6420464336%_ + (##car _%e6426464389%_)))) + (if (gx#stx-pair? _%tl6426664396%_) + (let ((_%e6426764399%_ (gx#syntax-e - _%tl6420364333%_))) - (let ((_%tl6420664343%_ + _%tl6426664396%_))) + (let ((_%tl6426964406%_ (let () (declare (not safe)) - (##cdr _%e6420464336%_))) - (_%hd6420564340%_ + (##cdr _%e6426764399%_))) + (_%hd6426864403%_ (let () (declare (not safe)) - (##car _%e6420464336%_)))) + (##car _%e6426764399%_)))) (if (gx#stx-null? - _%tl6420664343%_) - (_%__match8213582136%_ - _%e6418664374%_ - _%hd6418764378%_ - _%tl6418864381%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_ - _%e6420164326%_ - _%hd6420264330%_ - _%tl6420364333%_ - _%e6420464336%_ - _%hd6420564340%_ - _%tl6420664343%_) - (_%__match8215382154%_ - _%e6418664374%_ - _%hd6418764378%_ - _%tl6418864381%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_ - _%e6420164326%_ - _%hd6420264330%_ - _%tl6420364333%_)))) - (_%__match8215382154%_ - _%e6418664374%_ - _%hd6418764378%_ - _%tl6418864381%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_ - _%e6420164326%_ - _%hd6420264330%_ - _%tl6420364333%_)))) - (_%__kont8205782058%_)))))) - (_%__match8209782098%_ - (lambda (_%e6417764418%_ - _%hd6417864422%_ - _%tl6417964425%_ - _%e6418064428%_ - _%hd6418164432%_ - _%tl6418264435%_) - (let ((_%L64438%_ _%tl6417964425%_) - (_%L64440%_ _%tl6418264435%_) - (_%L64441%_ _%hd6418164432%_)) - (if (and (gx#identifier? _%L64441%_) + _%tl6426964406%_) + (_%__match8219882199%_ + _%e6424964437%_ + _%hd6425064441%_ + _%tl6425164444%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_ + _%e6426464389%_ + _%hd6426564393%_ + _%tl6426664396%_ + _%e6426764399%_ + _%hd6426864403%_ + _%tl6426964406%_) + (_%__match8221682217%_ + _%e6424964437%_ + _%hd6425064441%_ + _%tl6425164444%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_ + _%e6426464389%_ + _%hd6426564393%_ + _%tl6426664396%_)))) + (_%__match8221682217%_ + _%e6424964437%_ + _%hd6425064441%_ + _%tl6425164444%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_ + _%e6426464389%_ + _%hd6426564393%_ + _%tl6426664396%_)))) + (_%__kont8212082121%_)))))) + (_%__match8216082161%_ + (lambda (_%e6424064481%_ + _%hd6424164485%_ + _%tl6424264488%_ + _%e6424364491%_ + _%hd6424464495%_ + _%tl6424564498%_) + (let ((_%L64501%_ _%tl6424264488%_) + (_%L64503%_ _%tl6424564498%_) + (_%L64504%_ _%hd6424464495%_)) + (if (and (gx#identifier? _%L64504%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-contract?| - _%L64440%_))) - (_%__kont8204982050%_ - _%L64438%_ - _%L64440%_ - _%L64441%_) - (if (gx#stx-pair? _%tl6417964425%_) - (let ((_%e6418964384%_ - (gx#syntax-e _%tl6417964425%_))) - (let ((_%tl6419164391%_ + _%L64503%_))) + (_%__kont8211282113%_ + _%L64501%_ + _%L64503%_ + _%L64504%_) + (if (gx#stx-pair? _%tl6424264488%_) + (let ((_%e6425264447%_ + (gx#syntax-e _%tl6424264488%_))) + (let ((_%tl6425464454%_ (let () (declare (not safe)) - (##cdr _%e6418964384%_))) - (_%hd6419064388%_ + (##cdr _%e6425264447%_))) + (_%hd6425364451%_ (let () (declare (not safe)) - (##car _%e6418964384%_)))) - (_%__match8210982110%_ - _%e6417764418%_ - _%hd6417864422%_ - _%tl6417964425%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_))) - (_%__kont8205782058%_)))))) - (_%__match8206582066%_ - (lambda (_%e6416064516%_ - _%hd6416164520%_ - _%tl6416264523%_) - (let ((_%L64526%_ _%tl6416264523%_) - (_%L64528%_ _%hd6416164520%_)) - (if (gx#identifier? _%L64528%_) - (_%__kont8204582046%_ _%L64526%_ _%L64528%_) - (if (gx#stx-pair? _%hd6416164520%_) - (let ((_%e6416864472%_ - (gx#syntax-e _%hd6416164520%_))) - (let ((_%tl6417064479%_ + (##car _%e6425264447%_)))) + (_%__match8217282173%_ + _%e6424064481%_ + _%hd6424164485%_ + _%tl6424264488%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_))) + (_%__kont8212082121%_)))))) + (_%__match8212882129%_ + (lambda (_%e6422364579%_ + _%hd6422464583%_ + _%tl6422564586%_) + (let ((_%L64589%_ _%tl6422564586%_) + (_%L64591%_ _%hd6422464583%_)) + (if (gx#identifier? _%L64591%_) + (_%__kont8210882109%_ _%L64589%_ _%L64591%_) + (if (gx#stx-pair? _%hd6422464583%_) + (let ((_%e6423164535%_ + (gx#syntax-e _%hd6422464583%_))) + (let ((_%tl6423364542%_ (let () (declare (not safe)) - (##cdr _%e6416864472%_))) - (_%hd6416964476%_ + (##cdr _%e6423164535%_))) + (_%hd6423264539%_ (let () (declare (not safe)) - (##car _%e6416864472%_)))) - (if (gx#stx-pair? _%tl6417064479%_) - (let ((_%e6417164482%_ + (##car _%e6423164535%_)))) + (if (gx#stx-pair? _%tl6423364542%_) + (let ((_%e6423464545%_ (gx#syntax-e - _%tl6417064479%_))) - (let ((_%tl6417364489%_ + _%tl6423364542%_))) + (let ((_%tl6423664552%_ (let () (declare (not safe)) - (##cdr _%e6417164482%_))) - (_%hd6417264486%_ + (##cdr _%e6423464545%_))) + (_%hd6423564549%_ (let () (declare (not safe)) - (##car _%e6417164482%_)))) + (##car _%e6423464545%_)))) (if (gx#stx-null? - _%tl6417364489%_) - (_%__kont8204782048%_ - _%tl6416264523%_ - _%hd6416964476%_) - (_%__match8209782098%_ - _%e6416064516%_ - _%hd6416164520%_ - _%tl6416264523%_ - _%e6416864472%_ - _%hd6416964476%_ - _%tl6417064479%_)))) - (_%__match8209782098%_ - _%e6416064516%_ - _%hd6416164520%_ - _%tl6416264523%_ - _%e6416864472%_ - _%hd6416964476%_ - _%tl6417064479%_)))) - (if (gx#stx-pair? _%tl6416264523%_) - (let ((_%e6418964384%_ - (gx#syntax-e _%tl6416264523%_))) - (let ((_%tl6419164391%_ + _%tl6423664552%_) + (_%__kont8211082111%_ + _%tl6422564586%_ + _%hd6423264539%_) + (_%__match8216082161%_ + _%e6422364579%_ + _%hd6422464583%_ + _%tl6422564586%_ + _%e6423164535%_ + _%hd6423264539%_ + _%tl6423364542%_)))) + (_%__match8216082161%_ + _%e6422364579%_ + _%hd6422464583%_ + _%tl6422564586%_ + _%e6423164535%_ + _%hd6423264539%_ + _%tl6423364542%_)))) + (if (gx#stx-pair? _%tl6422564586%_) + (let ((_%e6425264447%_ + (gx#syntax-e _%tl6422564586%_))) + (let ((_%tl6425464454%_ (let () (declare (not safe)) - (##cdr _%e6418964384%_))) - (_%hd6419064388%_ + (##cdr _%e6425264447%_))) + (_%hd6425364451%_ (let () (declare (not safe)) - (##car _%e6418964384%_)))) - (_%__match8210982110%_ - _%e6416064516%_ - _%hd6416164520%_ - _%tl6416264523%_ - _%e6418964384%_ - _%hd6419064388%_ - _%tl6419164391%_))) - (_%__kont8205782058%_)))))))) - (if (gx#stx-pair? _%__stx8204282043%_) - (let ((_%e6416064516%_ (gx#syntax-e _%__stx8204282043%_))) - (let ((_%tl6416264523%_ + (##car _%e6425264447%_)))) + (_%__match8217282173%_ + _%e6422364579%_ + _%hd6422464583%_ + _%tl6422564586%_ + _%e6425264447%_ + _%hd6425364451%_ + _%tl6425464454%_))) + (_%__kont8212082121%_)))))))) + (if (gx#stx-pair? _%__stx8210582106%_) + (let ((_%e6422364579%_ (gx#syntax-e _%__stx8210582106%_))) + (let ((_%tl6422564586%_ (let () (declare (not safe)) - (##cdr _%e6416064516%_))) - (_%hd6416164520%_ + (##cdr _%e6422364579%_))) + (_%hd6422464583%_ (let () (declare (not safe)) - (##car _%e6416064516%_)))) - (_%__match8206582066%_ - _%e6416064516%_ - _%hd6416164520%_ - _%tl6416264523%_))) - (_%__kont8205782058%_)))))))) + (##car _%e6422364579%_)))) + (_%__match8212882129%_ + _%e6422364579%_ + _%hd6422464583%_ + _%tl6422564586%_))) + (_%__kont8212082121%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def/c| - (lambda (_%stx64543%_) - (letrec ((_%make-definition64546%_ - (lambda (_%id65644%_ - _%args65646%_ - _%return65647%_ - _%body65648%_) + (lambda (_%stx64606%_) + (letrec ((_%make-definition64609%_ + (lambda (_%id65707%_ + _%args65709%_ + _%return65710%_ + _%body65711%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature!__%| '#f absent-value absent-value - _%stx64543%_ - _%args65646%_ - _%return65647%_)) + _%stx64606%_ + _%args65709%_ + _%return65710%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-has-keywords?| - _%args65646%_)) - (_%make-keyword-def64548%_ - _%id65644%_ - _%args65646%_ - _%return65647%_ - _%body65648%_) - (let* ((_%unchecked-id65650%_ + _%args65709%_)) + (_%make-keyword-def64611%_ + _%id65707%_ + _%args65709%_ + _%return65710%_ + _%body65711%_) + (let* ((_%unchecked-id65713%_ (gx#stx-identifier - _%id65644%_ + _%id65707%_ '"__" - _%id65644%_)) - (_%g6565365668%_ - (lambda (_%g6565465664%_) + _%id65707%_)) + (_%g6571665731%_ + (lambda (_%g6571765727%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6565465664%_))) - (_%g6565265714%_ - (lambda (_%g6565465672%_) - (if (gx#stx-pair? _%g6565465672%_) - (let ((_%e6565765675%_ - (gx#syntax-e _%g6565465672%_))) - (let ((_%hd6565865679%_ + _%g6571765727%_))) + (_%g6571565777%_ + (lambda (_%g6571765735%_) + (if (gx#stx-pair? _%g6571765735%_) + (let ((_%e6572065738%_ + (gx#syntax-e _%g6571765735%_))) + (let ((_%hd6572165742%_ (let () (declare (not safe)) - (##car _%e6565765675%_))) - (_%tl6565965682%_ + (##car _%e6572065738%_))) + (_%tl6572265745%_ (let () (declare (not safe)) - (##cdr _%e6565765675%_)))) - (if (gx#stx-pair? _%tl6565965682%_) - (let ((_%e6566065685%_ + (##cdr _%e6572065738%_)))) + (if (gx#stx-pair? _%tl6572265745%_) + (let ((_%e6572365748%_ (gx#syntax-e - _%tl6565965682%_))) - (let ((_%hd6566165689%_ + _%tl6572265745%_))) + (let ((_%hd6572465752%_ (let () (declare (not safe)) - (##car _%e6566065685%_))) - (_%tl6566265692%_ + (##car _%e6572365748%_))) + (_%tl6572565755%_ (let () (declare (not safe)) - (##cdr _%e6566065685%_)))) + (##cdr _%e6572365748%_)))) (if (gx#stx-null? - _%tl6566265692%_) - ((lambda (_%L65695%_ - _%L65697%_) + _%tl6572565755%_) + ((lambda (_%L65758%_ + _%L65760%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L65697%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65695%_ '())))) - _%hd6566165689%_ - _%hd6565865679%_) - (_%g6565365668%_ _%g6565465672%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6565365668%_ - _%g6565465672%_)))) - (_%g6565365668%_ _%g6565465672%_))))) - (_%g6565265714%_ - (list (_%make-checked-def64549%_ - _%id65644%_ - _%unchecked-id65650%_ - _%args65646%_ - _%return65647%_) - (_%make-unchecked-def64550%_ - _%unchecked-id65650%_ - _%args65646%_ - _%return65647%_ - _%body65648%_))))))) - (_%make-keyword-def64548%_ - (lambda (_%id65451%_ - _%signature65453%_ - _%return65454%_ - _%body65455%_) - (let* ((_%g6545765497%_ - (lambda (_%g6545865493%_) + (cons _%L65760%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L65758%_ '())))) + _%hd6572465752%_ + _%hd6572165742%_) + (_%g6571665731%_ _%g6571765735%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6571665731%_ + _%g6571765735%_)))) + (_%g6571665731%_ _%g6571765735%_))))) + (_%g6571565777%_ + (list (_%make-checked-def64612%_ + _%id65707%_ + _%unchecked-id65713%_ + _%args65709%_ + _%return65710%_) + (_%make-unchecked-def64613%_ + _%unchecked-id65713%_ + _%args65709%_ + _%return65710%_ + _%body65711%_))))))) + (_%make-keyword-def64611%_ + (lambda (_%id65514%_ + _%signature65516%_ + _%return65517%_ + _%body65518%_) + (let* ((_%g6552065560%_ + (lambda (_%g6552165556%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6545865493%_))) - (_%g6545665640%_ - (lambda (_%g6545865501%_) - (if (gx#stx-pair? _%g6545865501%_) - (let ((_%e6546565504%_ - (gx#syntax-e _%g6545865501%_))) - (let ((_%hd6546665508%_ + _%g6552165556%_))) + (_%g6551965703%_ + (lambda (_%g6552165564%_) + (if (gx#stx-pair? _%g6552165564%_) + (let ((_%e6552865567%_ + (gx#syntax-e _%g6552165564%_))) + (let ((_%hd6552965571%_ (let () (declare (not safe)) - (##car _%e6546565504%_))) - (_%tl6546765511%_ + (##car _%e6552865567%_))) + (_%tl6553065574%_ (let () (declare (not safe)) - (##cdr _%e6546565504%_)))) - (if (gx#stx-pair? _%tl6546765511%_) - (let ((_%e6546865514%_ + (##cdr _%e6552865567%_)))) + (if (gx#stx-pair? _%tl6553065574%_) + (let ((_%e6553165577%_ (gx#syntax-e - _%tl6546765511%_))) - (let ((_%hd6546965518%_ + _%tl6553065574%_))) + (let ((_%hd6553265581%_ (let () (declare (not safe)) - (##car _%e6546865514%_))) - (_%tl6547065521%_ + (##car _%e6553165577%_))) + (_%tl6553365584%_ (let () (declare (not safe)) - (##cdr _%e6546865514%_)))) + (##cdr _%e6553165577%_)))) (if (gx#stx-pair? - _%tl6547065521%_) - (let ((_%e6547165524%_ + _%tl6553365584%_) + (let ((_%e6553465587%_ (gx#syntax-e - _%tl6547065521%_))) - (let ((_%hd6547265528%_ + _%tl6553365584%_))) + (let ((_%hd6553565591%_ (let () (declare (not safe)) - (##car _%e6547165524%_))) - (_%tl6547365531%_ + (##car _%e6553465587%_))) + (_%tl6553665594%_ (let () (declare (not safe)) - (##cdr _%e6547165524%_)))) + (##cdr _%e6553465587%_)))) (if (gx#stx-pair? - _%tl6547365531%_) - (let ((_%e6547465534%_ + _%tl6553665594%_) + (let ((_%e6553765597%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6547365531%_))) - (let ((_%hd6547565538%_ + (gx#syntax-e _%tl6553665594%_))) + (let ((_%hd6553865601%_ (let () (declare (not safe)) - (##car _%e6547465534%_))) - (_%tl6547665541%_ + (##car _%e6553765597%_))) + (_%tl6553965604%_ (let () (declare (not safe)) - (##cdr _%e6547465534%_)))) - (if (gx#stx-pair? _%tl6547665541%_) - (let ((_%e6547765544%_ - (gx#syntax-e _%tl6547665541%_))) - (let ((_%hd6547865548%_ + (##cdr _%e6553765597%_)))) + (if (gx#stx-pair? _%tl6553965604%_) + (let ((_%e6554065607%_ + (gx#syntax-e _%tl6553965604%_))) + (let ((_%hd6554165611%_ (let () (declare (not safe)) - (##car _%e6547765544%_))) - (_%tl6547965551%_ + (##car _%e6554065607%_))) + (_%tl6554265614%_ (let () (declare (not safe)) - (##cdr _%e6547765544%_)))) - (if (gx#stx-pair? _%tl6547965551%_) - (let ((_%e6548065554%_ - (gx#syntax-e _%tl6547965551%_))) - (let ((_%hd6548165558%_ + (##cdr _%e6554065607%_)))) + (if (gx#stx-pair? _%tl6554265614%_) + (let ((_%e6554365617%_ + (gx#syntax-e _%tl6554265614%_))) + (let ((_%hd6554465621%_ (let () (declare (not safe)) - (##car _%e6548065554%_))) - (_%tl6548265561%_ + (##car _%e6554365617%_))) + (_%tl6554565624%_ (let () (declare (not safe)) - (##cdr _%e6548065554%_)))) - (if (gx#stx-pair/null? _%hd6548165558%_) - (let ((_g84179_ + (##cdr _%e6554365617%_)))) + (if (gx#stx-pair/null? _%hd6554465621%_) + (let ((_g84242_ (gx#syntax-split-splice - _%hd6548165558%_ + _%hd6554465621%_ '0))) (begin - (let ((_g84180_ + (let ((_g84243_ (let () (declare (not safe)) - (if (##values? _g84179_) - (##vector-length - _g84179_) + (if (##values? _g84242_) + (##values-length + _g84242_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84180_ 2))) + (##fx= _g84243_ 2))) (error "Context expects 2 values" - _g84180_))) - (let ((_%target6548365564%_ + _g84243_))) + (let ((_%target6554665627%_ (let () (declare (not safe)) - (##vector-ref - _g84179_ + (##values-ref + _g84242_ 0))) - (_%tl6548565567%_ + (_%tl6554865630%_ (let () (declare (not safe)) - (##vector-ref - _g84179_ + (##values-ref + _g84242_ 1)))) (if (gx#stx-null? - _%tl6548565567%_) - (letrec ((_%loop6548665570%_ - (lambda (_%hd6548465574%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6549065577%_) - (if (gx#stx-pair? _%hd6548465574%_) - (let ((_%e6548765580%_ - (gx#syntax-e _%hd6548465574%_))) - (let ((_%lp-hd6548865584%_ + _%tl6554865630%_) + (letrec ((_%loop6554965633%_ + (lambda (_%hd6554765637%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6555365640%_) + (if (gx#stx-pair? _%hd6554765637%_) + (let ((_%e6555065643%_ + (gx#syntax-e _%hd6554765637%_))) + (let ((_%lp-hd6555165647%_ (let () (declare (not safe)) - (##car _%e6548765580%_))) - (_%lp-tl6548965587%_ + (##car _%e6555065643%_))) + (_%lp-tl6555265650%_ (let () (declare (not safe)) - (##cdr _%e6548765580%_)))) - (_%loop6548665570%_ - _%lp-tl6548965587%_ - (cons _%lp-hd6548865584%_ - _%body6549065577%_)))) - (let ((_%body6549165590%_ - (reverse _%body6549065577%_))) - (if (gx#stx-null? _%tl6548265561%_) - ((lambda (_%L65594%_ - _%L65596%_ - _%L65597%_ - _%L65598%_ - _%L65599%_ - _%L65600%_) + (##cdr _%e6555065643%_)))) + (_%loop6554965633%_ + _%lp-tl6555265650%_ + (cons _%lp-hd6555165647%_ + _%body6555365640%_)))) + (let ((_%body6555465653%_ + (reverse _%body6555365640%_))) + (if (gx#stx-null? _%tl6554565624%_) + ((lambda (_%L65657%_ + _%L65659%_ + _%L65660%_ + _%L65661%_ + _%L65662%_ + _%L65663%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65600%_ _%L65599%_) + (cons (cons _%L65663%_ _%L65662%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65598%_ + (cons (cons _%L65661%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65597%_ (cons '#f '()))) + (cons _%L65660%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L65596%_ '())) + (cons _%L65659%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65598%_ - (foldr (lambda (_%g6563165634%_ + (cons _%L65661%_ + (foldr (lambda (_%g6569465697%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6563265637%_) - (cons _%g6563165634%_ _%g6563265637%_)) + _%g6569565700%_) + (cons _%g6569465697%_ _%g6569565700%_)) '() - _%L65594%_))) + _%L65657%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64543%_))) - _%body6549165590%_ - _%hd6547865548%_ - _%hd6547565538%_ - _%hd6547265528%_ - _%hd6546965518%_ - _%hd6546665508%_) - (_%g6545765497%_ _%g6545865501%_))))))) - (_%loop6548665570%_ _%target6548365564%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6545765497%_ - _%g6545865501%_))))) - (_%g6545765497%_ _%g6545865501%_)))) - (_%g6545765497%_ _%g6545865501%_)))) - (_%g6545765497%_ _%g6545865501%_)))) - (_%g6545765497%_ _%g6545865501%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6545765497%_ - _%g6545865501%_)))) - (_%g6545765497%_ _%g6545865501%_)))) - (_%g6545765497%_ _%g6545865501%_))))) - (_%g6545665640%_ - (list _%id65451%_ + (gx#stx-source _%stx64606%_))) + _%body6555465653%_ + _%hd6554165611%_ + _%hd6553865601%_ + _%hd6553565591%_ + _%hd6553265581%_ + _%hd6552965571%_) + (_%g6552065560%_ _%g6552165564%_))))))) + (_%loop6554965633%_ _%target6554665627%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6552065560%_ + _%g6552165564%_))))) + (_%g6552065560%_ _%g6552165564%_)))) + (_%g6552065560%_ _%g6552165564%_)))) + (_%g6552065560%_ _%g6552165564%_)))) + (_%g6552065560%_ _%g6552165564%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6552065560%_ + _%g6552165564%_)))) + (_%g6552065560%_ _%g6552165564%_)))) + (_%g6552065560%_ _%g6552165564%_))))) + (_%g6551965703%_ + (list _%id65514%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65453%_)) - _%signature65453%_ - _%return65454%_ + _%signature65516%_)) + _%signature65516%_ + _%return65517%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64543%_ - _%return65454%_)) - _%body65455%_))))) - (_%make-checked-def64549%_ - (lambda (_%id65232%_ - _%unchecked-id65234%_ - _%signature65235%_ - _%return65236%_) - (let* ((_%g6523865282%_ - (lambda (_%g6523965278%_) + _%stx64606%_ + _%return65517%_)) + _%body65518%_))))) + (_%make-checked-def64612%_ + (lambda (_%id65295%_ + _%unchecked-id65297%_ + _%signature65298%_ + _%return65299%_) + (let* ((_%g6530165345%_ + (lambda (_%g6530265341%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6523965278%_))) - (_%g6523765447%_ - (lambda (_%g6523965286%_) - (if (gx#stx-pair? _%g6523965286%_) - (let ((_%e6524765289%_ - (gx#syntax-e _%g6523965286%_))) - (let ((_%hd6524865293%_ + _%g6530265341%_))) + (_%g6530065510%_ + (lambda (_%g6530265349%_) + (if (gx#stx-pair? _%g6530265349%_) + (let ((_%e6531065352%_ + (gx#syntax-e _%g6530265349%_))) + (let ((_%hd6531165356%_ (let () (declare (not safe)) - (##car _%e6524765289%_))) - (_%tl6524965296%_ + (##car _%e6531065352%_))) + (_%tl6531265359%_ (let () (declare (not safe)) - (##cdr _%e6524765289%_)))) - (if (gx#stx-pair? _%tl6524965296%_) - (let ((_%e6525065299%_ + (##cdr _%e6531065352%_)))) + (if (gx#stx-pair? _%tl6531265359%_) + (let ((_%e6531365362%_ (gx#syntax-e - _%tl6524965296%_))) - (let ((_%hd6525165303%_ + _%tl6531265359%_))) + (let ((_%hd6531465366%_ (let () (declare (not safe)) - (##car _%e6525065299%_))) - (_%tl6525265306%_ + (##car _%e6531365362%_))) + (_%tl6531565369%_ (let () (declare (not safe)) - (##cdr _%e6525065299%_)))) + (##cdr _%e6531365362%_)))) (if (gx#stx-pair? - _%tl6525265306%_) - (let ((_%e6525365309%_ + _%tl6531565369%_) + (let ((_%e6531665372%_ (gx#syntax-e - _%tl6525265306%_))) - (let ((_%hd6525465313%_ + _%tl6531565369%_))) + (let ((_%hd6531765376%_ (let () (declare (not safe)) - (##car _%e6525365309%_))) - (_%tl6525565316%_ + (##car _%e6531665372%_))) + (_%tl6531865379%_ (let () (declare (not safe)) - (##cdr _%e6525365309%_)))) + (##cdr _%e6531665372%_)))) (if (gx#stx-pair? - _%tl6525565316%_) - (let ((_%e6525665319%_ + _%tl6531865379%_) + (let ((_%e6531965382%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6525565316%_))) - (let ((_%hd6525765323%_ + (gx#syntax-e _%tl6531865379%_))) + (let ((_%hd6532065386%_ (let () (declare (not safe)) - (##car _%e6525665319%_))) - (_%tl6525865326%_ + (##car _%e6531965382%_))) + (_%tl6532165389%_ (let () (declare (not safe)) - (##cdr _%e6525665319%_)))) - (if (gx#stx-pair/null? _%hd6525765323%_) - (let ((_g84181_ - (gx#syntax-split-splice _%hd6525765323%_ '0))) + (##cdr _%e6531965382%_)))) + (if (gx#stx-pair/null? _%hd6532065386%_) + (let ((_g84244_ + (gx#syntax-split-splice _%hd6532065386%_ '0))) (begin - (let ((_g84182_ + (let ((_g84245_ (let () (declare (not safe)) - (if (##values? _g84181_) - (##vector-length _g84181_) + (if (##values? _g84244_) + (##values-length _g84244_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84182_ 2))) + (##fx= _g84245_ 2))) (error "Context expects 2 values" - _g84182_))) - (let ((_%target6525965329%_ + _g84245_))) + (let ((_%target6532265392%_ (let () (declare (not safe)) - (##vector-ref _g84181_ 0))) - (_%tl6526165332%_ + (##values-ref _g84244_ 0))) + (_%tl6532465395%_ (let () (declare (not safe)) - (##vector-ref _g84181_ 1)))) - (if (gx#stx-null? _%tl6526165332%_) - (letrec ((_%loop6526265335%_ - (lambda (_%hd6526065339%_ - _%out6526665342%_) + (##values-ref _g84244_ 1)))) + (if (gx#stx-null? _%tl6532465395%_) + (letrec ((_%loop6532565398%_ + (lambda (_%hd6532365402%_ + _%out6532965405%_) (if (gx#stx-pair? - _%hd6526065339%_) - (let ((_%e6526365345%_ + _%hd6532365402%_) + (let ((_%e6532665408%_ (gx#syntax-e - _%hd6526065339%_))) - (let ((_%lp-hd6526465349%_ + _%hd6532365402%_))) + (let ((_%lp-hd6532765412%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6526365345%_))) - (_%lp-tl6526565352%_ - (let () (declare (not safe)) (##cdr _%e6526365345%_)))) - (_%loop6526265335%_ - _%lp-tl6526565352%_ - (cons _%lp-hd6526465349%_ _%out6526665342%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%out6526765355%_ - (reverse _%out6526665342%_))) + (##car _%e6532665408%_))) + (_%lp-tl6532865415%_ + (let () (declare (not safe)) (##cdr _%e6532665408%_)))) + (_%loop6532565398%_ + _%lp-tl6532865415%_ + (cons _%lp-hd6532765412%_ _%out6532965405%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%out6533065418%_ + (reverse _%out6532965405%_))) (if (gx#stx-pair? - _%tl6525865326%_) - (let ((_%e6526865359%_ + _%tl6532165389%_) + (let ((_%e6533165422%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6525865326%_))) - (let ((_%hd6526965363%_ + (gx#syntax-e _%tl6532165389%_))) + (let ((_%hd6533265426%_ (let () (declare (not safe)) - (##car _%e6526865359%_))) - (_%tl6527065366%_ + (##car _%e6533165422%_))) + (_%tl6533365429%_ (let () (declare (not safe)) - (##cdr _%e6526865359%_)))) - (if (gx#stx-pair? _%tl6527065366%_) - (let ((_%e6527165369%_ - (gx#syntax-e _%tl6527065366%_))) - (let ((_%hd6527265373%_ + (##cdr _%e6533165422%_)))) + (if (gx#stx-pair? _%tl6533365429%_) + (let ((_%e6533465432%_ + (gx#syntax-e _%tl6533365429%_))) + (let ((_%hd6533565436%_ (let () (declare (not safe)) - (##car _%e6527165369%_))) - (_%tl6527365376%_ + (##car _%e6533465432%_))) + (_%tl6533665439%_ (let () (declare (not safe)) - (##cdr _%e6527165369%_)))) - (if (gx#stx-pair? _%tl6527365376%_) - (let ((_%e6527465379%_ - (gx#syntax-e _%tl6527365376%_))) - (let ((_%hd6527565383%_ + (##cdr _%e6533465432%_)))) + (if (gx#stx-pair? _%tl6533665439%_) + (let ((_%e6533765442%_ + (gx#syntax-e _%tl6533665439%_))) + (let ((_%hd6533865446%_ (let () (declare (not safe)) - (##car _%e6527465379%_))) - (_%tl6527665386%_ + (##car _%e6533765442%_))) + (_%tl6533965449%_ (let () (declare (not safe)) - (##cdr _%e6527465379%_)))) - (if (gx#stx-null? _%tl6527665386%_) - ((lambda (_%L65389%_ - _%L65391%_ - _%L65392%_ - _%L65393%_ - _%L65394%_ - _%L65395%_ - _%L65396%_) - (if (gx#stx-list? _%L65392%_) + (##cdr _%e6533765442%_)))) + (if (gx#stx-null? _%tl6533965449%_) + ((lambda (_%L65452%_ + _%L65454%_ + _%L65455%_ + _%L65456%_ + _%L65457%_ + _%L65458%_ + _%L65459%_) + (if (gx#stx-list? _%L65455%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65396%_ + (cons (cons _%L65459%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65394%_) + _%L65457%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65392%_ - (cons _%L65391%_ - (cons _%L65395%_ '()))) + (cons (cons _%L65455%_ + (cons _%L65454%_ + (cons _%L65458%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -828,36 +828,36 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65389%_ '())) + (cons _%L65452%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65392%_ - (cons (cons _%L65395%_ - (foldr (lambda (_%g6543065433%_ - _%g6543165436%_) - (cons _%g6543065433%_ - _%g6543165436%_)) + (cons _%L65455%_ + (cons (cons _%L65458%_ + (foldr (lambda (_%g6549365496%_ + _%g6549465499%_) + (cons _%g6549365496%_ + _%g6549465499%_)) '() - _%L65393%_)) + _%L65456%_)) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx64543%_)) + (gx#stx-source _%stx64606%_)) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65396%_ + (cons (cons _%L65459%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L65394%_) + _%L65457%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L65392%_ - (cons _%L65391%_ - (cons _%L65395%_ '()))) + (cons (cons _%L65455%_ + (cons _%L65454%_ + (cons _%L65458%_ '()))) (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -865,17 +865,17 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L65389%_ '())) + (cons _%L65452%_ '())) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L65392%_ + (cons _%L65455%_ (cons (cons (gx#datum->syntax '#f '##apply) - (cons _%L65395%_ - (foldr (lambda (_%g6543865441%_ + (cons _%L65458%_ + (foldr (lambda (_%g6550165504%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6543965444%_) - (cons _%g6543865441%_ _%g6543965444%_)) + _%g6550265507%_) + (cons _%g6550165504%_ _%g6550265507%_)) '() - _%L65393%_))) + _%L65456%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) @@ -884,2311 +884,2311 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx64543%_)))) - _%hd6527565383%_ - _%hd6527265373%_ - _%hd6526965363%_ - _%out6526765355%_ - _%hd6525465313%_ - _%hd6525165303%_ - _%hd6524865293%_) - (_%g6523865282%_ _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6526265335%_ - _%target6525965329%_ + _%stx64606%_)))) + _%hd6533865446%_ + _%hd6533565436%_ + _%hd6533265426%_ + _%out6533065418%_ + _%hd6531765376%_ + _%hd6531465366%_ + _%hd6531165356%_) + (_%g6530165345%_ _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6532565398%_ + _%target6532265392%_ '())) - (_%g6523865282%_ _%g6523965286%_))))) - (_%g6523865282%_ _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6523865282%_ - _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_)))) - (_%g6523865282%_ _%g6523965286%_))))) - (_%g6523765447%_ - (list _%id65232%_ - _%unchecked-id65234%_ + (_%g6530165345%_ _%g6530265349%_))))) + (_%g6530165345%_ _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6530165345%_ + _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_)))) + (_%g6530165345%_ _%g6530265349%_))))) + (_%g6530065510%_ + (list _%id65295%_ + _%unchecked-id65297%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65235%_)) + _%signature65298%_)) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-out| - _%signature65235%_)) - _%signature65235%_ - _%return65236%_ + _%signature65298%_)) + _%signature65298%_ + _%return65299%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx64543%_ - _%return65236%_))))))) - (_%make-unchecked-def64550%_ - (lambda (_%unchecked-id65057%_ - _%signature65059%_ - _%return65060%_ - _%body65061%_) - (let* ((_%g6506365099%_ - (lambda (_%g6506465095%_) + _%stx64606%_ + _%return65299%_))))))) + (_%make-unchecked-def64613%_ + (lambda (_%unchecked-id65120%_ + _%signature65122%_ + _%return65123%_ + _%body65124%_) + (let* ((_%g6512665162%_ + (lambda (_%g6512765158%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6506465095%_))) - (_%g6506265228%_ - (lambda (_%g6506465103%_) - (if (gx#stx-pair? _%g6506465103%_) - (let ((_%e6507065106%_ - (gx#syntax-e _%g6506465103%_))) - (let ((_%hd6507165110%_ + _%g6512765158%_))) + (_%g6512565291%_ + (lambda (_%g6512765166%_) + (if (gx#stx-pair? _%g6512765166%_) + (let ((_%e6513365169%_ + (gx#syntax-e _%g6512765166%_))) + (let ((_%hd6513465173%_ (let () (declare (not safe)) - (##car _%e6507065106%_))) - (_%tl6507265113%_ + (##car _%e6513365169%_))) + (_%tl6513565176%_ (let () (declare (not safe)) - (##cdr _%e6507065106%_)))) - (if (gx#stx-pair? _%tl6507265113%_) - (let ((_%e6507365116%_ + (##cdr _%e6513365169%_)))) + (if (gx#stx-pair? _%tl6513565176%_) + (let ((_%e6513665179%_ (gx#syntax-e - _%tl6507265113%_))) - (let ((_%hd6507465120%_ + _%tl6513565176%_))) + (let ((_%hd6513765183%_ (let () (declare (not safe)) - (##car _%e6507365116%_))) - (_%tl6507565123%_ + (##car _%e6513665179%_))) + (_%tl6513865186%_ (let () (declare (not safe)) - (##cdr _%e6507365116%_)))) + (##cdr _%e6513665179%_)))) (if (gx#stx-pair? - _%tl6507565123%_) - (let ((_%e6507665126%_ + _%tl6513865186%_) + (let ((_%e6513965189%_ (gx#syntax-e - _%tl6507565123%_))) - (let ((_%hd6507765130%_ + _%tl6513865186%_))) + (let ((_%hd6514065193%_ (let () (declare (not safe)) - (##car _%e6507665126%_))) - (_%tl6507865133%_ + (##car _%e6513965189%_))) + (_%tl6514165196%_ (let () (declare (not safe)) - (##cdr _%e6507665126%_)))) + (##cdr _%e6513965189%_)))) (if (gx#stx-pair? - _%tl6507865133%_) - (let ((_%e6507965136%_ + _%tl6514165196%_) + (let ((_%e6514265199%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6507865133%_))) - (let ((_%hd6508065140%_ + (gx#syntax-e _%tl6514165196%_))) + (let ((_%hd6514365203%_ (let () (declare (not safe)) - (##car _%e6507965136%_))) - (_%tl6508165143%_ + (##car _%e6514265199%_))) + (_%tl6514465206%_ (let () (declare (not safe)) - (##cdr _%e6507965136%_)))) - (if (gx#stx-pair? _%tl6508165143%_) - (let ((_%e6508265146%_ - (gx#syntax-e _%tl6508165143%_))) - (let ((_%hd6508365150%_ + (##cdr _%e6514265199%_)))) + (if (gx#stx-pair? _%tl6514465206%_) + (let ((_%e6514565209%_ + (gx#syntax-e _%tl6514465206%_))) + (let ((_%hd6514665213%_ (let () (declare (not safe)) - (##car _%e6508265146%_))) - (_%tl6508465153%_ + (##car _%e6514565209%_))) + (_%tl6514765216%_ (let () (declare (not safe)) - (##cdr _%e6508265146%_)))) - (if (gx#stx-pair/null? _%hd6508365150%_) - (let ((_g84183_ + (##cdr _%e6514565209%_)))) + (if (gx#stx-pair/null? _%hd6514665213%_) + (let ((_g84246_ (gx#syntax-split-splice - _%hd6508365150%_ + _%hd6514665213%_ '0))) (begin - (let ((_g84184_ + (let ((_g84247_ (let () (declare (not safe)) - (if (##values? _g84183_) - (##vector-length _g84183_) + (if (##values? _g84246_) + (##values-length _g84246_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84184_ 2))) + (##fx= _g84247_ 2))) (error "Context expects 2 values" - _g84184_))) - (let ((_%target6508565156%_ + _g84247_))) + (let ((_%target6514865219%_ (let () (declare (not safe)) - (##vector-ref _g84183_ 0))) - (_%tl6508765159%_ + (##values-ref _g84246_ 0))) + (_%tl6515065222%_ (let () (declare (not safe)) - (##vector-ref _g84183_ 1)))) - (if (gx#stx-null? _%tl6508765159%_) - (letrec ((_%loop6508865162%_ - (lambda (_%hd6508665166%_ - _%body6509265169%_) + (##values-ref _g84246_ 1)))) + (if (gx#stx-null? _%tl6515065222%_) + (letrec ((_%loop6515165225%_ + (lambda (_%hd6514965229%_ + _%body6515565232%_) (if (gx#stx-pair? - _%hd6508665166%_) - (let ((_%e6508965172%_ + _%hd6514965229%_) + (let ((_%e6515265235%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6508665166%_))) - (let ((_%lp-hd6509065176%_ + (gx#syntax-e _%hd6514965229%_))) + (let ((_%lp-hd6515365239%_ (let () (declare (not safe)) - (##car _%e6508965172%_))) - (_%lp-tl6509165179%_ + (##car _%e6515265235%_))) + (_%lp-tl6515465242%_ (let () (declare (not safe)) - (##cdr _%e6508965172%_)))) - (_%loop6508865162%_ - _%lp-tl6509165179%_ - (cons _%lp-hd6509065176%_ _%body6509265169%_)))) - (let ((_%body6509365182%_ (reverse _%body6509265169%_))) - (if (gx#stx-null? _%tl6508465153%_) - ((lambda (_%L65186%_ - _%L65188%_ - _%L65189%_ - _%L65190%_ - _%L65191%_) + (##cdr _%e6515265235%_)))) + (_%loop6515165225%_ + _%lp-tl6515465242%_ + (cons _%lp-hd6515365239%_ _%body6515565232%_)))) + (let ((_%body6515665245%_ (reverse _%body6515565232%_))) + (if (gx#stx-null? _%tl6514765216%_) + ((lambda (_%L65249%_ + _%L65251%_ + _%L65252%_ + _%L65253%_ + _%L65254%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65191%_ _%L65190%_) + (cons (cons _%L65254%_ _%L65253%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L65188%_ (cons '#f '()))) + (cons _%L65251%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-unchecked-contract) - (cons _%L65189%_ - (foldr (lambda (_%g6521965222%_ - _%g6522065225%_) - (cons _%g6521965222%_ - _%g6522065225%_)) + (cons _%L65252%_ + (foldr (lambda (_%g6528265285%_ + _%g6528365288%_) + (cons _%g6528265285%_ + _%g6528365288%_)) '() - _%L65186%_))) + _%L65249%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx64543%_))) - _%body6509365182%_ - _%hd6508065140%_ - _%hd6507765130%_ - _%hd6507465120%_ - _%hd6507165110%_) - (_%g6506365099%_ _%g6506465103%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6508865162%_ - _%target6508565156%_ + (gx#stx-source _%stx64606%_))) + _%body6515665245%_ + _%hd6514365203%_ + _%hd6514065193%_ + _%hd6513765183%_ + _%hd6513465173%_) + (_%g6512665162%_ _%g6512765166%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6515165225%_ + _%target6514865219%_ '())) - (_%g6506365099%_ - _%g6506465103%_))))) - (_%g6506365099%_ _%g6506465103%_)))) - (_%g6506365099%_ _%g6506465103%_)))) - (_%g6506365099%_ _%g6506465103%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6506365099%_ - _%g6506465103%_)))) - (_%g6506365099%_ _%g6506465103%_)))) - (_%g6506365099%_ _%g6506465103%_))))) - (_%g6506265228%_ - (list _%unchecked-id65057%_ + (_%g6512665162%_ + _%g6512765166%_))))) + (_%g6512665162%_ _%g6512765166%_)))) + (_%g6512665162%_ _%g6512765166%_)))) + (_%g6512665162%_ _%g6512765166%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6512665162%_ + _%g6512765166%_)))) + (_%g6512665162%_ _%g6512765166%_)))) + (_%g6512665162%_ _%g6512765166%_))))) + (_%g6512565291%_ + (list _%unchecked-id65120%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature65059%_)) - _%signature65059%_ - _%return65060%_ - _%body65061%_)))))) - (let* ((_%__stx8215682157%_ _%stx64543%_) - (_%g6455564647%_ + _%signature65122%_)) + _%signature65122%_ + _%return65123%_ + _%body65124%_)))))) + (let* ((_%__stx8221982220%_ _%stx64606%_) + (_%g6461864710%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8215682157%_)))) - (let ((_%__kont8215982160%_ - (lambda (_%L65008%_ _%L65010%_ _%L65011%_ _%L65012%_) + _%__stx8221982220%_)))) + (let ((_%__kont8222282223%_ + (lambda (_%L65071%_ _%L65073%_ _%L65074%_ _%L65075%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L65011%_) - (_%make-definition64546%_ - _%L65012%_ - _%L65011%_ - _%L65010%_ - (foldr (lambda (_%g6503665039%_ _%g6503765042%_) - (cons _%g6503665039%_ _%g6503765042%_)) + _%L65074%_) + (_%make-definition64609%_ + _%L65075%_ + _%L65074%_ + _%L65073%_ + (foldr (lambda (_%g6509965102%_ _%g6510065105%_) + (cons _%g6509965102%_ _%g6510065105%_)) '() - _%L65008%_)) + _%L65071%_)) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L65012%_ _%L65011%_) + (cons (cons _%L65075%_ _%L65074%_) (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L65010%_ + (cons _%L65073%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6504465047%_ _%g6504565050%_) - (cons _%g6504465047%_ _%g6504565050%_)) + (foldr (lambda (_%g6510765110%_ _%g6510865113%_) + (cons _%g6510765110%_ _%g6510865113%_)) '() - _%L65008%_))) + _%L65071%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8216382164%_ - (lambda (_%L64882%_ _%L64884%_ _%L64885%_) + (_%__kont8222682227%_ + (lambda (_%L64945%_ _%L64947%_ _%L64948%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L64884%_) + _%L64947%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64885%_ _%L64884%_) + (cons (cons _%L64948%_ _%L64947%_) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6490464907%_ + (foldr (lambda (_%g6496764970%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6490564910%_) - (cons _%g6490464907%_ _%g6490564910%_)) + _%g6496864973%_) + (cons _%g6496764970%_ _%g6496864973%_)) '() - _%L64882%_))))) + _%L64945%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L64885%_ _%L64884%_) - (foldr (lambda (_%g6491264915%_ - _%g6491364918%_) - (cons _%g6491264915%_ - _%g6491364918%_)) + (cons (cons _%L64948%_ _%L64947%_) + (foldr (lambda (_%g6497564978%_ + _%g6497664981%_) + (cons _%g6497564978%_ + _%g6497664981%_)) '() - _%L64882%_)))))) - (_%__kont8216782168%_ - (lambda (_%L64780%_ _%L64782%_ _%L64783%_ _%L64784%_) + _%L64945%_)))))) + (_%__kont8223082231%_ + (lambda (_%L64843%_ _%L64845%_ _%L64846%_ _%L64847%_) (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L64784%_ _%L64783%_) + (cons (cons _%L64847%_ _%L64846%_) (cons (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L64782%_ - (foldr (lambda (_%g6480664809%_ + (cons _%L64845%_ + (foldr (lambda (_%g6486964872%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6480764812%_) - (cons _%g6480664809%_ _%g6480764812%_)) + _%g6487064875%_) + (cons _%g6486964872%_ _%g6487064875%_)) '() - _%L64780%_))) + _%L64843%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8217182172%_ - (lambda (_%L64684%_ _%L64686%_) + (_%__kont8223482235%_ + (lambda (_%L64747%_ _%L64749%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L64686%_ (cons _%L64684%_ '())))))) - (let* ((_%__match8229382294%_ - (lambda (_%e6463364654%_ - _%hd6463464658%_ - _%tl6463564661%_ - _%e6463664664%_ - _%hd6463764668%_ - _%tl6463864671%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) - (let ((_%L64684%_ _%hd6464064678%_) - (_%L64686%_ _%hd6463764668%_)) - (if (gx#identifier? _%L64686%_) - (_%__kont8217182172%_ _%L64684%_ _%L64686%_) + (cons _%L64749%_ (cons _%L64747%_ '())))))) + (let* ((_%__match8235682357%_ + (lambda (_%e6469664717%_ + _%hd6469764721%_ + _%tl6469864724%_ + _%e6469964727%_ + _%hd6470064731%_ + _%tl6470164734%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) + (let ((_%L64747%_ _%hd6470364741%_) + (_%L64749%_ _%hd6470064731%_)) + (if (gx#identifier? _%L64749%_) + (_%__kont8223482235%_ _%L64747%_ _%L64749%_) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (_%__match8227382274%_ - (lambda (_%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6461664730%_ - _%hd6461764734%_ - _%tl6461864737%_ - _%e6461964740%_ - _%hd6462064744%_ - _%tl6462164747%_ - _%__splice8216982170%_ - _%target6462264750%_ - _%tl6462464753%_) - (letrec ((_%loop6462564756%_ - (lambda (_%hd6462364760%_ _%body6462964763%_) - (if (gx#stx-pair? _%hd6462364760%_) - (let ((_%e6462664766%_ - (gx#syntax-e _%hd6462364760%_))) - (let ((_%lp-tl6462864773%_ + (_%g6461864710%_)))))) + (_%__match8233682337%_ + (lambda (_%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6467964793%_ + _%hd6468064797%_ + _%tl6468164800%_ + _%e6468264803%_ + _%hd6468364807%_ + _%tl6468464810%_ + _%__splice8223282233%_ + _%target6468564813%_ + _%tl6468764816%_) + (letrec ((_%loop6468864819%_ + (lambda (_%hd6468664823%_ _%body6469264826%_) + (if (gx#stx-pair? _%hd6468664823%_) + (let ((_%e6468964829%_ + (gx#syntax-e _%hd6468664823%_))) + (let ((_%lp-tl6469164836%_ (let () (declare (not safe)) - (##cdr _%e6462664766%_))) - (_%lp-hd6462764770%_ + (##cdr _%e6468964829%_))) + (_%lp-hd6469064833%_ (let () (declare (not safe)) - (##car _%e6462664766%_)))) - (_%loop6462564756%_ - _%lp-tl6462864773%_ - (cons _%lp-hd6462764770%_ - _%body6462964763%_)))) - (let ((_%body6463064776%_ - (reverse _%body6462964763%_))) - (_%__kont8216782168%_ - _%body6463064776%_ - _%tl6461864737%_ - _%tl6462164747%_ - _%hd6462064744%_)))))) - (_%loop6462564756%_ _%target6462264750%_ '())))) - (_%__match8225982260%_ - (lambda (_%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6461664730%_ - _%hd6461764734%_ - _%tl6461864737%_) - (if (gx#stx-pair? _%hd6461764734%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6461764734%_))) - (let ((_%tl6462164747%_ + (##car _%e6468964829%_)))) + (_%loop6468864819%_ + _%lp-tl6469164836%_ + (cons _%lp-hd6469064833%_ + _%body6469264826%_)))) + (let ((_%body6469364839%_ + (reverse _%body6469264826%_))) + (_%__kont8223082231%_ + _%body6469364839%_ + _%tl6468164800%_ + _%tl6468464810%_ + _%hd6468364807%_)))))) + (_%loop6468864819%_ _%target6468564813%_ '())))) + (_%__match8232282323%_ + (lambda (_%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6467964793%_ + _%hd6468064797%_ + _%tl6468164800%_) + (if (gx#stx-pair? _%hd6468064797%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6468064797%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-pair/null? _%tl6461564727%_) - (let ((_%__splice8216982170%_ + (##car _%e6468264803%_)))) + (if (gx#stx-pair/null? _%tl6467864790%_) + (let ((_%__splice8223282233%_ (gx#syntax-split-splice - _%tl6461564727%_ + _%tl6467864790%_ '0))) - (let ((_%tl6462464753%_ + (let ((_%tl6468764816%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216982170%_ + _%__splice8223282233%_ '1))) - (_%target6462264750%_ + (_%target6468564813%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216982170%_ + _%__splice8223282233%_ '0)))) - (if (gx#stx-null? _%tl6462464753%_) - (_%__match8227382274%_ - _%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6461664730%_ - _%hd6461764734%_ - _%tl6461864737%_ - _%e6461964740%_ - _%hd6462064744%_ - _%tl6462164747%_ - _%__splice8216982170%_ - _%target6462264750%_ - _%tl6462464753%_) - (if (gx#stx-pair? _%tl6461564727%_) - (let ((_%e6463964674%_ + (if (gx#stx-null? _%tl6468764816%_) + (_%__match8233682337%_ + _%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6467964793%_ + _%hd6468064797%_ + _%tl6468164800%_ + _%e6468264803%_ + _%hd6468364807%_ + _%tl6468464810%_ + _%__splice8223282233%_ + _%target6468564813%_ + _%tl6468764816%_) + (if (gx#stx-pair? _%tl6467864790%_) + (let ((_%e6470264737%_ (gx#syntax-e - _%tl6461564727%_))) - (let ((_%tl6464164681%_ + _%tl6467864790%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) + (##car _%e6470264737%_)))) (if (gx#stx-null? - _%tl6464164681%_) - (_%__match8229382294%_ - _%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + _%tl6470464744%_) + (_%__match8235682357%_ + _%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (if (gx#stx-pair? _%tl6461564727%_) - (let ((_%e6463964674%_ - (gx#syntax-e _%tl6461564727%_))) - (let ((_%tl6464164681%_ + (_%g6461864710%_)))))) + (if (gx#stx-pair? _%tl6467864790%_) + (let ((_%e6470264737%_ + (gx#syntax-e _%tl6467864790%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) - (if (gx#stx-null? _%tl6464164681%_) - (_%__match8229382294%_ - _%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + (##car _%e6470264737%_)))) + (if (gx#stx-null? _%tl6470464744%_) + (_%__match8235682357%_ + _%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (if (gx#stx-pair? _%tl6461564727%_) - (let ((_%e6463964674%_ - (gx#syntax-e _%tl6461564727%_))) - (let ((_%tl6464164681%_ + (_%g6461864710%_)))))) + (if (gx#stx-pair? _%tl6467864790%_) + (let ((_%e6470264737%_ + (gx#syntax-e _%tl6467864790%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) - (if (gx#stx-null? _%tl6464164681%_) - (_%__match8229382294%_ - _%e6461064710%_ - _%hd6461164714%_ - _%tl6461264717%_ - _%e6461364720%_ - _%hd6461464724%_ - _%tl6461564727%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + (##car _%e6470264737%_)))) + (if (gx#stx-null? _%tl6470464744%_) + (_%__match8235682357%_ + _%e6467364773%_ + _%hd6467464777%_ + _%tl6467564780%_ + _%e6467664783%_ + _%hd6467764787%_ + _%tl6467864790%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (_%__match8224182242%_ - (lambda (_%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6459464842%_ - _%hd6459564846%_ - _%tl6459664849%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (letrec ((_%loop6460064858%_ - (lambda (_%hd6459864862%_ _%body6460464865%_) - (if (gx#stx-pair? _%hd6459864862%_) - (let ((_%e6460164868%_ - (gx#syntax-e _%hd6459864862%_))) - (let ((_%lp-tl6460364875%_ + (_%g6461864710%_)))))) + (_%__match8230482305%_ + (lambda (_%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6465764905%_ + _%hd6465864909%_ + _%tl6465964912%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (letrec ((_%loop6466364921%_ + (lambda (_%hd6466164925%_ _%body6466764928%_) + (if (gx#stx-pair? _%hd6466164925%_) + (let ((_%e6466464931%_ + (gx#syntax-e _%hd6466164925%_))) + (let ((_%lp-tl6466664938%_ (let () (declare (not safe)) - (##cdr _%e6460164868%_))) - (_%lp-hd6460264872%_ + (##cdr _%e6466464931%_))) + (_%lp-hd6466564935%_ (let () (declare (not safe)) - (##car _%e6460164868%_)))) - (_%loop6460064858%_ - _%lp-tl6460364875%_ - (cons _%lp-hd6460264872%_ - _%body6460464865%_)))) - (let ((_%body6460564878%_ - (reverse _%body6460464865%_))) - (let ((_%L64882%_ _%body6460564878%_) - (_%L64884%_ _%tl6459664849%_) - (_%L64885%_ _%hd6459564846%_)) - (if (gx#identifier? _%L64885%_) - (_%__kont8216382164%_ - _%L64882%_ - _%L64884%_ - _%L64885%_) - (_%__match8225982260%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6459464842%_ - _%hd6459564846%_ - _%tl6459664849%_)))))))) - (_%loop6460064858%_ _%target6459764852%_ '())))) - (_%__match8223382234%_ - (lambda (_%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6459464842%_ - _%hd6459564846%_ - _%tl6459664849%_) - (if (gx#stx-pair/null? _%tl6459364839%_) - (let ((_%__splice8216582166%_ + (##car _%e6466464931%_)))) + (_%loop6466364921%_ + _%lp-tl6466664938%_ + (cons _%lp-hd6466564935%_ + _%body6466764928%_)))) + (let ((_%body6466864941%_ + (reverse _%body6466764928%_))) + (let ((_%L64945%_ _%body6466864941%_) + (_%L64947%_ _%tl6465964912%_) + (_%L64948%_ _%hd6465864909%_)) + (if (gx#identifier? _%L64948%_) + (_%__kont8222682227%_ + _%L64945%_ + _%L64947%_ + _%L64948%_) + (_%__match8232282323%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6465764905%_ + _%hd6465864909%_ + _%tl6465964912%_)))))))) + (_%loop6466364921%_ _%target6466064915%_ '())))) + (_%__match8229682297%_ + (lambda (_%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6465764905%_ + _%hd6465864909%_ + _%tl6465964912%_) + (if (gx#stx-pair/null? _%tl6465664902%_) + (let ((_%__splice8222882229%_ (gx#syntax-split-splice - _%tl6459364839%_ + _%tl6465664902%_ '0))) - (let ((_%tl6459964855%_ + (let ((_%tl6466264918%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '1))) - (_%target6459764852%_ + (_%target6466064915%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6459464842%_ - _%hd6459564846%_ - _%tl6459664849%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (if (gx#stx-pair? _%hd6459564846%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6459564846%_))) - (let ((_%tl6462164747%_ + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6465764905%_ + _%hd6465864909%_ + _%tl6465964912%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (if (gx#stx-pair? _%hd6465864909%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6465864909%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-pair? _%tl6459364839%_) - (let ((_%e6463964674%_ + (##car _%e6468264803%_)))) + (if (gx#stx-pair? _%tl6465664902%_) + (let ((_%e6470264737%_ (gx#syntax-e - _%tl6459364839%_))) - (let ((_%tl6464164681%_ + _%tl6465664902%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) + (##car _%e6470264737%_)))) (if (gx#stx-null? - _%tl6464164681%_) - (_%__match8229382294%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + _%tl6470464744%_) + (_%__match8235682357%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-pair? _%tl6459364839%_) - (let ((_%e6463964674%_ + (_%g6461864710%_))))) + (if (gx#stx-pair? _%tl6465664902%_) + (let ((_%e6470264737%_ (gx#syntax-e - _%tl6459364839%_))) - (let ((_%tl6464164681%_ + _%tl6465664902%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) + (##car _%e6470264737%_)))) (if (gx#stx-null? - _%tl6464164681%_) - (_%__match8229382294%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + _%tl6470464744%_) + (_%__match8235682357%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair? _%hd6459564846%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6459564846%_))) - (let ((_%tl6462164747%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair? _%hd6465864909%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6465864909%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-pair? _%tl6459364839%_) - (let ((_%e6463964674%_ - (gx#syntax-e _%tl6459364839%_))) - (let ((_%tl6464164681%_ + (##car _%e6468264803%_)))) + (if (gx#stx-pair? _%tl6465664902%_) + (let ((_%e6470264737%_ + (gx#syntax-e _%tl6465664902%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) - (if (gx#stx-null? _%tl6464164681%_) - (_%__match8229382294%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + (##car _%e6470264737%_)))) + (if (gx#stx-null? _%tl6470464744%_) + (_%__match8235682357%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-pair? _%tl6459364839%_) - (let ((_%e6463964674%_ - (gx#syntax-e _%tl6459364839%_))) - (let ((_%tl6464164681%_ + (_%g6461864710%_))))) + (if (gx#stx-pair? _%tl6465664902%_) + (let ((_%e6470264737%_ + (gx#syntax-e _%tl6465664902%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) - (if (gx#stx-null? _%tl6464164681%_) - (_%__match8229382294%_ - _%e6458864822%_ - _%hd6458964826%_ - _%tl6459064829%_ - _%e6459164832%_ - _%hd6459264836%_ - _%tl6459364839%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + (##car _%e6470264737%_)))) + (if (gx#stx-null? _%tl6470464744%_) + (_%__match8235682357%_ + _%e6465164885%_ + _%hd6465264889%_ + _%tl6465364892%_ + _%e6465464895%_ + _%hd6465564899%_ + _%tl6465664902%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (_%__match8221582216%_ - (lambda (_%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_ - _%e6457364968%_ - _%hd6457464972%_ - _%tl6457564975%_ - _%__splice8216182162%_ - _%target6457664978%_ - _%tl6457864981%_) - (letrec ((_%loop6457964984%_ - (lambda (_%hd6457764988%_ _%body6458364991%_) - (if (gx#stx-pair? _%hd6457764988%_) - (let ((_%e6458064994%_ - (gx#syntax-e _%hd6457764988%_))) - (let ((_%lp-tl6458265001%_ + (_%g6461864710%_))))))) + (_%__match8227882279%_ + (lambda (_%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_ + _%e6463665031%_ + _%hd6463765035%_ + _%tl6463865038%_ + _%__splice8222482225%_ + _%target6463965041%_ + _%tl6464165044%_) + (letrec ((_%loop6464265047%_ + (lambda (_%hd6464065051%_ _%body6464665054%_) + (if (gx#stx-pair? _%hd6464065051%_) + (let ((_%e6464365057%_ + (gx#syntax-e _%hd6464065051%_))) + (let ((_%lp-tl6464565064%_ (let () (declare (not safe)) - (##cdr _%e6458064994%_))) - (_%lp-hd6458164998%_ + (##cdr _%e6464365057%_))) + (_%lp-hd6464465061%_ (let () (declare (not safe)) - (##car _%e6458064994%_)))) - (_%loop6457964984%_ - _%lp-tl6458265001%_ - (cons _%lp-hd6458164998%_ - _%body6458364991%_)))) - (let ((_%body6458465004%_ - (reverse _%body6458364991%_))) - (let ((_%L65008%_ _%body6458465004%_) - (_%L65010%_ _%hd6457464972%_) - (_%L65011%_ _%tl6456964955%_) - (_%L65012%_ _%hd6456864952%_)) - (if (gx#identifier? _%L65012%_) - (_%__kont8215982160%_ - _%L65008%_ - _%L65010%_ - _%L65011%_ - _%L65012%_) - (_%__match8223382234%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_)))))))) - (_%loop6457964984%_ _%target6457664978%_ '()))))) - (if (gx#stx-pair? _%__stx8215682157%_) - (let ((_%e6456164928%_ (gx#syntax-e _%__stx8215682157%_))) - (let ((_%tl6456364935%_ + (##car _%e6464365057%_)))) + (_%loop6464265047%_ + _%lp-tl6464565064%_ + (cons _%lp-hd6464465061%_ + _%body6464665054%_)))) + (let ((_%body6464765067%_ + (reverse _%body6464665054%_))) + (let ((_%L65071%_ _%body6464765067%_) + (_%L65073%_ _%hd6463765035%_) + (_%L65074%_ _%tl6463265018%_) + (_%L65075%_ _%hd6463165015%_)) + (if (gx#identifier? _%L65075%_) + (_%__kont8222282223%_ + _%L65071%_ + _%L65073%_ + _%L65074%_ + _%L65075%_) + (_%__match8229682297%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_)))))))) + (_%loop6464265047%_ _%target6463965041%_ '()))))) + (if (gx#stx-pair? _%__stx8221982220%_) + (let ((_%e6462464991%_ (gx#syntax-e _%__stx8221982220%_))) + (let ((_%tl6462664998%_ (let () (declare (not safe)) - (##cdr _%e6456164928%_))) - (_%hd6456264932%_ + (##cdr _%e6462464991%_))) + (_%hd6462564995%_ (let () (declare (not safe)) - (##car _%e6456164928%_)))) - (if (gx#stx-pair? _%tl6456364935%_) - (let ((_%e6456464938%_ - (gx#syntax-e _%tl6456364935%_))) - (let ((_%tl6456664945%_ + (##car _%e6462464991%_)))) + (if (gx#stx-pair? _%tl6462664998%_) + (let ((_%e6462765001%_ + (gx#syntax-e _%tl6462664998%_))) + (let ((_%tl6462965008%_ (let () (declare (not safe)) - (##cdr _%e6456464938%_))) - (_%hd6456564942%_ + (##cdr _%e6462765001%_))) + (_%hd6462865005%_ (let () (declare (not safe)) - (##car _%e6456464938%_)))) - (if (gx#stx-pair? _%hd6456564942%_) - (let ((_%e6456764948%_ - (gx#syntax-e _%hd6456564942%_))) - (let ((_%tl6456964955%_ + (##car _%e6462765001%_)))) + (if (gx#stx-pair? _%hd6462865005%_) + (let ((_%e6463065011%_ + (gx#syntax-e _%hd6462865005%_))) + (let ((_%tl6463265018%_ (let () (declare (not safe)) - (##cdr _%e6456764948%_))) - (_%hd6456864952%_ + (##cdr _%e6463065011%_))) + (_%hd6463165015%_ (let () (declare (not safe)) - (##car _%e6456764948%_)))) - (if (gx#stx-pair? _%tl6456664945%_) - (let ((_%e6457064958%_ + (##car _%e6463065011%_)))) + (if (gx#stx-pair? _%tl6462965008%_) + (let ((_%e6463365021%_ (gx#syntax-e - _%tl6456664945%_))) - (let ((_%tl6457264965%_ + _%tl6462965008%_))) + (let ((_%tl6463565028%_ (let () (declare (not safe)) - (##cdr _%e6457064958%_))) - (_%hd6457164962%_ + (##cdr _%e6463365021%_))) + (_%hd6463465025%_ (let () (declare (not safe)) - (##car _%e6457064958%_)))) + (##car _%e6463365021%_)))) (if (gx#identifier? - _%hd6457164962%_) + _%hd6463465025%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84185_| - _%hd6457164962%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84248_| + _%hd6463465025%_) (if (gx#stx-pair? - _%tl6457264965%_) - (let ((_%e6457364968%_ + _%tl6463565028%_) + (let ((_%e6463665031%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6457264965%_))) - (let ((_%tl6457564975%_ + (gx#syntax-e _%tl6463565028%_))) + (let ((_%tl6463865038%_ (let () (declare (not safe)) - (##cdr _%e6457364968%_))) - (_%hd6457464972%_ + (##cdr _%e6463665031%_))) + (_%hd6463765035%_ (let () (declare (not safe)) - (##car _%e6457364968%_)))) - (if (gx#stx-pair/null? _%tl6457564975%_) - (let ((_%__splice8216182162%_ + (##car _%e6463665031%_)))) + (if (gx#stx-pair/null? _%tl6463865038%_) + (let ((_%__splice8222482225%_ (gx#syntax-split-splice - _%tl6457564975%_ + _%tl6463865038%_ '0))) - (let ((_%tl6457864981%_ + (let ((_%tl6464165044%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216182162%_ + _%__splice8222482225%_ '1))) - (_%target6457664978%_ + (_%target6463965041%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216182162%_ + _%__splice8222482225%_ '0)))) - (if (gx#stx-null? _%tl6457864981%_) - (_%__match8221582216%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_ - _%e6457364968%_ - _%hd6457464972%_ - _%tl6457564975%_ - _%__splice8216182162%_ - _%target6457664978%_ - _%tl6457864981%_) - (if (gx#stx-pair/null? _%tl6456664945%_) - (let ((_%__splice8216582166%_ + (if (gx#stx-null? _%tl6464165044%_) + (_%__match8227882279%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_ + _%e6463665031%_ + _%hd6463765035%_ + _%tl6463865038%_ + _%__splice8222482225%_ + _%target6463965041%_ + _%tl6464165044%_) + (if (gx#stx-pair/null? _%tl6462965008%_) + (let ((_%__splice8222882229%_ (gx#syntax-split-splice - _%tl6456664945%_ + _%tl6462965008%_ '0))) - (let ((_%tl6459964855%_ + (let ((_%tl6466264918%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '1))) - (_%target6459764852%_ + (_%target6466064915%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) (if (gx#stx-pair? - _%hd6456864952%_) - (let ((_%e6461964740%_ + _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e - _%hd6456864952%_))) - (let ((_%tl6462164747%_ + _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ - (let () (declare (not safe)) (##car _%e6461964740%_)))) - (let () (declare (not safe)) (_%g6455564647%_)))) + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ + (let () (declare (not safe)) (##car _%e6468264803%_)))) + (let () (declare (not safe)) (_%g6461864710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6455564647%_)))))) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ + (_%g6461864710%_)))))) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e - _%hd6456864952%_))) - (let ((_%tl6462164747%_ + _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) + (##car _%e6468264803%_)))) (let () (declare (not safe)) - (_%g6455564647%_)))) + (_%g6461864710%_)))) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair/null? _%tl6456664945%_) - (let ((_%__splice8216582166%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair/null? _%tl6462965008%_) + (let ((_%__splice8222882229%_ (gx#syntax-split-splice - _%tl6456664945%_ + _%tl6462965008%_ '0))) - (let ((_%tl6459964855%_ + (let ((_%tl6466264918%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '1))) - (_%target6459764852%_ + (_%target6466064915%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e - _%hd6456864952%_))) - (let ((_%tl6462164747%_ + _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) + (##car _%e6468264803%_)))) (let () (declare (not safe)) - (_%g6455564647%_)))) + (_%g6461864710%_)))) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (_%g6461864710%_)))))) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) + (##car _%e6468264803%_)))) (let () (declare (not safe)) - (_%g6455564647%_)))) + (_%g6461864710%_)))) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair/null? _%tl6456664945%_) - (let ((_%__splice8216582166%_ - (gx#syntax-split-splice _%tl6456664945%_ '0))) - (let ((_%tl6459964855%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair/null? _%tl6462965008%_) + (let ((_%__splice8222882229%_ + (gx#syntax-split-splice _%tl6462965008%_ '0))) + (let ((_%tl6466264918%_ (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '1))) - (_%target6459764852%_ + (##vector-ref _%__splice8222882229%_ '1))) + (_%target6466064915%_ (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (##vector-ref _%__splice8222882229%_ '0)))) + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (if (gx#stx-pair/null? _%tl6456664945%_) - (let ((_%__splice8216582166%_ - (gx#syntax-split-splice _%tl6456664945%_ '0))) - (let ((_%tl6459964855%_ + (_%g6461864710%_)))))) + (if (gx#stx-pair/null? _%tl6462965008%_) + (let ((_%__splice8222882229%_ + (gx#syntax-split-splice _%tl6462965008%_ '0))) + (let ((_%tl6466264918%_ (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '1))) - (_%target6459764852%_ + (##vector-ref _%__splice8222882229%_ '1))) + (_%target6466064915%_ (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (##vector-ref _%__splice8222882229%_ '0)))) + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) - (let () (declare (not safe)) (_%g6455564647%_)))))) + (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) + (let () (declare (not safe)) (_%g6461864710%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6456664945%_) - (let ((_%__splice8216582166%_ + _%tl6462965008%_) + (let ((_%__splice8222882229%_ (gx#syntax-split-splice - _%tl6456664945%_ + _%tl6462965008%_ '0))) - (let ((_%tl6459964855%_ + (let ((_%tl6466264918%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '1))) - (_%target6459764852%_ + (##vector-ref _%__splice8222882229%_ '1))) + (_%target6466064915%_ (let () (declare (not safe)) - (##vector-ref _%__splice8216582166%_ '0)))) - (if (gx#stx-null? _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (##vector-ref _%__splice8222882229%_ '0)))) + (if (gx#stx-null? _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) + (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair? _%hd6456864952%_) - (let ((_%e6461964740%_ (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair? _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) - (let () (declare (not safe)) (_%g6455564647%_))))) - (if (gx#stx-null? _%tl6457264965%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6457064958%_ - _%hd6457164962%_ - _%tl6457264965%_) - (let () (declare (not safe)) (_%g6455564647%_)))))))) + (##car _%e6468264803%_)))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) + (let () (declare (not safe)) (_%g6461864710%_))))) + (if (gx#stx-null? _%tl6463565028%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463365021%_ + _%hd6463465025%_ + _%tl6463565028%_) + (let () (declare (not safe)) (_%g6461864710%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6456664945%_) - (let ((_%__splice8216582166%_ + _%tl6462965008%_) + (let ((_%__splice8222882229%_ (gx#syntax-split-splice - _%tl6456664945%_ + _%tl6462965008%_ '0))) - (let ((_%tl6459964855%_ + (let ((_%tl6466264918%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '1))) - (_%target6459764852%_ + (_%target6466064915%_ (let () (declare (not safe)) (##vector-ref - _%__splice8216582166%_ + _%__splice8222882229%_ '0)))) (if (gx#stx-null? - _%tl6459964855%_) - (_%__match8224182242%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6456764948%_ - _%hd6456864952%_ - _%tl6456964955%_ - _%__splice8216582166%_ - _%target6459764852%_ - _%tl6459964855%_) + _%tl6466264918%_) + (_%__match8230482305%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6463065011%_ + _%hd6463165015%_ + _%tl6463265018%_ + _%__splice8222882229%_ + _%target6466064915%_ + _%tl6466264918%_) (if (gx#stx-pair? - _%hd6456864952%_) - (let ((_%e6461964740%_ + _%hd6463165015%_) + (let ((_%e6468264803%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6456864952%_))) - (let ((_%tl6462164747%_ + (gx#syntax-e _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ (let () (declare (not safe)) - (##car _%e6461964740%_)))) - (let () (declare (not safe)) (_%g6455564647%_)))) - (let () (declare (not safe)) (_%g6455564647%_)))))) + (##car _%e6468264803%_)))) + (let () (declare (not safe)) (_%g6461864710%_)))) + (let () (declare (not safe)) (_%g6461864710%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%hd6456864952%_) - (let ((_%e6461964740%_ + _%hd6463165015%_) + (let ((_%e6468264803%_ (gx#syntax-e - _%hd6456864952%_))) - (let ((_%tl6462164747%_ + _%hd6463165015%_))) + (let ((_%tl6468464810%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6461964740%_))) - (_%hd6462064744%_ - (let () (declare (not safe)) (##car _%e6461964740%_)))) - (let () (declare (not safe)) (_%g6455564647%_)))) + (##cdr _%e6468264803%_))) + (_%hd6468364807%_ + (let () (declare (not safe)) (##car _%e6468264803%_)))) + (let () (declare (not safe)) (_%g6461864710%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6455564647%_))))))) - (if (gx#stx-pair? _%tl6456664945%_) - (let ((_%e6463964674%_ - (gx#syntax-e _%tl6456664945%_))) - (let ((_%tl6464164681%_ + (_%g6461864710%_))))))) + (if (gx#stx-pair? _%tl6462965008%_) + (let ((_%e6470264737%_ + (gx#syntax-e _%tl6462965008%_))) + (let ((_%tl6470464744%_ (let () (declare (not safe)) - (##cdr _%e6463964674%_))) - (_%hd6464064678%_ + (##cdr _%e6470264737%_))) + (_%hd6470364741%_ (let () (declare (not safe)) - (##car _%e6463964674%_)))) - (if (gx#stx-null? _%tl6464164681%_) - (_%__match8229382294%_ - _%e6456164928%_ - _%hd6456264932%_ - _%tl6456364935%_ - _%e6456464938%_ - _%hd6456564942%_ - _%tl6456664945%_ - _%e6463964674%_ - _%hd6464064678%_ - _%tl6464164681%_) + (##car _%e6470264737%_)))) + (if (gx#stx-null? _%tl6470464744%_) + (_%__match8235682357%_ + _%e6462464991%_ + _%hd6462564995%_ + _%tl6462664998%_ + _%e6462765001%_ + _%hd6462865005%_ + _%tl6462965008%_ + _%e6470264737%_ + _%hd6470364741%_ + _%tl6470464744%_) (let () (declare (not safe)) - (_%g6455564647%_))))) + (_%g6461864710%_))))) (let () (declare (not safe)) - (_%g6455564647%_)))))) - (let () (declare (not safe)) (_%g6455564647%_))))) - (let () (declare (not safe)) (_%g6455564647%_))))))))) + (_%g6461864710%_)))))) + (let () (declare (not safe)) (_%g6461864710%_))))) + (let () (declare (not safe)) (_%g6461864710%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-signature| - (lambda (_%stx65724%_) - (let* ((_%__stx8229682297%_ _%stx65724%_) - (_%g6572865791%_ + (lambda (_%stx65787%_) + (let* ((_%__stx8235982360%_ _%stx65787%_) + (_%g6579165854%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8229682297%_)))) - (let ((_%__kont8229982300%_ - (lambda (_%L66042%_ _%L66044%_) - (let* ((_%g6606966077%_ - (lambda (_%g6607066073%_) + _%__stx8235982360%_)))) + (let ((_%__kont8236282363%_ + (lambda (_%L66105%_ _%L66107%_) + (let* ((_%g6613266140%_ + (lambda (_%g6613366136%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6607066073%_))) - (_%g6606866104%_ - (lambda (_%g6607066081%_) - ((lambda (_%L66084%_) + _%g6613366136%_))) + (_%g6613166167%_ + (lambda (_%g6613366144%_) + ((lambda (_%L66147%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) (cons 'return: - (cons _%L66084%_ '()))) + (cons _%L66147%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6609566098%_ + (foldr (lambda (_%g6615866161%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6609666101%_) - (cons _%g6609566098%_ _%g6609666101%_)) + _%g6615966164%_) + (cons _%g6615866161%_ _%g6615966164%_)) '() - _%L66042%_))) + _%L66105%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6607066081%_)))) - (_%g6606866104%_ + _%g6613366144%_)))) + (_%g6613166167%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx65724%_ - _%L66044%_)))))) - (_%__kont8230382304%_ - (lambda (_%L65878%_ _%L65880%_ _%L65881%_ _%L65882%_) - (let* ((_%g6590865916%_ - (lambda (_%g6590965912%_) + _%stx65787%_ + _%L66107%_)))))) + (_%__kont8236682367%_ + (lambda (_%L65941%_ _%L65943%_ _%L65944%_ _%L65945%_) + (let* ((_%g6597165979%_ + (lambda (_%g6597265975%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6590965912%_))) - (_%g6590765943%_ - (lambda (_%g6590965920%_) - ((lambda (_%L65923%_) + _%g6597265975%_))) + (_%g6597066006%_ + (lambda (_%g6597265983%_) + ((lambda (_%L65986%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type.signature) - _%L65923%_) + _%L65986%_) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6593465937%_ + (foldr (lambda (_%g6599766000%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6593565940%_) - (cons _%g6593465937%_ _%g6593565940%_)) + _%g6599866003%_) + (cons _%g6599766000%_ _%g6599866003%_)) '() - _%L65878%_))) + _%L65941%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g6590965920%_)))) - (_%g6590765943%_ + _%g6597265983%_)))) + (_%g6597066006%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-lambda-signature| - _%stx65724%_ - _%L65882%_ - _%L65881%_ - _%L65880%_))))))) - (let* ((_%__match8239982400%_ - (lambda (_%e6576265798%_ - _%hd6576365802%_ - _%tl6576465805%_ - _%e6576565808%_ - _%hd6576665812%_ - _%tl6576765815%_ - _%e6576865818%_ - _%hd6576965822%_ - _%tl6577065825%_ - _%e6577165828%_ - _%hd6577265832%_ - _%tl6577365835%_ - _%e6577465838%_ - _%hd6577565842%_ - _%tl6577665845%_ - _%__splice8230582306%_ - _%target6577765848%_ - _%tl6577965851%_) - (letrec ((_%loop6578065854%_ - (lambda (_%hd6577865858%_ _%body6578465861%_) - (if (gx#stx-pair? _%hd6577865858%_) - (let ((_%e6578165864%_ - (gx#syntax-e _%hd6577865858%_))) - (let ((_%lp-tl6578365871%_ + _%stx65787%_ + _%L65945%_ + _%L65944%_ + _%L65943%_))))))) + (let* ((_%__match8246282463%_ + (lambda (_%e6582565861%_ + _%hd6582665865%_ + _%tl6582765868%_ + _%e6582865871%_ + _%hd6582965875%_ + _%tl6583065878%_ + _%e6583165881%_ + _%hd6583265885%_ + _%tl6583365888%_ + _%e6583465891%_ + _%hd6583565895%_ + _%tl6583665898%_ + _%e6583765901%_ + _%hd6583865905%_ + _%tl6583965908%_ + _%__splice8236882369%_ + _%target6584065911%_ + _%tl6584265914%_) + (letrec ((_%loop6584365917%_ + (lambda (_%hd6584165921%_ _%body6584765924%_) + (if (gx#stx-pair? _%hd6584165921%_) + (let ((_%e6584465927%_ + (gx#syntax-e _%hd6584165921%_))) + (let ((_%lp-tl6584665934%_ (let () (declare (not safe)) - (##cdr _%e6578165864%_))) - (_%lp-hd6578265868%_ + (##cdr _%e6584465927%_))) + (_%lp-hd6584565931%_ (let () (declare (not safe)) - (##car _%e6578165864%_)))) - (_%loop6578065854%_ - _%lp-tl6578365871%_ - (cons _%lp-hd6578265868%_ - _%body6578465861%_)))) - (let ((_%body6578565874%_ - (reverse _%body6578465861%_))) - (_%__kont8230382304%_ - _%body6578565874%_ - _%hd6577565842%_ - _%hd6577265832%_ - _%hd6576965822%_)))))) - (_%loop6578065854%_ _%target6577765848%_ '())))) - (_%__match8235982360%_ - (lambda (_%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6574165984%_ - _%e6574265988%_ - _%hd6574365992%_ - _%tl6574465995%_ - _%e6574565998%_ - _%hd6574666002%_ - _%tl6574766005%_ - _%e6574866008%_ - _%__splice8230182302%_ - _%target6574966012%_ - _%tl6575166015%_) - (letrec ((_%loop6575266018%_ - (lambda (_%hd6575066022%_ _%body6575666025%_) - (if (gx#stx-pair? _%hd6575066022%_) - (let ((_%e6575366028%_ - (gx#syntax-e _%hd6575066022%_))) - (let ((_%lp-tl6575566035%_ + (##car _%e6584465927%_)))) + (_%loop6584365917%_ + _%lp-tl6584665934%_ + (cons _%lp-hd6584565931%_ + _%body6584765924%_)))) + (let ((_%body6584865937%_ + (reverse _%body6584765924%_))) + (_%__kont8236682367%_ + _%body6584865937%_ + _%hd6583865905%_ + _%hd6583565895%_ + _%hd6583265885%_)))))) + (_%loop6584365917%_ _%target6584065911%_ '())))) + (_%__match8242282423%_ + (lambda (_%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6580466047%_ + _%e6580566051%_ + _%hd6580666055%_ + _%tl6580766058%_ + _%e6580866061%_ + _%hd6580966065%_ + _%tl6581066068%_ + _%e6581166071%_ + _%__splice8236482365%_ + _%target6581266075%_ + _%tl6581466078%_) + (letrec ((_%loop6581566081%_ + (lambda (_%hd6581366085%_ _%body6581966088%_) + (if (gx#stx-pair? _%hd6581366085%_) + (let ((_%e6581666091%_ + (gx#syntax-e _%hd6581366085%_))) + (let ((_%lp-tl6581866098%_ (let () (declare (not safe)) - (##cdr _%e6575366028%_))) - (_%lp-hd6575466032%_ + (##cdr _%e6581666091%_))) + (_%lp-hd6581766095%_ (let () (declare (not safe)) - (##car _%e6575366028%_)))) - (_%loop6575266018%_ - _%lp-tl6575566035%_ - (cons _%lp-hd6575466032%_ - _%body6575666025%_)))) - (let ((_%body6575766038%_ - (reverse _%body6575666025%_))) - (_%__kont8229982300%_ - _%body6575766038%_ - _%hd6574365992%_)))))) - (_%loop6575266018%_ _%target6574966012%_ '()))))) - (if (gx#stx-pair? _%__stx8229682297%_) - (let ((_%e6573265954%_ (gx#syntax-e _%__stx8229682297%_))) - (let ((_%tl6573465961%_ + (##car _%e6581666091%_)))) + (_%loop6581566081%_ + _%lp-tl6581866098%_ + (cons _%lp-hd6581766095%_ + _%body6581966088%_)))) + (let ((_%body6582066101%_ + (reverse _%body6581966088%_))) + (_%__kont8236282363%_ + _%body6582066101%_ + _%hd6580666055%_)))))) + (_%loop6581566081%_ _%target6581266075%_ '()))))) + (if (gx#stx-pair? _%__stx8235982360%_) + (let ((_%e6579566017%_ (gx#syntax-e _%__stx8235982360%_))) + (let ((_%tl6579766024%_ (let () (declare (not safe)) - (##cdr _%e6573265954%_))) - (_%hd6573365958%_ + (##cdr _%e6579566017%_))) + (_%hd6579666021%_ (let () (declare (not safe)) - (##car _%e6573265954%_)))) - (if (gx#stx-pair? _%tl6573465961%_) - (let ((_%e6573565964%_ - (gx#syntax-e _%tl6573465961%_))) - (let ((_%tl6573765971%_ + (##car _%e6579566017%_)))) + (if (gx#stx-pair? _%tl6579766024%_) + (let ((_%e6579866027%_ + (gx#syntax-e _%tl6579766024%_))) + (let ((_%tl6580066034%_ (let () (declare (not safe)) - (##cdr _%e6573565964%_))) - (_%hd6573665968%_ + (##cdr _%e6579866027%_))) + (_%hd6579966031%_ (let () (declare (not safe)) - (##car _%e6573565964%_)))) - (if (gx#stx-pair? _%hd6573665968%_) - (let ((_%e6573865974%_ - (gx#syntax-e _%hd6573665968%_))) - (let ((_%tl6574065981%_ + (##car _%e6579866027%_)))) + (if (gx#stx-pair? _%hd6579966031%_) + (let ((_%e6580166037%_ + (gx#syntax-e _%hd6579966031%_))) + (let ((_%tl6580366044%_ (let () (declare (not safe)) - (##cdr _%e6573865974%_))) - (_%hd6573965978%_ + (##cdr _%e6580166037%_))) + (_%hd6580266041%_ (let () (declare (not safe)) - (##car _%e6573865974%_)))) - (if (gx#stx-datum? _%hd6573965978%_) - (let ((_%e6574165984%_ - (gx#stx-e _%hd6573965978%_))) - (if (equal? _%e6574165984%_ '#f) + (##car _%e6580166037%_)))) + (if (gx#stx-datum? _%hd6580266041%_) + (let ((_%e6580466047%_ + (gx#stx-e _%hd6580266041%_))) + (if (equal? _%e6580466047%_ '#f) (if (gx#stx-pair? - _%tl6574065981%_) - (let ((_%e6574265988%_ + _%tl6580366044%_) + (let ((_%e6580566051%_ (gx#syntax-e - _%tl6574065981%_))) - (let ((_%tl6574465995%_ + _%tl6580366044%_))) + (let ((_%tl6580766058%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6574265988%_))) - (_%hd6574365992%_ - (let () (declare (not safe)) (##car _%e6574265988%_)))) - (if (gx#stx-pair? _%tl6574465995%_) - (let ((_%e6574565998%_ (gx#syntax-e _%tl6574465995%_))) - (let ((_%tl6574766005%_ + (##cdr _%e6580566051%_))) + (_%hd6580666055%_ + (let () (declare (not safe)) (##car _%e6580566051%_)))) + (if (gx#stx-pair? _%tl6580766058%_) + (let ((_%e6580866061%_ (gx#syntax-e _%tl6580766058%_))) + (let ((_%tl6581066068%_ (let () (declare (not safe)) - (##cdr _%e6574565998%_))) - (_%hd6574666002%_ + (##cdr _%e6580866061%_))) + (_%hd6580966065%_ (let () (declare (not safe)) - (##car _%e6574565998%_)))) - (if (gx#stx-datum? _%hd6574666002%_) - (let ((_%e6574866008%_ - (gx#stx-e _%hd6574666002%_))) - (if (equal? _%e6574866008%_ '#f) - (if (gx#stx-null? _%tl6574766005%_) - (if (gx#stx-pair/null? _%tl6573765971%_) - (let ((_%__splice8230182302%_ + (##car _%e6580866061%_)))) + (if (gx#stx-datum? _%hd6580966065%_) + (let ((_%e6581166071%_ + (gx#stx-e _%hd6580966065%_))) + (if (equal? _%e6581166071%_ '#f) + (if (gx#stx-null? _%tl6581066068%_) + (if (gx#stx-pair/null? _%tl6580066034%_) + (let ((_%__splice8236482365%_ (gx#syntax-split-splice - _%tl6573765971%_ + _%tl6580066034%_ '0))) - (let ((_%tl6575166015%_ + (let ((_%tl6581466078%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230182302%_ + _%__splice8236482365%_ '1))) - (_%target6574966012%_ + (_%target6581266075%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230182302%_ + _%__splice8236482365%_ '0)))) (if (gx#stx-null? - _%tl6575166015%_) - (_%__match8235982360%_ - _%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6574165984%_ - _%e6574265988%_ - _%hd6574365992%_ - _%tl6574465995%_ - _%e6574565998%_ - _%hd6574666002%_ - _%tl6574766005%_ - _%e6574866008%_ - _%__splice8230182302%_ - _%target6574966012%_ - _%tl6575166015%_) + _%tl6581466078%_) + (_%__match8242282423%_ + _%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6580466047%_ + _%e6580566051%_ + _%hd6580666055%_ + _%tl6580766058%_ + _%e6580866061%_ + _%hd6580966065%_ + _%tl6581066068%_ + _%e6581166071%_ + _%__splice8236482365%_ + _%target6581266075%_ + _%tl6581466078%_) (let () (declare (not safe)) - (_%g6572865791%_))))) + (_%g6579165854%_))))) (let () (declare (not safe)) - (_%g6572865791%_))) + (_%g6579165854%_))) (let () (declare (not safe)) - (_%g6572865791%_))) - (if (gx#stx-null? _%tl6574766005%_) - (if (gx#stx-pair/null? _%tl6573765971%_) - (let ((_%__splice8230582306%_ + (_%g6579165854%_))) + (if (gx#stx-null? _%tl6581066068%_) + (if (gx#stx-pair/null? _%tl6580066034%_) + (let ((_%__splice8236882369%_ (gx#syntax-split-splice - _%tl6573765971%_ + _%tl6580066034%_ '0))) - (let ((_%tl6577965851%_ + (let ((_%tl6584265914%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '1))) - (_%target6577765848%_ + (_%target6584065911%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '0)))) (if (gx#stx-null? - _%tl6577965851%_) - (_%__match8239982400%_ - _%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6574265988%_ - _%hd6574365992%_ - _%tl6574465995%_ - _%e6574565998%_ - _%hd6574666002%_ - _%tl6574766005%_ - _%__splice8230582306%_ - _%target6577765848%_ - _%tl6577965851%_) + _%tl6584265914%_) + (_%__match8246282463%_ + _%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6580566051%_ + _%hd6580666055%_ + _%tl6580766058%_ + _%e6580866061%_ + _%hd6580966065%_ + _%tl6581066068%_ + _%__splice8236882369%_ + _%target6584065911%_ + _%tl6584265914%_) (let () (declare (not safe)) - (_%g6572865791%_))))) + (_%g6579165854%_))))) (let () (declare (not safe)) - (_%g6572865791%_))) + (_%g6579165854%_))) (let () (declare (not safe)) - (_%g6572865791%_))))) - (if (gx#stx-null? _%tl6574766005%_) - (if (gx#stx-pair/null? _%tl6573765971%_) - (let ((_%__splice8230582306%_ + (_%g6579165854%_))))) + (if (gx#stx-null? _%tl6581066068%_) + (if (gx#stx-pair/null? _%tl6580066034%_) + (let ((_%__splice8236882369%_ (gx#syntax-split-splice - _%tl6573765971%_ + _%tl6580066034%_ '0))) - (let ((_%tl6577965851%_ + (let ((_%tl6584265914%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '1))) - (_%target6577765848%_ + (_%target6584065911%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '0)))) - (if (gx#stx-null? _%tl6577965851%_) - (_%__match8239982400%_ - _%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6574265988%_ - _%hd6574365992%_ - _%tl6574465995%_ - _%e6574565998%_ - _%hd6574666002%_ - _%tl6574766005%_ - _%__splice8230582306%_ - _%target6577765848%_ - _%tl6577965851%_) + (if (gx#stx-null? _%tl6584265914%_) + (_%__match8246282463%_ + _%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6580566051%_ + _%hd6580666055%_ + _%tl6580766058%_ + _%e6580866061%_ + _%hd6580966065%_ + _%tl6581066068%_ + _%__splice8236882369%_ + _%target6584065911%_ + _%tl6584265914%_) (let () (declare (not safe)) - (_%g6572865791%_))))) + (_%g6579165854%_))))) (let () (declare (not safe)) - (_%g6572865791%_))) + (_%g6579165854%_))) (let () (declare (not safe)) - (_%g6572865791%_)))))) - (let () (declare (not safe)) (_%g6572865791%_))))) + (_%g6579165854%_)))))) + (let () (declare (not safe)) (_%g6579165854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6572865791%_))) + (_%g6579165854%_))) (if (gx#stx-pair? - _%tl6574065981%_) - (let ((_%e6577165828%_ + _%tl6580366044%_) + (let ((_%e6583465891%_ (gx#syntax-e - _%tl6574065981%_))) - (let ((_%tl6577365835%_ + _%tl6580366044%_))) + (let ((_%tl6583665898%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6577165828%_))) - (_%hd6577265832%_ - (let () (declare (not safe)) (##car _%e6577165828%_)))) - (if (gx#stx-pair? _%tl6577365835%_) - (let ((_%e6577465838%_ (gx#syntax-e _%tl6577365835%_))) - (let ((_%tl6577665845%_ + (##cdr _%e6583465891%_))) + (_%hd6583565895%_ + (let () (declare (not safe)) (##car _%e6583465891%_)))) + (if (gx#stx-pair? _%tl6583665898%_) + (let ((_%e6583765901%_ (gx#syntax-e _%tl6583665898%_))) + (let ((_%tl6583965908%_ (let () (declare (not safe)) - (##cdr _%e6577465838%_))) - (_%hd6577565842%_ + (##cdr _%e6583765901%_))) + (_%hd6583865905%_ (let () (declare (not safe)) - (##car _%e6577465838%_)))) - (if (gx#stx-null? _%tl6577665845%_) - (if (gx#stx-pair/null? _%tl6573765971%_) - (let ((_%__splice8230582306%_ + (##car _%e6583765901%_)))) + (if (gx#stx-null? _%tl6583965908%_) + (if (gx#stx-pair/null? _%tl6580066034%_) + (let ((_%__splice8236882369%_ (gx#syntax-split-splice - _%tl6573765971%_ + _%tl6580066034%_ '0))) - (let ((_%tl6577965851%_ + (let ((_%tl6584265914%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '1))) - (_%target6577765848%_ + (_%target6584065911%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '0)))) - (if (gx#stx-null? _%tl6577965851%_) - (_%__match8239982400%_ - _%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6577165828%_ - _%hd6577265832%_ - _%tl6577365835%_ - _%e6577465838%_ - _%hd6577565842%_ - _%tl6577665845%_ - _%__splice8230582306%_ - _%target6577765848%_ - _%tl6577965851%_) + (if (gx#stx-null? _%tl6584265914%_) + (_%__match8246282463%_ + _%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6583465891%_ + _%hd6583565895%_ + _%tl6583665898%_ + _%e6583765901%_ + _%hd6583865905%_ + _%tl6583965908%_ + _%__splice8236882369%_ + _%target6584065911%_ + _%tl6584265914%_) (let () (declare (not safe)) - (_%g6572865791%_))))) + (_%g6579165854%_))))) (let () (declare (not safe)) - (_%g6572865791%_))) - (let () (declare (not safe)) (_%g6572865791%_))))) - (let () (declare (not safe)) (_%g6572865791%_))))) + (_%g6579165854%_))) + (let () (declare (not safe)) (_%g6579165854%_))))) + (let () (declare (not safe)) (_%g6579165854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6572865791%_))))) - (if (gx#stx-pair? _%tl6574065981%_) - (let ((_%e6577165828%_ + (_%g6579165854%_))))) + (if (gx#stx-pair? _%tl6580366044%_) + (let ((_%e6583465891%_ (gx#syntax-e - _%tl6574065981%_))) - (let ((_%tl6577365835%_ + _%tl6580366044%_))) + (let ((_%tl6583665898%_ (let () (declare (not safe)) - (##cdr _%e6577165828%_))) - (_%hd6577265832%_ + (##cdr _%e6583465891%_))) + (_%hd6583565895%_ (let () (declare (not safe)) - (##car _%e6577165828%_)))) + (##car _%e6583465891%_)))) (if (gx#stx-pair? - _%tl6577365835%_) - (let ((_%e6577465838%_ + _%tl6583665898%_) + (let ((_%e6583765901%_ (gx#syntax-e - _%tl6577365835%_))) - (let ((_%tl6577665845%_ + _%tl6583665898%_))) + (let ((_%tl6583965908%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6577465838%_))) - (_%hd6577565842%_ - (let () (declare (not safe)) (##car _%e6577465838%_)))) - (if (gx#stx-null? _%tl6577665845%_) - (if (gx#stx-pair/null? _%tl6573765971%_) - (let ((_%__splice8230582306%_ - (gx#syntax-split-splice _%tl6573765971%_ '0))) - (let ((_%tl6577965851%_ + (##cdr _%e6583765901%_))) + (_%hd6583865905%_ + (let () (declare (not safe)) (##car _%e6583765901%_)))) + (if (gx#stx-null? _%tl6583965908%_) + (if (gx#stx-pair/null? _%tl6580066034%_) + (let ((_%__splice8236882369%_ + (gx#syntax-split-splice _%tl6580066034%_ '0))) + (let ((_%tl6584265914%_ (let () (declare (not safe)) - (##vector-ref _%__splice8230582306%_ '1))) - (_%target6577765848%_ + (##vector-ref _%__splice8236882369%_ '1))) + (_%target6584065911%_ (let () (declare (not safe)) (##vector-ref - _%__splice8230582306%_ + _%__splice8236882369%_ '0)))) - (if (gx#stx-null? _%tl6577965851%_) - (_%__match8239982400%_ - _%e6573265954%_ - _%hd6573365958%_ - _%tl6573465961%_ - _%e6573565964%_ - _%hd6573665968%_ - _%tl6573765971%_ - _%e6573865974%_ - _%hd6573965978%_ - _%tl6574065981%_ - _%e6577165828%_ - _%hd6577265832%_ - _%tl6577365835%_ - _%e6577465838%_ - _%hd6577565842%_ - _%tl6577665845%_ - _%__splice8230582306%_ - _%target6577765848%_ - _%tl6577965851%_) + (if (gx#stx-null? _%tl6584265914%_) + (_%__match8246282463%_ + _%e6579566017%_ + _%hd6579666021%_ + _%tl6579766024%_ + _%e6579866027%_ + _%hd6579966031%_ + _%tl6580066034%_ + _%e6580166037%_ + _%hd6580266041%_ + _%tl6580366044%_ + _%e6583465891%_ + _%hd6583565895%_ + _%tl6583665898%_ + _%e6583765901%_ + _%hd6583865905%_ + _%tl6583965908%_ + _%__splice8236882369%_ + _%target6584065911%_ + _%tl6584265914%_) (let () (declare (not safe)) - (_%g6572865791%_))))) - (let () (declare (not safe)) (_%g6572865791%_))) - (let () (declare (not safe)) (_%g6572865791%_))))) - (let () (declare (not safe)) (_%g6572865791%_))))) + (_%g6579165854%_))))) + (let () (declare (not safe)) (_%g6579165854%_))) + (let () (declare (not safe)) (_%g6579165854%_))))) + (let () (declare (not safe)) (_%g6579165854%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6572865791%_)))))) + (_%g6579165854%_)))))) (let () (declare (not safe)) - (_%g6572865791%_))))) - (let () (declare (not safe)) (_%g6572865791%_))))) - (let () (declare (not safe)) (_%g6572865791%_)))))))) + (_%g6579165854%_))))) + (let () (declare (not safe)) (_%g6579165854%_))))) + (let () (declare (not safe)) (_%g6579165854%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-contract| - (lambda (_%stx66114%_) - (let* ((_%g6611766141%_ - (lambda (_%g6611866137%_) + (lambda (_%stx66177%_) + (let* ((_%g6618066204%_ + (lambda (_%g6618166200%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6611866137%_))) - (_%g6611666257%_ - (lambda (_%g6611866145%_) - (if (gx#stx-pair? _%g6611866145%_) - (let ((_%e6612166148%_ (gx#syntax-e _%g6611866145%_))) - (let ((_%hd6612266152%_ + _%g6618166200%_))) + (_%g6617966320%_ + (lambda (_%g6618166208%_) + (if (gx#stx-pair? _%g6618166208%_) + (let ((_%e6618466211%_ (gx#syntax-e _%g6618166208%_))) + (let ((_%hd6618566215%_ (let () (declare (not safe)) - (##car _%e6612166148%_))) - (_%tl6612366155%_ + (##car _%e6618466211%_))) + (_%tl6618666218%_ (let () (declare (not safe)) - (##cdr _%e6612166148%_)))) - (if (gx#stx-pair? _%tl6612366155%_) - (let ((_%e6612466158%_ - (gx#syntax-e _%tl6612366155%_))) - (let ((_%hd6612566162%_ + (##cdr _%e6618466211%_)))) + (if (gx#stx-pair? _%tl6618666218%_) + (let ((_%e6618766221%_ + (gx#syntax-e _%tl6618666218%_))) + (let ((_%hd6618866225%_ (let () (declare (not safe)) - (##car _%e6612466158%_))) - (_%tl6612666165%_ + (##car _%e6618766221%_))) + (_%tl6618966228%_ (let () (declare (not safe)) - (##cdr _%e6612466158%_)))) - (if (gx#stx-pair/null? _%tl6612666165%_) - (let ((_g84186_ + (##cdr _%e6618766221%_)))) + (if (gx#stx-pair/null? _%tl6618966228%_) + (let ((_g84249_ (gx#syntax-split-splice - _%tl6612666165%_ + _%tl6618966228%_ '0))) (begin - (let ((_g84187_ + (let ((_g84250_ (let () (declare (not safe)) - (if (##values? _g84186_) - (##vector-length - _g84186_) + (if (##values? _g84249_) + (##values-length + _g84249_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84187_ 2))) + (##fx= _g84250_ 2))) (error "Context expects 2 values" - _g84187_))) - (let ((_%target6612766168%_ + _g84250_))) + (let ((_%target6619066231%_ (let () (declare (not safe)) - (##vector-ref _g84186_ 0))) - (_%tl6612966171%_ + (##values-ref _g84249_ 0))) + (_%tl6619266234%_ (let () (declare (not safe)) - (##vector-ref _g84186_ 1)))) - (if (gx#stx-null? _%tl6612966171%_) - (letrec ((_%loop6613066174%_ - (lambda (_%hd6612866178%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6613466181%_) - (if (gx#stx-pair? _%hd6612866178%_) - (let ((_%e6613166184%_ (gx#syntax-e _%hd6612866178%_))) - (let ((_%lp-hd6613266188%_ + (##values-ref _g84249_ 1)))) + (if (gx#stx-null? _%tl6619266234%_) + (letrec ((_%loop6619366237%_ + (lambda (_%hd6619166241%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6619766244%_) + (if (gx#stx-pair? _%hd6619166241%_) + (let ((_%e6619466247%_ (gx#syntax-e _%hd6619166241%_))) + (let ((_%lp-hd6619566251%_ (let () (declare (not safe)) - (##car _%e6613166184%_))) - (_%lp-tl6613366191%_ + (##car _%e6619466247%_))) + (_%lp-tl6619666254%_ (let () (declare (not safe)) - (##cdr _%e6613166184%_)))) - (_%loop6613066174%_ - _%lp-tl6613366191%_ - (cons _%lp-hd6613266188%_ _%body6613466181%_)))) - (let ((_%body6613566194%_ - (reverse _%body6613466181%_))) - ((lambda (_%L66198%_ _%L66200%_) - (let* ((_%g6621866226%_ - (lambda (_%g6621966222%_) + (##cdr _%e6619466247%_)))) + (_%loop6619366237%_ + _%lp-tl6619666254%_ + (cons _%lp-hd6619566251%_ _%body6619766244%_)))) + (let ((_%body6619866257%_ + (reverse _%body6619766244%_))) + ((lambda (_%L66261%_ _%L66263%_) + (let* ((_%g6628166289%_ + (lambda (_%g6628266285%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6621966222%_))) - (_%g6621766253%_ - (lambda (_%g6621966230%_) - ((lambda (_%L66233%_) + _%g6628266285%_))) + (_%g6628066316%_ + (lambda (_%g6628266293%_) + ((lambda (_%L66296%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66233%_ - (foldr (lambda (_%g6624466247%_ + (cons _%L66296%_ + (foldr (lambda (_%g6630766310%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6624566250%_) - (cons _%g6624466247%_ _%g6624566250%_)) + _%g6630866313%_) + (cons _%g6630766310%_ _%g6630866313%_)) '() - _%L66198%_)))) + _%L66261%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6621966230%_)))) - (_%g6621766253%_ + _%g6628266293%_)))) + (_%g6628066316%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66114%_ - _%L66200%_ + _%stx66177%_ + _%L66263%_ '#t))))) - _%body6613566194%_ - _%hd6612566162%_)))))) + _%body6619866257%_ + _%hd6618866225%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6613066174%_ - _%target6612766168%_ + (_%loop6619366237%_ + _%target6619066231%_ '())) - (_%g6611766141%_ - _%g6611866145%_))))) - (_%g6611766141%_ _%g6611866145%_)))) - (_%g6611766141%_ _%g6611866145%_)))) - (_%g6611766141%_ _%g6611866145%_))))) - (_%g6611666257%_ _%stx66114%_)))) + (_%g6618066204%_ + _%g6618166208%_))))) + (_%g6618066204%_ _%g6618166208%_)))) + (_%g6618066204%_ _%g6618166208%_)))) + (_%g6618066204%_ _%g6618166208%_))))) + (_%g6617966320%_ _%stx66177%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-procedure-unchecked-contract| - (lambda (_%stx66262%_) - (let* ((_%g6626566289%_ - (lambda (_%g6626666285%_) + (lambda (_%stx66325%_) + (let* ((_%g6632866352%_ + (lambda (_%g6632966348%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6626666285%_))) - (_%g6626466405%_ - (lambda (_%g6626666293%_) - (if (gx#stx-pair? _%g6626666293%_) - (let ((_%e6626966296%_ (gx#syntax-e _%g6626666293%_))) - (let ((_%hd6627066300%_ + _%g6632966348%_))) + (_%g6632766468%_ + (lambda (_%g6632966356%_) + (if (gx#stx-pair? _%g6632966356%_) + (let ((_%e6633266359%_ (gx#syntax-e _%g6632966356%_))) + (let ((_%hd6633366363%_ (let () (declare (not safe)) - (##car _%e6626966296%_))) - (_%tl6627166303%_ + (##car _%e6633266359%_))) + (_%tl6633466366%_ (let () (declare (not safe)) - (##cdr _%e6626966296%_)))) - (if (gx#stx-pair? _%tl6627166303%_) - (let ((_%e6627266306%_ - (gx#syntax-e _%tl6627166303%_))) - (let ((_%hd6627366310%_ + (##cdr _%e6633266359%_)))) + (if (gx#stx-pair? _%tl6633466366%_) + (let ((_%e6633566369%_ + (gx#syntax-e _%tl6633466366%_))) + (let ((_%hd6633666373%_ (let () (declare (not safe)) - (##car _%e6627266306%_))) - (_%tl6627466313%_ + (##car _%e6633566369%_))) + (_%tl6633766376%_ (let () (declare (not safe)) - (##cdr _%e6627266306%_)))) - (if (gx#stx-pair/null? _%tl6627466313%_) - (let ((_g84188_ + (##cdr _%e6633566369%_)))) + (if (gx#stx-pair/null? _%tl6633766376%_) + (let ((_g84251_ (gx#syntax-split-splice - _%tl6627466313%_ + _%tl6633766376%_ '0))) (begin - (let ((_g84189_ + (let ((_g84252_ (let () (declare (not safe)) - (if (##values? _g84188_) - (##vector-length - _g84188_) + (if (##values? _g84251_) + (##values-length + _g84251_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84189_ 2))) + (##fx= _g84252_ 2))) (error "Context expects 2 values" - _g84189_))) - (let ((_%target6627566316%_ + _g84252_))) + (let ((_%target6633866379%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 0))) - (_%tl6627766319%_ + (##values-ref _g84251_ 0))) + (_%tl6634066382%_ (let () (declare (not safe)) - (##vector-ref _g84188_ 1)))) - (if (gx#stx-null? _%tl6627766319%_) - (letrec ((_%loop6627866322%_ - (lambda (_%hd6627666326%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6628266329%_) - (if (gx#stx-pair? _%hd6627666326%_) - (let ((_%e6627966332%_ (gx#syntax-e _%hd6627666326%_))) - (let ((_%lp-hd6628066336%_ + (##values-ref _g84251_ 1)))) + (if (gx#stx-null? _%tl6634066382%_) + (letrec ((_%loop6634166385%_ + (lambda (_%hd6633966389%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6634566392%_) + (if (gx#stx-pair? _%hd6633966389%_) + (let ((_%e6634266395%_ (gx#syntax-e _%hd6633966389%_))) + (let ((_%lp-hd6634366399%_ (let () (declare (not safe)) - (##car _%e6627966332%_))) - (_%lp-tl6628166339%_ + (##car _%e6634266395%_))) + (_%lp-tl6634466402%_ (let () (declare (not safe)) - (##cdr _%e6627966332%_)))) - (_%loop6627866322%_ - _%lp-tl6628166339%_ - (cons _%lp-hd6628066336%_ _%body6628266329%_)))) - (let ((_%body6628366342%_ - (reverse _%body6628266329%_))) - ((lambda (_%L66346%_ _%L66348%_) - (let* ((_%g6636666374%_ - (lambda (_%g6636766370%_) + (##cdr _%e6634266395%_)))) + (_%loop6634166385%_ + _%lp-tl6634466402%_ + (cons _%lp-hd6634366399%_ _%body6634566392%_)))) + (let ((_%body6634666405%_ + (reverse _%body6634566392%_))) + ((lambda (_%L66409%_ _%L66411%_) + (let* ((_%g6642966437%_ + (lambda (_%g6643066433%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6636766370%_))) - (_%g6636566401%_ - (lambda (_%g6636766378%_) - ((lambda (_%L66381%_) + _%g6643066433%_))) + (_%g6642866464%_ + (lambda (_%g6643066441%_) + ((lambda (_%L66444%_) (cons (gx#datum->syntax '#f 'using) - (cons _%L66381%_ - (foldr (lambda (_%g6639266395%_ + (cons _%L66444%_ + (foldr (lambda (_%g6645566458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6639366398%_) - (cons _%g6639266395%_ _%g6639366398%_)) + _%g6645666461%_) + (cons _%g6645566458%_ _%g6645666461%_)) '() - _%L66346%_)))) + _%L66409%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6636766378%_)))) - (_%g6636566401%_ + _%g6643066441%_)))) + (_%g6642866464%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#make-procedure-contract| - _%stx66262%_ - _%L66348%_ + _%stx66325%_ + _%L66411%_ '#f))))) - _%body6628366342%_ - _%hd6627366310%_)))))) + _%body6634666405%_ + _%hd6633666373%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6627866322%_ - _%target6627566316%_ + (_%loop6634166385%_ + _%target6633866379%_ '())) - (_%g6626566289%_ - _%g6626666293%_))))) - (_%g6626566289%_ _%g6626666293%_)))) - (_%g6626566289%_ _%g6626666293%_)))) - (_%g6626566289%_ _%g6626666293%_))))) - (_%g6626466405%_ _%stx66262%_)))) + (_%g6632866352%_ + _%g6632966356%_))))) + (_%g6632866352%_ _%g6632966356%_)))) + (_%g6632866352%_ _%g6632966356%_)))) + (_%g6632866352%_ _%g6632966356%_))))) + (_%g6632766468%_ _%stx66325%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#lambda/c| - (lambda (_%stx66410%_) - (letrec ((_%make-lambda66413%_ - (lambda (_%signature66681%_ _%return66683%_ _%body66684%_) - (let* ((_%g6668666718%_ - (lambda (_%g6668766714%_) + (lambda (_%stx66473%_) + (letrec ((_%make-lambda66476%_ + (lambda (_%signature66744%_ _%return66746%_ _%body66747%_) + (let* ((_%g6674966781%_ + (lambda (_%g6675066777%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6668766714%_))) - (_%g6668566833%_ - (lambda (_%g6668766722%_) - (if (gx#stx-pair? _%g6668766722%_) - (let ((_%e6669266725%_ - (gx#syntax-e _%g6668766722%_))) - (let ((_%hd6669366729%_ + _%g6675066777%_))) + (_%g6674866896%_ + (lambda (_%g6675066785%_) + (if (gx#stx-pair? _%g6675066785%_) + (let ((_%e6675566788%_ + (gx#syntax-e _%g6675066785%_))) + (let ((_%hd6675666792%_ (let () (declare (not safe)) - (##car _%e6669266725%_))) - (_%tl6669466732%_ + (##car _%e6675566788%_))) + (_%tl6675766795%_ (let () (declare (not safe)) - (##cdr _%e6669266725%_)))) - (if (gx#stx-pair? _%tl6669466732%_) - (let ((_%e6669566735%_ + (##cdr _%e6675566788%_)))) + (if (gx#stx-pair? _%tl6675766795%_) + (let ((_%e6675866798%_ (gx#syntax-e - _%tl6669466732%_))) - (let ((_%hd6669666739%_ + _%tl6675766795%_))) + (let ((_%hd6675966802%_ (let () (declare (not safe)) - (##car _%e6669566735%_))) - (_%tl6669766742%_ + (##car _%e6675866798%_))) + (_%tl6676066805%_ (let () (declare (not safe)) - (##cdr _%e6669566735%_)))) + (##cdr _%e6675866798%_)))) (if (gx#stx-pair? - _%tl6669766742%_) - (let ((_%e6669866745%_ + _%tl6676066805%_) + (let ((_%e6676166808%_ (gx#syntax-e - _%tl6669766742%_))) - (let ((_%hd6669966749%_ + _%tl6676066805%_))) + (let ((_%hd6676266812%_ (let () (declare (not safe)) - (##car _%e6669866745%_))) - (_%tl6670066752%_ + (##car _%e6676166808%_))) + (_%tl6676366815%_ (let () (declare (not safe)) - (##cdr _%e6669866745%_)))) + (##cdr _%e6676166808%_)))) (if (gx#stx-pair? - _%tl6670066752%_) - (let ((_%e6670166755%_ + _%tl6676366815%_) + (let ((_%e6676466818%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6670066752%_))) - (let ((_%hd6670266759%_ + (gx#syntax-e _%tl6676366815%_))) + (let ((_%hd6676566822%_ (let () (declare (not safe)) - (##car _%e6670166755%_))) - (_%tl6670366762%_ + (##car _%e6676466818%_))) + (_%tl6676666825%_ (let () (declare (not safe)) - (##cdr _%e6670166755%_)))) - (if (gx#stx-pair/null? _%hd6670266759%_) - (let ((_g84190_ - (gx#syntax-split-splice _%hd6670266759%_ '0))) + (##cdr _%e6676466818%_)))) + (if (gx#stx-pair/null? _%hd6676566822%_) + (let ((_g84253_ + (gx#syntax-split-splice _%hd6676566822%_ '0))) (begin - (let ((_g84191_ + (let ((_g84254_ (let () (declare (not safe)) - (if (##values? _g84190_) - (##vector-length _g84190_) + (if (##values? _g84253_) + (##values-length _g84253_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84191_ 2))) + (##fx= _g84254_ 2))) (error "Context expects 2 values" - _g84191_))) - (let ((_%target6670466765%_ + _g84254_))) + (let ((_%target6676766828%_ (let () (declare (not safe)) - (##vector-ref _g84190_ 0))) - (_%tl6670666768%_ + (##values-ref _g84253_ 0))) + (_%tl6676966831%_ (let () (declare (not safe)) - (##vector-ref _g84190_ 1)))) - (if (gx#stx-null? _%tl6670666768%_) - (letrec ((_%loop6670766771%_ - (lambda (_%hd6670566775%_ - _%body6671166778%_) + (##values-ref _g84253_ 1)))) + (if (gx#stx-null? _%tl6676966831%_) + (letrec ((_%loop6677066834%_ + (lambda (_%hd6676866838%_ + _%body6677466841%_) (if (gx#stx-pair? - _%hd6670566775%_) - (let ((_%e6670866781%_ + _%hd6676866838%_) + (let ((_%e6677166844%_ (gx#syntax-e - _%hd6670566775%_))) - (let ((_%lp-hd6670966785%_ + _%hd6676866838%_))) + (let ((_%lp-hd6677266848%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e6670866781%_))) - (_%lp-tl6671066788%_ - (let () (declare (not safe)) (##cdr _%e6670866781%_)))) - (_%loop6670766771%_ - _%lp-tl6671066788%_ - (cons _%lp-hd6670966785%_ _%body6671166778%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6671266791%_ - (reverse _%body6671166778%_))) + (##car _%e6677166844%_))) + (_%lp-tl6677366851%_ + (let () (declare (not safe)) (##cdr _%e6677166844%_)))) + (_%loop6677066834%_ + _%lp-tl6677366851%_ + (cons _%lp-hd6677266848%_ _%body6677466841%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6677566854%_ + (reverse _%body6677466841%_))) (if (gx#stx-null? - _%tl6670366762%_) - ((lambda (_%L66795%_ + _%tl6676666825%_) + ((lambda (_%L66858%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L66797%_ - _%L66798%_ - _%L66799%_) + _%L66860%_ + _%L66861%_ + _%L66862%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66799%_ + (cons _%L66862%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) - (cons (cons _%L66798%_ - (cons _%L66797%_ + (cons (cons _%L66861%_ + (cons _%L66860%_ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) @@ -3197,892 +3197,892 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-contract) - (cons _%L66798%_ - (foldr (lambda (_%g6682466827%_ _%g6682566830%_) - (cons _%g6682466827%_ _%g6682566830%_)) + (cons _%L66861%_ + (foldr (lambda (_%g6688766890%_ _%g6688866893%_) + (cons _%g6688766890%_ _%g6688866893%_)) '() - _%L66795%_))) + _%L66858%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx66410%_))) - _%body6671266791%_ - _%hd6669966749%_ - _%hd6669666739%_ - _%hd6669366729%_) - (_%g6668666718%_ _%g6668766722%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6670766771%_ - _%target6670466765%_ + (gx#stx-source _%stx66473%_))) + _%body6677566854%_ + _%hd6676266812%_ + _%hd6675966802%_ + _%hd6675666792%_) + (_%g6674966781%_ _%g6675066785%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6677066834%_ + _%target6676766828%_ '())) - (_%g6668666718%_ _%g6668766722%_))))) - (_%g6668666718%_ _%g6668766722%_)))) - (_%g6668666718%_ _%g6668766722%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6668666718%_ - _%g6668766722%_)))) - (_%g6668666718%_ _%g6668766722%_)))) - (_%g6668666718%_ _%g6668766722%_))))) - (_%g6668566833%_ + (_%g6674966781%_ _%g6675066785%_))))) + (_%g6674966781%_ _%g6675066785%_)))) + (_%g6674966781%_ _%g6675066785%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6674966781%_ + _%g6675066785%_)))) + (_%g6674966781%_ _%g6675066785%_)))) + (_%g6674966781%_ _%g6675066785%_))))) + (_%g6674866896%_ (list (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%signature66681%_)) - _%signature66681%_ - _%return66683%_ - _%body66684%_)))))) - (let* ((_%__stx8240282403%_ _%stx66410%_) - (_%g6641766465%_ + _%signature66744%_)) + _%signature66744%_ + _%return66746%_ + _%body66747%_)))))) + (let* ((_%__stx8246582466%_ _%stx66473%_) + (_%g6648066528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8240282403%_)))) - (let ((_%__kont8240582406%_ - (lambda (_%L66636%_ _%L66638%_ _%L66639%_) + _%__stx8246582466%_)))) + (let ((_%__kont8246882469%_ + (lambda (_%L66699%_ _%L66701%_ _%L66702%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66639%_) - (_%make-lambda66413%_ - _%L66639%_ - _%L66638%_ - (foldr (lambda (_%g6666066663%_ _%g6666166666%_) - (cons _%g6666066663%_ _%g6666166666%_)) + _%L66702%_) + (_%make-lambda66476%_ + _%L66702%_ + _%L66701%_ + (foldr (lambda (_%g6672366726%_ _%g6672466729%_) + (cons _%g6672366726%_ _%g6672466729%_)) '() - _%L66636%_)) + _%L66699%_)) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66639%_ + (cons _%L66702%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f - (cons _%L66638%_ + (cons _%L66701%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '()))) - (foldr (lambda (_%g6666866671%_ _%g6666966674%_) - (cons _%g6666866671%_ _%g6666966674%_)) + (foldr (lambda (_%g6673166734%_ _%g6673266737%_) + (cons _%g6673166734%_ _%g6673266737%_)) '() - _%L66636%_))) + _%L66699%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont8240982410%_ - (lambda (_%L66522%_ _%L66524%_) + (_%__kont8247282473%_ + (lambda (_%L66585%_ _%L66587%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L66524%_) + _%L66587%_) (cons (gx#datum->syntax '#f 'lambda/c) - (cons _%L66524%_ + (cons _%L66587%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6654266545%_ + (foldr (lambda (_%g6660566608%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6654366548%_) - (cons _%g6654266545%_ _%g6654366548%_)) + _%g6660666611%_) + (cons _%g6660566608%_ _%g6660666611%_)) '() - _%L66522%_))))) + _%L66585%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f 'lambda) - (cons _%L66524%_ - (foldr (lambda (_%g6655066553%_ - _%g6655166556%_) - (cons _%g6655066553%_ - _%g6655166556%_)) + (cons _%L66587%_ + (foldr (lambda (_%g6661366616%_ + _%g6661466619%_) + (cons _%g6661366616%_ + _%g6661466619%_)) '() - _%L66522%_))))))) - (let* ((_%__match8246982470%_ - (lambda (_%e6644566472%_ - _%hd6644666476%_ - _%tl6644766479%_ - _%e6644866482%_ - _%hd6644966486%_ - _%tl6645066489%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) - (letrec ((_%loop6645466498%_ - (lambda (_%hd6645266502%_ _%body6645866505%_) - (if (gx#stx-pair? _%hd6645266502%_) - (let ((_%e6645566508%_ - (gx#syntax-e _%hd6645266502%_))) - (let ((_%lp-tl6645766515%_ + _%L66585%_))))))) + (let* ((_%__match8253282533%_ + (lambda (_%e6650866535%_ + _%hd6650966539%_ + _%tl6651066542%_ + _%e6651166545%_ + _%hd6651266549%_ + _%tl6651366552%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) + (letrec ((_%loop6651766561%_ + (lambda (_%hd6651566565%_ _%body6652166568%_) + (if (gx#stx-pair? _%hd6651566565%_) + (let ((_%e6651866571%_ + (gx#syntax-e _%hd6651566565%_))) + (let ((_%lp-tl6652066578%_ (let () (declare (not safe)) - (##cdr _%e6645566508%_))) - (_%lp-hd6645666512%_ + (##cdr _%e6651866571%_))) + (_%lp-hd6651966575%_ (let () (declare (not safe)) - (##car _%e6645566508%_)))) - (_%loop6645466498%_ - _%lp-tl6645766515%_ - (cons _%lp-hd6645666512%_ - _%body6645866505%_)))) - (let ((_%body6645966518%_ - (reverse _%body6645866505%_))) - (_%__kont8240982410%_ - _%body6645966518%_ - _%hd6644966486%_)))))) - (_%loop6645466498%_ _%target6645166492%_ '())))) - (_%__match8244982450%_ - (lambda (_%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%e6642866586%_ - _%hd6642966590%_ - _%tl6643066593%_ - _%e6643166596%_ - _%hd6643266600%_ - _%tl6643366603%_ - _%__splice8240782408%_ - _%target6643466606%_ - _%tl6643666609%_) - (letrec ((_%loop6643766612%_ - (lambda (_%hd6643566616%_ _%body6644166619%_) - (if (gx#stx-pair? _%hd6643566616%_) - (let ((_%e6643866622%_ - (gx#syntax-e _%hd6643566616%_))) - (let ((_%lp-tl6644066629%_ + (##car _%e6651866571%_)))) + (_%loop6651766561%_ + _%lp-tl6652066578%_ + (cons _%lp-hd6651966575%_ + _%body6652166568%_)))) + (let ((_%body6652266581%_ + (reverse _%body6652166568%_))) + (_%__kont8247282473%_ + _%body6652266581%_ + _%hd6651266549%_)))))) + (_%loop6651766561%_ _%target6651466555%_ '())))) + (_%__match8251282513%_ + (lambda (_%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%e6649166649%_ + _%hd6649266653%_ + _%tl6649366656%_ + _%e6649466659%_ + _%hd6649566663%_ + _%tl6649666666%_ + _%__splice8247082471%_ + _%target6649766669%_ + _%tl6649966672%_) + (letrec ((_%loop6650066675%_ + (lambda (_%hd6649866679%_ _%body6650466682%_) + (if (gx#stx-pair? _%hd6649866679%_) + (let ((_%e6650166685%_ + (gx#syntax-e _%hd6649866679%_))) + (let ((_%lp-tl6650366692%_ (let () (declare (not safe)) - (##cdr _%e6643866622%_))) - (_%lp-hd6643966626%_ + (##cdr _%e6650166685%_))) + (_%lp-hd6650266689%_ (let () (declare (not safe)) - (##car _%e6643866622%_)))) - (_%loop6643766612%_ - _%lp-tl6644066629%_ - (cons _%lp-hd6643966626%_ - _%body6644166619%_)))) - (let ((_%body6644266632%_ - (reverse _%body6644166619%_))) - (_%__kont8240582406%_ - _%body6644266632%_ - _%hd6643266600%_ - _%hd6642666580%_)))))) - (_%loop6643766612%_ _%target6643466606%_ '()))))) - (if (gx#stx-pair? _%__stx8240282403%_) - (let ((_%e6642266566%_ (gx#syntax-e _%__stx8240282403%_))) - (let ((_%tl6642466573%_ + (##car _%e6650166685%_)))) + (_%loop6650066675%_ + _%lp-tl6650366692%_ + (cons _%lp-hd6650266689%_ + _%body6650466682%_)))) + (let ((_%body6650566695%_ + (reverse _%body6650466682%_))) + (_%__kont8246882469%_ + _%body6650566695%_ + _%hd6649566663%_ + _%hd6648966643%_)))))) + (_%loop6650066675%_ _%target6649766669%_ '()))))) + (if (gx#stx-pair? _%__stx8246582466%_) + (let ((_%e6648566629%_ (gx#syntax-e _%__stx8246582466%_))) + (let ((_%tl6648766636%_ (let () (declare (not safe)) - (##cdr _%e6642266566%_))) - (_%hd6642366570%_ + (##cdr _%e6648566629%_))) + (_%hd6648666633%_ (let () (declare (not safe)) - (##car _%e6642266566%_)))) - (if (gx#stx-pair? _%tl6642466573%_) - (let ((_%e6642566576%_ - (gx#syntax-e _%tl6642466573%_))) - (let ((_%tl6642766583%_ + (##car _%e6648566629%_)))) + (if (gx#stx-pair? _%tl6648766636%_) + (let ((_%e6648866639%_ + (gx#syntax-e _%tl6648766636%_))) + (let ((_%tl6649066646%_ (let () (declare (not safe)) - (##cdr _%e6642566576%_))) - (_%hd6642666580%_ + (##cdr _%e6648866639%_))) + (_%hd6648966643%_ (let () (declare (not safe)) - (##car _%e6642566576%_)))) - (if (gx#stx-pair? _%tl6642766583%_) - (let ((_%e6642866586%_ - (gx#syntax-e _%tl6642766583%_))) - (let ((_%tl6643066593%_ + (##car _%e6648866639%_)))) + (if (gx#stx-pair? _%tl6649066646%_) + (let ((_%e6649166649%_ + (gx#syntax-e _%tl6649066646%_))) + (let ((_%tl6649366656%_ (let () (declare (not safe)) - (##cdr _%e6642866586%_))) - (_%hd6642966590%_ + (##cdr _%e6649166649%_))) + (_%hd6649266653%_ (let () (declare (not safe)) - (##car _%e6642866586%_)))) - (if (gx#identifier? _%hd6642966590%_) + (##car _%e6649166649%_)))) + (if (gx#identifier? _%hd6649266653%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84192_| - _%hd6642966590%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84255_| + _%hd6649266653%_) (if (gx#stx-pair? - _%tl6643066593%_) - (let ((_%e6643166596%_ + _%tl6649366656%_) + (let ((_%e6649466659%_ (gx#syntax-e - _%tl6643066593%_))) - (let ((_%tl6643366603%_ + _%tl6649366656%_))) + (let ((_%tl6649666666%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6643166596%_))) - (_%hd6643266600%_ - (let () (declare (not safe)) (##car _%e6643166596%_)))) - (if (gx#stx-pair/null? _%tl6643366603%_) - (let ((_%__splice8240782408%_ - (gx#syntax-split-splice _%tl6643366603%_ '0))) - (let ((_%tl6643666609%_ + (##cdr _%e6649466659%_))) + (_%hd6649566663%_ + (let () (declare (not safe)) (##car _%e6649466659%_)))) + (if (gx#stx-pair/null? _%tl6649666666%_) + (let ((_%__splice8247082471%_ + (gx#syntax-split-splice _%tl6649666666%_ '0))) + (let ((_%tl6649966672%_ (let () (declare (not safe)) - (##vector-ref _%__splice8240782408%_ '1))) - (_%target6643466606%_ + (##vector-ref _%__splice8247082471%_ '1))) + (_%target6649766669%_ (let () (declare (not safe)) - (##vector-ref _%__splice8240782408%_ '0)))) - (if (gx#stx-null? _%tl6643666609%_) - (_%__match8244982450%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%e6642866586%_ - _%hd6642966590%_ - _%tl6643066593%_ - _%e6643166596%_ - _%hd6643266600%_ - _%tl6643366603%_ - _%__splice8240782408%_ - _%target6643466606%_ - _%tl6643666609%_) - (if (gx#stx-pair/null? _%tl6642766583%_) - (let ((_%__splice8241182412%_ + (##vector-ref _%__splice8247082471%_ '0)))) + (if (gx#stx-null? _%tl6649966672%_) + (_%__match8251282513%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%e6649166649%_ + _%hd6649266653%_ + _%tl6649366656%_ + _%e6649466659%_ + _%hd6649566663%_ + _%tl6649666666%_ + _%__splice8247082471%_ + _%target6649766669%_ + _%tl6649966672%_) + (if (gx#stx-pair/null? _%tl6649066646%_) + (let ((_%__splice8247482475%_ (gx#syntax-split-splice - _%tl6642766583%_ + _%tl6649066646%_ '0))) - (let ((_%tl6645366495%_ + (let ((_%tl6651666558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '1))) - (_%target6645166492%_ + (_%target6651466555%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '0)))) - (if (gx#stx-null? _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) + (if (gx#stx-null? _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) (let () (declare (not safe)) - (_%g6641766465%_))))) + (_%g6648066528%_))))) (let () (declare (not safe)) - (_%g6641766465%_)))))) - (if (gx#stx-pair/null? _%tl6642766583%_) - (let ((_%__splice8241182412%_ - (gx#syntax-split-splice _%tl6642766583%_ '0))) - (let ((_%tl6645366495%_ + (_%g6648066528%_)))))) + (if (gx#stx-pair/null? _%tl6649066646%_) + (let ((_%__splice8247482475%_ + (gx#syntax-split-splice _%tl6649066646%_ '0))) + (let ((_%tl6651666558%_ (let () (declare (not safe)) - (##vector-ref _%__splice8241182412%_ '1))) - (_%target6645166492%_ + (##vector-ref _%__splice8247482475%_ '1))) + (_%target6651466555%_ (let () (declare (not safe)) - (##vector-ref _%__splice8241182412%_ '0)))) - (if (gx#stx-null? _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) + (##vector-ref _%__splice8247482475%_ '0)))) + (if (gx#stx-null? _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) (let () (declare (not safe)) - (_%g6641766465%_))))) - (let () (declare (not safe)) (_%g6641766465%_)))))) + (_%g6648066528%_))))) + (let () (declare (not safe)) (_%g6648066528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6642766583%_) - (let ((_%__splice8241182412%_ + _%tl6649066646%_) + (let ((_%__splice8247482475%_ (gx#syntax-split-splice - _%tl6642766583%_ + _%tl6649066646%_ '0))) - (let ((_%tl6645366495%_ + (let ((_%tl6651666558%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice8241182412%_ '1))) - (_%target6645166492%_ + (##vector-ref _%__splice8247482475%_ '1))) + (_%target6651466555%_ (let () (declare (not safe)) - (##vector-ref _%__splice8241182412%_ '0)))) - (if (gx#stx-null? _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) - (let () (declare (not safe)) (_%g6641766465%_))))) - (let () (declare (not safe)) (_%g6641766465%_)))) + (##vector-ref _%__splice8247482475%_ '0)))) + (if (gx#stx-null? _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) + (let () (declare (not safe)) (_%g6648066528%_))))) + (let () (declare (not safe)) (_%g6648066528%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6642766583%_) - (let ((_%__splice8241182412%_ + _%tl6649066646%_) + (let ((_%__splice8247482475%_ (gx#syntax-split-splice - _%tl6642766583%_ + _%tl6649066646%_ '0))) - (let ((_%tl6645366495%_ + (let ((_%tl6651666558%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice8241182412%_ '1))) - (_%target6645166492%_ + (##vector-ref _%__splice8247482475%_ '1))) + (_%target6651466555%_ (let () (declare (not safe)) - (##vector-ref _%__splice8241182412%_ '0)))) - (if (gx#stx-null? _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) - (let () (declare (not safe)) (_%g6641766465%_))))) + (##vector-ref _%__splice8247482475%_ '0)))) + (if (gx#stx-null? _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) + (let () (declare (not safe)) (_%g6648066528%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6641766465%_)))) + (_%g6648066528%_)))) (if (gx#stx-pair/null? - _%tl6642766583%_) - (let ((_%__splice8241182412%_ + _%tl6649066646%_) + (let ((_%__splice8247482475%_ (gx#syntax-split-splice - _%tl6642766583%_ + _%tl6649066646%_ '0))) - (let ((_%tl6645366495%_ + (let ((_%tl6651666558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '1))) - (_%target6645166492%_ + (_%target6651466555%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '0)))) (if (gx#stx-null? - _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) + _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) (let () (declare (not safe)) - (_%g6641766465%_))))) + (_%g6648066528%_))))) (let () (declare (not safe)) - (_%g6641766465%_)))))) - (if (gx#stx-pair/null? _%tl6642766583%_) - (let ((_%__splice8241182412%_ + (_%g6648066528%_)))))) + (if (gx#stx-pair/null? _%tl6649066646%_) + (let ((_%__splice8247482475%_ (gx#syntax-split-splice - _%tl6642766583%_ + _%tl6649066646%_ '0))) - (let ((_%tl6645366495%_ + (let ((_%tl6651666558%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '1))) - (_%target6645166492%_ + (_%target6651466555%_ (let () (declare (not safe)) (##vector-ref - _%__splice8241182412%_ + _%__splice8247482475%_ '0)))) - (if (gx#stx-null? _%tl6645366495%_) - (_%__match8246982470%_ - _%e6642266566%_ - _%hd6642366570%_ - _%tl6642466573%_ - _%e6642566576%_ - _%hd6642666580%_ - _%tl6642766583%_ - _%__splice8241182412%_ - _%target6645166492%_ - _%tl6645366495%_) + (if (gx#stx-null? _%tl6651666558%_) + (_%__match8253282533%_ + _%e6648566629%_ + _%hd6648666633%_ + _%tl6648766636%_ + _%e6648866639%_ + _%hd6648966643%_ + _%tl6649066646%_ + _%__splice8247482475%_ + _%target6651466555%_ + _%tl6651666558%_) (let () (declare (not safe)) - (_%g6641766465%_))))) + (_%g6648066528%_))))) (let () (declare (not safe)) - (_%g6641766465%_)))))) - (let () (declare (not safe)) (_%g6641766465%_))))) - (let () (declare (not safe)) (_%g6641766465%_))))))))) + (_%g6648066528%_)))))) + (let () (declare (not safe)) (_%g6648066528%_))))) + (let () (declare (not safe)) (_%g6648066528%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#def*/c| - (lambda (_%$stx66840%_) - (let* ((_%g6684466868%_ - (lambda (_%g6684566864%_) + (lambda (_%$stx66903%_) + (let* ((_%g6690766931%_ + (lambda (_%g6690866927%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6684566864%_))) - (_%g6684366953%_ - (lambda (_%g6684566872%_) - (if (gx#stx-pair? _%g6684566872%_) - (let ((_%e6684866875%_ (gx#syntax-e _%g6684566872%_))) - (let ((_%hd6684966879%_ + _%g6690866927%_))) + (_%g6690667016%_ + (lambda (_%g6690866935%_) + (if (gx#stx-pair? _%g6690866935%_) + (let ((_%e6691166938%_ (gx#syntax-e _%g6690866935%_))) + (let ((_%hd6691266942%_ (let () (declare (not safe)) - (##car _%e6684866875%_))) - (_%tl6685066882%_ + (##car _%e6691166938%_))) + (_%tl6691366945%_ (let () (declare (not safe)) - (##cdr _%e6684866875%_)))) - (if (gx#stx-pair? _%tl6685066882%_) - (let ((_%e6685166885%_ - (gx#syntax-e _%tl6685066882%_))) - (let ((_%hd6685266889%_ + (##cdr _%e6691166938%_)))) + (if (gx#stx-pair? _%tl6691366945%_) + (let ((_%e6691466948%_ + (gx#syntax-e _%tl6691366945%_))) + (let ((_%hd6691566952%_ (let () (declare (not safe)) - (##car _%e6685166885%_))) - (_%tl6685366892%_ + (##car _%e6691466948%_))) + (_%tl6691666955%_ (let () (declare (not safe)) - (##cdr _%e6685166885%_)))) - (if (gx#stx-pair/null? _%tl6685366892%_) - (let ((_g84193_ + (##cdr _%e6691466948%_)))) + (if (gx#stx-pair/null? _%tl6691666955%_) + (let ((_g84256_ (gx#syntax-split-splice - _%tl6685366892%_ + _%tl6691666955%_ '0))) (begin - (let ((_g84194_ + (let ((_g84257_ (let () (declare (not safe)) - (if (##values? _g84193_) - (##vector-length - _g84193_) + (if (##values? _g84256_) + (##values-length + _g84256_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84194_ 2))) + (##fx= _g84257_ 2))) (error "Context expects 2 values" - _g84194_))) - (let ((_%target6685466895%_ + _g84257_))) + (let ((_%target6691766958%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 0))) - (_%tl6685666898%_ + (##values-ref _g84256_ 0))) + (_%tl6691966961%_ (let () (declare (not safe)) - (##vector-ref _g84193_ 1)))) - (if (gx#stx-null? _%tl6685666898%_) - (letrec ((_%loop6685766901%_ - (lambda (_%hd6685566905%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause6686166908%_) - (if (gx#stx-pair? _%hd6685566905%_) - (let ((_%e6685866911%_ (gx#syntax-e _%hd6685566905%_))) - (let ((_%lp-hd6685966915%_ + (##values-ref _g84256_ 1)))) + (if (gx#stx-null? _%tl6691966961%_) + (letrec ((_%loop6692066964%_ + (lambda (_%hd6691866968%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause6692466971%_) + (if (gx#stx-pair? _%hd6691866968%_) + (let ((_%e6692166974%_ (gx#syntax-e _%hd6691866968%_))) + (let ((_%lp-hd6692266978%_ (let () (declare (not safe)) - (##car _%e6685866911%_))) - (_%lp-tl6686066918%_ + (##car _%e6692166974%_))) + (_%lp-tl6692366981%_ (let () (declare (not safe)) - (##cdr _%e6685866911%_)))) - (_%loop6685766901%_ - _%lp-tl6686066918%_ - (cons _%lp-hd6685966915%_ _%clause6686166908%_)))) - (let ((_%clause6686266921%_ - (reverse _%clause6686166908%_))) - ((lambda (_%L66925%_ _%L66927%_) + (##cdr _%e6692166974%_)))) + (_%loop6692066964%_ + _%lp-tl6692366981%_ + (cons _%lp-hd6692266978%_ _%clause6692466971%_)))) + (let ((_%clause6692566984%_ + (reverse _%clause6692466971%_))) + ((lambda (_%L66988%_ _%L66990%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L66927%_ + (cons _%L66990%_ (cons (cons (gx#datum->syntax '#f 'case-lambda/c) - (foldr (lambda (_%g6694466947%_ + (foldr (lambda (_%g6700767010%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6694566950%_) - (cons _%g6694466947%_ _%g6694566950%_)) + _%g6700867013%_) + (cons _%g6700767010%_ _%g6700867013%_)) '() - _%L66925%_)) + _%L66988%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause6686266921%_ - _%hd6685266889%_)))))) + _%clause6692566984%_ + _%hd6691566952%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6685766901%_ - _%target6685466895%_ + (_%loop6692066964%_ + _%target6691766958%_ '())) - (_%g6684466868%_ - _%g6684566872%_))))) - (_%g6684466868%_ _%g6684566872%_)))) - (_%g6684466868%_ _%g6684566872%_)))) - (_%g6684466868%_ _%g6684566872%_))))) - (_%g6684366953%_ _%$stx66840%_)))) + (_%g6690766931%_ + _%g6690866935%_))))) + (_%g6690766931%_ _%g6690866935%_)))) + (_%g6690766931%_ _%g6690866935%_)))) + (_%g6690766931%_ _%g6690866935%_))))) + (_%g6690667016%_ _%$stx66903%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#case-lambda/c| - (lambda (_%stx66958%_) - (letrec ((_%is-clause-signature?66961%_ - (lambda (_%clause67495%_) - (let* ((_%__stx8247282473%_ _%clause67495%_) - (_%g6749967541%_ + (lambda (_%stx67021%_) + (letrec ((_%is-clause-signature?67024%_ + (lambda (_%clause67558%_) + (let* ((_%__stx8253582536%_ _%clause67558%_) + (_%g6756267604%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8247282473%_)))) - (let ((_%__kont8247582476%_ - (lambda (_%L67673%_ _%L67675%_ _%L67676%_) '#t)) - (_%__kont8247982480%_ - (lambda (_%L67588%_ _%L67590%_) + _%__stx8253582536%_)))) + (let ((_%__kont8253882539%_ + (lambda (_%L67736%_ _%L67738%_ _%L67739%_) '#t)) + (_%__kont8254282543%_ + (lambda (_%L67651%_ _%L67653%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67590%_)))) - (let* ((_%__match8252782528%_ - (lambda (_%e6752467548%_ - _%hd6752567552%_ - _%tl6752667555%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) - (letrec ((_%loop6753067564%_ - (lambda (_%hd6752867568%_ - _%body6753467571%_) + _%L67653%_)))) + (let* ((_%__match8259082591%_ + (lambda (_%e6758767611%_ + _%hd6758867615%_ + _%tl6758967618%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) + (letrec ((_%loop6759367627%_ + (lambda (_%hd6759167631%_ + _%body6759767634%_) (if (gx#stx-pair? - _%hd6752867568%_) - (let ((_%e6753167574%_ + _%hd6759167631%_) + (let ((_%e6759467637%_ (gx#syntax-e - _%hd6752867568%_))) - (let ((_%lp-tl6753367581%_ + _%hd6759167631%_))) + (let ((_%lp-tl6759667644%_ (let () (declare (not safe)) - (##cdr _%e6753167574%_))) - (_%lp-hd6753267578%_ + (##cdr _%e6759467637%_))) + (_%lp-hd6759567641%_ (let () (declare (not safe)) - (##car _%e6753167574%_)))) - (_%loop6753067564%_ - _%lp-tl6753367581%_ - (cons _%lp-hd6753267578%_ - _%body6753467571%_)))) - (let ((_%body6753567584%_ - (reverse _%body6753467571%_))) - (_%__kont8247982480%_ - _%body6753567584%_ - _%hd6752567552%_)))))) - (_%loop6753067564%_ - _%target6752767558%_ + (##car _%e6759467637%_)))) + (_%loop6759367627%_ + _%lp-tl6759667644%_ + (cons _%lp-hd6759567641%_ + _%body6759767634%_)))) + (let ((_%body6759867647%_ + (reverse _%body6759767634%_))) + (_%__kont8254282543%_ + _%body6759867647%_ + _%hd6758867615%_)))))) + (_%loop6759367627%_ + _%target6759067621%_ '())))) - (_%__match8251382514%_ - (lambda (_%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%e6750767623%_ - _%hd6750867627%_ - _%tl6750967630%_ - _%e6751067633%_ - _%hd6751167637%_ - _%tl6751267640%_ - _%__splice8247782478%_ - _%target6751367643%_ - _%tl6751567646%_) - (letrec ((_%loop6751667649%_ - (lambda (_%hd6751467653%_ - _%body6752067656%_) + (_%__match8257682577%_ + (lambda (_%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%e6757067686%_ + _%hd6757167690%_ + _%tl6757267693%_ + _%e6757367696%_ + _%hd6757467700%_ + _%tl6757567703%_ + _%__splice8254082541%_ + _%target6757667706%_ + _%tl6757867709%_) + (letrec ((_%loop6757967712%_ + (lambda (_%hd6757767716%_ + _%body6758367719%_) (if (gx#stx-pair? - _%hd6751467653%_) - (let ((_%e6751767659%_ + _%hd6757767716%_) + (let ((_%e6758067722%_ (gx#syntax-e - _%hd6751467653%_))) - (let ((_%lp-tl6751967666%_ + _%hd6757767716%_))) + (let ((_%lp-tl6758267729%_ (let () (declare (not safe)) - (##cdr _%e6751767659%_))) - (_%lp-hd6751867663%_ + (##cdr _%e6758067722%_))) + (_%lp-hd6758167726%_ (let () (declare (not safe)) - (##car _%e6751767659%_)))) - (_%loop6751667649%_ - _%lp-tl6751967666%_ - (cons _%lp-hd6751867663%_ - _%body6752067656%_)))) - (let ((_%body6752167669%_ - (reverse _%body6752067656%_))) - (_%__kont8247582476%_ - _%body6752167669%_ - _%hd6751167637%_ - _%hd6750567617%_)))))) - (_%loop6751667649%_ - _%target6751367643%_ + (##car _%e6758067722%_)))) + (_%loop6757967712%_ + _%lp-tl6758267729%_ + (cons _%lp-hd6758167726%_ + _%body6758367719%_)))) + (let ((_%body6758467732%_ + (reverse _%body6758367719%_))) + (_%__kont8253882539%_ + _%body6758467732%_ + _%hd6757467700%_ + _%hd6756867680%_)))))) + (_%loop6757967712%_ + _%target6757667706%_ '()))))) - (if (gx#stx-pair? _%__stx8247282473%_) - (let ((_%e6750467613%_ - (gx#syntax-e _%__stx8247282473%_))) - (let ((_%tl6750667620%_ + (if (gx#stx-pair? _%__stx8253582536%_) + (let ((_%e6756767676%_ + (gx#syntax-e _%__stx8253582536%_))) + (let ((_%tl6756967683%_ (let () (declare (not safe)) - (##cdr _%e6750467613%_))) - (_%hd6750567617%_ + (##cdr _%e6756767676%_))) + (_%hd6756867680%_ (let () (declare (not safe)) - (##car _%e6750467613%_)))) - (if (gx#stx-pair? _%tl6750667620%_) - (let ((_%e6750767623%_ - (gx#syntax-e _%tl6750667620%_))) - (let ((_%tl6750967630%_ + (##car _%e6756767676%_)))) + (if (gx#stx-pair? _%tl6756967683%_) + (let ((_%e6757067686%_ + (gx#syntax-e _%tl6756967683%_))) + (let ((_%tl6757267693%_ (let () (declare (not safe)) - (##cdr _%e6750767623%_))) - (_%hd6750867627%_ + (##cdr _%e6757067686%_))) + (_%hd6757167690%_ (let () (declare (not safe)) - (##car _%e6750767623%_)))) - (if (gx#identifier? _%hd6750867627%_) + (##car _%e6757067686%_)))) + (if (gx#identifier? _%hd6757167690%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84195_| - _%hd6750867627%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84258_| + _%hd6757167690%_) (if (gx#stx-pair? - _%tl6750967630%_) - (let ((_%e6751067633%_ + _%tl6757267693%_) + (let ((_%e6757367696%_ (gx#syntax-e - _%tl6750967630%_))) - (let ((_%tl6751267640%_ + _%tl6757267693%_))) + (let ((_%tl6757567703%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6751067633%_))) - (_%hd6751167637%_ - (let () (declare (not safe)) (##car _%e6751067633%_)))) - (if (gx#stx-pair/null? _%tl6751267640%_) - (let ((_%__splice8247782478%_ - (gx#syntax-split-splice _%tl6751267640%_ '0))) - (let ((_%tl6751567646%_ + (##cdr _%e6757367696%_))) + (_%hd6757467700%_ + (let () (declare (not safe)) (##car _%e6757367696%_)))) + (if (gx#stx-pair/null? _%tl6757567703%_) + (let ((_%__splice8254082541%_ + (gx#syntax-split-splice _%tl6757567703%_ '0))) + (let ((_%tl6757867709%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247782478%_ '1))) - (_%target6751367643%_ + (##vector-ref _%__splice8254082541%_ '1))) + (_%target6757667706%_ (let () (declare (not safe)) - (##vector-ref _%__splice8247782478%_ '0)))) - (if (gx#stx-null? _%tl6751567646%_) - (_%__match8251382514%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%e6750767623%_ - _%hd6750867627%_ - _%tl6750967630%_ - _%e6751067633%_ - _%hd6751167637%_ - _%tl6751267640%_ - _%__splice8247782478%_ - _%target6751367643%_ - _%tl6751567646%_) - (if (gx#stx-pair/null? _%tl6750667620%_) - (let ((_%__splice8248182482%_ + (##vector-ref _%__splice8254082541%_ '0)))) + (if (gx#stx-null? _%tl6757867709%_) + (_%__match8257682577%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%e6757067686%_ + _%hd6757167690%_ + _%tl6757267693%_ + _%e6757367696%_ + _%hd6757467700%_ + _%tl6757567703%_ + _%__splice8254082541%_ + _%target6757667706%_ + _%tl6757867709%_) + (if (gx#stx-pair/null? _%tl6756967683%_) + (let ((_%__splice8254482545%_ (gx#syntax-split-splice - _%tl6750667620%_ + _%tl6756967683%_ '0))) - (let ((_%tl6752967561%_ + (let ((_%tl6759267624%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '1))) - (_%target6752767558%_ + (_%target6759067621%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '0)))) - (if (gx#stx-null? _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) + (if (gx#stx-null? _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) (let () (declare (not safe)) - (_%g6749967541%_))))) + (_%g6756267604%_))))) (let () (declare (not safe)) - (_%g6749967541%_)))))) - (if (gx#stx-pair/null? _%tl6750667620%_) - (let ((_%__splice8248182482%_ - (gx#syntax-split-splice _%tl6750667620%_ '0))) - (let ((_%tl6752967561%_ + (_%g6756267604%_)))))) + (if (gx#stx-pair/null? _%tl6756967683%_) + (let ((_%__splice8254482545%_ + (gx#syntax-split-splice _%tl6756967683%_ '0))) + (let ((_%tl6759267624%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248182482%_ '1))) - (_%target6752767558%_ + (##vector-ref _%__splice8254482545%_ '1))) + (_%target6759067621%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '0)))) - (if (gx#stx-null? _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) + (if (gx#stx-null? _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) (let () (declare (not safe)) - (_%g6749967541%_))))) - (let () (declare (not safe)) (_%g6749967541%_)))))) - (if (gx#stx-pair/null? _%tl6750667620%_) - (let ((_%__splice8248182482%_ - (gx#syntax-split-splice _%tl6750667620%_ '0))) - (let ((_%tl6752967561%_ + (_%g6756267604%_))))) + (let () (declare (not safe)) (_%g6756267604%_)))))) + (if (gx#stx-pair/null? _%tl6756967683%_) + (let ((_%__splice8254482545%_ + (gx#syntax-split-splice _%tl6756967683%_ '0))) + (let ((_%tl6759267624%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248182482%_ '1))) - (_%target6752767558%_ + (##vector-ref _%__splice8254482545%_ '1))) + (_%target6759067621%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248182482%_ '0)))) - (if (gx#stx-null? _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) - (let () (declare (not safe)) (_%g6749967541%_))))) - (let () (declare (not safe)) (_%g6749967541%_)))) + (##vector-ref _%__splice8254482545%_ '0)))) + (if (gx#stx-null? _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) + (let () (declare (not safe)) (_%g6756267604%_))))) + (let () (declare (not safe)) (_%g6756267604%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6750667620%_) - (let ((_%__splice8248182482%_ + _%tl6756967683%_) + (let ((_%__splice8254482545%_ (gx#syntax-split-splice - _%tl6750667620%_ + _%tl6756967683%_ '0))) - (let ((_%tl6752967561%_ + (let ((_%tl6759267624%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8248182482%_ '1))) - (_%target6752767558%_ + (##vector-ref _%__splice8254482545%_ '1))) + (_%target6759067621%_ (let () (declare (not safe)) - (##vector-ref _%__splice8248182482%_ '0)))) - (if (gx#stx-null? _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) - (let () (declare (not safe)) (_%g6749967541%_))))) - (let () (declare (not safe)) (_%g6749967541%_)))) + (##vector-ref _%__splice8254482545%_ '0)))) + (if (gx#stx-null? _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) + (let () (declare (not safe)) (_%g6756267604%_))))) + (let () (declare (not safe)) (_%g6756267604%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6750667620%_) - (let ((_%__splice8248182482%_ + _%tl6756967683%_) + (let ((_%__splice8254482545%_ (gx#syntax-split-splice - _%tl6750667620%_ + _%tl6756967683%_ '0))) - (let ((_%tl6752967561%_ + (let ((_%tl6759267624%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '1))) - (_%target6752767558%_ + (_%target6759067621%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '0)))) (if (gx#stx-null? - _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) + _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) (let () (declare (not safe)) - (_%g6749967541%_))))) + (_%g6756267604%_))))) (let () (declare (not safe)) - (_%g6749967541%_)))))) - (if (gx#stx-pair/null? _%tl6750667620%_) - (let ((_%__splice8248182482%_ + (_%g6756267604%_)))))) + (if (gx#stx-pair/null? _%tl6756967683%_) + (let ((_%__splice8254482545%_ (gx#syntax-split-splice - _%tl6750667620%_ + _%tl6756967683%_ '0))) - (let ((_%tl6752967561%_ + (let ((_%tl6759267624%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '1))) - (_%target6752767558%_ + (_%target6759067621%_ (let () (declare (not safe)) (##vector-ref - _%__splice8248182482%_ + _%__splice8254482545%_ '0)))) (if (gx#stx-null? - _%tl6752967561%_) - (_%__match8252782528%_ - _%e6750467613%_ - _%hd6750567617%_ - _%tl6750667620%_ - _%__splice8248182482%_ - _%target6752767558%_ - _%tl6752967561%_) + _%tl6759267624%_) + (_%__match8259082591%_ + _%e6756767676%_ + _%hd6756867680%_ + _%tl6756967683%_ + _%__splice8254482545%_ + _%target6759067621%_ + _%tl6759267624%_) (let () (declare (not safe)) - (_%g6749967541%_))))) + (_%g6756267604%_))))) (let () (declare (not safe)) - (_%g6749967541%_)))))) + (_%g6756267604%_)))))) (let () (declare (not safe)) - (_%g6749967541%_)))))))) - (_%clause-e66963%_ - (lambda (_%clause67235%_) - (let* ((_%__stx8253082531%_ _%clause67235%_) - (_%g6723967281%_ + (_%g6756267604%_)))))))) + (_%clause-e67026%_ + (lambda (_%clause67298%_) + (let* ((_%__stx8259382594%_ _%clause67298%_) + (_%g6730267344%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8253082531%_)))) - (let ((_%__kont8253382534%_ - (lambda (_%L67421%_ _%L67423%_ _%L67424%_) + _%__stx8259382594%_)))) + (let ((_%__kont8259682597%_ + (lambda (_%L67484%_ _%L67486%_ _%L67487%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67424%_) + _%L67487%_) (begin (let () (declare (not safe)) @@ -4090,652 +4090,652 @@ '#f '#f '#f - _%stx66958%_ - _%L67424%_ - _%L67423%_)) - (let* ((_%g6744467452%_ - (lambda (_%g6744567448%_) + _%stx67021%_ + _%L67487%_ + _%L67486%_)) + (let* ((_%g6750767515%_ + (lambda (_%g6750867511%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6744567448%_))) - (_%g6744367479%_ - (lambda (_%g6744567456%_) - ((lambda (_%L67459%_) - (cons _%L67459%_ + _%g6750867511%_))) + (_%g6750667542%_ + (lambda (_%g6750867519%_) + ((lambda (_%L67522%_) + (cons _%L67522%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'with-procedure-signature) - (cons (cons _%L67424%_ - (cons _%L67423%_ (cons '#f '()))) + (cons (cons _%L67487%_ + (cons _%L67486%_ (cons '#f '()))) (cons (cons (gx#datum->syntax '#f 'with-procedure-contract) - (cons _%L67424%_ - (foldr (lambda (_%g6747067473%_ + (cons _%L67487%_ + (foldr (lambda (_%g6753367536%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6747167476%_) - (cons _%g6747067473%_ _%g6747167476%_)) + _%g6753467539%_) + (cons _%g6753367536%_ _%g6753467539%_)) '() - _%L67421%_))) + _%L67484%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6744567456%_)))) - (_%g6744367479%_ + _%g6750867519%_)))) + (_%g6750667542%_ (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#signature-arguments-in| - _%L67424%_))))) - (cons _%L67424%_ + _%L67487%_))))) + (cons _%L67487%_ (cons (cons (gx#datum->syntax '#f 'with-procedure-signature) (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L67423%_ (cons '#f '()))) - (foldr (lambda (_%g6748267485%_ _%g6748367488%_) - (cons _%g6748267485%_ _%g6748367488%_)) + (cons _%L67486%_ (cons '#f '()))) + (foldr (lambda (_%g6754567548%_ _%g6754667551%_) + (cons _%g6754567548%_ _%g6754667551%_)) '() - _%L67421%_))) + _%L67484%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont8253782538%_ - (lambda (_%L67328%_ _%L67330%_) + (_%__kont8260082601%_ + (lambda (_%L67391%_ _%L67393%_) (if (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - _%L67330%_) - (_%clause-e66963%_ - (cons _%L67330%_ + _%L67393%_) + (_%clause-e67026%_ + (cons _%L67393%_ (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6734567348%_ + (foldr (lambda (_%g6740867411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6734667351%_) - (cons _%g6734567348%_ _%g6734667351%_)) + _%g6740967414%_) + (cons _%g6740867411%_ _%g6740967414%_)) '() - _%L67328%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%clause67235%_)))) - (let* ((_%__match8258582586%_ - (lambda (_%e6726467288%_ - _%hd6726567292%_ - _%tl6726667295%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) - (letrec ((_%loop6727067304%_ - (lambda (_%hd6726867308%_ - _%body6727467311%_) + _%L67391%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%clause67298%_)))) + (let* ((_%__match8264882649%_ + (lambda (_%e6732767351%_ + _%hd6732867355%_ + _%tl6732967358%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) + (letrec ((_%loop6733367367%_ + (lambda (_%hd6733167371%_ + _%body6733767374%_) (if (gx#stx-pair? - _%hd6726867308%_) - (let ((_%e6727167314%_ + _%hd6733167371%_) + (let ((_%e6733467377%_ (gx#syntax-e - _%hd6726867308%_))) - (let ((_%lp-tl6727367321%_ + _%hd6733167371%_))) + (let ((_%lp-tl6733667384%_ (let () (declare (not safe)) - (##cdr _%e6727167314%_))) - (_%lp-hd6727267318%_ + (##cdr _%e6733467377%_))) + (_%lp-hd6733567381%_ (let () (declare (not safe)) - (##car _%e6727167314%_)))) - (_%loop6727067304%_ - _%lp-tl6727367321%_ - (cons _%lp-hd6727267318%_ - _%body6727467311%_)))) - (let ((_%body6727567324%_ - (reverse _%body6727467311%_))) - (_%__kont8253782538%_ - _%body6727567324%_ - _%hd6726567292%_)))))) - (_%loop6727067304%_ - _%target6726767298%_ + (##car _%e6733467377%_)))) + (_%loop6733367367%_ + _%lp-tl6733667384%_ + (cons _%lp-hd6733567381%_ + _%body6733767374%_)))) + (let ((_%body6733867387%_ + (reverse _%body6733767374%_))) + (_%__kont8260082601%_ + _%body6733867387%_ + _%hd6732867355%_)))))) + (_%loop6733367367%_ + _%target6733067361%_ '())))) - (_%__match8257182572%_ - (lambda (_%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%e6724767371%_ - _%hd6724867375%_ - _%tl6724967378%_ - _%e6725067381%_ - _%hd6725167385%_ - _%tl6725267388%_ - _%__splice8253582536%_ - _%target6725367391%_ - _%tl6725567394%_) - (letrec ((_%loop6725667397%_ - (lambda (_%hd6725467401%_ - _%body6726067404%_) + (_%__match8263482635%_ + (lambda (_%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%e6731067434%_ + _%hd6731167438%_ + _%tl6731267441%_ + _%e6731367444%_ + _%hd6731467448%_ + _%tl6731567451%_ + _%__splice8259882599%_ + _%target6731667454%_ + _%tl6731867457%_) + (letrec ((_%loop6731967460%_ + (lambda (_%hd6731767464%_ + _%body6732367467%_) (if (gx#stx-pair? - _%hd6725467401%_) - (let ((_%e6725767407%_ + _%hd6731767464%_) + (let ((_%e6732067470%_ (gx#syntax-e - _%hd6725467401%_))) - (let ((_%lp-tl6725967414%_ + _%hd6731767464%_))) + (let ((_%lp-tl6732267477%_ (let () (declare (not safe)) - (##cdr _%e6725767407%_))) - (_%lp-hd6725867411%_ + (##cdr _%e6732067470%_))) + (_%lp-hd6732167474%_ (let () (declare (not safe)) - (##car _%e6725767407%_)))) - (_%loop6725667397%_ - _%lp-tl6725967414%_ - (cons _%lp-hd6725867411%_ - _%body6726067404%_)))) - (let ((_%body6726167417%_ - (reverse _%body6726067404%_))) - (_%__kont8253382534%_ - _%body6726167417%_ - _%hd6725167385%_ - _%hd6724567365%_)))))) - (_%loop6725667397%_ - _%target6725367391%_ + (##car _%e6732067470%_)))) + (_%loop6731967460%_ + _%lp-tl6732267477%_ + (cons _%lp-hd6732167474%_ + _%body6732367467%_)))) + (let ((_%body6732467480%_ + (reverse _%body6732367467%_))) + (_%__kont8259682597%_ + _%body6732467480%_ + _%hd6731467448%_ + _%hd6730867428%_)))))) + (_%loop6731967460%_ + _%target6731667454%_ '()))))) - (if (gx#stx-pair? _%__stx8253082531%_) - (let ((_%e6724467361%_ - (gx#syntax-e _%__stx8253082531%_))) - (let ((_%tl6724667368%_ + (if (gx#stx-pair? _%__stx8259382594%_) + (let ((_%e6730767424%_ + (gx#syntax-e _%__stx8259382594%_))) + (let ((_%tl6730967431%_ (let () (declare (not safe)) - (##cdr _%e6724467361%_))) - (_%hd6724567365%_ + (##cdr _%e6730767424%_))) + (_%hd6730867428%_ (let () (declare (not safe)) - (##car _%e6724467361%_)))) - (if (gx#stx-pair? _%tl6724667368%_) - (let ((_%e6724767371%_ - (gx#syntax-e _%tl6724667368%_))) - (let ((_%tl6724967378%_ + (##car _%e6730767424%_)))) + (if (gx#stx-pair? _%tl6730967431%_) + (let ((_%e6731067434%_ + (gx#syntax-e _%tl6730967431%_))) + (let ((_%tl6731267441%_ (let () (declare (not safe)) - (##cdr _%e6724767371%_))) - (_%hd6724867375%_ + (##cdr _%e6731067434%_))) + (_%hd6731167438%_ (let () (declare (not safe)) - (##car _%e6724767371%_)))) - (if (gx#identifier? _%hd6724867375%_) + (##car _%e6731067434%_)))) + (if (gx#identifier? _%hd6731167438%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84196_| - _%hd6724867375%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84259_| + _%hd6731167438%_) (if (gx#stx-pair? - _%tl6724967378%_) - (let ((_%e6725067381%_ + _%tl6731267441%_) + (let ((_%e6731367444%_ (gx#syntax-e - _%tl6724967378%_))) - (let ((_%tl6725267388%_ + _%tl6731267441%_))) + (let ((_%tl6731567451%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6725067381%_))) - (_%hd6725167385%_ - (let () (declare (not safe)) (##car _%e6725067381%_)))) - (if (gx#stx-pair/null? _%tl6725267388%_) - (let ((_%__splice8253582536%_ - (gx#syntax-split-splice _%tl6725267388%_ '0))) - (let ((_%tl6725567394%_ + (##cdr _%e6731367444%_))) + (_%hd6731467448%_ + (let () (declare (not safe)) (##car _%e6731367444%_)))) + (if (gx#stx-pair/null? _%tl6731567451%_) + (let ((_%__splice8259882599%_ + (gx#syntax-split-splice _%tl6731567451%_ '0))) + (let ((_%tl6731867457%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253582536%_ '1))) - (_%target6725367391%_ + (##vector-ref _%__splice8259882599%_ '1))) + (_%target6731667454%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253582536%_ '0)))) - (if (gx#stx-null? _%tl6725567394%_) - (_%__match8257182572%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%e6724767371%_ - _%hd6724867375%_ - _%tl6724967378%_ - _%e6725067381%_ - _%hd6725167385%_ - _%tl6725267388%_ - _%__splice8253582536%_ - _%target6725367391%_ - _%tl6725567394%_) - (if (gx#stx-pair/null? _%tl6724667368%_) - (let ((_%__splice8253982540%_ + (##vector-ref _%__splice8259882599%_ '0)))) + (if (gx#stx-null? _%tl6731867457%_) + (_%__match8263482635%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%e6731067434%_ + _%hd6731167438%_ + _%tl6731267441%_ + _%e6731367444%_ + _%hd6731467448%_ + _%tl6731567451%_ + _%__splice8259882599%_ + _%target6731667454%_ + _%tl6731867457%_) + (if (gx#stx-pair/null? _%tl6730967431%_) + (let ((_%__splice8260282603%_ (gx#syntax-split-splice - _%tl6724667368%_ + _%tl6730967431%_ '0))) - (let ((_%tl6726967301%_ + (let ((_%tl6733267364%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '1))) - (_%target6726767298%_ + (_%target6733067361%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '0)))) - (if (gx#stx-null? _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) + (if (gx#stx-null? _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) (let () (declare (not safe)) - (_%g6723967281%_))))) + (_%g6730267344%_))))) (let () (declare (not safe)) - (_%g6723967281%_)))))) - (if (gx#stx-pair/null? _%tl6724667368%_) - (let ((_%__splice8253982540%_ - (gx#syntax-split-splice _%tl6724667368%_ '0))) - (let ((_%tl6726967301%_ + (_%g6730267344%_)))))) + (if (gx#stx-pair/null? _%tl6730967431%_) + (let ((_%__splice8260282603%_ + (gx#syntax-split-splice _%tl6730967431%_ '0))) + (let ((_%tl6733267364%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253982540%_ '1))) - (_%target6726767298%_ + (##vector-ref _%__splice8260282603%_ '1))) + (_%target6733067361%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '0)))) - (if (gx#stx-null? _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) + (if (gx#stx-null? _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) (let () (declare (not safe)) - (_%g6723967281%_))))) - (let () (declare (not safe)) (_%g6723967281%_)))))) - (if (gx#stx-pair/null? _%tl6724667368%_) - (let ((_%__splice8253982540%_ - (gx#syntax-split-splice _%tl6724667368%_ '0))) - (let ((_%tl6726967301%_ + (_%g6730267344%_))))) + (let () (declare (not safe)) (_%g6730267344%_)))))) + (if (gx#stx-pair/null? _%tl6730967431%_) + (let ((_%__splice8260282603%_ + (gx#syntax-split-splice _%tl6730967431%_ '0))) + (let ((_%tl6733267364%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253982540%_ '1))) - (_%target6726767298%_ + (##vector-ref _%__splice8260282603%_ '1))) + (_%target6733067361%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253982540%_ '0)))) - (if (gx#stx-null? _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) - (let () (declare (not safe)) (_%g6723967281%_))))) - (let () (declare (not safe)) (_%g6723967281%_)))) + (##vector-ref _%__splice8260282603%_ '0)))) + (if (gx#stx-null? _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) + (let () (declare (not safe)) (_%g6730267344%_))))) + (let () (declare (not safe)) (_%g6730267344%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6724667368%_) - (let ((_%__splice8253982540%_ + _%tl6730967431%_) + (let ((_%__splice8260282603%_ (gx#syntax-split-splice - _%tl6724667368%_ + _%tl6730967431%_ '0))) - (let ((_%tl6726967301%_ + (let ((_%tl6733267364%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8253982540%_ '1))) - (_%target6726767298%_ + (##vector-ref _%__splice8260282603%_ '1))) + (_%target6733067361%_ (let () (declare (not safe)) - (##vector-ref _%__splice8253982540%_ '0)))) - (if (gx#stx-null? _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) - (let () (declare (not safe)) (_%g6723967281%_))))) - (let () (declare (not safe)) (_%g6723967281%_)))) + (##vector-ref _%__splice8260282603%_ '0)))) + (if (gx#stx-null? _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) + (let () (declare (not safe)) (_%g6730267344%_))))) + (let () (declare (not safe)) (_%g6730267344%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl6724667368%_) - (let ((_%__splice8253982540%_ + _%tl6730967431%_) + (let ((_%__splice8260282603%_ (gx#syntax-split-splice - _%tl6724667368%_ + _%tl6730967431%_ '0))) - (let ((_%tl6726967301%_ + (let ((_%tl6733267364%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '1))) - (_%target6726767298%_ + (_%target6733067361%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '0)))) (if (gx#stx-null? - _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) + _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) (let () (declare (not safe)) - (_%g6723967281%_))))) + (_%g6730267344%_))))) (let () (declare (not safe)) - (_%g6723967281%_)))))) - (if (gx#stx-pair/null? _%tl6724667368%_) - (let ((_%__splice8253982540%_ + (_%g6730267344%_)))))) + (if (gx#stx-pair/null? _%tl6730967431%_) + (let ((_%__splice8260282603%_ (gx#syntax-split-splice - _%tl6724667368%_ + _%tl6730967431%_ '0))) - (let ((_%tl6726967301%_ + (let ((_%tl6733267364%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '1))) - (_%target6726767298%_ + (_%target6733067361%_ (let () (declare (not safe)) (##vector-ref - _%__splice8253982540%_ + _%__splice8260282603%_ '0)))) (if (gx#stx-null? - _%tl6726967301%_) - (_%__match8258582586%_ - _%e6724467361%_ - _%hd6724567365%_ - _%tl6724667368%_ - _%__splice8253982540%_ - _%target6726767298%_ - _%tl6726967301%_) + _%tl6733267364%_) + (_%__match8264882649%_ + _%e6730767424%_ + _%hd6730867428%_ + _%tl6730967431%_ + _%__splice8260282603%_ + _%target6733067361%_ + _%tl6733267364%_) (let () (declare (not safe)) - (_%g6723967281%_))))) + (_%g6730267344%_))))) (let () (declare (not safe)) - (_%g6723967281%_)))))) + (_%g6730267344%_)))))) (let () (declare (not safe)) - (_%g6723967281%_))))))))) - (let* ((_%__stx8258882589%_ _%stx66958%_) - (_%g6696666999%_ + (_%g6730267344%_))))))))) + (let* ((_%__stx8265182652%_ _%stx67021%_) + (_%g6702967062%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8258882589%_)))) - (let ((_%__kont8259182592%_ - (lambda (_%L67118%_) - (let* ((_%g6714167158%_ - (lambda (_%g6714267154%_) + _%__stx8265182652%_)))) + (let ((_%__kont8265482655%_ + (lambda (_%L67181%_) + (let* ((_%g6720467221%_ + (lambda (_%g6720567217%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6714267154%_))) - (_%g6714067219%_ - (lambda (_%g6714267162%_) - (if (gx#stx-pair/null? _%g6714267162%_) - (let ((_g84197_ + _%g6720567217%_))) + (_%g6720367282%_ + (lambda (_%g6720567225%_) + (if (gx#stx-pair/null? _%g6720567225%_) + (let ((_g84260_ (gx#syntax-split-splice - _%g6714267162%_ + _%g6720567225%_ '0))) (begin - (let ((_g84198_ + (let ((_g84261_ (let () (declare (not safe)) - (if (##values? _g84197_) - (##vector-length _g84197_) + (if (##values? _g84260_) + (##values-length _g84260_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84198_ 2))) + (##fx= _g84261_ 2))) (error "Context expects 2 values" - _g84198_))) - (let ((_%target6714467165%_ + _g84261_))) + (let ((_%target6720767228%_ (let () (declare (not safe)) - (##vector-ref _g84197_ 0))) - (_%tl6714667168%_ + (##values-ref _g84260_ 0))) + (_%tl6720967231%_ (let () (declare (not safe)) - (##vector-ref _g84197_ 1)))) - (if (gx#stx-null? _%tl6714667168%_) - (letrec ((_%loop6714767171%_ - (lambda (_%hd6714567175%_ - _%clause6715167178%_) + (##values-ref _g84260_ 1)))) + (if (gx#stx-null? _%tl6720967231%_) + (letrec ((_%loop6721067234%_ + (lambda (_%hd6720867238%_ + _%clause6721467241%_) (if (gx#stx-pair? - _%hd6714567175%_) - (let ((_%e6714867181%_ + _%hd6720867238%_) + (let ((_%e6721167244%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6714567175%_))) - (let ((_%lp-hd6714967185%_ + (gx#syntax-e _%hd6720867238%_))) + (let ((_%lp-hd6721267248%_ (let () (declare (not safe)) - (##car _%e6714867181%_))) - (_%lp-tl6715067188%_ + (##car _%e6721167244%_))) + (_%lp-tl6721367251%_ (let () (declare (not safe)) - (##cdr _%e6714867181%_)))) - (_%loop6714767171%_ - _%lp-tl6715067188%_ - (cons _%lp-hd6714967185%_ _%clause6715167178%_)))) - (let ((_%clause6715267191%_ - (reverse _%clause6715167178%_))) - ((lambda (_%L67195%_) + (##cdr _%e6721167244%_)))) + (_%loop6721067234%_ + _%lp-tl6721367251%_ + (cons _%lp-hd6721267248%_ _%clause6721467241%_)))) + (let ((_%clause6721567254%_ + (reverse _%clause6721467241%_))) + ((lambda (_%L67258%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6721067213%_ - _%g6721167216%_) - (cons _%g6721067213%_ - _%g6721167216%_)) + (foldr (lambda (_%g6727367276%_ + _%g6727467279%_) + (cons _%g6727367276%_ + _%g6727467279%_)) '() - _%L67195%_))) - _%clause6715267191%_)))))) + _%L67258%_))) + _%clause6721567254%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6714767171%_ - _%target6714467165%_ + (_%loop6721067234%_ + _%target6720767228%_ '())) - (_%g6714167158%_ - _%g6714267162%_))))) - (_%g6714167158%_ _%g6714267162%_))))) - (_%g6714067219%_ - (map _%clause-e66963%_ - (foldr (lambda (_%g6722267225%_ _%g6722367228%_) - (cons _%g6722267225%_ _%g6722367228%_)) + (_%g6720467221%_ + _%g6720567225%_))))) + (_%g6720467221%_ _%g6720567225%_))))) + (_%g6720367282%_ + (map _%clause-e67026%_ + (foldr (lambda (_%g6728567288%_ _%g6728667291%_) + (cons _%g6728567288%_ _%g6728667291%_)) '() - _%L67118%_)))))) - (_%__kont8259582596%_ - (lambda (_%L67046%_) + _%L67181%_)))))) + (_%__kont8265882659%_ + (lambda (_%L67109%_) (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g6706267065%_ _%g6706367068%_) - (cons _%g6706267065%_ _%g6706367068%_)) + (foldr (lambda (_%g6712567128%_ _%g6712667131%_) + (cons _%g6712567128%_ _%g6712667131%_)) '() - _%L67046%_))))) - (let* ((_%__match8262782628%_ - (lambda (_%e6698267006%_ - _%hd6698367010%_ - _%tl6698467013%_ - _%__splice8259782598%_ - _%target6698567016%_ - _%tl6698767019%_) - (letrec ((_%loop6698867022%_ - (lambda (_%hd6698667026%_ - _%clause6699267029%_) - (if (gx#stx-pair? _%hd6698667026%_) - (let ((_%e6698967032%_ - (gx#syntax-e _%hd6698667026%_))) - (let ((_%lp-tl6699167039%_ + _%L67109%_))))) + (let* ((_%__match8269082691%_ + (lambda (_%e6704567069%_ + _%hd6704667073%_ + _%tl6704767076%_ + _%__splice8266082661%_ + _%target6704867079%_ + _%tl6705067082%_) + (letrec ((_%loop6705167085%_ + (lambda (_%hd6704967089%_ + _%clause6705567092%_) + (if (gx#stx-pair? _%hd6704967089%_) + (let ((_%e6705267095%_ + (gx#syntax-e _%hd6704967089%_))) + (let ((_%lp-tl6705467102%_ (let () (declare (not safe)) - (##cdr _%e6698967032%_))) - (_%lp-hd6699067036%_ + (##cdr _%e6705267095%_))) + (_%lp-hd6705367099%_ (let () (declare (not safe)) - (##car _%e6698967032%_)))) - (_%loop6698867022%_ - _%lp-tl6699167039%_ - (cons _%lp-hd6699067036%_ - _%clause6699267029%_)))) - (let ((_%clause6699367042%_ - (reverse _%clause6699267029%_))) - (_%__kont8259582596%_ - _%clause6699367042%_)))))) - (_%loop6698867022%_ _%target6698567016%_ '())))) - (_%__match8261382614%_ - (lambda (_%e6696967078%_ - _%hd6697067082%_ - _%tl6697167085%_ - _%__splice8259382594%_ - _%target6697267088%_ - _%tl6697467091%_) - (letrec ((_%loop6697567094%_ - (lambda (_%hd6697367098%_ - _%clause6697967101%_) - (if (gx#stx-pair? _%hd6697367098%_) - (let ((_%e6697667104%_ - (gx#syntax-e _%hd6697367098%_))) - (let ((_%lp-tl6697867111%_ + (##car _%e6705267095%_)))) + (_%loop6705167085%_ + _%lp-tl6705467102%_ + (cons _%lp-hd6705367099%_ + _%clause6705567092%_)))) + (let ((_%clause6705667105%_ + (reverse _%clause6705567092%_))) + (_%__kont8265882659%_ + _%clause6705667105%_)))))) + (_%loop6705167085%_ _%target6704867079%_ '())))) + (_%__match8267682677%_ + (lambda (_%e6703267141%_ + _%hd6703367145%_ + _%tl6703467148%_ + _%__splice8265682657%_ + _%target6703567151%_ + _%tl6703767154%_) + (letrec ((_%loop6703867157%_ + (lambda (_%hd6703667161%_ + _%clause6704267164%_) + (if (gx#stx-pair? _%hd6703667161%_) + (let ((_%e6703967167%_ + (gx#syntax-e _%hd6703667161%_))) + (let ((_%lp-tl6704167174%_ (let () (declare (not safe)) - (##cdr _%e6697667104%_))) - (_%lp-hd6697767108%_ + (##cdr _%e6703967167%_))) + (_%lp-hd6704067171%_ (let () (declare (not safe)) - (##car _%e6697667104%_)))) - (_%loop6697567094%_ - _%lp-tl6697867111%_ - (cons _%lp-hd6697767108%_ - _%clause6697967101%_)))) - (let* ((_%clause6698067114%_ - (reverse _%clause6697967101%_)) - (_%L67118%_ - _%clause6698067114%_)) - (if (ormap _%is-clause-signature?66961%_ - (foldr (lambda (_%g6713267135%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6713367138%_) - (cons _%g6713267135%_ _%g6713367138%_)) + (##car _%e6703967167%_)))) + (_%loop6703867157%_ + _%lp-tl6704167174%_ + (cons _%lp-hd6704067171%_ + _%clause6704267164%_)))) + (let* ((_%clause6704367177%_ + (reverse _%clause6704267164%_)) + (_%L67181%_ + _%clause6704367177%_)) + (if (ormap _%is-clause-signature?67024%_ + (foldr (lambda (_%g6719567198%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g6719667201%_) + (cons _%g6719567198%_ _%g6719667201%_)) '() - _%L67118%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8259182592%_ _%L67118%_) - (_%__match8262782628%_ - _%e6696967078%_ - _%hd6697067082%_ - _%tl6697167085%_ - _%__splice8259382594%_ - _%target6697267088%_ - _%tl6697467091%_))))))) - (_%loop6697567094%_ _%target6697267088%_ '()))))) - (if (gx#stx-pair? _%__stx8258882589%_) - (let ((_%e6696967078%_ (gx#syntax-e _%__stx8258882589%_))) - (let ((_%tl6697167085%_ + _%L67181%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8265482655%_ _%L67181%_) + (_%__match8269082691%_ + _%e6703267141%_ + _%hd6703367145%_ + _%tl6703467148%_ + _%__splice8265682657%_ + _%target6703567151%_ + _%tl6703767154%_))))))) + (_%loop6703867157%_ _%target6703567151%_ '()))))) + (if (gx#stx-pair? _%__stx8265182652%_) + (let ((_%e6703267141%_ (gx#syntax-e _%__stx8265182652%_))) + (let ((_%tl6703467148%_ (let () (declare (not safe)) - (##cdr _%e6696967078%_))) - (_%hd6697067082%_ + (##cdr _%e6703267141%_))) + (_%hd6703367145%_ (let () (declare (not safe)) - (##car _%e6696967078%_)))) - (if (gx#stx-pair/null? _%tl6697167085%_) - (let ((_%__splice8259382594%_ + (##car _%e6703267141%_)))) + (if (gx#stx-pair/null? _%tl6703467148%_) + (let ((_%__splice8265682657%_ (gx#syntax-split-splice - _%tl6697167085%_ + _%tl6703467148%_ '0))) - (let ((_%tl6697467091%_ + (let ((_%tl6703767154%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8265682657%_ '1))) - (_%target6697267088%_ + (_%target6703567151%_ (let () (declare (not safe)) (##vector-ref - _%__splice8259382594%_ + _%__splice8265682657%_ '0)))) - (if (gx#stx-null? _%tl6697467091%_) - (_%__match8261382614%_ - _%e6696967078%_ - _%hd6697067082%_ - _%tl6697167085%_ - _%__splice8259382594%_ - _%target6697267088%_ - _%tl6697467091%_) + (if (gx#stx-null? _%tl6703767154%_) + (_%__match8267682677%_ + _%e6703267141%_ + _%hd6703367145%_ + _%tl6703467148%_ + _%__splice8265682657%_ + _%target6703567151%_ + _%tl6703767154%_) (let () (declare (not safe)) - (_%g6696666999%_))))) - (let () (declare (not safe)) (_%g6696666999%_))))) - (let () (declare (not safe)) (_%g6696666999%_))))))))) + (_%g6702967062%_))))) + (let () (declare (not safe)) (_%g6702967062%_))))) + (let () (declare (not safe)) (_%g6702967062%_))))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#@method| - (lambda (_%stx67707%_) - (let* ((_%__stx8263082631%_ _%stx67707%_) - (_%g6771167756%_ + (lambda (_%stx67770%_) + (let* ((_%__stx8269382694%_ _%stx67770%_) + (_%g6777467819%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8263082631%_)))) - (let ((_%__kont8263382634%_ - (lambda (_%L67912%_ _%L67914%_) - (let* ((_%str67931%_ (symbol->string (gx#stx-e _%L67914%_))) - (_%ix67934%_ (string-rindex _%str67931%_ '#\.)) - (_%g6793967954%_ - (lambda (_%g6794067950%_) + _%__stx8269382694%_)))) + (let ((_%__kont8269682697%_ + (lambda (_%L67975%_ _%L67977%_) + (let* ((_%str67994%_ (symbol->string (gx#stx-e _%L67977%_))) + (_%ix67997%_ (string-rindex _%str67994%_ '#\.)) + (_%g6800268017%_ + (lambda (_%g6800368013%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6794067950%_))) - (_%g6793868010%_ - (lambda (_%g6794067958%_) - (if (gx#stx-pair? _%g6794067958%_) - (let ((_%e6794367961%_ - (gx#syntax-e _%g6794067958%_))) - (let ((_%hd6794467965%_ + _%g6800368013%_))) + (_%g6800168073%_ + (lambda (_%g6800368021%_) + (if (gx#stx-pair? _%g6800368021%_) + (let ((_%e6800668024%_ + (gx#syntax-e _%g6800368021%_))) + (let ((_%hd6800768028%_ (let () (declare (not safe)) - (##car _%e6794367961%_))) - (_%tl6794567968%_ + (##car _%e6800668024%_))) + (_%tl6800868031%_ (let () (declare (not safe)) - (##cdr _%e6794367961%_)))) - (if (gx#stx-pair? _%tl6794567968%_) - (let ((_%e6794667971%_ + (##cdr _%e6800668024%_)))) + (if (gx#stx-pair? _%tl6800868031%_) + (let ((_%e6800968034%_ (gx#syntax-e - _%tl6794567968%_))) - (let ((_%hd6794767975%_ + _%tl6800868031%_))) + (let ((_%hd6801068038%_ (let () (declare (not safe)) - (##car _%e6794667971%_))) - (_%tl6794867978%_ + (##car _%e6800968034%_))) + (_%tl6801168041%_ (let () (declare (not safe)) - (##cdr _%e6794667971%_)))) + (##cdr _%e6800968034%_)))) (if (gx#stx-null? - _%tl6794867978%_) - ((lambda (_%L67981%_ - _%L67983%_) + _%tl6801168041%_) + ((lambda (_%L68044%_ + _%L68046%_) (cons (gx#datum->syntax '#f 'call-method) @@ -4743,1970 +4743,1970 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '%%ref-dotted) - (cons _%L67983%_ '())) + (cons _%L68046%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67981%_ '())) - (foldr (lambda (_%g6800168004%_ _%g6800268007%_) - (cons _%g6800168004%_ _%g6800268007%_)) + (cons _%L68044%_ '())) + (foldr (lambda (_%g6806468067%_ _%g6806568070%_) + (cons _%g6806468067%_ _%g6806568070%_)) '() - _%L67912%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd6794767975%_ - _%hd6794467965%_) - (_%g6793967954%_ - _%g6794067958%_)))) - (_%g6793967954%_ _%g6794067958%_)))) - (_%g6793967954%_ _%g6794067958%_))))) - (_%g6793868010%_ + _%L67975%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd6801068038%_ + _%hd6800768028%_) + (_%g6800268017%_ + _%g6800368021%_)))) + (_%g6800268017%_ _%g6800368021%_)))) + (_%g6800268017%_ _%g6800368021%_))))) + (_%g6800168073%_ (list (gx#stx-identifier - _%L67914%_ - (substring _%str67931%_ '0 _%ix67934%_)) - (let ((__tmp84199 + _%L67977%_ + (substring _%str67994%_ '0 _%ix67997%_)) + (let ((__tmp84262 (substring - _%str67931%_ - (fx1+ _%ix67934%_) - (string-length _%str67931%_)))) + _%str67994%_ + (fx1+ _%ix67997%_) + (string-length _%str67994%_)))) (declare (not safe)) - (##string->symbol __tmp84199))))))) - (_%__kont8263782638%_ - (lambda (_%L67823%_ _%L67825%_ _%L67826%_) + (##string->symbol __tmp84262))))))) + (_%__kont8270082701%_ + (lambda (_%L67886%_ _%L67888%_ _%L67889%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L67825%_ + (cons _%L67888%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L67826%_ '())) - (foldr (lambda (_%g6784667849%_ - _%g6784767852%_) - (cons _%g6784667849%_ - _%g6784767852%_)) + (cons _%L67889%_ '())) + (foldr (lambda (_%g6790967912%_ + _%g6791067915%_) + (cons _%g6790967912%_ + _%g6791067915%_)) '() - _%L67823%_))))))) - (let* ((_%__match8268782688%_ - (lambda (_%e6773367763%_ - _%hd6773467767%_ - _%tl6773567770%_ - _%e6773667773%_ - _%hd6773767777%_ - _%tl6773867780%_ - _%e6773967783%_ - _%hd6774067787%_ - _%tl6774167790%_ - _%__splice8263982640%_ - _%target6774267793%_ - _%tl6774467796%_) - (letrec ((_%loop6774567799%_ - (lambda (_%hd6774367803%_ _%arg6774967806%_) - (if (gx#stx-pair? _%hd6774367803%_) - (let ((_%e6774667809%_ - (gx#syntax-e _%hd6774367803%_))) - (let ((_%lp-tl6774867816%_ + _%L67886%_))))))) + (let* ((_%__match8275082751%_ + (lambda (_%e6779667826%_ + _%hd6779767830%_ + _%tl6779867833%_ + _%e6779967836%_ + _%hd6780067840%_ + _%tl6780167843%_ + _%e6780267846%_ + _%hd6780367850%_ + _%tl6780467853%_ + _%__splice8270282703%_ + _%target6780567856%_ + _%tl6780767859%_) + (letrec ((_%loop6780867862%_ + (lambda (_%hd6780667866%_ _%arg6781267869%_) + (if (gx#stx-pair? _%hd6780667866%_) + (let ((_%e6780967872%_ + (gx#syntax-e _%hd6780667866%_))) + (let ((_%lp-tl6781167879%_ (let () (declare (not safe)) - (##cdr _%e6774667809%_))) - (_%lp-hd6774767813%_ + (##cdr _%e6780967872%_))) + (_%lp-hd6781067876%_ (let () (declare (not safe)) - (##car _%e6774667809%_)))) - (_%loop6774567799%_ - _%lp-tl6774867816%_ - (cons _%lp-hd6774767813%_ - _%arg6774967806%_)))) - (let ((_%arg6775067819%_ - (reverse _%arg6774967806%_))) - (_%__kont8263782638%_ - _%arg6775067819%_ - _%hd6774067787%_ - _%hd6773767777%_)))))) - (_%loop6774567799%_ _%target6774267793%_ '())))) - (_%__match8267382674%_ - (lambda (_%e6773367763%_ - _%hd6773467767%_ - _%tl6773567770%_ - _%e6773667773%_ - _%hd6773767777%_ - _%tl6773867780%_) - (if (gx#stx-pair? _%tl6773867780%_) - (let ((_%e6773967783%_ - (gx#syntax-e _%tl6773867780%_))) - (let ((_%tl6774167790%_ + (##car _%e6780967872%_)))) + (_%loop6780867862%_ + _%lp-tl6781167879%_ + (cons _%lp-hd6781067876%_ + _%arg6781267869%_)))) + (let ((_%arg6781367882%_ + (reverse _%arg6781267869%_))) + (_%__kont8270082701%_ + _%arg6781367882%_ + _%hd6780367850%_ + _%hd6780067840%_)))))) + (_%loop6780867862%_ _%target6780567856%_ '())))) + (_%__match8273682737%_ + (lambda (_%e6779667826%_ + _%hd6779767830%_ + _%tl6779867833%_ + _%e6779967836%_ + _%hd6780067840%_ + _%tl6780167843%_) + (if (gx#stx-pair? _%tl6780167843%_) + (let ((_%e6780267846%_ + (gx#syntax-e _%tl6780167843%_))) + (let ((_%tl6780467853%_ (let () (declare (not safe)) - (##cdr _%e6773967783%_))) - (_%hd6774067787%_ + (##cdr _%e6780267846%_))) + (_%hd6780367850%_ (let () (declare (not safe)) - (##car _%e6773967783%_)))) - (if (gx#stx-pair/null? _%tl6774167790%_) - (let ((_%__splice8263982640%_ + (##car _%e6780267846%_)))) + (if (gx#stx-pair/null? _%tl6780467853%_) + (let ((_%__splice8270282703%_ (gx#syntax-split-splice - _%tl6774167790%_ + _%tl6780467853%_ '0))) - (let ((_%tl6774467796%_ + (let ((_%tl6780767859%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263982640%_ + _%__splice8270282703%_ '1))) - (_%target6774267793%_ + (_%target6780567856%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263982640%_ + _%__splice8270282703%_ '0)))) - (if (gx#stx-null? _%tl6774467796%_) - (_%__match8268782688%_ - _%e6773367763%_ - _%hd6773467767%_ - _%tl6773567770%_ - _%e6773667773%_ - _%hd6773767777%_ - _%tl6773867780%_ - _%e6773967783%_ - _%hd6774067787%_ - _%tl6774167790%_ - _%__splice8263982640%_ - _%target6774267793%_ - _%tl6774467796%_) + (if (gx#stx-null? _%tl6780767859%_) + (_%__match8275082751%_ + _%e6779667826%_ + _%hd6779767830%_ + _%tl6779867833%_ + _%e6779967836%_ + _%hd6780067840%_ + _%tl6780167843%_ + _%e6780267846%_ + _%hd6780367850%_ + _%tl6780467853%_ + _%__splice8270282703%_ + _%target6780567856%_ + _%tl6780767859%_) (let () (declare (not safe)) - (_%g6771167756%_))))) + (_%g6777467819%_))))) (let () (declare (not safe)) - (_%g6771167756%_))))) - (let () (declare (not safe)) (_%g6771167756%_))))) - (_%__match8266182662%_ - (lambda (_%e6771567862%_ - _%hd6771667866%_ - _%tl6771767869%_ - _%e6771867872%_ - _%hd6771967876%_ - _%tl6772067879%_ - _%__splice8263582636%_ - _%target6772167882%_ - _%tl6772367885%_) - (letrec ((_%loop6772467888%_ - (lambda (_%hd6772267892%_ _%arg6772867895%_) - (if (gx#stx-pair? _%hd6772267892%_) - (let ((_%e6772567898%_ - (gx#syntax-e _%hd6772267892%_))) - (let ((_%lp-tl6772767905%_ + (_%g6777467819%_))))) + (let () (declare (not safe)) (_%g6777467819%_))))) + (_%__match8272482725%_ + (lambda (_%e6777867925%_ + _%hd6777967929%_ + _%tl6778067932%_ + _%e6778167935%_ + _%hd6778267939%_ + _%tl6778367942%_ + _%__splice8269882699%_ + _%target6778467945%_ + _%tl6778667948%_) + (letrec ((_%loop6778767951%_ + (lambda (_%hd6778567955%_ _%arg6779167958%_) + (if (gx#stx-pair? _%hd6778567955%_) + (let ((_%e6778867961%_ + (gx#syntax-e _%hd6778567955%_))) + (let ((_%lp-tl6779067968%_ (let () (declare (not safe)) - (##cdr _%e6772567898%_))) - (_%lp-hd6772667902%_ + (##cdr _%e6778867961%_))) + (_%lp-hd6778967965%_ (let () (declare (not safe)) - (##car _%e6772567898%_)))) - (_%loop6772467888%_ - _%lp-tl6772767905%_ - (cons _%lp-hd6772667902%_ - _%arg6772867895%_)))) - (let ((_%arg6772967908%_ - (reverse _%arg6772867895%_))) - (let ((_%L67912%_ _%arg6772967908%_) - (_%L67914%_ _%hd6771967876%_)) + (##car _%e6778867961%_)))) + (_%loop6778767951%_ + _%lp-tl6779067968%_ + (cons _%lp-hd6778967965%_ + _%arg6779167958%_)))) + (let ((_%arg6779267971%_ + (reverse _%arg6779167958%_))) + (let ((_%L67975%_ _%arg6779267971%_) + (_%L67977%_ _%hd6778267939%_)) (if (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#dotted-identifier?| - _%L67914%_)) - (_%__kont8263382634%_ - _%L67912%_ - _%L67914%_) - (_%__match8267382674%_ - _%e6771567862%_ - _%hd6771667866%_ - _%tl6771767869%_ - _%e6771867872%_ - _%hd6771967876%_ - _%tl6772067879%_)))))))) - (_%loop6772467888%_ _%target6772167882%_ '()))))) - (if (gx#stx-pair? _%__stx8263082631%_) - (let ((_%e6771567862%_ (gx#syntax-e _%__stx8263082631%_))) - (let ((_%tl6771767869%_ + _%L67977%_)) + (_%__kont8269682697%_ + _%L67975%_ + _%L67977%_) + (_%__match8273682737%_ + _%e6777867925%_ + _%hd6777967929%_ + _%tl6778067932%_ + _%e6778167935%_ + _%hd6778267939%_ + _%tl6778367942%_)))))))) + (_%loop6778767951%_ _%target6778467945%_ '()))))) + (if (gx#stx-pair? _%__stx8269382694%_) + (let ((_%e6777867925%_ (gx#syntax-e _%__stx8269382694%_))) + (let ((_%tl6778067932%_ (let () (declare (not safe)) - (##cdr _%e6771567862%_))) - (_%hd6771667866%_ + (##cdr _%e6777867925%_))) + (_%hd6777967929%_ (let () (declare (not safe)) - (##car _%e6771567862%_)))) - (if (gx#stx-pair? _%tl6771767869%_) - (let ((_%e6771867872%_ - (gx#syntax-e _%tl6771767869%_))) - (let ((_%tl6772067879%_ + (##car _%e6777867925%_)))) + (if (gx#stx-pair? _%tl6778067932%_) + (let ((_%e6778167935%_ + (gx#syntax-e _%tl6778067932%_))) + (let ((_%tl6778367942%_ (let () (declare (not safe)) - (##cdr _%e6771867872%_))) - (_%hd6771967876%_ + (##cdr _%e6778167935%_))) + (_%hd6778267939%_ (let () (declare (not safe)) - (##car _%e6771867872%_)))) - (if (gx#stx-pair/null? _%tl6772067879%_) - (let ((_%__splice8263582636%_ + (##car _%e6778167935%_)))) + (if (gx#stx-pair/null? _%tl6778367942%_) + (let ((_%__splice8269882699%_ (gx#syntax-split-splice - _%tl6772067879%_ + _%tl6778367942%_ '0))) - (let ((_%tl6772367885%_ + (let ((_%tl6778667948%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263582636%_ + _%__splice8269882699%_ '1))) - (_%target6772167882%_ + (_%target6778467945%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263582636%_ + _%__splice8269882699%_ '0)))) - (if (gx#stx-null? _%tl6772367885%_) - (_%__match8266182662%_ - _%e6771567862%_ - _%hd6771667866%_ - _%tl6771767869%_ - _%e6771867872%_ - _%hd6771967876%_ - _%tl6772067879%_ - _%__splice8263582636%_ - _%target6772167882%_ - _%tl6772367885%_) - (if (gx#stx-pair? _%tl6772067879%_) - (let ((_%e6773967783%_ + (if (gx#stx-null? _%tl6778667948%_) + (_%__match8272482725%_ + _%e6777867925%_ + _%hd6777967929%_ + _%tl6778067932%_ + _%e6778167935%_ + _%hd6778267939%_ + _%tl6778367942%_ + _%__splice8269882699%_ + _%target6778467945%_ + _%tl6778667948%_) + (if (gx#stx-pair? _%tl6778367942%_) + (let ((_%e6780267846%_ (gx#syntax-e - _%tl6772067879%_))) - (let ((_%tl6774167790%_ + _%tl6778367942%_))) + (let ((_%tl6780467853%_ (let () (declare (not safe)) - (##cdr _%e6773967783%_))) - (_%hd6774067787%_ + (##cdr _%e6780267846%_))) + (_%hd6780367850%_ (let () (declare (not safe)) - (##car _%e6773967783%_)))) + (##car _%e6780267846%_)))) (if (gx#stx-pair/null? - _%tl6774167790%_) - (let ((_%__splice8263982640%_ + _%tl6780467853%_) + (let ((_%__splice8270282703%_ (gx#syntax-split-splice - _%tl6774167790%_ + _%tl6780467853%_ '0))) - (let ((_%tl6774467796%_ + (let ((_%tl6780767859%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice8263982640%_ '1))) - (_%target6774267793%_ + (##vector-ref _%__splice8270282703%_ '1))) + (_%target6780567856%_ (let () (declare (not safe)) - (##vector-ref _%__splice8263982640%_ '0)))) - (if (gx#stx-null? _%tl6774467796%_) - (_%__match8268782688%_ - _%e6771567862%_ - _%hd6771667866%_ - _%tl6771767869%_ - _%e6771867872%_ - _%hd6771967876%_ - _%tl6772067879%_ - _%e6773967783%_ - _%hd6774067787%_ - _%tl6774167790%_ - _%__splice8263982640%_ - _%target6774267793%_ - _%tl6774467796%_) - (let () (declare (not safe)) (_%g6771167756%_))))) - (let () (declare (not safe)) (_%g6771167756%_))))) + (##vector-ref _%__splice8270282703%_ '0)))) + (if (gx#stx-null? _%tl6780767859%_) + (_%__match8275082751%_ + _%e6777867925%_ + _%hd6777967929%_ + _%tl6778067932%_ + _%e6778167935%_ + _%hd6778267939%_ + _%tl6778367942%_ + _%e6780267846%_ + _%hd6780367850%_ + _%tl6780467853%_ + _%__splice8270282703%_ + _%target6780567856%_ + _%tl6780767859%_) + (let () (declare (not safe)) (_%g6777467819%_))))) + (let () (declare (not safe)) (_%g6777467819%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6771167756%_)))))) - (if (gx#stx-pair? _%tl6772067879%_) - (let ((_%e6773967783%_ - (gx#syntax-e _%tl6772067879%_))) - (let ((_%tl6774167790%_ + (_%g6777467819%_)))))) + (if (gx#stx-pair? _%tl6778367942%_) + (let ((_%e6780267846%_ + (gx#syntax-e _%tl6778367942%_))) + (let ((_%tl6780467853%_ (let () (declare (not safe)) - (##cdr _%e6773967783%_))) - (_%hd6774067787%_ + (##cdr _%e6780267846%_))) + (_%hd6780367850%_ (let () (declare (not safe)) - (##car _%e6773967783%_)))) + (##car _%e6780267846%_)))) (if (gx#stx-pair/null? - _%tl6774167790%_) - (let ((_%__splice8263982640%_ + _%tl6780467853%_) + (let ((_%__splice8270282703%_ (gx#syntax-split-splice - _%tl6774167790%_ + _%tl6780467853%_ '0))) - (let ((_%tl6774467796%_ + (let ((_%tl6780767859%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263982640%_ + _%__splice8270282703%_ '1))) - (_%target6774267793%_ + (_%target6780567856%_ (let () (declare (not safe)) (##vector-ref - _%__splice8263982640%_ + _%__splice8270282703%_ '0)))) (if (gx#stx-null? - _%tl6774467796%_) - (_%__match8268782688%_ - _%e6771567862%_ - _%hd6771667866%_ - _%tl6771767869%_ - _%e6771867872%_ - _%hd6771967876%_ - _%tl6772067879%_ - _%e6773967783%_ - _%hd6774067787%_ - _%tl6774167790%_ - _%__splice8263982640%_ - _%target6774267793%_ - _%tl6774467796%_) + _%tl6780767859%_) + (_%__match8275082751%_ + _%e6777867925%_ + _%hd6777967929%_ + _%tl6778067932%_ + _%e6778167935%_ + _%hd6778267939%_ + _%tl6778367942%_ + _%e6780267846%_ + _%hd6780367850%_ + _%tl6780467853%_ + _%__splice8270282703%_ + _%target6780567856%_ + _%tl6780767859%_) (let () (declare (not safe)) - (_%g6771167756%_))))) + (_%g6777467819%_))))) (let () (declare (not safe)) - (_%g6771167756%_))))) + (_%g6777467819%_))))) (let () (declare (not safe)) - (_%g6771167756%_)))))) - (let () (declare (not safe)) (_%g6771167756%_))))) - (let () (declare (not safe)) (_%g6771167756%_)))))))) + (_%g6777467819%_)))))) + (let () (declare (not safe)) (_%g6777467819%_))))) + (let () (declare (not safe)) (_%g6777467819%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmethod/c| - (lambda (_%stx68020%_) - (let* ((_%__stx8269082691%_ _%stx68020%_) - (_%g6802568150%_ + (lambda (_%stx68083%_) + (let* ((_%__stx8275382754%_ _%stx68083%_) + (_%g6808868213%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8269082691%_)))) - (let ((_%__kont8269382694%_ - (lambda (_%L68719%_ - _%L68721%_ - _%L68722%_ - _%L68723%_ - _%L68724%_ - _%L68725%_ - _%L68726%_) - (let* ((_%g6876268770%_ - (lambda (_%g6876368766%_) + _%__stx8275382754%_)))) + (let ((_%__kont8275682757%_ + (lambda (_%L68782%_ + _%L68784%_ + _%L68785%_ + _%L68786%_ + _%L68787%_ + _%L68788%_ + _%L68789%_) + (let* ((_%g6882568833%_ + (lambda (_%g6882668829%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6876368766%_))) - (_%g6876168831%_ - (lambda (_%g6876368774%_) - ((lambda (_%L68777%_) - (let* ((_%g6878968797%_ - (lambda (_%g6879068793%_) + _%g6882668829%_))) + (_%g6882468894%_ + (lambda (_%g6882668837%_) + ((lambda (_%L68840%_) + (let* ((_%g6885268860%_ + (lambda (_%g6885368856%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6879068793%_))) - (_%g6878868819%_ - (lambda (_%g6879068801%_) - ((lambda (_%L68804%_) + _%g6885368856%_))) + (_%g6885168882%_ + (lambda (_%g6885368864%_) + ((lambda (_%L68867%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68725%_ + (cons _%L68788%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68724%_ '()))) - (cons _%L68804%_ _%L68719%_)))) + (cons _%L68787%_ '()))) + (cons _%L68867%_ _%L68782%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6879068801%_)))) - (_%g6878868819%_ + _%g6885368864%_)))) + (_%g6885168882%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (cons _%L68777%_ _%L68722%_) + (cons (cons _%L68840%_ _%L68785%_) (cons (cons (gx#datum->syntax '#f 'using) - (cons (cons _%L68723%_ + (cons (cons _%L68786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L68777%_ + (cons _%L68840%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L68724%_ '())))) + (cons _%L68787%_ '())))) (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%L68723%_ + (cons _%L68786%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g6882268825%_ + (foldr (lambda (_%g6888568888%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6882368828%_) - (cons _%g6882268825%_ _%g6882368828%_)) + _%g6888668891%_) + (cons _%g6888568888%_ _%g6888668891%_)) '() - _%L68721%_))) + _%L68784%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx68020%_))))) - _%g6876368774%_)))) - (_%g6876168831%_ (gx#genident _%L68723%_))))) - (_%__kont8269782698%_ - (lambda (_%L68398%_ - _%L68400%_ - _%L68401%_ - _%L68402%_ - _%L68403%_ - _%L68404%_ - _%L68405%_) - (let* ((_%g6844568462%_ - (lambda (_%g6844668458%_) + (gx#stx-source _%stx68083%_))))) + _%g6882668837%_)))) + (_%g6882468894%_ (gx#genident _%L68786%_))))) + (_%__kont8276082761%_ + (lambda (_%L68461%_ + _%L68463%_ + _%L68464%_ + _%L68465%_ + _%L68466%_ + _%L68467%_ + _%L68468%_) + (let* ((_%g6850868525%_ + (lambda (_%g6850968521%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6844668458%_))) - (_%g6844468580%_ - (lambda (_%g6844668466%_) - (if (gx#stx-pair/null? _%g6844668466%_) - (let ((_g84200_ + _%g6850968521%_))) + (_%g6850768643%_ + (lambda (_%g6850968529%_) + (if (gx#stx-pair/null? _%g6850968529%_) + (let ((_g84263_ (gx#syntax-split-splice - _%g6844668466%_ + _%g6850968529%_ '0))) (begin - (let ((_g84201_ + (let ((_g84264_ (let () (declare (not safe)) - (if (##values? _g84200_) - (##vector-length _g84200_) + (if (##values? _g84263_) + (##values-length _g84263_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84201_ 2))) + (##fx= _g84264_ 2))) (error "Context expects 2 values" - _g84201_))) - (let ((_%target6844868469%_ + _g84264_))) + (let ((_%target6851168532%_ (let () (declare (not safe)) - (##vector-ref _g84200_ 0))) - (_%tl6845068472%_ + (##values-ref _g84263_ 0))) + (_%tl6851368535%_ (let () (declare (not safe)) - (##vector-ref _g84200_ 1)))) - (if (gx#stx-null? _%tl6845068472%_) - (letrec ((_%loop6845168475%_ - (lambda (_%hd6844968479%_ - _%receiver6845568482%_) + (##values-ref _g84263_ 1)))) + (if (gx#stx-null? _%tl6851368535%_) + (letrec ((_%loop6851468538%_ + (lambda (_%hd6851268542%_ + _%receiver6851868545%_) (if (gx#stx-pair? - _%hd6844968479%_) - (let ((_%e6845268485%_ + _%hd6851268542%_) + (let ((_%e6851568548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6844968479%_))) - (let ((_%lp-hd6845368489%_ + (gx#syntax-e _%hd6851268542%_))) + (let ((_%lp-hd6851668552%_ (let () (declare (not safe)) - (##car _%e6845268485%_))) - (_%lp-tl6845468492%_ + (##car _%e6851568548%_))) + (_%lp-tl6851768555%_ (let () (declare (not safe)) - (##cdr _%e6845268485%_)))) - (_%loop6845168475%_ - _%lp-tl6845468492%_ - (cons _%lp-hd6845368489%_ _%receiver6845568482%_)))) - (let ((_%receiver6845668495%_ - (reverse _%receiver6845568482%_))) - ((lambda (_%L68499%_) - (let* ((_%g6851568523%_ - (lambda (_%g6851668519%_) + (##cdr _%e6851568548%_)))) + (_%loop6851468538%_ + _%lp-tl6851768555%_ + (cons _%lp-hd6851668552%_ _%receiver6851868545%_)))) + (let ((_%receiver6851968558%_ + (reverse _%receiver6851868545%_))) + ((lambda (_%L68562%_) + (let* ((_%g6857868586%_ + (lambda (_%g6857968582%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6851668519%_))) - (_%g6851468545%_ - (lambda (_%g6851668527%_) - ((lambda (_%L68530%_) + _%g6857968582%_))) + (_%g6857768608%_ + (lambda (_%g6857968590%_) + ((lambda (_%L68593%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68404%_ - (cons _%L68403%_ + (cons _%L68467%_ + (cons _%L68466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L68530%_ - _%L68398%_)))) - _%g6851668527%_)))) - (_%g6851468545%_ + (cons _%L68593%_ + _%L68461%_)))) + _%g6857968590%_)))) + (_%g6857768608%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda/c) (begin (gx#syntax-check-splice-targets - _%L68400%_ - _%L68402%_ - _%L68499%_ - _%L68402%_ - _%L68401%_ - _%L68499%_) - (foldr (lambda (_%g6854868558%_ - _%g6854968561%_ - _%g6855068563%_ - _%g6855168565%_ - _%g6855268567%_ - _%g6855368569%_ - _%g6855468571%_) - (cons (cons (cons _%g6855068563%_ - _%g6855268567%_) + _%L68463%_ + _%L68465%_ + _%L68562%_ + _%L68465%_ + _%L68464%_ + _%L68562%_) + (foldr (lambda (_%g6861168621%_ + _%g6861268624%_ + _%g6861368626%_ + _%g6861468628%_ + _%g6861568630%_ + _%g6861668632%_ + _%g6861768634%_) + (cons (cons (cons _%g6861368626%_ + _%g6861568630%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'using) - (cons (cons _%g6854968561%_ - (cons _%g6855068563%_ + (cons (cons _%g6861268624%_ + (cons _%g6861368626%_ (cons (gx#datum->syntax '#f '::-) - (cons _%L68403%_ '())))) + (cons _%L68466%_ '())))) (cons (cons (gx#datum->syntax '#f 'with-receiver) - (cons _%g6854968561%_ + (cons _%g6861268624%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) (cons '() - (foldr (lambda (_%g6855568574%_ _%g6855668577%_) - (cons _%g6855568574%_ _%g6855668577%_)) + (foldr (lambda (_%g6861868637%_ _%g6861968640%_) + (cons _%g6861868637%_ _%g6861968640%_)) '() - _%g6854868558%_))) + _%g6861168621%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6855468571%_)) + _%g6861768634%_)) '() - _%L68400%_ - _%L68402%_ - _%L68499%_ - _%L68402%_ - _%L68401%_ - _%L68499%_))) - (gx#stx-source _%stx68020%_))))) - _%receiver6845668495%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6845168475%_ - _%target6844868469%_ + _%L68463%_ + _%L68465%_ + _%L68562%_ + _%L68465%_ + _%L68464%_ + _%L68562%_))) + (gx#stx-source _%stx68083%_))))) + _%receiver6851968558%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6851468538%_ + _%target6851168532%_ '())) - (_%g6844568462%_ - _%g6844668466%_))))) - (_%g6844568462%_ _%g6844668466%_))))) - (_%g6844468580%_ + (_%g6850868525%_ + _%g6850968529%_))))) + (_%g6850868525%_ _%g6850968529%_))))) + (_%g6850768643%_ (map gx#genident - (foldr (lambda (_%g6858368586%_ _%g6858468589%_) - (cons _%g6858368586%_ _%g6858468589%_)) + (foldr (lambda (_%g6864668649%_ _%g6864768652%_) + (cons _%g6864668649%_ _%g6864768652%_)) '() - _%L68402%_)))))) - (_%__kont8270182702%_ - (lambda (_%L68207%_ _%L68209%_ _%L68210%_ _%L68211%_) + _%L68465%_)))))) + (_%__kont8276482765%_ + (lambda (_%L68270%_ _%L68272%_ _%L68273%_ _%L68274%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method~) - (cons _%L68210%_ (cons _%L68209%_ '()))) - _%L68207%_))))) - (let* ((_%g6802468233%_ + (cons _%L68273%_ (cons _%L68272%_ '()))) + _%L68270%_))))) + (let* ((_%g6808768296%_ (lambda () - (let ((_%e6813068157%_ - (gx#syntax-e _%__stx8269082691%_))) - (let ((_%tl6813268164%_ + (let ((_%e6819368220%_ + (gx#syntax-e _%__stx8275382754%_))) + (let ((_%tl6819568227%_ (let () (declare (not safe)) - (##cdr _%e6813068157%_))) - (_%hd6813168161%_ + (##cdr _%e6819368220%_))) + (_%hd6819468224%_ (let () (declare (not safe)) - (##car _%e6813068157%_)))) - (if (gx#stx-pair? _%tl6813268164%_) - (let ((_%e6813368167%_ - (gx#syntax-e _%tl6813268164%_))) - (let ((_%tl6813568174%_ + (##car _%e6819368220%_)))) + (if (gx#stx-pair? _%tl6819568227%_) + (let ((_%e6819668230%_ + (gx#syntax-e _%tl6819568227%_))) + (let ((_%tl6819868237%_ (let () (declare (not safe)) - (##cdr _%e6813368167%_))) - (_%hd6813468171%_ + (##cdr _%e6819668230%_))) + (_%hd6819768234%_ (let () (declare (not safe)) - (##car _%e6813368167%_)))) - (if (gx#stx-pair? _%hd6813468171%_) - (let ((_%e6813668177%_ - (gx#syntax-e _%hd6813468171%_))) - (let ((_%tl6813868184%_ + (##car _%e6819668230%_)))) + (if (gx#stx-pair? _%hd6819768234%_) + (let ((_%e6819968240%_ + (gx#syntax-e _%hd6819768234%_))) + (let ((_%tl6820168247%_ (let () (declare (not safe)) - (##cdr _%e6813668177%_))) - (_%hd6813768181%_ + (##cdr _%e6819968240%_))) + (_%hd6820068244%_ (let () (declare (not safe)) - (##car _%e6813668177%_)))) - (if (gx#stx-pair? _%tl6813868184%_) - (let ((_%e6813968187%_ + (##car _%e6819968240%_)))) + (if (gx#stx-pair? _%tl6820168247%_) + (let ((_%e6820268250%_ (gx#syntax-e - _%tl6813868184%_))) - (let ((_%tl6814168194%_ + _%tl6820168247%_))) + (let ((_%tl6820468257%_ (let () (declare (not safe)) - (##cdr _%e6813968187%_))) - (_%hd6814068191%_ + (##cdr _%e6820268250%_))) + (_%hd6820368254%_ (let () (declare (not safe)) - (##car _%e6813968187%_)))) + (##car _%e6820268250%_)))) (if (gx#stx-pair? - _%tl6814168194%_) - (let ((_%e6814268197%_ + _%tl6820468257%_) + (let ((_%e6820568260%_ (gx#syntax-e - _%tl6814168194%_))) - (let ((_%tl6814468204%_ + _%tl6820468257%_))) + (let ((_%tl6820768267%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6814268197%_))) - (_%hd6814368201%_ - (let () (declare (not safe)) (##car _%e6814268197%_)))) - (if (gx#stx-null? _%tl6814468204%_) - (_%__kont8270182702%_ - _%tl6813568174%_ - _%hd6814368201%_ - _%hd6814068191%_ - _%hd6813768181%_) - (let () (declare (not safe)) (_%g6802568150%_))))) - (let () (declare (not safe)) (_%g6802568150%_))))) + (##cdr _%e6820568260%_))) + (_%hd6820668264%_ + (let () (declare (not safe)) (##car _%e6820568260%_)))) + (if (gx#stx-null? _%tl6820768267%_) + (_%__kont8276482765%_ + _%tl6819868237%_ + _%hd6820668264%_ + _%hd6820368254%_ + _%hd6820068244%_) + (let () (declare (not safe)) (_%g6808868213%_))))) + (let () (declare (not safe)) (_%g6808868213%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6802568150%_))))) + (_%g6808868213%_))))) (let () (declare (not safe)) - (_%g6802568150%_))))) + (_%g6808868213%_))))) (let () (declare (not safe)) - (_%g6802568150%_))))))) - (_%__match8282782828%_ - (lambda (_%e6807768240%_ - _%hd6807868244%_ - _%tl6807968247%_ - _%e6808068250%_ - _%hd6808168254%_ - _%tl6808268257%_ - _%e6808368260%_ - _%hd6808468264%_ - _%tl6808568267%_ - _%e6808668270%_ - _%hd6808768274%_ - _%tl6808868277%_ - _%e6808968280%_ - _%hd6809068284%_ - _%tl6809168287%_ - _%e6809268290%_ - _%hd6809368294%_ - _%tl6809468297%_ - _%e6809568300%_ - _%hd6809668304%_ - _%tl6809768307%_ - _%__splice8269982700%_ - _%target6809868310%_ - _%tl6810068313%_) - (letrec ((_%loop6810168316%_ - (lambda (_%hd6809968320%_ - _%body6810568323%_ - _%args6810668325%_ - _%self6810768327%_) - (if (gx#stx-pair? _%hd6809968320%_) - (let ((_%e6810268330%_ - (gx#syntax-e _%hd6809968320%_))) - (let ((_%lp-tl6810468337%_ + (_%g6808868213%_))))))) + (_%__match8289082891%_ + (lambda (_%e6814068303%_ + _%hd6814168307%_ + _%tl6814268310%_ + _%e6814368313%_ + _%hd6814468317%_ + _%tl6814568320%_ + _%e6814668323%_ + _%hd6814768327%_ + _%tl6814868330%_ + _%e6814968333%_ + _%hd6815068337%_ + _%tl6815168340%_ + _%e6815268343%_ + _%hd6815368347%_ + _%tl6815468350%_ + _%e6815568353%_ + _%hd6815668357%_ + _%tl6815768360%_ + _%e6815868363%_ + _%hd6815968367%_ + _%tl6816068370%_ + _%__splice8276282763%_ + _%target6816168373%_ + _%tl6816368376%_) + (letrec ((_%loop6816468379%_ + (lambda (_%hd6816268383%_ + _%body6816868386%_ + _%args6816968388%_ + _%self6817068390%_) + (if (gx#stx-pair? _%hd6816268383%_) + (let ((_%e6816568393%_ + (gx#syntax-e _%hd6816268383%_))) + (let ((_%lp-tl6816768400%_ (let () (declare (not safe)) - (##cdr _%e6810268330%_))) - (_%lp-hd6810368334%_ + (##cdr _%e6816568393%_))) + (_%lp-hd6816668397%_ (let () (declare (not safe)) - (##car _%e6810268330%_)))) + (##car _%e6816568393%_)))) (if (gx#stx-pair? - _%lp-hd6810368334%_) - (let ((_%e6811168340%_ + _%lp-hd6816668397%_) + (let ((_%e6817468403%_ (gx#syntax-e - _%lp-hd6810368334%_))) - (let ((_%tl6811368347%_ + _%lp-hd6816668397%_))) + (let ((_%tl6817668410%_ (let () (declare (not safe)) - (##cdr _%e6811168340%_))) - (_%hd6811268344%_ + (##cdr _%e6817468403%_))) + (_%hd6817568407%_ (let () (declare (not safe)) - (##car _%e6811168340%_)))) + (##car _%e6817468403%_)))) (if (gx#stx-pair? - _%hd6811268344%_) - (let ((_%e6811468350%_ + _%hd6817568407%_) + (let ((_%e6817768413%_ (gx#syntax-e - _%hd6811268344%_))) - (let ((_%tl6811668357%_ + _%hd6817568407%_))) + (let ((_%tl6817968420%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6811468350%_))) - (_%hd6811568354%_ - (let () (declare (not safe)) (##car _%e6811468350%_)))) - (if (gx#stx-pair/null? _%tl6811368347%_) - (let ((_g84202_ - (gx#syntax-split-splice _%tl6811368347%_ '0))) + (##cdr _%e6817768413%_))) + (_%hd6817868417%_ + (let () (declare (not safe)) (##car _%e6817768413%_)))) + (if (gx#stx-pair/null? _%tl6817668410%_) + (let ((_g84265_ + (gx#syntax-split-splice _%tl6817668410%_ '0))) (begin - (let ((_g84203_ + (let ((_g84266_ (let () (declare (not safe)) - (if (##values? _g84202_) - (##vector-length _g84202_) + (if (##values? _g84265_) + (##values-length _g84265_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84203_ 2))) - (error "Context expects 2 values" _g84203_))) - (let ((_%target6811768360%_ + (##fx= _g84266_ 2))) + (error "Context expects 2 values" _g84266_))) + (let ((_%target6818068423%_ (let () (declare (not safe)) - (##vector-ref _g84202_ 0))) - (_%tl6811968363%_ + (##values-ref _g84265_ 0))) + (_%tl6818268426%_ (let () (declare (not safe)) - (##vector-ref _g84202_ 1)))) - (if (gx#stx-null? _%tl6811968363%_) - (letrec ((_%loop6812068366%_ - (lambda (_%hd6811868370%_ - _%body6812468373%_) - (if (gx#stx-pair? _%hd6811868370%_) - (let ((_%e6812168376%_ + (##values-ref _g84265_ 1)))) + (if (gx#stx-null? _%tl6818268426%_) + (letrec ((_%loop6818368429%_ + (lambda (_%hd6818168433%_ + _%body6818768436%_) + (if (gx#stx-pair? _%hd6818168433%_) + (let ((_%e6818468439%_ (gx#syntax-e - _%hd6811868370%_))) - (let ((_%lp-hd6812268380%_ + _%hd6818168433%_))) + (let ((_%lp-hd6818568443%_ (let () (declare (not safe)) - (##car _%e6812168376%_))) - (_%lp-tl6812368383%_ + (##car _%e6818468439%_))) + (_%lp-tl6818668446%_ (let () (declare (not safe)) - (##cdr _%e6812168376%_)))) - (_%loop6812068366%_ - _%lp-tl6812368383%_ - (cons _%lp-hd6812268380%_ - _%body6812468373%_)))) - (let ((_%body6812568386%_ - (reverse _%body6812468373%_))) - (_%loop6810168316%_ - _%lp-tl6810468337%_ - (cons _%body6812568386%_ - _%body6810568323%_) - (cons _%tl6811668357%_ - _%args6810668325%_) - (cons _%hd6811568354%_ - _%self6810768327%_))))))) - (_%loop6812068366%_ - _%target6811768360%_ + (##cdr _%e6818468439%_)))) + (_%loop6818368429%_ + _%lp-tl6818668446%_ + (cons _%lp-hd6818568443%_ + _%body6818768436%_)))) + (let ((_%body6818868449%_ + (reverse _%body6818768436%_))) + (_%loop6816468379%_ + _%lp-tl6816768400%_ + (cons _%body6818868449%_ + _%body6816868386%_) + (cons _%tl6817968420%_ + _%args6816968388%_) + (cons _%hd6817868417%_ + _%self6817068390%_))))))) + (_%loop6818368429%_ + _%target6818068423%_ '())) (let () (declare (not safe)) - (_%g6802468233%_)))))) - (_%__kont8270182702%_ - _%tl6808268257%_ - _%hd6809068284%_ - _%hd6808768274%_ - _%hd6808468264%_)))) - (_%__kont8270182702%_ - _%tl6808268257%_ - _%hd6809068284%_ - _%hd6808768274%_ - _%hd6808468264%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8270182702%_ - _%tl6808268257%_ - _%hd6809068284%_ - _%hd6808768274%_ - _%hd6808468264%_)))) - (let ((_%self6811068395%_ - (reverse _%self6810768327%_)) - (_%args6810968393%_ - (reverse _%args6810668325%_)) - (_%body6810868390%_ - (reverse _%body6810568323%_))) - (let ((_%L68398%_ _%tl6809468297%_) - (_%L68400%_ _%body6810868390%_) - (_%L68401%_ _%args6810968393%_) - (_%L68402%_ _%self6811068395%_) - (_%L68403%_ _%hd6809068284%_) - (_%L68404%_ _%hd6808768274%_) - (_%L68405%_ _%hd6808468264%_)) + (_%g6808768296%_)))))) + (_%__kont8276482765%_ + _%tl6814568320%_ + _%hd6815368347%_ + _%hd6815068337%_ + _%hd6814768327%_)))) + (_%__kont8276482765%_ + _%tl6814568320%_ + _%hd6815368347%_ + _%hd6815068337%_ + _%hd6814768327%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8276482765%_ + _%tl6814568320%_ + _%hd6815368347%_ + _%hd6815068337%_ + _%hd6814768327%_)))) + (let ((_%self6817368458%_ + (reverse _%self6817068390%_)) + (_%args6817268456%_ + (reverse _%args6816968388%_)) + (_%body6817168453%_ + (reverse _%body6816868386%_))) + (let ((_%L68461%_ _%tl6815768360%_) + (_%L68463%_ _%body6817168453%_) + (_%L68464%_ _%args6817268456%_) + (_%L68465%_ _%self6817368458%_) + (_%L68466%_ _%hd6815368347%_) + (_%L68467%_ _%hd6815068337%_) + (_%L68468%_ _%hd6814768327%_)) (if (and (gx#identifier-list? - (foldr (lambda (_%g6843668439%_ + (foldr (lambda (_%g6849968502%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6843768442%_) - (cons _%g6843668439%_ _%g6843768442%_)) + _%g6850068505%_) + (cons _%g6849968502%_ _%g6850068505%_)) '() - _%L68402%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#identifier? _%L68404%_)) - (_%__kont8269782698%_ - _%L68398%_ - _%L68400%_ - _%L68401%_ - _%L68402%_ - _%L68403%_ - _%L68404%_ - _%L68405%_) - (_%__kont8270182702%_ - _%tl6808268257%_ - _%hd6809068284%_ - _%hd6808768274%_ - _%hd6808468264%_)))))))) - (_%loop6810168316%_ - _%target6809868310%_ + _%L68465%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#identifier? _%L68467%_)) + (_%__kont8276082761%_ + _%L68461%_ + _%L68463%_ + _%L68464%_ + _%L68465%_ + _%L68466%_ + _%L68467%_ + _%L68468%_) + (_%__kont8276482765%_ + _%tl6814568320%_ + _%hd6815368347%_ + _%hd6815068337%_ + _%hd6814768327%_)))))))) + (_%loop6816468379%_ + _%target6816168373%_ '() '() '())))) - (_%__match8277182772%_ - (lambda (_%e6803468599%_ - _%hd6803568603%_ - _%tl6803668606%_ - _%e6803768609%_ - _%hd6803868613%_ - _%tl6803968616%_ - _%e6804068619%_ - _%hd6804168623%_ - _%tl6804268626%_ - _%e6804368629%_ - _%hd6804468633%_ - _%tl6804568636%_ - _%e6804668639%_ - _%hd6804768643%_ - _%tl6804868646%_ - _%e6804968649%_ - _%hd6805068653%_ - _%tl6805168656%_ - _%e6805268659%_ - _%hd6805368663%_ - _%tl6805468666%_ - _%e6805568669%_ - _%hd6805668673%_ - _%tl6805768676%_ - _%e6805868679%_ - _%hd6805968683%_ - _%tl6806068686%_ - _%__splice8269582696%_ - _%target6806168689%_ - _%tl6806368692%_) - (letrec ((_%loop6806468695%_ - (lambda (_%hd6806268699%_ _%body6806868702%_) - (if (gx#stx-pair? _%hd6806268699%_) - (let ((_%e6806568705%_ - (gx#syntax-e _%hd6806268699%_))) - (let ((_%lp-tl6806768712%_ + (_%__match8283482835%_ + (lambda (_%e6809768662%_ + _%hd6809868666%_ + _%tl6809968669%_ + _%e6810068672%_ + _%hd6810168676%_ + _%tl6810268679%_ + _%e6810368682%_ + _%hd6810468686%_ + _%tl6810568689%_ + _%e6810668692%_ + _%hd6810768696%_ + _%tl6810868699%_ + _%e6810968702%_ + _%hd6811068706%_ + _%tl6811168709%_ + _%e6811268712%_ + _%hd6811368716%_ + _%tl6811468719%_ + _%e6811568722%_ + _%hd6811668726%_ + _%tl6811768729%_ + _%e6811868732%_ + _%hd6811968736%_ + _%tl6812068739%_ + _%e6812168742%_ + _%hd6812268746%_ + _%tl6812368749%_ + _%__splice8275882759%_ + _%target6812468752%_ + _%tl6812668755%_) + (letrec ((_%loop6812768758%_ + (lambda (_%hd6812568762%_ _%body6813168765%_) + (if (gx#stx-pair? _%hd6812568762%_) + (let ((_%e6812868768%_ + (gx#syntax-e _%hd6812568762%_))) + (let ((_%lp-tl6813068775%_ (let () (declare (not safe)) - (##cdr _%e6806568705%_))) - (_%lp-hd6806668709%_ + (##cdr _%e6812868768%_))) + (_%lp-hd6812968772%_ (let () (declare (not safe)) - (##car _%e6806568705%_)))) - (_%loop6806468695%_ - _%lp-tl6806768712%_ - (cons _%lp-hd6806668709%_ - _%body6806868702%_)))) - (let ((_%body6806968715%_ - (reverse _%body6806868702%_))) - (let ((_%L68719%_ _%tl6805168656%_) - (_%L68721%_ _%body6806968715%_) - (_%L68722%_ _%tl6806068686%_) - (_%L68723%_ _%hd6805968683%_) - (_%L68724%_ _%hd6804768643%_) - (_%L68725%_ _%hd6804468633%_) - (_%L68726%_ _%hd6804168623%_)) - (if (and (gx#identifier? _%L68723%_) - (gx#identifier? _%L68725%_)) - (_%__kont8269382694%_ - _%L68719%_ - _%L68721%_ - _%L68722%_ - _%L68723%_ - _%L68724%_ - _%L68725%_ - _%L68726%_) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))))))) - (_%loop6806468695%_ _%target6806168689%_ '()))))) - (if (gx#stx-pair? _%__stx8269082691%_) - (let ((_%e6803468599%_ (gx#syntax-e _%__stx8269082691%_))) - (let ((_%tl6803668606%_ + (##car _%e6812868768%_)))) + (_%loop6812768758%_ + _%lp-tl6813068775%_ + (cons _%lp-hd6812968772%_ + _%body6813168765%_)))) + (let ((_%body6813268778%_ + (reverse _%body6813168765%_))) + (let ((_%L68782%_ _%tl6811468719%_) + (_%L68784%_ _%body6813268778%_) + (_%L68785%_ _%tl6812368749%_) + (_%L68786%_ _%hd6812268746%_) + (_%L68787%_ _%hd6811068706%_) + (_%L68788%_ _%hd6810768696%_) + (_%L68789%_ _%hd6810468686%_)) + (if (and (gx#identifier? _%L68786%_) + (gx#identifier? _%L68788%_)) + (_%__kont8275682757%_ + _%L68782%_ + _%L68784%_ + _%L68785%_ + _%L68786%_ + _%L68787%_ + _%L68788%_ + _%L68789%_) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))))))) + (_%loop6812768758%_ _%target6812468752%_ '()))))) + (if (gx#stx-pair? _%__stx8275382754%_) + (let ((_%e6809768662%_ (gx#syntax-e _%__stx8275382754%_))) + (let ((_%tl6809968669%_ (let () (declare (not safe)) - (##cdr _%e6803468599%_))) - (_%hd6803568603%_ + (##cdr _%e6809768662%_))) + (_%hd6809868666%_ (let () (declare (not safe)) - (##car _%e6803468599%_)))) - (if (gx#stx-pair? _%tl6803668606%_) - (let ((_%e6803768609%_ - (gx#syntax-e _%tl6803668606%_))) - (let ((_%tl6803968616%_ + (##car _%e6809768662%_)))) + (if (gx#stx-pair? _%tl6809968669%_) + (let ((_%e6810068672%_ + (gx#syntax-e _%tl6809968669%_))) + (let ((_%tl6810268679%_ (let () (declare (not safe)) - (##cdr _%e6803768609%_))) - (_%hd6803868613%_ + (##cdr _%e6810068672%_))) + (_%hd6810168676%_ (let () (declare (not safe)) - (##car _%e6803768609%_)))) - (if (gx#stx-pair? _%hd6803868613%_) - (let ((_%e6804068619%_ - (gx#syntax-e _%hd6803868613%_))) - (let ((_%tl6804268626%_ + (##car _%e6810068672%_)))) + (if (gx#stx-pair? _%hd6810168676%_) + (let ((_%e6810368682%_ + (gx#syntax-e _%hd6810168676%_))) + (let ((_%tl6810568689%_ (let () (declare (not safe)) - (##cdr _%e6804068619%_))) - (_%hd6804168623%_ + (##cdr _%e6810368682%_))) + (_%hd6810468686%_ (let () (declare (not safe)) - (##car _%e6804068619%_)))) - (if (gx#stx-pair? _%tl6804268626%_) - (let ((_%e6804368629%_ + (##car _%e6810368682%_)))) + (if (gx#stx-pair? _%tl6810568689%_) + (let ((_%e6810668692%_ (gx#syntax-e - _%tl6804268626%_))) - (let ((_%tl6804568636%_ + _%tl6810568689%_))) + (let ((_%tl6810868699%_ (let () (declare (not safe)) - (##cdr _%e6804368629%_))) - (_%hd6804468633%_ + (##cdr _%e6810668692%_))) + (_%hd6810768696%_ (let () (declare (not safe)) - (##car _%e6804368629%_)))) + (##car _%e6810668692%_)))) (if (gx#stx-pair? - _%tl6804568636%_) - (let ((_%e6804668639%_ + _%tl6810868699%_) + (let ((_%e6810968702%_ (gx#syntax-e - _%tl6804568636%_))) - (let ((_%tl6804868646%_ + _%tl6810868699%_))) + (let ((_%tl6811168709%_ (let () (declare (not safe)) - (##cdr _%e6804668639%_))) - (_%hd6804768643%_ + (##cdr _%e6810968702%_))) + (_%hd6811068706%_ (let () (declare (not safe)) - (##car _%e6804668639%_)))) + (##car _%e6810968702%_)))) (if (gx#stx-null? - _%tl6804868646%_) + _%tl6811168709%_) (if (gx#stx-pair? - _%tl6803968616%_) - (let ((_%e6804968649%_ + _%tl6810268679%_) + (let ((_%e6811268712%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6803968616%_))) - (let ((_%tl6805168656%_ + (gx#syntax-e _%tl6810268679%_))) + (let ((_%tl6811468719%_ (let () (declare (not safe)) - (##cdr _%e6804968649%_))) - (_%hd6805068653%_ + (##cdr _%e6811268712%_))) + (_%hd6811368716%_ (let () (declare (not safe)) - (##car _%e6804968649%_)))) - (if (gx#stx-pair? _%hd6805068653%_) - (let ((_%e6805268659%_ - (gx#syntax-e _%hd6805068653%_))) - (let ((_%tl6805468666%_ + (##car _%e6811268712%_)))) + (if (gx#stx-pair? _%hd6811368716%_) + (let ((_%e6811568722%_ + (gx#syntax-e _%hd6811368716%_))) + (let ((_%tl6811768729%_ (let () (declare (not safe)) - (##cdr _%e6805268659%_))) - (_%hd6805368663%_ + (##cdr _%e6811568722%_))) + (_%hd6811668726%_ (let () (declare (not safe)) - (##car _%e6805268659%_)))) - (if (gx#identifier? _%hd6805368663%_) + (##car _%e6811568722%_)))) + (if (gx#identifier? _%hd6811668726%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84204_| - _%hd6805368663%_) - (if (gx#stx-pair? _%tl6805468666%_) - (let ((_%e6805568669%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84267_| + _%hd6811668726%_) + (if (gx#stx-pair? _%tl6811768729%_) + (let ((_%e6811868732%_ (gx#syntax-e - _%tl6805468666%_))) - (let ((_%tl6805768676%_ + _%tl6811768729%_))) + (let ((_%tl6812068739%_ (let () (declare (not safe)) - (##cdr _%e6805568669%_))) - (_%hd6805668673%_ + (##cdr _%e6811868732%_))) + (_%hd6811968736%_ (let () (declare (not safe)) - (##car _%e6805568669%_)))) + (##car _%e6811868732%_)))) (if (gx#stx-pair? - _%hd6805668673%_) - (let ((_%e6805868679%_ + _%hd6811968736%_) + (let ((_%e6812168742%_ (gx#syntax-e - _%hd6805668673%_))) - (let ((_%tl6806068686%_ + _%hd6811968736%_))) + (let ((_%tl6812368749%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6805868679%_))) - (_%hd6805968683%_ - (let () (declare (not safe)) (##car _%e6805868679%_)))) - (if (gx#stx-pair/null? _%tl6805768676%_) - (let ((_%__splice8269582696%_ - (gx#syntax-split-splice _%tl6805768676%_ '0))) - (let ((_%tl6806368692%_ + (##cdr _%e6812168742%_))) + (_%hd6812268746%_ + (let () (declare (not safe)) (##car _%e6812168742%_)))) + (if (gx#stx-pair/null? _%tl6812068739%_) + (let ((_%__splice8275882759%_ + (gx#syntax-split-splice _%tl6812068739%_ '0))) + (let ((_%tl6812668755%_ (let () (declare (not safe)) - (##vector-ref _%__splice8269582696%_ '1))) - (_%target6806168689%_ + (##vector-ref _%__splice8275882759%_ '1))) + (_%target6812468752%_ (let () (declare (not safe)) - (##vector-ref _%__splice8269582696%_ '0)))) - (if (gx#stx-null? _%tl6806368692%_) - (_%__match8277182772%_ - _%e6803468599%_ - _%hd6803568603%_ - _%tl6803668606%_ - _%e6803768609%_ - _%hd6803868613%_ - _%tl6803968616%_ - _%e6804068619%_ - _%hd6804168623%_ - _%tl6804268626%_ - _%e6804368629%_ - _%hd6804468633%_ - _%tl6804568636%_ - _%e6804668639%_ - _%hd6804768643%_ - _%tl6804868646%_ - _%e6804968649%_ - _%hd6805068653%_ - _%tl6805168656%_ - _%e6805268659%_ - _%hd6805368663%_ - _%tl6805468666%_ - _%e6805568669%_ - _%hd6805668673%_ - _%tl6805768676%_ - _%e6805868679%_ - _%hd6805968683%_ - _%tl6806068686%_ - _%__splice8269582696%_ - _%target6806168689%_ - _%tl6806368692%_) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)) + (##vector-ref _%__splice8275882759%_ '0)))) + (if (gx#stx-null? _%tl6812668755%_) + (_%__match8283482835%_ + _%e6809768662%_ + _%hd6809868666%_ + _%tl6809968669%_ + _%e6810068672%_ + _%hd6810168676%_ + _%tl6810268679%_ + _%e6810368682%_ + _%hd6810468686%_ + _%tl6810568689%_ + _%e6810668692%_ + _%hd6810768696%_ + _%tl6810868699%_ + _%e6810968702%_ + _%hd6811068706%_ + _%tl6811168709%_ + _%e6811268712%_ + _%hd6811368716%_ + _%tl6811468719%_ + _%e6811568722%_ + _%hd6811668726%_ + _%tl6811768729%_ + _%e6811868732%_ + _%hd6811968736%_ + _%tl6812068739%_ + _%e6812168742%_ + _%hd6812268746%_ + _%tl6812368749%_ + _%__splice8275882759%_ + _%target6812468752%_ + _%tl6812668755%_) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84205_| - _%hd6805368663%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84268_| + _%hd6811668726%_) (if (gx#stx-pair/null? - _%tl6805468666%_) - (let ((_%__splice8269982700%_ + _%tl6811768729%_) + (let ((_%__splice8276282763%_ (gx#syntax-split-splice - _%tl6805468666%_ + _%tl6811768729%_ '0))) - (let ((_%tl6810068313%_ + (let ((_%tl6816368376%_ (let () (declare (not safe)) (##vector-ref - _%__splice8269982700%_ + _%__splice8276282763%_ '1))) - (_%target6809868310%_ + (_%target6816168373%_ (let () (declare (not safe)) (##vector-ref - _%__splice8269982700%_ + _%__splice8276282763%_ '0)))) (if (gx#stx-null? - _%tl6810068313%_) - (_%__match8282782828%_ - _%e6803468599%_ - _%hd6803568603%_ - _%tl6803668606%_ - _%e6803768609%_ - _%hd6803868613%_ - _%tl6803968616%_ - _%e6804068619%_ - _%hd6804168623%_ - _%tl6804268626%_ - _%e6804368629%_ - _%hd6804468633%_ - _%tl6804568636%_ - _%e6804668639%_ - _%hd6804768643%_ - _%tl6804868646%_ - _%e6804968649%_ - _%hd6805068653%_ - _%tl6805168656%_ - _%e6805268659%_ - _%hd6805368663%_ - _%tl6805468666%_ - _%__splice8269982700%_ - _%target6809868310%_ - _%tl6810068313%_) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)))) - (_%__kont8270182702%_ - _%tl6803968616%_ - _%hd6804768643%_ - _%hd6804468633%_ - _%hd6804168623%_)) - (let () (declare (not safe)) (_%g6802568150%_))))) + _%tl6816368376%_) + (_%__match8289082891%_ + _%e6809768662%_ + _%hd6809868666%_ + _%tl6809968669%_ + _%e6810068672%_ + _%hd6810168676%_ + _%tl6810268679%_ + _%e6810368682%_ + _%hd6810468686%_ + _%tl6810568689%_ + _%e6810668692%_ + _%hd6810768696%_ + _%tl6810868699%_ + _%e6810968702%_ + _%hd6811068706%_ + _%tl6811168709%_ + _%e6811268712%_ + _%hd6811368716%_ + _%tl6811468719%_ + _%e6811568722%_ + _%hd6811668726%_ + _%tl6811768729%_ + _%__splice8276282763%_ + _%target6816168373%_ + _%tl6816368376%_) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)))) + (_%__kont8276482765%_ + _%tl6810268679%_ + _%hd6811068706%_ + _%hd6810768696%_ + _%hd6810468686%_)) + (let () (declare (not safe)) (_%g6808868213%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g6802568150%_))))) + (_%g6808868213%_))))) (let () (declare (not safe)) - (_%g6802568150%_))))) + (_%g6808868213%_))))) (let () (declare (not safe)) - (_%g6802568150%_))))) - (let () (declare (not safe)) (_%g6802568150%_))))) - (let () (declare (not safe)) (_%g6802568150%_)))))))) + (_%g6808868213%_))))) + (let () (declare (not safe)) (_%g6808868213%_))))) + (let () (declare (not safe)) (_%g6808868213%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#with-receiver| - (lambda (_%stx68843%_) - (let* ((_%g6884668864%_ - (lambda (_%g6884768860%_) + (lambda (_%stx68906%_) + (let* ((_%g6890968927%_ + (lambda (_%g6891068923%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6884768860%_))) - (_%g6884568950%_ - (lambda (_%g6884768868%_) - (if (gx#stx-pair? _%g6884768868%_) - (let ((_%e6885068871%_ (gx#syntax-e _%g6884768868%_))) - (let ((_%hd6885168875%_ + _%g6891068923%_))) + (_%g6890869013%_ + (lambda (_%g6891068931%_) + (if (gx#stx-pair? _%g6891068931%_) + (let ((_%e6891368934%_ (gx#syntax-e _%g6891068931%_))) + (let ((_%hd6891468938%_ (let () (declare (not safe)) - (##car _%e6885068871%_))) - (_%tl6885268878%_ + (##car _%e6891368934%_))) + (_%tl6891568941%_ (let () (declare (not safe)) - (##cdr _%e6885068871%_)))) - (if (gx#stx-pair? _%tl6885268878%_) - (let ((_%e6885368881%_ - (gx#syntax-e _%tl6885268878%_))) - (let ((_%hd6885468885%_ + (##cdr _%e6891368934%_)))) + (if (gx#stx-pair? _%tl6891568941%_) + (let ((_%e6891668944%_ + (gx#syntax-e _%tl6891568941%_))) + (let ((_%hd6891768948%_ (let () (declare (not safe)) - (##car _%e6885368881%_))) - (_%tl6885568888%_ + (##car _%e6891668944%_))) + (_%tl6891868951%_ (let () (declare (not safe)) - (##cdr _%e6885368881%_)))) - (if (gx#stx-pair? _%tl6885568888%_) - (let ((_%e6885668891%_ - (gx#syntax-e _%tl6885568888%_))) - (let ((_%hd6885768895%_ + (##cdr _%e6891668944%_)))) + (if (gx#stx-pair? _%tl6891868951%_) + (let ((_%e6891968954%_ + (gx#syntax-e _%tl6891868951%_))) + (let ((_%hd6892068958%_ (let () (declare (not safe)) - (##car _%e6885668891%_))) - (_%tl6885868898%_ + (##car _%e6891968954%_))) + (_%tl6892168961%_ (let () (declare (not safe)) - (##cdr _%e6885668891%_)))) - (if (gx#stx-null? _%tl6885868898%_) - ((lambda (_%L68901%_ _%L68903%_) - (let* ((_%g6891968927%_ - (lambda (_%g6892068923%_) + (##cdr _%e6891968954%_)))) + (if (gx#stx-null? _%tl6892168961%_) + ((lambda (_%L68964%_ _%L68966%_) + (let* ((_%g6898268990%_ + (lambda (_%g6898368986%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6892068923%_))) - (_%g6891868946%_ - (lambda (_%g6892068931%_) - ((lambda (_%L68934%_) + _%g6898368986%_))) + (_%g6898169009%_ + (lambda (_%g6898368994%_) + ((lambda (_%L68997%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@receiver) - (cons _%L68934%_ '())) - (cons _%L68901%_ '())))) - _%g6892068931%_)))) + (cons _%L68997%_ '())) + (cons _%L68964%_ '())))) + _%g6898368994%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6891868946%_ + (_%g6898169009%_ (gx#core-quote-syntax - _%L68903%_)))) - _%hd6885768895%_ - _%hd6885468885%_) - (_%g6884668864%_ - _%g6884768868%_)))) - (_%g6884668864%_ _%g6884768868%_)))) - (_%g6884668864%_ _%g6884768868%_)))) - (_%g6884668864%_ _%g6884768868%_))))) - (_%g6884568950%_ _%stx68843%_)))) + _%L68966%_)))) + _%hd6892068958%_ + _%hd6891768948%_) + (_%g6890968927%_ + _%g6891068931%_)))) + (_%g6890968927%_ _%g6891068931%_)))) + (_%g6890968927%_ _%g6891068931%_)))) + (_%g6890968927%_ _%g6891068931%_))))) + (_%g6890869013%_ _%stx68906%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#let/c| - (lambda (_%stx68954%_) - (let* ((_%__stx8287082871%_ _%stx68954%_) - (_%g6895969055%_ + (lambda (_%stx69017%_) + (let* ((_%__stx8293382934%_ _%stx69017%_) + (_%g6902269118%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8287082871%_)))) - (let ((_%__kont8287382874%_ - (lambda (_%L69402%_ - _%L69404%_ - _%L69405%_ - _%L69406%_ - _%L69407%_) - (let* ((_%g6943769445%_ - (lambda (_%g6943869441%_) + _%__stx8293382934%_)))) + (let ((_%__kont8293682937%_ + (lambda (_%L69465%_ + _%L69467%_ + _%L69468%_ + _%L69469%_ + _%L69470%_) + (let* ((_%g6950069508%_ + (lambda (_%g6950169504%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6943869441%_))) - (_%g6943669472%_ - (lambda (_%g6943869449%_) - ((lambda (_%L69452%_) + _%g6950169504%_))) + (_%g6949969535%_ + (lambda (_%g6950169512%_) + ((lambda (_%L69515%_) (cons (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L69407%_ - (cons _%L69452%_ + (cons (cons (cons _%L69470%_ + (cons _%L69515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L69407%_ '()))) - (foldr (lambda (_%g6946369466%_ - _%g6946469469%_) - (cons _%g6946369466%_ - _%g6946469469%_)) + (cons _%L69470%_ '()))) + (foldr (lambda (_%g6952669529%_ + _%g6952769532%_) + (cons _%g6952669529%_ + _%g6952769532%_)) '() - _%L69405%_))) - _%g6943869449%_)))) - (_%g6943669472%_ + _%L69468%_))) + _%g6950169512%_)))) + (_%g6949969535%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda/c) - (cons (foldr (lambda (_%g6947769480%_ - _%g6947869483%_) - (cons _%g6947769480%_ - _%g6947869483%_)) + (cons (foldr (lambda (_%g6954069543%_ + _%g6954169546%_) + (cons _%g6954069543%_ + _%g6954169546%_)) '() - _%L69406%_) + _%L69469%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69404%_ - (foldr (lambda (_%g6947569486%_ - _%g6947669489%_) - (cons _%g6947569486%_ - _%g6947669489%_)) + (cons _%L69467%_ + (foldr (lambda (_%g6953869549%_ + _%g6953969552%_) + (cons _%g6953869549%_ + _%g6953969552%_)) '() - _%L69402%_))))) - (gx#stx-source _%stx68954%_)))))) - (_%__kont8287982880%_ - (lambda (_%L69205%_ _%L69207%_ _%L69208%_ _%L69209%_) + _%L69465%_))))) + (gx#stx-source _%stx69017%_)))))) + (_%__kont8294282943%_ + (lambda (_%L69268%_ _%L69270%_ _%L69271%_ _%L69272%_) (cons (gx#datum->syntax '#f 'let/c) - (cons _%L69209%_ + (cons _%L69272%_ (cons (begin (gx#syntax-check-splice-targets - _%L69207%_ - _%L69208%_) - (foldr (lambda (_%g6924369247%_ - _%g6924469250%_ - _%g6924569252%_) - (cons (cons _%g6924469250%_ - (cons _%g6924369247%_ + _%L69270%_ + _%L69271%_) + (foldr (lambda (_%g6930669310%_ + _%g6930769313%_ + _%g6930869315%_) + (cons (cons _%g6930769313%_ + (cons _%g6930669310%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%g6924569252%_)) + _%g6930869315%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L69207%_ - _%L69208%_)) + _%L69270%_ + _%L69271%_)) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':t) - (foldr (lambda (_%g6924169255%_ + (foldr (lambda (_%g6930469318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g6924269258%_) - (cons _%g6924169255%_ _%g6924269258%_)) + _%g6930569321%_) + (cons _%g6930469318%_ _%g6930569321%_)) '() - _%L69205%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8288582886%_ - (lambda (_%L69072%_) - (cons (gx#datum->syntax '#f 'let) _%L69072%_)))) - (let* ((_%__match8293982940%_ - (lambda (_%e6901169091%_ - _%hd6901269095%_ - _%tl6901369098%_ - _%e6901469101%_ - _%hd6901569105%_ - _%tl6901669108%_ - _%e6901769111%_ - _%hd6901869115%_ - _%tl6901969118%_ - _%__splice8288182882%_ - _%target6902069121%_ - _%tl6902269124%_) - (letrec ((_%loop6902369127%_ - (lambda (_%hd6902169131%_ - _%init6902769134%_ - _%var6902869136%_) - (if (gx#stx-pair? _%hd6902169131%_) - (let ((_%e6902469139%_ - (gx#syntax-e _%hd6902169131%_))) - (let ((_%lp-tl6902669146%_ + _%L69268%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8294882949%_ + (lambda (_%L69135%_) + (cons (gx#datum->syntax '#f 'let) _%L69135%_)))) + (let* ((_%__match8300283003%_ + (lambda (_%e6907469154%_ + _%hd6907569158%_ + _%tl6907669161%_ + _%e6907769164%_ + _%hd6907869168%_ + _%tl6907969171%_ + _%e6908069174%_ + _%hd6908169178%_ + _%tl6908269181%_ + _%__splice8294482945%_ + _%target6908369184%_ + _%tl6908569187%_) + (letrec ((_%loop6908669190%_ + (lambda (_%hd6908469194%_ + _%init6909069197%_ + _%var6909169199%_) + (if (gx#stx-pair? _%hd6908469194%_) + (let ((_%e6908769202%_ + (gx#syntax-e _%hd6908469194%_))) + (let ((_%lp-tl6908969209%_ (let () (declare (not safe)) - (##cdr _%e6902469139%_))) - (_%lp-hd6902569143%_ + (##cdr _%e6908769202%_))) + (_%lp-hd6908869206%_ (let () (declare (not safe)) - (##car _%e6902469139%_)))) + (##car _%e6908769202%_)))) (if (gx#stx-pair? - _%lp-hd6902569143%_) - (let ((_%e6904069149%_ + _%lp-hd6908869206%_) + (let ((_%e6910369212%_ (gx#syntax-e - _%lp-hd6902569143%_))) - (let ((_%tl6904269156%_ + _%lp-hd6908869206%_))) + (let ((_%tl6910569219%_ (let () (declare (not safe)) - (##cdr _%e6904069149%_))) - (_%hd6904169153%_ + (##cdr _%e6910369212%_))) + (_%hd6910469216%_ (let () (declare (not safe)) - (##car _%e6904069149%_)))) + (##car _%e6910369212%_)))) (if (gx#stx-pair? - _%tl6904269156%_) - (let ((_%e6904369159%_ + _%tl6910569219%_) + (let ((_%e6910669222%_ (gx#syntax-e - _%tl6904269156%_))) - (let ((_%tl6904569166%_ + _%tl6910569219%_))) + (let ((_%tl6910869229%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6904369159%_))) - (_%hd6904469163%_ - (let () (declare (not safe)) (##car _%e6904369159%_)))) - (if (gx#stx-null? _%tl6904569166%_) - (_%loop6902369127%_ - _%lp-tl6902669146%_ - (cons _%hd6904469163%_ _%init6902769134%_) - (cons _%hd6904169153%_ _%var6902869136%_)) - (_%__kont8288582886%_ _%tl6901369098%_)))) - (_%__kont8288582886%_ _%tl6901369098%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8288582886%_ - _%tl6901369098%_)))) - (let ((_%var6903069172%_ - (reverse _%var6902869136%_)) - (_%init6902969169%_ - (reverse _%init6902769134%_))) + (##cdr _%e6910669222%_))) + (_%hd6910769226%_ + (let () (declare (not safe)) (##car _%e6910669222%_)))) + (if (gx#stx-null? _%tl6910869229%_) + (_%loop6908669190%_ + _%lp-tl6908969209%_ + (cons _%hd6910769226%_ _%init6909069197%_) + (cons _%hd6910469216%_ _%var6909169199%_)) + (_%__kont8294882949%_ _%tl6907669161%_)))) + (_%__kont8294882949%_ _%tl6907669161%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8294882949%_ + _%tl6907669161%_)))) + (let ((_%var6909369235%_ + (reverse _%var6909169199%_)) + (_%init6909269232%_ + (reverse _%init6909069197%_))) (if (gx#stx-pair/null? - _%tl6901969118%_) - (let ((_%__splice8288382884%_ + _%tl6908269181%_) + (let ((_%__splice8294682947%_ (gx#syntax-split-splice - _%tl6901969118%_ + _%tl6908269181%_ '0))) - (let ((_%tl6903369178%_ + (let ((_%tl6909669241%_ (let () (declare (not safe)) (##vector-ref - _%__splice8288382884%_ + _%__splice8294682947%_ '1))) - (_%target6903169175%_ + (_%target6909469238%_ (let () (declare (not safe)) (##vector-ref - _%__splice8288382884%_ + _%__splice8294682947%_ '0)))) (if (gx#stx-null? - _%tl6903369178%_) - (letrec ((_%loop6903469181%_ - (lambda (_%hd6903269185%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body6903869188%_) - (if (gx#stx-pair? _%hd6903269185%_) - (let ((_%e6903569191%_ - (gx#syntax-e _%hd6903269185%_))) - (let ((_%lp-tl6903769198%_ + _%tl6909669241%_) + (letrec ((_%loop6909769244%_ + (lambda (_%hd6909569248%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body6910169251%_) + (if (gx#stx-pair? _%hd6909569248%_) + (let ((_%e6909869254%_ + (gx#syntax-e _%hd6909569248%_))) + (let ((_%lp-tl6910069261%_ (let () (declare (not safe)) - (##cdr _%e6903569191%_))) - (_%lp-hd6903669195%_ + (##cdr _%e6909869254%_))) + (_%lp-hd6909969258%_ (let () (declare (not safe)) - (##car _%e6903569191%_)))) - (_%loop6903469181%_ - _%lp-tl6903769198%_ - (cons _%lp-hd6903669195%_ - _%body6903869188%_)))) - (let ((_%body6903969201%_ - (reverse _%body6903869188%_))) - (let ((_%L69205%_ _%body6903969201%_) - (_%L69207%_ _%init6902969169%_) - (_%L69208%_ _%var6903069172%_) - (_%L69209%_ _%hd6901569105%_)) - (if (and (gx#identifier? _%L69209%_) + (##car _%e6909869254%_)))) + (_%loop6909769244%_ + _%lp-tl6910069261%_ + (cons _%lp-hd6909969258%_ + _%body6910169251%_)))) + (let ((_%body6910269264%_ + (reverse _%body6910169251%_))) + (let ((_%L69268%_ _%body6910269264%_) + (_%L69270%_ _%init6909269232%_) + (_%L69271%_ _%var6909369235%_) + (_%L69272%_ _%hd6907869168%_)) + (if (and (gx#identifier? _%L69272%_) (|gerbil/core/contract~TypedDefinitions[1]#is-signature?| - (foldr (lambda (_%g6923369236%_ - _%g6923469239%_) - (cons _%g6923369236%_ - _%g6923469239%_)) + (foldr (lambda (_%g6929669299%_ + _%g6929769302%_) + (cons _%g6929669299%_ + _%g6929769302%_)) '() - _%L69208%_))) - (_%__kont8287982880%_ - _%L69205%_ - _%L69207%_ - _%L69208%_ - _%L69209%_) - (_%__kont8288582886%_ - _%tl6901369098%_)))))))) - (_%loop6903469181%_ _%target6903169175%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8288582886%_ - _%tl6901369098%_)))) - (_%__kont8288582886%_ - _%tl6901369098%_))))))) - (_%loop6902369127%_ _%target6902069121%_ '() '())))) - (_%__match8291382914%_ - (lambda (_%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_) - (letrec ((_%loop6897869304%_ - (lambda (_%hd6897669308%_ - _%init6898269311%_ - _%var6898369313%_) - (if (gx#stx-pair? _%hd6897669308%_) - (let ((_%e6897969316%_ - (gx#syntax-e _%hd6897669308%_))) - (let ((_%lp-tl6898169323%_ + _%L69271%_))) + (_%__kont8294282943%_ + _%L69268%_ + _%L69270%_ + _%L69271%_ + _%L69272%_) + (_%__kont8294882949%_ + _%tl6907669161%_)))))))) + (_%loop6909769244%_ _%target6909469238%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8294882949%_ + _%tl6907669161%_)))) + (_%__kont8294882949%_ + _%tl6907669161%_))))))) + (_%loop6908669190%_ _%target6908369184%_ '() '())))) + (_%__match8297682977%_ + (lambda (_%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_) + (letrec ((_%loop6904169367%_ + (lambda (_%hd6903969371%_ + _%init6904569374%_ + _%var6904669376%_) + (if (gx#stx-pair? _%hd6903969371%_) + (let ((_%e6904269379%_ + (gx#syntax-e _%hd6903969371%_))) + (let ((_%lp-tl6904469386%_ (let () (declare (not safe)) - (##cdr _%e6897969316%_))) - (_%lp-hd6898069320%_ + (##cdr _%e6904269379%_))) + (_%lp-hd6904369383%_ (let () (declare (not safe)) - (##car _%e6897969316%_)))) + (##car _%e6904269379%_)))) (if (gx#stx-pair? - _%lp-hd6898069320%_) - (let ((_%e6900169326%_ + _%lp-hd6904369383%_) + (let ((_%e6906469389%_ (gx#syntax-e - _%lp-hd6898069320%_))) - (let ((_%tl6900369333%_ + _%lp-hd6904369383%_))) + (let ((_%tl6906669396%_ (let () (declare (not safe)) - (##cdr _%e6900169326%_))) - (_%hd6900269330%_ + (##cdr _%e6906469389%_))) + (_%hd6906569393%_ (let () (declare (not safe)) - (##car _%e6900169326%_)))) + (##car _%e6906469389%_)))) (if (gx#stx-pair? - _%tl6900369333%_) - (let ((_%e6900469336%_ + _%tl6906669396%_) + (let ((_%e6906769399%_ (gx#syntax-e - _%tl6900369333%_))) - (let ((_%tl6900669343%_ + _%tl6906669396%_))) + (let ((_%tl6906969406%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e6900469336%_))) - (_%hd6900569340%_ - (let () (declare (not safe)) (##car _%e6900469336%_)))) - (if (gx#stx-null? _%tl6900669343%_) - (_%loop6897869304%_ - _%lp-tl6898169323%_ - (cons _%hd6900569340%_ _%init6898269311%_) - (cons _%hd6900269330%_ _%var6898369313%_)) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) - (let ((_%var6898569349%_ - (reverse _%var6898369313%_)) - (_%init6898469346%_ - (reverse _%init6898269311%_))) - (if (gx#stx-pair? _%tl6897469295%_) - (let ((_%e6898669352%_ + (##cdr _%e6906769399%_))) + (_%hd6906869403%_ + (let () (declare (not safe)) (##car _%e6906769399%_)))) + (if (gx#stx-null? _%tl6906969406%_) + (_%loop6904169367%_ + _%lp-tl6904469386%_ + (cons _%hd6906869403%_ _%init6904569374%_) + (cons _%hd6906569393%_ _%var6904669376%_)) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) + (let ((_%var6904869412%_ + (reverse _%var6904669376%_)) + (_%init6904769409%_ + (reverse _%init6904569374%_))) + (if (gx#stx-pair? _%tl6903769358%_) + (let ((_%e6904969415%_ (gx#syntax-e - _%tl6897469295%_))) - (let ((_%tl6898869359%_ + _%tl6903769358%_))) + (let ((_%tl6905169422%_ (let () (declare (not safe)) - (##cdr _%e6898669352%_))) - (_%hd6898769356%_ + (##cdr _%e6904969415%_))) + (_%hd6905069419%_ (let () (declare (not safe)) - (##car _%e6898669352%_)))) + (##car _%e6904969415%_)))) (if (gx#identifier? - _%hd6898769356%_) + _%hd6905069419%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84206_| - _%hd6898769356%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84269_| + _%hd6905069419%_) (if (gx#stx-pair? - _%tl6898869359%_) - (let ((_%e6898969362%_ + _%tl6905169422%_) + (let ((_%e6905269425%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl6898869359%_))) - (let ((_%tl6899169369%_ + (gx#syntax-e _%tl6905169422%_))) + (let ((_%tl6905469432%_ (let () (declare (not safe)) - (##cdr _%e6898969362%_))) - (_%hd6899069366%_ + (##cdr _%e6905269425%_))) + (_%hd6905369429%_ (let () (declare (not safe)) - (##car _%e6898969362%_)))) - (if (gx#stx-pair/null? _%tl6899169369%_) - (let ((_%__splice8287782878%_ + (##car _%e6905269425%_)))) + (if (gx#stx-pair/null? _%tl6905469432%_) + (let ((_%__splice8294082941%_ (gx#syntax-split-splice - _%tl6899169369%_ + _%tl6905469432%_ '0))) - (let ((_%tl6899469375%_ + (let ((_%tl6905769438%_ (let () (declare (not safe)) (##vector-ref - _%__splice8287782878%_ + _%__splice8294082941%_ '1))) - (_%target6899269372%_ + (_%target6905569435%_ (let () (declare (not safe)) (##vector-ref - _%__splice8287782878%_ + _%__splice8294082941%_ '0)))) - (if (gx#stx-null? _%tl6899469375%_) - (letrec ((_%loop6899569378%_ - (lambda (_%hd6899369382%_ - _%body6899969385%_) + (if (gx#stx-null? _%tl6905769438%_) + (letrec ((_%loop6905869441%_ + (lambda (_%hd6905669445%_ + _%body6906269448%_) (if (gx#stx-pair? - _%hd6899369382%_) - (let ((_%e6899669388%_ + _%hd6905669445%_) + (let ((_%e6905969451%_ (gx#syntax-e - _%hd6899369382%_))) - (let ((_%lp-tl6899869395%_ + _%hd6905669445%_))) + (let ((_%lp-tl6906169458%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e6899669388%_))) - (_%lp-hd6899769392%_ - (let () (declare (not safe)) (##car _%e6899669388%_)))) - (_%loop6899569378%_ - _%lp-tl6899869395%_ - (cons _%lp-hd6899769392%_ _%body6899969385%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body6900069398%_ - (reverse _%body6899969385%_))) - (let ((_%L69402%_ - _%body6900069398%_) - (_%L69404%_ - _%hd6899069366%_) - (_%L69405%_ - _%init6898469346%_) - (_%L69406%_ - _%var6898569349%_) - (_%L69407%_ - _%hd6897069282%_)) + (##cdr _%e6905969451%_))) + (_%lp-hd6906069455%_ + (let () (declare (not safe)) (##car _%e6905969451%_)))) + (_%loop6905869441%_ + _%lp-tl6906169458%_ + (cons _%lp-hd6906069455%_ _%body6906269448%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body6906369461%_ + (reverse _%body6906269448%_))) + (let ((_%L69465%_ + _%body6906369461%_) + (_%L69467%_ + _%hd6905369429%_) + (_%L69468%_ + _%init6904769409%_) + (_%L69469%_ + _%var6904869412%_) + (_%L69470%_ + _%hd6903369345%_)) (if (gx#identifier? - _%L69407%_) - (_%__kont8287382874%_ - _%L69402%_ - _%L69404%_ - _%L69405%_ - _%L69406%_ - _%L69407%_) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))))))) - (_%loop6899569378%_ - _%target6899269372%_ + _%L69470%_) + (_%__kont8293682937%_ + _%L69465%_ + _%L69467%_ + _%L69468%_ + _%L69469%_ + _%L69470%_) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))))))) + (_%loop6905869441%_ + _%target6905569435%_ '())) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_)))) - (_%__match8293982940%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_))))))) - (_%loop6897869304%_ _%target6897569298%_ '() '()))))) - (if (gx#stx-pair? _%__stx8287082871%_) - (let ((_%e6896669268%_ (gx#syntax-e _%__stx8287082871%_))) - (let ((_%tl6896869275%_ + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_)))) + (_%__match8300283003%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_))))))) + (_%loop6904169367%_ _%target6903869361%_ '() '()))))) + (if (gx#stx-pair? _%__stx8293382934%_) + (let ((_%e6902969331%_ (gx#syntax-e _%__stx8293382934%_))) + (let ((_%tl6903169338%_ (let () (declare (not safe)) - (##cdr _%e6896669268%_))) - (_%hd6896769272%_ + (##cdr _%e6902969331%_))) + (_%hd6903069335%_ (let () (declare (not safe)) - (##car _%e6896669268%_)))) - (if (gx#stx-pair? _%tl6896869275%_) - (let ((_%e6896969278%_ - (gx#syntax-e _%tl6896869275%_))) - (let ((_%tl6897169285%_ + (##car _%e6902969331%_)))) + (if (gx#stx-pair? _%tl6903169338%_) + (let ((_%e6903269341%_ + (gx#syntax-e _%tl6903169338%_))) + (let ((_%tl6903469348%_ (let () (declare (not safe)) - (##cdr _%e6896969278%_))) - (_%hd6897069282%_ + (##cdr _%e6903269341%_))) + (_%hd6903369345%_ (let () (declare (not safe)) - (##car _%e6896969278%_)))) - (if (gx#stx-pair? _%tl6897169285%_) - (let ((_%e6897269288%_ - (gx#syntax-e _%tl6897169285%_))) - (let ((_%tl6897469295%_ + (##car _%e6903269341%_)))) + (if (gx#stx-pair? _%tl6903469348%_) + (let ((_%e6903569351%_ + (gx#syntax-e _%tl6903469348%_))) + (let ((_%tl6903769358%_ (let () (declare (not safe)) - (##cdr _%e6897269288%_))) - (_%hd6897369292%_ + (##cdr _%e6903569351%_))) + (_%hd6903669355%_ (let () (declare (not safe)) - (##car _%e6897269288%_)))) - (if (gx#stx-pair/null? _%hd6897369292%_) - (let ((_%__splice8287582876%_ + (##car _%e6903569351%_)))) + (if (gx#stx-pair/null? _%hd6903669355%_) + (let ((_%__splice8293882939%_ (gx#syntax-split-splice - _%hd6897369292%_ + _%hd6903669355%_ '0))) - (let ((_%tl6897769301%_ + (let ((_%tl6904069364%_ (let () (declare (not safe)) (##vector-ref - _%__splice8287582876%_ + _%__splice8293882939%_ '1))) - (_%target6897569298%_ + (_%target6903869361%_ (let () (declare (not safe)) (##vector-ref - _%__splice8287582876%_ + _%__splice8293882939%_ '0)))) (if (gx#stx-null? - _%tl6897769301%_) - (_%__match8291382914%_ - _%e6896669268%_ - _%hd6896769272%_ - _%tl6896869275%_ - _%e6896969278%_ - _%hd6897069282%_ - _%tl6897169285%_ - _%e6897269288%_ - _%hd6897369292%_ - _%tl6897469295%_ - _%__splice8287582876%_ - _%target6897569298%_ - _%tl6897769301%_) - (_%__kont8288582886%_ - _%tl6896869275%_)))) - (_%__kont8288582886%_ - _%tl6896869275%_)))) - (_%__kont8288582886%_ _%tl6896869275%_)))) - (_%__kont8288582886%_ _%tl6896869275%_)))) - (let () (declare (not safe)) (_%g6895969055%_)))))))) + _%tl6904069364%_) + (_%__match8297682977%_ + _%e6902969331%_ + _%hd6903069335%_ + _%tl6903169338%_ + _%e6903269341%_ + _%hd6903369345%_ + _%tl6903469348%_ + _%e6903569351%_ + _%hd6903669355%_ + _%tl6903769358%_ + _%__splice8293882939%_ + _%target6903869361%_ + _%tl6904069364%_) + (_%__kont8294882949%_ + _%tl6903169338%_)))) + (_%__kont8294882949%_ + _%tl6903169338%_)))) + (_%__kont8294882949%_ _%tl6903169338%_)))) + (_%__kont8294882949%_ _%tl6903169338%_)))) + (let () (declare (not safe)) (_%g6902269118%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defclass/c| - (lambda (_%stx69500%_) - (letrec ((_%generate69503%_ - (lambda (_%hd76674%_ _%slots76676%_ _%body76677%_) - (let* ((_%__stx8294882949%_ _%hd76674%_) - (_%g7668176703%_ + (lambda (_%stx69563%_) + (letrec ((_%generate69566%_ + (lambda (_%hd76737%_ _%slots76739%_ _%body76740%_) + (let* ((_%__stx8301183012%_ _%hd76737%_) + (_%g7674476766%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8294882949%_)))) - (let ((_%__kont8295182952%_ - (lambda (_%L76779%_ _%L76781%_) - (_%generate-defclass69524%_ - _%L76781%_ - (foldr (lambda (_%g7680376806%_ - _%g7680476809%_) - (cons _%g7680376806%_ - _%g7680476809%_)) + _%__stx8301183012%_)))) + (let ((_%__kont8301483015%_ + (lambda (_%L76842%_ _%L76844%_) + (_%generate-defclass69587%_ + _%L76844%_ + (foldr (lambda (_%g7686676869%_ + _%g7686776872%_) + (cons _%g7686676869%_ + _%g7686776872%_)) '() - _%L76779%_) - _%slots76676%_ - _%body76677%_))) - (_%__kont8295582956%_ - (lambda (_%L76721%_) - (_%generate-defclass69524%_ - _%L76721%_ + _%L76842%_) + _%slots76739%_ + _%body76740%_))) + (_%__kont8301883019%_ + (lambda (_%L76784%_) + (_%generate-defclass69587%_ + _%L76784%_ '() - _%slots76676%_ - _%body76677%_))) - (_%__kont8295782958%_ + _%slots76739%_ + _%body76740%_))) + (_%__kont8302083021%_ (lambda () (gx#raise-syntax-error '#f '"bad class head" - _%stx69500%_ - _%hd76674%_)))) - (let* ((_%g7667976732%_ + _%stx69563%_ + _%hd76737%_)))) + (let* ((_%g7674276795%_ (lambda () - (let ((_%L76721%_ _%__stx8294882949%_)) - (if (gx#identifier? _%L76721%_) - (_%__kont8295582956%_ _%L76721%_) - (_%__kont8295782958%_))))) - (_%__match8297382974%_ - (lambda (_%e7668576739%_ - _%hd7668676743%_ - _%tl7668776746%_ - _%__splice8295382954%_ - _%target7668876749%_ - _%tl7669076752%_) - (letrec ((_%loop7669176755%_ - (lambda (_%hd7668976759%_ - _%super7669576762%_) + (let ((_%L76784%_ _%__stx8301183012%_)) + (if (gx#identifier? _%L76784%_) + (_%__kont8301883019%_ _%L76784%_) + (_%__kont8302083021%_))))) + (_%__match8303683037%_ + (lambda (_%e7674876802%_ + _%hd7674976806%_ + _%tl7675076809%_ + _%__splice8301683017%_ + _%target7675176812%_ + _%tl7675376815%_) + (letrec ((_%loop7675476818%_ + (lambda (_%hd7675276822%_ + _%super7675876825%_) (if (gx#stx-pair? - _%hd7668976759%_) - (let ((_%e7669276765%_ + _%hd7675276822%_) + (let ((_%e7675576828%_ (gx#syntax-e - _%hd7668976759%_))) - (let ((_%lp-tl7669476772%_ + _%hd7675276822%_))) + (let ((_%lp-tl7675776835%_ (let () (declare (not safe)) - (##cdr _%e7669276765%_))) - (_%lp-hd7669376769%_ + (##cdr _%e7675576828%_))) + (_%lp-hd7675676832%_ (let () (declare (not safe)) - (##car _%e7669276765%_)))) - (_%loop7669176755%_ - _%lp-tl7669476772%_ - (cons _%lp-hd7669376769%_ - _%super7669576762%_)))) - (let ((_%super7669676775%_ - (reverse _%super7669576762%_))) - (let ((_%L76779%_ - _%super7669676775%_) - (_%L76781%_ - _%hd7668676743%_)) + (##car _%e7675576828%_)))) + (_%loop7675476818%_ + _%lp-tl7675776835%_ + (cons _%lp-hd7675676832%_ + _%super7675876825%_)))) + (let ((_%super7675976838%_ + (reverse _%super7675876825%_))) + (let ((_%L76842%_ + _%super7675976838%_) + (_%L76844%_ + _%hd7674976806%_)) (if (and (gx#identifier? - _%L76781%_) + _%L76844%_) (andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g7679576798%_ _%g7679676801%_) - (cons _%g7679576798%_ _%g7679676801%_)) + (foldr (lambda (_%g7685876861%_ _%g7685976864%_) + (cons _%g7685876861%_ _%g7685976864%_)) '() - _%L76779%_))) - (_%__kont8295182952%_ _%L76779%_ _%L76781%_) - (let () (declare (not safe)) (_%g7667976732%_))))))))) + _%L76842%_))) + (_%__kont8301483015%_ _%L76842%_ _%L76844%_) + (let () (declare (not safe)) (_%g7674276795%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7669176755%_ - _%target7668876749%_ + (_%loop7675476818%_ + _%target7675176812%_ '()))))) - (if (gx#stx-pair? _%__stx8294882949%_) - (let ((_%e7668576739%_ - (gx#syntax-e _%__stx8294882949%_))) - (let ((_%tl7668776746%_ + (if (gx#stx-pair? _%__stx8301183012%_) + (let ((_%e7674876802%_ + (gx#syntax-e _%__stx8301183012%_))) + (let ((_%tl7675076809%_ (let () (declare (not safe)) - (##cdr _%e7668576739%_))) - (_%hd7668676743%_ + (##cdr _%e7674876802%_))) + (_%hd7674976806%_ (let () (declare (not safe)) - (##car _%e7668576739%_)))) - (if (gx#stx-pair/null? _%tl7668776746%_) - (let ((_%__splice8295382954%_ + (##car _%e7674876802%_)))) + (if (gx#stx-pair/null? _%tl7675076809%_) + (let ((_%__splice8301683017%_ (gx#syntax-split-splice - _%tl7668776746%_ + _%tl7675076809%_ '0))) - (let ((_%tl7669076752%_ + (let ((_%tl7675376815%_ (let () (declare (not safe)) (##vector-ref - _%__splice8295382954%_ + _%__splice8301683017%_ '1))) - (_%target7668876749%_ + (_%target7675176812%_ (let () (declare (not safe)) (##vector-ref - _%__splice8295382954%_ + _%__splice8301683017%_ '0)))) - (if (gx#stx-null? _%tl7669076752%_) - (_%__match8297382974%_ - _%e7668576739%_ - _%hd7668676743%_ - _%tl7668776746%_ - _%__splice8295382954%_ - _%target7668876749%_ - _%tl7669076752%_) + (if (gx#stx-null? _%tl7675376815%_) + (_%__match8303683037%_ + _%e7674876802%_ + _%hd7674976806%_ + _%tl7675076809%_ + _%__splice8301683017%_ + _%target7675176812%_ + _%tl7675376815%_) (let () (declare (not safe)) - (_%g7667976732%_))))) + (_%g7674276795%_))))) (let () (declare (not safe)) - (_%g7667976732%_))))) + (_%g7674276795%_))))) (let () (declare (not safe)) - (_%g7667976732%_)))))))) - (_%check-typedef-body!69505%_ - (lambda (_%body76665%_) - (letrec ((_%body-opt?76668%_ - (lambda (_%key76671%_) - (let ((__tmp84207 (gx#stx-e _%key76671%_))) + (_%g7674276795%_)))))))) + (_%check-typedef-body!69568%_ + (lambda (_%body76728%_) + (letrec ((_%body-opt?76731%_ + (lambda (_%key76734%_) + (let ((__tmp84270 (gx#stx-e _%key76734%_))) (declare (not safe)) - (##memq __tmp84207 + (##memq __tmp84270 '(id: struct: name: @@ -6716,107 +6716,107 @@ print: equal: metaclass:)))))) - (if (gx#stx-plist? _%body76665%_ _%body-opt?76668%_) + (if (gx#stx-plist? _%body76728%_ _%body-opt?76731%_) '#!void (gx#raise-syntax-error '#f '"invalid defclass body" - _%stx69500%_ - _%body76665%_))))) - (_%slot-name69506%_ - (lambda (_%slot-spec76662%_) + _%stx69563%_ + _%body76728%_))))) + (_%slot-name69569%_ + (lambda (_%slot-spec76725%_) (gx#stx-e - (if (gx#identifier? _%slot-spec76662%_) - _%slot-spec76662%_ - (gx#stx-car _%slot-spec76662%_))))) - (_%slot-contract69507%_ - (lambda (_%slot-spec76543%_) - (let* ((_%__stx8297682977%_ _%slot-spec76543%_) - (_%g7654876569%_ + (if (gx#identifier? _%slot-spec76725%_) + _%slot-spec76725%_ + (gx#stx-car _%slot-spec76725%_))))) + (_%slot-contract69570%_ + (lambda (_%slot-spec76606%_) + (let* ((_%__stx8303983040%_ _%slot-spec76606%_) + (_%g7661176632%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8297682977%_)))) - (let ((_%__kont8297982980%_ (lambda (_%L76649%_) '#f)) - (_%__kont8298182982%_ - (lambda (_%L76627%_ _%L76629%_) '#f)) - (_%__kont8298382984%_ - (lambda (_%L76586%_ _%L76588%_) _%L76586%_))) - (let* ((_%g7654676642%_ + _%__stx8303983040%_)))) + (let ((_%__kont8304283043%_ (lambda (_%L76712%_) '#f)) + (_%__kont8304483045%_ + (lambda (_%L76690%_ _%L76692%_) '#f)) + (_%__kont8304683047%_ + (lambda (_%L76649%_ _%L76651%_) _%L76649%_))) + (let* ((_%g7660976705%_ (lambda () - (if (gx#stx-pair? _%__stx8297682977%_) - (let ((_%e7655376607%_ + (if (gx#stx-pair? _%__stx8303983040%_) + (let ((_%e7661676670%_ (gx#syntax-e - _%__stx8297682977%_))) - (let ((_%tl7655576614%_ + _%__stx8303983040%_))) + (let ((_%tl7661876677%_ (let () (declare (not safe)) - (##cdr _%e7655376607%_))) - (_%hd7655476611%_ + (##cdr _%e7661676670%_))) + (_%hd7661776674%_ (let () (declare (not safe)) - (##car _%e7655376607%_)))) - (if (gx#stx-pair? _%tl7655576614%_) - (let ((_%e7655676617%_ + (##car _%e7661676670%_)))) + (if (gx#stx-pair? _%tl7661876677%_) + (let ((_%e7661976680%_ (gx#syntax-e - _%tl7655576614%_))) - (let ((_%tl7655876624%_ + _%tl7661876677%_))) + (let ((_%tl7662176687%_ (let () (declare (not safe)) - (##cdr _%e7655676617%_))) - (_%hd7655776621%_ + (##cdr _%e7661976680%_))) + (_%hd7662076684%_ (let () (declare (not safe)) - (##car _%e7655676617%_)))) + (##car _%e7661976680%_)))) (if (gx#stx-null? - _%tl7655876624%_) - (_%__kont8298182982%_ - _%hd7655776621%_ - _%hd7655476611%_) - (_%__kont8298382984%_ - _%tl7655576614%_ - _%hd7655476611%_)))) - (_%__kont8298382984%_ - _%tl7655576614%_ - _%hd7655476611%_)))) + _%tl7662176687%_) + (_%__kont8304483045%_ + _%hd7662076684%_ + _%hd7661776674%_) + (_%__kont8304683047%_ + _%tl7661876677%_ + _%hd7661776674%_)))) + (_%__kont8304683047%_ + _%tl7661876677%_ + _%hd7661776674%_)))) (let () (declare (not safe)) - (_%g7654876569%_))))) - (_%L76649%_ _%__stx8297682977%_)) - (if (gx#identifier? _%L76649%_) - (_%__kont8297982980%_ _%L76649%_) + (_%g7661176632%_))))) + (_%L76712%_ _%__stx8303983040%_)) + (if (gx#identifier? _%L76712%_) + (_%__kont8304283043%_ _%L76712%_) (let () (declare (not safe)) - (_%g7654676642%_)))))))) - (_%slot-contract-normalize69508%_ - (lambda (_%slot-spec76532%_) - (let ((_%contract7653476536%_ - (_%slot-contract69507%_ _%slot-spec76532%_))) - (if _%contract7653476536%_ - (let ((_%contract76540%_ _%contract7653476536%_)) - (_%contract-normalize69509%_ _%contract76540%_)) + (_%g7660976705%_)))))))) + (_%slot-contract-normalize69571%_ + (lambda (_%slot-spec76595%_) + (let ((_%contract7659776599%_ + (_%slot-contract69570%_ _%slot-spec76595%_))) + (if _%contract7659776599%_ + (let ((_%contract76603%_ _%contract7659776599%_)) + (_%contract-normalize69572%_ _%contract76603%_)) '#f)))) - (_%contract-normalize69509%_ - (lambda (_%contract76277%_) - (let* ((_%__stx8300883009%_ _%contract76277%_) - (_%g7628376327%_ + (_%contract-normalize69572%_ + (lambda (_%contract76340%_) + (let* ((_%__stx8307183072%_ _%contract76340%_) + (_%g7634676390%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8300883009%_)))) - (let ((_%__kont8301183012%_ - (lambda (_%L76503%_) - (_%contract-normalize69509%_ - (foldr (lambda (_%g7651976522%_ - _%g7652076525%_) - (cons _%g7651976522%_ - _%g7652076525%_)) + _%__stx8307183072%_)))) + (let ((_%__kont8307483075%_ + (lambda (_%L76566%_) + (_%contract-normalize69572%_ + (foldr (lambda (_%g7658276585%_ + _%g7658376588%_) + (cons _%g7658276585%_ + _%g7658376588%_)) '() - _%L76503%_)))) - (_%__kont8301583016%_ - (lambda (_%L76427%_ _%L76429%_) + _%L76566%_)))) + (_%__kont8307883079%_ + (lambda (_%L76490%_ _%L76492%_) (cons (gx#datum->syntax '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax @@ -6826,4275 +6826,4275 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'not) - (cons _%L76429%_ '()))) + (cons _%L76492%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (gx#datum->syntax '#f ':?) - (cons _%L76427%_ '())))))) - (_%__kont8301783018%_ (lambda (_%L76365%_) '#f)) - (_%__kont8301983020%_ - (lambda () _%contract76277%_))) - (let* ((_%g7628076446%_ + (cons _%L76490%_ '())))))) + (_%__kont8308083081%_ (lambda (_%L76428%_) '#f)) + (_%__kont8308283083%_ + (lambda () _%contract76340%_))) + (let* ((_%g7634376509%_ (lambda () - (if (gx#stx-pair? _%__stx8300883009%_) - (let ((_%e7630376387%_ + (if (gx#stx-pair? _%__stx8307183072%_) + (let ((_%e7636676450%_ (gx#syntax-e - _%__stx8300883009%_))) - (let ((_%tl7630576394%_ + _%__stx8307183072%_))) + (let ((_%tl7636876457%_ (let () (declare (not safe)) - (##cdr _%e7630376387%_))) - (_%hd7630476391%_ + (##cdr _%e7636676450%_))) + (_%hd7636776454%_ (let () (declare (not safe)) - (##car _%e7630376387%_)))) - (if (gx#identifier? _%hd7630476391%_) + (##car _%e7636676450%_)))) + (if (gx#identifier? _%hd7636776454%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84208_| - _%hd7630476391%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84271_| + _%hd7636776454%_) (if (gx#stx-pair? - _%tl7630576394%_) - (let ((_%e7630676397%_ + _%tl7636876457%_) + (let ((_%e7636976460%_ (gx#syntax-e - _%tl7630576394%_))) - (let ((_%tl7630876404%_ + _%tl7636876457%_))) + (let ((_%tl7637176467%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e7630676397%_))) - (_%hd7630776401%_ - (let () (declare (not safe)) (##car _%e7630676397%_)))) - (if (gx#stx-pair? _%tl7630876404%_) - (let ((_%e7630976407%_ (gx#syntax-e _%tl7630876404%_))) - (let ((_%tl7631176414%_ + (##cdr _%e7636976460%_))) + (_%hd7637076464%_ + (let () (declare (not safe)) (##car _%e7636976460%_)))) + (if (gx#stx-pair? _%tl7637176467%_) + (let ((_%e7637276470%_ (gx#syntax-e _%tl7637176467%_))) + (let ((_%tl7637476477%_ (let () (declare (not safe)) - (##cdr _%e7630976407%_))) - (_%hd7631076411%_ + (##cdr _%e7637276470%_))) + (_%hd7637376474%_ (let () (declare (not safe)) - (##car _%e7630976407%_)))) - (if (gx#identifier? _%hd7631076411%_) + (##car _%e7637276470%_)))) + (if (gx#identifier? _%hd7637376474%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84209_| - _%hd7631076411%_) - (if (gx#stx-pair? _%tl7631176414%_) - (let ((_%e7631276417%_ - (gx#syntax-e _%tl7631176414%_))) - (let ((_%tl7631476424%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84272_| + _%hd7637376474%_) + (if (gx#stx-pair? _%tl7637476477%_) + (let ((_%e7637576480%_ + (gx#syntax-e _%tl7637476477%_))) + (let ((_%tl7637776487%_ (let () (declare (not safe)) - (##cdr _%e7631276417%_))) - (_%hd7631376421%_ + (##cdr _%e7637576480%_))) + (_%hd7637676484%_ (let () (declare (not safe)) - (##car _%e7631276417%_)))) - (if (gx#stx-null? _%tl7631476424%_) - (_%__kont8301583016%_ - _%hd7631376421%_ - _%hd7630776401%_) - (_%__kont8301983020%_)))) - (_%__kont8301983020%_)) - (_%__kont8301983020%_)) - (_%__kont8301983020%_)))) - (_%__kont8301983020%_)))) - (_%__kont8301983020%_)) + (##car _%e7637576480%_)))) + (if (gx#stx-null? _%tl7637776487%_) + (_%__kont8307883079%_ + _%hd7637676484%_ + _%hd7637076464%_) + (_%__kont8308283083%_)))) + (_%__kont8308283083%_)) + (_%__kont8308283083%_)) + (_%__kont8308283083%_)))) + (_%__kont8308283083%_)))) + (_%__kont8308283083%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84210_| - _%hd7630476391%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84273_| + _%hd7636776454%_) (if (gx#stx-pair? - _%tl7630576394%_) - (let ((_%e7631976355%_ + _%tl7636876457%_) + (let ((_%e7638276418%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7630576394%_))) - (let ((_%tl7632176362%_ + (gx#syntax-e _%tl7636876457%_))) + (let ((_%tl7638476425%_ (let () (declare (not safe)) - (##cdr _%e7631976355%_))) - (_%hd7632076359%_ + (##cdr _%e7638276418%_))) + (_%hd7638376422%_ (let () (declare (not safe)) - (##car _%e7631976355%_)))) - (if (gx#stx-null? _%tl7632176362%_) - (_%__kont8301783018%_ _%hd7632076359%_) - (_%__kont8301983020%_)))) - (_%__kont8301983020%_)) - (_%__kont8301983020%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8301983020%_)))) - (_%__kont8301983020%_)))) - (_%__match8304783048%_ - (lambda (_%__splice8301383014%_ - _%target7628676453%_ - _%tl7628876456%_ - _%e7629576459%_ - _%hd7629676463%_ - _%tl7629776466%_ - _%e7629876469%_ - _%hd7629976473%_ - _%tl7630076476%_) - (letrec ((_%loop7628976479%_ - (lambda (_%hd7628776483%_ - _%pre7629376486%_) + (##car _%e7638276418%_)))) + (if (gx#stx-null? _%tl7638476425%_) + (_%__kont8308083081%_ _%hd7638376422%_) + (_%__kont8308283083%_)))) + (_%__kont8308283083%_)) + (_%__kont8308283083%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8308283083%_)))) + (_%__kont8308283083%_)))) + (_%__match8311083111%_ + (lambda (_%__splice8307683077%_ + _%target7634976516%_ + _%tl7635176519%_ + _%e7635876522%_ + _%hd7635976526%_ + _%tl7636076529%_ + _%e7636176532%_ + _%hd7636276536%_ + _%tl7636376539%_) + (letrec ((_%loop7635276542%_ + (lambda (_%hd7635076546%_ + _%pre7635676549%_) (if (gx#stx-pair? - _%hd7628776483%_) - (let ((_%e7629076489%_ + _%hd7635076546%_) + (let ((_%e7635376552%_ (gx#syntax-e - _%hd7628776483%_))) - (let ((_%lp-tl7629276496%_ + _%hd7635076546%_))) + (let ((_%lp-tl7635576559%_ (let () (declare (not safe)) - (##cdr _%e7629076489%_))) - (_%lp-hd7629176493%_ + (##cdr _%e7635376552%_))) + (_%lp-hd7635476556%_ (let () (declare (not safe)) - (##car _%e7629076489%_)))) - (_%loop7628976479%_ - _%lp-tl7629276496%_ - (cons _%lp-hd7629176493%_ - _%pre7629376486%_)))) - (let ((_%pre7629476499%_ - (reverse _%pre7629376486%_))) - (_%__kont8301183012%_ - _%pre7629476499%_)))))) - (_%loop7628976479%_ - _%target7628676453%_ + (##car _%e7635376552%_)))) + (_%loop7635276542%_ + _%lp-tl7635576559%_ + (cons _%lp-hd7635476556%_ + _%pre7635676549%_)))) + (let ((_%pre7635776562%_ + (reverse _%pre7635676549%_))) + (_%__kont8307483075%_ + _%pre7635776562%_)))))) + (_%loop7635276542%_ + _%target7634976516%_ '()))))) - (if (gx#stx-pair/null? _%__stx8300883009%_) - (if (let ((__tmp84211 - (gx#stx-length _%__stx8300883009%_))) + (if (gx#stx-pair/null? _%__stx8307183072%_) + (if (let ((__tmp84274 + (gx#stx-length _%__stx8307183072%_))) (declare (not safe)) - (##fx>= __tmp84211 '2)) - (let ((_%__splice8301383014%_ + (##fx>= __tmp84274 '2)) + (let ((_%__splice8307683077%_ (gx#syntax-split-splice - _%__stx8300883009%_ + _%__stx8307183072%_ '2))) - (let ((_%tl7628876456%_ + (let ((_%tl7635176519%_ (let () (declare (not safe)) (##vector-ref - _%__splice8301383014%_ + _%__splice8307683077%_ '1))) - (_%target7628676453%_ + (_%target7634976516%_ (let () (declare (not safe)) (##vector-ref - _%__splice8301383014%_ + _%__splice8307683077%_ '0)))) - (if (gx#stx-pair? _%tl7628876456%_) - (let ((_%e7629576459%_ + (if (gx#stx-pair? _%tl7635176519%_) + (let ((_%e7635876522%_ (gx#syntax-e - _%tl7628876456%_))) - (let ((_%tl7629776466%_ + _%tl7635176519%_))) + (let ((_%tl7636076529%_ (let () (declare (not safe)) - (##cdr _%e7629576459%_))) - (_%hd7629676463%_ + (##cdr _%e7635876522%_))) + (_%hd7635976526%_ (let () (declare (not safe)) - (##car _%e7629576459%_)))) + (##car _%e7635876522%_)))) (if (gx#identifier? - _%hd7629676463%_) + _%hd7635976526%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84212_| - _%hd7629676463%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84275_| + _%hd7635976526%_) (if (gx#stx-pair? - _%tl7629776466%_) - (let ((_%e7629876469%_ + _%tl7636076529%_) + (let ((_%e7636176532%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7629776466%_))) - (let ((_%tl7630076476%_ + (gx#syntax-e _%tl7636076529%_))) + (let ((_%tl7636376539%_ (let () (declare (not safe)) - (##cdr _%e7629876469%_))) - (_%hd7629976473%_ + (##cdr _%e7636176532%_))) + (_%hd7636276536%_ (let () (declare (not safe)) - (##car _%e7629876469%_)))) - (if (gx#stx-null? _%tl7630076476%_) - (_%__match8304783048%_ - _%__splice8301383014%_ - _%target7628676453%_ - _%tl7628876456%_ - _%e7629576459%_ - _%hd7629676463%_ - _%tl7629776466%_ - _%e7629876469%_ - _%hd7629976473%_ - _%tl7630076476%_) - (let () (declare (not safe)) (_%g7628076446%_))))) - (let () (declare (not safe)) (_%g7628076446%_))) - (let () (declare (not safe)) (_%g7628076446%_))) + (##car _%e7636176532%_)))) + (if (gx#stx-null? _%tl7636376539%_) + (_%__match8311083111%_ + _%__splice8307683077%_ + _%target7634976516%_ + _%tl7635176519%_ + _%e7635876522%_ + _%hd7635976526%_ + _%tl7636076529%_ + _%e7636176532%_ + _%hd7636276536%_ + _%tl7636376539%_) + (let () (declare (not safe)) (_%g7634376509%_))))) + (let () (declare (not safe)) (_%g7634376509%_))) + (let () (declare (not safe)) (_%g7634376509%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7628076446%_))))) + (_%g7634376509%_))))) (let () (declare (not safe)) - (_%g7628076446%_))))) + (_%g7634376509%_))))) (let () (declare (not safe)) - (_%g7628076446%_))) + (_%g7634376509%_))) (let () (declare (not safe)) - (_%g7628076446%_)))))))) - (_%slot-contract-type69510%_ - (lambda (_%slot-spec76266%_) - (let ((_%contract7626876270%_ - (_%slot-contract69507%_ _%slot-spec76266%_))) - (if _%contract7626876270%_ - (let ((_%contract76274%_ _%contract7626876270%_)) - (_%contract-type69511%_ _%contract76274%_)) + (_%g7634376509%_)))))))) + (_%slot-contract-type69573%_ + (lambda (_%slot-spec76329%_) + (let ((_%contract7633176333%_ + (_%slot-contract69570%_ _%slot-spec76329%_))) + (if _%contract7633176333%_ + (let ((_%contract76337%_ _%contract7633176333%_)) + (_%contract-type69574%_ _%contract76337%_)) '#f)))) - (_%contract-type69511%_ - (lambda (_%contract76074%_) - (let* ((_%__stx8310283103%_ _%contract76074%_) - (_%g7607976111%_ + (_%contract-type69574%_ + (lambda (_%contract76137%_) + (let* ((_%__stx8316583166%_ _%contract76137%_) + (_%g7614276174%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8310283103%_)))) - (let ((_%__kont8310583106%_ - (lambda (_%L76233%_ _%L76235%_ _%L76236%_) - _%L76235%_)) - (_%__kont8310783108%_ - (lambda (_%L76169%_ - _%L76171%_ - _%L76172%_ - _%L76173%_) - _%L76171%_)) - (_%__kont8310983110%_ (lambda () '#f))) - (let* ((_%__match8315183152%_ - (lambda (_%e7609476129%_ - _%hd7609576133%_ - _%tl7609676136%_ - _%e7609776139%_ - _%hd7609876143%_ - _%tl7609976146%_ - _%e7610076149%_ - _%hd7610176153%_ - _%tl7610276156%_ - _%e7610376159%_ - _%hd7610476163%_ - _%tl7610576166%_) - (let ((_%L76169%_ _%tl7610576166%_) - (_%L76171%_ _%hd7610476163%_) - (_%L76172%_ _%hd7610176153%_) - (_%L76173%_ _%hd7609876143%_)) - (if (and (gx#identifier? _%L76172%_) + _%__stx8316583166%_)))) + (let ((_%__kont8316883169%_ + (lambda (_%L76296%_ _%L76298%_ _%L76299%_) + _%L76298%_)) + (_%__kont8317083171%_ + (lambda (_%L76232%_ + _%L76234%_ + _%L76235%_ + _%L76236%_) + _%L76234%_)) + (_%__kont8317283173%_ (lambda () '#f))) + (let* ((_%__match8321483215%_ + (lambda (_%e7615776192%_ + _%hd7615876196%_ + _%tl7615976199%_ + _%e7616076202%_ + _%hd7616176206%_ + _%tl7616276209%_ + _%e7616376212%_ + _%hd7616476216%_ + _%tl7616576219%_ + _%e7616676222%_ + _%hd7616776226%_ + _%tl7616876229%_) + (let ((_%L76232%_ _%tl7616876229%_) + (_%L76234%_ _%hd7616776226%_) + (_%L76235%_ _%hd7616476216%_) + (_%L76236%_ _%hd7616176206%_)) + (if (and (gx#identifier? _%L76235%_) (or (gx#free-identifier=? - _%L76172%_ + _%L76235%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76172%_ + _%L76235%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76172%_ + _%L76235%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76172%_ + _%L76235%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8310783108%_ - _%L76169%_ - _%L76171%_ - _%L76172%_ - _%L76173%_) - (_%__kont8310983110%_))))) - (_%__match8312383124%_ - (lambda (_%e7608476213%_ - _%hd7608576217%_ - _%tl7608676220%_ - _%e7608776223%_ - _%hd7608876227%_ - _%tl7608976230%_) - (let ((_%L76233%_ _%tl7608976230%_) - (_%L76235%_ _%hd7608876227%_) - (_%L76236%_ _%hd7608576217%_)) - (if (and (gx#identifier? _%L76236%_) + (_%__kont8317083171%_ + _%L76232%_ + _%L76234%_ + _%L76235%_ + _%L76236%_) + (_%__kont8317283173%_))))) + (_%__match8318683187%_ + (lambda (_%e7614776276%_ + _%hd7614876280%_ + _%tl7614976283%_ + _%e7615076286%_ + _%hd7615176290%_ + _%tl7615276293%_) + (let ((_%L76296%_ _%tl7615276293%_) + (_%L76298%_ _%hd7615176290%_) + (_%L76299%_ _%hd7614876280%_)) + (if (and (gx#identifier? _%L76299%_) (or (gx#free-identifier=? - _%L76236%_ + _%L76299%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L76236%_ + _%L76299%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L76236%_ + _%L76299%_ (gx#datum->syntax '#f ':-)) (gx#free-identifier=? - _%L76236%_ + _%L76299%_ (gx#datum->syntax '#f '::-)))) - (_%__kont8310583106%_ - _%L76233%_ - _%L76235%_ - _%L76236%_) - (if (gx#identifier? _%hd7608576217%_) + (_%__kont8316883169%_ + _%L76296%_ + _%L76298%_ + _%L76299%_) + (if (gx#identifier? _%hd7614876280%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84213_| - _%hd7608576217%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84276_| + _%hd7614876280%_) (if (gx#stx-pair? - _%tl7608976230%_) - (let ((_%e7610076149%_ + _%tl7615276293%_) + (let ((_%e7616376212%_ (gx#syntax-e - _%tl7608976230%_))) - (let ((_%tl7610276156%_ + _%tl7615276293%_))) + (let ((_%tl7616576219%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e7610076149%_))) - (_%hd7610176153%_ - (let () (declare (not safe)) (##car _%e7610076149%_)))) - (if (gx#stx-pair? _%tl7610276156%_) - (let ((_%e7610376159%_ (gx#syntax-e _%tl7610276156%_))) - (let ((_%tl7610576166%_ + (##cdr _%e7616376212%_))) + (_%hd7616476216%_ + (let () (declare (not safe)) (##car _%e7616376212%_)))) + (if (gx#stx-pair? _%tl7616576219%_) + (let ((_%e7616676222%_ (gx#syntax-e _%tl7616576219%_))) + (let ((_%tl7616876229%_ (let () (declare (not safe)) - (##cdr _%e7610376159%_))) - (_%hd7610476163%_ + (##cdr _%e7616676222%_))) + (_%hd7616776226%_ (let () (declare (not safe)) - (##car _%e7610376159%_)))) - (_%__match8315183152%_ - _%e7608476213%_ - _%hd7608576217%_ - _%tl7608676220%_ - _%e7608776223%_ - _%hd7608876227%_ - _%tl7608976230%_ - _%e7610076149%_ - _%hd7610176153%_ - _%tl7610276156%_ - _%e7610376159%_ - _%hd7610476163%_ - _%tl7610576166%_))) - (_%__kont8310983110%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8310983110%_)) - (_%__kont8310983110%_)) - (_%__kont8310983110%_))))))) - (if (gx#stx-pair? _%__stx8310283103%_) - (let ((_%e7608476213%_ - (gx#syntax-e _%__stx8310283103%_))) - (let ((_%tl7608676220%_ + (##car _%e7616676222%_)))) + (_%__match8321483215%_ + _%e7614776276%_ + _%hd7614876280%_ + _%tl7614976283%_ + _%e7615076286%_ + _%hd7615176290%_ + _%tl7615276293%_ + _%e7616376212%_ + _%hd7616476216%_ + _%tl7616576219%_ + _%e7616676222%_ + _%hd7616776226%_ + _%tl7616876229%_))) + (_%__kont8317283173%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8317283173%_)) + (_%__kont8317283173%_)) + (_%__kont8317283173%_))))))) + (if (gx#stx-pair? _%__stx8316583166%_) + (let ((_%e7614776276%_ + (gx#syntax-e _%__stx8316583166%_))) + (let ((_%tl7614976283%_ (let () (declare (not safe)) - (##cdr _%e7608476213%_))) - (_%hd7608576217%_ + (##cdr _%e7614776276%_))) + (_%hd7614876280%_ (let () (declare (not safe)) - (##car _%e7608476213%_)))) - (if (gx#stx-pair? _%tl7608676220%_) - (let ((_%e7608776223%_ - (gx#syntax-e _%tl7608676220%_))) - (let ((_%tl7608976230%_ + (##car _%e7614776276%_)))) + (if (gx#stx-pair? _%tl7614976283%_) + (let ((_%e7615076286%_ + (gx#syntax-e _%tl7614976283%_))) + (let ((_%tl7615276293%_ (let () (declare (not safe)) - (##cdr _%e7608776223%_))) - (_%hd7608876227%_ + (##cdr _%e7615076286%_))) + (_%hd7615176290%_ (let () (declare (not safe)) - (##car _%e7608776223%_)))) - (_%__match8312383124%_ - _%e7608476213%_ - _%hd7608576217%_ - _%tl7608676220%_ - _%e7608776223%_ - _%hd7608876227%_ - _%tl7608976230%_))) - (_%__kont8310983110%_)))) - (_%__kont8310983110%_))))))) - (_%slot-contract-predicate69512%_ - (lambda (_%slot-spec76063%_) - (let ((_%contract7606576067%_ - (_%slot-contract69507%_ _%slot-spec76063%_))) - (if _%contract7606576067%_ - (let ((_%contract76071%_ _%contract7606576067%_)) - (_%contract-predicate69513%_ _%contract76071%_)) + (##car _%e7615076286%_)))) + (_%__match8318683187%_ + _%e7614776276%_ + _%hd7614876280%_ + _%tl7614976283%_ + _%e7615076286%_ + _%hd7615176290%_ + _%tl7615276293%_))) + (_%__kont8317283173%_)))) + (_%__kont8317283173%_))))))) + (_%slot-contract-predicate69575%_ + (lambda (_%slot-spec76126%_) + (let ((_%contract7612876130%_ + (_%slot-contract69570%_ _%slot-spec76126%_))) + (if _%contract7612876130%_ + (let ((_%contract76134%_ _%contract7612876130%_)) + (_%contract-predicate69576%_ _%contract76134%_)) '#f)))) - (_%contract-predicate69513%_ - (lambda (_%contract75985%_) - (let* ((_%__stx8315483155%_ _%contract75985%_) - (_%g7598976004%_ + (_%contract-predicate69576%_ + (lambda (_%contract76048%_) + (let* ((_%__stx8321783218%_ _%contract76048%_) + (_%g7605276067%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8315483155%_)))) - (let ((_%__kont8315783158%_ - (lambda (_%L76042%_ _%L76044%_) _%L76044%_)) - (_%__kont8315983160%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx8315483155%_) - (let ((_%e7599376022%_ - (gx#syntax-e _%__stx8315483155%_))) - (let ((_%tl7599576029%_ + _%__stx8321783218%_)))) + (let ((_%__kont8322083221%_ + (lambda (_%L76105%_ _%L76107%_) _%L76107%_)) + (_%__kont8322283223%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx8321783218%_) + (let ((_%e7605676085%_ + (gx#syntax-e _%__stx8321783218%_))) + (let ((_%tl7605876092%_ (let () (declare (not safe)) - (##cdr _%e7599376022%_))) - (_%hd7599476026%_ + (##cdr _%e7605676085%_))) + (_%hd7605776089%_ (let () (declare (not safe)) - (##car _%e7599376022%_)))) - (if (gx#identifier? _%hd7599476026%_) + (##car _%e7605676085%_)))) + (if (gx#identifier? _%hd7605776089%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84214_| - _%hd7599476026%_) - (if (gx#stx-pair? _%tl7599576029%_) - (let ((_%e7599676032%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84277_| + _%hd7605776089%_) + (if (gx#stx-pair? _%tl7605876092%_) + (let ((_%e7605976095%_ (gx#syntax-e - _%tl7599576029%_))) - (let ((_%tl7599876039%_ + _%tl7605876092%_))) + (let ((_%tl7606176102%_ (let () (declare (not safe)) - (##cdr _%e7599676032%_))) - (_%hd7599776036%_ + (##cdr _%e7605976095%_))) + (_%hd7606076099%_ (let () (declare (not safe)) - (##car _%e7599676032%_)))) - (_%__kont8315783158%_ - _%tl7599876039%_ - _%hd7599776036%_))) - (_%__kont8315983160%_)) - (_%__kont8315983160%_)) - (_%__kont8315983160%_)))) - (_%__kont8315983160%_)))))) - (_%slot-default69514%_ - (lambda (_%slot-spec75813%_) - (let* ((_%__stx8318083181%_ _%slot-spec75813%_) - (_%g7581875850%_ + (##car _%e7605976095%_)))) + (_%__kont8322083221%_ + _%tl7606176102%_ + _%hd7606076099%_))) + (_%__kont8322283223%_)) + (_%__kont8322283223%_)) + (_%__kont8322283223%_)))) + (_%__kont8322283223%_)))))) + (_%slot-default69577%_ + (lambda (_%slot-spec75876%_) + (let* ((_%__stx8324383244%_ _%slot-spec75876%_) + (_%g7588175913%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8318083181%_)))) - (let ((_%__kont8318383184%_ - (lambda (_%L75966%_ _%L75968%_) _%L75966%_)) - (_%__kont8318583186%_ - (lambda (_%L75918%_ _%L75920%_) _%L75918%_)) - (_%__kont8318983190%_ (lambda () '#f))) - (let* ((_%__match8323183232%_ - (lambda (_%__splice8318783188%_ - _%target7583075868%_ - _%tl7583275871%_ - _%e7583975874%_ - _%hd7584075878%_ - _%tl7584175881%_ - _%e7584275884%_ - _%hd7584375888%_ - _%tl7584475891%_) - (letrec ((_%loop7583375894%_ - (lambda (_%hd7583175898%_ - _%id7583775901%_) + _%__stx8324383244%_)))) + (let ((_%__kont8324683247%_ + (lambda (_%L76029%_ _%L76031%_) _%L76029%_)) + (_%__kont8324883249%_ + (lambda (_%L75981%_ _%L75983%_) _%L75981%_)) + (_%__kont8325283253%_ (lambda () '#f))) + (let* ((_%__match8329483295%_ + (lambda (_%__splice8325083251%_ + _%target7589375931%_ + _%tl7589575934%_ + _%e7590275937%_ + _%hd7590375941%_ + _%tl7590475944%_ + _%e7590575947%_ + _%hd7590675951%_ + _%tl7590775954%_) + (letrec ((_%loop7589675957%_ + (lambda (_%hd7589475961%_ + _%id7590075964%_) (if (gx#stx-pair? - _%hd7583175898%_) - (let ((_%e7583475904%_ + _%hd7589475961%_) + (let ((_%e7589775967%_ (gx#syntax-e - _%hd7583175898%_))) - (let ((_%lp-tl7583675911%_ + _%hd7589475961%_))) + (let ((_%lp-tl7589975974%_ (let () (declare (not safe)) - (##cdr _%e7583475904%_))) - (_%lp-hd7583575908%_ + (##cdr _%e7589775967%_))) + (_%lp-hd7589875971%_ (let () (declare (not safe)) - (##car _%e7583475904%_)))) - (_%loop7583375894%_ - _%lp-tl7583675911%_ - (cons _%lp-hd7583575908%_ - _%id7583775901%_)))) - (let ((_%id7583875914%_ - (reverse _%id7583775901%_))) - (_%__kont8318583186%_ - _%hd7584375888%_ - _%id7583875914%_)))))) - (_%loop7583375894%_ - _%target7583075868%_ + (##car _%e7589775967%_)))) + (_%loop7589675957%_ + _%lp-tl7589975974%_ + (cons _%lp-hd7589875971%_ + _%id7590075964%_)))) + (let ((_%id7590175977%_ + (reverse _%id7590075964%_))) + (_%__kont8324883249%_ + _%hd7590675951%_ + _%id7590175977%_)))))) + (_%loop7589675957%_ + _%target7589375931%_ '())))) - (_%g7581675939%_ + (_%g7587976002%_ (lambda () - (if (gx#stx-pair/null? _%__stx8318083181%_) - (if (let ((__tmp84215 + (if (gx#stx-pair/null? _%__stx8324383244%_) + (if (let ((__tmp84278 (gx#stx-length - _%__stx8318083181%_))) + _%__stx8324383244%_))) (declare (not safe)) - (##fx>= __tmp84215 '2)) - (let ((_%__splice8318783188%_ + (##fx>= __tmp84278 '2)) + (let ((_%__splice8325083251%_ (gx#syntax-split-splice - _%__stx8318083181%_ + _%__stx8324383244%_ '2))) - (let ((_%tl7583275871%_ + (let ((_%tl7589575934%_ (let () (declare (not safe)) (##vector-ref - _%__splice8318783188%_ + _%__splice8325083251%_ '1))) - (_%target7583075868%_ + (_%target7589375931%_ (let () (declare (not safe)) (##vector-ref - _%__splice8318783188%_ + _%__splice8325083251%_ '0)))) (if (gx#stx-pair? - _%tl7583275871%_) - (let ((_%e7583975874%_ + _%tl7589575934%_) + (let ((_%e7590275937%_ (gx#syntax-e - _%tl7583275871%_))) - (let ((_%tl7584175881%_ + _%tl7589575934%_))) + (let ((_%tl7590475944%_ (let () (declare (not safe)) - (##cdr _%e7583975874%_))) - (_%hd7584075878%_ + (##cdr _%e7590275937%_))) + (_%hd7590375941%_ (let () (declare (not safe)) - (##car _%e7583975874%_)))) + (##car _%e7590275937%_)))) (if (gx#identifier? - _%hd7584075878%_) + _%hd7590375941%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84216_| - _%hd7584075878%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84279_| + _%hd7590375941%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7584175881%_) - (let ((_%e7584275884%_ - (gx#syntax-e _%tl7584175881%_))) - (let ((_%tl7584475891%_ + _%tl7590475944%_) + (let ((_%e7590575947%_ + (gx#syntax-e _%tl7590475944%_))) + (let ((_%tl7590775954%_ (let () (declare (not safe)) - (##cdr _%e7584275884%_))) - (_%hd7584375888%_ + (##cdr _%e7590575947%_))) + (_%hd7590675951%_ (let () (declare (not safe)) - (##car _%e7584275884%_)))) - (if (gx#stx-null? _%tl7584475891%_) - (_%__match8323183232%_ - _%__splice8318783188%_ - _%target7583075868%_ - _%tl7583275871%_ - _%e7583975874%_ - _%hd7584075878%_ - _%tl7584175881%_ - _%e7584275884%_ - _%hd7584375888%_ - _%tl7584475891%_) - (_%__kont8318983190%_)))) - (_%__kont8318983190%_)) - (_%__kont8318983190%_)) - (_%__kont8318983190%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8318983190%_)))) - (_%__kont8318983190%_)) - (_%__kont8318983190%_))))) - (if (gx#stx-pair? _%__stx8318083181%_) - (let ((_%e7582275946%_ - (gx#syntax-e _%__stx8318083181%_))) - (let ((_%tl7582475953%_ + (##car _%e7590575947%_)))) + (if (gx#stx-null? _%tl7590775954%_) + (_%__match8329483295%_ + _%__splice8325083251%_ + _%target7589375931%_ + _%tl7589575934%_ + _%e7590275937%_ + _%hd7590375941%_ + _%tl7590475944%_ + _%e7590575947%_ + _%hd7590675951%_ + _%tl7590775954%_) + (_%__kont8325283253%_)))) + (_%__kont8325283253%_)) + (_%__kont8325283253%_)) + (_%__kont8325283253%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8325283253%_)))) + (_%__kont8325283253%_)) + (_%__kont8325283253%_))))) + (if (gx#stx-pair? _%__stx8324383244%_) + (let ((_%e7588576009%_ + (gx#syntax-e _%__stx8324383244%_))) + (let ((_%tl7588776016%_ (let () (declare (not safe)) - (##cdr _%e7582275946%_))) - (_%hd7582375950%_ + (##cdr _%e7588576009%_))) + (_%hd7588676013%_ (let () (declare (not safe)) - (##car _%e7582275946%_)))) - (if (gx#stx-pair? _%tl7582475953%_) - (let ((_%e7582575956%_ - (gx#syntax-e _%tl7582475953%_))) - (let ((_%tl7582775963%_ + (##car _%e7588576009%_)))) + (if (gx#stx-pair? _%tl7588776016%_) + (let ((_%e7588876019%_ + (gx#syntax-e _%tl7588776016%_))) + (let ((_%tl7589076026%_ (let () (declare (not safe)) - (##cdr _%e7582575956%_))) - (_%hd7582675960%_ + (##cdr _%e7588876019%_))) + (_%hd7588976023%_ (let () (declare (not safe)) - (##car _%e7582575956%_)))) - (if (gx#stx-null? _%tl7582775963%_) - (_%__kont8318383184%_ - _%hd7582675960%_ - _%hd7582375950%_) + (##car _%e7588876019%_)))) + (if (gx#stx-null? _%tl7589076026%_) + (_%__kont8324683247%_ + _%hd7588976023%_ + _%hd7588676013%_) (let () (declare (not safe)) - (_%g7581675939%_))))) + (_%g7587976002%_))))) (let () (declare (not safe)) - (_%g7581675939%_))))) + (_%g7587976002%_))))) (let () (declare (not safe)) - (_%g7581675939%_)))))))) - (_%infer-slot-type69515%_ - (lambda (_%slot75711%_ _%type-a75713%_ _%type-b75714%_) - (if (not _%type-a75713%_) - _%type-b75714%_ - (if (not _%type-b75714%_) - _%type-a75713%_ + (_%g7587976002%_)))))))) + (_%infer-slot-type69578%_ + (lambda (_%slot75774%_ _%type-a75776%_ _%type-b75777%_) + (if (not _%type-a75776%_) + _%type-b75777%_ + (if (not _%type-b75777%_) + _%type-a75776%_ (if (gx#free-identifier=? - _%type-a75713%_ - _%type-b75714%_) - _%type-a75713%_ - (let _%again75724%_ ((_%klass-a75727%_ + _%type-a75776%_ + _%type-b75777%_) + _%type-a75776%_ + (let _%again75787%_ ((_%klass-a75790%_ (gx#syntax-local-value - _%type-a75713%_)) - (_%klass-b75729%_ + _%type-a75776%_)) + (_%klass-b75792%_ (gx#syntax-local-value - _%type-b75714%_))) - (if (eq? _%klass-a75727%_ _%klass-b75729%_) - _%type-a75713%_ + _%type-b75777%_))) + (if (eq? _%klass-a75790%_ _%klass-b75792%_) + _%type-a75776%_ (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-a75727%_)) + _%klass-a75790%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%klass-b75729%_)) - (if (eq? (let ((__obj83945 - _%klass-a75727%_)) + _%klass-b75792%_)) + (if (eq? (let ((__obj84008 + _%klass-a75790%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83945 + __obj84008 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83945 '1 '#f '#f)) - (unchecked-slot-ref __obj83945 'id))) - (let ((__obj83946 _%klass-b75729%_)) + (##unchecked-structure-ref __obj84008 '1 '#f '#f)) + (unchecked-slot-ref __obj84008 'id))) + (let ((__obj84009 _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83946 + __obj84009 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83946 '1 '#f '#f)) - (unchecked-slot-ref __obj83946 'id)))) + (##unchecked-structure-ref __obj84009 '1 '#f '#f)) + (unchecked-slot-ref __obj84009 'id)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-a75713%_ - (if (member _%type-a75713%_ + _%type-a75776%_ + (if (member _%type-a75776%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-b75729%_)) + _%klass-b75792%_)) gx#free-identifier=?) - _%type-b75714%_ - (if (member _%type-b75714%_ + _%type-b75777%_ + (if (member _%type-b75777%_ (let () (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - _%klass-a75727%_)) + _%klass-a75790%_)) gx#free-identifier=?) - _%type-a75713%_ + _%type-a75776%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_)))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75729%_)) - (let ((_%$e75747%_ + _%klass-b75792%_)) + (let ((_%$e75810%_ (gx#syntax-local-value - (let ((__obj83943 + (let ((__obj84006 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75729%_)) + _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83943 + __obj84006 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83943 '1 '#f '#f)) - (unchecked-slot-ref __obj83943 'identifier))) + (##unchecked-structure-ref __obj84006 '1 '#f '#f)) + (unchecked-slot-ref __obj84006 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75747%_ - ((lambda (_%klass-b75751%_) - (_%again75724%_ - _%klass-a75727%_ - _%klass-b75751%_)) - _%$e75747%_) + (if _%$e75810%_ + ((lambda (_%klass-b75814%_) + (_%again75787%_ + _%klass-a75790%_ + _%klass-b75814%_)) + _%$e75810%_) (if (gx#free-identifier=? - _%type-a75713%_ - (let ((__obj83944 + _%type-a75776%_ + (let ((__obj84007 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75729%_)) + _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83944 + __obj84007 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83944 '1 '#f '#f)) - (unchecked-slot-ref __obj83944 'identifier)))) - _%type-a75713%_ + (##unchecked-structure-ref __obj84007 '1 '#f '#f)) + (unchecked-slot-ref __obj84007 'identifier)))) + _%type-a75776%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_)))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_))) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-a75727%_)) + _%klass-a75790%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%klass-b75729%_)) - (if (member _%type-a75713%_ + _%klass-b75792%_)) + (if (member _%type-a75776%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-b75729%_))) - _%type-b75714%_ - (if (member _%type-b75714%_ + _%klass-b75792%_))) + _%type-b75777%_ + (if (member _%type-b75777%_ (let () (declare (not safe)) (gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - _%klass-a75727%_))) - _%type-a75713%_ + _%klass-a75790%_))) + _%type-a75776%_ (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75729%_)) - (let ((_%$e75772%_ + _%klass-b75792%_)) + (let ((_%$e75835%_ (gx#syntax-local-value - (let ((__obj83941 + (let ((__obj84004 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-b75729%_)) + _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83941 + __obj84004 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83941 + __obj84004 '1 '#f '#f)) - (unchecked-slot-ref __obj83941 'identifier))) + (unchecked-slot-ref __obj84004 'identifier))) false))) - (if _%$e75772%_ - ((lambda (_%klass-b75776%_) - (_%again75724%_ _%klass-a75727%_ _%klass-b75776%_)) - _%$e75772%_) + (if _%$e75835%_ + ((lambda (_%klass-b75839%_) + (_%again75787%_ _%klass-a75790%_ _%klass-b75839%_)) + _%$e75835%_) (if (gx#free-identifier=? - _%type-a75713%_ - (let ((__obj83942 _%klass-b75729%_)) + _%type-a75776%_ + (let ((__obj84005 _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83942 + __obj84005 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83942 + __obj84005 '1 '#f '#f)) - (unchecked-slot-ref __obj83942 'identifier)))) - _%type-a75713%_ + (unchecked-slot-ref __obj84005 'identifier)))) + _%type-a75776%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_)))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_)))) (gx#raise-syntax-error '#f '"incompatible slot types" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-a75727%_)) - (let ((_%$e75787%_ + _%klass-a75790%_)) + (let ((_%$e75850%_ (gx#syntax-local-value - (let ((__obj83936 + (let ((__obj83999 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%klass-a75727%_)) + _%klass-a75790%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83936 + __obj83999 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83936 '1 '#f '#f)) - (unchecked-slot-ref __obj83936 'identifier))) + (##unchecked-structure-ref __obj83999 '1 '#f '#f)) + (unchecked-slot-ref __obj83999 'identifier))) false))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e75787%_ - ((lambda (_%klass-a75791%_) - (_%again75724%_ - _%klass-a75791%_ - _%klass-b75729%_)) - _%$e75787%_) + (if _%$e75850%_ + ((lambda (_%klass-a75854%_) + (_%again75787%_ + _%klass-a75854%_ + _%klass-b75792%_)) + _%$e75850%_) (if (let () (declare (not safe)) (class-instance? |gerbil/core/contract~TypeReference[1]#type-reference::t| - _%klass-b75729%_)) - (let ((_%$e75796%_ + _%klass-b75792%_)) + (let ((_%$e75859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-local-value - (let ((__obj83938 _%klass-b75729%_)) + (let ((__obj84001 _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83938 + __obj84001 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83938 + __obj84001 '1 '#f '#f)) - (unchecked-slot-ref __obj83938 'identifier))) + (unchecked-slot-ref __obj84001 'identifier))) false))) - (if _%$e75796%_ - ((lambda (_%klass-b75800%_) - (_%again75724%_ - _%klass-a75727%_ - _%klass-b75800%_)) - _%$e75796%_) + (if _%$e75859%_ + ((lambda (_%klass-b75863%_) + (_%again75787%_ + _%klass-a75790%_ + _%klass-b75863%_)) + _%$e75859%_) (if (gx#free-identifier=? - (let ((__obj83939 _%klass-a75727%_)) + (let ((__obj84002 _%klass-a75790%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83939 + __obj84002 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83939 + __obj84002 '1 '#f '#f)) (unchecked-slot-ref - __obj83939 + __obj84002 'identifier))) - (let ((__obj83940 _%klass-b75729%_)) + (let ((__obj84003 _%klass-b75792%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83940 + __obj84003 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83940 + __obj84003 '1 '#f '#f)) (unchecked-slot-ref - __obj83940 + __obj84003 'identifier)))) - _%type-a75713%_ + _%type-a75776%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_)))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_)))) (if (gx#free-identifier=? - _%type-b75714%_ - (let ((__obj83937 _%klass-a75727%_)) + _%type-b75777%_ + (let ((__obj84000 _%klass-a75790%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83937 + __obj84000 'gerbil/core/contract~TypeReference#type-reference::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83937 + __obj84000 '1 '#f '#f)) - (unchecked-slot-ref __obj83937 'identifier)))) - _%type-b75714%_ + (unchecked-slot-ref __obj84000 'identifier)))) + _%type-b75777%_ (gx#raise-syntax-error '#f '"cannot resolve type reference to determine slot type compatibility" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%type-b75714%_))))) + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%type-b75777%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"unexpected slot type" - _%stx69500%_ - _%slot75711%_ - _%type-a75713%_ - _%klass-a75727%_))))))))))) - (_%get-mixin-slots69516%_ - (lambda (_%super75582%_) - (letrec* ((_%tab75585%_ (make-hash-table-eq))) - (let _%loop75588%_ ((_%rest75591%_ _%super75582%_) - (_%result75593%_ '())) - (let* ((_%rest7559475602%_ _%rest75591%_) - (_%else7559675614%_ + _%stx69563%_ + _%slot75774%_ + _%type-a75776%_ + _%klass-a75790%_))))))))))) + (_%get-mixin-slots69579%_ + (lambda (_%super75645%_) + (letrec* ((_%tab75648%_ (make-hash-table-eq))) + (let _%loop75651%_ ((_%rest75654%_ _%super75645%_) + (_%result75656%_ '())) + (let* ((_%rest7565775665%_ _%rest75654%_) + (_%else7565975677%_ (lambda () - (values (reverse! _%result75593%_) - _%tab75585%_))) - (_%K7559875695%_ - (lambda (_%rest75618%_ _%type-id75620%_) - (let* ((_%klass75622%_ + (values (reverse! _%result75656%_) + _%tab75648%_))) + (_%K7566175758%_ + (lambda (_%rest75681%_ _%type-id75683%_) + (let* ((_%klass75685%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type| - _%stx69500%_ - _%type-id75620%_))) - (_%slots75625%_ - (let ((__obj83947 _%klass75622%_)) + _%stx69563%_ + _%type-id75683%_))) + (_%slots75688%_ + (let ((__obj84010 _%klass75685%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83947 + __obj84010 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83947 + __obj84010 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83947 + __obj84010 'slots))))) - (let _%loop-inner75630%_ ((_%rest-slots75633%_ - _%slots75625%_) - (_%result75635%_ - _%result75593%_)) - (let* ((_%rest-slots7563675644%_ - _%rest-slots75633%_) - (_%else7563875656%_ + (let _%loop-inner75693%_ ((_%rest-slots75696%_ + _%slots75688%_) + (_%result75698%_ + _%result75656%_)) + (let* ((_%rest-slots7569975707%_ + _%rest-slots75696%_) + (_%else7570175719%_ (lambda () - (_%loop75588%_ + (_%loop75651%_ (foldr cons - _%rest75618%_ - (let ((__obj83948 - _%klass75622%_)) + _%rest75681%_ + (let ((__obj84011 + _%klass75685%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj83948 + __obj84011 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83948 '3 '#f '#f)) + (##unchecked-structure-ref __obj84011 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83948 + __obj84011 'super)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%result75635%_))) - (_%K7564075679%_ - (lambda (_%rest-slots75660%_ - _%slot75662%_) - (let ((_%slot-type75664%_ + _%result75698%_))) + (_%K7570375742%_ + (lambda (_%rest-slots75723%_ + _%slot75725%_) + (let ((_%slot-type75727%_ (hash-ref - _%tab75585%_ - _%slot75662%_ + _%tab75648%_ + _%slot75725%_ absent-value))) - (if (eq? _%slot-type75664%_ + (if (eq? _%slot-type75727%_ absent-value) (let () (hash-put! - _%tab75585%_ - _%slot75662%_ + _%tab75648%_ + _%slot75725%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75622%_ - _%slot75662%_))) - (_%loop-inner75630%_ - _%rest-slots75660%_ - (cons _%slot75662%_ - _%result75635%_))) - (if (not _%slot-type75664%_) + _%klass75685%_ + _%slot75725%_))) + (_%loop-inner75693%_ + _%rest-slots75723%_ + (cons _%slot75725%_ + _%result75698%_))) + (if (not _%slot-type75727%_) (let () (hash-put! - _%tab75585%_ - _%slot75662%_ + _%tab75648%_ + _%slot75725%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75622%_ - _%slot75662%_))) - (_%loop-inner75630%_ _%rest-slots75660%_ _%result75635%_)) - (let* ((_%other-slot-type75673%_ + _%klass75685%_ + _%slot75725%_))) + (_%loop-inner75693%_ _%rest-slots75723%_ _%result75698%_)) + (let* ((_%other-slot-type75736%_ (let () (declare (not safe)) (|gerbil/core/contract~Using[1]#!class-slot-type| - _%klass75622%_ - _%slot75662%_))) - (_%slot-type75676%_ - (_%infer-slot-type69515%_ - _%slot75662%_ - _%other-slot-type75673%_ - _%slot-type75664%_))) - (hash-put! _%tab75585%_ _%slot75662%_ _%slot-type75676%_) - (_%loop-inner75630%_ - _%rest-slots75660%_ - _%result75635%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest-slots7563675644%_) - (let ((_%hd7564175683%_ + _%klass75685%_ + _%slot75725%_))) + (_%slot-type75739%_ + (_%infer-slot-type69578%_ + _%slot75725%_ + _%other-slot-type75736%_ + _%slot-type75727%_))) + (hash-put! _%tab75648%_ _%slot75725%_ _%slot-type75739%_) + (_%loop-inner75693%_ + _%rest-slots75723%_ + _%result75698%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (pair? _%rest-slots7569975707%_) + (let ((_%hd7570475746%_ (let () (declare (not safe)) - (##car _%rest-slots7563675644%_))) - (_%tl7564275686%_ + (##car _%rest-slots7569975707%_))) + (_%tl7570575749%_ (let () (declare (not safe)) - (##cdr _%rest-slots7563675644%_)))) - (let* ((_%slot75689%_ - _%hd7564175683%_) - (_%rest-slots75692%_ - _%tl7564275686%_)) - (_%K7564075679%_ - _%rest-slots75692%_ - _%slot75689%_))) - (_%else7563875656%_)))))))) - (if (pair? _%rest7559475602%_) - (let ((_%hd7559975699%_ + (##cdr _%rest-slots7569975707%_)))) + (let* ((_%slot75752%_ + _%hd7570475746%_) + (_%rest-slots75755%_ + _%tl7570575749%_)) + (_%K7570375742%_ + _%rest-slots75755%_ + _%slot75752%_))) + (_%else7570175719%_)))))))) + (if (pair? _%rest7565775665%_) + (let ((_%hd7566275762%_ (let () (declare (not safe)) - (##car _%rest7559475602%_))) - (_%tl7560075702%_ + (##car _%rest7565775665%_))) + (_%tl7566375765%_ (let () (declare (not safe)) - (##cdr _%rest7559475602%_)))) - (let* ((_%type-id75705%_ _%hd7559975699%_) - (_%rest75708%_ _%tl7560075702%_)) - (_%K7559875695%_ - _%rest75708%_ - _%type-id75705%_))) - (_%else7559675614%_))))))) - (_%get-slot-table69517%_ - (lambda (_%slots75525%_ - _%mixin-slots75527%_ - _%super75528%_ - _%contract-e75529%_ - _%getf75530%_ - _%mixf75531%_) - (letrec* ((_%tab75533%_ (make-hash-table-eq))) + (##cdr _%rest7565775665%_)))) + (let* ((_%type-id75768%_ _%hd7566275762%_) + (_%rest75771%_ _%tl7566375765%_)) + (_%K7566175758%_ + _%rest75771%_ + _%type-id75768%_))) + (_%else7565975677%_))))))) + (_%get-slot-table69580%_ + (lambda (_%slots75588%_ + _%mixin-slots75590%_ + _%super75591%_ + _%contract-e75592%_ + _%getf75593%_ + _%mixf75594%_) + (letrec* ((_%tab75596%_ (make-hash-table-eq))) (for-each - (lambda (_%slot75536%_) + (lambda (_%slot75599%_) (for-each - (lambda (_%super-type75539%_) - (let* ((_%klass75542%_ + (lambda (_%super-type75602%_) + (let* ((_%klass75605%_ (gx#syntax-local-value - _%super-type75539%_)) - (_%$e75545%_ - (hash-get _%tab75533%_ _%slot75536%_))) - (if _%$e75545%_ - ((lambda (_%a75549%_) - (let ((_%$e75552%_ - (_%getf75530%_ - _%klass75542%_ - _%slot75536%_))) - (if _%$e75552%_ - ((lambda (_%b75556%_) + _%super-type75602%_)) + (_%$e75608%_ + (hash-get _%tab75596%_ _%slot75599%_))) + (if _%$e75608%_ + ((lambda (_%a75612%_) + (let ((_%$e75615%_ + (_%getf75593%_ + _%klass75605%_ + _%slot75599%_))) + (if _%$e75615%_ + ((lambda (_%b75619%_) (hash-put! - _%tab75533%_ - _%slot75536%_ - (_%mixf75531%_ - _%slot75536%_ - _%a75549%_ - _%b75556%_))) - _%$e75552%_) + _%tab75596%_ + _%slot75599%_ + (_%mixf75594%_ + _%slot75599%_ + _%a75612%_ + _%b75619%_))) + _%$e75615%_) '#!void))) - _%$e75545%_) - (let ((_%$e75559%_ - (_%getf75530%_ - _%klass75542%_ - _%slot75536%_))) - (if _%$e75559%_ - ((lambda (_%a75563%_) + _%$e75608%_) + (let ((_%$e75622%_ + (_%getf75593%_ + _%klass75605%_ + _%slot75599%_))) + (if _%$e75622%_ + ((lambda (_%a75626%_) (hash-put! - _%tab75533%_ - _%slot75536%_ - _%a75563%_)) - _%$e75559%_) + _%tab75596%_ + _%slot75599%_ + _%a75626%_)) + _%$e75622%_) '#!void))))) - _%super75528%_)) - _%mixin-slots75527%_) + _%super75591%_)) + _%mixin-slots75590%_) (for-each - (lambda (_%slot-spec75566%_) - (let ((_%slot75569%_ - (_%slot-name69506%_ _%slot-spec75566%_)) - (_%a75571%_ - (_%contract-e75529%_ _%slot-spec75566%_))) - (if _%a75571%_ - (let ((_%$e75573%_ - (hash-get _%tab75533%_ _%slot75569%_))) - (if _%$e75573%_ - ((lambda (_%b75577%_) + (lambda (_%slot-spec75629%_) + (let ((_%slot75632%_ + (_%slot-name69569%_ _%slot-spec75629%_)) + (_%a75634%_ + (_%contract-e75592%_ _%slot-spec75629%_))) + (if _%a75634%_ + (let ((_%$e75636%_ + (hash-get _%tab75596%_ _%slot75632%_))) + (if _%$e75636%_ + ((lambda (_%b75640%_) (hash-put! - _%tab75533%_ - _%slot75569%_ - (_%mixf75531%_ - _%slot75569%_ - _%a75571%_ - _%b75577%_))) - _%$e75573%_) + _%tab75596%_ + _%slot75632%_ + (_%mixf75594%_ + _%slot75632%_ + _%a75634%_ + _%b75640%_))) + _%$e75636%_) (hash-put! - _%tab75533%_ - _%slot75569%_ - _%a75571%_))) + _%tab75596%_ + _%slot75632%_ + _%a75634%_))) '#!void))) - _%slots75525%_) - _%tab75533%_))) - (_%get-slot-contracts69518%_ - (lambda (_%slots73961%_ - _%mixin-slots73963%_ - _%super73964%_ - _%slot-type-table73965%_) - (_%get-slot-table69517%_ - _%slots73961%_ - _%mixin-slots73963%_ - _%super73964%_ - _%slot-contract-normalize69508%_ + _%slots75588%_) + _%tab75596%_))) + (_%get-slot-contracts69581%_ + (lambda (_%slots74024%_ + _%mixin-slots74026%_ + _%super74027%_ + _%slot-type-table74028%_) + (_%get-slot-table69580%_ + _%slots74024%_ + _%mixin-slots74026%_ + _%super74027%_ + _%slot-contract-normalize69571%_ |gerbil/core/contract~Using[1]#!class-slot-contract| - (lambda (_%slot73967%_ _%a73969%_ _%b73970%_) - (let* ((_%__stx8350283503%_ _%a73969%_) - (_%g7403274085%_ + (lambda (_%slot74030%_ _%a74032%_ _%b74033%_) + (let* ((_%__stx8356583566%_ _%a74032%_) + (_%g7409574148%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8350283503%_)))) - (let ((_%__kont8350583506%_ + _%__stx8356583566%_)))) + (let ((_%__kont8356883569%_ (lambda () - (let* ((_%__stx8347083471%_ _%b73970%_) - (_%g7535575373%_ + (let* ((_%__stx8353383534%_ _%b74033%_) + (_%g7541875436%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8347083471%_)))) - (let ((_%__kont8347383474%_ - (lambda (_%L75467%_) - (let* ((_%g7548675494%_ - (lambda (_%g7548775490%_) + _%__stx8353383534%_)))) + (let ((_%__kont8353683537%_ + (lambda (_%L75530%_) + (let* ((_%g7554975557%_ + (lambda (_%g7555075553%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7548775490%_))) - (_%g7548575513%_ - (lambda (_%g7548775498%_) - ((lambda (_%L75501%_) + _%g7555075553%_))) + (_%g7554875576%_ + (lambda (_%g7555075561%_) + ((lambda (_%L75564%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':) - (cons _%L75501%_ '()))) - _%g7548775498%_)))) + (cons _%L75564%_ '()))) + _%g7555075561%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7548575513%_ + (_%g7554875576%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8347583476%_ - (lambda (_%L75400%_) - (let* ((_%g7541975427%_ - (lambda (_%g7542075423%_) + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8353883539%_ + (lambda (_%L75463%_) + (let* ((_%g7548275490%_ + (lambda (_%g7548375486%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7542075423%_))) - (_%g7541875446%_ - (lambda (_%g7542075431%_) - ((lambda (_%L75434%_) + _%g7548375486%_))) + (_%g7548175509%_ + (lambda (_%g7548375494%_) + ((lambda (_%L75497%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75400%_ + (cons _%L75463%_ (cons (gx#datum->syntax '#f ':) - (cons _%L75434%_ '()))))) - _%g7542075431%_)))) + (cons _%L75497%_ '()))))) + _%g7548375494%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7541875446%_ + (_%g7548175509%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_)))))) - (let ((_%__match8348383484%_ - (lambda (_%e7535875457%_ - _%hd7535975461%_ - _%tl7536075464%_) - (let ((_%L75467%_ - _%hd7535975461%_)) + _%slot-type-table74028%_ + _%slot74030%_)))))) + (let ((_%__match8354683547%_ + (lambda (_%e7542175520%_ + _%hd7542275524%_ + _%tl7542375527%_) + (let ((_%L75530%_ + _%hd7542275524%_)) (if (or (gx#free-identifier=? - _%L75467%_ + _%L75530%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75467%_ + _%L75530%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75467%_ + _%L75530%_ (gx#datum->syntax '#f ':-))) - (_%__kont8347383474%_ - _%L75467%_) + (_%__kont8353683537%_ + _%L75530%_) (if (gx#identifier? - _%hd7535975461%_) + _%hd7542275524%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84217_| - _%hd7535975461%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84280_| + _%hd7542275524%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7536075464%_) - (let ((_%e7536575390%_ - (gx#syntax-e _%tl7536075464%_))) - (let ((_%tl7536775397%_ + _%tl7542375527%_) + (let ((_%e7542875453%_ + (gx#syntax-e _%tl7542375527%_))) + (let ((_%tl7543075460%_ (let () (declare (not safe)) - (##cdr _%e7536575390%_))) - (_%hd7536675394%_ + (##cdr _%e7542875453%_))) + (_%hd7542975457%_ (let () (declare (not safe)) - (##car _%e7536575390%_)))) - (_%__kont8347583476%_ _%hd7536675394%_))) - (let () (declare (not safe)) (_%g7535575373%_))) - (let () (declare (not safe)) (_%g7535575373%_))) - (let () (declare (not safe)) (_%g7535575373%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8347083471%_) - (let ((_%e7535875457%_ + (##car _%e7542875453%_)))) + (_%__kont8353883539%_ _%hd7542975457%_))) + (let () (declare (not safe)) (_%g7541875436%_))) + (let () (declare (not safe)) (_%g7541875436%_))) + (let () (declare (not safe)) (_%g7541875436%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8353383534%_) + (let ((_%e7542175520%_ (gx#syntax-e - _%__stx8347083471%_))) - (let ((_%tl7536075464%_ + _%__stx8353383534%_))) + (let ((_%tl7542375527%_ (let () (declare (not safe)) - (##cdr _%e7535875457%_))) - (_%hd7535975461%_ + (##cdr _%e7542175520%_))) + (_%hd7542275524%_ (let () (declare (not safe)) - (##car _%e7535875457%_)))) - (_%__match8348383484%_ - _%e7535875457%_ - _%hd7535975461%_ - _%tl7536075464%_))) + (##car _%e7542175520%_)))) + (_%__match8354683547%_ + _%e7542175520%_ + _%hd7542275524%_ + _%tl7542375527%_))) (let () (declare (not safe)) - (_%g7535575373%_)))))))) - (_%__kont8350783508%_ + (_%g7541875436%_)))))))) + (_%__kont8357083571%_ (lambda () - (let* ((_%__stx8342283423%_ _%b73970%_) - (_%g7515175171%_ + (let* ((_%__stx8348583486%_ _%b74033%_) + (_%g7521475234%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8342283423%_)))) - (let ((_%__kont8342583426%_ + _%__stx8348583486%_)))) + (let ((_%__kont8348883489%_ (lambda () - (let* ((_%g7529375301%_ - (lambda (_%g7529475297%_) + (let* ((_%g7535675364%_ + (lambda (_%g7535775360%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7529475297%_))) - (_%g7529275325%_ - (lambda (_%g7529475305%_) - ((lambda (_%L75308%_) + _%g7535775360%_))) + (_%g7535575388%_ + (lambda (_%g7535775368%_) + ((lambda (_%L75371%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':?) - (cons _%L75308%_ '()))) - _%g7529475305%_)))) + (cons _%L75371%_ '()))) + _%g7535775368%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7529275325%_ + (_%g7535575388%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8342783428%_ - (lambda (_%L75219%_) - (let* ((_%g7524175249%_ - (lambda (_%g7524275245%_) + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8349083491%_ + (lambda (_%L75282%_) + (let* ((_%g7530475312%_ + (lambda (_%g7530575308%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7524275245%_))) - (_%g7524075268%_ - (lambda (_%g7524275253%_) - ((lambda (_%L75256%_) + _%g7530575308%_))) + (_%g7530375331%_ + (lambda (_%g7530575316%_) + ((lambda (_%L75319%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75219%_ + (cons _%L75282%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L75256%_ '()))))) - _%g7524275253%_)))) + (cons _%L75319%_ '()))))) + _%g7530575316%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7524075268%_ + (_%g7530375331%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8342983430%_ + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8349283493%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69500%_ - _%slot73967%_ - _%a73969%_ - _%b73970%_)))) - (if (gx#stx-pair? _%__stx8342283423%_) - (let ((_%e7515375279%_ + _%stx69563%_ + _%slot74030%_ + _%a74032%_ + _%b74033%_)))) + (if (gx#stx-pair? _%__stx8348583486%_) + (let ((_%e7521675342%_ (gx#syntax-e - _%__stx8342283423%_))) - (let ((_%tl7515575286%_ + _%__stx8348583486%_))) + (let ((_%tl7521875349%_ (let () (declare (not safe)) - (##cdr _%e7515375279%_))) - (_%hd7515475283%_ + (##cdr _%e7521675342%_))) + (_%hd7521775346%_ (let () (declare (not safe)) - (##car _%e7515375279%_)))) + (##car _%e7521675342%_)))) (if (gx#identifier? - _%hd7515475283%_) + _%hd7521775346%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84218_| - _%hd7515475283%_) - (_%__kont8342583426%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84281_| + _%hd7521775346%_) + (_%__kont8348883489%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84219_| - _%hd7515475283%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84282_| + _%hd7521775346%_) (if (gx#stx-pair? - _%tl7515575286%_) - (let ((_%e7516075199%_ + _%tl7521875349%_) + (let ((_%e7522375262%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7515575286%_))) - (let ((_%tl7516275206%_ + (gx#syntax-e _%tl7521875349%_))) + (let ((_%tl7522575269%_ (let () (declare (not safe)) - (##cdr _%e7516075199%_))) - (_%hd7516175203%_ + (##cdr _%e7522375262%_))) + (_%hd7522475266%_ (let () (declare (not safe)) - (##car _%e7516075199%_)))) - (if (gx#stx-pair? _%tl7516275206%_) - (let ((_%e7516375209%_ - (gx#syntax-e _%tl7516275206%_))) - (let ((_%tl7516575216%_ + (##car _%e7522375262%_)))) + (if (gx#stx-pair? _%tl7522575269%_) + (let ((_%e7522675272%_ + (gx#syntax-e _%tl7522575269%_))) + (let ((_%tl7522875279%_ (let () (declare (not safe)) - (##cdr _%e7516375209%_))) - (_%hd7516475213%_ + (##cdr _%e7522675272%_))) + (_%hd7522775276%_ (let () (declare (not safe)) - (##car _%e7516375209%_)))) - (if (gx#identifier? _%hd7516475213%_) + (##car _%e7522675272%_)))) + (if (gx#identifier? _%hd7522775276%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84220_| - _%hd7516475213%_) - (_%__kont8342783428%_ - _%hd7516175203%_) - (_%__kont8342983430%_)) - (_%__kont8342983430%_)))) - (_%__kont8342983430%_)))) - (_%__kont8342983430%_)) - (_%__kont8342983430%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8342983430%_)))) - (_%__kont8342983430%_)))))) - (_%__kont8350983510%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84283_| + _%hd7522775276%_) + (_%__kont8349083491%_ + _%hd7522475266%_) + (_%__kont8349283493%_)) + (_%__kont8349283493%_)))) + (_%__kont8349283493%_)))) + (_%__kont8349283493%_)) + (_%__kont8349283493%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8349283493%_)))) + (_%__kont8349283493%_)))))) + (_%__kont8357283573%_ (lambda () - (let* ((_%__stx8339083391%_ _%b73970%_) - (_%g7495974978%_ + (let* ((_%__stx8345383454%_ _%b74033%_) + (_%g7502275041%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8339083391%_)))) - (let ((_%__kont8339383394%_ - (lambda (_%L75074%_) - (let* ((_%g7509375101%_ - (lambda (_%g7509475097%_) + _%__stx8345383454%_)))) + (let ((_%__kont8345683457%_ + (lambda (_%L75137%_) + (let* ((_%g7515675164%_ + (lambda (_%g7515775160%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7509475097%_))) - (_%g7509275120%_ - (lambda (_%g7509475105%_) - ((lambda (_%L75108%_) + _%g7515775160%_))) + (_%g7515575183%_ + (lambda (_%g7515775168%_) + ((lambda (_%L75171%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':-) - (cons _%L75108%_ '()))) - _%g7509475105%_)))) + (cons _%L75171%_ '()))) + _%g7515775168%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7509275120%_ + (_%g7515575183%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8339583396%_ - (lambda (_%L75005%_ _%L75007%_) - (let* ((_%g7502675034%_ - (lambda (_%g7502775030%_) + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8345883459%_ + (lambda (_%L75068%_ _%L75070%_) + (let* ((_%g7508975097%_ + (lambda (_%g7509075093%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7502775030%_))) - (_%g7502575053%_ - (lambda (_%g7502775038%_) - ((lambda (_%L75041%_) + _%g7509075093%_))) + (_%g7508875116%_ + (lambda (_%g7509075101%_) + ((lambda (_%L75104%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L75007%_ + (cons _%L75070%_ (cons (gx#datum->syntax '#f ':-) - (cons _%L75041%_ '()))))) - _%g7502775038%_)))) + (cons _%L75104%_ '()))))) + _%g7509075101%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7502575053%_ + (_%g7508875116%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_)))))) - (let ((_%__match8340383404%_ - (lambda (_%e7496275064%_ - _%hd7496375068%_ - _%tl7496475071%_) - (let ((_%L75074%_ - _%hd7496375068%_)) + _%slot-type-table74028%_ + _%slot74030%_)))))) + (let ((_%__match8346683467%_ + (lambda (_%e7502575127%_ + _%hd7502675131%_ + _%tl7502775134%_) + (let ((_%L75137%_ + _%hd7502675131%_)) (if (or (gx#free-identifier=? - _%L75074%_ + _%L75137%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L75074%_ + _%L75137%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L75074%_ + _%L75137%_ (gx#datum->syntax '#f ':-))) - (_%__kont8339383394%_ - _%L75074%_) + (_%__kont8345683457%_ + _%L75137%_) (if (gx#identifier? - _%hd7496375068%_) + _%hd7502675131%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84221_| - _%hd7496375068%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84284_| + _%hd7502675131%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl7496475071%_) - (let ((_%e7497074995%_ - (gx#syntax-e _%tl7496475071%_))) - (let ((_%tl7497275002%_ + _%tl7502775134%_) + (let ((_%e7503375058%_ + (gx#syntax-e _%tl7502775134%_))) + (let ((_%tl7503575065%_ (let () (declare (not safe)) - (##cdr _%e7497074995%_))) - (_%hd7497174999%_ + (##cdr _%e7503375058%_))) + (_%hd7503475062%_ (let () (declare (not safe)) - (##car _%e7497074995%_)))) - (_%__kont8339583396%_ - _%tl7497275002%_ - _%hd7497174999%_))) - (let () (declare (not safe)) (_%g7495974978%_))) - (let () (declare (not safe)) (_%g7495974978%_))) - (let () (declare (not safe)) (_%g7495974978%_)))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%__stx8339083391%_) - (let ((_%e7496275064%_ + (##car _%e7503375058%_)))) + (_%__kont8345883459%_ + _%tl7503575065%_ + _%hd7503475062%_))) + (let () (declare (not safe)) (_%g7502275041%_))) + (let () (declare (not safe)) (_%g7502275041%_))) + (let () (declare (not safe)) (_%g7502275041%_)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%__stx8345383454%_) + (let ((_%e7502575127%_ (gx#syntax-e - _%__stx8339083391%_))) - (let ((_%tl7496475071%_ + _%__stx8345383454%_))) + (let ((_%tl7502775134%_ (let () (declare (not safe)) - (##cdr _%e7496275064%_))) - (_%hd7496375068%_ + (##cdr _%e7502575127%_))) + (_%hd7502675131%_ (let () (declare (not safe)) - (##car _%e7496275064%_)))) - (_%__match8340383404%_ - _%e7496275064%_ - _%hd7496375068%_ - _%tl7496475071%_))) + (##car _%e7502575127%_)))) + (_%__match8346683467%_ + _%e7502575127%_ + _%hd7502675131%_ + _%tl7502775134%_))) (let () (declare (not safe)) - (_%g7495974978%_)))))))) - (_%__kont8351183512%_ - (lambda (_%L74786%_) - (let* ((_%__stx8336483365%_ _%b73970%_) - (_%g7480274816%_ + (_%g7502275041%_)))))))) + (_%__kont8357483575%_ + (lambda (_%L74849%_) + (let* ((_%__stx8342783428%_ _%b74033%_) + (_%g7486574879%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8336483365%_)))) - (let ((_%__kont8336783368%_ - (lambda (_%L74889%_) - (let* ((_%g7490274910%_ - (lambda (_%g7490374906%_) + _%__stx8342783428%_)))) + (let ((_%__kont8343083431%_ + (lambda (_%L74952%_) + (let* ((_%g7496574973%_ + (lambda (_%g7496674969%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7490374906%_))) - (_%g7490174929%_ - (lambda (_%g7490374914%_) - ((lambda (_%L74917%_) + _%g7496674969%_))) + (_%g7496474992%_ + (lambda (_%g7496674977%_) + ((lambda (_%L74980%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74786%_ - (cons _%L74889%_ '()))) + (cons _%L74849%_ + (cons _%L74952%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74917%_ '()))))) - _%g7490374914%_)))) + (cons _%L74980%_ '()))))) + _%g7496674977%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7490174929%_ + (_%g7496474992%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8336983370%_ + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8343283433%_ (lambda () - (let* ((_%g7482774835%_ - (lambda (_%g7482874831%_) + (let* ((_%g7489074898%_ + (lambda (_%g7489174894%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7482874831%_))) - (_%g7482674858%_ - (lambda (_%g7482874839%_) - ((lambda (_%L74842%_) + _%g7489174894%_))) + (_%g7488974921%_ + (lambda (_%g7489174902%_) + ((lambda (_%L74905%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74786%_ + (cons _%L74849%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74842%_ '()))))) - _%g7482874839%_)))) + (cons _%L74905%_ '()))))) + _%g7489174902%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7482674858%_ + (_%g7488974921%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_)))))) - (if (gx#stx-pair? _%__stx8336483365%_) - (let ((_%e7480574869%_ + _%slot-type-table74028%_ + _%slot74030%_)))))) + (if (gx#stx-pair? _%__stx8342783428%_) + (let ((_%e7486874932%_ (gx#syntax-e - _%__stx8336483365%_))) - (let ((_%tl7480774876%_ + _%__stx8342783428%_))) + (let ((_%tl7487074939%_ (let () (declare (not safe)) - (##cdr _%e7480574869%_))) - (_%hd7480674873%_ + (##cdr _%e7486874932%_))) + (_%hd7486974936%_ (let () (declare (not safe)) - (##car _%e7480574869%_)))) + (##car _%e7486874932%_)))) (if (gx#identifier? - _%hd7480674873%_) + _%hd7486974936%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84222_| - _%hd7480674873%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84285_| + _%hd7486974936%_) (if (gx#stx-pair? - _%tl7480774876%_) - (let ((_%e7480874879%_ + _%tl7487074939%_) + (let ((_%e7487174942%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7480774876%_))) - (let ((_%tl7481074886%_ + (gx#syntax-e _%tl7487074939%_))) + (let ((_%tl7487374949%_ (let () (declare (not safe)) - (##cdr _%e7480874879%_))) - (_%hd7480974883%_ + (##cdr _%e7487174942%_))) + (_%hd7487274946%_ (let () (declare (not safe)) - (##car _%e7480874879%_)))) - (_%__kont8336783368%_ _%hd7480974883%_))) - (_%__kont8336983370%_)) - (_%__kont8336983370%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8336983370%_)))) - (_%__kont8336983370%_)))))) - (_%__kont8351383514%_ - (lambda (_%L74507%_) - (let* ((_%__stx8329883299%_ _%b73970%_) - (_%g7452574552%_ + (##car _%e7487174942%_)))) + (_%__kont8343083431%_ _%hd7487274946%_))) + (_%__kont8343283433%_)) + (_%__kont8343283433%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8343283433%_)))) + (_%__kont8343283433%_)))))) + (_%__kont8357683577%_ + (lambda (_%L74570%_) + (let* ((_%__stx8336183362%_ _%b74033%_) + (_%g7458874615%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8329883299%_)))) - (let ((_%__kont8330183302%_ + _%__stx8336183362%_)))) + (let ((_%__kont8336483365%_ (lambda () - (let* ((_%g7470974717%_ - (lambda (_%g7471074713%_) + (let* ((_%g7477274780%_ + (lambda (_%g7477374776%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7471074713%_))) - (_%g7470874741%_ - (lambda (_%g7471074721%_) - ((lambda (_%L74724%_) + _%g7477374776%_))) + (_%g7477174804%_ + (lambda (_%g7477374784%_) + ((lambda (_%L74787%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74507%_ + (cons _%L74570%_ (cons (gx#datum->syntax '#f ':?) - (cons _%L74724%_ '()))))) - _%g7471074721%_)))) + (cons _%L74787%_ '()))))) + _%g7477374784%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7470874741%_ + (_%g7477174804%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8330383304%_ - (lambda (_%L74642%_) - (let* ((_%g7465774665%_ - (lambda (_%g7465874661%_) + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8336683367%_ + (lambda (_%L74705%_) + (let* ((_%g7472074728%_ + (lambda (_%g7472174724%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7465874661%_))) - (_%g7465674684%_ - (lambda (_%g7465874669%_) - ((lambda (_%L74672%_) + _%g7472174724%_))) + (_%g7471974747%_ + (lambda (_%g7472174732%_) + ((lambda (_%L74735%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74507%_ - (cons _%L74642%_ '()))) + (cons _%L74570%_ + (cons _%L74705%_ '()))) '())) (cons (gx#datum->syntax '#f ':?) - (cons _%L74672%_ '()))))) - _%g7465874669%_)))) + (cons _%L74735%_ '()))))) + _%g7472174732%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7465674684%_ + (_%g7471974747%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8330583306%_ - (lambda (_%L74590%_) + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8336883369%_ + (lambda (_%L74653%_) (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69500%_ - _%slot73967%_ - _%a73969%_ - _%b73970%_))) - (_%__kont8330783308%_ + _%stx69563%_ + _%slot74030%_ + _%a74032%_ + _%b74033%_))) + (_%__kont8337083371%_ (lambda () (gx#raise-syntax-error '#f '"incompatible slot contracts" - _%stx69500%_ - _%slot73967%_ - _%a73969%_ - _%b73970%_)))) - (if (gx#stx-pair? _%__stx8329883299%_) - (let ((_%e7452774695%_ + _%stx69563%_ + _%slot74030%_ + _%a74032%_ + _%b74033%_)))) + (if (gx#stx-pair? _%__stx8336183362%_) + (let ((_%e7459074758%_ (gx#syntax-e - _%__stx8329883299%_))) - (let ((_%tl7452974702%_ + _%__stx8336183362%_))) + (let ((_%tl7459274765%_ (let () (declare (not safe)) - (##cdr _%e7452774695%_))) - (_%hd7452874699%_ + (##cdr _%e7459074758%_))) + (_%hd7459174762%_ (let () (declare (not safe)) - (##car _%e7452774695%_)))) + (##car _%e7459074758%_)))) (if (gx#identifier? - _%hd7452874699%_) + _%hd7459174762%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84223_| - _%hd7452874699%_) - (_%__kont8330183302%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84286_| + _%hd7459174762%_) + (_%__kont8336483365%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84224_| - _%hd7452874699%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84287_| + _%hd7459174762%_) (if (gx#stx-pair? - _%tl7452974702%_) - (let ((_%e7453474622%_ + _%tl7459274765%_) + (let ((_%e7459774685%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7452974702%_))) - (let ((_%tl7453674629%_ + (gx#syntax-e _%tl7459274765%_))) + (let ((_%tl7459974692%_ (let () (declare (not safe)) - (##cdr _%e7453474622%_))) - (_%hd7453574626%_ + (##cdr _%e7459774685%_))) + (_%hd7459874689%_ (let () (declare (not safe)) - (##car _%e7453474622%_)))) - (if (gx#stx-pair? _%tl7453674629%_) - (let ((_%e7453774632%_ - (gx#syntax-e _%tl7453674629%_))) - (let ((_%tl7453974639%_ + (##car _%e7459774685%_)))) + (if (gx#stx-pair? _%tl7459974692%_) + (let ((_%e7460074695%_ + (gx#syntax-e _%tl7459974692%_))) + (let ((_%tl7460274702%_ (let () (declare (not safe)) - (##cdr _%e7453774632%_))) - (_%hd7453874636%_ + (##cdr _%e7460074695%_))) + (_%hd7460174699%_ (let () (declare (not safe)) - (##car _%e7453774632%_)))) - (if (gx#identifier? _%hd7453874636%_) + (##car _%e7460074695%_)))) + (if (gx#identifier? _%hd7460174699%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84225_| - _%hd7453874636%_) - (_%__kont8330383304%_ - _%hd7453574626%_) - (_%__kont8330583306%_ - _%hd7453574626%_)) - (_%__kont8330583306%_ - _%hd7453574626%_)))) - (_%__kont8330583306%_ _%hd7453574626%_)))) - (_%__kont8330783308%_)) - (_%__kont8330783308%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8330783308%_)))) - (_%__kont8330783308%_)))))) - (_%__kont8351583516%_ - (lambda (_%L74324%_) - (let* ((_%__stx8326683267%_ _%b73970%_) - (_%g7434074358%_ + |gerbil/core/contract~TypedDefinitions[1]#_g84288_| + _%hd7460174699%_) + (_%__kont8336683367%_ + _%hd7459874689%_) + (_%__kont8336883369%_ + _%hd7459874689%_)) + (_%__kont8336883369%_ + _%hd7459874689%_)))) + (_%__kont8336883369%_ _%hd7459874689%_)))) + (_%__kont8337083371%_)) + (_%__kont8337083371%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8337083371%_)))) + (_%__kont8337083371%_)))))) + (_%__kont8357883579%_ + (lambda (_%L74387%_) + (let* ((_%__stx8332983330%_ _%b74033%_) + (_%g7440374421%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8326683267%_)))) - (let ((_%__kont8326983270%_ - (lambda (_%L74447%_) - (let ((_%$e74458%_ + _%__stx8332983330%_)))) + (let ((_%__kont8333283333%_ + (lambda (_%L74510%_) + (let ((_%$e74521%_ (gx#free-identifier=? - _%L74447%_ + _%L74510%_ (gx#datum->syntax '#f ':)))) - (if _%$e74458%_ - _%$e74458%_ - (let ((_%$e74462%_ + (if _%$e74521%_ + _%$e74521%_ + (let ((_%$e74525%_ (gx#free-identifier=? - _%L74447%_ + _%L74510%_ (gx#datum->syntax '#f ':?)))) - (if _%$e74462%_ - _%$e74462%_ + (if _%$e74525%_ + _%$e74525%_ (gx#free-identifier=? - _%L74447%_ + _%L74510%_ (gx#datum->syntax '#f ':-)))))))) - (_%__kont8327183272%_ - (lambda (_%L74385%_) - (let* ((_%g7439974407%_ - (lambda (_%g7440074403%_) + (_%__kont8333483335%_ + (lambda (_%L74448%_) + (let* ((_%g7446274470%_ + (lambda (_%g7446374466%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7440074403%_))) - (_%g7439874426%_ - (lambda (_%g7440074411%_) - ((lambda (_%L74414%_) + _%g7446374466%_))) + (_%g7446174489%_ + (lambda (_%g7446374474%_) + ((lambda (_%L74477%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74324%_ - (cons _%L74385%_ '()))) + (cons _%L74387%_ + (cons _%L74448%_ '()))) '())) (cons (gx#datum->syntax '#f ':-) - (cons _%L74414%_ '()))))) - _%g7440074411%_)))) + (cons _%L74477%_ '()))))) + _%g7446374474%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7439874426%_ + (_%g7446174489%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_)))))) - (if (gx#stx-pair? _%__stx8326683267%_) - (let ((_%e7434374437%_ + _%slot-type-table74028%_ + _%slot74030%_)))))) + (if (gx#stx-pair? _%__stx8332983330%_) + (let ((_%e7440674500%_ (gx#syntax-e - _%__stx8326683267%_))) - (let ((_%tl7434574444%_ + _%__stx8332983330%_))) + (let ((_%tl7440874507%_ (let () (declare (not safe)) - (##cdr _%e7434374437%_))) - (_%hd7434474441%_ + (##cdr _%e7440674500%_))) + (_%hd7440774504%_ (let () (declare (not safe)) - (##car _%e7434374437%_)))) - (_%__kont8326983270%_ - _%hd7434474441%_))) + (##car _%e7440674500%_)))) + (_%__kont8333283333%_ + _%hd7440774504%_))) (let () (declare (not safe)) - (_%g7434074358%_))))))) - (_%__kont8351783518%_ - (lambda (_%L74112%_) - (let* ((_%__stx8323483235%_ _%b73970%_) - (_%g7412674144%_ + (_%g7440374421%_))))))) + (_%__kont8358083581%_ + (lambda (_%L74175%_) + (let* ((_%__stx8329783298%_ _%b74033%_) + (_%g7418974207%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8323483235%_)))) - (let ((_%__kont8323783238%_ - (lambda (_%L74227%_ _%L74229%_) - (let* ((_%g7425274260%_ - (lambda (_%g7425374256%_) + _%__stx8329783298%_)))) + (let ((_%__kont8330083301%_ + (lambda (_%L74290%_ _%L74292%_) + (let* ((_%g7431574323%_ + (lambda (_%g7431674319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7425374256%_))) - (_%g7425174279%_ - (lambda (_%g7425374264%_) - ((lambda (_%L74267%_) + _%g7431674319%_))) + (_%g7431474342%_ + (lambda (_%g7431674327%_) + ((lambda (_%L74330%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) (cons (cons (gx#datum->syntax '#f '?) (cons (cons (gx#datum->syntax '#f 'and) - (cons _%L74112%_ - (cons _%L74229%_ '()))) + (cons _%L74175%_ + (cons _%L74292%_ '()))) '())) (cons (gx#datum->syntax '#f ':) - (cons _%L74267%_ '()))))) - _%g7425374264%_)))) + (cons _%L74330%_ '()))))) + _%g7431674327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7425174279%_ + (_%g7431474342%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_))))) - (_%__kont8323983240%_ + _%slot-type-table74028%_ + _%slot74030%_))))) + (_%__kont8330283303%_ (lambda () - (let* ((_%g7415574163%_ - (lambda (_%g7415674159%_) + (let* ((_%g7421874226%_ + (lambda (_%g7421974222%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7415674159%_))) - (_%g7415474186%_ - (lambda (_%g7415674167%_) - ((lambda (_%L74170%_) + _%g7421974222%_))) + (_%g7421774249%_ + (lambda (_%g7421974230%_) + ((lambda (_%L74233%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f ':~) - (cons _%L74112%_ + (cons _%L74175%_ (cons (gx#datum->syntax '#f ':) - (cons _%L74170%_ '()))))) - _%g7415674167%_)))) + (cons _%L74233%_ '()))))) + _%g7421974230%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7415474186%_ + (_%g7421774249%_ (hash-ref - _%slot-type-table73965%_ - _%slot73967%_)))))) - (let ((_%__match8326383264%_ - (lambda (_%e7413074197%_ - _%hd7413174201%_ - _%tl7413274204%_ - _%e7413374207%_ - _%hd7413474211%_ - _%tl7413574214%_ - _%e7413674217%_ - _%hd7413774221%_ - _%tl7413874224%_) - (let ((_%L74227%_ - _%hd7413774221%_) - (_%L74229%_ - _%hd7413474211%_)) + _%slot-type-table74028%_ + _%slot74030%_)))))) + (let ((_%__match8332683327%_ + (lambda (_%e7419374260%_ + _%hd7419474264%_ + _%tl7419574267%_ + _%e7419674270%_ + _%hd7419774274%_ + _%tl7419874277%_ + _%e7419974280%_ + _%hd7420074284%_ + _%tl7420174287%_) + (let ((_%L74290%_ + _%hd7420074284%_) + (_%L74292%_ + _%hd7419774274%_)) (if (or (gx#free-identifier=? - _%L74227%_ + _%L74290%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L74227%_ + _%L74290%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L74227%_ + _%L74290%_ (gx#datum->syntax '#f ':-))) - (_%__kont8323783238%_ - _%L74227%_ - _%L74229%_) - (_%__kont8323983240%_)))))) - (if (gx#stx-pair? _%__stx8323483235%_) - (let ((_%e7413074197%_ + (_%__kont8330083301%_ + _%L74290%_ + _%L74292%_) + (_%__kont8330283303%_)))))) + (if (gx#stx-pair? _%__stx8329783298%_) + (let ((_%e7419374260%_ (gx#syntax-e - _%__stx8323483235%_))) - (let ((_%tl7413274204%_ + _%__stx8329783298%_))) + (let ((_%tl7419574267%_ (let () (declare (not safe)) - (##cdr _%e7413074197%_))) - (_%hd7413174201%_ + (##cdr _%e7419374260%_))) + (_%hd7419474264%_ (let () (declare (not safe)) - (##car _%e7413074197%_)))) + (##car _%e7419374260%_)))) (if (gx#identifier? - _%hd7413174201%_) + _%hd7419474264%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84226_| - _%hd7413174201%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84289_| + _%hd7419474264%_) (if (gx#stx-pair? - _%tl7413274204%_) - (let ((_%e7413374207%_ + _%tl7419574267%_) + (let ((_%e7419674270%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7413274204%_))) - (let ((_%tl7413574214%_ + (gx#syntax-e _%tl7419574267%_))) + (let ((_%tl7419874277%_ (let () (declare (not safe)) - (##cdr _%e7413374207%_))) - (_%hd7413474211%_ + (##cdr _%e7419674270%_))) + (_%hd7419774274%_ (let () (declare (not safe)) - (##car _%e7413374207%_)))) - (if (gx#stx-pair? _%tl7413574214%_) - (let ((_%e7413674217%_ - (gx#syntax-e _%tl7413574214%_))) - (let ((_%tl7413874224%_ + (##car _%e7419674270%_)))) + (if (gx#stx-pair? _%tl7419874277%_) + (let ((_%e7419974280%_ + (gx#syntax-e _%tl7419874277%_))) + (let ((_%tl7420174287%_ (let () (declare (not safe)) - (##cdr _%e7413674217%_))) - (_%hd7413774221%_ + (##cdr _%e7419974280%_))) + (_%hd7420074284%_ (let () (declare (not safe)) - (##car _%e7413674217%_)))) - (_%__match8326383264%_ - _%e7413074197%_ - _%hd7413174201%_ - _%tl7413274204%_ - _%e7413374207%_ - _%hd7413474211%_ - _%tl7413574214%_ - _%e7413674217%_ - _%hd7413774221%_ - _%tl7413874224%_))) - (_%__kont8323983240%_)))) - (_%__kont8323983240%_)) - (_%__kont8323983240%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont8323983240%_)))) - (_%__kont8323983240%_)))))))) - (if (gx#stx-pair? _%__stx8350283503%_) - (let ((_%e7403475340%_ - (gx#syntax-e _%__stx8350283503%_))) - (let ((_%tl7403675347%_ + (##car _%e7419974280%_)))) + (_%__match8332683327%_ + _%e7419374260%_ + _%hd7419474264%_ + _%tl7419574267%_ + _%e7419674270%_ + _%hd7419774274%_ + _%tl7419874277%_ + _%e7419974280%_ + _%hd7420074284%_ + _%tl7420174287%_))) + (_%__kont8330283303%_)))) + (_%__kont8330283303%_)) + (_%__kont8330283303%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont8330283303%_)))) + (_%__kont8330283303%_)))))))) + (if (gx#stx-pair? _%__stx8356583566%_) + (let ((_%e7409775403%_ + (gx#syntax-e _%__stx8356583566%_))) + (let ((_%tl7409975410%_ (let () (declare (not safe)) - (##cdr _%e7403475340%_))) - (_%hd7403575344%_ + (##cdr _%e7409775403%_))) + (_%hd7409875407%_ (let () (declare (not safe)) - (##car _%e7403475340%_)))) - (if (gx#identifier? _%hd7403575344%_) + (##car _%e7409775403%_)))) + (if (gx#identifier? _%hd7409875407%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84227_| - _%hd7403575344%_) - (_%__kont8350583506%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84290_| + _%hd7409875407%_) + (_%__kont8356883569%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84228_| - _%hd7403575344%_) - (_%__kont8350783508%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84291_| + _%hd7409875407%_) + (_%__kont8357083571%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84229_| - _%hd7403575344%_) - (_%__kont8350983510%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84292_| + _%hd7409875407%_) + (_%__kont8357283573%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84230_| - _%hd7403575344%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84293_| + _%hd7409875407%_) (if (gx#stx-pair? - _%tl7403675347%_) - (let ((_%e7404774766%_ + _%tl7409975410%_) + (let ((_%e7411074829%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl7403675347%_))) - (let ((_%tl7404974773%_ + (gx#syntax-e _%tl7409975410%_))) + (let ((_%tl7411274836%_ (let () (declare (not safe)) - (##cdr _%e7404774766%_))) - (_%hd7404874770%_ + (##cdr _%e7411074829%_))) + (_%hd7411174833%_ (let () (declare (not safe)) - (##car _%e7404774766%_)))) - (if (gx#stx-pair? _%tl7404974773%_) - (let ((_%e7405074776%_ - (gx#syntax-e _%tl7404974773%_))) - (let ((_%tl7405274783%_ + (##car _%e7411074829%_)))) + (if (gx#stx-pair? _%tl7411274836%_) + (let ((_%e7411374839%_ + (gx#syntax-e _%tl7411274836%_))) + (let ((_%tl7411574846%_ (let () (declare (not safe)) - (##cdr _%e7405074776%_))) - (_%hd7405174780%_ + (##cdr _%e7411374839%_))) + (_%hd7411474843%_ (let () (declare (not safe)) - (##car _%e7405074776%_)))) - (if (gx#identifier? _%hd7405174780%_) + (##car _%e7411374839%_)))) + (if (gx#identifier? _%hd7411474843%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84231_| - _%hd7405174780%_) - (_%__kont8351183512%_ _%hd7404874770%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84294_| + _%hd7411474843%_) + (_%__kont8357483575%_ _%hd7411174833%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84232_| - _%hd7405174780%_) - (_%__kont8351383514%_ - _%hd7404874770%_) + |gerbil/core/contract~TypedDefinitions[1]#_g84295_| + _%hd7411474843%_) + (_%__kont8357683577%_ + _%hd7411174833%_) (if (gx#free-identifier=? - |gerbil/core/contract~TypedDefinitions[1]#_g84233_| - _%hd7405174780%_) - (_%__kont8351583516%_ - _%hd7404874770%_) - (_%__kont8351783518%_ - _%hd7404874770%_)))) - (_%__kont8351783518%_ _%hd7404874770%_)))) - (_%__kont8351783518%_ _%hd7404874770%_)))) - (let () (declare (not safe)) (_%g7403274085%_))) - (let () (declare (not safe)) (_%g7403274085%_)))))) + |gerbil/core/contract~TypedDefinitions[1]#_g84296_| + _%hd7411474843%_) + (_%__kont8357883579%_ + _%hd7411174833%_) + (_%__kont8358083581%_ + _%hd7411174833%_)))) + (_%__kont8358083581%_ _%hd7411174833%_)))) + (_%__kont8358083581%_ _%hd7411174833%_)))) + (let () (declare (not safe)) (_%g7409574148%_))) + (let () (declare (not safe)) (_%g7409574148%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g7403274085%_))))) + (_%g7409574148%_))))) (let () (declare (not safe)) - (_%g7403274085%_))))))))) - (_%get-slot-defaults69519%_ - (lambda (_%slots73951%_ _%mixin-slots73953%_ _%super73954%_) - (_%get-slot-table69517%_ - _%slots73951%_ - _%mixin-slots73953%_ - _%super73954%_ - _%slot-default69514%_ + (_%g7409574148%_))))))))) + (_%get-slot-defaults69582%_ + (lambda (_%slots74014%_ _%mixin-slots74016%_ _%super74017%_) + (_%get-slot-table69580%_ + _%slots74014%_ + _%mixin-slots74016%_ + _%super74017%_ + _%slot-default69577%_ |gerbil/core/contract~Using[1]#!class-slot-default| - (lambda (_%slot73956%_ _%a73958%_ _%b73959%_) - _%a73958%_)))) - (_%update-slot-types!69520%_ - (lambda (_%slots73921%_ _%slot-type-table73923%_) + (lambda (_%slot74019%_ _%a74021%_ _%b74022%_) + _%a74021%_)))) + (_%update-slot-types!69583%_ + (lambda (_%slots73984%_ _%slot-type-table73986%_) (for-each - (lambda (_%slot-spec73925%_) - (let* ((_%slot73928%_ - (_%slot-name69506%_ _%slot-spec73925%_)) - (_%slot-type7393073932%_ - (_%slot-contract-type69510%_ - _%slot-spec73925%_))) - (if _%slot-type7393073932%_ - (let* ((_%slot-type73936%_ - _%slot-type7393073932%_) - (_%$e73939%_ + (lambda (_%slot-spec73988%_) + (let* ((_%slot73991%_ + (_%slot-name69569%_ _%slot-spec73988%_)) + (_%slot-type7399373995%_ + (_%slot-contract-type69573%_ + _%slot-spec73988%_))) + (if _%slot-type7399373995%_ + (let* ((_%slot-type73999%_ + _%slot-type7399373995%_) + (_%$e74002%_ (hash-get - _%slot-type-table73923%_ - _%slot73928%_))) - (if _%$e73939%_ - ((lambda (_%other-slot-type73943%_) - (let ((_%slot-type73946%_ - (_%infer-slot-type69515%_ - _%slot73928%_ - _%other-slot-type73943%_ - _%slot-type73936%_))) + _%slot-type-table73986%_ + _%slot73991%_))) + (if _%$e74002%_ + ((lambda (_%other-slot-type74006%_) + (let ((_%slot-type74009%_ + (_%infer-slot-type69578%_ + _%slot73991%_ + _%other-slot-type74006%_ + _%slot-type73999%_))) (hash-put! - _%slot-type-table73923%_ - _%slot73928%_ - _%slot-type73946%_))) - _%$e73939%_) + _%slot-type-table73986%_ + _%slot73991%_ + _%slot-type74009%_))) + _%$e74002%_) (hash-put! - _%slot-type-table73923%_ - _%slot73928%_ - _%slot-type73936%_))) + _%slot-type-table73986%_ + _%slot73991%_ + _%slot-type73999%_))) '#f))) - _%slots73921%_))) - (_%syntax-local-value/context69521%_ - (lambda (_%id73915%_) + _%slots73984%_))) + (_%syntax-local-value/context69584%_ + (lambda (_%id73978%_) (gx#syntax-local-value - _%id73915%_ - (lambda (_%id73918%_) + _%id73978%_ + (lambda (_%id73981%_) (gx#raise-syntax-error '#f '"not a class meta type binding" - _%stx69500%_ - _%id73918%_))))) - (_%order-slots69522%_ - (lambda (_%slots73846%_ _%super73848%_) - (let ((_g84234_ + _%stx69563%_ + _%id73981%_))))) + (_%order-slots69585%_ + (lambda (_%slots73909%_ _%super73911%_) + (let ((_g84297_ (c4-linearize '() - _%super73848%_ + _%super73911%_ 'get-precedence-list: - (lambda (_%klass-id73850%_) - (cons _%klass-id73850%_ - (let ((__tmp84236 - (_%syntax-local-value/context69521%_ - _%klass-id73850%_))) + (lambda (_%klass-id73913%_) + (cons _%klass-id73913%_ + (let ((__tmp84299 + (_%syntax-local-value/context69584%_ + _%klass-id73913%_))) (declare (not safe)) (gerbil/core/contract~ClassMeta#!class-precedence-list - __tmp84236)))) + __tmp84299)))) 'struct: - (lambda (_%klass-id73853%_) - (let ((__obj83949 - (_%syntax-local-value/context69521%_ - _%klass-id73853%_))) + (lambda (_%klass-id73916%_) + (let ((__obj84012 + (_%syntax-local-value/context69584%_ + _%klass-id73916%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83949 + __obj84012 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83949 + __obj84012 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83949 + __obj84012 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g84235_ + (let ((_g84298_ (let () (declare (not safe)) - (if (##values? _g84234_) - (##vector-length _g84234_) + (if (##values? _g84297_) + (##values-length _g84297_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84235_ 2))) - (error "Context expects 2 values" _g84235_))) - (let ((_%precedence-list73856%_ + (##fx= _g84298_ 2))) + (error "Context expects 2 values" _g84298_))) + (let ((_%precedence-list73919%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 0))) - (_%base-struct73858%_ + (##values-ref _g84297_ 0))) + (_%base-struct73921%_ (let () (declare (not safe)) - (##vector-ref _g84234_ 1)))) - (let* ((_%base-fields73872%_ - (if _%base-struct73858%_ - (let* ((_%klass73860%_ + (##values-ref _g84297_ 1)))) + (let* ((_%base-fields73935%_ + (if _%base-struct73921%_ + (let* ((_%klass73923%_ (gx#syntax-local-value - _%base-struct73858%_)) - (_%$e73863%_ - (let ((__obj83950 - _%klass73860%_)) + _%base-struct73921%_)) + (_%$e73926%_ + (let ((__obj84013 + _%klass73923%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83950 + __obj84013 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83950 + __obj84013 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83950 + __obj84013 'ordered-slots))))) - (if _%$e73863%_ - _%$e73863%_ - (let ((_%ordered73869%_ - (_%order-slots69522%_ - (let ((__obj83951 - _%klass73860%_)) + (if _%$e73926%_ + _%$e73926%_ + (let ((_%ordered73932%_ + (_%order-slots69585%_ + (let ((__obj84014 + _%klass73923%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83951 + __obj84014 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83951 + __obj84014 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83951 + __obj84014 'slots))) - (let ((__obj83952 - _%klass73860%_)) + (let ((__obj84015 + _%klass73923%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83952 + __obj84015 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83952 + __obj84015 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83952 + __obj84015 'super)))))) - (let ((__obj83953 - _%klass73860%_)) + (let ((__obj84016 + _%klass73923%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83953 + __obj84016 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83953 - _%ordered73869%_ + __obj84016 + _%ordered73932%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83953 + __obj84016 'ordered-slots - _%ordered73869%_))) - _%ordered73869%_))) + _%ordered73932%_))) + _%ordered73932%_))) '())) - (_%r-fields73875%_ - (reverse _%base-fields73872%_)) - (_%seen-slots73886%_ - (let ((_%tab73878%_ (make-hash-table-eq))) + (_%r-fields73938%_ + (reverse _%base-fields73935%_)) + (_%seen-slots73949%_ + (let ((_%tab73941%_ (make-hash-table-eq))) (for-each - (lambda (_%g7388073882%_) + (lambda (_%g7394373945%_) (hash-put! - _%tab73878%_ - _%g7388073882%_ + _%tab73941%_ + _%g7394373945%_ '#t)) - _%base-fields73872%_) - _%tab73878%_)) - (_%process-slot73892%_ - (lambda (_%slot73889%_) + _%base-fields73935%_) + _%tab73941%_)) + (_%process-slot73955%_ + (lambda (_%slot73952%_) (if (hash-get - _%seen-slots73886%_ - _%slot73889%_) + _%seen-slots73949%_ + _%slot73952%_) '#!void (begin (hash-put! - _%seen-slots73886%_ - _%slot73889%_ + _%seen-slots73949%_ + _%slot73952%_ '#t) - (set! _%r-fields73875%_ - (cons _%slot73889%_ - _%r-fields73875%_))))))) + (set! _%r-fields73938%_ + (cons _%slot73952%_ + _%r-fields73938%_))))))) (for-each - (lambda (_%mixin73897%_) - (let ((_%klass73900%_ - (gx#syntax-local-value _%mixin73897%_))) - (if (let ((__obj83954 _%klass73900%_)) + (lambda (_%mixin73960%_) + (let ((_%klass73963%_ + (gx#syntax-local-value _%mixin73960%_))) + (if (let ((__obj84017 _%klass73963%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83954 + __obj84017 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83954 + __obj84017 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83954 + __obj84017 'struct?))) '#!void - (let ((_%$e73903%_ - (let ((__obj83955 _%klass73900%_)) + (let ((_%$e73966%_ + (let ((__obj84018 _%klass73963%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83955 + __obj84018 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83955 + __obj84018 '6 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83955 + __obj84018 'ordered-slots))))) - (if _%$e73903%_ - ((lambda (_%ordered73907%_) + (if _%$e73966%_ + ((lambda (_%ordered73970%_) (for-each - _%process-slot73892%_ - _%ordered73907%_)) - _%$e73903%_) - (let ((_%ordered73912%_ - (_%order-slots69522%_ - (let ((__obj83956 - _%klass73900%_)) + _%process-slot73955%_ + _%ordered73970%_)) + _%$e73966%_) + (let ((_%ordered73975%_ + (_%order-slots69585%_ + (let ((__obj84019 + _%klass73963%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83956 + __obj84019 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83956 + __obj84019 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83956 + __obj84019 'slots))) - (let ((__obj83957 - _%klass73900%_)) + (let ((__obj84020 + _%klass73963%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83957 + __obj84020 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83957 + __obj84020 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83957 + __obj84020 'super)))))) - (let ((__obj83958 _%klass73900%_)) + (let ((__obj84021 _%klass73963%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83958 + __obj84021 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83958 - _%ordered73912%_ + __obj84021 + _%ordered73975%_ '6 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83958 + __obj84021 'ordered-slots - _%ordered73912%_))) + _%ordered73975%_))) (for-each - _%process-slot73892%_ - _%ordered73912%_))))))) - _%precedence-list73856%_) - (for-each _%process-slot73892%_ _%slots73846%_) - (reverse _%r-fields73875%_))))))) - (_%wrap69523%_ - (lambda (_%e-stx73843%_) + _%process-slot73955%_ + _%ordered73975%_))))))) + _%precedence-list73919%_) + (for-each _%process-slot73955%_ _%slots73909%_) + (reverse _%r-fields73938%_))))))) + (_%wrap69586%_ + (lambda (_%e-stx73906%_) (gx#stx-wrap-source - _%e-stx73843%_ - (gx#stx-source _%stx69500%_)))) - (_%generate-defclass69524%_ - (lambda (_%id69658%_ - _%super-ref69660%_ - _%slots69661%_ - _%body69662%_) - (letrec ((_%make-id69664%_ - (lambda _%args73840%_ + _%e-stx73906%_ + (gx#stx-source _%stx69563%_)))) + (_%generate-defclass69587%_ + (lambda (_%id69721%_ + _%super-ref69723%_ + _%slots69724%_ + _%body69725%_) + (letrec ((_%make-id69727%_ + (lambda _%args73903%_ (apply gx#stx-identifier - _%id69658%_ - _%args73840%_)))) + _%id69721%_ + _%args73903%_)))) (gx#check-duplicate-identifiers - (map _%slot-name69506%_ _%slots69661%_) - _%stx69500%_) + (map _%slot-name69569%_ _%slots69724%_) + _%stx69563%_) (let () (declare (not safe)) (|gerbil/core/contract~Interface[1]#check-signature-spec!__%| '#f absent-value '#f - _%stx69500%_ - _%slots69661%_)) - (_%check-typedef-body!69505%_ _%body69662%_) - (let ((_g84237_ - (_%get-mixin-slots69516%_ _%super-ref69660%_))) + _%stx69563%_ + _%slots69724%_)) + (_%check-typedef-body!69568%_ _%body69725%_) + (let ((_g84300_ + (_%get-mixin-slots69579%_ _%super-ref69723%_))) (begin - (let ((_g84238_ + (let ((_g84301_ (let () (declare (not safe)) - (if (##values? _g84237_) - (##vector-length _g84237_) + (if (##values? _g84300_) + (##values-length _g84300_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84238_ 2))) - (error "Context expects 2 values" _g84238_))) - (let ((_%mixin-slots69667%_ + (##fx= _g84301_ 2))) + (error "Context expects 2 values" _g84301_))) + (let ((_%mixin-slots69730%_ (let () (declare (not safe)) - (##vector-ref _g84237_ 0))) - (_%slot-type-table69669%_ + (##values-ref _g84300_ 0))) + (_%slot-type-table69732%_ (let () (declare (not safe)) - (##vector-ref _g84237_ 1)))) - (let* ((_%slot-contract-table69671%_ - (_%get-slot-contracts69518%_ - _%slots69661%_ - _%mixin-slots69667%_ - _%super-ref69660%_ - _%slot-type-table69669%_)) - (_%slot-default-table69674%_ - (_%get-slot-defaults69519%_ - _%slots69661%_ - _%mixin-slots69667%_ - _%super-ref69660%_)) - (_%ordered-slots69677%_ - (_%order-slots69522%_ - (map _%slot-name69506%_ _%slots69661%_) - _%super-ref69660%_))) - (_%update-slot-types!69520%_ - _%slots69661%_ - _%slot-type-table69669%_) - (let* ((_%slots69682%_ - (map _%slot-name69506%_ _%slots69661%_)) - (_%mixin-slots69688%_ - (filter (lambda (_%slot69685%_) - (not (memq _%slot69685%_ - _%slots69682%_))) - _%mixin-slots69667%_)) - (_%name69691%_ - (symbol->string (gx#stx-e _%id69658%_))) - (_%super69694%_ + (##values-ref _g84300_ 1)))) + (let* ((_%slot-contract-table69734%_ + (_%get-slot-contracts69581%_ + _%slots69724%_ + _%mixin-slots69730%_ + _%super-ref69723%_ + _%slot-type-table69732%_)) + (_%slot-default-table69737%_ + (_%get-slot-defaults69582%_ + _%slots69724%_ + _%mixin-slots69730%_ + _%super-ref69723%_)) + (_%ordered-slots69740%_ + (_%order-slots69585%_ + (map _%slot-name69569%_ _%slots69724%_) + _%super-ref69723%_))) + (_%update-slot-types!69583%_ + _%slots69724%_ + _%slot-type-table69732%_) + (let* ((_%slots69745%_ + (map _%slot-name69569%_ _%slots69724%_)) + (_%mixin-slots69751%_ + (filter (lambda (_%slot69748%_) + (not (memq _%slot69748%_ + _%slots69745%_))) + _%mixin-slots69730%_)) + (_%name69754%_ + (symbol->string (gx#stx-e _%id69721%_))) + (_%super69757%_ (map gx#syntax-local-value - _%super-ref69660%_)) - (_%struct?69697%_ - (gx#stx-getq 'struct: _%body69662%_)) - (_%g6970069708%_ - (lambda (_%g6970169704%_) + _%super-ref69723%_)) + (_%struct?69760%_ + (gx#stx-getq 'struct: _%body69725%_)) + (_%g6976369771%_ + (lambda (_%g6976469767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6970169704%_))) - (_%g6969973836%_ - (lambda (_%g6970169712%_) - ((lambda (_%L69715%_) - (let* ((_%g6973869746%_ - (lambda (_%g6973969742%_) + _%g6976469767%_))) + (_%g6976273899%_ + (lambda (_%g6976469775%_) + ((lambda (_%L69778%_) + (let* ((_%g6980169809%_ + (lambda (_%g6980269805%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6973969742%_))) - (_%g6973773832%_ - (lambda (_%g6973969750%_) - ((lambda (_%L69753%_) - (let* ((_%g6976669774%_ - (lambda (_%g6976769770%_) + _%g6980269805%_))) + (_%g6980073895%_ + (lambda (_%g6980269813%_) + ((lambda (_%L69816%_) + (let* ((_%g6982969837%_ + (lambda (_%g6983069833%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6976769770%_))) - (_%g6976573828%_ - (lambda (_%g6976769778%_) - ((lambda (_%L69781%_) - (let* ((_%g6979469802%_ - (lambda (_%g6979569798%_) + _%g6983069833%_))) + (_%g6982873891%_ + (lambda (_%g6983069841%_) + ((lambda (_%L69844%_) + (let* ((_%g6985769865%_ + (lambda (_%g6985869861%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6979569798%_))) - (_%g6979373824%_ - (lambda (_%g6979569806%_) - ((lambda (_%L69809%_) - (let* ((_%g6982269830%_ - (lambda (_%g6982369826%_) + _%g6985869861%_))) + (_%g6985673887%_ + (lambda (_%g6985869869%_) + ((lambda (_%L69872%_) + (let* ((_%g6988569893%_ + (lambda (_%g6988669889%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6982369826%_))) - (_%g6982173820%_ - (lambda (_%g6982369834%_) - ((lambda (_%L69837%_) - (let* ((_%g6985069867%_ - (lambda (_%g6985169863%_) + _%g6988669889%_))) + (_%g6988473883%_ + (lambda (_%g6988669897%_) + ((lambda (_%L69900%_) + (let* ((_%g6991369930%_ + (lambda (_%g6991469926%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6985169863%_))) - (_%g6984973816%_ - (lambda (_%g6985169871%_) - (if (gx#stx-pair/null? _%g6985169871%_) - (let ((_g84239_ + _%g6991469926%_))) + (_%g6991273879%_ + (lambda (_%g6991469934%_) + (if (gx#stx-pair/null? _%g6991469934%_) + (let ((_g84302_ (gx#syntax-split-splice - _%g6985169871%_ + _%g6991469934%_ '0))) (begin - (let ((_g84240_ + (let ((_g84303_ (let () (declare (not safe)) - (if (##values? _g84239_) - (##vector-length _g84239_) + (if (##values? _g84302_) + (##values-length _g84302_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84240_ 2))) + (##fx= _g84303_ 2))) (error "Context expects 2 values" - _g84240_))) - (let ((_%target6985369874%_ + _g84303_))) + (let ((_%target6991669937%_ (let () (declare (not safe)) - (##vector-ref _g84239_ 0))) - (_%tl6985569877%_ + (##values-ref _g84302_ 0))) + (_%tl6991869940%_ (let () (declare (not safe)) - (##vector-ref _g84239_ 1)))) - (if (gx#stx-null? _%tl6985569877%_) - (letrec ((_%loop6985669880%_ - (lambda (_%hd6985469884%_ - _%slot6986069887%_) + (##values-ref _g84302_ 1)))) + (if (gx#stx-null? _%tl6991869940%_) + (letrec ((_%loop6991969943%_ + (lambda (_%hd6991769947%_ + _%slot6992369950%_) (if (gx#stx-pair? - _%hd6985469884%_) - (let ((_%e6985769890%_ + _%hd6991769947%_) + (let ((_%e6992069953%_ (gx#syntax-e - _%hd6985469884%_))) - (let ((_%lp-hd6985869894%_ + _%hd6991769947%_))) + (let ((_%lp-hd6992169957%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e6985769890%_))) - (_%lp-tl6985969897%_ - (let () (declare (not safe)) (##cdr _%e6985769890%_)))) - (_%loop6985669880%_ - _%lp-tl6985969897%_ - (cons _%lp-hd6985869894%_ _%slot6986069887%_)))) - (let ((_%slot6986169900%_ (reverse _%slot6986069887%_))) - ((lambda (_%L69904%_) - (let* ((_%g6992169938%_ - (lambda (_%g6992269934%_) + (##car _%e6992069953%_))) + (_%lp-tl6992269960%_ + (let () (declare (not safe)) (##cdr _%e6992069953%_)))) + (_%loop6991969943%_ + _%lp-tl6992269960%_ + (cons _%lp-hd6992169957%_ _%slot6992369950%_)))) + (let ((_%slot6992469963%_ (reverse _%slot6992369950%_))) + ((lambda (_%L69967%_) + (let* ((_%g6998470001%_ + (lambda (_%g6998569997%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6992269934%_))) - (_%g6992073812%_ - (lambda (_%g6992269942%_) - (if (gx#stx-pair/null? _%g6992269942%_) - (let ((_g84241_ + _%g6998569997%_))) + (_%g6998373875%_ + (lambda (_%g6998570005%_) + (if (gx#stx-pair/null? _%g6998570005%_) + (let ((_g84304_ (gx#syntax-split-splice - _%g6992269942%_ + _%g6998570005%_ '0))) (begin - (let ((_g84242_ + (let ((_g84305_ (let () (declare (not safe)) - (if (##values? _g84241_) - (##vector-length _g84241_) + (if (##values? _g84304_) + (##values-length _g84304_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84242_ 2))) + (##fx= _g84305_ 2))) (error "Context expects 2 values" - _g84242_))) - (let ((_%target6992469945%_ + _g84305_))) + (let ((_%target6998770008%_ (let () (declare (not safe)) - (##vector-ref _g84241_ 0))) - (_%tl6992669948%_ + (##values-ref _g84304_ 0))) + (_%tl6998970011%_ (let () (declare (not safe)) - (##vector-ref _g84241_ 1)))) - (if (gx#stx-null? _%tl6992669948%_) - (letrec ((_%loop6992769951%_ - (lambda (_%hd6992569955%_ - _%ordered-slot6993169958%_) + (##values-ref _g84304_ 1)))) + (if (gx#stx-null? _%tl6998970011%_) + (letrec ((_%loop6999070014%_ + (lambda (_%hd6998870018%_ + _%ordered-slot6999470021%_) (if (gx#stx-pair? - _%hd6992569955%_) - (let ((_%e6992869961%_ + _%hd6998870018%_) + (let ((_%e6999170024%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd6992569955%_))) - (let ((_%lp-hd6992969965%_ + (gx#syntax-e _%hd6998870018%_))) + (let ((_%lp-hd6999270028%_ (let () (declare (not safe)) - (##car _%e6992869961%_))) - (_%lp-tl6993069968%_ + (##car _%e6999170024%_))) + (_%lp-tl6999370031%_ (let () (declare (not safe)) - (##cdr _%e6992869961%_)))) - (_%loop6992769951%_ - _%lp-tl6993069968%_ - (cons _%lp-hd6992969965%_ - _%ordered-slot6993169958%_)))) - (let ((_%ordered-slot6993269971%_ - (reverse _%ordered-slot6993169958%_))) - ((lambda (_%L69975%_) - (let* ((_%g6999270009%_ - (lambda (_%g6999370005%_) + (##cdr _%e6999170024%_)))) + (_%loop6999070014%_ + _%lp-tl6999370031%_ + (cons _%lp-hd6999270028%_ + _%ordered-slot6999470021%_)))) + (let ((_%ordered-slot6999570034%_ + (reverse _%ordered-slot6999470021%_))) + ((lambda (_%L70038%_) + (let* ((_%g7005570072%_ + (lambda (_%g7005670068%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6999370005%_))) - (_%g6999173803%_ - (lambda (_%g6999370013%_) - (if (gx#stx-pair/null? _%g6999370013%_) - (let ((_g84243_ + _%g7005670068%_))) + (_%g7005473866%_ + (lambda (_%g7005670076%_) + (if (gx#stx-pair/null? _%g7005670076%_) + (let ((_g84306_ (gx#syntax-split-splice - _%g6999370013%_ + _%g7005670076%_ '0))) (begin - (let ((_g84244_ + (let ((_g84307_ (let () (declare (not safe)) - (if (##values? _g84243_) - (##vector-length - _g84243_) + (if (##values? _g84306_) + (##values-length + _g84306_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84244_ 2))) + (##fx= _g84307_ 2))) (error "Context expects 2 values" - _g84244_))) - (let ((_%target6999570016%_ + _g84307_))) + (let ((_%target7005870079%_ (let () (declare (not safe)) - (##vector-ref _g84243_ 0))) - (_%tl6999770019%_ + (##values-ref _g84306_ 0))) + (_%tl7006070082%_ (let () (declare (not safe)) - (##vector-ref - _g84243_ + (##values-ref + _g84306_ 1)))) (if (gx#stx-null? - _%tl6999770019%_) - (letrec ((_%loop6999870022%_ - (lambda (_%hd6999670026%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf7000270029%_) - (if (gx#stx-pair? _%hd6999670026%_) - (let ((_%e6999970032%_ - (gx#syntax-e _%hd6999670026%_))) - (let ((_%lp-hd7000070036%_ + _%tl7006070082%_) + (letrec ((_%loop7006170085%_ + (lambda (_%hd7005970089%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%getf7006570092%_) + (if (gx#stx-pair? _%hd7005970089%_) + (let ((_%e7006270095%_ + (gx#syntax-e _%hd7005970089%_))) + (let ((_%lp-hd7006370099%_ (let () (declare (not safe)) - (##car _%e6999970032%_))) - (_%lp-tl7000170039%_ + (##car _%e7006270095%_))) + (_%lp-tl7006470102%_ (let () (declare (not safe)) - (##cdr _%e6999970032%_)))) - (_%loop6999870022%_ - _%lp-tl7000170039%_ - (cons _%lp-hd7000070036%_ _%getf7000270029%_)))) - (let ((_%getf7000370042%_ - (reverse _%getf7000270029%_))) - ((lambda (_%L70046%_) - (let* ((_%g7006370080%_ - (lambda (_%g7006470076%_) + (##cdr _%e7006270095%_)))) + (_%loop7006170085%_ + _%lp-tl7006470102%_ + (cons _%lp-hd7006370099%_ _%getf7006570092%_)))) + (let ((_%getf7006670105%_ + (reverse _%getf7006570092%_))) + ((lambda (_%L70109%_) + (let* ((_%g7012670143%_ + (lambda (_%g7012770139%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7006470076%_))) - (_%g7006273794%_ - (lambda (_%g7006470084%_) - (if (gx#stx-pair/null? _%g7006470084%_) - (let ((_g84245_ + _%g7012770139%_))) + (_%g7012573857%_ + (lambda (_%g7012770147%_) + (if (gx#stx-pair/null? _%g7012770147%_) + (let ((_g84308_ (gx#syntax-split-splice - _%g7006470084%_ + _%g7012770147%_ '0))) (begin - (let ((_g84246_ + (let ((_g84309_ (let () (declare (not safe)) (if (##values? - _g84245_) - (##vector-length - _g84245_) + _g84308_) + (##values-length + _g84308_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84246_ + (##fx= _g84309_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84246_))) + (error "Context expects 2 values" _g84309_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7006670087%_ + (let ((_%target7012970150%_ (let () (declare (not safe)) - (##vector-ref - _g84245_ + (##values-ref + _g84308_ 0))) - (_%tl7006870090%_ + (_%tl7013170153%_ (let () (declare (not safe)) - (##vector-ref - _g84245_ + (##values-ref + _g84308_ 1)))) (if (gx#stx-null? - _%tl7006870090%_) - (letrec ((_%loop7006970093%_ - (lambda (_%hd7006770097%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%setf7007370100%_) - (if (gx#stx-pair? _%hd7006770097%_) - (let ((_%e7007070103%_ - (gx#syntax-e _%hd7006770097%_))) - (let ((_%lp-hd7007170107%_ + _%tl7013170153%_) + (letrec ((_%loop7013270156%_ + (lambda (_%hd7013070160%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%setf7013670163%_) + (if (gx#stx-pair? _%hd7013070160%_) + (let ((_%e7013370166%_ + (gx#syntax-e _%hd7013070160%_))) + (let ((_%lp-hd7013470170%_ (let () (declare (not safe)) - (##car _%e7007070103%_))) - (_%lp-tl7007270110%_ + (##car _%e7013370166%_))) + (_%lp-tl7013570173%_ (let () (declare (not safe)) - (##cdr _%e7007070103%_)))) - (_%loop7006970093%_ - _%lp-tl7007270110%_ - (cons _%lp-hd7007170107%_ - _%setf7007370100%_)))) - (let ((_%setf7007470113%_ - (reverse _%setf7007370100%_))) - ((lambda (_%L70117%_) - (let* ((_%g7013470151%_ - (lambda (_%g7013570147%_) + (##cdr _%e7013370166%_)))) + (_%loop7013270156%_ + _%lp-tl7013570173%_ + (cons _%lp-hd7013470170%_ + _%setf7013670163%_)))) + (let ((_%setf7013770176%_ + (reverse _%setf7013670163%_))) + ((lambda (_%L70180%_) + (let* ((_%g7019770214%_ + (lambda (_%g7019870210%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7013570147%_))) - (_%g7013373785%_ - (lambda (_%g7013570155%_) + _%g7019870210%_))) + (_%g7019673848%_ + (lambda (_%g7019870218%_) (if (gx#stx-pair/null? - _%g7013570155%_) - (let ((_g84247_ + _%g7019870218%_) + (let ((_g84310_ (gx#syntax-split-splice - _%g7013570155%_ + _%g7019870218%_ '0))) (begin - (let ((_g84248_ + (let ((_g84311_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84247_) - (##vector-length _g84247_) + _g84310_) + (##values-length _g84310_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84248_ 2))) - (error "Context expects 2 values" _g84248_))) + (if (not (let () (declare (not safe)) (##fx= _g84311_ 2))) + (error "Context expects 2 values" _g84311_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7013770158%_ + (let ((_%target7020070221%_ (let () (declare (not safe)) - (##vector-ref - _g84247_ + (##values-ref + _g84310_ 0))) - (_%tl7013970161%_ + (_%tl7020270224%_ (let () (declare (not safe)) - (##vector-ref - _g84247_ + (##values-ref + _g84310_ 1)))) (if (gx#stx-null? - _%tl7013970161%_) - (letrec ((_%loop7014070164%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7013870168%_ _%rawsetf7014470171%_) - (if (gx#stx-pair? _%hd7013870168%_) - (let ((_%e7014170174%_ - (gx#syntax-e _%hd7013870168%_))) - (let ((_%lp-hd7014270178%_ + _%tl7020270224%_) + (letrec ((_%loop7020370227%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7020170231%_ _%rawsetf7020770234%_) + (if (gx#stx-pair? _%hd7020170231%_) + (let ((_%e7020470237%_ + (gx#syntax-e _%hd7020170231%_))) + (let ((_%lp-hd7020570241%_ (let () (declare (not safe)) - (##car _%e7014170174%_))) - (_%lp-tl7014370181%_ + (##car _%e7020470237%_))) + (_%lp-tl7020670244%_ (let () (declare (not safe)) - (##cdr _%e7014170174%_)))) - (_%loop7014070164%_ - _%lp-tl7014370181%_ - (cons _%lp-hd7014270178%_ - _%rawsetf7014470171%_)))) - (let ((_%rawsetf7014570184%_ - (reverse _%rawsetf7014470171%_))) - ((lambda (_%L70188%_) - (let* ((_%g7020570222%_ - (lambda (_%g7020670218%_) + (##cdr _%e7020470237%_)))) + (_%loop7020370227%_ + _%lp-tl7020670244%_ + (cons _%lp-hd7020570241%_ + _%rawsetf7020770234%_)))) + (let ((_%rawsetf7020870247%_ + (reverse _%rawsetf7020770234%_))) + ((lambda (_%L70251%_) + (let* ((_%g7026870285%_ + (lambda (_%g7026970281%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7020670218%_))) - (_%g7020473781%_ - (lambda (_%g7020670226%_) + _%g7026970281%_))) + (_%g7026773844%_ + (lambda (_%g7026970289%_) (if (gx#stx-pair/null? - _%g7020670226%_) - (let ((_g84249_ + _%g7026970289%_) + (let ((_g84312_ (gx#syntax-split-splice - _%g7020670226%_ + _%g7026970289%_ '0))) (begin - (let ((_g84250_ + (let ((_g84313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84249_) - (##vector-length _g84249_) + (if (##values? _g84312_) + (##values-length _g84312_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84250_ 2))) - (error "Context expects 2 values" _g84250_))) - (let ((_%target7020870229%_ + (if (not (let () (declare (not safe)) (##fx= _g84313_ 2))) + (error "Context expects 2 values" _g84313_))) + (let ((_%target7027170292%_ (let () (declare (not safe)) - (##vector-ref _g84249_ 0))) - (_%tl7021070232%_ + (##values-ref _g84312_ 0))) + (_%tl7027370295%_ (let () (declare (not safe)) - (##vector-ref _g84249_ 1)))) - (if (gx#stx-null? _%tl7021070232%_) - (letrec ((_%loop7021170235%_ - (lambda (_%hd7020970239%_ - _%mixin-slot7021570242%_) - (if (gx#stx-pair? _%hd7020970239%_) - (let ((_%e7021270245%_ - (gx#syntax-e _%hd7020970239%_))) - (let ((_%lp-hd7021370249%_ + (##values-ref _g84312_ 1)))) + (if (gx#stx-null? _%tl7027370295%_) + (letrec ((_%loop7027470298%_ + (lambda (_%hd7027270302%_ + _%mixin-slot7027870305%_) + (if (gx#stx-pair? _%hd7027270302%_) + (let ((_%e7027570308%_ + (gx#syntax-e _%hd7027270302%_))) + (let ((_%lp-hd7027670312%_ (let () (declare (not safe)) - (##car _%e7021270245%_))) - (_%lp-tl7021470252%_ + (##car _%e7027570308%_))) + (_%lp-tl7027770315%_ (let () (declare (not safe)) - (##cdr _%e7021270245%_)))) - (_%loop7021170235%_ - _%lp-tl7021470252%_ - (cons _%lp-hd7021370249%_ - _%mixin-slot7021570242%_)))) - (let ((_%mixin-slot7021670255%_ - (reverse _%mixin-slot7021570242%_))) - ((lambda (_%L70259%_) - (let* ((_%g7027670293%_ - (lambda (_%g7027770289%_) + (##cdr _%e7027570308%_)))) + (_%loop7027470298%_ + _%lp-tl7027770315%_ + (cons _%lp-hd7027670312%_ + _%mixin-slot7027870305%_)))) + (let ((_%mixin-slot7027970318%_ + (reverse _%mixin-slot7027870305%_))) + ((lambda (_%L70322%_) + (let* ((_%g7033970356%_ + (lambda (_%g7034070352%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7027770289%_))) - (_%g7027573772%_ - (lambda (_%g7027770297%_) + _%g7034070352%_))) + (_%g7033873835%_ + (lambda (_%g7034070360%_) (if (gx#stx-pair/null? - _%g7027770297%_) - (let ((_g84251_ + _%g7034070360%_) + (let ((_g84314_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7027770297%_ '0))) + (gx#syntax-split-splice _%g7034070360%_ '0))) (begin - (let ((_g84252_ + (let ((_g84315_ (let () (declare (not safe)) - (if (##values? _g84251_) - (##vector-length _g84251_) + (if (##values? _g84314_) + (##values-length _g84314_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84252_ 2))) - (error "Context expects 2 values" _g84252_))) - (let ((_%target7027970300%_ + (##fx= _g84315_ 2))) + (error "Context expects 2 values" _g84315_))) + (let ((_%target7034270363%_ (let () (declare (not safe)) - (##vector-ref _g84251_ 0))) - (_%tl7028170303%_ + (##values-ref _g84314_ 0))) + (_%tl7034470366%_ (let () (declare (not safe)) - (##vector-ref _g84251_ 1)))) - (if (gx#stx-null? _%tl7028170303%_) - (letrec ((_%loop7028270306%_ - (lambda (_%hd7028070310%_ - _%mixin-getf7028670313%_) - (if (gx#stx-pair? _%hd7028070310%_) - (let ((_%e7028370316%_ + (##values-ref _g84314_ 1)))) + (if (gx#stx-null? _%tl7034470366%_) + (letrec ((_%loop7034570369%_ + (lambda (_%hd7034370373%_ + _%mixin-getf7034970376%_) + (if (gx#stx-pair? _%hd7034370373%_) + (let ((_%e7034670379%_ (gx#syntax-e - _%hd7028070310%_))) - (let ((_%lp-hd7028470320%_ + _%hd7034370373%_))) + (let ((_%lp-hd7034770383%_ (let () (declare (not safe)) - (##car _%e7028370316%_))) - (_%lp-tl7028570323%_ + (##car _%e7034670379%_))) + (_%lp-tl7034870386%_ (let () (declare (not safe)) - (##cdr _%e7028370316%_)))) - (_%loop7028270306%_ - _%lp-tl7028570323%_ - (cons _%lp-hd7028470320%_ - _%mixin-getf7028670313%_)))) - (let ((_%mixin-getf7028770326%_ - (reverse _%mixin-getf7028670313%_))) - ((lambda (_%L70330%_) - (let* ((_%g7034770364%_ - (lambda (_%g7034870360%_) + (##cdr _%e7034670379%_)))) + (_%loop7034570369%_ + _%lp-tl7034870386%_ + (cons _%lp-hd7034770383%_ + _%mixin-getf7034970376%_)))) + (let ((_%mixin-getf7035070389%_ + (reverse _%mixin-getf7034970376%_))) + ((lambda (_%L70393%_) + (let* ((_%g7041070427%_ + (lambda (_%g7041170423%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7034870360%_))) - (_%g7034673763%_ - (lambda (_%g7034870368%_) + _%g7041170423%_))) + (_%g7040973826%_ + (lambda (_%g7041170431%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7034870368%_) - (let ((_g84253_ - (gx#syntax-split-splice _%g7034870368%_ '0))) + _%g7041170431%_) + (let ((_g84316_ + (gx#syntax-split-splice _%g7041170431%_ '0))) (begin - (let ((_g84254_ + (let ((_g84317_ (let () (declare (not safe)) - (if (##values? _g84253_) - (##vector-length _g84253_) + (if (##values? _g84316_) + (##values-length _g84316_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84254_ 2))) - (error "Context expects 2 values" _g84254_))) - (let ((_%target7035070371%_ + (##fx= _g84317_ 2))) + (error "Context expects 2 values" _g84317_))) + (let ((_%target7041370434%_ (let () (declare (not safe)) - (##vector-ref _g84253_ 0))) - (_%tl7035270374%_ + (##values-ref _g84316_ 0))) + (_%tl7041570437%_ (let () (declare (not safe)) - (##vector-ref _g84253_ 1)))) - (if (gx#stx-null? _%tl7035270374%_) - (letrec ((_%loop7035370377%_ - (lambda (_%hd7035170381%_ - _%mixin-setf7035770384%_) + (##values-ref _g84316_ 1)))) + (if (gx#stx-null? _%tl7041570437%_) + (letrec ((_%loop7041670440%_ + (lambda (_%hd7041470444%_ + _%mixin-setf7042070447%_) (if (gx#stx-pair? - _%hd7035170381%_) - (let ((_%e7035470387%_ + _%hd7041470444%_) + (let ((_%e7041770450%_ (gx#syntax-e - _%hd7035170381%_))) - (let ((_%lp-hd7035570391%_ + _%hd7041470444%_))) + (let ((_%lp-hd7041870454%_ (let () (declare (not safe)) - (##car _%e7035470387%_))) - (_%lp-tl7035670394%_ + (##car _%e7041770450%_))) + (_%lp-tl7041970457%_ (let () (declare (not safe)) - (##cdr _%e7035470387%_)))) - (_%loop7035370377%_ - _%lp-tl7035670394%_ - (cons _%lp-hd7035570391%_ - _%mixin-setf7035770384%_)))) - (let ((_%mixin-setf7035870397%_ - (reverse _%mixin-setf7035770384%_))) - ((lambda (_%L70401%_) - (let* ((_%g7041870435%_ - (lambda (_%g7041970431%_) + (##cdr _%e7041770450%_)))) + (_%loop7041670440%_ + _%lp-tl7041970457%_ + (cons _%lp-hd7041870454%_ + _%mixin-setf7042070447%_)))) + (let ((_%mixin-setf7042170460%_ + (reverse _%mixin-setf7042070447%_))) + ((lambda (_%L70464%_) + (let* ((_%g7048170498%_ + (lambda (_%g7048270494%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7041970431%_))) - (_%g7041773754%_ - (lambda (_%g7041970439%_) - (if (gx#stx-pair/null? _%g7041970439%_) - (let ((_g84255_ + _%g7048270494%_))) + (_%g7048073817%_ + (lambda (_%g7048270502%_) + (if (gx#stx-pair/null? _%g7048270502%_) + (let ((_g84318_ (gx#syntax-split-splice - _%g7041970439%_ + _%g7048270502%_ '0))) (begin - (let ((_g84256_ + (let ((_g84319_ (let () (declare (not safe)) - (if (##values? _g84255_) - (##vector-length _g84255_) + (if (##values? _g84318_) + (##values-length _g84318_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84256_ 2))) + (##fx= _g84319_ 2))) (error "Context expects 2 values" - _g84256_))) - (let ((_%target7042170442%_ + _g84319_))) + (let ((_%target7048470505%_ (let () (declare (not safe)) - (##vector-ref _g84255_ 0))) - (_%tl7042370445%_ + (##values-ref _g84318_ 0))) + (_%tl7048670508%_ (let () (declare (not safe)) - (##vector-ref _g84255_ 1)))) - (if (gx#stx-null? _%tl7042370445%_) - (letrec ((_%loop7042470448%_ - (lambda (_%hd7042270452%_ - _%mixin-rawsetf7042870455%_) + (##values-ref _g84318_ 1)))) + (if (gx#stx-null? _%tl7048670508%_) + (letrec ((_%loop7048770511%_ + (lambda (_%hd7048570515%_ + _%mixin-rawsetf7049170518%_) (if (gx#stx-pair? - _%hd7042270452%_) - (let ((_%e7042570458%_ + _%hd7048570515%_) + (let ((_%e7048870521%_ (gx#syntax-e - _%hd7042270452%_))) - (let ((_%lp-hd7042670462%_ + _%hd7048570515%_))) + (let ((_%lp-hd7048970525%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e7042570458%_))) - (_%lp-tl7042770465%_ - (let () (declare (not safe)) (##cdr _%e7042570458%_)))) - (_%loop7042470448%_ - _%lp-tl7042770465%_ - (cons _%lp-hd7042670462%_ _%mixin-rawsetf7042870455%_)))) - (let ((_%mixin-rawsetf7042970468%_ - (reverse _%mixin-rawsetf7042870455%_))) - ((lambda (_%L70472%_) - (let* ((_%g7048970506%_ - (lambda (_%g7049070502%_) + (##car _%e7048870521%_))) + (_%lp-tl7049070528%_ + (let () (declare (not safe)) (##cdr _%e7048870521%_)))) + (_%loop7048770511%_ + _%lp-tl7049070528%_ + (cons _%lp-hd7048970525%_ _%mixin-rawsetf7049170518%_)))) + (let ((_%mixin-rawsetf7049270531%_ + (reverse _%mixin-rawsetf7049170518%_))) + ((lambda (_%L70535%_) + (let* ((_%g7055270569%_ + (lambda (_%g7055370565%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7049070502%_))) - (_%g7048873737%_ - (lambda (_%g7049070510%_) - (if (gx#stx-pair/null? _%g7049070510%_) - (let ((_g84257_ + _%g7055370565%_))) + (_%g7055173800%_ + (lambda (_%g7055370573%_) + (if (gx#stx-pair/null? _%g7055370573%_) + (let ((_g84320_ (gx#syntax-split-splice - _%g7049070510%_ + _%g7055370573%_ '0))) (begin - (let ((_g84258_ + (let ((_g84321_ (let () (declare (not safe)) - (if (##values? _g84257_) - (##vector-length _g84257_) + (if (##values? _g84320_) + (##values-length _g84320_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84258_ 2))) + (##fx= _g84321_ 2))) (error "Context expects 2 values" - _g84258_))) - (let ((_%target7049270513%_ + _g84321_))) + (let ((_%target7055570576%_ (let () (declare (not safe)) - (##vector-ref _g84257_ 0))) - (_%tl7049470516%_ + (##values-ref _g84320_ 0))) + (_%tl7055770579%_ (let () (declare (not safe)) - (##vector-ref _g84257_ 1)))) - (if (gx#stx-null? _%tl7049470516%_) - (letrec ((_%loop7049570519%_ - (lambda (_%hd7049370523%_ - _%ugetf7049970526%_) + (##values-ref _g84320_ 1)))) + (if (gx#stx-null? _%tl7055770579%_) + (letrec ((_%loop7055870582%_ + (lambda (_%hd7055670586%_ + _%ugetf7056270589%_) (if (gx#stx-pair? - _%hd7049370523%_) - (let ((_%e7049670529%_ + _%hd7055670586%_) + (let ((_%e7055970592%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7049370523%_))) - (let ((_%lp-hd7049770533%_ + (gx#syntax-e _%hd7055670586%_))) + (let ((_%lp-hd7056070596%_ (let () (declare (not safe)) - (##car _%e7049670529%_))) - (_%lp-tl7049870536%_ + (##car _%e7055970592%_))) + (_%lp-tl7056170599%_ (let () (declare (not safe)) - (##cdr _%e7049670529%_)))) - (_%loop7049570519%_ - _%lp-tl7049870536%_ - (cons _%lp-hd7049770533%_ _%ugetf7049970526%_)))) - (let ((_%ugetf7050070539%_ (reverse _%ugetf7049970526%_))) - ((lambda (_%L70543%_) - (let* ((_%g7056070577%_ - (lambda (_%g7056170573%_) + (##cdr _%e7055970592%_)))) + (_%loop7055870582%_ + _%lp-tl7056170599%_ + (cons _%lp-hd7056070596%_ _%ugetf7056270589%_)))) + (let ((_%ugetf7056370602%_ (reverse _%ugetf7056270589%_))) + ((lambda (_%L70606%_) + (let* ((_%g7062370640%_ + (lambda (_%g7062470636%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7056170573%_))) - (_%g7055973720%_ - (lambda (_%g7056170581%_) - (if (gx#stx-pair/null? _%g7056170581%_) - (let ((_g84259_ + _%g7062470636%_))) + (_%g7062273783%_ + (lambda (_%g7062470644%_) + (if (gx#stx-pair/null? _%g7062470644%_) + (let ((_g84322_ (gx#syntax-split-splice - _%g7056170581%_ + _%g7062470644%_ '0))) (begin - (let ((_g84260_ + (let ((_g84323_ (let () (declare (not safe)) - (if (##values? _g84259_) - (##vector-length - _g84259_) + (if (##values? _g84322_) + (##values-length + _g84322_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84260_ 2))) + (##fx= _g84323_ 2))) (error "Context expects 2 values" - _g84260_))) - (let ((_%target7056370584%_ + _g84323_))) + (let ((_%target7062670647%_ (let () (declare (not safe)) - (##vector-ref _g84259_ 0))) - (_%tl7056570587%_ + (##values-ref _g84322_ 0))) + (_%tl7062870650%_ (let () (declare (not safe)) - (##vector-ref - _g84259_ + (##values-ref + _g84322_ 1)))) (if (gx#stx-null? - _%tl7056570587%_) - (letrec ((_%loop7056670590%_ - (lambda (_%hd7056470594%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf7057070597%_) - (if (gx#stx-pair? _%hd7056470594%_) - (let ((_%e7056770600%_ - (gx#syntax-e _%hd7056470594%_))) - (let ((_%lp-hd7056870604%_ + _%tl7062870650%_) + (letrec ((_%loop7062970653%_ + (lambda (_%hd7062770657%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf7063370660%_) + (if (gx#stx-pair? _%hd7062770657%_) + (let ((_%e7063070663%_ + (gx#syntax-e _%hd7062770657%_))) + (let ((_%lp-hd7063170667%_ (let () (declare (not safe)) - (##car _%e7056770600%_))) - (_%lp-tl7056970607%_ + (##car _%e7063070663%_))) + (_%lp-tl7063270670%_ (let () (declare (not safe)) - (##cdr _%e7056770600%_)))) - (_%loop7056670590%_ - _%lp-tl7056970607%_ - (cons _%lp-hd7056870604%_ _%usetf7057070597%_)))) - (let ((_%usetf7057170610%_ - (reverse _%usetf7057070597%_))) - ((lambda (_%L70614%_) - (let* ((_%g7063170648%_ - (lambda (_%g7063270644%_) + (##cdr _%e7063070663%_)))) + (_%loop7062970653%_ + _%lp-tl7063270670%_ + (cons _%lp-hd7063170667%_ _%usetf7063370660%_)))) + (let ((_%usetf7063470673%_ + (reverse _%usetf7063370660%_))) + ((lambda (_%L70677%_) + (let* ((_%g7069470711%_ + (lambda (_%g7069570707%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7063270644%_))) - (_%g7063073703%_ - (lambda (_%g7063270652%_) - (if (gx#stx-pair/null? _%g7063270652%_) - (let ((_g84261_ + _%g7069570707%_))) + (_%g7069373766%_ + (lambda (_%g7069570715%_) + (if (gx#stx-pair/null? _%g7069570715%_) + (let ((_g84324_ (gx#syntax-split-splice - _%g7063270652%_ + _%g7069570715%_ '0))) (begin - (let ((_g84262_ + (let ((_g84325_ (let () (declare (not safe)) (if (##values? - _g84261_) - (##vector-length - _g84261_) + _g84324_) + (##values-length + _g84324_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84262_ + (##fx= _g84325_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g84262_))) + (error "Context expects 2 values" _g84325_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7063470655%_ + (let ((_%target7069770718%_ (let () (declare (not safe)) - (##vector-ref - _g84261_ + (##values-ref + _g84324_ 0))) - (_%tl7063670658%_ + (_%tl7069970721%_ (let () (declare (not safe)) - (##vector-ref - _g84261_ + (##values-ref + _g84324_ 1)))) (if (gx#stx-null? - _%tl7063670658%_) - (letrec ((_%loop7063770661%_ - (lambda (_%hd7063570665%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mixin-ugetf7064170668%_) - (if (gx#stx-pair? _%hd7063570665%_) - (let ((_%e7063870671%_ - (gx#syntax-e _%hd7063570665%_))) - (let ((_%lp-hd7063970675%_ + _%tl7069970721%_) + (letrec ((_%loop7070070724%_ + (lambda (_%hd7069870728%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%mixin-ugetf7070470731%_) + (if (gx#stx-pair? _%hd7069870728%_) + (let ((_%e7070170734%_ + (gx#syntax-e _%hd7069870728%_))) + (let ((_%lp-hd7070270738%_ (let () (declare (not safe)) - (##car _%e7063870671%_))) - (_%lp-tl7064070678%_ + (##car _%e7070170734%_))) + (_%lp-tl7070370741%_ (let () (declare (not safe)) - (##cdr _%e7063870671%_)))) - (_%loop7063770661%_ - _%lp-tl7064070678%_ - (cons _%lp-hd7063970675%_ - _%mixin-ugetf7064170668%_)))) - (let ((_%mixin-ugetf7064270681%_ - (reverse _%mixin-ugetf7064170668%_))) - ((lambda (_%L70685%_) - (let* ((_%g7070270719%_ - (lambda (_%g7070370715%_) + (##cdr _%e7070170734%_)))) + (_%loop7070070724%_ + _%lp-tl7070370741%_ + (cons _%lp-hd7070270738%_ + _%mixin-ugetf7070470731%_)))) + (let ((_%mixin-ugetf7070570744%_ + (reverse _%mixin-ugetf7070470731%_))) + ((lambda (_%L70748%_) + (let* ((_%g7076570782%_ + (lambda (_%g7076670778%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7070370715%_))) - (_%g7070173686%_ - (lambda (_%g7070370723%_) + _%g7076670778%_))) + (_%g7076473749%_ + (lambda (_%g7076670786%_) (if (gx#stx-pair/null? - _%g7070370723%_) - (let ((_g84263_ + _%g7076670786%_) + (let ((_g84326_ (gx#syntax-split-splice - _%g7070370723%_ + _%g7076670786%_ '0))) (begin - (let ((_g84264_ + (let ((_g84327_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84263_) - (##vector-length _g84263_) + _g84326_) + (##values-length _g84326_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84264_ 2))) - (error "Context expects 2 values" _g84264_))) + (if (not (let () (declare (not safe)) (##fx= _g84327_ 2))) + (error "Context expects 2 values" _g84327_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7070570726%_ + (let ((_%target7076870789%_ (let () (declare (not safe)) - (##vector-ref - _g84263_ + (##values-ref + _g84326_ 0))) - (_%tl7070770729%_ + (_%tl7077070792%_ (let () (declare (not safe)) - (##vector-ref - _g84263_ + (##values-ref + _g84326_ 1)))) (if (gx#stx-null? - _%tl7070770729%_) - (letrec ((_%loop7070870732%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7070670736%_ - _%mixin-usetf7071270739%_) - (if (gx#stx-pair? _%hd7070670736%_) - (let ((_%e7070970742%_ - (gx#syntax-e _%hd7070670736%_))) - (let ((_%lp-hd7071070746%_ + _%tl7077070792%_) + (letrec ((_%loop7077170795%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7076970799%_ + _%mixin-usetf7077570802%_) + (if (gx#stx-pair? _%hd7076970799%_) + (let ((_%e7077270805%_ + (gx#syntax-e _%hd7076970799%_))) + (let ((_%lp-hd7077370809%_ (let () (declare (not safe)) - (##car _%e7070970742%_))) - (_%lp-tl7071170749%_ + (##car _%e7077270805%_))) + (_%lp-tl7077470812%_ (let () (declare (not safe)) - (##cdr _%e7070970742%_)))) - (_%loop7070870732%_ - _%lp-tl7071170749%_ - (cons _%lp-hd7071070746%_ - _%mixin-usetf7071270739%_)))) - (let ((_%mixin-usetf7071370752%_ - (reverse _%mixin-usetf7071270739%_))) - ((lambda (_%L70756%_) - (let* ((_%type-slots70918%_ + (##cdr _%e7077270805%_)))) + (_%loop7077170795%_ + _%lp-tl7077470812%_ + (cons _%lp-hd7077370809%_ + _%mixin-usetf7077570802%_)))) + (let ((_%mixin-usetf7077670815%_ + (reverse _%mixin-usetf7077570802%_))) + ((lambda (_%L70819%_) + (let* ((_%type-slots70981%_ (if (gx#stx-null? - _%slots69682%_) + _%slots69745%_) '() (cons 'slots: - (cons (map (lambda (_%slot70777%_ + (cons (map (lambda (_%slot70840%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70779%_ - _%setf70780%_ - _%rawsetf70781%_) - (let* ((_%g7078370806%_ - (lambda (_%g7078470802%_) + _%getf70842%_ + _%setf70843%_ + _%rawsetf70844%_) + (let* ((_%g7084670869%_ + (lambda (_%g7084770865%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7078470802%_))) - (_%g7078270882%_ - (lambda (_%g7078470810%_) - (if (gx#stx-pair? _%g7078470810%_) - (let ((_%e7078970813%_ + _%g7084770865%_))) + (_%g7084570945%_ + (lambda (_%g7084770873%_) + (if (gx#stx-pair? _%g7084770873%_) + (let ((_%e7085270876%_ (gx#syntax-e - _%g7078470810%_))) - (let ((_%hd7079070817%_ + _%g7084770873%_))) + (let ((_%hd7085370880%_ (let () (declare (not safe)) - (##car _%e7078970813%_))) - (_%tl7079170820%_ + (##car _%e7085270876%_))) + (_%tl7085470883%_ (let () (declare (not safe)) - (##cdr _%e7078970813%_)))) + (##cdr _%e7085270876%_)))) (if (gx#stx-pair? - _%tl7079170820%_) - (let ((_%e7079270823%_ + _%tl7085470883%_) + (let ((_%e7085570886%_ (gx#syntax-e - _%tl7079170820%_))) - (let ((_%hd7079370827%_ + _%tl7085470883%_))) + (let ((_%hd7085670890%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7079270823%_))) - (_%tl7079470830%_ - (let () (declare (not safe)) (##cdr _%e7079270823%_)))) - (if (gx#stx-pair? _%tl7079470830%_) - (let ((_%e7079570833%_ (gx#syntax-e _%tl7079470830%_))) - (let ((_%hd7079670837%_ + (##car _%e7085570886%_))) + (_%tl7085770893%_ + (let () (declare (not safe)) (##cdr _%e7085570886%_)))) + (if (gx#stx-pair? _%tl7085770893%_) + (let ((_%e7085870896%_ (gx#syntax-e _%tl7085770893%_))) + (let ((_%hd7085970900%_ (let () (declare (not safe)) - (##car _%e7079570833%_))) - (_%tl7079770840%_ + (##car _%e7085870896%_))) + (_%tl7086070903%_ (let () (declare (not safe)) - (##cdr _%e7079570833%_)))) - (if (gx#stx-pair? _%tl7079770840%_) - (let ((_%e7079870843%_ - (gx#syntax-e _%tl7079770840%_))) - (let ((_%hd7079970847%_ + (##cdr _%e7085870896%_)))) + (if (gx#stx-pair? _%tl7086070903%_) + (let ((_%e7086170906%_ + (gx#syntax-e _%tl7086070903%_))) + (let ((_%hd7086270910%_ (let () (declare (not safe)) - (##car _%e7079870843%_))) - (_%tl7080070850%_ + (##car _%e7086170906%_))) + (_%tl7086370913%_ (let () (declare (not safe)) - (##cdr _%e7079870843%_)))) - (if (gx#stx-null? _%tl7080070850%_) - ((lambda (_%L70853%_ - _%L70855%_ - _%L70856%_ - _%L70857%_) + (##cdr _%e7086170906%_)))) + (if (gx#stx-null? _%tl7086370913%_) + ((lambda (_%L70916%_ + _%L70918%_ + _%L70919%_ + _%L70920%_) (if (hash-get - _%slot-contract-table69671%_ - (gx#stx-e _%L70857%_)) - (cons _%L70857%_ - (cons _%L70856%_ - (cons _%L70853%_ '()))) - (cons _%L70857%_ - (cons _%L70856%_ - (cons _%L70855%_ + _%slot-contract-table69734%_ + (gx#stx-e _%L70920%_)) + (cons _%L70920%_ + (cons _%L70919%_ + (cons _%L70916%_ '()))) + (cons _%L70920%_ + (cons _%L70919%_ + (cons _%L70918%_ '()))))) - _%hd7079970847%_ - _%hd7079670837%_ - _%hd7079370827%_ - _%hd7079070817%_) - (_%g7078370806%_ _%g7078470810%_)))) - (_%g7078370806%_ _%g7078470810%_)))) - (_%g7078370806%_ _%g7078470810%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7078370806%_ - _%g7078470810%_)))) - (_%g7078370806%_ - _%g7078470810%_))))) - (_%g7078270882%_ - (list _%slot70777%_ - _%getf70779%_ - _%setf70780%_ - _%rawsetf70781%_)))) - (foldr (lambda (_%g7088570888%_ _%g7088670891%_) - (cons _%g7088570888%_ _%g7088670891%_)) + _%hd7086270910%_ + _%hd7085970900%_ + _%hd7085670890%_ + _%hd7085370880%_) + (_%g7084670869%_ _%g7084770873%_)))) + (_%g7084670869%_ _%g7084770873%_)))) + (_%g7084670869%_ _%g7084770873%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7084670869%_ + _%g7084770873%_)))) + (_%g7084670869%_ + _%g7084770873%_))))) + (_%g7084570945%_ + (list _%slot70840%_ + _%getf70842%_ + _%setf70843%_ + _%rawsetf70844%_)))) + (foldr (lambda (_%g7094870951%_ _%g7094970954%_) + (cons _%g7094870951%_ _%g7094970954%_)) '() - _%L69904%_) - (foldr (lambda (_%g7089370896%_ _%g7089470899%_) - (cons _%g7089370896%_ _%g7089470899%_)) + _%L69967%_) + (foldr (lambda (_%g7095670959%_ _%g7095770962%_) + (cons _%g7095670959%_ _%g7095770962%_)) '() - _%L70046%_) - (foldr (lambda (_%g7090170904%_ _%g7090270907%_) - (cons _%g7090170904%_ _%g7090270907%_)) + _%L70109%_) + (foldr (lambda (_%g7096470967%_ _%g7096570970%_) + (cons _%g7096470967%_ _%g7096570970%_)) '() - _%L70117%_) - (foldr (lambda (_%g7090970912%_ _%g7091070915%_) - (cons _%g7090970912%_ _%g7091070915%_)) + _%L70180%_) + (foldr (lambda (_%g7097270975%_ _%g7097370978%_) + (cons _%g7097270975%_ _%g7097370978%_)) '() - _%L70188%_)) + _%L70251%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots71065%_ + (_%type-mixin-slots71128%_ (if (gx#stx-null? - _%mixin-slots69688%_) + _%mixin-slots69751%_) '() (cons 'mixin: - (cons (map (lambda (_%slot70925%_ + (cons (map (lambda (_%slot70988%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%getf70927%_ - _%setf70928%_ - _%rawsetf70929%_) - (let* ((_%g7093170954%_ - (lambda (_%g7093270950%_) + _%getf70990%_ + _%setf70991%_ + _%rawsetf70992%_) + (let* ((_%g7099471017%_ + (lambda (_%g7099571013%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7093270950%_))) - (_%g7093071029%_ - (lambda (_%g7093270958%_) - (if (gx#stx-pair? _%g7093270958%_) - (let ((_%e7093770961%_ + _%g7099571013%_))) + (_%g7099371092%_ + (lambda (_%g7099571021%_) + (if (gx#stx-pair? _%g7099571021%_) + (let ((_%e7100071024%_ (gx#syntax-e - _%g7093270958%_))) - (let ((_%hd7093870965%_ + _%g7099571021%_))) + (let ((_%hd7100171028%_ (let () (declare (not safe)) - (##car _%e7093770961%_))) - (_%tl7093970968%_ + (##car _%e7100071024%_))) + (_%tl7100271031%_ (let () (declare (not safe)) - (##cdr _%e7093770961%_)))) + (##cdr _%e7100071024%_)))) (if (gx#stx-pair? - _%tl7093970968%_) - (let ((_%e7094070971%_ + _%tl7100271031%_) + (let ((_%e7100371034%_ (gx#syntax-e - _%tl7093970968%_))) - (let ((_%hd7094170975%_ + _%tl7100271031%_))) + (let ((_%hd7100471038%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7094070971%_))) - (_%tl7094270978%_ - (let () (declare (not safe)) (##cdr _%e7094070971%_)))) - (if (gx#stx-pair? _%tl7094270978%_) - (let ((_%e7094370981%_ (gx#syntax-e _%tl7094270978%_))) - (let ((_%hd7094470985%_ + (##car _%e7100371034%_))) + (_%tl7100571041%_ + (let () (declare (not safe)) (##cdr _%e7100371034%_)))) + (if (gx#stx-pair? _%tl7100571041%_) + (let ((_%e7100671044%_ (gx#syntax-e _%tl7100571041%_))) + (let ((_%hd7100771048%_ (let () (declare (not safe)) - (##car _%e7094370981%_))) - (_%tl7094570988%_ + (##car _%e7100671044%_))) + (_%tl7100871051%_ (let () (declare (not safe)) - (##cdr _%e7094370981%_)))) - (if (gx#stx-pair? _%tl7094570988%_) - (let ((_%e7094670991%_ - (gx#syntax-e _%tl7094570988%_))) - (let ((_%hd7094770995%_ + (##cdr _%e7100671044%_)))) + (if (gx#stx-pair? _%tl7100871051%_) + (let ((_%e7100971054%_ + (gx#syntax-e _%tl7100871051%_))) + (let ((_%hd7101071058%_ (let () (declare (not safe)) - (##car _%e7094670991%_))) - (_%tl7094870998%_ + (##car _%e7100971054%_))) + (_%tl7101171061%_ (let () (declare (not safe)) - (##cdr _%e7094670991%_)))) - (if (gx#stx-null? _%tl7094870998%_) - ((lambda (_%L71001%_ - _%L71003%_ - _%L71004%_ - _%L71005%_) + (##cdr _%e7100971054%_)))) + (if (gx#stx-null? _%tl7101171061%_) + ((lambda (_%L71064%_ + _%L71066%_ + _%L71067%_ + _%L71068%_) (if (hash-get - _%slot-contract-table69671%_ - (gx#stx-e _%L71005%_)) - (cons _%L71005%_ - (cons _%L71004%_ - (cons _%L71001%_ '()))) - (cons _%L71005%_ - (cons _%L71004%_ - (cons _%L71003%_ + _%slot-contract-table69734%_ + (gx#stx-e _%L71068%_)) + (cons _%L71068%_ + (cons _%L71067%_ + (cons _%L71064%_ '()))) + (cons _%L71068%_ + (cons _%L71067%_ + (cons _%L71066%_ '()))))) - _%hd7094770995%_ - _%hd7094470985%_ - _%hd7094170975%_ - _%hd7093870965%_) - (_%g7093170954%_ _%g7093270958%_)))) - (_%g7093170954%_ _%g7093270958%_)))) - (_%g7093170954%_ _%g7093270958%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7093170954%_ - _%g7093270958%_)))) - (_%g7093170954%_ - _%g7093270958%_))))) - (_%g7093071029%_ - (list _%slot70925%_ - _%getf70927%_ - _%setf70928%_ - _%rawsetf70929%_)))) - (foldr (lambda (_%g7103271035%_ _%g7103371038%_) - (cons _%g7103271035%_ _%g7103371038%_)) + _%hd7101071058%_ + _%hd7100771048%_ + _%hd7100471038%_ + _%hd7100171028%_) + (_%g7099471017%_ _%g7099571021%_)))) + (_%g7099471017%_ _%g7099571021%_)))) + (_%g7099471017%_ _%g7099571021%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7099471017%_ + _%g7099571021%_)))) + (_%g7099471017%_ + _%g7099571021%_))))) + (_%g7099371092%_ + (list _%slot70988%_ + _%getf70990%_ + _%setf70991%_ + _%rawsetf70992%_)))) + (foldr (lambda (_%g7109571098%_ _%g7109671101%_) + (cons _%g7109571098%_ _%g7109671101%_)) '() - _%L70259%_) - (foldr (lambda (_%g7104071043%_ _%g7104171046%_) - (cons _%g7104071043%_ _%g7104171046%_)) + _%L70322%_) + (foldr (lambda (_%g7110371106%_ _%g7110471109%_) + (cons _%g7110371106%_ _%g7110471109%_)) '() - _%L70330%_) - (foldr (lambda (_%g7104871051%_ _%g7104971054%_) - (cons _%g7104871051%_ _%g7104971054%_)) + _%L70393%_) + (foldr (lambda (_%g7111171114%_ _%g7111271117%_) + (cons _%g7111171114%_ _%g7111271117%_)) '() - _%L70401%_) - (foldr (lambda (_%g7105671059%_ _%g7105771062%_) - (cons _%g7105671059%_ _%g7105771062%_)) + _%L70464%_) + (foldr (lambda (_%g7111971122%_ _%g7112071125%_) + (cons _%g7111971122%_ _%g7112071125%_)) '() - _%L70472%_)) + _%L70535%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name71072%_ + (_%type-name71135%_ (cons 'name: - (cons (let ((_%$e71068%_ + (cons (let ((_%$e71131%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body69662%_))) - (if _%$e71068%_ _%$e71068%_ _%id69658%_)) + (gx#stx-getq 'name: _%body69725%_))) + (if _%$e71131%_ _%$e71131%_ _%id69721%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id71079%_ + (_%type-id71142%_ (cons 'id: - (cons (let ((_%$e71075%_ + (cons (let ((_%$e71138%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body69662%_))) - (if _%$e71075%_ - _%$e71075%_ + (gx#stx-getq 'id: _%body69725%_))) + (if _%$e71138%_ + _%$e71138%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L69715%_)))) + _%L69778%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor71094%_ - (let ((_%$e71090%_ - (let ((_%e7108171083%_ + (_%type-constructor71157%_ + (let ((_%$e71153%_ + (let ((_%e7114471146%_ (gx#stx-getq 'constructor: - _%body69662%_))) - (if _%e7108171083%_ - (let ((_%e71087%_ + _%body69725%_))) + (if _%e7114471146%_ + (let ((_%e71150%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e7108171083%_)) - (cons 'constructor: (cons _%e71087%_ '()))) + _%e7114471146%_)) + (cons 'constructor: (cons _%e71150%_ '()))) '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e71090%_ - _%$e71090%_ + (if _%$e71153%_ + _%$e71153%_ '()))) - (_%properties71148%_ - (let* ((_%properties71097%_ + (_%properties71211%_ + (let* ((_%properties71160%_ (if (gx#stx-e (gx#stx-getq 'transparent: - _%body69662%_)) + _%body69725%_)) (cons (cons 'transparent: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#t) '()) '())) - (_%properties71120%_ - (let ((_%$e71100%_ - (gx#stx-e (gx#stx-getq 'print: _%body69662%_)))) - (if _%$e71100%_ - ((lambda (_%print71104%_) - (let ((_%print71115%_ - (if (eq? _%print71104%_ '#t) - (foldr (lambda (_%g7110671109%_ - _%g7110771112%_) - (cons _%g7110671109%_ - _%g7110771112%_)) + (_%properties71183%_ + (let ((_%$e71163%_ + (gx#stx-e (gx#stx-getq 'print: _%body69725%_)))) + (if _%$e71163%_ + ((lambda (_%print71167%_) + (let ((_%print71178%_ + (if (eq? _%print71167%_ '#t) + (foldr (lambda (_%g7116971172%_ + _%g7117071175%_) + (cons _%g7116971172%_ + _%g7117071175%_)) '() - _%L69904%_) - _%print71104%_))) - (cons (cons 'print: _%print71115%_) - _%properties71097%_))) - _%$e71100%_) - _%properties71097%_))) - (_%properties71143%_ - (let ((_%$e71123%_ - (gx#stx-e (gx#stx-getq 'equal: _%body69662%_)))) - (if _%$e71123%_ - ((lambda (_%equal71127%_) - (let ((_%equal71138%_ - (if (eq? _%equal71127%_ '#t) - (foldr (lambda (_%g7112971132%_ - _%g7113071135%_) - (cons _%g7112971132%_ - _%g7113071135%_)) + _%L69967%_) + _%print71167%_))) + (cons (cons 'print: _%print71178%_) + _%properties71160%_))) + _%$e71163%_) + _%properties71160%_))) + (_%properties71206%_ + (let ((_%$e71186%_ + (gx#stx-e (gx#stx-getq 'equal: _%body69725%_)))) + (if _%$e71186%_ + ((lambda (_%equal71190%_) + (let ((_%equal71201%_ + (if (eq? _%equal71190%_ '#t) + (foldr (lambda (_%g7119271195%_ + _%g7119371198%_) + (cons _%g7119271195%_ + _%g7119371198%_)) '() - _%L69904%_) - _%equal71127%_))) - (cons (cons 'equal: _%equal71138%_) - _%properties71120%_))) - _%$e71123%_) - _%properties71120%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%properties71143%_)) - (_%type-properties71186%_ - (if (null? _%properties71148%_) + _%L69967%_) + _%equal71190%_))) + (cons (cons 'equal: _%equal71201%_) + _%properties71183%_))) + _%$e71186%_) + _%properties71183%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%properties71206%_)) + (_%type-properties71249%_ + (if (null? _%properties71211%_) '() - (let* ((_%g7115171159%_ - (lambda (_%g7115271155%_) + (let* ((_%g7121471222%_ + (lambda (_%g7121571218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7115271155%_))) - (_%g7115071182%_ - (lambda (_%g7115271163%_) - ((lambda (_%L71166%_) + _%g7121571218%_))) + (_%g7121371245%_ + (lambda (_%g7121571226%_) + ((lambda (_%L71229%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L71166%_ '())) + (cons _%L71229%_ '())) '()))) - _%g7115271163%_)))) - (_%g7115071182%_ _%properties71148%_)))) + _%g7121571226%_)))) + (_%g7121371245%_ _%properties71211%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass71198%_ - (let ((_%$e71189%_ + (_%metaclass71261%_ + (let ((_%$e71252%_ (gx#stx-getq 'metaclass: - _%body69662%_))) - (if _%$e71189%_ - ((lambda (_%metaclass71193%_) + _%body69725%_))) + (if _%$e71252%_ + ((lambda (_%metaclass71256%_) (if (gx#identifier? - _%metaclass71193%_) - _%metaclass71193%_ + _%metaclass71256%_) + _%metaclass71256%_ '#f)) - _%$e71189%_) + _%$e71252%_) '#f))) - (_%final?71201%_ + (_%final?71264%_ (gx#stx-e (gx#stx-getq 'final: - _%body69662%_))) - (_%type-struct71204%_ + _%body69725%_))) + (_%type-struct71267%_ (cons 'struct: - (cons _%struct?69697%_ + (cons _%struct?69760%_ '()))) - (_%type-final71207%_ + (_%type-final71270%_ (cons 'final: - (cons _%final?71201%_ + (cons _%final?71264%_ '()))) - (_%type-metaclass71210%_ - (if _%metaclass71198%_ + (_%type-metaclass71273%_ + (if _%metaclass71261%_ (cons 'metaclass: - (cons _%metaclass71198%_ + (cons _%metaclass71261%_ '())) '())) - (_%g7121371230%_ - (lambda (_%g7121471226%_) + (_%g7127671293%_ + (lambda (_%g7127771289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7121471226%_))) - (_%g7121273682%_ - (lambda (_%g7121471234%_) + _%g7127771289%_))) + (_%g7127573745%_ + (lambda (_%g7127771297%_) (if (gx#stx-pair/null? - _%g7121471234%_) - (let ((_g84265_ + _%g7127771297%_) + (let ((_g84328_ (gx#syntax-split-splice - _%g7121471234%_ + _%g7127771297%_ '0))) (begin - (let ((_g84266_ + (let ((_g84329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g84265_) - (##vector-length _g84265_) + (if (##values? _g84328_) + (##values-length _g84328_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84266_ 2))) - (error "Context expects 2 values" _g84266_))) - (let ((_%target7121671237%_ + (if (not (let () (declare (not safe)) (##fx= _g84329_ 2))) + (error "Context expects 2 values" _g84329_))) + (let ((_%target7127971300%_ (let () (declare (not safe)) - (##vector-ref _g84265_ 0))) - (_%tl7121871240%_ + (##values-ref _g84328_ 0))) + (_%tl7128171303%_ (let () (declare (not safe)) - (##vector-ref _g84265_ 1)))) - (if (gx#stx-null? _%tl7121871240%_) - (letrec ((_%loop7121971243%_ - (lambda (_%hd7121771247%_ - _%type-body7122371250%_) - (if (gx#stx-pair? _%hd7121771247%_) - (let ((_%e7122071253%_ - (gx#syntax-e _%hd7121771247%_))) - (let ((_%lp-hd7122171257%_ + (##values-ref _g84328_ 1)))) + (if (gx#stx-null? _%tl7128171303%_) + (letrec ((_%loop7128271306%_ + (lambda (_%hd7128071310%_ + _%type-body7128671313%_) + (if (gx#stx-pair? _%hd7128071310%_) + (let ((_%e7128371316%_ + (gx#syntax-e _%hd7128071310%_))) + (let ((_%lp-hd7128471320%_ (let () (declare (not safe)) - (##car _%e7122071253%_))) - (_%lp-tl7122271260%_ + (##car _%e7128371316%_))) + (_%lp-tl7128571323%_ (let () (declare (not safe)) - (##cdr _%e7122071253%_)))) - (_%loop7121971243%_ - _%lp-tl7122271260%_ - (cons _%lp-hd7122171257%_ - _%type-body7122371250%_)))) - (let ((_%type-body7122471263%_ - (reverse _%type-body7122371250%_))) - ((lambda (_%L71267%_) - (let* ((_%g7128871296%_ - (lambda (_%g7128971292%_) + (##cdr _%e7128371316%_)))) + (_%loop7128271306%_ + _%lp-tl7128571323%_ + (cons _%lp-hd7128471320%_ + _%type-body7128671313%_)))) + (let ((_%type-body7128771326%_ + (reverse _%type-body7128671313%_))) + ((lambda (_%L71330%_) + (let* ((_%g7135171359%_ + (lambda (_%g7135271355%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7128971292%_))) - (_%g7128773670%_ - (lambda (_%g7128971300%_) - ((lambda (_%L71303%_) - (let* ((_%g7131671324%_ + _%g7135271355%_))) + (_%g7135073733%_ + (lambda (_%g7135271363%_) + ((lambda (_%L71366%_) + (let* ((_%g7137971387%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7131771320%_) + (lambda (_%g7138071383%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7131771320%_))) - (_%g7131573658%_ - (lambda (_%g7131771328%_) - ((lambda (_%L71331%_) - (let* ((_%g7134471352%_ - (lambda (_%g7134571348%_) + _%g7138071383%_))) + (_%g7137873721%_ + (lambda (_%g7138071391%_) + ((lambda (_%L71394%_) + (let* ((_%g7140771415%_ + (lambda (_%g7140871411%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7134571348%_))) - (_%g7134373587%_ - (lambda (_%g7134571356%_) - ((lambda (_%L71359%_) - (let* ((_%g7137271380%_ - (lambda (_%g7137371376%_) + _%g7140871411%_))) + (_%g7140673650%_ + (lambda (_%g7140871419%_) + ((lambda (_%L71422%_) + (let* ((_%g7143571443%_ + (lambda (_%g7143671439%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7137371376%_))) - (_%g7137173552%_ - (lambda (_%g7137371384%_) - ((lambda (_%L71387%_) - (let* ((_%g7140071408%_ + _%g7143671439%_))) + (_%g7143473615%_ + (lambda (_%g7143671447%_) + ((lambda (_%L71450%_) + (let* ((_%g7146371471%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7140171404%_) + (lambda (_%g7146471467%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7140171404%_))) - (_%g7139973466%_ - (lambda (_%g7140171412%_) - ((lambda (_%L71415%_) - (let* ((_%g7142871436%_ - (lambda (_%g7142971432%_) + _%g7146471467%_))) + (_%g7146273529%_ + (lambda (_%g7146471475%_) + ((lambda (_%L71478%_) + (let* ((_%g7149171499%_ + (lambda (_%g7149271495%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7142971432%_))) - (_%g7142773454%_ - (lambda (_%g7142971440%_) - ((lambda (_%L71443%_) - (let* ((_%g7145671464%_ - (lambda (_%g7145771460%_) + _%g7149271495%_))) + (_%g7149073517%_ + (lambda (_%g7149271503%_) + ((lambda (_%L71506%_) + (let* ((_%g7151971527%_ + (lambda (_%g7152071523%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7145771460%_))) - (_%g7145573442%_ - (lambda (_%g7145771468%_) - ((lambda (_%L71471%_) - (let* ((_%g7148471492%_ - (lambda (_%g7148571488%_) + _%g7152071523%_))) + (_%g7151873505%_ + (lambda (_%g7152071531%_) + ((lambda (_%L71534%_) + (let* ((_%g7154771555%_ + (lambda (_%g7154871551%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7148571488%_))) - (_%g7148373328%_ - (lambda (_%g7148571496%_) - ((lambda (_%L71499%_) - (let* ((_%g7151271520%_ - (lambda (_%g7151371516%_) + _%g7154871551%_))) + (_%g7154673391%_ + (lambda (_%g7154871559%_) + ((lambda (_%L71562%_) + (let* ((_%g7157571583%_ + (lambda (_%g7157671579%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7151371516%_))) - (_%g7151173217%_ - (lambda (_%g7151371524%_) - ((lambda (_%L71527%_) - (let* ((_%g7154071548%_ - (lambda (_%g7154171544%_) + _%g7157671579%_))) + (_%g7157473280%_ + (lambda (_%g7157671587%_) + ((lambda (_%L71590%_) + (let* ((_%g7160371611%_ + (lambda (_%g7160471607%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7154171544%_))) - (_%g7153973106%_ - (lambda (_%g7154171552%_) - ((lambda (_%L71555%_) - (let* ((_%g7156871576%_ - (lambda (_%g7156971572%_) + _%g7160471607%_))) + (_%g7160273169%_ + (lambda (_%g7160471615%_) + ((lambda (_%L71618%_) + (let* ((_%g7163171639%_ + (lambda (_%g7163271635%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7156971572%_))) - (_%g7156773102%_ - (lambda (_%g7156971580%_) - ((lambda (_%L71583%_) - (let* ((_%g7159671604%_ - (lambda (_%g7159771600%_) + _%g7163271635%_))) + (_%g7163073165%_ + (lambda (_%g7163271643%_) + ((lambda (_%L71646%_) + (let* ((_%g7165971667%_ + (lambda (_%g7166071663%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7159771600%_))) - (_%g7159573098%_ - (lambda (_%g7159771608%_) - ((lambda (_%L71611%_) - (let* ((_%g7162471632%_ - (lambda (_%g7162571628%_) + _%g7166071663%_))) + (_%g7165873161%_ + (lambda (_%g7166071671%_) + ((lambda (_%L71674%_) + (let* ((_%g7168771695%_ + (lambda (_%g7168871691%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7162571628%_))) - (_%g7162373063%_ - (lambda (_%g7162571636%_) - ((lambda (_%L71639%_) - (let* ((_%g7165271660%_ - (lambda (_%g7165371656%_) + _%g7168871691%_))) + (_%g7168673126%_ + (lambda (_%g7168871699%_) + ((lambda (_%L71702%_) + (let* ((_%g7171571723%_ + (lambda (_%g7171671719%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g7165371656%_))) - (_%g7165172992%_ - (lambda (_%g7165371664%_) - ((lambda (_%L71667%_) - (let* ((_%g7168071688%_ - (lambda (_%g7168171684%_) + _%g7171671719%_))) + (_%g7171473055%_ + (lambda (_%g7171671727%_) + ((lambda (_%L71730%_) + (let* ((_%g7174371751%_ + (lambda (_%g7174471747%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7168171684%_))) - (_%g7167972988%_ - (lambda (_%g7168171692%_) - ((lambda (_%L71695%_) - (let* ((_%g7170871716%_ - (lambda (_%g7170971712%_) + _%g7174471747%_))) + (_%g7174273051%_ + (lambda (_%g7174471755%_) + ((lambda (_%L71758%_) + (let* ((_%g7177171779%_ + (lambda (_%g7177271775%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7170971712%_))) - (_%g7170772984%_ - (lambda (_%g7170971720%_) - ((lambda (_%L71723%_) - (let* ((_%g7173671744%_ - (lambda (_%g7173771740%_) + _%g7177271775%_))) + (_%g7177073047%_ + (lambda (_%g7177271783%_) + ((lambda (_%L71786%_) + (let* ((_%g7179971807%_ + (lambda (_%g7180071803%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7173771740%_))) - (_%g7173572980%_ - (lambda (_%g7173771748%_) - ((lambda (_%L71751%_) + _%g7180071803%_))) + (_%g7179873043%_ + (lambda (_%g7180071811%_) + ((lambda (_%L71814%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g7176471772%_ - (lambda (_%g7176571768%_) + (let* ((_%g7182771835%_ + (lambda (_%g7182871831%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7176571768%_))) - (_%g7176372954%_ - (lambda (_%g7176571776%_) - ((lambda (_%L71779%_) - (let* ((_%g7179271800%_ - (lambda (_%g7179371796%_) + _%g7182871831%_))) + (_%g7182673017%_ + (lambda (_%g7182871839%_) + ((lambda (_%L71842%_) + (let* ((_%g7185571863%_ + (lambda (_%g7185671859%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7179371796%_))) - (_%g7179172928%_ - (lambda (_%g7179371804%_) - ((lambda (_%L71807%_) - (let* ((_%g7182071828%_ - (lambda (_%g7182171824%_) + _%g7185671859%_))) + (_%g7185472991%_ + (lambda (_%g7185671867%_) + ((lambda (_%L71870%_) + (let* ((_%g7188371891%_ + (lambda (_%g7188471887%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7182171824%_))) - (_%g7181972902%_ - (lambda (_%g7182171832%_) - ((lambda (_%L71835%_) -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%map-slot-usetf71853%_ - (lambda (_%slot71848%_ - _%setf71850%_ - _%rawsetf71851%_) + _%g7188471887%_))) + (_%g7188272965%_ + (lambda (_%g7188471895%_) + ((lambda (_%L71898%_) +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let* ((_%map-slot-usetf71916%_ + (lambda (_%slot71911%_ + _%setf71913%_ + _%rawsetf71914%_) (cons 'cons (cons (cons 'quote - (cons _%slot71848%_ '())) + (cons _%slot71911%_ '())) (cons (if (hash-get - _%slot-contract-table69671%_ + _%slot-contract-table69734%_ (gx#stx-e - _%slot71848%_)) + _%slot71911%_)) (cons 'quote-syntax (cons (gx#stx-identifier ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rawsetf71851%_ + _%rawsetf71914%_ '"&" - _%rawsetf71851%_) + _%rawsetf71914%_) '())) - (cons 'quote-syntax (cons _%setf71850%_ '()))) + (cons 'quote-syntax (cons _%setf71913%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%g7185671864%_ - (lambda (_%g7185771860%_) + (_%g7191971927%_ + (lambda (_%g7192071923%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7185771860%_))) - (_%g7185572684%_ - (lambda (_%g7185771868%_) - ((lambda (_%L71871%_) - (let* ((_%g7188571893%_ - (lambda (_%g7188671889%_) + _%g7192071923%_))) + (_%g7191872747%_ + (lambda (_%g7192071931%_) + ((lambda (_%L71934%_) + (let* ((_%g7194871956%_ + (lambda (_%g7194971952%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7188671889%_))) - (_%g7188472680%_ - (lambda (_%g7188671897%_) - ((lambda (_%L71900%_) - (let* ((_%g7191371921%_ - (lambda (_%g7191471917%_) + _%g7194971952%_))) + (_%g7194772743%_ + (lambda (_%g7194971960%_) + ((lambda (_%L71963%_) + (let* ((_%g7197671984%_ + (lambda (_%g7197771980%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7191471917%_))) - (_%g7191272166%_ - (lambda (_%g7191471925%_) - ((lambda (_%L71928%_) - (let* ((_%g7194171958%_ + _%g7197771980%_))) + (_%g7197572229%_ + (lambda (_%g7197771988%_) + ((lambda (_%L71991%_) + (let* ((_%g7200472021%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g7194271954%_) + (lambda (_%g7200572017%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7194271954%_))) - (_%g7194072022%_ - (lambda (_%g7194271962%_) - (if (gx#stx-pair/null? _%g7194271962%_) - (let ((_g84267_ + _%g7200572017%_))) + (_%g7200372085%_ + (lambda (_%g7200572025%_) + (if (gx#stx-pair/null? _%g7200572025%_) + (let ((_g84330_ (gx#syntax-split-splice - _%g7194271962%_ + _%g7200572025%_ '0))) (begin - (let ((_g84268_ + (let ((_g84331_ (let () (declare (not safe)) - (if (##values? _g84267_) - (##vector-length - _g84267_) + (if (##values? _g84330_) + (##values-length + _g84330_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84268_ 2))) + (##fx= _g84331_ 2))) (error "Context expects 2 values" - _g84268_))) - (let ((_%target7194471965%_ + _g84331_))) + (let ((_%target7200772028%_ (let () (declare (not safe)) - (##vector-ref _g84267_ 0))) - (_%tl7194671968%_ + (##values-ref _g84330_ 0))) + (_%tl7200972031%_ (let () (declare (not safe)) - (##vector-ref _g84267_ 1)))) - (if (gx#stx-null? _%tl7194671968%_) - (letrec ((_%loop7194771971%_ - (lambda (_%hd7194571975%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%defsetf7195171978%_) - (if (gx#stx-pair? _%hd7194571975%_) - (let ((_%e7194871981%_ (gx#syntax-e _%hd7194571975%_))) - (let ((_%lp-hd7194971985%_ + (##values-ref _g84330_ 1)))) + (if (gx#stx-null? _%tl7200972031%_) + (letrec ((_%loop7201072034%_ + (lambda (_%hd7200872038%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%defsetf7201472041%_) + (if (gx#stx-pair? _%hd7200872038%_) + (let ((_%e7201172044%_ (gx#syntax-e _%hd7200872038%_))) + (let ((_%lp-hd7201272048%_ (let () (declare (not safe)) - (##car _%e7194871981%_))) - (_%lp-tl7195071988%_ + (##car _%e7201172044%_))) + (_%lp-tl7201372051%_ (let () (declare (not safe)) - (##cdr _%e7194871981%_)))) - (_%loop7194771971%_ - _%lp-tl7195071988%_ - (cons _%lp-hd7194971985%_ - _%defsetf7195171978%_)))) - (let ((_%defsetf7195271991%_ - (reverse _%defsetf7195171978%_))) - ((lambda (_%L71995%_) + (##cdr _%e7201172044%_)))) + (_%loop7201072034%_ + _%lp-tl7201372051%_ + (cons _%lp-hd7201272048%_ + _%defsetf7201472041%_)))) + (let ((_%defsetf7201572054%_ + (reverse _%defsetf7201472041%_))) + ((lambda (_%L72058%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L71331%_ - (cons _%L71900%_ - (cons _%L71928%_ - (foldr (lambda (_%g7201372016%_ + (cons _%L71394%_ + (cons _%L71963%_ + (cons _%L71991%_ + (foldr (lambda (_%g7207672079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7201472019%_) - (cons _%g7201372016%_ _%g7201472019%_)) + _%g7207772082%_) + (cons _%g7207672079%_ _%g7207772082%_)) '() - _%L71995%_)))))) + _%L72058%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%defsetf7195271991%_)))))) + _%defsetf7201572054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7194771971%_ - _%target7194471965%_ + (_%loop7201072034%_ + _%target7200772028%_ '())) - (_%g7194171958%_ - _%g7194271962%_))))) - (_%g7194171958%_ _%g7194271962%_))))) - (_%g7194072022%_ - (let ((__tmp84269 - (map (lambda (_%slot72026%_ - _%setf72028%_ - _%rawsetf72029%_) - (let ((_%contract7203072032%_ + (_%g7200472021%_ + _%g7200572025%_))))) + (_%g7200472021%_ _%g7200572025%_))))) + (_%g7200372085%_ + (let ((__tmp84332 + (map (lambda (_%slot72089%_ + _%setf72091%_ + _%rawsetf72092%_) + (let ((_%contract7209372095%_ (hash-get - _%slot-contract-table69671%_ - (gx#stx-e _%slot72026%_)))) - (if _%contract7203072032%_ - (let* ((_%contract72036%_ - _%contract7203072032%_) - (_%g7203972062%_ - (lambda (_%g7204072058%_) + _%slot-contract-table69734%_ + (gx#stx-e _%slot72089%_)))) + (if _%contract7209372095%_ + (let* ((_%contract72099%_ + _%contract7209372095%_) + (_%g7210272125%_ + (lambda (_%g7210372121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7204072058%_))) - (_%g7203872138%_ - (lambda (_%g7204072066%_) + _%g7210372121%_))) + (_%g7210172201%_ + (lambda (_%g7210372129%_) (if (gx#stx-pair? - _%g7204072066%_) - (let ((_%e7204572069%_ + _%g7210372129%_) + (let ((_%e7210872132%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7204072066%_))) - (let ((_%hd7204672073%_ + (gx#syntax-e _%g7210372129%_))) + (let ((_%hd7210972136%_ (let () (declare (not safe)) - (##car _%e7204572069%_))) - (_%tl7204772076%_ + (##car _%e7210872132%_))) + (_%tl7211072139%_ (let () (declare (not safe)) - (##cdr _%e7204572069%_)))) - (if (gx#stx-pair? _%tl7204772076%_) - (let ((_%e7204872079%_ - (gx#syntax-e _%tl7204772076%_))) - (let ((_%hd7204972083%_ + (##cdr _%e7210872132%_)))) + (if (gx#stx-pair? _%tl7211072139%_) + (let ((_%e7211172142%_ + (gx#syntax-e _%tl7211072139%_))) + (let ((_%hd7211272146%_ (let () (declare (not safe)) - (##car _%e7204872079%_))) - (_%tl7205072086%_ + (##car _%e7211172142%_))) + (_%tl7211372149%_ (let () (declare (not safe)) - (##cdr _%e7204872079%_)))) - (if (gx#stx-pair? _%tl7205072086%_) - (let ((_%e7205172089%_ - (gx#syntax-e _%tl7205072086%_))) - (let ((_%hd7205272093%_ + (##cdr _%e7211172142%_)))) + (if (gx#stx-pair? _%tl7211372149%_) + (let ((_%e7211472152%_ + (gx#syntax-e _%tl7211372149%_))) + (let ((_%hd7211572156%_ (let () (declare (not safe)) - (##car _%e7205172089%_))) - (_%tl7205372096%_ + (##car _%e7211472152%_))) + (_%tl7211672159%_ (let () (declare (not safe)) - (##cdr _%e7205172089%_)))) - (if (gx#stx-pair? _%tl7205372096%_) - (let ((_%e7205472099%_ + (##cdr _%e7211472152%_)))) + (if (gx#stx-pair? _%tl7211672159%_) + (let ((_%e7211772162%_ (gx#syntax-e - _%tl7205372096%_))) - (let ((_%hd7205572103%_ + _%tl7211672159%_))) + (let ((_%hd7211872166%_ (let () (declare (not safe)) - (##car _%e7205472099%_))) - (_%tl7205672106%_ + (##car _%e7211772162%_))) + (_%tl7211972169%_ (let () (declare (not safe)) - (##cdr _%e7205472099%_)))) + (##cdr _%e7211772162%_)))) (if (gx#stx-null? - _%tl7205672106%_) - ((lambda (_%L72109%_ - _%L72111%_ - _%L72112%_ - _%L72113%_) - (_%wrap69523%_ + _%tl7211972169%_) + ((lambda (_%L72172%_ + _%L72174%_ + _%L72175%_ + _%L72176%_) + (_%wrap69586%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L72111%_ + (cons (cons _%L72174%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '$obj) (cons (gx#datum->syntax '#f ':) - (cons _%L69715%_ '()))) - (cons _%L72113%_ '()))) + (cons _%L69778%_ '()))) + (cons _%L72176%_ '()))) (cons (gx#datum->syntax '#f '=>) (cons (gx#datum->syntax '#f ':void) - (cons (cons _%L72109%_ + (cons (cons _%L72172%_ (cons (gx#datum->syntax '#f '$obj) - (cons _%L72112%_ + (cons _%L72175%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%hd7205572103%_ - _%hd7205272093%_ - _%hd7204972083%_ - _%hd7204672073%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7203972062%_ - _%g7204072066%_)))) - (_%g7203972062%_ - _%g7204072066%_)))) - (_%g7203972062%_ _%g7204072066%_)))) - (_%g7203972062%_ _%g7204072066%_)))) - (_%g7203972062%_ _%g7204072066%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7203872138%_ - (list (cons _%slot72026%_ - _%contract72036%_) - _%slot72026%_ - _%setf72028%_ + _%hd7211872166%_ + _%hd7211572156%_ + _%hd7211272146%_ + _%hd7210972136%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7210272125%_ + _%g7210372129%_)))) + (_%g7210272125%_ + _%g7210372129%_)))) + (_%g7210272125%_ _%g7210372129%_)))) + (_%g7210272125%_ _%g7210372129%_)))) + (_%g7210272125%_ _%g7210372129%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7210172201%_ + (list (cons _%slot72089%_ + _%contract72099%_) + _%slot72089%_ + _%setf72091%_ (gx#stx-identifier - _%rawsetf72029%_ + _%rawsetf72092%_ '"&" - _%rawsetf72029%_)))) + _%rawsetf72092%_)))) '#f))) - (foldr (lambda (_%g7214172144%_ - _%g7214272147%_) - (cons _%g7214172144%_ - _%g7214272147%_)) + (foldr (lambda (_%g7220472207%_ + _%g7220572210%_) + (cons _%g7220472207%_ + _%g7220572210%_)) '() - _%L69904%_) - (foldr (lambda (_%g7214972152%_ - _%g7215072155%_) - (cons _%g7214972152%_ - _%g7215072155%_)) + _%L69967%_) + (foldr (lambda (_%g7221272215%_ + _%g7221372218%_) + (cons _%g7221272215%_ + _%g7221372218%_)) '() - _%L70117%_) - (foldr (lambda (_%g7215772160%_ - _%g7215872163%_) - (cons _%g7215772160%_ - _%g7215872163%_)) + _%L70180%_) + (foldr (lambda (_%g7222072223%_ + _%g7222172226%_) + (cons _%g7222072223%_ + _%g7222172226%_)) '() - _%L70188%_)))) + _%L70251%_)))) (declare (not safe)) - (##filter identity __tmp84269))))) - _%g7191471925%_)))) + (##filter identity __tmp84332))))) + _%g7197771988%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7191272166%_ - (if (or (not (null? _%type-constructor71094%_)) + (_%g7197572229%_ + (if (or (not (null? _%type-constructor71157%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69671%_)) - (zero? (hash-length _%slot-default-table69674%_))) - _%metaclass71198%_) + _%slot-contract-table69734%_)) + (zero? (hash-length _%slot-default-table69737%_))) + _%metaclass71261%_) (cons (gx#datum->syntax '#f 'begin) '()) - (if (and _%struct?69697%_ - (zero? (hash-length _%slot-default-table69674%_))) - (let* ((_%g7218272197%_ - (lambda (_%g7218372193%_) + (if (and _%struct?69760%_ + (zero? (hash-length _%slot-default-table69737%_))) + (let* ((_%g7224572260%_ + (lambda (_%g7224672256%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7218372193%_))) - (_%g7218172251%_ - (lambda (_%g7218372201%_) - (if (gx#stx-pair? _%g7218372201%_) - (let ((_%e7218672204%_ - (gx#syntax-e _%g7218372201%_))) - (let ((_%hd7218772208%_ + _%g7224672256%_))) + (_%g7224472314%_ + (lambda (_%g7224672264%_) + (if (gx#stx-pair? _%g7224672264%_) + (let ((_%e7224972267%_ + (gx#syntax-e _%g7224672264%_))) + (let ((_%hd7225072271%_ (let () (declare (not safe)) - (##car _%e7218672204%_))) - (_%tl7218872211%_ + (##car _%e7224972267%_))) + (_%tl7225172274%_ (let () (declare (not safe)) - (##cdr _%e7218672204%_)))) - (if (gx#stx-pair? _%tl7218872211%_) - (let ((_%e7218972214%_ + (##cdr _%e7224972267%_)))) + (if (gx#stx-pair? _%tl7225172274%_) + (let ((_%e7225272277%_ (gx#syntax-e - _%tl7218872211%_))) - (let ((_%hd7219072218%_ + _%tl7225172274%_))) + (let ((_%hd7225372281%_ (let () (declare (not safe)) - (##car _%e7218972214%_))) - (_%tl7219172221%_ + (##car _%e7225272277%_))) + (_%tl7225472284%_ (let () (declare (not safe)) - (##cdr _%e7218972214%_)))) + (##cdr _%e7225272277%_)))) (if (gx#stx-null? - _%tl7219172221%_) - ((lambda (_%L72224%_ - _%L72226%_) - (_%wrap69523%_ + _%tl7225472284%_) + ((lambda (_%L72287%_ + _%L72289%_) + (_%wrap69586%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69781%_ + (cons (cons _%L69844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72226%_) + _%L72289%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69715%_ + (cons _%L69778%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11102,198 +11102,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72224%_ '())) + (cons _%L72287%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72224%_ - (foldr (lambda (_%g7224272245%_ - _%g7224372248%_) - (cons _%g7224272245%_ - _%g7224372248%_)) + (cons _%L72287%_ + (foldr (lambda (_%g7230572308%_ + _%g7230672311%_) + (cons _%g7230572308%_ + _%g7230672311%_)) '() - _%L69975%_))) + _%L70038%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7219072218%_ - _%hd7218772208%_) - (_%g7218272197%_ - _%g7218372201%_)))) - (_%g7218272197%_ - _%g7218372201%_)))) - (_%g7218272197%_ _%g7218372201%_))))) - (_%g7218172251%_ - (list (foldr (lambda (_%slot72255%_ _%r72257%_) - (let ((_%$e72259%_ + _%hd7225372281%_ + _%hd7225072271%_) + (_%g7224572260%_ + _%g7224672264%_)))) + (_%g7224572260%_ + _%g7224672264%_)))) + (_%g7224572260%_ _%g7224672264%_))))) + (_%g7224472314%_ + (list (foldr (lambda (_%slot72318%_ _%r72320%_) + (let ((_%$e72322%_ (hash-get - _%slot-contract-table69671%_ - (gx#stx-e _%slot72255%_)))) - (if _%$e72259%_ - ((lambda (_%contract72263%_) - (let* ((_%g7226672290%_ - (lambda (_%g7226772286%_) + _%slot-contract-table69734%_ + (gx#stx-e _%slot72318%_)))) + (if _%$e72322%_ + ((lambda (_%contract72326%_) + (let* ((_%g7232972353%_ + (lambda (_%g7233072349%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7226772286%_))) - (_%g7226572380%_ - (lambda (_%g7226772294%_) + _%g7233072349%_))) + (_%g7232872443%_ + (lambda (_%g7233072357%_) (if (gx#stx-pair? - _%g7226772294%_) - (let ((_%e7227072297%_ + _%g7233072357%_) + (let ((_%e7233372360%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7226772294%_))) - (let ((_%hd7227172301%_ + (gx#syntax-e _%g7233072357%_))) + (let ((_%hd7233472364%_ (let () (declare (not safe)) - (##car _%e7227072297%_))) - (_%tl7227272304%_ + (##car _%e7233372360%_))) + (_%tl7233572367%_ (let () (declare (not safe)) - (##cdr _%e7227072297%_)))) - (if (gx#stx-pair? _%tl7227272304%_) - (let ((_%e7227372307%_ - (gx#syntax-e _%tl7227272304%_))) - (let ((_%hd7227472311%_ + (##cdr _%e7233372360%_)))) + (if (gx#stx-pair? _%tl7233572367%_) + (let ((_%e7233672370%_ + (gx#syntax-e _%tl7233572367%_))) + (let ((_%hd7233772374%_ (let () (declare (not safe)) - (##car _%e7227372307%_))) - (_%tl7227572314%_ + (##car _%e7233672370%_))) + (_%tl7233872377%_ (let () (declare (not safe)) - (##cdr _%e7227372307%_)))) - (if (gx#stx-pair/null? _%hd7227472311%_) - (let ((_g84270_ + (##cdr _%e7233672370%_)))) + (if (gx#stx-pair/null? _%hd7233772374%_) + (let ((_g84333_ (gx#syntax-split-splice - _%hd7227472311%_ + _%hd7233772374%_ '0))) (begin - (let ((_g84271_ + (let ((_g84334_ (let () (declare (not safe)) - (if (##values? _g84270_) - (##vector-length - _g84270_) + (if (##values? _g84333_) + (##values-length + _g84333_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84271_ 2))) + (##fx= _g84334_ 2))) (error "Context expects 2 values" - _g84271_))) - (let ((_%target7227672317%_ + _g84334_))) + (let ((_%target7233972380%_ (let () (declare (not safe)) - (##vector-ref _g84270_ 0))) - (_%tl7227872320%_ + (##values-ref _g84333_ 0))) + (_%tl7234172383%_ (let () (declare (not safe)) - (##vector-ref - _g84270_ + (##values-ref + _g84333_ 1)))) (if (gx#stx-null? - _%tl7227872320%_) - (letrec ((_%loop7227972323%_ - (lambda (_%hd7227772327%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7228372330%_) - (if (gx#stx-pair? _%hd7227772327%_) - (let ((_%e7228072333%_ - (gx#syntax-e _%hd7227772327%_))) - (let ((_%lp-hd7228172337%_ + _%tl7234172383%_) + (letrec ((_%loop7234272386%_ + (lambda (_%hd7234072390%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7234672393%_) + (if (gx#stx-pair? _%hd7234072390%_) + (let ((_%e7234372396%_ + (gx#syntax-e _%hd7234072390%_))) + (let ((_%lp-hd7234472400%_ (let () (declare (not safe)) - (##car _%e7228072333%_))) - (_%lp-tl7228272340%_ + (##car _%e7234372396%_))) + (_%lp-tl7234572403%_ (let () (declare (not safe)) - (##cdr _%e7228072333%_)))) - (_%loop7227972323%_ - _%lp-tl7228272340%_ - (cons _%lp-hd7228172337%_ - _%contract7228372330%_)))) - (let ((_%contract7228472343%_ - (reverse _%contract7228372330%_))) - (if (gx#stx-null? _%tl7227572314%_) - ((lambda (_%L72347%_ _%L72349%_) - (cons (cons _%L72349%_ - (foldr (lambda (_%g7237172374%_ - _%g7237272377%_) - (cons _%g7237172374%_ - _%g7237272377%_)) + (##cdr _%e7234372396%_)))) + (_%loop7234272386%_ + _%lp-tl7234572403%_ + (cons _%lp-hd7234472400%_ + _%contract7234672393%_)))) + (let ((_%contract7234772406%_ + (reverse _%contract7234672393%_))) + (if (gx#stx-null? _%tl7233872377%_) + ((lambda (_%L72410%_ _%L72412%_) + (cons (cons _%L72412%_ + (foldr (lambda (_%g7243472437%_ + _%g7243572440%_) + (cons _%g7243472437%_ + _%g7243572440%_)) '() - _%L72347%_)) - _%r72257%_)) - _%contract7228472343%_ - _%hd7227172301%_) - (_%g7226672290%_ _%g7226772294%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7227972323%_ - _%target7227672317%_ + _%L72410%_)) + _%r72320%_)) + _%contract7234772406%_ + _%hd7233472364%_) + (_%g7232972353%_ _%g7233072357%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7234272386%_ + _%target7233972380%_ '())) - (_%g7226672290%_ - _%g7226772294%_))))) - (_%g7226672290%_ _%g7226772294%_)))) - (_%g7226672290%_ _%g7226772294%_)))) - (_%g7226672290%_ _%g7226772294%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7226572380%_ - (list _%slot72255%_ - _%contract72263%_)))) - _%$e72259%_) - (cons _%slot72255%_ - _%r72257%_)))) + (_%g7232972353%_ + _%g7233072357%_))))) + (_%g7232972353%_ _%g7233072357%_)))) + (_%g7232972353%_ _%g7233072357%_)))) + (_%g7232972353%_ _%g7233072357%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7232872443%_ + (list _%slot72318%_ + _%contract72326%_)))) + _%$e72322%_) + (cons _%slot72318%_ + _%r72320%_)))) '() - (foldr (lambda (_%g7238572388%_ - _%g7238672391%_) - (cons _%g7238572388%_ - _%g7238672391%_)) + (foldr (lambda (_%g7244872451%_ + _%g7244972454%_) + (cons _%g7244872451%_ + _%g7244972454%_)) '() - _%L69975%_)) - (gx#core-quote-syntax _%L69753%_)))) - (let* ((_%g7239672411%_ - (lambda (_%g7239772407%_) + _%L70038%_)) + (gx#core-quote-syntax _%L69816%_)))) + (let* ((_%g7245972474%_ + (lambda (_%g7246072470%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7239772407%_))) - (_%g7239572464%_ - (lambda (_%g7239772415%_) - (if (gx#stx-pair? _%g7239772415%_) - (let ((_%e7240072418%_ - (gx#syntax-e _%g7239772415%_))) - (let ((_%hd7240172422%_ + _%g7246072470%_))) + (_%g7245872527%_ + (lambda (_%g7246072478%_) + (if (gx#stx-pair? _%g7246072478%_) + (let ((_%e7246372481%_ + (gx#syntax-e _%g7246072478%_))) + (let ((_%hd7246472485%_ (let () (declare (not safe)) - (##car _%e7240072418%_))) - (_%tl7240272425%_ + (##car _%e7246372481%_))) + (_%tl7246572488%_ (let () (declare (not safe)) - (##cdr _%e7240072418%_)))) - (if (gx#stx-pair? _%tl7240272425%_) - (let ((_%e7240372428%_ + (##cdr _%e7246372481%_)))) + (if (gx#stx-pair? _%tl7246572488%_) + (let ((_%e7246672491%_ (gx#syntax-e - _%tl7240272425%_))) - (let ((_%hd7240472432%_ + _%tl7246572488%_))) + (let ((_%hd7246772495%_ (let () (declare (not safe)) - (##car _%e7240372428%_))) - (_%tl7240572435%_ + (##car _%e7246672491%_))) + (_%tl7246872498%_ (let () (declare (not safe)) - (##cdr _%e7240372428%_)))) + (##cdr _%e7246672491%_)))) (if (gx#stx-null? - _%tl7240572435%_) - ((lambda (_%L72438%_ - _%L72440%_) - (_%wrap69523%_ + _%tl7246872498%_) + ((lambda (_%L72501%_ + _%L72503%_) + (_%wrap69586%_ (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L69781%_ + (cons (cons _%L69844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L72440%_) + _%L72503%_) (cons (gx#datum->syntax '#f '=>) - (cons _%L69715%_ + (cons _%L69778%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -11301,301 +11301,301 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@type) - (cons _%L72438%_ '())) + (cons _%L72501%_ '())) (cons (cons (gx#datum->syntax '#f '##structure) - (cons _%L72438%_ - (foldr (lambda (_%g7245572458%_ - _%g7245672461%_) - (cons _%g7245572458%_ - _%g7245672461%_)) + (cons _%L72501%_ + (foldr (lambda (_%g7251872521%_ + _%g7251972524%_) + (cons _%g7251872521%_ + _%g7251972524%_)) '() - _%L69975%_))) + _%L70038%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7240472432%_ - _%hd7240172422%_) - (_%g7239672411%_ - _%g7239772415%_)))) - (_%g7239672411%_ - _%g7239772415%_)))) - (_%g7239672411%_ _%g7239772415%_))))) - (_%g7239572464%_ - (list (foldr (lambda (_%slot72468%_ _%r72470%_) - (let* ((_%default72472%_ + _%hd7246772495%_ + _%hd7246472485%_) + (_%g7245972474%_ + _%g7246072478%_)))) + (_%g7245972474%_ + _%g7246072478%_)))) + (_%g7245972474%_ _%g7246072478%_))))) + (_%g7245872527%_ + (list (foldr (lambda (_%slot72531%_ _%r72533%_) + (let* ((_%default72535%_ (hash-get - _%slot-default-table69674%_ - (gx#stx-e _%slot72468%_))) - (_%$e72475%_ + _%slot-default-table69737%_ + (gx#stx-e _%slot72531%_))) + (_%$e72538%_ (hash-get - _%slot-contract-table69671%_ - (gx#stx-e _%slot72468%_)))) - (if _%$e72475%_ - ((lambda (_%contract72479%_) - (let* ((_%g7248272519%_ - (lambda (_%g7248372515%_) + _%slot-contract-table69734%_ + (gx#stx-e _%slot72531%_)))) + (if _%$e72538%_ + ((lambda (_%contract72542%_) + (let* ((_%g7254572582%_ + (lambda (_%g7254672578%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7248372515%_))) - (_%g7248172666%_ - (lambda (_%g7248372523%_) + _%g7254672578%_))) + (_%g7254472729%_ + (lambda (_%g7254672586%_) (if (gx#stx-pair? - _%g7248372523%_) - (let ((_%e7248772526%_ + _%g7254672586%_) + (let ((_%e7255072589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g7248372523%_))) - (let ((_%hd7248872530%_ + (gx#syntax-e _%g7254672586%_))) + (let ((_%hd7255172593%_ (let () (declare (not safe)) - (##car _%e7248772526%_))) - (_%tl7248972533%_ + (##car _%e7255072589%_))) + (_%tl7255272596%_ (let () (declare (not safe)) - (##cdr _%e7248772526%_)))) - (if (gx#stx-pair? _%tl7248972533%_) - (let ((_%e7249072536%_ - (gx#syntax-e _%tl7248972533%_))) - (let ((_%hd7249172540%_ + (##cdr _%e7255072589%_)))) + (if (gx#stx-pair? _%tl7255272596%_) + (let ((_%e7255372599%_ + (gx#syntax-e _%tl7255272596%_))) + (let ((_%hd7255472603%_ (let () (declare (not safe)) - (##car _%e7249072536%_))) - (_%tl7249272543%_ + (##car _%e7255372599%_))) + (_%tl7255572606%_ (let () (declare (not safe)) - (##cdr _%e7249072536%_)))) - (if (gx#stx-pair/null? _%hd7249172540%_) - (let ((_g84272_ + (##cdr _%e7255372599%_)))) + (if (gx#stx-pair/null? _%hd7255472603%_) + (let ((_g84335_ (gx#syntax-split-splice - _%hd7249172540%_ + _%hd7255472603%_ '0))) (begin - (let ((_g84273_ + (let ((_g84336_ (let () (declare (not safe)) - (if (##values? _g84272_) - (##vector-length - _g84272_) + (if (##values? _g84335_) + (##values-length + _g84335_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84273_ 2))) + (##fx= _g84336_ 2))) (error "Context expects 2 values" - _g84273_))) - (let ((_%target7249372546%_ + _g84336_))) + (let ((_%target7255672609%_ (let () (declare (not safe)) - (##vector-ref _g84272_ 0))) - (_%tl7249572549%_ + (##values-ref _g84335_ 0))) + (_%tl7255872612%_ (let () (declare (not safe)) - (##vector-ref - _g84272_ + (##values-ref + _g84335_ 1)))) (if (gx#stx-null? - _%tl7249572549%_) - (letrec ((_%loop7249672552%_ - (lambda (_%hd7249472556%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%contract7250072559%_) - (if (gx#stx-pair? _%hd7249472556%_) - (let ((_%e7249772562%_ - (gx#syntax-e _%hd7249472556%_))) - (let ((_%lp-hd7249872566%_ + _%tl7255872612%_) + (letrec ((_%loop7255972615%_ + (lambda (_%hd7255772619%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%contract7256372622%_) + (if (gx#stx-pair? _%hd7255772619%_) + (let ((_%e7256072625%_ + (gx#syntax-e _%hd7255772619%_))) + (let ((_%lp-hd7256172629%_ (let () (declare (not safe)) - (##car _%e7249772562%_))) - (_%lp-tl7249972569%_ + (##car _%e7256072625%_))) + (_%lp-tl7256272632%_ (let () (declare (not safe)) - (##cdr _%e7249772562%_)))) - (_%loop7249672552%_ - _%lp-tl7249972569%_ - (cons _%lp-hd7249872566%_ - _%contract7250072559%_)))) - (let ((_%contract7250172572%_ - (reverse _%contract7250072559%_))) - (if (gx#stx-pair? _%tl7249272543%_) - (let ((_%e7250272576%_ - (gx#syntax-e _%tl7249272543%_))) - (let ((_%hd7250372580%_ + (##cdr _%e7256072625%_)))) + (_%loop7255972615%_ + _%lp-tl7256272632%_ + (cons _%lp-hd7256172629%_ + _%contract7256372622%_)))) + (let ((_%contract7256472635%_ + (reverse _%contract7256372622%_))) + (if (gx#stx-pair? _%tl7255572606%_) + (let ((_%e7256572639%_ + (gx#syntax-e _%tl7255572606%_))) + (let ((_%hd7256672643%_ (let () (declare (not safe)) - (##car _%e7250272576%_))) - (_%tl7250472583%_ + (##car _%e7256572639%_))) + (_%tl7256772646%_ (let () (declare (not safe)) - (##cdr _%e7250272576%_)))) - (if (gx#stx-pair/null? _%hd7250372580%_) - (let ((_g84274_ + (##cdr _%e7256572639%_)))) + (if (gx#stx-pair/null? _%hd7256672643%_) + (let ((_g84337_ (gx#syntax-split-splice - _%hd7250372580%_ + _%hd7256672643%_ '0))) (begin - (let ((_g84275_ + (let ((_g84338_ (let () (declare (not safe)) - (if (##values? _g84274_) - (##vector-length - _g84274_) + (if (##values? _g84337_) + (##values-length + _g84337_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84275_ 2))) + (##fx= _g84338_ 2))) (error "Context expects 2 values" - _g84275_))) - (let ((_%target7250572586%_ + _g84338_))) + (let ((_%target7256872649%_ (let () (declare (not safe)) - (##vector-ref _g84274_ 0))) - (_%tl7250772589%_ + (##values-ref _g84337_ 0))) + (_%tl7257072652%_ (let () (declare (not safe)) - (##vector-ref - _g84274_ + (##values-ref + _g84337_ 1)))) (if (gx#stx-null? - _%tl7250772589%_) - (letrec ((_%loop7250872592%_ - (lambda (_%hd7250672596%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%default7251272599%_) - (if (gx#stx-pair? _%hd7250672596%_) - (let ((_%e7250972602%_ - (gx#syntax-e _%hd7250672596%_))) - (let ((_%lp-hd7251072606%_ + _%tl7257072652%_) + (letrec ((_%loop7257172655%_ + (lambda (_%hd7256972659%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%default7257572662%_) + (if (gx#stx-pair? _%hd7256972659%_) + (let ((_%e7257272665%_ + (gx#syntax-e _%hd7256972659%_))) + (let ((_%lp-hd7257372669%_ (let () (declare (not safe)) - (##car _%e7250972602%_))) - (_%lp-tl7251172609%_ + (##car _%e7257272665%_))) + (_%lp-tl7257472672%_ (let () (declare (not safe)) - (##cdr _%e7250972602%_)))) - (_%loop7250872592%_ - _%lp-tl7251172609%_ - (cons _%lp-hd7251072606%_ - _%default7251272599%_)))) - (let ((_%default7251372612%_ - (reverse _%default7251272599%_))) - (if (gx#stx-null? _%tl7250472583%_) - ((lambda (_%L72616%_ _%L72618%_ _%L72619%_) - (cons (symbol->keyword (gx#stx-e _%L72619%_)) - (cons (cons _%L72619%_ - (foldr (lambda (_%g7264972654%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7265072657%_) - (cons _%g7264972654%_ _%g7265072657%_)) - (foldr (lambda (_%g7265172660%_ _%g7265272663%_) - (cons _%g7265172660%_ _%g7265272663%_)) + (##cdr _%e7257272665%_)))) + (_%loop7257172655%_ + _%lp-tl7257472672%_ + (cons _%lp-hd7257372669%_ + _%default7257572662%_)))) + (let ((_%default7257672675%_ + (reverse _%default7257572662%_))) + (if (gx#stx-null? _%tl7256772646%_) + ((lambda (_%L72679%_ _%L72681%_ _%L72682%_) + (cons (symbol->keyword (gx#stx-e _%L72682%_)) + (cons (cons _%L72682%_ + (foldr (lambda (_%g7271272717%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7271372720%_) + (cons _%g7271272717%_ _%g7271372720%_)) + (foldr (lambda (_%g7271472723%_ _%g7271572726%_) + (cons _%g7271472723%_ _%g7271572726%_)) '() - _%L72616%_) - _%L72618%_)) + _%L72679%_) + _%L72681%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r72470%_))) - _%default7251372612%_ - _%contract7250172572%_ - _%hd7248872530%_) - (_%g7248272519%_ _%g7248372523%_))))))) + _%r72533%_))) + _%default7257672675%_ + _%contract7256472635%_ + _%hd7255172593%_) + (_%g7254572582%_ _%g7254672586%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7250872592%_ - _%target7250572586%_ + (_%loop7257172655%_ + _%target7256872649%_ '())) - (_%g7248272519%_ - _%g7248372523%_))))) - (_%g7248272519%_ _%g7248372523%_)))) - (_%g7248272519%_ _%g7248372523%_))))))) + (_%g7254572582%_ + _%g7254672586%_))))) + (_%g7254572582%_ _%g7254672586%_)))) + (_%g7254572582%_ _%g7254672586%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7249672552%_ - _%target7249372546%_ + (_%loop7255972615%_ + _%target7255672609%_ '())) - (_%g7248272519%_ - _%g7248372523%_))))) - (_%g7248272519%_ _%g7248372523%_)))) - (_%g7248272519%_ _%g7248372523%_)))) - (_%g7248272519%_ _%g7248372523%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7248172666%_ - (list _%slot72468%_ - _%contract72479%_ - (if _%default72472%_ + (_%g7254572582%_ + _%g7254672586%_))))) + (_%g7254572582%_ _%g7254672586%_)))) + (_%g7254572582%_ _%g7254672586%_)))) + (_%g7254572582%_ _%g7254672586%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7254472729%_ + (list _%slot72531%_ + _%contract72542%_ + (if _%default72535%_ (cons ':= ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%default72472%_ '())) + (cons _%default72535%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e72475%_) + _%$e72538%_) (cons (symbol->keyword - (gx#stx-e _%slot72468%_)) - (cons (cons _%slot72468%_ - (cons _%default72472%_ + (gx#stx-e _%slot72531%_)) + (cons (cons _%slot72531%_ + (cons _%default72535%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - _%r72470%_))))) + _%r72533%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - (foldr (lambda (_%g7267172674%_ - _%g7267272677%_) - (cons _%g7267172674%_ - _%g7267272677%_)) + (foldr (lambda (_%g7273472737%_ + _%g7273572740%_) + (cons _%g7273472737%_ + _%g7273572740%_)) '() - _%L69975%_)) - (gx#core-quote-syntax _%L69753%_))))))))) + _%L70038%_)) + (gx#core-quote-syntax _%L69816%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7188671897%_)))) - (_%g7188472680%_ - (_%wrap69523%_ + _%g7194971960%_)))) + (_%g7194772743%_ + (_%wrap69586%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L69715%_ + (cons _%L69778%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-type-info) (cons 'id: - (cons _%L71359%_ + (cons _%L71422%_ (cons 'name: - (cons _%L71387%_ + (cons _%L71450%_ (cons 'slots: - (cons _%L71443%_ + (cons _%L71506%_ (cons 'ordered-slots: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71471%_ + (cons _%L71534%_ (cons 'super: - (cons _%L71415%_ + (cons _%L71478%_ (cons 'struct?: - (cons _%L71583%_ + (cons _%L71646%_ (cons 'final?: - (cons _%L71611%_ + (cons _%L71674%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'metaclass: - (cons _%L71639%_ + (cons _%L71702%_ (cons 'constructor-method: - (cons _%L71667%_ + (cons _%L71730%_ (cons 'type-descriptor: - (cons _%L71695%_ + (cons _%L71758%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'constructor: - (cons _%L71723%_ + (cons _%L71786%_ (cons 'predicate: - (cons _%L71751%_ + (cons _%L71814%_ (cons 'accessors: - (cons _%L71779%_ + (cons _%L71842%_ (cons 'mutators: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L71835%_ + (cons _%L71898%_ (cons 'unchecked-accessors: - (cons _%L71807%_ + (cons _%L71870%_ (cons 'unchecked-mutators: - (cons _%L71871%_ + (cons _%L71934%_ (cons 'slot-types: - (cons _%L71499%_ + (cons _%L71562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slot-contracts: - (cons _%L71527%_ + (cons _%L71590%_ (cons 'slot-defaults: - (cons _%L71555%_ + (cons _%L71618%_ '()))))))))))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -11604,225 +11604,225 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7185771868%_)))) - (_%g7185572684%_ - (let* ((_%g7268872721%_ - (lambda (_%g7268972717%_) + _%g7192071931%_)))) + (_%g7191872747%_ + (let* ((_%g7275172784%_ + (lambda (_%g7275272780%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7268972717%_))) - (_%g7268772850%_ - (lambda (_%g7268972725%_) - (if (gx#stx-pair? _%g7268972725%_) - (let ((_%e7269272728%_ + _%g7275272780%_))) + (_%g7275072913%_ + (lambda (_%g7275272788%_) + (if (gx#stx-pair? _%g7275272788%_) + (let ((_%e7275572791%_ (gx#syntax-e - _%g7268972725%_))) - (let ((_%hd7269372732%_ + _%g7275272788%_))) + (let ((_%hd7275672795%_ (let () (declare (not safe)) - (##car _%e7269272728%_))) - (_%tl7269472735%_ + (##car _%e7275572791%_))) + (_%tl7275772798%_ (let () (declare (not safe)) - (##cdr _%e7269272728%_)))) + (##cdr _%e7275572791%_)))) (if (gx#stx-pair/null? - _%hd7269372732%_) - (let ((_g84276_ + _%hd7275672795%_) + (let ((_g84339_ (gx#syntax-split-splice - _%hd7269372732%_ + _%hd7275672795%_ '0))) (begin - (let ((_g84277_ + (let ((_g84340_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84276_) - (##vector-length _g84276_) + (if (##values? _g84339_) + (##values-length _g84339_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84277_ 2))) - (error "Context expects 2 values" _g84277_))) - (let ((_%target7269572738%_ - (let () (declare (not safe)) (##vector-ref _g84276_ 0))) - (_%tl7269772741%_ - (let () (declare (not safe)) (##vector-ref _g84276_ 1)))) - (if (gx#stx-null? _%tl7269772741%_) - (letrec ((_%loop7269872744%_ - (lambda (_%hd7269672748%_ - _%slot-usetf7270272751%_) - (if (gx#stx-pair? _%hd7269672748%_) - (let ((_%e7269972754%_ - (gx#syntax-e _%hd7269672748%_))) - (let ((_%lp-hd7270072758%_ + (if (not (let () (declare (not safe)) (##fx= _g84340_ 2))) + (error "Context expects 2 values" _g84340_))) + (let ((_%target7275872801%_ + (let () (declare (not safe)) (##values-ref _g84339_ 0))) + (_%tl7276072804%_ + (let () (declare (not safe)) (##values-ref _g84339_ 1)))) + (if (gx#stx-null? _%tl7276072804%_) + (letrec ((_%loop7276172807%_ + (lambda (_%hd7275972811%_ + _%slot-usetf7276572814%_) + (if (gx#stx-pair? _%hd7275972811%_) + (let ((_%e7276272817%_ + (gx#syntax-e _%hd7275972811%_))) + (let ((_%lp-hd7276372821%_ (let () (declare (not safe)) - (##car _%e7269972754%_))) - (_%lp-tl7270172761%_ + (##car _%e7276272817%_))) + (_%lp-tl7276472824%_ (let () (declare (not safe)) - (##cdr _%e7269972754%_)))) - (_%loop7269872744%_ - _%lp-tl7270172761%_ - (cons _%lp-hd7270072758%_ - _%slot-usetf7270272751%_)))) - (let ((_%slot-usetf7270372764%_ - (reverse _%slot-usetf7270272751%_))) - (if (gx#stx-pair? _%tl7269472735%_) - (let ((_%e7270472768%_ + (##cdr _%e7276272817%_)))) + (_%loop7276172807%_ + _%lp-tl7276472824%_ + (cons _%lp-hd7276372821%_ + _%slot-usetf7276572814%_)))) + (let ((_%slot-usetf7276672827%_ + (reverse _%slot-usetf7276572814%_))) + (if (gx#stx-pair? _%tl7275772798%_) + (let ((_%e7276772831%_ (gx#syntax-e - _%tl7269472735%_))) - (let ((_%hd7270572772%_ + _%tl7275772798%_))) + (let ((_%hd7276872835%_ (let () (declare (not safe)) - (##car _%e7270472768%_))) - (_%tl7270672775%_ + (##car _%e7276772831%_))) + (_%tl7276972838%_ (let () (declare (not safe)) - (##cdr _%e7270472768%_)))) + (##cdr _%e7276772831%_)))) (if (gx#stx-pair/null? - _%hd7270572772%_) - (let ((_g84278_ + _%hd7276872835%_) + (let ((_g84341_ (gx#syntax-split-splice - _%hd7270572772%_ + _%hd7276872835%_ '0))) (begin - (let ((_g84279_ + (let ((_g84342_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g84278_) - (##vector-length _g84278_) + (if (##values? _g84341_) + (##values-length _g84341_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84279_ 2))) - (error "Context expects 2 values" _g84279_))) - (let ((_%target7270772778%_ - (let () (declare (not safe)) (##vector-ref _g84278_ 0))) - (_%tl7270972781%_ - (let () (declare (not safe)) (##vector-ref _g84278_ 1)))) - (if (gx#stx-null? _%tl7270972781%_) - (letrec ((_%loop7271072784%_ - (lambda (_%hd7270872788%_ - _%mixin-slot-usetf7271472791%_) - (if (gx#stx-pair? _%hd7270872788%_) - (let ((_%e7271172794%_ - (gx#syntax-e _%hd7270872788%_))) - (let ((_%lp-hd7271272798%_ + (if (not (let () (declare (not safe)) (##fx= _g84342_ 2))) + (error "Context expects 2 values" _g84342_))) + (let ((_%target7277072841%_ + (let () (declare (not safe)) (##values-ref _g84341_ 0))) + (_%tl7277272844%_ + (let () (declare (not safe)) (##values-ref _g84341_ 1)))) + (if (gx#stx-null? _%tl7277272844%_) + (letrec ((_%loop7277372847%_ + (lambda (_%hd7277172851%_ + _%mixin-slot-usetf7277772854%_) + (if (gx#stx-pair? _%hd7277172851%_) + (let ((_%e7277472857%_ + (gx#syntax-e _%hd7277172851%_))) + (let ((_%lp-hd7277572861%_ (let () (declare (not safe)) - (##car _%e7271172794%_))) - (_%lp-tl7271372801%_ + (##car _%e7277472857%_))) + (_%lp-tl7277672864%_ (let () (declare (not safe)) - (##cdr _%e7271172794%_)))) - (_%loop7271072784%_ - _%lp-tl7271372801%_ - (cons _%lp-hd7271272798%_ - _%mixin-slot-usetf7271472791%_)))) - (let ((_%mixin-slot-usetf7271572804%_ - (reverse _%mixin-slot-usetf7271472791%_))) - (if (gx#stx-null? _%tl7270672775%_) - ((lambda (_%L72808%_ _%L72810%_) + (##cdr _%e7277472857%_)))) + (_%loop7277372847%_ + _%lp-tl7277672864%_ + (cons _%lp-hd7277572861%_ + _%mixin-slot-usetf7277772854%_)))) + (let ((_%mixin-slot-usetf7277872867%_ + (reverse _%mixin-slot-usetf7277772854%_))) + (if (gx#stx-null? _%tl7276972838%_) + ((lambda (_%L72871%_ _%L72873%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7283372838%_ + (foldr (lambda (_%g7289672901%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7283472841%_) - (cons _%g7283372838%_ _%g7283472841%_)) - (foldr (lambda (_%g7283572844%_ _%g7283672847%_) - (cons _%g7283572844%_ _%g7283672847%_)) + _%g7289772904%_) + (cons _%g7289672901%_ _%g7289772904%_)) + (foldr (lambda (_%g7289872907%_ _%g7289972910%_) + (cons _%g7289872907%_ _%g7289972910%_)) '() - _%L72808%_) - _%L72810%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot-usetf7271572804%_ - _%slot-usetf7270372764%_) - (_%g7268872721%_ - _%g7268972725%_))))))) - (_%loop7271072784%_ _%target7270772778%_ '())) - (_%g7268872721%_ _%g7268972725%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7268872721%_ - _%g7268972725%_)))) - (_%g7268872721%_ - _%g7268972725%_))))))) - (_%loop7269872744%_ _%target7269572738%_ '())) - (_%g7268872721%_ _%g7268972725%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7268872721%_ - _%g7268972725%_)))) - (_%g7268872721%_ _%g7268972725%_))))) - (_%g7268772850%_ - (list (map _%map-slot-usetf71853%_ - (foldr (lambda (_%g7285372856%_ - _%g7285472859%_) - (cons _%g7285372856%_ - _%g7285472859%_)) + _%L72871%_) + _%L72873%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-slot-usetf7277872867%_ + _%slot-usetf7276672827%_) + (_%g7275172784%_ + _%g7275272788%_))))))) + (_%loop7277372847%_ _%target7277072841%_ '())) + (_%g7275172784%_ _%g7275272788%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7275172784%_ + _%g7275272788%_)))) + (_%g7275172784%_ + _%g7275272788%_))))))) + (_%loop7276172807%_ _%target7275872801%_ '())) + (_%g7275172784%_ _%g7275272788%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7275172784%_ + _%g7275272788%_)))) + (_%g7275172784%_ _%g7275272788%_))))) + (_%g7275072913%_ + (list (map _%map-slot-usetf71916%_ + (foldr (lambda (_%g7291672919%_ + _%g7291772922%_) + (cons _%g7291672919%_ + _%g7291772922%_)) '() - _%L69904%_) - (foldr (lambda (_%g7286172864%_ - _%g7286272867%_) - (cons _%g7286172864%_ - _%g7286272867%_)) + _%L69967%_) + (foldr (lambda (_%g7292472927%_ + _%g7292572930%_) + (cons _%g7292472927%_ + _%g7292572930%_)) '() - _%L70614%_) - (foldr (lambda (_%g7286972872%_ - _%g7287072875%_) - (cons _%g7286972872%_ - _%g7287072875%_)) + _%L70677%_) + (foldr (lambda (_%g7293272935%_ + _%g7293372938%_) + (cons _%g7293272935%_ + _%g7293372938%_)) '() - _%L70188%_)) - (map _%map-slot-usetf71853%_ - (foldr (lambda (_%g7287772880%_ - _%g7287872883%_) - (cons _%g7287772880%_ - _%g7287872883%_)) + _%L70251%_)) + (map _%map-slot-usetf71916%_ + (foldr (lambda (_%g7294072943%_ + _%g7294172946%_) + (cons _%g7294072943%_ + _%g7294172946%_)) '() - _%L70259%_) - (foldr (lambda (_%g7288572888%_ - _%g7288672891%_) - (cons _%g7288572888%_ - _%g7288672891%_)) + _%L70322%_) + (foldr (lambda (_%g7294872951%_ + _%g7294972954%_) + (cons _%g7294872951%_ + _%g7294972954%_)) '() - _%L70756%_) - (foldr (lambda (_%g7289372896%_ - _%g7289472899%_) - (cons _%g7289372896%_ - _%g7289472899%_)) + _%L70819%_) + (foldr (lambda (_%g7295672959%_ + _%g7295772962%_) + (cons _%g7295672959%_ + _%g7295772962%_)) '() - _%L70472%_)))))))) - _%g7182171832%_)))) - (_%g7181972902%_ + _%L70535%_)))))))) + _%g7188471895%_)))) + (_%g7188272965%_ (cons (gx#datum->syntax '#f '@list) (begin - (gx#syntax-check-splice-targets _%L70117%_ _%L69904%_) - (foldr (lambda (_%g7290572912%_ - _%g7290672915%_ - _%g7290772917%_) + (gx#syntax-check-splice-targets _%L70180%_ _%L69967%_) + (foldr (lambda (_%g7296872975%_ + _%g7296972978%_ + _%g7297072980%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7290672915%_ + (cons _%g7296972978%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7290572912%_ '())) + (cons _%g7296872975%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7290772917%_)) + _%g7297072980%_)) (begin (gx#syntax-check-splice-targets - _%L70401%_ - _%L70259%_) - (foldr (lambda (_%g7290872920%_ - _%g7290972923%_ - _%g7291072925%_) + _%L70464%_ + _%L70322%_) + (foldr (lambda (_%g7297172983%_ + _%g7297272986%_ + _%g7297372988%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11830,76 +11830,76 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7290972923%_ '())) + (cons _%g7297272986%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7290872920%_ '())) + (cons _%g7297172983%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7291072925%_)) + _%g7297372988%_)) '() - _%L70401%_ - _%L70259%_)) - _%L70117%_ - _%L69904%_)))))) + _%L70464%_ + _%L70322%_)) + _%L70180%_ + _%L69967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7179371804%_)))) - (_%g7179172928%_ + _%g7185671867%_)))) + (_%g7185472991%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70543%_ - _%L69904%_) - (foldr (lambda (_%g7293172938%_ + _%L70606%_ + _%L69967%_) + (foldr (lambda (_%g7299473001%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7293272941%_ - _%g7293372943%_) + _%g7299573004%_ + _%g7299673006%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7293272941%_ '())) + (cons _%g7299573004%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7293172938%_ + (cons _%g7299473001%_ '())) '())))) - _%g7293372943%_)) + _%g7299673006%_)) (begin - (gx#syntax-check-splice-targets _%L70685%_ _%L70259%_) - (foldr (lambda (_%g7293472946%_ - _%g7293572949%_ - _%g7293672951%_) + (gx#syntax-check-splice-targets _%L70748%_ _%L70322%_) + (foldr (lambda (_%g7299773009%_ + _%g7299873012%_ + _%g7299973014%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7293572949%_ '())) + (cons _%g7299873012%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g7293472946%_ '())) + (cons _%g7299773009%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7293672951%_)) + _%g7299973014%_)) '() - _%L70685%_ - _%L70259%_)) - _%L70543%_ - _%L69904%_)))))) + _%L70748%_ + _%L70322%_)) + _%L70606%_ + _%L69967%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7176571776%_)))) - (_%g7176372954%_ + _%g7182871839%_)))) + (_%g7182673017%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L70046%_ - _%L69904%_) - (foldr (lambda (_%g7295772964%_ - _%g7295872967%_ - _%g7295972969%_) + _%L70109%_ + _%L69967%_) + (foldr (lambda (_%g7302073027%_ + _%g7302173030%_ + _%g7302273032%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -11907,454 +11907,454 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7295872967%_ '())) + (cons _%g7302173030%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7295772964%_ '())) + (cons _%g7302073027%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7295972969%_)) + _%g7302273032%_)) (begin (gx#syntax-check-splice-targets - _%L70330%_ - _%L70259%_) - (foldr (lambda (_%g7296072972%_ - _%g7296172975%_ - _%g7296272977%_) + _%L70393%_ + _%L70322%_) + (foldr (lambda (_%g7302373035%_ + _%g7302473038%_ + _%g7302573040%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7296172975%_ '())) + (cons _%g7302473038%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7296072972%_ '())) + (cons _%g7302373035%_ '())) '())))) - _%g7296272977%_)) + _%g7302573040%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L70330%_ - _%L70259%_)) - _%L70046%_ - _%L69904%_)))))) - _%g7173771748%_)))) - (_%g7173572980%_ + _%L70393%_ + _%L70322%_)) + _%L70109%_ + _%L69967%_)))))) + _%g7180071811%_)))) + (_%g7179873043%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69809%_ '()))))) + (cons _%L69872%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7170971720%_)))) - (_%g7170772984%_ + _%g7177271783%_)))) + (_%g7177073047%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69781%_ '()))))) - _%g7168171692%_)))) - (_%g7167972988%_ + (cons _%L69844%_ '()))))) + _%g7174471755%_)))) + (_%g7174273051%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L69753%_ '()))))) - _%g7165371664%_)))) - (_%g7165172992%_ - (if (null? _%type-constructor71094%_) + (cons _%L69816%_ '()))))) + _%g7171671727%_)))) + (_%g7171473055%_ + (if (null? _%type-constructor71157%_) '#f - (let* ((_%g7299673011%_ - (lambda (_%g7299773007%_) + (let* ((_%g7305973074%_ + (lambda (_%g7306073070%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7299773007%_))) - (_%g7299573059%_ - (lambda (_%g7299773015%_) - (if (gx#stx-pair? _%g7299773015%_) - (let ((_%e7299973018%_ - (gx#syntax-e _%g7299773015%_))) - (let ((_%hd7300073022%_ + _%g7306073070%_))) + (_%g7305873122%_ + (lambda (_%g7306073078%_) + (if (gx#stx-pair? _%g7306073078%_) + (let ((_%e7306273081%_ + (gx#syntax-e _%g7306073078%_))) + (let ((_%hd7306373085%_ (let () (declare (not safe)) - (##car _%e7299973018%_))) - (_%tl7300173025%_ + (##car _%e7306273081%_))) + (_%tl7306473088%_ (let () (declare (not safe)) - (##cdr _%e7299973018%_)))) - (if (gx#stx-datum? _%hd7300073022%_) - (let ((_%e7300273028%_ - (gx#stx-e _%hd7300073022%_))) - (if (equal? _%e7300273028%_ + (##cdr _%e7306273081%_)))) + (if (gx#stx-datum? _%hd7306373085%_) + (let ((_%e7306573091%_ + (gx#stx-e _%hd7306373085%_))) + (if (equal? _%e7306573091%_ 'constructor:) (if (gx#stx-pair? - _%tl7300173025%_) - (let ((_%e7300373032%_ + _%tl7306473088%_) + (let ((_%e7306673095%_ (gx#syntax-e - _%tl7300173025%_))) - (let ((_%hd7300473036%_ + _%tl7306473088%_))) + (let ((_%hd7306773099%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7300373032%_))) - (_%tl7300573039%_ - (let () (declare (not safe)) (##cdr _%e7300373032%_)))) - (if (gx#stx-null? _%tl7300573039%_) - ((lambda (_%L73042%_) + (##car _%e7306673095%_))) + (_%tl7306873102%_ + (let () (declare (not safe)) (##cdr _%e7306673095%_)))) + (if (gx#stx-null? _%tl7306873102%_) + ((lambda (_%L73105%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73042%_ '()))) - _%hd7300473036%_) - (_%g7299673011%_ _%g7299773015%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7299673011%_ - _%g7299773015%_)) - (_%g7299673011%_ - _%g7299773015%_))) - (_%g7299673011%_ _%g7299773015%_)))) - (_%g7299673011%_ _%g7299773015%_))))) - (_%g7299573059%_ _%type-constructor71094%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7162571636%_)))) - (_%g7162373063%_ - (if _%metaclass71198%_ - (let* ((_%g7306773075%_ - (lambda (_%g7306873071%_) + (cons _%L73105%_ '()))) + _%hd7306773099%_) + (_%g7305973074%_ _%g7306073078%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7305973074%_ + _%g7306073078%_)) + (_%g7305973074%_ + _%g7306073078%_))) + (_%g7305973074%_ _%g7306073078%_)))) + (_%g7305973074%_ _%g7306073078%_))))) + (_%g7305873122%_ _%type-constructor71157%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7168871699%_)))) + (_%g7168673126%_ + (if _%metaclass71261%_ + (let* ((_%g7313073138%_ + (lambda (_%g7313173134%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7306873071%_))) - (_%g7306673094%_ - (lambda (_%g7306873079%_) - ((lambda (_%L73082%_) + _%g7313173134%_))) + (_%g7312973157%_ + (lambda (_%g7313173142%_) + ((lambda (_%L73145%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L73082%_ '()))) - _%g7306873079%_)))) + (cons _%L73145%_ '()))) + _%g7313173142%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7306673094%_ - _%metaclass71198%_)) + (_%g7312973157%_ + _%metaclass71261%_)) '#f)))) - _%g7159771608%_)))) - (_%g7159573098%_ _%final?71201%_))) - _%g7156971580%_)))) - (_%g7156773102%_ _%struct?69697%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7154171552%_)))) - (_%g7153973106%_ - (let* ((_%g7311073133%_ - (lambda (_%g7311173129%_) + _%g7166071671%_)))) + (_%g7165873161%_ _%final?71264%_))) + _%g7163271643%_)))) + (_%g7163073165%_ _%struct?69760%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g7160471615%_)))) + (_%g7160273169%_ + (let* ((_%g7317373196%_ + (lambda (_%g7317473192%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7311173129%_))) - (_%g7310973213%_ - (lambda (_%g7311173137%_) + _%g7317473192%_))) + (_%g7317273276%_ + (lambda (_%g7317473200%_) (if (gx#stx-pair/null? - _%g7311173137%_) - (let ((_g84280_ + _%g7317473200%_) + (let ((_g84343_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g7311173137%_ '0))) + (gx#syntax-split-splice _%g7317473200%_ '0))) (begin - (let ((_g84281_ + (let ((_g84344_ (let () (declare (not safe)) - (if (##values? _g84280_) - (##vector-length _g84280_) + (if (##values? _g84343_) + (##values-length _g84343_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84281_ 2))) - (error "Context expects 2 values" _g84281_))) - (let ((_%target7311473140%_ + (##fx= _g84344_ 2))) + (error "Context expects 2 values" _g84344_))) + (let ((_%target7317773203%_ (let () (declare (not safe)) - (##vector-ref _g84280_ 0))) - (_%tl7311673143%_ + (##values-ref _g84343_ 0))) + (_%tl7317973206%_ (let () (declare (not safe)) - (##vector-ref _g84280_ 1)))) - (if (gx#stx-null? _%tl7311673143%_) - (letrec ((_%loop7311773146%_ - (lambda (_%hd7311573150%_ - _%default7312173153%_ - _%slot7312273155%_) - (if (gx#stx-pair? _%hd7311573150%_) - (let ((_%e7311873158%_ + (##values-ref _g84343_ 1)))) + (if (gx#stx-null? _%tl7317973206%_) + (letrec ((_%loop7318073209%_ + (lambda (_%hd7317873213%_ + _%default7318473216%_ + _%slot7318573218%_) + (if (gx#stx-pair? _%hd7317873213%_) + (let ((_%e7318173221%_ (gx#syntax-e - _%hd7311573150%_))) - (let ((_%lp-hd7311973162%_ + _%hd7317873213%_))) + (let ((_%lp-hd7318273225%_ (let () (declare (not safe)) - (##car _%e7311873158%_))) - (_%lp-tl7312073165%_ + (##car _%e7318173221%_))) + (_%lp-tl7318373228%_ (let () (declare (not safe)) - (##cdr _%e7311873158%_)))) + (##cdr _%e7318173221%_)))) (if (gx#stx-pair? - _%lp-hd7311973162%_) - (let ((_%e7312573168%_ + _%lp-hd7318273225%_) + (let ((_%e7318873231%_ (gx#syntax-e - _%lp-hd7311973162%_))) - (let ((_%hd7312673172%_ + _%lp-hd7318273225%_))) + (let ((_%hd7318973235%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e7312573168%_))) - (_%tl7312773175%_ - (let () (declare (not safe)) (##cdr _%e7312573168%_)))) - (_%loop7311773146%_ - _%lp-tl7312073165%_ - (cons _%tl7312773175%_ _%default7312173153%_) - (cons _%hd7312673172%_ _%slot7312273155%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7311073133%_ - _%g7311173137%_)))) - (let ((_%default7312373178%_ - (reverse _%default7312173153%_)) - (_%slot7312473181%_ - (reverse _%slot7312273155%_))) - ((lambda (_%L73184%_ _%L73186%_) + (##car _%e7318873231%_))) + (_%tl7319073238%_ + (let () (declare (not safe)) (##cdr _%e7318873231%_)))) + (_%loop7318073209%_ + _%lp-tl7318373228%_ + (cons _%tl7319073238%_ _%default7318473216%_) + (cons _%hd7318973235%_ _%slot7318573218%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7317373196%_ + _%g7317473200%_)))) + (let ((_%default7318673241%_ + (reverse _%default7318473216%_)) + (_%slot7318773244%_ + (reverse _%slot7318573218%_))) + ((lambda (_%L73247%_ _%L73249%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73184%_ - _%L73186%_) - (foldr (lambda (_%g7320173205%_ + _%L73247%_ + _%L73249%_) + (foldr (lambda (_%g7326473268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7320273208%_ - _%g7320373210%_) + _%g7326573271%_ + _%g7326673273%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7320273208%_ '())) + (cons _%g7326573271%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7320173205%_ + (cons _%g7326473268%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7320373210%_)) + _%g7326673273%_)) '() - _%L73184%_ - _%L73186%_)))) + _%L73247%_ + _%L73249%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default7312373178%_ - _%slot7312473181%_)))))) - (_%loop7311773146%_ - _%target7311473140%_ + _%default7318673241%_ + _%slot7318773244%_)))))) + (_%loop7318073209%_ + _%target7317773203%_ '() '())) - (_%g7311073133%_ _%g7311173137%_))))) - (_%g7311073133%_ _%g7311173137%_))))) + (_%g7317373196%_ _%g7317473200%_))))) + (_%g7317373196%_ _%g7317473200%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7310973213%_ + (_%g7317273276%_ (hash->list - _%slot-default-table69674%_)))))) - _%g7151371524%_)))) - (_%g7151173217%_ - (let* ((_%g7322173244%_ - (lambda (_%g7322273240%_) + _%slot-default-table69737%_)))))) + _%g7157671587%_)))) + (_%g7157473280%_ + (let* ((_%g7328473307%_ + (lambda (_%g7328573303%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7322273240%_))) - (_%g7322073324%_ - (lambda (_%g7322273248%_) + _%g7328573303%_))) + (_%g7328373387%_ + (lambda (_%g7328573311%_) (if (gx#stx-pair/null? - _%g7322273248%_) - (let ((_g84282_ + _%g7328573311%_) + (let ((_g84345_ (gx#syntax-split-splice - _%g7322273248%_ + _%g7328573311%_ '0))) (begin - (let ((_g84283_ + (let ((_g84346_ (let () (declare (not safe)) (if (##values? - _g84282_) - (##vector-length - _g84282_) + _g84345_) + (##values-length + _g84345_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84283_ 2))) - (error "Context expects 2 values" _g84283_))) + (##fx= _g84346_ 2))) + (error "Context expects 2 values" _g84346_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7322573251%_ + (let ((_%target7328873314%_ (let () (declare (not safe)) - (##vector-ref - _g84282_ + (##values-ref + _g84345_ 0))) - (_%tl7322773254%_ + (_%tl7329073317%_ (let () (declare (not safe)) - (##vector-ref - _g84282_ + (##values-ref + _g84345_ 1)))) (if (gx#stx-null? - _%tl7322773254%_) - (letrec ((_%loop7322873257%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7322673261%_ - _%contract7323273264%_ - _%slot7323373266%_) - (if (gx#stx-pair? _%hd7322673261%_) - (let ((_%e7322973269%_ - (gx#syntax-e _%hd7322673261%_))) - (let ((_%lp-hd7323073273%_ + _%tl7329073317%_) + (letrec ((_%loop7329173320%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7328973324%_ + _%contract7329573327%_ + _%slot7329673329%_) + (if (gx#stx-pair? _%hd7328973324%_) + (let ((_%e7329273332%_ + (gx#syntax-e _%hd7328973324%_))) + (let ((_%lp-hd7329373336%_ (let () (declare (not safe)) - (##car _%e7322973269%_))) - (_%lp-tl7323173276%_ + (##car _%e7329273332%_))) + (_%lp-tl7329473339%_ (let () (declare (not safe)) - (##cdr _%e7322973269%_)))) - (if (gx#stx-pair? _%lp-hd7323073273%_) - (let ((_%e7323673279%_ + (##cdr _%e7329273332%_)))) + (if (gx#stx-pair? _%lp-hd7329373336%_) + (let ((_%e7329973342%_ (gx#syntax-e - _%lp-hd7323073273%_))) - (let ((_%hd7323773283%_ + _%lp-hd7329373336%_))) + (let ((_%hd7330073346%_ (let () (declare (not safe)) - (##car _%e7323673279%_))) - (_%tl7323873286%_ + (##car _%e7329973342%_))) + (_%tl7330173349%_ (let () (declare (not safe)) - (##cdr _%e7323673279%_)))) - (_%loop7322873257%_ - _%lp-tl7323173276%_ - (cons _%tl7323873286%_ - _%contract7323273264%_) - (cons _%hd7323773283%_ - _%slot7323373266%_)))) - (_%g7322173244%_ _%g7322273248%_)))) - (let ((_%contract7323473289%_ - (reverse _%contract7323273264%_)) - (_%slot7323573292%_ - (reverse _%slot7323373266%_))) - ((lambda (_%L73295%_ _%L73297%_) + (##cdr _%e7329973342%_)))) + (_%loop7329173320%_ + _%lp-tl7329473339%_ + (cons _%tl7330173349%_ + _%contract7329573327%_) + (cons _%hd7330073346%_ + _%slot7329673329%_)))) + (_%g7328473307%_ _%g7328573311%_)))) + (let ((_%contract7329773352%_ + (reverse _%contract7329573327%_)) + (_%slot7329873355%_ + (reverse _%slot7329673329%_))) + ((lambda (_%L73358%_ _%L73360%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73295%_ - _%L73297%_) - (foldr (lambda (_%g7331273316%_ - _%g7331373319%_ - _%g7331473321%_) + _%L73358%_ + _%L73360%_) + (foldr (lambda (_%g7337573379%_ + _%g7337673382%_ + _%g7337773384%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7331373319%_ '())) + (cons _%g7337673382%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g7331273316%_ '())) + (cons _%g7337573379%_ '())) '())))) - _%g7331473321%_)) + _%g7337773384%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L73295%_ - _%L73297%_)))) - _%contract7323473289%_ - _%slot7323573292%_)))))) - (_%loop7322873257%_ _%target7322573251%_ '() '())) - (_%g7322173244%_ _%g7322273248%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7322173244%_ - _%g7322273248%_))))) - (_%g7322073324%_ + _%L73358%_ + _%L73360%_)))) + _%contract7329773352%_ + _%slot7329873355%_)))))) + (_%loop7329173320%_ _%target7328873314%_ '() '())) + (_%g7328473307%_ _%g7328573311%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7328473307%_ + _%g7328573311%_))))) + (_%g7328373387%_ (hash->list - _%slot-contract-table69671%_)))))) - _%g7148571496%_)))) - (_%g7148373328%_ - (let* ((_%g7333273355%_ - (lambda (_%g7333373351%_) + _%slot-contract-table69734%_)))))) + _%g7154871559%_)))) + (_%g7154673391%_ + (let* ((_%g7339573418%_ + (lambda (_%g7339673414%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7333373351%_))) - (_%g7333173435%_ - (lambda (_%g7333373359%_) - (if (gx#stx-pair/null? _%g7333373359%_) - (let ((_g84284_ + _%g7339673414%_))) + (_%g7339473498%_ + (lambda (_%g7339673422%_) + (if (gx#stx-pair/null? _%g7339673422%_) + (let ((_g84347_ (gx#syntax-split-splice - _%g7333373359%_ + _%g7339673422%_ '0))) (begin - (let ((_g84285_ + (let ((_g84348_ (let () (declare (not safe)) - (if (##values? _g84284_) - (##vector-length _g84284_) + (if (##values? _g84347_) + (##values-length _g84347_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84285_ 2))) + (##fx= _g84348_ 2))) (error "Context expects 2 values" - _g84285_))) - (let ((_%target7333673362%_ + _g84348_))) + (let ((_%target7339973425%_ (let () (declare (not safe)) - (##vector-ref _g84284_ 0))) - (_%tl7333873365%_ + (##values-ref _g84347_ 0))) + (_%tl7340173428%_ (let () (declare (not safe)) - (##vector-ref _g84284_ 1)))) - (if (gx#stx-null? _%tl7333873365%_) - (letrec ((_%loop7333973368%_ - (lambda (_%hd7333773372%_ - _%type7334373375%_ - _%slot7334473377%_) + (##values-ref _g84347_ 1)))) + (if (gx#stx-null? _%tl7340173428%_) + (letrec ((_%loop7340273431%_ + (lambda (_%hd7340073435%_ + _%type7340673438%_ + _%slot7340773440%_) (if (gx#stx-pair? - _%hd7333773372%_) - (let ((_%e7334073380%_ + _%hd7340073435%_) + (let ((_%e7340373443%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7333773372%_))) - (let ((_%lp-hd7334173384%_ + (gx#syntax-e _%hd7340073435%_))) + (let ((_%lp-hd7340473447%_ (let () (declare (not safe)) - (##car _%e7334073380%_))) - (_%lp-tl7334273387%_ + (##car _%e7340373443%_))) + (_%lp-tl7340573450%_ (let () (declare (not safe)) - (##cdr _%e7334073380%_)))) - (if (gx#stx-pair? _%lp-hd7334173384%_) - (let ((_%e7334773390%_ - (gx#syntax-e _%lp-hd7334173384%_))) - (let ((_%hd7334873394%_ + (##cdr _%e7340373443%_)))) + (if (gx#stx-pair? _%lp-hd7340473447%_) + (let ((_%e7341073453%_ + (gx#syntax-e _%lp-hd7340473447%_))) + (let ((_%hd7341173457%_ (let () (declare (not safe)) - (##car _%e7334773390%_))) - (_%tl7334973397%_ + (##car _%e7341073453%_))) + (_%tl7341273460%_ (let () (declare (not safe)) - (##cdr _%e7334773390%_)))) - (_%loop7333973368%_ - _%lp-tl7334273387%_ - (cons _%tl7334973397%_ _%type7334373375%_) - (cons _%hd7334873394%_ _%slot7334473377%_)))) - (_%g7333273355%_ _%g7333373359%_)))) - (let ((_%type7334573400%_ (reverse _%type7334373375%_)) - (_%slot7334673403%_ (reverse _%slot7334473377%_))) - ((lambda (_%L73406%_ _%L73408%_) + (##cdr _%e7341073453%_)))) + (_%loop7340273431%_ + _%lp-tl7340573450%_ + (cons _%tl7341273460%_ _%type7340673438%_) + (cons _%hd7341173457%_ _%slot7340773440%_)))) + (_%g7339573418%_ _%g7339673422%_)))) + (let ((_%type7340873463%_ (reverse _%type7340673438%_)) + (_%slot7340973466%_ (reverse _%slot7340773440%_))) + ((lambda (_%L73469%_ _%L73471%_) (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L73406%_ - _%L73408%_) - (foldr (lambda (_%g7342373427%_ - _%g7342473430%_ - _%g7342573432%_) + _%L73469%_ + _%L73471%_) + (foldr (lambda (_%g7348673490%_ + _%g7348773493%_ + _%g7348873495%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -12362,239 +12362,239 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g7342473430%_ '())) + (cons _%g7348773493%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7342373427%_ '())) + (cons _%g7348673490%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7342573432%_)) + _%g7348873495%_)) '() - _%L73406%_ - _%L73408%_)))) - _%type7334573400%_ - _%slot7334673403%_)))))) + _%L73469%_ + _%L73471%_)))) + _%type7340873463%_ + _%slot7340973466%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7333973368%_ - _%target7333673362%_ + (_%loop7340273431%_ + _%target7339973425%_ '() '())) - (_%g7333273355%_ - _%g7333373359%_))))) - (_%g7333273355%_ _%g7333373359%_))))) - (_%g7333173435%_ - (filter (lambda (_%st73439%_) (cdr _%st73439%_)) - (hash->list _%slot-type-table69669%_))))))) - _%g7145771468%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7145573442%_ + (_%g7339573418%_ + _%g7339673422%_))))) + (_%g7339573418%_ _%g7339673422%_))))) + (_%g7339473498%_ + (filter (lambda (_%st73502%_) (cdr _%st73502%_)) + (hash->list _%slot-type-table69732%_))))))) + _%g7152071531%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7151873505%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7344573448%_ + (cons (foldr (lambda (_%g7350873511%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7344673451%_) - (cons _%g7344573448%_ _%g7344673451%_)) + _%g7350973514%_) + (cons _%g7350873511%_ _%g7350973514%_)) '() - _%L69975%_) + _%L70038%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7142971440%_)))) - (_%g7142773454%_ + _%g7149271503%_)))) + (_%g7149073517%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g7345773460%_ - _%g7345873463%_) - (cons _%g7345773460%_ - _%g7345873463%_)) + (cons (foldr (lambda (_%g7352073523%_ + _%g7352173526%_) + (cons _%g7352073523%_ + _%g7352173526%_)) '() - _%L69904%_) + _%L69967%_) '()))))) - _%g7140171412%_)))) - (_%g7139973466%_ - (let* ((_%g7347073487%_ - (lambda (_%g7347173483%_) + _%g7146471475%_)))) + (_%g7146273529%_ + (let* ((_%g7353373550%_ + (lambda (_%g7353473546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7347173483%_))) - (_%g7346973548%_ - (lambda (_%g7347173491%_) - (if (gx#stx-pair/null? _%g7347173491%_) - (let ((_g84286_ + _%g7353473546%_))) + (_%g7353273611%_ + (lambda (_%g7353473554%_) + (if (gx#stx-pair/null? _%g7353473554%_) + (let ((_g84349_ (gx#syntax-split-splice - _%g7347173491%_ + _%g7353473554%_ '0))) (begin - (let ((_g84287_ + (let ((_g84350_ (let () (declare (not safe)) - (if (##values? _g84286_) - (##vector-length _g84286_) + (if (##values? _g84349_) + (##values-length _g84349_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84287_ 2))) + (##fx= _g84350_ 2))) (error "Context expects 2 values" - _g84287_))) - (let ((_%target7347373494%_ + _g84350_))) + (let ((_%target7353673557%_ (let () (declare (not safe)) - (##vector-ref _g84286_ 0))) - (_%tl7347573497%_ + (##values-ref _g84349_ 0))) + (_%tl7353873560%_ (let () (declare (not safe)) - (##vector-ref _g84286_ 1)))) - (if (gx#stx-null? _%tl7347573497%_) - (letrec ((_%loop7347673500%_ - (lambda (_%hd7347473504%_ - _%super-id7348073507%_) + (##values-ref _g84349_ 1)))) + (if (gx#stx-null? _%tl7353873560%_) + (letrec ((_%loop7353973563%_ + (lambda (_%hd7353773567%_ + _%super-id7354373570%_) (if (gx#stx-pair? - _%hd7347473504%_) - (let ((_%e7347773510%_ + _%hd7353773567%_) + (let ((_%e7354073573%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd7347473504%_))) - (let ((_%lp-hd7347873514%_ + (gx#syntax-e _%hd7353773567%_))) + (let ((_%lp-hd7354173577%_ (let () (declare (not safe)) - (##car _%e7347773510%_))) - (_%lp-tl7347973517%_ + (##car _%e7354073573%_))) + (_%lp-tl7354273580%_ (let () (declare (not safe)) - (##cdr _%e7347773510%_)))) - (_%loop7347673500%_ - _%lp-tl7347973517%_ - (cons _%lp-hd7347873514%_ _%super-id7348073507%_)))) - (let ((_%super-id7348173520%_ - (reverse _%super-id7348073507%_))) - ((lambda (_%L73524%_) + (##cdr _%e7354073573%_)))) + (_%loop7353973563%_ + _%lp-tl7354273580%_ + (cons _%lp-hd7354173577%_ _%super-id7354373570%_)))) + (let ((_%super-id7354473583%_ + (reverse _%super-id7354373570%_))) + ((lambda (_%L73587%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g7353973542%_ _%g7354073545%_) + (foldr (lambda (_%g7360273605%_ _%g7360373608%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g7353973542%_ '())) - _%g7354073545%_)) + (cons _%g7360273605%_ '())) + _%g7360373608%_)) '() - _%L73524%_))) - _%super-id7348173520%_)))))) + _%L73587%_))) + _%super-id7354473583%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7347673500%_ - _%target7347373494%_ + (_%loop7353973563%_ + _%target7353673557%_ '())) - (_%g7347073487%_ - _%g7347173491%_))))) - (_%g7347073487%_ _%g7347173491%_))))) - (_%g7346973548%_ _%super-ref69660%_))))) - _%g7137371384%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7137173552%_ - (let* ((_%g7355673564%_ - (lambda (_%g7355773560%_) + (_%g7353373550%_ + _%g7353473554%_))))) + (_%g7353373550%_ _%g7353473554%_))))) + (_%g7353273611%_ _%super-ref69723%_))))) + _%g7143671447%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7143473615%_ + (let* ((_%g7361973627%_ + (lambda (_%g7362073623%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7355773560%_))) - (_%g7355573583%_ - (lambda (_%g7355773568%_) - ((lambda (_%L73571%_) + _%g7362073623%_))) + (_%g7361873646%_ + (lambda (_%g7362073631%_) + ((lambda (_%L73634%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L73571%_ '()))) - _%g7355773568%_)))) + (cons _%L73634%_ '()))) + _%g7362073631%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7355573583%_ + (_%g7361873646%_ (gx#stx-car (gx#stx-cdr - _%type-name71072%_))))))) - _%g7134571356%_)))) - (_%g7134373587%_ - (let* ((_%g7359173606%_ - (lambda (_%g7359273602%_) + _%type-name71135%_))))))) + _%g7140871419%_)))) + (_%g7140673650%_ + (let* ((_%g7365473669%_ + (lambda (_%g7365573665%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7359273602%_))) - (_%g7359073654%_ - (lambda (_%g7359273610%_) - (if (gx#stx-pair? _%g7359273610%_) - (let ((_%e7359473613%_ + _%g7365573665%_))) + (_%g7365373717%_ + (lambda (_%g7365573673%_) + (if (gx#stx-pair? _%g7365573673%_) + (let ((_%e7365773676%_ (gx#syntax-e - _%g7359273610%_))) - (let ((_%hd7359573617%_ + _%g7365573673%_))) + (let ((_%hd7365873680%_ (let () (declare (not safe)) - (##car _%e7359473613%_))) - (_%tl7359673620%_ + (##car _%e7365773676%_))) + (_%tl7365973683%_ (let () (declare (not safe)) - (##cdr _%e7359473613%_)))) + (##cdr _%e7365773676%_)))) (if (gx#stx-datum? - _%hd7359573617%_) - (let ((_%e7359773623%_ + _%hd7365873680%_) + (let ((_%e7366073686%_ (gx#stx-e - _%hd7359573617%_))) - (if (equal? _%e7359773623%_ + _%hd7365873680%_))) + (if (equal? _%e7366073686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'id:) - (if (gx#stx-pair? _%tl7359673620%_) - (let ((_%e7359873627%_ - (gx#syntax-e _%tl7359673620%_))) - (let ((_%hd7359973631%_ + (if (gx#stx-pair? _%tl7365973683%_) + (let ((_%e7366173690%_ + (gx#syntax-e _%tl7365973683%_))) + (let ((_%hd7366273694%_ (let () (declare (not safe)) - (##car _%e7359873627%_))) - (_%tl7360073634%_ + (##car _%e7366173690%_))) + (_%tl7366373697%_ (let () (declare (not safe)) - (##cdr _%e7359873627%_)))) - (if (gx#stx-null? _%tl7360073634%_) - ((lambda (_%L73637%_) + (##cdr _%e7366173690%_)))) + (if (gx#stx-null? _%tl7366373697%_) + ((lambda (_%L73700%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L73637%_ '()))) - _%hd7359973631%_) - (_%g7359173606%_ _%g7359273610%_)))) - (_%g7359173606%_ _%g7359273610%_)) - (_%g7359173606%_ _%g7359273610%_))) - (_%g7359173606%_ _%g7359273610%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7359173606%_ - _%g7359273610%_))))) - (_%g7359073654%_ _%type-id71079%_))))) - _%g7131771328%_)))) - (_%g7131573658%_ - (_%wrap69523%_ + (cons _%L73700%_ '()))) + _%hd7366273694%_) + (_%g7365473669%_ _%g7365573673%_)))) + (_%g7365473669%_ _%g7365573673%_)) + (_%g7365473669%_ _%g7365573673%_))) + (_%g7365473669%_ _%g7365573673%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7365473669%_ + _%g7365573673%_))))) + (_%g7365373717%_ _%type-id71142%_))))) + _%g7138071391%_)))) + (_%g7137873721%_ + (_%wrap69586%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L69753%_ - (cons _%L69837%_ - (cons _%L71303%_ - (cons _%L69809%_ - (foldr (lambda (_%g7366173664%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7366273667%_) - (cons _%g7366173664%_ _%g7366273667%_)) + (cons _%L69816%_ + (cons _%L69900%_ + (cons _%L71366%_ + (cons _%L69872%_ + (foldr (lambda (_%g7372473727%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7372573730%_) + (cons _%g7372473727%_ _%g7372573730%_)) '() - _%L71267%_)))))))))) + _%L71330%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7128971300%_)))) + _%g7135271363%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7128773670%_ - (if (or (not (null? _%type-constructor71094%_)) + (_%g7135073733%_ + (if (or (not (null? _%type-constructor71157%_)) (and (zero? (hash-length ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot-contract-table69671%_)) - (zero? (hash-length _%slot-default-table69674%_))) - _%metaclass71198%_) + _%slot-contract-table69734%_)) + (zero? (hash-length _%slot-default-table69737%_))) + _%metaclass71261%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L69781%_ + _%L69844%_ '#f)))) - _%type-body7122471263%_)))))) - (_%loop7121971243%_ _%target7121671237%_ '())) - (_%g7121371230%_ _%g7121471234%_))))) - (_%g7121371230%_ _%g7121471234%_))))) + _%type-body7128771326%_)))))) + (_%loop7128271306%_ _%target7127971300%_ '())) + (_%g7127671293%_ _%g7127771297%_))))) + (_%g7127671293%_ _%g7127771297%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7121273682%_ + (_%g7127573745%_ (foldr cons (foldr cons (foldr cons @@ -12604,1257 +12604,1257 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots71065%_ - _%type-slots70918%_) - _%type-properties71186%_) - _%type-metaclass71210%_) - _%type-final71207%_) - _%type-struct71204%_) - _%type-constructor71094%_) - _%type-name71072%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-id71079%_)))) - _%mixin-usetf7071370752%_)))))) - (_%loop7070870732%_ _%target7070570726%_ '())) - (_%g7070270719%_ _%g7070370723%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7070270719%_ - _%g7070370723%_))))) - (_%g7070173686%_ + _%type-mixin-slots71128%_ + _%type-slots70981%_) + _%type-properties71249%_) + _%type-metaclass71273%_) + _%type-final71270%_) + _%type-struct71267%_) + _%type-constructor71157%_) + _%type-name71135%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%type-id71142%_)))) + _%mixin-usetf7077670815%_)))))) + (_%loop7077170795%_ _%target7076870789%_ '())) + (_%g7076570782%_ _%g7076670786%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7076570782%_ + _%g7076670786%_))))) + (_%g7076473749%_ (gx#stx-map - (lambda (_%g7368973691%_) - (_%make-id69664%_ + (lambda (_%g7375273754%_) + (_%make-id69727%_ '"&" - _%g7368973691%_)) - (foldr (lambda (_%g7369473697%_ - _%g7369573700%_) - (cons _%g7369473697%_ - _%g7369573700%_)) + _%g7375273754%_)) + (foldr (lambda (_%g7375773760%_ + _%g7375873763%_) + (cons _%g7375773760%_ + _%g7375873763%_)) '() - _%L70401%_))))) - _%mixin-ugetf7064270681%_)))))) - (_%loop7063770661%_ _%target7063470655%_ '())) - (_%g7063170648%_ _%g7063270652%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7063170648%_ - _%g7063270652%_))))) - (_%g7063073703%_ + _%L70464%_))))) + _%mixin-ugetf7070570744%_)))))) + (_%loop7070070724%_ _%target7069770718%_ '())) + (_%g7069470711%_ _%g7069570715%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7069470711%_ + _%g7069570715%_))))) + (_%g7069373766%_ (gx#stx-map - (lambda (_%g7370673708%_) - (_%make-id69664%_ '"&" _%g7370673708%_)) - (foldr (lambda (_%g7371173714%_ - _%g7371273717%_) - (cons _%g7371173714%_ - _%g7371273717%_)) + (lambda (_%g7376973771%_) + (_%make-id69727%_ '"&" _%g7376973771%_)) + (foldr (lambda (_%g7377473777%_ + _%g7377573780%_) + (cons _%g7377473777%_ + _%g7377573780%_)) '() - _%L70330%_))))) - _%usetf7057170610%_)))))) + _%L70393%_))))) + _%usetf7063470673%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7056670590%_ - _%target7056370584%_ + (_%loop7062970653%_ + _%target7062670647%_ '())) - (_%g7056070577%_ - _%g7056170581%_))))) - (_%g7056070577%_ _%g7056170581%_))))) - (_%g7055973720%_ + (_%g7062370640%_ + _%g7062470644%_))))) + (_%g7062370640%_ _%g7062470644%_))))) + (_%g7062273783%_ (gx#stx-map - (lambda (_%g7372373725%_) - (_%make-id69664%_ '"&" _%g7372373725%_)) - (foldr (lambda (_%g7372873731%_ _%g7372973734%_) - (cons _%g7372873731%_ _%g7372973734%_)) + (lambda (_%g7378673788%_) + (_%make-id69727%_ '"&" _%g7378673788%_)) + (foldr (lambda (_%g7379173794%_ _%g7379273797%_) + (cons _%g7379173794%_ _%g7379273797%_)) '() - _%L70117%_))))) - _%ugetf7050070539%_)))))) + _%L70180%_))))) + _%ugetf7056370602%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7049570519%_ - _%target7049270513%_ + (_%loop7055870582%_ + _%target7055570576%_ '())) - (_%g7048970506%_ - _%g7049070510%_))))) - (_%g7048970506%_ _%g7049070510%_))))) - (_%g7048873737%_ + (_%g7055270569%_ + _%g7055370573%_))))) + (_%g7055270569%_ _%g7055370573%_))))) + (_%g7055173800%_ (gx#stx-map - (lambda (_%g7374073742%_) - (_%make-id69664%_ '"&" _%g7374073742%_)) - (foldr (lambda (_%g7374573748%_ _%g7374673751%_) - (cons _%g7374573748%_ _%g7374673751%_)) + (lambda (_%g7380373805%_) + (_%make-id69727%_ '"&" _%g7380373805%_)) + (foldr (lambda (_%g7380873811%_ _%g7380973814%_) + (cons _%g7380873811%_ _%g7380973814%_)) '() - _%L70046%_))))) - _%mixin-rawsetf7042970468%_)))))) + _%L70109%_))))) + _%mixin-rawsetf7049270531%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7042470448%_ - _%target7042170442%_ + (_%loop7048770511%_ + _%target7048470505%_ '())) - (_%g7041870435%_ _%g7041970439%_))))) - (_%g7041870435%_ _%g7041970439%_))))) - (_%g7041773754%_ + (_%g7048170498%_ _%g7048270502%_))))) + (_%g7048170498%_ _%g7048270502%_))))) + (_%g7048073817%_ (gx#stx-map - (lambda (_%g7375773759%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7382073822%_) + (_%make-id69727%_ + _%name69754%_ '"-unchecked-" - _%g7375773759%_ + _%g7382073822%_ '"-set!")) - _%mixin-slots69688%_)))) + _%mixin-slots69751%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-setf7035870397%_)))))) - (_%loop7035370377%_ - _%target7035070371%_ + _%mixin-setf7042170460%_)))))) + (_%loop7041670440%_ + _%target7041370434%_ '())) - (_%g7034770364%_ _%g7034870368%_))))) - (_%g7034770364%_ _%g7034870368%_))))) + (_%g7041070427%_ _%g7041170431%_))))) + (_%g7041070427%_ _%g7041170431%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7034673763%_ + (_%g7040973826%_ (gx#stx-map - (lambda (_%g7376673768%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7382973831%_) + (_%make-id69727%_ + _%name69754%_ '"-" - _%g7376673768%_ + _%g7382973831%_ '"-set!")) - _%mixin-slots69688%_)))) - _%mixin-getf7028770326%_)))))) - (_%loop7028270306%_ _%target7027970300%_ '())) - (_%g7027670293%_ _%g7027770297%_))))) - (_%g7027670293%_ _%g7027770297%_))))) + _%mixin-slots69751%_)))) + _%mixin-getf7035070389%_)))))) + (_%loop7034570369%_ _%target7034270363%_ '())) + (_%g7033970356%_ _%g7034070360%_))))) + (_%g7033970356%_ _%g7034070360%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7027573772%_ + (_%g7033873835%_ (gx#stx-map - (lambda (_%g7377573777%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7383873840%_) + (_%make-id69727%_ + _%name69754%_ '"-" - _%g7377573777%_)) - _%mixin-slots69688%_)))) - _%mixin-slot7021670255%_)))))) - (_%loop7021170235%_ _%target7020870229%_ '())) - (_%g7020570222%_ _%g7020670226%_))))) - (_%g7020570222%_ _%g7020670226%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7020473781%_ - _%mixin-slots69688%_))) - _%rawsetf7014570184%_)))))) - (_%loop7014070164%_ _%target7013770158%_ '())) - (_%g7013470151%_ _%g7013570155%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7013470151%_ - _%g7013570155%_))))) - (_%g7013373785%_ + _%g7383873840%_)) + _%mixin-slots69751%_)))) + _%mixin-slot7027970318%_)))))) + (_%loop7027470298%_ _%target7027170292%_ '())) + (_%g7026870285%_ _%g7026970289%_))))) + (_%g7026870285%_ _%g7026970289%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7026773844%_ + _%mixin-slots69751%_))) + _%rawsetf7020870247%_)))))) + (_%loop7020370227%_ _%target7020070221%_ '())) + (_%g7019770214%_ _%g7019870218%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7019770214%_ + _%g7019870218%_))))) + (_%g7019673848%_ (gx#stx-map - (lambda (_%g7378873790%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7385173853%_) + (_%make-id69727%_ + _%name69754%_ '"-unchecked-" - _%g7378873790%_ + _%g7385173853%_ '"-set!")) - _%slots69682%_)))) - _%setf7007470113%_)))))) - (_%loop7006970093%_ _%target7006670087%_ '())) - (_%g7006370080%_ _%g7006470084%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7006370080%_ - _%g7006470084%_))))) - (_%g7006273794%_ + _%slots69745%_)))) + _%setf7013770176%_)))))) + (_%loop7013270156%_ _%target7012970150%_ '())) + (_%g7012670143%_ _%g7012770147%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7012670143%_ + _%g7012770147%_))))) + (_%g7012573857%_ (gx#stx-map - (lambda (_%g7379773799%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7386073862%_) + (_%make-id69727%_ + _%name69754%_ '"-" - _%g7379773799%_ + _%g7386073862%_ '"-set!")) - _%slots69682%_)))) - _%getf7000370042%_)))))) + _%slots69745%_)))) + _%getf7006670105%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6999870022%_ - _%target6999570016%_ + (_%loop7006170085%_ + _%target7005870079%_ '())) - (_%g6999270009%_ - _%g6999370013%_))))) - (_%g6999270009%_ _%g6999370013%_))))) - (_%g6999173803%_ + (_%g7005570072%_ + _%g7005670076%_))))) + (_%g7005570072%_ _%g7005670076%_))))) + (_%g7005473866%_ (gx#stx-map - (lambda (_%g7380673808%_) - (_%make-id69664%_ - _%name69691%_ + (lambda (_%g7386973871%_) + (_%make-id69727%_ + _%name69754%_ '"-" - _%g7380673808%_)) - _%slots69682%_)))) - _%ordered-slot6993269971%_)))))) + _%g7386973871%_)) + _%slots69745%_)))) + _%ordered-slot6999570034%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6992769951%_ - _%target6992469945%_ + (_%loop6999070014%_ + _%target6998770008%_ '())) - (_%g6992169938%_ - _%g6992269942%_))))) - (_%g6992169938%_ _%g6992269942%_))))) - (_%g6992073812%_ _%ordered-slots69677%_))) - _%slot6986169900%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop6985669880%_ - _%target6985369874%_ + (_%g6998470001%_ + _%g6998570005%_))))) + (_%g6998470001%_ _%g6998570005%_))))) + (_%g6998373875%_ _%ordered-slots69740%_))) + _%slot6992469963%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop6991969943%_ + _%target6991669937%_ '())) - (_%g6985069867%_ _%g6985169871%_))))) - (_%g6985069867%_ _%g6985169871%_))))) - (_%g6984973816%_ _%slots69682%_))) + (_%g6991369930%_ _%g6991469934%_))))) + (_%g6991369930%_ _%g6991469934%_))))) + (_%g6991273879%_ _%slots69745%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g6982369834%_)))) - (_%g6982173820%_ + _%g6988669897%_)))) + (_%g6988473883%_ (map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super69694%_)))) - _%g6979569806%_)))) - (_%g6979373824%_ - (_%make-id69664%_ _%name69691%_ '"?")))) - _%g6976769778%_)))) - (_%g6976573828%_ (_%make-id69664%_ '"make-" _%name69691%_)))) - _%g6973969750%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6973773832%_ - (_%make-id69664%_ - _%name69691%_ + _%super69757%_)))) + _%g6985869869%_)))) + (_%g6985673887%_ + (_%make-id69727%_ _%name69754%_ '"?")))) + _%g6983069841%_)))) + (_%g6982873891%_ (_%make-id69727%_ '"make-" _%name69754%_)))) + _%g6980269813%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6980073895%_ + (_%make-id69727%_ + _%name69754%_ '"::t")))) - _%g6970169712%_)))) - (_%g6969973836%_ _%id69658%_)))))))))) - (let* ((_%g6952669554%_ - (lambda (_%g6952769550%_) + _%g6976469775%_)))) + (_%g6976273899%_ _%id69721%_)))))))))) + (let* ((_%g6958969617%_ + (lambda (_%g6959069613%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g6952769550%_))) - (_%g6952569654%_ - (lambda (_%g6952769558%_) - (if (gx#stx-pair? _%g6952769558%_) - (let ((_%e6953169561%_ (gx#syntax-e _%g6952769558%_))) - (let ((_%hd6953269565%_ + _%g6959069613%_))) + (_%g6958869717%_ + (lambda (_%g6959069621%_) + (if (gx#stx-pair? _%g6959069621%_) + (let ((_%e6959469624%_ (gx#syntax-e _%g6959069621%_))) + (let ((_%hd6959569628%_ (let () (declare (not safe)) - (##car _%e6953169561%_))) - (_%tl6953369568%_ + (##car _%e6959469624%_))) + (_%tl6959669631%_ (let () (declare (not safe)) - (##cdr _%e6953169561%_)))) - (if (gx#stx-pair? _%tl6953369568%_) - (let ((_%e6953469571%_ - (gx#syntax-e _%tl6953369568%_))) - (let ((_%hd6953569575%_ + (##cdr _%e6959469624%_)))) + (if (gx#stx-pair? _%tl6959669631%_) + (let ((_%e6959769634%_ + (gx#syntax-e _%tl6959669631%_))) + (let ((_%hd6959869638%_ (let () (declare (not safe)) - (##car _%e6953469571%_))) - (_%tl6953669578%_ + (##car _%e6959769634%_))) + (_%tl6959969641%_ (let () (declare (not safe)) - (##cdr _%e6953469571%_)))) - (if (gx#stx-pair? _%tl6953669578%_) - (let ((_%e6953769581%_ - (gx#syntax-e _%tl6953669578%_))) - (let ((_%hd6953869585%_ + (##cdr _%e6959769634%_)))) + (if (gx#stx-pair? _%tl6959969641%_) + (let ((_%e6960069644%_ + (gx#syntax-e _%tl6959969641%_))) + (let ((_%hd6960169648%_ (let () (declare (not safe)) - (##car _%e6953769581%_))) - (_%tl6953969588%_ + (##car _%e6960069644%_))) + (_%tl6960269651%_ (let () (declare (not safe)) - (##cdr _%e6953769581%_)))) + (##cdr _%e6960069644%_)))) (if (gx#stx-pair/null? - _%hd6953869585%_) - (let ((_g84288_ + _%hd6960169648%_) + (let ((_g84351_ (gx#syntax-split-splice - _%hd6953869585%_ + _%hd6960169648%_ '0))) (begin - (let ((_g84289_ + (let ((_g84352_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84288_) - (##vector-length _g84288_) + _g84351_) + (##values-length _g84351_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84289_ 2))) - (error "Context expects 2 values" _g84289_))) + (if (not (let () (declare (not safe)) (##fx= _g84352_ 2))) + (error "Context expects 2 values" _g84352_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target6954069591%_ + (let ((_%target6960369654%_ (let () (declare (not safe)) - (##vector-ref - _g84288_ + (##values-ref + _g84351_ 0))) - (_%tl6954269594%_ + (_%tl6960569657%_ (let () (declare (not safe)) - (##vector-ref - _g84288_ + (##values-ref + _g84351_ 1)))) (if (gx#stx-null? - _%tl6954269594%_) - (letrec ((_%loop6954369597%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd6954169601%_ _%slot6954769604%_) - (if (gx#stx-pair? _%hd6954169601%_) - (let ((_%e6954469607%_ - (gx#syntax-e _%hd6954169601%_))) - (let ((_%lp-hd6954569611%_ + _%tl6960569657%_) + (letrec ((_%loop6960669660%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd6960469664%_ _%slot6961069667%_) + (if (gx#stx-pair? _%hd6960469664%_) + (let ((_%e6960769670%_ + (gx#syntax-e _%hd6960469664%_))) + (let ((_%lp-hd6960869674%_ (let () (declare (not safe)) - (##car _%e6954469607%_))) - (_%lp-tl6954669614%_ + (##car _%e6960769670%_))) + (_%lp-tl6960969677%_ (let () (declare (not safe)) - (##cdr _%e6954469607%_)))) - (_%loop6954369597%_ - _%lp-tl6954669614%_ - (cons _%lp-hd6954569611%_ - _%slot6954769604%_)))) - (let ((_%slot6954869617%_ - (reverse _%slot6954769604%_))) - ((lambda (_%L69621%_ _%L69623%_ _%L69624%_) - (_%generate69503%_ - _%L69624%_ - (foldr (lambda (_%g6964569648%_ - _%g6964669651%_) - (cons _%g6964569648%_ - _%g6964669651%_)) + (##cdr _%e6960769670%_)))) + (_%loop6960669660%_ + _%lp-tl6960969677%_ + (cons _%lp-hd6960869674%_ + _%slot6961069667%_)))) + (let ((_%slot6961169680%_ + (reverse _%slot6961069667%_))) + ((lambda (_%L69684%_ _%L69686%_ _%L69687%_) + (_%generate69566%_ + _%L69687%_ + (foldr (lambda (_%g6970869711%_ + _%g6970969714%_) + (cons _%g6970869711%_ + _%g6970969714%_)) '() - _%L69623%_) - _%L69621%_)) - _%tl6953969588%_ - _%slot6954869617%_ - _%hd6953569575%_)))))) - (_%loop6954369597%_ _%target6954069591%_ '())) - (_%g6952669554%_ _%g6952769558%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g6952669554%_ - _%g6952769558%_)))) - (_%g6952669554%_ _%g6952769558%_)))) - (_%g6952669554%_ _%g6952769558%_)))) - (_%g6952669554%_ _%g6952769558%_))))) - (_%g6952569654%_ _%stx69500%_))))) + _%L69686%_) + _%L69684%_)) + _%tl6960269651%_ + _%slot6961169680%_ + _%hd6959869638%_)))))) + (_%loop6960669660%_ _%target6960369654%_ '())) + (_%g6958969617%_ _%g6959069621%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g6958969617%_ + _%g6959069621%_)))) + (_%g6958969617%_ _%g6959069621%_)))) + (_%g6958969617%_ _%g6959069621%_)))) + (_%g6958969617%_ _%g6959069621%_))))) + (_%g6958869717%_ _%stx69563%_))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defstruct/c| - (lambda (_%$stx76846%_) - (let* ((_%g7685076869%_ - (lambda (_%g7685176865%_) + (lambda (_%$stx76909%_) + (let* ((_%g7691376932%_ + (lambda (_%g7691476928%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7685176865%_))) - (_%g7684976926%_ - (lambda (_%g7685176873%_) - (if (gx#stx-pair? _%g7685176873%_) - (let ((_%e7685576876%_ (gx#syntax-e _%g7685176873%_))) - (let ((_%hd7685676880%_ + _%g7691476928%_))) + (_%g7691276989%_ + (lambda (_%g7691476936%_) + (if (gx#stx-pair? _%g7691476936%_) + (let ((_%e7691876939%_ (gx#syntax-e _%g7691476936%_))) + (let ((_%hd7691976943%_ (let () (declare (not safe)) - (##car _%e7685576876%_))) - (_%tl7685776883%_ + (##car _%e7691876939%_))) + (_%tl7692076946%_ (let () (declare (not safe)) - (##cdr _%e7685576876%_)))) - (if (gx#stx-pair? _%tl7685776883%_) - (let ((_%e7685876886%_ - (gx#syntax-e _%tl7685776883%_))) - (let ((_%hd7685976890%_ + (##cdr _%e7691876939%_)))) + (if (gx#stx-pair? _%tl7692076946%_) + (let ((_%e7692176949%_ + (gx#syntax-e _%tl7692076946%_))) + (let ((_%hd7692276953%_ (let () (declare (not safe)) - (##car _%e7685876886%_))) - (_%tl7686076893%_ + (##car _%e7692176949%_))) + (_%tl7692376956%_ (let () (declare (not safe)) - (##cdr _%e7685876886%_)))) - (if (gx#stx-pair? _%tl7686076893%_) - (let ((_%e7686176896%_ - (gx#syntax-e _%tl7686076893%_))) - (let ((_%hd7686276900%_ + (##cdr _%e7692176949%_)))) + (if (gx#stx-pair? _%tl7692376956%_) + (let ((_%e7692476959%_ + (gx#syntax-e _%tl7692376956%_))) + (let ((_%hd7692576963%_ (let () (declare (not safe)) - (##car _%e7686176896%_))) - (_%tl7686376903%_ + (##car _%e7692476959%_))) + (_%tl7692676966%_ (let () (declare (not safe)) - (##cdr _%e7686176896%_)))) - ((lambda (_%L76906%_ - _%L76908%_ - _%L76909%_) + (##cdr _%e7692476959%_)))) + ((lambda (_%L76969%_ + _%L76971%_ + _%L76972%_) (cons (gx#datum->syntax '#f 'defclass/c) - (cons _%L76909%_ - (cons _%L76908%_ + (cons _%L76972%_ + (cons _%L76971%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L76906%_)))))) + (cons '#t _%L76969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7686376903%_ - _%hd7686276900%_ - _%hd7685976890%_))) - (_%g7685076869%_ _%g7685176873%_)))) - (_%g7685076869%_ _%g7685176873%_)))) - (_%g7685076869%_ _%g7685176873%_))))) - (_%g7684976926%_ _%$stx76846%_)))) + _%tl7692676966%_ + _%hd7692576963%_ + _%hd7692276953%_))) + (_%g7691376932%_ _%g7691476936%_)))) + (_%g7691376932%_ _%g7691476936%_)))) + (_%g7691376932%_ _%g7691476936%_))))) + (_%g7691276989%_ _%$stx76909%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do/c| - (lambda (_%stx76930%_) - (let* ((_%g7693377004%_ - (lambda (_%g7693477000%_) + (lambda (_%stx76993%_) + (let* ((_%g7699677067%_ + (lambda (_%g7699777063%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7693477000%_))) - (_%g7693277370%_ - (lambda (_%g7693477008%_) - (if (gx#stx-pair? _%g7693477008%_) - (let ((_%e7694177011%_ (gx#syntax-e _%g7693477008%_))) - (let ((_%hd7694277015%_ + _%g7699777063%_))) + (_%g7699577433%_ + (lambda (_%g7699777071%_) + (if (gx#stx-pair? _%g7699777071%_) + (let ((_%e7700477074%_ (gx#syntax-e _%g7699777071%_))) + (let ((_%hd7700577078%_ (let () (declare (not safe)) - (##car _%e7694177011%_))) - (_%tl7694377018%_ + (##car _%e7700477074%_))) + (_%tl7700677081%_ (let () (declare (not safe)) - (##cdr _%e7694177011%_)))) - (if (gx#stx-pair? _%tl7694377018%_) - (let ((_%e7694477021%_ - (gx#syntax-e _%tl7694377018%_))) - (let ((_%hd7694577025%_ + (##cdr _%e7700477074%_)))) + (if (gx#stx-pair? _%tl7700677081%_) + (let ((_%e7700777084%_ + (gx#syntax-e _%tl7700677081%_))) + (let ((_%hd7700877088%_ (let () (declare (not safe)) - (##car _%e7694477021%_))) - (_%tl7694677028%_ + (##car _%e7700777084%_))) + (_%tl7700977091%_ (let () (declare (not safe)) - (##cdr _%e7694477021%_)))) - (if (gx#stx-pair/null? _%hd7694577025%_) - (let ((_g84290_ + (##cdr _%e7700777084%_)))) + (if (gx#stx-pair/null? _%hd7700877088%_) + (let ((_g84353_ (gx#syntax-split-splice - _%hd7694577025%_ + _%hd7700877088%_ '0))) (begin - (let ((_g84291_ + (let ((_g84354_ (let () (declare (not safe)) - (if (##values? _g84290_) - (##vector-length - _g84290_) + (if (##values? _g84353_) + (##values-length + _g84353_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84291_ 2))) + (##fx= _g84354_ 2))) (error "Context expects 2 values" - _g84291_))) - (let ((_%target7694777031%_ + _g84354_))) + (let ((_%target7701077094%_ (let () (declare (not safe)) - (##vector-ref _g84290_ 0))) - (_%tl7694977034%_ + (##values-ref _g84353_ 0))) + (_%tl7701277097%_ (let () (declare (not safe)) - (##vector-ref _g84290_ 1)))) - (if (gx#stx-null? _%tl7694977034%_) - (letrec ((_%loop7695077037%_ - (lambda (_%hd7694877041%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step7695477044%_ - _%init7695577046%_ - _%var/c7695677048%_) - (if (gx#stx-pair? _%hd7694877041%_) - (let ((_%e7695177051%_ (gx#syntax-e _%hd7694877041%_))) - (let ((_%lp-hd7695277055%_ + (##values-ref _g84353_ 1)))) + (if (gx#stx-null? _%tl7701277097%_) + (letrec ((_%loop7701377100%_ + (lambda (_%hd7701177104%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step7701777107%_ + _%init7701877109%_ + _%var/c7701977111%_) + (if (gx#stx-pair? _%hd7701177104%_) + (let ((_%e7701477114%_ (gx#syntax-e _%hd7701177104%_))) + (let ((_%lp-hd7701577118%_ (let () (declare (not safe)) - (##car _%e7695177051%_))) - (_%lp-tl7695377058%_ + (##car _%e7701477114%_))) + (_%lp-tl7701677121%_ (let () (declare (not safe)) - (##cdr _%e7695177051%_)))) - (if (gx#stx-pair? _%lp-hd7695277055%_) - (let ((_%e7698477061%_ - (gx#syntax-e _%lp-hd7695277055%_))) - (let ((_%hd7698577065%_ + (##cdr _%e7701477114%_)))) + (if (gx#stx-pair? _%lp-hd7701577118%_) + (let ((_%e7704777124%_ + (gx#syntax-e _%lp-hd7701577118%_))) + (let ((_%hd7704877128%_ (let () (declare (not safe)) - (##car _%e7698477061%_))) - (_%tl7698677068%_ + (##car _%e7704777124%_))) + (_%tl7704977131%_ (let () (declare (not safe)) - (##cdr _%e7698477061%_)))) - (if (gx#stx-pair? _%tl7698677068%_) - (let ((_%e7698777071%_ - (gx#syntax-e _%tl7698677068%_))) - (let ((_%hd7698877075%_ + (##cdr _%e7704777124%_)))) + (if (gx#stx-pair? _%tl7704977131%_) + (let ((_%e7705077134%_ + (gx#syntax-e _%tl7704977131%_))) + (let ((_%hd7705177138%_ (let () (declare (not safe)) - (##car _%e7698777071%_))) - (_%tl7698977078%_ + (##car _%e7705077134%_))) + (_%tl7705277141%_ (let () (declare (not safe)) - (##cdr _%e7698777071%_)))) + (##cdr _%e7705077134%_)))) (if (gx#stx-pair/null? - _%tl7698977078%_) - (let ((_g84292_ + _%tl7705277141%_) + (let ((_g84355_ (gx#syntax-split-splice - _%tl7698977078%_ + _%tl7705277141%_ '0))) (begin - (let ((_g84293_ + (let ((_g84356_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g84292_) - (##vector-length _g84292_) + _g84355_) + (##values-length _g84355_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g84293_ 2))) - (error "Context expects 2 values" _g84293_))) + (if (not (let () (declare (not safe)) (##fx= _g84356_ 2))) + (error "Context expects 2 values" _g84356_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7699077081%_ + (let ((_%target7705377144%_ (let () (declare (not safe)) - (##vector-ref - _g84292_ + (##values-ref + _g84355_ 0))) - (_%tl7699277084%_ + (_%tl7705577147%_ (let () (declare (not safe)) - (##vector-ref - _g84292_ + (##values-ref + _g84355_ 1)))) (if (gx#stx-null? - _%tl7699277084%_) - (letrec ((_%loop7699377087%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7699177091%_ _%step7699777094%_) - (if (gx#stx-pair? _%hd7699177091%_) - (let ((_%e7699477097%_ - (gx#syntax-e _%hd7699177091%_))) - (let ((_%lp-hd7699577101%_ + _%tl7705577147%_) + (letrec ((_%loop7705677150%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7705477154%_ _%step7706077157%_) + (if (gx#stx-pair? _%hd7705477154%_) + (let ((_%e7705777160%_ + (gx#syntax-e _%hd7705477154%_))) + (let ((_%lp-hd7705877164%_ (let () (declare (not safe)) - (##car _%e7699477097%_))) - (_%lp-tl7699677104%_ + (##car _%e7705777160%_))) + (_%lp-tl7705977167%_ (let () (declare (not safe)) - (##cdr _%e7699477097%_)))) - (_%loop7699377087%_ - _%lp-tl7699677104%_ - (cons _%lp-hd7699577101%_ - _%step7699777094%_)))) - (let ((_%step7699877107%_ - (reverse _%step7699777094%_))) - (_%loop7695077037%_ - _%lp-tl7695377058%_ - (cons _%step7699877107%_ - _%step7695477044%_) - (cons _%hd7698877075%_ _%init7695577046%_) - (cons _%hd7698577065%_ - _%var/c7695677048%_))))))) - (_%loop7699377087%_ _%target7699077081%_ '())) - (_%g7693377004%_ _%g7693477008%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7693377004%_ - _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_)))) - (let ((_%step7695777111%_ (reverse _%step7695477044%_)) - (_%init7695877114%_ (reverse _%init7695577046%_)) - (_%var/c7695977116%_ - (reverse _%var/c7695677048%_))) - (if (gx#stx-pair? _%tl7694677028%_) - (let ((_%e7696077119%_ - (gx#syntax-e _%tl7694677028%_))) - (let ((_%hd7696177123%_ + (##cdr _%e7705777160%_)))) + (_%loop7705677150%_ + _%lp-tl7705977167%_ + (cons _%lp-hd7705877164%_ + _%step7706077157%_)))) + (let ((_%step7706177170%_ + (reverse _%step7706077157%_))) + (_%loop7701377100%_ + _%lp-tl7701677121%_ + (cons _%step7706177170%_ + _%step7701777107%_) + (cons _%hd7705177138%_ _%init7701877109%_) + (cons _%hd7704877128%_ + _%var/c7701977111%_))))))) + (_%loop7705677150%_ _%target7705377144%_ '())) + (_%g7699677067%_ _%g7699777071%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7699677067%_ + _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_)))) + (let ((_%step7702077174%_ (reverse _%step7701777107%_)) + (_%init7702177177%_ (reverse _%init7701877109%_)) + (_%var/c7702277179%_ + (reverse _%var/c7701977111%_))) + (if (gx#stx-pair? _%tl7700977091%_) + (let ((_%e7702377182%_ + (gx#syntax-e _%tl7700977091%_))) + (let ((_%hd7702477186%_ (let () (declare (not safe)) - (##car _%e7696077119%_))) - (_%tl7696277126%_ + (##car _%e7702377182%_))) + (_%tl7702577189%_ (let () (declare (not safe)) - (##cdr _%e7696077119%_)))) - (if (gx#stx-pair? _%hd7696177123%_) - (let ((_%e7696377129%_ - (gx#syntax-e _%hd7696177123%_))) - (let ((_%hd7696477133%_ + (##cdr _%e7702377182%_)))) + (if (gx#stx-pair? _%hd7702477186%_) + (let ((_%e7702677192%_ + (gx#syntax-e _%hd7702477186%_))) + (let ((_%hd7702777196%_ (let () (declare (not safe)) - (##car _%e7696377129%_))) - (_%tl7696577136%_ + (##car _%e7702677192%_))) + (_%tl7702877199%_ (let () (declare (not safe)) - (##cdr _%e7696377129%_)))) + (##cdr _%e7702677192%_)))) (if (gx#stx-pair/null? - _%tl7696577136%_) - (let ((_g84294_ + _%tl7702877199%_) + (let ((_g84357_ (gx#syntax-split-splice - _%tl7696577136%_ + _%tl7702877199%_ '0))) (begin - (let ((_g84295_ + (let ((_g84358_ (let () (declare (not safe)) (if (##values? - _g84294_) - (##vector-length - _g84294_) + _g84357_) + (##values-length + _g84357_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g84295_ 2))) - (error "Context expects 2 values" _g84295_))) + (##fx= _g84358_ 2))) + (error "Context expects 2 values" _g84358_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target7696677139%_ + (let ((_%target7702977202%_ (let () (declare (not safe)) - (##vector-ref - _g84294_ + (##values-ref + _g84357_ 0))) - (_%tl7696877142%_ + (_%tl7703177205%_ (let () (declare (not safe)) - (##vector-ref - _g84294_ + (##values-ref + _g84357_ 1)))) (if (gx#stx-null? - _%tl7696877142%_) - (letrec ((_%loop7696977145%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd7696777149%_ _%fini7697377152%_) - (if (gx#stx-pair? _%hd7696777149%_) - (let ((_%e7697077155%_ - (gx#syntax-e _%hd7696777149%_))) - (let ((_%lp-hd7697177159%_ + _%tl7703177205%_) + (letrec ((_%loop7703277208%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd7703077212%_ _%fini7703677215%_) + (if (gx#stx-pair? _%hd7703077212%_) + (let ((_%e7703377218%_ + (gx#syntax-e _%hd7703077212%_))) + (let ((_%lp-hd7703477222%_ (let () (declare (not safe)) - (##car _%e7697077155%_))) - (_%lp-tl7697277162%_ + (##car _%e7703377218%_))) + (_%lp-tl7703577225%_ (let () (declare (not safe)) - (##cdr _%e7697077155%_)))) - (_%loop7696977145%_ - _%lp-tl7697277162%_ - (cons _%lp-hd7697177159%_ - _%fini7697377152%_)))) - (let ((_%fini7697477165%_ - (reverse _%fini7697377152%_))) - (if (gx#stx-pair/null? _%tl7696277126%_) - (let ((_g84296_ + (##cdr _%e7703377218%_)))) + (_%loop7703277208%_ + _%lp-tl7703577225%_ + (cons _%lp-hd7703477222%_ + _%fini7703677215%_)))) + (let ((_%fini7703777228%_ + (reverse _%fini7703677215%_))) + (if (gx#stx-pair/null? _%tl7702577189%_) + (let ((_g84359_ (gx#syntax-split-splice - _%tl7696277126%_ + _%tl7702577189%_ '0))) (begin - (let ((_g84297_ + (let ((_g84360_ (let () (declare (not safe)) - (if (##values? _g84296_) - (##vector-length - _g84296_) + (if (##values? _g84359_) + (##values-length + _g84359_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84297_ 2))) + (##fx= _g84360_ 2))) (error "Context expects 2 values" - _g84297_))) - (let ((_%target7697577169%_ + _g84360_))) + (let ((_%target7703877232%_ (let () (declare (not safe)) - (##vector-ref _g84296_ 0))) - (_%tl7697777172%_ + (##values-ref _g84359_ 0))) + (_%tl7704077235%_ (let () (declare (not safe)) - (##vector-ref _g84296_ 1)))) - (if (gx#stx-null? _%tl7697777172%_) - (letrec ((_%loop7697877175%_ - (lambda (_%hd7697677179%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body7698277182%_) - (if (gx#stx-pair? _%hd7697677179%_) - (let ((_%e7697977185%_ (gx#syntax-e _%hd7697677179%_))) - (let ((_%lp-hd7698077189%_ + (##values-ref _g84359_ 1)))) + (if (gx#stx-null? _%tl7704077235%_) + (letrec ((_%loop7704177238%_ + (lambda (_%hd7703977242%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body7704577245%_) + (if (gx#stx-pair? _%hd7703977242%_) + (let ((_%e7704277248%_ (gx#syntax-e _%hd7703977242%_))) + (let ((_%lp-hd7704377252%_ (let () (declare (not safe)) - (##car _%e7697977185%_))) - (_%lp-tl7698177192%_ + (##car _%e7704277248%_))) + (_%lp-tl7704477255%_ (let () (declare (not safe)) - (##cdr _%e7697977185%_)))) - (_%loop7697877175%_ - _%lp-tl7698177192%_ - (cons _%lp-hd7698077189%_ _%body7698277182%_)))) - (let ((_%body7698377195%_ - (reverse _%body7698277182%_))) - ((lambda (_%L77199%_ - _%L77201%_ - _%L77202%_ - _%L77203%_ - _%L77204%_ - _%L77205%_) - (let* ((_%g7723977256%_ - (lambda (_%g7724077252%_) + (##cdr _%e7704277248%_)))) + (_%loop7704177238%_ + _%lp-tl7704477255%_ + (cons _%lp-hd7704377252%_ _%body7704577245%_)))) + (let ((_%body7704677258%_ + (reverse _%body7704577245%_))) + ((lambda (_%L77262%_ + _%L77264%_ + _%L77265%_ + _%L77266%_ + _%L77267%_ + _%L77268%_) + (let* ((_%g7730277319%_ + (lambda (_%g7730377315%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7724077252%_))) - (_%g7723877355%_ - (lambda (_%g7724077260%_) - (if (gx#stx-pair/null? _%g7724077260%_) - (let ((_g84298_ + _%g7730377315%_))) + (_%g7730177418%_ + (lambda (_%g7730377323%_) + (if (gx#stx-pair/null? _%g7730377323%_) + (let ((_g84361_ (gx#syntax-split-splice - _%g7724077260%_ + _%g7730377323%_ '0))) (begin - (let ((_g84299_ + (let ((_g84362_ (let () (declare (not safe)) (if (##values? - _g84298_) - (##vector-length - _g84298_) + _g84361_) + (##values-length + _g84361_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g84299_ + (##fx= _g84362_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g84299_))) - (let ((_%target7724277263%_ + _g84362_))) + (let ((_%target7730577326%_ (let () (declare (not safe)) - (##vector-ref - _g84298_ + (##values-ref + _g84361_ 0))) - (_%tl7724477266%_ + (_%tl7730777329%_ (let () (declare (not safe)) - (##vector-ref - _g84298_ + (##values-ref + _g84361_ 1)))) (if (gx#stx-null? - _%tl7724477266%_) - (letrec ((_%loop7724577269%_ - (lambda (_%hd7724377273%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var7724977276%_) - (if (gx#stx-pair? _%hd7724377273%_) - (let ((_%e7724677279%_ - (gx#syntax-e _%hd7724377273%_))) - (let ((_%lp-hd7724777283%_ + _%tl7730777329%_) + (letrec ((_%loop7730877332%_ + (lambda (_%hd7730677336%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%var7731277339%_) + (if (gx#stx-pair? _%hd7730677336%_) + (let ((_%e7730977342%_ + (gx#syntax-e _%hd7730677336%_))) + (let ((_%lp-hd7731077346%_ (let () (declare (not safe)) - (##car _%e7724677279%_))) - (_%lp-tl7724877286%_ + (##car _%e7730977342%_))) + (_%lp-tl7731177349%_ (let () (declare (not safe)) - (##cdr _%e7724677279%_)))) - (_%loop7724577269%_ - _%lp-tl7724877286%_ - (cons _%lp-hd7724777283%_ - _%var7724977276%_)))) - (let ((_%var7725077289%_ - (reverse _%var7724977276%_))) - ((lambda (_%L77293%_) + (##cdr _%e7730977342%_)))) + (_%loop7730877332%_ + _%lp-tl7731177349%_ + (cons _%lp-hd7731077346%_ + _%var7731277339%_)))) + (let ((_%var7731377352%_ + (reverse _%var7731277339%_))) + ((lambda (_%L77356%_) (cons (gx#datum->syntax '#f 'let/c) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L77204%_ - _%L77205%_) - (foldr (lambda (_%g7731777321%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7731877324%_ - _%g7731977326%_) - (cons (cons _%g7731877324%_ (cons _%g7731777321%_ '())) - _%g7731977326%_)) + _%L77267%_ + _%L77268%_) + (foldr (lambda (_%g7738077384%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g7738177387%_ + _%g7738277389%_) + (cons (cons _%g7738177387%_ (cons _%g7738077384%_ '())) + _%g7738277389%_)) '() - _%L77204%_ - _%L77205%_)) + _%L77267%_ + _%L77268%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'if) - (cons _%L77202%_ + (cons _%L77265%_ (cons (cons (gx#datum->syntax '#f 'do-loop-result) - (foldr (lambda (_%g7731577329%_ - _%g7731677332%_) - (cons _%g7731577329%_ - _%g7731677332%_)) + (foldr (lambda (_%g7737877392%_ + _%g7737977395%_) + (cons _%g7737877392%_ + _%g7737977395%_)) '() - _%L77201%_)) + _%L77264%_)) (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g7730877335%_ + (foldr (lambda (_%g7737177398%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7730977338%_) - (cons _%g7730877335%_ _%g7730977338%_)) + _%g7737277401%_) + (cons _%g7737177398%_ _%g7737277401%_)) (cons (cons (gx#datum->syntax '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L77203%_ - _%L77293%_) - (foldr (lambda (_%g7731077341%_ - _%g7731177344%_ - _%g7731277346%_) + _%L77266%_ + _%L77356%_) + (foldr (lambda (_%g7737377404%_ + _%g7737477407%_ + _%g7737577409%_) (cons (cons (gx#datum->syntax '#f 'do-loop-step) - (cons _%g7731177344%_ - (foldr (lambda (_%g7731377349%_ + (cons _%g7737477407%_ + (foldr (lambda (_%g7737677412%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g7731477352%_) - (cons _%g7731377349%_ _%g7731477352%_)) + _%g7737777415%_) + (cons _%g7737677412%_ _%g7737777415%_)) '() - _%g7731077341%_))) + _%g7737377404%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g7731277346%_)) + _%g7737577409%_)) '() - _%L77203%_ - _%L77293%_))) + _%L77266%_ + _%L77356%_))) '()) - _%L77199%_))) + _%L77262%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var7725077289%_)))))) - (_%loop7724577269%_ _%target7724277263%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7723977256%_ - _%g7724077260%_))))) - (_%g7723977256%_ - _%g7724077260%_))))) - (_%g7723877355%_ - (map (lambda (_%b77359%_) - (if (gx#identifier? _%b77359%_) - _%b77359%_ - (gx#stx-car _%b77359%_))) - (foldr (lambda (_%g7736177364%_ - _%g7736277367%_) - (cons _%g7736177364%_ - _%g7736277367%_)) + _%var7731377352%_)))))) + (_%loop7730877332%_ _%target7730577326%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7730277319%_ + _%g7730377323%_))))) + (_%g7730277319%_ + _%g7730377323%_))))) + (_%g7730177418%_ + (map (lambda (_%b77422%_) + (if (gx#identifier? _%b77422%_) + _%b77422%_ + (gx#stx-car _%b77422%_))) + (foldr (lambda (_%g7742477427%_ + _%g7742577430%_) + (cons _%g7742477427%_ + _%g7742577430%_)) '() - _%L77205%_))))) - _%body7698377195%_ - _%fini7697477165%_ - _%hd7696477133%_ - _%step7695777111%_ - _%init7695877114%_ - _%var/c7695977116%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7697877175%_ - _%target7697577169%_ + _%L77268%_))))) + _%body7704677258%_ + _%fini7703777228%_ + _%hd7702777196%_ + _%step7702077174%_ + _%init7702177177%_ + _%var/c7702277179%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7704177238%_ + _%target7703877232%_ '())) - (_%g7693377004%_ - _%g7693477008%_))))) - (_%g7693377004%_ _%g7693477008%_))))))) - (_%loop7696977145%_ _%target7696677139%_ '())) - (_%g7693377004%_ _%g7693477008%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g7693377004%_ - _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop7695077037%_ - _%target7694777031%_ + (_%g7699677067%_ + _%g7699777071%_))))) + (_%g7699677067%_ _%g7699777071%_))))))) + (_%loop7703277208%_ _%target7702977202%_ '())) + (_%g7699677067%_ _%g7699777071%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g7699677067%_ + _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop7701377100%_ + _%target7701077094%_ '() '() '())) - (_%g7693377004%_ - _%g7693477008%_))))) - (_%g7693377004%_ _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_)))) - (_%g7693377004%_ _%g7693477008%_))))) - (_%g7693277370%_ _%stx76930%_)))) + (_%g7699677067%_ + _%g7699777071%_))))) + (_%g7699677067%_ _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_)))) + (_%g7699677067%_ _%g7699777071%_))))) + (_%g7699577433%_ _%stx76993%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-result| - (lambda (_%$stx77379%_) - (let* ((_%__stx8364683647%_ _%$stx77379%_) - (_%g7738577419%_ + (lambda (_%$stx77442%_) + (let* ((_%__stx8370983710%_ _%$stx77442%_) + (_%g7744877482%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8364683647%_)))) - (let ((_%__kont8364983650%_ (lambda () '#!void)) - (_%__kont8365183652%_ (lambda (_%L77531%_) _%L77531%_)) - (_%__kont8365383654%_ - (lambda (_%L77476%_ _%L77478%_) + _%__stx8370983710%_)))) + (let ((_%__kont8371283713%_ (lambda () '#!void)) + (_%__kont8371483715%_ (lambda (_%L77594%_) _%L77594%_)) + (_%__kont8371683717%_ + (lambda (_%L77539%_ _%L77541%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77478%_ - (foldr (lambda (_%g7749577498%_ _%g7749677501%_) - (cons _%g7749577498%_ _%g7749677501%_)) + (cons _%L77541%_ + (foldr (lambda (_%g7755877561%_ _%g7755977564%_) + (cons _%g7755877561%_ _%g7755977564%_)) '() - _%L77476%_)))))) - (let ((_%__match8369983700%_ - (lambda (_%e7739977426%_ - _%hd7740077430%_ - _%tl7740177433%_ - _%e7740277436%_ - _%hd7740377440%_ - _%tl7740477443%_ - _%__splice8365583656%_ - _%target7740577446%_ - _%tl7740777449%_) - (letrec ((_%loop7740877452%_ - (lambda (_%hd7740677456%_ _%rest7741277459%_) - (if (gx#stx-pair? _%hd7740677456%_) - (let ((_%e7740977462%_ - (gx#syntax-e _%hd7740677456%_))) - (let ((_%lp-tl7741177469%_ + _%L77539%_)))))) + (let ((_%__match8376283763%_ + (lambda (_%e7746277489%_ + _%hd7746377493%_ + _%tl7746477496%_ + _%e7746577499%_ + _%hd7746677503%_ + _%tl7746777506%_ + _%__splice8371883719%_ + _%target7746877509%_ + _%tl7747077512%_) + (letrec ((_%loop7747177515%_ + (lambda (_%hd7746977519%_ _%rest7747577522%_) + (if (gx#stx-pair? _%hd7746977519%_) + (let ((_%e7747277525%_ + (gx#syntax-e _%hd7746977519%_))) + (let ((_%lp-tl7747477532%_ (let () (declare (not safe)) - (##cdr _%e7740977462%_))) - (_%lp-hd7741077466%_ + (##cdr _%e7747277525%_))) + (_%lp-hd7747377529%_ (let () (declare (not safe)) - (##car _%e7740977462%_)))) - (_%loop7740877452%_ - _%lp-tl7741177469%_ - (cons _%lp-hd7741077466%_ - _%rest7741277459%_)))) - (let ((_%rest7741377472%_ - (reverse _%rest7741277459%_))) - (_%__kont8365383654%_ - _%rest7741377472%_ - _%hd7740377440%_)))))) - (_%loop7740877452%_ _%target7740577446%_ '()))))) - (if (gx#stx-pair? _%__stx8364683647%_) - (let ((_%e7738777551%_ (gx#syntax-e _%__stx8364683647%_))) - (let ((_%tl7738977558%_ + (##car _%e7747277525%_)))) + (_%loop7747177515%_ + _%lp-tl7747477532%_ + (cons _%lp-hd7747377529%_ + _%rest7747577522%_)))) + (let ((_%rest7747677535%_ + (reverse _%rest7747577522%_))) + (_%__kont8371683717%_ + _%rest7747677535%_ + _%hd7746677503%_)))))) + (_%loop7747177515%_ _%target7746877509%_ '()))))) + (if (gx#stx-pair? _%__stx8370983710%_) + (let ((_%e7745077614%_ (gx#syntax-e _%__stx8370983710%_))) + (let ((_%tl7745277621%_ (let () (declare (not safe)) - (##cdr _%e7738777551%_))) - (_%hd7738877555%_ + (##cdr _%e7745077614%_))) + (_%hd7745177618%_ (let () (declare (not safe)) - (##car _%e7738777551%_)))) - (if (gx#stx-null? _%tl7738977558%_) - (_%__kont8364983650%_) - (if (gx#stx-pair? _%tl7738977558%_) - (let ((_%e7739477521%_ - (gx#syntax-e _%tl7738977558%_))) - (let ((_%tl7739677528%_ + (##car _%e7745077614%_)))) + (if (gx#stx-null? _%tl7745277621%_) + (_%__kont8371283713%_) + (if (gx#stx-pair? _%tl7745277621%_) + (let ((_%e7745777584%_ + (gx#syntax-e _%tl7745277621%_))) + (let ((_%tl7745977591%_ (let () (declare (not safe)) - (##cdr _%e7739477521%_))) - (_%hd7739577525%_ + (##cdr _%e7745777584%_))) + (_%hd7745877588%_ (let () (declare (not safe)) - (##car _%e7739477521%_)))) - (if (gx#stx-null? _%tl7739677528%_) - (_%__kont8365183652%_ _%hd7739577525%_) - (if (gx#stx-pair/null? _%tl7739677528%_) - (let ((_%__splice8365583656%_ + (##car _%e7745777584%_)))) + (if (gx#stx-null? _%tl7745977591%_) + (_%__kont8371483715%_ _%hd7745877588%_) + (if (gx#stx-pair/null? _%tl7745977591%_) + (let ((_%__splice8371883719%_ (gx#syntax-split-splice - _%tl7739677528%_ + _%tl7745977591%_ '0))) - (let ((_%tl7740777449%_ + (let ((_%tl7747077512%_ (let () (declare (not safe)) (##vector-ref - _%__splice8365583656%_ + _%__splice8371883719%_ '1))) - (_%target7740577446%_ + (_%target7746877509%_ (let () (declare (not safe)) (##vector-ref - _%__splice8365583656%_ + _%__splice8371883719%_ '0)))) (if (gx#stx-null? - _%tl7740777449%_) - (_%__match8369983700%_ - _%e7738777551%_ - _%hd7738877555%_ - _%tl7738977558%_ - _%e7739477521%_ - _%hd7739577525%_ - _%tl7739677528%_ - _%__splice8365583656%_ - _%target7740577446%_ - _%tl7740777449%_) + _%tl7747077512%_) + (_%__match8376283763%_ + _%e7745077614%_ + _%hd7745177618%_ + _%tl7745277621%_ + _%e7745777584%_ + _%hd7745877588%_ + _%tl7745977591%_ + _%__splice8371883719%_ + _%target7746877509%_ + _%tl7747077512%_) (let () (declare (not safe)) - (_%g7738577419%_))))) + (_%g7744877482%_))))) (let () (declare (not safe)) - (_%g7738577419%_)))))) + (_%g7744877482%_)))))) (let () (declare (not safe)) - (_%g7738577419%_)))))) - (let () (declare (not safe)) (_%g7738577419%_)))))))) + (_%g7744877482%_)))))) + (let () (declare (not safe)) (_%g7744877482%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-loop-step| - (lambda (_%$stx77570%_) - (let* ((_%__stx8370283703%_ _%$stx77570%_) - (_%g7757677622%_ + (lambda (_%$stx77633%_) + (let* ((_%__stx8376583766%_ _%$stx77633%_) + (_%g7763977685%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8370283703%_)))) - (let ((_%__kont8370583706%_ (lambda (_%L77802%_) _%L77802%_)) - (_%__kont8370783708%_ - (lambda (_%L77758%_ _%L77760%_) _%L77758%_)) - (_%__kont8370983710%_ - (lambda (_%L77689%_ _%L77691%_ _%L77692%_) + _%__stx8376583766%_)))) + (let ((_%__kont8376883769%_ (lambda (_%L77865%_) _%L77865%_)) + (_%__kont8377083771%_ + (lambda (_%L77821%_ _%L77823%_) _%L77821%_)) + (_%__kont8377283773%_ + (lambda (_%L77752%_ _%L77754%_ _%L77755%_) (cons (gx#datum->syntax '#f 'begin) - (cons _%L77691%_ - (foldr (lambda (_%g7771277715%_ _%g7771377718%_) - (cons _%g7771277715%_ _%g7771377718%_)) + (cons _%L77754%_ + (foldr (lambda (_%g7777577778%_ _%g7777677781%_) + (cons _%g7777577778%_ _%g7777677781%_)) '() - _%L77689%_)))))) - (let ((_%__match8377383774%_ - (lambda (_%e7759977629%_ - _%hd7760077633%_ - _%tl7760177636%_ - _%e7760277639%_ - _%hd7760377643%_ - _%tl7760477646%_ - _%e7760577649%_ - _%hd7760677653%_ - _%tl7760777656%_ - _%__splice8371183712%_ - _%target7760877659%_ - _%tl7761077662%_) - (letrec ((_%loop7761177665%_ - (lambda (_%hd7760977669%_ _%rest7761577672%_) - (if (gx#stx-pair? _%hd7760977669%_) - (let ((_%e7761277675%_ - (gx#syntax-e _%hd7760977669%_))) - (let ((_%lp-tl7761477682%_ + _%L77752%_)))))) + (let ((_%__match8383683837%_ + (lambda (_%e7766277692%_ + _%hd7766377696%_ + _%tl7766477699%_ + _%e7766577702%_ + _%hd7766677706%_ + _%tl7766777709%_ + _%e7766877712%_ + _%hd7766977716%_ + _%tl7767077719%_ + _%__splice8377483775%_ + _%target7767177722%_ + _%tl7767377725%_) + (letrec ((_%loop7767477728%_ + (lambda (_%hd7767277732%_ _%rest7767877735%_) + (if (gx#stx-pair? _%hd7767277732%_) + (let ((_%e7767577738%_ + (gx#syntax-e _%hd7767277732%_))) + (let ((_%lp-tl7767777745%_ (let () (declare (not safe)) - (##cdr _%e7761277675%_))) - (_%lp-hd7761377679%_ + (##cdr _%e7767577738%_))) + (_%lp-hd7767677742%_ (let () (declare (not safe)) - (##car _%e7761277675%_)))) - (_%loop7761177665%_ - _%lp-tl7761477682%_ - (cons _%lp-hd7761377679%_ - _%rest7761577672%_)))) - (let ((_%rest7761677685%_ - (reverse _%rest7761577672%_))) - (_%__kont8370983710%_ - _%rest7761677685%_ - _%hd7760677653%_ - _%hd7760377643%_)))))) - (_%loop7761177665%_ _%target7760877659%_ '()))))) - (if (gx#stx-pair? _%__stx8370283703%_) - (let ((_%e7757977782%_ (gx#syntax-e _%__stx8370283703%_))) - (let ((_%tl7758177789%_ + (##car _%e7767577738%_)))) + (_%loop7767477728%_ + _%lp-tl7767777745%_ + (cons _%lp-hd7767677742%_ + _%rest7767877735%_)))) + (let ((_%rest7767977748%_ + (reverse _%rest7767877735%_))) + (_%__kont8377283773%_ + _%rest7767977748%_ + _%hd7766977716%_ + _%hd7766677706%_)))))) + (_%loop7767477728%_ _%target7767177722%_ '()))))) + (if (gx#stx-pair? _%__stx8376583766%_) + (let ((_%e7764277845%_ (gx#syntax-e _%__stx8376583766%_))) + (let ((_%tl7764477852%_ (let () (declare (not safe)) - (##cdr _%e7757977782%_))) - (_%hd7758077786%_ + (##cdr _%e7764277845%_))) + (_%hd7764377849%_ (let () (declare (not safe)) - (##car _%e7757977782%_)))) - (if (gx#stx-pair? _%tl7758177789%_) - (let ((_%e7758277792%_ - (gx#syntax-e _%tl7758177789%_))) - (let ((_%tl7758477799%_ + (##car _%e7764277845%_)))) + (if (gx#stx-pair? _%tl7764477852%_) + (let ((_%e7764577855%_ + (gx#syntax-e _%tl7764477852%_))) + (let ((_%tl7764777862%_ (let () (declare (not safe)) - (##cdr _%e7758277792%_))) - (_%hd7758377796%_ + (##cdr _%e7764577855%_))) + (_%hd7764677859%_ (let () (declare (not safe)) - (##car _%e7758277792%_)))) - (if (gx#stx-null? _%tl7758477799%_) - (_%__kont8370583706%_ _%hd7758377796%_) - (if (gx#stx-pair? _%tl7758477799%_) - (let ((_%e7759377748%_ - (gx#syntax-e _%tl7758477799%_))) - (let ((_%tl7759577755%_ + (##car _%e7764577855%_)))) + (if (gx#stx-null? _%tl7764777862%_) + (_%__kont8376883769%_ _%hd7764677859%_) + (if (gx#stx-pair? _%tl7764777862%_) + (let ((_%e7765677811%_ + (gx#syntax-e _%tl7764777862%_))) + (let ((_%tl7765877818%_ (let () (declare (not safe)) - (##cdr _%e7759377748%_))) - (_%hd7759477752%_ + (##cdr _%e7765677811%_))) + (_%hd7765777815%_ (let () (declare (not safe)) - (##car _%e7759377748%_)))) - (if (gx#stx-null? _%tl7759577755%_) - (_%__kont8370783708%_ - _%hd7759477752%_ - _%hd7758377796%_) + (##car _%e7765677811%_)))) + (if (gx#stx-null? _%tl7765877818%_) + (_%__kont8377083771%_ + _%hd7765777815%_ + _%hd7764677859%_) (if (gx#stx-pair/null? - _%tl7759577755%_) - (let ((_%__splice8371183712%_ + _%tl7765877818%_) + (let ((_%__splice8377483775%_ (gx#syntax-split-splice - _%tl7759577755%_ + _%tl7765877818%_ '0))) - (let ((_%tl7761077662%_ + (let ((_%tl7767377725%_ (let () (declare (not safe)) (##vector-ref - _%__splice8371183712%_ + _%__splice8377483775%_ '1))) - (_%target7760877659%_ + (_%target7767177722%_ (let () (declare (not safe)) (##vector-ref - _%__splice8371183712%_ + _%__splice8377483775%_ '0)))) (if (gx#stx-null? - _%tl7761077662%_) - (_%__match8377383774%_ - _%e7757977782%_ - _%hd7758077786%_ - _%tl7758177789%_ - _%e7758277792%_ - _%hd7758377796%_ - _%tl7758477799%_ - _%e7759377748%_ - _%hd7759477752%_ - _%tl7759577755%_ - _%__splice8371183712%_ - _%target7760877659%_ - _%tl7761077662%_) + _%tl7767377725%_) + (_%__match8383683837%_ + _%e7764277845%_ + _%hd7764377849%_ + _%tl7764477852%_ + _%e7764577855%_ + _%hd7764677859%_ + _%tl7764777862%_ + _%e7765677811%_ + _%hd7765777815%_ + _%tl7765877818%_ + _%__splice8377483775%_ + _%target7767177722%_ + _%tl7767377725%_) (let () (declare (not safe)) - (_%g7757677622%_))))) + (_%g7763977685%_))))) (let () (declare (not safe)) - (_%g7757677622%_)))))) + (_%g7763977685%_)))))) (let () (declare (not safe)) - (_%g7757677622%_)))))) - (let () (declare (not safe)) (_%g7757677622%_))))) - (let () (declare (not safe)) (_%g7757677622%_)))))))) + (_%g7763977685%_)))))) + (let () (declare (not safe)) (_%g7763977685%_))))) + (let () (declare (not safe)) (_%g7763977685%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#do-while/c| - (lambda (_%$stx77820%_) - (let* ((_%g7782477847%_ - (lambda (_%g7782577843%_) + (lambda (_%$stx77883%_) + (let* ((_%g7788777910%_ + (lambda (_%g7788877906%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7782577843%_))) - (_%g7782377918%_ - (lambda (_%g7782577851%_) - (if (gx#stx-pair? _%g7782577851%_) - (let ((_%e7783077854%_ (gx#syntax-e _%g7782577851%_))) - (let ((_%hd7783177858%_ + _%g7788877906%_))) + (_%g7788677981%_ + (lambda (_%g7788877914%_) + (if (gx#stx-pair? _%g7788877914%_) + (let ((_%e7789377917%_ (gx#syntax-e _%g7788877914%_))) + (let ((_%hd7789477921%_ (let () (declare (not safe)) - (##car _%e7783077854%_))) - (_%tl7783277861%_ + (##car _%e7789377917%_))) + (_%tl7789577924%_ (let () (declare (not safe)) - (##cdr _%e7783077854%_)))) - (if (gx#stx-pair? _%tl7783277861%_) - (let ((_%e7783377864%_ - (gx#syntax-e _%tl7783277861%_))) - (let ((_%hd7783477868%_ + (##cdr _%e7789377917%_)))) + (if (gx#stx-pair? _%tl7789577924%_) + (let ((_%e7789677927%_ + (gx#syntax-e _%tl7789577924%_))) + (let ((_%hd7789777931%_ (let () (declare (not safe)) - (##car _%e7783377864%_))) - (_%tl7783577871%_ + (##car _%e7789677927%_))) + (_%tl7789877934%_ (let () (declare (not safe)) - (##cdr _%e7783377864%_)))) - (if (gx#stx-pair? _%tl7783577871%_) - (let ((_%e7783677874%_ - (gx#syntax-e _%tl7783577871%_))) - (let ((_%hd7783777878%_ + (##cdr _%e7789677927%_)))) + (if (gx#stx-pair? _%tl7789877934%_) + (let ((_%e7789977937%_ + (gx#syntax-e _%tl7789877934%_))) + (let ((_%hd7790077941%_ (let () (declare (not safe)) - (##car _%e7783677874%_))) - (_%tl7783877881%_ + (##car _%e7789977937%_))) + (_%tl7790177944%_ (let () (declare (not safe)) - (##cdr _%e7783677874%_)))) - (if (gx#stx-pair? _%hd7783777878%_) - (let ((_%e7783977884%_ + (##cdr _%e7789977937%_)))) + (if (gx#stx-pair? _%hd7790077941%_) + (let ((_%e7790277947%_ (gx#syntax-e - _%hd7783777878%_))) - (let ((_%hd7784077888%_ + _%hd7790077941%_))) + (let ((_%hd7790377951%_ (let () (declare (not safe)) - (##car _%e7783977884%_))) - (_%tl7784177891%_ + (##car _%e7790277947%_))) + (_%tl7790477954%_ (let () (declare (not safe)) - (##cdr _%e7783977884%_)))) - ((lambda (_%L77894%_ - _%L77896%_ - _%L77897%_ - _%L77898%_) + (##cdr _%e7790277947%_)))) + ((lambda (_%L77957%_ + _%L77959%_ + _%L77960%_ + _%L77961%_) (cons (gx#datum->syntax '#f 'do/c) - (cons _%L77898%_ + (cons _%L77961%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L77897%_ '())) - _%L77896%_) - _%L77894%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl7783877881%_ - _%tl7784177891%_ - _%hd7784077888%_ - _%hd7783477868%_))) - (_%g7782477847%_ - _%g7782577851%_)))) - (_%g7782477847%_ _%g7782577851%_)))) - (_%g7782477847%_ _%g7782577851%_)))) - (_%g7782477847%_ _%g7782577851%_))))) - (_%g7782377918%_ _%$stx77820%_)))) + (cons _%L77960%_ '())) + _%L77959%_) + _%L77957%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl7790177944%_ + _%tl7790477954%_ + _%hd7790377951%_ + _%hd7789777931%_))) + (_%g7788777910%_ + _%g7788877914%_)))) + (_%g7788777910%_ _%g7788877914%_)))) + (_%g7788777910%_ _%g7788877914%_)))) + (_%g7788777910%_ _%g7788877914%_))))) + (_%g7788677981%_ _%$stx77883%_)))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable*| - (lambda (_%stx77922%_) - (let* ((_%__stx8377683777%_ _%stx77922%_) - (_%g7792677960%_ + (lambda (_%stx77985%_) + (let* ((_%__stx8383983840%_ _%stx77985%_) + (_%g7798978023%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8377683777%_)))) - (let ((_%__kont8377983780%_ - (lambda (_%L78062%_ _%L78064%_ _%L78065%_ _%L78066%_) - (let* ((_%g7809378108%_ - (lambda (_%g7809478104%_) + _%__stx8383983840%_)))) + (let ((_%__kont8384283843%_ + (lambda (_%L78125%_ _%L78127%_ _%L78128%_ _%L78129%_) + (let* ((_%g7815678171%_ + (lambda (_%g7815778167%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7809478104%_))) - (_%g7809278153%_ - (lambda (_%g7809478112%_) - (if (gx#stx-pair? _%g7809478112%_) - (let ((_%e7809778115%_ - (gx#syntax-e _%g7809478112%_))) - (let ((_%hd7809878119%_ + _%g7815778167%_))) + (_%g7815578216%_ + (lambda (_%g7815778175%_) + (if (gx#stx-pair? _%g7815778175%_) + (let ((_%e7816078178%_ + (gx#syntax-e _%g7815778175%_))) + (let ((_%hd7816178182%_ (let () (declare (not safe)) - (##car _%e7809778115%_))) - (_%tl7809978122%_ + (##car _%e7816078178%_))) + (_%tl7816278185%_ (let () (declare (not safe)) - (##cdr _%e7809778115%_)))) - (if (gx#stx-pair? _%tl7809978122%_) - (let ((_%e7810078125%_ + (##cdr _%e7816078178%_)))) + (if (gx#stx-pair? _%tl7816278185%_) + (let ((_%e7816378188%_ (gx#syntax-e - _%tl7809978122%_))) - (let ((_%hd7810178129%_ + _%tl7816278185%_))) + (let ((_%hd7816478192%_ (let () (declare (not safe)) - (##car _%e7810078125%_))) - (_%tl7810278132%_ + (##car _%e7816378188%_))) + (_%tl7816578195%_ (let () (declare (not safe)) - (##cdr _%e7810078125%_)))) + (##cdr _%e7816378188%_)))) (if (gx#stx-null? - _%tl7810278132%_) - ((lambda (_%L78135%_ - _%L78137%_) + _%tl7816578195%_) + ((lambda (_%L78198%_ + _%L78200%_) (cons (gx#datum->syntax '#f 'begin) @@ -13862,198 +13862,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78137%_ (cons _%L78065%_ '()))) + (cons _%L78200%_ (cons _%L78128%_ '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L78066%_ '()) - (cons _%L78137%_ '()))) + (cons (cons _%L78129%_ '()) + (cons _%L78200%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78135%_ + (cons (cons _%L78198%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'new-value) - (cons _%L78064%_ _%L78062%_)) + (cons _%L78127%_ _%L78125%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78137%_ + (cons _%L78200%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'new-value) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7810178129%_ - _%hd7809878119%_) - (_%g7809378108%_ - _%g7809478112%_)))) - (_%g7809378108%_ _%g7809478112%_)))) - (_%g7809378108%_ _%g7809478112%_))))) - (_%g7809278153%_ - (list (gx#stx-identifier _%L78066%_ '"__" _%L78066%_) + _%hd7816478192%_ + _%hd7816178182%_) + (_%g7815678171%_ + _%g7815778175%_)))) + (_%g7815678171%_ _%g7815778175%_)))) + (_%g7815678171%_ _%g7815778175%_))))) + (_%g7815578216%_ + (list (gx#stx-identifier _%L78129%_ '"__" _%L78129%_) (gx#stx-identifier - _%L78066%_ - _%L78066%_ + _%L78129%_ + _%L78129%_ '"-set!")))))) - (_%__kont8378183782%_ - (lambda (_%L77997%_ _%L77999%_) + (_%__kont8384483845%_ + (lambda (_%L78060%_ _%L78062%_) (cons (gx#datum->syntax '#f 'defmutable*) - (cons _%L77999%_ - (cons _%L77997%_ + (cons _%L78062%_ + (cons _%L78060%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8380783808%_ - (lambda (_%e7793278022%_ - _%hd7793378026%_ - _%tl7793478029%_ - _%e7793578032%_ - _%hd7793678036%_ - _%tl7793778039%_ - _%e7793878042%_ - _%hd7793978046%_ - _%tl7794078049%_ - _%e7794178052%_ - _%hd7794278056%_ - _%tl7794378059%_) - (let ((_%L78062%_ _%tl7794378059%_) - (_%L78064%_ _%hd7794278056%_) - (_%L78065%_ _%hd7793978046%_) - (_%L78066%_ _%hd7793678036%_)) - (if (and (gx#identifier? _%L78066%_) - (gx#identifier? _%L78064%_) + (let ((_%__match8387083871%_ + (lambda (_%e7799578085%_ + _%hd7799678089%_ + _%tl7799778092%_ + _%e7799878095%_ + _%hd7799978099%_ + _%tl7800078102%_ + _%e7800178105%_ + _%hd7800278109%_ + _%tl7800378112%_ + _%e7800478115%_ + _%hd7800578119%_ + _%tl7800678122%_) + (let ((_%L78125%_ _%tl7800678122%_) + (_%L78127%_ _%hd7800578119%_) + (_%L78128%_ _%hd7800278109%_) + (_%L78129%_ _%hd7799978099%_)) + (if (and (gx#identifier? _%L78129%_) + (gx#identifier? _%L78127%_) (or (gx#free-identifier=? - _%L78064%_ + _%L78127%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78064%_ + _%L78127%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78064%_ + _%L78127%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8377983780%_ - _%L78062%_ - _%L78064%_ - _%L78065%_ - _%L78066%_) - (let () (declare (not safe)) (_%g7792677960%_))))))) - (if (gx#stx-pair? _%__stx8377683777%_) - (let ((_%e7793278022%_ (gx#syntax-e _%__stx8377683777%_))) - (let ((_%tl7793478029%_ + (_%__kont8384283843%_ + _%L78125%_ + _%L78127%_ + _%L78128%_ + _%L78129%_) + (let () (declare (not safe)) (_%g7798978023%_))))))) + (if (gx#stx-pair? _%__stx8383983840%_) + (let ((_%e7799578085%_ (gx#syntax-e _%__stx8383983840%_))) + (let ((_%tl7799778092%_ (let () (declare (not safe)) - (##cdr _%e7793278022%_))) - (_%hd7793378026%_ + (##cdr _%e7799578085%_))) + (_%hd7799678089%_ (let () (declare (not safe)) - (##car _%e7793278022%_)))) - (if (gx#stx-pair? _%tl7793478029%_) - (let ((_%e7793578032%_ - (gx#syntax-e _%tl7793478029%_))) - (let ((_%tl7793778039%_ + (##car _%e7799578085%_)))) + (if (gx#stx-pair? _%tl7799778092%_) + (let ((_%e7799878095%_ + (gx#syntax-e _%tl7799778092%_))) + (let ((_%tl7800078102%_ (let () (declare (not safe)) - (##cdr _%e7793578032%_))) - (_%hd7793678036%_ + (##cdr _%e7799878095%_))) + (_%hd7799978099%_ (let () (declare (not safe)) - (##car _%e7793578032%_)))) - (if (gx#stx-pair? _%tl7793778039%_) - (let ((_%e7793878042%_ - (gx#syntax-e _%tl7793778039%_))) - (let ((_%tl7794078049%_ + (##car _%e7799878095%_)))) + (if (gx#stx-pair? _%tl7800078102%_) + (let ((_%e7800178105%_ + (gx#syntax-e _%tl7800078102%_))) + (let ((_%tl7800378112%_ (let () (declare (not safe)) - (##cdr _%e7793878042%_))) - (_%hd7793978046%_ + (##cdr _%e7800178105%_))) + (_%hd7800278109%_ (let () (declare (not safe)) - (##car _%e7793878042%_)))) - (if (gx#stx-pair? _%tl7794078049%_) - (let ((_%e7794178052%_ + (##car _%e7800178105%_)))) + (if (gx#stx-pair? _%tl7800378112%_) + (let ((_%e7800478115%_ (gx#syntax-e - _%tl7794078049%_))) - (let ((_%tl7794378059%_ + _%tl7800378112%_))) + (let ((_%tl7800678122%_ (let () (declare (not safe)) - (##cdr _%e7794178052%_))) - (_%hd7794278056%_ + (##cdr _%e7800478115%_))) + (_%hd7800578119%_ (let () (declare (not safe)) - (##car _%e7794178052%_)))) - (_%__match8380783808%_ - _%e7793278022%_ - _%hd7793378026%_ - _%tl7793478029%_ - _%e7793578032%_ - _%hd7793678036%_ - _%tl7793778039%_ - _%e7793878042%_ - _%hd7793978046%_ - _%tl7794078049%_ - _%e7794178052%_ - _%hd7794278056%_ - _%tl7794378059%_))) - (if (gx#stx-null? _%tl7794078049%_) - (_%__kont8378183782%_ - _%hd7793978046%_ - _%hd7793678036%_) + (##car _%e7800478115%_)))) + (_%__match8387083871%_ + _%e7799578085%_ + _%hd7799678089%_ + _%tl7799778092%_ + _%e7799878095%_ + _%hd7799978099%_ + _%tl7800078102%_ + _%e7800178105%_ + _%hd7800278109%_ + _%tl7800378112%_ + _%e7800478115%_ + _%hd7800578119%_ + _%tl7800678122%_))) + (if (gx#stx-null? _%tl7800378112%_) + (_%__kont8384483845%_ + _%hd7800278109%_ + _%hd7799978099%_) (let () (declare (not safe)) - (_%g7792677960%_)))))) + (_%g7798978023%_)))))) (let () (declare (not safe)) - (_%g7792677960%_))))) - (let () (declare (not safe)) (_%g7792677960%_))))) - (let () (declare (not safe)) (_%g7792677960%_)))))))) + (_%g7798978023%_))))) + (let () (declare (not safe)) (_%g7798978023%_))))) + (let () (declare (not safe)) (_%g7798978023%_)))))))) (define |gerbil/core/contract~TypedDefinitions[:0:]#defmutable| - (lambda (_%stx78161%_) - (let* ((_%__stx8383083831%_ _%stx78161%_) - (_%g7816578199%_ + (lambda (_%stx78224%_) + (let* ((_%__stx8389383894%_ _%stx78224%_) + (_%g7822878262%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx8383083831%_)))) - (let ((_%__kont8383383834%_ - (lambda (_%L78301%_ _%L78303%_ _%L78304%_ _%L78305%_) - (let* ((_%g7833278347%_ - (lambda (_%g7833378343%_) + _%__stx8389383894%_)))) + (let ((_%__kont8389683897%_ + (lambda (_%L78364%_ _%L78366%_ _%L78367%_ _%L78368%_) + (let* ((_%g7839578410%_ + (lambda (_%g7839678406%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g7833378343%_))) - (_%g7833178392%_ - (lambda (_%g7833378351%_) - (if (gx#stx-pair? _%g7833378351%_) - (let ((_%e7833678354%_ - (gx#syntax-e _%g7833378351%_))) - (let ((_%hd7833778358%_ + _%g7839678406%_))) + (_%g7839478455%_ + (lambda (_%g7839678414%_) + (if (gx#stx-pair? _%g7839678414%_) + (let ((_%e7839978417%_ + (gx#syntax-e _%g7839678414%_))) + (let ((_%hd7840078421%_ (let () (declare (not safe)) - (##car _%e7833678354%_))) - (_%tl7833878361%_ + (##car _%e7839978417%_))) + (_%tl7840178424%_ (let () (declare (not safe)) - (##cdr _%e7833678354%_)))) - (if (gx#stx-pair? _%tl7833878361%_) - (let ((_%e7833978364%_ + (##cdr _%e7839978417%_)))) + (if (gx#stx-pair? _%tl7840178424%_) + (let ((_%e7840278427%_ (gx#syntax-e - _%tl7833878361%_))) - (let ((_%hd7834078368%_ + _%tl7840178424%_))) + (let ((_%hd7840378431%_ (let () (declare (not safe)) - (##car _%e7833978364%_))) - (_%tl7834178371%_ + (##car _%e7840278427%_))) + (_%tl7840478434%_ (let () (declare (not safe)) - (##cdr _%e7833978364%_)))) + (##cdr _%e7840278427%_)))) (if (gx#stx-null? - _%tl7834178371%_) - ((lambda (_%L78374%_ - _%L78376%_) + _%tl7840478434%_) + ((lambda (_%L78437%_ + _%L78439%_) (cons (gx#datum->syntax '#f 'begin) @@ -14061,21 +14061,21 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L78376%_ (cons _%L78304%_ '()))) + (cons _%L78439%_ (cons _%L78367%_ '()))) (cons (cons (gx#datum->syntax '#f 'def/c) - (cons (cons _%L78374%_ + (cons (cons _%L78437%_ (cons (cons (gx#datum->syntax '#f 'new-value) - (cons _%L78303%_ + (cons _%L78366%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L78301%_)) + _%L78364%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%L78376%_ + (cons _%L78439%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -14084,7 +14084,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L78305%_ + (cons _%L78368%_ (cons (cons (gx#datum->syntax '#f 'identifier-rules) @@ -14102,7 +14102,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78374%_ + (cons (cons _%L78437%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14118,7 +14118,7 @@ '#f 'new-value) '()))) - (cons (cons _%L78374%_ + (cons (cons _%L78437%_ (cons (gx#datum->syntax '#f 'new-value) @@ -14136,7 +14136,7 @@ 'syntax) (cons (gx#datum->syntax '#f 'the-var) '())) '())) - (cons _%L78376%_ '()))) + (cons _%L78439%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f @@ -14146,7 +14146,7 @@ '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) - (cons (cons _%L78376%_ + (cons (cons _%L78439%_ (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '()))) '())) @@ -14156,126 +14156,126 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd7834078368%_ - _%hd7833778358%_) - (_%g7833278347%_ - _%g7833378351%_)))) - (_%g7833278347%_ _%g7833378351%_)))) - (_%g7833278347%_ _%g7833378351%_))))) - (_%g7833178392%_ - (list (gx#stx-identifier _%L78305%_ '"__" _%L78305%_) + _%hd7840378431%_ + _%hd7840078421%_) + (_%g7839578410%_ + _%g7839678414%_)))) + (_%g7839578410%_ _%g7839678414%_)))) + (_%g7839578410%_ _%g7839678414%_))))) + (_%g7839478455%_ + (list (gx#stx-identifier _%L78368%_ '"__" _%L78368%_) (gx#stx-identifier - _%L78305%_ - _%L78305%_ + _%L78368%_ + _%L78368%_ '"-set!")))))) - (_%__kont8383583836%_ - (lambda (_%L78236%_ _%L78238%_) + (_%__kont8389883899%_ + (lambda (_%L78299%_ _%L78301%_) (cons (gx#datum->syntax '#f 'defmutable) - (cons _%L78238%_ - (cons _%L78236%_ + (cons _%L78301%_ + (cons _%L78299%_ (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f ':t) '())))))))) - (let ((_%__match8386183862%_ - (lambda (_%e7817178261%_ - _%hd7817278265%_ - _%tl7817378268%_ - _%e7817478271%_ - _%hd7817578275%_ - _%tl7817678278%_ - _%e7817778281%_ - _%hd7817878285%_ - _%tl7817978288%_ - _%e7818078291%_ - _%hd7818178295%_ - _%tl7818278298%_) - (let ((_%L78301%_ _%tl7818278298%_) - (_%L78303%_ _%hd7818178295%_) - (_%L78304%_ _%hd7817878285%_) - (_%L78305%_ _%hd7817578275%_)) - (if (and (gx#identifier? _%L78305%_) - (gx#identifier? _%L78303%_) + (let ((_%__match8392483925%_ + (lambda (_%e7823478324%_ + _%hd7823578328%_ + _%tl7823678331%_ + _%e7823778334%_ + _%hd7823878338%_ + _%tl7823978341%_ + _%e7824078344%_ + _%hd7824178348%_ + _%tl7824278351%_ + _%e7824378354%_ + _%hd7824478358%_ + _%tl7824578361%_) + (let ((_%L78364%_ _%tl7824578361%_) + (_%L78366%_ _%hd7824478358%_) + (_%L78367%_ _%hd7824178348%_) + (_%L78368%_ _%hd7823878338%_)) + (if (and (gx#identifier? _%L78368%_) + (gx#identifier? _%L78366%_) (or (gx#free-identifier=? - _%L78303%_ + _%L78366%_ (gx#datum->syntax '#f ':)) (gx#free-identifier=? - _%L78303%_ + _%L78366%_ (gx#datum->syntax '#f ':?)) (gx#free-identifier=? - _%L78303%_ + _%L78366%_ (gx#datum->syntax '#f ':~)))) - (_%__kont8383383834%_ - _%L78301%_ - _%L78303%_ - _%L78304%_ - _%L78305%_) - (let () (declare (not safe)) (_%g7816578199%_))))))) - (if (gx#stx-pair? _%__stx8383083831%_) - (let ((_%e7817178261%_ (gx#syntax-e _%__stx8383083831%_))) - (let ((_%tl7817378268%_ + (_%__kont8389683897%_ + _%L78364%_ + _%L78366%_ + _%L78367%_ + _%L78368%_) + (let () (declare (not safe)) (_%g7822878262%_))))))) + (if (gx#stx-pair? _%__stx8389383894%_) + (let ((_%e7823478324%_ (gx#syntax-e _%__stx8389383894%_))) + (let ((_%tl7823678331%_ (let () (declare (not safe)) - (##cdr _%e7817178261%_))) - (_%hd7817278265%_ + (##cdr _%e7823478324%_))) + (_%hd7823578328%_ (let () (declare (not safe)) - (##car _%e7817178261%_)))) - (if (gx#stx-pair? _%tl7817378268%_) - (let ((_%e7817478271%_ - (gx#syntax-e _%tl7817378268%_))) - (let ((_%tl7817678278%_ + (##car _%e7823478324%_)))) + (if (gx#stx-pair? _%tl7823678331%_) + (let ((_%e7823778334%_ + (gx#syntax-e _%tl7823678331%_))) + (let ((_%tl7823978341%_ (let () (declare (not safe)) - (##cdr _%e7817478271%_))) - (_%hd7817578275%_ + (##cdr _%e7823778334%_))) + (_%hd7823878338%_ (let () (declare (not safe)) - (##car _%e7817478271%_)))) - (if (gx#stx-pair? _%tl7817678278%_) - (let ((_%e7817778281%_ - (gx#syntax-e _%tl7817678278%_))) - (let ((_%tl7817978288%_ + (##car _%e7823778334%_)))) + (if (gx#stx-pair? _%tl7823978341%_) + (let ((_%e7824078344%_ + (gx#syntax-e _%tl7823978341%_))) + (let ((_%tl7824278351%_ (let () (declare (not safe)) - (##cdr _%e7817778281%_))) - (_%hd7817878285%_ + (##cdr _%e7824078344%_))) + (_%hd7824178348%_ (let () (declare (not safe)) - (##car _%e7817778281%_)))) - (if (gx#stx-pair? _%tl7817978288%_) - (let ((_%e7818078291%_ + (##car _%e7824078344%_)))) + (if (gx#stx-pair? _%tl7824278351%_) + (let ((_%e7824378354%_ (gx#syntax-e - _%tl7817978288%_))) - (let ((_%tl7818278298%_ + _%tl7824278351%_))) + (let ((_%tl7824578361%_ (let () (declare (not safe)) - (##cdr _%e7818078291%_))) - (_%hd7818178295%_ + (##cdr _%e7824378354%_))) + (_%hd7824478358%_ (let () (declare (not safe)) - (##car _%e7818078291%_)))) - (_%__match8386183862%_ - _%e7817178261%_ - _%hd7817278265%_ - _%tl7817378268%_ - _%e7817478271%_ - _%hd7817578275%_ - _%tl7817678278%_ - _%e7817778281%_ - _%hd7817878285%_ - _%tl7817978288%_ - _%e7818078291%_ - _%hd7818178295%_ - _%tl7818278298%_))) - (if (gx#stx-null? _%tl7817978288%_) - (_%__kont8383583836%_ - _%hd7817878285%_ - _%hd7817578275%_) + (##car _%e7824378354%_)))) + (_%__match8392483925%_ + _%e7823478324%_ + _%hd7823578328%_ + _%tl7823678331%_ + _%e7823778334%_ + _%hd7823878338%_ + _%tl7823978341%_ + _%e7824078344%_ + _%hd7824178348%_ + _%tl7824278351%_ + _%e7824378354%_ + _%hd7824478358%_ + _%tl7824578361%_))) + (if (gx#stx-null? _%tl7824278351%_) + (_%__kont8389883899%_ + _%hd7824178348%_ + _%hd7823878338%_) (let () (declare (not safe)) - (_%g7816578199%_)))))) + (_%g7822878262%_)))))) (let () (declare (not safe)) - (_%g7816578199%_))))) - (let () (declare (not safe)) (_%g7816578199%_))))) - (let () (declare (not safe)) (_%g7816578199%_)))))))))) + (_%g7822878262%_))))) + (let () (declare (not safe)) (_%g7822878262%_))))) + (let () (declare (not safe)) (_%g7822878262%_)))))))))) diff --git a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm index 648d4cd3a..cbb97ec2e 100644 --- a/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm +++ b/src/bootstrap/gerbil/core/contract~ClassMeta~0.scm @@ -1,145 +1,145 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~ClassMeta::timestamp 1733870069) + (define gerbil/core/contract~ClassMeta::timestamp 1734131742) (define gerbil/core/contract~ClassMeta#!class-precedence-list - (lambda (_%klass52363%_) - (let ((_%$e52365%_ - (let ((__obj83916 _%klass52363%_)) + (lambda (_%klass52426%_) + (let ((_%$e52428%_ + (let ((__obj83979 _%klass52426%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83916 + __obj83979 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83916 '5 '#f '#f)) + (##unchecked-structure-ref __obj83979 '5 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83916 + __obj83979 'precedence-list))))) - (if _%$e52365%_ - _%$e52365%_ - (let ((_g83963_ + (if _%$e52428%_ + _%$e52428%_ + (let ((_g84026_ (c4-linearize '() - (let ((__obj83917 _%klass52363%_)) + (let ((__obj83980 _%klass52426%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83917 + __obj83980 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83917 '3 '#f '#f)) + (##unchecked-structure-ref __obj83980 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83917 + __obj83980 'super))) 'get-precedence-list: - (lambda (_%klass-id52369%_) - (cons _%klass-id52369%_ + (lambda (_%klass-id52432%_) + (cons _%klass-id52432%_ (gerbil/core/contract~ClassMeta#!class-precedence-list - (gx#syntax-local-value _%klass-id52369%_)))) + (gx#syntax-local-value _%klass-id52432%_)))) 'struct: - (lambda (_%klass-id52371%_) - (let ((__obj83918 - (gx#syntax-local-value _%klass-id52371%_))) + (lambda (_%klass-id52434%_) + (let ((__obj83981 + (gx#syntax-local-value _%klass-id52434%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83918 + __obj83981 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83918 + __obj83981 '7 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83918 + __obj83981 'struct?)))) 'eq: gx#free-identifier=? 'get-name: gx#stx-e))) (begin - (let ((_g83964_ + (let ((_g84027_ (let () (declare (not safe)) - (if (##values? _g83963_) - (##vector-length _g83963_) + (if (##values? _g84026_) + (##values-length _g84026_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g83964_ 2))) - (error "Context expects 2 values" _g83964_))) - (let ((_%precedence-list52373%_ - (let () (declare (not safe)) (##vector-ref _g83963_ 0))) - (_%base-struct52374%_ + (if (not (let () (declare (not safe)) (##fx= _g84027_ 2))) + (error "Context expects 2 values" _g84027_))) + (let ((_%precedence-list52436%_ + (let () (declare (not safe)) (##values-ref _g84026_ 0))) + (_%base-struct52437%_ (let () (declare (not safe)) - (##vector-ref _g83963_ 1)))) - (let ((_%precedence-list52418%_ - (if (let ((__tmp83965 - (let ((__obj83919 _%klass52363%_)) + (##values-ref _g84026_ 1)))) + (let ((_%precedence-list52481%_ + (if (let ((__tmp84028 + (let ((__obj83982 _%klass52426%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83919 + __obj83982 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83919 + __obj83982 '1 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83919 + __obj83982 'id))))) (declare (not safe)) - (##memq __tmp83965 '(t object class))) - _%precedence-list52373%_ + (##memq __tmp84028 '(t object class))) + _%precedence-list52436%_ (if (member ':object - _%precedence-list52373%_ + _%precedence-list52436%_ gx#free-identifier=?) - _%precedence-list52373%_ - (if (let ((__obj83920 _%klass52363%_)) + _%precedence-list52436%_ + (if (let ((__obj83983 _%klass52426%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83920 + __obj83983 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83920 + __obj83983 '9 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj83920 + __obj83983 'system?))) (if (member ':t - _%precedence-list52373%_ + _%precedence-list52436%_ gx#free-identifier=?) - _%precedence-list52373%_ - (let ((__tmp83966 + _%precedence-list52436%_ + (let ((__tmp84029 (cons (gx#core-quote-syntax ':t) '()))) (declare (not safe)) (##append - _%precedence-list52373%_ - __tmp83966))) - (let _%loop52380%_ ((_%tail52382%_ - _%precedence-list52373%_) - (_%head52383%_ '())) - (let* ((_%tail5238452392%_ - _%tail52382%_) - (_%else5238652400%_ + _%precedence-list52436%_ + __tmp84029))) + (let _%loop52443%_ ((_%tail52445%_ + _%precedence-list52436%_) + (_%head52446%_ '())) + (let* ((_%tail5244752455%_ + _%tail52445%_) + (_%else5244952463%_ (lambda () (foldl cons (cons (gx#core-quote-syntax @@ -148,59 +148,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':t) '())) - _%head52383%_))) + _%head52446%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K5238852406%_ - (lambda (_%rest52403%_ - _%hd52404%_) + (_%K5245152469%_ + (lambda (_%rest52466%_ + _%hd52467%_) (if (gx#free-identifier=? - _%hd52404%_ + _%hd52467%_ ':t) (foldl cons (cons (gx#core-quote-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< ':object) - _%tail52382%_) - _%head52383%_) + _%tail52445%_) + _%head52446%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop52380%_ - _%rest52403%_ - (cons _%hd52404%_ - _%head52383%_)))))) - (if (pair? _%tail5238452392%_) - (let ((_%hd5238952409%_ + (_%loop52443%_ + _%rest52466%_ + (cons _%hd52467%_ + _%head52446%_)))))) + (if (pair? _%tail5244752455%_) + (let ((_%hd5245252472%_ (let () (declare (not safe)) - (##car _%tail5238452392%_))) - (_%tl5239052411%_ + (##car _%tail5244752455%_))) + (_%tl5245352474%_ (let () (declare (not safe)) - (##cdr _%tail5238452392%_)))) - (let* ((_%hd52414%_ - _%hd5238952409%_) - (_%rest52416%_ - _%tl5239052411%_)) - (_%K5238852406%_ - _%rest52416%_ - _%hd52414%_))) - (_%else5238652400%_))))))))) - (let ((__obj83921 _%klass52363%_)) + (##cdr _%tail5244752455%_)))) + (let* ((_%hd52477%_ + _%hd5245252472%_) + (_%rest52479%_ + _%tl5245352474%_)) + (_%K5245152469%_ + _%rest52479%_ + _%hd52477%_))) + (_%else5244952463%_))))))))) + (let ((__obj83984 _%klass52426%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83921 + __obj83984 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj83921 - _%precedence-list52418%_ + __obj83984 + _%precedence-list52481%_ '5 '#f '#f)) (class-slot-set! gerbil/core/mop~MOP-2#class-type-info::t - __obj83921 + __obj83984 'precedence-list - _%precedence-list52418%_))) - _%precedence-list52418%_))))))))) + _%precedence-list52481%_))) + _%precedence-list52481%_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm index d8add852e..f5f5e1e99 100644 --- a/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm +++ b/src/bootstrap/gerbil/core/contract~InterfaceInfo~0.scm @@ -1,15 +1,15 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~InterfaceInfo::timestamp 1733870069) + (define gerbil/core/contract~InterfaceInfo::timestamp 1734131742) (begin - (define gerbil/core/contract~InterfaceInfo#_g83959_ + (define gerbil/core/contract~InterfaceInfo#_g84022_ (##structure gx#syntax-quote::t 'cast #f (gx#current-expander-context) '())) - (define gerbil/core/contract~InterfaceInfo#_g83960_ + (define gerbil/core/contract~InterfaceInfo#_g84023_ (##structure gx#syntax-quote::t 'immediate-instance-of? @@ -38,10 +38,10 @@ (make-class-predicate gerbil/core/contract~InterfaceInfo#interface-info::t)) (define gerbil/core/contract~InterfaceInfo#make-interface-info - (lambda _%$args45025%_ + (lambda _%$args45088%_ (apply make-instance gerbil/core/contract~InterfaceInfo#interface-info::t - _%$args45025%_))) + _%$args45088%_))) (define gerbil/core/contract~InterfaceInfo#interface-info-name (make-class-slot-accessor gerbil/core/contract~InterfaceInfo#interface-info::t @@ -219,96 +219,96 @@ gerbil/core/contract~InterfaceInfo#interface-info::t 'unchecked-implementation-methods)) (define gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander - (let* ((_%g4481444828%_ - (lambda (_%g4481544825%_) + (let* ((_%g4487744891%_ + (lambda (_%g4487844888%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4481544825%_))) - (_%g4481345022%_ - (lambda (_%g4481544831%_) - (if (gx#stx-pair? _%g4481544831%_) - (let ((_%e4481844833%_ (gx#syntax-e _%g4481544831%_))) - (let ((_%hd4481944836%_ + _%g4487844888%_))) + (_%g4487645085%_ + (lambda (_%g4487844894%_) + (if (gx#stx-pair? _%g4487844894%_) + (let ((_%e4488144896%_ (gx#syntax-e _%g4487844894%_))) + (let ((_%hd4488244899%_ (let () (declare (not safe)) - (##car _%e4481844833%_))) - (_%tl4482044838%_ + (##car _%e4488144896%_))) + (_%tl4488344901%_ (let () (declare (not safe)) - (##cdr _%e4481844833%_)))) - (if (gx#stx-pair? _%tl4482044838%_) - (let ((_%e4482144841%_ - (gx#syntax-e _%tl4482044838%_))) - (let ((_%hd4482244844%_ + (##cdr _%e4488144896%_)))) + (if (gx#stx-pair? _%tl4488344901%_) + (let ((_%e4488444904%_ + (gx#syntax-e _%tl4488344901%_))) + (let ((_%hd4488544907%_ (let () (declare (not safe)) - (##car _%e4482144841%_))) - (_%tl4482344846%_ + (##car _%e4488444904%_))) + (_%tl4488644909%_ (let () (declare (not safe)) - (##cdr _%e4482144841%_)))) - (if (gx#stx-null? _%tl4482344846%_) - ((lambda (_%L44849%_ _%L44850%_) - (lambda (_%self44864%_ _%stx44865%_) - (let* ((_%__stx7840078401%_ - _%stx44865%_) - (_%g4486844881%_ + (##cdr _%e4488444904%_)))) + (if (gx#stx-null? _%tl4488644909%_) + ((lambda (_%L44912%_ _%L44913%_) + (lambda (_%self44927%_ _%stx44928%_) + (let* ((_%__stx7846378464%_ + _%stx44928%_) + (_%g4493144944%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx7840078401%_)))) - (let ((_%__kont7840278403%_ - (lambda (_%L44939%_) - (let* ((_%g4495044968%_ - (lambda (_%g4495144965%_) + _%__stx7846378464%_)))) + (let ((_%__kont7846578466%_ + (lambda (_%L45002%_) + (let* ((_%g4501345031%_ + (lambda (_%g4501445028%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4495144965%_))) - (_%g4494945016%_ - (lambda (_%g4495144971%_) - (if (gx#stx-pair? _%g4495144971%_) - (let ((_%e4495544973%_ - (gx#syntax-e _%g4495144971%_))) - (let ((_%hd4495644976%_ + _%g4501445028%_))) + (_%g4501245079%_ + (lambda (_%g4501445034%_) + (if (gx#stx-pair? _%g4501445034%_) + (let ((_%e4501845036%_ + (gx#syntax-e _%g4501445034%_))) + (let ((_%hd4501945039%_ (let () (declare (not safe)) - (##car _%e4495544973%_))) - (_%tl4495744978%_ + (##car _%e4501845036%_))) + (_%tl4502045041%_ (let () (declare (not safe)) - (##cdr _%e4495544973%_)))) - (if (gx#stx-pair? _%tl4495744978%_) - (let ((_%e4495844981%_ - (gx#syntax-e _%tl4495744978%_))) - (let ((_%hd4495944984%_ + (##cdr _%e4501845036%_)))) + (if (gx#stx-pair? _%tl4502045041%_) + (let ((_%e4502145044%_ + (gx#syntax-e _%tl4502045041%_))) + (let ((_%hd4502245047%_ (let () (declare (not safe)) - (##car _%e4495844981%_))) - (_%tl4496044986%_ + (##car _%e4502145044%_))) + (_%tl4502345049%_ (let () (declare (not safe)) - (##cdr _%e4495844981%_)))) - (if (gx#stx-pair? _%tl4496044986%_) - (let ((_%e4496144989%_ + (##cdr _%e4502145044%_)))) + (if (gx#stx-pair? _%tl4502345049%_) + (let ((_%e4502445052%_ (gx#syntax-e - _%tl4496044986%_))) - (let ((_%hd4496244992%_ + _%tl4502345049%_))) + (let ((_%hd4502545055%_ (let () (declare (not safe)) - (##car _%e4496144989%_))) - (_%tl4496344994%_ + (##car _%e4502445052%_))) + (_%tl4502645057%_ (let () (declare (not safe)) - (##cdr _%e4496144989%_)))) + (##cdr _%e4502445052%_)))) (if (gx#stx-null? - _%tl4496344994%_) - ((lambda (_%L44997%_ - _%L44998%_ - _%L44999%_) + _%tl4502645057%_) + ((lambda (_%L45060%_ + _%L45061%_ + _%L45062%_) (cons (gx#datum->syntax '#f 'let) @@ -316,22 +316,22 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) - (cons _%L44939%_ '())) + (cons _%L45002%_ '())) (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@type) - (cons _%L44997%_ '())) + (cons _%L45060%_ '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L44849%_ + (cons (cons _%L44912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L44999%_ + (cons _%L45062%_ (cons (gx#datum->syntax '#f '$obj) '()))) (cons (gx#datum->syntax '#f '$obj) - (cons (cons _%L44850%_ - (cons _%L44998%_ + (cons (cons _%L44913%_ + (cons _%L45061%_ (cons (gx#datum->syntax '#f '$obj) @@ -341,246 +341,246 @@ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd4496244992%_ - _%hd4495944984%_ - _%hd4495644976%_) - (_%g4495044968%_ - _%g4495144971%_)))) - (_%g4495044968%_ - _%g4495144971%_)))) - (_%g4495044968%_ _%g4495144971%_)))) - (_%g4495044968%_ _%g4495144971%_))))) - (_%g4494945016%_ - (list (let ((__obj83884 _%self44864%_)) + _%hd4502545055%_ + _%hd4502245047%_ + _%hd4501945039%_) + (_%g4501345031%_ + _%g4501445034%_)))) + (_%g4501345031%_ + _%g4501445034%_)))) + (_%g4501345031%_ _%g4501445034%_)))) + (_%g4501345031%_ _%g4501445034%_))))) + (_%g4501245079%_ + (list (let ((__obj83947 _%self44927%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83884 + __obj83947 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83884 + __obj83947 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83884 + __obj83947 'instance-type))) - (let ((__obj83885 _%self44864%_)) + (let ((__obj83948 _%self44927%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83885 + __obj83948 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83885 + __obj83948 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83885 + __obj83948 'interface-descriptor))) - (let ((__obj83886 _%self44864%_)) + (let ((__obj83949 _%self44927%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83886 + __obj83949 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83886 + __obj83949 '4 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83886 + __obj83949 'instance-type)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont7840478405%_ + (_%__kont7846778468%_ (lambda () - (let* ((_%g4488844895%_ - (lambda (_%g4488944892%_) + (let* ((_%g4495144958%_ + (lambda (_%g4495244955%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g4488944892%_))) - (_%g4488744915%_ - (lambda (_%g4488944898%_) - ((lambda (_%L44900%_) _%L44900%_) _%g4488944898%_)))) - (_%g4488744915%_ - (let ((__obj83887 _%self44864%_)) + _%g4495244955%_))) + (_%g4495044978%_ + (lambda (_%g4495244961%_) + ((lambda (_%L44963%_) _%L44963%_) _%g4495244961%_)))) + (_%g4495044978%_ + (let ((__obj83950 _%self44927%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83887 + __obj83950 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj83887 '5 '#f '#f)) + (##unchecked-structure-ref __obj83950 '5 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83887 + __obj83950 'interface-descriptor)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g4486744918%_ + (let ((_%g4493044981%_ (lambda () (if (gx#identifier? - _%stx44865%_) - (_%__kont7840478405%_) + _%stx44928%_) + (_%__kont7846778468%_) (let () (declare (not safe)) - (_%g4486844881%_)))))) + (_%g4493144944%_)))))) (if (gx#stx-pair? - _%__stx7840078401%_) - (let ((_%e4487144923%_ + _%__stx7846378464%_) + (let ((_%e4493444986%_ (gx#syntax-e - _%__stx7840078401%_))) - (let ((_%tl4487344928%_ + _%__stx7846378464%_))) + (let ((_%tl4493644991%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4487144923%_))) - (_%hd4487244926%_ - (let () (declare (not safe)) (##car _%e4487144923%_)))) - (if (gx#stx-pair? _%tl4487344928%_) - (let ((_%e4487444931%_ (gx#syntax-e _%tl4487344928%_))) - (let ((_%tl4487644936%_ + (##cdr _%e4493444986%_))) + (_%hd4493544989%_ + (let () (declare (not safe)) (##car _%e4493444986%_)))) + (if (gx#stx-pair? _%tl4493644991%_) + (let ((_%e4493744994%_ (gx#syntax-e _%tl4493644991%_))) + (let ((_%tl4493944999%_ (let () (declare (not safe)) - (##cdr _%e4487444931%_))) - (_%hd4487544934%_ + (##cdr _%e4493744994%_))) + (_%hd4493844997%_ (let () (declare (not safe)) - (##car _%e4487444931%_)))) - (if (gx#stx-null? _%tl4487644936%_) - (_%__kont7840278403%_ _%hd4487544934%_) - (let () (declare (not safe)) (_%g4486744918%_))))) - (let () (declare (not safe)) (_%g4486744918%_))))) + (##car _%e4493744994%_)))) + (if (gx#stx-null? _%tl4493944999%_) + (_%__kont7846578466%_ _%hd4493844997%_) + (let () (declare (not safe)) (_%g4493044981%_))))) + (let () (declare (not safe)) (_%g4493044981%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4486744918%_)))))))) - _%hd4482244844%_ - _%hd4481944836%_) - (_%g4481444828%_ _%g4481544831%_)))) - (_%g4481444828%_ _%g4481544831%_)))) - (_%g4481444828%_ _%g4481544831%_))))) - (_%g4481345022%_ - (list gerbil/core/contract~InterfaceInfo#_g83959_ - gerbil/core/contract~InterfaceInfo#_g83960_)))) + (_%g4493044981%_)))))))) + _%hd4488544907%_ + _%hd4488244899%_) + (_%g4487744891%_ _%g4487844894%_)))) + (_%g4487744891%_ _%g4487844894%_)))) + (_%g4487744891%_ _%g4487844894%_))))) + (_%g4487645085%_ + (list gerbil/core/contract~InterfaceInfo#_g84022_ + gerbil/core/contract~InterfaceInfo#_g84023_)))) (bind-method! gerbil/core/contract~InterfaceInfo#interface-info::t 'apply-macro-expander gerbil/core/contract~InterfaceInfo#interface-info::apply-macro-expander '#f) (define gerbil/core/contract~InterfaceInfo#interface-info-flatten-mixin - (lambda (_%info44647%_) - (let _%loop44649%_ ((_%rest44651%_ - (let ((__obj83889 _%info44647%_)) + (lambda (_%info44710%_) + (let _%loop44712%_ ((_%rest44714%_ + (let ((__obj83952 _%info44710%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83889 + __obj83952 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83889 + __obj83952 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83889 + __obj83952 'interface-mixin)))) - (_%result44652%_ '())) - (let* ((_%rest4465344661%_ _%rest44651%_) - (_%else4465544669%_ (lambda () _%result44652%_)) - (_%K4465744679%_ - (lambda (_%rest44672%_ _%id44673%_) - (let* ((_%mixin44675%_ - (let ((__obj83888 - (gx#syntax-local-value _%id44673%_))) + (_%result44715%_ '())) + (let* ((_%rest4471644724%_ _%rest44714%_) + (_%else4471844732%_ (lambda () _%result44715%_)) + (_%K4472044742%_ + (lambda (_%rest44735%_ _%id44736%_) + (let* ((_%mixin44738%_ + (let ((__obj83951 + (gx#syntax-local-value _%id44736%_))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj83888 + __obj83951 'gerbil/core/contract~InterfaceInfo#interface-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj83888 + __obj83951 '2 '#f '#f)) (class-slot-ref gerbil/core/contract~InterfaceInfo#interface-info::t - __obj83888 + __obj83951 'interface-mixin)))) - (_%result44677%_ - (if (member _%id44673%_ - _%result44652%_ + (_%result44740%_ + (if (member _%id44736%_ + _%result44715%_ gx#free-identifier=?) - _%result44652%_ - (cons _%id44673%_ _%result44652%_)))) - (_%loop44649%_ - (foldl cons _%rest44672%_ _%mixin44675%_) - _%result44677%_))))) - (if (pair? _%rest4465344661%_) - (let ((_%hd4465844682%_ + _%result44715%_ + (cons _%id44736%_ _%result44715%_)))) + (_%loop44712%_ + (foldl cons _%rest44735%_ _%mixin44738%_) + _%result44740%_))))) + (if (pair? _%rest4471644724%_) + (let ((_%hd4472144745%_ (let () (declare (not safe)) - (##car _%rest4465344661%_))) - (_%tl4465944684%_ + (##car _%rest4471644724%_))) + (_%tl4472244747%_ (let () (declare (not safe)) - (##cdr _%rest4465344661%_)))) - (let* ((_%id44687%_ _%hd4465844682%_) - (_%rest44689%_ _%tl4465944684%_)) - (_%K4465744679%_ _%rest44689%_ _%id44687%_))) - (_%else4465544669%_)))))) + (##cdr _%rest4471644724%_)))) + (let* ((_%id44750%_ _%hd4472144745%_) + (_%rest44752%_ _%tl4472244747%_)) + (_%K4472044742%_ _%rest44752%_ _%id44750%_))) + (_%else4471844732%_)))))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - (lambda (_%stx44628%_ _%is?44629%_) - (if (gx#identifier? _%stx44628%_) - (let ((_%e4463044632%_ - (gx#syntax-local-value _%stx44628%_ false))) - (if _%e4463044632%_ - (let ((_%e44635%_ _%e4463044632%_)) + (lambda (_%stx44691%_ _%is?44692%_) + (if (gx#identifier? _%stx44691%_) + (let ((_%e4469344695%_ + (gx#syntax-local-value _%stx44691%_ false))) + (if _%e4469344695%_ + (let ((_%e44698%_ _%e4469344695%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/contract~InterfaceInfo#interface-info::t - _%e44635%_)) - (_%is?44629%_ _%e44635%_) + _%e44698%_)) + (_%is?44692%_ _%e44698%_) '#f)) '#f)) '#f))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - (lambda (_%stx44640%_) - (let ((_%is?44642%_ true)) + (lambda (_%stx44703%_) + (let ((_%is?44705%_ true)) (gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _%stx44640%_ - _%is?44642%_)))) + _%stx44703%_ + _%is?44705%_)))) (define gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - (lambda _g83962_ - (let ((_g83961_ (let () (declare (not safe)) (##length _g83962_)))) - (cond ((let () (declare (not safe)) (##fx= _g83961_ 1)) + (lambda _g84025_ + (let ((_g84024_ (let () (declare (not safe)) (##length _g84025_)))) + (cond ((let () (declare (not safe)) (##fx= _g84024_ 1)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__0 - _g83962_)) - ((let () (declare (not safe)) (##fx= _g83961_ 2)) + _g84025_)) + ((let () (declare (not safe)) (##fx= _g84024_ 2)) (apply gerbil/core/contract~InterfaceInfo#syntax-local-interface-info?__% - _g83962_)) + _g84025_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/contract~InterfaceInfo#syntax-local-interface-info? - _g83962_))))))))) + _g84025_))))))))) diff --git a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm index 75435a7d3..da0fe9476 100644 --- a/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm +++ b/src/bootstrap/gerbil/core/contract~TypeEnv~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/contract~TypeEnv::timestamp 1733870069) + (define gerbil/core/contract~TypeEnv::timestamp 1734131742) (begin (define gerbil/core/contract~TypeEnv#type-env::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/contract~TypeEnv#type-env? (make-class-predicate gerbil/core/contract~TypeEnv#type-env::t)) (define gerbil/core/contract~TypeEnv#make-type-env - (lambda _%$args46361%_ + (lambda _%$args46424%_ (apply make-instance gerbil/core/contract~TypeEnv#type-env::t - _%$args46361%_))) + _%$args46424%_))) (define gerbil/core/contract~TypeEnv#type-env-var (make-class-slot-accessor gerbil/core/contract~TypeEnv#type-env::t 'var)) (define gerbil/core/contract~TypeEnv#type-env-type @@ -79,22 +79,22 @@ (lambda () (gx#syntax-local-value (gx#syntax-local-introduce '@@type) false))) (define gerbil/core/contract~TypeEnv#type-env-lookup - (lambda (_%var46351%_) - (let _%loop46353%_ ((_%te46355%_ + (lambda (_%var46414%_) + (let _%loop46416%_ ((_%te46418%_ (gerbil/core/contract~TypeEnv#current-type-env))) - (if (not _%te46355%_) + (if (not _%te46418%_) '#f (if (gx#free-identifier=? - _%var46351%_ + _%var46414%_ (##direct-structure-ref - _%te46355%_ + _%te46418%_ '1 gerbil/core/contract~TypeEnv#type-env::t '#f)) - _%te46355%_ - (_%loop46353%_ + _%te46418%_ + (_%loop46416%_ (##direct-structure-ref - _%te46355%_ + _%te46418%_ '4 gerbil/core/contract~TypeEnv#type-env::t '#f))))))))) diff --git a/src/bootstrap/gerbil/core/expander.ssi b/src/bootstrap/gerbil/core/expander.ssi index ef01a3957..525adc40e 100644 --- a/src/bootstrap/gerbil/core/expander.ssi +++ b/src/bootstrap/gerbil/core/expander.ssi @@ -81,6 +81,7 @@ namespace: gerbil/core/expander (current-expander-phi gx#current-expander-phi) (current-expander-compiling? gx#current-expander-compiling?) + (current-compilation-target gx#current-compilation-target) (current-module-reader-path gx#current-module-reader-path) (current-module-reader-args gx#current-module-reader-args) (local-context? gx#local-context?) diff --git a/src/bootstrap/gerbil/core/expander~2.scm b/src/bootstrap/gerbil/core/expander~2.scm index f2af5b12f..682370ddc 100644 --- a/src/bootstrap/gerbil/core/expander~2.scm +++ b/src/bootstrap/gerbil/core/expander~2.scm @@ -47,7 +47,7 @@ (declare (not safe)) (if (##values? _g1917_) - (##vector-length + (##values-length _g1917_) 1)))) (if (not (let () @@ -58,11 +58,11 @@ (let ((_%target375416%_ (let () (declare (not safe)) - (##vector-ref _g1917_ 0))) + (##values-ref _g1917_ 0))) (_%tl377419%_ (let () (declare (not safe)) - (##vector-ref _g1917_ 1)))) + (##values-ref _g1917_ 1)))) (if (gx#stx-null? _%tl377419%_) (letrec ((_%loop378422%_ (lambda (_%hd376426%_ @@ -187,7 +187,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (if (##values? _g1919_) - (##vector-length _g1919_) + (##values-length _g1919_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () @@ -201,14 +201,14 @@ (let () (declare (not safe)) - (##vector-ref + (##values-ref _g1919_ 0))) (_%tl620642%_ (let () (declare (not safe)) - (##vector-ref + (##values-ref _g1919_ 1)))) (if (gx#stx-null? diff --git a/src/bootstrap/gerbil/core/macro-object~0.scm b/src/bootstrap/gerbil/core/macro-object~0.scm index 392bfc4da..3164971fc 100644 --- a/src/bootstrap/gerbil/core/macro-object~0.scm +++ b/src/bootstrap/gerbil/core/macro-object~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/macro-object::timestamp 1733870069) + (define gerbil/core/macro-object::timestamp 1734131741) (begin (define gerbil/core/macro-object#macro-object::t (make-class-type @@ -13,10 +13,10 @@ (define gerbil/core/macro-object#macro-object? (make-class-predicate gerbil/core/macro-object#macro-object::t)) (define gerbil/core/macro-object#make-macro-object - (lambda _%$args27824%_ + (lambda _%$args27887%_ (apply make-instance gerbil/core/macro-object#macro-object::t - _%$args27824%_))) + _%$args27887%_))) (define gerbil/core/macro-object#macro-object-macro (make-class-slot-accessor gerbil/core/macro-object#macro-object::t @@ -34,33 +34,33 @@ gerbil/core/macro-object#macro-object::t 'macro)) (define gerbil/core/macro-object#macro-object::apply-macro-expander - (lambda (_%self27821%_ _%stx27822%_) + (lambda (_%self27884%_ _%stx27885%_) (gx#core-apply-expander - (let ((__obj27831 _%self27821%_)) + (let ((__obj27894 _%self27884%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27831 + __obj27894 'gerbil.core#macro-object::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj27831 '1 '#f '#f)) + (##unchecked-structure-ref __obj27894 '1 '#f '#f)) (class-slot-ref gerbil/core/macro-object#macro-object::t - __obj27831 + __obj27894 'macro))) - _%stx27822%_))) + _%stx27885%_))) (define gerbil/core/macro-object#macro-object::apply-macro-expander::specialize - (lambda (__klass27826 __method-table27827) - (let ((__macro27828 - (let ((__slot27829 (class-slot-offset __klass27826 'macro))) - (if __slot27829 __slot27829 (error '"Unknown slot" 'macro))))) - (lambda (_%self27821%_ _%stx27822%_) + (lambda (__klass27889 __method-table27890) + (let ((__macro27891 + (let ((__slot27892 (class-slot-offset __klass27889 'macro))) + (if __slot27892 __slot27892 (error '"Unknown slot" 'macro))))) + (lambda (_%self27884%_ _%stx27885%_) (gx#core-apply-expander (let () (declare (not safe)) - (##unchecked-structure-ref _%self27821%_ __macro27828 '#f '#f)) - _%stx27822%_))))) + (##unchecked-structure-ref _%self27884%_ __macro27891 '#f '#f)) + _%stx27885%_))))) (bind-specializer! gerbil/core/macro-object#macro-object::apply-macro-expander gerbil/core/macro-object#macro-object::apply-macro-expander::specialize) diff --git a/src/bootstrap/gerbil/core/macro-object~1.scm b/src/bootstrap/gerbil/core/macro-object~1.scm index 48cd7af18..056cc909f 100644 --- a/src/bootstrap/gerbil/core/macro-object~1.scm +++ b/src/bootstrap/gerbil/core/macro-object~1.scm @@ -1,48 +1,48 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/macro-object[1]#_g27833_| + (define |gerbil/core/macro-object[1]#_g27896_| (##structure gx#syntax-quote::t 'macro-object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27835_| + (define |gerbil/core/macro-object[1]#_g27898_| (##structure gx#syntax-quote::t 'make-macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27837_| + (define |gerbil/core/macro-object[1]#_g27900_| (##structure gx#syntax-quote::t 'macro-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27839_| + (define |gerbil/core/macro-object[1]#_g27902_| (##structure gx#syntax-quote::t 'macro-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27841_| + (define |gerbil/core/macro-object[1]#_g27904_| (##structure gx#syntax-quote::t 'macro-object-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27843_| + (define |gerbil/core/macro-object[1]#_g27906_| (##structure gx#syntax-quote::t '¯o-object-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/macro-object[1]#_g27845_| + (define |gerbil/core/macro-object[1]#_g27908_| (##structure gx#syntax-quote::t '¯o-object-macro-set! @@ -50,7 +50,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/macro-object[:0:]#macro-object| - (let ((__obj27830 + (let ((__obj27893 (let () (declare (not safe)) (##structure @@ -79,55 +79,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27830 + __obj27893 'gerbil.core#macro-object::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 'macro-object '2 '#f '#f)) + (##unchecked-structure-set! __obj27893 'macro-object '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '(macro) '4 '#f '#f)) + (##unchecked-structure-set! __obj27893 '(macro) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27893 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj27893 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27830 '#f '11 '#f '#f)) - (let ((__tmp27832 |gerbil/core/macro-object[1]#_g27833_|)) + (##unchecked-structure-set! __obj27893 '#f '11 '#f '#f)) + (let ((__tmp27895 |gerbil/core/macro-object[1]#_g27896_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27832 '12 '#f '#f)) - (let ((__tmp27834 |gerbil/core/macro-object[1]#_g27835_|)) + (##unchecked-structure-set! __obj27893 __tmp27895 '12 '#f '#f)) + (let ((__tmp27897 |gerbil/core/macro-object[1]#_g27898_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27834 '13 '#f '#f)) - (let ((__tmp27836 |gerbil/core/macro-object[1]#_g27837_|)) + (##unchecked-structure-set! __obj27893 __tmp27897 '13 '#f '#f)) + (let ((__tmp27899 |gerbil/core/macro-object[1]#_g27900_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27836 '14 '#f '#f)) - (let ((__tmp27838 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27839_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27899 '14 '#f '#f)) + (let ((__tmp27901 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27902_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27838 '15 '#f '#f)) - (let ((__tmp27840 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27841_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27901 '15 '#f '#f)) + (let ((__tmp27903 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27904_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27840 '16 '#f '#f)) - (let ((__tmp27842 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27843_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27903 '16 '#f '#f)) + (let ((__tmp27905 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27906_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27842 '17 '#f '#f)) - (let ((__tmp27844 - (cons (cons 'macro |gerbil/core/macro-object[1]#_g27845_|) '()))) + (##unchecked-structure-set! __obj27893 __tmp27905 '17 '#f '#f)) + (let ((__tmp27907 + (cons (cons 'macro |gerbil/core/macro-object[1]#_g27908_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27830 __tmp27844 '18 '#f '#f)) - __obj27830))) + (##unchecked-structure-set! __obj27893 __tmp27907 '18 '#f '#f)) + __obj27893))) diff --git a/src/bootstrap/gerbil/core/match~1.scm b/src/bootstrap/gerbil/core/match~1.scm index 1c55d1261..236078731 100644 --- a/src/bootstrap/gerbil/core/match~1.scm +++ b/src/bootstrap/gerbil/core/match~1.scm @@ -1,107 +1,107 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[1]#_g39874_| + (define |gerbil/core/match[1]#_g39937_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39875_| + (define |gerbil/core/match[1]#_g39938_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39876_| + (define |gerbil/core/match[1]#_g39939_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39877_| + (define |gerbil/core/match[1]#_g39940_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39878_| + (define |gerbil/core/match[1]#_g39941_| (##structure gx#syntax-quote::t 'apply #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39879_| + (define |gerbil/core/match[1]#_g39942_| (##structure gx#syntax-quote::t '? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39880_| + (define |gerbil/core/match[1]#_g39943_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39881_| + (define |gerbil/core/match[1]#_g39944_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39882_| + (define |gerbil/core/match[1]#_g39945_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39883_| + (define |gerbil/core/match[1]#_g39946_| (##structure gx#syntax-quote::t 'cons #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39884_| + (define |gerbil/core/match[1]#_g39947_| (##structure gx#syntax-quote::t 'cons* #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39885_| + (define |gerbil/core/match[1]#_g39948_| (##structure gx#syntax-quote::t '@list #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39886_| + (define |gerbil/core/match[1]#_g39949_| (##structure gx#syntax-quote::t 'box #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39887_| + (define |gerbil/core/match[1]#_g39950_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39888_| + (define |gerbil/core/match[1]#_g39951_| (##structure gx#syntax-quote::t 'vector #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39901_| + (define |gerbil/core/match[1]#_g39964_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39909_| + (define |gerbil/core/match[1]#_g39972_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39910_| + (define |gerbil/core/match[1]#_g39973_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39911_| + (define |gerbil/core/match[1]#_g39974_| (##structure gx#syntax-quote::t '<...> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39916_| + (define |gerbil/core/match[1]#_g39979_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39917_| + (define |gerbil/core/match[1]#_g39980_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39918_| + (define |gerbil/core/match[1]#_g39981_| (##structure gx#syntax-quote::t 'and #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39919_| + (define |gerbil/core/match[1]#_g39982_| (##structure gx#syntax-quote::t 'or #f (gx#current-expander-context) '())) - (define |gerbil/core/match[1]#_g39920_| + (define |gerbil/core/match[1]#_g39983_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) (begin (define |gerbil/core/match[1]#match-macro::t| @@ -115,10 +115,10 @@ (define |gerbil/core/match[1]#match-macro?| (make-class-predicate |gerbil/core/match[1]#match-macro::t|)) (define |gerbil/core/match[1]#make-match-macro| - (lambda _%$args35173%_ + (lambda _%$args35236%_ (apply make-instance |gerbil/core/match[1]#match-macro::t| - _%$args35173%_))) + _%$args35236%_))) (define |gerbil/core/match[1]#match-macro-macro| (make-class-slot-accessor |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#match-macro-macro-set!| @@ -132,4537 +132,4537 @@ |gerbil/core/match[1]#match-macro::t| 'macro)) (define |gerbil/core/match[1]#syntax-local-match-macro?| - (lambda (_%stx35170%_) - (if (gx#identifier? _%stx35170%_) - (let ((__tmp39873 (gx#syntax-local-value _%stx35170%_ false))) + (lambda (_%stx35233%_) + (if (gx#identifier? _%stx35233%_) + (let ((__tmp39936 (gx#syntax-local-value _%stx35233%_ false))) (declare (not safe)) (class-instance? |gerbil/core/match[1]#match-macro::t| - __tmp39873)) + __tmp39936)) '#f))) (define |gerbil/core/match[1]#parse-match-pattern__%| - (lambda (_%stx33470%_ _%match-stx33472%_) - (letrec ((_%parse133474%_ - (lambda (_%hd33833%_) - (let* ((_%__stx3766137662%_ _%hd33833%_) - (_%g3385934001%_ + (lambda (_%stx33533%_ _%match-stx33535%_) + (letrec ((_%parse133537%_ + (lambda (_%hd33896%_) + (let* ((_%__stx3772437725%_ _%hd33896%_) + (_%g3392234064%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3766137662%_)))) - (let ((_%__kont3766437665%_ - (lambda (_%L34933%_ _%L34935%_) - (let* ((_%__stx3758137582%_ _%L34933%_) - (_%g3495234985%_ + _%__stx3772437725%_)))) + (let ((_%__kont3772737728%_ + (lambda (_%L34996%_ _%L34998%_) + (let* ((_%__stx3764437645%_ _%L34996%_) + (_%g3501535048%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3758137582%_)))) - (let ((_%__kont3758437585%_ + _%__stx3764437645%_)))) + (let ((_%__kont3764737648%_ (lambda () - (cons '?: (cons _%L34935%_ '())))) - (_%__kont3758637587%_ - (lambda (_%L35126%_) + (cons '?: (cons _%L34998%_ '())))) + (_%__kont3764937650%_ + (lambda (_%L35189%_) (cons '?: - (cons _%L34935%_ - (cons (_%parse133474%_ - _%L35126%_) + (cons _%L34998%_ + (cons (_%parse133537%_ + _%L35189%_) '()))))) - (_%__kont3758837589%_ - (lambda (_%L35096%_) + (_%__kont3765137652%_ + (lambda (_%L35159%_) (cons '?: - (cons _%L34935%_ + (cons _%L34998%_ (cons '=>: - (cons (_%parse133474%_ + (cons (_%parse133537%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L35096%_) + _%L35159%_) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3759037591%_ - (lambda (_%L35047%_ _%L35049%_) + (_%__kont3765337654%_ + (lambda (_%L35110%_ _%L35112%_) (cons '?: - (cons _%L34935%_ + (cons _%L34998%_ (cons ':: - (cons _%L35049%_ + (cons _%L35112%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '=>: - (cons (_%parse133474%_ _%L35047%_) '())))))))) + (cons (_%parse133537%_ _%L35110%_) '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3759237593%_ + (_%__kont3765537656%_ (lambda () - (_%parse-error33481%_ _%hd33833%_)))) - (let ((_%g3494835137%_ + (_%parse-error33544%_ _%hd33896%_)))) + (let ((_%g3501135200%_ (lambda () (if (gx#stx-pair? - _%__stx3758137582%_) - (let ((_%e3495535116%_ + _%__stx3764437645%_) + (let ((_%e3501835179%_ (gx#syntax-e - _%__stx3758137582%_))) - (let ((_%tl3495735123%_ + _%__stx3764437645%_))) + (let ((_%tl3502035186%_ (let () (declare (not safe)) - (##cdr _%e3495535116%_))) - (_%hd3495635120%_ + (##cdr _%e3501835179%_))) + (_%hd3501935183%_ (let () (declare (not safe)) - (##car _%e3495535116%_)))) + (##car _%e3501835179%_)))) (if (gx#stx-null? - _%tl3495735123%_) - (_%__kont3758637587%_ - _%hd3495635120%_) + _%tl3502035186%_) + (_%__kont3764937650%_ + _%hd3501935183%_) (if (gx#identifier? - _%hd3495635120%_) + _%hd3501935183%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39874_| - _%hd3495635120%_) - (if (gx#stx-pair? _%tl3495735123%_) - (let ((_%e3496235086%_ - (gx#syntax-e _%tl3495735123%_))) - (let ((_%tl3496435093%_ + |gerbil/core/match[1]#_g39937_| + _%hd3501935183%_) + (if (gx#stx-pair? _%tl3502035186%_) + (let ((_%e3502535149%_ + (gx#syntax-e _%tl3502035186%_))) + (let ((_%tl3502735156%_ (let () (declare (not safe)) - (##cdr _%e3496235086%_))) - (_%hd3496335090%_ + (##cdr _%e3502535149%_))) + (_%hd3502635153%_ (let () (declare (not safe)) - (##car _%e3496235086%_)))) - (if (gx#stx-null? _%tl3496435093%_) - (_%__kont3758837589%_ _%hd3496335090%_) - (_%__kont3759237593%_)))) - (_%__kont3759237593%_)) - (_%__kont3759237593%_)) - (if (gx#stx-datum? _%hd3495635120%_) - (let ((_%e3497035013%_ (gx#stx-e _%hd3495635120%_))) - (if (equal? _%e3497035013%_ '::) - (if (gx#stx-pair? _%tl3495735123%_) - (let ((_%e3497135017%_ - (gx#syntax-e _%tl3495735123%_))) - (let ((_%tl3497335024%_ + (##car _%e3502535149%_)))) + (if (gx#stx-null? _%tl3502735156%_) + (_%__kont3765137652%_ _%hd3502635153%_) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_)) + (if (gx#stx-datum? _%hd3501935183%_) + (let ((_%e3503335076%_ (gx#stx-e _%hd3501935183%_))) + (if (equal? _%e3503335076%_ '::) + (if (gx#stx-pair? _%tl3502035186%_) + (let ((_%e3503435080%_ + (gx#syntax-e _%tl3502035186%_))) + (let ((_%tl3503635087%_ (let () (declare (not safe)) - (##cdr _%e3497135017%_))) - (_%hd3497235021%_ + (##cdr _%e3503435080%_))) + (_%hd3503535084%_ (let () (declare (not safe)) - (##car _%e3497135017%_)))) - (if (gx#stx-pair? _%tl3497335024%_) - (let ((_%e3497435027%_ + (##car _%e3503435080%_)))) + (if (gx#stx-pair? _%tl3503635087%_) + (let ((_%e3503735090%_ (gx#syntax-e - _%tl3497335024%_))) - (let ((_%tl3497635034%_ + _%tl3503635087%_))) + (let ((_%tl3503935097%_ (let () (declare (not safe)) - (##cdr _%e3497435027%_))) - (_%hd3497535031%_ + (##cdr _%e3503735090%_))) + (_%hd3503835094%_ (let () (declare (not safe)) - (##car _%e3497435027%_)))) + (##car _%e3503735090%_)))) (if (gx#identifier? - _%hd3497535031%_) + _%hd3503835094%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39875_| - _%hd3497535031%_) + |gerbil/core/match[1]#_g39938_| + _%hd3503835094%_) (if (gx#stx-pair? - _%tl3497635034%_) - (let ((_%e3497735037%_ + _%tl3503935097%_) + (let ((_%e3504035100%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3497635034%_))) - (let ((_%tl3497935044%_ + (gx#syntax-e _%tl3503935097%_))) + (let ((_%tl3504235107%_ (let () (declare (not safe)) - (##cdr _%e3497735037%_))) - (_%hd3497835041%_ + (##cdr _%e3504035100%_))) + (_%hd3504135104%_ (let () (declare (not safe)) - (##car _%e3497735037%_)))) - (if (gx#stx-null? _%tl3497935044%_) - (_%__kont3759037591%_ - _%hd3497835041%_ - _%hd3497235021%_) - (_%__kont3759237593%_)))) - (_%__kont3759237593%_)) - (_%__kont3759237593%_)) + (##car _%e3504035100%_)))) + (if (gx#stx-null? _%tl3504235107%_) + (_%__kont3765337654%_ + _%hd3504135104%_ + _%hd3503535084%_) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3759237593%_)))) - (_%__kont3759237593%_)))) - (_%__kont3759237593%_)) - (_%__kont3759237593%_))) - (_%__kont3759237593%_)))))) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)))) + (_%__kont3765537656%_)) + (_%__kont3765537656%_))) + (_%__kont3765537656%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3759237593%_))))) - (if (gx#stx-null? _%__stx3758137582%_) - (_%__kont3758437585%_) + (_%__kont3765537656%_))))) + (if (gx#stx-null? _%__stx3764437645%_) + (_%__kont3764737648%_) (let () (declare (not safe)) - (_%g3494835137%_)))))))) - (_%__kont3766637667%_ - (lambda (_%L34838%_) - (let* ((_%__stx3756337564%_ _%L34838%_) - (_%g3485034861%_ + (_%g3501135200%_)))))))) + (_%__kont3772937730%_ + (lambda (_%L34901%_) + (let* ((_%__stx3762637627%_ _%L34901%_) + (_%g3491334924%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3756337564%_)))) - (let ((_%__kont3756637567%_ - (lambda (_%L34889%_) - (_%parse133474%_ _%L34889%_))) - (_%__kont3756837569%_ + _%__stx3762637627%_)))) + (let ((_%__kont3762937630%_ + (lambda (_%L34952%_) + (_%parse133537%_ _%L34952%_))) + (_%__kont3763137632%_ (lambda () (cons 'and: (gx#stx-map - _%parse133474%_ - _%L34838%_))))) - (if (gx#stx-pair? _%__stx3756337564%_) - (let ((_%e3485334879%_ + _%parse133537%_ + _%L34901%_))))) + (if (gx#stx-pair? _%__stx3762637627%_) + (let ((_%e3491634942%_ (gx#syntax-e - _%__stx3756337564%_))) - (let ((_%tl3485534886%_ + _%__stx3762637627%_))) + (let ((_%tl3491834949%_ (let () (declare (not safe)) - (##cdr _%e3485334879%_))) - (_%hd3485434883%_ + (##cdr _%e3491634942%_))) + (_%hd3491734946%_ (let () (declare (not safe)) - (##car _%e3485334879%_)))) - (if (gx#stx-null? _%tl3485534886%_) - (_%__kont3756637567%_ - _%hd3485434883%_) - (_%__kont3756837569%_)))) - (_%__kont3756837569%_)))))) - (_%__kont3766837669%_ - (lambda (_%L34753%_) - (let* ((_%__stx3754537546%_ _%L34753%_) - (_%g3476534776%_ + (##car _%e3491634942%_)))) + (if (gx#stx-null? _%tl3491834949%_) + (_%__kont3762937630%_ + _%hd3491734946%_) + (_%__kont3763137632%_)))) + (_%__kont3763137632%_)))))) + (_%__kont3773137732%_ + (lambda (_%L34816%_) + (let* ((_%__stx3760837609%_ _%L34816%_) + (_%g3482834839%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3754537546%_)))) - (let ((_%__kont3754837549%_ - (lambda (_%L34804%_) - (_%parse133474%_ _%L34804%_))) - (_%__kont3755037551%_ + _%__stx3760837609%_)))) + (let ((_%__kont3761137612%_ + (lambda (_%L34867%_) + (_%parse133537%_ _%L34867%_))) + (_%__kont3761337614%_ (lambda () (cons 'or: (gx#stx-map - _%parse133474%_ - _%L34753%_))))) - (if (gx#stx-pair? _%__stx3754537546%_) - (let ((_%e3476834794%_ + _%parse133537%_ + _%L34816%_))))) + (if (gx#stx-pair? _%__stx3760837609%_) + (let ((_%e3483134857%_ (gx#syntax-e - _%__stx3754537546%_))) - (let ((_%tl3477034801%_ + _%__stx3760837609%_))) + (let ((_%tl3483334864%_ (let () (declare (not safe)) - (##cdr _%e3476834794%_))) - (_%hd3476934798%_ + (##cdr _%e3483134857%_))) + (_%hd3483234861%_ (let () (declare (not safe)) - (##car _%e3476834794%_)))) - (if (gx#stx-null? _%tl3477034801%_) - (_%__kont3754837549%_ - _%hd3476934798%_) - (_%__kont3755037551%_)))) - (_%__kont3755037551%_)))))) - (_%__kont3767037671%_ - (lambda (_%L34723%_) + (##car _%e3483134857%_)))) + (if (gx#stx-null? _%tl3483334864%_) + (_%__kont3761137612%_ + _%hd3483234861%_) + (_%__kont3761337614%_)))) + (_%__kont3761337614%_)))))) + (_%__kont3773337734%_ + (lambda (_%L34786%_) (cons 'not: - (cons (_%parse133474%_ _%L34723%_) '())))) - (_%__kont3767237673%_ - (lambda (_%L34679%_ _%L34681%_) + (cons (_%parse133537%_ _%L34786%_) '())))) + (_%__kont3773537736%_ + (lambda (_%L34742%_ _%L34744%_) (cons 'cons: - (cons (_%parse133474%_ _%L34681%_) - (cons (_%parse133474%_ _%L34679%_) + (cons (_%parse133537%_ _%L34744%_) + (cons (_%parse133537%_ _%L34742%_) '()))))) - (_%__kont3767437675%_ - (lambda (_%L34623%_ _%L34625%_ _%L34626%_) - (if (gx#stx-null? _%L34623%_) + (_%__kont3773737738%_ + (lambda (_%L34686%_ _%L34688%_ _%L34689%_) + (if (gx#stx-null? _%L34686%_) (cons 'cons: - (cons (_%parse133474%_ _%L34626%_) - (cons (_%parse133474%_ - _%L34625%_) + (cons (_%parse133537%_ _%L34689%_) + (cons (_%parse133537%_ + _%L34688%_) '()))) (cons 'cons: - (cons (_%parse133474%_ _%L34626%_) - (cons (_%parse133474%_ + (cons (_%parse133537%_ _%L34689%_) + (cons (_%parse133537%_ (cons (gx#datum->syntax '#f 'cons*) - (cons _%L34625%_ + (cons _%L34688%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L34623%_))) + _%L34686%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont3767637677%_ - (lambda (_%L34575%_) - (_%parse-list33476%_ _%L34575%_))) - (_%__kont3767837679%_ - (lambda (_%L34545%_) + (_%__kont3773937740%_ + (lambda (_%L34638%_) + (_%parse-list33539%_ _%L34638%_))) + (_%__kont3774137742%_ + (lambda (_%L34608%_) (cons 'box: - (cons (_%parse133474%_ _%L34545%_) '())))) - (_%__kont3768037681%_ - (lambda (_%L34508%_) + (cons (_%parse133537%_ _%L34608%_) '())))) + (_%__kont3774337744%_ + (lambda (_%L34571%_) (cons 'box: - (cons (_%parse133474%_ _%L34508%_) '())))) - (_%__kont3768237683%_ - (lambda (_%L34484%_) - (_%parse133474%_ _%L34484%_))) - (_%__kont3768437685%_ - (lambda (_%L34446%_) + (cons (_%parse133537%_ _%L34571%_) '())))) + (_%__kont3774537746%_ + (lambda (_%L34547%_) + (_%parse133537%_ _%L34547%_))) + (_%__kont3774737748%_ + (lambda (_%L34509%_) (cons 'values: - (cons (_%parse-vector33477%_ _%L34446%_) + (cons (_%parse-vector33540%_ _%L34509%_) '())))) - (_%__kont3768637687%_ - (lambda (_%L34418%_) + (_%__kont3774937750%_ + (lambda (_%L34481%_) (cons 'vector: - (cons (_%parse-vector33477%_ _%L34418%_) + (cons (_%parse-vector33540%_ _%L34481%_) '())))) - (_%__kont3768837689%_ - (lambda (_%L34379%_) + (_%__kont3775137752%_ + (lambda (_%L34442%_) (cons 'vector: - (cons (_%parse-vector33477%_ - (foldr (lambda (_%g3439234395%_ - _%g3439334398%_) - (cons _%g3439234395%_ - _%g3439334398%_)) + (cons (_%parse-vector33540%_ + (foldr (lambda (_%g3445534458%_ + _%g3445634461%_) + (cons _%g3445534458%_ + _%g3445634461%_)) '() - _%L34379%_)) + _%L34442%_)) '())))) - (_%__kont3769237693%_ - (lambda (_%L34325%_ _%L34327%_) + (_%__kont3775537756%_ + (lambda (_%L34388%_ _%L34390%_) (cons 'struct: - (cons (gx#syntax-local-value _%L34327%_) - (cons (_%parse-vector33477%_ - _%L34325%_) + (cons (gx#syntax-local-value _%L34390%_) + (cons (_%parse-vector33540%_ + _%L34388%_) '()))))) - (_%__kont3769437695%_ - (lambda (_%L34295%_ _%L34297%_) + (_%__kont3775737758%_ + (lambda (_%L34358%_ _%L34360%_) (cons 'class: - (cons (gx#syntax-local-value _%L34297%_) - (cons (_%parse-class-body33479%_ - _%L34295%_) + (cons (gx#syntax-local-value _%L34360%_) + (cons (_%parse-class-body33542%_ + _%L34358%_) '()))))) - (_%__kont3769637697%_ - (lambda (_%L34255%_ _%L34257%_) + (_%__kont3775937760%_ + (lambda (_%L34318%_ _%L34320%_) (cons '?: (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L34257%_ + (cons _%L34320%_ (cons (gx#datum->syntax '#f '<>) - (cons _%L34255%_ + (cons _%L34318%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (_%__kont3769837699%_ - (lambda (_%L34215%_) + (_%__kont3776137762%_ + (lambda (_%L34278%_) (cons 'datum: - (cons (gx#stx-e _%L34215%_) '())))) - (_%__kont3770037701%_ - (lambda (_%L34175%_) - (_%parse-qq33480%_ _%L34175%_))) - (_%__kont3770237703%_ - (lambda (_%L34131%_ _%L34133%_) + (cons (gx#stx-e _%L34278%_) '())))) + (_%__kont3776337764%_ + (lambda (_%L34238%_) + (_%parse-qq33543%_ _%L34238%_))) + (_%__kont3776537766%_ + (lambda (_%L34194%_ _%L34196%_) (cons 'apply: - (cons _%L34133%_ - (cons (_%parse133474%_ _%L34131%_) + (cons _%L34196%_ + (cons (_%parse133537%_ _%L34194%_) '()))))) - (_%__kont3770437705%_ - (lambda (_%L34079%_) - (_%parse133474%_ + (_%__kont3776737768%_ + (lambda (_%L34142%_) + (_%parse133537%_ (gx#core-apply-expander - (gx#syntax-local-e _%L34079%_) + (gx#syntax-local-e _%L34142%_) (gx#stx-wrap-source - (cons 'match: _%hd33833%_) - (let ((_%$e34090%_ - (gx#stx-source _%hd33833%_))) - (if _%$e34090%_ - _%$e34090%_ - (gx#stx-source _%stx33470%_)))))))) - (_%__kont3770637707%_ - (lambda (_%L34053%_) (cons 'any: '()))) - (_%__kont3770837709%_ - (lambda (_%L34037%_) - (cons 'var: (cons _%L34037%_ '())))) - (_%__kont3771037711%_ - (lambda (_%L34019%_) + (cons 'match: _%hd33896%_) + (let ((_%$e34153%_ + (gx#stx-source _%hd33896%_))) + (if _%$e34153%_ + _%$e34153%_ + (gx#stx-source _%stx33533%_)))))))) + (_%__kont3776937770%_ + (lambda (_%L34116%_) (cons 'any: '()))) + (_%__kont3777137772%_ + (lambda (_%L34100%_) + (cons 'var: (cons _%L34100%_ '())))) + (_%__kont3777337774%_ + (lambda (_%L34082%_) (cons 'datum: - (cons (gx#stx-e _%L34019%_) '())))) - (_%__kont3771237713%_ - (lambda () (_%parse-error33481%_ _%hd33833%_)))) - (let* ((_%g3385734030%_ + (cons (gx#stx-e _%L34082%_) '())))) + (_%__kont3777537776%_ + (lambda () (_%parse-error33544%_ _%hd33896%_)))) + (let* ((_%g3392034093%_ (lambda () - (let ((_%L34019%_ _%__stx3766137662%_)) - (if (gx#stx-datum? _%L34019%_) - (_%__kont3771037711%_ _%L34019%_) - (_%__kont3771237713%_))))) - (_%g3385634046%_ + (let ((_%L34082%_ _%__stx3772437725%_)) + (if (gx#stx-datum? _%L34082%_) + (_%__kont3777337774%_ _%L34082%_) + (_%__kont3777537776%_))))) + (_%g3391934109%_ (lambda () - (let ((_%L34037%_ _%__stx3766137662%_)) - (if (and (gx#identifier? _%L34037%_) - (not (gx#ellipsis? _%L34037%_))) - (_%__kont3770837709%_ _%L34037%_) + (let ((_%L34100%_ _%__stx3772437725%_)) + (if (and (gx#identifier? _%L34100%_) + (not (gx#ellipsis? _%L34100%_))) + (_%__kont3777137772%_ _%L34100%_) (let () (declare (not safe)) - (_%g3385734030%_)))))) - (_%g3385534062%_ + (_%g3392034093%_)))))) + (_%g3391834125%_ (lambda () - (let ((_%L34053%_ _%__stx3766137662%_)) - (if (gx#underscore? _%L34053%_) - (_%__kont3770637707%_ _%L34053%_) + (let ((_%L34116%_ _%__stx3772437725%_)) + (if (gx#underscore? _%L34116%_) + (_%__kont3776937770%_ _%L34116%_) (let () (declare (not safe)) - (_%g3385634046%_)))))) - (_%__match3798837989%_ - (lambda (_%e3399034069%_ - _%hd3399134073%_ - _%tl3399234076%_) - (let ((_%L34079%_ _%hd3399134073%_)) + (_%g3391934109%_)))))) + (_%__match3805138052%_ + (lambda (_%e3405334132%_ + _%hd3405434136%_ + _%tl3405534139%_) + (let ((_%L34142%_ _%hd3405434136%_)) (if (|gerbil/core/match[1]#syntax-local-match-macro?| - _%L34079%_) - (_%__kont3770437705%_ _%L34079%_) + _%L34142%_) + (_%__kont3776737768%_ _%L34142%_) (let () (declare (not safe)) - (_%g3385534062%_)))))) - (_%__match3792237923%_ - (lambda (_%e3395834235%_ - _%hd3395934239%_ - _%tl3396034242%_ - _%e3396134245%_ - _%hd3396234249%_ - _%tl3396334252%_) - (let ((_%L34255%_ _%hd3396234249%_) - (_%L34257%_ _%hd3395934239%_)) - (if (and (gx#identifier? _%L34257%_) + (_%g3391834125%_)))))) + (_%__match3798537986%_ + (lambda (_%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_ + _%e3402434308%_ + _%hd3402534312%_ + _%tl3402634315%_) + (let ((_%L34318%_ _%hd3402534312%_) + (_%L34320%_ _%hd3402234302%_)) + (if (and (gx#identifier? _%L34320%_) (or (gx#free-identifier=? - _%L34257%_ + _%L34320%_ (gx#datum->syntax '#f 'eq?)) (gx#free-identifier=? - _%L34257%_ + _%L34320%_ (gx#datum->syntax '#f 'eqv?)) (gx#free-identifier=? - _%L34257%_ + _%L34320%_ (gx#datum->syntax '#f 'equal?)))) - (_%__kont3769637697%_ - _%L34255%_ - _%L34257%_) - (if (gx#identifier? _%hd3395934239%_) + (_%__kont3775937760%_ + _%L34318%_ + _%L34320%_) + (if (gx#identifier? _%hd3402234302%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39876_| - _%hd3395934239%_) - (_%__kont3769837699%_ - _%hd3396234249%_) + |gerbil/core/match[1]#_g39939_| + _%hd3402234302%_) + (_%__kont3776137762%_ + _%hd3402534312%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39877_| - _%hd3395934239%_) - (_%__kont3770037701%_ - _%hd3396234249%_) - (_%__match3798837989%_ - _%e3395834235%_ - _%hd3395934239%_ - _%tl3396034242%_))) - (_%__match3798837989%_ - _%e3395834235%_ - _%hd3395934239%_ - _%tl3396034242%_)))))) - (_%__match3790837909%_ - (lambda (_%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_) - (let ((_%L34295%_ _%tl3395534292%_) - (_%L34297%_ _%hd3395434289%_)) + |gerbil/core/match[1]#_g39940_| + _%hd3402234302%_) + (_%__kont3776337764%_ + _%hd3402534312%_) + (_%__match3805138052%_ + _%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_))) + (_%__match3805138052%_ + _%e3402134298%_ + _%hd3402234302%_ + _%tl3402334305%_)))))) + (_%__match3797137972%_ + (lambda (_%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) + (let ((_%L34358%_ _%tl3401834355%_) + (_%L34360%_ _%hd3401734352%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L34297%_)) - (_%__kont3769437695%_ - _%L34295%_ - _%L34297%_) - (if (gx#stx-pair? _%tl3395534292%_) - (let ((_%e3396134245%_ + _%L34360%_)) + (_%__kont3775737758%_ + _%L34358%_ + _%L34360%_) + (if (gx#stx-pair? _%tl3401834355%_) + (let ((_%e3402434308%_ (gx#syntax-e - _%tl3395534292%_))) - (let ((_%tl3396334252%_ + _%tl3401834355%_))) + (let ((_%tl3402634315%_ (let () (declare (not safe)) - (##cdr _%e3396134245%_))) - (_%hd3396234249%_ + (##cdr _%e3402434308%_))) + (_%hd3402534312%_ (let () (declare (not safe)) - (##car _%e3396134245%_)))) + (##car _%e3402434308%_)))) (if (gx#stx-null? - _%tl3396334252%_) - (_%__match3792237923%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_ - _%e3396134245%_ - _%hd3396234249%_ - _%tl3396334252%_) + _%tl3402634315%_) + (_%__match3798537986%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_ + _%e3402434308%_ + _%hd3402534312%_ + _%tl3402634315%_) (if (gx#identifier? - _%hd3395434289%_) + _%hd3401734352%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39876_| - _%hd3395434289%_) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_) + |gerbil/core/match[1]#_g39939_| + _%hd3401734352%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) (if (gx#free-identifier=? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/match[1]#_g39877_| - _%hd3395434289%_) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_) + |gerbil/core/match[1]#_g39940_| + _%hd3401734352%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39878_| - _%hd3395434289%_) - (if (gx#stx-pair? _%tl3396334252%_) - (let ((_%e3398634121%_ - (gx#syntax-e _%tl3396334252%_))) - (let ((_%tl3398834128%_ + |gerbil/core/match[1]#_g39941_| + _%hd3401734352%_) + (if (gx#stx-pair? _%tl3402634315%_) + (let ((_%e3404934184%_ + (gx#syntax-e _%tl3402634315%_))) + (let ((_%tl3405134191%_ (let () (declare (not safe)) - (##cdr _%e3398634121%_))) - (_%hd3398734125%_ + (##cdr _%e3404934184%_))) + (_%hd3405034188%_ (let () (declare (not safe)) - (##car _%e3398634121%_)))) - (if (gx#stx-null? _%tl3398834128%_) - (_%__kont3770237703%_ - _%hd3398734125%_ - _%hd3396234249%_) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_)))) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_)) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_)))) - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_))))) + (##car _%e3404934184%_)))) + (if (gx#stx-null? _%tl3405134191%_) + (_%__kont3776537766%_ + _%hd3405034188%_ + _%hd3402534312%_) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3798837989%_ - _%e3395334285%_ - _%hd3395434289%_ - _%tl3395534292%_)))))) - (_%__match3790237903%_ - (lambda (_%e3394834315%_ - _%hd3394934319%_ - _%tl3395034322%_) - (let ((_%L34325%_ _%tl3395034322%_) - (_%L34327%_ _%hd3394934319%_)) + (_%__match3805138052%_ + _%e3401634348%_ + _%hd3401734352%_ + _%tl3401834355%_)))))) + (_%__match3796537966%_ + (lambda (_%e3401134378%_ + _%hd3401234382%_ + _%tl3401334385%_) + (let ((_%L34388%_ _%tl3401334385%_) + (_%L34390%_ _%hd3401234382%_)) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%L34327%_ + _%L34390%_ gerbil/core/mop~MOP-2#!class-type-struct?)) - (_%__kont3769237693%_ - _%L34325%_ - _%L34327%_) - (_%__match3790837909%_ - _%e3394834315%_ - _%hd3394934319%_ - _%tl3395034322%_))))) - (_%__match3789637897%_ - (lambda (_%e3393634345%_ - _%__splice3769037691%_ - _%target3393734349%_ - _%tl3393934352%_) - (letrec ((_%loop3394034355%_ - (lambda (_%hd3393834359%_ - _%body3394434362%_) + (_%__kont3775537756%_ + _%L34388%_ + _%L34390%_) + (_%__match3797137972%_ + _%e3401134378%_ + _%hd3401234382%_ + _%tl3401334385%_))))) + (_%__match3795937960%_ + (lambda (_%e3399934408%_ + _%__splice3775337754%_ + _%target3400034412%_ + _%tl3400234415%_) + (letrec ((_%loop3400334418%_ + (lambda (_%hd3400134422%_ + _%body3400734425%_) (if (gx#stx-pair? - _%hd3393834359%_) - (let ((_%e3394134365%_ + _%hd3400134422%_) + (let ((_%e3400434428%_ (gx#syntax-e - _%hd3393834359%_))) - (let ((_%lp-tl3394334372%_ + _%hd3400134422%_))) + (let ((_%lp-tl3400634435%_ (let () (declare (not safe)) - (##cdr _%e3394134365%_))) - (_%lp-hd3394234369%_ + (##cdr _%e3400434428%_))) + (_%lp-hd3400534432%_ (let () (declare (not safe)) - (##car _%e3394134365%_)))) - (_%loop3394034355%_ - _%lp-tl3394334372%_ - (cons _%lp-hd3394234369%_ - _%body3394434362%_)))) - (let ((_%body3394534375%_ - (reverse _%body3394434362%_))) - (_%__kont3768837689%_ - _%body3394534375%_)))))) - (_%loop3394034355%_ - _%target3393734349%_ + (##car _%e3400434428%_)))) + (_%loop3400334418%_ + _%lp-tl3400634435%_ + (cons _%lp-hd3400534432%_ + _%body3400734425%_)))) + (let ((_%body3400834438%_ + (reverse _%body3400734425%_))) + (_%__kont3775137752%_ + _%body3400834438%_)))))) + (_%loop3400334418%_ + _%target3400034412%_ '())))) - (_%g3384734401%_ + (_%g3391034464%_ (lambda () - (if (gx#stx-vector? _%__stx3766137662%_) - (let ((_%e3393634345%_ + (if (gx#stx-vector? _%__stx3772437725%_) + (let ((_%e3399934408%_ (vector->list (gx#syntax-e - _%__stx3766137662%_)))) - (if (gx#stx-pair/null? _%e3393634345%_) - (let ((_%__splice3769037691%_ + _%__stx3772437725%_)))) + (if (gx#stx-pair/null? _%e3399934408%_) + (let ((_%__splice3775337754%_ (gx#syntax-split-splice - _%e3393634345%_ + _%e3399934408%_ '0))) - (let ((_%tl3393934352%_ + (let ((_%tl3400234415%_ (let () (declare (not safe)) (##vector-ref - _%__splice3769037691%_ + _%__splice3775337754%_ '1))) - (_%target3393734349%_ + (_%target3400034412%_ (let () (declare (not safe)) (##vector-ref - _%__splice3769037691%_ + _%__splice3775337754%_ '0)))) (if (gx#stx-null? - _%tl3393934352%_) - (_%__match3789637897%_ - _%e3393634345%_ - _%__splice3769037691%_ - _%target3393734349%_ - _%tl3393934352%_) + _%tl3400234415%_) + (_%__match3795937960%_ + _%e3399934408%_ + _%__splice3775337754%_ + _%target3400034412%_ + _%tl3400234415%_) (let () (declare (not safe)) - (_%g3385534062%_))))) + (_%g3391834125%_))))) (let () (declare (not safe)) - (_%g3385534062%_)))) + (_%g3391834125%_)))) (let () (declare (not safe)) - (_%g3385534062%_))))) - (_%g3384334518%_ + (_%g3391834125%_))))) + (_%g3390634581%_ (lambda () - (if (gx#stx-box? _%__stx3766137662%_) - (let ((_%e3391934504%_ + (if (gx#stx-box? _%__stx3772437725%_) + (let ((_%e3398234567%_ (unbox (gx#syntax-e - _%__stx3766137662%_)))) - (_%__kont3768037681%_ _%e3391934504%_)) + _%__stx3772437725%_)))) + (_%__kont3774337744%_ _%e3398234567%_)) (let () (declare (not safe)) - (_%g3384734401%_))))) - (_%__match3775037751%_ - (lambda (_%e3387434743%_ - _%hd3387534747%_ - _%tl3387634750%_) - (let ((_%L34753%_ _%tl3387634750%_)) - (if (gx#stx-list? _%L34753%_) - (_%__kont3766837669%_ _%L34753%_) - (_%__match3790237903%_ - _%e3387434743%_ - _%hd3387534747%_ - _%tl3387634750%_))))) - (_%__match3774037741%_ - (lambda (_%e3387034828%_ - _%hd3387134832%_ - _%tl3387234835%_) - (let ((_%L34838%_ _%tl3387234835%_)) - (if (gx#stx-list? _%L34838%_) - (_%__kont3766637667%_ _%L34838%_) - (_%__match3790237903%_ - _%e3387034828%_ - _%hd3387134832%_ - _%tl3387234835%_)))))) - (if (gx#stx-pair? _%__stx3766137662%_) - (let ((_%e3386334913%_ - (gx#syntax-e _%__stx3766137662%_))) - (let ((_%tl3386534920%_ + (_%g3391034464%_))))) + (_%__match3781337814%_ + (lambda (_%e3393734806%_ + _%hd3393834810%_ + _%tl3393934813%_) + (let ((_%L34816%_ _%tl3393934813%_)) + (if (gx#stx-list? _%L34816%_) + (_%__kont3773137732%_ _%L34816%_) + (_%__match3796537966%_ + _%e3393734806%_ + _%hd3393834810%_ + _%tl3393934813%_))))) + (_%__match3780337804%_ + (lambda (_%e3393334891%_ + _%hd3393434895%_ + _%tl3393534898%_) + (let ((_%L34901%_ _%tl3393534898%_)) + (if (gx#stx-list? _%L34901%_) + (_%__kont3772937730%_ _%L34901%_) + (_%__match3796537966%_ + _%e3393334891%_ + _%hd3393434895%_ + _%tl3393534898%_)))))) + (if (gx#stx-pair? _%__stx3772437725%_) + (let ((_%e3392634976%_ + (gx#syntax-e _%__stx3772437725%_))) + (let ((_%tl3392834983%_ (let () (declare (not safe)) - (##cdr _%e3386334913%_))) - (_%hd3386434917%_ + (##cdr _%e3392634976%_))) + (_%hd3392734980%_ (let () (declare (not safe)) - (##car _%e3386334913%_)))) - (if (gx#identifier? _%hd3386434917%_) + (##car _%e3392634976%_)))) + (if (gx#identifier? _%hd3392734980%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39879_| - _%hd3386434917%_) - (if (gx#stx-pair? _%tl3386534920%_) - (let ((_%e3386634923%_ + |gerbil/core/match[1]#_g39942_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3392934986%_ (gx#syntax-e - _%tl3386534920%_))) - (let ((_%tl3386834930%_ + _%tl3392834983%_))) + (let ((_%tl3393134993%_ (let () (declare (not safe)) - (##cdr _%e3386634923%_))) - (_%hd3386734927%_ + (##cdr _%e3392934986%_))) + (_%hd3393034990%_ (let () (declare (not safe)) - (##car _%e3386634923%_)))) - (_%__kont3766437665%_ - _%tl3386834930%_ - _%hd3386734927%_))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)) + (##car _%e3392934986%_)))) + (_%__kont3772737728%_ + _%tl3393134993%_ + _%hd3393034990%_))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39880_| - _%hd3386434917%_) - (_%__match3774037741%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_) + |gerbil/core/match[1]#_g39943_| + _%hd3392734980%_) + (_%__match3780337804%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39881_| - _%hd3386434917%_) - (_%__match3775037751%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_) + |gerbil/core/match[1]#_g39944_| + _%hd3392734980%_) + (_%__match3781337814%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39882_| - _%hd3386434917%_) + |gerbil/core/match[1]#_g39945_| + _%hd3392734980%_) (if (gx#stx-pair? - _%tl3386534920%_) - (let ((_%e3388134713%_ + _%tl3392834983%_) + (let ((_%e3394434776%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3386534920%_))) - (let ((_%tl3388334720%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3394634783%_ (let () (declare (not safe)) - (##cdr _%e3388134713%_))) - (_%hd3388234717%_ + (##cdr _%e3394434776%_))) + (_%hd3394534780%_ (let () (declare (not safe)) - (##car _%e3388134713%_)))) - (if (gx#stx-null? _%tl3388334720%_) - (_%__kont3767037671%_ _%hd3388234717%_) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)) + (##car _%e3394434776%_)))) + (if (gx#stx-null? _%tl3394634783%_) + (_%__kont3773337734%_ _%hd3394534780%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39883_| - _%hd3386434917%_) - (if (gx#stx-pair? _%tl3386534920%_) - (let ((_%e3388934659%_ (gx#syntax-e _%tl3386534920%_))) - (let ((_%tl3389134666%_ + |gerbil/core/match[1]#_g39946_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3395234722%_ (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3395434729%_ (let () (declare (not safe)) - (##cdr _%e3388934659%_))) - (_%hd3389034663%_ + (##cdr _%e3395234722%_))) + (_%hd3395334726%_ (let () (declare (not safe)) - (##car _%e3388934659%_)))) - (if (gx#stx-pair? _%tl3389134666%_) - (let ((_%e3389234669%_ - (gx#syntax-e _%tl3389134666%_))) - (let ((_%tl3389434676%_ + (##car _%e3395234722%_)))) + (if (gx#stx-pair? _%tl3395434729%_) + (let ((_%e3395534732%_ + (gx#syntax-e _%tl3395434729%_))) + (let ((_%tl3395734739%_ (let () (declare (not safe)) - (##cdr _%e3389234669%_))) - (_%hd3389334673%_ + (##cdr _%e3395534732%_))) + (_%hd3395634736%_ (let () (declare (not safe)) - (##car _%e3389234669%_)))) - (if (gx#stx-null? _%tl3389434676%_) - (_%__kont3767237673%_ - _%hd3389334673%_ - _%hd3389034663%_) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)) + (##car _%e3395534732%_)))) + (if (gx#stx-null? _%tl3395734739%_) + (_%__kont3773537736%_ + _%hd3395634736%_ + _%hd3395334726%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39884_| - _%hd3386434917%_) - (if (gx#stx-pair? _%tl3386534920%_) - (let ((_%e3390134603%_ - (gx#syntax-e _%tl3386534920%_))) - (let ((_%tl3390334610%_ + |gerbil/core/match[1]#_g39947_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3396434666%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3396634673%_ (let () (declare (not safe)) - (##cdr _%e3390134603%_))) - (_%hd3390234607%_ + (##cdr _%e3396434666%_))) + (_%hd3396534670%_ (let () (declare (not safe)) - (##car _%e3390134603%_)))) - (if (gx#stx-pair? _%tl3390334610%_) - (let ((_%e3390434613%_ - (gx#syntax-e _%tl3390334610%_))) - (let ((_%tl3390634620%_ + (##car _%e3396434666%_)))) + (if (gx#stx-pair? _%tl3396634673%_) + (let ((_%e3396734676%_ + (gx#syntax-e _%tl3396634673%_))) + (let ((_%tl3396934683%_ (let () (declare (not safe)) - (##cdr _%e3390434613%_))) - (_%hd3390534617%_ + (##cdr _%e3396734676%_))) + (_%hd3396834680%_ (let () (declare (not safe)) - (##car _%e3390434613%_)))) - (_%__kont3767437675%_ - _%tl3390634620%_ - _%hd3390534617%_ - _%hd3390234607%_))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)) + (##car _%e3396734676%_)))) + (_%__kont3773737738%_ + _%tl3396934683%_ + _%hd3396834680%_ + _%hd3396534670%_))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39885_| - _%hd3386434917%_) - (_%__kont3767637677%_ _%tl3386534920%_) + |gerbil/core/match[1]#_g39948_| + _%hd3392734980%_) + (_%__kont3773937740%_ _%tl3392834983%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39886_| - _%hd3386434917%_) - (if (gx#stx-pair? _%tl3386534920%_) - (let ((_%e3391534535%_ - (gx#syntax-e _%tl3386534920%_))) - (let ((_%tl3391734542%_ + |gerbil/core/match[1]#_g39949_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3397834598%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3398034605%_ (let () (declare (not safe)) - (##cdr _%e3391534535%_))) - (_%hd3391634539%_ + (##cdr _%e3397834598%_))) + (_%hd3397934602%_ (let () (declare (not safe)) - (##car _%e3391534535%_)))) - (if (gx#stx-null? _%tl3391734542%_) - (_%__kont3767837679%_ - _%hd3391634539%_) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)) + (##car _%e3397834598%_)))) + (if (gx#stx-null? _%tl3398034605%_) + (_%__kont3774137742%_ + _%hd3397934602%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39887_| - _%hd3386434917%_) - (if (gx#stx-pair? _%tl3386534920%_) - (let ((_%e3392434474%_ - (gx#syntax-e _%tl3386534920%_))) - (let ((_%tl3392634481%_ + |gerbil/core/match[1]#_g39950_| + _%hd3392734980%_) + (if (gx#stx-pair? _%tl3392834983%_) + (let ((_%e3398734537%_ + (gx#syntax-e _%tl3392834983%_))) + (let ((_%tl3398934544%_ (let () (declare (not safe)) - (##cdr _%e3392434474%_))) - (_%hd3392534478%_ + (##cdr _%e3398734537%_))) + (_%hd3398834541%_ (let () (declare (not safe)) - (##car _%e3392434474%_)))) - (if (gx#stx-null? _%tl3392634481%_) - (_%__kont3768237683%_ - _%hd3392534478%_) - (_%__kont3768437685%_ - _%tl3386534920%_)))) - (_%__kont3768437685%_ _%tl3386534920%_)) + (##car _%e3398734537%_)))) + (if (gx#stx-null? _%tl3398934544%_) + (_%__kont3774537746%_ + _%hd3398834541%_) + (_%__kont3774737748%_ + _%tl3392834983%_)))) + (_%__kont3774737748%_ _%tl3392834983%_)) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39888_| - _%hd3386434917%_) - (_%__kont3768637687%_ _%tl3386534920%_) - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_))))))))))) + |gerbil/core/match[1]#_g39951_| + _%hd3392734980%_) + (_%__kont3774937750%_ _%tl3392834983%_) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match3790237903%_ - _%e3386334913%_ - _%hd3386434917%_ - _%tl3386534920%_)))) + (_%__match3796537966%_ + _%e3392634976%_ + _%hd3392734980%_ + _%tl3392834983%_)))) (let () (declare (not safe)) - (_%g3384334518%_)))))))) - (_%parse-list33476%_ - (lambda (_%body33656%_) - (let* ((_%__stx3799137992%_ _%body33656%_) - (_%g3366233691%_ + (_%g3390634581%_)))))))) + (_%parse-list33539%_ + (lambda (_%body33719%_) + (let* ((_%__stx3805438055%_ _%body33719%_) + (_%g3372533754%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3799137992%_)))) - (let ((_%__kont3799437995%_ - (lambda (_%L33815%_) - (_%parse133474%_ _%L33815%_))) - (_%__kont3799637997%_ - (lambda (_%L33767%_ _%L33769%_ _%L33770%_) + _%__stx3805438055%_)))) + (let ((_%__kont3805738058%_ + (lambda (_%L33878%_) + (_%parse133537%_ _%L33878%_))) + (_%__kont3805938060%_ + (lambda (_%L33830%_ _%L33832%_ _%L33833%_) (cons 'splice: - (cons (_%parse133474%_ _%L33770%_) - (cons (_%parse-list33476%_ - _%L33767%_) + (cons (_%parse133537%_ _%L33833%_) + (cons (_%parse-list33539%_ + _%L33830%_) '()))))) - (_%__kont3799837999%_ - (lambda (_%L33725%_ _%L33727%_) + (_%__kont3806138062%_ + (lambda (_%L33788%_ _%L33790%_) (cons 'cons: - (cons (_%parse133474%_ _%L33727%_) - (cons (_%parse-list33476%_ - _%L33725%_) + (cons (_%parse133537%_ _%L33790%_) + (cons (_%parse-list33539%_ + _%L33788%_) '()))))) - (_%__kont3800038001%_ + (_%__kont3806338064%_ (lambda () - (if (gx#stx-null? _%body33656%_) + (if (gx#stx-null? _%body33719%_) (cons 'null: '()) - (if (gx#stx-pair? _%body33656%_) - (_%parse-error33481%_ _%body33656%_) - (_%parse133474%_ _%body33656%_)))))) - (let* ((_%__match3804038041%_ - (lambda (_%e3368333715%_ - _%hd3368433719%_ - _%tl3368533722%_) - (let ((_%L33725%_ _%tl3368533722%_) - (_%L33727%_ _%hd3368433719%_)) - (if (gx#ellipsis? _%L33727%_) - (_%__kont3800038001%_) - (_%__kont3799837999%_ - _%L33725%_ - _%L33727%_))))) - (_%__match3803438035%_ - (lambda (_%e3367533747%_ - _%hd3367633751%_ - _%tl3367733754%_ - _%e3367833757%_ - _%hd3367933761%_ - _%tl3368033764%_) - (let ((_%L33767%_ _%tl3368033764%_) - (_%L33769%_ _%hd3367933761%_) - (_%L33770%_ _%hd3367633751%_)) - (if (gx#ellipsis? _%L33769%_) - (_%__kont3799637997%_ - _%L33767%_ - _%L33769%_ - _%L33770%_) - (_%__match3804038041%_ - _%e3367533747%_ - _%hd3367633751%_ - _%tl3367733754%_)))))) - (if (gx#stx-pair? _%__stx3799137992%_) - (let ((_%e3366533791%_ - (gx#syntax-e _%__stx3799137992%_))) - (let ((_%tl3366733798%_ + (if (gx#stx-pair? _%body33719%_) + (_%parse-error33544%_ _%body33719%_) + (_%parse133537%_ _%body33719%_)))))) + (let* ((_%__match3810338104%_ + (lambda (_%e3374633778%_ + _%hd3374733782%_ + _%tl3374833785%_) + (let ((_%L33788%_ _%tl3374833785%_) + (_%L33790%_ _%hd3374733782%_)) + (if (gx#ellipsis? _%L33790%_) + (_%__kont3806338064%_) + (_%__kont3806138062%_ + _%L33788%_ + _%L33790%_))))) + (_%__match3809738098%_ + (lambda (_%e3373833810%_ + _%hd3373933814%_ + _%tl3374033817%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_) + (let ((_%L33830%_ _%tl3374333827%_) + (_%L33832%_ _%hd3374233824%_) + (_%L33833%_ _%hd3373933814%_)) + (if (gx#ellipsis? _%L33832%_) + (_%__kont3805938060%_ + _%L33830%_ + _%L33832%_ + _%L33833%_) + (_%__match3810338104%_ + _%e3373833810%_ + _%hd3373933814%_ + _%tl3374033817%_)))))) + (if (gx#stx-pair? _%__stx3805438055%_) + (let ((_%e3372833854%_ + (gx#syntax-e _%__stx3805438055%_))) + (let ((_%tl3373033861%_ (let () (declare (not safe)) - (##cdr _%e3366533791%_))) - (_%hd3366633795%_ + (##cdr _%e3372833854%_))) + (_%hd3372933858%_ (let () (declare (not safe)) - (##car _%e3366533791%_)))) - (if (gx#stx-datum? _%hd3366633795%_) - (let ((_%e3366833801%_ - (gx#stx-e _%hd3366633795%_))) - (if (equal? _%e3366833801%_ '::) - (if (gx#stx-pair? _%tl3366733798%_) - (let ((_%e3366933805%_ + (##car _%e3372833854%_)))) + (if (gx#stx-datum? _%hd3372933858%_) + (let ((_%e3373133864%_ + (gx#stx-e _%hd3372933858%_))) + (if (equal? _%e3373133864%_ '::) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3373233868%_ (gx#syntax-e - _%tl3366733798%_))) - (let ((_%tl3367133812%_ + _%tl3373033861%_))) + (let ((_%tl3373433875%_ (let () (declare (not safe)) - (##cdr _%e3366933805%_))) - (_%hd3367033809%_ + (##cdr _%e3373233868%_))) + (_%hd3373333872%_ (let () (declare (not safe)) - (##car _%e3366933805%_)))) + (##car _%e3373233868%_)))) (if (gx#stx-null? - _%tl3367133812%_) - (_%__kont3799437995%_ - _%hd3367033809%_) - (_%__match3803438035%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_ - _%e3366933805%_ - _%hd3367033809%_ - _%tl3367133812%_)))) - (_%__match3804038041%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_)) - (if (gx#stx-pair? _%tl3366733798%_) - (let ((_%e3367833757%_ + _%tl3373433875%_) + (_%__kont3805738058%_ + _%hd3373333872%_) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3373233868%_ + _%hd3373333872%_ + _%tl3373433875%_)))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_)) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3374133820%_ (gx#syntax-e - _%tl3366733798%_))) - (let ((_%tl3368033764%_ + _%tl3373033861%_))) + (let ((_%tl3374333827%_ (let () (declare (not safe)) - (##cdr _%e3367833757%_))) - (_%hd3367933761%_ + (##cdr _%e3374133820%_))) + (_%hd3374233824%_ (let () (declare (not safe)) - (##car _%e3367833757%_)))) - (_%__match3803438035%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_ - _%e3367833757%_ - _%hd3367933761%_ - _%tl3368033764%_))) - (_%__match3804038041%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_)))) - (if (gx#stx-pair? _%tl3366733798%_) - (let ((_%e3367833757%_ + (##car _%e3374133820%_)))) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_)))) + (if (gx#stx-pair? _%tl3373033861%_) + (let ((_%e3374133820%_ (gx#syntax-e - _%tl3366733798%_))) - (let ((_%tl3368033764%_ + _%tl3373033861%_))) + (let ((_%tl3374333827%_ (let () (declare (not safe)) - (##cdr _%e3367833757%_))) - (_%hd3367933761%_ + (##cdr _%e3374133820%_))) + (_%hd3374233824%_ (let () (declare (not safe)) - (##car _%e3367833757%_)))) - (_%__match3803438035%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_ - _%e3367833757%_ - _%hd3367933761%_ - _%tl3368033764%_))) - (_%__match3804038041%_ - _%e3366533791%_ - _%hd3366633795%_ - _%tl3366733798%_))))) - (_%__kont3800038001%_))))))) - (_%parse-vector33477%_ - (lambda (_%body33653%_) - (if (_%simple-vector?33478%_ _%body33653%_) + (##car _%e3374133820%_)))) + (_%__match3809738098%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_ + _%e3374133820%_ + _%hd3374233824%_ + _%tl3374333827%_))) + (_%__match3810338104%_ + _%e3372833854%_ + _%hd3372933858%_ + _%tl3373033861%_))))) + (_%__kont3806338064%_))))))) + (_%parse-vector33540%_ + (lambda (_%body33716%_) + (if (_%simple-vector?33541%_ _%body33716%_) (cons 'simple: - (cons (gx#stx-map _%parse133474%_ _%body33653%_) + (cons (gx#stx-map _%parse133537%_ _%body33716%_) '())) (cons 'list: - (cons (_%parse-list33476%_ _%body33653%_) + (cons (_%parse-list33539%_ _%body33716%_) '()))))) - (_%simple-vector?33478%_ - (lambda (_%body33590%_) - (let* ((_%__stx3804338044%_ _%body33590%_) - (_%g3359433606%_ + (_%simple-vector?33541%_ + (lambda (_%body33653%_) + (let* ((_%__stx3810638107%_ _%body33653%_) + (_%g3365733669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3804338044%_)))) - (let ((_%__kont3804638047%_ - (lambda (_%L33634%_ _%L33636%_) - (if (gx#ellipsis? _%L33636%_) + _%__stx3810638107%_)))) + (let ((_%__kont3810938110%_ + (lambda (_%L33697%_ _%L33699%_) + (if (gx#ellipsis? _%L33699%_) '#f - (_%simple-vector?33478%_ _%L33634%_)))) - (_%__kont3804838049%_ - (lambda () (gx#stx-null? _%body33590%_)))) - (if (gx#stx-pair? _%__stx3804338044%_) - (let ((_%e3359833624%_ - (gx#syntax-e _%__stx3804338044%_))) - (let ((_%tl3360033631%_ + (_%simple-vector?33541%_ _%L33697%_)))) + (_%__kont3811138112%_ + (lambda () (gx#stx-null? _%body33653%_)))) + (if (gx#stx-pair? _%__stx3810638107%_) + (let ((_%e3366133687%_ + (gx#syntax-e _%__stx3810638107%_))) + (let ((_%tl3366333694%_ (let () (declare (not safe)) - (##cdr _%e3359833624%_))) - (_%hd3359933628%_ + (##cdr _%e3366133687%_))) + (_%hd3366233691%_ (let () (declare (not safe)) - (##car _%e3359833624%_)))) - (_%__kont3804638047%_ - _%tl3360033631%_ - _%hd3359933628%_))) - (_%__kont3804838049%_)))))) - (_%parse-class-body33479%_ - (lambda (_%body33499%_) - (let _%recur33502%_ ((_%rest33505%_ _%body33499%_)) - (let* ((_%__stx3805938060%_ _%rest33505%_) - (_%g3350933525%_ + (##car _%e3366133687%_)))) + (_%__kont3810938110%_ + _%tl3366333694%_ + _%hd3366233691%_))) + (_%__kont3811138112%_)))))) + (_%parse-class-body33542%_ + (lambda (_%body33562%_) + (let _%recur33565%_ ((_%rest33568%_ _%body33562%_)) + (let* ((_%__stx3812238123%_ _%rest33568%_) + (_%g3357233588%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3805938060%_)))) - (let ((_%__kont3806238063%_ - (lambda (_%L33563%_ _%L33565%_ _%L33566%_) - (cons _%L33566%_ - (cons (_%parse133474%_ _%L33565%_) - (_%recur33502%_ _%L33563%_))))) - (_%__kont3806438065%_ + _%__stx3812238123%_)))) + (let ((_%__kont3812538126%_ + (lambda (_%L33626%_ _%L33628%_ _%L33629%_) + (cons _%L33629%_ + (cons (_%parse133537%_ _%L33628%_) + (_%recur33565%_ _%L33626%_))))) + (_%__kont3812738128%_ (lambda () - (if (gx#stx-null? _%rest33505%_) + (if (gx#stx-null? _%rest33568%_) '() - (_%parse-error33481%_ _%rest33505%_))))) - (let ((_%__match3807838079%_ - (lambda (_%e3351433543%_ - _%hd3351533547%_ - _%tl3351633550%_ - _%e3351733553%_ - _%hd3351833557%_ - _%tl3351933560%_) - (let ((_%L33563%_ _%tl3351933560%_) - (_%L33565%_ _%hd3351833557%_) - (_%L33566%_ _%hd3351533547%_)) - (if (gx#stx-keyword? _%L33566%_) - (_%__kont3806238063%_ - _%L33563%_ - _%L33565%_ - _%L33566%_) - (_%__kont3806438065%_)))))) - (if (gx#stx-pair? _%__stx3805938060%_) - (let ((_%e3351433543%_ - (gx#syntax-e _%__stx3805938060%_))) - (let ((_%tl3351633550%_ + (_%parse-error33544%_ _%rest33568%_))))) + (let ((_%__match3814138142%_ + (lambda (_%e3357733606%_ + _%hd3357833610%_ + _%tl3357933613%_ + _%e3358033616%_ + _%hd3358133620%_ + _%tl3358233623%_) + (let ((_%L33626%_ _%tl3358233623%_) + (_%L33628%_ _%hd3358133620%_) + (_%L33629%_ _%hd3357833610%_)) + (if (gx#stx-keyword? _%L33629%_) + (_%__kont3812538126%_ + _%L33626%_ + _%L33628%_ + _%L33629%_) + (_%__kont3812738128%_)))))) + (if (gx#stx-pair? _%__stx3812238123%_) + (let ((_%e3357733606%_ + (gx#syntax-e _%__stx3812238123%_))) + (let ((_%tl3357933613%_ (let () (declare (not safe)) - (##cdr _%e3351433543%_))) - (_%hd3351533547%_ + (##cdr _%e3357733606%_))) + (_%hd3357833610%_ (let () (declare (not safe)) - (##car _%e3351433543%_)))) - (if (gx#stx-pair? _%tl3351633550%_) - (let ((_%e3351733553%_ - (gx#syntax-e _%tl3351633550%_))) - (let ((_%tl3351933560%_ + (##car _%e3357733606%_)))) + (if (gx#stx-pair? _%tl3357933613%_) + (let ((_%e3358033616%_ + (gx#syntax-e _%tl3357933613%_))) + (let ((_%tl3358233623%_ (let () (declare (not safe)) - (##cdr _%e3351733553%_))) - (_%hd3351833557%_ + (##cdr _%e3358033616%_))) + (_%hd3358133620%_ (let () (declare (not safe)) - (##car _%e3351733553%_)))) - (_%__match3807838079%_ - _%e3351433543%_ - _%hd3351533547%_ - _%tl3351633550%_ - _%e3351733553%_ - _%hd3351833557%_ - _%tl3351933560%_))) - (_%__kont3806438065%_)))) - (_%__kont3806438065%_)))))))) - (_%parse-qq33480%_ - (lambda (_%hd33486%_) - (let ((_%g3348833495%_ - (lambda (_%g3348933491%_) + (##car _%e3358033616%_)))) + (_%__match3814138142%_ + _%e3357733606%_ + _%hd3357833610%_ + _%tl3357933613%_ + _%e3358033616%_ + _%hd3358133620%_ + _%tl3358233623%_))) + (_%__kont3812738128%_)))) + (_%__kont3812738128%_)))))))) + (_%parse-qq33543%_ + (lambda (_%hd33549%_) + (let ((_%g3355133558%_ + (lambda (_%g3355233554%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3348933491%_)))) - (_%g3348833495%_ _%hd33486%_)))) - (_%parse-error33481%_ - (lambda (_%hd33483%_) + _%g3355233554%_)))) + (_%g3355133558%_ _%hd33549%_)))) + (_%parse-error33544%_ + (lambda (_%hd33546%_) (apply gx#raise-syntax-error '#f '"bad syntax; illegal pattern" - (if _%match-stx33472%_ - (cons _%match-stx33472%_ - (cons _%stx33470%_ - (cons _%hd33483%_ '()))) - (cons _%stx33470%_ (cons _%hd33483%_ '()))))))) - (_%parse133474%_ _%stx33470%_)))) + (if _%match-stx33535%_ + (cons _%match-stx33535%_ + (cons _%stx33533%_ + (cons _%hd33546%_ '()))) + (cons _%stx33533%_ (cons _%hd33546%_ '()))))))) + (_%parse133537%_ _%stx33533%_)))) (define |gerbil/core/match[1]#parse-match-pattern__0| - (lambda (_%stx35160%_) - (let ((_%match-stx35163%_ '#f)) + (lambda (_%stx35223%_) + (let ((_%match-stx35226%_ '#f)) (|gerbil/core/match[1]#parse-match-pattern__%| - _%stx35160%_ - _%match-stx35163%_)))) + _%stx35223%_ + _%match-stx35226%_)))) (define |gerbil/core/match[1]#parse-match-pattern| - (lambda _g39890_ - (let ((_g39889_ (let () (declare (not safe)) (##length _g39890_)))) - (cond ((let () (declare (not safe)) (##fx= _g39889_ 1)) + (lambda _g39953_ + (let ((_g39952_ (let () (declare (not safe)) (##length _g39953_)))) + (cond ((let () (declare (not safe)) (##fx= _g39952_ 1)) (apply |gerbil/core/match[1]#parse-match-pattern__0| - _g39890_)) - ((let () (declare (not safe)) (##fx= _g39889_ 2)) + _g39953_)) + ((let () (declare (not safe)) (##fx= _g39952_ 2)) (apply |gerbil/core/match[1]#parse-match-pattern__%| - _g39890_)) + _g39953_)) (else (##raise-wrong-number-of-arguments-exception |gerbil/core/match[1]#parse-match-pattern| - _g39890_)))))) + _g39953_)))))) (define |gerbil/core/match[1]#match-pattern?| - (lambda (_%stx33455%_) - (let ((__tmp39891 - (lambda (_%E33458%_) + (lambda (_%stx33518%_) + (let ((__tmp39954 + (lambda (_%E33521%_) (with-exception-handler - (let ((_%E!33461%_ (current-exception-handler))) - (lambda (_%e33464%_) - (if (syntax-error? _%e33464%_) - (_%E33458%_ '#f) + (let ((_%E!33524%_ (current-exception-handler))) + (lambda (_%e33527%_) + (if (syntax-error? _%e33527%_) + (_%E33521%_ '#f) (let () (declare (not safe)) - (_%E!33461%_ _%e33464%_))))) + (_%E!33524%_ _%e33527%_))))) (lambda () (|gerbil/core/match[1]#parse-match-pattern__0| - _%stx33455%_) + _%stx33518%_) '#t))))) (declare (not safe)) - (##call-with-current-continuation __tmp39891)))) + (##call-with-current-continuation __tmp39954)))) (define |gerbil/core/match[1]#match-pattern-vars| - (lambda (_%ptree32190%_) - (letrec ((_%loop32193%_ - (lambda (_%ptree32480%_ _%vars32482%_ _%K32483%_) - (let* ((_%__stx3817738178%_ _%ptree32480%_) - (_%g3249632606%_ + (lambda (_%ptree32253%_) + (letrec ((_%loop32256%_ + (lambda (_%ptree32543%_ _%vars32545%_ _%K32546%_) + (let* ((_%__stx3824038241%_ _%ptree32543%_) + (_%g3255932669%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3817738178%_)))) - (let ((_%__kont3818038181%_ - (lambda (_%L33236%_) - (let* ((_%__stx3809738098%_ _%L33236%_) - (_%g3325333287%_ + _%__stx3824038241%_)))) + (let ((_%__kont3824338244%_ + (lambda (_%L33299%_) + (let* ((_%__stx3816038161%_ _%L33299%_) + (_%g3331633350%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3809738098%_)))) - (let ((_%__kont3810038101%_ - (lambda (_%L33436%_) - (_%loop32193%_ - _%L33436%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3810238103%_ - (lambda (_%L33405%_) - (_%loop32193%_ - _%L33405%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3810438105%_ - (lambda (_%L33353%_) - (_%loop32193%_ - _%L33353%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3810638107%_ + _%__stx3816038161%_)))) + (let ((_%__kont3816338164%_ + (lambda (_%L33499%_) + (_%loop32256%_ + _%L33499%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816538166%_ + (lambda (_%L33468%_) + (_%loop32256%_ + _%L33468%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816738168%_ + (lambda (_%L33416%_) + (_%loop32256%_ + _%L33416%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3816938170%_ (lambda () - (_%K32483%_ _%vars32482%_)))) - (if (gx#stx-pair? _%__stx3809738098%_) - (let ((_%e3325633426%_ + (_%K32546%_ _%vars32545%_)))) + (if (gx#stx-pair? _%__stx3816038161%_) + (let ((_%e3331933489%_ (gx#syntax-e - _%__stx3809738098%_))) - (let ((_%tl3325833433%_ + _%__stx3816038161%_))) + (let ((_%tl3332133496%_ (let () (declare (not safe)) - (##cdr _%e3325633426%_))) - (_%hd3325733430%_ + (##cdr _%e3331933489%_))) + (_%hd3332033493%_ (let () (declare (not safe)) - (##car _%e3325633426%_)))) - (if (gx#stx-null? _%tl3325833433%_) - (_%__kont3810038101%_ - _%hd3325733430%_) + (##car _%e3331933489%_)))) + (if (gx#stx-null? _%tl3332133496%_) + (_%__kont3816338164%_ + _%hd3332033493%_) (if (gx#stx-datum? - _%hd3325733430%_) - (let ((_%e3326333391%_ + _%hd3332033493%_) + (let ((_%e3332633454%_ (gx#stx-e - _%hd3325733430%_))) - (if (equal? _%e3326333391%_ + _%hd3332033493%_))) + (if (equal? _%e3332633454%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '=>:) - (if (gx#stx-pair? _%tl3325833433%_) - (let ((_%e3326433395%_ (gx#syntax-e _%tl3325833433%_))) - (let ((_%tl3326633402%_ + (if (gx#stx-pair? _%tl3332133496%_) + (let ((_%e3332733458%_ (gx#syntax-e _%tl3332133496%_))) + (let ((_%tl3332933465%_ (let () (declare (not safe)) - (##cdr _%e3326433395%_))) - (_%hd3326533399%_ + (##cdr _%e3332733458%_))) + (_%hd3332833462%_ (let () (declare (not safe)) - (##car _%e3326433395%_)))) - (if (gx#stx-null? _%tl3326633402%_) - (_%__kont3810238103%_ _%hd3326533399%_) - (_%__kont3810638107%_)))) - (_%__kont3810638107%_)) - (if (equal? _%e3326333391%_ '::) - (if (gx#stx-pair? _%tl3325833433%_) - (let ((_%e3327233319%_ - (gx#syntax-e _%tl3325833433%_))) - (let ((_%tl3327433326%_ + (##car _%e3332733458%_)))) + (if (gx#stx-null? _%tl3332933465%_) + (_%__kont3816538166%_ _%hd3332833462%_) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (if (equal? _%e3332633454%_ '::) + (if (gx#stx-pair? _%tl3332133496%_) + (let ((_%e3333533382%_ + (gx#syntax-e _%tl3332133496%_))) + (let ((_%tl3333733389%_ (let () (declare (not safe)) - (##cdr _%e3327233319%_))) - (_%hd3327333323%_ + (##cdr _%e3333533382%_))) + (_%hd3333633386%_ (let () (declare (not safe)) - (##car _%e3327233319%_)))) - (if (gx#stx-pair? _%tl3327433326%_) - (let ((_%e3327533329%_ - (gx#syntax-e _%tl3327433326%_))) - (let ((_%tl3327733336%_ + (##car _%e3333533382%_)))) + (if (gx#stx-pair? _%tl3333733389%_) + (let ((_%e3333833392%_ + (gx#syntax-e _%tl3333733389%_))) + (let ((_%tl3334033399%_ (let () (declare (not safe)) - (##cdr _%e3327533329%_))) - (_%hd3327633333%_ + (##cdr _%e3333833392%_))) + (_%hd3333933396%_ (let () (declare (not safe)) - (##car _%e3327533329%_)))) - (if (gx#stx-datum? _%hd3327633333%_) - (let ((_%e3327833339%_ - (gx#stx-e _%hd3327633333%_))) - (if (equal? _%e3327833339%_ '=>:) + (##car _%e3333833392%_)))) + (if (gx#stx-datum? _%hd3333933396%_) + (let ((_%e3334133402%_ + (gx#stx-e _%hd3333933396%_))) + (if (equal? _%e3334133402%_ '=>:) (if (gx#stx-pair? - _%tl3327733336%_) - (let ((_%e3327933343%_ + _%tl3334033399%_) + (let ((_%e3334233406%_ (gx#syntax-e - _%tl3327733336%_))) - (let ((_%tl3328133350%_ + _%tl3334033399%_))) + (let ((_%tl3334433413%_ (let () (declare (not safe)) - (##cdr _%e3327933343%_))) - (_%hd3328033347%_ + (##cdr _%e3334233406%_))) + (_%hd3334333410%_ (let () (declare (not safe)) - (##car _%e3327933343%_)))) + (##car _%e3334233406%_)))) (if (gx#stx-null? - _%tl3328133350%_) - (_%__kont3810438105%_ - _%hd3328033347%_) - (_%__kont3810638107%_)))) - (_%__kont3810638107%_)) - (_%__kont3810638107%_))) - (_%__kont3810638107%_)))) - (_%__kont3810638107%_)))) - (_%__kont3810638107%_)) - (_%__kont3810638107%_)))) + _%tl3334433413%_) + (_%__kont3816738168%_ + _%hd3334333410%_) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (_%__kont3816938170%_))) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)))) + (_%__kont3816938170%_)) + (_%__kont3816938170%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3810638107%_))))) - (_%__kont3810638107%_)))))) - (_%__kont3818238183%_ - (lambda (_%L33123%_ _%L33125%_) - (let* ((_%__stx3808138082%_ _%L33123%_) - (_%g3314133153%_ + (_%__kont3816938170%_))))) + (_%__kont3816938170%_)))))) + (_%__kont3824538246%_ + (lambda (_%L33186%_ _%L33188%_) + (let* ((_%__stx3814438145%_ _%L33186%_) + (_%g3320433216%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3808138082%_)))) - (let ((_%__kont3808438085%_ - (lambda (_%L33181%_ _%L33183%_) - (_%loop32193%_ - _%L33183%_ - _%vars32482%_ - (lambda (_%g3319533197%_) - (_%loop32193%_ - (cons _%L33125%_ _%L33181%_) - _%g3319533197%_ - _%K32483%_))))) - (_%__kont3808638087%_ + _%__stx3814438145%_)))) + (let ((_%__kont3814738148%_ + (lambda (_%L33244%_ _%L33246%_) + (_%loop32256%_ + _%L33246%_ + _%vars32545%_ + (lambda (_%g3325833260%_) + (_%loop32256%_ + (cons _%L33188%_ _%L33244%_) + _%g3325833260%_ + _%K32546%_))))) + (_%__kont3814938150%_ (lambda () - (_%K32483%_ _%vars32482%_)))) - (if (gx#stx-pair? _%__stx3808138082%_) - (let ((_%e3314533171%_ + (_%K32546%_ _%vars32545%_)))) + (if (gx#stx-pair? _%__stx3814438145%_) + (let ((_%e3320833234%_ (gx#syntax-e - _%__stx3808138082%_))) - (let ((_%tl3314733178%_ + _%__stx3814438145%_))) + (let ((_%tl3321033241%_ (let () (declare (not safe)) - (##cdr _%e3314533171%_))) - (_%hd3314633175%_ + (##cdr _%e3320833234%_))) + (_%hd3320933238%_ (let () (declare (not safe)) - (##car _%e3314533171%_)))) - (_%__kont3808438085%_ - _%tl3314733178%_ - _%hd3314633175%_))) - (_%__kont3808638087%_)))))) - (_%__kont3818438185%_ - (lambda (_%L33092%_) - (_%loop32193%_ - _%L33092%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3818638187%_ - (lambda (_%L33038%_ _%L33040%_) - (_%loop32193%_ - _%L33040%_ - _%vars32482%_ - (lambda (_%g3305533057%_) - (_%loop32193%_ - _%L33038%_ - _%g3305533057%_ - _%K32483%_))))) - (_%__kont3818838189%_ - (lambda (_%L32974%_ _%L32976%_) - (_%loop32193%_ - _%L32976%_ - _%vars32482%_ - (lambda (_%g3299132993%_) - (_%loop32193%_ - _%L32974%_ - _%g3299132993%_ - _%K32483%_))))) - (_%__kont3819038191%_ - (lambda (_%L32919%_) - (_%loop32193%_ - _%L32919%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3819238193%_ - (lambda (_%L32869%_ _%L32871%_) - (_%loop-vector32195%_ - _%L32869%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3819438195%_ - (lambda (_%L32826%_) - (_%loop-vector32195%_ - _%L32826%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3819638197%_ - (lambda (_%L32769%_) - (_%loop-class-list32197%_ - _%L32769%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3819838199%_ - (lambda (_%L32710%_ _%L32712%_) - (_%loop32193%_ - _%L32710%_ - _%vars32482%_ - _%K32483%_))) - (_%__kont3820038201%_ - (lambda (_%L32648%_) - (if (find (lambda (_%g3266332665%_) + (##car _%e3320833234%_)))) + (_%__kont3814738148%_ + _%tl3321033241%_ + _%hd3320933238%_))) + (_%__kont3814938150%_)))))) + (_%__kont3824738248%_ + (lambda (_%L33155%_) + (_%loop32256%_ + _%L33155%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3824938250%_ + (lambda (_%L33101%_ _%L33103%_) + (_%loop32256%_ + _%L33103%_ + _%vars32545%_ + (lambda (_%g3311833120%_) + (_%loop32256%_ + _%L33101%_ + _%g3311833120%_ + _%K32546%_))))) + (_%__kont3825138252%_ + (lambda (_%L33037%_ _%L33039%_) + (_%loop32256%_ + _%L33039%_ + _%vars32545%_ + (lambda (_%g3305433056%_) + (_%loop32256%_ + _%L33037%_ + _%g3305433056%_ + _%K32546%_))))) + (_%__kont3825338254%_ + (lambda (_%L32982%_) + (_%loop32256%_ + _%L32982%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825538256%_ + (lambda (_%L32932%_ _%L32934%_) + (_%loop-vector32258%_ + _%L32932%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825738258%_ + (lambda (_%L32889%_) + (_%loop-vector32258%_ + _%L32889%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3825938260%_ + (lambda (_%L32832%_) + (_%loop-class-list32260%_ + _%L32832%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3826138262%_ + (lambda (_%L32773%_ _%L32775%_) + (_%loop32256%_ + _%L32773%_ + _%vars32545%_ + _%K32546%_))) + (_%__kont3826338264%_ + (lambda (_%L32711%_) + (if (find (lambda (_%g3272632728%_) (gx#bound-identifier=? - _%g3266332665%_ - _%L32648%_)) - _%vars32482%_) - (_%K32483%_ _%vars32482%_) - (_%K32483%_ - (cons _%L32648%_ _%vars32482%_))))) - (_%__kont3820238203%_ - (lambda () (_%K32483%_ _%vars32482%_)))) - (let* ((_%__match3833438335%_ - (lambda (_%e3255332849%_ - _%hd3255432853%_ - _%tl3255532856%_ - _%e3255632859%_ - _%hd3255732863%_ - _%tl3255832866%_) - (let ((_%L32869%_ _%hd3255732863%_) - (_%L32871%_ _%hd3255432853%_)) - (if (or (gx#stx-eq? 'values: _%L32871%_) - (gx#stx-eq? 'vector: _%L32871%_)) - (_%__kont3819238193%_ - _%L32869%_ - _%L32871%_) - (if (gx#stx-datum? _%hd3255432853%_) - (let ((_%e3256332802%_ + _%g3272632728%_ + _%L32711%_)) + _%vars32545%_) + (_%K32546%_ _%vars32545%_) + (_%K32546%_ + (cons _%L32711%_ _%vars32545%_))))) + (_%__kont3826538266%_ + (lambda () (_%K32546%_ _%vars32545%_)))) + (let* ((_%__match3839738398%_ + (lambda (_%e3261632912%_ + _%hd3261732916%_ + _%tl3261832919%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (let ((_%L32932%_ _%hd3262032926%_) + (_%L32934%_ _%hd3261732916%_)) + (if (or (gx#stx-eq? 'values: _%L32934%_) + (gx#stx-eq? 'vector: _%L32934%_)) + (_%__kont3825538256%_ + _%L32932%_ + _%L32934%_) + (if (gx#stx-datum? _%hd3261732916%_) + (let ((_%e3262632865%_ (gx#stx-e - _%hd3255432853%_))) - (if (equal? _%e3256332802%_ + _%hd3261732916%_))) + (if (equal? _%e3262632865%_ 'struct:) - (_%__kont3820238203%_) - (if (equal? _%e3256332802%_ + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ 'class:) - (_%__kont3820238203%_) - (if (equal? _%e3256332802%_ + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 'apply:) - (_%__kont3820238203%_) - (if (equal? _%e3256332802%_ 'var:) - (_%__kont3820038201%_ _%hd3255732863%_) - (_%__kont3820238203%_)))))) + (_%__kont3826538266%_) + (if (equal? _%e3262632865%_ 'var:) + (_%__kont3826338264%_ _%hd3262032926%_) + (_%__kont3826538266%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3820238203%_)))))) - (_%__match3822838229%_ - (lambda (_%e3250833113%_ - _%hd3250933117%_ - _%tl3251033120%_) - (let ((_%L33123%_ _%tl3251033120%_) - (_%L33125%_ _%hd3250933117%_)) - (if (or (gx#stx-eq? 'and: _%L33125%_) - (gx#stx-eq? 'or: _%L33125%_)) - (_%__kont3818238183%_ - _%L33123%_ - _%L33125%_) - (if (gx#stx-datum? _%hd3250933117%_) - (let ((_%e3251533078%_ + (_%__kont3826538266%_)))))) + (_%__match3829138292%_ + (lambda (_%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_) + (let ((_%L33186%_ _%tl3257333183%_) + (_%L33188%_ _%hd3257233180%_)) + (if (or (gx#stx-eq? 'and: _%L33188%_) + (gx#stx-eq? 'or: _%L33188%_)) + (_%__kont3824538246%_ + _%L33186%_ + _%L33188%_) + (if (gx#stx-datum? _%hd3257233180%_) + (let ((_%e3257833141%_ (gx#stx-e - _%hd3250933117%_))) - (if (equal? _%e3251533078%_ + _%hd3257233180%_))) + (if (equal? _%e3257833141%_ 'not:) (if (gx#stx-pair? - _%tl3251033120%_) - (let ((_%e3251633082%_ + _%tl3257333183%_) + (let ((_%e3257933145%_ (gx#syntax-e - _%tl3251033120%_))) - (let ((_%tl3251833089%_ + _%tl3257333183%_))) + (let ((_%tl3258133152%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3251633082%_))) - (_%hd3251733086%_ - (let () (declare (not safe)) (##car _%e3251633082%_)))) - (if (gx#stx-null? _%tl3251833089%_) - (_%__kont3818438185%_ _%hd3251733086%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)) + (##cdr _%e3257933145%_))) + (_%hd3258033149%_ + (let () (declare (not safe)) (##car _%e3257933145%_)))) + (if (gx#stx-null? _%tl3258133152%_) + (_%__kont3824738248%_ _%hd3258033149%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3251533078%_ + (if (equal? _%e3257833141%_ 'cons:) (if (gx#stx-pair? - _%tl3251033120%_) - (let ((_%e3252533018%_ + _%tl3257333183%_) + (let ((_%e3258833081%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3251033120%_))) - (let ((_%tl3252733025%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3259033088%_ (let () (declare (not safe)) - (##cdr _%e3252533018%_))) - (_%hd3252633022%_ + (##cdr _%e3258833081%_))) + (_%hd3258933085%_ (let () (declare (not safe)) - (##car _%e3252533018%_)))) - (if (gx#stx-pair? _%tl3252733025%_) - (let ((_%e3252833028%_ - (gx#syntax-e _%tl3252733025%_))) - (let ((_%tl3253033035%_ + (##car _%e3258833081%_)))) + (if (gx#stx-pair? _%tl3259033088%_) + (let ((_%e3259133091%_ + (gx#syntax-e _%tl3259033088%_))) + (let ((_%tl3259333098%_ (let () (declare (not safe)) - (##cdr _%e3252833028%_))) - (_%hd3252933032%_ + (##cdr _%e3259133091%_))) + (_%hd3259233095%_ (let () (declare (not safe)) - (##car _%e3252833028%_)))) - (if (gx#stx-null? _%tl3253033035%_) - (_%__kont3818638187%_ - _%hd3252933032%_ - _%hd3252633022%_) - (_%__kont3820238203%_)))) - (if (gx#stx-null? _%tl3252733025%_) - (_%__match3833438335%_ - _%e3250833113%_ - _%hd3250933117%_ - _%tl3251033120%_ - _%e3252533018%_ - _%hd3252633022%_ - _%tl3252733025%_) - (_%__kont3820238203%_))))) - (_%__kont3820238203%_)) - (if (equal? _%e3251533078%_ 'splice:) - (if (gx#stx-pair? _%tl3251033120%_) - (let ((_%e3253732954%_ (gx#syntax-e _%tl3251033120%_))) - (let ((_%tl3253932961%_ + (##car _%e3259133091%_)))) + (if (gx#stx-null? _%tl3259333098%_) + (_%__kont3824938250%_ + _%hd3259233095%_ + _%hd3258933085%_) + (_%__kont3826538266%_)))) + (if (gx#stx-null? _%tl3259033088%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3258833081%_ + _%hd3258933085%_ + _%tl3259033088%_) + (_%__kont3826538266%_))))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'splice:) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3260033017%_ (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3260233024%_ (let () (declare (not safe)) - (##cdr _%e3253732954%_))) - (_%hd3253832958%_ + (##cdr _%e3260033017%_))) + (_%hd3260133021%_ (let () (declare (not safe)) - (##car _%e3253732954%_)))) - (if (gx#stx-pair? _%tl3253932961%_) - (let ((_%e3254032964%_ - (gx#syntax-e _%tl3253932961%_))) - (let ((_%tl3254232971%_ + (##car _%e3260033017%_)))) + (if (gx#stx-pair? _%tl3260233024%_) + (let ((_%e3260333027%_ + (gx#syntax-e _%tl3260233024%_))) + (let ((_%tl3260533034%_ (let () (declare (not safe)) - (##cdr _%e3254032964%_))) - (_%hd3254132968%_ + (##cdr _%e3260333027%_))) + (_%hd3260433031%_ (let () (declare (not safe)) - (##car _%e3254032964%_)))) - (if (gx#stx-null? _%tl3254232971%_) - (_%__kont3818838189%_ - _%hd3254132968%_ - _%hd3253832958%_) - (_%__kont3820238203%_)))) - (if (gx#stx-null? _%tl3253932961%_) - (_%__match3833438335%_ - _%e3250833113%_ - _%hd3250933117%_ - _%tl3251033120%_ - _%e3253732954%_ - _%hd3253832958%_ - _%tl3253932961%_) - (_%__kont3820238203%_))))) - (_%__kont3820238203%_)) - (if (equal? _%e3251533078%_ 'box:) - (if (gx#stx-pair? _%tl3251033120%_) - (let ((_%e3254832909%_ - (gx#syntax-e _%tl3251033120%_))) - (let ((_%tl3255032916%_ + (##car _%e3260333027%_)))) + (if (gx#stx-null? _%tl3260533034%_) + (_%__kont3825138252%_ + _%hd3260433031%_ + _%hd3260133021%_) + (_%__kont3826538266%_)))) + (if (gx#stx-null? _%tl3260233024%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3260033017%_ + _%hd3260133021%_ + _%tl3260233024%_) + (_%__kont3826538266%_))))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'box:) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261132972%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3261332979%_ (let () (declare (not safe)) - (##cdr _%e3254832909%_))) - (_%hd3254932913%_ + (##cdr _%e3261132972%_))) + (_%hd3261232976%_ (let () (declare (not safe)) - (##car _%e3254832909%_)))) - (if (gx#stx-null? _%tl3255032916%_) - (_%__kont3819038191%_ _%hd3254932913%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)) - (if (gx#stx-pair? _%tl3251033120%_) - (let ((_%e3255632859%_ - (gx#syntax-e _%tl3251033120%_))) - (let ((_%tl3255832866%_ + (##car _%e3261132972%_)))) + (if (gx#stx-null? _%tl3261332979%_) + (_%__kont3825338254%_ _%hd3261232976%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261932922%_ + (gx#syntax-e _%tl3257333183%_))) + (let ((_%tl3262132929%_ (let () (declare (not safe)) - (##cdr _%e3255632859%_))) - (_%hd3255732863%_ + (##cdr _%e3261932922%_))) + (_%hd3262032926%_ (let () (declare (not safe)) - (##car _%e3255632859%_)))) - (if (gx#stx-null? _%tl3255832866%_) - (_%__match3833438335%_ - _%e3250833113%_ - _%hd3250933117%_ - _%tl3251033120%_ - _%e3255632859%_ - _%hd3255732863%_ - _%tl3255832866%_) - (if (equal? _%e3251533078%_ 'struct:) - (if (gx#stx-pair? _%tl3255832866%_) - (let ((_%e3256732816%_ + (##car _%e3261932922%_)))) + (if (gx#stx-null? _%tl3262132929%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (if (equal? _%e3257833141%_ 'struct:) + (if (gx#stx-pair? _%tl3262132929%_) + (let ((_%e3263032879%_ (gx#syntax-e - _%tl3255832866%_))) - (let ((_%tl3256932823%_ + _%tl3262132929%_))) + (let ((_%tl3263232886%_ (let () (declare (not safe)) - (##cdr _%e3256732816%_))) - (_%hd3256832820%_ + (##cdr _%e3263032879%_))) + (_%hd3263132883%_ (let () (declare (not safe)) - (##car _%e3256732816%_)))) + (##car _%e3263032879%_)))) (if (gx#stx-null? - _%tl3256932823%_) - (_%__kont3819438195%_ - _%hd3256832820%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)) - (if (equal? _%e3251533078%_ 'class:) - (if (gx#stx-pair? _%tl3255832866%_) - (let ((_%e3257832759%_ + _%tl3263232886%_) + (_%__kont3825738258%_ + _%hd3263132883%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'class:) + (if (gx#stx-pair? _%tl3262132929%_) + (let ((_%e3264132822%_ (gx#syntax-e - _%tl3255832866%_))) - (let ((_%tl3258032766%_ + _%tl3262132929%_))) + (let ((_%tl3264332829%_ (let () (declare (not safe)) - (##cdr _%e3257832759%_))) - (_%hd3257932763%_ + (##cdr _%e3264132822%_))) + (_%hd3264232826%_ (let () (declare (not safe)) - (##car _%e3257832759%_)))) + (##car _%e3264132822%_)))) (if (gx#stx-null? - _%tl3258032766%_) - (_%__kont3819638197%_ - _%hd3257932763%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)) - (if (equal? _%e3251533078%_ 'apply:) + _%tl3264332829%_) + (_%__kont3825938260%_ + _%hd3264232826%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (if (equal? _%e3257833141%_ 'apply:) (if (gx#stx-pair? - _%tl3255832866%_) - (let ((_%e3259032700%_ + _%tl3262132929%_) + (let ((_%e3265332763%_ (gx#syntax-e - _%tl3255832866%_))) - (let ((_%tl3259232707%_ + _%tl3262132929%_))) + (let ((_%tl3265532770%_ (let () (declare (not safe)) - (##cdr _%e3259032700%_))) - (_%hd3259132704%_ + (##cdr _%e3265332763%_))) + (_%hd3265432767%_ (let () (declare (not safe)) - (##car _%e3259032700%_)))) + (##car _%e3265332763%_)))) (if (gx#stx-null? - _%tl3259232707%_) - (_%__kont3819838199%_ - _%hd3259132704%_ - _%hd3255732863%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)) - (_%__kont3820238203%_))))))) - (_%__kont3820238203%_))))))) + _%tl3265532770%_) + (_%__kont3826138262%_ + _%hd3265432767%_ + _%hd3262032926%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)) + (_%__kont3826538266%_))))))) + (_%__kont3826538266%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3251033120%_) - (let ((_%e3255632859%_ + (if (gx#stx-pair? _%tl3257333183%_) + (let ((_%e3261932922%_ (gx#syntax-e - _%tl3251033120%_))) - (let ((_%tl3255832866%_ + _%tl3257333183%_))) + (let ((_%tl3262132929%_ (let () (declare (not safe)) - (##cdr _%e3255632859%_))) - (_%hd3255732863%_ + (##cdr _%e3261932922%_))) + (_%hd3262032926%_ (let () (declare (not safe)) - (##car _%e3255632859%_)))) + (##car _%e3261932922%_)))) (if (gx#stx-null? - _%tl3255832866%_) - (_%__match3833438335%_ - _%e3250833113%_ - _%hd3250933117%_ - _%tl3251033120%_ - _%e3255632859%_ - _%hd3255732863%_ - _%tl3255832866%_) - (_%__kont3820238203%_)))) - (_%__kont3820238203%_)))))))) - (if (gx#stx-pair? _%__stx3817738178%_) - (let ((_%e3249933212%_ - (gx#syntax-e _%__stx3817738178%_))) - (let ((_%tl3250133219%_ + _%tl3262132929%_) + (_%__match3839738398%_ + _%e3257133176%_ + _%hd3257233180%_ + _%tl3257333183%_ + _%e3261932922%_ + _%hd3262032926%_ + _%tl3262132929%_) + (_%__kont3826538266%_)))) + (_%__kont3826538266%_)))))))) + (if (gx#stx-pair? _%__stx3824038241%_) + (let ((_%e3256233275%_ + (gx#syntax-e _%__stx3824038241%_))) + (let ((_%tl3256433282%_ (let () (declare (not safe)) - (##cdr _%e3249933212%_))) - (_%hd3250033216%_ + (##cdr _%e3256233275%_))) + (_%hd3256333279%_ (let () (declare (not safe)) - (##car _%e3249933212%_)))) - (if (gx#stx-datum? _%hd3250033216%_) - (let ((_%e3250233222%_ - (gx#stx-e _%hd3250033216%_))) - (if (equal? _%e3250233222%_ '?:) - (if (gx#stx-pair? _%tl3250133219%_) - (let ((_%e3250333226%_ + (##car _%e3256233275%_)))) + (if (gx#stx-datum? _%hd3256333279%_) + (let ((_%e3256533285%_ + (gx#stx-e _%hd3256333279%_))) + (if (equal? _%e3256533285%_ '?:) + (if (gx#stx-pair? _%tl3256433282%_) + (let ((_%e3256633289%_ (gx#syntax-e - _%tl3250133219%_))) - (let ((_%tl3250533233%_ + _%tl3256433282%_))) + (let ((_%tl3256833296%_ (let () (declare (not safe)) - (##cdr _%e3250333226%_))) - (_%hd3250433230%_ + (##cdr _%e3256633289%_))) + (_%hd3256733293%_ (let () (declare (not safe)) - (##car _%e3250333226%_)))) - (_%__kont3818038181%_ - _%tl3250533233%_))) - (_%__match3822838229%_ - _%e3249933212%_ - _%hd3250033216%_ - _%tl3250133219%_)) - (_%__match3822838229%_ - _%e3249933212%_ - _%hd3250033216%_ - _%tl3250133219%_))) - (_%__match3822838229%_ - _%e3249933212%_ - _%hd3250033216%_ - _%tl3250133219%_)))) - (_%__kont3820238203%_))))))) - (_%loop-vector32195%_ - (lambda (_%body32356%_ _%vars32358%_ _%K32359%_) - (let* ((_%__stx3843538436%_ _%body32356%_) - (_%g3236232385%_ + (##car _%e3256633289%_)))) + (_%__kont3824338244%_ + _%tl3256833296%_))) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_)) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_))) + (_%__match3829138292%_ + _%e3256233275%_ + _%hd3256333279%_ + _%tl3256433282%_)))) + (_%__kont3826538266%_))))))) + (_%loop-vector32258%_ + (lambda (_%body32419%_ _%vars32421%_ _%K32422%_) + (let* ((_%__stx3849838499%_ _%body32419%_) + (_%g3242532448%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3843538436%_)))) - (let ((_%__kont3843838439%_ - (lambda (_%L32462%_) - (_%loop-list32196%_ - _%L32462%_ - _%vars32358%_ - _%K32359%_))) - (_%__kont3844038441%_ - (lambda (_%L32416%_) - (_%loop32193%_ - _%L32416%_ - _%vars32358%_ - _%K32359%_)))) - (if (gx#stx-pair? _%__stx3843538436%_) - (let ((_%e3236532438%_ - (gx#syntax-e _%__stx3843538436%_))) - (let ((_%tl3236732445%_ + _%__stx3849838499%_)))) + (let ((_%__kont3850138502%_ + (lambda (_%L32525%_) + (_%loop-list32259%_ + _%L32525%_ + _%vars32421%_ + _%K32422%_))) + (_%__kont3850338504%_ + (lambda (_%L32479%_) + (_%loop32256%_ + _%L32479%_ + _%vars32421%_ + _%K32422%_)))) + (if (gx#stx-pair? _%__stx3849838499%_) + (let ((_%e3242832501%_ + (gx#syntax-e _%__stx3849838499%_))) + (let ((_%tl3243032508%_ (let () (declare (not safe)) - (##cdr _%e3236532438%_))) - (_%hd3236632442%_ + (##cdr _%e3242832501%_))) + (_%hd3242932505%_ (let () (declare (not safe)) - (##car _%e3236532438%_)))) - (if (gx#stx-datum? _%hd3236632442%_) - (let ((_%e3236832448%_ - (gx#stx-e _%hd3236632442%_))) - (if (equal? _%e3236832448%_ 'simple:) - (if (gx#stx-pair? _%tl3236732445%_) - (let ((_%e3236932452%_ + (##car _%e3242832501%_)))) + (if (gx#stx-datum? _%hd3242932505%_) + (let ((_%e3243132511%_ + (gx#stx-e _%hd3242932505%_))) + (if (equal? _%e3243132511%_ 'simple:) + (if (gx#stx-pair? _%tl3243032508%_) + (let ((_%e3243232515%_ (gx#syntax-e - _%tl3236732445%_))) - (let ((_%tl3237132459%_ + _%tl3243032508%_))) + (let ((_%tl3243432522%_ (let () (declare (not safe)) - (##cdr _%e3236932452%_))) - (_%hd3237032456%_ + (##cdr _%e3243232515%_))) + (_%hd3243332519%_ (let () (declare (not safe)) - (##car _%e3236932452%_)))) + (##car _%e3243232515%_)))) (if (gx#stx-null? - _%tl3237132459%_) - (_%__kont3843838439%_ - _%hd3237032456%_) + _%tl3243432522%_) + (_%__kont3850138502%_ + _%hd3243332519%_) (let () (declare (not safe)) - (_%g3236232385%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3236232385%_))) - (if (equal? _%e3236832448%_ 'list:) + (_%g3242532448%_))) + (if (equal? _%e3243132511%_ 'list:) (if (gx#stx-pair? - _%tl3236732445%_) - (let ((_%e3237732406%_ + _%tl3243032508%_) + (let ((_%e3244032469%_ (gx#syntax-e - _%tl3236732445%_))) - (let ((_%tl3237932413%_ + _%tl3243032508%_))) + (let ((_%tl3244232476%_ (let () (declare (not safe)) - (##cdr _%e3237732406%_))) - (_%hd3237832410%_ + (##cdr _%e3244032469%_))) + (_%hd3244132473%_ (let () (declare (not safe)) - (##car _%e3237732406%_)))) + (##car _%e3244032469%_)))) (if (gx#stx-null? - _%tl3237932413%_) - (_%__kont3844038441%_ - _%hd3237832410%_) + _%tl3244232476%_) + (_%__kont3850338504%_ + _%hd3244132473%_) (let () (declare (not safe)) - (_%g3236232385%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3236232385%_))) + (_%g3242532448%_))) (let () (declare (not safe)) - (_%g3236232385%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3236232385%_))))) + (_%g3242532448%_))))) (let () (declare (not safe)) - (_%g3236232385%_))))))) - (_%loop-list32196%_ - (lambda (_%rest32286%_ _%vars32288%_ _%K32289%_) - (let* ((_%__stx3848538486%_ _%rest32286%_) - (_%g3229232304%_ + (_%g3242532448%_))))))) + (_%loop-list32259%_ + (lambda (_%rest32349%_ _%vars32351%_ _%K32352%_) + (let* ((_%__stx3854838549%_ _%rest32349%_) + (_%g3235532367%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3848538486%_)))) - (let ((_%__kont3848838489%_ - (lambda (_%L32332%_ _%L32334%_) - (_%loop32193%_ - _%L32334%_ - _%vars32288%_ - (lambda (_%g3234632348%_) - (_%loop-list32196%_ - _%L32332%_ - _%g3234632348%_ - _%K32289%_))))) - (_%__kont3849038491%_ - (lambda () (_%K32289%_ _%vars32288%_)))) - (if (gx#stx-pair? _%__stx3848538486%_) - (let ((_%e3229632322%_ - (gx#syntax-e _%__stx3848538486%_))) - (let ((_%tl3229832329%_ + _%__stx3854838549%_)))) + (let ((_%__kont3855138552%_ + (lambda (_%L32395%_ _%L32397%_) + (_%loop32256%_ + _%L32397%_ + _%vars32351%_ + (lambda (_%g3240932411%_) + (_%loop-list32259%_ + _%L32395%_ + _%g3240932411%_ + _%K32352%_))))) + (_%__kont3855338554%_ + (lambda () (_%K32352%_ _%vars32351%_)))) + (if (gx#stx-pair? _%__stx3854838549%_) + (let ((_%e3235932385%_ + (gx#syntax-e _%__stx3854838549%_))) + (let ((_%tl3236132392%_ (let () (declare (not safe)) - (##cdr _%e3229632322%_))) - (_%hd3229732326%_ + (##cdr _%e3235932385%_))) + (_%hd3236032389%_ (let () (declare (not safe)) - (##car _%e3229632322%_)))) - (_%__kont3848838489%_ - _%tl3229832329%_ - _%hd3229732326%_))) - (_%__kont3849038491%_)))))) - (_%loop-class-list32197%_ - (lambda (_%rest32199%_ _%vars32201%_ _%K32202%_) - (let* ((_%__stx3850138502%_ _%rest32199%_) - (_%g3220532220%_ + (##car _%e3235932385%_)))) + (_%__kont3855138552%_ + _%tl3236132392%_ + _%hd3236032389%_))) + (_%__kont3855338554%_)))))) + (_%loop-class-list32260%_ + (lambda (_%rest32262%_ _%vars32264%_ _%K32265%_) + (let* ((_%__stx3856438565%_ _%rest32262%_) + (_%g3226832283%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3850138502%_)))) - (let ((_%__kont3850438505%_ - (lambda (_%L32258%_ _%L32260%_) - (_%loop32193%_ - _%L32260%_ - _%vars32201%_ - (lambda (_%g3227632278%_) - (_%loop-class-list32197%_ - _%L32258%_ - _%g3227632278%_ - _%K32202%_))))) - (_%__kont3850638507%_ - (lambda () (_%K32202%_ _%vars32201%_)))) - (if (gx#stx-pair? _%__stx3850138502%_) - (let ((_%e3220932238%_ - (gx#syntax-e _%__stx3850138502%_))) - (let ((_%tl3221132245%_ + _%__stx3856438565%_)))) + (let ((_%__kont3856738568%_ + (lambda (_%L32321%_ _%L32323%_) + (_%loop32256%_ + _%L32323%_ + _%vars32264%_ + (lambda (_%g3233932341%_) + (_%loop-class-list32260%_ + _%L32321%_ + _%g3233932341%_ + _%K32265%_))))) + (_%__kont3856938570%_ + (lambda () (_%K32265%_ _%vars32264%_)))) + (if (gx#stx-pair? _%__stx3856438565%_) + (let ((_%e3227232301%_ + (gx#syntax-e _%__stx3856438565%_))) + (let ((_%tl3227432308%_ (let () (declare (not safe)) - (##cdr _%e3220932238%_))) - (_%hd3221032242%_ + (##cdr _%e3227232301%_))) + (_%hd3227332305%_ (let () (declare (not safe)) - (##car _%e3220932238%_)))) - (if (gx#stx-pair? _%tl3221132245%_) - (let ((_%e3221232248%_ - (gx#syntax-e _%tl3221132245%_))) - (let ((_%tl3221432255%_ + (##car _%e3227232301%_)))) + (if (gx#stx-pair? _%tl3227432308%_) + (let ((_%e3227532311%_ + (gx#syntax-e _%tl3227432308%_))) + (let ((_%tl3227732318%_ (let () (declare (not safe)) - (##cdr _%e3221232248%_))) - (_%hd3221332252%_ + (##cdr _%e3227532311%_))) + (_%hd3227632315%_ (let () (declare (not safe)) - (##car _%e3221232248%_)))) - (_%__kont3850438505%_ - _%tl3221432255%_ - _%hd3221332252%_))) - (_%__kont3850638507%_)))) - (_%__kont3850638507%_))))))) - (_%loop32193%_ _%ptree32190%_ '() values)))) + (##car _%e3227532311%_)))) + (_%__kont3856738568%_ + _%tl3227732318%_ + _%hd3227632315%_))) + (_%__kont3856938570%_)))) + (_%__kont3856938570%_))))))) + (_%loop32256%_ _%ptree32253%_ '() values)))) (define |gerbil/core/match[1]#generate-match1| - (lambda (_%stx29135%_ _%tgt29137%_ _%ptree29138%_ _%K29139%_ _%E29140%_) - (letrec ((_%generate129142%_ - (lambda (_%tgt30389%_ _%ptree30391%_ _%K30392%_ _%E30393%_) - (let* ((_%g3039530403%_ - (lambda (_%g3039630399%_) + (lambda (_%stx29198%_ _%tgt29200%_ _%ptree29201%_ _%K29202%_ _%E29203%_) + (letrec ((_%generate129205%_ + (lambda (_%tgt30452%_ _%ptree30454%_ _%K30455%_ _%E30456%_) + (let* ((_%g3045830466%_ + (lambda (_%g3045930462%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3039630399%_))) - (_%g3039432186%_ - (lambda (_%g3039630407%_) - ((lambda (_%L30410%_) - (let* ((_%__stx3873738738%_ _%ptree30391%_) - (_%g3043730579%_ + _%g3045930462%_))) + (_%g3045732249%_ + (lambda (_%g3045930470%_) + ((lambda (_%L30473%_) + (let* ((_%__stx3880038801%_ _%ptree30454%_) + (_%g3050030642%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3873738738%_)))) - (let ((_%__kont3874038741%_ - (lambda (_%L31901%_ _%L31903%_) - (let* ((_%__stx3865538656%_ - _%L31901%_) - (_%g3192031955%_ + _%__stx3880038801%_)))) + (let ((_%__kont3880338804%_ + (lambda (_%L31964%_ _%L31966%_) + (let* ((_%__stx3871838719%_ + _%L31964%_) + (_%g3198332018%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3865538656%_)))) - (let ((_%__kont3865838659%_ + _%__stx3871838719%_)))) + (let ((_%__kont3872138722%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31903%_ (cons _%L30410%_ '()))) - (cons _%K30392%_ (cons _%E30393%_ '())))))) + (cons _%L31966%_ (cons _%L30473%_ '()))) + (cons _%K30455%_ (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3866038661%_ - (lambda (_%L32156%_) + (_%__kont3872338724%_ + (lambda (_%L32219%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '?) - (cons _%L31903%_ (cons _%L30410%_ '()))) - (cons (_%generate129142%_ - _%tgt30389%_ - _%L32156%_ - _%K30392%_ - _%E30393%_) - (cons _%E30393%_ '())))))) + (cons _%L31966%_ (cons _%L30473%_ '()))) + (cons (_%generate129205%_ + _%tgt30452%_ + _%L32219%_ + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3866238663%_ - (lambda (_%L32094%_) - (let* ((_%g3210832116%_ - (lambda (_%g3210932112%_) + (_%__kont3872538726%_ + (lambda (_%L32157%_) + (let* ((_%g3217132179%_ + (lambda (_%g3217232175%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3210932112%_))) - (_%g3210732135%_ - (lambda (_%g3210932120%_) - ((lambda (_%L32123%_) + _%g3217232175%_))) + (_%g3217032198%_ + (lambda (_%g3217232183%_) + ((lambda (_%L32186%_) (cons 'let - (cons (cons (cons _%L32123%_ - (cons (cons _%L31903%_ - (cons _%L30410%_ + (cons (cons (cons _%L32186%_ + (cons (cons _%L31966%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons 'if - (cons _%L32123%_ - (cons (_%generate129142%_ + (cons _%L32186%_ + (cons (_%generate129205%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L32123%_ - _%L32094%_ - _%K30392%_ - _%E30393%_) - (cons _%E30393%_ '())))) + _%L32186%_ + _%L32157%_ + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g3210932120%_)))) - (_%g3210732135%_ (gx#genident 'e))))) + _%g3217232183%_)))) + (_%g3217032198%_ (gx#genident 'e))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3866438665%_ - (lambda (_%L32010%_ - _%L32012%_) - (let* ((_%g3203232040%_ - (lambda (_%g3203332036%_) + (_%__kont3872738728%_ + (lambda (_%L32073%_ + _%L32075%_) + (let* ((_%g3209532103%_ + (lambda (_%g3209632099%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3203332036%_))) - (_%g3203132059%_ - (lambda (_%g3203332044%_) - ((lambda (_%L32047%_) + _%g3209632099%_))) + (_%g3209432122%_ + (lambda (_%g3209632107%_) + ((lambda (_%L32110%_) (cons 'if (cons (cons (gx#datum->syntax '#f '?) - (cons _%L31903%_ - (cons _%L30410%_ '()))) + (cons _%L31966%_ + (cons _%L30473%_ '()))) (cons (cons 'let - (cons (cons (cons _%L32047%_ + (cons (cons (cons _%L32110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L32012%_ (cons _%L30410%_ '())) + (cons (cons _%L32075%_ (cons _%L30473%_ '())) '())) '()) - (cons (_%generate129142%_ - _%L32047%_ - _%L32010%_ - _%K30392%_ - _%E30393%_) + (cons (_%generate129205%_ + _%L32110%_ + _%L32073%_ + _%K30455%_ + _%E30456%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30393%_ '()))))) - _%g3203332044%_)))) - (_%g3203132059%_ (gx#genident 'e)))))) + (cons _%E30456%_ '()))))) + _%g3209632107%_)))) + (_%g3209432122%_ (gx#genident 'e)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%g3191732167%_ + (let ((_%g3198032230%_ (lambda () (if (gx#stx-pair? - _%__stx3865538656%_) - (let ((_%e3192332146%_ + _%__stx3871838719%_) + (let ((_%e3198632209%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%__stx3865538656%_))) - (let ((_%tl3192532153%_ + (gx#syntax-e _%__stx3871838719%_))) + (let ((_%tl3198832216%_ (let () (declare (not safe)) - (##cdr _%e3192332146%_))) - (_%hd3192432150%_ + (##cdr _%e3198632209%_))) + (_%hd3198732213%_ (let () (declare (not safe)) - (##car _%e3192332146%_)))) - (if (gx#stx-null? _%tl3192532153%_) - (_%__kont3866038661%_ _%hd3192432150%_) - (if (gx#stx-datum? _%hd3192432150%_) - (let ((_%e3193032080%_ - (gx#stx-e _%hd3192432150%_))) - (if (equal? _%e3193032080%_ '=>:) - (if (gx#stx-pair? _%tl3192532153%_) - (let ((_%e3193132084%_ + (##car _%e3198632209%_)))) + (if (gx#stx-null? _%tl3198832216%_) + (_%__kont3872338724%_ _%hd3198732213%_) + (if (gx#stx-datum? _%hd3198732213%_) + (let ((_%e3199332143%_ + (gx#stx-e _%hd3198732213%_))) + (if (equal? _%e3199332143%_ '=>:) + (if (gx#stx-pair? _%tl3198832216%_) + (let ((_%e3199432147%_ (gx#syntax-e - _%tl3192532153%_))) - (let ((_%tl3193332091%_ + _%tl3198832216%_))) + (let ((_%tl3199632154%_ (let () (declare (not safe)) - (##cdr _%e3193132084%_))) - (_%hd3193232088%_ + (##cdr _%e3199432147%_))) + (_%hd3199532151%_ (let () (declare (not safe)) - (##car _%e3193132084%_)))) + (##car _%e3199432147%_)))) (if (gx#stx-null? - _%tl3193332091%_) - (_%__kont3866238663%_ - _%hd3193232088%_) + _%tl3199632154%_) + (_%__kont3872538726%_ + _%hd3199532151%_) (let () (declare (not safe)) - (_%g3192031955%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3192031955%_))) - (if (equal? _%e3193032080%_ '::) - (if (gx#stx-pair? _%tl3192532153%_) - (let ((_%e3194031976%_ + (_%g3198332018%_))) + (if (equal? _%e3199332143%_ '::) + (if (gx#stx-pair? _%tl3198832216%_) + (let ((_%e3200332039%_ (gx#syntax-e - _%tl3192532153%_))) - (let ((_%tl3194231983%_ + _%tl3198832216%_))) + (let ((_%tl3200532046%_ (let () (declare (not safe)) - (##cdr _%e3194031976%_))) - (_%hd3194131980%_ + (##cdr _%e3200332039%_))) + (_%hd3200432043%_ (let () (declare (not safe)) - (##car _%e3194031976%_)))) + (##car _%e3200332039%_)))) (if (gx#stx-pair? - _%tl3194231983%_) - (let ((_%e3194331986%_ + _%tl3200532046%_) + (let ((_%e3200632049%_ (gx#syntax-e - _%tl3194231983%_))) - (let ((_%tl3194531993%_ + _%tl3200532046%_))) + (let ((_%tl3200832056%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3194331986%_))) - (_%hd3194431990%_ - (let () (declare (not safe)) (##car _%e3194331986%_)))) - (if (gx#stx-datum? _%hd3194431990%_) - (let ((_%e3194631996%_ (gx#stx-e _%hd3194431990%_))) - (if (equal? _%e3194631996%_ '=>:) - (if (gx#stx-pair? _%tl3194531993%_) - (let ((_%e3194732000%_ - (gx#syntax-e _%tl3194531993%_))) - (let ((_%tl3194932007%_ + (##cdr _%e3200632049%_))) + (_%hd3200732053%_ + (let () (declare (not safe)) (##car _%e3200632049%_)))) + (if (gx#stx-datum? _%hd3200732053%_) + (let ((_%e3200932059%_ (gx#stx-e _%hd3200732053%_))) + (if (equal? _%e3200932059%_ '=>:) + (if (gx#stx-pair? _%tl3200832056%_) + (let ((_%e3201032063%_ + (gx#syntax-e _%tl3200832056%_))) + (let ((_%tl3201232070%_ (let () (declare (not safe)) - (##cdr _%e3194732000%_))) - (_%hd3194832004%_ + (##cdr _%e3201032063%_))) + (_%hd3201132067%_ (let () (declare (not safe)) - (##car _%e3194732000%_)))) - (if (gx#stx-null? _%tl3194932007%_) - (_%__kont3866438665%_ - _%hd3194832004%_ - _%hd3194131980%_) + (##car _%e3201032063%_)))) + (if (gx#stx-null? _%tl3201232070%_) + (_%__kont3872738728%_ + _%hd3201132067%_ + _%hd3200432043%_) (let () (declare (not safe)) - (_%g3192031955%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3192031955%_))) - (let () (declare (not safe)) (_%g3192031955%_)))) - (let () (declare (not safe)) (_%g3192031955%_))))) - (let () (declare (not safe)) (_%g3192031955%_))))) + (_%g3198332018%_))) + (let () (declare (not safe)) (_%g3198332018%_)))) + (let () (declare (not safe)) (_%g3198332018%_))))) + (let () (declare (not safe)) (_%g3198332018%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3192031955%_))) + (_%g3198332018%_))) (let () (declare (not safe)) - (_%g3192031955%_))))) + (_%g3198332018%_))))) (let () (declare (not safe)) - (_%g3192031955%_)))))) - (let () (declare (not safe)) (_%g3192031955%_)))))) + (_%g3198332018%_)))))) + (let () (declare (not safe)) (_%g3198332018%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%__stx3865538656%_) - (_%__kont3865838659%_) + _%__stx3871838719%_) + (_%__kont3872138722%_) (let () (declare (not safe)) - (_%g3191732167%_)))))))) - (_%__kont3874238743%_ - (lambda (_%L31798%_) - (let* ((_%__stx3863938640%_ - _%L31798%_) - (_%g3181131823%_ + (_%g3198032230%_)))))))) + (_%__kont3880538806%_ + (lambda (_%L31861%_) + (let* ((_%__stx3870238703%_ + _%L31861%_) + (_%g3187431886%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3863938640%_)))) - (let ((_%__kont3864238643%_ - (lambda (_%L31851%_ - _%L31853%_) - (_%generate129142%_ - _%tgt30389%_ - _%L31853%_ - (_%generate129142%_ - _%tgt30389%_ + _%__stx3870238703%_)))) + (let ((_%__kont3870538706%_ + (lambda (_%L31914%_ + _%L31916%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31916%_ + (_%generate129205%_ + _%tgt30452%_ (cons 'and: - _%L31851%_) - _%K30392%_ - _%E30393%_) - _%E30393%_))) - (_%__kont3864438645%_ - (lambda () _%K30392%_))) + _%L31914%_) + _%K30455%_ + _%E30456%_) + _%E30456%_))) + (_%__kont3870738708%_ + (lambda () _%K30455%_))) (if (gx#stx-pair? - _%__stx3863938640%_) - (let ((_%e3181531841%_ + _%__stx3870238703%_) + (let ((_%e3187831904%_ (gx#syntax-e - _%__stx3863938640%_))) - (let ((_%tl3181731848%_ + _%__stx3870238703%_))) + (let ((_%tl3188031911%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3181531841%_))) - (_%hd3181631845%_ - (let () (declare (not safe)) (##car _%e3181531841%_)))) - (_%__kont3864238643%_ _%tl3181731848%_ _%hd3181631845%_))) + (##cdr _%e3187831904%_))) + (_%hd3187931908%_ + (let () (declare (not safe)) (##car _%e3187831904%_)))) + (_%__kont3870538706%_ _%tl3188031911%_ _%hd3187931908%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3864438645%_)))))) - (_%__kont3874438745%_ - (lambda (_%L31705%_) - (let* ((_%__stx3862338624%_ - _%L31705%_) - (_%g3171831730%_ + (_%__kont3870738708%_)))))) + (_%__kont3880738808%_ + (lambda (_%L31768%_) + (let* ((_%__stx3868638687%_ + _%L31768%_) + (_%g3178131793%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3862338624%_)))) - (let ((_%__kont3862638627%_ - (lambda (_%L31758%_ - _%L31760%_) - (_%generate129142%_ - _%tgt30389%_ - _%L31760%_ - _%K30392%_ - (_%generate129142%_ - _%tgt30389%_ - (cons 'or: _%L31758%_) - _%K30392%_ - _%E30393%_)))) - (_%__kont3862838629%_ - (lambda () _%E30393%_))) + _%__stx3868638687%_)))) + (let ((_%__kont3868938690%_ + (lambda (_%L31821%_ + _%L31823%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31823%_ + _%K30455%_ + (_%generate129205%_ + _%tgt30452%_ + (cons 'or: _%L31821%_) + _%K30455%_ + _%E30456%_)))) + (_%__kont3869138692%_ + (lambda () _%E30456%_))) (if (gx#stx-pair? - _%__stx3862338624%_) - (let ((_%e3172231748%_ + _%__stx3868638687%_) + (let ((_%e3178531811%_ (gx#syntax-e - _%__stx3862338624%_))) - (let ((_%tl3172431755%_ + _%__stx3868638687%_))) + (let ((_%tl3178731818%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3172231748%_))) - (_%hd3172331752%_ - (let () (declare (not safe)) (##car _%e3172231748%_)))) - (_%__kont3862638627%_ _%tl3172431755%_ _%hd3172331752%_))) + (##cdr _%e3178531811%_))) + (_%hd3178631815%_ + (let () (declare (not safe)) (##car _%e3178531811%_)))) + (_%__kont3868938690%_ _%tl3178731818%_ _%hd3178631815%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3862838629%_)))))) - (_%__kont3874638747%_ - (lambda (_%L31670%_) - (_%generate129142%_ - _%tgt30389%_ - _%L31670%_ - _%E30393%_ - _%K30392%_))) - (_%__kont3874838749%_ - (lambda (_%L31544%_ _%L31546%_) - (let* ((_%g3156331578%_ - (lambda (_%g3156431574%_) + (_%__kont3869138692%_)))))) + (_%__kont3880938810%_ + (lambda (_%L31733%_) + (_%generate129205%_ + _%tgt30452%_ + _%L31733%_ + _%E30456%_ + _%K30455%_))) + (_%__kont3881138812%_ + (lambda (_%L31607%_ _%L31609%_) + (let* ((_%g3162631641%_ + (lambda (_%g3162731637%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3156431574%_))) - (_%g3156231635%_ - (lambda (_%g3156431582%_) + _%g3162731637%_))) + (_%g3162531698%_ + (lambda (_%g3162731645%_) (if (gx#stx-pair? - _%g3156431582%_) - (let ((_%e3156731585%_ + _%g3162731645%_) + (let ((_%e3163031648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g3156431582%_))) - (let ((_%hd3156831589%_ + (gx#syntax-e _%g3162731645%_))) + (let ((_%hd3163131652%_ (let () (declare (not safe)) - (##car _%e3156731585%_))) - (_%tl3156931592%_ + (##car _%e3163031648%_))) + (_%tl3163231655%_ (let () (declare (not safe)) - (##cdr _%e3156731585%_)))) - (if (gx#stx-pair? _%tl3156931592%_) - (let ((_%e3157031595%_ - (gx#syntax-e _%tl3156931592%_))) - (let ((_%hd3157131599%_ + (##cdr _%e3163031648%_)))) + (if (gx#stx-pair? _%tl3163231655%_) + (let ((_%e3163331658%_ + (gx#syntax-e _%tl3163231655%_))) + (let ((_%hd3163431662%_ (let () (declare (not safe)) - (##car _%e3157031595%_))) - (_%tl3157231602%_ + (##car _%e3163331658%_))) + (_%tl3163531665%_ (let () (declare (not safe)) - (##cdr _%e3157031595%_)))) - (if (gx#stx-null? _%tl3157231602%_) - ((lambda (_%L31605%_ _%L31607%_) + (##cdr _%e3163331658%_)))) + (if (gx#stx-null? _%tl3163531665%_) + ((lambda (_%L31668%_ _%L31670%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30410%_ '())) - (cons (let ((_%hd-pat31623%_ + (cons _%L30473%_ '())) + (cons (let ((_%hd-pat31686%_ (gx#stx-e - _%L31546%_)) - (_%tl-pat31625%_ + _%L31609%_)) + (_%tl-pat31688%_ (gx#stx-e - _%L31544%_))) - (if (and (equal? _%hd-pat31623%_ + _%L31607%_))) + (if (and (equal? _%hd-pat31686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '(any:)) - (equal? _%tl-pat31625%_ '(any:))) - _%K30392%_ - (if (equal? _%tl-pat31625%_ '(any:)) + (equal? _%tl-pat31688%_ '(any:))) + _%K30455%_ + (if (equal? _%tl-pat31688%_ '(any:)) (cons 'let - (cons (cons (cons _%L31607%_ + (cons (cons (cons _%L31670%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30410%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129142%_ - _%L31607%_ - _%L31546%_ - _%K30392%_ - _%E30393%_) + (cons (_%generate129205%_ + _%L31670%_ + _%L31609%_ + _%K30455%_ + _%E30456%_) '()))) - (if (equal? _%hd-pat31623%_ '(any:)) + (if (equal? _%hd-pat31686%_ '(any:)) (cons 'let - (cons (cons (cons _%L31605%_ + (cons (cons (cons _%L31668%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129142%_ - _%L31605%_ - _%L31544%_ - _%K30392%_ - _%E30393%_) + (cons (_%generate129205%_ + _%L31668%_ + _%L31607%_ + _%K30455%_ + _%E30456%_) '()))) (cons 'let - (cons (cons (cons _%L31607%_ + (cons (cons (cons _%L31670%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L31605%_ + (cons (cons _%L31668%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (_%generate129142%_ - _%L31607%_ - _%L31546%_ - (_%generate129142%_ - _%L31605%_ - _%L31544%_ - _%K30392%_ - _%E30393%_) - _%E30393%_) + (cons (_%generate129205%_ + _%L31670%_ + _%L31609%_ + (_%generate129205%_ + _%L31668%_ + _%L31607%_ + _%K30455%_ + _%E30456%_) + _%E30456%_) '()))))))) - (cons _%E30393%_ '()))))) + (cons _%E30456%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd3157131599%_ - _%hd3156831589%_) - (_%g3156331578%_ _%g3156431582%_)))) - (_%g3156331578%_ _%g3156431582%_)))) - (_%g3156331578%_ _%g3156431582%_))))) + _%hd3163431662%_ + _%hd3163131652%_) + (_%g3162631641%_ _%g3162731645%_)))) + (_%g3162631641%_ _%g3162731645%_)))) + (_%g3162631641%_ _%g3162731645%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3156231635%_ + (_%g3162531698%_ (list (gx#genident 'hd) (gx#genident 'tl)))))) - (_%__kont3875038751%_ + (_%__kont3881338814%_ (lambda () (cons 'if (cons (cons (gx#datum->syntax '#f 'null?) - (cons _%L30410%_ + (cons _%L30473%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%K30392%_ (cons _%E30393%_ '())))))) + (cons _%K30455%_ (cons _%E30456%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3875238753%_ - (lambda (_%L31460%_ _%L31462%_) - (_%generate-splice29144%_ - _%tgt30389%_ - _%L31462%_ - _%L31460%_ - _%K30392%_ - _%E30393%_))) - (_%__kont3875438755%_ - (lambda (_%L31374%_) - (let* ((_%g3138831396%_ - (lambda (_%g3138931392%_) + (_%__kont3881538816%_ + (lambda (_%L31523%_ _%L31525%_) + (_%generate-splice29207%_ + _%tgt30452%_ + _%L31525%_ + _%L31523%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3881738818%_ + (lambda (_%L31437%_) + (let* ((_%g3145131459%_ + (lambda (_%g3145231455%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3138931392%_))) - (_%g3138731415%_ - (lambda (_%g3138931400%_) - ((lambda (_%L31403%_) + _%g3145231455%_))) + (_%g3145031478%_ + (lambda (_%g3145231463%_) + ((lambda (_%L31466%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'box?) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) (cons (cons 'let - (cons (cons (cons _%L31403%_ + (cons (cons (cons _%L31466%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##unbox) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129142%_ - _%L31403%_ - _%L31374%_ - _%K30392%_ - _%E30393%_) + (cons (_%generate129205%_ + _%L31466%_ + _%L31437%_ + _%K30455%_ + _%E30456%_) '()))) - (cons _%E30393%_ '()))))) - _%g3138931400%_)))) + (cons _%E30456%_ '()))))) + _%g3145231463%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3138731415%_ + (_%g3145031478%_ (gx#genident 'e))))) - (_%__kont3875638757%_ - (lambda (_%L31179%_) - (let* ((_%__stx3857338574%_ - _%L31179%_) - (_%g3119431217%_ + (_%__kont3881938820%_ + (lambda (_%L31242%_) + (let* ((_%__stx3863638637%_ + _%L31242%_) + (_%g3125731280%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3857338574%_)))) - (let ((_%__kont3857638577%_ - (lambda (_%L31294%_) - (let* ((_%g3130831316%_ - (lambda (_%g3130931312%_) + _%__stx3863638637%_)))) + (let ((_%__kont3863938640%_ + (lambda (_%L31357%_) + (let* ((_%g3137131379%_ + (lambda (_%g3137231375%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3130931312%_))) - (_%g3130731335%_ - (lambda (_%g3130931320%_) - ((lambda (_%L31323%_) + _%g3137231375%_))) + (_%g3137031398%_ + (lambda (_%g3137231383%_) + ((lambda (_%L31386%_) (cons 'if (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f 'values-count) - (cons _%L30410%_ + (cons _%L30473%_ '())) - (cons _%L31323%_ '()))) - (cons (_%generate-simple-vector29145%_ - _%tgt30389%_ - _%L31294%_ + (cons _%L31386%_ '()))) + (cons (_%generate-simple-vector29208%_ + _%tgt30452%_ + _%L31357%_ '0 - _%K30392%_ - _%E30393%_) - (cons _%E30393%_ '()))))) - _%g3130931320%_)))) - (_%g3130731335%_ (gx#stx-length _%L31294%_))))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '()))))) + _%g3137231383%_)))) + (_%g3137031398%_ (gx#stx-length _%L31357%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3857838579%_ - (lambda (_%L31248%_) - (_%generate-list-vector29146%_ - _%tgt30389%_ - _%L31248%_ + (_%__kont3864138642%_ + (lambda (_%L31311%_) + (_%generate-list-vector29209%_ + _%tgt30452%_ + _%L31311%_ 'values->list - _%K30392%_ - _%E30393%_)))) + _%K30455%_ + _%E30456%_)))) (if (gx#stx-pair? - _%__stx3857338574%_) - (let ((_%e3119731270%_ + _%__stx3863638637%_) + (let ((_%e3126031333%_ (gx#syntax-e - _%__stx3857338574%_))) - (let ((_%tl3119931277%_ + _%__stx3863638637%_))) + (let ((_%tl3126231340%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3119731270%_))) - (_%hd3119831274%_ - (let () (declare (not safe)) (##car _%e3119731270%_)))) - (if (gx#stx-datum? _%hd3119831274%_) - (let ((_%e3120031280%_ (gx#stx-e _%hd3119831274%_))) - (if (equal? _%e3120031280%_ 'simple:) - (if (gx#stx-pair? _%tl3119931277%_) - (let ((_%e3120131284%_ - (gx#syntax-e _%tl3119931277%_))) - (let ((_%tl3120331291%_ + (##cdr _%e3126031333%_))) + (_%hd3126131337%_ + (let () (declare (not safe)) (##car _%e3126031333%_)))) + (if (gx#stx-datum? _%hd3126131337%_) + (let ((_%e3126331343%_ (gx#stx-e _%hd3126131337%_))) + (if (equal? _%e3126331343%_ 'simple:) + (if (gx#stx-pair? _%tl3126231340%_) + (let ((_%e3126431347%_ + (gx#syntax-e _%tl3126231340%_))) + (let ((_%tl3126631354%_ (let () (declare (not safe)) - (##cdr _%e3120131284%_))) - (_%hd3120231288%_ + (##cdr _%e3126431347%_))) + (_%hd3126531351%_ (let () (declare (not safe)) - (##car _%e3120131284%_)))) - (if (gx#stx-null? _%tl3120331291%_) - (_%__kont3857638577%_ _%hd3120231288%_) + (##car _%e3126431347%_)))) + (if (gx#stx-null? _%tl3126631354%_) + (_%__kont3863938640%_ _%hd3126531351%_) (let () (declare (not safe)) - (_%g3119431217%_))))) - (let () (declare (not safe)) (_%g3119431217%_))) - (if (equal? _%e3120031280%_ 'list:) - (if (gx#stx-pair? _%tl3119931277%_) - (let ((_%e3120931238%_ - (gx#syntax-e _%tl3119931277%_))) - (let ((_%tl3121131245%_ + (_%g3125731280%_))))) + (let () (declare (not safe)) (_%g3125731280%_))) + (if (equal? _%e3126331343%_ 'list:) + (if (gx#stx-pair? _%tl3126231340%_) + (let ((_%e3127231301%_ + (gx#syntax-e _%tl3126231340%_))) + (let ((_%tl3127431308%_ (let () (declare (not safe)) - (##cdr _%e3120931238%_))) - (_%hd3121031242%_ + (##cdr _%e3127231301%_))) + (_%hd3127331305%_ (let () (declare (not safe)) - (##car _%e3120931238%_)))) - (if (gx#stx-null? _%tl3121131245%_) - (_%__kont3857838579%_ - _%hd3121031242%_) + (##car _%e3127231301%_)))) + (if (gx#stx-null? _%tl3127431308%_) + (_%__kont3864138642%_ + _%hd3127331305%_) (let () (declare (not safe)) - (_%g3119431217%_))))) + (_%g3125731280%_))))) (let () (declare (not safe)) - (_%g3119431217%_))) + (_%g3125731280%_))) (let () (declare (not safe)) - (_%g3119431217%_))))) - (let () (declare (not safe)) (_%g3119431217%_))))) + (_%g3125731280%_))))) + (let () (declare (not safe)) (_%g3125731280%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3119431217%_))))))) - (_%__kont3875838759%_ - (lambda (_%L30984%_) - (let* ((_%__stx3852338524%_ - _%L30984%_) - (_%g3099931022%_ + (_%g3125731280%_))))))) + (_%__kont3882138822%_ + (lambda (_%L31047%_) + (let* ((_%__stx3858638587%_ + _%L31047%_) + (_%g3106231085%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3852338524%_)))) - (let ((_%__kont3852638527%_ - (lambda (_%L31099%_) - (let* ((_%g3111331121%_ - (lambda (_%g3111431117%_) + _%__stx3858638587%_)))) + (let ((_%__kont3858938590%_ + (lambda (_%L31162%_) + (let* ((_%g3117631184%_ + (lambda (_%g3117731180%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3111431117%_))) - (_%g3111231140%_ - (lambda (_%g3111431125%_) - ((lambda (_%L31128%_) + _%g3117731180%_))) + (_%g3117531203%_ + (lambda (_%g3117731188%_) + ((lambda (_%L31191%_) (cons 'if (cons (cons (gx#datum->syntax '#f 'vector?) - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) (cons (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-length) - (cons _%L30410%_ '())) - (cons _%L31128%_ '()))) - (cons (_%generate-simple-vector29145%_ - _%tgt30389%_ - _%L31099%_ + (cons _%L30473%_ '())) + (cons _%L31191%_ '()))) + (cons (_%generate-simple-vector29208%_ + _%tgt30452%_ + _%L31162%_ '0 - _%K30392%_ - _%E30393%_) - (cons _%E30393%_ '())))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%E30393%_ '()))))) - _%g3111431125%_)))) - (_%g3111231140%_ (gx#stx-length _%L31099%_))))) + (cons _%E30456%_ '()))))) + _%g3117731188%_)))) + (_%g3117531203%_ (gx#stx-length _%L31162%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3852838529%_ - (lambda (_%L31053%_) + (_%__kont3859138592%_ + (lambda (_%L31116%_) (cons 'if (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector?) - (cons _%L30410%_ '())) - (cons (_%generate-list-vector29146%_ - _%tgt30389%_ - _%L31053%_ + (cons _%L30473%_ '())) + (cons (_%generate-list-vector29209%_ + _%tgt30452%_ + _%L31116%_ 'vector->list - _%K30392%_ - _%E30393%_) - (cons _%E30393%_ '()))))))) + _%K30455%_ + _%E30456%_) + (cons _%E30456%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx3852338524%_) - (let ((_%e3100231075%_ + _%__stx3858638587%_) + (let ((_%e3106531138%_ (gx#syntax-e - _%__stx3852338524%_))) - (let ((_%tl3100431082%_ + _%__stx3858638587%_))) + (let ((_%tl3106731145%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3100231075%_))) - (_%hd3100331079%_ - (let () (declare (not safe)) (##car _%e3100231075%_)))) - (if (gx#stx-datum? _%hd3100331079%_) - (let ((_%e3100531085%_ (gx#stx-e _%hd3100331079%_))) - (if (equal? _%e3100531085%_ 'simple:) - (if (gx#stx-pair? _%tl3100431082%_) - (let ((_%e3100631089%_ - (gx#syntax-e _%tl3100431082%_))) - (let ((_%tl3100831096%_ + (##cdr _%e3106531138%_))) + (_%hd3106631142%_ + (let () (declare (not safe)) (##car _%e3106531138%_)))) + (if (gx#stx-datum? _%hd3106631142%_) + (let ((_%e3106831148%_ (gx#stx-e _%hd3106631142%_))) + (if (equal? _%e3106831148%_ 'simple:) + (if (gx#stx-pair? _%tl3106731145%_) + (let ((_%e3106931152%_ + (gx#syntax-e _%tl3106731145%_))) + (let ((_%tl3107131159%_ (let () (declare (not safe)) - (##cdr _%e3100631089%_))) - (_%hd3100731093%_ + (##cdr _%e3106931152%_))) + (_%hd3107031156%_ (let () (declare (not safe)) - (##car _%e3100631089%_)))) - (if (gx#stx-null? _%tl3100831096%_) - (_%__kont3852638527%_ _%hd3100731093%_) + (##car _%e3106931152%_)))) + (if (gx#stx-null? _%tl3107131159%_) + (_%__kont3858938590%_ _%hd3107031156%_) (let () (declare (not safe)) - (_%g3099931022%_))))) - (let () (declare (not safe)) (_%g3099931022%_))) - (if (equal? _%e3100531085%_ 'list:) - (if (gx#stx-pair? _%tl3100431082%_) - (let ((_%e3101431043%_ - (gx#syntax-e _%tl3100431082%_))) - (let ((_%tl3101631050%_ + (_%g3106231085%_))))) + (let () (declare (not safe)) (_%g3106231085%_))) + (if (equal? _%e3106831148%_ 'list:) + (if (gx#stx-pair? _%tl3106731145%_) + (let ((_%e3107731106%_ + (gx#syntax-e _%tl3106731145%_))) + (let ((_%tl3107931113%_ (let () (declare (not safe)) - (##cdr _%e3101431043%_))) - (_%hd3101531047%_ + (##cdr _%e3107731106%_))) + (_%hd3107831110%_ (let () (declare (not safe)) - (##car _%e3101431043%_)))) - (if (gx#stx-null? _%tl3101631050%_) - (_%__kont3852838529%_ - _%hd3101531047%_) + (##car _%e3107731106%_)))) + (if (gx#stx-null? _%tl3107931113%_) + (_%__kont3859138592%_ + _%hd3107831110%_) (let () (declare (not safe)) - (_%g3099931022%_))))) + (_%g3106231085%_))))) (let () (declare (not safe)) - (_%g3099931022%_))) + (_%g3106231085%_))) (let () (declare (not safe)) - (_%g3099931022%_))))) - (let () (declare (not safe)) (_%g3099931022%_))))) + (_%g3106231085%_))))) + (let () (declare (not safe)) (_%g3106231085%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3099931022%_))))))) - (_%__kont3876038761%_ - (lambda (_%L30935%_ _%L30937%_) - (_%generate-struct29147%_ - (gx#stx-e _%L30937%_) - _%tgt30389%_ - _%L30935%_ - _%K30392%_ - _%E30393%_))) - (_%__kont3876238763%_ - (lambda (_%L30876%_ _%L30878%_) - (_%generate-class29150%_ - (gx#stx-e _%L30878%_) - _%tgt30389%_ - _%L30876%_ - _%K30392%_ - _%E30393%_))) - (_%__kont3876438765%_ - (lambda (_%L30773%_) - (let* ((_%g3078730795%_ - (lambda (_%g3078830791%_) + (_%g3106231085%_))))))) + (_%__kont3882338824%_ + (lambda (_%L30998%_ _%L31000%_) + (_%generate-struct29210%_ + (gx#stx-e _%L31000%_) + _%tgt30452%_ + _%L30998%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3882538826%_ + (lambda (_%L30939%_ _%L30941%_) + (_%generate-class29213%_ + (gx#stx-e _%L30941%_) + _%tgt30452%_ + _%L30939%_ + _%K30455%_ + _%E30456%_))) + (_%__kont3882738828%_ + (lambda (_%L30836%_) + (let* ((_%g3085030858%_ + (lambda (_%g3085130854%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3078830791%_))) - (_%g3078630814%_ - (lambda (_%g3078830799%_) - ((lambda (_%L30802%_) + _%g3085130854%_))) + (_%g3084930877%_ + (lambda (_%g3085130862%_) + ((lambda (_%L30865%_) (cons 'if - (cons (cons _%L30802%_ + (cons (cons _%L30865%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30410%_ + (cons _%L30473%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L30773%_ '())) + (cons _%L30836%_ '())) '()))) - (cons _%K30392%_ (cons _%E30393%_ '()))))) - _%g3078830799%_)))) + (cons _%K30455%_ (cons _%E30456%_ '()))))) + _%g3085130862%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3078630814%_ - (let ((_%e30818%_ - (gx#stx-e _%L30773%_))) - (if (or (symbol? _%e30818%_) - (keyword? _%e30818%_) + (_%g3084930877%_ + (let ((_%e30881%_ + (gx#stx-e _%L30836%_))) + (if (or (symbol? _%e30881%_) + (keyword? _%e30881%_) (immediate? - _%e30818%_)) + _%e30881%_)) '##eq? - (if (number? _%e30818%_) + (if (number? _%e30881%_) 'eqv? 'equal?))))))) - (_%__kont3876638767%_ - (lambda (_%L30693%_ _%L30695%_) - (let* ((_%g3071130719%_ - (lambda (_%g3071230715%_) + (_%__kont3882938830%_ + (lambda (_%L30756%_ _%L30758%_) + (let* ((_%g3077430782%_ + (lambda (_%g3077530778%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3071230715%_))) - (_%g3071030738%_ - (lambda (_%g3071230723%_) - ((lambda (_%L30726%_) + _%g3077530778%_))) + (_%g3077330801%_ + (lambda (_%g3077530786%_) + ((lambda (_%L30789%_) (cons 'let - (cons (cons (cons _%L30726%_ + (cons (cons (cons _%L30789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%L30695%_ - (cons _%L30410%_ '())) + (cons (cons _%L30758%_ + (cons _%L30473%_ '())) '())) '()) - (cons (_%generate129142%_ - _%L30726%_ - _%L30693%_ - _%K30392%_ - _%E30393%_) + (cons (_%generate129205%_ + _%L30789%_ + _%L30756%_ + _%K30455%_ + _%E30456%_) '())))) - _%g3071230723%_)))) + _%g3077530786%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3071030738%_ + (_%g3077330801%_ (gx#genident 'e))))) - (_%__kont3876838769%_ - (lambda (_%L30635%_) + (_%__kont3883138832%_ + (lambda (_%L30698%_) (cons 'let - (cons (cons (cons _%L30635%_ + (cons (cons (cons _%L30698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L30410%_ '())) + (cons _%L30473%_ '())) '()) - (cons _%K30392%_ '()))))) + (cons _%K30455%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont3877038771%_ - (lambda () _%K30392%_))) - (if (gx#stx-pair? _%__stx3873738738%_) - (let ((_%e3044131877%_ + (_%__kont3883338834%_ + (lambda () _%K30455%_))) + (if (gx#stx-pair? _%__stx3880038801%_) + (let ((_%e3050431940%_ (gx#syntax-e - _%__stx3873738738%_))) - (let ((_%tl3044331884%_ + _%__stx3880038801%_))) + (let ((_%tl3050631947%_ (let () (declare (not safe)) - (##cdr _%e3044131877%_))) - (_%hd3044231881%_ + (##cdr _%e3050431940%_))) + (_%hd3050531944%_ (let () (declare (not safe)) - (##car _%e3044131877%_)))) + (##car _%e3050431940%_)))) (if (gx#stx-datum? - _%hd3044231881%_) - (let ((_%e3044431887%_ + _%hd3050531944%_) + (let ((_%e3050731950%_ (gx#stx-e - _%hd3044231881%_))) - (if (equal? _%e3044431887%_ + _%hd3050531944%_))) + (if (equal? _%e3050731950%_ '?:) (if (gx#stx-pair? - _%tl3044331884%_) - (let ((_%e3044531891%_ + _%tl3050631947%_) + (let ((_%e3050831954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3044731898%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3051031961%_ (let () (declare (not safe)) - (##cdr _%e3044531891%_))) - (_%hd3044631895%_ + (##cdr _%e3050831954%_))) + (_%hd3050931958%_ (let () (declare (not safe)) - (##car _%e3044531891%_)))) - (_%__kont3874038741%_ - _%tl3044731898%_ - _%hd3044631895%_))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'and:) - (_%__kont3874238743%_ _%tl3044331884%_) - (if (equal? _%e3044431887%_ 'or:) - (_%__kont3874438745%_ _%tl3044331884%_) - (if (equal? _%e3044431887%_ 'not:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3046331660%_ - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3046531667%_ + (##car _%e3050831954%_)))) + (_%__kont3880338804%_ + _%tl3051031961%_ + _%hd3050931958%_))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'and:) + (_%__kont3880538806%_ _%tl3050631947%_) + (if (equal? _%e3050731950%_ 'or:) + (_%__kont3880738808%_ _%tl3050631947%_) + (if (equal? _%e3050731950%_ 'not:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3052631723%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3052831730%_ (let () (declare (not safe)) - (##cdr _%e3046331660%_))) - (_%hd3046431664%_ + (##cdr _%e3052631723%_))) + (_%hd3052731727%_ (let () (declare (not safe)) - (##car _%e3046331660%_)))) - (if (gx#stx-null? _%tl3046531667%_) - (_%__kont3874638747%_ _%hd3046431664%_) + (##car _%e3052631723%_)))) + (if (gx#stx-null? _%tl3052831730%_) + (_%__kont3880938810%_ _%hd3052731727%_) (let () (declare (not safe)) - (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'cons:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3047231524%_ - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3047431531%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'cons:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3053531587%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3053731594%_ (let () (declare (not safe)) - (##cdr _%e3047231524%_))) - (_%hd3047331528%_ + (##cdr _%e3053531587%_))) + (_%hd3053631591%_ (let () (declare (not safe)) - (##car _%e3047231524%_)))) - (if (gx#stx-pair? _%tl3047431531%_) - (let ((_%e3047531534%_ + (##car _%e3053531587%_)))) + (if (gx#stx-pair? _%tl3053731594%_) + (let ((_%e3053831597%_ (gx#syntax-e - _%tl3047431531%_))) - (let ((_%tl3047731541%_ + _%tl3053731594%_))) + (let ((_%tl3054031604%_ (let () (declare (not safe)) - (##cdr _%e3047531534%_))) - (_%hd3047631538%_ + (##cdr _%e3053831597%_))) + (_%hd3053931601%_ (let () (declare (not safe)) - (##car _%e3047531534%_)))) + (##car _%e3053831597%_)))) (if (gx#stx-null? - _%tl3047731541%_) - (_%__kont3874838749%_ - _%hd3047631538%_ - _%hd3047331528%_) + _%tl3054031604%_) + (_%__kont3881138812%_ + _%hd3053931601%_ + _%hd3053631591%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'null:) - (if (gx#stx-null? _%tl3044331884%_) - (_%__kont3875038751%_) + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'null:) + (if (gx#stx-null? _%tl3050631947%_) + (_%__kont3881338814%_) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'splice:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3048831440%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'splice:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3055131503%_ (gx#syntax-e - _%tl3044331884%_))) - (let ((_%tl3049031447%_ + _%tl3050631947%_))) + (let ((_%tl3055331510%_ (let () (declare (not safe)) - (##cdr _%e3048831440%_))) - (_%hd3048931444%_ + (##cdr _%e3055131503%_))) + (_%hd3055231507%_ (let () (declare (not safe)) - (##car _%e3048831440%_)))) + (##car _%e3055131503%_)))) (if (gx#stx-pair? - _%tl3049031447%_) - (let ((_%e3049131450%_ + _%tl3055331510%_) + (let ((_%e3055431513%_ (gx#syntax-e - _%tl3049031447%_))) - (let ((_%tl3049331457%_ + _%tl3055331510%_))) + (let ((_%tl3055631520%_ (let () (declare (not safe)) - (##cdr _%e3049131450%_))) - (_%hd3049231454%_ + (##cdr _%e3055431513%_))) + (_%hd3055531517%_ (let () (declare (not safe)) - (##car _%e3049131450%_)))) + (##car _%e3055431513%_)))) (if (gx#stx-null? - _%tl3049331457%_) - (_%__kont3875238753%_ - _%hd3049231454%_ - _%hd3048931444%_) + _%tl3055631520%_) + (_%__kont3881538816%_ + _%hd3055531517%_ + _%hd3055231507%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'box:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3049931364%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'box:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3056231427%_ (gx#syntax-e - _%tl3044331884%_))) - (let ((_%tl3050131371%_ + _%tl3050631947%_))) + (let ((_%tl3056431434%_ (let () (declare (not safe)) - (##cdr _%e3049931364%_))) - (_%hd3050031368%_ + (##cdr _%e3056231427%_))) + (_%hd3056331431%_ (let () (declare (not safe)) - (##car _%e3049931364%_)))) + (##car _%e3056231427%_)))) (if (gx#stx-null? - _%tl3050131371%_) - (_%__kont3875438755%_ - _%hd3050031368%_) + _%tl3056431434%_) + (_%__kont3881738818%_ + _%hd3056331431%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'values:) (if (gx#stx-pair? - _%tl3044331884%_) - (let ((_%e3050731169%_ + _%tl3050631947%_) + (let ((_%e3057031232%_ (gx#syntax-e - _%tl3044331884%_))) - (let ((_%tl3050931176%_ + _%tl3050631947%_))) + (let ((_%tl3057231239%_ (let () (declare (not safe)) - (##cdr _%e3050731169%_))) - (_%hd3050831173%_ + (##cdr _%e3057031232%_))) + (_%hd3057131236%_ (let () (declare (not safe)) - (##car _%e3050731169%_)))) + (##car _%e3057031232%_)))) (if (gx#stx-null? - _%tl3050931176%_) - (_%__kont3875638757%_ - _%hd3050831173%_) + _%tl3057231239%_) + (_%__kont3881938820%_ + _%hd3057131236%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'vector:) (if (gx#stx-pair? - _%tl3044331884%_) - (let ((_%e3051530974%_ + _%tl3050631947%_) + (let ((_%e3057831037%_ (gx#syntax-e - _%tl3044331884%_))) - (let ((_%tl3051730981%_ + _%tl3050631947%_))) + (let ((_%tl3058031044%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3051530974%_))) - (_%hd3051630978%_ - (let () (declare (not safe)) (##car _%e3051530974%_)))) - (if (gx#stx-null? _%tl3051730981%_) - (_%__kont3875838759%_ _%hd3051630978%_) - (let () (declare (not safe)) (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) + (##cdr _%e3057831037%_))) + (_%hd3057931041%_ + (let () (declare (not safe)) (##car _%e3057831037%_)))) + (if (gx#stx-null? _%tl3058031044%_) + (_%__kont3882138822%_ _%hd3057931041%_) + (let () (declare (not safe)) (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (equal? _%e3044431887%_ + (if (equal? _%e3050731950%_ 'struct:) (if (gx#stx-pair? - _%tl3044331884%_) - (let ((_%e3052430915%_ + _%tl3050631947%_) + (let ((_%e3058730978%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3052630922%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3058930985%_ (let () (declare (not safe)) - (##cdr _%e3052430915%_))) - (_%hd3052530919%_ + (##cdr _%e3058730978%_))) + (_%hd3058830982%_ (let () (declare (not safe)) - (##car _%e3052430915%_)))) - (if (gx#stx-pair? _%tl3052630922%_) - (let ((_%e3052730925%_ - (gx#syntax-e _%tl3052630922%_))) - (let ((_%tl3052930932%_ + (##car _%e3058730978%_)))) + (if (gx#stx-pair? _%tl3058930985%_) + (let ((_%e3059030988%_ + (gx#syntax-e _%tl3058930985%_))) + (let ((_%tl3059230995%_ (let () (declare (not safe)) - (##cdr _%e3052730925%_))) - (_%hd3052830929%_ + (##cdr _%e3059030988%_))) + (_%hd3059130992%_ (let () (declare (not safe)) - (##car _%e3052730925%_)))) - (if (gx#stx-null? _%tl3052930932%_) - (_%__kont3876038761%_ - _%hd3052830929%_ - _%hd3052530919%_) + (##car _%e3059030988%_)))) + (if (gx#stx-null? _%tl3059230995%_) + (_%__kont3882338824%_ + _%hd3059130992%_ + _%hd3058830982%_) (let () (declare (not safe)) - (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'class:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3053630856%_ (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3053830863%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'class:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3059930919%_ (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3060130926%_ (let () (declare (not safe)) - (##cdr _%e3053630856%_))) - (_%hd3053730860%_ + (##cdr _%e3059930919%_))) + (_%hd3060030923%_ (let () (declare (not safe)) - (##car _%e3053630856%_)))) - (if (gx#stx-pair? _%tl3053830863%_) - (let ((_%e3053930866%_ - (gx#syntax-e _%tl3053830863%_))) - (let ((_%tl3054130873%_ + (##car _%e3059930919%_)))) + (if (gx#stx-pair? _%tl3060130926%_) + (let ((_%e3060230929%_ + (gx#syntax-e _%tl3060130926%_))) + (let ((_%tl3060430936%_ (let () (declare (not safe)) - (##cdr _%e3053930866%_))) - (_%hd3054030870%_ + (##cdr _%e3060230929%_))) + (_%hd3060330933%_ (let () (declare (not safe)) - (##car _%e3053930866%_)))) - (if (gx#stx-null? _%tl3054130873%_) - (_%__kont3876238763%_ - _%hd3054030870%_ - _%hd3053730860%_) + (##car _%e3060230929%_)))) + (if (gx#stx-null? _%tl3060430936%_) + (_%__kont3882538826%_ + _%hd3060330933%_ + _%hd3060030923%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'datum:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3054730763%_ - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3054930770%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'datum:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3061030826%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3061230833%_ (let () (declare (not safe)) - (##cdr _%e3054730763%_))) - (_%hd3054830767%_ + (##cdr _%e3061030826%_))) + (_%hd3061130830%_ (let () (declare (not safe)) - (##car _%e3054730763%_)))) - (if (gx#stx-null? _%tl3054930770%_) - (_%__kont3876438765%_ _%hd3054830767%_) + (##car _%e3061030826%_)))) + (if (gx#stx-null? _%tl3061230833%_) + (_%__kont3882738828%_ _%hd3061130830%_) (let () (declare (not safe)) - (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'apply:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3055630673%_ - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3055830680%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'apply:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3061930736%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3062130743%_ (let () (declare (not safe)) - (##cdr _%e3055630673%_))) - (_%hd3055730677%_ + (##cdr _%e3061930736%_))) + (_%hd3062030740%_ (let () (declare (not safe)) - (##car _%e3055630673%_)))) - (if (gx#stx-pair? _%tl3055830680%_) - (let ((_%e3055930683%_ - (gx#syntax-e _%tl3055830680%_))) - (let ((_%tl3056130690%_ + (##car _%e3061930736%_)))) + (if (gx#stx-pair? _%tl3062130743%_) + (let ((_%e3062230746%_ + (gx#syntax-e _%tl3062130743%_))) + (let ((_%tl3062430753%_ (let () (declare (not safe)) - (##cdr _%e3055930683%_))) - (_%hd3056030687%_ + (##cdr _%e3062230746%_))) + (_%hd3062330750%_ (let () (declare (not safe)) - (##car _%e3055930683%_)))) - (if (gx#stx-null? _%tl3056130690%_) - (_%__kont3876638767%_ - _%hd3056030687%_ - _%hd3055730677%_) + (##car _%e3062230746%_)))) + (if (gx#stx-null? _%tl3062430753%_) + (_%__kont3882938830%_ + _%hd3062330750%_ + _%hd3062030740%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))))) - (let () (declare (not safe)) (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'var:) - (if (gx#stx-pair? _%tl3044331884%_) - (let ((_%e3056730625%_ - (gx#syntax-e _%tl3044331884%_))) - (let ((_%tl3056930632%_ + (_%g3050030642%_))))) + (let () (declare (not safe)) (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'var:) + (if (gx#stx-pair? _%tl3050631947%_) + (let ((_%e3063030688%_ + (gx#syntax-e _%tl3050631947%_))) + (let ((_%tl3063230695%_ (let () (declare (not safe)) - (##cdr _%e3056730625%_))) - (_%hd3056830629%_ + (##cdr _%e3063030688%_))) + (_%hd3063130692%_ (let () (declare (not safe)) - (##car _%e3056730625%_)))) - (if (gx#stx-null? _%tl3056930632%_) - (_%__kont3876838769%_ - _%hd3056830629%_) + (##car _%e3063030688%_)))) + (if (gx#stx-null? _%tl3063230695%_) + (_%__kont3883138832%_ + _%hd3063130692%_) (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_))) - (if (equal? _%e3044431887%_ 'any:) - (if (gx#stx-null? _%tl3044331884%_) - (_%__kont3877038771%_) + (_%g3050030642%_))) + (if (equal? _%e3050731950%_ 'any:) + (if (gx#stx-null? _%tl3050631947%_) + (_%__kont3883338834%_) (let () (declare (not safe)) - (_%g3043730579%_))) + (_%g3050030642%_))) (let () (declare (not safe)) - (_%g3043730579%_))))))))))))))))))) + (_%g3050030642%_))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3043730579%_))))) + (_%g3050030642%_))))) (let () (declare (not safe)) - (_%g3043730579%_)))))) - _%g3039630407%_)))) - (_%g3039432186%_ _%tgt30389%_)))) - (_%generate-splice29144%_ - (lambda (_%tgt29761%_ - _%hd29763%_ - _%rest29764%_ - _%K29765%_ - _%E29766%_) - (let* ((_%g2976829785%_ - (lambda (_%g2976929781%_) + (_%g3050030642%_)))))) + _%g3045930470%_)))) + (_%g3045732249%_ _%tgt30452%_)))) + (_%generate-splice29207%_ + (lambda (_%tgt29824%_ + _%hd29826%_ + _%rest29827%_ + _%K29828%_ + _%E29829%_) + (let* ((_%g2983129848%_ + (lambda (_%g2983229844%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2976929781%_))) - (_%g2976730385%_ - (lambda (_%g2976929789%_) - (if (gx#stx-pair/null? _%g2976929789%_) - (let ((_g39892_ + _%g2983229844%_))) + (_%g2983030448%_ + (lambda (_%g2983229852%_) + (if (gx#stx-pair/null? _%g2983229852%_) + (let ((_g39955_ (gx#syntax-split-splice - _%g2976929789%_ + _%g2983229852%_ '0))) (begin - (let ((_g39893_ + (let ((_g39956_ (let () (declare (not safe)) - (if (##values? _g39892_) - (##vector-length _g39892_) + (if (##values? _g39955_) + (##values-length _g39955_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39893_ 2))) + (##fx= _g39956_ 2))) (error "Context expects 2 values" - _g39893_))) - (let ((_%target2977129792%_ + _g39956_))) + (let ((_%target2983429855%_ (let () (declare (not safe)) - (##vector-ref _g39892_ 0))) - (_%tl2977329795%_ + (##values-ref _g39955_ 0))) + (_%tl2983629858%_ (let () (declare (not safe)) - (##vector-ref _g39892_ 1)))) - (if (gx#stx-null? _%tl2977329795%_) - (letrec ((_%loop2977429798%_ - (lambda (_%hd2977229802%_ - _%var2977829805%_) + (##values-ref _g39955_ 1)))) + (if (gx#stx-null? _%tl2983629858%_) + (letrec ((_%loop2983729861%_ + (lambda (_%hd2983529865%_ + _%var2984129868%_) (if (gx#stx-pair? - _%hd2977229802%_) - (let ((_%e2977529808%_ + _%hd2983529865%_) + (let ((_%e2983829871%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2977229802%_))) - (let ((_%lp-hd2977629812%_ + (gx#syntax-e _%hd2983529865%_))) + (let ((_%lp-hd2983929875%_ (let () (declare (not safe)) - (##car _%e2977529808%_))) - (_%lp-tl2977729815%_ + (##car _%e2983829871%_))) + (_%lp-tl2984029878%_ (let () (declare (not safe)) - (##cdr _%e2977529808%_)))) - (_%loop2977429798%_ - _%lp-tl2977729815%_ - (cons _%lp-hd2977629812%_ _%var2977829805%_)))) - (let ((_%var2977929818%_ (reverse _%var2977829805%_))) - ((lambda (_%L29822%_) - (let* ((_%g2983829855%_ - (lambda (_%g2983929851%_) + (##cdr _%e2983829871%_)))) + (_%loop2983729861%_ + _%lp-tl2984029878%_ + (cons _%lp-hd2983929875%_ _%var2984129868%_)))) + (let ((_%var2984229881%_ (reverse _%var2984129868%_))) + ((lambda (_%L29885%_) + (let* ((_%g2990129918%_ + (lambda (_%g2990229914%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2983929851%_))) - (_%g2983730373%_ - (lambda (_%g2983929859%_) - (if (gx#stx-pair/null? _%g2983929859%_) - (let ((_g39894_ + _%g2990229914%_))) + (_%g2990030436%_ + (lambda (_%g2990229922%_) + (if (gx#stx-pair/null? _%g2990229922%_) + (let ((_g39957_ (gx#syntax-split-splice - _%g2983929859%_ + _%g2990229922%_ '0))) (begin - (let ((_g39895_ + (let ((_g39958_ (let () (declare (not safe)) - (if (##values? _g39894_) - (##vector-length - _g39894_) + (if (##values? _g39957_) + (##values-length + _g39957_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39895_ 2))) + (##fx= _g39958_ 2))) (error "Context expects 2 values" - _g39895_))) - (let ((_%target2984129862%_ + _g39958_))) + (let ((_%target2990429925%_ (let () (declare (not safe)) - (##vector-ref _g39894_ 0))) - (_%tl2984329865%_ + (##values-ref _g39957_ 0))) + (_%tl2990629928%_ (let () (declare (not safe)) - (##vector-ref - _g39894_ + (##values-ref + _g39957_ 1)))) (if (gx#stx-null? - _%tl2984329865%_) - (letrec ((_%loop2984429868%_ - (lambda (_%hd2984229872%_ + _%tl2990629928%_) + (letrec ((_%loop2990729931%_ + (lambda (_%hd2990529935%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%var-r2984829875%_) - (if (gx#stx-pair? _%hd2984229872%_) - (let ((_%e2984529878%_ - (gx#syntax-e _%hd2984229872%_))) - (let ((_%lp-hd2984629882%_ + _%var-r2991129938%_) + (if (gx#stx-pair? _%hd2990529935%_) + (let ((_%e2990829941%_ + (gx#syntax-e _%hd2990529935%_))) + (let ((_%lp-hd2990929945%_ (let () (declare (not safe)) - (##car _%e2984529878%_))) - (_%lp-tl2984729885%_ + (##car _%e2990829941%_))) + (_%lp-tl2991029948%_ (let () (declare (not safe)) - (##cdr _%e2984529878%_)))) - (_%loop2984429868%_ - _%lp-tl2984729885%_ - (cons _%lp-hd2984629882%_ _%var-r2984829875%_)))) - (let ((_%var-r2984929888%_ - (reverse _%var-r2984829875%_))) - ((lambda (_%L29892%_) - (let* ((_%g2990929926%_ - (lambda (_%g2991029922%_) + (##cdr _%e2990829941%_)))) + (_%loop2990729931%_ + _%lp-tl2991029948%_ + (cons _%lp-hd2990929945%_ _%var-r2991129938%_)))) + (let ((_%var-r2991229951%_ + (reverse _%var-r2991129938%_))) + ((lambda (_%L29955%_) + (let* ((_%g2997229989%_ + (lambda (_%g2997329985%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2991029922%_))) - (_%g2990830361%_ - (lambda (_%g2991029930%_) - (if (gx#stx-pair/null? _%g2991029930%_) - (let ((_g39896_ + _%g2997329985%_))) + (_%g2997130424%_ + (lambda (_%g2997329993%_) + (if (gx#stx-pair/null? _%g2997329993%_) + (let ((_g39959_ (gx#syntax-split-splice - _%g2991029930%_ + _%g2997329993%_ '0))) (begin - (let ((_g39897_ + (let ((_g39960_ (let () (declare (not safe)) (if (##values? - _g39896_) - (##vector-length - _g39896_) + _g39959_) + (##values-length + _g39959_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39897_ + (##fx= _g39960_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g39897_))) + (error "Context expects 2 values" _g39960_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2991229933%_ + (let ((_%target2997529996%_ (let () (declare (not safe)) - (##vector-ref - _g39896_ + (##values-ref + _g39959_ 0))) - (_%tl2991429936%_ + (_%tl2997729999%_ (let () (declare (not safe)) - (##vector-ref - _g39896_ + (##values-ref + _g39959_ 1)))) (if (gx#stx-null? - _%tl2991429936%_) - (letrec ((_%loop2991529939%_ - (lambda (_%hd2991329943%_ + _%tl2997729999%_) + (letrec ((_%loop2997830002%_ + (lambda (_%hd2997630006%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%init2991929946%_) - (if (gx#stx-pair? _%hd2991329943%_) - (let ((_%e2991629949%_ - (gx#syntax-e _%hd2991329943%_))) - (let ((_%lp-hd2991729953%_ + _%init2998230009%_) + (if (gx#stx-pair? _%hd2997630006%_) + (let ((_%e2997930012%_ + (gx#syntax-e _%hd2997630006%_))) + (let ((_%lp-hd2998030016%_ (let () (declare (not safe)) - (##car _%e2991629949%_))) - (_%lp-tl2991829956%_ + (##car _%e2997930012%_))) + (_%lp-tl2998130019%_ (let () (declare (not safe)) - (##cdr _%e2991629949%_)))) - (_%loop2991529939%_ - _%lp-tl2991829956%_ - (cons _%lp-hd2991729953%_ - _%init2991929946%_)))) - (let ((_%init2992029959%_ - (reverse _%init2991929946%_))) - ((lambda (_%L29963%_) - (let* ((_%g2998029988%_ - (lambda (_%g2998129984%_) + (##cdr _%e2997930012%_)))) + (_%loop2997830002%_ + _%lp-tl2998130019%_ + (cons _%lp-hd2998030016%_ + _%init2998230009%_)))) + (let ((_%init2998330022%_ + (reverse _%init2998230009%_))) + ((lambda (_%L30026%_) + (let* ((_%g3004330051%_ + (lambda (_%g3004430047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2998129984%_))) - (_%g2997930357%_ - (lambda (_%g2998129992%_) - ((lambda (_%L29995%_) - (let* ((_%g3000830016%_ - (lambda (_%g3000930012%_) + _%g3004430047%_))) + (_%g3004230420%_ + (lambda (_%g3004430055%_) + ((lambda (_%L30058%_) + (let* ((_%g3007130079%_ + (lambda (_%g3007230075%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3000930012%_))) - (_%g3000730353%_ - (lambda (_%g3000930020%_) - ((lambda (_%L30023%_) - (let* ((_%g3003630044%_ + _%g3007230075%_))) + (_%g3007030416%_ + (lambda (_%g3007230083%_) + ((lambda (_%L30086%_) + (let* ((_%g3009930107%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3003730040%_) + (lambda (_%g3010030103%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3003730040%_))) - (_%g3003530349%_ - (lambda (_%g3003730048%_) - ((lambda (_%L30051%_) - (let* ((_%g3006430072%_ - (lambda (_%g3006530068%_) + _%g3010030103%_))) + (_%g3009830412%_ + (lambda (_%g3010030111%_) + ((lambda (_%L30114%_) + (let* ((_%g3012730135%_ + (lambda (_%g3012830131%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3006530068%_))) - (_%g3006330345%_ - (lambda (_%g3006530076%_) - ((lambda (_%L30079%_) - (let* ((_%g3009230100%_ - (lambda (_%g3009330096%_) + _%g3012830131%_))) + (_%g3012630408%_ + (lambda (_%g3012830139%_) + ((lambda (_%L30142%_) + (let* ((_%g3015530163%_ + (lambda (_%g3015630159%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3009330096%_))) - (_%g3009130341%_ - (lambda (_%g3009330104%_) - ((lambda (_%L30107%_) - (let* ((_%g3012030128%_ + _%g3015630159%_))) + (_%g3015430404%_ + (lambda (_%g3015630167%_) + ((lambda (_%L30170%_) + (let* ((_%g3018330191%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3012130124%_) + (lambda (_%g3018430187%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3012130124%_))) - (_%g3011930337%_ - (lambda (_%g3012130132%_) - ((lambda (_%L30135%_) - (let* ((_%g3014830156%_ - (lambda (_%g3014930152%_) + _%g3018430187%_))) + (_%g3018230400%_ + (lambda (_%g3018430195%_) + ((lambda (_%L30198%_) + (let* ((_%g3021130219%_ + (lambda (_%g3021230215%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3014930152%_))) - (_%g3014730333%_ - (lambda (_%g3014930160%_) - ((lambda (_%L30163%_) - (let* ((_%g3017630184%_ - (lambda (_%g3017730180%_) + _%g3021230215%_))) + (_%g3021030396%_ + (lambda (_%g3021230223%_) + ((lambda (_%L30226%_) + (let* ((_%g3023930247%_ + (lambda (_%g3024030243%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3017730180%_))) - (_%g3017530318%_ - (lambda (_%g3017730188%_) - ((lambda (_%L30191%_) - (let* ((_%g3020430212%_ + _%g3024030243%_))) + (_%g3023830381%_ + (lambda (_%g3024030251%_) + ((lambda (_%L30254%_) + (let* ((_%g3026730275%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g3020530208%_) + (lambda (_%g3026830271%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3020530208%_))) - (_%g3020330306%_ - (lambda (_%g3020530216%_) - ((lambda (_%L30219%_) - (let* ((_%g3023230240%_ - (lambda (_%g3023330236%_) + _%g3026830271%_))) + (_%g3026630369%_ + (lambda (_%g3026830279%_) + ((lambda (_%L30282%_) + (let* ((_%g3029530303%_ + (lambda (_%g3029630299%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3023330236%_))) - (_%g3023130302%_ - (lambda (_%g3023330244%_) - ((lambda (_%L30247%_) + _%g3029630299%_))) + (_%g3029430365%_ + (lambda (_%g3029630307%_) + ((lambda (_%L30310%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L30023%_ + (cons (cons (cons _%L30086%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30135%_ - (foldr (lambda (_%g3026930272%_ + (cons (cons _%L30198%_ + (foldr (lambda (_%g3033230335%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3027030275%_) - (cons _%g3026930272%_ _%g3027030275%_)) + _%g3033330338%_) + (cons _%g3033230335%_ _%g3033330338%_)) '() - _%L29822%_)) + _%L29885%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30163%_ '()))) + (cons _%L30226%_ '()))) '())) - (cons (cons _%L30079%_ + (cons (cons _%L30142%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30107%_ - (cons _%L30135%_ + (cons (cons _%L30170%_ + (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3026730278%_ _%g3026830281%_) - (cons _%g3026730278%_ _%g3026830281%_)) + (foldr (lambda (_%g3033030341%_ _%g3033130344%_) + (cons _%g3033030341%_ _%g3033130344%_)) '() - _%L29892%_))) + _%L29955%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30247%_ '()))) + (cons _%L30310%_ '()))) '())) - (cons (cons _%L30051%_ + (cons (cons _%L30114%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L30135%_ + (cons (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g3026530284%_ _%g3026630287%_) - (cons _%g3026530284%_ _%g3026630287%_)) + (foldr (lambda (_%g3032830347%_ _%g3032930350%_) + (cons _%g3032830347%_ _%g3032930350%_)) '() - _%L29892%_)) + _%L29955%_)) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'pair?) - (cons _%L30135%_ '())) - (cons (cons _%L30079%_ + (cons _%L30198%_ '())) + (cons (cons _%L30142%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L30135%_ + (cons _%L30198%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L30135%_ - (foldr (lambda (_%g3026330290%_ _%g3026430293%_) - (cons _%g3026330290%_ _%g3026430293%_)) + (cons _%L30198%_ + (foldr (lambda (_%g3032630353%_ _%g3032730356%_) + (cons _%g3032630353%_ _%g3032730356%_)) '() - _%L29892%_)))) + _%L29955%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L30219%_ '())))) + (cons _%L30282%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()))) - (cons (cons _%L30051%_ - (cons _%L29995%_ - (foldr (lambda (_%g3026130296%_ - _%g3026230299%_) - (cons _%g3026130296%_ - _%g3026230299%_)) + (cons (cons _%L30114%_ + (cons _%L30058%_ + (foldr (lambda (_%g3032430359%_ + _%g3032530362%_) + (cons _%g3032430359%_ + _%g3032530362%_)) '() - _%L29963%_))) + _%L30026%_))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3023330244%_)))) - (_%g3023130302%_ - (_%generate129142%_ - _%L30107%_ - _%hd29763%_ - _%L30191%_ - _%L30219%_)))) - _%g3020530216%_)))) - (_%g3020330306%_ - (cons _%L30023%_ - (cons _%L30135%_ - (foldr (lambda (_%g3030930312%_ - _%g3031030315%_) + _%g3029630307%_)))) + (_%g3029430365%_ + (_%generate129205%_ + _%L30170%_ + _%hd29826%_ + _%L30254%_ + _%L30282%_)))) + _%g3026830279%_)))) + (_%g3026630369%_ + (cons _%L30086%_ + (cons _%L30198%_ + (foldr (lambda (_%g3037230375%_ + _%g3037330378%_) (cons (cons (gx#datum->syntax '#f 'reverse) - (cons _%g3030930312%_ + (cons _%g3037230375%_ '())) - _%g3031030315%_)) + _%g3037330378%_)) '() - _%L29892%_)))))) - _%g3017730188%_)))) + _%L29955%_)))))) + _%g3024030251%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3017530318%_ - (cons _%L30051%_ + (_%g3023830381%_ + (cons _%L30114%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##cdr) - (cons _%L30135%_ '())) + (cons _%L30198%_ '())) (begin - (gx#syntax-check-splice-targets _%L29892%_ _%L29822%_) - (foldr (lambda (_%g3032130325%_ - _%g3032230328%_ - _%g3032330330%_) + (gx#syntax-check-splice-targets _%L29955%_ _%L29885%_) + (foldr (lambda (_%g3038430388%_ + _%g3038530391%_ + _%g3038630393%_) (cons (cons (gx#datum->syntax '#f 'cons) - (cons _%g3032230328%_ - (cons _%g3032130325%_ '()))) - _%g3032330330%_)) + (cons _%g3038530391%_ + (cons _%g3038430388%_ '()))) + _%g3038630393%_)) '() - _%L29892%_ - _%L29822%_))))))) + _%L29955%_ + _%L29885%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3014930160%_)))) - (_%g3014730333%_ - (_%generate129142%_ - _%L30135%_ - _%rest29764%_ - _%K29765%_ - _%E29766%_)))) - _%g3012130132%_)))) - (_%g3011930337%_ (gx#genident 'rest)))) - _%g3009330104%_)))) + _%g3021230223%_)))) + (_%g3021030396%_ + (_%generate129205%_ + _%L30198%_ + _%rest29827%_ + _%K29828%_ + _%E29829%_)))) + _%g3018430195%_)))) + (_%g3018230400%_ (gx#genident 'rest)))) + _%g3015630167%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3009130341%_ + (_%g3015430404%_ (gx#genident 'hd)))) - _%g3006530076%_)))) - (_%g3006330345%_ + _%g3012830139%_)))) + (_%g3012630408%_ (gx#genident 'splice-try)))) - _%g3003730048%_)))) - (_%g3003530349%_ (gx#genident 'splice-loop)))) - _%g3000930020%_)))) + _%g3010030111%_)))) + (_%g3009830412%_ (gx#genident 'splice-loop)))) + _%g3007230083%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3000730353%_ + (_%g3007030416%_ (gx#genident 'splice-rest)))) - _%g2998129992%_)))) - (_%g2997930357%_ _%tgt29761%_))) - _%init2992029959%_)))))) - (_%loop2991529939%_ _%target2991229933%_ '())) - (_%g2990929926%_ _%g2991029930%_))))) + _%g3004430055%_)))) + (_%g3004230420%_ _%tgt29824%_))) + _%init2998330022%_)))))) + (_%loop2997830002%_ _%target2997529996%_ '())) + (_%g2997229989%_ _%g2997329993%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2990929926%_ - _%g2991029930%_))))) - (_%g2990830361%_ + (_%g2997229989%_ + _%g2997329993%_))))) + (_%g2997130424%_ (make-list (gx#stx-length - (foldr (lambda (_%g3036430367%_ - _%g3036530370%_) - (cons _%g3036430367%_ - _%g3036530370%_)) + (foldr (lambda (_%g3042730430%_ + _%g3042830433%_) + (cons _%g3042730430%_ + _%g3042830433%_)) '() - _%L29822%_)) + _%L29885%_)) (cons (gx#datum->syntax '#f '@list) '()))))) - _%var-r2984929888%_)))))) + _%var-r2991229951%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2984429868%_ - _%target2984129862%_ + (_%loop2990729931%_ + _%target2990429925%_ '())) - (_%g2983829855%_ - _%g2983929859%_))))) - (_%g2983829855%_ _%g2983929859%_))))) - (_%g2983730373%_ + (_%g2990129918%_ + _%g2990229922%_))))) + (_%g2990129918%_ _%g2990229922%_))))) + (_%g2990030436%_ (gx#gentemps - (foldr (lambda (_%g3037630379%_ _%g3037730382%_) - (cons _%g3037630379%_ _%g3037730382%_)) + (foldr (lambda (_%g3043930442%_ _%g3044030445%_) + (cons _%g3043930442%_ _%g3044030445%_)) '() - _%L29822%_))))) - _%var2977929818%_)))))) + _%L29885%_))))) + _%var2984229881%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2977429798%_ - _%target2977129792%_ + (_%loop2983729861%_ + _%target2983429855%_ '())) - (_%g2976829785%_ - _%g2976929789%_))))) - (_%g2976829785%_ _%g2976929789%_))))) - (_%g2976730385%_ + (_%g2983129848%_ + _%g2983229852%_))))) + (_%g2983129848%_ _%g2983229852%_))))) + (_%g2983030448%_ (|gerbil/core/match[1]#match-pattern-vars| - _%hd29763%_))))) - (_%generate-simple-vector29145%_ - (lambda (_%tgt29603%_ - _%body29605%_ - _%start29606%_ - _%K29607%_ - _%E29608%_) - (let _%recur29610%_ ((_%rest29613%_ _%body29605%_) - (_%off29615%_ _%start29606%_)) - (let* ((_%__stx3909539096%_ _%rest29613%_) - (_%g2961829630%_ + _%hd29826%_))))) + (_%generate-simple-vector29208%_ + (lambda (_%tgt29666%_ + _%body29668%_ + _%start29669%_ + _%K29670%_ + _%E29671%_) + (let _%recur29673%_ ((_%rest29676%_ _%body29668%_) + (_%off29678%_ _%start29669%_)) + (let* ((_%__stx3915839159%_ _%rest29676%_) + (_%g2968129693%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3909539096%_)))) - (let ((_%__kont3909839099%_ - (lambda (_%L29658%_ _%L29660%_) - (let* ((_%g2967529694%_ - (lambda (_%g2967629690%_) + _%__stx3915839159%_)))) + (let ((_%__kont3916139162%_ + (lambda (_%L29721%_ _%L29723%_) + (let* ((_%g2973829757%_ + (lambda (_%g2973929753%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2967629690%_))) - (_%g2967429753%_ - (lambda (_%g2967629698%_) - (if (gx#stx-pair? _%g2967629698%_) - (let ((_%e2968029701%_ + _%g2973929753%_))) + (_%g2973729816%_ + (lambda (_%g2973929761%_) + (if (gx#stx-pair? _%g2973929761%_) + (let ((_%e2974329764%_ (gx#syntax-e - _%g2967629698%_))) - (let ((_%hd2968129705%_ + _%g2973929761%_))) + (let ((_%hd2974429768%_ (let () (declare (not safe)) - (##car _%e2968029701%_))) - (_%tl2968229708%_ + (##car _%e2974329764%_))) + (_%tl2974529771%_ (let () (declare (not safe)) - (##cdr _%e2968029701%_)))) + (##cdr _%e2974329764%_)))) (if (gx#stx-pair? - _%tl2968229708%_) - (let ((_%e2968329711%_ + _%tl2974529771%_) + (let ((_%e2974629774%_ (gx#syntax-e - _%tl2968229708%_))) - (let ((_%hd2968429715%_ + _%tl2974529771%_))) + (let ((_%hd2974729778%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2968329711%_))) - (_%tl2968529718%_ - (let () (declare (not safe)) (##cdr _%e2968329711%_)))) - (if (gx#stx-pair? _%tl2968529718%_) - (let ((_%e2968629721%_ (gx#syntax-e _%tl2968529718%_))) - (let ((_%hd2968729725%_ + (##car _%e2974629774%_))) + (_%tl2974829781%_ + (let () (declare (not safe)) (##cdr _%e2974629774%_)))) + (if (gx#stx-pair? _%tl2974829781%_) + (let ((_%e2974929784%_ (gx#syntax-e _%tl2974829781%_))) + (let ((_%hd2975029788%_ (let () (declare (not safe)) - (##car _%e2968629721%_))) - (_%tl2968829728%_ + (##car _%e2974929784%_))) + (_%tl2975129791%_ (let () (declare (not safe)) - (##cdr _%e2968629721%_)))) - (if (gx#stx-null? _%tl2968829728%_) - ((lambda (_%L29731%_ _%L29733%_ _%L29734%_) + (##cdr _%e2974929784%_)))) + (if (gx#stx-null? _%tl2975129791%_) + ((lambda (_%L29794%_ _%L29796%_ _%L29797%_) (cons 'let - (cons (cons (cons _%L29734%_ + (cons (cons (cons _%L29797%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L29733%_ (cons _%L29731%_ '()))) + (cons _%L29796%_ (cons _%L29794%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons (_%generate129142%_ - _%L29734%_ - _%L29660%_ - (_%recur29610%_ - _%L29658%_ - (fx1+ _%off29615%_)) - _%E29608%_) + (cons (_%generate129205%_ + _%L29797%_ + _%L29723%_ + (_%recur29673%_ + _%L29721%_ + (fx1+ _%off29678%_)) + _%E29671%_) '())))) - _%hd2968729725%_ - _%hd2968429715%_ - _%hd2968129705%_) - (_%g2967529694%_ _%g2967629698%_)))) - (_%g2967529694%_ _%g2967629698%_)))) - (_%g2967529694%_ _%g2967629698%_)))) + _%hd2975029788%_ + _%hd2974729778%_ + _%hd2974429768%_) + (_%g2973829757%_ _%g2973929761%_)))) + (_%g2973829757%_ _%g2973929761%_)))) + (_%g2973829757%_ _%g2973929761%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2967529694%_ - _%g2967629698%_))))) - (_%g2967429753%_ + (_%g2973829757%_ + _%g2973929761%_))))) + (_%g2973729816%_ (list (gx#genident 'e) - _%tgt29603%_ - _%off29615%_))))) - (_%__kont3910039101%_ (lambda () _%K29607%_))) - (if (gx#stx-pair? _%__stx3909539096%_) - (let ((_%e2962229648%_ - (gx#syntax-e _%__stx3909539096%_))) - (let ((_%tl2962429655%_ + _%tgt29666%_ + _%off29678%_))))) + (_%__kont3916339164%_ (lambda () _%K29670%_))) + (if (gx#stx-pair? _%__stx3915839159%_) + (let ((_%e2968529711%_ + (gx#syntax-e _%__stx3915839159%_))) + (let ((_%tl2968729718%_ (let () (declare (not safe)) - (##cdr _%e2962229648%_))) - (_%hd2962329652%_ + (##cdr _%e2968529711%_))) + (_%hd2968629715%_ (let () (declare (not safe)) - (##car _%e2962229648%_)))) - (_%__kont3909839099%_ - _%tl2962429655%_ - _%hd2962329652%_))) - (_%__kont3910039101%_))))))) - (_%generate-list-vector29146%_ - (lambda (_%tgt29495%_ - _%body29497%_ - _%->list29498%_ - _%K29499%_ - _%E29500%_) - (let* ((_%g2950229510%_ - (lambda (_%g2950329506%_) + (##car _%e2968529711%_)))) + (_%__kont3916139162%_ + _%tl2968729718%_ + _%hd2968629715%_))) + (_%__kont3916339164%_))))))) + (_%generate-list-vector29209%_ + (lambda (_%tgt29558%_ + _%body29560%_ + _%->list29561%_ + _%K29562%_ + _%E29563%_) + (let* ((_%g2956529573%_ + (lambda (_%g2956629569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2950329506%_))) - (_%g2950129599%_ - (lambda (_%g2950329514%_) - ((lambda (_%L29517%_) - (let* ((_%g2952929537%_ - (lambda (_%g2953029533%_) + _%g2956629569%_))) + (_%g2956429662%_ + (lambda (_%g2956629577%_) + ((lambda (_%L29580%_) + (let* ((_%g2959229600%_ + (lambda (_%g2959329596%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2953029533%_))) - (_%g2952829595%_ - (lambda (_%g2953029541%_) - ((lambda (_%L29544%_) - (let* ((_%g2955729565%_ - (lambda (_%g2955829561%_) + _%g2959329596%_))) + (_%g2959129658%_ + (lambda (_%g2959329604%_) + ((lambda (_%L29607%_) + (let* ((_%g2962029628%_ + (lambda (_%g2962129624%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2955829561%_))) - (_%g2955629587%_ - (lambda (_%g2955829569%_) - ((lambda (_%L29572%_) + _%g2962129624%_))) + (_%g2961929650%_ + (lambda (_%g2962129632%_) + ((lambda (_%L29635%_) (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%L29517%_ (cons _%L29572%_ '())) + (cons (cons (cons _%L29580%_ (cons _%L29635%_ '())) '()) - (cons (_%generate129142%_ - _%L29517%_ - _%body29497%_ - _%K29499%_ - _%E29500%_) + (cons (_%generate129205%_ + _%L29580%_ + _%body29560%_ + _%K29562%_ + _%E29563%_) '())))) - _%g2955829569%_)))) + _%g2962129632%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2955629587%_ - (let ((_%$e29591%_ - _%->list29498%_)) + (_%g2961929650%_ + (let ((_%$e29654%_ + _%->list29561%_)) (if (eq? 'values->list - _%$e29591%_) + _%$e29654%_) (cons (gx#datum->syntax '#f 'values->list) - (cons _%L29544%_ + (cons _%L29607%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (if (eq? 'vector->list _%$e29591%_) + (if (eq? 'vector->list _%$e29654%_) (cons (gx#datum->syntax '#f '##vector->list) - (cons _%L29544%_ '())) - (if (eq? 'struct->list _%$e29591%_) + (cons _%L29607%_ '())) + (if (eq? 'struct->list _%$e29654%_) (cons (gx#datum->syntax '#f '##cdr) (cons (cons (gx#datum->syntax '#f '##structure->list) - (cons _%L29544%_ '())) + (cons _%L29607%_ '())) '())) (gx#raise-syntax-error '#f '"Unexpected list conversion" - _%stx29135%_ - _%->list29498%_)))))))) + _%stx29198%_ + _%->list29561%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2953029541%_)))) - (_%g2952829595%_ _%tgt29495%_))) - _%g2950329514%_)))) - (_%g2950129599%_ (gx#genident 'e))))) - (_%generate-struct29147%_ - (lambda (_%info29366%_ - _%tgt29368%_ - _%body29369%_ - _%K29370%_ - _%E29371%_) - (let* ((_%__stx3911139112%_ _%body29369%_) - (_%g2937429397%_ + _%g2959329604%_)))) + (_%g2959129658%_ _%tgt29558%_))) + _%g2956629577%_)))) + (_%g2956429662%_ (gx#genident 'e))))) + (_%generate-struct29210%_ + (lambda (_%info29429%_ + _%tgt29431%_ + _%body29432%_ + _%K29433%_ + _%E29434%_) + (let* ((_%__stx3917439175%_ _%body29432%_) + (_%g2943729460%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3911139112%_)))) - (let ((_%__kont3911439115%_ - (lambda (_%L29474%_) - (let ((_%fields29488%_ - (_%struct-field-accessors29149%_ - _%info29366%_))) + _%__stx3917439175%_)))) + (let ((_%__kont3917739178%_ + (lambda (_%L29537%_) + (let ((_%fields29551%_ + (_%struct-field-accessors29212%_ + _%info29429%_))) (cons 'if - (cons (cons (let ((__obj39865 - _%info29366%_)) + (cons (cons (let ((__obj39928 + _%info29429%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39865 + __obj39928 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39865 + __obj39928 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39865 + __obj39928 'predicate))) - (cons _%tgt29368%_ '())) - (cons (_%generate-simple-struct-body29148%_ - _%info29366%_ - _%tgt29368%_ - _%L29474%_ - _%K29370%_ - _%E29371%_) - (cons _%E29371%_ '()))))))) - (_%__kont3911639117%_ - (lambda (_%L29428%_) + (cons _%tgt29431%_ '())) + (cons (_%generate-simple-struct-body29211%_ + _%info29429%_ + _%tgt29431%_ + _%L29537%_ + _%K29433%_ + _%E29434%_) + (cons _%E29434%_ '()))))))) + (_%__kont3917939180%_ + (lambda (_%L29491%_) (cons 'if - (cons (cons (let ((__obj39866 - _%info29366%_)) + (cons (cons (let ((__obj39929 + _%info29429%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39866 + __obj39929 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39866 + __obj39929 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39866 + __obj39929 'predicate))) - (cons _%tgt29368%_ '())) - (cons (_%generate-list-vector29146%_ - _%tgt29368%_ - _%L29428%_ + (cons _%tgt29431%_ '())) + (cons (_%generate-list-vector29209%_ + _%tgt29431%_ + _%L29491%_ 'struct->list - _%K29370%_ - _%E29371%_) - (cons _%E29371%_ '()))))))) - (if (gx#stx-pair? _%__stx3911139112%_) - (let ((_%e2937729450%_ - (gx#syntax-e _%__stx3911139112%_))) - (let ((_%tl2937929457%_ + _%K29433%_ + _%E29434%_) + (cons _%E29434%_ '()))))))) + (if (gx#stx-pair? _%__stx3917439175%_) + (let ((_%e2944029513%_ + (gx#syntax-e _%__stx3917439175%_))) + (let ((_%tl2944229520%_ (let () (declare (not safe)) - (##cdr _%e2937729450%_))) - (_%hd2937829454%_ + (##cdr _%e2944029513%_))) + (_%hd2944129517%_ (let () (declare (not safe)) - (##car _%e2937729450%_)))) - (if (gx#stx-datum? _%hd2937829454%_) - (let ((_%e2938029460%_ - (gx#stx-e _%hd2937829454%_))) - (if (equal? _%e2938029460%_ 'simple:) - (if (gx#stx-pair? _%tl2937929457%_) - (let ((_%e2938129464%_ + (##car _%e2944029513%_)))) + (if (gx#stx-datum? _%hd2944129517%_) + (let ((_%e2944329523%_ + (gx#stx-e _%hd2944129517%_))) + (if (equal? _%e2944329523%_ 'simple:) + (if (gx#stx-pair? _%tl2944229520%_) + (let ((_%e2944429527%_ (gx#syntax-e - _%tl2937929457%_))) - (let ((_%tl2938329471%_ + _%tl2944229520%_))) + (let ((_%tl2944629534%_ (let () (declare (not safe)) - (##cdr _%e2938129464%_))) - (_%hd2938229468%_ + (##cdr _%e2944429527%_))) + (_%hd2944529531%_ (let () (declare (not safe)) - (##car _%e2938129464%_)))) + (##car _%e2944429527%_)))) (if (gx#stx-null? - _%tl2938329471%_) - (_%__kont3911439115%_ - _%hd2938229468%_) + _%tl2944629534%_) + (_%__kont3917739178%_ + _%hd2944529531%_) (let () (declare (not safe)) - (_%g2937429397%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2937429397%_))) - (if (equal? _%e2938029460%_ 'list:) + (_%g2943729460%_))) + (if (equal? _%e2944329523%_ 'list:) (if (gx#stx-pair? - _%tl2937929457%_) - (let ((_%e2938929418%_ + _%tl2944229520%_) + (let ((_%e2945229481%_ (gx#syntax-e - _%tl2937929457%_))) - (let ((_%tl2939129425%_ + _%tl2944229520%_))) + (let ((_%tl2945429488%_ (let () (declare (not safe)) - (##cdr _%e2938929418%_))) - (_%hd2939029422%_ + (##cdr _%e2945229481%_))) + (_%hd2945329485%_ (let () (declare (not safe)) - (##car _%e2938929418%_)))) + (##car _%e2945229481%_)))) (if (gx#stx-null? - _%tl2939129425%_) - (_%__kont3911639117%_ - _%hd2939029422%_) + _%tl2945429488%_) + (_%__kont3917939180%_ + _%hd2945329485%_) (let () (declare (not safe)) - (_%g2937429397%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2937429397%_))) + (_%g2943729460%_))) (let () (declare (not safe)) - (_%g2937429397%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2937429397%_))))) + (_%g2943729460%_))))) (let () (declare (not safe)) - (_%g2937429397%_))))))) - (_%generate-simple-struct-body29148%_ - (lambda (_%info29286%_ - _%tgt29288%_ - _%body29289%_ - _%K29290%_ - _%E29291%_) - (let _%recur29293%_ ((_%rest29296%_ _%body29289%_) - (_%fields29298%_ - (_%struct-field-accessors29149%_ - _%info29286%_))) - (let* ((_%__stx3916139162%_ _%rest29296%_) - (_%g2930129313%_ + (_%g2943729460%_))))))) + (_%generate-simple-struct-body29211%_ + (lambda (_%info29349%_ + _%tgt29351%_ + _%body29352%_ + _%K29353%_ + _%E29354%_) + (let _%recur29356%_ ((_%rest29359%_ _%body29352%_) + (_%fields29361%_ + (_%struct-field-accessors29212%_ + _%info29349%_))) + (let* ((_%__stx3922439225%_ _%rest29359%_) + (_%g2936429376%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3916139162%_)))) - (let ((_%__kont3916439165%_ - (lambda (_%L29341%_ _%L29343%_) - (if (null? _%fields29298%_) + _%__stx3922439225%_)))) + (let ((_%__kont3922739228%_ + (lambda (_%L29404%_ _%L29406%_) + (if (null? _%fields29361%_) (gx#raise-syntax-error '#f '"too many parts for struct" - _%stx29135%_ - _%info29286%_ - (let ((__obj39867 _%info29286%_)) + _%stx29198%_ + _%info29349%_ + (let ((__obj39930 _%info29349%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39867 + __obj39930 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39867 + __obj39930 '2 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39867 + __obj39930 'name)))) - (let ((_%$tgt29358%_ (gx#genident 'e)) - (_%getf29360%_ - (car _%fields29298%_))) + (let ((_%$tgt29421%_ (gx#genident 'e)) + (_%getf29423%_ + (car _%fields29361%_))) (cons 'let - (cons (cons (cons _%$tgt29358%_ - (cons (cons _%getf29360%_ + (cons (cons (cons _%$tgt29421%_ + (cons (cons _%getf29423%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tgt29288%_ '())) + (cons _%tgt29351%_ '())) '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (_%generate129142%_ - _%$tgt29358%_ - _%L29343%_ - (_%recur29293%_ - _%L29341%_ - (cdr _%fields29298%_)) - _%E29291%_) + (cons (_%generate129205%_ + _%$tgt29421%_ + _%L29406%_ + (_%recur29356%_ + _%L29404%_ + (cdr _%fields29361%_)) + _%E29354%_) '()))))))) - (_%__kont3916639167%_ (lambda () _%K29290%_))) - (if (gx#stx-pair? _%__stx3916139162%_) - (let ((_%e2930529331%_ - (gx#syntax-e _%__stx3916139162%_))) - (let ((_%tl2930729338%_ + (_%__kont3922939230%_ (lambda () _%K29353%_))) + (if (gx#stx-pair? _%__stx3922439225%_) + (let ((_%e2936829394%_ + (gx#syntax-e _%__stx3922439225%_))) + (let ((_%tl2937029401%_ (let () (declare (not safe)) - (##cdr _%e2930529331%_))) - (_%hd2930629335%_ + (##cdr _%e2936829394%_))) + (_%hd2936929398%_ (let () (declare (not safe)) - (##car _%e2930529331%_)))) - (_%__kont3916439165%_ - _%tl2930729338%_ - _%hd2930629335%_))) - (_%__kont3916639167%_))))))) - (_%struct-field-accessors29149%_ - (lambda (_%info29267%_) - (let _%recur29270%_ ((_%next29273%_ - (cons _%info29267%_ '()))) - (if (null? _%next29273%_) + (##car _%e2936829394%_)))) + (_%__kont3922739228%_ + _%tl2937029401%_ + _%hd2936929398%_))) + (_%__kont3922939230%_))))))) + (_%struct-field-accessors29212%_ + (lambda (_%info29330%_) + (let _%recur29333%_ ((_%next29336%_ + (cons _%info29330%_ '()))) + (if (null? _%next29336%_) '() - (let ((_%ti29276%_ (car _%next29273%_))) - (let ((__tmp39899 - (_%recur29270%_ + (let ((_%ti29339%_ (car _%next29336%_))) + (let ((__tmp39962 + (_%recur29333%_ (map gx#syntax-local-value - (let ((__obj39868 _%ti29276%_)) + (let ((__obj39931 _%ti29339%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39868 + __obj39931 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39868 + __obj39931 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39868 + __obj39931 'super)))))) - (__tmp39898 - (map (lambda (_%slot29279%_) - (let ((_%$e29282%_ - (agetq _%slot29279%_ - (let ((__obj39869 - _%ti29276%_)) + (__tmp39961 + (map (lambda (_%slot29342%_) + (let ((_%$e29345%_ + (agetq _%slot29342%_ + (let ((__obj39932 + _%ti29339%_)) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) (##structure-direct-instance-of? - __obj39869 + __obj39932 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) - (##unchecked-structure-ref __obj39869 '17 '#f '#f)) + (##unchecked-structure-ref __obj39932 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39869 + __obj39932 'unchecked-accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if _%$e29282%_ - _%$e29282%_ + (if _%$e29345%_ + _%$e29345%_ (gx#raise-syntax-error '#f '"no accessor for struct slot" - _%stx29135%_ - _%info29267%_ - _%slot29279%_)))) - (let ((__obj39870 _%ti29276%_)) + _%stx29198%_ + _%info29330%_ + _%slot29342%_)))) + (let ((__obj39933 _%ti29339%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39870 + __obj39933 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39870 + __obj39933 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39870 + __obj39933 'slots)))))) (declare (not safe)) - (##append __tmp39899 __tmp39898))))))) - (_%generate-class29150%_ - (lambda (_%info29260%_ - _%tgt29262%_ - _%body29263%_ - _%K29264%_ - _%E29265%_) + (##append __tmp39962 __tmp39961))))))) + (_%generate-class29213%_ + (lambda (_%info29323%_ + _%tgt29325%_ + _%body29326%_ + _%K29327%_ + _%E29328%_) (cons 'if - (cons (cons (let ((__obj39871 _%info29260%_)) + (cons (cons (let ((__obj39934 _%info29323%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39871 + __obj39934 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39871 + __obj39934 '14 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39871 + __obj39934 'predicate))) - (cons _%tgt29262%_ '())) - (cons (_%generate-class-body29151%_ - _%info29260%_ - _%tgt29262%_ - _%body29263%_ - _%K29264%_ - _%E29265%_) - (cons _%E29265%_ '())))))) - (_%generate-class-body29151%_ - (lambda (_%info29153%_ - _%tgt29155%_ - _%body29156%_ - _%K29157%_ - _%E29158%_) - (let _%recur29160%_ ((_%rest29163%_ _%body29156%_)) - (let* ((_%__stx3917739178%_ _%rest29163%_) - (_%g2916729183%_ + (cons _%tgt29325%_ '())) + (cons (_%generate-class-body29214%_ + _%info29323%_ + _%tgt29325%_ + _%body29326%_ + _%K29327%_ + _%E29328%_) + (cons _%E29328%_ '())))))) + (_%generate-class-body29214%_ + (lambda (_%info29216%_ + _%tgt29218%_ + _%body29219%_ + _%K29220%_ + _%E29221%_) + (let _%recur29223%_ ((_%rest29226%_ _%body29219%_)) + (let* ((_%__stx3924039241%_ _%rest29226%_) + (_%g2923029246%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3917739178%_)))) - (let ((_%__kont3918039181%_ - (lambda (_%L29221%_ _%L29223%_ _%L29224%_) - (let ((_%$e29244%_ - (agetq (let ((__tmp39900 + _%__stx3924039241%_)))) + (let ((_%__kont3924339244%_ + (lambda (_%L29284%_ _%L29286%_ _%L29287%_) + (let ((_%$e29307%_ + (agetq (let ((__tmp39963 (keyword->string - (gx#stx-e _%L29224%_)))) + (gx#stx-e _%L29287%_)))) (declare (not safe)) - (##string->symbol __tmp39900)) - (let ((__obj39872 - _%info29153%_)) + (##string->symbol __tmp39963)) + (let ((__obj39935 + _%info29216%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj39872 + __obj39935 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj39872 + __obj39935 '17 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj39872 + __obj39935 'unchecked-accessors)))))) - (if _%$e29244%_ - ((lambda (_%getf29248%_) - (let ((_%$tgt29251%_ + (if _%$e29307%_ + ((lambda (_%getf29311%_) + (let ((_%$tgt29314%_ (gx#genident 'e))) (cons 'let - (cons (cons (cons _%$tgt29251%_ + (cons (cons (cons _%$tgt29314%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons _%getf29248%_ (cons _%tgt29155%_ '())) + (cons (cons _%getf29311%_ (cons _%tgt29218%_ '())) '())) '()) - (cons (_%generate129142%_ - _%$tgt29251%_ - _%L29223%_ - (_%recur29160%_ _%L29221%_) - _%E29158%_) + (cons (_%generate129205%_ + _%$tgt29314%_ + _%L29286%_ + (_%recur29223%_ _%L29284%_) + _%E29221%_) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e29244%_) + _%$e29307%_) (gx#raise-syntax-error '#f '"no slot accessor" - _%stx29135%_ - _%info29153%_ - _%L29224%_))))) - (_%__kont3918239183%_ (lambda () _%K29157%_))) - (if (gx#stx-pair? _%__stx3917739178%_) - (let ((_%e2917229201%_ - (gx#syntax-e _%__stx3917739178%_))) - (let ((_%tl2917429208%_ + _%stx29198%_ + _%info29216%_ + _%L29287%_))))) + (_%__kont3924539246%_ (lambda () _%K29220%_))) + (if (gx#stx-pair? _%__stx3924039241%_) + (let ((_%e2923529264%_ + (gx#syntax-e _%__stx3924039241%_))) + (let ((_%tl2923729271%_ (let () (declare (not safe)) - (##cdr _%e2917229201%_))) - (_%hd2917329205%_ + (##cdr _%e2923529264%_))) + (_%hd2923629268%_ (let () (declare (not safe)) - (##car _%e2917229201%_)))) - (if (gx#stx-pair? _%tl2917429208%_) - (let ((_%e2917529211%_ - (gx#syntax-e _%tl2917429208%_))) - (let ((_%tl2917729218%_ + (##car _%e2923529264%_)))) + (if (gx#stx-pair? _%tl2923729271%_) + (let ((_%e2923829274%_ + (gx#syntax-e _%tl2923729271%_))) + (let ((_%tl2924029281%_ (let () (declare (not safe)) - (##cdr _%e2917529211%_))) - (_%hd2917629215%_ + (##cdr _%e2923829274%_))) + (_%hd2923929278%_ (let () (declare (not safe)) - (##car _%e2917529211%_)))) - (_%__kont3918039181%_ - _%tl2917729218%_ - _%hd2917629215%_ - _%hd2917329205%_))) - (_%__kont3918239183%_)))) - (_%__kont3918239183%_)))))))) - (_%generate129142%_ - _%tgt29137%_ - _%ptree29138%_ - _%K29139%_ - _%E29140%_)))) + (##car _%e2923829274%_)))) + (_%__kont3924339244%_ + _%tl2924029281%_ + _%hd2923929278%_ + _%hd2923629268%_))) + (_%__kont3924539246%_)))) + (_%__kont3924539246%_)))))))) + (_%generate129205%_ + _%tgt29200%_ + _%ptree29201%_ + _%K29202%_ + _%E29203%_)))) (define |gerbil/core/match[1]#generate-match*| - (lambda (_%stx27948%_ _%tgt-lst27950%_ _%clauses27951%_) - (letrec ((_%parse-body27953%_ - (lambda (_%hd-len28957%_) - (let _%lp28960%_ ((_%rest28963%_ _%clauses27951%_) - (_%r28965%_ '())) - (let* ((_%__stx3922739228%_ _%rest28963%_) - (_%g2896828980%_ + (lambda (_%stx28011%_ _%tgt-lst28013%_ _%clauses28014%_) + (letrec ((_%parse-body28016%_ + (lambda (_%hd-len29020%_) + (let _%lp29023%_ ((_%rest29026%_ _%clauses28014%_) + (_%r29028%_ '())) + (let* ((_%__stx3929039291%_ _%rest29026%_) + (_%g2903129043%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3922739228%_)))) - (let ((_%__kont3923039231%_ - (lambda (_%L29008%_ _%L29010%_) - (let* ((_%__stx3919939200%_ _%L29010%_) - (_%g2902729043%_ + _%__stx3929039291%_)))) + (let ((_%__kont3929339294%_ + (lambda (_%L29071%_ _%L29073%_) + (let* ((_%__stx3926239263%_ _%L29073%_) + (_%g2909029106%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3919939200%_)))) - (let ((_%__kont3920239203%_ - (lambda (_%L29112%_) - (if (gx#stx-null? _%L29008%_) + _%__stx3926239263%_)))) + (let ((_%__kont3926539266%_ + (lambda (_%L29175%_) + (if (gx#stx-null? _%L29071%_) (cons (cons (gx#genident 'else) (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - _%L29112%_) - (let ((_%$e29123%_ - (gx#stx-source _%L29010%_))) - (if _%$e29123%_ - _%$e29123%_ - (gx#stx-source _%stx27948%_)))) + _%L29175%_) + (let ((_%$e29186%_ + (gx#stx-source _%L29073%_))) + (if _%$e29186%_ + _%$e29186%_ + (gx#stx-source _%stx28011%_)))) '()))) - _%r28965%_) + _%r29028%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; misplaced else" - _%stx27948%_ - _%L29010%_)))) - (_%__kont3920439205%_ - (lambda (_%L29071%_ _%L29073%_) - (_%lp28960%_ - _%L29008%_ + _%stx28011%_ + _%L29073%_)))) + (_%__kont3926739268%_ + (lambda (_%L29134%_ _%L29136%_) + (_%lp29023%_ + _%L29071%_ (cons (cons (gx#genident 'try-match) (cons (gx#stx-map - (lambda (_%g2908529087%_) + (lambda (_%g2914829150%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (|gerbil/core/match[1]#parse-match-pattern__%| - _%g2908529087%_ - _%stx27948%_)) - _%L29073%_) + _%g2914829150%_ + _%stx28011%_)) + _%L29136%_) (cons (gx#stx-wrap-source - (cons (gx#datum->syntax '#f 'begin) _%L29071%_) - (let ((_%$e29091%_ (gx#stx-source _%L29010%_))) - (if _%$e29091%_ - _%$e29091%_ - (gx#stx-source _%stx27948%_)))) + (cons (gx#datum->syntax '#f 'begin) _%L29134%_) + (let ((_%$e29154%_ (gx#stx-source _%L29073%_))) + (if _%$e29154%_ + _%$e29154%_ + (gx#stx-source _%stx28011%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r28965%_)))) - (_%__kont3920639207%_ + _%r29028%_)))) + (_%__kont3926939270%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27948%_ - _%L29010%_)))) - (let* ((_%__match3922439225%_ - (lambda (_%e2903529061%_ - _%hd2903629065%_ - _%tl2903729068%_) - (let ((_%L29071%_ - _%tl2903729068%_) - (_%L29073%_ - _%hd2903629065%_)) + _%stx28011%_ + _%L29073%_)))) + (let* ((_%__match3928739288%_ + (lambda (_%e2909829124%_ + _%hd2909929128%_ + _%tl2910029131%_) + (let ((_%L29134%_ + _%tl2910029131%_) + (_%L29136%_ + _%hd2909929128%_)) (if (and (gx#stx-list? - _%L29073%_) + _%L29136%_) (fx= (gx#stx-length - _%L29073%_) - _%hd-len28957%_) + _%L29136%_) + _%hd-len29020%_) (gx#stx-list? - _%L29071%_) + _%L29134%_) (not (gx#stx-null? - _%L29071%_))) - (_%__kont3920439205%_ - _%L29071%_ - _%L29073%_) - (_%__kont3920639207%_))))) - (_%__match3921839219%_ - (lambda (_%e2903029102%_ - _%hd2903129106%_ - _%tl2903229109%_) - (let ((_%L29112%_ - _%tl2903229109%_)) + _%L29134%_))) + (_%__kont3926739268%_ + _%L29134%_ + _%L29136%_) + (_%__kont3926939270%_))))) + (_%__match3928139282%_ + (lambda (_%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_) + (let ((_%L29175%_ + _%tl2909529172%_)) (if (and (gx#stx-list? - _%L29112%_) + _%L29175%_) (not (gx#stx-null? - _%L29112%_))) - (_%__kont3920239203%_ - _%L29112%_) - (_%__match3922439225%_ - _%e2903029102%_ - _%hd2903129106%_ - _%tl2903229109%_)))))) - (if (gx#stx-pair? _%__stx3919939200%_) - (let ((_%e2903029102%_ + _%L29175%_))) + (_%__kont3926539266%_ + _%L29175%_) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)))))) + (if (gx#stx-pair? _%__stx3926239263%_) + (let ((_%e2909329165%_ (gx#syntax-e - _%__stx3919939200%_))) - (let ((_%tl2903229109%_ + _%__stx3926239263%_))) + (let ((_%tl2909529172%_ (let () (declare (not safe)) - (##cdr _%e2903029102%_))) - (_%hd2903129106%_ + (##cdr _%e2909329165%_))) + (_%hd2909429169%_ (let () (declare (not safe)) - (##car _%e2903029102%_)))) + (##car _%e2909329165%_)))) (if (gx#identifier? - _%hd2903129106%_) + _%hd2909429169%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39901_| - _%hd2903129106%_) - (_%__match3921839219%_ - _%e2903029102%_ - _%hd2903129106%_ - _%tl2903229109%_) - (_%__match3922439225%_ - _%e2903029102%_ - _%hd2903129106%_ - _%tl2903229109%_)) - (_%__match3922439225%_ - _%e2903029102%_ - _%hd2903129106%_ - _%tl2903229109%_)))) - (_%__kont3920639207%_))))))) - (_%__kont3923239233%_ (lambda () _%r28965%_))) - (if (gx#stx-pair? _%__stx3922739228%_) - (let ((_%e2897228998%_ - (gx#syntax-e _%__stx3922739228%_))) - (let ((_%tl2897429005%_ + |gerbil/core/match[1]#_g39964_| + _%hd2909429169%_) + (_%__match3928139282%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)) + (_%__match3928739288%_ + _%e2909329165%_ + _%hd2909429169%_ + _%tl2909529172%_)))) + (_%__kont3926939270%_))))))) + (_%__kont3929539296%_ (lambda () _%r29028%_))) + (if (gx#stx-pair? _%__stx3929039291%_) + (let ((_%e2903529061%_ + (gx#syntax-e _%__stx3929039291%_))) + (let ((_%tl2903729068%_ (let () (declare (not safe)) - (##cdr _%e2897228998%_))) - (_%hd2897329002%_ + (##cdr _%e2903529061%_))) + (_%hd2903629065%_ (let () (declare (not safe)) - (##car _%e2897228998%_)))) - (_%__kont3923039231%_ - _%tl2897429005%_ - _%hd2897329002%_))) - (_%__kont3923239233%_))))))) - (_%generate-body27955%_ - (lambda (_%body28659%_) - (let* ((_%g2866228670%_ - (lambda (_%g2866328666%_) + (##car _%e2903529061%_)))) + (_%__kont3929339294%_ + _%tl2903729068%_ + _%hd2903629065%_))) + (_%__kont3929539296%_))))))) + (_%generate-body28018%_ + (lambda (_%body28722%_) + (let* ((_%g2872528733%_ + (lambda (_%g2872628729%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2866328666%_))) - (_%g2866128953%_ - (lambda (_%g2866328674%_) - ((lambda (_%L28677%_) - (let* ((_%g2868928706%_ - (lambda (_%g2869028702%_) + _%g2872628729%_))) + (_%g2872429016%_ + (lambda (_%g2872628737%_) + ((lambda (_%L28740%_) + (let* ((_%g2875228769%_ + (lambda (_%g2875328765%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2869028702%_))) - (_%g2868828949%_ - (lambda (_%g2869028710%_) + _%g2875328765%_))) + (_%g2875129012%_ + (lambda (_%g2875328773%_) (if (gx#stx-pair/null? - _%g2869028710%_) - (let ((_g39902_ + _%g2875328773%_) + (let ((_g39965_ (gx#syntax-split-splice - _%g2869028710%_ + _%g2875328773%_ '0))) (begin - (let ((_g39903_ + (let ((_g39966_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39902_) - (##vector-length _g39902_) + _g39965_) + (##values-length _g39965_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39903_ 2))) - (error "Context expects 2 values" _g39903_))) + (##fx= _g39966_ 2))) + (error "Context expects 2 values" _g39966_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2869228713%_ + (let ((_%target2875528776%_ (let () (declare (not safe)) - (##vector-ref - _g39902_ + (##values-ref + _g39965_ 0))) - (_%tl2869428716%_ + (_%tl2875728779%_ (let () (declare (not safe)) - (##vector-ref - _g39902_ + (##values-ref + _g39965_ 1)))) (if (gx#stx-null? - _%tl2869428716%_) - (letrec ((_%loop2869528719%_ + _%tl2875728779%_) + (letrec ((_%loop2875828782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2869328723%_ _%target2869928726%_) - (if (gx#stx-pair? _%hd2869328723%_) - (let ((_%e2869628729%_ - (gx#syntax-e _%hd2869328723%_))) - (let ((_%lp-hd2869728733%_ + (lambda (_%hd2875628786%_ _%target2876228789%_) + (if (gx#stx-pair? _%hd2875628786%_) + (let ((_%e2875928792%_ + (gx#syntax-e _%hd2875628786%_))) + (let ((_%lp-hd2876028796%_ (let () (declare (not safe)) - (##car _%e2869628729%_))) - (_%lp-tl2869828736%_ + (##car _%e2875928792%_))) + (_%lp-tl2876128799%_ (let () (declare (not safe)) - (##cdr _%e2869628729%_)))) - (_%loop2869528719%_ - _%lp-tl2869828736%_ - (cons _%lp-hd2869728733%_ - _%target2869928726%_)))) - (let ((_%target2870028739%_ - (reverse _%target2869928726%_))) - ((lambda (_%L28743%_) - (let* ((_%g2876028777%_ - (lambda (_%g2876128773%_) + (##cdr _%e2875928792%_)))) + (_%loop2875828782%_ + _%lp-tl2876128799%_ + (cons _%lp-hd2876028796%_ + _%target2876228789%_)))) + (let ((_%target2876328802%_ + (reverse _%target2876228789%_))) + ((lambda (_%L28806%_) + (let* ((_%g2882328840%_ + (lambda (_%g2882428836%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2876128773%_))) - (_%g2875928945%_ - (lambda (_%g2876128781%_) + _%g2882428836%_))) + (_%g2882229008%_ + (lambda (_%g2882428844%_) (if (gx#stx-pair/null? - _%g2876128781%_) - (let ((_g39904_ + _%g2882428844%_) + (let ((_g39967_ (gx#syntax-split-splice - _%g2876128781%_ + _%g2882428844%_ '0))) (begin - (let ((_g39905_ + (let ((_g39968_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g39904_) - (##vector-length _g39904_) + (if (##values? _g39967_) + (##values-length _g39967_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39905_ 2))) - (error "Context expects 2 values" _g39905_))) - (let ((_%target2876328784%_ - (let () (declare (not safe)) (##vector-ref _g39904_ 0))) - (_%tl2876528787%_ + (if (not (let () (declare (not safe)) (##fx= _g39968_ 2))) + (error "Context expects 2 values" _g39968_))) + (let ((_%target2882628847%_ + (let () (declare (not safe)) (##values-ref _g39967_ 0))) + (_%tl2882828850%_ (let () (declare (not safe)) - (##vector-ref _g39904_ 1)))) - (if (gx#stx-null? _%tl2876528787%_) - (letrec ((_%loop2876628790%_ - (lambda (_%hd2876428794%_ - _%fail-diagnostic2877028797%_) - (if (gx#stx-pair? _%hd2876428794%_) - (let ((_%e2876728800%_ - (gx#syntax-e _%hd2876428794%_))) - (let ((_%lp-hd2876828804%_ + (##values-ref _g39967_ 1)))) + (if (gx#stx-null? _%tl2882828850%_) + (letrec ((_%loop2882928853%_ + (lambda (_%hd2882728857%_ + _%fail-diagnostic2883328860%_) + (if (gx#stx-pair? _%hd2882728857%_) + (let ((_%e2883028863%_ + (gx#syntax-e _%hd2882728857%_))) + (let ((_%lp-hd2883128867%_ (let () (declare (not safe)) - (##car _%e2876728800%_))) - (_%lp-tl2876928807%_ + (##car _%e2883028863%_))) + (_%lp-tl2883228870%_ (let () (declare (not safe)) - (##cdr _%e2876728800%_)))) - (_%loop2876628790%_ - _%lp-tl2876928807%_ - (cons _%lp-hd2876828804%_ - _%fail-diagnostic2877028797%_)))) - (let ((_%fail-diagnostic2877128810%_ - (reverse _%fail-diagnostic2877028797%_))) - ((lambda (_%L28814%_) - (let* ((_%g2883128839%_ - (lambda (_%g2883228835%_) + (##cdr _%e2883028863%_)))) + (_%loop2882928853%_ + _%lp-tl2883228870%_ + (cons _%lp-hd2883128867%_ + _%fail-diagnostic2883328860%_)))) + (let ((_%fail-diagnostic2883428873%_ + (reverse _%fail-diagnostic2883328860%_))) + ((lambda (_%L28877%_) + (let* ((_%g2889428902%_ + (lambda (_%g2889528898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2883228835%_))) - (_%g2883028925%_ - (lambda (_%g2883228843%_) - ((lambda (_%L28846%_) - (let* ((_%g2885928867%_ - (lambda (_%g2886028863%_) + _%g2889528898%_))) + (_%g2889328988%_ + (lambda (_%g2889528906%_) + ((lambda (_%L28909%_) + (let* ((_%g2892228930%_ + (lambda (_%g2892328926%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2886028863%_))) - (_%g2885828921%_ - (lambda (_%g2886028871%_) - ((lambda (_%L28874%_) - (let* ((_%g2888728895%_ - (lambda (_%g2888828891%_) + _%g2892328926%_))) + (_%g2892128984%_ + (lambda (_%g2892328934%_) + ((lambda (_%L28937%_) + (let* ((_%g2895028958%_ + (lambda (_%g2895128954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2888828891%_))) - (_%g2888628917%_ - (lambda (_%g2888828899%_) - ((lambda (_%L28902%_) + _%g2895128954%_))) + (_%g2894928980%_ + (lambda (_%g2895128962%_) + ((lambda (_%L28965%_) (cons (gx#datum->syntax '#f 'begin-annotation) (cons (gx#datum->syntax '#f '@match) - (cons _%L28902%_ '())))) - _%g2888828899%_)))) - (_%g2888628917%_ + (cons _%L28965%_ '())))) + _%g2895128962%_)))) + (_%g2894928980%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28677%_ - (cons _%L28846%_ '())) + (cons (cons (cons _%L28740%_ + (cons _%L28909%_ '())) '()) - (cons _%L28874%_ '()))) - (gx#stx-source _%stx27948%_))))) - _%g2886028871%_)))) - (_%g2885828921%_ - (_%generate-clauses27956%_ - _%body28659%_ + (cons _%L28937%_ '()))) + (gx#stx-source _%stx28011%_))))) + _%g2892328934%_)))) + (_%g2892128984%_ + (_%generate-clauses28019%_ + _%body28722%_ (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@abort) '()) - (cons (cons _%L28677%_ '()) '()))))))) - _%g2883228843%_)))) + (cons (cons _%L28740%_ '()) '()))))))) + _%g2889528906%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2883028925%_ + (_%g2889328988%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f @@ -4673,244 +4673,244 @@ '#f 'error) (cons '"No clause matching" - (foldr (lambda (_%g2892828933%_ - _%g2892928936%_) - (cons _%g2892828933%_ - _%g2892928936%_)) - (foldr (lambda (_%g2893028939%_ - _%g2893128942%_) + (foldr (lambda (_%g2899128996%_ + _%g2899228999%_) + (cons _%g2899128996%_ + _%g2899228999%_)) + (foldr (lambda (_%g2899329002%_ + _%g2899429005%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2893028939%_ '())) - _%g2893128942%_)) + (cons _%g2899329002%_ '())) + _%g2899429005%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L28814%_) - _%L28743%_))) + _%L28877%_) + _%L28806%_))) (cons (cons (gx#datum->syntax '#f 'void) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27948%_))))) - _%fail-diagnostic2877128810%_)))))) - (_%loop2876628790%_ _%target2876328784%_ '())) - (_%g2876028777%_ _%g2876128781%_))))) + (gx#stx-source _%stx28011%_))))) + _%fail-diagnostic2883428873%_)))))) + (_%loop2882928853%_ _%target2882628847%_ '())) + (_%g2882328840%_ _%g2882428844%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2876028777%_ - _%g2876128781%_))))) - (_%g2875928945%_ + (_%g2882328840%_ + _%g2882428844%_))))) + (_%g2882229008%_ (gx#stx-map gx#stx-car - _%clauses27951%_)))) - _%target2870028739%_)))))) - (_%loop2869528719%_ _%target2869228713%_ '())) - (_%g2868928706%_ _%g2869028710%_))))) + _%clauses28014%_)))) + _%target2876328802%_)))))) + (_%loop2875828782%_ _%target2875528776%_ '())) + (_%g2875228769%_ _%g2875328773%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2868928706%_ - _%g2869028710%_))))) - (_%g2868828949%_ _%tgt-lst27950%_))) - _%g2866328674%_)))) - (_%g2866128953%_ (gx#genident 'E))))) - (_%generate-clauses27956%_ - (lambda (_%rest28311%_ _%E28313%_) - (let* ((_%__stx3924339244%_ _%rest28311%_) - (_%g2831728333%_ + (_%g2875228769%_ + _%g2875328773%_))))) + (_%g2875129012%_ _%tgt-lst28013%_))) + _%g2872628737%_)))) + (_%g2872429016%_ (gx#genident 'E))))) + (_%generate-clauses28019%_ + (lambda (_%rest28374%_ _%E28376%_) + (let* ((_%__stx3930639307%_ _%rest28374%_) + (_%g2838028396%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3924339244%_)))) - (let ((_%__kont3924639247%_ - (lambda (_%L28567%_) - (let* ((_%g2857828596%_ - (lambda (_%g2857928592%_) + _%__stx3930639307%_)))) + (let ((_%__kont3930939310%_ + (lambda (_%L28630%_) + (let* ((_%g2864128659%_ + (lambda (_%g2864228655%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2857928592%_))) - (_%g2857728651%_ - (lambda (_%g2857928600%_) - (if (gx#stx-pair? _%g2857928600%_) - (let ((_%e2858228603%_ + _%g2864228655%_))) + (_%g2864028714%_ + (lambda (_%g2864228663%_) + (if (gx#stx-pair? _%g2864228663%_) + (let ((_%e2864528666%_ (gx#syntax-e - _%g2857928600%_))) - (let ((_%hd2858328607%_ + _%g2864228663%_))) + (let ((_%hd2864628670%_ (let () (declare (not safe)) - (##car _%e2858228603%_))) - (_%tl2858428610%_ + (##car _%e2864528666%_))) + (_%tl2864728673%_ (let () (declare (not safe)) - (##cdr _%e2858228603%_)))) + (##cdr _%e2864528666%_)))) (if (gx#stx-pair? - _%tl2858428610%_) - (let ((_%e2858528613%_ + _%tl2864728673%_) + (let ((_%e2864828676%_ (gx#syntax-e - _%tl2858428610%_))) - (let ((_%hd2858628617%_ + _%tl2864728673%_))) + (let ((_%hd2864928680%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2858528613%_))) - (_%tl2858728620%_ - (let () (declare (not safe)) (##cdr _%e2858528613%_)))) - (if (gx#stx-pair? _%tl2858728620%_) - (let ((_%e2858828623%_ (gx#syntax-e _%tl2858728620%_))) - (let ((_%hd2858928627%_ + (##car _%e2864828676%_))) + (_%tl2865028683%_ + (let () (declare (not safe)) (##cdr _%e2864828676%_)))) + (if (gx#stx-pair? _%tl2865028683%_) + (let ((_%e2865128686%_ (gx#syntax-e _%tl2865028683%_))) + (let ((_%hd2865228690%_ (let () (declare (not safe)) - (##car _%e2858828623%_))) - (_%tl2859028630%_ + (##car _%e2865128686%_))) + (_%tl2865328693%_ (let () (declare (not safe)) - (##cdr _%e2858828623%_)))) - (if (gx#stx-null? _%tl2859028630%_) - ((lambda (_%L28633%_ _%L28635%_) + (##cdr _%e2865128686%_)))) + (if (gx#stx-null? _%tl2865328693%_) + ((lambda (_%L28696%_ _%L28698%_) (cons 'begin-annotation (cons '@match-body - (cons (if (gx#stx-e _%L28635%_) - (_%generate127957%_ - _%L28635%_ - _%L28633%_ - _%E28313%_) - _%L28633%_) + (cons (if (gx#stx-e _%L28698%_) + (_%generate128020%_ + _%L28698%_ + _%L28696%_ + _%E28376%_) + _%L28696%_) '())))) - _%hd2858928627%_ - _%hd2858628617%_) - (_%g2857828596%_ _%g2857928600%_)))) - (_%g2857828596%_ _%g2857928600%_)))) + _%hd2865228690%_ + _%hd2864928680%_) + (_%g2864128659%_ _%g2864228663%_)))) + (_%g2864128659%_ _%g2864228663%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2857828596%_ - _%g2857928600%_)))) - (_%g2857828596%_ - _%g2857928600%_))))) - (_%g2857728651%_ _%L28567%_)))) - (_%__kont3924839249%_ - (lambda (_%L28361%_ _%L28363%_) - (let* ((_%g2837628395%_ - (lambda (_%g2837728391%_) + (_%g2864128659%_ + _%g2864228663%_)))) + (_%g2864128659%_ + _%g2864228663%_))))) + (_%g2864028714%_ _%L28630%_)))) + (_%__kont3931139312%_ + (lambda (_%L28424%_ _%L28426%_) + (let* ((_%g2843928458%_ + (lambda (_%g2844028454%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2837728391%_))) - (_%g2837528546%_ - (lambda (_%g2837728399%_) - (if (gx#stx-pair? _%g2837728399%_) - (let ((_%e2838128402%_ + _%g2844028454%_))) + (_%g2843828609%_ + (lambda (_%g2844028462%_) + (if (gx#stx-pair? _%g2844028462%_) + (let ((_%e2844428465%_ (gx#syntax-e - _%g2837728399%_))) - (let ((_%hd2838228406%_ + _%g2844028462%_))) + (let ((_%hd2844528469%_ (let () (declare (not safe)) - (##car _%e2838128402%_))) - (_%tl2838328409%_ + (##car _%e2844428465%_))) + (_%tl2844628472%_ (let () (declare (not safe)) - (##cdr _%e2838128402%_)))) + (##cdr _%e2844428465%_)))) (if (gx#stx-pair? - _%tl2838328409%_) - (let ((_%e2838428412%_ + _%tl2844628472%_) + (let ((_%e2844728475%_ (gx#syntax-e - _%tl2838328409%_))) - (let ((_%hd2838528416%_ + _%tl2844628472%_))) + (let ((_%hd2844828479%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2838428412%_))) - (_%tl2838628419%_ - (let () (declare (not safe)) (##cdr _%e2838428412%_)))) - (if (gx#stx-pair? _%tl2838628419%_) - (let ((_%e2838728422%_ (gx#syntax-e _%tl2838628419%_))) - (let ((_%hd2838828426%_ + (##car _%e2844728475%_))) + (_%tl2844928482%_ + (let () (declare (not safe)) (##cdr _%e2844728475%_)))) + (if (gx#stx-pair? _%tl2844928482%_) + (let ((_%e2845028485%_ (gx#syntax-e _%tl2844928482%_))) + (let ((_%hd2845128489%_ (let () (declare (not safe)) - (##car _%e2838728422%_))) - (_%tl2838928429%_ + (##car _%e2845028485%_))) + (_%tl2845228492%_ (let () (declare (not safe)) - (##cdr _%e2838728422%_)))) - (if (gx#stx-null? _%tl2838928429%_) - ((lambda (_%L28432%_ _%L28434%_ _%L28435%_) - (if (gx#stx-e _%L28434%_) - (let* ((_%g2845228467%_ - (lambda (_%g2845328463%_) + (##cdr _%e2845028485%_)))) + (if (gx#stx-null? _%tl2845228492%_) + ((lambda (_%L28495%_ _%L28497%_ _%L28498%_) + (if (gx#stx-e _%L28497%_) + (let* ((_%g2851528530%_ + (lambda (_%g2851628526%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2845328463%_))) - (_%g2845128512%_ - (lambda (_%g2845328471%_) + _%g2851628526%_))) + (_%g2851428575%_ + (lambda (_%g2851628534%_) (if (gx#stx-pair? - _%g2845328471%_) - (let ((_%e2845628474%_ + _%g2851628534%_) + (let ((_%e2851928537%_ (gx#syntax-e - _%g2845328471%_))) - (let ((_%hd2845728478%_ + _%g2851628534%_))) + (let ((_%hd2852028541%_ (let () (declare (not safe)) - (##car _%e2845628474%_))) - (_%tl2845828481%_ + (##car _%e2851928537%_))) + (_%tl2852128544%_ (let () (declare (not safe)) - (##cdr _%e2845628474%_)))) + (##cdr _%e2851928537%_)))) (if (gx#stx-pair? - _%tl2845828481%_) - (let ((_%e2845928484%_ + _%tl2852128544%_) + (let ((_%e2852228547%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2845828481%_))) - (let ((_%hd2846028488%_ + (gx#syntax-e _%tl2852128544%_))) + (let ((_%hd2852328551%_ (let () (declare (not safe)) - (##car _%e2845928484%_))) - (_%tl2846128491%_ + (##car _%e2852228547%_))) + (_%tl2852428554%_ (let () (declare (not safe)) - (##cdr _%e2845928484%_)))) - (if (gx#stx-null? _%tl2846128491%_) - ((lambda (_%L28494%_ _%L28496%_) + (##cdr _%e2852228547%_)))) + (if (gx#stx-null? _%tl2852428554%_) + ((lambda (_%L28557%_ _%L28559%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28435%_ + (cons (cons (cons _%L28498%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L28496%_ '()))) + (cons '() (cons _%L28559%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L28494%_ '())))) - _%hd2846028488%_ - _%hd2845728478%_) - (_%g2845228467%_ _%g2845328471%_)))) - (_%g2845228467%_ _%g2845328471%_)))) + (cons _%L28557%_ '())))) + _%hd2852328551%_ + _%hd2852028541%_) + (_%g2851528530%_ _%g2851628534%_)))) + (_%g2851528530%_ _%g2851628534%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2845228467%_ - _%g2845328471%_))))) - (_%g2845128512%_ - (list (_%generate127957%_ - _%L28434%_ - _%L28432%_ - _%E28313%_) - (_%generate-clauses27956%_ - _%L28361%_ - (cons _%L28435%_ '()))))) - (let* ((_%g2851628524%_ - (lambda (_%g2851728520%_) + (_%g2851528530%_ + _%g2851628534%_))))) + (_%g2851428575%_ + (list (_%generate128020%_ + _%L28497%_ + _%L28495%_ + _%E28376%_) + (_%generate-clauses28019%_ + _%L28424%_ + (cons _%L28498%_ '()))))) + (let* ((_%g2857928587%_ + (lambda (_%g2858028583%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2851728520%_))) - (_%g2851528542%_ - (lambda (_%g2851728528%_) - ((lambda (_%L28531%_) + _%g2858028583%_))) + (_%g2857828605%_ + (lambda (_%g2858028591%_) + ((lambda (_%L28594%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L28435%_ + (cons (cons (cons _%L28498%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -4923,1712 +4923,1712 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28432%_ '()))) + (cons _%L28495%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L28531%_ '())))) + (cons _%L28594%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2851728528%_)))) - (_%g2851528542%_ - (_%generate-clauses27956%_ - _%L28361%_ - (cons _%L28435%_ '())))))) - _%hd2838828426%_ - _%hd2838528416%_ - _%hd2838228406%_) - (_%g2837628395%_ _%g2837728399%_)))) - (_%g2837628395%_ _%g2837728399%_)))) + _%g2858028591%_)))) + (_%g2857828605%_ + (_%generate-clauses28019%_ + _%L28424%_ + (cons _%L28498%_ '())))))) + _%hd2845128489%_ + _%hd2844828479%_ + _%hd2844528469%_) + (_%g2843928458%_ _%g2844028462%_)))) + (_%g2843928458%_ _%g2844028462%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2837628395%_ - _%g2837728399%_)))) - (_%g2837628395%_ - _%g2837728399%_))))) - (_%g2837528546%_ _%L28363%_)))) - (_%__kont3925039251%_ + (_%g2843928458%_ + _%g2844028462%_)))) + (_%g2843928458%_ + _%g2844028462%_))))) + (_%g2843828609%_ _%L28426%_)))) + (_%__kont3931339314%_ (lambda () (cons 'begin-annotation (cons '@match-body - (cons _%E28313%_ '())))))) - (if (gx#stx-pair? _%__stx3924339244%_) - (let ((_%e2832028557%_ - (gx#syntax-e _%__stx3924339244%_))) - (let ((_%tl2832228564%_ + (cons _%E28376%_ '())))))) + (if (gx#stx-pair? _%__stx3930639307%_) + (let ((_%e2838328620%_ + (gx#syntax-e _%__stx3930639307%_))) + (let ((_%tl2838528627%_ (let () (declare (not safe)) - (##cdr _%e2832028557%_))) - (_%hd2832128561%_ + (##cdr _%e2838328620%_))) + (_%hd2838428624%_ (let () (declare (not safe)) - (##car _%e2832028557%_)))) - (if (gx#stx-null? _%tl2832228564%_) - (_%__kont3924639247%_ _%hd2832128561%_) - (_%__kont3924839249%_ - _%tl2832228564%_ - _%hd2832128561%_)))) - (_%__kont3925039251%_)))))) - (_%generate127957%_ - (lambda (_%clause27959%_ _%body27961%_ _%E27962%_) - (let* ((_%g2796427988%_ - (lambda (_%g2796527984%_) + (##car _%e2838328620%_)))) + (if (gx#stx-null? _%tl2838528627%_) + (_%__kont3930939310%_ _%hd2838428624%_) + (_%__kont3931139312%_ + _%tl2838528627%_ + _%hd2838428624%_)))) + (_%__kont3931339314%_)))))) + (_%generate128020%_ + (lambda (_%clause28022%_ _%body28024%_ _%E28025%_) + (let* ((_%g2802728051%_ + (lambda (_%g2802828047%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2796527984%_))) - (_%g2796328307%_ - (lambda (_%g2796527992%_) - (if (gx#stx-pair? _%g2796527992%_) - (let ((_%e2796827995%_ - (gx#syntax-e _%g2796527992%_))) - (let ((_%hd2796927999%_ + _%g2802828047%_))) + (_%g2802628370%_ + (lambda (_%g2802828055%_) + (if (gx#stx-pair? _%g2802828055%_) + (let ((_%e2803128058%_ + (gx#syntax-e _%g2802828055%_))) + (let ((_%hd2803228062%_ (let () (declare (not safe)) - (##car _%e2796827995%_))) - (_%tl2797028002%_ + (##car _%e2803128058%_))) + (_%tl2803328065%_ (let () (declare (not safe)) - (##cdr _%e2796827995%_)))) - (if (gx#stx-pair? _%tl2797028002%_) - (let ((_%e2797128005%_ + (##cdr _%e2803128058%_)))) + (if (gx#stx-pair? _%tl2803328065%_) + (let ((_%e2803428068%_ (gx#syntax-e - _%tl2797028002%_))) - (let ((_%hd2797228009%_ + _%tl2803328065%_))) + (let ((_%hd2803528072%_ (let () (declare (not safe)) - (##car _%e2797128005%_))) - (_%tl2797328012%_ + (##car _%e2803428068%_))) + (_%tl2803628075%_ (let () (declare (not safe)) - (##cdr _%e2797128005%_)))) + (##cdr _%e2803428068%_)))) (if (gx#stx-pair/null? - _%hd2797228009%_) - (let ((_g39906_ + _%hd2803528072%_) + (let ((_g39969_ (gx#syntax-split-splice - _%hd2797228009%_ + _%hd2803528072%_ '0))) (begin - (let ((_g39907_ + (let ((_g39970_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (if (##values? _g39906_) - (##vector-length _g39906_) + (if (##values? _g39969_) + (##values-length _g39969_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g39907_ 2))) - (error "Context expects 2 values" _g39907_))) - (let ((_%target2797428015%_ - (let () (declare (not safe)) (##vector-ref _g39906_ 0))) - (_%tl2797628018%_ - (let () (declare (not safe)) (##vector-ref _g39906_ 1)))) - (if (gx#stx-null? _%tl2797628018%_) - (letrec ((_%loop2797728021%_ - (lambda (_%hd2797528025%_ _%var2798128028%_) - (if (gx#stx-pair? _%hd2797528025%_) - (let ((_%e2797828031%_ - (gx#syntax-e _%hd2797528025%_))) - (let ((_%lp-hd2797928035%_ + (if (not (let () (declare (not safe)) (##fx= _g39970_ 2))) + (error "Context expects 2 values" _g39970_))) + (let ((_%target2803728078%_ + (let () (declare (not safe)) (##values-ref _g39969_ 0))) + (_%tl2803928081%_ + (let () (declare (not safe)) (##values-ref _g39969_ 1)))) + (if (gx#stx-null? _%tl2803928081%_) + (letrec ((_%loop2804028084%_ + (lambda (_%hd2803828088%_ _%var2804428091%_) + (if (gx#stx-pair? _%hd2803828088%_) + (let ((_%e2804128094%_ + (gx#syntax-e _%hd2803828088%_))) + (let ((_%lp-hd2804228098%_ (let () (declare (not safe)) - (##car _%e2797828031%_))) - (_%lp-tl2798028038%_ + (##car _%e2804128094%_))) + (_%lp-tl2804328101%_ (let () (declare (not safe)) - (##cdr _%e2797828031%_)))) - (_%loop2797728021%_ - _%lp-tl2798028038%_ - (cons _%lp-hd2797928035%_ - _%var2798128028%_)))) - (let ((_%var2798228041%_ - (reverse _%var2798128028%_))) - (if (gx#stx-null? _%tl2797328012%_) - ((lambda (_%L28045%_ _%L28047%_) + (##cdr _%e2804128094%_)))) + (_%loop2804028084%_ + _%lp-tl2804328101%_ + (cons _%lp-hd2804228098%_ + _%var2804428091%_)))) + (let ((_%var2804528104%_ + (reverse _%var2804428091%_))) + (if (gx#stx-null? _%tl2803628075%_) + ((lambda (_%L28108%_ _%L28110%_) (let () (gx#check-duplicate-identifiers - (foldr (lambda (_%g2806828071%_ - _%g2806928074%_) - (cons _%g2806828071%_ - _%g2806928074%_)) + (foldr (lambda (_%g2813128134%_ + _%g2813228137%_) + (cons _%g2813128134%_ + _%g2813228137%_)) '() - _%L28045%_) - _%stx27948%_) - (let* ((_%g2807728085%_ - (lambda (_%g2807828081%_) + _%L28108%_) + _%stx28011%_) + (let* ((_%g2814028148%_ + (lambda (_%g2814128144%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2807828081%_))) - (_%g2807628179%_ - (lambda (_%g2807828089%_) - ((lambda (_%L28092%_) - (let* ((_%g2810528113%_ + _%g2814128144%_))) + (_%g2813928242%_ + (lambda (_%g2814128152%_) + ((lambda (_%L28155%_) + (let* ((_%g2816828176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2810628109%_) + (lambda (_%g2816928172%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2810628109%_))) - (_%g2810428175%_ - (lambda (_%g2810628117%_) - ((lambda (_%L28120%_) - (let* ((_%g2813328141%_ - (lambda (_%g2813428137%_) + _%g2816928172%_))) + (_%g2816728238%_ + (lambda (_%g2816928180%_) + ((lambda (_%L28183%_) + (let* ((_%g2819628204%_ + (lambda (_%g2819728200%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2813428137%_))) - (_%g2813228163%_ - (lambda (_%g2813428145%_) - ((lambda (_%L28148%_) + _%g2819728200%_))) + (_%g2819528226%_ + (lambda (_%g2819728208%_) + ((lambda (_%L28211%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L28047%_ + (cons (cons _%L28110%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L28148%_ '())) - (cons _%L28092%_ '()))) + (cons _%L28211%_ '())) + (cons _%L28155%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx27948%_))) - _%g2813428145%_)))) - (_%g2813228163%_ + (gx#stx-source _%stx28011%_))) + _%g2819728208%_)))) + (_%g2819528226%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g2816628169%_ + (cons (foldr (lambda (_%g2822928232%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2816728172%_) - (cons _%g2816628169%_ _%g2816728172%_)) + _%g2823028235%_) + (cons _%g2822928232%_ _%g2823028235%_)) '() - _%L28045%_) + _%L28108%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L28120%_ '()))) - (gx#stx-source _%stx27948%_))))) - _%g2810628117%_)))) - (_%g2810428175%_ _%body27961%_))) - _%g2807828089%_)))) + (cons _%L28183%_ '()))) + (gx#stx-source _%stx28011%_))))) + _%g2816928180%_)))) + (_%g2816728238%_ _%body28024%_))) + _%g2814128152%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2807628179%_ - (let _%recur28183%_ ((_%rest28186%_ + (_%g2813928242%_ + (let _%recur28246%_ ((_%rest28249%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause27959%_) - (_%rest-targets28188%_ _%tgt-lst27950%_)) + _%clause28022%_) + (_%rest-targets28251%_ _%tgt-lst28013%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__stx3926939270%_ - _%rest28186%_) - (_%g2819128203%_ + (let* ((_%__stx3933239333%_ + _%rest28249%_) + (_%g2825428266%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3926939270%_)))) - (let ((_%__kont3927239273%_ - (lambda (_%L28239%_ + _%__stx3933239333%_)))) + (let ((_%__kont3933539336%_ + (lambda (_%L28302%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L28241%_) - (let* ((_%g2825628268%_ - (lambda (_%g2825728264%_) + _%L28304%_) + (let* ((_%g2831928331%_ + (lambda (_%g2832028327%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2825728264%_))) - (_%g2825528299%_ - (lambda (_%g2825728272%_) - (if (gx#stx-pair? _%g2825728272%_) - (let ((_%e2826028275%_ - (gx#syntax-e _%g2825728272%_))) - (let ((_%hd2826128279%_ + _%g2832028327%_))) + (_%g2831828362%_ + (lambda (_%g2832028335%_) + (if (gx#stx-pair? _%g2832028335%_) + (let ((_%e2832328338%_ + (gx#syntax-e _%g2832028335%_))) + (let ((_%hd2832428342%_ (let () (declare (not safe)) - (##car _%e2826028275%_))) - (_%tl2826228282%_ + (##car _%e2832328338%_))) + (_%tl2832528345%_ (let () (declare (not safe)) - (##cdr _%e2826028275%_)))) - ((lambda (_%L28285%_ _%L28287%_) + (##cdr _%e2832328338%_)))) + ((lambda (_%L28348%_ _%L28350%_) (|gerbil/core/match[1]#generate-match1| - _%stx27948%_ - _%L28287%_ - _%L28241%_ - (_%recur28183%_ - _%L28239%_ - _%L28285%_) - _%E27962%_)) - _%tl2826228282%_ - _%hd2826128279%_))) - (_%g2825628268%_ _%g2825728272%_))))) - (_%g2825528299%_ _%rest-targets28188%_)))) - (_%__kont3927439275%_ + _%stx28011%_ + _%L28350%_ + _%L28304%_ + (_%recur28246%_ + _%L28302%_ + _%L28348%_) + _%E28025%_)) + _%tl2832528345%_ + _%hd2832428342%_))) + (_%g2831928331%_ _%g2832028335%_))))) + (_%g2831828362%_ _%rest-targets28251%_)))) + (_%__kont3933739338%_ (lambda () - (cons _%L28047%_ - (foldr (lambda (_%g2821328216%_ _%g2821428219%_) - (cons _%g2821328216%_ _%g2821428219%_)) + (cons _%L28110%_ + (foldr (lambda (_%g2827628279%_ _%g2827728282%_) + (cons _%g2827628279%_ _%g2827728282%_)) '() - _%L28045%_))))) - (if (gx#stx-pair? _%__stx3926939270%_) - (let ((_%e2819528229%_ (gx#syntax-e _%__stx3926939270%_))) - (let ((_%tl2819728236%_ + _%L28108%_))))) + (if (gx#stx-pair? _%__stx3933239333%_) + (let ((_%e2825828292%_ (gx#syntax-e _%__stx3933239333%_))) + (let ((_%tl2826028299%_ (let () (declare (not safe)) - (##cdr _%e2819528229%_))) - (_%hd2819628233%_ + (##cdr _%e2825828292%_))) + (_%hd2825928296%_ (let () (declare (not safe)) - (##car _%e2819528229%_)))) - (_%__kont3927239273%_ - _%tl2819728236%_ - _%hd2819628233%_))) - (_%__kont3927439275%_))))))))) + (##car _%e2825828292%_)))) + (_%__kont3933539336%_ + _%tl2826028299%_ + _%hd2825928296%_))) + (_%__kont3933739338%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%var2798228041%_ - _%hd2796927999%_) - (_%g2796427988%_ - _%g2796527992%_))))))) - (_%loop2797728021%_ _%target2797428015%_ '())) - (_%g2796427988%_ _%g2796527992%_))))) + _%var2804528104%_ + _%hd2803228062%_) + (_%g2802728051%_ + _%g2802828055%_))))))) + (_%loop2804028084%_ _%target2803728078%_ '())) + (_%g2802728051%_ _%g2802828055%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2796427988%_ - _%g2796527992%_)))) - (_%g2796427988%_ _%g2796527992%_)))) - (_%g2796427988%_ _%g2796527992%_))))) - (_%g2796328307%_ + (_%g2802728051%_ + _%g2802828055%_)))) + (_%g2802728051%_ _%g2802828055%_)))) + (_%g2802728051%_ _%g2802828055%_))))) + (_%g2802628370%_ (list (gx#genident 'K) - (let ((__tmp39908 + (let ((__tmp39971 (map |gerbil/core/match[1]#match-pattern-vars| - _%clause27959%_))) + _%clause28022%_))) (declare (not safe)) - (##apply append __tmp39908)))))))) - (_%generate-body27955%_ - (_%parse-body27953%_ (gx#stx-length _%tgt-lst27950%_)))))) + (##apply append __tmp39971)))))))) + (_%generate-body28018%_ + (_%parse-body28016%_ (gx#stx-length _%tgt-lst28013%_)))))) (define |gerbil/core/match[1]#generate-match| - (lambda (_%stx27850%_ _%tgt27852%_ _%clauses27853%_) - (letrec ((_%reclause27855%_ - (lambda (_%clause27858%_) - (let* ((_%__stx3928539286%_ _%clause27858%_) - (_%g2786327878%_ + (lambda (_%stx27913%_ _%tgt27915%_ _%clauses27916%_) + (letrec ((_%reclause27918%_ + (lambda (_%clause27921%_) + (let* ((_%__stx3934839349%_ _%clause27921%_) + (_%g2792627941%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3928539286%_)))) - (let ((_%__kont3928839289%_ (lambda () _%clause27858%_)) - (_%__kont3929039291%_ - (lambda (_%L27906%_ _%L27908%_) + _%__stx3934839349%_)))) + (let ((_%__kont3935139352%_ (lambda () _%clause27921%_)) + (_%__kont3935339354%_ + (lambda (_%L27969%_ _%L27971%_) (gx#stx-wrap-source - (cons (cons _%L27908%_ '()) _%L27906%_) + (cons (cons _%L27971%_ '()) _%L27969%_) (gx#stx-source (gx#datum->syntax '#f 'clause))))) - (_%__kont3929239293%_ + (_%__kont3935539356%_ (lambda () (gx#raise-syntax-error '#f '"bad syntax; illegal match clause" - _%stx27850%_ - _%clause27858%_)))) - (if (gx#stx-pair? _%__stx3928539286%_) - (let ((_%e2786527930%_ - (gx#syntax-e _%__stx3928539286%_))) - (let ((_%tl2786727937%_ + _%stx27913%_ + _%clause27921%_)))) + (if (gx#stx-pair? _%__stx3934839349%_) + (let ((_%e2792827993%_ + (gx#syntax-e _%__stx3934839349%_))) + (let ((_%tl2793028000%_ (let () (declare (not safe)) - (##cdr _%e2786527930%_))) - (_%hd2786627934%_ + (##cdr _%e2792827993%_))) + (_%hd2792927997%_ (let () (declare (not safe)) - (##car _%e2786527930%_)))) - (if (gx#identifier? _%hd2786627934%_) + (##car _%e2792827993%_)))) + (if (gx#identifier? _%hd2792927997%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39909_| - _%hd2786627934%_) - (_%__kont3928839289%_) - (_%__kont3929039291%_ - _%tl2786727937%_ - _%hd2786627934%_)) - (_%__kont3929039291%_ - _%tl2786727937%_ - _%hd2786627934%_)))) - (_%__kont3929239293%_))))))) + |gerbil/core/match[1]#_g39972_| + _%hd2792927997%_) + (_%__kont3935139352%_) + (_%__kont3935339354%_ + _%tl2793028000%_ + _%hd2792927997%_)) + (_%__kont3935339354%_ + _%tl2793028000%_ + _%hd2792927997%_)))) + (_%__kont3935539356%_))))))) (|gerbil/core/match[1]#generate-match*| - _%stx27850%_ - (cons _%tgt27852%_ '()) - (gx#stx-map _%reclause27855%_ _%clauses27853%_))))) + _%stx27913%_ + (cons _%tgt27915%_ '()) + (gx#stx-map _%reclause27918%_ _%clauses27916%_))))) (define |gerbil/core/match[:0:]#match| - (lambda (_%stx35186%_) - (let* ((_%__stx3931339314%_ _%stx35186%_) - (_%g3519135220%_ + (lambda (_%stx35249%_) + (let* ((_%__stx3937639377%_ _%stx35249%_) + (_%g3525435283%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3931339314%_)))) - (let ((_%__kont3931639317%_ - (lambda (_%L35460%_) - (let* ((_%g3547335481%_ - (lambda (_%g3547435477%_) + _%__stx3937639377%_)))) + (let ((_%__kont3937939380%_ + (lambda (_%L35523%_) + (let* ((_%g3553635544%_ + (lambda (_%g3553735540%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3547435477%_))) - (_%g3547235534%_ - (lambda (_%g3547435485%_) - ((lambda (_%L35488%_) - (let* ((_%g3550035508%_ - (lambda (_%g3550135504%_) + _%g3553735540%_))) + (_%g3553535597%_ + (lambda (_%g3553735548%_) + ((lambda (_%L35551%_) + (let* ((_%g3556335571%_ + (lambda (_%g3556435567%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3550135504%_))) - (_%g3549935530%_ - (lambda (_%g3550135512%_) - ((lambda (_%L35515%_) + _%g3556435567%_))) + (_%g3556235593%_ + (lambda (_%g3556435575%_) + ((lambda (_%L35578%_) (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L35488%_ '()) - (cons _%L35515%_ + (cons (cons _%L35551%_ '()) + (cons _%L35578%_ '())))) - _%g3550135512%_)))) - (_%g3549935530%_ + _%g3556435575%_)))) + (_%g3556235593%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35488%_ _%L35460%_)) - (gx#stx-source _%stx35186%_))))) - _%g3547435485%_)))) - (_%g3547235534%_ (gx#genident 'e))))) - (_%__kont3931839319%_ - (lambda (_%L35355%_) - (let* ((_%g3536835376%_ - (lambda (_%g3536935372%_) + (cons _%L35551%_ _%L35523%_)) + (gx#stx-source _%stx35249%_))))) + _%g3553735548%_)))) + (_%g3553535597%_ (gx#genident 'e))))) + (_%__kont3938139382%_ + (lambda (_%L35418%_) + (let* ((_%g3543135439%_ + (lambda (_%g3543235435%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3536935372%_))) - (_%g3536735429%_ - (lambda (_%g3536935380%_) - ((lambda (_%L35383%_) - (let* ((_%g3539535403%_ - (lambda (_%g3539635399%_) + _%g3543235435%_))) + (_%g3543035492%_ + (lambda (_%g3543235443%_) + ((lambda (_%L35446%_) + (let* ((_%g3545835466%_ + (lambda (_%g3545935462%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3539635399%_))) - (_%g3539435425%_ - (lambda (_%g3539635407%_) - ((lambda (_%L35410%_) + _%g3545935462%_))) + (_%g3545735488%_ + (lambda (_%g3545935470%_) + ((lambda (_%L35473%_) (cons (gx#datum->syntax '#f 'lambda) - (cons _%L35383%_ - (cons _%L35410%_ + (cons _%L35446%_ + (cons _%L35473%_ '())))) - _%g3539635407%_)))) - (_%g3539435425%_ + _%g3545935470%_)))) + (_%g3545735488%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'match) - (cons _%L35383%_ _%L35355%_)) - (gx#stx-source _%stx35186%_))))) - _%g3536935380%_)))) - (_%g3536735429%_ (gx#genident 'args))))) - (_%__kont3932039321%_ - (lambda (_%L35247%_ _%L35249%_) - (let* ((_%g3526335271%_ - (lambda (_%g3526435267%_) + (cons _%L35446%_ _%L35418%_)) + (gx#stx-source _%stx35249%_))))) + _%g3543235443%_)))) + (_%g3543035492%_ (gx#genident 'args))))) + (_%__kont3938339384%_ + (lambda (_%L35310%_ _%L35312%_) + (let* ((_%g3532635334%_ + (lambda (_%g3532735330%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3526435267%_))) - (_%g3526235324%_ - (lambda (_%g3526435275%_) - ((lambda (_%L35278%_) - (let* ((_%g3529035298%_ - (lambda (_%g3529135294%_) + _%g3532735330%_))) + (_%g3532535387%_ + (lambda (_%g3532735338%_) + ((lambda (_%L35341%_) + (let* ((_%g3535335361%_ + (lambda (_%g3535435357%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3529135294%_))) - (_%g3528935320%_ - (lambda (_%g3529135302%_) - ((lambda (_%L35305%_) + _%g3535435357%_))) + (_%g3535235383%_ + (lambda (_%g3535435365%_) + ((lambda (_%L35368%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L35278%_ + (cons (cons (cons _%L35341%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L35249%_ '())) + (cons _%L35312%_ '())) '()) - (cons _%L35305%_ '())))) + (cons _%L35368%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3529135302%_)))) - (_%g3528935320%_ + _%g3535435365%_)))) + (_%g3535235383%_ (|gerbil/core/match[1]#generate-match| - _%stx35186%_ - _%L35278%_ - _%L35247%_)))) - _%g3526435275%_)))) - (_%g3526235324%_ (gx#genident _%L35249%_)))))) - (let* ((_%__match3936639367%_ - (lambda (_%e3520935227%_ - _%hd3521035231%_ - _%tl3521135234%_ - _%e3521235237%_ - _%hd3521335241%_ - _%tl3521435244%_) - (let ((_%L35247%_ _%tl3521435244%_) - (_%L35249%_ _%hd3521335241%_)) - (if (gx#stx-list? _%L35247%_) - (_%__kont3932039321%_ _%L35247%_ _%L35249%_) - (let () (declare (not safe)) (_%g3519135220%_)))))) - (_%__match3935439355%_ - (lambda (_%e3520135335%_ - _%hd3520235339%_ - _%tl3520335342%_ - _%e3520435345%_ - _%hd3520535349%_ - _%tl3520635352%_) - (let ((_%L35355%_ _%tl3520635352%_)) - (if (gx#stx-list? _%L35355%_) - (_%__kont3931839319%_ _%L35355%_) - (_%__match3936639367%_ - _%e3520135335%_ - _%hd3520235339%_ - _%tl3520335342%_ - _%e3520435345%_ - _%hd3520535349%_ - _%tl3520635352%_))))) - (_%__match3933839339%_ - (lambda (_%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_) - (let ((_%L35460%_ _%tl3519935457%_)) - (if (gx#stx-list? _%L35460%_) - (_%__kont3931639317%_ _%L35460%_) - (_%__match3936639367%_ - _%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_)))))) - (if (gx#stx-pair? _%__stx3931339314%_) - (let ((_%e3519435440%_ (gx#syntax-e _%__stx3931339314%_))) - (let ((_%tl3519635447%_ + _%stx35249%_ + _%L35341%_ + _%L35310%_)))) + _%g3532735338%_)))) + (_%g3532535387%_ (gx#genident _%L35312%_)))))) + (let* ((_%__match3942939430%_ + (lambda (_%e3527235290%_ + _%hd3527335294%_ + _%tl3527435297%_ + _%e3527535300%_ + _%hd3527635304%_ + _%tl3527735307%_) + (let ((_%L35310%_ _%tl3527735307%_) + (_%L35312%_ _%hd3527635304%_)) + (if (gx#stx-list? _%L35310%_) + (_%__kont3938339384%_ _%L35310%_ _%L35312%_) + (let () (declare (not safe)) (_%g3525435283%_)))))) + (_%__match3941739418%_ + (lambda (_%e3526435398%_ + _%hd3526535402%_ + _%tl3526635405%_ + _%e3526735408%_ + _%hd3526835412%_ + _%tl3526935415%_) + (let ((_%L35418%_ _%tl3526935415%_)) + (if (gx#stx-list? _%L35418%_) + (_%__kont3938139382%_ _%L35418%_) + (_%__match3942939430%_ + _%e3526435398%_ + _%hd3526535402%_ + _%tl3526635405%_ + _%e3526735408%_ + _%hd3526835412%_ + _%tl3526935415%_))))) + (_%__match3940139402%_ + (lambda (_%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) + (let ((_%L35523%_ _%tl3526235520%_)) + (if (gx#stx-list? _%L35523%_) + (_%__kont3937939380%_ _%L35523%_) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_)))))) + (if (gx#stx-pair? _%__stx3937639377%_) + (let ((_%e3525735503%_ (gx#syntax-e _%__stx3937639377%_))) + (let ((_%tl3525935510%_ (let () (declare (not safe)) - (##cdr _%e3519435440%_))) - (_%hd3519535444%_ + (##cdr _%e3525735503%_))) + (_%hd3525835507%_ (let () (declare (not safe)) - (##car _%e3519435440%_)))) - (if (gx#stx-pair? _%tl3519635447%_) - (let ((_%e3519735450%_ - (gx#syntax-e _%tl3519635447%_))) - (let ((_%tl3519935457%_ + (##car _%e3525735503%_)))) + (if (gx#stx-pair? _%tl3525935510%_) + (let ((_%e3526035513%_ + (gx#syntax-e _%tl3525935510%_))) + (let ((_%tl3526235520%_ (let () (declare (not safe)) - (##cdr _%e3519735450%_))) - (_%hd3519835454%_ + (##cdr _%e3526035513%_))) + (_%hd3526135517%_ (let () (declare (not safe)) - (##car _%e3519735450%_)))) - (if (gx#identifier? _%hd3519835454%_) + (##car _%e3526035513%_)))) + (if (gx#identifier? _%hd3526135517%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39910_| - _%hd3519835454%_) - (_%__match3933839339%_ - _%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_) + |gerbil/core/match[1]#_g39973_| + _%hd3526135517%_) + (_%__match3940139402%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39911_| - _%hd3519835454%_) - (_%__match3935439355%_ - _%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_) - (_%__match3936639367%_ - _%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_))) - (_%__match3936639367%_ - _%e3519435440%_ - _%hd3519535444%_ - _%tl3519635447%_ - _%e3519735450%_ - _%hd3519835454%_ - _%tl3519935457%_)))) - (let () (declare (not safe)) (_%g3519135220%_))))) - (let () (declare (not safe)) (_%g3519135220%_)))))))) + |gerbil/core/match[1]#_g39974_| + _%hd3526135517%_) + (_%__match3941739418%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_))) + (_%__match3942939430%_ + _%e3525735503%_ + _%hd3525835507%_ + _%tl3525935510%_ + _%e3526035513%_ + _%hd3526135517%_ + _%tl3526235520%_)))) + (let () (declare (not safe)) (_%g3525435283%_))))) + (let () (declare (not safe)) (_%g3525435283%_)))))))) (define |gerbil/core/match[:0:]#match*| - (lambda (_%stx35542%_) - (let* ((_%g3554535569%_ - (lambda (_%g3554635565%_) + (lambda (_%stx35605%_) + (let* ((_%g3560835632%_ + (lambda (_%g3560935628%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3554635565%_))) - (_%g3554435781%_ - (lambda (_%g3554635573%_) - (if (gx#stx-pair? _%g3554635573%_) - (let ((_%e3554935576%_ (gx#syntax-e _%g3554635573%_))) - (let ((_%hd3555035580%_ + _%g3560935628%_))) + (_%g3560735844%_ + (lambda (_%g3560935636%_) + (if (gx#stx-pair? _%g3560935636%_) + (let ((_%e3561235639%_ (gx#syntax-e _%g3560935636%_))) + (let ((_%hd3561335643%_ (let () (declare (not safe)) - (##car _%e3554935576%_))) - (_%tl3555135583%_ + (##car _%e3561235639%_))) + (_%tl3561435646%_ (let () (declare (not safe)) - (##cdr _%e3554935576%_)))) - (if (gx#stx-pair? _%tl3555135583%_) - (let ((_%e3555235586%_ - (gx#syntax-e _%tl3555135583%_))) - (let ((_%hd3555335590%_ + (##cdr _%e3561235639%_)))) + (if (gx#stx-pair? _%tl3561435646%_) + (let ((_%e3561535649%_ + (gx#syntax-e _%tl3561435646%_))) + (let ((_%hd3561635653%_ (let () (declare (not safe)) - (##car _%e3555235586%_))) - (_%tl3555435593%_ + (##car _%e3561535649%_))) + (_%tl3561735656%_ (let () (declare (not safe)) - (##cdr _%e3555235586%_)))) - (if (gx#stx-pair/null? _%hd3555335590%_) - (let ((_g39912_ + (##cdr _%e3561535649%_)))) + (if (gx#stx-pair/null? _%hd3561635653%_) + (let ((_g39975_ (gx#syntax-split-splice - _%hd3555335590%_ + _%hd3561635653%_ '0))) (begin - (let ((_g39913_ + (let ((_g39976_ (let () (declare (not safe)) - (if (##values? _g39912_) - (##vector-length - _g39912_) + (if (##values? _g39975_) + (##values-length + _g39975_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g39913_ 2))) + (##fx= _g39976_ 2))) (error "Context expects 2 values" - _g39913_))) - (let ((_%target3555535596%_ + _g39976_))) + (let ((_%target3561835659%_ (let () (declare (not safe)) - (##vector-ref _g39912_ 0))) - (_%tl3555735599%_ + (##values-ref _g39975_ 0))) + (_%tl3562035662%_ (let () (declare (not safe)) - (##vector-ref _g39912_ 1)))) - (if (gx#stx-null? _%tl3555735599%_) - (letrec ((_%loop3555835602%_ - (lambda (_%hd3555635606%_ + (##values-ref _g39975_ 1)))) + (if (gx#stx-null? _%tl3562035662%_) + (letrec ((_%loop3562135665%_ + (lambda (_%hd3561935669%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e3556235609%_) - (if (gx#stx-pair? _%hd3555635606%_) - (let ((_%e3555935612%_ (gx#syntax-e _%hd3555635606%_))) - (let ((_%lp-hd3556035616%_ + _%e3562535672%_) + (if (gx#stx-pair? _%hd3561935669%_) + (let ((_%e3562235675%_ (gx#syntax-e _%hd3561935669%_))) + (let ((_%lp-hd3562335679%_ (let () (declare (not safe)) - (##car _%e3555935612%_))) - (_%lp-tl3556135619%_ + (##car _%e3562235675%_))) + (_%lp-tl3562435682%_ (let () (declare (not safe)) - (##cdr _%e3555935612%_)))) - (_%loop3555835602%_ - _%lp-tl3556135619%_ - (cons _%lp-hd3556035616%_ _%e3556235609%_)))) - (let ((_%e3556335622%_ (reverse _%e3556235609%_))) - ((lambda (_%L35626%_ _%L35628%_) - (if (gx#stx-list? _%L35626%_) - (let* ((_%g3564635663%_ - (lambda (_%g3564735659%_) + (##cdr _%e3562235675%_)))) + (_%loop3562135665%_ + _%lp-tl3562435682%_ + (cons _%lp-hd3562335679%_ _%e3562535672%_)))) + (let ((_%e3562635685%_ (reverse _%e3562535672%_))) + ((lambda (_%L35689%_ _%L35691%_) + (if (gx#stx-list? _%L35689%_) + (let* ((_%g3570935726%_ + (lambda (_%g3571035722%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3564735659%_))) - (_%g3564535769%_ - (lambda (_%g3564735667%_) + _%g3571035722%_))) + (_%g3570835832%_ + (lambda (_%g3571035730%_) (if (gx#stx-pair/null? - _%g3564735667%_) - (let ((_g39914_ + _%g3571035730%_) + (let ((_g39977_ (gx#syntax-split-splice - _%g3564735667%_ + _%g3571035730%_ '0))) (begin - (let ((_g39915_ + (let ((_g39978_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g39914_) - (##vector-length _g39914_) + _g39977_) + (##values-length _g39977_) 1)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g39915_ 2))) - (error "Context expects 2 values" _g39915_))) + (##fx= _g39978_ 2))) + (error "Context expects 2 values" _g39978_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target3564935670%_ + (let ((_%target3571235733%_ (let () (declare (not safe)) - (##vector-ref - _g39914_ + (##values-ref + _g39977_ 0))) - (_%tl3565135673%_ + (_%tl3571435736%_ (let () (declare (not safe)) - (##vector-ref - _g39914_ + (##values-ref + _g39977_ 1)))) (if (gx#stx-null? - _%tl3565135673%_) - (letrec ((_%loop3565235676%_ + _%tl3571435736%_) + (letrec ((_%loop3571535739%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd3565035680%_ _%$e3565635683%_) - (if (gx#stx-pair? _%hd3565035680%_) - (let ((_%e3565335686%_ - (gx#syntax-e _%hd3565035680%_))) - (let ((_%lp-hd3565435690%_ + (lambda (_%hd3571335743%_ _%$e3571935746%_) + (if (gx#stx-pair? _%hd3571335743%_) + (let ((_%e3571635749%_ + (gx#syntax-e _%hd3571335743%_))) + (let ((_%lp-hd3571735753%_ (let () (declare (not safe)) - (##car _%e3565335686%_))) - (_%lp-tl3565535693%_ + (##car _%e3571635749%_))) + (_%lp-tl3571835756%_ (let () (declare (not safe)) - (##cdr _%e3565335686%_)))) - (_%loop3565235676%_ - _%lp-tl3565535693%_ - (cons _%lp-hd3565435690%_ - _%$e3565635683%_)))) - (let ((_%$e3565735696%_ - (reverse _%$e3565635683%_))) - ((lambda (_%L35700%_) - (let* ((_%g3571635724%_ - (lambda (_%g3571735720%_) + (##cdr _%e3571635749%_)))) + (_%loop3571535739%_ + _%lp-tl3571835756%_ + (cons _%lp-hd3571735753%_ + _%$e3571935746%_)))) + (let ((_%$e3572035759%_ + (reverse _%$e3571935746%_))) + ((lambda (_%L35763%_) + (let* ((_%g3577935787%_ + (lambda (_%g3578035783%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3571735720%_))) - (_%g3571535757%_ - (lambda (_%g3571735728%_) - ((lambda (_%L35731%_) + _%g3578035783%_))) + (_%g3577835820%_ + (lambda (_%g3578035791%_) + ((lambda (_%L35794%_) (cons (gx#datum->syntax '#f 'let) (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-check-splice-targets _%L35628%_ _%L35700%_) - (foldr (lambda (_%g3574535749%_ - _%g3574635752%_ - _%g3574735754%_) - (cons (cons _%g3574635752%_ - (cons _%g3574535749%_ '())) - _%g3574735754%_)) + (gx#syntax-check-splice-targets _%L35691%_ _%L35763%_) + (foldr (lambda (_%g3580835812%_ + _%g3580935815%_ + _%g3581035817%_) + (cons (cons _%g3580935815%_ + (cons _%g3580835812%_ '())) + _%g3581035817%_)) '() - _%L35628%_ - _%L35700%_)) - (cons _%L35731%_ '())))) + _%L35691%_ + _%L35763%_)) + (cons _%L35794%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g3571735728%_)))) - (_%g3571535757%_ + _%g3578035791%_)))) + (_%g3577835820%_ (|gerbil/core/match[1]#generate-match*| - _%stx35542%_ - (foldr (lambda (_%g3576035763%_ - _%g3576135766%_) - (cons _%g3576035763%_ - _%g3576135766%_)) + _%stx35605%_ + (foldr (lambda (_%g3582335826%_ + _%g3582435829%_) + (cons _%g3582335826%_ + _%g3582435829%_)) '() - _%L35700%_) - _%L35626%_)))) - _%$e3565735696%_)))))) - (_%loop3565235676%_ _%target3564935670%_ '())) - (_%g3564635663%_ _%g3564735667%_))))) + _%L35763%_) + _%L35689%_)))) + _%$e3572035759%_)))))) + (_%loop3571535739%_ _%target3571235733%_ '())) + (_%g3570935726%_ _%g3571035730%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g3564635663%_ - _%g3564735667%_))))) - (_%g3564535769%_ + (_%g3570935726%_ + _%g3571035730%_))))) + (_%g3570835832%_ (gx#gentemps - (foldr (lambda (_%g3577235775%_ - _%g3577335778%_) - (cons _%g3577235775%_ - _%g3577335778%_)) + (foldr (lambda (_%g3583535838%_ + _%g3583635841%_) + (cons _%g3583535838%_ + _%g3583635841%_)) '() - _%L35628%_)))) - (_%g3554535569%_ _%g3554635573%_))) - _%tl3555435593%_ - _%e3556335622%_)))))) + _%L35691%_)))) + (_%g3560835632%_ _%g3560935636%_))) + _%tl3561735656%_ + _%e3562635685%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop3555835602%_ - _%target3555535596%_ + (_%loop3562135665%_ + _%target3561835659%_ '())) - (_%g3554535569%_ - _%g3554635573%_))))) - (_%g3554535569%_ _%g3554635573%_)))) - (_%g3554535569%_ _%g3554635573%_)))) - (_%g3554535569%_ _%g3554635573%_))))) - (_%g3554435781%_ _%stx35542%_)))) + (_%g3560835632%_ + _%g3560935636%_))))) + (_%g3560835632%_ _%g3560935636%_)))) + (_%g3560835632%_ _%g3560935636%_)))) + (_%g3560835632%_ _%g3560935636%_))))) + (_%g3560735844%_ _%stx35605%_)))) (define |gerbil/core/match[:0:]#with| - (lambda (_%$stx35787%_) - (let* ((_%__stx3936939370%_ _%$stx35787%_) - (_%g3579335876%_ + (lambda (_%$stx35850%_) + (let* ((_%__stx3943239433%_ _%$stx35850%_) + (_%g3585635939%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3936939370%_)))) - (let ((_%__kont3937239373%_ - (lambda (_%L36206%_) + _%__stx3943239433%_)))) + (let ((_%__kont3943539436%_ + (lambda (_%L36269%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3622236225%_ _%g3622336228%_) - (cons _%g3622236225%_ _%g3622336228%_)) + (foldr (lambda (_%g3628536288%_ _%g3628636291%_) + (cons _%g3628536288%_ _%g3628636291%_)) '() - _%L36206%_))))) - (_%__kont3937639377%_ - (lambda (_%L36114%_ _%L36116%_ _%L36117%_ _%L36118%_) - (cons _%L36118%_ - (cons (cons (cons _%L36117%_ (cons _%L36116%_ '())) + _%L36269%_))))) + (_%__kont3943939440%_ + (lambda (_%L36177%_ _%L36179%_ _%L36180%_ _%L36181%_) + (cons _%L36181%_ + (cons (cons (cons _%L36180%_ (cons _%L36179%_ '())) '()) - (foldr (lambda (_%g3614036143%_ _%g3614136146%_) - (cons _%g3614036143%_ _%g3614136146%_)) + (foldr (lambda (_%g3620336206%_ _%g3620436209%_) + (cons _%g3620336206%_ _%g3620436209%_)) '() - _%L36114%_))))) - (_%__kont3938039381%_ - (lambda (_%L35987%_ _%L35989%_ _%L35990%_) + _%L36177%_))))) + (_%__kont3944339444%_ + (lambda (_%L36050%_ _%L36052%_ _%L36053%_) (cons (gx#datum->syntax '#f 'match*) - (cons (foldr (lambda (_%g3601636019%_ _%g3601736022%_) - (cons _%g3601636019%_ _%g3601736022%_)) + (cons (foldr (lambda (_%g3607936082%_ _%g3608036085%_) + (cons _%g3607936082%_ _%g3608036085%_)) '() - _%L35989%_) - (cons (cons (foldr (lambda (_%g3601436025%_ - _%g3601536028%_) - (cons _%g3601436025%_ - _%g3601536028%_)) + _%L36052%_) + (cons (cons (foldr (lambda (_%g3607736088%_ + _%g3607836091%_) + (cons _%g3607736088%_ + _%g3607836091%_)) '() - _%L35990%_) - (foldr (lambda (_%g3601236031%_ - _%g3601336034%_) - (cons _%g3601236031%_ - _%g3601336034%_)) + _%L36053%_) + (foldr (lambda (_%g3607536094%_ + _%g3607636097%_) + (cons _%g3607536094%_ + _%g3607636097%_)) '() - _%L35987%_)) + _%L36050%_)) '())))))) - (let* ((_%__match3946239463%_ - (lambda (_%e3583935883%_ - _%hd3584035887%_ - _%tl3584135890%_ - _%e3584235893%_ - _%hd3584335897%_ - _%tl3584435900%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) - (letrec ((_%loop3584835909%_ - (lambda (_%hd3584635913%_ - _%expr3585235916%_ - _%hd3585335918%_) - (if (gx#stx-pair? _%hd3584635913%_) - (let ((_%e3584935921%_ - (gx#syntax-e _%hd3584635913%_))) - (let ((_%lp-tl3585135928%_ + (let* ((_%__match3952539526%_ + (lambda (_%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) + (letrec ((_%loop3591135972%_ + (lambda (_%hd3590935976%_ + _%expr3591535979%_ + _%hd3591635981%_) + (if (gx#stx-pair? _%hd3590935976%_) + (let ((_%e3591235984%_ + (gx#syntax-e _%hd3590935976%_))) + (let ((_%lp-tl3591435991%_ (let () (declare (not safe)) - (##cdr _%e3584935921%_))) - (_%lp-hd3585035925%_ + (##cdr _%e3591235984%_))) + (_%lp-hd3591335988%_ (let () (declare (not safe)) - (##car _%e3584935921%_)))) + (##car _%e3591235984%_)))) (if (gx#stx-pair? - _%lp-hd3585035925%_) - (let ((_%e3586535931%_ + _%lp-hd3591335988%_) + (let ((_%e3592835994%_ (gx#syntax-e - _%lp-hd3585035925%_))) - (let ((_%tl3586735938%_ + _%lp-hd3591335988%_))) + (let ((_%tl3593036001%_ (let () (declare (not safe)) - (##cdr _%e3586535931%_))) - (_%hd3586635935%_ + (##cdr _%e3592835994%_))) + (_%hd3592935998%_ (let () (declare (not safe)) - (##car _%e3586535931%_)))) + (##car _%e3592835994%_)))) (if (gx#stx-pair? - _%tl3586735938%_) - (let ((_%e3586835941%_ + _%tl3593036001%_) + (let ((_%e3593136004%_ (gx#syntax-e - _%tl3586735938%_))) - (let ((_%tl3587035948%_ + _%tl3593036001%_))) + (let ((_%tl3593336011%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3586835941%_))) - (_%hd3586935945%_ - (let () (declare (not safe)) (##car _%e3586835941%_)))) - (if (gx#stx-null? _%tl3587035948%_) - (_%loop3584835909%_ - _%lp-tl3585135928%_ - (cons _%hd3586935945%_ _%expr3585235916%_) - (cons _%hd3586635935%_ _%hd3585335918%_)) - (let () (declare (not safe)) (_%g3579335876%_))))) - (let () (declare (not safe)) (_%g3579335876%_))))) + (##cdr _%e3593136004%_))) + (_%hd3593236008%_ + (let () (declare (not safe)) (##car _%e3593136004%_)))) + (if (gx#stx-null? _%tl3593336011%_) + (_%loop3591135972%_ + _%lp-tl3591435991%_ + (cons _%hd3593236008%_ _%expr3591535979%_) + (cons _%hd3592935998%_ _%hd3591635981%_)) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3579335876%_))))) - (let ((_%hd3585535954%_ - (reverse _%hd3585335918%_)) - (_%expr3585435951%_ - (reverse _%expr3585235916%_))) + (_%g3585635939%_))))) + (let ((_%hd3591836017%_ + (reverse _%hd3591635981%_)) + (_%expr3591736014%_ + (reverse _%expr3591535979%_))) (if (gx#stx-pair/null? - _%tl3584435900%_) - (let ((_%__splice3938439385%_ + _%tl3590735963%_) + (let ((_%__splice3944739448%_ (gx#syntax-split-splice - _%tl3584435900%_ + _%tl3590735963%_ '0))) - (let ((_%tl3585835960%_ + (let ((_%tl3592136023%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938439385%_ + _%__splice3944739448%_ '1))) - (_%target3585635957%_ + (_%target3591936020%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938439385%_ + _%__splice3944739448%_ '0)))) (if (gx#stx-null? - _%tl3585835960%_) - (letrec ((_%loop3585935963%_ - (lambda (_%hd3585735967%_ + _%tl3592136023%_) + (letrec ((_%loop3592236026%_ + (lambda (_%hd3592036030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body3586335970%_) - (if (gx#stx-pair? _%hd3585735967%_) - (let ((_%e3586035973%_ - (gx#syntax-e _%hd3585735967%_))) - (let ((_%lp-tl3586235980%_ + _%body3592636033%_) + (if (gx#stx-pair? _%hd3592036030%_) + (let ((_%e3592336036%_ + (gx#syntax-e _%hd3592036030%_))) + (let ((_%lp-tl3592536043%_ (let () (declare (not safe)) - (##cdr _%e3586035973%_))) - (_%lp-hd3586135977%_ + (##cdr _%e3592336036%_))) + (_%lp-hd3592436040%_ (let () (declare (not safe)) - (##car _%e3586035973%_)))) - (_%loop3585935963%_ - _%lp-tl3586235980%_ - (cons _%lp-hd3586135977%_ - _%body3586335970%_)))) - (let ((_%body3586435983%_ - (reverse _%body3586335970%_))) - (_%__kont3938039381%_ - _%body3586435983%_ - _%expr3585435951%_ - _%hd3585535954%_)))))) - (_%loop3585935963%_ _%target3585635957%_ '())) + (##car _%e3592336036%_)))) + (_%loop3592236026%_ + _%lp-tl3592536043%_ + (cons _%lp-hd3592436040%_ + _%body3592636033%_)))) + (let ((_%body3592736046%_ + (reverse _%body3592636033%_))) + (_%__kont3944339444%_ + _%body3592736046%_ + _%expr3591736014%_ + _%hd3591836017%_)))))) + (_%loop3592236026%_ _%target3591936020%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_)))))))) - (_%loop3584835909%_ _%target3584535903%_ '() '())))) - (_%__match3945439455%_ - (lambda (_%e3583935883%_ - _%hd3584035887%_ - _%tl3584135890%_ - _%e3584235893%_ - _%hd3584335897%_ - _%tl3584435900%_) - (if (gx#stx-pair/null? _%hd3584335897%_) - (let ((_%__splice3938239383%_ - (gx#syntax-split-splice _%hd3584335897%_ '0))) - (let ((_%tl3584735906%_ + (_%g3585635939%_)))))))) + (_%loop3591135972%_ _%target3590835966%_ '() '())))) + (_%__match3951739518%_ + (lambda (_%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_) + (if (gx#stx-pair/null? _%hd3590635960%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3590635960%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3938239383%_ '1))) - (_%target3584535903%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) - (if (gx#stx-null? _%tl3584735906%_) - (_%__match3946239463%_ - _%e3583935883%_ - _%hd3584035887%_ - _%tl3584135890%_ - _%e3584235893%_ - _%hd3584335897%_ - _%tl3584435900%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3590235946%_ + _%hd3590335950%_ + _%tl3590435953%_ + _%e3590535956%_ + _%hd3590635960%_ + _%tl3590735963%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) - (let () (declare (not safe)) (_%g3579335876%_))))) - (_%__match3944239443%_ - (lambda (_%e3581536044%_ - _%hd3581636048%_ - _%tl3581736051%_ - _%e3581836054%_ - _%hd3581936058%_ - _%tl3582036061%_ - _%e3582136064%_ - _%hd3582236068%_ - _%tl3582336071%_ - _%e3582436074%_ - _%hd3582536078%_ - _%tl3582636081%_ - _%__splice3937839379%_ - _%target3582736084%_ - _%tl3582936087%_) - (letrec ((_%loop3583036090%_ - (lambda (_%hd3582836094%_ _%body3583436097%_) - (if (gx#stx-pair? _%hd3582836094%_) - (let ((_%e3583136100%_ - (gx#syntax-e _%hd3582836094%_))) - (let ((_%lp-tl3583336107%_ + (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_))))) + (_%__match3950539506%_ + (lambda (_%e3587836107%_ + _%hd3587936111%_ + _%tl3588036114%_ + _%e3588136117%_ + _%hd3588236121%_ + _%tl3588336124%_ + _%e3588436127%_ + _%hd3588536131%_ + _%tl3588636134%_ + _%e3588736137%_ + _%hd3588836141%_ + _%tl3588936144%_ + _%__splice3944139442%_ + _%target3589036147%_ + _%tl3589236150%_) + (letrec ((_%loop3589336153%_ + (lambda (_%hd3589136157%_ _%body3589736160%_) + (if (gx#stx-pair? _%hd3589136157%_) + (let ((_%e3589436163%_ + (gx#syntax-e _%hd3589136157%_))) + (let ((_%lp-tl3589636170%_ (let () (declare (not safe)) - (##cdr _%e3583136100%_))) - (_%lp-hd3583236104%_ + (##cdr _%e3589436163%_))) + (_%lp-hd3589536167%_ (let () (declare (not safe)) - (##car _%e3583136100%_)))) - (_%loop3583036090%_ - _%lp-tl3583336107%_ - (cons _%lp-hd3583236104%_ - _%body3583436097%_)))) - (let ((_%body3583536110%_ - (reverse _%body3583436097%_))) - (let ((_%L36114%_ _%body3583536110%_) - (_%L36116%_ _%hd3582536078%_) - (_%L36117%_ _%hd3582236068%_) - (_%L36118%_ _%hd3581636048%_)) + (##car _%e3589436163%_)))) + (_%loop3589336153%_ + _%lp-tl3589636170%_ + (cons _%lp-hd3589536167%_ + _%body3589736160%_)))) + (let ((_%body3589836173%_ + (reverse _%body3589736160%_))) + (let ((_%L36177%_ _%body3589836173%_) + (_%L36179%_ _%hd3588836141%_) + (_%L36180%_ _%hd3588536131%_) + (_%L36181%_ _%hd3587936111%_)) (if (|gerbil/core/match[1]#match-pattern?| - _%L36117%_) - (_%__kont3937639377%_ - _%L36114%_ - _%L36116%_ - _%L36117%_ - _%L36118%_) - (_%__match3945439455%_ - _%e3581536044%_ - _%hd3581636048%_ - _%tl3581736051%_ - _%e3581836054%_ - _%hd3581936058%_ - _%tl3582036061%_)))))))) - (_%loop3583036090%_ _%target3582736084%_ '())))) - (_%__match3940839409%_ - (lambda (_%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3937439375%_ - _%target3580236176%_ - _%tl3580436179%_) - (letrec ((_%loop3580536182%_ - (lambda (_%hd3580336186%_ _%body3580936189%_) - (if (gx#stx-pair? _%hd3580336186%_) - (let ((_%e3580636192%_ - (gx#syntax-e _%hd3580336186%_))) - (let ((_%lp-tl3580836199%_ + _%L36180%_) + (_%__kont3943939440%_ + _%L36177%_ + _%L36179%_ + _%L36180%_ + _%L36181%_) + (_%__match3951739518%_ + _%e3587836107%_ + _%hd3587936111%_ + _%tl3588036114%_ + _%e3588136117%_ + _%hd3588236121%_ + _%tl3588336124%_)))))))) + (_%loop3589336153%_ _%target3589036147%_ '())))) + (_%__match3947139472%_ + (lambda (_%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3943739438%_ + _%target3586536239%_ + _%tl3586736242%_) + (letrec ((_%loop3586836245%_ + (lambda (_%hd3586636249%_ _%body3587236252%_) + (if (gx#stx-pair? _%hd3586636249%_) + (let ((_%e3586936255%_ + (gx#syntax-e _%hd3586636249%_))) + (let ((_%lp-tl3587136262%_ (let () (declare (not safe)) - (##cdr _%e3580636192%_))) - (_%lp-hd3580736196%_ + (##cdr _%e3586936255%_))) + (_%lp-hd3587036259%_ (let () (declare (not safe)) - (##car _%e3580636192%_)))) - (_%loop3580536182%_ - _%lp-tl3580836199%_ - (cons _%lp-hd3580736196%_ - _%body3580936189%_)))) - (let ((_%body3581036202%_ - (reverse _%body3580936189%_))) - (_%__kont3937239373%_ - _%body3581036202%_)))))) - (_%loop3580536182%_ _%target3580236176%_ '()))))) - (if (gx#stx-pair? _%__stx3936939370%_) - (let ((_%e3579636156%_ (gx#syntax-e _%__stx3936939370%_))) - (let ((_%tl3579836163%_ + (##car _%e3586936255%_)))) + (_%loop3586836245%_ + _%lp-tl3587136262%_ + (cons _%lp-hd3587036259%_ + _%body3587236252%_)))) + (let ((_%body3587336265%_ + (reverse _%body3587236252%_))) + (_%__kont3943539436%_ + _%body3587336265%_)))))) + (_%loop3586836245%_ _%target3586536239%_ '()))))) + (if (gx#stx-pair? _%__stx3943239433%_) + (let ((_%e3585936219%_ (gx#syntax-e _%__stx3943239433%_))) + (let ((_%tl3586136226%_ (let () (declare (not safe)) - (##cdr _%e3579636156%_))) - (_%hd3579736160%_ + (##cdr _%e3585936219%_))) + (_%hd3586036223%_ (let () (declare (not safe)) - (##car _%e3579636156%_)))) - (if (gx#stx-pair? _%tl3579836163%_) - (let ((_%e3579936166%_ - (gx#syntax-e _%tl3579836163%_))) - (let ((_%tl3580136173%_ + (##car _%e3585936219%_)))) + (if (gx#stx-pair? _%tl3586136226%_) + (let ((_%e3586236229%_ + (gx#syntax-e _%tl3586136226%_))) + (let ((_%tl3586436236%_ (let () (declare (not safe)) - (##cdr _%e3579936166%_))) - (_%hd3580036170%_ + (##cdr _%e3586236229%_))) + (_%hd3586336233%_ (let () (declare (not safe)) - (##car _%e3579936166%_)))) - (if (gx#stx-null? _%hd3580036170%_) - (if (gx#stx-pair/null? _%tl3580136173%_) - (let ((_%__splice3937439375%_ + (##car _%e3586236229%_)))) + (if (gx#stx-null? _%hd3586336233%_) + (if (gx#stx-pair/null? _%tl3586436236%_) + (let ((_%__splice3943739438%_ (gx#syntax-split-splice - _%tl3580136173%_ + _%tl3586436236%_ '0))) - (let ((_%tl3580436179%_ + (let ((_%tl3586736242%_ (let () (declare (not safe)) (##vector-ref - _%__splice3937439375%_ + _%__splice3943739438%_ '1))) - (_%target3580236176%_ + (_%target3586536239%_ (let () (declare (not safe)) (##vector-ref - _%__splice3937439375%_ + _%__splice3943739438%_ '0)))) - (if (gx#stx-null? _%tl3580436179%_) - (_%__match3940839409%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3937439375%_ - _%target3580236176%_ - _%tl3580436179%_) + (if (gx#stx-null? _%tl3586736242%_) + (_%__match3947139472%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3943739438%_ + _%target3586536239%_ + _%tl3586736242%_) (if (gx#stx-pair/null? - _%hd3580036170%_) - (let ((_%__splice3938239383%_ + _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3580036170%_ + _%hd3586336233%_ '0))) - (let ((_%tl3584735906%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '1))) - (_%target3584535903%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_)))))) - (if (gx#stx-pair/null? _%hd3580036170%_) - (let ((_%__splice3938239383%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3580036170%_ + _%hd3586336233%_ '0))) - (let ((_%tl3584735906%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '1))) - (_%target3584535903%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_)))) - (if (gx#stx-pair? _%hd3580036170%_) - (let ((_%e3582136064%_ - (gx#syntax-e _%hd3580036170%_))) - (let ((_%tl3582336071%_ + (_%g3585635939%_)))) + (if (gx#stx-pair? _%hd3586336233%_) + (let ((_%e3588436127%_ + (gx#syntax-e _%hd3586336233%_))) + (let ((_%tl3588636134%_ (let () (declare (not safe)) - (##cdr _%e3582136064%_))) - (_%hd3582236068%_ + (##cdr _%e3588436127%_))) + (_%hd3588536131%_ (let () (declare (not safe)) - (##car _%e3582136064%_)))) - (if (gx#stx-pair? _%tl3582336071%_) - (let ((_%e3582436074%_ + (##car _%e3588436127%_)))) + (if (gx#stx-pair? _%tl3588636134%_) + (let ((_%e3588736137%_ (gx#syntax-e - _%tl3582336071%_))) - (let ((_%tl3582636081%_ + _%tl3588636134%_))) + (let ((_%tl3588936144%_ (let () (declare (not safe)) - (##cdr _%e3582436074%_))) - (_%hd3582536078%_ + (##cdr _%e3588736137%_))) + (_%hd3588836141%_ (let () (declare (not safe)) - (##car _%e3582436074%_)))) + (##car _%e3588736137%_)))) (if (gx#stx-null? - _%tl3582636081%_) + _%tl3588936144%_) (if (gx#stx-pair/null? - _%tl3580136173%_) - (let ((_%__splice3937839379%_ + _%tl3586436236%_) + (let ((_%__splice3944139442%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3580136173%_ '0))) - (let ((_%tl3582936087%_ + (gx#syntax-split-splice _%tl3586436236%_ '0))) + (let ((_%tl3589236150%_ (let () (declare (not safe)) - (##vector-ref _%__splice3937839379%_ '1))) - (_%target3582736084%_ + (##vector-ref _%__splice3944139442%_ '1))) + (_%target3589036147%_ (let () (declare (not safe)) - (##vector-ref _%__splice3937839379%_ '0)))) - (if (gx#stx-null? _%tl3582936087%_) - (_%__match3944239443%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%e3582136064%_ - _%hd3582236068%_ - _%tl3582336071%_ - _%e3582436074%_ - _%hd3582536078%_ - _%tl3582636081%_ - _%__splice3937839379%_ - _%target3582736084%_ - _%tl3582936087%_) - (if (gx#stx-pair/null? _%hd3580036170%_) - (let ((_%__splice3938239383%_ + (##vector-ref _%__splice3944139442%_ '0)))) + (if (gx#stx-null? _%tl3589236150%_) + (_%__match3950539506%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%e3588436127%_ + _%hd3588536131%_ + _%tl3588636134%_ + _%e3588736137%_ + _%hd3588836141%_ + _%tl3588936144%_ + _%__splice3944139442%_ + _%target3589036147%_ + _%tl3589236150%_) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3580036170%_ + _%hd3586336233%_ '0))) - (let ((_%tl3584735906%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '1))) - (_%target3584535903%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) - (if (gx#stx-null? _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_)))))) - (if (gx#stx-pair/null? _%hd3580036170%_) - (let ((_%__splice3938239383%_ - (gx#syntax-split-splice _%hd3580036170%_ '0))) - (let ((_%tl3584735906%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3586336233%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3938239383%_ '1))) - (_%target3584535903%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) - (##vector-ref _%__splice3938239383%_ '0)))) - (if (gx#stx-null? _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + (##vector-ref _%__splice3944539446%_ '0)))) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) - (let () (declare (not safe)) (_%g3579335876%_)))) - (if (gx#stx-pair/null? _%hd3580036170%_) - (let ((_%__splice3938239383%_ - (gx#syntax-split-splice _%hd3580036170%_ '0))) - (let ((_%tl3584735906%_ + (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ + (gx#syntax-split-splice _%hd3586336233%_ '0))) + (let ((_%tl3591035969%_ (let () (declare (not safe)) - (##vector-ref _%__splice3938239383%_ '1))) - (_%target3584535903%_ + (##vector-ref _%__splice3944539446%_ '1))) + (_%target3590835966%_ (let () (declare (not safe)) - (##vector-ref _%__splice3938239383%_ '0)))) - (if (gx#stx-null? _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) - (let () (declare (not safe)) (_%g3579335876%_))))) - (let () (declare (not safe)) (_%g3579335876%_)))))) + (##vector-ref _%__splice3944539446%_ '0)))) + (if (gx#stx-null? _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd3580036170%_) - (let ((_%__splice3938239383%_ + _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3580036170%_ + _%hd3586336233%_ '0))) - (let ((_%tl3584735906%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '1))) - (_%target3584535903%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_)))))) - (if (gx#stx-pair/null? _%hd3580036170%_) - (let ((_%__splice3938239383%_ + (_%g3585635939%_)))))) + (if (gx#stx-pair/null? _%hd3586336233%_) + (let ((_%__splice3944539446%_ (gx#syntax-split-splice - _%hd3580036170%_ + _%hd3586336233%_ '0))) - (let ((_%tl3584735906%_ + (let ((_%tl3591035969%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '1))) - (_%target3584535903%_ + (_%target3590835966%_ (let () (declare (not safe)) (##vector-ref - _%__splice3938239383%_ + _%__splice3944539446%_ '0)))) (if (gx#stx-null? - _%tl3584735906%_) - (_%__match3946239463%_ - _%e3579636156%_ - _%hd3579736160%_ - _%tl3579836163%_ - _%e3579936166%_ - _%hd3580036170%_ - _%tl3580136173%_ - _%__splice3938239383%_ - _%target3584535903%_ - _%tl3584735906%_) + _%tl3591035969%_) + (_%__match3952539526%_ + _%e3585936219%_ + _%hd3586036223%_ + _%tl3586136226%_ + _%e3586236229%_ + _%hd3586336233%_ + _%tl3586436236%_ + _%__splice3944539446%_ + _%target3590835966%_ + _%tl3591035969%_) (let () (declare (not safe)) - (_%g3579335876%_))))) + (_%g3585635939%_))))) (let () (declare (not safe)) - (_%g3579335876%_))))))) - (let () (declare (not safe)) (_%g3579335876%_))))) - (let () (declare (not safe)) (_%g3579335876%_)))))))) + (_%g3585635939%_))))))) + (let () (declare (not safe)) (_%g3585635939%_))))) + (let () (declare (not safe)) (_%g3585635939%_)))))))) (define |gerbil/core/match[:0:]#with*| - (lambda (_%$stx36239%_) - (let* ((_%__stx3946539466%_ _%$stx36239%_) - (_%g3624436296%_ + (lambda (_%$stx36302%_) + (let* ((_%__stx3952839529%_ _%$stx36302%_) + (_%g3630736359%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3946539466%_)))) - (let ((_%__kont3946839469%_ - (lambda (_%L36466%_ - _%L36468%_ - _%L36469%_ - _%L36470%_ - _%L36471%_) + _%__stx3952839529%_)))) + (let ((_%__kont3953139532%_ + (lambda (_%L36529%_ + _%L36531%_ + _%L36532%_ + _%L36533%_ + _%L36534%_) (cons (gx#datum->syntax '#f 'with) - (cons (cons (cons _%L36470%_ (cons _%L36469%_ '())) + (cons (cons (cons _%L36533%_ (cons _%L36532%_ '())) '()) - (cons (cons _%L36471%_ - (cons _%L36468%_ - (foldr (lambda (_%g3649636499%_ + (cons (cons _%L36534%_ + (cons _%L36531%_ + (foldr (lambda (_%g3655936562%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g3649736502%_) - (cons _%g3649636499%_ _%g3649736502%_)) + _%g3656036565%_) + (cons _%g3655936562%_ _%g3656036565%_)) '() - _%L36466%_))) + _%L36529%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3947239473%_ - (lambda (_%L36353%_) + (_%__kont3953539536%_ + (lambda (_%L36416%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g3637036373%_ _%g3637136376%_) - (cons _%g3637036373%_ _%g3637136376%_)) + (foldr (lambda (_%g3643336436%_ _%g3643436439%_) + (cons _%g3643336436%_ _%g3643436439%_)) '() - _%L36353%_)))))) - (let* ((_%__match3953839539%_ - (lambda (_%e3627636303%_ - _%hd3627736307%_ - _%tl3627836310%_ - _%e3627936313%_ - _%hd3628036317%_ - _%tl3628136320%_ - _%__splice3947439475%_ - _%target3628236323%_ - _%tl3628436326%_) - (letrec ((_%loop3628536329%_ - (lambda (_%hd3628336333%_ _%body3628936336%_) - (if (gx#stx-pair? _%hd3628336333%_) - (let ((_%e3628636339%_ - (gx#syntax-e _%hd3628336333%_))) - (let ((_%lp-tl3628836346%_ + _%L36416%_)))))) + (let* ((_%__match3960139602%_ + (lambda (_%e3633936366%_ + _%hd3634036370%_ + _%tl3634136373%_ + _%e3634236376%_ + _%hd3634336380%_ + _%tl3634436383%_ + _%__splice3953739538%_ + _%target3634536386%_ + _%tl3634736389%_) + (letrec ((_%loop3634836392%_ + (lambda (_%hd3634636396%_ _%body3635236399%_) + (if (gx#stx-pair? _%hd3634636396%_) + (let ((_%e3634936402%_ + (gx#syntax-e _%hd3634636396%_))) + (let ((_%lp-tl3635136409%_ (let () (declare (not safe)) - (##cdr _%e3628636339%_))) - (_%lp-hd3628736343%_ + (##cdr _%e3634936402%_))) + (_%lp-hd3635036406%_ (let () (declare (not safe)) - (##car _%e3628636339%_)))) - (_%loop3628536329%_ - _%lp-tl3628836346%_ - (cons _%lp-hd3628736343%_ - _%body3628936336%_)))) - (let ((_%body3629036349%_ - (reverse _%body3628936336%_))) - (_%__kont3947239473%_ - _%body3629036349%_)))))) - (_%loop3628536329%_ _%target3628236323%_ '())))) - (_%__match3951639517%_ - (lambda (_%e3625136386%_ - _%hd3625236390%_ - _%tl3625336393%_ - _%e3625436396%_ - _%hd3625536400%_ - _%tl3625636403%_ - _%e3625736406%_ - _%hd3625836410%_ - _%tl3625936413%_ - _%e3626036416%_ - _%hd3626136420%_ - _%tl3626236423%_ - _%e3626336426%_ - _%hd3626436430%_ - _%tl3626536433%_ - _%__splice3947039471%_ - _%target3626636436%_ - _%tl3626836439%_) - (letrec ((_%loop3626936442%_ - (lambda (_%hd3626736446%_ _%body3627336449%_) - (if (gx#stx-pair? _%hd3626736446%_) - (let ((_%e3627036452%_ - (gx#syntax-e _%hd3626736446%_))) - (let ((_%lp-tl3627236459%_ + (##car _%e3634936402%_)))) + (_%loop3634836392%_ + _%lp-tl3635136409%_ + (cons _%lp-hd3635036406%_ + _%body3635236399%_)))) + (let ((_%body3635336412%_ + (reverse _%body3635236399%_))) + (_%__kont3953539536%_ + _%body3635336412%_)))))) + (_%loop3634836392%_ _%target3634536386%_ '())))) + (_%__match3957939580%_ + (lambda (_%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%e3632036469%_ + _%hd3632136473%_ + _%tl3632236476%_ + _%e3632336479%_ + _%hd3632436483%_ + _%tl3632536486%_ + _%e3632636489%_ + _%hd3632736493%_ + _%tl3632836496%_ + _%__splice3953339534%_ + _%target3632936499%_ + _%tl3633136502%_) + (letrec ((_%loop3633236505%_ + (lambda (_%hd3633036509%_ _%body3633636512%_) + (if (gx#stx-pair? _%hd3633036509%_) + (let ((_%e3633336515%_ + (gx#syntax-e _%hd3633036509%_))) + (let ((_%lp-tl3633536522%_ (let () (declare (not safe)) - (##cdr _%e3627036452%_))) - (_%lp-hd3627136456%_ + (##cdr _%e3633336515%_))) + (_%lp-hd3633436519%_ (let () (declare (not safe)) - (##car _%e3627036452%_)))) - (_%loop3626936442%_ - _%lp-tl3627236459%_ - (cons _%lp-hd3627136456%_ - _%body3627336449%_)))) - (let ((_%body3627436462%_ - (reverse _%body3627336449%_))) - (_%__kont3946839469%_ - _%body3627436462%_ - _%tl3625936413%_ - _%hd3626436430%_ - _%hd3626136420%_ - _%hd3625236390%_)))))) - (_%loop3626936442%_ _%target3626636436%_ '()))))) - (if (gx#stx-pair? _%__stx3946539466%_) - (let ((_%e3625136386%_ (gx#syntax-e _%__stx3946539466%_))) - (let ((_%tl3625336393%_ + (##car _%e3633336515%_)))) + (_%loop3633236505%_ + _%lp-tl3633536522%_ + (cons _%lp-hd3633436519%_ + _%body3633636512%_)))) + (let ((_%body3633736525%_ + (reverse _%body3633636512%_))) + (_%__kont3953139532%_ + _%body3633736525%_ + _%tl3632236476%_ + _%hd3632736493%_ + _%hd3632436483%_ + _%hd3631536453%_)))))) + (_%loop3633236505%_ _%target3632936499%_ '()))))) + (if (gx#stx-pair? _%__stx3952839529%_) + (let ((_%e3631436449%_ (gx#syntax-e _%__stx3952839529%_))) + (let ((_%tl3631636456%_ (let () (declare (not safe)) - (##cdr _%e3625136386%_))) - (_%hd3625236390%_ + (##cdr _%e3631436449%_))) + (_%hd3631536453%_ (let () (declare (not safe)) - (##car _%e3625136386%_)))) - (if (gx#stx-pair? _%tl3625336393%_) - (let ((_%e3625436396%_ - (gx#syntax-e _%tl3625336393%_))) - (let ((_%tl3625636403%_ + (##car _%e3631436449%_)))) + (if (gx#stx-pair? _%tl3631636456%_) + (let ((_%e3631736459%_ + (gx#syntax-e _%tl3631636456%_))) + (let ((_%tl3631936466%_ (let () (declare (not safe)) - (##cdr _%e3625436396%_))) - (_%hd3625536400%_ + (##cdr _%e3631736459%_))) + (_%hd3631836463%_ (let () (declare (not safe)) - (##car _%e3625436396%_)))) - (if (gx#stx-pair? _%hd3625536400%_) - (let ((_%e3625736406%_ - (gx#syntax-e _%hd3625536400%_))) - (let ((_%tl3625936413%_ + (##car _%e3631736459%_)))) + (if (gx#stx-pair? _%hd3631836463%_) + (let ((_%e3632036469%_ + (gx#syntax-e _%hd3631836463%_))) + (let ((_%tl3632236476%_ (let () (declare (not safe)) - (##cdr _%e3625736406%_))) - (_%hd3625836410%_ + (##cdr _%e3632036469%_))) + (_%hd3632136473%_ (let () (declare (not safe)) - (##car _%e3625736406%_)))) - (if (gx#stx-pair? _%hd3625836410%_) - (let ((_%e3626036416%_ + (##car _%e3632036469%_)))) + (if (gx#stx-pair? _%hd3632136473%_) + (let ((_%e3632336479%_ (gx#syntax-e - _%hd3625836410%_))) - (let ((_%tl3626236423%_ + _%hd3632136473%_))) + (let ((_%tl3632536486%_ (let () (declare (not safe)) - (##cdr _%e3626036416%_))) - (_%hd3626136420%_ + (##cdr _%e3632336479%_))) + (_%hd3632436483%_ (let () (declare (not safe)) - (##car _%e3626036416%_)))) + (##car _%e3632336479%_)))) (if (gx#stx-pair? - _%tl3626236423%_) - (let ((_%e3626336426%_ + _%tl3632536486%_) + (let ((_%e3632636489%_ (gx#syntax-e - _%tl3626236423%_))) - (let ((_%tl3626536433%_ + _%tl3632536486%_))) + (let ((_%tl3632836496%_ (let () (declare (not safe)) - (##cdr _%e3626336426%_))) - (_%hd3626436430%_ + (##cdr _%e3632636489%_))) + (_%hd3632736493%_ (let () (declare (not safe)) - (##car _%e3626336426%_)))) + (##car _%e3632636489%_)))) (if (gx#stx-null? - _%tl3626536433%_) + _%tl3632836496%_) (if (gx#stx-pair/null? - _%tl3625636403%_) - (let ((_%__splice3947039471%_ + _%tl3631936466%_) + (let ((_%__splice3953339534%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%tl3625636403%_ '0))) - (let ((_%tl3626836439%_ + (gx#syntax-split-splice _%tl3631936466%_ '0))) + (let ((_%tl3633136502%_ (let () (declare (not safe)) - (##vector-ref _%__splice3947039471%_ '1))) - (_%target3626636436%_ + (##vector-ref _%__splice3953339534%_ '1))) + (_%target3632936499%_ (let () (declare (not safe)) - (##vector-ref _%__splice3947039471%_ '0)))) - (if (gx#stx-null? _%tl3626836439%_) - (_%__match3951639517%_ - _%e3625136386%_ - _%hd3625236390%_ - _%tl3625336393%_ - _%e3625436396%_ - _%hd3625536400%_ - _%tl3625636403%_ - _%e3625736406%_ - _%hd3625836410%_ - _%tl3625936413%_ - _%e3626036416%_ - _%hd3626136420%_ - _%tl3626236423%_ - _%e3626336426%_ - _%hd3626436430%_ - _%tl3626536433%_ - _%__splice3947039471%_ - _%target3626636436%_ - _%tl3626836439%_) + (##vector-ref _%__splice3953339534%_ '0)))) + (if (gx#stx-null? _%tl3633136502%_) + (_%__match3957939580%_ + _%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%e3632036469%_ + _%hd3632136473%_ + _%tl3632236476%_ + _%e3632336479%_ + _%hd3632436483%_ + _%tl3632536486%_ + _%e3632636489%_ + _%hd3632736493%_ + _%tl3632836496%_ + _%__splice3953339534%_ + _%target3632936499%_ + _%tl3633136502%_) (let () (declare (not safe)) - (_%g3624436296%_))))) - (let () (declare (not safe)) (_%g3624436296%_))) - (let () (declare (not safe)) (_%g3624436296%_))))) + (_%g3630736359%_))))) + (let () (declare (not safe)) (_%g3630736359%_))) + (let () (declare (not safe)) (_%g3630736359%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3624436296%_))))) + (_%g3630736359%_))))) (let () (declare (not safe)) - (_%g3624436296%_))))) - (if (gx#stx-null? _%hd3625536400%_) - (if (gx#stx-pair/null? _%tl3625636403%_) - (let ((_%__splice3947439475%_ + (_%g3630736359%_))))) + (if (gx#stx-null? _%hd3631836463%_) + (if (gx#stx-pair/null? _%tl3631936466%_) + (let ((_%__splice3953739538%_ (gx#syntax-split-splice - _%tl3625636403%_ + _%tl3631936466%_ '0))) - (let ((_%tl3628436326%_ + (let ((_%tl3634736389%_ (let () (declare (not safe)) (##vector-ref - _%__splice3947439475%_ + _%__splice3953739538%_ '1))) - (_%target3628236323%_ + (_%target3634536386%_ (let () (declare (not safe)) (##vector-ref - _%__splice3947439475%_ + _%__splice3953739538%_ '0)))) (if (gx#stx-null? - _%tl3628436326%_) - (_%__match3953839539%_ - _%e3625136386%_ - _%hd3625236390%_ - _%tl3625336393%_ - _%e3625436396%_ - _%hd3625536400%_ - _%tl3625636403%_ - _%__splice3947439475%_ - _%target3628236323%_ - _%tl3628436326%_) + _%tl3634736389%_) + (_%__match3960139602%_ + _%e3631436449%_ + _%hd3631536453%_ + _%tl3631636456%_ + _%e3631736459%_ + _%hd3631836463%_ + _%tl3631936466%_ + _%__splice3953739538%_ + _%target3634536386%_ + _%tl3634736389%_) (let () (declare (not safe)) - (_%g3624436296%_))))) + (_%g3630736359%_))))) (let () (declare (not safe)) - (_%g3624436296%_))) + (_%g3630736359%_))) (let () (declare (not safe)) - (_%g3624436296%_)))))) - (let () (declare (not safe)) (_%g3624436296%_))))) - (let () (declare (not safe)) (_%g3624436296%_)))))))) + (_%g3630736359%_)))))) + (let () (declare (not safe)) (_%g3630736359%_))))) + (let () (declare (not safe)) (_%g3630736359%_)))))))) (define |gerbil/core/match[:0:]#?| - (lambda (_%$stx36511%_) - (let* ((_%__stx3954139542%_ _%$stx36511%_) - (_%g3652236668%_ + (lambda (_%$stx36574%_) + (let* ((_%__stx3960439605%_ _%$stx36574%_) + (_%g3658536731%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3954139542%_)))) - (let ((_%__kont3954439545%_ - (lambda (_%L37272%_ _%L37274%_ _%L37275%_) + _%__stx3960439605%_)))) + (let ((_%__kont3960739608%_ + (lambda (_%L37335%_ _%L37337%_ _%L37338%_) (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g3729637299%_ _%g3729737302%_) - (cons (cons _%L37275%_ - (cons _%g3729637299%_ - (cons _%L37272%_ '()))) - _%g3729737302%_)) + (foldr (lambda (_%g3735937362%_ _%g3736037365%_) + (cons (cons _%L37338%_ + (cons _%g3735937362%_ + (cons _%L37335%_ '()))) + _%g3736037365%_)) '() - _%L37274%_)))) - (_%__kont3954839549%_ - (lambda (_%L37162%_ _%L37164%_ _%L37165%_) + _%L37337%_)))) + (_%__kont3961139612%_ + (lambda (_%L37225%_ _%L37227%_ _%L37228%_) (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g3718637189%_ _%g3718737192%_) - (cons (cons _%L37165%_ - (cons _%g3718637189%_ - (cons _%L37162%_ '()))) - _%g3718737192%_)) + (foldr (lambda (_%g3724937252%_ _%g3725037255%_) + (cons (cons _%L37228%_ + (cons _%g3724937252%_ + (cons _%L37225%_ '()))) + _%g3725037255%_)) '() - _%L37164%_)))) - (_%__kont3955239553%_ - (lambda (_%L37062%_ _%L37064%_ _%L37065%_) + _%L37227%_)))) + (_%__kont3961539616%_ + (lambda (_%L37125%_ _%L37127%_ _%L37128%_) (cons (gx#datum->syntax '#f 'not) - (cons (cons _%L37065%_ - (cons _%L37064%_ (cons _%L37062%_ '()))) + (cons (cons _%L37128%_ + (cons _%L37127%_ (cons _%L37125%_ '()))) '())))) - (_%__kont3955439555%_ - (lambda (_%L36988%_ _%L36990%_) - (cons _%L36990%_ (cons _%L36988%_ '())))) - (_%__kont3955639557%_ - (lambda (_%L36936%_ _%L36938%_) + (_%__kont3961739618%_ + (lambda (_%L37051%_ _%L37053%_) + (cons _%L37053%_ (cons _%L37051%_ '())))) + (_%__kont3961939620%_ + (lambda (_%L36999%_ _%L37001%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) - (cons (cons _%L36938%_ - (cons _%L36936%_ + (cons (cons _%L37001%_ + (cons _%L36999%_ (cons (gx#datum->syntax '#f '$obj) '()))) '()))))) - (_%__kont3955839559%_ - (lambda (_%L36888%_ _%L36890%_ _%L36891%_) + (_%__kont3962139622%_ + (lambda (_%L36951%_ _%L36953%_ _%L36954%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'alet) (cons (cons (gx#datum->syntax '#f '$val) - (cons (cons _%L36891%_ + (cons (cons _%L36954%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L36890%_ + (cons _%L36953%_ (cons (gx#datum->syntax '#f '$obj) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36888%_ + (cons (cons _%L36951%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6637,20 +6637,20 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3956039561%_ - (lambda (_%L36819%_ _%L36821%_ _%L36822%_) + (_%__kont3962339624%_ + (lambda (_%L36882%_ _%L36884%_ _%L36885%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36822%_ - (cons _%L36821%_ + (cons (cons _%L36885%_ + (cons _%L36884%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36819%_ + (cons (cons _%L36882%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6659,1806 +6659,1806 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3956239563%_ - (lambda (_%L36739%_ _%L36741%_ _%L36742%_ _%L36743%_) + (_%__kont3962539626%_ + (lambda (_%L36802%_ _%L36804%_ _%L36805%_ _%L36806%_) (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$obj) '()) (cons (cons (gx#datum->syntax '#f 'and) - (cons (cons _%L36743%_ - (cons _%L36742%_ + (cons (cons _%L36806%_ + (cons _%L36805%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$obj) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L36739%_ - (cons (cons _%L36741%_ + (cons (cons _%L36802%_ + (cons (cons _%L36804%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$obj) '())) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match3971439715%_ - (lambda (_%e3661236848%_ - _%hd3661336852%_ - _%tl3661436855%_ - _%e3661536858%_ - _%hd3661636862%_ - _%tl3661736865%_ - _%e3661836868%_ - _%hd3661936872%_ - _%tl3662036875%_) - (if (gx#identifier? _%hd3661936872%_) + (let* ((_%__match3977739778%_ + (lambda (_%e3667536911%_ + _%hd3667636915%_ + _%tl3667736918%_ + _%e3667836921%_ + _%hd3667936925%_ + _%tl3668036928%_ + _%e3668136931%_ + _%hd3668236935%_ + _%tl3668336938%_) + (if (gx#identifier? _%hd3668236935%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3661936872%_) - (if (gx#stx-pair? _%tl3662036875%_) - (let ((_%e3662136878%_ - (gx#syntax-e _%tl3662036875%_))) - (let ((_%tl3662336885%_ + |gerbil/core/match[1]#_g39979_| + _%hd3668236935%_) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3668336938%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3661636862%_ - _%hd3661336852%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3667936925%_ + _%hd3667636915%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3661936872%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3661936872%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3662036875%_) - (let ((_%e3663736809%_ - (gx#syntax-e _%tl3662036875%_))) - (let ((_%tl3663936816%_ + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3668236935%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3668236935%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3668336938%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3661636862%_ - _%hd3661336852%_) + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3667936925%_ + _%hd3667636915%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3663936816%_))) - (let ((_%tl3665936726%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ - (let () (declare (not safe)) (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ + (let () (declare (not safe)) (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3661636862%_ - _%hd3661336852%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3667936925%_ + _%hd3667636915%_) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_)))))) - (_%__match3969439695%_ - (lambda (_%e3660336916%_ - _%hd3660436920%_ - _%tl3660536923%_ - _%e3660636926%_ - _%hd3660736930%_ - _%tl3660836933%_) - (if (gx#stx-null? _%tl3660836933%_) - (_%__kont3955639557%_ - _%hd3660736930%_ - _%hd3660436920%_) - (if (gx#stx-pair? _%tl3660836933%_) - (let ((_%e3661836868%_ - (gx#syntax-e _%tl3660836933%_))) - (let ((_%tl3662036875%_ + (_%g3658536731%_)))))) + (_%__match3975739758%_ + (lambda (_%e3666636979%_ + _%hd3666736983%_ + _%tl3666836986%_ + _%e3666936989%_ + _%hd3667036993%_ + _%tl3667136996%_) + (if (gx#stx-null? _%tl3667136996%_) + (_%__kont3961939620%_ + _%hd3667036993%_ + _%hd3666736983%_) + (if (gx#stx-pair? _%tl3667136996%_) + (let ((_%e3668136931%_ + (gx#syntax-e _%tl3667136996%_))) + (let ((_%tl3668336938%_ (let () (declare (not safe)) - (##cdr _%e3661836868%_))) - (_%hd3661936872%_ + (##cdr _%e3668136931%_))) + (_%hd3668236935%_ (let () (declare (not safe)) - (##car _%e3661836868%_)))) - (if (gx#identifier? _%hd3661936872%_) + (##car _%e3668136931%_)))) + (if (gx#identifier? _%hd3668236935%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3661936872%_) - (if (gx#stx-pair? _%tl3662036875%_) - (let ((_%e3662136878%_ + |gerbil/core/match[1]#_g39979_| + _%hd3668236935%_) + (if (gx#stx-pair? _%tl3668336938%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3662036875%_))) - (let ((_%tl3662336885%_ + _%tl3668336938%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3660736930%_ - _%hd3660436920%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3667036993%_ + _%hd3666736983%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3661936872%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3661936872%_))) - (if (equal? _%e3663636805%_ '::) + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3668236935%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3668236935%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3662036875%_) - (let ((_%e3663736809%_ + _%tl3668336938%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3662036875%_))) - (let ((_%tl3663936816%_ + _%tl3668336938%_))) + (let ((_%tl3670236879%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ - (let () (declare (not safe)) (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3660736930%_ - _%hd3660436920%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ + (let () (declare (not safe)) (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3667036993%_ + _%hd3666736983%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3660736930%_ - _%hd3660436920%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3667036993%_ + _%hd3666736983%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3652236668%_)))))) - (_%__match3962439625%_ - (lambda (_%e3655137092%_ - _%hd3655237096%_ - _%tl3655337099%_ - _%e3655437102%_ - _%hd3655537106%_ - _%tl3655637109%_ - _%e3655737112%_ - _%hd3655837116%_ - _%tl3655937119%_ - _%__splice3955039551%_ - _%target3656037122%_ - _%tl3656237125%_) - (letrec ((_%loop3656337128%_ - (lambda (_%hd3656137132%_ _%pred3656737135%_) - (if (gx#stx-pair? _%hd3656137132%_) - (let ((_%e3656437138%_ - (gx#syntax-e _%hd3656137132%_))) - (let ((_%lp-tl3656637145%_ + (_%g3658536731%_)))))) + (_%__match3968739688%_ + (lambda (_%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_ + _%e3662037175%_ + _%hd3662137179%_ + _%tl3662237182%_ + _%__splice3961339614%_ + _%target3662337185%_ + _%tl3662537188%_) + (letrec ((_%loop3662637191%_ + (lambda (_%hd3662437195%_ _%pred3663037198%_) + (if (gx#stx-pair? _%hd3662437195%_) + (let ((_%e3662737201%_ + (gx#syntax-e _%hd3662437195%_))) + (let ((_%lp-tl3662937208%_ (let () (declare (not safe)) - (##cdr _%e3656437138%_))) - (_%lp-hd3656537142%_ + (##cdr _%e3662737201%_))) + (_%lp-hd3662837205%_ (let () (declare (not safe)) - (##car _%e3656437138%_)))) - (_%loop3656337128%_ - _%lp-tl3656637145%_ - (cons _%lp-hd3656537142%_ - _%pred3656737135%_)))) - (let ((_%pred3656837148%_ - (reverse _%pred3656737135%_))) - (if (gx#stx-pair? _%tl3655637109%_) - (let ((_%e3656937152%_ + (##car _%e3662737201%_)))) + (_%loop3662637191%_ + _%lp-tl3662937208%_ + (cons _%lp-hd3662837205%_ + _%pred3663037198%_)))) + (let ((_%pred3663137211%_ + (reverse _%pred3663037198%_))) + (if (gx#stx-pair? _%tl3661937172%_) + (let ((_%e3663237215%_ (gx#syntax-e - _%tl3655637109%_))) - (let ((_%tl3657137159%_ + _%tl3661937172%_))) + (let ((_%tl3663437222%_ (let () (declare (not safe)) - (##cdr _%e3656937152%_))) - (_%hd3657037156%_ + (##cdr _%e3663237215%_))) + (_%hd3663337219%_ (let () (declare (not safe)) - (##car _%e3656937152%_)))) + (##car _%e3663237215%_)))) (if (gx#stx-null? - _%tl3657137159%_) - (_%__kont3954839549%_ - _%hd3657037156%_ - _%pred3656837148%_ - _%hd3655237096%_) - (_%__match3971439715%_ - _%e3655137092%_ - _%hd3655237096%_ - _%tl3655337099%_ - _%e3655437102%_ - _%hd3655537106%_ - _%tl3655637109%_ - _%e3656937152%_ - _%hd3657037156%_ - _%tl3657137159%_)))) - (_%__match3969439695%_ - _%e3655137092%_ - _%hd3655237096%_ - _%tl3655337099%_ - _%e3655437102%_ - _%hd3655537106%_ - _%tl3655637109%_))))))) - (_%loop3656337128%_ _%target3656037122%_ '())))) - (_%__match3959439595%_ - (lambda (_%e3652737202%_ - _%hd3652837206%_ - _%tl3652937209%_ - _%e3653037212%_ - _%hd3653137216%_ - _%tl3653237219%_ - _%e3653337222%_ - _%hd3653437226%_ - _%tl3653537229%_ - _%__splice3954639547%_ - _%target3653637232%_ - _%tl3653837235%_) - (letrec ((_%loop3653937238%_ - (lambda (_%hd3653737242%_ _%pred3654337245%_) - (if (gx#stx-pair? _%hd3653737242%_) - (let ((_%e3654037248%_ - (gx#syntax-e _%hd3653737242%_))) - (let ((_%lp-tl3654237255%_ + _%tl3663437222%_) + (_%__kont3961139612%_ + _%hd3663337219%_ + _%pred3663137211%_ + _%hd3661537159%_) + (_%__match3977739778%_ + _%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_ + _%e3663237215%_ + _%hd3663337219%_ + _%tl3663437222%_)))) + (_%__match3975739758%_ + _%e3661437155%_ + _%hd3661537159%_ + _%tl3661637162%_ + _%e3661737165%_ + _%hd3661837169%_ + _%tl3661937172%_))))))) + (_%loop3662637191%_ _%target3662337185%_ '())))) + (_%__match3965739658%_ + (lambda (_%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3960939610%_ + _%target3659937295%_ + _%tl3660137298%_) + (letrec ((_%loop3660237301%_ + (lambda (_%hd3660037305%_ _%pred3660637308%_) + (if (gx#stx-pair? _%hd3660037305%_) + (let ((_%e3660337311%_ + (gx#syntax-e _%hd3660037305%_))) + (let ((_%lp-tl3660537318%_ (let () (declare (not safe)) - (##cdr _%e3654037248%_))) - (_%lp-hd3654137252%_ + (##cdr _%e3660337311%_))) + (_%lp-hd3660437315%_ (let () (declare (not safe)) - (##car _%e3654037248%_)))) - (_%loop3653937238%_ - _%lp-tl3654237255%_ - (cons _%lp-hd3654137252%_ - _%pred3654337245%_)))) - (let ((_%pred3654437258%_ - (reverse _%pred3654337245%_))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3654537262%_ + (##car _%e3660337311%_)))) + (_%loop3660237301%_ + _%lp-tl3660537318%_ + (cons _%lp-hd3660437315%_ + _%pred3660637308%_)))) + (let ((_%pred3660737321%_ + (reverse _%pred3660637308%_))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3660837325%_ (gx#syntax-e - _%tl3653237219%_))) - (let ((_%tl3654737269%_ + _%tl3659537282%_))) + (let ((_%tl3661037332%_ (let () (declare (not safe)) - (##cdr _%e3654537262%_))) - (_%hd3654637266%_ + (##cdr _%e3660837325%_))) + (_%hd3660937329%_ (let () (declare (not safe)) - (##car _%e3654537262%_)))) + (##car _%e3660837325%_)))) (if (gx#stx-null? - _%tl3654737269%_) - (_%__kont3954439545%_ - _%hd3654637266%_ - _%pred3654437258%_ - _%hd3652837206%_) - (_%__match3971439715%_ - _%e3652737202%_ - _%hd3652837206%_ - _%tl3652937209%_ - _%e3653037212%_ - _%hd3653137216%_ - _%tl3653237219%_ - _%e3654537262%_ - _%hd3654637266%_ - _%tl3654737269%_)))) - (_%__match3969439695%_ - _%e3652737202%_ - _%hd3652837206%_ - _%tl3652937209%_ - _%e3653037212%_ - _%hd3653137216%_ - _%tl3653237219%_))))))) - (_%loop3653937238%_ _%target3653637232%_ '()))))) - (if (gx#stx-pair? _%__stx3954139542%_) - (let ((_%e3652737202%_ (gx#syntax-e _%__stx3954139542%_))) - (let ((_%tl3652937209%_ + _%tl3661037332%_) + (_%__kont3960739608%_ + _%hd3660937329%_ + _%pred3660737321%_ + _%hd3659137269%_) + (_%__match3977739778%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3660837325%_ + _%hd3660937329%_ + _%tl3661037332%_)))) + (_%__match3975739758%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_))))))) + (_%loop3660237301%_ _%target3659937295%_ '()))))) + (if (gx#stx-pair? _%__stx3960439605%_) + (let ((_%e3659037265%_ (gx#syntax-e _%__stx3960439605%_))) + (let ((_%tl3659237272%_ (let () (declare (not safe)) - (##cdr _%e3652737202%_))) - (_%hd3652837206%_ + (##cdr _%e3659037265%_))) + (_%hd3659137269%_ (let () (declare (not safe)) - (##car _%e3652737202%_)))) - (if (gx#stx-pair? _%tl3652937209%_) - (let ((_%e3653037212%_ - (gx#syntax-e _%tl3652937209%_))) - (let ((_%tl3653237219%_ + (##car _%e3659037265%_)))) + (if (gx#stx-pair? _%tl3659237272%_) + (let ((_%e3659337275%_ + (gx#syntax-e _%tl3659237272%_))) + (let ((_%tl3659537282%_ (let () (declare (not safe)) - (##cdr _%e3653037212%_))) - (_%hd3653137216%_ + (##cdr _%e3659337275%_))) + (_%hd3659437279%_ (let () (declare (not safe)) - (##car _%e3653037212%_)))) - (if (gx#stx-pair? _%hd3653137216%_) - (let ((_%e3653337222%_ - (gx#syntax-e _%hd3653137216%_))) - (let ((_%tl3653537229%_ + (##car _%e3659337275%_)))) + (if (gx#stx-pair? _%hd3659437279%_) + (let ((_%e3659637285%_ + (gx#syntax-e _%hd3659437279%_))) + (let ((_%tl3659837292%_ (let () (declare (not safe)) - (##cdr _%e3653337222%_))) - (_%hd3653437226%_ + (##cdr _%e3659637285%_))) + (_%hd3659737289%_ (let () (declare (not safe)) - (##car _%e3653337222%_)))) - (if (gx#identifier? _%hd3653437226%_) + (##car _%e3659637285%_)))) + (if (gx#identifier? _%hd3659737289%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39918_| - _%hd3653437226%_) + |gerbil/core/match[1]#_g39981_| + _%hd3659737289%_) (if (gx#stx-pair/null? - _%tl3653537229%_) - (let ((_%__splice3954639547%_ + _%tl3659837292%_) + (let ((_%__splice3960939610%_ (gx#syntax-split-splice - _%tl3653537229%_ + _%tl3659837292%_ '0))) - (let ((_%tl3653837235%_ + (let ((_%tl3660137298%_ (let () (declare (not safe)) (##vector-ref - _%__splice3954639547%_ + _%__splice3960939610%_ '1))) - (_%target3653637232%_ + (_%target3659937295%_ (let () (declare (not safe)) (##vector-ref - _%__splice3954639547%_ + _%__splice3960939610%_ '0)))) (if (gx#stx-null? - _%tl3653837235%_) - (_%__match3959439595%_ - _%e3652737202%_ - _%hd3652837206%_ - _%tl3652937209%_ - _%e3653037212%_ - _%hd3653137216%_ - _%tl3653237219%_ - _%e3653337222%_ - _%hd3653437226%_ - _%tl3653537229%_ - _%__splice3954639547%_ - _%target3653637232%_ - _%tl3653837235%_) + _%tl3660137298%_) + (_%__match3965739658%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3960939610%_ + _%target3659937295%_ + _%tl3660137298%_) (if (gx#stx-pair? - _%tl3653237219%_) - (let ((_%e3659836978%_ + _%tl3659537282%_) + (let ((_%e3666137041%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3662336885%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl3653237219%_) - (let ((_%e3659836978%_ + _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e - _%tl3653237219%_))) - (let ((_%tl3660036985%_ + _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ - (let () (declare (not safe)) (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ _%hd3659936982%_ _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ + (let () (declare (not safe)) (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ _%hd3666237045%_ _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3662336885%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3663936816%_ + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3663936816%_))) - (let ((_%tl3665936726%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ - (let () (declare (not safe)) (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ + (let () (declare (not safe)) (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39919_| - _%hd3653437226%_) + |gerbil/core/match[1]#_g39982_| + _%hd3659737289%_) (if (gx#stx-pair/null? - _%tl3653537229%_) - (let ((_%__splice3955039551%_ + _%tl3659837292%_) + (let ((_%__splice3961339614%_ (gx#syntax-split-splice - _%tl3653537229%_ + _%tl3659837292%_ '0))) - (let ((_%tl3656237125%_ + (let ((_%tl3662537188%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice3955039551%_ '1))) - (_%target3656037122%_ + (##vector-ref _%__splice3961339614%_ '1))) + (_%target3662337185%_ (let () (declare (not safe)) - (##vector-ref _%__splice3955039551%_ '0)))) - (if (gx#stx-null? _%tl3656237125%_) - (_%__match3962439625%_ - _%e3652737202%_ - _%hd3652837206%_ - _%tl3652937209%_ - _%e3653037212%_ - _%hd3653137216%_ - _%tl3653237219%_ - _%e3653337222%_ - _%hd3653437226%_ - _%tl3653537229%_ - _%__splice3955039551%_ - _%target3656037122%_ - _%tl3656237125%_) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ - (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (##vector-ref _%__splice3961339614%_ '0)))) + (if (gx#stx-null? _%tl3662537188%_) + (_%__match3968739688%_ + _%e3659037265%_ + _%hd3659137269%_ + _%tl3659237272%_ + _%e3659337275%_ + _%hd3659437279%_ + _%tl3659537282%_ + _%e3659637285%_ + _%hd3659737289%_ + _%tl3659837292%_ + _%__splice3961339614%_ + _%target3662337185%_ + _%tl3662537188%_) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3662336885%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3660036985%_) - (let ((_%e3663736809%_ + _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ - (let () (declare (not safe)) (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ + (let () (declare (not safe)) (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3662336885%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3663936816%_))) - (let ((_%tl3665936726%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (let () (declare (not safe)) (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39920_| - _%hd3653437226%_) + |gerbil/core/match[1]#_g39983_| + _%hd3659737289%_) (if (gx#stx-pair? - _%tl3653537229%_) - (let ((_%e3658437042%_ + _%tl3659837292%_) + (let ((_%e3664737105%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3653537229%_))) - (let ((_%tl3658637049%_ + (gx#syntax-e _%tl3659837292%_))) + (let ((_%tl3664937112%_ (let () (declare (not safe)) - (##cdr _%e3658437042%_))) - (_%hd3658537046%_ + (##cdr _%e3664737105%_))) + (_%hd3664837109%_ (let () (declare (not safe)) - (##car _%e3658437042%_)))) - (if (gx#stx-null? _%tl3658637049%_) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3658737052%_ - (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3658937059%_ + (##car _%e3664737105%_)))) + (if (gx#stx-null? _%tl3664937112%_) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3665037115%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3665237122%_ (let () (declare (not safe)) - (##cdr _%e3658737052%_))) - (_%hd3658837056%_ + (##cdr _%e3665037115%_))) + (_%hd3665137119%_ (let () (declare (not safe)) - (##car _%e3658737052%_)))) - (if (gx#stx-null? _%tl3658937059%_) - (_%__kont3955239553%_ - _%hd3658837056%_ - _%hd3658537046%_ - _%hd3652837206%_) - (if (gx#identifier? _%hd3658837056%_) + (##car _%e3665037115%_)))) + (if (gx#stx-null? _%tl3665237122%_) + (_%__kont3961539616%_ + _%hd3665137119%_ + _%hd3664837109%_ + _%hd3659137269%_) + (if (gx#identifier? _%hd3665137119%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3658837056%_) + |gerbil/core/match[1]#_g39979_| + _%hd3665137119%_) (if (gx#stx-pair? - _%tl3658937059%_) - (let ((_%e3662136878%_ + _%tl3665237122%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3658937059%_))) - (let ((_%tl3662336885%_ + _%tl3665237122%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3658837056%_) - (let ((_%e3663636805%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3665137119%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3658837056%_))) - (if (equal? _%e3663636805%_ + _%hd3665137119%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3658937059%_) - (let ((_%e3663736809%_ + _%tl3665237122%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3658937059%_))) - (let ((_%tl3663936816%_ + _%tl3665237122%_))) + (let ((_%tl3670236879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (let () (declare (not safe)) (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ - (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3665936726%_))) - (let ((_%tl3666236736%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) + (##car _%e3672336792%_)))) (if (gx#stx-null? - _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) - (let () (declare (not safe)) (_%g3652236668%_))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_)))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ - (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (_%g3658536731%_)))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? - _%tl3660036985%_) - (let ((_%e3662136878%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3662336885%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3659936982%_))) - (if (equal? _%e3663636805%_ + _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) (if (gx#stx-pair? - _%tl3660036985%_) - (let ((_%e3663736809%_ + _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (let () (declare (not safe)) (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ - (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3665936726%_))) - (let ((_%tl3666236736%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) + (##car _%e3672336792%_)))) (if (gx#stx-null? - _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) - (let () (declare (not safe)) (_%g3652236668%_))) + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3662336885%_ + _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) + (##car _%e3668436941%_)))) (if (gx#stx-null? - _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) - (if (gx#identifier? _%hd3659936982%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) + (if (gx#identifier? _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3662136878%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3662336885%_ + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ - (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ + (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ + (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e - _%tl3660036985%_))) - (let ((_%tl3663936816%_ + _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) + (##car _%e3670036872%_)))) (if (gx#stx-null? - _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (if (gx#stx-pair? - _%tl3663936816%_) - (let ((_%e3665736719%_ + _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3663936816%_))) - (let ((_%tl3665936726%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (let () (declare (not safe)) (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) - (if (gx#stx-pair? _%tl3665936726%_) - (let ((_%e3666036729%_ - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) + (if (gx#stx-pair? _%tl3672236789%_) + (let ((_%e3672336792%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_)))) + (_%g3658536731%_)))) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ _%hd3653137216%_ _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))))) + (_%g3658536731%_))))))) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ _%hd3659437279%_ _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ (gx#syntax-e - _%tl3653237219%_))) - (let ((_%tl3660036985%_ + _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) + (##car _%e3666137041%_)))) (if (gx#stx-null? - _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) + _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) (if (gx#identifier? - _%hd3659936982%_) + _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl3660036985%_) - (let ((_%e3662136878%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3662336885%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) - (if (gx#stx-datum? _%hd3659936982%_) - (let ((_%e3663636805%_ (gx#stx-e _%hd3659936982%_))) - (if (equal? _%e3663636805%_ '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3663936816%_ + (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) + (if (gx#stx-datum? _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e _%hd3666237045%_))) + (if (equal? _%e3669936868%_ '::) + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ (gx#syntax-e - _%tl3663936816%_))) - (let ((_%tl3665936726%_ + _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) + (##car _%e3672036782%_)))) (if (gx#identifier? - _%hd3665836723%_) + _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) (if (gx#stx-pair? - _%tl3665936726%_) - (let ((_%e3666036729%_ + _%tl3672236789%_) + (let ((_%e3672336792%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3665936726%_))) - (let ((_%tl3666236736%_ + (gx#syntax-e _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ (let () (declare (not safe)) - (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) + (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_)))))) + (_%g3658536731%_)))))) (let () (declare (not safe)) - (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_)))) - (let () (declare (not safe)) (_%g3652236668%_))))))) + (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_)))) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) + _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (if (gx#stx-pair? _%tl3653237219%_) - (let ((_%e3659836978%_ - (gx#syntax-e _%tl3653237219%_))) - (let ((_%tl3660036985%_ + (_%g3658536731%_))))))) + (if (gx#stx-pair? _%tl3659537282%_) + (let ((_%e3666137041%_ + (gx#syntax-e _%tl3659537282%_))) + (let ((_%tl3666337048%_ (let () (declare (not safe)) - (##cdr _%e3659836978%_))) - (_%hd3659936982%_ + (##cdr _%e3666137041%_))) + (_%hd3666237045%_ (let () (declare (not safe)) - (##car _%e3659836978%_)))) - (if (gx#stx-null? _%tl3660036985%_) - (_%__kont3955439555%_ - _%hd3659936982%_ - _%hd3653137216%_) + (##car _%e3666137041%_)))) + (if (gx#stx-null? _%tl3666337048%_) + (_%__kont3961739618%_ + _%hd3666237045%_ + _%hd3659437279%_) (if (gx#identifier? - _%hd3659936982%_) + _%hd3666237045%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39916_| - _%hd3659936982%_) + |gerbil/core/match[1]#_g39979_| + _%hd3666237045%_) (if (gx#stx-pair? - _%tl3660036985%_) - (let ((_%e3662136878%_ + _%tl3666337048%_) + (let ((_%e3668436941%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3662336885%_ + (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3668636948%_ (let () (declare (not safe)) - (##cdr _%e3662136878%_))) - (_%hd3662236882%_ + (##cdr _%e3668436941%_))) + (_%hd3668536945%_ (let () (declare (not safe)) - (##car _%e3662136878%_)))) - (if (gx#stx-null? _%tl3662336885%_) - (_%__kont3955839559%_ - _%hd3662236882%_ - _%hd3653137216%_ - _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_))) + (##car _%e3668436941%_)))) + (if (gx#stx-null? _%tl3668636948%_) + (_%__kont3962139622%_ + _%hd3668536945%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-datum? - _%hd3659936982%_) - (let ((_%e3663636805%_ + _%hd3666237045%_) + (let ((_%e3669936868%_ (gx#stx-e - _%hd3659936982%_))) - (if (equal? _%e3663636805%_ + _%hd3666237045%_))) + (if (equal? _%e3669936868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '::) - (if (gx#stx-pair? _%tl3660036985%_) - (let ((_%e3663736809%_ (gx#syntax-e _%tl3660036985%_))) - (let ((_%tl3663936816%_ + (if (gx#stx-pair? _%tl3666337048%_) + (let ((_%e3670036872%_ (gx#syntax-e _%tl3666337048%_))) + (let ((_%tl3670236879%_ (let () (declare (not safe)) - (##cdr _%e3663736809%_))) - (_%hd3663836813%_ + (##cdr _%e3670036872%_))) + (_%hd3670136876%_ (let () (declare (not safe)) - (##car _%e3663736809%_)))) - (if (gx#stx-null? _%tl3663936816%_) - (_%__kont3956039561%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (if (gx#stx-pair? _%tl3663936816%_) - (let ((_%e3665736719%_ - (gx#syntax-e _%tl3663936816%_))) - (let ((_%tl3665936726%_ + (##car _%e3670036872%_)))) + (if (gx#stx-null? _%tl3670236879%_) + (_%__kont3962339624%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (if (gx#stx-pair? _%tl3670236879%_) + (let ((_%e3672036782%_ + (gx#syntax-e _%tl3670236879%_))) + (let ((_%tl3672236789%_ (let () (declare (not safe)) - (##cdr _%e3665736719%_))) - (_%hd3665836723%_ + (##cdr _%e3672036782%_))) + (_%hd3672136786%_ (let () (declare (not safe)) - (##car _%e3665736719%_)))) - (if (gx#identifier? _%hd3665836723%_) + (##car _%e3672036782%_)))) + (if (gx#identifier? _%hd3672136786%_) (if (gx#free-identifier=? - |gerbil/core/match[1]#_g39917_| - _%hd3665836723%_) + |gerbil/core/match[1]#_g39980_| + _%hd3672136786%_) (if (gx#stx-pair? - _%tl3665936726%_) - (let ((_%e3666036729%_ + _%tl3672236789%_) + (let ((_%e3672336792%_ (gx#syntax-e - _%tl3665936726%_))) - (let ((_%tl3666236736%_ + _%tl3672236789%_))) + (let ((_%tl3672536799%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e3666036729%_))) - (_%hd3666136733%_ - (let () (declare (not safe)) (##car _%e3666036729%_)))) - (if (gx#stx-null? _%tl3666236736%_) - (_%__kont3956239563%_ - _%hd3666136733%_ - _%hd3663836813%_ - _%hd3653137216%_ - _%hd3652837206%_) - (let () (declare (not safe)) (_%g3652236668%_))))) + (##cdr _%e3672336792%_))) + (_%hd3672436796%_ + (let () (declare (not safe)) (##car _%e3672336792%_)))) + (if (gx#stx-null? _%tl3672536799%_) + (_%__kont3962539626%_ + _%hd3672436796%_ + _%hd3670136876%_ + _%hd3659437279%_ + _%hd3659137269%_) + (let () (declare (not safe)) (_%g3658536731%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))) + (_%g3658536731%_))) (let () (declare (not safe)) - (_%g3652236668%_))))) + (_%g3658536731%_))))) (let () (declare (not safe)) - (_%g3652236668%_)))))) - (let () (declare (not safe)) (_%g3652236668%_))) - (let () (declare (not safe)) (_%g3652236668%_)))) - (let () (declare (not safe)) (_%g3652236668%_))))))) + (_%g3658536731%_)))))) + (let () (declare (not safe)) (_%g3658536731%_))) + (let () (declare (not safe)) (_%g3658536731%_)))) + (let () (declare (not safe)) (_%g3658536731%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-null? _%tl3653237219%_) - (_%__kont3955639557%_ - _%hd3653137216%_ - _%hd3652837206%_) + (if (gx#stx-null? _%tl3659537282%_) + (_%__kont3961939620%_ + _%hd3659437279%_ + _%hd3659137269%_) (let () (declare (not safe)) - (_%g3652236668%_))))))) - (let () (declare (not safe)) (_%g3652236668%_))))) - (let () (declare (not safe)) (_%g3652236668%_)))))))) + (_%g3658536731%_))))))) + (let () (declare (not safe)) (_%g3658536731%_))))) + (let () (declare (not safe)) (_%g3658536731%_)))))))) (define |gerbil/core/match[:0:]#defsyntax-for-match| - (lambda (_%$stx37311%_) - (let* ((_%__stx3980939810%_ _%$stx37311%_) - (_%g3731637350%_ + (lambda (_%$stx37374%_) + (let* ((_%__stx3987239873%_ _%$stx37374%_) + (_%g3737937413%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx3980939810%_)))) - (let ((_%__kont3981239813%_ - (lambda (_%L37454%_ _%L37456%_ _%L37457%_) + _%__stx3987239873%_)))) + (let ((_%__kont3987539876%_ + (lambda (_%L37517%_ _%L37519%_ _%L37520%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L37457%_ + (cons _%L37520%_ (cons (cons (gx#datum->syntax '#f 'make-match-macro) @@ -8470,9 +8470,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$match-e) - (cons _%L37456%_ '())) + (cons _%L37519%_ '())) (cons (cons (gx#datum->syntax '#f '$macro-e) - (cons _%L37454%_ '())) + (cons _%L37517%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f '$stx) @@ -8529,11 +8529,11 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont3981439815%_ - (lambda (_%L37387%_ _%L37389%_ _%L37390%_) - (cons _%L37390%_ - (cons _%L37389%_ - (cons _%L37387%_ + (_%__kont3987739878%_ + (lambda (_%L37450%_ _%L37452%_ _%L37453%_) + (cons _%L37453%_ + (cons _%L37452%_ + (cons _%L37450%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f @@ -8550,146 +8550,146 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (let ((_%__match3984239843%_ - (lambda (_%e3732137414%_ - _%hd3732237418%_ - _%tl3732337421%_ - _%e3732437424%_ - _%hd3732537428%_ - _%tl3732637431%_ - _%e3732737434%_ - _%hd3732837438%_ - _%tl3732937441%_ - _%e3733037444%_ - _%hd3733137448%_ - _%tl3733237451%_) - (let ((_%L37454%_ _%hd3733137448%_) - (_%L37456%_ _%hd3732837438%_) - (_%L37457%_ _%hd3732537428%_)) - (if (gx#identifier? _%L37457%_) - (_%__kont3981239813%_ - _%L37454%_ - _%L37456%_ - _%L37457%_) - (let () (declare (not safe)) (_%g3731637350%_))))))) - (if (gx#stx-pair? _%__stx3980939810%_) - (let ((_%e3732137414%_ (gx#syntax-e _%__stx3980939810%_))) - (let ((_%tl3732337421%_ + (let ((_%__match3990539906%_ + (lambda (_%e3738437477%_ + _%hd3738537481%_ + _%tl3738637484%_ + _%e3738737487%_ + _%hd3738837491%_ + _%tl3738937494%_ + _%e3739037497%_ + _%hd3739137501%_ + _%tl3739237504%_ + _%e3739337507%_ + _%hd3739437511%_ + _%tl3739537514%_) + (let ((_%L37517%_ _%hd3739437511%_) + (_%L37519%_ _%hd3739137501%_) + (_%L37520%_ _%hd3738837491%_)) + (if (gx#identifier? _%L37520%_) + (_%__kont3987539876%_ + _%L37517%_ + _%L37519%_ + _%L37520%_) + (let () (declare (not safe)) (_%g3737937413%_))))))) + (if (gx#stx-pair? _%__stx3987239873%_) + (let ((_%e3738437477%_ (gx#syntax-e _%__stx3987239873%_))) + (let ((_%tl3738637484%_ (let () (declare (not safe)) - (##cdr _%e3732137414%_))) - (_%hd3732237418%_ + (##cdr _%e3738437477%_))) + (_%hd3738537481%_ (let () (declare (not safe)) - (##car _%e3732137414%_)))) - (if (gx#stx-pair? _%tl3732337421%_) - (let ((_%e3732437424%_ - (gx#syntax-e _%tl3732337421%_))) - (let ((_%tl3732637431%_ + (##car _%e3738437477%_)))) + (if (gx#stx-pair? _%tl3738637484%_) + (let ((_%e3738737487%_ + (gx#syntax-e _%tl3738637484%_))) + (let ((_%tl3738937494%_ (let () (declare (not safe)) - (##cdr _%e3732437424%_))) - (_%hd3732537428%_ + (##cdr _%e3738737487%_))) + (_%hd3738837491%_ (let () (declare (not safe)) - (##car _%e3732437424%_)))) - (if (gx#stx-pair? _%tl3732637431%_) - (let ((_%e3732737434%_ - (gx#syntax-e _%tl3732637431%_))) - (let ((_%tl3732937441%_ + (##car _%e3738737487%_)))) + (if (gx#stx-pair? _%tl3738937494%_) + (let ((_%e3739037497%_ + (gx#syntax-e _%tl3738937494%_))) + (let ((_%tl3739237504%_ (let () (declare (not safe)) - (##cdr _%e3732737434%_))) - (_%hd3732837438%_ + (##cdr _%e3739037497%_))) + (_%hd3739137501%_ (let () (declare (not safe)) - (##car _%e3732737434%_)))) - (if (gx#stx-pair? _%tl3732937441%_) - (let ((_%e3733037444%_ + (##car _%e3739037497%_)))) + (if (gx#stx-pair? _%tl3739237504%_) + (let ((_%e3739337507%_ (gx#syntax-e - _%tl3732937441%_))) - (let ((_%tl3733237451%_ + _%tl3739237504%_))) + (let ((_%tl3739537514%_ (let () (declare (not safe)) - (##cdr _%e3733037444%_))) - (_%hd3733137448%_ + (##cdr _%e3739337507%_))) + (_%hd3739437511%_ (let () (declare (not safe)) - (##car _%e3733037444%_)))) + (##car _%e3739337507%_)))) (if (gx#stx-null? - _%tl3733237451%_) - (_%__match3984239843%_ - _%e3732137414%_ - _%hd3732237418%_ - _%tl3732337421%_ - _%e3732437424%_ - _%hd3732537428%_ - _%tl3732637431%_ - _%e3732737434%_ - _%hd3732837438%_ - _%tl3732937441%_ - _%e3733037444%_ - _%hd3733137448%_ - _%tl3733237451%_) + _%tl3739537514%_) + (_%__match3990539906%_ + _%e3738437477%_ + _%hd3738537481%_ + _%tl3738637484%_ + _%e3738737487%_ + _%hd3738837491%_ + _%tl3738937494%_ + _%e3739037497%_ + _%hd3739137501%_ + _%tl3739237504%_ + _%e3739337507%_ + _%hd3739437511%_ + _%tl3739537514%_) (let () (declare (not safe)) - (_%g3731637350%_))))) - (if (gx#stx-null? _%tl3732937441%_) - (_%__kont3981439815%_ - _%hd3732837438%_ - _%hd3732537428%_ - _%hd3732237418%_) + (_%g3737937413%_))))) + (if (gx#stx-null? _%tl3739237504%_) + (_%__kont3987739878%_ + _%hd3739137501%_ + _%hd3738837491%_ + _%hd3738537481%_) (let () (declare (not safe)) - (_%g3731637350%_)))))) + (_%g3737937413%_)))))) (let () (declare (not safe)) - (_%g3731637350%_))))) - (let () (declare (not safe)) (_%g3731637350%_))))) - (let () (declare (not safe)) (_%g3731637350%_)))))))) + (_%g3737937413%_))))) + (let () (declare (not safe)) (_%g3737937413%_))))) + (let () (declare (not safe)) (_%g3737937413%_)))))))) (define |gerbil/core/match[:0:]#defrules-for-match| - (lambda (_%$stx37479%_) - (let* ((_%g3748337498%_ - (lambda (_%g3748437494%_) + (lambda (_%$stx37542%_) + (let* ((_%g3754637561%_ + (lambda (_%g3754737557%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g3748437494%_))) - (_%g3748237541%_ - (lambda (_%g3748437502%_) - (if (gx#stx-pair? _%g3748437502%_) - (let ((_%e3748737505%_ (gx#syntax-e _%g3748437502%_))) - (let ((_%hd3748837509%_ + _%g3754737557%_))) + (_%g3754537604%_ + (lambda (_%g3754737565%_) + (if (gx#stx-pair? _%g3754737565%_) + (let ((_%e3755037568%_ (gx#syntax-e _%g3754737565%_))) + (let ((_%hd3755137572%_ (let () (declare (not safe)) - (##car _%e3748737505%_))) - (_%tl3748937512%_ + (##car _%e3755037568%_))) + (_%tl3755237575%_ (let () (declare (not safe)) - (##cdr _%e3748737505%_)))) - (if (gx#stx-pair? _%tl3748937512%_) - (let ((_%e3749037515%_ - (gx#syntax-e _%tl3748937512%_))) - (let ((_%hd3749137519%_ + (##cdr _%e3755037568%_)))) + (if (gx#stx-pair? _%tl3755237575%_) + (let ((_%e3755337578%_ + (gx#syntax-e _%tl3755237575%_))) + (let ((_%hd3755437582%_ (let () (declare (not safe)) - (##car _%e3749037515%_))) - (_%tl3749237522%_ + (##car _%e3755337578%_))) + (_%tl3755537585%_ (let () (declare (not safe)) - (##cdr _%e3749037515%_)))) - ((lambda (_%L37525%_ _%L37527%_) + (##cdr _%e3755337578%_)))) + ((lambda (_%L37588%_ _%L37590%_) (cons (gx#datum->syntax '#f 'defsyntax-for-match) - (cons _%L37527%_ + (cons _%L37590%_ (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L37525%_) + _%L37588%_) '())))) - _%tl3749237522%_ - _%hd3749137519%_))) - (_%g3748337498%_ _%g3748437502%_)))) - (_%g3748337498%_ _%g3748437502%_))))) - (_%g3748237541%_ _%$stx37479%_)))))) + _%tl3755537585%_ + _%hd3755437582%_))) + (_%g3754637561%_ _%g3754737565%_)))) + (_%g3754637561%_ _%g3754737565%_))))) + (_%g3754537604%_ _%$stx37542%_)))))) diff --git a/src/bootstrap/gerbil/core/match~2.scm b/src/bootstrap/gerbil/core/match~2.scm index ceea2ff55..ea382d683 100644 --- a/src/bootstrap/gerbil/core/match~2.scm +++ b/src/bootstrap/gerbil/core/match~2.scm @@ -1,55 +1,55 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/match[2]#_g39922_| + (define |gerbil/core/match[2]#_g39985_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39924_| + (define |gerbil/core/match[2]#_g39987_| (##structure gx#syntax-quote::t 'match-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39926_| + (define |gerbil/core/match[2]#_g39989_| (##structure gx#syntax-quote::t 'make-match-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39928_| + (define |gerbil/core/match[2]#_g39991_| (##structure gx#syntax-quote::t 'match-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39930_| + (define |gerbil/core/match[2]#_g39993_| (##structure gx#syntax-quote::t 'match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39932_| + (define |gerbil/core/match[2]#_g39995_| (##structure gx#syntax-quote::t 'match-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39934_| + (define |gerbil/core/match[2]#_g39997_| (##structure gx#syntax-quote::t '&match-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/match[2]#_g39936_| + (define |gerbil/core/match[2]#_g39999_| (##structure gx#syntax-quote::t '&match-macro-macro-set! @@ -57,7 +57,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/match[:1:]#match-macro| - (let ((__obj39864 + (let ((__obj39927 (let () (declare (not safe)) (##structure @@ -86,55 +86,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj39864 + __obj39927 'gerbil.core#match-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 'match-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj39927 'match-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 '() '4 '#f '#f)) - (let ((__tmp39921 (cons |gerbil/core/match[2]#_g39922_| '()))) + (##unchecked-structure-set! __obj39927 '() '4 '#f '#f)) + (let ((__tmp39984 (cons |gerbil/core/match[2]#_g39985_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39921 '3 '#f '#f)) + (##unchecked-structure-set! __obj39927 __tmp39984 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj39927 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj39864 '#f '11 '#f '#f)) - (let ((__tmp39923 |gerbil/core/match[2]#_g39924_|)) + (##unchecked-structure-set! __obj39927 '#f '11 '#f '#f)) + (let ((__tmp39986 |gerbil/core/match[2]#_g39987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39923 '12 '#f '#f)) - (let ((__tmp39925 |gerbil/core/match[2]#_g39926_|)) + (##unchecked-structure-set! __obj39927 __tmp39986 '12 '#f '#f)) + (let ((__tmp39988 |gerbil/core/match[2]#_g39989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39925 '13 '#f '#f)) - (let ((__tmp39927 |gerbil/core/match[2]#_g39928_|)) + (##unchecked-structure-set! __obj39927 __tmp39988 '13 '#f '#f)) + (let ((__tmp39990 |gerbil/core/match[2]#_g39991_|)) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39927 '14 '#f '#f)) - (let ((__tmp39929 - (cons (cons 'macro |gerbil/core/match[2]#_g39930_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39990 '14 '#f '#f)) + (let ((__tmp39992 + (cons (cons 'macro |gerbil/core/match[2]#_g39993_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39929 '15 '#f '#f)) - (let ((__tmp39931 - (cons (cons 'macro |gerbil/core/match[2]#_g39932_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39992 '15 '#f '#f)) + (let ((__tmp39994 + (cons (cons 'macro |gerbil/core/match[2]#_g39995_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39931 '16 '#f '#f)) - (let ((__tmp39933 - (cons (cons 'macro |gerbil/core/match[2]#_g39934_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39994 '16 '#f '#f)) + (let ((__tmp39996 + (cons (cons 'macro |gerbil/core/match[2]#_g39997_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39933 '17 '#f '#f)) - (let ((__tmp39935 - (cons (cons 'macro |gerbil/core/match[2]#_g39936_|) '()))) + (##unchecked-structure-set! __obj39927 __tmp39996 '17 '#f '#f)) + (let ((__tmp39998 + (cons (cons 'macro |gerbil/core/match[2]#_g39999_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj39864 __tmp39935 '18 '#f '#f)) - __obj39864))) + (##unchecked-structure-set! __obj39927 __tmp39998 '18 '#f '#f)) + __obj39927))) diff --git a/src/bootstrap/gerbil/core/module-sugar~1.scm b/src/bootstrap/gerbil/core/module-sugar~1.scm index cdd016e78..912303c68 100644 --- a/src/bootstrap/gerbil/core/module-sugar~1.scm +++ b/src/bootstrap/gerbil/core/module-sugar~1.scm @@ -1,2889 +1,2889 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/module-sugar[:0:]#require| - (lambda (_%$stx41656%_) - (let* ((_%__stx4431044311%_ _%$stx41656%_) - (_%g4166141680%_ + (lambda (_%$stx41719%_) + (let* ((_%__stx4437344374%_ _%$stx41719%_) + (_%g4172441743%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4431044311%_)))) - (let ((_%__kont4431344314%_ + _%__stx4437344374%_)))) + (let ((_%__kont4437644377%_ (lambda () (cons (gx#datum->syntax '#f 'begin) '()))) - (_%__kont4431544316%_ - (lambda (_%L41707%_ _%L41709%_ _%L41710%_) + (_%__kont4437844379%_ + (lambda (_%L41770%_ _%L41772%_ _%L41773%_) (cons (gx#datum->syntax '#f 'cond-expand) - (cons (cons _%L41709%_ - (cons (cons _%L41710%_ _%L41707%_) '())) + (cons (cons _%L41772%_ + (cons (cons _%L41773%_ _%L41770%_) '())) (cons (cons (gx#datum->syntax '#f 'else) (cons (cons (gx#datum->syntax '#f 'syntax-error) (cons '"Missing required feature" - (cons _%L41709%_ + (cons _%L41772%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())))))) - (if (gx#stx-pair? _%__stx4431044311%_) - (let ((_%e4166341732%_ (gx#syntax-e _%__stx4431044311%_))) - (let ((_%tl4166541739%_ - (let () (declare (not safe)) (##cdr _%e4166341732%_))) - (_%hd4166441736%_ - (let () (declare (not safe)) (##car _%e4166341732%_)))) - (if (gx#stx-null? _%tl4166541739%_) - (_%__kont4431344314%_) - (if (gx#stx-pair? _%tl4166541739%_) - (let ((_%e4167241697%_ - (gx#syntax-e _%tl4166541739%_))) - (let ((_%tl4167441704%_ + (if (gx#stx-pair? _%__stx4437344374%_) + (let ((_%e4172641795%_ (gx#syntax-e _%__stx4437344374%_))) + (let ((_%tl4172841802%_ + (let () (declare (not safe)) (##cdr _%e4172641795%_))) + (_%hd4172741799%_ + (let () (declare (not safe)) (##car _%e4172641795%_)))) + (if (gx#stx-null? _%tl4172841802%_) + (_%__kont4437644377%_) + (if (gx#stx-pair? _%tl4172841802%_) + (let ((_%e4173541760%_ + (gx#syntax-e _%tl4172841802%_))) + (let ((_%tl4173741767%_ (let () (declare (not safe)) - (##cdr _%e4167241697%_))) - (_%hd4167341701%_ + (##cdr _%e4173541760%_))) + (_%hd4173641764%_ (let () (declare (not safe)) - (##car _%e4167241697%_)))) - (_%__kont4431544316%_ - _%tl4167441704%_ - _%hd4167341701%_ - _%hd4166441736%_))) - (let () (declare (not safe)) (_%g4166141680%_)))))) - (let () (declare (not safe)) (_%g4166141680%_))))))) + (##car _%e4173541760%_)))) + (_%__kont4437844379%_ + _%tl4173741767%_ + _%hd4173641764%_ + _%hd4172741799%_))) + (let () (declare (not safe)) (_%g4172441743%_)))))) + (let () (declare (not safe)) (_%g4172441743%_))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import| - (lambda (_%$stx41750%_) - (let* ((_%__stx4434044341%_ _%$stx41750%_) - (_%g4175541795%_ + (lambda (_%$stx41813%_) + (let* ((_%__stx4440344404%_ _%$stx41813%_) + (_%g4181841858%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4434044341%_)))) - (let ((_%__kont4434344344%_ - (lambda (_%L41933%_ _%L41935%_) + _%__stx4440344404%_)))) + (let ((_%__kont4440644407%_ + (lambda (_%L41996%_ _%L41998%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L41935%_ + (cons _%L41998%_ (cons (cons (gx#datum->syntax '#f 'make-import-expander) - (cons _%L41933%_ '())) + (cons _%L41996%_ '())) '()))))) - (_%__kont4434544346%_ - (lambda (_%L41862%_ _%L41864%_ _%L41865%_ _%L41866%_) - (cons _%L41866%_ - (cons _%L41865%_ + (_%__kont4440844409%_ + (lambda (_%L41925%_ _%L41927%_ _%L41928%_ _%L41929%_) + (cons _%L41929%_ + (cons _%L41928%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L41864%_ - (foldr (lambda (_%g4188741890%_ - _%g4188841893%_) - (cons _%g4188741890%_ - _%g4188841893%_)) + (cons _%L41927%_ + (foldr (lambda (_%g4195041953%_ + _%g4195141956%_) + (cons _%g4195041953%_ + _%g4195141956%_)) '() - _%L41862%_))) + _%L41925%_))) '())))))) - (let* ((_%__match4439544396%_ - (lambda (_%e4177241802%_ - _%hd4177341806%_ - _%tl4177441809%_ - _%e4177541812%_ - _%hd4177641816%_ - _%tl4177741819%_ - _%e4177841822%_ - _%hd4177941826%_ - _%tl4178041829%_ - _%__splice4434744348%_ - _%target4178141832%_ - _%tl4178341835%_) - (letrec ((_%loop4178441838%_ - (lambda (_%hd4178241842%_ _%body4178841845%_) - (if (gx#stx-pair? _%hd4178241842%_) - (let ((_%e4178541848%_ - (gx#syntax-e _%hd4178241842%_))) - (let ((_%lp-tl4178741855%_ + (let* ((_%__match4445844459%_ + (lambda (_%e4183541865%_ + _%hd4183641869%_ + _%tl4183741872%_ + _%e4183841875%_ + _%hd4183941879%_ + _%tl4184041882%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) + (letrec ((_%loop4184741901%_ + (lambda (_%hd4184541905%_ _%body4185141908%_) + (if (gx#stx-pair? _%hd4184541905%_) + (let ((_%e4184841911%_ + (gx#syntax-e _%hd4184541905%_))) + (let ((_%lp-tl4185041918%_ (let () (declare (not safe)) - (##cdr _%e4178541848%_))) - (_%lp-hd4178641852%_ + (##cdr _%e4184841911%_))) + (_%lp-hd4184941915%_ (let () (declare (not safe)) - (##car _%e4178541848%_)))) - (_%loop4178441838%_ - _%lp-tl4178741855%_ - (cons _%lp-hd4178641852%_ - _%body4178841845%_)))) - (let ((_%body4178941858%_ - (reverse _%body4178841845%_))) - (let ((_%L41862%_ _%body4178941858%_) - (_%L41864%_ _%tl4178041829%_) - (_%L41865%_ _%hd4177941826%_) - (_%L41866%_ _%hd4177341806%_)) - (if (gx#identifier? _%L41865%_) - (_%__kont4434544346%_ - _%L41862%_ - _%L41864%_ - _%L41865%_ - _%L41866%_) + (##car _%e4184841911%_)))) + (_%loop4184741901%_ + _%lp-tl4185041918%_ + (cons _%lp-hd4184941915%_ + _%body4185141908%_)))) + (let ((_%body4185241921%_ + (reverse _%body4185141908%_))) + (let ((_%L41925%_ _%body4185241921%_) + (_%L41927%_ _%tl4184341892%_) + (_%L41928%_ _%hd4184241889%_) + (_%L41929%_ _%hd4183641869%_)) + (if (gx#identifier? _%L41928%_) + (_%__kont4440844409%_ + _%L41925%_ + _%L41927%_ + _%L41928%_ + _%L41929%_) (let () (declare (not safe)) - (_%g4175541795%_))))))))) - (_%loop4178441838%_ _%target4178141832%_ '())))) - (_%__match4436944370%_ - (lambda (_%e4175941903%_ - _%hd4176041907%_ - _%tl4176141910%_ - _%e4176241913%_ - _%hd4176341917%_ - _%tl4176441920%_ - _%e4176541923%_ - _%hd4176641927%_ - _%tl4176741930%_) - (let ((_%L41933%_ _%hd4176641927%_) - (_%L41935%_ _%hd4176341917%_)) - (if (gx#identifier? _%L41935%_) - (_%__kont4434344344%_ _%L41933%_ _%L41935%_) - (if (gx#stx-pair? _%hd4176341917%_) - (let ((_%e4177841822%_ - (gx#syntax-e _%hd4176341917%_))) - (let ((_%tl4178041829%_ + (_%g4181841858%_))))))))) + (_%loop4184741901%_ _%target4184441895%_ '())))) + (_%__match4443244433%_ + (lambda (_%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4182841986%_ + _%hd4182941990%_ + _%tl4183041993%_) + (let ((_%L41996%_ _%hd4182941990%_) + (_%L41998%_ _%hd4182641980%_)) + (if (gx#identifier? _%L41998%_) + (_%__kont4440644407%_ _%L41996%_ _%L41998%_) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ + (gx#syntax-e _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4177841822%_))) - (_%hd4177941826%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4177841822%_)))) - (if (gx#stx-pair/null? _%tl4176441920%_) - (let ((_%__splice4434744348%_ + (##car _%e4184141885%_)))) + (if (gx#stx-pair/null? _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4176441920%_ + _%tl4182741983%_ '0))) - (let ((_%tl4178341835%_ + (let ((_%tl4184641898%_ (let () (declare (not safe)) (##vector-ref - _%__splice4434744348%_ + _%__splice4441044411%_ '1))) - (_%target4178141832%_ + (_%target4184441895%_ (let () (declare (not safe)) (##vector-ref - _%__splice4434744348%_ + _%__splice4441044411%_ '0)))) - (if (gx#stx-null? _%tl4178341835%_) - (_%__match4439544396%_ - _%e4175941903%_ - _%hd4176041907%_ - _%tl4176141910%_ - _%e4176241913%_ - _%hd4176341917%_ - _%tl4176441920%_ - _%e4177841822%_ - _%hd4177941826%_ - _%tl4178041829%_ - _%__splice4434744348%_ - _%target4178141832%_ - _%tl4178341835%_) + (if (gx#stx-null? _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) (let () (declare (not safe)) - (_%g4175541795%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4175541795%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4175541795%_)))))))) - (if (gx#stx-pair? _%__stx4434044341%_) - (let ((_%e4175941903%_ (gx#syntax-e _%__stx4434044341%_))) - (let ((_%tl4176141910%_ - (let () (declare (not safe)) (##cdr _%e4175941903%_))) - (_%hd4176041907%_ + (_%g4181841858%_)))))))) + (if (gx#stx-pair? _%__stx4440344404%_) + (let ((_%e4182241966%_ (gx#syntax-e _%__stx4440344404%_))) + (let ((_%tl4182441973%_ + (let () (declare (not safe)) (##cdr _%e4182241966%_))) + (_%hd4182341970%_ (let () (declare (not safe)) - (##car _%e4175941903%_)))) - (if (gx#stx-pair? _%tl4176141910%_) - (let ((_%e4176241913%_ (gx#syntax-e _%tl4176141910%_))) - (let ((_%tl4176441920%_ + (##car _%e4182241966%_)))) + (if (gx#stx-pair? _%tl4182441973%_) + (let ((_%e4182541976%_ (gx#syntax-e _%tl4182441973%_))) + (let ((_%tl4182741983%_ (let () (declare (not safe)) - (##cdr _%e4176241913%_))) - (_%hd4176341917%_ + (##cdr _%e4182541976%_))) + (_%hd4182641980%_ (let () (declare (not safe)) - (##car _%e4176241913%_)))) - (if (gx#stx-pair? _%tl4176441920%_) - (let ((_%e4176541923%_ - (gx#syntax-e _%tl4176441920%_))) - (let ((_%tl4176741930%_ + (##car _%e4182541976%_)))) + (if (gx#stx-pair? _%tl4182741983%_) + (let ((_%e4182841986%_ + (gx#syntax-e _%tl4182741983%_))) + (let ((_%tl4183041993%_ (let () (declare (not safe)) - (##cdr _%e4176541923%_))) - (_%hd4176641927%_ + (##cdr _%e4182841986%_))) + (_%hd4182941990%_ (let () (declare (not safe)) - (##car _%e4176541923%_)))) - (if (gx#stx-null? _%tl4176741930%_) - (_%__match4436944370%_ - _%e4175941903%_ - _%hd4176041907%_ - _%tl4176141910%_ - _%e4176241913%_ - _%hd4176341917%_ - _%tl4176441920%_ - _%e4176541923%_ - _%hd4176641927%_ - _%tl4176741930%_) - (if (gx#stx-pair? _%hd4176341917%_) - (let ((_%e4177841822%_ + (##car _%e4182841986%_)))) + (if (gx#stx-null? _%tl4183041993%_) + (_%__match4443244433%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4182841986%_ + _%hd4182941990%_ + _%tl4183041993%_) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ (gx#syntax-e - _%hd4176341917%_))) - (let ((_%tl4178041829%_ + _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4177841822%_))) - (_%hd4177941826%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4177841822%_)))) + (##car _%e4184141885%_)))) (if (gx#stx-pair/null? - _%tl4176441920%_) - (let ((_%__splice4434744348%_ + _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4176441920%_ + _%tl4182741983%_ '0))) - (let ((_%tl4178341835%_ + (let ((_%tl4184641898%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4434744348%_ '1))) - (_%target4178141832%_ + (##vector-ref _%__splice4441044411%_ '1))) + (_%target4184441895%_ (let () (declare (not safe)) - (##vector-ref _%__splice4434744348%_ '0)))) - (if (gx#stx-null? _%tl4178341835%_) - (_%__match4439544396%_ - _%e4175941903%_ - _%hd4176041907%_ - _%tl4176141910%_ - _%e4176241913%_ - _%hd4176341917%_ - _%tl4176441920%_ - _%e4177841822%_ - _%hd4177941826%_ - _%tl4178041829%_ - _%__splice4434744348%_ - _%target4178141832%_ - _%tl4178341835%_) - (let () (declare (not safe)) (_%g4175541795%_))))) + (##vector-ref _%__splice4441044411%_ '0)))) + (if (gx#stx-null? _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) + (let () (declare (not safe)) (_%g4181841858%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4175541795%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4175541795%_)))))) - (if (gx#stx-pair? _%hd4176341917%_) - (let ((_%e4177841822%_ - (gx#syntax-e _%hd4176341917%_))) - (let ((_%tl4178041829%_ + (_%g4181841858%_)))))) + (if (gx#stx-pair? _%hd4182641980%_) + (let ((_%e4184141885%_ + (gx#syntax-e _%hd4182641980%_))) + (let ((_%tl4184341892%_ (let () (declare (not safe)) - (##cdr _%e4177841822%_))) - (_%hd4177941826%_ + (##cdr _%e4184141885%_))) + (_%hd4184241889%_ (let () (declare (not safe)) - (##car _%e4177841822%_)))) + (##car _%e4184141885%_)))) (if (gx#stx-pair/null? - _%tl4176441920%_) - (let ((_%__splice4434744348%_ + _%tl4182741983%_) + (let ((_%__splice4441044411%_ (gx#syntax-split-splice - _%tl4176441920%_ + _%tl4182741983%_ '0))) - (let ((_%tl4178341835%_ + (let ((_%tl4184641898%_ (let () (declare (not safe)) (##vector-ref - _%__splice4434744348%_ + _%__splice4441044411%_ '1))) - (_%target4178141832%_ + (_%target4184441895%_ (let () (declare (not safe)) (##vector-ref - _%__splice4434744348%_ + _%__splice4441044411%_ '0)))) (if (gx#stx-null? - _%tl4178341835%_) - (_%__match4439544396%_ - _%e4175941903%_ - _%hd4176041907%_ - _%tl4176141910%_ - _%e4176241913%_ - _%hd4176341917%_ - _%tl4176441920%_ - _%e4177841822%_ - _%hd4177941826%_ - _%tl4178041829%_ - _%__splice4434744348%_ - _%target4178141832%_ - _%tl4178341835%_) + _%tl4184641898%_) + (_%__match4445844459%_ + _%e4182241966%_ + _%hd4182341970%_ + _%tl4182441973%_ + _%e4182541976%_ + _%hd4182641980%_ + _%tl4182741983%_ + _%e4184141885%_ + _%hd4184241889%_ + _%tl4184341892%_ + _%__splice4441044411%_ + _%target4184441895%_ + _%tl4184641898%_) (let () (declare (not safe)) - (_%g4175541795%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4175541795%_))))) + (_%g4181841858%_))))) (let () (declare (not safe)) - (_%g4175541795%_)))))) - (let () (declare (not safe)) (_%g4175541795%_))))) - (let () (declare (not safe)) (_%g4175541795%_)))))))) + (_%g4181841858%_)))))) + (let () (declare (not safe)) (_%g4181841858%_))))) + (let () (declare (not safe)) (_%g4181841858%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-export| - (lambda (_%$stx41955%_) - (let* ((_%__stx4439844399%_ _%$stx41955%_) - (_%g4196042000%_ + (lambda (_%$stx42018%_) + (let* ((_%__stx4446144462%_ _%$stx42018%_) + (_%g4202342063%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4439844399%_)))) - (let ((_%__kont4440144402%_ - (lambda (_%L42138%_ _%L42140%_) + _%__stx4446144462%_)))) + (let ((_%__kont4446444465%_ + (lambda (_%L42201%_ _%L42203%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42140%_ + (cons _%L42203%_ (cons (cons (gx#datum->syntax '#f 'make-export-expander) - (cons _%L42138%_ '())) + (cons _%L42201%_ '())) '()))))) - (_%__kont4440344404%_ - (lambda (_%L42067%_ _%L42069%_ _%L42070%_ _%L42071%_) - (cons _%L42071%_ - (cons _%L42070%_ + (_%__kont4446644467%_ + (lambda (_%L42130%_ _%L42132%_ _%L42133%_ _%L42134%_) + (cons _%L42134%_ + (cons _%L42133%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42069%_ - (foldr (lambda (_%g4209242095%_ - _%g4209342098%_) - (cons _%g4209242095%_ - _%g4209342098%_)) + (cons _%L42132%_ + (foldr (lambda (_%g4215542158%_ + _%g4215642161%_) + (cons _%g4215542158%_ + _%g4215642161%_)) '() - _%L42067%_))) + _%L42130%_))) '())))))) - (let* ((_%__match4445344454%_ - (lambda (_%e4197742007%_ - _%hd4197842011%_ - _%tl4197942014%_ - _%e4198042017%_ - _%hd4198142021%_ - _%tl4198242024%_ - _%e4198342027%_ - _%hd4198442031%_ - _%tl4198542034%_ - _%__splice4440544406%_ - _%target4198642037%_ - _%tl4198842040%_) - (letrec ((_%loop4198942043%_ - (lambda (_%hd4198742047%_ _%body4199342050%_) - (if (gx#stx-pair? _%hd4198742047%_) - (let ((_%e4199042053%_ - (gx#syntax-e _%hd4198742047%_))) - (let ((_%lp-tl4199242060%_ + (let* ((_%__match4451644517%_ + (lambda (_%e4204042070%_ + _%hd4204142074%_ + _%tl4204242077%_ + _%e4204342080%_ + _%hd4204442084%_ + _%tl4204542087%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) + (letrec ((_%loop4205242106%_ + (lambda (_%hd4205042110%_ _%body4205642113%_) + (if (gx#stx-pair? _%hd4205042110%_) + (let ((_%e4205342116%_ + (gx#syntax-e _%hd4205042110%_))) + (let ((_%lp-tl4205542123%_ (let () (declare (not safe)) - (##cdr _%e4199042053%_))) - (_%lp-hd4199142057%_ + (##cdr _%e4205342116%_))) + (_%lp-hd4205442120%_ (let () (declare (not safe)) - (##car _%e4199042053%_)))) - (_%loop4198942043%_ - _%lp-tl4199242060%_ - (cons _%lp-hd4199142057%_ - _%body4199342050%_)))) - (let ((_%body4199442063%_ - (reverse _%body4199342050%_))) - (let ((_%L42067%_ _%body4199442063%_) - (_%L42069%_ _%tl4198542034%_) - (_%L42070%_ _%hd4198442031%_) - (_%L42071%_ _%hd4197842011%_)) - (if (gx#identifier? _%L42070%_) - (_%__kont4440344404%_ - _%L42067%_ - _%L42069%_ - _%L42070%_ - _%L42071%_) + (##car _%e4205342116%_)))) + (_%loop4205242106%_ + _%lp-tl4205542123%_ + (cons _%lp-hd4205442120%_ + _%body4205642113%_)))) + (let ((_%body4205742126%_ + (reverse _%body4205642113%_))) + (let ((_%L42130%_ _%body4205742126%_) + (_%L42132%_ _%tl4204842097%_) + (_%L42133%_ _%hd4204742094%_) + (_%L42134%_ _%hd4204142074%_)) + (if (gx#identifier? _%L42133%_) + (_%__kont4446644467%_ + _%L42130%_ + _%L42132%_ + _%L42133%_ + _%L42134%_) (let () (declare (not safe)) - (_%g4196042000%_))))))))) - (_%loop4198942043%_ _%target4198642037%_ '())))) - (_%__match4442744428%_ - (lambda (_%e4196442108%_ - _%hd4196542112%_ - _%tl4196642115%_ - _%e4196742118%_ - _%hd4196842122%_ - _%tl4196942125%_ - _%e4197042128%_ - _%hd4197142132%_ - _%tl4197242135%_) - (let ((_%L42138%_ _%hd4197142132%_) - (_%L42140%_ _%hd4196842122%_)) - (if (gx#identifier? _%L42140%_) - (_%__kont4440144402%_ _%L42138%_ _%L42140%_) - (if (gx#stx-pair? _%hd4196842122%_) - (let ((_%e4198342027%_ - (gx#syntax-e _%hd4196842122%_))) - (let ((_%tl4198542034%_ + (_%g4202342063%_))))))))) + (_%loop4205242106%_ _%target4204942100%_ '())))) + (_%__match4449044491%_ + (lambda (_%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4203342191%_ + _%hd4203442195%_ + _%tl4203542198%_) + (let ((_%L42201%_ _%hd4203442195%_) + (_%L42203%_ _%hd4203142185%_)) + (if (gx#identifier? _%L42203%_) + (_%__kont4446444465%_ _%L42201%_ _%L42203%_) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ + (gx#syntax-e _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4198342027%_))) - (_%hd4198442031%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4198342027%_)))) - (if (gx#stx-pair/null? _%tl4196942125%_) - (let ((_%__splice4440544406%_ + (##car _%e4204642090%_)))) + (if (gx#stx-pair/null? _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4196942125%_ + _%tl4203242188%_ '0))) - (let ((_%tl4198842040%_ + (let ((_%tl4205142103%_ (let () (declare (not safe)) (##vector-ref - _%__splice4440544406%_ + _%__splice4446844469%_ '1))) - (_%target4198642037%_ + (_%target4204942100%_ (let () (declare (not safe)) (##vector-ref - _%__splice4440544406%_ + _%__splice4446844469%_ '0)))) - (if (gx#stx-null? _%tl4198842040%_) - (_%__match4445344454%_ - _%e4196442108%_ - _%hd4196542112%_ - _%tl4196642115%_ - _%e4196742118%_ - _%hd4196842122%_ - _%tl4196942125%_ - _%e4198342027%_ - _%hd4198442031%_ - _%tl4198542034%_ - _%__splice4440544406%_ - _%target4198642037%_ - _%tl4198842040%_) + (if (gx#stx-null? _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) (let () (declare (not safe)) - (_%g4196042000%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4196042000%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4196042000%_)))))))) - (if (gx#stx-pair? _%__stx4439844399%_) - (let ((_%e4196442108%_ (gx#syntax-e _%__stx4439844399%_))) - (let ((_%tl4196642115%_ - (let () (declare (not safe)) (##cdr _%e4196442108%_))) - (_%hd4196542112%_ + (_%g4202342063%_)))))))) + (if (gx#stx-pair? _%__stx4446144462%_) + (let ((_%e4202742171%_ (gx#syntax-e _%__stx4446144462%_))) + (let ((_%tl4202942178%_ + (let () (declare (not safe)) (##cdr _%e4202742171%_))) + (_%hd4202842175%_ (let () (declare (not safe)) - (##car _%e4196442108%_)))) - (if (gx#stx-pair? _%tl4196642115%_) - (let ((_%e4196742118%_ (gx#syntax-e _%tl4196642115%_))) - (let ((_%tl4196942125%_ + (##car _%e4202742171%_)))) + (if (gx#stx-pair? _%tl4202942178%_) + (let ((_%e4203042181%_ (gx#syntax-e _%tl4202942178%_))) + (let ((_%tl4203242188%_ (let () (declare (not safe)) - (##cdr _%e4196742118%_))) - (_%hd4196842122%_ + (##cdr _%e4203042181%_))) + (_%hd4203142185%_ (let () (declare (not safe)) - (##car _%e4196742118%_)))) - (if (gx#stx-pair? _%tl4196942125%_) - (let ((_%e4197042128%_ - (gx#syntax-e _%tl4196942125%_))) - (let ((_%tl4197242135%_ + (##car _%e4203042181%_)))) + (if (gx#stx-pair? _%tl4203242188%_) + (let ((_%e4203342191%_ + (gx#syntax-e _%tl4203242188%_))) + (let ((_%tl4203542198%_ (let () (declare (not safe)) - (##cdr _%e4197042128%_))) - (_%hd4197142132%_ + (##cdr _%e4203342191%_))) + (_%hd4203442195%_ (let () (declare (not safe)) - (##car _%e4197042128%_)))) - (if (gx#stx-null? _%tl4197242135%_) - (_%__match4442744428%_ - _%e4196442108%_ - _%hd4196542112%_ - _%tl4196642115%_ - _%e4196742118%_ - _%hd4196842122%_ - _%tl4196942125%_ - _%e4197042128%_ - _%hd4197142132%_ - _%tl4197242135%_) - (if (gx#stx-pair? _%hd4196842122%_) - (let ((_%e4198342027%_ + (##car _%e4203342191%_)))) + (if (gx#stx-null? _%tl4203542198%_) + (_%__match4449044491%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4203342191%_ + _%hd4203442195%_ + _%tl4203542198%_) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ (gx#syntax-e - _%hd4196842122%_))) - (let ((_%tl4198542034%_ + _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4198342027%_))) - (_%hd4198442031%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4198342027%_)))) + (##car _%e4204642090%_)))) (if (gx#stx-pair/null? - _%tl4196942125%_) - (let ((_%__splice4440544406%_ + _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4196942125%_ + _%tl4203242188%_ '0))) - (let ((_%tl4198842040%_ + (let ((_%tl4205142103%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4440544406%_ '1))) - (_%target4198642037%_ + (##vector-ref _%__splice4446844469%_ '1))) + (_%target4204942100%_ (let () (declare (not safe)) - (##vector-ref _%__splice4440544406%_ '0)))) - (if (gx#stx-null? _%tl4198842040%_) - (_%__match4445344454%_ - _%e4196442108%_ - _%hd4196542112%_ - _%tl4196642115%_ - _%e4196742118%_ - _%hd4196842122%_ - _%tl4196942125%_ - _%e4198342027%_ - _%hd4198442031%_ - _%tl4198542034%_ - _%__splice4440544406%_ - _%target4198642037%_ - _%tl4198842040%_) - (let () (declare (not safe)) (_%g4196042000%_))))) + (##vector-ref _%__splice4446844469%_ '0)))) + (if (gx#stx-null? _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) + (let () (declare (not safe)) (_%g4202342063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4196042000%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4196042000%_)))))) - (if (gx#stx-pair? _%hd4196842122%_) - (let ((_%e4198342027%_ - (gx#syntax-e _%hd4196842122%_))) - (let ((_%tl4198542034%_ + (_%g4202342063%_)))))) + (if (gx#stx-pair? _%hd4203142185%_) + (let ((_%e4204642090%_ + (gx#syntax-e _%hd4203142185%_))) + (let ((_%tl4204842097%_ (let () (declare (not safe)) - (##cdr _%e4198342027%_))) - (_%hd4198442031%_ + (##cdr _%e4204642090%_))) + (_%hd4204742094%_ (let () (declare (not safe)) - (##car _%e4198342027%_)))) + (##car _%e4204642090%_)))) (if (gx#stx-pair/null? - _%tl4196942125%_) - (let ((_%__splice4440544406%_ + _%tl4203242188%_) + (let ((_%__splice4446844469%_ (gx#syntax-split-splice - _%tl4196942125%_ + _%tl4203242188%_ '0))) - (let ((_%tl4198842040%_ + (let ((_%tl4205142103%_ (let () (declare (not safe)) (##vector-ref - _%__splice4440544406%_ + _%__splice4446844469%_ '1))) - (_%target4198642037%_ + (_%target4204942100%_ (let () (declare (not safe)) (##vector-ref - _%__splice4440544406%_ + _%__splice4446844469%_ '0)))) (if (gx#stx-null? - _%tl4198842040%_) - (_%__match4445344454%_ - _%e4196442108%_ - _%hd4196542112%_ - _%tl4196642115%_ - _%e4196742118%_ - _%hd4196842122%_ - _%tl4196942125%_ - _%e4198342027%_ - _%hd4198442031%_ - _%tl4198542034%_ - _%__splice4440544406%_ - _%target4198642037%_ - _%tl4198842040%_) + _%tl4205142103%_) + (_%__match4451644517%_ + _%e4202742171%_ + _%hd4202842175%_ + _%tl4202942178%_ + _%e4203042181%_ + _%hd4203142185%_ + _%tl4203242188%_ + _%e4204642090%_ + _%hd4204742094%_ + _%tl4204842097%_ + _%__splice4446844469%_ + _%target4204942100%_ + _%tl4205142103%_) (let () (declare (not safe)) - (_%g4196042000%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4196042000%_))))) + (_%g4202342063%_))))) (let () (declare (not safe)) - (_%g4196042000%_)))))) - (let () (declare (not safe)) (_%g4196042000%_))))) - (let () (declare (not safe)) (_%g4196042000%_)))))))) + (_%g4202342063%_)))))) + (let () (declare (not safe)) (_%g4202342063%_))))) + (let () (declare (not safe)) (_%g4202342063%_)))))))) (define |gerbil/core/module-sugar[:0:]#defsyntax-for-import-export| - (lambda (_%$stx42160%_) - (let* ((_%__stx4445644457%_ _%$stx42160%_) - (_%g4216542205%_ + (lambda (_%$stx42223%_) + (let* ((_%__stx4451944520%_ _%$stx42223%_) + (_%g4222842268%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4445644457%_)))) - (let ((_%__kont4445944460%_ - (lambda (_%L42343%_ _%L42345%_) + _%__stx4451944520%_)))) + (let ((_%__kont4452244523%_ + (lambda (_%L42406%_ _%L42408%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L42345%_ + (cons _%L42408%_ (cons (cons (gx#datum->syntax '#f 'make-import-export-expander) - (cons _%L42343%_ '())) + (cons _%L42406%_ '())) '()))))) - (_%__kont4446144462%_ - (lambda (_%L42272%_ _%L42274%_ _%L42275%_ _%L42276%_) - (cons _%L42276%_ - (cons _%L42275%_ + (_%__kont4452444525%_ + (lambda (_%L42335%_ _%L42337%_ _%L42338%_ _%L42339%_) + (cons _%L42339%_ + (cons _%L42338%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L42274%_ - (foldr (lambda (_%g4229742300%_ - _%g4229842303%_) - (cons _%g4229742300%_ - _%g4229842303%_)) + (cons _%L42337%_ + (foldr (lambda (_%g4236042363%_ + _%g4236142366%_) + (cons _%g4236042363%_ + _%g4236142366%_)) '() - _%L42272%_))) + _%L42335%_))) '())))))) - (let* ((_%__match4451144512%_ - (lambda (_%e4218242212%_ - _%hd4218342216%_ - _%tl4218442219%_ - _%e4218542222%_ - _%hd4218642226%_ - _%tl4218742229%_ - _%e4218842232%_ - _%hd4218942236%_ - _%tl4219042239%_ - _%__splice4446344464%_ - _%target4219142242%_ - _%tl4219342245%_) - (letrec ((_%loop4219442248%_ - (lambda (_%hd4219242252%_ _%body4219842255%_) - (if (gx#stx-pair? _%hd4219242252%_) - (let ((_%e4219542258%_ - (gx#syntax-e _%hd4219242252%_))) - (let ((_%lp-tl4219742265%_ + (let* ((_%__match4457444575%_ + (lambda (_%e4224542275%_ + _%hd4224642279%_ + _%tl4224742282%_ + _%e4224842285%_ + _%hd4224942289%_ + _%tl4225042292%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) + (letrec ((_%loop4225742311%_ + (lambda (_%hd4225542315%_ _%body4226142318%_) + (if (gx#stx-pair? _%hd4225542315%_) + (let ((_%e4225842321%_ + (gx#syntax-e _%hd4225542315%_))) + (let ((_%lp-tl4226042328%_ (let () (declare (not safe)) - (##cdr _%e4219542258%_))) - (_%lp-hd4219642262%_ + (##cdr _%e4225842321%_))) + (_%lp-hd4225942325%_ (let () (declare (not safe)) - (##car _%e4219542258%_)))) - (_%loop4219442248%_ - _%lp-tl4219742265%_ - (cons _%lp-hd4219642262%_ - _%body4219842255%_)))) - (let ((_%body4219942268%_ - (reverse _%body4219842255%_))) - (let ((_%L42272%_ _%body4219942268%_) - (_%L42274%_ _%tl4219042239%_) - (_%L42275%_ _%hd4218942236%_) - (_%L42276%_ _%hd4218342216%_)) - (if (gx#identifier? _%L42275%_) - (_%__kont4446144462%_ - _%L42272%_ - _%L42274%_ - _%L42275%_ - _%L42276%_) + (##car _%e4225842321%_)))) + (_%loop4225742311%_ + _%lp-tl4226042328%_ + (cons _%lp-hd4225942325%_ + _%body4226142318%_)))) + (let ((_%body4226242331%_ + (reverse _%body4226142318%_))) + (let ((_%L42335%_ _%body4226242331%_) + (_%L42337%_ _%tl4225342302%_) + (_%L42338%_ _%hd4225242299%_) + (_%L42339%_ _%hd4224642279%_)) + (if (gx#identifier? _%L42338%_) + (_%__kont4452444525%_ + _%L42335%_ + _%L42337%_ + _%L42338%_ + _%L42339%_) (let () (declare (not safe)) - (_%g4216542205%_))))))))) - (_%loop4219442248%_ _%target4219142242%_ '())))) - (_%__match4448544486%_ - (lambda (_%e4216942313%_ - _%hd4217042317%_ - _%tl4217142320%_ - _%e4217242323%_ - _%hd4217342327%_ - _%tl4217442330%_ - _%e4217542333%_ - _%hd4217642337%_ - _%tl4217742340%_) - (let ((_%L42343%_ _%hd4217642337%_) - (_%L42345%_ _%hd4217342327%_)) - (if (gx#identifier? _%L42345%_) - (_%__kont4445944460%_ _%L42343%_ _%L42345%_) - (if (gx#stx-pair? _%hd4217342327%_) - (let ((_%e4218842232%_ - (gx#syntax-e _%hd4217342327%_))) - (let ((_%tl4219042239%_ + (_%g4222842268%_))))))))) + (_%loop4225742311%_ _%target4225442305%_ '())))) + (_%__match4454844549%_ + (lambda (_%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4223842396%_ + _%hd4223942400%_ + _%tl4224042403%_) + (let ((_%L42406%_ _%hd4223942400%_) + (_%L42408%_ _%hd4223642390%_)) + (if (gx#identifier? _%L42408%_) + (_%__kont4452244523%_ _%L42406%_ _%L42408%_) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ + (gx#syntax-e _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4218842232%_))) - (_%hd4218942236%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4218842232%_)))) - (if (gx#stx-pair/null? _%tl4217442330%_) - (let ((_%__splice4446344464%_ + (##car _%e4225142295%_)))) + (if (gx#stx-pair/null? _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4217442330%_ + _%tl4223742393%_ '0))) - (let ((_%tl4219342245%_ + (let ((_%tl4225642308%_ (let () (declare (not safe)) (##vector-ref - _%__splice4446344464%_ + _%__splice4452644527%_ '1))) - (_%target4219142242%_ + (_%target4225442305%_ (let () (declare (not safe)) (##vector-ref - _%__splice4446344464%_ + _%__splice4452644527%_ '0)))) - (if (gx#stx-null? _%tl4219342245%_) - (_%__match4451144512%_ - _%e4216942313%_ - _%hd4217042317%_ - _%tl4217142320%_ - _%e4217242323%_ - _%hd4217342327%_ - _%tl4217442330%_ - _%e4218842232%_ - _%hd4218942236%_ - _%tl4219042239%_ - _%__splice4446344464%_ - _%target4219142242%_ - _%tl4219342245%_) + (if (gx#stx-null? _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) (let () (declare (not safe)) - (_%g4216542205%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4216542205%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4216542205%_)))))))) - (if (gx#stx-pair? _%__stx4445644457%_) - (let ((_%e4216942313%_ (gx#syntax-e _%__stx4445644457%_))) - (let ((_%tl4217142320%_ - (let () (declare (not safe)) (##cdr _%e4216942313%_))) - (_%hd4217042317%_ + (_%g4222842268%_)))))))) + (if (gx#stx-pair? _%__stx4451944520%_) + (let ((_%e4223242376%_ (gx#syntax-e _%__stx4451944520%_))) + (let ((_%tl4223442383%_ + (let () (declare (not safe)) (##cdr _%e4223242376%_))) + (_%hd4223342380%_ (let () (declare (not safe)) - (##car _%e4216942313%_)))) - (if (gx#stx-pair? _%tl4217142320%_) - (let ((_%e4217242323%_ (gx#syntax-e _%tl4217142320%_))) - (let ((_%tl4217442330%_ + (##car _%e4223242376%_)))) + (if (gx#stx-pair? _%tl4223442383%_) + (let ((_%e4223542386%_ (gx#syntax-e _%tl4223442383%_))) + (let ((_%tl4223742393%_ (let () (declare (not safe)) - (##cdr _%e4217242323%_))) - (_%hd4217342327%_ + (##cdr _%e4223542386%_))) + (_%hd4223642390%_ (let () (declare (not safe)) - (##car _%e4217242323%_)))) - (if (gx#stx-pair? _%tl4217442330%_) - (let ((_%e4217542333%_ - (gx#syntax-e _%tl4217442330%_))) - (let ((_%tl4217742340%_ + (##car _%e4223542386%_)))) + (if (gx#stx-pair? _%tl4223742393%_) + (let ((_%e4223842396%_ + (gx#syntax-e _%tl4223742393%_))) + (let ((_%tl4224042403%_ (let () (declare (not safe)) - (##cdr _%e4217542333%_))) - (_%hd4217642337%_ + (##cdr _%e4223842396%_))) + (_%hd4223942400%_ (let () (declare (not safe)) - (##car _%e4217542333%_)))) - (if (gx#stx-null? _%tl4217742340%_) - (_%__match4448544486%_ - _%e4216942313%_ - _%hd4217042317%_ - _%tl4217142320%_ - _%e4217242323%_ - _%hd4217342327%_ - _%tl4217442330%_ - _%e4217542333%_ - _%hd4217642337%_ - _%tl4217742340%_) - (if (gx#stx-pair? _%hd4217342327%_) - (let ((_%e4218842232%_ + (##car _%e4223842396%_)))) + (if (gx#stx-null? _%tl4224042403%_) + (_%__match4454844549%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4223842396%_ + _%hd4223942400%_ + _%tl4224042403%_) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ (gx#syntax-e - _%hd4217342327%_))) - (let ((_%tl4219042239%_ + _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4218842232%_))) - (_%hd4218942236%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4218842232%_)))) + (##car _%e4225142295%_)))) (if (gx#stx-pair/null? - _%tl4217442330%_) - (let ((_%__splice4446344464%_ + _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4217442330%_ + _%tl4223742393%_ '0))) - (let ((_%tl4219342245%_ + (let ((_%tl4225642308%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4446344464%_ '1))) - (_%target4219142242%_ + (##vector-ref _%__splice4452644527%_ '1))) + (_%target4225442305%_ (let () (declare (not safe)) - (##vector-ref _%__splice4446344464%_ '0)))) - (if (gx#stx-null? _%tl4219342245%_) - (_%__match4451144512%_ - _%e4216942313%_ - _%hd4217042317%_ - _%tl4217142320%_ - _%e4217242323%_ - _%hd4217342327%_ - _%tl4217442330%_ - _%e4218842232%_ - _%hd4218942236%_ - _%tl4219042239%_ - _%__splice4446344464%_ - _%target4219142242%_ - _%tl4219342245%_) - (let () (declare (not safe)) (_%g4216542205%_))))) + (##vector-ref _%__splice4452644527%_ '0)))) + (if (gx#stx-null? _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) + (let () (declare (not safe)) (_%g4222842268%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4216542205%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4216542205%_)))))) - (if (gx#stx-pair? _%hd4217342327%_) - (let ((_%e4218842232%_ - (gx#syntax-e _%hd4217342327%_))) - (let ((_%tl4219042239%_ + (_%g4222842268%_)))))) + (if (gx#stx-pair? _%hd4223642390%_) + (let ((_%e4225142295%_ + (gx#syntax-e _%hd4223642390%_))) + (let ((_%tl4225342302%_ (let () (declare (not safe)) - (##cdr _%e4218842232%_))) - (_%hd4218942236%_ + (##cdr _%e4225142295%_))) + (_%hd4225242299%_ (let () (declare (not safe)) - (##car _%e4218842232%_)))) + (##car _%e4225142295%_)))) (if (gx#stx-pair/null? - _%tl4217442330%_) - (let ((_%__splice4446344464%_ + _%tl4223742393%_) + (let ((_%__splice4452644527%_ (gx#syntax-split-splice - _%tl4217442330%_ + _%tl4223742393%_ '0))) - (let ((_%tl4219342245%_ + (let ((_%tl4225642308%_ (let () (declare (not safe)) (##vector-ref - _%__splice4446344464%_ + _%__splice4452644527%_ '1))) - (_%target4219142242%_ + (_%target4225442305%_ (let () (declare (not safe)) (##vector-ref - _%__splice4446344464%_ + _%__splice4452644527%_ '0)))) (if (gx#stx-null? - _%tl4219342245%_) - (_%__match4451144512%_ - _%e4216942313%_ - _%hd4217042317%_ - _%tl4217142320%_ - _%e4217242323%_ - _%hd4217342327%_ - _%tl4217442330%_ - _%e4218842232%_ - _%hd4218942236%_ - _%tl4219042239%_ - _%__splice4446344464%_ - _%target4219142242%_ - _%tl4219342245%_) + _%tl4225642308%_) + (_%__match4457444575%_ + _%e4223242376%_ + _%hd4223342380%_ + _%tl4223442383%_ + _%e4223542386%_ + _%hd4223642390%_ + _%tl4223742393%_ + _%e4225142295%_ + _%hd4225242299%_ + _%tl4225342302%_ + _%__splice4452644527%_ + _%target4225442305%_ + _%tl4225642308%_) (let () (declare (not safe)) - (_%g4216542205%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4216542205%_))))) + (_%g4222842268%_))))) (let () (declare (not safe)) - (_%g4216542205%_)))))) - (let () (declare (not safe)) (_%g4216542205%_))))) - (let () (declare (not safe)) (_%g4216542205%_)))))))) + (_%g4222842268%_)))))) + (let () (declare (not safe)) (_%g4222842268%_))))) + (let () (declare (not safe)) (_%g4222842268%_)))))))) (define |gerbil/core/module-sugar[:0:]#for-syntax| (gx#make-import-export-expander - (lambda (_%stx42365%_) - (let* ((_%g4236842388%_ - (lambda (_%g4236942384%_) + (lambda (_%stx42428%_) + (let* ((_%g4243142451%_ + (lambda (_%g4243242447%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4236942384%_))) - (_%g4236742459%_ - (lambda (_%g4236942392%_) - (if (gx#stx-pair? _%g4236942392%_) - (let ((_%e4237142395%_ (gx#syntax-e _%g4236942392%_))) - (let ((_%hd4237242399%_ + _%g4243242447%_))) + (_%g4243042522%_ + (lambda (_%g4243242455%_) + (if (gx#stx-pair? _%g4243242455%_) + (let ((_%e4243442458%_ (gx#syntax-e _%g4243242455%_))) + (let ((_%hd4243542462%_ (let () (declare (not safe)) - (##car _%e4237142395%_))) - (_%tl4237342402%_ + (##car _%e4243442458%_))) + (_%tl4243642465%_ (let () (declare (not safe)) - (##cdr _%e4237142395%_)))) - (if (gx#stx-pair/null? _%tl4237342402%_) - (let ((_g44606_ + (##cdr _%e4243442458%_)))) + (if (gx#stx-pair/null? _%tl4243642465%_) + (let ((_g44669_ (gx#syntax-split-splice - _%tl4237342402%_ + _%tl4243642465%_ '0))) (begin - (let ((_g44607_ + (let ((_g44670_ (let () (declare (not safe)) - (if (##values? _g44606_) - (##vector-length _g44606_) + (if (##values? _g44669_) + (##values-length _g44669_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44607_ 2))) + (##fx= _g44670_ 2))) (error "Context expects 2 values" - _g44607_))) - (let ((_%target4237442405%_ + _g44670_))) + (let ((_%target4243742468%_ (let () (declare (not safe)) - (##vector-ref _g44606_ 0))) - (_%tl4237642408%_ + (##values-ref _g44669_ 0))) + (_%tl4243942471%_ (let () (declare (not safe)) - (##vector-ref _g44606_ 1)))) - (if (gx#stx-null? _%tl4237642408%_) - (letrec ((_%loop4237742411%_ - (lambda (_%hd4237542415%_ - _%body4238142418%_) + (##values-ref _g44669_ 1)))) + (if (gx#stx-null? _%tl4243942471%_) + (letrec ((_%loop4244042474%_ + (lambda (_%hd4243842478%_ + _%body4244442481%_) (if (gx#stx-pair? - _%hd4237542415%_) - (let ((_%e4237842421%_ + _%hd4243842478%_) + (let ((_%e4244142484%_ (gx#syntax-e - _%hd4237542415%_))) - (let ((_%lp-hd4237942425%_ + _%hd4243842478%_))) + (let ((_%lp-hd4244242488%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4237842421%_))) - (_%lp-tl4238042428%_ - (let () (declare (not safe)) (##cdr _%e4237842421%_)))) - (_%loop4237742411%_ - _%lp-tl4238042428%_ - (cons _%lp-hd4237942425%_ _%body4238142418%_)))) - (let ((_%body4238242431%_ (reverse _%body4238142418%_))) - ((lambda (_%L42435%_) + (##car _%e4244142484%_))) + (_%lp-tl4244342491%_ + (let () (declare (not safe)) (##cdr _%e4244142484%_)))) + (_%loop4244042474%_ + _%lp-tl4244342491%_ + (cons _%lp-hd4244242488%_ _%body4244442481%_)))) + (let ((_%body4244542494%_ (reverse _%body4244442481%_))) + ((lambda (_%L42498%_) (cons 'phi: (cons '1 - (foldr (lambda (_%g4245042453%_ - _%g4245142456%_) - (cons _%g4245042453%_ - _%g4245142456%_)) + (foldr (lambda (_%g4251342516%_ + _%g4251442519%_) + (cons _%g4251342516%_ + _%g4251442519%_)) '() - _%L42435%_)))) - _%body4238242431%_)))))) + _%L42498%_)))) + _%body4244542494%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4237742411%_ - _%target4237442405%_ + (_%loop4244042474%_ + _%target4243742468%_ '())) - (_%g4236842388%_ _%g4236942392%_))))) - (_%g4236842388%_ _%g4236942392%_)))) - (_%g4236842388%_ _%g4236942392%_))))) - (_%g4236742459%_ _%stx42365%_))))) + (_%g4243142451%_ _%g4243242455%_))))) + (_%g4243142451%_ _%g4243242455%_)))) + (_%g4243142451%_ _%g4243242455%_))))) + (_%g4243042522%_ _%stx42428%_))))) (define |gerbil/core/module-sugar[:0:]#for-template| (gx#make-import-export-expander - (lambda (_%stx42464%_) - (let* ((_%g4246742487%_ - (lambda (_%g4246842483%_) + (lambda (_%stx42527%_) + (let* ((_%g4253042550%_ + (lambda (_%g4253142546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4246842483%_))) - (_%g4246642558%_ - (lambda (_%g4246842491%_) - (if (gx#stx-pair? _%g4246842491%_) - (let ((_%e4247042494%_ (gx#syntax-e _%g4246842491%_))) - (let ((_%hd4247142498%_ + _%g4253142546%_))) + (_%g4252942621%_ + (lambda (_%g4253142554%_) + (if (gx#stx-pair? _%g4253142554%_) + (let ((_%e4253342557%_ (gx#syntax-e _%g4253142554%_))) + (let ((_%hd4253442561%_ (let () (declare (not safe)) - (##car _%e4247042494%_))) - (_%tl4247242501%_ + (##car _%e4253342557%_))) + (_%tl4253542564%_ (let () (declare (not safe)) - (##cdr _%e4247042494%_)))) - (if (gx#stx-pair/null? _%tl4247242501%_) - (let ((_g44608_ + (##cdr _%e4253342557%_)))) + (if (gx#stx-pair/null? _%tl4253542564%_) + (let ((_g44671_ (gx#syntax-split-splice - _%tl4247242501%_ + _%tl4253542564%_ '0))) (begin - (let ((_g44609_ + (let ((_g44672_ (let () (declare (not safe)) - (if (##values? _g44608_) - (##vector-length _g44608_) + (if (##values? _g44671_) + (##values-length _g44671_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44609_ 2))) + (##fx= _g44672_ 2))) (error "Context expects 2 values" - _g44609_))) - (let ((_%target4247342504%_ + _g44672_))) + (let ((_%target4253642567%_ (let () (declare (not safe)) - (##vector-ref _g44608_ 0))) - (_%tl4247542507%_ + (##values-ref _g44671_ 0))) + (_%tl4253842570%_ (let () (declare (not safe)) - (##vector-ref _g44608_ 1)))) - (if (gx#stx-null? _%tl4247542507%_) - (letrec ((_%loop4247642510%_ - (lambda (_%hd4247442514%_ - _%body4248042517%_) + (##values-ref _g44671_ 1)))) + (if (gx#stx-null? _%tl4253842570%_) + (letrec ((_%loop4253942573%_ + (lambda (_%hd4253742577%_ + _%body4254342580%_) (if (gx#stx-pair? - _%hd4247442514%_) - (let ((_%e4247742520%_ + _%hd4253742577%_) + (let ((_%e4254042583%_ (gx#syntax-e - _%hd4247442514%_))) - (let ((_%lp-hd4247842524%_ + _%hd4253742577%_))) + (let ((_%lp-hd4254142587%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e4247742520%_))) - (_%lp-tl4247942527%_ - (let () (declare (not safe)) (##cdr _%e4247742520%_)))) - (_%loop4247642510%_ - _%lp-tl4247942527%_ - (cons _%lp-hd4247842524%_ _%body4248042517%_)))) - (let ((_%body4248142530%_ (reverse _%body4248042517%_))) - ((lambda (_%L42534%_) + (##car _%e4254042583%_))) + (_%lp-tl4254242590%_ + (let () (declare (not safe)) (##cdr _%e4254042583%_)))) + (_%loop4253942573%_ + _%lp-tl4254242590%_ + (cons _%lp-hd4254142587%_ _%body4254342580%_)))) + (let ((_%body4254442593%_ (reverse _%body4254342580%_))) + ((lambda (_%L42597%_) (cons 'phi: (cons '-1 - (foldr (lambda (_%g4254942552%_ - _%g4255042555%_) - (cons _%g4254942552%_ - _%g4255042555%_)) + (foldr (lambda (_%g4261242615%_ + _%g4261342618%_) + (cons _%g4261242615%_ + _%g4261342618%_)) '() - _%L42534%_)))) - _%body4248142530%_)))))) + _%L42597%_)))) + _%body4254442593%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4247642510%_ - _%target4247342504%_ + (_%loop4253942573%_ + _%target4253642567%_ '())) - (_%g4246742487%_ _%g4246842491%_))))) - (_%g4246742487%_ _%g4246842491%_)))) - (_%g4246742487%_ _%g4246842491%_))))) - (_%g4246642558%_ _%stx42464%_))))) + (_%g4253042550%_ _%g4253142554%_))))) + (_%g4253042550%_ _%g4253142554%_)))) + (_%g4253042550%_ _%g4253142554%_))))) + (_%g4252942621%_ _%stx42527%_))))) (define |gerbil/core/module-sugar[:0:]#only-in| (gx#make-import-expander - (lambda (_%stx42563%_) - (let* ((_%g4256642590%_ - (lambda (_%g4256742586%_) + (lambda (_%stx42626%_) + (let* ((_%g4262942653%_ + (lambda (_%g4263042649%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4256742586%_))) - (_%g4256542718%_ - (lambda (_%g4256742594%_) - (if (gx#stx-pair? _%g4256742594%_) - (let ((_%e4257042597%_ (gx#syntax-e _%g4256742594%_))) - (let ((_%hd4257142601%_ + _%g4263042649%_))) + (_%g4262842781%_ + (lambda (_%g4263042657%_) + (if (gx#stx-pair? _%g4263042657%_) + (let ((_%e4263342660%_ (gx#syntax-e _%g4263042657%_))) + (let ((_%hd4263442664%_ (let () (declare (not safe)) - (##car _%e4257042597%_))) - (_%tl4257242604%_ + (##car _%e4263342660%_))) + (_%tl4263542667%_ (let () (declare (not safe)) - (##cdr _%e4257042597%_)))) - (if (gx#stx-pair? _%tl4257242604%_) - (let ((_%e4257342607%_ - (gx#syntax-e _%tl4257242604%_))) - (let ((_%hd4257442611%_ + (##cdr _%e4263342660%_)))) + (if (gx#stx-pair? _%tl4263542667%_) + (let ((_%e4263642670%_ + (gx#syntax-e _%tl4263542667%_))) + (let ((_%hd4263742674%_ (let () (declare (not safe)) - (##car _%e4257342607%_))) - (_%tl4257542614%_ + (##car _%e4263642670%_))) + (_%tl4263842677%_ (let () (declare (not safe)) - (##cdr _%e4257342607%_)))) - (if (gx#stx-pair/null? _%tl4257542614%_) - (let ((_g44610_ + (##cdr _%e4263642670%_)))) + (if (gx#stx-pair/null? _%tl4263842677%_) + (let ((_g44673_ (gx#syntax-split-splice - _%tl4257542614%_ + _%tl4263842677%_ '0))) (begin - (let ((_g44611_ + (let ((_g44674_ (let () (declare (not safe)) - (if (##values? _g44610_) - (##vector-length - _g44610_) + (if (##values? _g44673_) + (##values-length + _g44673_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44611_ 2))) + (##fx= _g44674_ 2))) (error "Context expects 2 values" - _g44611_))) - (let ((_%target4257642617%_ + _g44674_))) + (let ((_%target4263942680%_ (let () (declare (not safe)) - (##vector-ref _g44610_ 0))) - (_%tl4257842620%_ + (##values-ref _g44673_ 0))) + (_%tl4264142683%_ (let () (declare (not safe)) - (##vector-ref _g44610_ 1)))) - (if (gx#stx-null? _%tl4257842620%_) - (letrec ((_%loop4257942623%_ - (lambda (_%hd4257742627%_ + (##values-ref _g44673_ 1)))) + (if (gx#stx-null? _%tl4264142683%_) + (letrec ((_%loop4264242686%_ + (lambda (_%hd4264042690%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4258342630%_) - (if (gx#stx-pair? _%hd4257742627%_) - (let ((_%e4258042633%_ (gx#syntax-e _%hd4257742627%_))) - (let ((_%lp-hd4258142637%_ + _%id4264642693%_) + (if (gx#stx-pair? _%hd4264042690%_) + (let ((_%e4264342696%_ (gx#syntax-e _%hd4264042690%_))) + (let ((_%lp-hd4264442700%_ (let () (declare (not safe)) - (##car _%e4258042633%_))) - (_%lp-tl4258242640%_ + (##car _%e4264342696%_))) + (_%lp-tl4264542703%_ (let () (declare (not safe)) - (##cdr _%e4258042633%_)))) - (_%loop4257942623%_ - _%lp-tl4258242640%_ - (cons _%lp-hd4258142637%_ _%id4258342630%_)))) - (let ((_%id4258442643%_ (reverse _%id4258342630%_))) - ((lambda (_%L42647%_ _%L42649%_) + (##cdr _%e4264342696%_)))) + (_%loop4264242686%_ + _%lp-tl4264542703%_ + (cons _%lp-hd4264442700%_ _%id4264642693%_)))) + (let ((_%id4264742706%_ (reverse _%id4264642693%_))) + ((lambda (_%L42710%_ _%L42712%_) (if (gx#identifier-list? - (foldr (lambda (_%g4266642669%_ - _%g4266742672%_) - (cons _%g4266642669%_ - _%g4266742672%_)) + (foldr (lambda (_%g4272942732%_ + _%g4273042735%_) + (cons _%g4272942732%_ + _%g4273042735%_)) '() - _%L42647%_)) - (let* ((_%keys42683%_ + _%L42710%_)) + (let* ((_%keys42746%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4267442677%_ - _%g4267542680%_) - (cons _%g4267442677%_ - _%g4267542680%_)) + (foldr (lambda (_%g4273742740%_ + _%g4273842743%_) + (cons _%g4273742740%_ + _%g4273842743%_)) '() - _%L42647%_))) - (_%keytab42694%_ - (let ((_%ht42686%_ (make-hash-table))) + _%L42710%_))) + (_%keytab42757%_ + (let ((_%ht42749%_ (make-hash-table))) (for-each - (lambda (_%g4268842690%_) + (lambda (_%g4275142753%_) (hash-put! - _%ht42686%_ - _%g4268842690%_ + _%ht42749%_ + _%g4275142753%_ '#t)) - _%keys42683%_) - _%ht42686%_)) - (_%imports42697%_ + _%keys42746%_) + _%ht42749%_)) + (_%imports42760%_ (gx#core-expand-import-source - _%L42649%_)) - (_%fold-e42713%_ - (letrec ((_%fold-e42700%_ - (lambda (_%in42703%_ - _%r42705%_) + _%L42712%_)) + (_%fold-e42776%_ + (letrec ((_%fold-e42763%_ + (lambda (_%in42766%_ + _%r42768%_) (if (gx#module-import? - _%in42703%_) + _%in42766%_) (if (hash-get - _%keytab42694%_ + _%keytab42757%_ (gx#module-import-name - _%in42703%_)) - (cons _%in42703%_ + _%in42766%_)) + (cons _%in42766%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42705%_) - _%r42705%_) - (if (gx#import-set? _%in42703%_) - (foldl _%fold-e42700%_ - _%r42705%_ - (gx#import-set-imports _%in42703%_)) - _%r42705%_))))) + _%r42768%_) + _%r42768%_) + (if (gx#import-set? _%in42766%_) + (foldl _%fold-e42763%_ + _%r42768%_ + (gx#import-set-imports _%in42766%_)) + _%r42768%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42700%_))) + _%fold-e42763%_))) (cons 'begin: - (foldl _%fold-e42713%_ + (foldl _%fold-e42776%_ '() - _%imports42697%_))) - (_%g4256642590%_ _%g4256742594%_))) - _%id4258442643%_ - _%hd4257442611%_)))))) + _%imports42760%_))) + (_%g4262942653%_ _%g4263042657%_))) + _%id4264742706%_ + _%hd4263742674%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4257942623%_ - _%target4257642617%_ + (_%loop4264242686%_ + _%target4263942680%_ '())) - (_%g4256642590%_ - _%g4256742594%_))))) - (_%g4256642590%_ _%g4256742594%_)))) - (_%g4256642590%_ _%g4256742594%_)))) - (_%g4256642590%_ _%g4256742594%_))))) - (_%g4256542718%_ _%stx42563%_))))) + (_%g4262942653%_ + _%g4263042657%_))))) + (_%g4262942653%_ _%g4263042657%_)))) + (_%g4262942653%_ _%g4263042657%_)))) + (_%g4262942653%_ _%g4263042657%_))))) + (_%g4262842781%_ _%stx42626%_))))) (define |gerbil/core/module-sugar[:0:]#except-in| (gx#make-import-expander - (lambda (_%stx42723%_) - (let* ((_%g4272642750%_ - (lambda (_%g4272742746%_) + (lambda (_%stx42786%_) + (let* ((_%g4278942813%_ + (lambda (_%g4279042809%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4272742746%_))) - (_%g4272542878%_ - (lambda (_%g4272742754%_) - (if (gx#stx-pair? _%g4272742754%_) - (let ((_%e4273042757%_ (gx#syntax-e _%g4272742754%_))) - (let ((_%hd4273142761%_ + _%g4279042809%_))) + (_%g4278842941%_ + (lambda (_%g4279042817%_) + (if (gx#stx-pair? _%g4279042817%_) + (let ((_%e4279342820%_ (gx#syntax-e _%g4279042817%_))) + (let ((_%hd4279442824%_ (let () (declare (not safe)) - (##car _%e4273042757%_))) - (_%tl4273242764%_ + (##car _%e4279342820%_))) + (_%tl4279542827%_ (let () (declare (not safe)) - (##cdr _%e4273042757%_)))) - (if (gx#stx-pair? _%tl4273242764%_) - (let ((_%e4273342767%_ - (gx#syntax-e _%tl4273242764%_))) - (let ((_%hd4273442771%_ + (##cdr _%e4279342820%_)))) + (if (gx#stx-pair? _%tl4279542827%_) + (let ((_%e4279642830%_ + (gx#syntax-e _%tl4279542827%_))) + (let ((_%hd4279742834%_ (let () (declare (not safe)) - (##car _%e4273342767%_))) - (_%tl4273542774%_ + (##car _%e4279642830%_))) + (_%tl4279842837%_ (let () (declare (not safe)) - (##cdr _%e4273342767%_)))) - (if (gx#stx-pair/null? _%tl4273542774%_) - (let ((_g44612_ + (##cdr _%e4279642830%_)))) + (if (gx#stx-pair/null? _%tl4279842837%_) + (let ((_g44675_ (gx#syntax-split-splice - _%tl4273542774%_ + _%tl4279842837%_ '0))) (begin - (let ((_g44613_ + (let ((_g44676_ (let () (declare (not safe)) - (if (##values? _g44612_) - (##vector-length - _g44612_) + (if (##values? _g44675_) + (##values-length + _g44675_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44613_ 2))) + (##fx= _g44676_ 2))) (error "Context expects 2 values" - _g44613_))) - (let ((_%target4273642777%_ + _g44676_))) + (let ((_%target4279942840%_ (let () (declare (not safe)) - (##vector-ref _g44612_ 0))) - (_%tl4273842780%_ + (##values-ref _g44675_ 0))) + (_%tl4280142843%_ (let () (declare (not safe)) - (##vector-ref _g44612_ 1)))) - (if (gx#stx-null? _%tl4273842780%_) - (letrec ((_%loop4273942783%_ - (lambda (_%hd4273742787%_ + (##values-ref _g44675_ 1)))) + (if (gx#stx-null? _%tl4280142843%_) + (letrec ((_%loop4280242846%_ + (lambda (_%hd4280042850%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4274342790%_) - (if (gx#stx-pair? _%hd4273742787%_) - (let ((_%e4274042793%_ (gx#syntax-e _%hd4273742787%_))) - (let ((_%lp-hd4274142797%_ + _%id4280642853%_) + (if (gx#stx-pair? _%hd4280042850%_) + (let ((_%e4280342856%_ (gx#syntax-e _%hd4280042850%_))) + (let ((_%lp-hd4280442860%_ (let () (declare (not safe)) - (##car _%e4274042793%_))) - (_%lp-tl4274242800%_ + (##car _%e4280342856%_))) + (_%lp-tl4280542863%_ (let () (declare (not safe)) - (##cdr _%e4274042793%_)))) - (_%loop4273942783%_ - _%lp-tl4274242800%_ - (cons _%lp-hd4274142797%_ _%id4274342790%_)))) - (let ((_%id4274442803%_ (reverse _%id4274342790%_))) - ((lambda (_%L42807%_ _%L42809%_) + (##cdr _%e4280342856%_)))) + (_%loop4280242846%_ + _%lp-tl4280542863%_ + (cons _%lp-hd4280442860%_ _%id4280642853%_)))) + (let ((_%id4280742866%_ (reverse _%id4280642853%_))) + ((lambda (_%L42870%_ _%L42872%_) (if (gx#identifier-list? - (foldr (lambda (_%g4282642829%_ - _%g4282742832%_) - (cons _%g4282642829%_ - _%g4282742832%_)) + (foldr (lambda (_%g4288942892%_ + _%g4289042895%_) + (cons _%g4288942892%_ + _%g4289042895%_)) '() - _%L42807%_)) - (let* ((_%keys42843%_ + _%L42870%_)) + (let* ((_%keys42906%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4283442837%_ - _%g4283542840%_) - (cons _%g4283442837%_ - _%g4283542840%_)) + (foldr (lambda (_%g4289742900%_ + _%g4289842903%_) + (cons _%g4289742900%_ + _%g4289842903%_)) '() - _%L42807%_))) - (_%keytab42854%_ - (let ((_%ht42846%_ (make-hash-table))) + _%L42870%_))) + (_%keytab42917%_ + (let ((_%ht42909%_ (make-hash-table))) (for-each - (lambda (_%g4284842850%_) + (lambda (_%g4291142913%_) (hash-put! - _%ht42846%_ - _%g4284842850%_ + _%ht42909%_ + _%g4291142913%_ '#t)) - _%keys42843%_) - _%ht42846%_)) - (_%imports42857%_ + _%keys42906%_) + _%ht42909%_)) + (_%imports42920%_ (gx#core-expand-import-source - _%L42809%_)) - (_%fold-e42873%_ - (letrec ((_%fold-e42860%_ - (lambda (_%in42863%_ - _%r42865%_) + _%L42872%_)) + (_%fold-e42936%_ + (letrec ((_%fold-e42923%_ + (lambda (_%in42926%_ + _%r42928%_) (if (gx#module-import? - _%in42863%_) + _%in42926%_) (if (hash-get - _%keytab42854%_ + _%keytab42917%_ (gx#module-import-name - _%in42863%_)) - _%r42865%_ - (cons _%in42863%_ + _%in42926%_)) + _%r42928%_ + (cons _%in42926%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r42865%_)) - (if (gx#import-set? _%in42863%_) - (foldl _%fold-e42860%_ - _%r42865%_ - (gx#import-set-imports _%in42863%_)) - (cons _%in42863%_ _%r42865%_)))))) + _%r42928%_)) + (if (gx#import-set? _%in42926%_) + (foldl _%fold-e42923%_ + _%r42928%_ + (gx#import-set-imports _%in42926%_)) + (cons _%in42926%_ _%r42928%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e42860%_))) + _%fold-e42923%_))) (cons 'begin: - (foldl _%fold-e42873%_ + (foldl _%fold-e42936%_ '() - _%imports42857%_))) - (_%g4272642750%_ _%g4272742754%_))) - _%id4274442803%_ - _%hd4273442771%_)))))) + _%imports42920%_))) + (_%g4278942813%_ _%g4279042817%_))) + _%id4280742866%_ + _%hd4279742834%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4273942783%_ - _%target4273642777%_ + (_%loop4280242846%_ + _%target4279942840%_ '())) - (_%g4272642750%_ - _%g4272742754%_))))) - (_%g4272642750%_ _%g4272742754%_)))) - (_%g4272642750%_ _%g4272742754%_)))) - (_%g4272642750%_ _%g4272742754%_))))) - (_%g4272542878%_ _%stx42723%_))))) + (_%g4278942813%_ + _%g4279042817%_))))) + (_%g4278942813%_ _%g4279042817%_)))) + (_%g4278942813%_ _%g4279042817%_)))) + (_%g4278942813%_ _%g4279042817%_))))) + (_%g4278842941%_ _%stx42786%_))))) (define |gerbil/core/module-sugar[1]#module-import-rename| - (lambda (_%in42930%_ _%rename42932%_) + (lambda (_%in42993%_ _%rename42995%_) (gx#make-module-import - (gx#module-import-source _%in42930%_) - _%rename42932%_ - (gx#module-import-phi _%in42930%_) - (gx#module-import-weak? _%in42930%_)))) + (gx#module-import-source _%in42993%_) + _%rename42995%_ + (gx#module-import-phi _%in42993%_) + (gx#module-import-weak? _%in42993%_)))) (define |gerbil/core/module-sugar[1]#prefix-identifier-key| - (lambda (_%name42883%_ _%pre42885%_) - (let* ((_%name4288642894%_ _%name42883%_) - (_%else4288842906%_ - (lambda () (make-symbol _%pre42885%_ _%name42883%_))) - (_%K4289042914%_ - (lambda (_%mark42910%_ _%id42912%_) - (cons (make-symbol _%pre42885%_ _%id42912%_) _%mark42910%_)))) - (if (pair? _%name4288642894%_) - (let ((_%hd4289142918%_ - (let () (declare (not safe)) (##car _%name4288642894%_))) - (_%tl4289242921%_ - (let () (declare (not safe)) (##cdr _%name4288642894%_)))) - (let* ((_%id42924%_ _%hd4289142918%_) - (_%mark42927%_ _%tl4289242921%_)) - (_%K4289042914%_ _%mark42927%_ _%id42924%_))) - (_%else4288842906%_))))) + (lambda (_%name42946%_ _%pre42948%_) + (let* ((_%name4294942957%_ _%name42946%_) + (_%else4295142969%_ + (lambda () (make-symbol _%pre42948%_ _%name42946%_))) + (_%K4295342977%_ + (lambda (_%mark42973%_ _%id42975%_) + (cons (make-symbol _%pre42948%_ _%id42975%_) _%mark42973%_)))) + (if (pair? _%name4294942957%_) + (let ((_%hd4295442981%_ + (let () (declare (not safe)) (##car _%name4294942957%_))) + (_%tl4295542984%_ + (let () (declare (not safe)) (##cdr _%name4294942957%_)))) + (let* ((_%id42987%_ _%hd4295442981%_) + (_%mark42990%_ _%tl4295542984%_)) + (_%K4295342977%_ _%mark42990%_ _%id42987%_))) + (_%else4295142969%_))))) (define |gerbil/core/module-sugar[:0:]#rename-in| (gx#make-import-expander - (lambda (_%stx42934%_) - (let* ((_%g4293742970%_ - (lambda (_%g4293842966%_) + (lambda (_%stx42997%_) + (let* ((_%g4300043033%_ + (lambda (_%g4300143029%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4293842966%_))) - (_%g4293643165%_ - (lambda (_%g4293842974%_) - (if (gx#stx-pair? _%g4293842974%_) - (let ((_%e4294242977%_ (gx#syntax-e _%g4293842974%_))) - (let ((_%hd4294342981%_ + _%g4300143029%_))) + (_%g4299943228%_ + (lambda (_%g4300143037%_) + (if (gx#stx-pair? _%g4300143037%_) + (let ((_%e4300543040%_ (gx#syntax-e _%g4300143037%_))) + (let ((_%hd4300643044%_ (let () (declare (not safe)) - (##car _%e4294242977%_))) - (_%tl4294442984%_ + (##car _%e4300543040%_))) + (_%tl4300743047%_ (let () (declare (not safe)) - (##cdr _%e4294242977%_)))) - (if (gx#stx-pair? _%tl4294442984%_) - (let ((_%e4294542987%_ - (gx#syntax-e _%tl4294442984%_))) - (let ((_%hd4294642991%_ + (##cdr _%e4300543040%_)))) + (if (gx#stx-pair? _%tl4300743047%_) + (let ((_%e4300843050%_ + (gx#syntax-e _%tl4300743047%_))) + (let ((_%hd4300943054%_ (let () (declare (not safe)) - (##car _%e4294542987%_))) - (_%tl4294742994%_ + (##car _%e4300843050%_))) + (_%tl4301043057%_ (let () (declare (not safe)) - (##cdr _%e4294542987%_)))) - (if (gx#stx-pair/null? _%tl4294742994%_) - (let ((_g44614_ + (##cdr _%e4300843050%_)))) + (if (gx#stx-pair/null? _%tl4301043057%_) + (let ((_g44677_ (gx#syntax-split-splice - _%tl4294742994%_ + _%tl4301043057%_ '0))) (begin - (let ((_g44615_ + (let ((_g44678_ (let () (declare (not safe)) - (if (##values? _g44614_) - (##vector-length - _g44614_) + (if (##values? _g44677_) + (##values-length + _g44677_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44615_ 2))) + (##fx= _g44678_ 2))) (error "Context expects 2 values" - _g44615_))) - (let ((_%target4294842997%_ + _g44678_))) + (let ((_%target4301143060%_ (let () (declare (not safe)) - (##vector-ref _g44614_ 0))) - (_%tl4295043000%_ + (##values-ref _g44677_ 0))) + (_%tl4301343063%_ (let () (declare (not safe)) - (##vector-ref _g44614_ 1)))) - (if (gx#stx-null? _%tl4295043000%_) - (letrec ((_%loop4295143003%_ - (lambda (_%hd4294943007%_ + (##values-ref _g44677_ 1)))) + (if (gx#stx-null? _%tl4301343063%_) + (letrec ((_%loop4301443066%_ + (lambda (_%hd4301243070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4295543010%_ - _%id4295643012%_) - (if (gx#stx-pair? _%hd4294943007%_) - (let ((_%e4295243015%_ (gx#syntax-e _%hd4294943007%_))) - (let ((_%lp-hd4295343019%_ + _%new-id4301843073%_ + _%id4301943075%_) + (if (gx#stx-pair? _%hd4301243070%_) + (let ((_%e4301543078%_ (gx#syntax-e _%hd4301243070%_))) + (let ((_%lp-hd4301643082%_ (let () (declare (not safe)) - (##car _%e4295243015%_))) - (_%lp-tl4295443022%_ + (##car _%e4301543078%_))) + (_%lp-tl4301743085%_ (let () (declare (not safe)) - (##cdr _%e4295243015%_)))) - (if (gx#stx-pair? _%lp-hd4295343019%_) - (let ((_%e4295943025%_ - (gx#syntax-e _%lp-hd4295343019%_))) - (let ((_%hd4296043029%_ + (##cdr _%e4301543078%_)))) + (if (gx#stx-pair? _%lp-hd4301643082%_) + (let ((_%e4302243088%_ + (gx#syntax-e _%lp-hd4301643082%_))) + (let ((_%hd4302343092%_ (let () (declare (not safe)) - (##car _%e4295943025%_))) - (_%tl4296143032%_ + (##car _%e4302243088%_))) + (_%tl4302443095%_ (let () (declare (not safe)) - (##cdr _%e4295943025%_)))) - (if (gx#stx-pair? _%tl4296143032%_) - (let ((_%e4296243035%_ - (gx#syntax-e _%tl4296143032%_))) - (let ((_%hd4296343039%_ + (##cdr _%e4302243088%_)))) + (if (gx#stx-pair? _%tl4302443095%_) + (let ((_%e4302543098%_ + (gx#syntax-e _%tl4302443095%_))) + (let ((_%hd4302643102%_ (let () (declare (not safe)) - (##car _%e4296243035%_))) - (_%tl4296443042%_ + (##car _%e4302543098%_))) + (_%tl4302743105%_ (let () (declare (not safe)) - (##cdr _%e4296243035%_)))) - (if (gx#stx-null? _%tl4296443042%_) - (_%loop4295143003%_ - _%lp-tl4295443022%_ - (cons _%hd4296343039%_ - _%new-id4295543010%_) - (cons _%hd4296043029%_ - _%id4295643012%_)) - (_%g4293742970%_ - _%g4293842974%_)))) - (_%g4293742970%_ _%g4293842974%_)))) - (_%g4293742970%_ _%g4293842974%_)))) - (let ((_%new-id4295743045%_ - (reverse _%new-id4295543010%_)) - (_%id4295843048%_ (reverse _%id4295643012%_))) - ((lambda (_%L43051%_ _%L43053%_ _%L43054%_) + (##cdr _%e4302543098%_)))) + (if (gx#stx-null? _%tl4302743105%_) + (_%loop4301443066%_ + _%lp-tl4301743085%_ + (cons _%hd4302643102%_ + _%new-id4301843073%_) + (cons _%hd4302343092%_ + _%id4301943075%_)) + (_%g4300043033%_ + _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (let ((_%new-id4302043108%_ + (reverse _%new-id4301843073%_)) + (_%id4302143111%_ (reverse _%id4301943075%_))) + ((lambda (_%L43114%_ _%L43116%_ _%L43117%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4307243075%_ - _%g4307343078%_) - (cons _%g4307243075%_ - _%g4307343078%_)) + (foldr (lambda (_%g4313543138%_ + _%g4313643141%_) + (cons _%g4313543138%_ + _%g4313643141%_)) '() - _%L43053%_)) + _%L43116%_)) (gx#identifier-list? - (foldr (lambda (_%g4308043083%_ - _%g4308143086%_) - (cons _%g4308043083%_ - _%g4308143086%_)) + (foldr (lambda (_%g4314343146%_ + _%g4314443149%_) + (cons _%g4314343146%_ + _%g4314443149%_)) '() - _%L43051%_))) - (let* ((_%keytab43089%_ (make-hash-table)) - (_%found43092%_ (make-hash-table)) - (_%_43115%_ + _%L43114%_))) + (let* ((_%keytab43152%_ (make-hash-table)) + (_%found43155%_ (make-hash-table)) + (_%_43178%_ (for-each - (lambda (_%id43095%_ _%new-id43097%_) + (lambda (_%id43158%_ _%new-id43160%_) (hash-put! - _%keytab43089%_ + _%keytab43152%_ (gx#core-identifier-key - _%id43095%_) + _%id43158%_) (gx#core-identifier-key - _%new-id43097%_))) - (foldr (lambda (_%g4309843101%_ - _%g4309943104%_) - (cons _%g4309843101%_ - _%g4309943104%_)) + _%new-id43160%_))) + (foldr (lambda (_%g4316143164%_ + _%g4316243167%_) + (cons _%g4316143164%_ + _%g4316243167%_)) '() - _%L43053%_) - (foldr (lambda (_%g4310643109%_ - _%g4310743112%_) - (cons _%g4310643109%_ - _%g4310743112%_)) + _%L43116%_) + (foldr (lambda (_%g4316943172%_ + _%g4317043175%_) + (cons _%g4316943172%_ + _%g4317043175%_)) '() - _%L43051%_))) - (_%imports43118%_ + _%L43114%_))) + (_%imports43181%_ (gx#core-expand-import-source - _%L43054%_)) - (_%fold-e43146%_ - (letrec ((_%fold-e43121%_ - (lambda (_%in43124%_ - _%r43126%_) + _%L43117%_)) + (_%fold-e43209%_ + (letrec ((_%fold-e43184%_ + (lambda (_%in43187%_ + _%r43189%_) (if (gx#module-import? - _%in43124%_) - (let* ((_%name43130%_ + _%in43187%_) + (let* ((_%name43193%_ (gx#module-import-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in43124%_)) - (_%$e43133%_ (hash-get _%keytab43089%_ _%name43130%_))) - (if _%$e43133%_ - ((lambda (_%rename43137%_) - (hash-put! _%found43092%_ _%name43130%_ '#t) + _%in43187%_)) + (_%$e43196%_ (hash-get _%keytab43152%_ _%name43193%_))) + (if _%$e43196%_ + ((lambda (_%rename43200%_) + (hash-put! _%found43155%_ _%name43193%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43124%_ - _%rename43137%_) - _%r43126%_)) - _%$e43133%_) - (cons _%in43124%_ _%r43126%_))) - (if (gx#import-set? _%in43124%_) - (foldl _%fold-e43121%_ - _%r43126%_ - (gx#import-set-imports _%in43124%_)) - (cons _%in43124%_ _%r43126%_)))))) + _%in43187%_ + _%rename43200%_) + _%r43189%_)) + _%$e43196%_) + (cons _%in43187%_ _%r43189%_))) + (if (gx#import-set? _%in43187%_) + (foldl _%fold-e43184%_ + _%r43189%_ + (gx#import-set-imports _%in43187%_)) + (cons _%in43187%_ _%r43189%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43121%_)) - (_%new-imports43149%_ - (foldl _%fold-e43146%_ + _%fold-e43184%_)) + (_%new-imports43212%_ + (foldl _%fold-e43209%_ '() - _%imports43118%_))) + _%imports43181%_))) (for-each - (lambda (_%id43154%_) + (lambda (_%id43217%_) (if (hash-get - _%found43092%_ - (gx#core-identifier-key _%id43154%_)) + _%found43155%_ + (gx#core-identifier-key _%id43217%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the import set" - _%stx42934%_ - _%id43154%_))) - (foldr (lambda (_%g4315643159%_ - _%g4315743162%_) - (cons _%g4315643159%_ - _%g4315743162%_)) + _%stx42997%_ + _%id43217%_))) + (foldr (lambda (_%g4321943222%_ + _%g4322043225%_) + (cons _%g4321943222%_ + _%g4322043225%_)) '() - _%L43053%_)) - (cons 'begin: _%new-imports43149%_)) - (_%g4293742970%_ _%g4293842974%_))) - _%new-id4295743045%_ - _%id4295843048%_ - _%hd4294642991%_)))))) + _%L43116%_)) + (cons 'begin: _%new-imports43212%_)) + (_%g4300043033%_ _%g4300143037%_))) + _%new-id4302043108%_ + _%id4302143111%_ + _%hd4300943054%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4295143003%_ - _%target4294842997%_ + (_%loop4301443066%_ + _%target4301143060%_ '() '())) - (_%g4293742970%_ - _%g4293842974%_))))) - (_%g4293742970%_ _%g4293842974%_)))) - (_%g4293742970%_ _%g4293842974%_)))) - (_%g4293742970%_ _%g4293842974%_))))) - (_%g4293643165%_ _%stx42934%_))))) + (_%g4300043033%_ + _%g4300143037%_))))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_)))) + (_%g4300043033%_ _%g4300143037%_))))) + (_%g4299943228%_ _%stx42997%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-in| (gx#make-import-expander - (lambda (_%stx43170%_) - (let* ((_%g4317343191%_ - (lambda (_%g4317443187%_) + (lambda (_%stx43233%_) + (let* ((_%g4323643254%_ + (lambda (_%g4323743250%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4317443187%_))) - (_%g4317243276%_ - (lambda (_%g4317443195%_) - (if (gx#stx-pair? _%g4317443195%_) - (let ((_%e4317743198%_ (gx#syntax-e _%g4317443195%_))) - (let ((_%hd4317843202%_ + _%g4323743250%_))) + (_%g4323543339%_ + (lambda (_%g4323743258%_) + (if (gx#stx-pair? _%g4323743258%_) + (let ((_%e4324043261%_ (gx#syntax-e _%g4323743258%_))) + (let ((_%hd4324143265%_ (let () (declare (not safe)) - (##car _%e4317743198%_))) - (_%tl4317943205%_ + (##car _%e4324043261%_))) + (_%tl4324243268%_ (let () (declare (not safe)) - (##cdr _%e4317743198%_)))) - (if (gx#stx-pair? _%tl4317943205%_) - (let ((_%e4318043208%_ - (gx#syntax-e _%tl4317943205%_))) - (let ((_%hd4318143212%_ + (##cdr _%e4324043261%_)))) + (if (gx#stx-pair? _%tl4324243268%_) + (let ((_%e4324343271%_ + (gx#syntax-e _%tl4324243268%_))) + (let ((_%hd4324443275%_ (let () (declare (not safe)) - (##car _%e4318043208%_))) - (_%tl4318243215%_ + (##car _%e4324343271%_))) + (_%tl4324543278%_ (let () (declare (not safe)) - (##cdr _%e4318043208%_)))) - (if (gx#stx-pair? _%tl4318243215%_) - (let ((_%e4318343218%_ - (gx#syntax-e _%tl4318243215%_))) - (let ((_%hd4318443222%_ + (##cdr _%e4324343271%_)))) + (if (gx#stx-pair? _%tl4324543278%_) + (let ((_%e4324643281%_ + (gx#syntax-e _%tl4324543278%_))) + (let ((_%hd4324743285%_ (let () (declare (not safe)) - (##car _%e4318343218%_))) - (_%tl4318543225%_ + (##car _%e4324643281%_))) + (_%tl4324843288%_ (let () (declare (not safe)) - (##cdr _%e4318343218%_)))) - (if (gx#stx-null? _%tl4318543225%_) - ((lambda (_%L43228%_ _%L43230%_) - (if (gx#identifier? _%L43228%_) - (let* ((_%pre43246%_ + (##cdr _%e4324643281%_)))) + (if (gx#stx-null? _%tl4324843288%_) + ((lambda (_%L43291%_ _%L43293%_) + (if (gx#identifier? _%L43291%_) + (let* ((_%pre43309%_ (gx#stx-e - _%L43228%_)) - (_%imports43249%_ + _%L43291%_)) + (_%imports43312%_ (gx#core-expand-import-source - _%L43230%_)) - (_%rename-e43255%_ - (lambda (_%name43252%_) + _%L43293%_)) + (_%rename-e43318%_ + (lambda (_%name43315%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name43252%_ - _%pre43246%_))) - (_%fold-e43271%_ - (letrec ((_%fold-e43258%_ + _%name43315%_ + _%pre43309%_))) + (_%fold-e43334%_ + (letrec ((_%fold-e43321%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%in43261%_ _%r43263%_) - (if (gx#module-import? _%in43261%_) + (lambda (_%in43324%_ _%r43326%_) + (if (gx#module-import? _%in43324%_) (cons (|gerbil/core/module-sugar[1]#module-import-rename| - _%in43261%_ - (_%rename-e43255%_ + _%in43324%_ + (_%rename-e43318%_ (gx#module-import-name - _%in43261%_))) - _%r43263%_) - (if (gx#import-set? _%in43261%_) - (foldl _%fold-e43258%_ - _%r43263%_ + _%in43324%_))) + _%r43326%_) + (if (gx#import-set? _%in43324%_) + (foldl _%fold-e43321%_ + _%r43326%_ (gx#import-set-imports - _%in43261%_)) - (cons _%in43261%_ _%r43263%_)))))) - _%fold-e43258%_))) - (cons 'begin: (foldl _%fold-e43271%_ '() _%imports43249%_))) + _%in43324%_)) + (cons _%in43324%_ _%r43326%_)))))) + _%fold-e43321%_))) + (cons 'begin: (foldl _%fold-e43334%_ '() _%imports43312%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4317343191%_ - _%g4317443195%_))) - _%hd4318443222%_ - _%hd4318143212%_) - (_%g4317343191%_ - _%g4317443195%_)))) - (_%g4317343191%_ _%g4317443195%_)))) - (_%g4317343191%_ _%g4317443195%_)))) - (_%g4317343191%_ _%g4317443195%_))))) - (_%g4317243276%_ _%stx43170%_))))) + (_%g4323643254%_ + _%g4323743258%_))) + _%hd4324743285%_ + _%hd4324443275%_) + (_%g4323643254%_ + _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_)))) + (_%g4323643254%_ _%g4323743258%_))))) + (_%g4323543339%_ _%stx43233%_))))) (define |gerbil/core/module-sugar[:0:]#group-in| (gx#make-import-expander - (lambda (_%stx43280%_) - (letrec ((_%flatten43283%_ - (lambda (_%list-of-lists43538%_) - (foldr (lambda (_%v43541%_ _%acc43543%_) - (if (null? _%v43541%_) - _%acc43543%_ - (if (pair? _%v43541%_) - (append (_%flatten43283%_ _%v43541%_) - _%acc43543%_) - (cons _%v43541%_ _%acc43543%_)))) + (lambda (_%stx43343%_) + (letrec ((_%flatten43346%_ + (lambda (_%list-of-lists43601%_) + (foldr (lambda (_%v43604%_ _%acc43606%_) + (if (null? _%v43604%_) + _%acc43606%_ + (if (pair? _%v43604%_) + (append (_%flatten43346%_ _%v43604%_) + _%acc43606%_) + (cons _%v43604%_ _%acc43606%_)))) '() - _%list-of-lists43538%_))) - (_%expand-path43285%_ - (lambda (_%top43406%_ _%mod43408%_) - (let* ((_%__stx4451444515%_ _%mod43408%_) - (_%g4341143433%_ + _%list-of-lists43601%_))) + (_%expand-path43348%_ + (lambda (_%top43469%_ _%mod43471%_) + (let* ((_%__stx4457744578%_ _%mod43471%_) + (_%g4347443496%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4451444515%_)))) - (let ((_%__kont4451744518%_ - (lambda (_%L43501%_ _%L43503%_) - (map (lambda (_%mod43518%_) + _%__stx4457744578%_)))) + (let ((_%__kont4458044581%_ + (lambda (_%L43564%_ _%L43566%_) + (map (lambda (_%mod43581%_) (gx#stx-identifier - _%top43406%_ - _%top43406%_ + _%top43469%_ + _%top43469%_ '"/" - _%mod43518%_)) - (_%flatten43283%_ - (map (lambda (_%g4352043522%_) - (_%expand-path43285%_ - _%L43503%_ - _%g4352043522%_)) - (foldr (lambda (_%g4352543528%_ - _%g4352643531%_) - (cons _%g4352543528%_ - _%g4352643531%_)) + _%mod43581%_)) + (_%flatten43346%_ + (map (lambda (_%g4358343585%_) + (_%expand-path43348%_ + _%L43566%_ + _%g4358343585%_)) + (foldr (lambda (_%g4358843591%_ + _%g4358943594%_) + (cons _%g4358843591%_ + _%g4358943594%_)) '() - _%L43501%_)))))) - (_%__kont4452144522%_ - (lambda (_%L43440%_) + _%L43564%_)))))) + (_%__kont4458444585%_ + (lambda (_%L43503%_) (gx#stx-identifier - _%top43406%_ - _%top43406%_ + _%top43469%_ + _%top43469%_ '"/" - _%L43440%_)))) - (let* ((_%g4341043454%_ + _%L43503%_)))) + (let* ((_%g4347343517%_ (lambda () - (let ((_%L43440%_ _%__stx4451444515%_)) - (if (or (gx#identifier? _%L43440%_) - (gx#stx-fixnum? _%L43440%_)) - (_%__kont4452144522%_ _%L43440%_) + (let ((_%L43503%_ _%__stx4457744578%_)) + (if (or (gx#identifier? _%L43503%_) + (gx#stx-fixnum? _%L43503%_)) + (_%__kont4458444585%_ _%L43503%_) (let () (declare (not safe)) - (_%g4341143433%_)))))) - (_%__match4453744538%_ - (lambda (_%e4341543461%_ - _%hd4341643465%_ - _%tl4341743468%_ - _%__splice4451944520%_ - _%target4341843471%_ - _%tl4342043474%_) - (letrec ((_%loop4342143477%_ - (lambda (_%hd4341943481%_ - _%mod4342543484%_) + (_%g4347443496%_)))))) + (_%__match4460044601%_ + (lambda (_%e4347843524%_ + _%hd4347943528%_ + _%tl4348043531%_ + _%__splice4458244583%_ + _%target4348143534%_ + _%tl4348343537%_) + (letrec ((_%loop4348443540%_ + (lambda (_%hd4348243544%_ + _%mod4348843547%_) (if (gx#stx-pair? - _%hd4341943481%_) - (let ((_%e4342243487%_ + _%hd4348243544%_) + (let ((_%e4348543550%_ (gx#syntax-e - _%hd4341943481%_))) - (let ((_%lp-tl4342443494%_ + _%hd4348243544%_))) + (let ((_%lp-tl4348743557%_ (let () (declare (not safe)) - (##cdr _%e4342243487%_))) - (_%lp-hd4342343491%_ + (##cdr _%e4348543550%_))) + (_%lp-hd4348643554%_ (let () (declare (not safe)) - (##car _%e4342243487%_)))) - (_%loop4342143477%_ - _%lp-tl4342443494%_ - (cons _%lp-hd4342343491%_ - _%mod4342543484%_)))) - (let ((_%mod4342643497%_ - (reverse _%mod4342543484%_))) - (_%__kont4451744518%_ - _%mod4342643497%_ - _%hd4341643465%_)))))) - (_%loop4342143477%_ - _%target4341843471%_ + (##car _%e4348543550%_)))) + (_%loop4348443540%_ + _%lp-tl4348743557%_ + (cons _%lp-hd4348643554%_ + _%mod4348843547%_)))) + (let ((_%mod4348943560%_ + (reverse _%mod4348843547%_))) + (_%__kont4458044581%_ + _%mod4348943560%_ + _%hd4347943528%_)))))) + (_%loop4348443540%_ + _%target4348143534%_ '()))))) - (if (gx#stx-pair? _%__stx4451444515%_) - (let ((_%e4341543461%_ - (gx#syntax-e _%__stx4451444515%_))) - (let ((_%tl4341743468%_ + (if (gx#stx-pair? _%__stx4457744578%_) + (let ((_%e4347843524%_ + (gx#syntax-e _%__stx4457744578%_))) + (let ((_%tl4348043531%_ (let () (declare (not safe)) - (##cdr _%e4341543461%_))) - (_%hd4341643465%_ + (##cdr _%e4347843524%_))) + (_%hd4347943528%_ (let () (declare (not safe)) - (##car _%e4341543461%_)))) - (if (gx#stx-pair/null? _%tl4341743468%_) - (let ((_%__splice4451944520%_ + (##car _%e4347843524%_)))) + (if (gx#stx-pair/null? _%tl4348043531%_) + (let ((_%__splice4458244583%_ (gx#syntax-split-splice - _%tl4341743468%_ + _%tl4348043531%_ '0))) - (let ((_%tl4342043474%_ + (let ((_%tl4348343537%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451944520%_ + _%__splice4458244583%_ '1))) - (_%target4341843471%_ + (_%target4348143534%_ (let () (declare (not safe)) (##vector-ref - _%__splice4451944520%_ + _%__splice4458244583%_ '0)))) - (if (gx#stx-null? _%tl4342043474%_) - (_%__match4453744538%_ - _%e4341543461%_ - _%hd4341643465%_ - _%tl4341743468%_ - _%__splice4451944520%_ - _%target4341843471%_ - _%tl4342043474%_) + (if (gx#stx-null? _%tl4348343537%_) + (_%__match4460044601%_ + _%e4347843524%_ + _%hd4347943528%_ + _%tl4348043531%_ + _%__splice4458244583%_ + _%target4348143534%_ + _%tl4348343537%_) (let () (declare (not safe)) - (_%g4341043454%_))))) + (_%g4347343517%_))))) (let () (declare (not safe)) - (_%g4341043454%_))))) + (_%g4347343517%_))))) (let () (declare (not safe)) - (_%g4341043454%_))))))))) - (let* ((_%g4328743311%_ - (lambda (_%g4328843307%_) + (_%g4347343517%_))))))))) + (let* ((_%g4335043374%_ + (lambda (_%g4335143370%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4328843307%_))) - (_%g4328643402%_ - (lambda (_%g4328843315%_) - (if (gx#stx-pair? _%g4328843315%_) - (let ((_%e4329143318%_ (gx#syntax-e _%g4328843315%_))) - (let ((_%hd4329243322%_ + _%g4335143370%_))) + (_%g4334943465%_ + (lambda (_%g4335143378%_) + (if (gx#stx-pair? _%g4335143378%_) + (let ((_%e4335443381%_ (gx#syntax-e _%g4335143378%_))) + (let ((_%hd4335543385%_ (let () (declare (not safe)) - (##car _%e4329143318%_))) - (_%tl4329343325%_ + (##car _%e4335443381%_))) + (_%tl4335643388%_ (let () (declare (not safe)) - (##cdr _%e4329143318%_)))) - (if (gx#stx-pair? _%tl4329343325%_) - (let ((_%e4329443328%_ - (gx#syntax-e _%tl4329343325%_))) - (let ((_%hd4329543332%_ + (##cdr _%e4335443381%_)))) + (if (gx#stx-pair? _%tl4335643388%_) + (let ((_%e4335743391%_ + (gx#syntax-e _%tl4335643388%_))) + (let ((_%hd4335843395%_ (let () (declare (not safe)) - (##car _%e4329443328%_))) - (_%tl4329643335%_ + (##car _%e4335743391%_))) + (_%tl4335943398%_ (let () (declare (not safe)) - (##cdr _%e4329443328%_)))) - (if (gx#stx-pair/null? _%tl4329643335%_) - (let ((_g44616_ + (##cdr _%e4335743391%_)))) + (if (gx#stx-pair/null? _%tl4335943398%_) + (let ((_g44679_ (gx#syntax-split-splice - _%tl4329643335%_ + _%tl4335943398%_ '0))) (begin - (let ((_g44617_ + (let ((_g44680_ (let () (declare (not safe)) - (if (##values? _g44616_) - (##vector-length - _g44616_) + (if (##values? _g44679_) + (##values-length + _g44679_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44617_ 2))) + (##fx= _g44680_ 2))) (error "Context expects 2 values" - _g44617_))) - (let ((_%target4329743338%_ + _g44680_))) + (let ((_%target4336043401%_ (let () (declare (not safe)) - (##vector-ref _g44616_ 0))) - (_%tl4329943341%_ + (##values-ref _g44679_ 0))) + (_%tl4336243404%_ (let () (declare (not safe)) - (##vector-ref - _g44616_ + (##values-ref + _g44679_ 1)))) (if (gx#stx-null? - _%tl4329943341%_) - (letrec ((_%loop4330043344%_ - (lambda (_%hd4329843348%_ + _%tl4336243404%_) + (letrec ((_%loop4336343407%_ + (lambda (_%hd4336143411%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%mod4330443351%_) - (if (gx#stx-pair? _%hd4329843348%_) - (let ((_%e4330143354%_ - (gx#syntax-e _%hd4329843348%_))) - (let ((_%lp-hd4330243358%_ + _%mod4336743414%_) + (if (gx#stx-pair? _%hd4336143411%_) + (let ((_%e4336443417%_ + (gx#syntax-e _%hd4336143411%_))) + (let ((_%lp-hd4336543421%_ (let () (declare (not safe)) - (##car _%e4330143354%_))) - (_%lp-tl4330343361%_ + (##car _%e4336443417%_))) + (_%lp-tl4336643424%_ (let () (declare (not safe)) - (##cdr _%e4330143354%_)))) - (_%loop4330043344%_ - _%lp-tl4330343361%_ - (cons _%lp-hd4330243358%_ _%mod4330443351%_)))) - (let ((_%mod4330543364%_ (reverse _%mod4330443351%_))) - ((lambda (_%L43368%_ _%L43370%_) + (##cdr _%e4336443417%_)))) + (_%loop4336343407%_ + _%lp-tl4336643424%_ + (cons _%lp-hd4336543421%_ _%mod4336743414%_)))) + (let ((_%mod4336843427%_ (reverse _%mod4336743414%_))) + ((lambda (_%L43431%_ _%L43433%_) (cons 'begin: - (_%flatten43283%_ - (map (lambda (_%g4338843390%_) - (_%expand-path43285%_ - _%L43370%_ - _%g4338843390%_)) - (foldr (lambda (_%g4339343396%_ - _%g4339443399%_) - (cons _%g4339343396%_ - _%g4339443399%_)) + (_%flatten43346%_ + (map (lambda (_%g4345143453%_) + (_%expand-path43348%_ + _%L43433%_ + _%g4345143453%_)) + (foldr (lambda (_%g4345643459%_ + _%g4345743462%_) + (cons _%g4345643459%_ + _%g4345743462%_)) '() - _%L43368%_))))) - _%mod4330543364%_ - _%hd4329543332%_)))))) + _%L43431%_))))) + _%mod4336843427%_ + _%hd4335843395%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4330043344%_ - _%target4329743338%_ + (_%loop4336343407%_ + _%target4336043401%_ '())) - (_%g4328743311%_ - _%g4328843315%_))))) - (_%g4328743311%_ _%g4328843315%_)))) - (_%g4328743311%_ _%g4328843315%_)))) - (_%g4328743311%_ _%g4328843315%_))))) - (_%g4328643402%_ _%stx43280%_)))))) + (_%g4335043374%_ + _%g4335143378%_))))) + (_%g4335043374%_ _%g4335143378%_)))) + (_%g4335043374%_ _%g4335143378%_)))) + (_%g4335043374%_ _%g4335143378%_))))) + (_%g4334943465%_ _%stx43343%_)))))) (define |gerbil/core/module-sugar[:0:]#except-out| (gx#make-export-expander - (lambda (_%stx43553%_) - (let* ((_%g4355643580%_ - (lambda (_%g4355743576%_) + (lambda (_%stx43616%_) + (let* ((_%g4361943643%_ + (lambda (_%g4362043639%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4355743576%_))) - (_%g4355543708%_ - (lambda (_%g4355743584%_) - (if (gx#stx-pair? _%g4355743584%_) - (let ((_%e4356043587%_ (gx#syntax-e _%g4355743584%_))) - (let ((_%hd4356143591%_ + _%g4362043639%_))) + (_%g4361843771%_ + (lambda (_%g4362043647%_) + (if (gx#stx-pair? _%g4362043647%_) + (let ((_%e4362343650%_ (gx#syntax-e _%g4362043647%_))) + (let ((_%hd4362443654%_ (let () (declare (not safe)) - (##car _%e4356043587%_))) - (_%tl4356243594%_ + (##car _%e4362343650%_))) + (_%tl4362543657%_ (let () (declare (not safe)) - (##cdr _%e4356043587%_)))) - (if (gx#stx-pair? _%tl4356243594%_) - (let ((_%e4356343597%_ - (gx#syntax-e _%tl4356243594%_))) - (let ((_%hd4356443601%_ + (##cdr _%e4362343650%_)))) + (if (gx#stx-pair? _%tl4362543657%_) + (let ((_%e4362643660%_ + (gx#syntax-e _%tl4362543657%_))) + (let ((_%hd4362743664%_ (let () (declare (not safe)) - (##car _%e4356343597%_))) - (_%tl4356543604%_ + (##car _%e4362643660%_))) + (_%tl4362843667%_ (let () (declare (not safe)) - (##cdr _%e4356343597%_)))) - (if (gx#stx-pair/null? _%tl4356543604%_) - (let ((_g44618_ + (##cdr _%e4362643660%_)))) + (if (gx#stx-pair/null? _%tl4362843667%_) + (let ((_g44681_ (gx#syntax-split-splice - _%tl4356543604%_ + _%tl4362843667%_ '0))) (begin - (let ((_g44619_ + (let ((_g44682_ (let () (declare (not safe)) - (if (##values? _g44618_) - (##vector-length - _g44618_) + (if (##values? _g44681_) + (##values-length + _g44681_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44619_ 2))) + (##fx= _g44682_ 2))) (error "Context expects 2 values" - _g44619_))) - (let ((_%target4356643607%_ + _g44682_))) + (let ((_%target4362943670%_ (let () (declare (not safe)) - (##vector-ref _g44618_ 0))) - (_%tl4356843610%_ + (##values-ref _g44681_ 0))) + (_%tl4363143673%_ (let () (declare (not safe)) - (##vector-ref _g44618_ 1)))) - (if (gx#stx-null? _%tl4356843610%_) - (letrec ((_%loop4356943613%_ - (lambda (_%hd4356743617%_ + (##values-ref _g44681_ 1)))) + (if (gx#stx-null? _%tl4363143673%_) + (letrec ((_%loop4363243676%_ + (lambda (_%hd4363043680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id4357343620%_) - (if (gx#stx-pair? _%hd4356743617%_) - (let ((_%e4357043623%_ (gx#syntax-e _%hd4356743617%_))) - (let ((_%lp-hd4357143627%_ + _%id4363643683%_) + (if (gx#stx-pair? _%hd4363043680%_) + (let ((_%e4363343686%_ (gx#syntax-e _%hd4363043680%_))) + (let ((_%lp-hd4363443690%_ (let () (declare (not safe)) - (##car _%e4357043623%_))) - (_%lp-tl4357243630%_ + (##car _%e4363343686%_))) + (_%lp-tl4363543693%_ (let () (declare (not safe)) - (##cdr _%e4357043623%_)))) - (_%loop4356943613%_ - _%lp-tl4357243630%_ - (cons _%lp-hd4357143627%_ _%id4357343620%_)))) - (let ((_%id4357443633%_ (reverse _%id4357343620%_))) - ((lambda (_%L43637%_ _%L43639%_) + (##cdr _%e4363343686%_)))) + (_%loop4363243676%_ + _%lp-tl4363543693%_ + (cons _%lp-hd4363443690%_ _%id4363643683%_)))) + (let ((_%id4363743696%_ (reverse _%id4363643683%_))) + ((lambda (_%L43700%_ _%L43702%_) (if (gx#identifier-list? - (foldr (lambda (_%g4365643659%_ - _%g4365743662%_) - (cons _%g4365643659%_ - _%g4365743662%_)) + (foldr (lambda (_%g4371943722%_ + _%g4372043725%_) + (cons _%g4371943722%_ + _%g4372043725%_)) '() - _%L43637%_)) - (let* ((_%keys43673%_ + _%L43700%_)) + (let* ((_%keys43736%_ (gx#stx-map gx#core-identifier-key - (foldr (lambda (_%g4366443667%_ - _%g4366543670%_) - (cons _%g4366443667%_ - _%g4366543670%_)) + (foldr (lambda (_%g4372743730%_ + _%g4372843733%_) + (cons _%g4372743730%_ + _%g4372843733%_)) '() - _%L43637%_))) - (_%keytab43684%_ - (let ((_%ht43676%_ (make-hash-table))) + _%L43700%_))) + (_%keytab43747%_ + (let ((_%ht43739%_ (make-hash-table))) (for-each - (lambda (_%g4367843680%_) + (lambda (_%g4374143743%_) (hash-put! - _%ht43676%_ - _%g4367843680%_ + _%ht43739%_ + _%g4374143743%_ '#t)) - _%keys43673%_) - _%ht43676%_)) - (_%exports43687%_ + _%keys43736%_) + _%ht43739%_)) + (_%exports43750%_ (gx#core-expand-export-source - _%L43639%_)) - (_%fold-e43703%_ - (letrec ((_%fold-e43690%_ - (lambda (_%out43693%_ - _%r43695%_) + _%L43702%_)) + (_%fold-e43766%_ + (letrec ((_%fold-e43753%_ + (lambda (_%out43756%_ + _%r43758%_) (if (gx#module-export? - _%out43693%_) + _%out43756%_) (if (hash-get - _%keytab43684%_ + _%keytab43747%_ (gx#module-export-name - _%out43693%_)) - _%r43695%_ - (cons _%out43693%_ + _%out43756%_)) + _%r43758%_ + (cons _%out43756%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%r43695%_)) - (if (gx#export-set? _%out43693%_) - (foldl _%fold-e43690%_ - _%r43695%_ - (gx#export-set-exports _%out43693%_)) - _%r43695%_))))) + _%r43758%_)) + (if (gx#export-set? _%out43756%_) + (foldl _%fold-e43753%_ + _%r43758%_ + (gx#export-set-exports _%out43756%_)) + _%r43758%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43690%_))) + _%fold-e43753%_))) (cons 'begin: - (foldl _%fold-e43703%_ + (foldl _%fold-e43766%_ '() - _%exports43687%_))) - (_%g4355643580%_ _%g4355743584%_))) - _%id4357443633%_ - _%hd4356443601%_)))))) + _%exports43750%_))) + (_%g4361943643%_ _%g4362043647%_))) + _%id4363743696%_ + _%hd4362743664%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4356943613%_ - _%target4356643607%_ + (_%loop4363243676%_ + _%target4362943670%_ '())) - (_%g4355643580%_ - _%g4355743584%_))))) - (_%g4355643580%_ _%g4355743584%_)))) - (_%g4355643580%_ _%g4355743584%_)))) - (_%g4355643580%_ _%g4355743584%_))))) - (_%g4355543708%_ _%stx43553%_))))) + (_%g4361943643%_ + _%g4362043647%_))))) + (_%g4361943643%_ _%g4362043647%_)))) + (_%g4361943643%_ _%g4362043647%_)))) + (_%g4361943643%_ _%g4362043647%_))))) + (_%g4361843771%_ _%stx43616%_))))) (define |gerbil/core/module-sugar[1]#module-export-rename| - (lambda (_%out43713%_ _%rename43715%_) + (lambda (_%out43776%_ _%rename43778%_) (gx#make-module-export - (gx#module-export-context _%out43713%_) - (gx#module-export-key _%out43713%_) - (gx#module-export-phi _%out43713%_) - _%rename43715%_ - (gx#module-export-weak? _%out43713%_)))) + (gx#module-export-context _%out43776%_) + (gx#module-export-key _%out43776%_) + (gx#module-export-phi _%out43776%_) + _%rename43778%_ + (gx#module-export-weak? _%out43776%_)))) (define |gerbil/core/module-sugar[:0:]#rename-out| (gx#make-export-expander - (lambda (_%stx43717%_) - (let* ((_%g4372043753%_ - (lambda (_%g4372143749%_) + (lambda (_%stx43780%_) + (let* ((_%g4378343816%_ + (lambda (_%g4378443812%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4372143749%_))) - (_%g4371943948%_ - (lambda (_%g4372143757%_) - (if (gx#stx-pair? _%g4372143757%_) - (let ((_%e4372543760%_ (gx#syntax-e _%g4372143757%_))) - (let ((_%hd4372643764%_ + _%g4378443812%_))) + (_%g4378244011%_ + (lambda (_%g4378443820%_) + (if (gx#stx-pair? _%g4378443820%_) + (let ((_%e4378843823%_ (gx#syntax-e _%g4378443820%_))) + (let ((_%hd4378943827%_ (let () (declare (not safe)) - (##car _%e4372543760%_))) - (_%tl4372743767%_ + (##car _%e4378843823%_))) + (_%tl4379043830%_ (let () (declare (not safe)) - (##cdr _%e4372543760%_)))) - (if (gx#stx-pair? _%tl4372743767%_) - (let ((_%e4372843770%_ - (gx#syntax-e _%tl4372743767%_))) - (let ((_%hd4372943774%_ + (##cdr _%e4378843823%_)))) + (if (gx#stx-pair? _%tl4379043830%_) + (let ((_%e4379143833%_ + (gx#syntax-e _%tl4379043830%_))) + (let ((_%hd4379243837%_ (let () (declare (not safe)) - (##car _%e4372843770%_))) - (_%tl4373043777%_ + (##car _%e4379143833%_))) + (_%tl4379343840%_ (let () (declare (not safe)) - (##cdr _%e4372843770%_)))) - (if (gx#stx-pair/null? _%tl4373043777%_) - (let ((_g44620_ + (##cdr _%e4379143833%_)))) + (if (gx#stx-pair/null? _%tl4379343840%_) + (let ((_g44683_ (gx#syntax-split-splice - _%tl4373043777%_ + _%tl4379343840%_ '0))) (begin - (let ((_g44621_ + (let ((_g44684_ (let () (declare (not safe)) - (if (##values? _g44620_) - (##vector-length - _g44620_) + (if (##values? _g44683_) + (##values-length + _g44683_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g44621_ 2))) + (##fx= _g44684_ 2))) (error "Context expects 2 values" - _g44621_))) - (let ((_%target4373143780%_ + _g44684_))) + (let ((_%target4379443843%_ (let () (declare (not safe)) - (##vector-ref _g44620_ 0))) - (_%tl4373343783%_ + (##values-ref _g44683_ 0))) + (_%tl4379643846%_ (let () (declare (not safe)) - (##vector-ref _g44620_ 1)))) - (if (gx#stx-null? _%tl4373343783%_) - (letrec ((_%loop4373443786%_ - (lambda (_%hd4373243790%_ + (##values-ref _g44683_ 1)))) + (if (gx#stx-null? _%tl4379643846%_) + (letrec ((_%loop4379743849%_ + (lambda (_%hd4379543853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%new-id4373843793%_ - _%id4373943795%_) - (if (gx#stx-pair? _%hd4373243790%_) - (let ((_%e4373543798%_ (gx#syntax-e _%hd4373243790%_))) - (let ((_%lp-hd4373643802%_ + _%new-id4380143856%_ + _%id4380243858%_) + (if (gx#stx-pair? _%hd4379543853%_) + (let ((_%e4379843861%_ (gx#syntax-e _%hd4379543853%_))) + (let ((_%lp-hd4379943865%_ (let () (declare (not safe)) - (##car _%e4373543798%_))) - (_%lp-tl4373743805%_ + (##car _%e4379843861%_))) + (_%lp-tl4380043868%_ (let () (declare (not safe)) - (##cdr _%e4373543798%_)))) - (if (gx#stx-pair? _%lp-hd4373643802%_) - (let ((_%e4374243808%_ - (gx#syntax-e _%lp-hd4373643802%_))) - (let ((_%hd4374343812%_ + (##cdr _%e4379843861%_)))) + (if (gx#stx-pair? _%lp-hd4379943865%_) + (let ((_%e4380543871%_ + (gx#syntax-e _%lp-hd4379943865%_))) + (let ((_%hd4380643875%_ (let () (declare (not safe)) - (##car _%e4374243808%_))) - (_%tl4374443815%_ + (##car _%e4380543871%_))) + (_%tl4380743878%_ (let () (declare (not safe)) - (##cdr _%e4374243808%_)))) - (if (gx#stx-pair? _%tl4374443815%_) - (let ((_%e4374543818%_ - (gx#syntax-e _%tl4374443815%_))) - (let ((_%hd4374643822%_ + (##cdr _%e4380543871%_)))) + (if (gx#stx-pair? _%tl4380743878%_) + (let ((_%e4380843881%_ + (gx#syntax-e _%tl4380743878%_))) + (let ((_%hd4380943885%_ (let () (declare (not safe)) - (##car _%e4374543818%_))) - (_%tl4374743825%_ + (##car _%e4380843881%_))) + (_%tl4381043888%_ (let () (declare (not safe)) - (##cdr _%e4374543818%_)))) - (if (gx#stx-null? _%tl4374743825%_) - (_%loop4373443786%_ - _%lp-tl4373743805%_ - (cons _%hd4374643822%_ - _%new-id4373843793%_) - (cons _%hd4374343812%_ - _%id4373943795%_)) - (_%g4372043753%_ - _%g4372143757%_)))) - (_%g4372043753%_ _%g4372143757%_)))) - (_%g4372043753%_ _%g4372143757%_)))) - (let ((_%new-id4374043828%_ - (reverse _%new-id4373843793%_)) - (_%id4374143831%_ (reverse _%id4373943795%_))) - ((lambda (_%L43834%_ _%L43836%_ _%L43837%_) + (##cdr _%e4380843881%_)))) + (if (gx#stx-null? _%tl4381043888%_) + (_%loop4379743849%_ + _%lp-tl4380043868%_ + (cons _%hd4380943885%_ + _%new-id4380143856%_) + (cons _%hd4380643875%_ + _%id4380243858%_)) + (_%g4378343816%_ + _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (let ((_%new-id4380343891%_ + (reverse _%new-id4380143856%_)) + (_%id4380443894%_ (reverse _%id4380243858%_))) + ((lambda (_%L43897%_ _%L43899%_ _%L43900%_) (if (and (gx#identifier-list? - (foldr (lambda (_%g4385543858%_ - _%g4385643861%_) - (cons _%g4385543858%_ - _%g4385643861%_)) + (foldr (lambda (_%g4391843921%_ + _%g4391943924%_) + (cons _%g4391843921%_ + _%g4391943924%_)) '() - _%L43836%_)) + _%L43899%_)) (gx#identifier-list? - (foldr (lambda (_%g4386343866%_ - _%g4386443869%_) - (cons _%g4386343866%_ - _%g4386443869%_)) + (foldr (lambda (_%g4392643929%_ + _%g4392743932%_) + (cons _%g4392643929%_ + _%g4392743932%_)) '() - _%L43834%_))) - (let* ((_%keytab43872%_ (make-hash-table)) - (_%found43875%_ (make-hash-table)) - (_%_43898%_ + _%L43897%_))) + (let* ((_%keytab43935%_ (make-hash-table)) + (_%found43938%_ (make-hash-table)) + (_%_43961%_ (for-each - (lambda (_%id43878%_ _%new-id43880%_) + (lambda (_%id43941%_ _%new-id43943%_) (hash-put! - _%keytab43872%_ + _%keytab43935%_ (gx#core-identifier-key - _%id43878%_) + _%id43941%_) (gx#core-identifier-key - _%new-id43880%_))) - (foldr (lambda (_%g4388143884%_ - _%g4388243887%_) - (cons _%g4388143884%_ - _%g4388243887%_)) + _%new-id43943%_))) + (foldr (lambda (_%g4394443947%_ + _%g4394543950%_) + (cons _%g4394443947%_ + _%g4394543950%_)) '() - _%L43836%_) - (foldr (lambda (_%g4388943892%_ - _%g4389043895%_) - (cons _%g4388943892%_ - _%g4389043895%_)) + _%L43899%_) + (foldr (lambda (_%g4395243955%_ + _%g4395343958%_) + (cons _%g4395243955%_ + _%g4395343958%_)) '() - _%L43834%_))) - (_%exports43901%_ + _%L43897%_))) + (_%exports43964%_ (gx#core-expand-export-source - _%L43837%_)) - (_%fold-e43929%_ - (letrec ((_%fold-e43904%_ - (lambda (_%out43907%_ - _%r43909%_) + _%L43900%_)) + (_%fold-e43992%_ + (letrec ((_%fold-e43967%_ + (lambda (_%out43970%_ + _%r43972%_) (if (gx#module-export? - _%out43907%_) - (let* ((_%name43913%_ + _%out43970%_) + (let* ((_%name43976%_ (gx#module-export-name ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%out43907%_)) - (_%$e43916%_ (hash-get _%keytab43872%_ _%name43913%_))) - (if _%$e43916%_ - ((lambda (_%rename43920%_) - (hash-put! _%found43875%_ _%name43913%_ '#t) + _%out43970%_)) + (_%$e43979%_ (hash-get _%keytab43935%_ _%name43976%_))) + (if _%$e43979%_ + ((lambda (_%rename43983%_) + (hash-put! _%found43938%_ _%name43976%_ '#t) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out43907%_ - _%rename43920%_) - _%r43909%_)) - _%$e43916%_) - (cons _%out43907%_ _%r43909%_))) - (if (gx#export-set? _%out43907%_) - (foldl _%fold-e43904%_ - _%r43909%_ - (gx#export-set-exports _%out43907%_)) - (cons _%out43907%_ _%r43909%_)))))) + _%out43970%_ + _%rename43983%_) + _%r43972%_)) + _%$e43979%_) + (cons _%out43970%_ _%r43972%_))) + (if (gx#export-set? _%out43970%_) + (foldl _%fold-e43967%_ + _%r43972%_ + (gx#export-set-exports _%out43970%_)) + (cons _%out43970%_ _%r43972%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%fold-e43904%_)) - (_%new-exports43932%_ - (foldl _%fold-e43929%_ + _%fold-e43967%_)) + (_%new-exports43995%_ + (foldl _%fold-e43992%_ '() - _%exports43901%_))) + _%exports43964%_))) (for-each - (lambda (_%id43937%_) + (lambda (_%id44000%_) (if (hash-get - _%found43875%_ - (gx#core-identifier-key _%id43937%_)) + _%found43938%_ + (gx#core-identifier-key _%id44000%_)) '#!void (gx#raise-syntax-error '#f '"bad syntax; identifier is not in the export set" - _%stx43717%_ - _%id43937%_))) - (foldr (lambda (_%g4393943942%_ - _%g4394043945%_) - (cons _%g4393943942%_ - _%g4394043945%_)) + _%stx43780%_ + _%id44000%_))) + (foldr (lambda (_%g4400244005%_ + _%g4400344008%_) + (cons _%g4400244005%_ + _%g4400344008%_)) '() - _%L43836%_)) - (cons 'begin: _%new-exports43932%_)) - (_%g4372043753%_ _%g4372143757%_))) - _%new-id4374043828%_ - _%id4374143831%_ - _%hd4372943774%_)))))) + _%L43899%_)) + (cons 'begin: _%new-exports43995%_)) + (_%g4378343816%_ _%g4378443820%_))) + _%new-id4380343891%_ + _%id4380443894%_ + _%hd4379243837%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4373443786%_ - _%target4373143780%_ + (_%loop4379743849%_ + _%target4379443843%_ '() '())) - (_%g4372043753%_ - _%g4372143757%_))))) - (_%g4372043753%_ _%g4372143757%_)))) - (_%g4372043753%_ _%g4372143757%_)))) - (_%g4372043753%_ _%g4372143757%_))))) - (_%g4371943948%_ _%stx43717%_))))) + (_%g4378343816%_ + _%g4378443820%_))))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_)))) + (_%g4378343816%_ _%g4378443820%_))))) + (_%g4378244011%_ _%stx43780%_))))) (define |gerbil/core/module-sugar[:0:]#prefix-out| (gx#make-export-expander - (lambda (_%stx43953%_) - (let* ((_%g4395643974%_ - (lambda (_%g4395743970%_) + (lambda (_%stx44016%_) + (let* ((_%g4401944037%_ + (lambda (_%g4402044033%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4395743970%_))) - (_%g4395544059%_ - (lambda (_%g4395743978%_) - (if (gx#stx-pair? _%g4395743978%_) - (let ((_%e4396043981%_ (gx#syntax-e _%g4395743978%_))) - (let ((_%hd4396143985%_ + _%g4402044033%_))) + (_%g4401844122%_ + (lambda (_%g4402044041%_) + (if (gx#stx-pair? _%g4402044041%_) + (let ((_%e4402344044%_ (gx#syntax-e _%g4402044041%_))) + (let ((_%hd4402444048%_ (let () (declare (not safe)) - (##car _%e4396043981%_))) - (_%tl4396243988%_ + (##car _%e4402344044%_))) + (_%tl4402544051%_ (let () (declare (not safe)) - (##cdr _%e4396043981%_)))) - (if (gx#stx-pair? _%tl4396243988%_) - (let ((_%e4396343991%_ - (gx#syntax-e _%tl4396243988%_))) - (let ((_%hd4396443995%_ + (##cdr _%e4402344044%_)))) + (if (gx#stx-pair? _%tl4402544051%_) + (let ((_%e4402644054%_ + (gx#syntax-e _%tl4402544051%_))) + (let ((_%hd4402744058%_ (let () (declare (not safe)) - (##car _%e4396343991%_))) - (_%tl4396543998%_ + (##car _%e4402644054%_))) + (_%tl4402844061%_ (let () (declare (not safe)) - (##cdr _%e4396343991%_)))) - (if (gx#stx-pair? _%tl4396543998%_) - (let ((_%e4396644001%_ - (gx#syntax-e _%tl4396543998%_))) - (let ((_%hd4396744005%_ + (##cdr _%e4402644054%_)))) + (if (gx#stx-pair? _%tl4402844061%_) + (let ((_%e4402944064%_ + (gx#syntax-e _%tl4402844061%_))) + (let ((_%hd4403044068%_ (let () (declare (not safe)) - (##car _%e4396644001%_))) - (_%tl4396844008%_ + (##car _%e4402944064%_))) + (_%tl4403144071%_ (let () (declare (not safe)) - (##cdr _%e4396644001%_)))) - (if (gx#stx-null? _%tl4396844008%_) - ((lambda (_%L44011%_ _%L44013%_) - (if (gx#identifier? _%L44011%_) - (let* ((_%pre44029%_ + (##cdr _%e4402944064%_)))) + (if (gx#stx-null? _%tl4403144071%_) + ((lambda (_%L44074%_ _%L44076%_) + (if (gx#identifier? _%L44074%_) + (let* ((_%pre44092%_ (gx#stx-e - _%L44011%_)) - (_%exports44032%_ + _%L44074%_)) + (_%exports44095%_ (gx#core-expand-export-source - _%L44013%_)) - (_%rename-e44038%_ - (lambda (_%name44035%_) + _%L44076%_)) + (_%rename-e44101%_ + (lambda (_%name44098%_) (|gerbil/core/module-sugar[1]#prefix-identifier-key| - _%name44035%_ - _%pre44029%_))) - (_%fold-e44054%_ - (letrec ((_%fold-e44041%_ + _%name44098%_ + _%pre44092%_))) + (_%fold-e44117%_ + (letrec ((_%fold-e44104%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%out44044%_ _%r44046%_) - (if (gx#module-export? _%out44044%_) + (lambda (_%out44107%_ _%r44109%_) + (if (gx#module-export? _%out44107%_) (cons (|gerbil/core/module-sugar[1]#module-export-rename| - _%out44044%_ - (_%rename-e44038%_ + _%out44107%_ + (_%rename-e44101%_ (gx#module-export-name - _%out44044%_))) - _%r44046%_) - (if (gx#export-set? _%out44044%_) - (foldl _%fold-e44041%_ - _%r44046%_ + _%out44107%_))) + _%r44109%_) + (if (gx#export-set? _%out44107%_) + (foldl _%fold-e44104%_ + _%r44109%_ (gx#export-set-exports - _%out44044%_)) - (cons _%out44044%_ _%r44046%_)))))) - _%fold-e44041%_))) - (cons 'begin: (foldl _%fold-e44054%_ '() _%exports44032%_))) + _%out44107%_)) + (cons _%out44107%_ _%r44109%_)))))) + _%fold-e44104%_))) + (cons 'begin: (foldl _%fold-e44117%_ '() _%exports44095%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4395643974%_ - _%g4395743978%_))) - _%hd4396744005%_ - _%hd4396443995%_) - (_%g4395643974%_ - _%g4395743978%_)))) - (_%g4395643974%_ _%g4395743978%_)))) - (_%g4395643974%_ _%g4395743978%_)))) - (_%g4395643974%_ _%g4395743978%_))))) - (_%g4395544059%_ _%stx43953%_))))) + (_%g4401944037%_ + _%g4402044041%_))) + _%hd4403044068%_ + _%hd4402744058%_) + (_%g4401944037%_ + _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_)))) + (_%g4401944037%_ _%g4402044041%_))))) + (_%g4401844122%_ _%stx44016%_))))) (define |gerbil/core/module-sugar[:0:]#struct-out| (gx#make-export-expander - (lambda (_%stx44063%_) - (letrec ((_%identifiers44066%_ - (lambda (_%id44298%_ _%unchecked?44300%_) - (let ((_%info44302%_ - (gx#syntax-local-value _%id44298%_ false))) + (lambda (_%stx44126%_) + (letrec ((_%identifiers44129%_ + (lambda (_%id44361%_ _%unchecked?44363%_) + (let ((_%info44365%_ + (gx#syntax-local-value _%id44361%_ false))) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%info44302%_)) - (cons _%id44298%_ - (cons (let ((__obj44599 _%info44302%_)) + _%info44365%_)) + (cons _%id44361%_ + (cons (let ((__obj44662 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44599 + __obj44662 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44599 + __obj44662 '12 '#f '#f)) (unchecked-slot-ref - __obj44599 + __obj44662 'type-descriptor))) (foldr cons - (cons (let ((__obj44600 - _%info44302%_)) + (cons (let ((__obj44663 + _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44600 + __obj44663 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44600 + __obj44663 '14 '#f '#f)) (unchecked-slot-ref - __obj44600 + __obj44663 'predicate))) (foldr cons (foldr cons - (if _%unchecked?44300%_ + (if _%unchecked?44363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (foldr cons (map cdr - (let ((__obj44601 _%info44302%_)) + (let ((__obj44664 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44601 + __obj44664 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44601 + __obj44664 '18 '#f '#f)) (unchecked-slot-ref - __obj44601 + __obj44664 'unchecked-mutators)))) (map cdr - (let ((__obj44602 _%info44302%_)) + (let ((__obj44665 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44602 + __obj44665 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44602 + __obj44665 '17 '#f '#f)) (unchecked-slot-ref - __obj44602 + __obj44665 'unchecked-accessors))))) '()) (map cdr - (let ((__obj44603 _%info44302%_)) + (let ((__obj44666 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44603 + __obj44666 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44603 + __obj44666 '16 '#f '#f)) (unchecked-slot-ref - __obj44603 + __obj44666 'mutators))))) (map cdr - (let ((__obj44604 _%info44302%_)) + (let ((__obj44667 _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44604 + __obj44667 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44604 + __obj44667 '15 '#f '#f)) - (unchecked-slot-ref __obj44604 'accessors)))))) + (unchecked-slot-ref __obj44667 'accessors)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%ctor44305%_ - (let ((__obj44605 - _%info44302%_)) + (let ((_%ctor44368%_ + (let ((__obj44668 + _%info44365%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj44605 + __obj44668 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj44605 + __obj44668 '13 '#f '#f)) (unchecked-slot-ref - __obj44605 + __obj44668 'constructor))))) - (if _%ctor44305%_ - (cons _%ctor44305%_ '()) + (if _%ctor44368%_ + (cons _%ctor44368%_ '()) '()))))) (gx#raise-syntax-error '#f '"no class type info" - _%stx44063%_ - _%id44298%_)))))) - (let* ((_%__stx4454044541%_ _%stx44063%_) - (_%g4407044111%_ + _%stx44126%_ + _%id44361%_)))))) + (let* ((_%__stx4460344604%_ _%stx44126%_) + (_%g4413344174%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4454044541%_)))) - (let ((_%__kont4454344544%_ - (lambda (_%L44259%_ _%L44261%_) + _%__stx4460344604%_)))) + (let ((_%__kont4460644607%_ + (lambda (_%L44322%_ _%L44324%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4428044282%_) - (_%identifiers44066%_ - _%g4428044282%_ - (gx#stx-e _%L44261%_))) - (foldr (lambda (_%g4428544288%_ _%g4428644291%_) - (cons _%g4428544288%_ _%g4428644291%_)) + (lambda (_%g4434344345%_) + (_%identifiers44129%_ + _%g4434344345%_ + (gx#stx-e _%L44324%_))) + (foldr (lambda (_%g4434844351%_ _%g4434944354%_) + (cons _%g4434844351%_ _%g4434944354%_)) '() - _%L44259%_)))))) - (_%__kont4454744548%_ - (lambda (_%L44158%_) + _%L44322%_)))))) + (_%__kont4461044611%_ + (lambda (_%L44221%_) (cons 'begin: (concatenate (gx#stx-map - (lambda (_%g4417444176%_) - (_%identifiers44066%_ _%g4417444176%_ '#f)) - (foldr (lambda (_%g4417944182%_ _%g4418044185%_) - (cons _%g4417944182%_ _%g4418044185%_)) + (lambda (_%g4423744239%_) + (_%identifiers44129%_ _%g4423744239%_ '#f)) + (foldr (lambda (_%g4424244245%_ _%g4424344248%_) + (cons _%g4424244245%_ _%g4424344248%_)) '() - _%L44158%_))))))) - (let* ((_%__match4459744598%_ - (lambda (_%e4409444118%_ - _%hd4409544122%_ - _%tl4409644125%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) - (letrec ((_%loop4410044134%_ - (lambda (_%hd4409844138%_ _%id4410444141%_) - (if (gx#stx-pair? _%hd4409844138%_) - (let ((_%e4410144144%_ - (gx#syntax-e _%hd4409844138%_))) - (let ((_%lp-tl4410344151%_ + _%L44221%_))))))) + (let* ((_%__match4466044661%_ + (lambda (_%e4415744181%_ + _%hd4415844185%_ + _%tl4415944188%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) + (letrec ((_%loop4416344197%_ + (lambda (_%hd4416144201%_ _%id4416744204%_) + (if (gx#stx-pair? _%hd4416144201%_) + (let ((_%e4416444207%_ + (gx#syntax-e _%hd4416144201%_))) + (let ((_%lp-tl4416644214%_ (let () (declare (not safe)) - (##cdr _%e4410144144%_))) - (_%lp-hd4410244148%_ + (##cdr _%e4416444207%_))) + (_%lp-hd4416544211%_ (let () (declare (not safe)) - (##car _%e4410144144%_)))) - (_%loop4410044134%_ - _%lp-tl4410344151%_ - (cons _%lp-hd4410244148%_ - _%id4410444141%_)))) - (let ((_%id4410544154%_ - (reverse _%id4410444141%_))) - (_%__kont4454744548%_ - _%id4410544154%_)))))) - (_%loop4410044134%_ _%target4409744128%_ '())))) - (_%__match4458344584%_ - (lambda (_%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%e4407744205%_ - _%hd4407844209%_ - _%tl4407944212%_ - _%e4408044215%_ - _%e4408144219%_ - _%hd4408244223%_ - _%tl4408344226%_ - _%__splice4454544546%_ - _%target4408444229%_ - _%tl4408644232%_) - (letrec ((_%loop4408744235%_ - (lambda (_%hd4408544239%_ _%id4409144242%_) - (if (gx#stx-pair? _%hd4408544239%_) - (let ((_%e4408844245%_ - (gx#syntax-e _%hd4408544239%_))) - (let ((_%lp-tl4409044252%_ + (##car _%e4416444207%_)))) + (_%loop4416344197%_ + _%lp-tl4416644214%_ + (cons _%lp-hd4416544211%_ + _%id4416744204%_)))) + (let ((_%id4416844217%_ + (reverse _%id4416744204%_))) + (_%__kont4461044611%_ + _%id4416844217%_)))))) + (_%loop4416344197%_ _%target4416044191%_ '())))) + (_%__match4464644647%_ + (lambda (_%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%e4414044268%_ + _%hd4414144272%_ + _%tl4414244275%_ + _%e4414344278%_ + _%e4414444282%_ + _%hd4414544286%_ + _%tl4414644289%_ + _%__splice4460844609%_ + _%target4414744292%_ + _%tl4414944295%_) + (letrec ((_%loop4415044298%_ + (lambda (_%hd4414844302%_ _%id4415444305%_) + (if (gx#stx-pair? _%hd4414844302%_) + (let ((_%e4415144308%_ + (gx#syntax-e _%hd4414844302%_))) + (let ((_%lp-tl4415344315%_ (let () (declare (not safe)) - (##cdr _%e4408844245%_))) - (_%lp-hd4408944249%_ + (##cdr _%e4415144308%_))) + (_%lp-hd4415244312%_ (let () (declare (not safe)) - (##car _%e4408844245%_)))) - (_%loop4408744235%_ - _%lp-tl4409044252%_ - (cons _%lp-hd4408944249%_ - _%id4409144242%_)))) - (let ((_%id4409244255%_ - (reverse _%id4409144242%_))) - (_%__kont4454344544%_ - _%id4409244255%_ - _%hd4408244223%_)))))) - (_%loop4408744235%_ _%target4408444229%_ '()))))) - (if (gx#stx-pair? _%__stx4454044541%_) - (let ((_%e4407444195%_ (gx#syntax-e _%__stx4454044541%_))) - (let ((_%tl4407644202%_ + (##car _%e4415144308%_)))) + (_%loop4415044298%_ + _%lp-tl4415344315%_ + (cons _%lp-hd4415244312%_ + _%id4415444305%_)))) + (let ((_%id4415544318%_ + (reverse _%id4415444305%_))) + (_%__kont4460644607%_ + _%id4415544318%_ + _%hd4414544286%_)))))) + (_%loop4415044298%_ _%target4414744292%_ '()))))) + (if (gx#stx-pair? _%__stx4460344604%_) + (let ((_%e4413744258%_ (gx#syntax-e _%__stx4460344604%_))) + (let ((_%tl4413944265%_ (let () (declare (not safe)) - (##cdr _%e4407444195%_))) - (_%hd4407544199%_ + (##cdr _%e4413744258%_))) + (_%hd4413844262%_ (let () (declare (not safe)) - (##car _%e4407444195%_)))) - (if (gx#stx-pair? _%tl4407644202%_) - (let ((_%e4407744205%_ - (gx#syntax-e _%tl4407644202%_))) - (let ((_%tl4407944212%_ + (##car _%e4413744258%_)))) + (if (gx#stx-pair? _%tl4413944265%_) + (let ((_%e4414044268%_ + (gx#syntax-e _%tl4413944265%_))) + (let ((_%tl4414244275%_ (let () (declare (not safe)) - (##cdr _%e4407744205%_))) - (_%hd4407844209%_ + (##cdr _%e4414044268%_))) + (_%hd4414144272%_ (let () (declare (not safe)) - (##car _%e4407744205%_)))) - (if (gx#stx-datum? _%hd4407844209%_) - (let ((_%e4408044215%_ - (gx#stx-e _%hd4407844209%_))) - (if (equal? _%e4408044215%_ 'unchecked:) - (if (gx#stx-pair? _%tl4407944212%_) - (let ((_%e4408144219%_ + (##car _%e4414044268%_)))) + (if (gx#stx-datum? _%hd4414144272%_) + (let ((_%e4414344278%_ + (gx#stx-e _%hd4414144272%_))) + (if (equal? _%e4414344278%_ 'unchecked:) + (if (gx#stx-pair? _%tl4414244275%_) + (let ((_%e4414444282%_ (gx#syntax-e - _%tl4407944212%_))) - (let ((_%tl4408344226%_ + _%tl4414244275%_))) + (let ((_%tl4414644289%_ (let () (declare (not safe)) - (##cdr _%e4408144219%_))) - (_%hd4408244223%_ + (##cdr _%e4414444282%_))) + (_%hd4414544286%_ (let () (declare (not safe)) - (##car _%e4408144219%_)))) + (##car _%e4414444282%_)))) (if (gx#stx-pair/null? - _%tl4408344226%_) - (let ((_%__splice4454544546%_ + _%tl4414644289%_) + (let ((_%__splice4460844609%_ (gx#syntax-split-splice - _%tl4408344226%_ + _%tl4414644289%_ '0))) - (let ((_%tl4408644232%_ + (let ((_%tl4414944295%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4454544546%_ '1))) - (_%target4408444229%_ + (##vector-ref _%__splice4460844609%_ '1))) + (_%target4414744292%_ (let () (declare (not safe)) - (##vector-ref _%__splice4454544546%_ '0)))) - (if (gx#stx-null? _%tl4408644232%_) - (_%__match4458344584%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%e4407744205%_ - _%hd4407844209%_ - _%tl4407944212%_ - _%e4408044215%_ - _%e4408144219%_ - _%hd4408244223%_ - _%tl4408344226%_ - _%__splice4454544546%_ - _%target4408444229%_ - _%tl4408644232%_) - (if (gx#stx-pair/null? _%tl4407644202%_) - (let ((_%__splice4454944550%_ - (gx#syntax-split-splice _%tl4407644202%_ '0))) - (let ((_%tl4409944131%_ + (##vector-ref _%__splice4460844609%_ '0)))) + (if (gx#stx-null? _%tl4414944295%_) + (_%__match4464644647%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%e4414044268%_ + _%hd4414144272%_ + _%tl4414244275%_ + _%e4414344278%_ + _%e4414444282%_ + _%hd4414544286%_ + _%tl4414644289%_ + _%__splice4460844609%_ + _%target4414744292%_ + _%tl4414944295%_) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ + (gx#syntax-split-splice _%tl4413944265%_ '0))) + (let ((_%tl4416244194%_ (let () (declare (not safe)) - (##vector-ref _%__splice4454944550%_ '1))) - (_%target4409744128%_ + (##vector-ref _%__splice4461244613%_ '1))) + (_%target4416044191%_ (let () (declare (not safe)) - (##vector-ref _%__splice4454944550%_ '0)))) - (if (gx#stx-null? _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) + (##vector-ref _%__splice4461244613%_ '0)))) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4407044111%_))))) - (let () (declare (not safe)) (_%g4407044111%_)))))) + (_%g4413344174%_))))) + (let () (declare (not safe)) (_%g4413344174%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4407644202%_) - (let ((_%__splice4454944550%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl4407644202%_ + _%tl4413944265%_ '0))) - (let ((_%tl4409944131%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) - (##vector-ref _%__splice4454944550%_ '1))) - (_%target4409744128%_ + (##vector-ref _%__splice4461244613%_ '1))) + (_%target4416044191%_ (let () (declare (not safe)) - (##vector-ref _%__splice4454944550%_ '0)))) - (if (gx#stx-null? _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) - (let () (declare (not safe)) (_%g4407044111%_))))) - (let () (declare (not safe)) (_%g4407044111%_)))))) + (##vector-ref _%__splice4461244613%_ '0)))) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) + (let () (declare (not safe)) (_%g4413344174%_))))) + (let () (declare (not safe)) (_%g4413344174%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl4407644202%_) - (let ((_%__splice4454944550%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4407644202%_ + _%tl4413944265%_ '0))) - (let ((_%tl4409944131%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '1))) - (_%target4409744128%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '0)))) (if (gx#stx-null? - _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) + _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4407044111%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4407044111%_)))) + (_%g4413344174%_)))) (if (gx#stx-pair/null? - _%tl4407644202%_) - (let ((_%__splice4454944550%_ + _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4407644202%_ + _%tl4413944265%_ '0))) - (let ((_%tl4409944131%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '1))) - (_%target4409744128%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '0)))) (if (gx#stx-null? - _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) + _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4407044111%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4407044111%_))))) - (if (gx#stx-pair/null? _%tl4407644202%_) - (let ((_%__splice4454944550%_ + (_%g4413344174%_))))) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4407644202%_ + _%tl4413944265%_ '0))) - (let ((_%tl4409944131%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '1))) - (_%target4409744128%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '0)))) - (if (gx#stx-null? _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4407044111%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4407044111%_)))))) - (if (gx#stx-pair/null? _%tl4407644202%_) - (let ((_%__splice4454944550%_ + (_%g4413344174%_)))))) + (if (gx#stx-pair/null? _%tl4413944265%_) + (let ((_%__splice4461244613%_ (gx#syntax-split-splice - _%tl4407644202%_ + _%tl4413944265%_ '0))) - (let ((_%tl4409944131%_ + (let ((_%tl4416244194%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '1))) - (_%target4409744128%_ + (_%target4416044191%_ (let () (declare (not safe)) (##vector-ref - _%__splice4454944550%_ + _%__splice4461244613%_ '0)))) - (if (gx#stx-null? _%tl4409944131%_) - (_%__match4459744598%_ - _%e4407444195%_ - _%hd4407544199%_ - _%tl4407644202%_ - _%__splice4454944550%_ - _%target4409744128%_ - _%tl4409944131%_) + (if (gx#stx-null? _%tl4416244194%_) + (_%__match4466044661%_ + _%e4413744258%_ + _%hd4413844262%_ + _%tl4413944265%_ + _%__splice4461244613%_ + _%target4416044191%_ + _%tl4416244194%_) (let () (declare (not safe)) - (_%g4407044111%_))))) + (_%g4413344174%_))))) (let () (declare (not safe)) - (_%g4407044111%_)))))) - (let () (declare (not safe)) (_%g4407044111%_))))))))))) + (_%g4413344174%_)))))) + (let () (declare (not safe)) (_%g4413344174%_))))))))))) diff --git a/src/bootstrap/gerbil/core/mop~1.scm b/src/bootstrap/gerbil/core/mop~1.scm index 8ec9ca477..01fd5c1a2 100644 --- a/src/bootstrap/gerbil/core/mop~1.scm +++ b/src/bootstrap/gerbil/core/mop~1.scm @@ -1,103 +1,103 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/mop~MOP-1[1]#module-type-id| - (lambda (_%type-t22448%_) - (let ((_%$e22451%_ (gx#module-context-ns (gx#current-expander-context)))) - (if _%$e22451%_ - ((lambda (_%ns22455%_) + (lambda (_%type-t22511%_) + (let ((_%$e22514%_ (gx#module-context-ns (gx#current-expander-context)))) + (if _%$e22514%_ + ((lambda (_%ns22518%_) (gx#stx-identifier - _%type-t22448%_ - _%ns22455%_ + _%type-t22511%_ + _%ns22518%_ '"#" - _%type-t22448%_ + _%type-t22511%_ '"::t")) - _%$e22451%_) - (let ((_%mid22460%_ + _%$e22514%_) + (let ((_%mid22523%_ (gx#expander-context-id (gx#current-expander-context)))) (gx#stx-identifier - _%type-t22448%_ - _%mid22460%_ + _%type-t22511%_ + _%mid22523%_ '"#" - _%type-t22448%_ + _%type-t22511%_ '"::t")))))) (define |gerbil/core/mop~MOP-1[1]#make-class-type-id| - (lambda (_%type-t22445%_) + (lambda (_%type-t22508%_) (if (gx#module-context? (gx#current-expander-context)) - (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22445%_) - (make-symbol '"__" (gensym (gx#stx-e _%type-t22445%_)) '"::t")))) + (|gerbil/core/mop~MOP-1[1]#module-type-id| _%type-t22508%_) + (make-symbol '"__" (gensym (gx#stx-e _%type-t22508%_)) '"::t")))) (define |gerbil/core/mop~MOP-1[1]#generate-typedef| - (lambda (_%stx21023%_ _%struct?21025%_) - (letrec ((_%wrap21027%_ - (lambda (_%e-stx22442%_) + (lambda (_%stx21086%_ _%struct?21088%_) + (letrec ((_%wrap21090%_ + (lambda (_%e-stx22505%_) (gx#stx-wrap-source - _%e-stx22442%_ - (gx#stx-source _%stx21023%_)))) - (_%slot-name21029%_ - (lambda (_%slot-spec22359%_) - (let* ((_%g2236222381%_ - (lambda (_%g2236322377%_) + _%e-stx22505%_ + (gx#stx-source _%stx21086%_)))) + (_%slot-name21092%_ + (lambda (_%slot-spec22422%_) + (let* ((_%g2242522444%_ + (lambda (_%g2242622440%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2236322377%_))) - (_%g2236122438%_ - (lambda (_%g2236322385%_) - (if (gx#stx-pair? _%g2236322385%_) - (let ((_%e2236722388%_ - (gx#syntax-e _%g2236322385%_))) - (let ((_%hd2236822392%_ + _%g2242622440%_))) + (_%g2242422501%_ + (lambda (_%g2242622448%_) + (if (gx#stx-pair? _%g2242622448%_) + (let ((_%e2243022451%_ + (gx#syntax-e _%g2242622448%_))) + (let ((_%hd2243122455%_ (let () (declare (not safe)) - (##car _%e2236722388%_))) - (_%tl2236922395%_ + (##car _%e2243022451%_))) + (_%tl2243222458%_ (let () (declare (not safe)) - (##cdr _%e2236722388%_)))) - (if (gx#stx-pair? _%tl2236922395%_) - (let ((_%e2237022398%_ - (gx#syntax-e _%tl2236922395%_))) - (let ((_%hd2237122402%_ + (##cdr _%e2243022451%_)))) + (if (gx#stx-pair? _%tl2243222458%_) + (let ((_%e2243322461%_ + (gx#syntax-e _%tl2243222458%_))) + (let ((_%hd2243422465%_ (let () (declare (not safe)) - (##car _%e2237022398%_))) - (_%tl2237222405%_ + (##car _%e2243322461%_))) + (_%tl2243522468%_ (let () (declare (not safe)) - (##cdr _%e2237022398%_)))) - (if (gx#stx-pair? _%tl2237222405%_) - (let ((_%e2237322408%_ + (##cdr _%e2243322461%_)))) + (if (gx#stx-pair? _%tl2243522468%_) + (let ((_%e2243622471%_ (gx#syntax-e - _%tl2237222405%_))) - (let ((_%hd2237422412%_ + _%tl2243522468%_))) + (let ((_%hd2243722475%_ (let () (declare (not safe)) - (##car _%e2237322408%_))) - (_%tl2237522415%_ + (##car _%e2243622471%_))) + (_%tl2243822478%_ (let () (declare (not safe)) - (##cdr _%e2237322408%_)))) + (##cdr _%e2243622471%_)))) (if (gx#stx-null? - _%tl2237522415%_) - ((lambda (_%L22418%_ + _%tl2243822478%_) + ((lambda (_%L22481%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22420%_ - _%L22421%_) - _%L22421%_) - _%hd2237422412%_ - _%hd2237122402%_ - _%hd2236822392%_) - (_%g2236222381%_ _%g2236322385%_)))) + _%L22483%_ + _%L22484%_) + _%L22484%_) + _%hd2243722475%_ + _%hd2243422465%_ + _%hd2243122455%_) + (_%g2242522444%_ _%g2242622448%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2236222381%_ - _%g2236322385%_)))) - (_%g2236222381%_ _%g2236322385%_)))) - (_%g2236222381%_ _%g2236322385%_))))) - (_%g2236122438%_ _%slot-spec22359%_)))) - (_%class-opt?21030%_ - (lambda (_%key22356%_) - (let ((__tmp27143 (gx#stx-e _%key22356%_))) + (_%g2242522444%_ + _%g2242622448%_)))) + (_%g2242522444%_ _%g2242622448%_)))) + (_%g2242522444%_ _%g2242622448%_))))) + (_%g2242422501%_ _%slot-spec22422%_)))) + (_%class-opt?21093%_ + (lambda (_%key22419%_) + (let ((__tmp27206 (gx#stx-e _%key22419%_))) (declare (not safe)) - (##memq __tmp27143 + (##memq __tmp27206 '(struct: slots: id: @@ -107,651 +107,651 @@ final: mixin: metaclass:)))))) - (let* ((_%g2103221059%_ - (lambda (_%g2103321055%_) + (let* ((_%g2109521122%_ + (lambda (_%g2109621118%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2103321055%_))) - (_%g2103122352%_ - (lambda (_%g2103321063%_) - (if (gx#stx-pair? _%g2103321063%_) - (let ((_%e2103921066%_ (gx#syntax-e _%g2103321063%_))) - (let ((_%hd2104021070%_ + _%g2109621118%_))) + (_%g2109422415%_ + (lambda (_%g2109621126%_) + (if (gx#stx-pair? _%g2109621126%_) + (let ((_%e2110221129%_ (gx#syntax-e _%g2109621126%_))) + (let ((_%hd2110321133%_ (let () (declare (not safe)) - (##car _%e2103921066%_))) - (_%tl2104121073%_ + (##car _%e2110221129%_))) + (_%tl2110421136%_ (let () (declare (not safe)) - (##cdr _%e2103921066%_)))) - (if (gx#stx-pair? _%tl2104121073%_) - (let ((_%e2104221076%_ - (gx#syntax-e _%tl2104121073%_))) - (let ((_%hd2104321080%_ + (##cdr _%e2110221129%_)))) + (if (gx#stx-pair? _%tl2110421136%_) + (let ((_%e2110521139%_ + (gx#syntax-e _%tl2110421136%_))) + (let ((_%hd2110621143%_ (let () (declare (not safe)) - (##car _%e2104221076%_))) - (_%tl2104421083%_ + (##car _%e2110521139%_))) + (_%tl2110721146%_ (let () (declare (not safe)) - (##cdr _%e2104221076%_)))) - (if (gx#stx-pair? _%tl2104421083%_) - (let ((_%e2104521086%_ - (gx#syntax-e _%tl2104421083%_))) - (let ((_%hd2104621090%_ + (##cdr _%e2110521139%_)))) + (if (gx#stx-pair? _%tl2110721146%_) + (let ((_%e2110821149%_ + (gx#syntax-e _%tl2110721146%_))) + (let ((_%hd2110921153%_ (let () (declare (not safe)) - (##car _%e2104521086%_))) - (_%tl2104721093%_ + (##car _%e2110821149%_))) + (_%tl2111021156%_ (let () (declare (not safe)) - (##cdr _%e2104521086%_)))) - (if (gx#stx-pair? _%tl2104721093%_) - (let ((_%e2104821096%_ + (##cdr _%e2110821149%_)))) + (if (gx#stx-pair? _%tl2111021156%_) + (let ((_%e2111121159%_ (gx#syntax-e - _%tl2104721093%_))) - (let ((_%hd2104921100%_ + _%tl2111021156%_))) + (let ((_%hd2111221163%_ (let () (declare (not safe)) - (##car _%e2104821096%_))) - (_%tl2105021103%_ + (##car _%e2111121159%_))) + (_%tl2111321166%_ (let () (declare (not safe)) - (##cdr _%e2104821096%_)))) + (##cdr _%e2111121159%_)))) (if (gx#stx-pair? - _%tl2105021103%_) - (let ((_%e2105121106%_ + _%tl2111321166%_) + (let ((_%e2111421169%_ (gx#syntax-e - _%tl2105021103%_))) - (let ((_%hd2105221110%_ + _%tl2111321166%_))) + (let ((_%hd2111521173%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2105121106%_))) - (_%tl2105321113%_ - (let () (declare (not safe)) (##cdr _%e2105121106%_)))) - ((lambda (_%L21116%_ - _%L21118%_ - _%L21119%_ - _%L21120%_ - _%L21121%_) - (if (and (gx#identifier? _%L21121%_) - (gx#identifier-list? _%L21120%_) - (or (gx#identifier? _%L21119%_) - (gx#stx-false? _%L21119%_)) - (gx#identifier? _%L21118%_) - (gx#stx-plist? _%L21116%_ _%class-opt?21030%_)) - (let* ((_%struct?21161%_ - (let ((_%$e21151%_ _%struct?21025%_)) - (if _%$e21151%_ - _%$e21151%_ - (let ((_%$e21155%_ + (##car _%e2111421169%_))) + (_%tl2111621176%_ + (let () (declare (not safe)) (##cdr _%e2111421169%_)))) + ((lambda (_%L21179%_ + _%L21181%_ + _%L21182%_ + _%L21183%_ + _%L21184%_) + (if (and (gx#identifier? _%L21184%_) + (gx#identifier-list? _%L21183%_) + (or (gx#identifier? _%L21182%_) + (gx#stx-false? _%L21182%_)) + (gx#identifier? _%L21181%_) + (gx#stx-plist? _%L21179%_ _%class-opt?21093%_)) + (let* ((_%struct?21224%_ + (let ((_%$e21214%_ _%struct?21088%_)) + (if _%$e21214%_ + _%$e21214%_ + (let ((_%$e21218%_ (gx#stx-getq 'struct: - _%L21116%_))) - (if _%$e21155%_ - (gx#stx-e _%$e21155%_) + _%L21179%_))) + (if _%$e21218%_ + (gx#stx-e _%$e21218%_) '#f))))) - (_%slots21168%_ - (let ((_%$e21164%_ - (gx#stx-getq 'slots: _%L21116%_))) - (if _%$e21164%_ _%$e21164%_ '()))) - (_%mixin-slots21175%_ - (let ((_%$e21171%_ - (gx#stx-getq 'mixin: _%L21116%_))) - (if _%$e21171%_ _%$e21171%_ '()))) - (_%accessible-slots21178%_ - (append (gx#syntax->list _%slots21168%_) + (_%slots21231%_ + (let ((_%$e21227%_ + (gx#stx-getq 'slots: _%L21179%_))) + (if _%$e21227%_ _%$e21227%_ '()))) + (_%mixin-slots21238%_ + (let ((_%$e21234%_ + (gx#stx-getq 'mixin: _%L21179%_))) + (if _%$e21234%_ _%$e21234%_ '()))) + (_%accessible-slots21241%_ + (append (gx#syntax->list _%slots21231%_) (gx#syntax->list - _%mixin-slots21175%_))) - (_%metaclass21181%_ - (gx#stx-getq 'metaclass: _%L21116%_)) - (_%g2118421201%_ - (lambda (_%g2118521197%_) + _%mixin-slots21238%_))) + (_%metaclass21244%_ + (gx#stx-getq 'metaclass: _%L21179%_)) + (_%g2124721264%_ + (lambda (_%g2124821260%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2118521197%_))) - (_%g2118322348%_ - (lambda (_%g2118521205%_) - (if (gx#stx-pair/null? _%g2118521205%_) - (let ((_g27144_ + _%g2124821260%_))) + (_%g2124622411%_ + (lambda (_%g2124821268%_) + (if (gx#stx-pair/null? _%g2124821268%_) + (let ((_g27207_ (gx#syntax-split-splice - _%g2118521205%_ + _%g2124821268%_ '0))) (begin - (let ((_g27145_ + (let ((_g27208_ (let () (declare (not safe)) - (if (##values? _g27144_) - (##vector-length - _g27144_) + (if (##values? _g27207_) + (##values-length + _g27207_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27145_ 2))) + (##fx= _g27208_ 2))) (error "Context expects 2 values" - _g27145_))) - (let ((_%target2118721208%_ + _g27208_))) + (let ((_%target2125021271%_ (let () (declare (not safe)) - (##vector-ref _g27144_ 0))) - (_%tl2118921211%_ + (##values-ref _g27207_ 0))) + (_%tl2125221274%_ (let () (declare (not safe)) - (##vector-ref - _g27144_ + (##values-ref + _g27207_ 1)))) (if (gx#stx-null? - _%tl2118921211%_) - (letrec ((_%loop2119021214%_ - (lambda (_%hd2118821218%_ + _%tl2125221274%_) + (letrec ((_%loop2125321277%_ + (lambda (_%hd2125121281%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%slot2119421221%_) - (if (gx#stx-pair? _%hd2118821218%_) - (let ((_%e2119121224%_ - (gx#syntax-e _%hd2118821218%_))) - (let ((_%lp-hd2119221228%_ + _%slot2125721284%_) + (if (gx#stx-pair? _%hd2125121281%_) + (let ((_%e2125421287%_ + (gx#syntax-e _%hd2125121281%_))) + (let ((_%lp-hd2125521291%_ (let () (declare (not safe)) - (##car _%e2119121224%_))) - (_%lp-tl2119321231%_ + (##car _%e2125421287%_))) + (_%lp-tl2125621294%_ (let () (declare (not safe)) - (##cdr _%e2119121224%_)))) - (_%loop2119021214%_ - _%lp-tl2119321231%_ - (cons _%lp-hd2119221228%_ _%slot2119421221%_)))) - (let ((_%slot2119521234%_ - (reverse _%slot2119421221%_))) - ((lambda (_%L21238%_) - (let* ((_%g2125921267%_ - (lambda (_%g2126021263%_) + (##cdr _%e2125421287%_)))) + (_%loop2125321277%_ + _%lp-tl2125621294%_ + (cons _%lp-hd2125521291%_ _%slot2125721284%_)))) + (let ((_%slot2125821297%_ + (reverse _%slot2125721284%_))) + ((lambda (_%L21301%_) + (let* ((_%g2132221330%_ + (lambda (_%g2132321326%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2126021263%_))) - (_%g2125822340%_ - (lambda (_%g2126021271%_) - ((lambda (_%L21274%_) - (let* ((_%g2128721295%_ - (lambda (_%g2128821291%_) + _%g2132321326%_))) + (_%g2132122403%_ + (lambda (_%g2132321334%_) + ((lambda (_%L21337%_) + (let* ((_%g2135021358%_ + (lambda (_%g2135121354%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2128821291%_))) - (_%g2128622332%_ - (lambda (_%g2128821299%_) - ((lambda (_%L21302%_) - (let* ((_%g2131521323%_ - (lambda (_%g2131621319%_) + _%g2135121354%_))) + (_%g2134922395%_ + (lambda (_%g2135121362%_) + ((lambda (_%L21365%_) + (let* ((_%g2137821386%_ + (lambda (_%g2137921382%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2131621319%_))) - (_%g2131422328%_ - (lambda (_%g2131621327%_) - ((lambda (_%L21330%_) - (let* ((_%g2134321351%_ - (lambda (_%g2134421347%_) + _%g2137921382%_))) + (_%g2137722391%_ + (lambda (_%g2137921390%_) + ((lambda (_%L21393%_) + (let* ((_%g2140621414%_ + (lambda (_%g2140721410%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2134421347%_))) - (_%g2134222324%_ - (lambda (_%g2134421355%_) - ((lambda (_%L21358%_) - (let* ((_%g2137121379%_ - (lambda (_%g2137221375%_) + _%g2140721410%_))) + (_%g2140522387%_ + (lambda (_%g2140721418%_) + ((lambda (_%L21421%_) + (let* ((_%g2143421442%_ + (lambda (_%g2143521438%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2137221375%_))) - (_%g2137022320%_ - (lambda (_%g2137221383%_) - ((lambda (_%L21386%_) - (let* ((_%g2139921407%_ - (lambda (_%g2140021403%_) + _%g2143521438%_))) + (_%g2143322383%_ + (lambda (_%g2143521446%_) + ((lambda (_%L21449%_) + (let* ((_%g2146221470%_ + (lambda (_%g2146321466%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2140021403%_))) - (_%g2139822316%_ - (lambda (_%g2140021411%_) - ((lambda (_%L21414%_) - (let* ((_%g2142721435%_ - (lambda (_%g2142821431%_) + _%g2146321466%_))) + (_%g2146122379%_ + (lambda (_%g2146321474%_) + ((lambda (_%L21477%_) + (let* ((_%g2149021498%_ + (lambda (_%g2149121494%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2142821431%_))) - (_%g2142622312%_ - (lambda (_%g2142821439%_) - ((lambda (_%L21442%_) - (let* ((_%g2145521463%_ - (lambda (_%g2145621459%_) + _%g2149121494%_))) + (_%g2148922375%_ + (lambda (_%g2149121502%_) + ((lambda (_%L21505%_) + (let* ((_%g2151821526%_ + (lambda (_%g2151921522%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2145621459%_))) - (_%g2145422308%_ - (lambda (_%g2145621467%_) - ((lambda (_%L21470%_) - (let* ((_%g2148321491%_ - (lambda (_%g2148421487%_) + _%g2151921522%_))) + (_%g2151722371%_ + (lambda (_%g2151921530%_) + ((lambda (_%L21533%_) + (let* ((_%g2154621554%_ + (lambda (_%g2154721550%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g2148421487%_))) - (_%g2148222300%_ - (lambda (_%g2148421495%_) - ((lambda (_%L21498%_) - (let* ((_%g2151121519%_ - (lambda (_%g2151221515%_) + _%g2154721550%_))) + (_%g2154522363%_ + (lambda (_%g2154721558%_) + ((lambda (_%L21561%_) + (let* ((_%g2157421582%_ + (lambda (_%g2157521578%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2151221515%_))) - (_%g2151022296%_ - (lambda (_%g2151221523%_) - ((lambda (_%L21526%_) - (let* ((_%g2153921547%_ - (lambda (_%g2154021543%_) + _%g2157521578%_))) + (_%g2157322359%_ + (lambda (_%g2157521586%_) + ((lambda (_%L21589%_) + (let* ((_%g2160221610%_ + (lambda (_%g2160321606%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2154021543%_))) - (_%g2153822292%_ - (lambda (_%g2154021551%_) - ((lambda (_%L21554%_) - (let* ((_%g2156721575%_ - (lambda (_%g2156821571%_) + _%g2160321606%_))) + (_%g2160122355%_ + (lambda (_%g2160321614%_) + ((lambda (_%L21617%_) + (let* ((_%g2163021638%_ + (lambda (_%g2163121634%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2156821571%_))) - (_%g2156622257%_ - (lambda (_%g2156821579%_) - ((lambda (_%L21582%_) + _%g2163121634%_))) + (_%g2162922320%_ + (lambda (_%g2163121642%_) + ((lambda (_%L21645%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2159521603%_ - (lambda (_%g2159621599%_) + (let* ((_%g2165821666%_ + (lambda (_%g2165921662%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2159621599%_))) - (_%g2159422253%_ - (lambda (_%g2159621607%_) - ((lambda (_%L21610%_) - (let* ((_%g2162321631%_ - (lambda (_%g2162421627%_) + _%g2165921662%_))) + (_%g2165722316%_ + (lambda (_%g2165921670%_) + ((lambda (_%L21673%_) + (let* ((_%g2168621694%_ + (lambda (_%g2168721690%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2162421627%_))) - (_%g2162222241%_ - (lambda (_%g2162421635%_) - ((lambda (_%L21638%_) - (let* ((_%g2165121659%_ - (lambda (_%g2165221655%_) + _%g2168721690%_))) + (_%g2168522304%_ + (lambda (_%g2168721698%_) + ((lambda (_%L21701%_) + (let* ((_%g2171421722%_ + (lambda (_%g2171521718%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2165221655%_))) - (_%g2165022229%_ - (lambda (_%g2165221663%_) - ((lambda (_%L21666%_) + _%g2171521718%_))) + (_%g2171322292%_ + (lambda (_%g2171521726%_) + ((lambda (_%L21729%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g2167921687%_ - (lambda (_%g2168021683%_) + (let* ((_%g2174221750%_ + (lambda (_%g2174321746%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2168021683%_))) - (_%g2167822225%_ - (lambda (_%g2168021691%_) - ((lambda (_%L21694%_) - (let* ((_%g2170721715%_ - (lambda (_%g2170821711%_) + _%g2174321746%_))) + (_%g2174122288%_ + (lambda (_%g2174321754%_) + ((lambda (_%L21757%_) + (let* ((_%g2177021778%_ + (lambda (_%g2177121774%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2170821711%_))) - (_%g2170622221%_ - (lambda (_%g2170821719%_) - ((lambda (_%L21722%_) - (let* ((_%g2173521761%_ - (lambda (_%g2173621757%_) + _%g2177121774%_))) + (_%g2176922284%_ + (lambda (_%g2177121782%_) + ((lambda (_%L21785%_) + (let* ((_%g2179821824%_ + (lambda (_%g2179921820%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2173621757%_))) - (_%g2173422133%_ - (lambda (_%g2173621765%_) + _%g2179921820%_))) + (_%g2179722196%_ + (lambda (_%g2179921828%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2173621765%_) - (let ((_g27146_ - (gx#syntax-split-splice _%g2173621765%_ '0))) + _%g2179921828%_) + (let ((_g27209_ + (gx#syntax-split-splice _%g2179921828%_ '0))) (begin - (let ((_g27147_ + (let ((_g27210_ (let () (declare (not safe)) - (if (##values? _g27146_) - (##vector-length _g27146_) + (if (##values? _g27209_) + (##values-length _g27209_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27147_ 2))) + (##fx= _g27210_ 2))) (error "Context expects 2 values" - _g27147_))) - (let ((_%target2173921768%_ + _g27210_))) + (let ((_%target2180221831%_ (let () (declare (not safe)) - (##vector-ref _g27146_ 0))) - (_%tl2174121771%_ + (##values-ref _g27209_ 0))) + (_%tl2180421834%_ (let () (declare (not safe)) - (##vector-ref _g27146_ 1)))) - (if (gx#stx-null? _%tl2174121771%_) - (letrec ((_%loop2174221774%_ - (lambda (_%hd2174021778%_ - _%def-setf2174621781%_ - _%def-getf2174721783%_) + (##values-ref _g27209_ 1)))) + (if (gx#stx-null? _%tl2180421834%_) + (letrec ((_%loop2180521837%_ + (lambda (_%hd2180321841%_ + _%def-setf2180921844%_ + _%def-getf2181021846%_) (if (gx#stx-pair? - _%hd2174021778%_) - (let ((_%e2174321786%_ + _%hd2180321841%_) + (let ((_%e2180621849%_ (gx#syntax-e - _%hd2174021778%_))) - (let ((_%lp-hd2174421790%_ + _%hd2180321841%_))) + (let ((_%lp-hd2180721853%_ (let () (declare (not safe)) - (##car _%e2174321786%_))) - (_%lp-tl2174521793%_ + (##car _%e2180621849%_))) + (_%lp-tl2180821856%_ (let () (declare (not safe)) - (##cdr _%e2174321786%_)))) + (##cdr _%e2180621849%_)))) (if (gx#stx-pair? - _%lp-hd2174421790%_) - (let ((_%e2175021796%_ + _%lp-hd2180721853%_) + (let ((_%e2181321859%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%lp-hd2174421790%_))) - (let ((_%hd2175121800%_ + (gx#syntax-e _%lp-hd2180721853%_))) + (let ((_%hd2181421863%_ (let () (declare (not safe)) - (##car _%e2175021796%_))) - (_%tl2175221803%_ + (##car _%e2181321859%_))) + (_%tl2181521866%_ (let () (declare (not safe)) - (##cdr _%e2175021796%_)))) - (if (gx#stx-pair? _%tl2175221803%_) - (let ((_%e2175321806%_ - (gx#syntax-e _%tl2175221803%_))) - (let ((_%hd2175421810%_ + (##cdr _%e2181321859%_)))) + (if (gx#stx-pair? _%tl2181521866%_) + (let ((_%e2181621869%_ + (gx#syntax-e _%tl2181521866%_))) + (let ((_%hd2181721873%_ (let () (declare (not safe)) - (##car _%e2175321806%_))) - (_%tl2175521813%_ + (##car _%e2181621869%_))) + (_%tl2181821876%_ (let () (declare (not safe)) - (##cdr _%e2175321806%_)))) - (if (gx#stx-null? _%tl2175521813%_) - (_%loop2174221774%_ - _%lp-tl2174521793%_ - (cons _%hd2175421810%_ - _%def-setf2174621781%_) - (cons _%hd2175121800%_ - _%def-getf2174721783%_)) - (_%g2173521761%_ _%g2173621765%_)))) - (_%g2173521761%_ _%g2173621765%_)))) - (_%g2173521761%_ _%g2173621765%_)))) + (##cdr _%e2181621869%_)))) + (if (gx#stx-null? _%tl2181821876%_) + (_%loop2180521837%_ + _%lp-tl2180821856%_ + (cons _%hd2181721873%_ + _%def-setf2180921844%_) + (cons _%hd2181421863%_ + _%def-getf2181021846%_)) + (_%g2179821824%_ _%g2179921828%_)))) + (_%g2179821824%_ _%g2179921828%_)))) + (_%g2179821824%_ _%g2179921828%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%def-setf2174821816%_ - (reverse _%def-setf2174621781%_)) - (_%def-getf2174921819%_ - (reverse _%def-getf2174721783%_))) - ((lambda (_%L21822%_ - _%L21824%_) - (let* ((_%g2184121867%_ - (lambda (_%g2184221863%_) + (let ((_%def-setf2181121879%_ + (reverse _%def-setf2180921844%_)) + (_%def-getf2181221882%_ + (reverse _%def-getf2181021846%_))) + ((lambda (_%L21885%_ + _%L21887%_) + (let* ((_%g2190421930%_ + (lambda (_%g2190521926%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2184221863%_))) - (_%g2184021981%_ - (lambda (_%g2184221871%_) - (if (gx#stx-pair/null? _%g2184221871%_) - (let ((_g27148_ + _%g2190521926%_))) + (_%g2190322044%_ + (lambda (_%g2190521934%_) + (if (gx#stx-pair/null? _%g2190521934%_) + (let ((_g27211_ (gx#syntax-split-splice - _%g2184221871%_ + _%g2190521934%_ '0))) (begin - (let ((_g27149_ + (let ((_g27212_ (let () (declare (not safe)) - (if (##values? _g27148_) - (##vector-length _g27148_) + (if (##values? _g27211_) + (##values-length _g27211_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27149_ 2))) + (##fx= _g27212_ 2))) (error "Context expects 2 values" - _g27149_))) - (let ((_%target2184521874%_ + _g27212_))) + (let ((_%target2190821937%_ (let () (declare (not safe)) - (##vector-ref _g27148_ 0))) - (_%tl2184721877%_ + (##values-ref _g27211_ 0))) + (_%tl2191021940%_ (let () (declare (not safe)) - (##vector-ref _g27148_ 1)))) - (if (gx#stx-null? _%tl2184721877%_) - (letrec ((_%loop2184821880%_ - (lambda (_%hd2184621884%_ - _%def-usetf2185221887%_ - _%def-ugetf2185321889%_) + (##values-ref _g27211_ 1)))) + (if (gx#stx-null? _%tl2191021940%_) + (letrec ((_%loop2191121943%_ + (lambda (_%hd2190921947%_ + _%def-usetf2191521950%_ + _%def-ugetf2191621952%_) (if (gx#stx-pair? - _%hd2184621884%_) - (let ((_%e2184921892%_ + _%hd2190921947%_) + (let ((_%e2191221955%_ (gx#syntax-e - _%hd2184621884%_))) - (let ((_%lp-hd2185021896%_ + _%hd2190921947%_))) + (let ((_%lp-hd2191321959%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2184921892%_))) - (_%lp-tl2185121899%_ + (let () (declare (not safe)) (##car _%e2191221955%_))) + (_%lp-tl2191421962%_ (let () (declare (not safe)) - (##cdr _%e2184921892%_)))) - (if (gx#stx-pair? _%lp-hd2185021896%_) - (let ((_%e2185621902%_ - (gx#syntax-e _%lp-hd2185021896%_))) - (let ((_%hd2185721906%_ + (##cdr _%e2191221955%_)))) + (if (gx#stx-pair? _%lp-hd2191321959%_) + (let ((_%e2191921965%_ + (gx#syntax-e _%lp-hd2191321959%_))) + (let ((_%hd2192021969%_ (let () (declare (not safe)) - (##car _%e2185621902%_))) - (_%tl2185821909%_ + (##car _%e2191921965%_))) + (_%tl2192121972%_ (let () (declare (not safe)) - (##cdr _%e2185621902%_)))) - (if (gx#stx-pair? _%tl2185821909%_) - (let ((_%e2185921912%_ - (gx#syntax-e _%tl2185821909%_))) - (let ((_%hd2186021916%_ + (##cdr _%e2191921965%_)))) + (if (gx#stx-pair? _%tl2192121972%_) + (let ((_%e2192221975%_ + (gx#syntax-e _%tl2192121972%_))) + (let ((_%hd2192321979%_ (let () (declare (not safe)) - (##car _%e2185921912%_))) - (_%tl2186121919%_ + (##car _%e2192221975%_))) + (_%tl2192421982%_ (let () (declare (not safe)) - (##cdr _%e2185921912%_)))) - (if (gx#stx-null? _%tl2186121919%_) - (_%loop2184821880%_ - _%lp-tl2185121899%_ - (cons _%hd2186021916%_ - _%def-usetf2185221887%_) - (cons _%hd2185721906%_ - _%def-ugetf2185321889%_)) - (_%g2184121867%_ _%g2184221871%_)))) - (_%g2184121867%_ _%g2184221871%_)))) - (_%g2184121867%_ _%g2184221871%_)))) - (let ((_%def-usetf2185421922%_ - (reverse _%def-usetf2185221887%_)) - (_%def-ugetf2185521925%_ - (reverse _%def-ugetf2185321889%_))) - ((lambda (_%L21928%_ _%L21930%_) - (_%wrap21027%_ + (##cdr _%e2192221975%_)))) + (if (gx#stx-null? _%tl2192421982%_) + (_%loop2191121943%_ + _%lp-tl2191421962%_ + (cons _%hd2192321979%_ + _%def-usetf2191521950%_) + (cons _%hd2192021969%_ + _%def-ugetf2191621952%_)) + (_%g2190421930%_ _%g2190521934%_)))) + (_%g2190421930%_ _%g2190521934%_)))) + (_%g2190421930%_ _%g2190521934%_)))) + (let ((_%def-usetf2191721985%_ + (reverse _%def-usetf2191521950%_)) + (_%def-ugetf2191821988%_ + (reverse _%def-ugetf2191621952%_))) + ((lambda (_%L21991%_ _%L21993%_) + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L21666%_ - (cons _%L21722%_ - (cons _%L21694%_ - (foldr (lambda (_%g2194821957%_ - _%g2194921960%_) - (cons _%g2194821957%_ - _%g2194921960%_)) - (foldr (lambda (_%g2195021963%_ + (cons _%L21729%_ + (cons _%L21785%_ + (cons _%L21757%_ + (foldr (lambda (_%g2201122020%_ + _%g2201222023%_) + (cons _%g2201122020%_ + _%g2201222023%_)) + (foldr (lambda (_%g2201322026%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2195121966%_) - (cons _%g2195021963%_ _%g2195121966%_)) - (foldr (lambda (_%g2195221969%_ _%g2195321972%_) - (cons _%g2195221969%_ _%g2195321972%_)) - (foldr (lambda (_%g2195421975%_ _%g2195521978%_) - (cons _%g2195421975%_ _%g2195521978%_)) + _%g2201422029%_) + (cons _%g2201322026%_ _%g2201422029%_)) + (foldr (lambda (_%g2201522032%_ _%g2201622035%_) + (cons _%g2201522032%_ _%g2201622035%_)) + (foldr (lambda (_%g2201722038%_ _%g2201822041%_) + (cons _%g2201722038%_ _%g2201822041%_)) '() - _%L21928%_) - _%L21930%_) - _%L21822%_) + _%L21991%_) + _%L21993%_) + _%L21885%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21824%_))))))) - _%def-usetf2185421922%_ - _%def-ugetf2185521925%_)))))) + _%L21887%_))))))) + _%def-usetf2191721985%_ + _%def-ugetf2191821988%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2184821880%_ - _%target2184521874%_ + (_%loop2191121943%_ + _%target2190821937%_ '() '())) - (_%g2184121867%_ _%g2184221871%_))))) - (_%g2184121867%_ _%g2184221871%_))))) - (_%g2184021981%_ + (_%g2190421930%_ _%g2190521934%_))))) + (_%g2190421930%_ _%g2190521934%_))))) + (_%g2190322044%_ (gx#stx-map - (lambda (_%ref21985%_) - (let* ((_%g2198822007%_ - (lambda (_%g2198922003%_) + (lambda (_%ref22048%_) + (let* ((_%g2205122070%_ + (lambda (_%g2205222066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2198922003%_))) - (_%g2198722129%_ - (lambda (_%g2198922011%_) - (if (gx#stx-pair? _%g2198922011%_) - (let ((_%e2199322014%_ - (gx#syntax-e _%g2198922011%_))) - (let ((_%hd2199422018%_ + _%g2205222066%_))) + (_%g2205022192%_ + (lambda (_%g2205222074%_) + (if (gx#stx-pair? _%g2205222074%_) + (let ((_%e2205622077%_ + (gx#syntax-e _%g2205222074%_))) + (let ((_%hd2205722081%_ (let () (declare (not safe)) - (##car _%e2199322014%_))) - (_%tl2199522021%_ + (##car _%e2205622077%_))) + (_%tl2205822084%_ (let () (declare (not safe)) - (##cdr _%e2199322014%_)))) - (if (gx#stx-pair? _%tl2199522021%_) - (let ((_%e2199622024%_ + (##cdr _%e2205622077%_)))) + (if (gx#stx-pair? _%tl2205822084%_) + (let ((_%e2205922087%_ (gx#syntax-e - _%tl2199522021%_))) - (let ((_%hd2199722028%_ + _%tl2205822084%_))) + (let ((_%hd2206022091%_ (let () (declare (not safe)) - (##car _%e2199622024%_))) - (_%tl2199822031%_ + (##car _%e2205922087%_))) + (_%tl2206122094%_ (let () (declare (not safe)) - (##cdr _%e2199622024%_)))) + (##cdr _%e2205922087%_)))) (if (gx#stx-pair? - _%tl2199822031%_) - (let ((_%e2199922034%_ + _%tl2206122094%_) + (let ((_%e2206222097%_ (gx#syntax-e - _%tl2199822031%_))) - (let ((_%hd2200022038%_ + _%tl2206122094%_))) + (let ((_%hd2206322101%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2199922034%_))) - (_%tl2200122041%_ - (let () (declare (not safe)) (##cdr _%e2199922034%_)))) - (if (gx#stx-null? _%tl2200122041%_) - ((lambda (_%L22044%_ _%L22046%_ _%L22047%_) - (let* ((_%g2206522080%_ - (lambda (_%g2206622076%_) + (##car _%e2206222097%_))) + (_%tl2206422104%_ + (let () (declare (not safe)) (##cdr _%e2206222097%_)))) + (if (gx#stx-null? _%tl2206422104%_) + ((lambda (_%L22107%_ _%L22109%_ _%L22110%_) + (let* ((_%g2212822143%_ + (lambda (_%g2212922139%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2206622076%_))) - (_%g2206422125%_ - (lambda (_%g2206622084%_) - (if (gx#stx-pair? _%g2206622084%_) - (let ((_%e2206922087%_ - (gx#syntax-e _%g2206622084%_))) - (let ((_%hd2207022091%_ + _%g2212922139%_))) + (_%g2212722188%_ + (lambda (_%g2212922147%_) + (if (gx#stx-pair? _%g2212922147%_) + (let ((_%e2213222150%_ + (gx#syntax-e _%g2212922147%_))) + (let ((_%hd2213322154%_ (let () (declare (not safe)) - (##car _%e2206922087%_))) - (_%tl2207122094%_ + (##car _%e2213222150%_))) + (_%tl2213422157%_ (let () (declare (not safe)) - (##cdr _%e2206922087%_)))) - (if (gx#stx-pair? _%tl2207122094%_) - (let ((_%e2207222097%_ + (##cdr _%e2213222150%_)))) + (if (gx#stx-pair? _%tl2213422157%_) + (let ((_%e2213522160%_ (gx#syntax-e - _%tl2207122094%_))) - (let ((_%hd2207322101%_ + _%tl2213422157%_))) + (let ((_%hd2213622164%_ (let () (declare (not safe)) - (##car _%e2207222097%_))) - (_%tl2207422104%_ + (##car _%e2213522160%_))) + (_%tl2213722167%_ (let () (declare (not safe)) - (##cdr _%e2207222097%_)))) + (##cdr _%e2213522160%_)))) (if (gx#stx-null? - _%tl2207422104%_) - ((lambda (_%L22107%_ - _%L22109%_) - (cons (_%wrap21027%_ + _%tl2213722167%_) + ((lambda (_%L22170%_ + _%L22172%_) + (cons (_%wrap21090%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons _%L22109%_ + (cons _%L22172%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21358%_ + (cons _%L21421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22047%_ (cons '#f '())))) + (cons _%L22110%_ (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'make-class-slot-unchecked-accessor) - (cons _%L21121%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22047%_ '())) + (cons _%L22110%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap21027%_ + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22107%_ + (cons _%L22170%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -759,129 +759,129 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21358%_ (cons _%L22047%_ (cons '#f '())))) + (cons _%L21421%_ (cons _%L22110%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-unchecked-mutator) - (cons _%L21121%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22047%_ '())) + (cons _%L22110%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2207322101%_ - _%hd2207022091%_) + _%hd2213622164%_ + _%hd2213322154%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2206522080%_ - _%g2206622084%_)))) - (_%g2206522080%_ - _%g2206622084%_)))) - (_%g2206522080%_ _%g2206622084%_))))) - (_%g2206422125%_ - (list (gx#stx-identifier _%L22046%_ '"&" _%L22046%_) + (_%g2212822143%_ + _%g2212922147%_)))) + (_%g2212822143%_ + _%g2212922147%_)))) + (_%g2212822143%_ _%g2212922147%_))))) + (_%g2212722188%_ + (list (gx#stx-identifier _%L22109%_ '"&" _%L22109%_) (gx#stx-identifier - _%L22044%_ + _%L22107%_ '"&" - _%L22044%_))))) - _%hd2200022038%_ - _%hd2199722028%_ - _%hd2199422018%_) - (_%g2198822007%_ _%g2198922011%_)))) + _%L22107%_))))) + _%hd2206322101%_ + _%hd2206022091%_ + _%hd2205722081%_) + (_%g2205122070%_ _%g2205222074%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2198822007%_ - _%g2198922011%_)))) - (_%g2198822007%_ - _%g2198922011%_)))) - (_%g2198822007%_ _%g2198922011%_))))) - (_%g2198722129%_ _%ref21985%_))) - _%accessible-slots21178%_)))) - _%def-setf2174821816%_ - _%def-getf2174921819%_)))))) + (_%g2205122070%_ + _%g2205222074%_)))) + (_%g2205122070%_ + _%g2205222074%_)))) + (_%g2205122070%_ _%g2205222074%_))))) + (_%g2205022192%_ _%ref22048%_))) + _%accessible-slots21241%_)))) + _%def-setf2181121879%_ + _%def-getf2181221882%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2174221774%_ - _%target2173921768%_ + (_%loop2180521837%_ + _%target2180221831%_ '() '())) - (_%g2173521761%_ _%g2173621765%_))))) - (_%g2173521761%_ _%g2173621765%_))))) + (_%g2179821824%_ _%g2179921828%_))))) + (_%g2179821824%_ _%g2179921828%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2173422133%_ + (_%g2179722196%_ (gx#stx-map - (lambda (_%ref22137%_) - (let* ((_%g2214022159%_ + (lambda (_%ref22200%_) + (let* ((_%g2220322222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2214122155%_) + (lambda (_%g2220422218%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2214122155%_))) - (_%g2213922217%_ - (lambda (_%g2214122163%_) - (if (gx#stx-pair? _%g2214122163%_) - (let ((_%e2214522166%_ - (gx#syntax-e _%g2214122163%_))) - (let ((_%hd2214622170%_ + _%g2220422218%_))) + (_%g2220222280%_ + (lambda (_%g2220422226%_) + (if (gx#stx-pair? _%g2220422226%_) + (let ((_%e2220822229%_ + (gx#syntax-e _%g2220422226%_))) + (let ((_%hd2220922233%_ (let () (declare (not safe)) - (##car _%e2214522166%_))) - (_%tl2214722173%_ + (##car _%e2220822229%_))) + (_%tl2221022236%_ (let () (declare (not safe)) - (##cdr _%e2214522166%_)))) - (if (gx#stx-pair? _%tl2214722173%_) - (let ((_%e2214822176%_ - (gx#syntax-e _%tl2214722173%_))) - (let ((_%hd2214922180%_ + (##cdr _%e2220822229%_)))) + (if (gx#stx-pair? _%tl2221022236%_) + (let ((_%e2221122239%_ + (gx#syntax-e _%tl2221022236%_))) + (let ((_%hd2221222243%_ (let () (declare (not safe)) - (##car _%e2214822176%_))) - (_%tl2215022183%_ + (##car _%e2221122239%_))) + (_%tl2221322246%_ (let () (declare (not safe)) - (##cdr _%e2214822176%_)))) - (if (gx#stx-pair? _%tl2215022183%_) - (let ((_%e2215122186%_ + (##cdr _%e2221122239%_)))) + (if (gx#stx-pair? _%tl2221322246%_) + (let ((_%e2221422249%_ (gx#syntax-e - _%tl2215022183%_))) - (let ((_%hd2215222190%_ + _%tl2221322246%_))) + (let ((_%hd2221522253%_ (let () (declare (not safe)) - (##car _%e2215122186%_))) - (_%tl2215322193%_ + (##car _%e2221422249%_))) + (_%tl2221622256%_ (let () (declare (not safe)) - (##cdr _%e2215122186%_)))) + (##cdr _%e2221422249%_)))) (if (gx#stx-null? - _%tl2215322193%_) - ((lambda (_%L22196%_ + _%tl2221622256%_) + ((lambda (_%L22259%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L22198%_ - _%L22199%_) - (cons (_%wrap21027%_ + _%L22261%_ + _%L22262%_) + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22198%_ + (cons _%L22261%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L21358%_ + (cons _%L21421%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22199%_ (cons '#t '())))) + (cons _%L22262%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-accessor) - (cons _%L21121%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22199%_ '())) + (cons _%L22262%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (_%wrap21027%_ + (cons (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L22196%_ + (cons _%L22259%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -889,57 +889,57 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L21358%_ (cons _%L22199%_ (cons '#t '())))) + (cons _%L21421%_ (cons _%L22262%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'make-class-slot-mutator) - (cons _%L21121%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L22199%_ '())) + (cons _%L22262%_ '())) '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '()))) - _%hd2215222190%_ - _%hd2214922180%_ - _%hd2214622170%_) - (_%g2214022159%_ _%g2214122163%_)))) + _%hd2221522253%_ + _%hd2221222243%_ + _%hd2220922233%_) + (_%g2220322222%_ _%g2220422226%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2214022159%_ - _%g2214122163%_)))) - (_%g2214022159%_ _%g2214122163%_)))) - (_%g2214022159%_ _%g2214122163%_))))) - (_%g2213922217%_ _%ref22137%_))) - _%accessible-slots21178%_)))) + (_%g2220322222%_ + _%g2220422226%_)))) + (_%g2220322222%_ _%g2220422226%_)))) + (_%g2220322222%_ _%g2220422226%_))))) + (_%g2220222280%_ _%ref22200%_))) + _%accessible-slots21241%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2170821719%_)))) - (_%g2170622221%_ - (_%wrap21027%_ + _%g2177121782%_)))) + (_%g2176922284%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21118%_ + (cons _%L21181%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.predicate) - (cons _%L21358%_ '())) + (cons _%L21421%_ '())) (cons (cons (gx#datum->syntax '#f 'make-class-predicate) - (cons _%L21121%_ '())) + (cons _%L21184%_ '())) '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2168021691%_)))) - (_%g2167822225%_ - (if (gx#stx-false? _%L21119%_) + _%g2174321754%_)))) + (_%g2174122288%_ + (if (gx#stx-false? _%L21182%_) (cons (gx#datum->syntax '#f 'begin) '()) - (_%wrap21027%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21119%_ + (cons _%L21182%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -947,7 +947,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.constructor) - (cons _%L21358%_ '())) + (cons _%L21421%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (gx#datum->syntax '#f '$args) (cons (cons (gx#datum->syntax @@ -956,7 +956,7 @@ (cons (gx#datum->syntax '#f 'make-instance) - (cons _%L21121%_ + (cons _%L21184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f '$args) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -964,93 +964,93 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))))) - _%g2165221663%_)))) - (_%g2165022229%_ - (_%wrap21027%_ + _%g2171521726%_)))) + (_%g2171322292%_ + (_%wrap21090%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L21121%_ + (cons _%L21184%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.class) - (cons _%L21274%_ - (cons _%L21386%_ - (cons (foldr (lambda (_%g2223222235%_ + (cons _%L21337%_ + (cons _%L21449%_ + (cons (foldr (lambda (_%g2229522298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2223322238%_) - (cons _%g2223222235%_ _%g2223322238%_)) + _%g2229622301%_) + (cons _%g2229522298%_ _%g2229622301%_)) '() - _%L21238%_) - (cons _%L21330%_ - (cons _%L21414%_ - (cons _%L21442%_ - (cons _%L21470%_ '())))))))) + _%L21301%_) + (cons _%L21393%_ + (cons _%L21477%_ + (cons _%L21505%_ + (cons _%L21533%_ '())))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L21638%_ '()))) + (cons _%L21701%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2162421635%_)))) - (_%g2162222241%_ + _%g2168721698%_)))) + (_%g2168522304%_ (cons (gx#datum->syntax '#f 'make-class-type) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21274%_ + (cons _%L21337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21302%_ '())) - (cons _%L21610%_ + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L21365%_ '())) + (cons _%L21673%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2224422247%_ - _%g2224522250%_) - (cons _%g2224422247%_ - _%g2224522250%_)) + (cons (foldr (lambda (_%g2230722310%_ + _%g2230822313%_) + (cons _%g2230722310%_ + _%g2230822313%_)) '() - _%L21238%_) + _%L21301%_) '())) - (cons _%L21582%_ + (cons _%L21645%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L21330%_ '())) + (cons _%L21393%_ '())) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2159621607%_)))) - (_%g2159422253%_ - (cons (gx#datum->syntax '#f 'list) _%L21120%_)))) - _%g2156821579%_)))) - (_%g2156622257%_ - (if (gx#stx-e _%metaclass21181%_) - (let* ((_%g2226122269%_ - (lambda (_%g2226222265%_) + _%g2165921670%_)))) + (_%g2165722316%_ + (cons (gx#datum->syntax '#f 'list) _%L21183%_)))) + _%g2163121642%_)))) + (_%g2162922320%_ + (if (gx#stx-e _%metaclass21244%_) + (let* ((_%g2232422332%_ + (lambda (_%g2232522328%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2226222265%_))) - (_%g2226022288%_ - (lambda (_%g2226222273%_) - ((lambda (_%L22276%_) + _%g2232522328%_))) + (_%g2232322351%_ + (lambda (_%g2232522336%_) + ((lambda (_%L22339%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'metaclass: (cons ':: - (cons _%L22276%_ + (cons _%L22339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons ':: - (cons _%L21554%_ '()))))) - _%g2226222273%_)))) - (_%g2226022288%_ _%metaclass21181%_)) - _%L21554%_)))) + (cons _%L21617%_ '()))))) + _%g2232522336%_)))) + (_%g2232322351%_ _%metaclass21244%_)) + _%L21617%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2154021551%_)))) - (_%g2153822292%_ - (if _%struct?21161%_ + _%g2160321614%_)))) + (_%g2160122355%_ + (if _%struct?21224%_ (cons (gx#datum->syntax '#f '@list) @@ -1059,94 +1059,94 @@ '#f '@list) (cons 'struct: '#t)) - (cons ':: (cons _%L21526%_ '())))) + (cons ':: (cons _%L21589%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L21526%_)))) - _%g2151221523%_)))) - (_%g2151022296%_ - (if (gx#stx-e _%L21442%_) + _%L21589%_)))) + _%g2157521586%_)))) + (_%g2157322359%_ + (if (gx#stx-e _%L21505%_) (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f '@list) (cons 'final: '#t)) (cons ':: - (cons _%L21498%_ '())))) - _%L21498%_)))) - _%g2148421495%_)))) - (_%g2148222300%_ - (let ((_%$e22304%_ (gx#stx-getq 'properties: _%L21116%_))) - (if _%$e22304%_ - _%$e22304%_ + (cons _%L21561%_ '())))) + _%L21561%_)))) + _%g2154721558%_)))) + (_%g2154522363%_ + (let ((_%$e22367%_ (gx#stx-getq 'properties: _%L21179%_))) + (if _%$e22367%_ + _%$e22367%_ (cons (gx#datum->syntax '#f '@list) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2145621467%_)))) - (_%g2145422308%_ - (if (gx#stx-e _%metaclass21181%_) + _%g2151921530%_)))) + (_%g2151722371%_ + (if (gx#stx-e _%metaclass21244%_) (gx#core-quote-syntax - _%metaclass21181%_) + _%metaclass21244%_) '#f)))) - _%g2142821439%_)))) - (_%g2142622312%_ - (gx#stx-getq 'final: _%L21116%_)))) - _%g2140021411%_)))) - (_%g2139822316%_ _%struct?21161%_))) + _%g2149121502%_)))) + (_%g2148922375%_ + (gx#stx-getq 'final: _%L21179%_)))) + _%g2146321474%_)))) + (_%g2146122379%_ _%struct?21224%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2137221383%_)))) - (_%g2137022320%_ + _%g2143521446%_)))) + (_%g2143322383%_ (gx#stx-map gx#core-quote-syntax - _%L21120%_)))) - _%g2134421355%_)))) - (_%g2134222324%_ - (gx#core-quote-syntax _%L21121%_)))) - _%g2131621327%_)))) - (_%g2131422328%_ (gx#stx-getq 'constructor: _%L21116%_)))) - _%g2128821299%_)))) + _%L21183%_)))) + _%g2140721418%_)))) + (_%g2140522387%_ + (gx#core-quote-syntax _%L21184%_)))) + _%g2137921390%_)))) + (_%g2137722391%_ (gx#stx-getq 'constructor: _%L21179%_)))) + _%g2135121362%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2128622332%_ - (let ((_%$e22336%_ + (_%g2134922395%_ + (let ((_%$e22399%_ (gx#stx-getq 'name: - _%L21116%_))) - (if _%$e22336%_ - _%$e22336%_ - _%L21121%_))))) - _%g2126021271%_)))) - (_%g2125822340%_ - (let ((_%$e22344%_ - (gx#stx-getq 'id: _%L21116%_))) - (if _%$e22344%_ - _%$e22344%_ + _%L21179%_))) + (if _%$e22399%_ + _%$e22399%_ + _%L21184%_))))) + _%g2132321334%_)))) + (_%g2132122403%_ + (let ((_%$e22407%_ + (gx#stx-getq 'id: _%L21179%_))) + (if _%$e22407%_ + _%$e22407%_ (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L21121%_)))))) - _%slot2119521234%_)))))) + _%L21184%_)))))) + _%slot2125821297%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2119021214%_ - _%target2118721208%_ + (_%loop2125321277%_ + _%target2125021271%_ '())) - (_%g2118421201%_ - _%g2118521205%_))))) - (_%g2118421201%_ _%g2118521205%_))))) - (_%g2118322348%_ - (gx#stx-map _%slot-name21029%_ _%slots21168%_))) - (_%g2103221059%_ _%g2103321063%_))) - _%tl2105321113%_ - _%hd2105221110%_ - _%hd2104921100%_ - _%hd2104621090%_ - _%hd2104321080%_))) - (_%g2103221059%_ _%g2103321063%_)))) + (_%g2124721264%_ + _%g2124821268%_))))) + (_%g2124721264%_ _%g2124821268%_))))) + (_%g2124622411%_ + (gx#stx-map _%slot-name21092%_ _%slots21231%_))) + (_%g2109521122%_ _%g2109621126%_))) + _%tl2111621176%_ + _%hd2111521173%_ + _%hd2111221163%_ + _%hd2110921153%_ + _%hd2110621143%_))) + (_%g2109521122%_ _%g2109621126%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2103221059%_ - _%g2103321063%_)))) - (_%g2103221059%_ _%g2103321063%_)))) - (_%g2103221059%_ _%g2103321063%_)))) - (_%g2103221059%_ _%g2103321063%_))))) - (_%g2103122352%_ _%stx21023%_))))) + (_%g2109521122%_ + _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_)))) + (_%g2109521122%_ _%g2109621126%_))))) + (_%g2109422415%_ _%stx21086%_))))) (define |gerbil/core/mop~MOP-1[:0:]#defstruct-type| - (lambda (_%stx22466%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22466%_ '#t))) + (lambda (_%stx22529%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22529%_ '#t))) (define |gerbil/core/mop~MOP-1[:0:]#defclass-type| - (lambda (_%stx22469%_) - (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22469%_ '#f)))) + (lambda (_%stx22532%_) + (|gerbil/core/mop~MOP-1[1]#generate-typedef| _%stx22532%_ '#f)))) diff --git a/src/bootstrap/gerbil/core/mop~2.scm b/src/bootstrap/gerbil/core/mop~2.scm index 818e6a5fc..9eeb5879e 100644 --- a/src/bootstrap/gerbil/core/mop~2.scm +++ b/src/bootstrap/gerbil/core/mop~2.scm @@ -1,601 +1,601 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-3[1]#_g27151_| + (define |gerbil/core/mop~MOP-3[1]#_g27214_| (##structure gx#syntax-quote::t 'class-type-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27153_| + (define |gerbil/core/mop~MOP-3[1]#_g27216_| (##structure gx#syntax-quote::t 'make-class-type-info #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27155_| + (define |gerbil/core/mop~MOP-3[1]#_g27218_| (##structure gx#syntax-quote::t 'class-type-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27157_| + (define |gerbil/core/mop~MOP-3[1]#_g27220_| (##structure gx#syntax-quote::t '!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27158_| + (define |gerbil/core/mop~MOP-3[1]#_g27221_| (##structure gx#syntax-quote::t '!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27159_| + (define |gerbil/core/mop~MOP-3[1]#_g27222_| (##structure gx#syntax-quote::t '!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27160_| + (define |gerbil/core/mop~MOP-3[1]#_g27223_| (##structure gx#syntax-quote::t '!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27161_| + (define |gerbil/core/mop~MOP-3[1]#_g27224_| (##structure gx#syntax-quote::t '!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27162_| + (define |gerbil/core/mop~MOP-3[1]#_g27225_| (##structure gx#syntax-quote::t '!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27163_| + (define |gerbil/core/mop~MOP-3[1]#_g27226_| (##structure gx#syntax-quote::t '!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27164_| + (define |gerbil/core/mop~MOP-3[1]#_g27227_| (##structure gx#syntax-quote::t '!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27165_| + (define |gerbil/core/mop~MOP-3[1]#_g27228_| (##structure gx#syntax-quote::t '!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27166_| + (define |gerbil/core/mop~MOP-3[1]#_g27229_| (##structure gx#syntax-quote::t '!class-type-metaclass #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27167_| + (define |gerbil/core/mop~MOP-3[1]#_g27230_| (##structure gx#syntax-quote::t '!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27168_| + (define |gerbil/core/mop~MOP-3[1]#_g27231_| (##structure gx#syntax-quote::t '!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27169_| + (define |gerbil/core/mop~MOP-3[1]#_g27232_| (##structure gx#syntax-quote::t '!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27170_| + (define |gerbil/core/mop~MOP-3[1]#_g27233_| (##structure gx#syntax-quote::t '!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27171_| + (define |gerbil/core/mop~MOP-3[1]#_g27234_| (##structure gx#syntax-quote::t '!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27172_| + (define |gerbil/core/mop~MOP-3[1]#_g27235_| (##structure gx#syntax-quote::t '!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27173_| + (define |gerbil/core/mop~MOP-3[1]#_g27236_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27174_| + (define |gerbil/core/mop~MOP-3[1]#_g27237_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27175_| + (define |gerbil/core/mop~MOP-3[1]#_g27238_| (##structure gx#syntax-quote::t '!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27176_| + (define |gerbil/core/mop~MOP-3[1]#_g27239_| (##structure gx#syntax-quote::t '!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27177_| + (define |gerbil/core/mop~MOP-3[1]#_g27240_| (##structure gx#syntax-quote::t '!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27179_| + (define |gerbil/core/mop~MOP-3[1]#_g27242_| (##structure gx#syntax-quote::t '!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27180_| + (define |gerbil/core/mop~MOP-3[1]#_g27243_| (##structure gx#syntax-quote::t '!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27181_| + (define |gerbil/core/mop~MOP-3[1]#_g27244_| (##structure gx#syntax-quote::t '!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27182_| + (define |gerbil/core/mop~MOP-3[1]#_g27245_| (##structure gx#syntax-quote::t '!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27183_| + (define |gerbil/core/mop~MOP-3[1]#_g27246_| (##structure gx#syntax-quote::t '!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27184_| + (define |gerbil/core/mop~MOP-3[1]#_g27247_| (##structure gx#syntax-quote::t '!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27185_| + (define |gerbil/core/mop~MOP-3[1]#_g27248_| (##structure gx#syntax-quote::t '!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27186_| + (define |gerbil/core/mop~MOP-3[1]#_g27249_| (##structure gx#syntax-quote::t '!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27187_| + (define |gerbil/core/mop~MOP-3[1]#_g27250_| (##structure gx#syntax-quote::t '!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27188_| + (define |gerbil/core/mop~MOP-3[1]#_g27251_| (##structure gx#syntax-quote::t '!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27189_| + (define |gerbil/core/mop~MOP-3[1]#_g27252_| (##structure gx#syntax-quote::t '!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27190_| + (define |gerbil/core/mop~MOP-3[1]#_g27253_| (##structure gx#syntax-quote::t '!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27191_| + (define |gerbil/core/mop~MOP-3[1]#_g27254_| (##structure gx#syntax-quote::t '!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27192_| + (define |gerbil/core/mop~MOP-3[1]#_g27255_| (##structure gx#syntax-quote::t '!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27193_| + (define |gerbil/core/mop~MOP-3[1]#_g27256_| (##structure gx#syntax-quote::t '!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27194_| + (define |gerbil/core/mop~MOP-3[1]#_g27257_| (##structure gx#syntax-quote::t '!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27195_| + (define |gerbil/core/mop~MOP-3[1]#_g27258_| (##structure gx#syntax-quote::t '!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27196_| + (define |gerbil/core/mop~MOP-3[1]#_g27259_| (##structure gx#syntax-quote::t '!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27197_| + (define |gerbil/core/mop~MOP-3[1]#_g27260_| (##structure gx#syntax-quote::t '!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27198_| + (define |gerbil/core/mop~MOP-3[1]#_g27261_| (##structure gx#syntax-quote::t '!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27199_| + (define |gerbil/core/mop~MOP-3[1]#_g27262_| (##structure gx#syntax-quote::t '!class-type-slot-contracts-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27201_| + (define |gerbil/core/mop~MOP-3[1]#_g27264_| (##structure gx#syntax-quote::t '&!class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27202_| + (define |gerbil/core/mop~MOP-3[1]#_g27265_| (##structure gx#syntax-quote::t '&!class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27203_| + (define |gerbil/core/mop~MOP-3[1]#_g27266_| (##structure gx#syntax-quote::t '&!class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27204_| + (define |gerbil/core/mop~MOP-3[1]#_g27267_| (##structure gx#syntax-quote::t '&!class-type-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27205_| + (define |gerbil/core/mop~MOP-3[1]#_g27268_| (##structure gx#syntax-quote::t '&!class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27206_| + (define |gerbil/core/mop~MOP-3[1]#_g27269_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27207_| + (define |gerbil/core/mop~MOP-3[1]#_g27270_| (##structure gx#syntax-quote::t '&!class-type-struct? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27208_| + (define |gerbil/core/mop~MOP-3[1]#_g27271_| (##structure gx#syntax-quote::t '&!class-type-final? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27209_| + (define |gerbil/core/mop~MOP-3[1]#_g27272_| (##structure gx#syntax-quote::t '&!class-type-system? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27210_| + (define |gerbil/core/mop~MOP-3[1]#_g27273_| (##structure gx#syntax-quote::t '&!class-type-constructor-method #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27211_| + (define |gerbil/core/mop~MOP-3[1]#_g27274_| (##structure gx#syntax-quote::t '&!class-type-descriptor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27212_| + (define |gerbil/core/mop~MOP-3[1]#_g27275_| (##structure gx#syntax-quote::t '&!class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27213_| + (define |gerbil/core/mop~MOP-3[1]#_g27276_| (##structure gx#syntax-quote::t '&!class-type-predicate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27214_| + (define |gerbil/core/mop~MOP-3[1]#_g27277_| (##structure gx#syntax-quote::t '&!class-type-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27215_| + (define |gerbil/core/mop~MOP-3[1]#_g27278_| (##structure gx#syntax-quote::t '&!class-type-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27216_| + (define |gerbil/core/mop~MOP-3[1]#_g27279_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27217_| + (define |gerbil/core/mop~MOP-3[1]#_g27280_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27218_| + (define |gerbil/core/mop~MOP-3[1]#_g27281_| (##structure gx#syntax-quote::t '&!class-type-slot-types #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27219_| + (define |gerbil/core/mop~MOP-3[1]#_g27282_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27220_| + (define |gerbil/core/mop~MOP-3[1]#_g27283_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27222_| + (define |gerbil/core/mop~MOP-3[1]#_g27285_| (##structure gx#syntax-quote::t '&!class-type-id-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27223_| + (define |gerbil/core/mop~MOP-3[1]#_g27286_| (##structure gx#syntax-quote::t '&!class-type-name-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27224_| + (define |gerbil/core/mop~MOP-3[1]#_g27287_| (##structure gx#syntax-quote::t '&!class-type-super-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27225_| + (define |gerbil/core/mop~MOP-3[1]#_g27288_| (##structure gx#syntax-quote::t '&!class-type-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27226_| + (define |gerbil/core/mop~MOP-3[1]#_g27289_| (##structure gx#syntax-quote::t '&!class-type-precedence-list-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27227_| + (define |gerbil/core/mop~MOP-3[1]#_g27290_| (##structure gx#syntax-quote::t '&!class-type-ordered-slots-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27228_| + (define |gerbil/core/mop~MOP-3[1]#_g27291_| (##structure gx#syntax-quote::t '&!class-type-struct?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27229_| + (define |gerbil/core/mop~MOP-3[1]#_g27292_| (##structure gx#syntax-quote::t '&!class-type-final?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27230_| + (define |gerbil/core/mop~MOP-3[1]#_g27293_| (##structure gx#syntax-quote::t '&!class-type-system?-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27231_| + (define |gerbil/core/mop~MOP-3[1]#_g27294_| (##structure gx#syntax-quote::t '&!class-type-metaclass-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27232_| + (define |gerbil/core/mop~MOP-3[1]#_g27295_| (##structure gx#syntax-quote::t '&!class-type-constructor-method-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27233_| + (define |gerbil/core/mop~MOP-3[1]#_g27296_| (##structure gx#syntax-quote::t '&!class-type-descriptor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27234_| + (define |gerbil/core/mop~MOP-3[1]#_g27297_| (##structure gx#syntax-quote::t '&!class-type-constructor-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27235_| + (define |gerbil/core/mop~MOP-3[1]#_g27298_| (##structure gx#syntax-quote::t '&!class-type-predicate-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27236_| + (define |gerbil/core/mop~MOP-3[1]#_g27299_| (##structure gx#syntax-quote::t '&!class-type-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27237_| + (define |gerbil/core/mop~MOP-3[1]#_g27300_| (##structure gx#syntax-quote::t '&!class-type-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27238_| + (define |gerbil/core/mop~MOP-3[1]#_g27301_| (##structure gx#syntax-quote::t '&!class-type-unchecked-accessors-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27239_| + (define |gerbil/core/mop~MOP-3[1]#_g27302_| (##structure gx#syntax-quote::t '&!class-type-unchecked-mutators-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27240_| + (define |gerbil/core/mop~MOP-3[1]#_g27303_| (##structure gx#syntax-quote::t '&!class-type-slot-types-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27241_| + (define |gerbil/core/mop~MOP-3[1]#_g27304_| (##structure gx#syntax-quote::t '&!class-type-slot-defaults-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-3[1]#_g27242_| + (define |gerbil/core/mop~MOP-3[1]#_g27305_| (##structure gx#syntax-quote::t '&!class-type-slot-contracts-set! @@ -603,7 +603,7 @@ (gx#current-expander-context) '())) (define |gerbil/core/mop~MOP-3[:0:]#class-type-info| - (let ((__obj27059 + (let ((__obj27122 (let () (declare (not safe)) (##structure @@ -632,21 +632,21 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27059 + __obj27122 'gerbil.core#class-type-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 'class-type-info '2 '#f '#f)) + (##unchecked-structure-set! __obj27122 'class-type-info '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27122 '() '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27059 + __obj27122 '(id name super slots @@ -672,219 +672,219 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#f '9 '#f '#f)) + (##unchecked-structure-set! __obj27122 '#f '9 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27059 '#f '11 '#f '#f)) - (let ((__tmp27150 |gerbil/core/mop~MOP-3[1]#_g27151_|)) + (##unchecked-structure-set! __obj27122 '#f '11 '#f '#f)) + (let ((__tmp27213 |gerbil/core/mop~MOP-3[1]#_g27214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27150 '12 '#f '#f)) - (let ((__tmp27152 |gerbil/core/mop~MOP-3[1]#_g27153_|)) + (##unchecked-structure-set! __obj27122 __tmp27213 '12 '#f '#f)) + (let ((__tmp27215 |gerbil/core/mop~MOP-3[1]#_g27216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27152 '13 '#f '#f)) - (let ((__tmp27154 |gerbil/core/mop~MOP-3[1]#_g27155_|)) + (##unchecked-structure-set! __obj27122 __tmp27215 '13 '#f '#f)) + (let ((__tmp27217 |gerbil/core/mop~MOP-3[1]#_g27218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27154 '14 '#f '#f)) - (let ((__tmp27156 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27157_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27158_|) + (##unchecked-structure-set! __obj27122 __tmp27217 '14 '#f '#f)) + (let ((__tmp27219 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27220_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27221_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27159_|) + |gerbil/core/mop~MOP-3[1]#_g27222_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27160_|) + |gerbil/core/mop~MOP-3[1]#_g27223_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27161_|) + |gerbil/core/mop~MOP-3[1]#_g27224_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27162_|) + |gerbil/core/mop~MOP-3[1]#_g27225_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27163_|) + |gerbil/core/mop~MOP-3[1]#_g27226_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27164_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27165_|) + |gerbil/core/mop~MOP-3[1]#_g27227_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27228_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27166_|) + |gerbil/core/mop~MOP-3[1]#_g27229_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27167_|) + |gerbil/core/mop~MOP-3[1]#_g27230_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27168_|) + |gerbil/core/mop~MOP-3[1]#_g27231_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27169_|) + |gerbil/core/mop~MOP-3[1]#_g27232_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27170_|) + |gerbil/core/mop~MOP-3[1]#_g27233_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27171_|) + |gerbil/core/mop~MOP-3[1]#_g27234_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27172_|) + |gerbil/core/mop~MOP-3[1]#_g27235_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27173_|) + |gerbil/core/mop~MOP-3[1]#_g27236_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27174_|) + |gerbil/core/mop~MOP-3[1]#_g27237_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27175_|) + |gerbil/core/mop~MOP-3[1]#_g27238_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27176_|) + |gerbil/core/mop~MOP-3[1]#_g27239_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27177_|) + |gerbil/core/mop~MOP-3[1]#_g27240_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27156 '15 '#f '#f)) - (let ((__tmp27178 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27179_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27180_|) + (##unchecked-structure-set! __obj27122 __tmp27219 '15 '#f '#f)) + (let ((__tmp27241 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27242_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27243_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27181_|) + |gerbil/core/mop~MOP-3[1]#_g27244_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27182_|) + |gerbil/core/mop~MOP-3[1]#_g27245_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27183_|) + |gerbil/core/mop~MOP-3[1]#_g27246_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27184_|) + |gerbil/core/mop~MOP-3[1]#_g27247_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27185_|) + |gerbil/core/mop~MOP-3[1]#_g27248_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27186_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27187_|) + |gerbil/core/mop~MOP-3[1]#_g27249_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27250_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27188_|) + |gerbil/core/mop~MOP-3[1]#_g27251_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27189_|) + |gerbil/core/mop~MOP-3[1]#_g27252_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27190_|) + |gerbil/core/mop~MOP-3[1]#_g27253_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27191_|) + |gerbil/core/mop~MOP-3[1]#_g27254_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27192_|) + |gerbil/core/mop~MOP-3[1]#_g27255_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27193_|) + |gerbil/core/mop~MOP-3[1]#_g27256_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27194_|) + |gerbil/core/mop~MOP-3[1]#_g27257_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27195_|) + |gerbil/core/mop~MOP-3[1]#_g27258_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27196_|) + |gerbil/core/mop~MOP-3[1]#_g27259_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27197_|) + |gerbil/core/mop~MOP-3[1]#_g27260_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27198_|) + |gerbil/core/mop~MOP-3[1]#_g27261_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27199_|) + |gerbil/core/mop~MOP-3[1]#_g27262_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27178 '16 '#f '#f)) - (let ((__tmp27200 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27201_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27202_|) + (##unchecked-structure-set! __obj27122 __tmp27241 '16 '#f '#f)) + (let ((__tmp27263 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27264_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27265_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27203_|) + |gerbil/core/mop~MOP-3[1]#_g27266_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27204_|) + |gerbil/core/mop~MOP-3[1]#_g27267_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27205_|) + |gerbil/core/mop~MOP-3[1]#_g27268_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27206_|) + |gerbil/core/mop~MOP-3[1]#_g27269_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27207_|) + |gerbil/core/mop~MOP-3[1]#_g27270_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27208_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27209_|) + |gerbil/core/mop~MOP-3[1]#_g27271_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27272_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27166_|) + |gerbil/core/mop~MOP-3[1]#_g27229_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27210_|) + |gerbil/core/mop~MOP-3[1]#_g27273_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27211_|) + |gerbil/core/mop~MOP-3[1]#_g27274_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27212_|) + |gerbil/core/mop~MOP-3[1]#_g27275_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27213_|) + |gerbil/core/mop~MOP-3[1]#_g27276_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27214_|) + |gerbil/core/mop~MOP-3[1]#_g27277_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27215_|) + |gerbil/core/mop~MOP-3[1]#_g27278_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27216_|) + |gerbil/core/mop~MOP-3[1]#_g27279_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27217_|) + |gerbil/core/mop~MOP-3[1]#_g27280_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27218_|) + |gerbil/core/mop~MOP-3[1]#_g27281_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27219_|) + |gerbil/core/mop~MOP-3[1]#_g27282_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27220_|) + |gerbil/core/mop~MOP-3[1]#_g27283_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27200 '17 '#f '#f)) - (let ((__tmp27221 - (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27222_|) - (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27223_|) + (##unchecked-structure-set! __obj27122 __tmp27263 '17 '#f '#f)) + (let ((__tmp27284 + (cons (cons 'id |gerbil/core/mop~MOP-3[1]#_g27285_|) + (cons (cons 'name |gerbil/core/mop~MOP-3[1]#_g27286_|) (cons (cons 'super - |gerbil/core/mop~MOP-3[1]#_g27224_|) + |gerbil/core/mop~MOP-3[1]#_g27287_|) (cons (cons 'slots - |gerbil/core/mop~MOP-3[1]#_g27225_|) + |gerbil/core/mop~MOP-3[1]#_g27288_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-3[1]#_g27226_|) + |gerbil/core/mop~MOP-3[1]#_g27289_|) (cons (cons 'ordered-slots - |gerbil/core/mop~MOP-3[1]#_g27227_|) + |gerbil/core/mop~MOP-3[1]#_g27290_|) (cons (cons 'struct? - |gerbil/core/mop~MOP-3[1]#_g27228_|) + |gerbil/core/mop~MOP-3[1]#_g27291_|) (cons (cons 'final? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27229_|) - (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27230_|) + |gerbil/core/mop~MOP-3[1]#_g27292_|) + (cons (cons 'system? |gerbil/core/mop~MOP-3[1]#_g27293_|) (cons (cons 'metaclass - |gerbil/core/mop~MOP-3[1]#_g27231_|) + |gerbil/core/mop~MOP-3[1]#_g27294_|) (cons (cons 'constructor-method - |gerbil/core/mop~MOP-3[1]#_g27232_|) + |gerbil/core/mop~MOP-3[1]#_g27295_|) (cons (cons 'type-descriptor - |gerbil/core/mop~MOP-3[1]#_g27233_|) + |gerbil/core/mop~MOP-3[1]#_g27296_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-3[1]#_g27234_|) + |gerbil/core/mop~MOP-3[1]#_g27297_|) (cons (cons 'predicate - |gerbil/core/mop~MOP-3[1]#_g27235_|) + |gerbil/core/mop~MOP-3[1]#_g27298_|) (cons (cons 'accessors ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27236_|) + |gerbil/core/mop~MOP-3[1]#_g27299_|) (cons (cons 'mutators - |gerbil/core/mop~MOP-3[1]#_g27237_|) + |gerbil/core/mop~MOP-3[1]#_g27300_|) (cons (cons 'unchecked-accessors - |gerbil/core/mop~MOP-3[1]#_g27238_|) + |gerbil/core/mop~MOP-3[1]#_g27301_|) (cons (cons 'unchecked-mutators - |gerbil/core/mop~MOP-3[1]#_g27239_|) + |gerbil/core/mop~MOP-3[1]#_g27302_|) (cons (cons 'slot-types - |gerbil/core/mop~MOP-3[1]#_g27240_|) + |gerbil/core/mop~MOP-3[1]#_g27303_|) (cons (cons 'slot-defaults - |gerbil/core/mop~MOP-3[1]#_g27241_|) + |gerbil/core/mop~MOP-3[1]#_g27304_|) (cons (cons 'slot-contracts ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-3[1]#_g27242_|) + |gerbil/core/mop~MOP-3[1]#_g27305_|) '()))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27059 __tmp27221 '18 '#f '#f)) - __obj27059))) + (##unchecked-structure-set! __obj27122 __tmp27284 '18 '#f '#f)) + __obj27122))) diff --git a/src/bootstrap/gerbil/core/mop~3.scm b/src/bootstrap/gerbil/core/mop~3.scm index a38cf5add..88c89f7be 100644 --- a/src/bootstrap/gerbil/core/mop~3.scm +++ b/src/bootstrap/gerbil/core/mop~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-4[1]#_g27271_| + (define |gerbil/core/mop~MOP-4[1]#_g27334_| (##structure gx#syntax-quote::t '@method @@ -9,12 +9,12 @@ '())) (begin (define |gerbil/core/mop~MOP-4[1]#typedef-body?| - (lambda (_%stx24825%_) - (letrec ((_%body-opt?24828%_ - (lambda (_%key24831%_) - (let ((__tmp27243 (gx#stx-e _%key24831%_))) + (lambda (_%stx24888%_) + (letrec ((_%body-opt?24891%_ + (lambda (_%key24894%_) + (let ((__tmp27306 (gx#stx-e _%key24894%_))) (declare (not safe)) - (##memq __tmp27243 + (##memq __tmp27306 '(id: struct: name: @@ -24,1191 +24,1191 @@ print: equal: metaclass:)))))) - (gx#stx-plist? _%stx24825%_ _%body-opt?24828%_)))) + (gx#stx-plist? _%stx24888%_ _%body-opt?24891%_)))) (define |gerbil/core/mop~MOP-4[1]#generate-defclass| - (lambda (_%stx22591%_ - _%id22593%_ - _%super-ref22594%_ - _%slots22595%_ - _%body22596%_) - (letrec ((_%wrap22598%_ - (lambda (_%e-stx24822%_) + (lambda (_%stx22654%_ + _%id22656%_ + _%super-ref22657%_ + _%slots22658%_ + _%body22659%_) + (letrec ((_%wrap22661%_ + (lambda (_%e-stx24885%_) (gx#stx-wrap-source - _%e-stx24822%_ - (gx#stx-source _%stx22591%_)))) - (_%make-id22600%_ - (lambda _%args24819%_ - (apply gx#stx-identifier _%id22593%_ _%args24819%_))) - (_%get-mixin-slots22601%_ - (lambda (_%super24789%_ _%slots24791%_) - (letrec* ((_%tab24793%_ (make-hash-table-eq)) - (_%dedup24795%_ - (lambda (_%mixins24806%_) - (let _%lp24809%_ ((_%rest24812%_ - _%mixins24806%_) - (_%r24814%_ '())) - (if (pair? _%rest24812%_) - (let ((_%slot24816%_ + _%e-stx24885%_ + (gx#stx-source _%stx22654%_)))) + (_%make-id22663%_ + (lambda _%args24882%_ + (apply gx#stx-identifier _%id22656%_ _%args24882%_))) + (_%get-mixin-slots22664%_ + (lambda (_%super24852%_ _%slots24854%_) + (letrec* ((_%tab24856%_ (make-hash-table-eq)) + (_%dedup24858%_ + (lambda (_%mixins24869%_) + (let _%lp24872%_ ((_%rest24875%_ + _%mixins24869%_) + (_%r24877%_ '())) + (if (pair? _%rest24875%_) + (let ((_%slot24879%_ (let () (declare (not safe)) - (##car _%rest24812%_)))) + (##car _%rest24875%_)))) (if (hash-get - _%tab24793%_ - _%slot24816%_) - (_%lp24809%_ + _%tab24856%_ + _%slot24879%_) + (_%lp24872%_ (let () (declare (not safe)) - (##cdr _%rest24812%_)) - _%r24814%_) + (##cdr _%rest24875%_)) + _%r24877%_) (begin (hash-put! - _%tab24793%_ - _%slot24816%_ + _%tab24856%_ + _%slot24879%_ '#t) - (_%lp24809%_ + (_%lp24872%_ (let () (declare (not safe)) - (##cdr _%rest24812%_)) - (cons _%slot24816%_ - _%r24814%_))))) - (reverse _%r24814%_)))))) + (##cdr _%rest24875%_)) + (cons _%slot24879%_ + _%r24877%_))))) + (reverse _%r24877%_)))))) (gx#stx-for-each - (lambda (_%slot24797%_) - (hash-put! _%tab24793%_ (gx#stx-e _%slot24797%_) '#t)) - _%slots24791%_) - (if (not _%super24789%_) + (lambda (_%slot24860%_) + (hash-put! _%tab24856%_ (gx#stx-e _%slot24860%_) '#t)) + _%slots24854%_) + (if (not _%super24852%_) '() - (if (gx#identifier? _%super24789%_) - (_%dedup24795%_ - (_%get-mixin-slots-r22602%_ _%super24789%_)) - (_%dedup24795%_ + (if (gx#identifier? _%super24852%_) + (_%dedup24858%_ + (_%get-mixin-slots-r22665%_ _%super24852%_)) + (_%dedup24858%_ (concatenate - (map _%get-mixin-slots-r22602%_ - _%super24789%_)))))))) - (_%get-mixin-slots-r22602%_ - (lambda (_%type-id24783%_) - (let ((_%info24786%_ - (gx#syntax-local-value _%type-id24783%_))) - (let ((__tmp27245 - (let ((__obj27060 _%info24786%_)) + (map _%get-mixin-slots-r22665%_ + _%super24852%_)))))))) + (_%get-mixin-slots-r22665%_ + (lambda (_%type-id24846%_) + (let ((_%info24849%_ + (gx#syntax-local-value _%type-id24846%_))) + (let ((__tmp27308 + (let ((__obj27123 _%info24849%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27060 + __obj27123 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27060 + __obj27123 '4 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27060 + __obj27123 'slots)))) - (__tmp27244 + (__tmp27307 (concatenate - (map _%get-mixin-slots-r22602%_ - (let ((__obj27061 _%info24786%_)) + (map _%get-mixin-slots-r22665%_ + (let ((__obj27124 _%info24849%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27061 + __obj27124 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27061 + __obj27124 '3 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27061 + __obj27124 'super))))))) (declare (not safe)) - (##append __tmp27245 __tmp27244)))))) - (gx#check-duplicate-identifiers _%slots22595%_ _%stx22591%_) - (let* ((_%name22604%_ (symbol->string (gx#stx-e _%id22593%_))) - (_%super22607%_ - (map gx#syntax-local-value _%super-ref22594%_)) - (_%struct?22610%_ (gx#stx-getq 'struct: _%body22596%_)) - (_%g2261322621%_ - (lambda (_%g2261422617%_) + (##append __tmp27308 __tmp27307)))))) + (gx#check-duplicate-identifiers _%slots22658%_ _%stx22654%_) + (let* ((_%name22667%_ (symbol->string (gx#stx-e _%id22656%_))) + (_%super22670%_ + (map gx#syntax-local-value _%super-ref22657%_)) + (_%struct?22673%_ (gx#stx-getq 'struct: _%body22659%_)) + (_%g2267622684%_ + (lambda (_%g2267722680%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2261422617%_))) - (_%g2261224779%_ - (lambda (_%g2261422625%_) - ((lambda (_%L22628%_) - (let* ((_%g2264422652%_ - (lambda (_%g2264522648%_) + _%g2267722680%_))) + (_%g2267524842%_ + (lambda (_%g2267722688%_) + ((lambda (_%L22691%_) + (let* ((_%g2270722715%_ + (lambda (_%g2270822711%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2264522648%_))) - (_%g2264324775%_ - (lambda (_%g2264522656%_) - ((lambda (_%L22659%_) - (let* ((_%g2267222680%_ - (lambda (_%g2267322676%_) + _%g2270822711%_))) + (_%g2270624838%_ + (lambda (_%g2270822719%_) + ((lambda (_%L22722%_) + (let* ((_%g2273522743%_ + (lambda (_%g2273622739%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2267322676%_))) - (_%g2267124771%_ - (lambda (_%g2267322684%_) - ((lambda (_%L22687%_) - (let* ((_%g2270022708%_ - (lambda (_%g2270122704%_) + _%g2273622739%_))) + (_%g2273424834%_ + (lambda (_%g2273622747%_) + ((lambda (_%L22750%_) + (let* ((_%g2276322771%_ + (lambda (_%g2276422767%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2270122704%_))) - (_%g2269924767%_ - (lambda (_%g2270122712%_) - ((lambda (_%L22715%_) - (let* ((_%g2272822736%_ + _%g2276422767%_))) + (_%g2276224830%_ + (lambda (_%g2276422775%_) + ((lambda (_%L22778%_) + (let* ((_%g2279122799%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2272922732%_) + (lambda (_%g2279222795%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2272922732%_))) - (_%g2272724763%_ - (lambda (_%g2272922740%_) - ((lambda (_%L22743%_) - (let* ((_%g2275622773%_ - (lambda (_%g2275722769%_) + _%g2279222795%_))) + (_%g2279024826%_ + (lambda (_%g2279222803%_) + ((lambda (_%L22806%_) + (let* ((_%g2281922836%_ + (lambda (_%g2282022832%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2275722769%_))) - (_%g2275524759%_ - (lambda (_%g2275722777%_) + _%g2282022832%_))) + (_%g2281824822%_ + (lambda (_%g2282022840%_) (if (gx#stx-pair/null? - _%g2275722777%_) - (let ((_g27246_ + _%g2282022840%_) + (let ((_g27309_ (gx#syntax-split-splice - _%g2275722777%_ + _%g2282022840%_ '0))) (begin - (let ((_g27247_ + (let ((_g27310_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27246_) - (##vector-length _g27246_) + _g27309_) + (##values-length _g27309_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27247_ 2))) - (error "Context expects 2 values" _g27247_))) + (if (not (let () (declare (not safe)) (##fx= _g27310_ 2))) + (error "Context expects 2 values" _g27310_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2275922780%_ + (let ((_%target2282222843%_ (let () (declare (not safe)) - (##vector-ref - _g27246_ + (##values-ref + _g27309_ 0))) - (_%tl2276122783%_ + (_%tl2282422846%_ (let () (declare (not safe)) - (##vector-ref - _g27246_ + (##values-ref + _g27309_ 1)))) (if (gx#stx-null? - _%tl2276122783%_) - (letrec ((_%loop2276222786%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2276022790%_ _%slot2276622793%_) - (if (gx#stx-pair? _%hd2276022790%_) - (let ((_%e2276322796%_ - (gx#syntax-e _%hd2276022790%_))) - (let ((_%lp-hd2276422800%_ + _%tl2282422846%_) + (letrec ((_%loop2282522849%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2282322853%_ _%slot2282922856%_) + (if (gx#stx-pair? _%hd2282322853%_) + (let ((_%e2282622859%_ + (gx#syntax-e _%hd2282322853%_))) + (let ((_%lp-hd2282722863%_ (let () (declare (not safe)) - (##car _%e2276322796%_))) - (_%lp-tl2276522803%_ + (##car _%e2282622859%_))) + (_%lp-tl2282822866%_ (let () (declare (not safe)) - (##cdr _%e2276322796%_)))) - (_%loop2276222786%_ - _%lp-tl2276522803%_ - (cons _%lp-hd2276422800%_ - _%slot2276622793%_)))) - (let ((_%slot2276722806%_ - (reverse _%slot2276622793%_))) - ((lambda (_%L22810%_) - (let* ((_%g2282722844%_ - (lambda (_%g2282822840%_) + (##cdr _%e2282622859%_)))) + (_%loop2282522849%_ + _%lp-tl2282822866%_ + (cons _%lp-hd2282722863%_ + _%slot2282922856%_)))) + (let ((_%slot2283022869%_ + (reverse _%slot2282922856%_))) + ((lambda (_%L22873%_) + (let* ((_%g2289022907%_ + (lambda (_%g2289122903%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2282822840%_))) - (_%g2282624750%_ - (lambda (_%g2282822848%_) + _%g2289122903%_))) + (_%g2288924813%_ + (lambda (_%g2289122911%_) (if (gx#stx-pair/null? - _%g2282822848%_) - (let ((_g27248_ + _%g2289122911%_) + (let ((_g27311_ (gx#syntax-split-splice - _%g2282822848%_ + _%g2289122911%_ '0))) (begin - (let ((_g27249_ + (let ((_g27312_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27248_) - (##vector-length _g27248_) + (if (##values? _g27311_) + (##values-length _g27311_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27249_ 2))) - (error "Context expects 2 values" _g27249_))) - (let ((_%target2283022851%_ + (if (not (let () (declare (not safe)) (##fx= _g27312_ 2))) + (error "Context expects 2 values" _g27312_))) + (let ((_%target2289322914%_ (let () (declare (not safe)) - (##vector-ref _g27248_ 0))) - (_%tl2283222854%_ + (##values-ref _g27311_ 0))) + (_%tl2289522917%_ (let () (declare (not safe)) - (##vector-ref _g27248_ 1)))) - (if (gx#stx-null? _%tl2283222854%_) - (letrec ((_%loop2283322857%_ - (lambda (_%hd2283122861%_ _%getf2283722864%_) - (if (gx#stx-pair? _%hd2283122861%_) - (let ((_%e2283422867%_ - (gx#syntax-e _%hd2283122861%_))) - (let ((_%lp-hd2283522871%_ + (##values-ref _g27311_ 1)))) + (if (gx#stx-null? _%tl2289522917%_) + (letrec ((_%loop2289622920%_ + (lambda (_%hd2289422924%_ _%getf2290022927%_) + (if (gx#stx-pair? _%hd2289422924%_) + (let ((_%e2289722930%_ + (gx#syntax-e _%hd2289422924%_))) + (let ((_%lp-hd2289822934%_ (let () (declare (not safe)) - (##car _%e2283422867%_))) - (_%lp-tl2283622874%_ + (##car _%e2289722930%_))) + (_%lp-tl2289922937%_ (let () (declare (not safe)) - (##cdr _%e2283422867%_)))) - (_%loop2283322857%_ - _%lp-tl2283622874%_ - (cons _%lp-hd2283522871%_ - _%getf2283722864%_)))) - (let ((_%getf2283822877%_ - (reverse _%getf2283722864%_))) - ((lambda (_%L22881%_) - (let* ((_%g2289822915%_ - (lambda (_%g2289922911%_) + (##cdr _%e2289722930%_)))) + (_%loop2289622920%_ + _%lp-tl2289922937%_ + (cons _%lp-hd2289822934%_ + _%getf2290022927%_)))) + (let ((_%getf2290122940%_ + (reverse _%getf2290022927%_))) + ((lambda (_%L22944%_) + (let* ((_%g2296122978%_ + (lambda (_%g2296222974%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2289922911%_))) - (_%g2289724741%_ - (lambda (_%g2289922919%_) + _%g2296222974%_))) + (_%g2296024804%_ + (lambda (_%g2296222982%_) (if (gx#stx-pair/null? - _%g2289922919%_) - (let ((_g27250_ + _%g2296222982%_) + (let ((_g27313_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2289922919%_ '0))) + (gx#syntax-split-splice _%g2296222982%_ '0))) (begin - (let ((_g27251_ + (let ((_g27314_ (let () (declare (not safe)) - (if (##values? _g27250_) - (##vector-length _g27250_) + (if (##values? _g27313_) + (##values-length _g27313_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27251_ 2))) - (error "Context expects 2 values" _g27251_))) - (let ((_%target2290122922%_ + (##fx= _g27314_ 2))) + (error "Context expects 2 values" _g27314_))) + (let ((_%target2296422985%_ (let () (declare (not safe)) - (##vector-ref _g27250_ 0))) - (_%tl2290322925%_ + (##values-ref _g27313_ 0))) + (_%tl2296622988%_ (let () (declare (not safe)) - (##vector-ref _g27250_ 1)))) - (if (gx#stx-null? _%tl2290322925%_) - (letrec ((_%loop2290422928%_ - (lambda (_%hd2290222932%_ - _%setf2290822935%_) - (if (gx#stx-pair? _%hd2290222932%_) - (let ((_%e2290522938%_ + (##values-ref _g27313_ 1)))) + (if (gx#stx-null? _%tl2296622988%_) + (letrec ((_%loop2296722991%_ + (lambda (_%hd2296522995%_ + _%setf2297122998%_) + (if (gx#stx-pair? _%hd2296522995%_) + (let ((_%e2296823001%_ (gx#syntax-e - _%hd2290222932%_))) - (let ((_%lp-hd2290622942%_ + _%hd2296522995%_))) + (let ((_%lp-hd2296923005%_ (let () (declare (not safe)) - (##car _%e2290522938%_))) - (_%lp-tl2290722945%_ + (##car _%e2296823001%_))) + (_%lp-tl2297023008%_ (let () (declare (not safe)) - (##cdr _%e2290522938%_)))) - (_%loop2290422928%_ - _%lp-tl2290722945%_ - (cons _%lp-hd2290622942%_ - _%setf2290822935%_)))) - (let ((_%setf2290922948%_ - (reverse _%setf2290822935%_))) - ((lambda (_%L22952%_) - (let* ((_%mixin-slots22969%_ - (_%get-mixin-slots22601%_ - _%super-ref22594%_ - _%slots22595%_)) - (_%g2297222989%_ - (lambda (_%g2297322985%_) + (##cdr _%e2296823001%_)))) + (_%loop2296722991%_ + _%lp-tl2297023008%_ + (cons _%lp-hd2296923005%_ + _%setf2297122998%_)))) + (let ((_%setf2297223011%_ + (reverse _%setf2297122998%_))) + ((lambda (_%L23015%_) + (let* ((_%mixin-slots23032%_ + (_%get-mixin-slots22664%_ + _%super-ref22657%_ + _%slots22658%_)) + (_%g2303523052%_ + (lambda (_%g2303623048%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2297322985%_))) - (_%g2297124737%_ - (lambda (_%g2297322993%_) + _%g2303623048%_))) + (_%g2303424800%_ + (lambda (_%g2303623056%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2297322993%_) - (let ((_g27252_ - (gx#syntax-split-splice _%g2297322993%_ '0))) + _%g2303623056%_) + (let ((_g27315_ + (gx#syntax-split-splice _%g2303623056%_ '0))) (begin - (let ((_g27253_ + (let ((_g27316_ (let () (declare (not safe)) - (if (##values? _g27252_) - (##vector-length _g27252_) + (if (##values? _g27315_) + (##values-length _g27315_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27253_ 2))) - (error "Context expects 2 values" _g27253_))) - (let ((_%target2297522996%_ + (##fx= _g27316_ 2))) + (error "Context expects 2 values" _g27316_))) + (let ((_%target2303823059%_ (let () (declare (not safe)) - (##vector-ref _g27252_ 0))) - (_%tl2297722999%_ + (##values-ref _g27315_ 0))) + (_%tl2304023062%_ (let () (declare (not safe)) - (##vector-ref _g27252_ 1)))) - (if (gx#stx-null? _%tl2297722999%_) - (letrec ((_%loop2297823002%_ - (lambda (_%hd2297623006%_ - _%mixin-slot2298223009%_) + (##values-ref _g27315_ 1)))) + (if (gx#stx-null? _%tl2304023062%_) + (letrec ((_%loop2304123065%_ + (lambda (_%hd2303923069%_ + _%mixin-slot2304523072%_) (if (gx#stx-pair? - _%hd2297623006%_) - (let ((_%e2297923012%_ + _%hd2303923069%_) + (let ((_%e2304223075%_ (gx#syntax-e - _%hd2297623006%_))) - (let ((_%lp-hd2298023016%_ + _%hd2303923069%_))) + (let ((_%lp-hd2304323079%_ (let () (declare (not safe)) - (##car _%e2297923012%_))) - (_%lp-tl2298123019%_ + (##car _%e2304223075%_))) + (_%lp-tl2304423082%_ (let () (declare (not safe)) - (##cdr _%e2297923012%_)))) - (_%loop2297823002%_ - _%lp-tl2298123019%_ - (cons _%lp-hd2298023016%_ - _%mixin-slot2298223009%_)))) - (let ((_%mixin-slot2298323022%_ - (reverse _%mixin-slot2298223009%_))) - ((lambda (_%L23026%_) - (let* ((_%g2304423061%_ - (lambda (_%g2304523057%_) + (##cdr _%e2304223075%_)))) + (_%loop2304123065%_ + _%lp-tl2304423082%_ + (cons _%lp-hd2304323079%_ + _%mixin-slot2304523072%_)))) + (let ((_%mixin-slot2304623085%_ + (reverse _%mixin-slot2304523072%_))) + ((lambda (_%L23089%_) + (let* ((_%g2310723124%_ + (lambda (_%g2310823120%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2304523057%_))) - (_%g2304324728%_ - (lambda (_%g2304523065%_) - (if (gx#stx-pair/null? _%g2304523065%_) - (let ((_g27254_ + _%g2310823120%_))) + (_%g2310624791%_ + (lambda (_%g2310823128%_) + (if (gx#stx-pair/null? _%g2310823128%_) + (let ((_g27317_ (gx#syntax-split-splice - _%g2304523065%_ + _%g2310823128%_ '0))) (begin - (let ((_g27255_ + (let ((_g27318_ (let () (declare (not safe)) - (if (##values? _g27254_) - (##vector-length _g27254_) + (if (##values? _g27317_) + (##values-length _g27317_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27255_ 2))) + (##fx= _g27318_ 2))) (error "Context expects 2 values" - _g27255_))) - (let ((_%target2304723068%_ + _g27318_))) + (let ((_%target2311023131%_ (let () (declare (not safe)) - (##vector-ref _g27254_ 0))) - (_%tl2304923071%_ + (##values-ref _g27317_ 0))) + (_%tl2311223134%_ (let () (declare (not safe)) - (##vector-ref _g27254_ 1)))) - (if (gx#stx-null? _%tl2304923071%_) - (letrec ((_%loop2305023074%_ - (lambda (_%hd2304823078%_ - _%mixin-getf2305423081%_) + (##values-ref _g27317_ 1)))) + (if (gx#stx-null? _%tl2311223134%_) + (letrec ((_%loop2311323137%_ + (lambda (_%hd2311123141%_ + _%mixin-getf2311723144%_) (if (gx#stx-pair? - _%hd2304823078%_) - (let ((_%e2305123084%_ + _%hd2311123141%_) + (let ((_%e2311423147%_ (gx#syntax-e - _%hd2304823078%_))) - (let ((_%lp-hd2305223088%_ + _%hd2311123141%_))) + (let ((_%lp-hd2311523151%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2305123084%_))) - (_%lp-tl2305323091%_ - (let () (declare (not safe)) (##cdr _%e2305123084%_)))) - (_%loop2305023074%_ - _%lp-tl2305323091%_ - (cons _%lp-hd2305223088%_ _%mixin-getf2305423081%_)))) - (let ((_%mixin-getf2305523094%_ - (reverse _%mixin-getf2305423081%_))) - ((lambda (_%L23098%_) - (let* ((_%g2311523132%_ - (lambda (_%g2311623128%_) + (##car _%e2311423147%_))) + (_%lp-tl2311623154%_ + (let () (declare (not safe)) (##cdr _%e2311423147%_)))) + (_%loop2311323137%_ + _%lp-tl2311623154%_ + (cons _%lp-hd2311523151%_ _%mixin-getf2311723144%_)))) + (let ((_%mixin-getf2311823157%_ + (reverse _%mixin-getf2311723144%_))) + ((lambda (_%L23161%_) + (let* ((_%g2317823195%_ + (lambda (_%g2317923191%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2311623128%_))) - (_%g2311424719%_ - (lambda (_%g2311623136%_) - (if (gx#stx-pair/null? _%g2311623136%_) - (let ((_g27256_ + _%g2317923191%_))) + (_%g2317724782%_ + (lambda (_%g2317923199%_) + (if (gx#stx-pair/null? _%g2317923199%_) + (let ((_g27319_ (gx#syntax-split-splice - _%g2311623136%_ + _%g2317923199%_ '0))) (begin - (let ((_g27257_ + (let ((_g27320_ (let () (declare (not safe)) - (if (##values? _g27256_) - (##vector-length _g27256_) + (if (##values? _g27319_) + (##values-length _g27319_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27257_ 2))) + (##fx= _g27320_ 2))) (error "Context expects 2 values" - _g27257_))) - (let ((_%target2311823139%_ + _g27320_))) + (let ((_%target2318123202%_ (let () (declare (not safe)) - (##vector-ref _g27256_ 0))) - (_%tl2312023142%_ + (##values-ref _g27319_ 0))) + (_%tl2318323205%_ (let () (declare (not safe)) - (##vector-ref _g27256_ 1)))) - (if (gx#stx-null? _%tl2312023142%_) - (letrec ((_%loop2312123145%_ - (lambda (_%hd2311923149%_ - _%mixin-setf2312523152%_) + (##values-ref _g27319_ 1)))) + (if (gx#stx-null? _%tl2318323205%_) + (letrec ((_%loop2318423208%_ + (lambda (_%hd2318223212%_ + _%mixin-setf2318823215%_) (if (gx#stx-pair? - _%hd2311923149%_) - (let ((_%e2312223155%_ + _%hd2318223212%_) + (let ((_%e2318523218%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd2311923149%_))) - (let ((_%lp-hd2312323159%_ + (gx#syntax-e _%hd2318223212%_))) + (let ((_%lp-hd2318623222%_ (let () (declare (not safe)) - (##car _%e2312223155%_))) - (_%lp-tl2312423162%_ + (##car _%e2318523218%_))) + (_%lp-tl2318723225%_ (let () (declare (not safe)) - (##cdr _%e2312223155%_)))) - (_%loop2312123145%_ - _%lp-tl2312423162%_ - (cons _%lp-hd2312323159%_ _%mixin-setf2312523152%_)))) - (let ((_%mixin-setf2312623165%_ - (reverse _%mixin-setf2312523152%_))) - ((lambda (_%L23169%_) - (let* ((_%g2318623203%_ - (lambda (_%g2318723199%_) + (##cdr _%e2318523218%_)))) + (_%loop2318423208%_ + _%lp-tl2318723225%_ + (cons _%lp-hd2318623222%_ _%mixin-setf2318823215%_)))) + (let ((_%mixin-setf2318923228%_ + (reverse _%mixin-setf2318823215%_))) + ((lambda (_%L23232%_) + (let* ((_%g2324923266%_ + (lambda (_%g2325023262%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2318723199%_))) - (_%g2318524702%_ - (lambda (_%g2318723207%_) - (if (gx#stx-pair/null? _%g2318723207%_) - (let ((_g27258_ + _%g2325023262%_))) + (_%g2324824765%_ + (lambda (_%g2325023270%_) + (if (gx#stx-pair/null? _%g2325023270%_) + (let ((_g27321_ (gx#syntax-split-splice - _%g2318723207%_ + _%g2325023270%_ '0))) (begin - (let ((_g27259_ + (let ((_g27322_ (let () (declare (not safe)) - (if (##values? _g27258_) - (##vector-length - _g27258_) + (if (##values? _g27321_) + (##values-length + _g27321_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27259_ 2))) + (##fx= _g27322_ 2))) (error "Context expects 2 values" - _g27259_))) - (let ((_%target2318923210%_ + _g27322_))) + (let ((_%target2325223273%_ (let () (declare (not safe)) - (##vector-ref _g27258_ 0))) - (_%tl2319123213%_ + (##values-ref _g27321_ 0))) + (_%tl2325423276%_ (let () (declare (not safe)) - (##vector-ref - _g27258_ + (##values-ref + _g27321_ 1)))) (if (gx#stx-null? - _%tl2319123213%_) - (letrec ((_%loop2319223216%_ - (lambda (_%hd2319023220%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ugetf2319623223%_) - (if (gx#stx-pair? _%hd2319023220%_) - (let ((_%e2319323226%_ - (gx#syntax-e _%hd2319023220%_))) - (let ((_%lp-hd2319423230%_ + _%tl2325423276%_) + (letrec ((_%loop2325523279%_ + (lambda (_%hd2325323283%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%ugetf2325923286%_) + (if (gx#stx-pair? _%hd2325323283%_) + (let ((_%e2325623289%_ + (gx#syntax-e _%hd2325323283%_))) + (let ((_%lp-hd2325723293%_ (let () (declare (not safe)) - (##car _%e2319323226%_))) - (_%lp-tl2319523233%_ + (##car _%e2325623289%_))) + (_%lp-tl2325823296%_ (let () (declare (not safe)) - (##cdr _%e2319323226%_)))) - (_%loop2319223216%_ - _%lp-tl2319523233%_ - (cons _%lp-hd2319423230%_ _%ugetf2319623223%_)))) - (let ((_%ugetf2319723236%_ - (reverse _%ugetf2319623223%_))) - ((lambda (_%L23240%_) - (let* ((_%g2325723274%_ - (lambda (_%g2325823270%_) + (##cdr _%e2325623289%_)))) + (_%loop2325523279%_ + _%lp-tl2325823296%_ + (cons _%lp-hd2325723293%_ _%ugetf2325923286%_)))) + (let ((_%ugetf2326023299%_ + (reverse _%ugetf2325923286%_))) + ((lambda (_%L23303%_) + (let* ((_%g2332023337%_ + (lambda (_%g2332123333%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2325823270%_))) - (_%g2325624685%_ - (lambda (_%g2325823278%_) - (if (gx#stx-pair/null? _%g2325823278%_) - (let ((_g27260_ + _%g2332123333%_))) + (_%g2331924748%_ + (lambda (_%g2332123341%_) + (if (gx#stx-pair/null? _%g2332123341%_) + (let ((_g27323_ (gx#syntax-split-splice - _%g2325823278%_ + _%g2332123341%_ '0))) (begin - (let ((_g27261_ + (let ((_g27324_ (let () (declare (not safe)) (if (##values? - _g27260_) - (##vector-length - _g27260_) + _g27323_) + (##values-length + _g27323_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27261_ + (##fx= _g27324_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g27261_))) + (error "Context expects 2 values" _g27324_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2326023281%_ + (let ((_%target2332323344%_ (let () (declare (not safe)) - (##vector-ref - _g27260_ + (##values-ref + _g27323_ 0))) - (_%tl2326223284%_ + (_%tl2332523347%_ (let () (declare (not safe)) - (##vector-ref - _g27260_ + (##values-ref + _g27323_ 1)))) (if (gx#stx-null? - _%tl2326223284%_) - (letrec ((_%loop2326323287%_ - (lambda (_%hd2326123291%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%usetf2326723294%_) - (if (gx#stx-pair? _%hd2326123291%_) - (let ((_%e2326423297%_ - (gx#syntax-e _%hd2326123291%_))) - (let ((_%lp-hd2326523301%_ + _%tl2332523347%_) + (letrec ((_%loop2332623350%_ + (lambda (_%hd2332423354%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%usetf2333023357%_) + (if (gx#stx-pair? _%hd2332423354%_) + (let ((_%e2332723360%_ + (gx#syntax-e _%hd2332423354%_))) + (let ((_%lp-hd2332823364%_ (let () (declare (not safe)) - (##car _%e2326423297%_))) - (_%lp-tl2326623304%_ + (##car _%e2332723360%_))) + (_%lp-tl2332923367%_ (let () (declare (not safe)) - (##cdr _%e2326423297%_)))) - (_%loop2326323287%_ - _%lp-tl2326623304%_ - (cons _%lp-hd2326523301%_ - _%usetf2326723294%_)))) - (let ((_%usetf2326823307%_ - (reverse _%usetf2326723294%_))) - ((lambda (_%L23311%_) - (let* ((_%g2332823345%_ - (lambda (_%g2332923341%_) + (##cdr _%e2332723360%_)))) + (_%loop2332623350%_ + _%lp-tl2332923367%_ + (cons _%lp-hd2332823364%_ + _%usetf2333023357%_)))) + (let ((_%usetf2333123370%_ + (reverse _%usetf2333023357%_))) + ((lambda (_%L23374%_) + (let* ((_%g2339123408%_ + (lambda (_%g2339223404%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2332923341%_))) - (_%g2332724668%_ - (lambda (_%g2332923349%_) + _%g2339223404%_))) + (_%g2339024731%_ + (lambda (_%g2339223412%_) (if (gx#stx-pair/null? - _%g2332923349%_) - (let ((_g27262_ + _%g2339223412%_) + (let ((_g27325_ (gx#syntax-split-splice - _%g2332923349%_ + _%g2339223412%_ '0))) (begin - (let ((_g27263_ + (let ((_g27326_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g27262_) - (##vector-length _g27262_) + _g27325_) + (##values-length _g27325_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27263_ 2))) - (error "Context expects 2 values" _g27263_))) + (if (not (let () (declare (not safe)) (##fx= _g27326_ 2))) + (error "Context expects 2 values" _g27326_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target2333123352%_ + (let ((_%target2339423415%_ (let () (declare (not safe)) - (##vector-ref - _g27262_ + (##values-ref + _g27325_ 0))) - (_%tl2333323355%_ + (_%tl2339623418%_ (let () (declare (not safe)) - (##vector-ref - _g27262_ + (##values-ref + _g27325_ 1)))) (if (gx#stx-null? - _%tl2333323355%_) - (letrec ((_%loop2333423358%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd2333223362%_ - _%mixin-ugetf2333823365%_) - (if (gx#stx-pair? _%hd2333223362%_) - (let ((_%e2333523368%_ - (gx#syntax-e _%hd2333223362%_))) - (let ((_%lp-hd2333623372%_ + _%tl2339623418%_) + (letrec ((_%loop2339723421%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd2339523425%_ + _%mixin-ugetf2340123428%_) + (if (gx#stx-pair? _%hd2339523425%_) + (let ((_%e2339823431%_ + (gx#syntax-e _%hd2339523425%_))) + (let ((_%lp-hd2339923435%_ (let () (declare (not safe)) - (##car _%e2333523368%_))) - (_%lp-tl2333723375%_ + (##car _%e2339823431%_))) + (_%lp-tl2340023438%_ (let () (declare (not safe)) - (##cdr _%e2333523368%_)))) - (_%loop2333423358%_ - _%lp-tl2333723375%_ - (cons _%lp-hd2333623372%_ - _%mixin-ugetf2333823365%_)))) - (let ((_%mixin-ugetf2333923378%_ - (reverse _%mixin-ugetf2333823365%_))) - ((lambda (_%L23382%_) - (let* ((_%g2339923416%_ - (lambda (_%g2340023412%_) + (##cdr _%e2339823431%_)))) + (_%loop2339723421%_ + _%lp-tl2340023438%_ + (cons _%lp-hd2339923435%_ + _%mixin-ugetf2340123428%_)))) + (let ((_%mixin-ugetf2340223441%_ + (reverse _%mixin-ugetf2340123428%_))) + ((lambda (_%L23445%_) + (let* ((_%g2346223479%_ + (lambda (_%g2346323475%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2340023412%_))) - (_%g2339824651%_ - (lambda (_%g2340023420%_) + _%g2346323475%_))) + (_%g2346124714%_ + (lambda (_%g2346323483%_) (if (gx#stx-pair/null? - _%g2340023420%_) - (let ((_g27264_ + _%g2346323483%_) + (let ((_g27327_ (gx#syntax-split-splice - _%g2340023420%_ + _%g2346323483%_ '0))) (begin - (let ((_g27265_ + (let ((_g27328_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27264_) - (##vector-length _g27264_) + (if (##values? _g27327_) + (##values-length _g27327_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27265_ 2))) - (error "Context expects 2 values" _g27265_))) - (let ((_%target2340223423%_ + (if (not (let () (declare (not safe)) (##fx= _g27328_ 2))) + (error "Context expects 2 values" _g27328_))) + (let ((_%target2346523486%_ (let () (declare (not safe)) - (##vector-ref _g27264_ 0))) - (_%tl2340423426%_ + (##values-ref _g27327_ 0))) + (_%tl2346723489%_ (let () (declare (not safe)) - (##vector-ref _g27264_ 1)))) - (if (gx#stx-null? _%tl2340423426%_) - (letrec ((_%loop2340523429%_ - (lambda (_%hd2340323433%_ - _%mixin-usetf2340923436%_) - (if (gx#stx-pair? _%hd2340323433%_) - (let ((_%e2340623439%_ - (gx#syntax-e _%hd2340323433%_))) - (let ((_%lp-hd2340723443%_ + (##values-ref _g27327_ 1)))) + (if (gx#stx-null? _%tl2346723489%_) + (letrec ((_%loop2346823492%_ + (lambda (_%hd2346623496%_ + _%mixin-usetf2347223499%_) + (if (gx#stx-pair? _%hd2346623496%_) + (let ((_%e2346923502%_ + (gx#syntax-e _%hd2346623496%_))) + (let ((_%lp-hd2347023506%_ (let () (declare (not safe)) - (##car _%e2340623439%_))) - (_%lp-tl2340823446%_ + (##car _%e2346923502%_))) + (_%lp-tl2347123509%_ (let () (declare (not safe)) - (##cdr _%e2340623439%_)))) - (_%loop2340523429%_ - _%lp-tl2340823446%_ - (cons _%lp-hd2340723443%_ - _%mixin-usetf2340923436%_)))) - (let ((_%mixin-usetf2341023449%_ - (reverse _%mixin-usetf2340923436%_))) - ((lambda (_%L23453%_) - (let* ((_%type-slots23488%_ + (##cdr _%e2346923502%_)))) + (_%loop2346823492%_ + _%lp-tl2347123509%_ + (cons _%lp-hd2347023506%_ + _%mixin-usetf2347223499%_)))) + (let ((_%mixin-usetf2347323512%_ + (reverse _%mixin-usetf2347223499%_))) + ((lambda (_%L23516%_) + (let* ((_%type-slots23551%_ (if (gx#stx-null? - _%slots22595%_) + _%slots22658%_) '() (cons 'slots: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L22952%_ - _%L22881%_ - _%L22810%_) - (foldr (lambda (_%g2347323478%_ - _%g2347423481%_ - _%g2347523483%_ - _%g2347623485%_) - (cons (cons _%g2347523483%_ - (cons _%g2347423481%_ - (cons _%g2347323478%_ + _%L23015%_ + _%L22944%_ + _%L22873%_) + (foldr (lambda (_%g2353623541%_ + _%g2353723544%_ + _%g2353823546%_ + _%g2353923548%_) + (cons (cons _%g2353823546%_ + (cons _%g2353723544%_ + (cons _%g2353623541%_ '()))) - _%g2347623485%_)) + _%g2353923548%_)) '() - _%L22952%_ - _%L22881%_ - _%L22810%_)) + _%L23015%_ + _%L22944%_ + _%L22873%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-mixin-slots23509%_ + (_%type-mixin-slots23572%_ (if (gx#stx-null? - _%mixin-slots22969%_) + _%mixin-slots23032%_) '() (cons 'mixin: (cons (begin ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#syntax-check-splice-targets - _%L23169%_ - _%L23098%_ - _%L23026%_) - (foldr (lambda (_%g2349423499%_ - _%g2349523502%_ - _%g2349623504%_ - _%g2349723506%_) - (cons (cons _%g2349623504%_ - (cons _%g2349523502%_ - (cons _%g2349423499%_ + _%L23232%_ + _%L23161%_ + _%L23089%_) + (foldr (lambda (_%g2355723562%_ + _%g2355823565%_ + _%g2355923567%_ + _%g2356023569%_) + (cons (cons _%g2355923567%_ + (cons _%g2355823565%_ + (cons _%g2355723562%_ '()))) - _%g2349723506%_)) + _%g2356023569%_)) '() - _%L23169%_ - _%L23098%_ - _%L23026%_)) + _%L23232%_ + _%L23161%_ + _%L23089%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-name23516%_ + (_%type-name23579%_ (cons 'name: - (cons (let ((_%$e23512%_ + (cons (let ((_%$e23575%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'name: _%body22596%_))) - (if _%$e23512%_ _%$e23512%_ _%id22593%_)) + (gx#stx-getq 'name: _%body22659%_))) + (if _%$e23575%_ _%$e23575%_ _%id22656%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-id23523%_ + (_%type-id23586%_ (cons 'id: - (cons (let ((_%$e23519%_ + (cons (let ((_%$e23582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'id: _%body22596%_))) - (if _%$e23519%_ - _%$e23519%_ + (gx#stx-getq 'id: _%body22659%_))) + (if _%$e23582%_ + _%$e23582%_ (let () (declare (not safe)) (|gerbil/core/mop~MOP-1[1]#make-class-type-id| - _%L22628%_)))) + _%L22691%_)))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-constructor23538%_ - (let ((_%$e23534%_ - (let ((_%e2352523527%_ + (_%type-constructor23601%_ + (let ((_%$e23597%_ + (let ((_%e2358823590%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'constructor: _%body22596%_))) - (if _%e2352523527%_ - (let ((_%e23531%_ _%e2352523527%_)) - (cons 'constructor: (cons _%e23531%_ '()))) + (gx#stx-getq 'constructor: _%body22659%_))) + (if _%e2358823590%_ + (let ((_%e23594%_ _%e2358823590%_)) + (cons 'constructor: (cons _%e23594%_ '()))) '#f)))) - (if _%$e23534%_ _%$e23534%_ '()))) + (if _%$e23597%_ _%$e23597%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%properties23576%_ - (let* ((_%properties23541%_ + (_%properties23639%_ + (let* ((_%properties23604%_ (if (gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-getq 'transparent: _%body22596%_)) + (gx#stx-getq 'transparent: _%body22659%_)) (cons (cons 'transparent: '#t) '()) '())) - (_%properties23556%_ - (let ((_%$e23544%_ - (gx#stx-e (gx#stx-getq 'print: _%body22596%_)))) - (if _%$e23544%_ - ((lambda (_%print23548%_) - (let ((_%print23551%_ - (if (eq? _%print23548%_ '#t) - _%slots22595%_ - _%print23548%_))) - (cons (cons 'print: _%print23551%_) - _%properties23541%_))) - _%$e23544%_) - _%properties23541%_))) - (_%properties23571%_ - (let ((_%$e23559%_ - (gx#stx-e (gx#stx-getq 'equal: _%body22596%_)))) - (if _%$e23559%_ - ((lambda (_%equal23563%_) - (let ((_%equal23566%_ - (if (eq? _%equal23563%_ '#t) - _%slots22595%_ - _%equal23563%_))) - (cons (cons 'equal: _%equal23566%_) - _%properties23556%_))) - _%$e23559%_) - _%properties23556%_)))) - _%properties23571%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-properties23617%_ - (if (null? _%properties23576%_) + (_%properties23619%_ + (let ((_%$e23607%_ + (gx#stx-e (gx#stx-getq 'print: _%body22659%_)))) + (if _%$e23607%_ + ((lambda (_%print23611%_) + (let ((_%print23614%_ + (if (eq? _%print23611%_ '#t) + _%slots22658%_ + _%print23611%_))) + (cons (cons 'print: _%print23614%_) + _%properties23604%_))) + _%$e23607%_) + _%properties23604%_))) + (_%properties23634%_ + (let ((_%$e23622%_ + (gx#stx-e (gx#stx-getq 'equal: _%body22659%_)))) + (if _%$e23622%_ + ((lambda (_%equal23626%_) + (let ((_%equal23629%_ + (if (eq? _%equal23626%_ '#t) + _%slots22658%_ + _%equal23626%_))) + (cons (cons 'equal: _%equal23629%_) + _%properties23619%_))) + _%$e23622%_) + _%properties23619%_)))) + _%properties23634%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%type-properties23680%_ + (if (null? _%properties23639%_) '() - (let* ((_%g2357923587%_ + (let* ((_%g2364223650%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2358023583%_) + (lambda (_%g2364323646%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2358023583%_))) - (_%g2357823613%_ - (lambda (_%g2358023591%_) - ((lambda (_%L23594%_) + _%g2364323646%_))) + (_%g2364123676%_ + (lambda (_%g2364323654%_) + ((lambda (_%L23657%_) (cons 'properties: (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L23594%_ '())) + (cons _%L23657%_ '())) '()))) - _%g2358023591%_)))) - (_%g2357823613%_ _%properties23576%_)))) + _%g2364323654%_)))) + (_%g2364123676%_ _%properties23639%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%metaclass23629%_ - (let ((_%$e23620%_ + (_%metaclass23692%_ + (let ((_%$e23683%_ (gx#stx-getq 'metaclass: - _%body22596%_))) - (if _%$e23620%_ - ((lambda (_%metaclass23624%_) + _%body22659%_))) + (if _%$e23683%_ + ((lambda (_%metaclass23687%_) (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%metaclass23624%_) - _%metaclass23624%_ + _%metaclass23687%_) + _%metaclass23687%_ '#f)) - _%$e23620%_) + _%$e23683%_) '#f))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-metaclass23632%_ - (if _%metaclass23629%_ + (_%type-metaclass23695%_ + (if _%metaclass23692%_ (cons 'metaclass: - (cons _%metaclass23629%_ + (cons _%metaclass23692%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%final?23635%_ + (_%final?23698%_ (gx#stx-e (gx#stx-getq 'final: - _%body22596%_))) - (_%type-struct23638%_ + _%body22659%_))) + (_%type-struct23701%_ (cons 'struct: - (cons _%struct?22610%_ + (cons _%struct?22673%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%type-final23641%_ + (_%type-final23704%_ (cons 'final: - (cons _%final?23635%_ + (cons _%final?23698%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2364423661%_ - (lambda (_%g2364523657%_) + (_%g2370723724%_ + (lambda (_%g2370823720%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2364523657%_))) - (_%g2364324647%_ - (lambda (_%g2364523665%_) + _%g2370823720%_))) + (_%g2370624710%_ + (lambda (_%g2370823728%_) (if (gx#stx-pair/null? - _%g2364523665%_) - (let ((_g27266_ + _%g2370823728%_) + (let ((_g27329_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g2364523665%_ '0))) + (gx#syntax-split-splice _%g2370823728%_ '0))) (begin - (let ((_g27267_ + (let ((_g27330_ (let () (declare (not safe)) - (if (##values? _g27266_) - (##vector-length _g27266_) + (if (##values? _g27329_) + (##values-length _g27329_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27267_ 2))) - (error "Context expects 2 values" _g27267_))) - (let ((_%target2364723668%_ + (##fx= _g27330_ 2))) + (error "Context expects 2 values" _g27330_))) + (let ((_%target2371023731%_ (let () (declare (not safe)) - (##vector-ref _g27266_ 0))) - (_%tl2364923671%_ + (##values-ref _g27329_ 0))) + (_%tl2371223734%_ (let () (declare (not safe)) - (##vector-ref _g27266_ 1)))) - (if (gx#stx-null? _%tl2364923671%_) - (letrec ((_%loop2365023674%_ - (lambda (_%hd2364823678%_ - _%type-body2365423681%_) - (if (gx#stx-pair? _%hd2364823678%_) - (let ((_%e2365123684%_ + (##values-ref _g27329_ 1)))) + (if (gx#stx-null? _%tl2371223734%_) + (letrec ((_%loop2371323737%_ + (lambda (_%hd2371123741%_ + _%type-body2371723744%_) + (if (gx#stx-pair? _%hd2371123741%_) + (let ((_%e2371423747%_ (gx#syntax-e - _%hd2364823678%_))) - (let ((_%lp-hd2365223688%_ + _%hd2371123741%_))) + (let ((_%lp-hd2371523751%_ (let () (declare (not safe)) - (##car _%e2365123684%_))) - (_%lp-tl2365323691%_ + (##car _%e2371423747%_))) + (_%lp-tl2371623754%_ (let () (declare (not safe)) - (##cdr _%e2365123684%_)))) - (_%loop2365023674%_ - _%lp-tl2365323691%_ - (cons _%lp-hd2365223688%_ - _%type-body2365423681%_)))) - (let ((_%type-body2365523694%_ - (reverse _%type-body2365423681%_))) - ((lambda (_%L23698%_) - (let* ((_%g2371923727%_ - (lambda (_%g2372023723%_) + (##cdr _%e2371423747%_)))) + (_%loop2371323737%_ + _%lp-tl2371623754%_ + (cons _%lp-hd2371523751%_ + _%type-body2371723744%_)))) + (let ((_%type-body2371823757%_ + (reverse _%type-body2371723744%_))) + ((lambda (_%L23761%_) + (let* ((_%g2378223790%_ + (lambda (_%g2378323786%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2372023723%_))) - (_%g2371824635%_ - (lambda (_%g2372023731%_) - ((lambda (_%L23734%_) - (let* ((_%g2374723755%_ + _%g2378323786%_))) + (_%g2378124698%_ + (lambda (_%g2378323794%_) + ((lambda (_%L23797%_) + (let* ((_%g2381023818%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2374823751%_) + (lambda (_%g2381123814%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2374823751%_))) - (_%g2374624564%_ - (lambda (_%g2374823759%_) - ((lambda (_%L23762%_) - (let* ((_%g2377523783%_ - (lambda (_%g2377623779%_) + _%g2381123814%_))) + (_%g2380924627%_ + (lambda (_%g2381123822%_) + ((lambda (_%L23825%_) + (let* ((_%g2383823846%_ + (lambda (_%g2383923842%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2377623779%_))) - (_%g2377424529%_ - (lambda (_%g2377623787%_) - ((lambda (_%L23790%_) - (let* ((_%g2380323811%_ - (lambda (_%g2380423807%_) + _%g2383923842%_))) + (_%g2383724592%_ + (lambda (_%g2383923850%_) + ((lambda (_%L23853%_) + (let* ((_%g2386623874%_ + (lambda (_%g2386723870%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2380423807%_))) - (_%g2380224443%_ - (lambda (_%g2380423815%_) - ((lambda (_%L23818%_) - (let* ((_%g2383123839%_ + _%g2386723870%_))) + (_%g2386524506%_ + (lambda (_%g2386723878%_) + ((lambda (_%L23881%_) + (let* ((_%g2389423902%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2383223835%_) + (lambda (_%g2389523898%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2383223835%_))) - (_%g2383024431%_ - (lambda (_%g2383223843%_) - ((lambda (_%L23846%_) - (let* ((_%g2385923867%_ - (lambda (_%g2386023863%_) + _%g2389523898%_))) + (_%g2389324494%_ + (lambda (_%g2389523906%_) + ((lambda (_%L23909%_) + (let* ((_%g2392223930%_ + (lambda (_%g2392323926%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2386023863%_))) - (_%g2385824427%_ - (lambda (_%g2386023871%_) - ((lambda (_%L23874%_) - (let* ((_%g2388723895%_ - (lambda (_%g2388823891%_) + _%g2392323926%_))) + (_%g2392124490%_ + (lambda (_%g2392323934%_) + ((lambda (_%L23937%_) + (let* ((_%g2395023958%_ + (lambda (_%g2395123954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2388823891%_))) - (_%g2388624423%_ - (lambda (_%g2388823899%_) - ((lambda (_%L23902%_) - (let* ((_%g2391523923%_ + _%g2395123954%_))) + (_%g2394924486%_ + (lambda (_%g2395123962%_) + ((lambda (_%L23965%_) + (let* ((_%g2397823986%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2391623919%_) + (lambda (_%g2397923982%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2391623919%_))) - (_%g2391424388%_ - (lambda (_%g2391623927%_) - ((lambda (_%L23930%_) - (let* ((_%g2394323951%_ - (lambda (_%g2394423947%_) + _%g2397923982%_))) + (_%g2397724451%_ + (lambda (_%g2397923990%_) + ((lambda (_%L23993%_) + (let* ((_%g2400624014%_ + (lambda (_%g2400724010%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2394423947%_))) - (_%g2394224317%_ - (lambda (_%g2394423955%_) - ((lambda (_%L23958%_) - (let* ((_%g2397123979%_ - (lambda (_%g2397223975%_) + _%g2400724010%_))) + (_%g2400524380%_ + (lambda (_%g2400724018%_) + ((lambda (_%L24021%_) + (let* ((_%g2403424042%_ + (lambda (_%g2403524038%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2397223975%_))) - (_%g2397024313%_ - (lambda (_%g2397223983%_) - ((lambda (_%L23986%_) - (let* ((_%g2399924007%_ + _%g2403524038%_))) + (_%g2403324376%_ + (lambda (_%g2403524046%_) + ((lambda (_%L24049%_) + (let* ((_%g2406224070%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2400024003%_) + (lambda (_%g2406324066%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2400024003%_))) - (_%g2399824309%_ - (lambda (_%g2400024011%_) - ((lambda (_%L24014%_) - (let* ((_%g2402724035%_ - (lambda (_%g2402824031%_) + _%g2406324066%_))) + (_%g2406124372%_ + (lambda (_%g2406324074%_) + ((lambda (_%L24077%_) + (let* ((_%g2409024098%_ + (lambda (_%g2409124094%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2402824031%_))) - (_%g2402624305%_ - (lambda (_%g2402824039%_) - ((lambda (_%L24042%_) - (let* ((_%g2405524063%_ - (lambda (_%g2405624059%_) + _%g2409124094%_))) + (_%g2408924368%_ + (lambda (_%g2409124102%_) + ((lambda (_%L24105%_) + (let* ((_%g2411824126%_ + (lambda (_%g2411924122%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2405624059%_))) - (_%g2405424279%_ - (lambda (_%g2405624067%_) - ((lambda (_%L24070%_) - (let* ((_%g2408324091%_ + _%g2411924122%_))) + (_%g2411724342%_ + (lambda (_%g2411924130%_) + ((lambda (_%L24133%_) + (let* ((_%g2414624154%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2408424087%_) + (lambda (_%g2414724150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2408424087%_))) - (_%g2408224253%_ - (lambda (_%g2408424095%_) - ((lambda (_%L24098%_) - (let* ((_%g2411124119%_ - (lambda (_%g2411224115%_) + _%g2414724150%_))) + (_%g2414524316%_ + (lambda (_%g2414724158%_) + ((lambda (_%L24161%_) + (let* ((_%g2417424182%_ + (lambda (_%g2417524178%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2411224115%_))) - (_%g2411024227%_ - (lambda (_%g2411224123%_) - ((lambda (_%L24126%_) - (let* ((_%g2413924147%_ - (lambda (_%g2414024143%_) + _%g2417524178%_))) + (_%g2417324290%_ + (lambda (_%g2417524186%_) + ((lambda (_%L24189%_) + (let* ((_%g2420224210%_ + (lambda (_%g2420324206%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2414024143%_))) - (_%g2413824201%_ - (lambda (_%g2414024151%_) - ((lambda (_%L24154%_) - (let* ((_%g2416724175%_ + _%g2420324206%_))) + (_%g2420124264%_ + (lambda (_%g2420324214%_) + ((lambda (_%L24217%_) + (let* ((_%g2423024238%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2416824171%_) + (lambda (_%g2423124234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2416824171%_))) - (_%g2416624197%_ - (lambda (_%g2416824179%_) - ((lambda (_%L24182%_) - (_%wrap22598%_ + _%g2423124234%_))) + (_%g2422924260%_ + (lambda (_%g2423124242%_) + ((lambda (_%L24245%_) + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L23734%_ - (cons _%L24182%_ '()))))) - _%g2416824179%_)))) - (_%g2416624197%_ - (_%wrap22598%_ + (cons _%L23797%_ + (cons _%L24245%_ '()))))) + _%g2423124242%_)))) + (_%g2422924260%_ + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L22628%_ + (cons _%L22691%_ (cons (cons (gx#datum->syntax '#f 'make-class-type-info) (cons 'id: - (cons _%L23762%_ + (cons _%L23825%_ (cons 'name: - (cons _%L23790%_ + (cons _%L23853%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'slots: - (cons _%L23846%_ + (cons _%L23909%_ (cons 'super: - (cons _%L23818%_ + (cons _%L23881%_ (cons 'struct?: - (cons _%L23874%_ + (cons _%L23937%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'final?: - (cons _%L23902%_ + (cons _%L23965%_ (cons 'metaclass: - (cons _%L23930%_ + (cons _%L23993%_ (cons 'constructor-method: - (cons _%L23958%_ + (cons _%L24021%_ (cons 'type-descriptor: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L23986%_ + (cons _%L24049%_ (cons 'constructor: - (cons _%L24014%_ + (cons _%L24077%_ (cons 'predicate: - (cons _%L24042%_ + (cons _%L24105%_ (cons 'accessors: - (cons _%L24070%_ + (cons _%L24133%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'mutators: - (cons _%L24098%_ + (cons _%L24161%_ (cons 'unchecked-accessors: - (cons _%L24126%_ + (cons _%L24189%_ (cons 'unchecked-mutators: - (cons _%L24154%_ + (cons _%L24217%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))))))))))))))))))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1217,140 +1217,140 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - _%g2414024151%_)))) + _%g2420324214%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2413824201%_ + (_%g2420124264%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23311%_ - _%L22810%_) - (foldr (lambda (_%g2420424211%_ + _%L23374%_ + _%L22873%_) + (foldr (lambda (_%g2426724274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2420524214%_ - _%g2420624216%_) + _%g2426824277%_ + _%g2426924279%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2420524214%_ '())) + (cons _%g2426824277%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2420424211%_ + (cons _%g2426724274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2420624216%_)) + _%g2426924279%_)) (begin - (gx#syntax-check-splice-targets _%L23453%_ _%L23026%_) - (foldr (lambda (_%g2420724219%_ - _%g2420824222%_ - _%g2420924224%_) + (gx#syntax-check-splice-targets _%L23516%_ _%L23089%_) + (foldr (lambda (_%g2427024282%_ + _%g2427124285%_ + _%g2427224287%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2420824222%_ + (cons _%g2427124285%_ '())) (cons ':: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2420724219%_ '())) + (cons _%g2427024282%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2420924224%_)) + _%g2427224287%_)) '() - _%L23453%_ - _%L23026%_)) - _%L23311%_ - _%L22810%_)))))) + _%L23516%_ + _%L23089%_)) + _%L23374%_ + _%L22873%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2411224123%_)))) - (_%g2411024227%_ + _%g2417524186%_)))) + (_%g2417324290%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L23240%_ - _%L22810%_) - (foldr (lambda (_%g2423024237%_ - _%g2423124240%_ - _%g2423224242%_) + _%L23303%_ + _%L22873%_) + (foldr (lambda (_%g2429324300%_ + _%g2429424303%_ + _%g2429524305%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2423124240%_ '())) + (cons _%g2429424303%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2423024237%_ '())) + (cons _%g2429324300%_ '())) '())))) - _%g2423224242%_)) + _%g2429524305%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L23382%_ - _%L23026%_) - (foldr (lambda (_%g2423324245%_ + _%L23445%_ + _%L23089%_) + (foldr (lambda (_%g2429624308%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2423424248%_ - _%g2423524250%_) + _%g2429724311%_ + _%g2429824313%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2423424248%_ '())) + (cons _%g2429724311%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2423324245%_ + (cons _%g2429624308%_ '())) '())))) - _%g2423524250%_)) + _%g2429824313%_)) '() - _%L23382%_ - _%L23026%_)) + _%L23445%_ + _%L23089%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%L23240%_ - _%L22810%_)))))) - _%g2408424095%_)))) - (_%g2408224253%_ + _%L23303%_ + _%L22873%_)))))) + _%g2414724158%_)))) + (_%g2414524316%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22952%_ - _%L22810%_) - (foldr (lambda (_%g2425624263%_ - _%g2425724266%_ - _%g2425824268%_) + _%L23015%_ + _%L22873%_) + (foldr (lambda (_%g2431924326%_ + _%g2432024329%_ + _%g2432124331%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2425724266%_ + (cons _%g2432024329%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2425624263%_ '())) + (cons _%g2431924326%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2425824268%_)) + _%g2432124331%_)) (begin (gx#syntax-check-splice-targets - _%L23169%_ - _%L23026%_) - (foldr (lambda (_%g2425924271%_ - _%g2426024274%_ - _%g2426124276%_) + _%L23232%_ + _%L23089%_) + (foldr (lambda (_%g2432224334%_ + _%g2432324337%_ + _%g2432424339%_) (cons (cons (gx#datum->syntax '#f '@list) @@ -1358,59 +1358,59 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g2426024274%_ '())) + (cons _%g2432324337%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2425924271%_ '())) + (cons _%g2432224334%_ '())) '())))) - _%g2426124276%_)) + _%g2432424339%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L23169%_ - _%L23026%_)) - _%L22952%_ - _%L22810%_)))))) - _%g2405624067%_)))) + _%L23232%_ + _%L23089%_)) + _%L23015%_ + _%L22873%_)))))) + _%g2411924130%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2405424279%_ + (_%g2411724342%_ (cons (gx#datum->syntax '#f '@list) (begin (gx#syntax-check-splice-targets - _%L22881%_ - _%L22810%_) - (foldr (lambda (_%g2428224289%_ + _%L22944%_ + _%L22873%_) + (foldr (lambda (_%g2434524352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2428324292%_ - _%g2428424294%_) + _%g2434624355%_ + _%g2434724357%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2428324292%_ '())) + (cons _%g2434624355%_ '())) (cons ':: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2428224289%_ + (cons _%g2434524352%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2428424294%_)) + _%g2434724357%_)) (begin (gx#syntax-check-splice-targets - _%L23098%_ - _%L23026%_) - (foldr (lambda (_%g2428524297%_ - _%g2428624300%_ - _%g2428724302%_) + _%L23161%_ + _%L23089%_) + (foldr (lambda (_%g2434824360%_ + _%g2434924363%_ + _%g2435024365%_) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g2428624300%_ + (cons _%g2434924363%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1419,298 +1419,298 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%g2428524297%_ '())) + (cons _%g2434824360%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2428724302%_)) + _%g2435024365%_)) '() - _%L23098%_ - _%L23026%_)) - _%L22881%_ - _%L22810%_)))))) + _%L23161%_ + _%L23089%_)) + _%L22944%_ + _%L22873%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2402824039%_)))) - (_%g2402624305%_ + _%g2409124102%_)))) + (_%g2408924368%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22715%_ '()))))) - _%g2400024011%_)))) - (_%g2399824309%_ + (cons _%L22778%_ '()))))) + _%g2406324074%_)))) + (_%g2406124372%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22687%_ '()))))) - _%g2397223983%_)))) + (cons _%L22750%_ '()))))) + _%g2403524046%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2397024313%_ + (_%g2403324376%_ (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L22659%_ + (cons _%L22722%_ '()))))) - _%g2394423955%_)))) - (_%g2394224317%_ - (if (null? _%type-constructor23538%_) + _%g2400724018%_)))) + (_%g2400524380%_ + (if (null? _%type-constructor23601%_) '#f - (let* ((_%g2432124336%_ - (lambda (_%g2432224332%_) + (let* ((_%g2438424399%_ + (lambda (_%g2438524395%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2432224332%_))) - (_%g2432024384%_ - (lambda (_%g2432224340%_) + _%g2438524395%_))) + (_%g2438324447%_ + (lambda (_%g2438524403%_) (if (gx#stx-pair? - _%g2432224340%_) - (let ((_%e2432424343%_ + _%g2438524403%_) + (let ((_%e2438724406%_ (gx#syntax-e - _%g2432224340%_))) - (let ((_%hd2432524347%_ + _%g2438524403%_))) + (let ((_%hd2438824410%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e2432424343%_))) - (_%tl2432624350%_ - (let () (declare (not safe)) (##cdr _%e2432424343%_)))) - (if (gx#stx-datum? _%hd2432524347%_) - (let ((_%e2432724353%_ (gx#stx-e _%hd2432524347%_))) - (if (equal? _%e2432724353%_ 'constructor:) - (if (gx#stx-pair? _%tl2432624350%_) - (let ((_%e2432824357%_ - (gx#syntax-e _%tl2432624350%_))) - (let ((_%hd2432924361%_ + (##car _%e2438724406%_))) + (_%tl2438924413%_ + (let () (declare (not safe)) (##cdr _%e2438724406%_)))) + (if (gx#stx-datum? _%hd2438824410%_) + (let ((_%e2439024416%_ (gx#stx-e _%hd2438824410%_))) + (if (equal? _%e2439024416%_ 'constructor:) + (if (gx#stx-pair? _%tl2438924413%_) + (let ((_%e2439124420%_ + (gx#syntax-e _%tl2438924413%_))) + (let ((_%hd2439224424%_ (let () (declare (not safe)) - (##car _%e2432824357%_))) - (_%tl2433024364%_ + (##car _%e2439124420%_))) + (_%tl2439324427%_ (let () (declare (not safe)) - (##cdr _%e2432824357%_)))) - (if (gx#stx-null? _%tl2433024364%_) - ((lambda (_%L24367%_) + (##cdr _%e2439124420%_)))) + (if (gx#stx-null? _%tl2439324427%_) + ((lambda (_%L24430%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24367%_ '()))) - _%hd2432924361%_) - (_%g2432124336%_ _%g2432224340%_)))) - (_%g2432124336%_ _%g2432224340%_)) - (_%g2432124336%_ _%g2432224340%_))) - (_%g2432124336%_ _%g2432224340%_)))) - (_%g2432124336%_ _%g2432224340%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2432024384%_ - _%type-constructor23538%_)))))) - _%g2391623927%_)))) - (_%g2391424388%_ - (if _%metaclass23629%_ - (let* ((_%g2439224400%_ - (lambda (_%g2439324396%_) + (cons _%L24430%_ '()))) + _%hd2439224424%_) + (_%g2438424399%_ _%g2438524403%_)))) + (_%g2438424399%_ _%g2438524403%_)) + (_%g2438424399%_ _%g2438524403%_))) + (_%g2438424399%_ _%g2438524403%_)))) + (_%g2438424399%_ _%g2438524403%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2438324447%_ + _%type-constructor23601%_)))))) + _%g2397923990%_)))) + (_%g2397724451%_ + (if _%metaclass23692%_ + (let* ((_%g2445524463%_ + (lambda (_%g2445624459%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2439324396%_))) - (_%g2439124419%_ - (lambda (_%g2439324404%_) - ((lambda (_%L24407%_) + _%g2445624459%_))) + (_%g2445424482%_ + (lambda (_%g2445624467%_) + ((lambda (_%L24470%_) (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L24407%_ '()))) - _%g2439324404%_)))) - (_%g2439124419%_ _%metaclass23629%_)) + (cons _%L24470%_ '()))) + _%g2445624467%_)))) + (_%g2445424482%_ _%metaclass23692%_)) '#f)))) - _%g2388823899%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2388624423%_ - _%final?23635%_))) - _%g2386023871%_)))) - (_%g2385824427%_ _%struct?22610%_))) - _%g2383223843%_)))) - (_%g2383024431%_ + _%g2395123962%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2394924486%_ + _%final?23698%_))) + _%g2392323934%_)))) + (_%g2392124490%_ _%struct?22673%_))) + _%g2389523906%_)))) + (_%g2389324494%_ (cons (gx#datum->syntax '#f 'quote) - (cons (foldr (lambda (_%g2443424437%_ - _%g2443524440%_) - (cons _%g2443424437%_ - _%g2443524440%_)) + (cons (foldr (lambda (_%g2449724500%_ + _%g2449824503%_) + (cons _%g2449724500%_ + _%g2449824503%_)) '() - _%L22810%_) + _%L22873%_) '()))))) - _%g2380423815%_)))) + _%g2386723878%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2380224443%_ - (let* ((_%g2444724464%_ - (lambda (_%g2444824460%_) + (_%g2386524506%_ + (let* ((_%g2451024527%_ + (lambda (_%g2451124523%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2444824460%_))) - (_%g2444624525%_ - (lambda (_%g2444824468%_) + _%g2451124523%_))) + (_%g2450924588%_ + (lambda (_%g2451124531%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2444824468%_) - (let ((_g27268_ - (gx#syntax-split-splice _%g2444824468%_ '0))) + _%g2451124531%_) + (let ((_g27331_ + (gx#syntax-split-splice _%g2451124531%_ '0))) (begin - (let ((_g27269_ + (let ((_g27332_ (let () (declare (not safe)) - (if (##values? _g27268_) - (##vector-length _g27268_) + (if (##values? _g27331_) + (##values-length _g27331_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27269_ 2))) + (##fx= _g27332_ 2))) (error "Context expects 2 values" - _g27269_))) - (let ((_%target2445024471%_ + _g27332_))) + (let ((_%target2451324534%_ (let () (declare (not safe)) - (##vector-ref _g27268_ 0))) - (_%tl2445224474%_ + (##values-ref _g27331_ 0))) + (_%tl2451524537%_ (let () (declare (not safe)) - (##vector-ref _g27268_ 1)))) - (if (gx#stx-null? _%tl2445224474%_) - (letrec ((_%loop2445324477%_ - (lambda (_%hd2445124481%_ - _%super-id2445724484%_) + (##values-ref _g27331_ 1)))) + (if (gx#stx-null? _%tl2451524537%_) + (letrec ((_%loop2451624540%_ + (lambda (_%hd2451424544%_ + _%super-id2452024547%_) (if (gx#stx-pair? - _%hd2445124481%_) - (let ((_%e2445424487%_ + _%hd2451424544%_) + (let ((_%e2451724550%_ (gx#syntax-e - _%hd2445124481%_))) - (let ((_%lp-hd2445524491%_ + _%hd2451424544%_))) + (let ((_%lp-hd2451824554%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e2445424487%_))) - (_%lp-tl2445624494%_ - (let () (declare (not safe)) (##cdr _%e2445424487%_)))) - (_%loop2445324477%_ - _%lp-tl2445624494%_ - (cons _%lp-hd2445524491%_ _%super-id2445724484%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%super-id2445824497%_ - (reverse _%super-id2445724484%_))) - ((lambda (_%L24501%_) + (##car _%e2451724550%_))) + (_%lp-tl2451924557%_ + (let () (declare (not safe)) (##cdr _%e2451724550%_)))) + (_%loop2451624540%_ + _%lp-tl2451924557%_ + (cons _%lp-hd2451824554%_ _%super-id2452024547%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%super-id2452124560%_ + (reverse _%super-id2452024547%_))) + ((lambda (_%L24564%_) (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2451624519%_ + (foldr (lambda (_%g2457924582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2451724522%_) + _%g2458024585%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2451624519%_ '())) - _%g2451724522%_)) + (cons _%g2457924582%_ '())) + _%g2458024585%_)) '() - _%L24501%_))) - _%super-id2445824497%_)))))) + _%L24564%_))) + _%super-id2452124560%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2445324477%_ - _%target2445024471%_ + (_%loop2451624540%_ + _%target2451324534%_ '())) - (_%g2444724464%_ _%g2444824468%_))))) - (_%g2444724464%_ _%g2444824468%_))))) - (_%g2444624525%_ _%super-ref22594%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2377623787%_)))) - (_%g2377424529%_ - (let* ((_%g2453324541%_ - (lambda (_%g2453424537%_) + (_%g2451024527%_ _%g2451124531%_))))) + (_%g2451024527%_ _%g2451124531%_))))) + (_%g2450924588%_ _%super-ref22657%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g2383923850%_)))) + (_%g2383724592%_ + (let* ((_%g2459624604%_ + (lambda (_%g2459724600%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2453424537%_))) - (_%g2453224560%_ - (lambda (_%g2453424545%_) - ((lambda (_%L24548%_) + _%g2459724600%_))) + (_%g2459524623%_ + (lambda (_%g2459724608%_) + ((lambda (_%L24611%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24548%_ + (cons _%L24611%_ '()))) - _%g2453424545%_)))) - (_%g2453224560%_ - (cadr _%type-name23516%_)))))) - _%g2374823759%_)))) - (_%g2374624564%_ - (let* ((_%g2456824583%_ - (lambda (_%g2456924579%_) + _%g2459724608%_)))) + (_%g2459524623%_ + (cadr _%type-name23579%_)))))) + _%g2381123822%_)))) + (_%g2380924627%_ + (let* ((_%g2463124646%_ + (lambda (_%g2463224642%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2456924579%_))) - (_%g2456724631%_ - (lambda (_%g2456924587%_) - (if (gx#stx-pair? _%g2456924587%_) - (let ((_%e2457124590%_ - (gx#syntax-e _%g2456924587%_))) - (let ((_%hd2457224594%_ + _%g2463224642%_))) + (_%g2463024694%_ + (lambda (_%g2463224650%_) + (if (gx#stx-pair? _%g2463224650%_) + (let ((_%e2463424653%_ + (gx#syntax-e _%g2463224650%_))) + (let ((_%hd2463524657%_ (let () (declare (not safe)) - (##car _%e2457124590%_))) - (_%tl2457324597%_ + (##car _%e2463424653%_))) + (_%tl2463624660%_ (let () (declare (not safe)) - (##cdr _%e2457124590%_)))) + (##cdr _%e2463424653%_)))) (if (gx#stx-datum? - _%hd2457224594%_) - (let ((_%e2457424600%_ + _%hd2463524657%_) + (let ((_%e2463724663%_ (gx#stx-e - _%hd2457224594%_))) - (if (equal? _%e2457424600%_ + _%hd2463524657%_))) + (if (equal? _%e2463724663%_ 'id:) (if (gx#stx-pair? - _%tl2457324597%_) - (let ((_%e2457524604%_ + _%tl2463624660%_) + (let ((_%e2463824667%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2457324597%_))) - (let ((_%hd2457624608%_ + (gx#syntax-e _%tl2463624660%_))) + (let ((_%hd2463924671%_ (let () (declare (not safe)) - (##car _%e2457524604%_))) - (_%tl2457724611%_ + (##car _%e2463824667%_))) + (_%tl2464024674%_ (let () (declare (not safe)) - (##cdr _%e2457524604%_)))) - (if (gx#stx-null? _%tl2457724611%_) - ((lambda (_%L24614%_) + (##cdr _%e2463824667%_)))) + (if (gx#stx-null? _%tl2464024674%_) + ((lambda (_%L24677%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L24614%_ '()))) - _%hd2457624608%_) - (_%g2456824583%_ _%g2456924587%_)))) - (_%g2456824583%_ _%g2456924587%_)) - (_%g2456824583%_ _%g2456924587%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2456824583%_ - _%g2456924587%_)))) - (_%g2456824583%_ _%g2456924587%_))))) - (_%g2456724631%_ _%type-id23523%_))))) - _%g2372023731%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2371824635%_ - (_%wrap22598%_ + (cons _%L24677%_ '()))) + _%hd2463924671%_) + (_%g2463124646%_ _%g2463224650%_)))) + (_%g2463124646%_ _%g2463224650%_)) + (_%g2463124646%_ _%g2463224650%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2463124646%_ + _%g2463224650%_)))) + (_%g2463124646%_ _%g2463224650%_))))) + (_%g2463024694%_ _%type-id23586%_))))) + _%g2378323794%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2378124698%_ + (_%wrap22661%_ (cons (gx#datum->syntax '#f 'defclass-type) - (cons _%L22659%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L22743%_ - (cons _%L22687%_ - (cons _%L22715%_ - (foldr (lambda (_%g2463824641%_ - _%g2463924644%_) - (cons _%g2463824641%_ - _%g2463924644%_)) + (cons _%L22722%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L22806%_ + (cons _%L22750%_ + (cons _%L22778%_ + (foldr (lambda (_%g2470124704%_ + _%g2470224707%_) + (cons _%g2470124704%_ + _%g2470224707%_)) '() - _%L23698%_)))))))))) + _%L23761%_)))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%type-body2365523694%_)))))) - (_%loop2365023674%_ _%target2364723668%_ '())) - (_%g2364423661%_ _%g2364523665%_))))) - (_%g2364423661%_ _%g2364523665%_))))) + _%type-body2371823757%_)))))) + (_%loop2371323737%_ _%target2371023731%_ '())) + (_%g2370723724%_ _%g2370823728%_))))) + (_%g2370723724%_ _%g2370823728%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2364324647%_ + (_%g2370624710%_ (foldr cons (foldr cons (foldr cons @@ -1720,564 +1720,564 @@ (foldr cons (foldr cons (foldr cons - _%type-mixin-slots23509%_ - _%type-slots23488%_) - _%type-properties23617%_) - _%type-metaclass23632%_) - _%type-final23641%_) - _%type-struct23638%_) - _%type-constructor23538%_) - _%type-name23516%_) - _%type-id23523%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-usetf2341023449%_)))))) - (_%loop2340523429%_ _%target2340223423%_ '())) - (_%g2339923416%_ _%g2340023420%_))))) - (_%g2339923416%_ _%g2340023420%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2339824651%_ + _%type-mixin-slots23572%_ + _%type-slots23551%_) + _%type-properties23680%_) + _%type-metaclass23695%_) + _%type-final23704%_) + _%type-struct23701%_) + _%type-constructor23601%_) + _%type-name23579%_) + _%type-id23586%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%mixin-usetf2347323512%_)))))) + (_%loop2346823492%_ _%target2346523486%_ '())) + (_%g2346223479%_ _%g2346323483%_))))) + (_%g2346223479%_ _%g2346323483%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2346124714%_ (gx#stx-map - (lambda (_%g2465424656%_) - (_%make-id22600%_ + (lambda (_%g2471724719%_) + (_%make-id22663%_ '"&" - _%g2465424656%_)) - (foldr (lambda (_%g2465924662%_ - _%g2466024665%_) - (cons _%g2465924662%_ - _%g2466024665%_)) + _%g2471724719%_)) + (foldr (lambda (_%g2472224725%_ + _%g2472324728%_) + (cons _%g2472224725%_ + _%g2472324728%_)) '() - _%L23169%_))))) - _%mixin-ugetf2333923378%_)))))) - (_%loop2333423358%_ _%target2333123352%_ '())) - (_%g2332823345%_ _%g2332923349%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2332823345%_ - _%g2332923349%_))))) - (_%g2332724668%_ + _%L23232%_))))) + _%mixin-ugetf2340223441%_)))))) + (_%loop2339723421%_ _%target2339423415%_ '())) + (_%g2339123408%_ _%g2339223412%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2339123408%_ + _%g2339223412%_))))) + (_%g2339024731%_ (gx#stx-map - (lambda (_%g2467124673%_) - (_%make-id22600%_ + (lambda (_%g2473424736%_) + (_%make-id22663%_ '"&" - _%g2467124673%_)) - (foldr (lambda (_%g2467624679%_ - _%g2467724682%_) - (cons _%g2467624679%_ - _%g2467724682%_)) + _%g2473424736%_)) + (foldr (lambda (_%g2473924742%_ + _%g2474024745%_) + (cons _%g2473924742%_ + _%g2474024745%_)) '() - _%L23098%_))))) - _%usetf2326823307%_)))))) - (_%loop2326323287%_ _%target2326023281%_ '())) - (_%g2325723274%_ _%g2325823278%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2325723274%_ - _%g2325823278%_))))) - (_%g2325624685%_ + _%L23161%_))))) + _%usetf2333123370%_)))))) + (_%loop2332623350%_ _%target2332323344%_ '())) + (_%g2332023337%_ _%g2332123341%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2332023337%_ + _%g2332123341%_))))) + (_%g2331924748%_ (gx#stx-map - (lambda (_%g2468824690%_) - (_%make-id22600%_ '"&" _%g2468824690%_)) - (foldr (lambda (_%g2469324696%_ - _%g2469424699%_) - (cons _%g2469324696%_ - _%g2469424699%_)) + (lambda (_%g2475124753%_) + (_%make-id22663%_ '"&" _%g2475124753%_)) + (foldr (lambda (_%g2475624759%_ + _%g2475724762%_) + (cons _%g2475624759%_ + _%g2475724762%_)) '() - _%L22952%_))))) - _%ugetf2319723236%_)))))) + _%L23015%_))))) + _%ugetf2326023299%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2319223216%_ - _%target2318923210%_ + (_%loop2325523279%_ + _%target2325223273%_ '())) - (_%g2318623203%_ - _%g2318723207%_))))) - (_%g2318623203%_ _%g2318723207%_))))) - (_%g2318524702%_ + (_%g2324923266%_ + _%g2325023270%_))))) + (_%g2324923266%_ _%g2325023270%_))))) + (_%g2324824765%_ (gx#stx-map - (lambda (_%g2470524707%_) - (_%make-id22600%_ '"&" _%g2470524707%_)) - (foldr (lambda (_%g2471024713%_ _%g2471124716%_) - (cons _%g2471024713%_ _%g2471124716%_)) + (lambda (_%g2476824770%_) + (_%make-id22663%_ '"&" _%g2476824770%_)) + (foldr (lambda (_%g2477324776%_ _%g2477424779%_) + (cons _%g2477324776%_ _%g2477424779%_)) '() - _%L22881%_))))) - _%mixin-setf2312623165%_)))))) + _%L22944%_))))) + _%mixin-setf2318923228%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2312123145%_ - _%target2311823139%_ + (_%loop2318423208%_ + _%target2318123202%_ '())) - (_%g2311523132%_ - _%g2311623136%_))))) - (_%g2311523132%_ _%g2311623136%_))))) - (_%g2311424719%_ + (_%g2317823195%_ + _%g2317923199%_))))) + (_%g2317823195%_ _%g2317923199%_))))) + (_%g2317724782%_ (gx#stx-map - (lambda (_%g2472224724%_) - (_%make-id22600%_ - _%name22604%_ + (lambda (_%g2478524787%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2472224724%_ + _%g2478524787%_ '"-set!")) - _%mixin-slots22969%_)))) - _%mixin-getf2305523094%_)))))) + _%mixin-slots23032%_)))) + _%mixin-getf2311823157%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2305023074%_ - _%target2304723068%_ + (_%loop2311323137%_ + _%target2311023131%_ '())) - (_%g2304423061%_ _%g2304523065%_))))) - (_%g2304423061%_ _%g2304523065%_))))) - (_%g2304324728%_ + (_%g2310723124%_ _%g2310823128%_))))) + (_%g2310723124%_ _%g2310823128%_))))) + (_%g2310624791%_ (gx#stx-map - (lambda (_%g2473124733%_) - (_%make-id22600%_ _%name22604%_ '"-" _%g2473124733%_)) - _%mixin-slots22969%_)))) + (lambda (_%g2479424796%_) + (_%make-id22663%_ _%name22667%_ '"-" _%g2479424796%_)) + _%mixin-slots23032%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%mixin-slot2298323022%_)))))) - (_%loop2297823002%_ - _%target2297522996%_ + _%mixin-slot2304623085%_)))))) + (_%loop2304123065%_ + _%target2303823059%_ '())) - (_%g2297222989%_ _%g2297322993%_))))) - (_%g2297222989%_ _%g2297322993%_))))) + (_%g2303523052%_ _%g2303623056%_))))) + (_%g2303523052%_ _%g2303623056%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2297124737%_ - _%mixin-slots22969%_))) - _%setf2290922948%_)))))) - (_%loop2290422928%_ _%target2290122922%_ '())) - (_%g2289822915%_ _%g2289922919%_))))) - (_%g2289822915%_ _%g2289922919%_))))) + (_%g2303424800%_ + _%mixin-slots23032%_))) + _%setf2297223011%_)))))) + (_%loop2296722991%_ _%target2296422985%_ '())) + (_%g2296122978%_ _%g2296222982%_))))) + (_%g2296122978%_ _%g2296222982%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2289724741%_ + (_%g2296024804%_ (gx#stx-map - (lambda (_%g2474424746%_) - (_%make-id22600%_ - _%name22604%_ + (lambda (_%g2480724809%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2474424746%_ + _%g2480724809%_ '"-set!")) - _%slots22595%_)))) - _%getf2283822877%_)))))) - (_%loop2283322857%_ _%target2283022851%_ '())) - (_%g2282722844%_ _%g2282822848%_))))) - (_%g2282722844%_ _%g2282822848%_))))) + _%slots22658%_)))) + _%getf2290122940%_)))))) + (_%loop2289622920%_ _%target2289322914%_ '())) + (_%g2289022907%_ _%g2289122911%_))))) + (_%g2289022907%_ _%g2289122911%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2282624750%_ + (_%g2288924813%_ (gx#stx-map - (lambda (_%g2475324755%_) - (_%make-id22600%_ - _%name22604%_ + (lambda (_%g2481624818%_) + (_%make-id22663%_ + _%name22667%_ '"-" - _%g2475324755%_)) - _%slots22595%_)))) - _%slot2276722806%_)))))) - (_%loop2276222786%_ _%target2275922780%_ '())) - (_%g2275622773%_ _%g2275722777%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2275622773%_ - _%g2275722777%_))))) - (_%g2275524759%_ _%slots22595%_))) - _%g2272922740%_)))) - (_%g2272724763%_ + _%g2481624818%_)) + _%slots22658%_)))) + _%slot2283022869%_)))))) + (_%loop2282522849%_ _%target2282222843%_ '())) + (_%g2281922836%_ _%g2282022840%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2281922836%_ + _%g2282022840%_))))) + (_%g2281824822%_ _%slots22658%_))) + _%g2279222803%_)))) + (_%g2279024826%_ (let () (declare (not safe)) (##map gerbil/core/mop~MOP-2#!class-type-descriptor - _%super22607%_))))) - _%g2270122712%_)))) + _%super22670%_))))) + _%g2276422775%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2269924767%_ - (_%make-id22600%_ - _%name22604%_ + (_%g2276224830%_ + (_%make-id22663%_ + _%name22667%_ '"?")))) - _%g2267322684%_)))) - (_%g2267124771%_ - (_%make-id22600%_ + _%g2273622747%_)))) + (_%g2273424834%_ + (_%make-id22663%_ '"make-" - _%name22604%_)))) - _%g2264522656%_)))) - (_%g2264324775%_ - (_%make-id22600%_ _%name22604%_ '"::t")))) - _%g2261422625%_)))) - (_%g2261224779%_ _%id22593%_))))) + _%name22667%_)))) + _%g2270822719%_)))) + (_%g2270624838%_ + (_%make-id22663%_ _%name22667%_ '"::t")))) + _%g2267722688%_)))) + (_%g2267524842%_ _%id22656%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defstruct| - (lambda (_%$stx24846%_) - (let* ((_%g2485024869%_ - (lambda (_%g2485124865%_) + (lambda (_%$stx24909%_) + (let* ((_%g2491324932%_ + (lambda (_%g2491424928%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2485124865%_))) - (_%g2484924926%_ - (lambda (_%g2485124873%_) - (if (gx#stx-pair? _%g2485124873%_) - (let ((_%e2485524876%_ (gx#syntax-e _%g2485124873%_))) - (let ((_%hd2485624880%_ + _%g2491424928%_))) + (_%g2491224989%_ + (lambda (_%g2491424936%_) + (if (gx#stx-pair? _%g2491424936%_) + (let ((_%e2491824939%_ (gx#syntax-e _%g2491424936%_))) + (let ((_%hd2491924943%_ (let () (declare (not safe)) - (##car _%e2485524876%_))) - (_%tl2485724883%_ + (##car _%e2491824939%_))) + (_%tl2492024946%_ (let () (declare (not safe)) - (##cdr _%e2485524876%_)))) - (if (gx#stx-pair? _%tl2485724883%_) - (let ((_%e2485824886%_ - (gx#syntax-e _%tl2485724883%_))) - (let ((_%hd2485924890%_ + (##cdr _%e2491824939%_)))) + (if (gx#stx-pair? _%tl2492024946%_) + (let ((_%e2492124949%_ + (gx#syntax-e _%tl2492024946%_))) + (let ((_%hd2492224953%_ (let () (declare (not safe)) - (##car _%e2485824886%_))) - (_%tl2486024893%_ + (##car _%e2492124949%_))) + (_%tl2492324956%_ (let () (declare (not safe)) - (##cdr _%e2485824886%_)))) - (if (gx#stx-pair? _%tl2486024893%_) - (let ((_%e2486124896%_ - (gx#syntax-e _%tl2486024893%_))) - (let ((_%hd2486224900%_ + (##cdr _%e2492124949%_)))) + (if (gx#stx-pair? _%tl2492324956%_) + (let ((_%e2492424959%_ + (gx#syntax-e _%tl2492324956%_))) + (let ((_%hd2492524963%_ (let () (declare (not safe)) - (##car _%e2486124896%_))) - (_%tl2486324903%_ + (##car _%e2492424959%_))) + (_%tl2492624966%_ (let () (declare (not safe)) - (##cdr _%e2486124896%_)))) - ((lambda (_%L24906%_ - _%L24908%_ - _%L24909%_) + (##cdr _%e2492424959%_)))) + ((lambda (_%L24969%_ + _%L24971%_ + _%L24972%_) (cons (gx#datum->syntax '#f 'defclass) - (cons _%L24909%_ - (cons _%L24908%_ + (cons _%L24972%_ + (cons _%L24971%_ (cons 'struct: ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons '#t _%L24906%_)))))) + (cons '#t _%L24969%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl2486324903%_ - _%hd2486224900%_ - _%hd2485924890%_))) - (_%g2485024869%_ _%g2485124873%_)))) - (_%g2485024869%_ _%g2485124873%_)))) - (_%g2485024869%_ _%g2485124873%_))))) - (_%g2484924926%_ _%$stx24846%_)))) + _%tl2492624966%_ + _%hd2492524963%_ + _%hd2492224953%_))) + (_%g2491324932%_ _%g2491424936%_)))) + (_%g2491324932%_ _%g2491424936%_)))) + (_%g2491324932%_ _%g2491424936%_))))) + (_%g2491224989%_ _%$stx24909%_)))) (define |gerbil/core/mop~MOP-4[:0:]#defclass| - (lambda (_%stx24930%_) - (letrec ((_%generate24933%_ - (lambda (_%hd25017%_ _%slots25019%_ _%body25020%_) - (let* ((_%__stx2678526786%_ _%hd25017%_) - (_%g2502325035%_ + (lambda (_%stx24993%_) + (letrec ((_%generate24996%_ + (lambda (_%hd25080%_ _%slots25082%_ _%body25083%_) + (let* ((_%__stx2684826849%_ _%hd25080%_) + (_%g2508625098%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2678526786%_)))) - (let ((_%__kont2678826789%_ - (lambda (_%L25063%_ _%L25065%_) + _%__stx2684826849%_)))) + (let ((_%__kont2685126852%_ + (lambda (_%L25126%_ _%L25128%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24930%_ - _%L25065%_ - (gx#syntax->list _%L25063%_) - _%slots25019%_ - _%body25020%_))) - (_%__kont2679026791%_ + _%stx24993%_ + _%L25128%_ + (gx#syntax->list _%L25126%_) + _%slots25082%_ + _%body25083%_))) + (_%__kont2685326854%_ (lambda () - (if (gx#identifier? _%hd25017%_) + (if (gx#identifier? _%hd25080%_) (|gerbil/core/mop~MOP-4[1]#generate-defclass| - _%stx24930%_ - _%hd25017%_ + _%stx24993%_ + _%hd25080%_ '() - _%slots25019%_ - _%body25020%_) + _%slots25082%_ + _%body25083%_) (gx#raise-syntax-error '#f '"bad syntax; class name should be an identifier" - _%stx24930%_ - _%hd25017%_))))) - (let ((_%__match2679826799%_ - (lambda (_%e2502725053%_ - _%hd2502825057%_ - _%tl2502925060%_) - (let ((_%L25063%_ _%tl2502925060%_) - (_%L25065%_ _%hd2502825057%_)) - (if (and (gx#stx-list? _%L25063%_) + _%stx24993%_ + _%hd25080%_))))) + (let ((_%__match2686126862%_ + (lambda (_%e2509025116%_ + _%hd2509125120%_ + _%tl2509225123%_) + (let ((_%L25126%_ _%tl2509225123%_) + (_%L25128%_ _%hd2509125120%_)) + (if (and (gx#stx-list? _%L25126%_) (gx#stx-andmap gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _%L25063%_)) - (_%__kont2678826789%_ - _%L25063%_ - _%L25065%_) - (_%__kont2679026791%_)))))) - (if (gx#stx-pair? _%__stx2678526786%_) - (let ((_%e2502725053%_ - (gx#syntax-e _%__stx2678526786%_))) - (let ((_%tl2502925060%_ + _%L25126%_)) + (_%__kont2685126852%_ + _%L25126%_ + _%L25128%_) + (_%__kont2685326854%_)))))) + (if (gx#stx-pair? _%__stx2684826849%_) + (let ((_%e2509025116%_ + (gx#syntax-e _%__stx2684826849%_))) + (let ((_%tl2509225123%_ (let () (declare (not safe)) - (##cdr _%e2502725053%_))) - (_%hd2502825057%_ + (##cdr _%e2509025116%_))) + (_%hd2509125120%_ (let () (declare (not safe)) - (##car _%e2502725053%_)))) - (_%__match2679826799%_ - _%e2502725053%_ - _%hd2502825057%_ - _%tl2502925060%_))) - (_%__kont2679026791%_)))))))) - (let* ((_%g2493624955%_ - (lambda (_%g2493724951%_) + (##car _%e2509025116%_)))) + (_%__match2686126862%_ + _%e2509025116%_ + _%hd2509125120%_ + _%tl2509225123%_))) + (_%__kont2685326854%_)))))))) + (let* ((_%g2499925018%_ + (lambda (_%g2500025014%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2493724951%_))) - (_%g2493525013%_ - (lambda (_%g2493724959%_) - (if (gx#stx-pair? _%g2493724959%_) - (let ((_%e2494124962%_ (gx#syntax-e _%g2493724959%_))) - (let ((_%hd2494224966%_ + _%g2500025014%_))) + (_%g2499825076%_ + (lambda (_%g2500025022%_) + (if (gx#stx-pair? _%g2500025022%_) + (let ((_%e2500425025%_ (gx#syntax-e _%g2500025022%_))) + (let ((_%hd2500525029%_ (let () (declare (not safe)) - (##car _%e2494124962%_))) - (_%tl2494324969%_ + (##car _%e2500425025%_))) + (_%tl2500625032%_ (let () (declare (not safe)) - (##cdr _%e2494124962%_)))) - (if (gx#stx-pair? _%tl2494324969%_) - (let ((_%e2494424972%_ - (gx#syntax-e _%tl2494324969%_))) - (let ((_%hd2494524976%_ + (##cdr _%e2500425025%_)))) + (if (gx#stx-pair? _%tl2500625032%_) + (let ((_%e2500725035%_ + (gx#syntax-e _%tl2500625032%_))) + (let ((_%hd2500825039%_ (let () (declare (not safe)) - (##car _%e2494424972%_))) - (_%tl2494624979%_ + (##car _%e2500725035%_))) + (_%tl2500925042%_ (let () (declare (not safe)) - (##cdr _%e2494424972%_)))) - (if (gx#stx-pair? _%tl2494624979%_) - (let ((_%e2494724982%_ - (gx#syntax-e _%tl2494624979%_))) - (let ((_%hd2494824986%_ + (##cdr _%e2500725035%_)))) + (if (gx#stx-pair? _%tl2500925042%_) + (let ((_%e2501025045%_ + (gx#syntax-e _%tl2500925042%_))) + (let ((_%hd2501125049%_ (let () (declare (not safe)) - (##car _%e2494724982%_))) - (_%tl2494924989%_ + (##car _%e2501025045%_))) + (_%tl2501225052%_ (let () (declare (not safe)) - (##cdr _%e2494724982%_)))) - ((lambda (_%L24992%_ - _%L24994%_ - _%L24995%_) + (##cdr _%e2501025045%_)))) + ((lambda (_%L25055%_ + _%L25057%_ + _%L25058%_) (if (and (gx#identifier-list? - _%L24994%_) + _%L25057%_) (|gerbil/core/mop~MOP-4[1]#typedef-body?| - _%L24992%_)) - (_%generate24933%_ - _%L24995%_ - _%L24994%_ - _%L24992%_) - (_%g2493624955%_ - _%g2493724959%_))) - _%tl2494924989%_ - _%hd2494824986%_ - _%hd2494524976%_))) - (_%g2493624955%_ _%g2493724959%_)))) - (_%g2493624955%_ _%g2493724959%_)))) - (_%g2493624955%_ _%g2493724959%_))))) - (_%g2493525013%_ _%stx24930%_))))) + _%L25055%_)) + (_%generate24996%_ + _%L25058%_ + _%L25057%_ + _%L25055%_) + (_%g2499925018%_ + _%g2500025022%_))) + _%tl2501225052%_ + _%hd2501125049%_ + _%hd2500825039%_))) + (_%g2499925018%_ _%g2500025022%_)))) + (_%g2499925018%_ _%g2500025022%_)))) + (_%g2499925018%_ _%g2500025022%_))))) + (_%g2499825076%_ _%stx24993%_))))) (define |gerbil/core/mop~MOP-4[:0:]#defmethod| - (lambda (_%stx25082%_) - (letrec ((_%wrap25085%_ - (lambda (_%e-stx25431%_) + (lambda (_%stx25145%_) + (letrec ((_%wrap25148%_ + (lambda (_%e-stx25494%_) (gx#stx-wrap-source - _%e-stx25431%_ - (gx#stx-source _%stx25082%_)))) - (_%method-opt?25087%_ - (lambda (_%x25428%_) - (let ((__tmp27270 (gx#stx-e _%x25428%_))) + _%e-stx25494%_ + (gx#stx-source _%stx25145%_)))) + (_%method-opt?25150%_ + (lambda (_%x25491%_) + (let ((__tmp27333 (gx#stx-e _%x25491%_))) (declare (not safe)) - (##memq __tmp27270 '(rebind:)))))) - (let* ((_%g2508925118%_ - (lambda (_%g2509025114%_) + (##memq __tmp27333 '(rebind:)))))) + (let* ((_%g2515225181%_ + (lambda (_%g2515325177%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2509025114%_))) - (_%g2508825424%_ - (lambda (_%g2509025122%_) - (if (gx#stx-pair? _%g2509025122%_) - (let ((_%e2509525125%_ (gx#syntax-e _%g2509025122%_))) - (let ((_%hd2509625129%_ + _%g2515325177%_))) + (_%g2515125487%_ + (lambda (_%g2515325185%_) + (if (gx#stx-pair? _%g2515325185%_) + (let ((_%e2515825188%_ (gx#syntax-e _%g2515325185%_))) + (let ((_%hd2515925192%_ (let () (declare (not safe)) - (##car _%e2509525125%_))) - (_%tl2509725132%_ + (##car _%e2515825188%_))) + (_%tl2516025195%_ (let () (declare (not safe)) - (##cdr _%e2509525125%_)))) - (if (gx#stx-pair? _%tl2509725132%_) - (let ((_%e2509825135%_ - (gx#syntax-e _%tl2509725132%_))) - (let ((_%hd2509925139%_ + (##cdr _%e2515825188%_)))) + (if (gx#stx-pair? _%tl2516025195%_) + (let ((_%e2516125198%_ + (gx#syntax-e _%tl2516025195%_))) + (let ((_%hd2516225202%_ (let () (declare (not safe)) - (##car _%e2509825135%_))) - (_%tl2510025142%_ + (##car _%e2516125198%_))) + (_%tl2516325205%_ (let () (declare (not safe)) - (##cdr _%e2509825135%_)))) - (if (gx#stx-pair? _%hd2509925139%_) - (let ((_%e2510125145%_ - (gx#syntax-e _%hd2509925139%_))) - (let ((_%hd2510225149%_ + (##cdr _%e2516125198%_)))) + (if (gx#stx-pair? _%hd2516225202%_) + (let ((_%e2516425208%_ + (gx#syntax-e _%hd2516225202%_))) + (let ((_%hd2516525212%_ (let () (declare (not safe)) - (##car _%e2510125145%_))) - (_%tl2510325152%_ + (##car _%e2516425208%_))) + (_%tl2516625215%_ (let () (declare (not safe)) - (##cdr _%e2510125145%_)))) + (##cdr _%e2516425208%_)))) (if (gx#identifier? - _%hd2510225149%_) + _%hd2516525212%_) (if (gx#free-identifier=? - |gerbil/core/mop~MOP-4[1]#_g27271_| - _%hd2510225149%_) + |gerbil/core/mop~MOP-4[1]#_g27334_| + _%hd2516525212%_) (if (gx#stx-pair? - _%tl2510325152%_) - (let ((_%e2510425155%_ + _%tl2516625215%_) + (let ((_%e2516725218%_ (gx#syntax-e - _%tl2510325152%_))) - (let ((_%hd2510525159%_ + _%tl2516625215%_))) + (let ((_%hd2516825222%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2510425155%_))) - (_%tl2510625162%_ + (let () (declare (not safe)) (##car _%e2516725218%_))) + (_%tl2516925225%_ (let () (declare (not safe)) - (##cdr _%e2510425155%_)))) - (if (gx#stx-pair? _%tl2510625162%_) - (let ((_%e2510725165%_ (gx#syntax-e _%tl2510625162%_))) - (let ((_%hd2510825169%_ + (##cdr _%e2516725218%_)))) + (if (gx#stx-pair? _%tl2516925225%_) + (let ((_%e2517025228%_ (gx#syntax-e _%tl2516925225%_))) + (let ((_%hd2517125232%_ (let () (declare (not safe)) - (##car _%e2510725165%_))) - (_%tl2510925172%_ + (##car _%e2517025228%_))) + (_%tl2517225235%_ (let () (declare (not safe)) - (##cdr _%e2510725165%_)))) - (if (gx#stx-null? _%tl2510925172%_) - (if (gx#stx-pair? _%tl2510025142%_) - (let ((_%e2511025175%_ - (gx#syntax-e _%tl2510025142%_))) - (let ((_%hd2511125179%_ + (##cdr _%e2517025228%_)))) + (if (gx#stx-null? _%tl2517225235%_) + (if (gx#stx-pair? _%tl2516325205%_) + (let ((_%e2517325238%_ + (gx#syntax-e _%tl2516325205%_))) + (let ((_%hd2517425242%_ (let () (declare (not safe)) - (##car _%e2511025175%_))) - (_%tl2511225182%_ + (##car _%e2517325238%_))) + (_%tl2517525245%_ (let () (declare (not safe)) - (##cdr _%e2511025175%_)))) - ((lambda (_%L25185%_ - _%L25187%_ - _%L25188%_ - _%L25189%_) - (if (and (gx#identifier? _%L25189%_) + (##cdr _%e2517325238%_)))) + ((lambda (_%L25248%_ + _%L25250%_ + _%L25251%_ + _%L25252%_) + (if (and (gx#identifier? _%L25252%_) (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25188%_)) + _%L25251%_)) (gx#stx-plist? - _%L25185%_ - _%method-opt?25087%_)) - (let* ((_%klass25216%_ + _%L25248%_ + _%method-opt?25150%_)) + (let* ((_%klass25279%_ (gx#syntax-local-value - _%L25188%_)) - (_%rebind?25219%_ + _%L25251%_)) + (_%rebind?25282%_ (gx#stx-e (gx#stx-getq 'rebind: - _%L25185%_))) - (_%g2522225230%_ - (lambda (_%g2522325226%_) + _%L25248%_))) + (_%g2528525293%_ + (lambda (_%g2528625289%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2522325226%_))) - (_%g2522125414%_ - (lambda (_%g2522325234%_) - ((lambda (_%L25237%_) - (let* ((_%g2525225260%_ + _%g2528625289%_))) + (_%g2528425477%_ + (lambda (_%g2528625297%_) + ((lambda (_%L25300%_) + (let* ((_%g2531525323%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2525325256%_) + (lambda (_%g2531625319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2525325256%_))) - (_%g2525125410%_ - (lambda (_%g2525325264%_) - ((lambda (_%L25267%_) - (let* ((_%g2528025288%_ - (lambda (_%g2528125284%_) + _%g2531625319%_))) + (_%g2531425473%_ + (lambda (_%g2531625327%_) + ((lambda (_%L25330%_) + (let* ((_%g2534325351%_ + (lambda (_%g2534425347%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2528125284%_))) - (_%g2527925406%_ - (lambda (_%g2528125292%_) - ((lambda (_%L25295%_) - (let* ((_%g2530825316%_ - (lambda (_%g2530925312%_) + _%g2534425347%_))) + (_%g2534225469%_ + (lambda (_%g2534425355%_) + ((lambda (_%L25358%_) + (let* ((_%g2537125379%_ + (lambda (_%g2537225375%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2530925312%_))) - (_%g2530725402%_ - (lambda (_%g2530925320%_) - ((lambda (_%L25323%_) - (let* ((_%g2533625344%_ + _%g2537225375%_))) + (_%g2537025465%_ + (lambda (_%g2537225383%_) + ((lambda (_%L25386%_) + (let* ((_%g2539925407%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g2533725340%_) + (lambda (_%g2540025403%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2533725340%_))) - (_%g2533525398%_ - (lambda (_%g2533725348%_) - ((lambda (_%L25351%_) - (let* ((_%g2536425372%_ - (lambda (_%g2536525368%_) + _%g2540025403%_))) + (_%g2539825461%_ + (lambda (_%g2540025411%_) + ((lambda (_%L25414%_) + (let* ((_%g2542725435%_ + (lambda (_%g2542825431%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2536525368%_))) - (_%g2536325394%_ - (lambda (_%g2536525376%_) - ((lambda (_%L25379%_) - (_%wrap25085%_ + _%g2542825431%_))) + (_%g2542625457%_ + (lambda (_%g2542825439%_) + ((lambda (_%L25442%_) + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'begin) - (cons _%L25323%_ - (cons _%L25379%_ + (cons _%L25386%_ + (cons _%L25442%_ '()))))) - _%g2536525376%_)))) - (_%g2536325394%_ - (_%wrap25085%_ + _%g2542825439%_)))) + (_%g2542625457%_ + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'bind-method!) - (cons _%L25237%_ + (cons _%L25300%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25189%_ + (cons _%L25252%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L25267%_ (cons _%L25351%_ '()))))))))) + (cons _%L25330%_ (cons _%L25414%_ '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2533725348%_)))) - (_%g2533525398%_ _%rebind?25219%_))) - _%g2530925320%_)))) + _%g2540025411%_)))) + (_%g2539825461%_ _%rebind?25282%_))) + _%g2537225383%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2530725402%_ - (_%wrap25085%_ + (_%g2537025465%_ + (_%wrap25148%_ (cons (gx#datum->syntax '#f 'def) - (cons _%L25267%_ + (cons _%L25330%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-syntax) - (cons (cons (cons _%L25295%_ + (cons (cons (cons _%L25358%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2299,13 +2299,13 @@ (cons (cons (gx#datum->syntax '#f 'call-next-method) - (cons _%L25237%_ + (cons _%L25300%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'obj) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25189%_ '())) + (cons _%L25252%_ '())) (cons (gx#datum->syntax '#f 'arg) (cons (gx#datum->syntax '#f '...) '())))))) @@ -2315,150 +2315,150 @@ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) - (cons _%L25187%_ '()))) + (cons _%L25250%_ '()))) '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g2528125292%_)))) - (_%g2527925406%_ + _%g2534425355%_)))) + (_%g2534225469%_ (gx#stx-identifier - _%L25188%_ + _%L25251%_ '@next-method)))) - _%g2525325264%_)))) - (_%g2525125410%_ + _%g2531625327%_)))) + (_%g2531425473%_ (gx#stx-identifier - _%L25188%_ - _%L25188%_ + _%L25251%_ + _%L25251%_ '"::" - _%L25189%_)))) - _%g2522325234%_)))) + _%L25252%_)))) + _%g2528625297%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2522125414%_ - (let ((__obj27062 - _%klass25216%_)) + (_%g2528425477%_ + (let ((__obj27125 + _%klass25279%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27062 + __obj27125 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27062 + __obj27125 '12 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27062 + __obj27125 'type-descriptor))))) - (if (gx#identifier? _%L25189%_) + (if (gx#identifier? _%L25252%_) (if (let () (declare (not safe)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _%L25188%_)) + _%L25251%_)) (gx#raise-syntax-error '#f '"bad syntax; illegal method options" - _%stx25082%_) + _%stx25145%_) (gx#raise-syntax-error '#f '"bad syntax; expected type identifier" - _%stx25082%_ - _%L25188%_)) + _%stx25145%_ + _%L25251%_)) (gx#raise-syntax-error '#f '"bad syntax; expected method identifier" - _%stx25082%_ - _%L25189%_)))) - _%tl2511225182%_ - _%hd2511125179%_ - _%hd2510825169%_ - _%hd2510525159%_))) - (_%g2508925118%_ _%g2509025122%_)) - (_%g2508925118%_ _%g2509025122%_)))) - (_%g2508925118%_ _%g2509025122%_)))) - (_%g2508925118%_ _%g2509025122%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2508925118%_ - _%g2509025122%_)) - (_%g2508925118%_ - _%g2509025122%_)))) - (_%g2508925118%_ _%g2509025122%_)))) - (_%g2508925118%_ _%g2509025122%_)))) - (_%g2508925118%_ _%g2509025122%_))))) - (_%g2508825424%_ _%stx25082%_))))) + _%stx25145%_ + _%L25252%_)))) + _%tl2517525245%_ + _%hd2517425242%_ + _%hd2517125232%_ + _%hd2516825222%_))) + (_%g2515225181%_ _%g2515325185%_)) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g2515225181%_ + _%g2515325185%_)) + (_%g2515225181%_ + _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_)))) + (_%g2515225181%_ _%g2515325185%_))))) + (_%g2515125487%_ _%stx25145%_))))) (define |gerbil/core/mop~MOP-4[:0:]#@method| - (lambda (_%stx25434%_) - (letrec ((_%dotted-identifier?25437%_ - (lambda (_%id26070%_) - (if (gx#identifier? _%id26070%_) - (let ((_%id-str26073%_ - (symbol->string (gx#stx-e _%id26070%_)))) - (if (string-index _%id-str26073%_ '#\.) - (let* ((_%split26076%_ - (string-split _%id-str26073%_ '#\.)) - (__tmp27272 (length _%split26076%_))) + (lambda (_%stx25497%_) + (letrec ((_%dotted-identifier?25500%_ + (lambda (_%id26133%_) + (if (gx#identifier? _%id26133%_) + (let ((_%id-str26136%_ + (symbol->string (gx#stx-e _%id26133%_)))) + (if (string-index _%id-str26136%_ '#\.) + (let* ((_%split26139%_ + (string-split _%id-str26136%_ '#\.)) + (__tmp27335 (length _%split26139%_))) (declare (not safe)) - (##fx= __tmp27272 '2)) + (##fx= __tmp27335 '2)) '#f)) '#f))) - (_%split-dotted25439%_ - (lambda (_%id26059%_) - (let* ((_%id-str26062%_ - (symbol->string (gx#stx-e _%id26059%_))) - (_%split26065%_ - (string-split _%id-str26062%_ '#\.))) + (_%split-dotted25502%_ + (lambda (_%id26122%_) + (let* ((_%id-str26125%_ + (symbol->string (gx#stx-e _%id26122%_))) + (_%split26128%_ + (string-split _%id-str26125%_ '#\.))) (cons (gx#stx-identifier - _%id26059%_ - (car _%split26065%_)) + _%id26122%_ + (car _%split26128%_)) (cons (gx#stx-identifier - _%id26059%_ - (cadr _%split26065%_)) + _%id26122%_ + (cadr _%split26128%_)) '())))))) - (let* ((_%__stx2680126802%_ _%stx25434%_) - (_%g2544425531%_ + (let* ((_%__stx2686426865%_ _%stx25497%_) + (_%g2550725594%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2680126802%_)))) - (let ((_%__kont2680426805%_ - (lambda (_%L25952%_ _%L25954%_ _%L25955%_) - (let* ((_%g2598325998%_ - (lambda (_%g2598425994%_) + _%__stx2686426865%_)))) + (let ((_%__kont2686726868%_ + (lambda (_%L26015%_ _%L26017%_ _%L26018%_) + (let* ((_%g2604626061%_ + (lambda (_%g2604726057%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2598425994%_))) - (_%g2598226051%_ - (lambda (_%g2598426002%_) - (if (gx#stx-pair? _%g2598426002%_) - (let ((_%e2598726005%_ - (gx#syntax-e _%g2598426002%_))) - (let ((_%hd2598826009%_ + _%g2604726057%_))) + (_%g2604526114%_ + (lambda (_%g2604726065%_) + (if (gx#stx-pair? _%g2604726065%_) + (let ((_%e2605026068%_ + (gx#syntax-e _%g2604726065%_))) + (let ((_%hd2605126072%_ (let () (declare (not safe)) - (##car _%e2598726005%_))) - (_%tl2598926012%_ + (##car _%e2605026068%_))) + (_%tl2605226075%_ (let () (declare (not safe)) - (##cdr _%e2598726005%_)))) - (if (gx#stx-pair? _%tl2598926012%_) - (let ((_%e2599026015%_ + (##cdr _%e2605026068%_)))) + (if (gx#stx-pair? _%tl2605226075%_) + (let ((_%e2605326078%_ (gx#syntax-e - _%tl2598926012%_))) - (let ((_%hd2599126019%_ + _%tl2605226075%_))) + (let ((_%hd2605426082%_ (let () (declare (not safe)) - (##car _%e2599026015%_))) - (_%tl2599226022%_ + (##car _%e2605326078%_))) + (_%tl2605526085%_ (let () (declare (not safe)) - (##cdr _%e2599026015%_)))) + (##cdr _%e2605326078%_)))) (if (gx#stx-null? - _%tl2599226022%_) - ((lambda (_%L26025%_ - _%L26027%_) + _%tl2605526085%_) + ((lambda (_%L26088%_ + _%L26090%_) (cons (gx#datum->syntax '#f 'apply) @@ -2466,1417 +2466,1417 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'call-method) - (cons _%L26027%_ + (cons _%L26090%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26025%_ '())) + (cons _%L26088%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2604226045%_ + (foldr (lambda (_%g2610526108%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2604326048%_) - (cons _%g2604226045%_ _%g2604326048%_)) + _%g2610626111%_) + (cons _%g2610526108%_ _%g2610626111%_)) '() - _%L25954%_)) + _%L26017%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2599126019%_ - _%hd2598826009%_) - (_%g2598325998%_ - _%g2598426002%_)))) - (_%g2598325998%_ _%g2598426002%_)))) - (_%g2598325998%_ _%g2598426002%_))))) - (_%g2598226051%_ (_%split-dotted25439%_ _%L25955%_))))) - (_%__kont2680826809%_ - (lambda (_%L25794%_ _%L25796%_) - (let* ((_%g2581325828%_ - (lambda (_%g2581425824%_) + _%hd2605426082%_ + _%hd2605126072%_) + (_%g2604626061%_ + _%g2604726065%_)))) + (_%g2604626061%_ _%g2604726065%_)))) + (_%g2604626061%_ _%g2604726065%_))))) + (_%g2604526114%_ (_%split-dotted25502%_ _%L26018%_))))) + (_%__kont2687126872%_ + (lambda (_%L25857%_ _%L25859%_) + (let* ((_%g2587625891%_ + (lambda (_%g2587725887%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2581425824%_))) - (_%g2581225881%_ - (lambda (_%g2581425832%_) - (if (gx#stx-pair? _%g2581425832%_) - (let ((_%e2581725835%_ - (gx#syntax-e _%g2581425832%_))) - (let ((_%hd2581825839%_ + _%g2587725887%_))) + (_%g2587525944%_ + (lambda (_%g2587725895%_) + (if (gx#stx-pair? _%g2587725895%_) + (let ((_%e2588025898%_ + (gx#syntax-e _%g2587725895%_))) + (let ((_%hd2588125902%_ (let () (declare (not safe)) - (##car _%e2581725835%_))) - (_%tl2581925842%_ + (##car _%e2588025898%_))) + (_%tl2588225905%_ (let () (declare (not safe)) - (##cdr _%e2581725835%_)))) - (if (gx#stx-pair? _%tl2581925842%_) - (let ((_%e2582025845%_ + (##cdr _%e2588025898%_)))) + (if (gx#stx-pair? _%tl2588225905%_) + (let ((_%e2588325908%_ (gx#syntax-e - _%tl2581925842%_))) - (let ((_%hd2582125849%_ + _%tl2588225905%_))) + (let ((_%hd2588425912%_ (let () (declare (not safe)) - (##car _%e2582025845%_))) - (_%tl2582225852%_ + (##car _%e2588325908%_))) + (_%tl2588525915%_ (let () (declare (not safe)) - (##cdr _%e2582025845%_)))) + (##cdr _%e2588325908%_)))) (if (gx#stx-null? - _%tl2582225852%_) - ((lambda (_%L25855%_ - _%L25857%_) + _%tl2588525915%_) + ((lambda (_%L25918%_ + _%L25920%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25857%_ + (cons _%L25920%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25855%_ '())) - (foldr (lambda (_%g2587225875%_ - _%g2587325878%_) - (cons _%g2587225875%_ - _%g2587325878%_)) + (cons _%L25918%_ '())) + (foldr (lambda (_%g2593525938%_ + _%g2593625941%_) + (cons _%g2593525938%_ + _%g2593625941%_)) '() - _%L25794%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2582125849%_ - _%hd2581825839%_) - (_%g2581325828%_ - _%g2581425832%_)))) - (_%g2581325828%_ _%g2581425832%_)))) - (_%g2581325828%_ _%g2581425832%_))))) - (_%g2581225881%_ (_%split-dotted25439%_ _%L25796%_))))) - (_%__kont2681226813%_ - (lambda (_%L25698%_ _%L25700%_ _%L25701%_) + _%L25857%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd2588425912%_ + _%hd2588125902%_) + (_%g2587625891%_ + _%g2587725895%_)))) + (_%g2587625891%_ _%g2587725895%_)))) + (_%g2587625891%_ _%g2587725895%_))))) + (_%g2587525944%_ (_%split-dotted25502%_ _%L25859%_))))) + (_%__kont2687526876%_ + (lambda (_%L25761%_ _%L25763%_ _%L25764%_) (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25700%_ + (cons _%L25763%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25701%_ '())) + (cons _%L25764%_ '())) (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2572825731%_ + (foldr (lambda (_%g2579125794%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2572925734%_) - (cons _%g2572825731%_ _%g2572925734%_)) + _%g2579225797%_) + (cons _%g2579125794%_ _%g2579225797%_)) '() - _%L25698%_)) + _%L25761%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))))) - (_%__kont2681626817%_ - (lambda (_%L25598%_ _%L25600%_ _%L25601%_) + (_%__kont2687926880%_ + (lambda (_%L25661%_ _%L25663%_ _%L25664%_) (cons (gx#datum->syntax '#f 'call-method) - (cons _%L25600%_ + (cons _%L25663%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L25601%_ '())) - (foldr (lambda (_%g2562225625%_ - _%g2562325628%_) - (cons _%g2562225625%_ - _%g2562325628%_)) + (cons _%L25664%_ '())) + (foldr (lambda (_%g2568525688%_ + _%g2568625691%_) + (cons _%g2568525688%_ + _%g2568625691%_)) '() - _%L25598%_))))))) - (let* ((_%__match2692026921%_ - (lambda (_%e2550825538%_ - _%hd2550925542%_ - _%tl2551025545%_ - _%e2551125548%_ - _%hd2551225552%_ - _%tl2551325555%_ - _%e2551425558%_ - _%hd2551525562%_ - _%tl2551625565%_ - _%__splice2681826819%_ - _%target2551725568%_ - _%tl2551925571%_) - (letrec ((_%loop2552025574%_ - (lambda (_%hd2551825578%_ _%arg2552425581%_) - (if (gx#stx-pair? _%hd2551825578%_) - (let ((_%e2552125584%_ - (gx#syntax-e _%hd2551825578%_))) - (let ((_%lp-tl2552325591%_ + _%L25661%_))))))) + (let* ((_%__match2698326984%_ + (lambda (_%e2557125601%_ + _%hd2557225605%_ + _%tl2557325608%_ + _%e2557425611%_ + _%hd2557525615%_ + _%tl2557625618%_ + _%e2557725621%_ + _%hd2557825625%_ + _%tl2557925628%_ + _%__splice2688126882%_ + _%target2558025631%_ + _%tl2558225634%_) + (letrec ((_%loop2558325637%_ + (lambda (_%hd2558125641%_ _%arg2558725644%_) + (if (gx#stx-pair? _%hd2558125641%_) + (let ((_%e2558425647%_ + (gx#syntax-e _%hd2558125641%_))) + (let ((_%lp-tl2558625654%_ (let () (declare (not safe)) - (##cdr _%e2552125584%_))) - (_%lp-hd2552225588%_ + (##cdr _%e2558425647%_))) + (_%lp-hd2558525651%_ (let () (declare (not safe)) - (##car _%e2552125584%_)))) - (_%loop2552025574%_ - _%lp-tl2552325591%_ - (cons _%lp-hd2552225588%_ - _%arg2552425581%_)))) - (let ((_%arg2552525594%_ - (reverse _%arg2552425581%_))) - (let ((_%L25598%_ _%arg2552525594%_) - (_%L25600%_ _%hd2551525562%_) - (_%L25601%_ _%hd2551225552%_)) - (if (gx#identifier? _%L25601%_) - (_%__kont2681626817%_ - _%L25598%_ - _%L25600%_ - _%L25601%_) + (##car _%e2558425647%_)))) + (_%loop2558325637%_ + _%lp-tl2558625654%_ + (cons _%lp-hd2558525651%_ + _%arg2558725644%_)))) + (let ((_%arg2558825657%_ + (reverse _%arg2558725644%_))) + (let ((_%L25661%_ _%arg2558825657%_) + (_%L25663%_ _%hd2557825625%_) + (_%L25664%_ _%hd2557525615%_)) + (if (gx#identifier? _%L25664%_) + (_%__kont2687926880%_ + _%L25661%_ + _%L25663%_ + _%L25664%_) (let () (declare (not safe)) - (_%g2544425531%_))))))))) - (_%loop2552025574%_ _%target2551725568%_ '())))) - (_%__match2689426895%_ - (lambda (_%e2548725638%_ - _%hd2548825642%_ - _%tl2548925645%_ - _%e2549025648%_ - _%hd2549125652%_ - _%tl2549225655%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) - (letrec ((_%loop2549925674%_ - (lambda (_%hd2549725678%_ _%arg2550325681%_) - (if (gx#stx-pair? _%hd2549725678%_) - (let ((_%e2550025684%_ - (gx#syntax-e _%hd2549725678%_))) - (let ((_%lp-tl2550225691%_ + (_%g2550725594%_))))))))) + (_%loop2558325637%_ _%target2558025631%_ '())))) + (_%__match2695726958%_ + (lambda (_%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) + (letrec ((_%loop2556225737%_ + (lambda (_%hd2556025741%_ _%arg2556625744%_) + (if (gx#stx-pair? _%hd2556025741%_) + (let ((_%e2556325747%_ + (gx#syntax-e _%hd2556025741%_))) + (let ((_%lp-tl2556525754%_ (let () (declare (not safe)) - (##cdr _%e2550025684%_))) - (_%lp-hd2550125688%_ + (##cdr _%e2556325747%_))) + (_%lp-hd2556425751%_ (let () (declare (not safe)) - (##car _%e2550025684%_)))) - (_%loop2549925674%_ - _%lp-tl2550225691%_ - (cons _%lp-hd2550125688%_ - _%arg2550325681%_)))) - (let ((_%arg2550425694%_ - (reverse _%arg2550325681%_))) - (let ((_%L25698%_ _%arg2550425694%_) - (_%L25700%_ _%hd2549425662%_) - (_%L25701%_ _%hd2549125652%_)) + (##car _%e2556325747%_)))) + (_%loop2556225737%_ + _%lp-tl2556525754%_ + (cons _%lp-hd2556425751%_ + _%arg2556625744%_)))) + (let ((_%arg2556725757%_ + (reverse _%arg2556625744%_))) + (let ((_%L25761%_ _%arg2556725757%_) + (_%L25763%_ _%hd2555725725%_) + (_%L25764%_ _%hd2555425715%_)) (if (and (gx#identifier? - _%L25701%_) + _%L25764%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2572025723%_ + (foldr (lambda (_%g2578325786%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2572125726%_) - (cons _%g2572025723%_ _%g2572125726%_)) + _%g2578425789%_) + (cons _%g2578325786%_ _%g2578425789%_)) '() - _%L25698%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2681226813%_ - _%L25698%_ - _%L25700%_ - _%L25701%_) - (_%__match2692026921%_ - _%e2548725638%_ - _%hd2548825642%_ - _%tl2548925645%_ - _%e2549025648%_ - _%hd2549125652%_ - _%tl2549225655%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_)))))))) - (_%loop2549925674%_ _%target2549625668%_ '())))) - (_%__match2688026881%_ - (lambda (_%e2548725638%_ - _%hd2548825642%_ - _%tl2548925645%_ - _%e2549025648%_ - _%hd2549125652%_ - _%tl2549225655%_) - (if (gx#stx-pair? _%tl2549225655%_) - (let ((_%e2549325658%_ - (gx#syntax-e _%tl2549225655%_))) - (let ((_%tl2549525665%_ + _%L25761%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2687526876%_ + _%L25761%_ + _%L25763%_ + _%L25764%_) + (_%__match2698326984%_ + _%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_)))))))) + (_%loop2556225737%_ _%target2555925731%_ '())))) + (_%__match2694326944%_ + (lambda (_%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_) + (if (gx#stx-pair? _%tl2555525718%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2555525718%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2549325658%_)))) - (if (gx#stx-pair/null? _%tl2549525665%_) - (let ((_%__splice2681426815%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2549525665%_ + _%tl2555825728%_ '0))) - (let ((_%tl2549825671%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '1))) - (_%target2549625668%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2549825671%_) - (_%__match2689426895%_ - _%e2548725638%_ - _%hd2548825642%_ - _%tl2548925645%_ - _%e2549025648%_ - _%hd2549125652%_ - _%tl2549225655%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2555025701%_ + _%hd2555125705%_ + _%tl2555225708%_ + _%e2555325711%_ + _%hd2555425715%_ + _%tl2555525718%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_))))) - (let () (declare (not safe)) (_%g2544425531%_))))) - (_%__match2686826869%_ - (lambda (_%e2546925744%_ - _%hd2547025748%_ - _%tl2547125751%_ - _%e2547225754%_ - _%hd2547325758%_ - _%tl2547425761%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) - (letrec ((_%loop2547825770%_ - (lambda (_%hd2547625774%_ _%arg2548225777%_) - (if (gx#stx-pair? _%hd2547625774%_) - (let ((_%e2547925780%_ - (gx#syntax-e _%hd2547625774%_))) - (let ((_%lp-tl2548125787%_ + (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (_%__match2693126932%_ + (lambda (_%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (letrec ((_%loop2554125833%_ + (lambda (_%hd2553925837%_ _%arg2554525840%_) + (if (gx#stx-pair? _%hd2553925837%_) + (let ((_%e2554225843%_ + (gx#syntax-e _%hd2553925837%_))) + (let ((_%lp-tl2554425850%_ (let () (declare (not safe)) - (##cdr _%e2547925780%_))) - (_%lp-hd2548025784%_ + (##cdr _%e2554225843%_))) + (_%lp-hd2554325847%_ (let () (declare (not safe)) - (##car _%e2547925780%_)))) - (_%loop2547825770%_ - _%lp-tl2548125787%_ - (cons _%lp-hd2548025784%_ - _%arg2548225777%_)))) - (let ((_%arg2548325790%_ - (reverse _%arg2548225777%_))) - (let ((_%L25794%_ _%arg2548325790%_) - (_%L25796%_ _%hd2547325758%_)) - (if (_%dotted-identifier?25437%_ - _%L25796%_) - (_%__kont2680826809%_ - _%L25794%_ - _%L25796%_) - (_%__match2688026881%_ - _%e2546925744%_ - _%hd2547025748%_ - _%tl2547125751%_ - _%e2547225754%_ - _%hd2547325758%_ - _%tl2547425761%_)))))))) - (_%loop2547825770%_ _%target2547525764%_ '())))) - (_%__match2686626867%_ - (lambda (_%e2546925744%_ - _%hd2547025748%_ - _%tl2547125751%_ - _%e2547225754%_ - _%hd2547325758%_ - _%tl2547425761%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) - (if (gx#stx-null? _%tl2547725767%_) - (_%__match2686826869%_ - _%e2546925744%_ - _%hd2547025748%_ - _%tl2547125751%_ - _%e2547225754%_ - _%hd2547325758%_ - _%tl2547425761%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) - (if (gx#stx-pair? _%tl2547425761%_) - (let ((_%e2549325658%_ - (gx#syntax-e _%tl2547425761%_))) - (let ((_%tl2549525665%_ + (##car _%e2554225843%_)))) + (_%loop2554125833%_ + _%lp-tl2554425850%_ + (cons _%lp-hd2554325847%_ + _%arg2554525840%_)))) + (let ((_%arg2554625853%_ + (reverse _%arg2554525840%_))) + (let ((_%L25857%_ _%arg2554625853%_) + (_%L25859%_ _%hd2553625821%_)) + (if (_%dotted-identifier?25500%_ + _%L25859%_) + (_%__kont2687126872%_ + _%L25857%_ + _%L25859%_) + (_%__match2694326944%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_)))))))) + (_%loop2554125833%_ _%target2553825827%_ '())))) + (_%__match2692926930%_ + (lambda (_%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-pair? _%tl2553725824%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2553725824%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2549325658%_)))) - (if (gx#stx-pair/null? _%tl2549525665%_) - (let ((_%__splice2681426815%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2549525665%_ + _%tl2555825728%_ '0))) - (let ((_%tl2549825671%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '1))) - (_%target2549625668%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2549825671%_) - (_%__match2689426895%_ - _%e2546925744%_ - _%hd2547025748%_ - _%tl2547125751%_ - _%e2547225754%_ - _%hd2547325758%_ - _%tl2547425761%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2553225807%_ + _%hd2553325811%_ + _%tl2553425814%_ + _%e2553525817%_ + _%hd2553625821%_ + _%tl2553725824%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_)))))) - (_%__match2684826849%_ - (lambda (_%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2680626807%_ - _%target2545525912%_ - _%tl2545725915%_ - _%e2546425918%_ - _%hd2546525922%_ - _%tl2546625925%_) - (letrec ((_%loop2545825928%_ - (lambda (_%hd2545625932%_ _%arg2546225935%_) - (if (gx#stx-pair? _%hd2545625932%_) - (let ((_%e2545925938%_ - (gx#syntax-e _%hd2545625932%_))) - (let ((_%lp-tl2546125945%_ + (_%g2550725594%_)))))) + (_%__match2691126912%_ + (lambda (_%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2686926870%_ + _%target2551825975%_ + _%tl2552025978%_ + _%e2552725981%_ + _%hd2552825985%_ + _%tl2552925988%_) + (letrec ((_%loop2552125991%_ + (lambda (_%hd2551925995%_ _%arg2552525998%_) + (if (gx#stx-pair? _%hd2551925995%_) + (let ((_%e2552226001%_ + (gx#syntax-e _%hd2551925995%_))) + (let ((_%lp-tl2552426008%_ (let () (declare (not safe)) - (##cdr _%e2545925938%_))) - (_%lp-hd2546025942%_ + (##cdr _%e2552226001%_))) + (_%lp-hd2552326005%_ (let () (declare (not safe)) - (##car _%e2545925938%_)))) - (_%loop2545825928%_ - _%lp-tl2546125945%_ - (cons _%lp-hd2546025942%_ - _%arg2546225935%_)))) - (let ((_%arg2546325948%_ - (reverse _%arg2546225935%_))) - (let ((_%L25952%_ _%hd2546525922%_) - (_%L25954%_ _%arg2546325948%_) - (_%L25955%_ _%hd2545325906%_)) - (if (and (_%dotted-identifier?25437%_ - _%L25955%_) + (##car _%e2552226001%_)))) + (_%loop2552125991%_ + _%lp-tl2552426008%_ + (cons _%lp-hd2552326005%_ + _%arg2552525998%_)))) + (let ((_%arg2552626011%_ + (reverse _%arg2552525998%_))) + (let ((_%L26015%_ _%hd2552825985%_) + (_%L26017%_ _%arg2552626011%_) + (_%L26018%_ _%hd2551625969%_)) + (if (and (_%dotted-identifier?25500%_ + _%L26018%_) (gx#stx-ormap gx#ellipsis? - (foldr (lambda (_%g2597425977%_ + (foldr (lambda (_%g2603726040%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2597525980%_) - (cons _%g2597425977%_ _%g2597525980%_)) + _%g2603826043%_) + (cons _%g2603726040%_ _%g2603826043%_)) '() - _%L25954%_))) + _%L26017%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2680426805%_ - _%L25952%_ - _%L25954%_ - _%L25955%_) - (let ((_%__splice2681026811%_ + (_%__kont2686726868%_ + _%L26015%_ + _%L26017%_ + _%L26018%_) + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2545425909%_ + _%tl2551725972%_ '0))) - (let ((_%tl2547725767%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '1))) - (_%target2547525764%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '0)))) - (_%__match2686626867%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_)))))))))) - (_%loop2545825928%_ _%target2545525912%_ '()))))) - (if (gx#stx-pair? _%__stx2680126802%_) - (let ((_%e2544925892%_ (gx#syntax-e _%__stx2680126802%_))) - (let ((_%tl2545125899%_ + (_%__match2692926930%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_)))))))))) + (_%loop2552125991%_ _%target2551825975%_ '()))))) + (if (gx#stx-pair? _%__stx2686426865%_) + (let ((_%e2551225955%_ (gx#syntax-e _%__stx2686426865%_))) + (let ((_%tl2551425962%_ (let () (declare (not safe)) - (##cdr _%e2544925892%_))) - (_%hd2545025896%_ + (##cdr _%e2551225955%_))) + (_%hd2551325959%_ (let () (declare (not safe)) - (##car _%e2544925892%_)))) - (if (gx#stx-pair? _%tl2545125899%_) - (let ((_%e2545225902%_ - (gx#syntax-e _%tl2545125899%_))) - (let ((_%tl2545425909%_ + (##car _%e2551225955%_)))) + (if (gx#stx-pair? _%tl2551425962%_) + (let ((_%e2551525965%_ + (gx#syntax-e _%tl2551425962%_))) + (let ((_%tl2551725972%_ (let () (declare (not safe)) - (##cdr _%e2545225902%_))) - (_%hd2545325906%_ + (##cdr _%e2551525965%_))) + (_%hd2551625969%_ (let () (declare (not safe)) - (##car _%e2545225902%_)))) - (if (gx#stx-pair/null? _%tl2545425909%_) - (if (let ((__tmp27273 + (##car _%e2551525965%_)))) + (if (gx#stx-pair/null? _%tl2551725972%_) + (if (let ((__tmp27336 (gx#stx-length - _%tl2545425909%_))) + _%tl2551725972%_))) (declare (not safe)) - (##fx>= __tmp27273 '1)) - (let ((_%__splice2680626807%_ + (##fx>= __tmp27336 '1)) + (let ((_%__splice2686926870%_ (gx#syntax-split-splice - _%tl2545425909%_ + _%tl2551725972%_ '1))) - (let ((_%tl2545725915%_ + (let ((_%tl2552025978%_ (let () (declare (not safe)) (##vector-ref - _%__splice2680626807%_ + _%__splice2686926870%_ '1))) - (_%target2545525912%_ + (_%target2551825975%_ (let () (declare (not safe)) (##vector-ref - _%__splice2680626807%_ + _%__splice2686926870%_ '0)))) - (if (gx#stx-pair? _%tl2545725915%_) - (let ((_%e2546425918%_ + (if (gx#stx-pair? _%tl2552025978%_) + (let ((_%e2552725981%_ (gx#syntax-e - _%tl2545725915%_))) - (let ((_%tl2546625925%_ + _%tl2552025978%_))) + (let ((_%tl2552925988%_ (let () (declare (not safe)) - (##cdr _%e2546425918%_))) - (_%hd2546525922%_ + (##cdr _%e2552725981%_))) + (_%hd2552825985%_ (let () (declare (not safe)) - (##car _%e2546425918%_)))) + (##car _%e2552725981%_)))) (if (gx#stx-null? - _%tl2546625925%_) - (_%__match2684826849%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2680626807%_ - _%target2545525912%_ - _%tl2545725915%_ - _%e2546425918%_ - _%hd2546525922%_ - _%tl2546625925%_) - (let ((_%__splice2681026811%_ + _%tl2552925988%_) + (_%__match2691126912%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2686926870%_ + _%target2551825975%_ + _%tl2552025978%_ + _%e2552725981%_ + _%hd2552825985%_ + _%tl2552925988%_) + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2545425909%_ + _%tl2551725972%_ '0))) - (let ((_%tl2547725767%_ + (let ((_%tl2554025830%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice2681026811%_ '1))) - (_%target2547525764%_ + (##vector-ref _%__splice2687326874%_ '1))) + (_%target2553825827%_ (let () (declare (not safe)) - (##vector-ref _%__splice2681026811%_ '0)))) - (if (gx#stx-null? _%tl2547725767%_) - (_%__match2686826869%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) - (if (gx#stx-pair? _%tl2545425909%_) - (let ((_%e2549325658%_ - (gx#syntax-e _%tl2545425909%_))) - (let ((_%tl2549525665%_ + (##vector-ref _%__splice2687326874%_ '0)))) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) + (if (gx#stx-pair? _%tl2551725972%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2549325658%_)))) - (if (gx#stx-pair/null? _%tl2549525665%_) - (let ((_%__splice2681426815%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2549525665%_ + _%tl2555825728%_ '0))) - (let ((_%tl2549825671%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '1))) - (_%target2549625668%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2549825671%_) - (_%__match2689426895%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_))))))))) + (_%g2550725594%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2681026811%_ + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2545425909%_ + _%tl2551725972%_ '0))) - (let ((_%tl2547725767%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '1))) - (_%target2547525764%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '0)))) (if (gx#stx-null? - _%tl2547725767%_) - (_%__match2686826869%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) + _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) (if (gx#stx-pair? - _%tl2545425909%_) - (let ((_%e2549325658%_ + _%tl2551725972%_) + (let ((_%e2555625721%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2545425909%_))) - (let ((_%tl2549525665%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2549325658%_)))) - (if (gx#stx-pair/null? _%tl2549525665%_) - (let ((_%__splice2681426815%_ + (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2549525665%_ + _%tl2555825728%_ '0))) - (let ((_%tl2549825671%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '1))) - (_%target2549625668%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '0)))) - (if (gx#stx-null? _%tl2549825671%_) - (_%__match2689426895%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2544425531%_))))) - (let () (declare (not safe)) (_%g2544425531%_))))) - (let () (declare (not safe)) (_%g2544425531%_))))))))) + (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%__splice2681026811%_ + (let ((_%__splice2687326874%_ (gx#syntax-split-splice - _%tl2545425909%_ + _%tl2551725972%_ '0))) - (let ((_%tl2547725767%_ + (let ((_%tl2554025830%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '1))) - (_%target2547525764%_ + (_%target2553825827%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681026811%_ + _%__splice2687326874%_ '0)))) - (if (gx#stx-null? _%tl2547725767%_) - (_%__match2686826869%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%__splice2681026811%_ - _%target2547525764%_ - _%tl2547725767%_) + (if (gx#stx-null? _%tl2554025830%_) + (_%__match2693126932%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%__splice2687326874%_ + _%target2553825827%_ + _%tl2554025830%_) (if (gx#stx-pair? - _%tl2545425909%_) - (let ((_%e2549325658%_ + _%tl2551725972%_) + (let ((_%e2555625721%_ (gx#syntax-e - _%tl2545425909%_))) - (let ((_%tl2549525665%_ + _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ - (let () (declare (not safe)) (##car _%e2549325658%_)))) - (if (gx#stx-pair/null? _%tl2549525665%_) - (let ((_%__splice2681426815%_ - (gx#syntax-split-splice _%tl2549525665%_ '0))) - (let ((_%tl2549825671%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ + (let () (declare (not safe)) (##car _%e2555625721%_)))) + (if (gx#stx-pair/null? _%tl2555825728%_) + (let ((_%__splice2687726878%_ + (gx#syntax-split-splice _%tl2555825728%_ '0))) + (let ((_%tl2556125734%_ (let () (declare (not safe)) - (##vector-ref _%__splice2681426815%_ '1))) - (_%target2549625668%_ + (##vector-ref _%__splice2687726878%_ '1))) + (_%target2555925731%_ (let () (declare (not safe)) - (##vector-ref _%__splice2681426815%_ '0)))) - (if (gx#stx-null? _%tl2549825671%_) - (_%__match2689426895%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) - (let () (declare (not safe)) (_%g2544425531%_))))) - (let () (declare (not safe)) (_%g2544425531%_))))) + (##vector-ref _%__splice2687726878%_ '0)))) + (if (gx#stx-null? _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2544425531%_))))))) - (if (gx#stx-pair? _%tl2545425909%_) - (let ((_%e2549325658%_ - (gx#syntax-e _%tl2545425909%_))) - (let ((_%tl2549525665%_ + (_%g2550725594%_))))))) + (if (gx#stx-pair? _%tl2551725972%_) + (let ((_%e2555625721%_ + (gx#syntax-e _%tl2551725972%_))) + (let ((_%tl2555825728%_ (let () (declare (not safe)) - (##cdr _%e2549325658%_))) - (_%hd2549425662%_ + (##cdr _%e2555625721%_))) + (_%hd2555725725%_ (let () (declare (not safe)) - (##car _%e2549325658%_)))) + (##car _%e2555625721%_)))) (if (gx#stx-pair/null? - _%tl2549525665%_) - (let ((_%__splice2681426815%_ + _%tl2555825728%_) + (let ((_%__splice2687726878%_ (gx#syntax-split-splice - _%tl2549525665%_ + _%tl2555825728%_ '0))) - (let ((_%tl2549825671%_ + (let ((_%tl2556125734%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '1))) - (_%target2549625668%_ + (_%target2555925731%_ (let () (declare (not safe)) (##vector-ref - _%__splice2681426815%_ + _%__splice2687726878%_ '0)))) (if (gx#stx-null? - _%tl2549825671%_) - (_%__match2689426895%_ - _%e2544925892%_ - _%hd2545025896%_ - _%tl2545125899%_ - _%e2545225902%_ - _%hd2545325906%_ - _%tl2545425909%_ - _%e2549325658%_ - _%hd2549425662%_ - _%tl2549525665%_ - _%__splice2681426815%_ - _%target2549625668%_ - _%tl2549825671%_) + _%tl2556125734%_) + (_%__match2695726958%_ + _%e2551225955%_ + _%hd2551325959%_ + _%tl2551425962%_ + _%e2551525965%_ + _%hd2551625969%_ + _%tl2551725972%_ + _%e2555625721%_ + _%hd2555725725%_ + _%tl2555825728%_ + _%__splice2687726878%_ + _%target2555925731%_ + _%tl2556125734%_) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_))))) + (_%g2550725594%_))))) (let () (declare (not safe)) - (_%g2544425531%_)))))) - (let () (declare (not safe)) (_%g2544425531%_))))) - (let () (declare (not safe)) (_%g2544425531%_))))))))) + (_%g2550725594%_)))))) + (let () (declare (not safe)) (_%g2550725594%_))))) + (let () (declare (not safe)) (_%g2550725594%_))))))))) (define |gerbil/core/mop~MOP-4[:0:]#@| - (lambda (_%$stx26083%_) - (let* ((_%__stx2692326924%_ _%$stx26083%_) - (_%g2608826128%_ + (lambda (_%$stx26146%_) + (let* ((_%__stx2698626987%_ _%$stx26146%_) + (_%g2615126191%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2692326924%_)))) - (let ((_%__kont2692626927%_ - (lambda (_%L26266%_ _%L26268%_) + _%__stx2698626987%_)))) + (let ((_%__kont2698926990%_ + (lambda (_%L26329%_ _%L26331%_) (cons (gx#datum->syntax '#f 'slot-ref) - (cons _%L26268%_ + (cons _%L26331%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26266%_ '())) + (cons _%L26329%_ '())) '()))))) - (_%__kont2692826929%_ - (lambda (_%L26195%_ _%L26197%_ _%L26198%_ _%L26199%_) - (cons _%L26199%_ - (cons (cons _%L26199%_ - (cons _%L26198%_ (cons _%L26197%_ '()))) - (foldr (lambda (_%g2622026223%_ _%g2622126226%_) - (cons _%g2622026223%_ _%g2622126226%_)) + (_%__kont2699126992%_ + (lambda (_%L26258%_ _%L26260%_ _%L26261%_ _%L26262%_) + (cons _%L26262%_ + (cons (cons _%L26262%_ + (cons _%L26261%_ (cons _%L26260%_ '()))) + (foldr (lambda (_%g2628326286%_ _%g2628426289%_) + (cons _%g2628326286%_ _%g2628426289%_)) '() - _%L26195%_)))))) - (let* ((_%__match2697826979%_ - (lambda (_%e2610526135%_ - _%hd2610626139%_ - _%tl2610726142%_ - _%e2610826145%_ - _%hd2610926149%_ - _%tl2611026152%_ - _%e2611126155%_ - _%hd2611226159%_ - _%tl2611326162%_ - _%__splice2693026931%_ - _%target2611426165%_ - _%tl2611626168%_) - (letrec ((_%loop2611726171%_ - (lambda (_%hd2611526175%_ _%rest2612126178%_) - (if (gx#stx-pair? _%hd2611526175%_) - (let ((_%e2611826181%_ - (gx#syntax-e _%hd2611526175%_))) - (let ((_%lp-tl2612026188%_ + _%L26258%_)))))) + (let* ((_%__match2704127042%_ + (lambda (_%e2616826198%_ + _%hd2616926202%_ + _%tl2617026205%_ + _%e2617126208%_ + _%hd2617226212%_ + _%tl2617326215%_ + _%e2617426218%_ + _%hd2617526222%_ + _%tl2617626225%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) + (letrec ((_%loop2618026234%_ + (lambda (_%hd2617826238%_ _%rest2618426241%_) + (if (gx#stx-pair? _%hd2617826238%_) + (let ((_%e2618126244%_ + (gx#syntax-e _%hd2617826238%_))) + (let ((_%lp-tl2618326251%_ (let () (declare (not safe)) - (##cdr _%e2611826181%_))) - (_%lp-hd2611926185%_ + (##cdr _%e2618126244%_))) + (_%lp-hd2618226248%_ (let () (declare (not safe)) - (##car _%e2611826181%_)))) - (_%loop2611726171%_ - _%lp-tl2612026188%_ - (cons _%lp-hd2611926185%_ - _%rest2612126178%_)))) - (let ((_%rest2612226191%_ - (reverse _%rest2612126178%_))) - (_%__kont2692826929%_ - _%rest2612226191%_ - _%hd2611226159%_ - _%hd2610926149%_ - _%hd2610626139%_)))))) - (_%loop2611726171%_ _%target2611426165%_ '())))) - (_%__match2695226953%_ - (lambda (_%e2609226236%_ - _%hd2609326240%_ - _%tl2609426243%_ - _%e2609526246%_ - _%hd2609626250%_ - _%tl2609726253%_ - _%e2609826256%_ - _%hd2609926260%_ - _%tl2610026263%_) - (let ((_%L26266%_ _%hd2609926260%_) - (_%L26268%_ _%hd2609626250%_)) - (if (gx#identifier? _%L26266%_) - (_%__kont2692626927%_ _%L26266%_ _%L26268%_) - (if (gx#stx-pair/null? _%tl2610026263%_) - (let ((_%__splice2693026931%_ + (##car _%e2618126244%_)))) + (_%loop2618026234%_ + _%lp-tl2618326251%_ + (cons _%lp-hd2618226248%_ + _%rest2618426241%_)))) + (let ((_%rest2618526254%_ + (reverse _%rest2618426241%_))) + (_%__kont2699126992%_ + _%rest2618526254%_ + _%hd2617526222%_ + _%hd2617226212%_ + _%hd2616926202%_)))))) + (_%loop2618026234%_ _%target2617726228%_ '())))) + (_%__match2701527016%_ + (lambda (_%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_) + (let ((_%L26329%_ _%hd2616226323%_) + (_%L26331%_ _%hd2615926313%_)) + (if (gx#identifier? _%L26329%_) + (_%__kont2698926990%_ _%L26329%_ _%L26331%_) + (if (gx#stx-pair/null? _%tl2616326326%_) + (let ((_%__splice2699326994%_ (gx#syntax-split-splice - _%tl2610026263%_ + _%tl2616326326%_ '0))) - (let ((_%tl2611626168%_ + (let ((_%tl2617926231%_ (let () (declare (not safe)) (##vector-ref - _%__splice2693026931%_ + _%__splice2699326994%_ '1))) - (_%target2611426165%_ + (_%target2617726228%_ (let () (declare (not safe)) (##vector-ref - _%__splice2693026931%_ + _%__splice2699326994%_ '0)))) - (if (gx#stx-null? _%tl2611626168%_) - (_%__match2697826979%_ - _%e2609226236%_ - _%hd2609326240%_ - _%tl2609426243%_ - _%e2609526246%_ - _%hd2609626250%_ - _%tl2609726253%_ - _%e2609826256%_ - _%hd2609926260%_ - _%tl2610026263%_ - _%__splice2693026931%_ - _%target2611426165%_ - _%tl2611626168%_) + (if (gx#stx-null? _%tl2617926231%_) + (_%__match2704127042%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) (let () (declare (not safe)) - (_%g2608826128%_))))) + (_%g2615126191%_))))) (let () (declare (not safe)) - (_%g2608826128%_)))))))) - (if (gx#stx-pair? _%__stx2692326924%_) - (let ((_%e2609226236%_ (gx#syntax-e _%__stx2692326924%_))) - (let ((_%tl2609426243%_ + (_%g2615126191%_)))))))) + (if (gx#stx-pair? _%__stx2698626987%_) + (let ((_%e2615526299%_ (gx#syntax-e _%__stx2698626987%_))) + (let ((_%tl2615726306%_ (let () (declare (not safe)) - (##cdr _%e2609226236%_))) - (_%hd2609326240%_ + (##cdr _%e2615526299%_))) + (_%hd2615626303%_ (let () (declare (not safe)) - (##car _%e2609226236%_)))) - (if (gx#stx-pair? _%tl2609426243%_) - (let ((_%e2609526246%_ - (gx#syntax-e _%tl2609426243%_))) - (let ((_%tl2609726253%_ + (##car _%e2615526299%_)))) + (if (gx#stx-pair? _%tl2615726306%_) + (let ((_%e2615826309%_ + (gx#syntax-e _%tl2615726306%_))) + (let ((_%tl2616026316%_ (let () (declare (not safe)) - (##cdr _%e2609526246%_))) - (_%hd2609626250%_ + (##cdr _%e2615826309%_))) + (_%hd2615926313%_ (let () (declare (not safe)) - (##car _%e2609526246%_)))) - (if (gx#stx-pair? _%tl2609726253%_) - (let ((_%e2609826256%_ - (gx#syntax-e _%tl2609726253%_))) - (let ((_%tl2610026263%_ + (##car _%e2615826309%_)))) + (if (gx#stx-pair? _%tl2616026316%_) + (let ((_%e2616126319%_ + (gx#syntax-e _%tl2616026316%_))) + (let ((_%tl2616326326%_ (let () (declare (not safe)) - (##cdr _%e2609826256%_))) - (_%hd2609926260%_ + (##cdr _%e2616126319%_))) + (_%hd2616226323%_ (let () (declare (not safe)) - (##car _%e2609826256%_)))) - (if (gx#stx-null? _%tl2610026263%_) - (_%__match2695226953%_ - _%e2609226236%_ - _%hd2609326240%_ - _%tl2609426243%_ - _%e2609526246%_ - _%hd2609626250%_ - _%tl2609726253%_ - _%e2609826256%_ - _%hd2609926260%_ - _%tl2610026263%_) + (##car _%e2616126319%_)))) + (if (gx#stx-null? _%tl2616326326%_) + (_%__match2701527016%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_) (if (gx#stx-pair/null? - _%tl2610026263%_) - (let ((_%__splice2693026931%_ + _%tl2616326326%_) + (let ((_%__splice2699326994%_ (gx#syntax-split-splice - _%tl2610026263%_ + _%tl2616326326%_ '0))) - (let ((_%tl2611626168%_ + (let ((_%tl2617926231%_ (let () (declare (not safe)) (##vector-ref - _%__splice2693026931%_ + _%__splice2699326994%_ '1))) - (_%target2611426165%_ + (_%target2617726228%_ (let () (declare (not safe)) (##vector-ref - _%__splice2693026931%_ + _%__splice2699326994%_ '0)))) (if (gx#stx-null? - _%tl2611626168%_) - (_%__match2697826979%_ - _%e2609226236%_ - _%hd2609326240%_ - _%tl2609426243%_ - _%e2609526246%_ - _%hd2609626250%_ - _%tl2609726253%_ - _%e2609826256%_ - _%hd2609926260%_ - _%tl2610026263%_ - _%__splice2693026931%_ - _%target2611426165%_ - _%tl2611626168%_) + _%tl2617926231%_) + (_%__match2704127042%_ + _%e2615526299%_ + _%hd2615626303%_ + _%tl2615726306%_ + _%e2615826309%_ + _%hd2615926313%_ + _%tl2616026316%_ + _%e2616126319%_ + _%hd2616226323%_ + _%tl2616326326%_ + _%__splice2699326994%_ + _%target2617726228%_ + _%tl2617926231%_) (let () (declare (not safe)) - (_%g2608826128%_))))) + (_%g2615126191%_))))) (let () (declare (not safe)) - (_%g2608826128%_)))))) + (_%g2615126191%_)))))) (let () (declare (not safe)) - (_%g2608826128%_))))) - (let () (declare (not safe)) (_%g2608826128%_))))) - (let () (declare (not safe)) (_%g2608826128%_)))))))) + (_%g2615126191%_))))) + (let () (declare (not safe)) (_%g2615126191%_))))) + (let () (declare (not safe)) (_%g2615126191%_)))))))) (define |gerbil/core/mop~MOP-4[:0:]#@-set!| - (lambda (_%$stx26288%_) - (let* ((_%__stx2698126982%_ _%$stx26288%_) - (_%g2629326345%_ + (lambda (_%$stx26351%_) + (let* ((_%__stx2704427045%_ _%$stx26351%_) + (_%g2635626408%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2698126982%_)))) - (let ((_%__kont2698426985%_ - (lambda (_%L26521%_ _%L26523%_ _%L26524%_) + _%__stx2704427045%_)))) + (let ((_%__kont2704727048%_ + (lambda (_%L26584%_ _%L26586%_ _%L26587%_) (cons (gx#datum->syntax '#f 'slot-set!) - (cons _%L26524%_ + (cons _%L26587%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26523%_ '())) - (cons _%L26521%_ '())))))) - (_%__kont2698626987%_ - (lambda (_%L26432%_ - _%L26434%_ - _%L26435%_ - _%L26436%_ - _%L26437%_ - _%L26438%_) - (cons _%L26438%_ + (cons _%L26586%_ '())) + (cons _%L26584%_ '())))))) + (_%__kont2704927050%_ + (lambda (_%L26495%_ + _%L26497%_ + _%L26498%_ + _%L26499%_ + _%L26500%_ + _%L26501%_) + (cons _%L26501%_ (cons (cons (gx#datum->syntax '#f '@) - (cons _%L26437%_ - (cons _%L26436%_ - (foldr (lambda (_%g2646526468%_ + (cons _%L26500%_ + (cons _%L26499%_ + (foldr (lambda (_%g2652826531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g2646626471%_) - (cons _%g2646526468%_ _%g2646626471%_)) + _%g2652926534%_) + (cons _%g2652826531%_ _%g2652926534%_)) '() - _%L26435%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L26434%_ (cons _%L26432%_ '()))))))) - (let* ((_%__match2705627057%_ - (lambda (_%e2631626352%_ - _%hd2631726356%_ - _%tl2631826359%_ - _%e2631926362%_ - _%hd2632026366%_ - _%tl2632126369%_ - _%e2632226372%_ - _%hd2632326376%_ - _%tl2632426379%_ - _%__splice2698826989%_ - _%target2632526382%_ - _%tl2632726385%_ - _%e2633426388%_ - _%hd2633526392%_ - _%tl2633626395%_ - _%e2633726398%_ - _%hd2633826402%_ - _%tl2633926405%_) - (letrec ((_%loop2632826408%_ - (lambda (_%hd2632626412%_ _%path2633226415%_) - (if (gx#stx-pair? _%hd2632626412%_) - (let ((_%e2632926418%_ - (gx#syntax-e _%hd2632626412%_))) - (let ((_%lp-tl2633126425%_ + _%L26498%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L26497%_ (cons _%L26495%_ '()))))))) + (let* ((_%__match2711927120%_ + (lambda (_%e2637926415%_ + _%hd2638026419%_ + _%tl2638126422%_ + _%e2638226425%_ + _%hd2638326429%_ + _%tl2638426432%_ + _%e2638526435%_ + _%hd2638626439%_ + _%tl2638726442%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) + (letrec ((_%loop2639126471%_ + (lambda (_%hd2638926475%_ _%path2639526478%_) + (if (gx#stx-pair? _%hd2638926475%_) + (let ((_%e2639226481%_ + (gx#syntax-e _%hd2638926475%_))) + (let ((_%lp-tl2639426488%_ (let () (declare (not safe)) - (##cdr _%e2632926418%_))) - (_%lp-hd2633026422%_ + (##cdr _%e2639226481%_))) + (_%lp-hd2639326485%_ (let () (declare (not safe)) - (##car _%e2632926418%_)))) - (_%loop2632826408%_ - _%lp-tl2633126425%_ - (cons _%lp-hd2633026422%_ - _%path2633226415%_)))) - (let ((_%path2633326428%_ - (reverse _%path2633226415%_))) - (_%__kont2698626987%_ - _%hd2633826402%_ - _%hd2633526392%_ - _%path2633326428%_ - _%hd2632326376%_ - _%hd2632026366%_ - _%hd2631726356%_)))))) - (_%loop2632826408%_ _%target2632526382%_ '())))) - (_%__match2701627017%_ - (lambda (_%e2629826481%_ - _%hd2629926485%_ - _%tl2630026488%_ - _%e2630126491%_ - _%hd2630226495%_ - _%tl2630326498%_ - _%e2630426501%_ - _%hd2630526505%_ - _%tl2630626508%_ - _%e2630726511%_ - _%hd2630826515%_ - _%tl2630926518%_) - (let ((_%L26521%_ _%hd2630826515%_) - (_%L26523%_ _%hd2630526505%_) - (_%L26524%_ _%hd2630226495%_)) - (if (gx#identifier? _%L26523%_) - (_%__kont2698426985%_ - _%L26521%_ - _%L26523%_ - _%L26524%_) - (if (gx#stx-pair/null? _%tl2630626508%_) - (if (let ((__tmp27274 - (gx#stx-length _%tl2630626508%_))) + (##car _%e2639226481%_)))) + (_%loop2639126471%_ + _%lp-tl2639426488%_ + (cons _%lp-hd2639326485%_ + _%path2639526478%_)))) + (let ((_%path2639626491%_ + (reverse _%path2639526478%_))) + (_%__kont2704927050%_ + _%hd2640126465%_ + _%hd2639826455%_ + _%path2639626491%_ + _%hd2638626439%_ + _%hd2638326429%_ + _%hd2638026419%_)))))) + (_%loop2639126471%_ _%target2638826445%_ '())))) + (_%__match2707927080%_ + (lambda (_%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%e2637026574%_ + _%hd2637126578%_ + _%tl2637226581%_) + (let ((_%L26584%_ _%hd2637126578%_) + (_%L26586%_ _%hd2636826568%_) + (_%L26587%_ _%hd2636526558%_)) + (if (gx#identifier? _%L26586%_) + (_%__kont2704727048%_ + _%L26584%_ + _%L26586%_ + _%L26587%_) + (if (gx#stx-pair/null? _%tl2636926571%_) + (if (let ((__tmp27337 + (gx#stx-length _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27274 '2)) - (let ((_%__splice2698826989%_ + (##fx>= __tmp27337 '2)) + (let ((_%__splice2705127052%_ (gx#syntax-split-splice - _%tl2630626508%_ + _%tl2636926571%_ '2))) - (let ((_%tl2632726385%_ + (let ((_%tl2639026448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698826989%_ + _%__splice2705127052%_ '1))) - (_%target2632526382%_ + (_%target2638826445%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698826989%_ + _%__splice2705127052%_ '0)))) - (if (gx#stx-pair? _%tl2632726385%_) - (let ((_%e2633426388%_ + (if (gx#stx-pair? _%tl2639026448%_) + (let ((_%e2639726451%_ (gx#syntax-e - _%tl2632726385%_))) - (let ((_%tl2633626395%_ + _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2633426388%_))) - (_%hd2633526392%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2633426388%_)))) + (##car _%e2639726451%_)))) (if (gx#stx-pair? - _%tl2633626395%_) - (let ((_%e2633726398%_ + _%tl2639926458%_) + (let ((_%e2640026461%_ (gx#syntax-e - _%tl2633626395%_))) - (let ((_%tl2633926405%_ + _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e2633726398%_))) - (_%hd2633826402%_ - (let () (declare (not safe)) (##car _%e2633726398%_)))) - (if (gx#stx-null? _%tl2633926405%_) - (_%__match2705627057%_ - _%e2629826481%_ - _%hd2629926485%_ - _%tl2630026488%_ - _%e2630126491%_ - _%hd2630226495%_ - _%tl2630326498%_ - _%e2630426501%_ - _%hd2630526505%_ - _%tl2630626508%_ - _%__splice2698826989%_ - _%target2632526382%_ - _%tl2632726385%_ - _%e2633426388%_ - _%hd2633526392%_ - _%tl2633626395%_ - _%e2633726398%_ - _%hd2633826402%_ - _%tl2633926405%_) - (let () (declare (not safe)) (_%g2629326345%_))))) + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ + (let () (declare (not safe)) (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) + (let () (declare (not safe)) (_%g2635626408%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2629326345%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2629326345%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2629326345%_))) + (_%g2635626408%_))) (let () (declare (not safe)) - (_%g2629326345%_)))))))) - (if (gx#stx-pair? _%__stx2698126982%_) - (let ((_%e2629826481%_ (gx#syntax-e _%__stx2698126982%_))) - (let ((_%tl2630026488%_ + (_%g2635626408%_)))))))) + (if (gx#stx-pair? _%__stx2704427045%_) + (let ((_%e2636126544%_ (gx#syntax-e _%__stx2704427045%_))) + (let ((_%tl2636326551%_ (let () (declare (not safe)) - (##cdr _%e2629826481%_))) - (_%hd2629926485%_ + (##cdr _%e2636126544%_))) + (_%hd2636226548%_ (let () (declare (not safe)) - (##car _%e2629826481%_)))) - (if (gx#stx-pair? _%tl2630026488%_) - (let ((_%e2630126491%_ - (gx#syntax-e _%tl2630026488%_))) - (let ((_%tl2630326498%_ + (##car _%e2636126544%_)))) + (if (gx#stx-pair? _%tl2636326551%_) + (let ((_%e2636426554%_ + (gx#syntax-e _%tl2636326551%_))) + (let ((_%tl2636626561%_ (let () (declare (not safe)) - (##cdr _%e2630126491%_))) - (_%hd2630226495%_ + (##cdr _%e2636426554%_))) + (_%hd2636526558%_ (let () (declare (not safe)) - (##car _%e2630126491%_)))) - (if (gx#stx-pair? _%tl2630326498%_) - (let ((_%e2630426501%_ - (gx#syntax-e _%tl2630326498%_))) - (let ((_%tl2630626508%_ + (##car _%e2636426554%_)))) + (if (gx#stx-pair? _%tl2636626561%_) + (let ((_%e2636726564%_ + (gx#syntax-e _%tl2636626561%_))) + (let ((_%tl2636926571%_ (let () (declare (not safe)) - (##cdr _%e2630426501%_))) - (_%hd2630526505%_ + (##cdr _%e2636726564%_))) + (_%hd2636826568%_ (let () (declare (not safe)) - (##car _%e2630426501%_)))) - (if (gx#stx-pair? _%tl2630626508%_) - (let ((_%e2630726511%_ + (##car _%e2636726564%_)))) + (if (gx#stx-pair? _%tl2636926571%_) + (let ((_%e2637026574%_ (gx#syntax-e - _%tl2630626508%_))) - (let ((_%tl2630926518%_ + _%tl2636926571%_))) + (let ((_%tl2637226581%_ (let () (declare (not safe)) - (##cdr _%e2630726511%_))) - (_%hd2630826515%_ + (##cdr _%e2637026574%_))) + (_%hd2637126578%_ (let () (declare (not safe)) - (##car _%e2630726511%_)))) + (##car _%e2637026574%_)))) (if (gx#stx-null? - _%tl2630926518%_) - (_%__match2701627017%_ - _%e2629826481%_ - _%hd2629926485%_ - _%tl2630026488%_ - _%e2630126491%_ - _%hd2630226495%_ - _%tl2630326498%_ - _%e2630426501%_ - _%hd2630526505%_ - _%tl2630626508%_ - _%e2630726511%_ - _%hd2630826515%_ - _%tl2630926518%_) + _%tl2637226581%_) + (_%__match2707927080%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%e2637026574%_ + _%hd2637126578%_ + _%tl2637226581%_) (if (gx#stx-pair/null? - _%tl2630626508%_) - (if (let ((__tmp27275 + _%tl2636926571%_) + (if (let ((__tmp27338 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-length _%tl2630626508%_))) + (gx#stx-length _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27275 '2)) - (let ((_%__splice2698826989%_ - (gx#syntax-split-splice _%tl2630626508%_ '2))) - (let ((_%tl2632726385%_ + (##fx>= __tmp27338 '2)) + (let ((_%__splice2705127052%_ + (gx#syntax-split-splice _%tl2636926571%_ '2))) + (let ((_%tl2639026448%_ (let () (declare (not safe)) - (##vector-ref _%__splice2698826989%_ '1))) - (_%target2632526382%_ + (##vector-ref _%__splice2705127052%_ '1))) + (_%target2638826445%_ (let () (declare (not safe)) - (##vector-ref _%__splice2698826989%_ '0)))) - (if (gx#stx-pair? _%tl2632726385%_) - (let ((_%e2633426388%_ - (gx#syntax-e _%tl2632726385%_))) - (let ((_%tl2633626395%_ + (##vector-ref _%__splice2705127052%_ '0)))) + (if (gx#stx-pair? _%tl2639026448%_) + (let ((_%e2639726451%_ + (gx#syntax-e _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2633426388%_))) - (_%hd2633526392%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2633426388%_)))) - (if (gx#stx-pair? _%tl2633626395%_) - (let ((_%e2633726398%_ - (gx#syntax-e _%tl2633626395%_))) - (let ((_%tl2633926405%_ + (##car _%e2639726451%_)))) + (if (gx#stx-pair? _%tl2639926458%_) + (let ((_%e2640026461%_ + (gx#syntax-e _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare (not safe)) - (##cdr _%e2633726398%_))) - (_%hd2633826402%_ + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ (let () (declare (not safe)) - (##car _%e2633726398%_)))) - (if (gx#stx-null? _%tl2633926405%_) - (_%__match2705627057%_ - _%e2629826481%_ - _%hd2629926485%_ - _%tl2630026488%_ - _%e2630126491%_ - _%hd2630226495%_ - _%tl2630326498%_ - _%e2630426501%_ - _%hd2630526505%_ - _%tl2630626508%_ - _%__splice2698826989%_ - _%target2632526382%_ - _%tl2632726385%_ - _%e2633426388%_ - _%hd2633526392%_ - _%tl2633626395%_ - _%e2633726398%_ - _%hd2633826402%_ - _%tl2633926405%_) + (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) (let () (declare (not safe)) - (_%g2629326345%_))))) + (_%g2635626408%_))))) (let () (declare (not safe)) - (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_))) - (let () (declare (not safe)) (_%g2629326345%_)))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))) + (let () (declare (not safe)) (_%g2635626408%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl2630626508%_) - (if (let ((__tmp27276 + _%tl2636926571%_) + (if (let ((__tmp27339 (gx#stx-length - _%tl2630626508%_))) + _%tl2636926571%_))) (declare (not safe)) - (##fx>= __tmp27276 '2)) - (let ((_%__splice2698826989%_ + (##fx>= __tmp27339 '2)) + (let ((_%__splice2705127052%_ (gx#syntax-split-splice - _%tl2630626508%_ + _%tl2636926571%_ '2))) - (let ((_%tl2632726385%_ + (let ((_%tl2639026448%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698826989%_ + _%__splice2705127052%_ '1))) - (_%target2632526382%_ + (_%target2638826445%_ (let () (declare (not safe)) (##vector-ref - _%__splice2698826989%_ + _%__splice2705127052%_ '0)))) (if (gx#stx-pair? - _%tl2632726385%_) - (let ((_%e2633426388%_ + _%tl2639026448%_) + (let ((_%e2639726451%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl2632726385%_))) - (let ((_%tl2633626395%_ + (gx#syntax-e _%tl2639026448%_))) + (let ((_%tl2639926458%_ (let () (declare (not safe)) - (##cdr _%e2633426388%_))) - (_%hd2633526392%_ + (##cdr _%e2639726451%_))) + (_%hd2639826455%_ (let () (declare (not safe)) - (##car _%e2633426388%_)))) - (if (gx#stx-pair? _%tl2633626395%_) - (let ((_%e2633726398%_ - (gx#syntax-e _%tl2633626395%_))) - (let ((_%tl2633926405%_ + (##car _%e2639726451%_)))) + (if (gx#stx-pair? _%tl2639926458%_) + (let ((_%e2640026461%_ + (gx#syntax-e _%tl2639926458%_))) + (let ((_%tl2640226468%_ (let () (declare (not safe)) - (##cdr _%e2633726398%_))) - (_%hd2633826402%_ + (##cdr _%e2640026461%_))) + (_%hd2640126465%_ (let () (declare (not safe)) - (##car _%e2633726398%_)))) - (if (gx#stx-null? _%tl2633926405%_) - (_%__match2705627057%_ - _%e2629826481%_ - _%hd2629926485%_ - _%tl2630026488%_ - _%e2630126491%_ - _%hd2630226495%_ - _%tl2630326498%_ - _%e2630426501%_ - _%hd2630526505%_ - _%tl2630626508%_ - _%__splice2698826989%_ - _%target2632526382%_ - _%tl2632726385%_ - _%e2633426388%_ - _%hd2633526392%_ - _%tl2633626395%_ - _%e2633726398%_ - _%hd2633826402%_ - _%tl2633926405%_) + (##car _%e2640026461%_)))) + (if (gx#stx-null? _%tl2640226468%_) + (_%__match2711927120%_ + _%e2636126544%_ + _%hd2636226548%_ + _%tl2636326551%_ + _%e2636426554%_ + _%hd2636526558%_ + _%tl2636626561%_ + _%e2636726564%_ + _%hd2636826568%_ + _%tl2636926571%_ + _%__splice2705127052%_ + _%target2638826445%_ + _%tl2639026448%_ + _%e2639726451%_ + _%hd2639826455%_ + _%tl2639926458%_ + _%e2640026461%_ + _%hd2640126465%_ + _%tl2640226468%_) (let () (declare (not safe)) - (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g2629326345%_))) + (_%g2635626408%_))) (let () (declare (not safe)) - (_%g2629326345%_)))))) + (_%g2635626408%_)))))) (let () (declare (not safe)) - (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_))))) - (let () (declare (not safe)) (_%g2629326345%_)))))))))) + (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_))))) + (let () (declare (not safe)) (_%g2635626408%_)))))))))) diff --git a/src/bootstrap/gerbil/core/mop~4.scm b/src/bootstrap/gerbil/core/mop~4.scm index bbf9f88ec..1a7112fde 100644 --- a/src/bootstrap/gerbil/core/mop~4.scm +++ b/src/bootstrap/gerbil/core/mop~4.scm @@ -1,1293 +1,1293 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/mop~MOP-5[1]#_g27280_| + (define |gerbil/core/mop~MOP-5[1]#_g27343_| (##structure gx#syntax-quote::t 't::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27282_| + (define |gerbil/core/mop~MOP-5[1]#_g27345_| (##structure gx#syntax-quote::t 'true #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27284_| + (define |gerbil/core/mop~MOP-5[1]#_g27347_| (##structure gx#syntax-quote::t ':t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27286_| + (define |gerbil/core/mop~MOP-5[1]#_g27349_| (##structure gx#syntax-quote::t 'class::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27288_| + (define |gerbil/core/mop~MOP-5[1]#_g27351_| (##structure gx#syntax-quote::t 'class-type? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27292_| + (define |gerbil/core/mop~MOP-5[1]#_g27355_| (##structure gx#syntax-quote::t 'make-class-type #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27295_| + (define |gerbil/core/mop~MOP-5[1]#_g27358_| (##structure gx#syntax-quote::t 'class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27296_| + (define |gerbil/core/mop~MOP-5[1]#_g27359_| (##structure gx#syntax-quote::t 'class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27297_| + (define |gerbil/core/mop~MOP-5[1]#_g27360_| (##structure gx#syntax-quote::t 'class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27298_| + (define |gerbil/core/mop~MOP-5[1]#_g27361_| (##structure gx#syntax-quote::t 'class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27299_| + (define |gerbil/core/mop~MOP-5[1]#_g27362_| (##structure gx#syntax-quote::t 'class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27300_| + (define |gerbil/core/mop~MOP-5[1]#_g27363_| (##structure gx#syntax-quote::t 'class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27301_| + (define |gerbil/core/mop~MOP-5[1]#_g27364_| (##structure gx#syntax-quote::t 'class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27302_| + (define |gerbil/core/mop~MOP-5[1]#_g27365_| (##structure gx#syntax-quote::t 'class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27303_| + (define |gerbil/core/mop~MOP-5[1]#_g27366_| (##structure gx#syntax-quote::t 'class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27304_| + (define |gerbil/core/mop~MOP-5[1]#_g27367_| (##structure gx#syntax-quote::t 'class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27305_| + (define |gerbil/core/mop~MOP-5[1]#_g27368_| (##structure gx#syntax-quote::t 'class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27307_| + (define |gerbil/core/mop~MOP-5[1]#_g27370_| (##structure gx#syntax-quote::t '&class-type-id #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27308_| + (define |gerbil/core/mop~MOP-5[1]#_g27371_| (##structure gx#syntax-quote::t '&class-type-name #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27309_| + (define |gerbil/core/mop~MOP-5[1]#_g27372_| (##structure gx#syntax-quote::t '&class-type-super #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27310_| + (define |gerbil/core/mop~MOP-5[1]#_g27373_| (##structure gx#syntax-quote::t '&class-type-flags #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27311_| + (define |gerbil/core/mop~MOP-5[1]#_g27374_| (##structure gx#syntax-quote::t '&class-type-fields #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27312_| + (define |gerbil/core/mop~MOP-5[1]#_g27375_| (##structure gx#syntax-quote::t '&class-type-precedence-list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27313_| + (define |gerbil/core/mop~MOP-5[1]#_g27376_| (##structure gx#syntax-quote::t '&class-type-slot-vector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27314_| + (define |gerbil/core/mop~MOP-5[1]#_g27377_| (##structure gx#syntax-quote::t '&class-type-slot-table #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27315_| + (define |gerbil/core/mop~MOP-5[1]#_g27378_| (##structure gx#syntax-quote::t '&class-type-properties #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27316_| + (define |gerbil/core/mop~MOP-5[1]#_g27379_| (##structure gx#syntax-quote::t '&class-type-constructor #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27317_| + (define |gerbil/core/mop~MOP-5[1]#_g27380_| (##structure gx#syntax-quote::t '&class-type-methods #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27320_| + (define |gerbil/core/mop~MOP-5[1]#_g27383_| (##structure gx#syntax-quote::t 'object::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27324_| + (define |gerbil/core/mop~MOP-5[1]#_g27387_| (##structure gx#syntax-quote::t 'immediate::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27326_| + (define |gerbil/core/mop~MOP-5[1]#_g27389_| (##structure gx#syntax-quote::t 'immediate? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27328_| + (define |gerbil/core/mop~MOP-5[1]#_g27391_| (##structure gx#syntax-quote::t ':immediate #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27330_| + (define |gerbil/core/mop~MOP-5[1]#_g27393_| (##structure gx#syntax-quote::t 'char::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27332_| + (define |gerbil/core/mop~MOP-5[1]#_g27395_| (##structure gx#syntax-quote::t 'char? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27335_| + (define |gerbil/core/mop~MOP-5[1]#_g27398_| (##structure gx#syntax-quote::t 'boolean::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27337_| + (define |gerbil/core/mop~MOP-5[1]#_g27400_| (##structure gx#syntax-quote::t 'boolean? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27340_| + (define |gerbil/core/mop~MOP-5[1]#_g27403_| (##structure gx#syntax-quote::t 'atom::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27342_| + (define |gerbil/core/mop~MOP-5[1]#_g27405_| (##structure gx#syntax-quote::t 'atom? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27344_| + (define |gerbil/core/mop~MOP-5[1]#_g27407_| (##structure gx#syntax-quote::t ':atom #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27346_| + (define |gerbil/core/mop~MOP-5[1]#_g27409_| (##structure gx#syntax-quote::t 'void::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27348_| + (define |gerbil/core/mop~MOP-5[1]#_g27411_| (##structure gx#syntax-quote::t 'void? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27351_| + (define |gerbil/core/mop~MOP-5[1]#_g27414_| (##structure gx#syntax-quote::t 'eof::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27353_| + (define |gerbil/core/mop~MOP-5[1]#_g27416_| (##structure gx#syntax-quote::t 'eof-object? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27355_| + (define |gerbil/core/mop~MOP-5[1]#_g27418_| (##structure gx#syntax-quote::t ':boolean #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27357_| + (define |gerbil/core/mop~MOP-5[1]#_g27420_| (##structure gx#syntax-quote::t 'true::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27359_| + (define |gerbil/core/mop~MOP-5[1]#_g27422_| (##structure gx#syntax-quote::t 'true? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27362_| + (define |gerbil/core/mop~MOP-5[1]#_g27425_| (##structure gx#syntax-quote::t 'false::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27364_| + (define |gerbil/core/mop~MOP-5[1]#_g27427_| (##structure gx#syntax-quote::t 'not #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27367_| + (define |gerbil/core/mop~MOP-5[1]#_g27430_| (##structure gx#syntax-quote::t 'special::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27369_| + (define |gerbil/core/mop~MOP-5[1]#_g27432_| (##structure gx#syntax-quote::t 'special? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27372_| + (define |gerbil/core/mop~MOP-5[1]#_g27435_| (##structure gx#syntax-quote::t 'number::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27374_| + (define |gerbil/core/mop~MOP-5[1]#_g27437_| (##structure gx#syntax-quote::t 'number? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27376_| + (define |gerbil/core/mop~MOP-5[1]#_g27439_| (##structure gx#syntax-quote::t ':number #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27378_| + (define |gerbil/core/mop~MOP-5[1]#_g27441_| (##structure gx#syntax-quote::t 'real::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27380_| + (define |gerbil/core/mop~MOP-5[1]#_g27443_| (##structure gx#syntax-quote::t 'real? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27382_| + (define |gerbil/core/mop~MOP-5[1]#_g27445_| (##structure gx#syntax-quote::t ':real #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27384_| + (define |gerbil/core/mop~MOP-5[1]#_g27447_| (##structure gx#syntax-quote::t 'integer::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27386_| + (define |gerbil/core/mop~MOP-5[1]#_g27449_| (##structure gx#syntax-quote::t 'exact-integer? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27388_| + (define |gerbil/core/mop~MOP-5[1]#_g27451_| (##structure gx#syntax-quote::t ':integer #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27390_| + (define |gerbil/core/mop~MOP-5[1]#_g27453_| (##structure gx#syntax-quote::t 'fixnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27392_| + (define |gerbil/core/mop~MOP-5[1]#_g27455_| (##structure gx#syntax-quote::t 'fixnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27395_| + (define |gerbil/core/mop~MOP-5[1]#_g27458_| (##structure gx#syntax-quote::t 'bignum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27397_| + (define |gerbil/core/mop~MOP-5[1]#_g27460_| (##structure gx#syntax-quote::t '##bignum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27400_| + (define |gerbil/core/mop~MOP-5[1]#_g27463_| (##structure gx#syntax-quote::t 'ratnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27402_| + (define |gerbil/core/mop~MOP-5[1]#_g27465_| (##structure gx#syntax-quote::t '##ratnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27405_| + (define |gerbil/core/mop~MOP-5[1]#_g27468_| (##structure gx#syntax-quote::t 'flonum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27407_| + (define |gerbil/core/mop~MOP-5[1]#_g27470_| (##structure gx#syntax-quote::t 'flonum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27410_| + (define |gerbil/core/mop~MOP-5[1]#_g27473_| (##structure gx#syntax-quote::t 'cpxnum::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27412_| + (define |gerbil/core/mop~MOP-5[1]#_g27475_| (##structure gx#syntax-quote::t '##cpxnum? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27415_| + (define |gerbil/core/mop~MOP-5[1]#_g27478_| (##structure gx#syntax-quote::t 'symbolic::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27417_| + (define |gerbil/core/mop~MOP-5[1]#_g27480_| (##structure gx#syntax-quote::t 'symbolic? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27419_| + (define |gerbil/core/mop~MOP-5[1]#_g27482_| (##structure gx#syntax-quote::t ':symbolic #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27421_| + (define |gerbil/core/mop~MOP-5[1]#_g27484_| (##structure gx#syntax-quote::t 'symbol::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27423_| + (define |gerbil/core/mop~MOP-5[1]#_g27486_| (##structure gx#syntax-quote::t 'symbol? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27426_| + (define |gerbil/core/mop~MOP-5[1]#_g27489_| (##structure gx#syntax-quote::t 'keyword::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27428_| + (define |gerbil/core/mop~MOP-5[1]#_g27491_| (##structure gx#syntax-quote::t 'keyword? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27431_| + (define |gerbil/core/mop~MOP-5[1]#_g27494_| (##structure gx#syntax-quote::t 'list::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27433_| + (define |gerbil/core/mop~MOP-5[1]#_g27496_| (##structure gx#syntax-quote::t 'list? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27435_| + (define |gerbil/core/mop~MOP-5[1]#_g27498_| (##structure gx#syntax-quote::t ':list #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27437_| + (define |gerbil/core/mop~MOP-5[1]#_g27500_| (##structure gx#syntax-quote::t 'pair::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27439_| + (define |gerbil/core/mop~MOP-5[1]#_g27502_| (##structure gx#syntax-quote::t 'pair? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27442_| + (define |gerbil/core/mop~MOP-5[1]#_g27505_| (##structure gx#syntax-quote::t 'null::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27444_| + (define |gerbil/core/mop~MOP-5[1]#_g27507_| (##structure gx#syntax-quote::t 'null? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27447_| + (define |gerbil/core/mop~MOP-5[1]#_g27510_| (##structure gx#syntax-quote::t 'sequence::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27449_| + (define |gerbil/core/mop~MOP-5[1]#_g27512_| (##structure gx#syntax-quote::t 'sequence? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27451_| + (define |gerbil/core/mop~MOP-5[1]#_g27514_| (##structure gx#syntax-quote::t ':sequence #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27453_| + (define |gerbil/core/mop~MOP-5[1]#_g27516_| (##structure gx#syntax-quote::t 'vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27455_| + (define |gerbil/core/mop~MOP-5[1]#_g27518_| (##structure gx#syntax-quote::t 'vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27458_| + (define |gerbil/core/mop~MOP-5[1]#_g27521_| (##structure gx#syntax-quote::t 'string::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27460_| + (define |gerbil/core/mop~MOP-5[1]#_g27523_| (##structure gx#syntax-quote::t 'string? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27463_| + (define |gerbil/core/mop~MOP-5[1]#_g27526_| (##structure gx#syntax-quote::t 'hvector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27465_| + (define |gerbil/core/mop~MOP-5[1]#_g27528_| (##structure gx#syntax-quote::t 'hvector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27467_| + (define |gerbil/core/mop~MOP-5[1]#_g27530_| (##structure gx#syntax-quote::t ':hvector #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27469_| + (define |gerbil/core/mop~MOP-5[1]#_g27532_| (##structure gx#syntax-quote::t 'u8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27471_| + (define |gerbil/core/mop~MOP-5[1]#_g27534_| (##structure gx#syntax-quote::t 'u8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27474_| + (define |gerbil/core/mop~MOP-5[1]#_g27537_| (##structure gx#syntax-quote::t 's8vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27476_| + (define |gerbil/core/mop~MOP-5[1]#_g27539_| (##structure gx#syntax-quote::t 's8vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27479_| + (define |gerbil/core/mop~MOP-5[1]#_g27542_| (##structure gx#syntax-quote::t 'u16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27481_| + (define |gerbil/core/mop~MOP-5[1]#_g27544_| (##structure gx#syntax-quote::t 'u16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27484_| + (define |gerbil/core/mop~MOP-5[1]#_g27547_| (##structure gx#syntax-quote::t 's16vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27486_| + (define |gerbil/core/mop~MOP-5[1]#_g27549_| (##structure gx#syntax-quote::t 's16vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27489_| + (define |gerbil/core/mop~MOP-5[1]#_g27552_| (##structure gx#syntax-quote::t 'u32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27491_| + (define |gerbil/core/mop~MOP-5[1]#_g27554_| (##structure gx#syntax-quote::t 'u32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27494_| + (define |gerbil/core/mop~MOP-5[1]#_g27557_| (##structure gx#syntax-quote::t 's32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27496_| + (define |gerbil/core/mop~MOP-5[1]#_g27559_| (##structure gx#syntax-quote::t 's32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27499_| + (define |gerbil/core/mop~MOP-5[1]#_g27562_| (##structure gx#syntax-quote::t 'u64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27501_| + (define |gerbil/core/mop~MOP-5[1]#_g27564_| (##structure gx#syntax-quote::t 'u64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27504_| + (define |gerbil/core/mop~MOP-5[1]#_g27567_| (##structure gx#syntax-quote::t 's64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27506_| + (define |gerbil/core/mop~MOP-5[1]#_g27569_| (##structure gx#syntax-quote::t 's64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27509_| + (define |gerbil/core/mop~MOP-5[1]#_g27572_| (##structure gx#syntax-quote::t 'f32vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27511_| + (define |gerbil/core/mop~MOP-5[1]#_g27574_| (##structure gx#syntax-quote::t 'f32vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27514_| + (define |gerbil/core/mop~MOP-5[1]#_g27577_| (##structure gx#syntax-quote::t 'f64vector::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27516_| + (define |gerbil/core/mop~MOP-5[1]#_g27579_| (##structure gx#syntax-quote::t 'f64vector? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27519_| + (define |gerbil/core/mop~MOP-5[1]#_g27582_| (##structure gx#syntax-quote::t 'values::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27521_| + (define |gerbil/core/mop~MOP-5[1]#_g27584_| (##structure gx#syntax-quote::t '##values? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27524_| + (define |gerbil/core/mop~MOP-5[1]#_g27587_| (##structure gx#syntax-quote::t 'box::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27526_| + (define |gerbil/core/mop~MOP-5[1]#_g27589_| (##structure gx#syntax-quote::t 'box? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27529_| + (define |gerbil/core/mop~MOP-5[1]#_g27592_| (##structure gx#syntax-quote::t 'frame::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27531_| + (define |gerbil/core/mop~MOP-5[1]#_g27594_| (##structure gx#syntax-quote::t '##frame? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27534_| + (define |gerbil/core/mop~MOP-5[1]#_g27597_| (##structure gx#syntax-quote::t 'continuation::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27536_| + (define |gerbil/core/mop~MOP-5[1]#_g27599_| (##structure gx#syntax-quote::t 'continuation? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27539_| + (define |gerbil/core/mop~MOP-5[1]#_g27602_| (##structure gx#syntax-quote::t 'promise::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27541_| + (define |gerbil/core/mop~MOP-5[1]#_g27604_| (##structure gx#syntax-quote::t 'promise? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27544_| + (define |gerbil/core/mop~MOP-5[1]#_g27607_| (##structure gx#syntax-quote::t 'weak::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27546_| + (define |gerbil/core/mop~MOP-5[1]#_g27609_| (##structure gx#syntax-quote::t 'weak? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27549_| + (define |gerbil/core/mop~MOP-5[1]#_g27612_| (##structure gx#syntax-quote::t 'foreign::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27551_| + (define |gerbil/core/mop~MOP-5[1]#_g27614_| (##structure gx#syntax-quote::t 'foreign? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27554_| + (define |gerbil/core/mop~MOP-5[1]#_g27617_| (##structure gx#syntax-quote::t 'procedure::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27556_| + (define |gerbil/core/mop~MOP-5[1]#_g27619_| (##structure gx#syntax-quote::t 'procedure? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27559_| + (define |gerbil/core/mop~MOP-5[1]#_g27622_| (##structure gx#syntax-quote::t 'time::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27561_| + (define |gerbil/core/mop~MOP-5[1]#_g27624_| (##structure gx#syntax-quote::t 'time? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27564_| + (define |gerbil/core/mop~MOP-5[1]#_g27627_| (##structure gx#syntax-quote::t 'thread::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27566_| + (define |gerbil/core/mop~MOP-5[1]#_g27629_| (##structure gx#syntax-quote::t 'thread? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27569_| + (define |gerbil/core/mop~MOP-5[1]#_g27632_| (##structure gx#syntax-quote::t 'thread-group::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27571_| + (define |gerbil/core/mop~MOP-5[1]#_g27634_| (##structure gx#syntax-quote::t 'thread-group? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27574_| + (define |gerbil/core/mop~MOP-5[1]#_g27637_| (##structure gx#syntax-quote::t 'mutex::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27576_| + (define |gerbil/core/mop~MOP-5[1]#_g27639_| (##structure gx#syntax-quote::t 'mutex? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27579_| + (define |gerbil/core/mop~MOP-5[1]#_g27642_| (##structure gx#syntax-quote::t 'condvar::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27581_| + (define |gerbil/core/mop~MOP-5[1]#_g27644_| (##structure gx#syntax-quote::t 'condvar? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27584_| + (define |gerbil/core/mop~MOP-5[1]#_g27647_| (##structure gx#syntax-quote::t 'port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27586_| + (define |gerbil/core/mop~MOP-5[1]#_g27649_| (##structure gx#syntax-quote::t 'port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27588_| + (define |gerbil/core/mop~MOP-5[1]#_g27651_| (##structure gx#syntax-quote::t ':port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27590_| + (define |gerbil/core/mop~MOP-5[1]#_g27653_| (##structure gx#syntax-quote::t 'object-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27592_| + (define |gerbil/core/mop~MOP-5[1]#_g27655_| (##structure gx#syntax-quote::t 'object-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27594_| + (define |gerbil/core/mop~MOP-5[1]#_g27657_| (##structure gx#syntax-quote::t ':object-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27596_| + (define |gerbil/core/mop~MOP-5[1]#_g27659_| (##structure gx#syntax-quote::t 'character-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27598_| + (define |gerbil/core/mop~MOP-5[1]#_g27661_| (##structure gx#syntax-quote::t 'character-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27600_| + (define |gerbil/core/mop~MOP-5[1]#_g27663_| (##structure gx#syntax-quote::t ':character-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27602_| + (define |gerbil/core/mop~MOP-5[1]#_g27665_| (##structure gx#syntax-quote::t 'byte-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27604_| + (define |gerbil/core/mop~MOP-5[1]#_g27667_| (##structure gx#syntax-quote::t 'byte-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27606_| + (define |gerbil/core/mop~MOP-5[1]#_g27669_| (##structure gx#syntax-quote::t ':byte-port #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27608_| + (define |gerbil/core/mop~MOP-5[1]#_g27671_| (##structure gx#syntax-quote::t 'device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27610_| + (define |gerbil/core/mop~MOP-5[1]#_g27673_| (##structure gx#syntax-quote::t 'device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27613_| + (define |gerbil/core/mop~MOP-5[1]#_g27676_| (##structure gx#syntax-quote::t 'vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27615_| + (define |gerbil/core/mop~MOP-5[1]#_g27678_| (##structure gx#syntax-quote::t 'vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27618_| + (define |gerbil/core/mop~MOP-5[1]#_g27681_| (##structure gx#syntax-quote::t 'string-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27620_| + (define |gerbil/core/mop~MOP-5[1]#_g27683_| (##structure gx#syntax-quote::t 'string-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27623_| + (define |gerbil/core/mop~MOP-5[1]#_g27686_| (##structure gx#syntax-quote::t 'u8vector-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27625_| + (define |gerbil/core/mop~MOP-5[1]#_g27688_| (##structure gx#syntax-quote::t 'u8vector-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27628_| + (define |gerbil/core/mop~MOP-5[1]#_g27691_| (##structure gx#syntax-quote::t 'raw-device-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27630_| + (define |gerbil/core/mop~MOP-5[1]#_g27693_| (##structure gx#syntax-quote::t 'raw-device-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27633_| + (define |gerbil/core/mop~MOP-5[1]#_g27696_| (##structure gx#syntax-quote::t 'tcp-server-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27635_| + (define |gerbil/core/mop~MOP-5[1]#_g27698_| (##structure gx#syntax-quote::t 'tcp-server-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27638_| + (define |gerbil/core/mop~MOP-5[1]#_g27701_| (##structure gx#syntax-quote::t 'udp-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27640_| + (define |gerbil/core/mop~MOP-5[1]#_g27703_| (##structure gx#syntax-quote::t 'udp-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27643_| + (define |gerbil/core/mop~MOP-5[1]#_g27706_| (##structure gx#syntax-quote::t 'directory-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27645_| + (define |gerbil/core/mop~MOP-5[1]#_g27708_| (##structure gx#syntax-quote::t 'directory-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27648_| + (define |gerbil/core/mop~MOP-5[1]#_g27711_| (##structure gx#syntax-quote::t 'event-queue-port::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27650_| + (define |gerbil/core/mop~MOP-5[1]#_g27713_| (##structure gx#syntax-quote::t 'event-queue-port? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27653_| + (define |gerbil/core/mop~MOP-5[1]#_g27716_| (##structure gx#syntax-quote::t 'table::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27655_| + (define |gerbil/core/mop~MOP-5[1]#_g27718_| (##structure gx#syntax-quote::t 'table? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27658_| + (define |gerbil/core/mop~MOP-5[1]#_g27721_| (##structure gx#syntax-quote::t 'readenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27660_| + (define |gerbil/core/mop~MOP-5[1]#_g27723_| (##structure gx#syntax-quote::t 'readenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27663_| + (define |gerbil/core/mop~MOP-5[1]#_g27726_| (##structure gx#syntax-quote::t 'writeenv::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27665_| + (define |gerbil/core/mop~MOP-5[1]#_g27728_| (##structure gx#syntax-quote::t 'writeenv? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27668_| + (define |gerbil/core/mop~MOP-5[1]#_g27731_| (##structure gx#syntax-quote::t 'readtable::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27670_| + (define |gerbil/core/mop~MOP-5[1]#_g27733_| (##structure gx#syntax-quote::t 'readtable? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27673_| + (define |gerbil/core/mop~MOP-5[1]#_g27736_| (##structure gx#syntax-quote::t 'processor::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27675_| + (define |gerbil/core/mop~MOP-5[1]#_g27738_| (##structure gx#syntax-quote::t 'processor? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27678_| + (define |gerbil/core/mop~MOP-5[1]#_g27741_| (##structure gx#syntax-quote::t 'vm::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27680_| + (define |gerbil/core/mop~MOP-5[1]#_g27743_| (##structure gx#syntax-quote::t 'vm? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27683_| + (define |gerbil/core/mop~MOP-5[1]#_g27746_| (##structure gx#syntax-quote::t 'file-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27685_| + (define |gerbil/core/mop~MOP-5[1]#_g27748_| (##structure gx#syntax-quote::t 'file-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27688_| + (define |gerbil/core/mop~MOP-5[1]#_g27751_| (##structure gx#syntax-quote::t 'socket-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27690_| + (define |gerbil/core/mop~MOP-5[1]#_g27753_| (##structure gx#syntax-quote::t 'socket-info? #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27693_| + (define |gerbil/core/mop~MOP-5[1]#_g27756_| (##structure gx#syntax-quote::t 'address-info::t #f (gx#current-expander-context) '())) - (define |gerbil/core/mop~MOP-5[1]#_g27695_| + (define |gerbil/core/mop~MOP-5[1]#_g27758_| (##structure gx#syntax-quote::t 'address-info? @@ -1296,161 +1296,161 @@ '())) (begin (define |gerbil/core/mop~MOP-5[:0:]#defsystem-class-info| - (lambda (_%stx26548%_) - (let* ((_%g2655126586%_ - (lambda (_%g2655226582%_) + (lambda (_%stx26611%_) + (let* ((_%g2661426649%_ + (lambda (_%g2661526645%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2655226582%_))) - (_%g2655026780%_ - (lambda (_%g2655226590%_) - (if (gx#stx-pair? _%g2655226590%_) - (let ((_%e2655726593%_ (gx#syntax-e _%g2655226590%_))) - (let ((_%hd2655826597%_ + _%g2661526645%_))) + (_%g2661326843%_ + (lambda (_%g2661526653%_) + (if (gx#stx-pair? _%g2661526653%_) + (let ((_%e2662026656%_ (gx#syntax-e _%g2661526653%_))) + (let ((_%hd2662126660%_ (let () (declare (not safe)) - (##car _%e2655726593%_))) - (_%tl2655926600%_ + (##car _%e2662026656%_))) + (_%tl2662226663%_ (let () (declare (not safe)) - (##cdr _%e2655726593%_)))) - (if (gx#stx-pair? _%tl2655926600%_) - (let ((_%e2656026603%_ - (gx#syntax-e _%tl2655926600%_))) - (let ((_%hd2656126607%_ + (##cdr _%e2662026656%_)))) + (if (gx#stx-pair? _%tl2662226663%_) + (let ((_%e2662326666%_ + (gx#syntax-e _%tl2662226663%_))) + (let ((_%hd2662426670%_ (let () (declare (not safe)) - (##car _%e2656026603%_))) - (_%tl2656226610%_ + (##car _%e2662326666%_))) + (_%tl2662526673%_ (let () (declare (not safe)) - (##cdr _%e2656026603%_)))) - (if (gx#stx-pair? _%tl2656226610%_) - (let ((_%e2656326613%_ - (gx#syntax-e _%tl2656226610%_))) - (let ((_%hd2656426617%_ + (##cdr _%e2662326666%_)))) + (if (gx#stx-pair? _%tl2662526673%_) + (let ((_%e2662626676%_ + (gx#syntax-e _%tl2662526673%_))) + (let ((_%hd2662726680%_ (let () (declare (not safe)) - (##car _%e2656326613%_))) - (_%tl2656526620%_ + (##car _%e2662626676%_))) + (_%tl2662826683%_ (let () (declare (not safe)) - (##cdr _%e2656326613%_)))) - (if (gx#stx-pair? _%tl2656526620%_) - (let ((_%e2656626623%_ + (##cdr _%e2662626676%_)))) + (if (gx#stx-pair? _%tl2662826683%_) + (let ((_%e2662926686%_ (gx#syntax-e - _%tl2656526620%_))) - (let ((_%hd2656726627%_ + _%tl2662826683%_))) + (let ((_%hd2663026690%_ (let () (declare (not safe)) - (##car _%e2656626623%_))) - (_%tl2656826630%_ + (##car _%e2662926686%_))) + (_%tl2663126693%_ (let () (declare (not safe)) - (##cdr _%e2656626623%_)))) + (##cdr _%e2662926686%_)))) (if (gx#stx-pair/null? - _%hd2656726627%_) - (let ((_g27277_ + _%hd2663026690%_) + (let ((_g27340_ (gx#syntax-split-splice - _%hd2656726627%_ + _%hd2663026690%_ '0))) (begin - (let ((_g27278_ + (let ((_g27341_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g27277_) - (##vector-length _g27277_) + (if (##values? _g27340_) + (##values-length _g27340_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g27278_ 2))) - (error "Context expects 2 values" _g27278_))) - (let ((_%target2656926633%_ + (if (not (let () (declare (not safe)) (##fx= _g27341_ 2))) + (error "Context expects 2 values" _g27341_))) + (let ((_%target2663226696%_ (let () (declare (not safe)) - (##vector-ref _g27277_ 0))) - (_%tl2657126636%_ + (##values-ref _g27340_ 0))) + (_%tl2663426699%_ (let () (declare (not safe)) - (##vector-ref _g27277_ 1)))) - (if (gx#stx-null? _%tl2657126636%_) - (letrec ((_%loop2657226639%_ - (lambda (_%hd2657026643%_ - _%super2657626646%_) - (if (gx#stx-pair? _%hd2657026643%_) - (let ((_%e2657326649%_ - (gx#syntax-e _%hd2657026643%_))) - (let ((_%lp-hd2657426653%_ + (##values-ref _g27340_ 1)))) + (if (gx#stx-null? _%tl2663426699%_) + (letrec ((_%loop2663526702%_ + (lambda (_%hd2663326706%_ + _%super2663926709%_) + (if (gx#stx-pair? _%hd2663326706%_) + (let ((_%e2663626712%_ + (gx#syntax-e _%hd2663326706%_))) + (let ((_%lp-hd2663726716%_ (let () (declare (not safe)) - (##car _%e2657326649%_))) - (_%lp-tl2657526656%_ + (##car _%e2663626712%_))) + (_%lp-tl2663826719%_ (let () (declare (not safe)) - (##cdr _%e2657326649%_)))) - (_%loop2657226639%_ - _%lp-tl2657526656%_ - (cons _%lp-hd2657426653%_ - _%super2657626646%_)))) - (let ((_%super2657726659%_ - (reverse _%super2657626646%_))) - (if (gx#stx-pair? _%tl2656826630%_) - (let ((_%e2657826663%_ + (##cdr _%e2663626712%_)))) + (_%loop2663526702%_ + _%lp-tl2663826719%_ + (cons _%lp-hd2663726716%_ + _%super2663926709%_)))) + (let ((_%super2664026722%_ + (reverse _%super2663926709%_))) + (if (gx#stx-pair? _%tl2663126693%_) + (let ((_%e2664126726%_ (gx#syntax-e - _%tl2656826630%_))) - (let ((_%hd2657926667%_ + _%tl2663126693%_))) + (let ((_%hd2664226730%_ (let () (declare (not safe)) - (##car _%e2657826663%_))) - (_%tl2658026670%_ + (##car _%e2664126726%_))) + (_%tl2664326733%_ (let () (declare (not safe)) - (##cdr _%e2657826663%_)))) + (##cdr _%e2664126726%_)))) (if (gx#stx-null? - _%tl2658026670%_) - ((lambda (_%L26673%_ - _%L26675%_ - _%L26676%_ - _%L26677%_) - (let* ((_%klass26704%_ + _%tl2664326733%_) + ((lambda (_%L26736%_ + _%L26738%_ + _%L26739%_ + _%L26740%_) + (let* ((_%klass26767%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#eval-syntax _%L26676%_)) - (_%g2670726722%_ - (lambda (_%g2670826718%_) + (gx#eval-syntax _%L26739%_)) + (_%g2677026785%_ + (lambda (_%g2677126781%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2670826718%_))) - (_%g2670626776%_ - (lambda (_%g2670826726%_) - (if (gx#stx-pair? _%g2670826726%_) - (let ((_%e2671126729%_ - (gx#syntax-e _%g2670826726%_))) - (let ((_%hd2671226733%_ + _%g2677126781%_))) + (_%g2676926839%_ + (lambda (_%g2677126789%_) + (if (gx#stx-pair? _%g2677126789%_) + (let ((_%e2677426792%_ + (gx#syntax-e _%g2677126789%_))) + (let ((_%hd2677526796%_ (let () (declare (not safe)) - (##car _%e2671126729%_))) - (_%tl2671326736%_ + (##car _%e2677426792%_))) + (_%tl2677626799%_ (let () (declare (not safe)) - (##cdr _%e2671126729%_)))) - (if (gx#stx-pair? _%tl2671326736%_) - (let ((_%e2671426739%_ - (gx#syntax-e _%tl2671326736%_))) - (let ((_%hd2671526743%_ + (##cdr _%e2677426792%_)))) + (if (gx#stx-pair? _%tl2677626799%_) + (let ((_%e2677726802%_ + (gx#syntax-e _%tl2677626799%_))) + (let ((_%hd2677826806%_ (let () (declare (not safe)) - (##car _%e2671426739%_))) - (_%tl2671626746%_ + (##car _%e2677726802%_))) + (_%tl2677926809%_ (let () (declare (not safe)) - (##cdr _%e2671426739%_)))) - (if (gx#stx-null? _%tl2671626746%_) - ((lambda (_%L26749%_ _%L26751%_) + (##cdr _%e2677726802%_)))) + (if (gx#stx-null? _%tl2677926809%_) + ((lambda (_%L26812%_ _%L26814%_) (cons (gx#datum->syntax '#f 'defsyntax) - (cons _%L26677%_ + (cons _%L26740%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1459,25 +1459,25 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L26751%_ '())) + (cons _%L26814%_ '())) (cons 'name: (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L26749%_ '())) + (cons _%L26812%_ '())) (cons 'super: (cons (cons (gx#datum->syntax '#f '@list) - (foldr (lambda (_%g2676726770%_ - _%g2676826773%_) + (foldr (lambda (_%g2683026833%_ + _%g2683126836%_) (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%g2676726770%_ + (cons _%g2683026833%_ '())) - _%g2676826773%_)) + _%g2683126836%_)) '() - _%L26675%_)) + _%L26738%_)) (cons 'slots: (cons (cons (gx#datum->syntax '#f '@list) '()) @@ -1488,12 +1488,12 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote-syntax) - (cons _%L26676%_ '())) + (cons _%L26739%_ '())) (cons 'predicate: (cons (cons (gx#datum->syntax '#f 'quote-syntax) - (cons _%L26673%_ '())) + (cons _%L26736%_ '())) (cons 'accessors: (cons (cons (gx#datum->syntax '#f @@ -1518,35 +1518,35 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd2671526743%_ - _%hd2671226733%_) - (_%g2670726722%_ - _%g2670826726%_)))) - (_%g2670726722%_ _%g2670826726%_)))) - (_%g2670726722%_ _%g2670826726%_))))) - (_%g2670626776%_ - (list (class-type-id _%klass26704%_) - (class-type-name _%klass26704%_))))) - _%hd2657926667%_ - _%super2657726659%_ - _%hd2656426617%_ - _%hd2656126607%_) - (_%g2655126586%_ _%g2655226590%_)))) + _%hd2677826806%_ + _%hd2677526796%_) + (_%g2677026785%_ + _%g2677126789%_)))) + (_%g2677026785%_ _%g2677126789%_)))) + (_%g2677026785%_ _%g2677126789%_))))) + (_%g2676926839%_ + (list (class-type-id _%klass26767%_) + (class-type-name _%klass26767%_))))) + _%hd2664226730%_ + _%super2664026722%_ + _%hd2662726680%_ + _%hd2662426670%_) + (_%g2661426649%_ _%g2661526653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2655126586%_ - _%g2655226590%_))))))) - (_%loop2657226639%_ _%target2656926633%_ '())) - (_%g2655126586%_ _%g2655226590%_))))) - (_%g2655126586%_ _%g2655226590%_)))) + (_%g2661426649%_ + _%g2661526653%_))))))) + (_%loop2663526702%_ _%target2663226696%_ '())) + (_%g2661426649%_ _%g2661526653%_))))) + (_%g2661426649%_ _%g2661526653%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g2655126586%_ - _%g2655226590%_)))) - (_%g2655126586%_ _%g2655226590%_)))) - (_%g2655126586%_ _%g2655226590%_)))) - (_%g2655126586%_ _%g2655226590%_))))) - (_%g2655026780%_ _%stx26548%_)))) + (_%g2661426649%_ + _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_)))) + (_%g2661426649%_ _%g2661526653%_))))) + (_%g2661326843%_ _%stx26611%_)))) (define |gerbil/core/mop~MOP-5[:0:]#:t| - (let ((__obj27063 + (let ((__obj27126 (let () (declare (not safe)) (##structure @@ -1574,40 +1574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 't '1 '#f '#f)) + (##unchecked-structure-set! __obj27126 't '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 't '2 '#f '#f)) + (##unchecked-structure-set! __obj27126 't '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '#t '9 '#f '#f)) - (let ((__tmp27279 |gerbil/core/mop~MOP-5[1]#_g27280_|)) + (##unchecked-structure-set! __obj27126 '#t '9 '#f '#f)) + (let ((__tmp27342 |gerbil/core/mop~MOP-5[1]#_g27343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27279 '12 '#f '#f)) - (let ((__tmp27281 |gerbil/core/mop~MOP-5[1]#_g27282_|)) + (##unchecked-structure-set! __obj27126 __tmp27342 '12 '#f '#f)) + (let ((__tmp27344 |gerbil/core/mop~MOP-5[1]#_g27345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27063 __tmp27281 '14 '#f '#f)) + (##unchecked-structure-set! __obj27126 __tmp27344 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27126 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27063 '() '18 '#f '#f)) - __obj27063)) + (##unchecked-structure-set! __obj27126 '() '18 '#f '#f)) + __obj27126)) (define |gerbil/core/mop~MOP-5[:0:]#:class| - (let ((__obj27064 + (let ((__obj27127 (let () (declare (not safe)) (##structure @@ -1635,40 +1635,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27127 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 'class '2 '#f '#f)) - (let ((__tmp27283 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27127 'class '2 '#f '#f)) + (let ((__tmp27346 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27283 '3 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27346 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '#t '9 '#f '#f)) - (let ((__tmp27285 |gerbil/core/mop~MOP-5[1]#_g27286_|)) + (##unchecked-structure-set! __obj27127 '#t '9 '#f '#f)) + (let ((__tmp27348 |gerbil/core/mop~MOP-5[1]#_g27349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27285 '12 '#f '#f)) - (let ((__tmp27287 |gerbil/core/mop~MOP-5[1]#_g27288_|)) + (##unchecked-structure-set! __obj27127 __tmp27348 '12 '#f '#f)) + (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27064 __tmp27287 '14 '#f '#f)) + (##unchecked-structure-set! __obj27127 __tmp27350 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27127 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27064 '() '18 '#f '#f)) - __obj27064)) + (##unchecked-structure-set! __obj27127 '() '18 '#f '#f)) + __obj27127)) (define |gerbil/core/mop~MOP-5[:0:]#class| - (let ((__obj27065 + (let ((__obj27128 (let () (declare (not safe)) (##structure @@ -1696,17 +1696,17 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 'class '1 '#f '#f)) + (##unchecked-structure-set! __obj27128 'class '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 'class '2 '#f '#f)) - (let ((__tmp27289 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27128 'class '2 '#f '#f)) + (let ((__tmp27352 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27289 '3 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27352 '3 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj27065 + __obj27128 '(id name super flags @@ -1722,77 +1722,77 @@ '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '#t '7 '#f '#f)) - (let ((__tmp27290 |gerbil/core/mop~MOP-5[1]#_g27286_|)) + (##unchecked-structure-set! __obj27128 '#t '7 '#f '#f)) + (let ((__tmp27353 |gerbil/core/mop~MOP-5[1]#_g27349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27290 '12 '#f '#f)) - (let ((__tmp27291 |gerbil/core/mop~MOP-5[1]#_g27292_|)) + (##unchecked-structure-set! __obj27128 __tmp27353 '12 '#f '#f)) + (let ((__tmp27354 |gerbil/core/mop~MOP-5[1]#_g27355_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27291 '13 '#f '#f)) - (let ((__tmp27293 |gerbil/core/mop~MOP-5[1]#_g27288_|)) + (##unchecked-structure-set! __obj27128 __tmp27354 '13 '#f '#f)) + (let ((__tmp27356 |gerbil/core/mop~MOP-5[1]#_g27351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27293 '14 '#f '#f)) - (let ((__tmp27294 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27295_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27296_|) + (##unchecked-structure-set! __obj27128 __tmp27356 '14 '#f '#f)) + (let ((__tmp27357 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27358_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27359_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27297_|) + |gerbil/core/mop~MOP-5[1]#_g27360_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27298_|) + |gerbil/core/mop~MOP-5[1]#_g27361_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27299_|) + |gerbil/core/mop~MOP-5[1]#_g27362_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27300_|) + |gerbil/core/mop~MOP-5[1]#_g27363_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27301_|) + |gerbil/core/mop~MOP-5[1]#_g27364_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27302_|) + |gerbil/core/mop~MOP-5[1]#_g27365_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27303_|) + |gerbil/core/mop~MOP-5[1]#_g27366_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27304_|) + |gerbil/core/mop~MOP-5[1]#_g27367_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27305_|) + |gerbil/core/mop~MOP-5[1]#_g27368_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27294 '15 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27357 '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '16 '#f '#f)) - (let ((__tmp27306 - (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27307_|) - (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27308_|) + (##unchecked-structure-set! __obj27128 '() '16 '#f '#f)) + (let ((__tmp27369 + (cons (cons 'id |gerbil/core/mop~MOP-5[1]#_g27370_|) + (cons (cons 'name |gerbil/core/mop~MOP-5[1]#_g27371_|) (cons (cons 'super - |gerbil/core/mop~MOP-5[1]#_g27309_|) + |gerbil/core/mop~MOP-5[1]#_g27372_|) (cons (cons 'flags - |gerbil/core/mop~MOP-5[1]#_g27310_|) + |gerbil/core/mop~MOP-5[1]#_g27373_|) (cons (cons 'fields - |gerbil/core/mop~MOP-5[1]#_g27311_|) + |gerbil/core/mop~MOP-5[1]#_g27374_|) (cons (cons 'precedence-list - |gerbil/core/mop~MOP-5[1]#_g27312_|) + |gerbil/core/mop~MOP-5[1]#_g27375_|) (cons (cons 'slot-vector - |gerbil/core/mop~MOP-5[1]#_g27313_|) + |gerbil/core/mop~MOP-5[1]#_g27376_|) (cons (cons 'slot-table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gerbil/core/mop~MOP-5[1]#_g27314_|) + |gerbil/core/mop~MOP-5[1]#_g27377_|) (cons (cons 'properties - |gerbil/core/mop~MOP-5[1]#_g27315_|) + |gerbil/core/mop~MOP-5[1]#_g27378_|) (cons (cons 'constructor - |gerbil/core/mop~MOP-5[1]#_g27316_|) + |gerbil/core/mop~MOP-5[1]#_g27379_|) (cons (cons 'methods - |gerbil/core/mop~MOP-5[1]#_g27317_|) + |gerbil/core/mop~MOP-5[1]#_g27380_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj27065 __tmp27306 '17 '#f '#f)) + (##unchecked-structure-set! __obj27128 __tmp27369 '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27065 '() '18 '#f '#f)) - __obj27065)) + (##unchecked-structure-set! __obj27128 '() '18 '#f '#f)) + __obj27128)) (define |gerbil/core/mop~MOP-5[:0:]#:object| - (let ((__obj27066 + (let ((__obj27129 (let () (declare (not safe)) (##structure @@ -1820,40 +1820,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'object '1 '#f '#f)) + (##unchecked-structure-set! __obj27129 'object '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 'object '2 '#f '#f)) - (let ((__tmp27318 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27129 'object '2 '#f '#f)) + (let ((__tmp27381 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27318 '3 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '#t '9 '#f '#f)) - (let ((__tmp27319 |gerbil/core/mop~MOP-5[1]#_g27320_|)) + (##unchecked-structure-set! __obj27129 '#t '9 '#f '#f)) + (let ((__tmp27382 |gerbil/core/mop~MOP-5[1]#_g27383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27319 '12 '#f '#f)) - (let ((__tmp27321 |gerbil/core/mop~MOP-5[1]#_g27282_|)) + (##unchecked-structure-set! __obj27129 __tmp27382 '12 '#f '#f)) + (let ((__tmp27384 |gerbil/core/mop~MOP-5[1]#_g27345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27066 __tmp27321 '14 '#f '#f)) + (##unchecked-structure-set! __obj27129 __tmp27384 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27129 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27066 '() '18 '#f '#f)) - __obj27066)) + (##unchecked-structure-set! __obj27129 '() '18 '#f '#f)) + __obj27129)) (define |gerbil/core/mop~MOP-5[:0:]#:immediate| - (let ((__obj27067 + (let ((__obj27130 (let () (declare (not safe)) (##structure @@ -1881,40 +1881,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'immediate '1 '#f '#f)) + (##unchecked-structure-set! __obj27130 'immediate '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 'immediate '2 '#f '#f)) - (let ((__tmp27322 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27130 'immediate '2 '#f '#f)) + (let ((__tmp27385 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27322 '3 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27385 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '#t '9 '#f '#f)) - (let ((__tmp27323 |gerbil/core/mop~MOP-5[1]#_g27324_|)) + (##unchecked-structure-set! __obj27130 '#t '9 '#f '#f)) + (let ((__tmp27386 |gerbil/core/mop~MOP-5[1]#_g27387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27323 '12 '#f '#f)) - (let ((__tmp27325 |gerbil/core/mop~MOP-5[1]#_g27326_|)) + (##unchecked-structure-set! __obj27130 __tmp27386 '12 '#f '#f)) + (let ((__tmp27388 |gerbil/core/mop~MOP-5[1]#_g27389_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27067 __tmp27325 '14 '#f '#f)) + (##unchecked-structure-set! __obj27130 __tmp27388 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27130 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27067 '() '18 '#f '#f)) - __obj27067)) + (##unchecked-structure-set! __obj27130 '() '18 '#f '#f)) + __obj27130)) (define |gerbil/core/mop~MOP-5[:0:]#:char| - (let ((__obj27068 + (let ((__obj27131 (let () (declare (not safe)) (##structure @@ -1942,40 +1942,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'char '1 '#f '#f)) + (##unchecked-structure-set! __obj27131 'char '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 'char '2 '#f '#f)) - (let ((__tmp27327 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) + (##unchecked-structure-set! __obj27131 'char '2 '#f '#f)) + (let ((__tmp27390 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27327 '3 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27390 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '#t '9 '#f '#f)) - (let ((__tmp27329 |gerbil/core/mop~MOP-5[1]#_g27330_|)) + (##unchecked-structure-set! __obj27131 '#t '9 '#f '#f)) + (let ((__tmp27392 |gerbil/core/mop~MOP-5[1]#_g27393_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27329 '12 '#f '#f)) - (let ((__tmp27331 |gerbil/core/mop~MOP-5[1]#_g27332_|)) + (##unchecked-structure-set! __obj27131 __tmp27392 '12 '#f '#f)) + (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27068 __tmp27331 '14 '#f '#f)) + (##unchecked-structure-set! __obj27131 __tmp27394 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27131 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27068 '() '18 '#f '#f)) - __obj27068)) + (##unchecked-structure-set! __obj27131 '() '18 '#f '#f)) + __obj27131)) (define |gerbil/core/mop~MOP-5[:0:]#:boolean| - (let ((__obj27069 + (let ((__obj27132 (let () (declare (not safe)) (##structure @@ -2003,40 +2003,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'boolean '1 '#f '#f)) + (##unchecked-structure-set! __obj27132 'boolean '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 'boolean '2 '#f '#f)) - (let ((__tmp27333 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) + (##unchecked-structure-set! __obj27132 'boolean '2 '#f '#f)) + (let ((__tmp27396 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27333 '3 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27396 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '#t '9 '#f '#f)) - (let ((__tmp27334 |gerbil/core/mop~MOP-5[1]#_g27335_|)) + (##unchecked-structure-set! __obj27132 '#t '9 '#f '#f)) + (let ((__tmp27397 |gerbil/core/mop~MOP-5[1]#_g27398_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27334 '12 '#f '#f)) - (let ((__tmp27336 |gerbil/core/mop~MOP-5[1]#_g27337_|)) + (##unchecked-structure-set! __obj27132 __tmp27397 '12 '#f '#f)) + (let ((__tmp27399 |gerbil/core/mop~MOP-5[1]#_g27400_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27069 __tmp27336 '14 '#f '#f)) + (##unchecked-structure-set! __obj27132 __tmp27399 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27132 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27069 '() '18 '#f '#f)) - __obj27069)) + (##unchecked-structure-set! __obj27132 '() '18 '#f '#f)) + __obj27132)) (define |gerbil/core/mop~MOP-5[:0:]#:atom| - (let ((__obj27070 + (let ((__obj27133 (let () (declare (not safe)) (##structure @@ -2064,40 +2064,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'atom '1 '#f '#f)) + (##unchecked-structure-set! __obj27133 'atom '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 'atom '2 '#f '#f)) - (let ((__tmp27338 (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '()))) + (##unchecked-structure-set! __obj27133 'atom '2 '#f '#f)) + (let ((__tmp27401 (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27338 '3 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27401 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '#t '9 '#f '#f)) - (let ((__tmp27339 |gerbil/core/mop~MOP-5[1]#_g27340_|)) + (##unchecked-structure-set! __obj27133 '#t '9 '#f '#f)) + (let ((__tmp27402 |gerbil/core/mop~MOP-5[1]#_g27403_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27339 '12 '#f '#f)) - (let ((__tmp27341 |gerbil/core/mop~MOP-5[1]#_g27342_|)) + (##unchecked-structure-set! __obj27133 __tmp27402 '12 '#f '#f)) + (let ((__tmp27404 |gerbil/core/mop~MOP-5[1]#_g27405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27070 __tmp27341 '14 '#f '#f)) + (##unchecked-structure-set! __obj27133 __tmp27404 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27133 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27070 '() '18 '#f '#f)) - __obj27070)) + (##unchecked-structure-set! __obj27133 '() '18 '#f '#f)) + __obj27133)) (define |gerbil/core/mop~MOP-5[:0:]#:void| - (let ((__obj27071 + (let ((__obj27134 (let () (declare (not safe)) (##structure @@ -2125,40 +2125,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'void '1 '#f '#f)) + (##unchecked-structure-set! __obj27134 'void '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 'void '2 '#f '#f)) - (let ((__tmp27343 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) + (##unchecked-structure-set! __obj27134 'void '2 '#f '#f)) + (let ((__tmp27406 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27343 '3 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27406 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '#t '9 '#f '#f)) - (let ((__tmp27345 |gerbil/core/mop~MOP-5[1]#_g27346_|)) + (##unchecked-structure-set! __obj27134 '#t '9 '#f '#f)) + (let ((__tmp27408 |gerbil/core/mop~MOP-5[1]#_g27409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27345 '12 '#f '#f)) - (let ((__tmp27347 |gerbil/core/mop~MOP-5[1]#_g27348_|)) + (##unchecked-structure-set! __obj27134 __tmp27408 '12 '#f '#f)) + (let ((__tmp27410 |gerbil/core/mop~MOP-5[1]#_g27411_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27071 __tmp27347 '14 '#f '#f)) + (##unchecked-structure-set! __obj27134 __tmp27410 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27134 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27071 '() '18 '#f '#f)) - __obj27071)) + (##unchecked-structure-set! __obj27134 '() '18 '#f '#f)) + __obj27134)) (define |gerbil/core/mop~MOP-5[:0:]#:eof| - (let ((__obj27072 + (let ((__obj27135 (let () (declare (not safe)) (##structure @@ -2186,40 +2186,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'eof '1 '#f '#f)) + (##unchecked-structure-set! __obj27135 'eof '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 'eof '2 '#f '#f)) - (let ((__tmp27349 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) + (##unchecked-structure-set! __obj27135 'eof '2 '#f '#f)) + (let ((__tmp27412 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27349 '3 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27412 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '#t '9 '#f '#f)) - (let ((__tmp27350 |gerbil/core/mop~MOP-5[1]#_g27351_|)) + (##unchecked-structure-set! __obj27135 '#t '9 '#f '#f)) + (let ((__tmp27413 |gerbil/core/mop~MOP-5[1]#_g27414_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27350 '12 '#f '#f)) - (let ((__tmp27352 |gerbil/core/mop~MOP-5[1]#_g27353_|)) + (##unchecked-structure-set! __obj27135 __tmp27413 '12 '#f '#f)) + (let ((__tmp27415 |gerbil/core/mop~MOP-5[1]#_g27416_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27072 __tmp27352 '14 '#f '#f)) + (##unchecked-structure-set! __obj27135 __tmp27415 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27135 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27072 '() '18 '#f '#f)) - __obj27072)) + (##unchecked-structure-set! __obj27135 '() '18 '#f '#f)) + __obj27135)) (define |gerbil/core/mop~MOP-5[:0:]#:true| - (let ((__obj27073 + (let ((__obj27136 (let () (declare (not safe)) (##structure @@ -2247,42 +2247,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'true '1 '#f '#f)) + (##unchecked-structure-set! __obj27136 'true '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 'true '2 '#f '#f)) - (let ((__tmp27354 - (cons |gerbil/core/mop~MOP-5[1]#_g27355_| - (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '())))) + (##unchecked-structure-set! __obj27136 'true '2 '#f '#f)) + (let ((__tmp27417 + (cons |gerbil/core/mop~MOP-5[1]#_g27418_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27354 '3 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27417 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '#t '9 '#f '#f)) - (let ((__tmp27356 |gerbil/core/mop~MOP-5[1]#_g27357_|)) + (##unchecked-structure-set! __obj27136 '#t '9 '#f '#f)) + (let ((__tmp27419 |gerbil/core/mop~MOP-5[1]#_g27420_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27356 '12 '#f '#f)) - (let ((__tmp27358 |gerbil/core/mop~MOP-5[1]#_g27359_|)) + (##unchecked-structure-set! __obj27136 __tmp27419 '12 '#f '#f)) + (let ((__tmp27421 |gerbil/core/mop~MOP-5[1]#_g27422_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27073 __tmp27358 '14 '#f '#f)) + (##unchecked-structure-set! __obj27136 __tmp27421 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27136 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27073 '() '18 '#f '#f)) - __obj27073)) + (##unchecked-structure-set! __obj27136 '() '18 '#f '#f)) + __obj27136)) (define |gerbil/core/mop~MOP-5[:0:]#:false| - (let ((__obj27074 + (let ((__obj27137 (let () (declare (not safe)) (##structure @@ -2310,42 +2310,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'false '1 '#f '#f)) + (##unchecked-structure-set! __obj27137 'false '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 'false '2 '#f '#f)) - (let ((__tmp27360 - (cons |gerbil/core/mop~MOP-5[1]#_g27355_| - (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '())))) + (##unchecked-structure-set! __obj27137 'false '2 '#f '#f)) + (let ((__tmp27423 + (cons |gerbil/core/mop~MOP-5[1]#_g27418_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27360 '3 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27423 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '#t '9 '#f '#f)) - (let ((__tmp27361 |gerbil/core/mop~MOP-5[1]#_g27362_|)) + (##unchecked-structure-set! __obj27137 '#t '9 '#f '#f)) + (let ((__tmp27424 |gerbil/core/mop~MOP-5[1]#_g27425_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27361 '12 '#f '#f)) - (let ((__tmp27363 |gerbil/core/mop~MOP-5[1]#_g27364_|)) + (##unchecked-structure-set! __obj27137 __tmp27424 '12 '#f '#f)) + (let ((__tmp27426 |gerbil/core/mop~MOP-5[1]#_g27427_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27074 __tmp27363 '14 '#f '#f)) + (##unchecked-structure-set! __obj27137 __tmp27426 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27137 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27074 '() '18 '#f '#f)) - __obj27074)) + (##unchecked-structure-set! __obj27137 '() '18 '#f '#f)) + __obj27137)) (define |gerbil/core/mop~MOP-5[:0:]#:special| - (let ((__obj27075 + (let ((__obj27138 (let () (declare (not safe)) (##structure @@ -2373,40 +2373,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'special '1 '#f '#f)) + (##unchecked-structure-set! __obj27138 'special '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 'special '2 '#f '#f)) - (let ((__tmp27365 (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '()))) + (##unchecked-structure-set! __obj27138 'special '2 '#f '#f)) + (let ((__tmp27428 (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27365 '3 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27428 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '#t '9 '#f '#f)) - (let ((__tmp27366 |gerbil/core/mop~MOP-5[1]#_g27367_|)) + (##unchecked-structure-set! __obj27138 '#t '9 '#f '#f)) + (let ((__tmp27429 |gerbil/core/mop~MOP-5[1]#_g27430_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27366 '12 '#f '#f)) - (let ((__tmp27368 |gerbil/core/mop~MOP-5[1]#_g27369_|)) + (##unchecked-structure-set! __obj27138 __tmp27429 '12 '#f '#f)) + (let ((__tmp27431 |gerbil/core/mop~MOP-5[1]#_g27432_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27075 __tmp27368 '14 '#f '#f)) + (##unchecked-structure-set! __obj27138 __tmp27431 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27138 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27075 '() '18 '#f '#f)) - __obj27075)) + (##unchecked-structure-set! __obj27138 '() '18 '#f '#f)) + __obj27138)) (define |gerbil/core/mop~MOP-5[:0:]#:number| - (let ((__obj27076 + (let ((__obj27139 (let () (declare (not safe)) (##structure @@ -2434,40 +2434,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'number '1 '#f '#f)) + (##unchecked-structure-set! __obj27139 'number '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 'number '2 '#f '#f)) - (let ((__tmp27370 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27139 'number '2 '#f '#f)) + (let ((__tmp27433 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27370 '3 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27433 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '#t '9 '#f '#f)) - (let ((__tmp27371 |gerbil/core/mop~MOP-5[1]#_g27372_|)) + (##unchecked-structure-set! __obj27139 '#t '9 '#f '#f)) + (let ((__tmp27434 |gerbil/core/mop~MOP-5[1]#_g27435_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27371 '12 '#f '#f)) - (let ((__tmp27373 |gerbil/core/mop~MOP-5[1]#_g27374_|)) + (##unchecked-structure-set! __obj27139 __tmp27434 '12 '#f '#f)) + (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27076 __tmp27373 '14 '#f '#f)) + (##unchecked-structure-set! __obj27139 __tmp27436 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27139 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27076 '() '18 '#f '#f)) - __obj27076)) + (##unchecked-structure-set! __obj27139 '() '18 '#f '#f)) + __obj27139)) (define |gerbil/core/mop~MOP-5[:0:]#:real| - (let ((__obj27077 + (let ((__obj27140 (let () (declare (not safe)) (##structure @@ -2495,40 +2495,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'real '1 '#f '#f)) + (##unchecked-structure-set! __obj27140 'real '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 'real '2 '#f '#f)) - (let ((__tmp27375 (cons |gerbil/core/mop~MOP-5[1]#_g27376_| '()))) + (##unchecked-structure-set! __obj27140 'real '2 '#f '#f)) + (let ((__tmp27438 (cons |gerbil/core/mop~MOP-5[1]#_g27439_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27375 '3 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27438 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '#t '9 '#f '#f)) - (let ((__tmp27377 |gerbil/core/mop~MOP-5[1]#_g27378_|)) + (##unchecked-structure-set! __obj27140 '#t '9 '#f '#f)) + (let ((__tmp27440 |gerbil/core/mop~MOP-5[1]#_g27441_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27377 '12 '#f '#f)) - (let ((__tmp27379 |gerbil/core/mop~MOP-5[1]#_g27380_|)) + (##unchecked-structure-set! __obj27140 __tmp27440 '12 '#f '#f)) + (let ((__tmp27442 |gerbil/core/mop~MOP-5[1]#_g27443_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27077 __tmp27379 '14 '#f '#f)) + (##unchecked-structure-set! __obj27140 __tmp27442 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27140 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27077 '() '18 '#f '#f)) - __obj27077)) + (##unchecked-structure-set! __obj27140 '() '18 '#f '#f)) + __obj27140)) (define |gerbil/core/mop~MOP-5[:0:]#:integer| - (let ((__obj27078 + (let ((__obj27141 (let () (declare (not safe)) (##structure @@ -2556,40 +2556,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'integer '1 '#f '#f)) + (##unchecked-structure-set! __obj27141 'integer '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 'integer '2 '#f '#f)) - (let ((__tmp27381 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) + (##unchecked-structure-set! __obj27141 'integer '2 '#f '#f)) + (let ((__tmp27444 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27381 '3 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27444 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '#t '9 '#f '#f)) - (let ((__tmp27383 |gerbil/core/mop~MOP-5[1]#_g27384_|)) + (##unchecked-structure-set! __obj27141 '#t '9 '#f '#f)) + (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27383 '12 '#f '#f)) - (let ((__tmp27385 |gerbil/core/mop~MOP-5[1]#_g27386_|)) + (##unchecked-structure-set! __obj27141 __tmp27446 '12 '#f '#f)) + (let ((__tmp27448 |gerbil/core/mop~MOP-5[1]#_g27449_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27078 __tmp27385 '14 '#f '#f)) + (##unchecked-structure-set! __obj27141 __tmp27448 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27141 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27078 '() '18 '#f '#f)) - __obj27078)) + (##unchecked-structure-set! __obj27141 '() '18 '#f '#f)) + __obj27141)) (define |gerbil/core/mop~MOP-5[:0:]#:fixnum| - (let ((__obj27079 + (let ((__obj27142 (let () (declare (not safe)) (##structure @@ -2617,42 +2617,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'fixnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27142 'fixnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 'fixnum '2 '#f '#f)) - (let ((__tmp27387 - (cons |gerbil/core/mop~MOP-5[1]#_g27388_| - (cons |gerbil/core/mop~MOP-5[1]#_g27328_| '())))) + (##unchecked-structure-set! __obj27142 'fixnum '2 '#f '#f)) + (let ((__tmp27450 + (cons |gerbil/core/mop~MOP-5[1]#_g27451_| + (cons |gerbil/core/mop~MOP-5[1]#_g27391_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27387 '3 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27450 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '#t '9 '#f '#f)) - (let ((__tmp27389 |gerbil/core/mop~MOP-5[1]#_g27390_|)) + (##unchecked-structure-set! __obj27142 '#t '9 '#f '#f)) + (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27389 '12 '#f '#f)) - (let ((__tmp27391 |gerbil/core/mop~MOP-5[1]#_g27392_|)) + (##unchecked-structure-set! __obj27142 __tmp27452 '12 '#f '#f)) + (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27079 __tmp27391 '14 '#f '#f)) + (##unchecked-structure-set! __obj27142 __tmp27454 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27142 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27079 '() '18 '#f '#f)) - __obj27079)) + (##unchecked-structure-set! __obj27142 '() '18 '#f '#f)) + __obj27142)) (define |gerbil/core/mop~MOP-5[:0:]#:bignum| - (let ((__obj27080 + (let ((__obj27143 (let () (declare (not safe)) (##structure @@ -2680,40 +2680,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 'bignum '1 '#f '#f)) + (##unchecked-structure-set! __obj27143 'bignum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 'bignum '2 '#f '#f)) - (let ((__tmp27393 (cons |gerbil/core/mop~MOP-5[1]#_g27388_| '()))) + (##unchecked-structure-set! __obj27143 'bignum '2 '#f '#f)) + (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27393 '3 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27456 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '#t '9 '#f '#f)) - (let ((__tmp27394 |gerbil/core/mop~MOP-5[1]#_g27395_|)) + (##unchecked-structure-set! __obj27143 '#t '9 '#f '#f)) + (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27394 '12 '#f '#f)) - (let ((__tmp27396 |gerbil/core/mop~MOP-5[1]#_g27397_|)) + (##unchecked-structure-set! __obj27143 __tmp27457 '12 '#f '#f)) + (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27080 __tmp27396 '14 '#f '#f)) + (##unchecked-structure-set! __obj27143 __tmp27459 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27143 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27080 '() '18 '#f '#f)) - __obj27080)) + (##unchecked-structure-set! __obj27143 '() '18 '#f '#f)) + __obj27143)) (define |gerbil/core/mop~MOP-5[:0:]#:ratnum| - (let ((__obj27081 + (let ((__obj27144 (let () (declare (not safe)) (##structure @@ -2741,40 +2741,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'ratnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27144 'ratnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 'ratnum '2 '#f '#f)) - (let ((__tmp27398 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) + (##unchecked-structure-set! __obj27144 'ratnum '2 '#f '#f)) + (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27398 '3 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27461 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '#t '9 '#f '#f)) - (let ((__tmp27399 |gerbil/core/mop~MOP-5[1]#_g27400_|)) + (##unchecked-structure-set! __obj27144 '#t '9 '#f '#f)) + (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27399 '12 '#f '#f)) - (let ((__tmp27401 |gerbil/core/mop~MOP-5[1]#_g27402_|)) + (##unchecked-structure-set! __obj27144 __tmp27462 '12 '#f '#f)) + (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27081 __tmp27401 '14 '#f '#f)) + (##unchecked-structure-set! __obj27144 __tmp27464 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27144 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27081 '() '18 '#f '#f)) - __obj27081)) + (##unchecked-structure-set! __obj27144 '() '18 '#f '#f)) + __obj27144)) (define |gerbil/core/mop~MOP-5[:0:]#:flonum| - (let ((__obj27082 + (let ((__obj27145 (let () (declare (not safe)) (##structure @@ -2802,40 +2802,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'flonum '1 '#f '#f)) + (##unchecked-structure-set! __obj27145 'flonum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 'flonum '2 '#f '#f)) - (let ((__tmp27403 (cons |gerbil/core/mop~MOP-5[1]#_g27382_| '()))) + (##unchecked-structure-set! __obj27145 'flonum '2 '#f '#f)) + (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27445_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27403 '3 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27466 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '#t '9 '#f '#f)) - (let ((__tmp27404 |gerbil/core/mop~MOP-5[1]#_g27405_|)) + (##unchecked-structure-set! __obj27145 '#t '9 '#f '#f)) + (let ((__tmp27467 |gerbil/core/mop~MOP-5[1]#_g27468_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27404 '12 '#f '#f)) - (let ((__tmp27406 |gerbil/core/mop~MOP-5[1]#_g27407_|)) + (##unchecked-structure-set! __obj27145 __tmp27467 '12 '#f '#f)) + (let ((__tmp27469 |gerbil/core/mop~MOP-5[1]#_g27470_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27082 __tmp27406 '14 '#f '#f)) + (##unchecked-structure-set! __obj27145 __tmp27469 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27145 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27082 '() '18 '#f '#f)) - __obj27082)) + (##unchecked-structure-set! __obj27145 '() '18 '#f '#f)) + __obj27145)) (define |gerbil/core/mop~MOP-5[:0:]#:cpxnum| - (let ((__obj27083 + (let ((__obj27146 (let () (declare (not safe)) (##structure @@ -2863,40 +2863,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'cpxnum '1 '#f '#f)) + (##unchecked-structure-set! __obj27146 'cpxnum '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 'cpxnum '2 '#f '#f)) - (let ((__tmp27408 (cons |gerbil/core/mop~MOP-5[1]#_g27376_| '()))) + (##unchecked-structure-set! __obj27146 'cpxnum '2 '#f '#f)) + (let ((__tmp27471 (cons |gerbil/core/mop~MOP-5[1]#_g27439_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27408 '3 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27471 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '#t '9 '#f '#f)) - (let ((__tmp27409 |gerbil/core/mop~MOP-5[1]#_g27410_|)) + (##unchecked-structure-set! __obj27146 '#t '9 '#f '#f)) + (let ((__tmp27472 |gerbil/core/mop~MOP-5[1]#_g27473_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27409 '12 '#f '#f)) - (let ((__tmp27411 |gerbil/core/mop~MOP-5[1]#_g27412_|)) + (##unchecked-structure-set! __obj27146 __tmp27472 '12 '#f '#f)) + (let ((__tmp27474 |gerbil/core/mop~MOP-5[1]#_g27475_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27083 __tmp27411 '14 '#f '#f)) + (##unchecked-structure-set! __obj27146 __tmp27474 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27146 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27083 '() '18 '#f '#f)) - __obj27083)) + (##unchecked-structure-set! __obj27146 '() '18 '#f '#f)) + __obj27146)) (define |gerbil/core/mop~MOP-5[:0:]#:symbolic| - (let ((__obj27084 + (let ((__obj27147 (let () (declare (not safe)) (##structure @@ -2924,40 +2924,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'symbolic '1 '#f '#f)) + (##unchecked-structure-set! __obj27147 'symbolic '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 'symbolic '2 '#f '#f)) - (let ((__tmp27413 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27147 'symbolic '2 '#f '#f)) + (let ((__tmp27476 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27413 '3 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27476 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '#t '9 '#f '#f)) - (let ((__tmp27414 |gerbil/core/mop~MOP-5[1]#_g27415_|)) + (##unchecked-structure-set! __obj27147 '#t '9 '#f '#f)) + (let ((__tmp27477 |gerbil/core/mop~MOP-5[1]#_g27478_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27414 '12 '#f '#f)) - (let ((__tmp27416 |gerbil/core/mop~MOP-5[1]#_g27417_|)) + (##unchecked-structure-set! __obj27147 __tmp27477 '12 '#f '#f)) + (let ((__tmp27479 |gerbil/core/mop~MOP-5[1]#_g27480_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27084 __tmp27416 '14 '#f '#f)) + (##unchecked-structure-set! __obj27147 __tmp27479 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27147 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27084 '() '18 '#f '#f)) - __obj27084)) + (##unchecked-structure-set! __obj27147 '() '18 '#f '#f)) + __obj27147)) (define |gerbil/core/mop~MOP-5[:0:]#:symbol| - (let ((__obj27085 + (let ((__obj27148 (let () (declare (not safe)) (##structure @@ -2985,40 +2985,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'symbol '1 '#f '#f)) + (##unchecked-structure-set! __obj27148 'symbol '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 'symbol '2 '#f '#f)) - (let ((__tmp27418 (cons |gerbil/core/mop~MOP-5[1]#_g27419_| '()))) + (##unchecked-structure-set! __obj27148 'symbol '2 '#f '#f)) + (let ((__tmp27481 (cons |gerbil/core/mop~MOP-5[1]#_g27482_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27418 '3 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27481 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '#t '9 '#f '#f)) - (let ((__tmp27420 |gerbil/core/mop~MOP-5[1]#_g27421_|)) + (##unchecked-structure-set! __obj27148 '#t '9 '#f '#f)) + (let ((__tmp27483 |gerbil/core/mop~MOP-5[1]#_g27484_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27420 '12 '#f '#f)) - (let ((__tmp27422 |gerbil/core/mop~MOP-5[1]#_g27423_|)) + (##unchecked-structure-set! __obj27148 __tmp27483 '12 '#f '#f)) + (let ((__tmp27485 |gerbil/core/mop~MOP-5[1]#_g27486_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27085 __tmp27422 '14 '#f '#f)) + (##unchecked-structure-set! __obj27148 __tmp27485 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27148 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27085 '() '18 '#f '#f)) - __obj27085)) + (##unchecked-structure-set! __obj27148 '() '18 '#f '#f)) + __obj27148)) (define |gerbil/core/mop~MOP-5[:0:]#:keyword| - (let ((__obj27086 + (let ((__obj27149 (let () (declare (not safe)) (##structure @@ -3046,40 +3046,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'keyword '1 '#f '#f)) + (##unchecked-structure-set! __obj27149 'keyword '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 'keyword '2 '#f '#f)) - (let ((__tmp27424 (cons |gerbil/core/mop~MOP-5[1]#_g27419_| '()))) + (##unchecked-structure-set! __obj27149 'keyword '2 '#f '#f)) + (let ((__tmp27487 (cons |gerbil/core/mop~MOP-5[1]#_g27482_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27424 '3 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27487 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '#t '9 '#f '#f)) - (let ((__tmp27425 |gerbil/core/mop~MOP-5[1]#_g27426_|)) + (##unchecked-structure-set! __obj27149 '#t '9 '#f '#f)) + (let ((__tmp27488 |gerbil/core/mop~MOP-5[1]#_g27489_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27425 '12 '#f '#f)) - (let ((__tmp27427 |gerbil/core/mop~MOP-5[1]#_g27428_|)) + (##unchecked-structure-set! __obj27149 __tmp27488 '12 '#f '#f)) + (let ((__tmp27490 |gerbil/core/mop~MOP-5[1]#_g27491_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27086 __tmp27427 '14 '#f '#f)) + (##unchecked-structure-set! __obj27149 __tmp27490 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27149 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27086 '() '18 '#f '#f)) - __obj27086)) + (##unchecked-structure-set! __obj27149 '() '18 '#f '#f)) + __obj27149)) (define |gerbil/core/mop~MOP-5[:0:]#:list| - (let ((__obj27087 + (let ((__obj27150 (let () (declare (not safe)) (##structure @@ -3107,40 +3107,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'list '1 '#f '#f)) + (##unchecked-structure-set! __obj27150 'list '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 'list '2 '#f '#f)) - (let ((__tmp27429 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27150 'list '2 '#f '#f)) + (let ((__tmp27492 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27429 '3 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27492 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '#t '9 '#f '#f)) - (let ((__tmp27430 |gerbil/core/mop~MOP-5[1]#_g27431_|)) + (##unchecked-structure-set! __obj27150 '#t '9 '#f '#f)) + (let ((__tmp27493 |gerbil/core/mop~MOP-5[1]#_g27494_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27430 '12 '#f '#f)) - (let ((__tmp27432 |gerbil/core/mop~MOP-5[1]#_g27433_|)) + (##unchecked-structure-set! __obj27150 __tmp27493 '12 '#f '#f)) + (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27087 __tmp27432 '14 '#f '#f)) + (##unchecked-structure-set! __obj27150 __tmp27495 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27150 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27087 '() '18 '#f '#f)) - __obj27087)) + (##unchecked-structure-set! __obj27150 '() '18 '#f '#f)) + __obj27150)) (define |gerbil/core/mop~MOP-5[:0:]#:pair| - (let ((__obj27088 + (let ((__obj27151 (let () (declare (not safe)) (##structure @@ -3168,40 +3168,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'pair '1 '#f '#f)) + (##unchecked-structure-set! __obj27151 'pair '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 'pair '2 '#f '#f)) - (let ((__tmp27434 (cons |gerbil/core/mop~MOP-5[1]#_g27435_| '()))) + (##unchecked-structure-set! __obj27151 'pair '2 '#f '#f)) + (let ((__tmp27497 (cons |gerbil/core/mop~MOP-5[1]#_g27498_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27434 '3 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27497 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '#t '9 '#f '#f)) - (let ((__tmp27436 |gerbil/core/mop~MOP-5[1]#_g27437_|)) + (##unchecked-structure-set! __obj27151 '#t '9 '#f '#f)) + (let ((__tmp27499 |gerbil/core/mop~MOP-5[1]#_g27500_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27436 '12 '#f '#f)) - (let ((__tmp27438 |gerbil/core/mop~MOP-5[1]#_g27439_|)) + (##unchecked-structure-set! __obj27151 __tmp27499 '12 '#f '#f)) + (let ((__tmp27501 |gerbil/core/mop~MOP-5[1]#_g27502_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27088 __tmp27438 '14 '#f '#f)) + (##unchecked-structure-set! __obj27151 __tmp27501 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27151 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27088 '() '18 '#f '#f)) - __obj27088)) + (##unchecked-structure-set! __obj27151 '() '18 '#f '#f)) + __obj27151)) (define |gerbil/core/mop~MOP-5[:0:]#:null| - (let ((__obj27089 + (let ((__obj27152 (let () (declare (not safe)) (##structure @@ -3229,42 +3229,42 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'null '1 '#f '#f)) + (##unchecked-structure-set! __obj27152 'null '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 'null '2 '#f '#f)) - (let ((__tmp27440 - (cons |gerbil/core/mop~MOP-5[1]#_g27435_| - (cons |gerbil/core/mop~MOP-5[1]#_g27344_| '())))) + (##unchecked-structure-set! __obj27152 'null '2 '#f '#f)) + (let ((__tmp27503 + (cons |gerbil/core/mop~MOP-5[1]#_g27498_| + (cons |gerbil/core/mop~MOP-5[1]#_g27407_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27440 '3 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27503 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '#t '9 '#f '#f)) - (let ((__tmp27441 |gerbil/core/mop~MOP-5[1]#_g27442_|)) + (##unchecked-structure-set! __obj27152 '#t '9 '#f '#f)) + (let ((__tmp27504 |gerbil/core/mop~MOP-5[1]#_g27505_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27441 '12 '#f '#f)) - (let ((__tmp27443 |gerbil/core/mop~MOP-5[1]#_g27444_|)) + (##unchecked-structure-set! __obj27152 __tmp27504 '12 '#f '#f)) + (let ((__tmp27506 |gerbil/core/mop~MOP-5[1]#_g27507_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27089 __tmp27443 '14 '#f '#f)) + (##unchecked-structure-set! __obj27152 __tmp27506 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27152 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27089 '() '18 '#f '#f)) - __obj27089)) + (##unchecked-structure-set! __obj27152 '() '18 '#f '#f)) + __obj27152)) (define |gerbil/core/mop~MOP-5[:0:]#:sequence| - (let ((__obj27090 + (let ((__obj27153 (let () (declare (not safe)) (##structure @@ -3292,40 +3292,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'sequence '1 '#f '#f)) + (##unchecked-structure-set! __obj27153 'sequence '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 'sequence '2 '#f '#f)) - (let ((__tmp27445 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27153 'sequence '2 '#f '#f)) + (let ((__tmp27508 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27445 '3 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27508 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '#t '9 '#f '#f)) - (let ((__tmp27446 |gerbil/core/mop~MOP-5[1]#_g27447_|)) + (##unchecked-structure-set! __obj27153 '#t '9 '#f '#f)) + (let ((__tmp27509 |gerbil/core/mop~MOP-5[1]#_g27510_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27446 '12 '#f '#f)) - (let ((__tmp27448 |gerbil/core/mop~MOP-5[1]#_g27449_|)) + (##unchecked-structure-set! __obj27153 __tmp27509 '12 '#f '#f)) + (let ((__tmp27511 |gerbil/core/mop~MOP-5[1]#_g27512_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27090 __tmp27448 '14 '#f '#f)) + (##unchecked-structure-set! __obj27153 __tmp27511 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27153 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27090 '() '18 '#f '#f)) - __obj27090)) + (##unchecked-structure-set! __obj27153 '() '18 '#f '#f)) + __obj27153)) (define |gerbil/core/mop~MOP-5[:0:]#:vector| - (let ((__obj27091 + (let ((__obj27154 (let () (declare (not safe)) (##structure @@ -3353,40 +3353,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27154 'vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 'vector '2 '#f '#f)) - (let ((__tmp27450 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) + (##unchecked-structure-set! __obj27154 'vector '2 '#f '#f)) + (let ((__tmp27513 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27450 '3 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27513 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '#t '9 '#f '#f)) - (let ((__tmp27452 |gerbil/core/mop~MOP-5[1]#_g27453_|)) + (##unchecked-structure-set! __obj27154 '#t '9 '#f '#f)) + (let ((__tmp27515 |gerbil/core/mop~MOP-5[1]#_g27516_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27452 '12 '#f '#f)) - (let ((__tmp27454 |gerbil/core/mop~MOP-5[1]#_g27455_|)) + (##unchecked-structure-set! __obj27154 __tmp27515 '12 '#f '#f)) + (let ((__tmp27517 |gerbil/core/mop~MOP-5[1]#_g27518_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27091 __tmp27454 '14 '#f '#f)) + (##unchecked-structure-set! __obj27154 __tmp27517 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27154 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27091 '() '18 '#f '#f)) - __obj27091)) + (##unchecked-structure-set! __obj27154 '() '18 '#f '#f)) + __obj27154)) (define |gerbil/core/mop~MOP-5[:0:]#:string| - (let ((__obj27092 + (let ((__obj27155 (let () (declare (not safe)) (##structure @@ -3414,40 +3414,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'string '1 '#f '#f)) + (##unchecked-structure-set! __obj27155 'string '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 'string '2 '#f '#f)) - (let ((__tmp27456 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) + (##unchecked-structure-set! __obj27155 'string '2 '#f '#f)) + (let ((__tmp27519 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27456 '3 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27519 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '#t '9 '#f '#f)) - (let ((__tmp27457 |gerbil/core/mop~MOP-5[1]#_g27458_|)) + (##unchecked-structure-set! __obj27155 '#t '9 '#f '#f)) + (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27457 '12 '#f '#f)) - (let ((__tmp27459 |gerbil/core/mop~MOP-5[1]#_g27460_|)) + (##unchecked-structure-set! __obj27155 __tmp27520 '12 '#f '#f)) + (let ((__tmp27522 |gerbil/core/mop~MOP-5[1]#_g27523_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27092 __tmp27459 '14 '#f '#f)) + (##unchecked-structure-set! __obj27155 __tmp27522 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27155 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27092 '() '18 '#f '#f)) - __obj27092)) + (##unchecked-structure-set! __obj27155 '() '18 '#f '#f)) + __obj27155)) (define |gerbil/core/mop~MOP-5[:0:]#:hvector| - (let ((__obj27093 + (let ((__obj27156 (let () (declare (not safe)) (##structure @@ -3475,40 +3475,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'hvector '1 '#f '#f)) + (##unchecked-structure-set! __obj27156 'hvector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 'hvector '2 '#f '#f)) - (let ((__tmp27461 (cons |gerbil/core/mop~MOP-5[1]#_g27451_| '()))) + (##unchecked-structure-set! __obj27156 'hvector '2 '#f '#f)) + (let ((__tmp27524 (cons |gerbil/core/mop~MOP-5[1]#_g27514_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27461 '3 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27524 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '#t '9 '#f '#f)) - (let ((__tmp27462 |gerbil/core/mop~MOP-5[1]#_g27463_|)) + (##unchecked-structure-set! __obj27156 '#t '9 '#f '#f)) + (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27462 '12 '#f '#f)) - (let ((__tmp27464 |gerbil/core/mop~MOP-5[1]#_g27465_|)) + (##unchecked-structure-set! __obj27156 __tmp27525 '12 '#f '#f)) + (let ((__tmp27527 |gerbil/core/mop~MOP-5[1]#_g27528_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27093 __tmp27464 '14 '#f '#f)) + (##unchecked-structure-set! __obj27156 __tmp27527 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27156 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27093 '() '18 '#f '#f)) - __obj27093)) + (##unchecked-structure-set! __obj27156 '() '18 '#f '#f)) + __obj27156)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector| - (let ((__obj27094 + (let ((__obj27157 (let () (declare (not safe)) (##structure @@ -3536,40 +3536,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'u8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27157 'u8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 'u8vector '2 '#f '#f)) - (let ((__tmp27466 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27157 'u8vector '2 '#f '#f)) + (let ((__tmp27529 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27466 '3 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27529 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '#t '9 '#f '#f)) - (let ((__tmp27468 |gerbil/core/mop~MOP-5[1]#_g27469_|)) + (##unchecked-structure-set! __obj27157 '#t '9 '#f '#f)) + (let ((__tmp27531 |gerbil/core/mop~MOP-5[1]#_g27532_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27468 '12 '#f '#f)) - (let ((__tmp27470 |gerbil/core/mop~MOP-5[1]#_g27471_|)) + (##unchecked-structure-set! __obj27157 __tmp27531 '12 '#f '#f)) + (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27094 __tmp27470 '14 '#f '#f)) + (##unchecked-structure-set! __obj27157 __tmp27533 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27157 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27094 '() '18 '#f '#f)) - __obj27094)) + (##unchecked-structure-set! __obj27157 '() '18 '#f '#f)) + __obj27157)) (define |gerbil/core/mop~MOP-5[:0:]#:s8vector| - (let ((__obj27095 + (let ((__obj27158 (let () (declare (not safe)) (##structure @@ -3597,40 +3597,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 's8vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27158 's8vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 's8vector '2 '#f '#f)) - (let ((__tmp27472 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27158 's8vector '2 '#f '#f)) + (let ((__tmp27535 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27472 '3 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27535 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '#t '9 '#f '#f)) - (let ((__tmp27473 |gerbil/core/mop~MOP-5[1]#_g27474_|)) + (##unchecked-structure-set! __obj27158 '#t '9 '#f '#f)) + (let ((__tmp27536 |gerbil/core/mop~MOP-5[1]#_g27537_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27473 '12 '#f '#f)) - (let ((__tmp27475 |gerbil/core/mop~MOP-5[1]#_g27476_|)) + (##unchecked-structure-set! __obj27158 __tmp27536 '12 '#f '#f)) + (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27095 __tmp27475 '14 '#f '#f)) + (##unchecked-structure-set! __obj27158 __tmp27538 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27158 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27095 '() '18 '#f '#f)) - __obj27095)) + (##unchecked-structure-set! __obj27158 '() '18 '#f '#f)) + __obj27158)) (define |gerbil/core/mop~MOP-5[:0:]#:u16vector| - (let ((__obj27096 + (let ((__obj27159 (let () (declare (not safe)) (##structure @@ -3658,40 +3658,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'u16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27159 'u16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 'u16vector '2 '#f '#f)) - (let ((__tmp27477 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27159 'u16vector '2 '#f '#f)) + (let ((__tmp27540 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27477 '3 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27540 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '#t '9 '#f '#f)) - (let ((__tmp27478 |gerbil/core/mop~MOP-5[1]#_g27479_|)) + (##unchecked-structure-set! __obj27159 '#t '9 '#f '#f)) + (let ((__tmp27541 |gerbil/core/mop~MOP-5[1]#_g27542_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27478 '12 '#f '#f)) - (let ((__tmp27480 |gerbil/core/mop~MOP-5[1]#_g27481_|)) + (##unchecked-structure-set! __obj27159 __tmp27541 '12 '#f '#f)) + (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27096 __tmp27480 '14 '#f '#f)) + (##unchecked-structure-set! __obj27159 __tmp27543 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27159 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27096 '() '18 '#f '#f)) - __obj27096)) + (##unchecked-structure-set! __obj27159 '() '18 '#f '#f)) + __obj27159)) (define |gerbil/core/mop~MOP-5[:0:]#:s16vector| - (let ((__obj27097 + (let ((__obj27160 (let () (declare (not safe)) (##structure @@ -3719,40 +3719,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 's16vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27160 's16vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 's16vector '2 '#f '#f)) - (let ((__tmp27482 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27160 's16vector '2 '#f '#f)) + (let ((__tmp27545 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27482 '3 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27545 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '#t '9 '#f '#f)) - (let ((__tmp27483 |gerbil/core/mop~MOP-5[1]#_g27484_|)) + (##unchecked-structure-set! __obj27160 '#t '9 '#f '#f)) + (let ((__tmp27546 |gerbil/core/mop~MOP-5[1]#_g27547_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27483 '12 '#f '#f)) - (let ((__tmp27485 |gerbil/core/mop~MOP-5[1]#_g27486_|)) + (##unchecked-structure-set! __obj27160 __tmp27546 '12 '#f '#f)) + (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27097 __tmp27485 '14 '#f '#f)) + (##unchecked-structure-set! __obj27160 __tmp27548 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27160 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27097 '() '18 '#f '#f)) - __obj27097)) + (##unchecked-structure-set! __obj27160 '() '18 '#f '#f)) + __obj27160)) (define |gerbil/core/mop~MOP-5[:0:]#:u32vector| - (let ((__obj27098 + (let ((__obj27161 (let () (declare (not safe)) (##structure @@ -3780,40 +3780,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'u32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27161 'u32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 'u32vector '2 '#f '#f)) - (let ((__tmp27487 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27161 'u32vector '2 '#f '#f)) + (let ((__tmp27550 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27487 '3 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27550 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '#t '9 '#f '#f)) - (let ((__tmp27488 |gerbil/core/mop~MOP-5[1]#_g27489_|)) + (##unchecked-structure-set! __obj27161 '#t '9 '#f '#f)) + (let ((__tmp27551 |gerbil/core/mop~MOP-5[1]#_g27552_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27488 '12 '#f '#f)) - (let ((__tmp27490 |gerbil/core/mop~MOP-5[1]#_g27491_|)) + (##unchecked-structure-set! __obj27161 __tmp27551 '12 '#f '#f)) + (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27098 __tmp27490 '14 '#f '#f)) + (##unchecked-structure-set! __obj27161 __tmp27553 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27161 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27098 '() '18 '#f '#f)) - __obj27098)) + (##unchecked-structure-set! __obj27161 '() '18 '#f '#f)) + __obj27161)) (define |gerbil/core/mop~MOP-5[:0:]#:s32vector| - (let ((__obj27099 + (let ((__obj27162 (let () (declare (not safe)) (##structure @@ -3841,40 +3841,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 's32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27162 's32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 's32vector '2 '#f '#f)) - (let ((__tmp27492 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27162 's32vector '2 '#f '#f)) + (let ((__tmp27555 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27492 '3 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27555 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '#t '9 '#f '#f)) - (let ((__tmp27493 |gerbil/core/mop~MOP-5[1]#_g27494_|)) + (##unchecked-structure-set! __obj27162 '#t '9 '#f '#f)) + (let ((__tmp27556 |gerbil/core/mop~MOP-5[1]#_g27557_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27493 '12 '#f '#f)) - (let ((__tmp27495 |gerbil/core/mop~MOP-5[1]#_g27496_|)) + (##unchecked-structure-set! __obj27162 __tmp27556 '12 '#f '#f)) + (let ((__tmp27558 |gerbil/core/mop~MOP-5[1]#_g27559_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27099 __tmp27495 '14 '#f '#f)) + (##unchecked-structure-set! __obj27162 __tmp27558 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27162 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27099 '() '18 '#f '#f)) - __obj27099)) + (##unchecked-structure-set! __obj27162 '() '18 '#f '#f)) + __obj27162)) (define |gerbil/core/mop~MOP-5[:0:]#:u64vector| - (let ((__obj27100 + (let ((__obj27163 (let () (declare (not safe)) (##structure @@ -3902,40 +3902,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'u64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27163 'u64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 'u64vector '2 '#f '#f)) - (let ((__tmp27497 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27163 'u64vector '2 '#f '#f)) + (let ((__tmp27560 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27497 '3 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27560 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '#t '9 '#f '#f)) - (let ((__tmp27498 |gerbil/core/mop~MOP-5[1]#_g27499_|)) + (##unchecked-structure-set! __obj27163 '#t '9 '#f '#f)) + (let ((__tmp27561 |gerbil/core/mop~MOP-5[1]#_g27562_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27498 '12 '#f '#f)) - (let ((__tmp27500 |gerbil/core/mop~MOP-5[1]#_g27501_|)) + (##unchecked-structure-set! __obj27163 __tmp27561 '12 '#f '#f)) + (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27100 __tmp27500 '14 '#f '#f)) + (##unchecked-structure-set! __obj27163 __tmp27563 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27163 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27100 '() '18 '#f '#f)) - __obj27100)) + (##unchecked-structure-set! __obj27163 '() '18 '#f '#f)) + __obj27163)) (define |gerbil/core/mop~MOP-5[:0:]#:s64vector| - (let ((__obj27101 + (let ((__obj27164 (let () (declare (not safe)) (##structure @@ -3963,40 +3963,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 's64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27164 's64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 's64vector '2 '#f '#f)) - (let ((__tmp27502 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27164 's64vector '2 '#f '#f)) + (let ((__tmp27565 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27502 '3 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27565 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '#t '9 '#f '#f)) - (let ((__tmp27503 |gerbil/core/mop~MOP-5[1]#_g27504_|)) + (##unchecked-structure-set! __obj27164 '#t '9 '#f '#f)) + (let ((__tmp27566 |gerbil/core/mop~MOP-5[1]#_g27567_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27503 '12 '#f '#f)) - (let ((__tmp27505 |gerbil/core/mop~MOP-5[1]#_g27506_|)) + (##unchecked-structure-set! __obj27164 __tmp27566 '12 '#f '#f)) + (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27101 __tmp27505 '14 '#f '#f)) + (##unchecked-structure-set! __obj27164 __tmp27568 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27164 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27101 '() '18 '#f '#f)) - __obj27101)) + (##unchecked-structure-set! __obj27164 '() '18 '#f '#f)) + __obj27164)) (define |gerbil/core/mop~MOP-5[:0:]#:f32vector| - (let ((__obj27102 + (let ((__obj27165 (let () (declare (not safe)) (##structure @@ -4024,40 +4024,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'f32vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27165 'f32vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 'f32vector '2 '#f '#f)) - (let ((__tmp27507 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27165 'f32vector '2 '#f '#f)) + (let ((__tmp27570 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27507 '3 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27570 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '#t '9 '#f '#f)) - (let ((__tmp27508 |gerbil/core/mop~MOP-5[1]#_g27509_|)) + (##unchecked-structure-set! __obj27165 '#t '9 '#f '#f)) + (let ((__tmp27571 |gerbil/core/mop~MOP-5[1]#_g27572_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27508 '12 '#f '#f)) - (let ((__tmp27510 |gerbil/core/mop~MOP-5[1]#_g27511_|)) + (##unchecked-structure-set! __obj27165 __tmp27571 '12 '#f '#f)) + (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27102 __tmp27510 '14 '#f '#f)) + (##unchecked-structure-set! __obj27165 __tmp27573 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27165 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27102 '() '18 '#f '#f)) - __obj27102)) + (##unchecked-structure-set! __obj27165 '() '18 '#f '#f)) + __obj27165)) (define |gerbil/core/mop~MOP-5[:0:]#:f64vector| - (let ((__obj27103 + (let ((__obj27166 (let () (declare (not safe)) (##structure @@ -4085,40 +4085,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 'f64vector '1 '#f '#f)) + (##unchecked-structure-set! __obj27166 'f64vector '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 'f64vector '2 '#f '#f)) - (let ((__tmp27512 (cons |gerbil/core/mop~MOP-5[1]#_g27467_| '()))) + (##unchecked-structure-set! __obj27166 'f64vector '2 '#f '#f)) + (let ((__tmp27575 (cons |gerbil/core/mop~MOP-5[1]#_g27530_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27103 __tmp27512 '3 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27575 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '#t '9 '#f '#f)) - (let ((__tmp27513 |gerbil/core/mop~MOP-5[1]#_g27514_|)) + (##unchecked-structure-set! __obj27166 '#t '9 '#f '#f)) + (let ((__tmp27576 |gerbil/core/mop~MOP-5[1]#_g27577_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27103 __tmp27513 '12 '#f '#f)) - (let ((__tmp27515 |gerbil/core/mop~MOP-5[1]#_g27516_|)) + (##unchecked-structure-set! __obj27166 __tmp27576 '12 '#f '#f)) + (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27103 __tmp27515 '14 '#f '#f)) + (##unchecked-structure-set! __obj27166 __tmp27578 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27166 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27103 '() '18 '#f '#f)) - __obj27103)) + (##unchecked-structure-set! __obj27166 '() '18 '#f '#f)) + __obj27166)) (define |gerbil/core/mop~MOP-5[:0:]#:values| - (let ((__obj27104 + (let ((__obj27167 (let () (declare (not safe)) (##structure @@ -4146,40 +4146,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 'values '1 '#f '#f)) + (##unchecked-structure-set! __obj27167 'values '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 'values '2 '#f '#f)) - (let ((__tmp27517 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27167 'values '2 '#f '#f)) + (let ((__tmp27580 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27104 __tmp27517 '3 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27580 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '#t '9 '#f '#f)) - (let ((__tmp27518 |gerbil/core/mop~MOP-5[1]#_g27519_|)) + (##unchecked-structure-set! __obj27167 '#t '9 '#f '#f)) + (let ((__tmp27581 |gerbil/core/mop~MOP-5[1]#_g27582_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27104 __tmp27518 '12 '#f '#f)) - (let ((__tmp27520 |gerbil/core/mop~MOP-5[1]#_g27521_|)) + (##unchecked-structure-set! __obj27167 __tmp27581 '12 '#f '#f)) + (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27104 __tmp27520 '14 '#f '#f)) + (##unchecked-structure-set! __obj27167 __tmp27583 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27167 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27104 '() '18 '#f '#f)) - __obj27104)) + (##unchecked-structure-set! __obj27167 '() '18 '#f '#f)) + __obj27167)) (define |gerbil/core/mop~MOP-5[:0:]#:box| - (let ((__obj27105 + (let ((__obj27168 (let () (declare (not safe)) (##structure @@ -4207,40 +4207,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 'box '1 '#f '#f)) + (##unchecked-structure-set! __obj27168 'box '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 'box '2 '#f '#f)) - (let ((__tmp27522 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27168 'box '2 '#f '#f)) + (let ((__tmp27585 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27105 __tmp27522 '3 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27585 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '#t '9 '#f '#f)) - (let ((__tmp27523 |gerbil/core/mop~MOP-5[1]#_g27524_|)) + (##unchecked-structure-set! __obj27168 '#t '9 '#f '#f)) + (let ((__tmp27586 |gerbil/core/mop~MOP-5[1]#_g27587_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27105 __tmp27523 '12 '#f '#f)) - (let ((__tmp27525 |gerbil/core/mop~MOP-5[1]#_g27526_|)) + (##unchecked-structure-set! __obj27168 __tmp27586 '12 '#f '#f)) + (let ((__tmp27588 |gerbil/core/mop~MOP-5[1]#_g27589_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27105 __tmp27525 '14 '#f '#f)) + (##unchecked-structure-set! __obj27168 __tmp27588 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27168 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27105 '() '18 '#f '#f)) - __obj27105)) + (##unchecked-structure-set! __obj27168 '() '18 '#f '#f)) + __obj27168)) (define |gerbil/core/mop~MOP-5[:0:]#:frame| - (let ((__obj27106 + (let ((__obj27169 (let () (declare (not safe)) (##structure @@ -4268,40 +4268,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 'frame '1 '#f '#f)) + (##unchecked-structure-set! __obj27169 'frame '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 'frame '2 '#f '#f)) - (let ((__tmp27527 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27169 'frame '2 '#f '#f)) + (let ((__tmp27590 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27106 __tmp27527 '3 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27590 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '#t '9 '#f '#f)) - (let ((__tmp27528 |gerbil/core/mop~MOP-5[1]#_g27529_|)) + (##unchecked-structure-set! __obj27169 '#t '9 '#f '#f)) + (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27106 __tmp27528 '12 '#f '#f)) - (let ((__tmp27530 |gerbil/core/mop~MOP-5[1]#_g27531_|)) + (##unchecked-structure-set! __obj27169 __tmp27591 '12 '#f '#f)) + (let ((__tmp27593 |gerbil/core/mop~MOP-5[1]#_g27594_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27106 __tmp27530 '14 '#f '#f)) + (##unchecked-structure-set! __obj27169 __tmp27593 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27169 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27106 '() '18 '#f '#f)) - __obj27106)) + (##unchecked-structure-set! __obj27169 '() '18 '#f '#f)) + __obj27169)) (define |gerbil/core/mop~MOP-5[:0:]#:continuation| - (let ((__obj27107 + (let ((__obj27170 (let () (declare (not safe)) (##structure @@ -4329,40 +4329,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 'continuation '1 '#f '#f)) + (##unchecked-structure-set! __obj27170 'continuation '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 'continuation '2 '#f '#f)) - (let ((__tmp27532 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27170 'continuation '2 '#f '#f)) + (let ((__tmp27595 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27107 __tmp27532 '3 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27595 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '#t '9 '#f '#f)) - (let ((__tmp27533 |gerbil/core/mop~MOP-5[1]#_g27534_|)) + (##unchecked-structure-set! __obj27170 '#t '9 '#f '#f)) + (let ((__tmp27596 |gerbil/core/mop~MOP-5[1]#_g27597_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27107 __tmp27533 '12 '#f '#f)) - (let ((__tmp27535 |gerbil/core/mop~MOP-5[1]#_g27536_|)) + (##unchecked-structure-set! __obj27170 __tmp27596 '12 '#f '#f)) + (let ((__tmp27598 |gerbil/core/mop~MOP-5[1]#_g27599_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27107 __tmp27535 '14 '#f '#f)) + (##unchecked-structure-set! __obj27170 __tmp27598 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27170 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27107 '() '18 '#f '#f)) - __obj27107)) + (##unchecked-structure-set! __obj27170 '() '18 '#f '#f)) + __obj27170)) (define |gerbil/core/mop~MOP-5[:0:]#:promise| - (let ((__obj27108 + (let ((__obj27171 (let () (declare (not safe)) (##structure @@ -4390,40 +4390,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 'promise '1 '#f '#f)) + (##unchecked-structure-set! __obj27171 'promise '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 'promise '2 '#f '#f)) - (let ((__tmp27537 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27171 'promise '2 '#f '#f)) + (let ((__tmp27600 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27108 __tmp27537 '3 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27600 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '#t '9 '#f '#f)) - (let ((__tmp27538 |gerbil/core/mop~MOP-5[1]#_g27539_|)) + (##unchecked-structure-set! __obj27171 '#t '9 '#f '#f)) + (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27108 __tmp27538 '12 '#f '#f)) - (let ((__tmp27540 |gerbil/core/mop~MOP-5[1]#_g27541_|)) + (##unchecked-structure-set! __obj27171 __tmp27601 '12 '#f '#f)) + (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27108 __tmp27540 '14 '#f '#f)) + (##unchecked-structure-set! __obj27171 __tmp27603 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27171 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27108 '() '18 '#f '#f)) - __obj27108)) + (##unchecked-structure-set! __obj27171 '() '18 '#f '#f)) + __obj27171)) (define |gerbil/core/mop~MOP-5[:0:]#:weak| - (let ((__obj27109 + (let ((__obj27172 (let () (declare (not safe)) (##structure @@ -4451,40 +4451,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 'weak '1 '#f '#f)) + (##unchecked-structure-set! __obj27172 'weak '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 'weak '2 '#f '#f)) - (let ((__tmp27542 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27172 'weak '2 '#f '#f)) + (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27109 __tmp27542 '3 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27605 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '#t '9 '#f '#f)) - (let ((__tmp27543 |gerbil/core/mop~MOP-5[1]#_g27544_|)) + (##unchecked-structure-set! __obj27172 '#t '9 '#f '#f)) + (let ((__tmp27606 |gerbil/core/mop~MOP-5[1]#_g27607_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27109 __tmp27543 '12 '#f '#f)) - (let ((__tmp27545 |gerbil/core/mop~MOP-5[1]#_g27546_|)) + (##unchecked-structure-set! __obj27172 __tmp27606 '12 '#f '#f)) + (let ((__tmp27608 |gerbil/core/mop~MOP-5[1]#_g27609_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27109 __tmp27545 '14 '#f '#f)) + (##unchecked-structure-set! __obj27172 __tmp27608 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27172 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27109 '() '18 '#f '#f)) - __obj27109)) + (##unchecked-structure-set! __obj27172 '() '18 '#f '#f)) + __obj27172)) (define |gerbil/core/mop~MOP-5[:0:]#:foreign| - (let ((__obj27110 + (let ((__obj27173 (let () (declare (not safe)) (##structure @@ -4512,40 +4512,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 'foreign '1 '#f '#f)) + (##unchecked-structure-set! __obj27173 'foreign '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 'foreign '2 '#f '#f)) - (let ((__tmp27547 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27173 'foreign '2 '#f '#f)) + (let ((__tmp27610 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27110 __tmp27547 '3 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27610 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '#t '9 '#f '#f)) - (let ((__tmp27548 |gerbil/core/mop~MOP-5[1]#_g27549_|)) + (##unchecked-structure-set! __obj27173 '#t '9 '#f '#f)) + (let ((__tmp27611 |gerbil/core/mop~MOP-5[1]#_g27612_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27110 __tmp27548 '12 '#f '#f)) - (let ((__tmp27550 |gerbil/core/mop~MOP-5[1]#_g27551_|)) + (##unchecked-structure-set! __obj27173 __tmp27611 '12 '#f '#f)) + (let ((__tmp27613 |gerbil/core/mop~MOP-5[1]#_g27614_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27110 __tmp27550 '14 '#f '#f)) + (##unchecked-structure-set! __obj27173 __tmp27613 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27173 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27110 '() '18 '#f '#f)) - __obj27110)) + (##unchecked-structure-set! __obj27173 '() '18 '#f '#f)) + __obj27173)) (define |gerbil/core/mop~MOP-5[:0:]#:procedure| - (let ((__obj27111 + (let ((__obj27174 (let () (declare (not safe)) (##structure @@ -4573,40 +4573,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 'procedure '1 '#f '#f)) + (##unchecked-structure-set! __obj27174 'procedure '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 'procedure '2 '#f '#f)) - (let ((__tmp27552 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27174 'procedure '2 '#f '#f)) + (let ((__tmp27615 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27111 __tmp27552 '3 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27615 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '#t '9 '#f '#f)) - (let ((__tmp27553 |gerbil/core/mop~MOP-5[1]#_g27554_|)) + (##unchecked-structure-set! __obj27174 '#t '9 '#f '#f)) + (let ((__tmp27616 |gerbil/core/mop~MOP-5[1]#_g27617_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27111 __tmp27553 '12 '#f '#f)) - (let ((__tmp27555 |gerbil/core/mop~MOP-5[1]#_g27556_|)) + (##unchecked-structure-set! __obj27174 __tmp27616 '12 '#f '#f)) + (let ((__tmp27618 |gerbil/core/mop~MOP-5[1]#_g27619_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27111 __tmp27555 '14 '#f '#f)) + (##unchecked-structure-set! __obj27174 __tmp27618 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27174 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27111 '() '18 '#f '#f)) - __obj27111)) + (##unchecked-structure-set! __obj27174 '() '18 '#f '#f)) + __obj27174)) (define |gerbil/core/mop~MOP-5[:0:]#:time| - (let ((__obj27112 + (let ((__obj27175 (let () (declare (not safe)) (##structure @@ -4634,40 +4634,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 'time::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27175 'time::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 'time '2 '#f '#f)) - (let ((__tmp27557 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27175 'time '2 '#f '#f)) + (let ((__tmp27620 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27557 '3 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27620 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '#t '9 '#f '#f)) - (let ((__tmp27558 |gerbil/core/mop~MOP-5[1]#_g27559_|)) + (##unchecked-structure-set! __obj27175 '#t '9 '#f '#f)) + (let ((__tmp27621 |gerbil/core/mop~MOP-5[1]#_g27622_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27558 '12 '#f '#f)) - (let ((__tmp27560 |gerbil/core/mop~MOP-5[1]#_g27561_|)) + (##unchecked-structure-set! __obj27175 __tmp27621 '12 '#f '#f)) + (let ((__tmp27623 |gerbil/core/mop~MOP-5[1]#_g27624_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27112 __tmp27560 '14 '#f '#f)) + (##unchecked-structure-set! __obj27175 __tmp27623 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27175 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27112 '() '18 '#f '#f)) - __obj27112)) + (##unchecked-structure-set! __obj27175 '() '18 '#f '#f)) + __obj27175)) (define |gerbil/core/mop~MOP-5[:0:]#:thread| - (let ((__obj27113 + (let ((__obj27176 (let () (declare (not safe)) (##structure @@ -4695,40 +4695,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 'thread::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27176 'thread::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 'thread '2 '#f '#f)) - (let ((__tmp27562 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27176 'thread '2 '#f '#f)) + (let ((__tmp27625 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27113 __tmp27562 '3 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27625 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '#t '9 '#f '#f)) - (let ((__tmp27563 |gerbil/core/mop~MOP-5[1]#_g27564_|)) + (##unchecked-structure-set! __obj27176 '#t '9 '#f '#f)) + (let ((__tmp27626 |gerbil/core/mop~MOP-5[1]#_g27627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27113 __tmp27563 '12 '#f '#f)) - (let ((__tmp27565 |gerbil/core/mop~MOP-5[1]#_g27566_|)) + (##unchecked-structure-set! __obj27176 __tmp27626 '12 '#f '#f)) + (let ((__tmp27628 |gerbil/core/mop~MOP-5[1]#_g27629_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27113 __tmp27565 '14 '#f '#f)) + (##unchecked-structure-set! __obj27176 __tmp27628 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27176 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27113 '() '18 '#f '#f)) - __obj27113)) + (##unchecked-structure-set! __obj27176 '() '18 '#f '#f)) + __obj27176)) (define |gerbil/core/mop~MOP-5[:0:]#:thread-group| - (let ((__obj27114 + (let ((__obj27177 (let () (declare (not safe)) (##structure @@ -4756,40 +4756,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 'thread-group::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27177 'thread-group::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 'thread-group '2 '#f '#f)) - (let ((__tmp27567 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27177 'thread-group '2 '#f '#f)) + (let ((__tmp27630 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27114 __tmp27567 '3 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27630 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '#t '9 '#f '#f)) - (let ((__tmp27568 |gerbil/core/mop~MOP-5[1]#_g27569_|)) + (##unchecked-structure-set! __obj27177 '#t '9 '#f '#f)) + (let ((__tmp27631 |gerbil/core/mop~MOP-5[1]#_g27632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27114 __tmp27568 '12 '#f '#f)) - (let ((__tmp27570 |gerbil/core/mop~MOP-5[1]#_g27571_|)) + (##unchecked-structure-set! __obj27177 __tmp27631 '12 '#f '#f)) + (let ((__tmp27633 |gerbil/core/mop~MOP-5[1]#_g27634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27114 __tmp27570 '14 '#f '#f)) + (##unchecked-structure-set! __obj27177 __tmp27633 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27177 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27114 '() '18 '#f '#f)) - __obj27114)) + (##unchecked-structure-set! __obj27177 '() '18 '#f '#f)) + __obj27177)) (define |gerbil/core/mop~MOP-5[:0:]#:mutex| - (let ((__obj27115 + (let ((__obj27178 (let () (declare (not safe)) (##structure @@ -4817,40 +4817,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 'mutex::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27178 'mutex::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 'mutex '2 '#f '#f)) - (let ((__tmp27572 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27178 'mutex '2 '#f '#f)) + (let ((__tmp27635 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27115 __tmp27572 '3 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27635 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '#t '9 '#f '#f)) - (let ((__tmp27573 |gerbil/core/mop~MOP-5[1]#_g27574_|)) + (##unchecked-structure-set! __obj27178 '#t '9 '#f '#f)) + (let ((__tmp27636 |gerbil/core/mop~MOP-5[1]#_g27637_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27115 __tmp27573 '12 '#f '#f)) - (let ((__tmp27575 |gerbil/core/mop~MOP-5[1]#_g27576_|)) + (##unchecked-structure-set! __obj27178 __tmp27636 '12 '#f '#f)) + (let ((__tmp27638 |gerbil/core/mop~MOP-5[1]#_g27639_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27115 __tmp27575 '14 '#f '#f)) + (##unchecked-structure-set! __obj27178 __tmp27638 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27178 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27115 '() '18 '#f '#f)) - __obj27115)) + (##unchecked-structure-set! __obj27178 '() '18 '#f '#f)) + __obj27178)) (define |gerbil/core/mop~MOP-5[:0:]#:condvar| - (let ((__obj27116 + (let ((__obj27179 (let () (declare (not safe)) (##structure @@ -4879,7 +4879,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27116 + __obj27179 'condition-variable::t '1 '#f @@ -4887,41 +4887,41 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27116 + __obj27179 'condition-variable '2 '#f '#f)) - (let ((__tmp27577 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (let ((__tmp27640 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27116 __tmp27577 '3 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27640 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '#t '9 '#f '#f)) - (let ((__tmp27578 |gerbil/core/mop~MOP-5[1]#_g27579_|)) + (##unchecked-structure-set! __obj27179 '#t '9 '#f '#f)) + (let ((__tmp27641 |gerbil/core/mop~MOP-5[1]#_g27642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27116 __tmp27578 '12 '#f '#f)) - (let ((__tmp27580 |gerbil/core/mop~MOP-5[1]#_g27581_|)) + (##unchecked-structure-set! __obj27179 __tmp27641 '12 '#f '#f)) + (let ((__tmp27643 |gerbil/core/mop~MOP-5[1]#_g27644_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27116 __tmp27580 '14 '#f '#f)) + (##unchecked-structure-set! __obj27179 __tmp27643 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27179 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27116 '() '18 '#f '#f)) - __obj27116)) + (##unchecked-structure-set! __obj27179 '() '18 '#f '#f)) + __obj27179)) (define |gerbil/core/mop~MOP-5[:0:]#:port| - (let ((__obj27117 + (let ((__obj27180 (let () (declare (not safe)) (##structure @@ -4949,40 +4949,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 'port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27180 'port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 'port '2 '#f '#f)) - (let ((__tmp27582 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27180 'port '2 '#f '#f)) + (let ((__tmp27645 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27582 '3 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27645 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '#t '9 '#f '#f)) - (let ((__tmp27583 |gerbil/core/mop~MOP-5[1]#_g27584_|)) + (##unchecked-structure-set! __obj27180 '#t '9 '#f '#f)) + (let ((__tmp27646 |gerbil/core/mop~MOP-5[1]#_g27647_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27583 '12 '#f '#f)) - (let ((__tmp27585 |gerbil/core/mop~MOP-5[1]#_g27586_|)) + (##unchecked-structure-set! __obj27180 __tmp27646 '12 '#f '#f)) + (let ((__tmp27648 |gerbil/core/mop~MOP-5[1]#_g27649_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27117 __tmp27585 '14 '#f '#f)) + (##unchecked-structure-set! __obj27180 __tmp27648 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27180 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27117 '() '18 '#f '#f)) - __obj27117)) + (##unchecked-structure-set! __obj27180 '() '18 '#f '#f)) + __obj27180)) (define |gerbil/core/mop~MOP-5[:0:]#:object-port| - (let ((__obj27118 + (let ((__obj27181 (let () (declare (not safe)) (##structure @@ -5010,40 +5010,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 'object-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27181 'object-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 'object-port '2 '#f '#f)) - (let ((__tmp27587 (cons |gerbil/core/mop~MOP-5[1]#_g27588_| '()))) + (##unchecked-structure-set! __obj27181 'object-port '2 '#f '#f)) + (let ((__tmp27650 (cons |gerbil/core/mop~MOP-5[1]#_g27651_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27587 '3 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27650 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '#t '9 '#f '#f)) - (let ((__tmp27589 |gerbil/core/mop~MOP-5[1]#_g27590_|)) + (##unchecked-structure-set! __obj27181 '#t '9 '#f '#f)) + (let ((__tmp27652 |gerbil/core/mop~MOP-5[1]#_g27653_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27589 '12 '#f '#f)) - (let ((__tmp27591 |gerbil/core/mop~MOP-5[1]#_g27592_|)) + (##unchecked-structure-set! __obj27181 __tmp27652 '12 '#f '#f)) + (let ((__tmp27654 |gerbil/core/mop~MOP-5[1]#_g27655_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27118 __tmp27591 '14 '#f '#f)) + (##unchecked-structure-set! __obj27181 __tmp27654 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27181 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27118 '() '18 '#f '#f)) - __obj27118)) + (##unchecked-structure-set! __obj27181 '() '18 '#f '#f)) + __obj27181)) (define |gerbil/core/mop~MOP-5[:0:]#:character-port| - (let ((__obj27119 + (let ((__obj27182 (let () (declare (not safe)) (##structure @@ -5072,44 +5072,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27119 + __obj27182 'character-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 'character-port '2 '#f '#f)) - (let ((__tmp27593 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27182 'character-port '2 '#f '#f)) + (let ((__tmp27656 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27593 '3 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27656 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '#t '9 '#f '#f)) - (let ((__tmp27595 |gerbil/core/mop~MOP-5[1]#_g27596_|)) + (##unchecked-structure-set! __obj27182 '#t '9 '#f '#f)) + (let ((__tmp27658 |gerbil/core/mop~MOP-5[1]#_g27659_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27595 '12 '#f '#f)) - (let ((__tmp27597 |gerbil/core/mop~MOP-5[1]#_g27598_|)) + (##unchecked-structure-set! __obj27182 __tmp27658 '12 '#f '#f)) + (let ((__tmp27660 |gerbil/core/mop~MOP-5[1]#_g27661_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27119 __tmp27597 '14 '#f '#f)) + (##unchecked-structure-set! __obj27182 __tmp27660 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27182 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27119 '() '18 '#f '#f)) - __obj27119)) + (##unchecked-structure-set! __obj27182 '() '18 '#f '#f)) + __obj27182)) (define |gerbil/core/mop~MOP-5[:0:]#:byte-port| - (let ((__obj27120 + (let ((__obj27183 (let () (declare (not safe)) (##structure @@ -5137,40 +5137,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 'byte-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27183 'byte-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 'byte-port '2 '#f '#f)) - (let ((__tmp27599 (cons |gerbil/core/mop~MOP-5[1]#_g27600_| '()))) + (##unchecked-structure-set! __obj27183 'byte-port '2 '#f '#f)) + (let ((__tmp27662 (cons |gerbil/core/mop~MOP-5[1]#_g27663_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27599 '3 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27662 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '#t '9 '#f '#f)) - (let ((__tmp27601 |gerbil/core/mop~MOP-5[1]#_g27602_|)) + (##unchecked-structure-set! __obj27183 '#t '9 '#f '#f)) + (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27601 '12 '#f '#f)) - (let ((__tmp27603 |gerbil/core/mop~MOP-5[1]#_g27604_|)) + (##unchecked-structure-set! __obj27183 __tmp27664 '12 '#f '#f)) + (let ((__tmp27666 |gerbil/core/mop~MOP-5[1]#_g27667_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27120 __tmp27603 '14 '#f '#f)) + (##unchecked-structure-set! __obj27183 __tmp27666 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27183 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27120 '() '18 '#f '#f)) - __obj27120)) + (##unchecked-structure-set! __obj27183 '() '18 '#f '#f)) + __obj27183)) (define |gerbil/core/mop~MOP-5[:0:]#:device-port| - (let ((__obj27121 + (let ((__obj27184 (let () (declare (not safe)) (##structure @@ -5198,40 +5198,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 'device-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27184 'device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 'device-port '2 '#f '#f)) - (let ((__tmp27605 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27184 'device-port '2 '#f '#f)) + (let ((__tmp27668 (cons |gerbil/core/mop~MOP-5[1]#_g27669_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27605 '3 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27668 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '#t '9 '#f '#f)) - (let ((__tmp27607 |gerbil/core/mop~MOP-5[1]#_g27608_|)) + (##unchecked-structure-set! __obj27184 '#t '9 '#f '#f)) + (let ((__tmp27670 |gerbil/core/mop~MOP-5[1]#_g27671_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27607 '12 '#f '#f)) - (let ((__tmp27609 |gerbil/core/mop~MOP-5[1]#_g27610_|)) + (##unchecked-structure-set! __obj27184 __tmp27670 '12 '#f '#f)) + (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27121 __tmp27609 '14 '#f '#f)) + (##unchecked-structure-set! __obj27184 __tmp27672 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27184 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27121 '() '18 '#f '#f)) - __obj27121)) + (##unchecked-structure-set! __obj27184 '() '18 '#f '#f)) + __obj27184)) (define |gerbil/core/mop~MOP-5[:0:]#:vector-port| - (let ((__obj27122 + (let ((__obj27185 (let () (declare (not safe)) (##structure @@ -5259,40 +5259,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 'vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27185 'vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 'vector-port '2 '#f '#f)) - (let ((__tmp27611 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27185 'vector-port '2 '#f '#f)) + (let ((__tmp27674 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27611 '3 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27674 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '#t '9 '#f '#f)) - (let ((__tmp27612 |gerbil/core/mop~MOP-5[1]#_g27613_|)) + (##unchecked-structure-set! __obj27185 '#t '9 '#f '#f)) + (let ((__tmp27675 |gerbil/core/mop~MOP-5[1]#_g27676_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27612 '12 '#f '#f)) - (let ((__tmp27614 |gerbil/core/mop~MOP-5[1]#_g27615_|)) + (##unchecked-structure-set! __obj27185 __tmp27675 '12 '#f '#f)) + (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27122 __tmp27614 '14 '#f '#f)) + (##unchecked-structure-set! __obj27185 __tmp27677 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27185 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27122 '() '18 '#f '#f)) - __obj27122)) + (##unchecked-structure-set! __obj27185 '() '18 '#f '#f)) + __obj27185)) (define |gerbil/core/mop~MOP-5[:0:]#:string-port| - (let ((__obj27123 + (let ((__obj27186 (let () (declare (not safe)) (##structure @@ -5320,40 +5320,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 'string-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27186 'string-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 'string-port '2 '#f '#f)) - (let ((__tmp27616 (cons |gerbil/core/mop~MOP-5[1]#_g27600_| '()))) + (##unchecked-structure-set! __obj27186 'string-port '2 '#f '#f)) + (let ((__tmp27679 (cons |gerbil/core/mop~MOP-5[1]#_g27663_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27616 '3 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27679 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '#t '9 '#f '#f)) - (let ((__tmp27617 |gerbil/core/mop~MOP-5[1]#_g27618_|)) + (##unchecked-structure-set! __obj27186 '#t '9 '#f '#f)) + (let ((__tmp27680 |gerbil/core/mop~MOP-5[1]#_g27681_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27617 '12 '#f '#f)) - (let ((__tmp27619 |gerbil/core/mop~MOP-5[1]#_g27620_|)) + (##unchecked-structure-set! __obj27186 __tmp27680 '12 '#f '#f)) + (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27123 __tmp27619 '14 '#f '#f)) + (##unchecked-structure-set! __obj27186 __tmp27682 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27186 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27123 '() '18 '#f '#f)) - __obj27123)) + (##unchecked-structure-set! __obj27186 '() '18 '#f '#f)) + __obj27186)) (define |gerbil/core/mop~MOP-5[:0:]#:u8vector-port| - (let ((__obj27124 + (let ((__obj27187 (let () (declare (not safe)) (##structure @@ -5381,40 +5381,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 'u8vector-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27187 'u8vector-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 'u8vector-port '2 '#f '#f)) - (let ((__tmp27621 (cons |gerbil/core/mop~MOP-5[1]#_g27606_| '()))) + (##unchecked-structure-set! __obj27187 'u8vector-port '2 '#f '#f)) + (let ((__tmp27684 (cons |gerbil/core/mop~MOP-5[1]#_g27669_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27621 '3 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27684 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '#t '9 '#f '#f)) - (let ((__tmp27622 |gerbil/core/mop~MOP-5[1]#_g27623_|)) + (##unchecked-structure-set! __obj27187 '#t '9 '#f '#f)) + (let ((__tmp27685 |gerbil/core/mop~MOP-5[1]#_g27686_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27622 '12 '#f '#f)) - (let ((__tmp27624 |gerbil/core/mop~MOP-5[1]#_g27625_|)) + (##unchecked-structure-set! __obj27187 __tmp27685 '12 '#f '#f)) + (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27124 __tmp27624 '14 '#f '#f)) + (##unchecked-structure-set! __obj27187 __tmp27687 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27187 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27124 '() '18 '#f '#f)) - __obj27124)) + (##unchecked-structure-set! __obj27187 '() '18 '#f '#f)) + __obj27187)) (define |gerbil/core/mop~MOP-5[:0:]#:raw-device-port| - (let ((__obj27125 + (let ((__obj27188 (let () (declare (not safe)) (##structure @@ -5443,44 +5443,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27125 + __obj27188 'raw-device-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 'raw-device-port '2 '#f '#f)) - (let ((__tmp27626 (cons |gerbil/core/mop~MOP-5[1]#_g27588_| '()))) + (##unchecked-structure-set! __obj27188 'raw-device-port '2 '#f '#f)) + (let ((__tmp27689 (cons |gerbil/core/mop~MOP-5[1]#_g27651_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27626 '3 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27689 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '#t '9 '#f '#f)) - (let ((__tmp27627 |gerbil/core/mop~MOP-5[1]#_g27628_|)) + (##unchecked-structure-set! __obj27188 '#t '9 '#f '#f)) + (let ((__tmp27690 |gerbil/core/mop~MOP-5[1]#_g27691_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27627 '12 '#f '#f)) - (let ((__tmp27629 |gerbil/core/mop~MOP-5[1]#_g27630_|)) + (##unchecked-structure-set! __obj27188 __tmp27690 '12 '#f '#f)) + (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27125 __tmp27629 '14 '#f '#f)) + (##unchecked-structure-set! __obj27188 __tmp27692 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27188 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27125 '() '18 '#f '#f)) - __obj27125)) + (##unchecked-structure-set! __obj27188 '() '18 '#f '#f)) + __obj27188)) (define |gerbil/core/mop~MOP-5[:0:]#:tcp-server-port| - (let ((__obj27126 + (let ((__obj27189 (let () (declare (not safe)) (##structure @@ -5509,44 +5509,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27126 + __obj27189 'tcp-server-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 'tcp-server-port '2 '#f '#f)) - (let ((__tmp27631 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27189 'tcp-server-port '2 '#f '#f)) + (let ((__tmp27694 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27631 '3 '#f '#f)) + (##unchecked-structure-set! __obj27189 __tmp27694 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '#t '9 '#f '#f)) - (let ((__tmp27632 |gerbil/core/mop~MOP-5[1]#_g27633_|)) + (##unchecked-structure-set! __obj27189 '#t '9 '#f '#f)) + (let ((__tmp27695 |gerbil/core/mop~MOP-5[1]#_g27696_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27632 '12 '#f '#f)) - (let ((__tmp27634 |gerbil/core/mop~MOP-5[1]#_g27635_|)) + (##unchecked-structure-set! __obj27189 __tmp27695 '12 '#f '#f)) + (let ((__tmp27697 |gerbil/core/mop~MOP-5[1]#_g27698_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27126 __tmp27634 '14 '#f '#f)) + (##unchecked-structure-set! __obj27189 __tmp27697 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27189 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27126 '() '18 '#f '#f)) - __obj27126)) + (##unchecked-structure-set! __obj27189 '() '18 '#f '#f)) + __obj27189)) (define |gerbil/core/mop~MOP-5[:0:]#:udp-port| - (let ((__obj27127 + (let ((__obj27190 (let () (declare (not safe)) (##structure @@ -5574,40 +5574,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 'udp-port::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27190 'udp-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 'udp-port '2 '#f '#f)) - (let ((__tmp27636 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27190 'udp-port '2 '#f '#f)) + (let ((__tmp27699 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27636 '3 '#f '#f)) + (##unchecked-structure-set! __obj27190 __tmp27699 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '#t '9 '#f '#f)) - (let ((__tmp27637 |gerbil/core/mop~MOP-5[1]#_g27638_|)) + (##unchecked-structure-set! __obj27190 '#t '9 '#f '#f)) + (let ((__tmp27700 |gerbil/core/mop~MOP-5[1]#_g27701_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27637 '12 '#f '#f)) - (let ((__tmp27639 |gerbil/core/mop~MOP-5[1]#_g27640_|)) + (##unchecked-structure-set! __obj27190 __tmp27700 '12 '#f '#f)) + (let ((__tmp27702 |gerbil/core/mop~MOP-5[1]#_g27703_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27127 __tmp27639 '14 '#f '#f)) + (##unchecked-structure-set! __obj27190 __tmp27702 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27190 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27127 '() '18 '#f '#f)) - __obj27127)) + (##unchecked-structure-set! __obj27190 '() '18 '#f '#f)) + __obj27190)) (define |gerbil/core/mop~MOP-5[:0:]#:directory-port| - (let ((__obj27128 + (let ((__obj27191 (let () (declare (not safe)) (##structure @@ -5636,44 +5636,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27128 + __obj27191 'directory-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 'directory-port '2 '#f '#f)) - (let ((__tmp27641 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27191 'directory-port '2 '#f '#f)) + (let ((__tmp27704 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27641 '3 '#f '#f)) + (##unchecked-structure-set! __obj27191 __tmp27704 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '#t '9 '#f '#f)) - (let ((__tmp27642 |gerbil/core/mop~MOP-5[1]#_g27643_|)) + (##unchecked-structure-set! __obj27191 '#t '9 '#f '#f)) + (let ((__tmp27705 |gerbil/core/mop~MOP-5[1]#_g27706_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27642 '12 '#f '#f)) - (let ((__tmp27644 |gerbil/core/mop~MOP-5[1]#_g27645_|)) + (##unchecked-structure-set! __obj27191 __tmp27705 '12 '#f '#f)) + (let ((__tmp27707 |gerbil/core/mop~MOP-5[1]#_g27708_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27128 __tmp27644 '14 '#f '#f)) + (##unchecked-structure-set! __obj27191 __tmp27707 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27191 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27128 '() '18 '#f '#f)) - __obj27128)) + (##unchecked-structure-set! __obj27191 '() '18 '#f '#f)) + __obj27191)) (define |gerbil/core/mop~MOP-5[:0:]#:event-queue-port| - (let ((__obj27129 + (let ((__obj27192 (let () (declare (not safe)) (##structure @@ -5702,44 +5702,44 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj27129 + __obj27192 'event-queue-port::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 'event-queue-port '2 '#f '#f)) - (let ((__tmp27646 (cons |gerbil/core/mop~MOP-5[1]#_g27594_| '()))) + (##unchecked-structure-set! __obj27192 'event-queue-port '2 '#f '#f)) + (let ((__tmp27709 (cons |gerbil/core/mop~MOP-5[1]#_g27657_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27646 '3 '#f '#f)) + (##unchecked-structure-set! __obj27192 __tmp27709 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '#t '9 '#f '#f)) - (let ((__tmp27647 |gerbil/core/mop~MOP-5[1]#_g27648_|)) + (##unchecked-structure-set! __obj27192 '#t '9 '#f '#f)) + (let ((__tmp27710 |gerbil/core/mop~MOP-5[1]#_g27711_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27647 '12 '#f '#f)) - (let ((__tmp27649 |gerbil/core/mop~MOP-5[1]#_g27650_|)) + (##unchecked-structure-set! __obj27192 __tmp27710 '12 '#f '#f)) + (let ((__tmp27712 |gerbil/core/mop~MOP-5[1]#_g27713_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27129 __tmp27649 '14 '#f '#f)) + (##unchecked-structure-set! __obj27192 __tmp27712 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27192 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27129 '() '18 '#f '#f)) - __obj27129)) + (##unchecked-structure-set! __obj27192 '() '18 '#f '#f)) + __obj27192)) (define |gerbil/core/mop~MOP-5[:0:]#:table| - (let ((__obj27130 + (let ((__obj27193 (let () (declare (not safe)) (##structure @@ -5767,40 +5767,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 'table::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27193 'table::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 'table '2 '#f '#f)) - (let ((__tmp27651 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27193 'table '2 '#f '#f)) + (let ((__tmp27714 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27651 '3 '#f '#f)) + (##unchecked-structure-set! __obj27193 __tmp27714 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '#t '9 '#f '#f)) - (let ((__tmp27652 |gerbil/core/mop~MOP-5[1]#_g27653_|)) + (##unchecked-structure-set! __obj27193 '#t '9 '#f '#f)) + (let ((__tmp27715 |gerbil/core/mop~MOP-5[1]#_g27716_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27652 '12 '#f '#f)) - (let ((__tmp27654 |gerbil/core/mop~MOP-5[1]#_g27655_|)) + (##unchecked-structure-set! __obj27193 __tmp27715 '12 '#f '#f)) + (let ((__tmp27717 |gerbil/core/mop~MOP-5[1]#_g27718_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27130 __tmp27654 '14 '#f '#f)) + (##unchecked-structure-set! __obj27193 __tmp27717 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27193 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27130 '() '18 '#f '#f)) - __obj27130)) + (##unchecked-structure-set! __obj27193 '() '18 '#f '#f)) + __obj27193)) (define |gerbil/core/mop~MOP-5[:0:]#:readenv| - (let ((__obj27131 + (let ((__obj27194 (let () (declare (not safe)) (##structure @@ -5828,40 +5828,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 'readenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27194 'readenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 'readenv '2 '#f '#f)) - (let ((__tmp27656 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27194 'readenv '2 '#f '#f)) + (let ((__tmp27719 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27656 '3 '#f '#f)) + (##unchecked-structure-set! __obj27194 __tmp27719 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '#t '9 '#f '#f)) - (let ((__tmp27657 |gerbil/core/mop~MOP-5[1]#_g27658_|)) + (##unchecked-structure-set! __obj27194 '#t '9 '#f '#f)) + (let ((__tmp27720 |gerbil/core/mop~MOP-5[1]#_g27721_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27657 '12 '#f '#f)) - (let ((__tmp27659 |gerbil/core/mop~MOP-5[1]#_g27660_|)) + (##unchecked-structure-set! __obj27194 __tmp27720 '12 '#f '#f)) + (let ((__tmp27722 |gerbil/core/mop~MOP-5[1]#_g27723_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27131 __tmp27659 '14 '#f '#f)) + (##unchecked-structure-set! __obj27194 __tmp27722 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27194 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27131 '() '18 '#f '#f)) - __obj27131)) + (##unchecked-structure-set! __obj27194 '() '18 '#f '#f)) + __obj27194)) (define |gerbil/core/mop~MOP-5[:0:]#:writeenv| - (let ((__obj27132 + (let ((__obj27195 (let () (declare (not safe)) (##structure @@ -5889,40 +5889,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 'writeenv::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27195 'writeenv::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 'writeenv '2 '#f '#f)) - (let ((__tmp27661 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27195 'writeenv '2 '#f '#f)) + (let ((__tmp27724 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27661 '3 '#f '#f)) + (##unchecked-structure-set! __obj27195 __tmp27724 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '#t '9 '#f '#f)) - (let ((__tmp27662 |gerbil/core/mop~MOP-5[1]#_g27663_|)) + (##unchecked-structure-set! __obj27195 '#t '9 '#f '#f)) + (let ((__tmp27725 |gerbil/core/mop~MOP-5[1]#_g27726_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27662 '12 '#f '#f)) - (let ((__tmp27664 |gerbil/core/mop~MOP-5[1]#_g27665_|)) + (##unchecked-structure-set! __obj27195 __tmp27725 '12 '#f '#f)) + (let ((__tmp27727 |gerbil/core/mop~MOP-5[1]#_g27728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27132 __tmp27664 '14 '#f '#f)) + (##unchecked-structure-set! __obj27195 __tmp27727 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27195 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27132 '() '18 '#f '#f)) - __obj27132)) + (##unchecked-structure-set! __obj27195 '() '18 '#f '#f)) + __obj27195)) (define |gerbil/core/mop~MOP-5[:0:]#:readtable| - (let ((__obj27133 + (let ((__obj27196 (let () (declare (not safe)) (##structure @@ -5950,40 +5950,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 'readtable::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27196 'readtable::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 'readtable '2 '#f '#f)) - (let ((__tmp27666 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27196 'readtable '2 '#f '#f)) + (let ((__tmp27729 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27666 '3 '#f '#f)) + (##unchecked-structure-set! __obj27196 __tmp27729 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '#t '9 '#f '#f)) - (let ((__tmp27667 |gerbil/core/mop~MOP-5[1]#_g27668_|)) + (##unchecked-structure-set! __obj27196 '#t '9 '#f '#f)) + (let ((__tmp27730 |gerbil/core/mop~MOP-5[1]#_g27731_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27667 '12 '#f '#f)) - (let ((__tmp27669 |gerbil/core/mop~MOP-5[1]#_g27670_|)) + (##unchecked-structure-set! __obj27196 __tmp27730 '12 '#f '#f)) + (let ((__tmp27732 |gerbil/core/mop~MOP-5[1]#_g27733_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27133 __tmp27669 '14 '#f '#f)) + (##unchecked-structure-set! __obj27196 __tmp27732 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27196 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27133 '() '18 '#f '#f)) - __obj27133)) + (##unchecked-structure-set! __obj27196 '() '18 '#f '#f)) + __obj27196)) (define |gerbil/core/mop~MOP-5[:0:]#:processor| - (let ((__obj27134 + (let ((__obj27197 (let () (declare (not safe)) (##structure @@ -6011,40 +6011,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 'processor::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27197 'processor::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 'processor '2 '#f '#f)) - (let ((__tmp27671 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27197 'processor '2 '#f '#f)) + (let ((__tmp27734 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27671 '3 '#f '#f)) + (##unchecked-structure-set! __obj27197 __tmp27734 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '#t '9 '#f '#f)) - (let ((__tmp27672 |gerbil/core/mop~MOP-5[1]#_g27673_|)) + (##unchecked-structure-set! __obj27197 '#t '9 '#f '#f)) + (let ((__tmp27735 |gerbil/core/mop~MOP-5[1]#_g27736_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27672 '12 '#f '#f)) - (let ((__tmp27674 |gerbil/core/mop~MOP-5[1]#_g27675_|)) + (##unchecked-structure-set! __obj27197 __tmp27735 '12 '#f '#f)) + (let ((__tmp27737 |gerbil/core/mop~MOP-5[1]#_g27738_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27134 __tmp27674 '14 '#f '#f)) + (##unchecked-structure-set! __obj27197 __tmp27737 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27197 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27134 '() '18 '#f '#f)) - __obj27134)) + (##unchecked-structure-set! __obj27197 '() '18 '#f '#f)) + __obj27197)) (define |gerbil/core/mop~MOP-5[:0:]#:vm| - (let ((__obj27135 + (let ((__obj27198 (let () (declare (not safe)) (##structure @@ -6072,40 +6072,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 'vm::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27198 'vm::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 'vm '2 '#f '#f)) - (let ((__tmp27676 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27198 'vm '2 '#f '#f)) + (let ((__tmp27739 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27676 '3 '#f '#f)) + (##unchecked-structure-set! __obj27198 __tmp27739 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '#t '9 '#f '#f)) - (let ((__tmp27677 |gerbil/core/mop~MOP-5[1]#_g27678_|)) + (##unchecked-structure-set! __obj27198 '#t '9 '#f '#f)) + (let ((__tmp27740 |gerbil/core/mop~MOP-5[1]#_g27741_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27677 '12 '#f '#f)) - (let ((__tmp27679 |gerbil/core/mop~MOP-5[1]#_g27680_|)) + (##unchecked-structure-set! __obj27198 __tmp27740 '12 '#f '#f)) + (let ((__tmp27742 |gerbil/core/mop~MOP-5[1]#_g27743_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27135 __tmp27679 '14 '#f '#f)) + (##unchecked-structure-set! __obj27198 __tmp27742 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27198 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27135 '() '18 '#f '#f)) - __obj27135)) + (##unchecked-structure-set! __obj27198 '() '18 '#f '#f)) + __obj27198)) (define |gerbil/core/mop~MOP-5[:0:]#:file-info| - (let ((__obj27136 + (let ((__obj27199 (let () (declare (not safe)) (##structure @@ -6133,40 +6133,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 'file-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27199 'file-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 'file-info '2 '#f '#f)) - (let ((__tmp27681 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27199 'file-info '2 '#f '#f)) + (let ((__tmp27744 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27681 '3 '#f '#f)) + (##unchecked-structure-set! __obj27199 __tmp27744 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '#t '9 '#f '#f)) - (let ((__tmp27682 |gerbil/core/mop~MOP-5[1]#_g27683_|)) + (##unchecked-structure-set! __obj27199 '#t '9 '#f '#f)) + (let ((__tmp27745 |gerbil/core/mop~MOP-5[1]#_g27746_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27682 '12 '#f '#f)) - (let ((__tmp27684 |gerbil/core/mop~MOP-5[1]#_g27685_|)) + (##unchecked-structure-set! __obj27199 __tmp27745 '12 '#f '#f)) + (let ((__tmp27747 |gerbil/core/mop~MOP-5[1]#_g27748_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27136 __tmp27684 '14 '#f '#f)) + (##unchecked-structure-set! __obj27199 __tmp27747 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27199 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27136 '() '18 '#f '#f)) - __obj27136)) + (##unchecked-structure-set! __obj27199 '() '18 '#f '#f)) + __obj27199)) (define |gerbil/core/mop~MOP-5[:0:]#:socket-info| - (let ((__obj27137 + (let ((__obj27200 (let () (declare (not safe)) (##structure @@ -6194,40 +6194,40 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 'socket-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27200 'socket-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 'socket-info '2 '#f '#f)) - (let ((__tmp27686 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27200 'socket-info '2 '#f '#f)) + (let ((__tmp27749 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27686 '3 '#f '#f)) + (##unchecked-structure-set! __obj27200 __tmp27749 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '#t '9 '#f '#f)) - (let ((__tmp27687 |gerbil/core/mop~MOP-5[1]#_g27688_|)) + (##unchecked-structure-set! __obj27200 '#t '9 '#f '#f)) + (let ((__tmp27750 |gerbil/core/mop~MOP-5[1]#_g27751_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27687 '12 '#f '#f)) - (let ((__tmp27689 |gerbil/core/mop~MOP-5[1]#_g27690_|)) + (##unchecked-structure-set! __obj27200 __tmp27750 '12 '#f '#f)) + (let ((__tmp27752 |gerbil/core/mop~MOP-5[1]#_g27753_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27137 __tmp27689 '14 '#f '#f)) + (##unchecked-structure-set! __obj27200 __tmp27752 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27200 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27137 '() '18 '#f '#f)) - __obj27137)) + (##unchecked-structure-set! __obj27200 '() '18 '#f '#f)) + __obj27200)) (define |gerbil/core/mop~MOP-5[:0:]#:address-info| - (let ((__obj27138 + (let ((__obj27201 (let () (declare (not safe)) (##structure @@ -6255,35 +6255,35 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 'address-info::t '1 '#f '#f)) + (##unchecked-structure-set! __obj27201 'address-info::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 'address-info '2 '#f '#f)) - (let ((__tmp27691 (cons |gerbil/core/mop~MOP-5[1]#_g27284_| '()))) + (##unchecked-structure-set! __obj27201 'address-info '2 '#f '#f)) + (let ((__tmp27754 (cons |gerbil/core/mop~MOP-5[1]#_g27347_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27691 '3 '#f '#f)) + (##unchecked-structure-set! __obj27201 __tmp27754 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '#t '9 '#f '#f)) - (let ((__tmp27692 |gerbil/core/mop~MOP-5[1]#_g27693_|)) + (##unchecked-structure-set! __obj27201 '#t '9 '#f '#f)) + (let ((__tmp27755 |gerbil/core/mop~MOP-5[1]#_g27756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27692 '12 '#f '#f)) - (let ((__tmp27694 |gerbil/core/mop~MOP-5[1]#_g27695_|)) + (##unchecked-structure-set! __obj27201 __tmp27755 '12 '#f '#f)) + (let ((__tmp27757 |gerbil/core/mop~MOP-5[1]#_g27758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj27138 __tmp27694 '14 '#f '#f)) + (##unchecked-structure-set! __obj27201 __tmp27757 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj27201 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj27138 '() '18 '#f '#f)) - __obj27138)))) + (##unchecked-structure-set! __obj27201 '() '18 '#f '#f)) + __obj27201)))) diff --git a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm index 68858898f..62668c57f 100644 --- a/src/bootstrap/gerbil/core/mop~MOP-2~0.scm +++ b/src/bootstrap/gerbil/core/mop~MOP-2~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/core/mop~MOP-2::timestamp 1733870063) + (define gerbil/core/mop~MOP-2::timestamp 1734131735) (begin (define gerbil/core/mop~MOP-2#class-type-info::t (make-class-type @@ -32,10 +32,10 @@ (define gerbil/core/mop~MOP-2#class-type-info? (make-class-predicate gerbil/core/mop~MOP-2#class-type-info::t)) (define gerbil/core/mop~MOP-2#make-class-type-info - (lambda _%$args22582%_ + (lambda _%$args22645%_ (apply make-instance gerbil/core/mop~MOP-2#class-type-info::t - _%$args22582%_))) + _%$args22645%_))) (define gerbil/core/mop~MOP-2#!class-type-id (make-class-slot-accessor gerbil/core/mop~MOP-2#class-type-info::t 'id)) (define gerbil/core/mop~MOP-2#!class-type-name @@ -367,148 +367,148 @@ gerbil/core/mop~MOP-2#class-type-info::t 'slot-contracts)) (define gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander - (lambda (_%self22493%_ _%stx22494%_) - (let* ((_%g2249622515%_ - (lambda (_%g2249722512%_) + (lambda (_%self22556%_ _%stx22557%_) + (let* ((_%g2255922578%_ + (lambda (_%g2256022575%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g2249722512%_))) - (_%g2249522579%_ - (lambda (_%g2249722518%_) - (if (gx#stx-pair? _%g2249722518%_) - (let ((_%e2249922520%_ (gx#syntax-e _%g2249722518%_))) - (let ((_%hd2250022523%_ + _%g2256022575%_))) + (_%g2255822642%_ + (lambda (_%g2256022581%_) + (if (gx#stx-pair? _%g2256022581%_) + (let ((_%e2256222583%_ (gx#syntax-e _%g2256022581%_))) + (let ((_%hd2256322586%_ (let () (declare (not safe)) - (##car _%e2249922520%_))) - (_%tl2250122525%_ + (##car _%e2256222583%_))) + (_%tl2256422588%_ (let () (declare (not safe)) - (##cdr _%e2249922520%_)))) - (if (gx#stx-pair/null? _%tl2250122525%_) - (let ((_g27139_ + (##cdr _%e2256222583%_)))) + (if (gx#stx-pair/null? _%tl2256422588%_) + (let ((_g27202_ (gx#syntax-split-splice - _%tl2250122525%_ + _%tl2256422588%_ '0))) (begin - (let ((_g27140_ + (let ((_g27203_ (let () (declare (not safe)) - (if (##values? _g27139_) - (##vector-length _g27139_) + (if (##values? _g27202_) + (##values-length _g27202_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g27140_ 2))) + (##fx= _g27203_ 2))) (error "Context expects 2 values" - _g27140_))) - (let ((_%target2250222528%_ + _g27203_))) + (let ((_%target2256522591%_ (let () (declare (not safe)) - (##vector-ref _g27139_ 0))) - (_%tl2250422530%_ + (##values-ref _g27202_ 0))) + (_%tl2256722593%_ (let () (declare (not safe)) - (##vector-ref _g27139_ 1)))) - (if (gx#stx-null? _%tl2250422530%_) - (letrec ((_%loop2250522533%_ - (lambda (_%hd2250322536%_ - _%arg2250922538%_) + (##values-ref _g27202_ 1)))) + (if (gx#stx-null? _%tl2256722593%_) + (letrec ((_%loop2256822596%_ + (lambda (_%hd2256622599%_ + _%arg2257222601%_) (if (gx#stx-pair? - _%hd2250322536%_) - (let ((_%e2250622541%_ + _%hd2256622599%_) + (let ((_%e2256922604%_ (gx#syntax-e - _%hd2250322536%_))) - (let ((_%lp-hd2250722544%_ + _%hd2256622599%_))) + (let ((_%lp-hd2257022607%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e2250622541%_))) - (_%lp-tl2250822546%_ + (let () (declare (not safe)) (##car _%e2256922604%_))) + (_%lp-tl2257122609%_ (let () (declare (not safe)) - (##cdr _%e2250622541%_)))) - (_%loop2250522533%_ - _%lp-tl2250822546%_ - (cons _%lp-hd2250722544%_ _%arg2250922538%_)))) - (let ((_%arg2251022549%_ (reverse _%arg2250922538%_))) - ((lambda (_%L22552%_) - (let ((_%$e22566%_ - (let ((__obj27058 _%self22493%_)) + (##cdr _%e2256922604%_)))) + (_%loop2256822596%_ + _%lp-tl2257122609%_ + (cons _%lp-hd2257022607%_ _%arg2257222601%_)))) + (let ((_%arg2257322612%_ (reverse _%arg2257222601%_))) + ((lambda (_%L22615%_) + (let ((_%$e22629%_ + (let ((__obj27121 _%self22556%_)) (if (let () (declare (not safe)) (##structure-direct-instance-of? - __obj27058 + __obj27121 'gerbil.core#class-type-info::t)) (let () (declare (not safe)) (##unchecked-structure-ref - __obj27058 + __obj27121 '13 '#f '#f)) (class-slot-ref gerbil/core/mop~MOP-2#class-type-info::t - __obj27058 + __obj27121 'constructor))))) - (if _%$e22566%_ - ((lambda (_%make22569%_) - (cons _%make22569%_ - (foldr (lambda (_%g2257022573%_ - _%g2257122575%_) - (cons _%g2257022573%_ - _%g2257122575%_)) + (if _%$e22629%_ + ((lambda (_%make22632%_) + (cons _%make22632%_ + (foldr (lambda (_%g2263322636%_ + _%g2263422638%_) + (cons _%g2263322636%_ + _%g2263422638%_)) '() - _%L22552%_))) - _%$e22566%_) + _%L22615%_))) + _%$e22629%_) (gx#raise-syntax-error '#f '"no constructor defined for class" - _%stx22494%_ - _%self22493%_)))) - _%arg2251022549%_)))))) + _%stx22557%_ + _%self22556%_)))) + _%arg2257322612%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop2250522533%_ - _%target2250222528%_ + (_%loop2256822596%_ + _%target2256522591%_ '())) - (_%g2249622515%_ _%g2249722518%_))))) - (_%g2249622515%_ _%g2249722518%_)))) - (_%g2249622515%_ _%g2249722518%_))))) - (_%g2249522579%_ _%stx22494%_)))) + (_%g2255922578%_ _%g2256022581%_))))) + (_%g2255922578%_ _%g2256022581%_)))) + (_%g2255922578%_ _%g2256022581%_))))) + (_%g2255822642%_ _%stx22557%_)))) (bind-method! gerbil/core/mop~MOP-2#class-type-info::t 'apply-macro-expander gerbil/core/mop~MOP-2#class-type-info::apply-macro-expander) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - (lambda (_%stx22474%_ _%is?22475%_) - (if (gx#identifier? _%stx22474%_) - (let ((_%e2247622478%_ (gx#syntax-local-value _%stx22474%_ false))) - (if _%e2247622478%_ - (let ((_%e22481%_ _%e2247622478%_)) + (lambda (_%stx22537%_ _%is?22538%_) + (if (gx#identifier? _%stx22537%_) + (let ((_%e2253922541%_ (gx#syntax-local-value _%stx22537%_ false))) + (if _%e2253922541%_ + (let ((_%e22544%_ _%e2253922541%_)) (if (let () (declare (not safe)) (class-instance? gerbil/core/mop~MOP-2#class-type-info::t - _%e22481%_)) - (_%is?22475%_ _%e22481%_) + _%e22544%_)) + (_%is?22538%_ _%e22544%_) '#f)) '#f)) '#f))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - (lambda (_%stx22486%_) - (let ((_%is?22488%_ true)) + (lambda (_%stx22549%_) + (let ((_%is?22551%_ true)) (gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _%stx22486%_ - _%is?22488%_)))) + _%stx22549%_ + _%is?22551%_)))) (define gerbil/core/mop~MOP-2#syntax-local-class-type-info? - (lambda _g27142_ - (let ((_g27141_ (let () (declare (not safe)) (##length _g27142_)))) - (cond ((let () (declare (not safe)) (##fx= _g27141_ 1)) + (lambda _g27205_ + (let ((_g27204_ (let () (declare (not safe)) (##length _g27205_)))) + (cond ((let () (declare (not safe)) (##fx= _g27204_ 1)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__0 - _g27142_)) - ((let () (declare (not safe)) (##fx= _g27141_ 2)) + _g27205_)) + ((let () (declare (not safe)) (##fx= _g27204_ 2)) (apply gerbil/core/mop~MOP-2#syntax-local-class-type-info?__% - _g27142_)) + _g27205_)) (else (##raise-wrong-number-of-arguments-exception gerbil/core/mop~MOP-2#syntax-local-class-type-info? - _g27142_)))))))) + _g27205_)))))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~1.scm b/src/bootstrap/gerbil/core/more-sugar~1.scm index 823b99dcc..054a20803 100644 --- a/src/bootstrap/gerbil/core/more-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-sugar~1.scm @@ -11,10 +11,10 @@ (define |gerbil/core/more-sugar[1]#setq-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setq-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setq-macro| - (lambda _%$args40326%_ + (lambda _%$args40389%_ (apply make-instance |gerbil/core/more-sugar[1]#setq-macro::t| - _%$args40326%_))) + _%$args40389%_))) (define |gerbil/core/more-sugar[1]#setq-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setq-macro::t| @@ -40,10 +40,10 @@ (define |gerbil/core/more-sugar[1]#setf-macro?| (make-class-predicate |gerbil/core/more-sugar[1]#setf-macro::t|)) (define |gerbil/core/more-sugar[1]#make-setf-macro| - (lambda _%$args40322%_ + (lambda _%$args40385%_ (apply make-instance |gerbil/core/more-sugar[1]#setf-macro::t| - _%$args40322%_))) + _%$args40385%_))) (define |gerbil/core/more-sugar[1]#setf-macro-macro| (make-class-slot-accessor |gerbil/core/more-sugar[1]#setf-macro::t| @@ -59,1251 +59,1251 @@ |gerbil/core/more-sugar[1]#setf-macro::t| 'macro)) (define |gerbil/core/more-sugar[1]#syntax-local-setf-macro?| - (lambda (_%stx40319%_) - (if (gx#identifier? _%stx40319%_) - (let ((__tmp41544 (gx#syntax-local-value _%stx40319%_ false))) + (lambda (_%stx40382%_) + (if (gx#identifier? _%stx40382%_) + (let ((__tmp41607 (gx#syntax-local-value _%stx40382%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setf-macro::t| - __tmp41544)) + __tmp41607)) '#f))) (define |gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - (lambda (_%stx40316%_) - (if (gx#identifier? _%stx40316%_) - (let ((__tmp41545 (gx#syntax-local-value _%stx40316%_ false))) + (lambda (_%stx40379%_) + (if (gx#identifier? _%stx40379%_) + (let ((__tmp41608 (gx#syntax-local-value _%stx40379%_ false))) (declare (not safe)) (class-instance? |gerbil/core/more-sugar[1]#setq-macro::t| - __tmp41545)) + __tmp41608)) '#f))) (define |gerbil/core/more-sugar[1]#expand-set!| - (lambda (_%stx39941%_) - (let* ((_%__stx4138341384%_ _%stx39941%_) - (_%g3994740010%_ + (lambda (_%stx40004%_) + (let* ((_%__stx4144641447%_ _%stx40004%_) + (_%g4001040073%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4138341384%_)))) - (let ((_%__kont4138641387%_ - (lambda (_%L40293%_ _%L40295%_) + _%__stx4144641447%_)))) + (let ((_%__kont4144941450%_ + (lambda (_%L40356%_ _%L40358%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40295%_) - _%stx39941%_))) - (_%__kont4138841389%_ - (lambda (_%L40182%_ _%L40184%_ _%L40185%_) - (let* ((_%g4020740215%_ - (lambda (_%g4020840211%_) + (gx#syntax-local-e _%L40358%_) + _%stx40004%_))) + (_%__kont4145141452%_ + (lambda (_%L40245%_ _%L40247%_ _%L40248%_) + (let* ((_%g4027040278%_ + (lambda (_%g4027140274%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4020840211%_))) - (_%g4020640242%_ - (lambda (_%g4020840219%_) - ((lambda (_%L40222%_) - (cons _%L40222%_ - (foldr (lambda (_%g4023340236%_ - _%g4023440239%_) - (cons _%g4023340236%_ - _%g4023440239%_)) - (cons _%L40182%_ '()) - _%L40184%_))) - _%g4020840219%_)))) - (_%g4020640242%_ - (gx#stx-identifier _%L40185%_ _%L40185%_ '"-set!"))))) - (_%__kont4139241393%_ - (lambda (_%L40092%_) + _%g4027140274%_))) + (_%g4026940305%_ + (lambda (_%g4027140282%_) + ((lambda (_%L40285%_) + (cons _%L40285%_ + (foldr (lambda (_%g4029640299%_ + _%g4029740302%_) + (cons _%g4029640299%_ + _%g4029740302%_)) + (cons _%L40245%_ '()) + _%L40247%_))) + _%g4027140282%_)))) + (_%g4026940305%_ + (gx#stx-identifier _%L40248%_ _%L40248%_ '"-set!"))))) + (_%__kont4145541456%_ + (lambda (_%L40155%_) (gx#core-apply-expander - (gx#syntax-local-e _%L40092%_) - _%stx39941%_))) - (_%__kont4139441395%_ - (lambda (_%L40047%_ _%L40049%_) + (gx#syntax-local-e _%L40155%_) + _%stx40004%_))) + (_%__kont4145741458%_ + (lambda (_%L40110%_ _%L40112%_) (cons (gx#datum->syntax '#f '%#set!) - (cons _%L40049%_ (cons _%L40047%_ '())))))) - (let* ((_%__match4148241483%_ - (lambda (_%e3999640017%_ - _%hd3999740021%_ - _%tl3999840024%_ - _%e3999940027%_ - _%hd4000040031%_ - _%tl4000140034%_ - _%e4000240037%_ - _%hd4000340041%_ - _%tl4000440044%_) - (let ((_%L40047%_ _%hd4000340041%_) - (_%L40049%_ _%hd4000040031%_)) - (if (gx#identifier? _%L40049%_) - (_%__kont4139441395%_ _%L40047%_ _%L40049%_) - (let () (declare (not safe)) (_%g3994740010%_)))))) - (_%__match4146241463%_ - (lambda (_%e3998840072%_ - _%hd3998940076%_ - _%tl3999040079%_ - _%e3999140082%_ - _%hd3999240086%_ - _%tl3999340089%_) - (let ((_%L40092%_ _%hd3999240086%_)) + (cons _%L40112%_ (cons _%L40110%_ '())))))) + (let* ((_%__match4154541546%_ + (lambda (_%e4005940080%_ + _%hd4006040084%_ + _%tl4006140087%_ + _%e4006240090%_ + _%hd4006340094%_ + _%tl4006440097%_ + _%e4006540100%_ + _%hd4006640104%_ + _%tl4006740107%_) + (let ((_%L40110%_ _%hd4006640104%_) + (_%L40112%_ _%hd4006340094%_)) + (if (gx#identifier? _%L40112%_) + (_%__kont4145741458%_ _%L40110%_ _%L40112%_) + (let () (declare (not safe)) (_%g4001040073%_)))))) + (_%__match4152541526%_ + (lambda (_%e4005140135%_ + _%hd4005240139%_ + _%tl4005340142%_ + _%e4005440145%_ + _%hd4005540149%_ + _%tl4005640152%_) + (let ((_%L40155%_ _%hd4005540149%_)) (if (|gerbil/core/more-sugar[1]#syntax-local-setq-macro?| - _%L40092%_) - (_%__kont4139241393%_ _%L40092%_) - (if (gx#stx-pair? _%tl3999340089%_) - (let ((_%e4000240037%_ - (gx#syntax-e _%tl3999340089%_))) - (let ((_%tl4000440044%_ + _%L40155%_) + (_%__kont4145541456%_ _%L40155%_) + (if (gx#stx-pair? _%tl4005640152%_) + (let ((_%e4006540100%_ + (gx#syntax-e _%tl4005640152%_))) + (let ((_%tl4006740107%_ (let () (declare (not safe)) - (##cdr _%e4000240037%_))) - (_%hd4000340041%_ + (##cdr _%e4006540100%_))) + (_%hd4006640104%_ (let () (declare (not safe)) - (##car _%e4000240037%_)))) - (if (gx#stx-null? _%tl4000440044%_) - (_%__match4148241483%_ - _%e3998840072%_ - _%hd3998940076%_ - _%tl3999040079%_ - _%e3999140082%_ - _%hd3999240086%_ - _%tl3999340089%_ - _%e4000240037%_ - _%hd4000340041%_ - _%tl4000440044%_) + (##car _%e4006540100%_)))) + (if (gx#stx-null? _%tl4006740107%_) + (_%__match4154541546%_ + _%e4005140135%_ + _%hd4005240139%_ + _%tl4005340142%_ + _%e4005440145%_ + _%hd4005540149%_ + _%tl4005640152%_ + _%e4006540100%_ + _%hd4006640104%_ + _%tl4006740107%_) (let () (declare (not safe)) - (_%g3994740010%_))))) + (_%g4001040073%_))))) (let () (declare (not safe)) - (_%g3994740010%_))))))) - (_%__match4145041451%_ - (lambda (_%e3996640112%_ - _%hd3996740116%_ - _%tl3996840119%_ - _%e3996940122%_ - _%hd3997040126%_ - _%tl3997140129%_ - _%e3997240132%_ - _%hd3997340136%_ - _%tl3997440139%_ - _%__splice4139041391%_ - _%target3997540142%_ - _%tl3997740145%_) - (letrec ((_%loop3997840148%_ - (lambda (_%hd3997640152%_ _%arg3998240155%_) - (if (gx#stx-pair? _%hd3997640152%_) - (let ((_%e3997940158%_ - (gx#syntax-e _%hd3997640152%_))) - (let ((_%lp-tl3998140165%_ + (_%g4001040073%_))))))) + (_%__match4151341514%_ + (lambda (_%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_ + _%e4003540195%_ + _%hd4003640199%_ + _%tl4003740202%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (letrec ((_%loop4004140211%_ + (lambda (_%hd4003940215%_ _%arg4004540218%_) + (if (gx#stx-pair? _%hd4003940215%_) + (let ((_%e4004240221%_ + (gx#syntax-e _%hd4003940215%_))) + (let ((_%lp-tl4004440228%_ (let () (declare (not safe)) - (##cdr _%e3997940158%_))) - (_%lp-hd3998040162%_ + (##cdr _%e4004240221%_))) + (_%lp-hd4004340225%_ (let () (declare (not safe)) - (##car _%e3997940158%_)))) - (_%loop3997840148%_ - _%lp-tl3998140165%_ - (cons _%lp-hd3998040162%_ - _%arg3998240155%_)))) - (let ((_%arg3998340168%_ - (reverse _%arg3998240155%_))) - (if (gx#stx-pair? _%tl3997140129%_) - (let ((_%e3998440172%_ + (##car _%e4004240221%_)))) + (_%loop4004140211%_ + _%lp-tl4004440228%_ + (cons _%lp-hd4004340225%_ + _%arg4004540218%_)))) + (let ((_%arg4004640231%_ + (reverse _%arg4004540218%_))) + (if (gx#stx-pair? _%tl4003440192%_) + (let ((_%e4004740235%_ (gx#syntax-e - _%tl3997140129%_))) - (let ((_%tl3998640179%_ + _%tl4003440192%_))) + (let ((_%tl4004940242%_ (let () (declare (not safe)) - (##cdr _%e3998440172%_))) - (_%hd3998540176%_ + (##cdr _%e4004740235%_))) + (_%hd4004840239%_ (let () (declare (not safe)) - (##car _%e3998440172%_)))) + (##car _%e4004740235%_)))) (if (gx#stx-null? - _%tl3998640179%_) - (let ((_%L40182%_ - _%hd3998540176%_) - (_%L40184%_ - _%arg3998340168%_) - (_%L40185%_ - _%hd3997340136%_)) + _%tl4004940242%_) + (let ((_%L40245%_ + _%hd4004840239%_) + (_%L40247%_ + _%arg4004640231%_) + (_%L40248%_ + _%hd4003640199%_)) (if (gx#identifier? - _%L40185%_) - (_%__kont4138841389%_ - _%L40182%_ - _%L40184%_ - _%L40185%_) - (_%__match4146241463%_ - _%e3996640112%_ - _%hd3996740116%_ - _%tl3996840119%_ - _%e3996940122%_ - _%hd3997040126%_ - _%tl3997140129%_))) - (_%__match4146241463%_ - _%e3996640112%_ - _%hd3996740116%_ - _%tl3996840119%_ - _%e3996940122%_ - _%hd3997040126%_ - _%tl3997140129%_)))) - (_%__match4146241463%_ - _%e3996640112%_ - _%hd3996740116%_ - _%tl3996840119%_ - _%e3996940122%_ - _%hd3997040126%_ - _%tl3997140129%_))))))) - (_%loop3997840148%_ _%target3997540142%_ '()))))) - (if (gx#stx-pair? _%__stx4138341384%_) - (let ((_%e3995140253%_ (gx#syntax-e _%__stx4138341384%_))) - (let ((_%tl3995340260%_ - (let () (declare (not safe)) (##cdr _%e3995140253%_))) - (_%hd3995240257%_ + _%L40248%_) + (_%__kont4145141452%_ + _%L40245%_ + _%L40247%_ + _%L40248%_) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_))) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_)))) + (_%__match4152541526%_ + _%e4002940175%_ + _%hd4003040179%_ + _%tl4003140182%_ + _%e4003240185%_ + _%hd4003340189%_ + _%tl4003440192%_))))))) + (_%loop4004140211%_ _%target4003840205%_ '()))))) + (if (gx#stx-pair? _%__stx4144641447%_) + (let ((_%e4001440316%_ (gx#syntax-e _%__stx4144641447%_))) + (let ((_%tl4001640323%_ + (let () (declare (not safe)) (##cdr _%e4001440316%_))) + (_%hd4001540320%_ (let () (declare (not safe)) - (##car _%e3995140253%_)))) - (if (gx#stx-pair? _%tl3995340260%_) - (let ((_%e3995440263%_ (gx#syntax-e _%tl3995340260%_))) - (let ((_%tl3995640270%_ + (##car _%e4001440316%_)))) + (if (gx#stx-pair? _%tl4001640323%_) + (let ((_%e4001740326%_ (gx#syntax-e _%tl4001640323%_))) + (let ((_%tl4001940333%_ (let () (declare (not safe)) - (##cdr _%e3995440263%_))) - (_%hd3995540267%_ + (##cdr _%e4001740326%_))) + (_%hd4001840330%_ (let () (declare (not safe)) - (##car _%e3995440263%_)))) - (if (gx#stx-pair? _%hd3995540267%_) - (let ((_%e3995740273%_ - (gx#syntax-e _%hd3995540267%_))) - (let ((_%tl3995940280%_ + (##car _%e4001740326%_)))) + (if (gx#stx-pair? _%hd4001840330%_) + (let ((_%e4002040336%_ + (gx#syntax-e _%hd4001840330%_))) + (let ((_%tl4002240343%_ (let () (declare (not safe)) - (##cdr _%e3995740273%_))) - (_%hd3995840277%_ + (##cdr _%e4002040336%_))) + (_%hd4002140340%_ (let () (declare (not safe)) - (##car _%e3995740273%_)))) - (if (gx#stx-pair? _%tl3995640270%_) - (let ((_%e3996040283%_ - (gx#syntax-e _%tl3995640270%_))) - (let ((_%tl3996240290%_ + (##car _%e4002040336%_)))) + (if (gx#stx-pair? _%tl4001940333%_) + (let ((_%e4002340346%_ + (gx#syntax-e _%tl4001940333%_))) + (let ((_%tl4002540353%_ (let () (declare (not safe)) - (##cdr _%e3996040283%_))) - (_%hd3996140287%_ + (##cdr _%e4002340346%_))) + (_%hd4002440350%_ (let () (declare (not safe)) - (##car _%e3996040283%_)))) - (if (gx#stx-null? _%tl3996240290%_) + (##car _%e4002340346%_)))) + (if (gx#stx-null? _%tl4002540353%_) (if (|gerbil/core/more-sugar[1]#syntax-local-setf-macro?| (gx#datum->syntax '#f 'setfid)) - (let ((_%L40293%_ - _%hd3996140287%_) - (_%L40295%_ - _%hd3995840277%_)) - (_%__kont4138641387%_ - _%L40293%_ - _%L40295%_)) + (let ((_%L40356%_ + _%hd4002440350%_) + (_%L40358%_ + _%hd4002140340%_)) + (_%__kont4144941450%_ + _%L40356%_ + _%L40358%_)) (if (gx#stx-pair/null? - _%tl3995940280%_) - (let ((_%__splice4139041391%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3995940280%_ + _%tl4002240343%_ '0))) - (let ((_%tl3997740145%_ + (let ((_%tl4004040208%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice4139041391%_ '1))) - (_%target3997540142%_ + (##vector-ref _%__splice4145341454%_ '1))) + (_%target4003840205%_ (let () (declare (not safe)) - (##vector-ref _%__splice4139041391%_ '0)))) - (if (gx#stx-null? _%tl3997740145%_) - (_%__match4145041451%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_ - _%e3995740273%_ - _%hd3995840277%_ - _%tl3995940280%_ - _%__splice4139041391%_ - _%target3997540142%_ - _%tl3997740145%_) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_)))) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_))) + (##vector-ref _%__splice4145341454%_ '0)))) + (if (gx#stx-null? _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl3995940280%_) - (let ((_%__splice4139041391%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3995940280%_ + _%tl4002240343%_ '0))) - (let ((_%tl3997740145%_ + (let ((_%tl4004040208%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice4139041391%_ '1))) - (_%target3997540142%_ + (##vector-ref _%__splice4145341454%_ '1))) + (_%target4003840205%_ (let () (declare (not safe)) - (##vector-ref _%__splice4139041391%_ '0)))) - (if (gx#stx-null? _%tl3997740145%_) - (_%__match4145041451%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_ - _%e3995740273%_ - _%hd3995840277%_ - _%tl3995940280%_ - _%__splice4139041391%_ - _%target3997540142%_ - _%tl3997740145%_) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_)))) + (##vector-ref _%__splice4145341454%_ '0)))) + (if (gx#stx-null? _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_))))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))))) (if (gx#stx-pair/null? - _%tl3995940280%_) - (let ((_%__splice4139041391%_ + _%tl4002240343%_) + (let ((_%__splice4145341454%_ (gx#syntax-split-splice - _%tl3995940280%_ + _%tl4002240343%_ '0))) - (let ((_%tl3997740145%_ + (let ((_%tl4004040208%_ (let () (declare (not safe)) (##vector-ref - _%__splice4139041391%_ + _%__splice4145341454%_ '1))) - (_%target3997540142%_ + (_%target4003840205%_ (let () (declare (not safe)) (##vector-ref - _%__splice4139041391%_ + _%__splice4145341454%_ '0)))) (if (gx#stx-null? - _%tl3997740145%_) - (_%__match4145041451%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_ - _%e3995740273%_ - _%hd3995840277%_ - _%tl3995940280%_ - _%__splice4139041391%_ - _%target3997540142%_ - _%tl3997740145%_) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_)))) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_))))) - (_%__match4146241463%_ - _%e3995140253%_ - _%hd3995240257%_ - _%tl3995340260%_ - _%e3995440263%_ - _%hd3995540267%_ - _%tl3995640270%_)))) - (let () (declare (not safe)) (_%g3994740010%_))))) - (let () (declare (not safe)) (_%g3994740010%_)))))))) + _%tl4004040208%_) + (_%__match4151341514%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_ + _%e4002040336%_ + _%hd4002140340%_ + _%tl4002240343%_ + _%__splice4145341454%_ + _%target4003840205%_ + _%tl4004040208%_) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_))))) + (_%__match4152541526%_ + _%e4001440316%_ + _%hd4001540320%_ + _%tl4001640323%_ + _%e4001740326%_ + _%hd4001840330%_ + _%tl4001940333%_)))) + (let () (declare (not safe)) (_%g4001040073%_))))) + (let () (declare (not safe)) (_%g4001040073%_)))))))) (define |gerbil/core/more-sugar[:0:]#set!| - (lambda (_%stx40331%_) - (|gerbil/core/more-sugar[1]#expand-set!| _%stx40331%_))) + (lambda (_%stx40394%_) + (|gerbil/core/more-sugar[1]#expand-set!| _%stx40394%_))) (define |gerbil/core/more-sugar[:0:]#values-set!| - (lambda (_%stx40334%_) - (let* ((_%g4033740361%_ - (lambda (_%g4033840357%_) + (lambda (_%stx40397%_) + (let* ((_%g4040040424%_ + (lambda (_%g4040140420%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4033840357%_))) - (_%g4033640539%_ - (lambda (_%g4033840365%_) - (if (gx#stx-pair? _%g4033840365%_) - (let ((_%e4034140368%_ (gx#syntax-e _%g4033840365%_))) - (let ((_%hd4034240372%_ + _%g4040140420%_))) + (_%g4039940602%_ + (lambda (_%g4040140428%_) + (if (gx#stx-pair? _%g4040140428%_) + (let ((_%e4040440431%_ (gx#syntax-e _%g4040140428%_))) + (let ((_%hd4040540435%_ (let () (declare (not safe)) - (##car _%e4034140368%_))) - (_%tl4034340375%_ + (##car _%e4040440431%_))) + (_%tl4040640438%_ (let () (declare (not safe)) - (##cdr _%e4034140368%_)))) - (if (gx#stx-pair/null? _%tl4034340375%_) - (if (let ((__tmp41546 - (gx#stx-length _%tl4034340375%_))) + (##cdr _%e4040440431%_)))) + (if (gx#stx-pair/null? _%tl4040640438%_) + (if (let ((__tmp41609 + (gx#stx-length _%tl4040640438%_))) (declare (not safe)) - (##fx>= __tmp41546 '1)) - (let ((_g41547_ + (##fx>= __tmp41609 '1)) + (let ((_g41610_ (gx#syntax-split-splice - _%tl4034340375%_ + _%tl4040640438%_ '1))) (begin - (let ((_g41548_ + (let ((_g41611_ (let () (declare (not safe)) - (if (##values? _g41547_) - (##vector-length _g41547_) + (if (##values? _g41610_) + (##values-length _g41610_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41548_ 2))) + (##fx= _g41611_ 2))) (error "Context expects 2 values" - _g41548_))) - (let ((_%target4034440378%_ + _g41611_))) + (let ((_%target4040740441%_ (let () (declare (not safe)) - (##vector-ref _g41547_ 0))) - (_%tl4034640381%_ + (##values-ref _g41610_ 0))) + (_%tl4040940444%_ (let () (declare (not safe)) - (##vector-ref _g41547_ 1)))) - (if (gx#stx-pair? _%tl4034640381%_) - (let ((_%e4035340384%_ + (##values-ref _g41610_ 1)))) + (if (gx#stx-pair? _%tl4040940444%_) + (let ((_%e4041640447%_ (gx#syntax-e - _%tl4034640381%_))) - (let ((_%hd4035440388%_ + _%tl4040940444%_))) + (let ((_%hd4041740451%_ (let () (declare (not safe)) - (##car _%e4035340384%_))) - (_%tl4035540391%_ + (##car _%e4041640447%_))) + (_%tl4041840454%_ (let () (declare (not safe)) - (##cdr _%e4035340384%_)))) + (##cdr _%e4041640447%_)))) (if (gx#stx-null? - _%tl4035540391%_) - (letrec ((_%loop4034740394%_ - (lambda (_%hd4034540398%_ + _%tl4041840454%_) + (letrec ((_%loop4041040457%_ + (lambda (_%hd4040840461%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tgt4035140401%_) - (if (gx#stx-pair? _%hd4034540398%_) - (let ((_%e4034840404%_ - (gx#syntax-e _%hd4034540398%_))) - (let ((_%lp-hd4034940408%_ + _%tgt4041440464%_) + (if (gx#stx-pair? _%hd4040840461%_) + (let ((_%e4041140467%_ + (gx#syntax-e _%hd4040840461%_))) + (let ((_%lp-hd4041240471%_ (let () (declare (not safe)) - (##car _%e4034840404%_))) - (_%lp-tl4035040411%_ + (##car _%e4041140467%_))) + (_%lp-tl4041340474%_ (let () (declare (not safe)) - (##cdr _%e4034840404%_)))) - (_%loop4034740394%_ - _%lp-tl4035040411%_ - (cons _%lp-hd4034940408%_ _%tgt4035140401%_)))) - (let ((_%tgt4035240414%_ - (reverse _%tgt4035140401%_))) - ((lambda (_%L40418%_ _%L40420%_) - (let* ((_%g4043840455%_ - (lambda (_%g4043940451%_) + (##cdr _%e4041140467%_)))) + (_%loop4041040457%_ + _%lp-tl4041340474%_ + (cons _%lp-hd4041240471%_ _%tgt4041440464%_)))) + (let ((_%tgt4041540477%_ + (reverse _%tgt4041440464%_))) + ((lambda (_%L40481%_ _%L40483%_) + (let* ((_%g4050140518%_ + (lambda (_%g4050240514%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4043940451%_))) - (_%g4043740527%_ - (lambda (_%g4043940459%_) + _%g4050240514%_))) + (_%g4050040590%_ + (lambda (_%g4050240522%_) (if (gx#stx-pair/null? - _%g4043940459%_) - (let ((_g41549_ + _%g4050240522%_) + (let ((_g41612_ (gx#syntax-split-splice - _%g4043940459%_ + _%g4050240522%_ '0))) (begin - (let ((_g41550_ + (let ((_g41613_ (let () (declare (not safe)) (if (##values? - _g41549_) - (##vector-length - _g41549_) + _g41612_) + (##values-length + _g41612_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41550_ + (##fx= _g41613_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41550_))) + (error "Context expects 2 values" _g41613_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4044140462%_ + (let ((_%target4050440525%_ (let () (declare (not safe)) - (##vector-ref - _g41549_ + (##values-ref + _g41612_ 0))) - (_%tl4044340465%_ + (_%tl4050640528%_ (let () (declare (not safe)) - (##vector-ref - _g41549_ + (##values-ref + _g41612_ 1)))) (if (gx#stx-null? - _%tl4044340465%_) - (letrec ((_%loop4044440468%_ + _%tl4050640528%_) + (letrec ((_%loop4050740531%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd4044240472%_ _%$e4044840475%_) - (if (gx#stx-pair? _%hd4044240472%_) - (let ((_%e4044540478%_ - (gx#syntax-e _%hd4044240472%_))) - (let ((_%lp-hd4044640482%_ + (lambda (_%hd4050540535%_ _%$e4051140538%_) + (if (gx#stx-pair? _%hd4050540535%_) + (let ((_%e4050840541%_ + (gx#syntax-e _%hd4050540535%_))) + (let ((_%lp-hd4050940545%_ (let () (declare (not safe)) - (##car _%e4044540478%_))) - (_%lp-tl4044740485%_ + (##car _%e4050840541%_))) + (_%lp-tl4051040548%_ (let () (declare (not safe)) - (##cdr _%e4044540478%_)))) - (_%loop4044440468%_ - _%lp-tl4044740485%_ - (cons _%lp-hd4044640482%_ - _%$e4044840475%_)))) - (let ((_%$e4044940488%_ - (reverse _%$e4044840475%_))) - ((lambda (_%L40492%_) + (##cdr _%e4050840541%_)))) + (_%loop4050740531%_ + _%lp-tl4051040548%_ + (cons _%lp-hd4050940545%_ + _%$e4051140538%_)))) + (let ((_%$e4051240551%_ + (reverse _%$e4051140538%_))) + ((lambda (_%L40555%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (foldr (lambda (_%g4051040513%_ + (cons (cons (cons (foldr (lambda (_%g4057340576%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4051140516%_) - (cons _%g4051040513%_ _%g4051140516%_)) + _%g4057440579%_) + (cons _%g4057340576%_ _%g4057440579%_)) '() - _%L40492%_) - (cons _%L40418%_ '())) + _%L40555%_) + (cons _%L40481%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L40492%_ - _%L40420%_) - (foldr (lambda (_%g4050740519%_ + _%L40555%_ + _%L40483%_) + (foldr (lambda (_%g4057040582%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4050840522%_ - _%g4050940524%_) + _%g4057140585%_ + _%g4057240587%_) (cons (cons (gx#datum->syntax '#f 'set!) - (cons _%g4050840522%_ - (cons _%g4050740519%_ '()))) - _%g4050940524%_)) + (cons _%g4057140585%_ + (cons _%g4057040582%_ '()))) + _%g4057240587%_)) '() - _%L40492%_ - _%L40420%_))))) + _%L40555%_ + _%L40483%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%$e4044940488%_)))))) - (_%loop4044440468%_ _%target4044140462%_ '())) - (_%g4043840455%_ _%g4043940459%_))))) + _%$e4051240551%_)))))) + (_%loop4050740531%_ _%target4050440525%_ '())) + (_%g4050140518%_ _%g4050240522%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4043840455%_ - _%g4043940459%_))))) - (_%g4043740527%_ + (_%g4050140518%_ + _%g4050240522%_))))) + (_%g4050040590%_ (gx#gentemps - (foldr (lambda (_%g4053040533%_ - _%g4053140536%_) - (cons _%g4053040533%_ - _%g4053140536%_)) + (foldr (lambda (_%g4059340596%_ + _%g4059440599%_) + (cons _%g4059340596%_ + _%g4059440599%_)) '() - _%L40420%_))))) - _%hd4035440388%_ - _%tgt4035240414%_)))))) + _%L40483%_))))) + _%hd4041740451%_ + _%tgt4041540477%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4034740394%_ - _%target4034440378%_ + (_%loop4041040457%_ + _%target4040740441%_ '())) - (_%g4033740361%_ - _%g4033840365%_)))) - (_%g4033740361%_ _%g4033840365%_))))) - (_%g4033740361%_ _%g4033840365%_)) - (_%g4033740361%_ _%g4033840365%_)))) - (_%g4033740361%_ _%g4033840365%_))))) - (_%g4033640539%_ _%stx40334%_)))) + (_%g4040040424%_ + _%g4040140428%_)))) + (_%g4040040424%_ _%g4040140428%_))))) + (_%g4040040424%_ _%g4040140428%_)) + (_%g4040040424%_ _%g4040140428%_)))) + (_%g4040040424%_ _%g4040140428%_))))) + (_%g4039940602%_ _%stx40397%_)))) (define |gerbil/core/more-sugar[:0:]#parameterize| - (lambda (_%stx40545%_) - (let* ((_%__stx4148541486%_ _%stx40545%_) - (_%g4054940607%_ + (lambda (_%stx40608%_) + (let* ((_%__stx4154841549%_ _%stx40608%_) + (_%g4061240670%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx4148541486%_)))) - (let ((_%__kont4148841489%_ - (lambda (_%L40941%_) + _%__stx4154841549%_)))) + (let ((_%__kont4155141552%_ + (lambda (_%L41004%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g4095740960%_ _%g4095840963%_) - (cons _%g4095740960%_ _%g4095840963%_)) + (foldr (lambda (_%g4102041023%_ _%g4102141026%_) + (cons _%g4102041023%_ _%g4102141026%_)) '() - _%L40941%_))))) - (_%__kont4149241493%_ - (lambda (_%L40718%_ _%L40720%_ _%L40721%_) - (let* ((_%g4074440752%_ - (lambda (_%g4074540748%_) + _%L41004%_))))) + (_%__kont4155541556%_ + (lambda (_%L40781%_ _%L40783%_ _%L40784%_) + (let* ((_%g4080740815%_ + (lambda (_%g4080840811%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4074540748%_))) - (_%g4074340872%_ - (lambda (_%g4074540756%_) - ((lambda (_%L40759%_) - (let* ((_%g4077140788%_ - (lambda (_%g4077240784%_) + _%g4080840811%_))) + (_%g4080640935%_ + (lambda (_%g4080840819%_) + ((lambda (_%L40822%_) + (let* ((_%g4083440851%_ + (lambda (_%g4083540847%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4077240784%_))) - (_%g4077040852%_ - (lambda (_%g4077240792%_) - (if (gx#stx-pair/null? _%g4077240792%_) - (let ((_g41551_ + _%g4083540847%_))) + (_%g4083340915%_ + (lambda (_%g4083540855%_) + (if (gx#stx-pair/null? _%g4083540855%_) + (let ((_g41614_ (gx#syntax-split-splice - _%g4077240792%_ + _%g4083540855%_ '0))) (begin - (let ((_g41552_ + (let ((_g41615_ (let () (declare (not safe)) (if (##values? - _g41551_) - (##vector-length - _g41551_) + _g41614_) + (##values-length + _g41614_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41552_ + (##fx= _g41615_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41552_))) + (error "Context expects 2 values" _g41615_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4077440795%_ + (let ((_%target4083740858%_ (let () (declare (not safe)) - (##vector-ref - _g41551_ + (##values-ref + _g41614_ 0))) - (_%tl4077640798%_ + (_%tl4083940861%_ (let () (declare (not safe)) - (##vector-ref - _g41551_ + (##values-ref + _g41614_ 1)))) (if (gx#stx-null? - _%tl4077640798%_) - (letrec ((_%loop4077740801%_ - (lambda (_%hd4077540805%_ + _%tl4083940861%_) + (letrec ((_%loop4084040864%_ + (lambda (_%hd4083840868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%arg4078140808%_) - (if (gx#stx-pair? _%hd4077540805%_) - (let ((_%e4077840811%_ - (gx#syntax-e _%hd4077540805%_))) - (let ((_%lp-hd4077940815%_ + _%arg4084440871%_) + (if (gx#stx-pair? _%hd4083840868%_) + (let ((_%e4084140874%_ + (gx#syntax-e _%hd4083840868%_))) + (let ((_%lp-hd4084240878%_ (let () (declare (not safe)) - (##car _%e4077840811%_))) - (_%lp-tl4078040818%_ + (##car _%e4084140874%_))) + (_%lp-tl4084340881%_ (let () (declare (not safe)) - (##cdr _%e4077840811%_)))) - (_%loop4077740801%_ - _%lp-tl4078040818%_ - (cons _%lp-hd4077940815%_ - _%arg4078140808%_)))) - (let ((_%arg4078240821%_ - (reverse _%arg4078140808%_))) - ((lambda (_%L40825%_) + (##cdr _%e4084140874%_)))) + (_%loop4084040864%_ + _%lp-tl4084340881%_ + (cons _%lp-hd4084240878%_ + _%arg4084440871%_)))) + (let ((_%arg4084540884%_ + (reverse _%arg4084440871%_))) + ((lambda (_%L40888%_) (cons (gx#datum->syntax '#f 'call-with-parameters) - (cons _%L40759%_ - (foldr (lambda (_%g4084340846%_ - _%g4084440849%_) - (cons _%g4084340846%_ - _%g4084440849%_)) + (cons _%L40822%_ + (foldr (lambda (_%g4090640909%_ + _%g4090740912%_) + (cons _%g4090640909%_ + _%g4090740912%_)) '() - _%L40825%_)))) - _%arg4078240821%_)))))) - (_%loop4077740801%_ _%target4077440795%_ '())) - (_%g4077140788%_ _%g4077240792%_))))) + _%L40888%_)))) + _%arg4084540884%_)))))) + (_%loop4084040864%_ _%target4083740858%_ '())) + (_%g4083440851%_ _%g4083540855%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4077140788%_ - _%g4077240792%_))))) - (_%g4077040852%_ + (_%g4083440851%_ + _%g4083540855%_))))) + (_%g4083340915%_ (foldr cons* '() (gx#syntax->list - (foldr (lambda (_%g4085540858%_ - _%g4085640861%_) - (cons _%g4085540858%_ - _%g4085640861%_)) + (foldr (lambda (_%g4091840921%_ + _%g4091940924%_) + (cons _%g4091840921%_ + _%g4091940924%_)) '() - _%L40721%_)) + _%L40784%_)) (gx#syntax->list - (foldr (lambda (_%g4086340866%_ - _%g4086440869%_) - (cons _%g4086340866%_ - _%g4086440869%_)) + (foldr (lambda (_%g4092640929%_ + _%g4092740932%_) + (cons _%g4092640929%_ + _%g4092740932%_)) '() - _%L40720%_)))))) - _%g4074540756%_)))) - (_%g4074340872%_ + _%L40783%_)))))) + _%g4080840819%_)))) + (_%g4080640935%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (foldr (lambda (_%g4087540878%_ - _%g4087640881%_) - (cons _%g4087540878%_ - _%g4087640881%_)) + (foldr (lambda (_%g4093840941%_ + _%g4093940944%_) + (cons _%g4093840941%_ + _%g4093940944%_)) '() - _%L40718%_))) - (gx#stx-source _%stx40545%_))))))) - (let* ((_%__match4154041541%_ - (lambda (_%e4057040614%_ - _%hd4057140618%_ - _%tl4057240621%_ - _%e4057340624%_ - _%hd4057440628%_ - _%tl4057540631%_ - _%__splice4149441495%_ - _%target4057640634%_ - _%tl4057840637%_) - (letrec ((_%loop4057940640%_ - (lambda (_%hd4057740644%_ - _%expr4058340647%_ - _%param4058440649%_) - (if (gx#stx-pair? _%hd4057740644%_) - (let ((_%e4058040652%_ - (gx#syntax-e _%hd4057740644%_))) - (let ((_%lp-tl4058240659%_ + _%L40781%_))) + (gx#stx-source _%stx40608%_))))))) + (let* ((_%__match4160341604%_ + (lambda (_%e4063340677%_ + _%hd4063440681%_ + _%tl4063540684%_ + _%e4063640687%_ + _%hd4063740691%_ + _%tl4063840694%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) + (letrec ((_%loop4064240703%_ + (lambda (_%hd4064040707%_ + _%expr4064640710%_ + _%param4064740712%_) + (if (gx#stx-pair? _%hd4064040707%_) + (let ((_%e4064340715%_ + (gx#syntax-e _%hd4064040707%_))) + (let ((_%lp-tl4064540722%_ (let () (declare (not safe)) - (##cdr _%e4058040652%_))) - (_%lp-hd4058140656%_ + (##cdr _%e4064340715%_))) + (_%lp-hd4064440719%_ (let () (declare (not safe)) - (##car _%e4058040652%_)))) - (if (gx#stx-pair? _%lp-hd4058140656%_) - (let ((_%e4059640662%_ + (##car _%e4064340715%_)))) + (if (gx#stx-pair? _%lp-hd4064440719%_) + (let ((_%e4065940725%_ (gx#syntax-e - _%lp-hd4058140656%_))) - (let ((_%tl4059840669%_ + _%lp-hd4064440719%_))) + (let ((_%tl4066140732%_ (let () (declare (not safe)) - (##cdr _%e4059640662%_))) - (_%hd4059740666%_ + (##cdr _%e4065940725%_))) + (_%hd4066040729%_ (let () (declare (not safe)) - (##car _%e4059640662%_)))) + (##car _%e4065940725%_)))) (if (gx#stx-pair? - _%tl4059840669%_) - (let ((_%e4059940672%_ + _%tl4066140732%_) + (let ((_%e4066240735%_ (gx#syntax-e - _%tl4059840669%_))) - (let ((_%tl4060140679%_ + _%tl4066140732%_))) + (let ((_%tl4066440742%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e4059940672%_))) - (_%hd4060040676%_ - (let () (declare (not safe)) (##car _%e4059940672%_)))) - (if (gx#stx-null? _%tl4060140679%_) - (_%loop4057940640%_ - _%lp-tl4058240659%_ - (cons _%hd4060040676%_ _%expr4058340647%_) - (cons _%hd4059740666%_ _%param4058440649%_)) - (let () (declare (not safe)) (_%g4054940607%_))))) + (##cdr _%e4066240735%_))) + (_%hd4066340739%_ + (let () (declare (not safe)) (##car _%e4066240735%_)))) + (if (gx#stx-null? _%tl4066440742%_) + (_%loop4064240703%_ + _%lp-tl4064540722%_ + (cons _%hd4066340739%_ _%expr4064640710%_) + (cons _%hd4066040729%_ _%param4064740712%_)) + (let () (declare (not safe)) (_%g4061240670%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g4054940607%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4054940607%_))))) - (let ((_%param4058640685%_ - (reverse _%param4058440649%_)) - (_%expr4058540682%_ - (reverse _%expr4058340647%_))) - (if (gx#stx-pair/null? _%tl4057540631%_) - (let ((_%__splice4149641497%_ + (_%g4061240670%_))))) + (let ((_%param4064940748%_ + (reverse _%param4064740712%_)) + (_%expr4064840745%_ + (reverse _%expr4064640710%_))) + (if (gx#stx-pair/null? _%tl4063840694%_) + (let ((_%__splice4155941560%_ (gx#syntax-split-splice - _%tl4057540631%_ + _%tl4063840694%_ '0))) - (let ((_%tl4058940691%_ + (let ((_%tl4065240754%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149641497%_ + _%__splice4155941560%_ '1))) - (_%target4058740688%_ + (_%target4065040751%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149641497%_ + _%__splice4155941560%_ '0)))) (if (gx#stx-null? - _%tl4058940691%_) - (letrec ((_%loop4059040694%_ - (lambda (_%hd4058840698%_ + _%tl4065240754%_) + (letrec ((_%loop4065340757%_ + (lambda (_%hd4065140761%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4059440701%_) - (if (gx#stx-pair? _%hd4058840698%_) - (let ((_%e4059140704%_ - (gx#syntax-e _%hd4058840698%_))) - (let ((_%lp-tl4059340711%_ + _%body4065740764%_) + (if (gx#stx-pair? _%hd4065140761%_) + (let ((_%e4065440767%_ + (gx#syntax-e _%hd4065140761%_))) + (let ((_%lp-tl4065640774%_ (let () (declare (not safe)) - (##cdr _%e4059140704%_))) - (_%lp-hd4059240708%_ + (##cdr _%e4065440767%_))) + (_%lp-hd4065540771%_ (let () (declare (not safe)) - (##car _%e4059140704%_)))) - (_%loop4059040694%_ - _%lp-tl4059340711%_ - (cons _%lp-hd4059240708%_ _%body4059440701%_)))) - (let ((_%body4059540714%_ - (reverse _%body4059440701%_))) - (_%__kont4149241493%_ - _%body4059540714%_ - _%expr4058540682%_ - _%param4058640685%_)))))) + (##car _%e4065440767%_)))) + (_%loop4065340757%_ + _%lp-tl4065640774%_ + (cons _%lp-hd4065540771%_ _%body4065740764%_)))) + (let ((_%body4065840777%_ + (reverse _%body4065740764%_))) + (_%__kont4155541556%_ + _%body4065840777%_ + _%expr4064840745%_ + _%param4064940748%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4059040694%_ - _%target4058740688%_ + (_%loop4065340757%_ + _%target4065040751%_ '())) (let () (declare (not safe)) - (_%g4054940607%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4054940607%_)))))))) - (_%loop4057940640%_ _%target4057640634%_ '() '())))) - (_%__match4152041521%_ - (lambda (_%e4055240891%_ - _%hd4055340895%_ - _%tl4055440898%_ - _%e4055540901%_ - _%hd4055640905%_ - _%tl4055740908%_ - _%__splice4149041491%_ - _%target4055840911%_ - _%tl4056040914%_) - (letrec ((_%loop4056140917%_ - (lambda (_%hd4055940921%_ _%body4056540924%_) - (if (gx#stx-pair? _%hd4055940921%_) - (let ((_%e4056240927%_ - (gx#syntax-e _%hd4055940921%_))) - (let ((_%lp-tl4056440934%_ + (_%g4061240670%_)))))))) + (_%loop4064240703%_ _%target4063940697%_ '() '())))) + (_%__match4158341584%_ + (lambda (_%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155341554%_ + _%target4062140974%_ + _%tl4062340977%_) + (letrec ((_%loop4062440980%_ + (lambda (_%hd4062240984%_ _%body4062840987%_) + (if (gx#stx-pair? _%hd4062240984%_) + (let ((_%e4062540990%_ + (gx#syntax-e _%hd4062240984%_))) + (let ((_%lp-tl4062740997%_ (let () (declare (not safe)) - (##cdr _%e4056240927%_))) - (_%lp-hd4056340931%_ + (##cdr _%e4062540990%_))) + (_%lp-hd4062640994%_ (let () (declare (not safe)) - (##car _%e4056240927%_)))) - (_%loop4056140917%_ - _%lp-tl4056440934%_ - (cons _%lp-hd4056340931%_ - _%body4056540924%_)))) - (let ((_%body4056640937%_ - (reverse _%body4056540924%_))) - (_%__kont4148841489%_ - _%body4056640937%_)))))) - (_%loop4056140917%_ _%target4055840911%_ '()))))) - (if (gx#stx-pair? _%__stx4148541486%_) - (let ((_%e4055240891%_ (gx#syntax-e _%__stx4148541486%_))) - (let ((_%tl4055440898%_ - (let () (declare (not safe)) (##cdr _%e4055240891%_))) - (_%hd4055340895%_ + (##car _%e4062540990%_)))) + (_%loop4062440980%_ + _%lp-tl4062740997%_ + (cons _%lp-hd4062640994%_ + _%body4062840987%_)))) + (let ((_%body4062941000%_ + (reverse _%body4062840987%_))) + (_%__kont4155141552%_ + _%body4062941000%_)))))) + (_%loop4062440980%_ _%target4062140974%_ '()))))) + (if (gx#stx-pair? _%__stx4154841549%_) + (let ((_%e4061540954%_ (gx#syntax-e _%__stx4154841549%_))) + (let ((_%tl4061740961%_ + (let () (declare (not safe)) (##cdr _%e4061540954%_))) + (_%hd4061640958%_ (let () (declare (not safe)) - (##car _%e4055240891%_)))) - (if (gx#stx-pair? _%tl4055440898%_) - (let ((_%e4055540901%_ (gx#syntax-e _%tl4055440898%_))) - (let ((_%tl4055740908%_ + (##car _%e4061540954%_)))) + (if (gx#stx-pair? _%tl4061740961%_) + (let ((_%e4061840964%_ (gx#syntax-e _%tl4061740961%_))) + (let ((_%tl4062040971%_ (let () (declare (not safe)) - (##cdr _%e4055540901%_))) - (_%hd4055640905%_ + (##cdr _%e4061840964%_))) + (_%hd4061940968%_ (let () (declare (not safe)) - (##car _%e4055540901%_)))) - (if (gx#stx-null? _%hd4055640905%_) - (if (gx#stx-pair/null? _%tl4055740908%_) - (let ((_%__splice4149041491%_ + (##car _%e4061840964%_)))) + (if (gx#stx-null? _%hd4061940968%_) + (if (gx#stx-pair/null? _%tl4062040971%_) + (let ((_%__splice4155341554%_ (gx#syntax-split-splice - _%tl4055740908%_ + _%tl4062040971%_ '0))) - (let ((_%tl4056040914%_ + (let ((_%tl4062340977%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149041491%_ + _%__splice4155341554%_ '1))) - (_%target4055840911%_ + (_%target4062140974%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149041491%_ + _%__splice4155341554%_ '0)))) - (if (gx#stx-null? _%tl4056040914%_) - (_%__match4152041521%_ - _%e4055240891%_ - _%hd4055340895%_ - _%tl4055440898%_ - _%e4055540901%_ - _%hd4055640905%_ - _%tl4055740908%_ - _%__splice4149041491%_ - _%target4055840911%_ - _%tl4056040914%_) + (if (gx#stx-null? _%tl4062340977%_) + (_%__match4158341584%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155341554%_ + _%target4062140974%_ + _%tl4062340977%_) (if (gx#stx-pair/null? - _%hd4055640905%_) - (let ((_%__splice4149441495%_ + _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4055640905%_ + _%hd4061940968%_ '0))) - (let ((_%tl4057840637%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '1))) - (_%target4057640634%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '0)))) (if (gx#stx-null? - _%tl4057840637%_) - (_%__match4154041541%_ - _%e4055240891%_ - _%hd4055340895%_ - _%tl4055440898%_ - _%e4055540901%_ - _%hd4055640905%_ - _%tl4055740908%_ - _%__splice4149441495%_ - _%target4057640634%_ - _%tl4057840637%_) + _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4054940607%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4054940607%_)))))) - (if (gx#stx-pair/null? _%hd4055640905%_) - (let ((_%__splice4149441495%_ + (_%g4061240670%_)))))) + (if (gx#stx-pair/null? _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4055640905%_ + _%hd4061940968%_ '0))) - (let ((_%tl4057840637%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '1))) - (_%target4057640634%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '0)))) - (if (gx#stx-null? _%tl4057840637%_) - (_%__match4154041541%_ - _%e4055240891%_ - _%hd4055340895%_ - _%tl4055440898%_ - _%e4055540901%_ - _%hd4055640905%_ - _%tl4055740908%_ - _%__splice4149441495%_ - _%target4057640634%_ - _%tl4057840637%_) + (if (gx#stx-null? _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4054940607%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4054940607%_)))) - (if (gx#stx-pair/null? _%hd4055640905%_) - (let ((_%__splice4149441495%_ + (_%g4061240670%_)))) + (if (gx#stx-pair/null? _%hd4061940968%_) + (let ((_%__splice4155741558%_ (gx#syntax-split-splice - _%hd4055640905%_ + _%hd4061940968%_ '0))) - (let ((_%tl4057840637%_ + (let ((_%tl4064140700%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '1))) - (_%target4057640634%_ + (_%target4063940697%_ (let () (declare (not safe)) (##vector-ref - _%__splice4149441495%_ + _%__splice4155741558%_ '0)))) - (if (gx#stx-null? _%tl4057840637%_) - (_%__match4154041541%_ - _%e4055240891%_ - _%hd4055340895%_ - _%tl4055440898%_ - _%e4055540901%_ - _%hd4055640905%_ - _%tl4055740908%_ - _%__splice4149441495%_ - _%target4057640634%_ - _%tl4057840637%_) + (if (gx#stx-null? _%tl4064140700%_) + (_%__match4160341604%_ + _%e4061540954%_ + _%hd4061640958%_ + _%tl4061740961%_ + _%e4061840964%_ + _%hd4061940968%_ + _%tl4062040971%_ + _%__splice4155741558%_ + _%target4063940697%_ + _%tl4064140700%_) (let () (declare (not safe)) - (_%g4054940607%_))))) + (_%g4061240670%_))))) (let () (declare (not safe)) - (_%g4054940607%_)))))) - (let () (declare (not safe)) (_%g4054940607%_))))) - (let () (declare (not safe)) (_%g4054940607%_)))))))) + (_%g4061240670%_)))))) + (let () (declare (not safe)) (_%g4061240670%_))))) + (let () (declare (not safe)) (_%g4061240670%_)))))))) (define |gerbil/core/more-sugar[:0:]#let/cc| - (lambda (_%$stx40974%_) - (let* ((_%g4097841002%_ - (lambda (_%g4097940998%_) + (lambda (_%$stx41037%_) + (let* ((_%g4104141065%_ + (lambda (_%g4104241061%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4097940998%_))) - (_%g4097741087%_ - (lambda (_%g4097941006%_) - (if (gx#stx-pair? _%g4097941006%_) - (let ((_%e4098241009%_ (gx#syntax-e _%g4097941006%_))) - (let ((_%hd4098341013%_ + _%g4104241061%_))) + (_%g4104041150%_ + (lambda (_%g4104241069%_) + (if (gx#stx-pair? _%g4104241069%_) + (let ((_%e4104541072%_ (gx#syntax-e _%g4104241069%_))) + (let ((_%hd4104641076%_ (let () (declare (not safe)) - (##car _%e4098241009%_))) - (_%tl4098441016%_ + (##car _%e4104541072%_))) + (_%tl4104741079%_ (let () (declare (not safe)) - (##cdr _%e4098241009%_)))) - (if (gx#stx-pair? _%tl4098441016%_) - (let ((_%e4098541019%_ - (gx#syntax-e _%tl4098441016%_))) - (let ((_%hd4098641023%_ + (##cdr _%e4104541072%_)))) + (if (gx#stx-pair? _%tl4104741079%_) + (let ((_%e4104841082%_ + (gx#syntax-e _%tl4104741079%_))) + (let ((_%hd4104941086%_ (let () (declare (not safe)) - (##car _%e4098541019%_))) - (_%tl4098741026%_ + (##car _%e4104841082%_))) + (_%tl4105041089%_ (let () (declare (not safe)) - (##cdr _%e4098541019%_)))) - (if (gx#stx-pair/null? _%tl4098741026%_) - (let ((_g41553_ + (##cdr _%e4104841082%_)))) + (if (gx#stx-pair/null? _%tl4105041089%_) + (let ((_g41616_ (gx#syntax-split-splice - _%tl4098741026%_ + _%tl4105041089%_ '0))) (begin - (let ((_g41554_ + (let ((_g41617_ (let () (declare (not safe)) - (if (##values? _g41553_) - (##vector-length _g41553_) + (if (##values? _g41616_) + (##values-length _g41616_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41554_ 2))) + (##fx= _g41617_ 2))) (error "Context expects 2 values" - _g41554_))) - (let ((_%target4098841029%_ + _g41617_))) + (let ((_%target4105141092%_ (let () (declare (not safe)) - (##vector-ref _g41553_ 0))) - (_%tl4099041032%_ + (##values-ref _g41616_ 0))) + (_%tl4105341095%_ (let () (declare (not safe)) - (##vector-ref _g41553_ 1)))) - (if (gx#stx-null? _%tl4099041032%_) - (letrec ((_%loop4099141035%_ - (lambda (_%hd4098941039%_ + (##values-ref _g41616_ 1)))) + (if (gx#stx-null? _%tl4105341095%_) + (letrec ((_%loop4105441098%_ + (lambda (_%hd4105241102%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body4099541042%_) - (if (gx#stx-pair? _%hd4098941039%_) - (let ((_%e4099241045%_ (gx#syntax-e _%hd4098941039%_))) - (let ((_%lp-hd4099341049%_ + _%body4105841105%_) + (if (gx#stx-pair? _%hd4105241102%_) + (let ((_%e4105541108%_ (gx#syntax-e _%hd4105241102%_))) + (let ((_%lp-hd4105641112%_ (let () (declare (not safe)) - (##car _%e4099241045%_))) - (_%lp-tl4099441052%_ + (##car _%e4105541108%_))) + (_%lp-tl4105741115%_ (let () (declare (not safe)) - (##cdr _%e4099241045%_)))) - (_%loop4099141035%_ - _%lp-tl4099441052%_ - (cons _%lp-hd4099341049%_ _%body4099541042%_)))) - (let ((_%body4099641055%_ (reverse _%body4099541042%_))) - ((lambda (_%L41059%_ _%L41061%_) - (if (gx#identifier? _%L41061%_) + (##cdr _%e4105541108%_)))) + (_%loop4105441098%_ + _%lp-tl4105741115%_ + (cons _%lp-hd4105641112%_ _%body4105841105%_)))) + (let ((_%body4105941118%_ (reverse _%body4105841105%_))) + ((lambda (_%L41122%_ _%L41124%_) + (if (gx#identifier? _%L41124%_) (cons (gx#datum->syntax '#f 'call/cc) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L41061%_ '()) - (foldr (lambda (_%g4107841081%_ + (cons (cons _%L41124%_ '()) + (foldr (lambda (_%g4114141144%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g4107941084%_) - (cons _%g4107841081%_ _%g4107941084%_)) + _%g4114241147%_) + (cons _%g4114141144%_ _%g4114241147%_)) '() - _%L41059%_))) + _%L41122%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (_%g4097841002%_ _%g4097941006%_))) - _%body4099641055%_ - _%hd4098641023%_)))))) + (_%g4104141065%_ _%g4104241069%_))) + _%body4105941118%_ + _%hd4104941086%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop4099141035%_ - _%target4098841029%_ + (_%loop4105441098%_ + _%target4105141092%_ '())) - (_%g4097841002%_ - _%g4097941006%_))))) - (_%g4097841002%_ _%g4097941006%_)))) - (_%g4097841002%_ _%g4097941006%_)))) - (_%g4097841002%_ _%g4097941006%_))))) - (_%g4097741087%_ _%$stx40974%_)))) + (_%g4104141065%_ + _%g4104241069%_))))) + (_%g4104141065%_ _%g4104241069%_)))) + (_%g4104141065%_ _%g4104241069%_)))) + (_%g4104141065%_ _%g4104241069%_))))) + (_%g4104041150%_ _%$stx41037%_)))) (define |gerbil/core/more-sugar[:0:]#unwind-protect| - (lambda (_%$stx41092%_) - (let* ((_%g4109641124%_ - (lambda (_%g4109741120%_) + (lambda (_%$stx41155%_) + (let* ((_%g4115941187%_ + (lambda (_%g4116041183%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4109741120%_))) - (_%g4109541223%_ - (lambda (_%g4109741128%_) - (if (gx#stx-pair? _%g4109741128%_) - (let ((_%e4110141131%_ (gx#syntax-e _%g4109741128%_))) - (let ((_%hd4110241135%_ + _%g4116041183%_))) + (_%g4115841286%_ + (lambda (_%g4116041191%_) + (if (gx#stx-pair? _%g4116041191%_) + (let ((_%e4116441194%_ (gx#syntax-e _%g4116041191%_))) + (let ((_%hd4116541198%_ (let () (declare (not safe)) - (##car _%e4110141131%_))) - (_%tl4110341138%_ + (##car _%e4116441194%_))) + (_%tl4116641201%_ (let () (declare (not safe)) - (##cdr _%e4110141131%_)))) - (if (gx#stx-pair? _%tl4110341138%_) - (let ((_%e4110441141%_ - (gx#syntax-e _%tl4110341138%_))) - (let ((_%hd4110541145%_ + (##cdr _%e4116441194%_)))) + (if (gx#stx-pair? _%tl4116641201%_) + (let ((_%e4116741204%_ + (gx#syntax-e _%tl4116641201%_))) + (let ((_%hd4116841208%_ (let () (declare (not safe)) - (##car _%e4110441141%_))) - (_%tl4110641148%_ + (##car _%e4116741204%_))) + (_%tl4116941211%_ (let () (declare (not safe)) - (##cdr _%e4110441141%_)))) - (if (gx#stx-pair? _%tl4110641148%_) - (let ((_%e4110741151%_ - (gx#syntax-e _%tl4110641148%_))) - (let ((_%hd4110841155%_ + (##cdr _%e4116741204%_)))) + (if (gx#stx-pair? _%tl4116941211%_) + (let ((_%e4117041214%_ + (gx#syntax-e _%tl4116941211%_))) + (let ((_%hd4117141218%_ (let () (declare (not safe)) - (##car _%e4110741151%_))) - (_%tl4110941158%_ + (##car _%e4117041214%_))) + (_%tl4117241221%_ (let () (declare (not safe)) - (##cdr _%e4110741151%_)))) + (##cdr _%e4117041214%_)))) (if (gx#stx-pair/null? - _%tl4110941158%_) - (let ((_g41555_ + _%tl4117241221%_) + (let ((_g41618_ (gx#syntax-split-splice - _%tl4110941158%_ + _%tl4117241221%_ '0))) (begin - (let ((_g41556_ + (let ((_g41619_ (let () (declare (not safe)) (if (##values? - _g41555_) - (##vector-length - _g41555_) + _g41618_) + (##values-length + _g41618_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g41556_ + (##fx= _g41619_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g41556_))) + (error "Context expects 2 values" _g41619_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target4111041161%_ + (let ((_%target4117341224%_ (let () (declare (not safe)) - (##vector-ref - _g41555_ + (##values-ref + _g41618_ 0))) - (_%tl4111241164%_ + (_%tl4117541227%_ (let () (declare (not safe)) - (##vector-ref - _g41555_ + (##values-ref + _g41618_ 1)))) (if (gx#stx-null? - _%tl4111241164%_) - (letrec ((_%loop4111341167%_ - (lambda (_%hd4111141171%_ + _%tl4117541227%_) + (letrec ((_%loop4117641230%_ + (lambda (_%hd4117441234%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest4111741174%_) - (if (gx#stx-pair? _%hd4111141171%_) - (let ((_%e4111441177%_ - (gx#syntax-e _%hd4111141171%_))) - (let ((_%lp-hd4111541181%_ + _%rest4118041237%_) + (if (gx#stx-pair? _%hd4117441234%_) + (let ((_%e4117741240%_ + (gx#syntax-e _%hd4117441234%_))) + (let ((_%lp-hd4117841244%_ (let () (declare (not safe)) - (##car _%e4111441177%_))) - (_%lp-tl4111641184%_ + (##car _%e4117741240%_))) + (_%lp-tl4117941247%_ (let () (declare (not safe)) - (##cdr _%e4111441177%_)))) - (_%loop4111341167%_ - _%lp-tl4111641184%_ - (cons _%lp-hd4111541181%_ - _%rest4111741174%_)))) - (let ((_%rest4111841187%_ - (reverse _%rest4111741174%_))) - ((lambda (_%L41191%_ _%L41193%_ _%L41194%_) + (##cdr _%e4117741240%_)))) + (_%loop4117641230%_ + _%lp-tl4117941247%_ + (cons _%lp-hd4117841244%_ + _%rest4118041237%_)))) + (let ((_%rest4118141250%_ + (reverse _%rest4118041237%_))) + ((lambda (_%L41254%_ _%L41256%_ _%L41257%_) (cons (gx#datum->syntax '#f 'with-unwind-protect) @@ -1311,7 +1311,7 @@ '#f 'lambda) (cons '() - (cons _%L41194%_ + (cons _%L41257%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1320,124 +1320,124 @@ 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L41193%_ - (foldr (lambda (_%g4121441217%_ _%g4121541220%_) - (cons _%g4121441217%_ _%g4121541220%_)) + (cons _%L41256%_ + (foldr (lambda (_%g4127741280%_ _%g4127841283%_) + (cons _%g4127741280%_ _%g4127841283%_)) '() - _%L41191%_)))) + _%L41254%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%rest4111841187%_ - _%hd4110841155%_ - _%hd4110541145%_)))))) - (_%loop4111341167%_ _%target4111041161%_ '())) - (_%g4109641124%_ _%g4109741128%_))))) + _%rest4118141250%_ + _%hd4117141218%_ + _%hd4116841208%_)))))) + (_%loop4117641230%_ _%target4117341224%_ '())) + (_%g4115941187%_ _%g4116041191%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4109641124%_ - _%g4109741128%_)))) - (_%g4109641124%_ _%g4109741128%_)))) - (_%g4109641124%_ _%g4109741128%_)))) - (_%g4109641124%_ _%g4109741128%_))))) - (_%g4109541223%_ _%$stx41092%_)))) + (_%g4115941187%_ + _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_)))) + (_%g4115941187%_ _%g4116041191%_))))) + (_%g4115841286%_ _%$stx41155%_)))) (define |gerbil/core/more-sugar[:0:]#@bytes| - (lambda (_%stx41228%_) - (let* ((_%g4123141245%_ - (lambda (_%g4123241241%_) + (lambda (_%stx41291%_) + (let* ((_%g4129441308%_ + (lambda (_%g4129541304%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4123241241%_))) - (_%g4123041317%_ - (lambda (_%g4123241249%_) - (if (gx#stx-pair? _%g4123241249%_) - (let ((_%e4123441252%_ (gx#syntax-e _%g4123241249%_))) - (let ((_%hd4123541256%_ + _%g4129541304%_))) + (_%g4129341380%_ + (lambda (_%g4129541312%_) + (if (gx#stx-pair? _%g4129541312%_) + (let ((_%e4129741315%_ (gx#syntax-e _%g4129541312%_))) + (let ((_%hd4129841319%_ (let () (declare (not safe)) - (##car _%e4123441252%_))) - (_%tl4123641259%_ + (##car _%e4129741315%_))) + (_%tl4129941322%_ (let () (declare (not safe)) - (##cdr _%e4123441252%_)))) - (if (gx#stx-pair? _%tl4123641259%_) - (let ((_%e4123741262%_ - (gx#syntax-e _%tl4123641259%_))) - (let ((_%hd4123841266%_ + (##cdr _%e4129741315%_)))) + (if (gx#stx-pair? _%tl4129941322%_) + (let ((_%e4130041325%_ + (gx#syntax-e _%tl4129941322%_))) + (let ((_%hd4130141329%_ (let () (declare (not safe)) - (##car _%e4123741262%_))) - (_%tl4123941269%_ + (##car _%e4130041325%_))) + (_%tl4130241332%_ (let () (declare (not safe)) - (##cdr _%e4123741262%_)))) - (if (gx#stx-null? _%tl4123941269%_) - ((lambda (_%L41272%_) - (if (gx#stx-string? _%L41272%_) - (let* ((_%g4128641294%_ - (lambda (_%g4128741290%_) + (##cdr _%e4130041325%_)))) + (if (gx#stx-null? _%tl4130241332%_) + ((lambda (_%L41335%_) + (if (gx#stx-string? _%L41335%_) + (let* ((_%g4134941357%_ + (lambda (_%g4135041353%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4128741290%_))) - (_%g4128541313%_ - (lambda (_%g4128741298%_) - ((lambda (_%L41301%_) + _%g4135041353%_))) + (_%g4134841376%_ + (lambda (_%g4135041361%_) + ((lambda (_%L41364%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L41301%_ + (cons _%L41364%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) - _%g4128741298%_)))) + _%g4135041361%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g4128541313%_ + (_%g4134841376%_ (string->bytes - (gx#stx-e _%L41272%_)))) - (_%g4123141245%_ _%g4123241249%_))) - _%hd4123841266%_) - (_%g4123141245%_ _%g4123241249%_)))) - (_%g4123141245%_ _%g4123241249%_)))) - (_%g4123141245%_ _%g4123241249%_))))) - (_%g4123041317%_ _%stx41228%_)))) + (gx#stx-e _%L41335%_)))) + (_%g4129441308%_ _%g4129541312%_))) + _%hd4130141329%_) + (_%g4129441308%_ _%g4129541312%_)))) + (_%g4129441308%_ _%g4129541312%_)))) + (_%g4129441308%_ _%g4129541312%_))))) + (_%g4129341380%_ _%stx41291%_)))) (define |gerbil/core/more-sugar[:0:]#eval-when-compile| - (lambda (_%stx41321%_) - (let* ((_%g4132441338%_ - (lambda (_%g4132541334%_) + (lambda (_%stx41384%_) + (let* ((_%g4138741401%_ + (lambda (_%g4138841397%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4132541334%_))) - (_%g4132341379%_ - (lambda (_%g4132541342%_) - (if (gx#stx-pair? _%g4132541342%_) - (let ((_%e4132741345%_ (gx#syntax-e _%g4132541342%_))) - (let ((_%hd4132841349%_ + _%g4138841397%_))) + (_%g4138641442%_ + (lambda (_%g4138841405%_) + (if (gx#stx-pair? _%g4138841405%_) + (let ((_%e4139041408%_ (gx#syntax-e _%g4138841405%_))) + (let ((_%hd4139141412%_ (let () (declare (not safe)) - (##car _%e4132741345%_))) - (_%tl4132941352%_ + (##car _%e4139041408%_))) + (_%tl4139241415%_ (let () (declare (not safe)) - (##cdr _%e4132741345%_)))) - (if (gx#stx-pair? _%tl4132941352%_) - (let ((_%e4133041355%_ - (gx#syntax-e _%tl4132941352%_))) - (let ((_%hd4133141359%_ + (##cdr _%e4139041408%_)))) + (if (gx#stx-pair? _%tl4139241415%_) + (let ((_%e4139341418%_ + (gx#syntax-e _%tl4139241415%_))) + (let ((_%hd4139441422%_ (let () (declare (not safe)) - (##car _%e4133041355%_))) - (_%tl4133241362%_ + (##car _%e4139341418%_))) + (_%tl4139541425%_ (let () (declare (not safe)) - (##cdr _%e4133041355%_)))) - (if (gx#stx-null? _%tl4133241362%_) - ((lambda (_%L41365%_) + (##cdr _%e4139341418%_)))) + (if (gx#stx-null? _%tl4139541425%_) + ((lambda (_%L41428%_) (if (gx#current-expander-compiling?) - (gx#eval-syntax _%L41365%_) + (gx#eval-syntax _%L41428%_) '#!void) (cons (gx#datum->syntax '#f 'void) '())) - _%hd4133141359%_) - (_%g4132441338%_ _%g4132541342%_)))) - (_%g4132441338%_ _%g4132541342%_)))) - (_%g4132441338%_ _%g4132541342%_))))) - (_%g4132341379%_ _%stx41321%_))))) + _%hd4139441422%_) + (_%g4138741401%_ _%g4138841405%_)))) + (_%g4138741401%_ _%g4138841405%_)))) + (_%g4138741401%_ _%g4138841405%_))))) + (_%g4138641442%_ _%stx41384%_))))) diff --git a/src/bootstrap/gerbil/core/more-sugar~2.scm b/src/bootstrap/gerbil/core/more-sugar~2.scm index a02b44de1..f71b90d89 100644 --- a/src/bootstrap/gerbil/core/more-sugar~2.scm +++ b/src/bootstrap/gerbil/core/more-sugar~2.scm @@ -1,104 +1,104 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/more-sugar[2]#_g41558_| + (define |gerbil/core/more-sugar[2]#_g41621_| (##structure gx#syntax-quote::t 'macro-object #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41560_| + (define |gerbil/core/more-sugar[2]#_g41623_| (##structure gx#syntax-quote::t 'setq-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41562_| + (define |gerbil/core/more-sugar[2]#_g41625_| (##structure gx#syntax-quote::t 'make-setq-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41564_| + (define |gerbil/core/more-sugar[2]#_g41627_| (##structure gx#syntax-quote::t 'setq-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41566_| + (define |gerbil/core/more-sugar[2]#_g41629_| (##structure gx#syntax-quote::t 'setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41568_| + (define |gerbil/core/more-sugar[2]#_g41631_| (##structure gx#syntax-quote::t 'setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41570_| + (define |gerbil/core/more-sugar[2]#_g41633_| (##structure gx#syntax-quote::t '&setq-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41572_| + (define |gerbil/core/more-sugar[2]#_g41635_| (##structure gx#syntax-quote::t '&setq-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41575_| + (define |gerbil/core/more-sugar[2]#_g41638_| (##structure gx#syntax-quote::t 'setf-macro::t #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41577_| + (define |gerbil/core/more-sugar[2]#_g41640_| (##structure gx#syntax-quote::t 'make-setf-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41579_| + (define |gerbil/core/more-sugar[2]#_g41642_| (##structure gx#syntax-quote::t 'setf-macro? #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41581_| + (define |gerbil/core/more-sugar[2]#_g41644_| (##structure gx#syntax-quote::t 'setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41583_| + (define |gerbil/core/more-sugar[2]#_g41646_| (##structure gx#syntax-quote::t 'setf-macro-macro-set! #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41585_| + (define |gerbil/core/more-sugar[2]#_g41648_| (##structure gx#syntax-quote::t '&setf-macro-macro #f (gx#current-expander-context) '())) - (define |gerbil/core/more-sugar[2]#_g41587_| + (define |gerbil/core/more-sugar[2]#_g41650_| (##structure gx#syntax-quote::t '&setf-macro-macro-set! @@ -107,7 +107,7 @@ '())) (begin (define |gerbil/core/more-sugar[:1:]#setq-macro| - (let ((__obj41542 + (let ((__obj41605 (let () (declare (not safe)) (##structure @@ -136,60 +136,60 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41542 + __obj41605 'gerbil/core/more-sugar#setq-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 'setq-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41605 'setq-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 '() '4 '#f '#f)) - (let ((__tmp41557 (cons |gerbil/core/more-sugar[2]#_g41558_| '()))) + (##unchecked-structure-set! __obj41605 '() '4 '#f '#f)) + (let ((__tmp41620 (cons |gerbil/core/more-sugar[2]#_g41621_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41557 '3 '#f '#f)) + (##unchecked-structure-set! __obj41605 __tmp41620 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41605 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41542 '#f '11 '#f '#f)) - (let ((__tmp41559 |gerbil/core/more-sugar[2]#_g41560_|)) + (##unchecked-structure-set! __obj41605 '#f '11 '#f '#f)) + (let ((__tmp41622 |gerbil/core/more-sugar[2]#_g41623_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41559 '12 '#f '#f)) - (let ((__tmp41561 |gerbil/core/more-sugar[2]#_g41562_|)) + (##unchecked-structure-set! __obj41605 __tmp41622 '12 '#f '#f)) + (let ((__tmp41624 |gerbil/core/more-sugar[2]#_g41625_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41561 '13 '#f '#f)) - (let ((__tmp41563 |gerbil/core/more-sugar[2]#_g41564_|)) + (##unchecked-structure-set! __obj41605 __tmp41624 '13 '#f '#f)) + (let ((__tmp41626 |gerbil/core/more-sugar[2]#_g41627_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41563 '14 '#f '#f)) - (let ((__tmp41565 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41566_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41626 '14 '#f '#f)) + (let ((__tmp41628 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41629_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41565 '15 '#f '#f)) - (let ((__tmp41567 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41568_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41628 '15 '#f '#f)) + (let ((__tmp41630 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41631_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41567 '16 '#f '#f)) - (let ((__tmp41569 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41570_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41630 '16 '#f '#f)) + (let ((__tmp41632 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41633_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41569 '17 '#f '#f)) - (let ((__tmp41571 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41572_|) '()))) + (##unchecked-structure-set! __obj41605 __tmp41632 '17 '#f '#f)) + (let ((__tmp41634 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41635_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41542 __tmp41571 '18 '#f '#f)) - __obj41542)) + (##unchecked-structure-set! __obj41605 __tmp41634 '18 '#f '#f)) + __obj41605)) (define |gerbil/core/more-sugar[:1:]#setf-macro| - (let ((__obj41543 + (let ((__obj41606 (let () (declare (not safe)) (##structure @@ -218,55 +218,55 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj41543 + __obj41606 'gerbil/core/more-sugar#setf-macro::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 'setf-macro '2 '#f '#f)) + (##unchecked-structure-set! __obj41606 'setf-macro '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 '() '4 '#f '#f)) - (let ((__tmp41573 (cons |gerbil/core/more-sugar[2]#_g41558_| '()))) + (##unchecked-structure-set! __obj41606 '() '4 '#f '#f)) + (let ((__tmp41636 (cons |gerbil/core/more-sugar[2]#_g41621_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41573 '3 '#f '#f)) + (##unchecked-structure-set! __obj41606 __tmp41636 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj41606 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj41543 '#f '11 '#f '#f)) - (let ((__tmp41574 |gerbil/core/more-sugar[2]#_g41575_|)) + (##unchecked-structure-set! __obj41606 '#f '11 '#f '#f)) + (let ((__tmp41637 |gerbil/core/more-sugar[2]#_g41638_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41574 '12 '#f '#f)) - (let ((__tmp41576 |gerbil/core/more-sugar[2]#_g41577_|)) + (##unchecked-structure-set! __obj41606 __tmp41637 '12 '#f '#f)) + (let ((__tmp41639 |gerbil/core/more-sugar[2]#_g41640_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41576 '13 '#f '#f)) - (let ((__tmp41578 |gerbil/core/more-sugar[2]#_g41579_|)) + (##unchecked-structure-set! __obj41606 __tmp41639 '13 '#f '#f)) + (let ((__tmp41641 |gerbil/core/more-sugar[2]#_g41642_|)) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41578 '14 '#f '#f)) - (let ((__tmp41580 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41581_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41641 '14 '#f '#f)) + (let ((__tmp41643 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41644_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41580 '15 '#f '#f)) - (let ((__tmp41582 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41583_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41643 '15 '#f '#f)) + (let ((__tmp41645 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41646_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41582 '16 '#f '#f)) - (let ((__tmp41584 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41585_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41645 '16 '#f '#f)) + (let ((__tmp41647 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41648_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41584 '17 '#f '#f)) - (let ((__tmp41586 - (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41587_|) '()))) + (##unchecked-structure-set! __obj41606 __tmp41647 '17 '#f '#f)) + (let ((__tmp41649 + (cons (cons 'macro |gerbil/core/more-sugar[2]#_g41650_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj41543 __tmp41586 '18 '#f '#f)) - __obj41543)))) + (##unchecked-structure-set! __obj41606 __tmp41649 '18 '#f '#f)) + __obj41606)))) diff --git a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm index 53212e7cf..93538b003 100644 --- a/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm +++ b/src/bootstrap/gerbil/core/more-syntax-sugar~1.scm @@ -1,42 +1,42 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |gerbil/core/more-syntax-sugar[:0:]#identifier-rules| - (lambda (_%$stx41590%_) - (let* ((_%g4159441605%_ - (lambda (_%g4159541601%_) + (lambda (_%$stx41653%_) + (let* ((_%g4165741668%_ + (lambda (_%g4165841664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4159541601%_))) - (_%g4159341635%_ - (lambda (_%g4159541609%_) - (if (gx#stx-pair? _%g4159541609%_) - (let ((_%e4159741612%_ (gx#syntax-e _%g4159541609%_))) - (let ((_%hd4159841616%_ + _%g4165841664%_))) + (_%g4165641698%_ + (lambda (_%g4165841672%_) + (if (gx#stx-pair? _%g4165841672%_) + (let ((_%e4166041675%_ (gx#syntax-e _%g4165841672%_))) + (let ((_%hd4166141679%_ (let () (declare (not safe)) - (##car _%e4159741612%_))) - (_%tl4159941619%_ + (##car _%e4166041675%_))) + (_%tl4166241682%_ (let () (declare (not safe)) - (##cdr _%e4159741612%_)))) - ((lambda (_%L41622%_) + (##cdr _%e4166041675%_)))) + ((lambda (_%L41685%_) (cons (gx#datum->syntax '#f 'make-setq-macro) (cons 'macro: (cons (cons (gx#datum->syntax '#f 'syntax-rules) - _%L41622%_) + _%L41685%_) '())))) - _%tl4159941619%_))) - (_%g4159441605%_ _%g4159541609%_))))) - (_%g4159341635%_ _%$stx41590%_)))) + _%tl4166241682%_))) + (_%g4165741668%_ _%g4165841672%_))))) + (_%g4165641698%_ _%$stx41653%_)))) (define |gerbil/core/more-syntax-sugar[:0:]#quasisyntax| - (lambda (_%$stx41639%_) - (let ((_%g4164241649%_ - (lambda (_%g4164341645%_) + (lambda (_%$stx41702%_) + (let ((_%g4170541712%_ + (lambda (_%g4170641708%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g4164341645%_)))) - (_%g4164241649%_ _%$stx41639%_))))) + _%g4170641708%_)))) + (_%g4170541712%_ _%$stx41702%_))))) diff --git a/src/bootstrap/gerbil/core/runtime.ssi b/src/bootstrap/gerbil/core/runtime.ssi index eac34b2f6..5d2609b31 100644 --- a/src/bootstrap/gerbil/core/runtime.ssi +++ b/src/bootstrap/gerbil/core/runtime.ssi @@ -1700,6 +1700,7 @@ namespace: gerbil/core/runtime (seal-class! seal-class!) (next-method next-method) (call-next-method call-next-method) + (type-of type-of) (class-of class-of) (t::t t::t) (class::t class::t) diff --git a/src/bootstrap/gerbil/core/sugar.ssi b/src/bootstrap/gerbil/core/sugar.ssi index c21838336..5839692d1 100644 --- a/src/bootstrap/gerbil/core/sugar.ssi +++ b/src/bootstrap/gerbil/core/sugar.ssi @@ -51,7 +51,10 @@ namespace: gerbil/core/sugar |gerbil/core/sugar~Sugar-1[:0:]#unless|) (%#define-syntax syntax-error - |gerbil/core/sugar~Sugar-1[:0:]#syntax-error|))) + |gerbil/core/sugar~Sugar-1[:0:]#syntax-error|) + (%#define-syntax + compilation-target? + |gerbil/core/sugar~Sugar-1[:0:]#compilation-target?|))) (%#module Sugar-2 (%#begin (%#import (in: #f Sugar-1) (phi: 1 (in: #f Sugar-1))) diff --git a/src/bootstrap/gerbil/core/sugar~1.scm b/src/bootstrap/gerbil/core/sugar~1.scm index e583f5cf3..d656c69b3 100644 --- a/src/bootstrap/gerbil/core/sugar~1.scm +++ b/src/bootstrap/gerbil/core/sugar~1.scm @@ -1,27 +1,27 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-1[1]#_g20907_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20970_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20908_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20971_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20911_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20974_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-1[1]#_g20912_| + (define |gerbil/core/sugar~Sugar-1[1]#_g20975_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) (begin (define |gerbil/core/sugar~Sugar-1[:0:]#defrules| @@ -68,37 +68,37 @@ (##cdr _%e19401984%_)))) (if (gx#stx-pair/null? _%tl19421991%_) - (let ((_g20899_ + (let ((_g20962_ (gx#syntax-split-splice _%tl19421991%_ '0))) (begin - (let ((_g20900_ + (let ((_g20963_ (let () (declare (not safe)) (if (##values? - _g20899_) - (##vector-length - _g20899_) + _g20962_) + (##values-length + _g20962_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20900_ 2))) - (error "Context expects 2 values" _g20900_))) + (##fx= _g20963_ 2))) + (error "Context expects 2 values" _g20963_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target19431994%_ (let () (declare (not safe)) - (##vector-ref - _g20899_ + (##values-ref + _g20962_ 0))) (_%tl19451997%_ (let () (declare (not safe)) - (##vector-ref - _g20899_ + (##values-ref + _g20962_ 1)))) (if (gx#stx-null? _%tl19451997%_) @@ -153,14 +153,14 @@ (_%g19282058%_ _%$stx1925%_)))) (define |gerbil/core/sugar~Sugar-1[:0:]#defrule| (lambda (_%$stx2063%_) - (let* ((_%__stx1848018481%_ _%$stx2063%_) + (let* ((_%__stx1854318544%_ _%$stx2063%_) (_%g20682109%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1848018481%_)))) - (let ((_%__kont1848318484%_ + _%__stx1854318544%_)))) + (let ((_%__kont1854618547%_ (lambda (_%L2239%_ _%L2241%_ _%L2242%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2242%_ @@ -175,7 +175,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1848518486%_ + (_%__kont1854818549%_ (lambda (_%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2170%_ @@ -190,7 +190,7 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1854518546%_ + (let* ((_%__match1860818609%_ (lambda (_%e20892116%_ _%hd20902120%_ _%tl20912123%_ @@ -211,13 +211,13 @@ (_%L2169%_ _%tl20972143%_) (_%L2170%_ _%hd20962140%_)) (if (gx#identifier? _%L2170%_) - (_%__kont1848518486%_ + (_%__kont1854818549%_ _%L2166%_ _%L2168%_ _%L2169%_ _%L2170%_) (let () (declare (not safe)) (_%g20682109%_)))))) - (_%__match1851318514%_ + (_%__match1857618577%_ (lambda (_%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -234,13 +234,13 @@ (_%L2241%_ _%tl20812226%_) (_%L2242%_ _%hd20802223%_)) (if (gx#identifier? _%L2242%_) - (_%__kont1848318484%_ + (_%__kont1854618547%_ _%L2239%_ _%L2241%_ _%L2242%_) (let () (declare (not safe)) (_%g20682109%_))))))) - (if (gx#stx-pair? _%__stx1848018481%_) - (let ((_%e20732199%_ (gx#syntax-e _%__stx1848018481%_))) + (if (gx#stx-pair? _%__stx1854318544%_) + (let ((_%e20732199%_ (gx#syntax-e _%__stx1854318544%_))) (let ((_%tl20752206%_ (let () (declare (not safe)) (##cdr _%e20732199%_))) (_%hd20742203%_ @@ -280,7 +280,7 @@ (declare (not safe)) (##car _%e20822229%_)))) (if (gx#stx-null? _%tl20842236%_) - (_%__match1851318514%_ + (_%__match1857618577%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -306,7 +306,7 @@ (_%hd21022160%_ (let () (declare (not safe)) (##car _%e21012156%_)))) (if (gx#stx-null? _%tl21032163%_) - (_%__match1854518546%_ + (_%__match1860818609%_ _%e20732199%_ _%hd20742203%_ _%tl20752206%_ @@ -335,14 +335,14 @@ (let () (declare (not safe)) (_%g20682109%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#defsyntax%| (lambda (_%$stx2264%_) - (let* ((_%__stx1854818549%_ _%$stx2264%_) + (let* ((_%__stx1861118612%_ _%$stx2264%_) (_%g22692308%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1854818549%_)))) - (let ((_%__kont1855118552%_ + _%__stx1861118612%_)))) + (let ((_%__kont1861418615%_ (lambda (_%L2430%_ _%L2432%_ _%L2433%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2433%_ @@ -356,11 +356,11 @@ _%L2430%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1855518556%_ + (_%__kont1861818619%_ (lambda (_%L2345%_ _%L2347%_) (cons (gx#datum->syntax '#f 'define-syntax) (cons _%L2347%_ (cons _%L2345%_ '())))))) - (let* ((_%__match1860318604%_ + (let* ((_%__match1866618667%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -373,9 +373,9 @@ (let ((_%L2345%_ _%hd23012339%_) (_%L2347%_ _%hd22982329%_)) (if (gx#identifier? _%L2347%_) - (_%__kont1855518556%_ _%L2345%_ _%L2347%_) + (_%__kont1861818619%_ _%L2345%_ _%L2347%_) (let () (declare (not safe)) (_%g22692308%_)))))) - (_%__match1859518596%_ + (_%__match1865818659%_ (lambda (_%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -393,7 +393,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1860318604%_ + (_%__match1866618667%_ _%e22942315%_ _%hd22952319%_ _%tl22962322%_ @@ -407,7 +407,7 @@ (declare (not safe)) (_%g22692308%_))))) (let () (declare (not safe)) (_%g22692308%_))))) - (_%__match1858318584%_ + (_%__match1864618647%_ (lambda (_%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -417,7 +417,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1855318554%_ + _%__splice1861618617%_ _%target22832400%_ _%tl22852403%_) (letrec ((_%loop22862406%_ @@ -443,11 +443,11 @@ (_%L2432%_ _%tl22822397%_) (_%L2433%_ _%hd22812394%_)) (if (gx#identifier? _%L2433%_) - (_%__kont1855118552%_ + (_%__kont1861418615%_ _%L2430%_ _%L2432%_ _%L2433%_) - (_%__match1859518596%_ + (_%__match1865818659%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -455,8 +455,8 @@ _%hd22782384%_ _%tl22792387%_)))))))) (_%loop22862406%_ _%target22832400%_ '()))))) - (if (gx#stx-pair? _%__stx1854818549%_) - (let ((_%e22742370%_ (gx#syntax-e _%__stx1854818549%_))) + (if (gx#stx-pair? _%__stx1861118612%_) + (let ((_%e22742370%_ (gx#syntax-e _%__stx1861118612%_))) (let ((_%tl22762377%_ (let () (declare (not safe)) (##cdr _%e22742370%_))) (_%hd22752374%_ @@ -485,7 +485,7 @@ (declare (not safe)) (##car _%e22802390%_)))) (if (gx#stx-pair/null? _%tl22792387%_) - (let ((_%__splice1855318554%_ + (let ((_%__splice1861618617%_ (gx#syntax-split-splice _%tl22792387%_ '0))) @@ -493,16 +493,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1855318554%_ + _%__splice1861618617%_ '1))) (_%target22832400%_ (let () (declare (not safe)) (##vector-ref - _%__splice1855318554%_ + _%__splice1861618617%_ '0)))) (if (gx#stx-null? _%tl22852403%_) - (_%__match1858318584%_ + (_%__match1864618647%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -512,7 +512,7 @@ _%e22802390%_ _%hd22812394%_ _%tl22822397%_ - _%__splice1855318554%_ + _%__splice1861618617%_ _%target22832400%_ _%tl22852403%_) (if (gx#stx-pair? @@ -528,7 +528,7 @@ (_%hd23012339%_ (let () (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1860318604%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -555,7 +555,7 @@ (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1860318604%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -583,7 +583,7 @@ (declare (not safe)) (##car _%e23002335%_)))) (if (gx#stx-null? _%tl23022342%_) - (_%__match1860318604%_ + (_%__match1866618667%_ _%e22742370%_ _%hd22752374%_ _%tl22762377%_ @@ -603,14 +603,14 @@ (let () (declare (not safe)) (_%g22692308%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#define| (lambda (_%$stx2466%_) - (let* ((_%__stx1860618607%_ _%$stx2466%_) + (let* ((_%__stx1866918670%_ _%$stx2466%_) (_%g24712510%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1860618607%_)))) - (let ((_%__kont1860918610%_ + _%__stx1866918670%_)))) + (let ((_%__kont1867218673%_ (lambda (_%L2632%_ _%L2634%_ _%L2635%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2635%_ '()) @@ -624,11 +624,11 @@ _%L2632%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1861318614%_ + (_%__kont1867618677%_ (lambda (_%L2547%_ _%L2549%_) (cons (gx#datum->syntax '#f 'define-values) (cons (cons _%L2549%_ '()) (cons _%L2547%_ '())))))) - (let* ((_%__match1866118662%_ + (let* ((_%__match1872418725%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -641,9 +641,9 @@ (let ((_%L2547%_ _%hd25032541%_) (_%L2549%_ _%hd25002531%_)) (if (gx#identifier? _%L2549%_) - (_%__kont1861318614%_ _%L2547%_ _%L2549%_) + (_%__kont1867618677%_ _%L2547%_ _%L2549%_) (let () (declare (not safe)) (_%g24712510%_)))))) - (_%__match1865318654%_ + (_%__match1871618717%_ (lambda (_%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -661,7 +661,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1866118662%_ + (_%__match1872418725%_ _%e24962517%_ _%hd24972521%_ _%tl24982524%_ @@ -675,7 +675,7 @@ (declare (not safe)) (_%g24712510%_))))) (let () (declare (not safe)) (_%g24712510%_))))) - (_%__match1864118642%_ + (_%__match1870418705%_ (lambda (_%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -685,7 +685,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1861118612%_ + _%__splice1867418675%_ _%target24852602%_ _%tl24872605%_) (letrec ((_%loop24882608%_ @@ -711,11 +711,11 @@ (_%L2634%_ _%tl24842599%_) (_%L2635%_ _%hd24832596%_)) (if (gx#identifier? _%L2635%_) - (_%__kont1860918610%_ + (_%__kont1867218673%_ _%L2632%_ _%L2634%_ _%L2635%_) - (_%__match1865318654%_ + (_%__match1871618717%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -723,8 +723,8 @@ _%hd24802586%_ _%tl24812589%_)))))))) (_%loop24882608%_ _%target24852602%_ '()))))) - (if (gx#stx-pair? _%__stx1860618607%_) - (let ((_%e24762572%_ (gx#syntax-e _%__stx1860618607%_))) + (if (gx#stx-pair? _%__stx1866918670%_) + (let ((_%e24762572%_ (gx#syntax-e _%__stx1866918670%_))) (let ((_%tl24782579%_ (let () (declare (not safe)) (##cdr _%e24762572%_))) (_%hd24772576%_ @@ -753,7 +753,7 @@ (declare (not safe)) (##car _%e24822592%_)))) (if (gx#stx-pair/null? _%tl24812589%_) - (let ((_%__splice1861118612%_ + (let ((_%__splice1867418675%_ (gx#syntax-split-splice _%tl24812589%_ '0))) @@ -761,16 +761,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1861118612%_ + _%__splice1867418675%_ '1))) (_%target24852602%_ (let () (declare (not safe)) (##vector-ref - _%__splice1861118612%_ + _%__splice1867418675%_ '0)))) (if (gx#stx-null? _%tl24872605%_) - (_%__match1864118642%_ + (_%__match1870418705%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -780,7 +780,7 @@ _%e24822592%_ _%hd24832596%_ _%tl24842599%_ - _%__splice1861118612%_ + _%__splice1867418675%_ _%target24852602%_ _%tl24872605%_) (if (gx#stx-pair? @@ -796,7 +796,7 @@ (_%hd25032541%_ (let () (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1866118662%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -823,7 +823,7 @@ (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1866118662%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -851,7 +851,7 @@ (declare (not safe)) (##car _%e25022537%_)))) (if (gx#stx-null? _%tl25042544%_) - (_%__match1866118662%_ + (_%__match1872418725%_ _%e24762572%_ _%hd24772576%_ _%tl24782579%_ @@ -871,14 +871,14 @@ (let () (declare (not safe)) (_%g24712510%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let*-values| (lambda (_%$stx2668%_) - (let* ((_%__stx1866418665%_ _%$stx2668%_) + (let* ((_%__stx1872718728%_ _%$stx2668%_) (_%g26732718%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1866418665%_)))) - (let ((_%__kont1866718668%_ + _%__stx1872718728%_)))) + (let ((_%__kont1873018731%_ (lambda (_%L2876%_) (cons (gx#datum->syntax '#f 'let-values) (cons '() @@ -886,7 +886,7 @@ (cons _%g28922895%_ _%g28932898%_)) '() _%L2876%_))))) - (_%__kont1867118672%_ + (_%__kont1873418735%_ (lambda (_%L2785%_ _%L2787%_ _%L2788%_ _%L2789%_) (cons (gx#datum->syntax '#f 'let-values) (cons (cons _%L2788%_ '()) @@ -900,7 +900,7 @@ _%L2785%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match1872318724%_ + (let* ((_%__match1878618787%_ (lambda (_%e26952725%_ _%hd26962729%_ _%tl26972732%_ @@ -910,7 +910,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1867318674%_ + _%__splice1873618737%_ _%target27042755%_ _%tl27062758%_) (letrec ((_%loop27072761%_ @@ -932,20 +932,20 @@ _%body27112768%_)))) (let ((_%body27122781%_ (reverse _%body27112768%_))) - (_%__kont1867118672%_ + (_%__kont1873418735%_ _%body27122781%_ _%tl27032752%_ _%hd27022749%_ _%hd26962729%_)))))) (_%loop27072761%_ _%target27042755%_ '())))) - (_%__match1869718698%_ + (_%__match1876018761%_ (lambda (_%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1866918670%_ + _%__splice1873218733%_ _%target26822846%_ _%tl26842849%_) (letrec ((_%loop26852852%_ @@ -967,11 +967,11 @@ _%body26892859%_)))) (let ((_%body26902872%_ (reverse _%body26892859%_))) - (_%__kont1866718668%_ + (_%__kont1873018731%_ _%body26902872%_)))))) (_%loop26852852%_ _%target26822846%_ '()))))) - (if (gx#stx-pair? _%__stx1866418665%_) - (let ((_%e26762826%_ (gx#syntax-e _%__stx1866418665%_))) + (if (gx#stx-pair? _%__stx1872718728%_) + (let ((_%e26762826%_ (gx#syntax-e _%__stx1872718728%_))) (let ((_%tl26782833%_ (let () (declare (not safe)) (##cdr _%e26762826%_))) (_%hd26772830%_ @@ -990,7 +990,7 @@ (##car _%e26792836%_)))) (if (gx#stx-null? _%hd26802840%_) (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1866918670%_ + (let ((_%__splice1873218733%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -998,23 +998,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1866918670%_ + _%__splice1873218733%_ '1))) (_%target26822846%_ (let () (declare (not safe)) (##vector-ref - _%__splice1866918670%_ + _%__splice1873218733%_ '0)))) (if (gx#stx-null? _%tl26842849%_) - (_%__match1869718698%_ + (_%__match1876018761%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ _%e26792836%_ _%hd26802840%_ _%tl26812843%_ - _%__splice1866918670%_ + _%__splice1873218733%_ _%target26822846%_ _%tl26842849%_) (let () @@ -1036,7 +1036,7 @@ (##car _%e27012745%_)))) (if (gx#stx-pair/null? _%tl26812843%_) - (let ((_%__splice1867318674%_ + (let ((_%__splice1873618737%_ (gx#syntax-split-splice _%tl26812843%_ '0))) @@ -1044,17 +1044,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1867318674%_ + _%__splice1873618737%_ '1))) (_%target27042755%_ (let () (declare (not safe)) (##vector-ref - _%__splice1867318674%_ + _%__splice1873618737%_ '0)))) (if (gx#stx-null? _%tl27062758%_) - (_%__match1872318724%_ + (_%__match1878618787%_ _%e26762826%_ _%hd26772830%_ _%tl26782833%_ @@ -1064,7 +1064,7 @@ _%e27012745%_ _%hd27022749%_ _%tl27032752%_ - _%__splice1867318674%_ + _%__splice1873618737%_ _%target27042755%_ _%tl27062758%_) (let () @@ -1080,14 +1080,14 @@ (let () (declare (not safe)) (_%g26732718%_)))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#let| (lambda (_%$stx2907%_) - (let* ((_%__stx1872618727%_ _%$stx2907%_) + (let* ((_%__stx1878918790%_ _%$stx2907%_) (_%g29122976%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1872618727%_)))) - (let ((_%__kont1872918730%_ + _%__stx1878918790%_)))) + (let ((_%__kont1879218793%_ (lambda (_%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) (cons (cons (gx#datum->syntax '#f 'letrec-values) (cons (cons (cons (cons _%L3187%_ '()) @@ -1112,7 +1112,7 @@ (cons _%g32123231%_ _%g32133234%_)) '() _%L3185%_)))) - (_%__kont1873518736%_ + (_%__kont1879818799%_ (lambda (_%L3033%_ _%L3035%_) (cons (gx#datum->syntax '#f '~let) (cons (gx#datum->syntax '#f 'let-values) @@ -1123,14 +1123,14 @@ _%g30533058%_)) '() _%L3033%_))))))) - (let* ((_%__match1878318784%_ + (let* ((_%__match1884618847%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1873718738%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (letrec ((_%loop29653009%_ @@ -1152,11 +1152,11 @@ _%body29693016%_)))) (let ((_%body29703029%_ (reverse _%body29693016%_))) - (_%__kont1873518736%_ + (_%__kont1879818799%_ _%body29703029%_ _%hd29602997%_)))))) (_%loop29653009%_ _%target29623003%_ '())))) - (_%__match1877518776%_ + (_%__match1883818839%_ (lambda (_%e29562983%_ _%hd29572987%_ _%tl29582990%_ @@ -1164,34 +1164,34 @@ _%hd29602997%_ _%tl29613000%_) (if (gx#stx-pair/null? _%tl29613000%_) - (let ((_%__splice1873718738%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29613000%_ '0))) (let ((_%tl29643006%_ (let () (declare (not safe)) - (##vector-ref _%__splice1873718738%_ '1))) + (##vector-ref _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1873718738%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1878318784%_ + (_%__match1884618847%_ _%e29562983%_ _%hd29572987%_ _%tl29582990%_ _%e29592993%_ _%hd29602997%_ _%tl29613000%_ - _%__splice1873718738%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () (declare (not safe)) (_%g29122976%_))))) (let () (declare (not safe)) (_%g29122976%_))))) - (_%__match1876318764%_ + (_%__match1882618827%_ (lambda (_%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1201,7 +1201,7 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1873118732%_ + _%__splice1879418795%_ _%target29283098%_ _%tl29303101%_) (letrec ((_%loop29313104%_ @@ -1248,14 +1248,14 @@ _%lp-tl29343123%_ (cons _%hd29523140%_ _%arg29353111%_) (cons _%hd29493130%_ _%var29363113%_)) - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1263,7 +1263,7 @@ _%hd29233082%_ _%tl29243085%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1275,7 +1275,7 @@ (_%arg29373146%_ (reverse _%arg29353111%_))) (if (gx#stx-pair/null? _%tl29273095%_) - (let ((_%__splice1873318734%_ + (let ((_%__splice1879618797%_ (gx#syntax-split-splice _%tl29273095%_ '0))) @@ -1283,13 +1283,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1873318734%_ + _%__splice1879618797%_ '1))) (_%target29393152%_ (let () (declare (not safe)) (##vector-ref - _%__splice1873318734%_ + _%__splice1879618797%_ '0)))) (if (gx#stx-null? _%tl29413155%_) @@ -1318,13 +1318,13 @@ (_%L3186%_ _%var29383149%_) (_%L3187%_ _%hd29233082%_)) (if (gx#identifier? _%L3187%_) - (_%__kont1872918730%_ + (_%__kont1879218793%_ _%L3182%_ _%L3184%_ _%L3185%_ _%L3186%_ _%L3187%_) - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1333,14 +1333,14 @@ _%tl29243085%_)))))))) (_%loop29423158%_ _%target29393152%_ '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_)))) - (_%__match1877518776%_ + (_%__match1883818839%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1348,8 +1348,8 @@ _%hd29233082%_ _%tl29243085%_))))))) (_%loop29313104%_ _%target29283098%_ '() '()))))) - (if (gx#stx-pair? _%__stx1872618727%_) - (let ((_%e29193068%_ (gx#syntax-e _%__stx1872618727%_))) + (if (gx#stx-pair? _%__stx1878918790%_) + (let ((_%e29193068%_ (gx#syntax-e _%__stx1878918790%_))) (let ((_%tl29213075%_ (let () (declare (not safe)) (##cdr _%e29193068%_))) (_%hd29203072%_ @@ -1378,7 +1378,7 @@ (declare (not safe)) (##car _%e29253088%_)))) (if (gx#stx-pair/null? _%hd29263092%_) - (let ((_%__splice1873118732%_ + (let ((_%__splice1879418795%_ (gx#syntax-split-splice _%hd29263092%_ '0))) @@ -1386,15 +1386,15 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1873118732%_ + _%__splice1879418795%_ '1))) (_%target29283098%_ (let () (declare (not safe)) (##vector-ref - _%__splice1873118732%_ + _%__splice1879418795%_ '0)))) - (_%__match1876318764%_ + (_%__match1882618827%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ @@ -1404,12 +1404,12 @@ _%e29253088%_ _%hd29263092%_ _%tl29273095%_ - _%__splice1873118732%_ + _%__splice1879418795%_ _%target29283098%_ _%tl29303101%_))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1873718738%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1417,24 +1417,24 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1873718738%_ + _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1873718738%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1878318784%_ + (_%__match1884618847%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1873718738%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1444,7 +1444,7 @@ (declare (not safe)) (_%g29122976%_)))))) (if (gx#stx-pair/null? _%tl29243085%_) - (let ((_%__splice1873718738%_ + (let ((_%__splice1880018801%_ (gx#syntax-split-splice _%tl29243085%_ '0))) @@ -1452,23 +1452,23 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1873718738%_ + _%__splice1880018801%_ '1))) (_%target29623003%_ (let () (declare (not safe)) (##vector-ref - _%__splice1873718738%_ + _%__splice1880018801%_ '0)))) (if (gx#stx-null? _%tl29643006%_) - (_%__match1878318784%_ + (_%__match1884618847%_ _%e29193068%_ _%hd29203072%_ _%tl29213075%_ _%e29223078%_ _%hd29233082%_ _%tl29243085%_ - _%__splice1873718738%_ + _%__splice1880018801%_ _%target29623003%_ _%tl29643006%_) (let () @@ -1511,31 +1511,31 @@ (declare (not safe)) (##cdr _%e32553289%_)))) (if (gx#stx-pair/null? _%tl32573296%_) - (let ((_g20901_ + (let ((_g20964_ (gx#syntax-split-splice _%tl32573296%_ '0))) (begin - (let ((_g20902_ + (let ((_g20965_ (let () (declare (not safe)) - (if (##values? _g20901_) - (##vector-length - _g20901_) + (if (##values? _g20964_) + (##values-length + _g20964_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20902_ 2))) + (##fx= _g20965_ 2))) (error "Context expects 2 values" - _g20902_))) + _g20965_))) (let ((_%target32583299%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 0))) + (##values-ref _g20964_ 0))) (_%tl32603302%_ (let () (declare (not safe)) - (##vector-ref _g20901_ 1)))) + (##values-ref _g20964_ 1)))) (if (gx#stx-null? _%tl32603302%_) (letrec ((_%loop32613305%_ (lambda (_%hd32593309%_ @@ -1609,31 +1609,31 @@ (declare (not safe)) (##cdr _%e33733407%_)))) (if (gx#stx-pair/null? _%tl33753414%_) - (let ((_g20903_ + (let ((_g20966_ (gx#syntax-split-splice _%tl33753414%_ '0))) (begin - (let ((_g20904_ + (let ((_g20967_ (let () (declare (not safe)) - (if (##values? _g20903_) - (##vector-length - _g20903_) + (if (##values? _g20966_) + (##values-length + _g20966_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20904_ 2))) + (##fx= _g20967_ 2))) (error "Context expects 2 values" - _g20904_))) + _g20967_))) (let ((_%target33763417%_ (let () (declare (not safe)) - (##vector-ref _g20903_ 0))) + (##values-ref _g20966_ 0))) (_%tl33783420%_ (let () (declare (not safe)) - (##vector-ref _g20903_ 1)))) + (##values-ref _g20966_ 1)))) (if (gx#stx-null? _%tl33783420%_) (letrec ((_%loop33793423%_ (lambda (_%hd33773427%_ @@ -1707,31 +1707,31 @@ (declare (not safe)) (##cdr _%e34913525%_)))) (if (gx#stx-pair/null? _%tl34933532%_) - (let ((_g20905_ + (let ((_g20968_ (gx#syntax-split-splice _%tl34933532%_ '0))) (begin - (let ((_g20906_ + (let ((_g20969_ (let () (declare (not safe)) - (if (##values? _g20905_) - (##vector-length - _g20905_) + (if (##values? _g20968_) + (##values-length + _g20968_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20906_ 2))) + (##fx= _g20969_ 2))) (error "Context expects 2 values" - _g20906_))) + _g20969_))) (let ((_%target34943535%_ (let () (declare (not safe)) - (##vector-ref _g20905_ 0))) + (##values-ref _g20968_ 0))) (_%tl34963538%_ (let () (declare (not safe)) - (##vector-ref _g20905_ 1)))) + (##values-ref _g20968_ 1)))) (if (gx#stx-null? _%tl34963538%_) (letrec ((_%loop34973541%_ (lambda (_%hd34953545%_ @@ -1777,21 +1777,21 @@ (lambda (_%stx3598%_) (letrec ((_%let-head?3601%_ (lambda (_%x4081%_) - (let* ((_%__stx1878618787%_ _%x4081%_) + (let* ((_%__stx1884918850%_ _%x4081%_) (_%g40854096%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1878618787%_)))) - (let ((_%__kont1878918790%_ + _%__stx1884918850%_)))) + (let ((_%__kont1885218853%_ (lambda (_%L4124%_) (gx#stx-andmap gx#identifier? _%L4124%_))) - (_%__kont1879118792%_ + (_%__kont1885418855%_ (lambda () (gx#identifier? _%x4081%_)))) - (if (gx#stx-pair? _%__stx1878618787%_) + (if (gx#stx-pair? _%__stx1884918850%_) (let ((_%e40884114%_ - (gx#syntax-e _%__stx1878618787%_))) + (gx#syntax-e _%__stx1884918850%_))) (let ((_%tl40904121%_ (let () (declare (not safe)) @@ -1802,28 +1802,28 @@ (##car _%e40884114%_)))) (if (gx#identifier? _%hd40894118%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20907_| + |gerbil/core/sugar~Sugar-1[1]#_g20970_| _%hd40894118%_) - (_%__kont1878918790%_ _%tl40904121%_) - (_%__kont1879118792%_)) - (_%__kont1879118792%_)))) - (_%__kont1879118792%_)))))) + (_%__kont1885218853%_ _%tl40904121%_) + (_%__kont1885418855%_)) + (_%__kont1885418855%_)))) + (_%__kont1885418855%_)))))) (_%let-head3603%_ (lambda (_%x4021%_) - (let* ((_%__stx1880618807%_ _%x4021%_) + (let* ((_%__stx1886918870%_ _%x4021%_) (_%g40254036%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1880618807%_)))) - (let ((_%__kont1880918810%_ + _%__stx1886918870%_)))) + (let ((_%__kont1887218873%_ (lambda (_%L4064%_) _%L4064%_)) - (_%__kont1881118812%_ + (_%__kont1887418875%_ (lambda () (list _%x4021%_)))) - (if (gx#stx-pair? _%__stx1880618807%_) + (if (gx#stx-pair? _%__stx1886918870%_) (let ((_%e40284054%_ - (gx#syntax-e _%__stx1880618807%_))) + (gx#syntax-e _%__stx1886918870%_))) (let ((_%tl40304061%_ (let () (declare (not safe)) @@ -1834,20 +1834,20 @@ (##car _%e40284054%_)))) (if (gx#identifier? _%hd40294058%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20908_| + |gerbil/core/sugar~Sugar-1[1]#_g20971_| _%hd40294058%_) - (_%__kont1880918810%_ _%tl40304061%_) - (_%__kont1881118812%_)) - (_%__kont1881118812%_)))) - (_%__kont1881118812%_))))))) - (let* ((_%__stx1882618827%_ _%stx3598%_) + (_%__kont1887218873%_ _%tl40304061%_) + (_%__kont1887418875%_)) + (_%__kont1887418875%_)))) + (_%__kont1887418875%_))))))) + (let* ((_%__stx1888918890%_ _%stx3598%_) (_%g36063672%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1882618827%_)))) - (let ((_%__kont1882918830%_ + _%__stx1888918890%_)))) + (let ((_%__kont1889218893%_ (lambda (_%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (cons _%L3995%_ (cons _%L3994%_ @@ -1855,7 +1855,7 @@ (cons _%L3992%_ '())) '()) _%L3990%_))))) - (_%__kont1883118832%_ + (_%__kont1889418895%_ (lambda (_%L3793%_ _%L3795%_ _%L3796%_ _%L3797%_) (let* ((_%g38323849%_ (lambda (_%g38333845%_) @@ -1866,30 +1866,30 @@ (_%g38313921%_ (lambda (_%g38333853%_) (if (gx#stx-pair/null? _%g38333853%_) - (let ((_g20909_ + (let ((_g20972_ (gx#syntax-split-splice _%g38333853%_ '0))) (begin - (let ((_g20910_ + (let ((_g20973_ (let () (declare (not safe)) - (if (##values? _g20909_) - (##vector-length _g20909_) + (if (##values? _g20972_) + (##values-length _g20972_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20910_ 2))) + (##fx= _g20973_ 2))) (error "Context expects 2 values" - _g20910_))) + _g20973_))) (let ((_%target38353856%_ (let () (declare (not safe)) - (##vector-ref _g20909_ 0))) + (##values-ref _g20972_ 0))) (_%tl38373859%_ (let () (declare (not safe)) - (##vector-ref _g20909_ 1)))) + (##values-ref _g20972_ 1)))) (if (gx#stx-null? _%tl38373859%_) (letrec ((_%loop38383862%_ (lambda (_%hd38363866%_ @@ -1949,7 +1949,7 @@ (cons _%g39243927%_ _%g39253930%_)) '() _%L3796%_))))))) - (let* ((_%__match1889518896%_ + (let* ((_%__match1895818959%_ (lambda (_%e36323679%_ _%hd36333683%_ _%tl36343686%_ @@ -1959,7 +1959,7 @@ _%e36383699%_ _%hd36393703%_ _%tl36403706%_ - _%__splice1883318834%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (letrec ((_%loop36443715%_ @@ -2017,7 +2017,7 @@ (reverse _%e36483722%_))) (if (gx#stx-pair/null? _%tl36403706%_) - (let ((_%__splice1883518836%_ + (let ((_%__splice1889818899%_ (gx#syntax-split-splice _%tl36403706%_ '0))) @@ -2025,13 +2025,13 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1883518836%_ + _%__splice1889818899%_ '1))) (_%target36523763%_ (let () (declare (not safe)) (##vector-ref - _%__splice1883518836%_ + _%__splice1889818899%_ '0)))) (if (gx#stx-null? _%tl36543766%_) @@ -2067,7 +2067,7 @@ _%g38243829%_)) '() _%L3796%_)) - (_%__kont1883118832%_ + (_%__kont1889418895%_ _%L3793%_ _%L3795%_ _%L3796%_ @@ -2082,7 +2082,7 @@ (declare (not safe)) (_%g36063672%_)))))))) (_%loop36443715%_ _%target36413709%_ '() '())))) - (_%__match1886918870%_ + (_%__match1893218933%_ (lambda (_%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2104,14 +2104,14 @@ (_%L3994%_ _%hd36173954%_) (_%L3995%_ _%hd36143944%_)) (if (_%let-head?3601%_ _%L3993%_) - (_%__kont1882918830%_ + (_%__kont1889218893%_ _%L3990%_ _%L3992%_ _%L3993%_ _%L3994%_ _%L3995%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1883318834%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2119,16 +2119,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1883318834%_ + _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1883318834%_ + _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1889518896%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2138,7 +2138,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1883318834%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2147,8 +2147,8 @@ (let () (declare (not safe)) (_%g36063672%_)))))))) - (if (gx#stx-pair? _%__stx1882618827%_) - (let ((_%e36133940%_ (gx#syntax-e _%__stx1882618827%_))) + (if (gx#stx-pair? _%__stx1888918890%_) + (let ((_%e36133940%_ (gx#syntax-e _%__stx1888918890%_))) (let ((_%tl36153947%_ (let () (declare (not safe)) @@ -2204,7 +2204,7 @@ (_%hd36263984%_ (let () (declare (not safe)) (##car _%e36253980%_)))) (if (gx#stx-null? _%tl36273987%_) - (_%__match1886918870%_ + (_%__match1893218933%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2221,18 +2221,18 @@ _%hd36263984%_ _%tl36273987%_) (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1883318834%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) (let ((_%tl36433712%_ (let () (declare (not safe)) - (##vector-ref _%__splice1883318834%_ '1))) + (##vector-ref _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1883318834%_ '0)))) + (##vector-ref _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1889518896%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2242,7 +2242,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1883318834%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2252,7 +2252,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1883318834%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2260,13 +2260,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##vector-ref _%__splice1883318834%_ '1))) + (##vector-ref _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) - (##vector-ref _%__splice1883318834%_ '0)))) + (##vector-ref _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1889518896%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2276,7 +2276,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1883318834%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () (declare (not safe)) (_%g36063672%_))))) @@ -2284,7 +2284,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? _%hd36203964%_) - (let ((_%__splice1883318834%_ + (let ((_%__splice1889618897%_ (gx#syntax-split-splice _%hd36203964%_ '0))) @@ -2292,17 +2292,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1883318834%_ + _%__splice1889618897%_ '1))) (_%target36413709%_ (let () (declare (not safe)) (##vector-ref - _%__splice1883318834%_ + _%__splice1889618897%_ '0)))) (if (gx#stx-null? _%tl36433712%_) - (_%__match1889518896%_ + (_%__match1895818959%_ _%e36133940%_ _%hd36143944%_ _%tl36153947%_ @@ -2312,7 +2312,7 @@ _%e36193960%_ _%hd36203964%_ _%tl36213967%_ - _%__splice1883318834%_ + _%__splice1889618897%_ _%target36413709%_ _%tl36433712%_) (let () @@ -2328,29 +2328,29 @@ (let () (declare (not safe)) (_%g36063672%_))))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#and| (lambda (_%$stx4144%_) - (let* ((_%__stx1889818899%_ _%$stx4144%_) + (let* ((_%__stx1896118962%_ _%$stx4144%_) (_%g41504176%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1889818899%_)))) - (let ((_%__kont1890118902%_ (lambda () '#t)) - (_%__kont1890318904%_ (lambda (_%L4248%_) _%L4248%_)) - (_%__kont1890518906%_ + _%__stx1896118962%_)))) + (let ((_%__kont1896418965%_ (lambda () '#t)) + (_%__kont1896618967%_ (lambda (_%L4248%_) _%L4248%_)) + (_%__kont1896818969%_ (lambda (_%L4203%_ _%L4205%_ _%L4206%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4205%_ (cons (cons _%L4206%_ _%L4203%_) (cons '#f '()))))))) - (if (gx#stx-pair? _%__stx1889818899%_) - (let ((_%e41524268%_ (gx#syntax-e _%__stx1889818899%_))) + (if (gx#stx-pair? _%__stx1896118962%_) + (let ((_%e41524268%_ (gx#syntax-e _%__stx1896118962%_))) (let ((_%tl41544275%_ (let () (declare (not safe)) (##cdr _%e41524268%_))) (_%hd41534272%_ (let () (declare (not safe)) (##car _%e41524268%_)))) (if (gx#stx-null? _%tl41544275%_) - (_%__kont1890118902%_) + (_%__kont1896418965%_) (if (gx#stx-pair? _%tl41544275%_) (let ((_%e41594238%_ (gx#syntax-e _%tl41544275%_))) (let ((_%tl41614245%_ @@ -2362,8 +2362,8 @@ (declare (not safe)) (##car _%e41594238%_)))) (if (gx#stx-null? _%tl41614245%_) - (_%__kont1890318904%_ _%hd41604242%_) - (_%__kont1890518906%_ + (_%__kont1896618967%_ _%hd41604242%_) + (_%__kont1896818969%_ _%tl41614245%_ _%hd41604242%_ _%hd41534272%_)))) @@ -2371,16 +2371,16 @@ (let () (declare (not safe)) (_%g41504176%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#or| (lambda (_%$stx4286%_) - (let* ((_%__stx1894418945%_ _%$stx4286%_) + (let* ((_%__stx1900719008%_ _%$stx4286%_) (_%g42924318%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1894418945%_)))) - (let ((_%__kont1894718948%_ (lambda () '#f)) - (_%__kont1894918950%_ (lambda (_%L4390%_) _%L4390%_)) - (_%__kont1895118952%_ + _%__stx1900719008%_)))) + (let ((_%__kont1901019011%_ (lambda () '#f)) + (_%__kont1901219013%_ (lambda (_%L4390%_) _%L4390%_)) + (_%__kont1901419015%_ (lambda (_%L4345%_ _%L4347%_ _%L4348%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2396,14 +2396,14 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (if (gx#stx-pair? _%__stx1894418945%_) - (let ((_%e42944410%_ (gx#syntax-e _%__stx1894418945%_))) + (if (gx#stx-pair? _%__stx1900719008%_) + (let ((_%e42944410%_ (gx#syntax-e _%__stx1900719008%_))) (let ((_%tl42964417%_ (let () (declare (not safe)) (##cdr _%e42944410%_))) (_%hd42954414%_ (let () (declare (not safe)) (##car _%e42944410%_)))) (if (gx#stx-null? _%tl42964417%_) - (_%__kont1894718948%_) + (_%__kont1901019011%_) (if (gx#stx-pair? _%tl42964417%_) (let ((_%e43014380%_ (gx#syntax-e _%tl42964417%_))) (let ((_%tl43034387%_ @@ -2415,8 +2415,8 @@ (declare (not safe)) (##car _%e43014380%_)))) (if (gx#stx-null? _%tl43034387%_) - (_%__kont1894918950%_ _%hd43024384%_) - (_%__kont1895118952%_ + (_%__kont1901219013%_ _%hd43024384%_) + (_%__kont1901419015%_ _%tl43034387%_ _%hd43024384%_ _%hd42954414%_)))) @@ -2424,15 +2424,15 @@ (let () (declare (not safe)) (_%g42924318%_))))))) (define |gerbil/core/sugar~Sugar-1[:0:]#cond| (lambda (_%$stx4428%_) - (let* ((_%__stx1899018991%_ _%$stx4428%_) + (let* ((_%__stx1905319054%_ _%$stx4428%_) (_%g44374528%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1899018991%_)))) - (let ((_%__kont1899318994%_ (lambda () '#!void)) - (_%__kont1899518996%_ + _%__stx1905319054%_)))) + (let ((_%__kont1905619057%_ (lambda () '#!void)) + (_%__kont1905819059%_ (lambda (_%L4875%_) (cons (gx#datum->syntax '#f 'let) (cons '() @@ -2440,11 +2440,11 @@ (cons _%g48944897%_ _%g48954900%_)) '() _%L4875%_))))) - (_%__kont1899919000%_ + (_%__kont1906219063%_ (lambda () (cons (gx#datum->syntax '#f 'syntax-error) (cons '"bad syntax; misplaced else" '())))) - (_%__kont1900119002%_ + (_%__kont1906419065%_ (lambda (_%L4748%_ _%L4750%_ _%L4751%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2460,7 +2460,7 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1900319004%_ + (_%__kont1906619067%_ (lambda (_%L4686%_ _%L4688%_ _%L4689%_ _%L4690%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) @@ -2476,7 +2476,7 @@ (cons (cons _%L4690%_ _%L4686%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1900519006%_ + (_%__kont1906819069%_ (lambda (_%L4595%_ _%L4597%_ _%L4598%_ _%L4599%_) (cons (gx#datum->syntax '#f 'if) (cons _%L4598%_ @@ -2491,7 +2491,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons _%L4599%_ _%L4595%_) '()))))))) - (let* ((_%__match1915119152%_ + (let* ((_%__match1921419215%_ (lambda (_%e45054535%_ _%hd45064539%_ _%tl45074542%_ @@ -2501,7 +2501,7 @@ _%e45114555%_ _%hd45124559%_ _%tl45134562%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (letrec ((_%loop45174571%_ @@ -2523,13 +2523,13 @@ _%body45214578%_)))) (let ((_%body45224591%_ (reverse _%body45214578%_))) - (_%__kont1900519006%_ + (_%__kont1906819069%_ _%tl45104552%_ _%body45224591%_ _%hd45124559%_ _%hd45064539%_)))))) (_%loop45174571%_ _%target45144565%_ '())))) - (_%__match1904719048%_ + (_%__match1911019111%_ (lambda (_%e44434815%_ _%hd44444819%_ _%tl44454822%_ @@ -2539,7 +2539,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1899718998%_ + _%__splice1906019061%_ _%target44524845%_ _%tl44544848%_) (letrec ((_%loop44554851%_ @@ -2562,12 +2562,12 @@ (let ((_%body44604871%_ (reverse _%body44594858%_))) (if (gx#stx-null? _%tl44484832%_) - (_%__kont1899518996%_ + (_%__kont1905819059%_ _%body44604871%_) - (_%__kont1899919000%_))))))) + (_%__kont1906219063%_))))))) (_%loop44554851%_ _%target44524845%_ '()))))) - (if (gx#stx-pair? _%__stx1899018991%_) - (let ((_%e44394910%_ (gx#syntax-e _%__stx1899018991%_))) + (if (gx#stx-pair? _%__stx1905319054%_) + (let ((_%e44394910%_ (gx#syntax-e _%__stx1905319054%_))) (let ((_%tl44414917%_ (let () (declare (not safe)) (##cdr _%e44394910%_))) (_%hd44404914%_ @@ -2575,7 +2575,7 @@ (declare (not safe)) (##car _%e44394910%_)))) (if (gx#stx-null? _%tl44414917%_) - (_%__kont1899318994%_) + (_%__kont1905619057%_) (if (gx#stx-pair? _%tl44414917%_) (let ((_%e44464825%_ (gx#syntax-e _%tl44414917%_))) @@ -2600,11 +2600,11 @@ (##car _%e44494835%_)))) (if (gx#identifier? _%hd44504839%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20911_| + |gerbil/core/sugar~Sugar-1[1]#_g20974_| _%hd44504839%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1899718998%_ + (let ((_%__splice1906019061%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2612,13 +2612,13 @@ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1899718998%_ '1))) + (##vector-ref _%__splice1906019061%_ '1))) (_%target44524845%_ (let () (declare (not safe)) - (##vector-ref _%__splice1899718998%_ '0)))) + (##vector-ref _%__splice1906019061%_ '0)))) (if (gx#stx-null? _%tl44544848%_) - (_%__match1904719048%_ + (_%__match1911019111%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2628,15 +2628,15 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1899718998%_ + _%__splice1906019061%_ _%target44524845%_ _%tl44544848%_) - (_%__kont1899919000%_)))) - (_%__kont1899919000%_)) + (_%__kont1906219063%_)))) + (_%__kont1906219063%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1900119002%_ + (_%__kont1906419065%_ _%tl44484832%_ _%hd44504839%_ _%hd44404914%_) @@ -2653,7 +2653,7 @@ (##car _%e44954666%_)))) (if (gx#identifier? _%hd44964670%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20912_| + |gerbil/core/sugar~Sugar-1[1]#_g20975_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2667,14 +2667,14 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1900319004%_ + (_%__kont1906619067%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2682,17 +2682,17 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2702,7 +2702,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2712,7 +2712,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2720,16 +2720,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2739,7 +2739,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2749,7 +2749,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2757,16 +2757,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2776,7 +2776,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2786,7 +2786,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2794,16 +2794,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2813,7 +2813,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2821,18 +2821,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1900719008%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1900719008%_ '0)))) + (##vector-ref _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2842,14 +2842,14 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? _%tl44514842%_) - (_%__kont1900119002%_ + (_%__kont1906419065%_ _%tl44484832%_ _%hd44504839%_ _%hd44404914%_) @@ -2867,7 +2867,7 @@ (let () (declare (not safe)) (##car _%e44954666%_)))) (if (gx#identifier? _%hd44964670%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-1[1]#_g20912_| + |gerbil/core/sugar~Sugar-1[1]#_g20975_| _%hd44964670%_) (if (gx#stx-pair? _%tl44974673%_) (let ((_%e44984676%_ @@ -2881,13 +2881,13 @@ (declare (not safe)) (##car _%e44984676%_)))) (if (gx#stx-null? _%tl45004683%_) - (_%__kont1900319004%_ + (_%__kont1906619067%_ _%tl44484832%_ _%hd44994680%_ _%hd44504839%_ _%hd44404914%_) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2895,16 +2895,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2914,7 +2914,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2924,7 +2924,7 @@ (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2932,16 +2932,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2951,7 +2951,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2961,7 +2961,7 @@ (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) @@ -2969,16 +2969,16 @@ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -2988,7 +2988,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -2996,20 +2996,20 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1900719008%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) (##vector-ref - _%__splice1900719008%_ + _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3019,7 +3019,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () @@ -3027,18 +3027,18 @@ (_%g44374528%_))))) (let () (declare (not safe)) (_%g44374528%_)))))) (if (gx#stx-pair/null? _%tl44514842%_) - (let ((_%__splice1900719008%_ + (let ((_%__splice1907019071%_ (gx#syntax-split-splice _%tl44514842%_ '0))) (let ((_%tl45164568%_ (let () (declare (not safe)) - (##vector-ref _%__splice1900719008%_ '1))) + (##vector-ref _%__splice1907019071%_ '1))) (_%target45144565%_ (let () (declare (not safe)) - (##vector-ref _%__splice1900719008%_ '0)))) + (##vector-ref _%__splice1907019071%_ '0)))) (if (gx#stx-null? _%tl45164568%_) - (_%__match1915119152%_ + (_%__match1921419215%_ _%e44394910%_ _%hd44404914%_ _%tl44414917%_ @@ -3048,7 +3048,7 @@ _%e44494835%_ _%hd44504839%_ _%tl44514842%_ - _%__splice1900719008%_ + _%__splice1907019071%_ _%target45144565%_ _%tl45164568%_) (let () (declare (not safe)) (_%g44374528%_))))) @@ -3103,37 +3103,37 @@ (##cdr _%e49454989%_)))) (if (gx#stx-pair/null? _%tl49474996%_) - (let ((_g20913_ + (let ((_g20976_ (gx#syntax-split-splice _%tl49474996%_ '0))) (begin - (let ((_g20914_ + (let ((_g20977_ (let () (declare (not safe)) (if (##values? - _g20913_) - (##vector-length - _g20913_) + _g20976_) + (##values-length + _g20976_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20914_ 2))) - (error "Context expects 2 values" _g20914_))) + (##fx= _g20977_ 2))) + (error "Context expects 2 values" _g20977_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target49484999%_ (let () (declare (not safe)) - (##vector-ref - _g20913_ + (##values-ref + _g20976_ 0))) (_%tl49505002%_ (let () (declare (not safe)) - (##vector-ref - _g20913_ + (##values-ref + _g20976_ 1)))) (if (gx#stx-null? _%tl49505002%_) @@ -3226,37 +3226,37 @@ (##cdr _%e50815125%_)))) (if (gx#stx-pair/null? _%tl50835132%_) - (let ((_g20915_ + (let ((_g20978_ (gx#syntax-split-splice _%tl50835132%_ '0))) (begin - (let ((_g20916_ + (let ((_g20979_ (let () (declare (not safe)) (if (##values? - _g20915_) - (##vector-length - _g20915_) + _g20978_) + (##values-length + _g20978_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20916_ 2))) - (error "Context expects 2 values" _g20916_))) + (##fx= _g20979_ 2))) + (error "Context expects 2 values" _g20979_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let ((_%target50845135%_ (let () (declare (not safe)) - (##vector-ref - _g20915_ + (##values-ref + _g20978_ 0))) (_%tl50865138%_ (let () (declare (not safe)) - (##vector-ref - _g20915_ + (##values-ref + _g20978_ 1)))) (if (gx#stx-null? _%tl50865138%_) @@ -3338,31 +3338,31 @@ (declare (not safe)) (##cdr _%e52125246%_)))) (if (gx#stx-pair/null? _%tl52145253%_) - (let ((_g20917_ + (let ((_g20980_ (gx#syntax-split-splice _%tl52145253%_ '0))) (begin - (let ((_g20918_ + (let ((_g20981_ (let () (declare (not safe)) - (if (##values? _g20917_) - (##vector-length - _g20917_) + (if (##values? _g20980_) + (##values-length + _g20980_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20918_ 2))) + (##fx= _g20981_ 2))) (error "Context expects 2 values" - _g20918_))) + _g20981_))) (let ((_%target52155256%_ (let () (declare (not safe)) - (##vector-ref _g20917_ 0))) + (##values-ref _g20980_ 0))) (_%tl52175259%_ (let () (declare (not safe)) - (##vector-ref _g20917_ 1)))) + (##values-ref _g20980_ 1)))) (if (gx#stx-null? _%tl52175259%_) (letrec ((_%loop52185262%_ (lambda (_%hd52165266%_ @@ -3408,4 +3408,54 @@ (_%g52055229%_ _%g52065233%_)))) (_%g52055229%_ _%g52065233%_)))) (_%g52055229%_ _%g52065233%_))))) - (_%g52045314%_ _%stx5202%_)))))) + (_%g52045314%_ _%stx5202%_)))) + (define |gerbil/core/sugar~Sugar-1[:0:]#compilation-target?| + (lambda (_%$stx5319%_) + (let* ((_%g53235337%_ + (lambda (_%g53245333%_) + (gx#raise-syntax-error + '#f + '"Bad syntax; invalid match target" + _%g53245333%_))) + (_%g53225378%_ + (lambda (_%g53245341%_) + (if (gx#stx-pair? _%g53245341%_) + (let ((_%e53265344%_ (gx#syntax-e _%g53245341%_))) + (let ((_%hd53275348%_ + (let () + (declare (not safe)) + (##car _%e53265344%_))) + (_%tl53285351%_ + (let () + (declare (not safe)) + (##cdr _%e53265344%_)))) + (if (gx#stx-pair? _%tl53285351%_) + (let ((_%e53295354%_ + (gx#syntax-e _%tl53285351%_))) + (let ((_%hd53305358%_ + (let () + (declare (not safe)) + (##car _%e53295354%_))) + (_%tl53315361%_ + (let () + (declare (not safe)) + (##cdr _%e53295354%_)))) + (if (gx#stx-null? _%tl53315361%_) + ((lambda (_%L5364%_) + (cons (gx#datum->syntax '#f 'eq?) + (cons (cons (gx#datum->syntax + '#f + 'current-compilation-target) + '()) + (cons (cons (gx#datum->syntax +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#f + 'quote) + (cons _%L5364%_ '())) + '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd53305358%_) + (_%g53235337%_ _%g53245341%_)))) + (_%g53235337%_ _%g53245341%_)))) + (_%g53235337%_ _%g53245341%_))))) + (_%g53225378%_ _%$stx5319%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~2.scm b/src/bootstrap/gerbil/core/sugar~2.scm index 0de2cb28d..2d4f34eb5 100644 --- a/src/bootstrap/gerbil/core/sugar~2.scm +++ b/src/bootstrap/gerbil/core/sugar~2.scm @@ -1,96 +1,96 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-2[1]#_g20954_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21017_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20955_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21018_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20956_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21019_| (##structure gx#syntax-quote::t '=> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20992_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21055_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20993_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21056_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g20994_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21057_| (##structure gx#syntax-quote::t 'values #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21001_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21064_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21002_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21065_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21003_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21066_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21004_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21067_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21005_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21068_| (##structure gx#syntax-quote::t 'quasiquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21006_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21069_| (##structure gx#syntax-quote::t 'unquote #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21007_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21070_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21008_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21071_| (##structure gx#syntax-quote::t 'unquote-splicing #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21009_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21072_| (##structure gx#syntax-quote::t '<> #f (gx#current-expander-context) '())) - (define |gerbil/core/sugar~Sugar-2[1]#_g21010_| + (define |gerbil/core/sugar~Sugar-2[1]#_g21073_| (##structure gx#syntax-quote::t '<...> @@ -99,2105 +99,2105 @@ '())) (begin (define |gerbil/core/sugar~Sugar-2[:0:]#lambda| - (lambda (_%stx5320%_) - (letrec ((_%simple-lambda?5323%_ - (lambda (_%hd8729%_) - (gx#stx-andmap gx#identifier? _%hd8729%_))) - (_%opt-lambda?5325%_ - (lambda (_%hd8581%_) - (let _%lp8584%_ ((_%rest8587%_ _%hd8581%_) - (_%opt?8589%_ '#f)) - (let* ((_%__stx1917819179%_ _%rest8587%_) - (_%g85928604%_ + (lambda (_%stx5383%_) + (letrec ((_%simple-lambda?5386%_ + (lambda (_%hd8792%_) + (gx#stx-andmap gx#identifier? _%hd8792%_))) + (_%opt-lambda?5388%_ + (lambda (_%hd8644%_) + (let _%lp8647%_ ((_%rest8650%_ _%hd8644%_) + (_%opt?8652%_ '#f)) + (let* ((_%__stx1924119242%_ _%rest8650%_) + (_%g86558667%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1917819179%_)))) - (let ((_%__kont1918119182%_ - (lambda (_%L8636%_ _%L8638%_) - (let* ((_%__stx1915419155%_ _%L8638%_) - (_%g86548668%_ + _%__stx1924119242%_)))) + (let ((_%__kont1924419245%_ + (lambda (_%L8699%_ _%L8701%_) + (let* ((_%__stx1921719218%_ _%L8701%_) + (_%g87178731%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1915419155%_)))) - (let ((_%__kont1915719158%_ - (lambda (_%L8706%_) - (_%lp8584%_ _%L8636%_ '#t))) - (_%__kont1915919160%_ + _%__stx1921719218%_)))) + (let ((_%__kont1922019221%_ + (lambda (_%L8769%_) + (_%lp8647%_ _%L8699%_ '#t))) + (_%__kont1922219223%_ (lambda () - (if (gx#identifier? _%L8638%_) - (if (not _%opt?8589%_) - (_%lp8584%_ _%L8636%_ '#f) + (if (gx#identifier? _%L8701%_) + (if (not _%opt?8652%_) + (_%lp8647%_ _%L8699%_ '#f) '#f) '#f)))) - (let ((_%__match1917519176%_ - (lambda (_%e86578686%_ - _%hd86588690%_ - _%tl86598693%_ - _%e86608696%_ - _%hd86618700%_ - _%tl86628703%_) - (let ((_%L8706%_ _%hd86588690%_)) - (if (gx#identifier? _%L8706%_) - (_%__kont1915719158%_ - _%L8706%_) - (_%__kont1915919160%_)))))) - (if (gx#stx-pair? _%__stx1915419155%_) - (let ((_%e86578686%_ + (let ((_%__match1923819239%_ + (lambda (_%e87208749%_ + _%hd87218753%_ + _%tl87228756%_ + _%e87238759%_ + _%hd87248763%_ + _%tl87258766%_) + (let ((_%L8769%_ _%hd87218753%_)) + (if (gx#identifier? _%L8769%_) + (_%__kont1922019221%_ + _%L8769%_) + (_%__kont1922219223%_)))))) + (if (gx#stx-pair? _%__stx1921719218%_) + (let ((_%e87208749%_ (gx#syntax-e - _%__stx1915419155%_))) - (let ((_%tl86598693%_ + _%__stx1921719218%_))) + (let ((_%tl87228756%_ (let () (declare (not safe)) - (##cdr _%e86578686%_))) - (_%hd86588690%_ + (##cdr _%e87208749%_))) + (_%hd87218753%_ (let () (declare (not safe)) - (##car _%e86578686%_)))) + (##car _%e87208749%_)))) (if (gx#stx-pair? - _%tl86598693%_) - (let ((_%e86608696%_ + _%tl87228756%_) + (let ((_%e87238759%_ (gx#syntax-e - _%tl86598693%_))) - (let ((_%tl86628703%_ + _%tl87228756%_))) + (let ((_%tl87258766%_ (let () (declare (not safe)) - (##cdr _%e86608696%_))) - (_%hd86618700%_ + (##cdr _%e87238759%_))) + (_%hd87248763%_ (let () (declare (not safe)) - (##car _%e86608696%_)))) + (##car _%e87238759%_)))) (if (gx#stx-null? - _%tl86628703%_) - (_%__match1917519176%_ - _%e86578686%_ - _%hd86588690%_ - _%tl86598693%_ - _%e86608696%_ - _%hd86618700%_ - _%tl86628703%_) - (_%__kont1915919160%_)))) - (_%__kont1915919160%_)))) - (_%__kont1915919160%_))))))) - (_%__kont1918319184%_ + _%tl87258766%_) + (_%__match1923819239%_ + _%e87208749%_ + _%hd87218753%_ + _%tl87228756%_ + _%e87238759%_ + _%hd87248763%_ + _%tl87258766%_) + (_%__kont1922219223%_)))) + (_%__kont1922219223%_)))) + (_%__kont1922219223%_))))))) + (_%__kont1924619247%_ (lambda () - (if _%opt?8589%_ - (let ((_%$e8615%_ - (gx#stx-null? _%rest8587%_))) - (if _%$e8615%_ - _%$e8615%_ - (gx#identifier? _%rest8587%_))) + (if _%opt?8652%_ + (let ((_%$e8678%_ + (gx#stx-null? _%rest8650%_))) + (if _%$e8678%_ + _%$e8678%_ + (gx#identifier? _%rest8650%_))) '#f)))) - (if (gx#stx-pair? _%__stx1917819179%_) - (let ((_%e85968626%_ - (gx#syntax-e _%__stx1917819179%_))) - (let ((_%tl85988633%_ + (if (gx#stx-pair? _%__stx1924119242%_) + (let ((_%e86598689%_ + (gx#syntax-e _%__stx1924119242%_))) + (let ((_%tl86618696%_ (let () (declare (not safe)) - (##cdr _%e85968626%_))) - (_%hd85978630%_ + (##cdr _%e86598689%_))) + (_%hd86608693%_ (let () (declare (not safe)) - (##car _%e85968626%_)))) - (_%__kont1918119182%_ - _%tl85988633%_ - _%hd85978630%_))) - (_%__kont1918319184%_))))))) - (_%opt-lambda-split5326%_ - (lambda (_%hd8433%_) - (let _%lp8436%_ ((_%rest8439%_ _%hd8433%_) - (_%pre8441%_ '()) - (_%opt8442%_ '())) - (let* ((_%__stx1921819219%_ _%rest8439%_) - (_%g84458457%_ + (##car _%e86598689%_)))) + (_%__kont1924419245%_ + _%tl86618696%_ + _%hd86608693%_))) + (_%__kont1924619247%_))))))) + (_%opt-lambda-split5389%_ + (lambda (_%hd8496%_) + (let _%lp8499%_ ((_%rest8502%_ _%hd8496%_) + (_%pre8504%_ '()) + (_%opt8505%_ '())) + (let* ((_%__stx1928119282%_ _%rest8502%_) + (_%g85088520%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1921819219%_)))) - (let ((_%__kont1922119222%_ - (lambda (_%L8485%_ _%L8487%_) - (let* ((_%__stx1919419195%_ _%L8487%_) - (_%g85038518%_ + _%__stx1928119282%_)))) + (let ((_%__kont1928419285%_ + (lambda (_%L8548%_ _%L8550%_) + (let* ((_%__stx1925719258%_ _%L8550%_) + (_%g85668581%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1919419195%_)))) - (let ((_%__kont1919719198%_ - (lambda (_%L8556%_ _%L8558%_) - (_%lp8436%_ - _%L8485%_ - _%pre8441%_ - (cons (cons _%L8558%_ _%L8556%_) - _%opt8442%_)))) - (_%__kont1919919200%_ + _%__stx1925719258%_)))) + (let ((_%__kont1926019261%_ + (lambda (_%L8619%_ _%L8621%_) + (_%lp8499%_ + _%L8548%_ + _%pre8504%_ + (cons (cons _%L8621%_ _%L8619%_) + _%opt8505%_)))) + (_%__kont1926219263%_ (lambda () - (_%lp8436%_ - _%L8485%_ - (cons _%L8487%_ _%pre8441%_) - _%opt8442%_)))) - (if (gx#stx-pair? _%__stx1919419195%_) - (let ((_%e85078536%_ + (_%lp8499%_ + _%L8548%_ + (cons _%L8550%_ _%pre8504%_) + _%opt8505%_)))) + (if (gx#stx-pair? _%__stx1925719258%_) + (let ((_%e85708599%_ (gx#syntax-e - _%__stx1919419195%_))) - (let ((_%tl85098543%_ + _%__stx1925719258%_))) + (let ((_%tl85728606%_ (let () (declare (not safe)) - (##cdr _%e85078536%_))) - (_%hd85088540%_ + (##cdr _%e85708599%_))) + (_%hd85718603%_ (let () (declare (not safe)) - (##car _%e85078536%_)))) - (if (gx#stx-pair? _%tl85098543%_) - (let ((_%e85108546%_ + (##car _%e85708599%_)))) + (if (gx#stx-pair? _%tl85728606%_) + (let ((_%e85738609%_ (gx#syntax-e - _%tl85098543%_))) - (let ((_%tl85128553%_ + _%tl85728606%_))) + (let ((_%tl85758616%_ (let () (declare (not safe)) - (##cdr _%e85108546%_))) - (_%hd85118550%_ + (##cdr _%e85738609%_))) + (_%hd85748613%_ (let () (declare (not safe)) - (##car _%e85108546%_)))) + (##car _%e85738609%_)))) (if (gx#stx-null? - _%tl85128553%_) - (_%__kont1919719198%_ - _%hd85118550%_ - _%hd85088540%_) - (_%__kont1919919200%_)))) - (_%__kont1919919200%_)))) - (_%__kont1919919200%_)))))) - (_%__kont1922319224%_ + _%tl85758616%_) + (_%__kont1926019261%_ + _%hd85748613%_ + _%hd85718603%_) + (_%__kont1926219263%_)))) + (_%__kont1926219263%_)))) + (_%__kont1926219263%_)))))) + (_%__kont1928619287%_ (lambda () - (values (reverse _%pre8441%_) - (reverse _%opt8442%_) - _%rest8439%_)))) - (if (gx#stx-pair? _%__stx1921819219%_) - (let ((_%e84498475%_ - (gx#syntax-e _%__stx1921819219%_))) - (let ((_%tl84518482%_ + (values (reverse _%pre8504%_) + (reverse _%opt8505%_) + _%rest8502%_)))) + (if (gx#stx-pair? _%__stx1928119282%_) + (let ((_%e85128538%_ + (gx#syntax-e _%__stx1928119282%_))) + (let ((_%tl85148545%_ (let () (declare (not safe)) - (##cdr _%e84498475%_))) - (_%hd84508479%_ + (##cdr _%e85128538%_))) + (_%hd85138542%_ (let () (declare (not safe)) - (##car _%e84498475%_)))) - (_%__kont1922119222%_ - _%tl84518482%_ - _%hd84508479%_))) - (_%__kont1922319224%_))))))) - (_%kw-lambda?5327%_ - (lambda (_%hd8101%_) - (let _%lp8104%_ ((_%rest8107%_ _%hd8101%_) - (_%opt?8109%_ '#f) - (_%key?8110%_ '#f)) - (let* ((_%__stx1928219283%_ _%rest8107%_) - (_%g81158145%_ + (##car _%e85128538%_)))) + (_%__kont1928419285%_ + _%tl85148545%_ + _%hd85138542%_))) + (_%__kont1928619287%_))))))) + (_%kw-lambda?5390%_ + (lambda (_%hd8164%_) + (let _%lp8167%_ ((_%rest8170%_ _%hd8164%_) + (_%opt?8172%_ '#f) + (_%key?8173%_ '#f)) + (let* ((_%__stx1934519346%_ _%rest8170%_) + (_%g81788208%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1928219283%_)))) - (let ((_%__kont1928519286%_ - (lambda (_%L8340%_ _%L8342%_ _%L8343%_) - (let* ((_%__stx1925819259%_ _%L8342%_) - (_%g83588372%_ + _%__stx1934519346%_)))) + (let ((_%__kont1934819349%_ + (lambda (_%L8403%_ _%L8405%_ _%L8406%_) + (let* ((_%__stx1932119322%_ _%L8405%_) + (_%g84218435%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1925819259%_)))) - (let ((_%__kont1926119262%_ - (lambda (_%L8410%_) - (if (gx#identifier? _%L8410%_) - (_%lp8104%_ - _%L8340%_ - _%opt?8109%_ + _%__stx1932119322%_)))) + (let ((_%__kont1932419325%_ + (lambda (_%L8473%_) + (if (gx#identifier? _%L8473%_) + (_%lp8167%_ + _%L8403%_ + _%opt?8172%_ '#t) '#f))) - (_%__kont1926319264%_ + (_%__kont1932619327%_ (lambda () - (if (gx#identifier? _%L8342%_) - (_%lp8104%_ - _%L8340%_ - _%opt?8109%_ + (if (gx#identifier? _%L8405%_) + (_%lp8167%_ + _%L8403%_ + _%opt?8172%_ '#t) '#f)))) - (if (gx#stx-pair? _%__stx1925819259%_) - (let ((_%e83618390%_ + (if (gx#stx-pair? _%__stx1932119322%_) + (let ((_%e84248453%_ (gx#syntax-e - _%__stx1925819259%_))) - (let ((_%tl83638397%_ + _%__stx1932119322%_))) + (let ((_%tl84268460%_ (let () (declare (not safe)) - (##cdr _%e83618390%_))) - (_%hd83628394%_ + (##cdr _%e84248453%_))) + (_%hd84258457%_ (let () (declare (not safe)) - (##car _%e83618390%_)))) - (if (gx#stx-pair? _%tl83638397%_) - (let ((_%e83648400%_ + (##car _%e84248453%_)))) + (if (gx#stx-pair? _%tl84268460%_) + (let ((_%e84278463%_ (gx#syntax-e - _%tl83638397%_))) - (let ((_%tl83668407%_ + _%tl84268460%_))) + (let ((_%tl84298470%_ (let () (declare (not safe)) - (##cdr _%e83648400%_))) - (_%hd83658404%_ + (##cdr _%e84278463%_))) + (_%hd84288467%_ (let () (declare (not safe)) - (##car _%e83648400%_)))) + (##car _%e84278463%_)))) (if (gx#stx-null? - _%tl83668407%_) - (_%__kont1926119262%_ - _%hd83628394%_) - (_%__kont1926319264%_)))) - (_%__kont1926319264%_)))) - (_%__kont1926319264%_)))))) - (_%__kont1928719288%_ - (lambda (_%L8297%_ _%L8299%_) - (if (gx#identifier? _%L8299%_) - (_%lp8104%_ _%L8297%_ _%opt?8109%_ '#t) + _%tl84298470%_) + (_%__kont1932419325%_ + _%hd84258457%_) + (_%__kont1932619327%_)))) + (_%__kont1932619327%_)))) + (_%__kont1932619327%_)))))) + (_%__kont1935019351%_ + (lambda (_%L8360%_ _%L8362%_) + (if (gx#identifier? _%L8362%_) + (_%lp8167%_ _%L8360%_ _%opt?8172%_ '#t) '#f))) - (_%__kont1928919290%_ - (lambda (_%L8177%_ _%L8179%_) - (let* ((_%__stx1923419235%_ _%L8179%_) - (_%g81958209%_ + (_%__kont1935219353%_ + (lambda (_%L8240%_ _%L8242%_) + (let* ((_%__stx1929719298%_ _%L8242%_) + (_%g82588272%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1923419235%_)))) - (let ((_%__kont1923719238%_ - (lambda (_%L8247%_) - (if (gx#identifier? _%L8247%_) - (_%lp8104%_ - _%L8177%_ + _%__stx1929719298%_)))) + (let ((_%__kont1930019301%_ + (lambda (_%L8310%_) + (if (gx#identifier? _%L8310%_) + (_%lp8167%_ + _%L8240%_ '#t - _%key?8110%_) + _%key?8173%_) '#f))) - (_%__kont1923919240%_ + (_%__kont1930219303%_ (lambda () - (if (gx#identifier? _%L8179%_) - (if (not _%opt?8109%_) - (_%lp8104%_ - _%L8177%_ + (if (gx#identifier? _%L8242%_) + (if (not _%opt?8172%_) + (_%lp8167%_ + _%L8240%_ '#f - _%key?8110%_) + _%key?8173%_) '#f) '#f)))) - (if (gx#stx-pair? _%__stx1923419235%_) - (let ((_%e81988227%_ + (if (gx#stx-pair? _%__stx1929719298%_) + (let ((_%e82618290%_ (gx#syntax-e - _%__stx1923419235%_))) - (let ((_%tl82008234%_ + _%__stx1929719298%_))) + (let ((_%tl82638297%_ (let () (declare (not safe)) - (##cdr _%e81988227%_))) - (_%hd81998231%_ + (##cdr _%e82618290%_))) + (_%hd82628294%_ (let () (declare (not safe)) - (##car _%e81988227%_)))) - (if (gx#stx-pair? _%tl82008234%_) - (let ((_%e82018237%_ + (##car _%e82618290%_)))) + (if (gx#stx-pair? _%tl82638297%_) + (let ((_%e82648300%_ (gx#syntax-e - _%tl82008234%_))) - (let ((_%tl82038244%_ + _%tl82638297%_))) + (let ((_%tl82668307%_ (let () (declare (not safe)) - (##cdr _%e82018237%_))) - (_%hd82028241%_ + (##cdr _%e82648300%_))) + (_%hd82658304%_ (let () (declare (not safe)) - (##car _%e82018237%_)))) + (##car _%e82648300%_)))) (if (gx#stx-null? - _%tl82038244%_) - (_%__kont1923719238%_ - _%hd81998231%_) - (_%__kont1923919240%_)))) - (_%__kont1923919240%_)))) - (_%__kont1923919240%_)))))) - (_%__kont1929119292%_ + _%tl82668307%_) + (_%__kont1930019301%_ + _%hd82628294%_) + (_%__kont1930219303%_)))) + (_%__kont1930219303%_)))) + (_%__kont1930219303%_)))))) + (_%__kont1935419355%_ (lambda () - (if _%key?8110%_ - (let ((_%$e8156%_ - (gx#stx-null? _%rest8107%_))) - (if _%$e8156%_ - _%$e8156%_ - (gx#identifier? _%rest8107%_))) + (if _%key?8173%_ + (let ((_%$e8219%_ + (gx#stx-null? _%rest8170%_))) + (if _%$e8219%_ + _%$e8219%_ + (gx#identifier? _%rest8170%_))) '#f)))) - (let ((_%__match1930519306%_ - (lambda (_%e81208320%_ - _%hd81218324%_ - _%tl81228327%_ - _%e81238330%_ - _%hd81248334%_ - _%tl81258337%_) - (let ((_%L8340%_ _%tl81258337%_) - (_%L8342%_ _%hd81248334%_) - (_%L8343%_ _%hd81218324%_)) - (if (gx#stx-keyword? _%L8343%_) - (_%__kont1928519286%_ - _%L8340%_ - _%L8342%_ - _%L8343%_) - (if (gx#stx-datum? _%hd81218324%_) - (let ((_%e81318283%_ - (gx#stx-e _%hd81218324%_))) - (if (equal? _%e81318283%_ + (let ((_%__match1936819369%_ + (lambda (_%e81838383%_ + _%hd81848387%_ + _%tl81858390%_ + _%e81868393%_ + _%hd81878397%_ + _%tl81888400%_) + (let ((_%L8403%_ _%tl81888400%_) + (_%L8405%_ _%hd81878397%_) + (_%L8406%_ _%hd81848387%_)) + (if (gx#stx-keyword? _%L8406%_) + (_%__kont1934819349%_ + _%L8403%_ + _%L8405%_ + _%L8406%_) + (if (gx#stx-datum? _%hd81848387%_) + (let ((_%e81948346%_ + (gx#stx-e _%hd81848387%_))) + (if (equal? _%e81948346%_ '#!key) - (_%__kont1928719288%_ - _%tl81258337%_ - _%hd81248334%_) - (_%__kont1928919290%_ - _%tl81228327%_ - _%hd81218324%_))) - (_%__kont1928919290%_ - _%tl81228327%_ - _%hd81218324%_))))))) - (if (gx#stx-pair? _%__stx1928219283%_) - (let ((_%e81208320%_ - (gx#syntax-e _%__stx1928219283%_))) - (let ((_%tl81228327%_ + (_%__kont1935019351%_ + _%tl81888400%_ + _%hd81878397%_) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))))))) + (if (gx#stx-pair? _%__stx1934519346%_) + (let ((_%e81838383%_ + (gx#syntax-e _%__stx1934519346%_))) + (let ((_%tl81858390%_ (let () (declare (not safe)) - (##cdr _%e81208320%_))) - (_%hd81218324%_ + (##cdr _%e81838383%_))) + (_%hd81848387%_ (let () (declare (not safe)) - (##car _%e81208320%_)))) - (if (gx#stx-pair? _%tl81228327%_) - (let ((_%e81238330%_ - (gx#syntax-e _%tl81228327%_))) - (let ((_%tl81258337%_ + (##car _%e81838383%_)))) + (if (gx#stx-pair? _%tl81858390%_) + (let ((_%e81868393%_ + (gx#syntax-e _%tl81858390%_))) + (let ((_%tl81888400%_ (let () (declare (not safe)) - (##cdr _%e81238330%_))) - (_%hd81248334%_ + (##cdr _%e81868393%_))) + (_%hd81878397%_ (let () (declare (not safe)) - (##car _%e81238330%_)))) - (_%__match1930519306%_ - _%e81208320%_ - _%hd81218324%_ - _%tl81228327%_ - _%e81238330%_ - _%hd81248334%_ - _%tl81258337%_))) - (if (gx#stx-datum? _%hd81218324%_) - (let ((_%e81318283%_ - (gx#stx-e _%hd81218324%_))) - (_%__kont1928919290%_ - _%tl81228327%_ - _%hd81218324%_)) - (_%__kont1928919290%_ - _%tl81228327%_ - _%hd81218324%_))))) - (_%__kont1929119292%_)))))))) - (_%kw-lambda-split5328%_ - (lambda (_%hd7834%_) - (let _%lp7837%_ ((_%rest7840%_ _%hd7834%_) - (_%kwvar7842%_ '#f) - (_%kwargs7843%_ '()) - (_%args7844%_ '())) - (let* ((_%__stx1935619357%_ _%rest7840%_) - (_%g78497879%_ + (##car _%e81868393%_)))) + (_%__match1936819369%_ + _%e81838383%_ + _%hd81848387%_ + _%tl81858390%_ + _%e81868393%_ + _%hd81878397%_ + _%tl81888400%_))) + (if (gx#stx-datum? _%hd81848387%_) + (let ((_%e81948346%_ + (gx#stx-e _%hd81848387%_))) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_)) + (_%__kont1935219353%_ + _%tl81858390%_ + _%hd81848387%_))))) + (_%__kont1935419355%_)))))))) + (_%kw-lambda-split5391%_ + (lambda (_%hd7897%_) + (let _%lp7900%_ ((_%rest7903%_ _%hd7897%_) + (_%kwvar7905%_ '#f) + (_%kwargs7906%_ '()) + (_%args7907%_ '())) + (let* ((_%__stx1941919420%_ _%rest7903%_) + (_%g79127942%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1935619357%_)))) - (let ((_%__kont1935919360%_ - (lambda (_%L7998%_ _%L8000%_ _%L8001%_) - (let ((_%key8015%_ (gx#stx-e _%L8001%_))) - (if (find (lambda (_%kwarg8018%_) - (eq? _%key8015%_ - (car _%kwarg8018%_))) - _%kwargs7843%_) + _%__stx1941919420%_)))) + (let ((_%__kont1942219423%_ + (lambda (_%L8061%_ _%L8063%_ _%L8064%_) + (let ((_%key8078%_ (gx#stx-e _%L8064%_))) + (if (find (lambda (_%kwarg8081%_) + (eq? _%key8078%_ + (car _%kwarg8081%_))) + _%kwargs7906%_) (gx#raise-syntax-error '#f '"bad syntax; duplicate keyword argument" - _%stx5320%_ - _%hd7834%_ - _%key8015%_) - (let* ((_%__stx1933219333%_ _%L8000%_) - (_%g80228037%_ + _%stx5383%_ + _%hd7897%_ + _%key8078%_) + (let* ((_%__stx1939519396%_ _%L8063%_) + (_%g80858100%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1933219333%_)))) - (let ((_%__kont1933519336%_ - (lambda (_%L8075%_ _%L8077%_) - (_%lp7837%_ - _%L7998%_ - _%kwvar7842%_ - (cons (list _%key8015%_ - _%L8077%_ - _%L8075%_) - _%kwargs7843%_) - _%args7844%_))) - (_%__kont1933719338%_ + _%__stx1939519396%_)))) + (let ((_%__kont1939819399%_ + (lambda (_%L8138%_ _%L8140%_) + (_%lp7900%_ + _%L8061%_ + _%kwvar7905%_ + (cons (list _%key8078%_ + _%L8140%_ + _%L8138%_) + _%kwargs7906%_) + _%args7907%_))) + (_%__kont1940019401%_ (lambda () - (_%lp7837%_ - _%L7998%_ - _%kwvar7842%_ - (cons (list _%key8015%_ - _%L8000%_ + (_%lp7900%_ + _%L8061%_ + _%kwvar7905%_ + (cons (list _%key8078%_ + _%L8063%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) (cons '"Missing required keyword argument" - (cons _%L8001%_ '())))) - _%kwargs7843%_) + (cons _%L8064%_ '())))) + _%kwargs7906%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%args7844%_)))) + _%args7907%_)))) (if (gx#stx-pair? - _%__stx1933219333%_) - (let ((_%e80268055%_ + _%__stx1939519396%_) + (let ((_%e80898118%_ (gx#syntax-e - _%__stx1933219333%_))) - (let ((_%tl80288062%_ + _%__stx1939519396%_))) + (let ((_%tl80918125%_ (let () (declare (not safe)) - (##cdr _%e80268055%_))) - (_%hd80278059%_ + (##cdr _%e80898118%_))) + (_%hd80908122%_ (let () (declare (not safe)) - (##car _%e80268055%_)))) + (##car _%e80898118%_)))) (if (gx#stx-pair? - _%tl80288062%_) - (let ((_%e80298065%_ + _%tl80918125%_) + (let ((_%e80928128%_ (gx#syntax-e - _%tl80288062%_))) - (let ((_%tl80318072%_ + _%tl80918125%_))) + (let ((_%tl80948135%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e80298065%_))) - (_%hd80308069%_ - (let () (declare (not safe)) (##car _%e80298065%_)))) - (if (gx#stx-null? _%tl80318072%_) - (_%__kont1933519336%_ _%hd80308069%_ _%hd80278059%_) - (_%__kont1933719338%_)))) - (_%__kont1933719338%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1933719338%_)))))))) - (_%__kont1936119362%_ - (lambda (_%L7955%_ _%L7957%_) - (if _%kwvar7842%_ + (##cdr _%e80928128%_))) + (_%hd80938132%_ + (let () (declare (not safe)) (##car _%e80928128%_)))) + (if (gx#stx-null? _%tl80948135%_) + (_%__kont1939819399%_ _%hd80938132%_ _%hd80908122%_) + (_%__kont1940019401%_)))) + (_%__kont1940019401%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1940019401%_)))))))) + (_%__kont1942419425%_ + (lambda (_%L8018%_ _%L8020%_) + (if _%kwvar7905%_ (gx#raise-syntax-error '#f '"bad syntax; duplicate #!key argument" - _%stx5320%_ - _%hd7834%_ - _%L7957%_) - (_%lp7837%_ - _%L7955%_ - _%L7957%_ - _%kwargs7843%_ - _%args7844%_)))) - (_%__kont1936319364%_ - (lambda (_%L7907%_ _%L7909%_) - (_%lp7837%_ - _%L7907%_ - _%kwvar7842%_ - _%kwargs7843%_ - (cons _%L7909%_ _%args7844%_)))) - (_%__kont1936519366%_ + _%stx5383%_ + _%hd7897%_ + _%L8020%_) + (_%lp7900%_ + _%L8018%_ + _%L8020%_ + _%kwargs7906%_ + _%args7907%_)))) + (_%__kont1942619427%_ + (lambda (_%L7970%_ _%L7972%_) + (_%lp7900%_ + _%L7970%_ + _%kwvar7905%_ + _%kwargs7906%_ + (cons _%L7972%_ _%args7907%_)))) + (_%__kont1942819429%_ (lambda () - (values _%kwvar7842%_ - (reverse _%kwargs7843%_) + (values _%kwvar7905%_ + (reverse _%kwargs7906%_) (foldl cons - _%rest7840%_ - _%args7844%_))))) - (let ((_%__match1937919380%_ - (lambda (_%e78547978%_ - _%hd78557982%_ - _%tl78567985%_ - _%e78577988%_ - _%hd78587992%_ - _%tl78597995%_) - (let ((_%L7998%_ _%tl78597995%_) - (_%L8000%_ _%hd78587992%_) - (_%L8001%_ _%hd78557982%_)) - (if (gx#stx-keyword? _%L8001%_) - (_%__kont1935919360%_ - _%L7998%_ - _%L8000%_ - _%L8001%_) - (if (gx#stx-datum? _%hd78557982%_) - (let ((_%e78657941%_ - (gx#stx-e _%hd78557982%_))) - (if (equal? _%e78657941%_ + _%rest7903%_ + _%args7907%_))))) + (let ((_%__match1944219443%_ + (lambda (_%e79178041%_ + _%hd79188045%_ + _%tl79198048%_ + _%e79208051%_ + _%hd79218055%_ + _%tl79228058%_) + (let ((_%L8061%_ _%tl79228058%_) + (_%L8063%_ _%hd79218055%_) + (_%L8064%_ _%hd79188045%_)) + (if (gx#stx-keyword? _%L8064%_) + (_%__kont1942219423%_ + _%L8061%_ + _%L8063%_ + _%L8064%_) + (if (gx#stx-datum? _%hd79188045%_) + (let ((_%e79288004%_ + (gx#stx-e _%hd79188045%_))) + (if (equal? _%e79288004%_ '#!key) - (_%__kont1936119362%_ - _%tl78597995%_ - _%hd78587992%_) - (_%__kont1936319364%_ - _%tl78567985%_ - _%hd78557982%_))) - (_%__kont1936319364%_ - _%tl78567985%_ - _%hd78557982%_))))))) - (if (gx#stx-pair? _%__stx1935619357%_) - (let ((_%e78547978%_ - (gx#syntax-e _%__stx1935619357%_))) - (let ((_%tl78567985%_ + (_%__kont1942419425%_ + _%tl79228058%_ + _%hd79218055%_) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))))))) + (if (gx#stx-pair? _%__stx1941919420%_) + (let ((_%e79178041%_ + (gx#syntax-e _%__stx1941919420%_))) + (let ((_%tl79198048%_ (let () (declare (not safe)) - (##cdr _%e78547978%_))) - (_%hd78557982%_ + (##cdr _%e79178041%_))) + (_%hd79188045%_ (let () (declare (not safe)) - (##car _%e78547978%_)))) - (if (gx#stx-pair? _%tl78567985%_) - (let ((_%e78577988%_ - (gx#syntax-e _%tl78567985%_))) - (let ((_%tl78597995%_ + (##car _%e79178041%_)))) + (if (gx#stx-pair? _%tl79198048%_) + (let ((_%e79208051%_ + (gx#syntax-e _%tl79198048%_))) + (let ((_%tl79228058%_ (let () (declare (not safe)) - (##cdr _%e78577988%_))) - (_%hd78587992%_ + (##cdr _%e79208051%_))) + (_%hd79218055%_ (let () (declare (not safe)) - (##car _%e78577988%_)))) - (_%__match1937919380%_ - _%e78547978%_ - _%hd78557982%_ - _%tl78567985%_ - _%e78577988%_ - _%hd78587992%_ - _%tl78597995%_))) - (if (gx#stx-datum? _%hd78557982%_) - (let ((_%e78657941%_ - (gx#stx-e _%hd78557982%_))) - (_%__kont1936319364%_ - _%tl78567985%_ - _%hd78557982%_)) - (_%__kont1936319364%_ - _%tl78567985%_ - _%hd78557982%_))))) - (_%__kont1936519366%_)))))))) - (_%check-duplicate-bindings5329%_ - (lambda (_%hd7526%_) - (let _%lp7529%_ ((_%rest7532%_ _%hd7526%_) - (_%ids7534%_ '())) - (let* ((_%__stx1943019431%_ _%rest7532%_) - (_%g75377549%_ + (##car _%e79208051%_)))) + (_%__match1944219443%_ + _%e79178041%_ + _%hd79188045%_ + _%tl79198048%_ + _%e79208051%_ + _%hd79218055%_ + _%tl79228058%_))) + (if (gx#stx-datum? _%hd79188045%_) + (let ((_%e79288004%_ + (gx#stx-e _%hd79188045%_))) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_)) + (_%__kont1942619427%_ + _%tl79198048%_ + _%hd79188045%_))))) + (_%__kont1942819429%_)))))))) + (_%check-duplicate-bindings5392%_ + (lambda (_%hd7589%_) + (let _%lp7592%_ ((_%rest7595%_ _%hd7589%_) + (_%ids7597%_ '())) + (let* ((_%__stx1949319494%_ _%rest7595%_) + (_%g76007612%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1943019431%_)))) - (let ((_%__kont1943319434%_ - (lambda (_%L7577%_ _%L7579%_) - (if (gx#identifier? _%L7579%_) - (_%lp7529%_ - _%L7577%_ - (cons _%L7579%_ _%ids7534%_)) - (if (gx#stx-pair? _%L7579%_) - (let* ((_%g75987612%_ - (lambda (_%g75997608%_) + _%__stx1949319494%_)))) + (let ((_%__kont1949619497%_ + (lambda (_%L7640%_ _%L7642%_) + (if (gx#identifier? _%L7642%_) + (_%lp7592%_ + _%L7640%_ + (cons _%L7642%_ _%ids7597%_)) + (if (gx#stx-pair? _%L7642%_) + (let* ((_%g76617675%_ + (lambda (_%g76627671%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g75997608%_))) - (_%g75977654%_ - (lambda (_%g75997616%_) + _%g76627671%_))) + (_%g76607717%_ + (lambda (_%g76627679%_) (if (gx#stx-pair? - _%g75997616%_) - (let ((_%e76017619%_ + _%g76627679%_) + (let ((_%e76647682%_ (gx#syntax-e - _%g75997616%_))) - (let ((_%hd76027623%_ + _%g76627679%_))) + (let ((_%hd76657686%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e76017619%_))) - (_%tl76037626%_ - (let () (declare (not safe)) (##cdr _%e76017619%_)))) - (if (gx#stx-pair? _%tl76037626%_) - (let ((_%e76047629%_ (gx#syntax-e _%tl76037626%_))) - (let ((_%hd76057633%_ + (##car _%e76647682%_))) + (_%tl76667689%_ + (let () (declare (not safe)) (##cdr _%e76647682%_)))) + (if (gx#stx-pair? _%tl76667689%_) + (let ((_%e76677692%_ (gx#syntax-e _%tl76667689%_))) + (let ((_%hd76687696%_ (let () (declare (not safe)) - (##car _%e76047629%_))) - (_%tl76067636%_ + (##car _%e76677692%_))) + (_%tl76697699%_ (let () (declare (not safe)) - (##cdr _%e76047629%_)))) - (if (gx#stx-null? _%tl76067636%_) - ((lambda (_%L7639%_) - (_%lp7529%_ - _%L7577%_ - (cons _%L7639%_ _%ids7534%_))) - _%hd76027623%_) - (_%g75987612%_ _%g75997616%_)))) - (_%g75987612%_ _%g75997616%_)))) - (_%g75987612%_ _%g75997616%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g75977654%_ _%L7579%_)) - (if (gx#stx-keyword? _%L7579%_) - (let* ((_%g76607672%_ - (lambda (_%g76617668%_) + (##cdr _%e76677692%_)))) + (if (gx#stx-null? _%tl76697699%_) + ((lambda (_%L7702%_) + (_%lp7592%_ + _%L7640%_ + (cons _%L7702%_ _%ids7597%_))) + _%hd76657686%_) + (_%g76617675%_ _%g76627679%_)))) + (_%g76617675%_ _%g76627679%_)))) + (_%g76617675%_ _%g76627679%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g76607717%_ _%L7642%_)) + (if (gx#stx-keyword? _%L7642%_) + (let* ((_%g77237735%_ + (lambda (_%g77247731%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g76617668%_))) - (_%g76597775%_ - (lambda (_%g76617676%_) + _%g77247731%_))) + (_%g77227838%_ + (lambda (_%g77247739%_) (if (gx#stx-pair? - _%g76617676%_) - (let ((_%e76647679%_ + _%g77247739%_) + (let ((_%e77277742%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g76617676%_))) - (let ((_%hd76657683%_ + (gx#syntax-e _%g77247739%_))) + (let ((_%hd77287746%_ (let () (declare (not safe)) - (##car _%e76647679%_))) - (_%tl76667686%_ + (##car _%e77277742%_))) + (_%tl77297749%_ (let () (declare (not safe)) - (##cdr _%e76647679%_)))) - ((lambda (_%L7689%_ _%L7691%_) - (let* ((_%__stx1940619407%_ _%L7691%_) - (_%g77047718%_ + (##cdr _%e77277742%_)))) + ((lambda (_%L7752%_ _%L7754%_) + (let* ((_%__stx1946919470%_ _%L7754%_) + (_%g77677781%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1940619407%_)))) - (let ((_%__kont1940919410%_ - (lambda (_%L7756%_) - (_%lp7529%_ - _%L7689%_ - (cons _%L7756%_ _%ids7534%_)))) - (_%__kont1941119412%_ + _%__stx1946919470%_)))) + (let ((_%__kont1947219473%_ + (lambda (_%L7819%_) + (_%lp7592%_ + _%L7752%_ + (cons _%L7819%_ _%ids7597%_)))) + (_%__kont1947419475%_ (lambda () - (_%lp7529%_ - _%L7689%_ - (cons _%L7691%_ _%ids7534%_))))) - (if (gx#stx-pair? _%__stx1940619407%_) - (let ((_%e77077736%_ - (gx#syntax-e _%__stx1940619407%_))) - (let ((_%tl77097743%_ + (_%lp7592%_ + _%L7752%_ + (cons _%L7754%_ _%ids7597%_))))) + (if (gx#stx-pair? _%__stx1946919470%_) + (let ((_%e77707799%_ + (gx#syntax-e _%__stx1946919470%_))) + (let ((_%tl77727806%_ (let () (declare (not safe)) - (##cdr _%e77077736%_))) - (_%hd77087740%_ + (##cdr _%e77707799%_))) + (_%hd77717803%_ (let () (declare (not safe)) - (##car _%e77077736%_)))) - (if (gx#stx-pair? _%tl77097743%_) - (let ((_%e77107746%_ - (gx#syntax-e _%tl77097743%_))) - (let ((_%tl77127753%_ + (##car _%e77707799%_)))) + (if (gx#stx-pair? _%tl77727806%_) + (let ((_%e77737809%_ + (gx#syntax-e _%tl77727806%_))) + (let ((_%tl77757816%_ (let () (declare (not safe)) - (##cdr _%e77107746%_))) - (_%hd77117750%_ + (##cdr _%e77737809%_))) + (_%hd77747813%_ (let () (declare (not safe)) - (##car _%e77107746%_)))) - (if (gx#stx-null? _%tl77127753%_) - (_%__kont1940919410%_ - _%hd77087740%_) - (_%__kont1941119412%_)))) - (_%__kont1941119412%_)))) - (_%__kont1941119412%_))))) - _%tl76667686%_ - _%hd76657683%_))) - (_%g76607672%_ _%g76617676%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g76597775%_ _%L7577%_)) - (if (eq? (gx#stx-e _%L7579%_) + (##car _%e77737809%_)))) + (if (gx#stx-null? _%tl77757816%_) + (_%__kont1947219473%_ + _%hd77717803%_) + (_%__kont1947419475%_)))) + (_%__kont1947419475%_)))) + (_%__kont1947419475%_))))) + _%tl77297749%_ + _%hd77287746%_))) + (_%g77237735%_ _%g77247739%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g77227838%_ _%L7640%_)) + (if (eq? (gx#stx-e _%L7642%_) '#!key) - (let* ((_%g77817793%_ - (lambda (_%g77827789%_) + (let* ((_%g78447856%_ + (lambda (_%g78457852%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g77827789%_))) - (_%g77807824%_ - (lambda (_%g77827797%_) + _%g78457852%_))) + (_%g78437887%_ + (lambda (_%g78457860%_) (if (gx#stx-pair? - _%g77827797%_) - (let ((_%e77857800%_ + _%g78457860%_) + (let ((_%e78487863%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g77827797%_))) - (let ((_%hd77867804%_ + (gx#syntax-e _%g78457860%_))) + (let ((_%hd78497867%_ (let () (declare (not safe)) - (##car _%e77857800%_))) - (_%tl77877807%_ + (##car _%e78487863%_))) + (_%tl78507870%_ (let () (declare (not safe)) - (##cdr _%e77857800%_)))) - ((lambda (_%L7810%_ _%L7812%_) - (_%lp7529%_ - _%L7810%_ - (cons _%L7812%_ _%ids7534%_))) - _%tl77877807%_ - _%hd77867804%_))) - (_%g77817793%_ _%g77827797%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g77807824%_ _%L7577%_)) + (##cdr _%e78487863%_)))) + ((lambda (_%L7873%_ _%L7875%_) + (_%lp7592%_ + _%L7873%_ + (cons _%L7875%_ _%ids7597%_))) + _%tl78507870%_ + _%hd78497867%_))) + (_%g78447856%_ _%g78457860%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g78437887%_ _%L7640%_)) (error '"BUG: check-duplicate-bindings" - _%stx5320%_ - _%rest7532%_))))))) - (_%__kont1943519436%_ + _%stx5383%_ + _%rest7595%_))))))) + (_%__kont1949819499%_ (lambda () (gx#check-duplicate-identifiers - (if (gx#stx-null? _%rest7532%_) - _%ids7534%_ - (cons _%rest7532%_ _%ids7534%_)) - _%stx5320%_)))) - (if (gx#stx-pair? _%__stx1943019431%_) - (let ((_%e75417567%_ - (gx#syntax-e _%__stx1943019431%_))) - (let ((_%tl75437574%_ + (if (gx#stx-null? _%rest7595%_) + _%ids7597%_ + (cons _%rest7595%_ _%ids7597%_)) + _%stx5383%_)))) + (if (gx#stx-pair? _%__stx1949319494%_) + (let ((_%e76047630%_ + (gx#syntax-e _%__stx1949319494%_))) + (let ((_%tl76067637%_ (let () (declare (not safe)) - (##cdr _%e75417567%_))) - (_%hd75427571%_ + (##cdr _%e76047630%_))) + (_%hd76057634%_ (let () (declare (not safe)) - (##car _%e75417567%_)))) - (_%__kont1943319434%_ - _%tl75437574%_ - _%hd75427571%_))) - (_%__kont1943519436%_))))))) - (_%generate-opt-primary5330%_ - (lambda (_%pre7318%_ _%opt7320%_ _%tail7321%_ _%body7322%_) - (let* ((_%g73247365%_ - (lambda (_%g73257361%_) + (##car _%e76047630%_)))) + (_%__kont1949619497%_ + _%tl76067637%_ + _%hd76057634%_))) + (_%__kont1949819499%_))))))) + (_%generate-opt-primary5393%_ + (lambda (_%pre7381%_ _%opt7383%_ _%tail7384%_ _%body7385%_) + (let* ((_%g73877428%_ + (lambda (_%g73887424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g73257361%_))) - (_%g73237522%_ - (lambda (_%g73257369%_) - (if (gx#stx-pair? _%g73257369%_) - (let ((_%e73307372%_ - (gx#syntax-e _%g73257369%_))) - (let ((_%hd73317376%_ + _%g73887424%_))) + (_%g73867585%_ + (lambda (_%g73887432%_) + (if (gx#stx-pair? _%g73887432%_) + (let ((_%e73937435%_ + (gx#syntax-e _%g73887432%_))) + (let ((_%hd73947439%_ (let () (declare (not safe)) - (##car _%e73307372%_))) - (_%tl73327379%_ + (##car _%e73937435%_))) + (_%tl73957442%_ (let () (declare (not safe)) - (##cdr _%e73307372%_)))) - (if (gx#stx-pair/null? _%hd73317376%_) - (let ((_g20919_ + (##cdr _%e73937435%_)))) + (if (gx#stx-pair/null? _%hd73947439%_) + (let ((_g20982_ (gx#syntax-split-splice - _%hd73317376%_ + _%hd73947439%_ '0))) (begin - (let ((_g20920_ + (let ((_g20983_ (let () (declare (not safe)) - (if (##values? _g20919_) - (##vector-length - _g20919_) + (if (##values? _g20982_) + (##values-length + _g20982_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20920_ 2))) + (##fx= _g20983_ 2))) (error "Context expects 2 values" - _g20920_))) - (let ((_%target73337382%_ + _g20983_))) + (let ((_%target73967445%_ (let () (declare (not safe)) - (##vector-ref - _g20919_ + (##values-ref + _g20982_ 0))) - (_%tl73357385%_ + (_%tl73987448%_ (let () (declare (not safe)) - (##vector-ref - _g20919_ + (##values-ref + _g20982_ 1)))) (if (gx#stx-null? - _%tl73357385%_) - (letrec ((_%loop73367388%_ - (lambda (_%hd73347392%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre73407395%_) - (if (gx#stx-pair? _%hd73347392%_) - (let ((_%e73377398%_ (gx#syntax-e _%hd73347392%_))) - (let ((_%lp-hd73387402%_ + _%tl73987448%_) + (letrec ((_%loop73997451%_ + (lambda (_%hd73977455%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre74037458%_) + (if (gx#stx-pair? _%hd73977455%_) + (let ((_%e74007461%_ (gx#syntax-e _%hd73977455%_))) + (let ((_%lp-hd74017465%_ (let () (declare (not safe)) - (##car _%e73377398%_))) - (_%lp-tl73397405%_ + (##car _%e74007461%_))) + (_%lp-tl74027468%_ (let () (declare (not safe)) - (##cdr _%e73377398%_)))) - (_%loop73367388%_ - _%lp-tl73397405%_ - (cons _%lp-hd73387402%_ _%pre73407395%_)))) - (let ((_%pre73417408%_ (reverse _%pre73407395%_))) - (if (gx#stx-pair? _%tl73327379%_) - (let ((_%e73427412%_ - (gx#syntax-e _%tl73327379%_))) - (let ((_%hd73437416%_ + (##cdr _%e74007461%_)))) + (_%loop73997451%_ + _%lp-tl74027468%_ + (cons _%lp-hd74017465%_ _%pre74037458%_)))) + (let ((_%pre74047471%_ (reverse _%pre74037458%_))) + (if (gx#stx-pair? _%tl73957442%_) + (let ((_%e74057475%_ + (gx#syntax-e _%tl73957442%_))) + (let ((_%hd74067479%_ (let () (declare (not safe)) - (##car _%e73427412%_))) - (_%tl73447419%_ + (##car _%e74057475%_))) + (_%tl74077482%_ (let () (declare (not safe)) - (##cdr _%e73427412%_)))) - (if (gx#stx-pair/null? _%hd73437416%_) - (let ((_g20921_ + (##cdr _%e74057475%_)))) + (if (gx#stx-pair/null? _%hd74067479%_) + (let ((_g20984_ (gx#syntax-split-splice - _%hd73437416%_ + _%hd74067479%_ '0))) (begin - (let ((_g20922_ + (let ((_g20985_ (let () (declare (not safe)) - (if (##values? _g20921_) - (##vector-length - _g20921_) + (if (##values? _g20984_) + (##values-length + _g20984_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20922_ 2))) + (##fx= _g20985_ 2))) (error "Context expects 2 values" - _g20922_))) - (let ((_%target73457422%_ + _g20985_))) + (let ((_%target74087485%_ (let () (declare (not safe)) - (##vector-ref - _g20921_ + (##values-ref + _g20984_ 0))) - (_%tl73477425%_ + (_%tl74107488%_ (let () (declare (not safe)) - (##vector-ref - _g20921_ + (##values-ref + _g20984_ 1)))) (if (gx#stx-null? - _%tl73477425%_) - (letrec ((_%loop73487428%_ - (lambda (_%hd73467432%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%opt73527435%_) - (if (gx#stx-pair? _%hd73467432%_) - (let ((_%e73497438%_ (gx#syntax-e _%hd73467432%_))) - (let ((_%lp-hd73507442%_ + _%tl74107488%_) + (letrec ((_%loop74117491%_ + (lambda (_%hd74097495%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%opt74157498%_) + (if (gx#stx-pair? _%hd74097495%_) + (let ((_%e74127501%_ (gx#syntax-e _%hd74097495%_))) + (let ((_%lp-hd74137505%_ (let () (declare (not safe)) - (##car _%e73497438%_))) - (_%lp-tl73517445%_ + (##car _%e74127501%_))) + (_%lp-tl74147508%_ (let () (declare (not safe)) - (##cdr _%e73497438%_)))) - (_%loop73487428%_ - _%lp-tl73517445%_ - (cons _%lp-hd73507442%_ _%opt73527435%_)))) - (let ((_%opt73537448%_ (reverse _%opt73527435%_))) - (if (gx#stx-pair? _%tl73447419%_) - (let ((_%e73547452%_ - (gx#syntax-e _%tl73447419%_))) - (let ((_%hd73557456%_ + (##cdr _%e74127501%_)))) + (_%loop74117491%_ + _%lp-tl74147508%_ + (cons _%lp-hd74137505%_ _%opt74157498%_)))) + (let ((_%opt74167511%_ (reverse _%opt74157498%_))) + (if (gx#stx-pair? _%tl74077482%_) + (let ((_%e74177515%_ + (gx#syntax-e _%tl74077482%_))) + (let ((_%hd74187519%_ (let () (declare (not safe)) - (##car _%e73547452%_))) - (_%tl73567459%_ + (##car _%e74177515%_))) + (_%tl74197522%_ (let () (declare (not safe)) - (##cdr _%e73547452%_)))) - (if (gx#stx-pair? _%tl73567459%_) - (let ((_%e73577462%_ - (gx#syntax-e _%tl73567459%_))) - (let ((_%hd73587466%_ + (##cdr _%e74177515%_)))) + (if (gx#stx-pair? _%tl74197522%_) + (let ((_%e74207525%_ + (gx#syntax-e _%tl74197522%_))) + (let ((_%hd74217529%_ (let () (declare (not safe)) - (##car _%e73577462%_))) - (_%tl73597469%_ + (##car _%e74207525%_))) + (_%tl74227532%_ (let () (declare (not safe)) - (##cdr _%e73577462%_)))) - (if (gx#stx-null? _%tl73597469%_) - ((lambda (_%L7472%_ - _%L7474%_ - _%L7475%_ - _%L7476%_) + (##cdr _%e74207525%_)))) + (if (gx#stx-null? _%tl74227532%_) + ((lambda (_%L7535%_ + _%L7537%_ + _%L7538%_ + _%L7539%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons (foldr (lambda (_%g75057510%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g75067513%_) - (cons _%g75057510%_ _%g75067513%_)) - (foldr (lambda (_%g75077516%_ _%g75087519%_) - (cons _%g75077516%_ _%g75087519%_)) - _%L7474%_ - _%L7475%_) - _%L7476%_) - _%L7472%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd73587466%_ - _%hd73557456%_ - _%opt73537448%_ - _%pre73417408%_) - (_%g73247365%_ - _%g73257369%_)))) - (_%g73247365%_ _%g73257369%_)))) - (_%g73247365%_ _%g73257369%_))))))) - (_%loop73487428%_ _%target73457422%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g73247365%_ - _%g73257369%_))))) - (_%g73247365%_ _%g73257369%_)))) - (_%g73247365%_ _%g73257369%_))))))) - (_%loop73367388%_ _%target73337382%_ '())) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g73247365%_ - _%g73257369%_))))) - (_%g73247365%_ _%g73257369%_)))) - (_%g73247365%_ _%g73257369%_))))) - (_%g73237522%_ - (list _%pre7318%_ - (map car _%opt7320%_) - _%tail7321%_ - _%body7322%_))))) - (_%generate-opt-dispatch5331%_ - (lambda (_%primary7312%_ - _%pre7314%_ - _%opt7315%_ - _%tail7316%_) - (cons (list _%pre7314%_ - (_%generate-opt-clause5333%_ - _%primary7312%_ - _%pre7314%_ - _%opt7315%_)) - (_%generate-opt-dispatch*5332%_ - _%primary7312%_ - _%pre7314%_ - _%opt7315%_ - _%tail7316%_)))) - (_%generate-opt-dispatch*5332%_ - (lambda (_%primary6861%_ - _%pre6863%_ - _%opt6864%_ - _%tail6865%_) - (let _%recur6867%_ ((_%opt-rest6870%_ _%opt6864%_) - (_%right6872%_ '())) - (if (pair? _%opt-rest6870%_) - (let* ((_%hd6876%_ (caar _%opt-rest6870%_)) - (_%rest6879%_ + (cons (foldr (lambda (_%g75687573%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g75697576%_) + (cons _%g75687573%_ _%g75697576%_)) + (foldr (lambda (_%g75707579%_ _%g75717582%_) + (cons _%g75707579%_ _%g75717582%_)) + _%L7537%_ + _%L7538%_) + _%L7539%_) + _%L7535%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd74217529%_ + _%hd74187519%_ + _%opt74167511%_ + _%pre74047471%_) + (_%g73877428%_ + _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))))) + (_%loop74117491%_ _%target74087485%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73877428%_ + _%g73887432%_))))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))))) + (_%loop73997451%_ _%target73967445%_ '())) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g73877428%_ + _%g73887432%_))))) + (_%g73877428%_ _%g73887432%_)))) + (_%g73877428%_ _%g73887432%_))))) + (_%g73867585%_ + (list _%pre7381%_ + (map car _%opt7383%_) + _%tail7384%_ + _%body7385%_))))) + (_%generate-opt-dispatch5394%_ + (lambda (_%primary7375%_ + _%pre7377%_ + _%opt7378%_ + _%tail7379%_) + (cons (list _%pre7377%_ + (_%generate-opt-clause5396%_ + _%primary7375%_ + _%pre7377%_ + _%opt7378%_)) + (_%generate-opt-dispatch*5395%_ + _%primary7375%_ + _%pre7377%_ + _%opt7378%_ + _%tail7379%_)))) + (_%generate-opt-dispatch*5395%_ + (lambda (_%primary6924%_ + _%pre6926%_ + _%opt6927%_ + _%tail6928%_) + (let _%recur6930%_ ((_%opt-rest6933%_ _%opt6927%_) + (_%right6935%_ '())) + (if (pair? _%opt-rest6933%_) + (let* ((_%hd6939%_ (caar _%opt-rest6933%_)) + (_%rest6942%_ (let () (declare (not safe)) - (##cdr _%opt-rest6870%_))) - (_%right*6882%_ - (cons _%hd6876%_ _%right6872%_)) - (_%g68856902%_ - (lambda (_%g68866898%_) + (##cdr _%opt-rest6933%_))) + (_%right*6945%_ + (cons _%hd6939%_ _%right6935%_)) + (_%g69486965%_ + (lambda (_%g69496961%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g68866898%_))) - (_%g68847086%_ - (lambda (_%g68866906%_) - (if (gx#stx-pair/null? _%g68866906%_) - (let ((_g20923_ + _%g69496961%_))) + (_%g69477149%_ + (lambda (_%g69496969%_) + (if (gx#stx-pair/null? _%g69496969%_) + (let ((_g20986_ (gx#syntax-split-splice - _%g68866906%_ + _%g69496969%_ '0))) (begin - (let ((_g20924_ + (let ((_g20987_ (let () (declare (not safe)) - (if (##values? _g20923_) - (##vector-length - _g20923_) + (if (##values? _g20986_) + (##values-length + _g20986_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20924_ 2))) + (##fx= _g20987_ 2))) (error "Context expects 2 values" - _g20924_))) - (let ((_%target68886909%_ + _g20987_))) + (let ((_%target69516972%_ (let () (declare (not safe)) - (##vector-ref - _g20923_ + (##values-ref + _g20986_ 0))) - (_%tl68906912%_ + (_%tl69536975%_ (let () (declare (not safe)) - (##vector-ref - _g20923_ + (##values-ref + _g20986_ 1)))) - (if (gx#stx-null? _%tl68906912%_) - (letrec ((_%loop68916915%_ - (lambda (_%hd68896919%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pre-bind68956922%_) - (if (gx#stx-pair? _%hd68896919%_) - (let ((_%e68926925%_ (gx#syntax-e _%hd68896919%_))) - (let ((_%lp-hd68936929%_ + (if (gx#stx-null? _%tl69536975%_) + (letrec ((_%loop69546978%_ + (lambda (_%hd69526982%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%pre-bind69586985%_) + (if (gx#stx-pair? _%hd69526982%_) + (let ((_%e69556988%_ (gx#syntax-e _%hd69526982%_))) + (let ((_%lp-hd69566992%_ (let () (declare (not safe)) - (##car _%e68926925%_))) - (_%lp-tl68946932%_ + (##car _%e69556988%_))) + (_%lp-tl69576995%_ (let () (declare (not safe)) - (##cdr _%e68926925%_)))) - (_%loop68916915%_ - _%lp-tl68946932%_ - (cons _%lp-hd68936929%_ _%pre-bind68956922%_)))) - (let ((_%pre-bind68966935%_ - (reverse _%pre-bind68956922%_))) - ((lambda (_%L6939%_) - (let* ((_%g69616978%_ - (lambda (_%g69626974%_) + (##cdr _%e69556988%_)))) + (_%loop69546978%_ + _%lp-tl69576995%_ + (cons _%lp-hd69566992%_ _%pre-bind69586985%_)))) + (let ((_%pre-bind69596998%_ + (reverse _%pre-bind69586985%_))) + ((lambda (_%L7002%_) + (let* ((_%g70247041%_ + (lambda (_%g70257037%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g69626974%_))) - (_%g69607082%_ - (lambda (_%g69626982%_) - (if (gx#stx-pair/null? _%g69626982%_) - (let ((_g20925_ + _%g70257037%_))) + (_%g70237145%_ + (lambda (_%g70257045%_) + (if (gx#stx-pair/null? _%g70257045%_) + (let ((_g20988_ (gx#syntax-split-splice - _%g69626982%_ + _%g70257045%_ '0))) (begin - (let ((_g20926_ + (let ((_g20989_ (let () (declare (not safe)) (if (##values? - _g20925_) - (##vector-length - _g20925_) + _g20988_) + (##values-length + _g20988_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20926_ + (##fx= _g20989_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g20926_))) + (error "Context expects 2 values" _g20989_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target69646985%_ + (let ((_%target70277048%_ (let () (declare (not safe)) - (##vector-ref - _g20925_ + (##values-ref + _g20988_ 0))) - (_%tl69666988%_ + (_%tl70297051%_ (let () (declare (not safe)) - (##vector-ref - _g20925_ + (##values-ref + _g20988_ 1)))) (if (gx#stx-null? - _%tl69666988%_) - (letrec ((_%loop69676991%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd69656995%_ _%opt-bind69716998%_) - (if (gx#stx-pair? _%hd69656995%_) - (let ((_%e69687001%_ - (gx#syntax-e _%hd69656995%_))) - (let ((_%lp-hd69697005%_ + _%tl70297051%_) + (letrec ((_%loop70307054%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd70287058%_ _%opt-bind70347061%_) + (if (gx#stx-pair? _%hd70287058%_) + (let ((_%e70317064%_ + (gx#syntax-e _%hd70287058%_))) + (let ((_%lp-hd70327068%_ (let () (declare (not safe)) - (##car _%e69687001%_))) - (_%lp-tl69707008%_ + (##car _%e70317064%_))) + (_%lp-tl70337071%_ (let () (declare (not safe)) - (##cdr _%e69687001%_)))) - (_%loop69676991%_ - _%lp-tl69707008%_ - (cons _%lp-hd69697005%_ - _%opt-bind69716998%_)))) - (let ((_%opt-bind69727011%_ - (reverse _%opt-bind69716998%_))) - ((lambda (_%L7015%_) - (let* ((_%g70327040%_ - (lambda (_%g70337036%_) + (##cdr _%e70317064%_)))) + (_%loop70307054%_ + _%lp-tl70337071%_ + (cons _%lp-hd70327068%_ + _%opt-bind70347061%_)))) + (let ((_%opt-bind70357074%_ + (reverse _%opt-bind70347061%_))) + ((lambda (_%L7078%_) + (let* ((_%g70957103%_ + (lambda (_%g70967099%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70337036%_))) - (_%g70317078%_ - (lambda (_%g70337044%_) - ((lambda (_%L7047%_) - (cons (list (foldr (lambda (_%g70617066%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g70627069%_) - (cons _%g70617066%_ _%g70627069%_)) - (foldr (lambda (_%g70637072%_ _%g70647075%_) - (cons _%g70637072%_ _%g70647075%_)) - (cons _%L7047%_ '()) - _%L7015%_) - _%L6939%_) - (_%generate-opt-clause5333%_ - _%primary6861%_ - (foldr cons (reverse _%right*6882%_) _%pre6863%_) - _%rest6879%_)) - (_%recur6867%_ _%rest6879%_ _%right*6882%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g70337044%_)))) - (_%g70317078%_ _%hd6876%_))) - _%opt-bind69727011%_)))))) - (_%loop69676991%_ _%target69646985%_ '())) - (_%g69616978%_ _%g69626982%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g69616978%_ _%g69626982%_))))) - (_%g69607082%_ (reverse _%right6872%_)))) - _%pre-bind68966935%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop68916915%_ - _%target68886909%_ + _%g70967099%_))) + (_%g70947141%_ + (lambda (_%g70967107%_) + ((lambda (_%L7110%_) + (cons (list (foldr (lambda (_%g71247129%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g71257132%_) + (cons _%g71247129%_ _%g71257132%_)) + (foldr (lambda (_%g71267135%_ _%g71277138%_) + (cons _%g71267135%_ _%g71277138%_)) + (cons _%L7110%_ '()) + _%L7078%_) + _%L7002%_) + (_%generate-opt-clause5396%_ + _%primary6924%_ + (foldr cons (reverse _%right*6945%_) _%pre6926%_) + _%rest6942%_)) + (_%recur6930%_ _%rest6942%_ _%right*6945%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g70967107%_)))) + (_%g70947141%_ _%hd6939%_))) + _%opt-bind70357074%_)))))) + (_%loop70307054%_ _%target70277048%_ '())) + (_%g70247041%_ _%g70257045%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g70247041%_ _%g70257045%_))))) + (_%g70237145%_ (reverse _%right6935%_)))) + _%pre-bind69596998%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop69546978%_ + _%target69516972%_ '())) - (_%g68856902%_ - _%g68866906%_))))) - (_%g68856902%_ _%g68866906%_))))) - (_%g68847086%_ _%pre6863%_)) - (if (gx#stx-null? _%tail6865%_) + (_%g69486965%_ + _%g69496969%_))))) + (_%g69486965%_ _%g69496969%_))))) + (_%g69477149%_ _%pre6926%_)) + (if (gx#stx-null? _%tail6928%_) '() - (let* ((_%g70947135%_ - (lambda (_%g70957131%_) + (let* ((_%g71577198%_ + (lambda (_%g71587194%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g70957131%_))) - (_%g70937308%_ - (lambda (_%g70957139%_) - (if (gx#stx-pair? _%g70957139%_) - (let ((_%e71007142%_ + _%g71587194%_))) + (_%g71567371%_ + (lambda (_%g71587202%_) + (if (gx#stx-pair? _%g71587202%_) + (let ((_%e71637205%_ (gx#syntax-e - _%g70957139%_))) - (let ((_%hd71017146%_ + _%g71587202%_))) + (let ((_%hd71647209%_ (let () (declare (not safe)) - (##car _%e71007142%_))) - (_%tl71027149%_ + (##car _%e71637205%_))) + (_%tl71657212%_ (let () (declare (not safe)) - (##cdr _%e71007142%_)))) + (##cdr _%e71637205%_)))) (if (gx#stx-pair/null? - _%hd71017146%_) - (let ((_g20927_ + _%hd71647209%_) + (let ((_g20990_ (gx#syntax-split-splice - _%hd71017146%_ + _%hd71647209%_ '0))) (begin - (let ((_g20928_ + (let ((_g20991_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20927_) - (##vector-length _g20927_) + (if (##values? _g20990_) + (##values-length _g20990_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20928_ 2))) - (error "Context expects 2 values" _g20928_))) - (let ((_%target71037152%_ - (let () (declare (not safe)) (##vector-ref _g20927_ 0))) - (_%tl71057155%_ + (if (not (let () (declare (not safe)) (##fx= _g20991_ 2))) + (error "Context expects 2 values" _g20991_))) + (let ((_%target71667215%_ + (let () (declare (not safe)) (##values-ref _g20990_ 0))) + (_%tl71687218%_ (let () (declare (not safe)) - (##vector-ref _g20927_ 1)))) - (if (gx#stx-null? _%tl71057155%_) - (letrec ((_%loop71067158%_ - (lambda (_%hd71047162%_ _%pre71107165%_) - (if (gx#stx-pair? _%hd71047162%_) - (let ((_%e71077168%_ - (gx#syntax-e _%hd71047162%_))) - (let ((_%lp-hd71087172%_ + (##values-ref _g20990_ 1)))) + (if (gx#stx-null? _%tl71687218%_) + (letrec ((_%loop71697221%_ + (lambda (_%hd71677225%_ _%pre71737228%_) + (if (gx#stx-pair? _%hd71677225%_) + (let ((_%e71707231%_ + (gx#syntax-e _%hd71677225%_))) + (let ((_%lp-hd71717235%_ (let () (declare (not safe)) - (##car _%e71077168%_))) - (_%lp-tl71097175%_ + (##car _%e71707231%_))) + (_%lp-tl71727238%_ (let () (declare (not safe)) - (##cdr _%e71077168%_)))) - (_%loop71067158%_ - _%lp-tl71097175%_ - (cons _%lp-hd71087172%_ - _%pre71107165%_)))) - (let ((_%pre71117178%_ - (reverse _%pre71107165%_))) - (if (gx#stx-pair? _%tl71027149%_) - (let ((_%e71127182%_ + (##cdr _%e71707231%_)))) + (_%loop71697221%_ + _%lp-tl71727238%_ + (cons _%lp-hd71717235%_ + _%pre71737228%_)))) + (let ((_%pre71747241%_ + (reverse _%pre71737228%_))) + (if (gx#stx-pair? _%tl71657212%_) + (let ((_%e71757245%_ (gx#syntax-e - _%tl71027149%_))) - (let ((_%hd71137186%_ + _%tl71657212%_))) + (let ((_%hd71767249%_ (let () (declare (not safe)) - (##car _%e71127182%_))) - (_%tl71147189%_ + (##car _%e71757245%_))) + (_%tl71777252%_ (let () (declare (not safe)) - (##cdr _%e71127182%_)))) + (##cdr _%e71757245%_)))) (if (gx#stx-pair/null? - _%hd71137186%_) - (let ((_g20929_ + _%hd71767249%_) + (let ((_g20992_ (gx#syntax-split-splice - _%hd71137186%_ + _%hd71767249%_ '0))) (begin - (let ((_g20930_ + (let ((_g20993_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g20929_) - (##vector-length _g20929_) + (if (##values? _g20992_) + (##values-length _g20992_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20930_ 2))) - (error "Context expects 2 values" _g20930_))) - (let ((_%target71157192%_ - (let () (declare (not safe)) (##vector-ref _g20929_ 0))) - (_%tl71177195%_ + (if (not (let () (declare (not safe)) (##fx= _g20993_ 2))) + (error "Context expects 2 values" _g20993_))) + (let ((_%target71787255%_ + (let () (declare (not safe)) (##values-ref _g20992_ 0))) + (_%tl71807258%_ (let () (declare (not safe)) - (##vector-ref _g20929_ 1)))) - (if (gx#stx-null? _%tl71177195%_) - (letrec ((_%loop71187198%_ - (lambda (_%hd71167202%_ _%opt71227205%_) - (if (gx#stx-pair? _%hd71167202%_) - (let ((_%e71197208%_ - (gx#syntax-e _%hd71167202%_))) - (let ((_%lp-hd71207212%_ + (##values-ref _g20992_ 1)))) + (if (gx#stx-null? _%tl71807258%_) + (letrec ((_%loop71817261%_ + (lambda (_%hd71797265%_ _%opt71857268%_) + (if (gx#stx-pair? _%hd71797265%_) + (let ((_%e71827271%_ + (gx#syntax-e _%hd71797265%_))) + (let ((_%lp-hd71837275%_ (let () (declare (not safe)) - (##car _%e71197208%_))) - (_%lp-tl71217215%_ + (##car _%e71827271%_))) + (_%lp-tl71847278%_ (let () (declare (not safe)) - (##cdr _%e71197208%_)))) - (_%loop71187198%_ - _%lp-tl71217215%_ - (cons _%lp-hd71207212%_ - _%opt71227205%_)))) - (let ((_%opt71237218%_ - (reverse _%opt71227205%_))) - (if (gx#stx-pair? _%tl71147189%_) - (let ((_%e71247222%_ + (##cdr _%e71827271%_)))) + (_%loop71817261%_ + _%lp-tl71847278%_ + (cons _%lp-hd71837275%_ + _%opt71857268%_)))) + (let ((_%opt71867281%_ + (reverse _%opt71857268%_))) + (if (gx#stx-pair? _%tl71777252%_) + (let ((_%e71877285%_ (gx#syntax-e - _%tl71147189%_))) - (let ((_%hd71257226%_ + _%tl71777252%_))) + (let ((_%hd71887289%_ (let () (declare (not safe)) - (##car _%e71247222%_))) - (_%tl71267229%_ + (##car _%e71877285%_))) + (_%tl71897292%_ (let () (declare (not safe)) - (##cdr _%e71247222%_)))) + (##cdr _%e71877285%_)))) (if (gx#stx-pair? - _%tl71267229%_) - (let ((_%e71277232%_ + _%tl71897292%_) + (let ((_%e71907295%_ (gx#syntax-e - _%tl71267229%_))) - (let ((_%hd71287236%_ + _%tl71897292%_))) + (let ((_%hd71917299%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e71277232%_))) - (_%tl71297239%_ - (let () (declare (not safe)) (##cdr _%e71277232%_)))) - (if (gx#stx-null? _%tl71297239%_) - ((lambda (_%L7242%_ _%L7244%_ _%L7245%_ _%L7246%_) - (list (list (foldr (lambda (_%g72757280%_ _%g72767283%_) - (cons _%g72757280%_ _%g72767283%_)) - (foldr (lambda (_%g72777286%_ - _%g72787289%_) - (cons _%g72777286%_ - _%g72787289%_)) - _%L7244%_ - _%L7245%_) - _%L7246%_) + (##car _%e71907295%_))) + (_%tl71927302%_ + (let () (declare (not safe)) (##cdr _%e71907295%_)))) + (if (gx#stx-null? _%tl71927302%_) + ((lambda (_%L7305%_ _%L7307%_ _%L7308%_ _%L7309%_) + (list (list (foldr (lambda (_%g73387343%_ _%g73397346%_) + (cons _%g73387343%_ _%g73397346%_)) + (foldr (lambda (_%g73407349%_ + _%g73417352%_) + (cons _%g73407349%_ + _%g73417352%_)) + _%L7307%_ + _%L7308%_) + _%L7309%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'apply) - (cons _%L7242%_ - (foldr (lambda (_%g72917296%_ - _%g72927299%_) - (cons _%g72917296%_ - _%g72927299%_)) - (foldr (lambda (_%g72937302%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g72947305%_) - (cons _%g72937302%_ _%g72947305%_)) - (cons _%L7244%_ '()) - _%L7245%_) - _%L7246%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx5320%_))))) - _%hd71287236%_ - _%hd71257226%_ - _%opt71237218%_ - _%pre71117178%_) - (_%g70947135%_ _%g70957139%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70947135%_ - _%g70957139%_)))) - (_%g70947135%_ _%g70957139%_))))))) - (_%loop71187198%_ _%target71157192%_ '())) - (_%g70947135%_ _%g70957139%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70947135%_ - _%g70957139%_)))) - (_%g70947135%_ _%g70957139%_))))))) - (_%loop71067158%_ _%target71037152%_ '())) - (_%g70947135%_ _%g70957139%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g70947135%_ - _%g70957139%_)))) - (_%g70947135%_ _%g70957139%_))))) - (_%g70937308%_ - (list _%pre6863%_ - (reverse _%right6872%_) - _%tail6865%_ - _%primary6861%_)))))))) - (_%generate-opt-clause5333%_ - (lambda (_%primary6559%_ _%pre6561%_ _%opt6562%_) - (let _%recur6564%_ ((_%opt-rest6567%_ _%opt6562%_) - (_%right6569%_ '())) - (if (pair? _%opt-rest6567%_) - (let* ((_%hd6571%_ + (cons _%L7305%_ + (foldr (lambda (_%g73547359%_ + _%g73557362%_) + (cons _%g73547359%_ + _%g73557362%_)) + (foldr (lambda (_%g73567365%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g73577368%_) + (cons _%g73567365%_ _%g73577368%_)) + (cons _%L7307%_ '()) + _%L7308%_) + _%L7309%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (gx#stx-source _%stx5383%_))))) + _%hd71917299%_ + _%hd71887289%_ + _%opt71867281%_ + _%pre71747241%_) + (_%g71577198%_ _%g71587202%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))))) + (_%loop71817261%_ _%target71787255%_ '())) + (_%g71577198%_ _%g71587202%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))))) + (_%loop71697221%_ _%target71667215%_ '())) + (_%g71577198%_ _%g71587202%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g71577198%_ + _%g71587202%_)))) + (_%g71577198%_ _%g71587202%_))))) + (_%g71567371%_ + (list _%pre6926%_ + (reverse _%right6935%_) + _%tail6928%_ + _%primary6924%_)))))))) + (_%generate-opt-clause5396%_ + (lambda (_%primary6622%_ _%pre6624%_ _%opt6625%_) + (let _%recur6627%_ ((_%opt-rest6630%_ _%opt6625%_) + (_%right6632%_ '())) + (if (pair? _%opt-rest6630%_) + (let* ((_%hd6634%_ (let () (declare (not safe)) - (##car _%opt-rest6567%_))) - (_%rest6574%_ + (##car _%opt-rest6630%_))) + (_%rest6637%_ (let () (declare (not safe)) - (##cdr _%opt-rest6567%_))) - (_%g65776585%_ - (lambda (_%g65786581%_) + (##cdr _%opt-rest6630%_))) + (_%g66406648%_ + (lambda (_%g66416644%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g65786581%_))) - (_%g65766674%_ - (lambda (_%g65786589%_) - ((lambda (_%L6592%_) - (let* ((_%g66086616%_ - (lambda (_%g66096612%_) + _%g66416644%_))) + (_%g66396737%_ + (lambda (_%g66416652%_) + ((lambda (_%L6655%_) + (let* ((_%g66716679%_ + (lambda (_%g66726675%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66096612%_))) - (_%g66076670%_ - (lambda (_%g66096620%_) - ((lambda (_%L6623%_) - (let* ((_%g66366644%_ - (lambda (_%g66376640%_) + _%g66726675%_))) + (_%g66706733%_ + (lambda (_%g66726683%_) + ((lambda (_%L6686%_) + (let* ((_%g66996707%_ + (lambda (_%g67006703%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66376640%_))) - (_%g66356666%_ - (lambda (_%g66376648%_) - ((lambda (_%L6651%_) + _%g67006703%_))) + (_%g66986729%_ + (lambda (_%g67006711%_) + ((lambda (_%L6714%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6592%_ '()) - (cons _%L6623%_ '())) + (cons (cons (cons (cons _%L6655%_ '()) + (cons _%L6686%_ '())) '()) - (cons _%L6651%_ '())))) - _%g66376648%_)))) - (_%g66356666%_ - (_%recur6564%_ _%rest6574%_ (cons _%L6592%_ _%right6569%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g66096620%_)))) - (_%g66076670%_ (cdr _%hd6571%_)))) - _%g65786589%_)))) - (_%g65766674%_ (car _%hd6571%_))) - (let* ((_%g66786715%_ - (lambda (_%g66796711%_) + (cons _%L6714%_ '())))) + _%g67006711%_)))) + (_%g66986729%_ + (_%recur6627%_ _%rest6637%_ (cons _%L6655%_ _%right6632%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g66726683%_)))) + (_%g66706733%_ (cdr _%hd6634%_)))) + _%g66416652%_)))) + (_%g66396737%_ (car _%hd6634%_))) + (let* ((_%g67416778%_ + (lambda (_%g67426774%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g66796711%_))) - (_%g66776857%_ - (lambda (_%g66796719%_) - (if (gx#stx-pair? _%g66796719%_) - (let ((_%e66836722%_ - (gx#syntax-e _%g66796719%_))) - (let ((_%hd66846726%_ + _%g67426774%_))) + (_%g67406920%_ + (lambda (_%g67426782%_) + (if (gx#stx-pair? _%g67426782%_) + (let ((_%e67466785%_ + (gx#syntax-e _%g67426782%_))) + (let ((_%hd67476789%_ (let () (declare (not safe)) - (##car _%e66836722%_))) - (_%tl66856729%_ + (##car _%e67466785%_))) + (_%tl67486792%_ (let () (declare (not safe)) - (##cdr _%e66836722%_)))) + (##cdr _%e67466785%_)))) (if (gx#stx-pair/null? - _%hd66846726%_) - (let ((_g20931_ + _%hd67476789%_) + (let ((_g20994_ (gx#syntax-split-splice - _%hd66846726%_ + _%hd67476789%_ '0))) (begin - (let ((_g20932_ + (let ((_g20995_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20931_) - (##vector-length _g20931_) + _g20994_) + (##values-length _g20994_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20932_ 2))) - (error "Context expects 2 values" _g20932_))) + (if (not (let () (declare (not safe)) (##fx= _g20995_ 2))) + (error "Context expects 2 values" _g20995_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66866732%_ + (let ((_%target67496795%_ (let () (declare (not safe)) - (##vector-ref - _g20931_ + (##values-ref + _g20994_ 0))) - (_%tl66886735%_ + (_%tl67516798%_ (let () (declare (not safe)) - (##vector-ref - _g20931_ + (##values-ref + _g20994_ 1)))) (if (gx#stx-null? - _%tl66886735%_) - (letrec ((_%loop66896738%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66876742%_ _%pre66936745%_) - (if (gx#stx-pair? _%hd66876742%_) - (let ((_%e66906748%_ - (gx#syntax-e _%hd66876742%_))) - (let ((_%lp-hd66916752%_ + _%tl67516798%_) + (letrec ((_%loop67526801%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd67506805%_ _%pre67566808%_) + (if (gx#stx-pair? _%hd67506805%_) + (let ((_%e67536811%_ + (gx#syntax-e _%hd67506805%_))) + (let ((_%lp-hd67546815%_ (let () (declare (not safe)) - (##car _%e66906748%_))) - (_%lp-tl66926755%_ + (##car _%e67536811%_))) + (_%lp-tl67556818%_ (let () (declare (not safe)) - (##cdr _%e66906748%_)))) - (_%loop66896738%_ - _%lp-tl66926755%_ - (cons _%lp-hd66916752%_ - _%pre66936745%_)))) - (let ((_%pre66946758%_ - (reverse _%pre66936745%_))) - (if (gx#stx-pair? _%tl66856729%_) - (let ((_%e66956762%_ - (gx#syntax-e _%tl66856729%_))) - (let ((_%hd66966766%_ + (##cdr _%e67536811%_)))) + (_%loop67526801%_ + _%lp-tl67556818%_ + (cons _%lp-hd67546815%_ + _%pre67566808%_)))) + (let ((_%pre67576821%_ + (reverse _%pre67566808%_))) + (if (gx#stx-pair? _%tl67486792%_) + (let ((_%e67586825%_ + (gx#syntax-e _%tl67486792%_))) + (let ((_%hd67596829%_ (let () (declare (not safe)) - (##car _%e66956762%_))) - (_%tl66976769%_ + (##car _%e67586825%_))) + (_%tl67606832%_ (let () (declare (not safe)) - (##cdr _%e66956762%_)))) + (##cdr _%e67586825%_)))) (if (gx#stx-pair/null? - _%hd66966766%_) - (let ((_g20933_ + _%hd67596829%_) + (let ((_g20996_ (gx#syntax-split-splice - _%hd66966766%_ + _%hd67596829%_ '0))) (begin - (let ((_g20934_ + (let ((_g20997_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20933_) - (##vector-length _g20933_) + _g20996_) + (##values-length _g20996_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20934_ 2))) - (error "Context expects 2 values" _g20934_))) + (if (not (let () (declare (not safe)) (##fx= _g20997_ 2))) + (error "Context expects 2 values" _g20997_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target66986772%_ + (let ((_%target67616835%_ (let () (declare (not safe)) - (##vector-ref - _g20933_ + (##values-ref + _g20996_ 0))) - (_%tl67006775%_ + (_%tl67636838%_ (let () (declare (not safe)) - (##vector-ref - _g20933_ + (##values-ref + _g20996_ 1)))) (if (gx#stx-null? - _%tl67006775%_) - (letrec ((_%loop67016778%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd66996782%_ _%opt67056785%_) - (if (gx#stx-pair? _%hd66996782%_) - (let ((_%e67026788%_ - (gx#syntax-e _%hd66996782%_))) - (let ((_%lp-hd67036792%_ + _%tl67636838%_) + (letrec ((_%loop67646841%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd67626845%_ _%opt67686848%_) + (if (gx#stx-pair? _%hd67626845%_) + (let ((_%e67656851%_ + (gx#syntax-e _%hd67626845%_))) + (let ((_%lp-hd67666855%_ (let () (declare (not safe)) - (##car _%e67026788%_))) - (_%lp-tl67046795%_ + (##car _%e67656851%_))) + (_%lp-tl67676858%_ (let () (declare (not safe)) - (##cdr _%e67026788%_)))) - (_%loop67016778%_ - _%lp-tl67046795%_ - (cons _%lp-hd67036792%_ - _%opt67056785%_)))) - (let ((_%opt67066798%_ - (reverse _%opt67056785%_))) - (if (gx#stx-pair? _%tl66976769%_) - (let ((_%e67076802%_ - (gx#syntax-e _%tl66976769%_))) - (let ((_%hd67086806%_ + (##cdr _%e67656851%_)))) + (_%loop67646841%_ + _%lp-tl67676858%_ + (cons _%lp-hd67666855%_ + _%opt67686848%_)))) + (let ((_%opt67696861%_ + (reverse _%opt67686848%_))) + (if (gx#stx-pair? _%tl67606832%_) + (let ((_%e67706865%_ + (gx#syntax-e _%tl67606832%_))) + (let ((_%hd67716869%_ (let () (declare (not safe)) - (##car _%e67076802%_))) - (_%tl67096809%_ + (##car _%e67706865%_))) + (_%tl67726872%_ (let () (declare (not safe)) - (##cdr _%e67076802%_)))) - (if (gx#stx-null? _%tl67096809%_) - ((lambda (_%L6812%_ - _%L6814%_ - _%L6815%_) + (##cdr _%e67706865%_)))) + (if (gx#stx-null? _%tl67726872%_) + ((lambda (_%L6875%_ + _%L6877%_ + _%L6878%_) (gx#stx-wrap-source - (cons _%L6812%_ - (foldr (lambda (_%g68406845%_ + (cons _%L6875%_ + (foldr (lambda (_%g69036908%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g68416848%_) - (cons _%g68406845%_ _%g68416848%_)) - (foldr (lambda (_%g68426851%_ _%g68436854%_) - (cons _%g68426851%_ _%g68436854%_)) + _%g69046911%_) + (cons _%g69036908%_ _%g69046911%_)) + (foldr (lambda (_%g69056914%_ _%g69066917%_) + (cons _%g69056914%_ _%g69066917%_)) '() - _%L6814%_) - _%L6815%_)) + _%L6877%_) + _%L6878%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx5320%_))) - _%hd67086806%_ - _%opt67066798%_ - _%pre66946758%_) - (_%g66786715%_ - _%g66796719%_)))) - (_%g66786715%_ _%g66796719%_))))))) - (_%loop67016778%_ _%target66986772%_ '())) - (_%g66786715%_ _%g66796719%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66786715%_ - _%g66796719%_)))) - (_%g66786715%_ _%g66796719%_))))))) - (_%loop66896738%_ _%target66866732%_ '())) - (_%g66786715%_ _%g66796719%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g66786715%_ - _%g66796719%_)))) - (_%g66786715%_ _%g66796719%_))))) - (_%g66776857%_ - (list _%pre6561%_ - (reverse _%right6569%_) - _%primary6559%_))))))) - (_%generate-kw-primary5334%_ - (lambda (_%key5935%_ - _%kwargs5937%_ - _%args5938%_ - _%body5939%_) - (letrec ((_%make-body5941%_ - (lambda (_%kwargs6428%_ _%kwvals6430%_) - (if (pair? _%kwargs6428%_) - (let* ((_%kwarg6432%_ + _%stx5383%_))) + _%hd67716869%_ + _%opt67696861%_ + _%pre67576821%_) + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))))) + (_%loop67646841%_ _%target67616835%_ '())) + (_%g67416778%_ _%g67426782%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))))) + (_%loop67526801%_ _%target67496795%_ '())) + (_%g67416778%_ _%g67426782%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g67416778%_ + _%g67426782%_)))) + (_%g67416778%_ _%g67426782%_))))) + (_%g67406920%_ + (list _%pre6624%_ + (reverse _%right6632%_) + _%primary6622%_))))))) + (_%generate-kw-primary5397%_ + (lambda (_%key5998%_ + _%kwargs6000%_ + _%args6001%_ + _%body6002%_) + (letrec ((_%make-body6004%_ + (lambda (_%kwargs6491%_ _%kwvals6493%_) + (if (pair? _%kwargs6491%_) + (let* ((_%kwarg6495%_ (let () (declare (not safe)) - (##car _%kwargs6428%_))) - (_%var6435%_ (cadr _%kwarg6432%_)) - (_%default6438%_ - (caddr _%kwarg6432%_)) - (_%kwval6441%_ (car _%kwvals6430%_)) - (_%rest-kwargs6444%_ + (##car _%kwargs6491%_))) + (_%var6498%_ (cadr _%kwarg6495%_)) + (_%default6501%_ + (caddr _%kwarg6495%_)) + (_%kwval6504%_ (car _%kwvals6493%_)) + (_%rest-kwargs6507%_ (let () (declare (not safe)) - (##cdr _%kwargs6428%_))) - (_%rest-kwvals6447%_ - (cdr _%kwvals6430%_)) - (_%g64526475%_ - (lambda (_%g64536471%_) + (##cdr _%kwargs6491%_))) + (_%rest-kwvals6510%_ + (cdr _%kwvals6493%_)) + (_%g65156538%_ + (lambda (_%g65166534%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g64536471%_))) - (_%g64516555%_ - (lambda (_%g64536479%_) - (if (gx#stx-pair? _%g64536479%_) - (let ((_%e64586482%_ + _%g65166534%_))) + (_%g65146618%_ + (lambda (_%g65166542%_) + (if (gx#stx-pair? _%g65166542%_) + (let ((_%e65216545%_ (gx#syntax-e - _%g64536479%_))) - (let ((_%hd64596486%_ + _%g65166542%_))) + (let ((_%hd65226549%_ (let () (declare (not safe)) - (##car _%e64586482%_))) - (_%tl64606489%_ + (##car _%e65216545%_))) + (_%tl65236552%_ (let () (declare (not safe)) - (##cdr _%e64586482%_)))) + (##cdr _%e65216545%_)))) (if (gx#stx-pair? - _%tl64606489%_) - (let ((_%e64616492%_ + _%tl65236552%_) + (let ((_%e65246555%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl64606489%_))) - (let ((_%hd64626496%_ - (let () (declare (not safe)) (##car _%e64616492%_))) - (_%tl64636499%_ + (gx#syntax-e _%tl65236552%_))) + (let ((_%hd65256559%_ + (let () (declare (not safe)) (##car _%e65246555%_))) + (_%tl65266562%_ (let () (declare (not safe)) - (##cdr _%e64616492%_)))) - (if (gx#stx-pair? _%tl64636499%_) - (let ((_%e64646502%_ (gx#syntax-e _%tl64636499%_))) - (let ((_%hd64656506%_ + (##cdr _%e65246555%_)))) + (if (gx#stx-pair? _%tl65266562%_) + (let ((_%e65276565%_ (gx#syntax-e _%tl65266562%_))) + (let ((_%hd65286569%_ (let () (declare (not safe)) - (##car _%e64646502%_))) - (_%tl64666509%_ + (##car _%e65276565%_))) + (_%tl65296572%_ (let () (declare (not safe)) - (##cdr _%e64646502%_)))) - (if (gx#stx-pair? _%tl64666509%_) - (let ((_%e64676512%_ - (gx#syntax-e _%tl64666509%_))) - (let ((_%hd64686516%_ + (##cdr _%e65276565%_)))) + (if (gx#stx-pair? _%tl65296572%_) + (let ((_%e65306575%_ + (gx#syntax-e _%tl65296572%_))) + (let ((_%hd65316579%_ (let () (declare (not safe)) - (##car _%e64676512%_))) - (_%tl64696519%_ + (##car _%e65306575%_))) + (_%tl65326582%_ (let () (declare (not safe)) - (##cdr _%e64676512%_)))) - (if (gx#stx-null? _%tl64696519%_) - ((lambda (_%L6522%_ - _%L6524%_ - _%L6525%_ - _%L6526%_) + (##cdr _%e65306575%_)))) + (if (gx#stx-null? _%tl65326582%_) + ((lambda (_%L6585%_ + _%L6587%_ + _%L6588%_ + _%L6589%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L6526%_ + (cons (cons (cons (cons _%L6589%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'eq?) - (cons _%L6525%_ + (cons _%L6588%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'absent-value) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6524%_ - (cons _%L6525%_ '())))) + (cons _%L6587%_ + (cons _%L6588%_ '())))) '())) '()) - (cons _%L6522%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd64686516%_ - _%hd64656506%_ - _%hd64626496%_ - _%hd64596486%_) - (_%g64526475%_ _%g64536479%_)))) - (_%g64526475%_ _%g64536479%_)))) - (_%g64526475%_ _%g64536479%_)))) - (_%g64526475%_ _%g64536479%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g64526475%_ - _%g64536479%_))))) - (_%g64516555%_ - (list _%var6435%_ - _%kwval6441%_ - _%default6438%_ - (_%make-body5941%_ - _%rest-kwargs6444%_ - _%rest-kwvals6447%_)))) - (cons 'begin _%body5939%_)))) - (_%make-main5943%_ + (cons _%L6585%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd65316579%_ + _%hd65286569%_ + _%hd65256559%_ + _%hd65226549%_) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) + (_%g65156538%_ _%g65166542%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g65156538%_ + _%g65166542%_))))) + (_%g65146618%_ + (list _%var6498%_ + _%kwval6504%_ + _%default6501%_ + (_%make-body6004%_ + _%rest-kwargs6507%_ + _%rest-kwvals6510%_)))) + (cons 'begin _%body6002%_)))) + (_%make-main6006%_ (lambda () - (let* ((_%g62366244%_ - (lambda (_%g62376240%_) + (let* ((_%g62996307%_ + (lambda (_%g63006303%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62376240%_))) - (_%g62356420%_ - (lambda (_%g62376248%_) - ((lambda (_%L6251%_) - (let* ((_%g62636280%_ - (lambda (_%g62646276%_) + _%g63006303%_))) + (_%g62986483%_ + (lambda (_%g63006311%_) + ((lambda (_%L6314%_) + (let* ((_%g63266343%_ + (lambda (_%g63276339%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g62646276%_))) - (_%g62626416%_ - (lambda (_%g62646284%_) + _%g63276339%_))) + (_%g63256479%_ + (lambda (_%g63276347%_) (if (gx#stx-pair/null? - _%g62646284%_) - (let ((_g20935_ + _%g63276347%_) + (let ((_g20998_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g62646284%_ '0))) + (gx#syntax-split-splice _%g63276347%_ '0))) (begin - (let ((_g20936_ + (let ((_g20999_ (let () (declare (not safe)) - (if (##values? _g20935_) - (##vector-length _g20935_) + (if (##values? _g20998_) + (##values-length _g20998_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20936_ 2))) - (error "Context expects 2 values" _g20936_))) - (let ((_%target62666287%_ + (##fx= _g20999_ 2))) + (error "Context expects 2 values" _g20999_))) + (let ((_%target63296350%_ (let () (declare (not safe)) - (##vector-ref _g20935_ 0))) - (_%tl62686290%_ + (##values-ref _g20998_ 0))) + (_%tl63316353%_ (let () (declare (not safe)) - (##vector-ref _g20935_ 1)))) - (if (gx#stx-null? _%tl62686290%_) - (letrec ((_%loop62696293%_ - (lambda (_%hd62676297%_ - _%kwval62736300%_) - (if (gx#stx-pair? _%hd62676297%_) - (let ((_%e62706303%_ + (##values-ref _g20998_ 1)))) + (if (gx#stx-null? _%tl63316353%_) + (letrec ((_%loop63326356%_ + (lambda (_%hd63306360%_ + _%kwval63366363%_) + (if (gx#stx-pair? _%hd63306360%_) + (let ((_%e63336366%_ (gx#syntax-e - _%hd62676297%_))) - (let ((_%lp-hd62716307%_ + _%hd63306360%_))) + (let ((_%lp-hd63346370%_ (let () (declare (not safe)) - (##car _%e62706303%_))) - (_%lp-tl62726310%_ + (##car _%e63336366%_))) + (_%lp-tl63356373%_ (let () (declare (not safe)) - (##cdr _%e62706303%_)))) - (_%loop62696293%_ - _%lp-tl62726310%_ - (cons _%lp-hd62716307%_ - _%kwval62736300%_)))) - (let ((_%kwval62746313%_ - (reverse _%kwval62736300%_))) - ((lambda (_%L6317%_) - (let* ((_%g63346342%_ - (lambda (_%g63356338%_) + (##cdr _%e63336366%_)))) + (_%loop63326356%_ + _%lp-tl63356373%_ + (cons _%lp-hd63346370%_ + _%kwval63366363%_)))) + (let ((_%kwval63376376%_ + (reverse _%kwval63366363%_))) + ((lambda (_%L6380%_) + (let* ((_%g63976405%_ + (lambda (_%g63986401%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63356338%_))) - (_%g63336412%_ - (lambda (_%g63356346%_) - ((lambda (_%L6349%_) - (let* ((_%g63626370%_ + _%g63986401%_))) + (_%g63966475%_ + (lambda (_%g63986409%_) + ((lambda (_%L6412%_) + (let* ((_%g64256433%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g63636366%_) + (lambda (_%g64266429%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g63636366%_))) - (_%g63616400%_ - (lambda (_%g63636374%_) - ((lambda (_%L6377%_) + _%g64266429%_))) + (_%g64246463%_ + (lambda (_%g64266437%_) + ((lambda (_%L6440%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L6251%_ - (foldr (lambda (_%g63916394%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g63926397%_) - (cons _%g63916394%_ _%g63926397%_)) - _%L6349%_ - _%L6317%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L6377%_ '()))) - (gx#stx-source _%stx5320%_))) - _%g63636374%_)))) - (_%g63616400%_ - (_%make-body5941%_ - _%kwargs5937%_ - (foldr (lambda (_%g64036406%_ _%g64046409%_) - (cons _%g64036406%_ _%g64046409%_)) + (cons (cons _%L6314%_ + (foldr (lambda (_%g64546457%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g64556460%_) + (cons _%g64546457%_ _%g64556460%_)) + _%L6412%_ + _%L6380%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (cons _%L6440%_ '()))) + (gx#stx-source _%stx5383%_))) + _%g64266437%_)))) + (_%g64246463%_ + (_%make-body6004%_ + _%kwargs6000%_ + (foldr (lambda (_%g64666469%_ _%g64676472%_) + (cons _%g64666469%_ _%g64676472%_)) '() - _%L6317%_))))) - _%g63356346%_)))) + _%L6380%_))))) + _%g63986409%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g63336412%_ - _%args5938%_))) - _%kwval62746313%_)))))) - (_%loop62696293%_ _%target62666287%_ '())) - (_%g62636280%_ _%g62646284%_))))) - (_%g62636280%_ _%g62646284%_))))) + (_%g63966475%_ + _%args6001%_))) + _%kwval63376376%_)))))) + (_%loop63326356%_ _%target63296350%_ '())) + (_%g63266343%_ _%g63276347%_))))) + (_%g63266343%_ _%g63276347%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g62626416%_ + (_%g63256479%_ (gx#gentemps - (map cadr _%kwargs5937%_))))) - _%g62376248%_)))) - (_%g62356420%_ - (let ((_%$e6424%_ _%key5935%_)) - (if _%$e6424%_ - _%$e6424%_ + (map cadr _%kwargs6000%_))))) + _%g63006311%_)))) + (_%g62986483%_ + (let ((_%$e6487%_ _%key5998%_)) + (if _%$e6487%_ + _%$e6487%_ (gx#syntax-local-introduce '@@keywords))))))) - (_%make-dispatch5944%_ - (lambda (_%main6044%_) - (let* ((_%g60476055%_ - (lambda (_%g60486051%_) + (_%make-dispatch6007%_ + (lambda (_%main6107%_) + (let* ((_%g61106118%_ + (lambda (_%g61116114%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60486051%_))) - (_%g60466226%_ - (lambda (_%g60486059%_) - ((lambda (_%L6062%_) - (let* ((_%g60746091%_ - (lambda (_%g60756087%_) + _%g61116114%_))) + (_%g61096289%_ + (lambda (_%g61116122%_) + ((lambda (_%L6125%_) + (let* ((_%g61376154%_ + (lambda (_%g61386150%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60756087%_))) - (_%g60736187%_ - (lambda (_%g60756095%_) + _%g61386150%_))) + (_%g61366250%_ + (lambda (_%g61386158%_) (if (gx#stx-pair/null? - _%g60756095%_) - (let ((_g20937_ + _%g61386158%_) + (let ((_g21000_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g60756095%_ '0))) + (gx#syntax-split-splice _%g61386158%_ '0))) (begin - (let ((_g20938_ + (let ((_g21001_ (let () (declare (not safe)) - (if (##values? _g20937_) - (##vector-length _g20937_) + (if (##values? _g21000_) + (##values-length _g21000_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20938_ 2))) - (error "Context expects 2 values" _g20938_))) - (let ((_%target60776098%_ + (##fx= _g21001_ 2))) + (error "Context expects 2 values" _g21001_))) + (let ((_%target61406161%_ (let () (declare (not safe)) - (##vector-ref _g20937_ 0))) - (_%tl60796101%_ + (##values-ref _g21000_ 0))) + (_%tl61426164%_ (let () (declare (not safe)) - (##vector-ref _g20937_ 1)))) - (if (gx#stx-null? _%tl60796101%_) - (letrec ((_%loop60806104%_ - (lambda (_%hd60786108%_ - _%get-kw60846111%_) - (if (gx#stx-pair? _%hd60786108%_) - (let ((_%e60816114%_ + (##values-ref _g21000_ 1)))) + (if (gx#stx-null? _%tl61426164%_) + (letrec ((_%loop61436167%_ + (lambda (_%hd61416171%_ + _%get-kw61476174%_) + (if (gx#stx-pair? _%hd61416171%_) + (let ((_%e61446177%_ (gx#syntax-e - _%hd60786108%_))) - (let ((_%lp-hd60826118%_ + _%hd61416171%_))) + (let ((_%lp-hd61456181%_ (let () (declare (not safe)) - (##car _%e60816114%_))) - (_%lp-tl60836121%_ + (##car _%e61446177%_))) + (_%lp-tl61466184%_ (let () (declare (not safe)) - (##cdr _%e60816114%_)))) - (_%loop60806104%_ - _%lp-tl60836121%_ - (cons _%lp-hd60826118%_ - _%get-kw60846111%_)))) - (let ((_%get-kw60856124%_ - (reverse _%get-kw60846111%_))) - ((lambda (_%L6128%_) - (let* ((_%g61456153%_ - (lambda (_%g61466149%_) + (##cdr _%e61446177%_)))) + (_%loop61436167%_ + _%lp-tl61466184%_ + (cons _%lp-hd61456181%_ + _%get-kw61476174%_)))) + (let ((_%get-kw61486187%_ + (reverse _%get-kw61476174%_))) + ((lambda (_%L6191%_) + (let* ((_%g62086216%_ + (lambda (_%g62096212%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61466149%_))) - (_%g61446183%_ - (lambda (_%g61466157%_) - ((lambda (_%L6160%_) + _%g62096212%_))) + (_%g62076246%_ + (lambda (_%g62096220%_) + ((lambda (_%L6223%_) (gx#stx-wrap-source (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons (cons _%L6062%_ + (cons (cons _%L6125%_ (gx#datum->syntax '#f 'args)) (cons (cons (gx#datum->syntax '#f 'apply) - (cons _%L6160%_ - (cons _%L6062%_ - (foldr (lambda (_%g61746177%_ + (cons _%L6223%_ + (cons _%L6125%_ + (foldr (lambda (_%g62376240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g61756180%_) - (cons _%g61746177%_ _%g61756180%_)) + _%g62386243%_) + (cons _%g62376240%_ _%g62386243%_)) (cons (gx#datum->syntax '#f 'args) '()) - _%L6128%_)))) + _%L6191%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (gx#stx-source _%stx5320%_))) - _%g61466157%_)))) + (gx#stx-source _%stx5383%_))) + _%g62096220%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g61446183%_ - _%main6044%_))) - _%get-kw60856124%_)))))) - (_%loop60806104%_ _%target60776098%_ '())) - (_%g60746091%_ _%g60756095%_))))) - (_%g60746091%_ _%g60756095%_))))) + (_%g62076246%_ + _%main6107%_))) + _%get-kw61486187%_)))))) + (_%loop61436167%_ _%target61406161%_ '())) + (_%g61376154%_ _%g61386158%_))))) + (_%g61376154%_ _%g61386158%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g60736187%_ - (map (lambda (_%kwarg6191%_) - (let* ((_%g61946202%_ - (lambda (_%g61956198%_) + (_%g61366250%_ + (map (lambda (_%kwarg6254%_) + (let* ((_%g62576265%_ + (lambda (_%g62586261%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g61956198%_))) - (_%g61936222%_ - (lambda (_%g61956206%_) - ((lambda (_%L6209%_) + _%g62586261%_))) + (_%g62566285%_ + (lambda (_%g62586269%_) + ((lambda (_%L6272%_) (cons (gx#datum->syntax '#f 'symbolic-table-ref) - (cons _%L6062%_ + (cons _%L6125%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L6209%_ '())) + (cons _%L6272%_ '())) (cons (gx#datum->syntax '#f 'absent-value) '()))))) - _%g61956206%_)))) - (_%g61936222%_ (car _%kwarg6191%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%kwargs5937%_)))) - _%g60486059%_)))) - (_%g60466226%_ - (let ((_%$e6230%_ _%key5935%_)) - (if _%$e6230%_ - _%$e6230%_ + _%g62586269%_)))) + (_%g62566285%_ (car _%kwarg6254%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%kwargs6000%_)))) + _%g61116122%_)))) + (_%g61096289%_ + (let ((_%$e6293%_ _%key5998%_)) + (if _%$e6293%_ + _%$e6293%_ (gx#syntax-local-introduce '@@keywords)))))))) - (let* ((_%g59465954%_ - (lambda (_%g59475950%_) + (let* ((_%g60096017%_ + (lambda (_%g60106013%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59475950%_))) - (_%g59456040%_ - (lambda (_%g59475958%_) - ((lambda (_%L5961%_) - (let* ((_%g59745982%_ - (lambda (_%g59755978%_) + _%g60106013%_))) + (_%g60086103%_ + (lambda (_%g60106021%_) + ((lambda (_%L6024%_) + (let* ((_%g60376045%_ + (lambda (_%g60386041%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g59755978%_))) - (_%g59736036%_ - (lambda (_%g59755986%_) - ((lambda (_%L5989%_) - (let* ((_%g60026010%_ - (lambda (_%g60036006%_) + _%g60386041%_))) + (_%g60366099%_ + (lambda (_%g60386049%_) + ((lambda (_%L6052%_) + (let* ((_%g60656073%_ + (lambda (_%g60666069%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g60036006%_))) - (_%g60016032%_ - (lambda (_%g60036014%_) - ((lambda (_%L6017%_) + _%g60666069%_))) + (_%g60646095%_ + (lambda (_%g60666077%_) + ((lambda (_%L6080%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let-values) - (cons (cons (cons (cons _%L5961%_ '()) - (cons _%L6017%_ '())) + (cons (cons (cons (cons _%L6024%_ '()) + (cons _%L6080%_ '())) '()) - (cons _%L5989%_ '())))) - _%g60036014%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g60016032%_ - (_%make-main5943%_)))) - _%g59755986%_)))) - (_%g59736036%_ - (_%make-dispatch5944%_ _%L5961%_)))) - _%g59475958%_)))) - (_%g59456040%_ (gx#genident 'kw-lambda-main)))))) - (_%generate-kw-dispatch5335%_ - (lambda (_%primary5848%_ _%kwargs5850%_ _%strict?5851%_) - (let* ((_%g58535872%_ - (lambda (_%g58545868%_) + (cons _%L6052%_ '())))) + _%g60666077%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g60646095%_ + (_%make-main6006%_)))) + _%g60386049%_)))) + (_%g60366099%_ + (_%make-dispatch6007%_ _%L6024%_)))) + _%g60106021%_)))) + (_%g60086103%_ (gx#genident 'kw-lambda-main)))))) + (_%generate-kw-dispatch5398%_ + (lambda (_%primary5911%_ _%kwargs5913%_ _%strict?5914%_) + (let* ((_%g59165935%_ + (lambda (_%g59175931%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g58545868%_))) - (_%g58525931%_ - (lambda (_%g58545876%_) - (if (gx#stx-pair? _%g58545876%_) - (let ((_%e58585879%_ - (gx#syntax-e _%g58545876%_))) - (let ((_%hd58595883%_ + _%g59175931%_))) + (_%g59155994%_ + (lambda (_%g59175939%_) + (if (gx#stx-pair? _%g59175939%_) + (let ((_%e59215942%_ + (gx#syntax-e _%g59175939%_))) + (let ((_%hd59225946%_ (let () (declare (not safe)) - (##car _%e58585879%_))) - (_%tl58605886%_ + (##car _%e59215942%_))) + (_%tl59235949%_ (let () (declare (not safe)) - (##cdr _%e58585879%_)))) - (if (gx#stx-pair? _%tl58605886%_) - (let ((_%e58615889%_ - (gx#syntax-e _%tl58605886%_))) - (let ((_%hd58625893%_ + (##cdr _%e59215942%_)))) + (if (gx#stx-pair? _%tl59235949%_) + (let ((_%e59245952%_ + (gx#syntax-e _%tl59235949%_))) + (let ((_%hd59255956%_ (let () (declare (not safe)) - (##car _%e58615889%_))) - (_%tl58635896%_ + (##car _%e59245952%_))) + (_%tl59265959%_ (let () (declare (not safe)) - (##cdr _%e58615889%_)))) - (if (gx#stx-pair? _%tl58635896%_) - (let ((_%e58645899%_ + (##cdr _%e59245952%_)))) + (if (gx#stx-pair? _%tl59265959%_) + (let ((_%e59275962%_ (gx#syntax-e - _%tl58635896%_))) - (let ((_%hd58655903%_ + _%tl59265959%_))) + (let ((_%hd59285966%_ (let () (declare (not safe)) - (##car _%e58645899%_))) - (_%tl58665906%_ + (##car _%e59275962%_))) + (_%tl59295969%_ (let () (declare (not safe)) - (##cdr _%e58645899%_)))) + (##cdr _%e59275962%_)))) (if (gx#stx-null? - _%tl58665906%_) - ((lambda (_%L5909%_ + _%tl59295969%_) + ((lambda (_%L5972%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L5911%_ - _%L5912%_) + _%L5974%_ + _%L5975%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5909%_ + (cons _%L5972%_ (cons (cons (gx#datum->syntax '#f 'apply) (cons (gx#datum->syntax '#f @@ -2205,2554 +2205,2554 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L5912%_ + (cons _%L5975%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L5911%_ (cons _%L5909%_ '()))))) + (cons _%L5974%_ (cons _%L5972%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd58655903%_ - _%hd58625893%_ - _%hd58595883%_) - (_%g58535872%_ _%g58545876%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g58535872%_ - _%g58545876%_)))) - (_%g58535872%_ _%g58545876%_)))) - (_%g58535872%_ _%g58545876%_))))) - (_%g58525931%_ - (list (if _%strict?5851%_ - (_%generate-kw-table5336%_ - (map car _%kwargs5850%_)) + _%hd59285966%_ + _%hd59255956%_ + _%hd59225946%_) + (_%g59165935%_ _%g59175939%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g59165935%_ + _%g59175939%_)))) + (_%g59165935%_ _%g59175939%_)))) + (_%g59165935%_ _%g59175939%_))))) + (_%g59155994%_ + (list (if _%strict?5914%_ + (_%generate-kw-table5399%_ + (map car _%kwargs5913%_)) '#f) - _%primary5848%_ + _%primary5911%_ (gx#genident 'args)))))) - (_%generate-kw-table5336%_ - (lambda (_%kws5822%_) - (let _%rehash5825%_ ((_%pht5828%_ - (let ((__tmp20943 - (length _%kws5822%_))) + (_%generate-kw-table5399%_ + (lambda (_%kws5885%_) + (let _%rehash5888%_ ((_%pht5891%_ + (let ((__tmp21006 + (length _%kws5885%_))) (declare (not safe)) - (##make-vector __tmp20943 '#f)))) - (let _%lp5831%_ ((_%rest5834%_ _%kws5822%_)) - (if (pair? _%rest5834%_) - (let* ((_%key5837%_ + (##make-vector __tmp21006 '#f)))) + (let _%lp5894%_ ((_%rest5897%_ _%kws5885%_)) + (if (pair? _%rest5897%_) + (let* ((_%key5900%_ (let () (declare (not safe)) - (##car _%rest5834%_))) - (_%rest5840%_ + (##car _%rest5897%_))) + (_%rest5903%_ (let () (declare (not safe)) - (##cdr _%rest5834%_))) - (_%pos5843%_ - (let ((__tmp20940 - (keyword-hash _%key5837%_)) - (__tmp20939 - (vector-length _%pht5828%_))) + (##cdr _%rest5897%_))) + (_%pos5906%_ + (let ((__tmp21003 + (keyword-hash _%key5900%_)) + (__tmp21002 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fxmodulo __tmp20940 __tmp20939)))) - (if (vector-ref _%pht5828%_ _%pos5843%_) - (if (let ((__tmp20941 - (vector-length _%pht5828%_))) + (##fxmodulo __tmp21003 __tmp21002)))) + (if (vector-ref _%pht5891%_ _%pos5906%_) + (if (let ((__tmp21004 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fx< __tmp20941 '8192)) - (_%rehash5825%_ + (##fx< __tmp21004 '8192)) + (_%rehash5888%_ (make-vector (quotient - (let ((__tmp20942 - (vector-length _%pht5828%_))) + (let ((__tmp21005 + (vector-length _%pht5891%_))) (declare (not safe)) - (##fx* '3 __tmp20942)) + (##fx* '3 __tmp21005)) '2) '#f)) (error '"Unresolvable keyword collision" - _%kws5822%_)) + _%kws5885%_)) (begin (vector-set! - _%pht5828%_ - _%pos5843%_ - _%key5837%_) - (_%lp5831%_ _%rest5840%_)))) - _%pht5828%_)))))) - (let* ((_%__stx1944619447%_ _%stx5320%_) - (_%g53405371%_ + _%pht5891%_ + _%pos5906%_ + _%key5900%_) + (_%lp5894%_ _%rest5903%_)))) + _%pht5891%_)))))) + (let* ((_%__stx1950919510%_ _%stx5383%_) + (_%g54035434%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1944619447%_)))) - (let ((_%__kont1944919450%_ - (lambda (_%L5803%_ _%L5805%_) + _%__stx1950919510%_)))) + (let ((_%__kont1951219513%_ + (lambda (_%L5866%_ _%L5868%_) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L5805%_ _%L5803%_)))) - (_%__kont1945119452%_ - (lambda (_%L5575%_ _%L5577%_) - (let ((_g20944_ (_%opt-lambda-split5326%_ _%L5577%_))) + (cons _%L5868%_ _%L5866%_)))) + (_%__kont1951419515%_ + (lambda (_%L5638%_ _%L5640%_) + (let ((_g21007_ (_%opt-lambda-split5389%_ _%L5640%_))) (begin - (let ((_g20945_ + (let ((_g21008_ (let () (declare (not safe)) - (if (##values? _g20944_) - (##vector-length _g20944_) + (if (##values? _g21007_) + (##values-length _g21007_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20945_ 3))) - (error "Context expects 3 values" _g20945_))) - (let ((_%pre5590%_ + (##fx= _g21008_ 3))) + (error "Context expects 3 values" _g21008_))) + (let ((_%pre5653%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 0))) - (_%opt5592%_ + (##values-ref _g21007_ 0))) + (_%opt5655%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 1))) - (_%tail5593%_ + (##values-ref _g21007_ 1))) + (_%tail5656%_ (let () (declare (not safe)) - (##vector-ref _g20944_ 2)))) - (let* ((_%g55955603%_ - (lambda (_%g55965599%_) + (##values-ref _g21007_ 2)))) + (let* ((_%g56585666%_ + (lambda (_%g56595662%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55965599%_))) - (_%g55945772%_ - (lambda (_%g55965607%_) - ((lambda (_%L5610%_) - (let* ((_%g56235631%_ - (lambda (_%g56245627%_) + _%g56595662%_))) + (_%g56575835%_ + (lambda (_%g56595670%_) + ((lambda (_%L5673%_) + (let* ((_%g56865694%_ + (lambda (_%g56875690%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56245627%_))) - (_%g56225768%_ - (lambda (_%g56245635%_) - ((lambda (_%L5638%_) - (let* ((_%g56515668%_ - (lambda (_%g56525664%_) + _%g56875690%_))) + (_%g56855831%_ + (lambda (_%g56875698%_) + ((lambda (_%L5701%_) + (let* ((_%g57145731%_ + (lambda (_%g57155727%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g56525664%_))) - (_%g56505764%_ - (lambda (_%g56525672%_) + _%g57155727%_))) + (_%g57135827%_ + (lambda (_%g57155735%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g56525672%_) - (let ((_g20946_ - (gx#syntax-split-splice _%g56525672%_ '0))) + _%g57155735%_) + (let ((_g21009_ + (gx#syntax-split-splice _%g57155735%_ '0))) (begin - (let ((_g20947_ + (let ((_g21010_ (let () (declare (not safe)) - (if (##values? _g20946_) - (##vector-length _g20946_) + (if (##values? _g21009_) + (##values-length _g21009_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20947_ 2))) + (##fx= _g21010_ 2))) (error "Context expects 2 values" - _g20947_))) - (let ((_%target56545675%_ + _g21010_))) + (let ((_%target57175738%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 0))) - (_%tl56565678%_ + (##values-ref _g21009_ 0))) + (_%tl57195741%_ (let () (declare (not safe)) - (##vector-ref _g20946_ 1)))) - (if (gx#stx-null? _%tl56565678%_) - (letrec ((_%loop56575681%_ - (lambda (_%hd56555685%_ - _%clause56615688%_) + (##values-ref _g21009_ 1)))) + (if (gx#stx-null? _%tl57195741%_) + (letrec ((_%loop57205744%_ + (lambda (_%hd57185748%_ + _%clause57245751%_) (if (gx#stx-pair? - _%hd56555685%_) - (let ((_%e56585691%_ + _%hd57185748%_) + (let ((_%e57215754%_ (gx#syntax-e - _%hd56555685%_))) - (let ((_%lp-hd56595695%_ + _%hd57185748%_))) + (let ((_%lp-hd57225758%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e56585691%_))) - (_%lp-tl56605698%_ - (let () (declare (not safe)) (##cdr _%e56585691%_)))) - (_%loop56575681%_ - _%lp-tl56605698%_ - (cons _%lp-hd56595695%_ _%clause56615688%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%clause56625701%_ - (reverse _%clause56615688%_))) - ((lambda (_%L5705%_) - (let* ((_%g57225730%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g57235726%_) + (##car _%e57215754%_))) + (_%lp-tl57235761%_ + (let () (declare (not safe)) (##cdr _%e57215754%_)))) + (_%loop57205744%_ + _%lp-tl57235761%_ + (cons _%lp-hd57225758%_ _%clause57245751%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%clause57255764%_ + (reverse _%clause57245751%_))) + ((lambda (_%L5768%_) + (let* ((_%g57855793%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%g57865789%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g57235726%_))) - (_%g57215752%_ - (lambda (_%g57235734%_) - ((lambda (_%L5737%_) + _%g57865789%_))) + (_%g57845815%_ + (lambda (_%g57865797%_) + ((lambda (_%L5800%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5610%_ '()) - (cons _%L5638%_ '())) + (cons (cons (cons (cons _%L5673%_ '()) + (cons _%L5701%_ '())) '()) - (cons _%L5737%_ '())))) - _%g57235734%_)))) - (_%g57215752%_ + (cons _%L5800%_ '())))) + _%g57865797%_)))) + (_%g57845815%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g57555758%_ _%g57565761%_) - (cons _%g57555758%_ _%g57565761%_)) + (foldr (lambda (_%g58185821%_ _%g58195824%_) + (cons _%g58185821%_ _%g58195824%_)) '() - _%L5705%_)) - (gx#stx-source _%stx5320%_))))) - _%clause56625701%_)))))) + _%L5768%_)) + (gx#stx-source _%stx5383%_))))) + _%clause57255764%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop56575681%_ - _%target56545675%_ + (_%loop57205744%_ + _%target57175738%_ '())) - (_%g56515668%_ _%g56525672%_))))) - (_%g56515668%_ _%g56525672%_))))) - (_%g56505764%_ - (_%generate-opt-dispatch5331%_ - _%L5610%_ - _%pre5590%_ - _%opt5592%_ - _%tail5593%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g56245635%_)))) - (_%g56225768%_ + (_%g57145731%_ _%g57155735%_))))) + (_%g57145731%_ _%g57155735%_))))) + (_%g57135827%_ + (_%generate-opt-dispatch5394%_ + _%L5673%_ + _%pre5653%_ + _%opt5655%_ + _%tail5656%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g56875698%_)))) + (_%g56855831%_ (gx#stx-wrap-source - (_%generate-opt-primary5330%_ - _%pre5590%_ - _%opt5592%_ - _%tail5593%_ - _%L5575%_) - (gx#stx-source _%stx5320%_))))) - _%g55965607%_)))) - (_%g55945772%_ (gx#genident 'opt-lambda)))))))) - (_%__kont1945319454%_ - (lambda (_%L5398%_ _%L5400%_) - (let* ((_%g54165423%_ - (lambda (_%g54175419%_) + (_%generate-opt-primary5393%_ + _%pre5653%_ + _%opt5655%_ + _%tail5656%_ + _%L5638%_) + (gx#stx-source _%stx5383%_))))) + _%g56595670%_)))) + (_%g56575835%_ (gx#genident 'opt-lambda)))))))) + (_%__kont1951619517%_ + (lambda (_%L5461%_ _%L5463%_) + (let* ((_%g54795486%_ + (lambda (_%g54805482%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54175419%_))) - (_%g54155544%_ - (lambda (_%g54175427%_) + _%g54805482%_))) + (_%g54785607%_ + (lambda (_%g54805490%_) ((lambda () - (let ((_g20948_ - (_%kw-lambda-split5328%_ _%L5400%_))) + (let ((_g21011_ + (_%kw-lambda-split5391%_ _%L5463%_))) (begin - (let ((_g20949_ + (let ((_g21012_ (let () (declare (not safe)) - (if (##values? _g20948_) - (##vector-length _g20948_) + (if (##values? _g21011_) + (##values-length _g21011_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20949_ 3))) + (##fx= _g21012_ 3))) (error "Context expects 3 values" - _g20949_))) - (let ((_%key5436%_ + _g21012_))) + (let ((_%key5499%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 0))) - (_%kwargs5438%_ + (##values-ref _g21011_ 0))) + (_%kwargs5501%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 1))) - (_%args5439%_ + (##values-ref _g21011_ 1))) + (_%args5502%_ (let () (declare (not safe)) - (##vector-ref _g20948_ 2)))) - (let* ((_%g54415449%_ - (lambda (_%g54425445%_) + (##values-ref _g21011_ 2)))) + (let* ((_%g55045512%_ + (lambda (_%g55055508%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54425445%_))) - (_%g54405540%_ - (lambda (_%g54425453%_) - ((lambda (_%L5456%_) - (let* ((_%g54745482%_ - (lambda (_%g54755478%_) + _%g55055508%_))) + (_%g55035603%_ + (lambda (_%g55055516%_) + ((lambda (_%L5519%_) + (let* ((_%g55375545%_ + (lambda (_%g55385541%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g54755478%_))) - (_%g54735536%_ - (lambda (_%g54755486%_) - ((lambda (_%L5489%_) + _%g55385541%_))) + (_%g55365599%_ + (lambda (_%g55385549%_) + ((lambda (_%L5552%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g55025510%_ - (lambda (_%g55035506%_) + (let* ((_%g55655573%_ + (lambda (_%g55665569%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g55035506%_))) - (_%g55015532%_ - (lambda (_%g55035514%_) - ((lambda (_%L5517%_) + _%g55665569%_))) + (_%g55645595%_ + (lambda (_%g55665577%_) + ((lambda (_%L5580%_) (cons (gx#datum->syntax '#f 'let-values) - (cons (cons (cons (cons _%L5456%_ + (cons (cons (cons (cons _%L5519%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons _%L5489%_ '())) + (cons _%L5552%_ '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L5517%_ '())))) - _%g55035514%_)))) - (_%g55015532%_ + (cons _%L5580%_ '())))) + _%g55665577%_)))) + (_%g55645595%_ (gx#stx-wrap-source - (_%generate-kw-dispatch5335%_ - _%L5456%_ - _%kwargs5438%_ - (not _%key5436%_)) - (gx#stx-source _%stx5320%_))))) - _%g54755486%_)))) - (_%g54735536%_ + (_%generate-kw-dispatch5398%_ + _%L5519%_ + _%kwargs5501%_ + (not _%key5499%_)) + (gx#stx-source _%stx5383%_))))) + _%g55385549%_)))) + (_%g55365599%_ (gx#stx-wrap-source - (_%generate-kw-primary5334%_ - _%key5436%_ - _%kwargs5438%_ - _%args5439%_ - _%L5398%_) - (gx#stx-source _%stx5320%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g54425453%_)))) - (_%g54405540%_ + (_%generate-kw-primary5397%_ + _%key5499%_ + _%kwargs5501%_ + _%args5502%_ + _%L5461%_) + (gx#stx-source _%stx5383%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g55055516%_)))) + (_%g55035603%_ (gx#genident 'kw-lambda))))))))))) - (_%g54155544%_ - (_%check-duplicate-bindings5329%_ _%L5400%_)))))) - (let* ((_%__match1949119492%_ - (lambda (_%e53605378%_ - _%hd53615382%_ - _%tl53625385%_ - _%e53635388%_ - _%hd53645392%_ - _%tl53655395%_) - (let ((_%L5398%_ _%tl53655395%_) - (_%L5400%_ _%hd53645392%_)) - (if (_%kw-lambda?5327%_ _%L5400%_) - (_%__kont1945319454%_ _%L5398%_ _%L5400%_) - (let () (declare (not safe)) (_%g53405371%_)))))) - (_%__match1947919480%_ - (lambda (_%e53525555%_ - _%hd53535559%_ - _%tl53545562%_ - _%e53555565%_ - _%hd53565569%_ - _%tl53575572%_) - (let ((_%L5575%_ _%tl53575572%_) - (_%L5577%_ _%hd53565569%_)) - (if (_%opt-lambda?5325%_ _%L5577%_) - (_%__kont1945119452%_ _%L5575%_ _%L5577%_) - (_%__match1949119492%_ - _%e53525555%_ - _%hd53535559%_ - _%tl53545562%_ - _%e53555565%_ - _%hd53565569%_ - _%tl53575572%_))))) - (_%__match1946719468%_ - (lambda (_%e53445783%_ - _%hd53455787%_ - _%tl53465790%_ - _%e53475793%_ - _%hd53485797%_ - _%tl53495800%_) - (let ((_%L5803%_ _%tl53495800%_) - (_%L5805%_ _%hd53485797%_)) - (if (_%simple-lambda?5323%_ _%L5805%_) - (_%__kont1944919450%_ _%L5803%_ _%L5805%_) - (_%__match1947919480%_ - _%e53445783%_ - _%hd53455787%_ - _%tl53465790%_ - _%e53475793%_ - _%hd53485797%_ - _%tl53495800%_)))))) - (if (gx#stx-pair? _%__stx1944619447%_) - (let ((_%e53445783%_ (gx#syntax-e _%__stx1944619447%_))) - (let ((_%tl53465790%_ + (_%g54785607%_ + (_%check-duplicate-bindings5392%_ _%L5463%_)))))) + (let* ((_%__match1955419555%_ + (lambda (_%e54235441%_ + _%hd54245445%_ + _%tl54255448%_ + _%e54265451%_ + _%hd54275455%_ + _%tl54285458%_) + (let ((_%L5461%_ _%tl54285458%_) + (_%L5463%_ _%hd54275455%_)) + (if (_%kw-lambda?5390%_ _%L5463%_) + (_%__kont1951619517%_ _%L5461%_ _%L5463%_) + (let () (declare (not safe)) (_%g54035434%_)))))) + (_%__match1954219543%_ + (lambda (_%e54155618%_ + _%hd54165622%_ + _%tl54175625%_ + _%e54185628%_ + _%hd54195632%_ + _%tl54205635%_) + (let ((_%L5638%_ _%tl54205635%_) + (_%L5640%_ _%hd54195632%_)) + (if (_%opt-lambda?5388%_ _%L5640%_) + (_%__kont1951419515%_ _%L5638%_ _%L5640%_) + (_%__match1955419555%_ + _%e54155618%_ + _%hd54165622%_ + _%tl54175625%_ + _%e54185628%_ + _%hd54195632%_ + _%tl54205635%_))))) + (_%__match1953019531%_ + (lambda (_%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_) + (let ((_%L5866%_ _%tl54125863%_) + (_%L5868%_ _%hd54115860%_)) + (if (_%simple-lambda?5386%_ _%L5868%_) + (_%__kont1951219513%_ _%L5866%_ _%L5868%_) + (_%__match1954219543%_ + _%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_)))))) + (if (gx#stx-pair? _%__stx1950919510%_) + (let ((_%e54075846%_ (gx#syntax-e _%__stx1950919510%_))) + (let ((_%tl54095853%_ (let () (declare (not safe)) - (##cdr _%e53445783%_))) - (_%hd53455787%_ + (##cdr _%e54075846%_))) + (_%hd54085850%_ (let () (declare (not safe)) - (##car _%e53445783%_)))) - (if (gx#stx-pair? _%tl53465790%_) - (let ((_%e53475793%_ (gx#syntax-e _%tl53465790%_))) - (let ((_%tl53495800%_ + (##car _%e54075846%_)))) + (if (gx#stx-pair? _%tl54095853%_) + (let ((_%e54105856%_ (gx#syntax-e _%tl54095853%_))) + (let ((_%tl54125863%_ (let () (declare (not safe)) - (##cdr _%e53475793%_))) - (_%hd53485797%_ + (##cdr _%e54105856%_))) + (_%hd54115860%_ (let () (declare (not safe)) - (##car _%e53475793%_)))) - (_%__match1946719468%_ - _%e53445783%_ - _%hd53455787%_ - _%tl53465790%_ - _%e53475793%_ - _%hd53485797%_ - _%tl53495800%_))) - (let () (declare (not safe)) (_%g53405371%_))))) - (let () (declare (not safe)) (_%g53405371%_))))))))) + (##car _%e54105856%_)))) + (_%__match1953019531%_ + _%e54075846%_ + _%hd54085850%_ + _%tl54095853%_ + _%e54105856%_ + _%hd54115860%_ + _%tl54125863%_))) + (let () (declare (not safe)) (_%g54035434%_))))) + (let () (declare (not safe)) (_%g54035434%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def| - (lambda (_%$stx8745%_) - (let* ((_%__stx1949419495%_ _%$stx8745%_) - (_%g87518815%_ + (lambda (_%$stx8808%_) + (let* ((_%__stx1955719558%_ _%$stx8808%_) + (_%g88148878%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1949419495%_)))) - (let ((_%__kont1949719498%_ - (lambda (_%L9045%_ _%L9047%_ _%L9048%_ _%L9049%_) + _%__stx1955719558%_)))) + (let ((_%__kont1956019561%_ + (lambda (_%L9108%_ _%L9110%_ _%L9111%_ _%L9112%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L9049%_ _%L9048%_) + (cons (cons _%L9112%_ _%L9111%_) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L9047%_ - (foldr (lambda (_%g90719074%_ + (cons _%L9110%_ + (foldr (lambda (_%g91349137%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g90729077%_) - (cons _%g90719074%_ _%g90729077%_)) + _%g91359140%_) + (cons _%g91349137%_ _%g91359140%_)) '() - _%L9045%_))) + _%L9108%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1950119502%_ - (lambda (_%L8937%_ _%L8939%_ _%L8940%_) + (_%__kont1956419565%_ + (lambda (_%L9000%_ _%L9002%_ _%L9003%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8940%_ '()) + (cons (cons _%L9003%_ '()) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L8939%_ - (foldr (lambda (_%g89598962%_ + (cons _%L9002%_ + (foldr (lambda (_%g90229025%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g89608965%_) - (cons _%g89598962%_ _%g89608965%_)) + _%g90239028%_) + (cons _%g90229025%_ _%g90239028%_)) '() - _%L8937%_))) + _%L9000%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont1950519506%_ - (lambda (_%L8852%_ _%L8854%_) + (_%__kont1956819569%_ + (lambda (_%L8915%_ _%L8917%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L8854%_ '()) (cons _%L8852%_ '())))))) - (let* ((_%__match1958519586%_ - (lambda (_%e88018822%_ - _%hd88028826%_ - _%tl88038829%_ - _%e88048832%_ - _%hd88058836%_ - _%tl88068839%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) - (let ((_%L8852%_ _%hd88088846%_) - (_%L8854%_ _%hd88058836%_)) - (if (gx#identifier? _%L8854%_) - (_%__kont1950519506%_ _%L8852%_ _%L8854%_) - (let () (declare (not safe)) (_%g87518815%_)))))) - (_%__match1957719578%_ - (lambda (_%e88018822%_ - _%hd88028826%_ - _%tl88038829%_ - _%e88048832%_ - _%hd88058836%_ - _%tl88068839%_) - (if (gx#stx-pair? _%tl88068839%_) - (let ((_%e88078842%_ (gx#syntax-e _%tl88068839%_))) - (let ((_%tl88098849%_ + (cons (cons _%L8917%_ '()) (cons _%L8915%_ '())))))) + (let* ((_%__match1964819649%_ + (lambda (_%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let ((_%L8915%_ _%hd88718909%_) + (_%L8917%_ _%hd88688899%_)) + (if (gx#identifier? _%L8917%_) + (_%__kont1956819569%_ _%L8915%_ _%L8917%_) + (let () (declare (not safe)) (_%g88148878%_)))))) + (_%__match1964019641%_ + (lambda (_%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_) + (if (gx#stx-pair? _%tl88698902%_) + (let ((_%e88708905%_ (gx#syntax-e _%tl88698902%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e88078842%_))) - (_%hd88088846%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e88078842%_)))) - (if (gx#stx-null? _%tl88098849%_) - (_%__match1958519586%_ - _%e88018822%_ - _%hd88028826%_ - _%tl88038829%_ - _%e88048832%_ - _%hd88058836%_ - _%tl88068839%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88648885%_ + _%hd88658889%_ + _%tl88668892%_ + _%e88678895%_ + _%hd88688899%_ + _%tl88698902%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87518815%_))))) - (let () (declare (not safe)) (_%g87518815%_))))) - (_%__match1956519566%_ - (lambda (_%e87818877%_ - _%hd87828881%_ - _%tl87838884%_ - _%e87848887%_ - _%hd87858891%_ - _%tl87868894%_ - _%e87878897%_ - _%hd87888901%_ - _%tl87898904%_ - _%__splice1950319504%_ - _%target87908907%_ - _%tl87928910%_) - (letrec ((_%loop87938913%_ - (lambda (_%hd87918917%_ _%body87978920%_) - (if (gx#stx-pair? _%hd87918917%_) - (let ((_%e87948923%_ - (gx#syntax-e _%hd87918917%_))) - (let ((_%lp-tl87968930%_ + (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_))))) + (_%__match1962819629%_ + (lambda (_%e88448940%_ + _%hd88458944%_ + _%tl88468947%_ + _%e88478950%_ + _%hd88488954%_ + _%tl88498957%_ + _%e88508960%_ + _%hd88518964%_ + _%tl88528967%_ + _%__splice1956619567%_ + _%target88538970%_ + _%tl88558973%_) + (letrec ((_%loop88568976%_ + (lambda (_%hd88548980%_ _%body88608983%_) + (if (gx#stx-pair? _%hd88548980%_) + (let ((_%e88578986%_ + (gx#syntax-e _%hd88548980%_))) + (let ((_%lp-tl88598993%_ (let () (declare (not safe)) - (##cdr _%e87948923%_))) - (_%lp-hd87958927%_ + (##cdr _%e88578986%_))) + (_%lp-hd88588990%_ (let () (declare (not safe)) - (##car _%e87948923%_)))) - (_%loop87938913%_ - _%lp-tl87968930%_ - (cons _%lp-hd87958927%_ - _%body87978920%_)))) - (let ((_%body87988933%_ - (reverse _%body87978920%_))) - (let ((_%L8937%_ _%body87988933%_) - (_%L8939%_ _%tl87898904%_) - (_%L8940%_ _%hd87888901%_)) - (if (gx#identifier? _%L8940%_) - (_%__kont1950119502%_ - _%L8937%_ - _%L8939%_ - _%L8940%_) - (_%__match1957719578%_ - _%e87818877%_ - _%hd87828881%_ - _%tl87838884%_ - _%e87848887%_ - _%hd87858891%_ - _%tl87868894%_)))))))) - (_%loop87938913%_ _%target87908907%_ '())))) - (_%__match1953919540%_ - (lambda (_%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e87638995%_ - _%hd87648999%_ - _%tl87659002%_ - _%e87669005%_ - _%hd87679009%_ - _%tl87689012%_ - _%__splice1949919500%_ - _%target87699015%_ - _%tl87719018%_) - (letrec ((_%loop87729021%_ - (lambda (_%hd87709025%_ _%body87769028%_) - (if (gx#stx-pair? _%hd87709025%_) - (let ((_%e87739031%_ - (gx#syntax-e _%hd87709025%_))) - (let ((_%lp-tl87759038%_ + (##car _%e88578986%_)))) + (_%loop88568976%_ + _%lp-tl88598993%_ + (cons _%lp-hd88588990%_ + _%body88608983%_)))) + (let ((_%body88618996%_ + (reverse _%body88608983%_))) + (let ((_%L9000%_ _%body88618996%_) + (_%L9002%_ _%tl88528967%_) + (_%L9003%_ _%hd88518964%_)) + (if (gx#identifier? _%L9003%_) + (_%__kont1956419565%_ + _%L9000%_ + _%L9002%_ + _%L9003%_) + (_%__match1964019641%_ + _%e88448940%_ + _%hd88458944%_ + _%tl88468947%_ + _%e88478950%_ + _%hd88488954%_ + _%tl88498957%_)))))))) + (_%loop88568976%_ _%target88538970%_ '())))) + (_%__match1960219603%_ + (lambda (_%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%e88299068%_ + _%hd88309072%_ + _%tl88319075%_ + _%__splice1956219563%_ + _%target88329078%_ + _%tl88349081%_) + (letrec ((_%loop88359084%_ + (lambda (_%hd88339088%_ _%body88399091%_) + (if (gx#stx-pair? _%hd88339088%_) + (let ((_%e88369094%_ + (gx#syntax-e _%hd88339088%_))) + (let ((_%lp-tl88389101%_ (let () (declare (not safe)) - (##cdr _%e87739031%_))) - (_%lp-hd87749035%_ + (##cdr _%e88369094%_))) + (_%lp-hd88379098%_ (let () (declare (not safe)) - (##car _%e87739031%_)))) - (_%loop87729021%_ - _%lp-tl87759038%_ - (cons _%lp-hd87749035%_ - _%body87769028%_)))) - (let ((_%body87779041%_ - (reverse _%body87769028%_))) - (_%__kont1949719498%_ - _%body87779041%_ - _%tl87659002%_ - _%tl87689012%_ - _%hd87679009%_)))))) - (_%loop87729021%_ _%target87699015%_ '()))))) - (if (gx#stx-pair? _%__stx1949419495%_) - (let ((_%e87578975%_ (gx#syntax-e _%__stx1949419495%_))) - (let ((_%tl87598982%_ - (let () (declare (not safe)) (##cdr _%e87578975%_))) - (_%hd87588979%_ + (##car _%e88369094%_)))) + (_%loop88359084%_ + _%lp-tl88389101%_ + (cons _%lp-hd88379098%_ + _%body88399091%_)))) + (let ((_%body88409104%_ + (reverse _%body88399091%_))) + (_%__kont1956019561%_ + _%body88409104%_ + _%tl88289065%_ + _%tl88319075%_ + _%hd88309072%_)))))) + (_%loop88359084%_ _%target88329078%_ '()))))) + (if (gx#stx-pair? _%__stx1955719558%_) + (let ((_%e88209038%_ (gx#syntax-e _%__stx1955719558%_))) + (let ((_%tl88229045%_ + (let () (declare (not safe)) (##cdr _%e88209038%_))) + (_%hd88219042%_ (let () (declare (not safe)) - (##car _%e87578975%_)))) - (if (gx#stx-pair? _%tl87598982%_) - (let ((_%e87608985%_ (gx#syntax-e _%tl87598982%_))) - (let ((_%tl87628992%_ + (##car _%e88209038%_)))) + (if (gx#stx-pair? _%tl88229045%_) + (let ((_%e88239048%_ (gx#syntax-e _%tl88229045%_))) + (let ((_%tl88259055%_ (let () (declare (not safe)) - (##cdr _%e87608985%_))) - (_%hd87618989%_ + (##cdr _%e88239048%_))) + (_%hd88249052%_ (let () (declare (not safe)) - (##car _%e87608985%_)))) - (if (gx#stx-pair? _%hd87618989%_) - (let ((_%e87638995%_ - (gx#syntax-e _%hd87618989%_))) - (let ((_%tl87659002%_ + (##car _%e88239048%_)))) + (if (gx#stx-pair? _%hd88249052%_) + (let ((_%e88269058%_ + (gx#syntax-e _%hd88249052%_))) + (let ((_%tl88289065%_ (let () (declare (not safe)) - (##cdr _%e87638995%_))) - (_%hd87648999%_ + (##cdr _%e88269058%_))) + (_%hd88279062%_ (let () (declare (not safe)) - (##car _%e87638995%_)))) - (if (gx#stx-pair? _%hd87648999%_) - (let ((_%e87669005%_ - (gx#syntax-e _%hd87648999%_))) - (let ((_%tl87689012%_ + (##car _%e88269058%_)))) + (if (gx#stx-pair? _%hd88279062%_) + (let ((_%e88299068%_ + (gx#syntax-e _%hd88279062%_))) + (let ((_%tl88319075%_ (let () (declare (not safe)) - (##cdr _%e87669005%_))) - (_%hd87679009%_ + (##cdr _%e88299068%_))) + (_%hd88309072%_ (let () (declare (not safe)) - (##car _%e87669005%_)))) + (##car _%e88299068%_)))) (if (gx#stx-pair/null? - _%tl87628992%_) - (let ((_%__splice1949919500%_ + _%tl88259055%_) + (let ((_%__splice1956219563%_ (gx#syntax-split-splice - _%tl87628992%_ + _%tl88259055%_ '0))) - (let ((_%tl87719018%_ + (let ((_%tl88349081%_ (let () (declare (not safe)) (##vector-ref - _%__splice1949919500%_ + _%__splice1956219563%_ '1))) - (_%target87699015%_ + (_%target88329078%_ (let () (declare (not safe)) (##vector-ref - _%__splice1949919500%_ + _%__splice1956219563%_ '0)))) (if (gx#stx-null? - _%tl87719018%_) - (_%__match1953919540%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e87638995%_ - _%hd87648999%_ - _%tl87659002%_ - _%e87669005%_ - _%hd87679009%_ - _%tl87689012%_ - _%__splice1949919500%_ - _%target87699015%_ - _%tl87719018%_) + _%tl88349081%_) + (_%__match1960219603%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%e88299068%_ + _%hd88309072%_ + _%tl88319075%_ + _%__splice1956219563%_ + _%target88329078%_ + _%tl88349081%_) (if (gx#stx-pair? - _%tl87628992%_) - (let ((_%e88078842%_ + _%tl88259055%_) + (let ((_%e88708905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87628992%_))) - (let ((_%tl88098849%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e88078842%_))) - (_%hd88088846%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e88078842%_)))) - (if (gx#stx-null? _%tl88098849%_) - (_%__match1958519586%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) - (let () (declare (not safe)) (_%g87518815%_))))) - (let () (declare (not safe)) (_%g87518815%_)))))) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%tl87628992%_) - (let ((_%e88078842%_ + _%tl88259055%_) + (let ((_%e88708905%_ (gx#syntax-e - _%tl87628992%_))) - (let ((_%tl88098849%_ + _%tl88259055%_))) + (let ((_%tl88728912%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e88078842%_))) - (_%hd88088846%_ - (let () (declare (not safe)) (##car _%e88078842%_)))) - (if (gx#stx-null? _%tl88098849%_) - (_%__match1958519586%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) - (let () (declare (not safe)) (_%g87518815%_))))) - (let () (declare (not safe)) (_%g87518815%_)))))) + (##cdr _%e88708905%_))) + (_%hd88718909%_ + (let () (declare (not safe)) (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl87628992%_) - (let ((_%__splice1950319504%_ + _%tl88259055%_) + (let ((_%__splice1956619567%_ (gx#syntax-split-splice - _%tl87628992%_ + _%tl88259055%_ '0))) - (let ((_%tl87928910%_ + (let ((_%tl88558973%_ (let () (declare (not safe)) (##vector-ref - _%__splice1950319504%_ + _%__splice1956619567%_ '1))) - (_%target87908907%_ + (_%target88538970%_ (let () (declare (not safe)) (##vector-ref - _%__splice1950319504%_ + _%__splice1956619567%_ '0)))) (if (gx#stx-null? - _%tl87928910%_) - (_%__match1956519566%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e87638995%_ - _%hd87648999%_ - _%tl87659002%_ - _%__splice1950319504%_ - _%target87908907%_ - _%tl87928910%_) + _%tl88558973%_) + (_%__match1962819629%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88269058%_ + _%hd88279062%_ + _%tl88289065%_ + _%__splice1956619567%_ + _%target88538970%_ + _%tl88558973%_) (if (gx#stx-pair? - _%tl87628992%_) - (let ((_%e88078842%_ + _%tl88259055%_) + (let ((_%e88708905%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl87628992%_))) - (let ((_%tl88098849%_ - (let () (declare (not safe)) (##cdr _%e88078842%_))) - (_%hd88088846%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ + (let () (declare (not safe)) (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e88078842%_)))) - (if (gx#stx-null? _%tl88098849%_) - (_%__match1958519586%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) - (let () (declare (not safe)) (_%g87518815%_))))) - (let () (declare (not safe)) (_%g87518815%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl87628992%_) - (let ((_%e88078842%_ + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%tl88259055%_) + (let ((_%e88708905%_ (gx#syntax-e - _%tl87628992%_))) - (let ((_%tl88098849%_ + _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e88078842%_))) - (_%hd88088846%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e88078842%_)))) + (##car _%e88708905%_)))) (if (gx#stx-null? - _%tl88098849%_) - (_%__match1958519586%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) + _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87518815%_))))) + (_%g88148878%_))))) (let () (declare (not safe)) - (_%g87518815%_))))))) - (if (gx#stx-pair? _%tl87628992%_) - (let ((_%e88078842%_ - (gx#syntax-e _%tl87628992%_))) - (let ((_%tl88098849%_ + (_%g88148878%_))))))) + (if (gx#stx-pair? _%tl88259055%_) + (let ((_%e88708905%_ + (gx#syntax-e _%tl88259055%_))) + (let ((_%tl88728912%_ (let () (declare (not safe)) - (##cdr _%e88078842%_))) - (_%hd88088846%_ + (##cdr _%e88708905%_))) + (_%hd88718909%_ (let () (declare (not safe)) - (##car _%e88078842%_)))) - (if (gx#stx-null? _%tl88098849%_) - (_%__match1958519586%_ - _%e87578975%_ - _%hd87588979%_ - _%tl87598982%_ - _%e87608985%_ - _%hd87618989%_ - _%tl87628992%_ - _%e88078842%_ - _%hd88088846%_ - _%tl88098849%_) + (##car _%e88708905%_)))) + (if (gx#stx-null? _%tl88728912%_) + (_%__match1964819649%_ + _%e88209038%_ + _%hd88219042%_ + _%tl88229045%_ + _%e88239048%_ + _%hd88249052%_ + _%tl88259055%_ + _%e88708905%_ + _%hd88718909%_ + _%tl88728912%_) (let () (declare (not safe)) - (_%g87518815%_))))) + (_%g88148878%_))))) (let () (declare (not safe)) - (_%g87518815%_)))))) - (let () (declare (not safe)) (_%g87518815%_))))) - (let () (declare (not safe)) (_%g87518815%_)))))))) + (_%g88148878%_)))))) + (let () (declare (not safe)) (_%g88148878%_))))) + (let () (declare (not safe)) (_%g88148878%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#def*| - (lambda (_%$stx9086%_) - (let* ((_%g90909114%_ - (lambda (_%g90919110%_) + (lambda (_%$stx9149%_) + (let* ((_%g91539177%_ + (lambda (_%g91549173%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g90919110%_))) - (_%g90899199%_ - (lambda (_%g90919118%_) - (if (gx#stx-pair? _%g90919118%_) - (let ((_%e90949121%_ (gx#syntax-e _%g90919118%_))) - (let ((_%hd90959125%_ + _%g91549173%_))) + (_%g91529262%_ + (lambda (_%g91549181%_) + (if (gx#stx-pair? _%g91549181%_) + (let ((_%e91579184%_ (gx#syntax-e _%g91549181%_))) + (let ((_%hd91589188%_ (let () (declare (not safe)) - (##car _%e90949121%_))) - (_%tl90969128%_ + (##car _%e91579184%_))) + (_%tl91599191%_ (let () (declare (not safe)) - (##cdr _%e90949121%_)))) - (if (gx#stx-pair? _%tl90969128%_) - (let ((_%e90979131%_ - (gx#syntax-e _%tl90969128%_))) - (let ((_%hd90989135%_ + (##cdr _%e91579184%_)))) + (if (gx#stx-pair? _%tl91599191%_) + (let ((_%e91609194%_ + (gx#syntax-e _%tl91599191%_))) + (let ((_%hd91619198%_ (let () (declare (not safe)) - (##car _%e90979131%_))) - (_%tl90999138%_ + (##car _%e91609194%_))) + (_%tl91629201%_ (let () (declare (not safe)) - (##cdr _%e90979131%_)))) - (if (gx#stx-pair/null? _%tl90999138%_) - (let ((_g20950_ + (##cdr _%e91609194%_)))) + (if (gx#stx-pair/null? _%tl91629201%_) + (let ((_g21013_ (gx#syntax-split-splice - _%tl90999138%_ + _%tl91629201%_ '0))) (begin - (let ((_g20951_ + (let ((_g21014_ (let () (declare (not safe)) - (if (##values? _g20950_) - (##vector-length - _g20950_) + (if (##values? _g21013_) + (##values-length + _g21013_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20951_ 2))) + (##fx= _g21014_ 2))) (error "Context expects 2 values" - _g20951_))) - (let ((_%target91009141%_ + _g21014_))) + (let ((_%target91639204%_ (let () (declare (not safe)) - (##vector-ref _g20950_ 0))) - (_%tl91029144%_ + (##values-ref _g21013_ 0))) + (_%tl91659207%_ (let () (declare (not safe)) - (##vector-ref _g20950_ 1)))) - (if (gx#stx-null? _%tl91029144%_) - (letrec ((_%loop91039147%_ - (lambda (_%hd91019151%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clauses91079154%_) - (if (gx#stx-pair? _%hd91019151%_) - (let ((_%e91049157%_ (gx#syntax-e _%hd91019151%_))) - (let ((_%lp-hd91059161%_ + (##values-ref _g21013_ 1)))) + (if (gx#stx-null? _%tl91659207%_) + (letrec ((_%loop91669210%_ + (lambda (_%hd91649214%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clauses91709217%_) + (if (gx#stx-pair? _%hd91649214%_) + (let ((_%e91679220%_ (gx#syntax-e _%hd91649214%_))) + (let ((_%lp-hd91689224%_ (let () (declare (not safe)) - (##car _%e91049157%_))) - (_%lp-tl91069164%_ + (##car _%e91679220%_))) + (_%lp-tl91699227%_ (let () (declare (not safe)) - (##cdr _%e91049157%_)))) - (_%loop91039147%_ - _%lp-tl91069164%_ - (cons _%lp-hd91059161%_ _%clauses91079154%_)))) - (let ((_%clauses91089167%_ - (reverse _%clauses91079154%_))) - ((lambda (_%L9171%_ _%L9173%_) - (if (gx#identifier? _%L9173%_) + (##cdr _%e91679220%_)))) + (_%loop91669210%_ + _%lp-tl91699227%_ + (cons _%lp-hd91689224%_ _%clauses91709217%_)))) + (let ((_%clauses91719230%_ + (reverse _%clauses91709217%_))) + ((lambda (_%L9234%_ _%L9236%_) + (if (gx#identifier? _%L9236%_) (cons (gx#datum->syntax '#f 'define-values) - (cons (cons _%L9173%_ '()) + (cons (cons _%L9236%_ '()) (cons (cons (gx#datum->syntax '#f 'case-lambda) - (foldr (lambda (_%g91909193%_ + (foldr (lambda (_%g92539256%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g91919196%_) - (cons _%g91909193%_ _%g91919196%_)) + _%g92549259%_) + (cons _%g92539256%_ _%g92549259%_)) '() - _%L9171%_)) + _%L9234%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (_%g90909114%_ _%g90919118%_))) - _%clauses91089167%_ - _%hd90989135%_)))))) + (_%g91539177%_ _%g91549181%_))) + _%clauses91719230%_ + _%hd91619198%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop91039147%_ - _%target91009141%_ + (_%loop91669210%_ + _%target91639204%_ '())) - (_%g90909114%_ - _%g90919118%_))))) - (_%g90909114%_ _%g90919118%_)))) - (_%g90909114%_ _%g90919118%_)))) - (_%g90909114%_ _%g90919118%_))))) - (_%g90899199%_ _%$stx9086%_)))) + (_%g91539177%_ + _%g91549181%_))))) + (_%g91539177%_ _%g91549181%_)))) + (_%g91539177%_ _%g91549181%_)))) + (_%g91539177%_ _%g91549181%_))))) + (_%g91529262%_ _%$stx9149%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#defvalues| - (lambda (_%$stx9204%_) - (let* ((_%g92089226%_ - (lambda (_%g92099222%_) + (lambda (_%$stx9267%_) + (let* ((_%g92719289%_ + (lambda (_%g92729285%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g92099222%_))) - (_%g92079281%_ - (lambda (_%g92099230%_) - (if (gx#stx-pair? _%g92099230%_) - (let ((_%e92129233%_ (gx#syntax-e _%g92099230%_))) - (let ((_%hd92139237%_ + _%g92729285%_))) + (_%g92709344%_ + (lambda (_%g92729293%_) + (if (gx#stx-pair? _%g92729293%_) + (let ((_%e92759296%_ (gx#syntax-e _%g92729293%_))) + (let ((_%hd92769300%_ (let () (declare (not safe)) - (##car _%e92129233%_))) - (_%tl92149240%_ + (##car _%e92759296%_))) + (_%tl92779303%_ (let () (declare (not safe)) - (##cdr _%e92129233%_)))) - (if (gx#stx-pair? _%tl92149240%_) - (let ((_%e92159243%_ - (gx#syntax-e _%tl92149240%_))) - (let ((_%hd92169247%_ + (##cdr _%e92759296%_)))) + (if (gx#stx-pair? _%tl92779303%_) + (let ((_%e92789306%_ + (gx#syntax-e _%tl92779303%_))) + (let ((_%hd92799310%_ (let () (declare (not safe)) - (##car _%e92159243%_))) - (_%tl92179250%_ + (##car _%e92789306%_))) + (_%tl92809313%_ (let () (declare (not safe)) - (##cdr _%e92159243%_)))) - (if (gx#stx-pair? _%tl92179250%_) - (let ((_%e92189253%_ - (gx#syntax-e _%tl92179250%_))) - (let ((_%hd92199257%_ + (##cdr _%e92789306%_)))) + (if (gx#stx-pair? _%tl92809313%_) + (let ((_%e92819316%_ + (gx#syntax-e _%tl92809313%_))) + (let ((_%hd92829320%_ (let () (declare (not safe)) - (##car _%e92189253%_))) - (_%tl92209260%_ + (##car _%e92819316%_))) + (_%tl92839323%_ (let () (declare (not safe)) - (##cdr _%e92189253%_)))) - (if (gx#stx-null? _%tl92209260%_) - ((lambda (_%L9263%_ _%L9265%_) + (##cdr _%e92819316%_)))) + (if (gx#stx-null? _%tl92839323%_) + ((lambda (_%L9326%_ _%L9328%_) (if (gx#identifier-list? - _%L9265%_) + _%L9328%_) (cons (gx#datum->syntax '#f 'define-values) - (cons _%L9265%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9263%_ '()))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g92089226%_ - _%g92099230%_))) - _%hd92199257%_ - _%hd92169247%_) - (_%g92089226%_ _%g92099230%_)))) - (_%g92089226%_ _%g92099230%_)))) - (_%g92089226%_ _%g92099230%_)))) - (_%g92089226%_ _%g92099230%_))))) - (_%g92079281%_ _%$stx9204%_)))) + (cons _%L9328%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%L9326%_ '()))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g92719289%_ + _%g92729293%_))) + _%hd92829320%_ + _%hd92799310%_) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_)))) + (_%g92719289%_ _%g92729293%_))))) + (_%g92709344%_ _%$stx9267%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#case| - (lambda (_%$stx9285%_) - (let* ((_%g92899313%_ - (lambda (_%g92909309%_) + (lambda (_%$stx9348%_) + (let* ((_%g93529376%_ + (lambda (_%g93539372%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g92909309%_))) - (_%g92889398%_ - (lambda (_%g92909317%_) - (if (gx#stx-pair? _%g92909317%_) - (let ((_%e92939320%_ (gx#syntax-e _%g92909317%_))) - (let ((_%hd92949324%_ + _%g93539372%_))) + (_%g93519461%_ + (lambda (_%g93539380%_) + (if (gx#stx-pair? _%g93539380%_) + (let ((_%e93569383%_ (gx#syntax-e _%g93539380%_))) + (let ((_%hd93579387%_ (let () (declare (not safe)) - (##car _%e92939320%_))) - (_%tl92959327%_ + (##car _%e93569383%_))) + (_%tl93589390%_ (let () (declare (not safe)) - (##cdr _%e92939320%_)))) - (if (gx#stx-pair? _%tl92959327%_) - (let ((_%e92969330%_ - (gx#syntax-e _%tl92959327%_))) - (let ((_%hd92979334%_ + (##cdr _%e93569383%_)))) + (if (gx#stx-pair? _%tl93589390%_) + (let ((_%e93599393%_ + (gx#syntax-e _%tl93589390%_))) + (let ((_%hd93609397%_ (let () (declare (not safe)) - (##car _%e92969330%_))) - (_%tl92989337%_ + (##car _%e93599393%_))) + (_%tl93619400%_ (let () (declare (not safe)) - (##cdr _%e92969330%_)))) - (if (gx#stx-pair/null? _%tl92989337%_) - (let ((_g20952_ + (##cdr _%e93599393%_)))) + (if (gx#stx-pair/null? _%tl93619400%_) + (let ((_g21015_ (gx#syntax-split-splice - _%tl92989337%_ + _%tl93619400%_ '0))) (begin - (let ((_g20953_ + (let ((_g21016_ (let () (declare (not safe)) - (if (##values? _g20952_) - (##vector-length - _g20952_) + (if (##values? _g21015_) + (##values-length + _g21015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20953_ 2))) + (##fx= _g21016_ 2))) (error "Context expects 2 values" - _g20953_))) - (let ((_%target92999340%_ + _g21016_))) + (let ((_%target93629403%_ (let () (declare (not safe)) - (##vector-ref _g20952_ 0))) - (_%tl93019343%_ + (##values-ref _g21015_ 0))) + (_%tl93649406%_ (let () (declare (not safe)) - (##vector-ref _g20952_ 1)))) - (if (gx#stx-null? _%tl93019343%_) - (letrec ((_%loop93029346%_ - (lambda (_%hd93009350%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause93069353%_) - (if (gx#stx-pair? _%hd93009350%_) - (let ((_%e93039356%_ (gx#syntax-e _%hd93009350%_))) - (let ((_%lp-hd93049360%_ + (##values-ref _g21015_ 1)))) + (if (gx#stx-null? _%tl93649406%_) + (letrec ((_%loop93659409%_ + (lambda (_%hd93639413%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause93699416%_) + (if (gx#stx-pair? _%hd93639413%_) + (let ((_%e93669419%_ (gx#syntax-e _%hd93639413%_))) + (let ((_%lp-hd93679423%_ (let () (declare (not safe)) - (##car _%e93039356%_))) - (_%lp-tl93059363%_ + (##car _%e93669419%_))) + (_%lp-tl93689426%_ (let () (declare (not safe)) - (##cdr _%e93039356%_)))) - (_%loop93029346%_ - _%lp-tl93059363%_ - (cons _%lp-hd93049360%_ _%clause93069353%_)))) - (let ((_%clause93079366%_ - (reverse _%clause93069353%_))) - ((lambda (_%L9370%_ _%L9372%_) + (##cdr _%e93669419%_)))) + (_%loop93659409%_ + _%lp-tl93689426%_ + (cons _%lp-hd93679423%_ _%clause93699416%_)))) + (let ((_%clause93709429%_ + (reverse _%clause93699416%_))) + ((lambda (_%L9433%_ _%L9435%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L9372%_ '())) + (cons _%L9435%_ '())) (cons (cons (gx#datum->syntax '#f '~case) (cons (gx#datum->syntax '#f '$e) - (foldr (lambda (_%g93899392%_ + (foldr (lambda (_%g94529455%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g93909395%_) - (cons _%g93899392%_ _%g93909395%_)) + _%g94539458%_) + (cons _%g94529455%_ _%g94539458%_)) '() - _%L9370%_))) + _%L9433%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%clause93079366%_ - _%hd92979334%_)))))) + _%clause93709429%_ + _%hd93609397%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop93029346%_ - _%target92999340%_ + (_%loop93659409%_ + _%target93629403%_ '())) - (_%g92899313%_ - _%g92909317%_))))) - (_%g92899313%_ _%g92909317%_)))) - (_%g92899313%_ _%g92909317%_)))) - (_%g92899313%_ _%g92909317%_))))) - (_%g92889398%_ _%$stx9285%_)))) + (_%g93529376%_ + _%g93539380%_))))) + (_%g93529376%_ _%g93539380%_)))) + (_%g93529376%_ _%g93539380%_)))) + (_%g93529376%_ _%g93539380%_))))) + (_%g93519461%_ _%$stx9348%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case| - (lambda (_%stx9403%_) - (letrec ((_%parse-clauses9406%_ - (lambda (_%e11881%_ _%clauses11883%_) - (let _%lp11885%_ ((_%rest11888%_ _%clauses11883%_) - (_%datums11890%_ '()) - (_%dispatch11891%_ '()) - (_%default11892%_ '#f)) - (let* ((_%__stx1968419685%_ _%rest11888%_) - (_%g1189511907%_ + (lambda (_%stx9466%_) + (letrec ((_%parse-clauses9469%_ + (lambda (_%e11944%_ _%clauses11946%_) + (let _%lp11948%_ ((_%rest11951%_ _%clauses11946%_) + (_%datums11953%_ '()) + (_%dispatch11954%_ '()) + (_%default11955%_ '#f)) + (let* ((_%__stx1974719748%_ _%rest11951%_) + (_%g1195811970%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1968419685%_)))) - (let ((_%__kont1968719688%_ - (lambda (_%L11939%_ _%L11941%_) - (let* ((_%__stx1958819589%_ _%L11941%_) - (_%g1195912032%_ + _%__stx1974719748%_)))) + (let ((_%__kont1975019751%_ + (lambda (_%L12002%_ _%L12004%_) + (let* ((_%__stx1965119652%_ _%L12004%_) + (_%g1202212095%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1958819589%_)))) - (let ((_%__kont1959119592%_ - (lambda (_%L12397%_) - (if (gx#stx-null? _%L11939%_) - (let* ((_%g1241212420%_ - (lambda (_%g1241312416%_) + _%__stx1965119652%_)))) + (let ((_%__kont1965419655%_ + (lambda (_%L12460%_) + (if (gx#stx-null? _%L12002%_) + (let* ((_%g1247512483%_ + (lambda (_%g1247612479%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1241312416%_))) - (_%g1241112439%_ - (lambda (_%g1241312424%_) - ((lambda (_%L12427%_) - (_%lp11885%_ + _%g1247612479%_))) + (_%g1247412502%_ + (lambda (_%g1247612487%_) + ((lambda (_%L12490%_) + (_%lp11948%_ '() - _%datums11890%_ - _%dispatch11891%_ - (cons _%L12397%_ + _%datums11953%_ + _%dispatch11954%_ + (cons _%L12460%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L12427%_ '())))) - _%g1241312424%_)))) + (cons _%L12490%_ '())))) + _%g1247612487%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1241112439%_ _%e11881%_)) + (_%g1247412502%_ _%e11944%_)) (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9403%_ - _%L11941%_)))) - (_%__kont1959319594%_ - (lambda (_%L12337%_) - (if (gx#stx-null? _%L11939%_) - (_%lp11885%_ + _%stx9466%_ + _%L12004%_)))) + (_%__kont1965619657%_ + (lambda (_%L12400%_) + (if (gx#stx-null? _%L12002%_) + (_%lp11948%_ '() - _%datums11890%_ - _%dispatch11891%_ + _%datums11953%_ + _%dispatch11954%_ (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1235112354%_ + (foldr (lambda (_%g1241412417%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1235212357%_) - (cons _%g1235112354%_ _%g1235212357%_)) + _%g1241512420%_) + (cons _%g1241412417%_ _%g1241512420%_)) '() - _%L12337%_))) + _%L12400%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"Misplaced else clause" - _%stx9403%_ - _%L11941%_)))) - (_%__kont1959719598%_ - (lambda (_%L12222%_ _%L12224%_) - (if (null? (foldr (lambda (_%g1224212245%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1224312248%_) - (cons _%g1224212245%_ _%g1224312248%_)) + _%stx9466%_ + _%L12004%_)))) + (_%__kont1966019661%_ + (lambda (_%L12285%_ _%L12287%_) + (if (null? (foldr (lambda (_%g1230512308%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1230612311%_) + (cons _%g1230512308%_ _%g1230612311%_)) '() - _%L12224%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11885%_ - _%L11939%_ - _%datums11890%_ - _%dispatch11891%_ - _%default11892%_) - (let* ((_%g1225112259%_ - (lambda (_%g1225212255%_) + _%L12287%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11948%_ + _%L12002%_ + _%datums11953%_ + _%dispatch11954%_ + _%default11955%_) + (let* ((_%g1231412322%_ + (lambda (_%g1231512318%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1225212255%_))) - (_%g1225012286%_ - (lambda (_%g1225212263%_) - ((lambda (_%L12266%_) - (_%lp11885%_ - _%L11939%_ + _%g1231512318%_))) + (_%g1231312349%_ + (lambda (_%g1231512326%_) + ((lambda (_%L12329%_) + (_%lp11948%_ + _%L12002%_ (cons (map gx#stx-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (foldr (lambda (_%g1227712280%_ - _%g1227812283%_) - (cons _%g1227712280%_ - _%g1227812283%_)) + (foldr (lambda (_%g1234012343%_ + _%g1234112346%_) + (cons _%g1234012343%_ + _%g1234112346%_)) '() - _%L12224%_)) - _%datums11890%_) - (cons (cons _%L12222%_ (cons _%L12266%_ '())) - _%dispatch11891%_) - _%default11892%_)) - _%g1225212263%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1225012286%_ - _%e11881%_))))) - (_%__kont1960119602%_ - (lambda (_%L12109%_ _%L12111%_) - (if (null? (foldr (lambda (_%g1213012133%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1213112136%_) - (cons _%g1213012133%_ _%g1213112136%_)) + _%L12287%_)) + _%datums11953%_) + (cons (cons _%L12285%_ (cons _%L12329%_ '())) + _%dispatch11954%_) + _%default11955%_)) + _%g1231512326%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1231312349%_ + _%e11944%_))))) + (_%__kont1966419665%_ + (lambda (_%L12172%_ _%L12174%_) + (if (null? (foldr (lambda (_%g1219312196%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1219412199%_) + (cons _%g1219312196%_ _%g1219412199%_)) '() - _%L12111%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp11885%_ - _%L11939%_ - _%datums11890%_ - _%dispatch11891%_ - _%default11892%_) - (_%lp11885%_ - _%L11939%_ + _%L12174%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%lp11948%_ + _%L12002%_ + _%datums11953%_ + _%dispatch11954%_ + _%default11955%_) + (_%lp11948%_ + _%L12002%_ (cons (map gx#stx-e - (foldr (lambda (_%g1213812141%_ + (foldr (lambda (_%g1220112204%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1213912144%_) - (cons _%g1213812141%_ _%g1213912144%_)) + _%g1220212207%_) + (cons _%g1220112204%_ _%g1220212207%_)) '() - _%L12111%_)) - _%datums11890%_) + _%L12174%_)) + _%datums11953%_) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1214612149%_ + (foldr (lambda (_%g1220912212%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1214712152%_) - (cons _%g1214612149%_ _%g1214712152%_)) + _%g1221012215%_) + (cons _%g1220912212%_ _%g1221012215%_)) '() - _%L12109%_)) - _%dispatch11891%_) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%default11892%_))))) - (let* ((_%__match1968119682%_ - (lambda (_%e1200612039%_ - _%hd1200712043%_ - _%tl1200812046%_ - _%__splice1960319604%_ - _%target1200912049%_ - _%tl1201112052%_) - (letrec ((_%loop1201212055%_ - (lambda (_%hd1201012059%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1201612062%_) - (if (gx#stx-pair? _%hd1201012059%_) - (let ((_%e1201312065%_ (gx#syntax-e _%hd1201012059%_))) - (let ((_%lp-tl1201512072%_ + _%L12172%_)) + _%dispatch11954%_) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%default11955%_))))) + (let* ((_%__match1974419745%_ + (lambda (_%e1206912102%_ + _%hd1207012106%_ + _%tl1207112109%_ + _%__splice1966619667%_ + _%target1207212112%_ + _%tl1207412115%_) + (letrec ((_%loop1207512118%_ + (lambda (_%hd1207312122%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1207912125%_) + (if (gx#stx-pair? _%hd1207312122%_) + (let ((_%e1207612128%_ (gx#syntax-e _%hd1207312122%_))) + (let ((_%lp-tl1207812135%_ (let () (declare (not safe)) - (##cdr _%e1201312065%_))) - (_%lp-hd1201412069%_ + (##cdr _%e1207612128%_))) + (_%lp-hd1207712132%_ (let () (declare (not safe)) - (##car _%e1201312065%_)))) - (_%loop1201212055%_ - _%lp-tl1201512072%_ - (cons _%lp-hd1201412069%_ _%datum1201612062%_)))) - (let ((_%datum1201712075%_ - (reverse _%datum1201612062%_))) - (if (gx#stx-pair/null? _%tl1200812046%_) - (let ((_%__splice1960519606%_ + (##car _%e1207612128%_)))) + (_%loop1207512118%_ + _%lp-tl1207812135%_ + (cons _%lp-hd1207712132%_ _%datum1207912125%_)))) + (let ((_%datum1208012138%_ + (reverse _%datum1207912125%_))) + (if (gx#stx-pair/null? _%tl1207112109%_) + (let ((_%__splice1966819669%_ (gx#syntax-split-splice - _%tl1200812046%_ + _%tl1207112109%_ '0))) - (let ((_%tl1202012082%_ + (let ((_%tl1208312145%_ (let () (declare (not safe)) (##vector-ref - _%__splice1960519606%_ + _%__splice1966819669%_ '1))) - (_%target1201812079%_ + (_%target1208112142%_ (let () (declare (not safe)) (##vector-ref - _%__splice1960519606%_ + _%__splice1966819669%_ '0)))) - (if (gx#stx-null? _%tl1202012082%_) - (letrec ((_%loop1202112085%_ - (lambda (_%hd1201912089%_ - _%body1202512092%_) + (if (gx#stx-null? _%tl1208312145%_) + (letrec ((_%loop1208412148%_ + (lambda (_%hd1208212152%_ + _%body1208812155%_) (if (gx#stx-pair? - _%hd1201912089%_) - (let ((_%e1202212095%_ + _%hd1208212152%_) + (let ((_%e1208512158%_ (gx#syntax-e - _%hd1201912089%_))) - (let ((_%lp-tl1202412102%_ + _%hd1208212152%_))) + (let ((_%lp-tl1208712165%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1202212095%_))) - (_%lp-hd1202312099%_ - (let () (declare (not safe)) (##car _%e1202212095%_)))) - (_%loop1202112085%_ - _%lp-tl1202412102%_ - (cons _%lp-hd1202312099%_ _%body1202512092%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%body1202612105%_ - (reverse _%body1202512092%_))) - (_%__kont1960119602%_ - _%body1202612105%_ - _%datum1201712075%_)))))) - (_%loop1202112085%_ - _%target1201812079%_ + (##cdr _%e1208512158%_))) + (_%lp-hd1208612162%_ + (let () (declare (not safe)) (##car _%e1208512158%_)))) + (_%loop1208412148%_ + _%lp-tl1208712165%_ + (cons _%lp-hd1208612162%_ _%body1208812155%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%body1208912168%_ + (reverse _%body1208812155%_))) + (_%__kont1966419665%_ + _%body1208912168%_ + _%datum1208012138%_)))))) + (_%loop1208412148%_ + _%target1208112142%_ '())) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_)))))))) + (_%g1202212095%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1201212055%_ - _%target1200912049%_ + (_%loop1207512118%_ + _%target1207212112%_ '())))) - (_%__match1966719668%_ - (lambda (_%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) - (letrec ((_%loop1199212178%_ - (lambda (_%hd1199012182%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1199612185%_) - (if (gx#stx-pair? _%hd1199012182%_) - (let ((_%e1199312188%_ (gx#syntax-e _%hd1199012182%_))) - (let ((_%lp-tl1199512195%_ + (_%__match1973019731%_ + (lambda (_%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (letrec ((_%loop1205512241%_ + (lambda (_%hd1205312245%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1205912248%_) + (if (gx#stx-pair? _%hd1205312245%_) + (let ((_%e1205612251%_ (gx#syntax-e _%hd1205312245%_))) + (let ((_%lp-tl1205812258%_ (let () (declare (not safe)) - (##cdr _%e1199312188%_))) - (_%lp-hd1199412192%_ + (##cdr _%e1205612251%_))) + (_%lp-hd1205712255%_ (let () (declare (not safe)) - (##car _%e1199312188%_)))) - (_%loop1199212178%_ - _%lp-tl1199512195%_ - (cons _%lp-hd1199412192%_ _%datum1199612185%_)))) - (let ((_%datum1199712198%_ - (reverse _%datum1199612185%_))) - (if (gx#stx-pair? _%tl1198812169%_) - (let ((_%e1199812202%_ - (gx#syntax-e _%tl1198812169%_))) - (let ((_%tl1200012209%_ + (##car _%e1205612251%_)))) + (_%loop1205512241%_ + _%lp-tl1205812258%_ + (cons _%lp-hd1205712255%_ _%datum1205912248%_)))) + (let ((_%datum1206012261%_ + (reverse _%datum1205912248%_))) + (if (gx#stx-pair? _%tl1205112232%_) + (let ((_%e1206112265%_ + (gx#syntax-e _%tl1205112232%_))) + (let ((_%tl1206312272%_ (let () (declare (not safe)) - (##cdr _%e1199812202%_))) - (_%hd1199912206%_ + (##cdr _%e1206112265%_))) + (_%hd1206212269%_ (let () (declare (not safe)) - (##car _%e1199812202%_)))) - (if (gx#identifier? _%hd1199912206%_) + (##car _%e1206112265%_)))) + (if (gx#identifier? _%hd1206212269%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20954_| - _%hd1199912206%_) - (if (gx#stx-pair? _%tl1200012209%_) - (let ((_%e1200112212%_ + |gerbil/core/sugar~Sugar-2[1]#_g21017_| + _%hd1206212269%_) + (if (gx#stx-pair? _%tl1206312272%_) + (let ((_%e1206412275%_ (gx#syntax-e - _%tl1200012209%_))) - (let ((_%tl1200312219%_ + _%tl1206312272%_))) + (let ((_%tl1206612282%_ (let () (declare (not safe)) - (##cdr _%e1200112212%_))) - (_%hd1200212216%_ + (##cdr _%e1206412275%_))) + (_%hd1206512279%_ (let () (declare (not safe)) - (##car _%e1200112212%_)))) + (##car _%e1206412275%_)))) (if (gx#stx-null? - _%tl1200312219%_) - (_%__kont1959719598%_ - _%hd1200212216%_ - _%datum1199712198%_) - (_%__match1968119682%_ - _%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_)))) - (_%__match1968119682%_ - _%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_)) - (_%__match1968119682%_ - _%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_)) - (_%__match1968119682%_ - _%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_)))) - (_%__match1968119682%_ - _%e1198612162%_ - _%hd1198712166%_ - _%tl1198812169%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1199212178%_ - _%target1198912172%_ + _%tl1206612282%_) + (_%__kont1966019661%_ + _%hd1206512279%_ + _%datum1206012261%_) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)))) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_)))) + (_%__match1974419745%_ + _%e1204912225%_ + _%hd1205012229%_ + _%tl1205112232%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1205512241%_ + _%target1205212235%_ '())))) - (_%__match1965319654%_ - (lambda (_%e1197212297%_ - _%hd1197312301%_ - _%tl1197412304%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) - (letrec ((_%loop1197812313%_ - (lambda (_%hd1197612317%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1198212320%_) - (if (gx#stx-pair? _%hd1197612317%_) - (let ((_%e1197912323%_ (gx#syntax-e _%hd1197612317%_))) - (let ((_%lp-tl1198112330%_ + (_%__match1971619717%_ + (lambda (_%e1203512360%_ + _%hd1203612364%_ + _%tl1203712367%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (letrec ((_%loop1204112376%_ + (lambda (_%hd1203912380%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1204512383%_) + (if (gx#stx-pair? _%hd1203912380%_) + (let ((_%e1204212386%_ (gx#syntax-e _%hd1203912380%_))) + (let ((_%lp-tl1204412393%_ (let () (declare (not safe)) - (##cdr _%e1197912323%_))) - (_%lp-hd1198012327%_ + (##cdr _%e1204212386%_))) + (_%lp-hd1204312390%_ (let () (declare (not safe)) - (##car _%e1197912323%_)))) - (_%loop1197812313%_ - _%lp-tl1198112330%_ - (cons _%lp-hd1198012327%_ _%body1198212320%_)))) - (let ((_%body1198312333%_ (reverse _%body1198212320%_))) - (_%__kont1959319594%_ _%body1198312333%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1197812313%_ - _%target1197512307%_ + (##car _%e1204212386%_)))) + (_%loop1204112376%_ + _%lp-tl1204412393%_ + (cons _%lp-hd1204312390%_ _%body1204512383%_)))) + (let ((_%body1204612396%_ (reverse _%body1204512383%_))) + (_%__kont1965619657%_ _%body1204612396%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1204112376%_ + _%target1203812370%_ '()))))) - (if (gx#stx-pair? _%__stx1958819589%_) - (let ((_%e1196212367%_ + (if (gx#stx-pair? _%__stx1965119652%_) + (let ((_%e1202512430%_ (gx#syntax-e - _%__stx1958819589%_))) - (let ((_%tl1196412374%_ + _%__stx1965119652%_))) + (let ((_%tl1202712437%_ (let () (declare (not safe)) - (##cdr _%e1196212367%_))) - (_%hd1196312371%_ + (##cdr _%e1202512430%_))) + (_%hd1202612434%_ (let () (declare (not safe)) - (##car _%e1196212367%_)))) + (##car _%e1202512430%_)))) (if (gx#identifier? - _%hd1196312371%_) + _%hd1202612434%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20955_| - _%hd1196312371%_) + |gerbil/core/sugar~Sugar-2[1]#_g21018_| + _%hd1202612434%_) (if (gx#stx-pair? - _%tl1196412374%_) - (let ((_%e1196512377%_ + _%tl1202712437%_) + (let ((_%e1202812440%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1196412374%_))) - (let ((_%tl1196712384%_ + (gx#syntax-e _%tl1202712437%_))) + (let ((_%tl1203012447%_ (let () (declare (not safe)) - (##cdr _%e1196512377%_))) - (_%hd1196612381%_ + (##cdr _%e1202812440%_))) + (_%hd1202912444%_ (let () (declare (not safe)) - (##car _%e1196512377%_)))) - (if (gx#identifier? _%hd1196612381%_) + (##car _%e1202812440%_)))) + (if (gx#identifier? _%hd1202912444%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20956_| - _%hd1196612381%_) - (if (gx#stx-pair? _%tl1196712384%_) - (let ((_%e1196812387%_ - (gx#syntax-e _%tl1196712384%_))) - (let ((_%tl1197012394%_ + |gerbil/core/sugar~Sugar-2[1]#_g21019_| + _%hd1202912444%_) + (if (gx#stx-pair? _%tl1203012447%_) + (let ((_%e1203112450%_ + (gx#syntax-e _%tl1203012447%_))) + (let ((_%tl1203312457%_ (let () (declare (not safe)) - (##cdr _%e1196812387%_))) - (_%hd1196912391%_ + (##cdr _%e1203112450%_))) + (_%hd1203212454%_ (let () (declare (not safe)) - (##car _%e1196812387%_)))) - (if (gx#stx-null? _%tl1197012394%_) - (_%__kont1959119592%_ - _%hd1196912391%_) + (##car _%e1203112450%_)))) + (if (gx#stx-null? _%tl1203312457%_) + (_%__kont1965419655%_ + _%hd1203212454%_) (if (gx#stx-pair/null? - _%tl1196412374%_) - (let ((_%__splice1959519596%_ + _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1196412374%_ + _%tl1202712437%_ '0))) - (let ((_%tl1197712310%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '1))) - (_%target1197512307%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '0)))) (if (gx#stx-null? - _%tl1197712310%_) - (_%__match1965319654%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) + _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1196312371%_) - (let ((_%__splice1959919600%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%hd1196312371%_ '0))) - (let ((_%tl1199112175%_ + (gx#syntax-split-splice _%hd1202612434%_ '0))) + (let ((_%tl1205412238%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '1))) - (_%target1198912172%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) - (let () (declare (not safe)) (_%g1195912032%_))))) - (let () (declare (not safe)) (_%g1195912032%_)))))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1196312371%_) - (let ((_%__splice1959919600%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_))))))) - (if (gx#stx-pair/null? _%tl1196412374%_) - (let ((_%__splice1959519596%_ + (_%g1202212095%_))))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1196412374%_ + _%tl1202712437%_ '0))) - (let ((_%tl1197712310%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '1))) - (_%target1197512307%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1197712310%_) - (_%__match1965319654%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1196312371%_) - (let ((_%__splice1959919600%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_)))))) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_))))) - (if (gx#stx-pair/null? _%tl1196412374%_) - (let ((_%__splice1959519596%_ + (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1196412374%_ + _%tl1202712437%_ '0))) - (let ((_%tl1197712310%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '1))) - (_%target1197512307%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1197712310%_) - (_%__match1965319654%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) (if (gx#stx-pair/null? - _%hd1196312371%_) - (let ((_%__splice1959919600%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_)))))) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_))))) - (if (gx#stx-pair/null? _%tl1196412374%_) - (let ((_%__splice1959519596%_ + (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ (gx#syntax-split-splice - _%tl1196412374%_ + _%tl1202712437%_ '0))) - (let ((_%tl1197712310%_ + (let ((_%tl1204012373%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '1))) - (_%target1197512307%_ + (_%target1203812370%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959519596%_ + _%__splice1965819659%_ '0)))) - (if (gx#stx-null? _%tl1197712310%_) - (_%__match1965319654%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) (if (gx#stx-null? - _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_)))))) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_))))))) - (if (gx#stx-pair/null? _%tl1196412374%_) - (let ((_%__splice1959519596%_ - (gx#syntax-split-splice _%tl1196412374%_ '0))) - (let ((_%tl1197712310%_ + (_%g1202212095%_))))))) + (if (gx#stx-pair/null? _%tl1202712437%_) + (let ((_%__splice1965819659%_ + (gx#syntax-split-splice _%tl1202712437%_ '0))) + (let ((_%tl1204012373%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959519596%_ '1))) - (_%target1197512307%_ + (##vector-ref _%__splice1965819659%_ '1))) + (_%target1203812370%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959519596%_ '0)))) - (if (gx#stx-null? _%tl1197712310%_) - (_%__match1965319654%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959519596%_ - _%target1197512307%_ - _%tl1197712310%_) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (##vector-ref _%__splice1965819659%_ '0)))) + (if (gx#stx-null? _%tl1204012373%_) + (_%__match1971619717%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1965819659%_ + _%target1203812370%_ + _%tl1204012373%_) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) + (_%g1202212095%_))))) (let () (declare (not safe)) - (_%g1195912032%_)))))) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ + (_%g1202212095%_)))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '1))) - (_%target1198912172%_ + (_%target1205212235%_ (let () (declare (not safe)) (##vector-ref - _%__splice1959919600%_ + _%__splice1966219663%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) (let () (declare (not safe)) - (_%g1195912032%_))))) - (let () (declare (not safe)) (_%g1195912032%_))))) - (if (gx#stx-pair/null? _%hd1196312371%_) - (let ((_%__splice1959919600%_ - (gx#syntax-split-splice _%hd1196312371%_ '0))) - (let ((_%tl1199112175%_ + (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_))))) + (if (gx#stx-pair/null? _%hd1202612434%_) + (let ((_%__splice1966219663%_ + (gx#syntax-split-splice _%hd1202612434%_ '0))) + (let ((_%tl1205412238%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '1))) - (_%target1198912172%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) - (let () (declare (not safe)) (_%g1195912032%_))))) - (let () (declare (not safe)) (_%g1195912032%_)))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1196312371%_) - (let ((_%__splice1959919600%_ + _%hd1202612434%_) + (let ((_%__splice1966219663%_ (gx#syntax-split-splice - _%hd1196312371%_ + _%hd1202612434%_ '0))) - (let ((_%tl1199112175%_ + (let ((_%tl1205412238%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '1))) - (_%target1198912172%_ + (##vector-ref _%__splice1966219663%_ '1))) + (_%target1205212235%_ (let () (declare (not safe)) - (##vector-ref _%__splice1959919600%_ '0)))) - (if (gx#stx-null? _%tl1199112175%_) - (_%__match1966719668%_ - _%e1196212367%_ - _%hd1196312371%_ - _%tl1196412374%_ - _%__splice1959919600%_ - _%target1198912172%_ - _%tl1199112175%_) - (let () (declare (not safe)) (_%g1195912032%_))))) - (let () (declare (not safe)) (_%g1195912032%_)))))) + (##vector-ref _%__splice1966219663%_ '0)))) + (if (gx#stx-null? _%tl1205412238%_) + (_%__match1973019731%_ + _%e1202512430%_ + _%hd1202612434%_ + _%tl1202712437%_ + _%__splice1966219663%_ + _%target1205212235%_ + _%tl1205412238%_) + (let () (declare (not safe)) (_%g1202212095%_))))) + (let () (declare (not safe)) (_%g1202212095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1195912032%_)))))))) - (_%__kont1968919690%_ + (_%g1202212095%_)))))))) + (_%__kont1975219753%_ (lambda () - (_%check-duplicate-datums9408%_ - _%datums11890%_) - (values (reverse _%datums11890%_) - (reverse _%dispatch11891%_) - (let ((_%$e11918%_ _%default11892%_)) - (if _%$e11918%_ - _%$e11918%_ + (_%check-duplicate-datums9471%_ + _%datums11953%_) + (values (reverse _%datums11953%_) + (reverse _%dispatch11954%_) + (let ((_%$e11981%_ _%default11955%_)) + (if _%$e11981%_ + _%$e11981%_ '#!void)))))) - (let ((_%g1189411922%_ + (let ((_%g1195711985%_ (lambda () - (if (gx#stx-null? _%__stx1968419685%_) - (_%__kont1968919690%_) + (if (gx#stx-null? _%__stx1974719748%_) + (_%__kont1975219753%_) (let () (declare (not safe)) - (_%g1189511907%_)))))) - (if (gx#stx-pair? _%__stx1968419685%_) - (let ((_%e1189911929%_ - (gx#syntax-e _%__stx1968419685%_))) - (let ((_%tl1190111936%_ + (_%g1195811970%_)))))) + (if (gx#stx-pair? _%__stx1974719748%_) + (let ((_%e1196211992%_ + (gx#syntax-e _%__stx1974719748%_))) + (let ((_%tl1196411999%_ (let () (declare (not safe)) - (##cdr _%e1189911929%_))) - (_%hd1190011933%_ + (##cdr _%e1196211992%_))) + (_%hd1196311996%_ (let () (declare (not safe)) - (##car _%e1189911929%_)))) - (_%__kont1968719688%_ - _%tl1190111936%_ - _%hd1190011933%_))) + (##car _%e1196211992%_)))) + (_%__kont1975019751%_ + _%tl1196411999%_ + _%hd1196311996%_))) (let () (declare (not safe)) - (_%g1189411922%_))))))))) - (_%check-duplicate-datums9408%_ - (lambda (_%datums11869%_) - (let ((_%ht11872%_ (make-hash-table))) + (_%g1195711985%_))))))))) + (_%check-duplicate-datums9471%_ + (lambda (_%datums11932%_) + (let ((_%ht11935%_ (make-hash-table))) (for-each - (lambda (_%lst11875%_) + (lambda (_%lst11938%_) (for-each - (lambda (_%datum11878%_) - (if (hash-get _%ht11872%_ _%datum11878%_) + (lambda (_%datum11941%_) + (if (hash-get _%ht11935%_ _%datum11941%_) (gx#raise-syntax-error '#f '"Duplicate datum" - _%stx9403%_ - _%datum11878%_) - (hash-put! _%ht11872%_ _%datum11878%_ '#t))) - _%lst11875%_)) - _%datums11869%_)))) - (_%count-datums9409%_ - (lambda (_%datums11862%_) - (foldl (lambda (_%lst11865%_ _%r11867%_) - (+ (length _%lst11865%_) _%r11867%_)) + _%stx9466%_ + _%datum11941%_) + (hash-put! _%ht11935%_ _%datum11941%_ '#t))) + _%lst11938%_)) + _%datums11932%_)))) + (_%count-datums9472%_ + (lambda (_%datums11925%_) + (foldl (lambda (_%lst11928%_ _%r11930%_) + (+ (length _%lst11928%_) _%r11930%_)) '0 - _%datums11862%_))) - (_%symbolic-datums?9410%_ - (lambda (_%datums11856%_) - (andmap (lambda (_%lst11859%_) - (andmap symbol? _%lst11859%_)) - _%datums11856%_))) - (_%char-datums?9411%_ - (lambda (_%datums11850%_) - (andmap (lambda (_%lst11853%_) (andmap char? _%lst11853%_)) - _%datums11850%_))) - (_%fixnum-datums?9412%_ - (lambda (_%datums11844%_) - (andmap (lambda (_%lst11847%_) - (andmap fixnum? _%lst11847%_)) - _%datums11844%_))) - (_%eq-datums?9413%_ - (lambda (_%datums11827%_) - (andmap (lambda (_%lst11830%_) - (andmap (lambda (_%x11833%_) - (let ((_%$e11836%_ - (symbol? _%x11833%_))) - (if _%$e11836%_ - _%$e11836%_ - (let ((_%$e11840%_ - (keyword? _%x11833%_))) - (if _%$e11840%_ - _%$e11840%_ + _%datums11925%_))) + (_%symbolic-datums?9473%_ + (lambda (_%datums11919%_) + (andmap (lambda (_%lst11922%_) + (andmap symbol? _%lst11922%_)) + _%datums11919%_))) + (_%char-datums?9474%_ + (lambda (_%datums11913%_) + (andmap (lambda (_%lst11916%_) (andmap char? _%lst11916%_)) + _%datums11913%_))) + (_%fixnum-datums?9475%_ + (lambda (_%datums11907%_) + (andmap (lambda (_%lst11910%_) + (andmap fixnum? _%lst11910%_)) + _%datums11907%_))) + (_%eq-datums?9476%_ + (lambda (_%datums11890%_) + (andmap (lambda (_%lst11893%_) + (andmap (lambda (_%x11896%_) + (let ((_%$e11899%_ + (symbol? _%x11896%_))) + (if _%$e11899%_ + _%$e11899%_ + (let ((_%$e11903%_ + (keyword? _%x11896%_))) + (if _%$e11903%_ + _%$e11903%_ (immediate? - _%x11833%_)))))) - _%lst11830%_)) - _%datums11827%_))) - (_%generate-simple-case9414%_ - (lambda (_%e11591%_ - _%datums11593%_ - _%dispatch11594%_ - _%default11595%_) - (let* ((_%g1159711605%_ - (lambda (_%g1159811601%_) + _%x11896%_)))))) + _%lst11893%_)) + _%datums11890%_))) + (_%generate-simple-case9477%_ + (lambda (_%e11654%_ + _%datums11656%_ + _%dispatch11657%_ + _%default11658%_) + (let* ((_%g1166011668%_ + (lambda (_%g1166111664%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1159811601%_))) - (_%g1159611823%_ - (lambda (_%g1159811609%_) - ((lambda (_%L11612%_) - (let _%recur11624%_ ((_%datums11627%_ - _%datums11593%_) - (_%dispatch11629%_ - _%dispatch11594%_)) - (let* ((_%__stx1970219703%_ _%datums11627%_) - (_%g1163211653%_ + _%g1166111664%_))) + (_%g1165911886%_ + (lambda (_%g1166111672%_) + ((lambda (_%L11675%_) + (let _%recur11687%_ ((_%datums11690%_ + _%datums11656%_) + (_%dispatch11692%_ + _%dispatch11657%_)) + (let* ((_%__stx1976519766%_ _%datums11690%_) + (_%g1169511716%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1970219703%_)))) - (let ((_%__kont1970519706%_ - (lambda (_%L11711%_ _%L11713%_) - (let* ((_%g1173311745%_ - (lambda (_%g1173411741%_) + _%__stx1976519766%_)))) + (let ((_%__kont1976819769%_ + (lambda (_%L11774%_ _%L11776%_) + (let* ((_%g1179611808%_ + (lambda (_%g1179711804%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1173411741%_))) - (_%g1173211815%_ - (lambda (_%g1173411749%_) + _%g1179711804%_))) + (_%g1179511878%_ + (lambda (_%g1179711812%_) (if (gx#stx-pair? - _%g1173411749%_) - (let ((_%e1173711752%_ + _%g1179711812%_) + (let ((_%e1180011815%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1173411749%_))) - (let ((_%hd1173811756%_ + (gx#syntax-e _%g1179711812%_))) + (let ((_%hd1180111819%_ (let () (declare (not safe)) - (##car _%e1173711752%_))) - (_%tl1173911759%_ + (##car _%e1180011815%_))) + (_%tl1180211822%_ (let () (declare (not safe)) - (##cdr _%e1173711752%_)))) - ((lambda (_%L11762%_ _%L11764%_) - (let* ((_%g1177611784%_ - (lambda (_%g1177711780%_) + (##cdr _%e1180011815%_)))) + ((lambda (_%L11825%_ _%L11827%_) + (let* ((_%g1183911847%_ + (lambda (_%g1184011843%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1177711780%_))) - (_%g1177511811%_ - (lambda (_%g1177711788%_) - ((lambda (_%L11791%_) + _%g1184011843%_))) + (_%g1183811874%_ + (lambda (_%g1184011851%_) + ((lambda (_%L11854%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'or) - (foldr (lambda (_%g1180211805%_ + (foldr (lambda (_%g1186511868%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1180311808%_) + _%g1186611871%_) (cons (cons (gx#datum->syntax '#f '~case-test) - (cons _%g1180211805%_ - (cons _%L11612%_ '()))) - _%g1180311808%_)) + (cons _%g1186511868%_ + (cons _%L11675%_ '()))) + _%g1186611871%_)) '() - _%L11713%_)) + _%L11776%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L11764%_ - (cons _%L11791%_ + (cons _%L11827%_ + (cons _%L11854%_ '()))))) - _%g1177711788%_)))) - (_%g1177511811%_ - (_%recur11624%_ _%L11711%_ _%L11762%_)))) - _%tl1173911759%_ - _%hd1173811756%_))) - (_%g1173311745%_ _%g1173411749%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1173211815%_ - _%dispatch11629%_)))) - (_%__kont1970919710%_ - (lambda () _%default11595%_))) - (let ((_%__match1972519726%_ - (lambda (_%e1163611671%_ - _%hd1163711675%_ - _%tl1163811678%_ - _%__splice1970719708%_ - _%target1163911681%_ - _%tl1164111684%_) - (letrec ((_%loop1164211687%_ - (lambda (_%hd1164011691%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%datum1164611694%_) - (if (gx#stx-pair? _%hd1164011691%_) - (let ((_%e1164311697%_ (gx#syntax-e _%hd1164011691%_))) - (let ((_%lp-tl1164511704%_ + _%g1184011851%_)))) + (_%g1183811874%_ + (_%recur11687%_ _%L11774%_ _%L11825%_)))) + _%tl1180211822%_ + _%hd1180111819%_))) + (_%g1179611808%_ _%g1179711812%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1179511878%_ + _%dispatch11692%_)))) + (_%__kont1977219773%_ + (lambda () _%default11658%_))) + (let ((_%__match1978819789%_ + (lambda (_%e1169911734%_ + _%hd1170011738%_ + _%tl1170111741%_ + _%__splice1977019771%_ + _%target1170211744%_ + _%tl1170411747%_) + (letrec ((_%loop1170511750%_ + (lambda (_%hd1170311754%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%datum1170911757%_) + (if (gx#stx-pair? _%hd1170311754%_) + (let ((_%e1170611760%_ (gx#syntax-e _%hd1170311754%_))) + (let ((_%lp-tl1170811767%_ (let () (declare (not safe)) - (##cdr _%e1164311697%_))) - (_%lp-hd1164411701%_ + (##cdr _%e1170611760%_))) + (_%lp-hd1170711764%_ (let () (declare (not safe)) - (##car _%e1164311697%_)))) - (_%loop1164211687%_ - _%lp-tl1164511704%_ - (cons _%lp-hd1164411701%_ _%datum1164611694%_)))) - (let ((_%datum1164711707%_ - (reverse _%datum1164611694%_))) - (_%__kont1970519706%_ - _%tl1163811678%_ - _%datum1164711707%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1164211687%_ - _%target1163911681%_ + (##car _%e1170611760%_)))) + (_%loop1170511750%_ + _%lp-tl1170811767%_ + (cons _%lp-hd1170711764%_ _%datum1170911757%_)))) + (let ((_%datum1171011770%_ + (reverse _%datum1170911757%_))) + (_%__kont1976819769%_ + _%tl1170111741%_ + _%datum1171011770%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1170511750%_ + _%target1170211744%_ '()))))) - (if (gx#stx-pair? _%__stx1970219703%_) - (let ((_%e1163611671%_ + (if (gx#stx-pair? _%__stx1976519766%_) + (let ((_%e1169911734%_ (gx#syntax-e - _%__stx1970219703%_))) - (let ((_%tl1163811678%_ + _%__stx1976519766%_))) + (let ((_%tl1170111741%_ (let () (declare (not safe)) - (##cdr _%e1163611671%_))) - (_%hd1163711675%_ + (##cdr _%e1169911734%_))) + (_%hd1170011738%_ (let () (declare (not safe)) - (##car _%e1163611671%_)))) + (##car _%e1169911734%_)))) (if (gx#stx-pair/null? - _%hd1163711675%_) - (let ((_%__splice1970719708%_ + _%hd1170011738%_) + (let ((_%__splice1977019771%_ (gx#syntax-split-splice - _%hd1163711675%_ + _%hd1170011738%_ '0))) - (let ((_%tl1164111684%_ + (let ((_%tl1170411747%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice1970719708%_ '1))) - (_%target1163911681%_ + (##vector-ref _%__splice1977019771%_ '1))) + (_%target1170211744%_ (let () (declare (not safe)) - (##vector-ref _%__splice1970719708%_ '0)))) - (if (gx#stx-null? _%tl1164111684%_) - (_%__match1972519726%_ - _%e1163611671%_ - _%hd1163711675%_ - _%tl1163811678%_ - _%__splice1970719708%_ - _%target1163911681%_ - _%tl1164111684%_) - (_%__kont1970919710%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont1970919710%_)))) - (_%__kont1970919710%_))))))) - _%g1159811609%_)))) - (_%g1159611823%_ _%e11591%_)))) - (_%datum-dispatch-index9415%_ - (lambda (_%datums11463%_) - (let _%lp11466%_ ((_%rest11469%_ _%datums11463%_) - (_%ix11471%_ '0) - (_%r11472%_ '())) - (let* ((_%__stx1972819729%_ _%rest11469%_) - (_%g1147511496%_ + (##vector-ref _%__splice1977019771%_ '0)))) + (if (gx#stx-null? _%tl1170411747%_) + (_%__match1978819789%_ + _%e1169911734%_ + _%hd1170011738%_ + _%tl1170111741%_ + _%__splice1977019771%_ + _%target1170211744%_ + _%tl1170411747%_) + (_%__kont1977219773%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont1977219773%_)))) + (_%__kont1977219773%_))))))) + _%g1166111672%_)))) + (_%g1165911886%_ _%e11654%_)))) + (_%datum-dispatch-index9478%_ + (lambda (_%datums11526%_) + (let _%lp11529%_ ((_%rest11532%_ _%datums11526%_) + (_%ix11534%_ '0) + (_%r11535%_ '())) + (let* ((_%__stx1979119792%_ _%rest11532%_) + (_%g1153811559%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1972819729%_)))) - (let ((_%__kont1973119732%_ - (lambda (_%L11554%_ _%L11556%_) - (_%lp11466%_ - _%L11554%_ - (fx1+ _%ix11471%_) - (foldl (lambda (_%x11575%_ _%r11577%_) - (cons (cons _%x11575%_ _%ix11471%_) - _%r11577%_)) - _%r11472%_ - (foldr (lambda (_%g1157811581%_ - _%g1157911584%_) - (cons _%g1157811581%_ - _%g1157911584%_)) + _%__stx1979119792%_)))) + (let ((_%__kont1979419795%_ + (lambda (_%L11617%_ _%L11619%_) + (_%lp11529%_ + _%L11617%_ + (fx1+ _%ix11534%_) + (foldl (lambda (_%x11638%_ _%r11640%_) + (cons (cons _%x11638%_ _%ix11534%_) + _%r11640%_)) + _%r11535%_ + (foldr (lambda (_%g1164111644%_ + _%g1164211647%_) + (cons _%g1164111644%_ + _%g1164211647%_)) '() - _%L11556%_))))) - (_%__kont1973519736%_ (lambda () _%r11472%_))) - (let ((_%__match1975119752%_ - (lambda (_%e1147911514%_ - _%hd1148011518%_ - _%tl1148111521%_ - _%__splice1973319734%_ - _%target1148211524%_ - _%tl1148411527%_) - (letrec ((_%loop1148511530%_ - (lambda (_%hd1148311534%_ - _%datum1148911537%_) + _%L11619%_))))) + (_%__kont1979819799%_ (lambda () _%r11535%_))) + (let ((_%__match1981419815%_ + (lambda (_%e1154211577%_ + _%hd1154311581%_ + _%tl1154411584%_ + _%__splice1979619797%_ + _%target1154511587%_ + _%tl1154711590%_) + (letrec ((_%loop1154811593%_ + (lambda (_%hd1154611597%_ + _%datum1155211600%_) (if (gx#stx-pair? - _%hd1148311534%_) - (let ((_%e1148611540%_ + _%hd1154611597%_) + (let ((_%e1154911603%_ (gx#syntax-e - _%hd1148311534%_))) - (let ((_%lp-tl1148811547%_ + _%hd1154611597%_))) + (let ((_%lp-tl1155111610%_ (let () (declare (not safe)) - (##cdr _%e1148611540%_))) - (_%lp-hd1148711544%_ + (##cdr _%e1154911603%_))) + (_%lp-hd1155011607%_ (let () (declare (not safe)) - (##car _%e1148611540%_)))) - (_%loop1148511530%_ - _%lp-tl1148811547%_ - (cons _%lp-hd1148711544%_ - _%datum1148911537%_)))) - (let ((_%datum1149011550%_ - (reverse _%datum1148911537%_))) - (_%__kont1973119732%_ - _%tl1148111521%_ - _%datum1149011550%_)))))) - (_%loop1148511530%_ - _%target1148211524%_ + (##car _%e1154911603%_)))) + (_%loop1154811593%_ + _%lp-tl1155111610%_ + (cons _%lp-hd1155011607%_ + _%datum1155211600%_)))) + (let ((_%datum1155311613%_ + (reverse _%datum1155211600%_))) + (_%__kont1979419795%_ + _%tl1154411584%_ + _%datum1155311613%_)))))) + (_%loop1154811593%_ + _%target1154511587%_ '()))))) - (if (gx#stx-pair? _%__stx1972819729%_) - (let ((_%e1147911514%_ - (gx#syntax-e _%__stx1972819729%_))) - (let ((_%tl1148111521%_ + (if (gx#stx-pair? _%__stx1979119792%_) + (let ((_%e1154211577%_ + (gx#syntax-e _%__stx1979119792%_))) + (let ((_%tl1154411584%_ (let () (declare (not safe)) - (##cdr _%e1147911514%_))) - (_%hd1148011518%_ + (##cdr _%e1154211577%_))) + (_%hd1154311581%_ (let () (declare (not safe)) - (##car _%e1147911514%_)))) - (if (gx#stx-pair/null? _%hd1148011518%_) - (let ((_%__splice1973319734%_ + (##car _%e1154211577%_)))) + (if (gx#stx-pair/null? _%hd1154311581%_) + (let ((_%__splice1979619797%_ (gx#syntax-split-splice - _%hd1148011518%_ + _%hd1154311581%_ '0))) - (let ((_%tl1148411527%_ + (let ((_%tl1154711590%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973319734%_ + _%__splice1979619797%_ '1))) - (_%target1148211524%_ + (_%target1154511587%_ (let () (declare (not safe)) (##vector-ref - _%__splice1973319734%_ + _%__splice1979619797%_ '0)))) - (if (gx#stx-null? _%tl1148411527%_) - (_%__match1975119752%_ - _%e1147911514%_ - _%hd1148011518%_ - _%tl1148111521%_ - _%__splice1973319734%_ - _%target1148211524%_ - _%tl1148411527%_) - (_%__kont1973519736%_)))) - (_%__kont1973519736%_)))) - (_%__kont1973519736%_)))))))) - (_%duplicate-indexes?9416%_ - (lambda (_%xs11444%_) - (let ((_%ht11447%_ (make-hash-table-eq))) - (let _%lp11450%_ ((_%rest11453%_ _%xs11444%_)) - (if (pair? _%rest11453%_) - (let* ((_%ix11456%_ + (if (gx#stx-null? _%tl1154711590%_) + (_%__match1981419815%_ + _%e1154211577%_ + _%hd1154311581%_ + _%tl1154411584%_ + _%__splice1979619797%_ + _%target1154511587%_ + _%tl1154711590%_) + (_%__kont1979819799%_)))) + (_%__kont1979819799%_)))) + (_%__kont1979819799%_)))))))) + (_%duplicate-indexes?9479%_ + (lambda (_%xs11507%_) + (let ((_%ht11510%_ (make-hash-table-eq))) + (let _%lp11513%_ ((_%rest11516%_ _%xs11507%_)) + (if (pair? _%rest11516%_) + (let* ((_%ix11519%_ (let () (declare (not safe)) - (##car _%rest11453%_))) - (_%$e11459%_ - (hash-get _%ht11447%_ _%ix11456%_))) - (if _%$e11459%_ - _%$e11459%_ + (##car _%rest11516%_))) + (_%$e11522%_ + (hash-get _%ht11510%_ _%ix11519%_))) + (if _%$e11522%_ + _%$e11522%_ (begin - (hash-put! _%ht11447%_ _%ix11456%_ '#t) - (_%lp11450%_ + (hash-put! _%ht11510%_ _%ix11519%_ '#t) + (_%lp11513%_ (let () (declare (not safe)) - (##cdr _%rest11453%_)))))) + (##cdr _%rest11516%_)))))) '#f))))) - (_%generate-hash-dispatch-table9417%_ - (lambda (_%indexes11413%_ _%hash-e11415%_) - (let _%lp11417%_ ((_%len11420%_ - (* '2 (length _%indexes11413%_)))) - (let* ((_%hs11426%_ - (map (lambda (_%x11423%_) - (_%hash-e11415%_ (car _%x11423%_))) - _%indexes11413%_)) - (_%xs11432%_ - (map (lambda (_%h11429%_) - (fxmodulo _%h11429%_ _%len11420%_)) - _%hs11426%_))) - (if (_%duplicate-indexes?9416%_ _%xs11432%_) - (if (< _%len11420%_ '131072) - (_%lp11417%_ + (_%generate-hash-dispatch-table9480%_ + (lambda (_%indexes11476%_ _%hash-e11478%_) + (let _%lp11480%_ ((_%len11483%_ + (* '2 (length _%indexes11476%_)))) + (let* ((_%hs11489%_ + (map (lambda (_%x11486%_) + (_%hash-e11478%_ (car _%x11486%_))) + _%indexes11476%_)) + (_%xs11495%_ + (map (lambda (_%h11492%_) + (fxmodulo _%h11492%_ _%len11483%_)) + _%hs11489%_))) + (if (_%duplicate-indexes?9479%_ _%xs11495%_) + (if (< _%len11483%_ '131072) + (_%lp11480%_ (quotient (let () (declare (not safe)) - (##fx* _%len11420%_ '3)) + (##fx* _%len11483%_ '3)) '2)) (gx#raise-syntax-error '#f '"Cannot create perfect dispatch table" - _%stx9403%_ - _%indexes11413%_)) - (let ((_%tab11437%_ - (make-vector _%len11420%_ '#f))) + _%stx9466%_ + _%indexes11476%_)) + (let ((_%tab11500%_ + (make-vector _%len11483%_ '#f))) (for-each - (lambda (_%entry11440%_ _%x11442%_) + (lambda (_%entry11503%_ _%x11505%_) (vector-set! - _%tab11437%_ - _%x11442%_ - _%entry11440%_)) - _%indexes11413%_ - _%xs11432%_) - _%tab11437%_)))))) - (_%generate-symbolic-dispatch9418%_ - (lambda (_%e11016%_ - _%datums11018%_ - _%dispatch11019%_ - _%default11020%_) - (let* ((_%indexes11022%_ - (_%datum-dispatch-index9415%_ _%datums11018%_)) - (_%tab11025%_ - (_%generate-hash-dispatch-table9417%_ - _%indexes11022%_ + _%tab11500%_ + _%x11505%_ + _%entry11503%_)) + _%indexes11476%_ + _%xs11495%_) + _%tab11500%_)))))) + (_%generate-symbolic-dispatch9481%_ + (lambda (_%e11079%_ + _%datums11081%_ + _%dispatch11082%_ + _%default11083%_) + (let* ((_%indexes11085%_ + (_%datum-dispatch-index9478%_ _%datums11081%_)) + (_%tab11088%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes11085%_ symbol-hash))) - (if (= (length _%dispatch11019%_) '1) - (let* ((_%tab11033%_ + (if (= (length _%dispatch11082%_) '1) + (let* ((_%tab11096%_ (vector-map - (lambda (_%x11030%_) - (if _%x11030%_ (car _%x11030%_) '#f)) - _%tab11025%_)) - (_%g1103611074%_ - (lambda (_%g1103711070%_) + (lambda (_%x11093%_) + (if _%x11093%_ (car _%x11093%_) '#f)) + _%tab11088%_)) + (_%g1109911137%_ + (lambda (_%g1110011133%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1103711070%_))) - (_%g1103511205%_ - (lambda (_%g1103711078%_) - (if (gx#stx-pair? _%g1103711078%_) - (let ((_%e1104511081%_ - (gx#syntax-e _%g1103711078%_))) - (let ((_%hd1104611085%_ + _%g1110011133%_))) + (_%g1109811268%_ + (lambda (_%g1110011141%_) + (if (gx#stx-pair? _%g1110011141%_) + (let ((_%e1110811144%_ + (gx#syntax-e _%g1110011141%_))) + (let ((_%hd1110911148%_ (let () (declare (not safe)) - (##car _%e1104511081%_))) - (_%tl1104711088%_ + (##car _%e1110811144%_))) + (_%tl1111011151%_ (let () (declare (not safe)) - (##cdr _%e1104511081%_)))) - (if (gx#stx-pair? _%tl1104711088%_) - (let ((_%e1104811091%_ + (##cdr _%e1110811144%_)))) + (if (gx#stx-pair? _%tl1111011151%_) + (let ((_%e1111111154%_ (gx#syntax-e - _%tl1104711088%_))) - (let ((_%hd1104911095%_ + _%tl1111011151%_))) + (let ((_%hd1111211158%_ (let () (declare (not safe)) - (##car _%e1104811091%_))) - (_%tl1105011098%_ + (##car _%e1111111154%_))) + (_%tl1111311161%_ (let () (declare (not safe)) - (##cdr _%e1104811091%_)))) + (##cdr _%e1111111154%_)))) (if (gx#stx-pair? - _%tl1105011098%_) - (let ((_%e1105111101%_ + _%tl1111311161%_) + (let ((_%e1111411164%_ (gx#syntax-e - _%tl1105011098%_))) - (let ((_%hd1105211105%_ + _%tl1111311161%_))) + (let ((_%hd1111511168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1105111101%_))) - (_%tl1105311108%_ + (let () (declare (not safe)) (##car _%e1111411164%_))) + (_%tl1111611171%_ (let () (declare (not safe)) - (##cdr _%e1105111101%_)))) - (if (gx#stx-pair? _%tl1105311108%_) - (let ((_%e1105411111%_ (gx#syntax-e _%tl1105311108%_))) - (let ((_%hd1105511115%_ + (##cdr _%e1111411164%_)))) + (if (gx#stx-pair? _%tl1111611171%_) + (let ((_%e1111711174%_ (gx#syntax-e _%tl1111611171%_))) + (let ((_%hd1111811178%_ (let () (declare (not safe)) - (##car _%e1105411111%_))) - (_%tl1105611118%_ + (##car _%e1111711174%_))) + (_%tl1111911181%_ (let () (declare (not safe)) - (##cdr _%e1105411111%_)))) - (if (gx#stx-pair? _%hd1105511115%_) - (let ((_%e1105711121%_ - (gx#syntax-e _%hd1105511115%_))) - (let ((_%hd1105811125%_ + (##cdr _%e1111711174%_)))) + (if (gx#stx-pair? _%hd1111811178%_) + (let ((_%e1112011184%_ + (gx#syntax-e _%hd1111811178%_))) + (let ((_%hd1112111188%_ (let () (declare (not safe)) - (##car _%e1105711121%_))) - (_%tl1105911128%_ + (##car _%e1112011184%_))) + (_%tl1112211191%_ (let () (declare (not safe)) - (##cdr _%e1105711121%_)))) - (if (gx#stx-null? _%tl1105911128%_) - (if (gx#stx-pair? _%tl1105611118%_) - (let ((_%e1106011131%_ + (##cdr _%e1112011184%_)))) + (if (gx#stx-null? _%tl1112211191%_) + (if (gx#stx-pair? _%tl1111911181%_) + (let ((_%e1112311194%_ (gx#syntax-e - _%tl1105611118%_))) - (let ((_%hd1106111135%_ + _%tl1111911181%_))) + (let ((_%hd1112411198%_ (let () (declare (not safe)) - (##car _%e1106011131%_))) - (_%tl1106211138%_ + (##car _%e1112311194%_))) + (_%tl1112511201%_ (let () (declare (not safe)) - (##cdr _%e1106011131%_)))) + (##cdr _%e1112311194%_)))) (if (gx#stx-pair? - _%tl1106211138%_) - (let ((_%e1106311141%_ + _%tl1112511201%_) + (let ((_%e1112611204%_ (gx#syntax-e - _%tl1106211138%_))) - (let ((_%hd1106411145%_ + _%tl1112511201%_))) + (let ((_%hd1112711208%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1106311141%_))) - (_%tl1106511148%_ - (let () (declare (not safe)) (##cdr _%e1106311141%_)))) - (if (gx#stx-pair? _%tl1106511148%_) - (let ((_%e1106611151%_ (gx#syntax-e _%tl1106511148%_))) - (let ((_%hd1106711155%_ + (##car _%e1112611204%_))) + (_%tl1112811211%_ + (let () (declare (not safe)) (##cdr _%e1112611204%_)))) + (if (gx#stx-pair? _%tl1112811211%_) + (let ((_%e1112911214%_ (gx#syntax-e _%tl1112811211%_))) + (let ((_%hd1113011218%_ (let () (declare (not safe)) - (##car _%e1106611151%_))) - (_%tl1106811158%_ + (##car _%e1112911214%_))) + (_%tl1113111221%_ (let () (declare (not safe)) - (##cdr _%e1106611151%_)))) - (if (gx#stx-null? _%tl1106811158%_) - ((lambda (_%L11161%_ - _%L11163%_ - _%L11164%_ - _%L11165%_ - _%L11166%_ - _%L11167%_ - _%L11168%_) + (##cdr _%e1112911214%_)))) + (if (gx#stx-null? _%tl1113111221%_) + ((lambda (_%L11224%_ + _%L11226%_ + _%L11227%_ + _%L11228%_ + _%L11229%_ + _%L11230%_ + _%L11231%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11167%_ + (cons (cons (cons _%L11230%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'lambda) - (cons '() (cons _%L11164%_ '()))) + (cons '() (cons _%L11227%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11166%_ + (cons (cons _%L11229%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L11163%_ '())) + (cons _%L11226%_ '())) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -4763,13 +4763,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'symbol?) - (cons _%L11168%_ '())) + (cons _%L11231%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11168%_ + (cons _%L11231%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -4782,7 +4782,7 @@ '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L11161%_ '()))) + (cons _%L11224%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -4792,7 +4792,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L11166%_ + (cons _%L11229%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -4806,201 +4806,201 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'q) - (cons _%L11168%_ '()))) - (cons _%L11165%_ (cons (cons _%L11167%_ '()) '())))) + (cons _%L11231%_ '()))) + (cons _%L11228%_ (cons (cons _%L11230%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11167%_ '()) '())))) + (cons (cons _%L11230%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1106711155%_ - _%hd1106411145%_ - _%hd1106111135%_ - _%hd1105811125%_ - _%hd1105211105%_ - _%hd1104911095%_ - _%hd1104611085%_) - (_%g1103611074%_ _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1103611074%_ - _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_)) - (_%g1103611074%_ _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1103611074%_ - _%g1103711078%_)))) - (_%g1103611074%_ _%g1103711078%_))))) - (_%g1103511205%_ - (list _%e11016%_ + _%hd1113011218%_ + _%hd1112711208%_ + _%hd1112411198%_ + _%hd1112111188%_ + _%hd1111511168%_ + _%hd1111211158%_ + _%hd1110911148%_) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1109911137%_ + _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1109911137%_ + _%g1110011141%_)))) + (_%g1109911137%_ _%g1110011141%_))))) + (_%g1109811268%_ + (list _%e11079%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch11019%_ - _%default11020%_ - _%tab11033%_ - (vector-length _%tab11033%_)))) - (let* ((_%g1120911253%_ - (lambda (_%g1121011249%_) + _%dispatch11082%_ + _%default11083%_ + _%tab11096%_ + (vector-length _%tab11096%_)))) + (let* ((_%g1127211316%_ + (lambda (_%g1127311312%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1121011249%_))) - (_%g1120811409%_ - (lambda (_%g1121011257%_) - (if (gx#stx-pair? _%g1121011257%_) - (let ((_%e1121811260%_ - (gx#syntax-e _%g1121011257%_))) - (let ((_%hd1121911264%_ + _%g1127311312%_))) + (_%g1127111472%_ + (lambda (_%g1127311320%_) + (if (gx#stx-pair? _%g1127311320%_) + (let ((_%e1128111323%_ + (gx#syntax-e _%g1127311320%_))) + (let ((_%hd1128211327%_ (let () (declare (not safe)) - (##car _%e1121811260%_))) - (_%tl1122011267%_ + (##car _%e1128111323%_))) + (_%tl1128311330%_ (let () (declare (not safe)) - (##cdr _%e1121811260%_)))) - (if (gx#stx-pair? _%tl1122011267%_) - (let ((_%e1122111270%_ + (##cdr _%e1128111323%_)))) + (if (gx#stx-pair? _%tl1128311330%_) + (let ((_%e1128411333%_ (gx#syntax-e - _%tl1122011267%_))) - (let ((_%hd1122211274%_ + _%tl1128311330%_))) + (let ((_%hd1128511337%_ (let () (declare (not safe)) - (##car _%e1122111270%_))) - (_%tl1122311277%_ + (##car _%e1128411333%_))) + (_%tl1128611340%_ (let () (declare (not safe)) - (##cdr _%e1122111270%_)))) + (##cdr _%e1128411333%_)))) (if (gx#stx-pair? - _%tl1122311277%_) - (let ((_%e1122411280%_ + _%tl1128611340%_) + (let ((_%e1128711343%_ (gx#syntax-e - _%tl1122311277%_))) - (let ((_%hd1122511284%_ + _%tl1128611340%_))) + (let ((_%hd1128811347%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1122411280%_))) - (_%tl1122611287%_ + (let () (declare (not safe)) (##car _%e1128711343%_))) + (_%tl1128911350%_ (let () (declare (not safe)) - (##cdr _%e1122411280%_)))) - (if (gx#stx-pair? _%tl1122611287%_) - (let ((_%e1122711290%_ (gx#syntax-e _%tl1122611287%_))) - (let ((_%hd1122811294%_ + (##cdr _%e1128711343%_)))) + (if (gx#stx-pair? _%tl1128911350%_) + (let ((_%e1129011353%_ (gx#syntax-e _%tl1128911350%_))) + (let ((_%hd1129111357%_ (let () (declare (not safe)) - (##car _%e1122711290%_))) - (_%tl1122911297%_ + (##car _%e1129011353%_))) + (_%tl1129211360%_ (let () (declare (not safe)) - (##cdr _%e1122711290%_)))) - (if (gx#stx-pair/null? _%hd1122811294%_) - (let ((_g20957_ + (##cdr _%e1129011353%_)))) + (if (gx#stx-pair/null? _%hd1129111357%_) + (let ((_g21020_ (gx#syntax-split-splice - _%hd1122811294%_ + _%hd1129111357%_ '0))) (begin - (let ((_g20958_ + (let ((_g21021_ (let () (declare (not safe)) - (if (##values? _g20957_) - (##vector-length _g20957_) + (if (##values? _g21020_) + (##values-length _g21020_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20958_ 2))) + (##fx= _g21021_ 2))) (error "Context expects 2 values" - _g20958_))) - (let ((_%target1123011300%_ + _g21021_))) + (let ((_%target1129311363%_ (let () (declare (not safe)) - (##vector-ref _g20957_ 0))) - (_%tl1123211303%_ + (##values-ref _g21020_ 0))) + (_%tl1129511366%_ (let () (declare (not safe)) - (##vector-ref _g20957_ 1)))) - (if (gx#stx-null? _%tl1123211303%_) - (letrec ((_%loop1123311306%_ - (lambda (_%hd1123111310%_ - _%dispatch1123711313%_) + (##values-ref _g21020_ 1)))) + (if (gx#stx-null? _%tl1129511366%_) + (letrec ((_%loop1129611369%_ + (lambda (_%hd1129411373%_ + _%dispatch1130011376%_) (if (gx#stx-pair? - _%hd1123111310%_) - (let ((_%e1123411316%_ + _%hd1129411373%_) + (let ((_%e1129711379%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1123111310%_))) - (let ((_%lp-hd1123511320%_ + (gx#syntax-e _%hd1129411373%_))) + (let ((_%lp-hd1129811383%_ (let () (declare (not safe)) - (##car _%e1123411316%_))) - (_%lp-tl1123611323%_ + (##car _%e1129711379%_))) + (_%lp-tl1129911386%_ (let () (declare (not safe)) - (##cdr _%e1123411316%_)))) - (_%loop1123311306%_ - _%lp-tl1123611323%_ - (cons _%lp-hd1123511320%_ _%dispatch1123711313%_)))) - (let ((_%dispatch1123811326%_ - (reverse _%dispatch1123711313%_))) - (if (gx#stx-pair? _%tl1122911297%_) - (let ((_%e1123911330%_ (gx#syntax-e _%tl1122911297%_))) - (let ((_%hd1124011334%_ + (##cdr _%e1129711379%_)))) + (_%loop1129611369%_ + _%lp-tl1129911386%_ + (cons _%lp-hd1129811383%_ _%dispatch1130011376%_)))) + (let ((_%dispatch1130111389%_ + (reverse _%dispatch1130011376%_))) + (if (gx#stx-pair? _%tl1129211360%_) + (let ((_%e1130211393%_ (gx#syntax-e _%tl1129211360%_))) + (let ((_%hd1130311397%_ (let () (declare (not safe)) - (##car _%e1123911330%_))) - (_%tl1124111337%_ + (##car _%e1130211393%_))) + (_%tl1130411400%_ (let () (declare (not safe)) - (##cdr _%e1123911330%_)))) - (if (gx#stx-pair? _%tl1124111337%_) - (let ((_%e1124211340%_ - (gx#syntax-e _%tl1124111337%_))) - (let ((_%hd1124311344%_ + (##cdr _%e1130211393%_)))) + (if (gx#stx-pair? _%tl1130411400%_) + (let ((_%e1130511403%_ + (gx#syntax-e _%tl1130411400%_))) + (let ((_%hd1130611407%_ (let () (declare (not safe)) - (##car _%e1124211340%_))) - (_%tl1124411347%_ + (##car _%e1130511403%_))) + (_%tl1130711410%_ (let () (declare (not safe)) - (##cdr _%e1124211340%_)))) - (if (gx#stx-pair? _%tl1124411347%_) - (let ((_%e1124511350%_ - (gx#syntax-e _%tl1124411347%_))) - (let ((_%hd1124611354%_ + (##cdr _%e1130511403%_)))) + (if (gx#stx-pair? _%tl1130711410%_) + (let ((_%e1130811413%_ + (gx#syntax-e _%tl1130711410%_))) + (let ((_%hd1130911417%_ (let () (declare (not safe)) - (##car _%e1124511350%_))) - (_%tl1124711357%_ + (##car _%e1130811413%_))) + (_%tl1131011420%_ (let () (declare (not safe)) - (##cdr _%e1124511350%_)))) - (if (gx#stx-null? _%tl1124711357%_) - ((lambda (_%L11360%_ - _%L11362%_ - _%L11363%_ - _%L11364%_ - _%L11365%_ - _%L11366%_ - _%L11367%_) + (##cdr _%e1130811413%_)))) + (if (gx#stx-null? _%tl1131011420%_) + ((lambda (_%L11423%_ + _%L11425%_ + _%L11426%_ + _%L11427%_ + _%L11428%_ + _%L11429%_ + _%L11430%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L11366%_ + (cons (cons (cons _%L11429%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L11363%_ '()))) + (cons _%L11426%_ '()))) '())) - (cons (cons _%L11365%_ + (cons (cons _%L11428%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L11362%_ '())) + (cons _%L11425%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'symbol?) - (cons _%L11367%_ '())) + (cons _%L11430%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) @@ -5011,7 +5011,7 @@ (cons (cons (gx#datum->syntax '#f '##symbol-hash) - (cons _%L11367%_ '())) + (cons _%L11430%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax @@ -5020,13 +5020,13 @@ (cons (gx#datum->syntax '#f 'h) - (cons _%L11360%_ '()))) + (cons _%L11423%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L11365%_ + (cons _%L11428%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -5046,7 +5046,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L11367%_ '()))) + (cons _%L11430%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -5061,232 +5061,232 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1140011403%_ + (foldr (lambda (_%g1146311466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1140111406%_) - (cons _%g1140011403%_ _%g1140111406%_)) + _%g1146411469%_) + (cons _%g1146311466%_ _%g1146411469%_)) '() - _%L11364%_))) + _%L11427%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L11366%_ '()) '())))) + (cons (cons _%L11429%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11366%_ '()) '())))) + (cons (cons _%L11429%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L11366%_ '()) + (cons (cons _%L11429%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1124611354%_ - _%hd1124311344%_ - _%hd1124011334%_ - _%dispatch1123811326%_ - _%hd1122511284%_ - _%hd1122211274%_ - _%hd1121911264%_) - (_%g1120911253%_ - _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1123311306%_ - _%target1123011300%_ + _%hd1130911417%_ + _%hd1130611407%_ + _%hd1130311397%_ + _%dispatch1130111389%_ + _%hd1128811347%_ + _%hd1128511337%_ + _%hd1128211327%_) + (_%g1127211316%_ + _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1129611369%_ + _%target1129311363%_ '())) - (_%g1120911253%_ _%g1121011257%_))))) - (_%g1120911253%_ _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1120911253%_ - _%g1121011257%_)))) - (_%g1120911253%_ _%g1121011257%_))))) - (_%g1120811409%_ - (list _%e11016%_ + (_%g1127211316%_ _%g1127311320%_))))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1127211316%_ + _%g1127311320%_)))) + (_%g1127211316%_ _%g1127311320%_))))) + (_%g1127111472%_ + (list _%e11079%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch11019%_ - _%default11020%_ - _%tab11025%_ - (vector-length _%tab11025%_)))))))) - (_%max-char9419%_ - (lambda (_%datums11005%_) - (foldl (lambda (_%lst11008%_ _%r11010%_) - (foldl (lambda (_%char11012%_ _%r11014%_) - (max (char->integer _%char11012%_) - _%r11014%_)) - _%r11010%_ - _%lst11008%_)) + _%dispatch11082%_ + _%default11083%_ + _%tab11088%_ + (vector-length _%tab11088%_)))))))) + (_%max-char9482%_ + (lambda (_%datums11068%_) + (foldl (lambda (_%lst11071%_ _%r11073%_) + (foldl (lambda (_%char11075%_ _%r11077%_) + (max (char->integer _%char11075%_) + _%r11077%_)) + _%r11073%_ + _%lst11071%_)) '0 - _%datums11005%_))) - (_%generate-char-dispatch-table9420%_ - (lambda (_%indexes10984%_) - (let* ((_%ixs10990%_ - (map (lambda (_%x10987%_) - (char->integer (car _%x10987%_))) - _%indexes10984%_)) - (_%len10993%_ (fx1+ (foldl max '0 _%ixs10990%_))) - (_%vec10996%_ (make-vector _%len10993%_ '#f))) + _%datums11068%_))) + (_%generate-char-dispatch-table9483%_ + (lambda (_%indexes11047%_) + (let* ((_%ixs11053%_ + (map (lambda (_%x11050%_) + (char->integer (car _%x11050%_))) + _%indexes11047%_)) + (_%len11056%_ (fx1+ (foldl max '0 _%ixs11053%_))) + (_%vec11059%_ (make-vector _%len11056%_ '#f))) (for-each - (lambda (_%entry11001%_ _%x11003%_) + (lambda (_%entry11064%_ _%x11066%_) (vector-set! - _%vec10996%_ - _%x11003%_ - (cdr _%entry11001%_))) - _%indexes10984%_ - _%ixs10990%_) - _%vec10996%_))) - (_%simple-char-range?9421%_ - (lambda (_%tab10960%_) - (let ((_%end10963%_ (vector-length _%tab10960%_))) - (let _%lp10966%_ ((_%i10969%_ '0)) - (let ((_%ix10972%_ - (vector-ref _%tab10960%_ _%i10969%_))) - (if _%ix10972%_ - (let _%lp210975%_ ((_%i10978%_ - (fx1+ _%i10969%_))) - (if (fx< _%i10978%_ _%end10963%_) - (let ((_%ix*10981%_ + _%vec11059%_ + _%x11066%_ + (cdr _%entry11064%_))) + _%indexes11047%_ + _%ixs11053%_) + _%vec11059%_))) + (_%simple-char-range?9484%_ + (lambda (_%tab11023%_) + (let ((_%end11026%_ (vector-length _%tab11023%_))) + (let _%lp11029%_ ((_%i11032%_ '0)) + (let ((_%ix11035%_ + (vector-ref _%tab11023%_ _%i11032%_))) + (if _%ix11035%_ + (let _%lp211038%_ ((_%i11041%_ + (fx1+ _%i11032%_))) + (if (fx< _%i11041%_ _%end11026%_) + (let ((_%ix*11044%_ (vector-ref - _%tab10960%_ - _%i10978%_))) - (if (eq? _%ix10972%_ _%ix*10981%_) - (_%lp210975%_ (fx1+ _%i10978%_)) + _%tab11023%_ + _%i11041%_))) + (if (eq? _%ix11035%_ _%ix*11044%_) + (_%lp211038%_ (fx1+ _%i11041%_)) '#f)) '#t)) - (_%lp10966%_ (fx1+ _%i10969%_)))))))) - (_%char-range-start9422%_ - (lambda (_%tab10951%_) - (let _%lp10954%_ ((_%i10957%_ '0)) - (if (vector-ref _%tab10951%_ _%i10957%_) - _%i10957%_ - (_%lp10954%_ (fx1+ _%i10957%_)))))) - (_%generate-char-dispatch9423%_ - (lambda (_%e10574%_ - _%datums10576%_ - _%dispatch10577%_ - _%default10578%_) - (if (< (_%max-char9419%_ _%datums10576%_) '128) - (let* ((_%indexes10580%_ - (_%datum-dispatch-index9415%_ _%datums10576%_)) - (_%tab10583%_ - (_%generate-char-dispatch-table9420%_ - _%indexes10580%_))) - (if (_%simple-char-range?9421%_ _%tab10583%_) - (let ((_%start10588%_ - (_%char-range-start9422%_ _%tab10583%_)) - (_%end10590%_ - (vector-length _%tab10583%_))) - (let* ((_%g1059210626%_ - (lambda (_%g1059310622%_) + (_%lp11029%_ (fx1+ _%i11032%_)))))))) + (_%char-range-start9485%_ + (lambda (_%tab11014%_) + (let _%lp11017%_ ((_%i11020%_ '0)) + (if (vector-ref _%tab11014%_ _%i11020%_) + _%i11020%_ + (_%lp11017%_ (fx1+ _%i11020%_)))))) + (_%generate-char-dispatch9486%_ + (lambda (_%e10637%_ + _%datums10639%_ + _%dispatch10640%_ + _%default10641%_) + (if (< (_%max-char9482%_ _%datums10639%_) '128) + (let* ((_%indexes10643%_ + (_%datum-dispatch-index9478%_ _%datums10639%_)) + (_%tab10646%_ + (_%generate-char-dispatch-table9483%_ + _%indexes10643%_))) + (if (_%simple-char-range?9484%_ _%tab10646%_) + (let ((_%start10651%_ + (_%char-range-start9485%_ _%tab10646%_)) + (_%end10653%_ + (vector-length _%tab10646%_))) + (let* ((_%g1065510689%_ + (lambda (_%g1065610685%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1059310622%_))) - (_%g1059110743%_ - (lambda (_%g1059310630%_) - (if (gx#stx-pair? _%g1059310630%_) - (let ((_%e1060010633%_ + _%g1065610685%_))) + (_%g1065410806%_ + (lambda (_%g1065610693%_) + (if (gx#stx-pair? _%g1065610693%_) + (let ((_%e1066310696%_ (gx#syntax-e - _%g1059310630%_))) - (let ((_%hd1060110637%_ + _%g1065610693%_))) + (let ((_%hd1066410700%_ (let () (declare (not safe)) - (##car _%e1060010633%_))) - (_%tl1060210640%_ + (##car _%e1066310696%_))) + (_%tl1066510703%_ (let () (declare (not safe)) - (##cdr _%e1060010633%_)))) + (##cdr _%e1066310696%_)))) (if (gx#stx-pair? - _%tl1060210640%_) - (let ((_%e1060310643%_ + _%tl1066510703%_) + (let ((_%e1066610706%_ (gx#syntax-e - _%tl1060210640%_))) - (let ((_%hd1060410647%_ + _%tl1066510703%_))) + (let ((_%hd1066710710%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1060310643%_))) - (_%tl1060510650%_ - (let () (declare (not safe)) (##cdr _%e1060310643%_)))) - (if (gx#stx-pair? _%tl1060510650%_) - (let ((_%e1060610653%_ (gx#syntax-e _%tl1060510650%_))) - (let ((_%hd1060710657%_ + (##car _%e1066610706%_))) + (_%tl1066810713%_ + (let () (declare (not safe)) (##cdr _%e1066610706%_)))) + (if (gx#stx-pair? _%tl1066810713%_) + (let ((_%e1066910716%_ (gx#syntax-e _%tl1066810713%_))) + (let ((_%hd1067010720%_ (let () (declare (not safe)) - (##car _%e1060610653%_))) - (_%tl1060810660%_ + (##car _%e1066910716%_))) + (_%tl1067110723%_ (let () (declare (not safe)) - (##cdr _%e1060610653%_)))) - (if (gx#stx-pair? _%hd1060710657%_) - (let ((_%e1060910663%_ - (gx#syntax-e _%hd1060710657%_))) - (let ((_%hd1061010667%_ + (##cdr _%e1066910716%_)))) + (if (gx#stx-pair? _%hd1067010720%_) + (let ((_%e1067210726%_ + (gx#syntax-e _%hd1067010720%_))) + (let ((_%hd1067310730%_ (let () (declare (not safe)) - (##car _%e1060910663%_))) - (_%tl1061110670%_ + (##car _%e1067210726%_))) + (_%tl1067410733%_ (let () (declare (not safe)) - (##cdr _%e1060910663%_)))) - (if (gx#stx-null? _%tl1061110670%_) - (if (gx#stx-pair? _%tl1060810660%_) - (let ((_%e1061210673%_ + (##cdr _%e1067210726%_)))) + (if (gx#stx-null? _%tl1067410733%_) + (if (gx#stx-pair? _%tl1067110723%_) + (let ((_%e1067510736%_ (gx#syntax-e - _%tl1060810660%_))) - (let ((_%hd1061310677%_ + _%tl1067110723%_))) + (let ((_%hd1067610740%_ (let () (declare (not safe)) - (##car _%e1061210673%_))) - (_%tl1061410680%_ + (##car _%e1067510736%_))) + (_%tl1067710743%_ (let () (declare (not safe)) - (##cdr _%e1061210673%_)))) + (##cdr _%e1067510736%_)))) (if (gx#stx-pair? - _%tl1061410680%_) - (let ((_%e1061510683%_ + _%tl1067710743%_) + (let ((_%e1067810746%_ (gx#syntax-e - _%tl1061410680%_))) - (let ((_%hd1061610687%_ + _%tl1067710743%_))) + (let ((_%hd1067910750%_ (let () (declare (not safe)) - (##car _%e1061510683%_))) - (_%tl1061710690%_ + (##car _%e1067810746%_))) + (_%tl1068010753%_ (let () (declare (not safe)) - (##cdr _%e1061510683%_)))) + (##cdr _%e1067810746%_)))) (if (gx#stx-pair? - _%tl1061710690%_) - (let ((_%e1061810693%_ + _%tl1068010753%_) + (let ((_%e1068110756%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1061710690%_))) - (let ((_%hd1061910697%_ + (gx#syntax-e _%tl1068010753%_))) + (let ((_%hd1068210760%_ (let () (declare (not safe)) - (##car _%e1061810693%_))) - (_%tl1062010700%_ + (##car _%e1068110756%_))) + (_%tl1068310763%_ (let () (declare (not safe)) - (##cdr _%e1061810693%_)))) - (if (gx#stx-null? _%tl1062010700%_) - ((lambda (_%L10703%_ - _%L10705%_ - _%L10706%_ - _%L10707%_ - _%L10708%_ - _%L10709%_) + (##cdr _%e1068110756%_)))) + (if (gx#stx-null? _%tl1068310763%_) + ((lambda (_%L10766%_ + _%L10768%_ + _%L10769%_ + _%L10770%_ + _%L10771%_ + _%L10772%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L10708%_ + (cons (cons _%L10771%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L10706%_ '()))) + (cons _%L10769%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) @@ -5294,13 +5294,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'char?) - (cons _%L10709%_ '())) + (cons _%L10772%_ '())) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10709%_ '())) + (cons _%L10772%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -5311,209 +5311,209 @@ '#f '##fx>=) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10705%_ '()))) + (cons _%L10768%_ '()))) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10703%_ '()))) + (cons _%L10766%_ '()))) '()))) - (cons _%L10707%_ (cons (cons _%L10708%_ '()) '())))) + (cons _%L10770%_ (cons (cons _%L10771%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L10708%_ '()) '())))) + (cons (cons _%L10771%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd1061910697%_ - _%hd1061610687%_ - _%hd1061310677%_ - _%hd1061010667%_ - _%hd1060410647%_ - _%hd1060110637%_) - (_%g1059210626%_ _%g1059310630%_)))) - (_%g1059210626%_ _%g1059310630%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1059210626%_ - _%g1059310630%_)))) - (_%g1059210626%_ _%g1059310630%_)) - (_%g1059210626%_ _%g1059310630%_)))) - (_%g1059210626%_ _%g1059310630%_)))) - (_%g1059210626%_ _%g1059310630%_)))) - (_%g1059210626%_ _%g1059310630%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1059210626%_ - _%g1059310630%_))))) - (_%g1059110743%_ - (list _%e10574%_ + _%hd1068210760%_ + _%hd1067910750%_ + _%hd1067610740%_ + _%hd1067310730%_ + _%hd1066710710%_ + _%hd1066410700%_) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1065510689%_ + _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) + (_%g1065510689%_ _%g1065610693%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1065510689%_ + _%g1065610693%_))))) + (_%g1065410806%_ + (list _%e10637%_ (gx#genident 'default) - _%dispatch10577%_ - _%default10578%_ - _%start10588%_ - _%end10590%_)))) - (let* ((_%g1074710791%_ - (lambda (_%g1074810787%_) + _%dispatch10640%_ + _%default10641%_ + _%start10651%_ + _%end10653%_)))) + (let* ((_%g1081010854%_ + (lambda (_%g1081110850%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1074810787%_))) - (_%g1074610947%_ - (lambda (_%g1074810795%_) - (if (gx#stx-pair? _%g1074810795%_) - (let ((_%e1075610798%_ + _%g1081110850%_))) + (_%g1080911010%_ + (lambda (_%g1081110858%_) + (if (gx#stx-pair? _%g1081110858%_) + (let ((_%e1081910861%_ (gx#syntax-e - _%g1074810795%_))) - (let ((_%hd1075710802%_ + _%g1081110858%_))) + (let ((_%hd1082010865%_ (let () (declare (not safe)) - (##car _%e1075610798%_))) - (_%tl1075810805%_ + (##car _%e1081910861%_))) + (_%tl1082110868%_ (let () (declare (not safe)) - (##cdr _%e1075610798%_)))) + (##cdr _%e1081910861%_)))) (if (gx#stx-pair? - _%tl1075810805%_) - (let ((_%e1075910808%_ + _%tl1082110868%_) + (let ((_%e1082210871%_ (gx#syntax-e - _%tl1075810805%_))) - (let ((_%hd1076010812%_ + _%tl1082110868%_))) + (let ((_%hd1082310875%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1075910808%_))) - (_%tl1076110815%_ - (let () (declare (not safe)) (##cdr _%e1075910808%_)))) - (if (gx#stx-pair? _%tl1076110815%_) - (let ((_%e1076210818%_ (gx#syntax-e _%tl1076110815%_))) - (let ((_%hd1076310822%_ + (##car _%e1082210871%_))) + (_%tl1082410878%_ + (let () (declare (not safe)) (##cdr _%e1082210871%_)))) + (if (gx#stx-pair? _%tl1082410878%_) + (let ((_%e1082510881%_ (gx#syntax-e _%tl1082410878%_))) + (let ((_%hd1082610885%_ (let () (declare (not safe)) - (##car _%e1076210818%_))) - (_%tl1076410825%_ + (##car _%e1082510881%_))) + (_%tl1082710888%_ (let () (declare (not safe)) - (##cdr _%e1076210818%_)))) - (if (gx#stx-pair? _%tl1076410825%_) - (let ((_%e1076510828%_ - (gx#syntax-e _%tl1076410825%_))) - (let ((_%hd1076610832%_ + (##cdr _%e1082510881%_)))) + (if (gx#stx-pair? _%tl1082710888%_) + (let ((_%e1082810891%_ + (gx#syntax-e _%tl1082710888%_))) + (let ((_%hd1082910895%_ (let () (declare (not safe)) - (##car _%e1076510828%_))) - (_%tl1076710835%_ + (##car _%e1082810891%_))) + (_%tl1083010898%_ (let () (declare (not safe)) - (##cdr _%e1076510828%_)))) - (if (gx#stx-pair/null? _%hd1076610832%_) - (let ((_g20959_ + (##cdr _%e1082810891%_)))) + (if (gx#stx-pair/null? _%hd1082910895%_) + (let ((_g21022_ (gx#syntax-split-splice - _%hd1076610832%_ + _%hd1082910895%_ '0))) (begin - (let ((_g20960_ + (let ((_g21023_ (let () (declare (not safe)) - (if (##values? _g20959_) - (##vector-length _g20959_) + (if (##values? _g21022_) + (##values-length _g21022_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20960_ 2))) + (##fx= _g21023_ 2))) (error "Context expects 2 values" - _g20960_))) - (let ((_%target1076810838%_ + _g21023_))) + (let ((_%target1083110901%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 0))) - (_%tl1077010841%_ + (##values-ref _g21022_ 0))) + (_%tl1083310904%_ (let () (declare (not safe)) - (##vector-ref _g20959_ 1)))) - (if (gx#stx-null? _%tl1077010841%_) - (letrec ((_%loop1077110844%_ - (lambda (_%hd1076910848%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%dispatch1077510851%_) - (if (gx#stx-pair? _%hd1076910848%_) - (let ((_%e1077210854%_ (gx#syntax-e _%hd1076910848%_))) - (let ((_%lp-hd1077310858%_ + (##values-ref _g21022_ 1)))) + (if (gx#stx-null? _%tl1083310904%_) + (letrec ((_%loop1083410907%_ + (lambda (_%hd1083210911%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%dispatch1083810914%_) + (if (gx#stx-pair? _%hd1083210911%_) + (let ((_%e1083510917%_ (gx#syntax-e _%hd1083210911%_))) + (let ((_%lp-hd1083610921%_ (let () (declare (not safe)) - (##car _%e1077210854%_))) - (_%lp-tl1077410861%_ + (##car _%e1083510917%_))) + (_%lp-tl1083710924%_ (let () (declare (not safe)) - (##cdr _%e1077210854%_)))) - (_%loop1077110844%_ - _%lp-tl1077410861%_ - (cons _%lp-hd1077310858%_ _%dispatch1077510851%_)))) - (let ((_%dispatch1077610864%_ - (reverse _%dispatch1077510851%_))) - (if (gx#stx-pair? _%tl1076710835%_) - (let ((_%e1077710868%_ - (gx#syntax-e _%tl1076710835%_))) - (let ((_%hd1077810872%_ + (##cdr _%e1083510917%_)))) + (_%loop1083410907%_ + _%lp-tl1083710924%_ + (cons _%lp-hd1083610921%_ _%dispatch1083810914%_)))) + (let ((_%dispatch1083910927%_ + (reverse _%dispatch1083810914%_))) + (if (gx#stx-pair? _%tl1083010898%_) + (let ((_%e1084010931%_ + (gx#syntax-e _%tl1083010898%_))) + (let ((_%hd1084110935%_ (let () (declare (not safe)) - (##car _%e1077710868%_))) - (_%tl1077910875%_ + (##car _%e1084010931%_))) + (_%tl1084210938%_ (let () (declare (not safe)) - (##cdr _%e1077710868%_)))) - (if (gx#stx-pair? _%tl1077910875%_) - (let ((_%e1078010878%_ - (gx#syntax-e _%tl1077910875%_))) - (let ((_%hd1078110882%_ + (##cdr _%e1084010931%_)))) + (if (gx#stx-pair? _%tl1084210938%_) + (let ((_%e1084310941%_ + (gx#syntax-e _%tl1084210938%_))) + (let ((_%hd1084410945%_ (let () (declare (not safe)) - (##car _%e1078010878%_))) - (_%tl1078210885%_ + (##car _%e1084310941%_))) + (_%tl1084510948%_ (let () (declare (not safe)) - (##cdr _%e1078010878%_)))) - (if (gx#stx-pair? _%tl1078210885%_) - (let ((_%e1078310888%_ + (##cdr _%e1084310941%_)))) + (if (gx#stx-pair? _%tl1084510948%_) + (let ((_%e1084610951%_ (gx#syntax-e - _%tl1078210885%_))) - (let ((_%hd1078410892%_ + _%tl1084510948%_))) + (let ((_%hd1084710955%_ (let () (declare (not safe)) - (##car _%e1078310888%_))) - (_%tl1078510895%_ + (##car _%e1084610951%_))) + (_%tl1084810958%_ (let () (declare (not safe)) - (##cdr _%e1078310888%_)))) + (##cdr _%e1084610951%_)))) (if (gx#stx-null? - _%tl1078510895%_) - ((lambda (_%L10898%_ - _%L10900%_ - _%L10901%_ - _%L10902%_ - _%L10903%_ - _%L10904%_ - _%L10905%_) + _%tl1084810958%_) + ((lambda (_%L10961%_ + _%L10963%_ + _%L10964%_ + _%L10965%_ + _%L10966%_ + _%L10967%_ + _%L10968%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10904%_ + (cons (cons (cons _%L10967%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10901%_ + (cons _%L10964%_ '()))) '())) - (cons (cons _%L10903%_ + (cons (cons _%L10966%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10900%_ '())) + (cons _%L10963%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10905%_ '())) + (cons _%L10968%_ '())) (cons (cons (gx#datum->syntax '#f 'let) @@ -5524,12 +5524,12 @@ (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10905%_ '())) + (cons _%L10968%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) (cons (gx#datum->syntax '#f 'ix) - (cons _%L10898%_ '()))) + (cons _%L10961%_ '()))) (cons (cons (gx#datum->syntax '#f 'let) @@ -5538,7 +5538,7 @@ '#f 'x) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10903%_ + (cons _%L10966%_ (cons (gx#datum->syntax '#f 'ix) '()))) '())) @@ -5550,255 +5550,255 @@ (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1093810941%_ + (foldr (lambda (_%g1100111004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1093910944%_) - (cons _%g1093810941%_ _%g1093910944%_)) + _%g1100211007%_) + (cons _%g1100111004%_ _%g1100211007%_)) '() - _%L10902%_))) + _%L10965%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10904%_ '()) '())))) + (cons (cons _%L10967%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10904%_ '()) + (cons (cons _%L10967%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10904%_ '()) + (cons (cons _%L10967%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1078410892%_ - _%hd1078110882%_ - _%hd1077810872%_ - _%dispatch1077610864%_ - _%hd1076310822%_ - _%hd1076010812%_ - _%hd1075710802%_) - (_%g1074710791%_ - _%g1074810795%_)))) - (_%g1074710791%_ - _%g1074810795%_)))) - (_%g1074710791%_ _%g1074810795%_)))) - (_%g1074710791%_ _%g1074810795%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1077110844%_ - _%target1076810838%_ + _%hd1084710955%_ + _%hd1084410945%_ + _%hd1084110935%_ + _%dispatch1083910927%_ + _%hd1082610885%_ + _%hd1082310875%_ + _%hd1082010865%_) + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1083410907%_ + _%target1083110901%_ '())) - (_%g1074710791%_ - _%g1074810795%_))))) - (_%g1074710791%_ _%g1074810795%_)))) - (_%g1074710791%_ _%g1074810795%_)))) - (_%g1074710791%_ _%g1074810795%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1074710791%_ - _%g1074810795%_)))) - (_%g1074710791%_ - _%g1074810795%_))))) - (_%g1074610947%_ - (list _%e10574%_ + (_%g1081010854%_ + _%g1081110858%_))))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) + (_%g1081010854%_ _%g1081110858%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1081010854%_ + _%g1081110858%_)))) + (_%g1081010854%_ + _%g1081110858%_))))) + (_%g1080911010%_ + (list _%e10637%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10577%_ - _%default10578%_ - _%tab10583%_ - (vector-length _%tab10583%_)))))) - (_%generate-char-dispatch/hash9424%_ - _%e10574%_ - _%datums10576%_ - _%dispatch10577%_ - _%default10578%_)))) - (_%generate-char-dispatch/hash9424%_ - (lambda (_%e10352%_ - _%datums10354%_ - _%dispatch10355%_ - _%default10356%_) - (let* ((_%indexes10358%_ - (_%datum-dispatch-index9415%_ _%datums10354%_)) - (_%tab10361%_ - (_%generate-hash-dispatch-table9417%_ - _%indexes10358%_ + _%dispatch10640%_ + _%default10641%_ + _%tab10646%_ + (vector-length _%tab10646%_)))))) + (_%generate-char-dispatch/hash9487%_ + _%e10637%_ + _%datums10639%_ + _%dispatch10640%_ + _%default10641%_)))) + (_%generate-char-dispatch/hash9487%_ + (lambda (_%e10415%_ + _%datums10417%_ + _%dispatch10418%_ + _%default10419%_) + (let* ((_%indexes10421%_ + (_%datum-dispatch-index9478%_ _%datums10417%_)) + (_%tab10424%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes10421%_ char->integer)) - (_%g1036610410%_ - (lambda (_%g1036710406%_) + (_%g1042910473%_ + (lambda (_%g1043010469%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1036710406%_))) - (_%g1036510570%_ - (lambda (_%g1036710414%_) - (if (gx#stx-pair? _%g1036710414%_) - (let ((_%e1037510417%_ - (gx#syntax-e _%g1036710414%_))) - (let ((_%hd1037610421%_ + _%g1043010469%_))) + (_%g1042810633%_ + (lambda (_%g1043010477%_) + (if (gx#stx-pair? _%g1043010477%_) + (let ((_%e1043810480%_ + (gx#syntax-e _%g1043010477%_))) + (let ((_%hd1043910484%_ (let () (declare (not safe)) - (##car _%e1037510417%_))) - (_%tl1037710424%_ + (##car _%e1043810480%_))) + (_%tl1044010487%_ (let () (declare (not safe)) - (##cdr _%e1037510417%_)))) - (if (gx#stx-pair? _%tl1037710424%_) - (let ((_%e1037810427%_ + (##cdr _%e1043810480%_)))) + (if (gx#stx-pair? _%tl1044010487%_) + (let ((_%e1044110490%_ (gx#syntax-e - _%tl1037710424%_))) - (let ((_%hd1037910431%_ + _%tl1044010487%_))) + (let ((_%hd1044210494%_ (let () (declare (not safe)) - (##car _%e1037810427%_))) - (_%tl1038010434%_ + (##car _%e1044110490%_))) + (_%tl1044310497%_ (let () (declare (not safe)) - (##cdr _%e1037810427%_)))) + (##cdr _%e1044110490%_)))) (if (gx#stx-pair? - _%tl1038010434%_) - (let ((_%e1038110437%_ + _%tl1044310497%_) + (let ((_%e1044410500%_ (gx#syntax-e - _%tl1038010434%_))) - (let ((_%hd1038210441%_ + _%tl1044310497%_))) + (let ((_%hd1044510504%_ (let () (declare (not safe)) - (##car _%e1038110437%_))) - (_%tl1038310444%_ + (##car _%e1044410500%_))) + (_%tl1044610507%_ (let () (declare (not safe)) - (##cdr _%e1038110437%_)))) + (##cdr _%e1044410500%_)))) (if (gx#stx-pair? - _%tl1038310444%_) - (let ((_%e1038410447%_ + _%tl1044610507%_) + (let ((_%e1044710510%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1038310444%_))) - (let ((_%hd1038510451%_ + (gx#syntax-e _%tl1044610507%_))) + (let ((_%hd1044810514%_ (let () (declare (not safe)) - (##car _%e1038410447%_))) - (_%tl1038610454%_ + (##car _%e1044710510%_))) + (_%tl1044910517%_ (let () (declare (not safe)) - (##cdr _%e1038410447%_)))) - (if (gx#stx-pair/null? _%hd1038510451%_) - (let ((_g20961_ - (gx#syntax-split-splice _%hd1038510451%_ '0))) + (##cdr _%e1044710510%_)))) + (if (gx#stx-pair/null? _%hd1044810514%_) + (let ((_g21024_ + (gx#syntax-split-splice _%hd1044810514%_ '0))) (begin - (let ((_g20962_ + (let ((_g21025_ (let () (declare (not safe)) - (if (##values? _g20961_) - (##vector-length _g20961_) + (if (##values? _g21024_) + (##values-length _g21024_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20962_ 2))) + (##fx= _g21025_ 2))) (error "Context expects 2 values" - _g20962_))) - (let ((_%target1038710457%_ + _g21025_))) + (let ((_%target1045010520%_ (let () (declare (not safe)) - (##vector-ref _g20961_ 0))) - (_%tl1038910460%_ + (##values-ref _g21024_ 0))) + (_%tl1045210523%_ (let () (declare (not safe)) - (##vector-ref _g20961_ 1)))) - (if (gx#stx-null? _%tl1038910460%_) - (letrec ((_%loop1039010463%_ - (lambda (_%hd1038810467%_ - _%dispatch1039410470%_) + (##values-ref _g21024_ 1)))) + (if (gx#stx-null? _%tl1045210523%_) + (letrec ((_%loop1045310526%_ + (lambda (_%hd1045110530%_ + _%dispatch1045710533%_) (if (gx#stx-pair? - _%hd1038810467%_) - (let ((_%e1039110473%_ + _%hd1045110530%_) + (let ((_%e1045410536%_ (gx#syntax-e - _%hd1038810467%_))) - (let ((_%lp-hd1039210477%_ + _%hd1045110530%_))) + (let ((_%lp-hd1045510540%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1039110473%_))) - (_%lp-tl1039310480%_ - (let () (declare (not safe)) (##cdr _%e1039110473%_)))) - (_%loop1039010463%_ - _%lp-tl1039310480%_ - (cons _%lp-hd1039210477%_ _%dispatch1039410470%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch1039510483%_ - (reverse _%dispatch1039410470%_))) + (##car _%e1045410536%_))) + (_%lp-tl1045610543%_ + (let () (declare (not safe)) (##cdr _%e1045410536%_)))) + (_%loop1045310526%_ + _%lp-tl1045610543%_ + (cons _%lp-hd1045510540%_ _%dispatch1045710533%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch1045810546%_ + (reverse _%dispatch1045710533%_))) (if (gx#stx-pair? - _%tl1038610454%_) - (let ((_%e1039610487%_ + _%tl1044910517%_) + (let ((_%e1045910550%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1038610454%_))) - (let ((_%hd1039710491%_ + (gx#syntax-e _%tl1044910517%_))) + (let ((_%hd1046010554%_ (let () (declare (not safe)) - (##car _%e1039610487%_))) - (_%tl1039810494%_ + (##car _%e1045910550%_))) + (_%tl1046110557%_ (let () (declare (not safe)) - (##cdr _%e1039610487%_)))) - (if (gx#stx-pair? _%tl1039810494%_) - (let ((_%e1039910497%_ - (gx#syntax-e _%tl1039810494%_))) - (let ((_%hd1040010501%_ + (##cdr _%e1045910550%_)))) + (if (gx#stx-pair? _%tl1046110557%_) + (let ((_%e1046210560%_ + (gx#syntax-e _%tl1046110557%_))) + (let ((_%hd1046310564%_ (let () (declare (not safe)) - (##car _%e1039910497%_))) - (_%tl1040110504%_ + (##car _%e1046210560%_))) + (_%tl1046410567%_ (let () (declare (not safe)) - (##cdr _%e1039910497%_)))) - (if (gx#stx-pair? _%tl1040110504%_) - (let ((_%e1040210507%_ - (gx#syntax-e _%tl1040110504%_))) - (let ((_%hd1040310511%_ + (##cdr _%e1046210560%_)))) + (if (gx#stx-pair? _%tl1046410567%_) + (let ((_%e1046510570%_ + (gx#syntax-e _%tl1046410567%_))) + (let ((_%hd1046610574%_ (let () (declare (not safe)) - (##car _%e1040210507%_))) - (_%tl1040410514%_ + (##car _%e1046510570%_))) + (_%tl1046710577%_ (let () (declare (not safe)) - (##cdr _%e1040210507%_)))) - (if (gx#stx-null? _%tl1040410514%_) - ((lambda (_%L10517%_ - _%L10519%_ - _%L10520%_ - _%L10521%_ - _%L10522%_ - _%L10523%_ - _%L10524%_) + (##cdr _%e1046510570%_)))) + (if (gx#stx-null? _%tl1046710577%_) + ((lambda (_%L10580%_ + _%L10582%_ + _%L10583%_ + _%L10584%_ + _%L10585%_ + _%L10586%_ + _%L10587%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10523%_ + (cons (cons (cons _%L10586%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10520%_ '()))) + (cons '() (cons _%L10583%_ '()))) '())) - (cons (cons _%L10522%_ + (cons (cons _%L10585%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L10519%_ '())) + (cons _%L10582%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'char?) - (cons _%L10524%_ '())) + (cons _%L10587%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) (cons (cons (gx#datum->syntax '#f '##char->integer) - (cons _%L10524%_ '())) + (cons _%L10587%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L10517%_ '()))) + (cons _%L10580%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10522%_ + (cons _%L10585%_ (cons (gx#datum->syntax '#f 'ix) @@ -5820,7 +5820,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10524%_ '()))) + (cons _%L10587%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -5835,260 +5835,260 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1056110564%_ - _%g1056210567%_) - (cons _%g1056110564%_ - _%g1056210567%_)) + (foldr (lambda (_%g1062410627%_ + _%g1062510630%_) + (cons _%g1062410627%_ + _%g1062510630%_)) '() - _%L10521%_))) + _%L10584%_))) '()))) - (cons (cons _%L10523%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10523%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10523%_ '()) '())))) + (cons (cons _%L10586%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1040310511%_ - _%hd1040010501%_ - _%hd1039710491%_ - _%dispatch1039510483%_ - _%hd1038210441%_ - _%hd1037910431%_ - _%hd1037610421%_) - (_%g1036610410%_ _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1039010463%_ - _%target1038710457%_ + _%hd1046610574%_ + _%hd1046310564%_ + _%hd1046010554%_ + _%dispatch1045810546%_ + _%hd1044510504%_ + _%hd1044210494%_ + _%hd1043910484%_) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1045310526%_ + _%target1045010520%_ '())) - (_%g1036610410%_ _%g1036710414%_))))) - (_%g1036610410%_ _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1036610410%_ - _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_)))) - (_%g1036610410%_ _%g1036710414%_))))) - (_%g1036510570%_ - (list _%e10352%_ + (_%g1042910473%_ _%g1043010477%_))))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1042910473%_ + _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_)))) + (_%g1042910473%_ _%g1043010477%_))))) + (_%g1042810633%_ + (list _%e10415%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10355%_ - _%default10356%_ - _%tab10361%_ - (vector-length _%tab10361%_)))))) - (_%min-fixnum9425%_ - (lambda (_%datums10345%_) - (foldl (lambda (_%lst10348%_ _%r10350%_) - (foldl min _%r10350%_ _%lst10348%_)) + _%dispatch10418%_ + _%default10419%_ + _%tab10424%_ + (vector-length _%tab10424%_)))))) + (_%min-fixnum9488%_ + (lambda (_%datums10408%_) + (foldl (lambda (_%lst10411%_ _%r10413%_) + (foldl min _%r10413%_ _%lst10411%_)) ##max-fixnum - _%datums10345%_))) - (_%max-fixnum9426%_ - (lambda (_%datums10338%_) - (foldl (lambda (_%lst10341%_ _%r10343%_) - (foldl max _%r10343%_ _%lst10341%_)) + _%datums10408%_))) + (_%max-fixnum9489%_ + (lambda (_%datums10401%_) + (foldl (lambda (_%lst10404%_ _%r10406%_) + (foldl max _%r10406%_ _%lst10404%_)) ##min-fixnum - _%datums10338%_))) - (_%generate-fixnum-dispatch-table9427%_ - (lambda (_%indexes10320%_) - (let* ((_%ixs10323%_ (map car _%indexes10320%_)) - (_%len10326%_ (fx1+ (foldl max '0 _%ixs10323%_))) - (_%vec10329%_ (make-vector _%len10326%_ '#f))) + _%datums10401%_))) + (_%generate-fixnum-dispatch-table9490%_ + (lambda (_%indexes10383%_) + (let* ((_%ixs10386%_ (map car _%indexes10383%_)) + (_%len10389%_ (fx1+ (foldl max '0 _%ixs10386%_))) + (_%vec10392%_ (make-vector _%len10389%_ '#f))) (for-each - (lambda (_%entry10334%_ _%x10336%_) + (lambda (_%entry10397%_ _%x10399%_) (vector-set! - _%vec10329%_ - _%x10336%_ - (cdr _%entry10334%_))) - _%indexes10320%_ - _%ixs10323%_) - _%vec10329%_))) - (_%generate-fixnum-dispatch9428%_ - (lambda (_%e10054%_ - _%datums10056%_ - _%dispatch10057%_ - _%default10058%_) - (if (and (>= (_%min-fixnum9425%_ _%datums10056%_) '0) - (< (_%max-fixnum9426%_ _%datums10056%_) '1024)) - (let* ((_%indexes10060%_ - (_%datum-dispatch-index9415%_ _%datums10056%_)) - (_%tab10063%_ - (_%generate-fixnum-dispatch-table9427%_ - _%indexes10060%_)) - (_%dense?10066%_ - (andmap values (vector->list _%tab10063%_))) - (_%g1007110115%_ - (lambda (_%g1007210111%_) + _%vec10392%_ + _%x10399%_ + (cdr _%entry10397%_))) + _%indexes10383%_ + _%ixs10386%_) + _%vec10392%_))) + (_%generate-fixnum-dispatch9491%_ + (lambda (_%e10117%_ + _%datums10119%_ + _%dispatch10120%_ + _%default10121%_) + (if (and (>= (_%min-fixnum9488%_ _%datums10119%_) '0) + (< (_%max-fixnum9489%_ _%datums10119%_) '1024)) + (let* ((_%indexes10123%_ + (_%datum-dispatch-index9478%_ _%datums10119%_)) + (_%tab10126%_ + (_%generate-fixnum-dispatch-table9490%_ + _%indexes10123%_)) + (_%dense?10129%_ + (andmap values (vector->list _%tab10126%_))) + (_%g1013410178%_ + (lambda (_%g1013510174%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1007210111%_))) - (_%g1007010316%_ - (lambda (_%g1007210119%_) - (if (gx#stx-pair? _%g1007210119%_) - (let ((_%e1008010122%_ - (gx#syntax-e _%g1007210119%_))) - (let ((_%hd1008110126%_ + _%g1013510174%_))) + (_%g1013310379%_ + (lambda (_%g1013510182%_) + (if (gx#stx-pair? _%g1013510182%_) + (let ((_%e1014310185%_ + (gx#syntax-e _%g1013510182%_))) + (let ((_%hd1014410189%_ (let () (declare (not safe)) - (##car _%e1008010122%_))) - (_%tl1008210129%_ + (##car _%e1014310185%_))) + (_%tl1014510192%_ (let () (declare (not safe)) - (##cdr _%e1008010122%_)))) - (if (gx#stx-pair? _%tl1008210129%_) - (let ((_%e1008310132%_ + (##cdr _%e1014310185%_)))) + (if (gx#stx-pair? _%tl1014510192%_) + (let ((_%e1014610195%_ (gx#syntax-e - _%tl1008210129%_))) - (let ((_%hd1008410136%_ + _%tl1014510192%_))) + (let ((_%hd1014710199%_ (let () (declare (not safe)) - (##car _%e1008310132%_))) - (_%tl1008510139%_ + (##car _%e1014610195%_))) + (_%tl1014810202%_ (let () (declare (not safe)) - (##cdr _%e1008310132%_)))) + (##cdr _%e1014610195%_)))) (if (gx#stx-pair? - _%tl1008510139%_) - (let ((_%e1008610142%_ + _%tl1014810202%_) + (let ((_%e1014910205%_ (gx#syntax-e - _%tl1008510139%_))) - (let ((_%hd1008710146%_ + _%tl1014810202%_))) + (let ((_%hd1015010209%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e1008610142%_))) - (_%tl1008810149%_ - (let () (declare (not safe)) (##cdr _%e1008610142%_)))) - (if (gx#stx-pair? _%tl1008810149%_) - (let ((_%e1008910152%_ (gx#syntax-e _%tl1008810149%_))) - (let ((_%hd1009010156%_ + (##car _%e1014910205%_))) + (_%tl1015110212%_ + (let () (declare (not safe)) (##cdr _%e1014910205%_)))) + (if (gx#stx-pair? _%tl1015110212%_) + (let ((_%e1015210215%_ (gx#syntax-e _%tl1015110212%_))) + (let ((_%hd1015310219%_ (let () (declare (not safe)) - (##car _%e1008910152%_))) - (_%tl1009110159%_ + (##car _%e1015210215%_))) + (_%tl1015410222%_ (let () (declare (not safe)) - (##cdr _%e1008910152%_)))) - (if (gx#stx-pair/null? _%hd1009010156%_) - (let ((_g20963_ + (##cdr _%e1015210215%_)))) + (if (gx#stx-pair/null? _%hd1015310219%_) + (let ((_g21026_ (gx#syntax-split-splice - _%hd1009010156%_ + _%hd1015310219%_ '0))) (begin - (let ((_g20964_ + (let ((_g21027_ (let () (declare (not safe)) - (if (##values? _g20963_) - (##vector-length _g20963_) + (if (##values? _g21026_) + (##values-length _g21026_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20964_ 2))) + (##fx= _g21027_ 2))) (error "Context expects 2 values" - _g20964_))) - (let ((_%target1009210162%_ + _g21027_))) + (let ((_%target1015510225%_ (let () (declare (not safe)) - (##vector-ref _g20963_ 0))) - (_%tl1009410165%_ + (##values-ref _g21026_ 0))) + (_%tl1015710228%_ (let () (declare (not safe)) - (##vector-ref _g20963_ 1)))) - (if (gx#stx-null? _%tl1009410165%_) - (letrec ((_%loop1009510168%_ - (lambda (_%hd1009310172%_ - _%dispatch1009910175%_) + (##values-ref _g21026_ 1)))) + (if (gx#stx-null? _%tl1015710228%_) + (letrec ((_%loop1015810231%_ + (lambda (_%hd1015610235%_ + _%dispatch1016210238%_) (if (gx#stx-pair? - _%hd1009310172%_) - (let ((_%e1009610178%_ + _%hd1015610235%_) + (let ((_%e1015910241%_ (gx#syntax-e - _%hd1009310172%_))) - (let ((_%lp-hd1009710182%_ + _%hd1015610235%_))) + (let ((_%lp-hd1016010245%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e1009610178%_))) - (_%lp-tl1009810185%_ + (let () (declare (not safe)) (##car _%e1015910241%_))) + (_%lp-tl1016110248%_ (let () (declare (not safe)) - (##cdr _%e1009610178%_)))) - (_%loop1009510168%_ - _%lp-tl1009810185%_ - (cons _%lp-hd1009710182%_ _%dispatch1009910175%_)))) - (let ((_%dispatch1010010188%_ - (reverse _%dispatch1009910175%_))) - (if (gx#stx-pair? _%tl1009110159%_) - (let ((_%e1010110192%_ (gx#syntax-e _%tl1009110159%_))) - (let ((_%hd1010210196%_ + (##cdr _%e1015910241%_)))) + (_%loop1015810231%_ + _%lp-tl1016110248%_ + (cons _%lp-hd1016010245%_ _%dispatch1016210238%_)))) + (let ((_%dispatch1016310251%_ + (reverse _%dispatch1016210238%_))) + (if (gx#stx-pair? _%tl1015410222%_) + (let ((_%e1016410255%_ (gx#syntax-e _%tl1015410222%_))) + (let ((_%hd1016510259%_ (let () (declare (not safe)) - (##car _%e1010110192%_))) - (_%tl1010310199%_ + (##car _%e1016410255%_))) + (_%tl1016610262%_ (let () (declare (not safe)) - (##cdr _%e1010110192%_)))) - (if (gx#stx-pair? _%tl1010310199%_) - (let ((_%e1010410202%_ - (gx#syntax-e _%tl1010310199%_))) - (let ((_%hd1010510206%_ + (##cdr _%e1016410255%_)))) + (if (gx#stx-pair? _%tl1016610262%_) + (let ((_%e1016710265%_ + (gx#syntax-e _%tl1016610262%_))) + (let ((_%hd1016810269%_ (let () (declare (not safe)) - (##car _%e1010410202%_))) - (_%tl1010610209%_ + (##car _%e1016710265%_))) + (_%tl1016910272%_ (let () (declare (not safe)) - (##cdr _%e1010410202%_)))) - (if (gx#stx-pair? _%tl1010610209%_) - (let ((_%e1010710212%_ - (gx#syntax-e _%tl1010610209%_))) - (let ((_%hd1010810216%_ + (##cdr _%e1016710265%_)))) + (if (gx#stx-pair? _%tl1016910272%_) + (let ((_%e1017010275%_ + (gx#syntax-e _%tl1016910272%_))) + (let ((_%hd1017110279%_ (let () (declare (not safe)) - (##car _%e1010710212%_))) - (_%tl1010910219%_ + (##car _%e1017010275%_))) + (_%tl1017210282%_ (let () (declare (not safe)) - (##cdr _%e1010710212%_)))) - (if (gx#stx-null? _%tl1010910219%_) - ((lambda (_%L10222%_ - _%L10224%_ - _%L10225%_ - _%L10226%_ - _%L10227%_ - _%L10228%_ - _%L10229%_) - (let* ((_%g1026810276%_ - (lambda (_%g1026910272%_) + (##cdr _%e1017010275%_)))) + (if (gx#stx-null? _%tl1017210282%_) + ((lambda (_%L10285%_ + _%L10287%_ + _%L10288%_ + _%L10289%_ + _%L10290%_ + _%L10291%_ + _%L10292%_) + (let* ((_%g1033110339%_ + (lambda (_%g1033210335%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1026910272%_))) - (_%g1026710296%_ - (lambda (_%g1026910280%_) - ((lambda (_%L10283%_) + _%g1033210335%_))) + (_%g1033010359%_ + (lambda (_%g1033210343%_) + ((lambda (_%L10346%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons (cons _%L10228%_ + (cons (cons (cons _%L10291%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L10225%_ + (cons _%L10288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons _%L10227%_ + (cons (cons _%L10290%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L10224%_ '())) + (cons _%L10287%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6096,7 +6096,7 @@ (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10229%_ + (cons _%L10292%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6104,13 +6104,13 @@ 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f '##fx>=) - (cons _%L10229%_ + (cons _%L10292%_ (cons '0 '()))) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L10229%_ - (cons _%L10222%_ + (cons _%L10292%_ + (cons _%L10285%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -6121,18 +6121,18 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##vector-ref) - (cons _%L10227%_ (cons _%L10229%_ '()))) + (cons _%L10290%_ (cons _%L10292%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L10283%_ '()))) - (cons (cons _%L10228%_ '()) '())))) - (cons (cons _%L10228%_ '()) '())))) + (cons _%L10346%_ '()))) + (cons (cons _%L10291%_ '()) '())))) + (cons (cons _%L10291%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%g1026910280%_)))) + _%g1033210343%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1026710296%_ - (if _%dense?10066%_ + (_%g1033010359%_ + (if _%dense?10129%_ (cons (gx#datum->syntax '#f '~case-dispatch) @@ -6140,236 +6140,238 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'x) - (foldr (lambda (_%g1029910302%_ _%g1030010305%_) - (cons _%g1029910302%_ _%g1030010305%_)) + (foldr (lambda (_%g1036210365%_ _%g1036310368%_) + (cons _%g1036210365%_ _%g1036310368%_)) '() - _%L10226%_))) + _%L10289%_))) (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1030710310%_ - _%g1030810313%_) - (cons _%g1030710310%_ - _%g1030810313%_)) + (foldr (lambda (_%g1037010373%_ + _%g1037110376%_) + (cons _%g1037010373%_ + _%g1037110376%_)) '() - _%L10226%_))) - (cons (cons _%L10228%_ '()) '())))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1010810216%_ - _%hd1010510206%_ - _%hd1010210196%_ - _%dispatch1010010188%_ - _%hd1008710146%_ - _%hd1008410136%_ - _%hd1008110126%_) - (_%g1007110115%_ - _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1009510168%_ - _%target1009210162%_ + _%L10289%_))) + (cons (cons _%L10291%_ '()) '())))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1017110279%_ + _%hd1016810269%_ + _%hd1016510259%_ + _%dispatch1016310251%_ + _%hd1015010209%_ + _%hd1014710199%_ + _%hd1014410189%_) + (_%g1013410178%_ + _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1015810231%_ + _%target1015510225%_ '())) - (_%g1007110115%_ _%g1007210119%_))))) - (_%g1007110115%_ _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1007110115%_ - _%g1007210119%_)))) - (_%g1007110115%_ _%g1007210119%_))))) - (_%g1007010316%_ - (list _%e10054%_ + (_%g1013410178%_ _%g1013510182%_))))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1013410178%_ + _%g1013510182%_)))) + (_%g1013410178%_ _%g1013510182%_))))) + (_%g1013310379%_ + (list _%e10117%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch10057%_ - _%default10058%_ - _%tab10063%_ - (vector-length _%tab10063%_)))) - (_%generate-fixnum-dispatch/hash9429%_ - _%e10054%_ - _%datums10056%_ - _%dispatch10057%_ - _%default10058%_)))) - (_%generate-fixnum-dispatch/hash9429%_ - (lambda (_%e9832%_ - _%datums9834%_ - _%dispatch9835%_ - _%default9836%_) - (let* ((_%indexes9838%_ - (_%datum-dispatch-index9415%_ _%datums9834%_)) - (_%tab9841%_ - (_%generate-hash-dispatch-table9417%_ - _%indexes9838%_ + _%dispatch10120%_ + _%default10121%_ + _%tab10126%_ + (vector-length _%tab10126%_)))) + (_%generate-fixnum-dispatch/hash9492%_ + _%e10117%_ + _%datums10119%_ + _%dispatch10120%_ + _%default10121%_)))) + (_%generate-fixnum-dispatch/hash9492%_ + (lambda (_%e9895%_ + _%datums9897%_ + _%dispatch9898%_ + _%default9899%_) + (let* ((_%indexes9901%_ + (_%datum-dispatch-index9478%_ _%datums9897%_)) + (_%tab9904%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes9901%_ values)) - (_%g98469890%_ - (lambda (_%g98479886%_) + (_%g99099953%_ + (lambda (_%g99109949%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g98479886%_))) - (_%g984510050%_ - (lambda (_%g98479894%_) - (if (gx#stx-pair? _%g98479894%_) - (let ((_%e98559897%_ - (gx#syntax-e _%g98479894%_))) - (let ((_%hd98569901%_ + _%g99109949%_))) + (_%g990810113%_ + (lambda (_%g99109957%_) + (if (gx#stx-pair? _%g99109957%_) + (let ((_%e99189960%_ + (gx#syntax-e _%g99109957%_))) + (let ((_%hd99199964%_ (let () (declare (not safe)) - (##car _%e98559897%_))) - (_%tl98579904%_ + (##car _%e99189960%_))) + (_%tl99209967%_ (let () (declare (not safe)) - (##cdr _%e98559897%_)))) - (if (gx#stx-pair? _%tl98579904%_) - (let ((_%e98589907%_ - (gx#syntax-e _%tl98579904%_))) - (let ((_%hd98599911%_ + (##cdr _%e99189960%_)))) + (if (gx#stx-pair? _%tl99209967%_) + (let ((_%e99219970%_ + (gx#syntax-e _%tl99209967%_))) + (let ((_%hd99229974%_ (let () (declare (not safe)) - (##car _%e98589907%_))) - (_%tl98609914%_ + (##car _%e99219970%_))) + (_%tl99239977%_ (let () (declare (not safe)) - (##cdr _%e98589907%_)))) - (if (gx#stx-pair? _%tl98609914%_) - (let ((_%e98619917%_ + (##cdr _%e99219970%_)))) + (if (gx#stx-pair? _%tl99239977%_) + (let ((_%e99249980%_ (gx#syntax-e - _%tl98609914%_))) - (let ((_%hd98629921%_ + _%tl99239977%_))) + (let ((_%hd99259984%_ (let () (declare (not safe)) - (##car _%e98619917%_))) - (_%tl98639924%_ + (##car _%e99249980%_))) + (_%tl99269987%_ (let () (declare (not safe)) - (##cdr _%e98619917%_)))) + (##cdr _%e99249980%_)))) (if (gx#stx-pair? - _%tl98639924%_) - (let ((_%e98649927%_ + _%tl99269987%_) + (let ((_%e99279990%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98639924%_))) - (let ((_%hd98659931%_ - (let () (declare (not safe)) (##car _%e98649927%_))) - (_%tl98669934%_ + (gx#syntax-e _%tl99269987%_))) + (let ((_%hd99289994%_ + (let () (declare (not safe)) (##car _%e99279990%_))) + (_%tl99299997%_ (let () (declare (not safe)) - (##cdr _%e98649927%_)))) - (if (gx#stx-pair/null? _%hd98659931%_) - (let ((_g20965_ - (gx#syntax-split-splice _%hd98659931%_ '0))) + (##cdr _%e99279990%_)))) + (if (gx#stx-pair/null? _%hd99289994%_) + (let ((_g21028_ + (gx#syntax-split-splice _%hd99289994%_ '0))) (begin - (let ((_g20966_ + (let ((_g21029_ (let () (declare (not safe)) - (if (##values? _g20965_) - (##vector-length _g20965_) + (if (##values? _g21028_) + (##values-length _g21028_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20966_ 2))) + (##fx= _g21029_ 2))) (error "Context expects 2 values" - _g20966_))) - (let ((_%target98679937%_ + _g21029_))) + (let ((_%target993010000%_ (let () (declare (not safe)) - (##vector-ref _g20965_ 0))) - (_%tl98699940%_ + (##values-ref _g21028_ 0))) + (_%tl993210003%_ (let () (declare (not safe)) - (##vector-ref _g20965_ 1)))) - (if (gx#stx-null? _%tl98699940%_) - (letrec ((_%loop98709943%_ - (lambda (_%hd98689947%_ - _%dispatch98749950%_) + (##values-ref _g21028_ 1)))) + (if (gx#stx-null? _%tl993210003%_) + (letrec ((_%loop993310006%_ + (lambda (_%hd993110010%_ + _%dispatch993710013%_) (if (gx#stx-pair? - _%hd98689947%_) - (let ((_%e98719953%_ + _%hd993110010%_) + (let ((_%e993410016%_ (gx#syntax-e - _%hd98689947%_))) - (let ((_%lp-hd98729957%_ + _%hd993110010%_))) + (let ((_%lp-hd993510020%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e98719953%_))) - (_%lp-tl98739960%_ - (let () (declare (not safe)) (##cdr _%e98719953%_)))) - (_%loop98709943%_ - _%lp-tl98739960%_ - (cons _%lp-hd98729957%_ _%dispatch98749950%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%dispatch98759963%_ - (reverse _%dispatch98749950%_))) + (##car _%e993410016%_))) + (_%lp-tl993610023%_ + (let () (declare (not safe)) (##cdr _%e993410016%_)))) + (_%loop993310006%_ + _%lp-tl993610023%_ + (cons _%lp-hd993510020%_ _%dispatch993710013%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (let ((_%dispatch993810026%_ + (reverse _%dispatch993710013%_))) (if (gx#stx-pair? - _%tl98669934%_) - (let ((_%e98769967%_ + _%tl99299997%_) + (let ((_%e993910030%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl98669934%_))) - (let ((_%hd98779971%_ - (let () (declare (not safe)) (##car _%e98769967%_))) - (_%tl98789974%_ + (gx#syntax-e _%tl99299997%_))) + (let ((_%hd994010034%_ + (let () + (declare (not safe)) + (##car _%e993910030%_))) + (_%tl994110037%_ (let () (declare (not safe)) - (##cdr _%e98769967%_)))) - (if (gx#stx-pair? _%tl98789974%_) - (let ((_%e98799977%_ (gx#syntax-e _%tl98789974%_))) - (let ((_%hd98809981%_ + (##cdr _%e993910030%_)))) + (if (gx#stx-pair? _%tl994110037%_) + (let ((_%e994210040%_ (gx#syntax-e _%tl994110037%_))) + (let ((_%hd994310044%_ (let () (declare (not safe)) - (##car _%e98799977%_))) - (_%tl98819984%_ + (##car _%e994210040%_))) + (_%tl994410047%_ (let () (declare (not safe)) - (##cdr _%e98799977%_)))) - (if (gx#stx-pair? _%tl98819984%_) - (let ((_%e98829987%_ - (gx#syntax-e _%tl98819984%_))) - (let ((_%hd98839991%_ + (##cdr _%e994210040%_)))) + (if (gx#stx-pair? _%tl994410047%_) + (let ((_%e994510050%_ + (gx#syntax-e _%tl994410047%_))) + (let ((_%hd994610054%_ (let () (declare (not safe)) - (##car _%e98829987%_))) - (_%tl98849994%_ + (##car _%e994510050%_))) + (_%tl994710057%_ (let () (declare (not safe)) - (##cdr _%e98829987%_)))) - (if (gx#stx-null? _%tl98849994%_) - ((lambda (_%L9997%_ - _%L9999%_ - _%L10000%_ - _%L10001%_ - _%L10002%_ - _%L10003%_ - _%L10004%_) + (##cdr _%e994510050%_)))) + (if (gx#stx-null? _%tl994710057%_) + ((lambda (_%L10060%_ + _%L10062%_ + _%L10063%_ + _%L10064%_ + _%L10065%_ + _%L10066%_ + _%L10067%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L10003%_ + (cons (cons (cons _%L10066%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'lambda) - (cons '() (cons _%L10000%_ '()))) + (cons '() (cons _%L10063%_ '()))) '())) - (cons (cons _%L10002%_ + (cons (cons _%L10065%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L9999%_ '())) + (cons _%L10062%_ '())) '())) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'fixnum?) - (cons _%L10004%_ '())) + (cons _%L10067%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) - (cons _%L10004%_ (cons _%L9997%_ '()))) + (cons _%L10067%_ (cons _%L10060%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L10002%_ + (cons _%L10065%_ (cons (gx#datum->syntax '#f 'ix) @@ -6391,7 +6393,7 @@ '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L10004%_ '()))) + (cons _%L10067%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -6406,257 +6408,257 @@ '())) (cons (cons (gx#datum->syntax '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g1004110044%_ - _%g1004210047%_) - (cons _%g1004110044%_ - _%g1004210047%_)) + (foldr (lambda (_%g1010410107%_ + _%g1010510110%_) + (cons _%g1010410107%_ + _%g1010510110%_)) '() - _%L10001%_))) + _%L10064%_))) '()))) - (cons (cons _%L10003%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10003%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L10003%_ '()) '())))) + (cons (cons _%L10066%_ '()) '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd98839991%_ - _%hd98809981%_ - _%hd98779971%_ - _%dispatch98759963%_ - _%hd98629921%_ - _%hd98599911%_ - _%hd98569901%_) - (_%g98469890%_ _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop98709943%_ - _%target98679937%_ + _%hd994610054%_ + _%hd994310044%_ + _%hd994010034%_ + _%dispatch993810026%_ + _%hd99259984%_ + _%hd99229974%_ + _%hd99199964%_) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop993310006%_ + _%target993010000%_ '())) - (_%g98469890%_ _%g98479894%_))))) - (_%g98469890%_ _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g98469890%_ - _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_)))) - (_%g98469890%_ _%g98479894%_))))) - (_%g984510050%_ - (list _%e9832%_ + (_%g99099953%_ _%g99109957%_))))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g99099953%_ + _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_)))) + (_%g99099953%_ _%g99109957%_))))) + (_%g990810113%_ + (list _%e9895%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9835%_ - _%default9836%_ - _%tab9841%_ - (vector-length _%tab9841%_)))))) - (_%generate-generic-dispatch9430%_ - (lambda (_%e9568%_ - _%datums9570%_ - _%dispatch9571%_ - _%default9572%_) - (let ((_g20967_ - (if (_%eq-datums?9413%_ _%datums9570%_) + _%dispatch9898%_ + _%default9899%_ + _%tab9904%_ + (vector-length _%tab9904%_)))))) + (_%generate-generic-dispatch9493%_ + (lambda (_%e9631%_ + _%datums9633%_ + _%dispatch9634%_ + _%default9635%_) + (let ((_g21030_ + (if (_%eq-datums?9476%_ _%datums9633%_) (values eq?-hash 'eq?-hash 'eq?) (values equal?-hash 'equal?-hash 'equal?)))) (begin #!void - (let ((_%hash-e9574%_ + (let ((_%hash-e9637%_ (let () (declare (not safe)) - (##vector-ref _g20967_ 0))) - (_%hashf9576%_ + (##values-ref _g21030_ 0))) + (_%hashf9639%_ (let () (declare (not safe)) - (##vector-ref _g20967_ 1))) - (_%eqf9577%_ + (##values-ref _g21030_ 1))) + (_%eqf9640%_ (let () (declare (not safe)) - (##vector-ref _g20967_ 2)))) - (let* ((_%indexes9579%_ - (_%datum-dispatch-index9415%_ - _%datums9570%_)) - (_%tab9582%_ - (_%generate-hash-dispatch-table9417%_ - _%indexes9579%_ - _%hash-e9574%_)) - (_%g95879639%_ - (lambda (_%g95889635%_) + (##values-ref _g21030_ 2)))) + (let* ((_%indexes9642%_ + (_%datum-dispatch-index9478%_ + _%datums9633%_)) + (_%tab9645%_ + (_%generate-hash-dispatch-table9480%_ + _%indexes9642%_ + _%hash-e9637%_)) + (_%g96509702%_ + (lambda (_%g96519698%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g95889635%_))) - (_%g95869828%_ - (lambda (_%g95889643%_) - (if (gx#stx-pair? _%g95889643%_) - (let ((_%e95989646%_ - (gx#syntax-e _%g95889643%_))) - (let ((_%hd95999650%_ + _%g96519698%_))) + (_%g96499891%_ + (lambda (_%g96519706%_) + (if (gx#stx-pair? _%g96519706%_) + (let ((_%e96619709%_ + (gx#syntax-e _%g96519706%_))) + (let ((_%hd96629713%_ (let () (declare (not safe)) - (##car _%e95989646%_))) - (_%tl96009653%_ + (##car _%e96619709%_))) + (_%tl96639716%_ (let () (declare (not safe)) - (##cdr _%e95989646%_)))) - (if (gx#stx-pair? _%tl96009653%_) - (let ((_%e96019656%_ + (##cdr _%e96619709%_)))) + (if (gx#stx-pair? _%tl96639716%_) + (let ((_%e96649719%_ (gx#syntax-e - _%tl96009653%_))) - (let ((_%hd96029660%_ + _%tl96639716%_))) + (let ((_%hd96659723%_ (let () (declare (not safe)) - (##car _%e96019656%_))) - (_%tl96039663%_ + (##car _%e96649719%_))) + (_%tl96669726%_ (let () (declare (not safe)) - (##cdr _%e96019656%_)))) + (##cdr _%e96649719%_)))) (if (gx#stx-pair? - _%tl96039663%_) - (let ((_%e96049666%_ + _%tl96669726%_) + (let ((_%e96679729%_ (gx#syntax-e - _%tl96039663%_))) - (let ((_%hd96059670%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e96049666%_))) - (_%tl96069673%_ - (let () (declare (not safe)) (##cdr _%e96049666%_)))) - (if (gx#stx-pair? _%tl96069673%_) - (let ((_%e96079676%_ (gx#syntax-e _%tl96069673%_))) - (let ((_%hd96089680%_ + _%tl96669726%_))) + (let ((_%hd96689733%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96679729%_))) + (_%tl96699736%_ + (let () (declare (not safe)) (##cdr _%e96679729%_)))) + (if (gx#stx-pair? _%tl96699736%_) + (let ((_%e96709739%_ (gx#syntax-e _%tl96699736%_))) + (let ((_%hd96719743%_ (let () (declare (not safe)) - (##car _%e96079676%_))) - (_%tl96099683%_ + (##car _%e96709739%_))) + (_%tl96729746%_ (let () (declare (not safe)) - (##cdr _%e96079676%_)))) - (if (gx#stx-pair/null? _%hd96089680%_) - (let ((_g20968_ + (##cdr _%e96709739%_)))) + (if (gx#stx-pair/null? _%hd96719743%_) + (let ((_g21031_ (gx#syntax-split-splice - _%hd96089680%_ + _%hd96719743%_ '0))) (begin - (let ((_g20969_ + (let ((_g21032_ (let () (declare (not safe)) - (if (##values? _g20968_) - (##vector-length _g20968_) + (if (##values? _g21031_) + (##values-length _g21031_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20969_ 2))) + (##fx= _g21032_ 2))) (error "Context expects 2 values" - _g20969_))) - (let ((_%target96109686%_ + _g21032_))) + (let ((_%target96739749%_ (let () (declare (not safe)) - (##vector-ref _g20968_ 0))) - (_%tl96129689%_ + (##values-ref _g21031_ 0))) + (_%tl96759752%_ (let () (declare (not safe)) - (##vector-ref _g20968_ 1)))) - (if (gx#stx-null? _%tl96129689%_) - (letrec ((_%loop96139692%_ - (lambda (_%hd96119696%_ - _%dispatch96179699%_) + (##values-ref _g21031_ 1)))) + (if (gx#stx-null? _%tl96759752%_) + (letrec ((_%loop96769755%_ + (lambda (_%hd96749759%_ + _%dispatch96809762%_) (if (gx#stx-pair? - _%hd96119696%_) - (let ((_%e96149702%_ + _%hd96749759%_) + (let ((_%e96779765%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd96119696%_))) - (let ((_%lp-hd96159706%_ - (let () (declare (not safe)) (##car _%e96149702%_))) - (_%lp-tl96169709%_ + (gx#syntax-e _%hd96749759%_))) + (let ((_%lp-hd96789769%_ + (let () (declare (not safe)) (##car _%e96779765%_))) + (_%lp-tl96799772%_ (let () (declare (not safe)) - (##cdr _%e96149702%_)))) - (_%loop96139692%_ - _%lp-tl96169709%_ - (cons _%lp-hd96159706%_ _%dispatch96179699%_)))) - (let ((_%dispatch96189712%_ (reverse _%dispatch96179699%_))) - (if (gx#stx-pair? _%tl96099683%_) - (let ((_%e96199716%_ (gx#syntax-e _%tl96099683%_))) - (let ((_%hd96209720%_ + (##cdr _%e96779765%_)))) + (_%loop96769755%_ + _%lp-tl96799772%_ + (cons _%lp-hd96789769%_ _%dispatch96809762%_)))) + (let ((_%dispatch96819775%_ (reverse _%dispatch96809762%_))) + (if (gx#stx-pair? _%tl96729746%_) + (let ((_%e96829779%_ (gx#syntax-e _%tl96729746%_))) + (let ((_%hd96839783%_ (let () (declare (not safe)) - (##car _%e96199716%_))) - (_%tl96219723%_ + (##car _%e96829779%_))) + (_%tl96849786%_ (let () (declare (not safe)) - (##cdr _%e96199716%_)))) - (if (gx#stx-pair? _%tl96219723%_) - (let ((_%e96229726%_ - (gx#syntax-e _%tl96219723%_))) - (let ((_%hd96239730%_ + (##cdr _%e96829779%_)))) + (if (gx#stx-pair? _%tl96849786%_) + (let ((_%e96859789%_ + (gx#syntax-e _%tl96849786%_))) + (let ((_%hd96869793%_ (let () (declare (not safe)) - (##car _%e96229726%_))) - (_%tl96249733%_ + (##car _%e96859789%_))) + (_%tl96879796%_ (let () (declare (not safe)) - (##cdr _%e96229726%_)))) - (if (gx#stx-pair? _%tl96249733%_) - (let ((_%e96259736%_ - (gx#syntax-e _%tl96249733%_))) - (let ((_%hd96269740%_ + (##cdr _%e96859789%_)))) + (if (gx#stx-pair? _%tl96879796%_) + (let ((_%e96889799%_ + (gx#syntax-e _%tl96879796%_))) + (let ((_%hd96899803%_ (let () (declare (not safe)) - (##car _%e96259736%_))) - (_%tl96279743%_ + (##car _%e96889799%_))) + (_%tl96909806%_ (let () (declare (not safe)) - (##cdr _%e96259736%_)))) - (if (gx#stx-pair? _%tl96279743%_) - (let ((_%e96289746%_ + (##cdr _%e96889799%_)))) + (if (gx#stx-pair? _%tl96909806%_) + (let ((_%e96919809%_ (gx#syntax-e - _%tl96279743%_))) - (let ((_%hd96299750%_ + _%tl96909806%_))) + (let ((_%hd96929813%_ (let () (declare (not safe)) - (##car _%e96289746%_))) - (_%tl96309753%_ + (##car _%e96919809%_))) + (_%tl96939816%_ (let () (declare (not safe)) - (##cdr _%e96289746%_)))) + (##cdr _%e96919809%_)))) (if (gx#stx-pair? - _%tl96309753%_) - (let ((_%e96319756%_ + _%tl96939816%_) + (let ((_%e96949819%_ (gx#syntax-e - _%tl96309753%_))) - (let ((_%hd96329760%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##car _%e96319756%_))) - (_%tl96339763%_ - (let () (declare (not safe)) (##cdr _%e96319756%_)))) - (if (gx#stx-null? _%tl96339763%_) - ((lambda (_%L9766%_ - _%L9768%_ - _%L9769%_ - _%L9770%_ - _%L9771%_ - _%L9772%_ - _%L9773%_ - _%L9774%_ - _%L9775%_) + _%tl96939816%_))) + (let ((_%hd96959823%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (let () (declare (not safe)) (##car _%e96949819%_))) + (_%tl96969826%_ + (let () (declare (not safe)) (##cdr _%e96949819%_)))) + (if (gx#stx-null? _%tl96969826%_) + ((lambda (_%L9829%_ + _%L9831%_ + _%L9832%_ + _%L9833%_ + _%L9834%_ + _%L9835%_ + _%L9836%_ + _%L9837%_ + _%L9838%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L9774%_ + (cons (cons (cons _%L9837%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L9771%_ '()))) + (cons _%L9834%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9773%_ + (cons (cons _%L9836%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L9770%_ '())) + (cons _%L9833%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -6665,19 +6667,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'h) - (cons (cons _%L9768%_ (cons _%L9775%_ '())) '())) + (cons (cons _%L9831%_ (cons _%L9838%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'ix) (cons (cons (gx#datum->syntax '#f '##fxmodulo) (cons (gx#datum->syntax '#f 'h) - (cons _%L9769%_ '()))) + (cons _%L9832%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f '##vector-ref) - (cons _%L9773%_ + (cons _%L9836%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -6689,13 +6691,13 @@ (cons (cons (gx#datum->syntax '#f 'if) (cons (gx#datum->syntax '#f 'q) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L9766%_ + (cons (cons _%L9829%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##car) (cons (gx#datum->syntax '#f 'q) '())) - (cons _%L9775%_ '()))) + (cons _%L9838%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< @@ -6712,277 +6714,277 @@ '#f '~case-dispatch) (cons (gx#datum->syntax '#f 'x) - (foldr (lambda (_%g98199822%_ + (foldr (lambda (_%g98829885%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g98209825%_) - (cons _%g98199822%_ _%g98209825%_)) + _%g98839888%_) + (cons _%g98829885%_ _%g98839888%_)) '() - _%L9772%_))) + _%L9835%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons (cons _%L9774%_ '()) '())))) + (cons (cons _%L9837%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L9774%_ '()) '())))) + (cons (cons _%L9837%_ '()) '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd96329760%_ - _%hd96299750%_ - _%hd96269740%_ - _%hd96239730%_ - _%hd96209720%_ - _%dispatch96189712%_ - _%hd96059670%_ - _%hd96029660%_ - _%hd95999650%_) - (_%g95879639%_ _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95879639%_ - _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop96139692%_ - _%target96109686%_ + _%hd96959823%_ + _%hd96929813%_ + _%hd96899803%_ + _%hd96869793%_ + _%hd96839783%_ + _%dispatch96819775%_ + _%hd96689733%_ + _%hd96659723%_ + _%hd96629713%_) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96509702%_ + _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop96769755%_ + _%target96739749%_ '())) - (_%g95879639%_ _%g95889643%_))))) - (_%g95879639%_ _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g95879639%_ - _%g95889643%_)))) - (_%g95879639%_ _%g95889643%_))))) - (_%g95869828%_ - (list _%e9568%_ + (_%g96509702%_ _%g96519706%_))))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g96509702%_ + _%g96519706%_)))) + (_%g96509702%_ _%g96519706%_))))) + (_%g96499891%_ + (list _%e9631%_ (gx#genident 'default) (gx#genident 'table) - _%dispatch9571%_ - _%default9572%_ - _%tab9582%_ - (vector-length _%tab9582%_) - _%hashf9576%_ - _%eqf9577%_))))))))) - (let* ((_%g94329456%_ - (lambda (_%g94339452%_) + _%dispatch9634%_ + _%default9635%_ + _%tab9645%_ + (vector-length _%tab9645%_) + _%hashf9639%_ + _%eqf9640%_))))))))) + (let* ((_%g94959519%_ + (lambda (_%g94969515%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g94339452%_))) - (_%g94319564%_ - (lambda (_%g94339460%_) - (if (gx#stx-pair? _%g94339460%_) - (let ((_%e94369463%_ (gx#syntax-e _%g94339460%_))) - (let ((_%hd94379467%_ + _%g94969515%_))) + (_%g94949627%_ + (lambda (_%g94969523%_) + (if (gx#stx-pair? _%g94969523%_) + (let ((_%e94999526%_ (gx#syntax-e _%g94969523%_))) + (let ((_%hd95009530%_ (let () (declare (not safe)) - (##car _%e94369463%_))) - (_%tl94389470%_ + (##car _%e94999526%_))) + (_%tl95019533%_ (let () (declare (not safe)) - (##cdr _%e94369463%_)))) - (if (gx#stx-pair? _%tl94389470%_) - (let ((_%e94399473%_ - (gx#syntax-e _%tl94389470%_))) - (let ((_%hd94409477%_ + (##cdr _%e94999526%_)))) + (if (gx#stx-pair? _%tl95019533%_) + (let ((_%e95029536%_ + (gx#syntax-e _%tl95019533%_))) + (let ((_%hd95039540%_ (let () (declare (not safe)) - (##car _%e94399473%_))) - (_%tl94419480%_ + (##car _%e95029536%_))) + (_%tl95049543%_ (let () (declare (not safe)) - (##cdr _%e94399473%_)))) - (if (gx#stx-pair/null? _%tl94419480%_) - (let ((_g20970_ + (##cdr _%e95029536%_)))) + (if (gx#stx-pair/null? _%tl95049543%_) + (let ((_g21033_ (gx#syntax-split-splice - _%tl94419480%_ + _%tl95049543%_ '0))) (begin - (let ((_g20971_ + (let ((_g21034_ (let () (declare (not safe)) - (if (##values? _g20970_) - (##vector-length - _g20970_) + (if (##values? _g21033_) + (##values-length + _g21033_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20971_ 2))) + (##fx= _g21034_ 2))) (error "Context expects 2 values" - _g20971_))) - (let ((_%target94429483%_ + _g21034_))) + (let ((_%target95059546%_ (let () (declare (not safe)) - (##vector-ref - _g20970_ + (##values-ref + _g21033_ 0))) - (_%tl94449486%_ + (_%tl95079549%_ (let () (declare (not safe)) - (##vector-ref - _g20970_ + (##values-ref + _g21033_ 1)))) - (if (gx#stx-null? _%tl94449486%_) - (letrec ((_%loop94459489%_ - (lambda (_%hd94439493%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%clause94499496%_) - (if (gx#stx-pair? _%hd94439493%_) - (let ((_%e94469499%_ (gx#syntax-e _%hd94439493%_))) - (let ((_%lp-hd94479503%_ + (if (gx#stx-null? _%tl95079549%_) + (letrec ((_%loop95089552%_ + (lambda (_%hd95069556%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%clause95129559%_) + (if (gx#stx-pair? _%hd95069556%_) + (let ((_%e95099562%_ (gx#syntax-e _%hd95069556%_))) + (let ((_%lp-hd95109566%_ (let () (declare (not safe)) - (##car _%e94469499%_))) - (_%lp-tl94489506%_ + (##car _%e95099562%_))) + (_%lp-tl95119569%_ (let () (declare (not safe)) - (##cdr _%e94469499%_)))) - (_%loop94459489%_ - _%lp-tl94489506%_ - (cons _%lp-hd94479503%_ _%clause94499496%_)))) - (let ((_%clause94509509%_ - (reverse _%clause94499496%_))) - ((lambda (_%L9513%_ _%L9515%_) - (let ((_g20972_ - (_%parse-clauses9406%_ - _%L9515%_ - (foldr (lambda (_%g95339536%_ - _%g95349539%_) - (cons _%g95339536%_ - _%g95349539%_)) + (##cdr _%e95099562%_)))) + (_%loop95089552%_ + _%lp-tl95119569%_ + (cons _%lp-hd95109566%_ _%clause95129559%_)))) + (let ((_%clause95139572%_ + (reverse _%clause95129559%_))) + ((lambda (_%L9576%_ _%L9578%_) + (let ((_g21035_ + (_%parse-clauses9469%_ + _%L9578%_ + (foldr (lambda (_%g95969599%_ + _%g95979602%_) + (cons _%g95969599%_ + _%g95979602%_)) '() - _%L9513%_)))) + _%L9576%_)))) (begin - (let ((_g20973_ + (let ((_g21036_ (let () (declare (not safe)) - (if (##values? _g20972_) - (##vector-length _g20972_) + (if (##values? _g21035_) + (##values-length _g21035_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20973_ 3))) + (##fx= _g21036_ 3))) (error "Context expects 3 values" - _g20973_))) - (let ((_%datums9542%_ + _g21036_))) + (let ((_%datums9605%_ (let () (declare (not safe)) - (##vector-ref _g20972_ 0))) - (_%dispatch9544%_ + (##values-ref _g21035_ 0))) + (_%dispatch9607%_ (let () (declare (not safe)) - (##vector-ref _g20972_ 1))) - (_%default9545%_ + (##values-ref _g21035_ 1))) + (_%default9608%_ (let () (declare (not safe)) - (##vector-ref _g20972_ 2)))) - (let ((_%datum-count9547%_ - (_%count-datums9409%_ - _%datums9542%_))) - (if (< _%datum-count9547%_ '6) - (_%generate-simple-case9414%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_) - (if (_%char-datums?9411%_ - _%datums9542%_) - (_%generate-char-dispatch9423%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_) - (if (_%fixnum-datums?9412%_ - _%datums9542%_) - (_%generate-fixnum-dispatch9428%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_) - (if (< _%datum-count9547%_ + (##values-ref _g21035_ 2)))) + (let ((_%datum-count9610%_ + (_%count-datums9472%_ + _%datums9605%_))) + (if (< _%datum-count9610%_ '6) + (_%generate-simple-case9477%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%char-datums?9474%_ + _%datums9605%_) + (_%generate-char-dispatch9486%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%fixnum-datums?9475%_ + _%datums9605%_) + (_%generate-fixnum-dispatch9491%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (< _%datum-count9610%_ '12) - (_%generate-simple-case9414%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_) - (if (_%symbolic-datums?9410%_ - _%datums9542%_) - (_%generate-symbolic-dispatch9418%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_) - (_%generate-generic-dispatch9430%_ - _%L9515%_ - _%datums9542%_ - _%dispatch9544%_ - _%default9545%_))))))))))) - _%clause94509509%_ - _%hd94409477%_)))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop94459489%_ - _%target94429483%_ + (_%generate-simple-case9477%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (if (_%symbolic-datums?9473%_ + _%datums9605%_) + (_%generate-symbolic-dispatch9481%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_) + (_%generate-generic-dispatch9493%_ + _%L9578%_ + _%datums9605%_ + _%dispatch9607%_ + _%default9608%_))))))))))) + _%clause95139572%_ + _%hd95039540%_)))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop95089552%_ + _%target95059546%_ '())) - (_%g94329456%_ - _%g94339460%_))))) - (_%g94329456%_ _%g94339460%_)))) - (_%g94329456%_ _%g94339460%_)))) - (_%g94329456%_ _%g94339460%_))))) - (_%g94319564%_ _%stx9403%_))))) + (_%g94959519%_ + _%g94969523%_))))) + (_%g94959519%_ _%g94969523%_)))) + (_%g94959519%_ _%g94969523%_)))) + (_%g94959519%_ _%g94969523%_))))) + (_%g94949627%_ _%stx9466%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-test| - (lambda (_%stx12466%_) - (let* ((_%g1246912487%_ - (lambda (_%g1247012483%_) + (lambda (_%stx12529%_) + (let* ((_%g1253212550%_ + (lambda (_%g1253312546%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1247012483%_))) - (_%g1246812559%_ - (lambda (_%g1247012491%_) - (if (gx#stx-pair? _%g1247012491%_) - (let ((_%e1247312494%_ (gx#syntax-e _%g1247012491%_))) - (let ((_%hd1247412498%_ + _%g1253312546%_))) + (_%g1253112622%_ + (lambda (_%g1253312554%_) + (if (gx#stx-pair? _%g1253312554%_) + (let ((_%e1253612557%_ (gx#syntax-e _%g1253312554%_))) + (let ((_%hd1253712561%_ (let () (declare (not safe)) - (##car _%e1247312494%_))) - (_%tl1247512501%_ + (##car _%e1253612557%_))) + (_%tl1253812564%_ (let () (declare (not safe)) - (##cdr _%e1247312494%_)))) - (if (gx#stx-pair? _%tl1247512501%_) - (let ((_%e1247612504%_ - (gx#syntax-e _%tl1247512501%_))) - (let ((_%hd1247712508%_ + (##cdr _%e1253612557%_)))) + (if (gx#stx-pair? _%tl1253812564%_) + (let ((_%e1253912567%_ + (gx#syntax-e _%tl1253812564%_))) + (let ((_%hd1254012571%_ (let () (declare (not safe)) - (##car _%e1247612504%_))) - (_%tl1247812511%_ + (##car _%e1253912567%_))) + (_%tl1254112574%_ (let () (declare (not safe)) - (##cdr _%e1247612504%_)))) - (if (gx#stx-pair? _%tl1247812511%_) - (let ((_%e1247912514%_ - (gx#syntax-e _%tl1247812511%_))) - (let ((_%hd1248012518%_ + (##cdr _%e1253912567%_)))) + (if (gx#stx-pair? _%tl1254112574%_) + (let ((_%e1254212577%_ + (gx#syntax-e _%tl1254112574%_))) + (let ((_%hd1254312581%_ (let () (declare (not safe)) - (##car _%e1247912514%_))) - (_%tl1248112521%_ + (##car _%e1254212577%_))) + (_%tl1254412584%_ (let () (declare (not safe)) - (##cdr _%e1247912514%_)))) - (if (gx#stx-null? _%tl1248112521%_) - ((lambda (_%L12524%_ _%L12526%_) - (let ((_%datum-e12542%_ - (gx#stx-e _%L12526%_))) - (if (or (symbol? _%datum-e12542%_) + (##cdr _%e1254212577%_)))) + (if (gx#stx-null? _%tl1254412584%_) + ((lambda (_%L12587%_ _%L12589%_) + (let ((_%datum-e12605%_ + (gx#stx-e _%L12589%_))) + (if (or (symbol? _%datum-e12605%_) (keyword? - _%datum-e12542%_) + _%datum-e12605%_) (immediate? - _%datum-e12542%_)) + _%datum-e12605%_)) (cons (gx#datum->syntax '#f 'eq?) @@ -6990,198 +6992,198 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L12526%_ '())) - (cons _%L12524%_ '()))) - (if (number? _%datum-e12542%_) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))) + (if (number? _%datum-e12605%_) (cons (gx#datum->syntax '#f 'eqv?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12526%_ '())) - (cons _%L12524%_ '()))) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))) (cons (gx#datum->syntax '#f 'equal?) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L12526%_ '())) - (cons _%L12524%_ '()))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1248012518%_ - _%hd1247712508%_) - (_%g1246912487%_ - _%g1247012491%_)))) - (_%g1246912487%_ _%g1247012491%_)))) - (_%g1246912487%_ _%g1247012491%_)))) - (_%g1246912487%_ _%g1247012491%_))))) - (_%g1246812559%_ _%stx12466%_)))) + (cons _%L12589%_ '())) + (cons _%L12587%_ '()))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%hd1254312581%_ + _%hd1254012571%_) + (_%g1253212550%_ + _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_)))) + (_%g1253212550%_ _%g1253312554%_))))) + (_%g1253112622%_ _%stx12529%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch| - (lambda (_%$stx12563%_) - (let* ((_%g1256712591%_ - (lambda (_%g1256812587%_) + (lambda (_%$stx12626%_) + (let* ((_%g1263012654%_ + (lambda (_%g1263112650%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1256812587%_))) - (_%g1256612676%_ - (lambda (_%g1256812595%_) - (if (gx#stx-pair? _%g1256812595%_) - (let ((_%e1257112598%_ (gx#syntax-e _%g1256812595%_))) - (let ((_%hd1257212602%_ + _%g1263112650%_))) + (_%g1262912739%_ + (lambda (_%g1263112658%_) + (if (gx#stx-pair? _%g1263112658%_) + (let ((_%e1263412661%_ (gx#syntax-e _%g1263112658%_))) + (let ((_%hd1263512665%_ (let () (declare (not safe)) - (##car _%e1257112598%_))) - (_%tl1257312605%_ + (##car _%e1263412661%_))) + (_%tl1263612668%_ (let () (declare (not safe)) - (##cdr _%e1257112598%_)))) - (if (gx#stx-pair? _%tl1257312605%_) - (let ((_%e1257412608%_ - (gx#syntax-e _%tl1257312605%_))) - (let ((_%hd1257512612%_ + (##cdr _%e1263412661%_)))) + (if (gx#stx-pair? _%tl1263612668%_) + (let ((_%e1263712671%_ + (gx#syntax-e _%tl1263612668%_))) + (let ((_%hd1263812675%_ (let () (declare (not safe)) - (##car _%e1257412608%_))) - (_%tl1257612615%_ + (##car _%e1263712671%_))) + (_%tl1263912678%_ (let () (declare (not safe)) - (##cdr _%e1257412608%_)))) - (if (gx#stx-pair/null? _%tl1257612615%_) - (let ((_g20974_ + (##cdr _%e1263712671%_)))) + (if (gx#stx-pair/null? _%tl1263912678%_) + (let ((_g21037_ (gx#syntax-split-splice - _%tl1257612615%_ + _%tl1263912678%_ '0))) (begin - (let ((_g20975_ + (let ((_g21038_ (let () (declare (not safe)) - (if (##values? _g20974_) - (##vector-length - _g20974_) + (if (##values? _g21037_) + (##values-length + _g21037_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20975_ 2))) + (##fx= _g21038_ 2))) (error "Context expects 2 values" - _g20975_))) - (let ((_%target1257712618%_ + _g21038_))) + (let ((_%target1264012681%_ (let () (declare (not safe)) - (##vector-ref _g20974_ 0))) - (_%tl1257912621%_ + (##values-ref _g21037_ 0))) + (_%tl1264212684%_ (let () (declare (not safe)) - (##vector-ref _g20974_ 1)))) - (if (gx#stx-null? _%tl1257912621%_) - (letrec ((_%loop1258012624%_ - (lambda (_%hd1257812628%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%K1258412631%_) - (if (gx#stx-pair? _%hd1257812628%_) - (let ((_%e1258112634%_ (gx#syntax-e _%hd1257812628%_))) - (let ((_%lp-hd1258212638%_ + (##values-ref _g21037_ 1)))) + (if (gx#stx-null? _%tl1264212684%_) + (letrec ((_%loop1264312687%_ + (lambda (_%hd1264112691%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%K1264712694%_) + (if (gx#stx-pair? _%hd1264112691%_) + (let ((_%e1264412697%_ (gx#syntax-e _%hd1264112691%_))) + (let ((_%lp-hd1264512701%_ (let () (declare (not safe)) - (##car _%e1258112634%_))) - (_%lp-tl1258312641%_ + (##car _%e1264412697%_))) + (_%lp-tl1264612704%_ (let () (declare (not safe)) - (##cdr _%e1258112634%_)))) - (_%loop1258012624%_ - _%lp-tl1258312641%_ - (cons _%lp-hd1258212638%_ _%K1258412631%_)))) - (let ((_%K1258512644%_ (reverse _%K1258412631%_))) - ((lambda (_%L12648%_ _%L12650%_) + (##cdr _%e1264412697%_)))) + (_%loop1264312687%_ + _%lp-tl1264612704%_ + (cons _%lp-hd1264512701%_ _%K1264712694%_)))) + (let ((_%K1264812707%_ (reverse _%K1264712694%_))) + ((lambda (_%L12711%_ _%L12713%_) (cons (gx#datum->syntax '#f '~case-dispatch*) (cons '0 - (cons _%L12650%_ - (foldr (lambda (_%g1266712670%_ - _%g1266812673%_) - (cons _%g1266712670%_ - _%g1266812673%_)) + (cons _%L12713%_ + (foldr (lambda (_%g1273012733%_ + _%g1273112736%_) + (cons _%g1273012733%_ + _%g1273112736%_)) '() - _%L12648%_))))) - _%K1258512644%_ - _%hd1257512612%_)))))) + _%L12711%_))))) + _%K1264812707%_ + _%hd1263812675%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1258012624%_ - _%target1257712618%_ + (_%loop1264312687%_ + _%target1264012681%_ '())) - (_%g1256712591%_ - _%g1256812595%_))))) - (_%g1256712591%_ _%g1256812595%_)))) - (_%g1256712591%_ _%g1256812595%_)))) - (_%g1256712591%_ _%g1256812595%_))))) - (_%g1256612676%_ _%$stx12563%_)))) + (_%g1263012654%_ + _%g1263112658%_))))) + (_%g1263012654%_ _%g1263112658%_)))) + (_%g1263012654%_ _%g1263112658%_)))) + (_%g1263012654%_ _%g1263112658%_))))) + (_%g1262912739%_ _%$stx12626%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch*| - (lambda (_%stx12681%_) - (let* ((_%__stx1975419755%_ _%stx12681%_) - (_%g1268812784%_ + (lambda (_%stx12744%_) + (let* ((_%__stx1981719818%_ _%stx12744%_) + (_%g1275112847%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1975419755%_)))) - (let ((_%__kont1975719758%_ - (lambda (_%L13261%_ _%L13263%_) + _%__stx1981719818%_)))) + (let ((_%__kont1982019821%_ + (lambda (_%L13324%_ _%L13326%_) (cons (gx#datum->syntax '#f 'quote) (cons '#!void '())))) - (_%__kont1975919760%_ - (lambda (_%L13203%_ _%L13205%_ _%L13206%_) _%L13203%_)) - (_%__kont1976119762%_ - (lambda (_%L13100%_ _%L13102%_ _%L13103%_ _%L13104%_) - (let* ((_%g1312513133%_ - (lambda (_%g1312613129%_) + (_%__kont1982219823%_ + (lambda (_%L13266%_ _%L13268%_ _%L13269%_) _%L13266%_)) + (_%__kont1982419825%_ + (lambda (_%L13163%_ _%L13165%_ _%L13166%_ _%L13167%_) + (let* ((_%g1318813196%_ + (lambda (_%g1318913192%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1312613129%_))) - (_%g1312413152%_ - (lambda (_%g1312613137%_) - ((lambda (_%L13140%_) + _%g1318913192%_))) + (_%g1318713215%_ + (lambda (_%g1318913200%_) + ((lambda (_%L13203%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L13103%_ - (cons _%L13140%_ '()))) - (cons _%L13102%_ - (cons _%L13100%_ '()))))) - _%g1312613137%_)))) - (_%g1312413152%_ (gx#stx-e _%L13104%_))))) - (_%__kont1976319764%_ - (lambda (_%L12950%_ - _%L12952%_ - _%L12953%_ - _%L12954%_ - _%L12955%_) - (let* ((_%g1297912994%_ - (lambda (_%g1298012990%_) + (cons _%L13166%_ + (cons _%L13203%_ '()))) + (cons _%L13165%_ + (cons _%L13163%_ '()))))) + _%g1318913200%_)))) + (_%g1318713215%_ (gx#stx-e _%L13167%_))))) + (_%__kont1982619827%_ + (lambda (_%L13013%_ + _%L13015%_ + _%L13016%_ + _%L13017%_ + _%L13018%_) + (let* ((_%g1304213057%_ + (lambda (_%g1304313053%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1298012990%_))) - (_%g1297813039%_ - (lambda (_%g1298012998%_) - (if (gx#stx-pair? _%g1298012998%_) - (let ((_%e1298313001%_ - (gx#syntax-e _%g1298012998%_))) - (let ((_%hd1298413005%_ + _%g1304313053%_))) + (_%g1304113102%_ + (lambda (_%g1304313061%_) + (if (gx#stx-pair? _%g1304313061%_) + (let ((_%e1304613064%_ + (gx#syntax-e _%g1304313061%_))) + (let ((_%hd1304713068%_ (let () (declare (not safe)) - (##car _%e1298313001%_))) - (_%tl1298513008%_ + (##car _%e1304613064%_))) + (_%tl1304813071%_ (let () (declare (not safe)) - (##cdr _%e1298313001%_)))) - (if (gx#stx-pair? _%tl1298513008%_) - (let ((_%e1298613011%_ + (##cdr _%e1304613064%_)))) + (if (gx#stx-pair? _%tl1304813071%_) + (let ((_%e1304913074%_ (gx#syntax-e - _%tl1298513008%_))) - (let ((_%hd1298713015%_ + _%tl1304813071%_))) + (let ((_%hd1305013078%_ (let () (declare (not safe)) - (##car _%e1298613011%_))) - (_%tl1298813018%_ + (##car _%e1304913074%_))) + (_%tl1305113081%_ (let () (declare (not safe)) - (##cdr _%e1298613011%_)))) + (##cdr _%e1304913074%_)))) (if (gx#stx-null? - _%tl1298813018%_) - ((lambda (_%L13021%_ - _%L13023%_) + _%tl1305113081%_) + ((lambda (_%L13084%_ + _%L13086%_) (cons (gx#datum->syntax '#f 'if) @@ -7189,3544 +7191,3544 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##fx=) - (cons _%L12954%_ (cons _%L13023%_ '()))) - (cons _%L12953%_ + (cons _%L13017%_ (cons _%L13086%_ '()))) + (cons _%L13016%_ (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx=) - (cons _%L12954%_ - (cons _%L13021%_ + (cons _%L13017%_ + (cons _%L13084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L12952%_ - (cons _%L12950%_ '())))) + (cons _%L13015%_ + (cons _%L13013%_ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1298713015%_ - _%hd1298413005%_) - (_%g1297912994%_ - _%g1298012998%_)))) - (_%g1297912994%_ _%g1298012998%_)))) - (_%g1297912994%_ _%g1298012998%_))))) - (_%g1297813039%_ - (list (gx#stx-e _%L12955%_) - (fx1+ (gx#stx-e _%L12955%_))))))) - (_%__kont1976519766%_ - (lambda (_%L12851%_ _%L12853%_ _%L12854%_) + _%hd1305013078%_ + _%hd1304713068%_) + (_%g1304213057%_ + _%g1304313061%_)))) + (_%g1304213057%_ _%g1304313061%_)))) + (_%g1304213057%_ _%g1304313061%_))))) + (_%g1304113102%_ + (list (gx#stx-e _%L13018%_) + (fx1+ (gx#stx-e _%L13018%_))))))) + (_%__kont1982819829%_ + (lambda (_%L12914%_ _%L12916%_ _%L12917%_) (cons (gx#datum->syntax '#f '~case-dispatch-bsearch) - (cons _%L12854%_ - (cons _%L12853%_ - (foldr (lambda (_%g1287412877%_ - _%g1287512880%_) - (cons _%g1287412877%_ - _%g1287512880%_)) + (cons _%L12917%_ + (cons _%L12916%_ + (foldr (lambda (_%g1293712940%_ + _%g1293812943%_) + (cons _%g1293712940%_ + _%g1293812943%_)) '() - _%L12851%_))))))) - (let ((_%__match1991119912%_ - (lambda (_%e1276112791%_ - _%hd1276212795%_ - _%tl1276312798%_ - _%e1276412801%_ - _%hd1276512805%_ - _%tl1276612808%_ - _%e1276712811%_ - _%hd1276812815%_ - _%tl1276912818%_ - _%__splice1976719768%_ - _%target1277012821%_ - _%tl1277212824%_) - (letrec ((_%loop1277312827%_ - (lambda (_%hd1277112831%_ _%K1277712834%_) - (if (gx#stx-pair? _%hd1277112831%_) - (let ((_%e1277412837%_ - (gx#syntax-e _%hd1277112831%_))) - (let ((_%lp-tl1277612844%_ + _%L12914%_))))))) + (let ((_%__match1997419975%_ + (lambda (_%e1282412854%_ + _%hd1282512858%_ + _%tl1282612861%_ + _%e1282712864%_ + _%hd1282812868%_ + _%tl1282912871%_ + _%e1283012874%_ + _%hd1283112878%_ + _%tl1283212881%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) + (letrec ((_%loop1283612890%_ + (lambda (_%hd1283412894%_ _%K1284012897%_) + (if (gx#stx-pair? _%hd1283412894%_) + (let ((_%e1283712900%_ + (gx#syntax-e _%hd1283412894%_))) + (let ((_%lp-tl1283912907%_ (let () (declare (not safe)) - (##cdr _%e1277412837%_))) - (_%lp-hd1277512841%_ + (##cdr _%e1283712900%_))) + (_%lp-hd1283812904%_ (let () (declare (not safe)) - (##car _%e1277412837%_)))) - (_%loop1277312827%_ - _%lp-tl1277612844%_ - (cons _%lp-hd1277512841%_ - _%K1277712834%_)))) - (let ((_%K1277812847%_ - (reverse _%K1277712834%_))) - (_%__kont1976519766%_ - _%K1277812847%_ - _%hd1276812815%_ - _%hd1276512805%_)))))) - (_%loop1277312827%_ _%target1277012821%_ '()))))) - (if (gx#stx-pair? _%__stx1975419755%_) - (let ((_%e1269213231%_ (gx#syntax-e _%__stx1975419755%_))) - (let ((_%tl1269413238%_ + (##car _%e1283712900%_)))) + (_%loop1283612890%_ + _%lp-tl1283912907%_ + (cons _%lp-hd1283812904%_ + _%K1284012897%_)))) + (let ((_%K1284112910%_ + (reverse _%K1284012897%_))) + (_%__kont1982819829%_ + _%K1284112910%_ + _%hd1283112878%_ + _%hd1282812868%_)))))) + (_%loop1283612890%_ _%target1283312884%_ '()))))) + (if (gx#stx-pair? _%__stx1981719818%_) + (let ((_%e1275513294%_ (gx#syntax-e _%__stx1981719818%_))) + (let ((_%tl1275713301%_ (let () (declare (not safe)) - (##cdr _%e1269213231%_))) - (_%hd1269313235%_ + (##cdr _%e1275513294%_))) + (_%hd1275613298%_ (let () (declare (not safe)) - (##car _%e1269213231%_)))) - (if (gx#stx-pair? _%tl1269413238%_) - (let ((_%e1269513241%_ - (gx#syntax-e _%tl1269413238%_))) - (let ((_%tl1269713248%_ + (##car _%e1275513294%_)))) + (if (gx#stx-pair? _%tl1275713301%_) + (let ((_%e1275813304%_ + (gx#syntax-e _%tl1275713301%_))) + (let ((_%tl1276013311%_ (let () (declare (not safe)) - (##cdr _%e1269513241%_))) - (_%hd1269613245%_ + (##cdr _%e1275813304%_))) + (_%hd1275913308%_ (let () (declare (not safe)) - (##car _%e1269513241%_)))) - (if (gx#stx-pair? _%tl1269713248%_) - (let ((_%e1269813251%_ - (gx#syntax-e _%tl1269713248%_))) - (let ((_%tl1270013258%_ + (##car _%e1275813304%_)))) + (if (gx#stx-pair? _%tl1276013311%_) + (let ((_%e1276113314%_ + (gx#syntax-e _%tl1276013311%_))) + (let ((_%tl1276313321%_ (let () (declare (not safe)) - (##cdr _%e1269813251%_))) - (_%hd1269913255%_ + (##cdr _%e1276113314%_))) + (_%hd1276213318%_ (let () (declare (not safe)) - (##car _%e1269813251%_)))) - (if (gx#stx-null? _%tl1270013258%_) - (_%__kont1975719758%_ - _%hd1269913255%_ - _%hd1269613245%_) - (if (gx#stx-pair? _%tl1270013258%_) - (let ((_%e1271313193%_ + (##car _%e1276113314%_)))) + (if (gx#stx-null? _%tl1276313321%_) + (_%__kont1982019821%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair? _%tl1276313321%_) + (let ((_%e1277613256%_ (gx#syntax-e - _%tl1270013258%_))) - (let ((_%tl1271513200%_ + _%tl1276313321%_))) + (let ((_%tl1277813263%_ (let () (declare (not safe)) - (##cdr _%e1271313193%_))) - (_%hd1271413197%_ + (##cdr _%e1277613256%_))) + (_%hd1277713260%_ (let () (declare (not safe)) - (##car _%e1271313193%_)))) + (##car _%e1277613256%_)))) (if (gx#stx-null? - _%tl1271513200%_) - (_%__kont1975919760%_ - _%hd1271413197%_ - _%hd1269913255%_ - _%hd1269613245%_) + _%tl1277813263%_) + (_%__kont1982219823%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) (if (gx#stx-pair? - _%tl1271513200%_) - (let ((_%e1273213090%_ + _%tl1277813263%_) + (let ((_%e1279513153%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1271513200%_))) - (let ((_%tl1273413097%_ + (gx#syntax-e _%tl1277813263%_))) + (let ((_%tl1279713160%_ (let () (declare (not safe)) - (##cdr _%e1273213090%_))) - (_%hd1273313094%_ + (##cdr _%e1279513153%_))) + (_%hd1279613157%_ (let () (declare (not safe)) - (##car _%e1273213090%_)))) - (if (gx#stx-null? _%tl1273413097%_) - (_%__kont1976119762%_ - _%hd1273313094%_ - _%hd1271413197%_ - _%hd1269913255%_ - _%hd1269613245%_) - (if (gx#stx-pair? _%tl1273413097%_) - (let ((_%e1275512940%_ - (gx#syntax-e _%tl1273413097%_))) - (let ((_%tl1275712947%_ + (##car _%e1279513153%_)))) + (if (gx#stx-null? _%tl1279713160%_) + (_%__kont1982419825%_ + _%hd1279613157%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair? _%tl1279713160%_) + (let ((_%e1281813003%_ + (gx#syntax-e _%tl1279713160%_))) + (let ((_%tl1282013010%_ (let () (declare (not safe)) - (##cdr _%e1275512940%_))) - (_%hd1275612944%_ + (##cdr _%e1281813003%_))) + (_%hd1281913007%_ (let () (declare (not safe)) - (##car _%e1275512940%_)))) - (if (gx#stx-null? _%tl1275712947%_) - (_%__kont1976319764%_ - _%hd1275612944%_ - _%hd1273313094%_ - _%hd1271413197%_ - _%hd1269913255%_ - _%hd1269613245%_) - (if (gx#stx-pair/null? _%tl1270013258%_) - (let ((_%__splice1976719768%_ + (##car _%e1281813003%_)))) + (if (gx#stx-null? _%tl1282013010%_) + (_%__kont1982619827%_ + _%hd1281913007%_ + _%hd1279613157%_ + _%hd1277713260%_ + _%hd1276213318%_ + _%hd1275913308%_) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1270013258%_ + _%tl1276313321%_ '0))) - (let ((_%tl1277212824%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '1))) - (_%target1277012821%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '0)))) (if (gx#stx-null? - _%tl1277212824%_) - (_%__match1991119912%_ - _%e1269213231%_ - _%hd1269313235%_ - _%tl1269413238%_ - _%e1269513241%_ - _%hd1269613245%_ - _%tl1269713248%_ - _%e1269813251%_ - _%hd1269913255%_ - _%tl1270013258%_ - _%__splice1976719768%_ - _%target1277012821%_ - _%tl1277212824%_) + _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1268812784%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1268812784%_)))))) - (if (gx#stx-pair/null? _%tl1270013258%_) - (let ((_%__splice1976719768%_ + (_%g1275112847%_)))))) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1270013258%_ + _%tl1276313321%_ '0))) - (let ((_%tl1277212824%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '1))) - (_%target1277012821%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '0)))) - (if (gx#stx-null? _%tl1277212824%_) - (_%__match1991119912%_ - _%e1269213231%_ - _%hd1269313235%_ - _%tl1269413238%_ - _%e1269513241%_ - _%hd1269613245%_ - _%tl1269713248%_ - _%e1269813251%_ - _%hd1269913255%_ - _%tl1270013258%_ - _%__splice1976719768%_ - _%target1277012821%_ - _%tl1277212824%_) + (if (gx#stx-null? _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1268812784%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1268812784%_))))))) - (if (gx#stx-pair/null? _%tl1270013258%_) - (let ((_%__splice1976719768%_ - (gx#syntax-split-splice _%tl1270013258%_ '0))) - (let ((_%tl1277212824%_ + (_%g1275112847%_))))))) + (if (gx#stx-pair/null? _%tl1276313321%_) + (let ((_%__splice1983019831%_ + (gx#syntax-split-splice _%tl1276313321%_ '0))) + (let ((_%tl1283512887%_ (let () (declare (not safe)) - (##vector-ref _%__splice1976719768%_ '1))) - (_%target1277012821%_ + (##vector-ref _%__splice1983019831%_ '1))) + (_%target1283312884%_ (let () (declare (not safe)) - (##vector-ref _%__splice1976719768%_ '0)))) - (if (gx#stx-null? _%tl1277212824%_) - (_%__match1991119912%_ - _%e1269213231%_ - _%hd1269313235%_ - _%tl1269413238%_ - _%e1269513241%_ - _%hd1269613245%_ - _%tl1269713248%_ - _%e1269813251%_ - _%hd1269913255%_ - _%tl1270013258%_ - _%__splice1976719768%_ - _%target1277012821%_ - _%tl1277212824%_) + (##vector-ref _%__splice1983019831%_ '0)))) + (if (gx#stx-null? _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1268812784%_))))) - (let () (declare (not safe)) (_%g1268812784%_))))))) + (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%tl1270013258%_) - (let ((_%__splice1976719768%_ + _%tl1276313321%_) + (let ((_%__splice1983019831%_ (gx#syntax-split-splice - _%tl1270013258%_ + _%tl1276313321%_ '0))) - (let ((_%tl1277212824%_ + (let ((_%tl1283512887%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '1))) - (_%target1277012821%_ + (_%target1283312884%_ (let () (declare (not safe)) (##vector-ref - _%__splice1976719768%_ + _%__splice1983019831%_ '0)))) (if (gx#stx-null? - _%tl1277212824%_) - (_%__match1991119912%_ - _%e1269213231%_ - _%hd1269313235%_ - _%tl1269413238%_ - _%e1269513241%_ - _%hd1269613245%_ - _%tl1269713248%_ - _%e1269813251%_ - _%hd1269913255%_ - _%tl1270013258%_ - _%__splice1976719768%_ - _%target1277012821%_ - _%tl1277212824%_) + _%tl1283512887%_) + (_%__match1997419975%_ + _%e1275513294%_ + _%hd1275613298%_ + _%tl1275713301%_ + _%e1275813304%_ + _%hd1275913308%_ + _%tl1276013311%_ + _%e1276113314%_ + _%hd1276213318%_ + _%tl1276313321%_ + _%__splice1983019831%_ + _%target1283312884%_ + _%tl1283512887%_) (let () (declare (not safe)) - (_%g1268812784%_))))) + (_%g1275112847%_))))) (let () (declare (not safe)) - (_%g1268812784%_))))))) + (_%g1275112847%_))))))) (let () (declare (not safe)) - (_%g1268812784%_))))) - (let () (declare (not safe)) (_%g1268812784%_))))) - (let () (declare (not safe)) (_%g1268812784%_)))))))) + (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_))))) + (let () (declare (not safe)) (_%g1275112847%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#~case-dispatch-bsearch| - (lambda (_%stx13283%_) - (letrec ((_%split13286%_ - (lambda (_%lst13647%_ _%mid13649%_) - (let _%lp13651%_ ((_%i13654%_ '0) - (_%rest13656%_ _%lst13647%_) - (_%left13657%_ '())) - (if (fx< _%i13654%_ _%mid13649%_) - (_%lp13651%_ - (fx1+ _%i13654%_) - (cdr _%rest13656%_) - (cons (car _%rest13656%_) _%left13657%_)) - (values (reverse _%left13657%_) _%rest13656%_)))))) - (let* ((_%g1328913317%_ - (lambda (_%g1329013313%_) + (lambda (_%stx13346%_) + (letrec ((_%split13349%_ + (lambda (_%lst13710%_ _%mid13712%_) + (let _%lp13714%_ ((_%i13717%_ '0) + (_%rest13719%_ _%lst13710%_) + (_%left13720%_ '())) + (if (fx< _%i13717%_ _%mid13712%_) + (_%lp13714%_ + (fx1+ _%i13717%_) + (cdr _%rest13719%_) + (cons (car _%rest13719%_) _%left13720%_)) + (values (reverse _%left13720%_) _%rest13719%_)))))) + (let* ((_%g1335213380%_ + (lambda (_%g1335313376%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1329013313%_))) - (_%g1328813643%_ - (lambda (_%g1329013321%_) - (if (gx#stx-pair? _%g1329013321%_) - (let ((_%e1329413324%_ (gx#syntax-e _%g1329013321%_))) - (let ((_%hd1329513328%_ + _%g1335313376%_))) + (_%g1335113706%_ + (lambda (_%g1335313384%_) + (if (gx#stx-pair? _%g1335313384%_) + (let ((_%e1335713387%_ (gx#syntax-e _%g1335313384%_))) + (let ((_%hd1335813391%_ (let () (declare (not safe)) - (##car _%e1329413324%_))) - (_%tl1329613331%_ + (##car _%e1335713387%_))) + (_%tl1335913394%_ (let () (declare (not safe)) - (##cdr _%e1329413324%_)))) - (if (gx#stx-pair? _%tl1329613331%_) - (let ((_%e1329713334%_ - (gx#syntax-e _%tl1329613331%_))) - (let ((_%hd1329813338%_ + (##cdr _%e1335713387%_)))) + (if (gx#stx-pair? _%tl1335913394%_) + (let ((_%e1336013397%_ + (gx#syntax-e _%tl1335913394%_))) + (let ((_%hd1336113401%_ (let () (declare (not safe)) - (##car _%e1329713334%_))) - (_%tl1329913341%_ + (##car _%e1336013397%_))) + (_%tl1336213404%_ (let () (declare (not safe)) - (##cdr _%e1329713334%_)))) - (if (gx#stx-pair? _%tl1329913341%_) - (let ((_%e1330013344%_ - (gx#syntax-e _%tl1329913341%_))) - (let ((_%hd1330113348%_ + (##cdr _%e1336013397%_)))) + (if (gx#stx-pair? _%tl1336213404%_) + (let ((_%e1336313407%_ + (gx#syntax-e _%tl1336213404%_))) + (let ((_%hd1336413411%_ (let () (declare (not safe)) - (##car _%e1330013344%_))) - (_%tl1330213351%_ + (##car _%e1336313407%_))) + (_%tl1336513414%_ (let () (declare (not safe)) - (##cdr _%e1330013344%_)))) + (##cdr _%e1336313407%_)))) (if (gx#stx-pair/null? - _%tl1330213351%_) - (let ((_g20976_ + _%tl1336513414%_) + (let ((_g21039_ (gx#syntax-split-splice - _%tl1330213351%_ + _%tl1336513414%_ '0))) (begin - (let ((_g20977_ + (let ((_g21040_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20976_) - (##vector-length _g20976_) + _g21039_) + (##values-length _g21039_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20977_ 2))) - (error "Context expects 2 values" _g20977_))) + (if (not (let () (declare (not safe)) (##fx= _g21040_ 2))) + (error "Context expects 2 values" _g21040_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1330313354%_ + (let ((_%target1336613417%_ (let () (declare (not safe)) - (##vector-ref - _g20976_ + (##values-ref + _g21039_ 0))) - (_%tl1330513357%_ + (_%tl1336813420%_ (let () (declare (not safe)) - (##vector-ref - _g20976_ + (##values-ref + _g21039_ 1)))) (if (gx#stx-null? - _%tl1330513357%_) - (letrec ((_%loop1330613360%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1330413364%_ _%K1331013367%_) - (if (gx#stx-pair? _%hd1330413364%_) - (let ((_%e1330713370%_ - (gx#syntax-e _%hd1330413364%_))) - (let ((_%lp-hd1330813374%_ + _%tl1336813420%_) + (letrec ((_%loop1336913423%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1336713427%_ _%K1337313430%_) + (if (gx#stx-pair? _%hd1336713427%_) + (let ((_%e1337013433%_ + (gx#syntax-e _%hd1336713427%_))) + (let ((_%lp-hd1337113437%_ (let () (declare (not safe)) - (##car _%e1330713370%_))) - (_%lp-tl1330913377%_ + (##car _%e1337013433%_))) + (_%lp-tl1337213440%_ (let () (declare (not safe)) - (##cdr _%e1330713370%_)))) - (_%loop1330613360%_ - _%lp-tl1330913377%_ - (cons _%lp-hd1330813374%_ - _%K1331013367%_)))) - (let ((_%K1331113380%_ - (reverse _%K1331013367%_))) - ((lambda (_%L13384%_ _%L13386%_ _%L13387%_) - (let* ((_%len13417%_ - (length (foldr (lambda (_%g1340813411%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1340913414%_) - (cons _%g1340813411%_ _%g1340913414%_)) + (##cdr _%e1337013433%_)))) + (_%loop1336913423%_ + _%lp-tl1337213440%_ + (cons _%lp-hd1337113437%_ + _%K1337313430%_)))) + (let ((_%K1337413443%_ + (reverse _%K1337313430%_))) + ((lambda (_%L13447%_ _%L13449%_ _%L13450%_) + (let* ((_%len13480%_ + (length (foldr (lambda (_%g1347113474%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1347213477%_) + (cons _%g1347113474%_ _%g1347213477%_)) '() - _%L13384%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%mid13420%_ - (quotient _%len13417%_ '2)) - (_g20978_ - (_%split13286%_ - (foldr (lambda (_%g1342213425%_ - _%g1342313428%_) - (cons _%g1342213425%_ - _%g1342313428%_)) + _%L13447%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%mid13483%_ + (quotient _%len13480%_ '2)) + (_g21041_ + (_%split13349%_ + (foldr (lambda (_%g1348513488%_ + _%g1348613491%_) + (cons _%g1348513488%_ + _%g1348613491%_)) '() - _%L13384%_) - _%mid13420%_))) + _%L13447%_) + _%mid13483%_))) (begin - (let ((_g20979_ + (let ((_g21042_ (let () (declare (not safe)) - (if (##values? _g20978_) - (##vector-length - _g20978_) + (if (##values? _g21041_) + (##values-length + _g21041_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20979_ 2))) + (##fx= _g21042_ 2))) (error "Context expects 2 values" - _g20979_))) - (let ((_%left13431%_ + _g21042_))) + (let ((_%left13494%_ (let () (declare (not safe)) - (##vector-ref _g20978_ 0))) - (_%right13433%_ + (##values-ref _g21041_ 0))) + (_%right13496%_ (let () (declare (not safe)) - (##vector-ref - _g20978_ + (##values-ref + _g21041_ 1)))) - (let* ((_%g1343713478%_ - (lambda (_%g1343813474%_) + (let* ((_%g1350013541%_ + (lambda (_%g1350113537%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1343813474%_))) - (_%g1343613639%_ - (lambda (_%g1343813482%_) + _%g1350113537%_))) + (_%g1349913702%_ + (lambda (_%g1350113545%_) (if (gx#stx-pair? - _%g1343813482%_) - (let ((_%e1344313485%_ + _%g1350113545%_) + (let ((_%e1350613548%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g1343813482%_))) - (let ((_%hd1344413489%_ + (gx#syntax-e _%g1350113545%_))) + (let ((_%hd1350713552%_ (let () (declare (not safe)) - (##car _%e1344313485%_))) - (_%tl1344513492%_ + (##car _%e1350613548%_))) + (_%tl1350813555%_ (let () (declare (not safe)) - (##cdr _%e1344313485%_)))) - (if (gx#stx-pair? _%tl1344513492%_) - (let ((_%e1344613495%_ - (gx#syntax-e _%tl1344513492%_))) - (let ((_%hd1344713499%_ + (##cdr _%e1350613548%_)))) + (if (gx#stx-pair? _%tl1350813555%_) + (let ((_%e1350913558%_ + (gx#syntax-e _%tl1350813555%_))) + (let ((_%hd1351013562%_ (let () (declare (not safe)) - (##car _%e1344613495%_))) - (_%tl1344813502%_ + (##car _%e1350913558%_))) + (_%tl1351113565%_ (let () (declare (not safe)) - (##cdr _%e1344613495%_)))) - (if (gx#stx-pair/null? _%hd1344713499%_) - (let ((_g20980_ + (##cdr _%e1350913558%_)))) + (if (gx#stx-pair/null? _%hd1351013562%_) + (let ((_g21043_ (gx#syntax-split-splice - _%hd1344713499%_ + _%hd1351013562%_ '0))) (begin - (let ((_g20981_ + (let ((_g21044_ (let () (declare (not safe)) - (if (##values? _g20980_) - (##vector-length _g20980_) + (if (##values? _g21043_) + (##values-length _g21043_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20981_ 2))) + (##fx= _g21044_ 2))) (error "Context expects 2 values" - _g20981_))) - (let ((_%target1344913505%_ + _g21044_))) + (let ((_%target1351213568%_ (let () (declare (not safe)) - (##vector-ref _g20980_ 0))) - (_%tl1345113508%_ + (##values-ref _g21043_ 0))) + (_%tl1351413571%_ (let () (declare (not safe)) - (##vector-ref _g20980_ 1)))) - (if (gx#stx-null? _%tl1345113508%_) - (letrec ((_%loop1345213511%_ - (lambda (_%hd1345013515%_ - _%K-left1345613518%_) + (##values-ref _g21043_ 1)))) + (if (gx#stx-null? _%tl1351413571%_) + (letrec ((_%loop1351513574%_ + (lambda (_%hd1351313578%_ + _%K-left1351913581%_) (if (gx#stx-pair? - _%hd1345013515%_) - (let ((_%e1345313521%_ + _%hd1351313578%_) + (let ((_%e1351613584%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1345013515%_))) - (let ((_%lp-hd1345413525%_ + (gx#syntax-e _%hd1351313578%_))) + (let ((_%lp-hd1351713588%_ (let () (declare (not safe)) - (##car _%e1345313521%_))) - (_%lp-tl1345513528%_ + (##car _%e1351613584%_))) + (_%lp-tl1351813591%_ (let () (declare (not safe)) - (##cdr _%e1345313521%_)))) - (_%loop1345213511%_ - _%lp-tl1345513528%_ - (cons _%lp-hd1345413525%_ _%K-left1345613518%_)))) - (let ((_%K-left1345713531%_ - (reverse _%K-left1345613518%_))) - (if (gx#stx-pair? _%tl1344813502%_) - (let ((_%e1345813535%_ - (gx#syntax-e _%tl1344813502%_))) - (let ((_%hd1345913539%_ + (##cdr _%e1351613584%_)))) + (_%loop1351513574%_ + _%lp-tl1351813591%_ + (cons _%lp-hd1351713588%_ _%K-left1351913581%_)))) + (let ((_%K-left1352013594%_ + (reverse _%K-left1351913581%_))) + (if (gx#stx-pair? _%tl1351113565%_) + (let ((_%e1352113598%_ + (gx#syntax-e _%tl1351113565%_))) + (let ((_%hd1352213602%_ (let () (declare (not safe)) - (##car _%e1345813535%_))) - (_%tl1346013542%_ + (##car _%e1352113598%_))) + (_%tl1352313605%_ (let () (declare (not safe)) - (##cdr _%e1345813535%_)))) - (if (gx#stx-pair/null? _%hd1345913539%_) - (let ((_g20982_ + (##cdr _%e1352113598%_)))) + (if (gx#stx-pair/null? _%hd1352213602%_) + (let ((_g21045_ (gx#syntax-split-splice - _%hd1345913539%_ + _%hd1352213602%_ '0))) (begin - (let ((_g20983_ + (let ((_g21046_ (let () (declare (not safe)) - (if (##values? _g20982_) - (##vector-length _g20982_) + (if (##values? _g21045_) + (##values-length _g21045_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20983_ 2))) + (##fx= _g21046_ 2))) (error "Context expects 2 values" - _g20983_))) - (let ((_%target1346113545%_ + _g21046_))) + (let ((_%target1352413608%_ (let () (declare (not safe)) - (##vector-ref _g20982_ 0))) - (_%tl1346313548%_ + (##values-ref _g21045_ 0))) + (_%tl1352613611%_ (let () (declare (not safe)) - (##vector-ref _g20982_ 1)))) - (if (gx#stx-null? _%tl1346313548%_) - (letrec ((_%loop1346413551%_ - (lambda (_%hd1346213555%_ - _%K-right1346813558%_) + (##values-ref _g21045_ 1)))) + (if (gx#stx-null? _%tl1352613611%_) + (letrec ((_%loop1352713614%_ + (lambda (_%hd1352513618%_ + _%K-right1353113621%_) (if (gx#stx-pair? - _%hd1346213555%_) - (let ((_%e1346513561%_ + _%hd1352513618%_) + (let ((_%e1352813624%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1346213555%_))) - (let ((_%lp-hd1346613565%_ + (gx#syntax-e _%hd1352513618%_))) + (let ((_%lp-hd1352913628%_ (let () (declare (not safe)) - (##car _%e1346513561%_))) - (_%lp-tl1346713568%_ + (##car _%e1352813624%_))) + (_%lp-tl1353013631%_ (let () (declare (not safe)) - (##cdr _%e1346513561%_)))) - (_%loop1346413551%_ - _%lp-tl1346713568%_ - (cons _%lp-hd1346613565%_ _%K-right1346813558%_)))) - (let ((_%K-right1346913571%_ - (reverse _%K-right1346813558%_))) - (if (gx#stx-pair? _%tl1346013542%_) - (let ((_%e1347013575%_ - (gx#syntax-e _%tl1346013542%_))) - (let ((_%hd1347113579%_ + (##cdr _%e1352813624%_)))) + (_%loop1352713614%_ + _%lp-tl1353013631%_ + (cons _%lp-hd1352913628%_ _%K-right1353113621%_)))) + (let ((_%K-right1353213634%_ + (reverse _%K-right1353113621%_))) + (if (gx#stx-pair? _%tl1352313605%_) + (let ((_%e1353313638%_ + (gx#syntax-e _%tl1352313605%_))) + (let ((_%hd1353413642%_ (let () (declare (not safe)) - (##car _%e1347013575%_))) - (_%tl1347213582%_ + (##car _%e1353313638%_))) + (_%tl1353513645%_ (let () (declare (not safe)) - (##cdr _%e1347013575%_)))) - (if (gx#stx-null? _%tl1347213582%_) - ((lambda (_%L13585%_ - _%L13587%_ - _%L13588%_ - _%L13589%_) + (##cdr _%e1353313638%_)))) + (if (gx#stx-null? _%tl1353513645%_) + ((lambda (_%L13648%_ + _%L13650%_ + _%L13651%_ + _%L13652%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '##fx<) - (cons _%L13386%_ - (cons _%L13585%_ + (cons _%L13449%_ + (cons _%L13648%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13387%_ + (cons _%L13450%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L13386%_ - (foldr (lambda (_%g1362413627%_ - _%g1362513630%_) - (cons _%g1362413627%_ - _%g1362513630%_)) + (cons _%L13449%_ + (foldr (lambda (_%g1368713690%_ + _%g1368813693%_) + (cons _%g1368713690%_ + _%g1368813693%_)) '() - _%L13588%_)))) + _%L13651%_)))) (cons (cons (gx#datum->syntax '#f '~case-dispatch*) - (cons _%L13585%_ - (cons _%L13386%_ - (foldr (lambda (_%g1362213633%_ - _%g1362313636%_) - (cons _%g1362213633%_ - _%g1362313636%_)) + (cons _%L13648%_ + (cons _%L13449%_ + (foldr (lambda (_%g1368513696%_ + _%g1368613699%_) + (cons _%g1368513696%_ + _%g1368613699%_)) '() - _%L13587%_)))) + _%L13650%_)))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd1347113579%_ - _%K-right1346913571%_ - _%K-left1345713531%_ - _%hd1344413489%_) - (_%g1343713478%_ _%g1343813482%_)))) - (_%g1343713478%_ _%g1343813482%_))))))) + _%hd1353413642%_ + _%K-right1353213634%_ + _%K-left1352013594%_ + _%hd1350713552%_) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1346413551%_ - _%target1346113545%_ + (_%loop1352713614%_ + _%target1352413608%_ '())) - (_%g1343713478%_ - _%g1343813482%_))))) - (_%g1343713478%_ _%g1343813482%_)))) - (_%g1343713478%_ _%g1343813482%_))))))) + (_%g1350013541%_ + _%g1350113545%_))))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1345213511%_ - _%target1344913505%_ + (_%loop1351513574%_ + _%target1351213568%_ '())) - (_%g1343713478%_ - _%g1343813482%_))))) - (_%g1343713478%_ _%g1343813482%_)))) - (_%g1343713478%_ _%g1343813482%_)))) - (_%g1343713478%_ _%g1343813482%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1343613639%_ - (list _%mid13420%_ - _%left13431%_ - _%right13433%_ - (fx+ _%mid13420%_ + (_%g1350013541%_ + _%g1350113545%_))))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_)))) + (_%g1350013541%_ _%g1350113545%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1349913702%_ + (list _%mid13483%_ + _%left13494%_ + _%right13496%_ + (fx+ _%mid13483%_ (gx#stx-e - _%L13387%_))))))))) - _%K1331113380%_ - _%hd1330113348%_ - _%hd1329813338%_)))))) - (_%loop1330613360%_ _%target1330313354%_ '())) - (_%g1328913317%_ _%g1329013321%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1328913317%_ - _%g1329013321%_)))) - (_%g1328913317%_ _%g1329013321%_)))) - (_%g1328913317%_ _%g1329013321%_)))) - (_%g1328913317%_ _%g1329013321%_))))) - (_%g1328813643%_ _%stx13283%_))))) + _%L13450%_))))))))) + _%K1337413443%_ + _%hd1336413411%_ + _%hd1336113401%_)))))) + (_%loop1336913423%_ _%target1336613417%_ '())) + (_%g1335213380%_ _%g1335313384%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1335213380%_ + _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_)))) + (_%g1335213380%_ _%g1335313384%_))))) + (_%g1335113706%_ _%stx13346%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#do| - (lambda (_%$stx13663%_) - (let* ((_%g1366713738%_ - (lambda (_%g1366813734%_) + (lambda (_%$stx13726%_) + (let* ((_%g1373013801%_ + (lambda (_%g1373113797%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1366813734%_))) - (_%g1366614027%_ - (lambda (_%g1366813742%_) - (if (gx#stx-pair? _%g1366813742%_) - (let ((_%e1367513745%_ (gx#syntax-e _%g1366813742%_))) - (let ((_%hd1367613749%_ + _%g1373113797%_))) + (_%g1372914090%_ + (lambda (_%g1373113805%_) + (if (gx#stx-pair? _%g1373113805%_) + (let ((_%e1373813808%_ (gx#syntax-e _%g1373113805%_))) + (let ((_%hd1373913812%_ (let () (declare (not safe)) - (##car _%e1367513745%_))) - (_%tl1367713752%_ + (##car _%e1373813808%_))) + (_%tl1374013815%_ (let () (declare (not safe)) - (##cdr _%e1367513745%_)))) - (if (gx#stx-pair? _%tl1367713752%_) - (let ((_%e1367813755%_ - (gx#syntax-e _%tl1367713752%_))) - (let ((_%hd1367913759%_ + (##cdr _%e1373813808%_)))) + (if (gx#stx-pair? _%tl1374013815%_) + (let ((_%e1374113818%_ + (gx#syntax-e _%tl1374013815%_))) + (let ((_%hd1374213822%_ (let () (declare (not safe)) - (##car _%e1367813755%_))) - (_%tl1368013762%_ + (##car _%e1374113818%_))) + (_%tl1374313825%_ (let () (declare (not safe)) - (##cdr _%e1367813755%_)))) - (if (gx#stx-pair/null? _%hd1367913759%_) - (let ((_g20984_ + (##cdr _%e1374113818%_)))) + (if (gx#stx-pair/null? _%hd1374213822%_) + (let ((_g21047_ (gx#syntax-split-splice - _%hd1367913759%_ + _%hd1374213822%_ '0))) (begin - (let ((_g20985_ + (let ((_g21048_ (let () (declare (not safe)) - (if (##values? _g20984_) - (##vector-length - _g20984_) + (if (##values? _g21047_) + (##values-length + _g21047_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20985_ 2))) + (##fx= _g21048_ 2))) (error "Context expects 2 values" - _g20985_))) - (let ((_%target1368113765%_ + _g21048_))) + (let ((_%target1374413828%_ (let () (declare (not safe)) - (##vector-ref _g20984_ 0))) - (_%tl1368313768%_ + (##values-ref _g21047_ 0))) + (_%tl1374613831%_ (let () (declare (not safe)) - (##vector-ref _g20984_ 1)))) - (if (gx#stx-null? _%tl1368313768%_) - (letrec ((_%loop1368413771%_ - (lambda (_%hd1368213775%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%step1368813778%_ - _%init1368913780%_ - _%var1369013782%_) - (if (gx#stx-pair? _%hd1368213775%_) - (let ((_%e1368513785%_ (gx#syntax-e _%hd1368213775%_))) - (let ((_%lp-hd1368613789%_ + (##values-ref _g21047_ 1)))) + (if (gx#stx-null? _%tl1374613831%_) + (letrec ((_%loop1374713834%_ + (lambda (_%hd1374513838%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%step1375113841%_ + _%init1375213843%_ + _%var1375313845%_) + (if (gx#stx-pair? _%hd1374513838%_) + (let ((_%e1374813848%_ (gx#syntax-e _%hd1374513838%_))) + (let ((_%lp-hd1374913852%_ (let () (declare (not safe)) - (##car _%e1368513785%_))) - (_%lp-tl1368713792%_ + (##car _%e1374813848%_))) + (_%lp-tl1375013855%_ (let () (declare (not safe)) - (##cdr _%e1368513785%_)))) - (if (gx#stx-pair? _%lp-hd1368613789%_) - (let ((_%e1371813795%_ - (gx#syntax-e _%lp-hd1368613789%_))) - (let ((_%hd1371913799%_ + (##cdr _%e1374813848%_)))) + (if (gx#stx-pair? _%lp-hd1374913852%_) + (let ((_%e1378113858%_ + (gx#syntax-e _%lp-hd1374913852%_))) + (let ((_%hd1378213862%_ (let () (declare (not safe)) - (##car _%e1371813795%_))) - (_%tl1372013802%_ + (##car _%e1378113858%_))) + (_%tl1378313865%_ (let () (declare (not safe)) - (##cdr _%e1371813795%_)))) - (if (gx#stx-pair? _%tl1372013802%_) - (let ((_%e1372113805%_ - (gx#syntax-e _%tl1372013802%_))) - (let ((_%hd1372213809%_ + (##cdr _%e1378113858%_)))) + (if (gx#stx-pair? _%tl1378313865%_) + (let ((_%e1378413868%_ + (gx#syntax-e _%tl1378313865%_))) + (let ((_%hd1378513872%_ (let () (declare (not safe)) - (##car _%e1372113805%_))) - (_%tl1372313812%_ + (##car _%e1378413868%_))) + (_%tl1378613875%_ (let () (declare (not safe)) - (##cdr _%e1372113805%_)))) + (##cdr _%e1378413868%_)))) (if (gx#stx-pair/null? - _%tl1372313812%_) - (let ((_g20986_ + _%tl1378613875%_) + (let ((_g21049_ (gx#syntax-split-splice - _%tl1372313812%_ + _%tl1378613875%_ '0))) (begin - (let ((_g20987_ + (let ((_g21050_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g20986_) - (##vector-length _g20986_) + _g21049_) + (##values-length _g21049_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g20987_ 2))) - (error "Context expects 2 values" _g20987_))) + (if (not (let () (declare (not safe)) (##fx= _g21050_ 2))) + (error "Context expects 2 values" _g21050_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1372413815%_ + (let ((_%target1378713878%_ (let () (declare (not safe)) - (##vector-ref - _g20986_ + (##values-ref + _g21049_ 0))) - (_%tl1372613818%_ + (_%tl1378913881%_ (let () (declare (not safe)) - (##vector-ref - _g20986_ + (##values-ref + _g21049_ 1)))) (if (gx#stx-null? - _%tl1372613818%_) - (letrec ((_%loop1372713821%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1372513825%_ _%step1373113828%_) - (if (gx#stx-pair? _%hd1372513825%_) - (let ((_%e1372813831%_ - (gx#syntax-e _%hd1372513825%_))) - (let ((_%lp-hd1372913835%_ + _%tl1378913881%_) + (letrec ((_%loop1379013884%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1378813888%_ _%step1379413891%_) + (if (gx#stx-pair? _%hd1378813888%_) + (let ((_%e1379113894%_ + (gx#syntax-e _%hd1378813888%_))) + (let ((_%lp-hd1379213898%_ (let () (declare (not safe)) - (##car _%e1372813831%_))) - (_%lp-tl1373013838%_ + (##car _%e1379113894%_))) + (_%lp-tl1379313901%_ (let () (declare (not safe)) - (##cdr _%e1372813831%_)))) - (_%loop1372713821%_ - _%lp-tl1373013838%_ - (cons _%lp-hd1372913835%_ - _%step1373113828%_)))) - (let ((_%step1373213841%_ - (reverse _%step1373113828%_))) - (_%loop1368413771%_ - _%lp-tl1368713792%_ - (cons _%step1373213841%_ - _%step1368813778%_) - (cons _%hd1372213809%_ _%init1368913780%_) - (cons _%hd1371913799%_ - _%var1369013782%_))))))) - (_%loop1372713821%_ _%target1372413815%_ '())) - (_%g1366713738%_ _%g1366813742%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1366713738%_ - _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_)))) - (let ((_%step1369113845%_ (reverse _%step1368813778%_)) - (_%init1369213848%_ (reverse _%init1368913780%_)) - (_%var1369313850%_ (reverse _%var1369013782%_))) - (if (gx#stx-pair? _%tl1368013762%_) - (let ((_%e1369413853%_ - (gx#syntax-e _%tl1368013762%_))) - (let ((_%hd1369513857%_ + (##cdr _%e1379113894%_)))) + (_%loop1379013884%_ + _%lp-tl1379313901%_ + (cons _%lp-hd1379213898%_ + _%step1379413891%_)))) + (let ((_%step1379513904%_ + (reverse _%step1379413891%_))) + (_%loop1374713834%_ + _%lp-tl1375013855%_ + (cons _%step1379513904%_ + _%step1375113841%_) + (cons _%hd1378513872%_ _%init1375213843%_) + (cons _%hd1378213862%_ + _%var1375313845%_))))))) + (_%loop1379013884%_ _%target1378713878%_ '())) + (_%g1373013801%_ _%g1373113805%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1373013801%_ + _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (let ((_%step1375413908%_ (reverse _%step1375113841%_)) + (_%init1375513911%_ (reverse _%init1375213843%_)) + (_%var1375613913%_ (reverse _%var1375313845%_))) + (if (gx#stx-pair? _%tl1374313825%_) + (let ((_%e1375713916%_ + (gx#syntax-e _%tl1374313825%_))) + (let ((_%hd1375813920%_ (let () (declare (not safe)) - (##car _%e1369413853%_))) - (_%tl1369613860%_ + (##car _%e1375713916%_))) + (_%tl1375913923%_ (let () (declare (not safe)) - (##cdr _%e1369413853%_)))) - (if (gx#stx-pair? _%hd1369513857%_) - (let ((_%e1369713863%_ - (gx#syntax-e _%hd1369513857%_))) - (let ((_%hd1369813867%_ + (##cdr _%e1375713916%_)))) + (if (gx#stx-pair? _%hd1375813920%_) + (let ((_%e1376013926%_ + (gx#syntax-e _%hd1375813920%_))) + (let ((_%hd1376113930%_ (let () (declare (not safe)) - (##car _%e1369713863%_))) - (_%tl1369913870%_ + (##car _%e1376013926%_))) + (_%tl1376213933%_ (let () (declare (not safe)) - (##cdr _%e1369713863%_)))) + (##cdr _%e1376013926%_)))) (if (gx#stx-pair/null? - _%tl1369913870%_) - (let ((_g20988_ + _%tl1376213933%_) + (let ((_g21051_ (gx#syntax-split-splice - _%tl1369913870%_ + _%tl1376213933%_ '0))) (begin - (let ((_g20989_ + (let ((_g21052_ (let () (declare (not safe)) (if (##values? - _g20988_) - (##vector-length - _g20988_) + _g21051_) + (##values-length + _g21051_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g20989_ 2))) - (error "Context expects 2 values" _g20989_))) + (##fx= _g21052_ 2))) + (error "Context expects 2 values" _g21052_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1370013873%_ + (let ((_%target1376313936%_ (let () (declare (not safe)) - (##vector-ref - _g20988_ + (##values-ref + _g21051_ 0))) - (_%tl1370213876%_ + (_%tl1376513939%_ (let () (declare (not safe)) - (##vector-ref - _g20988_ + (##values-ref + _g21051_ 1)))) (if (gx#stx-null? - _%tl1370213876%_) - (letrec ((_%loop1370313879%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1370113883%_ _%fini1370713886%_) - (if (gx#stx-pair? _%hd1370113883%_) - (let ((_%e1370413889%_ - (gx#syntax-e _%hd1370113883%_))) - (let ((_%lp-hd1370513893%_ + _%tl1376513939%_) + (letrec ((_%loop1376613942%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1376413946%_ _%fini1377013949%_) + (if (gx#stx-pair? _%hd1376413946%_) + (let ((_%e1376713952%_ + (gx#syntax-e _%hd1376413946%_))) + (let ((_%lp-hd1376813956%_ (let () (declare (not safe)) - (##car _%e1370413889%_))) - (_%lp-tl1370613896%_ + (##car _%e1376713952%_))) + (_%lp-tl1376913959%_ (let () (declare (not safe)) - (##cdr _%e1370413889%_)))) - (_%loop1370313879%_ - _%lp-tl1370613896%_ - (cons _%lp-hd1370513893%_ - _%fini1370713886%_)))) - (let ((_%fini1370813899%_ - (reverse _%fini1370713886%_))) - (if (gx#stx-pair/null? _%tl1369613860%_) - (let ((_g20990_ + (##cdr _%e1376713952%_)))) + (_%loop1376613942%_ + _%lp-tl1376913959%_ + (cons _%lp-hd1376813956%_ + _%fini1377013949%_)))) + (let ((_%fini1377113962%_ + (reverse _%fini1377013949%_))) + (if (gx#stx-pair/null? _%tl1375913923%_) + (let ((_g21053_ (gx#syntax-split-splice - _%tl1369613860%_ + _%tl1375913923%_ '0))) (begin - (let ((_g20991_ + (let ((_g21054_ (let () (declare (not safe)) - (if (##values? _g20990_) - (##vector-length - _g20990_) + (if (##values? _g21053_) + (##values-length + _g21053_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20991_ 2))) + (##fx= _g21054_ 2))) (error "Context expects 2 values" - _g20991_))) - (let ((_%target1370913903%_ + _g21054_))) + (let ((_%target1377213966%_ (let () (declare (not safe)) - (##vector-ref _g20990_ 0))) - (_%tl1371113906%_ + (##values-ref _g21053_ 0))) + (_%tl1377413969%_ (let () (declare (not safe)) - (##vector-ref _g20990_ 1)))) - (if (gx#stx-null? _%tl1371113906%_) - (letrec ((_%loop1371213909%_ - (lambda (_%hd1371013913%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1371613916%_) - (if (gx#stx-pair? _%hd1371013913%_) - (let ((_%e1371313919%_ (gx#syntax-e _%hd1371013913%_))) - (let ((_%lp-hd1371413923%_ + (##values-ref _g21053_ 1)))) + (if (gx#stx-null? _%tl1377413969%_) + (letrec ((_%loop1377513972%_ + (lambda (_%hd1377313976%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1377913979%_) + (if (gx#stx-pair? _%hd1377313976%_) + (let ((_%e1377613982%_ (gx#syntax-e _%hd1377313976%_))) + (let ((_%lp-hd1377713986%_ (let () (declare (not safe)) - (##car _%e1371313919%_))) - (_%lp-tl1371513926%_ + (##car _%e1377613982%_))) + (_%lp-tl1377813989%_ (let () (declare (not safe)) - (##cdr _%e1371313919%_)))) - (_%loop1371213909%_ - _%lp-tl1371513926%_ - (cons _%lp-hd1371413923%_ _%body1371613916%_)))) - (let ((_%body1371713929%_ - (reverse _%body1371613916%_))) - ((lambda (_%L13933%_ - _%L13935%_ - _%L13936%_ - _%L13937%_ - _%L13938%_ - _%L13939%_) + (##cdr _%e1377613982%_)))) + (_%loop1377513972%_ + _%lp-tl1377813989%_ + (cons _%lp-hd1377713986%_ _%body1377913979%_)))) + (let ((_%body1378013992%_ + (reverse _%body1377913979%_))) + ((lambda (_%L13996%_ + _%L13998%_ + _%L13999%_ + _%L14000%_ + _%L14001%_ + _%L14002%_) (if (gx#stx-andmap gx#identifier? - (foldr (lambda (_%g1397213975%_ - _%g1397313978%_) - (cons _%g1397213975%_ - _%g1397313978%_)) + (foldr (lambda (_%g1403514038%_ + _%g1403614041%_) + (cons _%g1403514038%_ + _%g1403614041%_)) '() - _%L13939%_)) + _%L14002%_)) (cons (gx#datum->syntax '#f 'let) (cons (gx#datum->syntax '#f '$loop) (cons (begin (gx#syntax-check-splice-targets - _%L13938%_ - _%L13939%_) - (foldr (lambda (_%g1398913993%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1399013996%_ - _%g1399113998%_) - (cons (cons _%g1399013996%_ (cons _%g1398913993%_ '())) - _%g1399113998%_)) + _%L14001%_ + _%L14002%_) + (foldr (lambda (_%g1405214056%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1405314059%_ + _%g1405414061%_) + (cons (cons _%g1405314059%_ (cons _%g1405214056%_ '())) + _%g1405414061%_)) '() - _%L13938%_ - _%L13939%_)) + _%L14001%_ + _%L14002%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'if) - (cons _%L13936%_ + (cons _%L13999%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'begin) (cons '#!void - (foldr (lambda (_%g1398714001%_ - _%g1398814004%_) - (cons _%g1398714001%_ - _%g1398814004%_)) + (foldr (lambda (_%g1405014064%_ + _%g1405114067%_) + (cons _%g1405014064%_ + _%g1405114067%_)) '() - _%L13935%_))) + _%L13998%_))) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1398014007%_ - _%g1398114010%_) - (cons _%g1398014007%_ - _%g1398114010%_)) + (foldr (lambda (_%g1404314070%_ + _%g1404414073%_) + (cons _%g1404314070%_ + _%g1404414073%_)) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '$loop) (begin (gx#syntax-check-splice-targets - _%L13937%_ - _%L13939%_) - (foldr (lambda (_%g1398214013%_ - _%g1398314016%_ - _%g1398414018%_) + _%L14000%_ + _%L14002%_) + (foldr (lambda (_%g1404514076%_ + _%g1404614079%_ + _%g1404714081%_) (cons (cons (gx#datum->syntax '#f 'begin) - (cons _%g1398314016%_ - (foldr (lambda (_%g1398514021%_ + (cons _%g1404614079%_ + (foldr (lambda (_%g1404814084%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1398614024%_) - (cons _%g1398514021%_ _%g1398614024%_)) + _%g1404914087%_) + (cons _%g1404814084%_ _%g1404914087%_)) '() - _%g1398214013%_))) + _%g1404514076%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1398414018%_)) + _%g1404714081%_)) '() - _%L13937%_ - _%L13939%_))) + _%L14000%_ + _%L14002%_))) '()) - _%L13933%_)) + _%L13996%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1366713738%_ _%g1366813742%_))) - _%body1371713929%_ - _%fini1370813899%_ - _%hd1369813867%_ - _%step1369113845%_ - _%init1369213848%_ - _%var1369313850%_)))))) + (_%g1373013801%_ _%g1373113805%_))) + _%body1378013992%_ + _%fini1377113962%_ + _%hd1376113930%_ + _%step1375413908%_ + _%init1375513911%_ + _%var1375613913%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1371213909%_ - _%target1370913903%_ + (_%loop1377513972%_ + _%target1377213966%_ '())) - (_%g1366713738%_ - _%g1366813742%_))))) - (_%g1366713738%_ _%g1366813742%_))))))) - (_%loop1370313879%_ _%target1370013873%_ '())) - (_%g1366713738%_ _%g1366813742%_))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1366713738%_ - _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1368413771%_ - _%target1368113765%_ + (_%g1373013801%_ + _%g1373113805%_))))) + (_%g1373013801%_ _%g1373113805%_))))))) + (_%loop1376613942%_ _%target1376313936%_ '())) + (_%g1373013801%_ _%g1373113805%_))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1373013801%_ + _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%loop1374713834%_ + _%target1374413828%_ '() '() '())) - (_%g1366713738%_ - _%g1366813742%_))))) - (_%g1366713738%_ _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_)))) - (_%g1366713738%_ _%g1366813742%_))))) - (_%g1366614027%_ _%$stx13663%_)))) + (_%g1373013801%_ + _%g1373113805%_))))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_)))) + (_%g1373013801%_ _%g1373113805%_))))) + (_%g1372914090%_ _%$stx13726%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#do-while| - (lambda (_%$stx14035%_) - (let* ((_%g1403914062%_ - (lambda (_%g1404014058%_) + (lambda (_%$stx14098%_) + (let* ((_%g1410214125%_ + (lambda (_%g1410314121%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1404014058%_))) - (_%g1403814133%_ - (lambda (_%g1404014066%_) - (if (gx#stx-pair? _%g1404014066%_) - (let ((_%e1404514069%_ (gx#syntax-e _%g1404014066%_))) - (let ((_%hd1404614073%_ + _%g1410314121%_))) + (_%g1410114196%_ + (lambda (_%g1410314129%_) + (if (gx#stx-pair? _%g1410314129%_) + (let ((_%e1410814132%_ (gx#syntax-e _%g1410314129%_))) + (let ((_%hd1410914136%_ (let () (declare (not safe)) - (##car _%e1404514069%_))) - (_%tl1404714076%_ + (##car _%e1410814132%_))) + (_%tl1411014139%_ (let () (declare (not safe)) - (##cdr _%e1404514069%_)))) - (if (gx#stx-pair? _%tl1404714076%_) - (let ((_%e1404814079%_ - (gx#syntax-e _%tl1404714076%_))) - (let ((_%hd1404914083%_ + (##cdr _%e1410814132%_)))) + (if (gx#stx-pair? _%tl1411014139%_) + (let ((_%e1411114142%_ + (gx#syntax-e _%tl1411014139%_))) + (let ((_%hd1411214146%_ (let () (declare (not safe)) - (##car _%e1404814079%_))) - (_%tl1405014086%_ + (##car _%e1411114142%_))) + (_%tl1411314149%_ (let () (declare (not safe)) - (##cdr _%e1404814079%_)))) - (if (gx#stx-pair? _%tl1405014086%_) - (let ((_%e1405114089%_ - (gx#syntax-e _%tl1405014086%_))) - (let ((_%hd1405214093%_ + (##cdr _%e1411114142%_)))) + (if (gx#stx-pair? _%tl1411314149%_) + (let ((_%e1411414152%_ + (gx#syntax-e _%tl1411314149%_))) + (let ((_%hd1411514156%_ (let () (declare (not safe)) - (##car _%e1405114089%_))) - (_%tl1405314096%_ + (##car _%e1411414152%_))) + (_%tl1411614159%_ (let () (declare (not safe)) - (##cdr _%e1405114089%_)))) - (if (gx#stx-pair? _%hd1405214093%_) - (let ((_%e1405414099%_ + (##cdr _%e1411414152%_)))) + (if (gx#stx-pair? _%hd1411514156%_) + (let ((_%e1411714162%_ (gx#syntax-e - _%hd1405214093%_))) - (let ((_%hd1405514103%_ + _%hd1411514156%_))) + (let ((_%hd1411814166%_ (let () (declare (not safe)) - (##car _%e1405414099%_))) - (_%tl1405614106%_ + (##car _%e1411714162%_))) + (_%tl1411914169%_ (let () (declare (not safe)) - (##cdr _%e1405414099%_)))) - ((lambda (_%L14109%_ - _%L14111%_ - _%L14112%_ - _%L14113%_) + (##cdr _%e1411714162%_)))) + ((lambda (_%L14172%_ + _%L14174%_ + _%L14175%_ + _%L14176%_) (cons (gx#datum->syntax '#f 'do) - (cons _%L14113%_ + (cons _%L14176%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (cons (gx#datum->syntax '#f 'not) - (cons _%L14112%_ '())) - _%L14111%_) - _%L14109%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%tl1405314096%_ - _%tl1405614106%_ - _%hd1405514103%_ - _%hd1404914083%_))) - (_%g1403914062%_ - _%g1404014066%_)))) - (_%g1403914062%_ _%g1404014066%_)))) - (_%g1403914062%_ _%g1404014066%_)))) - (_%g1403914062%_ _%g1404014066%_))))) - (_%g1403814133%_ _%$stx14035%_)))) + (cons _%L14175%_ '())) + _%L14174%_) + _%L14172%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%tl1411614159%_ + _%tl1411914169%_ + _%hd1411814166%_ + _%hd1411214146%_))) + (_%g1410214125%_ + _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_)))) + (_%g1410214125%_ _%g1410314129%_))))) + (_%g1410114196%_ _%$stx14098%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#begin0| - (lambda (_%$stx14137%_) - (let* ((_%__stx1991419915%_ _%$stx14137%_) - (_%g1414214173%_ + (lambda (_%$stx14200%_) + (let* ((_%__stx1997719978%_ _%$stx14200%_) + (_%g1420514236%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1991419915%_)))) - (let ((_%__kont1991719918%_ (lambda (_%L14285%_) _%L14285%_)) - (_%__kont1991919920%_ - (lambda (_%L14230%_ _%L14232%_) + _%__stx1997719978%_)))) + (let ((_%__kont1998019981%_ (lambda (_%L14348%_) _%L14348%_)) + (_%__kont1998219983%_ + (lambda (_%L14293%_ _%L14295%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$r) - (cons _%L14232%_ '())) + (cons _%L14295%_ '())) (cons (cons (gx#datum->syntax '#f '%#expression) (cons (cons (gx#datum->syntax '#f 'begin) - (foldr (lambda (_%g1424914252%_ + (foldr (lambda (_%g1431214315%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1425014255%_) - (cons _%g1424914252%_ _%g1425014255%_)) + _%g1431314318%_) + (cons _%g1431214315%_ _%g1431314318%_)) '() - _%L14230%_)) + _%L14293%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (gx#datum->syntax '#f '$r) '()))))))) - (let ((_%__match1995719958%_ - (lambda (_%e1415314180%_ - _%hd1415414184%_ - _%tl1415514187%_ - _%e1415614190%_ - _%hd1415714194%_ - _%tl1415814197%_ - _%__splice1992119922%_ - _%target1415914200%_ - _%tl1416114203%_) - (letrec ((_%loop1416214206%_ - (lambda (_%hd1416014210%_ _%rest1416614213%_) - (if (gx#stx-pair? _%hd1416014210%_) - (let ((_%e1416314216%_ - (gx#syntax-e _%hd1416014210%_))) - (let ((_%lp-tl1416514223%_ + (let ((_%__match2002020021%_ + (lambda (_%e1421614243%_ + _%hd1421714247%_ + _%tl1421814250%_ + _%e1421914253%_ + _%hd1422014257%_ + _%tl1422114260%_ + _%__splice1998419985%_ + _%target1422214263%_ + _%tl1422414266%_) + (letrec ((_%loop1422514269%_ + (lambda (_%hd1422314273%_ _%rest1422914276%_) + (if (gx#stx-pair? _%hd1422314273%_) + (let ((_%e1422614279%_ + (gx#syntax-e _%hd1422314273%_))) + (let ((_%lp-tl1422814286%_ (let () (declare (not safe)) - (##cdr _%e1416314216%_))) - (_%lp-hd1416414220%_ + (##cdr _%e1422614279%_))) + (_%lp-hd1422714283%_ (let () (declare (not safe)) - (##car _%e1416314216%_)))) - (_%loop1416214206%_ - _%lp-tl1416514223%_ - (cons _%lp-hd1416414220%_ - _%rest1416614213%_)))) - (let ((_%rest1416714226%_ - (reverse _%rest1416614213%_))) - (_%__kont1991919920%_ - _%rest1416714226%_ - _%hd1415714194%_)))))) - (_%loop1416214206%_ _%target1415914200%_ '()))))) - (if (gx#stx-pair? _%__stx1991419915%_) - (let ((_%e1414514265%_ (gx#syntax-e _%__stx1991419915%_))) - (let ((_%tl1414714272%_ + (##car _%e1422614279%_)))) + (_%loop1422514269%_ + _%lp-tl1422814286%_ + (cons _%lp-hd1422714283%_ + _%rest1422914276%_)))) + (let ((_%rest1423014289%_ + (reverse _%rest1422914276%_))) + (_%__kont1998219983%_ + _%rest1423014289%_ + _%hd1422014257%_)))))) + (_%loop1422514269%_ _%target1422214263%_ '()))))) + (if (gx#stx-pair? _%__stx1997719978%_) + (let ((_%e1420814328%_ (gx#syntax-e _%__stx1997719978%_))) + (let ((_%tl1421014335%_ (let () (declare (not safe)) - (##cdr _%e1414514265%_))) - (_%hd1414614269%_ + (##cdr _%e1420814328%_))) + (_%hd1420914332%_ (let () (declare (not safe)) - (##car _%e1414514265%_)))) - (if (gx#stx-pair? _%tl1414714272%_) - (let ((_%e1414814275%_ - (gx#syntax-e _%tl1414714272%_))) - (let ((_%tl1415014282%_ + (##car _%e1420814328%_)))) + (if (gx#stx-pair? _%tl1421014335%_) + (let ((_%e1421114338%_ + (gx#syntax-e _%tl1421014335%_))) + (let ((_%tl1421314345%_ (let () (declare (not safe)) - (##cdr _%e1414814275%_))) - (_%hd1414914279%_ + (##cdr _%e1421114338%_))) + (_%hd1421214342%_ (let () (declare (not safe)) - (##car _%e1414814275%_)))) - (if (gx#stx-null? _%tl1415014282%_) - (_%__kont1991719918%_ _%hd1414914279%_) - (if (gx#stx-pair/null? _%tl1415014282%_) - (let ((_%__splice1992119922%_ + (##car _%e1421114338%_)))) + (if (gx#stx-null? _%tl1421314345%_) + (_%__kont1998019981%_ _%hd1421214342%_) + (if (gx#stx-pair/null? _%tl1421314345%_) + (let ((_%__splice1998419985%_ (gx#syntax-split-splice - _%tl1415014282%_ + _%tl1421314345%_ '0))) - (let ((_%tl1416114203%_ + (let ((_%tl1422414266%_ (let () (declare (not safe)) (##vector-ref - _%__splice1992119922%_ + _%__splice1998419985%_ '1))) - (_%target1415914200%_ + (_%target1422214263%_ (let () (declare (not safe)) (##vector-ref - _%__splice1992119922%_ + _%__splice1998419985%_ '0)))) - (if (gx#stx-null? _%tl1416114203%_) - (_%__match1995719958%_ - _%e1414514265%_ - _%hd1414614269%_ - _%tl1414714272%_ - _%e1414814275%_ - _%hd1414914279%_ - _%tl1415014282%_ - _%__splice1992119922%_ - _%target1415914200%_ - _%tl1416114203%_) + (if (gx#stx-null? _%tl1422414266%_) + (_%__match2002020021%_ + _%e1420814328%_ + _%hd1420914332%_ + _%tl1421014335%_ + _%e1421114338%_ + _%hd1421214342%_ + _%tl1421314345%_ + _%__splice1998419985%_ + _%target1422214263%_ + _%tl1422414266%_) (let () (declare (not safe)) - (_%g1414214173%_))))) + (_%g1420514236%_))))) (let () (declare (not safe)) - (_%g1414214173%_)))))) - (let () (declare (not safe)) (_%g1414214173%_))))) - (let () (declare (not safe)) (_%g1414214173%_)))))))) + (_%g1420514236%_)))))) + (let () (declare (not safe)) (_%g1420514236%_))))) + (let () (declare (not safe)) (_%g1420514236%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#rec| - (lambda (_%$stx14303%_) - (let* ((_%__stx1996019961%_ _%$stx14303%_) - (_%g1430914362%_ + (lambda (_%$stx14366%_) + (let* ((_%__stx2002320024%_ _%$stx14366%_) + (_%g1437214425%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx1996019961%_)))) - (let ((_%__kont1996319964%_ - (lambda (_%L14564%_ _%L14566%_) + _%__stx2002320024%_)))) + (let ((_%__kont2002620027%_ + (lambda (_%L14627%_ _%L14629%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14566%_ (cons _%L14564%_ '())) + (cons (cons (cons _%L14629%_ (cons _%L14627%_ '())) '()) - (cons _%L14566%_ '()))))) - (_%__kont1996519966%_ - (lambda (_%L14508%_ _%L14510%_) + (cons _%L14629%_ '()))))) + (_%__kont2002820029%_ + (lambda (_%L14571%_ _%L14573%_) (cons (gx#datum->syntax '#f 'letrec-values) - (cons (cons (cons _%L14510%_ (cons _%L14508%_ '())) + (cons (cons (cons _%L14573%_ (cons _%L14571%_ '())) '()) (cons (cons (gx#datum->syntax '#f 'values) - _%L14510%_) + _%L14573%_) '()))))) - (_%__kont1996719968%_ - (lambda (_%L14429%_ _%L14431%_ _%L14432%_) + (_%__kont2003020031%_ + (lambda (_%L14492%_ _%L14494%_ _%L14495%_) (cons (gx#datum->syntax '#f 'letrec) - (cons (cons (cons _%L14432%_ + (cons (cons (cons _%L14495%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L14431%_ - (foldr (lambda (_%g1445214455%_ + (cons _%L14494%_ + (foldr (lambda (_%g1451514518%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1445314458%_) - (cons _%g1445214455%_ _%g1445314458%_)) + _%g1451614521%_) + (cons _%g1451514518%_ _%g1451614521%_)) '() - _%L14429%_))) + _%L14492%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '()) - (cons _%L14432%_ '())))))) - (let* ((_%__match2004720048%_ - (lambda (_%e1433914369%_ - _%hd1434014373%_ - _%tl1434114376%_ - _%e1434214379%_ - _%hd1434314383%_ - _%tl1434414386%_ - _%e1434514389%_ - _%hd1434614393%_ - _%tl1434714396%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) - (letrec ((_%loop1435114405%_ - (lambda (_%hd1434914409%_ _%body1435514412%_) - (if (gx#stx-pair? _%hd1434914409%_) - (let ((_%e1435214415%_ - (gx#syntax-e _%hd1434914409%_))) - (let ((_%lp-tl1435414422%_ + (cons _%L14495%_ '())))))) + (let* ((_%__match2011020111%_ + (lambda (_%e1440214432%_ + _%hd1440314436%_ + _%tl1440414439%_ + _%e1440514442%_ + _%hd1440614446%_ + _%tl1440714449%_ + _%e1440814452%_ + _%hd1440914456%_ + _%tl1441014459%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) + (letrec ((_%loop1441414468%_ + (lambda (_%hd1441214472%_ _%body1441814475%_) + (if (gx#stx-pair? _%hd1441214472%_) + (let ((_%e1441514478%_ + (gx#syntax-e _%hd1441214472%_))) + (let ((_%lp-tl1441714485%_ (let () (declare (not safe)) - (##cdr _%e1435214415%_))) - (_%lp-hd1435314419%_ + (##cdr _%e1441514478%_))) + (_%lp-hd1441614482%_ (let () (declare (not safe)) - (##car _%e1435214415%_)))) - (_%loop1435114405%_ - _%lp-tl1435414422%_ - (cons _%lp-hd1435314419%_ - _%body1435514412%_)))) - (let ((_%body1435614425%_ - (reverse _%body1435514412%_))) - (let ((_%L14429%_ _%body1435614425%_) - (_%L14431%_ _%tl1434714396%_) - (_%L14432%_ _%hd1434614393%_)) - (if (gx#identifier? _%L14432%_) - (_%__kont1996719968%_ - _%L14429%_ - _%L14431%_ - _%L14432%_) + (##car _%e1441514478%_)))) + (_%loop1441414468%_ + _%lp-tl1441714485%_ + (cons _%lp-hd1441614482%_ + _%body1441814475%_)))) + (let ((_%body1441914488%_ + (reverse _%body1441814475%_))) + (let ((_%L14492%_ _%body1441914488%_) + (_%L14494%_ _%tl1441014459%_) + (_%L14495%_ _%hd1440914456%_)) + (if (gx#identifier? _%L14495%_) + (_%__kont2003020031%_ + _%L14492%_ + _%L14494%_ + _%L14495%_) (let () (declare (not safe)) - (_%g1430914362%_))))))))) - (_%loop1435114405%_ _%target1434814399%_ '())))) - (_%__match2002120022%_ - (lambda (_%e1432414468%_ - _%hd1432514472%_ - _%tl1432614475%_ - _%e1432714478%_ - _%hd1432814482%_ - _%tl1432914485%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%e1433314498%_ - _%hd1433414502%_ - _%tl1433514505%_) - (let ((_%L14508%_ _%hd1433414502%_) - (_%L14510%_ _%tl1433214495%_)) - (if (gx#identifier-list? _%L14510%_) - (_%__kont1996519966%_ _%L14508%_ _%L14510%_) - (if (gx#stx-pair/null? _%tl1432914485%_) - (let ((_%__splice1996919970%_ + (_%g1437214425%_))))))))) + (_%loop1441414468%_ _%target1441114462%_ '())))) + (_%__match2008420085%_ + (lambda (_%e1438714531%_ + _%hd1438814535%_ + _%tl1438914538%_ + _%e1439014541%_ + _%hd1439114545%_ + _%tl1439214548%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%e1439614561%_ + _%hd1439714565%_ + _%tl1439814568%_) + (let ((_%L14571%_ _%hd1439714565%_) + (_%L14573%_ _%tl1439514558%_)) + (if (gx#identifier-list? _%L14573%_) + (_%__kont2002820029%_ _%L14571%_ _%L14573%_) + (if (gx#stx-pair/null? _%tl1439214548%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1432914485%_ + _%tl1439214548%_ '0))) - (let ((_%tl1435014402%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '1))) - (_%target1434814399%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '0)))) - (if (gx#stx-null? _%tl1435014402%_) - (_%__match2004720048%_ - _%e1432414468%_ - _%hd1432514472%_ - _%tl1432614475%_ - _%e1432714478%_ - _%hd1432814482%_ - _%tl1432914485%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) + (if (gx#stx-null? _%tl1441314465%_) + (_%__match2011020111%_ + _%e1438714531%_ + _%hd1438814535%_ + _%tl1438914538%_ + _%e1439014541%_ + _%hd1439114545%_ + _%tl1439214548%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1430914362%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1430914362%_))))))) - (_%__match1999119992%_ - (lambda (_%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1431914554%_ - _%hd1432014558%_ - _%tl1432114561%_) - (let ((_%L14564%_ _%hd1432014558%_) - (_%L14566%_ _%hd1431714548%_)) - (if (gx#identifier? _%L14566%_) - (_%__kont1996319964%_ _%L14564%_ _%L14566%_) - (if (gx#stx-pair? _%hd1431714548%_) - (let ((_%e1433014488%_ - (gx#syntax-e _%hd1431714548%_))) - (let ((_%tl1433214495%_ + (_%g1437214425%_))))))) + (_%__match2005420055%_ + (lambda (_%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) + (let ((_%L14627%_ _%hd1438314621%_) + (_%L14629%_ _%hd1438014611%_)) + (if (gx#identifier? _%L14629%_) + (_%__kont2002620027%_ _%L14627%_ _%L14629%_) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ + (gx#syntax-e _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1433014488%_))) - (_%hd1433114492%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1433014488%_)))) - (if (gx#identifier? _%hd1433114492%_) + (##car _%e1439314551%_)))) + (if (gx#identifier? _%hd1439414555%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20992_| - _%hd1433114492%_) - (_%__match2002120022%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%e1431914554%_ - _%hd1432014558%_ - _%tl1432114561%_) + |gerbil/core/sugar~Sugar-2[1]#_g21055_| + _%hd1439414555%_) + (_%__match2008420085%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) (if (gx#stx-pair/null? - _%tl1431814551%_) - (let ((_%__splice1996919970%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1431814551%_ + _%tl1438114614%_ '0))) - (let ((_%tl1435014402%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '1))) - (_%target1434814399%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1435014402%_) - (_%__match2004720048%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1430914362%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1430914362%_)))) + (_%g1437214425%_)))) (if (gx#stx-pair/null? - _%tl1431814551%_) - (let ((_%__splice1996919970%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1431814551%_ + _%tl1438114614%_ '0))) - (let ((_%tl1435014402%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '1))) - (_%target1434814399%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1435014402%_) - (_%__match2004720048%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1430914362%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1430914362%_)))))) + (_%g1437214425%_)))))) (let () (declare (not safe)) - (_%g1430914362%_)))))))) - (if (gx#stx-pair? _%__stx1996019961%_) - (let ((_%e1431314534%_ (gx#syntax-e _%__stx1996019961%_))) - (let ((_%tl1431514541%_ + (_%g1437214425%_)))))))) + (if (gx#stx-pair? _%__stx2002320024%_) + (let ((_%e1437614597%_ (gx#syntax-e _%__stx2002320024%_))) + (let ((_%tl1437814604%_ (let () (declare (not safe)) - (##cdr _%e1431314534%_))) - (_%hd1431414538%_ + (##cdr _%e1437614597%_))) + (_%hd1437714601%_ (let () (declare (not safe)) - (##car _%e1431314534%_)))) - (if (gx#stx-pair? _%tl1431514541%_) - (let ((_%e1431614544%_ - (gx#syntax-e _%tl1431514541%_))) - (let ((_%tl1431814551%_ + (##car _%e1437614597%_)))) + (if (gx#stx-pair? _%tl1437814604%_) + (let ((_%e1437914607%_ + (gx#syntax-e _%tl1437814604%_))) + (let ((_%tl1438114614%_ (let () (declare (not safe)) - (##cdr _%e1431614544%_))) - (_%hd1431714548%_ + (##cdr _%e1437914607%_))) + (_%hd1438014611%_ (let () (declare (not safe)) - (##car _%e1431614544%_)))) - (if (gx#stx-pair? _%tl1431814551%_) - (let ((_%e1431914554%_ - (gx#syntax-e _%tl1431814551%_))) - (let ((_%tl1432114561%_ + (##car _%e1437914607%_)))) + (if (gx#stx-pair? _%tl1438114614%_) + (let ((_%e1438214617%_ + (gx#syntax-e _%tl1438114614%_))) + (let ((_%tl1438414624%_ (let () (declare (not safe)) - (##cdr _%e1431914554%_))) - (_%hd1432014558%_ + (##cdr _%e1438214617%_))) + (_%hd1438314621%_ (let () (declare (not safe)) - (##car _%e1431914554%_)))) - (if (gx#stx-null? _%tl1432114561%_) - (_%__match1999119992%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1431914554%_ - _%hd1432014558%_ - _%tl1432114561%_) - (if (gx#stx-pair? _%hd1431714548%_) - (let ((_%e1433014488%_ + (##car _%e1438214617%_)))) + (if (gx#stx-null? _%tl1438414624%_) + (_%__match2005420055%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1438214617%_ + _%hd1438314621%_ + _%tl1438414624%_) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ (gx#syntax-e - _%hd1431714548%_))) - (let ((_%tl1433214495%_ + _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1433014488%_))) - (_%hd1433114492%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1433014488%_)))) + (##car _%e1439314551%_)))) (if (gx#stx-pair/null? - _%tl1431814551%_) - (let ((_%__splice1996919970%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1431814551%_ + _%tl1438114614%_ '0))) - (let ((_%tl1435014402%_ + (let ((_%tl1441314465%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##vector-ref _%__splice1996919970%_ '1))) - (_%target1434814399%_ + (##vector-ref _%__splice2003220033%_ '1))) + (_%target1441114462%_ (let () (declare (not safe)) - (##vector-ref _%__splice1996919970%_ '0)))) - (if (gx#stx-null? _%tl1435014402%_) - (_%__match2004720048%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) - (let () (declare (not safe)) (_%g1430914362%_))))) - (let () (declare (not safe)) (_%g1430914362%_))))) + (##vector-ref _%__splice2003220033%_ '0)))) + (if (gx#stx-null? _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) + (let () (declare (not safe)) (_%g1437214425%_))))) + (let () (declare (not safe)) (_%g1437214425%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1430914362%_)))))) - (if (gx#stx-pair? _%hd1431714548%_) - (let ((_%e1433014488%_ - (gx#syntax-e _%hd1431714548%_))) - (let ((_%tl1433214495%_ + (_%g1437214425%_)))))) + (if (gx#stx-pair? _%hd1438014611%_) + (let ((_%e1439314551%_ + (gx#syntax-e _%hd1438014611%_))) + (let ((_%tl1439514558%_ (let () (declare (not safe)) - (##cdr _%e1433014488%_))) - (_%hd1433114492%_ + (##cdr _%e1439314551%_))) + (_%hd1439414555%_ (let () (declare (not safe)) - (##car _%e1433014488%_)))) + (##car _%e1439314551%_)))) (if (gx#stx-pair/null? - _%tl1431814551%_) - (let ((_%__splice1996919970%_ + _%tl1438114614%_) + (let ((_%__splice2003220033%_ (gx#syntax-split-splice - _%tl1431814551%_ + _%tl1438114614%_ '0))) - (let ((_%tl1435014402%_ + (let ((_%tl1441314465%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '1))) - (_%target1434814399%_ + (_%target1441114462%_ (let () (declare (not safe)) (##vector-ref - _%__splice1996919970%_ + _%__splice2003220033%_ '0)))) (if (gx#stx-null? - _%tl1435014402%_) - (_%__match2004720048%_ - _%e1431314534%_ - _%hd1431414538%_ - _%tl1431514541%_ - _%e1431614544%_ - _%hd1431714548%_ - _%tl1431814551%_ - _%e1433014488%_ - _%hd1433114492%_ - _%tl1433214495%_ - _%__splice1996919970%_ - _%target1434814399%_ - _%tl1435014402%_) + _%tl1441314465%_) + (_%__match2011020111%_ + _%e1437614597%_ + _%hd1437714601%_ + _%tl1437814604%_ + _%e1437914607%_ + _%hd1438014611%_ + _%tl1438114614%_ + _%e1439314551%_ + _%hd1439414555%_ + _%tl1439514558%_ + _%__splice2003220033%_ + _%target1441114462%_ + _%tl1441314465%_) (let () (declare (not safe)) - (_%g1430914362%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1430914362%_))))) + (_%g1437214425%_))))) (let () (declare (not safe)) - (_%g1430914362%_)))))) - (let () (declare (not safe)) (_%g1430914362%_))))) - (let () (declare (not safe)) (_%g1430914362%_)))))))) + (_%g1437214425%_)))))) + (let () (declare (not safe)) (_%g1437214425%_))))) + (let () (declare (not safe)) (_%g1437214425%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet| - (lambda (_%stx14586%_) - (letrec ((_%let-bind?14589%_ - (lambda (_%x15512%_) - (let* ((_%__stx2005020051%_ _%x15512%_) - (_%g1551715536%_ + (lambda (_%stx14649%_) + (letrec ((_%let-bind?14652%_ + (lambda (_%x15575%_) + (let* ((_%__stx2011320114%_ _%x15575%_) + (_%g1558015599%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2005020051%_)))) - (let ((_%__kont2005320054%_ - (lambda (_%L15604%_ _%L15606%_) - (_%let-head?14592%_ _%L15606%_))) - (_%__kont2005520056%_ (lambda (_%L15564%_) '#t)) - (_%__kont2005720058%_ (lambda () '#f))) - (if (gx#stx-pair? _%__stx2005020051%_) - (let ((_%e1552115584%_ - (gx#syntax-e _%__stx2005020051%_))) - (let ((_%tl1552315591%_ + _%__stx2011320114%_)))) + (let ((_%__kont2011620117%_ + (lambda (_%L15667%_ _%L15669%_) + (_%let-head?14655%_ _%L15669%_))) + (_%__kont2011820119%_ (lambda (_%L15627%_) '#t)) + (_%__kont2012020121%_ (lambda () '#f))) + (if (gx#stx-pair? _%__stx2011320114%_) + (let ((_%e1558415647%_ + (gx#syntax-e _%__stx2011320114%_))) + (let ((_%tl1558615654%_ (let () (declare (not safe)) - (##cdr _%e1552115584%_))) - (_%hd1552215588%_ + (##cdr _%e1558415647%_))) + (_%hd1558515651%_ (let () (declare (not safe)) - (##car _%e1552115584%_)))) - (if (gx#stx-pair? _%tl1552315591%_) - (let ((_%e1552415594%_ - (gx#syntax-e _%tl1552315591%_))) - (let ((_%tl1552615601%_ + (##car _%e1558415647%_)))) + (if (gx#stx-pair? _%tl1558615654%_) + (let ((_%e1558715657%_ + (gx#syntax-e _%tl1558615654%_))) + (let ((_%tl1558915664%_ (let () (declare (not safe)) - (##cdr _%e1552415594%_))) - (_%hd1552515598%_ + (##cdr _%e1558715657%_))) + (_%hd1558815661%_ (let () (declare (not safe)) - (##car _%e1552415594%_)))) - (if (gx#stx-null? _%tl1552615601%_) - (_%__kont2005320054%_ - _%hd1552515598%_ - _%hd1552215588%_) - (_%__kont2005720058%_)))) - (if (gx#stx-null? _%tl1552315591%_) - (_%__kont2005520056%_ _%hd1552215588%_) - (_%__kont2005720058%_))))) - (_%__kont2005720058%_)))))) - (_%let-bind14591%_ - (lambda (_%x15414%_) - (let* ((_%__stx2008420085%_ _%x15414%_) - (_%g1541815437%_ + (##car _%e1558715657%_)))) + (if (gx#stx-null? _%tl1558915664%_) + (_%__kont2011620117%_ + _%hd1558815661%_ + _%hd1558515651%_) + (_%__kont2012020121%_)))) + (if (gx#stx-null? _%tl1558615654%_) + (_%__kont2011820119%_ _%hd1558515651%_) + (_%__kont2012020121%_))))) + (_%__kont2012020121%_)))))) + (_%let-bind14654%_ + (lambda (_%x15477%_) + (let* ((_%__stx2014720148%_ _%x15477%_) + (_%g1548115500%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2008420085%_)))) - (let ((_%__kont2008720088%_ - (lambda (_%L15493%_ _%L15495%_) _%x15414%_)) - (_%__kont2008920090%_ - (lambda (_%L15454%_) + _%__stx2014720148%_)))) + (let ((_%__kont2015020151%_ + (lambda (_%L15556%_ _%L15558%_) _%x15477%_)) + (_%__kont2015220153%_ + (lambda (_%L15517%_) (cons (gx#datum->syntax '#f '_) - (cons _%L15454%_ '()))))) - (if (gx#stx-pair? _%__stx2008420085%_) - (let ((_%e1542215473%_ - (gx#syntax-e _%__stx2008420085%_))) - (let ((_%tl1542415480%_ + (cons _%L15517%_ '()))))) + (if (gx#stx-pair? _%__stx2014720148%_) + (let ((_%e1548515536%_ + (gx#syntax-e _%__stx2014720148%_))) + (let ((_%tl1548715543%_ (let () (declare (not safe)) - (##cdr _%e1542215473%_))) - (_%hd1542315477%_ + (##cdr _%e1548515536%_))) + (_%hd1548615540%_ (let () (declare (not safe)) - (##car _%e1542215473%_)))) - (if (gx#stx-pair? _%tl1542415480%_) - (let ((_%e1542515483%_ - (gx#syntax-e _%tl1542415480%_))) - (let ((_%tl1542715490%_ + (##car _%e1548515536%_)))) + (if (gx#stx-pair? _%tl1548715543%_) + (let ((_%e1548815546%_ + (gx#syntax-e _%tl1548715543%_))) + (let ((_%tl1549015553%_ (let () (declare (not safe)) - (##cdr _%e1542515483%_))) - (_%hd1542615487%_ + (##cdr _%e1548815546%_))) + (_%hd1548915550%_ (let () (declare (not safe)) - (##car _%e1542515483%_)))) - (if (gx#stx-null? _%tl1542715490%_) - (_%__kont2008720088%_ - _%hd1542615487%_ - _%hd1542315477%_) + (##car _%e1548815546%_)))) + (if (gx#stx-null? _%tl1549015553%_) + (_%__kont2015020151%_ + _%hd1548915550%_ + _%hd1548615540%_) (let () (declare (not safe)) - (_%g1541815437%_))))) - (if (gx#stx-null? _%tl1542415480%_) - (_%__kont2008920090%_ _%hd1542315477%_) + (_%g1548115500%_))))) + (if (gx#stx-null? _%tl1548715543%_) + (_%__kont2015220153%_ _%hd1548615540%_) (let () (declare (not safe)) - (_%g1541815437%_)))))) + (_%g1548115500%_)))))) (let () (declare (not safe)) - (_%g1541815437%_))))))) - (_%let-head?14592%_ - (lambda (_%x15354%_) - (let* ((_%__stx2011620117%_ _%x15354%_) - (_%g1535815369%_ + (_%g1548115500%_))))))) + (_%let-head?14655%_ + (lambda (_%x15417%_) + (let* ((_%__stx2017920180%_ _%x15417%_) + (_%g1542115432%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2011620117%_)))) - (let ((_%__kont2011920120%_ - (lambda (_%L15397%_) - (gx#stx-andmap gx#identifier? _%L15397%_))) - (_%__kont2012120122%_ - (lambda () (gx#identifier? _%x15354%_)))) - (if (gx#stx-pair? _%__stx2011620117%_) - (let ((_%e1536115387%_ - (gx#syntax-e _%__stx2011620117%_))) - (let ((_%tl1536315394%_ + _%__stx2017920180%_)))) + (let ((_%__kont2018220183%_ + (lambda (_%L15460%_) + (gx#stx-andmap gx#identifier? _%L15460%_))) + (_%__kont2018420185%_ + (lambda () (gx#identifier? _%x15417%_)))) + (if (gx#stx-pair? _%__stx2017920180%_) + (let ((_%e1542415450%_ + (gx#syntax-e _%__stx2017920180%_))) + (let ((_%tl1542615457%_ (let () (declare (not safe)) - (##cdr _%e1536115387%_))) - (_%hd1536215391%_ + (##cdr _%e1542415450%_))) + (_%hd1542515454%_ (let () (declare (not safe)) - (##car _%e1536115387%_)))) - (if (gx#identifier? _%hd1536215391%_) + (##car _%e1542415450%_)))) + (if (gx#identifier? _%hd1542515454%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20993_| - _%hd1536215391%_) - (_%__kont2011920120%_ _%tl1536315394%_) - (_%__kont2012120122%_)) - (_%__kont2012120122%_)))) - (_%__kont2012120122%_)))))) - (_%let-head14593%_ - (lambda (_%x15294%_) - (let* ((_%__stx2013620137%_ _%x15294%_) - (_%g1529815309%_ + |gerbil/core/sugar~Sugar-2[1]#_g21056_| + _%hd1542515454%_) + (_%__kont2018220183%_ _%tl1542615457%_) + (_%__kont2018420185%_)) + (_%__kont2018420185%_)))) + (_%__kont2018420185%_)))))) + (_%let-head14656%_ + (lambda (_%x15357%_) + (let* ((_%__stx2019920200%_ _%x15357%_) + (_%g1536115372%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2013620137%_)))) - (let ((_%__kont2013920140%_ - (lambda (_%L15337%_) _%L15337%_)) - (_%__kont2014120142%_ - (lambda () (list _%x15294%_)))) - (if (gx#stx-pair? _%__stx2013620137%_) - (let ((_%e1530115327%_ - (gx#syntax-e _%__stx2013620137%_))) - (let ((_%tl1530315334%_ + _%__stx2019920200%_)))) + (let ((_%__kont2020220203%_ + (lambda (_%L15400%_) _%L15400%_)) + (_%__kont2020420205%_ + (lambda () (list _%x15357%_)))) + (if (gx#stx-pair? _%__stx2019920200%_) + (let ((_%e1536415390%_ + (gx#syntax-e _%__stx2019920200%_))) + (let ((_%tl1536615397%_ (let () (declare (not safe)) - (##cdr _%e1530115327%_))) - (_%hd1530215331%_ + (##cdr _%e1536415390%_))) + (_%hd1536515394%_ (let () (declare (not safe)) - (##car _%e1530115327%_)))) - (if (gx#identifier? _%hd1530215331%_) + (##car _%e1536415390%_)))) + (if (gx#identifier? _%hd1536515394%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g20994_| - _%hd1530215331%_) - (_%__kont2013920140%_ _%tl1530315334%_) - (_%__kont2014120142%_)) - (_%__kont2014120142%_)))) - (_%__kont2014120142%_))))))) - (let* ((_%__stx2015620157%_ _%stx14586%_) - (_%g1459714669%_ + |gerbil/core/sugar~Sugar-2[1]#_g21057_| + _%hd1536515394%_) + (_%__kont2020220203%_ _%tl1536615397%_) + (_%__kont2020420205%_)) + (_%__kont2020420205%_)))) + (_%__kont2020420205%_))))))) + (let* ((_%__stx2021920220%_ _%stx14649%_) + (_%g1466014732%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2015620157%_)))) - (let ((_%__kont2015920160%_ - (lambda (_%L15267%_ _%L15269%_ _%L15270%_ _%L15271%_) - (cons _%L15271%_ - (cons (cons (cons _%L15270%_ (cons _%L15269%_ '())) + _%__stx2021920220%_)))) + (let ((_%__kont2022220223%_ + (lambda (_%L15330%_ _%L15332%_ _%L15333%_ _%L15334%_) + (cons _%L15334%_ + (cons (cons (cons _%L15333%_ (cons _%L15332%_ '())) '()) - _%L15267%_)))) - (_%__kont2016120162%_ - (lambda (_%L15189%_ _%L15191%_) + _%L15330%_)))) + (_%__kont2022420225%_ + (lambda (_%L15252%_ _%L15254%_) (cons (gx#datum->syntax '#f 'and) - (cons _%L15191%_ + (cons _%L15254%_ (cons (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1521115214%_ + (foldr (lambda (_%g1527415277%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1521215217%_) - (cons _%g1521115214%_ _%g1521215217%_)) + _%g1527515280%_) + (cons _%g1527415277%_ _%g1527515280%_)) '() - _%L15189%_))) + _%L15252%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2016520166%_ - (lambda (_%L14756%_ _%L14758%_) - (let* ((_%g1478914815%_ - (lambda (_%g1479014811%_) + (_%__kont2022820229%_ + (lambda (_%L14819%_ _%L14821%_) + (let* ((_%g1485214878%_ + (lambda (_%g1485314874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1479014811%_))) - (_%g1478815100%_ - (lambda (_%g1479014819%_) - (if (gx#stx-pair/null? _%g1479014819%_) - (let ((_g20995_ + _%g1485314874%_))) + (_%g1485115163%_ + (lambda (_%g1485314882%_) + (if (gx#stx-pair/null? _%g1485314882%_) + (let ((_g21058_ (gx#syntax-split-splice - _%g1479014819%_ + _%g1485314882%_ '0))) (begin - (let ((_g20996_ + (let ((_g21059_ (let () (declare (not safe)) - (if (##values? _g20995_) - (##vector-length _g20995_) + (if (##values? _g21058_) + (##values-length _g21058_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20996_ 2))) + (##fx= _g21059_ 2))) (error "Context expects 2 values" - _g20996_))) - (let ((_%target1479314822%_ + _g21059_))) + (let ((_%target1485614885%_ (let () (declare (not safe)) - (##vector-ref _g20995_ 0))) - (_%tl1479514825%_ + (##values-ref _g21058_ 0))) + (_%tl1485814888%_ (let () (declare (not safe)) - (##vector-ref _g20995_ 1)))) - (if (gx#stx-null? _%tl1479514825%_) - (letrec ((_%loop1479614828%_ - (lambda (_%hd1479414832%_ - _%e1480014835%_ - _%hd1480114837%_) + (##values-ref _g21058_ 1)))) + (if (gx#stx-null? _%tl1485814888%_) + (letrec ((_%loop1485914891%_ + (lambda (_%hd1485714895%_ + _%e1486314898%_ + _%hd1486414900%_) (if (gx#stx-pair? - _%hd1479414832%_) - (let ((_%e1479714840%_ + _%hd1485714895%_) + (let ((_%e1486014903%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd1479414832%_))) - (let ((_%lp-hd1479814844%_ + (gx#syntax-e _%hd1485714895%_))) + (let ((_%lp-hd1486114907%_ (let () (declare (not safe)) - (##car _%e1479714840%_))) - (_%lp-tl1479914847%_ + (##car _%e1486014903%_))) + (_%lp-tl1486214910%_ (let () (declare (not safe)) - (##cdr _%e1479714840%_)))) - (if (gx#stx-pair? _%lp-hd1479814844%_) - (let ((_%e1480414850%_ - (gx#syntax-e _%lp-hd1479814844%_))) - (let ((_%hd1480514854%_ + (##cdr _%e1486014903%_)))) + (if (gx#stx-pair? _%lp-hd1486114907%_) + (let ((_%e1486714913%_ + (gx#syntax-e _%lp-hd1486114907%_))) + (let ((_%hd1486814917%_ (let () (declare (not safe)) - (##car _%e1480414850%_))) - (_%tl1480614857%_ + (##car _%e1486714913%_))) + (_%tl1486914920%_ (let () (declare (not safe)) - (##cdr _%e1480414850%_)))) - (if (gx#stx-pair? _%tl1480614857%_) - (let ((_%e1480714860%_ - (gx#syntax-e _%tl1480614857%_))) - (let ((_%hd1480814864%_ + (##cdr _%e1486714913%_)))) + (if (gx#stx-pair? _%tl1486914920%_) + (let ((_%e1487014923%_ + (gx#syntax-e _%tl1486914920%_))) + (let ((_%hd1487114927%_ (let () (declare (not safe)) - (##car _%e1480714860%_))) - (_%tl1480914867%_ + (##car _%e1487014923%_))) + (_%tl1487214930%_ (let () (declare (not safe)) - (##cdr _%e1480714860%_)))) - (if (gx#stx-null? _%tl1480914867%_) - (_%loop1479614828%_ - _%lp-tl1479914847%_ - (cons _%hd1480814864%_ - _%e1480014835%_) - (cons _%hd1480514854%_ - _%hd1480114837%_)) - (_%g1478914815%_ - _%g1479014819%_)))) - (_%g1478914815%_ _%g1479014819%_)))) - (_%g1478914815%_ _%g1479014819%_)))) - (let ((_%e1480214870%_ (reverse _%e1480014835%_)) - (_%hd1480314873%_ (reverse _%hd1480114837%_))) - ((lambda (_%L14876%_ _%L14878%_) - (let* ((_%g1489414911%_ - (lambda (_%g1489514907%_) + (##cdr _%e1487014923%_)))) + (if (gx#stx-null? _%tl1487214930%_) + (_%loop1485914891%_ + _%lp-tl1486214910%_ + (cons _%hd1487114927%_ + _%e1486314898%_) + (cons _%hd1486814917%_ + _%hd1486414900%_)) + (_%g1485214878%_ + _%g1485314882%_)))) + (_%g1485214878%_ _%g1485314882%_)))) + (_%g1485214878%_ _%g1485314882%_)))) + (let ((_%e1486514933%_ (reverse _%e1486314898%_)) + (_%hd1486614936%_ (reverse _%hd1486414900%_))) + ((lambda (_%L14939%_ _%L14941%_) + (let* ((_%g1495714974%_ + (lambda (_%g1495814970%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1489514907%_))) - (_%g1489315088%_ - (lambda (_%g1489514915%_) - (if (gx#stx-pair/null? _%g1489514915%_) - (let ((_g20997_ + _%g1495814970%_))) + (_%g1495615151%_ + (lambda (_%g1495814978%_) + (if (gx#stx-pair/null? _%g1495814978%_) + (let ((_g21060_ (gx#syntax-split-splice - _%g1489514915%_ + _%g1495814978%_ '0))) (begin - (let ((_g20998_ + (let ((_g21061_ (let () (declare (not safe)) - (if (##values? _g20997_) - (##vector-length - _g20997_) + (if (##values? _g21060_) + (##values-length + _g21060_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g20998_ 2))) + (##fx= _g21061_ 2))) (error "Context expects 2 values" - _g20998_))) - (let ((_%target1489714918%_ + _g21061_))) + (let ((_%target1496014981%_ (let () (declare (not safe)) - (##vector-ref - _g20997_ + (##values-ref + _g21060_ 0))) - (_%tl1489914921%_ + (_%tl1496214984%_ (let () (declare (not safe)) - (##vector-ref - _g20997_ + (##values-ref + _g21060_ 1)))) (if (gx#stx-null? - _%tl1489914921%_) - (letrec ((_%loop1490014924%_ - (lambda (_%hd1489814928%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e1490414931%_) - (if (gx#stx-pair? _%hd1489814928%_) - (let ((_%e1490114934%_ - (gx#syntax-e _%hd1489814928%_))) - (let ((_%lp-hd1490214938%_ + _%tl1496214984%_) + (letrec ((_%loop1496314987%_ + (lambda (_%hd1496114991%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%$e1496714994%_) + (if (gx#stx-pair? _%hd1496114991%_) + (let ((_%e1496414997%_ + (gx#syntax-e _%hd1496114991%_))) + (let ((_%lp-hd1496515001%_ (let () (declare (not safe)) - (##car _%e1490114934%_))) - (_%lp-tl1490314941%_ + (##car _%e1496414997%_))) + (_%lp-tl1496615004%_ (let () (declare (not safe)) - (##cdr _%e1490114934%_)))) - (_%loop1490014924%_ - _%lp-tl1490314941%_ - (cons _%lp-hd1490214938%_ _%$e1490414931%_)))) - (let ((_%$e1490514944%_ (reverse _%$e1490414931%_))) - ((lambda (_%L14948%_) - (let* ((_%g1496514982%_ - (lambda (_%g1496614978%_) + (##cdr _%e1496414997%_)))) + (_%loop1496314987%_ + _%lp-tl1496615004%_ + (cons _%lp-hd1496515001%_ _%$e1496714994%_)))) + (let ((_%$e1496815007%_ (reverse _%$e1496714994%_))) + ((lambda (_%L15011%_) + (let* ((_%g1502815045%_ + (lambda (_%g1502915041%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1496614978%_))) - (_%g1496415076%_ - (lambda (_%g1496614986%_) + _%g1502915041%_))) + (_%g1502715139%_ + (lambda (_%g1502915049%_) (if (gx#stx-pair/null? - _%g1496614986%_) - (let ((_g20999_ + _%g1502915049%_) + (let ((_g21062_ (gx#syntax-split-splice - _%g1496614986%_ + _%g1502915049%_ '0))) (begin - (let ((_g21000_ + (let ((_g21063_ (let () (declare (not safe)) (if (##values? - _g20999_) - (##vector-length - _g20999_) + _g21062_) + (##values-length + _g21062_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21000_ + (##fx= _g21063_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g21000_))) + (error "Context expects 2 values" _g21063_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1496814989%_ + (let ((_%target1503115052%_ (let () (declare (not safe)) - (##vector-ref - _g20999_ + (##values-ref + _g21062_ 0))) - (_%tl1497014992%_ + (_%tl1503315055%_ (let () (declare (not safe)) - (##vector-ref - _g20999_ + (##values-ref + _g21062_ 1)))) (if (gx#stx-null? - _%tl1497014992%_) - (letrec ((_%loop1497114995%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1496914999%_ _%hd-bind1497515002%_) - (if (gx#stx-pair? _%hd1496914999%_) - (let ((_%e1497215005%_ - (gx#syntax-e _%hd1496914999%_))) - (let ((_%lp-hd1497315009%_ + _%tl1503315055%_) + (letrec ((_%loop1503415058%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (lambda (_%hd1503215062%_ _%hd-bind1503815065%_) + (if (gx#stx-pair? _%hd1503215062%_) + (let ((_%e1503515068%_ + (gx#syntax-e _%hd1503215062%_))) + (let ((_%lp-hd1503615072%_ (let () (declare (not safe)) - (##car _%e1497215005%_))) - (_%lp-tl1497415012%_ + (##car _%e1503515068%_))) + (_%lp-tl1503715075%_ (let () (declare (not safe)) - (##cdr _%e1497215005%_)))) - (_%loop1497114995%_ - _%lp-tl1497415012%_ - (cons _%lp-hd1497315009%_ - _%hd-bind1497515002%_)))) - (let ((_%hd-bind1497615015%_ - (reverse _%hd-bind1497515002%_))) - ((lambda (_%L15019%_) + (##cdr _%e1503515068%_)))) + (_%loop1503415058%_ + _%lp-tl1503715075%_ + (cons _%lp-hd1503615072%_ + _%hd-bind1503815065%_)))) + (let ((_%hd-bind1503915078%_ + (reverse _%hd-bind1503815065%_))) + ((lambda (_%L15082%_) (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14876%_ - _%L14948%_) - (foldr (lambda (_%g1504415048%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1504515051%_ - _%g1504615053%_) - (cons (cons (cons _%g1504515051%_ '()) - (cons _%g1504415048%_ '())) - _%g1504615053%_)) + _%L14939%_ + _%L15011%_) + (foldr (lambda (_%g1510715111%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%g1510815114%_ + _%g1510915116%_) + (cons (cons (cons _%g1510815114%_ '()) + (cons _%g1510715111%_ '())) + _%g1510915116%_)) '() - _%L14876%_ - _%L14948%_)) + _%L14939%_ + _%L15011%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'and) - (foldr (lambda (_%g1503715056%_ + (foldr (lambda (_%g1510015119%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1503815059%_) - (cons _%g1503715056%_ _%g1503815059%_)) + _%g1510115122%_) + (cons _%g1510015119%_ _%g1510115122%_)) (cons (cons (gx#datum->syntax '#f 'let-values) (cons (begin (gx#syntax-check-splice-targets - _%L14948%_ - _%L15019%_) - (foldr (lambda (_%g1504115062%_ - _%g1504215065%_ - _%g1504315067%_) - (cons (cons _%g1504215065%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g1504115062%_ '())) - _%g1504315067%_)) + _%L15011%_ + _%L15082%_) + (foldr (lambda (_%g1510415125%_ + _%g1510515128%_ + _%g1510615130%_) + (cons (cons _%g1510515128%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + (cons _%g1510415125%_ '())) + _%g1510615130%_)) '() - _%L14948%_ - _%L15019%_)) + _%L15011%_ + _%L15082%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (foldr (lambda (_%g1503915070%_ - _%g1504015073%_) - (cons _%g1503915070%_ - _%g1504015073%_)) + (foldr (lambda (_%g1510215133%_ + _%g1510315136%_) + (cons _%g1510215133%_ + _%g1510315136%_)) '() - _%L14756%_))) + _%L14819%_))) '()) - _%L14948%_)) + _%L15011%_)) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd-bind1497615015%_)))))) - (_%loop1497114995%_ _%target1496814989%_ '())) - (_%g1496514982%_ _%g1496614986%_))))) + _%hd-bind1503915078%_)))))) + (_%loop1503415058%_ _%target1503115052%_ '())) + (_%g1502815045%_ _%g1502915049%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1496514982%_ - _%g1496614986%_))))) - (_%g1496415076%_ + (_%g1502815045%_ + _%g1502915049%_))))) + (_%g1502715139%_ (gx#stx-map - _%let-head14593%_ - (foldr (lambda (_%g1507915082%_ - _%g1508015085%_) - (cons _%g1507915082%_ - _%g1508015085%_)) + _%let-head14656%_ + (foldr (lambda (_%g1514215145%_ + _%g1514315148%_) + (cons _%g1514215145%_ + _%g1514315148%_)) '() - _%L14878%_))))) - _%$e1490514944%_)))))) + _%L14941%_))))) + _%$e1496815007%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1490014924%_ - _%target1489714918%_ + (_%loop1496314987%_ + _%target1496014981%_ '())) - (_%g1489414911%_ - _%g1489514915%_))))) - (_%g1489414911%_ _%g1489514915%_))))) - (_%g1489315088%_ + (_%g1495714974%_ + _%g1495814978%_))))) + (_%g1495714974%_ _%g1495814978%_))))) + (_%g1495615151%_ (gx#gentemps - (foldr (lambda (_%g1509115094%_ _%g1509215097%_) - (cons _%g1509115094%_ _%g1509215097%_)) + (foldr (lambda (_%g1515415157%_ _%g1515515160%_) + (cons _%g1515415157%_ _%g1515515160%_)) '() - _%L14878%_))))) - _%e1480214870%_ - _%hd1480314873%_)))))) + _%L14941%_))))) + _%e1486514933%_ + _%hd1486614936%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1479614828%_ - _%target1479314822%_ + (_%loop1485914891%_ + _%target1485614885%_ '() '())) - (_%g1478914815%_ - _%g1479014819%_))))) - (_%g1478914815%_ _%g1479014819%_))))) - (_%g1478815100%_ + (_%g1485214878%_ + _%g1485314882%_))))) + (_%g1485214878%_ _%g1485314882%_))))) + (_%g1485115163%_ (gx#stx-map - _%let-bind14591%_ - (foldr (lambda (_%g1510315106%_ _%g1510415109%_) - (cons _%g1510315106%_ _%g1510415109%_)) + _%let-bind14654%_ + (foldr (lambda (_%g1516615169%_ _%g1516715172%_) + (cons _%g1516615169%_ _%g1516715172%_)) '() - _%L14758%_))))))) - (let* ((_%__match2025320254%_ - (lambda (_%e1464014676%_ - _%hd1464114680%_ - _%tl1464214683%_ - _%e1464314686%_ - _%hd1464414690%_ - _%tl1464514693%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) - (letrec ((_%loop1464914702%_ - (lambda (_%hd1464714706%_ _%bind1465314709%_) - (if (gx#stx-pair? _%hd1464714706%_) - (let ((_%e1465014712%_ - (gx#syntax-e _%hd1464714706%_))) - (let ((_%lp-tl1465214719%_ + _%L14821%_))))))) + (let* ((_%__match2031620317%_ + (lambda (_%e1470314739%_ + _%hd1470414743%_ + _%tl1470514746%_ + _%e1470614749%_ + _%hd1470714753%_ + _%tl1470814756%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (letrec ((_%loop1471214765%_ + (lambda (_%hd1471014769%_ _%bind1471614772%_) + (if (gx#stx-pair? _%hd1471014769%_) + (let ((_%e1471314775%_ + (gx#syntax-e _%hd1471014769%_))) + (let ((_%lp-tl1471514782%_ (let () (declare (not safe)) - (##cdr _%e1465014712%_))) - (_%lp-hd1465114716%_ + (##cdr _%e1471314775%_))) + (_%lp-hd1471414779%_ (let () (declare (not safe)) - (##car _%e1465014712%_)))) - (_%loop1464914702%_ - _%lp-tl1465214719%_ - (cons _%lp-hd1465114716%_ - _%bind1465314709%_)))) - (let ((_%bind1465414722%_ - (reverse _%bind1465314709%_))) + (##car _%e1471314775%_)))) + (_%loop1471214765%_ + _%lp-tl1471514782%_ + (cons _%lp-hd1471414779%_ + _%bind1471614772%_)))) + (let ((_%bind1471714785%_ + (reverse _%bind1471614772%_))) (if (gx#stx-pair/null? - _%tl1464514693%_) - (let ((_%__splice2016920170%_ + _%tl1470814756%_) + (let ((_%__splice2023220233%_ (gx#syntax-split-splice - _%tl1464514693%_ + _%tl1470814756%_ '0))) - (let ((_%tl1465714729%_ + (let ((_%tl1472014792%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016920170%_ + _%__splice2023220233%_ '1))) - (_%target1465514726%_ + (_%target1471814789%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016920170%_ + _%__splice2023220233%_ '0)))) (if (gx#stx-null? - _%tl1465714729%_) - (letrec ((_%loop1465814732%_ - (lambda (_%hd1465614736%_ -;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1466214739%_) - (if (gx#stx-pair? _%hd1465614736%_) - (let ((_%e1465914742%_ - (gx#syntax-e _%hd1465614736%_))) - (let ((_%lp-tl1466114749%_ + _%tl1472014792%_) + (letrec ((_%loop1472114795%_ + (lambda (_%hd1471914799%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + _%body1472514802%_) + (if (gx#stx-pair? _%hd1471914799%_) + (let ((_%e1472214805%_ + (gx#syntax-e _%hd1471914799%_))) + (let ((_%lp-tl1472414812%_ (let () (declare (not safe)) - (##cdr _%e1465914742%_))) - (_%lp-hd1466014746%_ + (##cdr _%e1472214805%_))) + (_%lp-hd1472314809%_ (let () (declare (not safe)) - (##car _%e1465914742%_)))) - (_%loop1465814732%_ - _%lp-tl1466114749%_ - (cons _%lp-hd1466014746%_ - _%body1466214739%_)))) - (let ((_%body1466314752%_ - (reverse _%body1466214739%_))) - (let ((_%L14756%_ _%body1466314752%_) - (_%L14758%_ _%bind1465414722%_)) + (##car _%e1472214805%_)))) + (_%loop1472114795%_ + _%lp-tl1472414812%_ + (cons _%lp-hd1472314809%_ + _%body1472514802%_)))) + (let ((_%body1472614815%_ + (reverse _%body1472514802%_))) + (let ((_%L14819%_ _%body1472614815%_) + (_%L14821%_ _%bind1471714785%_)) (if (gx#stx-andmap - _%let-bind?14589%_ - (foldr (lambda (_%g1478014783%_ - _%g1478114786%_) - (cons _%g1478014783%_ - _%g1478114786%_)) + _%let-bind?14652%_ + (foldr (lambda (_%g1484314846%_ + _%g1484414849%_) + (cons _%g1484314846%_ + _%g1484414849%_)) '() - _%L14758%_)) - (_%__kont2016520166%_ - _%L14756%_ - _%L14758%_) + _%L14821%_)) + (_%__kont2022820229%_ + _%L14819%_ + _%L14821%_) (let () (declare (not safe)) - (_%g1459714669%_))))))))) - (_%loop1465814732%_ _%target1465514726%_ '())) - (let () (declare (not safe)) (_%g1459714669%_))))) + (_%g1466014732%_))))))))) + (_%loop1472114795%_ _%target1471814789%_ '())) + (let () (declare (not safe)) (_%g1466014732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1459714669%_)))))))) - (_%loop1464914702%_ _%target1464614696%_ '())))) - (_%__match2023320234%_ - (lambda (_%e1461715119%_ - _%hd1461815123%_ - _%tl1461915126%_ - _%e1462015129%_ - _%hd1462115133%_ - _%tl1462215136%_ - _%e1462315139%_ - _%hd1462415143%_ - _%tl1462515146%_ - _%e1462615149%_ - _%hd1462715153%_ - _%tl1462815156%_ - _%__splice2016320164%_ - _%target1462915159%_ - _%tl1463115162%_) - (letrec ((_%loop1463215165%_ - (lambda (_%hd1463015169%_ _%body1463615172%_) - (if (gx#stx-pair? _%hd1463015169%_) - (let ((_%e1463315175%_ - (gx#syntax-e _%hd1463015169%_))) - (let ((_%lp-tl1463515182%_ + (_%g1466014732%_)))))))) + (_%loop1471214765%_ _%target1470914759%_ '())))) + (_%__match2029620297%_ + (lambda (_%e1468015182%_ + _%hd1468115186%_ + _%tl1468215189%_ + _%e1468315192%_ + _%hd1468415196%_ + _%tl1468515199%_ + _%e1468615202%_ + _%hd1468715206%_ + _%tl1468815209%_ + _%e1468915212%_ + _%hd1469015216%_ + _%tl1469115219%_ + _%__splice2022620227%_ + _%target1469215222%_ + _%tl1469415225%_) + (letrec ((_%loop1469515228%_ + (lambda (_%hd1469315232%_ _%body1469915235%_) + (if (gx#stx-pair? _%hd1469315232%_) + (let ((_%e1469615238%_ + (gx#syntax-e _%hd1469315232%_))) + (let ((_%lp-tl1469815245%_ (let () (declare (not safe)) - (##cdr _%e1463315175%_))) - (_%lp-hd1463415179%_ + (##cdr _%e1469615238%_))) + (_%lp-hd1469715242%_ (let () (declare (not safe)) - (##car _%e1463315175%_)))) - (_%loop1463215165%_ - _%lp-tl1463515182%_ - (cons _%lp-hd1463415179%_ - _%body1463615172%_)))) - (let ((_%body1463715185%_ - (reverse _%body1463615172%_))) - (_%__kont2016120162%_ - _%body1463715185%_ - _%hd1462715153%_)))))) - (_%loop1463215165%_ _%target1462915159%_ '())))) - (_%__match2019720198%_ - (lambda (_%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%e1460915247%_ - _%hd1461015251%_ - _%tl1461115254%_ - _%e1461215257%_ - _%hd1461315261%_ - _%tl1461415264%_) - (let ((_%L15267%_ _%tl1460815244%_) - (_%L15269%_ _%hd1461315261%_) - (_%L15270%_ _%hd1461015251%_) - (_%L15271%_ _%hd1460415231%_)) - (if (_%let-head?14592%_ _%L15270%_) - (_%__kont2015920160%_ - _%L15267%_ - _%L15269%_ - _%L15270%_ - _%L15271%_) - (if (gx#stx-pair? _%hd1461015251%_) - (let ((_%e1462615149%_ - (gx#syntax-e _%hd1461015251%_))) - (let ((_%tl1462815156%_ + (##car _%e1469615238%_)))) + (_%loop1469515228%_ + _%lp-tl1469815245%_ + (cons _%lp-hd1469715242%_ + _%body1469915235%_)))) + (let ((_%body1470015248%_ + (reverse _%body1469915235%_))) + (_%__kont2022420225%_ + _%body1470015248%_ + _%hd1469015216%_)))))) + (_%loop1469515228%_ _%target1469215222%_ '())))) + (_%__match2026020261%_ + (lambda (_%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1467515320%_ + _%hd1467615324%_ + _%tl1467715327%_) + (let ((_%L15330%_ _%tl1467115307%_) + (_%L15332%_ _%hd1467615324%_) + (_%L15333%_ _%hd1467315314%_) + (_%L15334%_ _%hd1466715294%_)) + (if (_%let-head?14655%_ _%L15333%_) + (_%__kont2022220223%_ + _%L15330%_ + _%L15332%_ + _%L15333%_ + _%L15334%_) + (if (gx#stx-pair? _%hd1467315314%_) + (let ((_%e1468915212%_ + (gx#syntax-e _%hd1467315314%_))) + (let ((_%tl1469115219%_ (let () (declare (not safe)) - (##cdr _%e1462615149%_))) - (_%hd1462715153%_ + (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1462615149%_)))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ + (##car _%e1468915212%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '1))) - (_%target1464614696%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '0)))) (if (gx#stx-null? - _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1459714669%_))))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ + (_%g1466014732%_))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '1))) - (_%target1464614696%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1459714669%_))))))))) - (if (gx#stx-pair? _%__stx2015620157%_) - (let ((_%e1460315227%_ (gx#syntax-e _%__stx2015620157%_))) - (let ((_%tl1460515234%_ + (_%g1466014732%_))))))))) + (if (gx#stx-pair? _%__stx2021920220%_) + (let ((_%e1466615290%_ (gx#syntax-e _%__stx2021920220%_))) + (let ((_%tl1466815297%_ (let () (declare (not safe)) - (##cdr _%e1460315227%_))) - (_%hd1460415231%_ + (##cdr _%e1466615290%_))) + (_%hd1466715294%_ (let () (declare (not safe)) - (##car _%e1460315227%_)))) - (if (gx#stx-pair? _%tl1460515234%_) - (let ((_%e1460615237%_ - (gx#syntax-e _%tl1460515234%_))) - (let ((_%tl1460815244%_ + (##car _%e1466615290%_)))) + (if (gx#stx-pair? _%tl1466815297%_) + (let ((_%e1466915300%_ + (gx#syntax-e _%tl1466815297%_))) + (let ((_%tl1467115307%_ (let () (declare (not safe)) - (##cdr _%e1460615237%_))) - (_%hd1460715241%_ + (##cdr _%e1466915300%_))) + (_%hd1467015304%_ (let () (declare (not safe)) - (##car _%e1460615237%_)))) - (if (gx#stx-pair? _%hd1460715241%_) - (let ((_%e1460915247%_ - (gx#syntax-e _%hd1460715241%_))) - (let ((_%tl1461115254%_ + (##car _%e1466915300%_)))) + (if (gx#stx-pair? _%hd1467015304%_) + (let ((_%e1467215310%_ + (gx#syntax-e _%hd1467015304%_))) + (let ((_%tl1467415317%_ (let () (declare (not safe)) - (##cdr _%e1460915247%_))) - (_%hd1461015251%_ + (##cdr _%e1467215310%_))) + (_%hd1467315314%_ (let () (declare (not safe)) - (##car _%e1460915247%_)))) - (if (gx#stx-pair? _%tl1461115254%_) - (let ((_%e1461215257%_ + (##car _%e1467215310%_)))) + (if (gx#stx-pair? _%tl1467415317%_) + (let ((_%e1467515320%_ (gx#syntax-e - _%tl1461115254%_))) - (let ((_%tl1461415264%_ + _%tl1467415317%_))) + (let ((_%tl1467715327%_ (let () (declare (not safe)) - (##cdr _%e1461215257%_))) - (_%hd1461315261%_ + (##cdr _%e1467515320%_))) + (_%hd1467615324%_ (let () (declare (not safe)) - (##car _%e1461215257%_)))) + (##car _%e1467515320%_)))) (if (gx#stx-null? - _%tl1461415264%_) - (_%__match2019720198%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%e1460915247%_ - _%hd1461015251%_ - _%tl1461115254%_ - _%e1461215257%_ - _%hd1461315261%_ - _%tl1461415264%_) + _%tl1467715327%_) + (_%__match2026020261%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1467515320%_ + _%hd1467615324%_ + _%tl1467715327%_) (if (gx#stx-pair? - _%hd1461015251%_) - (let ((_%e1462615149%_ + _%hd1467315314%_) + (let ((_%e1468915212%_ (gx#syntax-e - _%hd1461015251%_))) - (let ((_%tl1462815156%_ + _%hd1467315314%_))) + (let ((_%tl1469115219%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e1462615149%_))) - (_%hd1462715153%_ + (let () (declare (not safe)) (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1462615149%_)))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ - (gx#syntax-split-splice _%hd1460715241%_ '0))) - (let ((_%tl1464814699%_ + (##car _%e1468915212%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '1))) - (_%target1464614696%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_))))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ - (gx#syntax-split-splice _%hd1460715241%_ '0))) - (let ((_%tl1464814699%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '1))) - (_%target1464614696%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) - (let () (declare (not safe)) (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_))))))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%hd1461015251%_) - (let ((_%e1462615149%_ + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (if (gx#stx-pair? _%hd1467315314%_) + (let ((_%e1468915212%_ (gx#syntax-e - _%hd1461015251%_))) - (let ((_%tl1462815156%_ + _%hd1467315314%_))) + (let ((_%tl1469115219%_ (let () (declare (not safe)) - (##cdr _%e1462615149%_))) - (_%hd1462715153%_ + (##cdr _%e1468915212%_))) + (_%hd1469015216%_ (let () (declare (not safe)) - (##car _%e1462615149%_)))) + (##car _%e1468915212%_)))) (if (gx#stx-null? - _%tl1462815156%_) + _%tl1469115219%_) (if (gx#stx-null? - _%tl1461115254%_) + _%tl1467415317%_) (if (gx#stx-pair/null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl1460815244%_) - (let ((_%__splice2016320164%_ - (gx#syntax-split-splice _%tl1460815244%_ '0))) - (let ((_%tl1463115162%_ + _%tl1467115307%_) + (let ((_%__splice2022620227%_ + (gx#syntax-split-splice _%tl1467115307%_ '0))) + (let ((_%tl1469415225%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016320164%_ '1))) - (_%target1462915159%_ + (##vector-ref _%__splice2022620227%_ '1))) + (_%target1469215222%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016320164%_ '0)))) - (if (gx#stx-null? _%tl1463115162%_) - (_%__match2023320234%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%e1460915247%_ - _%hd1461015251%_ - _%tl1461115254%_ - _%e1462615149%_ - _%hd1462715153%_ - _%tl1462815156%_ - _%__splice2016320164%_ - _%target1462915159%_ - _%tl1463115162%_) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ + (##vector-ref _%__splice2022620227%_ '0)))) + (if (gx#stx-null? _%tl1469415225%_) + (_%__match2029620297%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%e1467215310%_ + _%hd1467315314%_ + _%tl1467415317%_ + _%e1468915212%_ + _%hd1469015216%_ + _%tl1469115219%_ + _%__splice2022620227%_ + _%target1469215222%_ + _%tl1469415225%_) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '1))) - (_%target1464614696%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1459714669%_)))))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ + (_%g1466014732%_)))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '1))) - (_%target1464614696%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_)))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ - (gx#syntax-split-splice _%hd1460715241%_ '0))) - (let ((_%tl1464814699%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '1))) - (_%target1464614696%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_)))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ - (gx#syntax-split-splice _%hd1460715241%_ '0))) - (let ((_%tl1464814699%_ + (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ + (gx#syntax-split-splice _%hd1467015304%_ '0))) + (let ((_%tl1471114762%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '1))) - (_%target1464614696%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) - (let () (declare (not safe)) (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_)))))) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair/null? - _%hd1460715241%_) - (let ((_%__splice2016720168%_ + _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice2016720168%_ '1))) - (_%target1464614696%_ + (##vector-ref _%__splice2023020231%_ '1))) + (_%target1470914759%_ (let () (declare (not safe)) - (##vector-ref _%__splice2016720168%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) - (let () (declare (not safe)) (_%g1459714669%_))))) + (##vector-ref _%__splice2023020231%_ '0)))) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) + (let () (declare (not safe)) (_%g1466014732%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g1459714669%_))))))) - (if (gx#stx-pair/null? _%hd1460715241%_) - (let ((_%__splice2016720168%_ + (_%g1466014732%_))))))) + (if (gx#stx-pair/null? _%hd1467015304%_) + (let ((_%__splice2023020231%_ (gx#syntax-split-splice - _%hd1460715241%_ + _%hd1467015304%_ '0))) - (let ((_%tl1464814699%_ + (let ((_%tl1471114762%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '1))) - (_%target1464614696%_ + (_%target1470914759%_ (let () (declare (not safe)) (##vector-ref - _%__splice2016720168%_ + _%__splice2023020231%_ '0)))) - (if (gx#stx-null? _%tl1464814699%_) - (_%__match2025320254%_ - _%e1460315227%_ - _%hd1460415231%_ - _%tl1460515234%_ - _%e1460615237%_ - _%hd1460715241%_ - _%tl1460815244%_ - _%__splice2016720168%_ - _%target1464614696%_ - _%tl1464814699%_) + (if (gx#stx-null? _%tl1471114762%_) + (_%__match2031620317%_ + _%e1466615290%_ + _%hd1466715294%_ + _%tl1466815297%_ + _%e1466915300%_ + _%hd1467015304%_ + _%tl1467115307%_ + _%__splice2023020231%_ + _%target1470914759%_ + _%tl1471114762%_) (let () (declare (not safe)) - (_%g1459714669%_))))) + (_%g1466014732%_))))) (let () (declare (not safe)) - (_%g1459714669%_)))))) - (let () (declare (not safe)) (_%g1459714669%_))))) - (let () (declare (not safe)) (_%g1459714669%_))))))))) + (_%g1466014732%_)))))) + (let () (declare (not safe)) (_%g1466014732%_))))) + (let () (declare (not safe)) (_%g1466014732%_))))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#alet*| - (lambda (_%$stx15629%_) - (let* ((_%__stx2025620257%_ _%$stx15629%_) - (_%g1563515686%_ + (lambda (_%$stx15692%_) + (let* ((_%__stx2031920320%_ _%$stx15692%_) + (_%g1569815749%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2025620257%_)))) - (let ((_%__kont2025920260%_ (lambda () '#t)) - (_%__kont2026120262%_ - (lambda (_%L15844%_) + _%__stx2031920320%_)))) + (let ((_%__kont2032220323%_ (lambda () '#t)) + (_%__kont2032420325%_ + (lambda (_%L15907%_) (cons (gx#datum->syntax '#f 'let) (cons '() - (foldr (lambda (_%g1586015863%_ _%g1586115866%_) - (cons _%g1586015863%_ _%g1586115866%_)) + (foldr (lambda (_%g1592315926%_ _%g1592415929%_) + (cons _%g1592315926%_ _%g1592415929%_)) '() - _%L15844%_))))) - (_%__kont2026520266%_ - (lambda (_%L15753%_ _%L15755%_ _%L15756%_ _%L15757%_) + _%L15907%_))))) + (_%__kont2032820329%_ + (lambda (_%L15816%_ _%L15818%_ _%L15819%_ _%L15820%_) (cons (gx#datum->syntax '#f 'alet) - (cons (cons _%L15756%_ '()) - (cons (cons _%L15757%_ - (cons _%L15755%_ - (foldr (lambda (_%g1577815781%_ + (cons (cons _%L15819%_ '()) + (cons (cons _%L15820%_ + (cons _%L15818%_ + (foldr (lambda (_%g1584115844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1577915784%_) - (cons _%g1577815781%_ _%g1577915784%_)) + _%g1584215847%_) + (cons _%g1584115844%_ _%g1584215847%_)) '() - _%L15753%_))) + _%L15816%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match2033320334%_ - (lambda (_%e1566315693%_ - _%hd1566415697%_ - _%tl1566515700%_ - _%e1566615703%_ - _%hd1566715707%_ - _%tl1566815710%_ - _%e1566915713%_ - _%hd1567015717%_ - _%tl1567115720%_ - _%__splice2026720268%_ - _%target1567215723%_ - _%tl1567415726%_) - (letrec ((_%loop1567515729%_ - (lambda (_%hd1567315733%_ _%body1567915736%_) - (if (gx#stx-pair? _%hd1567315733%_) - (let ((_%e1567615739%_ - (gx#syntax-e _%hd1567315733%_))) - (let ((_%lp-tl1567815746%_ + (let* ((_%__match2039620397%_ + (lambda (_%e1572615756%_ + _%hd1572715760%_ + _%tl1572815763%_ + _%e1572915766%_ + _%hd1573015770%_ + _%tl1573115773%_ + _%e1573215776%_ + _%hd1573315780%_ + _%tl1573415783%_ + _%__splice2033020331%_ + _%target1573515786%_ + _%tl1573715789%_) + (letrec ((_%loop1573815792%_ + (lambda (_%hd1573615796%_ _%body1574215799%_) + (if (gx#stx-pair? _%hd1573615796%_) + (let ((_%e1573915802%_ + (gx#syntax-e _%hd1573615796%_))) + (let ((_%lp-tl1574115809%_ (let () (declare (not safe)) - (##cdr _%e1567615739%_))) - (_%lp-hd1567715743%_ + (##cdr _%e1573915802%_))) + (_%lp-hd1574015806%_ (let () (declare (not safe)) - (##car _%e1567615739%_)))) - (_%loop1567515729%_ - _%lp-tl1567815746%_ - (cons _%lp-hd1567715743%_ - _%body1567915736%_)))) - (let ((_%body1568015749%_ - (reverse _%body1567915736%_))) - (_%__kont2026520266%_ - _%body1568015749%_ - _%tl1567115720%_ - _%hd1567015717%_ - _%hd1566415697%_)))))) - (_%loop1567515729%_ _%target1567215723%_ '())))) - (_%__match2030720308%_ - (lambda (_%e1564415794%_ - _%hd1564515798%_ - _%tl1564615801%_ - _%e1564715804%_ - _%hd1564815808%_ - _%tl1564915811%_ - _%__splice2026320264%_ - _%target1565015814%_ - _%tl1565215817%_) - (letrec ((_%loop1565315820%_ - (lambda (_%hd1565115824%_ _%body1565715827%_) - (if (gx#stx-pair? _%hd1565115824%_) - (let ((_%e1565415830%_ - (gx#syntax-e _%hd1565115824%_))) - (let ((_%lp-tl1565615837%_ + (##car _%e1573915802%_)))) + (_%loop1573815792%_ + _%lp-tl1574115809%_ + (cons _%lp-hd1574015806%_ + _%body1574215799%_)))) + (let ((_%body1574315812%_ + (reverse _%body1574215799%_))) + (_%__kont2032820329%_ + _%body1574315812%_ + _%tl1573415783%_ + _%hd1573315780%_ + _%hd1572715760%_)))))) + (_%loop1573815792%_ _%target1573515786%_ '())))) + (_%__match2037020371%_ + (lambda (_%e1570715857%_ + _%hd1570815861%_ + _%tl1570915864%_ + _%e1571015867%_ + _%hd1571115871%_ + _%tl1571215874%_ + _%__splice2032620327%_ + _%target1571315877%_ + _%tl1571515880%_) + (letrec ((_%loop1571615883%_ + (lambda (_%hd1571415887%_ _%body1572015890%_) + (if (gx#stx-pair? _%hd1571415887%_) + (let ((_%e1571715893%_ + (gx#syntax-e _%hd1571415887%_))) + (let ((_%lp-tl1571915900%_ (let () (declare (not safe)) - (##cdr _%e1565415830%_))) - (_%lp-hd1565515834%_ + (##cdr _%e1571715893%_))) + (_%lp-hd1571815897%_ (let () (declare (not safe)) - (##car _%e1565415830%_)))) - (_%loop1565315820%_ - _%lp-tl1565615837%_ - (cons _%lp-hd1565515834%_ - _%body1565715827%_)))) - (let ((_%body1565815840%_ - (reverse _%body1565715827%_))) - (_%__kont2026120262%_ - _%body1565815840%_)))))) - (_%loop1565315820%_ _%target1565015814%_ '()))))) - (if (gx#stx-pair? _%__stx2025620257%_) - (let ((_%e1563715876%_ (gx#syntax-e _%__stx2025620257%_))) - (let ((_%tl1563915883%_ + (##car _%e1571715893%_)))) + (_%loop1571615883%_ + _%lp-tl1571915900%_ + (cons _%lp-hd1571815897%_ + _%body1572015890%_)))) + (let ((_%body1572115903%_ + (reverse _%body1572015890%_))) + (_%__kont2032420325%_ + _%body1572115903%_)))))) + (_%loop1571615883%_ _%target1571315877%_ '()))))) + (if (gx#stx-pair? _%__stx2031920320%_) + (let ((_%e1570015939%_ (gx#syntax-e _%__stx2031920320%_))) + (let ((_%tl1570215946%_ (let () (declare (not safe)) - (##cdr _%e1563715876%_))) - (_%hd1563815880%_ + (##cdr _%e1570015939%_))) + (_%hd1570115943%_ (let () (declare (not safe)) - (##car _%e1563715876%_)))) - (if (gx#stx-pair? _%tl1563915883%_) - (let ((_%e1564015886%_ - (gx#syntax-e _%tl1563915883%_))) - (let ((_%tl1564215893%_ + (##car _%e1570015939%_)))) + (if (gx#stx-pair? _%tl1570215946%_) + (let ((_%e1570315949%_ + (gx#syntax-e _%tl1570215946%_))) + (let ((_%tl1570515956%_ (let () (declare (not safe)) - (##cdr _%e1564015886%_))) - (_%hd1564115890%_ + (##cdr _%e1570315949%_))) + (_%hd1570415953%_ (let () (declare (not safe)) - (##car _%e1564015886%_)))) - (if (gx#stx-null? _%hd1564115890%_) - (if (gx#stx-null? _%tl1564215893%_) - (_%__kont2025920260%_) - (if (gx#stx-pair/null? _%tl1564215893%_) - (let ((_%__splice2026320264%_ + (##car _%e1570315949%_)))) + (if (gx#stx-null? _%hd1570415953%_) + (if (gx#stx-null? _%tl1570515956%_) + (_%__kont2032220323%_) + (if (gx#stx-pair/null? _%tl1570515956%_) + (let ((_%__splice2032620327%_ (gx#syntax-split-splice - _%tl1564215893%_ + _%tl1570515956%_ '0))) - (let ((_%tl1565215817%_ + (let ((_%tl1571515880%_ (let () (declare (not safe)) (##vector-ref - _%__splice2026320264%_ + _%__splice2032620327%_ '1))) - (_%target1565015814%_ + (_%target1571315877%_ (let () (declare (not safe)) (##vector-ref - _%__splice2026320264%_ + _%__splice2032620327%_ '0)))) (if (gx#stx-null? - _%tl1565215817%_) - (_%__match2030720308%_ - _%e1563715876%_ - _%hd1563815880%_ - _%tl1563915883%_ - _%e1564015886%_ - _%hd1564115890%_ - _%tl1564215893%_ - _%__splice2026320264%_ - _%target1565015814%_ - _%tl1565215817%_) + _%tl1571515880%_) + (_%__match2037020371%_ + _%e1570015939%_ + _%hd1570115943%_ + _%tl1570215946%_ + _%e1570315949%_ + _%hd1570415953%_ + _%tl1570515956%_ + _%__splice2032620327%_ + _%target1571315877%_ + _%tl1571515880%_) (let () (declare (not safe)) - (_%g1563515686%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1563515686%_)))) - (if (gx#stx-pair? _%hd1564115890%_) - (let ((_%e1566915713%_ - (gx#syntax-e _%hd1564115890%_))) - (let ((_%tl1567115720%_ + (_%g1569815749%_)))) + (if (gx#stx-pair? _%hd1570415953%_) + (let ((_%e1573215776%_ + (gx#syntax-e _%hd1570415953%_))) + (let ((_%tl1573415783%_ (let () (declare (not safe)) - (##cdr _%e1566915713%_))) - (_%hd1567015717%_ + (##cdr _%e1573215776%_))) + (_%hd1573315780%_ (let () (declare (not safe)) - (##car _%e1566915713%_)))) + (##car _%e1573215776%_)))) (if (gx#stx-pair/null? - _%tl1564215893%_) - (let ((_%__splice2026720268%_ + _%tl1570515956%_) + (let ((_%__splice2033020331%_ (gx#syntax-split-splice - _%tl1564215893%_ + _%tl1570515956%_ '0))) - (let ((_%tl1567415726%_ + (let ((_%tl1573715789%_ (let () (declare (not safe)) (##vector-ref - _%__splice2026720268%_ + _%__splice2033020331%_ '1))) - (_%target1567215723%_ + (_%target1573515786%_ (let () (declare (not safe)) (##vector-ref - _%__splice2026720268%_ + _%__splice2033020331%_ '0)))) (if (gx#stx-null? - _%tl1567415726%_) - (_%__match2033320334%_ - _%e1563715876%_ - _%hd1563815880%_ - _%tl1563915883%_ - _%e1564015886%_ - _%hd1564115890%_ - _%tl1564215893%_ - _%e1566915713%_ - _%hd1567015717%_ - _%tl1567115720%_ - _%__splice2026720268%_ - _%target1567215723%_ - _%tl1567415726%_) + _%tl1573715789%_) + (_%__match2039620397%_ + _%e1570015939%_ + _%hd1570115943%_ + _%tl1570215946%_ + _%e1570315949%_ + _%hd1570415953%_ + _%tl1570515956%_ + _%e1573215776%_ + _%hd1573315780%_ + _%tl1573415783%_ + _%__splice2033020331%_ + _%target1573515786%_ + _%tl1573715789%_) (let () (declare (not safe)) - (_%g1563515686%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1563515686%_))))) + (_%g1569815749%_))))) (let () (declare (not safe)) - (_%g1563515686%_)))))) - (let () (declare (not safe)) (_%g1563515686%_))))) - (let () (declare (not safe)) (_%g1563515686%_)))))))) + (_%g1569815749%_)))))) + (let () (declare (not safe)) (_%g1569815749%_))))) + (let () (declare (not safe)) (_%g1569815749%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#@list| - (lambda (_%$stx15906%_) - (let* ((_%__stx2033620337%_ _%$stx15906%_) - (_%g1591715995%_ + (lambda (_%$stx15969%_) + (let* ((_%__stx2039920400%_ _%$stx15969%_) + (_%g1598016058%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2033620337%_)))) - (let ((_%__kont2033920340%_ + _%__stx2039920400%_)))) + (let ((_%__kont2040220403%_ (lambda () (cons (gx#datum->syntax '#f 'quote) (cons '() '())))) - (_%__kont2034120342%_ - (lambda (_%L16326%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L16326%_ '())))) - (_%__kont2034320344%_ - (lambda (_%L16274%_) + (_%__kont2040420405%_ + (lambda (_%L16389%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L16389%_ '())))) + (_%__kont2040620407%_ + (lambda (_%L16337%_) (cons (gx#datum->syntax '#f 'quasiquote) - (cons _%L16274%_ '())))) - (_%__kont2034520346%_ (lambda (_%L16221%_) _%L16221%_)) - (_%__kont2034720348%_ - (lambda (_%L16163%_ _%L16165%_) _%L16165%_)) - (_%__kont2034920350%_ - (lambda (_%L16105%_ _%L16107%_ _%L16108%_ _%L16109%_) + (cons _%L16337%_ '())))) + (_%__kont2040820409%_ (lambda (_%L16284%_) _%L16284%_)) + (_%__kont2041020411%_ + (lambda (_%L16226%_ _%L16228%_) _%L16228%_)) + (_%__kont2041220413%_ + (lambda (_%L16168%_ _%L16170%_ _%L16171%_ _%L16172%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons (cons _%L16109%_ _%L16105%_) - (cons _%L16108%_ '())))))) - (_%__kont2035120352%_ - (lambda (_%L16051%_ _%L16053%_ _%L16054%_) + (cons (cons _%L16172%_ _%L16168%_) + (cons _%L16171%_ '())))))) + (_%__kont2041420415%_ + (lambda (_%L16114%_ _%L16116%_ _%L16117%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16053%_ - (cons (cons _%L16054%_ _%L16051%_) '()))))) - (_%__kont2035320354%_ (lambda (_%L16012%_) _%L16012%_))) - (let* ((_%__match2047520476%_ - (lambda (_%e1596816075%_ - _%hd1596916079%_ - _%tl1597016082%_ - _%e1597116085%_ - _%hd1597216089%_ - _%tl1597316092%_ - _%e1597416095%_ - _%hd1597516099%_ - _%tl1597616102%_) - (let ((_%L16105%_ _%tl1597616102%_) - (_%L16107%_ _%hd1597516099%_) - (_%L16108%_ _%hd1597216089%_) - (_%L16109%_ _%hd1596916079%_)) - (if (gx#ellipsis? _%L16107%_) - (_%__kont2034920350%_ - _%L16105%_ - _%L16107%_ - _%L16108%_ - _%L16109%_) - (_%__kont2035120352%_ - _%tl1597316092%_ - _%hd1597216089%_ - _%hd1596916079%_))))) - (_%__match2045720458%_ - (lambda (_%e1595516133%_ - _%hd1595616137%_ - _%tl1595716140%_ - _%e1595816143%_ - _%hd1595916147%_ - _%tl1596016150%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_) - (let ((_%L16163%_ _%hd1596216157%_) - (_%L16165%_ _%hd1595916147%_)) - (if (gx#ellipsis? _%L16163%_) - (_%__kont2034720348%_ _%L16163%_ _%L16165%_) - (_%__match2047520476%_ - _%e1595516133%_ - _%hd1595616137%_ - _%tl1595716140%_ - _%e1595816143%_ - _%hd1595916147%_ - _%tl1596016150%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_)))))) - (if (gx#stx-pair? _%__stx2033620337%_) - (let ((_%e1591916348%_ (gx#syntax-e _%__stx2033620337%_))) - (let ((_%tl1592116355%_ + (cons _%L16116%_ + (cons (cons _%L16117%_ _%L16114%_) '()))))) + (_%__kont2041620417%_ (lambda (_%L16075%_) _%L16075%_))) + (let* ((_%__match2053820539%_ + (lambda (_%e1603116138%_ + _%hd1603216142%_ + _%tl1603316145%_ + _%e1603416148%_ + _%hd1603516152%_ + _%tl1603616155%_ + _%e1603716158%_ + _%hd1603816162%_ + _%tl1603916165%_) + (let ((_%L16168%_ _%tl1603916165%_) + (_%L16170%_ _%hd1603816162%_) + (_%L16171%_ _%hd1603516152%_) + (_%L16172%_ _%hd1603216142%_)) + (if (gx#ellipsis? _%L16170%_) + (_%__kont2041220413%_ + _%L16168%_ + _%L16170%_ + _%L16171%_ + _%L16172%_) + (_%__kont2041420415%_ + _%tl1603616155%_ + _%hd1603516152%_ + _%hd1603216142%_))))) + (_%__match2052020521%_ + (lambda (_%e1601816196%_ + _%hd1601916200%_ + _%tl1602016203%_ + _%e1602116206%_ + _%hd1602216210%_ + _%tl1602316213%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (let ((_%L16226%_ _%hd1602516220%_) + (_%L16228%_ _%hd1602216210%_)) + (if (gx#ellipsis? _%L16226%_) + (_%__kont2041020411%_ _%L16226%_ _%L16228%_) + (_%__match2053820539%_ + _%e1601816196%_ + _%hd1601916200%_ + _%tl1602016203%_ + _%e1602116206%_ + _%hd1602216210%_ + _%tl1602316213%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))))) + (if (gx#stx-pair? _%__stx2039920400%_) + (let ((_%e1598216411%_ (gx#syntax-e _%__stx2039920400%_))) + (let ((_%tl1598416418%_ (let () (declare (not safe)) - (##cdr _%e1591916348%_))) - (_%hd1592016352%_ + (##cdr _%e1598216411%_))) + (_%hd1598316415%_ (let () (declare (not safe)) - (##car _%e1591916348%_)))) - (if (gx#stx-null? _%tl1592116355%_) - (_%__kont2033920340%_) - (if (gx#stx-pair? _%tl1592116355%_) - (let ((_%e1592616306%_ - (gx#syntax-e _%tl1592116355%_))) - (let ((_%tl1592816313%_ + (##car _%e1598216411%_)))) + (if (gx#stx-null? _%tl1598416418%_) + (_%__kont2040220403%_) + (if (gx#stx-pair? _%tl1598416418%_) + (let ((_%e1598916369%_ + (gx#syntax-e _%tl1598416418%_))) + (let ((_%tl1599116376%_ (let () (declare (not safe)) - (##cdr _%e1592616306%_))) - (_%hd1592716310%_ + (##cdr _%e1598916369%_))) + (_%hd1599016373%_ (let () (declare (not safe)) - (##car _%e1592616306%_)))) - (if (gx#identifier? _%hd1592716310%_) + (##car _%e1598916369%_)))) + (if (gx#identifier? _%hd1599016373%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21001_| - _%hd1592716310%_) - (if (gx#stx-pair? _%tl1592816313%_) - (let ((_%e1592916316%_ + |gerbil/core/sugar~Sugar-2[1]#_g21064_| + _%hd1599016373%_) + (if (gx#stx-pair? _%tl1599116376%_) + (let ((_%e1599216379%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1593116323%_ + _%tl1599116376%_))) + (let ((_%tl1599416386%_ (let () (declare (not safe)) - (##cdr _%e1592916316%_))) - (_%hd1593016320%_ + (##cdr _%e1599216379%_))) + (_%hd1599316383%_ (let () (declare (not safe)) - (##car _%e1592916316%_)))) + (##car _%e1599216379%_)))) (if (gx#stx-null? - _%tl1593116323%_) - (_%__kont2034120342%_ - _%hd1593016320%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1592916316%_ - _%hd1593016320%_ - _%tl1593116323%_)))) - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)) + _%tl1599416386%_) + (_%__kont2040420405%_ + _%hd1599316383%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1599216379%_ + _%hd1599316383%_ + _%tl1599416386%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21002_| - _%hd1592716310%_) + |gerbil/core/sugar~Sugar-2[1]#_g21065_| + _%hd1599016373%_) (if (gx#stx-pair? - _%tl1592816313%_) - (let ((_%e1593916264%_ + _%tl1599116376%_) + (let ((_%e1600216327%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1594116271%_ + _%tl1599116376%_))) + (let ((_%tl1600416334%_ (let () (declare (not safe)) - (##cdr _%e1593916264%_))) - (_%hd1594016268%_ + (##cdr _%e1600216327%_))) + (_%hd1600316331%_ (let () (declare (not safe)) - (##car _%e1593916264%_)))) + (##car _%e1600216327%_)))) (if (gx#stx-null? - _%tl1594116271%_) - (_%__kont2034320344%_ - _%hd1594016268%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1593916264%_ - _%hd1594016268%_ - _%tl1594116271%_)))) - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)) + _%tl1600416334%_) + (_%__kont2040620407%_ + _%hd1600316331%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1600216327%_ + _%hd1600316331%_ + _%tl1600416334%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#stx-pair? - _%tl1592816313%_) - (let ((_%e1596116153%_ + _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1596316160%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare (not safe)) - (##cdr _%e1596116153%_))) - (_%hd1596216157%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ (let () (declare (not safe)) - (##car _%e1596116153%_)))) + (##car _%e1602416216%_)))) (if (gx#stx-null? - _%tl1596316160%_) - (_%__match2045720458%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_)))) - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)))) - (if (gx#stx-datum? _%hd1592716310%_) - (let ((_%e1594916207%_ - (gx#stx-e _%hd1592716310%_))) - (if (equal? _%e1594916207%_ '::) + _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))) + (if (gx#stx-datum? _%hd1599016373%_) + (let ((_%e1601216270%_ + (gx#stx-e _%hd1599016373%_))) + (if (equal? _%e1601216270%_ '::) (if (gx#stx-pair? - _%tl1592816313%_) - (let ((_%e1595016211%_ + _%tl1599116376%_) + (let ((_%e1601316274%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1595216218%_ + _%tl1599116376%_))) + (let ((_%tl1601516281%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1595016211%_))) - (_%hd1595116215%_ - (let () (declare (not safe)) (##car _%e1595016211%_)))) - (if (gx#stx-null? _%tl1595216218%_) - (_%__kont2034520346%_ _%hd1595116215%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1595016211%_ - _%hd1595116215%_ - _%tl1595216218%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)) + (##cdr _%e1601316274%_))) + (_%hd1601416278%_ + (let () (declare (not safe)) (##car _%e1601316274%_)))) + (if (gx#stx-null? _%tl1601516281%_) + (_%__kont2040820409%_ _%hd1601416278%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1601316274%_ + _%hd1601416278%_ + _%tl1601516281%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)) (if (gx#stx-pair? - _%tl1592816313%_) - (let ((_%e1596116153%_ + _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1596316160%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e1596116153%_))) - (_%hd1596216157%_ - (let () (declare (not safe)) (##car _%e1596116153%_)))) - (if (gx#stx-null? _%tl1596316160%_) - (_%__match2045720458%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)))) - (if (gx#stx-pair? _%tl1592816313%_) - (let ((_%e1596116153%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ + (let () (declare (not safe)) (##car _%e1602416216%_)))) + (if (gx#stx-null? _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))) + (if (gx#stx-pair? _%tl1599116376%_) + (let ((_%e1602416216%_ (gx#syntax-e - _%tl1592816313%_))) - (let ((_%tl1596316160%_ + _%tl1599116376%_))) + (let ((_%tl1602616223%_ (let () (declare (not safe)) - (##cdr _%e1596116153%_))) - (_%hd1596216157%_ + (##cdr _%e1602416216%_))) + (_%hd1602516220%_ (let () (declare (not safe)) - (##car _%e1596116153%_)))) + (##car _%e1602416216%_)))) (if (gx#stx-null? - _%tl1596316160%_) - (_%__match2045720458%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_) - (_%__match2047520476%_ - _%e1591916348%_ - _%hd1592016352%_ - _%tl1592116355%_ - _%e1592616306%_ - _%hd1592716310%_ - _%tl1592816313%_ - _%e1596116153%_ - _%hd1596216157%_ - _%tl1596316160%_)))) - (_%__kont2035120352%_ - _%tl1592816313%_ - _%hd1592716310%_ - _%hd1592016352%_)))))) - (_%__kont2035320354%_ _%tl1592116355%_))))) - (let () (declare (not safe)) (_%g1591715995%_)))))))) + _%tl1602616223%_) + (_%__match2052020521%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_) + (_%__match2053820539%_ + _%e1598216411%_ + _%hd1598316415%_ + _%tl1598416418%_ + _%e1598916369%_ + _%hd1599016373%_ + _%tl1599116376%_ + _%e1602416216%_ + _%hd1602516220%_ + _%tl1602616223%_)))) + (_%__kont2041420415%_ + _%tl1599116376%_ + _%hd1599016373%_ + _%hd1598316415%_)))))) + (_%__kont2041620417%_ _%tl1598416418%_))))) + (let () (declare (not safe)) (_%g1598016058%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#quasiquote| - (lambda (_%stx16366%_) - (letrec ((_%simple-quote?16369%_ - (lambda (_%e17061%_) - (let* ((_%__stx2049620497%_ _%e17061%_) - (_%g1706917106%_ + (lambda (_%stx16429%_) + (letrec ((_%simple-quote?16432%_ + (lambda (_%e17124%_) + (let* ((_%__stx2055920560%_ _%e17124%_) + (_%g1713217169%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2049620497%_)))) - (let ((_%__kont2049920500%_ (lambda () '#f)) - (_%__kont2050120502%_ (lambda () '#f)) - (_%__kont2050320504%_ - (lambda (_%L17220%_ _%L17222%_) - (if (_%simple-quote?16369%_ _%L17222%_) - (_%simple-quote?16369%_ _%L17220%_) + _%__stx2055920560%_)))) + (let ((_%__kont2056220563%_ (lambda () '#f)) + (_%__kont2056420565%_ (lambda () '#f)) + (_%__kont2056620567%_ + (lambda (_%L17283%_ _%L17285%_) + (if (_%simple-quote?16432%_ _%L17285%_) + (_%simple-quote?16432%_ _%L17283%_) '#f))) - (_%__kont2050520506%_ - (lambda (_%L17181%_) - (_%simple-quote?16369%_ - (foldr (lambda (_%g1719417197%_ - _%g1719517200%_) - (cons _%g1719417197%_ - _%g1719517200%_)) + (_%__kont2056820569%_ + (lambda (_%L17244%_) + (_%simple-quote?16432%_ + (foldr (lambda (_%g1725717260%_ + _%g1725817263%_) + (cons _%g1725717260%_ + _%g1725817263%_)) '() - _%L17181%_)))) - (_%__kont2050920510%_ - (lambda (_%L17128%_) - (_%simple-quote?16369%_ _%L17128%_))) - (_%__kont2051120512%_ (lambda () '#t))) - (let* ((_%g1706717140%_ + _%L17244%_)))) + (_%__kont2057220573%_ + (lambda (_%L17191%_) + (_%simple-quote?16432%_ _%L17191%_))) + (_%__kont2057420575%_ (lambda () '#t))) + (let* ((_%g1713017203%_ (lambda () - (if (gx#stx-box? _%__stx2049620497%_) - (let ((_%e1710017124%_ + (if (gx#stx-box? _%__stx2055920560%_) + (let ((_%e1716317187%_ (unbox (gx#syntax-e - _%__stx2049620497%_)))) - (_%__kont2050920510%_ _%e1710017124%_)) - (_%__kont2051120512%_)))) - (_%__match2056720568%_ - (lambda (_%e1708917147%_ - _%__splice2050720508%_ - _%target1709017151%_ - _%tl1709217154%_) - (letrec ((_%loop1709317157%_ - (lambda (_%hd1709117161%_ - _%e1709717164%_) + _%__stx2055920560%_)))) + (_%__kont2057220573%_ _%e1716317187%_)) + (_%__kont2057420575%_)))) + (_%__match2063020631%_ + (lambda (_%e1715217210%_ + _%__splice2057020571%_ + _%target1715317214%_ + _%tl1715517217%_) + (letrec ((_%loop1715617220%_ + (lambda (_%hd1715417224%_ + _%e1716017227%_) (if (gx#stx-pair? - _%hd1709117161%_) - (let ((_%e1709417167%_ + _%hd1715417224%_) + (let ((_%e1715717230%_ (gx#syntax-e - _%hd1709117161%_))) - (let ((_%lp-tl1709617174%_ + _%hd1715417224%_))) + (let ((_%lp-tl1715917237%_ (let () (declare (not safe)) - (##cdr _%e1709417167%_))) - (_%lp-hd1709517171%_ + (##cdr _%e1715717230%_))) + (_%lp-hd1715817234%_ (let () (declare (not safe)) - (##car _%e1709417167%_)))) - (_%loop1709317157%_ - _%lp-tl1709617174%_ - (cons _%lp-hd1709517171%_ - _%e1709717164%_)))) - (let ((_%e1709817177%_ - (reverse _%e1709717164%_))) - (_%__kont2050520506%_ - _%e1709817177%_)))))) - (_%loop1709317157%_ - _%target1709017151%_ + (##car _%e1715717230%_)))) + (_%loop1715617220%_ + _%lp-tl1715917237%_ + (cons _%lp-hd1715817234%_ + _%e1716017227%_)))) + (let ((_%e1716117240%_ + (reverse _%e1716017227%_))) + (_%__kont2056820569%_ + _%e1716117240%_)))))) + (_%loop1715617220%_ + _%target1715317214%_ '())))) - (_%g1706617203%_ + (_%g1712917266%_ (lambda () - (if (gx#stx-vector? _%__stx2049620497%_) - (let ((_%e1708917147%_ + (if (gx#stx-vector? _%__stx2055920560%_) + (let ((_%e1715217210%_ (vector->list (gx#syntax-e - _%__stx2049620497%_)))) - (if (gx#stx-pair/null? _%e1708917147%_) - (let ((_%__splice2050720508%_ + _%__stx2055920560%_)))) + (if (gx#stx-pair/null? _%e1715217210%_) + (let ((_%__splice2057020571%_ (gx#syntax-split-splice - _%e1708917147%_ + _%e1715217210%_ '0))) - (let ((_%tl1709217154%_ + (let ((_%tl1715517217%_ (let () (declare (not safe)) (##vector-ref - _%__splice2050720508%_ + _%__splice2057020571%_ '1))) - (_%target1709017151%_ + (_%target1715317214%_ (let () (declare (not safe)) (##vector-ref - _%__splice2050720508%_ + _%__splice2057020571%_ '0)))) (if (gx#stx-null? - _%tl1709217154%_) - (_%__match2056720568%_ - _%e1708917147%_ - _%__splice2050720508%_ - _%target1709017151%_ - _%tl1709217154%_) - (_%__kont2051120512%_)))) - (_%__kont2051120512%_))) + _%tl1715517217%_) + (_%__match2063020631%_ + _%e1715217210%_ + _%__splice2057020571%_ + _%target1715317214%_ + _%tl1715517217%_) + (_%__kont2057420575%_)))) + (_%__kont2057420575%_))) (let () (declare (not safe)) - (_%g1706717140%_)))))) - (if (gx#stx-pair? _%__stx2049620497%_) - (let ((_%e1707117271%_ - (gx#syntax-e _%__stx2049620497%_))) - (let ((_%tl1707317278%_ + (_%g1713017203%_)))))) + (if (gx#stx-pair? _%__stx2055920560%_) + (let ((_%e1713417334%_ + (gx#syntax-e _%__stx2055920560%_))) + (let ((_%tl1713617341%_ (let () (declare (not safe)) - (##cdr _%e1707117271%_))) - (_%hd1707217275%_ + (##cdr _%e1713417334%_))) + (_%hd1713517338%_ (let () (declare (not safe)) - (##car _%e1707117271%_)))) - (if (gx#identifier? _%hd1707217275%_) + (##car _%e1713417334%_)))) + (if (gx#identifier? _%hd1713517338%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21003_| - _%hd1707217275%_) - (if (gx#stx-pair? _%tl1707317278%_) - (let ((_%e1707417281%_ + |gerbil/core/sugar~Sugar-2[1]#_g21066_| + _%hd1713517338%_) + (if (gx#stx-pair? _%tl1713617341%_) + (let ((_%e1713717344%_ (gx#syntax-e - _%tl1707317278%_))) - (let ((_%tl1707617288%_ + _%tl1713617341%_))) + (let ((_%tl1713917351%_ (let () (declare (not safe)) - (##cdr _%e1707417281%_))) - (_%hd1707517285%_ + (##cdr _%e1713717344%_))) + (_%hd1713817348%_ (let () (declare (not safe)) - (##car _%e1707417281%_)))) + (##car _%e1713717344%_)))) (if (gx#stx-null? - _%tl1707617288%_) - (_%__kont2049920500%_) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_)))) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_)) + _%tl1713917351%_) + (_%__kont2056220563%_) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21004_| - _%hd1707217275%_) + |gerbil/core/sugar~Sugar-2[1]#_g21067_| + _%hd1713517338%_) (if (gx#stx-pair? - _%tl1707317278%_) - (let ((_%e1708017250%_ + _%tl1713617341%_) + (let ((_%e1714317313%_ (gx#syntax-e - _%tl1707317278%_))) - (let ((_%tl1708217257%_ + _%tl1713617341%_))) + (let ((_%tl1714517320%_ (let () (declare (not safe)) - (##cdr _%e1708017250%_))) - (_%hd1708117254%_ + (##cdr _%e1714317313%_))) + (_%hd1714417317%_ (let () (declare (not safe)) - (##car _%e1708017250%_)))) + (##car _%e1714317313%_)))) (if (gx#stx-null? - _%tl1708217257%_) - (_%__kont2050120502%_) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_)))) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_)) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_))) - (_%__kont2050320504%_ - _%tl1707317278%_ - _%hd1707217275%_)))) + _%tl1714517320%_) + (_%__kont2056420565%_) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_))) + (_%__kont2056620567%_ + _%tl1713617341%_ + _%hd1713517338%_)))) (let () (declare (not safe)) - (_%g1706617203%_)))))))) - (_%generate16371%_ - (lambda (_%e16433%_ _%d16435%_) - (let* ((_%__stx2057420575%_ _%e16433%_) - (_%g1644416502%_ + (_%g1712917266%_)))))))) + (_%generate16434%_ + (lambda (_%e16496%_ _%d16498%_) + (let* ((_%__stx2063720638%_ _%e16496%_) + (_%g1650716565%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2057420575%_)))) - (let ((_%__kont2057720578%_ - (lambda (_%L17013%_) - (let* ((_%g1702617034%_ - (lambda (_%g1702717030%_) + _%__stx2063720638%_)))) + (let ((_%__kont2064020641%_ + (lambda (_%L17076%_) + (let* ((_%g1708917097%_ + (lambda (_%g1709017093%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1702717030%_))) - (_%g1702517053%_ - (lambda (_%g1702717038%_) - ((lambda (_%L17041%_) + _%g1709017093%_))) + (_%g1708817116%_ + (lambda (_%g1709017101%_) + ((lambda (_%L17104%_) (cons (gx#datum->syntax '#f 'list) (cons (cons (gx#datum->syntax '#f @@ -10736,26 +10738,26 @@ '#f 'quasiquote) '())) - (cons _%L17041%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1702717038%_)))) - (_%g1702517053%_ - (_%generate16371%_ - _%L17013%_ - (fx1+ _%d16435%_)))))) - (_%__kont2057920580%_ - (lambda (_%L16942%_) - (if (fxzero? _%d16435%_) - _%L16942%_ - (let* ((_%g1695516963%_ - (lambda (_%g1695616959%_) + (cons _%L17104%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1709017101%_)))) + (_%g1708817116%_ + (_%generate16434%_ + _%L17076%_ + (fx1+ _%d16498%_)))))) + (_%__kont2064220643%_ + (lambda (_%L17005%_) + (if (fxzero? _%d16498%_) + _%L17005%_ + (let* ((_%g1701817026%_ + (lambda (_%g1701917022%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1695616959%_))) - (_%g1695416982%_ - (lambda (_%g1695616967%_) - ((lambda (_%L16970%_) + _%g1701917022%_))) + (_%g1701717045%_ + (lambda (_%g1701917030%_) + ((lambda (_%L17033%_) (cons (gx#datum->syntax '#f 'list) @@ -10764,32 +10766,32 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote) '())) - (cons _%L16970%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1695616967%_)))) - (_%g1695416982%_ - (_%generate16371%_ - _%L16942%_ - (fx1- _%d16435%_))))))) - (_%__kont2058120582%_ - (lambda (_%L16871%_) - (if (fxzero? _%d16435%_) + (cons _%L17033%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1701917030%_)))) + (_%g1701717045%_ + (_%generate16434%_ + _%L17005%_ + (fx1- _%d16498%_))))))) + (_%__kont2064420645%_ + (lambda (_%L16934%_) + (if (fxzero? _%d16498%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) - (cons _%L16871%_ '())))) - (let* ((_%g1688416892%_ - (lambda (_%g1688516888%_) + (cons _%L16934%_ '())))) + (let* ((_%g1694716955%_ + (lambda (_%g1694816951%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1688516888%_))) - (_%g1688316911%_ - (lambda (_%g1688516896%_) - ((lambda (_%L16899%_) + _%g1694816951%_))) + (_%g1694616974%_ + (lambda (_%g1694816959%_) + ((lambda (_%L16962%_) (cons (gx#datum->syntax '#f 'list) @@ -10798,653 +10800,653 @@ '#f 'quote) (cons (gx#datum->syntax '#f 'unquote-splicing) '())) - (cons _%L16899%_ '())))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1688516896%_)))) - (_%g1688316911%_ - (_%generate16371%_ - _%L16871%_ - (fx1- _%d16435%_))))))) - (_%__kont2058320584%_ - (lambda (_%L16796%_ _%L16798%_) - (let* ((_%g1681316821%_ - (lambda (_%g1681416817%_) + (cons _%L16962%_ '())))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1694816959%_)))) + (_%g1694616974%_ + (_%generate16434%_ + _%L16934%_ + (fx1- _%d16498%_))))))) + (_%__kont2064620647%_ + (lambda (_%L16859%_ _%L16861%_) + (let* ((_%g1687616884%_ + (lambda (_%g1687716880%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1681416817%_))) - (_%g1681216840%_ - (lambda (_%g1681416825%_) - ((lambda (_%L16828%_) + _%g1687716880%_))) + (_%g1687516903%_ + (lambda (_%g1687716888%_) + ((lambda (_%L16891%_) (cons (gx#datum->syntax '#f 'foldr) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16828%_ - (cons _%L16798%_ + (cons _%L16891%_ + (cons _%L16861%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1681416825%_)))) - (_%g1681216840%_ - (_%generate16371%_ _%L16796%_ _%d16435%_))))) - (_%__kont2058520586%_ - (lambda (_%L16682%_ _%L16684%_) - (let* ((_%g1669516710%_ - (lambda (_%g1669616706%_) + _%g1687716888%_)))) + (_%g1687516903%_ + (_%generate16434%_ _%L16859%_ _%d16498%_))))) + (_%__kont2064820649%_ + (lambda (_%L16745%_ _%L16747%_) + (let* ((_%g1675816773%_ + (lambda (_%g1675916769%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1669616706%_))) - (_%g1669416755%_ - (lambda (_%g1669616714%_) - (if (gx#stx-pair? _%g1669616714%_) - (let ((_%e1669916717%_ + _%g1675916769%_))) + (_%g1675716818%_ + (lambda (_%g1675916777%_) + (if (gx#stx-pair? _%g1675916777%_) + (let ((_%e1676216780%_ (gx#syntax-e - _%g1669616714%_))) - (let ((_%hd1670016721%_ + _%g1675916777%_))) + (let ((_%hd1676316784%_ (let () (declare (not safe)) - (##car _%e1669916717%_))) - (_%tl1670116724%_ + (##car _%e1676216780%_))) + (_%tl1676416787%_ (let () (declare (not safe)) - (##cdr _%e1669916717%_)))) + (##cdr _%e1676216780%_)))) (if (gx#stx-pair? - _%tl1670116724%_) - (let ((_%e1670216727%_ + _%tl1676416787%_) + (let ((_%e1676516790%_ (gx#syntax-e - _%tl1670116724%_))) - (let ((_%hd1670316731%_ + _%tl1676416787%_))) + (let ((_%hd1676616794%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e1670216727%_))) - (_%tl1670416734%_ - (let () (declare (not safe)) (##cdr _%e1670216727%_)))) - (if (gx#stx-null? _%tl1670416734%_) - ((lambda (_%L16737%_ _%L16739%_) + (##car _%e1676516790%_))) + (_%tl1676716797%_ + (let () (declare (not safe)) (##cdr _%e1676516790%_)))) + (if (gx#stx-null? _%tl1676716797%_) + ((lambda (_%L16800%_ _%L16802%_) (cons (gx#datum->syntax '#f 'cons) - (cons _%L16739%_ (cons _%L16737%_ '())))) - _%hd1670316731%_ - _%hd1670016721%_) - (_%g1669516710%_ _%g1669616714%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1669516710%_ - _%g1669616714%_)))) - (_%g1669516710%_ - _%g1669616714%_))))) - (_%g1669416755%_ - (list (_%generate16371%_ - _%L16684%_ - _%d16435%_) - (_%generate16371%_ - _%L16682%_ - _%d16435%_)))))) - (_%__kont2058720588%_ - (lambda (_%L16612%_) - (let* ((_%g1662616634%_ - (lambda (_%g1662716630%_) + (cons _%L16802%_ (cons _%L16800%_ '())))) + _%hd1676616794%_ + _%hd1676316784%_) + (_%g1675816773%_ _%g1675916777%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g1675816773%_ + _%g1675916777%_)))) + (_%g1675816773%_ + _%g1675916777%_))))) + (_%g1675716818%_ + (list (_%generate16434%_ + _%L16747%_ + _%d16498%_) + (_%generate16434%_ + _%L16745%_ + _%d16498%_)))))) + (_%__kont2065020651%_ + (lambda (_%L16675%_) + (let* ((_%g1668916697%_ + (lambda (_%g1669016693%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1662716630%_))) - (_%g1662516653%_ - (lambda (_%g1662716638%_) - ((lambda (_%L16641%_) + _%g1669016693%_))) + (_%g1668816716%_ + (lambda (_%g1669016701%_) + ((lambda (_%L16704%_) (cons (gx#datum->syntax '#f 'list->vector) - (cons _%L16641%_ '()))) - _%g1662716638%_)))) - (_%g1662516653%_ - (_%generate16371%_ - (foldr (lambda (_%g1665616659%_ - _%g1665716662%_) - (cons _%g1665616659%_ - _%g1665716662%_)) + (cons _%L16704%_ '()))) + _%g1669016701%_)))) + (_%g1668816716%_ + (_%generate16434%_ + (foldr (lambda (_%g1671916722%_ + _%g1672016725%_) + (cons _%g1671916722%_ + _%g1672016725%_)) '() - _%L16612%_) - _%d16435%_))))) - (_%__kont2059120592%_ - (lambda (_%L16530%_) - (let* ((_%g1654016548%_ - (lambda (_%g1654116544%_) + _%L16675%_) + _%d16498%_))))) + (_%__kont2065420655%_ + (lambda (_%L16593%_) + (let* ((_%g1660316611%_ + (lambda (_%g1660416607%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1654116544%_))) - (_%g1653916567%_ - (lambda (_%g1654116552%_) - ((lambda (_%L16555%_) + _%g1660416607%_))) + (_%g1660216630%_ + (lambda (_%g1660416615%_) + ((lambda (_%L16618%_) (cons (gx#datum->syntax '#f 'box) - (cons _%L16555%_ '()))) - _%g1654116552%_)))) - (_%g1653916567%_ - (_%generate16371%_ _%L16530%_ _%d16435%_))))) - (_%__kont2059320594%_ - (lambda (_%L16509%_) + (cons _%L16618%_ '()))) + _%g1660416615%_)))) + (_%g1660216630%_ + (_%generate16434%_ _%L16593%_ _%d16498%_))))) + (_%__kont2065620657%_ + (lambda (_%L16572%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16509%_ '()))))) - (let* ((_%g1644216571%_ + (cons _%L16572%_ '()))))) + (let* ((_%g1650516634%_ (lambda () - (if (gx#stx-box? _%__stx2057420575%_) - (let ((_%e1649516526%_ + (if (gx#stx-box? _%__stx2063720638%_) + (let ((_%e1655816589%_ (unbox (gx#syntax-e - _%__stx2057420575%_)))) - (_%__kont2059120592%_ _%e1649516526%_)) - (_%__kont2059320594%_ - _%__stx2057420575%_)))) - (_%__match2069320694%_ - (lambda (_%e1648416578%_ - _%__splice2058920590%_ - _%target1648516582%_ - _%tl1648716585%_) - (letrec ((_%loop1648816588%_ - (lambda (_%hd1648616592%_ - _%e1649216595%_) + _%__stx2063720638%_)))) + (_%__kont2065420655%_ _%e1655816589%_)) + (_%__kont2065620657%_ + _%__stx2063720638%_)))) + (_%__match2075620757%_ + (lambda (_%e1654716641%_ + _%__splice2065220653%_ + _%target1654816645%_ + _%tl1655016648%_) + (letrec ((_%loop1655116651%_ + (lambda (_%hd1654916655%_ + _%e1655516658%_) (if (gx#stx-pair? - _%hd1648616592%_) - (let ((_%e1648916598%_ + _%hd1654916655%_) + (let ((_%e1655216661%_ (gx#syntax-e - _%hd1648616592%_))) - (let ((_%lp-tl1649116605%_ + _%hd1654916655%_))) + (let ((_%lp-tl1655416668%_ (let () (declare (not safe)) - (##cdr _%e1648916598%_))) - (_%lp-hd1649016602%_ + (##cdr _%e1655216661%_))) + (_%lp-hd1655316665%_ (let () (declare (not safe)) - (##car _%e1648916598%_)))) - (_%loop1648816588%_ - _%lp-tl1649116605%_ - (cons _%lp-hd1649016602%_ - _%e1649216595%_)))) - (let ((_%e1649316608%_ - (reverse _%e1649216595%_))) - (_%__kont2058720588%_ - _%e1649316608%_)))))) - (_%loop1648816588%_ - _%target1648516582%_ + (##car _%e1655216661%_)))) + (_%loop1655116651%_ + _%lp-tl1655416668%_ + (cons _%lp-hd1655316665%_ + _%e1655516658%_)))) + (let ((_%e1655616671%_ + (reverse _%e1655516658%_))) + (_%__kont2065020651%_ + _%e1655616671%_)))))) + (_%loop1655116651%_ + _%target1654816645%_ '())))) - (_%g1644116665%_ + (_%g1650416728%_ (lambda () - (if (gx#stx-vector? _%__stx2057420575%_) - (let ((_%e1648416578%_ + (if (gx#stx-vector? _%__stx2063720638%_) + (let ((_%e1654716641%_ (vector->list (gx#syntax-e - _%__stx2057420575%_)))) - (if (gx#stx-pair/null? _%e1648416578%_) - (let ((_%__splice2058920590%_ + _%__stx2063720638%_)))) + (if (gx#stx-pair/null? _%e1654716641%_) + (let ((_%__splice2065220653%_ (gx#syntax-split-splice - _%e1648416578%_ + _%e1654716641%_ '0))) - (let ((_%tl1648716585%_ + (let ((_%tl1655016648%_ (let () (declare (not safe)) (##vector-ref - _%__splice2058920590%_ + _%__splice2065220653%_ '1))) - (_%target1648516582%_ + (_%target1654816645%_ (let () (declare (not safe)) (##vector-ref - _%__splice2058920590%_ + _%__splice2065220653%_ '0)))) (if (gx#stx-null? - _%tl1648716585%_) - (_%__match2069320694%_ - _%e1648416578%_ - _%__splice2058920590%_ - _%target1648516582%_ - _%tl1648716585%_) - (_%__kont2059320594%_ - _%__stx2057420575%_)))) - (_%__kont2059320594%_ - _%__stx2057420575%_))) + _%tl1655016648%_) + (_%__match2075620757%_ + _%e1654716641%_ + _%__splice2065220653%_ + _%target1654816645%_ + _%tl1655016648%_) + (_%__kont2065620657%_ + _%__stx2063720638%_)))) + (_%__kont2065620657%_ + _%__stx2063720638%_))) (let () (declare (not safe)) - (_%g1644216571%_)))))) - (if (gx#stx-pair? _%__stx2057420575%_) - (let ((_%e1644716993%_ - (gx#syntax-e _%__stx2057420575%_))) - (let ((_%tl1644917000%_ + (_%g1650516634%_)))))) + (if (gx#stx-pair? _%__stx2063720638%_) + (let ((_%e1651017056%_ + (gx#syntax-e _%__stx2063720638%_))) + (let ((_%tl1651217063%_ (let () (declare (not safe)) - (##cdr _%e1644716993%_))) - (_%hd1644816997%_ + (##cdr _%e1651017056%_))) + (_%hd1651117060%_ (let () (declare (not safe)) - (##car _%e1644716993%_)))) - (if (gx#identifier? _%hd1644816997%_) + (##car _%e1651017056%_)))) + (if (gx#identifier? _%hd1651117060%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21005_| - _%hd1644816997%_) - (if (gx#stx-pair? _%tl1644917000%_) - (let ((_%e1645017003%_ + |gerbil/core/sugar~Sugar-2[1]#_g21068_| + _%hd1651117060%_) + (if (gx#stx-pair? _%tl1651217063%_) + (let ((_%e1651317066%_ (gx#syntax-e - _%tl1644917000%_))) - (let ((_%tl1645217010%_ + _%tl1651217063%_))) + (let ((_%tl1651517073%_ (let () (declare (not safe)) - (##cdr _%e1645017003%_))) - (_%hd1645117007%_ + (##cdr _%e1651317066%_))) + (_%hd1651417070%_ (let () (declare (not safe)) - (##car _%e1645017003%_)))) + (##car _%e1651317066%_)))) (if (gx#stx-null? - _%tl1645217010%_) - (_%__kont2057720578%_ - _%hd1645117007%_) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)) + _%tl1651517073%_) + (_%__kont2064020641%_ + _%hd1651417070%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21006_| - _%hd1644816997%_) + |gerbil/core/sugar~Sugar-2[1]#_g21069_| + _%hd1651117060%_) (if (gx#stx-pair? - _%tl1644917000%_) - (let ((_%e1645716932%_ + _%tl1651217063%_) + (let ((_%e1652016995%_ (gx#syntax-e - _%tl1644917000%_))) - (let ((_%tl1645916939%_ + _%tl1651217063%_))) + (let ((_%tl1652217002%_ (let () (declare (not safe)) - (##cdr _%e1645716932%_))) - (_%hd1645816936%_ + (##cdr _%e1652016995%_))) + (_%hd1652116999%_ (let () (declare (not safe)) - (##car _%e1645716932%_)))) + (##car _%e1652016995%_)))) (if (gx#stx-null? - _%tl1645916939%_) - (_%__kont2057920580%_ - _%hd1645816936%_) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)) + _%tl1652217002%_) + (_%__kont2064220643%_ + _%hd1652116999%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21007_| - _%hd1644816997%_) + |gerbil/core/sugar~Sugar-2[1]#_g21070_| + _%hd1651117060%_) (if (gx#stx-pair? - _%tl1644917000%_) - (let ((_%e1646416861%_ + _%tl1651217063%_) + (let ((_%e1652716924%_ (gx#syntax-e - _%tl1644917000%_))) - (let ((_%tl1646616868%_ + _%tl1651217063%_))) + (let ((_%tl1652916931%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1646416861%_))) - (_%hd1646516865%_ - (let () (declare (not safe)) (##car _%e1646416861%_)))) - (if (gx#stx-null? _%tl1646616868%_) - (_%__kont2058120582%_ _%hd1646516865%_) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (_%__kont2058520586%_ _%tl1644917000%_ _%hd1644816997%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (if (gx#stx-pair? _%hd1644816997%_) - (let ((_%e1647216776%_ + (##cdr _%e1652716924%_))) + (_%hd1652816928%_ + (let () (declare (not safe)) (##car _%e1652716924%_)))) + (if (gx#stx-null? _%tl1652916931%_) + (_%__kont2064420645%_ _%hd1652816928%_) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (if (gx#stx-pair? _%hd1651117060%_) + (let ((_%e1653516839%_ (gx#syntax-e - _%hd1644816997%_))) - (let ((_%tl1647416783%_ + _%hd1651117060%_))) + (let ((_%tl1653716846%_ (let () (declare (not safe)) - (##cdr _%e1647216776%_))) - (_%hd1647316780%_ + (##cdr _%e1653516839%_))) + (_%hd1653616843%_ (let () (declare (not safe)) - (##car _%e1647216776%_)))) + (##car _%e1653516839%_)))) (if (gx#identifier? - _%hd1647316780%_) + _%hd1653616843%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21008_| - _%hd1647316780%_) + |gerbil/core/sugar~Sugar-2[1]#_g21071_| + _%hd1653616843%_) (if (gx#stx-pair? - _%tl1647416783%_) - (let ((_%e1647516786%_ + _%tl1653716846%_) + (let ((_%e1653816849%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1647416783%_))) - (let ((_%tl1647716793%_ + (gx#syntax-e _%tl1653716846%_))) + (let ((_%tl1654016856%_ (let () (declare (not safe)) - (##cdr _%e1647516786%_))) - (_%hd1647616790%_ + (##cdr _%e1653816849%_))) + (_%hd1653916853%_ (let () (declare (not safe)) - (##car _%e1647516786%_)))) - (if (gx#stx-null? _%tl1647716793%_) - (if (fxzero? _%d16435%_) - (let ((_%L16796%_ _%tl1644917000%_) - (_%L16798%_ _%hd1647616790%_)) - (_%__kont2058320584%_ _%L16796%_ _%L16798%_)) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (_%__kont2058520586%_ _%tl1644917000%_ _%hd1644816997%_)) - (_%__kont2058520586%_ _%tl1644917000%_ _%hd1644816997%_)) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_)))) - (_%__kont2058520586%_ - _%tl1644917000%_ - _%hd1644816997%_))))) + (##car _%e1653816849%_)))) + (if (gx#stx-null? _%tl1654016856%_) + (if (fxzero? _%d16498%_) + (let ((_%L16859%_ _%tl1651217063%_) + (_%L16861%_ _%hd1653916853%_)) + (_%__kont2064620647%_ _%L16859%_ _%L16861%_)) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) + (_%__kont2064820649%_ _%tl1651217063%_ _%hd1651117060%_)) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_)))) + (_%__kont2064820649%_ + _%tl1651217063%_ + _%hd1651117060%_))))) (let () (declare (not safe)) - (_%g1644116665%_))))))))) - (let* ((_%g1637316387%_ - (lambda (_%g1637416383%_) + (_%g1650416728%_))))))))) + (let* ((_%g1643616450%_ + (lambda (_%g1643716446%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1637416383%_))) - (_%g1637216429%_ - (lambda (_%g1637416391%_) - (if (gx#stx-pair? _%g1637416391%_) - (let ((_%e1637616394%_ (gx#syntax-e _%g1637416391%_))) - (let ((_%hd1637716398%_ + _%g1643716446%_))) + (_%g1643516492%_ + (lambda (_%g1643716454%_) + (if (gx#stx-pair? _%g1643716454%_) + (let ((_%e1643916457%_ (gx#syntax-e _%g1643716454%_))) + (let ((_%hd1644016461%_ (let () (declare (not safe)) - (##car _%e1637616394%_))) - (_%tl1637816401%_ + (##car _%e1643916457%_))) + (_%tl1644116464%_ (let () (declare (not safe)) - (##cdr _%e1637616394%_)))) - (if (gx#stx-pair? _%tl1637816401%_) - (let ((_%e1637916404%_ - (gx#syntax-e _%tl1637816401%_))) - (let ((_%hd1638016408%_ + (##cdr _%e1643916457%_)))) + (if (gx#stx-pair? _%tl1644116464%_) + (let ((_%e1644216467%_ + (gx#syntax-e _%tl1644116464%_))) + (let ((_%hd1644316471%_ (let () (declare (not safe)) - (##car _%e1637916404%_))) - (_%tl1638116411%_ + (##car _%e1644216467%_))) + (_%tl1644416474%_ (let () (declare (not safe)) - (##cdr _%e1637916404%_)))) - (if (gx#stx-null? _%tl1638116411%_) - ((lambda (_%L16414%_) - (if (_%simple-quote?16369%_ - _%L16414%_) + (##cdr _%e1644216467%_)))) + (if (gx#stx-null? _%tl1644416474%_) + ((lambda (_%L16477%_) + (if (_%simple-quote?16432%_ + _%L16477%_) (cons (gx#datum->syntax '#f 'quote) - (cons _%L16414%_ '())) - (_%generate16371%_ - _%L16414%_ + (cons _%L16477%_ '())) + (_%generate16434%_ + _%L16477%_ '0))) - _%hd1638016408%_) - (_%g1637316387%_ _%g1637416391%_)))) - (_%g1637316387%_ _%g1637416391%_)))) - (_%g1637316387%_ _%g1637416391%_))))) - (_%g1637216429%_ _%stx16366%_))))) + _%hd1644316471%_) + (_%g1643616450%_ _%g1643716454%_)))) + (_%g1643616450%_ _%g1643716454%_)))) + (_%g1643616450%_ _%g1643716454%_))))) + (_%g1643516492%_ _%stx16429%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#delay| - (lambda (_%$stx17301%_) - (let* ((_%__stx2070020701%_ _%$stx17301%_) - (_%g1730617327%_ + (lambda (_%$stx17364%_) + (let* ((_%__stx2076320764%_ _%$stx17364%_) + (_%g1736917390%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2070020701%_)))) - (let ((_%__kont2070320704%_ - (lambda (_%L17395%_) - (cons (gx#datum->syntax '#f 'quote) (cons _%L17395%_ '())))) - (_%__kont2070520706%_ - (lambda (_%L17354%_) + _%__stx2076320764%_)))) + (let ((_%__kont2076620767%_ + (lambda (_%L17458%_) + (cons (gx#datum->syntax '#f 'quote) (cons _%L17458%_ '())))) + (_%__kont2076820769%_ + (lambda (_%L17417%_) (cons (gx#datum->syntax '#f 'make-promise) (cons (cons (gx#datum->syntax '#f 'lambda%) - (cons '() (cons _%L17354%_ '()))) + (cons '() (cons _%L17417%_ '()))) '()))))) - (let ((_%__match2072120722%_ - (lambda (_%e1730917375%_ - _%hd1731017379%_ - _%tl1731117382%_ - _%e1731217385%_ - _%hd1731317389%_ - _%tl1731417392%_) - (let ((_%L17395%_ _%hd1731317389%_)) - (if (gx#stx-datum? _%L17395%_) - (_%__kont2070320704%_ _%L17395%_) - (_%__kont2070520706%_ _%hd1731317389%_)))))) - (if (gx#stx-pair? _%__stx2070020701%_) - (let ((_%e1730917375%_ (gx#syntax-e _%__stx2070020701%_))) - (let ((_%tl1731117382%_ + (let ((_%__match2078420785%_ + (lambda (_%e1737217438%_ + _%hd1737317442%_ + _%tl1737417445%_ + _%e1737517448%_ + _%hd1737617452%_ + _%tl1737717455%_) + (let ((_%L17458%_ _%hd1737617452%_)) + (if (gx#stx-datum? _%L17458%_) + (_%__kont2076620767%_ _%L17458%_) + (_%__kont2076820769%_ _%hd1737617452%_)))))) + (if (gx#stx-pair? _%__stx2076320764%_) + (let ((_%e1737217438%_ (gx#syntax-e _%__stx2076320764%_))) + (let ((_%tl1737417445%_ (let () (declare (not safe)) - (##cdr _%e1730917375%_))) - (_%hd1731017379%_ + (##cdr _%e1737217438%_))) + (_%hd1737317442%_ (let () (declare (not safe)) - (##car _%e1730917375%_)))) - (if (gx#stx-pair? _%tl1731117382%_) - (let ((_%e1731217385%_ - (gx#syntax-e _%tl1731117382%_))) - (let ((_%tl1731417392%_ + (##car _%e1737217438%_)))) + (if (gx#stx-pair? _%tl1737417445%_) + (let ((_%e1737517448%_ + (gx#syntax-e _%tl1737417445%_))) + (let ((_%tl1737717455%_ (let () (declare (not safe)) - (##cdr _%e1731217385%_))) - (_%hd1731317389%_ + (##cdr _%e1737517448%_))) + (_%hd1737617452%_ (let () (declare (not safe)) - (##car _%e1731217385%_)))) - (if (gx#stx-null? _%tl1731417392%_) - (_%__match2072120722%_ - _%e1730917375%_ - _%hd1731017379%_ - _%tl1731117382%_ - _%e1731217385%_ - _%hd1731317389%_ - _%tl1731417392%_) + (##car _%e1737517448%_)))) + (if (gx#stx-null? _%tl1737717455%_) + (_%__match2078420785%_ + _%e1737217438%_ + _%hd1737317442%_ + _%tl1737417445%_ + _%e1737517448%_ + _%hd1737617452%_ + _%tl1737717455%_) (let () (declare (not safe)) - (_%g1730617327%_))))) - (let () (declare (not safe)) (_%g1730617327%_))))) - (let () (declare (not safe)) (_%g1730617327%_)))))))) + (_%g1736917390%_))))) + (let () (declare (not safe)) (_%g1736917390%_))))) + (let () (declare (not safe)) (_%g1736917390%_)))))))) (define |gerbil/core/sugar~Sugar-2[:0:]#cut| - (lambda (_%stx17412%_) - (letrec ((_%generate17415%_ - (lambda (_%rest17534%_) - (let _%lp17537%_ ((_%rest17540%_ _%rest17534%_) - (_%hd17542%_ '()) - (_%body17543%_ '())) - (let* ((_%__stx2075820759%_ _%rest17540%_) - (_%g1754617558%_ + (lambda (_%stx17475%_) + (letrec ((_%generate17478%_ + (lambda (_%rest17597%_) + (let _%lp17600%_ ((_%rest17603%_ _%rest17597%_) + (_%hd17605%_ '()) + (_%body17606%_ '())) + (let* ((_%__stx2082120822%_ _%rest17603%_) + (_%g1760917621%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2075820759%_)))) - (let ((_%__kont2076120762%_ - (lambda (_%L17586%_ _%L17588%_) - (let* ((_%__stx2073820739%_ _%L17588%_) - (_%g1760517612%_ + _%__stx2082120822%_)))) + (let ((_%__kont2082420825%_ + (lambda (_%L17649%_ _%L17651%_) + (let* ((_%__stx2080120802%_ _%L17651%_) + (_%g1766817675%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2073820739%_)))) - (let ((_%__kont2074120742%_ + _%__stx2080120802%_)))) + (let ((_%__kont2080420805%_ (lambda () - (let ((_%arg17648%_ (gx#genident))) - (_%lp17537%_ - _%L17586%_ - (cons _%arg17648%_ _%hd17542%_) - (cons _%arg17648%_ - _%body17543%_))))) - (_%__kont2074320744%_ + (let ((_%arg17711%_ (gx#genident))) + (_%lp17600%_ + _%L17649%_ + (cons _%arg17711%_ _%hd17605%_) + (cons _%arg17711%_ + _%body17606%_))))) + (_%__kont2080620807%_ (lambda () - (if (gx#stx-null? _%L17586%_) - (let ((_%tail17634%_ + (if (gx#stx-null? _%L17649%_) + (let ((_%tail17697%_ (gx#genident))) (values (foldl cons ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tail17634%_ - _%hd17542%_) - (foldl cons (list _%tail17634%_) _%body17543%_) + _%tail17697%_ + _%hd17605%_) + (foldl cons (list _%tail17697%_) _%body17606%_) '#t)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#raise-syntax-error '#f '"bad syntax; cut ellipsis <...> not in tail position" - _%stx17412%_ - _%L17588%_)))) - (_%__kont2074520746%_ + _%stx17475%_ + _%L17651%_)))) + (_%__kont2080820809%_ (lambda () - (_%lp17537%_ - _%L17586%_ - _%hd17542%_ - (cons _%L17588%_ - _%body17543%_))))) - (if (gx#identifier? _%__stx2073820739%_) + (_%lp17600%_ + _%L17649%_ + _%hd17605%_ + (cons _%L17651%_ + _%body17606%_))))) + (if (gx#identifier? _%__stx2080120802%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21009_| - _%__stx2073820739%_) - (_%__kont2074120742%_) + |gerbil/core/sugar~Sugar-2[1]#_g21072_| + _%__stx2080120802%_) + (_%__kont2080420805%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-2[1]#_g21010_| - _%__stx2073820739%_) - (_%__kont2074320744%_) - (_%__kont2074520746%_))) - (_%__kont2074520746%_)))))) - (_%__kont2076320764%_ + |gerbil/core/sugar~Sugar-2[1]#_g21073_| + _%__stx2080120802%_) + (_%__kont2080620807%_) + (_%__kont2080820809%_))) + (_%__kont2080820809%_)))))) + (_%__kont2082620827%_ (lambda () - (values (reverse _%hd17542%_) - (reverse _%body17543%_) + (values (reverse _%hd17605%_) + (reverse _%body17606%_) '#f)))) - (if (gx#stx-pair? _%__stx2075820759%_) - (let ((_%e1755017576%_ - (gx#syntax-e _%__stx2075820759%_))) - (let ((_%tl1755217583%_ + (if (gx#stx-pair? _%__stx2082120822%_) + (let ((_%e1761317639%_ + (gx#syntax-e _%__stx2082120822%_))) + (let ((_%tl1761517646%_ (let () (declare (not safe)) - (##cdr _%e1755017576%_))) - (_%hd1755117580%_ + (##cdr _%e1761317639%_))) + (_%hd1761417643%_ (let () (declare (not safe)) - (##car _%e1755017576%_)))) - (_%__kont2076120762%_ - _%tl1755217583%_ - _%hd1755117580%_))) - (_%__kont2076320764%_)))))))) - (let* ((_%g1741817429%_ - (lambda (_%g1741917425%_) + (##car _%e1761317639%_)))) + (_%__kont2082420825%_ + _%tl1761517646%_ + _%hd1761417643%_))) + (_%__kont2082620827%_)))))))) + (let* ((_%g1748117492%_ + (lambda (_%g1748217488%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1741917425%_))) - (_%g1741717530%_ - (lambda (_%g1741917433%_) - (if (gx#stx-pair? _%g1741917433%_) - (let ((_%e1742117436%_ (gx#syntax-e _%g1741917433%_))) - (let ((_%hd1742217440%_ + _%g1748217488%_))) + (_%g1748017593%_ + (lambda (_%g1748217496%_) + (if (gx#stx-pair? _%g1748217496%_) + (let ((_%e1748417499%_ (gx#syntax-e _%g1748217496%_))) + (let ((_%hd1748517503%_ (let () (declare (not safe)) - (##car _%e1742117436%_))) - (_%tl1742317443%_ + (##car _%e1748417499%_))) + (_%tl1748617506%_ (let () (declare (not safe)) - (##cdr _%e1742117436%_)))) - ((lambda (_%L17446%_) - (if (and (gx#stx-list? _%L17446%_) - (not (gx#stx-null? _%L17446%_))) - (let ((_g21011_ - (_%generate17415%_ _%L17446%_))) + (##cdr _%e1748417499%_)))) + ((lambda (_%L17509%_) + (if (and (gx#stx-list? _%L17509%_) + (not (gx#stx-null? _%L17509%_))) + (let ((_g21074_ + (_%generate17478%_ _%L17509%_))) (begin - (let ((_g21012_ + (let ((_g21075_ (let () (declare (not safe)) - (if (##values? _g21011_) - (##vector-length _g21011_) + (if (##values? _g21074_) + (##values-length _g21074_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21012_ 3))) + (##fx= _g21075_ 3))) (error "Context expects 3 values" - _g21012_))) - (let ((_%hd17459%_ + _g21075_))) + (let ((_%hd17522%_ (let () (declare (not safe)) - (##vector-ref _g21011_ 0))) - (_%body17461%_ + (##values-ref _g21074_ 0))) + (_%body17524%_ (let () (declare (not safe)) - (##vector-ref _g21011_ 1))) - (_%tail?17462%_ + (##values-ref _g21074_ 1))) + (_%tail?17525%_ (let () (declare (not safe)) - (##vector-ref _g21011_ 2)))) - (let* ((_%g1746417472%_ - (lambda (_%g1746517468%_) + (##values-ref _g21074_ 2)))) + (let* ((_%g1752717535%_ + (lambda (_%g1752817531%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1746517468%_))) - (_%g1746317526%_ - (lambda (_%g1746517476%_) - ((lambda (_%L17479%_) - (let* ((_%g1749217500%_ - (lambda (_%g1749317496%_) + _%g1752817531%_))) + (_%g1752617589%_ + (lambda (_%g1752817539%_) + ((lambda (_%L17542%_) + (let* ((_%g1755517563%_ + (lambda (_%g1755617559%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g1749317496%_))) - (_%g1749117522%_ - (lambda (_%g1749317504%_) - ((lambda (_%L17507%_) - (if _%tail?17462%_ + _%g1755617559%_))) + (_%g1755417585%_ + (lambda (_%g1755617567%_) + ((lambda (_%L17570%_) + (if _%tail?17525%_ (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17479%_ + (cons _%L17542%_ (cons (cons (gx#datum->syntax '#f 'apply) - _%L17507%_) + _%L17570%_) '()))) (cons (gx#datum->syntax '#f 'lambda%) - (cons _%L17479%_ (cons _%L17507%_ '()))))) - _%g1749317504%_)))) - (_%g1749117522%_ _%body17461%_))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1746517476%_)))) - (_%g1746317526%_ _%hd17459%_))))) - (_%g1741817429%_ _%g1741917433%_))) - _%tl1742317443%_))) - (_%g1741817429%_ _%g1741917433%_))))) - (_%g1741717530%_ _%stx17412%_))))) + (cons _%L17542%_ (cons _%L17570%_ '()))))) + _%g1755617567%_)))) + (_%g1755417585%_ _%body17524%_))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + _%g1752817539%_)))) + (_%g1752617589%_ _%hd17522%_))))) + (_%g1748117492%_ _%g1748217496%_))) + _%tl1748617506%_))) + (_%g1748117492%_ _%g1748217496%_))))) + (_%g1748017593%_ _%stx17475%_))))) (define |gerbil/core/sugar~Sugar-2[:0:]#<>| - (lambda (_%$stx17660%_) - (let ((_%g1766317670%_ - (lambda (_%g1766417666%_) + (lambda (_%$stx17723%_) + (let ((_%g1772617733%_ + (lambda (_%g1772717729%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1766417666%_)))) - (_%g1766317670%_ _%$stx17660%_)))) + _%g1772717729%_)))) + (_%g1772617733%_ _%$stx17723%_)))) (define |gerbil/core/sugar~Sugar-2[:0:]#<...>| - (lambda (_%$stx17674%_) - (let ((_%g1767717684%_ - (lambda (_%g1767817680%_) + (lambda (_%$stx17737%_) + (let ((_%g1774017747%_ + (lambda (_%g1774117743%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1767817680%_)))) - (_%g1767717684%_ _%$stx17674%_)))))) + _%g1774117743%_)))) + (_%g1774017747%_ _%$stx17737%_)))))) diff --git a/src/bootstrap/gerbil/core/sugar~3.scm b/src/bootstrap/gerbil/core/sugar~3.scm index 115ee0d3a..b04b624f6 100644 --- a/src/bootstrap/gerbil/core/sugar~3.scm +++ b/src/bootstrap/gerbil/core/sugar~3.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gerbil/core/sugar~Sugar-3[1]#_g21019_| + (define |gerbil/core/sugar~Sugar-3[1]#_g21082_| (##structure gx#syntax-quote::t 'quote @@ -9,572 +9,572 @@ '())) (begin (define |gerbil/core/sugar~Sugar-3[:0:]#defsyntax| - (lambda (_%$stx17689%_) - (let* ((_%__stx2077420775%_ _%$stx17689%_) - (_%g1769417733%_ + (lambda (_%$stx17752%_) + (let* ((_%__stx2083720838%_ _%$stx17752%_) + (_%g1775717796%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2077420775%_)))) - (let ((_%__kont2077720778%_ - (lambda (_%L17856%_ _%L17858%_ _%L17859%_) + _%__stx2083720838%_)))) + (let ((_%__kont2084020841%_ + (lambda (_%L17919%_ _%L17921%_ _%L17922%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17859%_ + (cons _%L17922%_ (cons (cons (gx#datum->syntax '#f 'lambda) - (cons _%L17858%_ - (foldr (lambda (_%g1787817881%_ + (cons _%L17921%_ + (foldr (lambda (_%g1794117944%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1787917884%_) - (cons _%g1787817881%_ _%g1787917884%_)) + _%g1794217947%_) + (cons _%g1794117944%_ _%g1794217947%_)) '() - _%L17856%_))) + _%L17919%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (_%__kont2078120782%_ - (lambda (_%L17770%_ _%L17772%_) + (_%__kont2084420845%_ + (lambda (_%L17833%_ _%L17835%_) (cons (gx#datum->syntax '#f 'define-syntax) - (cons _%L17772%_ (cons _%L17770%_ '())))))) - (let* ((_%__match2082920830%_ - (lambda (_%e1771917740%_ - _%hd1772017744%_ - _%tl1772117747%_ - _%e1772217750%_ - _%hd1772317754%_ - _%tl1772417757%_ - _%e1772517760%_ - _%hd1772617764%_ - _%tl1772717767%_) - (let ((_%L17770%_ _%hd1772617764%_) - (_%L17772%_ _%hd1772317754%_)) - (if (gx#identifier? _%L17772%_) - (_%__kont2078120782%_ _%L17770%_ _%L17772%_) - (let () (declare (not safe)) (_%g1769417733%_)))))) - (_%__match2082120822%_ - (lambda (_%e1771917740%_ - _%hd1772017744%_ - _%tl1772117747%_ - _%e1772217750%_ - _%hd1772317754%_ - _%tl1772417757%_) - (if (gx#stx-pair? _%tl1772417757%_) - (let ((_%e1772517760%_ - (gx#syntax-e _%tl1772417757%_))) - (let ((_%tl1772717767%_ + (cons _%L17835%_ (cons _%L17833%_ '())))))) + (let* ((_%__match2089220893%_ + (lambda (_%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) + (let ((_%L17833%_ _%hd1778917827%_) + (_%L17835%_ _%hd1778617817%_)) + (if (gx#identifier? _%L17835%_) + (_%__kont2084420845%_ _%L17833%_ _%L17835%_) + (let () (declare (not safe)) (_%g1775717796%_)))))) + (_%__match2088420885%_ + (lambda (_%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_) + (if (gx#stx-pair? _%tl1778717820%_) + (let ((_%e1778817823%_ + (gx#syntax-e _%tl1778717820%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1772517760%_))) - (_%hd1772617764%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1772517760%_)))) - (if (gx#stx-null? _%tl1772717767%_) - (_%__match2082920830%_ - _%e1771917740%_ - _%hd1772017744%_ - _%tl1772117747%_ - _%e1772217750%_ - _%hd1772317754%_ - _%tl1772417757%_ - _%e1772517760%_ - _%hd1772617764%_ - _%tl1772717767%_) + (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1778217803%_ + _%hd1778317807%_ + _%tl1778417810%_ + _%e1778517813%_ + _%hd1778617817%_ + _%tl1778717820%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1769417733%_))))) - (let () (declare (not safe)) (_%g1769417733%_))))) - (_%__match2080920810%_ - (lambda (_%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_ - _%e1770517816%_ - _%hd1770617820%_ - _%tl1770717823%_ - _%__splice2077920780%_ - _%target1770817826%_ - _%tl1771017829%_) - (letrec ((_%loop1771117832%_ - (lambda (_%hd1770917836%_ _%body1771517839%_) - (if (gx#stx-pair? _%hd1770917836%_) - (let ((_%e1771217842%_ - (gx#syntax-e _%hd1770917836%_))) - (let ((_%lp-tl1771417849%_ + (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_))))) + (_%__match2087220873%_ + (lambda (_%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1776817879%_ + _%hd1776917883%_ + _%tl1777017886%_ + _%__splice2084220843%_ + _%target1777117889%_ + _%tl1777317892%_) + (letrec ((_%loop1777417895%_ + (lambda (_%hd1777217899%_ _%body1777817902%_) + (if (gx#stx-pair? _%hd1777217899%_) + (let ((_%e1777517905%_ + (gx#syntax-e _%hd1777217899%_))) + (let ((_%lp-tl1777717912%_ (let () (declare (not safe)) - (##cdr _%e1771217842%_))) - (_%lp-hd1771317846%_ + (##cdr _%e1777517905%_))) + (_%lp-hd1777617909%_ (let () (declare (not safe)) - (##car _%e1771217842%_)))) - (_%loop1771117832%_ - _%lp-tl1771417849%_ - (cons _%lp-hd1771317846%_ - _%body1771517839%_)))) - (let ((_%body1771617852%_ - (reverse _%body1771517839%_))) - (let ((_%L17856%_ _%body1771617852%_) - (_%L17858%_ _%tl1770717823%_) - (_%L17859%_ _%hd1770617820%_)) - (if (gx#identifier? _%L17859%_) - (_%__kont2077720778%_ - _%L17856%_ - _%L17858%_ - _%L17859%_) - (_%__match2082120822%_ - _%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_)))))))) - (_%loop1771117832%_ _%target1770817826%_ '()))))) - (if (gx#stx-pair? _%__stx2077420775%_) - (let ((_%e1769917796%_ (gx#syntax-e _%__stx2077420775%_))) - (let ((_%tl1770117803%_ + (##car _%e1777517905%_)))) + (_%loop1777417895%_ + _%lp-tl1777717912%_ + (cons _%lp-hd1777617909%_ + _%body1777817902%_)))) + (let ((_%body1777917915%_ + (reverse _%body1777817902%_))) + (let ((_%L17919%_ _%body1777917915%_) + (_%L17921%_ _%tl1777017886%_) + (_%L17922%_ _%hd1776917883%_)) + (if (gx#identifier? _%L17922%_) + (_%__kont2084020841%_ + _%L17919%_ + _%L17921%_ + _%L17922%_) + (_%__match2088420885%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_)))))))) + (_%loop1777417895%_ _%target1777117889%_ '()))))) + (if (gx#stx-pair? _%__stx2083720838%_) + (let ((_%e1776217859%_ (gx#syntax-e _%__stx2083720838%_))) + (let ((_%tl1776417866%_ (let () (declare (not safe)) - (##cdr _%e1769917796%_))) - (_%hd1770017800%_ + (##cdr _%e1776217859%_))) + (_%hd1776317863%_ (let () (declare (not safe)) - (##car _%e1769917796%_)))) - (if (gx#stx-pair? _%tl1770117803%_) - (let ((_%e1770217806%_ - (gx#syntax-e _%tl1770117803%_))) - (let ((_%tl1770417813%_ + (##car _%e1776217859%_)))) + (if (gx#stx-pair? _%tl1776417866%_) + (let ((_%e1776517869%_ + (gx#syntax-e _%tl1776417866%_))) + (let ((_%tl1776717876%_ (let () (declare (not safe)) - (##cdr _%e1770217806%_))) - (_%hd1770317810%_ + (##cdr _%e1776517869%_))) + (_%hd1776617873%_ (let () (declare (not safe)) - (##car _%e1770217806%_)))) - (if (gx#stx-pair? _%hd1770317810%_) - (let ((_%e1770517816%_ - (gx#syntax-e _%hd1770317810%_))) - (let ((_%tl1770717823%_ + (##car _%e1776517869%_)))) + (if (gx#stx-pair? _%hd1776617873%_) + (let ((_%e1776817879%_ + (gx#syntax-e _%hd1776617873%_))) + (let ((_%tl1777017886%_ (let () (declare (not safe)) - (##cdr _%e1770517816%_))) - (_%hd1770617820%_ + (##cdr _%e1776817879%_))) + (_%hd1776917883%_ (let () (declare (not safe)) - (##car _%e1770517816%_)))) - (if (gx#stx-pair/null? _%tl1770417813%_) - (let ((_%__splice2077920780%_ + (##car _%e1776817879%_)))) + (if (gx#stx-pair/null? _%tl1776717876%_) + (let ((_%__splice2084220843%_ (gx#syntax-split-splice - _%tl1770417813%_ + _%tl1776717876%_ '0))) - (let ((_%tl1771017829%_ + (let ((_%tl1777317892%_ (let () (declare (not safe)) (##vector-ref - _%__splice2077920780%_ + _%__splice2084220843%_ '1))) - (_%target1770817826%_ + (_%target1777117889%_ (let () (declare (not safe)) (##vector-ref - _%__splice2077920780%_ + _%__splice2084220843%_ '0)))) (if (gx#stx-null? - _%tl1771017829%_) - (_%__match2080920810%_ - _%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_ - _%e1770517816%_ - _%hd1770617820%_ - _%tl1770717823%_ - _%__splice2077920780%_ - _%target1770817826%_ - _%tl1771017829%_) + _%tl1777317892%_) + (_%__match2087220873%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1776817879%_ + _%hd1776917883%_ + _%tl1777017886%_ + _%__splice2084220843%_ + _%target1777117889%_ + _%tl1777317892%_) (if (gx#stx-pair? - _%tl1770417813%_) - (let ((_%e1772517760%_ + _%tl1776717876%_) + (let ((_%e1778817823%_ (gx#syntax-e - _%tl1770417813%_))) - (let ((_%tl1772717767%_ + _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e1772517760%_))) - (_%hd1772617764%_ - (let () (declare (not safe)) (##car _%e1772517760%_)))) - (if (gx#stx-null? _%tl1772717767%_) - (_%__match2082920830%_ - _%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_ - _%e1772517760%_ - _%hd1772617764%_ - _%tl1772717767%_) - (let () (declare (not safe)) (_%g1769417733%_))))) - (let () (declare (not safe)) (_%g1769417733%_)))))) + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ + (let () (declare (not safe)) (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) + (let () (declare (not safe)) (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (gx#stx-pair? _%tl1770417813%_) - (let ((_%e1772517760%_ + (if (gx#stx-pair? _%tl1776717876%_) + (let ((_%e1778817823%_ (gx#syntax-e - _%tl1770417813%_))) - (let ((_%tl1772717767%_ + _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1772517760%_))) - (_%hd1772617764%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1772517760%_)))) + (##car _%e1778817823%_)))) (if (gx#stx-null? - _%tl1772717767%_) - (_%__match2082920830%_ - _%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_ - _%e1772517760%_ - _%hd1772617764%_ - _%tl1772717767%_) + _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1769417733%_))))) + (_%g1775717796%_))))) (let () (declare (not safe)) - (_%g1769417733%_)))))) - (if (gx#stx-pair? _%tl1770417813%_) - (let ((_%e1772517760%_ - (gx#syntax-e _%tl1770417813%_))) - (let ((_%tl1772717767%_ + (_%g1775717796%_)))))) + (if (gx#stx-pair? _%tl1776717876%_) + (let ((_%e1778817823%_ + (gx#syntax-e _%tl1776717876%_))) + (let ((_%tl1779017830%_ (let () (declare (not safe)) - (##cdr _%e1772517760%_))) - (_%hd1772617764%_ + (##cdr _%e1778817823%_))) + (_%hd1778917827%_ (let () (declare (not safe)) - (##car _%e1772517760%_)))) - (if (gx#stx-null? _%tl1772717767%_) - (_%__match2082920830%_ - _%e1769917796%_ - _%hd1770017800%_ - _%tl1770117803%_ - _%e1770217806%_ - _%hd1770317810%_ - _%tl1770417813%_ - _%e1772517760%_ - _%hd1772617764%_ - _%tl1772717767%_) + (##car _%e1778817823%_)))) + (if (gx#stx-null? _%tl1779017830%_) + (_%__match2089220893%_ + _%e1776217859%_ + _%hd1776317863%_ + _%tl1776417866%_ + _%e1776517869%_ + _%hd1776617873%_ + _%tl1776717876%_ + _%e1778817823%_ + _%hd1778917827%_ + _%tl1779017830%_) (let () (declare (not safe)) - (_%g1769417733%_))))) + (_%g1775717796%_))))) (let () (declare (not safe)) - (_%g1769417733%_)))))) - (let () (declare (not safe)) (_%g1769417733%_))))) - (let () (declare (not safe)) (_%g1769417733%_)))))))) + (_%g1775717796%_)))))) + (let () (declare (not safe)) (_%g1775717796%_))))) + (let () (declare (not safe)) (_%g1775717796%_)))))))) (define |gerbil/core/sugar~Sugar-3[:0:]#definline| - (lambda (_%stx17892%_) - (let* ((_%g1789517932%_ - (lambda (_%g1789617928%_) + (lambda (_%stx17955%_) + (let* ((_%g1795817995%_ + (lambda (_%g1795917991%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1789617928%_))) - (_%g1789418293%_ - (lambda (_%g1789617936%_) - (if (gx#stx-pair? _%g1789617936%_) - (let ((_%e1790017939%_ (gx#syntax-e _%g1789617936%_))) - (let ((_%hd1790117943%_ + _%g1795917991%_))) + (_%g1795718356%_ + (lambda (_%g1795917999%_) + (if (gx#stx-pair? _%g1795917999%_) + (let ((_%e1796318002%_ (gx#syntax-e _%g1795917999%_))) + (let ((_%hd1796418006%_ (let () (declare (not safe)) - (##car _%e1790017939%_))) - (_%tl1790217946%_ + (##car _%e1796318002%_))) + (_%tl1796518009%_ (let () (declare (not safe)) - (##cdr _%e1790017939%_)))) - (if (gx#stx-pair? _%tl1790217946%_) - (let ((_%e1790317949%_ - (gx#syntax-e _%tl1790217946%_))) - (let ((_%hd1790417953%_ + (##cdr _%e1796318002%_)))) + (if (gx#stx-pair? _%tl1796518009%_) + (let ((_%e1796618012%_ + (gx#syntax-e _%tl1796518009%_))) + (let ((_%hd1796718016%_ (let () (declare (not safe)) - (##car _%e1790317949%_))) - (_%tl1790517956%_ + (##car _%e1796618012%_))) + (_%tl1796818019%_ (let () (declare (not safe)) - (##cdr _%e1790317949%_)))) - (if (gx#stx-pair? _%hd1790417953%_) - (let ((_%e1790617959%_ - (gx#syntax-e _%hd1790417953%_))) - (let ((_%hd1790717963%_ + (##cdr _%e1796618012%_)))) + (if (gx#stx-pair? _%hd1796718016%_) + (let ((_%e1796918022%_ + (gx#syntax-e _%hd1796718016%_))) + (let ((_%hd1797018026%_ (let () (declare (not safe)) - (##car _%e1790617959%_))) - (_%tl1790817966%_ + (##car _%e1796918022%_))) + (_%tl1797118029%_ (let () (declare (not safe)) - (##cdr _%e1790617959%_)))) + (##cdr _%e1796918022%_)))) (if (gx#stx-pair/null? - _%tl1790817966%_) - (let ((_g21013_ + _%tl1797118029%_) + (let ((_g21076_ (gx#syntax-split-splice - _%tl1790817966%_ + _%tl1797118029%_ '0))) (begin - (let ((_g21014_ + (let ((_g21077_ (let () (declare (not safe)) (if (##values? - _g21013_) - (##vector-length - _g21013_) + _g21076_) + (##values-length + _g21076_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g21014_ 2))) - (error "Context expects 2 values" _g21014_))) + (##fx= _g21077_ 2))) + (error "Context expects 2 values" _g21077_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target1790917969%_ + (let ((_%target1797218032%_ (let () (declare (not safe)) - (##vector-ref - _g21013_ + (##values-ref + _g21076_ 0))) - (_%tl1791117972%_ + (_%tl1797418035%_ (let () (declare (not safe)) - (##vector-ref - _g21013_ + (##values-ref + _g21076_ 1)))) (if (gx#stx-null? - _%tl1791117972%_) - (letrec ((_%loop1791217975%_ + _%tl1797418035%_) + (letrec ((_%loop1797518038%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd1791017979%_ _%arg1791617982%_) - (if (gx#stx-pair? _%hd1791017979%_) - (let ((_%e1791317985%_ - (gx#syntax-e _%hd1791017979%_))) - (let ((_%lp-hd1791417989%_ + (lambda (_%hd1797318042%_ _%arg1797918045%_) + (if (gx#stx-pair? _%hd1797318042%_) + (let ((_%e1797618048%_ + (gx#syntax-e _%hd1797318042%_))) + (let ((_%lp-hd1797718052%_ (let () (declare (not safe)) - (##car _%e1791317985%_))) - (_%lp-tl1791517992%_ + (##car _%e1797618048%_))) + (_%lp-tl1797818055%_ (let () (declare (not safe)) - (##cdr _%e1791317985%_)))) - (_%loop1791217975%_ - _%lp-tl1791517992%_ - (cons _%lp-hd1791417989%_ - _%arg1791617982%_)))) - (let ((_%arg1791717995%_ - (reverse _%arg1791617982%_))) - (if (gx#stx-pair/null? _%tl1790517956%_) - (let ((_g21015_ + (##cdr _%e1797618048%_)))) + (_%loop1797518038%_ + _%lp-tl1797818055%_ + (cons _%lp-hd1797718052%_ + _%arg1797918045%_)))) + (let ((_%arg1798018058%_ + (reverse _%arg1797918045%_))) + (if (gx#stx-pair/null? _%tl1796818019%_) + (let ((_g21078_ (gx#syntax-split-splice - _%tl1790517956%_ + _%tl1796818019%_ '0))) (begin - (let ((_g21016_ + (let ((_g21079_ (let () (declare (not safe)) - (if (##values? _g21015_) - (##vector-length - _g21015_) + (if (##values? _g21078_) + (##values-length + _g21078_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21016_ 2))) + (##fx= _g21079_ 2))) (error "Context expects 2 values" - _g21016_))) - (let ((_%target1791817999%_ + _g21079_))) + (let ((_%target1798118062%_ (let () (declare (not safe)) - (##vector-ref _g21015_ 0))) - (_%tl1792018002%_ + (##values-ref _g21078_ 0))) + (_%tl1798318065%_ (let () (declare (not safe)) - (##vector-ref _g21015_ 1)))) - (if (gx#stx-null? _%tl1792018002%_) - (letrec ((_%loop1792118005%_ - (lambda (_%hd1791918009%_ + (##values-ref _g21078_ 1)))) + (if (gx#stx-null? _%tl1798318065%_) + (letrec ((_%loop1798418068%_ + (lambda (_%hd1798218072%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body1792518012%_) - (if (gx#stx-pair? _%hd1791918009%_) - (let ((_%e1792218015%_ (gx#syntax-e _%hd1791918009%_))) - (let ((_%lp-hd1792318019%_ + _%body1798818075%_) + (if (gx#stx-pair? _%hd1798218072%_) + (let ((_%e1798518078%_ (gx#syntax-e _%hd1798218072%_))) + (let ((_%lp-hd1798618082%_ (let () (declare (not safe)) - (##car _%e1792218015%_))) - (_%lp-tl1792418022%_ + (##car _%e1798518078%_))) + (_%lp-tl1798718085%_ (let () (declare (not safe)) - (##cdr _%e1792218015%_)))) - (_%loop1792118005%_ - _%lp-tl1792418022%_ - (cons _%lp-hd1792318019%_ _%body1792518012%_)))) - (let ((_%body1792618025%_ - (reverse _%body1792518012%_))) - ((lambda (_%L18029%_ _%L18031%_ _%L18032%_) - (if (and (gx#identifier? _%L18032%_) + (##cdr _%e1798518078%_)))) + (_%loop1798418068%_ + _%lp-tl1798718085%_ + (cons _%lp-hd1798618082%_ _%body1798818075%_)))) + (let ((_%body1798918088%_ + (reverse _%body1798818075%_))) + ((lambda (_%L18092%_ _%L18094%_ _%L18095%_) + (if (and (gx#identifier? _%L18095%_) (gx#identifier-list? - (foldr (lambda (_%g1805618059%_ - _%g1805718062%_) - (cons _%g1805618059%_ - _%g1805718062%_)) + (foldr (lambda (_%g1811918122%_ + _%g1812018125%_) + (cons _%g1811918122%_ + _%g1812018125%_)) '() - _%L18031%_))) - (let* ((_%g1806518073%_ - (lambda (_%g1806618069%_) + _%L18094%_))) + (let* ((_%g1812818136%_ + (lambda (_%g1812918132%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1806618069%_))) - (_%g1806418289%_ - (lambda (_%g1806618077%_) - ((lambda (_%L18080%_) - (let* ((_%g1809218109%_ - (lambda (_%g1809318105%_) + _%g1812918132%_))) + (_%g1812718352%_ + (lambda (_%g1812918140%_) + ((lambda (_%L18143%_) + (let* ((_%g1815518172%_ + (lambda (_%g1815618168%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1809318105%_))) - (_%g1809118277%_ - (lambda (_%g1809318113%_) + _%g1815618168%_))) + (_%g1815418340%_ + (lambda (_%g1815618176%_) (if (gx#stx-pair/null? - _%g1809318113%_) - (let ((_g21017_ + _%g1815618176%_) + (let ((_g21080_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-split-splice _%g1809318113%_ '0))) + (gx#syntax-split-splice _%g1815618176%_ '0))) (begin - (let ((_g21018_ + (let ((_g21081_ (let () (declare (not safe)) - (if (##values? _g21017_) - (##vector-length _g21017_) + (if (##values? _g21080_) + (##values-length _g21080_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g21018_ 2))) - (error "Context expects 2 values" _g21018_))) - (let ((_%target1809518116%_ + (##fx= _g21081_ 2))) + (error "Context expects 2 values" _g21081_))) + (let ((_%target1815818179%_ (let () (declare (not safe)) - (##vector-ref _g21017_ 0))) - (_%tl1809718119%_ + (##values-ref _g21080_ 0))) + (_%tl1816018182%_ (let () (declare (not safe)) - (##vector-ref _g21017_ 1)))) - (if (gx#stx-null? _%tl1809718119%_) - (letrec ((_%loop1809818122%_ - (lambda (_%hd1809618126%_ - _%xarg1810218129%_) - (if (gx#stx-pair? _%hd1809618126%_) - (let ((_%e1809918132%_ + (##values-ref _g21080_ 1)))) + (if (gx#stx-null? _%tl1816018182%_) + (letrec ((_%loop1816118185%_ + (lambda (_%hd1815918189%_ + _%xarg1816518192%_) + (if (gx#stx-pair? _%hd1815918189%_) + (let ((_%e1816218195%_ (gx#syntax-e - _%hd1809618126%_))) - (let ((_%lp-hd1810018136%_ + _%hd1815918189%_))) + (let ((_%lp-hd1816318199%_ (let () (declare (not safe)) - (##car _%e1809918132%_))) - (_%lp-tl1810118139%_ + (##car _%e1816218195%_))) + (_%lp-tl1816418202%_ (let () (declare (not safe)) - (##cdr _%e1809918132%_)))) - (_%loop1809818122%_ - _%lp-tl1810118139%_ - (cons _%lp-hd1810018136%_ - _%xarg1810218129%_)))) - (let ((_%xarg1810318142%_ - (reverse _%xarg1810218129%_))) - ((lambda (_%L18146%_) - (let* ((_%g1816318171%_ - (lambda (_%g1816418167%_) + (##cdr _%e1816218195%_)))) + (_%loop1816118185%_ + _%lp-tl1816418202%_ + (cons _%lp-hd1816318199%_ + _%xarg1816518192%_)))) + (let ((_%xarg1816618205%_ + (reverse _%xarg1816518192%_))) + ((lambda (_%L18209%_) + (let* ((_%g1822618234%_ + (lambda (_%g1822718230%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1816418167%_))) - (_%g1816218241%_ - (lambda (_%g1816418175%_) - ((lambda (_%L18178%_) - (let* ((_%g1819118199%_ + _%g1822718230%_))) + (_%g1822518304%_ + (lambda (_%g1822718238%_) + ((lambda (_%L18241%_) + (let* ((_%g1825418262%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g1819218195%_) + (lambda (_%g1825518258%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g1819218195%_))) - (_%g1819018221%_ - (lambda (_%g1819218203%_) - ((lambda (_%L18206%_) + _%g1825518258%_))) + (_%g1825318284%_ + (lambda (_%g1825518266%_) + ((lambda (_%L18269%_) (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'begin) - (cons _%L18206%_ - (cons _%L18178%_ '()))) - (gx#stx-source _%stx17892%_))) - _%g1819218203%_)))) - (_%g1819018221%_ + (cons _%L18269%_ + (cons _%L18241%_ '()))) + (gx#stx-source _%stx17955%_))) + _%g1825518266%_)))) + (_%g1825318284%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L18080%_ - (foldr (lambda (_%g1822618229%_ - _%g1822718232%_) - (cons _%g1822618229%_ - _%g1822718232%_)) + (cons (cons _%L18143%_ + (foldr (lambda (_%g1828918292%_ + _%g1829018295%_) + (cons _%g1828918292%_ + _%g1829018295%_)) '() - _%L18031%_)) - (foldr (lambda (_%g1822418235%_ - _%g1822518238%_) - (cons _%g1822418235%_ - _%g1822518238%_)) + _%L18094%_)) + (foldr (lambda (_%g1828718298%_ + _%g1828818301%_) + (cons _%g1828718298%_ + _%g1828818301%_)) '() - _%L18029%_))) - (gx#stx-source _%stx17892%_))))) - _%g1816418175%_)))) + _%L18092%_))) + (gx#stx-source _%stx17955%_))))) + _%g1822718238%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1816218241%_ + (_%g1822518304%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18032%_ + (cons _%L18095%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '() (cons (cons (cons (gx#datum->syntax '#f '_) - (foldr (lambda (_%g1825018253%_ + (foldr (lambda (_%g1831318316%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1825118256%_) - (cons _%g1825018253%_ _%g1825118256%_)) + _%g1831418319%_) + (cons _%g1831318316%_ _%g1831418319%_)) '() - _%L18146%_)) + _%L18209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (foldr (lambda (_%g1824818259%_ + (cons (foldr (lambda (_%g1831118322%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1824918262%_) - (cons _%g1824818259%_ _%g1824918262%_)) + _%g1831218325%_) + (cons _%g1831118322%_ _%g1831218325%_)) '() - _%L18031%_) - (foldr (lambda (_%g1824618265%_ _%g1824718268%_) - (cons _%g1824618265%_ _%g1824718268%_)) + _%L18094%_) + (foldr (lambda (_%g1830918328%_ _%g1831018331%_) + (cons _%g1830918328%_ _%g1831018331%_)) '() - _%L18029%_))) - (foldr (lambda (_%g1824418271%_ _%g1824518274%_) - (cons _%g1824418271%_ _%g1824518274%_)) + _%L18092%_))) + (foldr (lambda (_%g1830718334%_ _%g1830818337%_) + (cons _%g1830718334%_ _%g1830818337%_)) '() - _%L18146%_)) + _%L18209%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'ref) @@ -587,64 +587,64 @@ 'syntax) (cons (gx#datum->syntax '#f 'ref) '())) '())) - (cons _%L18080%_ '()))) + (cons _%L18143%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - (gx#stx-source _%stx17892%_))))) + (gx#stx-source _%stx17955%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%xarg1810318142%_)))))) - (_%loop1809818122%_ _%target1809518116%_ '())) - (_%g1809218109%_ _%g1809318113%_))))) - (_%g1809218109%_ _%g1809318113%_))))) + _%xarg1816618205%_)))))) + (_%loop1816118185%_ _%target1815818179%_ '())) + (_%g1815518172%_ _%g1815618176%_))))) + (_%g1815518172%_ _%g1815618176%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1809118277%_ + (_%g1815418340%_ (gx#gentemps - (foldr (lambda (_%g1828018283%_ + (foldr (lambda (_%g1834318346%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g1828118286%_) - (cons _%g1828018283%_ _%g1828118286%_)) + _%g1834418349%_) + (cons _%g1834318346%_ _%g1834418349%_)) '() - _%L18031%_))))) + _%L18094%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g1806618077%_)))) - (_%g1806418289%_ + _%g1812918140%_)))) + (_%g1812718352%_ (gx#stx-identifier - _%L18032%_ - _%L18032%_ + _%L18095%_ + _%L18095%_ '"__impl"))) - (_%g1789517932%_ _%g1789617936%_))) - _%body1792618025%_ - _%arg1791717995%_ - _%hd1790717963%_)))))) + (_%g1795817995%_ _%g1795917999%_))) + _%body1798918088%_ + _%arg1798018058%_ + _%hd1797018026%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop1792118005%_ - _%target1791817999%_ + (_%loop1798418068%_ + _%target1798118062%_ '())) - (_%g1789517932%_ - _%g1789617936%_))))) - (_%g1789517932%_ _%g1789617936%_))))))) - (_%loop1791217975%_ _%target1790917969%_ '())) - (_%g1789517932%_ _%g1789617936%_))))) + (_%g1795817995%_ + _%g1795917999%_))))) + (_%g1795817995%_ _%g1795917999%_))))))) + (_%loop1797518038%_ _%target1797218032%_ '())) + (_%g1795817995%_ _%g1795917999%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g1789517932%_ - _%g1789617936%_)))) - (_%g1789517932%_ _%g1789617936%_)))) - (_%g1789517932%_ _%g1789617936%_)))) - (_%g1789517932%_ _%g1789617936%_))))) - (_%g1789418293%_ _%stx17892%_)))) + (_%g1795817995%_ + _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_)))) + (_%g1795817995%_ _%g1795917999%_))))) + (_%g1795718356%_ _%stx17955%_)))) (define |gerbil/core/sugar~Sugar-3[:0:]#defconst| - (lambda (_%$stx18300%_) - (let* ((_%__stx2083220833%_ _%$stx18300%_) - (_%g1830518341%_ + (lambda (_%$stx18363%_) + (let* ((_%__stx2089520896%_ _%$stx18363%_) + (_%g1836818404%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx2083220833%_)))) - (let ((_%__kont2083520836%_ - (lambda (_%L18455%_ _%L18457%_) + _%__stx2089520896%_)))) + (let ((_%__kont2089820899%_ + (lambda (_%L18518%_ _%L18520%_) (cons (gx#datum->syntax '#f 'defrules) - (cons _%L18457%_ + (cons _%L18520%_ (cons '() (cons (cons (gx#datum->syntax '#f 'x) (cons (cons (gx#datum->syntax @@ -656,218 +656,218 @@ 'syntax) (cons (gx#datum->syntax '#f 'x) '())) '())) - (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18455%_ '())) + (cons (cons (gx#datum->syntax '#f 'quote) (cons _%L18518%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (_%__kont2083720838%_ - (lambda (_%L18378%_ _%L18380%_ _%L18381%_) - (cons _%L18381%_ - (cons _%L18380%_ + (_%__kont2090020901%_ + (lambda (_%L18441%_ _%L18443%_ _%L18444%_) + (cons _%L18444%_ + (cons _%L18443%_ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L18378%_ '())) + (cons _%L18441%_ '())) '())))))) - (let* ((_%__match2089720898%_ - (lambda (_%e1832718348%_ - _%hd1832818352%_ - _%tl1832918355%_ - _%e1833018358%_ - _%hd1833118362%_ - _%tl1833218365%_ - _%e1833318368%_ - _%hd1833418372%_ - _%tl1833518375%_) - (let ((_%L18378%_ _%hd1833418372%_) - (_%L18380%_ _%hd1833118362%_) - (_%L18381%_ _%hd1832818352%_)) - (if (and (gx#identifier? _%L18380%_) - (gx#stx-datum? _%L18378%_)) - (_%__kont2083720838%_ - _%L18378%_ - _%L18380%_ - _%L18381%_) - (let () (declare (not safe)) (_%g1830518341%_)))))) - (_%__match2087720878%_ - (lambda (_%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_ - _%e1831818435%_ - _%hd1831918439%_ - _%tl1832018442%_ - _%e1832118445%_ - _%hd1832218449%_ - _%tl1832318452%_) - (let ((_%L18455%_ _%hd1832218449%_) - (_%L18457%_ _%hd1831318419%_)) - (if (gx#identifier? _%L18457%_) - (_%__kont2083520836%_ _%L18455%_ _%L18457%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_)))))) - (if (gx#stx-pair? _%__stx2083220833%_) - (let ((_%e1830918405%_ (gx#syntax-e _%__stx2083220833%_))) - (let ((_%tl1831118412%_ + (let* ((_%__match2096020961%_ + (lambda (_%e1839018411%_ + _%hd1839118415%_ + _%tl1839218418%_ + _%e1839318421%_ + _%hd1839418425%_ + _%tl1839518428%_ + _%e1839618431%_ + _%hd1839718435%_ + _%tl1839818438%_) + (let ((_%L18441%_ _%hd1839718435%_) + (_%L18443%_ _%hd1839418425%_) + (_%L18444%_ _%hd1839118415%_)) + (if (and (gx#identifier? _%L18443%_) + (gx#stx-datum? _%L18441%_)) + (_%__kont2090020901%_ + _%L18441%_ + _%L18443%_ + _%L18444%_) + (let () (declare (not safe)) (_%g1836818404%_)))))) + (_%__match2094020941%_ + (lambda (_%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_ + _%e1838118498%_ + _%hd1838218502%_ + _%tl1838318505%_ + _%e1838418508%_ + _%hd1838518512%_ + _%tl1838618515%_) + (let ((_%L18518%_ _%hd1838518512%_) + (_%L18520%_ _%hd1837618482%_)) + (if (gx#identifier? _%L18520%_) + (_%__kont2089820899%_ _%L18518%_ _%L18520%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_)))))) + (if (gx#stx-pair? _%__stx2089520896%_) + (let ((_%e1837218468%_ (gx#syntax-e _%__stx2089520896%_))) + (let ((_%tl1837418475%_ (let () (declare (not safe)) - (##cdr _%e1830918405%_))) - (_%hd1831018409%_ + (##cdr _%e1837218468%_))) + (_%hd1837318472%_ (let () (declare (not safe)) - (##car _%e1830918405%_)))) - (if (gx#stx-pair? _%tl1831118412%_) - (let ((_%e1831218415%_ - (gx#syntax-e _%tl1831118412%_))) - (let ((_%tl1831418422%_ + (##car _%e1837218468%_)))) + (if (gx#stx-pair? _%tl1837418475%_) + (let ((_%e1837518478%_ + (gx#syntax-e _%tl1837418475%_))) + (let ((_%tl1837718485%_ (let () (declare (not safe)) - (##cdr _%e1831218415%_))) - (_%hd1831318419%_ + (##cdr _%e1837518478%_))) + (_%hd1837618482%_ (let () (declare (not safe)) - (##car _%e1831218415%_)))) - (if (gx#stx-pair? _%tl1831418422%_) - (let ((_%e1831518425%_ - (gx#syntax-e _%tl1831418422%_))) - (let ((_%tl1831718432%_ + (##car _%e1837518478%_)))) + (if (gx#stx-pair? _%tl1837718485%_) + (let ((_%e1837818488%_ + (gx#syntax-e _%tl1837718485%_))) + (let ((_%tl1838018495%_ (let () (declare (not safe)) - (##cdr _%e1831518425%_))) - (_%hd1831618429%_ + (##cdr _%e1837818488%_))) + (_%hd1837918492%_ (let () (declare (not safe)) - (##car _%e1831518425%_)))) - (if (gx#stx-pair? _%hd1831618429%_) - (let ((_%e1831818435%_ + (##car _%e1837818488%_)))) + (if (gx#stx-pair? _%hd1837918492%_) + (let ((_%e1838118498%_ (gx#syntax-e - _%hd1831618429%_))) - (let ((_%tl1832018442%_ + _%hd1837918492%_))) + (let ((_%tl1838318505%_ (let () (declare (not safe)) - (##cdr _%e1831818435%_))) - (_%hd1831918439%_ + (##cdr _%e1838118498%_))) + (_%hd1838218502%_ (let () (declare (not safe)) - (##car _%e1831818435%_)))) + (##car _%e1838118498%_)))) (if (gx#identifier? - _%hd1831918439%_) + _%hd1838218502%_) (if (gx#free-identifier=? - |gerbil/core/sugar~Sugar-3[1]#_g21019_| - _%hd1831918439%_) + |gerbil/core/sugar~Sugar-3[1]#_g21082_| + _%hd1838218502%_) (if (gx#stx-pair? - _%tl1832018442%_) - (let ((_%e1832118445%_ + _%tl1838318505%_) + (let ((_%e1838418508%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl1832018442%_))) - (let ((_%tl1832318452%_ + (gx#syntax-e _%tl1838318505%_))) + (let ((_%tl1838618515%_ (let () (declare (not safe)) - (##cdr _%e1832118445%_))) - (_%hd1832218449%_ + (##cdr _%e1838418508%_))) + (_%hd1838518512%_ (let () (declare (not safe)) - (##car _%e1832118445%_)))) - (if (gx#stx-null? _%tl1832318452%_) - (if (gx#stx-null? _%tl1831718432%_) - (_%__match2087720878%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_ - _%e1831818435%_ - _%hd1831918439%_ - _%tl1832018442%_ - _%e1832118445%_ - _%hd1832218449%_ - _%tl1832318452%_) - (let () (declare (not safe)) (_%g1830518341%_))) - (if (gx#stx-null? _%tl1831718432%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_) + (##car _%e1838418508%_)))) + (if (gx#stx-null? _%tl1838618515%_) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2094020941%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_ + _%e1838118498%_ + _%hd1838218502%_ + _%tl1838318505%_ + _%e1838418508%_ + _%hd1838518512%_ + _%tl1838618515%_) + (let () (declare (not safe)) (_%g1836818404%_))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1830518341%_)))))) - (if (gx#stx-null? _%tl1831718432%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_) - (let () (declare (not safe)) (_%g1830518341%_)))) - (if (gx#stx-null? _%tl1831718432%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_) - (let () (declare (not safe)) (_%g1830518341%_)))) + (_%g1836818404%_)))))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) + (let () (declare (not safe)) (_%g1836818404%_)))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) + (let () (declare (not safe)) (_%g1836818404%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl1831718432%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_) + _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1830518341%_)))))) - (if (gx#stx-null? _%tl1831718432%_) - (_%__match2089720898%_ - _%e1830918405%_ - _%hd1831018409%_ - _%tl1831118412%_ - _%e1831218415%_ - _%hd1831318419%_ - _%tl1831418422%_ - _%e1831518425%_ - _%hd1831618429%_ - _%tl1831718432%_) + (_%g1836818404%_)))))) + (if (gx#stx-null? _%tl1838018495%_) + (_%__match2096020961%_ + _%e1837218468%_ + _%hd1837318472%_ + _%tl1837418475%_ + _%e1837518478%_ + _%hd1837618482%_ + _%tl1837718485%_ + _%e1837818488%_ + _%hd1837918492%_ + _%tl1838018495%_) (let () (declare (not safe)) - (_%g1830518341%_)))))) + (_%g1836818404%_)))))) (let () (declare (not safe)) - (_%g1830518341%_))))) - (let () (declare (not safe)) (_%g1830518341%_))))) - (let () (declare (not safe)) (_%g1830518341%_)))))))))) + (_%g1836818404%_))))) + (let () (declare (not safe)) (_%g1836818404%_))))) + (let () (declare (not safe)) (_%g1836818404%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/common~0.scm b/src/bootstrap/gerbil/expander/common~0.scm index 71f57e0d1..0093ca5c5 100644 --- a/src/bootstrap/gerbil/expander/common~0.scm +++ b/src/bootstrap/gerbil/expander/common~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/common::timestamp 1733870074) + (define gerbil/expander/common::timestamp 1734131746) (begin (define gx#AST::t - (let ((__tmp116950 (list)) - (__tmp116949 (cons (cons 'struct: '#t) '((print: e))))) + (let ((__tmp117056 (list)) + (__tmp117055 (cons (cons 'struct: '#t) '((print: e))))) (declare (not safe)) (__make-class-type 'gerbil#AST::t 'syntax - __tmp116950 + __tmp117056 '(e source) - __tmp116949 + __tmp117055 '#f))) (define gx#AST? (let () (declare (not safe)) (__make-class-predicate gx#AST::t))) (define gx#make-AST - (lambda _%$args116848%_ (apply make-instance gx#AST::t _%$args116848%_))) + (lambda _%$args116954%_ (apply make-instance gx#AST::t _%$args116954%_))) (define gx#AST-e (let () (declare (not safe)) (__make-class-slot-accessor gx#AST::t 'e))) (define gx#AST-source diff --git a/src/bootstrap/gerbil/expander/common~1.scm b/src/bootstrap/gerbil/expander/common~1.scm index 908ac7ed0..de765da9d 100644 --- a/src/bootstrap/gerbil/expander/common~1.scm +++ b/src/bootstrap/gerbil/expander/common~1.scm @@ -1,83 +1,83 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g116952_| + (define |gx[1]#_g117058_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g116954_| + (define |gx[1]#_g117060_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g116956_| + (define |gx[1]#_g117062_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |gx[1]#_g116958_| + (define |gx[1]#_g117064_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116959_| + (define |gx[1]#_g117065_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116961_| + (define |gx[1]#_g117067_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116962_| + (define |gx[1]#_g117068_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116964_| + (define |gx[1]#_g117070_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g116965_| + (define |gx[1]#_g117071_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g116967_| + (define |gx[1]#_g117073_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116968_| + (define |gx[1]#_g117074_| (##structure gx#syntax-quote::t '&AST-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g116970_| + (define |gx[1]#_g117076_| (##structure gx#syntax-quote::t 'else @@ -86,7 +86,7 @@ '())) (begin (define |gx[:0:]#AST| - (let ((__obj116948 + (let ((__obj117054 (let () (declare (not safe)) (##structure @@ -114,109 +114,109 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj117054 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj117054 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj117054 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj117054 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj117054 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj117054 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj117054 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj117054 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '#f '11 '#f '#f)) - (let ((__tmp116951 |gx[1]#_g116952_|)) + (##unchecked-structure-set! __obj117054 '#f '11 '#f '#f)) + (let ((__tmp117057 |gx[1]#_g117058_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116951 '12 '#f '#f)) - (let ((__tmp116953 |gx[1]#_g116954_|)) + (##unchecked-structure-set! __obj117054 __tmp117057 '12 '#f '#f)) + (let ((__tmp117059 |gx[1]#_g117060_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116953 '13 '#f '#f)) - (let ((__tmp116955 |gx[1]#_g116956_|)) + (##unchecked-structure-set! __obj117054 __tmp117059 '13 '#f '#f)) + (let ((__tmp117061 |gx[1]#_g117062_|)) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116955 '14 '#f '#f)) - (let ((__tmp116957 - (cons (cons 'e |gx[1]#_g116958_|) - (cons (cons 'source |gx[1]#_g116959_|) '())))) + (##unchecked-structure-set! __obj117054 __tmp117061 '14 '#f '#f)) + (let ((__tmp117063 + (cons (cons 'e |gx[1]#_g117064_|) + (cons (cons 'source |gx[1]#_g117065_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116957 '15 '#f '#f)) - (let ((__tmp116960 - (cons (cons 'e |gx[1]#_g116961_|) - (cons (cons 'source |gx[1]#_g116962_|) '())))) + (##unchecked-structure-set! __obj117054 __tmp117063 '15 '#f '#f)) + (let ((__tmp117066 + (cons (cons 'e |gx[1]#_g117067_|) + (cons (cons 'source |gx[1]#_g117068_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116960 '16 '#f '#f)) - (let ((__tmp116963 - (cons (cons 'e |gx[1]#_g116964_|) - (cons (cons 'source |gx[1]#_g116965_|) '())))) + (##unchecked-structure-set! __obj117054 __tmp117066 '16 '#f '#f)) + (let ((__tmp117069 + (cons (cons 'e |gx[1]#_g117070_|) + (cons (cons 'source |gx[1]#_g117071_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116963 '17 '#f '#f)) - (let ((__tmp116966 - (cons (cons 'e |gx[1]#_g116967_|) - (cons (cons 'source |gx[1]#_g116968_|) '())))) + (##unchecked-structure-set! __obj117054 __tmp117069 '17 '#f '#f)) + (let ((__tmp117072 + (cons (cons 'e |gx[1]#_g117073_|) + (cons (cons 'source |gx[1]#_g117074_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj116948 __tmp116966 '18 '#f '#f)) + (##unchecked-structure-set! __obj117054 __tmp117072 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj117054 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj117054 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj116948 '() '20 '#f '#f)) - __obj116948)) + (##unchecked-structure-set! __obj117054 '() '20 '#f '#f)) + __obj117054)) (define |gx[:0:]#check-procedure| - (lambda (_%$stx115543%_) - (let* ((_%g115547115561%_ - (lambda (_%g115548115557%_) + (lambda (_%$stx115649%_) + (let* ((_%g115653115667%_ + (lambda (_%g115654115663%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115548115557%_))) - (_%g115546115603%_ - (lambda (_%g115548115565%_) - (if (gx#stx-pair? _%g115548115565%_) - (let ((_%e115550115568%_ - (gx#syntax-e _%g115548115565%_))) - (let ((_%hd115551115572%_ + _%g115654115663%_))) + (_%g115652115709%_ + (lambda (_%g115654115671%_) + (if (gx#stx-pair? _%g115654115671%_) + (let ((_%e115656115674%_ + (gx#syntax-e _%g115654115671%_))) + (let ((_%hd115657115678%_ (let () (declare (not safe)) - (##car _%e115550115568%_))) - (_%tl115552115575%_ + (##car _%e115656115674%_))) + (_%tl115658115681%_ (let () (declare (not safe)) - (##cdr _%e115550115568%_)))) - (if (gx#stx-pair? _%tl115552115575%_) - (let ((_%e115553115578%_ - (gx#syntax-e _%tl115552115575%_))) - (let ((_%hd115554115582%_ + (##cdr _%e115656115674%_)))) + (if (gx#stx-pair? _%tl115658115681%_) + (let ((_%e115659115684%_ + (gx#syntax-e _%tl115658115681%_))) + (let ((_%hd115660115688%_ (let () (declare (not safe)) - (##car _%e115553115578%_))) - (_%tl115555115585%_ + (##car _%e115659115684%_))) + (_%tl115661115691%_ (let () (declare (not safe)) - (##cdr _%e115553115578%_)))) - (if (gx#stx-null? _%tl115555115585%_) - ((lambda (_%L115588%_) + (##cdr _%e115659115684%_)))) + (if (gx#stx-null? _%tl115661115691%_) + ((lambda (_%L115694%_) (cons (gx#datum->syntax '#f 'unless) (cons (cons (gx#datum->syntax '#f 'procedure?) - (cons _%L115588%_ + (cons _%L115694%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -224,182 +224,182 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'error) - (cons '"expected procedure" (cons _%L115588%_ '()))) + (cons '"expected procedure" (cons _%L115694%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd115554115582%_) - (_%g115547115561%_ _%g115548115565%_)))) - (_%g115547115561%_ _%g115548115565%_)))) - (_%g115547115561%_ _%g115548115565%_))))) - (_%g115546115603%_ _%$stx115543%_)))) + _%hd115660115688%_) + (_%g115653115667%_ _%g115654115671%_)))) + (_%g115653115667%_ _%g115654115671%_)))) + (_%g115653115667%_ _%g115654115671%_))))) + (_%g115652115709%_ _%$stx115649%_)))) (define |gx[:0:]#core-syntax-case| - (lambda (_%stx115607%_) - (letrec ((_%generate115610%_ - (lambda (_%tgt115759%_ _%kws115761%_ _%clauses115762%_) - (letrec ((_%generate-clause115764%_ - (lambda (_%hd116699%_ _%E116701%_) - (let* ((_%__stx116851116852%_ _%hd116699%_) - (_%g116705116732%_ + (lambda (_%stx115713%_) + (letrec ((_%generate115716%_ + (lambda (_%tgt115865%_ _%kws115867%_ _%clauses115868%_) + (letrec ((_%generate-clause115870%_ + (lambda (_%hd116805%_ _%E116807%_) + (let* ((_%__stx116957116958%_ _%hd116805%_) + (_%g116811116838%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116851116852%_)))) - (let ((_%__kont116854116855%_ - (lambda (_%L116828%_ _%L116830%_) - (_%generate1115766%_ - _%hd116699%_ - _%L116830%_ + _%__stx116957116958%_)))) + (let ((_%__kont116960116961%_ + (lambda (_%L116934%_ _%L116936%_) + (_%generate1115872%_ + _%hd116805%_ + _%L116936%_ '#t - _%L116828%_ - _%E116701%_))) - (_%__kont116856116857%_ - (lambda (_%L116780%_ - _%L116782%_ - _%L116783%_) - (_%generate1115766%_ - _%hd116699%_ - _%L116783%_ - _%L116782%_ - _%L116780%_ - _%E116701%_))) - (_%__kont116858116859%_ + _%L116934%_ + _%E116807%_))) + (_%__kont116962116963%_ + (lambda (_%L116886%_ + _%L116888%_ + _%L116889%_) + (_%generate1115872%_ + _%hd116805%_ + _%L116889%_ + _%L116888%_ + _%L116886%_ + _%E116807%_))) + (_%__kont116964116965%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case pattern" - _%stx115607%_ - _%hd116699%_)))) - (if (gx#stx-pair? _%__stx116851116852%_) - (let ((_%e116709116808%_ + _%stx115713%_ + _%hd116805%_)))) + (if (gx#stx-pair? _%__stx116957116958%_) + (let ((_%e116815116914%_ (gx#syntax-e - _%__stx116851116852%_))) - (let ((_%tl116711116815%_ + _%__stx116957116958%_))) + (let ((_%tl116817116921%_ (let () (declare (not safe)) - (##cdr _%e116709116808%_))) - (_%hd116710116812%_ + (##cdr _%e116815116914%_))) + (_%hd116816116918%_ (let () (declare (not safe)) - (##car _%e116709116808%_)))) + (##car _%e116815116914%_)))) (if (gx#stx-pair? - _%tl116711116815%_) - (let ((_%e116712116818%_ + _%tl116817116921%_) + (let ((_%e116818116924%_ (gx#syntax-e - _%tl116711116815%_))) - (let ((_%tl116714116825%_ + _%tl116817116921%_))) + (let ((_%tl116820116931%_ (let () (declare (not safe)) - (##cdr _%e116712116818%_))) - (_%hd116713116822%_ + (##cdr _%e116818116924%_))) + (_%hd116819116928%_ (let () (declare (not safe)) - (##car _%e116712116818%_)))) + (##car _%e116818116924%_)))) (if (gx#stx-null? - _%tl116714116825%_) - (_%__kont116854116855%_ - _%hd116713116822%_ - _%hd116710116812%_) + _%tl116820116931%_) + (_%__kont116960116961%_ + _%hd116819116928%_ + _%hd116816116918%_) (if (gx#stx-pair? - _%tl116714116825%_) - (let ((_%e116724116770%_ + _%tl116820116931%_) + (let ((_%e116830116876%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl116714116825%_))) - (let ((_%tl116726116777%_ + (gx#syntax-e _%tl116820116931%_))) + (let ((_%tl116832116883%_ (let () (declare (not safe)) - (##cdr _%e116724116770%_))) - (_%hd116725116774%_ + (##cdr _%e116830116876%_))) + (_%hd116831116880%_ (let () (declare (not safe)) - (##car _%e116724116770%_)))) - (if (gx#stx-null? _%tl116726116777%_) - (_%__kont116856116857%_ - _%hd116725116774%_ - _%hd116713116822%_ - _%hd116710116812%_) - (_%__kont116858116859%_)))) - (_%__kont116858116859%_))))) + (##car _%e116830116876%_)))) + (if (gx#stx-null? _%tl116832116883%_) + (_%__kont116962116963%_ + _%hd116831116880%_ + _%hd116819116928%_ + _%hd116816116918%_) + (_%__kont116964116965%_)))) + (_%__kont116964116965%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116858116859%_)))) - (_%__kont116858116859%_)))))) - (_%generate1115766%_ - (lambda (_%where116152%_ - _%hd116154%_ - _%fender116155%_ - _%body116156%_ - _%E116157%_) - (letrec ((_%recur116159%_ - (lambda (_%hd116162%_ - _%tgt116164%_ - _%K116165%_) - (let* ((_%__stx116897116898%_ - _%hd116162%_) - (_%g116168116180%_ + (_%__kont116964116965%_)))) + (_%__kont116964116965%_)))))) + (_%generate1115872%_ + (lambda (_%where116258%_ + _%hd116260%_ + _%fender116261%_ + _%body116262%_ + _%E116263%_) + (letrec ((_%recur116265%_ + (lambda (_%hd116268%_ + _%tgt116270%_ + _%K116271%_) + (let* ((_%__stx117003117004%_ + _%hd116268%_) + (_%g116274116286%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116897116898%_)))) - (let ((_%__kont116900116901%_ - (lambda (_%L116489%_ - _%L116491%_) - (let* ((_%g116502116510%_ - (lambda (_%g116503116506%_) + _%__stx117003117004%_)))) + (let ((_%__kont117006117007%_ + (lambda (_%L116595%_ + _%L116597%_) + (let* ((_%g116608116616%_ + (lambda (_%g116609116612%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116503116506%_))) - (_%g116501116691%_ - (lambda (_%g116503116514%_) - ((lambda (_%L116517%_) - (let* ((_%g116529116537%_ - (lambda (_%g116530116533%_) + _%g116609116612%_))) + (_%g116607116797%_ + (lambda (_%g116609116620%_) + ((lambda (_%L116623%_) + (let* ((_%g116635116643%_ + (lambda (_%g116636116639%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116530116533%_))) - (_%g116528116687%_ - (lambda (_%g116530116541%_) - ((lambda (_%L116544%_) - (let* ((_%g116557116565%_ - (lambda (_%g116558116561%_) + _%g116636116639%_))) + (_%g116634116793%_ + (lambda (_%g116636116647%_) + ((lambda (_%L116650%_) + (let* ((_%g116663116671%_ + (lambda (_%g116664116667%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116558116561%_))) - (_%g116556116683%_ - (lambda (_%g116558116569%_) - ((lambda (_%L116572%_) - (let* ((_%g116585116593%_ - (lambda (_%g116586116589%_) + _%g116664116667%_))) + (_%g116662116789%_ + (lambda (_%g116664116675%_) + ((lambda (_%L116678%_) + (let* ((_%g116691116699%_ + (lambda (_%g116692116695%_) (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%g116586116589%_))) - (_%g116584116679%_ - (lambda (_%g116586116597%_) - ((lambda (_%L116600%_) - (let* ((_%g116613116621%_ - (lambda (_%g116614116617%_) + _%g116692116695%_))) + (_%g116690116785%_ + (lambda (_%g116692116703%_) + ((lambda (_%L116706%_) + (let* ((_%g116719116727%_ + (lambda (_%g116720116723%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116614116617%_))) - (_%g116612116675%_ - (lambda (_%g116614116625%_) - ((lambda (_%L116628%_) - (let* ((_%g116641116649%_ - (lambda (_%g116642116645%_) + _%g116720116723%_))) + (_%g116718116781%_ + (lambda (_%g116720116731%_) + ((lambda (_%L116734%_) + (let* ((_%g116747116755%_ + (lambda (_%g116748116751%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116642116645%_))) - (_%g116640116671%_ - (lambda (_%g116642116653%_) - ((lambda (_%L116656%_) + _%g116748116751%_))) + (_%g116746116777%_ + (lambda (_%g116748116759%_) + ((lambda (_%L116762%_) (cons (gx#datum->syntax '#f 'if) @@ -407,306 +407,306 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'stx-pair?) - (cons _%L116517%_ '())) + (cons _%L116623%_ '())) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116544%_ + (cons (cons (cons _%L116650%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'syntax-e) - (cons _%L116517%_ '())) + (cons _%L116623%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()) (cons (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116572%_ + (cons (cons (cons _%L116678%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L116544%_ '())) + (cons _%L116650%_ '())) '())) - (cons (cons _%L116600%_ + (cons (cons _%L116706%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L116544%_ '())) + (cons _%L116650%_ '())) '())) '())) - (cons _%L116628%_ '()))) + (cons _%L116734%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%L116656%_ '()))))) + (cons _%L116762%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116642116653%_)))) - (_%g116640116671%_ _%E116157%_))) - _%g116614116625%_)))) - (_%g116612116675%_ - (_%recur116159%_ - _%L116491%_ - _%L116572%_ - (_%recur116159%_ - _%L116489%_ - _%L116600%_ - _%K116165%_))))) - _%g116586116597%_)))) - (_%g116584116679%_ (gx#genident 'tl)))) + _%g116748116759%_)))) + (_%g116746116777%_ _%E116263%_))) + _%g116720116731%_)))) + (_%g116718116781%_ + (_%recur116265%_ + _%L116597%_ + _%L116678%_ + (_%recur116265%_ + _%L116595%_ + _%L116706%_ + _%K116271%_))))) + _%g116692116703%_)))) + (_%g116690116785%_ (gx#genident 'tl)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116558116569%_)))) - (_%g116556116683%_ + _%g116664116675%_)))) + (_%g116662116789%_ (gx#genident 'hd)))) - _%g116530116541%_)))) - (_%g116528116687%_ (gx#genident 'e)))) - _%g116503116514%_)))) - (_%g116501116691%_ _%tgt116164%_)))) + _%g116636116647%_)))) + (_%g116634116793%_ (gx#genident 'e)))) + _%g116609116620%_)))) + (_%g116607116797%_ _%tgt116270%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116902116903%_ + (_%__kont117008117009%_ (lambda () (if (gx#identifier? - _%hd116162%_) + _%hd116268%_) (if (gx#underscore? - _%hd116162%_) - _%K116165%_ - (if (let ((__tmp116969 + _%hd116268%_) + _%K116271%_ + (if (let ((__tmp117075 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g116194116196%_) + (lambda (_%g116300116302%_) (gx#bound-identifier=? - _%g116194116196%_ - _%hd116162%_)))) + _%g116300116302%_ + _%hd116268%_)))) (declare (not safe)) - (__find __tmp116969 _%kws115761%_)) - (let* ((_%g116202116217%_ - (lambda (_%g116203116213%_) + (__find __tmp117075 _%kws115867%_)) + (let* ((_%g116308116323%_ + (lambda (_%g116309116319%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116203116213%_))) - (_%g116201116270%_ - (lambda (_%g116203116221%_) - (if (gx#stx-pair? _%g116203116221%_) - (let ((_%e116206116224%_ + _%g116309116319%_))) + (_%g116307116376%_ + (lambda (_%g116309116327%_) + (if (gx#stx-pair? _%g116309116327%_) + (let ((_%e116312116330%_ (gx#syntax-e - _%g116203116221%_))) - (let ((_%hd116207116228%_ + _%g116309116327%_))) + (let ((_%hd116313116334%_ (let () (declare (not safe)) - (##car _%e116206116224%_))) - (_%tl116208116231%_ + (##car _%e116312116330%_))) + (_%tl116314116337%_ (let () (declare (not safe)) - (##cdr _%e116206116224%_)))) + (##cdr _%e116312116330%_)))) (if (gx#stx-pair? - _%tl116208116231%_) - (let ((_%e116209116234%_ + _%tl116314116337%_) + (let ((_%e116315116340%_ (gx#syntax-e - _%tl116208116231%_))) - (let ((_%hd116210116238%_ + _%tl116314116337%_))) + (let ((_%hd116316116344%_ (let () (declare (not safe)) - (##car _%e116209116234%_))) - (_%tl116211116241%_ + (##car _%e116315116340%_))) + (_%tl116317116347%_ (let () (declare (not safe)) - (##cdr _%e116209116234%_)))) + (##cdr _%e116315116340%_)))) (if (gx#stx-null? - _%tl116211116241%_) - ((lambda (_%L116244%_ + _%tl116317116347%_) + ((lambda (_%L116350%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116246%_) + _%L116352%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax '#f 'identifier?) - (cons _%L116246%_ '())) + (cons _%L116352%_ '())) (cons (cons (gx#datum->syntax '#f 'core-identifier=?) - (cons _%L116246%_ + (cons _%L116352%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116244%_ '())) + (cons _%L116350%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - (cons _%K116165%_ (cons _%E116157%_ '()))))) - _%hd116210116238%_ - _%hd116207116228%_) - (_%g116202116217%_ _%g116203116221%_)))) + (cons _%K116271%_ (cons _%E116263%_ '()))))) + _%hd116316116344%_ + _%hd116313116334%_) + (_%g116308116323%_ _%g116309116327%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116202116217%_ - _%g116203116221%_)))) - (_%g116202116217%_ - _%g116203116221%_))))) - (_%g116201116270%_ - (list _%tgt116164%_ _%hd116162%_))) - (let* ((_%g116276116291%_ - (lambda (_%g116277116287%_) + (_%g116308116323%_ + _%g116309116327%_)))) + (_%g116308116323%_ + _%g116309116327%_))))) + (_%g116307116376%_ + (list _%tgt116270%_ _%hd116268%_))) + (let* ((_%g116382116397%_ + (lambda (_%g116383116393%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116277116287%_))) - (_%g116275116336%_ - (lambda (_%g116277116295%_) - (if (gx#stx-pair? _%g116277116295%_) - (let ((_%e116280116298%_ + _%g116383116393%_))) + (_%g116381116442%_ + (lambda (_%g116383116401%_) + (if (gx#stx-pair? _%g116383116401%_) + (let ((_%e116386116404%_ (gx#syntax-e - _%g116277116295%_))) - (let ((_%hd116281116302%_ + _%g116383116401%_))) + (let ((_%hd116387116408%_ (let () (declare (not safe)) - (##car _%e116280116298%_))) - (_%tl116282116305%_ + (##car _%e116386116404%_))) + (_%tl116388116411%_ (let () (declare (not safe)) - (##cdr _%e116280116298%_)))) + (##cdr _%e116386116404%_)))) (if (gx#stx-pair? - _%tl116282116305%_) - (let ((_%e116283116308%_ + _%tl116388116411%_) + (let ((_%e116389116414%_ (gx#syntax-e - _%tl116282116305%_))) - (let ((_%hd116284116312%_ + _%tl116388116411%_))) + (let ((_%hd116390116418%_ (let () (declare (not safe)) - (##car _%e116283116308%_))) - (_%tl116285116315%_ + (##car _%e116389116414%_))) + (_%tl116391116421%_ (let () (declare (not safe)) - (##cdr _%e116283116308%_)))) + (##cdr _%e116389116414%_)))) (if (gx#stx-null? - _%tl116285116315%_) - ((lambda (_%L116318%_ + _%tl116391116421%_) + ((lambda (_%L116424%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116320%_) + _%L116426%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L116318%_ (cons _%L116320%_ '())) + (cons (cons (cons _%L116424%_ (cons _%L116426%_ '())) '()) - (cons _%K116165%_ '())))) - _%hd116284116312%_ - _%hd116281116302%_) - (_%g116276116291%_ _%g116277116295%_)))) + (cons _%K116271%_ '())))) + _%hd116390116418%_ + _%hd116387116408%_) + (_%g116382116397%_ _%g116383116401%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116276116291%_ - _%g116277116295%_)))) - (_%g116276116291%_ - _%g116277116295%_))))) - (_%g116275116336%_ - (list _%tgt116164%_ _%hd116162%_))))) - (if (gx#stx-null? _%hd116162%_) - (let* ((_%g116342116350%_ - (lambda (_%g116343116346%_) + (_%g116382116397%_ + _%g116383116401%_)))) + (_%g116382116397%_ + _%g116383116401%_))))) + (_%g116381116442%_ + (list _%tgt116270%_ _%hd116268%_))))) + (if (gx#stx-null? _%hd116268%_) + (let* ((_%g116448116456%_ + (lambda (_%g116449116452%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116343116346%_))) - (_%g116341116369%_ - (lambda (_%g116343116354%_) - ((lambda (_%L116357%_) + _%g116449116452%_))) + (_%g116447116475%_ + (lambda (_%g116449116460%_) + ((lambda (_%L116463%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f 'stx-null?) - (cons _%L116357%_ '())) - (cons _%K116165%_ - (cons _%E116157%_ + (cons _%L116463%_ '())) + (cons _%K116271%_ + (cons _%E116263%_ '()))))) - _%g116343116354%_)))) - (_%g116341116369%_ _%tgt116164%_)) - (if (gx#stx-datum? _%hd116162%_) - (let* ((_%g116375116394%_ - (lambda (_%g116376116390%_) + _%g116449116460%_)))) + (_%g116447116475%_ _%tgt116270%_)) + (if (gx#stx-datum? _%hd116268%_) + (let* ((_%g116481116500%_ + (lambda (_%g116482116496%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116376116390%_))) - (_%g116374116453%_ - (lambda (_%g116376116398%_) - (if (gx#stx-pair? _%g116376116398%_) - (let ((_%e116380116401%_ + _%g116482116496%_))) + (_%g116480116559%_ + (lambda (_%g116482116504%_) + (if (gx#stx-pair? _%g116482116504%_) + (let ((_%e116486116507%_ (gx#syntax-e - _%g116376116398%_))) - (let ((_%hd116381116405%_ + _%g116482116504%_))) + (let ((_%hd116487116511%_ (let () (declare (not safe)) - (##car _%e116380116401%_))) - (_%tl116382116408%_ + (##car _%e116486116507%_))) + (_%tl116488116514%_ (let () (declare (not safe)) - (##cdr _%e116380116401%_)))) + (##cdr _%e116486116507%_)))) (if (gx#stx-pair? - _%tl116382116408%_) - (let ((_%e116383116411%_ + _%tl116488116514%_) + (let ((_%e116489116517%_ (gx#syntax-e - _%tl116382116408%_))) - (let ((_%hd116384116415%_ + _%tl116488116514%_))) + (let ((_%hd116490116521%_ (let () (declare (not safe)) - (##car _%e116383116411%_))) - (_%tl116385116418%_ + (##car _%e116489116517%_))) + (_%tl116491116524%_ (let () (declare (not safe)) - (##cdr _%e116383116411%_)))) + (##cdr _%e116489116517%_)))) (if (gx#stx-pair? - _%tl116385116418%_) - (let ((_%e116386116421%_ + _%tl116491116524%_) + (let ((_%e116492116527%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl116385116418%_))) - (let ((_%hd116387116425%_ + _%tl116491116524%_))) + (let ((_%hd116493116531%_ (let () (declare (not safe)) - (##car _%e116386116421%_))) - (_%tl116388116428%_ + (##car _%e116492116527%_))) + (_%tl116494116534%_ (let () (declare (not safe)) - (##cdr _%e116386116421%_)))) - (if (gx#stx-null? _%tl116388116428%_) - ((lambda (_%L116431%_ _%L116433%_ _%L116434%_) + (##cdr _%e116492116527%_)))) + (if (gx#stx-null? _%tl116494116534%_) + ((lambda (_%L116537%_ _%L116539%_ _%L116540%_) (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L116431%_ + (cons (cons _%L116537%_ (cons (cons (gx#datum->syntax '#f 'stx-e) - (cons _%L116434%_ + (cons _%L116540%_ '())) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L116433%_ '())) + (cons _%L116539%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%K116165%_ - (cons _%E116157%_ '()))))) - _%hd116387116425%_ - _%hd116384116415%_ - _%hd116381116405%_) - (_%g116375116394%_ _%g116376116398%_)))) - (_%g116375116394%_ _%g116376116398%_)))) + (cons _%K116271%_ + (cons _%E116263%_ '()))))) + _%hd116493116531%_ + _%hd116490116521%_ + _%hd116487116511%_) + (_%g116481116500%_ _%g116482116504%_)))) + (_%g116481116500%_ _%g116482116504%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g116375116394%_ - _%g116376116398%_)))) - (_%g116375116394%_ - _%g116376116398%_))))) - (_%g116374116453%_ - (list _%tgt116164%_ - _%hd116162%_ - (let ((_%e116457%_ - (gx#stx-e _%hd116162%_))) - (if (or (keyword? _%e116457%_) + (_%g116481116500%_ + _%g116482116504%_)))) + (_%g116481116500%_ + _%g116482116504%_))))) + (_%g116480116559%_ + (list _%tgt116270%_ + _%hd116268%_ + (let ((_%e116563%_ + (gx#stx-e _%hd116268%_))) + (if (or (keyword? _%e116563%_) (let () (declare (not safe)) - (immediate? _%e116457%_))) + (immediate? _%e116563%_))) (gx#datum->syntax '#f 'eq?) - (if (number? _%e116457%_) + (if (number? _%e116563%_) (gx#datum->syntax '#f 'eqv?) (gx#datum->syntax '#f @@ -714,69 +714,69 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case head" - _%stx115607%_ - _%where116152%_ - _%hd116162%_))))))) + _%stx115713%_ + _%where116258%_ + _%hd116268%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116897116898%_) - (let ((_%e116172116479%_ + _%__stx117003117004%_) + (let ((_%e116278116585%_ (gx#syntax-e - _%__stx116897116898%_))) - (let ((_%tl116174116486%_ + _%__stx117003117004%_))) + (let ((_%tl116280116592%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e116172116479%_))) - (_%hd116173116483%_ - (let () (declare (not safe)) (##car _%e116172116479%_)))) - (_%__kont116900116901%_ - _%tl116174116486%_ - _%hd116173116483%_))) + (##cdr _%e116278116585%_))) + (_%hd116279116589%_ + (let () (declare (not safe)) (##car _%e116278116585%_)))) + (_%__kont117006117007%_ + _%tl116280116592%_ + _%hd116279116589%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116902116903%_))))))) - (_%recur116159%_ - _%hd116154%_ - _%tgt115759%_ + (_%__kont117008117009%_))))))) + (_%recur116265%_ + _%hd116260%_ + _%tgt115865%_ (cons (gx#datum->syntax '#f 'if) - (cons _%fender116155%_ - (cons _%body116156%_ - (cons _%E116157%_ + (cons _%fender116261%_ + (cons _%body116262%_ + (cons _%E116263%_ '())))))))) - (_%generate-clauses115767%_ - (lambda (_%clauses115890%_) - (let _%lp115893%_ ((_%rest115896%_ - _%clauses115890%_) - (_%E115898%_ + (_%generate-clauses115873%_ + (lambda (_%clauses115996%_) + (let _%lp115999%_ ((_%rest116002%_ + _%clauses115996%_) + (_%E116004%_ (gx#genident 'E)) - (_%r115899%_ '())) - (let* ((_%__stx116933116934%_ _%rest115896%_) - (_%g115902115914%_ + (_%r116005%_ '())) + (let* ((_%__stx117039117040%_ _%rest116002%_) + (_%g116008116020%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116933116934%_)))) - (let ((_%__kont116936116937%_ - (lambda (_%L115979%_ _%L115981%_) - (let* ((_%__stx116913116914%_ - _%L115981%_) - (_%g115993116004%_ + _%__stx117039117040%_)))) + (let ((_%__kont117042117043%_ + (lambda (_%L116085%_ _%L116087%_) + (let* ((_%__stx117019117020%_ + _%L116087%_) + (_%g116099116110%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx116913116914%_)))) - (let ((_%__kont116916116917%_ - (lambda (_%L116133%_) + _%__stx117019117020%_)))) + (let ((_%__kont117022117023%_ + (lambda (_%L116239%_) (if (gx#stx-null? - _%L115979%_) + _%L116085%_) (if (and (gx#stx-list? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L116133%_) - (not (gx#stx-null? _%L116133%_))) - (cons (cons _%E115898%_ + _%L116239%_) + (not (gx#stx-null? _%L116239%_))) + (cons (cons _%E116004%_ (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() @@ -784,113 +784,113 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin) - _%L116133%_) + _%L116239%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%L115981%_)) + (gx#stx-source _%L116087%_)) '())) - _%r115899%_) + _%r116005%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid else body" - _%stx115607%_ - _%L115981%_)) + _%stx115713%_ + _%L116087%_)) (gx#raise-syntax-error '#f '"Bad syntax; misplaced else" - _%stx115607%_ - _%L115981%_)))) + _%stx115713%_ + _%L116087%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116918116919%_ + (_%__kont117024117025%_ (lambda () - (let* ((_%g116015116023%_ - (lambda (_%g116016116019%_) + (let* ((_%g116121116129%_ + (lambda (_%g116122116125%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116016116019%_))) - (_%g116014116112%_ - (lambda (_%g116016116027%_) - ((lambda (_%L116030%_) - (let* ((_%g116046116054%_ - (lambda (_%g116047116050%_) + _%g116122116125%_))) + (_%g116120116218%_ + (lambda (_%g116122116133%_) + ((lambda (_%L116136%_) + (let* ((_%g116152116160%_ + (lambda (_%g116153116156%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116047116050%_))) - (_%g116045116108%_ - (lambda (_%g116047116058%_) - ((lambda (_%L116061%_) - (let* ((_%g116074116082%_ - (lambda (_%g116075116078%_) + _%g116153116156%_))) + (_%g116151116214%_ + (lambda (_%g116153116164%_) + ((lambda (_%L116167%_) + (let* ((_%g116180116188%_ + (lambda (_%g116181116184%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g116075116078%_))) - (_%g116073116104%_ - (lambda (_%g116075116086%_) - ((lambda (_%L116089%_) - (_%lp115893%_ - _%L115979%_ - _%L116030%_ - (cons (cons _%E115898%_ + _%g116181116184%_))) + (_%g116179116210%_ + (lambda (_%g116181116192%_) + ((lambda (_%L116195%_) + (_%lp115999%_ + _%L116085%_ + _%L116136%_ + (cons (cons _%E116004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L116089%_ '())) - _%r115899%_))) + (cons _%L116195%_ '())) + _%r116005%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g116075116086%_)))) - (_%g116073116104%_ + _%g116181116192%_)))) + (_%g116179116210%_ (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L116061%_ + (cons _%L116167%_ '()))) - (gx#stx-source _%L115981%_))))) - _%g116047116058%_)))) - (_%g116045116108%_ - (_%generate-clause115764%_ - _%L115981%_ - (cons _%L116030%_ '()))))) - _%g116016116027%_)))) - (_%g116014116112%_ (gx#genident 'E)))))) + (gx#stx-source _%L116087%_))))) + _%g116153116164%_)))) + (_%g116151116214%_ + (_%generate-clause115870%_ + _%L116087%_ + (cons _%L116136%_ '()))))) + _%g116122116133%_)))) + (_%g116120116218%_ (gx#genident 'E)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-pair? - _%__stx116913116914%_) - (let ((_%e115996116123%_ + _%__stx117019117020%_) + (let ((_%e116102116229%_ (gx#syntax-e - _%__stx116913116914%_))) - (let ((_%tl115998116130%_ + _%__stx117019117020%_))) + (let ((_%tl116104116236%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e115996116123%_))) - (_%hd115997116127%_ - (let () (declare (not safe)) (##car _%e115996116123%_)))) - (if (gx#identifier? _%hd115997116127%_) + (##cdr _%e116102116229%_))) + (_%hd116103116233%_ + (let () (declare (not safe)) (##car _%e116102116229%_)))) + (if (gx#identifier? _%hd116103116233%_) (if (gx#free-identifier=? - |gx[1]#_g116970_| - _%hd115997116127%_) - (_%__kont116916116917%_ _%tl115998116130%_) - (_%__kont116918116919%_)) - (_%__kont116918116919%_)))) + |gx[1]#_g117076_| + _%hd116103116233%_) + (_%__kont117022117023%_ _%tl116104116236%_) + (_%__kont117024117025%_)) + (_%__kont117024117025%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont116918116919%_)))))) - (_%__kont116938116939%_ + (_%__kont117024117025%_)))))) + (_%__kont117044117045%_ (lambda () - (let* ((_%g115925115933%_ - (lambda (_%g115926115929%_) + (let* ((_%g116031116039%_ + (lambda (_%g116032116035%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115926115929%_))) - (_%g115924115958%_ - (lambda (_%g115926115937%_) - ((lambda (_%L115940%_) - (cons (cons _%E115898%_ + _%g116032116035%_))) + (_%g116030116064%_ + (lambda (_%g116032116043%_) + ((lambda (_%L116046%_) + (cons (cons _%E116004%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#stx-wrap-source (cons (gx#datum->syntax '#f 'lambda) @@ -901,216 +901,216 @@ (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '"Bad syntax; invalid syntax-case clause" - (cons _%L115940%_ '())))) + (cons _%L116046%_ '())))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx115607%_)) + (gx#stx-source _%stx115713%_)) '())) - _%r115899%_)) - _%g115926115937%_)))) + _%r116005%_)) + _%g116032116043%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115924115958%_ - _%tgt115759%_))))) - (if (gx#stx-pair? _%__stx116933116934%_) - (let ((_%e115906115969%_ + (_%g116030116064%_ + _%tgt115865%_))))) + (if (gx#stx-pair? _%__stx117039117040%_) + (let ((_%e116012116075%_ (gx#syntax-e - _%__stx116933116934%_))) - (let ((_%tl115908115976%_ + _%__stx117039117040%_))) + (let ((_%tl116014116082%_ (let () (declare (not safe)) - (##cdr _%e115906115969%_))) - (_%hd115907115973%_ + (##cdr _%e116012116075%_))) + (_%hd116013116079%_ (let () (declare (not safe)) - (##car _%e115906115969%_)))) - (_%__kont116936116937%_ - _%tl115908115976%_ - _%hd115907115973%_))) - (_%__kont116938116939%_)))))))) - (let* ((_%bind115769%_ - (_%generate-clauses115767%_ _%clauses115762%_)) - (_%g115772115789%_ - (lambda (_%g115773115785%_) + (##car _%e116012116075%_)))) + (_%__kont117042117043%_ + _%tl116014116082%_ + _%hd116013116079%_))) + (_%__kont117044117045%_)))))))) + (let* ((_%bind115875%_ + (_%generate-clauses115873%_ _%clauses115868%_)) + (_%g115878115895%_ + (lambda (_%g115879115891%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115773115785%_))) - (_%g115771115886%_ - (lambda (_%g115773115793%_) - (if (gx#stx-pair/null? _%g115773115793%_) - (let ((_g116971_ + _%g115879115891%_))) + (_%g115877115992%_ + (lambda (_%g115879115899%_) + (if (gx#stx-pair/null? _%g115879115899%_) + (let ((_g117077_ (gx#syntax-split-splice - _%g115773115793%_ + _%g115879115899%_ '0))) (begin - (let ((_g116972_ + (let ((_g117078_ (let () (declare (not safe)) - (if (##values? _g116971_) - (##vector-length - _g116971_) + (if (##values? _g117077_) + (##values-length + _g117077_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g116972_ 2))) + (##fx= _g117078_ 2))) (error "Context expects 2 values" - _g116972_))) - (let ((_%target115775115796%_ + _g117078_))) + (let ((_%target115881115902%_ (let () (declare (not safe)) - (##vector-ref _g116971_ 0))) - (_%tl115777115799%_ + (##values-ref _g117077_ 0))) + (_%tl115883115905%_ (let () (declare (not safe)) - (##vector-ref _g116971_ 1)))) - (if (gx#stx-null? _%tl115777115799%_) - (letrec ((_%loop115778115802%_ - (lambda (_%hd115776115806%_ + (##values-ref _g117077_ 1)))) + (if (gx#stx-null? _%tl115883115905%_) + (letrec ((_%loop115884115908%_ + (lambda (_%hd115882115912%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind-try115782115809%_) - (if (gx#stx-pair? _%hd115776115806%_) - (let ((_%e115779115812%_ - (gx#syntax-e _%hd115776115806%_))) - (let ((_%lp-hd115780115816%_ + _%bind-try115888115915%_) + (if (gx#stx-pair? _%hd115882115912%_) + (let ((_%e115885115918%_ + (gx#syntax-e _%hd115882115912%_))) + (let ((_%lp-hd115886115922%_ (let () (declare (not safe)) - (##car _%e115779115812%_))) - (_%lp-tl115781115819%_ + (##car _%e115885115918%_))) + (_%lp-tl115887115925%_ (let () (declare (not safe)) - (##cdr _%e115779115812%_)))) - (_%loop115778115802%_ - _%lp-tl115781115819%_ - (cons _%lp-hd115780115816%_ - _%bind-try115782115809%_)))) - (let ((_%bind-try115783115822%_ - (reverse _%bind-try115782115809%_))) - ((lambda (_%L115826%_) - (let* ((_%g115844115852%_ - (lambda (_%g115845115848%_) + (##cdr _%e115885115918%_)))) + (_%loop115884115908%_ + _%lp-tl115887115925%_ + (cons _%lp-hd115886115922%_ + _%bind-try115888115915%_)))) + (let ((_%bind-try115889115928%_ + (reverse _%bind-try115888115915%_))) + ((lambda (_%L115932%_) + (let* ((_%g115950115958%_ + (lambda (_%g115951115954%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115845115848%_))) - (_%g115843115882%_ - (lambda (_%g115845115856%_) - ((lambda (_%L115859%_) + _%g115951115954%_))) + (_%g115949115988%_ + (lambda (_%g115951115962%_) + ((lambda (_%L115965%_) (cons (gx#datum->syntax '#f 'let*) - (cons (let ((__tmp116973 - (lambda (_%g115873115876%_ + (cons (let ((__tmp117079 + (lambda (_%g115979115982%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g115874115879%_) - (cons _%g115873115876%_ _%g115874115879%_)))) + _%g115980115985%_) + (cons _%g115979115982%_ _%g115980115985%_)))) (declare (not safe)) - (__foldr1 __tmp116973 '() _%L115826%_)) + (__foldr1 __tmp117079 '() _%L115932%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L115859%_ + (cons (cons _%L115965%_ '()) '())))) - _%g115845115856%_)))) - (_%g115843115882%_ (car (last _%bind115769%_))))) - _%bind-try115783115822%_)))))) + _%g115951115962%_)))) + (_%g115949115988%_ (car (last _%bind115875%_))))) + _%bind-try115889115928%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop115778115802%_ - _%target115775115796%_ + (_%loop115884115908%_ + _%target115881115902%_ '())) - (_%g115772115789%_ - _%g115773115793%_))))) - (_%g115772115789%_ _%g115773115793%_))))) - (_%g115771115886%_ _%bind115769%_)))))) - (let* ((_%g115613115632%_ - (lambda (_%g115614115628%_) + (_%g115878115895%_ + _%g115879115899%_))))) + (_%g115878115895%_ _%g115879115899%_))))) + (_%g115877115992%_ _%bind115875%_)))))) + (let* ((_%g115719115738%_ + (lambda (_%g115720115734%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115614115628%_))) - (_%g115612115755%_ - (lambda (_%g115614115636%_) - (if (gx#stx-pair? _%g115614115636%_) - (let ((_%e115618115639%_ - (gx#syntax-e _%g115614115636%_))) - (let ((_%hd115619115643%_ + _%g115720115734%_))) + (_%g115718115861%_ + (lambda (_%g115720115742%_) + (if (gx#stx-pair? _%g115720115742%_) + (let ((_%e115724115745%_ + (gx#syntax-e _%g115720115742%_))) + (let ((_%hd115725115749%_ (let () (declare (not safe)) - (##car _%e115618115639%_))) - (_%tl115620115646%_ + (##car _%e115724115745%_))) + (_%tl115726115752%_ (let () (declare (not safe)) - (##cdr _%e115618115639%_)))) - (if (gx#stx-pair? _%tl115620115646%_) - (let ((_%e115621115649%_ - (gx#syntax-e _%tl115620115646%_))) - (let ((_%hd115622115653%_ + (##cdr _%e115724115745%_)))) + (if (gx#stx-pair? _%tl115726115752%_) + (let ((_%e115727115755%_ + (gx#syntax-e _%tl115726115752%_))) + (let ((_%hd115728115759%_ (let () (declare (not safe)) - (##car _%e115621115649%_))) - (_%tl115623115656%_ + (##car _%e115727115755%_))) + (_%tl115729115762%_ (let () (declare (not safe)) - (##cdr _%e115621115649%_)))) - (if (gx#stx-pair? _%tl115623115656%_) - (let ((_%e115624115659%_ + (##cdr _%e115727115755%_)))) + (if (gx#stx-pair? _%tl115729115762%_) + (let ((_%e115730115765%_ (gx#syntax-e - _%tl115623115656%_))) - (let ((_%hd115625115663%_ + _%tl115729115762%_))) + (let ((_%hd115731115769%_ (let () (declare (not safe)) - (##car _%e115624115659%_))) - (_%tl115626115666%_ + (##car _%e115730115765%_))) + (_%tl115732115772%_ (let () (declare (not safe)) - (##cdr _%e115624115659%_)))) - ((lambda (_%L115669%_ - _%L115671%_ - _%L115672%_) + (##cdr _%e115730115765%_)))) + ((lambda (_%L115775%_ + _%L115777%_ + _%L115778%_) (if (and (gx#identifier-list? - _%L115671%_) + _%L115777%_) (gx#stx-list? - _%L115669%_)) - (let* ((_%g115690115698%_ - (lambda (_%g115691115694%_) + _%L115775%_)) + (let* ((_%g115796115804%_ + (lambda (_%g115797115800%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115691115694%_))) - (_%g115689115751%_ - (lambda (_%g115691115702%_) - ((lambda (_%L115705%_) - (let* ((_%g115717115725%_ + _%g115797115800%_))) + (_%g115795115857%_ + (lambda (_%g115797115808%_) + ((lambda (_%L115811%_) + (let* ((_%g115823115831%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g115718115721%_) + (lambda (_%g115824115827%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g115718115721%_))) - (_%g115716115747%_ - (lambda (_%g115718115729%_) - ((lambda (_%L115732%_) + _%g115824115827%_))) + (_%g115822115853%_ + (lambda (_%g115824115835%_) + ((lambda (_%L115838%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L115705%_ - (cons _%L115672%_ + (cons (cons (cons _%L115811%_ + (cons _%L115778%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '()) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L115732%_ '())))) - _%g115718115729%_)))) - (_%g115716115747%_ - (_%generate115610%_ - _%L115705%_ - (gx#syntax->list _%L115671%_) - _%L115669%_)))) - _%g115691115702%_)))) + (cons _%L115838%_ '())))) + _%g115824115835%_)))) + (_%g115822115853%_ + (_%generate115716%_ + _%L115811%_ + (gx#syntax->list _%L115777%_) + _%L115775%_)))) + _%g115797115808%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g115689115751%_ + (_%g115795115857%_ (gx#genident 'e))) - (_%g115613115632%_ - _%g115614115636%_))) - _%tl115626115666%_ - _%hd115625115663%_ - _%hd115622115653%_))) - (_%g115613115632%_ - _%g115614115636%_)))) - (_%g115613115632%_ _%g115614115636%_)))) - (_%g115613115632%_ _%g115614115636%_))))) - (_%g115612115755%_ _%stx115607%_))))))) + (_%g115719115738%_ + _%g115720115742%_))) + _%tl115732115772%_ + _%hd115731115769%_ + _%hd115728115759%_))) + (_%g115719115738%_ + _%g115720115742%_)))) + (_%g115719115738%_ _%g115720115742%_)))) + (_%g115719115738%_ _%g115720115742%_))))) + (_%g115718115861%_ _%stx115713%_))))))) diff --git a/src/bootstrap/gerbil/expander/compile~0.scm b/src/bootstrap/gerbil/expander/compile~0.scm index d5cc4bed4..44cef64ff 100644 --- a/src/bootstrap/gerbil/expander/compile~0.scm +++ b/src/bootstrap/gerbil/expander/compile~0.scm @@ -1,876 +1,876 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/compile::timestamp 1733870075) + (define gerbil/expander/compile::timestamp 1734131747) (begin (declare (not safe)) (define gx#core-compile-top-syntax - (lambda (_%stx130371%_) - (let* ((_%e130372130379%_ _%stx130371%_) - (_%E130374130383%_ + (lambda (_%stx130477%_) + (let* ((_%e130478130485%_ _%stx130477%_) + (_%E130480130489%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130372130379%_))) - (_%E130373130397%_ - (lambda () - (if (gx#stx-pair? _%e130372130379%_) - (let ((_%e130375130387%_ - (gx#syntax-e _%e130372130379%_))) - (let ((_%hd130376130390%_ (##car _%e130375130387%_)) - (_%tl130377130392%_ (##cdr _%e130375130387%_))) - (let* ((_%form130395%_ _%hd130376130390%_) - (__self130400 - (gx#syntax-local-e__0 _%form130395%_)) - (__method130401 + _%e130478130485%_))) + (_%E130479130503%_ + (lambda () + (if (gx#stx-pair? _%e130478130485%_) + (let ((_%e130481130493%_ + (gx#syntax-e _%e130478130485%_))) + (let ((_%hd130482130496%_ (##car _%e130481130493%_)) + (_%tl130483130498%_ (##cdr _%e130481130493%_))) + (let* ((_%form130501%_ _%hd130482130496%_) + (__self130506 + (gx#syntax-local-e__0 _%form130501%_)) + (__method130507 (__method-ref - __self130400 + __self130506 'compile-top-syntax))) - (if __method130401 - (__method130401 __self130400 _%stx130371%_) + (if __method130507 + (__method130507 __self130506 _%stx130477%_) (begin (error '"Missing method" - __self130400 + __self130506 'compile-top-syntax) '#!void))))) - (_%E130374130383%_))))) - (_%E130373130397%_)))) + (_%E130480130489%_))))) + (_%E130479130503%_)))) (define gx#core-expander::compile-top-syntax - (lambda (_%self129214130317%_ _%stx130319%_) - (let* ((_%self130321%_ _%self129214130317%_) - (_%self130323%_ _%self130321%_) - (_%self130332130340%_ _%self130323%_) - (_%E130334130344%_ + (lambda (_%self129320130423%_ _%stx130425%_) + (let* ((_%self130427%_ _%self129320130423%_) + (_%self130429%_ _%self130427%_) + (_%self130438130446%_ _%self130429%_) + (_%E130440130450%_ (lambda () (error '"No clause matching" - _%self130332130340%_ + _%self130438130446%_ '((core-expander _ _ K))) '#!void)) - (_%K130335130357%_ - (lambda (_%K130347%_) - (let ((_%$e130349%_ (gx#stx-source _%stx130319%_))) - (if _%$e130349%_ - ((lambda (_%g130351130353%_) + (_%K130441130463%_ + (lambda (_%K130453%_) + (let ((_%$e130455%_ (gx#stx-source _%stx130425%_))) + (if _%$e130455%_ + ((lambda (_%g130457130459%_) (gx#stx-wrap-source - (_%K130347%_ _%stx130319%_) - _%g130351130353%_)) - _%$e130349%_) - (_%K130347%_ _%stx130319%_))))) - (_%e130336130360%_ - (##unchecked-structure-ref _%self130332130340%_ '1 '#f '#f)) - (_%e130337130363%_ - (##unchecked-structure-ref _%self130332130340%_ '2 '#f '#f)) - (_%e130338130366%_ - (##unchecked-structure-ref _%self130332130340%_ '3 '#f '#f)) - (_%K130369%_ _%e130338130366%_)) - (_%K130335130357%_ _%K130369%_)))) + (_%K130453%_ _%stx130425%_) + _%g130457130459%_)) + _%$e130455%_) + (_%K130453%_ _%stx130425%_))))) + (_%e130442130466%_ + (##unchecked-structure-ref _%self130438130446%_ '1 '#f '#f)) + (_%e130443130469%_ + (##unchecked-structure-ref _%self130438130446%_ '2 '#f '#f)) + (_%e130444130472%_ + (##unchecked-structure-ref _%self130438130446%_ '3 '#f '#f)) + (_%K130475%_ _%e130444130472%_)) + (_%K130441130463%_ _%K130475%_)))) (__bind-method!__% gx#core-expander::t 'compile-top-syntax gx#core-expander::compile-top-syntax '#f) (define gx#core-compile-top-error - (lambda (_%stx130191%_) - (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130191%_))) + (lambda (_%stx130297%_) + (gx#raise-syntax-error 'compile '"Cannot compile form" _%stx130297%_))) (define gx#core-compile-top-begin% - (lambda (_%stx130161%_) - (let* ((_%e130162130169%_ _%stx130161%_) - (_%E130164130173%_ + (lambda (_%stx130267%_) + (let* ((_%e130268130275%_ _%stx130267%_) + (_%E130270130279%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130162130169%_))) - (_%E130163130187%_ - (lambda () - (if (gx#stx-pair? _%e130162130169%_) - (let ((_%e130165130177%_ - (gx#syntax-e _%e130162130169%_))) - (let ((_%hd130166130180%_ (##car _%e130165130177%_)) - (_%tl130167130182%_ (##cdr _%e130165130177%_))) - (let ((_%body130185%_ _%tl130167130182%_)) + _%e130268130275%_))) + (_%E130269130293%_ + (lambda () + (if (gx#stx-pair? _%e130268130275%_) + (let ((_%e130271130283%_ + (gx#syntax-e _%e130268130275%_))) + (let ((_%hd130272130286%_ (##car _%e130271130283%_)) + (_%tl130273130288%_ (##cdr _%e130271130283%_))) + (let ((_%body130291%_ _%tl130273130288%_)) (cons '%#begin (gx#stx-map1 gx#core-compile-top-syntax - _%body130185%_))))) - (_%E130164130173%_))))) - (_%E130163130187%_)))) + _%body130291%_))))) + (_%E130270130279%_))))) + (_%E130269130293%_)))) (define gx#core-compile-top-begin-syntax% - (lambda (_%stx130130%_) - (let* ((_%e130131130138%_ _%stx130130%_) - (_%E130133130142%_ + (lambda (_%stx130236%_) + (let* ((_%e130237130244%_ _%stx130236%_) + (_%E130239130248%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130131130138%_))) - (_%E130132130157%_ - (lambda () - (if (gx#stx-pair? _%e130131130138%_) - (let ((_%e130134130146%_ - (gx#syntax-e _%e130131130138%_))) - (let ((_%hd130135130149%_ (##car _%e130134130146%_)) - (_%tl130136130151%_ (##cdr _%e130134130146%_))) - (let ((_%body130154%_ _%tl130136130151%_)) + _%e130237130244%_))) + (_%E130238130263%_ + (lambda () + (if (gx#stx-pair? _%e130237130244%_) + (let ((_%e130240130252%_ + (gx#syntax-e _%e130237130244%_))) + (let ((_%hd130241130255%_ (##car _%e130240130252%_)) + (_%tl130242130257%_ (##cdr _%e130240130252%_))) + (let ((_%body130260%_ _%tl130242130257%_)) (cons '%#begin-syntax (__call-with-parameters (lambda () (gx#stx-map1 gx#core-compile-top-syntax - _%body130154%_)) + _%body130260%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))))) - (_%E130133130142%_))))) - (_%E130132130157%_)))) + (_%E130239130248%_))))) + (_%E130238130263%_)))) (define gx#core-compile-top-begin-foreign% - (lambda (_%stx130100%_) - (let* ((_%e130101130108%_ _%stx130100%_) - (_%E130103130112%_ + (lambda (_%stx130206%_) + (let* ((_%e130207130214%_ _%stx130206%_) + (_%E130209130218%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130101130108%_))) - (_%E130102130126%_ - (lambda () - (if (gx#stx-pair? _%e130101130108%_) - (let ((_%e130104130116%_ - (gx#syntax-e _%e130101130108%_))) - (let ((_%hd130105130119%_ (##car _%e130104130116%_)) - (_%tl130106130121%_ (##cdr _%e130104130116%_))) - (let ((_%body130124%_ _%tl130106130121%_)) - (cons '%#begin-foreign _%body130124%_)))) - (_%E130103130112%_))))) - (_%E130102130126%_)))) + _%e130207130214%_))) + (_%E130208130232%_ + (lambda () + (if (gx#stx-pair? _%e130207130214%_) + (let ((_%e130210130222%_ + (gx#syntax-e _%e130207130214%_))) + (let ((_%hd130211130225%_ (##car _%e130210130222%_)) + (_%tl130212130227%_ (##cdr _%e130210130222%_))) + (let ((_%body130230%_ _%tl130212130227%_)) + (cons '%#begin-foreign _%body130230%_)))) + (_%E130209130218%_))))) + (_%E130208130232%_)))) (define gx#core-compile-top-begin-annotation% - (lambda (_%stx130046%_) - (let* ((_%e130047130060%_ _%stx130046%_) - (_%E130049130064%_ + (lambda (_%stx130152%_) + (let* ((_%e130153130166%_ _%stx130152%_) + (_%E130155130170%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130047130060%_))) - (_%E130048130096%_ - (lambda () - (if (gx#stx-pair? _%e130047130060%_) - (let ((_%e130050130068%_ - (gx#syntax-e _%e130047130060%_))) - (let ((_%hd130051130071%_ (##car _%e130050130068%_)) - (_%tl130052130073%_ (##cdr _%e130050130068%_))) - (if (gx#stx-pair? _%tl130052130073%_) - (let ((_%e130053130076%_ - (gx#syntax-e _%tl130052130073%_))) - (let ((_%hd130054130079%_ - (##car _%e130053130076%_)) - (_%tl130055130081%_ - (##cdr _%e130053130076%_))) - (let ((_%ann130084%_ _%hd130054130079%_)) - (if (gx#stx-pair? _%tl130055130081%_) - (let ((_%e130056130086%_ + _%e130153130166%_))) + (_%E130154130202%_ + (lambda () + (if (gx#stx-pair? _%e130153130166%_) + (let ((_%e130156130174%_ + (gx#syntax-e _%e130153130166%_))) + (let ((_%hd130157130177%_ (##car _%e130156130174%_)) + (_%tl130158130179%_ (##cdr _%e130156130174%_))) + (if (gx#stx-pair? _%tl130158130179%_) + (let ((_%e130159130182%_ + (gx#syntax-e _%tl130158130179%_))) + (let ((_%hd130160130185%_ + (##car _%e130159130182%_)) + (_%tl130161130187%_ + (##cdr _%e130159130182%_))) + (let ((_%ann130190%_ _%hd130160130185%_)) + (if (gx#stx-pair? _%tl130161130187%_) + (let ((_%e130162130192%_ (gx#syntax-e - _%tl130055130081%_))) - (let ((_%hd130057130089%_ - (##car _%e130056130086%_)) - (_%tl130058130091%_ - (##cdr _%e130056130086%_))) - (let ((_%expr130094%_ - _%hd130057130089%_)) + _%tl130161130187%_))) + (let ((_%hd130163130195%_ + (##car _%e130162130192%_)) + (_%tl130164130197%_ + (##cdr _%e130162130192%_))) + (let ((_%expr130200%_ + _%hd130163130195%_)) (if (gx#stx-null? - _%tl130058130091%_) + _%tl130164130197%_) (gx#core-compile-top-syntax - _%expr130094%_) - (_%E130049130064%_))))) - (_%E130049130064%_))))) - (_%E130049130064%_)))) - (_%E130049130064%_))))) - (_%E130048130096%_)))) + _%expr130200%_) + (_%E130155130170%_))))) + (_%E130155130170%_))))) + (_%E130155130170%_)))) + (_%E130155130170%_))))) + (_%E130154130202%_)))) (define gx#core-compile-top-import% - (lambda (_%stx130016%_) - (let* ((_%e130017130024%_ _%stx130016%_) - (_%E130019130028%_ + (lambda (_%stx130122%_) + (let* ((_%e130123130130%_ _%stx130122%_) + (_%E130125130134%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e130017130024%_))) - (_%E130018130042%_ - (lambda () - (if (gx#stx-pair? _%e130017130024%_) - (let ((_%e130020130032%_ - (gx#syntax-e _%e130017130024%_))) - (let ((_%hd130021130035%_ (##car _%e130020130032%_)) - (_%tl130022130037%_ (##cdr _%e130020130032%_))) - (let ((_%body130040%_ _%tl130022130037%_)) - (cons '%#import _%body130040%_)))) - (_%E130019130028%_))))) - (_%E130018130042%_)))) + _%e130123130130%_))) + (_%E130124130148%_ + (lambda () + (if (gx#stx-pair? _%e130123130130%_) + (let ((_%e130126130138%_ + (gx#syntax-e _%e130123130130%_))) + (let ((_%hd130127130141%_ (##car _%e130126130138%_)) + (_%tl130128130143%_ (##cdr _%e130126130138%_))) + (let ((_%body130146%_ _%tl130128130143%_)) + (cons '%#import _%body130146%_)))) + (_%E130125130134%_))))) + (_%E130124130148%_)))) (define gx#core-compile-top-module% - (lambda (_%stx129973%_) - (let* ((_%e129974129984%_ _%stx129973%_) - (_%E129976129988%_ + (lambda (_%stx130079%_) + (let* ((_%e130080130090%_ _%stx130079%_) + (_%E130082130094%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129974129984%_))) - (_%E129975130012%_ - (lambda () - (if (gx#stx-pair? _%e129974129984%_) - (let ((_%e129977129992%_ - (gx#syntax-e _%e129974129984%_))) - (let ((_%hd129978129995%_ (##car _%e129977129992%_)) - (_%tl129979129997%_ (##cdr _%e129977129992%_))) - (if (gx#stx-pair? _%tl129979129997%_) - (let ((_%e129980130000%_ - (gx#syntax-e _%tl129979129997%_))) - (let ((_%hd129981130003%_ - (##car _%e129980130000%_)) - (_%tl129982130005%_ - (##cdr _%e129980130000%_))) - (let* ((_%hd130008%_ _%hd129981130003%_) - (_%body130010%_ _%tl129982130005%_)) + _%e130080130090%_))) + (_%E130081130118%_ + (lambda () + (if (gx#stx-pair? _%e130080130090%_) + (let ((_%e130083130098%_ + (gx#syntax-e _%e130080130090%_))) + (let ((_%hd130084130101%_ (##car _%e130083130098%_)) + (_%tl130085130103%_ (##cdr _%e130083130098%_))) + (if (gx#stx-pair? _%tl130085130103%_) + (let ((_%e130086130106%_ + (gx#syntax-e _%tl130085130103%_))) + (let ((_%hd130087130109%_ + (##car _%e130086130106%_)) + (_%tl130088130111%_ + (##cdr _%e130086130106%_))) + (let* ((_%hd130114%_ _%hd130087130109%_) + (_%body130116%_ _%tl130088130111%_)) (cons '%#module (cons (##structure-ref (gx#syntax-local-e__0 - _%hd130008%_) + _%hd130114%_) '1 gx#expander-context::t '#f) (gx#stx-map1 gx#core-compile-top-syntax - _%body130010%_)))))) - (_%E129976129988%_)))) - (_%E129976129988%_))))) - (_%E129975130012%_)))) + _%body130116%_)))))) + (_%E130082130094%_)))) + (_%E130082130094%_))))) + (_%E130081130118%_)))) (define gx#core-compile-top-export% - (lambda (_%stx129943%_) - (let* ((_%e129944129951%_ _%stx129943%_) - (_%E129946129955%_ + (lambda (_%stx130049%_) + (let* ((_%e130050130057%_ _%stx130049%_) + (_%E130052130061%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129944129951%_))) - (_%E129945129969%_ - (lambda () - (if (gx#stx-pair? _%e129944129951%_) - (let ((_%e129947129959%_ - (gx#syntax-e _%e129944129951%_))) - (let ((_%hd129948129962%_ (##car _%e129947129959%_)) - (_%tl129949129964%_ (##cdr _%e129947129959%_))) - (let ((_%body129967%_ _%tl129949129964%_)) - (cons '%#export _%body129967%_)))) - (_%E129946129955%_))))) - (_%E129945129969%_)))) + _%e130050130057%_))) + (_%E130051130075%_ + (lambda () + (if (gx#stx-pair? _%e130050130057%_) + (let ((_%e130053130065%_ + (gx#syntax-e _%e130050130057%_))) + (let ((_%hd130054130068%_ (##car _%e130053130065%_)) + (_%tl130055130070%_ (##cdr _%e130053130065%_))) + (let ((_%body130073%_ _%tl130055130070%_)) + (cons '%#export _%body130073%_)))) + (_%E130052130061%_))))) + (_%E130051130075%_)))) (define gx#core-compile-top-provide% - (lambda (_%stx129913%_) - (let* ((_%e129914129921%_ _%stx129913%_) - (_%E129916129925%_ + (lambda (_%stx130019%_) + (let* ((_%e130020130027%_ _%stx130019%_) + (_%E130022130031%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129914129921%_))) - (_%E129915129939%_ - (lambda () - (if (gx#stx-pair? _%e129914129921%_) - (let ((_%e129917129929%_ - (gx#syntax-e _%e129914129921%_))) - (let ((_%hd129918129932%_ (##car _%e129917129929%_)) - (_%tl129919129934%_ (##cdr _%e129917129929%_))) - (let ((_%body129937%_ _%tl129919129934%_)) - (cons '%#provide _%body129937%_)))) - (_%E129916129925%_))))) - (_%E129915129939%_)))) + _%e130020130027%_))) + (_%E130021130045%_ + (lambda () + (if (gx#stx-pair? _%e130020130027%_) + (let ((_%e130023130035%_ + (gx#syntax-e _%e130020130027%_))) + (let ((_%hd130024130038%_ (##car _%e130023130035%_)) + (_%tl130025130040%_ (##cdr _%e130023130035%_))) + (let ((_%body130043%_ _%tl130025130040%_)) + (cons '%#provide _%body130043%_)))) + (_%E130022130031%_))))) + (_%E130021130045%_)))) (define gx#core-compile-top-extern% - (lambda (_%stx129883%_) - (let* ((_%e129884129891%_ _%stx129883%_) - (_%E129886129895%_ + (lambda (_%stx129989%_) + (let* ((_%e129990129997%_ _%stx129989%_) + (_%E129992130001%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129884129891%_))) - (_%E129885129909%_ - (lambda () - (if (gx#stx-pair? _%e129884129891%_) - (let ((_%e129887129899%_ - (gx#syntax-e _%e129884129891%_))) - (let ((_%hd129888129902%_ (##car _%e129887129899%_)) - (_%tl129889129904%_ (##cdr _%e129887129899%_))) - (let ((_%body129907%_ _%tl129889129904%_)) - (cons '%#extern _%body129907%_)))) - (_%E129886129895%_))))) - (_%E129885129909%_)))) + _%e129990129997%_))) + (_%E129991130015%_ + (lambda () + (if (gx#stx-pair? _%e129990129997%_) + (let ((_%e129993130005%_ + (gx#syntax-e _%e129990129997%_))) + (let ((_%hd129994130008%_ (##car _%e129993130005%_)) + (_%tl129995130010%_ (##cdr _%e129993130005%_))) + (let ((_%body130013%_ _%tl129995130010%_)) + (cons '%#extern _%body130013%_)))) + (_%E129992130001%_))))) + (_%E129991130015%_)))) (define gx#core-compile-top-define-values% - (lambda (_%stx129829%_) - (let* ((_%e129830129843%_ _%stx129829%_) - (_%E129832129847%_ + (lambda (_%stx129935%_) + (let* ((_%e129936129949%_ _%stx129935%_) + (_%E129938129953%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129830129843%_))) - (_%E129831129879%_ - (lambda () - (if (gx#stx-pair? _%e129830129843%_) - (let ((_%e129833129851%_ - (gx#syntax-e _%e129830129843%_))) - (let ((_%hd129834129854%_ (##car _%e129833129851%_)) - (_%tl129835129856%_ (##cdr _%e129833129851%_))) - (if (gx#stx-pair? _%tl129835129856%_) - (let ((_%e129836129859%_ - (gx#syntax-e _%tl129835129856%_))) - (let ((_%hd129837129862%_ - (##car _%e129836129859%_)) - (_%tl129838129864%_ - (##cdr _%e129836129859%_))) - (let ((_%hd129867%_ _%hd129837129862%_)) - (if (gx#stx-pair? _%tl129838129864%_) - (let ((_%e129839129869%_ + _%e129936129949%_))) + (_%E129937129985%_ + (lambda () + (if (gx#stx-pair? _%e129936129949%_) + (let ((_%e129939129957%_ + (gx#syntax-e _%e129936129949%_))) + (let ((_%hd129940129960%_ (##car _%e129939129957%_)) + (_%tl129941129962%_ (##cdr _%e129939129957%_))) + (if (gx#stx-pair? _%tl129941129962%_) + (let ((_%e129942129965%_ + (gx#syntax-e _%tl129941129962%_))) + (let ((_%hd129943129968%_ + (##car _%e129942129965%_)) + (_%tl129944129970%_ + (##cdr _%e129942129965%_))) + (let ((_%hd129973%_ _%hd129943129968%_)) + (if (gx#stx-pair? _%tl129944129970%_) + (let ((_%e129945129975%_ (gx#syntax-e - _%tl129838129864%_))) - (let ((_%hd129840129872%_ - (##car _%e129839129869%_)) - (_%tl129841129874%_ - (##cdr _%e129839129869%_))) - (let ((_%expr129877%_ - _%hd129840129872%_)) + _%tl129944129970%_))) + (let ((_%hd129946129978%_ + (##car _%e129945129975%_)) + (_%tl129947129980%_ + (##cdr _%e129945129975%_))) + (let ((_%expr129983%_ + _%hd129946129978%_)) (if (gx#stx-null? - _%tl129841129874%_) + _%tl129947129980%_) (cons '%#define-values (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129867%_) + _%hd129973%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr129877%_) + _%expr129983%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129832129847%_))))) - (_%E129832129847%_))))) - (_%E129832129847%_)))) - (_%E129832129847%_))))) - (_%E129831129879%_)))) + (_%E129938129953%_))))) + (_%E129938129953%_))))) + (_%E129938129953%_)))) + (_%E129938129953%_))))) + (_%E129937129985%_)))) (define gx#core-compile-top-define-syntax% - (lambda (_%stx129774%_) - (let* ((_%e129775129788%_ _%stx129774%_) - (_%E129777129792%_ + (lambda (_%stx129880%_) + (let* ((_%e129881129894%_ _%stx129880%_) + (_%E129883129898%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129775129788%_))) - (_%E129776129825%_ - (lambda () - (if (gx#stx-pair? _%e129775129788%_) - (let ((_%e129778129796%_ - (gx#syntax-e _%e129775129788%_))) - (let ((_%hd129779129799%_ (##car _%e129778129796%_)) - (_%tl129780129801%_ (##cdr _%e129778129796%_))) - (if (gx#stx-pair? _%tl129780129801%_) - (let ((_%e129781129804%_ - (gx#syntax-e _%tl129780129801%_))) - (let ((_%hd129782129807%_ - (##car _%e129781129804%_)) - (_%tl129783129809%_ - (##cdr _%e129781129804%_))) - (let ((_%hd129812%_ _%hd129782129807%_)) - (if (gx#stx-pair? _%tl129783129809%_) - (let ((_%e129784129814%_ + _%e129881129894%_))) + (_%E129882129931%_ + (lambda () + (if (gx#stx-pair? _%e129881129894%_) + (let ((_%e129884129902%_ + (gx#syntax-e _%e129881129894%_))) + (let ((_%hd129885129905%_ (##car _%e129884129902%_)) + (_%tl129886129907%_ (##cdr _%e129884129902%_))) + (if (gx#stx-pair? _%tl129886129907%_) + (let ((_%e129887129910%_ + (gx#syntax-e _%tl129886129907%_))) + (let ((_%hd129888129913%_ + (##car _%e129887129910%_)) + (_%tl129889129915%_ + (##cdr _%e129887129910%_))) + (let ((_%hd129918%_ _%hd129888129913%_)) + (if (gx#stx-pair? _%tl129889129915%_) + (let ((_%e129890129920%_ (gx#syntax-e - _%tl129783129809%_))) - (let ((_%hd129785129817%_ - (##car _%e129784129814%_)) - (_%tl129786129819%_ - (##cdr _%e129784129814%_))) - (let ((_%expr129822%_ - _%hd129785129817%_)) + _%tl129889129915%_))) + (let ((_%hd129891129923%_ + (##car _%e129890129920%_)) + (_%tl129892129925%_ + (##cdr _%e129890129920%_))) + (let ((_%expr129928%_ + _%hd129891129923%_)) (if (gx#stx-null? - _%tl129786129819%_) + _%tl129892129925%_) (cons '%#define-syntax - (cons _%hd129812%_ + (cons _%hd129918%_ (cons (__call-with-parameters ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (lambda () - (gx#core-compile-top-syntax _%expr129822%_)) + (gx#core-compile-top-syntax _%expr129928%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129777129792%_))))) - (_%E129777129792%_))))) - (_%E129777129792%_)))) - (_%E129777129792%_))))) - (_%E129776129825%_)))) + (_%E129883129898%_))))) + (_%E129883129898%_))))) + (_%E129883129898%_)))) + (_%E129883129898%_))))) + (_%E129882129931%_)))) (define gx#core-compile-top-define-alias% - (lambda (_%stx129744%_) - (let* ((_%e129745129752%_ _%stx129744%_) - (_%E129747129756%_ + (lambda (_%stx129850%_) + (let* ((_%e129851129858%_ _%stx129850%_) + (_%E129853129862%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129745129752%_))) - (_%E129746129770%_ - (lambda () - (if (gx#stx-pair? _%e129745129752%_) - (let ((_%e129748129760%_ - (gx#syntax-e _%e129745129752%_))) - (let ((_%hd129749129763%_ (##car _%e129748129760%_)) - (_%tl129750129765%_ (##cdr _%e129748129760%_))) - (let ((_%body129768%_ _%tl129750129765%_)) - (cons '%#define-alias _%body129768%_)))) - (_%E129747129756%_))))) - (_%E129746129770%_)))) + _%e129851129858%_))) + (_%E129852129876%_ + (lambda () + (if (gx#stx-pair? _%e129851129858%_) + (let ((_%e129854129866%_ + (gx#syntax-e _%e129851129858%_))) + (let ((_%hd129855129869%_ (##car _%e129854129866%_)) + (_%tl129856129871%_ (##cdr _%e129854129866%_))) + (let ((_%body129874%_ _%tl129856129871%_)) + (cons '%#define-alias _%body129874%_)))) + (_%E129853129862%_))))) + (_%E129852129876%_)))) (define gx#core-compile-top-define-runtime% - (lambda (_%stx129714%_) - (let* ((_%e129715129722%_ _%stx129714%_) - (_%E129717129726%_ + (lambda (_%stx129820%_) + (let* ((_%e129821129828%_ _%stx129820%_) + (_%E129823129832%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129715129722%_))) - (_%E129716129740%_ - (lambda () - (if (gx#stx-pair? _%e129715129722%_) - (let ((_%e129718129730%_ - (gx#syntax-e _%e129715129722%_))) - (let ((_%hd129719129733%_ (##car _%e129718129730%_)) - (_%tl129720129735%_ (##cdr _%e129718129730%_))) - (let ((_%body129738%_ _%tl129720129735%_)) - (cons '%#define-runtime _%body129738%_)))) - (_%E129717129726%_))))) - (_%E129716129740%_)))) + _%e129821129828%_))) + (_%E129822129846%_ + (lambda () + (if (gx#stx-pair? _%e129821129828%_) + (let ((_%e129824129836%_ + (gx#syntax-e _%e129821129828%_))) + (let ((_%hd129825129839%_ (##car _%e129824129836%_)) + (_%tl129826129841%_ (##cdr _%e129824129836%_))) + (let ((_%body129844%_ _%tl129826129841%_)) + (cons '%#define-runtime _%body129844%_)))) + (_%E129823129832%_))))) + (_%E129822129846%_)))) (define gx#core-compile-top-declare% - (lambda (_%stx129684%_) - (let* ((_%e129685129692%_ _%stx129684%_) - (_%E129687129696%_ + (lambda (_%stx129790%_) + (let* ((_%e129791129798%_ _%stx129790%_) + (_%E129793129802%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129685129692%_))) - (_%E129686129710%_ - (lambda () - (if (gx#stx-pair? _%e129685129692%_) - (let ((_%e129688129700%_ - (gx#syntax-e _%e129685129692%_))) - (let ((_%hd129689129703%_ (##car _%e129688129700%_)) - (_%tl129690129705%_ (##cdr _%e129688129700%_))) - (let ((_%decls129708%_ _%tl129690129705%_)) - (cons '%#declare _%decls129708%_)))) - (_%E129687129696%_))))) - (_%E129686129710%_)))) + _%e129791129798%_))) + (_%E129792129816%_ + (lambda () + (if (gx#stx-pair? _%e129791129798%_) + (let ((_%e129794129806%_ + (gx#syntax-e _%e129791129798%_))) + (let ((_%hd129795129809%_ (##car _%e129794129806%_)) + (_%tl129796129811%_ (##cdr _%e129794129806%_))) + (let ((_%decls129814%_ _%tl129796129811%_)) + (cons '%#declare _%decls129814%_)))) + (_%E129793129802%_))))) + (_%E129792129816%_)))) (define gx#core-compile-top-lambda% - (lambda (_%stx129654%_) - (let* ((_%e129655129662%_ _%stx129654%_) - (_%E129657129666%_ + (lambda (_%stx129760%_) + (let* ((_%e129761129768%_ _%stx129760%_) + (_%E129763129772%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129655129662%_))) - (_%E129656129680%_ - (lambda () - (if (gx#stx-pair? _%e129655129662%_) - (let ((_%e129658129670%_ - (gx#syntax-e _%e129655129662%_))) - (let ((_%hd129659129673%_ (##car _%e129658129670%_)) - (_%tl129660129675%_ (##cdr _%e129658129670%_))) - (let ((_%clause129678%_ _%tl129660129675%_)) + _%e129761129768%_))) + (_%E129762129786%_ + (lambda () + (if (gx#stx-pair? _%e129761129768%_) + (let ((_%e129764129776%_ + (gx#syntax-e _%e129761129768%_))) + (let ((_%hd129765129779%_ (##car _%e129764129776%_)) + (_%tl129766129781%_ (##cdr _%e129764129776%_))) + (let ((_%clause129784%_ _%tl129766129781%_)) (cons '%#lambda (gx#core-compile-top-lambda-clause - _%clause129678%_))))) - (_%E129657129666%_))))) - (_%E129656129680%_)))) + _%clause129784%_))))) + (_%E129763129772%_))))) + (_%E129762129786%_)))) (define gx#core-compile-top-lambda-clause - (lambda (_%stx129611%_) - (let* ((_%e129612129622%_ _%stx129611%_) - (_%E129614129626%_ + (lambda (_%stx129717%_) + (let* ((_%e129718129728%_ _%stx129717%_) + (_%E129720129732%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129612129622%_))) - (_%E129613129650%_ - (lambda () - (if (gx#stx-pair? _%e129612129622%_) - (let ((_%e129615129630%_ - (gx#syntax-e _%e129612129622%_))) - (let ((_%hd129616129633%_ (##car _%e129615129630%_)) - (_%tl129617129635%_ (##cdr _%e129615129630%_))) - (let ((_%hd129638%_ _%hd129616129633%_)) - (if (gx#stx-pair? _%tl129617129635%_) - (let ((_%e129618129640%_ - (gx#syntax-e _%tl129617129635%_))) - (let ((_%hd129619129643%_ - (##car _%e129618129640%_)) - (_%tl129620129645%_ - (##cdr _%e129618129640%_))) - (let ((_%body129648%_ _%hd129619129643%_)) - (if (gx#stx-null? _%tl129620129645%_) + _%e129718129728%_))) + (_%E129719129756%_ + (lambda () + (if (gx#stx-pair? _%e129718129728%_) + (let ((_%e129721129736%_ + (gx#syntax-e _%e129718129728%_))) + (let ((_%hd129722129739%_ (##car _%e129721129736%_)) + (_%tl129723129741%_ (##cdr _%e129721129736%_))) + (let ((_%hd129744%_ _%hd129722129739%_)) + (if (gx#stx-pair? _%tl129723129741%_) + (let ((_%e129724129746%_ + (gx#syntax-e _%tl129723129741%_))) + (let ((_%hd129725129749%_ + (##car _%e129724129746%_)) + (_%tl129726129751%_ + (##cdr _%e129724129746%_))) + (let ((_%body129754%_ _%hd129725129749%_)) + (if (gx#stx-null? _%tl129726129751%_) (cons (gx#stx-map1 gx#core-compile-top-runtime-bind - _%hd129638%_) + _%hd129744%_) (cons (gx#core-compile-top-syntax - _%body129648%_) + _%body129754%_) '())) - (_%E129614129626%_))))) - (_%E129614129626%_))))) - (_%E129614129626%_))))) - (_%E129613129650%_)))) + (_%E129720129732%_))))) + (_%E129720129732%_))))) + (_%E129720129732%_))))) + (_%E129719129756%_)))) (define gx#core-compile-top-case-lambda% - (lambda (_%stx129581%_) - (let* ((_%e129582129589%_ _%stx129581%_) - (_%E129584129593%_ + (lambda (_%stx129687%_) + (let* ((_%e129688129695%_ _%stx129687%_) + (_%E129690129699%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129582129589%_))) - (_%E129583129607%_ - (lambda () - (if (gx#stx-pair? _%e129582129589%_) - (let ((_%e129585129597%_ - (gx#syntax-e _%e129582129589%_))) - (let ((_%hd129586129600%_ (##car _%e129585129597%_)) - (_%tl129587129602%_ (##cdr _%e129585129597%_))) - (let ((_%clauses129605%_ _%tl129587129602%_)) + _%e129688129695%_))) + (_%E129689129713%_ + (lambda () + (if (gx#stx-pair? _%e129688129695%_) + (let ((_%e129691129703%_ + (gx#syntax-e _%e129688129695%_))) + (let ((_%hd129692129706%_ (##car _%e129691129703%_)) + (_%tl129693129708%_ (##cdr _%e129691129703%_))) + (let ((_%clauses129711%_ _%tl129693129708%_)) (cons '%#case-lambda (gx#stx-map1 gx#core-compile-top-lambda-clause - _%clauses129605%_))))) - (_%E129584129593%_))))) - (_%E129583129607%_)))) + _%clauses129711%_))))) + (_%E129690129699%_))))) + (_%E129689129713%_)))) (define gx#core-compile-top-let-values%__% - (lambda (_%stx129516%_ _%form129517%_) - (let* ((_%e129518129531%_ _%stx129516%_) - (_%E129520129535%_ + (lambda (_%stx129622%_ _%form129623%_) + (let* ((_%e129624129637%_ _%stx129622%_) + (_%E129626129641%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129518129531%_))) - (_%E129519129567%_ - (lambda () - (if (gx#stx-pair? _%e129518129531%_) - (let ((_%e129521129539%_ - (gx#syntax-e _%e129518129531%_))) - (let ((_%hd129522129542%_ (##car _%e129521129539%_)) - (_%tl129523129544%_ (##cdr _%e129521129539%_))) - (if (gx#stx-pair? _%tl129523129544%_) - (let ((_%e129524129547%_ - (gx#syntax-e _%tl129523129544%_))) - (let ((_%hd129525129550%_ - (##car _%e129524129547%_)) - (_%tl129526129552%_ - (##cdr _%e129524129547%_))) - (let ((_%hd129555%_ _%hd129525129550%_)) - (if (gx#stx-pair? _%tl129526129552%_) - (let ((_%e129527129557%_ + _%e129624129637%_))) + (_%E129625129673%_ + (lambda () + (if (gx#stx-pair? _%e129624129637%_) + (let ((_%e129627129645%_ + (gx#syntax-e _%e129624129637%_))) + (let ((_%hd129628129648%_ (##car _%e129627129645%_)) + (_%tl129629129650%_ (##cdr _%e129627129645%_))) + (if (gx#stx-pair? _%tl129629129650%_) + (let ((_%e129630129653%_ + (gx#syntax-e _%tl129629129650%_))) + (let ((_%hd129631129656%_ + (##car _%e129630129653%_)) + (_%tl129632129658%_ + (##cdr _%e129630129653%_))) + (let ((_%hd129661%_ _%hd129631129656%_)) + (if (gx#stx-pair? _%tl129632129658%_) + (let ((_%e129633129663%_ (gx#syntax-e - _%tl129526129552%_))) - (let ((_%hd129528129560%_ - (##car _%e129527129557%_)) - (_%tl129529129562%_ - (##cdr _%e129527129557%_))) - (let ((_%body129565%_ - _%hd129528129560%_)) + _%tl129632129658%_))) + (let ((_%hd129634129666%_ + (##car _%e129633129663%_)) + (_%tl129635129668%_ + (##cdr _%e129633129663%_))) + (let ((_%body129671%_ + _%hd129634129666%_)) (if (gx#stx-null? - _%tl129529129562%_) - (cons _%form129517%_ + _%tl129635129668%_) + (cons _%form129623%_ (cons (gx#stx-map1 gx#core-compile-top-lambda-clause - _%hd129555%_) + _%hd129661%_) (cons (gx#core-compile-top-syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body129565%_) + _%body129671%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129520129535%_))))) - (_%E129520129535%_))))) - (_%E129520129535%_)))) - (_%E129520129535%_))))) - (_%E129519129567%_)))) + (_%E129626129641%_))))) + (_%E129626129641%_))))) + (_%E129626129641%_)))) + (_%E129626129641%_))))) + (_%E129625129673%_)))) (define gx#core-compile-top-let-values%__0 - (lambda (_%stx129574%_) - (let ((_%form129576%_ '%#let-values)) - (gx#core-compile-top-let-values%__% _%stx129574%_ _%form129576%_)))) + (lambda (_%stx129680%_) + (let ((_%form129682%_ '%#let-values)) + (gx#core-compile-top-let-values%__% _%stx129680%_ _%form129682%_)))) (define gx#core-compile-top-let-values% - (lambda _g130403_ - (let ((_g130402_ (##length _g130403_))) - (cond ((##fx= _g130402_ 1) - (apply gx#core-compile-top-let-values%__0 _g130403_)) - ((##fx= _g130402_ 2) - (apply gx#core-compile-top-let-values%__% _g130403_)) + (lambda _g130509_ + (let ((_g130508_ (##length _g130509_))) + (cond ((##fx= _g130508_ 1) + (apply gx#core-compile-top-let-values%__0 _g130509_)) + ((##fx= _g130508_ 2) + (apply gx#core-compile-top-let-values%__% _g130509_)) (else (##raise-wrong-number-of-arguments-exception gx#core-compile-top-let-values% - _g130403_)))))) + _g130509_)))))) (define gx#core-compile-top-letrec-values% - (lambda (_%stx129513%_) - (gx#core-compile-top-let-values%__% _%stx129513%_ '%#letrec-values))) + (lambda (_%stx129619%_) + (gx#core-compile-top-let-values%__% _%stx129619%_ '%#letrec-values))) (define gx#core-compile-top-letrec*-values% - (lambda (_%stx129511%_) - (gx#core-compile-top-let-values%__% _%stx129511%_ '%#letrec*-values))) + (lambda (_%stx129617%_) + (gx#core-compile-top-let-values%__% _%stx129617%_ '%#letrec*-values))) (define gx#core-compile-top-quote% - (lambda (_%stx129470%_) - (let* ((_%e129471129481%_ _%stx129470%_) - (_%E129473129485%_ + (lambda (_%stx129576%_) + (let* ((_%e129577129587%_ _%stx129576%_) + (_%E129579129591%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129471129481%_))) - (_%E129472129507%_ - (lambda () - (if (gx#stx-pair? _%e129471129481%_) - (let ((_%e129474129489%_ - (gx#syntax-e _%e129471129481%_))) - (let ((_%hd129475129492%_ (##car _%e129474129489%_)) - (_%tl129476129494%_ (##cdr _%e129474129489%_))) - (if (gx#stx-pair? _%tl129476129494%_) - (let ((_%e129477129497%_ - (gx#syntax-e _%tl129476129494%_))) - (let ((_%hd129478129500%_ - (##car _%e129477129497%_)) - (_%tl129479129502%_ - (##cdr _%e129477129497%_))) - (let ((_%e129505%_ _%hd129478129500%_)) - (if (gx#stx-null? _%tl129479129502%_) + _%e129577129587%_))) + (_%E129578129613%_ + (lambda () + (if (gx#stx-pair? _%e129577129587%_) + (let ((_%e129580129595%_ + (gx#syntax-e _%e129577129587%_))) + (let ((_%hd129581129598%_ (##car _%e129580129595%_)) + (_%tl129582129600%_ (##cdr _%e129580129595%_))) + (if (gx#stx-pair? _%tl129582129600%_) + (let ((_%e129583129603%_ + (gx#syntax-e _%tl129582129600%_))) + (let ((_%hd129584129606%_ + (##car _%e129583129603%_)) + (_%tl129585129608%_ + (##cdr _%e129583129603%_))) + (let ((_%e129611%_ _%hd129584129606%_)) + (if (gx#stx-null? _%tl129585129608%_) (cons '%#quote (cons (gx#syntax->datum - _%e129505%_) + _%e129611%_) '())) - (_%E129473129485%_))))) - (_%E129473129485%_)))) - (_%E129473129485%_))))) - (_%E129472129507%_)))) + (_%E129579129591%_))))) + (_%E129579129591%_)))) + (_%E129579129591%_))))) + (_%E129578129613%_)))) (define gx#core-compile-top-quote-syntax% - (lambda (_%stx129429%_) - (let* ((_%e129430129440%_ _%stx129429%_) - (_%E129432129444%_ + (lambda (_%stx129535%_) + (let* ((_%e129536129546%_ _%stx129535%_) + (_%E129538129550%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129430129440%_))) - (_%E129431129466%_ - (lambda () - (if (gx#stx-pair? _%e129430129440%_) - (let ((_%e129433129448%_ - (gx#syntax-e _%e129430129440%_))) - (let ((_%hd129434129451%_ (##car _%e129433129448%_)) - (_%tl129435129453%_ (##cdr _%e129433129448%_))) - (if (gx#stx-pair? _%tl129435129453%_) - (let ((_%e129436129456%_ - (gx#syntax-e _%tl129435129453%_))) - (let ((_%hd129437129459%_ - (##car _%e129436129456%_)) - (_%tl129438129461%_ - (##cdr _%e129436129456%_))) - (let ((_%e129464%_ _%hd129437129459%_)) - (if (gx#stx-null? _%tl129438129461%_) + _%e129536129546%_))) + (_%E129537129572%_ + (lambda () + (if (gx#stx-pair? _%e129536129546%_) + (let ((_%e129539129554%_ + (gx#syntax-e _%e129536129546%_))) + (let ((_%hd129540129557%_ (##car _%e129539129554%_)) + (_%tl129541129559%_ (##cdr _%e129539129554%_))) + (if (gx#stx-pair? _%tl129541129559%_) + (let ((_%e129542129562%_ + (gx#syntax-e _%tl129541129559%_))) + (let ((_%hd129543129565%_ + (##car _%e129542129562%_)) + (_%tl129544129567%_ + (##cdr _%e129542129562%_))) + (let ((_%e129570%_ _%hd129543129565%_)) + (if (gx#stx-null? _%tl129544129567%_) (cons '%#quote-syntax (cons (gx#core-quote-syntax__0 - _%e129464%_) + _%e129570%_) '())) - (_%E129432129444%_))))) - (_%E129432129444%_)))) - (_%E129432129444%_))))) - (_%E129431129466%_)))) + (_%E129538129550%_))))) + (_%E129538129550%_)))) + (_%E129538129550%_))))) + (_%E129537129572%_)))) (define gx#core-compile-top-call% - (lambda (_%stx129386%_) - (let* ((_%e129387129397%_ _%stx129386%_) - (_%E129389129401%_ + (lambda (_%stx129492%_) + (let* ((_%e129493129503%_ _%stx129492%_) + (_%E129495129507%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129387129397%_))) - (_%E129388129425%_ - (lambda () - (if (gx#stx-pair? _%e129387129397%_) - (let ((_%e129390129405%_ - (gx#syntax-e _%e129387129397%_))) - (let ((_%hd129391129408%_ (##car _%e129390129405%_)) - (_%tl129392129410%_ (##cdr _%e129390129405%_))) - (if (gx#stx-pair? _%tl129392129410%_) - (let ((_%e129393129413%_ - (gx#syntax-e _%tl129392129410%_))) - (let ((_%hd129394129416%_ - (##car _%e129393129413%_)) - (_%tl129395129418%_ - (##cdr _%e129393129413%_))) - (let* ((_%rator129421%_ _%hd129394129416%_) - (_%args129423%_ _%tl129395129418%_)) + _%e129493129503%_))) + (_%E129494129531%_ + (lambda () + (if (gx#stx-pair? _%e129493129503%_) + (let ((_%e129496129511%_ + (gx#syntax-e _%e129493129503%_))) + (let ((_%hd129497129514%_ (##car _%e129496129511%_)) + (_%tl129498129516%_ (##cdr _%e129496129511%_))) + (if (gx#stx-pair? _%tl129498129516%_) + (let ((_%e129499129519%_ + (gx#syntax-e _%tl129498129516%_))) + (let ((_%hd129500129522%_ + (##car _%e129499129519%_)) + (_%tl129501129524%_ + (##cdr _%e129499129519%_))) + (let* ((_%rator129527%_ _%hd129500129522%_) + (_%args129529%_ _%tl129501129524%_)) (cons '%#call (cons (gx#core-compile-top-syntax - _%rator129421%_) + _%rator129527%_) (gx#stx-map1 gx#core-compile-top-syntax - _%args129423%_)))))) - (_%E129389129401%_)))) - (_%E129389129401%_))))) - (_%E129388129425%_)))) + _%args129529%_)))))) + (_%E129495129507%_)))) + (_%E129495129507%_))))) + (_%E129494129531%_)))) (define gx#core-compile-top-if% - (lambda (_%stx129319%_) - (let* ((_%e129320129336%_ _%stx129319%_) - (_%E129322129340%_ + (lambda (_%stx129425%_) + (let* ((_%e129426129442%_ _%stx129425%_) + (_%E129428129446%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129320129336%_))) - (_%E129321129382%_ - (lambda () - (if (gx#stx-pair? _%e129320129336%_) - (let ((_%e129323129344%_ - (gx#syntax-e _%e129320129336%_))) - (let ((_%hd129324129347%_ (##car _%e129323129344%_)) - (_%tl129325129349%_ (##cdr _%e129323129344%_))) - (if (gx#stx-pair? _%tl129325129349%_) - (let ((_%e129326129352%_ - (gx#syntax-e _%tl129325129349%_))) - (let ((_%hd129327129355%_ - (##car _%e129326129352%_)) - (_%tl129328129357%_ - (##cdr _%e129326129352%_))) - (let ((_%test129360%_ _%hd129327129355%_)) - (if (gx#stx-pair? _%tl129328129357%_) - (let ((_%e129329129362%_ + _%e129426129442%_))) + (_%E129427129488%_ + (lambda () + (if (gx#stx-pair? _%e129426129442%_) + (let ((_%e129429129450%_ + (gx#syntax-e _%e129426129442%_))) + (let ((_%hd129430129453%_ (##car _%e129429129450%_)) + (_%tl129431129455%_ (##cdr _%e129429129450%_))) + (if (gx#stx-pair? _%tl129431129455%_) + (let ((_%e129432129458%_ + (gx#syntax-e _%tl129431129455%_))) + (let ((_%hd129433129461%_ + (##car _%e129432129458%_)) + (_%tl129434129463%_ + (##cdr _%e129432129458%_))) + (let ((_%test129466%_ _%hd129433129461%_)) + (if (gx#stx-pair? _%tl129434129463%_) + (let ((_%e129435129468%_ (gx#syntax-e - _%tl129328129357%_))) - (let ((_%hd129330129365%_ - (##car _%e129329129362%_)) - (_%tl129331129367%_ - (##cdr _%e129329129362%_))) - (let ((_%K129370%_ - _%hd129330129365%_)) + _%tl129434129463%_))) + (let ((_%hd129436129471%_ + (##car _%e129435129468%_)) + (_%tl129437129473%_ + (##cdr _%e129435129468%_))) + (let ((_%K129476%_ + _%hd129436129471%_)) (if (gx#stx-pair? - _%tl129331129367%_) - (let ((_%e129332129372%_ + _%tl129437129473%_) + (let ((_%e129438129478%_ (gx#syntax-e - _%tl129331129367%_))) - (let ((_%hd129333129375%_ - (##car _%e129332129372%_)) - (_%tl129334129377%_ - (##cdr _%e129332129372%_))) - (let ((_%E129380%_ - _%hd129333129375%_)) + _%tl129437129473%_))) + (let ((_%hd129439129481%_ + (##car _%e129438129478%_)) + (_%tl129440129483%_ + (##cdr _%e129438129478%_))) + (let ((_%E129486%_ + _%hd129439129481%_)) (if (gx#stx-null? - _%tl129334129377%_) + _%tl129440129483%_) (cons '%#if ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (gx#core-compile-top-syntax _%test129360%_) - (cons (gx#core-compile-top-syntax _%K129370%_) + (cons (gx#core-compile-top-syntax _%test129466%_) + (cons (gx#core-compile-top-syntax _%K129476%_) (cons (gx#core-compile-top-syntax - _%E129380%_) + _%E129486%_) '())))) - (_%E129322129340%_))))) + (_%E129428129446%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129322129340%_))))) - (_%E129322129340%_))))) - (_%E129322129340%_)))) - (_%E129322129340%_))))) - (_%E129321129382%_)))) + (_%E129428129446%_))))) + (_%E129428129446%_))))) + (_%E129428129446%_)))) + (_%E129428129446%_))))) + (_%E129427129488%_)))) (define gx#core-compile-top-ref% - (lambda (_%stx129278%_) - (let* ((_%e129279129289%_ _%stx129278%_) - (_%E129281129293%_ + (lambda (_%stx129384%_) + (let* ((_%e129385129395%_ _%stx129384%_) + (_%E129387129399%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129279129289%_))) - (_%E129280129315%_ - (lambda () - (if (gx#stx-pair? _%e129279129289%_) - (let ((_%e129282129297%_ - (gx#syntax-e _%e129279129289%_))) - (let ((_%hd129283129300%_ (##car _%e129282129297%_)) - (_%tl129284129302%_ (##cdr _%e129282129297%_))) - (if (gx#stx-pair? _%tl129284129302%_) - (let ((_%e129285129305%_ - (gx#syntax-e _%tl129284129302%_))) - (let ((_%hd129286129308%_ - (##car _%e129285129305%_)) - (_%tl129287129310%_ - (##cdr _%e129285129305%_))) - (let ((_%id129313%_ _%hd129286129308%_)) - (if (gx#stx-null? _%tl129287129310%_) - (if (gx#identifier? _%id129313%_) + _%e129385129395%_))) + (_%E129386129421%_ + (lambda () + (if (gx#stx-pair? _%e129385129395%_) + (let ((_%e129388129403%_ + (gx#syntax-e _%e129385129395%_))) + (let ((_%hd129389129406%_ (##car _%e129388129403%_)) + (_%tl129390129408%_ (##cdr _%e129388129403%_))) + (if (gx#stx-pair? _%tl129390129408%_) + (let ((_%e129391129411%_ + (gx#syntax-e _%tl129390129408%_))) + (let ((_%hd129392129414%_ + (##car _%e129391129411%_)) + (_%tl129393129416%_ + (##cdr _%e129391129411%_))) + (let ((_%id129419%_ _%hd129392129414%_)) + (if (gx#stx-null? _%tl129393129416%_) + (if (gx#identifier? _%id129419%_) (cons '%#ref (cons (gx#core-compile-top-runtime-ref - _%id129313%_) + _%id129419%_) '())) - (_%E129281129293%_)) - (_%E129281129293%_))))) - (_%E129281129293%_)))) - (_%E129281129293%_))))) - (_%E129280129315%_)))) + (_%E129387129399%_)) + (_%E129387129399%_))))) + (_%E129387129399%_)))) + (_%E129387129399%_))))) + (_%E129386129421%_)))) (define gx#core-compile-top-setq% - (lambda (_%stx129224%_) - (let* ((_%e129225129238%_ _%stx129224%_) - (_%E129227129242%_ + (lambda (_%stx129330%_) + (let* ((_%e129331129344%_ _%stx129330%_) + (_%E129333129348%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e129225129238%_))) - (_%E129226129274%_ - (lambda () - (if (gx#stx-pair? _%e129225129238%_) - (let ((_%e129228129246%_ - (gx#syntax-e _%e129225129238%_))) - (let ((_%hd129229129249%_ (##car _%e129228129246%_)) - (_%tl129230129251%_ (##cdr _%e129228129246%_))) - (if (gx#stx-pair? _%tl129230129251%_) - (let ((_%e129231129254%_ - (gx#syntax-e _%tl129230129251%_))) - (let ((_%hd129232129257%_ - (##car _%e129231129254%_)) - (_%tl129233129259%_ - (##cdr _%e129231129254%_))) - (let ((_%id129262%_ _%hd129232129257%_)) - (if (gx#stx-pair? _%tl129233129259%_) - (let ((_%e129234129264%_ + _%e129331129344%_))) + (_%E129332129380%_ + (lambda () + (if (gx#stx-pair? _%e129331129344%_) + (let ((_%e129334129352%_ + (gx#syntax-e _%e129331129344%_))) + (let ((_%hd129335129355%_ (##car _%e129334129352%_)) + (_%tl129336129357%_ (##cdr _%e129334129352%_))) + (if (gx#stx-pair? _%tl129336129357%_) + (let ((_%e129337129360%_ + (gx#syntax-e _%tl129336129357%_))) + (let ((_%hd129338129363%_ + (##car _%e129337129360%_)) + (_%tl129339129365%_ + (##cdr _%e129337129360%_))) + (let ((_%id129368%_ _%hd129338129363%_)) + (if (gx#stx-pair? _%tl129339129365%_) + (let ((_%e129340129370%_ (gx#syntax-e - _%tl129233129259%_))) - (let ((_%hd129235129267%_ - (##car _%e129234129264%_)) - (_%tl129236129269%_ - (##cdr _%e129234129264%_))) - (let ((_%expr129272%_ - _%hd129235129267%_)) + _%tl129339129365%_))) + (let ((_%hd129341129373%_ + (##car _%e129340129370%_)) + (_%tl129342129375%_ + (##cdr _%e129340129370%_))) + (let ((_%expr129378%_ + _%hd129341129373%_)) (if (gx#stx-null? - _%tl129236129269%_) + _%tl129342129375%_) (if (gx#identifier? - _%id129262%_) + _%id129368%_) (cons '%#set! (cons (gx#core-compile-top-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id129262%_) - (cons (gx#core-compile-top-syntax _%expr129272%_) + _%id129368%_) + (cons (gx#core-compile-top-syntax _%expr129378%_) '()))) - (_%E129227129242%_)) + (_%E129333129348%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E129227129242%_))))) - (_%E129227129242%_))))) - (_%E129227129242%_)))) - (_%E129227129242%_))))) - (_%E129226129274%_)))) + (_%E129333129348%_))))) + (_%E129333129348%_))))) + (_%E129333129348%_)))) + (_%E129333129348%_))))) + (_%E129332129380%_)))) (define gx#core-compile-top-runtime-ref - (lambda (_%id129218%_) - (let ((_%$e129220%_ (gx#resolve-identifier__0 _%id129218%_))) - (if _%$e129220%_ - (##unchecked-structure-ref _%$e129220%_ '1 '#f '#f) - _%id129218%_)))) + (lambda (_%id129324%_) + (let ((_%$e129326%_ (gx#resolve-identifier__0 _%id129324%_))) + (if _%$e129326%_ + (##unchecked-structure-ref _%$e129326%_ '1 '#f '#f) + _%id129324%_)))) (define gx#core-compile-top-runtime-bind - (lambda (_%hd129216%_) - (if (gx#identifier? _%hd129216%_) - (gx#core-compile-top-runtime-ref _%hd129216%_) + (lambda (_%hd129322%_) + (if (gx#identifier? _%hd129322%_) + (gx#core-compile-top-runtime-ref _%hd129322%_) '#f))))) diff --git a/src/bootstrap/gerbil/expander/core.ssi b/src/bootstrap/gerbil/expander/core.ssi index e863dfe68..ea444bad5 100644 --- a/src/bootstrap/gerbil/expander/core.ssi +++ b/src/bootstrap/gerbil/expander/core.ssi @@ -29,6 +29,9 @@ namespace: gx (%#define-runtime current-expander-compiling? gx#current-expander-compiling?) + (%#define-runtime + current-compilation-target + gx#current-compilation-target) (%#define-runtime expander-context::t gx#expander-context::t) (%#define-runtime expander-context? gx#expander-context?) (%#define-runtime make-expander-context gx#make-expander-context) diff --git a/src/bootstrap/gerbil/expander/core.ssxi.ss b/src/bootstrap/gerbil/expander/core.ssxi.ss index dc9c25065..f74e45297 100644 --- a/src/bootstrap/gerbil/expander/core.ssxi.ss +++ b/src/bootstrap/gerbil/expander/core.ssxi.ss @@ -55,6 +55,11 @@ package: gerbil/expander (optimizer-resolve-class '(typedecl gx#current-expander-compiling?) 'procedure::t)) + (declare-type + gx#current-compilation-target + (optimizer-resolve-class + '(typedecl gx#current-compilation-target) + 'procedure::t)) (declare-class gx#expander-context::t (@class gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/core~0.scm b/src/bootstrap/gerbil/expander/core~0.scm index 9445ce226..8f23f48e0 100644 --- a/src/bootstrap/gerbil/expander/core~0.scm +++ b/src/bootstrap/gerbil/expander/core~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/core::timestamp 1733870074) + (define gerbil/expander/core::timestamp 1734131746) (begin (declare (not safe)) (define gx#current-expander-context (make-parameter '#f)) @@ -14,6 +14,7 @@ (define gx#current-expander-module-prelude (make-parameter '#f)) (define gx#current-expander-allow-rebind? (make-parameter '#f)) (define gx#current-expander-compiling? (make-parameter '#f)) + (define gx#current-compilation-target (make-parameter '#f)) (define gx#expander-context::t (__make-class-type 'gx#expander-context::t @@ -25,8 +26,8 @@ (define gx#expander-context? (__make-class-predicate gx#expander-context::t)) (define gx#make-expander-context - (lambda _%$args121486%_ - (apply make-instance gx#expander-context::t _%$args121486%_))) + (lambda _%$args121592%_ + (apply make-instance gx#expander-context::t _%$args121592%_))) (define gx#expander-context-id (__make-class-slot-accessor gx#expander-context::t 'id)) (define gx#expander-context-table @@ -53,8 +54,8 @@ '#f)) (define gx#root-context? (__make-class-predicate gx#root-context::t)) (define gx#make-root-context - (lambda _%$args121483%_ - (apply make-instance gx#root-context::t _%$args121483%_))) + (lambda _%$args121589%_ + (apply make-instance gx#root-context::t _%$args121589%_))) (define gx#root-context-id (__make-class-slot-accessor gx#root-context::t 'id)) (define gx#root-context-table @@ -81,8 +82,8 @@ '#f)) (define gx#phi-context? (__make-class-predicate gx#phi-context::t)) (define gx#make-phi-context - (lambda _%$args121480%_ - (apply make-instance gx#phi-context::t _%$args121480%_))) + (lambda _%$args121586%_ + (apply make-instance gx#phi-context::t _%$args121586%_))) (define gx#phi-context-super (__make-class-slot-accessor gx#phi-context::t 'super)) (define gx#phi-context-up @@ -133,8 +134,8 @@ '#f)) (define gx#top-context? (__make-class-predicate gx#top-context::t)) (define gx#make-top-context - (lambda _%$args121477%_ - (apply make-instance gx#top-context::t _%$args121477%_))) + (lambda _%$args121583%_ + (apply make-instance gx#top-context::t _%$args121583%_))) (define gx#top-context-super (__make-class-slot-accessor gx#top-context::t 'super)) (define gx#top-context-up @@ -185,8 +186,8 @@ '#f)) (define gx#module-context? (__make-class-predicate gx#module-context::t)) (define gx#make-module-context - (lambda _%$args121474%_ - (apply make-instance gx#module-context::t _%$args121474%_))) + (lambda _%$args121580%_ + (apply make-instance gx#module-context::t _%$args121580%_))) (define gx#module-context-ns (__make-class-slot-accessor gx#module-context::t 'ns)) (define gx#module-context-path @@ -285,8 +286,8 @@ '#f)) (define gx#prelude-context? (__make-class-predicate gx#prelude-context::t)) (define gx#make-prelude-context - (lambda _%$args121471%_ - (apply make-instance gx#prelude-context::t _%$args121471%_))) + (lambda _%$args121577%_ + (apply make-instance gx#prelude-context::t _%$args121577%_))) (define gx#prelude-context-path (__make-class-slot-accessor gx#prelude-context::t 'path)) (define gx#prelude-context-import @@ -361,8 +362,8 @@ '#f)) (define gx#local-context? (__make-class-predicate gx#local-context::t)) (define gx#make-local-context - (lambda _%$args121468%_ - (apply make-instance gx#local-context::t _%$args121468%_))) + (lambda _%$args121574%_ + (apply make-instance gx#local-context::t _%$args121574%_))) (define gx#local-context-super (__make-class-slot-accessor gx#local-context::t 'super)) (define gx#local-context-up @@ -404,97 +405,97 @@ (define gx#&local-context-table-set! (__make-class-slot-unchecked-mutator gx#local-context::t 'table)) (define gx#phi-context:::init!__% - (lambda (_%self118374121439%_ _%id121441%_ _%super121442%_) - (let* ((_%self121444%_ _%self118374121439%_) - (_%self121446%_ _%self121444%_)) - (if (##fx< '3 (##structure-length _%self121446%_)) + (lambda (_%self118480121545%_ _%id121547%_ _%super121548%_) + (let* ((_%self121550%_ _%self118480121545%_) + (_%self121552%_ _%self121550%_)) + (if (##fx< '3 (##structure-length _%self121552%_)) (begin (##unchecked-structure-set! - _%self121446%_ - _%id121441%_ + _%self121552%_ + _%id121547%_ '1 '#f '#f) (##unchecked-structure-set! - _%self121446%_ + _%self121552%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121446%_ - _%super121442%_ + _%self121552%_ + _%super121548%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121446%_ + _%self121552%_ '3 - (##vector-length _%self121446%_)))))) + (##vector-length _%self121552%_)))))) (define gx#phi-context:::init!__0 - (lambda (_%self118374121459%_ _%id121460%_) - (let ((_%super121462%_ (gx#current-expander-context))) + (lambda (_%self118480121565%_ _%id121566%_) + (let ((_%super121568%_ (gx#current-expander-context))) (gx#phi-context:::init!__% - _%self118374121459%_ - _%id121460%_ - _%super121462%_)))) + _%self118480121565%_ + _%id121566%_ + _%super121568%_)))) (define gx#phi-context:::init! - (lambda _g121529_ - (let ((_g121528_ (##length _g121529_))) - (cond ((##fx= _g121528_ 2) - (apply gx#phi-context:::init!__0 _g121529_)) - ((##fx= _g121528_ 3) - (apply gx#phi-context:::init!__% _g121529_)) + (lambda _g121635_ + (let ((_g121634_ (##length _g121635_))) + (cond ((##fx= _g121634_ 2) + (apply gx#phi-context:::init!__0 _g121635_)) + ((##fx= _g121634_ 3) + (apply gx#phi-context:::init!__% _g121635_)) (else (##raise-wrong-number-of-arguments-exception gx#phi-context:::init! - _g121529_)))))) + _g121635_)))))) (__bind-method!__% gx#phi-context::t ':init! gx#phi-context:::init! '#f) (define gx#local-context:::init!__% - (lambda (_%self118375121290%_ _%super121292%_) - (let* ((_%self121294%_ _%self118375121290%_) - (_%self121296%_ _%self121294%_)) - (if (##fx< '3 (##structure-length _%self121296%_)) + (lambda (_%self118481121396%_ _%super121398%_) + (let* ((_%self121400%_ _%self118481121396%_) + (_%self121402%_ _%self121400%_)) + (if (##fx< '3 (##structure-length _%self121402%_)) (begin (##unchecked-structure-set! - _%self121296%_ + _%self121402%_ (##gensym 'L) '1 '#f '#f) (##unchecked-structure-set! - _%self121296%_ + _%self121402%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self121296%_ - _%super121292%_ + _%self121402%_ + _%super121398%_ '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self121296%_ + _%self121402%_ '3 - (##vector-length _%self121296%_)))))) + (##vector-length _%self121402%_)))))) (define gx#local-context:::init!__0 - (lambda (_%self118375121309%_) - (let ((_%super121311%_ (gx#current-expander-context))) - (gx#local-context:::init!__% _%self118375121309%_ _%super121311%_)))) + (lambda (_%self118481121415%_) + (let ((_%super121417%_ (gx#current-expander-context))) + (gx#local-context:::init!__% _%self118481121415%_ _%super121417%_)))) (define gx#local-context:::init! - (lambda _g121531_ - (let ((_g121530_ (##length _g121531_))) - (cond ((##fx= _g121530_ 1) - (apply gx#local-context:::init!__0 _g121531_)) - ((##fx= _g121530_ 2) - (apply gx#local-context:::init!__% _g121531_)) + (lambda _g121637_ + (let ((_g121636_ (##length _g121637_))) + (cond ((##fx= _g121636_ 1) + (apply gx#local-context:::init!__0 _g121637_)) + ((##fx= _g121636_ 2) + (apply gx#local-context:::init!__% _g121637_)) (else (##raise-wrong-number-of-arguments-exception gx#local-context:::init! - _g121531_)))))) + _g121637_)))))) (__bind-method!__% gx#local-context::t ':init! @@ -510,8 +511,8 @@ '#f)) (define gx#binding? (__make-class-predicate gx#binding::t)) (define gx#make-binding - (lambda _%$args121164%_ - (apply make-instance gx#binding::t _%$args121164%_))) + (lambda _%$args121270%_ + (apply make-instance gx#binding::t _%$args121270%_))) (define gx#binding-id (__make-class-slot-accessor gx#binding::t 'id)) (define gx#binding-key (__make-class-slot-accessor gx#binding::t 'key)) (define gx#binding-phi (__make-class-slot-accessor gx#binding::t 'phi)) @@ -540,8 +541,8 @@ '#f)) (define gx#runtime-binding? (__make-class-predicate gx#runtime-binding::t)) (define gx#make-runtime-binding - (lambda _%$args121161%_ - (apply make-instance gx#runtime-binding::t _%$args121161%_))) + (lambda _%$args121267%_ + (apply make-instance gx#runtime-binding::t _%$args121267%_))) (define gx#runtime-binding-id (__make-class-slot-accessor gx#runtime-binding::t 'id)) (define gx#runtime-binding-key @@ -576,8 +577,8 @@ '#f)) (define gx#local-binding? (__make-class-predicate gx#local-binding::t)) (define gx#make-local-binding - (lambda _%$args121158%_ - (apply make-instance gx#local-binding::t _%$args121158%_))) + (lambda _%$args121264%_ + (apply make-instance gx#local-binding::t _%$args121264%_))) (define gx#local-binding-id (__make-class-slot-accessor gx#local-binding::t 'id)) (define gx#local-binding-key @@ -612,8 +613,8 @@ '#f)) (define gx#top-binding? (__make-class-predicate gx#top-binding::t)) (define gx#make-top-binding - (lambda _%$args121155%_ - (apply make-instance gx#top-binding::t _%$args121155%_))) + (lambda _%$args121261%_ + (apply make-instance gx#top-binding::t _%$args121261%_))) (define gx#top-binding-id (__make-class-slot-accessor gx#top-binding::t 'id)) (define gx#top-binding-key @@ -648,8 +649,8 @@ '#f)) (define gx#module-binding? (__make-class-predicate gx#module-binding::t)) (define gx#make-module-binding - (lambda _%$args121152%_ - (apply make-instance gx#module-binding::t _%$args121152%_))) + (lambda _%$args121258%_ + (apply make-instance gx#module-binding::t _%$args121258%_))) (define gx#module-binding-context (__make-class-slot-accessor gx#module-binding::t 'context)) (define gx#module-binding-id @@ -692,8 +693,8 @@ '#f)) (define gx#extern-binding? (__make-class-predicate gx#extern-binding::t)) (define gx#make-extern-binding - (lambda _%$args121149%_ - (apply make-instance gx#extern-binding::t _%$args121149%_))) + (lambda _%$args121255%_ + (apply make-instance gx#extern-binding::t _%$args121255%_))) (define gx#extern-binding-id (__make-class-slot-accessor gx#extern-binding::t 'id)) (define gx#extern-binding-key @@ -729,8 +730,8 @@ '#f)) (define gx#syntax-binding? (__make-class-predicate gx#syntax-binding::t)) (define gx#make-syntax-binding - (lambda _%$args121146%_ - (apply make-instance gx#syntax-binding::t _%$args121146%_))) + (lambda _%$args121252%_ + (apply make-instance gx#syntax-binding::t _%$args121252%_))) (define gx#syntax-binding-e (__make-class-slot-accessor gx#syntax-binding::t 'e)) (define gx#syntax-binding-id @@ -774,8 +775,8 @@ '#f)) (define gx#import-binding? (__make-class-predicate gx#import-binding::t)) (define gx#make-import-binding - (lambda _%$args121143%_ - (apply make-instance gx#import-binding::t _%$args121143%_))) + (lambda _%$args121249%_ + (apply make-instance gx#import-binding::t _%$args121249%_))) (define gx#import-binding-e (__make-class-slot-accessor gx#import-binding::t 'e)) (define gx#import-binding-context @@ -835,8 +836,8 @@ '#f)) (define gx#alias-binding? (__make-class-predicate gx#alias-binding::t)) (define gx#make-alias-binding - (lambda _%$args121140%_ - (apply make-instance gx#alias-binding::t _%$args121140%_))) + (lambda _%$args121246%_ + (apply make-instance gx#alias-binding::t _%$args121246%_))) (define gx#alias-binding-e (__make-class-slot-accessor gx#alias-binding::t 'e)) (define gx#alias-binding-id @@ -879,8 +880,8 @@ '#f)) (define gx#expander? (__make-class-predicate gx#expander::t)) (define gx#make-expander - (lambda _%$args121137%_ - (apply make-instance gx#expander::t _%$args121137%_))) + (lambda _%$args121243%_ + (apply make-instance gx#expander::t _%$args121243%_))) (define gx#expander-e (__make-class-slot-accessor gx#expander::t 'e)) (define gx#expander-e-set! (__make-class-slot-mutator gx#expander::t 'e)) (define gx#&expander-e @@ -897,8 +898,8 @@ '#f)) (define gx#core-expander? (__make-class-predicate gx#core-expander::t)) (define gx#make-core-expander - (lambda _%$args121134%_ - (apply make-instance gx#core-expander::t _%$args121134%_))) + (lambda _%$args121240%_ + (apply make-instance gx#core-expander::t _%$args121240%_))) (define gx#core-expander-id (__make-class-slot-accessor gx#core-expander::t 'id)) (define gx#core-expander-compile-top @@ -933,8 +934,8 @@ '#f)) (define gx#expression-form? (__make-class-predicate gx#expression-form::t)) (define gx#make-expression-form - (lambda _%$args121131%_ - (apply make-instance gx#expression-form::t _%$args121131%_))) + (lambda _%$args121237%_ + (apply make-instance gx#expression-form::t _%$args121237%_))) (define gx#expression-form-id (__make-class-slot-accessor gx#expression-form::t 'id)) (define gx#expression-form-compile-top @@ -971,8 +972,8 @@ '#f)) (define gx#special-form? (__make-class-predicate gx#special-form::t)) (define gx#make-special-form - (lambda _%$args121128%_ - (apply make-instance gx#special-form::t _%$args121128%_))) + (lambda _%$args121234%_ + (apply make-instance gx#special-form::t _%$args121234%_))) (define gx#special-form-id (__make-class-slot-accessor gx#special-form::t 'id)) (define gx#special-form-compile-top @@ -1007,8 +1008,8 @@ '#f)) (define gx#definition-form? (__make-class-predicate gx#definition-form::t)) (define gx#make-definition-form - (lambda _%$args121125%_ - (apply make-instance gx#definition-form::t _%$args121125%_))) + (lambda _%$args121231%_ + (apply make-instance gx#definition-form::t _%$args121231%_))) (define gx#definition-form-id (__make-class-slot-accessor gx#definition-form::t 'id)) (define gx#definition-form-compile-top @@ -1046,8 +1047,8 @@ (define gx#top-special-form? (__make-class-predicate gx#top-special-form::t)) (define gx#make-top-special-form - (lambda _%$args121122%_ - (apply make-instance gx#top-special-form::t _%$args121122%_))) + (lambda _%$args121228%_ + (apply make-instance gx#top-special-form::t _%$args121228%_))) (define gx#top-special-form-id (__make-class-slot-accessor gx#top-special-form::t 'id)) (define gx#top-special-form-compile-top @@ -1087,8 +1088,8 @@ (define gx#module-special-form? (__make-class-predicate gx#module-special-form::t)) (define gx#make-module-special-form - (lambda _%$args121119%_ - (apply make-instance gx#module-special-form::t _%$args121119%_))) + (lambda _%$args121225%_ + (apply make-instance gx#module-special-form::t _%$args121225%_))) (define gx#module-special-form-id (__make-class-slot-accessor gx#module-special-form::t 'id)) (define gx#module-special-form-compile-top @@ -1128,8 +1129,8 @@ (define gx#feature-expander? (__make-class-predicate gx#feature-expander::t)) (define gx#make-feature-expander - (lambda _%$args121116%_ - (apply make-instance gx#feature-expander::t _%$args121116%_))) + (lambda _%$args121222%_ + (apply make-instance gx#feature-expander::t _%$args121222%_))) (define gx#feature-expander-e (__make-class-slot-accessor gx#feature-expander::t 'e)) (define gx#feature-expander-e-set! @@ -1149,8 +1150,8 @@ (define gx#private-feature-expander? (__make-class-predicate gx#private-feature-expander::t)) (define gx#make-private-feature-expander - (lambda _%$args121113%_ - (apply make-instance gx#private-feature-expander::t _%$args121113%_))) + (lambda _%$args121219%_ + (apply make-instance gx#private-feature-expander::t _%$args121219%_))) (define gx#private-feature-expander-e (__make-class-slot-accessor gx#private-feature-expander::t 'e)) (define gx#private-feature-expander-e-set! @@ -1170,8 +1171,8 @@ (define gx#reserved-expander? (__make-class-predicate gx#reserved-expander::t)) (define gx#make-reserved-expander - (lambda _%$args121110%_ - (apply make-instance gx#reserved-expander::t _%$args121110%_))) + (lambda _%$args121216%_ + (apply make-instance gx#reserved-expander::t _%$args121216%_))) (define gx#reserved-expander-e (__make-class-slot-accessor gx#reserved-expander::t 'e)) (define gx#reserved-expander-e-set! @@ -1190,8 +1191,8 @@ '#f)) (define gx#macro-expander? (__make-class-predicate gx#macro-expander::t)) (define gx#make-macro-expander - (lambda _%$args121107%_ - (apply make-instance gx#macro-expander::t _%$args121107%_))) + (lambda _%$args121213%_ + (apply make-instance gx#macro-expander::t _%$args121213%_))) (define gx#macro-expander-e (__make-class-slot-accessor gx#macro-expander::t 'e)) (define gx#macro-expander-e-set! @@ -1211,8 +1212,8 @@ (define gx#rename-macro-expander? (__make-class-predicate gx#rename-macro-expander::t)) (define gx#make-rename-macro-expander - (lambda _%$args121104%_ - (apply make-instance gx#rename-macro-expander::t _%$args121104%_))) + (lambda _%$args121210%_ + (apply make-instance gx#rename-macro-expander::t _%$args121210%_))) (define gx#rename-macro-expander-e (__make-class-slot-accessor gx#rename-macro-expander::t 'e)) (define gx#rename-macro-expander-e-set! @@ -1231,8 +1232,8 @@ '#f)) (define gx#user-expander? (__make-class-predicate gx#user-expander::t)) (define gx#make-user-expander - (lambda _%$args121101%_ - (apply make-instance gx#user-expander::t _%$args121101%_))) + (lambda _%$args121207%_ + (apply make-instance gx#user-expander::t _%$args121207%_))) (define gx#user-expander-context (__make-class-slot-accessor gx#user-expander::t 'context)) (define gx#user-expander-phi @@ -1267,8 +1268,8 @@ '#f)) (define gx#expander-mark? (__make-class-predicate gx#expander-mark::t)) (define gx#make-expander-mark - (lambda _%$args121098%_ - (apply make-instance gx#expander-mark::t _%$args121098%_))) + (lambda _%$args121204%_ + (apply make-instance gx#expander-mark::t _%$args121204%_))) (define gx#expander-mark-subst (__make-class-slot-accessor gx#expander-mark::t 'subst)) (define gx#expander-mark-context @@ -1302,985 +1303,985 @@ (define gx#&expander-mark-trace-set! (__make-class-slot-unchecked-mutator gx#expander-mark::t 'trace)) (define gx#raise-syntax-error - (lambda (_%ctx121082%_ - _%message121083%_ - _%stx121084%_ + (lambda (_%ctx121188%_ + _%message121189%_ + _%stx121190%_ . - _%details121085%_) - (let ((_%ctx121096%_ - (let ((_%$e121087%_ _%ctx121082%_)) - (if _%$e121087%_ - _%$e121087%_ - (let ((_%$e121090%_ (gx#core-context-top__0))) - (if _%$e121090%_ - ((lambda (_%ctx121093%_) + _%details121191%_) + (let ((_%ctx121202%_ + (let ((_%$e121193%_ _%ctx121188%_)) + (if _%$e121193%_ + _%$e121193%_ + (let ((_%$e121196%_ (gx#core-context-top__0))) + (if _%$e121196%_ + ((lambda (_%ctx121199%_) (cons 'expand (cons (##structure-ref - _%ctx121093%_ + _%ctx121199%_ '1 gx#expander-context::t '#f) '()))) - _%$e121090%_) + _%$e121196%_) '#f)))))) (raise (make-syntax-error - _%message121083%_ - (cons _%stx121084%_ _%details121085%_) - _%ctx121096%_ + _%message121189%_ + (cons _%stx121190%_ _%details121191%_) + _%ctx121202%_ (gx#current-expander-context) (gx#current-expander-marks) (gx#current-expander-phi)))))) (define gx#eval-syntax__% - (lambda (_%stx121069%_ _%expression?121070%_) + (lambda (_%stx121175%_ _%expression?121176%_) (gx#eval-syntax* - (gx#core-expand__% _%stx121069%_ _%expression?121070%_)))) + (gx#core-expand__% _%stx121175%_ _%expression?121176%_)))) (define gx#eval-syntax__0 - (lambda (_%stx121075%_) - (let ((_%expression?121077%_ '#f)) - (gx#eval-syntax__% _%stx121075%_ _%expression?121077%_)))) + (lambda (_%stx121181%_) + (let ((_%expression?121183%_ '#f)) + (gx#eval-syntax__% _%stx121181%_ _%expression?121183%_)))) (define gx#eval-syntax - (lambda _g121533_ - (let ((_g121532_ (##length _g121533_))) - (cond ((##fx= _g121532_ 1) (apply gx#eval-syntax__0 _g121533_)) - ((##fx= _g121532_ 2) (apply gx#eval-syntax__% _g121533_)) + (lambda _g121639_ + (let ((_g121638_ (##length _g121639_))) + (cond ((##fx= _g121638_ 1) (apply gx#eval-syntax__0 _g121639_)) + ((##fx= _g121638_ 2) (apply gx#eval-syntax__% _g121639_)) (else (##raise-wrong-number-of-arguments-exception gx#eval-syntax - _g121533_)))))) + _g121639_)))))) (define gx#eval-syntax* - (lambda (_%stx121066%_) + (lambda (_%stx121172%_) ((gx#current-expander-eval) - ((gx#current-expander-compile) _%stx121066%_)))) + ((gx#current-expander-compile) _%stx121172%_)))) (define gx#core-expand__% - (lambda (_%stx121053%_ _%expression?121054%_) - (if _%expression?121054%_ - (gx#core-expand-expression _%stx121053%_) - (gx#core-expand-top _%stx121053%_)))) + (lambda (_%stx121159%_ _%expression?121160%_) + (if _%expression?121160%_ + (gx#core-expand-expression _%stx121159%_) + (gx#core-expand-top _%stx121159%_)))) (define gx#core-expand__0 - (lambda (_%stx121059%_) - (let ((_%expression?121061%_ '#f)) - (gx#core-expand__% _%stx121059%_ _%expression?121061%_)))) + (lambda (_%stx121165%_) + (let ((_%expression?121167%_ '#f)) + (gx#core-expand__% _%stx121165%_ _%expression?121167%_)))) (define gx#core-expand - (lambda _g121535_ - (let ((_g121534_ (##length _g121535_))) - (cond ((##fx= _g121534_ 1) (apply gx#core-expand__0 _g121535_)) - ((##fx= _g121534_ 2) (apply gx#core-expand__% _g121535_)) + (lambda _g121641_ + (let ((_g121640_ (##length _g121641_))) + (cond ((##fx= _g121640_ 1) (apply gx#core-expand__0 _g121641_)) + ((##fx= _g121640_ 2) (apply gx#core-expand__% _g121641_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand - _g121535_)))))) + _g121641_)))))) (define gx#core-expand-top - (lambda (_%stx121020%_) - (let* ((_%stx121022%_ (gx#core-expand*__0 _%stx121020%_)) - (_%e121023121030%_ _%stx121022%_) - (_%E121025121034%_ - (lambda () (gx#core-expand-expression _%stx121022%_))) - (_%E121024121048%_ + (lambda (_%stx121126%_) + (let* ((_%stx121128%_ (gx#core-expand*__0 _%stx121126%_)) + (_%e121129121136%_ _%stx121128%_) + (_%E121131121140%_ + (lambda () (gx#core-expand-expression _%stx121128%_))) + (_%E121130121154%_ (lambda () - (if (gx#stx-pair? _%e121023121030%_) - (let ((_%e121026121038%_ - (gx#syntax-e _%e121023121030%_))) - (let ((_%hd121027121041%_ (##car _%e121026121038%_)) - (_%tl121028121043%_ (##cdr _%e121026121038%_))) - (let ((_%form121046%_ _%hd121027121041%_)) - (if (gx#core-bound-identifier?__0 _%form121046%_) - _%stx121022%_ - (_%E121025121034%_))))) - (_%E121025121034%_))))) - (_%E121024121048%_)))) + (if (gx#stx-pair? _%e121129121136%_) + (let ((_%e121132121144%_ + (gx#syntax-e _%e121129121136%_))) + (let ((_%hd121133121147%_ (##car _%e121132121144%_)) + (_%tl121134121149%_ (##cdr _%e121132121144%_))) + (let ((_%form121152%_ _%hd121133121147%_)) + (if (gx#core-bound-identifier?__0 _%form121152%_) + _%stx121128%_ + (_%E121131121140%_))))) + (_%E121131121140%_))))) + (_%E121130121154%_)))) (define gx#core-expand-expression - (lambda (_%stx120952%_) - (letrec ((_%sealed-expression?120954%_ - (lambda (_%hd120990%_) - (if (gx#sealed-syntax? _%hd120990%_) - (let* ((_%e120991120998%_ _%hd120990%_) - (_%E120993121002%_ (lambda () '#f)) - (_%E120992121016%_ + (lambda (_%stx121058%_) + (letrec ((_%sealed-expression?121060%_ + (lambda (_%hd121096%_) + (if (gx#sealed-syntax? _%hd121096%_) + (let* ((_%e121097121104%_ _%hd121096%_) + (_%E121099121108%_ (lambda () '#f)) + (_%E121098121122%_ (lambda () - (if (gx#stx-pair? _%e120991120998%_) - (let ((_%e120994121006%_ - (gx#syntax-e _%e120991120998%_))) - (let ((_%hd120995121009%_ - (##car _%e120994121006%_)) - (_%tl120996121011%_ - (##cdr _%e120994121006%_))) - (let ((_%form121014%_ - _%hd120995121009%_)) + (if (gx#stx-pair? _%e121097121104%_) + (let ((_%e121100121112%_ + (gx#syntax-e _%e121097121104%_))) + (let ((_%hd121101121115%_ + (##car _%e121100121112%_)) + (_%tl121102121117%_ + (##cdr _%e121100121112%_))) + (let ((_%form121120%_ + _%hd121101121115%_)) (gx#core-bound-identifier?__% - _%form121014%_ + _%form121120%_ gx#expression-form-binding?)))) - (_%E120993121002%_))))) - (_%E120992121016%_)) + (_%E121099121108%_))))) + (_%E121098121122%_)) '#f))) - (_%illegal-expression120955%_ - (lambda (_%hd120987%_ . _%_120988%_) + (_%illegal-expression121061%_ + (lambda (_%hd121093%_ . _%_121094%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal expression" - _%stx120952%_ - _%hd120987%_))) - (_%expand-e120956%_ - (lambda (_%form120979%_ _%hd120980%_) - (let ((_%bind120982%_ + _%stx121058%_ + _%hd121093%_))) + (_%expand-e121062%_ + (lambda (_%form121085%_ _%hd121086%_) + (let ((_%bind121088%_ (if (##structure-instance-of? - _%form120979%_ + _%form121085%_ 'gx#binding::t) - _%form120979%_ - (gx#resolve-identifier__0 _%form120979%_)))) - (if (gx#core-expander-binding? _%bind120982%_) + _%form121085%_ + (gx#resolve-identifier__0 _%form121085%_)))) + (if (gx#core-expander-binding? _%bind121088%_) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120982%_ + _%bind121088%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120980%_ - (gx#stx-source _%stx120952%_))) + _%hd121086%_ + (gx#stx-source _%stx121058%_))) (if (##structure-direct-instance-of? - _%bind120982%_ + _%bind121088%_ 'gx#syntax-binding::t) (gx#core-expand-expression (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120982%_ + _%bind121088%_ '4 '#f '#f) (gx#stx-wrap-source - _%hd120980%_ - (gx#stx-source _%stx120952%_)))) + _%hd121086%_ + (gx#stx-source _%stx121058%_)))) (gx#raise-syntax-error '#f '"Bad syntax; missing expander" - _%stx120952%_ - _%form120979%_))))))) - (let ((_%hd120958%_ (gx#core-expand-head _%stx120952%_))) - (if (_%sealed-expression?120954%_ _%hd120958%_) - _%hd120958%_ - (if (gx#stx-pair? _%hd120958%_) - (let* ((_%form120962%_ (gx#stx-car _%hd120958%_)) - (_%bind120964%_ - (if (gx#identifier? _%form120962%_) - (gx#resolve-identifier__0 _%form120962%_) + _%stx121058%_ + _%form121085%_))))))) + (let ((_%hd121064%_ (gx#core-expand-head _%stx121058%_))) + (if (_%sealed-expression?121060%_ _%hd121064%_) + _%hd121064%_ + (if (gx#stx-pair? _%hd121064%_) + (let* ((_%form121068%_ (gx#stx-car _%hd121064%_)) + (_%bind121070%_ + (if (gx#identifier? _%form121068%_) + (gx#resolve-identifier__0 _%form121068%_) '#f))) - (if (or (not _%bind120964%_) - (not (gx#core-expander-binding? _%bind120964%_))) - (_%expand-e120956%_ + (if (or (not _%bind121070%_) + (not (gx#core-expander-binding? _%bind121070%_))) + (_%expand-e121062%_ '%%app - (cons '%%app _%hd120958%_)) + (cons '%%app _%hd121064%_)) (if (eq? (##unchecked-structure-ref - _%bind120964%_ + _%bind121070%_ '1 '#f '#f) '%#begin) (gx#core-expand-block* - _%hd120958%_ - _%illegal-expression120955%_) - (if (gx#expression-form-binding? _%bind120964%_) - (_%expand-e120956%_ - _%bind120964%_ - _%hd120958%_) + _%hd121064%_ + _%illegal-expression121061%_) + (if (gx#expression-form-binding? _%bind121070%_) + (_%expand-e121062%_ + _%bind121070%_ + _%hd121064%_) (if (gx#direct-special-form-binding? - _%bind120964%_) + _%bind121070%_) (gx#core-expand-expression - (_%expand-e120956%_ - _%bind120964%_ - _%hd120958%_)) - (_%illegal-expression120955%_ - _%hd120958%_)))))) - (if (gx#core-bound-identifier?__0 _%hd120958%_) - (_%illegal-expression120955%_ _%hd120958%_) - (if (gx#identifier? _%hd120958%_) - (_%expand-e120956%_ + (_%expand-e121062%_ + _%bind121070%_ + _%hd121064%_)) + (_%illegal-expression121061%_ + _%hd121064%_)))))) + (if (gx#core-bound-identifier?__0 _%hd121064%_) + (_%illegal-expression121061%_ _%hd121064%_) + (if (gx#identifier? _%hd121064%_) + (_%expand-e121062%_ '%%ref - (cons '%%ref (cons _%hd120958%_ '()))) - (if (gx#stx-datum? _%hd120958%_) - (_%expand-e120956%_ + (cons '%%ref (cons _%hd121064%_ '()))) + (if (gx#stx-datum? _%hd121064%_) + (_%expand-e121062%_ '%#quote - (cons '%#quote (cons _%hd120958%_ '()))) - (_%illegal-expression120955%_ - _%hd120958%_)))))))))) + (cons '%#quote (cons _%hd121064%_ '()))) + (_%illegal-expression121061%_ + _%hd121064%_)))))))))) (define gx#core-expand-expression+1 - (lambda (_%stx120947%_) + (lambda (_%stx121053%_) (__call-with-parameters (lambda () - (let ((_%stx120950%_ (gx#core-expand-expression _%stx120947%_))) - (values _%stx120950%_ (gx#eval-syntax* _%stx120950%_)))) + (let ((_%stx121056%_ (gx#core-expand-expression _%stx121053%_))) + (values _%stx121056%_ (gx#eval-syntax* _%stx121056%_)))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)))) (define gx#core-expand*__% - (lambda (_%stx120928%_ _%stop?120929%_) - (let _%lp120931%_ ((_%stx120933%_ _%stx120928%_)) - (if (_%stop?120929%_ _%stx120933%_) - _%stx120933%_ - (let ((_%rstx120935%_ (gx#core-expand1 _%stx120933%_))) - (if (eq? _%stx120933%_ _%rstx120935%_) - _%stx120933%_ - (_%lp120931%_ _%rstx120935%_))))))) + (lambda (_%stx121034%_ _%stop?121035%_) + (let _%lp121037%_ ((_%stx121039%_ _%stx121034%_)) + (if (_%stop?121035%_ _%stx121039%_) + _%stx121039%_ + (let ((_%rstx121041%_ (gx#core-expand1 _%stx121039%_))) + (if (eq? _%stx121039%_ _%rstx121041%_) + _%stx121039%_ + (_%lp121037%_ _%rstx121041%_))))))) (define gx#core-expand*__0 - (lambda (_%stx120940%_) - (let ((_%stop?120942%_ false)) - (gx#core-expand*__% _%stx120940%_ _%stop?120942%_)))) + (lambda (_%stx121046%_) + (let ((_%stop?121048%_ false)) + (gx#core-expand*__% _%stx121046%_ _%stop?121048%_)))) (define gx#core-expand* - (lambda _g121537_ - (let ((_g121536_ (##length _g121537_))) - (cond ((##fx= _g121536_ 1) (apply gx#core-expand*__0 _g121537_)) - ((##fx= _g121536_ 2) (apply gx#core-expand*__% _g121537_)) + (lambda _g121643_ + (let ((_g121642_ (##length _g121643_))) + (cond ((##fx= _g121642_ 1) (apply gx#core-expand*__0 _g121643_)) + ((##fx= _g121642_ 2) (apply gx#core-expand*__% _g121643_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand* - _g121537_)))))) + _g121643_)))))) (define gx#core-expand1 - (lambda (_%stx120880%_) - (letrec ((_%step120882%_ - (lambda (_%hd120919%_) - (let ((_%bind120921%_ - (gx#resolve-identifier__0 _%hd120919%_))) + (lambda (_%stx120986%_) + (letrec ((_%step120988%_ + (lambda (_%hd121025%_) + (let ((_%bind121027%_ + (gx#resolve-identifier__0 _%hd121025%_))) (if (##structure-instance-of? - _%bind120921%_ + _%bind121027%_ 'gx#runtime-binding::t) - _%stx120880%_ + _%stx120986%_ (if (##structure-direct-instance-of? - _%bind120921%_ + _%bind121027%_ 'gx#syntax-binding::t) (gx#core-apply-expander__0 (##unchecked-structure-ref - _%bind120921%_ + _%bind121027%_ '4 '#f '#f) - _%stx120880%_) - (if (not _%bind120921%_) - _%stx120880%_ + _%stx120986%_) + (if (not _%bind121027%_) + _%stx120986%_ (gx#raise-syntax-error '#f '"Bad syntax; no binding for head" - _%stx120880%_)))))))) - (let* ((_%e120883120891%_ _%stx120880%_) - (_%E120889120895%_ (lambda () _%stx120880%_)) - (_%E120885120901%_ + _%stx120986%_)))))))) + (let* ((_%e120989120997%_ _%stx120986%_) + (_%E120995121001%_ (lambda () _%stx120986%_)) + (_%E120991121007%_ (lambda () - (let ((_%hd120899%_ _%e120883120891%_)) - (if (gx#identifier? _%hd120899%_) - (_%step120882%_ _%hd120899%_) - (_%E120889120895%_))))) - (_%E120884120915%_ + (let ((_%hd121005%_ _%e120989120997%_)) + (if (gx#identifier? _%hd121005%_) + (_%step120988%_ _%hd121005%_) + (_%E120995121001%_))))) + (_%E120990121021%_ (lambda () - (if (gx#stx-pair? _%e120883120891%_) - (let ((_%e120886120905%_ - (gx#syntax-e _%e120883120891%_))) - (let ((_%hd120887120908%_ (##car _%e120886120905%_)) - (_%tl120888120910%_ (##cdr _%e120886120905%_))) - (let ((_%hd120913%_ _%hd120887120908%_)) - (if (gx#identifier? _%hd120913%_) - (_%step120882%_ _%hd120913%_) - (_%E120885120901%_))))) - (_%E120885120901%_))))) - (_%E120884120915%_))))) + (if (gx#stx-pair? _%e120989120997%_) + (let ((_%e120992121011%_ + (gx#syntax-e _%e120989120997%_))) + (let ((_%hd120993121014%_ (##car _%e120992121011%_)) + (_%tl120994121016%_ (##cdr _%e120992121011%_))) + (let ((_%hd121019%_ _%hd120993121014%_)) + (if (gx#identifier? _%hd121019%_) + (_%step120988%_ _%hd121019%_) + (_%E120991121007%_))))) + (_%E120991121007%_))))) + (_%E120990121021%_))))) (define gx#core-expand-head - (lambda (_%stx120846%_) - (letrec ((_%stop?120848%_ - (lambda (_%stx120850%_) - (let* ((_%e120851120858%_ _%stx120850%_) - (_%E120853120862%_ (lambda () '#f)) - (_%E120852120876%_ + (lambda (_%stx120952%_) + (letrec ((_%stop?120954%_ + (lambda (_%stx120956%_) + (let* ((_%e120957120964%_ _%stx120956%_) + (_%E120959120968%_ (lambda () '#f)) + (_%E120958120982%_ (lambda () - (if (gx#stx-pair? _%e120851120858%_) - (let ((_%e120854120866%_ - (gx#syntax-e _%e120851120858%_))) - (let ((_%hd120855120869%_ - (##car _%e120854120866%_)) - (_%tl120856120871%_ - (##cdr _%e120854120866%_))) - (let ((_%hd120874%_ _%hd120855120869%_)) + (if (gx#stx-pair? _%e120957120964%_) + (let ((_%e120960120972%_ + (gx#syntax-e _%e120957120964%_))) + (let ((_%hd120961120975%_ + (##car _%e120960120972%_)) + (_%tl120962120977%_ + (##cdr _%e120960120972%_))) + (let ((_%hd120980%_ _%hd120961120975%_)) (gx#core-bound-identifier?__0 - _%hd120874%_)))) - (_%E120853120862%_))))) - (_%E120852120876%_))))) - (gx#core-expand*__% _%stx120846%_ _%stop?120848%_)))) + _%hd120980%_)))) + (_%E120959120968%_))))) + (_%E120958120982%_))))) + (gx#core-expand*__% _%stx120952%_ _%stop?120954%_)))) (define gx#core-expand-block__% - (lambda (_%stx120652%_ - _%expand-special120653%_ - _%begin-form120654%_ - _%expand-e120655%_) - (letrec ((_%expand-splice120657%_ - (lambda (_%hd120820%_ - _%body120821%_ - _%rest120822%_ - _%r120823%_) - (if (gx#stx-list? _%body120821%_) - (_%K120661%_ - (gx#stx-foldr cons _%rest120822%_ _%body120821%_) - _%r120823%_) + (lambda (_%stx120758%_ + _%expand-special120759%_ + _%begin-form120760%_ + _%expand-e120761%_) + (letrec ((_%expand-splice120763%_ + (lambda (_%hd120926%_ + _%body120927%_ + _%rest120928%_ + _%r120929%_) + (if (gx#stx-list? _%body120927%_) + (_%K120767%_ + (gx#stx-foldr cons _%rest120928%_ _%body120927%_) + _%r120929%_) (gx#raise-syntax-error '#f '"Bad syntax; splice body isn't a list" - _%stx120652%_ - _%hd120820%_)))) - (_%expand-cond-expand120658%_ - (lambda (_%hd120816%_ _%rest120817%_ _%r120818%_) - (_%K120661%_ - (cons (gx#core-expand-cond-expand% _%hd120816%_) - _%rest120817%_) - _%r120818%_))) - (_%expand-include120659%_ - (lambda (_%hd120765%_ _%rest120766%_ _%r120767%_) - (let* ((_%e120768120778%_ _%hd120765%_) - (_%E120770120782%_ + _%stx120758%_ + _%hd120926%_)))) + (_%expand-cond-expand120764%_ + (lambda (_%hd120922%_ _%rest120923%_ _%r120924%_) + (_%K120767%_ + (cons (gx#core-expand-cond-expand% _%hd120922%_) + _%rest120923%_) + _%r120924%_))) + (_%expand-include120765%_ + (lambda (_%hd120871%_ _%rest120872%_ _%r120873%_) + (let* ((_%e120874120884%_ _%hd120871%_) + (_%E120876120888%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120768120778%_))) - (_%E120769120812%_ + _%e120874120884%_))) + (_%E120875120918%_ (lambda () - (if (gx#stx-pair? _%e120768120778%_) - (let ((_%e120771120786%_ - (gx#syntax-e _%e120768120778%_))) - (let ((_%hd120772120789%_ - (##car _%e120771120786%_)) - (_%tl120773120791%_ - (##cdr _%e120771120786%_))) - (if (gx#stx-pair? _%tl120773120791%_) - (let ((_%e120774120794%_ + (if (gx#stx-pair? _%e120874120884%_) + (let ((_%e120877120892%_ + (gx#syntax-e _%e120874120884%_))) + (let ((_%hd120878120895%_ + (##car _%e120877120892%_)) + (_%tl120879120897%_ + (##cdr _%e120877120892%_))) + (if (gx#stx-pair? _%tl120879120897%_) + (let ((_%e120880120900%_ (gx#syntax-e - _%tl120773120791%_))) - (let ((_%hd120775120797%_ - (##car _%e120774120794%_)) - (_%tl120776120799%_ - (##cdr _%e120774120794%_))) - (let ((_%path120802%_ - _%hd120775120797%_)) + _%tl120879120897%_))) + (let ((_%hd120881120903%_ + (##car _%e120880120900%_)) + (_%tl120882120905%_ + (##cdr _%e120880120900%_))) + (let ((_%path120908%_ + _%hd120881120903%_)) (if (gx#stx-null? - _%tl120776120799%_) + _%tl120882120905%_) (if (gx#stx-string? - _%path120802%_) - (let* ((_%rpath120804%_ + _%path120908%_) + (let* ((_%rpath120910%_ (gx#core-resolve-path__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%path120802%_ - (gx#stx-source _%hd120765%_))) - (_%block120806%_ + _%path120908%_ + (gx#stx-source _%hd120871%_))) + (_%block120912%_ (gx#core-expand-include%__% - _%hd120765%_ - _%rpath120804%_)) - (_%rbody120809%_ + _%hd120871%_ + _%rpath120910%_)) + (_%rbody120915%_ (__call-with-parameters (lambda () (gx#core-expand-block__% - _%block120806%_ - _%expand-special120653%_ + _%block120912%_ + _%expand-special120759%_ '#f - _%expand-e120655%_)) + _%expand-e120761%_)) gx#current-expander-path - (cons _%rpath120804%_ (gx#current-expander-path))))) - (_%K120661%_ - _%rest120766%_ - (__foldr1 cons _%r120767%_ _%rbody120809%_))) - (_%E120770120782%_)) + (cons _%rpath120910%_ (gx#current-expander-path))))) + (_%K120767%_ + _%rest120872%_ + (__foldr1 cons _%r120873%_ _%rbody120915%_))) + (_%E120876120888%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120770120782%_))))) - (_%E120770120782%_)))) - (_%E120770120782%_))))) - (_%E120769120812%_)))) - (_%expand-expression120660%_ - (lambda (_%hd120761%_ _%rest120762%_ _%r120763%_) - (_%K120661%_ - _%rest120762%_ - (cons (_%expand-e120655%_ _%hd120761%_) _%r120763%_)))) - (_%K120661%_ - (lambda (_%rest120691%_ _%r120692%_) - (let* ((_%e120693120700%_ _%rest120691%_) - (_%E120695120704%_ + (_%E120876120888%_))))) + (_%E120876120888%_)))) + (_%E120876120888%_))))) + (_%E120875120918%_)))) + (_%expand-expression120766%_ + (lambda (_%hd120867%_ _%rest120868%_ _%r120869%_) + (_%K120767%_ + _%rest120868%_ + (cons (_%expand-e120761%_ _%hd120867%_) _%r120869%_)))) + (_%K120767%_ + (lambda (_%rest120797%_ _%r120798%_) + (let* ((_%e120799120806%_ _%rest120797%_) + (_%E120801120810%_ (lambda () - (if _%begin-form120654%_ + (if _%begin-form120760%_ (gx#core-quote-syntax__1 (gx#core-cons - _%begin-form120654%_ - (reverse _%r120692%_)) - (gx#stx-source _%stx120652%_)) - _%r120692%_))) - (_%E120694120757%_ + _%begin-form120760%_ + (reverse _%r120798%_)) + (gx#stx-source _%stx120758%_)) + _%r120798%_))) + (_%E120800120863%_ (lambda () - (if (gx#stx-pair? _%e120693120700%_) - (let ((_%e120696120708%_ - (gx#syntax-e _%e120693120700%_))) - (let ((_%hd120697120711%_ - (##car _%e120696120708%_)) - (_%tl120698120713%_ - (##cdr _%e120696120708%_))) - (let* ((_%hd120716%_ _%hd120697120711%_) - (_%rest120718%_ - _%tl120698120713%_) - (_%hd120720%_ + (if (gx#stx-pair? _%e120799120806%_) + (let ((_%e120802120814%_ + (gx#syntax-e _%e120799120806%_))) + (let ((_%hd120803120817%_ + (##car _%e120802120814%_)) + (_%tl120804120819%_ + (##cdr _%e120802120814%_))) + (let* ((_%hd120822%_ _%hd120803120817%_) + (_%rest120824%_ + _%tl120804120819%_) + (_%hd120826%_ (gx#core-expand-head - _%hd120716%_)) - (_%e120721120728%_ _%hd120720%_) - (_%E120723120732%_ + _%hd120822%_)) + (_%e120827120834%_ _%hd120826%_) + (_%E120829120838%_ (lambda () - (_%expand-expression120660%_ - _%hd120720%_ - _%rest120718%_ - _%r120692%_))) - (_%E120722120753%_ + (_%expand-expression120766%_ + _%hd120826%_ + _%rest120824%_ + _%r120798%_))) + (_%E120828120859%_ (lambda () (if (gx#stx-pair? - _%e120721120728%_) - (let ((_%e120724120736%_ + _%e120827120834%_) + (let ((_%e120830120842%_ (gx#syntax-e - _%e120721120728%_))) - (let ((_%hd120725120739%_ - (##car _%e120724120736%_)) - (_%tl120726120741%_ - (##cdr _%e120724120736%_))) - (let* ((_%form120744%_ - _%hd120725120739%_) - (_%body120746%_ - _%tl120726120741%_) - (_%bind120748%_ + _%e120827120834%_))) + (let ((_%hd120831120845%_ + (##car _%e120830120842%_)) + (_%tl120832120847%_ + (##cdr _%e120830120842%_))) + (let* ((_%form120850%_ + _%hd120831120845%_) + (_%body120852%_ + _%tl120832120847%_) + (_%bind120854%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%form120744%_) - (gx#resolve-identifier__0 _%form120744%_) + _%form120850%_) + (gx#resolve-identifier__0 _%form120850%_) '#f))) - (if (gx#special-form-binding? _%bind120748%_) - (let ((_%$e120750%_ + (if (gx#special-form-binding? _%bind120854%_) + (let ((_%$e120856%_ (##unchecked-structure-ref - _%bind120748%_ + _%bind120854%_ '1 '#f '#f))) - (if (eq? '%#begin _%$e120750%_) - (_%expand-splice120657%_ - _%hd120720%_ - _%body120746%_ - _%rest120718%_ - _%r120692%_) - (if (eq? '%#cond-expand _%$e120750%_) - (_%expand-cond-expand120658%_ - _%hd120720%_ - _%rest120718%_ - _%r120692%_) - (if (eq? '%#include _%$e120750%_) - (_%expand-include120659%_ - _%hd120720%_ - _%rest120718%_ - _%r120692%_) - (_%expand-special120653%_ - _%hd120720%_ - _%K120661%_ - _%rest120718%_ - _%r120692%_))))) - (_%expand-expression120660%_ - _%hd120720%_ - _%rest120718%_ - _%r120692%_))))) + (if (eq? '%#begin _%$e120856%_) + (_%expand-splice120763%_ + _%hd120826%_ + _%body120852%_ + _%rest120824%_ + _%r120798%_) + (if (eq? '%#cond-expand _%$e120856%_) + (_%expand-cond-expand120764%_ + _%hd120826%_ + _%rest120824%_ + _%r120798%_) + (if (eq? '%#include _%$e120856%_) + (_%expand-include120765%_ + _%hd120826%_ + _%rest120824%_ + _%r120798%_) + (_%expand-special120759%_ + _%hd120826%_ + _%K120767%_ + _%rest120824%_ + _%r120798%_))))) + (_%expand-expression120766%_ + _%hd120826%_ + _%rest120824%_ + _%r120798%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120723120732%_))))) - (_%E120722120753%_)))) - (_%E120695120704%_))))) - (_%E120694120757%_))))) - (let* ((_%e120662120669%_ _%stx120652%_) - (_%E120664120673%_ + (_%E120829120838%_))))) + (_%E120828120859%_)))) + (_%E120801120810%_))))) + (_%E120800120863%_))))) + (let* ((_%e120768120775%_ _%stx120758%_) + (_%E120770120779%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120662120669%_))) - (_%E120663120687%_ + _%e120768120775%_))) + (_%E120769120793%_ (lambda () - (if (gx#stx-pair? _%e120662120669%_) - (let ((_%e120665120677%_ - (gx#syntax-e _%e120662120669%_))) - (let ((_%hd120666120680%_ (##car _%e120665120677%_)) - (_%tl120667120682%_ (##cdr _%e120665120677%_))) - (let ((_%body120685%_ _%tl120667120682%_)) - (if (gx#stx-list? _%body120685%_) - (_%K120661%_ _%body120685%_ '()) - (_%E120664120673%_))))) - (_%E120664120673%_))))) - (_%E120663120687%_))))) + (if (gx#stx-pair? _%e120768120775%_) + (let ((_%e120771120783%_ + (gx#syntax-e _%e120768120775%_))) + (let ((_%hd120772120786%_ (##car _%e120771120783%_)) + (_%tl120773120788%_ (##cdr _%e120771120783%_))) + (let ((_%body120791%_ _%tl120773120788%_)) + (if (gx#stx-list? _%body120791%_) + (_%K120767%_ _%body120791%_ '()) + (_%E120770120779%_))))) + (_%E120770120779%_))))) + (_%E120769120793%_))))) (define gx#core-expand-block__0 - (lambda (_%stx120828%_ _%expand-special120829%_) - (let* ((_%begin-form120831%_ '%#begin) - (_%expand-e120833%_ gx#core-expand-expression)) + (lambda (_%stx120934%_ _%expand-special120935%_) + (let* ((_%begin-form120937%_ '%#begin) + (_%expand-e120939%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120828%_ - _%expand-special120829%_ - _%begin-form120831%_ - _%expand-e120833%_)))) + _%stx120934%_ + _%expand-special120935%_ + _%begin-form120937%_ + _%expand-e120939%_)))) (define gx#core-expand-block__1 - (lambda (_%stx120835%_ _%expand-special120836%_ _%begin-form120837%_) - (let ((_%expand-e120839%_ gx#core-expand-expression)) + (lambda (_%stx120941%_ _%expand-special120942%_ _%begin-form120943%_) + (let ((_%expand-e120945%_ gx#core-expand-expression)) (gx#core-expand-block__% - _%stx120835%_ - _%expand-special120836%_ - _%begin-form120837%_ - _%expand-e120839%_)))) + _%stx120941%_ + _%expand-special120942%_ + _%begin-form120943%_ + _%expand-e120945%_)))) (define gx#core-expand-block - (lambda _g121539_ - (let ((_g121538_ (##length _g121539_))) - (cond ((##fx= _g121538_ 2) (apply gx#core-expand-block__0 _g121539_)) - ((##fx= _g121538_ 3) (apply gx#core-expand-block__1 _g121539_)) - ((##fx= _g121538_ 4) (apply gx#core-expand-block__% _g121539_)) + (lambda _g121645_ + (let ((_g121644_ (##length _g121645_))) + (cond ((##fx= _g121644_ 2) (apply gx#core-expand-block__0 _g121645_)) + ((##fx= _g121644_ 3) (apply gx#core-expand-block__1 _g121645_)) + ((##fx= _g121644_ 4) (apply gx#core-expand-block__% _g121645_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-block - _g121539_)))))) + _g121645_)))))) (define gx#core-expand-block* - (lambda (_%stx120600%_ _%expand-special120601%_) - (let* ((_%g120602120613%_ + (lambda (_%stx120706%_ _%expand-special120707%_) + (let* ((_%g120708120719%_ (gx#core-expand-block__1 - _%stx120600%_ - _%expand-special120601%_ + _%stx120706%_ + _%expand-special120707%_ '#f)) - (_%E120606120617%_ + (_%E120712120723%_ (lambda () (error '"No clause matching" - _%g120602120613%_ + _%g120708120719%_ '([]) '([expr]) '(body)) '#!void))) - (let ((_%K120611120648%_ + (let ((_%K120717120754%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty block" - _%stx120600%_))) - (_%K120608120634%_ (lambda (_%expr120632%_) _%expr120632%_)) - (_%K120607120623%_ - (lambda (_%body120621%_) + _%stx120706%_))) + (_%K120714120740%_ (lambda (_%expr120738%_) _%expr120738%_)) + (_%K120713120729%_ + (lambda (_%body120727%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin (reverse _%body120621%_)) - (gx#stx-source _%stx120600%_))))) - (let ((_%try-match120604120644%_ + (gx#core-cons '%#begin (reverse _%body120727%_)) + (gx#stx-source _%stx120706%_))))) + (let ((_%try-match120710120750%_ (lambda () - (if (pair? _%g120602120613%_) - (let ((_%tl120610120639%_ (##cdr _%g120602120613%_)) - (_%hd120609120637%_ (##car _%g120602120613%_))) - (if (null? _%tl120610120639%_) - (let ((_%expr120642%_ _%hd120609120637%_)) - (_%K120608120634%_ _%expr120642%_)) - (let ((_%body120626%_ _%g120602120613%_)) - (_%K120607120623%_ _%body120626%_)))) - (let ((_%body120626%_ _%g120602120613%_)) - (_%K120607120623%_ _%body120626%_)))))) - (if (null? _%g120602120613%_) - (_%K120611120648%_) - (_%try-match120604120644%_))))))) + (if (pair? _%g120708120719%_) + (let ((_%tl120716120745%_ (##cdr _%g120708120719%_)) + (_%hd120715120743%_ (##car _%g120708120719%_))) + (if (null? _%tl120716120745%_) + (let ((_%expr120748%_ _%hd120715120743%_)) + (_%K120714120740%_ _%expr120748%_)) + (let ((_%body120732%_ _%g120708120719%_)) + (_%K120713120729%_ _%body120732%_)))) + (let ((_%body120732%_ _%g120708120719%_)) + (_%K120713120729%_ _%body120732%_)))))) + (if (null? _%g120708120719%_) + (_%K120717120754%_) + (_%try-match120710120750%_))))))) (define gx#core-expand-cond-expand% - (lambda (_%stx120425%_) - (letrec ((_%satisfied?120427%_ - (lambda (_%condition120528%_) - (let* ((_%e120529120544%_ _%condition120528%_) - (_%E120539120548%_ + (lambda (_%stx120531%_) + (letrec ((_%satisfied?120533%_ + (lambda (_%condition120634%_) + (let* ((_%e120635120650%_ _%condition120634%_) + (_%E120645120654%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120529120544%_))) - (_%E120532120567%_ + _%e120635120650%_))) + (_%E120638120673%_ (lambda () - (if (gx#stx-pair? _%e120529120544%_) - (let ((_%e120540120552%_ - (gx#syntax-e _%e120529120544%_))) - (let ((_%hd120541120555%_ - (##car _%e120540120552%_)) - (_%tl120542120557%_ - (##cdr _%e120540120552%_))) - (let* ((_%combinator120560%_ - _%hd120541120555%_) - (_%body120562%_ - _%tl120542120557%_)) - (if (gx#stx-list? _%body120562%_) - (let ((_%$e120564%_ + (if (gx#stx-pair? _%e120635120650%_) + (let ((_%e120646120658%_ + (gx#syntax-e _%e120635120650%_))) + (let ((_%hd120647120661%_ + (##car _%e120646120658%_)) + (_%tl120648120663%_ + (##cdr _%e120646120658%_))) + (let* ((_%combinator120666%_ + _%hd120647120661%_) + (_%body120668%_ + _%tl120648120663%_)) + (if (gx#stx-list? _%body120668%_) + (let ((_%$e120670%_ (gx#stx-e - _%combinator120560%_))) - (if (eq? 'not _%$e120564%_) + _%combinator120666%_))) + (if (eq? 'not _%$e120670%_) (not (gx#stx-ormap - _%satisfied?120427%_ - _%body120562%_)) - (if (eq? 'and _%$e120564%_) + _%satisfied?120533%_ + _%body120668%_)) + (if (eq? 'and _%$e120670%_) (gx#stx-andmap - _%satisfied?120427%_ - _%body120562%_) + _%satisfied?120533%_ + _%body120668%_) (if (eq? 'or - _%$e120564%_) + _%$e120670%_) (gx#stx-ormap - _%satisfied?120427%_ - _%body120562%_) + _%satisfied?120533%_ + _%body120668%_) (if (eq? 'defined ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e120564%_) - (gx#stx-andmap gx#core-resolve-identifier _%body120562%_) + _%$e120670%_) + (gx#stx-andmap gx#core-resolve-identifier _%body120668%_) (gx#raise-syntax-error '#f '"Bad syntax; bad cond-expannd combinator" - _%stx120425%_ - _%combinator120560%_)))))) + _%stx120531%_ + _%combinator120666%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120539120548%_))))) - (_%E120539120548%_)))) - (_%E120531120590%_ + (_%E120645120654%_))))) + (_%E120645120654%_)))) + (_%E120637120696%_ (lambda () - (if (gx#stx-pair? _%e120529120544%_) - (let ((_%e120533120571%_ - (gx#syntax-e _%e120529120544%_))) - (let ((_%hd120534120574%_ - (##car _%e120533120571%_)) - (_%tl120535120576%_ - (##cdr _%e120533120571%_))) + (if (gx#stx-pair? _%e120635120650%_) + (let ((_%e120639120677%_ + (gx#syntax-e _%e120635120650%_))) + (let ((_%hd120640120680%_ + (##car _%e120639120677%_)) + (_%tl120641120682%_ + (##cdr _%e120639120677%_))) (if (and (gx#identifier? - _%hd120534120574%_) + _%hd120640120680%_) (gx#core-identifier=? - _%hd120534120574%_ + _%hd120640120680%_ 'unquote)) - (if (gx#stx-pair? _%tl120535120576%_) - (let ((_%e120536120579%_ + (if (gx#stx-pair? _%tl120641120682%_) + (let ((_%e120642120685%_ (gx#syntax-e - _%tl120535120576%_))) - (let ((_%hd120537120582%_ - (##car _%e120536120579%_)) - (_%tl120538120584%_ - (##cdr _%e120536120579%_))) - (let ((_%expr120587%_ - _%hd120537120582%_)) + _%tl120641120682%_))) + (let ((_%hd120643120688%_ + (##car _%e120642120685%_)) + (_%tl120644120690%_ + (##cdr _%e120642120685%_))) + (let ((_%expr120693%_ + _%hd120643120688%_)) (if (gx#stx-null? - _%tl120538120584%_) + _%tl120644120690%_) (__call-with-parameters (lambda () (gx#eval-syntax__0 - _%expr120587%_)) + _%expr120693%_)) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1)) - (_%E120532120567%_))))) - (_%E120532120567%_)) - (_%E120532120567%_)))) - (_%E120532120567%_)))) - (_%E120530120596%_ + (_%E120638120673%_))))) + (_%E120638120673%_)) + (_%E120638120673%_)))) + (_%E120638120673%_)))) + (_%E120636120702%_ (lambda () - (let ((_%id120594%_ _%e120529120544%_)) - (if (gx#identifier? _%id120594%_) + (let ((_%id120700%_ _%e120635120650%_)) + (if (gx#identifier? _%id120700%_) (gx#core-bound-identifier?__% - _%id120594%_ + _%id120700%_ gx#feature-binding?) - (_%E120531120590%_)))))) - (_%E120530120596%_)))) - (_%loop120428%_ - (lambda (_%rest120458%_) - (let* ((_%e120459120467%_ _%rest120458%_) - (_%E120465120471%_ + (_%E120637120696%_)))))) + (_%E120636120702%_)))) + (_%loop120534%_ + (lambda (_%rest120564%_) + (let* ((_%e120565120573%_ _%rest120564%_) + (_%E120571120577%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120459120467%_))) - (_%E120461120475%_ + _%e120565120573%_))) + (_%E120567120581%_ (lambda () - (if (gx#stx-null? _%e120459120467%_) + (if (gx#stx-null? _%e120565120573%_) '() - (_%E120465120471%_)))) - (_%E120460120524%_ + (_%E120571120577%_)))) + (_%E120566120630%_ (lambda () - (if (gx#stx-pair? _%e120459120467%_) - (let ((_%e120462120479%_ - (gx#syntax-e _%e120459120467%_))) - (let ((_%hd120463120482%_ - (##car _%e120462120479%_)) - (_%tl120464120484%_ - (##cdr _%e120462120479%_))) - (let* ((_%hd120487%_ _%hd120463120482%_) - (_%rest120489%_ - _%tl120464120484%_) - (_%e120490120497%_ _%hd120487%_) - (_%E120492120501%_ + (if (gx#stx-pair? _%e120565120573%_) + (let ((_%e120568120585%_ + (gx#syntax-e _%e120565120573%_))) + (let ((_%hd120569120588%_ + (##car _%e120568120585%_)) + (_%tl120570120590%_ + (##cdr _%e120568120585%_))) + (let* ((_%hd120593%_ _%hd120569120588%_) + (_%rest120595%_ + _%tl120570120590%_) + (_%e120596120603%_ _%hd120593%_) + (_%E120598120607%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120490120497%_))) - (_%E120491120520%_ + _%e120596120603%_))) + (_%E120597120626%_ (lambda () (if (gx#stx-pair? - _%e120490120497%_) - (let ((_%e120493120505%_ + _%e120596120603%_) + (let ((_%e120599120611%_ (gx#syntax-e - _%e120490120497%_))) - (let ((_%hd120494120508%_ - (##car _%e120493120505%_)) - (_%tl120495120510%_ - (##cdr _%e120493120505%_))) - (let* ((_%condition120513%_ - _%hd120494120508%_) - (_%body120515%_ - _%tl120495120510%_)) + _%e120596120603%_))) + (let ((_%hd120600120614%_ + (##car _%e120599120611%_)) + (_%tl120601120616%_ + (##cdr _%e120599120611%_))) + (let* ((_%condition120619%_ + _%hd120600120614%_) + (_%body120621%_ + _%tl120601120616%_)) (if (gx#stx-eq? - _%condition120513%_ + _%condition120619%_ 'else) (if (gx#stx-null? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%rest120489%_) - _%body120515%_ + _%rest120595%_) + _%body120621%_ (gx#raise-syntax-error '#f '"Bad syntax; clauses after else" - _%stx120425%_ - _%hd120487%_)) - (if (_%satisfied?120427%_ _%condition120513%_) - _%body120515%_ - (_%loop120428%_ _%rest120489%_)))))) + _%stx120531%_ + _%hd120593%_)) + (if (_%satisfied?120533%_ _%condition120619%_) + _%body120621%_ + (_%loop120534%_ _%rest120595%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E120492120501%_))))) - (_%E120491120520%_)))) - (_%E120461120475%_))))) - (_%E120460120524%_))))) - (let* ((_%e120429120436%_ _%stx120425%_) - (_%E120431120440%_ + (_%E120598120607%_))))) + (_%E120597120626%_)))) + (_%E120567120581%_))))) + (_%E120566120630%_))))) + (let* ((_%e120535120542%_ _%stx120531%_) + (_%E120537120546%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120429120436%_))) - (_%E120430120454%_ + _%e120535120542%_))) + (_%E120536120560%_ (lambda () - (if (gx#stx-pair? _%e120429120436%_) - (let ((_%e120432120444%_ - (gx#syntax-e _%e120429120436%_))) - (let ((_%hd120433120447%_ (##car _%e120432120444%_)) - (_%tl120434120449%_ (##cdr _%e120432120444%_))) - (let ((_%clauses120452%_ _%tl120434120449%_)) - (if (gx#stx-list? _%clauses120452%_) + (if (gx#stx-pair? _%e120535120542%_) + (let ((_%e120538120550%_ + (gx#syntax-e _%e120535120542%_))) + (let ((_%hd120539120553%_ (##car _%e120538120550%_)) + (_%tl120540120555%_ (##cdr _%e120538120550%_))) + (let ((_%clauses120558%_ _%tl120540120555%_)) + (if (gx#stx-list? _%clauses120558%_) (gx#core-cons 'begin - (_%loop120428%_ _%clauses120452%_)) - (_%E120431120440%_))))) - (_%E120431120440%_))))) - (_%E120430120454%_))))) + (_%loop120534%_ _%clauses120558%_)) + (_%E120537120546%_))))) + (_%E120537120546%_))))) + (_%E120536120560%_))))) (define gx#core-expand-include%__% - (lambda (_%stx120368%_ _%rpath120369%_) - (let* ((_%e120370120380%_ _%stx120368%_) - (_%E120372120384%_ + (lambda (_%stx120474%_ _%rpath120475%_) + (let* ((_%e120476120486%_ _%stx120474%_) + (_%E120478120490%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e120370120380%_))) - (_%E120371120411%_ + _%e120476120486%_))) + (_%E120477120517%_ (lambda () - (if (gx#stx-pair? _%e120370120380%_) - (let ((_%e120373120388%_ - (gx#syntax-e _%e120370120380%_))) - (let ((_%hd120374120391%_ (##car _%e120373120388%_)) - (_%tl120375120393%_ (##cdr _%e120373120388%_))) - (if (gx#stx-pair? _%tl120375120393%_) - (let ((_%e120376120396%_ - (gx#syntax-e _%tl120375120393%_))) - (let ((_%hd120377120399%_ - (##car _%e120376120396%_)) - (_%tl120378120401%_ - (##cdr _%e120376120396%_))) - (let ((_%path120404%_ _%hd120377120399%_)) - (if (gx#stx-null? _%tl120378120401%_) - (if (gx#stx-string? _%path120404%_) - (let ((_%rpath120409%_ - (let ((_%$e120406%_ - _%rpath120369%_)) - (if _%$e120406%_ - _%$e120406%_ + (if (gx#stx-pair? _%e120476120486%_) + (let ((_%e120479120494%_ + (gx#syntax-e _%e120476120486%_))) + (let ((_%hd120480120497%_ (##car _%e120479120494%_)) + (_%tl120481120499%_ (##cdr _%e120479120494%_))) + (if (gx#stx-pair? _%tl120481120499%_) + (let ((_%e120482120502%_ + (gx#syntax-e _%tl120481120499%_))) + (let ((_%hd120483120505%_ + (##car _%e120482120502%_)) + (_%tl120484120507%_ + (##cdr _%e120482120502%_))) + (let ((_%path120510%_ _%hd120483120505%_)) + (if (gx#stx-null? _%tl120484120507%_) + (if (gx#stx-string? _%path120510%_) + (let ((_%rpath120515%_ + (let ((_%$e120512%_ + _%rpath120475%_)) + (if _%$e120512%_ + _%$e120512%_ (gx#core-resolve-path__% - _%path120404%_ + _%path120510%_ (gx#stx-source - _%stx120368%_)))))) - (if (member _%rpath120409%_ + _%stx120474%_)))))) + (if (member _%rpath120515%_ (gx#current-expander-path)) (gx#raise-syntax-error '#f '"Bad syntax; cyclic expansion" - _%stx120368%_) + _%stx120474%_) (gx#syntax-local-rewrap (gx#stx-wrap-source (gx#core-cons 'begin (read-syntax-from-file - _%rpath120409%_)) + _%rpath120515%_)) (gx#stx-source - _%stx120368%_))))) - (_%E120372120384%_)) - (_%E120372120384%_))))) - (_%E120372120384%_)))) - (_%E120372120384%_))))) - (_%E120371120411%_)))) + _%stx120474%_))))) + (_%E120478120490%_)) + (_%E120478120490%_))))) + (_%E120478120490%_)))) + (_%E120478120490%_))))) + (_%E120477120517%_)))) (define gx#core-expand-include%__0 - (lambda (_%stx120418%_) - (let ((_%rpath120420%_ '#f)) - (gx#core-expand-include%__% _%stx120418%_ _%rpath120420%_)))) + (lambda (_%stx120524%_) + (let ((_%rpath120526%_ '#f)) + (gx#core-expand-include%__% _%stx120524%_ _%rpath120526%_)))) (define gx#core-expand-include% - (lambda _g121541_ - (let ((_g121540_ (##length _g121541_))) - (cond ((##fx= _g121540_ 1) - (apply gx#core-expand-include%__0 _g121541_)) - ((##fx= _g121540_ 2) - (apply gx#core-expand-include%__% _g121541_)) + (lambda _g121647_ + (let ((_g121646_ (##length _g121647_))) + (cond ((##fx= _g121646_ 1) + (apply gx#core-expand-include%__0 _g121647_)) + ((##fx= _g121646_ 2) + (apply gx#core-expand-include%__% _g121647_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-include% - _g121541_)))))) + _g121647_)))))) (define gx#core-apply-expander__% - (lambda (_%K120334%_ _%stx120335%_ _%method120336%_) - (if (procedure? _%K120334%_) - (let ((_%$e120339%_ (gx#stx-source _%stx120335%_))) - (if _%$e120339%_ - ((lambda (_%g120341120343%_) + (lambda (_%K120440%_ _%stx120441%_ _%method120442%_) + (if (procedure? _%K120440%_) + (let ((_%$e120445%_ (gx#stx-source _%stx120441%_))) + (if _%$e120445%_ + ((lambda (_%g120447120449%_) (gx#stx-wrap-source - (_%K120334%_ _%stx120335%_) - _%g120341120343%_)) - _%$e120339%_) - (_%K120334%_ _%stx120335%_))) - (let ((_%$e120347%_ - (bound-method-ref _%K120334%_ _%method120336%_))) - (if _%$e120347%_ - ((lambda (_%g120349120351%_) + (_%K120440%_ _%stx120441%_) + _%g120447120449%_)) + _%$e120445%_) + (_%K120440%_ _%stx120441%_))) + (let ((_%$e120453%_ + (bound-method-ref _%K120440%_ _%method120442%_))) + (if _%$e120453%_ + ((lambda (_%g120455120457%_) (gx#core-apply-expander__% - _%g120349120351%_ - _%stx120335%_ - _%method120336%_)) - _%$e120347%_) + _%g120455120457%_ + _%stx120441%_ + _%method120442%_)) + _%$e120453%_) (gx#raise-syntax-error '#f '"Bad syntax; no expander method" - _%stx120335%_ - _%method120336%_)))))) + _%stx120441%_ + _%method120442%_)))))) (define gx#core-apply-expander__0 - (lambda (_%K120358%_ _%stx120359%_) - (let ((_%method120361%_ 'apply-macro-expander)) + (lambda (_%K120464%_ _%stx120465%_) + (let ((_%method120467%_ 'apply-macro-expander)) (gx#core-apply-expander__% - _%K120358%_ - _%stx120359%_ - _%method120361%_)))) + _%K120464%_ + _%stx120465%_ + _%method120467%_)))) (define gx#core-apply-expander - (lambda _g121543_ - (let ((_g121542_ (##length _g121543_))) - (cond ((##fx= _g121542_ 2) - (apply gx#core-apply-expander__0 _g121543_)) - ((##fx= _g121542_ 3) - (apply gx#core-apply-expander__% _g121543_)) + (lambda _g121649_ + (let ((_g121648_ (##length _g121649_))) + (cond ((##fx= _g121648_ 2) + (apply gx#core-apply-expander__0 _g121649_)) + ((##fx= _g121648_ 3) + (apply gx#core-apply-expander__% _g121649_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-expander - _g121543_)))))) + _g121649_)))))) (define gx#expander::apply-macro-expander - (lambda (_%self118376120317%_ _%stx120319%_) - (let* ((_%self120321%_ _%self118376120317%_) - (_%self120323%_ _%self120321%_)) + (lambda (_%self118482120423%_ _%stx120425%_) + (let* ((_%self120427%_ _%self118482120423%_) + (_%self120429%_ _%self120427%_)) (gx#raise-syntax-error '#f '"Bad syntax; bottom method for apply-macro-expander" - _%stx120319%_)))) + _%stx120425%_)))) (__bind-method!__% gx#expander::t 'apply-macro-expander gx#expander::apply-macro-expander '#f) (define gx#macro-expander::apply-macro-expander - (lambda (_%self118377120157%_ _%stx120159%_) - (let* ((_%self120161%_ _%self118377120157%_) - (_%self120163%_ _%self120161%_) - (_%self120172120178%_ _%self120163%_) - (_%E120174120182%_ + (lambda (_%self118483120263%_ _%stx120265%_) + (let* ((_%self120267%_ _%self118483120263%_) + (_%self120269%_ _%self120267%_) + (_%self120278120284%_ _%self120269%_) + (_%E120280120288%_ (lambda () (error '"No clause matching" - _%self120172120178%_ + _%self120278120284%_ '((macro-expander K))) '#!void)) - (_%K120175120187%_ - (lambda (_%K120185%_) - (gx#core-apply-expander__0 _%K120185%_ _%stx120159%_))) - (_%e120176120190%_ - (##unchecked-structure-ref _%self120172120178%_ '1 '#f '#f)) - (_%K120193%_ _%e120176120190%_)) - (_%K120175120187%_ _%K120193%_)))) + (_%K120281120293%_ + (lambda (_%K120291%_) + (gx#core-apply-expander__0 _%K120291%_ _%stx120265%_))) + (_%e120282120296%_ + (##unchecked-structure-ref _%self120278120284%_ '1 '#f '#f)) + (_%K120299%_ _%e120282120296%_)) + (_%K120281120293%_ _%K120299%_)))) (__bind-method!__% gx#macro-expander::t 'apply-macro-expander gx#macro-expander::apply-macro-expander '#f) (define gx#core-expander::apply-macro-expander - (lambda (_%self118378119997%_ _%stx119999%_) - (let* ((_%self120001%_ _%self118378119997%_) - (_%self120003%_ _%self120001%_)) - (if (gx#sealed-syntax? _%stx119999%_) - _%stx119999%_ - (let* ((_%self120012120018%_ _%self120003%_) - (_%E120014120022%_ + (lambda (_%self118484120103%_ _%stx120105%_) + (let* ((_%self120107%_ _%self118484120103%_) + (_%self120109%_ _%self120107%_)) + (if (gx#sealed-syntax? _%stx120105%_) + _%stx120105%_ + (let* ((_%self120118120124%_ _%self120109%_) + (_%E120120120128%_ (lambda () (error '"No clause matching" - _%self120012120018%_ + _%self120118120124%_ '((core-expander K))) '#!void)) - (_%K120015120027%_ - (lambda (_%K120025%_) - (gx#core-apply-expander__0 _%K120025%_ _%stx119999%_))) - (_%e120016120030%_ + (_%K120121120133%_ + (lambda (_%K120131%_) + (gx#core-apply-expander__0 _%K120131%_ _%stx120105%_))) + (_%e120122120136%_ (##unchecked-structure-ref - _%self120012120018%_ + _%self120118120124%_ '1 '#f '#f)) - (_%K120033%_ _%e120016120030%_)) - (_%K120015120027%_ _%K120033%_)))))) + (_%K120139%_ _%e120122120136%_)) + (_%K120121120133%_ _%K120139%_)))))) (__bind-method!__% gx#core-expander::t 'apply-macro-expander gx#core-expander::apply-macro-expander '#f) (define gx#top-special-form::apply-macro-expander__% - (lambda (_%self118379119846%_ _%stx119848%_ _%top?119849%_) - (let* ((_%self119851%_ _%self118379119846%_) - (_%self119853%_ _%self119851%_)) - (if (_%top?119849%_ (gx#current-expander-context)) + (lambda (_%self118485119952%_ _%stx119954%_ _%top?119955%_) + (let* ((_%self119957%_ _%self118485119952%_) + (_%self119959%_ _%self119957%_)) + (if (_%top?119955%_ (gx#current-expander-context)) (gx#core-expander::apply-macro-expander - _%self119853%_ - _%stx119848%_) + _%self119959%_ + _%stx119954%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal context" - _%stx119848%_))))) + _%stx119954%_))))) (define gx#top-special-form::apply-macro-expander__0 - (lambda (_%self118379119866%_ _%stx119867%_) - (let ((_%top?119869%_ gx#top-context?)) + (lambda (_%self118485119972%_ _%stx119973%_) + (let ((_%top?119975%_ gx#top-context?)) (gx#top-special-form::apply-macro-expander__% - _%self118379119866%_ - _%stx119867%_ - _%top?119869%_)))) + _%self118485119972%_ + _%stx119973%_ + _%top?119975%_)))) (define gx#top-special-form::apply-macro-expander - (lambda _g121545_ - (let ((_g121544_ (##length _g121545_))) - (cond ((##fx= _g121544_ 2) + (lambda _g121651_ + (let ((_g121650_ (##length _g121651_))) + (cond ((##fx= _g121650_ 2) (apply gx#top-special-form::apply-macro-expander__0 - _g121545_)) - ((##fx= _g121544_ 3) + _g121651_)) + ((##fx= _g121650_ 3) (apply gx#top-special-form::apply-macro-expander__% - _g121545_)) + _g121651_)) (else (##raise-wrong-number-of-arguments-exception gx#top-special-form::apply-macro-expander - _g121545_)))))) + _g121651_)))))) (__bind-method!__% gx#top-special-form::t 'apply-macro-expander gx#top-special-form::apply-macro-expander '#f) (define gx#module-special-form::apply-macro-expander - (lambda (_%self118380119707%_ _%stx119709%_) - (let* ((_%self119711%_ _%self118380119707%_) - (_%self119713%_ _%self119711%_)) + (lambda (_%self118486119813%_ _%stx119815%_) + (let* ((_%self119817%_ _%self118486119813%_) + (_%self119819%_ _%self119817%_)) (gx#top-special-form::apply-macro-expander__% - _%self119713%_ - _%stx119709%_ + _%self119819%_ + _%stx119815%_ gx#module-context?)))) (__bind-method!__% gx#module-special-form::t @@ -2288,133 +2289,133 @@ gx#module-special-form::apply-macro-expander '#f) (define gx#rename-macro-expander::apply-macro-expander - (lambda (_%self118381119519%_ _%stx119521%_) - (let* ((_%self119523%_ _%self118381119519%_) - (_%self119525%_ _%self119523%_) - (_%self119534119540%_ _%self119525%_) - (_%E119536119544%_ + (lambda (_%self118487119625%_ _%stx119627%_) + (let* ((_%self119629%_ _%self118487119625%_) + (_%self119631%_ _%self119629%_) + (_%self119640119646%_ _%self119631%_) + (_%E119642119650%_ (lambda () (error '"No clause matching" - _%self119534119540%_ + _%self119640119646%_ '((rename-macro-expander id))) '#!void)) - (_%K119537119577%_ - (lambda (_%id119547%_) - (let* ((_%e119548119555%_ _%stx119521%_) - (_%E119550119559%_ + (_%K119643119683%_ + (lambda (_%id119653%_) + (let* ((_%e119654119661%_ _%stx119627%_) + (_%E119656119665%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e119548119555%_))) - (_%E119549119573%_ + _%e119654119661%_))) + (_%E119655119679%_ (lambda () - (if (gx#stx-pair? _%e119548119555%_) - (let ((_%e119551119563%_ - (gx#syntax-e _%e119548119555%_))) - (let ((_%hd119552119566%_ - (##car _%e119551119563%_)) - (_%tl119553119568%_ - (##cdr _%e119551119563%_))) - (let ((_%body119571%_ _%tl119553119568%_)) + (if (gx#stx-pair? _%e119654119661%_) + (let ((_%e119657119669%_ + (gx#syntax-e _%e119654119661%_))) + (let ((_%hd119658119672%_ + (##car _%e119657119669%_)) + (_%tl119659119674%_ + (##cdr _%e119657119669%_))) + (let ((_%body119677%_ _%tl119659119674%_)) (gx#core-cons - _%id119547%_ - _%body119571%_)))) - (_%E119550119559%_))))) - (_%E119549119573%_)))) - (_%e119538119580%_ - (##unchecked-structure-ref _%self119534119540%_ '1 '#f '#f)) - (_%id119583%_ _%e119538119580%_)) - (_%K119537119577%_ _%id119583%_)))) + _%id119653%_ + _%body119677%_)))) + (_%E119656119665%_))))) + (_%E119655119679%_)))) + (_%e119644119686%_ + (##unchecked-structure-ref _%self119640119646%_ '1 '#f '#f)) + (_%id119689%_ _%e119644119686%_)) + (_%K119643119683%_ _%id119689%_)))) (__bind-method!__% gx#rename-macro-expander::t 'apply-macro-expander gx#rename-macro-expander::apply-macro-expander '#f) (define gx#core-apply-user-expander__% - (lambda (_%self119345%_ _%stx119346%_ _%method119347%_) - (let* ((_%self119348119356%_ _%self119345%_) - (_%E119350119360%_ + (lambda (_%self119451%_ _%stx119452%_ _%method119453%_) + (let* ((_%self119454119462%_ _%self119451%_) + (_%E119456119466%_ (lambda () (error '"No clause matching" - _%self119348119356%_ + _%self119454119462%_ '((user-expander K ctx phi))) '#!void)) - (_%K119351119367%_ - (lambda (_%phi119363%_ _%ctx119364%_ _%K119365%_) + (_%K119457119473%_ + (lambda (_%phi119469%_ _%ctx119470%_ _%K119471%_) (gx#core-apply-user-macro - _%K119365%_ - _%stx119346%_ - _%ctx119364%_ - _%phi119363%_ - _%method119347%_)))) + _%K119471%_ + _%stx119452%_ + _%ctx119470%_ + _%phi119469%_ + _%method119453%_)))) (if (##structure-instance-of? - _%self119348119356%_ + _%self119454119462%_ 'gx#user-expander::t) - (let* ((_%e119352119370%_ + (let* ((_%e119458119476%_ (##unchecked-structure-ref - _%self119348119356%_ + _%self119454119462%_ '1 '#f '#f)) - (_%K119373%_ _%e119352119370%_) - (_%e119353119375%_ + (_%K119479%_ _%e119458119476%_) + (_%e119459119481%_ (##unchecked-structure-ref - _%self119348119356%_ + _%self119454119462%_ '2 '#f '#f)) - (_%ctx119378%_ _%e119353119375%_) - (_%e119354119380%_ + (_%ctx119484%_ _%e119459119481%_) + (_%e119460119486%_ (##unchecked-structure-ref - _%self119348119356%_ + _%self119454119462%_ '3 '#f '#f)) - (_%phi119383%_ _%e119354119380%_)) - (_%K119351119367%_ _%phi119383%_ _%ctx119378%_ _%K119373%_)) - (_%E119350119360%_))))) + (_%phi119489%_ _%e119460119486%_)) + (_%K119457119473%_ _%phi119489%_ _%ctx119484%_ _%K119479%_)) + (_%E119456119466%_))))) (define gx#core-apply-user-expander__0 - (lambda (_%self119388%_ _%stx119389%_) - (let ((_%method119391%_ 'apply-macro-expander)) + (lambda (_%self119494%_ _%stx119495%_) + (let ((_%method119497%_ 'apply-macro-expander)) (gx#core-apply-user-expander__% - _%self119388%_ - _%stx119389%_ - _%method119391%_)))) + _%self119494%_ + _%stx119495%_ + _%method119497%_)))) (define gx#core-apply-user-expander - (lambda _g121547_ - (let ((_g121546_ (##length _g121547_))) - (cond ((##fx= _g121546_ 2) - (apply gx#core-apply-user-expander__0 _g121547_)) - ((##fx= _g121546_ 3) - (apply gx#core-apply-user-expander__% _g121547_)) + (lambda _g121653_ + (let ((_g121652_ (##length _g121653_))) + (cond ((##fx= _g121652_ 2) + (apply gx#core-apply-user-expander__0 _g121653_)) + ((##fx= _g121652_ 3) + (apply gx#core-apply-user-expander__% _g121653_)) (else (##raise-wrong-number-of-arguments-exception gx#core-apply-user-expander - _g121547_)))))) + _g121653_)))))) (define gx#core-apply-user-macro - (lambda (_%K119335%_ - _%stx119336%_ - _%ctx119337%_ - _%phi119338%_ - _%method119339%_) - (let ((_%mark119341%_ + (lambda (_%K119441%_ + _%stx119442%_ + _%ctx119443%_ + _%phi119444%_ + _%method119445%_) + (let ((_%mark119447%_ (##structure gx#expander-mark::t '#f - _%ctx119337%_ - _%phi119338%_ - _%stx119336%_))) + _%ctx119443%_ + _%phi119444%_ + _%stx119442%_))) (__call-with-parameters (lambda () (gx#stx-apply-mark (gx#core-apply-expander__% - _%K119335%_ - (gx#stx-apply-mark _%stx119336%_ _%mark119341%_) - _%method119339%_) - _%mark119341%_)) + _%K119441%_ + (gx#stx-apply-mark _%stx119442%_ _%mark119447%_) + _%method119445%_) + _%mark119447%_)) gx#current-expander-marks - (cons _%mark119341%_ (gx#current-expander-marks)))))) + (cons _%mark119447%_ (gx#current-expander-marks)))))) (define gx#user-expander::apply-macro-expander gx#core-apply-user-expander) (__bind-method!__% gx#user-expander::t @@ -2422,372 +2423,372 @@ gx#user-expander::apply-macro-expander '#f) (define gx#resolve-identifier__% - (lambda (_%stx119183%_ _%phi119184%_ _%ctx119185%_) - (let _%lp119187%_ ((_%bind119189%_ + (lambda (_%stx119289%_ _%phi119290%_ _%ctx119291%_) + (let _%lp119293%_ ((_%bind119295%_ (gx#core-resolve-identifier__% - _%stx119183%_ - _%phi119184%_ - _%ctx119185%_))) + _%stx119289%_ + _%phi119290%_ + _%ctx119291%_))) (if (##structure-direct-instance-of? - _%bind119189%_ + _%bind119295%_ 'gx#import-binding::t) - (_%lp119187%_ - (##unchecked-structure-ref _%bind119189%_ '4 '#f '#f)) + (_%lp119293%_ + (##unchecked-structure-ref _%bind119295%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%bind119189%_ + _%bind119295%_ 'gx#alias-binding::t) - (_%lp119187%_ + (_%lp119293%_ (gx#core-resolve-identifier__% - (##unchecked-structure-ref _%bind119189%_ '4 '#f '#f) - _%phi119184%_ - _%ctx119185%_)) - _%bind119189%_))))) + (##unchecked-structure-ref _%bind119295%_ '4 '#f '#f) + _%phi119290%_ + _%ctx119291%_)) + _%bind119295%_))))) (define gx#resolve-identifier__0 - (lambda (_%stx119197%_) - (let* ((_%phi119199%_ (gx#current-expander-phi)) - (_%ctx119201%_ (gx#current-expander-context))) + (lambda (_%stx119303%_) + (let* ((_%phi119305%_ (gx#current-expander-phi)) + (_%ctx119307%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119197%_ - _%phi119199%_ - _%ctx119201%_)))) + _%stx119303%_ + _%phi119305%_ + _%ctx119307%_)))) (define gx#resolve-identifier__1 - (lambda (_%stx119203%_ _%phi119204%_) - (let ((_%ctx119206%_ (gx#current-expander-context))) + (lambda (_%stx119309%_ _%phi119310%_) + (let ((_%ctx119312%_ (gx#current-expander-context))) (gx#resolve-identifier__% - _%stx119203%_ - _%phi119204%_ - _%ctx119206%_)))) + _%stx119309%_ + _%phi119310%_ + _%ctx119312%_)))) (define gx#resolve-identifier - (lambda _g121549_ - (let ((_g121548_ (##length _g121549_))) - (cond ((##fx= _g121548_ 1) - (apply gx#resolve-identifier__0 _g121549_)) - ((##fx= _g121548_ 2) - (apply gx#resolve-identifier__1 _g121549_)) - ((##fx= _g121548_ 3) - (apply gx#resolve-identifier__% _g121549_)) + (lambda _g121655_ + (let ((_g121654_ (##length _g121655_))) + (cond ((##fx= _g121654_ 1) + (apply gx#resolve-identifier__0 _g121655_)) + ((##fx= _g121654_ 2) + (apply gx#resolve-identifier__1 _g121655_)) + ((##fx= _g121654_ 3) + (apply gx#resolve-identifier__% _g121655_)) (else (##raise-wrong-number-of-arguments-exception gx#resolve-identifier - _g121549_)))))) + _g121655_)))))) (define gx#bind-identifier!__% - (lambda (_%stx119138%_ - _%val119139%_ - _%rebind?119140%_ - _%phi119141%_ - _%ctx119142%_) - (let ((_%rebind?119147%_ - (if (not _%rebind?119140%_) + (lambda (_%stx119244%_ + _%val119245%_ + _%rebind?119246%_ + _%phi119247%_ + _%ctx119248%_) + (let ((_%rebind?119253%_ + (if (not _%rebind?119246%_) gx#core-context-rebind? - (if (procedure? _%rebind?119140%_) - _%rebind?119140%_ + (if (procedure? _%rebind?119246%_) + _%rebind?119246%_ true)))) (gx#core-bind!__% - (gx#core-identifier-key _%stx119138%_) - _%val119139%_ - _%rebind?119147%_ - _%phi119141%_ - _%ctx119142%_)))) + (gx#core-identifier-key _%stx119244%_) + _%val119245%_ + _%rebind?119253%_ + _%phi119247%_ + _%ctx119248%_)))) (define gx#bind-identifier!__0 - (lambda (_%stx119152%_ _%val119153%_) - (let* ((_%rebind?119155%_ '#f) - (_%phi119157%_ (gx#current-expander-phi)) - (_%ctx119159%_ (gx#current-expander-context))) + (lambda (_%stx119258%_ _%val119259%_) + (let* ((_%rebind?119261%_ '#f) + (_%phi119263%_ (gx#current-expander-phi)) + (_%ctx119265%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119152%_ - _%val119153%_ - _%rebind?119155%_ - _%phi119157%_ - _%ctx119159%_)))) + _%stx119258%_ + _%val119259%_ + _%rebind?119261%_ + _%phi119263%_ + _%ctx119265%_)))) (define gx#bind-identifier!__1 - (lambda (_%stx119161%_ _%val119162%_ _%rebind?119163%_) - (let* ((_%phi119165%_ (gx#current-expander-phi)) - (_%ctx119167%_ (gx#current-expander-context))) + (lambda (_%stx119267%_ _%val119268%_ _%rebind?119269%_) + (let* ((_%phi119271%_ (gx#current-expander-phi)) + (_%ctx119273%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119161%_ - _%val119162%_ - _%rebind?119163%_ - _%phi119165%_ - _%ctx119167%_)))) + _%stx119267%_ + _%val119268%_ + _%rebind?119269%_ + _%phi119271%_ + _%ctx119273%_)))) (define gx#bind-identifier!__2 - (lambda (_%stx119169%_ _%val119170%_ _%rebind?119171%_ _%phi119172%_) - (let ((_%ctx119174%_ (gx#current-expander-context))) + (lambda (_%stx119275%_ _%val119276%_ _%rebind?119277%_ _%phi119278%_) + (let ((_%ctx119280%_ (gx#current-expander-context))) (gx#bind-identifier!__% - _%stx119169%_ - _%val119170%_ - _%rebind?119171%_ - _%phi119172%_ - _%ctx119174%_)))) + _%stx119275%_ + _%val119276%_ + _%rebind?119277%_ + _%phi119278%_ + _%ctx119280%_)))) (define gx#bind-identifier! - (lambda _g121551_ - (let ((_g121550_ (##length _g121551_))) - (cond ((##fx= _g121550_ 2) (apply gx#bind-identifier!__0 _g121551_)) - ((##fx= _g121550_ 3) (apply gx#bind-identifier!__1 _g121551_)) - ((##fx= _g121550_ 4) (apply gx#bind-identifier!__2 _g121551_)) - ((##fx= _g121550_ 5) (apply gx#bind-identifier!__% _g121551_)) + (lambda _g121657_ + (let ((_g121656_ (##length _g121657_))) + (cond ((##fx= _g121656_ 2) (apply gx#bind-identifier!__0 _g121657_)) + ((##fx= _g121656_ 3) (apply gx#bind-identifier!__1 _g121657_)) + ((##fx= _g121656_ 4) (apply gx#bind-identifier!__2 _g121657_)) + ((##fx= _g121656_ 5) (apply gx#bind-identifier!__% _g121657_)) (else (##raise-wrong-number-of-arguments-exception gx#bind-identifier! - _g121551_)))))) + _g121657_)))))) (define gx#core-resolve-identifier__% - (lambda (_%stx119104%_ _%phi119105%_ _%ctx119106%_) - (let _%lp119108%_ ((_%e119110%_ _%stx119104%_) - (_%marks119111%_ (gx#current-expander-marks))) - (if (symbol? _%e119110%_) + (lambda (_%stx119210%_ _%phi119211%_ _%ctx119212%_) + (let _%lp119214%_ ((_%e119216%_ _%stx119210%_) + (_%marks119217%_ (gx#current-expander-marks))) + (if (symbol? _%e119216%_) (gx#core-resolve-binding - _%e119110%_ - _%phi119105%_ - _%phi119105%_ - _%ctx119106%_ - (reverse _%marks119111%_)) - (if (gx#identifier-quote? _%e119110%_) + _%e119216%_ + _%phi119211%_ + _%phi119211%_ + _%ctx119212%_ + (reverse _%marks119217%_)) + (if (gx#identifier-quote? _%e119216%_) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) - _%phi119105%_ + (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) + _%phi119211%_ '0 - (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) - (##unchecked-structure-ref _%e119110%_ '4 '#f '#f)) + (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) + (##unchecked-structure-ref _%e119216%_ '4 '#f '#f)) (if (##structure-direct-instance-of? - _%e119110%_ + _%e119216%_ 'gx#identifier-wrap::t) (gx#core-resolve-binding - (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) - _%phi119105%_ - _%phi119105%_ - _%ctx119106%_ + (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) + _%phi119211%_ + _%phi119211%_ + _%ctx119212%_ (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) - _%marks119111%_)) + (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) + _%marks119217%_)) (if (##structure-direct-instance-of? - _%e119110%_ + _%e119216%_ 'gx#syntax-wrap::t) - (_%lp119108%_ - (##unchecked-structure-ref _%e119110%_ '1 '#f '#f) + (_%lp119214%_ + (##unchecked-structure-ref _%e119216%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e119110%_ '3 '#f '#f) - _%marks119111%_)) + (##unchecked-structure-ref _%e119216%_ '3 '#f '#f) + _%marks119217%_)) (if (##structure-instance-of? - _%e119110%_ + _%e119216%_ 'gerbil#AST::t) - (_%lp119108%_ + (_%lp119214%_ (##unchecked-structure-ref - _%e119110%_ + _%e119216%_ '1 '#f '#f) - _%marks119111%_) + _%marks119217%_) (gx#raise-syntax-error '#f '"Bad identifier" - _%stx119104%_))))))))) + _%stx119210%_))))))))) (define gx#core-resolve-identifier__0 - (lambda (_%stx119122%_) - (let* ((_%phi119124%_ (gx#current-expander-phi)) - (_%ctx119126%_ (gx#current-expander-context))) + (lambda (_%stx119228%_) + (let* ((_%phi119230%_ (gx#current-expander-phi)) + (_%ctx119232%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119122%_ - _%phi119124%_ - _%ctx119126%_)))) + _%stx119228%_ + _%phi119230%_ + _%ctx119232%_)))) (define gx#core-resolve-identifier__1 - (lambda (_%stx119128%_ _%phi119129%_) - (let ((_%ctx119131%_ (gx#current-expander-context))) + (lambda (_%stx119234%_ _%phi119235%_) + (let ((_%ctx119237%_ (gx#current-expander-context))) (gx#core-resolve-identifier__% - _%stx119128%_ - _%phi119129%_ - _%ctx119131%_)))) + _%stx119234%_ + _%phi119235%_ + _%ctx119237%_)))) (define gx#core-resolve-identifier - (lambda _g121553_ - (let ((_g121552_ (##length _g121553_))) - (cond ((##fx= _g121552_ 1) - (apply gx#core-resolve-identifier__0 _g121553_)) - ((##fx= _g121552_ 2) - (apply gx#core-resolve-identifier__1 _g121553_)) - ((##fx= _g121552_ 3) - (apply gx#core-resolve-identifier__% _g121553_)) + (lambda _g121659_ + (let ((_g121658_ (##length _g121659_))) + (cond ((##fx= _g121658_ 1) + (apply gx#core-resolve-identifier__0 _g121659_)) + ((##fx= _g121658_ 2) + (apply gx#core-resolve-identifier__1 _g121659_)) + ((##fx= _g121658_ 3) + (apply gx#core-resolve-identifier__% _g121659_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-identifier - _g121553_)))))) + _g121659_)))))) (define gx#core-resolve-binding - (lambda (_%id119014%_ - _%phi119015%_ - _%src-phi119016%_ - _%ctx119017%_ - _%marks119018%_) - (letrec ((_%resolve119020%_ - (lambda (_%ctx119088%_ _%src-phi119089%_ _%key119090%_) - (let _%lp119092%_ ((_%ctx119094%_ + (lambda (_%id119120%_ + _%phi119121%_ + _%src-phi119122%_ + _%ctx119123%_ + _%marks119124%_) + (letrec ((_%resolve119126%_ + (lambda (_%ctx119194%_ _%src-phi119195%_ _%key119196%_) + (let _%lp119198%_ ((_%ctx119200%_ (gx#core-context-shift - _%ctx119088%_ - _%phi119015%_)) - (_%dphi119095%_ - (fx- _%phi119015%_ _%src-phi119089%_))) - (let ((_%$e119097%_ + _%ctx119194%_ + _%phi119121%_)) + (_%dphi119201%_ + (fx- _%phi119121%_ _%src-phi119195%_))) + (let ((_%$e119203%_ (gx#core-context-resolve - _%ctx119094%_ - _%key119090%_))) - (if _%$e119097%_ - _%$e119097%_ - (if (fxzero? _%dphi119095%_) + _%ctx119200%_ + _%key119196%_))) + (if _%$e119203%_ + _%$e119203%_ + (if (fxzero? _%dphi119201%_) '#f - (if (fxpositive? _%dphi119095%_) - (_%lp119092%_ - (gx#core-context-shift _%ctx119094%_ '-1) - (##fx- _%dphi119095%_ '1)) - (_%lp119092%_ - (gx#core-context-shift _%ctx119094%_ '1) - (##fx+ _%dphi119095%_ '1)))))))))) - (let _%lp119022%_ ((_%ctx119024%_ _%ctx119017%_) - (_%src-phi119025%_ _%src-phi119016%_) - (_%rest119026%_ _%marks119018%_)) - (let* ((_%rest119027119035%_ _%rest119026%_) - (_%else119029119043%_ + (if (fxpositive? _%dphi119201%_) + (_%lp119198%_ + (gx#core-context-shift _%ctx119200%_ '-1) + (##fx- _%dphi119201%_ '1)) + (_%lp119198%_ + (gx#core-context-shift _%ctx119200%_ '1) + (##fx+ _%dphi119201%_ '1)))))))))) + (let _%lp119128%_ ((_%ctx119130%_ _%ctx119123%_) + (_%src-phi119131%_ _%src-phi119122%_) + (_%rest119132%_ _%marks119124%_)) + (let* ((_%rest119133119141%_ _%rest119132%_) + (_%else119135119149%_ (lambda () - (_%resolve119020%_ - _%ctx119024%_ - _%src-phi119025%_ - _%id119014%_))) - (_%K119031119076%_ - (lambda (_%rest119046%_ _%hd119047%_) - (let* ((_%hd119048119054%_ _%hd119047%_) - (_%E119050119058%_ + (_%resolve119126%_ + _%ctx119130%_ + _%src-phi119131%_ + _%id119120%_))) + (_%K119137119182%_ + (lambda (_%rest119152%_ _%hd119153%_) + (let* ((_%hd119154119160%_ _%hd119153%_) + (_%E119156119164%_ (lambda () (error '"No clause matching" - _%hd119048119054%_ + _%hd119154119160%_ '((expander-mark subst))) '#!void)) - (_%K119051119068%_ - (lambda (_%subst119061%_) - (let ((_%$e119065%_ - (let ((_%key119063%_ - (if _%subst119061%_ + (_%K119157119174%_ + (lambda (_%subst119167%_) + (let ((_%$e119171%_ + (let ((_%key119169%_ + (if _%subst119167%_ (hash-get - _%subst119061%_ - _%id119014%_) + _%subst119167%_ + _%id119120%_) '#f))) - (if _%key119063%_ - (_%resolve119020%_ - _%ctx119024%_ - _%src-phi119025%_ - _%key119063%_) + (if _%key119169%_ + (_%resolve119126%_ + _%ctx119130%_ + _%src-phi119131%_ + _%key119169%_) '#f)))) - (if _%$e119065%_ - _%$e119065%_ - (_%lp119022%_ + (if _%$e119171%_ + _%$e119171%_ + (_%lp119128%_ (##unchecked-structure-ref - _%hd119047%_ + _%hd119153%_ '2 '#f '#f) (##unchecked-structure-ref - _%hd119047%_ + _%hd119153%_ '3 '#f '#f) - _%rest119046%_)))))) + _%rest119152%_)))))) (if (##structure-instance-of? - _%hd119048119054%_ + _%hd119154119160%_ 'gx#expander-mark::t) - (let* ((_%e119052119071%_ + (let* ((_%e119158119177%_ (##unchecked-structure-ref - _%hd119048119054%_ + _%hd119154119160%_ '1 '#f '#f)) - (_%subst119074%_ _%e119052119071%_)) - (_%K119051119068%_ _%subst119074%_)) - (_%E119050119058%_)))))) - (if (pair? _%rest119027119035%_) - (let ((_%hd119032119079%_ (##car _%rest119027119035%_)) - (_%tl119033119081%_ (##cdr _%rest119027119035%_))) - (let* ((_%hd119084%_ _%hd119032119079%_) - (_%rest119086%_ _%tl119033119081%_)) - (_%K119031119076%_ _%rest119086%_ _%hd119084%_))) - (_%else119029119043%_))))))) + (_%subst119180%_ _%e119158119177%_)) + (_%K119157119174%_ _%subst119180%_)) + (_%E119156119164%_)))))) + (if (pair? _%rest119133119141%_) + (let ((_%hd119138119185%_ (##car _%rest119133119141%_)) + (_%tl119139119187%_ (##cdr _%rest119133119141%_))) + (let* ((_%hd119190%_ _%hd119138119185%_) + (_%rest119192%_ _%tl119139119187%_)) + (_%K119137119182%_ _%rest119192%_ _%hd119190%_))) + (_%else119135119149%_))))))) (define gx#core-bind!__% - (lambda (_%key118884%_ - _%val118885%_ - _%rebind?118886%_ - _%phi118887%_ - _%ctx118888%_) - (letrec ((_%update-binding118890%_ - (lambda (_%xval118963%_) - (if (or (_%rebind?118886%_ - _%ctx118888%_ - _%xval118963%_ - _%val118885%_) + (lambda (_%key118990%_ + _%val118991%_ + _%rebind?118992%_ + _%phi118993%_ + _%ctx118994%_) + (letrec ((_%update-binding118996%_ + (lambda (_%xval119069%_) + (if (or (_%rebind?118992%_ + _%ctx118994%_ + _%xval119069%_ + _%val118991%_) (and (##structure-direct-instance-of? - _%xval118963%_ + _%xval119069%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%xval118963%_ + _%xval119069%_ '6 '#f '#f) (and (##structure-instance-of? - _%val118885%_ + _%val118991%_ 'gx#binding::t) (not (##structure-direct-instance-of? - _%val118885%_ + _%val118991%_ 'gx#import-binding::t))))) (and (##structure-instance-of? - _%xval118963%_ + _%xval119069%_ 'gx#extern-binding::t) (##structure-instance-of? - _%val118885%_ + _%val118991%_ 'gx#runtime-binding::t) (eq? (##unchecked-structure-ref - _%val118885%_ + _%val118991%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118963%_ + _%xval119069%_ '1 '#f '#f)))) - _%val118885%_ + _%val118991%_ (if (and (##structure-direct-instance-of? - _%val118885%_ + _%val118991%_ 'gx#import-binding::t) (or (##unchecked-structure-ref - _%val118885%_ + _%val118991%_ '6 '#f '#f) (and (##structure-instance-of? - _%xval118963%_ + _%xval119069%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%val118885%_ + _%val118991%_ '1 '#f '#f) (##unchecked-structure-ref - _%xval118963%_ + _%xval119069%_ '1 '#f '#f))))) - _%xval118963%_ + _%xval119069%_ (if (and (##structure-direct-instance-of? - _%val118885%_ + _%val118991%_ 'gx#import-binding::t) (##structure-instance-of? - _%xval118963%_ + _%xval119069%_ 'gx#binding::t)) (gx#raise-syntax-error '#f '"Bad binding; import conflict" - _%key118884%_ + _%key118990%_ (cons (##unchecked-structure-ref - _%val118885%_ + _%val118991%_ '1 '#f '#f) (cons (##structure-ref (##unchecked-structure-ref - _%val118885%_ + _%val118991%_ '5 '#f '#f) @@ -2796,175 +2797,175 @@ '#f) '())) (cons (##unchecked-structure-ref - _%xval118963%_ + _%xval119069%_ '1 '#f '#f) (cons (if (##structure-direct-instance-of? - _%xval118963%_ + _%xval119069%_ 'gx#import-binding::t) (##structure-ref (##unchecked-structure-ref - _%xval118963%_ + _%xval119069%_ '5 '#f '#f) '1 gx#expander-context::t '#f) - _%xval118963%_) + _%xval119069%_) '()))) (gx#raise-syntax-error '#f '"Bad binding; rebind conflict" - _%key118884%_ - _%val118885%_ - _%xval118963%_)))))) - (_%gensubst118891%_ - (lambda (_%subst118958%_ _%id118959%_) - (let ((_%eid118961%_ - (gensym (if (uninterned-symbol? _%id118959%_) + _%key118990%_ + _%val118991%_ + _%xval119069%_)))))) + (_%gensubst118997%_ + (lambda (_%subst119064%_ _%id119065%_) + (let ((_%eid119067%_ + (gensym (if (uninterned-symbol? _%id119065%_) '% - _%id118959%_)))) - (hash-put! _%subst118958%_ _%id118959%_ _%eid118961%_) - _%eid118961%_))) - (_%subst!118892%_ - (lambda (_%key118894%_) - (let* ((_%key118895118903%_ _%key118894%_) - (_%else118897118911%_ (lambda () _%key118894%_)) - (_%K118899118946%_ - (lambda (_%mark118914%_ _%id118915%_) - (let* ((_%mark118916118922%_ _%mark118914%_) - (_%E118918118926%_ + _%id119065%_)))) + (hash-put! _%subst119064%_ _%id119065%_ _%eid119067%_) + _%eid119067%_))) + (_%subst!118998%_ + (lambda (_%key119000%_) + (let* ((_%key119001119009%_ _%key119000%_) + (_%else119003119017%_ (lambda () _%key119000%_)) + (_%K119005119052%_ + (lambda (_%mark119020%_ _%id119021%_) + (let* ((_%mark119022119028%_ _%mark119020%_) + (_%E119024119032%_ (lambda () (error '"No clause matching" - _%mark118916118922%_ + _%mark119022119028%_ '((expander-mark subst))) '#!void)) - (_%K118919118938%_ - (lambda (_%subst118929%_) - (if (not _%subst118929%_) - (let ((_%subst118932%_ + (_%K119025119044%_ + (lambda (_%subst119035%_) + (if (not _%subst119035%_) + (let ((_%subst119038%_ (make-hash-table-eq))) (##unchecked-structure-set! - _%mark118914%_ - _%subst118932%_ + _%mark119020%_ + _%subst119038%_ '1 '#f '#f) - (_%gensubst118891%_ - _%subst118932%_ - _%id118915%_)) - (let ((_%$e118934%_ + (_%gensubst118997%_ + _%subst119038%_ + _%id119021%_)) + (let ((_%$e119040%_ (hash-get - _%subst118929%_ - _%id118915%_))) - (if _%$e118934%_ - _%$e118934%_ - (_%gensubst118891%_ - _%subst118929%_ - _%id118915%_))))))) + _%subst119035%_ + _%id119021%_))) + (if _%$e119040%_ + _%$e119040%_ + (_%gensubst118997%_ + _%subst119035%_ + _%id119021%_))))))) (if (##structure-instance-of? - _%mark118916118922%_ + _%mark119022119028%_ 'gx#expander-mark::t) - (let* ((_%e118920118941%_ + (let* ((_%e119026119047%_ (##unchecked-structure-ref - _%mark118916118922%_ + _%mark119022119028%_ '1 '#f '#f)) - (_%subst118944%_ _%e118920118941%_)) - (_%K118919118938%_ _%subst118944%_)) - (_%E118918118926%_)))))) - (if (pair? _%key118895118903%_) - (let ((_%hd118900118949%_ - (##car _%key118895118903%_)) - (_%tl118901118951%_ - (##cdr _%key118895118903%_))) - (let* ((_%id118954%_ _%hd118900118949%_) - (_%mark118956%_ _%tl118901118951%_)) - (_%K118899118946%_ _%mark118956%_ _%id118954%_))) - (_%else118897118911%_)))))) + (_%subst119050%_ _%e119026119047%_)) + (_%K119025119044%_ _%subst119050%_)) + (_%E119024119032%_)))))) + (if (pair? _%key119001119009%_) + (let ((_%hd119006119055%_ + (##car _%key119001119009%_)) + (_%tl119007119057%_ + (##cdr _%key119001119009%_))) + (let* ((_%id119060%_ _%hd119006119055%_) + (_%mark119062%_ _%tl119007119057%_)) + (_%K119005119052%_ _%mark119062%_ _%id119060%_))) + (_%else119003119017%_)))))) (gx#core-context-bind! - (gx#core-context-shift _%ctx118888%_ _%phi118887%_) - (_%subst!118892%_ _%key118884%_) - _%val118885%_ - _%update-binding118890%_)))) + (gx#core-context-shift _%ctx118994%_ _%phi118993%_) + (_%subst!118998%_ _%key118990%_) + _%val118991%_ + _%update-binding118996%_)))) (define gx#core-bind!__0 - (lambda (_%key118984%_ _%val118985%_) - (let* ((_%rebind?118987%_ false) - (_%phi118989%_ (gx#current-expander-phi)) - (_%ctx118991%_ (gx#current-expander-context))) + (lambda (_%key119090%_ _%val119091%_) + (let* ((_%rebind?119093%_ false) + (_%phi119095%_ (gx#current-expander-phi)) + (_%ctx119097%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118984%_ - _%val118985%_ - _%rebind?118987%_ - _%phi118989%_ - _%ctx118991%_)))) + _%key119090%_ + _%val119091%_ + _%rebind?119093%_ + _%phi119095%_ + _%ctx119097%_)))) (define gx#core-bind!__1 - (lambda (_%key118993%_ _%val118994%_ _%rebind?118995%_) - (let* ((_%phi118997%_ (gx#current-expander-phi)) - (_%ctx118999%_ (gx#current-expander-context))) + (lambda (_%key119099%_ _%val119100%_ _%rebind?119101%_) + (let* ((_%phi119103%_ (gx#current-expander-phi)) + (_%ctx119105%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key118993%_ - _%val118994%_ - _%rebind?118995%_ - _%phi118997%_ - _%ctx118999%_)))) + _%key119099%_ + _%val119100%_ + _%rebind?119101%_ + _%phi119103%_ + _%ctx119105%_)))) (define gx#core-bind!__2 - (lambda (_%key119001%_ _%val119002%_ _%rebind?119003%_ _%phi119004%_) - (let ((_%ctx119006%_ (gx#current-expander-context))) + (lambda (_%key119107%_ _%val119108%_ _%rebind?119109%_ _%phi119110%_) + (let ((_%ctx119112%_ (gx#current-expander-context))) (gx#core-bind!__% - _%key119001%_ - _%val119002%_ - _%rebind?119003%_ - _%phi119004%_ - _%ctx119006%_)))) + _%key119107%_ + _%val119108%_ + _%rebind?119109%_ + _%phi119110%_ + _%ctx119112%_)))) (define gx#core-bind! - (lambda _g121555_ - (let ((_g121554_ (##length _g121555_))) - (cond ((##fx= _g121554_ 2) (apply gx#core-bind!__0 _g121555_)) - ((##fx= _g121554_ 3) (apply gx#core-bind!__1 _g121555_)) - ((##fx= _g121554_ 4) (apply gx#core-bind!__2 _g121555_)) - ((##fx= _g121554_ 5) (apply gx#core-bind!__% _g121555_)) + (lambda _g121661_ + (let ((_g121660_ (##length _g121661_))) + (cond ((##fx= _g121660_ 2) (apply gx#core-bind!__0 _g121661_)) + ((##fx= _g121660_ 3) (apply gx#core-bind!__1 _g121661_)) + ((##fx= _g121660_ 4) (apply gx#core-bind!__2 _g121661_)) + ((##fx= _g121660_ 5) (apply gx#core-bind!__% _g121661_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind! - _g121555_)))))) + _g121661_)))))) (define gx#core-identifier-key - (lambda (_%stx118815%_) - (if (symbol? _%stx118815%_) - (let* ((_%g118817118825%_ (gx#current-expander-marks)) - (_%else118819118833%_ (lambda () _%stx118815%_)) - (_%K118821118838%_ - (lambda (_%hd118836%_) (cons _%stx118815%_ _%hd118836%_)))) - (if (pair? _%g118817118825%_) - (let* ((_%hd118822118841%_ (##car _%g118817118825%_)) - (_%hd118844%_ _%hd118822118841%_)) - (_%K118821118838%_ _%hd118844%_)) - (_%else118819118833%_))) - (if (gx#identifier? _%stx118815%_) - (let* ((_%id118847%_ (gx#syntax-local-unwrap _%stx118815%_)) - (_%eid118849%_ (gx#stx-e _%id118847%_)) - (_%marks118851%_ - (gx#stx-identifier-marks* _%id118847%_)) - (_%marks118853118861%_ _%marks118851%_) - (_%else118855118869%_ (lambda () _%eid118849%_)) - (_%K118857118874%_ - (lambda (_%hd118872%_) - (cons _%eid118849%_ _%hd118872%_)))) - (if (pair? _%marks118853118861%_) - (let* ((_%hd118858118877%_ (##car _%marks118853118861%_)) - (_%hd118880%_ _%hd118858118877%_)) - (_%K118857118874%_ _%hd118880%_)) - (_%else118855118869%_))) - (gx#raise-syntax-error '#f '"Bad identifier" _%stx118815%_))))) + (lambda (_%stx118921%_) + (if (symbol? _%stx118921%_) + (let* ((_%g118923118931%_ (gx#current-expander-marks)) + (_%else118925118939%_ (lambda () _%stx118921%_)) + (_%K118927118944%_ + (lambda (_%hd118942%_) (cons _%stx118921%_ _%hd118942%_)))) + (if (pair? _%g118923118931%_) + (let* ((_%hd118928118947%_ (##car _%g118923118931%_)) + (_%hd118950%_ _%hd118928118947%_)) + (_%K118927118944%_ _%hd118950%_)) + (_%else118925118939%_))) + (if (gx#identifier? _%stx118921%_) + (let* ((_%id118953%_ (gx#syntax-local-unwrap _%stx118921%_)) + (_%eid118955%_ (gx#stx-e _%id118953%_)) + (_%marks118957%_ + (gx#stx-identifier-marks* _%id118953%_)) + (_%marks118959118967%_ _%marks118957%_) + (_%else118961118975%_ (lambda () _%eid118955%_)) + (_%K118963118980%_ + (lambda (_%hd118978%_) + (cons _%eid118955%_ _%hd118978%_)))) + (if (pair? _%marks118959118967%_) + (let* ((_%hd118964118983%_ (##car _%marks118959118967%_)) + (_%hd118986%_ _%hd118964118983%_)) + (_%K118963118980%_ _%hd118986%_)) + (_%else118961118975%_))) + (gx#raise-syntax-error '#f '"Bad identifier" _%stx118921%_))))) (define gx#&phi-context? gx#phi-context?) (define gx#core-context-shift - (lambda (_%ctx118754%_ _%phi118755%_) - (letrec ((_%make-phi118757%_ - (lambda (_%super118813%_) - (let ((__obj121527 + (lambda (_%ctx118860%_ _%phi118861%_) + (letrec ((_%make-phi118863%_ + (lambda (_%super118919%_) + (let ((__obj121633 (##structure gx#phi-context::t '#f @@ -2973,579 +2974,579 @@ '#f '#f))) (gx#phi-context:::init!__% - __obj121527 + __obj121633 (##gensym 'phi) - _%super118813%_) - __obj121527))) - (_%make-phi/up118758%_ - (lambda (_%ctx118808%_ _%super118809%_) - (let ((_%ctx+1118811%_ - (_%make-phi118757%_ _%super118809%_))) + _%super118919%_) + __obj121633))) + (_%make-phi/up118864%_ + (lambda (_%ctx118914%_ _%super118915%_) + (let ((_%ctx+1118917%_ + (_%make-phi118863%_ _%super118915%_))) (##unchecked-structure-set! - _%ctx118808%_ - _%ctx+1118811%_ + _%ctx118914%_ + _%ctx+1118917%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx+1118811%_ - _%ctx118808%_ + _%ctx+1118917%_ + _%ctx118914%_ '5 '#f '#f) - _%ctx+1118811%_))) - (_%make-phi/down118759%_ - (lambda (_%ctx118803%_ _%super118804%_) - (let ((_%ctx-1118806%_ - (_%make-phi118757%_ _%super118804%_))) + _%ctx+1118917%_))) + (_%make-phi/down118865%_ + (lambda (_%ctx118909%_ _%super118910%_) + (let ((_%ctx-1118912%_ + (_%make-phi118863%_ _%super118910%_))) (##unchecked-structure-set! - _%ctx-1118806%_ - _%ctx118803%_ + _%ctx-1118912%_ + _%ctx118909%_ '4 '#f '#f) (##unchecked-structure-set! - _%ctx118803%_ - _%ctx-1118806%_ + _%ctx118909%_ + _%ctx-1118912%_ '5 '#f '#f) - _%ctx-1118806%_))) - (_%shift118760%_ - (lambda (_%ctx118786%_ - _%delta118787%_ - _%make-delta-context118788%_ - _%phi118789%_ - _%K118790%_) - (let ((_%$e118792%_ + _%ctx-1118912%_))) + (_%shift118866%_ + (lambda (_%ctx118892%_ + _%delta118893%_ + _%make-delta-context118894%_ + _%phi118895%_ + _%K118896%_) + (let ((_%$e118898%_ (##unchecked-structure-ref - _%ctx118786%_ + _%ctx118892%_ '3 '#f '#f))) - (if _%$e118792%_ - ((lambda (_%super118795%_) - (let* ((_%super118797%_ - (_%K118790%_ - _%super118795%_ - _%delta118787%_)) - (_%ctx+d118799%_ - (_%make-delta-context118788%_ - _%ctx118786%_ - _%super118797%_))) - (_%K118790%_ - _%ctx+d118799%_ - (fx- _%phi118789%_ _%delta118787%_)))) - _%$e118792%_) - (error '"Bad context" _%ctx118786%_)))))) - (let _%K118762%_ ((_%ctx118764%_ _%ctx118754%_) - (_%phi118765%_ _%phi118755%_)) - (if (fxzero? _%phi118765%_) - _%ctx118764%_ - (if (##structure-instance-of? _%ctx118764%_ 'gx#phi-context::t) - (if (fxpositive? _%phi118765%_) - (let ((_%$e118769%_ + (if _%$e118898%_ + ((lambda (_%super118901%_) + (let* ((_%super118903%_ + (_%K118896%_ + _%super118901%_ + _%delta118893%_)) + (_%ctx+d118905%_ + (_%make-delta-context118894%_ + _%ctx118892%_ + _%super118903%_))) + (_%K118896%_ + _%ctx+d118905%_ + (fx- _%phi118895%_ _%delta118893%_)))) + _%$e118898%_) + (error '"Bad context" _%ctx118892%_)))))) + (let _%K118868%_ ((_%ctx118870%_ _%ctx118860%_) + (_%phi118871%_ _%phi118861%_)) + (if (fxzero? _%phi118871%_) + _%ctx118870%_ + (if (##structure-instance-of? _%ctx118870%_ 'gx#phi-context::t) + (if (fxpositive? _%phi118871%_) + (let ((_%$e118875%_ (##unchecked-structure-ref - _%ctx118764%_ + _%ctx118870%_ '4 '#f '#f))) - (if _%$e118769%_ - ((lambda (_%g118771118773%_) - (_%K118762%_ - _%g118771118773%_ - (##fx- _%phi118765%_ '1))) - _%$e118769%_) - (_%shift118760%_ - _%ctx118764%_ + (if _%$e118875%_ + ((lambda (_%g118877118879%_) + (_%K118868%_ + _%g118877118879%_ + (##fx- _%phi118871%_ '1))) + _%$e118875%_) + (_%shift118866%_ + _%ctx118870%_ '1 - _%make-phi/up118758%_ - _%phi118765%_ - _%K118762%_))) - (let ((_%$e118777%_ + _%make-phi/up118864%_ + _%phi118871%_ + _%K118868%_))) + (let ((_%$e118883%_ (##unchecked-structure-ref - _%ctx118764%_ + _%ctx118870%_ '5 '#f '#f))) - (if _%$e118777%_ - ((lambda (_%g118779118781%_) - (_%K118762%_ - _%g118779118781%_ - (##fx+ _%phi118765%_ '1))) - _%$e118777%_) - (_%shift118760%_ - _%ctx118764%_ + (if _%$e118883%_ + ((lambda (_%g118885118887%_) + (_%K118868%_ + _%g118885118887%_ + (##fx+ _%phi118871%_ '1))) + _%$e118883%_) + (_%shift118866%_ + _%ctx118870%_ '-1 - _%make-phi/down118759%_ - _%phi118765%_ - _%K118762%_)))) - _%ctx118764%_)))))) + _%make-phi/down118865%_ + _%phi118871%_ + _%K118868%_)))) + _%ctx118870%_)))))) (define gx#core-context-get - (lambda (_%ctx118751%_ _%key118752%_) + (lambda (_%ctx118857%_ _%key118858%_) (hash-get - (##unchecked-structure-ref _%ctx118751%_ '2 '#f '#f) - _%key118752%_))) + (##unchecked-structure-ref _%ctx118857%_ '2 '#f '#f) + _%key118858%_))) (define gx#core-context-put! - (lambda (_%ctx118747%_ _%key118748%_ _%val118749%_) + (lambda (_%ctx118853%_ _%key118854%_ _%val118855%_) (hash-put! - (##unchecked-structure-ref _%ctx118747%_ '2 '#f '#f) - _%key118748%_ - _%val118749%_))) + (##unchecked-structure-ref _%ctx118853%_ '2 '#f '#f) + _%key118854%_ + _%val118855%_))) (define gx#core-context-resolve - (lambda (_%ctx118733%_ _%key118734%_) - (let _%lp118736%_ ((_%ctx118738%_ _%ctx118733%_)) - (let ((_%$e118740%_ - (gx#core-context-get _%ctx118738%_ _%key118734%_))) - (if _%$e118740%_ - _%$e118740%_ - (let ((_%$e118743%_ + (lambda (_%ctx118839%_ _%key118840%_) + (let _%lp118842%_ ((_%ctx118844%_ _%ctx118839%_)) + (let ((_%$e118846%_ + (gx#core-context-get _%ctx118844%_ _%key118840%_))) + (if _%$e118846%_ + _%$e118846%_ + (let ((_%$e118849%_ (if (##structure-instance-of? - _%ctx118738%_ + _%ctx118844%_ 'gx#phi-context::t) - (##unchecked-structure-ref _%ctx118738%_ '3 '#f '#f) + (##unchecked-structure-ref _%ctx118844%_ '3 '#f '#f) '#f))) - (if _%$e118743%_ (_%lp118736%_ _%$e118743%_) '#f))))))) + (if _%$e118849%_ (_%lp118842%_ _%$e118849%_) '#f))))))) (define gx#core-context-bind! - (lambda (_%ctx118722%_ _%key118723%_ _%val118724%_ _%rebind118725%_) - (let ((_%$e118727%_ (gx#core-context-get _%ctx118722%_ _%key118723%_))) - (if _%$e118727%_ - ((lambda (_%xval118730%_) + (lambda (_%ctx118828%_ _%key118829%_ _%val118830%_ _%rebind118831%_) + (let ((_%$e118833%_ (gx#core-context-get _%ctx118828%_ _%key118829%_))) + (if _%$e118833%_ + ((lambda (_%xval118836%_) (gx#core-context-put! - _%ctx118722%_ - _%key118723%_ - (_%rebind118725%_ _%xval118730%_))) - _%$e118727%_) + _%ctx118828%_ + _%key118829%_ + (_%rebind118831%_ _%xval118836%_))) + _%$e118833%_) (gx#core-context-put! - _%ctx118722%_ - _%key118723%_ - _%val118724%_))))) + _%ctx118828%_ + _%key118829%_ + _%val118830%_))))) (define gx#core-context-top__% - (lambda (_%ctx118697%_ _%stop?118698%_) - (let _%lp118700%_ ((_%ctx118702%_ _%ctx118697%_)) - (if (_%stop?118698%_ _%ctx118702%_) - _%ctx118702%_ - (if (##structure-instance-of? _%ctx118702%_ 'gx#phi-context::t) - (_%lp118700%_ - (##unchecked-structure-ref _%ctx118702%_ '3 '#f '#f)) + (lambda (_%ctx118803%_ _%stop?118804%_) + (let _%lp118806%_ ((_%ctx118808%_ _%ctx118803%_)) + (if (_%stop?118804%_ _%ctx118808%_) + _%ctx118808%_ + (if (##structure-instance-of? _%ctx118808%_ 'gx#phi-context::t) + (_%lp118806%_ + (##unchecked-structure-ref _%ctx118808%_ '3 '#f '#f)) '#f))))) (define gx#core-context-top__0 (lambda () - (let* ((_%ctx118711%_ (gx#current-expander-context)) - (_%stop?118713%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118711%_ _%stop?118713%_)))) + (let* ((_%ctx118817%_ (gx#current-expander-context)) + (_%stop?118819%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118817%_ _%stop?118819%_)))) (define gx#core-context-top__1 - (lambda (_%ctx118715%_) - (let ((_%stop?118717%_ gx#top-context?)) - (gx#core-context-top__% _%ctx118715%_ _%stop?118717%_)))) + (lambda (_%ctx118821%_) + (let ((_%stop?118823%_ gx#top-context?)) + (gx#core-context-top__% _%ctx118821%_ _%stop?118823%_)))) (define gx#core-context-top - (lambda _g121557_ - (let ((_g121556_ (##length _g121557_))) - (cond ((##fx= _g121556_ 0) (apply gx#core-context-top__0 _g121557_)) - ((##fx= _g121556_ 1) (apply gx#core-context-top__1 _g121557_)) - ((##fx= _g121556_ 2) (apply gx#core-context-top__% _g121557_)) + (lambda _g121663_ + (let ((_g121662_ (##length _g121663_))) + (cond ((##fx= _g121662_ 0) (apply gx#core-context-top__0 _g121663_)) + ((##fx= _g121662_ 1) (apply gx#core-context-top__1 _g121663_)) + ((##fx= _g121662_ 2) (apply gx#core-context-top__% _g121663_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-top - _g121557_)))))) + _g121663_)))))) (define gx#core-context-root__% - (lambda (_%ctx118682%_) - (let _%lp118684%_ ((_%ctx118686%_ _%ctx118682%_)) - (if (##structure-instance-of? _%ctx118686%_ 'gx#phi-context::t) - (_%lp118684%_ - (##unchecked-structure-ref _%ctx118686%_ '3 '#f '#f)) - _%ctx118686%_)))) + (lambda (_%ctx118788%_) + (let _%lp118790%_ ((_%ctx118792%_ _%ctx118788%_)) + (if (##structure-instance-of? _%ctx118792%_ 'gx#phi-context::t) + (_%lp118790%_ + (##unchecked-structure-ref _%ctx118792%_ '3 '#f '#f)) + _%ctx118792%_)))) (define gx#core-context-root__0 (lambda () - (let ((_%ctx118692%_ (gx#current-expander-context))) - (gx#core-context-root__% _%ctx118692%_)))) + (let ((_%ctx118798%_ (gx#current-expander-context))) + (gx#core-context-root__% _%ctx118798%_)))) (define gx#core-context-root - (lambda _g121559_ - (let ((_g121558_ (##length _g121559_))) - (cond ((##fx= _g121558_ 0) (apply gx#core-context-root__0 _g121559_)) - ((##fx= _g121558_ 1) (apply gx#core-context-root__% _g121559_)) + (lambda _g121665_ + (let ((_g121664_ (##length _g121665_))) + (cond ((##fx= _g121664_ 0) (apply gx#core-context-root__0 _g121665_)) + ((##fx= _g121664_ 1) (apply gx#core-context-root__% _g121665_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-root - _g121559_)))))) + _g121665_)))))) (define gx#core-context-rebind?__% - (lambda (_%ctx118664%_ . _%ignore118665%_) - (let ((_%$e118667%_ (gx#current-expander-allow-rebind?))) - (if _%$e118667%_ - _%$e118667%_ - (if (##structure-instance-of? _%ctx118664%_ 'gx#top-context::t) + (lambda (_%ctx118770%_ . _%ignore118771%_) + (let ((_%$e118773%_ (gx#current-expander-allow-rebind?))) + (if _%$e118773%_ + _%$e118773%_ + (if (##structure-instance-of? _%ctx118770%_ 'gx#top-context::t) (if (##structure-instance-of? - _%ctx118664%_ + _%ctx118770%_ 'gx#module-context::t) '#f (not (##structure-instance-of? - _%ctx118664%_ + _%ctx118770%_ 'gx#prelude-context::t))) '#f))))) (define gx#core-context-rebind?__0 (lambda () - (let ((_%ctx118674%_ (gx#current-expander-context))) - (gx#core-context-rebind?__% _%ctx118674%_)))) + (let ((_%ctx118780%_ (gx#current-expander-context))) + (gx#core-context-rebind?__% _%ctx118780%_)))) (define gx#core-context-rebind? - (lambda _g121561_ - (let ((_g121560_ (##length _g121561_))) - (cond ((##fx= _g121560_ 0) - (apply gx#core-context-rebind?__0 _g121561_)) - ((##fx= _g121560_ 1) - (apply gx#core-context-rebind?__% _g121561_)) - ((##fx>= _g121560_ 1) - (apply gx#core-context-rebind?__% _g121561_)) + (lambda _g121667_ + (let ((_g121666_ (##length _g121667_))) + (cond ((##fx= _g121666_ 0) + (apply gx#core-context-rebind?__0 _g121667_)) + ((##fx= _g121666_ 1) + (apply gx#core-context-rebind?__% _g121667_)) + ((##fx>= _g121666_ 1) + (apply gx#core-context-rebind?__% _g121667_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-rebind? - _g121561_)))))) + _g121667_)))))) (define gx#core-context-namespace__% - (lambda (_%ctx118647%_) - (let ((_%$e118649%_ (gx#core-context-top__1 _%ctx118647%_))) - (if _%$e118649%_ - ((lambda (_%ctx118652%_) + (lambda (_%ctx118753%_) + (let ((_%$e118755%_ (gx#core-context-top__1 _%ctx118753%_))) + (if _%$e118755%_ + ((lambda (_%ctx118758%_) (if (##structure-instance-of? - _%ctx118652%_ + _%ctx118758%_ 'gx#module-context::t) - (##unchecked-structure-ref _%ctx118652%_ '6 '#f '#f) + (##unchecked-structure-ref _%ctx118758%_ '6 '#f '#f) '#f)) - _%$e118649%_) + _%$e118755%_) '#f)))) (define gx#core-context-namespace__0 (lambda () - (let ((_%ctx118659%_ (gx#current-expander-context))) - (gx#core-context-namespace__% _%ctx118659%_)))) + (let ((_%ctx118765%_ (gx#current-expander-context))) + (gx#core-context-namespace__% _%ctx118765%_)))) (define gx#core-context-namespace - (lambda _g121563_ - (let ((_g121562_ (##length _g121563_))) - (cond ((##fx= _g121562_ 0) - (apply gx#core-context-namespace__0 _g121563_)) - ((##fx= _g121562_ 1) - (apply gx#core-context-namespace__% _g121563_)) + (lambda _g121669_ + (let ((_g121668_ (##length _g121669_))) + (cond ((##fx= _g121668_ 0) + (apply gx#core-context-namespace__0 _g121669_)) + ((##fx= _g121668_ 1) + (apply gx#core-context-namespace__% _g121669_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-namespace - _g121563_)))))) + _g121669_)))))) (define gx#expander-binding?__% - (lambda (_%bind118633%_ _%is?118634%_) + (lambda (_%bind118739%_ _%is?118740%_) (if (##structure-direct-instance-of? - _%bind118633%_ + _%bind118739%_ 'gx#syntax-binding::t) - (_%is?118634%_ - (##unchecked-structure-ref _%bind118633%_ '4 '#f '#f)) + (_%is?118740%_ + (##unchecked-structure-ref _%bind118739%_ '4 '#f '#f)) '#f))) (define gx#expander-binding?__0 - (lambda (_%bind118639%_) - (let ((_%is?118641%_ gx#expander?)) - (gx#expander-binding?__% _%bind118639%_ _%is?118641%_)))) + (lambda (_%bind118745%_) + (let ((_%is?118747%_ gx#expander?)) + (gx#expander-binding?__% _%bind118745%_ _%is?118747%_)))) (define gx#expander-binding? - (lambda _g121565_ - (let ((_g121564_ (##length _g121565_))) - (cond ((##fx= _g121564_ 1) (apply gx#expander-binding?__0 _g121565_)) - ((##fx= _g121564_ 2) (apply gx#expander-binding?__% _g121565_)) + (lambda _g121671_ + (let ((_g121670_ (##length _g121671_))) + (cond ((##fx= _g121670_ 1) (apply gx#expander-binding?__0 _g121671_)) + ((##fx= _g121670_ 2) (apply gx#expander-binding?__% _g121671_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-binding? - _g121565_)))))) + _g121671_)))))) (define gx#core-expander-binding? - (lambda (_%bind118630%_) - (gx#expander-binding?__% _%bind118630%_ gx#core-expander?))) + (lambda (_%bind118736%_) + (gx#expander-binding?__% _%bind118736%_ gx#core-expander?))) (define gx#expression-form-binding? - (lambda (_%bind118628%_) - (gx#expander-binding?__% _%bind118628%_ gx#expression-form?))) + (lambda (_%bind118734%_) + (gx#expander-binding?__% _%bind118734%_ gx#expression-form?))) (define gx#direct-special-form-binding? - (lambda (_%bind118622%_) - (letrec ((_%direct-special-form?118624%_ - (lambda (_%obj118626%_) + (lambda (_%bind118728%_) + (letrec ((_%direct-special-form?118730%_ + (lambda (_%obj118732%_) (##structure-direct-instance-of? - _%obj118626%_ + _%obj118732%_ (##type-id gx#special-form::t))))) (gx#expander-binding?__% - _%bind118622%_ - _%direct-special-form?118624%_)))) + _%bind118728%_ + _%direct-special-form?118730%_)))) (define gx#special-form-binding? - (lambda (_%bind118620%_) - (gx#expander-binding?__% _%bind118620%_ gx#special-form?))) + (lambda (_%bind118726%_) + (gx#expander-binding?__% _%bind118726%_ gx#special-form?))) (define gx#feature-binding? - (lambda (_%bind118611%_) - (letrec ((_%feature?118613%_ - (lambda (_%e118615%_) - (let ((_%$e118617%_ + (lambda (_%bind118717%_) + (letrec ((_%feature?118719%_ + (lambda (_%e118721%_) + (let ((_%$e118723%_ (##structure-instance-of? - _%e118615%_ + _%e118721%_ 'gx#feature-expander::t))) - (if _%$e118617%_ - _%$e118617%_ + (if _%$e118723%_ + _%$e118723%_ (##structure-instance-of? - _%e118615%_ + _%e118721%_ 'gx#module-context::t)))))) - (gx#expander-binding?__% _%bind118611%_ _%feature?118613%_)))) + (gx#expander-binding?__% _%bind118717%_ _%feature?118719%_)))) (define gx#private-feature-binding? - (lambda (_%bind118609%_) - (gx#expander-binding?__% _%bind118609%_ gx#private-feature-expander?))) + (lambda (_%bind118715%_) + (gx#expander-binding?__% _%bind118715%_ gx#private-feature-expander?))) (define gx#core-bound-identifier?__% - (lambda (_%id118596%_ _%bound?118597%_) - (if (gx#identifier? _%id118596%_) - (_%bound?118597%_ (gx#resolve-identifier__0 _%id118596%_)) + (lambda (_%id118702%_ _%bound?118703%_) + (if (gx#identifier? _%id118702%_) + (_%bound?118703%_ (gx#resolve-identifier__0 _%id118702%_)) '#f))) (define gx#core-bound-identifier?__0 - (lambda (_%id118602%_) - (let ((_%bound?118604%_ gx#core-expander-binding?)) - (gx#core-bound-identifier?__% _%id118602%_ _%bound?118604%_)))) + (lambda (_%id118708%_) + (let ((_%bound?118710%_ gx#core-expander-binding?)) + (gx#core-bound-identifier?__% _%id118708%_ _%bound?118710%_)))) (define gx#core-bound-identifier? - (lambda _g121567_ - (let ((_g121566_ (##length _g121567_))) - (cond ((##fx= _g121566_ 1) - (apply gx#core-bound-identifier?__0 _g121567_)) - ((##fx= _g121566_ 2) - (apply gx#core-bound-identifier?__% _g121567_)) + (lambda _g121673_ + (let ((_g121672_ (##length _g121673_))) + (cond ((##fx= _g121672_ 1) + (apply gx#core-bound-identifier?__0 _g121673_)) + ((##fx= _g121672_ 2) + (apply gx#core-bound-identifier?__% _g121673_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bound-identifier? - _g121567_)))))) + _g121673_)))))) (define gx#core-identifier=? - (lambda (_%x118586%_ _%y118587%_) - (letrec ((_%y=?118589%_ - (lambda (_%xid118593%_) - ((if (list? _%y118587%_) memq eq?) - _%xid118593%_ - _%y118587%_)))) - (let ((_%bind118591%_ (gx#resolve-identifier__0 _%x118586%_))) - (if (##structure-instance-of? _%bind118591%_ 'gx#binding::t) - (_%y=?118589%_ - (##unchecked-structure-ref _%bind118591%_ '1 '#f '#f)) - (_%y=?118589%_ (gx#stx-e _%x118586%_))))))) + (lambda (_%x118692%_ _%y118693%_) + (letrec ((_%y=?118695%_ + (lambda (_%xid118699%_) + ((if (list? _%y118693%_) memq eq?) + _%xid118699%_ + _%y118693%_)))) + (let ((_%bind118697%_ (gx#resolve-identifier__0 _%x118692%_))) + (if (##structure-instance-of? _%bind118697%_ 'gx#binding::t) + (_%y=?118695%_ + (##unchecked-structure-ref _%bind118697%_ '1 '#f '#f)) + (_%y=?118695%_ (gx#stx-e _%x118692%_))))))) (define gx#core-extern-symbol? - (lambda (_%e118584%_) - (if (interned-symbol? _%e118584%_) - (string-index__0 (symbol->string _%e118584%_) '#\#) + (lambda (_%e118690%_) + (if (interned-symbol? _%e118690%_) + (string-index__0 (symbol->string _%e118690%_) '#\#) '#f))) (define gx#core-quote-syntax__% - (lambda (_%stx118537%_ _%src118538%_ _%ctx118539%_ _%marks118540%_) - (if (##structure? _%stx118537%_) - (let ((_%$e118542%_ (gx#sealed-syntax-unwrap _%stx118537%_))) - (if _%$e118542%_ - _%$e118542%_ - (if (gx#identifier? _%stx118537%_) - (let ((_%id118546%_ - (gx#stx-unwrap__% _%stx118537%_ _%marks118540%_))) + (lambda (_%stx118643%_ _%src118644%_ _%ctx118645%_ _%marks118646%_) + (if (##structure? _%stx118643%_) + (let ((_%$e118648%_ (gx#sealed-syntax-unwrap _%stx118643%_))) + (if _%$e118648%_ + _%$e118648%_ + (if (gx#identifier? _%stx118643%_) + (let ((_%id118652%_ + (gx#stx-unwrap__% _%stx118643%_ _%marks118646%_))) (##structure gx#syntax-quote::t - (##unchecked-structure-ref _%id118546%_ '1 '#f '#f) - (let ((_%$e118548%_ + (##unchecked-structure-ref _%id118652%_ '1 '#f '#f) + (let ((_%$e118654%_ (##unchecked-structure-ref - _%id118546%_ + _%id118652%_ '2 '#f '#f))) - (if _%$e118548%_ _%$e118548%_ _%src118538%_)) - _%ctx118539%_ - (##unchecked-structure-ref _%id118546%_ '3 '#f '#f))) + (if _%$e118654%_ _%$e118654%_ _%src118644%_)) + _%ctx118645%_ + (##unchecked-structure-ref _%id118652%_ '3 '#f '#f))) (##structure gx#syntax-quote::t - (gx#stx-e _%stx118537%_) - (let ((_%$e118552%_ (gx#stx-source _%stx118537%_))) - (if _%$e118552%_ _%$e118552%_ _%src118538%_)) - _%ctx118539%_ - (reverse _%marks118540%_))))) + (gx#stx-e _%stx118643%_) + (let ((_%$e118658%_ (gx#stx-source _%stx118643%_))) + (if _%$e118658%_ _%$e118658%_ _%src118644%_)) + _%ctx118645%_ + (reverse _%marks118646%_))))) (##structure gx#syntax-quote::t - _%stx118537%_ - _%src118538%_ - _%ctx118539%_ - (reverse _%marks118540%_))))) + _%stx118643%_ + _%src118644%_ + _%ctx118645%_ + (reverse _%marks118646%_))))) (define gx#core-quote-syntax__0 - (lambda (_%stx118558%_) - (let* ((_%src118560%_ '#f) - (_%ctx118562%_ (gx#current-expander-context)) - (_%marks118564%_ (gx#current-expander-marks))) + (lambda (_%stx118664%_) + (let* ((_%src118666%_ '#f) + (_%ctx118668%_ (gx#current-expander-context)) + (_%marks118670%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118558%_ - _%src118560%_ - _%ctx118562%_ - _%marks118564%_)))) + _%stx118664%_ + _%src118666%_ + _%ctx118668%_ + _%marks118670%_)))) (define gx#core-quote-syntax__1 - (lambda (_%stx118566%_ _%src118567%_) - (let* ((_%ctx118569%_ (gx#current-expander-context)) - (_%marks118571%_ (gx#current-expander-marks))) + (lambda (_%stx118672%_ _%src118673%_) + (let* ((_%ctx118675%_ (gx#current-expander-context)) + (_%marks118677%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118566%_ - _%src118567%_ - _%ctx118569%_ - _%marks118571%_)))) + _%stx118672%_ + _%src118673%_ + _%ctx118675%_ + _%marks118677%_)))) (define gx#core-quote-syntax__2 - (lambda (_%stx118573%_ _%src118574%_ _%ctx118575%_) - (let ((_%marks118577%_ (gx#current-expander-marks))) + (lambda (_%stx118679%_ _%src118680%_ _%ctx118681%_) + (let ((_%marks118683%_ (gx#current-expander-marks))) (gx#core-quote-syntax__% - _%stx118573%_ - _%src118574%_ - _%ctx118575%_ - _%marks118577%_)))) + _%stx118679%_ + _%src118680%_ + _%ctx118681%_ + _%marks118683%_)))) (define gx#core-quote-syntax - (lambda _g121569_ - (let ((_g121568_ (##length _g121569_))) - (cond ((##fx= _g121568_ 1) (apply gx#core-quote-syntax__0 _g121569_)) - ((##fx= _g121568_ 2) (apply gx#core-quote-syntax__1 _g121569_)) - ((##fx= _g121568_ 3) (apply gx#core-quote-syntax__2 _g121569_)) - ((##fx= _g121568_ 4) (apply gx#core-quote-syntax__% _g121569_)) + (lambda _g121675_ + (let ((_g121674_ (##length _g121675_))) + (cond ((##fx= _g121674_ 1) (apply gx#core-quote-syntax__0 _g121675_)) + ((##fx= _g121674_ 2) (apply gx#core-quote-syntax__1 _g121675_)) + ((##fx= _g121674_ 3) (apply gx#core-quote-syntax__2 _g121675_)) + ((##fx= _g121674_ 4) (apply gx#core-quote-syntax__% _g121675_)) (else (##raise-wrong-number-of-arguments-exception gx#core-quote-syntax - _g121569_)))))) + _g121675_)))))) (define gx#core-cons - (lambda (_%hd118533%_ _%tl118534%_) - (cons (gx#core-quote-syntax__0 _%hd118533%_) _%tl118534%_))) + (lambda (_%hd118639%_ _%tl118640%_) + (cons (gx#core-quote-syntax__0 _%hd118639%_) _%tl118640%_))) (define gx#core-list - (lambda (_%hd118530%_ . _%rest118531%_) - (cons (gx#core-quote-syntax__0 _%hd118530%_) _%rest118531%_))) + (lambda (_%hd118636%_ . _%rest118637%_) + (cons (gx#core-quote-syntax__0 _%hd118636%_) _%rest118637%_))) (define gx#core-cons* - (lambda (_%hd118527%_ . _%rest118528%_) - (apply cons* (gx#core-quote-syntax__0 _%hd118527%_) _%rest118528%_))) + (lambda (_%hd118633%_ . _%rest118634%_) + (apply cons* (gx#core-quote-syntax__0 _%hd118633%_) _%rest118634%_))) (define gx#core-resolve-path__% - (lambda (_%stx-path118496%_ _%rel118497%_) - (let ((_%path118514%_ (gx#stx-e _%stx-path118496%_)) - (_%reldir118515%_ - (let _%lp118499%_ ((_%relsrc118501%_ - (let ((_%$e118511%_ - (gx#stx-source _%stx-path118496%_))) - (if _%$e118511%_ - _%$e118511%_ - _%rel118497%_)))) - (if (##structure-instance-of? _%relsrc118501%_ 'gerbil#AST::t) - (_%lp118499%_ - (let ((_%$e118504%_ (gx#stx-source _%relsrc118501%_))) - (if _%$e118504%_ - _%$e118504%_ - (gx#stx-e _%relsrc118501%_)))) - (if (source-location-path? _%relsrc118501%_) + (lambda (_%stx-path118602%_ _%rel118603%_) + (let ((_%path118620%_ (gx#stx-e _%stx-path118602%_)) + (_%reldir118621%_ + (let _%lp118605%_ ((_%relsrc118607%_ + (let ((_%$e118617%_ + (gx#stx-source _%stx-path118602%_))) + (if _%$e118617%_ + _%$e118617%_ + _%rel118603%_)))) + (if (##structure-instance-of? _%relsrc118607%_ 'gerbil#AST::t) + (_%lp118605%_ + (let ((_%$e118610%_ (gx#stx-source _%relsrc118607%_))) + (if _%$e118610%_ + _%$e118610%_ + (gx#stx-e _%relsrc118607%_)))) + (if (source-location-path? _%relsrc118607%_) (path-directory - (source-location-path _%relsrc118501%_)) - (if (string? _%relsrc118501%_) - (path-directory _%relsrc118501%_) + (source-location-path _%relsrc118607%_)) + (if (string? _%relsrc118607%_) + (path-directory _%relsrc118607%_) (if (null? (gx#current-expander-path)) (current-directory) (path-directory (car (gx#current-expander-path)))))))))) - (path-expand _%path118514%_ (path-normalize _%reldir118515%_))))) + (path-expand _%path118620%_ (path-normalize _%reldir118621%_))))) (define gx#core-resolve-path__0 - (lambda (_%stx-path118520%_) - (let ((_%rel118522%_ '#f)) - (gx#core-resolve-path__% _%stx-path118520%_ _%rel118522%_)))) + (lambda (_%stx-path118626%_) + (let ((_%rel118628%_ '#f)) + (gx#core-resolve-path__% _%stx-path118626%_ _%rel118628%_)))) (define gx#core-resolve-path - (lambda _g121571_ - (let ((_g121570_ (##length _g121571_))) - (cond ((##fx= _g121570_ 1) (apply gx#core-resolve-path__0 _g121571_)) - ((##fx= _g121570_ 2) (apply gx#core-resolve-path__% _g121571_)) + (lambda _g121677_ + (let ((_g121676_ (##length _g121677_))) + (cond ((##fx= _g121676_ 1) (apply gx#core-resolve-path__0 _g121677_)) + ((##fx= _g121676_ 2) (apply gx#core-resolve-path__% _g121677_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-path - _g121571_)))))) + _g121677_)))))) (define gx#core-deserialize-mark__% - (lambda (_%repr118452%_ _%ctx118453%_) - (let* ((_%repr118454118461%_ _%repr118452%_) - (_%E118456118465%_ + (lambda (_%repr118558%_ _%ctx118559%_) + (let* ((_%repr118560118567%_ _%repr118558%_) + (_%E118562118571%_ (lambda () (error '"No clause matching" - _%repr118454118461%_ + _%repr118560118567%_ '([phi . subs])) '#!void)) - (_%K118457118473%_ - (lambda (_%subs118468%_ _%phi118469%_) - (let ((_%subst118471%_ - (if (null? _%subs118468%_) + (_%K118563118579%_ + (lambda (_%subs118574%_ _%phi118575%_) + (let ((_%subst118577%_ + (if (null? _%subs118574%_) '#f - (list->hash-table-eq _%subs118468%_)))) + (list->hash-table-eq _%subs118574%_)))) (##structure gx#expander-mark::t - _%subst118471%_ - _%ctx118453%_ - _%phi118469%_ + _%subst118577%_ + _%ctx118559%_ + _%phi118575%_ '#f))))) - (if (pair? _%repr118454118461%_) - (let ((_%hd118458118476%_ (##car _%repr118454118461%_)) - (_%tl118459118478%_ (##cdr _%repr118454118461%_))) - (let* ((_%phi118481%_ _%hd118458118476%_) - (_%subs118483%_ _%tl118459118478%_)) - (_%K118457118473%_ _%subs118483%_ _%phi118481%_))) - (_%E118456118465%_))))) + (if (pair? _%repr118560118567%_) + (let ((_%hd118564118582%_ (##car _%repr118560118567%_)) + (_%tl118565118584%_ (##cdr _%repr118560118567%_))) + (let* ((_%phi118587%_ _%hd118564118582%_) + (_%subs118589%_ _%tl118565118584%_)) + (_%K118563118579%_ _%subs118589%_ _%phi118587%_))) + (_%E118562118571%_))))) (define gx#core-deserialize-mark__0 - (lambda (_%repr118488%_) - (let ((_%ctx118490%_ (gx#current-expander-context))) - (gx#core-deserialize-mark__% _%repr118488%_ _%ctx118490%_)))) + (lambda (_%repr118594%_) + (let ((_%ctx118596%_ (gx#current-expander-context))) + (gx#core-deserialize-mark__% _%repr118594%_ _%ctx118596%_)))) (define gx#core-deserialize-mark - (lambda _g121573_ - (let ((_g121572_ (##length _g121573_))) - (cond ((##fx= _g121572_ 1) - (apply gx#core-deserialize-mark__0 _g121573_)) - ((##fx= _g121572_ 2) - (apply gx#core-deserialize-mark__% _g121573_)) + (lambda _g121679_ + (let ((_g121678_ (##length _g121679_))) + (cond ((##fx= _g121678_ 1) + (apply gx#core-deserialize-mark__0 _g121679_)) + ((##fx= _g121678_ 2) + (apply gx#core-deserialize-mark__% _g121679_)) (else (##raise-wrong-number-of-arguments-exception gx#core-deserialize-mark - _g121573_)))))) + _g121679_)))))) (define gx#syntax-local-rewrap - (lambda (_%stx118449%_) - (gx#stx-rewrap _%stx118449%_ (gx#current-expander-marks)))) + (lambda (_%stx118555%_) + (gx#stx-rewrap _%stx118555%_ (gx#current-expander-marks)))) (define gx#syntax-local-unwrap - (lambda (_%stx118447%_) - (gx#stx-unwrap__% _%stx118447%_ (gx#current-expander-marks)))) + (lambda (_%stx118553%_) + (gx#stx-unwrap__% _%stx118553%_ (gx#current-expander-marks)))) (define gx#syntax-local-introduce - (lambda (_%stx118417%_) - (let* ((_%g118418118426%_ (gx#current-expander-marks)) - (_%else118420118434%_ (lambda () _%stx118417%_)) - (_%K118422118439%_ - (lambda (_%hd118437%_) - (gx#stx-apply-mark _%stx118417%_ _%hd118437%_)))) - (if (pair? _%g118418118426%_) - (let* ((_%hd118423118442%_ (##car _%g118418118426%_)) - (_%hd118445%_ _%hd118423118442%_)) - (_%K118422118439%_ _%hd118445%_)) - (_%else118420118434%_))))) + (lambda (_%stx118523%_) + (let* ((_%g118524118532%_ (gx#current-expander-marks)) + (_%else118526118540%_ (lambda () _%stx118523%_)) + (_%K118528118545%_ + (lambda (_%hd118543%_) + (gx#stx-apply-mark _%stx118523%_ _%hd118543%_)))) + (if (pair? _%g118524118532%_) + (let* ((_%hd118529118548%_ (##car _%g118524118532%_)) + (_%hd118551%_ _%hd118529118548%_)) + (_%K118528118545%_ _%hd118551%_)) + (_%else118526118540%_))))) (define gx#syntax-local-e__% - (lambda (_%stx118402%_ _%E118403%_) - (let ((_%bind118405%_ (gx#resolve-identifier__0 _%stx118402%_))) + (lambda (_%stx118508%_ _%E118509%_) + (let ((_%bind118511%_ (gx#resolve-identifier__0 _%stx118508%_))) (if (##structure-direct-instance-of? - _%bind118405%_ + _%bind118511%_ 'gx#syntax-binding::t) - (##unchecked-structure-ref _%bind118405%_ '4 '#f '#f) - (_%E118403%_ _%stx118402%_))))) + (##unchecked-structure-ref _%bind118511%_ '4 '#f '#f) + (_%E118509%_ _%stx118508%_))))) (define gx#syntax-local-e__0 - (lambda (_%stx118410%_) - (let ((_%E118412%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-e__% _%stx118410%_ _%E118412%_)))) + (lambda (_%stx118516%_) + (let ((_%E118518%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-e__% _%stx118516%_ _%E118518%_)))) (define gx#syntax-local-e - (lambda _g121575_ - (let ((_g121574_ (##length _g121575_))) - (cond ((##fx= _g121574_ 1) (apply gx#syntax-local-e__0 _g121575_)) - ((##fx= _g121574_ 2) (apply gx#syntax-local-e__% _g121575_)) + (lambda _g121681_ + (let ((_g121680_ (##length _g121681_))) + (cond ((##fx= _g121680_ 1) (apply gx#syntax-local-e__0 _g121681_)) + ((##fx= _g121680_ 2) (apply gx#syntax-local-e__% _g121681_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-e - _g121575_)))))) + _g121681_)))))) (define gx#syntax-local-value__% - (lambda (_%stx118386%_ _%E118387%_) - (let ((_%e118389%_ (gx#syntax-local-e__% _%stx118386%_ _%E118387%_))) - (if (##structure-instance-of? _%e118389%_ 'gx#expander::t) - (##unchecked-structure-ref _%e118389%_ '1 '#f '#f) - _%e118389%_)))) + (lambda (_%stx118492%_ _%E118493%_) + (let ((_%e118495%_ (gx#syntax-local-e__% _%stx118492%_ _%E118493%_))) + (if (##structure-instance-of? _%e118495%_ 'gx#expander::t) + (##unchecked-structure-ref _%e118495%_ '1 '#f '#f) + _%e118495%_)))) (define gx#syntax-local-value__0 - (lambda (_%stx118394%_) - (let ((_%E118396%_ gx#raise-syntax-ref-error)) - (gx#syntax-local-value__% _%stx118394%_ _%E118396%_)))) + (lambda (_%stx118500%_) + (let ((_%E118502%_ gx#raise-syntax-ref-error)) + (gx#syntax-local-value__% _%stx118500%_ _%E118502%_)))) (define gx#syntax-local-value - (lambda _g121577_ - (let ((_g121576_ (##length _g121577_))) - (cond ((##fx= _g121576_ 1) - (apply gx#syntax-local-value__0 _g121577_)) - ((##fx= _g121576_ 2) - (apply gx#syntax-local-value__% _g121577_)) + (lambda _g121683_ + (let ((_g121682_ (##length _g121683_))) + (cond ((##fx= _g121682_ 1) + (apply gx#syntax-local-value__0 _g121683_)) + ((##fx= _g121682_ 2) + (apply gx#syntax-local-value__% _g121683_)) (else (##raise-wrong-number-of-arguments-exception gx#syntax-local-value - _g121577_)))))) + _g121683_)))))) (define gx#raise-syntax-ref-error - (lambda (_%stx118383%_) + (lambda (_%stx118489%_) (gx#raise-syntax-error '#f '"Bad syntax; not a syntax binding" - _%stx118383%_))))) + _%stx118489%_))))) diff --git a/src/bootstrap/gerbil/expander/core~1.scm b/src/bootstrap/gerbil/expander/core~1.scm index 55d8f0be4..9db09dd70 100644 --- a/src/bootstrap/gerbil/expander/core~1.scm +++ b/src/bootstrap/gerbil/expander/core~1.scm @@ -1,3569 +1,3569 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g121579_| + (define |gx[1]#_g121685_| (##structure gx#syntax-quote::t 'expander-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121581_| + (define |gx[1]#_g121687_| (##structure gx#syntax-quote::t 'make-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121583_| + (define |gx[1]#_g121689_| (##structure gx#syntax-quote::t 'expander-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121585_| + (define |gx[1]#_g121691_| (##structure gx#syntax-quote::t 'expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121586_| + (define |gx[1]#_g121692_| (##structure gx#syntax-quote::t 'expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121588_| + (define |gx[1]#_g121694_| (##structure gx#syntax-quote::t 'expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121589_| + (define |gx[1]#_g121695_| (##structure gx#syntax-quote::t 'expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121591_| + (define |gx[1]#_g121697_| (##structure gx#syntax-quote::t '&expander-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121592_| + (define |gx[1]#_g121698_| (##structure gx#syntax-quote::t '&expander-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121594_| + (define |gx[1]#_g121700_| (##structure gx#syntax-quote::t '&expander-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121595_| + (define |gx[1]#_g121701_| (##structure gx#syntax-quote::t '&expander-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121597_| + (define |gx[1]#_g121703_| (##structure gx#syntax-quote::t 'expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121599_| + (define |gx[1]#_g121705_| (##structure gx#syntax-quote::t 'root-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121601_| + (define |gx[1]#_g121707_| (##structure gx#syntax-quote::t 'make-root-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121603_| + (define |gx[1]#_g121709_| (##structure gx#syntax-quote::t 'root-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121605_| + (define |gx[1]#_g121711_| (##structure gx#syntax-quote::t 'root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121606_| + (define |gx[1]#_g121712_| (##structure gx#syntax-quote::t 'root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121608_| + (define |gx[1]#_g121714_| (##structure gx#syntax-quote::t 'root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121609_| + (define |gx[1]#_g121715_| (##structure gx#syntax-quote::t 'root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121611_| + (define |gx[1]#_g121717_| (##structure gx#syntax-quote::t '&root-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121612_| + (define |gx[1]#_g121718_| (##structure gx#syntax-quote::t '&root-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121614_| + (define |gx[1]#_g121720_| (##structure gx#syntax-quote::t '&root-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121615_| + (define |gx[1]#_g121721_| (##structure gx#syntax-quote::t '&root-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121618_| + (define |gx[1]#_g121724_| (##structure gx#syntax-quote::t 'phi-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121620_| + (define |gx[1]#_g121726_| (##structure gx#syntax-quote::t 'make-phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121622_| + (define |gx[1]#_g121728_| (##structure gx#syntax-quote::t 'phi-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121624_| + (define |gx[1]#_g121730_| (##structure gx#syntax-quote::t 'phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121625_| + (define |gx[1]#_g121731_| (##structure gx#syntax-quote::t 'phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121626_| + (define |gx[1]#_g121732_| (##structure gx#syntax-quote::t 'phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121627_| + (define |gx[1]#_g121733_| (##structure gx#syntax-quote::t 'phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121628_| + (define |gx[1]#_g121734_| (##structure gx#syntax-quote::t 'phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121630_| + (define |gx[1]#_g121736_| (##structure gx#syntax-quote::t 'phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121631_| + (define |gx[1]#_g121737_| (##structure gx#syntax-quote::t 'phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121632_| + (define |gx[1]#_g121738_| (##structure gx#syntax-quote::t 'phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121633_| + (define |gx[1]#_g121739_| (##structure gx#syntax-quote::t 'phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121634_| + (define |gx[1]#_g121740_| (##structure gx#syntax-quote::t 'phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121636_| + (define |gx[1]#_g121742_| (##structure gx#syntax-quote::t '&phi-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121637_| + (define |gx[1]#_g121743_| (##structure gx#syntax-quote::t '&phi-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121638_| + (define |gx[1]#_g121744_| (##structure gx#syntax-quote::t '&phi-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121639_| + (define |gx[1]#_g121745_| (##structure gx#syntax-quote::t '&phi-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121640_| + (define |gx[1]#_g121746_| (##structure gx#syntax-quote::t '&phi-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121642_| + (define |gx[1]#_g121748_| (##structure gx#syntax-quote::t '&phi-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121643_| + (define |gx[1]#_g121749_| (##structure gx#syntax-quote::t '&phi-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121644_| + (define |gx[1]#_g121750_| (##structure gx#syntax-quote::t '&phi-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121645_| + (define |gx[1]#_g121751_| (##structure gx#syntax-quote::t '&phi-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121646_| + (define |gx[1]#_g121752_| (##structure gx#syntax-quote::t '&phi-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121648_| + (define |gx[1]#_g121754_| (##structure gx#syntax-quote::t 'phi-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121650_| + (define |gx[1]#_g121756_| (##structure gx#syntax-quote::t 'top-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121652_| + (define |gx[1]#_g121758_| (##structure gx#syntax-quote::t 'make-top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121654_| + (define |gx[1]#_g121760_| (##structure gx#syntax-quote::t 'top-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121656_| + (define |gx[1]#_g121762_| (##structure gx#syntax-quote::t 'top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121657_| + (define |gx[1]#_g121763_| (##structure gx#syntax-quote::t 'top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121658_| + (define |gx[1]#_g121764_| (##structure gx#syntax-quote::t 'top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121659_| + (define |gx[1]#_g121765_| (##structure gx#syntax-quote::t 'top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121660_| + (define |gx[1]#_g121766_| (##structure gx#syntax-quote::t 'top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121662_| + (define |gx[1]#_g121768_| (##structure gx#syntax-quote::t 'top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121663_| + (define |gx[1]#_g121769_| (##structure gx#syntax-quote::t 'top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121664_| + (define |gx[1]#_g121770_| (##structure gx#syntax-quote::t 'top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121665_| + (define |gx[1]#_g121771_| (##structure gx#syntax-quote::t 'top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121666_| + (define |gx[1]#_g121772_| (##structure gx#syntax-quote::t 'top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121668_| + (define |gx[1]#_g121774_| (##structure gx#syntax-quote::t '&top-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121669_| + (define |gx[1]#_g121775_| (##structure gx#syntax-quote::t '&top-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121670_| + (define |gx[1]#_g121776_| (##structure gx#syntax-quote::t '&top-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121671_| + (define |gx[1]#_g121777_| (##structure gx#syntax-quote::t '&top-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121672_| + (define |gx[1]#_g121778_| (##structure gx#syntax-quote::t '&top-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121674_| + (define |gx[1]#_g121780_| (##structure gx#syntax-quote::t '&top-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121675_| + (define |gx[1]#_g121781_| (##structure gx#syntax-quote::t '&top-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121676_| + (define |gx[1]#_g121782_| (##structure gx#syntax-quote::t '&top-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121677_| + (define |gx[1]#_g121783_| (##structure gx#syntax-quote::t '&top-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121678_| + (define |gx[1]#_g121784_| (##structure gx#syntax-quote::t '&top-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121680_| + (define |gx[1]#_g121786_| (##structure gx#syntax-quote::t 'top-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121682_| + (define |gx[1]#_g121788_| (##structure gx#syntax-quote::t 'module-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121684_| + (define |gx[1]#_g121790_| (##structure gx#syntax-quote::t 'make-module-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121686_| + (define |gx[1]#_g121792_| (##structure gx#syntax-quote::t 'module-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121688_| + (define |gx[1]#_g121794_| (##structure gx#syntax-quote::t 'module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121689_| + (define |gx[1]#_g121795_| (##structure gx#syntax-quote::t 'module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121690_| + (define |gx[1]#_g121796_| (##structure gx#syntax-quote::t 'module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121691_| + (define |gx[1]#_g121797_| (##structure gx#syntax-quote::t 'module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121692_| + (define |gx[1]#_g121798_| (##structure gx#syntax-quote::t 'module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121693_| + (define |gx[1]#_g121799_| (##structure gx#syntax-quote::t 'module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121694_| + (define |gx[1]#_g121800_| (##structure gx#syntax-quote::t 'module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121695_| + (define |gx[1]#_g121801_| (##structure gx#syntax-quote::t 'module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121696_| + (define |gx[1]#_g121802_| (##structure gx#syntax-quote::t 'module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121697_| + (define |gx[1]#_g121803_| (##structure gx#syntax-quote::t 'module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121698_| + (define |gx[1]#_g121804_| (##structure gx#syntax-quote::t 'module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121700_| + (define |gx[1]#_g121806_| (##structure gx#syntax-quote::t 'module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121701_| + (define |gx[1]#_g121807_| (##structure gx#syntax-quote::t 'module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121702_| + (define |gx[1]#_g121808_| (##structure gx#syntax-quote::t 'module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121703_| + (define |gx[1]#_g121809_| (##structure gx#syntax-quote::t 'module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121704_| + (define |gx[1]#_g121810_| (##structure gx#syntax-quote::t 'module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121705_| + (define |gx[1]#_g121811_| (##structure gx#syntax-quote::t 'module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121706_| + (define |gx[1]#_g121812_| (##structure gx#syntax-quote::t 'module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121707_| + (define |gx[1]#_g121813_| (##structure gx#syntax-quote::t 'module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121708_| + (define |gx[1]#_g121814_| (##structure gx#syntax-quote::t 'module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121709_| + (define |gx[1]#_g121815_| (##structure gx#syntax-quote::t 'module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121710_| + (define |gx[1]#_g121816_| (##structure gx#syntax-quote::t 'module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121712_| + (define |gx[1]#_g121818_| (##structure gx#syntax-quote::t '&module-context-ns #f (gx#current-expander-context) '())) - (define |gx[1]#_g121713_| + (define |gx[1]#_g121819_| (##structure gx#syntax-quote::t '&module-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121714_| + (define |gx[1]#_g121820_| (##structure gx#syntax-quote::t '&module-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121715_| + (define |gx[1]#_g121821_| (##structure gx#syntax-quote::t '&module-context-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g121716_| + (define |gx[1]#_g121822_| (##structure gx#syntax-quote::t '&module-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121717_| + (define |gx[1]#_g121823_| (##structure gx#syntax-quote::t '&module-context-code #f (gx#current-expander-context) '())) - (define |gx[1]#_g121718_| + (define |gx[1]#_g121824_| (##structure gx#syntax-quote::t '&module-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121719_| + (define |gx[1]#_g121825_| (##structure gx#syntax-quote::t '&module-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121720_| + (define |gx[1]#_g121826_| (##structure gx#syntax-quote::t '&module-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121721_| + (define |gx[1]#_g121827_| (##structure gx#syntax-quote::t '&module-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121722_| + (define |gx[1]#_g121828_| (##structure gx#syntax-quote::t '&module-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121724_| + (define |gx[1]#_g121830_| (##structure gx#syntax-quote::t '&module-context-ns-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121725_| + (define |gx[1]#_g121831_| (##structure gx#syntax-quote::t '&module-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121726_| + (define |gx[1]#_g121832_| (##structure gx#syntax-quote::t '&module-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121727_| + (define |gx[1]#_g121833_| (##structure gx#syntax-quote::t '&module-context-export-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121728_| + (define |gx[1]#_g121834_| (##structure gx#syntax-quote::t '&module-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121729_| + (define |gx[1]#_g121835_| (##structure gx#syntax-quote::t '&module-context-code-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121730_| + (define |gx[1]#_g121836_| (##structure gx#syntax-quote::t '&module-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121731_| + (define |gx[1]#_g121837_| (##structure gx#syntax-quote::t '&module-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121732_| + (define |gx[1]#_g121838_| (##structure gx#syntax-quote::t '&module-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121733_| + (define |gx[1]#_g121839_| (##structure gx#syntax-quote::t '&module-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121734_| + (define |gx[1]#_g121840_| (##structure gx#syntax-quote::t '&module-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121737_| + (define |gx[1]#_g121843_| (##structure gx#syntax-quote::t 'prelude-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121739_| + (define |gx[1]#_g121845_| (##structure gx#syntax-quote::t 'make-prelude-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121741_| + (define |gx[1]#_g121847_| (##structure gx#syntax-quote::t 'prelude-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121743_| + (define |gx[1]#_g121849_| (##structure gx#syntax-quote::t 'prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121744_| + (define |gx[1]#_g121850_| (##structure gx#syntax-quote::t 'prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121745_| + (define |gx[1]#_g121851_| (##structure gx#syntax-quote::t 'prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121746_| + (define |gx[1]#_g121852_| (##structure gx#syntax-quote::t 'prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121747_| + (define |gx[1]#_g121853_| (##structure gx#syntax-quote::t 'prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121748_| + (define |gx[1]#_g121854_| (##structure gx#syntax-quote::t 'prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121749_| + (define |gx[1]#_g121855_| (##structure gx#syntax-quote::t 'prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121750_| + (define |gx[1]#_g121856_| (##structure gx#syntax-quote::t 'prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121752_| + (define |gx[1]#_g121858_| (##structure gx#syntax-quote::t 'prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121753_| + (define |gx[1]#_g121859_| (##structure gx#syntax-quote::t 'prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121754_| + (define |gx[1]#_g121860_| (##structure gx#syntax-quote::t 'prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121755_| + (define |gx[1]#_g121861_| (##structure gx#syntax-quote::t 'prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121756_| + (define |gx[1]#_g121862_| (##structure gx#syntax-quote::t 'prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121757_| + (define |gx[1]#_g121863_| (##structure gx#syntax-quote::t 'prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121758_| + (define |gx[1]#_g121864_| (##structure gx#syntax-quote::t 'prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121759_| + (define |gx[1]#_g121865_| (##structure gx#syntax-quote::t 'prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121761_| + (define |gx[1]#_g121867_| (##structure gx#syntax-quote::t '&prelude-context-path #f (gx#current-expander-context) '())) - (define |gx[1]#_g121762_| + (define |gx[1]#_g121868_| (##structure gx#syntax-quote::t '&prelude-context-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g121763_| + (define |gx[1]#_g121869_| (##structure gx#syntax-quote::t '&prelude-context-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121764_| + (define |gx[1]#_g121870_| (##structure gx#syntax-quote::t '&prelude-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121765_| + (define |gx[1]#_g121871_| (##structure gx#syntax-quote::t '&prelude-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121766_| + (define |gx[1]#_g121872_| (##structure gx#syntax-quote::t '&prelude-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121767_| + (define |gx[1]#_g121873_| (##structure gx#syntax-quote::t '&prelude-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121768_| + (define |gx[1]#_g121874_| (##structure gx#syntax-quote::t '&prelude-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121770_| + (define |gx[1]#_g121876_| (##structure gx#syntax-quote::t '&prelude-context-path-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121771_| + (define |gx[1]#_g121877_| (##structure gx#syntax-quote::t '&prelude-context-import-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121772_| + (define |gx[1]#_g121878_| (##structure gx#syntax-quote::t '&prelude-context-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121773_| + (define |gx[1]#_g121879_| (##structure gx#syntax-quote::t '&prelude-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121774_| + (define |gx[1]#_g121880_| (##structure gx#syntax-quote::t '&prelude-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121775_| + (define |gx[1]#_g121881_| (##structure gx#syntax-quote::t '&prelude-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121776_| + (define |gx[1]#_g121882_| (##structure gx#syntax-quote::t '&prelude-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121777_| + (define |gx[1]#_g121883_| (##structure gx#syntax-quote::t '&prelude-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121780_| + (define |gx[1]#_g121886_| (##structure gx#syntax-quote::t 'local-context::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121782_| + (define |gx[1]#_g121888_| (##structure gx#syntax-quote::t 'make-local-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121784_| + (define |gx[1]#_g121890_| (##structure gx#syntax-quote::t 'local-context? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121786_| + (define |gx[1]#_g121892_| (##structure gx#syntax-quote::t 'local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121787_| + (define |gx[1]#_g121893_| (##structure gx#syntax-quote::t 'local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121788_| + (define |gx[1]#_g121894_| (##structure gx#syntax-quote::t 'local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121789_| + (define |gx[1]#_g121895_| (##structure gx#syntax-quote::t 'local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121790_| + (define |gx[1]#_g121896_| (##structure gx#syntax-quote::t 'local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121792_| + (define |gx[1]#_g121898_| (##structure gx#syntax-quote::t 'local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121793_| + (define |gx[1]#_g121899_| (##structure gx#syntax-quote::t 'local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121794_| + (define |gx[1]#_g121900_| (##structure gx#syntax-quote::t 'local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121795_| + (define |gx[1]#_g121901_| (##structure gx#syntax-quote::t 'local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121796_| + (define |gx[1]#_g121902_| (##structure gx#syntax-quote::t 'local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121798_| + (define |gx[1]#_g121904_| (##structure gx#syntax-quote::t '&local-context-super #f (gx#current-expander-context) '())) - (define |gx[1]#_g121799_| + (define |gx[1]#_g121905_| (##structure gx#syntax-quote::t '&local-context-up #f (gx#current-expander-context) '())) - (define |gx[1]#_g121800_| + (define |gx[1]#_g121906_| (##structure gx#syntax-quote::t '&local-context-down #f (gx#current-expander-context) '())) - (define |gx[1]#_g121801_| + (define |gx[1]#_g121907_| (##structure gx#syntax-quote::t '&local-context-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121802_| + (define |gx[1]#_g121908_| (##structure gx#syntax-quote::t '&local-context-table #f (gx#current-expander-context) '())) - (define |gx[1]#_g121804_| + (define |gx[1]#_g121910_| (##structure gx#syntax-quote::t '&local-context-super-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121805_| + (define |gx[1]#_g121911_| (##structure gx#syntax-quote::t '&local-context-up-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121806_| + (define |gx[1]#_g121912_| (##structure gx#syntax-quote::t '&local-context-down-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121807_| + (define |gx[1]#_g121913_| (##structure gx#syntax-quote::t '&local-context-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121808_| + (define |gx[1]#_g121914_| (##structure gx#syntax-quote::t '&local-context-table-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121810_| + (define |gx[1]#_g121916_| (##structure gx#syntax-quote::t 'binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121812_| + (define |gx[1]#_g121918_| (##structure gx#syntax-quote::t 'make-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121814_| + (define |gx[1]#_g121920_| (##structure gx#syntax-quote::t 'binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121816_| + (define |gx[1]#_g121922_| (##structure gx#syntax-quote::t 'binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121817_| + (define |gx[1]#_g121923_| (##structure gx#syntax-quote::t 'binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121818_| + (define |gx[1]#_g121924_| (##structure gx#syntax-quote::t 'binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121820_| + (define |gx[1]#_g121926_| (##structure gx#syntax-quote::t 'binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121821_| + (define |gx[1]#_g121927_| (##structure gx#syntax-quote::t 'binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121822_| + (define |gx[1]#_g121928_| (##structure gx#syntax-quote::t 'binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121824_| + (define |gx[1]#_g121930_| (##structure gx#syntax-quote::t '&binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121825_| + (define |gx[1]#_g121931_| (##structure gx#syntax-quote::t '&binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121826_| + (define |gx[1]#_g121932_| (##structure gx#syntax-quote::t '&binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121828_| + (define |gx[1]#_g121934_| (##structure gx#syntax-quote::t '&binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121829_| + (define |gx[1]#_g121935_| (##structure gx#syntax-quote::t '&binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121830_| + (define |gx[1]#_g121936_| (##structure gx#syntax-quote::t '&binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121832_| + (define |gx[1]#_g121938_| (##structure gx#syntax-quote::t 'binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121834_| + (define |gx[1]#_g121940_| (##structure gx#syntax-quote::t 'runtime-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121836_| + (define |gx[1]#_g121942_| (##structure gx#syntax-quote::t 'make-runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121838_| + (define |gx[1]#_g121944_| (##structure gx#syntax-quote::t 'runtime-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121840_| + (define |gx[1]#_g121946_| (##structure gx#syntax-quote::t 'runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121841_| + (define |gx[1]#_g121947_| (##structure gx#syntax-quote::t 'runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121842_| + (define |gx[1]#_g121948_| (##structure gx#syntax-quote::t 'runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121844_| + (define |gx[1]#_g121950_| (##structure gx#syntax-quote::t 'runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121845_| + (define |gx[1]#_g121951_| (##structure gx#syntax-quote::t 'runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121846_| + (define |gx[1]#_g121952_| (##structure gx#syntax-quote::t 'runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121848_| + (define |gx[1]#_g121954_| (##structure gx#syntax-quote::t '&runtime-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121849_| + (define |gx[1]#_g121955_| (##structure gx#syntax-quote::t '&runtime-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121850_| + (define |gx[1]#_g121956_| (##structure gx#syntax-quote::t '&runtime-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121852_| + (define |gx[1]#_g121958_| (##structure gx#syntax-quote::t '&runtime-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121853_| + (define |gx[1]#_g121959_| (##structure gx#syntax-quote::t '&runtime-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121854_| + (define |gx[1]#_g121960_| (##structure gx#syntax-quote::t '&runtime-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121856_| + (define |gx[1]#_g121962_| (##structure gx#syntax-quote::t 'runtime-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121858_| + (define |gx[1]#_g121964_| (##structure gx#syntax-quote::t 'local-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121860_| + (define |gx[1]#_g121966_| (##structure gx#syntax-quote::t 'make-local-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121862_| + (define |gx[1]#_g121968_| (##structure gx#syntax-quote::t 'local-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121864_| + (define |gx[1]#_g121970_| (##structure gx#syntax-quote::t 'local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121865_| + (define |gx[1]#_g121971_| (##structure gx#syntax-quote::t 'local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121866_| + (define |gx[1]#_g121972_| (##structure gx#syntax-quote::t 'local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121868_| + (define |gx[1]#_g121974_| (##structure gx#syntax-quote::t 'local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121869_| + (define |gx[1]#_g121975_| (##structure gx#syntax-quote::t 'local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121870_| + (define |gx[1]#_g121976_| (##structure gx#syntax-quote::t 'local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121872_| + (define |gx[1]#_g121978_| (##structure gx#syntax-quote::t '&local-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121873_| + (define |gx[1]#_g121979_| (##structure gx#syntax-quote::t '&local-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121874_| + (define |gx[1]#_g121980_| (##structure gx#syntax-quote::t '&local-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121876_| + (define |gx[1]#_g121982_| (##structure gx#syntax-quote::t '&local-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121877_| + (define |gx[1]#_g121983_| (##structure gx#syntax-quote::t '&local-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121878_| + (define |gx[1]#_g121984_| (##structure gx#syntax-quote::t '&local-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121881_| + (define |gx[1]#_g121987_| (##structure gx#syntax-quote::t 'top-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121883_| + (define |gx[1]#_g121989_| (##structure gx#syntax-quote::t 'make-top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121885_| + (define |gx[1]#_g121991_| (##structure gx#syntax-quote::t 'top-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121887_| + (define |gx[1]#_g121993_| (##structure gx#syntax-quote::t 'top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121888_| + (define |gx[1]#_g121994_| (##structure gx#syntax-quote::t 'top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121889_| + (define |gx[1]#_g121995_| (##structure gx#syntax-quote::t 'top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121891_| + (define |gx[1]#_g121997_| (##structure gx#syntax-quote::t 'top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121892_| + (define |gx[1]#_g121998_| (##structure gx#syntax-quote::t 'top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121893_| + (define |gx[1]#_g121999_| (##structure gx#syntax-quote::t 'top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121895_| + (define |gx[1]#_g122001_| (##structure gx#syntax-quote::t '&top-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121896_| + (define |gx[1]#_g122002_| (##structure gx#syntax-quote::t '&top-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121897_| + (define |gx[1]#_g122003_| (##structure gx#syntax-quote::t '&top-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121899_| + (define |gx[1]#_g122005_| (##structure gx#syntax-quote::t '&top-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121900_| + (define |gx[1]#_g122006_| (##structure gx#syntax-quote::t '&top-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121901_| + (define |gx[1]#_g122007_| (##structure gx#syntax-quote::t '&top-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121903_| + (define |gx[1]#_g122009_| (##structure gx#syntax-quote::t 'top-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121905_| + (define |gx[1]#_g122011_| (##structure gx#syntax-quote::t 'module-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121907_| + (define |gx[1]#_g122013_| (##structure gx#syntax-quote::t 'make-module-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121909_| + (define |gx[1]#_g122015_| (##structure gx#syntax-quote::t 'module-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121911_| + (define |gx[1]#_g122017_| (##structure gx#syntax-quote::t 'module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121912_| + (define |gx[1]#_g122018_| (##structure gx#syntax-quote::t 'module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121913_| + (define |gx[1]#_g122019_| (##structure gx#syntax-quote::t 'module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121914_| + (define |gx[1]#_g122020_| (##structure gx#syntax-quote::t 'module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121916_| + (define |gx[1]#_g122022_| (##structure gx#syntax-quote::t 'module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121917_| + (define |gx[1]#_g122023_| (##structure gx#syntax-quote::t 'module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121918_| + (define |gx[1]#_g122024_| (##structure gx#syntax-quote::t 'module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121919_| + (define |gx[1]#_g122025_| (##structure gx#syntax-quote::t 'module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121921_| + (define |gx[1]#_g122027_| (##structure gx#syntax-quote::t '&module-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121922_| + (define |gx[1]#_g122028_| (##structure gx#syntax-quote::t '&module-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121923_| + (define |gx[1]#_g122029_| (##structure gx#syntax-quote::t '&module-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121924_| + (define |gx[1]#_g122030_| (##structure gx#syntax-quote::t '&module-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121926_| + (define |gx[1]#_g122032_| (##structure gx#syntax-quote::t '&module-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121927_| + (define |gx[1]#_g122033_| (##structure gx#syntax-quote::t '&module-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121928_| + (define |gx[1]#_g122034_| (##structure gx#syntax-quote::t '&module-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121929_| + (define |gx[1]#_g122035_| (##structure gx#syntax-quote::t '&module-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121932_| + (define |gx[1]#_g122038_| (##structure gx#syntax-quote::t 'extern-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121934_| + (define |gx[1]#_g122040_| (##structure gx#syntax-quote::t 'make-extern-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121936_| + (define |gx[1]#_g122042_| (##structure gx#syntax-quote::t 'extern-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121938_| + (define |gx[1]#_g122044_| (##structure gx#syntax-quote::t 'extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121939_| + (define |gx[1]#_g122045_| (##structure gx#syntax-quote::t 'extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121940_| + (define |gx[1]#_g122046_| (##structure gx#syntax-quote::t 'extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121942_| + (define |gx[1]#_g122048_| (##structure gx#syntax-quote::t 'extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121943_| + (define |gx[1]#_g122049_| (##structure gx#syntax-quote::t 'extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121944_| + (define |gx[1]#_g122050_| (##structure gx#syntax-quote::t 'extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121946_| + (define |gx[1]#_g122052_| (##structure gx#syntax-quote::t '&extern-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121947_| + (define |gx[1]#_g122053_| (##structure gx#syntax-quote::t '&extern-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121948_| + (define |gx[1]#_g122054_| (##structure gx#syntax-quote::t '&extern-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121950_| + (define |gx[1]#_g122056_| (##structure gx#syntax-quote::t '&extern-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121951_| + (define |gx[1]#_g122057_| (##structure gx#syntax-quote::t '&extern-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121952_| + (define |gx[1]#_g122058_| (##structure gx#syntax-quote::t '&extern-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121955_| + (define |gx[1]#_g122061_| (##structure gx#syntax-quote::t 'syntax-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121957_| + (define |gx[1]#_g122063_| (##structure gx#syntax-quote::t 'make-syntax-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121959_| + (define |gx[1]#_g122065_| (##structure gx#syntax-quote::t 'syntax-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121961_| + (define |gx[1]#_g122067_| (##structure gx#syntax-quote::t 'syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121962_| + (define |gx[1]#_g122068_| (##structure gx#syntax-quote::t 'syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121963_| + (define |gx[1]#_g122069_| (##structure gx#syntax-quote::t 'syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121964_| + (define |gx[1]#_g122070_| (##structure gx#syntax-quote::t 'syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121966_| + (define |gx[1]#_g122072_| (##structure gx#syntax-quote::t 'syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121967_| + (define |gx[1]#_g122073_| (##structure gx#syntax-quote::t 'syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121968_| + (define |gx[1]#_g122074_| (##structure gx#syntax-quote::t 'syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121969_| + (define |gx[1]#_g122075_| (##structure gx#syntax-quote::t 'syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121971_| + (define |gx[1]#_g122077_| (##structure gx#syntax-quote::t '&syntax-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121972_| + (define |gx[1]#_g122078_| (##structure gx#syntax-quote::t '&syntax-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121973_| + (define |gx[1]#_g122079_| (##structure gx#syntax-quote::t '&syntax-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121974_| + (define |gx[1]#_g122080_| (##structure gx#syntax-quote::t '&syntax-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121976_| + (define |gx[1]#_g122082_| (##structure gx#syntax-quote::t '&syntax-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121977_| + (define |gx[1]#_g122083_| (##structure gx#syntax-quote::t '&syntax-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121978_| + (define |gx[1]#_g122084_| (##structure gx#syntax-quote::t '&syntax-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121979_| + (define |gx[1]#_g122085_| (##structure gx#syntax-quote::t '&syntax-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121982_| + (define |gx[1]#_g122088_| (##structure gx#syntax-quote::t 'import-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g121984_| + (define |gx[1]#_g122090_| (##structure gx#syntax-quote::t 'make-import-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g121986_| + (define |gx[1]#_g122092_| (##structure gx#syntax-quote::t 'import-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121988_| + (define |gx[1]#_g122094_| (##structure gx#syntax-quote::t 'import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g121989_| + (define |gx[1]#_g122095_| (##structure gx#syntax-quote::t 'import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g121990_| + (define |gx[1]#_g122096_| (##structure gx#syntax-quote::t 'import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g121991_| + (define |gx[1]#_g122097_| (##structure gx#syntax-quote::t 'import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g121992_| + (define |gx[1]#_g122098_| (##structure gx#syntax-quote::t 'import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g121993_| + (define |gx[1]#_g122099_| (##structure gx#syntax-quote::t 'import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g121995_| + (define |gx[1]#_g122101_| (##structure gx#syntax-quote::t 'import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121996_| + (define |gx[1]#_g122102_| (##structure gx#syntax-quote::t 'import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121997_| + (define |gx[1]#_g122103_| (##structure gx#syntax-quote::t 'import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121998_| + (define |gx[1]#_g122104_| (##structure gx#syntax-quote::t 'import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g121999_| + (define |gx[1]#_g122105_| (##structure gx#syntax-quote::t 'import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122000_| + (define |gx[1]#_g122106_| (##structure gx#syntax-quote::t 'import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122002_| + (define |gx[1]#_g122108_| (##structure gx#syntax-quote::t '&import-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122003_| + (define |gx[1]#_g122109_| (##structure gx#syntax-quote::t '&import-binding-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122004_| + (define |gx[1]#_g122110_| (##structure gx#syntax-quote::t '&import-binding-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122005_| + (define |gx[1]#_g122111_| (##structure gx#syntax-quote::t '&import-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122006_| + (define |gx[1]#_g122112_| (##structure gx#syntax-quote::t '&import-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122007_| + (define |gx[1]#_g122113_| (##structure gx#syntax-quote::t '&import-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122009_| + (define |gx[1]#_g122115_| (##structure gx#syntax-quote::t '&import-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122010_| + (define |gx[1]#_g122116_| (##structure gx#syntax-quote::t '&import-binding-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122011_| + (define |gx[1]#_g122117_| (##structure gx#syntax-quote::t '&import-binding-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122012_| + (define |gx[1]#_g122118_| (##structure gx#syntax-quote::t '&import-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122013_| + (define |gx[1]#_g122119_| (##structure gx#syntax-quote::t '&import-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122014_| + (define |gx[1]#_g122120_| (##structure gx#syntax-quote::t '&import-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122017_| + (define |gx[1]#_g122123_| (##structure gx#syntax-quote::t 'alias-binding::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122019_| + (define |gx[1]#_g122125_| (##structure gx#syntax-quote::t 'make-alias-binding #f (gx#current-expander-context) '())) - (define |gx[1]#_g122021_| + (define |gx[1]#_g122127_| (##structure gx#syntax-quote::t 'alias-binding? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122023_| + (define |gx[1]#_g122129_| (##structure gx#syntax-quote::t 'alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122024_| + (define |gx[1]#_g122130_| (##structure gx#syntax-quote::t 'alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122025_| + (define |gx[1]#_g122131_| (##structure gx#syntax-quote::t 'alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122026_| + (define |gx[1]#_g122132_| (##structure gx#syntax-quote::t 'alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122028_| + (define |gx[1]#_g122134_| (##structure gx#syntax-quote::t 'alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122029_| + (define |gx[1]#_g122135_| (##structure gx#syntax-quote::t 'alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122030_| + (define |gx[1]#_g122136_| (##structure gx#syntax-quote::t 'alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122031_| + (define |gx[1]#_g122137_| (##structure gx#syntax-quote::t 'alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122033_| + (define |gx[1]#_g122139_| (##structure gx#syntax-quote::t '&alias-binding-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122034_| + (define |gx[1]#_g122140_| (##structure gx#syntax-quote::t '&alias-binding-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122035_| + (define |gx[1]#_g122141_| (##structure gx#syntax-quote::t '&alias-binding-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g122036_| + (define |gx[1]#_g122142_| (##structure gx#syntax-quote::t '&alias-binding-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122038_| + (define |gx[1]#_g122144_| (##structure gx#syntax-quote::t '&alias-binding-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122039_| + (define |gx[1]#_g122145_| (##structure gx#syntax-quote::t '&alias-binding-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122040_| + (define |gx[1]#_g122146_| (##structure gx#syntax-quote::t '&alias-binding-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122041_| + (define |gx[1]#_g122147_| (##structure gx#syntax-quote::t '&alias-binding-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122043_| + (define |gx[1]#_g122149_| (##structure gx#syntax-quote::t 'expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122045_| + (define |gx[1]#_g122151_| (##structure gx#syntax-quote::t 'make-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122047_| + (define |gx[1]#_g122153_| (##structure gx#syntax-quote::t 'expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122049_| + (define |gx[1]#_g122155_| (##structure gx#syntax-quote::t 'expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122051_| + (define |gx[1]#_g122157_| (##structure gx#syntax-quote::t 'expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122053_| + (define |gx[1]#_g122159_| (##structure gx#syntax-quote::t '&expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122055_| + (define |gx[1]#_g122161_| (##structure gx#syntax-quote::t '&expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122057_| + (define |gx[1]#_g122163_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122059_| + (define |gx[1]#_g122165_| (##structure gx#syntax-quote::t 'core-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122061_| + (define |gx[1]#_g122167_| (##structure gx#syntax-quote::t 'make-core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122063_| + (define |gx[1]#_g122169_| (##structure gx#syntax-quote::t 'core-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122065_| + (define |gx[1]#_g122171_| (##structure gx#syntax-quote::t 'core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122066_| + (define |gx[1]#_g122172_| (##structure gx#syntax-quote::t 'core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122067_| + (define |gx[1]#_g122173_| (##structure gx#syntax-quote::t 'core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122069_| + (define |gx[1]#_g122175_| (##structure gx#syntax-quote::t 'core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122070_| + (define |gx[1]#_g122176_| (##structure gx#syntax-quote::t 'core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122071_| + (define |gx[1]#_g122177_| (##structure gx#syntax-quote::t 'core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122073_| + (define |gx[1]#_g122179_| (##structure gx#syntax-quote::t '&core-expander-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122074_| + (define |gx[1]#_g122180_| (##structure gx#syntax-quote::t '&core-expander-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122075_| + (define |gx[1]#_g122181_| (##structure gx#syntax-quote::t '&core-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122077_| + (define |gx[1]#_g122183_| (##structure gx#syntax-quote::t '&core-expander-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122078_| + (define |gx[1]#_g122184_| (##structure gx#syntax-quote::t '&core-expander-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122079_| + (define |gx[1]#_g122185_| (##structure gx#syntax-quote::t '&core-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122081_| + (define |gx[1]#_g122187_| (##structure gx#syntax-quote::t 'core-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122083_| + (define |gx[1]#_g122189_| (##structure gx#syntax-quote::t 'expression-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122085_| + (define |gx[1]#_g122191_| (##structure gx#syntax-quote::t 'make-expression-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122087_| + (define |gx[1]#_g122193_| (##structure gx#syntax-quote::t 'expression-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122089_| + (define |gx[1]#_g122195_| (##structure gx#syntax-quote::t 'expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122090_| + (define |gx[1]#_g122196_| (##structure gx#syntax-quote::t 'expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122091_| + (define |gx[1]#_g122197_| (##structure gx#syntax-quote::t 'expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122093_| + (define |gx[1]#_g122199_| (##structure gx#syntax-quote::t 'expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122094_| + (define |gx[1]#_g122200_| (##structure gx#syntax-quote::t 'expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122095_| + (define |gx[1]#_g122201_| (##structure gx#syntax-quote::t 'expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122097_| + (define |gx[1]#_g122203_| (##structure gx#syntax-quote::t '&expression-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122098_| + (define |gx[1]#_g122204_| (##structure gx#syntax-quote::t '&expression-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122099_| + (define |gx[1]#_g122205_| (##structure gx#syntax-quote::t '&expression-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122101_| + (define |gx[1]#_g122207_| (##structure gx#syntax-quote::t '&expression-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122102_| + (define |gx[1]#_g122208_| (##structure gx#syntax-quote::t '&expression-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122103_| + (define |gx[1]#_g122209_| (##structure gx#syntax-quote::t '&expression-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122106_| + (define |gx[1]#_g122212_| (##structure gx#syntax-quote::t 'special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122108_| + (define |gx[1]#_g122214_| (##structure gx#syntax-quote::t 'make-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122110_| + (define |gx[1]#_g122216_| (##structure gx#syntax-quote::t 'special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122112_| + (define |gx[1]#_g122218_| (##structure gx#syntax-quote::t 'special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122113_| + (define |gx[1]#_g122219_| (##structure gx#syntax-quote::t 'special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122114_| + (define |gx[1]#_g122220_| (##structure gx#syntax-quote::t 'special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122116_| + (define |gx[1]#_g122222_| (##structure gx#syntax-quote::t 'special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122117_| + (define |gx[1]#_g122223_| (##structure gx#syntax-quote::t 'special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122118_| + (define |gx[1]#_g122224_| (##structure gx#syntax-quote::t 'special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122120_| + (define |gx[1]#_g122226_| (##structure gx#syntax-quote::t '&special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122121_| + (define |gx[1]#_g122227_| (##structure gx#syntax-quote::t '&special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122122_| + (define |gx[1]#_g122228_| (##structure gx#syntax-quote::t '&special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122124_| + (define |gx[1]#_g122230_| (##structure gx#syntax-quote::t '&special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122125_| + (define |gx[1]#_g122231_| (##structure gx#syntax-quote::t '&special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122126_| + (define |gx[1]#_g122232_| (##structure gx#syntax-quote::t '&special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122128_| + (define |gx[1]#_g122234_| (##structure gx#syntax-quote::t 'special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122130_| + (define |gx[1]#_g122236_| (##structure gx#syntax-quote::t 'definition-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122132_| + (define |gx[1]#_g122238_| (##structure gx#syntax-quote::t 'make-definition-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122134_| + (define |gx[1]#_g122240_| (##structure gx#syntax-quote::t 'definition-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122136_| + (define |gx[1]#_g122242_| (##structure gx#syntax-quote::t 'definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122137_| + (define |gx[1]#_g122243_| (##structure gx#syntax-quote::t 'definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122138_| + (define |gx[1]#_g122244_| (##structure gx#syntax-quote::t 'definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122140_| + (define |gx[1]#_g122246_| (##structure gx#syntax-quote::t 'definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122141_| + (define |gx[1]#_g122247_| (##structure gx#syntax-quote::t 'definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122142_| + (define |gx[1]#_g122248_| (##structure gx#syntax-quote::t 'definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122144_| + (define |gx[1]#_g122250_| (##structure gx#syntax-quote::t '&definition-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122145_| + (define |gx[1]#_g122251_| (##structure gx#syntax-quote::t '&definition-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122146_| + (define |gx[1]#_g122252_| (##structure gx#syntax-quote::t '&definition-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122148_| + (define |gx[1]#_g122254_| (##structure gx#syntax-quote::t '&definition-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122149_| + (define |gx[1]#_g122255_| (##structure gx#syntax-quote::t '&definition-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122150_| + (define |gx[1]#_g122256_| (##structure gx#syntax-quote::t '&definition-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122153_| + (define |gx[1]#_g122259_| (##structure gx#syntax-quote::t 'top-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122155_| + (define |gx[1]#_g122261_| (##structure gx#syntax-quote::t 'make-top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122157_| + (define |gx[1]#_g122263_| (##structure gx#syntax-quote::t 'top-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122159_| + (define |gx[1]#_g122265_| (##structure gx#syntax-quote::t 'top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122160_| + (define |gx[1]#_g122266_| (##structure gx#syntax-quote::t 'top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122161_| + (define |gx[1]#_g122267_| (##structure gx#syntax-quote::t 'top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122163_| + (define |gx[1]#_g122269_| (##structure gx#syntax-quote::t 'top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122164_| + (define |gx[1]#_g122270_| (##structure gx#syntax-quote::t 'top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122165_| + (define |gx[1]#_g122271_| (##structure gx#syntax-quote::t 'top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122167_| + (define |gx[1]#_g122273_| (##structure gx#syntax-quote::t '&top-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122168_| + (define |gx[1]#_g122274_| (##structure gx#syntax-quote::t '&top-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122169_| + (define |gx[1]#_g122275_| (##structure gx#syntax-quote::t '&top-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122171_| + (define |gx[1]#_g122277_| (##structure gx#syntax-quote::t '&top-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122172_| + (define |gx[1]#_g122278_| (##structure gx#syntax-quote::t '&top-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122173_| + (define |gx[1]#_g122279_| (##structure gx#syntax-quote::t '&top-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122175_| + (define |gx[1]#_g122281_| (##structure gx#syntax-quote::t 'top-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122177_| + (define |gx[1]#_g122283_| (##structure gx#syntax-quote::t 'module-special-form::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122179_| + (define |gx[1]#_g122285_| (##structure gx#syntax-quote::t 'make-module-special-form #f (gx#current-expander-context) '())) - (define |gx[1]#_g122181_| + (define |gx[1]#_g122287_| (##structure gx#syntax-quote::t 'module-special-form? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122183_| + (define |gx[1]#_g122289_| (##structure gx#syntax-quote::t 'module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122184_| + (define |gx[1]#_g122290_| (##structure gx#syntax-quote::t 'module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122185_| + (define |gx[1]#_g122291_| (##structure gx#syntax-quote::t 'module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122187_| + (define |gx[1]#_g122293_| (##structure gx#syntax-quote::t 'module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122188_| + (define |gx[1]#_g122294_| (##structure gx#syntax-quote::t 'module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122189_| + (define |gx[1]#_g122295_| (##structure gx#syntax-quote::t 'module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122191_| + (define |gx[1]#_g122297_| (##structure gx#syntax-quote::t '&module-special-form-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g122192_| + (define |gx[1]#_g122298_| (##structure gx#syntax-quote::t '&module-special-form-compile-top #f (gx#current-expander-context) '())) - (define |gx[1]#_g122193_| + (define |gx[1]#_g122299_| (##structure gx#syntax-quote::t '&module-special-form-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122195_| + (define |gx[1]#_g122301_| (##structure gx#syntax-quote::t '&module-special-form-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122196_| + (define |gx[1]#_g122302_| (##structure gx#syntax-quote::t '&module-special-form-compile-top-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122197_| + (define |gx[1]#_g122303_| (##structure gx#syntax-quote::t '&module-special-form-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122200_| + (define |gx[1]#_g122306_| (##structure gx#syntax-quote::t 'feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122202_| + (define |gx[1]#_g122308_| (##structure gx#syntax-quote::t 'make-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122204_| + (define |gx[1]#_g122310_| (##structure gx#syntax-quote::t 'feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122206_| + (define |gx[1]#_g122312_| (##structure gx#syntax-quote::t 'feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122208_| + (define |gx[1]#_g122314_| (##structure gx#syntax-quote::t 'feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122210_| + (define |gx[1]#_g122316_| (##structure gx#syntax-quote::t '&feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122212_| + (define |gx[1]#_g122318_| (##structure gx#syntax-quote::t '&feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122214_| + (define |gx[1]#_g122320_| (##structure gx#syntax-quote::t 'feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122216_| + (define |gx[1]#_g122322_| (##structure gx#syntax-quote::t 'private-feature-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122218_| + (define |gx[1]#_g122324_| (##structure gx#syntax-quote::t 'make-private-feature-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122220_| + (define |gx[1]#_g122326_| (##structure gx#syntax-quote::t 'private-feature-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122222_| + (define |gx[1]#_g122328_| (##structure gx#syntax-quote::t 'private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122224_| + (define |gx[1]#_g122330_| (##structure gx#syntax-quote::t 'private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122226_| + (define |gx[1]#_g122332_| (##structure gx#syntax-quote::t '&private-feature-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122228_| + (define |gx[1]#_g122334_| (##structure gx#syntax-quote::t '&private-feature-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122231_| + (define |gx[1]#_g122337_| (##structure gx#syntax-quote::t 'reserved-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122233_| + (define |gx[1]#_g122339_| (##structure gx#syntax-quote::t 'make-reserved-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122235_| + (define |gx[1]#_g122341_| (##structure gx#syntax-quote::t 'reserved-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122237_| + (define |gx[1]#_g122343_| (##structure gx#syntax-quote::t 'reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122239_| + (define |gx[1]#_g122345_| (##structure gx#syntax-quote::t 'reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122241_| + (define |gx[1]#_g122347_| (##structure gx#syntax-quote::t '&reserved-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122243_| + (define |gx[1]#_g122349_| (##structure gx#syntax-quote::t '&reserved-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122246_| + (define |gx[1]#_g122352_| (##structure gx#syntax-quote::t 'macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122248_| + (define |gx[1]#_g122354_| (##structure gx#syntax-quote::t 'make-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122250_| + (define |gx[1]#_g122356_| (##structure gx#syntax-quote::t 'macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122252_| + (define |gx[1]#_g122358_| (##structure gx#syntax-quote::t 'macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122254_| + (define |gx[1]#_g122360_| (##structure gx#syntax-quote::t 'macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122256_| + (define |gx[1]#_g122362_| (##structure gx#syntax-quote::t '¯o-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122258_| + (define |gx[1]#_g122364_| (##structure gx#syntax-quote::t '¯o-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122260_| + (define |gx[1]#_g122366_| (##structure gx#syntax-quote::t 'macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122262_| + (define |gx[1]#_g122368_| (##structure gx#syntax-quote::t 'rename-macro-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122264_| + (define |gx[1]#_g122370_| (##structure gx#syntax-quote::t 'make-rename-macro-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122266_| + (define |gx[1]#_g122372_| (##structure gx#syntax-quote::t 'rename-macro-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122268_| + (define |gx[1]#_g122374_| (##structure gx#syntax-quote::t 'rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122270_| + (define |gx[1]#_g122376_| (##structure gx#syntax-quote::t 'rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122272_| + (define |gx[1]#_g122378_| (##structure gx#syntax-quote::t '&rename-macro-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122274_| + (define |gx[1]#_g122380_| (##structure gx#syntax-quote::t '&rename-macro-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122277_| + (define |gx[1]#_g122383_| (##structure gx#syntax-quote::t 'user-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122279_| + (define |gx[1]#_g122385_| (##structure gx#syntax-quote::t 'make-user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g122281_| + (define |gx[1]#_g122387_| (##structure gx#syntax-quote::t 'user-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122283_| + (define |gx[1]#_g122389_| (##structure gx#syntax-quote::t 'user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122284_| + (define |gx[1]#_g122390_| (##structure gx#syntax-quote::t 'user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122285_| + (define |gx[1]#_g122391_| (##structure gx#syntax-quote::t 'user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122287_| + (define |gx[1]#_g122393_| (##structure gx#syntax-quote::t 'user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122288_| + (define |gx[1]#_g122394_| (##structure gx#syntax-quote::t 'user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122289_| + (define |gx[1]#_g122395_| (##structure gx#syntax-quote::t 'user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122291_| + (define |gx[1]#_g122397_| (##structure gx#syntax-quote::t '&user-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122292_| + (define |gx[1]#_g122398_| (##structure gx#syntax-quote::t '&user-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122293_| + (define |gx[1]#_g122399_| (##structure gx#syntax-quote::t '&user-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g122295_| + (define |gx[1]#_g122401_| (##structure gx#syntax-quote::t '&user-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122296_| + (define |gx[1]#_g122402_| (##structure gx#syntax-quote::t '&user-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122297_| + (define |gx[1]#_g122403_| (##structure gx#syntax-quote::t '&user-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122299_| + (define |gx[1]#_g122405_| (##structure gx#syntax-quote::t 'expander-mark::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g122301_| + (define |gx[1]#_g122407_| (##structure gx#syntax-quote::t 'make-expander-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g122303_| + (define |gx[1]#_g122409_| (##structure gx#syntax-quote::t 'expander-mark? #f (gx#current-expander-context) '())) - (define |gx[1]#_g122305_| + (define |gx[1]#_g122411_| (##structure gx#syntax-quote::t 'expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122306_| + (define |gx[1]#_g122412_| (##structure gx#syntax-quote::t 'expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122307_| + (define |gx[1]#_g122413_| (##structure gx#syntax-quote::t 'expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122308_| + (define |gx[1]#_g122414_| (##structure gx#syntax-quote::t 'expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122310_| + (define |gx[1]#_g122416_| (##structure gx#syntax-quote::t 'expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122311_| + (define |gx[1]#_g122417_| (##structure gx#syntax-quote::t 'expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122312_| + (define |gx[1]#_g122418_| (##structure gx#syntax-quote::t 'expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122313_| + (define |gx[1]#_g122419_| (##structure gx#syntax-quote::t 'expander-mark-trace-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122315_| + (define |gx[1]#_g122421_| (##structure gx#syntax-quote::t '&expander-mark-subst #f (gx#current-expander-context) '())) - (define |gx[1]#_g122316_| + (define |gx[1]#_g122422_| (##structure gx#syntax-quote::t '&expander-mark-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g122317_| + (define |gx[1]#_g122423_| (##structure gx#syntax-quote::t '&expander-mark-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g122318_| + (define |gx[1]#_g122424_| (##structure gx#syntax-quote::t '&expander-mark-trace #f (gx#current-expander-context) '())) - (define |gx[1]#_g122320_| + (define |gx[1]#_g122426_| (##structure gx#syntax-quote::t '&expander-mark-subst-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122321_| + (define |gx[1]#_g122427_| (##structure gx#syntax-quote::t '&expander-mark-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122322_| + (define |gx[1]#_g122428_| (##structure gx#syntax-quote::t '&expander-mark-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g122323_| + (define |gx[1]#_g122429_| (##structure gx#syntax-quote::t '&expander-mark-trace-set! @@ -3572,7 +3572,7 @@ '())) (begin (define |gx[:0:]#expander-context| - (let ((__obj121497 + (let ((__obj121603 (let () (declare (not safe)) (##structure @@ -3601,7 +3601,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121497 + __obj121603 'gx#expander-context::t '1 '#f @@ -3609,73 +3609,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121497 + __obj121603 'expander-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '(id table) '4 '#f '#f)) + (##unchecked-structure-set! __obj121603 '(id table) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '(id table) '6 '#f '#f)) + (##unchecked-structure-set! __obj121603 '(id table) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121603 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121603 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121603 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121603 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 ':init! '11 '#f '#f)) - (let ((__tmp121578 |gx[1]#_g121579_|)) + (##unchecked-structure-set! __obj121603 ':init! '11 '#f '#f)) + (let ((__tmp121684 |gx[1]#_g121685_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121578 '12 '#f '#f)) - (let ((__tmp121580 |gx[1]#_g121581_|)) + (##unchecked-structure-set! __obj121603 __tmp121684 '12 '#f '#f)) + (let ((__tmp121686 |gx[1]#_g121687_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121580 '13 '#f '#f)) - (let ((__tmp121582 |gx[1]#_g121583_|)) + (##unchecked-structure-set! __obj121603 __tmp121686 '13 '#f '#f)) + (let ((__tmp121688 |gx[1]#_g121689_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121582 '14 '#f '#f)) - (let ((__tmp121584 - (cons (cons 'id |gx[1]#_g121585_|) - (cons (cons 'table |gx[1]#_g121586_|) '())))) + (##unchecked-structure-set! __obj121603 __tmp121688 '14 '#f '#f)) + (let ((__tmp121690 + (cons (cons 'id |gx[1]#_g121691_|) + (cons (cons 'table |gx[1]#_g121692_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121584 '15 '#f '#f)) - (let ((__tmp121587 - (cons (cons 'id |gx[1]#_g121588_|) - (cons (cons 'table |gx[1]#_g121589_|) '())))) + (##unchecked-structure-set! __obj121603 __tmp121690 '15 '#f '#f)) + (let ((__tmp121693 + (cons (cons 'id |gx[1]#_g121694_|) + (cons (cons 'table |gx[1]#_g121695_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121587 '16 '#f '#f)) - (let ((__tmp121590 - (cons (cons 'id |gx[1]#_g121591_|) - (cons (cons 'table |gx[1]#_g121592_|) '())))) + (##unchecked-structure-set! __obj121603 __tmp121693 '16 '#f '#f)) + (let ((__tmp121696 + (cons (cons 'id |gx[1]#_g121697_|) + (cons (cons 'table |gx[1]#_g121698_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121590 '17 '#f '#f)) - (let ((__tmp121593 - (cons (cons 'id |gx[1]#_g121594_|) - (cons (cons 'table |gx[1]#_g121595_|) '())))) + (##unchecked-structure-set! __obj121603 __tmp121696 '17 '#f '#f)) + (let ((__tmp121699 + (cons (cons 'id |gx[1]#_g121700_|) + (cons (cons 'table |gx[1]#_g121701_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121497 __tmp121593 '18 '#f '#f)) + (##unchecked-structure-set! __obj121603 __tmp121699 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121603 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121603 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121497 '() '20 '#f '#f)) - __obj121497)) + (##unchecked-structure-set! __obj121603 '() '20 '#f '#f)) + __obj121603)) (define |gx[:0:]#root-context| - (let ((__obj121498 + (let ((__obj121604 (let () (declare (not safe)) (##structure @@ -3704,76 +3704,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121498 + __obj121604 'gx#root-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 'root-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121604 'root-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121604 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '(id table) '6 '#f '#f)) - (let ((__tmp121596 (cons |gx[1]#_g121597_| '()))) + (##unchecked-structure-set! __obj121604 '(id table) '6 '#f '#f)) + (let ((__tmp121702 (cons |gx[1]#_g121703_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121596 '3 '#f '#f)) + (##unchecked-structure-set! __obj121604 __tmp121702 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121604 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121604 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121604 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '#f '11 '#f '#f)) - (let ((__tmp121598 |gx[1]#_g121599_|)) + (##unchecked-structure-set! __obj121604 '#f '11 '#f '#f)) + (let ((__tmp121704 |gx[1]#_g121705_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121598 '12 '#f '#f)) - (let ((__tmp121600 |gx[1]#_g121601_|)) + (##unchecked-structure-set! __obj121604 __tmp121704 '12 '#f '#f)) + (let ((__tmp121706 |gx[1]#_g121707_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121600 '13 '#f '#f)) - (let ((__tmp121602 |gx[1]#_g121603_|)) + (##unchecked-structure-set! __obj121604 __tmp121706 '13 '#f '#f)) + (let ((__tmp121708 |gx[1]#_g121709_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121602 '14 '#f '#f)) - (let ((__tmp121604 - (cons (cons 'id |gx[1]#_g121605_|) - (cons (cons 'table |gx[1]#_g121606_|) '())))) + (##unchecked-structure-set! __obj121604 __tmp121708 '14 '#f '#f)) + (let ((__tmp121710 + (cons (cons 'id |gx[1]#_g121711_|) + (cons (cons 'table |gx[1]#_g121712_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121604 '15 '#f '#f)) - (let ((__tmp121607 - (cons (cons 'id |gx[1]#_g121608_|) - (cons (cons 'table |gx[1]#_g121609_|) '())))) + (##unchecked-structure-set! __obj121604 __tmp121710 '15 '#f '#f)) + (let ((__tmp121713 + (cons (cons 'id |gx[1]#_g121714_|) + (cons (cons 'table |gx[1]#_g121715_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121607 '16 '#f '#f)) - (let ((__tmp121610 - (cons (cons 'id |gx[1]#_g121611_|) - (cons (cons 'table |gx[1]#_g121612_|) '())))) + (##unchecked-structure-set! __obj121604 __tmp121713 '16 '#f '#f)) + (let ((__tmp121716 + (cons (cons 'id |gx[1]#_g121717_|) + (cons (cons 'table |gx[1]#_g121718_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121610 '17 '#f '#f)) - (let ((__tmp121613 - (cons (cons 'id |gx[1]#_g121614_|) - (cons (cons 'table |gx[1]#_g121615_|) '())))) + (##unchecked-structure-set! __obj121604 __tmp121716 '17 '#f '#f)) + (let ((__tmp121719 + (cons (cons 'id |gx[1]#_g121720_|) + (cons (cons 'table |gx[1]#_g121721_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj121498 __tmp121613 '18 '#f '#f)) + (##unchecked-structure-set! __obj121604 __tmp121719 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121604 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121604 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121498 '() '20 '#f '#f)) - __obj121498)) + (##unchecked-structure-set! __obj121604 '() '20 '#f '#f)) + __obj121604)) (define |gx[:0:]#phi-context| - (let ((__obj121499 + (let ((__obj121605 (let () (declare (not safe)) (##structure @@ -3802,97 +3802,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121499 + __obj121605 'gx#phi-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 'phi-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121605 'phi-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '(super up down) '4 '#f '#f)) + (##unchecked-structure-set! __obj121605 '(super up down) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121499 + __obj121605 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121616 (cons |gx[1]#_g121597_| '()))) + (let ((__tmp121722 (cons |gx[1]#_g121703_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121616 '3 '#f '#f)) + (##unchecked-structure-set! __obj121605 __tmp121722 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121605 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121605 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121605 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '#f '11 '#f '#f)) - (let ((__tmp121617 |gx[1]#_g121618_|)) + (##unchecked-structure-set! __obj121605 '#f '11 '#f '#f)) + (let ((__tmp121723 |gx[1]#_g121724_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121617 '12 '#f '#f)) - (let ((__tmp121619 |gx[1]#_g121620_|)) + (##unchecked-structure-set! __obj121605 __tmp121723 '12 '#f '#f)) + (let ((__tmp121725 |gx[1]#_g121726_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121619 '13 '#f '#f)) - (let ((__tmp121621 |gx[1]#_g121622_|)) + (##unchecked-structure-set! __obj121605 __tmp121725 '13 '#f '#f)) + (let ((__tmp121727 |gx[1]#_g121728_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121621 '14 '#f '#f)) - (let ((__tmp121623 - (cons (cons 'super |gx[1]#_g121624_|) - (cons (cons 'up |gx[1]#_g121625_|) - (cons (cons 'down |gx[1]#_g121626_|) - (cons (cons 'id |gx[1]#_g121627_|) - (cons (cons 'table |gx[1]#_g121628_|) + (##unchecked-structure-set! __obj121605 __tmp121727 '14 '#f '#f)) + (let ((__tmp121729 + (cons (cons 'super |gx[1]#_g121730_|) + (cons (cons 'up |gx[1]#_g121731_|) + (cons (cons 'down |gx[1]#_g121732_|) + (cons (cons 'id |gx[1]#_g121733_|) + (cons (cons 'table |gx[1]#_g121734_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121623 '15 '#f '#f)) - (let ((__tmp121629 - (cons (cons 'super |gx[1]#_g121630_|) - (cons (cons 'up |gx[1]#_g121631_|) - (cons (cons 'down |gx[1]#_g121632_|) - (cons (cons 'id |gx[1]#_g121633_|) - (cons (cons 'table |gx[1]#_g121634_|) + (##unchecked-structure-set! __obj121605 __tmp121729 '15 '#f '#f)) + (let ((__tmp121735 + (cons (cons 'super |gx[1]#_g121736_|) + (cons (cons 'up |gx[1]#_g121737_|) + (cons (cons 'down |gx[1]#_g121738_|) + (cons (cons 'id |gx[1]#_g121739_|) + (cons (cons 'table |gx[1]#_g121740_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121629 '16 '#f '#f)) - (let ((__tmp121635 - (cons (cons 'super |gx[1]#_g121636_|) - (cons (cons 'up |gx[1]#_g121637_|) - (cons (cons 'down |gx[1]#_g121638_|) - (cons (cons 'id |gx[1]#_g121639_|) - (cons (cons 'table |gx[1]#_g121640_|) + (##unchecked-structure-set! __obj121605 __tmp121735 '16 '#f '#f)) + (let ((__tmp121741 + (cons (cons 'super |gx[1]#_g121742_|) + (cons (cons 'up |gx[1]#_g121743_|) + (cons (cons 'down |gx[1]#_g121744_|) + (cons (cons 'id |gx[1]#_g121745_|) + (cons (cons 'table |gx[1]#_g121746_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121635 '17 '#f '#f)) - (let ((__tmp121641 - (cons (cons 'super |gx[1]#_g121642_|) - (cons (cons 'up |gx[1]#_g121643_|) - (cons (cons 'down |gx[1]#_g121644_|) - (cons (cons 'id |gx[1]#_g121645_|) - (cons (cons 'table |gx[1]#_g121646_|) + (##unchecked-structure-set! __obj121605 __tmp121741 '17 '#f '#f)) + (let ((__tmp121747 + (cons (cons 'super |gx[1]#_g121748_|) + (cons (cons 'up |gx[1]#_g121749_|) + (cons (cons 'down |gx[1]#_g121750_|) + (cons (cons 'id |gx[1]#_g121751_|) + (cons (cons 'table |gx[1]#_g121752_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121499 __tmp121641 '18 '#f '#f)) + (##unchecked-structure-set! __obj121605 __tmp121747 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121605 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121605 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121499 '() '20 '#f '#f)) - __obj121499)) + (##unchecked-structure-set! __obj121605 '() '20 '#f '#f)) + __obj121605)) (define |gx[:0:]#top-context| - (let ((__obj121500 + (let ((__obj121606 (let () (declare (not safe)) (##structure @@ -3921,97 +3921,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121500 + __obj121606 'gx#top-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 'top-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121606 'top-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121606 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121500 + __obj121606 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121647 (cons |gx[1]#_g121648_| '()))) + (let ((__tmp121753 (cons |gx[1]#_g121754_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121647 '3 '#f '#f)) + (##unchecked-structure-set! __obj121606 __tmp121753 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121606 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121606 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121606 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '#f '11 '#f '#f)) - (let ((__tmp121649 |gx[1]#_g121650_|)) + (##unchecked-structure-set! __obj121606 '#f '11 '#f '#f)) + (let ((__tmp121755 |gx[1]#_g121756_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121649 '12 '#f '#f)) - (let ((__tmp121651 |gx[1]#_g121652_|)) + (##unchecked-structure-set! __obj121606 __tmp121755 '12 '#f '#f)) + (let ((__tmp121757 |gx[1]#_g121758_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121651 '13 '#f '#f)) - (let ((__tmp121653 |gx[1]#_g121654_|)) + (##unchecked-structure-set! __obj121606 __tmp121757 '13 '#f '#f)) + (let ((__tmp121759 |gx[1]#_g121760_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121653 '14 '#f '#f)) - (let ((__tmp121655 - (cons (cons 'super |gx[1]#_g121656_|) - (cons (cons 'up |gx[1]#_g121657_|) - (cons (cons 'down |gx[1]#_g121658_|) - (cons (cons 'id |gx[1]#_g121659_|) - (cons (cons 'table |gx[1]#_g121660_|) + (##unchecked-structure-set! __obj121606 __tmp121759 '14 '#f '#f)) + (let ((__tmp121761 + (cons (cons 'super |gx[1]#_g121762_|) + (cons (cons 'up |gx[1]#_g121763_|) + (cons (cons 'down |gx[1]#_g121764_|) + (cons (cons 'id |gx[1]#_g121765_|) + (cons (cons 'table |gx[1]#_g121766_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121655 '15 '#f '#f)) - (let ((__tmp121661 - (cons (cons 'super |gx[1]#_g121662_|) - (cons (cons 'up |gx[1]#_g121663_|) - (cons (cons 'down |gx[1]#_g121664_|) - (cons (cons 'id |gx[1]#_g121665_|) - (cons (cons 'table |gx[1]#_g121666_|) + (##unchecked-structure-set! __obj121606 __tmp121761 '15 '#f '#f)) + (let ((__tmp121767 + (cons (cons 'super |gx[1]#_g121768_|) + (cons (cons 'up |gx[1]#_g121769_|) + (cons (cons 'down |gx[1]#_g121770_|) + (cons (cons 'id |gx[1]#_g121771_|) + (cons (cons 'table |gx[1]#_g121772_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121661 '16 '#f '#f)) - (let ((__tmp121667 - (cons (cons 'super |gx[1]#_g121668_|) - (cons (cons 'up |gx[1]#_g121669_|) - (cons (cons 'down |gx[1]#_g121670_|) - (cons (cons 'id |gx[1]#_g121671_|) - (cons (cons 'table |gx[1]#_g121672_|) + (##unchecked-structure-set! __obj121606 __tmp121767 '16 '#f '#f)) + (let ((__tmp121773 + (cons (cons 'super |gx[1]#_g121774_|) + (cons (cons 'up |gx[1]#_g121775_|) + (cons (cons 'down |gx[1]#_g121776_|) + (cons (cons 'id |gx[1]#_g121777_|) + (cons (cons 'table |gx[1]#_g121778_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121667 '17 '#f '#f)) - (let ((__tmp121673 - (cons (cons 'super |gx[1]#_g121674_|) - (cons (cons 'up |gx[1]#_g121675_|) - (cons (cons 'down |gx[1]#_g121676_|) - (cons (cons 'id |gx[1]#_g121677_|) - (cons (cons 'table |gx[1]#_g121678_|) + (##unchecked-structure-set! __obj121606 __tmp121773 '17 '#f '#f)) + (let ((__tmp121779 + (cons (cons 'super |gx[1]#_g121780_|) + (cons (cons 'up |gx[1]#_g121781_|) + (cons (cons 'down |gx[1]#_g121782_|) + (cons (cons 'id |gx[1]#_g121783_|) + (cons (cons 'table |gx[1]#_g121784_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121500 __tmp121673 '18 '#f '#f)) + (##unchecked-structure-set! __obj121606 __tmp121779 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121606 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121606 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121500 '() '20 '#f '#f)) - __obj121500)) + (##unchecked-structure-set! __obj121606 '() '20 '#f '#f)) + __obj121606)) (define |gx[:0:]#module-context| - (let ((__obj121501 + (let ((__obj121607 (let () (declare (not safe)) (##structure @@ -4040,18 +4040,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121501 + __obj121607 'gx#module-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 'module-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121607 'module-context '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121501 + __obj121607 '(ns path import export e code) '4 '#f @@ -4059,127 +4059,127 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121501 + __obj121607 '(id table super up down ns path import export e code) '6 '#f '#f)) - (let ((__tmp121679 (cons |gx[1]#_g121680_| '()))) + (let ((__tmp121785 (cons |gx[1]#_g121786_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121679 '3 '#f '#f)) + (##unchecked-structure-set! __obj121607 __tmp121785 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121607 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121607 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121607 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '#f '11 '#f '#f)) - (let ((__tmp121681 |gx[1]#_g121682_|)) + (##unchecked-structure-set! __obj121607 '#f '11 '#f '#f)) + (let ((__tmp121787 |gx[1]#_g121788_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121681 '12 '#f '#f)) - (let ((__tmp121683 |gx[1]#_g121684_|)) + (##unchecked-structure-set! __obj121607 __tmp121787 '12 '#f '#f)) + (let ((__tmp121789 |gx[1]#_g121790_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121683 '13 '#f '#f)) - (let ((__tmp121685 |gx[1]#_g121686_|)) + (##unchecked-structure-set! __obj121607 __tmp121789 '13 '#f '#f)) + (let ((__tmp121791 |gx[1]#_g121792_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121685 '14 '#f '#f)) - (let ((__tmp121687 - (cons (cons 'ns |gx[1]#_g121688_|) - (cons (cons 'path |gx[1]#_g121689_|) - (cons (cons 'import |gx[1]#_g121690_|) - (cons (cons 'export |gx[1]#_g121691_|) - (cons (cons 'e |gx[1]#_g121692_|) + (##unchecked-structure-set! __obj121607 __tmp121791 '14 '#f '#f)) + (let ((__tmp121793 + (cons (cons 'ns |gx[1]#_g121794_|) + (cons (cons 'path |gx[1]#_g121795_|) + (cons (cons 'import |gx[1]#_g121796_|) + (cons (cons 'export |gx[1]#_g121797_|) + (cons (cons 'e |gx[1]#_g121798_|) (cons (cons 'code - |gx[1]#_g121693_|) + |gx[1]#_g121799_|) (cons (cons 'super - |gx[1]#_g121694_|) + |gx[1]#_g121800_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121695_|) - (cons (cons 'down |gx[1]#_g121696_|) - (cons (cons 'id |gx[1]#_g121697_|) - (cons (cons 'table |gx[1]#_g121698_|) + |gx[1]#_g121801_|) + (cons (cons 'down |gx[1]#_g121802_|) + (cons (cons 'id |gx[1]#_g121803_|) + (cons (cons 'table |gx[1]#_g121804_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121687 '15 '#f '#f)) - (let ((__tmp121699 - (cons (cons 'ns |gx[1]#_g121700_|) - (cons (cons 'path |gx[1]#_g121701_|) - (cons (cons 'import |gx[1]#_g121702_|) - (cons (cons 'export |gx[1]#_g121703_|) - (cons (cons 'e |gx[1]#_g121704_|) + (##unchecked-structure-set! __obj121607 __tmp121793 '15 '#f '#f)) + (let ((__tmp121805 + (cons (cons 'ns |gx[1]#_g121806_|) + (cons (cons 'path |gx[1]#_g121807_|) + (cons (cons 'import |gx[1]#_g121808_|) + (cons (cons 'export |gx[1]#_g121809_|) + (cons (cons 'e |gx[1]#_g121810_|) (cons (cons 'code - |gx[1]#_g121705_|) + |gx[1]#_g121811_|) (cons (cons 'super - |gx[1]#_g121706_|) + |gx[1]#_g121812_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121707_|) - (cons (cons 'down |gx[1]#_g121708_|) - (cons (cons 'id |gx[1]#_g121709_|) - (cons (cons 'table |gx[1]#_g121710_|) + |gx[1]#_g121813_|) + (cons (cons 'down |gx[1]#_g121814_|) + (cons (cons 'id |gx[1]#_g121815_|) + (cons (cons 'table |gx[1]#_g121816_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121699 '16 '#f '#f)) - (let ((__tmp121711 - (cons (cons 'ns |gx[1]#_g121712_|) - (cons (cons 'path |gx[1]#_g121713_|) - (cons (cons 'import |gx[1]#_g121714_|) - (cons (cons 'export |gx[1]#_g121715_|) - (cons (cons 'e |gx[1]#_g121716_|) + (##unchecked-structure-set! __obj121607 __tmp121805 '16 '#f '#f)) + (let ((__tmp121817 + (cons (cons 'ns |gx[1]#_g121818_|) + (cons (cons 'path |gx[1]#_g121819_|) + (cons (cons 'import |gx[1]#_g121820_|) + (cons (cons 'export |gx[1]#_g121821_|) + (cons (cons 'e |gx[1]#_g121822_|) (cons (cons 'code - |gx[1]#_g121717_|) + |gx[1]#_g121823_|) (cons (cons 'super - |gx[1]#_g121718_|) + |gx[1]#_g121824_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121719_|) - (cons (cons 'down |gx[1]#_g121720_|) - (cons (cons 'id |gx[1]#_g121721_|) - (cons (cons 'table |gx[1]#_g121722_|) + |gx[1]#_g121825_|) + (cons (cons 'down |gx[1]#_g121826_|) + (cons (cons 'id |gx[1]#_g121827_|) + (cons (cons 'table |gx[1]#_g121828_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121711 '17 '#f '#f)) - (let ((__tmp121723 - (cons (cons 'ns |gx[1]#_g121724_|) - (cons (cons 'path |gx[1]#_g121725_|) - (cons (cons 'import |gx[1]#_g121726_|) - (cons (cons 'export |gx[1]#_g121727_|) - (cons (cons 'e |gx[1]#_g121728_|) + (##unchecked-structure-set! __obj121607 __tmp121817 '17 '#f '#f)) + (let ((__tmp121829 + (cons (cons 'ns |gx[1]#_g121830_|) + (cons (cons 'path |gx[1]#_g121831_|) + (cons (cons 'import |gx[1]#_g121832_|) + (cons (cons 'export |gx[1]#_g121833_|) + (cons (cons 'e |gx[1]#_g121834_|) (cons (cons 'code - |gx[1]#_g121729_|) + |gx[1]#_g121835_|) (cons (cons 'super - |gx[1]#_g121730_|) + |gx[1]#_g121836_|) (cons (cons 'up ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121731_|) - (cons (cons 'down |gx[1]#_g121732_|) - (cons (cons 'id |gx[1]#_g121733_|) - (cons (cons 'table |gx[1]#_g121734_|) + |gx[1]#_g121837_|) + (cons (cons 'down |gx[1]#_g121838_|) + (cons (cons 'id |gx[1]#_g121839_|) + (cons (cons 'table |gx[1]#_g121840_|) '()))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121501 __tmp121723 '18 '#f '#f)) + (##unchecked-structure-set! __obj121607 __tmp121829 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121607 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121607 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121501 '() '20 '#f '#f)) - __obj121501)) + (##unchecked-structure-set! __obj121607 '() '20 '#f '#f)) + __obj121607)) (define |gx[:0:]#prelude-context| - (let ((__obj121502 + (let ((__obj121608 (let () (declare (not safe)) (##structure @@ -4208,129 +4208,129 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121502 + __obj121608 'gx#prelude-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 'prelude-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121608 'prelude-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '(path import e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121608 '(path import e) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121502 + __obj121608 '(id table super up down path import e) '6 '#f '#f)) - (let ((__tmp121735 (cons |gx[1]#_g121680_| '()))) + (let ((__tmp121841 (cons |gx[1]#_g121786_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121735 '3 '#f '#f)) + (##unchecked-structure-set! __obj121608 __tmp121841 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121608 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121608 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121608 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '#f '11 '#f '#f)) - (let ((__tmp121736 |gx[1]#_g121737_|)) + (##unchecked-structure-set! __obj121608 '#f '11 '#f '#f)) + (let ((__tmp121842 |gx[1]#_g121843_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121736 '12 '#f '#f)) - (let ((__tmp121738 |gx[1]#_g121739_|)) + (##unchecked-structure-set! __obj121608 __tmp121842 '12 '#f '#f)) + (let ((__tmp121844 |gx[1]#_g121845_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121738 '13 '#f '#f)) - (let ((__tmp121740 |gx[1]#_g121741_|)) + (##unchecked-structure-set! __obj121608 __tmp121844 '13 '#f '#f)) + (let ((__tmp121846 |gx[1]#_g121847_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121740 '14 '#f '#f)) - (let ((__tmp121742 - (cons (cons 'path |gx[1]#_g121743_|) - (cons (cons 'import |gx[1]#_g121744_|) - (cons (cons 'e |gx[1]#_g121745_|) - (cons (cons 'super |gx[1]#_g121746_|) - (cons (cons 'up |gx[1]#_g121747_|) + (##unchecked-structure-set! __obj121608 __tmp121846 '14 '#f '#f)) + (let ((__tmp121848 + (cons (cons 'path |gx[1]#_g121849_|) + (cons (cons 'import |gx[1]#_g121850_|) + (cons (cons 'e |gx[1]#_g121851_|) + (cons (cons 'super |gx[1]#_g121852_|) + (cons (cons 'up |gx[1]#_g121853_|) (cons (cons 'down - |gx[1]#_g121748_|) + |gx[1]#_g121854_|) (cons (cons 'id - |gx[1]#_g121749_|) + |gx[1]#_g121855_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121750_|) + |gx[1]#_g121856_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121742 '15 '#f '#f)) - (let ((__tmp121751 - (cons (cons 'path |gx[1]#_g121752_|) - (cons (cons 'import |gx[1]#_g121753_|) - (cons (cons 'e |gx[1]#_g121754_|) - (cons (cons 'super |gx[1]#_g121755_|) - (cons (cons 'up |gx[1]#_g121756_|) + (##unchecked-structure-set! __obj121608 __tmp121848 '15 '#f '#f)) + (let ((__tmp121857 + (cons (cons 'path |gx[1]#_g121858_|) + (cons (cons 'import |gx[1]#_g121859_|) + (cons (cons 'e |gx[1]#_g121860_|) + (cons (cons 'super |gx[1]#_g121861_|) + (cons (cons 'up |gx[1]#_g121862_|) (cons (cons 'down - |gx[1]#_g121757_|) + |gx[1]#_g121863_|) (cons (cons 'id - |gx[1]#_g121758_|) + |gx[1]#_g121864_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121759_|) + |gx[1]#_g121865_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121751 '16 '#f '#f)) - (let ((__tmp121760 - (cons (cons 'path |gx[1]#_g121761_|) - (cons (cons 'import |gx[1]#_g121762_|) - (cons (cons 'e |gx[1]#_g121763_|) - (cons (cons 'super |gx[1]#_g121764_|) - (cons (cons 'up |gx[1]#_g121765_|) + (##unchecked-structure-set! __obj121608 __tmp121857 '16 '#f '#f)) + (let ((__tmp121866 + (cons (cons 'path |gx[1]#_g121867_|) + (cons (cons 'import |gx[1]#_g121868_|) + (cons (cons 'e |gx[1]#_g121869_|) + (cons (cons 'super |gx[1]#_g121870_|) + (cons (cons 'up |gx[1]#_g121871_|) (cons (cons 'down - |gx[1]#_g121766_|) + |gx[1]#_g121872_|) (cons (cons 'id - |gx[1]#_g121767_|) + |gx[1]#_g121873_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121768_|) + |gx[1]#_g121874_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121760 '17 '#f '#f)) - (let ((__tmp121769 - (cons (cons 'path |gx[1]#_g121770_|) - (cons (cons 'import |gx[1]#_g121771_|) - (cons (cons 'e |gx[1]#_g121772_|) - (cons (cons 'super |gx[1]#_g121773_|) - (cons (cons 'up |gx[1]#_g121774_|) + (##unchecked-structure-set! __obj121608 __tmp121866 '17 '#f '#f)) + (let ((__tmp121875 + (cons (cons 'path |gx[1]#_g121876_|) + (cons (cons 'import |gx[1]#_g121877_|) + (cons (cons 'e |gx[1]#_g121878_|) + (cons (cons 'super |gx[1]#_g121879_|) + (cons (cons 'up |gx[1]#_g121880_|) (cons (cons 'down - |gx[1]#_g121775_|) + |gx[1]#_g121881_|) (cons (cons 'id - |gx[1]#_g121776_|) + |gx[1]#_g121882_|) (cons (cons 'table ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - |gx[1]#_g121777_|) + |gx[1]#_g121883_|) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) - (##unchecked-structure-set! __obj121502 __tmp121769 '18 '#f '#f)) + (##unchecked-structure-set! __obj121608 __tmp121875 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121608 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121608 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121502 '() '20 '#f '#f)) - __obj121502)) + (##unchecked-structure-set! __obj121608 '() '20 '#f '#f)) + __obj121608)) (define |gx[:0:]#local-context| - (let ((__obj121503 + (let ((__obj121609 (let () (declare (not safe)) (##structure @@ -4359,97 +4359,97 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121503 + __obj121609 'gx#local-context::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 'local-context '2 '#f '#f)) + (##unchecked-structure-set! __obj121609 'local-context '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121609 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121503 + __obj121609 '(id table super up down) '6 '#f '#f)) - (let ((__tmp121778 (cons |gx[1]#_g121648_| '()))) + (let ((__tmp121884 (cons |gx[1]#_g121754_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121778 '3 '#f '#f)) + (##unchecked-structure-set! __obj121609 __tmp121884 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121609 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121609 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121609 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '#f '11 '#f '#f)) - (let ((__tmp121779 |gx[1]#_g121780_|)) + (##unchecked-structure-set! __obj121609 '#f '11 '#f '#f)) + (let ((__tmp121885 |gx[1]#_g121886_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121779 '12 '#f '#f)) - (let ((__tmp121781 |gx[1]#_g121782_|)) + (##unchecked-structure-set! __obj121609 __tmp121885 '12 '#f '#f)) + (let ((__tmp121887 |gx[1]#_g121888_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121781 '13 '#f '#f)) - (let ((__tmp121783 |gx[1]#_g121784_|)) + (##unchecked-structure-set! __obj121609 __tmp121887 '13 '#f '#f)) + (let ((__tmp121889 |gx[1]#_g121890_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121783 '14 '#f '#f)) - (let ((__tmp121785 - (cons (cons 'super |gx[1]#_g121786_|) - (cons (cons 'up |gx[1]#_g121787_|) - (cons (cons 'down |gx[1]#_g121788_|) - (cons (cons 'id |gx[1]#_g121789_|) - (cons (cons 'table |gx[1]#_g121790_|) + (##unchecked-structure-set! __obj121609 __tmp121889 '14 '#f '#f)) + (let ((__tmp121891 + (cons (cons 'super |gx[1]#_g121892_|) + (cons (cons 'up |gx[1]#_g121893_|) + (cons (cons 'down |gx[1]#_g121894_|) + (cons (cons 'id |gx[1]#_g121895_|) + (cons (cons 'table |gx[1]#_g121896_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121785 '15 '#f '#f)) - (let ((__tmp121791 - (cons (cons 'super |gx[1]#_g121792_|) - (cons (cons 'up |gx[1]#_g121793_|) - (cons (cons 'down |gx[1]#_g121794_|) - (cons (cons 'id |gx[1]#_g121795_|) - (cons (cons 'table |gx[1]#_g121796_|) + (##unchecked-structure-set! __obj121609 __tmp121891 '15 '#f '#f)) + (let ((__tmp121897 + (cons (cons 'super |gx[1]#_g121898_|) + (cons (cons 'up |gx[1]#_g121899_|) + (cons (cons 'down |gx[1]#_g121900_|) + (cons (cons 'id |gx[1]#_g121901_|) + (cons (cons 'table |gx[1]#_g121902_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121791 '16 '#f '#f)) - (let ((__tmp121797 - (cons (cons 'super |gx[1]#_g121798_|) - (cons (cons 'up |gx[1]#_g121799_|) - (cons (cons 'down |gx[1]#_g121800_|) - (cons (cons 'id |gx[1]#_g121801_|) - (cons (cons 'table |gx[1]#_g121802_|) + (##unchecked-structure-set! __obj121609 __tmp121897 '16 '#f '#f)) + (let ((__tmp121903 + (cons (cons 'super |gx[1]#_g121904_|) + (cons (cons 'up |gx[1]#_g121905_|) + (cons (cons 'down |gx[1]#_g121906_|) + (cons (cons 'id |gx[1]#_g121907_|) + (cons (cons 'table |gx[1]#_g121908_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121797 '17 '#f '#f)) - (let ((__tmp121803 - (cons (cons 'super |gx[1]#_g121804_|) - (cons (cons 'up |gx[1]#_g121805_|) - (cons (cons 'down |gx[1]#_g121806_|) - (cons (cons 'id |gx[1]#_g121807_|) - (cons (cons 'table |gx[1]#_g121808_|) + (##unchecked-structure-set! __obj121609 __tmp121903 '17 '#f '#f)) + (let ((__tmp121909 + (cons (cons 'super |gx[1]#_g121910_|) + (cons (cons 'up |gx[1]#_g121911_|) + (cons (cons 'down |gx[1]#_g121912_|) + (cons (cons 'id |gx[1]#_g121913_|) + (cons (cons 'table |gx[1]#_g121914_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121503 __tmp121803 '18 '#f '#f)) + (##unchecked-structure-set! __obj121609 __tmp121909 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121609 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121609 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121503 '() '20 '#f '#f)) - __obj121503)) + (##unchecked-structure-set! __obj121609 '() '20 '#f '#f)) + __obj121609)) (define |gx[:0:]#binding| - (let ((__obj121504 + (let ((__obj121610 (let () (declare (not safe)) (##structure @@ -4477,76 +4477,76 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 'gx#binding::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121610 'gx#binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 'binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121610 'binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '(id key phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121610 '(id key phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '(id key phi) '6 '#f '#f)) + (##unchecked-structure-set! __obj121610 '(id key phi) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121610 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121610 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121610 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121610 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '#f '11 '#f '#f)) - (let ((__tmp121809 |gx[1]#_g121810_|)) + (##unchecked-structure-set! __obj121610 '#f '11 '#f '#f)) + (let ((__tmp121915 |gx[1]#_g121916_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121809 '12 '#f '#f)) - (let ((__tmp121811 |gx[1]#_g121812_|)) + (##unchecked-structure-set! __obj121610 __tmp121915 '12 '#f '#f)) + (let ((__tmp121917 |gx[1]#_g121918_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121811 '13 '#f '#f)) - (let ((__tmp121813 |gx[1]#_g121814_|)) + (##unchecked-structure-set! __obj121610 __tmp121917 '13 '#f '#f)) + (let ((__tmp121919 |gx[1]#_g121920_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121813 '14 '#f '#f)) - (let ((__tmp121815 - (cons (cons 'id |gx[1]#_g121816_|) - (cons (cons 'key |gx[1]#_g121817_|) - (cons (cons 'phi |gx[1]#_g121818_|) '()))))) + (##unchecked-structure-set! __obj121610 __tmp121919 '14 '#f '#f)) + (let ((__tmp121921 + (cons (cons 'id |gx[1]#_g121922_|) + (cons (cons 'key |gx[1]#_g121923_|) + (cons (cons 'phi |gx[1]#_g121924_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121815 '15 '#f '#f)) - (let ((__tmp121819 - (cons (cons 'id |gx[1]#_g121820_|) - (cons (cons 'key |gx[1]#_g121821_|) - (cons (cons 'phi |gx[1]#_g121822_|) '()))))) + (##unchecked-structure-set! __obj121610 __tmp121921 '15 '#f '#f)) + (let ((__tmp121925 + (cons (cons 'id |gx[1]#_g121926_|) + (cons (cons 'key |gx[1]#_g121927_|) + (cons (cons 'phi |gx[1]#_g121928_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121819 '16 '#f '#f)) - (let ((__tmp121823 - (cons (cons 'id |gx[1]#_g121824_|) - (cons (cons 'key |gx[1]#_g121825_|) - (cons (cons 'phi |gx[1]#_g121826_|) '()))))) + (##unchecked-structure-set! __obj121610 __tmp121925 '16 '#f '#f)) + (let ((__tmp121929 + (cons (cons 'id |gx[1]#_g121930_|) + (cons (cons 'key |gx[1]#_g121931_|) + (cons (cons 'phi |gx[1]#_g121932_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121823 '17 '#f '#f)) - (let ((__tmp121827 - (cons (cons 'id |gx[1]#_g121828_|) - (cons (cons 'key |gx[1]#_g121829_|) - (cons (cons 'phi |gx[1]#_g121830_|) '()))))) + (##unchecked-structure-set! __obj121610 __tmp121929 '17 '#f '#f)) + (let ((__tmp121933 + (cons (cons 'id |gx[1]#_g121934_|) + (cons (cons 'key |gx[1]#_g121935_|) + (cons (cons 'phi |gx[1]#_g121936_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121504 __tmp121827 '18 '#f '#f)) + (##unchecked-structure-set! __obj121610 __tmp121933 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121610 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121610 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121504 '() '20 '#f '#f)) - __obj121504)) + (##unchecked-structure-set! __obj121610 '() '20 '#f '#f)) + __obj121610)) (define |gx[:0:]#runtime-binding| - (let ((__obj121505 + (let ((__obj121611 (let () (declare (not safe)) (##structure @@ -4575,80 +4575,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121505 + __obj121611 'gx#runtime-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 'runtime-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121611 'runtime-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121611 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '(id key phi) '6 '#f '#f)) - (let ((__tmp121831 (cons |gx[1]#_g121832_| '()))) + (##unchecked-structure-set! __obj121611 '(id key phi) '6 '#f '#f)) + (let ((__tmp121937 (cons |gx[1]#_g121938_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121831 '3 '#f '#f)) + (##unchecked-structure-set! __obj121611 __tmp121937 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121611 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121611 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121611 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '#f '11 '#f '#f)) - (let ((__tmp121833 |gx[1]#_g121834_|)) + (##unchecked-structure-set! __obj121611 '#f '11 '#f '#f)) + (let ((__tmp121939 |gx[1]#_g121940_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121833 '12 '#f '#f)) - (let ((__tmp121835 |gx[1]#_g121836_|)) + (##unchecked-structure-set! __obj121611 __tmp121939 '12 '#f '#f)) + (let ((__tmp121941 |gx[1]#_g121942_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121835 '13 '#f '#f)) - (let ((__tmp121837 |gx[1]#_g121838_|)) + (##unchecked-structure-set! __obj121611 __tmp121941 '13 '#f '#f)) + (let ((__tmp121943 |gx[1]#_g121944_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121837 '14 '#f '#f)) - (let ((__tmp121839 - (cons (cons 'id |gx[1]#_g121840_|) - (cons (cons 'key |gx[1]#_g121841_|) - (cons (cons 'phi |gx[1]#_g121842_|) '()))))) + (##unchecked-structure-set! __obj121611 __tmp121943 '14 '#f '#f)) + (let ((__tmp121945 + (cons (cons 'id |gx[1]#_g121946_|) + (cons (cons 'key |gx[1]#_g121947_|) + (cons (cons 'phi |gx[1]#_g121948_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121839 '15 '#f '#f)) - (let ((__tmp121843 - (cons (cons 'id |gx[1]#_g121844_|) - (cons (cons 'key |gx[1]#_g121845_|) - (cons (cons 'phi |gx[1]#_g121846_|) '()))))) + (##unchecked-structure-set! __obj121611 __tmp121945 '15 '#f '#f)) + (let ((__tmp121949 + (cons (cons 'id |gx[1]#_g121950_|) + (cons (cons 'key |gx[1]#_g121951_|) + (cons (cons 'phi |gx[1]#_g121952_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121843 '16 '#f '#f)) - (let ((__tmp121847 - (cons (cons 'id |gx[1]#_g121848_|) - (cons (cons 'key |gx[1]#_g121849_|) - (cons (cons 'phi |gx[1]#_g121850_|) '()))))) + (##unchecked-structure-set! __obj121611 __tmp121949 '16 '#f '#f)) + (let ((__tmp121953 + (cons (cons 'id |gx[1]#_g121954_|) + (cons (cons 'key |gx[1]#_g121955_|) + (cons (cons 'phi |gx[1]#_g121956_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121847 '17 '#f '#f)) - (let ((__tmp121851 - (cons (cons 'id |gx[1]#_g121852_|) - (cons (cons 'key |gx[1]#_g121853_|) - (cons (cons 'phi |gx[1]#_g121854_|) '()))))) + (##unchecked-structure-set! __obj121611 __tmp121953 '17 '#f '#f)) + (let ((__tmp121957 + (cons (cons 'id |gx[1]#_g121958_|) + (cons (cons 'key |gx[1]#_g121959_|) + (cons (cons 'phi |gx[1]#_g121960_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121505 __tmp121851 '18 '#f '#f)) + (##unchecked-structure-set! __obj121611 __tmp121957 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121611 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121611 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121505 '() '20 '#f '#f)) - __obj121505)) + (##unchecked-structure-set! __obj121611 '() '20 '#f '#f)) + __obj121611)) (define |gx[:0:]#local-binding| - (let ((__obj121506 + (let ((__obj121612 (let () (declare (not safe)) (##structure @@ -4677,80 +4677,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121506 + __obj121612 'gx#local-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 'local-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121612 'local-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121612 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '(id key phi) '6 '#f '#f)) - (let ((__tmp121855 (cons |gx[1]#_g121856_| '()))) + (##unchecked-structure-set! __obj121612 '(id key phi) '6 '#f '#f)) + (let ((__tmp121961 (cons |gx[1]#_g121962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121855 '3 '#f '#f)) + (##unchecked-structure-set! __obj121612 __tmp121961 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121612 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121612 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121612 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '#f '11 '#f '#f)) - (let ((__tmp121857 |gx[1]#_g121858_|)) + (##unchecked-structure-set! __obj121612 '#f '11 '#f '#f)) + (let ((__tmp121963 |gx[1]#_g121964_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121857 '12 '#f '#f)) - (let ((__tmp121859 |gx[1]#_g121860_|)) + (##unchecked-structure-set! __obj121612 __tmp121963 '12 '#f '#f)) + (let ((__tmp121965 |gx[1]#_g121966_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121859 '13 '#f '#f)) - (let ((__tmp121861 |gx[1]#_g121862_|)) + (##unchecked-structure-set! __obj121612 __tmp121965 '13 '#f '#f)) + (let ((__tmp121967 |gx[1]#_g121968_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121861 '14 '#f '#f)) - (let ((__tmp121863 - (cons (cons 'id |gx[1]#_g121864_|) - (cons (cons 'key |gx[1]#_g121865_|) - (cons (cons 'phi |gx[1]#_g121866_|) '()))))) + (##unchecked-structure-set! __obj121612 __tmp121967 '14 '#f '#f)) + (let ((__tmp121969 + (cons (cons 'id |gx[1]#_g121970_|) + (cons (cons 'key |gx[1]#_g121971_|) + (cons (cons 'phi |gx[1]#_g121972_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121863 '15 '#f '#f)) - (let ((__tmp121867 - (cons (cons 'id |gx[1]#_g121868_|) - (cons (cons 'key |gx[1]#_g121869_|) - (cons (cons 'phi |gx[1]#_g121870_|) '()))))) + (##unchecked-structure-set! __obj121612 __tmp121969 '15 '#f '#f)) + (let ((__tmp121973 + (cons (cons 'id |gx[1]#_g121974_|) + (cons (cons 'key |gx[1]#_g121975_|) + (cons (cons 'phi |gx[1]#_g121976_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121867 '16 '#f '#f)) - (let ((__tmp121871 - (cons (cons 'id |gx[1]#_g121872_|) - (cons (cons 'key |gx[1]#_g121873_|) - (cons (cons 'phi |gx[1]#_g121874_|) '()))))) + (##unchecked-structure-set! __obj121612 __tmp121973 '16 '#f '#f)) + (let ((__tmp121977 + (cons (cons 'id |gx[1]#_g121978_|) + (cons (cons 'key |gx[1]#_g121979_|) + (cons (cons 'phi |gx[1]#_g121980_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121871 '17 '#f '#f)) - (let ((__tmp121875 - (cons (cons 'id |gx[1]#_g121876_|) - (cons (cons 'key |gx[1]#_g121877_|) - (cons (cons 'phi |gx[1]#_g121878_|) '()))))) + (##unchecked-structure-set! __obj121612 __tmp121977 '17 '#f '#f)) + (let ((__tmp121981 + (cons (cons 'id |gx[1]#_g121982_|) + (cons (cons 'key |gx[1]#_g121983_|) + (cons (cons 'phi |gx[1]#_g121984_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121506 __tmp121875 '18 '#f '#f)) + (##unchecked-structure-set! __obj121612 __tmp121981 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121612 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121612 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121506 '() '20 '#f '#f)) - __obj121506)) + (##unchecked-structure-set! __obj121612 '() '20 '#f '#f)) + __obj121612)) (define |gx[:0:]#top-binding| - (let ((__obj121507 + (let ((__obj121613 (let () (declare (not safe)) (##structure @@ -4779,80 +4779,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121507 + __obj121613 'gx#top-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 'top-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121613 'top-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121613 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '(id key phi) '6 '#f '#f)) - (let ((__tmp121879 (cons |gx[1]#_g121856_| '()))) + (##unchecked-structure-set! __obj121613 '(id key phi) '6 '#f '#f)) + (let ((__tmp121985 (cons |gx[1]#_g121962_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121879 '3 '#f '#f)) + (##unchecked-structure-set! __obj121613 __tmp121985 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121613 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121613 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121613 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '#f '11 '#f '#f)) - (let ((__tmp121880 |gx[1]#_g121881_|)) + (##unchecked-structure-set! __obj121613 '#f '11 '#f '#f)) + (let ((__tmp121986 |gx[1]#_g121987_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121880 '12 '#f '#f)) - (let ((__tmp121882 |gx[1]#_g121883_|)) + (##unchecked-structure-set! __obj121613 __tmp121986 '12 '#f '#f)) + (let ((__tmp121988 |gx[1]#_g121989_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121882 '13 '#f '#f)) - (let ((__tmp121884 |gx[1]#_g121885_|)) + (##unchecked-structure-set! __obj121613 __tmp121988 '13 '#f '#f)) + (let ((__tmp121990 |gx[1]#_g121991_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121884 '14 '#f '#f)) - (let ((__tmp121886 - (cons (cons 'id |gx[1]#_g121887_|) - (cons (cons 'key |gx[1]#_g121888_|) - (cons (cons 'phi |gx[1]#_g121889_|) '()))))) + (##unchecked-structure-set! __obj121613 __tmp121990 '14 '#f '#f)) + (let ((__tmp121992 + (cons (cons 'id |gx[1]#_g121993_|) + (cons (cons 'key |gx[1]#_g121994_|) + (cons (cons 'phi |gx[1]#_g121995_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121886 '15 '#f '#f)) - (let ((__tmp121890 - (cons (cons 'id |gx[1]#_g121891_|) - (cons (cons 'key |gx[1]#_g121892_|) - (cons (cons 'phi |gx[1]#_g121893_|) '()))))) + (##unchecked-structure-set! __obj121613 __tmp121992 '15 '#f '#f)) + (let ((__tmp121996 + (cons (cons 'id |gx[1]#_g121997_|) + (cons (cons 'key |gx[1]#_g121998_|) + (cons (cons 'phi |gx[1]#_g121999_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121890 '16 '#f '#f)) - (let ((__tmp121894 - (cons (cons 'id |gx[1]#_g121895_|) - (cons (cons 'key |gx[1]#_g121896_|) - (cons (cons 'phi |gx[1]#_g121897_|) '()))))) + (##unchecked-structure-set! __obj121613 __tmp121996 '16 '#f '#f)) + (let ((__tmp122000 + (cons (cons 'id |gx[1]#_g122001_|) + (cons (cons 'key |gx[1]#_g122002_|) + (cons (cons 'phi |gx[1]#_g122003_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121894 '17 '#f '#f)) - (let ((__tmp121898 - (cons (cons 'id |gx[1]#_g121899_|) - (cons (cons 'key |gx[1]#_g121900_|) - (cons (cons 'phi |gx[1]#_g121901_|) '()))))) + (##unchecked-structure-set! __obj121613 __tmp122000 '17 '#f '#f)) + (let ((__tmp122004 + (cons (cons 'id |gx[1]#_g122005_|) + (cons (cons 'key |gx[1]#_g122006_|) + (cons (cons 'phi |gx[1]#_g122007_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121507 __tmp121898 '18 '#f '#f)) + (##unchecked-structure-set! __obj121613 __tmp122004 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121613 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121613 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121507 '() '20 '#f '#f)) - __obj121507)) + (##unchecked-structure-set! __obj121613 '() '20 '#f '#f)) + __obj121613)) (define |gx[:0:]#module-binding| - (let ((__obj121508 + (let ((__obj121614 (let () (declare (not safe)) (##structure @@ -4881,89 +4881,89 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121508 + __obj121614 'gx#module-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 'module-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121614 'module-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '(context) '4 '#f '#f)) + (##unchecked-structure-set! __obj121614 '(context) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121508 + __obj121614 '(id key phi context) '6 '#f '#f)) - (let ((__tmp121902 (cons |gx[1]#_g121903_| '()))) + (let ((__tmp122008 (cons |gx[1]#_g122009_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121902 '3 '#f '#f)) + (##unchecked-structure-set! __obj121614 __tmp122008 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121614 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121614 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121614 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '#f '11 '#f '#f)) - (let ((__tmp121904 |gx[1]#_g121905_|)) + (##unchecked-structure-set! __obj121614 '#f '11 '#f '#f)) + (let ((__tmp122010 |gx[1]#_g122011_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121904 '12 '#f '#f)) - (let ((__tmp121906 |gx[1]#_g121907_|)) + (##unchecked-structure-set! __obj121614 __tmp122010 '12 '#f '#f)) + (let ((__tmp122012 |gx[1]#_g122013_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121906 '13 '#f '#f)) - (let ((__tmp121908 |gx[1]#_g121909_|)) + (##unchecked-structure-set! __obj121614 __tmp122012 '13 '#f '#f)) + (let ((__tmp122014 |gx[1]#_g122015_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121908 '14 '#f '#f)) - (let ((__tmp121910 - (cons (cons 'context |gx[1]#_g121911_|) - (cons (cons 'id |gx[1]#_g121912_|) - (cons (cons 'key |gx[1]#_g121913_|) - (cons (cons 'phi |gx[1]#_g121914_|) '())))))) + (##unchecked-structure-set! __obj121614 __tmp122014 '14 '#f '#f)) + (let ((__tmp122016 + (cons (cons 'context |gx[1]#_g122017_|) + (cons (cons 'id |gx[1]#_g122018_|) + (cons (cons 'key |gx[1]#_g122019_|) + (cons (cons 'phi |gx[1]#_g122020_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121910 '15 '#f '#f)) - (let ((__tmp121915 - (cons (cons 'context |gx[1]#_g121916_|) - (cons (cons 'id |gx[1]#_g121917_|) - (cons (cons 'key |gx[1]#_g121918_|) - (cons (cons 'phi |gx[1]#_g121919_|) '())))))) + (##unchecked-structure-set! __obj121614 __tmp122016 '15 '#f '#f)) + (let ((__tmp122021 + (cons (cons 'context |gx[1]#_g122022_|) + (cons (cons 'id |gx[1]#_g122023_|) + (cons (cons 'key |gx[1]#_g122024_|) + (cons (cons 'phi |gx[1]#_g122025_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121915 '16 '#f '#f)) - (let ((__tmp121920 - (cons (cons 'context |gx[1]#_g121921_|) - (cons (cons 'id |gx[1]#_g121922_|) - (cons (cons 'key |gx[1]#_g121923_|) - (cons (cons 'phi |gx[1]#_g121924_|) '())))))) + (##unchecked-structure-set! __obj121614 __tmp122021 '16 '#f '#f)) + (let ((__tmp122026 + (cons (cons 'context |gx[1]#_g122027_|) + (cons (cons 'id |gx[1]#_g122028_|) + (cons (cons 'key |gx[1]#_g122029_|) + (cons (cons 'phi |gx[1]#_g122030_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121920 '17 '#f '#f)) - (let ((__tmp121925 - (cons (cons 'context |gx[1]#_g121926_|) - (cons (cons 'id |gx[1]#_g121927_|) - (cons (cons 'key |gx[1]#_g121928_|) - (cons (cons 'phi |gx[1]#_g121929_|) '())))))) + (##unchecked-structure-set! __obj121614 __tmp122026 '17 '#f '#f)) + (let ((__tmp122031 + (cons (cons 'context |gx[1]#_g122032_|) + (cons (cons 'id |gx[1]#_g122033_|) + (cons (cons 'key |gx[1]#_g122034_|) + (cons (cons 'phi |gx[1]#_g122035_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121508 __tmp121925 '18 '#f '#f)) + (##unchecked-structure-set! __obj121614 __tmp122031 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121614 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121614 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121508 '() '20 '#f '#f)) - __obj121508)) + (##unchecked-structure-set! __obj121614 '() '20 '#f '#f)) + __obj121614)) (define |gx[:0:]#extern-binding| - (let ((__obj121509 + (let ((__obj121615 (let () (declare (not safe)) (##structure @@ -4992,80 +4992,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121509 + __obj121615 'gx#extern-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 'extern-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121615 'extern-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121615 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '(id key phi) '6 '#f '#f)) - (let ((__tmp121930 (cons |gx[1]#_g121903_| '()))) + (##unchecked-structure-set! __obj121615 '(id key phi) '6 '#f '#f)) + (let ((__tmp122036 (cons |gx[1]#_g122009_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121930 '3 '#f '#f)) + (##unchecked-structure-set! __obj121615 __tmp122036 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121615 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121615 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121615 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '#f '11 '#f '#f)) - (let ((__tmp121931 |gx[1]#_g121932_|)) + (##unchecked-structure-set! __obj121615 '#f '11 '#f '#f)) + (let ((__tmp122037 |gx[1]#_g122038_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121931 '12 '#f '#f)) - (let ((__tmp121933 |gx[1]#_g121934_|)) + (##unchecked-structure-set! __obj121615 __tmp122037 '12 '#f '#f)) + (let ((__tmp122039 |gx[1]#_g122040_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121933 '13 '#f '#f)) - (let ((__tmp121935 |gx[1]#_g121936_|)) + (##unchecked-structure-set! __obj121615 __tmp122039 '13 '#f '#f)) + (let ((__tmp122041 |gx[1]#_g122042_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121935 '14 '#f '#f)) - (let ((__tmp121937 - (cons (cons 'id |gx[1]#_g121938_|) - (cons (cons 'key |gx[1]#_g121939_|) - (cons (cons 'phi |gx[1]#_g121940_|) '()))))) + (##unchecked-structure-set! __obj121615 __tmp122041 '14 '#f '#f)) + (let ((__tmp122043 + (cons (cons 'id |gx[1]#_g122044_|) + (cons (cons 'key |gx[1]#_g122045_|) + (cons (cons 'phi |gx[1]#_g122046_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121937 '15 '#f '#f)) - (let ((__tmp121941 - (cons (cons 'id |gx[1]#_g121942_|) - (cons (cons 'key |gx[1]#_g121943_|) - (cons (cons 'phi |gx[1]#_g121944_|) '()))))) + (##unchecked-structure-set! __obj121615 __tmp122043 '15 '#f '#f)) + (let ((__tmp122047 + (cons (cons 'id |gx[1]#_g122048_|) + (cons (cons 'key |gx[1]#_g122049_|) + (cons (cons 'phi |gx[1]#_g122050_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121941 '16 '#f '#f)) - (let ((__tmp121945 - (cons (cons 'id |gx[1]#_g121946_|) - (cons (cons 'key |gx[1]#_g121947_|) - (cons (cons 'phi |gx[1]#_g121948_|) '()))))) + (##unchecked-structure-set! __obj121615 __tmp122047 '16 '#f '#f)) + (let ((__tmp122051 + (cons (cons 'id |gx[1]#_g122052_|) + (cons (cons 'key |gx[1]#_g122053_|) + (cons (cons 'phi |gx[1]#_g122054_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121945 '17 '#f '#f)) - (let ((__tmp121949 - (cons (cons 'id |gx[1]#_g121950_|) - (cons (cons 'key |gx[1]#_g121951_|) - (cons (cons 'phi |gx[1]#_g121952_|) '()))))) + (##unchecked-structure-set! __obj121615 __tmp122051 '17 '#f '#f)) + (let ((__tmp122055 + (cons (cons 'id |gx[1]#_g122056_|) + (cons (cons 'key |gx[1]#_g122057_|) + (cons (cons 'phi |gx[1]#_g122058_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121509 __tmp121949 '18 '#f '#f)) + (##unchecked-structure-set! __obj121615 __tmp122055 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121615 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121615 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121509 '() '20 '#f '#f)) - __obj121509)) + (##unchecked-structure-set! __obj121615 '() '20 '#f '#f)) + __obj121615)) (define |gx[:0:]#syntax-binding| - (let ((__obj121510 + (let ((__obj121616 (let () (declare (not safe)) (##structure @@ -5094,84 +5094,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121510 + __obj121616 'gx#syntax-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 'syntax-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121616 'syntax-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121616 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '(id key phi e) '6 '#f '#f)) - (let ((__tmp121953 (cons |gx[1]#_g121832_| '()))) + (##unchecked-structure-set! __obj121616 '(id key phi e) '6 '#f '#f)) + (let ((__tmp122059 (cons |gx[1]#_g121938_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121953 '3 '#f '#f)) + (##unchecked-structure-set! __obj121616 __tmp122059 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121616 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121616 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121616 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '#f '11 '#f '#f)) - (let ((__tmp121954 |gx[1]#_g121955_|)) + (##unchecked-structure-set! __obj121616 '#f '11 '#f '#f)) + (let ((__tmp122060 |gx[1]#_g122061_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121954 '12 '#f '#f)) - (let ((__tmp121956 |gx[1]#_g121957_|)) + (##unchecked-structure-set! __obj121616 __tmp122060 '12 '#f '#f)) + (let ((__tmp122062 |gx[1]#_g122063_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121956 '13 '#f '#f)) - (let ((__tmp121958 |gx[1]#_g121959_|)) + (##unchecked-structure-set! __obj121616 __tmp122062 '13 '#f '#f)) + (let ((__tmp122064 |gx[1]#_g122065_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121958 '14 '#f '#f)) - (let ((__tmp121960 - (cons (cons 'e |gx[1]#_g121961_|) - (cons (cons 'id |gx[1]#_g121962_|) - (cons (cons 'key |gx[1]#_g121963_|) - (cons (cons 'phi |gx[1]#_g121964_|) '())))))) + (##unchecked-structure-set! __obj121616 __tmp122064 '14 '#f '#f)) + (let ((__tmp122066 + (cons (cons 'e |gx[1]#_g122067_|) + (cons (cons 'id |gx[1]#_g122068_|) + (cons (cons 'key |gx[1]#_g122069_|) + (cons (cons 'phi |gx[1]#_g122070_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121960 '15 '#f '#f)) - (let ((__tmp121965 - (cons (cons 'e |gx[1]#_g121966_|) - (cons (cons 'id |gx[1]#_g121967_|) - (cons (cons 'key |gx[1]#_g121968_|) - (cons (cons 'phi |gx[1]#_g121969_|) '())))))) + (##unchecked-structure-set! __obj121616 __tmp122066 '15 '#f '#f)) + (let ((__tmp122071 + (cons (cons 'e |gx[1]#_g122072_|) + (cons (cons 'id |gx[1]#_g122073_|) + (cons (cons 'key |gx[1]#_g122074_|) + (cons (cons 'phi |gx[1]#_g122075_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121965 '16 '#f '#f)) - (let ((__tmp121970 - (cons (cons 'e |gx[1]#_g121971_|) - (cons (cons 'id |gx[1]#_g121972_|) - (cons (cons 'key |gx[1]#_g121973_|) - (cons (cons 'phi |gx[1]#_g121974_|) '())))))) + (##unchecked-structure-set! __obj121616 __tmp122071 '16 '#f '#f)) + (let ((__tmp122076 + (cons (cons 'e |gx[1]#_g122077_|) + (cons (cons 'id |gx[1]#_g122078_|) + (cons (cons 'key |gx[1]#_g122079_|) + (cons (cons 'phi |gx[1]#_g122080_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121970 '17 '#f '#f)) - (let ((__tmp121975 - (cons (cons 'e |gx[1]#_g121976_|) - (cons (cons 'id |gx[1]#_g121977_|) - (cons (cons 'key |gx[1]#_g121978_|) - (cons (cons 'phi |gx[1]#_g121979_|) '())))))) + (##unchecked-structure-set! __obj121616 __tmp122076 '17 '#f '#f)) + (let ((__tmp122081 + (cons (cons 'e |gx[1]#_g122082_|) + (cons (cons 'id |gx[1]#_g122083_|) + (cons (cons 'key |gx[1]#_g122084_|) + (cons (cons 'phi |gx[1]#_g122085_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121510 __tmp121975 '18 '#f '#f)) + (##unchecked-structure-set! __obj121616 __tmp122081 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121616 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121616 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121510 '() '20 '#f '#f)) - __obj121510)) + (##unchecked-structure-set! __obj121616 '() '20 '#f '#f)) + __obj121616)) (define |gx[:0:]#import-binding| - (let ((__obj121511 + (let ((__obj121617 (let () (declare (not safe)) (##structure @@ -5200,18 +5200,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121511 + __obj121617 'gx#import-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 'import-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121617 'import-binding '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121511 + __obj121617 '(e context weak?) '4 '#f @@ -5219,91 +5219,91 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121511 + __obj121617 '(id key phi e context weak?) '6 '#f '#f)) - (let ((__tmp121980 (cons |gx[1]#_g121832_| '()))) + (let ((__tmp122086 (cons |gx[1]#_g121938_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121980 '3 '#f '#f)) + (##unchecked-structure-set! __obj121617 __tmp122086 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121617 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121617 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121617 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '#f '11 '#f '#f)) - (let ((__tmp121981 |gx[1]#_g121982_|)) + (##unchecked-structure-set! __obj121617 '#f '11 '#f '#f)) + (let ((__tmp122087 |gx[1]#_g122088_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121981 '12 '#f '#f)) - (let ((__tmp121983 |gx[1]#_g121984_|)) + (##unchecked-structure-set! __obj121617 __tmp122087 '12 '#f '#f)) + (let ((__tmp122089 |gx[1]#_g122090_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121983 '13 '#f '#f)) - (let ((__tmp121985 |gx[1]#_g121986_|)) + (##unchecked-structure-set! __obj121617 __tmp122089 '13 '#f '#f)) + (let ((__tmp122091 |gx[1]#_g122092_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121985 '14 '#f '#f)) - (let ((__tmp121987 - (cons (cons 'e |gx[1]#_g121988_|) - (cons (cons 'context |gx[1]#_g121989_|) - (cons (cons 'weak? |gx[1]#_g121990_|) - (cons (cons 'id |gx[1]#_g121991_|) - (cons (cons 'key |gx[1]#_g121992_|) + (##unchecked-structure-set! __obj121617 __tmp122091 '14 '#f '#f)) + (let ((__tmp122093 + (cons (cons 'e |gx[1]#_g122094_|) + (cons (cons 'context |gx[1]#_g122095_|) + (cons (cons 'weak? |gx[1]#_g122096_|) + (cons (cons 'id |gx[1]#_g122097_|) + (cons (cons 'key |gx[1]#_g122098_|) (cons (cons 'phi - |gx[1]#_g121993_|) + |gx[1]#_g122099_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121987 '15 '#f '#f)) - (let ((__tmp121994 - (cons (cons 'e |gx[1]#_g121995_|) - (cons (cons 'context |gx[1]#_g121996_|) - (cons (cons 'weak? |gx[1]#_g121997_|) - (cons (cons 'id |gx[1]#_g121998_|) - (cons (cons 'key |gx[1]#_g121999_|) + (##unchecked-structure-set! __obj121617 __tmp122093 '15 '#f '#f)) + (let ((__tmp122100 + (cons (cons 'e |gx[1]#_g122101_|) + (cons (cons 'context |gx[1]#_g122102_|) + (cons (cons 'weak? |gx[1]#_g122103_|) + (cons (cons 'id |gx[1]#_g122104_|) + (cons (cons 'key |gx[1]#_g122105_|) (cons (cons 'phi - |gx[1]#_g122000_|) + |gx[1]#_g122106_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp121994 '16 '#f '#f)) - (let ((__tmp122001 - (cons (cons 'e |gx[1]#_g122002_|) - (cons (cons 'context |gx[1]#_g122003_|) - (cons (cons 'weak? |gx[1]#_g122004_|) - (cons (cons 'id |gx[1]#_g122005_|) - (cons (cons 'key |gx[1]#_g122006_|) + (##unchecked-structure-set! __obj121617 __tmp122100 '16 '#f '#f)) + (let ((__tmp122107 + (cons (cons 'e |gx[1]#_g122108_|) + (cons (cons 'context |gx[1]#_g122109_|) + (cons (cons 'weak? |gx[1]#_g122110_|) + (cons (cons 'id |gx[1]#_g122111_|) + (cons (cons 'key |gx[1]#_g122112_|) (cons (cons 'phi - |gx[1]#_g122007_|) + |gx[1]#_g122113_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp122001 '17 '#f '#f)) - (let ((__tmp122008 - (cons (cons 'e |gx[1]#_g122009_|) - (cons (cons 'context |gx[1]#_g122010_|) - (cons (cons 'weak? |gx[1]#_g122011_|) - (cons (cons 'id |gx[1]#_g122012_|) - (cons (cons 'key |gx[1]#_g122013_|) + (##unchecked-structure-set! __obj121617 __tmp122107 '17 '#f '#f)) + (let ((__tmp122114 + (cons (cons 'e |gx[1]#_g122115_|) + (cons (cons 'context |gx[1]#_g122116_|) + (cons (cons 'weak? |gx[1]#_g122117_|) + (cons (cons 'id |gx[1]#_g122118_|) + (cons (cons 'key |gx[1]#_g122119_|) (cons (cons 'phi - |gx[1]#_g122014_|) + |gx[1]#_g122120_|) '())))))))) (declare (not safe)) - (##unchecked-structure-set! __obj121511 __tmp122008 '18 '#f '#f)) + (##unchecked-structure-set! __obj121617 __tmp122114 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121617 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121617 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121511 '() '20 '#f '#f)) - __obj121511)) + (##unchecked-structure-set! __obj121617 '() '20 '#f '#f)) + __obj121617)) (define |gx[:0:]#alias-binding| - (let ((__obj121512 + (let ((__obj121618 (let () (declare (not safe)) (##structure @@ -5332,84 +5332,84 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121512 + __obj121618 'gx#alias-binding::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 'alias-binding '2 '#f '#f)) + (##unchecked-structure-set! __obj121618 'alias-binding '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121618 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '(id key phi e) '6 '#f '#f)) - (let ((__tmp122015 (cons |gx[1]#_g121832_| '()))) + (##unchecked-structure-set! __obj121618 '(id key phi e) '6 '#f '#f)) + (let ((__tmp122121 (cons |gx[1]#_g121938_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122015 '3 '#f '#f)) + (##unchecked-structure-set! __obj121618 __tmp122121 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121618 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj121618 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121618 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '#f '11 '#f '#f)) - (let ((__tmp122016 |gx[1]#_g122017_|)) + (##unchecked-structure-set! __obj121618 '#f '11 '#f '#f)) + (let ((__tmp122122 |gx[1]#_g122123_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122016 '12 '#f '#f)) - (let ((__tmp122018 |gx[1]#_g122019_|)) + (##unchecked-structure-set! __obj121618 __tmp122122 '12 '#f '#f)) + (let ((__tmp122124 |gx[1]#_g122125_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122018 '13 '#f '#f)) - (let ((__tmp122020 |gx[1]#_g122021_|)) + (##unchecked-structure-set! __obj121618 __tmp122124 '13 '#f '#f)) + (let ((__tmp122126 |gx[1]#_g122127_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122020 '14 '#f '#f)) - (let ((__tmp122022 - (cons (cons 'e |gx[1]#_g122023_|) - (cons (cons 'id |gx[1]#_g122024_|) - (cons (cons 'key |gx[1]#_g122025_|) - (cons (cons 'phi |gx[1]#_g122026_|) '())))))) + (##unchecked-structure-set! __obj121618 __tmp122126 '14 '#f '#f)) + (let ((__tmp122128 + (cons (cons 'e |gx[1]#_g122129_|) + (cons (cons 'id |gx[1]#_g122130_|) + (cons (cons 'key |gx[1]#_g122131_|) + (cons (cons 'phi |gx[1]#_g122132_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122022 '15 '#f '#f)) - (let ((__tmp122027 - (cons (cons 'e |gx[1]#_g122028_|) - (cons (cons 'id |gx[1]#_g122029_|) - (cons (cons 'key |gx[1]#_g122030_|) - (cons (cons 'phi |gx[1]#_g122031_|) '())))))) + (##unchecked-structure-set! __obj121618 __tmp122128 '15 '#f '#f)) + (let ((__tmp122133 + (cons (cons 'e |gx[1]#_g122134_|) + (cons (cons 'id |gx[1]#_g122135_|) + (cons (cons 'key |gx[1]#_g122136_|) + (cons (cons 'phi |gx[1]#_g122137_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122027 '16 '#f '#f)) - (let ((__tmp122032 - (cons (cons 'e |gx[1]#_g122033_|) - (cons (cons 'id |gx[1]#_g122034_|) - (cons (cons 'key |gx[1]#_g122035_|) - (cons (cons 'phi |gx[1]#_g122036_|) '())))))) + (##unchecked-structure-set! __obj121618 __tmp122133 '16 '#f '#f)) + (let ((__tmp122138 + (cons (cons 'e |gx[1]#_g122139_|) + (cons (cons 'id |gx[1]#_g122140_|) + (cons (cons 'key |gx[1]#_g122141_|) + (cons (cons 'phi |gx[1]#_g122142_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122032 '17 '#f '#f)) - (let ((__tmp122037 - (cons (cons 'e |gx[1]#_g122038_|) - (cons (cons 'id |gx[1]#_g122039_|) - (cons (cons 'key |gx[1]#_g122040_|) - (cons (cons 'phi |gx[1]#_g122041_|) '())))))) + (##unchecked-structure-set! __obj121618 __tmp122138 '17 '#f '#f)) + (let ((__tmp122143 + (cons (cons 'e |gx[1]#_g122144_|) + (cons (cons 'id |gx[1]#_g122145_|) + (cons (cons 'key |gx[1]#_g122146_|) + (cons (cons 'phi |gx[1]#_g122147_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121512 __tmp122037 '18 '#f '#f)) + (##unchecked-structure-set! __obj121618 __tmp122143 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121618 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121618 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121512 '() '20 '#f '#f)) - __obj121512)) + (##unchecked-structure-set! __obj121618 '() '20 '#f '#f)) + __obj121618)) (define |gx[:0:]#expander| - (let ((__obj121513 + (let ((__obj121619 (let () (declare (not safe)) (##structure @@ -5437,64 +5437,64 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 'gx#expander::t '1 '#f '#f)) + (##unchecked-structure-set! __obj121619 'gx#expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 'expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121619 'expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '(e) '4 '#f '#f)) + (##unchecked-structure-set! __obj121619 '(e) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '(e) '6 '#f '#f)) + (##unchecked-structure-set! __obj121619 '(e) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121619 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121619 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121619 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121619 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '#f '11 '#f '#f)) - (let ((__tmp122042 |gx[1]#_g122043_|)) + (##unchecked-structure-set! __obj121619 '#f '11 '#f '#f)) + (let ((__tmp122148 |gx[1]#_g122149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122042 '12 '#f '#f)) - (let ((__tmp122044 |gx[1]#_g122045_|)) + (##unchecked-structure-set! __obj121619 __tmp122148 '12 '#f '#f)) + (let ((__tmp122150 |gx[1]#_g122151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122044 '13 '#f '#f)) - (let ((__tmp122046 |gx[1]#_g122047_|)) + (##unchecked-structure-set! __obj121619 __tmp122150 '13 '#f '#f)) + (let ((__tmp122152 |gx[1]#_g122153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122046 '14 '#f '#f)) - (let ((__tmp122048 (cons (cons 'e |gx[1]#_g122049_|) '()))) + (##unchecked-structure-set! __obj121619 __tmp122152 '14 '#f '#f)) + (let ((__tmp122154 (cons (cons 'e |gx[1]#_g122155_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122048 '15 '#f '#f)) - (let ((__tmp122050 (cons (cons 'e |gx[1]#_g122051_|) '()))) + (##unchecked-structure-set! __obj121619 __tmp122154 '15 '#f '#f)) + (let ((__tmp122156 (cons (cons 'e |gx[1]#_g122157_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122050 '16 '#f '#f)) - (let ((__tmp122052 (cons (cons 'e |gx[1]#_g122053_|) '()))) + (##unchecked-structure-set! __obj121619 __tmp122156 '16 '#f '#f)) + (let ((__tmp122158 (cons (cons 'e |gx[1]#_g122159_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122052 '17 '#f '#f)) - (let ((__tmp122054 (cons (cons 'e |gx[1]#_g122055_|) '()))) + (##unchecked-structure-set! __obj121619 __tmp122158 '17 '#f '#f)) + (let ((__tmp122160 (cons (cons 'e |gx[1]#_g122161_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121513 __tmp122054 '18 '#f '#f)) + (##unchecked-structure-set! __obj121619 __tmp122160 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121619 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121619 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121513 '() '20 '#f '#f)) - __obj121513)) + (##unchecked-structure-set! __obj121619 '() '20 '#f '#f)) + __obj121619)) (define |gx[:0:]#core-expander| - (let ((__obj121514 + (let ((__obj121620 (let () (declare (not safe)) (##structure @@ -5523,18 +5523,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121514 + __obj121620 'gx#core-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 'core-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121620 'core-expander '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121514 + __obj121620 '(id compile-top) '4 '#f @@ -5542,71 +5542,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121514 + __obj121620 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122056 (cons |gx[1]#_g122057_| '()))) + (let ((__tmp122162 (cons |gx[1]#_g122163_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122056 '3 '#f '#f)) + (##unchecked-structure-set! __obj121620 __tmp122162 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121620 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121620 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121620 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '#f '11 '#f '#f)) - (let ((__tmp122058 |gx[1]#_g122059_|)) + (##unchecked-structure-set! __obj121620 '#f '11 '#f '#f)) + (let ((__tmp122164 |gx[1]#_g122165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122058 '12 '#f '#f)) - (let ((__tmp122060 |gx[1]#_g122061_|)) + (##unchecked-structure-set! __obj121620 __tmp122164 '12 '#f '#f)) + (let ((__tmp122166 |gx[1]#_g122167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122060 '13 '#f '#f)) - (let ((__tmp122062 |gx[1]#_g122063_|)) + (##unchecked-structure-set! __obj121620 __tmp122166 '13 '#f '#f)) + (let ((__tmp122168 |gx[1]#_g122169_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122062 '14 '#f '#f)) - (let ((__tmp122064 - (cons (cons 'id |gx[1]#_g122065_|) - (cons (cons 'compile-top |gx[1]#_g122066_|) - (cons (cons 'e |gx[1]#_g122067_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122064 '15 '#f '#f)) - (let ((__tmp122068 - (cons (cons 'id |gx[1]#_g122069_|) - (cons (cons 'compile-top |gx[1]#_g122070_|) - (cons (cons 'e |gx[1]#_g122071_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122068 '16 '#f '#f)) - (let ((__tmp122072 - (cons (cons 'id |gx[1]#_g122073_|) - (cons (cons 'compile-top |gx[1]#_g122074_|) - (cons (cons 'e |gx[1]#_g122075_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122072 '17 '#f '#f)) - (let ((__tmp122076 - (cons (cons 'id |gx[1]#_g122077_|) - (cons (cons 'compile-top |gx[1]#_g122078_|) - (cons (cons 'e |gx[1]#_g122079_|) '()))))) + (##unchecked-structure-set! __obj121620 __tmp122168 '14 '#f '#f)) + (let ((__tmp122170 + (cons (cons 'id |gx[1]#_g122171_|) + (cons (cons 'compile-top |gx[1]#_g122172_|) + (cons (cons 'e |gx[1]#_g122173_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj121620 __tmp122170 '15 '#f '#f)) + (let ((__tmp122174 + (cons (cons 'id |gx[1]#_g122175_|) + (cons (cons 'compile-top |gx[1]#_g122176_|) + (cons (cons 'e |gx[1]#_g122177_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj121620 __tmp122174 '16 '#f '#f)) + (let ((__tmp122178 + (cons (cons 'id |gx[1]#_g122179_|) + (cons (cons 'compile-top |gx[1]#_g122180_|) + (cons (cons 'e |gx[1]#_g122181_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj121620 __tmp122178 '17 '#f '#f)) + (let ((__tmp122182 + (cons (cons 'id |gx[1]#_g122183_|) + (cons (cons 'compile-top |gx[1]#_g122184_|) + (cons (cons 'e |gx[1]#_g122185_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121514 __tmp122076 '18 '#f '#f)) + (##unchecked-structure-set! __obj121620 __tmp122182 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121620 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121620 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121514 '() '20 '#f '#f)) - __obj121514)) + (##unchecked-structure-set! __obj121620 '() '20 '#f '#f)) + __obj121620)) (define |gx[:0:]#expression-form| - (let ((__obj121515 + (let ((__obj121621 (let () (declare (not safe)) (##structure @@ -5635,85 +5635,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121515 + __obj121621 'gx#expression-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 'expression-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121621 'expression-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121621 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121515 + __obj121621 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122080 (cons |gx[1]#_g122081_| '()))) + (let ((__tmp122186 (cons |gx[1]#_g122187_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122080 '3 '#f '#f)) + (##unchecked-structure-set! __obj121621 __tmp122186 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121621 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121621 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121621 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '#f '11 '#f '#f)) - (let ((__tmp122082 |gx[1]#_g122083_|)) + (##unchecked-structure-set! __obj121621 '#f '11 '#f '#f)) + (let ((__tmp122188 |gx[1]#_g122189_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122082 '12 '#f '#f)) - (let ((__tmp122084 |gx[1]#_g122085_|)) + (##unchecked-structure-set! __obj121621 __tmp122188 '12 '#f '#f)) + (let ((__tmp122190 |gx[1]#_g122191_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122084 '13 '#f '#f)) - (let ((__tmp122086 |gx[1]#_g122087_|)) + (##unchecked-structure-set! __obj121621 __tmp122190 '13 '#f '#f)) + (let ((__tmp122192 |gx[1]#_g122193_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122086 '14 '#f '#f)) - (let ((__tmp122088 - (cons (cons 'id |gx[1]#_g122089_|) - (cons (cons 'compile-top |gx[1]#_g122090_|) - (cons (cons 'e |gx[1]#_g122091_|) '()))))) + (##unchecked-structure-set! __obj121621 __tmp122192 '14 '#f '#f)) + (let ((__tmp122194 + (cons (cons 'id |gx[1]#_g122195_|) + (cons (cons 'compile-top |gx[1]#_g122196_|) + (cons (cons 'e |gx[1]#_g122197_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122088 '15 '#f '#f)) - (let ((__tmp122092 - (cons (cons 'id |gx[1]#_g122093_|) - (cons (cons 'compile-top |gx[1]#_g122094_|) - (cons (cons 'e |gx[1]#_g122095_|) '()))))) + (##unchecked-structure-set! __obj121621 __tmp122194 '15 '#f '#f)) + (let ((__tmp122198 + (cons (cons 'id |gx[1]#_g122199_|) + (cons (cons 'compile-top |gx[1]#_g122200_|) + (cons (cons 'e |gx[1]#_g122201_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122092 '16 '#f '#f)) - (let ((__tmp122096 - (cons (cons 'id |gx[1]#_g122097_|) - (cons (cons 'compile-top |gx[1]#_g122098_|) - (cons (cons 'e |gx[1]#_g122099_|) '()))))) + (##unchecked-structure-set! __obj121621 __tmp122198 '16 '#f '#f)) + (let ((__tmp122202 + (cons (cons 'id |gx[1]#_g122203_|) + (cons (cons 'compile-top |gx[1]#_g122204_|) + (cons (cons 'e |gx[1]#_g122205_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122096 '17 '#f '#f)) - (let ((__tmp122100 - (cons (cons 'id |gx[1]#_g122101_|) - (cons (cons 'compile-top |gx[1]#_g122102_|) - (cons (cons 'e |gx[1]#_g122103_|) '()))))) + (##unchecked-structure-set! __obj121621 __tmp122202 '17 '#f '#f)) + (let ((__tmp122206 + (cons (cons 'id |gx[1]#_g122207_|) + (cons (cons 'compile-top |gx[1]#_g122208_|) + (cons (cons 'e |gx[1]#_g122209_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121515 __tmp122100 '18 '#f '#f)) + (##unchecked-structure-set! __obj121621 __tmp122206 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121621 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121621 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121515 '() '20 '#f '#f)) - __obj121515)) + (##unchecked-structure-set! __obj121621 '() '20 '#f '#f)) + __obj121621)) (define |gx[:0:]#special-form| - (let ((__obj121516 + (let ((__obj121622 (let () (declare (not safe)) (##structure @@ -5742,85 +5742,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121516 + __obj121622 'gx#special-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 'special-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121622 'special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121622 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121516 + __obj121622 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122104 (cons |gx[1]#_g122081_| '()))) + (let ((__tmp122210 (cons |gx[1]#_g122187_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122104 '3 '#f '#f)) + (##unchecked-structure-set! __obj121622 __tmp122210 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121622 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121622 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121622 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '#f '11 '#f '#f)) - (let ((__tmp122105 |gx[1]#_g122106_|)) + (##unchecked-structure-set! __obj121622 '#f '11 '#f '#f)) + (let ((__tmp122211 |gx[1]#_g122212_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122105 '12 '#f '#f)) - (let ((__tmp122107 |gx[1]#_g122108_|)) + (##unchecked-structure-set! __obj121622 __tmp122211 '12 '#f '#f)) + (let ((__tmp122213 |gx[1]#_g122214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122107 '13 '#f '#f)) - (let ((__tmp122109 |gx[1]#_g122110_|)) + (##unchecked-structure-set! __obj121622 __tmp122213 '13 '#f '#f)) + (let ((__tmp122215 |gx[1]#_g122216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122109 '14 '#f '#f)) - (let ((__tmp122111 - (cons (cons 'id |gx[1]#_g122112_|) - (cons (cons 'compile-top |gx[1]#_g122113_|) - (cons (cons 'e |gx[1]#_g122114_|) '()))))) + (##unchecked-structure-set! __obj121622 __tmp122215 '14 '#f '#f)) + (let ((__tmp122217 + (cons (cons 'id |gx[1]#_g122218_|) + (cons (cons 'compile-top |gx[1]#_g122219_|) + (cons (cons 'e |gx[1]#_g122220_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122111 '15 '#f '#f)) - (let ((__tmp122115 - (cons (cons 'id |gx[1]#_g122116_|) - (cons (cons 'compile-top |gx[1]#_g122117_|) - (cons (cons 'e |gx[1]#_g122118_|) '()))))) + (##unchecked-structure-set! __obj121622 __tmp122217 '15 '#f '#f)) + (let ((__tmp122221 + (cons (cons 'id |gx[1]#_g122222_|) + (cons (cons 'compile-top |gx[1]#_g122223_|) + (cons (cons 'e |gx[1]#_g122224_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122115 '16 '#f '#f)) - (let ((__tmp122119 - (cons (cons 'id |gx[1]#_g122120_|) - (cons (cons 'compile-top |gx[1]#_g122121_|) - (cons (cons 'e |gx[1]#_g122122_|) '()))))) + (##unchecked-structure-set! __obj121622 __tmp122221 '16 '#f '#f)) + (let ((__tmp122225 + (cons (cons 'id |gx[1]#_g122226_|) + (cons (cons 'compile-top |gx[1]#_g122227_|) + (cons (cons 'e |gx[1]#_g122228_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122119 '17 '#f '#f)) - (let ((__tmp122123 - (cons (cons 'id |gx[1]#_g122124_|) - (cons (cons 'compile-top |gx[1]#_g122125_|) - (cons (cons 'e |gx[1]#_g122126_|) '()))))) + (##unchecked-structure-set! __obj121622 __tmp122225 '17 '#f '#f)) + (let ((__tmp122229 + (cons (cons 'id |gx[1]#_g122230_|) + (cons (cons 'compile-top |gx[1]#_g122231_|) + (cons (cons 'e |gx[1]#_g122232_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121516 __tmp122123 '18 '#f '#f)) + (##unchecked-structure-set! __obj121622 __tmp122229 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121622 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121622 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121516 '() '20 '#f '#f)) - __obj121516)) + (##unchecked-structure-set! __obj121622 '() '20 '#f '#f)) + __obj121622)) (define |gx[:0:]#definition-form| - (let ((__obj121517 + (let ((__obj121623 (let () (declare (not safe)) (##structure @@ -5849,85 +5849,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121517 + __obj121623 'gx#definition-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 'definition-form '2 '#f '#f)) + (##unchecked-structure-set! __obj121623 'definition-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121623 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121517 + __obj121623 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122127 (cons |gx[1]#_g122128_| '()))) + (let ((__tmp122233 (cons |gx[1]#_g122234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122127 '3 '#f '#f)) + (##unchecked-structure-set! __obj121623 __tmp122233 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121623 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121623 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121623 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '#f '11 '#f '#f)) - (let ((__tmp122129 |gx[1]#_g122130_|)) + (##unchecked-structure-set! __obj121623 '#f '11 '#f '#f)) + (let ((__tmp122235 |gx[1]#_g122236_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122129 '12 '#f '#f)) - (let ((__tmp122131 |gx[1]#_g122132_|)) + (##unchecked-structure-set! __obj121623 __tmp122235 '12 '#f '#f)) + (let ((__tmp122237 |gx[1]#_g122238_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122131 '13 '#f '#f)) - (let ((__tmp122133 |gx[1]#_g122134_|)) + (##unchecked-structure-set! __obj121623 __tmp122237 '13 '#f '#f)) + (let ((__tmp122239 |gx[1]#_g122240_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122133 '14 '#f '#f)) - (let ((__tmp122135 - (cons (cons 'id |gx[1]#_g122136_|) - (cons (cons 'compile-top |gx[1]#_g122137_|) - (cons (cons 'e |gx[1]#_g122138_|) '()))))) + (##unchecked-structure-set! __obj121623 __tmp122239 '14 '#f '#f)) + (let ((__tmp122241 + (cons (cons 'id |gx[1]#_g122242_|) + (cons (cons 'compile-top |gx[1]#_g122243_|) + (cons (cons 'e |gx[1]#_g122244_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122135 '15 '#f '#f)) - (let ((__tmp122139 - (cons (cons 'id |gx[1]#_g122140_|) - (cons (cons 'compile-top |gx[1]#_g122141_|) - (cons (cons 'e |gx[1]#_g122142_|) '()))))) + (##unchecked-structure-set! __obj121623 __tmp122241 '15 '#f '#f)) + (let ((__tmp122245 + (cons (cons 'id |gx[1]#_g122246_|) + (cons (cons 'compile-top |gx[1]#_g122247_|) + (cons (cons 'e |gx[1]#_g122248_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122139 '16 '#f '#f)) - (let ((__tmp122143 - (cons (cons 'id |gx[1]#_g122144_|) - (cons (cons 'compile-top |gx[1]#_g122145_|) - (cons (cons 'e |gx[1]#_g122146_|) '()))))) + (##unchecked-structure-set! __obj121623 __tmp122245 '16 '#f '#f)) + (let ((__tmp122249 + (cons (cons 'id |gx[1]#_g122250_|) + (cons (cons 'compile-top |gx[1]#_g122251_|) + (cons (cons 'e |gx[1]#_g122252_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122143 '17 '#f '#f)) - (let ((__tmp122147 - (cons (cons 'id |gx[1]#_g122148_|) - (cons (cons 'compile-top |gx[1]#_g122149_|) - (cons (cons 'e |gx[1]#_g122150_|) '()))))) + (##unchecked-structure-set! __obj121623 __tmp122249 '17 '#f '#f)) + (let ((__tmp122253 + (cons (cons 'id |gx[1]#_g122254_|) + (cons (cons 'compile-top |gx[1]#_g122255_|) + (cons (cons 'e |gx[1]#_g122256_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121517 __tmp122147 '18 '#f '#f)) + (##unchecked-structure-set! __obj121623 __tmp122253 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121623 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121623 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121517 '() '20 '#f '#f)) - __obj121517)) + (##unchecked-structure-set! __obj121623 '() '20 '#f '#f)) + __obj121623)) (define |gx[:0:]#top-special-form| - (let ((__obj121518 + (let ((__obj121624 (let () (declare (not safe)) (##structure @@ -5956,7 +5956,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121518 + __obj121624 'gx#top-special-form::t '1 '#f @@ -5964,82 +5964,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121518 + __obj121624 'top-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121624 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121518 + __obj121624 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122151 (cons |gx[1]#_g122128_| '()))) + (let ((__tmp122257 (cons |gx[1]#_g122234_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122151 '3 '#f '#f)) + (##unchecked-structure-set! __obj121624 __tmp122257 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121624 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121624 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121624 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '#f '11 '#f '#f)) - (let ((__tmp122152 |gx[1]#_g122153_|)) + (##unchecked-structure-set! __obj121624 '#f '11 '#f '#f)) + (let ((__tmp122258 |gx[1]#_g122259_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122152 '12 '#f '#f)) - (let ((__tmp122154 |gx[1]#_g122155_|)) + (##unchecked-structure-set! __obj121624 __tmp122258 '12 '#f '#f)) + (let ((__tmp122260 |gx[1]#_g122261_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122154 '13 '#f '#f)) - (let ((__tmp122156 |gx[1]#_g122157_|)) + (##unchecked-structure-set! __obj121624 __tmp122260 '13 '#f '#f)) + (let ((__tmp122262 |gx[1]#_g122263_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122156 '14 '#f '#f)) - (let ((__tmp122158 - (cons (cons 'id |gx[1]#_g122159_|) - (cons (cons 'compile-top |gx[1]#_g122160_|) - (cons (cons 'e |gx[1]#_g122161_|) '()))))) + (##unchecked-structure-set! __obj121624 __tmp122262 '14 '#f '#f)) + (let ((__tmp122264 + (cons (cons 'id |gx[1]#_g122265_|) + (cons (cons 'compile-top |gx[1]#_g122266_|) + (cons (cons 'e |gx[1]#_g122267_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122158 '15 '#f '#f)) - (let ((__tmp122162 - (cons (cons 'id |gx[1]#_g122163_|) - (cons (cons 'compile-top |gx[1]#_g122164_|) - (cons (cons 'e |gx[1]#_g122165_|) '()))))) + (##unchecked-structure-set! __obj121624 __tmp122264 '15 '#f '#f)) + (let ((__tmp122268 + (cons (cons 'id |gx[1]#_g122269_|) + (cons (cons 'compile-top |gx[1]#_g122270_|) + (cons (cons 'e |gx[1]#_g122271_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122162 '16 '#f '#f)) - (let ((__tmp122166 - (cons (cons 'id |gx[1]#_g122167_|) - (cons (cons 'compile-top |gx[1]#_g122168_|) - (cons (cons 'e |gx[1]#_g122169_|) '()))))) + (##unchecked-structure-set! __obj121624 __tmp122268 '16 '#f '#f)) + (let ((__tmp122272 + (cons (cons 'id |gx[1]#_g122273_|) + (cons (cons 'compile-top |gx[1]#_g122274_|) + (cons (cons 'e |gx[1]#_g122275_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122166 '17 '#f '#f)) - (let ((__tmp122170 - (cons (cons 'id |gx[1]#_g122171_|) - (cons (cons 'compile-top |gx[1]#_g122172_|) - (cons (cons 'e |gx[1]#_g122173_|) '()))))) + (##unchecked-structure-set! __obj121624 __tmp122272 '17 '#f '#f)) + (let ((__tmp122276 + (cons (cons 'id |gx[1]#_g122277_|) + (cons (cons 'compile-top |gx[1]#_g122278_|) + (cons (cons 'e |gx[1]#_g122279_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121518 __tmp122170 '18 '#f '#f)) + (##unchecked-structure-set! __obj121624 __tmp122276 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121624 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121624 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121518 '() '20 '#f '#f)) - __obj121518)) + (##unchecked-structure-set! __obj121624 '() '20 '#f '#f)) + __obj121624)) (define |gx[:0:]#module-special-form| - (let ((__obj121519 + (let ((__obj121625 (let () (declare (not safe)) (##structure @@ -6068,7 +6068,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121519 + __obj121625 'gx#module-special-form::t '1 '#f @@ -6076,82 +6076,82 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121519 + __obj121625 'module-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121625 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121519 + __obj121625 '(e id compile-top) '6 '#f '#f)) - (let ((__tmp122174 (cons |gx[1]#_g122175_| '()))) + (let ((__tmp122280 (cons |gx[1]#_g122281_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122174 '3 '#f '#f)) + (##unchecked-structure-set! __obj121625 __tmp122280 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121625 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121625 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121625 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '#f '11 '#f '#f)) - (let ((__tmp122176 |gx[1]#_g122177_|)) + (##unchecked-structure-set! __obj121625 '#f '11 '#f '#f)) + (let ((__tmp122282 |gx[1]#_g122283_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122176 '12 '#f '#f)) - (let ((__tmp122178 |gx[1]#_g122179_|)) + (##unchecked-structure-set! __obj121625 __tmp122282 '12 '#f '#f)) + (let ((__tmp122284 |gx[1]#_g122285_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122178 '13 '#f '#f)) - (let ((__tmp122180 |gx[1]#_g122181_|)) + (##unchecked-structure-set! __obj121625 __tmp122284 '13 '#f '#f)) + (let ((__tmp122286 |gx[1]#_g122287_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122180 '14 '#f '#f)) - (let ((__tmp122182 - (cons (cons 'id |gx[1]#_g122183_|) - (cons (cons 'compile-top |gx[1]#_g122184_|) - (cons (cons 'e |gx[1]#_g122185_|) '()))))) + (##unchecked-structure-set! __obj121625 __tmp122286 '14 '#f '#f)) + (let ((__tmp122288 + (cons (cons 'id |gx[1]#_g122289_|) + (cons (cons 'compile-top |gx[1]#_g122290_|) + (cons (cons 'e |gx[1]#_g122291_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122182 '15 '#f '#f)) - (let ((__tmp122186 - (cons (cons 'id |gx[1]#_g122187_|) - (cons (cons 'compile-top |gx[1]#_g122188_|) - (cons (cons 'e |gx[1]#_g122189_|) '()))))) + (##unchecked-structure-set! __obj121625 __tmp122288 '15 '#f '#f)) + (let ((__tmp122292 + (cons (cons 'id |gx[1]#_g122293_|) + (cons (cons 'compile-top |gx[1]#_g122294_|) + (cons (cons 'e |gx[1]#_g122295_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122186 '16 '#f '#f)) - (let ((__tmp122190 - (cons (cons 'id |gx[1]#_g122191_|) - (cons (cons 'compile-top |gx[1]#_g122192_|) - (cons (cons 'e |gx[1]#_g122193_|) '()))))) + (##unchecked-structure-set! __obj121625 __tmp122292 '16 '#f '#f)) + (let ((__tmp122296 + (cons (cons 'id |gx[1]#_g122297_|) + (cons (cons 'compile-top |gx[1]#_g122298_|) + (cons (cons 'e |gx[1]#_g122299_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122190 '17 '#f '#f)) - (let ((__tmp122194 - (cons (cons 'id |gx[1]#_g122195_|) - (cons (cons 'compile-top |gx[1]#_g122196_|) - (cons (cons 'e |gx[1]#_g122197_|) '()))))) + (##unchecked-structure-set! __obj121625 __tmp122296 '17 '#f '#f)) + (let ((__tmp122300 + (cons (cons 'id |gx[1]#_g122301_|) + (cons (cons 'compile-top |gx[1]#_g122302_|) + (cons (cons 'e |gx[1]#_g122303_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121519 __tmp122194 '18 '#f '#f)) + (##unchecked-structure-set! __obj121625 __tmp122300 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121625 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121625 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121519 '() '20 '#f '#f)) - __obj121519)) + (##unchecked-structure-set! __obj121625 '() '20 '#f '#f)) + __obj121625)) (define |gx[:0:]#feature-expander| - (let ((__obj121520 + (let ((__obj121626 (let () (declare (not safe)) (##structure @@ -6180,7 +6180,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121520 + __obj121626 'gx#feature-expander::t '1 '#f @@ -6188,65 +6188,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121520 + __obj121626 'feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121626 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '(e) '6 '#f '#f)) - (let ((__tmp122198 (cons |gx[1]#_g122057_| '()))) + (##unchecked-structure-set! __obj121626 '(e) '6 '#f '#f)) + (let ((__tmp122304 (cons |gx[1]#_g122163_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122198 '3 '#f '#f)) + (##unchecked-structure-set! __obj121626 __tmp122304 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121626 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121626 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121626 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '#f '11 '#f '#f)) - (let ((__tmp122199 |gx[1]#_g122200_|)) + (##unchecked-structure-set! __obj121626 '#f '11 '#f '#f)) + (let ((__tmp122305 |gx[1]#_g122306_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122199 '12 '#f '#f)) - (let ((__tmp122201 |gx[1]#_g122202_|)) + (##unchecked-structure-set! __obj121626 __tmp122305 '12 '#f '#f)) + (let ((__tmp122307 |gx[1]#_g122308_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122201 '13 '#f '#f)) - (let ((__tmp122203 |gx[1]#_g122204_|)) + (##unchecked-structure-set! __obj121626 __tmp122307 '13 '#f '#f)) + (let ((__tmp122309 |gx[1]#_g122310_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122203 '14 '#f '#f)) - (let ((__tmp122205 (cons (cons 'e |gx[1]#_g122206_|) '()))) + (##unchecked-structure-set! __obj121626 __tmp122309 '14 '#f '#f)) + (let ((__tmp122311 (cons (cons 'e |gx[1]#_g122312_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122205 '15 '#f '#f)) - (let ((__tmp122207 (cons (cons 'e |gx[1]#_g122208_|) '()))) + (##unchecked-structure-set! __obj121626 __tmp122311 '15 '#f '#f)) + (let ((__tmp122313 (cons (cons 'e |gx[1]#_g122314_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122207 '16 '#f '#f)) - (let ((__tmp122209 (cons (cons 'e |gx[1]#_g122210_|) '()))) + (##unchecked-structure-set! __obj121626 __tmp122313 '16 '#f '#f)) + (let ((__tmp122315 (cons (cons 'e |gx[1]#_g122316_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122209 '17 '#f '#f)) - (let ((__tmp122211 (cons (cons 'e |gx[1]#_g122212_|) '()))) + (##unchecked-structure-set! __obj121626 __tmp122315 '17 '#f '#f)) + (let ((__tmp122317 (cons (cons 'e |gx[1]#_g122318_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121520 __tmp122211 '18 '#f '#f)) + (##unchecked-structure-set! __obj121626 __tmp122317 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121626 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121626 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121520 '() '20 '#f '#f)) - __obj121520)) + (##unchecked-structure-set! __obj121626 '() '20 '#f '#f)) + __obj121626)) (define |gx[:0:]#private-feature-expander| - (let ((__obj121521 + (let ((__obj121627 (let () (declare (not safe)) (##structure @@ -6275,7 +6275,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121521 + __obj121627 'gx#private-feature-expander::t '1 '#f @@ -6283,65 +6283,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121521 + __obj121627 'private-feature-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121627 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '(e) '6 '#f '#f)) - (let ((__tmp122213 (cons |gx[1]#_g122214_| '()))) + (##unchecked-structure-set! __obj121627 '(e) '6 '#f '#f)) + (let ((__tmp122319 (cons |gx[1]#_g122320_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122213 '3 '#f '#f)) + (##unchecked-structure-set! __obj121627 __tmp122319 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121627 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121627 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121627 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '#f '11 '#f '#f)) - (let ((__tmp122215 |gx[1]#_g122216_|)) + (##unchecked-structure-set! __obj121627 '#f '11 '#f '#f)) + (let ((__tmp122321 |gx[1]#_g122322_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122215 '12 '#f '#f)) - (let ((__tmp122217 |gx[1]#_g122218_|)) + (##unchecked-structure-set! __obj121627 __tmp122321 '12 '#f '#f)) + (let ((__tmp122323 |gx[1]#_g122324_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122217 '13 '#f '#f)) - (let ((__tmp122219 |gx[1]#_g122220_|)) + (##unchecked-structure-set! __obj121627 __tmp122323 '13 '#f '#f)) + (let ((__tmp122325 |gx[1]#_g122326_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122219 '14 '#f '#f)) - (let ((__tmp122221 (cons (cons 'e |gx[1]#_g122222_|) '()))) + (##unchecked-structure-set! __obj121627 __tmp122325 '14 '#f '#f)) + (let ((__tmp122327 (cons (cons 'e |gx[1]#_g122328_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122221 '15 '#f '#f)) - (let ((__tmp122223 (cons (cons 'e |gx[1]#_g122224_|) '()))) + (##unchecked-structure-set! __obj121627 __tmp122327 '15 '#f '#f)) + (let ((__tmp122329 (cons (cons 'e |gx[1]#_g122330_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122223 '16 '#f '#f)) - (let ((__tmp122225 (cons (cons 'e |gx[1]#_g122226_|) '()))) + (##unchecked-structure-set! __obj121627 __tmp122329 '16 '#f '#f)) + (let ((__tmp122331 (cons (cons 'e |gx[1]#_g122332_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122225 '17 '#f '#f)) - (let ((__tmp122227 (cons (cons 'e |gx[1]#_g122228_|) '()))) + (##unchecked-structure-set! __obj121627 __tmp122331 '17 '#f '#f)) + (let ((__tmp122333 (cons (cons 'e |gx[1]#_g122334_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121521 __tmp122227 '18 '#f '#f)) + (##unchecked-structure-set! __obj121627 __tmp122333 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121627 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121627 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121521 '() '20 '#f '#f)) - __obj121521)) + (##unchecked-structure-set! __obj121627 '() '20 '#f '#f)) + __obj121627)) (define |gx[:0:]#reserved-expander| - (let ((__obj121522 + (let ((__obj121628 (let () (declare (not safe)) (##structure @@ -6370,7 +6370,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121522 + __obj121628 'gx#reserved-expander::t '1 '#f @@ -6378,65 +6378,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121522 + __obj121628 'reserved-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121628 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '(e) '6 '#f '#f)) - (let ((__tmp122229 (cons |gx[1]#_g122057_| '()))) + (##unchecked-structure-set! __obj121628 '(e) '6 '#f '#f)) + (let ((__tmp122335 (cons |gx[1]#_g122163_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122229 '3 '#f '#f)) + (##unchecked-structure-set! __obj121628 __tmp122335 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121628 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121628 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121628 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '#f '11 '#f '#f)) - (let ((__tmp122230 |gx[1]#_g122231_|)) + (##unchecked-structure-set! __obj121628 '#f '11 '#f '#f)) + (let ((__tmp122336 |gx[1]#_g122337_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122230 '12 '#f '#f)) - (let ((__tmp122232 |gx[1]#_g122233_|)) + (##unchecked-structure-set! __obj121628 __tmp122336 '12 '#f '#f)) + (let ((__tmp122338 |gx[1]#_g122339_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122232 '13 '#f '#f)) - (let ((__tmp122234 |gx[1]#_g122235_|)) + (##unchecked-structure-set! __obj121628 __tmp122338 '13 '#f '#f)) + (let ((__tmp122340 |gx[1]#_g122341_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122234 '14 '#f '#f)) - (let ((__tmp122236 (cons (cons 'e |gx[1]#_g122237_|) '()))) + (##unchecked-structure-set! __obj121628 __tmp122340 '14 '#f '#f)) + (let ((__tmp122342 (cons (cons 'e |gx[1]#_g122343_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122236 '15 '#f '#f)) - (let ((__tmp122238 (cons (cons 'e |gx[1]#_g122239_|) '()))) + (##unchecked-structure-set! __obj121628 __tmp122342 '15 '#f '#f)) + (let ((__tmp122344 (cons (cons 'e |gx[1]#_g122345_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122238 '16 '#f '#f)) - (let ((__tmp122240 (cons (cons 'e |gx[1]#_g122241_|) '()))) + (##unchecked-structure-set! __obj121628 __tmp122344 '16 '#f '#f)) + (let ((__tmp122346 (cons (cons 'e |gx[1]#_g122347_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122240 '17 '#f '#f)) - (let ((__tmp122242 (cons (cons 'e |gx[1]#_g122243_|) '()))) + (##unchecked-structure-set! __obj121628 __tmp122346 '17 '#f '#f)) + (let ((__tmp122348 (cons (cons 'e |gx[1]#_g122349_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121522 __tmp122242 '18 '#f '#f)) + (##unchecked-structure-set! __obj121628 __tmp122348 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121628 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121628 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121522 '() '20 '#f '#f)) - __obj121522)) + (##unchecked-structure-set! __obj121628 '() '20 '#f '#f)) + __obj121628)) (define |gx[:0:]#macro-expander| - (let ((__obj121523 + (let ((__obj121629 (let () (declare (not safe)) (##structure @@ -6465,68 +6465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121523 + __obj121629 'gx#macro-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 'macro-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121629 'macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121629 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '(e) '6 '#f '#f)) - (let ((__tmp122244 (cons |gx[1]#_g122057_| '()))) + (##unchecked-structure-set! __obj121629 '(e) '6 '#f '#f)) + (let ((__tmp122350 (cons |gx[1]#_g122163_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122244 '3 '#f '#f)) + (##unchecked-structure-set! __obj121629 __tmp122350 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121629 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121629 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121629 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '#f '11 '#f '#f)) - (let ((__tmp122245 |gx[1]#_g122246_|)) + (##unchecked-structure-set! __obj121629 '#f '11 '#f '#f)) + (let ((__tmp122351 |gx[1]#_g122352_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122245 '12 '#f '#f)) - (let ((__tmp122247 |gx[1]#_g122248_|)) + (##unchecked-structure-set! __obj121629 __tmp122351 '12 '#f '#f)) + (let ((__tmp122353 |gx[1]#_g122354_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122247 '13 '#f '#f)) - (let ((__tmp122249 |gx[1]#_g122250_|)) + (##unchecked-structure-set! __obj121629 __tmp122353 '13 '#f '#f)) + (let ((__tmp122355 |gx[1]#_g122356_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122249 '14 '#f '#f)) - (let ((__tmp122251 (cons (cons 'e |gx[1]#_g122252_|) '()))) + (##unchecked-structure-set! __obj121629 __tmp122355 '14 '#f '#f)) + (let ((__tmp122357 (cons (cons 'e |gx[1]#_g122358_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122251 '15 '#f '#f)) - (let ((__tmp122253 (cons (cons 'e |gx[1]#_g122254_|) '()))) + (##unchecked-structure-set! __obj121629 __tmp122357 '15 '#f '#f)) + (let ((__tmp122359 (cons (cons 'e |gx[1]#_g122360_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122253 '16 '#f '#f)) - (let ((__tmp122255 (cons (cons 'e |gx[1]#_g122256_|) '()))) + (##unchecked-structure-set! __obj121629 __tmp122359 '16 '#f '#f)) + (let ((__tmp122361 (cons (cons 'e |gx[1]#_g122362_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122255 '17 '#f '#f)) - (let ((__tmp122257 (cons (cons 'e |gx[1]#_g122258_|) '()))) + (##unchecked-structure-set! __obj121629 __tmp122361 '17 '#f '#f)) + (let ((__tmp122363 (cons (cons 'e |gx[1]#_g122364_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121523 __tmp122257 '18 '#f '#f)) + (##unchecked-structure-set! __obj121629 __tmp122363 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121629 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121629 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121523 '() '20 '#f '#f)) - __obj121523)) + (##unchecked-structure-set! __obj121629 '() '20 '#f '#f)) + __obj121629)) (define |gx[:0:]#rename-macro-expander| - (let ((__obj121524 + (let ((__obj121630 (let () (declare (not safe)) (##structure @@ -6555,7 +6555,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121524 + __obj121630 'gx#rename-macro-expander::t '1 '#f @@ -6563,65 +6563,65 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121524 + __obj121630 'rename-macro-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj121630 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '(e) '6 '#f '#f)) - (let ((__tmp122259 (cons |gx[1]#_g122260_| '()))) + (##unchecked-structure-set! __obj121630 '(e) '6 '#f '#f)) + (let ((__tmp122365 (cons |gx[1]#_g122366_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122259 '3 '#f '#f)) + (##unchecked-structure-set! __obj121630 __tmp122365 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121630 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121630 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121630 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '#f '11 '#f '#f)) - (let ((__tmp122261 |gx[1]#_g122262_|)) + (##unchecked-structure-set! __obj121630 '#f '11 '#f '#f)) + (let ((__tmp122367 |gx[1]#_g122368_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122261 '12 '#f '#f)) - (let ((__tmp122263 |gx[1]#_g122264_|)) + (##unchecked-structure-set! __obj121630 __tmp122367 '12 '#f '#f)) + (let ((__tmp122369 |gx[1]#_g122370_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122263 '13 '#f '#f)) - (let ((__tmp122265 |gx[1]#_g122266_|)) + (##unchecked-structure-set! __obj121630 __tmp122369 '13 '#f '#f)) + (let ((__tmp122371 |gx[1]#_g122372_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122265 '14 '#f '#f)) - (let ((__tmp122267 (cons (cons 'e |gx[1]#_g122268_|) '()))) + (##unchecked-structure-set! __obj121630 __tmp122371 '14 '#f '#f)) + (let ((__tmp122373 (cons (cons 'e |gx[1]#_g122374_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122267 '15 '#f '#f)) - (let ((__tmp122269 (cons (cons 'e |gx[1]#_g122270_|) '()))) + (##unchecked-structure-set! __obj121630 __tmp122373 '15 '#f '#f)) + (let ((__tmp122375 (cons (cons 'e |gx[1]#_g122376_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122269 '16 '#f '#f)) - (let ((__tmp122271 (cons (cons 'e |gx[1]#_g122272_|) '()))) + (##unchecked-structure-set! __obj121630 __tmp122375 '16 '#f '#f)) + (let ((__tmp122377 (cons (cons 'e |gx[1]#_g122378_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122271 '17 '#f '#f)) - (let ((__tmp122273 (cons (cons 'e |gx[1]#_g122274_|) '()))) + (##unchecked-structure-set! __obj121630 __tmp122377 '17 '#f '#f)) + (let ((__tmp122379 (cons (cons 'e |gx[1]#_g122380_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121524 __tmp122273 '18 '#f '#f)) + (##unchecked-structure-set! __obj121630 __tmp122379 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121630 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121630 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121524 '() '20 '#f '#f)) - __obj121524)) + (##unchecked-structure-set! __obj121630 '() '20 '#f '#f)) + __obj121630)) (define |gx[:0:]#user-expander| - (let ((__obj121525 + (let ((__obj121631 (let () (declare (not safe)) (##structure @@ -6650,80 +6650,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121525 + __obj121631 'gx#user-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 'user-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj121631 'user-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '(context phi) '4 '#f '#f)) + (##unchecked-structure-set! __obj121631 '(context phi) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '(e context phi) '6 '#f '#f)) - (let ((__tmp122275 (cons |gx[1]#_g122260_| '()))) + (##unchecked-structure-set! __obj121631 '(e context phi) '6 '#f '#f)) + (let ((__tmp122381 (cons |gx[1]#_g122366_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122275 '3 '#f '#f)) + (##unchecked-structure-set! __obj121631 __tmp122381 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121631 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121631 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121631 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '#f '11 '#f '#f)) - (let ((__tmp122276 |gx[1]#_g122277_|)) + (##unchecked-structure-set! __obj121631 '#f '11 '#f '#f)) + (let ((__tmp122382 |gx[1]#_g122383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122276 '12 '#f '#f)) - (let ((__tmp122278 |gx[1]#_g122279_|)) + (##unchecked-structure-set! __obj121631 __tmp122382 '12 '#f '#f)) + (let ((__tmp122384 |gx[1]#_g122385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122278 '13 '#f '#f)) - (let ((__tmp122280 |gx[1]#_g122281_|)) + (##unchecked-structure-set! __obj121631 __tmp122384 '13 '#f '#f)) + (let ((__tmp122386 |gx[1]#_g122387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122280 '14 '#f '#f)) - (let ((__tmp122282 - (cons (cons 'context |gx[1]#_g122283_|) - (cons (cons 'phi |gx[1]#_g122284_|) - (cons (cons 'e |gx[1]#_g122285_|) '()))))) + (##unchecked-structure-set! __obj121631 __tmp122386 '14 '#f '#f)) + (let ((__tmp122388 + (cons (cons 'context |gx[1]#_g122389_|) + (cons (cons 'phi |gx[1]#_g122390_|) + (cons (cons 'e |gx[1]#_g122391_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122282 '15 '#f '#f)) - (let ((__tmp122286 - (cons (cons 'context |gx[1]#_g122287_|) - (cons (cons 'phi |gx[1]#_g122288_|) - (cons (cons 'e |gx[1]#_g122289_|) '()))))) + (##unchecked-structure-set! __obj121631 __tmp122388 '15 '#f '#f)) + (let ((__tmp122392 + (cons (cons 'context |gx[1]#_g122393_|) + (cons (cons 'phi |gx[1]#_g122394_|) + (cons (cons 'e |gx[1]#_g122395_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122286 '16 '#f '#f)) - (let ((__tmp122290 - (cons (cons 'context |gx[1]#_g122291_|) - (cons (cons 'phi |gx[1]#_g122292_|) - (cons (cons 'e |gx[1]#_g122293_|) '()))))) + (##unchecked-structure-set! __obj121631 __tmp122392 '16 '#f '#f)) + (let ((__tmp122396 + (cons (cons 'context |gx[1]#_g122397_|) + (cons (cons 'phi |gx[1]#_g122398_|) + (cons (cons 'e |gx[1]#_g122399_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122290 '17 '#f '#f)) - (let ((__tmp122294 - (cons (cons 'context |gx[1]#_g122295_|) - (cons (cons 'phi |gx[1]#_g122296_|) - (cons (cons 'e |gx[1]#_g122297_|) '()))))) + (##unchecked-structure-set! __obj121631 __tmp122396 '17 '#f '#f)) + (let ((__tmp122400 + (cons (cons 'context |gx[1]#_g122401_|) + (cons (cons 'phi |gx[1]#_g122402_|) + (cons (cons 'e |gx[1]#_g122403_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj121525 __tmp122294 '18 '#f '#f)) + (##unchecked-structure-set! __obj121631 __tmp122400 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121631 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121631 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121525 '() '20 '#f '#f)) - __obj121525)) + (##unchecked-structure-set! __obj121631 '() '20 '#f '#f)) + __obj121631)) (define |gx[:0:]#expander-mark| - (let ((__obj121526 + (let ((__obj121632 (let () (declare (not safe)) (##structure @@ -6752,18 +6752,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121526 + __obj121632 'gx#expander-mark::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 'expander-mark '2 '#f '#f)) + (##unchecked-structure-set! __obj121632 'expander-mark '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj121526 + __obj121632 '(subst context phi trace) '4 '#f @@ -6771,74 +6771,74 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj121526 + __obj121632 '(subst context phi trace) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj121632 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj121632 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj121632 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj121632 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '#f '11 '#f '#f)) - (let ((__tmp122298 |gx[1]#_g122299_|)) + (##unchecked-structure-set! __obj121632 '#f '11 '#f '#f)) + (let ((__tmp122404 |gx[1]#_g122405_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122298 '12 '#f '#f)) - (let ((__tmp122300 |gx[1]#_g122301_|)) + (##unchecked-structure-set! __obj121632 __tmp122404 '12 '#f '#f)) + (let ((__tmp122406 |gx[1]#_g122407_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122300 '13 '#f '#f)) - (let ((__tmp122302 |gx[1]#_g122303_|)) + (##unchecked-structure-set! __obj121632 __tmp122406 '13 '#f '#f)) + (let ((__tmp122408 |gx[1]#_g122409_|)) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122302 '14 '#f '#f)) - (let ((__tmp122304 - (cons (cons 'subst |gx[1]#_g122305_|) - (cons (cons 'context |gx[1]#_g122306_|) - (cons (cons 'phi |gx[1]#_g122307_|) - (cons (cons 'trace |gx[1]#_g122308_|) + (##unchecked-structure-set! __obj121632 __tmp122408 '14 '#f '#f)) + (let ((__tmp122410 + (cons (cons 'subst |gx[1]#_g122411_|) + (cons (cons 'context |gx[1]#_g122412_|) + (cons (cons 'phi |gx[1]#_g122413_|) + (cons (cons 'trace |gx[1]#_g122414_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122304 '15 '#f '#f)) - (let ((__tmp122309 - (cons (cons 'subst |gx[1]#_g122310_|) - (cons (cons 'context |gx[1]#_g122311_|) - (cons (cons 'phi |gx[1]#_g122312_|) - (cons (cons 'trace |gx[1]#_g122313_|) + (##unchecked-structure-set! __obj121632 __tmp122410 '15 '#f '#f)) + (let ((__tmp122415 + (cons (cons 'subst |gx[1]#_g122416_|) + (cons (cons 'context |gx[1]#_g122417_|) + (cons (cons 'phi |gx[1]#_g122418_|) + (cons (cons 'trace |gx[1]#_g122419_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122309 '16 '#f '#f)) - (let ((__tmp122314 - (cons (cons 'subst |gx[1]#_g122315_|) - (cons (cons 'context |gx[1]#_g122316_|) - (cons (cons 'phi |gx[1]#_g122317_|) - (cons (cons 'trace |gx[1]#_g122318_|) + (##unchecked-structure-set! __obj121632 __tmp122415 '16 '#f '#f)) + (let ((__tmp122420 + (cons (cons 'subst |gx[1]#_g122421_|) + (cons (cons 'context |gx[1]#_g122422_|) + (cons (cons 'phi |gx[1]#_g122423_|) + (cons (cons 'trace |gx[1]#_g122424_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122314 '17 '#f '#f)) - (let ((__tmp122319 - (cons (cons 'subst |gx[1]#_g122320_|) - (cons (cons 'context |gx[1]#_g122321_|) - (cons (cons 'phi |gx[1]#_g122322_|) - (cons (cons 'trace |gx[1]#_g122323_|) + (##unchecked-structure-set! __obj121632 __tmp122420 '17 '#f '#f)) + (let ((__tmp122425 + (cons (cons 'subst |gx[1]#_g122426_|) + (cons (cons 'context |gx[1]#_g122427_|) + (cons (cons 'phi |gx[1]#_g122428_|) + (cons (cons 'trace |gx[1]#_g122429_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj121526 __tmp122319 '18 '#f '#f)) + (##unchecked-structure-set! __obj121632 __tmp122425 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj121632 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj121632 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj121526 '() '20 '#f '#f)) - __obj121526)))) + (##unchecked-structure-set! __obj121632 '() '20 '#f '#f)) + __obj121632)))) diff --git a/src/bootstrap/gerbil/expander/init~0.scm b/src/bootstrap/gerbil/expander/init~0.scm index 01f230b83..393e62c7a 100644 --- a/src/bootstrap/gerbil/expander/init~0.scm +++ b/src/bootstrap/gerbil/expander/init~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/init::timestamp 1733870075) + (define gerbil/expander/init::timestamp 1734131747) (begin - (let ((__tmp133111 - (let ((__obj133109 + (let ((__tmp133217 + (let ((__obj133215 (let () (declare (not safe)) (##structure gx#top-context::t '#f '#f '#f '#f '#f)))) (let () (declare (not safe)) - (gx#top-context:::init!__0 __obj133109)) - __obj133109))) + (gx#top-context:::init!__0 __obj133215)) + __obj133215))) (declare (not safe)) - (gx#current-expander-context __tmp133111)) + (gx#current-expander-context __tmp133217)) (let () (declare (not safe)) (gx#current-expander-module-import gx#core-import-module)) @@ -21,8 +21,8 @@ (gx#current-expander-module-eval gx#core-eval-module)) (let () (declare (not safe)) (gx#current-expander-compile __compile-top)) (let () (declare (not safe)) (gx#current-expander-eval ##eval)) - (let ((__tmp133112 - (let ((__obj133110 + (let ((__tmp133218 + (let ((__obj133216 (let () (declare (not safe)) (##structure @@ -37,7 +37,7 @@ '#f)))) (let () (declare (not safe)) - (gx#prelude-context:::init!__0 __obj133110 '#f)) - __obj133110))) + (gx#prelude-context:::init!__0 __obj133216 '#f)) + __obj133216))) (declare (not safe)) - (gx#core-bind-root-syntax!__% ': __tmp133112 '#t)))) + (gx#core-bind-root-syntax!__% ': __tmp133218 '#t)))) diff --git a/src/bootstrap/gerbil/expander/module.ssxi.ss b/src/bootstrap/gerbil/expander/module.ssxi.ss index 0bfac44c3..574a72610 100644 --- a/src/bootstrap/gerbil/expander/module.ssxi.ss +++ b/src/bootstrap/gerbil/expander/module.ssxi.ss @@ -224,8 +224,10 @@ package: gerbil/expander #f #f #f - ((apply-import-expander . gx#import-expander::apply-import-expander) - (:init! . gx#import-expander:::init!)))) + ((:init! . gx#import-expander:::init!) + (apply-import-expander + . + gx#import-expander::apply-import-expander)))) (declare-type gx#import-expander::t (optimizer-resolve-class '(typedecl gx#import-expander::t) 'class::t)) @@ -279,8 +281,10 @@ package: gerbil/expander #f #f #f - ((apply-export-expander . gx#export-expander::apply-export-expander) - (:init! . gx#export-expander:::init!)))) + ((:init! . gx#export-expander:::init!) + (apply-export-expander + . + gx#export-expander::apply-export-expander)))) (declare-type gx#export-expander::t (optimizer-resolve-class '(typedecl gx#export-expander::t) 'class::t)) diff --git a/src/bootstrap/gerbil/expander/module~0.scm b/src/bootstrap/gerbil/expander/module~0.scm index 30c9fab09..984340edc 100644 --- a/src/bootstrap/gerbil/expander/module~0.scm +++ b/src/bootstrap/gerbil/expander/module~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/module::timestamp 1733870074) + (define gerbil/expander/module::timestamp 1734131747) (begin (declare (not safe)) (define gx#__module-registry @@ -36,8 +36,8 @@ '#f)) (define gx#module-import? (__make-class-predicate gx#module-import::t)) (define gx#make-module-import - (lambda _%$args128960%_ - (apply make-instance gx#module-import::t _%$args128960%_))) + (lambda _%$args129066%_ + (apply make-instance gx#module-import::t _%$args129066%_))) (define gx#module-import-source (__make-class-slot-accessor gx#module-import::t 'source)) (define gx#module-import-name @@ -81,8 +81,8 @@ '#f)) (define gx#module-export? (__make-class-predicate gx#module-export::t)) (define gx#make-module-export - (lambda _%$args128957%_ - (apply make-instance gx#module-export::t _%$args128957%_))) + (lambda _%$args129063%_ + (apply make-instance gx#module-export::t _%$args129063%_))) (define gx#module-export-context (__make-class-slot-accessor gx#module-export::t 'context)) (define gx#module-export-key @@ -134,8 +134,8 @@ '#f)) (define gx#import-set? (__make-class-predicate gx#import-set::t)) (define gx#make-import-set - (lambda _%$args128954%_ - (apply make-instance gx#import-set::t _%$args128954%_))) + (lambda _%$args129060%_ + (apply make-instance gx#import-set::t _%$args129060%_))) (define gx#import-set-source (__make-class-slot-accessor gx#import-set::t 'source)) (define gx#import-set-phi @@ -171,8 +171,8 @@ '#f)) (define gx#export-set? (__make-class-predicate gx#export-set::t)) (define gx#make-export-set - (lambda _%$args128951%_ - (apply make-instance gx#export-set::t _%$args128951%_))) + (lambda _%$args129057%_ + (apply make-instance gx#export-set::t _%$args129057%_))) (define gx#export-set-source (__make-class-slot-accessor gx#export-set::t 'source)) (define gx#export-set-phi @@ -207,8 +207,8 @@ ':init!)) (define gx#import-expander? (__make-class-predicate gx#import-expander::t)) (define gx#make-import-expander - (lambda _%$args128948%_ - (apply make-instance gx#import-expander::t _%$args128948%_))) + (lambda _%$args129054%_ + (apply make-instance gx#import-expander::t _%$args129054%_))) (define gx#import-expander-context (__make-class-slot-accessor gx#import-expander::t 'context)) (define gx#import-expander-phi @@ -243,8 +243,8 @@ ':init!)) (define gx#export-expander? (__make-class-predicate gx#export-expander::t)) (define gx#make-export-expander - (lambda _%$args128945%_ - (apply make-instance gx#export-expander::t _%$args128945%_))) + (lambda _%$args129051%_ + (apply make-instance gx#export-expander::t _%$args129051%_))) (define gx#export-expander-context (__make-class-slot-accessor gx#export-expander::t 'context)) (define gx#export-expander-phi @@ -280,8 +280,8 @@ (define gx#import-export-expander? (__make-class-predicate gx#import-export-expander::t)) (define gx#make-import-export-expander - (lambda _%$args128942%_ - (apply make-instance gx#import-export-expander::t _%$args128942%_))) + (lambda _%$args129048%_ + (apply make-instance gx#import-export-expander::t _%$args129048%_))) (define gx#import-export-expander-context (__make-class-slot-accessor gx#import-export-expander::t 'context)) (define gx#import-export-expander-phi @@ -316,251 +316,251 @@ (define gx#current-module-reader-args (make-parameter '#f)) (define gx#source-file-settings '(char-encoding: UTF-8 eol-encoding: lf)) (define gx#call-with-input-source-file - (lambda (_%path128939%_ _%fun128940%_) + (lambda (_%path129045%_ _%fun129046%_) (call-with-input-file - (cons 'path: (cons _%path128939%_ gx#source-file-settings)) - _%fun128940%_))) + (cons 'path: (cons _%path129045%_ gx#source-file-settings)) + _%fun129046%_))) (define gx#module-context:::init! - (lambda (_%self125391128920%_ - _%id128922%_ - _%super128923%_ - _%ns128924%_ - _%path128925%_) - (let* ((_%self128927%_ _%self125391128920%_) - (_%self128929%_ _%self128927%_)) - (if (##fx< '11 (##structure-length _%self128929%_)) + (lambda (_%self125497129026%_ + _%id129028%_ + _%super129029%_ + _%ns129030%_ + _%path129031%_) + (let* ((_%self129033%_ _%self125497129026%_) + (_%self129035%_ _%self129033%_)) + (if (##fx< '11 (##structure-length _%self129035%_)) (begin (##unchecked-structure-set! - _%self128929%_ - _%id128922%_ + _%self129035%_ + _%id129028%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128929%_ + _%self129035%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128929%_ - _%super128923%_ + _%self129035%_ + _%super129029%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128929%_ - _%ns128924%_ + _%self129035%_ + _%ns129030%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128929%_ - _%path128925%_ + _%self129035%_ + _%path129031%_ '7 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '() '8 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '() '9 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '#f '10 '#f '#f) - (##unchecked-structure-set! _%self128929%_ '#f '11 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '() '8 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '() '9 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '#f '10 '#f '#f) + (##unchecked-structure-set! _%self129035%_ '#f '11 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128929%_ + _%self129035%_ '11 - (##vector-length _%self128929%_)))))) + (##vector-length _%self129035%_)))))) (__bind-method!__% gx#module-context::t ':init! gx#module-context:::init! '#f) (define gx#prelude-context:::init!__% - (lambda (_%self125392128751%_ _%ctx128753%_ _%root128754%_) - (let* ((_%self128756%_ _%self125392128751%_) - (_%self128758%_ _%self128756%_) - (_%super128774%_ - (let ((_%$e128768%_ _%root128754%_)) - (if _%$e128768%_ - _%$e128768%_ - (let ((_%$e128771%_ (gx#core-context-root__0))) - (if _%$e128771%_ - _%$e128771%_ - (let ((__obj129004 + (lambda (_%self125498128857%_ _%ctx128859%_ _%root128860%_) + (let* ((_%self128862%_ _%self125498128857%_) + (_%self128864%_ _%self128862%_) + (_%super128880%_ + (let ((_%$e128874%_ _%root128860%_)) + (if _%$e128874%_ + _%$e128874%_ + (let ((_%$e128877%_ (gx#core-context-root__0))) + (if _%$e128877%_ + _%$e128877%_ + (let ((__obj129110 (##structure gx#root-context::t '#f '#f))) - (let ((__constructor129005 + (let ((__constructor129111 (direct-method-ref gx#root-context::t - __obj129004 + __obj129110 ':init!))) - (if __constructor129005 - (__constructor129005 __obj129004) + (if __constructor129111 + (__constructor129111 __obj129110) (error '"missing constructor method implementation" 'class: gx#root-context::t 'method: ':init!))) - __obj129004))))))) - (if _%ctx128753%_ - (let ((_%id128777%_ + __obj129110))))))) + (if _%ctx128859%_ + (let ((_%id128883%_ (##structure-ref - _%ctx128753%_ + _%ctx128859%_ '1 gx#expander-context::t '#f)) - (_%path128778%_ + (_%path128884%_ (##structure-ref - _%ctx128753%_ + _%ctx128859%_ '7 gx#module-context::t '#f)) - (_%in128779%_ + (_%in128885%_ (map gx#core-module-export->import (##structure-ref - _%ctx128753%_ + _%ctx128859%_ '9 gx#module-context::t '#f))) - (_%e128780%_ + (_%e128886%_ (__make-promise - (lambda () (gx#eval-module _%ctx128753%_))))) - (if (##fx< '8 (##structure-length _%self128758%_)) + (lambda () (gx#eval-module _%ctx128859%_))))) + (if (##fx< '8 (##structure-length _%self128864%_)) (begin (##unchecked-structure-set! - _%self128758%_ - _%id128777%_ + _%self128864%_ + _%id128883%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - (make-hash-table-eq 'size: (##length _%in128779%_)) + _%self128864%_ + (make-hash-table-eq 'size: (##length _%in128885%_)) '2 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - _%super128774%_ + _%self128864%_ + _%super128880%_ '3 '#f '#f) (##unchecked-structure-set! - _%self128758%_ + _%self128864%_ '#f '4 '#f '#f) (##unchecked-structure-set! - _%self128758%_ + _%self128864%_ '#f '5 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - _%path128778%_ + _%self128864%_ + _%path128884%_ '6 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - _%in128779%_ + _%self128864%_ + _%in128885%_ '7 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - _%e128780%_ + _%self128864%_ + _%e128886%_ '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128758%_ + _%self128864%_ '8 - (##vector-length _%self128758%_))) + (##vector-length _%self128864%_))) (##for-each - (lambda (_%g128781128783%_) + (lambda (_%g128887128889%_) (gx#core-bind-weak-import!__% - _%g128781128783%_ - _%self128758%_)) - _%in128779%_)) - (if (##fx< '8 (##structure-length _%self128758%_)) + _%g128887128889%_ + _%self128864%_)) + _%in128885%_)) + (if (##fx< '8 (##structure-length _%self128864%_)) (begin - (##unchecked-structure-set! _%self128758%_ '#f '1 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '#f '1 '#f '#f) (##unchecked-structure-set! - _%self128758%_ + _%self128864%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self128758%_ - _%super128774%_ + _%self128864%_ + _%super128880%_ '3 '#f '#f) - (##unchecked-structure-set! _%self128758%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self128758%_ '#f '5 '#f '#f) - (##unchecked-structure-set! _%self128758%_ '#f '6 '#f '#f) - (##unchecked-structure-set! _%self128758%_ '() '7 '#f '#f) - (##unchecked-structure-set! _%self128758%_ '#f '8 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '#f '6 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '() '7 '#f '#f) + (##unchecked-structure-set! _%self128864%_ '#f '8 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128758%_ + _%self128864%_ '8 - (##vector-length _%self128758%_))))))) + (##vector-length _%self128864%_))))))) (define gx#prelude-context:::init!__0 - (lambda (_%self125392128789%_ _%ctx128790%_) - (let ((_%root128792%_ '#f)) + (lambda (_%self125498128895%_ _%ctx128896%_) + (let ((_%root128898%_ '#f)) (gx#prelude-context:::init!__% - _%self125392128789%_ - _%ctx128790%_ - _%root128792%_)))) + _%self125498128895%_ + _%ctx128896%_ + _%root128898%_)))) (define gx#prelude-context:::init! - (lambda _g129011_ - (let ((_g129010_ (##length _g129011_))) - (cond ((##fx= _g129010_ 2) - (apply gx#prelude-context:::init!__0 _g129011_)) - ((##fx= _g129010_ 3) - (apply gx#prelude-context:::init!__% _g129011_)) + (lambda _g129117_ + (let ((_g129116_ (##length _g129117_))) + (cond ((##fx= _g129116_ 2) + (apply gx#prelude-context:::init!__0 _g129117_)) + ((##fx= _g129116_ 3) + (apply gx#prelude-context:::init!__% _g129117_)) (else (##raise-wrong-number-of-arguments-exception gx#prelude-context:::init! - _g129011_)))))) + _g129117_)))))) (__bind-method!__% gx#prelude-context::t ':init! gx#prelude-context:::init! '#f) (define gx#import-export-expander-init! - (lambda (_%self128625%_ _%e128626%_) - (if (##fx< '3 (##structure-length _%self128625%_)) + (lambda (_%self128731%_ _%e128732%_) + (if (##fx< '3 (##structure-length _%self128731%_)) (begin (##unchecked-structure-set! - _%self128625%_ - _%e128626%_ + _%self128731%_ + _%e128732%_ '1 '#f '#f) (##unchecked-structure-set! - _%self128625%_ + _%self128731%_ (gx#current-expander-context) '2 '#f '#f) (##unchecked-structure-set! - _%self128625%_ + _%self128731%_ (##fx- (gx#current-expander-phi) '1) '3 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self128625%_ + _%self128731%_ '3 - (##vector-length _%self128625%_))))) + (##vector-length _%self128731%_))))) (define gx#import-expander:::init! gx#import-export-expander-init!) (__bind-method!__% gx#import-expander::t @@ -580,10 +580,10 @@ gx#import-export-expander:::init! '#f) (define gx#import-expander::apply-import-expander - (lambda (_%g128251128254%_ _%g128252128256%_) + (lambda (_%g128357128360%_ _%g128358128362%_) (gx#core-apply-user-expander__% - _%g128251128254%_ - _%g128252128256%_ + _%g128357128360%_ + _%g128358128362%_ 'apply-import-expander))) (__bind-method!__% gx#import-expander::t @@ -591,10 +591,10 @@ gx#import-expander::apply-import-expander '#f) (define gx#export-expander::apply-export-expander - (lambda (_%g128122128125%_ _%g128123128127%_) + (lambda (_%g128228128231%_ _%g128229128233%_) (gx#core-apply-user-expander__% - _%g128122128125%_ - _%g128123128127%_ + _%g128228128231%_ + _%g128229128233%_ 'apply-export-expander))) (__bind-method!__% gx#export-expander::t @@ -602,113 +602,113 @@ gx#export-expander::apply-export-expander '#f) (define gx#module-source-path - (lambda (_%ctx127993%_) - (let* ((_%path127995%_ - (##structure-ref _%ctx127993%_ '7 gx#module-context::t '#f)) - (_%path127997%_ - (if (pair? _%path127995%_) - (##last _%path127995%_) - _%path127995%_))) - (if (string? _%path127997%_) _%path127997%_ '#f)))) + (lambda (_%ctx128099%_) + (let* ((_%path128101%_ + (##structure-ref _%ctx128099%_ '7 gx#module-context::t '#f)) + (_%path128103%_ + (if (pair? _%path128101%_) + (##last _%path128101%_) + _%path128101%_))) + (if (string? _%path128103%_) _%path128103%_ '#f)))) (define gx#import-module__% - (lambda (_%path127969%_ _%reload?127970%_ _%eval?127971%_) - (let ((_%ctx127973%_ + (lambda (_%path128075%_ _%reload?128076%_ _%eval?128077%_) + (let ((_%ctx128079%_ ((gx#current-expander-module-import) - _%path127969%_ - _%reload?127970%_))) - (if (and _%ctx127973%_ _%eval?127971%_) - (gx#eval-module _%ctx127973%_) + _%path128075%_ + _%reload?128076%_))) + (if (and _%ctx128079%_ _%eval?128077%_) + (gx#eval-module _%ctx128079%_) '#!void) - _%ctx127973%_))) + _%ctx128079%_))) (define gx#import-module__0 - (lambda (_%path127978%_) - (let* ((_%reload?127980%_ '#f) (_%eval?127982%_ '#f)) + (lambda (_%path128084%_) + (let* ((_%reload?128086%_ '#f) (_%eval?128088%_ '#f)) (gx#import-module__% - _%path127978%_ - _%reload?127980%_ - _%eval?127982%_)))) + _%path128084%_ + _%reload?128086%_ + _%eval?128088%_)))) (define gx#import-module__1 - (lambda (_%path127984%_ _%reload?127985%_) - (let ((_%eval?127987%_ '#f)) + (lambda (_%path128090%_ _%reload?128091%_) + (let ((_%eval?128093%_ '#f)) (gx#import-module__% - _%path127984%_ - _%reload?127985%_ - _%eval?127987%_)))) + _%path128090%_ + _%reload?128091%_ + _%eval?128093%_)))) (define gx#import-module - (lambda _g129013_ - (let ((_g129012_ (##length _g129013_))) - (cond ((##fx= _g129012_ 1) (apply gx#import-module__0 _g129013_)) - ((##fx= _g129012_ 2) (apply gx#import-module__1 _g129013_)) - ((##fx= _g129012_ 3) (apply gx#import-module__% _g129013_)) + (lambda _g129119_ + (let ((_g129118_ (##length _g129119_))) + (cond ((##fx= _g129118_ 1) (apply gx#import-module__0 _g129119_)) + ((##fx= _g129118_ 2) (apply gx#import-module__1 _g129119_)) + ((##fx= _g129118_ 3) (apply gx#import-module__% _g129119_)) (else (##raise-wrong-number-of-arguments-exception gx#import-module - _g129013_)))))) + _g129119_)))))) (define gx#eval-module - (lambda (_%mod127966%_) - ((gx#current-expander-module-eval) _%mod127966%_))) + (lambda (_%mod128072%_) + ((gx#current-expander-module-eval) _%mod128072%_))) (define gx#core-eval-module - (lambda (_%obj127946%_) - (letrec ((_%force-e127948%_ - (lambda (_%getf127962%_ _%e127963%_) + (lambda (_%obj128052%_) + (letrec ((_%force-e128054%_ + (lambda (_%getf128068%_ _%e128069%_) (__call-with-parameters - (lambda () (force (_%getf127962%_ _%e127963%_))) + (lambda () (force (_%getf128068%_ _%e128069%_))) gx#current-expander-context - _%e127963%_ + _%e128069%_ gx#current-expander-phi '0)))) - (let _%recur127950%_ ((_%e127952%_ _%obj127946%_)) - (if (##structure-instance-of? _%e127952%_ 'gx#module-context::t) + (let _%recur128056%_ ((_%e128058%_ _%obj128052%_)) + (if (##structure-instance-of? _%e128058%_ 'gx#module-context::t) (let () - (let ((_%$e127955%_ - (gx#core-context-prelude__% _%e127952%_))) - (if _%$e127955%_ (_%recur127950%_ _%$e127955%_) '#!void)) - (_%force-e127948%_ gx#module-context-e _%e127952%_)) + (let ((_%$e128061%_ + (gx#core-context-prelude__% _%e128058%_))) + (if _%$e128061%_ (_%recur128056%_ _%$e128061%_) '#!void)) + (_%force-e128054%_ gx#module-context-e _%e128058%_)) (if (##structure-instance-of? - _%e127952%_ + _%e128058%_ 'gx#prelude-context::t) - (_%force-e127948%_ gx#prelude-context-e _%e127952%_) - (if (gx#stx-string? _%e127952%_) - (_%recur127950%_ + (_%force-e128054%_ gx#prelude-context-e _%e128058%_) + (if (gx#stx-string? _%e128058%_) + (_%recur128056%_ (gx#import-module__0 - (gx#core-resolve-module-path__0 _%e127952%_))) - (if (gx#core-library-module-path? _%e127952%_) - (_%recur127950%_ + (gx#core-resolve-module-path__0 _%e128058%_))) + (if (gx#core-library-module-path? _%e128058%_) + (_%recur128056%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%e127952%_))) - (error '"cannot eval module" _%obj127946%_))))))))) + _%e128058%_))) + (error '"cannot eval module" _%obj128052%_))))))))) (define gx#core-context-prelude__% - (lambda (_%ctx127926%_) - (let _%lp127928%_ ((_%e127930%_ _%ctx127926%_)) - (if (or (##structure-instance-of? _%e127930%_ 'gx#module-context::t) - (##structure-instance-of? _%e127930%_ 'gx#local-context::t)) - (_%lp127928%_ (##unchecked-structure-ref _%e127930%_ '3 '#f '#f)) - (if (##structure-instance-of? _%e127930%_ 'gx#prelude-context::t) - _%e127930%_ + (lambda (_%ctx128032%_) + (let _%lp128034%_ ((_%e128036%_ _%ctx128032%_)) + (if (or (##structure-instance-of? _%e128036%_ 'gx#module-context::t) + (##structure-instance-of? _%e128036%_ 'gx#local-context::t)) + (_%lp128034%_ (##unchecked-structure-ref _%e128036%_ '3 '#f '#f)) + (if (##structure-instance-of? _%e128036%_ 'gx#prelude-context::t) + _%e128036%_ '#f))))) (define gx#core-context-prelude__0 (lambda () - (let ((_%ctx127942%_ (gx#current-expander-context))) - (gx#core-context-prelude__% _%ctx127942%_)))) + (let ((_%ctx128048%_ (gx#current-expander-context))) + (gx#core-context-prelude__% _%ctx128048%_)))) (define gx#core-context-prelude - (lambda _g129015_ - (let ((_g129014_ (##length _g129015_))) - (cond ((##fx= _g129014_ 0) - (apply gx#core-context-prelude__0 _g129015_)) - ((##fx= _g129014_ 1) - (apply gx#core-context-prelude__% _g129015_)) + (lambda _g129121_ + (let ((_g129120_ (##length _g129121_))) + (cond ((##fx= _g129120_ 0) + (apply gx#core-context-prelude__0 _g129121_)) + ((##fx= _g129120_ 1) + (apply gx#core-context-prelude__% _g129121_)) (else (##raise-wrong-number-of-arguments-exception gx#core-context-prelude - _g129015_)))))) + _g129121_)))))) (define gx#core-module->prelude-context - (lambda (_%ctx127917%_) - (let ((_%$e127919%_ (__hash-get gx#__module-registry _%ctx127917%_))) - (if _%$e127919%_ - _%$e127919%_ - (let ((_%pre127923%_ - (let ((__obj129006 + (lambda (_%ctx128023%_) + (let ((_%$e128025%_ (__hash-get gx#__module-registry _%ctx128023%_))) + (if _%$e128025%_ + _%$e128025%_ + (let ((_%pre128029%_ + (let ((__obj129112 (##structure gx#prelude-context::t '#f @@ -720,52 +720,52 @@ '#f '#f))) (gx#prelude-context:::init!__0 - __obj129006 - _%ctx127917%_) - __obj129006))) - (__hash-put! gx#__module-registry _%ctx127917%_ _%pre127923%_) - _%pre127923%_))))) + __obj129112 + _%ctx128023%_) + __obj129112))) + (__hash-put! gx#__module-registry _%ctx128023%_ _%pre128029%_) + _%pre128029%_))))) (define gx#core-import-module__% - (lambda (_%rpath127789%_ _%reload?127790%_) - (letrec ((_%import-source127792%_ - (lambda (_%path127881%_) - (if (member _%path127881%_ (gx#current-expander-path)) - (error '"Cyclic expansion" _%path127881%_) + (lambda (_%rpath127895%_ _%reload?127896%_) + (letrec ((_%import-source127898%_ + (lambda (_%path127987%_) + (if (member _%path127987%_ (gx#current-expander-path)) + (error '"Cyclic expansion" _%path127987%_) '#!void) (__call-with-parameters (lambda () - (let ((_g129016_ (gx#core-read-module _%path127881%_))) + (let ((_g129122_ (gx#core-read-module _%path127987%_))) (begin - (let ((_g129017_ - (if (##values? _g129016_) - (##vector-length _g129016_) + (let ((_g129123_ + (if (##values? _g129122_) + (##values-length _g129122_) 1))) - (if (not (##fx= _g129017_ 4)) - (error "Context expects 4 values" _g129017_))) - (let ((_%pre127884%_ (##vector-ref _g129016_ 0)) - (_%id127885%_ (##vector-ref _g129016_ 1)) - (_%ns127886%_ (##vector-ref _g129016_ 2)) - (_%body127887%_ (##vector-ref _g129016_ 3))) - (let* ((_%prelude127897%_ + (if (not (##fx= _g129123_ 4)) + (error "Context expects 4 values" _g129123_))) + (let ((_%pre127990%_ (##values-ref _g129122_ 0)) + (_%id127991%_ (##values-ref _g129122_ 1)) + (_%ns127992%_ (##values-ref _g129122_ 2)) + (_%body127993%_ (##values-ref _g129122_ 3))) + (let* ((_%prelude128003%_ (if (##structure-instance-of? - _%pre127884%_ + _%pre127990%_ 'gx#prelude-context::t) - _%pre127884%_ + _%pre127990%_ (if (##structure-instance-of? - _%pre127884%_ + _%pre127990%_ 'gx#module-context::t) (gx#core-module->prelude-context - _%pre127884%_) - (if (string? _%pre127884%_) + _%pre127990%_) + (if (string? _%pre127990%_) (gx#core-module->prelude-context (gx#core-import-module__0 - _%pre127884%_)) - (if (not _%pre127884%_) - (let ((_%$e127893%_ + _%pre127990%_)) + (if (not _%pre127990%_) + (let ((_%$e127999%_ (gx#current-expander-module-prelude))) - (if _%$e127893%_ - _%$e127893%_ - (let ((__obj129007 + (if _%$e127999%_ + _%$e127999%_ + (let ((__obj129113 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##structure gx#prelude-context::t @@ -777,14 +777,14 @@ '#f '#f '#f))) - (gx#prelude-context:::init!__0 __obj129007 '#f) - __obj129007))) + (gx#prelude-context:::init!__0 __obj129113 '#f) + __obj129113))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error '"cannot import module; unknown prelude" - _%rpath127789%_ - _%pre127884%_)))))) - (_%ctx127899%_ - (let ((__obj129008 + _%rpath127895%_ + _%pre127990%_)))))) + (_%ctx128005%_ + (let ((__obj129114 (##structure gx#module-context::t '#f @@ -799,44 +799,44 @@ '#f '#f))) (gx#module-context:::init! - __obj129008 - _%id127885%_ - _%prelude127897%_ - _%ns127886%_ - _%path127881%_) - __obj129008)) - (_%body127901%_ + __obj129114 + _%id127991%_ + _%prelude128003%_ + _%ns127992%_ + _%path127987%_) + __obj129114)) + (_%body128007%_ (gx#core-expand-module-begin - _%body127887%_ - _%ctx127899%_)) - (_%body127903%_ + _%body127993%_ + _%ctx128005%_)) + (_%body128009%_ (gx#core-quote-syntax__% - (gx#core-cons '%#begin _%body127901%_) - _%path127881%_ - _%ctx127899%_ + (gx#core-cons '%#begin _%body128007%_) + _%path127987%_ + _%ctx128005%_ '()))) (##unchecked-structure-set! - _%ctx127899%_ + _%ctx128005%_ (__make-promise - (lambda () (gx#eval-syntax* _%body127903%_))) + (lambda () (gx#eval-syntax* _%body128009%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx127899%_ - _%body127903%_ + _%ctx128005%_ + _%body128009%_ '11 '#f '#f) (__hash-put! gx#__module-registry - _%path127881%_ - _%ctx127899%_) + _%path127987%_ + _%ctx128005%_) (__hash-put! gx#__module-registry - _%id127885%_ - _%ctx127899%_) - _%ctx127899%_))))) + _%id127991%_ + _%ctx128005%_) + _%ctx128005%_))))) gx#current-expander-context (gx#core-context-root__0) gx#current-expander-marks @@ -844,1327 +844,1327 @@ gx#current-expander-phi '0 gx#current-expander-path - (cons _%path127881%_ (gx#current-expander-path)) + (cons _%path127987%_ (gx#current-expander-path)) gx#current-import-expander-phi '#f gx#current-export-expander-phi '#f))) - (_%import-submodule127793%_ - (lambda (_%rpath127809%_) - (let* ((_%rpath127810127817%_ _%rpath127809%_) - (_%E127812127821%_ + (_%import-submodule127899%_ + (lambda (_%rpath127915%_) + (let* ((_%rpath127916127923%_ _%rpath127915%_) + (_%E127918127927%_ (lambda () (error '"No clause matching" - _%rpath127810127817%_ + _%rpath127916127923%_ '([origin . refs])) '#!void)) - (_%K127813127869%_ - (lambda (_%refs127824%_ _%origin127825%_) - (let ((_%ctx127827%_ - (if _%origin127825%_ + (_%K127919127975%_ + (lambda (_%refs127930%_ _%origin127931%_) + (let ((_%ctx127933%_ + (if _%origin127931%_ (gx#core-import-module__% - _%origin127825%_ - _%reload?127790%_) + _%origin127931%_ + _%reload?127896%_) (gx#current-expander-context)))) - (let _%lp127829%_ ((_%rest127831%_ - _%refs127824%_) - (_%ctx127832%_ - _%ctx127827%_)) - (let* ((_%rest127833127841%_ _%rest127831%_) - (_%else127835127849%_ - (lambda () _%ctx127832%_)) - (_%K127837127857%_ - (lambda (_%rest127852%_ _%id127853%_) - (let ((_%bind127855%_ + (let _%lp127935%_ ((_%rest127937%_ + _%refs127930%_) + (_%ctx127938%_ + _%ctx127933%_)) + (let* ((_%rest127939127947%_ _%rest127937%_) + (_%else127941127955%_ + (lambda () _%ctx127938%_)) + (_%K127943127963%_ + (lambda (_%rest127958%_ _%id127959%_) + (let ((_%bind127961%_ (gx#resolve-identifier__% - _%id127853%_ + _%id127959%_ '0 - _%ctx127832%_))) + _%ctx127938%_))) (if (and (##structure-direct-instance-of? - _%bind127855%_ + _%bind127961%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind127855%_ + _%bind127961%_ '4 '#f '#f) 'gx#module-context::t)) - (_%lp127829%_ - _%rest127852%_ + (_%lp127935%_ + _%rest127958%_ (##unchecked-structure-ref - _%bind127855%_ + _%bind127961%_ '4 '#f '#f)) (error '"cannot import submodule; not bound as a module" - _%rpath127809%_ - _%id127853%_ - _%bind127855%_)))))) - (if (pair? _%rest127833127841%_) - (let ((_%hd127838127860%_ - (##car _%rest127833127841%_)) - (_%tl127839127862%_ - (##cdr _%rest127833127841%_))) - (let* ((_%id127865%_ - _%hd127838127860%_) - (_%rest127867%_ - _%tl127839127862%_)) - (_%K127837127857%_ - _%rest127867%_ - _%id127865%_))) - (_%else127835127849%_)))))))) - (if (pair? _%rpath127810127817%_) - (let ((_%hd127814127872%_ - (##car _%rpath127810127817%_)) - (_%tl127815127874%_ - (##cdr _%rpath127810127817%_))) - (let* ((_%origin127877%_ _%hd127814127872%_) - (_%refs127879%_ _%tl127815127874%_)) - (_%K127813127869%_ - _%refs127879%_ - _%origin127877%_))) - (_%E127812127821%_)))))) - (let ((_%$e127795%_ - (if (not _%reload?127790%_) - (__hash-get gx#__module-registry _%rpath127789%_) + _%rpath127915%_ + _%id127959%_ + _%bind127961%_)))))) + (if (pair? _%rest127939127947%_) + (let ((_%hd127944127966%_ + (##car _%rest127939127947%_)) + (_%tl127945127968%_ + (##cdr _%rest127939127947%_))) + (let* ((_%id127971%_ + _%hd127944127966%_) + (_%rest127973%_ + _%tl127945127968%_)) + (_%K127943127963%_ + _%rest127973%_ + _%id127971%_))) + (_%else127941127955%_)))))))) + (if (pair? _%rpath127916127923%_) + (let ((_%hd127920127978%_ + (##car _%rpath127916127923%_)) + (_%tl127921127980%_ + (##cdr _%rpath127916127923%_))) + (let* ((_%origin127983%_ _%hd127920127978%_) + (_%refs127985%_ _%tl127921127980%_)) + (_%K127919127975%_ + _%refs127985%_ + _%origin127983%_))) + (_%E127918127927%_)))))) + (let ((_%$e127901%_ + (if (not _%reload?127896%_) + (__hash-get gx#__module-registry _%rpath127895%_) '#f))) - (if _%$e127795%_ - _%$e127795%_ - (if (list? _%rpath127789%_) - (_%import-submodule127793%_ _%rpath127789%_) - (if (gx#core-library-module-path? _%rpath127789%_) - (let ((_%ctx127800%_ + (if _%$e127901%_ + _%$e127901%_ + (if (list? _%rpath127895%_) + (_%import-submodule127899%_ _%rpath127895%_) + (if (gx#core-library-module-path? _%rpath127895%_) + (let ((_%ctx127906%_ (gx#core-import-module__% (gx#core-resolve-library-module-path - _%rpath127789%_) - _%reload?127790%_))) + _%rpath127895%_) + _%reload?127896%_))) (__hash-put! gx#__module-registry - _%rpath127789%_ - _%ctx127800%_) - _%ctx127800%_) - (let* ((_%npath127803%_ - (path-normalize _%rpath127789%_)) - (_%$e127805%_ - (if (not _%reload?127790%_) + _%rpath127895%_ + _%ctx127906%_) + _%ctx127906%_) + (let* ((_%npath127909%_ + (path-normalize _%rpath127895%_)) + (_%$e127911%_ + (if (not _%reload?127896%_) (__hash-get gx#__module-registry - _%npath127803%_) + _%npath127909%_) '#f))) - (if _%$e127805%_ - _%$e127805%_ - (_%import-source127792%_ - _%npath127803%_)))))))))) + (if _%$e127911%_ + _%$e127911%_ + (_%import-source127898%_ + _%npath127909%_)))))))))) (define gx#core-import-module__0 - (lambda (_%rpath127910%_) - (let ((_%reload?127912%_ '#f)) - (gx#core-import-module__% _%rpath127910%_ _%reload?127912%_)))) + (lambda (_%rpath128016%_) + (let ((_%reload?128018%_ '#f)) + (gx#core-import-module__% _%rpath128016%_ _%reload?128018%_)))) (define gx#core-import-module - (lambda _g129019_ - (let ((_g129018_ (##length _g129019_))) - (cond ((##fx= _g129018_ 1) - (apply gx#core-import-module__0 _g129019_)) - ((##fx= _g129018_ 2) - (apply gx#core-import-module__% _g129019_)) + (lambda _g129125_ + (let ((_g129124_ (##length _g129125_))) + (cond ((##fx= _g129124_ 1) + (apply gx#core-import-module__0 _g129125_)) + ((##fx= _g129124_ 2) + (apply gx#core-import-module__% _g129125_)) (else (##raise-wrong-number-of-arguments-exception gx#core-import-module - _g129019_)))))) + _g129125_)))))) (define gx#core-read-module - (lambda (_%path127778%_) + (lambda (_%path127884%_) (__with-catch - (lambda (_%exn127780%_) - (if (and (datum-parsing-exception? _%exn127780%_) - (eq? (datum-parsing-exception-filepos _%exn127780%_) '0)) - (gx#core-read-module/lang _%path127778%_) + (lambda (_%exn127886%_) + (if (and (datum-parsing-exception? _%exn127886%_) + (eq? (datum-parsing-exception-filepos _%exn127886%_) '0)) + (gx#core-read-module/lang _%path127884%_) (gx#raise-syntax-error 'read-module '"error reading module" - _%path127778%_ + _%path127884%_ (__call-with-parameters (lambda () (call-with-output-string '"" - (lambda (_%g127782127784%_) - (display-exception__% _%exn127780%_ _%g127782127784%_)))) + (lambda (_%g127888127890%_) + (display-exception__% _%exn127886%_ _%g127888127890%_)))) dump-stack-trace? '#f)))) - (lambda () (gx#core-read-module/sexp _%path127778%_))))) + (lambda () (gx#core-read-module/sexp _%path127884%_))))) (define gx#core-read-module/sexp - (lambda (_%path127630%_) - (let _%lp127632%_ ((_%body127634%_ - (read-syntax-from-file _%path127630%_)) - (_%pre127635%_ '#f) - (_%ns127636%_ '#f) - (_%pkg127637%_ '#f)) - (let* ((_%e127638127662%_ _%body127634%_) - (_%E127654127688%_ + (lambda (_%path127736%_) + (let _%lp127738%_ ((_%body127740%_ + (read-syntax-from-file _%path127736%_)) + (_%pre127741%_ '#f) + (_%ns127742%_ '#f) + (_%pkg127743%_ '#f)) + (let* ((_%e127744127768%_ _%body127740%_) + (_%E127760127794%_ (lambda () - (let ((_g129020_ - (if _%pkg127637%_ - (values _%pre127635%_ - _%ns127636%_ - _%pkg127637%_) + (let ((_g129126_ + (if _%pkg127743%_ + (values _%pre127741%_ + _%ns127742%_ + _%pkg127743%_) (gx#core-read-module-package - _%path127630%_ - _%pre127635%_ - _%ns127636%_)))) + _%path127736%_ + _%pre127741%_ + _%ns127742%_)))) (begin - (let ((_g129021_ - (if (##values? _g129020_) - (##vector-length _g129020_) + (let ((_g129127_ + (if (##values? _g129126_) + (##values-length _g129126_) 1))) - (if (not (##fx= _g129021_ 3)) - (error "Context expects 3 values" _g129021_))) - (let ((_%pre127666%_ (##vector-ref _g129020_ 0)) - (_%ns127667%_ (##vector-ref _g129020_ 1)) - (_%pkg127668%_ (##vector-ref _g129020_ 2))) - (let* ((_%prelude127674%_ + (if (not (##fx= _g129127_ 3)) + (error "Context expects 3 values" _g129127_))) + (let ((_%pre127772%_ (##values-ref _g129126_ 0)) + (_%ns127773%_ (##values-ref _g129126_ 1)) + (_%pkg127774%_ (##values-ref _g129126_ 2))) + (let* ((_%prelude127780%_ (if (gx#core-bound-module-prelude? - _%pre127666%_) - (gx#syntax-local-e__0 _%pre127666%_) + _%pre127772%_) + (gx#syntax-local-e__0 _%pre127772%_) (if (gx#core-library-module-path? - _%pre127666%_) + _%pre127772%_) (gx#core-resolve-library-module-path - _%pre127666%_) - (if (gx#stx-string? _%pre127666%_) + _%pre127772%_) + (if (gx#stx-string? _%pre127772%_) (gx#core-resolve-module-path__% - _%pre127666%_ - _%path127630%_) - (gx#stx-e _%pre127666%_))))) - (_%path-id127676%_ + _%pre127772%_ + _%path127736%_) + (gx#stx-e _%pre127772%_))))) + (_%path-id127782%_ (gx#core-module-path->namespace - _%path127630%_)) - (_%pkg-id127678%_ - (if _%pkg127668%_ + _%path127736%_)) + (_%pkg-id127784%_ + (if _%pkg127774%_ (##string-append - _%pkg127668%_ + _%pkg127774%_ '"/" - _%path-id127676%_) - _%path-id127676%_)) - (_%module-id127680%_ - (##string->symbol _%pkg-id127678%_)) - (_%module-ns127685%_ - (if (eq? _%ns127667%_ '#!void) + _%path-id127782%_) + _%path-id127782%_)) + (_%module-id127786%_ + (##string->symbol _%pkg-id127784%_)) + (_%module-ns127791%_ + (if (eq? _%ns127773%_ '#!void) '#f - (let ((_%$e127682%_ _%ns127667%_)) - (if _%$e127682%_ - _%$e127682%_ - _%pkg-id127678%_))))) - (values _%prelude127674%_ - _%module-id127680%_ - _%module-ns127685%_ - _%body127634%_))))))) - (_%E127647127720%_ + (let ((_%$e127788%_ _%ns127773%_)) + (if _%$e127788%_ + _%$e127788%_ + _%pkg-id127784%_))))) + (values _%prelude127780%_ + _%module-id127786%_ + _%module-ns127791%_ + _%body127740%_))))))) + (_%E127753127826%_ (lambda () - (if (gx#stx-pair? _%e127638127662%_) - (let ((_%e127655127692%_ - (gx#syntax-e _%e127638127662%_))) - (let ((_%hd127656127695%_ (##car _%e127655127692%_)) - (_%tl127657127697%_ (##cdr _%e127655127692%_))) - (if (eq? (gx#stx-e _%hd127656127695%_) 'package:) - (if (gx#stx-pair? _%tl127657127697%_) - (let ((_%e127658127700%_ - (gx#syntax-e _%tl127657127697%_))) - (let ((_%hd127659127703%_ - (##car _%e127658127700%_)) - (_%tl127660127705%_ - (##cdr _%e127658127700%_))) - (let* ((_%pkg127708%_ - _%hd127659127703%_) - (_%rest127710%_ - _%tl127660127705%_) - (_%pkg127718%_ + (if (gx#stx-pair? _%e127744127768%_) + (let ((_%e127761127798%_ + (gx#syntax-e _%e127744127768%_))) + (let ((_%hd127762127801%_ (##car _%e127761127798%_)) + (_%tl127763127803%_ (##cdr _%e127761127798%_))) + (if (eq? (gx#stx-e _%hd127762127801%_) 'package:) + (if (gx#stx-pair? _%tl127763127803%_) + (let ((_%e127764127806%_ + (gx#syntax-e _%tl127763127803%_))) + (let ((_%hd127765127809%_ + (##car _%e127764127806%_)) + (_%tl127766127811%_ + (##cdr _%e127764127806%_))) + (let* ((_%pkg127814%_ + _%hd127765127809%_) + (_%rest127816%_ + _%tl127766127811%_) + (_%pkg127824%_ (if (gx#identifier? - _%pkg127708%_) + _%pkg127814%_) (symbol->string - (gx#stx-e _%pkg127708%_)) + (gx#stx-e _%pkg127814%_)) (if (or (gx#stx-string? - _%pkg127708%_) + _%pkg127814%_) (gx#stx-false? - _%pkg127708%_)) + _%pkg127814%_)) (gx#stx-e - _%pkg127708%_) + _%pkg127814%_) (gx#raise-syntax-error 'import '"Bad syntax; Illegal package name" - _%pkg127708%_))))) - (_%lp127632%_ - _%rest127710%_ - _%pre127635%_ - _%ns127636%_ - _%pkg127718%_)))) - (_%E127654127688%_)) - (_%E127654127688%_)))) - (_%E127654127688%_)))) - (_%E127640127750%_ + _%pkg127814%_))))) + (_%lp127738%_ + _%rest127816%_ + _%pre127741%_ + _%ns127742%_ + _%pkg127824%_)))) + (_%E127760127794%_)) + (_%E127760127794%_)))) + (_%E127760127794%_)))) + (_%E127746127856%_ (lambda () - (if (gx#stx-pair? _%e127638127662%_) - (let ((_%e127648127724%_ - (gx#syntax-e _%e127638127662%_))) - (let ((_%hd127649127727%_ (##car _%e127648127724%_)) - (_%tl127650127729%_ (##cdr _%e127648127724%_))) - (if (eq? (gx#stx-e _%hd127649127727%_) 'namespace:) - (if (gx#stx-pair? _%tl127650127729%_) - (let ((_%e127651127732%_ - (gx#syntax-e _%tl127650127729%_))) - (let ((_%hd127652127735%_ - (##car _%e127651127732%_)) - (_%tl127653127737%_ - (##cdr _%e127651127732%_))) - (let* ((_%ns127740%_ - _%hd127652127735%_) - (_%rest127742%_ - _%tl127653127737%_) - (_%ns127748%_ + (if (gx#stx-pair? _%e127744127768%_) + (let ((_%e127754127830%_ + (gx#syntax-e _%e127744127768%_))) + (let ((_%hd127755127833%_ (##car _%e127754127830%_)) + (_%tl127756127835%_ (##cdr _%e127754127830%_))) + (if (eq? (gx#stx-e _%hd127755127833%_) 'namespace:) + (if (gx#stx-pair? _%tl127756127835%_) + (let ((_%e127757127838%_ + (gx#syntax-e _%tl127756127835%_))) + (let ((_%hd127758127841%_ + (##car _%e127757127838%_)) + (_%tl127759127843%_ + (##cdr _%e127757127838%_))) + (let* ((_%ns127846%_ + _%hd127758127841%_) + (_%rest127848%_ + _%tl127759127843%_) + (_%ns127854%_ (if (gx#identifier? - _%ns127740%_) + _%ns127846%_) (symbol->string - (gx#stx-e _%ns127740%_)) + (gx#stx-e _%ns127846%_)) (if (gx#stx-string? - _%ns127740%_) - (gx#stx-e _%ns127740%_) + _%ns127846%_) + (gx#stx-e _%ns127846%_) (if (gx#stx-false? - _%ns127740%_) + _%ns127846%_) '#!void (gx#raise-syntax-error 'import '"Bad syntax; illegal namespace" - _%ns127740%_)))))) - (_%lp127632%_ - _%rest127742%_ - _%pre127635%_ - _%ns127748%_ - _%pkg127637%_)))) - (_%E127647127720%_)) - (_%E127647127720%_)))) - (_%E127647127720%_)))) - (_%E127639127774%_ + _%ns127846%_)))))) + (_%lp127738%_ + _%rest127848%_ + _%pre127741%_ + _%ns127854%_ + _%pkg127743%_)))) + (_%E127753127826%_)) + (_%E127753127826%_)))) + (_%E127753127826%_)))) + (_%E127745127880%_ (lambda () - (if (gx#stx-pair? _%e127638127662%_) - (let ((_%e127641127754%_ - (gx#syntax-e _%e127638127662%_))) - (let ((_%hd127642127757%_ (##car _%e127641127754%_)) - (_%tl127643127759%_ (##cdr _%e127641127754%_))) - (if (eq? (gx#stx-e _%hd127642127757%_) 'prelude:) - (if (gx#stx-pair? _%tl127643127759%_) - (let ((_%e127644127762%_ - (gx#syntax-e _%tl127643127759%_))) - (let ((_%hd127645127765%_ - (##car _%e127644127762%_)) - (_%tl127646127767%_ - (##cdr _%e127644127762%_))) - (let* ((_%prelude127770%_ - _%hd127645127765%_) - (_%rest127772%_ - _%tl127646127767%_)) - (_%lp127632%_ - _%rest127772%_ - _%prelude127770%_ - _%ns127636%_ - _%pkg127637%_)))) - (_%E127640127750%_)) - (_%E127640127750%_)))) - (_%E127640127750%_))))) - (_%E127639127774%_))))) + (if (gx#stx-pair? _%e127744127768%_) + (let ((_%e127747127860%_ + (gx#syntax-e _%e127744127768%_))) + (let ((_%hd127748127863%_ (##car _%e127747127860%_)) + (_%tl127749127865%_ (##cdr _%e127747127860%_))) + (if (eq? (gx#stx-e _%hd127748127863%_) 'prelude:) + (if (gx#stx-pair? _%tl127749127865%_) + (let ((_%e127750127868%_ + (gx#syntax-e _%tl127749127865%_))) + (let ((_%hd127751127871%_ + (##car _%e127750127868%_)) + (_%tl127752127873%_ + (##cdr _%e127750127868%_))) + (let* ((_%prelude127876%_ + _%hd127751127871%_) + (_%rest127878%_ + _%tl127752127873%_)) + (_%lp127738%_ + _%rest127878%_ + _%prelude127876%_ + _%ns127742%_ + _%pkg127743%_)))) + (_%E127746127856%_)) + (_%E127746127856%_)))) + (_%E127746127856%_))))) + (_%E127745127880%_))))) (define gx#core-read-module/lang - (lambda (_%path127452%_) - (letrec ((_%default-read-module-body127454%_ - (lambda (_%inp127622%_) - (let _%lp127624%_ ((_%body127626%_ '())) - (let ((_%next127628%_ (read-syntax__% _%inp127622%_))) - (if (eof-object? _%next127628%_) - (reverse _%body127626%_) - (_%lp127624%_ - (cons _%next127628%_ _%body127626%_))))))) - (_%read-body127455%_ - (lambda (_%inp127540%_ - _%pre127541%_ - _%ns127542%_ - _%pkg127543%_ - _%args127544%_) - (let ((_g129022_ - (if _%pkg127543%_ - (values _%pre127541%_ - _%ns127542%_ - _%pkg127543%_) + (lambda (_%path127558%_) + (letrec ((_%default-read-module-body127560%_ + (lambda (_%inp127728%_) + (let _%lp127730%_ ((_%body127732%_ '())) + (let ((_%next127734%_ (read-syntax__% _%inp127728%_))) + (if (eof-object? _%next127734%_) + (reverse _%body127732%_) + (_%lp127730%_ + (cons _%next127734%_ _%body127732%_))))))) + (_%read-body127561%_ + (lambda (_%inp127646%_ + _%pre127647%_ + _%ns127648%_ + _%pkg127649%_ + _%args127650%_) + (let ((_g129128_ + (if _%pkg127649%_ + (values _%pre127647%_ + _%ns127648%_ + _%pkg127649%_) (gx#core-read-module-package - _%path127452%_ - _%pre127541%_ - _%ns127542%_)))) + _%path127558%_ + _%pre127647%_ + _%ns127648%_)))) (begin - (let ((_g129023_ - (if (##values? _g129022_) - (##vector-length _g129022_) + (let ((_g129129_ + (if (##values? _g129128_) + (##values-length _g129128_) 1))) - (if (not (##fx= _g129023_ 3)) - (error "Context expects 3 values" _g129023_))) - (let ((_%pre127546%_ (##vector-ref _g129022_ 0)) - (_%ns127547%_ (##vector-ref _g129022_ 1)) - (_%pkg127548%_ (##vector-ref _g129022_ 2))) - (let* ((_%prelude127550%_ - (gx#import-module__0 _%pre127546%_)) - (_%read-module-body127605%_ - (let ((_%$e127596%_ - (__find (lambda (_%e127551127553%_) - (let* ((_%g127555127565%_ - _%e127551127553%_) - (_%else127557127573%_ + (if (not (##fx= _g129129_ 3)) + (error "Context expects 3 values" _g129129_))) + (let ((_%pre127652%_ (##values-ref _g129128_ 0)) + (_%ns127653%_ (##values-ref _g129128_ 1)) + (_%pkg127654%_ (##values-ref _g129128_ 2))) + (let* ((_%prelude127656%_ + (gx#import-module__0 _%pre127652%_)) + (_%read-module-body127711%_ + (let ((_%$e127702%_ + (__find (lambda (_%e127657127659%_) + (let* ((_%g127661127671%_ + _%e127657127659%_) + (_%else127663127679%_ (lambda () '#f)) - (_%K127559127577%_ + (_%K127665127683%_ (lambda () '#t))) (if (##structure-direct-instance-of? - _%g127555127565%_ + _%g127661127671%_ 'gx#module-export::t) - (let* ((_%e127560127580%_ + (let* ((_%e127666127686%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (##unchecked-structure-ref - _%g127555127565%_ + _%g127661127671%_ '1 '#f '#f)) - (_%e127561127583%_ + (_%e127667127689%_ (##unchecked-structure-ref - _%g127555127565%_ + _%g127661127671%_ '2 '#f '#f)) - (_%e127562127586%_ + (_%e127668127692%_ (##unchecked-structure-ref - _%g127555127565%_ + _%g127661127671%_ '3 '#f '#f))) - (if (##eq? _%e127562127586%_ '1) - (let ((_%e127563127589%_ + (if (##eq? _%e127668127692%_ '1) + (let ((_%e127669127695%_ (##unchecked-structure-ref - _%g127555127565%_ + _%g127661127671%_ '4 '#f '#f))) - (if ((lambda (_%g127591127593%_) - (eq? _%g127591127593%_ 'read-module-body)) - _%e127563127589%_) - (_%K127559127577%_) - (_%else127557127573%_))) - (_%else127557127573%_))) - (_%else127557127573%_)))) + (if ((lambda (_%g127697127699%_) + (eq? _%g127697127699%_ 'read-module-body)) + _%e127669127695%_) + (_%K127665127683%_) + (_%else127663127679%_))) + (_%else127663127679%_))) + (_%else127663127679%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (##unchecked-structure-ref - _%prelude127550%_ + _%prelude127656%_ '9 '#f '#f)))) - (if _%$e127596%_ - ((lambda (_%xport127599%_) - (let ((_%proc127602%_ + (if _%$e127702%_ + ((lambda (_%xport127705%_) + (let ((_%proc127708%_ (__with-catch void (lambda () (gx#eval-syntax__0 (##structure-ref (gx#core-resolve-module-export - _%xport127599%_) + _%xport127705%_) '1 gx#binding::t '#f)))))) - (if (procedure? _%proc127602%_) - _%proc127602%_ + (if (procedure? _%proc127708%_) + _%proc127708%_ (gx#raise-syntax-error '#f '"Illegal #lang prelude; read-module-body is not a procedure" - _%path127452%_ - _%pre127546%_ - _%proc127602%_)))) - _%$e127596%_) - _%default-read-module-body127454%_))) - (_%path-id127607%_ + _%path127558%_ + _%pre127652%_ + _%proc127708%_)))) + _%$e127702%_) + _%default-read-module-body127560%_))) + (_%path-id127713%_ (gx#core-module-path->namespace - _%path127452%_)) - (_%pkg-id127609%_ - (if _%pkg127548%_ + _%path127558%_)) + (_%pkg-id127715%_ + (if _%pkg127654%_ (##string-append - _%pkg127548%_ + _%pkg127654%_ '"/" - _%path-id127607%_) - _%path-id127607%_)) - (_%module-id127611%_ - (##string->symbol _%pkg-id127609%_)) - (_%module-ns127616%_ - (let ((_%$e127613%_ _%ns127547%_)) - (if _%$e127613%_ - _%$e127613%_ - _%pkg-id127609%_))) - (_%body127619%_ + _%path-id127713%_) + _%path-id127713%_)) + (_%module-id127717%_ + (##string->symbol _%pkg-id127715%_)) + (_%module-ns127722%_ + (let ((_%$e127719%_ _%ns127653%_)) + (if _%$e127719%_ + _%$e127719%_ + _%pkg-id127715%_))) + (_%body127725%_ (__call-with-parameters (lambda () - (_%read-module-body127605%_ - _%inp127540%_)) + (_%read-module-body127711%_ + _%inp127646%_)) gx#current-module-reader-path - _%path127452%_ + _%path127558%_ gx#current-module-reader-args - _%args127544%_))) - (values _%prelude127550%_ - _%module-id127611%_ - _%module-ns127616%_ - _%body127619%_))))))) - (_%string-e127456%_ - (lambda (_%obj127534%_ _%what127535%_) - (if (string? _%obj127534%_) - _%obj127534%_ - (if (symbol? _%obj127534%_) - (##symbol->string _%obj127534%_) + _%args127650%_))) + (values _%prelude127656%_ + _%module-id127717%_ + _%module-ns127722%_ + _%body127725%_))))))) + (_%string-e127562%_ + (lambda (_%obj127640%_ _%what127641%_) + (if (string? _%obj127640%_) + _%obj127640%_ + (if (symbol? _%obj127640%_) + (##symbol->string _%obj127640%_) (gx#raise-syntax-error '#f - (string-append '"Illegal module " _%what127535%_) - _%path127452%_ - _%obj127534%_))))) - (_%read-lang-args127457%_ - (lambda (_%inp127489%_ _%args127490%_) - (let* ((_%args127491127499%_ _%args127490%_) - (_%else127493127507%_ + (string-append '"Illegal module " _%what127641%_) + _%path127558%_ + _%obj127640%_))))) + (_%read-lang-args127563%_ + (lambda (_%inp127595%_ _%args127596%_) + (let* ((_%args127597127605%_ _%args127596%_) + (_%else127599127613%_ (lambda () (gx#raise-syntax-error '#f '"Illegal #lang arguments; missing prelude" - _%path127452%_))) - (_%K127495127522%_ - (lambda (_%args127510%_ _%prelude127511%_) - (let* ((_%pkg127513%_ - (pgetq__0 'package: _%args127510%_)) - (_%pkg127515%_ - (if _%pkg127513%_ - (_%string-e127456%_ - _%pkg127513%_ + _%path127558%_))) + (_%K127601127628%_ + (lambda (_%args127616%_ _%prelude127617%_) + (let* ((_%pkg127619%_ + (pgetq__0 'package: _%args127616%_)) + (_%pkg127621%_ + (if _%pkg127619%_ + (_%string-e127562%_ + _%pkg127619%_ '"package") '#f)) - (_%ns127517%_ - (pgetq__0 'namespace: _%args127510%_)) - (_%ns127519%_ - (if _%ns127517%_ - (_%string-e127456%_ - _%ns127517%_ + (_%ns127623%_ + (pgetq__0 'namespace: _%args127616%_)) + (_%ns127625%_ + (if _%ns127623%_ + (_%string-e127562%_ + _%ns127623%_ '"namespace") '#f))) - (_%read-body127455%_ - _%inp127489%_ - _%prelude127511%_ - _%ns127519%_ - _%pkg127515%_ - _%args127510%_))))) - (if (pair? _%args127491127499%_) - (let ((_%hd127496127525%_ - (##car _%args127491127499%_)) - (_%tl127497127527%_ - (##cdr _%args127491127499%_))) - (let* ((_%prelude127530%_ _%hd127496127525%_) - (_%args127532%_ _%tl127497127527%_)) - (_%K127495127522%_ - _%args127532%_ - _%prelude127530%_))) - (_%else127493127507%_))))) - (_%read-lang127458%_ - (lambda (_%inp127463%_) - (let* ((_%head127465%_ (read-line _%inp127463%_)) - (_%$e127467%_ - (string-index__0 _%head127465%_ '#\space))) - (if _%$e127467%_ - ((lambda (_%ix127470%_) - (let ((_%lang127472%_ + (_%read-body127561%_ + _%inp127595%_ + _%prelude127617%_ + _%ns127625%_ + _%pkg127621%_ + _%args127616%_))))) + (if (pair? _%args127597127605%_) + (let ((_%hd127602127631%_ + (##car _%args127597127605%_)) + (_%tl127603127633%_ + (##cdr _%args127597127605%_))) + (let* ((_%prelude127636%_ _%hd127602127631%_) + (_%args127638%_ _%tl127603127633%_)) + (_%K127601127628%_ + _%args127638%_ + _%prelude127636%_))) + (_%else127599127613%_))))) + (_%read-lang127564%_ + (lambda (_%inp127569%_) + (let* ((_%head127571%_ (read-line _%inp127569%_)) + (_%$e127573%_ + (string-index__0 _%head127571%_ '#\space))) + (if _%$e127573%_ + ((lambda (_%ix127576%_) + (let ((_%lang127578%_ (substring - _%head127465%_ + _%head127571%_ '0 - _%ix127470%_))) - (if (equal? _%lang127472%_ '"#lang") - (let* ((_%rest127474%_ + _%ix127576%_))) + (if (equal? _%lang127578%_ '"#lang") + (let* ((_%rest127580%_ (substring - _%head127465%_ - (##fx+ _%ix127470%_ '1) - (string-length _%head127465%_))) - (_%args127485%_ + _%head127571%_ + (##fx+ _%ix127576%_ '1) + (string-length _%head127571%_))) + (_%args127591%_ (__with-catch - (lambda (_%g127475127477%_) + (lambda (_%g127581127583%_) (gx#raise-syntax-error '#f '"Illegal #lang arguments" - _%path127452%_ - _%g127475127477%_)) + _%path127558%_ + _%g127581127583%_)) (lambda () (call-with-input-string - _%rest127474%_ - (lambda (_%g127480127482%_) + _%rest127580%_ + (lambda (_%g127586127588%_) (read-all - _%g127480127482%_ + _%g127586127588%_ read))))))) - (_%read-lang-args127457%_ - _%inp127463%_ - _%args127485%_)) + (_%read-lang-args127563%_ + _%inp127569%_ + _%args127591%_)) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127452%_)))) - _%$e127467%_) + _%path127558%_)))) + _%$e127573%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127452%_))))) - (_%read-e127459%_ - (lambda (_%inp127461%_) - (if (eq? (peek-char _%inp127461%_) '#\#) - (_%read-lang127458%_ _%inp127461%_) + _%path127558%_))))) + (_%read-e127565%_ + (lambda (_%inp127567%_) + (if (eq? (peek-char _%inp127567%_) '#\#) + (_%read-lang127564%_ _%inp127567%_) (gx#raise-syntax-error '#f '"Illegal module syntax" - _%path127452%_))))) - (gx#call-with-input-source-file _%path127452%_ _%read-e127459%_)))) + _%path127558%_))))) + (gx#call-with-input-source-file _%path127558%_ _%read-e127565%_)))) (define gx#core-read-module-package - (lambda (_%path127400%_ _%pre127401%_ _%ns127402%_) - (letrec ((_%string-e127404%_ - (lambda (_%e127447%_) - (if (symbol? _%e127447%_) - (##symbol->string _%e127447%_) - (if (string? _%e127447%_) - _%e127447%_ + (lambda (_%path127506%_ _%pre127507%_ _%ns127508%_) + (letrec ((_%string-e127510%_ + (lambda (_%e127553%_) + (if (symbol? _%e127553%_) + (##symbol->string _%e127553%_) + (if (string? _%e127553%_) + _%e127553%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%e127447%_)))))) - (let _%lp127406%_ ((_%dir127408%_ (path-directory _%path127400%_)) - (_%pkg-path127409%_ '())) - (let ((_%gerbil.pkg127411%_ - (path-expand '"gerbil.pkg" _%dir127408%_))) - (if (##file-exists? _%gerbil.pkg127411%_) - (let ((_%plist127413%_ - (gx#core-library-package-plist__% _%dir127408%_ '#t))) - (if (null? _%plist127413%_) - (let ((_%pkg127416%_ - (if (null? _%pkg-path127409%_) + _%e127553%_)))))) + (let _%lp127512%_ ((_%dir127514%_ (path-directory _%path127506%_)) + (_%pkg-path127515%_ '())) + (let ((_%gerbil.pkg127517%_ + (path-expand '"gerbil.pkg" _%dir127514%_))) + (if (##file-exists? _%gerbil.pkg127517%_) + (let ((_%plist127519%_ + (gx#core-library-package-plist__% _%dir127514%_ '#t))) + (if (null? _%plist127519%_) + (let ((_%pkg127522%_ + (if (null? _%pkg-path127515%_) '#f - (string-join _%pkg-path127409%_ '"/")))) - (values _%pre127401%_ _%ns127402%_ _%pkg127416%_)) - (if (list? _%plist127413%_) - (let* ((_%root127419%_ - (pgetq__0 'package: _%plist127413%_)) - (_%pkg127423%_ - (let ((_%pkg-path127421%_ - (if _%root127419%_ - (cons (_%string-e127404%_ - _%root127419%_) - _%pkg-path127409%_) - _%pkg-path127409%_))) - (if (null? _%pkg-path127421%_) + (string-join _%pkg-path127515%_ '"/")))) + (values _%pre127507%_ _%ns127508%_ _%pkg127522%_)) + (if (list? _%plist127519%_) + (let* ((_%root127525%_ + (pgetq__0 'package: _%plist127519%_)) + (_%pkg127529%_ + (let ((_%pkg-path127527%_ + (if _%root127525%_ + (cons (_%string-e127510%_ + _%root127525%_) + _%pkg-path127515%_) + _%pkg-path127515%_))) + (if (null? _%pkg-path127527%_) '#f (string-join - _%pkg-path127421%_ + _%pkg-path127527%_ '"/")))) - (_%ns127430%_ - (let ((_%ns127428%_ - (let ((_%$e127425%_ _%ns127402%_)) - (if _%$e127425%_ - _%$e127425%_ + (_%ns127536%_ + (let ((_%ns127534%_ + (let ((_%$e127531%_ _%ns127508%_)) + (if _%$e127531%_ + _%$e127531%_ (pgetq__0 'namespace: - _%plist127413%_))))) - (if _%ns127428%_ - (_%string-e127404%_ _%ns127428%_) + _%plist127519%_))))) + (if _%ns127534%_ + (_%string-e127510%_ _%ns127534%_) '#f))) - (_%pre127435%_ - (let ((_%$e127432%_ _%pre127401%_)) - (if _%$e127432%_ - _%$e127432%_ + (_%pre127541%_ + (let ((_%$e127538%_ _%pre127507%_)) + (if _%$e127538%_ + _%$e127538%_ (pgetq__0 'prelude: - _%plist127413%_))))) - (values _%pre127435%_ - _%ns127430%_ - _%pkg127423%_)) + _%plist127519%_))))) + (values _%pre127541%_ + _%ns127536%_ + _%pkg127529%_)) (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%plist127413%_)))) - (let ((_%dir*127439%_ + _%plist127519%_)))) + (let ((_%dir*127545%_ (path-strip-trailing-directory-separator - _%dir127408%_))) - (if (or (__string-empty? _%dir*127439%_) - (equal? _%dir127408%_ _%dir*127439%_)) - (values _%pre127401%_ _%ns127402%_ '#f) - (let ((_%xpath127444%_ - (path-strip-directory _%dir*127439%_)) - (_%xdir127445%_ (path-directory _%dir*127439%_))) - (_%lp127406%_ - _%xdir127445%_ - (cons _%xpath127444%_ _%pkg-path127409%_))))))))))) + _%dir127514%_))) + (if (or (__string-empty? _%dir*127545%_) + (equal? _%dir127514%_ _%dir*127545%_)) + (values _%pre127507%_ _%ns127508%_ '#f) + (let ((_%xpath127550%_ + (path-strip-directory _%dir*127545%_)) + (_%xdir127551%_ (path-directory _%dir*127545%_))) + (_%lp127512%_ + _%xdir127551%_ + (cons _%xpath127550%_ _%pkg-path127515%_))))))))))) (define gx#core-module-path->namespace - (lambda (_%path127398%_) - (path-strip-extension (path-strip-directory _%path127398%_)))) + (lambda (_%path127504%_) + (path-strip-extension (path-strip-directory _%path127504%_)))) (define gx#core-module-path->id - (lambda (_%path127396%_) - (##string->symbol (gx#core-module-path->namespace _%path127396%_)))) + (lambda (_%path127502%_) + (##string->symbol (gx#core-module-path->namespace _%path127502%_)))) (define gx#core-resolve-module-path__% - (lambda (_%stx-path127375%_ _%rel127376%_) - (let* ((_%path127378%_ (gx#stx-e _%stx-path127375%_)) - (_%path127380%_ - (if (__string-empty? (path-extension _%path127378%_)) - (##string-append _%path127378%_ '".ss") - _%path127378%_))) + (lambda (_%stx-path127481%_ _%rel127482%_) + (let* ((_%path127484%_ (gx#stx-e _%stx-path127481%_)) + (_%path127486%_ + (if (__string-empty? (path-extension _%path127484%_)) + (##string-append _%path127484%_ '".ss") + _%path127484%_))) (gx#core-resolve-path__% - _%path127380%_ - (let ((_%$e127383%_ (gx#stx-source _%stx-path127375%_))) - (if _%$e127383%_ _%$e127383%_ _%rel127376%_)))))) + _%path127486%_ + (let ((_%$e127489%_ (gx#stx-source _%stx-path127481%_))) + (if _%$e127489%_ _%$e127489%_ _%rel127482%_)))))) (define gx#core-resolve-module-path__0 - (lambda (_%stx-path127389%_) - (let ((_%rel127391%_ '#f)) - (gx#core-resolve-module-path__% _%stx-path127389%_ _%rel127391%_)))) + (lambda (_%stx-path127495%_) + (let ((_%rel127497%_ '#f)) + (gx#core-resolve-module-path__% _%stx-path127495%_ _%rel127497%_)))) (define gx#core-resolve-module-path - (lambda _g129025_ - (let ((_g129024_ (##length _g129025_))) - (cond ((##fx= _g129024_ 1) - (apply gx#core-resolve-module-path__0 _g129025_)) - ((##fx= _g129024_ 2) - (apply gx#core-resolve-module-path__% _g129025_)) + (lambda _g129131_ + (let ((_g129130_ (##length _g129131_))) + (cond ((##fx= _g129130_ 1) + (apply gx#core-resolve-module-path__0 _g129131_)) + ((##fx= _g129130_ 2) + (apply gx#core-resolve-module-path__% _g129131_)) (else (##raise-wrong-number-of-arguments-exception gx#core-resolve-module-path - _g129025_)))))) + _g129131_)))))) (define gx#core-resolve-library-module-path - (lambda (_%libpath127260%_) - (let* ((_%spath127262%_ (symbol->string (gx#stx-e _%libpath127260%_))) - (_%spath127264%_ + (lambda (_%libpath127366%_) + (let* ((_%spath127368%_ (symbol->string (gx#stx-e _%libpath127366%_))) + (_%spath127370%_ (substring - _%spath127262%_ + _%spath127368%_ '1 - (##string-length _%spath127262%_))) - (_%ext127266%_ (path-extension _%spath127264%_)) - (_%ssi127268%_ - (if (__string-empty? _%ext127266%_) - (##string-append _%spath127264%_ '".ssi") + (##string-length _%spath127368%_))) + (_%ext127372%_ (path-extension _%spath127370%_)) + (_%ssi127374%_ + (if (__string-empty? _%ext127372%_) + (##string-append _%spath127370%_ '".ssi") (##string-append - (path-strip-extension _%spath127264%_) + (path-strip-extension _%spath127370%_) '".ssi"))) - (_%srcs127272%_ - (if (__string-empty? _%ext127266%_) - (##map (lambda (_%ext127270%_) - (string-append _%spath127264%_ _%ext127270%_)) + (_%srcs127378%_ + (if (__string-empty? _%ext127372%_) + (##map (lambda (_%ext127376%_) + (string-append _%spath127370%_ _%ext127376%_)) '(".ss" ".sld" ".scm")) - (cons _%spath127264%_ '())))) - (let _%lp127275%_ ((_%rest127277%_ (load-path))) - (let* ((_%rest127278127287%_ _%rest127277%_) - (_%E127281127291%_ + (cons _%spath127370%_ '())))) + (let _%lp127381%_ ((_%rest127383%_ (load-path))) + (let* ((_%rest127384127393%_ _%rest127383%_) + (_%E127387127397%_ (lambda () (error '"No clause matching" - _%rest127278127287%_ + _%rest127384127393%_ '([dir . rest]) '([])) '#!void))) - (let ((_%K127283127362%_ - (lambda (_%rest127302%_ _%dir127303%_) - (letrec ((_%resolve127305%_ - (lambda (_%ssi127318%_ _%srcs127319%_) - (let ((_%compiled-path127321%_ + (let ((_%K127389127468%_ + (lambda (_%rest127408%_ _%dir127409%_) + (letrec ((_%resolve127411%_ + (lambda (_%ssi127424%_ _%srcs127425%_) + (let ((_%compiled-path127427%_ (path-expand - _%ssi127318%_ - _%dir127303%_))) + _%ssi127424%_ + _%dir127409%_))) (if (##file-exists? - _%compiled-path127321%_) + _%compiled-path127427%_) (path-normalize - _%compiled-path127321%_) - (let _%lpr127323%_ ((_%rest-src127325%_ - _%srcs127319%_)) - (let* ((_%rest-src127326127334%_ - _%rest-src127325%_) - (_%else127328127342%_ + _%compiled-path127427%_) + (let _%lpr127429%_ ((_%rest-src127431%_ + _%srcs127425%_)) + (let* ((_%rest-src127432127440%_ + _%rest-src127431%_) + (_%else127434127448%_ (lambda () - (_%lp127275%_ - _%rest127302%_))) - (_%K127330127350%_ - (lambda (_%rest-src127345%_ - _%src127346%_) - (let ((_%src-path127348%_ + (_%lp127381%_ + _%rest127408%_))) + (_%K127436127456%_ + (lambda (_%rest-src127451%_ + _%src127452%_) + (let ((_%src-path127454%_ (path-expand - _%src127346%_ - _%dir127303%_))) + _%src127452%_ + _%dir127409%_))) (if (##file-exists? - _%src-path127348%_) + _%src-path127454%_) (path-normalize - _%src-path127348%_) - (_%lpr127323%_ - _%rest-src127345%_)))))) - (if (pair? _%rest-src127326127334%_) - (let ((_%hd127331127353%_ - (##car _%rest-src127326127334%_)) - (_%tl127332127355%_ - (##cdr _%rest-src127326127334%_))) - (let* ((_%src127358%_ - _%hd127331127353%_) - (_%rest-src127360%_ - _%tl127332127355%_)) - (_%K127330127350%_ - _%rest-src127360%_ - _%src127358%_))) - (_%else127328127342%_))))))))) - (let ((_%$e127307%_ + _%src-path127454%_) + (_%lpr127429%_ + _%rest-src127451%_)))))) + (if (pair? _%rest-src127432127440%_) + (let ((_%hd127437127459%_ + (##car _%rest-src127432127440%_)) + (_%tl127438127461%_ + (##cdr _%rest-src127432127440%_))) + (let* ((_%src127464%_ + _%hd127437127459%_) + (_%rest-src127466%_ + _%tl127438127461%_)) + (_%K127436127456%_ + _%rest-src127466%_ + _%src127464%_))) + (_%else127434127448%_))))))))) + (let ((_%$e127413%_ (gx#core-library-package-path-prefix - _%dir127303%_))) - (if _%$e127307%_ - ((lambda (_%prefix127310%_) + _%dir127409%_))) + (if _%$e127413%_ + ((lambda (_%prefix127416%_) (if (string-prefix? - _%prefix127310%_ - _%spath127264%_) - (let ((_%ssi127314%_ + _%prefix127416%_ + _%spath127370%_) + (let ((_%ssi127420%_ (substring - _%ssi127268%_ - (string-length _%prefix127310%_) - (##string-length _%ssi127268%_))) - (_%srcs127315%_ - (##map (lambda (_%src127312%_) + _%ssi127374%_ + (string-length _%prefix127416%_) + (##string-length _%ssi127374%_))) + (_%srcs127421%_ + (##map (lambda (_%src127418%_) (substring - _%src127312%_ + _%src127418%_ (string-length - _%prefix127310%_) + _%prefix127416%_) (string-length - _%src127312%_))) - _%srcs127272%_))) - (_%resolve127305%_ - _%ssi127314%_ - _%srcs127315%_)) - (_%lp127275%_ _%rest127302%_))) - _%$e127307%_) - (_%resolve127305%_ - _%ssi127268%_ - _%srcs127272%_)))))) - (_%K127282127296%_ + _%src127418%_))) + _%srcs127378%_))) + (_%resolve127411%_ + _%ssi127420%_ + _%srcs127421%_)) + (_%lp127381%_ _%rest127408%_))) + _%$e127413%_) + (_%resolve127411%_ + _%ssi127374%_ + _%srcs127378%_)))))) + (_%K127388127402%_ (lambda () (gx#raise-syntax-error '#f '"cannot find library module" - _%libpath127260%_)))) - (let ((_%try-match127280127299%_ + _%libpath127366%_)))) + (let ((_%try-match127386127405%_ (lambda () - (if (null? _%rest127278127287%_) - (_%K127282127296%_) - (_%E127281127291%_))))) - (if (pair? _%rest127278127287%_) - (let ((_%tl127285127367%_ (##cdr _%rest127278127287%_)) - (_%hd127284127365%_ (##car _%rest127278127287%_))) - (let ((_%dir127370%_ _%hd127284127365%_) - (_%rest127372%_ _%tl127285127367%_)) - (_%K127283127362%_ _%rest127372%_ _%dir127370%_))) - (_%try-match127280127299%_))))))))) + (if (null? _%rest127384127393%_) + (_%K127388127402%_) + (_%E127387127397%_))))) + (if (pair? _%rest127384127393%_) + (let ((_%tl127391127473%_ (##cdr _%rest127384127393%_)) + (_%hd127390127471%_ (##car _%rest127384127393%_))) + (let ((_%dir127476%_ _%hd127390127471%_) + (_%rest127478%_ _%tl127391127473%_)) + (_%K127389127468%_ _%rest127478%_ _%dir127476%_))) + (_%try-match127386127405%_))))))))) (define gx#core-resolve-library-relative-module-path - (lambda (_%modpath127228%_) - (letrec ((_%resolve127230%_ - (lambda (_%path127251%_ _%base127252%_) - (let ((_%$e127254%_ - (string-rindex__0 _%base127252%_ '#\/))) - (if _%$e127254%_ - ((lambda (_%idx127257%_) + (lambda (_%modpath127334%_) + (letrec ((_%resolve127336%_ + (lambda (_%path127357%_ _%base127358%_) + (let ((_%$e127360%_ + (string-rindex__0 _%base127358%_ '#\/))) + (if _%$e127360%_ + ((lambda (_%idx127363%_) (gx#core-resolve-library-module-path (##string->symbol (string-append '":" - (substring _%base127252%_ '0 _%idx127257%_) + (substring _%base127358%_ '0 _%idx127363%_) '"/" - _%path127251%_)))) - _%$e127254%_) + _%path127357%_)))) + _%$e127360%_) (gx#core-resolve-library-module-path (##string->symbol - (string-append '":" _%path127251%_)))))))) - (let ((_%spath127232%_ (symbol->string (gx#stx-e _%modpath127228%_))) - (_%mod127233%_ + (string-append '":" _%path127357%_)))))))) + (let ((_%spath127338%_ (symbol->string (gx#stx-e _%modpath127334%_))) + (_%mod127339%_ (gx#core-context-top__% (gx#current-expander-context) gx#module-context?))) - (if _%mod127233%_ + (if _%mod127339%_ '#!void (gx#raise-syntax-error '#f '"cannot resolve relative module path; not in module context" - _%modpath127228%_)) - (let ((_%mpath127235%_ + _%modpath127334%_)) + (let ((_%mpath127341%_ (symbol->string (##structure-ref - _%mod127233%_ + _%mod127339%_ '1 gx#expander-context::t '#f)))) - (let _%lp127237%_ ((_%spath127239%_ _%spath127232%_) - (_%mpath127240%_ _%mpath127235%_)) - (if (string-prefix? '"../" _%spath127239%_) - (let ((_%$e127243%_ - (string-rindex__0 _%mpath127240%_ '#\/))) - (if _%$e127243%_ - ((lambda (_%idx127246%_) - (_%lp127237%_ + (let _%lp127343%_ ((_%spath127345%_ _%spath127338%_) + (_%mpath127346%_ _%mpath127341%_)) + (if (string-prefix? '"../" _%spath127345%_) + (let ((_%$e127349%_ + (string-rindex__0 _%mpath127346%_ '#\/))) + (if _%$e127349%_ + ((lambda (_%idx127352%_) + (_%lp127343%_ (substring - _%spath127239%_ + _%spath127345%_ '3 - (string-length _%spath127239%_)) - (substring _%mpath127240%_ '0 _%idx127246%_))) - _%$e127243%_) + (string-length _%spath127345%_)) + (substring _%mpath127346%_ '0 _%idx127352%_))) + _%$e127349%_) (gx#raise-syntax-error '#f '"cannot resolve relative module path; illegal traversal" - _%modpath127228%_))) - (if (string-prefix? '"./" _%spath127239%_) - (_%lp127237%_ + _%modpath127334%_))) + (if (string-prefix? '"./" _%spath127345%_) + (_%lp127343%_ (substring - _%spath127239%_ + _%spath127345%_ '2 - (string-length _%spath127239%_)) - _%mpath127240%_) - (_%resolve127230%_ - _%spath127239%_ - _%mpath127240%_))))))))) + (string-length _%spath127345%_)) + _%mpath127346%_) + (_%resolve127336%_ + _%spath127345%_ + _%mpath127346%_))))))))) (define gx#core-library-package-path-prefix - (lambda (_%dir127220%_) - (let ((_%$e127222%_ + (lambda (_%dir127326%_) + (let ((_%$e127328%_ (pgetq__0 'package: - (gx#core-library-package-plist__0 _%dir127220%_)))) - (if _%$e127222%_ - ((lambda (_%pkg127225%_) - (##string-append (symbol->string _%pkg127225%_) '"/")) - _%$e127222%_) + (gx#core-library-package-plist__0 _%dir127326%_)))) + (if _%$e127328%_ + ((lambda (_%pkg127331%_) + (##string-append (symbol->string _%pkg127331%_) '"/")) + _%$e127328%_) '#f)))) (define gx#core-library-package-plist__% - (lambda (_%dir127190%_ _%exists?127191%_) - (let ((_%$e127193%_ (__hash-get gx#__module-pkg-cache _%dir127190%_))) - (if _%$e127193%_ - _%$e127193%_ - (let* ((_%gerbil.pkg127197%_ - (path-expand '"gerbil.pkg" _%dir127190%_)) - (_%plist127207%_ - (if (or _%exists?127191%_ - (##file-exists? _%gerbil.pkg127197%_)) - (let ((_%e127202%_ + (lambda (_%dir127296%_ _%exists?127297%_) + (let ((_%$e127299%_ (__hash-get gx#__module-pkg-cache _%dir127296%_))) + (if _%$e127299%_ + _%$e127299%_ + (let* ((_%gerbil.pkg127303%_ + (path-expand '"gerbil.pkg" _%dir127296%_)) + (_%plist127313%_ + (if (or _%exists?127297%_ + (##file-exists? _%gerbil.pkg127303%_)) + (let ((_%e127308%_ (gx#call-with-input-source-file - _%gerbil.pkg127197%_ + _%gerbil.pkg127303%_ read))) - (if (eof-object? _%e127202%_) + (if (eof-object? _%e127308%_) '() - (if (list? _%e127202%_) - _%e127202%_ + (if (list? _%e127308%_) + _%e127308%_ (gx#raise-syntax-error '#f '"Malformed package info; unexpected datum" - _%gerbil.pkg127197%_ - _%e127202%_)))) + _%gerbil.pkg127303%_ + _%e127308%_)))) '()))) (__hash-put! gx#__module-pkg-cache - _%dir127190%_ - _%plist127207%_) - _%plist127207%_))))) + _%dir127296%_ + _%plist127313%_) + _%plist127313%_))))) (define gx#core-library-package-plist__0 - (lambda (_%dir127213%_) - (let ((_%exists?127215%_ '#f)) - (gx#core-library-package-plist__% _%dir127213%_ _%exists?127215%_)))) + (lambda (_%dir127319%_) + (let ((_%exists?127321%_ '#f)) + (gx#core-library-package-plist__% _%dir127319%_ _%exists?127321%_)))) (define gx#core-library-package-plist - (lambda _g129027_ - (let ((_g129026_ (##length _g129027_))) - (cond ((##fx= _g129026_ 1) - (apply gx#core-library-package-plist__0 _g129027_)) - ((##fx= _g129026_ 2) - (apply gx#core-library-package-plist__% _g129027_)) + (lambda _g129133_ + (let ((_g129132_ (##length _g129133_))) + (cond ((##fx= _g129132_ 1) + (apply gx#core-library-package-plist__0 _g129133_)) + ((##fx= _g129132_ 2) + (apply gx#core-library-package-plist__% _g129133_)) (else (##raise-wrong-number-of-arguments-exception gx#core-library-package-plist - _g129027_)))))) + _g129133_)))))) (define gx#core-library-module-path? - (lambda (_%stx127187%_) - (gx#core-special-module-path? _%stx127187%_ '#\:))) + (lambda (_%stx127293%_) + (gx#core-special-module-path? _%stx127293%_ '#\:))) (define gx#core-library-relative-module-path? - (lambda (_%stx127185%_) - (gx#core-special-module-path? _%stx127185%_ '#\.))) + (lambda (_%stx127291%_) + (gx#core-special-module-path? _%stx127291%_ '#\.))) (define gx#core-special-module-path? - (lambda (_%stx127180%_ _%char127181%_) - (if (gx#identifier? _%stx127180%_) - (if (interned-symbol? (gx#stx-e _%stx127180%_)) - (let ((_%str127183%_ - (symbol->string (gx#stx-e _%stx127180%_)))) - (if (##fx> (##string-length _%str127183%_) '1) - (eq? (string-ref _%str127183%_ '0) _%char127181%_) + (lambda (_%stx127286%_ _%char127287%_) + (if (gx#identifier? _%stx127286%_) + (if (interned-symbol? (gx#stx-e _%stx127286%_)) + (let ((_%str127289%_ + (symbol->string (gx#stx-e _%stx127286%_)))) + (if (##fx> (##string-length _%str127289%_) '1) + (eq? (string-ref _%str127289%_ '0) _%char127287%_) '#f)) '#f) '#f))) (define gx#core-bound-prelude? - (lambda (_%stx127174%_) + (lambda (_%stx127280%_) (gx#core-bound-identifier?__% - _%stx127174%_ - (lambda (_%g127175127177%_) - (gx#expander-binding?__% _%g127175127177%_ gx#prelude-context?))))) + _%stx127280%_ + (lambda (_%g127281127283%_) + (gx#expander-binding?__% _%g127281127283%_ gx#prelude-context?))))) (define gx#core-bound-module? - (lambda (_%stx127168%_) + (lambda (_%stx127274%_) (gx#core-bound-identifier?__% - _%stx127168%_ - (lambda (_%g127169127171%_) - (gx#expander-binding?__% _%g127169127171%_ gx#module-context?))))) + _%stx127274%_ + (lambda (_%g127275127277%_) + (gx#expander-binding?__% _%g127275127277%_ gx#module-context?))))) (define gx#core-bound-module-prelude? - (lambda (_%stx127155%_) - (letrec ((_%module-prelude?127157%_ - (lambda (_%e127163%_) - (let ((_%$e127165%_ + (lambda (_%stx127261%_) + (letrec ((_%module-prelude?127263%_ + (lambda (_%e127269%_) + (let ((_%$e127271%_ (##structure-instance-of? - _%e127163%_ + _%e127269%_ 'gx#module-context::t))) - (if _%$e127165%_ - _%$e127165%_ + (if _%$e127271%_ + _%$e127271%_ (##structure-instance-of? - _%e127163%_ + _%e127269%_ 'gx#prelude-context::t)))))) (gx#core-bound-identifier?__% - _%stx127155%_ - (lambda (_%g127158127160%_) + _%stx127261%_ + (lambda (_%g127264127266%_) (gx#expander-binding?__% - _%g127158127160%_ - _%module-prelude?127157%_)))))) + _%g127264127266%_ + _%module-prelude?127263%_)))))) (define gx#core-bind-import!__% - (lambda (_%in127085%_ _%ctx127086%_ _%force-weak?127087%_) - (let* ((_%in127088127097%_ _%in127085%_) - (_%E127090127101%_ + (lambda (_%in127191%_ _%ctx127192%_ _%force-weak?127193%_) + (let* ((_%in127194127203%_ _%in127191%_) + (_%E127196127207%_ (lambda () (error '"No clause matching" - _%in127088127097%_ + _%in127194127203%_ '((module-import source key phi weak?))) '#!void)) - (_%K127091127114%_ - (lambda (_%weak?127104%_ - _%phi127105%_ - _%key127106%_ - _%source127107%_) + (_%K127197127220%_ + (lambda (_%weak?127210%_ + _%phi127211%_ + _%key127212%_ + _%source127213%_) (gx#core-bind!__% - _%key127106%_ - (let ((_%e127109%_ - (gx#core-resolve-module-export _%source127107%_))) + _%key127212%_ + (let ((_%e127215%_ + (gx#core-resolve-module-export _%source127213%_))) (##structure gx#import-binding::t - (##unchecked-structure-ref _%e127109%_ '1 '#f '#f) - _%key127106%_ - _%phi127105%_ - _%e127109%_ - (##unchecked-structure-ref _%source127107%_ '1 '#f '#f) - (let ((_%$e127111%_ _%force-weak?127087%_)) - (if _%$e127111%_ _%$e127111%_ _%weak?127104%_)))) + (##unchecked-structure-ref _%e127215%_ '1 '#f '#f) + _%key127212%_ + _%phi127211%_ + _%e127215%_ + (##unchecked-structure-ref _%source127213%_ '1 '#f '#f) + (let ((_%$e127217%_ _%force-weak?127193%_)) + (if _%$e127217%_ _%$e127217%_ _%weak?127210%_)))) gx#core-context-rebind? - _%phi127105%_ - _%ctx127086%_)))) + _%phi127211%_ + _%ctx127192%_)))) (if (##structure-direct-instance-of? - _%in127088127097%_ + _%in127194127203%_ 'gx#module-import::t) - (let* ((_%e127092127117%_ + (let* ((_%e127198127223%_ (##unchecked-structure-ref - _%in127088127097%_ + _%in127194127203%_ '1 '#f '#f)) - (_%source127120%_ _%e127092127117%_) - (_%e127093127122%_ + (_%source127226%_ _%e127198127223%_) + (_%e127199127228%_ (##unchecked-structure-ref - _%in127088127097%_ + _%in127194127203%_ '2 '#f '#f)) - (_%key127125%_ _%e127093127122%_) - (_%e127094127127%_ + (_%key127231%_ _%e127199127228%_) + (_%e127200127233%_ (##unchecked-structure-ref - _%in127088127097%_ + _%in127194127203%_ '3 '#f '#f)) - (_%phi127130%_ _%e127094127127%_) - (_%e127095127132%_ + (_%phi127236%_ _%e127200127233%_) + (_%e127201127238%_ (##unchecked-structure-ref - _%in127088127097%_ + _%in127194127203%_ '4 '#f '#f)) - (_%weak?127135%_ _%e127095127132%_)) - (_%K127091127114%_ - _%weak?127135%_ - _%phi127130%_ - _%key127125%_ - _%source127120%_)) - (_%E127090127101%_))))) + (_%weak?127241%_ _%e127201127238%_)) + (_%K127197127220%_ + _%weak?127241%_ + _%phi127236%_ + _%key127231%_ + _%source127226%_)) + (_%E127196127207%_))))) (define gx#core-bind-import!__0 - (lambda (_%in127140%_) - (let* ((_%ctx127142%_ (gx#current-expander-context)) - (_%force-weak?127144%_ '#f)) + (lambda (_%in127246%_) + (let* ((_%ctx127248%_ (gx#current-expander-context)) + (_%force-weak?127250%_ '#f)) (gx#core-bind-import!__% - _%in127140%_ - _%ctx127142%_ - _%force-weak?127144%_)))) + _%in127246%_ + _%ctx127248%_ + _%force-weak?127250%_)))) (define gx#core-bind-import!__1 - (lambda (_%in127146%_ _%ctx127147%_) - (let ((_%force-weak?127149%_ '#f)) + (lambda (_%in127252%_ _%ctx127253%_) + (let ((_%force-weak?127255%_ '#f)) (gx#core-bind-import!__% - _%in127146%_ - _%ctx127147%_ - _%force-weak?127149%_)))) + _%in127252%_ + _%ctx127253%_ + _%force-weak?127255%_)))) (define gx#core-bind-import! - (lambda _g129029_ - (let ((_g129028_ (##length _g129029_))) - (cond ((##fx= _g129028_ 1) (apply gx#core-bind-import!__0 _g129029_)) - ((##fx= _g129028_ 2) (apply gx#core-bind-import!__1 _g129029_)) - ((##fx= _g129028_ 3) (apply gx#core-bind-import!__% _g129029_)) + (lambda _g129135_ + (let ((_g129134_ (##length _g129135_))) + (cond ((##fx= _g129134_ 1) (apply gx#core-bind-import!__0 _g129135_)) + ((##fx= _g129134_ 2) (apply gx#core-bind-import!__1 _g129135_)) + ((##fx= _g129134_ 3) (apply gx#core-bind-import!__% _g129135_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-import! - _g129029_)))))) + _g129135_)))))) (define gx#core-bind-weak-import!__% - (lambda (_%in127071%_ _%ctx127072%_) - (gx#core-bind-import!__% _%in127071%_ _%ctx127072%_ '#t))) + (lambda (_%in127177%_ _%ctx127178%_) + (gx#core-bind-import!__% _%in127177%_ _%ctx127178%_ '#t))) (define gx#core-bind-weak-import!__0 - (lambda (_%in127077%_) - (let ((_%ctx127079%_ (gx#current-expander-context))) - (gx#core-bind-weak-import!__% _%in127077%_ _%ctx127079%_)))) + (lambda (_%in127183%_) + (let ((_%ctx127185%_ (gx#current-expander-context))) + (gx#core-bind-weak-import!__% _%in127183%_ _%ctx127185%_)))) (define gx#core-bind-weak-import! - (lambda _g129031_ - (let ((_g129030_ (##length _g129031_))) - (cond ((##fx= _g129030_ 1) - (apply gx#core-bind-weak-import!__0 _g129031_)) - ((##fx= _g129030_ 2) - (apply gx#core-bind-weak-import!__% _g129031_)) + (lambda _g129137_ + (let ((_g129136_ (##length _g129137_))) + (cond ((##fx= _g129136_ 1) + (apply gx#core-bind-weak-import!__0 _g129137_)) + ((##fx= _g129136_ 2) + (apply gx#core-bind-weak-import!__% _g129137_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-weak-import! - _g129031_)))))) + _g129137_)))))) (define gx#core-resolve-module-export - (lambda (_%out126962%_) - (letrec ((_%subst126964%_ - (lambda (_%key127010%_) - (let* ((_%key127011127019%_ _%key127010%_) - (_%else127013127027%_ (lambda () _%key127010%_)) - (_%K127015127058%_ - (lambda (_%mark127030%_ _%id127031%_) - (let* ((_%mark127032127038%_ _%mark127030%_) - (_%E127034127042%_ + (lambda (_%out127068%_) + (letrec ((_%subst127070%_ + (lambda (_%key127116%_) + (let* ((_%key127117127125%_ _%key127116%_) + (_%else127119127133%_ (lambda () _%key127116%_)) + (_%K127121127164%_ + (lambda (_%mark127136%_ _%id127137%_) + (let* ((_%mark127138127144%_ _%mark127136%_) + (_%E127140127148%_ (lambda () (error '"No clause matching" - _%mark127032127038%_ + _%mark127138127144%_ '((expander-mark subst))) '#!void)) - (_%K127035127050%_ - (lambda (_%subst127045%_) - (let ((_%$e127047%_ - (if _%subst127045%_ + (_%K127141127156%_ + (lambda (_%subst127151%_) + (let ((_%$e127153%_ + (if _%subst127151%_ (hash-get - _%subst127045%_ - _%id127031%_) + _%subst127151%_ + _%id127137%_) '#f))) - (if _%$e127047%_ - _%$e127047%_ + (if _%$e127153%_ + _%$e127153%_ (gx#raise-syntax-error '#f '"Illegal key; missing substitution" - _%key127010%_)))))) + _%key127116%_)))))) (if (##structure-instance-of? - _%mark127032127038%_ + _%mark127138127144%_ 'gx#expander-mark::t) - (let* ((_%e127036127053%_ + (let* ((_%e127142127159%_ (##unchecked-structure-ref - _%mark127032127038%_ + _%mark127138127144%_ '1 '#f '#f)) - (_%subst127056%_ _%e127036127053%_)) - (_%K127035127050%_ _%subst127056%_)) - (_%E127034127042%_)))))) - (if (pair? _%key127011127019%_) - (let ((_%hd127016127061%_ - (##car _%key127011127019%_)) - (_%tl127017127063%_ - (##cdr _%key127011127019%_))) - (let* ((_%id127066%_ _%hd127016127061%_) - (_%mark127068%_ _%tl127017127063%_)) - (_%K127015127058%_ _%mark127068%_ _%id127066%_))) - (_%else127013127027%_)))))) - (let* ((_%out126965126975%_ _%out126962%_) - (_%E126967126979%_ + (_%subst127162%_ _%e127142127159%_)) + (_%K127141127156%_ _%subst127162%_)) + (_%E127140127148%_)))))) + (if (pair? _%key127117127125%_) + (let ((_%hd127122127167%_ + (##car _%key127117127125%_)) + (_%tl127123127169%_ + (##cdr _%key127117127125%_))) + (let* ((_%id127172%_ _%hd127122127167%_) + (_%mark127174%_ _%tl127123127169%_)) + (_%K127121127164%_ _%mark127174%_ _%id127172%_))) + (_%else127119127133%_)))))) + (let* ((_%out127071127081%_ _%out127068%_) + (_%E127073127085%_ (lambda () (error '"No clause matching" - _%out126965126975%_ + _%out127071127081%_ '((module-export ctx key phi _ _))) '#!void)) - (_%K126968126986%_ - (lambda (_%phi126982%_ _%key126983%_ _%ctx126984%_) + (_%K127074127092%_ + (lambda (_%phi127088%_ _%key127089%_ _%ctx127090%_) (gx#core-context-resolve - (gx#core-context-shift _%ctx126984%_ _%phi126982%_) - (_%subst126964%_ _%key126983%_))))) + (gx#core-context-shift _%ctx127090%_ _%phi127088%_) + (_%subst127070%_ _%key127089%_))))) (if (##structure-direct-instance-of? - _%out126965126975%_ + _%out127071127081%_ 'gx#module-export::t) - (let* ((_%e126969126989%_ + (let* ((_%e127075127095%_ (##unchecked-structure-ref - _%out126965126975%_ + _%out127071127081%_ '1 '#f '#f)) - (_%ctx126992%_ _%e126969126989%_) - (_%e126970126994%_ + (_%ctx127098%_ _%e127075127095%_) + (_%e127076127100%_ (##unchecked-structure-ref - _%out126965126975%_ + _%out127071127081%_ '2 '#f '#f)) - (_%key126997%_ _%e126970126994%_) - (_%e126971126999%_ + (_%key127103%_ _%e127076127100%_) + (_%e127077127105%_ (##unchecked-structure-ref - _%out126965126975%_ + _%out127071127081%_ '3 '#f '#f)) - (_%phi127002%_ _%e126971126999%_) - (_%e126972127004%_ + (_%phi127108%_ _%e127077127105%_) + (_%e127078127110%_ (##unchecked-structure-ref - _%out126965126975%_ + _%out127071127081%_ '4 '#f '#f)) - (_%e126973127007%_ + (_%e127079127113%_ (##unchecked-structure-ref - _%out126965126975%_ + _%out127071127081%_ '5 '#f '#f))) - (_%K126968126986%_ - _%phi127002%_ - _%key126997%_ - _%ctx126992%_)) - (_%E126967126979%_)))))) + (_%K127074127092%_ + _%phi127108%_ + _%key127103%_ + _%ctx127098%_)) + (_%E127073127085%_)))))) (define gx#core-module-export->import__% - (lambda (_%out126887%_ _%rename126888%_ _%dphi126889%_) - (let* ((_%out126890126900%_ _%out126887%_) - (_%E126892126904%_ + (lambda (_%out126993%_ _%rename126994%_ _%dphi126995%_) + (let* ((_%out126996127006%_ _%out126993%_) + (_%E126998127010%_ (lambda () (error '"No clause matching" - _%out126890126900%_ + _%out126996127006%_ '((module-export ctx key phi name weak?))) '#!void)) - (_%K126893126916%_ - (lambda (_%weak?126907%_ - _%name126908%_ - _%phi126909%_ - _%key126910%_ - _%ctx126911%_) + (_%K126999127022%_ + (lambda (_%weak?127013%_ + _%name127014%_ + _%phi127015%_ + _%key127016%_ + _%ctx127017%_) (##structure gx#module-import::t - _%out126887%_ - (let ((_%$e126913%_ _%rename126888%_)) - (if _%$e126913%_ _%$e126913%_ _%name126908%_)) - (fx+ _%phi126909%_ _%dphi126889%_) - _%weak?126907%_)))) + _%out126993%_ + (let ((_%$e127019%_ _%rename126994%_)) + (if _%$e127019%_ _%$e127019%_ _%name127014%_)) + (fx+ _%phi127015%_ _%dphi126995%_) + _%weak?127013%_)))) (if (##structure-direct-instance-of? - _%out126890126900%_ + _%out126996127006%_ 'gx#module-export::t) - (let* ((_%e126894126919%_ + (let* ((_%e127000127025%_ (##unchecked-structure-ref - _%out126890126900%_ + _%out126996127006%_ '1 '#f '#f)) - (_%ctx126922%_ _%e126894126919%_) - (_%e126895126924%_ + (_%ctx127028%_ _%e127000127025%_) + (_%e127001127030%_ (##unchecked-structure-ref - _%out126890126900%_ + _%out126996127006%_ '2 '#f '#f)) - (_%key126927%_ _%e126895126924%_) - (_%e126896126929%_ + (_%key127033%_ _%e127001127030%_) + (_%e127002127035%_ (##unchecked-structure-ref - _%out126890126900%_ + _%out126996127006%_ '3 '#f '#f)) - (_%phi126932%_ _%e126896126929%_) - (_%e126897126934%_ + (_%phi127038%_ _%e127002127035%_) + (_%e127003127040%_ (##unchecked-structure-ref - _%out126890126900%_ + _%out126996127006%_ '4 '#f '#f)) - (_%name126937%_ _%e126897126934%_) - (_%e126898126939%_ + (_%name127043%_ _%e127003127040%_) + (_%e127004127045%_ (##unchecked-structure-ref - _%out126890126900%_ + _%out126996127006%_ '5 '#f '#f)) - (_%weak?126942%_ _%e126898126939%_)) - (_%K126893126916%_ - _%weak?126942%_ - _%name126937%_ - _%phi126932%_ - _%key126927%_ - _%ctx126922%_)) - (_%E126892126904%_))))) + (_%weak?127048%_ _%e127004127045%_)) + (_%K126999127022%_ + _%weak?127048%_ + _%name127043%_ + _%phi127038%_ + _%key127033%_ + _%ctx127028%_)) + (_%E126998127010%_))))) (define gx#core-module-export->import__0 - (lambda (_%out126947%_) - (let* ((_%rename126949%_ '#f) (_%dphi126951%_ '0)) + (lambda (_%out127053%_) + (let* ((_%rename127055%_ '#f) (_%dphi127057%_ '0)) (gx#core-module-export->import__% - _%out126947%_ - _%rename126949%_ - _%dphi126951%_)))) + _%out127053%_ + _%rename127055%_ + _%dphi127057%_)))) (define gx#core-module-export->import__1 - (lambda (_%out126953%_ _%rename126954%_) - (let ((_%dphi126956%_ '0)) + (lambda (_%out127059%_ _%rename127060%_) + (let ((_%dphi127062%_ '0)) (gx#core-module-export->import__% - _%out126953%_ - _%rename126954%_ - _%dphi126956%_)))) + _%out127059%_ + _%rename127060%_ + _%dphi127062%_)))) (define gx#core-module-export->import - (lambda _g129033_ - (let ((_g129032_ (##length _g129033_))) - (cond ((##fx= _g129032_ 1) - (apply gx#core-module-export->import__0 _g129033_)) - ((##fx= _g129032_ 2) - (apply gx#core-module-export->import__1 _g129033_)) - ((##fx= _g129032_ 3) - (apply gx#core-module-export->import__% _g129033_)) + (lambda _g129139_ + (let ((_g129138_ (##length _g129139_))) + (cond ((##fx= _g129138_ 1) + (apply gx#core-module-export->import__0 _g129139_)) + ((##fx= _g129138_ 2) + (apply gx#core-module-export->import__1 _g129139_)) + ((##fx= _g129138_ 3) + (apply gx#core-module-export->import__% _g129139_)) (else (##raise-wrong-number-of-arguments-exception gx#core-module-export->import - _g129033_)))))) + _g129139_)))))) (define gx#core-expand-module% - (lambda (_%stx126786%_) - (letrec ((_%make-context126788%_ - (lambda (_%id126865%_) - (let* ((_%super126867%_ (gx#current-expander-context)) - (_%bind-id126869%_ (gx#stx-e _%id126865%_)) - (_%mod-id126871%_ + (lambda (_%stx126892%_) + (letrec ((_%make-context126894%_ + (lambda (_%id126971%_) + (let* ((_%super126973%_ (gx#current-expander-context)) + (_%bind-id126975%_ (gx#stx-e _%id126971%_)) + (_%mod-id126977%_ (if (##structure-instance-of? - _%super126867%_ + _%super126973%_ 'gx#module-context::t) (make-symbol__1 (##unchecked-structure-ref - _%super126867%_ + _%super126973%_ '1 '#f '#f) '"~" - _%bind-id126869%_) - _%bind-id126869%_)) - (_%ns126873%_ (symbol->string _%mod-id126871%_)) - (_%path126883%_ + _%bind-id126975%_) + _%bind-id126975%_)) + (_%ns126979%_ (symbol->string _%mod-id126977%_)) + (_%path126989%_ (if (##structure-instance-of? - _%super126867%_ + _%super126973%_ 'gx#module-context::t) - (let ((_%path126875%_ + (let ((_%path126981%_ (##unchecked-structure-ref - _%super126867%_ + _%super126973%_ '7 '#f '#f))) - (if (or (pair? _%path126875%_) - (null? _%path126875%_)) - (cons _%bind-id126869%_ _%path126875%_) - (if (not _%path126875%_) - _%bind-id126869%_ - (cons _%bind-id126869%_ - (cons _%path126875%_ '()))))) - _%bind-id126869%_)) - (__obj129009 + (if (or (pair? _%path126981%_) + (null? _%path126981%_)) + (cons _%bind-id126975%_ _%path126981%_) + (if (not _%path126981%_) + _%bind-id126975%_ + (cons _%bind-id126975%_ + (cons _%path126981%_ '()))))) + _%bind-id126975%_)) + (__obj129115 (##structure gx#module-context::t '#f @@ -2179,702 +2179,702 @@ '#f '#f))) (gx#module-context:::init! - __obj129009 - _%mod-id126871%_ - _%super126867%_ - _%ns126873%_ - _%path126883%_) - __obj129009))) - (_%valid-module-id?126789%_ - (lambda (_%id126840%_) - (let* ((_%str126842%_ (symbol->string _%id126840%_)) - (_%len126844%_ (##string-length _%str126842%_))) - (if (##fx>= _%len126844%_ '1) - (let _%loop126847%_ ((_%index126849%_ + __obj129115 + _%mod-id126977%_ + _%super126973%_ + _%ns126979%_ + _%path126989%_) + __obj129115))) + (_%valid-module-id?126895%_ + (lambda (_%id126946%_) + (let* ((_%str126948%_ (symbol->string _%id126946%_)) + (_%len126950%_ (##string-length _%str126948%_))) + (if (##fx>= _%len126950%_ '1) + (let _%loop126953%_ ((_%index126955%_ (##fx- (##string-length - _%str126842%_) + _%str126948%_) '1))) - (if (##fx>= _%index126849%_ '0) - (let ((_%c126851%_ + (if (##fx>= _%index126955%_ '0) + (let ((_%c126957%_ (string-ref - _%str126842%_ - _%index126849%_))) - (if (or (and (##char>=? _%c126851%_ '#\a) - (##char<=? _%c126851%_ '#\z)) - (and (##char>=? _%c126851%_ '#\A) - (##char<=? _%c126851%_ '#\Z)) - (and (##char>=? _%c126851%_ '#\0) - (##char<=? _%c126851%_ '#\9)) - (##char=? _%c126851%_ '#\_) - (##char=? _%c126851%_ '#\-)) - (_%loop126847%_ - (##fx- _%index126849%_ '1)) + _%str126948%_ + _%index126955%_))) + (if (or (and (##char>=? _%c126957%_ '#\a) + (##char<=? _%c126957%_ '#\z)) + (and (##char>=? _%c126957%_ '#\A) + (##char<=? _%c126957%_ '#\Z)) + (and (##char>=? _%c126957%_ '#\0) + (##char<=? _%c126957%_ '#\9)) + (##char=? _%c126957%_ '#\_) + (##char=? _%c126957%_ '#\-)) + (_%loop126953%_ + (##fx- _%index126955%_ '1)) '#f)) '#t)) '#f))))) - (let* ((_%e126790126800%_ _%stx126786%_) - (_%E126792126804%_ + (let* ((_%e126896126906%_ _%stx126892%_) + (_%E126898126910%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126790126800%_))) - (_%E126791126836%_ + _%e126896126906%_))) + (_%E126897126942%_ (lambda () - (if (gx#stx-pair? _%e126790126800%_) - (let ((_%e126793126808%_ - (gx#syntax-e _%e126790126800%_))) - (let ((_%hd126794126811%_ (##car _%e126793126808%_)) - (_%tl126795126813%_ (##cdr _%e126793126808%_))) - (if (gx#stx-pair? _%tl126795126813%_) - (let ((_%e126796126816%_ - (gx#syntax-e _%tl126795126813%_))) - (let ((_%hd126797126819%_ - (##car _%e126796126816%_)) - (_%tl126798126821%_ - (##cdr _%e126796126816%_))) - (let* ((_%id126824%_ _%hd126797126819%_) - (_%body126826%_ _%tl126798126821%_)) - (if (and (gx#identifier? _%id126824%_) - (gx#stx-list? _%body126826%_)) - (if (_%valid-module-id?126789%_ + (if (gx#stx-pair? _%e126896126906%_) + (let ((_%e126899126914%_ + (gx#syntax-e _%e126896126906%_))) + (let ((_%hd126900126917%_ (##car _%e126899126914%_)) + (_%tl126901126919%_ (##cdr _%e126899126914%_))) + (if (gx#stx-pair? _%tl126901126919%_) + (let ((_%e126902126922%_ + (gx#syntax-e _%tl126901126919%_))) + (let ((_%hd126903126925%_ + (##car _%e126902126922%_)) + (_%tl126904126927%_ + (##cdr _%e126902126922%_))) + (let* ((_%id126930%_ _%hd126903126925%_) + (_%body126932%_ _%tl126904126927%_)) + (if (and (gx#identifier? _%id126930%_) + (gx#stx-list? _%body126932%_)) + (if (_%valid-module-id?126895%_ (gx#stx-e (gx#datum->syntax__0 '#f 'id))) - (let* ((_%ctx126828%_ - (_%make-context126788%_ - _%id126824%_)) - (_%body126830%_ + (let* ((_%ctx126934%_ + (_%make-context126894%_ + _%id126930%_)) + (_%body126936%_ (gx#core-expand-module-begin - _%body126826%_ - _%ctx126828%_)) - (_%body126832%_ + _%body126932%_ + _%ctx126934%_)) + (_%body126938%_ (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body126830%_) + _%body126936%_) (gx#stx-source - _%stx126786%_)))) + _%stx126892%_)))) (##unchecked-structure-set! - _%ctx126828%_ + _%ctx126934%_ (__make-promise (lambda () (gx#eval-syntax* - _%body126832%_))) + _%body126938%_))) '10 '#f '#f) (##unchecked-structure-set! - _%ctx126828%_ - _%body126832%_ + _%ctx126934%_ + _%body126938%_ '11 '#f '#f) (gx#core-bind-syntax!__0 - _%id126824%_ - _%ctx126828%_) + _%id126930%_ + _%ctx126934%_) (gx#core-quote-syntax__1 (gx#core-list '%#module (gx#core-quote-syntax__0 - _%id126824%_) - _%body126832%_) + _%id126930%_) + _%body126938%_) (gx#stx-source - _%stx126786%_))) + _%stx126892%_))) (gx#raise-syntax-error '#f '"invalid module id; allowed characters are A-Z,a-z,0-9,_,-" - _%stx126786%_ + _%stx126892%_ (gx#datum->syntax__0 '#f 'id))) - (_%E126792126804%_))))) - (_%E126792126804%_)))) - (_%E126792126804%_))))) - (_%E126791126836%_))))) + (_%E126898126910%_))))) + (_%E126898126910%_)))) + (_%E126898126910%_))))) + (_%E126897126942%_))))) (define gx#core-expand-module-begin - (lambda (_%body126752%_ _%ctx126753%_) + (lambda (_%body126858%_ _%ctx126859%_) (__call-with-parameters (lambda () (gx#core-bind-feature!__1 'gerbil-module '#t) - (let* ((_%stx126756%_ - (gx#core-expand-head (cons '%%begin-module _%body126752%_))) - (_%e126757126764%_ _%stx126756%_) - (_%E126759126768%_ + (let* ((_%stx126862%_ + (gx#core-expand-head (cons '%%begin-module _%body126858%_))) + (_%e126863126870%_ _%stx126862%_) + (_%E126865126874%_ (lambda () (gx#raise-syntax-error '#f '"Illegal module body expansion" - _%stx126756%_))) - (_%E126758126782%_ + _%stx126862%_))) + (_%E126864126888%_ (lambda () - (if (gx#stx-pair? _%e126757126764%_) - (let ((_%e126760126772%_ - (gx#syntax-e _%e126757126764%_))) - (let ((_%hd126761126775%_ (##car _%e126760126772%_)) - (_%tl126762126777%_ - (##cdr _%e126760126772%_))) - (if (and (gx#identifier? _%hd126761126775%_) + (if (gx#stx-pair? _%e126863126870%_) + (let ((_%e126866126878%_ + (gx#syntax-e _%e126863126870%_))) + (let ((_%hd126867126881%_ (##car _%e126866126878%_)) + (_%tl126868126883%_ + (##cdr _%e126866126878%_))) + (if (and (gx#identifier? _%hd126867126881%_) (gx#core-identifier=? - _%hd126761126775%_ + _%hd126867126881%_ '%#begin-module)) - (let ((_%body126780%_ _%tl126762126777%_)) - (if (gx#sealed-syntax? _%stx126756%_) - _%body126780%_ + (let ((_%body126886%_ _%tl126868126883%_)) + (if (gx#sealed-syntax? _%stx126862%_) + _%body126886%_ (gx#core-expand-module-body - _%body126780%_))) - (_%E126759126768%_)))) - (_%E126759126768%_))))) - (_%E126758126782%_))) + _%body126886%_))) + (_%E126865126874%_)))) + (_%E126865126874%_))))) + (_%E126864126888%_))) gx#current-expander-context - _%ctx126753%_ + _%ctx126859%_ gx#current-expander-phi '0))) (define gx#core-expand-module-body - (lambda (_%body126548%_) - (letrec ((_%expand-special126550%_ - (lambda (_%hd126679%_ _%K126680%_ _%rest126681%_ _%r126682%_) - (let* ((_%e126683126700%_ _%hd126679%_) - (_%E126695126704%_ + (lambda (_%body126654%_) + (letrec ((_%expand-special126656%_ + (lambda (_%hd126785%_ _%K126786%_ _%rest126787%_ _%r126788%_) + (let* ((_%e126789126806%_ _%hd126785%_) + (_%E126801126810%_ (lambda () - (_%K126680%_ - _%rest126681%_ - (cons (gx#core-expand-top _%hd126679%_) - _%r126682%_)))) - (_%E126685126716%_ + (_%K126786%_ + _%rest126787%_ + (cons (gx#core-expand-top _%hd126785%_) + _%r126788%_)))) + (_%E126791126822%_ (lambda () - (if (gx#stx-pair? _%e126683126700%_) - (let ((_%e126696126708%_ - (gx#syntax-e _%e126683126700%_))) - (let ((_%hd126697126711%_ - (##car _%e126696126708%_)) - (_%tl126698126713%_ - (##cdr _%e126696126708%_))) + (if (gx#stx-pair? _%e126789126806%_) + (let ((_%e126802126814%_ + (gx#syntax-e _%e126789126806%_))) + (let ((_%hd126803126817%_ + (##car _%e126802126814%_)) + (_%tl126804126819%_ + (##cdr _%e126802126814%_))) (if (and (gx#identifier? - _%hd126697126711%_) + _%hd126803126817%_) (gx#core-identifier=? - _%hd126697126711%_ + _%hd126803126817%_ '%#export)) - (_%K126680%_ - _%rest126681%_ - (cons _%hd126679%_ _%r126682%_)) - (_%E126695126704%_)))) - (_%E126695126704%_)))) - (_%E126684126748%_ + (_%K126786%_ + _%rest126787%_ + (cons _%hd126785%_ _%r126788%_)) + (_%E126801126810%_)))) + (_%E126801126810%_)))) + (_%E126790126854%_ (lambda () - (if (gx#stx-pair? _%e126683126700%_) - (let ((_%e126686126720%_ - (gx#syntax-e _%e126683126700%_))) - (let ((_%hd126687126723%_ - (##car _%e126686126720%_)) - (_%tl126688126725%_ - (##cdr _%e126686126720%_))) + (if (gx#stx-pair? _%e126789126806%_) + (let ((_%e126792126826%_ + (gx#syntax-e _%e126789126806%_))) + (let ((_%hd126793126829%_ + (##car _%e126792126826%_)) + (_%tl126794126831%_ + (##cdr _%e126792126826%_))) (if (and (gx#identifier? - _%hd126687126723%_) + _%hd126793126829%_) (gx#core-identifier=? - _%hd126687126723%_ + _%hd126793126829%_ '%#define-values)) - (if (gx#stx-pair? _%tl126688126725%_) - (let ((_%e126689126728%_ + (if (gx#stx-pair? _%tl126794126831%_) + (let ((_%e126795126834%_ (gx#syntax-e - _%tl126688126725%_))) - (let ((_%hd126690126731%_ - (##car _%e126689126728%_)) - (_%tl126691126733%_ - (##cdr _%e126689126728%_))) - (let ((_%hd-bind126736%_ - _%hd126690126731%_)) + _%tl126794126831%_))) + (let ((_%hd126796126837%_ + (##car _%e126795126834%_)) + (_%tl126797126839%_ + (##cdr _%e126795126834%_))) + (let ((_%hd-bind126842%_ + _%hd126796126837%_)) (if (gx#stx-pair? - _%tl126691126733%_) - (let ((_%e126692126738%_ + _%tl126797126839%_) + (let ((_%e126798126844%_ (gx#syntax-e - _%tl126691126733%_))) - (let ((_%hd126693126741%_ + _%tl126797126839%_))) + (let ((_%hd126799126847%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e126692126738%_)) - (_%tl126694126743%_ (##cdr _%e126692126738%_))) - (let ((_%expr126746%_ _%hd126693126741%_)) - (if (gx#stx-null? _%tl126694126743%_) - (if (gx#core-bind-values? _%hd-bind126736%_) + (##car _%e126798126844%_)) + (_%tl126800126849%_ (##cdr _%e126798126844%_))) + (let ((_%expr126852%_ _%hd126799126847%_)) + (if (gx#stx-null? _%tl126800126849%_) + (if (gx#core-bind-values? _%hd-bind126842%_) (begin - (gx#core-bind-values!__0 _%hd-bind126736%_) - (_%K126680%_ - _%rest126681%_ - (cons _%hd126679%_ _%r126682%_))) - (_%E126685126716%_)) - (_%E126685126716%_))))) - (_%E126685126716%_))))) + (gx#core-bind-values!__0 _%hd-bind126842%_) + (_%K126786%_ + _%rest126787%_ + (cons _%hd126785%_ _%r126788%_))) + (_%E126791126822%_)) + (_%E126791126822%_))))) + (_%E126791126822%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126685126716%_)) - (_%E126685126716%_)))) - (_%E126685126716%_))))) - (_%E126684126748%_)))) - (_%expand-body126551%_ - (lambda (_%rbody126553%_) - (let _%lp126555%_ ((_%rest126557%_ _%rbody126553%_) - (_%body126558%_ '())) - (let* ((_%rest126559126567%_ _%rest126557%_) - (_%else126561126575%_ (lambda () _%body126558%_)) - (_%K126563126667%_ - (lambda (_%rest126578%_ _%hd126579%_) - (let* ((_%e126580126601%_ _%hd126579%_) - (_%E126596126605%_ + (_%E126791126822%_)) + (_%E126791126822%_)))) + (_%E126791126822%_))))) + (_%E126790126854%_)))) + (_%expand-body126657%_ + (lambda (_%rbody126659%_) + (let _%lp126661%_ ((_%rest126663%_ _%rbody126659%_) + (_%body126664%_ '())) + (let* ((_%rest126665126673%_ _%rest126663%_) + (_%else126667126681%_ (lambda () _%body126664%_)) + (_%K126669126773%_ + (lambda (_%rest126684%_ _%hd126685%_) + (let* ((_%e126686126707%_ _%hd126685%_) + (_%E126702126711%_ (lambda () - (_%lp126555%_ - _%rest126578%_ + (_%lp126661%_ + _%rest126684%_ (cons (gx#core-expand-expression - _%hd126579%_) - _%body126558%_)))) - (_%E126592126619%_ + _%hd126685%_) + _%body126664%_)))) + (_%E126698126725%_ (lambda () - (if (gx#stx-pair? _%e126580126601%_) - (let ((_%e126597126609%_ + (if (gx#stx-pair? _%e126686126707%_) + (let ((_%e126703126715%_ (gx#syntax-e - _%e126580126601%_))) - (let ((_%hd126598126612%_ - (##car _%e126597126609%_)) - (_%tl126599126614%_ - (##cdr _%e126597126609%_))) - (let ((_%form126617%_ - _%hd126598126612%_)) + _%e126686126707%_))) + (let ((_%hd126704126718%_ + (##car _%e126703126715%_)) + (_%tl126705126720%_ + (##cdr _%e126703126715%_))) + (let ((_%form126723%_ + _%hd126704126718%_)) (if (gx#core-bound-identifier?__% - _%form126617%_ + _%form126723%_ gx#special-form-binding?) - (_%lp126555%_ - _%rest126578%_ - (cons _%hd126579%_ - _%body126558%_)) - (_%E126596126605%_))))) - (_%E126596126605%_)))) - (_%E126582126631%_ + (_%lp126661%_ + _%rest126684%_ + (cons _%hd126685%_ + _%body126664%_)) + (_%E126702126711%_))))) + (_%E126702126711%_)))) + (_%E126688126737%_ (lambda () - (if (gx#stx-pair? _%e126580126601%_) - (let ((_%e126593126623%_ + (if (gx#stx-pair? _%e126686126707%_) + (let ((_%e126699126729%_ (gx#syntax-e - _%e126580126601%_))) - (let ((_%hd126594126626%_ - (##car _%e126593126623%_)) - (_%tl126595126628%_ - (##cdr _%e126593126623%_))) + _%e126686126707%_))) + (let ((_%hd126700126732%_ + (##car _%e126699126729%_)) + (_%tl126701126734%_ + (##cdr _%e126699126729%_))) (if (and (gx#identifier? - _%hd126594126626%_) + _%hd126700126732%_) (gx#core-identifier=? - _%hd126594126626%_ + _%hd126700126732%_ '%#export)) - (_%lp126555%_ - _%rest126578%_ + (_%lp126661%_ + _%rest126684%_ (cons (gx#core-expand-export%__0 - _%hd126579%_) - _%body126558%_)) - (_%E126592126619%_)))) - (_%E126592126619%_)))) - (_%E126581126663%_ + _%hd126685%_) + _%body126664%_)) + (_%E126698126725%_)))) + (_%E126698126725%_)))) + (_%E126687126769%_ (lambda () - (if (gx#stx-pair? _%e126580126601%_) - (let ((_%e126583126635%_ + (if (gx#stx-pair? _%e126686126707%_) + (let ((_%e126689126741%_ (gx#syntax-e - _%e126580126601%_))) - (let ((_%hd126584126638%_ - (##car _%e126583126635%_)) - (_%tl126585126640%_ - (##cdr _%e126583126635%_))) + _%e126686126707%_))) + (let ((_%hd126690126744%_ + (##car _%e126689126741%_)) + (_%tl126691126746%_ + (##cdr _%e126689126741%_))) (if (and (gx#identifier? - _%hd126584126638%_) + _%hd126690126744%_) (gx#core-identifier=? - _%hd126584126638%_ + _%hd126690126744%_ '%#define-values)) (if (gx#stx-pair? - _%tl126585126640%_) - (let ((_%e126586126643%_ + _%tl126691126746%_) + (let ((_%e126692126749%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126585126640%_))) - (let ((_%hd126587126646%_ (##car _%e126586126643%_)) - (_%tl126588126648%_ (##cdr _%e126586126643%_))) - (let ((_%hd-bind126651%_ _%hd126587126646%_)) - (if (gx#stx-pair? _%tl126588126648%_) - (let ((_%e126589126653%_ - (gx#syntax-e _%tl126588126648%_))) - (let ((_%hd126590126656%_ - (##car _%e126589126653%_)) - (_%tl126591126658%_ - (##cdr _%e126589126653%_))) - (let ((_%expr126661%_ _%hd126590126656%_)) - (if (gx#stx-null? _%tl126591126658%_) - (_%lp126555%_ - _%rest126578%_ + (gx#syntax-e _%tl126691126746%_))) + (let ((_%hd126693126752%_ (##car _%e126692126749%_)) + (_%tl126694126754%_ (##cdr _%e126692126749%_))) + (let ((_%hd-bind126757%_ _%hd126693126752%_)) + (if (gx#stx-pair? _%tl126694126754%_) + (let ((_%e126695126759%_ + (gx#syntax-e _%tl126694126754%_))) + (let ((_%hd126696126762%_ + (##car _%e126695126759%_)) + (_%tl126697126764%_ + (##cdr _%e126695126759%_))) + (let ((_%expr126767%_ _%hd126696126762%_)) + (if (gx#stx-null? _%tl126697126764%_) + (_%lp126661%_ + _%rest126684%_ (cons (gx#core-quote-syntax__1 (gx#core-list '%#define-values (gx#core-quote-bind-values - _%hd-bind126651%_) + _%hd-bind126757%_) (gx#core-expand-expression - _%expr126661%_)) - (gx#stx-source _%hd126579%_)) - _%body126558%_)) - (_%E126582126631%_))))) - (_%E126582126631%_))))) - (_%E126582126631%_)) - (_%E126582126631%_)))) + _%expr126767%_)) + (gx#stx-source _%hd126685%_)) + _%body126664%_)) + (_%E126688126737%_))))) + (_%E126688126737%_))))) + (_%E126688126737%_)) + (_%E126688126737%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126582126631%_))))) - (_%E126581126663%_))))) - (if (pair? _%rest126559126567%_) - (let ((_%hd126564126670%_ - (##car _%rest126559126567%_)) - (_%tl126565126672%_ - (##cdr _%rest126559126567%_))) - (let* ((_%hd126675%_ _%hd126564126670%_) - (_%rest126677%_ _%tl126565126672%_)) - (_%K126563126667%_ - _%rest126677%_ - _%hd126675%_))) - (_%else126561126575%_))))))) - (_%expand-body126551%_ + (_%E126688126737%_))))) + (_%E126687126769%_))))) + (if (pair? _%rest126665126673%_) + (let ((_%hd126670126776%_ + (##car _%rest126665126673%_)) + (_%tl126671126778%_ + (##cdr _%rest126665126673%_))) + (let* ((_%hd126781%_ _%hd126670126776%_) + (_%rest126783%_ _%tl126671126778%_)) + (_%K126669126773%_ + _%rest126783%_ + _%hd126781%_))) + (_%else126667126681%_))))))) + (_%expand-body126657%_ (gx#core-expand-block__% - (cons '%#begin-module _%body126548%_) - _%expand-special126550%_ + (cons '%#begin-module _%body126654%_) + _%expand-special126656%_ '#f values))))) (define gx#core-expand-import/export - (lambda (_%stx126389%_ - _%expanded?126390%_ - _%method126391%_ - _%current-phi126392%_ - _%expand1126393%_) - (letrec ((_%K126395%_ - (lambda (_%rest126515%_ _%r126516%_) - (let* ((_%e126517126524%_ _%rest126515%_) - (_%E126519126528%_ (lambda () _%r126516%_)) - (_%E126518126544%_ + (lambda (_%stx126495%_ + _%expanded?126496%_ + _%method126497%_ + _%current-phi126498%_ + _%expand1126499%_) + (letrec ((_%K126501%_ + (lambda (_%rest126621%_ _%r126622%_) + (let* ((_%e126623126630%_ _%rest126621%_) + (_%E126625126634%_ (lambda () _%r126622%_)) + (_%E126624126650%_ (lambda () - (if (gx#stx-pair? _%e126517126524%_) - (let ((_%e126520126532%_ - (gx#syntax-e _%e126517126524%_))) - (let ((_%hd126521126535%_ - (##car _%e126520126532%_)) - (_%tl126522126537%_ - (##cdr _%e126520126532%_))) - (let* ((_%hd126540%_ _%hd126521126535%_) - (_%rest126542%_ - _%tl126522126537%_)) - (_%step126396%_ - _%hd126540%_ - _%rest126542%_ - _%r126516%_)))) - (_%E126519126528%_))))) - (_%E126518126544%_)))) - (_%step126396%_ - (lambda (_%hd126429%_ _%rest126430%_ _%r126431%_) - (let* ((_%e126432126450%_ _%hd126429%_) - (_%E126445126454%_ + (if (gx#stx-pair? _%e126623126630%_) + (let ((_%e126626126638%_ + (gx#syntax-e _%e126623126630%_))) + (let ((_%hd126627126641%_ + (##car _%e126626126638%_)) + (_%tl126628126643%_ + (##cdr _%e126626126638%_))) + (let* ((_%hd126646%_ _%hd126627126641%_) + (_%rest126648%_ + _%tl126628126643%_)) + (_%step126502%_ + _%hd126646%_ + _%rest126648%_ + _%r126622%_)))) + (_%E126625126634%_))))) + (_%E126624126650%_)))) + (_%step126502%_ + (lambda (_%hd126535%_ _%rest126536%_ _%r126537%_) + (let* ((_%e126538126556%_ _%hd126535%_) + (_%E126551126560%_ (lambda () - (if (_%expanded?126390%_ (gx#stx-e _%hd126429%_)) - (_%K126395%_ - _%rest126430%_ - (cons (gx#stx-e _%hd126429%_) _%r126431%_)) - (_%expand1126393%_ - _%hd126429%_ - _%K126395%_ - _%rest126430%_ - _%r126431%_)))) - (_%E126441126470%_ + (if (_%expanded?126496%_ (gx#stx-e _%hd126535%_)) + (_%K126501%_ + _%rest126536%_ + (cons (gx#stx-e _%hd126535%_) _%r126537%_)) + (_%expand1126499%_ + _%hd126535%_ + _%K126501%_ + _%rest126536%_ + _%r126537%_)))) + (_%E126547126576%_ (lambda () - (if (gx#stx-pair? _%e126432126450%_) - (let ((_%e126446126458%_ - (gx#syntax-e _%e126432126450%_))) - (let ((_%hd126447126461%_ - (##car _%e126446126458%_)) - (_%tl126448126463%_ - (##cdr _%e126446126458%_))) - (let* ((_%macro126466%_ - _%hd126447126461%_) - (_%body126468%_ - _%tl126448126463%_)) + (if (gx#stx-pair? _%e126538126556%_) + (let ((_%e126552126564%_ + (gx#syntax-e _%e126538126556%_))) + (let ((_%hd126553126567%_ + (##car _%e126552126564%_)) + (_%tl126554126569%_ + (##cdr _%e126552126564%_))) + (let* ((_%macro126572%_ + _%hd126553126567%_) + (_%body126574%_ + _%tl126554126569%_)) (if (gx#core-bound-identifier?__% - _%macro126466%_ + _%macro126572%_ gx#syntax-binding?) - (_%K126395%_ + (_%K126501%_ (cons (gx#core-apply-expander__% (gx#syntax-local-e__0 - _%macro126466%_) - _%hd126429%_ - _%method126391%_) - _%rest126430%_) - _%r126431%_) - (_%E126445126454%_))))) - (_%E126445126454%_)))) - (_%E126434126484%_ + _%macro126572%_) + _%hd126535%_ + _%method126497%_) + _%rest126536%_) + _%r126537%_) + (_%E126551126560%_))))) + (_%E126551126560%_)))) + (_%E126540126590%_ (lambda () - (if (gx#stx-pair? _%e126432126450%_) - (let ((_%e126442126474%_ - (gx#syntax-e _%e126432126450%_))) - (let ((_%hd126443126477%_ - (##car _%e126442126474%_)) - (_%tl126444126479%_ - (##cdr _%e126442126474%_))) - (if (eq? (gx#stx-e _%hd126443126477%_) + (if (gx#stx-pair? _%e126538126556%_) + (let ((_%e126548126580%_ + (gx#syntax-e _%e126538126556%_))) + (let ((_%hd126549126583%_ + (##car _%e126548126580%_)) + (_%tl126550126585%_ + (##cdr _%e126548126580%_))) + (if (eq? (gx#stx-e _%hd126549126583%_) 'begin:) - (let ((_%body126482%_ - _%tl126444126479%_)) - (_%K126395%_ + (let ((_%body126588%_ + _%tl126550126585%_)) + (_%K126501%_ (gx#stx-foldr cons - _%rest126430%_ - _%body126482%_) - _%r126431%_)) - (_%E126441126470%_)))) - (_%E126441126470%_)))) - (_%E126433126511%_ + _%rest126536%_ + _%body126588%_) + _%r126537%_)) + (_%E126547126576%_)))) + (_%E126547126576%_)))) + (_%E126539126617%_ (lambda () - (if (gx#stx-pair? _%e126432126450%_) - (let ((_%e126435126488%_ - (gx#syntax-e _%e126432126450%_))) - (let ((_%hd126436126491%_ - (##car _%e126435126488%_)) - (_%tl126437126493%_ - (##cdr _%e126435126488%_))) - (if (eq? (gx#stx-e _%hd126436126491%_) + (if (gx#stx-pair? _%e126538126556%_) + (let ((_%e126541126594%_ + (gx#syntax-e _%e126538126556%_))) + (let ((_%hd126542126597%_ + (##car _%e126541126594%_)) + (_%tl126543126599%_ + (##cdr _%e126541126594%_))) + (if (eq? (gx#stx-e _%hd126542126597%_) 'phi:) - (if (gx#stx-pair? _%tl126437126493%_) - (let ((_%e126438126496%_ + (if (gx#stx-pair? _%tl126543126599%_) + (let ((_%e126544126602%_ (gx#syntax-e - _%tl126437126493%_))) - (let ((_%hd126439126499%_ - (##car _%e126438126496%_)) - (_%tl126440126501%_ - (##cdr _%e126438126496%_))) - (let* ((_%dphi126504%_ - _%hd126439126499%_) - (_%body126506%_ - _%tl126440126501%_)) + _%tl126543126599%_))) + (let ((_%hd126545126605%_ + (##car _%e126544126602%_)) + (_%tl126546126607%_ + (##cdr _%e126544126602%_))) + (let* ((_%dphi126610%_ + _%hd126545126605%_) + (_%body126612%_ + _%tl126546126607%_)) (if (gx#stx-fixnum? - _%dphi126504%_) - (let ((_%rbody126509%_ + _%dphi126610%_) + (let ((_%rbody126615%_ (__call-with-parameters (lambda () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (_%K126395%_ _%body126506%_ '())) - _%current-phi126392%_ - (fx+ (gx#stx-e _%dphi126504%_) - (_%current-phi126392%_))))) - (_%K126395%_ - _%rest126430%_ - (__foldr1 cons _%r126431%_ _%rbody126509%_))) - (_%E126434126484%_))))) + (_%K126501%_ _%body126612%_ '())) + _%current-phi126498%_ + (fx+ (gx#stx-e _%dphi126610%_) + (_%current-phi126498%_))))) + (_%K126501%_ + _%rest126536%_ + (__foldr1 cons _%r126537%_ _%rbody126615%_))) + (_%E126540126590%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126434126484%_)) - (_%E126434126484%_)))) - (_%E126434126484%_))))) - (_%E126433126511%_))))) - (let* ((_%e126397126404%_ _%stx126389%_) - (_%E126399126408%_ + (_%E126540126590%_)) + (_%E126540126590%_)))) + (_%E126540126590%_))))) + (_%E126539126617%_))))) + (let* ((_%e126503126510%_ _%stx126495%_) + (_%E126505126514%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126397126404%_))) - (_%E126398126425%_ + _%e126503126510%_))) + (_%E126504126531%_ (lambda () - (if (gx#stx-pair? _%e126397126404%_) - (let ((_%e126400126412%_ - (gx#syntax-e _%e126397126404%_))) - (let ((_%hd126401126415%_ (##car _%e126400126412%_)) - (_%tl126402126417%_ (##cdr _%e126400126412%_))) - (let ((_%body126420%_ _%tl126402126417%_)) - (if (_%current-phi126392%_) - (_%K126395%_ _%body126420%_ '()) + (if (gx#stx-pair? _%e126503126510%_) + (let ((_%e126506126518%_ + (gx#syntax-e _%e126503126510%_))) + (let ((_%hd126507126521%_ (##car _%e126506126518%_)) + (_%tl126508126523%_ (##cdr _%e126506126518%_))) + (let ((_%body126526%_ _%tl126508126523%_)) + (if (_%current-phi126498%_) + (_%K126501%_ _%body126526%_ '()) (__call-with-parameters - (lambda () (_%K126395%_ _%body126420%_ '())) - _%current-phi126392%_ + (lambda () (_%K126501%_ _%body126526%_ '())) + _%current-phi126498%_ (gx#current-expander-phi)))))) - (_%E126399126408%_))))) - (_%E126398126425%_))))) + (_%E126505126514%_))))) + (_%E126504126531%_))))) (define gx#core-expand-import%__% - (lambda (_%stx126043%_ _%internal-expand?126044%_) - (letrec ((_%expand1126046%_ - (lambda (_%hd126361%_ _%K126362%_ _%rest126363%_ _%r126364%_) - (if (gx#core-bound-module? _%hd126361%_) - (_%import1126047%_ - (gx#syntax-local-e__0 _%hd126361%_) - _%K126362%_ - _%rest126363%_ - _%r126364%_) - (if (gx#core-library-module-path? _%hd126361%_) - (_%import1126047%_ + (lambda (_%stx126149%_ _%internal-expand?126150%_) + (letrec ((_%expand1126152%_ + (lambda (_%hd126467%_ _%K126468%_ _%rest126469%_ _%r126470%_) + (if (gx#core-bound-module? _%hd126467%_) + (_%import1126153%_ + (gx#syntax-local-e__0 _%hd126467%_) + _%K126468%_ + _%rest126469%_ + _%r126470%_) + (if (gx#core-library-module-path? _%hd126467%_) + (_%import1126153%_ (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd126361%_)) - _%K126362%_ - _%rest126363%_ - _%r126364%_) + _%hd126467%_)) + _%K126468%_ + _%rest126469%_ + _%r126470%_) (if (gx#core-library-relative-module-path? - _%hd126361%_) - (_%import1126047%_ + _%hd126467%_) + (_%import1126153%_ (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd126361%_)) - _%K126362%_ - _%rest126363%_ - _%r126364%_) - (let ((_%e126370%_ (gx#stx-e _%hd126361%_))) - (if (pair? _%e126370%_) - (let ((_%$e126373%_ - (gx#stx-e (##car _%e126370%_)))) - (if (eq? 'spec: _%$e126373%_) - (_%import-spec126050%_ - _%hd126361%_ - _%K126362%_ - _%rest126363%_ - _%r126364%_) - (if (eq? 'in: _%$e126373%_) - (_%import-submodule126048%_ - _%hd126361%_ - _%K126362%_ - _%rest126363%_ - _%r126364%_) + _%hd126467%_)) + _%K126468%_ + _%rest126469%_ + _%r126470%_) + (let ((_%e126476%_ (gx#stx-e _%hd126467%_))) + (if (pair? _%e126476%_) + (let ((_%$e126479%_ + (gx#stx-e (##car _%e126476%_)))) + (if (eq? 'spec: _%$e126479%_) + (_%import-spec126156%_ + _%hd126467%_ + _%K126468%_ + _%rest126469%_ + _%r126470%_) + (if (eq? 'in: _%$e126479%_) + (_%import-submodule126154%_ + _%hd126467%_ + _%K126468%_ + _%rest126469%_ + _%r126470%_) (if (eq? 'runtime: - _%$e126373%_) - (_%import-runtime126049%_ - _%hd126361%_ - _%K126362%_ - _%rest126363%_ - _%r126364%_) + _%$e126479%_) + (_%import-runtime126155%_ + _%hd126467%_ + _%K126468%_ + _%rest126469%_ + _%r126470%_) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126043%_ - _%hd126361%_))))) - (if (string? _%e126370%_) - (_%import1126047%_ + _%stx126149%_ + _%hd126467%_))))) + (if (string? _%e126476%_) + (_%import1126153%_ (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd126361%_ - (gx#stx-source _%stx126043%_))) - _%K126362%_ - _%rest126363%_ - _%r126364%_) + _%hd126467%_ + (gx#stx-source _%stx126149%_))) + _%K126468%_ + _%rest126469%_ + _%r126470%_) (if (##structure-instance-of? - _%e126370%_ + _%e126476%_ 'gx#module-context::t) - (_%K126362%_ - _%rest126363%_ - (cons _%e126370%_ _%r126364%_)) + (_%K126468%_ + _%rest126469%_ + (cons _%e126476%_ _%r126470%_)) (gx#raise-syntax-error '#f '"Bad syntax; illegal import" - _%stx126043%_ - _%hd126361%_)))))))))) - (_%import1126047%_ - (lambda (_%ctx126350%_ - _%K126351%_ - _%rest126352%_ - _%r126353%_) - (let ((_%dphi126355%_ + _%stx126149%_ + _%hd126467%_)))))))))) + (_%import1126153%_ + (lambda (_%ctx126456%_ + _%K126457%_ + _%rest126458%_ + _%r126459%_) + (let ((_%dphi126461%_ (fx- (gx#current-import-expander-phi) (gx#current-expander-phi)))) - (_%K126351%_ - _%rest126352%_ + (_%K126457%_ + _%rest126458%_ (cons (##structure gx#import-set::t - _%ctx126350%_ - _%dphi126355%_ - (map (lambda (_%g126356126358%_) + _%ctx126456%_ + _%dphi126461%_ + (map (lambda (_%g126462126464%_) (gx#core-module-export->import__% - _%g126356126358%_ + _%g126462126464%_ '#f - _%dphi126355%_)) + _%dphi126461%_)) (##unchecked-structure-ref - _%ctx126350%_ + _%ctx126456%_ '9 '#f '#f))) - _%r126353%_))))) - (_%import-submodule126048%_ - (lambda (_%hd126317%_ _%K126318%_ _%rest126319%_ _%r126320%_) - (let* ((_%e126321126328%_ _%hd126317%_) - (_%E126323126332%_ + _%r126459%_))))) + (_%import-submodule126154%_ + (lambda (_%hd126423%_ _%K126424%_ _%rest126425%_ _%r126426%_) + (let* ((_%e126427126434%_ _%hd126423%_) + (_%E126429126438%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126321126328%_))) - (_%E126322126346%_ + _%e126427126434%_))) + (_%E126428126452%_ (lambda () - (if (gx#stx-pair? _%e126321126328%_) - (let ((_%e126324126336%_ - (gx#syntax-e _%e126321126328%_))) - (let ((_%hd126325126339%_ - (##car _%e126324126336%_)) - (_%tl126326126341%_ - (##cdr _%e126324126336%_))) - (let ((_%spath126344%_ - _%tl126326126341%_)) - (_%import1126047%_ - (_%import-spec-source126051%_ - _%spath126344%_) - _%K126318%_ - _%rest126319%_ - _%r126320%_)))) - (_%E126323126332%_))))) - (_%E126322126346%_)))) - (_%import-runtime126049%_ - (lambda (_%hd126284%_ _%K126285%_ _%rest126286%_ _%r126287%_) - (let* ((_%e126288126295%_ _%hd126284%_) - (_%E126290126299%_ + (if (gx#stx-pair? _%e126427126434%_) + (let ((_%e126430126442%_ + (gx#syntax-e _%e126427126434%_))) + (let ((_%hd126431126445%_ + (##car _%e126430126442%_)) + (_%tl126432126447%_ + (##cdr _%e126430126442%_))) + (let ((_%spath126450%_ + _%tl126432126447%_)) + (_%import1126153%_ + (_%import-spec-source126157%_ + _%spath126450%_) + _%K126424%_ + _%rest126425%_ + _%r126426%_)))) + (_%E126429126438%_))))) + (_%E126428126452%_)))) + (_%import-runtime126155%_ + (lambda (_%hd126390%_ _%K126391%_ _%rest126392%_ _%r126393%_) + (let* ((_%e126394126401%_ _%hd126390%_) + (_%E126396126405%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126288126295%_))) - (_%E126289126313%_ + _%e126394126401%_))) + (_%E126395126419%_ (lambda () - (if (gx#stx-pair? _%e126288126295%_) - (let ((_%e126291126303%_ - (gx#syntax-e _%e126288126295%_))) - (let ((_%hd126292126306%_ - (##car _%e126291126303%_)) - (_%tl126293126308%_ - (##cdr _%e126291126303%_))) - (let ((_%spath126311%_ - _%tl126293126308%_)) - (_%K126285%_ - _%rest126286%_ - (cons (_%import-spec-source126051%_ - _%spath126311%_) - _%r126287%_))))) - (_%E126290126299%_))))) - (_%E126289126313%_)))) - (_%import-spec126050%_ - (lambda (_%hd126122%_ _%K126123%_ _%rest126124%_ _%r126125%_) - (let* ((_%e126126126143%_ _%hd126122%_) - (_%E126135126147%_ + (if (gx#stx-pair? _%e126394126401%_) + (let ((_%e126397126409%_ + (gx#syntax-e _%e126394126401%_))) + (let ((_%hd126398126412%_ + (##car _%e126397126409%_)) + (_%tl126399126414%_ + (##cdr _%e126397126409%_))) + (let ((_%spath126417%_ + _%tl126399126414%_)) + (_%K126391%_ + _%rest126392%_ + (cons (_%import-spec-source126157%_ + _%spath126417%_) + _%r126393%_))))) + (_%E126396126405%_))))) + (_%E126395126419%_)))) + (_%import-spec126156%_ + (lambda (_%hd126228%_ _%K126229%_ _%rest126230%_ _%r126231%_) + (let* ((_%e126232126249%_ _%hd126228%_) + (_%E126241126253%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e126126126143%_))) - (_%E126128126258%_ + _%e126232126249%_))) + (_%E126234126364%_ (lambda () - (if (gx#stx-pair? _%e126126126143%_) - (let ((_%e126136126151%_ - (gx#syntax-e _%e126126126143%_))) - (let ((_%hd126137126154%_ - (##car _%e126136126151%_)) - (_%tl126138126156%_ - (##cdr _%e126136126151%_))) - (if (gx#stx-pair? _%tl126138126156%_) - (let ((_%e126139126159%_ + (if (gx#stx-pair? _%e126232126249%_) + (let ((_%e126242126257%_ + (gx#syntax-e _%e126232126249%_))) + (let ((_%hd126243126260%_ + (##car _%e126242126257%_)) + (_%tl126244126262%_ + (##cdr _%e126242126257%_))) + (if (gx#stx-pair? _%tl126244126262%_) + (let ((_%e126245126265%_ (gx#syntax-e - _%tl126138126156%_))) - (let ((_%hd126140126162%_ - (##car _%e126139126159%_)) - (_%tl126141126164%_ - (##cdr _%e126139126159%_))) - (let* ((_%path126167%_ - _%hd126140126162%_) - (_%specs126169%_ - _%tl126141126164%_)) - (let ((_%src-ctx126171%_ - (_%import-spec-source126051%_ - _%path126167%_)) - (_%exports126172%_ + _%tl126244126262%_))) + (let ((_%hd126246126268%_ + (##car _%e126245126265%_)) + (_%tl126247126270%_ + (##cdr _%e126245126265%_))) + (let* ((_%path126273%_ + _%hd126246126268%_) + (_%specs126275%_ + _%tl126247126270%_)) + (let ((_%src-ctx126277%_ + (_%import-spec-source126157%_ + _%path126273%_)) + (_%exports126278%_ (make-hash-table__% '#f absent-value @@ -2885,215 +2885,215 @@ absent-value absent-value absent-value)) - (_%specs126173%_ + (_%specs126279%_ (gx#syntax->list - _%specs126169%_))) + _%specs126275%_))) (for-each - (lambda (_%out126175%_) + (lambda (_%out126281%_) (__hash-put! - _%exports126172%_ + _%exports126278%_ (cons (##unchecked-structure-ref - _%out126175%_ + _%out126281%_ '3 '#f '#f) (##unchecked-structure-ref - _%out126175%_ + _%out126281%_ '4 '#f '#f)) - _%out126175%_)) + _%out126281%_)) (##unchecked-structure-ref - _%src-ctx126171%_ + _%src-ctx126277%_ '9 '#f '#f)) - (_%K126123%_ - _%rest126124%_ + (_%K126229%_ + _%rest126230%_ (__foldl1 - (lambda (_%spec126177%_ - _%r126178%_) - (let* ((_%e126179126195%_ - _%spec126177%_) - (_%E126181126199%_ + (lambda (_%spec126283%_ + _%r126284%_) + (let* ((_%e126285126301%_ + _%spec126283%_) + (_%E126287126305%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid syntax-case clause" - _%e126179126195%_))) - (_%E126180126254%_ + _%e126285126301%_))) + (_%E126286126360%_ (lambda () - (if (gx#stx-pair? _%e126179126195%_) - (let ((_%e126182126203%_ - (gx#syntax-e _%e126179126195%_))) - (let ((_%hd126183126206%_ - (##car _%e126182126203%_)) - (_%tl126184126208%_ - (##cdr _%e126182126203%_))) - (let ((_%phi126211%_ _%hd126183126206%_)) - (if (gx#stx-pair? _%tl126184126208%_) - (let ((_%e126185126213%_ - (gx#syntax-e _%tl126184126208%_))) - (let ((_%hd126186126216%_ - (##car _%e126185126213%_)) - (_%tl126187126218%_ - (##cdr _%e126185126213%_))) - (let ((_%name126221%_ - _%hd126186126216%_)) + (if (gx#stx-pair? _%e126285126301%_) + (let ((_%e126288126309%_ + (gx#syntax-e _%e126285126301%_))) + (let ((_%hd126289126312%_ + (##car _%e126288126309%_)) + (_%tl126290126314%_ + (##cdr _%e126288126309%_))) + (let ((_%phi126317%_ _%hd126289126312%_)) + (if (gx#stx-pair? _%tl126290126314%_) + (let ((_%e126291126319%_ + (gx#syntax-e _%tl126290126314%_))) + (let ((_%hd126292126322%_ + (##car _%e126291126319%_)) + (_%tl126293126324%_ + (##cdr _%e126291126319%_))) + (let ((_%name126327%_ + _%hd126292126322%_)) (if (gx#stx-pair? - _%tl126187126218%_) - (let ((_%e126188126223%_ + _%tl126293126324%_) + (let ((_%e126294126329%_ (gx#syntax-e - _%tl126187126218%_))) - (let ((_%hd126189126226%_ - (##car _%e126188126223%_)) - (_%tl126190126228%_ - (##cdr _%e126188126223%_))) - (let ((_%src-phi126231%_ - _%hd126189126226%_)) + _%tl126293126324%_))) + (let ((_%hd126295126332%_ + (##car _%e126294126329%_)) + (_%tl126296126334%_ + (##cdr _%e126294126329%_))) + (let ((_%src-phi126337%_ + _%hd126295126332%_)) (if (gx#stx-pair? - _%tl126190126228%_) - (let ((_%e126191126233%_ + _%tl126296126334%_) + (let ((_%e126297126339%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl126190126228%_))) - (let ((_%hd126192126236%_ (##car _%e126191126233%_)) - (_%tl126193126238%_ (##cdr _%e126191126233%_))) - (let ((_%src-name126241%_ _%hd126192126236%_)) - (if (gx#stx-null? _%tl126193126238%_) - (if (and (gx#stx-fixnum? _%src-phi126231%_) - (gx#identifier? _%src-name126241%_) - (gx#stx-fixnum? _%phi126211%_) - (gx#identifier? _%name126221%_)) - (let ((_%src-phi126243%_ - (gx#stx-e _%src-phi126231%_)) - (_%src-name126244%_ + (gx#syntax-e _%tl126296126334%_))) + (let ((_%hd126298126342%_ (##car _%e126297126339%_)) + (_%tl126299126344%_ (##cdr _%e126297126339%_))) + (let ((_%src-name126347%_ _%hd126298126342%_)) + (if (gx#stx-null? _%tl126299126344%_) + (if (and (gx#stx-fixnum? _%src-phi126337%_) + (gx#identifier? _%src-name126347%_) + (gx#stx-fixnum? _%phi126317%_) + (gx#identifier? _%name126327%_)) + (let ((_%src-phi126349%_ + (gx#stx-e _%src-phi126337%_)) + (_%src-name126350%_ (gx#core-identifier-key - _%src-name126241%_)) - (_%phi126245%_ (gx#stx-e _%phi126211%_)) - (_%name126246%_ + _%src-name126347%_)) + (_%phi126351%_ (gx#stx-e _%phi126317%_)) + (_%name126352%_ (gx#core-identifier-key - _%name126221%_))) - (let ((_%$e126248%_ + _%name126327%_))) + (let ((_%$e126354%_ (__hash-get - _%exports126172%_ - (cons _%src-phi126243%_ - _%src-name126244%_)))) - (if _%$e126248%_ - ((lambda (_%out126251%_) + _%exports126278%_ + (cons _%src-phi126349%_ + _%src-name126350%_)))) + (if _%$e126354%_ + ((lambda (_%out126357%_) (cons (gx#core-module-export->import__% - _%out126251%_ - _%name126246%_ - (fx- _%phi126245%_ - _%src-phi126243%_)) - _%r126178%_)) - _%$e126248%_) + _%out126357%_ + _%name126352%_ + (fx- _%phi126351%_ + _%src-phi126349%_)) + _%r126284%_)) + _%$e126354%_) (gx#raise-syntax-error '#f '"Bad syntax; no matching export" - _%stx126043%_ - _%hd126122%_)))) - (_%E126181126199%_)) - (_%E126181126199%_))))) - (_%E126181126199%_))))) + _%stx126149%_ + _%hd126228%_)))) + (_%E126287126305%_)) + (_%E126287126305%_))))) + (_%E126287126305%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E126181126199%_))))) - (_%E126181126199%_))))) - (_%E126181126199%_))))) - (_%E126180126254%_))) + (_%E126287126305%_))))) + (_%E126287126305%_))))) + (_%E126287126305%_))))) + (_%E126286126360%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r126125%_ - _%specs126173%_)))))) - (_%E126135126147%_)))) - (_%E126135126147%_)))) - (_%E126127126280%_ + _%r126231%_ + _%specs126279%_)))))) + (_%E126241126253%_)))) + (_%E126241126253%_)))) + (_%E126233126386%_ (lambda () - (if (gx#stx-pair? _%e126126126143%_) - (let ((_%e126129126262%_ - (gx#syntax-e _%e126126126143%_))) - (let ((_%hd126130126265%_ - (##car _%e126129126262%_)) - (_%tl126131126267%_ - (##cdr _%e126129126262%_))) - (if (gx#stx-pair? _%tl126131126267%_) - (let ((_%e126132126270%_ + (if (gx#stx-pair? _%e126232126249%_) + (let ((_%e126235126368%_ + (gx#syntax-e _%e126232126249%_))) + (let ((_%hd126236126371%_ + (##car _%e126235126368%_)) + (_%tl126237126373%_ + (##cdr _%e126235126368%_))) + (if (gx#stx-pair? _%tl126237126373%_) + (let ((_%e126238126376%_ (gx#syntax-e - _%tl126131126267%_))) - (let ((_%hd126133126273%_ - (##car _%e126132126270%_)) - (_%tl126134126275%_ - (##cdr _%e126132126270%_))) - (let ((_%path126278%_ - _%hd126133126273%_)) + _%tl126237126373%_))) + (let ((_%hd126239126379%_ + (##car _%e126238126376%_)) + (_%tl126240126381%_ + (##cdr _%e126238126376%_))) + (let ((_%path126384%_ + _%hd126239126379%_)) (if (gx#stx-null? - _%tl126134126275%_) - (_%K126123%_ - _%rest126124%_ - (cons (_%import-spec-source126051%_ - _%path126278%_) - _%r126125%_)) - (_%E126128126258%_))))) - (_%E126128126258%_)))) - (_%E126128126258%_))))) - (_%E126127126280%_)))) - (_%import-spec-source126051%_ - (lambda (_%spath126120%_) + _%tl126240126381%_) + (_%K126229%_ + _%rest126230%_ + (cons (_%import-spec-source126157%_ + _%path126384%_) + _%r126231%_)) + (_%E126234126364%_))))) + (_%E126234126364%_)))) + (_%E126234126364%_))))) + (_%E126233126386%_)))) + (_%import-spec-source126157%_ + (lambda (_%spath126226%_) (gx#core-import-nested-module - _%spath126120%_ - _%stx126043%_))) - (_%import!126052%_ - (lambda (_%rbody126065%_) - (letrec* ((_%current-ctx126067%_ + _%spath126226%_ + _%stx126149%_))) + (_%import!126158%_ + (lambda (_%rbody126171%_) + (letrec* ((_%current-ctx126173%_ (gx#current-expander-context)) - (_%deps126068%_ (make-hash-table-eq)) - (_%bind!126069%_ - (lambda (_%hd126118%_) + (_%deps126174%_ (make-hash-table-eq)) + (_%bind!126175%_ + (lambda (_%hd126224%_) (gx#core-bind-import!__1 - _%hd126118%_ - _%current-ctx126067%_)))) - (let _%lp126071%_ ((_%rest126073%_ _%rbody126065%_) - (_%body126074%_ '())) - (let* ((_%rest126075126083%_ _%rest126073%_) - (_%else126077126094%_ + _%hd126224%_ + _%current-ctx126173%_)))) + (let _%lp126177%_ ((_%rest126179%_ _%rbody126171%_) + (_%body126180%_ '())) + (let* ((_%rest126181126189%_ _%rest126179%_) + (_%else126183126200%_ (lambda () (if (##structure-instance-of? - _%current-ctx126067%_ + _%current-ctx126173%_ 'gx#module-context::t) (##unchecked-structure-set! - _%current-ctx126067%_ + _%current-ctx126173%_ (__foldl1 cons (##unchecked-structure-ref - _%current-ctx126067%_ + _%current-ctx126173%_ '8 '#f '#f) - _%body126074%_) + _%body126180%_) '8 '#f '#f) '#!void) (__hash-for-each - (lambda (_%ctx126091%_ _%_126092%_) - (gx#eval-module _%ctx126091%_)) - _%deps126068%_) - _%body126074%_)) - (_%K126079126106%_ - (lambda (_%rest126097%_ _%hd126098%_) + (lambda (_%ctx126197%_ _%_126198%_) + (gx#eval-module _%ctx126197%_)) + _%deps126174%_) + _%body126180%_)) + (_%K126185126212%_ + (lambda (_%rest126203%_ _%hd126204%_) (if (##structure-direct-instance-of? - _%hd126098%_ + _%hd126204%_ 'gx#module-import::t) (let () - (_%bind!126069%_ _%hd126098%_) + (_%bind!126175%_ _%hd126204%_) (if (and (fxpositive? (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '3 '#f '#f)) (fxzero? (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '1 '#f '#f) @@ -3101,10 +3101,10 @@ '#f '#f))) (__hash-put! - _%deps126068%_ + _%deps126174%_ (##unchecked-structure-ref (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '1 '#f '#f) @@ -3114,155 +3114,155 @@ '#t) '#!void)) (if (##structure-direct-instance-of? - _%hd126098%_ + _%hd126204%_ 'gx#import-set::t) (let () (for-each - _%bind!126069%_ + _%bind!126175%_ (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '3 '#f '#f)) (if (fxpositive? (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '2 '#f '#f)) (__hash-put! - _%deps126068%_ + _%deps126174%_ (##unchecked-structure-ref - _%hd126098%_ + _%hd126204%_ '1 '#f '#f) '#t) '#!void)) - (let ((_%$e126102%_ + (let ((_%$e126208%_ (##structure-instance-of? - _%hd126098%_ + _%hd126204%_ 'gx#module-context::t))) - (if _%$e126102%_ - _%$e126102%_ + (if _%$e126208%_ + _%$e126208%_ (gx#raise-syntax-error '#f '"Unexpected import" - _%stx126043%_ - _%hd126098%_))))) - (_%lp126071%_ - _%rest126097%_ - (cons _%hd126098%_ _%body126074%_))))) - (if (pair? _%rest126075126083%_) - (let ((_%hd126080126109%_ - (##car _%rest126075126083%_)) - (_%tl126081126111%_ - (##cdr _%rest126075126083%_))) - (let* ((_%hd126114%_ _%hd126080126109%_) - (_%rest126116%_ _%tl126081126111%_)) - (_%K126079126106%_ - _%rest126116%_ - _%hd126114%_))) - (_%else126077126094%_))))))) - (_%expanded-import?126053%_ - (lambda (_%e126057%_) - (let ((_%$e126059%_ + _%stx126149%_ + _%hd126204%_))))) + (_%lp126177%_ + _%rest126203%_ + (cons _%hd126204%_ _%body126180%_))))) + (if (pair? _%rest126181126189%_) + (let ((_%hd126186126215%_ + (##car _%rest126181126189%_)) + (_%tl126187126217%_ + (##cdr _%rest126181126189%_))) + (let* ((_%hd126220%_ _%hd126186126215%_) + (_%rest126222%_ _%tl126187126217%_)) + (_%K126185126212%_ + _%rest126222%_ + _%hd126220%_))) + (_%else126183126200%_))))))) + (_%expanded-import?126159%_ + (lambda (_%e126163%_) + (let ((_%$e126165%_ (##structure-direct-instance-of? - _%e126057%_ + _%e126163%_ 'gx#import-set::t))) - (if _%$e126059%_ - _%$e126059%_ - (let ((_%$e126062%_ + (if _%$e126165%_ + _%$e126165%_ + (let ((_%$e126168%_ (##structure-direct-instance-of? - _%e126057%_ + _%e126163%_ 'gx#module-import::t))) - (if _%$e126062%_ - _%$e126062%_ + (if _%$e126168%_ + _%$e126168%_ (##structure-instance-of? - _%e126057%_ + _%e126163%_ 'gx#module-context::t)))))))) - (let ((_%rbody126055%_ + (let ((_%rbody126161%_ (gx#core-expand-import/export - _%stx126043%_ - _%expanded-import?126053%_ + _%stx126149%_ + _%expanded-import?126159%_ 'apply-import-expander gx#current-import-expander-phi - _%expand1126046%_))) - (if _%internal-expand?126044%_ - (reverse _%rbody126055%_) + _%expand1126152%_))) + (if _%internal-expand?126150%_ + (reverse _%rbody126161%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#import (_%import!126052%_ _%rbody126055%_)) - (gx#stx-source _%stx126043%_))))))) + (gx#core-cons '%#import (_%import!126158%_ _%rbody126161%_)) + (gx#stx-source _%stx126149%_))))))) (define gx#core-expand-import%__0 - (lambda (_%stx126382%_) - (let ((_%internal-expand?126384%_ '#f)) + (lambda (_%stx126488%_) + (let ((_%internal-expand?126490%_ '#f)) (gx#core-expand-import%__% - _%stx126382%_ - _%internal-expand?126384%_)))) + _%stx126488%_ + _%internal-expand?126490%_)))) (define gx#core-expand-import% - (lambda _g129035_ - (let ((_g129034_ (##length _g129035_))) - (cond ((##fx= _g129034_ 1) - (apply gx#core-expand-import%__0 _g129035_)) - ((##fx= _g129034_ 2) - (apply gx#core-expand-import%__% _g129035_)) + (lambda _g129141_ + (let ((_g129140_ (##length _g129141_))) + (cond ((##fx= _g129140_ 1) + (apply gx#core-expand-import%__0 _g129141_)) + ((##fx= _g129140_ 2) + (apply gx#core-expand-import%__% _g129141_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-import% - _g129035_)))))) + _g129141_)))))) (define gx#core-import-nested-module - (lambda (_%spath125970%_ _%where125971%_) - (let* ((_%e125972125979%_ _%spath125970%_) - (_%E125974125983%_ + (lambda (_%spath126076%_ _%where126077%_) + (let* ((_%e126078126085%_ _%spath126076%_) + (_%E126080126089%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125972125979%_))) - (_%E125973126038%_ + _%e126078126085%_))) + (_%E126079126144%_ (lambda () - (if (gx#stx-pair? _%e125972125979%_) - (let ((_%e125975125987%_ - (gx#syntax-e _%e125972125979%_))) - (let ((_%hd125976125990%_ (##car _%e125975125987%_)) - (_%tl125977125992%_ (##cdr _%e125975125987%_))) - (let* ((_%origin125995%_ _%hd125976125990%_) - (_%sub125997%_ _%tl125977125992%_) - (_%origin-ctx125999%_ - (if (gx#stx-false? _%origin125995%_) + (if (gx#stx-pair? _%e126078126085%_) + (let ((_%e126081126093%_ + (gx#syntax-e _%e126078126085%_))) + (let ((_%hd126082126096%_ (##car _%e126081126093%_)) + (_%tl126083126098%_ (##cdr _%e126081126093%_))) + (let* ((_%origin126101%_ _%hd126082126096%_) + (_%sub126103%_ _%tl126083126098%_) + (_%origin-ctx126105%_ + (if (gx#stx-false? _%origin126101%_) (gx#current-expander-context) - (gx#import-module__0 _%origin125995%_)))) - (let _%lp126001%_ ((_%rest126003%_ _%sub125997%_) - (_%ctx126004%_ - _%origin-ctx125999%_)) - (let* ((_%e126005126012%_ _%rest126003%_) - (_%E126007126016%_ - (lambda () _%ctx126004%_)) - (_%E126006126034%_ + (gx#import-module__0 _%origin126101%_)))) + (let _%lp126107%_ ((_%rest126109%_ _%sub126103%_) + (_%ctx126110%_ + _%origin-ctx126105%_)) + (let* ((_%e126111126118%_ _%rest126109%_) + (_%E126113126122%_ + (lambda () _%ctx126110%_)) + (_%E126112126140%_ (lambda () - (if (gx#stx-pair? _%e126005126012%_) - (let ((_%e126008126020%_ + (if (gx#stx-pair? _%e126111126118%_) + (let ((_%e126114126126%_ (gx#syntax-e - _%e126005126012%_))) - (let ((_%hd126009126023%_ - (##car _%e126008126020%_)) - (_%tl126010126025%_ - (##cdr _%e126008126020%_))) - (let* ((_%id126028%_ - _%hd126009126023%_) - (_%rest126030%_ - _%tl126010126025%_) - (_%bind126032%_ + _%e126111126118%_))) + (let ((_%hd126115126129%_ + (##car _%e126114126126%_)) + (_%tl126116126131%_ + (##cdr _%e126114126126%_))) + (let* ((_%id126134%_ + _%hd126115126129%_) + (_%rest126136%_ + _%tl126116126131%_) + (_%bind126138%_ (gx#resolve-identifier__% - _%id126028%_ + _%id126134%_ '0 - _%ctx126004%_))) + _%ctx126110%_))) (if (and (##structure-direct-instance-of? - _%bind126032%_ + _%bind126138%_ 'gx#syntax-binding::t) (##structure-instance-of? (##unchecked-structure-ref - _%bind126032%_ + _%bind126138%_ '4 '#f '#f) @@ -3271,804 +3271,804 @@ (gx#raise-syntax-error '#f '"Bad syntax; not bound as module" - _%where125971%_ - _%spath125970%_ - _%id126028%_)) - (_%lp126001%_ - _%rest126030%_ + _%where126077%_ + _%spath126076%_ + _%id126134%_)) + (_%lp126107%_ + _%rest126136%_ (##unchecked-structure-ref - _%bind126032%_ + _%bind126138%_ '4 '#f '#f))))) - (_%E126007126016%_))))) - (_%E126006126034%_)))))) - (_%E125974125983%_))))) - (_%E125973126038%_)))) + (_%E126113126122%_))))) + (_%E126112126140%_)))))) + (_%E126080126089%_))))) + (_%E126079126144%_)))) (define gx#core-expand-import-source - (lambda (_%hd125968%_) + (lambda (_%hd126074%_) (gx#core-expand-import%__% - (cons 'import-internal% (cons _%hd125968%_ '())) + (cons 'import-internal% (cons _%hd126074%_ '())) '#t))) (define gx#core-expand-export%__% - (lambda (_%stx125462%_ _%internal-expand?125463%_) - (letrec* ((_%make-export__128963128964%_ - (lambda (_%bind125916%_ - _%phi125917%_ - _%ctx125918%_ - _%name125919%_) - (let* ((_%key125921%_ + (lambda (_%stx125568%_ _%internal-expand?125569%_) + (letrec* ((_%make-export__129069129070%_ + (lambda (_%bind126022%_ + _%phi126023%_ + _%ctx126024%_ + _%name126025%_) + (let* ((_%key126027%_ (##unchecked-structure-ref - _%bind125916%_ + _%bind126022%_ '2 '#f '#f)) - (_%export-key125923%_ - (if _%name125919%_ - (gx#core-identifier-key _%name125919%_) - _%key125921%_))) + (_%export-key126029%_ + (if _%name126025%_ + (gx#core-identifier-key _%name126025%_) + _%key126027%_))) (##structure gx#module-export::t - _%ctx125918%_ - _%key125921%_ - _%phi125917%_ - _%export-key125923%_ - (let ((_%$e125926%_ + _%ctx126024%_ + _%key126027%_ + _%phi126023%_ + _%export-key126029%_ + (let ((_%$e126032%_ (##structure-instance-of? - _%bind125916%_ + _%bind126022%_ 'gx#extern-binding::t))) - (if _%$e125926%_ - _%$e125926%_ + (if _%$e126032%_ + _%$e126032%_ (##structure-direct-instance-of? - _%bind125916%_ + _%bind126022%_ 'gx#import-binding::t))))))) - (_%make-export__0__128965128968%_ - (lambda (_%bind125932%_) - (let* ((_%phi125934%_ (gx#current-export-expander-phi)) - (_%ctx125936%_ (gx#current-expander-context)) - (_%name125938%_ '#f)) - (_%make-export__128963128964%_ - _%bind125932%_ - _%phi125934%_ - _%ctx125936%_ - _%name125938%_)))) - (_%make-export__1__128966128969%_ - (lambda (_%bind125940%_ _%phi125941%_) - (let* ((_%ctx125943%_ (gx#current-expander-context)) - (_%name125945%_ '#f)) - (_%make-export__128963128964%_ - _%bind125940%_ - _%phi125941%_ - _%ctx125943%_ - _%name125945%_)))) - (_%make-export__2__128967128970%_ - (lambda (_%bind125947%_ _%phi125948%_ _%ctx125949%_) - (let ((_%name125951%_ '#f)) - (_%make-export__128963128964%_ - _%bind125947%_ - _%phi125948%_ - _%ctx125949%_ - _%name125951%_)))) - (_%make-export125465%_ - (lambda _g129037_ - (let ((_g129036_ (##length _g129037_))) - (cond ((##fx= _g129036_ 1) - (apply _%make-export__0__128965128968%_ - _g129037_)) - ((##fx= _g129036_ 2) - (apply _%make-export__1__128966128969%_ - _g129037_)) - ((##fx= _g129036_ 3) - (apply _%make-export__2__128967128970%_ - _g129037_)) - ((##fx= _g129036_ 4) - (apply _%make-export__128963128964%_ _g129037_)) + (_%make-export__0__129071129074%_ + (lambda (_%bind126038%_) + (let* ((_%phi126040%_ (gx#current-export-expander-phi)) + (_%ctx126042%_ (gx#current-expander-context)) + (_%name126044%_ '#f)) + (_%make-export__129069129070%_ + _%bind126038%_ + _%phi126040%_ + _%ctx126042%_ + _%name126044%_)))) + (_%make-export__1__129072129075%_ + (lambda (_%bind126046%_ _%phi126047%_) + (let* ((_%ctx126049%_ (gx#current-expander-context)) + (_%name126051%_ '#f)) + (_%make-export__129069129070%_ + _%bind126046%_ + _%phi126047%_ + _%ctx126049%_ + _%name126051%_)))) + (_%make-export__2__129073129076%_ + (lambda (_%bind126053%_ _%phi126054%_ _%ctx126055%_) + (let ((_%name126057%_ '#f)) + (_%make-export__129069129070%_ + _%bind126053%_ + _%phi126054%_ + _%ctx126055%_ + _%name126057%_)))) + (_%make-export125571%_ + (lambda _g129143_ + (let ((_g129142_ (##length _g129143_))) + (cond ((##fx= _g129142_ 1) + (apply _%make-export__0__129071129074%_ + _g129143_)) + ((##fx= _g129142_ 2) + (apply _%make-export__1__129072129075%_ + _g129143_)) + ((##fx= _g129142_ 3) + (apply _%make-export__2__129073129076%_ + _g129143_)) + ((##fx= _g129142_ 4) + (apply _%make-export__129069129070%_ _g129143_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g129037_)))))) - (_%expand1125466%_ - (lambda (_%hd125621%_ - _%K125622%_ - _%rest125623%_ - _%r125624%_) - (let* ((_%e125625125657%_ _%hd125621%_) - (_%E125652125661%_ + _g129143_)))))) + (_%expand1125572%_ + (lambda (_%hd125727%_ + _%K125728%_ + _%rest125729%_ + _%r125730%_) + (let* ((_%e125731125763%_ _%hd125727%_) + (_%E125758125767%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal export" - _%stx125462%_ - _%hd125621%_))) - (_%E125642125745%_ + _%stx125568%_ + _%hd125727%_))) + (_%E125748125851%_ (lambda () - (if (gx#stx-pair? _%e125625125657%_) - (let ((_%e125653125665%_ - (gx#syntax-e _%e125625125657%_))) - (let ((_%hd125654125668%_ - (##car _%e125653125665%_)) - (_%tl125655125670%_ - (##cdr _%e125653125665%_))) - (if (eq? (gx#stx-e _%hd125654125668%_) + (if (gx#stx-pair? _%e125731125763%_) + (let ((_%e125759125771%_ + (gx#syntax-e _%e125731125763%_))) + (let ((_%hd125760125774%_ + (##car _%e125759125771%_)) + (_%tl125761125776%_ + (##cdr _%e125759125771%_))) + (if (eq? (gx#stx-e _%hd125760125774%_) 'import:) - (let ((_%in125673%_ - _%tl125655125670%_)) - (if (gx#stx-list? _%in125673%_) - (let _%lp125675%_ ((_%in-rest125677%_ + (let ((_%in125779%_ + _%tl125761125776%_)) + (if (gx#stx-list? _%in125779%_) + (let _%lp125781%_ ((_%in-rest125783%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%in125673%_) - (_%r125678%_ _%r125624%_)) + _%in125779%_) + (_%r125784%_ _%r125730%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%e125679125686%_ - _%in-rest125677%_) - (_%E125681125690%_ + (let* ((_%e125785125792%_ + _%in-rest125783%_) + (_%E125787125796%_ (lambda () - (_%K125622%_ - _%rest125623%_ - _%r125678%_))) - (_%E125680125741%_ + (_%K125728%_ + _%rest125729%_ + _%r125784%_))) + (_%E125786125847%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125679125686%_) - (let ((_%e125682125694%_ - (gx#syntax-e _%e125679125686%_))) - (let ((_%hd125683125697%_ (##car _%e125682125694%_)) - (_%tl125684125699%_ - (##cdr _%e125682125694%_))) - (let* ((_%hd125702%_ _%hd125683125697%_) - (_%in-rest125704%_ _%tl125684125699%_) - (_%src125739%_ - (if (gx#core-bound-module? _%hd125702%_) - (gx#syntax-local-e__0 _%hd125702%_) + _%e125785125792%_) + (let ((_%e125788125800%_ + (gx#syntax-e _%e125785125792%_))) + (let ((_%hd125789125803%_ (##car _%e125788125800%_)) + (_%tl125790125805%_ + (##cdr _%e125788125800%_))) + (let* ((_%hd125808%_ _%hd125789125803%_) + (_%in-rest125810%_ _%tl125790125805%_) + (_%src125845%_ + (if (gx#core-bound-module? _%hd125808%_) + (gx#syntax-local-e__0 _%hd125808%_) (if (gx#core-library-module-path? - _%hd125702%_) + _%hd125808%_) (gx#import-module__0 (gx#core-resolve-library-module-path - _%hd125702%_)) + _%hd125808%_)) (if (gx#core-library-relative-module-path? - _%hd125702%_) + _%hd125808%_) (gx#import-module__0 (gx#core-resolve-library-relative-module-path - _%hd125702%_)) + _%hd125808%_)) (if (gx#stx-string? - _%hd125702%_) + _%hd125808%_) (gx#import-module__0 (gx#core-resolve-module-path__% - _%hd125702%_ + _%hd125808%_ (gx#stx-source - _%stx125462%_))) - (let* ((_%e125710125717%_ - _%hd125702%_) - (_%E125712125721%_ + _%stx125568%_))) + (let* ((_%e125816125823%_ + _%hd125808%_) + (_%E125818125827%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; illegal re-export" - _%stx125462%_ - _%hd125702%_))) - (_%E125711125735%_ + _%stx125568%_ + _%hd125808%_))) + (_%E125817125841%_ (lambda () (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%e125710125717%_) - (let ((_%e125713125725%_ - (gx#syntax-e _%e125710125717%_))) - (let ((_%hd125714125728%_ - (##car _%e125713125725%_)) - (_%tl125715125730%_ - (##cdr _%e125713125725%_))) - (if (eq? (gx#stx-e _%hd125714125728%_) 'in:) - (let ((_%spath125733%_ _%tl125715125730%_)) + _%e125816125823%_) + (let ((_%e125819125831%_ + (gx#syntax-e _%e125816125823%_))) + (let ((_%hd125820125834%_ + (##car _%e125819125831%_)) + (_%tl125821125836%_ + (##cdr _%e125819125831%_))) + (if (eq? (gx#stx-e _%hd125820125834%_) 'in:) + (let ((_%spath125839%_ _%tl125821125836%_)) (gx#core-import-nested-module - _%spath125733%_ - _%stx125462%_)) - (_%E125712125721%_)))) - (_%E125712125721%_))))) - (_%E125711125735%_)))))))) + _%spath125839%_ + _%stx125568%_)) + (_%E125818125827%_)))) + (_%E125818125827%_))))) + (_%E125817125841%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%lp125675%_ - _%in-rest125704%_ - (_%export-imports125467%_ - _%src125739%_ - _%r125678%_))))) - (_%E125681125690%_))))) + (_%lp125781%_ + _%in-rest125810%_ + (_%export-imports125573%_ + _%src125845%_ + _%r125784%_))))) + (_%E125787125796%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125680125741%_))) - (_%E125652125661%_))) - (_%E125652125661%_)))) - (_%E125652125661%_)))) - (_%E125629125785%_ + (_%E125786125847%_))) + (_%E125758125767%_))) + (_%E125758125767%_)))) + (_%E125758125767%_)))) + (_%E125735125891%_ (lambda () - (if (gx#stx-pair? _%e125625125657%_) - (let ((_%e125643125749%_ - (gx#syntax-e _%e125625125657%_))) - (let ((_%hd125644125752%_ - (##car _%e125643125749%_)) - (_%tl125645125754%_ - (##cdr _%e125643125749%_))) - (if (eq? (gx#stx-e _%hd125644125752%_) + (if (gx#stx-pair? _%e125731125763%_) + (let ((_%e125749125855%_ + (gx#syntax-e _%e125731125763%_))) + (let ((_%hd125750125858%_ + (##car _%e125749125855%_)) + (_%tl125751125860%_ + (##cdr _%e125749125855%_))) + (if (eq? (gx#stx-e _%hd125750125858%_) 'rename:) (if (gx#stx-pair? - _%tl125645125754%_) - (let ((_%e125646125757%_ + _%tl125751125860%_) + (let ((_%e125752125863%_ (gx#syntax-e - _%tl125645125754%_))) - (let ((_%hd125647125760%_ - (##car _%e125646125757%_)) - (_%tl125648125762%_ - (##cdr _%e125646125757%_))) - (let ((_%id125765%_ - _%hd125647125760%_)) + _%tl125751125860%_))) + (let ((_%hd125753125866%_ + (##car _%e125752125863%_)) + (_%tl125754125868%_ + (##cdr _%e125752125863%_))) + (let ((_%id125871%_ + _%hd125753125866%_)) (if (gx#stx-pair? - _%tl125648125762%_) - (let ((_%e125649125767%_ + _%tl125754125868%_) + (let ((_%e125755125873%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125648125762%_))) - (let ((_%hd125650125770%_ (##car _%e125649125767%_)) - (_%tl125651125772%_ (##cdr _%e125649125767%_))) - (let ((_%name125775%_ _%hd125650125770%_)) - (if (gx#stx-null? _%tl125651125772%_) - (let* ((_%phi125777%_ + _%tl125754125868%_))) + (let ((_%hd125756125876%_ (##car _%e125755125873%_)) + (_%tl125757125878%_ (##cdr _%e125755125873%_))) + (let ((_%name125881%_ _%hd125756125876%_)) + (if (gx#stx-null? _%tl125757125878%_) + (let* ((_%phi125883%_ (gx#current-export-expander-phi)) - (_%$e125779%_ + (_%$e125885%_ (gx#core-resolve-identifier__1 - _%id125765%_ - _%phi125777%_))) - (if _%$e125779%_ - ((lambda (_%bind125782%_) - (_%K125622%_ - _%rest125623%_ - (cons (_%make-export__128963128964%_ - _%bind125782%_ - _%phi125777%_ + _%id125871%_ + _%phi125883%_))) + (if _%$e125885%_ + ((lambda (_%bind125888%_) + (_%K125728%_ + _%rest125729%_ + (cons (_%make-export__129069129070%_ + _%bind125888%_ + _%phi125883%_ (gx#current-expander-context) - _%name125775%_) - _%r125624%_))) - _%$e125779%_) + _%name125881%_) + _%r125730%_))) + _%$e125885%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125462%_ - _%hd125621%_ - _%id125765%_))) - (_%E125642125745%_))))) - (_%E125642125745%_))))) + _%stx125568%_ + _%hd125727%_ + _%id125871%_))) + (_%E125748125851%_))))) + (_%E125748125851%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125642125745%_)) - (_%E125642125745%_)))) - (_%E125642125745%_)))) - (_%E125628125835%_ + (_%E125748125851%_)) + (_%E125748125851%_)))) + (_%E125748125851%_)))) + (_%E125734125941%_ (lambda () - (if (gx#stx-pair? _%e125625125657%_) - (let ((_%e125630125789%_ - (gx#syntax-e _%e125625125657%_))) - (let ((_%hd125631125792%_ - (##car _%e125630125789%_)) - (_%tl125632125794%_ - (##cdr _%e125630125789%_))) - (if (eq? (gx#stx-e _%hd125631125792%_) + (if (gx#stx-pair? _%e125731125763%_) + (let ((_%e125736125895%_ + (gx#syntax-e _%e125731125763%_))) + (let ((_%hd125737125898%_ + (##car _%e125736125895%_)) + (_%tl125738125900%_ + (##cdr _%e125736125895%_))) + (if (eq? (gx#stx-e _%hd125737125898%_) 'spec:) (if (gx#stx-pair? - _%tl125632125794%_) - (let ((_%e125633125797%_ + _%tl125738125900%_) + (let ((_%e125739125903%_ (gx#syntax-e - _%tl125632125794%_))) - (let ((_%hd125634125800%_ - (##car _%e125633125797%_)) - (_%tl125635125802%_ - (##cdr _%e125633125797%_))) - (let ((_%phi125805%_ - _%hd125634125800%_)) + _%tl125738125900%_))) + (let ((_%hd125740125906%_ + (##car _%e125739125903%_)) + (_%tl125741125908%_ + (##cdr _%e125739125903%_))) + (let ((_%phi125911%_ + _%hd125740125906%_)) (if (gx#stx-pair? - _%tl125635125802%_) - (let ((_%e125636125807%_ + _%tl125741125908%_) + (let ((_%e125742125913%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tl125635125802%_))) - (let ((_%hd125637125810%_ (##car _%e125636125807%_)) - (_%tl125638125812%_ (##cdr _%e125636125807%_))) - (let ((_%id125815%_ _%hd125637125810%_)) - (if (gx#stx-pair? _%tl125638125812%_) - (let ((_%e125639125817%_ - (gx#syntax-e _%tl125638125812%_))) - (let ((_%hd125640125820%_ - (##car _%e125639125817%_)) - (_%tl125641125822%_ - (##cdr _%e125639125817%_))) - (let ((_%name125825%_ _%hd125640125820%_)) - (if (gx#stx-null? _%tl125641125822%_) - (if (and (gx#stx-fixnum? _%phi125805%_) - (gx#identifier? _%id125815%_) - (gx#identifier? _%name125825%_)) - (let* ((_%phi125827%_ - (gx#stx-e _%phi125805%_)) - (_%$e125829%_ + _%tl125741125908%_))) + (let ((_%hd125743125916%_ (##car _%e125742125913%_)) + (_%tl125744125918%_ (##cdr _%e125742125913%_))) + (let ((_%id125921%_ _%hd125743125916%_)) + (if (gx#stx-pair? _%tl125744125918%_) + (let ((_%e125745125923%_ + (gx#syntax-e _%tl125744125918%_))) + (let ((_%hd125746125926%_ + (##car _%e125745125923%_)) + (_%tl125747125928%_ + (##cdr _%e125745125923%_))) + (let ((_%name125931%_ _%hd125746125926%_)) + (if (gx#stx-null? _%tl125747125928%_) + (if (and (gx#stx-fixnum? _%phi125911%_) + (gx#identifier? _%id125921%_) + (gx#identifier? _%name125931%_)) + (let* ((_%phi125933%_ + (gx#stx-e _%phi125911%_)) + (_%$e125935%_ (gx#core-resolve-identifier__1 - _%id125815%_ - _%phi125827%_))) - (if _%$e125829%_ - ((lambda (_%bind125832%_) - (_%K125622%_ - _%rest125623%_ - (cons (_%make-export__128963128964%_ - _%bind125832%_ - _%phi125827%_ + _%id125921%_ + _%phi125933%_))) + (if _%$e125935%_ + ((lambda (_%bind125938%_) + (_%K125728%_ + _%rest125729%_ + (cons (_%make-export__129069129070%_ + _%bind125938%_ + _%phi125933%_ (gx#current-expander-context) - _%name125825%_) - _%r125624%_))) - _%$e125829%_) + _%name125931%_) + _%r125730%_))) + _%$e125935%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125462%_ - _%hd125621%_ - _%id125815%_))) - (_%E125629125785%_)) - (_%E125629125785%_))))) - (_%E125629125785%_))))) - (_%E125629125785%_))))) + _%stx125568%_ + _%hd125727%_ + _%id125921%_))) + (_%E125735125891%_)) + (_%E125735125891%_))))) + (_%E125735125891%_))))) + (_%E125735125891%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125629125785%_)) - (_%E125629125785%_)))) - (_%E125629125785%_)))) - (_%E125627125847%_ + (_%E125735125891%_)) + (_%E125735125891%_)))) + (_%E125735125891%_)))) + (_%E125733125953%_ (lambda () - (let ((_%id125839%_ _%e125625125657%_)) - (if (gx#identifier? _%id125839%_) - (let ((_%$e125841%_ + (let ((_%id125945%_ _%e125731125763%_)) + (if (gx#identifier? _%id125945%_) + (let ((_%$e125947%_ (gx#core-resolve-identifier__1 - _%id125839%_ + _%id125945%_ (gx#current-export-expander-phi)))) - (if _%$e125841%_ - ((lambda (_%bind125844%_) - (_%K125622%_ - _%rest125623%_ - (cons (_%make-export__0__128965128968%_ - _%bind125844%_) - _%r125624%_))) - _%$e125841%_) + (if _%$e125947%_ + ((lambda (_%bind125950%_) + (_%K125728%_ + _%rest125729%_ + (cons (_%make-export__0__129071129074%_ + _%bind125950%_) + _%r125730%_))) + _%$e125947%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%stx125462%_ - _%hd125621%_))) - (_%E125628125835%_))))) - (_%E125626125911%_ + _%stx125568%_ + _%hd125727%_))) + (_%E125734125941%_))))) + (_%E125732126017%_ (lambda () - (if (eq? (gx#stx-e _%e125625125657%_) '#t) - (let* ((_%current-ctx125851%_ + (if (eq? (gx#stx-e _%e125731125763%_) '#t) + (let* ((_%current-ctx125957%_ (gx#current-expander-context)) - (_%current-phi125853%_ + (_%current-phi125959%_ (gx#current-export-expander-phi)) - (_%phi-ctx125855%_ + (_%phi-ctx125961%_ (gx#core-context-shift - _%current-ctx125851%_ - _%current-phi125853%_)) - (_%phi-bind125857%_ + _%current-ctx125957%_ + _%current-phi125959%_)) + (_%phi-bind125963%_ (hash->list (##unchecked-structure-ref - _%phi-ctx125855%_ + _%phi-ctx125961%_ '2 '#f '#f)))) - (let _%lp125860%_ ((_%bind-rest125862%_ - _%phi-bind125857%_) - (_%set125863%_ '())) - (let* ((_%bind-rest125864125874%_ - _%bind-rest125862%_) - (_%else125866125882%_ + (let _%lp125966%_ ((_%bind-rest125968%_ + _%phi-bind125963%_) + (_%set125969%_ '())) + (let* ((_%bind-rest125970125980%_ + _%bind-rest125968%_) + (_%else125972125988%_ (lambda () - (_%K125622%_ - _%rest125623%_ + (_%K125728%_ + _%rest125729%_ (cons (##structure gx#export-set::t '#f - _%current-phi125853%_ - _%set125863%_) - _%r125624%_)))) - (_%K125868125892%_ - (lambda (_%bind-rest125885%_ - _%bind125886%_ - _%key125887%_) + _%current-phi125959%_ + _%set125969%_) + _%r125730%_)))) + (_%K125974125998%_ + (lambda (_%bind-rest125991%_ + _%bind125992%_ + _%key125993%_) (if (or (##structure-direct-instance-of? - _%bind125886%_ + _%bind125992%_ 'gx#import-binding::t) (gx#private-feature-binding? - _%bind125886%_)) - (_%lp125860%_ - _%bind-rest125885%_ - _%set125863%_) - (_%lp125860%_ - _%bind-rest125885%_ - (cons (_%make-export__2__128967128970%_ - _%bind125886%_ - _%current-phi125853%_ - _%current-ctx125851%_) - _%set125863%_)))))) - (if (pair? _%bind-rest125864125874%_) - (let ((_%hd125869125895%_ - (##car _%bind-rest125864125874%_)) - (_%tl125870125897%_ - (##cdr _%bind-rest125864125874%_))) - (if (pair? _%hd125869125895%_) - (let ((_%hd125871125900%_ - (##car _%hd125869125895%_)) - (_%tl125872125902%_ - (##cdr _%hd125869125895%_))) - (let* ((_%key125905%_ - _%hd125871125900%_) - (_%bind125907%_ - _%tl125872125902%_) - (_%bind-rest125909%_ - _%tl125870125897%_)) - (_%K125868125892%_ - _%bind-rest125909%_ - _%bind125907%_ - _%key125905%_))) - (_%else125866125882%_))) - (_%else125866125882%_))))) - (_%E125627125847%_))))) - (_%E125626125911%_)))) - (_%export-imports125467%_ - (lambda (_%src125497%_ _%r125498%_) - (letrec* ((_%current-ctx125500%_ + _%bind125992%_)) + (_%lp125966%_ + _%bind-rest125991%_ + _%set125969%_) + (_%lp125966%_ + _%bind-rest125991%_ + (cons (_%make-export__2__129073129076%_ + _%bind125992%_ + _%current-phi125959%_ + _%current-ctx125957%_) + _%set125969%_)))))) + (if (pair? _%bind-rest125970125980%_) + (let ((_%hd125975126001%_ + (##car _%bind-rest125970125980%_)) + (_%tl125976126003%_ + (##cdr _%bind-rest125970125980%_))) + (if (pair? _%hd125975126001%_) + (let ((_%hd125977126006%_ + (##car _%hd125975126001%_)) + (_%tl125978126008%_ + (##cdr _%hd125975126001%_))) + (let* ((_%key126011%_ + _%hd125977126006%_) + (_%bind126013%_ + _%tl125978126008%_) + (_%bind-rest126015%_ + _%tl125976126003%_)) + (_%K125974125998%_ + _%bind-rest126015%_ + _%bind126013%_ + _%key126011%_))) + (_%else125972125988%_))) + (_%else125972125988%_))))) + (_%E125733125953%_))))) + (_%E125732126017%_)))) + (_%export-imports125573%_ + (lambda (_%src125603%_ _%r125604%_) + (letrec* ((_%current-ctx125606%_ (gx#current-expander-context)) - (_%current-phi125501%_ + (_%current-phi125607%_ (gx#current-export-expander-phi)) - (_%import->export125502%_ - (lambda (_%in125583%_) - (let* ((_%in125584125592%_ _%in125583%_) - (_%E125586125596%_ + (_%import->export125608%_ + (lambda (_%in125689%_) + (let* ((_%in125690125698%_ _%in125689%_) + (_%E125692125702%_ (lambda () (error '"No clause matching" - _%in125584125592%_ + _%in125690125698%_ '((module-import out key phi))) '#!void)) - (_%K125587125603%_ - (lambda (_%phi125599%_ - _%key125600%_ - _%out125601%_) + (_%K125693125709%_ + (lambda (_%phi125705%_ + _%key125706%_ + _%out125707%_) (##structure gx#module-export::t - _%current-ctx125500%_ - _%key125600%_ - _%phi125599%_ - _%key125600%_ + _%current-ctx125606%_ + _%key125706%_ + _%phi125705%_ + _%key125706%_ '#t)))) (if (##structure-direct-instance-of? - _%in125584125592%_ + _%in125690125698%_ 'gx#module-import::t) - (let* ((_%e125588125606%_ + (let* ((_%e125694125712%_ (##unchecked-structure-ref - _%in125584125592%_ + _%in125690125698%_ '1 '#f '#f)) - (_%out125609%_ - _%e125588125606%_) - (_%e125589125611%_ + (_%out125715%_ + _%e125694125712%_) + (_%e125695125717%_ (##unchecked-structure-ref - _%in125584125592%_ + _%in125690125698%_ '2 '#f '#f)) - (_%key125614%_ - _%e125589125611%_) - (_%e125590125616%_ + (_%key125720%_ + _%e125695125717%_) + (_%e125696125722%_ (##unchecked-structure-ref - _%in125584125592%_ + _%in125690125698%_ '3 '#f '#f)) - (_%phi125619%_ - _%e125590125616%_)) - (_%K125587125603%_ - _%phi125619%_ - _%key125614%_ - _%out125609%_)) - (_%E125586125596%_))))) - (_%fold-e125503%_ - (lambda (_%in125505%_ _%r125506%_) - (let* ((_%in125507125521%_ _%in125505%_) - (_%else125510125529%_ - (lambda () _%r125506%_))) - (let ((_%K125516125565%_ - (lambda (_%phi125561%_ - _%key125562%_ - _%out125563%_) - (if (and (fx= _%phi125561%_ - _%current-phi125501%_) - (eq? _%src125497%_ + (_%phi125725%_ + _%e125696125722%_)) + (_%K125693125709%_ + _%phi125725%_ + _%key125720%_ + _%out125715%_)) + (_%E125692125702%_))))) + (_%fold-e125609%_ + (lambda (_%in125611%_ _%r125612%_) + (let* ((_%in125613125627%_ _%in125611%_) + (_%else125616125635%_ + (lambda () _%r125612%_))) + (let ((_%K125622125671%_ + (lambda (_%phi125667%_ + _%key125668%_ + _%out125669%_) + (if (and (fx= _%phi125667%_ + _%current-phi125607%_) + (eq? _%src125603%_ (##unchecked-structure-ref - _%out125563%_ + _%out125669%_ '1 '#f '#f))) - (cons (_%import->export125502%_ - _%in125505%_) - _%r125506%_) - _%r125506%_))) - (_%K125512125540%_ - (lambda (_%imports125533%_ - _%phi125534%_ - _%ctx125535%_) - (if (and (fx= _%phi125534%_ - _%current-phi125501%_) - (eq? _%src125497%_ - _%ctx125535%_)) + (cons (_%import->export125608%_ + _%in125611%_) + _%r125612%_) + _%r125612%_))) + (_%K125618125646%_ + (lambda (_%imports125639%_ + _%phi125640%_ + _%ctx125641%_) + (if (and (fx= _%phi125640%_ + _%current-phi125607%_) + (eq? _%src125603%_ + _%ctx125641%_)) (__foldl1 - (lambda (_%in125537%_ - _%r125538%_) - (cons (_%import->export125502%_ - _%in125537%_) - _%r125538%_)) - _%r125506%_ - _%imports125533%_) - _%r125506%_)))) - (let ((_%try-match125509125558%_ + (lambda (_%in125643%_ + _%r125644%_) + (cons (_%import->export125608%_ + _%in125643%_) + _%r125644%_)) + _%r125612%_ + _%imports125639%_) + _%r125612%_)))) + (let ((_%try-match125615125664%_ (lambda () (if (##structure-direct-instance-of? - _%in125507125521%_ + _%in125613125627%_ 'gx#import-set::t) - (let* ((_%e125513125543%_ + (let* ((_%e125619125649%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '1 '#f '#f)) - (_%e125514125548%_ + (_%e125620125654%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '2 '#f '#f)) - (_%e125515125553%_ + (_%e125621125659%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '3 '#f '#f))) - (let ((_%ctx125546%_ - _%e125513125543%_) - (_%phi125551%_ - _%e125514125548%_) - (_%imports125556%_ - _%e125515125553%_)) - (_%K125512125540%_ - _%imports125556%_ - _%phi125551%_ - _%ctx125546%_))) - (_%else125510125529%_))))) + (let ((_%ctx125652%_ + _%e125619125649%_) + (_%phi125657%_ + _%e125620125654%_) + (_%imports125662%_ + _%e125621125659%_)) + (_%K125618125646%_ + _%imports125662%_ + _%phi125657%_ + _%ctx125652%_))) + (_%else125616125635%_))))) (if (##structure-direct-instance-of? - _%in125507125521%_ + _%in125613125627%_ 'gx#module-import::t) - (let* ((_%e125517125568%_ + (let* ((_%e125623125674%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '1 '#f '#f)) - (_%e125518125573%_ + (_%e125624125679%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '2 '#f '#f)) - (_%e125519125578%_ + (_%e125625125684%_ (##unchecked-structure-ref - _%in125507125521%_ + _%in125613125627%_ '3 '#f '#f))) - (let ((_%out125571%_ - _%e125517125568%_) - (_%key125576%_ - _%e125518125573%_) - (_%phi125581%_ - _%e125519125578%_)) - (_%K125516125565%_ - _%phi125581%_ - _%key125576%_ - _%out125571%_))) - (_%try-match125509125558%_)))))))) + (let ((_%out125677%_ + _%e125623125674%_) + (_%key125682%_ + _%e125624125679%_) + (_%phi125687%_ + _%e125625125684%_)) + (_%K125622125671%_ + _%phi125687%_ + _%key125682%_ + _%out125677%_))) + (_%try-match125615125664%_)))))))) (cons (##structure gx#export-set::t - _%src125497%_ - _%current-phi125501%_ + _%src125603%_ + _%current-phi125607%_ (__foldl1 - _%fold-e125503%_ + _%fold-e125609%_ '() (##unchecked-structure-ref - _%current-ctx125500%_ + _%current-ctx125606%_ '8 '#f '#f))) - _%r125498%_)))) - (_%export!125468%_ - (lambda (_%rbody125484%_) - (letrec* ((_%current-ctx125486%_ + _%r125604%_)))) + (_%export!125574%_ + (lambda (_%rbody125590%_) + (letrec* ((_%current-ctx125592%_ (gx#current-expander-context)) - (_%fold-e125487%_ - (lambda (_%out125491%_ _%r125492%_) + (_%fold-e125593%_ + (lambda (_%out125597%_ _%r125598%_) (if (##structure-direct-instance-of? - _%out125491%_ + _%out125597%_ 'gx#module-export::t) - (cons _%out125491%_ _%r125492%_) + (cons _%out125597%_ _%r125598%_) (if (##structure-direct-instance-of? - _%out125491%_ + _%out125597%_ 'gx#export-set::t) (__foldl1 cons - _%r125492%_ + _%r125598%_ (##unchecked-structure-ref - _%out125491%_ + _%out125597%_ '3 '#f '#f)) - _%r125492%_))))) - (let ((_%body125489%_ (reverse _%rbody125484%_))) + _%r125598%_))))) + (let ((_%body125595%_ (reverse _%rbody125590%_))) (##unchecked-structure-set! - _%current-ctx125486%_ + _%current-ctx125592%_ (__foldl1 - _%fold-e125487%_ + _%fold-e125593%_ (##unchecked-structure-ref - _%current-ctx125486%_ + _%current-ctx125592%_ '9 '#f '#f) - _%body125489%_) + _%body125595%_) '9 '#f '#f) - _%body125489%_)))) - (_%expanded-export?125469%_ - (lambda (_%e125479%_) - (let ((_%$e125481%_ + _%body125595%_)))) + (_%expanded-export?125575%_ + (lambda (_%e125585%_) + (let ((_%$e125587%_ (##structure-direct-instance-of? - _%e125479%_ + _%e125585%_ 'gx#module-export::t))) - (if _%$e125481%_ - _%$e125481%_ + (if _%$e125587%_ + _%$e125587%_ (##structure-direct-instance-of? - _%e125479%_ + _%e125585%_ 'gx#export-set::t)))))) (if (or (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - _%internal-expand?125463%_) - (let ((_%rbody125475%_ + _%internal-expand?125569%_) + (let ((_%rbody125581%_ (gx#core-expand-import/export - _%stx125462%_ - _%expanded-export?125469%_ + _%stx125568%_ + _%expanded-export?125575%_ 'apply-export-expander gx#current-export-expander-phi - _%expand1125466%_))) - (if _%internal-expand?125463%_ - (reverse _%rbody125475%_) + _%expand1125572%_))) + (if _%internal-expand?125569%_ + (reverse _%rbody125581%_) (gx#core-quote-syntax__1 (gx#core-cons '%#export - (_%export!125468%_ _%rbody125475%_)) - (gx#stx-source _%stx125462%_)))) + (_%export!125574%_ _%rbody125581%_)) + (gx#stx-source _%stx125568%_)))) (if (##structure-instance-of? (gx#current-expander-context) 'gx#top-context::t) (gx#core-quote-syntax__1 (gx#core-cons '%#begin '()) - (gx#stx-source _%stx125462%_)) + (gx#stx-source _%stx125568%_)) (gx#raise-syntax-error '#f '"Illegal context" - _%stx125462%_)))))) + _%stx125568%_)))))) (define gx#core-expand-export%__0 - (lambda (_%stx125961%_) - (let ((_%internal-expand?125963%_ '#f)) + (lambda (_%stx126067%_) + (let ((_%internal-expand?126069%_ '#f)) (gx#core-expand-export%__% - _%stx125961%_ - _%internal-expand?125963%_)))) + _%stx126067%_ + _%internal-expand?126069%_)))) (define gx#core-expand-export% - (lambda _g129039_ - (let ((_g129038_ (##length _g129039_))) - (cond ((##fx= _g129038_ 1) - (apply gx#core-expand-export%__0 _g129039_)) - ((##fx= _g129038_ 2) - (apply gx#core-expand-export%__% _g129039_)) + (lambda _g129145_ + (let ((_g129144_ (##length _g129145_))) + (cond ((##fx= _g129144_ 1) + (apply gx#core-expand-export%__0 _g129145_)) + ((##fx= _g129144_ 2) + (apply gx#core-expand-export%__% _g129145_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-export% - _g129039_)))))) + _g129145_)))))) (define gx#core-expand-export-source - (lambda (_%hd125459%_) + (lambda (_%hd125565%_) (gx#core-expand-export%__% - (cons 'export-macro% (cons _%hd125459%_ '())) + (cons 'export-macro% (cons _%hd125565%_ '())) '#t))) (define gx#core-expand-provide% - (lambda (_%stx125429%_) - (let* ((_%e125430125437%_ _%stx125429%_) - (_%E125432125441%_ + (lambda (_%stx125535%_) + (let* ((_%e125536125543%_ _%stx125535%_) + (_%E125538125547%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125430125437%_))) - (_%E125431125455%_ + _%e125536125543%_))) + (_%E125537125561%_ (lambda () - (if (gx#stx-pair? _%e125430125437%_) - (let ((_%e125433125445%_ - (gx#syntax-e _%e125430125437%_))) - (let ((_%hd125434125448%_ (##car _%e125433125445%_)) - (_%tl125435125450%_ (##cdr _%e125433125445%_))) - (let ((_%body125453%_ _%tl125435125450%_)) - (if (gx#identifier-list? _%body125453%_) + (if (gx#stx-pair? _%e125536125543%_) + (let ((_%e125539125551%_ + (gx#syntax-e _%e125536125543%_))) + (let ((_%hd125540125554%_ (##car _%e125539125551%_)) + (_%tl125541125556%_ (##cdr _%e125539125551%_))) + (let ((_%body125559%_ _%tl125541125556%_)) + (if (gx#identifier-list? _%body125559%_) (begin (gx#stx-for-each1 gx#core-bind-feature! - _%body125453%_) + _%body125559%_) (gx#core-quote-syntax__1 (gx#core-cons '%#provide (gx#stx-map1 gx#core-quote-syntax - _%body125453%_)) - (gx#stx-source _%stx125429%_))) - (_%E125432125441%_))))) - (_%E125432125441%_))))) - (_%E125431125455%_)))) + _%body125559%_)) + (gx#stx-source _%stx125535%_))) + (_%E125538125547%_))))) + (_%E125538125547%_))))) + (_%E125537125561%_)))) (define gx#core-bind-feature!__% - (lambda (_%id125395%_ _%private?125396%_ _%phi125397%_ _%ctx125398%_) + (lambda (_%id125501%_ _%private?125502%_ _%phi125503%_ _%ctx125504%_) (gx#core-bind-syntax!__% - _%id125395%_ - ((if _%private?125396%_ + _%id125501%_ + ((if _%private?125502%_ gx#make-private-feature-expander gx#make-feature-expander) - (gx#stx-e _%id125395%_)) - _%private?125396%_ - _%phi125397%_ - _%ctx125398%_))) + (gx#stx-e _%id125501%_)) + _%private?125502%_ + _%phi125503%_ + _%ctx125504%_))) (define gx#core-bind-feature!__0 - (lambda (_%id125403%_) - (let* ((_%private?125405%_ '#f) - (_%phi125407%_ (gx#current-expander-phi)) - (_%ctx125409%_ (gx#current-expander-context))) + (lambda (_%id125509%_) + (let* ((_%private?125511%_ '#f) + (_%phi125513%_ (gx#current-expander-phi)) + (_%ctx125515%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125403%_ - _%private?125405%_ - _%phi125407%_ - _%ctx125409%_)))) + _%id125509%_ + _%private?125511%_ + _%phi125513%_ + _%ctx125515%_)))) (define gx#core-bind-feature!__1 - (lambda (_%id125411%_ _%private?125412%_) - (let* ((_%phi125414%_ (gx#current-expander-phi)) - (_%ctx125416%_ (gx#current-expander-context))) + (lambda (_%id125517%_ _%private?125518%_) + (let* ((_%phi125520%_ (gx#current-expander-phi)) + (_%ctx125522%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125411%_ - _%private?125412%_ - _%phi125414%_ - _%ctx125416%_)))) + _%id125517%_ + _%private?125518%_ + _%phi125520%_ + _%ctx125522%_)))) (define gx#core-bind-feature!__2 - (lambda (_%id125418%_ _%private?125419%_ _%phi125420%_) - (let ((_%ctx125422%_ (gx#current-expander-context))) + (lambda (_%id125524%_ _%private?125525%_ _%phi125526%_) + (let ((_%ctx125528%_ (gx#current-expander-context))) (gx#core-bind-feature!__% - _%id125418%_ - _%private?125419%_ - _%phi125420%_ - _%ctx125422%_)))) + _%id125524%_ + _%private?125525%_ + _%phi125526%_ + _%ctx125528%_)))) (define gx#core-bind-feature! - (lambda _g129041_ - (let ((_g129040_ (##length _g129041_))) - (cond ((##fx= _g129040_ 1) - (apply gx#core-bind-feature!__0 _g129041_)) - ((##fx= _g129040_ 2) - (apply gx#core-bind-feature!__1 _g129041_)) - ((##fx= _g129040_ 3) - (apply gx#core-bind-feature!__2 _g129041_)) - ((##fx= _g129040_ 4) - (apply gx#core-bind-feature!__% _g129041_)) + (lambda _g129147_ + (let ((_g129146_ (##length _g129147_))) + (cond ((##fx= _g129146_ 1) + (apply gx#core-bind-feature!__0 _g129147_)) + ((##fx= _g129146_ 2) + (apply gx#core-bind-feature!__1 _g129147_)) + ((##fx= _g129146_ 3) + (apply gx#core-bind-feature!__2 _g129147_)) + ((##fx= _g129146_ 4) + (apply gx#core-bind-feature!__% _g129147_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-feature! - _g129041_)))))))) + _g129147_)))))))) diff --git a/src/bootstrap/gerbil/expander/module~1.scm b/src/bootstrap/gerbil/expander/module~1.scm index 56b9fa393..4fd69f1d8 100644 --- a/src/bootstrap/gerbil/expander/module~1.scm +++ b/src/bootstrap/gerbil/expander/module~1.scm @@ -1,839 +1,839 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g129043_| + (define |gx[1]#_g129149_| (##structure gx#syntax-quote::t 'module-import::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129045_| + (define |gx[1]#_g129151_| (##structure gx#syntax-quote::t 'make-module-import #f (gx#current-expander-context) '())) - (define |gx[1]#_g129047_| + (define |gx[1]#_g129153_| (##structure gx#syntax-quote::t 'module-import? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129049_| + (define |gx[1]#_g129155_| (##structure gx#syntax-quote::t 'module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129050_| + (define |gx[1]#_g129156_| (##structure gx#syntax-quote::t 'module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129051_| + (define |gx[1]#_g129157_| (##structure gx#syntax-quote::t 'module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129052_| + (define |gx[1]#_g129158_| (##structure gx#syntax-quote::t 'module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129054_| + (define |gx[1]#_g129160_| (##structure gx#syntax-quote::t 'module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129055_| + (define |gx[1]#_g129161_| (##structure gx#syntax-quote::t 'module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129056_| + (define |gx[1]#_g129162_| (##structure gx#syntax-quote::t 'module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129057_| + (define |gx[1]#_g129163_| (##structure gx#syntax-quote::t 'module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129059_| + (define |gx[1]#_g129165_| (##structure gx#syntax-quote::t '&module-import-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129060_| + (define |gx[1]#_g129166_| (##structure gx#syntax-quote::t '&module-import-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129061_| + (define |gx[1]#_g129167_| (##structure gx#syntax-quote::t '&module-import-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129062_| + (define |gx[1]#_g129168_| (##structure gx#syntax-quote::t '&module-import-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129064_| + (define |gx[1]#_g129170_| (##structure gx#syntax-quote::t '&module-import-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129065_| + (define |gx[1]#_g129171_| (##structure gx#syntax-quote::t '&module-import-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129066_| + (define |gx[1]#_g129172_| (##structure gx#syntax-quote::t '&module-import-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129067_| + (define |gx[1]#_g129173_| (##structure gx#syntax-quote::t '&module-import-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129069_| + (define |gx[1]#_g129175_| (##structure gx#syntax-quote::t 'module-export::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129071_| + (define |gx[1]#_g129177_| (##structure gx#syntax-quote::t 'make-module-export #f (gx#current-expander-context) '())) - (define |gx[1]#_g129073_| + (define |gx[1]#_g129179_| (##structure gx#syntax-quote::t 'module-export? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129075_| + (define |gx[1]#_g129181_| (##structure gx#syntax-quote::t 'module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129076_| + (define |gx[1]#_g129182_| (##structure gx#syntax-quote::t 'module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129077_| + (define |gx[1]#_g129183_| (##structure gx#syntax-quote::t 'module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129078_| + (define |gx[1]#_g129184_| (##structure gx#syntax-quote::t 'module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129079_| + (define |gx[1]#_g129185_| (##structure gx#syntax-quote::t 'module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129081_| + (define |gx[1]#_g129187_| (##structure gx#syntax-quote::t 'module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129082_| + (define |gx[1]#_g129188_| (##structure gx#syntax-quote::t 'module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129083_| + (define |gx[1]#_g129189_| (##structure gx#syntax-quote::t 'module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129084_| + (define |gx[1]#_g129190_| (##structure gx#syntax-quote::t 'module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129085_| + (define |gx[1]#_g129191_| (##structure gx#syntax-quote::t 'module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129087_| + (define |gx[1]#_g129193_| (##structure gx#syntax-quote::t '&module-export-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129088_| + (define |gx[1]#_g129194_| (##structure gx#syntax-quote::t '&module-export-key #f (gx#current-expander-context) '())) - (define |gx[1]#_g129089_| + (define |gx[1]#_g129195_| (##structure gx#syntax-quote::t '&module-export-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129090_| + (define |gx[1]#_g129196_| (##structure gx#syntax-quote::t '&module-export-name #f (gx#current-expander-context) '())) - (define |gx[1]#_g129091_| + (define |gx[1]#_g129197_| (##structure gx#syntax-quote::t '&module-export-weak? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129093_| + (define |gx[1]#_g129199_| (##structure gx#syntax-quote::t '&module-export-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129094_| + (define |gx[1]#_g129200_| (##structure gx#syntax-quote::t '&module-export-key-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129095_| + (define |gx[1]#_g129201_| (##structure gx#syntax-quote::t '&module-export-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129096_| + (define |gx[1]#_g129202_| (##structure gx#syntax-quote::t '&module-export-name-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129097_| + (define |gx[1]#_g129203_| (##structure gx#syntax-quote::t '&module-export-weak?-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129099_| + (define |gx[1]#_g129205_| (##structure gx#syntax-quote::t 'import-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129101_| + (define |gx[1]#_g129207_| (##structure gx#syntax-quote::t 'make-import-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129103_| + (define |gx[1]#_g129209_| (##structure gx#syntax-quote::t 'import-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129105_| + (define |gx[1]#_g129211_| (##structure gx#syntax-quote::t 'import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129106_| + (define |gx[1]#_g129212_| (##structure gx#syntax-quote::t 'import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129107_| + (define |gx[1]#_g129213_| (##structure gx#syntax-quote::t 'import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129109_| + (define |gx[1]#_g129215_| (##structure gx#syntax-quote::t 'import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129110_| + (define |gx[1]#_g129216_| (##structure gx#syntax-quote::t 'import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129111_| + (define |gx[1]#_g129217_| (##structure gx#syntax-quote::t 'import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129113_| + (define |gx[1]#_g129219_| (##structure gx#syntax-quote::t '&import-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129114_| + (define |gx[1]#_g129220_| (##structure gx#syntax-quote::t '&import-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129115_| + (define |gx[1]#_g129221_| (##structure gx#syntax-quote::t '&import-set-imports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129117_| + (define |gx[1]#_g129223_| (##structure gx#syntax-quote::t '&import-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129118_| + (define |gx[1]#_g129224_| (##structure gx#syntax-quote::t '&import-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129119_| + (define |gx[1]#_g129225_| (##structure gx#syntax-quote::t '&import-set-imports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129121_| + (define |gx[1]#_g129227_| (##structure gx#syntax-quote::t 'export-set::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129123_| + (define |gx[1]#_g129229_| (##structure gx#syntax-quote::t 'make-export-set #f (gx#current-expander-context) '())) - (define |gx[1]#_g129125_| + (define |gx[1]#_g129231_| (##structure gx#syntax-quote::t 'export-set? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129127_| + (define |gx[1]#_g129233_| (##structure gx#syntax-quote::t 'export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129128_| + (define |gx[1]#_g129234_| (##structure gx#syntax-quote::t 'export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129129_| + (define |gx[1]#_g129235_| (##structure gx#syntax-quote::t 'export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129131_| + (define |gx[1]#_g129237_| (##structure gx#syntax-quote::t 'export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129132_| + (define |gx[1]#_g129238_| (##structure gx#syntax-quote::t 'export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129133_| + (define |gx[1]#_g129239_| (##structure gx#syntax-quote::t 'export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129135_| + (define |gx[1]#_g129241_| (##structure gx#syntax-quote::t '&export-set-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g129136_| + (define |gx[1]#_g129242_| (##structure gx#syntax-quote::t '&export-set-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129137_| + (define |gx[1]#_g129243_| (##structure gx#syntax-quote::t '&export-set-exports #f (gx#current-expander-context) '())) - (define |gx[1]#_g129139_| + (define |gx[1]#_g129245_| (##structure gx#syntax-quote::t '&export-set-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129140_| + (define |gx[1]#_g129246_| (##structure gx#syntax-quote::t '&export-set-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129141_| + (define |gx[1]#_g129247_| (##structure gx#syntax-quote::t '&export-set-exports-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129143_| + (define |gx[1]#_g129249_| (##structure gx#syntax-quote::t 'user-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129145_| + (define |gx[1]#_g129251_| (##structure gx#syntax-quote::t 'import-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129147_| + (define |gx[1]#_g129253_| (##structure gx#syntax-quote::t 'make-import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129149_| + (define |gx[1]#_g129255_| (##structure gx#syntax-quote::t 'import-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129151_| + (define |gx[1]#_g129257_| (##structure gx#syntax-quote::t 'import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129152_| + (define |gx[1]#_g129258_| (##structure gx#syntax-quote::t 'import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129153_| + (define |gx[1]#_g129259_| (##structure gx#syntax-quote::t 'import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129155_| + (define |gx[1]#_g129261_| (##structure gx#syntax-quote::t 'import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129156_| + (define |gx[1]#_g129262_| (##structure gx#syntax-quote::t 'import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129157_| + (define |gx[1]#_g129263_| (##structure gx#syntax-quote::t 'import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129159_| + (define |gx[1]#_g129265_| (##structure gx#syntax-quote::t '&import-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129160_| + (define |gx[1]#_g129266_| (##structure gx#syntax-quote::t '&import-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129161_| + (define |gx[1]#_g129267_| (##structure gx#syntax-quote::t '&import-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129163_| + (define |gx[1]#_g129269_| (##structure gx#syntax-quote::t '&import-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129164_| + (define |gx[1]#_g129270_| (##structure gx#syntax-quote::t '&import-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129165_| + (define |gx[1]#_g129271_| (##structure gx#syntax-quote::t '&import-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129168_| + (define |gx[1]#_g129274_| (##structure gx#syntax-quote::t 'export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129170_| + (define |gx[1]#_g129276_| (##structure gx#syntax-quote::t 'make-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129172_| + (define |gx[1]#_g129278_| (##structure gx#syntax-quote::t 'export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129174_| + (define |gx[1]#_g129280_| (##structure gx#syntax-quote::t 'export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129175_| + (define |gx[1]#_g129281_| (##structure gx#syntax-quote::t 'export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129176_| + (define |gx[1]#_g129282_| (##structure gx#syntax-quote::t 'export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129178_| + (define |gx[1]#_g129284_| (##structure gx#syntax-quote::t 'export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129179_| + (define |gx[1]#_g129285_| (##structure gx#syntax-quote::t 'export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129180_| + (define |gx[1]#_g129286_| (##structure gx#syntax-quote::t 'export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129182_| + (define |gx[1]#_g129288_| (##structure gx#syntax-quote::t '&export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129183_| + (define |gx[1]#_g129289_| (##structure gx#syntax-quote::t '&export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129184_| + (define |gx[1]#_g129290_| (##structure gx#syntax-quote::t '&export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129186_| + (define |gx[1]#_g129292_| (##structure gx#syntax-quote::t '&export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129187_| + (define |gx[1]#_g129293_| (##structure gx#syntax-quote::t '&export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129188_| + (define |gx[1]#_g129294_| (##structure gx#syntax-quote::t '&export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129190_| + (define |gx[1]#_g129296_| (##structure gx#syntax-quote::t 'import-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129191_| + (define |gx[1]#_g129297_| (##structure gx#syntax-quote::t 'export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129193_| + (define |gx[1]#_g129299_| (##structure gx#syntax-quote::t 'import-export-expander::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g129195_| + (define |gx[1]#_g129301_| (##structure gx#syntax-quote::t 'make-import-export-expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g129197_| + (define |gx[1]#_g129303_| (##structure gx#syntax-quote::t 'import-export-expander? #f (gx#current-expander-context) '())) - (define |gx[1]#_g129199_| + (define |gx[1]#_g129305_| (##structure gx#syntax-quote::t 'import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129200_| + (define |gx[1]#_g129306_| (##structure gx#syntax-quote::t 'import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129201_| + (define |gx[1]#_g129307_| (##structure gx#syntax-quote::t 'import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129203_| + (define |gx[1]#_g129309_| (##structure gx#syntax-quote::t 'import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129204_| + (define |gx[1]#_g129310_| (##structure gx#syntax-quote::t 'import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129205_| + (define |gx[1]#_g129311_| (##structure gx#syntax-quote::t 'import-export-expander-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129207_| + (define |gx[1]#_g129313_| (##structure gx#syntax-quote::t '&import-export-expander-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g129208_| + (define |gx[1]#_g129314_| (##structure gx#syntax-quote::t '&import-export-expander-phi #f (gx#current-expander-context) '())) - (define |gx[1]#_g129209_| + (define |gx[1]#_g129315_| (##structure gx#syntax-quote::t '&import-export-expander-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g129211_| + (define |gx[1]#_g129317_| (##structure gx#syntax-quote::t '&import-export-expander-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129212_| + (define |gx[1]#_g129318_| (##structure gx#syntax-quote::t '&import-export-expander-phi-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g129213_| + (define |gx[1]#_g129319_| (##structure gx#syntax-quote::t '&import-export-expander-e-set! @@ -842,7 +842,7 @@ '())) (begin (define |gx[:0:]#module-import| - (let ((__obj128997 + (let ((__obj129103 (let () (declare (not safe)) (##structure @@ -871,18 +871,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128997 + __obj129103 'gx#module-import::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 'module-import '2 '#f '#f)) + (##unchecked-structure-set! __obj129103 'module-import '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128997 + __obj129103 '(source name phi weak?) '4 '#f @@ -890,79 +890,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128997 + __obj129103 '(source name phi weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129103 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129103 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj129103 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129103 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '#f '11 '#f '#f)) - (let ((__tmp129042 |gx[1]#_g129043_|)) + (##unchecked-structure-set! __obj129103 '#f '11 '#f '#f)) + (let ((__tmp129148 |gx[1]#_g129149_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129042 '12 '#f '#f)) - (let ((__tmp129044 |gx[1]#_g129045_|)) + (##unchecked-structure-set! __obj129103 __tmp129148 '12 '#f '#f)) + (let ((__tmp129150 |gx[1]#_g129151_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129044 '13 '#f '#f)) - (let ((__tmp129046 |gx[1]#_g129047_|)) + (##unchecked-structure-set! __obj129103 __tmp129150 '13 '#f '#f)) + (let ((__tmp129152 |gx[1]#_g129153_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129046 '14 '#f '#f)) - (let ((__tmp129048 - (cons (cons 'source |gx[1]#_g129049_|) - (cons (cons 'name |gx[1]#_g129050_|) - (cons (cons 'phi |gx[1]#_g129051_|) - (cons (cons 'weak? |gx[1]#_g129052_|) + (##unchecked-structure-set! __obj129103 __tmp129152 '14 '#f '#f)) + (let ((__tmp129154 + (cons (cons 'source |gx[1]#_g129155_|) + (cons (cons 'name |gx[1]#_g129156_|) + (cons (cons 'phi |gx[1]#_g129157_|) + (cons (cons 'weak? |gx[1]#_g129158_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129048 '15 '#f '#f)) - (let ((__tmp129053 - (cons (cons 'source |gx[1]#_g129054_|) - (cons (cons 'name |gx[1]#_g129055_|) - (cons (cons 'phi |gx[1]#_g129056_|) - (cons (cons 'weak? |gx[1]#_g129057_|) + (##unchecked-structure-set! __obj129103 __tmp129154 '15 '#f '#f)) + (let ((__tmp129159 + (cons (cons 'source |gx[1]#_g129160_|) + (cons (cons 'name |gx[1]#_g129161_|) + (cons (cons 'phi |gx[1]#_g129162_|) + (cons (cons 'weak? |gx[1]#_g129163_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129053 '16 '#f '#f)) - (let ((__tmp129058 - (cons (cons 'source |gx[1]#_g129059_|) - (cons (cons 'name |gx[1]#_g129060_|) - (cons (cons 'phi |gx[1]#_g129061_|) - (cons (cons 'weak? |gx[1]#_g129062_|) + (##unchecked-structure-set! __obj129103 __tmp129159 '16 '#f '#f)) + (let ((__tmp129164 + (cons (cons 'source |gx[1]#_g129165_|) + (cons (cons 'name |gx[1]#_g129166_|) + (cons (cons 'phi |gx[1]#_g129167_|) + (cons (cons 'weak? |gx[1]#_g129168_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129058 '17 '#f '#f)) - (let ((__tmp129063 - (cons (cons 'source |gx[1]#_g129064_|) - (cons (cons 'name |gx[1]#_g129065_|) - (cons (cons 'phi |gx[1]#_g129066_|) - (cons (cons 'weak? |gx[1]#_g129067_|) + (##unchecked-structure-set! __obj129103 __tmp129164 '17 '#f '#f)) + (let ((__tmp129169 + (cons (cons 'source |gx[1]#_g129170_|) + (cons (cons 'name |gx[1]#_g129171_|) + (cons (cons 'phi |gx[1]#_g129172_|) + (cons (cons 'weak? |gx[1]#_g129173_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj128997 __tmp129063 '18 '#f '#f)) + (##unchecked-structure-set! __obj129103 __tmp129169 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129103 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129103 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128997 '() '20 '#f '#f)) - __obj128997)) + (##unchecked-structure-set! __obj129103 '() '20 '#f '#f)) + __obj129103)) (define |gx[:0:]#module-export| - (let ((__obj128998 + (let ((__obj129104 (let () (declare (not safe)) (##structure @@ -991,18 +991,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128998 + __obj129104 'gx#module-export::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 'module-export '2 '#f '#f)) + (##unchecked-structure-set! __obj129104 'module-export '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128998 + __obj129104 '(context key phi name weak?) '4 '#f @@ -1010,83 +1010,83 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128998 + __obj129104 '(context key phi name weak?) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129104 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129104 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj129104 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129104 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '#f '11 '#f '#f)) - (let ((__tmp129068 |gx[1]#_g129069_|)) + (##unchecked-structure-set! __obj129104 '#f '11 '#f '#f)) + (let ((__tmp129174 |gx[1]#_g129175_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129068 '12 '#f '#f)) - (let ((__tmp129070 |gx[1]#_g129071_|)) + (##unchecked-structure-set! __obj129104 __tmp129174 '12 '#f '#f)) + (let ((__tmp129176 |gx[1]#_g129177_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129070 '13 '#f '#f)) - (let ((__tmp129072 |gx[1]#_g129073_|)) + (##unchecked-structure-set! __obj129104 __tmp129176 '13 '#f '#f)) + (let ((__tmp129178 |gx[1]#_g129179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129072 '14 '#f '#f)) - (let ((__tmp129074 - (cons (cons 'context |gx[1]#_g129075_|) - (cons (cons 'key |gx[1]#_g129076_|) - (cons (cons 'phi |gx[1]#_g129077_|) - (cons (cons 'name |gx[1]#_g129078_|) - (cons (cons 'weak? |gx[1]#_g129079_|) + (##unchecked-structure-set! __obj129104 __tmp129178 '14 '#f '#f)) + (let ((__tmp129180 + (cons (cons 'context |gx[1]#_g129181_|) + (cons (cons 'key |gx[1]#_g129182_|) + (cons (cons 'phi |gx[1]#_g129183_|) + (cons (cons 'name |gx[1]#_g129184_|) + (cons (cons 'weak? |gx[1]#_g129185_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129074 '15 '#f '#f)) - (let ((__tmp129080 - (cons (cons 'context |gx[1]#_g129081_|) - (cons (cons 'key |gx[1]#_g129082_|) - (cons (cons 'phi |gx[1]#_g129083_|) - (cons (cons 'name |gx[1]#_g129084_|) - (cons (cons 'weak? |gx[1]#_g129085_|) + (##unchecked-structure-set! __obj129104 __tmp129180 '15 '#f '#f)) + (let ((__tmp129186 + (cons (cons 'context |gx[1]#_g129187_|) + (cons (cons 'key |gx[1]#_g129188_|) + (cons (cons 'phi |gx[1]#_g129189_|) + (cons (cons 'name |gx[1]#_g129190_|) + (cons (cons 'weak? |gx[1]#_g129191_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129080 '16 '#f '#f)) - (let ((__tmp129086 - (cons (cons 'context |gx[1]#_g129087_|) - (cons (cons 'key |gx[1]#_g129088_|) - (cons (cons 'phi |gx[1]#_g129089_|) - (cons (cons 'name |gx[1]#_g129090_|) - (cons (cons 'weak? |gx[1]#_g129091_|) + (##unchecked-structure-set! __obj129104 __tmp129186 '16 '#f '#f)) + (let ((__tmp129192 + (cons (cons 'context |gx[1]#_g129193_|) + (cons (cons 'key |gx[1]#_g129194_|) + (cons (cons 'phi |gx[1]#_g129195_|) + (cons (cons 'name |gx[1]#_g129196_|) + (cons (cons 'weak? |gx[1]#_g129197_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129086 '17 '#f '#f)) - (let ((__tmp129092 - (cons (cons 'context |gx[1]#_g129093_|) - (cons (cons 'key |gx[1]#_g129094_|) - (cons (cons 'phi |gx[1]#_g129095_|) - (cons (cons 'name |gx[1]#_g129096_|) - (cons (cons 'weak? |gx[1]#_g129097_|) + (##unchecked-structure-set! __obj129104 __tmp129192 '17 '#f '#f)) + (let ((__tmp129198 + (cons (cons 'context |gx[1]#_g129199_|) + (cons (cons 'key |gx[1]#_g129200_|) + (cons (cons 'phi |gx[1]#_g129201_|) + (cons (cons 'name |gx[1]#_g129202_|) + (cons (cons 'weak? |gx[1]#_g129203_|) '()))))))) (declare (not safe)) - (##unchecked-structure-set! __obj128998 __tmp129092 '18 '#f '#f)) + (##unchecked-structure-set! __obj129104 __tmp129198 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129104 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129104 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128998 '() '20 '#f '#f)) - __obj128998)) + (##unchecked-structure-set! __obj129104 '() '20 '#f '#f)) + __obj129104)) (define |gx[:0:]#import-set| - (let ((__obj128999 + (let ((__obj129105 (let () (declare (not safe)) (##structure @@ -1115,18 +1115,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128999 + __obj129105 'gx#import-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 'import-set '2 '#f '#f)) + (##unchecked-structure-set! __obj129105 'import-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj128999 + __obj129105 '(source phi imports) '4 '#f @@ -1134,71 +1134,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj128999 + __obj129105 '(source phi imports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129105 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129105 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj129105 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129105 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '#f '11 '#f '#f)) - (let ((__tmp129098 |gx[1]#_g129099_|)) + (##unchecked-structure-set! __obj129105 '#f '11 '#f '#f)) + (let ((__tmp129204 |gx[1]#_g129205_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129098 '12 '#f '#f)) - (let ((__tmp129100 |gx[1]#_g129101_|)) + (##unchecked-structure-set! __obj129105 __tmp129204 '12 '#f '#f)) + (let ((__tmp129206 |gx[1]#_g129207_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129100 '13 '#f '#f)) - (let ((__tmp129102 |gx[1]#_g129103_|)) + (##unchecked-structure-set! __obj129105 __tmp129206 '13 '#f '#f)) + (let ((__tmp129208 |gx[1]#_g129209_|)) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129102 '14 '#f '#f)) - (let ((__tmp129104 - (cons (cons 'source |gx[1]#_g129105_|) - (cons (cons 'phi |gx[1]#_g129106_|) - (cons (cons 'imports |gx[1]#_g129107_|) '()))))) + (##unchecked-structure-set! __obj129105 __tmp129208 '14 '#f '#f)) + (let ((__tmp129210 + (cons (cons 'source |gx[1]#_g129211_|) + (cons (cons 'phi |gx[1]#_g129212_|) + (cons (cons 'imports |gx[1]#_g129213_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129104 '15 '#f '#f)) - (let ((__tmp129108 - (cons (cons 'source |gx[1]#_g129109_|) - (cons (cons 'phi |gx[1]#_g129110_|) - (cons (cons 'imports |gx[1]#_g129111_|) '()))))) + (##unchecked-structure-set! __obj129105 __tmp129210 '15 '#f '#f)) + (let ((__tmp129214 + (cons (cons 'source |gx[1]#_g129215_|) + (cons (cons 'phi |gx[1]#_g129216_|) + (cons (cons 'imports |gx[1]#_g129217_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129108 '16 '#f '#f)) - (let ((__tmp129112 - (cons (cons 'source |gx[1]#_g129113_|) - (cons (cons 'phi |gx[1]#_g129114_|) - (cons (cons 'imports |gx[1]#_g129115_|) '()))))) + (##unchecked-structure-set! __obj129105 __tmp129214 '16 '#f '#f)) + (let ((__tmp129218 + (cons (cons 'source |gx[1]#_g129219_|) + (cons (cons 'phi |gx[1]#_g129220_|) + (cons (cons 'imports |gx[1]#_g129221_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129112 '17 '#f '#f)) - (let ((__tmp129116 - (cons (cons 'source |gx[1]#_g129117_|) - (cons (cons 'phi |gx[1]#_g129118_|) - (cons (cons 'imports |gx[1]#_g129119_|) '()))))) + (##unchecked-structure-set! __obj129105 __tmp129218 '17 '#f '#f)) + (let ((__tmp129222 + (cons (cons 'source |gx[1]#_g129223_|) + (cons (cons 'phi |gx[1]#_g129224_|) + (cons (cons 'imports |gx[1]#_g129225_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj128999 __tmp129116 '18 '#f '#f)) + (##unchecked-structure-set! __obj129105 __tmp129222 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129105 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129105 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj128999 '() '20 '#f '#f)) - __obj128999)) + (##unchecked-structure-set! __obj129105 '() '20 '#f '#f)) + __obj129105)) (define |gx[:0:]#export-set| - (let ((__obj129000 + (let ((__obj129106 (let () (declare (not safe)) (##structure @@ -1227,18 +1227,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129000 + __obj129106 'gx#export-set::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 'export-set '2 '#f '#f)) + (##unchecked-structure-set! __obj129106 'export-set '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj129000 + __obj129106 '(source phi exports) '4 '#f @@ -1246,71 +1246,71 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129000 + __obj129106 '(source phi exports) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj129106 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj129106 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj129106 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129106 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '#f '11 '#f '#f)) - (let ((__tmp129120 |gx[1]#_g129121_|)) + (##unchecked-structure-set! __obj129106 '#f '11 '#f '#f)) + (let ((__tmp129226 |gx[1]#_g129227_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129120 '12 '#f '#f)) - (let ((__tmp129122 |gx[1]#_g129123_|)) + (##unchecked-structure-set! __obj129106 __tmp129226 '12 '#f '#f)) + (let ((__tmp129228 |gx[1]#_g129229_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129122 '13 '#f '#f)) - (let ((__tmp129124 |gx[1]#_g129125_|)) + (##unchecked-structure-set! __obj129106 __tmp129228 '13 '#f '#f)) + (let ((__tmp129230 |gx[1]#_g129231_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129124 '14 '#f '#f)) - (let ((__tmp129126 - (cons (cons 'source |gx[1]#_g129127_|) - (cons (cons 'phi |gx[1]#_g129128_|) - (cons (cons 'exports |gx[1]#_g129129_|) '()))))) + (##unchecked-structure-set! __obj129106 __tmp129230 '14 '#f '#f)) + (let ((__tmp129232 + (cons (cons 'source |gx[1]#_g129233_|) + (cons (cons 'phi |gx[1]#_g129234_|) + (cons (cons 'exports |gx[1]#_g129235_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129126 '15 '#f '#f)) - (let ((__tmp129130 - (cons (cons 'source |gx[1]#_g129131_|) - (cons (cons 'phi |gx[1]#_g129132_|) - (cons (cons 'exports |gx[1]#_g129133_|) '()))))) + (##unchecked-structure-set! __obj129106 __tmp129232 '15 '#f '#f)) + (let ((__tmp129236 + (cons (cons 'source |gx[1]#_g129237_|) + (cons (cons 'phi |gx[1]#_g129238_|) + (cons (cons 'exports |gx[1]#_g129239_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129130 '16 '#f '#f)) - (let ((__tmp129134 - (cons (cons 'source |gx[1]#_g129135_|) - (cons (cons 'phi |gx[1]#_g129136_|) - (cons (cons 'exports |gx[1]#_g129137_|) '()))))) + (##unchecked-structure-set! __obj129106 __tmp129236 '16 '#f '#f)) + (let ((__tmp129240 + (cons (cons 'source |gx[1]#_g129241_|) + (cons (cons 'phi |gx[1]#_g129242_|) + (cons (cons 'exports |gx[1]#_g129243_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129134 '17 '#f '#f)) - (let ((__tmp129138 - (cons (cons 'source |gx[1]#_g129139_|) - (cons (cons 'phi |gx[1]#_g129140_|) - (cons (cons 'exports |gx[1]#_g129141_|) '()))))) + (##unchecked-structure-set! __obj129106 __tmp129240 '17 '#f '#f)) + (let ((__tmp129244 + (cons (cons 'source |gx[1]#_g129245_|) + (cons (cons 'phi |gx[1]#_g129246_|) + (cons (cons 'exports |gx[1]#_g129247_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129000 __tmp129138 '18 '#f '#f)) + (##unchecked-structure-set! __obj129106 __tmp129244 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129106 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129106 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129000 '() '20 '#f '#f)) - __obj129000)) + (##unchecked-structure-set! __obj129106 '() '20 '#f '#f)) + __obj129106)) (define |gx[:0:]#import-expander| - (let ((__obj129001 + (let ((__obj129107 (let () (declare (not safe)) (##structure @@ -1339,80 +1339,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129001 + __obj129107 'gx#import-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 'import-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj129107 'import-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129107 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '(e context phi) '6 '#f '#f)) - (let ((__tmp129142 (cons |gx[1]#_g129143_| '()))) + (##unchecked-structure-set! __obj129107 '(e context phi) '6 '#f '#f)) + (let ((__tmp129248 (cons |gx[1]#_g129249_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129142 '3 '#f '#f)) + (##unchecked-structure-set! __obj129107 __tmp129248 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129107 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129107 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129107 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 ':init! '11 '#f '#f)) - (let ((__tmp129144 |gx[1]#_g129145_|)) + (##unchecked-structure-set! __obj129107 ':init! '11 '#f '#f)) + (let ((__tmp129250 |gx[1]#_g129251_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129144 '12 '#f '#f)) - (let ((__tmp129146 |gx[1]#_g129147_|)) + (##unchecked-structure-set! __obj129107 __tmp129250 '12 '#f '#f)) + (let ((__tmp129252 |gx[1]#_g129253_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129146 '13 '#f '#f)) - (let ((__tmp129148 |gx[1]#_g129149_|)) + (##unchecked-structure-set! __obj129107 __tmp129252 '13 '#f '#f)) + (let ((__tmp129254 |gx[1]#_g129255_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129148 '14 '#f '#f)) - (let ((__tmp129150 - (cons (cons 'context |gx[1]#_g129151_|) - (cons (cons 'phi |gx[1]#_g129152_|) - (cons (cons 'e |gx[1]#_g129153_|) '()))))) + (##unchecked-structure-set! __obj129107 __tmp129254 '14 '#f '#f)) + (let ((__tmp129256 + (cons (cons 'context |gx[1]#_g129257_|) + (cons (cons 'phi |gx[1]#_g129258_|) + (cons (cons 'e |gx[1]#_g129259_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129150 '15 '#f '#f)) - (let ((__tmp129154 - (cons (cons 'context |gx[1]#_g129155_|) - (cons (cons 'phi |gx[1]#_g129156_|) - (cons (cons 'e |gx[1]#_g129157_|) '()))))) + (##unchecked-structure-set! __obj129107 __tmp129256 '15 '#f '#f)) + (let ((__tmp129260 + (cons (cons 'context |gx[1]#_g129261_|) + (cons (cons 'phi |gx[1]#_g129262_|) + (cons (cons 'e |gx[1]#_g129263_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129154 '16 '#f '#f)) - (let ((__tmp129158 - (cons (cons 'context |gx[1]#_g129159_|) - (cons (cons 'phi |gx[1]#_g129160_|) - (cons (cons 'e |gx[1]#_g129161_|) '()))))) + (##unchecked-structure-set! __obj129107 __tmp129260 '16 '#f '#f)) + (let ((__tmp129264 + (cons (cons 'context |gx[1]#_g129265_|) + (cons (cons 'phi |gx[1]#_g129266_|) + (cons (cons 'e |gx[1]#_g129267_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129158 '17 '#f '#f)) - (let ((__tmp129162 - (cons (cons 'context |gx[1]#_g129163_|) - (cons (cons 'phi |gx[1]#_g129164_|) - (cons (cons 'e |gx[1]#_g129165_|) '()))))) + (##unchecked-structure-set! __obj129107 __tmp129264 '17 '#f '#f)) + (let ((__tmp129268 + (cons (cons 'context |gx[1]#_g129269_|) + (cons (cons 'phi |gx[1]#_g129270_|) + (cons (cons 'e |gx[1]#_g129271_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129001 __tmp129162 '18 '#f '#f)) + (##unchecked-structure-set! __obj129107 __tmp129268 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129107 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129107 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129001 '() '20 '#f '#f)) - __obj129001)) + (##unchecked-structure-set! __obj129107 '() '20 '#f '#f)) + __obj129107)) (define |gx[:0:]#export-expander| - (let ((__obj129002 + (let ((__obj129108 (let () (declare (not safe)) (##structure @@ -1441,80 +1441,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129002 + __obj129108 'gx#export-expander::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 'export-expander '2 '#f '#f)) + (##unchecked-structure-set! __obj129108 'export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129108 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '(e context phi) '6 '#f '#f)) - (let ((__tmp129166 (cons |gx[1]#_g129143_| '()))) + (##unchecked-structure-set! __obj129108 '(e context phi) '6 '#f '#f)) + (let ((__tmp129272 (cons |gx[1]#_g129249_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129166 '3 '#f '#f)) + (##unchecked-structure-set! __obj129108 __tmp129272 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129108 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129108 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129108 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 ':init! '11 '#f '#f)) - (let ((__tmp129167 |gx[1]#_g129168_|)) + (##unchecked-structure-set! __obj129108 ':init! '11 '#f '#f)) + (let ((__tmp129273 |gx[1]#_g129274_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129167 '12 '#f '#f)) - (let ((__tmp129169 |gx[1]#_g129170_|)) + (##unchecked-structure-set! __obj129108 __tmp129273 '12 '#f '#f)) + (let ((__tmp129275 |gx[1]#_g129276_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129169 '13 '#f '#f)) - (let ((__tmp129171 |gx[1]#_g129172_|)) + (##unchecked-structure-set! __obj129108 __tmp129275 '13 '#f '#f)) + (let ((__tmp129277 |gx[1]#_g129278_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129171 '14 '#f '#f)) - (let ((__tmp129173 - (cons (cons 'context |gx[1]#_g129174_|) - (cons (cons 'phi |gx[1]#_g129175_|) - (cons (cons 'e |gx[1]#_g129176_|) '()))))) + (##unchecked-structure-set! __obj129108 __tmp129277 '14 '#f '#f)) + (let ((__tmp129279 + (cons (cons 'context |gx[1]#_g129280_|) + (cons (cons 'phi |gx[1]#_g129281_|) + (cons (cons 'e |gx[1]#_g129282_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129173 '15 '#f '#f)) - (let ((__tmp129177 - (cons (cons 'context |gx[1]#_g129178_|) - (cons (cons 'phi |gx[1]#_g129179_|) - (cons (cons 'e |gx[1]#_g129180_|) '()))))) + (##unchecked-structure-set! __obj129108 __tmp129279 '15 '#f '#f)) + (let ((__tmp129283 + (cons (cons 'context |gx[1]#_g129284_|) + (cons (cons 'phi |gx[1]#_g129285_|) + (cons (cons 'e |gx[1]#_g129286_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129177 '16 '#f '#f)) - (let ((__tmp129181 - (cons (cons 'context |gx[1]#_g129182_|) - (cons (cons 'phi |gx[1]#_g129183_|) - (cons (cons 'e |gx[1]#_g129184_|) '()))))) + (##unchecked-structure-set! __obj129108 __tmp129283 '16 '#f '#f)) + (let ((__tmp129287 + (cons (cons 'context |gx[1]#_g129288_|) + (cons (cons 'phi |gx[1]#_g129289_|) + (cons (cons 'e |gx[1]#_g129290_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129181 '17 '#f '#f)) - (let ((__tmp129185 - (cons (cons 'context |gx[1]#_g129186_|) - (cons (cons 'phi |gx[1]#_g129187_|) - (cons (cons 'e |gx[1]#_g129188_|) '()))))) + (##unchecked-structure-set! __obj129108 __tmp129287 '17 '#f '#f)) + (let ((__tmp129291 + (cons (cons 'context |gx[1]#_g129292_|) + (cons (cons 'phi |gx[1]#_g129293_|) + (cons (cons 'e |gx[1]#_g129294_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129002 __tmp129185 '18 '#f '#f)) + (##unchecked-structure-set! __obj129108 __tmp129291 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129108 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129108 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129002 '() '20 '#f '#f)) - __obj129002)) + (##unchecked-structure-set! __obj129108 '() '20 '#f '#f)) + __obj129108)) (define |gx[:0:]#import-export-expander| - (let ((__obj129003 + (let ((__obj129109 (let () (declare (not safe)) (##structure @@ -1543,7 +1543,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129003 + __obj129109 'gx#import-export-expander::t '1 '#f @@ -1551,73 +1551,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj129003 + __obj129109 'import-export-expander '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj129109 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '(e context phi) '6 '#f '#f)) - (let ((__tmp129189 - (cons |gx[1]#_g129190_| (cons |gx[1]#_g129191_| '())))) + (##unchecked-structure-set! __obj129109 '(e context phi) '6 '#f '#f)) + (let ((__tmp129295 + (cons |gx[1]#_g129296_| (cons |gx[1]#_g129297_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129189 '3 '#f '#f)) + (##unchecked-structure-set! __obj129109 __tmp129295 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj129109 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj129109 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj129109 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 ':init! '11 '#f '#f)) - (let ((__tmp129192 |gx[1]#_g129193_|)) + (##unchecked-structure-set! __obj129109 ':init! '11 '#f '#f)) + (let ((__tmp129298 |gx[1]#_g129299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129192 '12 '#f '#f)) - (let ((__tmp129194 |gx[1]#_g129195_|)) + (##unchecked-structure-set! __obj129109 __tmp129298 '12 '#f '#f)) + (let ((__tmp129300 |gx[1]#_g129301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129194 '13 '#f '#f)) - (let ((__tmp129196 |gx[1]#_g129197_|)) + (##unchecked-structure-set! __obj129109 __tmp129300 '13 '#f '#f)) + (let ((__tmp129302 |gx[1]#_g129303_|)) (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129196 '14 '#f '#f)) - (let ((__tmp129198 - (cons (cons 'context |gx[1]#_g129199_|) - (cons (cons 'phi |gx[1]#_g129200_|) - (cons (cons 'e |gx[1]#_g129201_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129198 '15 '#f '#f)) - (let ((__tmp129202 - (cons (cons 'context |gx[1]#_g129203_|) - (cons (cons 'phi |gx[1]#_g129204_|) - (cons (cons 'e |gx[1]#_g129205_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129202 '16 '#f '#f)) - (let ((__tmp129206 - (cons (cons 'context |gx[1]#_g129207_|) - (cons (cons 'phi |gx[1]#_g129208_|) - (cons (cons 'e |gx[1]#_g129209_|) '()))))) - (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129206 '17 '#f '#f)) - (let ((__tmp129210 - (cons (cons 'context |gx[1]#_g129211_|) - (cons (cons 'phi |gx[1]#_g129212_|) - (cons (cons 'e |gx[1]#_g129213_|) '()))))) + (##unchecked-structure-set! __obj129109 __tmp129302 '14 '#f '#f)) + (let ((__tmp129304 + (cons (cons 'context |gx[1]#_g129305_|) + (cons (cons 'phi |gx[1]#_g129306_|) + (cons (cons 'e |gx[1]#_g129307_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj129109 __tmp129304 '15 '#f '#f)) + (let ((__tmp129308 + (cons (cons 'context |gx[1]#_g129309_|) + (cons (cons 'phi |gx[1]#_g129310_|) + (cons (cons 'e |gx[1]#_g129311_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj129109 __tmp129308 '16 '#f '#f)) + (let ((__tmp129312 + (cons (cons 'context |gx[1]#_g129313_|) + (cons (cons 'phi |gx[1]#_g129314_|) + (cons (cons 'e |gx[1]#_g129315_|) '()))))) + (declare (not safe)) + (##unchecked-structure-set! __obj129109 __tmp129312 '17 '#f '#f)) + (let ((__tmp129316 + (cons (cons 'context |gx[1]#_g129317_|) + (cons (cons 'phi |gx[1]#_g129318_|) + (cons (cons 'e |gx[1]#_g129319_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj129003 __tmp129210 '18 '#f '#f)) + (##unchecked-structure-set! __obj129109 __tmp129316 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj129109 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj129109 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj129003 '() '20 '#f '#f)) - __obj129003)))) + (##unchecked-structure-set! __obj129109 '() '20 '#f '#f)) + __obj129109)))) diff --git a/src/bootstrap/gerbil/expander/root~0.scm b/src/bootstrap/gerbil/expander/root~0.scm index 845836f54..b2bbbe022 100644 --- a/src/bootstrap/gerbil/expander/root~0.scm +++ b/src/bootstrap/gerbil/expander/root~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/root::timestamp 1733870075) + (define gerbil/expander/root::timestamp 1734131747) (begin (declare (not safe)) (define gx#*core-syntax-expanders* @@ -262,603 +262,603 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (define gx#root-context:::init!__% - (lambda (_%self130404131484%_ _%bind?131486%_) - (let* ((_%self131488%_ _%self130404131484%_) - (_%self131490%_ _%self131488%_)) - (if (##fx< '2 (##structure-length _%self131490%_)) + (lambda (_%self130510131590%_ _%bind?131592%_) + (let* ((_%self131594%_ _%self130510131590%_) + (_%self131596%_ _%self131594%_)) + (if (##fx< '2 (##structure-length _%self131596%_)) (begin - (##unchecked-structure-set! _%self131490%_ 'root '1 '#f '#f) + (##unchecked-structure-set! _%self131596%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131490%_ + _%self131596%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131490%_ + _%self131596%_ '2 - (##vector-length _%self131490%_))) - (if _%bind?131486%_ + (##vector-length _%self131596%_))) + (if _%bind?131592%_ (begin - (let ((__method131553 + (let ((__method131659 (__method-ref - _%self131490%_ + _%self131596%_ 'bind-core-syntax-expanders!))) - (if __method131553 - (__method131553 _%self131490%_) + (if __method131659 + (__method131659 _%self131596%_) (begin (error '"Missing method" - _%self131490%_ + _%self131596%_ 'bind-core-syntax-expanders!) '#!void))) - (let ((__method131554 + (let ((__method131660 (__method-ref - _%self131490%_ + _%self131596%_ 'bind-core-macro-expanders!))) - (if __method131554 - (__method131554 _%self131490%_) + (if __method131660 + (__method131660 _%self131596%_) (begin (error '"Missing method" - _%self131490%_ + _%self131596%_ 'bind-core-macro-expanders!) '#!void))) - (let ((__method131555 - (__method-ref _%self131490%_ 'bind-core-features!))) - (if __method131555 - (__method131555 _%self131490%_) + (let ((__method131661 + (__method-ref _%self131596%_ 'bind-core-features!))) + (if __method131661 + (__method131661 _%self131596%_) (begin (error '"Missing method" - _%self131490%_ + _%self131596%_ 'bind-core-features!) '#!void)))) '#!void)))) (define gx#root-context:::init!__0 - (lambda (_%self130404131503%_) - (let ((_%bind?131505%_ '#t)) - (gx#root-context:::init!__% _%self130404131503%_ _%bind?131505%_)))) + (lambda (_%self130510131609%_) + (let ((_%bind?131611%_ '#t)) + (gx#root-context:::init!__% _%self130510131609%_ _%bind?131611%_)))) (define gx#root-context:::init! - (lambda _g131558_ - (let ((_g131557_ (##length _g131558_))) - (cond ((##fx= _g131557_ 1) - (apply gx#root-context:::init!__0 _g131558_)) - ((##fx= _g131557_ 2) - (apply gx#root-context:::init!__% _g131558_)) + (lambda _g131664_ + (let ((_g131663_ (##length _g131664_))) + (cond ((##fx= _g131663_ 1) + (apply gx#root-context:::init!__0 _g131664_)) + ((##fx= _g131663_ 2) + (apply gx#root-context:::init!__% _g131664_)) (else (##raise-wrong-number-of-arguments-exception gx#root-context:::init! - _g131558_)))))) + _g131664_)))))) (define gx#root-context:::init!::specialize - (lambda (__klass131509 __method-table131510) - (let ((__bind-core-syntax-expanders!131511 + (lambda (__klass131615 __method-table131616) + (let ((__bind-core-syntax-expanders!131617 (__make-promise (lambda () - (let ((__method131514 + (let ((__method131620 (symbolic-table-ref - __method-table131510 + __method-table131616 'bind-core-syntax-expanders! '#f))) - (if __method131514 - __method131514 + (if __method131620 + __method131620 (error '"Missing method" 'bind-core-syntax-expanders!)))))) - (__bind-core-macro-expanders!131512 + (__bind-core-features!131618 (__make-promise (lambda () - (let ((__method131515 + (let ((__method131621 (symbolic-table-ref - __method-table131510 - 'bind-core-macro-expanders! + __method-table131616 + 'bind-core-features! '#f))) - (if __method131515 - __method131515 - (error '"Missing method" - 'bind-core-macro-expanders!)))))) - (__bind-core-features!131513 + (if __method131621 + __method131621 + (error '"Missing method" 'bind-core-features!)))))) + (__bind-core-macro-expanders!131619 (__make-promise (lambda () - (let ((__method131516 + (let ((__method131622 (symbolic-table-ref - __method-table131510 - 'bind-core-features! + __method-table131616 + 'bind-core-macro-expanders! '#f))) - (if __method131516 - __method131516 - (error '"Missing method" 'bind-core-features!))))))) - (let ((_%opt-lambda131482131500%_ - (lambda (_%self130404131484%_ _%bind?131486%_) - (let* ((_%self131488%_ _%self130404131484%_) - (_%self131490%_ _%self131488%_)) - (if (##fx< '2 (##structure-length _%self131490%_)) + (if __method131622 + __method131622 + (error '"Missing method" + 'bind-core-macro-expanders!))))))) + (let ((_%opt-lambda131588131606%_ + (lambda (_%self130510131590%_ _%bind?131592%_) + (let* ((_%self131594%_ _%self130510131590%_) + (_%self131596%_ _%self131594%_)) + (if (##fx< '2 (##structure-length _%self131596%_)) (begin (##unchecked-structure-set! - _%self131490%_ + _%self131596%_ 'root '1 '#f '#f) (##unchecked-structure-set! - _%self131490%_ + _%self131596%_ (make-hash-table-eq) '2 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131490%_ + _%self131596%_ '2 - (##vector-length _%self131490%_))) - (if _%bind?131486%_ + (##vector-length _%self131596%_))) + (if _%bind?131592%_ (begin - ((force __bind-core-syntax-expanders!131511) - _%self131490%_) - ((force __bind-core-macro-expanders!131512) - _%self131490%_) - ((force __bind-core-features!131513) - _%self131490%_)) + ((force __bind-core-syntax-expanders!131617) + _%self131596%_) + ((force __bind-core-macro-expanders!131619) + _%self131596%_) + ((force __bind-core-features!131618) + _%self131596%_)) '#!void))))) - (lambda _g131560_ - (let ((_g131559_ (##length _g131560_))) - (cond ((##fx= _g131559_ 1) - (apply (lambda (_%self130404131503%_) - (let ((_%bind?131505%_ '#t)) - (_%opt-lambda131482131500%_ - _%self130404131503%_ - _%bind?131505%_))) - _g131560_)) - ((##fx= _g131559_ 2) - (apply _%opt-lambda131482131500%_ _g131560_)) + (lambda _g131666_ + (let ((_g131665_ (##length _g131666_))) + (cond ((##fx= _g131665_ 1) + (apply (lambda (_%self130510131609%_) + (let ((_%bind?131611%_ '#t)) + (_%opt-lambda131588131606%_ + _%self130510131609%_ + _%bind?131611%_))) + _g131666_)) + ((##fx= _g131665_ 2) + (apply _%opt-lambda131588131606%_ _g131666_)) (else (##raise-wrong-number-of-arguments-exception 'case-lambda-dispatch - _g131560_))))))))) + _g131666_))))))))) (bind-specializer! gx#root-context:::init! gx#root-context:::init!::specialize) (__bind-method!__% gx#root-context::t ':init! gx#root-context:::init! '#f) (define gx#top-context:::init!__% - (lambda (_%self130405131327%_ _%super131329%_) - (let* ((_%self131331%_ _%self130405131327%_) - (_%self131333%_ _%self131331%_) - (_%super131349%_ - (let ((_%$e131343%_ _%super131329%_)) - (if _%$e131343%_ - _%$e131343%_ - (let ((_%$e131346%_ (gx#core-context-root__0))) - (if _%$e131346%_ - _%$e131346%_ - (let ((__obj131556 + (lambda (_%self130511131433%_ _%super131435%_) + (let* ((_%self131437%_ _%self130511131433%_) + (_%self131439%_ _%self131437%_) + (_%super131455%_ + (let ((_%$e131449%_ _%super131435%_)) + (if _%$e131449%_ + _%$e131449%_ + (let ((_%$e131452%_ (gx#core-context-root__0))) + (if _%$e131452%_ + _%$e131452%_ + (let ((__obj131662 (##structure gx#root-context::t '#f '#f))) - (gx#root-context:::init!__0 __obj131556) - __obj131556))))))) - (if (##fx< '5 (##structure-length _%self131333%_)) + (gx#root-context:::init!__0 __obj131662) + __obj131662))))))) + (if (##fx< '5 (##structure-length _%self131439%_)) (begin - (##unchecked-structure-set! _%self131333%_ 'top '1 '#f '#f) + (##unchecked-structure-set! _%self131439%_ 'top '1 '#f '#f) (##unchecked-structure-set! - _%self131333%_ + _%self131439%_ (make-hash-table-eq) '2 '#f '#f) (##unchecked-structure-set! - _%self131333%_ - _%super131349%_ + _%self131439%_ + _%super131455%_ '3 '#f '#f) - (##unchecked-structure-set! _%self131333%_ '#f '4 '#f '#f) - (##unchecked-structure-set! _%self131333%_ '#f '5 '#f '#f) + (##unchecked-structure-set! _%self131439%_ '#f '4 '#f '#f) + (##unchecked-structure-set! _%self131439%_ '#f '5 '#f '#f) '#!void) (error '"struct-instance-init!: too many arguments for struct" - _%self131333%_ + _%self131439%_ '5 - (##vector-length _%self131333%_)))))) + (##vector-length _%self131439%_)))))) (define gx#top-context:::init!__0 - (lambda (_%self130405131354%_) - (let ((_%super131356%_ '#f)) - (gx#top-context:::init!__% _%self130405131354%_ _%super131356%_)))) + (lambda (_%self130511131460%_) + (let ((_%super131462%_ '#f)) + (gx#top-context:::init!__% _%self130511131460%_ _%super131462%_)))) (define gx#top-context:::init! - (lambda _g131562_ - (let ((_g131561_ (##length _g131562_))) - (cond ((##fx= _g131561_ 1) - (apply gx#top-context:::init!__0 _g131562_)) - ((##fx= _g131561_ 2) - (apply gx#top-context:::init!__% _g131562_)) + (lambda _g131668_ + (let ((_g131667_ (##length _g131668_))) + (cond ((##fx= _g131667_ 1) + (apply gx#top-context:::init!__0 _g131668_)) + ((##fx= _g131667_ 2) + (apply gx#top-context:::init!__% _g131668_)) (else (##raise-wrong-number-of-arguments-exception gx#top-context:::init! - _g131562_)))))) + _g131668_)))))) (__bind-method!__% gx#top-context::t ':init! gx#top-context:::init! '#f) (define gx#expander-context::bind-core-syntax-expanders!__% - (lambda (_%self130406131045%_ _%bindings131047%_) - (let* ((_%self131049%_ _%self130406131045%_) - (_%self131051%_ _%self131049%_)) + (lambda (_%self130512131151%_ _%bindings131153%_) + (let* ((_%self131155%_ _%self130512131151%_) + (_%self131157%_ _%self131155%_)) (for-each - (lambda (_%bind131061%_) - (let* ((_%bind131062131069%_ _%bind131061%_) - (_%E131064131073%_ + (lambda (_%bind131167%_) + (let* ((_%bind131168131175%_ _%bind131167%_) + (_%E131170131179%_ (lambda () (error '"No clause matching" - _%bind131062131069%_ + _%bind131168131175%_ '([id . rest])) '#!void)) - (_%K131065131182%_ - (lambda (_%rest131076%_ _%id131077%_) + (_%K131171131288%_ + (lambda (_%rest131182%_ _%id131183%_) (gx#core-context-put! - _%self131051%_ - _%id131077%_ + _%self131157%_ + _%id131183%_ (##structure gx#syntax-binding::t - _%id131077%_ - _%id131077%_ + _%id131183%_ + _%id131183%_ '#f - (let* ((_%rest131078131089%_ _%rest131076%_) - (_%E131080131093%_ + (let* ((_%rest131184131195%_ _%rest131182%_) + (_%E131186131199%_ (lambda () (error '"No clause matching" - _%rest131078131089%_ + _%rest131184131195%_ '([key expander compiler])) '#!void)) - (_%K131081131158%_ - (lambda (_%compiler131096%_ - _%expander131097%_ - _%key131098%_) - ((let* ((_%key131099131112%_ _%key131098%_) - (_%E131105131116%_ + (_%K131187131264%_ + (lambda (_%compiler131202%_ + _%expander131203%_ + _%key131204%_) + ((let* ((_%key131205131218%_ _%key131204%_) + (_%E131211131222%_ (lambda () (error '"No clause matching" - _%key131099131112%_ + _%key131205131218%_ '(top:) '(module:) '(define:) '(special:) '(expr:)) '#!void))) - (let ((_%K131110131152%_ + (let ((_%K131216131258%_ (lambda () gx#make-top-special-form)) - (_%K131109131145%_ + (_%K131215131251%_ (lambda () gx#make-module-special-form)) - (_%K131108131137%_ + (_%K131214131243%_ (lambda () gx#make-definition-form)) - (_%K131107131129%_ + (_%K131213131235%_ (lambda () gx#make-special-form)) - (_%K131106131121%_ + (_%K131212131227%_ (lambda () gx#make-expression-form))) - (let* ((_%try-match131104131124%_ + (let* ((_%try-match131210131230%_ (lambda () - (if (##eq? _%key131099131112%_ + (if (##eq? _%key131205131218%_ 'expr:) - (_%K131106131121%_) - (_%E131105131116%_)))) - (_%try-match131103131132%_ + (_%K131212131227%_) + (_%E131211131222%_)))) + (_%try-match131209131238%_ (lambda () - (if (##eq? _%key131099131112%_ + (if (##eq? _%key131205131218%_ 'special:) - (_%K131107131129%_) - (_%try-match131104131124%_)))) - (_%try-match131102131140%_ + (_%K131213131235%_) + (_%try-match131210131230%_)))) + (_%try-match131208131246%_ (lambda () - (if (##eq? _%key131099131112%_ + (if (##eq? _%key131205131218%_ 'define:) - (_%K131108131137%_) - (_%try-match131103131132%_)))) - (_%try-match131101131148%_ + (_%K131214131243%_) + (_%try-match131209131238%_)))) + (_%try-match131207131254%_ (lambda () - (if (##eq? _%key131099131112%_ + (if (##eq? _%key131205131218%_ 'module:) - (_%K131109131145%_) - (_%try-match131102131140%_))))) - (if (##eq? _%key131099131112%_ 'top:) - (_%K131110131152%_) - (_%try-match131101131148%_))))) - _%expander131097%_ - _%id131077%_ - (let ((_%$e131155%_ _%compiler131096%_)) - (if _%$e131155%_ - _%$e131155%_ + (_%K131215131251%_) + (_%try-match131208131246%_))))) + (if (##eq? _%key131205131218%_ 'top:) + (_%K131216131258%_) + (_%try-match131207131254%_))))) + _%expander131203%_ + _%id131183%_ + (let ((_%$e131261%_ _%compiler131202%_)) + (if _%$e131261%_ + _%$e131261%_ gx#core-compile-top-error)))))) - (if (pair? _%rest131078131089%_) - (let ((_%hd131082131161%_ - (##car _%rest131078131089%_)) - (_%tl131083131163%_ - (##cdr _%rest131078131089%_))) - (let ((_%key131166%_ _%hd131082131161%_)) - (if (pair? _%tl131083131163%_) - (let ((_%hd131084131168%_ - (##car _%tl131083131163%_)) - (_%tl131085131170%_ - (##cdr _%tl131083131163%_))) - (let ((_%expander131173%_ - _%hd131084131168%_)) - (if (pair? _%tl131085131170%_) - (let ((_%hd131086131175%_ - (##car _%tl131085131170%_)) - (_%tl131087131177%_ - (##cdr _%tl131085131170%_))) - (let ((_%compiler131180%_ - _%hd131086131175%_)) - (if (null? _%tl131087131177%_) - (_%K131081131158%_ - _%compiler131180%_ - _%expander131173%_ - _%key131166%_) - (_%E131080131093%_)))) - (_%E131080131093%_)))) - (_%E131080131093%_)))) - (_%E131080131093%_)))))))) - (if (pair? _%bind131062131069%_) - (let ((_%hd131066131185%_ (##car _%bind131062131069%_)) - (_%tl131067131187%_ (##cdr _%bind131062131069%_))) - (let* ((_%id131190%_ _%hd131066131185%_) - (_%rest131192%_ _%tl131067131187%_)) - (_%K131065131182%_ _%rest131192%_ _%id131190%_))) - (_%E131064131073%_)))) - _%bindings131047%_)))) + (if (pair? _%rest131184131195%_) + (let ((_%hd131188131267%_ + (##car _%rest131184131195%_)) + (_%tl131189131269%_ + (##cdr _%rest131184131195%_))) + (let ((_%key131272%_ _%hd131188131267%_)) + (if (pair? _%tl131189131269%_) + (let ((_%hd131190131274%_ + (##car _%tl131189131269%_)) + (_%tl131191131276%_ + (##cdr _%tl131189131269%_))) + (let ((_%expander131279%_ + _%hd131190131274%_)) + (if (pair? _%tl131191131276%_) + (let ((_%hd131192131281%_ + (##car _%tl131191131276%_)) + (_%tl131193131283%_ + (##cdr _%tl131191131276%_))) + (let ((_%compiler131286%_ + _%hd131192131281%_)) + (if (null? _%tl131193131283%_) + (_%K131187131264%_ + _%compiler131286%_ + _%expander131279%_ + _%key131272%_) + (_%E131186131199%_)))) + (_%E131186131199%_)))) + (_%E131186131199%_)))) + (_%E131186131199%_)))))))) + (if (pair? _%bind131168131175%_) + (let ((_%hd131172131291%_ (##car _%bind131168131175%_)) + (_%tl131173131293%_ (##cdr _%bind131168131175%_))) + (let* ((_%id131296%_ _%hd131172131291%_) + (_%rest131298%_ _%tl131173131293%_)) + (_%K131171131288%_ _%rest131298%_ _%id131296%_))) + (_%E131170131179%_)))) + _%bindings131153%_)))) (define gx#expander-context::bind-core-syntax-expanders!__0 - (lambda (_%self130406131197%_) - (let ((_%bindings131199%_ gx#*core-syntax-expanders*)) + (lambda (_%self130512131303%_) + (let ((_%bindings131305%_ gx#*core-syntax-expanders*)) (gx#expander-context::bind-core-syntax-expanders!__% - _%self130406131197%_ - _%bindings131199%_)))) + _%self130512131303%_ + _%bindings131305%_)))) (define gx#expander-context::bind-core-syntax-expanders! - (lambda _g131564_ - (let ((_g131563_ (##length _g131564_))) - (cond ((##fx= _g131563_ 1) + (lambda _g131670_ + (let ((_g131669_ (##length _g131670_))) + (cond ((##fx= _g131669_ 1) (apply gx#expander-context::bind-core-syntax-expanders!__0 - _g131564_)) - ((##fx= _g131563_ 2) + _g131670_)) + ((##fx= _g131669_ 2) (apply gx#expander-context::bind-core-syntax-expanders!__% - _g131564_)) + _g131670_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-syntax-expanders! - _g131564_)))))) + _g131670_)))))) (__bind-method!__% gx#expander-context::t 'bind-core-syntax-expanders! gx#expander-context::bind-core-syntax-expanders! '#f) (define gx#expander-context::bind-core-macro-expanders!__% - (lambda (_%self130407130804%_ _%bindings130806%_) - (let* ((_%self130808%_ _%self130407130804%_) - (_%self130810%_ _%self130808%_)) + (lambda (_%self130513130910%_ _%bindings130912%_) + (let* ((_%self130914%_ _%self130513130910%_) + (_%self130916%_ _%self130914%_)) (for-each - (lambda (_%bind130820%_) - (let* ((_%bind130821130828%_ _%bind130820%_) - (_%E130823130832%_ + (lambda (_%bind130926%_) + (let* ((_%bind130927130934%_ _%bind130926%_) + (_%E130929130938%_ (lambda () (error '"No clause matching" - _%bind130821130828%_ + _%bind130927130934%_ '([id . rest])) '#!void)) - (_%K130824130900%_ - (lambda (_%rest130835%_ _%id130836%_) + (_%K130930131006%_ + (lambda (_%rest130941%_ _%id130942%_) (gx#core-context-put! - _%self130810%_ - _%id130836%_ + _%self130916%_ + _%id130942%_ (##structure gx#syntax-binding::t - _%id130836%_ - _%id130836%_ + _%id130942%_ + _%id130942%_ '#f - (let* ((_%rest130837130852%_ _%rest130835%_) - (_%E130841130856%_ + (let* ((_%rest130943130958%_ _%rest130941%_) + (_%E130947130962%_ (lambda () (error '"No clause matching" - _%rest130837130852%_ + _%rest130943130958%_ '(['=> core-id]) '([proc]) '([])) '#!void))) - (let ((_%K130846130885%_ - (lambda (_%core-id130883%_) + (let ((_%K130952130991%_ + (lambda (_%core-id130989%_) (##structure gx#rename-macro-expander::t - _%core-id130883%_))) - (_%K130843130870%_ - (lambda (_%proc130868%_) + _%core-id130989%_))) + (_%K130949130976%_ + (lambda (_%proc130974%_) (##structure gx#macro-expander::t - _%proc130868%_))) - (_%K130842130861%_ + _%proc130974%_))) + (_%K130948130967%_ (lambda () (##structure gx#reserved-expander::t - _%id130836%_)))) - (let ((_%try-match130840130864%_ + _%id130942%_)))) + (let ((_%try-match130946130970%_ (lambda () - (if (null? _%rest130837130852%_) - (_%K130842130861%_) - (_%E130841130856%_))))) - (if (pair? _%rest130837130852%_) - (let ((_%tl130848130890%_ - (##cdr _%rest130837130852%_)) - (_%hd130847130888%_ - (##car _%rest130837130852%_))) - (if (##eq? _%hd130847130888%_ '=>) - (if (pair? _%tl130848130890%_) - (let ((_%tl130850130895%_ - (##cdr _%tl130848130890%_)) - (_%hd130849130893%_ - (##car _%tl130848130890%_))) - (if (null? _%tl130850130895%_) - (let ((_%core-id130898%_ - _%hd130849130893%_)) + (if (null? _%rest130943130958%_) + (_%K130948130967%_) + (_%E130947130962%_))))) + (if (pair? _%rest130943130958%_) + (let ((_%tl130954130996%_ + (##cdr _%rest130943130958%_)) + (_%hd130953130994%_ + (##car _%rest130943130958%_))) + (if (##eq? _%hd130953130994%_ '=>) + (if (pair? _%tl130954130996%_) + (let ((_%tl130956131001%_ + (##cdr _%tl130954130996%_)) + (_%hd130955130999%_ + (##car _%tl130954130996%_))) + (if (null? _%tl130956131001%_) + (let ((_%core-id131004%_ + _%hd130955130999%_)) (##structure gx#rename-macro-expander::t - _%core-id130898%_)) - (_%E130841130856%_))) - (if (null? _%tl130848130890%_) - (let ((_%proc130878%_ - _%hd130847130888%_)) + _%core-id131004%_)) + (_%E130947130962%_))) + (if (null? _%tl130954130996%_) + (let ((_%proc130984%_ + _%hd130953130994%_)) (##structure gx#macro-expander::t - _%proc130878%_)) - (_%E130841130856%_))) - (if (null? _%tl130848130890%_) - (let ((_%proc130878%_ - _%hd130847130888%_)) + _%proc130984%_)) + (_%E130947130962%_))) + (if (null? _%tl130954130996%_) + (let ((_%proc130984%_ + _%hd130953130994%_)) (##structure gx#macro-expander::t - _%proc130878%_)) - (_%E130841130856%_)))) - (_%try-match130840130864%_)))))))))) - (if (pair? _%bind130821130828%_) - (let ((_%hd130825130903%_ (##car _%bind130821130828%_)) - (_%tl130826130905%_ (##cdr _%bind130821130828%_))) - (let* ((_%id130908%_ _%hd130825130903%_) - (_%rest130910%_ _%tl130826130905%_)) - (_%K130824130900%_ _%rest130910%_ _%id130908%_))) - (_%E130823130832%_)))) - _%bindings130806%_)))) + _%proc130984%_)) + (_%E130947130962%_)))) + (_%try-match130946130970%_)))))))))) + (if (pair? _%bind130927130934%_) + (let ((_%hd130931131009%_ (##car _%bind130927130934%_)) + (_%tl130932131011%_ (##cdr _%bind130927130934%_))) + (let* ((_%id131014%_ _%hd130931131009%_) + (_%rest131016%_ _%tl130932131011%_)) + (_%K130930131006%_ _%rest131016%_ _%id131014%_))) + (_%E130929130938%_)))) + _%bindings130912%_)))) (define gx#expander-context::bind-core-macro-expanders!__0 - (lambda (_%self130407130915%_) - (let ((_%bindings130917%_ gx#*core-macro-expanders*)) + (lambda (_%self130513131021%_) + (let ((_%bindings131023%_ gx#*core-macro-expanders*)) (gx#expander-context::bind-core-macro-expanders!__% - _%self130407130915%_ - _%bindings130917%_)))) + _%self130513131021%_ + _%bindings131023%_)))) (define gx#expander-context::bind-core-macro-expanders! - (lambda _g131566_ - (let ((_g131565_ (##length _g131566_))) - (cond ((##fx= _g131565_ 1) + (lambda _g131672_ + (let ((_g131671_ (##length _g131672_))) + (cond ((##fx= _g131671_ 1) (apply gx#expander-context::bind-core-macro-expanders!__0 - _g131566_)) - ((##fx= _g131565_ 2) + _g131672_)) + ((##fx= _g131671_ 2) (apply gx#expander-context::bind-core-macro-expanders!__% - _g131566_)) + _g131672_)) (else (##raise-wrong-number-of-arguments-exception gx#expander-context::bind-core-macro-expanders! - _g131566_)))))) + _g131672_)))))) (__bind-method!__% gx#expander-context::t 'bind-core-macro-expanders! gx#expander-context::bind-core-macro-expanders! '#f) (define gx#expander-context::bind-core-features! - (lambda (_%self130408130534%_) - (let* ((_%self130537%_ _%self130408130534%_) - (_%self130539%_ _%self130537%_)) - (letrec ((_%linux-variant?130549%_ - (lambda (_%sys-type130649%_) - (let* ((_%g130650130658%_ + (lambda (_%self130514130640%_) + (let* ((_%self130643%_ _%self130514130640%_) + (_%self130645%_ _%self130643%_)) + (letrec ((_%linux-variant?130655%_ + (lambda (_%sys-type130755%_) + (let* ((_%g130756130764%_ (__string-split - (symbol->string _%sys-type130649%_) + (symbol->string _%sys-type130755%_) '#\-)) - (_%else130652130666%_ (lambda () '#f)) - (_%K130654130671%_ - (lambda (_%rest130669%_) - (not (null? _%rest130669%_))))) - (if (pair? _%g130650130658%_) - (let ((_%hd130655130674%_ - (##car _%g130650130658%_)) - (_%tl130656130676%_ - (##cdr _%g130650130658%_))) - (if (equal? _%hd130655130674%_ '"linux") - (let ((_%rest130679%_ _%tl130656130676%_)) - (_%K130654130671%_ _%rest130679%_)) - (_%else130652130666%_))) - (_%else130652130666%_))))) - (_%bsd-variant130550%_ - (lambda (_%sys-type130608%_) - (let ((_%sys-type-str130610%_ - (symbol->string _%sys-type130608%_))) - (let _%lp130612%_ ((_%rest130614%_ + (_%else130758130772%_ (lambda () '#f)) + (_%K130760130777%_ + (lambda (_%rest130775%_) + (not (null? _%rest130775%_))))) + (if (pair? _%g130756130764%_) + (let ((_%hd130761130780%_ + (##car _%g130756130764%_)) + (_%tl130762130782%_ + (##cdr _%g130756130764%_))) + (if (equal? _%hd130761130780%_ '"linux") + (let ((_%rest130785%_ _%tl130762130782%_)) + (_%K130760130777%_ _%rest130785%_)) + (_%else130758130772%_))) + (_%else130758130772%_))))) + (_%bsd-variant130656%_ + (lambda (_%sys-type130714%_) + (let ((_%sys-type-str130716%_ + (symbol->string _%sys-type130714%_))) + (let _%lp130718%_ ((_%rest130720%_ '("openbsd" "netbsd" "freebsd" "darwin"))) - (let* ((_%rest130615130623%_ _%rest130614%_) - (_%else130617130631%_ (lambda () '#f)) - (_%K130619130637%_ - (lambda (_%rest130634%_ _%sys130635%_) + (let* ((_%rest130721130729%_ _%rest130720%_) + (_%else130723130737%_ (lambda () '#f)) + (_%K130725130743%_ + (lambda (_%rest130740%_ _%sys130741%_) (if (string-prefix? - _%sys130635%_ - _%sys-type-str130610%_) - _%sys130635%_ - (_%lp130612%_ _%rest130634%_))))) - (if (pair? _%rest130615130623%_) - (let ((_%hd130620130640%_ - (##car _%rest130615130623%_)) - (_%tl130621130642%_ - (##cdr _%rest130615130623%_))) - (let* ((_%sys130645%_ _%hd130620130640%_) - (_%rest130647%_ _%tl130621130642%_)) - (_%K130619130637%_ - _%rest130647%_ - _%sys130645%_))) - (_%else130617130631%_)))))))) - (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130539%_) - (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130539%_) - (let* ((_%g130551130563%_ (system-type)) - (_%else130553130571%_ (lambda () '#!void)) - (_%K130555130584%_ - (lambda (_%sys-type130574%_ - _%sys-vendor130575%_ - _%sys-cpu130576%_) + _%sys130741%_ + _%sys-type-str130716%_) + _%sys130741%_ + (_%lp130718%_ _%rest130740%_))))) + (if (pair? _%rest130721130729%_) + (let ((_%hd130726130746%_ + (##car _%rest130721130729%_)) + (_%tl130727130748%_ + (##cdr _%rest130721130729%_))) + (let* ((_%sys130751%_ _%hd130726130746%_) + (_%rest130753%_ _%tl130727130748%_)) + (_%K130725130743%_ + _%rest130753%_ + _%sys130751%_))) + (_%else130723130737%_)))))))) + (gx#core-bind-feature!__% 'gerbil '#f '0 _%self130645%_) + (gx#core-bind-feature!__% (gerbil-system) '#f '0 _%self130645%_) + (let* ((_%g130657130669%_ (system-type)) + (_%else130659130677%_ (lambda () '#!void)) + (_%K130661130690%_ + (lambda (_%sys-type130680%_ + _%sys-vendor130681%_ + _%sys-cpu130682%_) (gx#core-bind-feature!__% - _%sys-cpu130576%_ + _%sys-cpu130682%_ '#f '0 - _%self130539%_) + _%self130645%_) (gx#core-bind-feature!__% - _%sys-type130574%_ + _%sys-type130680%_ '#f '0 - _%self130539%_) - (if (_%linux-variant?130549%_ _%sys-type130574%_) + _%self130645%_) + (if (_%linux-variant?130655%_ _%sys-type130680%_) (gx#core-bind-feature!__% (##string->symbol '"linux") '#f '0 - _%self130539%_) - (let ((_%$e130579%_ - (_%bsd-variant130550%_ _%sys-type130574%_))) - (if _%$e130579%_ - ((lambda (_%sys-prefix130582%_) + _%self130645%_) + (let ((_%$e130685%_ + (_%bsd-variant130656%_ _%sys-type130680%_))) + (if _%$e130685%_ + ((lambda (_%sys-prefix130688%_) (gx#core-bind-feature!__% (##string->symbol '"bsd") '#f '0 - _%self130539%_) + _%self130645%_) (gx#core-bind-feature!__% - (string->symbol _%sys-prefix130582%_) + (string->symbol _%sys-prefix130688%_) '#f '0 - _%self130539%_)) - _%$e130579%_) + _%self130645%_)) + _%$e130685%_) '#!void)))))) - (if (pair? _%g130551130563%_) - (let ((_%hd130556130587%_ (##car _%g130551130563%_)) - (_%tl130557130589%_ (##cdr _%g130551130563%_))) - (let ((_%sys-cpu130592%_ _%hd130556130587%_)) - (if (pair? _%tl130557130589%_) - (let ((_%hd130558130594%_ (##car _%tl130557130589%_)) - (_%tl130559130596%_ - (##cdr _%tl130557130589%_))) - (let ((_%sys-vendor130599%_ _%hd130558130594%_)) - (if (pair? _%tl130559130596%_) - (let ((_%hd130560130601%_ - (##car _%tl130559130596%_)) - (_%tl130561130603%_ - (##cdr _%tl130559130596%_))) - (let ((_%sys-type130606%_ - _%hd130560130601%_)) - (if (null? _%tl130561130603%_) - (_%K130555130584%_ - _%sys-type130606%_ - _%sys-vendor130599%_ - _%sys-cpu130592%_) + (if (pair? _%g130657130669%_) + (let ((_%hd130662130693%_ (##car _%g130657130669%_)) + (_%tl130663130695%_ (##cdr _%g130657130669%_))) + (let ((_%sys-cpu130698%_ _%hd130662130693%_)) + (if (pair? _%tl130663130695%_) + (let ((_%hd130664130700%_ (##car _%tl130663130695%_)) + (_%tl130665130702%_ + (##cdr _%tl130663130695%_))) + (let ((_%sys-vendor130705%_ _%hd130664130700%_)) + (if (pair? _%tl130665130702%_) + (let ((_%hd130666130707%_ + (##car _%tl130665130702%_)) + (_%tl130667130709%_ + (##cdr _%tl130665130702%_))) + (let ((_%sys-type130712%_ + _%hd130666130707%_)) + (if (null? _%tl130667130709%_) + (_%K130661130690%_ + _%sys-type130712%_ + _%sys-vendor130705%_ + _%sys-cpu130698%_) '#!void))) '#!void))) '#!void))) '#!void)) (if (gerbil-runtime-smp?) - (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130539%_) + (gx#core-bind-feature!__% 'gerbil-smp '#f '0 _%self130645%_) '#!void))))) (__bind-method!__% gx#expander-context::t diff --git a/src/bootstrap/gerbil/expander/stxcase~0.scm b/src/bootstrap/gerbil/expander/stxcase~0.scm index 2298f5690..93476df28 100644 --- a/src/bootstrap/gerbil/expander/stxcase~0.scm +++ b/src/bootstrap/gerbil/expander/stxcase~0.scm @@ -1,25 +1,25 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stxcase::timestamp 1733870075) + (define gerbil/expander/stxcase::timestamp 1734131747) (begin (define gx#syntax-pattern::t - (let ((__tmp132965 (list gx#expander::t)) - (__tmp132964 (cons (cons 'struct: '#t) '()))) + (let ((__tmp133071 (list gx#expander::t)) + (__tmp133070 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gx#syntax-pattern::t 'syntax-pattern - __tmp132965 + __tmp133071 '(id depth) - __tmp132964 + __tmp133070 '#f))) (define gx#syntax-pattern? (let () (declare (not safe)) (__make-class-predicate gx#syntax-pattern::t))) (define gx#make-syntax-pattern - (lambda _%$args132961%_ - (apply make-instance gx#syntax-pattern::t _%$args132961%_))) + (lambda _%$args133067%_ + (apply make-instance gx#syntax-pattern::t _%$args133067%_))) (define gx#syntax-pattern-id (let () (declare (not safe)) @@ -69,14 +69,14 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator gx#syntax-pattern::t 'e))) (define gx#syntax-pattern::apply-macro-expander - (lambda (_%self131568132945%_ _%stx132947%_) - (let* ((_%self132949%_ _%self131568132945%_) - (_%self132951%_ _%self132949%_)) + (lambda (_%self131674133051%_ _%stx133053%_) + (let* ((_%self133055%_ _%self131674133051%_) + (_%self133057%_ _%self133055%_)) (declare (not safe)) (gx#raise-syntax-error '#f '"Identifier used out of context" - _%stx132947%_)))) + _%stx133053%_)))) (let () (declare (not safe)) (__bind-method!__% @@ -85,602 +85,602 @@ gx#syntax-pattern::apply-macro-expander '#f)) (define gx#macro-expand-syntax - (lambda (_%stx132411%_) - (letrec ((_%generate132413%_ - (lambda (_%e132653%_) - (letrec ((_%BUG132655%_ - (lambda (_%q132820%_) + (lambda (_%stx132517%_) + (letrec ((_%generate132519%_ + (lambda (_%e132759%_) + (letrec ((_%BUG132761%_ + (lambda (_%q132926%_) (let () (declare (not safe)) (error '"BUG: syntax; generate" - _%stx132411%_ - _%e132653%_ - _%q132820%_)))) - (_%local-pattern-e132656%_ - (lambda (_%pat132818%_) - (let ((__tmp132966 + _%stx132517%_ + _%e132759%_ + _%q132926%_)))) + (_%local-pattern-e132762%_ + (lambda (_%pat132924%_) + (let ((__tmp133072 (##structure-ref - _%pat132818%_ + _%pat132924%_ '2 gx#syntax-pattern::t '#f))) (declare (not safe)) - (gx#syntax-local-rewrap __tmp132966)))) - (_%getvar132657%_ - (lambda (_%q132815%_ _%vars132816%_) + (gx#syntax-local-rewrap __tmp133072)))) + (_%getvar132763%_ + (lambda (_%q132921%_ _%vars132922%_) (let () (declare (not safe)) (agetq__% - _%q132815%_ - _%vars132816%_ - _%BUG132655%_)))) - (_%getarg132658%_ - (lambda (_%arg132781%_ _%vars132782%_) - (let* ((_%arg132783132790%_ _%arg132781%_) - (_%E132785132794%_ + _%q132921%_ + _%vars132922%_ + _%BUG132761%_)))) + (_%getarg132764%_ + (lambda (_%arg132887%_ _%vars132888%_) + (let* ((_%arg132889132896%_ _%arg132887%_) + (_%E132891132900%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%arg132783132790%_ + _%arg132889132896%_ '([tag . e]))) '#!void)) - (_%K132786132803%_ - (lambda (_%e132797%_ _%tag132798%_) - (let ((_%$e132800%_ _%tag132798%_)) - (if (eq? 'ref _%$e132800%_) - (_%getvar132657%_ - _%e132797%_ - _%vars132782%_) - (if (eq? 'pattern _%$e132800%_) - (_%local-pattern-e132656%_ - _%e132797%_) - (_%BUG132655%_ - _%arg132781%_))))))) - (if (pair? _%arg132783132790%_) - (let ((_%hd132787132806%_ + (_%K132892132909%_ + (lambda (_%e132903%_ _%tag132904%_) + (let ((_%$e132906%_ _%tag132904%_)) + (if (eq? 'ref _%$e132906%_) + (_%getvar132763%_ + _%e132903%_ + _%vars132888%_) + (if (eq? 'pattern _%$e132906%_) + (_%local-pattern-e132762%_ + _%e132903%_) + (_%BUG132761%_ + _%arg132887%_))))))) + (if (pair? _%arg132889132896%_) + (let ((_%hd132893132912%_ (let () (declare (not safe)) - (##car _%arg132783132790%_))) - (_%tl132788132808%_ + (##car _%arg132889132896%_))) + (_%tl132894132914%_ (let () (declare (not safe)) - (##cdr _%arg132783132790%_)))) - (let* ((_%tag132811%_ - _%hd132787132806%_) - (_%e132813%_ - _%tl132788132808%_)) - (_%K132786132803%_ - _%e132813%_ - _%tag132811%_))) - (_%E132785132794%_)))))) - (let _%recur132660%_ ((_%e132662%_ _%e132653%_) - (_%vars132663%_ '())) - (let* ((_%e132664132671%_ _%e132662%_) - (_%E132666132675%_ + (##cdr _%arg132889132896%_)))) + (let* ((_%tag132917%_ + _%hd132893132912%_) + (_%e132919%_ + _%tl132894132914%_)) + (_%K132892132909%_ + _%e132919%_ + _%tag132917%_))) + (_%E132891132900%_)))))) + (let _%recur132766%_ ((_%e132768%_ _%e132759%_) + (_%vars132769%_ '())) + (let* ((_%e132770132777%_ _%e132768%_) + (_%E132772132781%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e132664132671%_ + _%e132770132777%_ '([tag . body]))) '#!void)) - (_%K132667132769%_ - (lambda (_%body132678%_ _%tag132679%_) - (let ((_%$e132681%_ _%tag132679%_)) - (if (eq? 'datum _%$e132681%_) + (_%K132773132875%_ + (lambda (_%body132784%_ _%tag132785%_) + (let ((_%$e132787%_ _%tag132785%_)) + (if (eq? 'datum _%$e132787%_) (let () (declare (not safe)) - (gx#core-list 'quote _%body132678%_)) - (if (eq? 'term _%$e132681%_) - (let ((_%id132684%_ + (gx#core-list 'quote _%body132784%_)) + (if (eq? 'term _%$e132787%_) + (let ((_%id132790%_ (let () (declare (not safe)) (gx#syntax-local-unwrap - _%body132678%_)))) + _%body132784%_)))) (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132684%_ + _%id132790%_ 'gx#identifier-wrap::t)) - (let ((_%marks132687%_ + (let ((_%marks132793%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%id132684%_ + _%id132790%_ '3 '#f '#f)))) - (if (null? _%marks132687%_) - (let ((__tmp132967 + (if (null? _%marks132793%_) + (let ((__tmp133073 (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#core-list 'quote _%body132678%_)))) + (gx#core-list 'quote _%body132784%_)))) (declare (not safe)) - (gx#core-list 'datum->syntax '#f __tmp132967)) - (let ((__tmp132969 + (gx#core-list 'datum->syntax '#f __tmp133073)) + (let ((__tmp133075 (let () (declare (not safe)) - (gx#core-list 'quote-syntax _%body132678%_))) - (__tmp132968 + (gx#core-list 'quote-syntax _%body132784%_))) + (__tmp133074 (let () (declare (not safe)) - (gx#core-list 'quote _%body132678%_)))) + (gx#core-list 'quote _%body132784%_)))) (declare (not safe)) (gx#core-list 'datum->syntax - __tmp132969 - __tmp132968 + __tmp133075 + __tmp133074 '#f '#f)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (##structure-direct-instance-of? - _%id132684%_ + _%id132790%_ 'gx#syntax-quote::t)) (let () (declare (not safe)) (gx#core-list 'quote-syntax - _%body132678%_)) - (_%BUG132655%_ - _%e132662%_)))) - (if (eq? 'pattern _%$e132681%_) - (_%local-pattern-e132656%_ - _%body132678%_) - (if (eq? 'ref _%$e132681%_) - (_%getvar132657%_ - _%body132678%_ - _%vars132663%_) + _%body132784%_)) + (_%BUG132761%_ + _%e132768%_)))) + (if (eq? 'pattern _%$e132787%_) + (_%local-pattern-e132762%_ + _%body132784%_) + (if (eq? 'ref _%$e132787%_) + (_%getvar132763%_ + _%body132784%_ + _%vars132769%_) (if (eq? 'cons - _%$e132681%_) - (let ((__tmp132971 - (_%recur132660%_ - (car _%body132678%_) - _%vars132663%_)) - (__tmp132970 - (_%recur132660%_ - (cdr _%body132678%_) - _%vars132663%_))) + _%$e132787%_) + (let ((__tmp133077 + (_%recur132766%_ + (car _%body132784%_) + _%vars132769%_)) + (__tmp133076 + (_%recur132766%_ + (cdr _%body132784%_) + _%vars132769%_))) (declare (not safe)) (gx#core-list 'cons - __tmp132971 - __tmp132970)) + __tmp133077 + __tmp133076)) (if (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e132681%_) - (let ((__tmp132972 - (_%recur132660%_ _%body132678%_ _%vars132663%_))) + _%$e132787%_) + (let ((__tmp133078 + (_%recur132766%_ _%body132784%_ _%vars132769%_))) (declare (not safe)) - (gx#core-list 'list->vector __tmp132972)) - (if (eq? 'box _%$e132681%_) - (let ((__tmp132973 - (_%recur132660%_ - _%body132678%_ - _%vars132663%_))) + (gx#core-list 'list->vector __tmp133078)) + (if (eq? 'box _%$e132787%_) + (let ((__tmp133079 + (_%recur132766%_ + _%body132784%_ + _%vars132769%_))) (declare (not safe)) - (gx#core-list 'box __tmp132973)) - (if (eq? 'splice _%$e132681%_) - (let* ((_%body132690132701%_ _%body132678%_) - (_%E132692132705%_ + (gx#core-list 'box __tmp133079)) + (if (eq? 'splice _%$e132787%_) + (let* ((_%body132796132807%_ _%body132784%_) + (_%E132798132811%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132690132701%_ + _%body132796132807%_ '([depth hd iv . args]))) '#!void)) - (_%K132693132743%_ - (lambda (_%args132708%_ - _%iv132709%_ - _%hd132710%_ - _%depth132711%_) - (let* ((_%targets132717%_ - (map (lambda (_%g132712132714%_) - (_%getarg132658%_ - _%g132712132714%_ - _%vars132663%_)) - _%args132708%_)) - (_%fold-in132719%_ + (_%K132799132849%_ + (lambda (_%args132814%_ + _%iv132815%_ + _%hd132816%_ + _%depth132817%_) + (let* ((_%targets132823%_ + (map (lambda (_%g132818132820%_) + (_%getarg132764%_ + _%g132818132820%_ + _%vars132769%_)) + _%args132814%_)) + (_%fold-in132825%_ (let () (declare (not safe)) - (gx#gentemps _%args132708%_))) - (_%fold-out132721%_ + (gx#gentemps _%args132814%_))) + (_%fold-out132827%_ (let () (declare (not safe)) (gx#genident__0))) - (_%lambda-args132723%_ - (let ((__tmp132974 - (cons _%fold-out132721%_ + (_%lambda-args132829%_ + (let ((__tmp133080 + (cons _%fold-out132827%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp132974 - _%fold-in132719%_))) - (_%lambda-body132740%_ + __tmp133080 + _%fold-in132825%_))) + (_%lambda-body132846%_ (if (let () (declare (not safe)) - (##fx> _%depth132711%_ '1)) - (let ((_%r-args132731%_ - (map (lambda (_%arg132725%_) + (##fx> _%depth132817%_ '1)) + (let ((_%r-args132837%_ + (map (lambda (_%arg132831%_) (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cdr _%arg132725%_))) - _%args132708%_)) - (_%r-vars132732%_ - (let ((__tmp132975 - (lambda (_%arg132727%_ _%var132728%_ _%r132729%_) - (cons (cons (cdr _%arg132727%_) _%var132728%_) - _%r132729%_)))) + (cdr _%arg132831%_))) + _%args132814%_)) + (_%r-vars132838%_ + (let ((__tmp133081 + (lambda (_%arg132833%_ _%var132834%_ _%r132835%_) + (cons (cons (cdr _%arg132833%_) _%var132834%_) + _%r132835%_)))) (declare (not safe)) (__foldr2 - __tmp132975 - _%vars132663%_ - _%args132708%_ - _%fold-in132719%_)))) + __tmp133081 + _%vars132769%_ + _%args132814%_ + _%fold-in132825%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%recur132660%_ + (_%recur132766%_ (cons 'splice (cons (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##fx- _%depth132711%_ '1)) - (cons _%hd132710%_ - (cons (cons 'var _%fold-out132721%_) - _%r-args132731%_)))) + (##fx- _%depth132817%_ '1)) + (cons _%hd132816%_ + (cons (cons 'var _%fold-out132827%_) + _%r-args132837%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r-vars132732%_)) - (let* ((_%hd-vars132738%_ - (let ((__tmp132976 + _%r-vars132838%_)) + (let* ((_%hd-vars132844%_ + (let ((__tmp133082 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%arg132734%_ _%var132735%_ _%r132736%_) - (cons (cons (cdr _%arg132734%_) _%var132735%_) - _%r132736%_)))) + (lambda (_%arg132840%_ _%var132841%_ _%r132842%_) + (cons (cons (cdr _%arg132840%_) _%var132841%_) + _%r132842%_)))) (declare (not safe)) (__foldr2 - __tmp132976 - _%vars132663%_ - _%args132708%_ - _%fold-in132719%_))) - (__tmp132977 - (_%recur132660%_ _%hd132710%_ _%hd-vars132738%_))) + __tmp133082 + _%vars132769%_ + _%args132814%_ + _%fold-in132825%_))) + (__tmp133083 + (_%recur132766%_ _%hd132816%_ _%hd-vars132844%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'cons - __tmp132977 - _%fold-out132721%_))))) - (let ((__tmp132981 - (if (let ((__tmp132982 + __tmp133083 + _%fold-out132827%_))))) + (let ((__tmp133087 + (if (let ((__tmp133088 (let () (declare (not safe)) (##length - _%targets132717%_)))) + _%targets132823%_)))) (declare (not safe)) - (##fx> __tmp132982 '1)) + (##fx> __tmp133088 '1)) (let () (declare (not safe)) (gx#core-cons* 'syntax-check-splice-targets - _%targets132717%_)) + _%targets132823%_)) '#!void)) - (__tmp132978 - (let ((__tmp132980 + (__tmp133084 + (let ((__tmp133086 (let () (declare (not safe)) (gx#core-list 'lambda% - _%lambda-args132723%_ - _%lambda-body132740%_))) - (__tmp132979 - (_%recur132660%_ - _%iv132709%_ - _%vars132663%_))) + _%lambda-args132829%_ + _%lambda-body132846%_))) + (__tmp133085 + (_%recur132766%_ + _%iv132815%_ + _%vars132769%_))) (declare (not safe)) (gx#core-cons* 'foldr - __tmp132980 - __tmp132979 - _%targets132717%_)))) + __tmp133086 + __tmp133085 + _%targets132823%_)))) (declare (not safe)) (gx#core-list 'begin - __tmp132981 - __tmp132978)))))) - (if (pair? _%body132690132701%_) - (let ((_%hd132694132746%_ + __tmp133087 + __tmp133084)))))) + (if (pair? _%body132796132807%_) + (let ((_%hd132800132852%_ (let () (declare (not safe)) - (##car _%body132690132701%_))) - (_%tl132695132748%_ + (##car _%body132796132807%_))) + (_%tl132801132854%_ (let () (declare (not safe)) - (##cdr _%body132690132701%_)))) - (let ((_%depth132751%_ _%hd132694132746%_)) - (if (pair? _%tl132695132748%_) - (let ((_%hd132696132753%_ + (##cdr _%body132796132807%_)))) + (let ((_%depth132857%_ _%hd132800132852%_)) + (if (pair? _%tl132801132854%_) + (let ((_%hd132802132859%_ (let () (declare (not safe)) - (##car _%tl132695132748%_))) - (_%tl132697132755%_ + (##car _%tl132801132854%_))) + (_%tl132803132861%_ (let () (declare (not safe)) - (##cdr _%tl132695132748%_)))) - (let ((_%hd132758%_ - _%hd132696132753%_)) - (if (pair? _%tl132697132755%_) - (let ((_%hd132698132760%_ + (##cdr _%tl132801132854%_)))) + (let ((_%hd132864%_ + _%hd132802132859%_)) + (if (pair? _%tl132803132861%_) + (let ((_%hd132804132866%_ (let () (declare (not safe)) - (##car _%tl132697132755%_))) - (_%tl132699132762%_ + (##car _%tl132803132861%_))) + (_%tl132805132868%_ (let () (declare (not safe)) - (##cdr _%tl132697132755%_)))) - (let* ((_%iv132765%_ - _%hd132698132760%_) - (_%args132767%_ - _%tl132699132762%_)) - (_%K132693132743%_ - _%args132767%_ - _%iv132765%_ - _%hd132758%_ - _%depth132751%_))) - (_%E132692132705%_)))) - (_%E132692132705%_)))) - (_%E132692132705%_))) - (if (eq? 'var _%$e132681%_) - _%body132678%_ - (_%BUG132655%_ _%e132662%_)))))))))))))) + (##cdr _%tl132803132861%_)))) + (let* ((_%iv132871%_ + _%hd132804132866%_) + (_%args132873%_ + _%tl132805132868%_)) + (_%K132799132849%_ + _%args132873%_ + _%iv132871%_ + _%hd132864%_ + _%depth132857%_))) + (_%E132798132811%_)))) + (_%E132798132811%_)))) + (_%E132798132811%_))) + (if (eq? 'var _%$e132787%_) + _%body132784%_ + (_%BUG132761%_ _%e132768%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e132664132671%_) - (let ((_%hd132668132772%_ + (if (pair? _%e132770132777%_) + (let ((_%hd132774132878%_ (let () (declare (not safe)) - (##car _%e132664132671%_))) - (_%tl132669132774%_ + (##car _%e132770132777%_))) + (_%tl132775132880%_ (let () (declare (not safe)) - (##cdr _%e132664132671%_)))) - (let* ((_%tag132777%_ _%hd132668132772%_) - (_%body132779%_ _%tl132669132774%_)) - (_%K132667132769%_ - _%body132779%_ - _%tag132777%_))) - (_%E132666132675%_))))))) - (_%parse132414%_ - (lambda (_%e132455%_) - (letrec ((_%make-cons132457%_ - (lambda (_%hd132645%_ _%tl132646%_) - (let ((_g132983_ _%hd132645%_) - (_g132985_ _%tl132646%_)) + (##cdr _%e132770132777%_)))) + (let* ((_%tag132883%_ _%hd132774132878%_) + (_%body132885%_ _%tl132775132880%_)) + (_%K132773132875%_ + _%body132885%_ + _%tag132883%_))) + (_%E132772132781%_))))))) + (_%parse132520%_ + (lambda (_%e132561%_) + (letrec ((_%make-cons132563%_ + (lambda (_%hd132751%_ _%tl132752%_) + (let ((_g133089_ _%hd132751%_) + (_g133091_ _%tl132752%_)) (begin - (let ((_g132984_ + (let ((_g133090_ (let () (declare (not safe)) - (if (##values? _g132983_) - (##vector-length _g132983_) + (if (##values? _g133089_) + (##values-length _g133089_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132984_ 2))) + (##fx= _g133090_ 2))) (error "Context expects 2 values" - _g132984_))) - (let ((_g132986_ + _g133090_))) + (let ((_g133092_ (let () (declare (not safe)) - (if (##values? _g132985_) - (##vector-length _g132985_) + (if (##values? _g133091_) + (##values-length _g133091_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132986_ 2))) + (##fx= _g133092_ 2))) (error "Context expects 2 values" - _g132986_))) - (let ((_%hd-e132648%_ + _g133092_))) + (let ((_%hd-e132754%_ (let () (declare (not safe)) - (##vector-ref _g132983_ 0))) - (_%hd-vars132649%_ + (##values-ref _g133089_ 0))) + (_%hd-vars132755%_ (let () (declare (not safe)) - (##vector-ref _g132983_ 1)))) - (let ((_%tl-e132650%_ + (##values-ref _g133089_ 1)))) + (let ((_%tl-e132756%_ (let () (declare (not safe)) - (##vector-ref _g132985_ 0))) - (_%tl-vars132651%_ + (##values-ref _g133091_ 0))) + (_%tl-vars132757%_ (let () (declare (not safe)) - (##vector-ref _g132985_ 1)))) + (##values-ref _g133091_ 1)))) (values (cons 'cons - (cons _%hd-e132648%_ - _%tl-e132650%_)) - (append _%hd-vars132649%_ - _%tl-vars132651%_)))))))) - (_%make-splice132458%_ - (lambda (_%where132581%_ - _%depth132582%_ - _%hd132583%_ - _%tl132584%_) - (let ((_g132987_ _%hd132583%_) - (_g132989_ _%tl132584%_)) + (cons _%hd-e132754%_ + _%tl-e132756%_)) + (append _%hd-vars132755%_ + _%tl-vars132757%_)))))))) + (_%make-splice132564%_ + (lambda (_%where132687%_ + _%depth132688%_ + _%hd132689%_ + _%tl132690%_) + (let ((_g133093_ _%hd132689%_) + (_g133095_ _%tl132690%_)) (begin - (let ((_g132988_ + (let ((_g133094_ (let () (declare (not safe)) - (if (##values? _g132987_) - (##vector-length _g132987_) + (if (##values? _g133093_) + (##values-length _g133093_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132988_ 2))) + (##fx= _g133094_ 2))) (error "Context expects 2 values" - _g132988_))) - (let ((_g132990_ + _g133094_))) + (let ((_g133096_ (let () (declare (not safe)) - (if (##values? _g132989_) - (##vector-length _g132989_) + (if (##values? _g133095_) + (##values-length _g133095_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132990_ 2))) + (##fx= _g133096_ 2))) (error "Context expects 2 values" - _g132990_))) - (let ((_%hd-e132586%_ + _g133096_))) + (let ((_%hd-e132692%_ (let () (declare (not safe)) - (##vector-ref _g132987_ 0))) - (_%hd-vars132587%_ + (##values-ref _g133093_ 0))) + (_%hd-vars132693%_ (let () (declare (not safe)) - (##vector-ref _g132987_ 1)))) - (let ((_%tl-e132588%_ + (##values-ref _g133093_ 1)))) + (let ((_%tl-e132694%_ (let () (declare (not safe)) - (##vector-ref _g132989_ 0))) - (_%tl-vars132589%_ + (##values-ref _g133095_ 0))) + (_%tl-vars132695%_ (let () (declare (not safe)) - (##vector-ref _g132989_ 1)))) - (let _%lp132591%_ ((_%rest132593%_ - _%hd-vars132587%_) - (_%targets132594%_ + (##values-ref _g133095_ 1)))) + (let _%lp132697%_ ((_%rest132699%_ + _%hd-vars132693%_) + (_%targets132700%_ '()) - (_%vars132595%_ - _%tl-vars132589%_)) - (let* ((_%rest132596132606%_ - _%rest132593%_) - (_%else132598132614%_ + (_%vars132701%_ + _%tl-vars132695%_)) + (let* ((_%rest132702132712%_ + _%rest132699%_) + (_%else132704132720%_ (lambda () - (if (null? _%targets132594%_) + (if (null? _%targets132700%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx132411%_ - _%where132581%_)) + _%stx132517%_ + _%where132687%_)) (values (cons 'splice ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%depth132582%_ - (cons _%hd-e132586%_ - (cons _%tl-e132588%_ - _%targets132594%_)))) - _%vars132595%_)))) + (cons _%depth132688%_ + (cons _%hd-e132692%_ + (cons _%tl-e132694%_ + _%targets132700%_)))) + _%vars132701%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K132600132626%_ - (lambda (_%rest132617%_ - _%hd-pat132618%_ - _%hd-depth*132619%_) - (let ((_%hd-depth132621%_ - (fx- _%hd-depth*132619%_ - _%depth132582%_))) + (_%K132706132732%_ + (lambda (_%rest132723%_ + _%hd-pat132724%_ + _%hd-depth*132725%_) + (let ((_%hd-depth132727%_ + (fx- _%hd-depth*132725%_ + _%depth132688%_))) (if (let () (declare (not safe)) (##fxpositive? - _%hd-depth132621%_)) - (_%lp132591%_ - _%rest132617%_ + _%hd-depth132727%_)) + (_%lp132697%_ + _%rest132723%_ (cons (cons 'ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd-pat132618%_) - _%targets132594%_) - (cons (cons _%hd-depth132621%_ _%hd-pat132618%_) - _%vars132595%_)) + _%hd-pat132724%_) + _%targets132700%_) + (cons (cons _%hd-depth132727%_ _%hd-pat132724%_) + _%vars132701%_)) (if (let () (declare (not safe)) - (##fxzero? _%hd-depth132621%_)) - (_%lp132591%_ - _%rest132617%_ - (cons (cons 'pattern _%hd-pat132618%_) - _%targets132594%_) - _%vars132595%_) + (##fxzero? _%hd-depth132727%_)) + (_%lp132697%_ + _%rest132723%_ + (cons (cons 'pattern _%hd-pat132724%_) + _%targets132700%_) + _%vars132701%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Too many ellipses" - _%stx132411%_ - _%where132581%_)))))))) + _%stx132517%_ + _%where132687%_)))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%rest132596132606%_) - (let ((_%hd132601132629%_ + (if (pair? _%rest132702132712%_) + (let ((_%hd132707132735%_ (let () (declare (not safe)) - (##car _%rest132596132606%_))) - (_%tl132602132631%_ + (##car _%rest132702132712%_))) + (_%tl132708132737%_ (let () (declare (not safe)) - (##cdr _%rest132596132606%_)))) - (if (pair? _%hd132601132629%_) - (let ((_%hd132603132634%_ + (##cdr _%rest132702132712%_)))) + (if (pair? _%hd132707132735%_) + (let ((_%hd132709132740%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%hd132601132629%_))) - (_%tl132604132636%_ - (let () (declare (not safe)) (##cdr _%hd132601132629%_)))) - (let* ((_%hd-depth*132639%_ _%hd132603132634%_) - (_%hd-pat132641%_ _%tl132604132636%_) - (_%rest132643%_ _%tl132602132631%_)) - (_%K132600132626%_ - _%rest132643%_ - _%hd-pat132641%_ - _%hd-depth*132639%_))) - (_%else132598132614%_))) + (##car _%hd132707132735%_))) + (_%tl132710132742%_ + (let () (declare (not safe)) (##cdr _%hd132707132735%_)))) + (let* ((_%hd-depth*132745%_ _%hd132709132740%_) + (_%hd-pat132747%_ _%tl132710132742%_) + (_%rest132749%_ _%tl132708132737%_)) + (_%K132706132732%_ + _%rest132749%_ + _%hd-pat132747%_ + _%hd-depth*132745%_))) + (_%else132704132720%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%else132598132614%_)))))))))) - (_%recur132459%_ - (lambda (_%e132464%_ _%is-e?132465%_) - (if (_%is-e?132465%_ _%e132464%_) + (_%else132704132720%_)))))))))) + (_%recur132565%_ + (lambda (_%e132570%_ _%is-e?132571%_) + (if (_%is-e?132571%_ _%e132570%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Mislpaced ellipsis" - _%stx132411%_)) - (if (gx#syntax-local-pattern? _%e132464%_) - (let* ((_%pat132469%_ + _%stx132517%_)) + (if (gx#syntax-local-pattern? _%e132570%_) + (let* ((_%pat132575%_ (let () (declare (not safe)) (gx#syntax-local-e__0 - _%e132464%_))) - (_%depth132471%_ + _%e132570%_))) + (_%depth132577%_ (##structure-ref - _%pat132469%_ + _%pat132575%_ '3 gx#syntax-pattern::t '#f))) - (if (fxpositive? _%depth132471%_) - (values (cons 'ref _%pat132469%_) - (cons (cons _%depth132471%_ + (if (fxpositive? _%depth132577%_) + (values (cons 'ref _%pat132575%_) + (cons (cons _%depth132577%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pat132469%_) + _%pat132575%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (values (cons 'pattern - _%pat132469%_) + _%pat132575%_) '()))) (if (let () (declare (not safe)) - (gx#identifier? _%e132464%_)) - (values (cons 'term _%e132464%_) + (gx#identifier? _%e132570%_)) + (values (cons 'term _%e132570%_) '()) (if (let () (declare (not safe)) - (gx#stx-pair? _%e132464%_)) - (let* ((_%e132475132482%_ - _%e132464%_) - (_%E132477132486%_ + (gx#stx-pair? _%e132570%_)) + (let* ((_%e132581132588%_ + _%e132570%_) + (_%E132583132592%_ (lambda () (let () (declare @@ -688,1989 +688,1989 @@ (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132475132482%_)))) - (_%E132476132568%_ + _%e132581132588%_)))) + (_%E132582132674%_ (lambda () (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-pair? _%e132475132482%_)) - (let ((_%e132478132490%_ + (gx#stx-pair? _%e132581132588%_)) + (let ((_%e132584132596%_ (let () (declare (not safe)) - (gx#syntax-e _%e132475132482%_)))) - (let ((_%hd132479132493%_ + (gx#syntax-e _%e132581132588%_)))) + (let ((_%hd132585132599%_ (let () (declare (not safe)) - (##car _%e132478132490%_))) - (_%tl132480132495%_ + (##car _%e132584132596%_))) + (_%tl132586132601%_ (let () (declare (not safe)) - (##cdr _%e132478132490%_)))) - (let* ((_%hd132498%_ _%hd132479132493%_) - (_%rest132500%_ _%tl132480132495%_)) - (if (_%is-e?132465%_ _%hd132498%_) - (let* ((_%e132501132508%_ _%rest132500%_) - (_%E132503132512%_ + (##cdr _%e132584132596%_)))) + (let* ((_%hd132604%_ _%hd132585132599%_) + (_%rest132606%_ _%tl132586132601%_)) + (if (_%is-e?132571%_ _%hd132604%_) + (let* ((_%e132607132614%_ _%rest132606%_) + (_%E132609132618%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad ellipsis syntax" - _%stx132411%_ - _%e132464%_)))) - (_%E132502132526%_ + _%stx132517%_ + _%e132570%_)))) + (_%E132608132632%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132501132508%_)) - (let ((_%e132504132516%_ + _%e132607132614%_)) + (let ((_%e132610132622%_ (let () (declare (not safe)) (gx#syntax-e - _%e132501132508%_)))) - (let ((_%hd132505132519%_ + _%e132607132614%_)))) + (let ((_%hd132611132625%_ (let () (declare (not safe)) - (##car _%e132504132516%_))) - (_%tl132506132521%_ + (##car _%e132610132622%_))) + (_%tl132612132627%_ (let () (declare (not safe)) - (##cdr _%e132504132516%_)))) - (let ((_%rest132524%_ - _%hd132505132519%_)) + (##cdr _%e132610132622%_)))) + (let ((_%rest132630%_ + _%hd132611132625%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132506132521%_)) - (_%recur132459%_ - _%rest132524%_ + _%tl132612132627%_)) + (_%recur132565%_ + _%rest132630%_ false) - (_%E132503132512%_))))) - (_%E132503132512%_))))) - (_%E132502132526%_)) - (let _%lp132530%_ ((_%rest132532%_ - _%rest132500%_) - (_%depth132533%_ '0)) - (let* ((_%e132534132541%_ _%rest132532%_) - (_%E132536132545%_ + (_%E132609132618%_))))) + (_%E132609132618%_))))) + (_%E132608132632%_)) + (let _%lp132636%_ ((_%rest132638%_ + _%rest132606%_) + (_%depth132639%_ '0)) + (let* ((_%e132640132647%_ _%rest132638%_) + (_%E132642132651%_ (lambda () - (if (fxpositive? _%depth132533%_) - (_%make-splice132458%_ - _%e132464%_ - _%depth132533%_ - (_%recur132459%_ - _%hd132498%_ - _%is-e?132465%_) - (_%recur132459%_ - _%rest132532%_ - _%is-e?132465%_)) - (_%make-cons132457%_ - (_%recur132459%_ - _%hd132498%_ - _%is-e?132465%_) - (_%recur132459%_ - _%rest132532%_ - _%is-e?132465%_))))) - (_%E132535132564%_ + (if (fxpositive? _%depth132639%_) + (_%make-splice132564%_ + _%e132570%_ + _%depth132639%_ + (_%recur132565%_ + _%hd132604%_ + _%is-e?132571%_) + (_%recur132565%_ + _%rest132638%_ + _%is-e?132571%_)) + (_%make-cons132563%_ + (_%recur132565%_ + _%hd132604%_ + _%is-e?132571%_) + (_%recur132565%_ + _%rest132638%_ + _%is-e?132571%_))))) + (_%E132641132670%_ (lambda () (if (let () (declare (not safe)) (gx#stx-pair? - _%e132534132541%_)) - (let ((_%e132537132549%_ + _%e132640132647%_)) + (let ((_%e132643132655%_ (let () (declare (not safe)) (gx#syntax-e - _%e132534132541%_)))) - (let ((_%hd132538132552%_ + _%e132640132647%_)))) + (let ((_%hd132644132658%_ (let () (declare (not safe)) - (##car _%e132537132549%_))) - (_%tl132539132554%_ + (##car _%e132643132655%_))) + (_%tl132645132660%_ (let () (declare (not safe)) - (##cdr _%e132537132549%_)))) - (let* ((_%rest-hd132557%_ - _%hd132538132552%_) - (_%rest-tl132559%_ - _%tl132539132554%_)) - (if (_%is-e?132465%_ - _%rest-hd132557%_) - (_%lp132530%_ - _%rest-tl132559%_ + (##cdr _%e132643132655%_)))) + (let* ((_%rest-hd132663%_ + _%hd132644132658%_) + (_%rest-tl132665%_ + _%tl132645132660%_)) + (if (_%is-e?132571%_ + _%rest-hd132663%_) + (_%lp132636%_ + _%rest-tl132665%_ (let () (declare (not safe)) - (##fx+ _%depth132533%_ + (##fx+ _%depth132639%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '1))) - (if (fxpositive? _%depth132533%_) - (_%make-splice132458%_ - _%e132464%_ - _%depth132533%_ - (_%recur132459%_ _%hd132498%_ _%is-e?132465%_) - (_%recur132459%_ _%rest132532%_ _%is-e?132465%_)) - (_%make-cons132457%_ - (_%recur132459%_ _%hd132498%_ _%is-e?132465%_) - (_%recur132459%_ _%rest132532%_ _%is-e?132465%_))))))) + (if (fxpositive? _%depth132639%_) + (_%make-splice132564%_ + _%e132570%_ + _%depth132639%_ + (_%recur132565%_ _%hd132604%_ _%is-e?132571%_) + (_%recur132565%_ _%rest132638%_ _%is-e?132571%_)) + (_%make-cons132563%_ + (_%recur132565%_ _%hd132604%_ _%is-e?132571%_) + (_%recur132565%_ _%rest132638%_ _%is-e?132571%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132536132545%_))))) - (_%E132535132564%_))))))) - (_%E132477132486%_))))) + (_%E132642132651%_))))) + (_%E132641132670%_))))))) + (_%E132583132592%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132476132568%_)) + (_%E132582132674%_)) (if (let () (declare (not safe)) (gx#stx-vector? - _%e132464%_)) - (let ((_g132991_ - (_%recur132459%_ + _%e132570%_)) + (let ((_g133097_ + (_%recur132565%_ (vector->list (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#stx-unwrap__0 _%e132464%_))) - _%is-e?132465%_))) + (gx#stx-unwrap__0 _%e132570%_))) + _%is-e?132571%_))) (begin - (let ((_g132992_ + (let ((_g133098_ (let () (declare (not safe)) - (if (##values? _g132991_) - (##vector-length _g132991_) + (if (##values? _g133097_) + (##values-length _g133097_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g132992_ 2))) - (error "Context expects 2 values" _g132992_))) - (let ((_%e132573%_ + (if (not (let () (declare (not safe)) (##fx= _g133098_ 2))) + (error "Context expects 2 values" _g133098_))) + (let ((_%e132679%_ (let () (declare (not safe)) - (##vector-ref _g132991_ 0))) - (_%vars132574%_ + (##values-ref _g133097_ 0))) + (_%vars132680%_ (let () (declare (not safe)) - (##vector-ref _g132991_ 1)))) - (values (cons 'vector _%e132573%_) _%vars132574%_)))) + (##values-ref _g133097_ 1)))) + (values (cons 'vector _%e132679%_) _%vars132680%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) (gx#stx-box? - _%e132464%_)) - (let ((_g132993_ - (_%recur132459%_ + _%e132570%_)) + (let ((_g133099_ + (_%recur132565%_ (unbox (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#stx-unwrap__0 _%e132464%_))) - _%is-e?132465%_))) + (gx#stx-unwrap__0 _%e132570%_))) + _%is-e?132571%_))) (begin - (let ((_g132994_ + (let ((_g133100_ (let () (declare (not safe)) - (if (##values? _g132993_) - (##vector-length _g132993_) + (if (##values? _g133099_) + (##values-length _g133099_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132994_ 2))) - (error "Context expects 2 values" _g132994_))) - (let ((_%e132577%_ + (##fx= _g133100_ 2))) + (error "Context expects 2 values" _g133100_))) + (let ((_%e132683%_ (let () (declare (not safe)) - (##vector-ref _g132993_ 0))) - (_%vars132578%_ + (##values-ref _g133099_ 0))) + (_%vars132684%_ (let () (declare (not safe)) - (##vector-ref _g132993_ 1)))) - (values (cons 'box _%e132577%_) _%vars132578%_)))) - (values (cons 'datum _%e132464%_) '())))))))))) + (##values-ref _g133099_ 1)))) + (values (cons 'box _%e132683%_) _%vars132684%_)))) + (values (cons 'datum _%e132570%_) '())))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_g132995_ - (_%recur132459%_ _%e132455%_ gx#ellipsis?))) + (let ((_g133101_ + (_%recur132565%_ _%e132561%_ gx#ellipsis?))) (begin - (let ((_g132996_ + (let ((_g133102_ (let () (declare (not safe)) - (if (##values? _g132995_) - (##vector-length _g132995_) + (if (##values? _g133101_) + (##values-length _g133101_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g132996_ 2))) - (error "Context expects 2 values" _g132996_))) - (let ((_%tree132461%_ + (##fx= _g133102_ 2))) + (error "Context expects 2 values" _g133102_))) + (let ((_%tree132567%_ (let () (declare (not safe)) - (##vector-ref _g132995_ 0))) - (_%vars132462%_ + (##values-ref _g133101_ 0))) + (_%vars132568%_ (let () (declare (not safe)) - (##vector-ref _g132995_ 1)))) - (if (null? _%vars132462%_) - _%tree132461%_ + (##values-ref _g133101_ 1)))) + (if (null? _%vars132568%_) + _%tree132567%_ (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Missing ellipsis" - _%stx132411%_ - _%vars132462%_)))))))))) - (let* ((_%e132415132425%_ _%stx132411%_) - (_%E132417132429%_ + _%stx132517%_ + _%vars132568%_)))))))))) + (let* ((_%e132521132531%_ _%stx132517%_) + (_%E132523132535%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; expand-syntax expects a single argument" - _%stx132411%_)))) - (_%E132416132451%_ + _%stx132517%_)))) + (_%E132522132557%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132415132425%_)) - (let ((_%e132418132433%_ + (gx#stx-pair? _%e132521132531%_)) + (let ((_%e132524132539%_ (let () (declare (not safe)) - (gx#syntax-e _%e132415132425%_)))) - (let ((_%hd132419132436%_ + (gx#syntax-e _%e132521132531%_)))) + (let ((_%hd132525132542%_ (let () (declare (not safe)) - (##car _%e132418132433%_))) - (_%tl132420132438%_ + (##car _%e132524132539%_))) + (_%tl132526132544%_ (let () (declare (not safe)) - (##cdr _%e132418132433%_)))) + (##cdr _%e132524132539%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl132420132438%_)) - (let ((_%e132421132441%_ + (gx#stx-pair? _%tl132526132544%_)) + (let ((_%e132527132547%_ (let () (declare (not safe)) - (gx#syntax-e _%tl132420132438%_)))) - (let ((_%hd132422132444%_ + (gx#syntax-e _%tl132526132544%_)))) + (let ((_%hd132528132550%_ (let () (declare (not safe)) - (##car _%e132421132441%_))) - (_%tl132423132446%_ + (##car _%e132527132547%_))) + (_%tl132529132552%_ (let () (declare (not safe)) - (##cdr _%e132421132441%_)))) - (let ((_%form132449%_ _%hd132422132444%_)) + (##cdr _%e132527132547%_)))) + (let ((_%form132555%_ _%hd132528132550%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132423132446%_)) - (let ((__tmp132998 - (_%generate132413%_ - (_%parse132414%_ - _%form132449%_))) - (__tmp132997 + (gx#stx-null? _%tl132529132552%_)) + (let ((__tmp133104 + (_%generate132519%_ + (_%parse132520%_ + _%form132555%_))) + (__tmp133103 (let () (declare (not safe)) (gx#stx-source - _%stx132411%_)))) + _%stx132517%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp132998 - __tmp132997)) - (_%E132417132429%_))))) - (_%E132417132429%_)))) - (_%E132417132429%_))))) - (_%E132416132451%_))))) + __tmp133104 + __tmp133103)) + (_%E132523132535%_))))) + (_%E132523132535%_)))) + (_%E132523132535%_))))) + (_%E132522132557%_))))) (define gx#macro-expand-syntax-case__% - (lambda (_%stx131660%_ - _%identifier=?131661%_ - _%unwrap-e131662%_ - _%wrap-e131663%_) - (letrec ((_%generate-bindings131665%_ - (lambda (_%target132275%_ - _%ids132276%_ - _%clauses132277%_ - _%clause-ids132278%_ - _%E132279%_) - (letrec ((_%generate1132281%_ - (lambda (_%clause132378%_ - _%clause-id132379%_ - _%E132380%_) - (cons (cons _%clause-id132379%_ '()) - (cons (let ((__tmp133000 - (cons _%target132275%_ '())) - (__tmp132999 - (_%generate-clause131667%_ - _%target132275%_ - _%ids132276%_ - _%clause132378%_ - _%E132380%_))) + (lambda (_%stx131766%_ + _%identifier=?131767%_ + _%unwrap-e131768%_ + _%wrap-e131769%_) + (letrec ((_%generate-bindings131771%_ + (lambda (_%target132381%_ + _%ids132382%_ + _%clauses132383%_ + _%clause-ids132384%_ + _%E132385%_) + (letrec ((_%generate1132387%_ + (lambda (_%clause132484%_ + _%clause-id132485%_ + _%E132486%_) + (cons (cons _%clause-id132485%_ '()) + (cons (let ((__tmp133106 + (cons _%target132381%_ '())) + (__tmp133105 + (_%generate-clause131773%_ + _%target132381%_ + _%ids132382%_ + _%clause132484%_ + _%E132486%_))) (declare (not safe)) (gx#core-list 'lambda% - __tmp133000 - __tmp132999)) + __tmp133106 + __tmp133105)) '()))))) - (let _%lp132283%_ ((_%rest132285%_ _%clauses132277%_) - (_%rest-ids132286%_ - _%clause-ids132278%_) - (_%bindings132287%_ '())) - (let* ((_%rest132288132296%_ _%rest132285%_) - (_%else132290132304%_ - (lambda () _%bindings132287%_)) - (_%K132292132366%_ - (lambda (_%rest132307%_ _%clause132308%_) - (let* ((_%rest-ids132309132316%_ - _%rest-ids132286%_) - (_%E132311132320%_ + (let _%lp132389%_ ((_%rest132391%_ _%clauses132383%_) + (_%rest-ids132392%_ + _%clause-ids132384%_) + (_%bindings132393%_ '())) + (let* ((_%rest132394132402%_ _%rest132391%_) + (_%else132396132410%_ + (lambda () _%bindings132393%_)) + (_%K132398132472%_ + (lambda (_%rest132413%_ _%clause132414%_) + (let* ((_%rest-ids132415132422%_ + _%rest-ids132392%_) + (_%E132417132426%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest-ids132309132316%_ + _%rest-ids132415132422%_ '([clause-id . rest-ids]))) '#!void)) - (_%K132312132354%_ - (lambda (_%rest-ids132323%_ - _%clause-id132324%_) - (let* ((_%rest-ids132325132333%_ - _%rest-ids132323%_) - (_%else132327132341%_ + (_%K132418132460%_ + (lambda (_%rest-ids132429%_ + _%clause-id132430%_) + (let* ((_%rest-ids132431132439%_ + _%rest-ids132429%_) + (_%else132433132447%_ (lambda () - (cons (_%generate1132281%_ - _%clause132308%_ - _%clause-id132324%_ - _%E132279%_) - _%bindings132287%_))) - (_%K132329132346%_ - (lambda (_%next-clause-id132344%_) - (_%lp132283%_ - _%rest132307%_ - _%rest-ids132323%_ - (cons (_%generate1132281%_ - _%clause132308%_ - _%clause-id132324%_ - _%next-clause-id132344%_) - _%bindings132287%_))))) - (if (pair? _%rest-ids132325132333%_) - (let* ((_%hd132330132349%_ + (cons (_%generate1132387%_ + _%clause132414%_ + _%clause-id132430%_ + _%E132385%_) + _%bindings132393%_))) + (_%K132435132452%_ + (lambda (_%next-clause-id132450%_) + (_%lp132389%_ + _%rest132413%_ + _%rest-ids132429%_ + (cons (_%generate1132387%_ + _%clause132414%_ + _%clause-id132430%_ + _%next-clause-id132450%_) + _%bindings132393%_))))) + (if (pair? _%rest-ids132431132439%_) + (let* ((_%hd132436132455%_ (let () (declare (not safe)) - (##car _%rest-ids132325132333%_))) - (_%next-clause-id132352%_ - _%hd132330132349%_)) - (_%K132329132346%_ - _%next-clause-id132352%_)) - (_%else132327132341%_)))))) - (if (pair? _%rest-ids132309132316%_) - (let ((_%hd132313132357%_ + (##car _%rest-ids132431132439%_))) + (_%next-clause-id132458%_ + _%hd132436132455%_)) + (_%K132435132452%_ + _%next-clause-id132458%_)) + (_%else132433132447%_)))))) + (if (pair? _%rest-ids132415132422%_) + (let ((_%hd132419132463%_ (let () (declare (not safe)) - (##car _%rest-ids132309132316%_))) - (_%tl132314132359%_ + (##car _%rest-ids132415132422%_))) + (_%tl132420132465%_ (let () (declare (not safe)) - (##cdr _%rest-ids132309132316%_)))) - (let* ((_%clause-id132362%_ - _%hd132313132357%_) - (_%rest-ids132364%_ - _%tl132314132359%_)) - (_%K132312132354%_ - _%rest-ids132364%_ - _%clause-id132362%_))) - (_%E132311132320%_)))))) - (if (pair? _%rest132288132296%_) - (let ((_%hd132293132369%_ + (##cdr _%rest-ids132415132422%_)))) + (let* ((_%clause-id132468%_ + _%hd132419132463%_) + (_%rest-ids132470%_ + _%tl132420132465%_)) + (_%K132418132460%_ + _%rest-ids132470%_ + _%clause-id132468%_))) + (_%E132417132426%_)))))) + (if (pair? _%rest132394132402%_) + (let ((_%hd132399132475%_ (let () (declare (not safe)) - (##car _%rest132288132296%_))) - (_%tl132294132371%_ + (##car _%rest132394132402%_))) + (_%tl132400132477%_ (let () (declare (not safe)) - (##cdr _%rest132288132296%_)))) - (let* ((_%clause132374%_ _%hd132293132369%_) - (_%rest132376%_ _%tl132294132371%_)) - (_%K132292132366%_ - _%rest132376%_ - _%clause132374%_))) - (_%else132290132304%_))))))) - (_%generate-body131666%_ - (lambda (_%bindings132235%_ _%body132236%_) - (let _%recur132238%_ ((_%rest132240%_ _%bindings132235%_)) - (let* ((_%rest132241132249%_ _%rest132240%_) - (_%else132243132257%_ (lambda () _%body132236%_)) - (_%K132245132263%_ - (lambda (_%rest132260%_ _%hd132261%_) - (let ((__tmp133002 (cons _%hd132261%_ '())) - (__tmp133001 - (_%recur132238%_ _%rest132260%_))) + (##cdr _%rest132394132402%_)))) + (let* ((_%clause132480%_ _%hd132399132475%_) + (_%rest132482%_ _%tl132400132477%_)) + (_%K132398132472%_ + _%rest132482%_ + _%clause132480%_))) + (_%else132396132410%_))))))) + (_%generate-body131772%_ + (lambda (_%bindings132341%_ _%body132342%_) + (let _%recur132344%_ ((_%rest132346%_ _%bindings132341%_)) + (let* ((_%rest132347132355%_ _%rest132346%_) + (_%else132349132363%_ (lambda () _%body132342%_)) + (_%K132351132369%_ + (lambda (_%rest132366%_ _%hd132367%_) + (let ((__tmp133108 (cons _%hd132367%_ '())) + (__tmp133107 + (_%recur132344%_ _%rest132366%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133002 - __tmp133001))))) - (if (pair? _%rest132241132249%_) - (let ((_%hd132246132266%_ + __tmp133108 + __tmp133107))))) + (if (pair? _%rest132347132355%_) + (let ((_%hd132352132372%_ (let () (declare (not safe)) - (##car _%rest132241132249%_))) - (_%tl132247132268%_ + (##car _%rest132347132355%_))) + (_%tl132353132374%_ (let () (declare (not safe)) - (##cdr _%rest132241132249%_)))) - (let* ((_%hd132271%_ _%hd132246132266%_) - (_%rest132273%_ _%tl132247132268%_)) - (_%K132245132263%_ - _%rest132273%_ - _%hd132271%_))) - (_%else132243132257%_)))))) - (_%generate-clause131667%_ - (lambda (_%target132098%_ - _%ids132099%_ - _%clause132100%_ - _%E132101%_) - (letrec ((_%generate1132103%_ - (lambda (_%hd132190%_ - _%fender132191%_ - _%body132192%_) - (let ((_g133003_ - (_%parse-clause131669%_ - _%hd132190%_ - _%ids132099%_))) + (##cdr _%rest132347132355%_)))) + (let* ((_%hd132377%_ _%hd132352132372%_) + (_%rest132379%_ _%tl132353132374%_)) + (_%K132351132369%_ + _%rest132379%_ + _%hd132377%_))) + (_%else132349132363%_)))))) + (_%generate-clause131773%_ + (lambda (_%target132204%_ + _%ids132205%_ + _%clause132206%_ + _%E132207%_) + (letrec ((_%generate1132209%_ + (lambda (_%hd132296%_ + _%fender132297%_ + _%body132298%_) + (let ((_g133109_ + (_%parse-clause131775%_ + _%hd132296%_ + _%ids132205%_))) (begin - (let ((_g133004_ + (let ((_g133110_ (let () (declare (not safe)) - (if (##values? _g133003_) - (##vector-length _g133003_) + (if (##values? _g133109_) + (##values-length _g133109_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133004_ 2))) + (##fx= _g133110_ 2))) (error "Context expects 2 values" - _g133004_))) - (let ((_%e132194%_ + _g133110_))) + (let ((_%e132300%_ (let () (declare (not safe)) - (##vector-ref _g133003_ 0))) - (_%mvars132195%_ + (##values-ref _g133109_ 0))) + (_%mvars132301%_ (let () (declare (not safe)) - (##vector-ref _g133003_ 1)))) - (let* ((_%pvars132197%_ + (##values-ref _g133109_ 1)))) + (let* ((_%pvars132303%_ (map gx#syntax-local-rewrap (let () (declare (not safe)) (gx#gentemps - _%mvars132195%_)))) - (_%E132199%_ - (cons _%E132101%_ - (cons _%target132098%_ + _%mvars132301%_)))) + (_%E132305%_ + (cons _%E132207%_ + (cons _%target132204%_ '()))) - (_%K132232%_ - (let ((__tmp133005 - (let ((__tmp133007 - (map (lambda (_%mvar132201%_ + (_%K132338%_ + (let ((__tmp133111 + (let ((__tmp133113 + (map (lambda (_%mvar132307%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%pvar132202%_) - (let* ((_%mvar132203132210%_ _%mvar132201%_) - (_%E132205132214%_ + _%pvar132308%_) + (let* ((_%mvar132309132316%_ _%mvar132307%_) + (_%E132311132320%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%mvar132203132210%_ + _%mvar132309132316%_ '([id . depth]))) '#!void)) - (_%K132206132220%_ - (lambda (_%depth132217%_ _%id132218%_) - (cons _%id132218%_ - (cons (let ((__tmp133009 + (_%K132312132326%_ + (lambda (_%depth132323%_ _%id132324%_) + (cons _%id132324%_ + (cons (let ((__tmp133115 (let () (declare (not safe)) (gx#core-list 'quote - _%id132218%_))) - (__tmp133008 + _%id132324%_))) + (__tmp133114 (let () (declare (not safe)) (gx#core-list 'quote - _%pvar132202%_)))) + _%pvar132308%_)))) (declare (not safe)) (gx#core-list 'make-syntax-pattern - __tmp133009 - __tmp133008 - _%depth132217%_)) + __tmp133115 + __tmp133114 + _%depth132323%_)) '()))))) - (if (pair? _%mvar132203132210%_) - (let ((_%hd132207132223%_ + (if (pair? _%mvar132309132316%_) + (let ((_%hd132313132329%_ (let () (declare (not safe)) - (##car _%mvar132203132210%_))) - (_%tl132208132225%_ + (##car _%mvar132309132316%_))) + (_%tl132314132331%_ (let () (declare (not safe)) - (##cdr _%mvar132203132210%_)))) - (let* ((_%id132228%_ _%hd132207132223%_) - (_%depth132230%_ _%tl132208132225%_)) - (_%K132206132220%_ - _%depth132230%_ - _%id132228%_))) - (_%E132205132214%_)))) - _%mvars132195%_ - _%pvars132197%_)) - (__tmp133006 - (if (eq? _%fender132191%_ '#t) - _%body132192%_ + (##cdr _%mvar132309132316%_)))) + (let* ((_%id132334%_ _%hd132313132329%_) + (_%depth132336%_ _%tl132314132331%_)) + (_%K132312132326%_ + _%depth132336%_ + _%id132334%_))) + (_%E132311132320%_)))) + _%mvars132301%_ + _%pvars132303%_)) + (__tmp133112 + (if (eq? _%fender132297%_ '#t) + _%body132298%_ (let () (declare (not safe)) (gx#core-list 'if - _%fender132191%_ - _%body132192%_ - _%E132199%_))))) + _%fender132297%_ + _%body132298%_ + _%E132305%_))))) (declare (not safe)) - (gx#core-list 'let-syntax __tmp133007 __tmp133006)))) + (gx#core-list 'let-syntax __tmp133113 __tmp133112)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'lambda% - _%pvars132197%_ - __tmp133005)))) - (_%generate-match131668%_ - _%hd132190%_ - _%target132098%_ - _%e132194%_ - _%mvars132195%_ - _%K132232%_ - _%E132199%_)))))))) - (let* ((_%e132104132124%_ _%clause132100%_) - (_%E132113132128%_ + _%pvars132303%_ + __tmp133111)))) + (_%generate-match131774%_ + _%hd132296%_ + _%target132204%_ + _%e132300%_ + _%mvars132301%_ + _%K132338%_ + _%E132305%_)))))))) + (let* ((_%e132210132230%_ _%clause132206%_) + (_%E132219132234%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e132104132124%_)))) - (_%E132106132162%_ + _%e132210132230%_)))) + (_%E132212132268%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132104132124%_)) - (let ((_%e132114132132%_ + (gx#stx-pair? _%e132210132230%_)) + (let ((_%e132220132238%_ (let () (declare (not safe)) - (gx#syntax-e _%e132104132124%_)))) - (let ((_%hd132115132135%_ + (gx#syntax-e _%e132210132230%_)))) + (let ((_%hd132221132241%_ (let () (declare (not safe)) - (##car _%e132114132132%_))) - (_%tl132116132137%_ + (##car _%e132220132238%_))) + (_%tl132222132243%_ (let () (declare (not safe)) - (##cdr _%e132114132132%_)))) - (let ((_%hd132140%_ - _%hd132115132135%_)) + (##cdr _%e132220132238%_)))) + (let ((_%hd132246%_ + _%hd132221132241%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132116132137%_)) - (let ((_%e132117132142%_ + _%tl132222132243%_)) + (let ((_%e132223132248%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132116132137%_)))) - (let ((_%hd132118132145%_ + _%tl132222132243%_)))) + (let ((_%hd132224132251%_ (let () (declare (not safe)) - (##car _%e132117132142%_))) - (_%tl132119132147%_ + (##car _%e132223132248%_))) + (_%tl132225132253%_ (let () (declare (not safe)) - (##cdr _%e132117132142%_)))) - (let ((_%fender132150%_ - _%hd132118132145%_)) + (##cdr _%e132223132248%_)))) + (let ((_%fender132256%_ + _%hd132224132251%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132119132147%_)) - (let ((_%e132120132152%_ + _%tl132225132253%_)) + (let ((_%e132226132258%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax-e _%tl132119132147%_)))) - (let ((_%hd132121132155%_ + (gx#syntax-e _%tl132225132253%_)))) + (let ((_%hd132227132261%_ (let () (declare (not safe)) - (##car _%e132120132152%_))) - (_%tl132122132157%_ + (##car _%e132226132258%_))) + (_%tl132228132263%_ (let () (declare (not safe)) - (##cdr _%e132120132152%_)))) - (let ((_%body132160%_ _%hd132121132155%_)) + (##cdr _%e132226132258%_)))) + (let ((_%body132266%_ _%hd132227132261%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%tl132122132157%_)) - (_%generate1132103%_ - _%hd132140%_ - _%fender132150%_ - _%body132160%_) - (_%E132113132128%_))))) - (_%E132113132128%_))))) + (gx#stx-null? _%tl132228132263%_)) + (_%generate1132209%_ + _%hd132246%_ + _%fender132256%_ + _%body132266%_) + (_%E132219132234%_))))) + (_%E132219132234%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E132113132128%_))))) - (_%E132113132128%_)))) - (_%E132105132186%_ + (_%E132219132234%_))))) + (_%E132219132234%_)))) + (_%E132211132292%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e132104132124%_)) - (let ((_%e132107132166%_ + (gx#stx-pair? _%e132210132230%_)) + (let ((_%e132213132272%_ (let () (declare (not safe)) - (gx#syntax-e _%e132104132124%_)))) - (let ((_%hd132108132169%_ + (gx#syntax-e _%e132210132230%_)))) + (let ((_%hd132214132275%_ (let () (declare (not safe)) - (##car _%e132107132166%_))) - (_%tl132109132171%_ + (##car _%e132213132272%_))) + (_%tl132215132277%_ (let () (declare (not safe)) - (##cdr _%e132107132166%_)))) - (let ((_%hd132174%_ - _%hd132108132169%_)) + (##cdr _%e132213132272%_)))) + (let ((_%hd132280%_ + _%hd132214132275%_)) (if (let () (declare (not safe)) (gx#stx-pair? - _%tl132109132171%_)) - (let ((_%e132110132176%_ + _%tl132215132277%_)) + (let ((_%e132216132282%_ (let () (declare (not safe)) (gx#syntax-e - _%tl132109132171%_)))) - (let ((_%hd132111132179%_ + _%tl132215132277%_)))) + (let ((_%hd132217132285%_ (let () (declare (not safe)) - (##car _%e132110132176%_))) - (_%tl132112132181%_ + (##car _%e132216132282%_))) + (_%tl132218132287%_ (let () (declare (not safe)) - (##cdr _%e132110132176%_)))) - (let ((_%body132184%_ - _%hd132111132179%_)) + (##cdr _%e132216132282%_)))) + (let ((_%body132290%_ + _%hd132217132285%_)) (if (let () (declare (not safe)) (gx#stx-null? - _%tl132112132181%_)) - (_%generate1132103%_ - _%hd132174%_ + _%tl132218132287%_)) + (_%generate1132209%_ + _%hd132280%_ '#t - _%body132184%_) - (_%E132106132162%_))))) - (_%E132106132162%_))))) - (_%E132106132162%_))))) - (_%E132105132186%_))))) - (_%generate-match131668%_ - (lambda (_%where131847%_ - _%target131848%_ - _%hd131849%_ - _%mvars131850%_ - _%K131851%_ - _%E131852%_) - (letrec ((_%BUG131854%_ - (lambda (_%q132096%_) + _%body132290%_) + (_%E132212132268%_))))) + (_%E132212132268%_))))) + (_%E132212132268%_))))) + (_%E132211132292%_))))) + (_%generate-match131774%_ + (lambda (_%where131953%_ + _%target131954%_ + _%hd131955%_ + _%mvars131956%_ + _%K131957%_ + _%E131958%_) + (letrec ((_%BUG131960%_ + (lambda (_%q132202%_) (let () (declare (not safe)) (error '"BUG: syntax-case; generate" - _%stx131660%_ - _%hd131849%_ - _%q132096%_)))) - (_%recur131855%_ - (lambda (_%e131946%_ - _%vars131947%_ - _%target131948%_ - _%E131949%_ - _%k131950%_) - (let* ((_%e131951131958%_ _%e131946%_) - (_%E131953131962%_ + _%stx131766%_ + _%hd131955%_ + _%q132202%_)))) + (_%recur131961%_ + (lambda (_%e132052%_ + _%vars132053%_ + _%target132054%_ + _%E132055%_ + _%k132056%_) + (let* ((_%e132057132064%_ _%e132052%_) + (_%E132059132068%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131951131958%_ + _%e132057132064%_ '([tag . body]))) '#!void)) - (_%K131954132084%_ - (lambda (_%body131965%_ _%tag131966%_) - (let ((_%$e131968%_ _%tag131966%_)) - (if (eq? 'any _%$e131968%_) - (_%k131950%_ _%vars131947%_) - (if (eq? 'id _%$e131968%_) - (let ((__tmp133014 + (_%K132060132190%_ + (lambda (_%body132071%_ _%tag132072%_) + (let ((_%$e132074%_ _%tag132072%_)) + (if (eq? 'any _%$e132074%_) + (_%k132056%_ _%vars132053%_) + (if (eq? 'id _%$e132074%_) + (let ((__tmp133120 (let () (declare (not safe)) (gx#core-list 'identifier? - _%target131948%_))) - (__tmp133010 - (let ((__tmp133012 + _%target132054%_))) + (__tmp133116 + (let ((__tmp133118 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let ((__tmp133013 + (let ((__tmp133119 (let () (declare (not safe)) (gx#core-list - _%wrap-e131663%_ - _%body131965%_)))) + _%wrap-e131769%_ + _%body132071%_)))) (declare (not safe)) (gx#core-list - _%identifier=?131661%_ - __tmp133013 - _%target131948%_))) - (__tmp133011 (_%k131950%_ _%vars131947%_))) + _%identifier=?131767%_ + __tmp133119 + _%target132054%_))) + (__tmp133117 (_%k132056%_ _%vars132053%_))) (declare (not safe)) - (gx#core-list 'if __tmp133012 __tmp133011 _%E131949%_)))) + (gx#core-list 'if __tmp133118 __tmp133117 _%E132055%_)))) (declare (not safe)) - (gx#core-list 'if __tmp133014 __tmp133010 _%E131949%_)) + (gx#core-list 'if __tmp133120 __tmp133116 _%E132055%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (eq? 'var _%$e131968%_) - (_%k131950%_ - (cons (cons _%body131965%_ + (if (eq? 'var _%$e132074%_) + (_%k132056%_ + (cons (cons _%body132071%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%target131948%_) - _%vars131947%_)) - (if (eq? 'cons _%$e131968%_) - (let ((_%$e131971%_ + _%target132054%_) + _%vars132053%_)) + (if (eq? 'cons _%$e132074%_) + (let ((_%$e132077%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$hd131972%_ + (_%$hd132078%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl131973%_ + (_%$tl132079%_ (let () (declare (not safe)) (gx#genident__1 'tl)))) - (let ((__tmp133020 + (let ((__tmp133126 (let () (declare (not safe)) - (gx#core-list 'stx-pair? _%target131948%_))) - (__tmp133015 - (let ((__tmp133019 - (cons (cons (cons _%$e131971%_ '()) + (gx#core-list 'stx-pair? _%target132054%_))) + (__tmp133121 + (let ((__tmp133125 + (cons (cons (cons _%$e132077%_ '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131662%_ - _%target131948%_)) + _%unwrap-e131768%_ + _%target132054%_)) '())) '())) - (__tmp133016 - (let ((__tmp133018 - (cons (cons (cons _%$hd131972%_ '()) + (__tmp133122 + (let ((__tmp133124 + (cons (cons (cons _%$hd132078%_ '()) (cons (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (gx#core-list '##car _%$e131971%_)) + (gx#core-list '##car _%$e132077%_)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%$tl131973%_ + (cons (cons (cons _%$tl132079%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##cdr _%$e131971%_)) + (gx#core-list '##cdr _%$e132077%_)) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133017 - (let* ((_%body131974131981%_ - _%body131965%_) - (_%E131976131985%_ + (__tmp133123 + (let* ((_%body132080132087%_ + _%body132071%_) + (_%E132082132091%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body131974131981%_ + _%body132080132087%_ '([hd . tl]))) '#!void)) - (_%K131977131993%_ - (lambda (_%tl131988%_ - _%hd131989%_) - (_%recur131855%_ - _%hd131989%_ - _%vars131947%_ - _%$hd131972%_ - _%E131949%_ - (lambda (_%vars131991%_) - (_%recur131855%_ - _%tl131988%_ - _%vars131991%_ - _%$tl131973%_ - _%E131949%_ - _%k131950%_)))))) - (if (pair? _%body131974131981%_) - (let ((_%hd131978131996%_ + (_%K132083132099%_ + (lambda (_%tl132094%_ + _%hd132095%_) + (_%recur131961%_ + _%hd132095%_ + _%vars132053%_ + _%$hd132078%_ + _%E132055%_ + (lambda (_%vars132097%_) + (_%recur131961%_ + _%tl132094%_ + _%vars132097%_ + _%$tl132079%_ + _%E132055%_ + _%k132056%_)))))) + (if (pair? _%body132080132087%_) + (let ((_%hd132084132102%_ (let () (declare (not safe)) - (##car _%body131974131981%_))) - (_%tl131979131998%_ + (##car _%body132080132087%_))) + (_%tl132085132104%_ (let () (declare (not safe)) - (##cdr _%body131974131981%_)))) - (let* ((_%hd132001%_ - _%hd131978131996%_) - (_%tl132003%_ - _%tl131979131998%_)) - (_%K131977131993%_ - _%tl132003%_ - _%hd132001%_))) - (_%E131976131985%_))))) + (##cdr _%body132080132087%_)))) + (let* ((_%hd132107%_ + _%hd132084132102%_) + (_%tl132109%_ + _%tl132085132104%_)) + (_%K132083132099%_ + _%tl132109%_ + _%hd132107%_))) + (_%E132082132091%_))))) (declare (not safe)) (gx#core-list 'let-values - __tmp133018 - __tmp133017)))) + __tmp133124 + __tmp133123)))) (declare (not safe)) (gx#core-list 'let-values - __tmp133019 - __tmp133016)))) + __tmp133125 + __tmp133122)))) (declare (not safe)) (gx#core-list 'if - __tmp133020 - __tmp133015 - _%E131949%_))) - (if (eq? 'splice _%$e131968%_) - (let* ((_%body132004132011%_ _%body131965%_) - (_%E132006132015%_ + __tmp133126 + __tmp133121 + _%E132055%_))) + (if (eq? 'splice _%$e132074%_) + (let* ((_%body132110132117%_ _%body132071%_) + (_%E132112132121%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%body132004132011%_ + _%body132110132117%_ '([hd . tl]))) '#!void)) - (_%K132007132066%_ - (lambda (_%tl132018%_ _%hd132019%_) - (let* ((_%rlen132021%_ - (_%splice-rlen131856%_ _%tl132018%_)) - (_%$target132023%_ + (_%K132113132172%_ + (lambda (_%tl132124%_ _%hd132125%_) + (let* ((_%rlen132127%_ + (_%splice-rlen131962%_ _%tl132124%_)) + (_%$target132129%_ (let () (declare (not safe)) (gx#genident__1 'target))) - (_%$hd132025%_ + (_%$hd132131%_ (let () (declare (not safe)) (gx#genident__1 'hd))) - (_%$tl132027%_ + (_%$tl132133%_ (let () (declare (not safe)) (gx#genident__1 'tl))) - (_%$lp132029%_ + (_%$lp132135%_ (let () (declare (not safe)) (gx#genident__1 'loop))) - (_%$lp-e132031%_ + (_%$lp-e132137%_ (let () (declare (not safe)) (gx#genident__1 'e))) - (_%$lp-hd132033%_ + (_%$lp-hd132139%_ (let () (declare (not safe)) (gx#genident__1 'lp-hd))) - (_%$lp-tl132035%_ + (_%$lp-tl132141%_ (let () (declare (not safe)) (gx#genident__1 'lp-tl))) - (_%svars132037%_ - (_%splice-vars131857%_ _%hd132019%_)) - (_%lvars132039%_ + (_%svars132143%_ + (_%splice-vars131963%_ _%hd132125%_)) + (_%lvars132145%_ (let () (declare (not safe)) - (gx#gentemps _%svars132037%_))) - (_%tlvars132041%_ + (gx#gentemps _%svars132143%_))) + (_%tlvars132147%_ (let () (declare (not safe)) - (gx#gentemps _%svars132037%_))) - (_%linit132045%_ - (map (lambda (_%var132043%_) + (gx#gentemps _%svars132143%_))) + (_%linit132151%_ + (map (lambda (_%var132149%_) (let () (declare (not safe)) (gx#core-list 'quote '()))) - _%lvars132039%_))) - (letrec ((_%make-loop132048%_ - (lambda (_%vars132052%_) - (let ((__tmp133022 - (cons (cons (cons _%$lp132029%_ + _%lvars132145%_))) + (letrec ((_%make-loop132154%_ + (lambda (_%vars132158%_) + (let ((__tmp133128 + (cons (cons (cons _%$lp132135%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133035 - (cons _%$hd132025%_ _%lvars132039%_)) - (__tmp133023 - (let ((__tmp133034 + (cons (let ((__tmp133141 + (cons _%$hd132131%_ _%lvars132145%_)) + (__tmp133129 + (let ((__tmp133140 (let () (declare (not safe)) (gx#core-list 'stx-pair? - _%$hd132025%_))) - (__tmp133028 - (let ((__tmp133033 - (cons (cons (cons _%$lp-e132031%_ + _%$hd132131%_))) + (__tmp133134 + (let ((__tmp133139 + (cons (cons (cons _%$lp-e132137%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) (gx#core-list - _%unwrap-e131662%_ - _%$hd132025%_)) + _%unwrap-e131768%_ + _%$hd132131%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133029 - (let ((__tmp133032 - (cons (cons (cons _%$lp-hd132033%_ + (__tmp133135 + (let ((__tmp133138 + (cons (cons (cons _%$lp-hd132139%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list '##car _%$lp-e132031%_)) + (gx#core-list '##car _%$lp-e132137%_)) '())) - (cons (cons (cons _%$lp-tl132035%_ '()) + (cons (cons (cons _%$lp-tl132141%_ '()) (cons (let () (declare (not safe)) (gx#core-list '##cdr - _%$lp-e132031%_)) + _%$lp-e132137%_)) '())) '()))) - (__tmp133030 - (_%recur131855%_ - _%hd132019%_ + (__tmp133136 + (_%recur131961%_ + _%hd132125%_ '() - _%$lp-hd132033%_ - _%E131949%_ - (lambda (_%hdvars132054%_) - (cons _%$lp132029%_ - (cons _%$lp-tl132035%_ - (map (lambda (_%svar132056%_ - _%lvar132057%_) - (let ((__tmp133031 + _%$lp-hd132139%_ + _%E132055%_ + (lambda (_%hdvars132160%_) + (cons _%$lp132135%_ + (cons _%$lp-tl132141%_ + (map (lambda (_%svar132162%_ + _%lvar132163%_) + (let ((__tmp133137 (let () (declare (not safe)) (agetq__% - _%svar132056%_ - _%hdvars132054%_ - _%BUG131854%_)))) + _%svar132162%_ + _%hdvars132160%_ + _%BUG131960%_)))) (declare (not safe)) (gx#core-list 'cons - __tmp133031 - _%lvar132057%_))) - _%svars132037%_ - _%lvars132039%_))))))) + __tmp133137 + _%lvar132163%_))) + _%svars132143%_ + _%lvars132145%_))))))) (declare (not safe)) - (gx#core-list 'let-values __tmp133032 __tmp133030)))) + (gx#core-list 'let-values __tmp133138 __tmp133136)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133033 - __tmp133029))) - (__tmp133024 - (let ((__tmp133027 - (map (lambda (_%lvar132059%_ + __tmp133139 + __tmp133135))) + (__tmp133130 + (let ((__tmp133133 + (map (lambda (_%lvar132165%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132060%_) - (cons (cons _%tlvar132060%_ '()) + _%tlvar132166%_) + (cons (cons _%tlvar132166%_ '()) (cons (let () (declare (not safe)) - (gx#core-list 'reverse _%lvar132059%_)) + (gx#core-list 'reverse _%lvar132165%_)) '()))) - _%lvars132039%_ - _%tlvars132041%_)) + _%lvars132145%_ + _%tlvars132147%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133025 - (_%k131950%_ - (let ((__tmp133026 - (lambda (_%svar132062%_ + (__tmp133131 + (_%k132056%_ + (let ((__tmp133132 + (lambda (_%svar132168%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%tlvar132063%_ - _%r132064%_) - (cons (cons _%svar132062%_ _%tlvar132063%_) - _%r132064%_)))) + _%tlvar132169%_ + _%r132170%_) + (cons (cons _%svar132168%_ _%tlvar132169%_) + _%r132170%_)))) (declare (not safe)) (__foldl2 - __tmp133026 - _%vars132052%_ - _%svars132037%_ - _%tlvars132041%_))))) + __tmp133132 + _%vars132158%_ + _%svars132143%_ + _%tlvars132147%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133027 - __tmp133025)))) + __tmp133133 + __tmp133131)))) (declare (not safe)) (gx#core-list 'if - __tmp133034 - __tmp133028 - __tmp133024)))) + __tmp133140 + __tmp133134 + __tmp133130)))) (declare (not safe)) (gx#core-list 'lambda% - __tmp133035 - __tmp133023)) + __tmp133141 + __tmp133129)) '())) '())) - (__tmp133021 - (cons _%$lp132029%_ (cons _%$target132023%_ _%linit132045%_)))) + (__tmp133127 + (cons _%$lp132135%_ (cons _%$target132129%_ _%linit132151%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'letrec-values - __tmp133022 - __tmp133021))))) - (let ((_%body132050%_ - (let ((__tmp133037 - (cons (cons (cons _%$target132023%_ + __tmp133128 + __tmp133127))))) + (let ((_%body132156%_ + (let ((__tmp133143 + (cons (cons (cons _%$target132129%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%$tl132027%_ '())) + (cons _%$tl132133%_ '())) (cons (let () (declare (not safe)) (gx#core-list 'syntax-split-splice - _%target131948%_ - _%rlen132021%_)) + _%target132054%_ + _%rlen132127%_)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133036 - (_%recur131855%_ - _%tl132018%_ - _%vars131947%_ - _%$tl132027%_ - _%E131949%_ - _%make-loop132048%_))) + (__tmp133142 + (_%recur131961%_ + _%tl132124%_ + _%vars132053%_ + _%$tl132133%_ + _%E132055%_ + _%make-loop132154%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133037 - __tmp133036)))) - (let ((__tmp133041 + __tmp133143 + __tmp133142)))) + (let ((__tmp133147 (let () (declare (not safe)) (gx#core-list 'stx-pair/null? - _%target131948%_))) - (__tmp133038 - (if (zero? _%rlen132021%_) - _%body132050%_ - (let ((__tmp133039 - (let ((__tmp133040 + _%target132054%_))) + (__tmp133144 + (if (zero? _%rlen132127%_) + _%body132156%_ + (let ((__tmp133145 + (let ((__tmp133146 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (gx#core-list 'stx-length _%target131948%_)))) + (gx#core-list 'stx-length _%target132054%_)))) (declare (not safe)) - (gx#core-list 'fx>= __tmp133040 _%rlen132021%_)))) + (gx#core-list 'fx>= __tmp133146 _%rlen132127%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'if - __tmp133039 - _%body132050%_ - _%E131949%_))))) + __tmp133145 + _%body132156%_ + _%E132055%_))))) (declare (not safe)) (gx#core-list 'if - __tmp133041 - __tmp133038 - _%E131949%_)))))))) - (if (pair? _%body132004132011%_) - (let ((_%hd132008132069%_ + __tmp133147 + __tmp133144 + _%E132055%_)))))))) + (if (pair? _%body132110132117%_) + (let ((_%hd132114132175%_ (let () (declare (not safe)) - (##car _%body132004132011%_))) - (_%tl132009132071%_ + (##car _%body132110132117%_))) + (_%tl132115132177%_ (let () (declare (not safe)) - (##cdr _%body132004132011%_)))) - (let* ((_%hd132074%_ _%hd132008132069%_) - (_%tl132076%_ _%tl132009132071%_)) - (_%K132007132066%_ - _%tl132076%_ - _%hd132074%_))) - (_%E132006132015%_))) - (if (eq? 'null _%$e131968%_) - (let ((__tmp133043 + (##cdr _%body132110132117%_)))) + (let* ((_%hd132180%_ _%hd132114132175%_) + (_%tl132182%_ _%tl132115132177%_)) + (_%K132113132172%_ + _%tl132182%_ + _%hd132180%_))) + (_%E132112132121%_))) + (if (eq? 'null _%$e132074%_) + (let ((__tmp133149 (let () (declare (not safe)) (gx#core-list 'stx-null? - _%target131948%_))) - (__tmp133042 (_%k131950%_ _%vars131947%_))) + _%target132054%_))) + (__tmp133148 (_%k132056%_ _%vars132053%_))) (declare (not safe)) (gx#core-list 'if - __tmp133043 - __tmp133042 - _%E131949%_)) - (if (eq? 'vector _%$e131968%_) - (let ((_%$e132078%_ + __tmp133149 + __tmp133148 + _%E132055%_)) + (if (eq? 'vector _%$e132074%_) + (let ((_%$e132184%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133048 + (let ((__tmp133154 (let () (declare (not safe)) (gx#core-list 'stx-vector? - _%target131948%_))) - (__tmp133044 - (let ((__tmp133046 - (cons (cons (cons _%$e132078%_ + _%target132054%_))) + (__tmp133150 + (let ((__tmp133152 + (cons (cons (cons _%$e132184%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133047 + (cons (let ((__tmp133153 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131662%_ - _%target131948%_)))) + _%unwrap-e131768%_ + _%target132054%_)))) (declare (not safe)) - (gx#core-list 'vector->list __tmp133047)) + (gx#core-list 'vector->list __tmp133153)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133045 - (_%recur131855%_ - _%body131965%_ - _%vars131947%_ - _%$e132078%_ - _%E131949%_ - _%k131950%_))) + (__tmp133151 + (_%recur131961%_ + _%body132071%_ + _%vars132053%_ + _%$e132184%_ + _%E132055%_ + _%k132056%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133046 - __tmp133045)))) + __tmp133152 + __tmp133151)))) (declare (not safe)) (gx#core-list 'if - __tmp133048 - __tmp133044 - _%E131949%_))) - (if (eq? 'box _%$e131968%_) - (let ((_%$e132080%_ + __tmp133154 + __tmp133150 + _%E132055%_))) + (if (eq? 'box _%$e132074%_) + (let ((_%$e132186%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133053 + (let ((__tmp133159 (let () (declare (not safe)) (gx#core-list 'stx-box? - _%target131948%_))) - (__tmp133049 - (let ((__tmp133051 - (cons (cons (cons _%$e132080%_ + _%target132054%_))) + (__tmp133155 + (let ((__tmp133157 + (cons (cons (cons _%$e132186%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) - (cons (let ((__tmp133052 + (cons (let ((__tmp133158 (let () (declare (not safe)) (gx#core-list - _%unwrap-e131662%_ - _%target131948%_)))) + _%unwrap-e131768%_ + _%target132054%_)))) (declare (not safe)) - (gx#core-list 'unbox __tmp133052)) + (gx#core-list 'unbox __tmp133158)) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (__tmp133050 - (_%recur131855%_ - _%body131965%_ - _%vars131947%_ - _%$e132080%_ - _%E131949%_ - _%k131950%_))) + (__tmp133156 + (_%recur131961%_ + _%body132071%_ + _%vars132053%_ + _%$e132186%_ + _%E132055%_ + _%k132056%_))) (declare (not safe)) (gx#core-list 'let-values - __tmp133051 - __tmp133050)))) + __tmp133157 + __tmp133156)))) (declare (not safe)) (gx#core-list 'if - __tmp133053 - __tmp133049 - _%E131949%_))) - (if (eq? 'datum _%$e131968%_) - (let ((_%$e132082%_ + __tmp133159 + __tmp133155 + _%E132055%_))) + (if (eq? 'datum _%$e132074%_) + (let ((_%$e132188%_ (let () (declare (not safe)) (gx#genident__1 'e)))) - (let ((__tmp133059 + (let ((__tmp133165 (let () (declare (not safe)) (gx#core-list 'stx-datum? - _%target131948%_))) - (__tmp133054 - (let ((__tmp133058 - (cons (cons (cons _%$e132082%_ + _%target132054%_))) + (__tmp133160 + (let ((__tmp133164 + (cons (cons (cons _%$e132188%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()) (cons (let () (declare (not safe)) - (gx#core-list 'stx-e _%target131948%_)) + (gx#core-list 'stx-e _%target132054%_)) '())) '())) - (__tmp133055 - (let ((__tmp133057 + (__tmp133161 + (let ((__tmp133163 (let () (declare (not safe)) - (gx#core-list 'equal? _%$e132082%_ _%body131965%_))) - (__tmp133056 (_%k131950%_ _%vars131947%_))) + (gx#core-list 'equal? _%$e132188%_ _%body132071%_))) + (__tmp133162 (_%k132056%_ _%vars132053%_))) (declare (not safe)) - (gx#core-list 'if __tmp133057 __tmp133056 _%E131949%_)))) + (gx#core-list 'if __tmp133163 __tmp133162 _%E132055%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (gx#core-list 'let-values - __tmp133058 - __tmp133055)))) + __tmp133164 + __tmp133161)))) (declare (not safe)) (gx#core-list 'if - __tmp133059 - __tmp133054 - _%E131949%_))) - (_%BUG131854%_ - _%e131946%_)))))))))))))) + __tmp133165 + __tmp133160 + _%E132055%_))) + (_%BUG131960%_ + _%e132052%_)))))))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131951131958%_) - (let ((_%hd131955132087%_ + (if (pair? _%e132057132064%_) + (let ((_%hd132061132193%_ (let () (declare (not safe)) - (##car _%e131951131958%_))) - (_%tl131956132089%_ + (##car _%e132057132064%_))) + (_%tl132062132195%_ (let () (declare (not safe)) - (##cdr _%e131951131958%_)))) - (let* ((_%tag132092%_ - _%hd131955132087%_) - (_%body132094%_ - _%tl131956132089%_)) - (_%K131954132084%_ - _%body132094%_ - _%tag132092%_))) - (_%E131953131962%_))))) - (_%splice-rlen131856%_ - (lambda (_%e131908%_) - (let _%lp131910%_ ((_%e131912%_ _%e131908%_) - (_%n131913%_ '0)) - (let* ((_%e131914131921%_ _%e131912%_) - (_%E131916131925%_ + (##cdr _%e132057132064%_)))) + (let* ((_%tag132198%_ + _%hd132061132193%_) + (_%body132200%_ + _%tl132062132195%_)) + (_%K132060132190%_ + _%body132200%_ + _%tag132198%_))) + (_%E132059132068%_))))) + (_%splice-rlen131962%_ + (lambda (_%e132014%_) + (let _%lp132016%_ ((_%e132018%_ _%e132014%_) + (_%n132019%_ '0)) + (let* ((_%e132020132027%_ _%e132018%_) + (_%E132022132031%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131914131921%_ + _%e132020132027%_ '([tag . body]))) '#!void)) - (_%K131917131934%_ - (lambda (_%body131928%_ - _%tag131929%_) - (let ((_%$e131931%_ _%tag131929%_)) - (if (eq? 'splice _%$e131931%_) + (_%K132023132040%_ + (lambda (_%body132034%_ + _%tag132035%_) + (let ((_%$e132037%_ _%tag132035%_)) + (if (eq? 'splice _%$e132037%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Ambiguous pattern" - _%stx131660%_ - _%where131847%_)) - (if (eq? 'cons _%$e131931%_) - (_%lp131910%_ - (cdr _%body131928%_) + _%stx131766%_ + _%where131953%_)) + (if (eq? 'cons _%$e132037%_) + (_%lp132016%_ + (cdr _%body132034%_) (let () (declare (not safe)) - (##fx+ _%n131913%_ + (##fx+ _%n132019%_ '1))) - _%n131913%_)))))) - (if (pair? _%e131914131921%_) - (let ((_%hd131918131937%_ + _%n132019%_)))))) + (if (pair? _%e132020132027%_) + (let ((_%hd132024132043%_ (let () (declare (not safe)) - (##car _%e131914131921%_))) - (_%tl131919131939%_ + (##car _%e132020132027%_))) + (_%tl132025132045%_ (let () (declare (not safe)) - (##cdr _%e131914131921%_)))) - (let* ((_%tag131942%_ - _%hd131918131937%_) - (_%body131944%_ - _%tl131919131939%_)) - (_%K131917131934%_ - _%body131944%_ - _%tag131942%_))) - (_%E131916131925%_)))))) - (_%splice-vars131857%_ - (lambda (_%e131864%_) - (let _%recur131866%_ ((_%e131868%_ _%e131864%_) - (_%vars131869%_ '())) - (let* ((_%e131870131877%_ _%e131868%_) - (_%E131872131881%_ + (##cdr _%e132020132027%_)))) + (let* ((_%tag132048%_ + _%hd132024132043%_) + (_%body132050%_ + _%tl132025132045%_)) + (_%K132023132040%_ + _%body132050%_ + _%tag132048%_))) + (_%E132022132031%_)))))) + (_%splice-vars131963%_ + (lambda (_%e131970%_) + (let _%recur131972%_ ((_%e131974%_ _%e131970%_) + (_%vars131975%_ '())) + (let* ((_%e131976131983%_ _%e131974%_) + (_%E131978131987%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%e131870131877%_ + _%e131976131983%_ '([tag . body]))) '#!void)) - (_%K131873131896%_ - (lambda (_%body131884%_ - _%tag131885%_) - (let ((_%$e131887%_ _%tag131885%_)) - (if (eq? 'var _%$e131887%_) - (cons _%body131884%_ - _%vars131869%_) + (_%K131979132002%_ + (lambda (_%body131990%_ + _%tag131991%_) + (let ((_%$e131993%_ _%tag131991%_)) + (if (eq? 'var _%$e131993%_) + (cons _%body131990%_ + _%vars131975%_) (if (or (eq? 'cons - _%$e131887%_) + _%$e131993%_) (eq? 'splice - _%$e131887%_)) - (_%recur131866%_ - (cdr _%body131884%_) - (_%recur131866%_ - (car _%body131884%_) - _%vars131869%_)) + _%$e131993%_)) + (_%recur131972%_ + (cdr _%body131990%_) + (_%recur131972%_ + (car _%body131990%_) + _%vars131975%_)) (if (or (eq? 'vector ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%$e131887%_) - (eq? 'box _%$e131887%_)) - (_%recur131866%_ _%body131884%_ _%vars131869%_) - _%vars131869%_))))))) + _%$e131993%_) + (eq? 'box _%$e131993%_)) + (_%recur131972%_ _%body131990%_ _%vars131975%_) + _%vars131975%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%e131870131877%_) - (let ((_%hd131874131899%_ + (if (pair? _%e131976131983%_) + (let ((_%hd131980132005%_ (let () (declare (not safe)) - (##car _%e131870131877%_))) - (_%tl131875131901%_ + (##car _%e131976131983%_))) + (_%tl131981132007%_ (let () (declare (not safe)) - (##cdr _%e131870131877%_)))) - (let* ((_%tag131904%_ - _%hd131874131899%_) - (_%body131906%_ - _%tl131875131901%_)) - (_%K131873131896%_ - _%body131906%_ - _%tag131904%_))) - (_%E131872131881%_)))))) - (_%make-body131858%_ - (lambda (_%vars131860%_) - (cons _%K131851%_ - (map (lambda (_%mvar131862%_) - (let ((__tmp133060 - (car _%mvar131862%_))) + (##cdr _%e131976131983%_)))) + (let* ((_%tag132010%_ + _%hd131980132005%_) + (_%body132012%_ + _%tl131981132007%_)) + (_%K131979132002%_ + _%body132012%_ + _%tag132010%_))) + (_%E131978131987%_)))))) + (_%make-body131964%_ + (lambda (_%vars131966%_) + (cons _%K131957%_ + (map (lambda (_%mvar131968%_) + (let ((__tmp133166 + (car _%mvar131968%_))) (declare (not safe)) (agetq__% - __tmp133060 - _%vars131860%_ - _%BUG131854%_))) - _%mvars131850%_))))) - (_%recur131855%_ - _%hd131849%_ + __tmp133166 + _%vars131966%_ + _%BUG131960%_))) + _%mvars131956%_))))) + (_%recur131961%_ + _%hd131955%_ '() - _%target131848%_ - _%E131852%_ - _%make-body131858%_)))) - (_%parse-clause131669%_ - (lambda (_%hd131741%_ _%ids131742%_) - (let _%recur131744%_ ((_%e131746%_ _%hd131741%_) - (_%vars131747%_ '()) - (_%depth131748%_ '0)) + _%target131954%_ + _%E131958%_ + _%make-body131964%_)))) + (_%parse-clause131775%_ + (lambda (_%hd131847%_ _%ids131848%_) + (let _%recur131850%_ ((_%e131852%_ _%hd131847%_) + (_%vars131853%_ '()) + (_%depth131854%_ '0)) (if (let () (declare (not safe)) - (gx#identifier? _%e131746%_)) + (gx#identifier? _%e131852%_)) (if (let () (declare (not safe)) - (gx#underscore? _%e131746%_)) - (values '(any) _%vars131747%_) + (gx#underscore? _%e131852%_)) + (values '(any) _%vars131853%_) (if (let () (declare (not safe)) - (gx#ellipsis? _%e131746%_)) + (gx#ellipsis? _%e131852%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Misplaced ellipsis" - _%stx131660%_ - _%hd131741%_)) - (if (let ((__tmp133061 - (lambda (_%id131753%_) + _%stx131766%_ + _%hd131847%_)) + (if (let ((__tmp133167 + (lambda (_%id131859%_) (let () (declare (not safe)) (gx#bound-identifier=? - _%e131746%_ - _%id131753%_))))) + _%e131852%_ + _%id131859%_))))) (declare (not safe)) - (__find __tmp133061 _%ids131742%_)) - (values (cons 'id _%e131746%_) - _%vars131747%_) - (if (let ((__tmp133062 - (lambda (_%var131756%_) - (let ((__tmp133063 - (car _%var131756%_))) + (__find __tmp133167 _%ids131848%_)) + (values (cons 'id _%e131852%_) + _%vars131853%_) + (if (let ((__tmp133168 + (lambda (_%var131862%_) + (let ((__tmp133169 + (car _%var131862%_))) (declare (not safe)) (gx#bound-identifier=? - _%e131746%_ - __tmp133063))))) + _%e131852%_ + __tmp133169))))) (declare (not safe)) - (__find __tmp133062 - _%vars131747%_)) + (__find __tmp133168 + _%vars131853%_)) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Duplicate pattern variable" - _%stx131660%_ - _%e131746%_)) - (values (cons 'var _%e131746%_) - (cons (cons _%e131746%_ - _%depth131748%_) - _%vars131747%_)))))) + _%stx131766%_ + _%e131852%_)) + (values (cons 'var _%e131852%_) + (cons (cons _%e131852%_ + _%depth131854%_) + _%vars131853%_)))))) (if (let () (declare (not safe)) - (gx#stx-pair? _%e131746%_)) - (let* ((_%e131760131767%_ _%e131746%_) - (_%E131762131771%_ + (gx#stx-pair? _%e131852%_)) + (let* ((_%e131866131873%_ _%e131852%_) + (_%E131868131877%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131760131767%_)))) - (_%E131761131832%_ + _%e131866131873%_)))) + (_%E131867131938%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131760131767%_)) - (let ((_%e131763131775%_ + (gx#stx-pair? _%e131866131873%_)) + (let ((_%e131869131881%_ (let () (declare (not safe)) (gx#syntax-e - _%e131760131767%_)))) - (let ((_%hd131764131778%_ + _%e131866131873%_)))) + (let ((_%hd131870131884%_ (let () (declare (not safe)) - (##car _%e131763131775%_))) - (_%tl131765131780%_ + (##car _%e131869131881%_))) + (_%tl131871131886%_ (let () (declare (not safe)) - (##cdr _%e131763131775%_)))) - (let* ((_%hd131783%_ - _%hd131764131778%_) - (_%rest131785%_ - _%tl131765131780%_) - (_%make-pair131800%_ - (lambda (_%tag131787%_ + (##cdr _%e131869131881%_)))) + (let* ((_%hd131889%_ + _%hd131870131884%_) + (_%rest131891%_ + _%tl131871131886%_) + (_%make-pair131906%_ + (lambda (_%tag131893%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd131788%_ - _%tl131789%_) - (let* ((_%hd-depth131791%_ - (if (eq? _%tag131787%_ 'splice) + _%hd131894%_ + _%tl131895%_) + (let* ((_%hd-depth131897%_ + (if (eq? _%tag131893%_ 'splice) (let () (declare (not safe)) - (##fx+ _%depth131748%_ '1)) - _%depth131748%_)) - (_g133064_ - (_%recur131744%_ - _%hd131788%_ - _%vars131747%_ - _%hd-depth131791%_))) + (##fx+ _%depth131854%_ '1)) + _%depth131854%_)) + (_g133170_ + (_%recur131850%_ + _%hd131894%_ + _%vars131853%_ + _%hd-depth131897%_))) (begin - (let ((_g133065_ + (let ((_g133171_ (let () (declare (not safe)) - (if (##values? _g133064_) - (##vector-length _g133064_) + (if (##values? _g133170_) + (##values-length _g133170_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133065_ 2))) - (error "Context expects 2 values" _g133065_))) - (let ((_%hd131793%_ + (##fx= _g133171_ 2))) + (error "Context expects 2 values" _g133171_))) + (let ((_%hd131899%_ (let () (declare (not safe)) - (##vector-ref _g133064_ 0))) - (_%vars131794%_ + (##values-ref _g133170_ 0))) + (_%vars131900%_ (let () (declare (not safe)) - (##vector-ref _g133064_ 1)))) - (let ((_g133066_ - (_%recur131744%_ - _%tl131789%_ - _%vars131794%_ - _%depth131748%_))) + (##values-ref _g133170_ 1)))) + (let ((_g133172_ + (_%recur131850%_ + _%tl131895%_ + _%vars131900%_ + _%depth131854%_))) (begin - (let ((_g133067_ + (let ((_g133173_ (let () (declare (not safe)) - (if (##values? _g133066_) - (##vector-length _g133066_) + (if (##values? _g133172_) + (##values-length _g133172_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133067_ 2))) + (##fx= _g133173_ 2))) (error "Context expects 2 values" - _g133067_))) - (let ((_%tl131796%_ + _g133173_))) + (let ((_%tl131902%_ (let () (declare (not safe)) - (##vector-ref _g133066_ 0))) - (_%vars131797%_ + (##values-ref _g133172_ 0))) + (_%vars131903%_ (let () (declare (not safe)) - (##vector-ref _g133066_ 1)))) - (values (cons _%tag131787%_ - (cons _%hd131793%_ _%tl131796%_)) - _%vars131797%_))))))))) - (_%e131801131808%_ _%rest131785%_) - (_%E131803131812%_ + (##values-ref _g133172_ 1)))) + (values (cons _%tag131893%_ + (cons _%hd131899%_ _%tl131902%_)) + _%vars131903%_))))))))) + (_%e131907131914%_ _%rest131891%_) + (_%E131909131918%_ (lambda () - (_%make-pair131800%_ 'cons _%hd131783%_ _%rest131785%_))) - (_%E131802131828%_ + (_%make-pair131906%_ 'cons _%hd131889%_ _%rest131891%_))) + (_%E131908131934%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131801131808%_)) - (let ((_%e131804131816%_ + (gx#stx-pair? _%e131907131914%_)) + (let ((_%e131910131922%_ (let () (declare (not safe)) - (gx#syntax-e _%e131801131808%_)))) - (let ((_%hd131805131819%_ + (gx#syntax-e _%e131907131914%_)))) + (let ((_%hd131911131925%_ (let () (declare (not safe)) - (##car _%e131804131816%_))) - (_%tl131806131821%_ + (##car _%e131910131922%_))) + (_%tl131912131927%_ (let () (declare (not safe)) - (##cdr _%e131804131816%_)))) - (let* ((_%rest-hd131824%_ _%hd131805131819%_) - (_%rest-tl131826%_ _%tl131806131821%_)) + (##cdr _%e131910131922%_)))) + (let* ((_%rest-hd131930%_ _%hd131911131925%_) + (_%rest-tl131932%_ _%tl131912131927%_)) (if (let () (declare (not safe)) - (gx#ellipsis? _%rest-hd131824%_)) - (_%make-pair131800%_ + (gx#ellipsis? _%rest-hd131930%_)) + (_%make-pair131906%_ 'splice - _%hd131783%_ - _%rest-tl131826%_) - (_%make-pair131800%_ + _%hd131889%_ + _%rest-tl131932%_) + (_%make-pair131906%_ 'cons - _%hd131783%_ - _%rest131785%_))))) - (_%E131803131812%_))))) + _%hd131889%_ + _%rest131891%_))))) + (_%E131909131918%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E131802131828%_)))) - (_%E131762131771%_))))) - (_%E131761131832%_)) + (_%E131908131934%_)))) + (_%E131868131877%_))))) + (_%E131867131938%_)) (if (let () (declare (not safe)) - (gx#stx-null? _%e131746%_)) - (values '(null) _%vars131747%_) + (gx#stx-null? _%e131852%_)) + (values '(null) _%vars131853%_) (if (let () (declare (not safe)) - (gx#stx-vector? _%e131746%_)) - (let ((_g133068_ - (_%recur131744%_ + (gx#stx-vector? _%e131852%_)) + (let ((_g133174_ + (_%recur131850%_ (vector->list (let () (declare (not safe)) - (gx#syntax-e _%e131746%_))) - _%vars131747%_ - _%depth131748%_))) + (gx#syntax-e _%e131852%_))) + _%vars131853%_ + _%depth131854%_))) (begin - (let ((_g133069_ + (let ((_g133175_ (let () (declare (not safe)) - (if (##values? _g133068_) - (##vector-length - _g133068_) + (if (##values? _g133174_) + (##values-length + _g133174_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133069_ 2))) + (##fx= _g133175_ 2))) (error "Context expects 2 values" - _g133069_))) - (let ((_%e131838%_ + _g133175_))) + (let ((_%e131944%_ (let () (declare (not safe)) - (##vector-ref _g133068_ 0))) - (_%vars131839%_ + (##values-ref _g133174_ 0))) + (_%vars131945%_ (let () (declare (not safe)) - (##vector-ref - _g133068_ + (##values-ref + _g133174_ 1)))) - (values (cons 'vector _%e131838%_) - _%vars131839%_)))) + (values (cons 'vector _%e131944%_) + _%vars131945%_)))) (if (let () (declare (not safe)) - (gx#stx-box? _%e131746%_)) - (let ((_g133070_ - (_%recur131744%_ + (gx#stx-box? _%e131852%_)) + (let ((_g133176_ + (_%recur131850%_ (unbox (let () (declare (not safe)) (gx#syntax-e - _%e131746%_))) - _%vars131747%_ - _%depth131748%_))) + _%e131852%_))) + _%vars131853%_ + _%depth131854%_))) (begin - (let ((_g133071_ + (let ((_g133177_ (let () (declare (not safe)) (if (##values? - _g133070_) - (##vector-length - _g133070_) + _g133176_) + (##values-length + _g133176_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g133071_ + (##fx= _g133177_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (error "Context expects 2 values" - _g133071_))) - (let ((_%e131842%_ + _g133177_))) + (let ((_%e131948%_ (let () (declare (not safe)) - (##vector-ref - _g133070_ + (##values-ref + _g133176_ 0))) - (_%vars131843%_ + (_%vars131949%_ (let () (declare (not safe)) - (##vector-ref - _g133070_ + (##values-ref + _g133176_ 1)))) - (values (cons 'box _%e131842%_) - _%vars131843%_)))) + (values (cons 'box _%e131948%_) + _%vars131949%_)))) (if (let () (declare (not safe)) - (gx#stx-datum? _%e131746%_)) + (gx#stx-datum? _%e131852%_)) (values (cons 'datum (let () (declare (not safe)) (gx#stx-e - _%e131746%_))) - _%vars131747%_) + _%e131852%_))) + _%vars131853%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad pattern" - _%stx131660%_ - _%e131746%_)))))))))))) - (let* ((_%e131670131683%_ _%stx131660%_) - (_%E131672131687%_ + _%stx131766%_ + _%e131852%_)))))))))))) + (let* ((_%e131776131789%_ _%stx131766%_) + (_%E131778131793%_ (lambda () (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e131670131683%_)))) - (_%E131671131737%_ + _%e131776131789%_)))) + (_%E131777131843%_ (lambda () (if (let () (declare (not safe)) - (gx#stx-pair? _%e131670131683%_)) - (let ((_%e131673131691%_ + (gx#stx-pair? _%e131776131789%_)) + (let ((_%e131779131797%_ (let () (declare (not safe)) - (gx#syntax-e _%e131670131683%_)))) - (let ((_%hd131674131694%_ + (gx#syntax-e _%e131776131789%_)))) + (let ((_%hd131780131800%_ (let () (declare (not safe)) - (##car _%e131673131691%_))) - (_%tl131675131696%_ + (##car _%e131779131797%_))) + (_%tl131781131802%_ (let () (declare (not safe)) - (##cdr _%e131673131691%_)))) + (##cdr _%e131779131797%_)))) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131675131696%_)) - (let ((_%e131676131699%_ + (gx#stx-pair? _%tl131781131802%_)) + (let ((_%e131782131805%_ (let () (declare (not safe)) - (gx#syntax-e _%tl131675131696%_)))) - (let ((_%hd131677131702%_ + (gx#syntax-e _%tl131781131802%_)))) + (let ((_%hd131783131808%_ (let () (declare (not safe)) - (##car _%e131676131699%_))) - (_%tl131678131704%_ + (##car _%e131782131805%_))) + (_%tl131784131810%_ (let () (declare (not safe)) - (##cdr _%e131676131699%_)))) - (let ((_%expr131707%_ _%hd131677131702%_)) + (##cdr _%e131782131805%_)))) + (let ((_%expr131813%_ _%hd131783131808%_)) (if (let () (declare (not safe)) - (gx#stx-pair? _%tl131678131704%_)) - (let ((_%e131679131709%_ + (gx#stx-pair? _%tl131784131810%_)) + (let ((_%e131785131815%_ (let () (declare (not safe)) (gx#syntax-e - _%tl131678131704%_)))) - (let ((_%hd131680131712%_ + _%tl131784131810%_)))) + (let ((_%hd131786131818%_ (let () (declare (not safe)) - (##car _%e131679131709%_))) - (_%tl131681131714%_ + (##car _%e131785131815%_))) + (_%tl131787131820%_ (let () (declare (not safe)) - (##cdr _%e131679131709%_)))) - (let* ((_%ids131717%_ - _%hd131680131712%_) - (_%clauses131719%_ - _%tl131681131714%_)) + (##cdr _%e131785131815%_)))) + (let* ((_%ids131823%_ + _%hd131786131818%_) + (_%clauses131825%_ + _%tl131787131820%_)) (if (let () (declare (not safe)) (gx#identifier-list? - _%ids131717%_)) + _%ids131823%_)) (if (let () (declare (not safe)) (gx#stx-list? - _%clauses131719%_)) - (let* ((_%ids131724%_ + _%clauses131825%_)) + (let* ((_%ids131830%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (gx#syntax->list _%ids131717%_))) - (_%clauses131726%_ + (gx#syntax->list _%ids131823%_))) + (_%clauses131832%_ (let () (declare (not safe)) - (gx#syntax->list _%clauses131719%_))) - (_%clause-ids131728%_ + (gx#syntax->list _%clauses131825%_))) + (_%clause-ids131834%_ (let () (declare (not safe)) - (gx#gentemps _%clauses131726%_))) - (_%E131730%_ + (gx#gentemps _%clauses131832%_))) + (_%E131836%_ (let () (declare (not safe)) (gx#genident__0))) - (_%target131732%_ + (_%target131838%_ (let () (declare (not safe)) (gx#genident__0))) - (_%first131734%_ - (if (null? _%clauses131726%_) - _%E131730%_ - (car _%clause-ids131728%_)))) - (let ((__tmp133073 - (let ((__tmp133074 - (let ((__tmp133076 - (let ((__tmp133078 - (cons (cons (cons _%E131730%_ + (_%first131840%_ + (if (null? _%clauses131832%_) + _%E131836%_ + (car _%clause-ids131834%_)))) + (let ((__tmp133179 + (let ((__tmp133180 + (let ((__tmp133182 + (let ((__tmp133184 + (cons (cons (cons _%E131836%_ '()) - (cons (let ((__tmp133080 + (cons (let ((__tmp133186 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%target131732%_ '())) - (__tmp133079 + (cons _%target131838%_ '())) + (__tmp133185 (let () (declare (not safe)) (gx#core-list 'raise-syntax-error '#f '"Bad syntax; invalid match target" - _%target131732%_)))) + _%target131838%_)))) (declare (not safe)) - (gx#core-list 'lambda% __tmp133080 __tmp133079)) + (gx#core-list 'lambda% __tmp133186 __tmp133185)) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (__tmp133077 - (_%generate-body131666%_ - (_%generate-bindings131665%_ - _%target131732%_ - _%ids131724%_ - _%clauses131726%_ - _%clause-ids131728%_ - _%E131730%_) - (cons _%first131734%_ - (cons _%expr131707%_ + (__tmp133183 + (_%generate-body131772%_ + (_%generate-bindings131771%_ + _%target131838%_ + _%ids131830%_ + _%clauses131832%_ + _%clause-ids131834%_ + _%E131836%_) + (cons _%first131840%_ + (cons _%expr131813%_ '()))))) (declare (not safe)) (gx#core-list 'let-values - __tmp133078 - __tmp133077))) - (__tmp133075 + __tmp133184 + __tmp133183))) + (__tmp133181 (let () (declare (not safe)) - (gx#stx-source _%stx131660%_)))) + (gx#stx-source _%stx131766%_)))) (declare (not safe)) (gx#stx-wrap-source - __tmp133076 - __tmp133075)))) + __tmp133182 + __tmp133181)))) (declare (not safe)) (gx#core-list 'begin-annotation '@syntax-case - __tmp133074))) - (__tmp133072 + __tmp133180))) + (__tmp133178 (let () (declare (not safe)) - (gx#stx-source _%stx131660%_)))) + (gx#stx-source _%stx131766%_)))) (declare (not safe)) - (gx#stx-wrap-source __tmp133073 __tmp133072))) + (gx#stx-wrap-source __tmp133179 __tmp133178))) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad syntax; clauses expected" - _%stx131660%_))) + _%stx131766%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Bad template identifier list" - _%stx131660%_ - _%ids131717%_)))))) - (_%E131672131687%_))))) - (_%E131672131687%_)))) - (_%E131672131687%_))))) - (_%E131671131737%_))))) + _%stx131766%_ + _%ids131823%_)))))) + (_%E131778131793%_))))) + (_%E131778131793%_)))) + (_%E131778131793%_))))) + (_%E131777131843%_))))) (define gx#macro-expand-syntax-case__0 - (lambda (_%stx132385%_) - (let* ((_%identifier=?132387%_ 'free-identifier=?) - (_%unwrap-e132389%_ 'syntax-e) - (_%wrap-e132391%_ 'quote-syntax)) + (lambda (_%stx132491%_) + (let* ((_%identifier=?132493%_ 'free-identifier=?) + (_%unwrap-e132495%_ 'syntax-e) + (_%wrap-e132497%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132385%_ - _%identifier=?132387%_ - _%unwrap-e132389%_ - _%wrap-e132391%_)))) + _%stx132491%_ + _%identifier=?132493%_ + _%unwrap-e132495%_ + _%wrap-e132497%_)))) (define gx#macro-expand-syntax-case__1 - (lambda (_%stx132393%_ _%identifier=?132394%_) - (let* ((_%unwrap-e132396%_ 'syntax-e) (_%wrap-e132398%_ 'quote-syntax)) + (lambda (_%stx132499%_ _%identifier=?132500%_) + (let* ((_%unwrap-e132502%_ 'syntax-e) (_%wrap-e132504%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132393%_ - _%identifier=?132394%_ - _%unwrap-e132396%_ - _%wrap-e132398%_)))) + _%stx132499%_ + _%identifier=?132500%_ + _%unwrap-e132502%_ + _%wrap-e132504%_)))) (define gx#macro-expand-syntax-case__2 - (lambda (_%stx132400%_ _%identifier=?132401%_ _%unwrap-e132402%_) - (let ((_%wrap-e132404%_ 'quote-syntax)) + (lambda (_%stx132506%_ _%identifier=?132507%_ _%unwrap-e132508%_) + (let ((_%wrap-e132510%_ 'quote-syntax)) (gx#macro-expand-syntax-case__% - _%stx132400%_ - _%identifier=?132401%_ - _%unwrap-e132402%_ - _%wrap-e132404%_)))) + _%stx132506%_ + _%identifier=?132507%_ + _%unwrap-e132508%_ + _%wrap-e132510%_)))) (define gx#macro-expand-syntax-case - (lambda _g133082_ - (let ((_g133081_ (let () (declare (not safe)) (##length _g133082_)))) - (cond ((let () (declare (not safe)) (##fx= _g133081_ 1)) - (apply gx#macro-expand-syntax-case__0 _g133082_)) - ((let () (declare (not safe)) (##fx= _g133081_ 2)) - (apply gx#macro-expand-syntax-case__1 _g133082_)) - ((let () (declare (not safe)) (##fx= _g133081_ 3)) - (apply gx#macro-expand-syntax-case__2 _g133082_)) - ((let () (declare (not safe)) (##fx= _g133081_ 4)) - (apply gx#macro-expand-syntax-case__% _g133082_)) + (lambda _g133188_ + (let ((_g133187_ (let () (declare (not safe)) (##length _g133188_)))) + (cond ((let () (declare (not safe)) (##fx= _g133187_ 1)) + (apply gx#macro-expand-syntax-case__0 _g133188_)) + ((let () (declare (not safe)) (##fx= _g133187_ 2)) + (apply gx#macro-expand-syntax-case__1 _g133188_)) + ((let () (declare (not safe)) (##fx= _g133187_ 3)) + (apply gx#macro-expand-syntax-case__2 _g133188_)) + ((let () (declare (not safe)) (##fx= _g133187_ 4)) + (apply gx#macro-expand-syntax-case__% _g133188_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-syntax-case - _g133082_)))))) + _g133188_)))))) (define gx#syntax-local-pattern? - (lambda (_%stx131657%_) - (if (let () (declare (not safe)) (gx#identifier? _%stx131657%_)) - (let ((__tmp133083 + (lambda (_%stx131763%_) + (if (let () (declare (not safe)) (gx#identifier? _%stx131763%_)) + (let ((__tmp133189 (let () (declare (not safe)) - (gx#syntax-local-e__% _%stx131657%_ false)))) + (gx#syntax-local-e__% _%stx131763%_ false)))) (declare (not safe)) - (##structure-instance-of? __tmp133083 'gx#syntax-pattern::t)) + (##structure-instance-of? __tmp133189 'gx#syntax-pattern::t)) '#f))) (define gx#syntax-check-splice-targets - (lambda (_%hd131615%_ . _%rest131616%_) - (let ((_%len131618%_ (length _%hd131615%_))) - (let _%lp131620%_ ((_%rest131622%_ _%rest131616%_)) - (let* ((_%rest131623131631%_ _%rest131622%_) - (_%else131625131639%_ (lambda () '#!void)) - (_%K131627131645%_ - (lambda (_%rest131642%_ _%hd131643%_) - (if (let ((__tmp133084 (length _%hd131643%_))) + (lambda (_%hd131721%_ . _%rest131722%_) + (let ((_%len131724%_ (length _%hd131721%_))) + (let _%lp131726%_ ((_%rest131728%_ _%rest131722%_)) + (let* ((_%rest131729131737%_ _%rest131728%_) + (_%else131731131745%_ (lambda () '#!void)) + (_%K131733131751%_ + (lambda (_%rest131748%_ _%hd131749%_) + (if (let ((__tmp133190 (length _%hd131749%_))) (declare (not safe)) - (##fx= _%len131618%_ __tmp133084)) - (_%lp131620%_ _%rest131642%_) + (##fx= _%len131724%_ __tmp133190)) + (_%lp131726%_ _%rest131748%_) (let () (declare (not safe)) (gx#raise-syntax-error '#f '"Splice length mismatch" - _%hd131643%_)))))) - (if (pair? _%rest131623131631%_) - (let ((_%hd131628131648%_ + _%hd131749%_)))))) + (if (pair? _%rest131729131737%_) + (let ((_%hd131734131754%_ (let () (declare (not safe)) - (##car _%rest131623131631%_))) - (_%tl131629131650%_ + (##car _%rest131729131737%_))) + (_%tl131735131756%_ (let () (declare (not safe)) - (##cdr _%rest131623131631%_)))) - (let* ((_%hd131653%_ _%hd131628131648%_) - (_%rest131655%_ _%tl131629131650%_)) - (_%K131627131645%_ _%rest131655%_ _%hd131653%_))) + (##cdr _%rest131729131737%_)))) + (let* ((_%hd131759%_ _%hd131734131754%_) + (_%rest131761%_ _%tl131735131756%_)) + (_%K131733131751%_ _%rest131761%_ _%hd131759%_))) '#!void)))))) (define gx#syntax-split-splice - (lambda (_%stx131570%_ _%n131571%_) - (let _%lp131573%_ ((_%rest131575%_ _%stx131570%_) (_%r131576%_ '())) - (if (let () (declare (not safe)) (gx#stx-pair? _%rest131575%_)) - (let* ((_%g131577131584%_ + (lambda (_%stx131676%_ _%n131677%_) + (let _%lp131679%_ ((_%rest131681%_ _%stx131676%_) (_%r131682%_ '())) + (if (let () (declare (not safe)) (gx#stx-pair? _%rest131681%_)) + (let* ((_%g131683131690%_ (let () (declare (not safe)) - (gx#syntax-e _%rest131575%_))) - (_%E131579131588%_ + (gx#syntax-e _%rest131681%_))) + (_%E131685131694%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%g131577131584%_ + _%g131683131690%_ '([hd . rest]))) '#!void)) - (_%K131580131594%_ - (lambda (_%rest131591%_ _%hd131592%_) - (_%lp131573%_ - _%rest131591%_ - (cons _%hd131592%_ _%r131576%_))))) - (if (pair? _%g131577131584%_) - (let ((_%hd131581131597%_ + (_%K131686131700%_ + (lambda (_%rest131697%_ _%hd131698%_) + (_%lp131679%_ + _%rest131697%_ + (cons _%hd131698%_ _%r131682%_))))) + (if (pair? _%g131683131690%_) + (let ((_%hd131687131703%_ (let () (declare (not safe)) - (##car _%g131577131584%_))) - (_%tl131582131599%_ + (##car _%g131683131690%_))) + (_%tl131688131705%_ (let () (declare (not safe)) - (##cdr _%g131577131584%_)))) - (let* ((_%hd131602%_ _%hd131581131597%_) - (_%rest131604%_ _%tl131582131599%_)) - (_%K131580131594%_ _%rest131604%_ _%hd131602%_))) - (_%E131579131588%_))) - (let _%lp131606%_ ((_%n131608%_ _%n131571%_) - (_%l131609%_ _%r131576%_) - (_%r131610%_ _%rest131575%_)) - (if (null? _%l131609%_) - (values _%l131609%_ _%r131610%_) - (if (fxpositive? _%n131608%_) - (_%lp131606%_ - (let () (declare (not safe)) (##fx- _%n131608%_ '1)) - (cdr _%l131609%_) - (cons (car _%l131609%_) _%r131610%_)) - (values (reverse _%l131609%_) _%r131610%_)))))))))) + (##cdr _%g131683131690%_)))) + (let* ((_%hd131708%_ _%hd131687131703%_) + (_%rest131710%_ _%tl131688131705%_)) + (_%K131686131700%_ _%rest131710%_ _%hd131708%_))) + (_%E131685131694%_))) + (let _%lp131712%_ ((_%n131714%_ _%n131677%_) + (_%l131715%_ _%r131682%_) + (_%r131716%_ _%rest131681%_)) + (if (null? _%l131715%_) + (values _%l131715%_ _%r131716%_) + (if (fxpositive? _%n131714%_) + (_%lp131712%_ + (let () (declare (not safe)) (##fx- _%n131714%_ '1)) + (cdr _%l131715%_) + (cons (car _%l131715%_) _%r131716%_)) + (values (reverse _%l131715%_) _%r131716%_)))))))))) diff --git a/src/bootstrap/gerbil/expander/stxcase~1.scm b/src/bootstrap/gerbil/expander/stxcase~1.scm index 945cc8bbb..4c574dd46 100644 --- a/src/bootstrap/gerbil/expander/stxcase~1.scm +++ b/src/bootstrap/gerbil/expander/stxcase~1.scm @@ -1,111 +1,111 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g133086_| + (define |gx[1]#_g133192_| (##structure gx#syntax-quote::t 'expander #f (gx#current-expander-context) '())) - (define |gx[1]#_g133088_| + (define |gx[1]#_g133194_| (##structure gx#syntax-quote::t 'syntax-pattern::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g133090_| + (define |gx[1]#_g133196_| (##structure gx#syntax-quote::t 'make-syntax-pattern #f (gx#current-expander-context) '())) - (define |gx[1]#_g133092_| + (define |gx[1]#_g133198_| (##structure gx#syntax-quote::t 'syntax-pattern? #f (gx#current-expander-context) '())) - (define |gx[1]#_g133094_| + (define |gx[1]#_g133200_| (##structure gx#syntax-quote::t 'syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133095_| + (define |gx[1]#_g133201_| (##structure gx#syntax-quote::t 'syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133096_| + (define |gx[1]#_g133202_| (##structure gx#syntax-quote::t 'syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133098_| + (define |gx[1]#_g133204_| (##structure gx#syntax-quote::t 'syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133099_| + (define |gx[1]#_g133205_| (##structure gx#syntax-quote::t 'syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133100_| + (define |gx[1]#_g133206_| (##structure gx#syntax-quote::t 'syntax-pattern-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133102_| + (define |gx[1]#_g133208_| (##structure gx#syntax-quote::t '&syntax-pattern-id #f (gx#current-expander-context) '())) - (define |gx[1]#_g133103_| + (define |gx[1]#_g133209_| (##structure gx#syntax-quote::t '&syntax-pattern-depth #f (gx#current-expander-context) '())) - (define |gx[1]#_g133104_| + (define |gx[1]#_g133210_| (##structure gx#syntax-quote::t '&syntax-pattern-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g133106_| + (define |gx[1]#_g133212_| (##structure gx#syntax-quote::t '&syntax-pattern-id-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133107_| + (define |gx[1]#_g133213_| (##structure gx#syntax-quote::t '&syntax-pattern-depth-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g133108_| + (define |gx[1]#_g133214_| (##structure gx#syntax-quote::t '&syntax-pattern-e-set! @@ -113,7 +113,7 @@ (gx#current-expander-context) '())) (define |gx[:0:]#syntax-pattern| - (let ((__obj132963 + (let ((__obj133069 (let () (declare (not safe)) (##structure @@ -142,75 +142,75 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj132963 + __obj133069 'gx#syntax-pattern::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 'syntax-pattern '2 '#f '#f)) + (##unchecked-structure-set! __obj133069 'syntax-pattern '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '(id depth) '4 '#f '#f)) + (##unchecked-structure-set! __obj133069 '(id depth) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '(e id depth) '6 '#f '#f)) - (let ((__tmp133085 (cons |gx[1]#_g133086_| '()))) + (##unchecked-structure-set! __obj133069 '(e id depth) '6 '#f '#f)) + (let ((__tmp133191 (cons |gx[1]#_g133192_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133085 '3 '#f '#f)) + (##unchecked-structure-set! __obj133069 __tmp133191 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj133069 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj133069 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj133069 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '#f '11 '#f '#f)) - (let ((__tmp133087 |gx[1]#_g133088_|)) + (##unchecked-structure-set! __obj133069 '#f '11 '#f '#f)) + (let ((__tmp133193 |gx[1]#_g133194_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133087 '12 '#f '#f)) - (let ((__tmp133089 |gx[1]#_g133090_|)) + (##unchecked-structure-set! __obj133069 __tmp133193 '12 '#f '#f)) + (let ((__tmp133195 |gx[1]#_g133196_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133089 '13 '#f '#f)) - (let ((__tmp133091 |gx[1]#_g133092_|)) + (##unchecked-structure-set! __obj133069 __tmp133195 '13 '#f '#f)) + (let ((__tmp133197 |gx[1]#_g133198_|)) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133091 '14 '#f '#f)) - (let ((__tmp133093 - (cons (cons 'id |gx[1]#_g133094_|) - (cons (cons 'depth |gx[1]#_g133095_|) - (cons (cons 'e |gx[1]#_g133096_|) '()))))) + (##unchecked-structure-set! __obj133069 __tmp133197 '14 '#f '#f)) + (let ((__tmp133199 + (cons (cons 'id |gx[1]#_g133200_|) + (cons (cons 'depth |gx[1]#_g133201_|) + (cons (cons 'e |gx[1]#_g133202_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133093 '15 '#f '#f)) - (let ((__tmp133097 - (cons (cons 'id |gx[1]#_g133098_|) - (cons (cons 'depth |gx[1]#_g133099_|) - (cons (cons 'e |gx[1]#_g133100_|) '()))))) + (##unchecked-structure-set! __obj133069 __tmp133199 '15 '#f '#f)) + (let ((__tmp133203 + (cons (cons 'id |gx[1]#_g133204_|) + (cons (cons 'depth |gx[1]#_g133205_|) + (cons (cons 'e |gx[1]#_g133206_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133097 '16 '#f '#f)) - (let ((__tmp133101 - (cons (cons 'id |gx[1]#_g133102_|) - (cons (cons 'depth |gx[1]#_g133103_|) - (cons (cons 'e |gx[1]#_g133104_|) '()))))) + (##unchecked-structure-set! __obj133069 __tmp133203 '16 '#f '#f)) + (let ((__tmp133207 + (cons (cons 'id |gx[1]#_g133208_|) + (cons (cons 'depth |gx[1]#_g133209_|) + (cons (cons 'e |gx[1]#_g133210_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133101 '17 '#f '#f)) - (let ((__tmp133105 - (cons (cons 'id |gx[1]#_g133106_|) - (cons (cons 'depth |gx[1]#_g133107_|) - (cons (cons 'e |gx[1]#_g133108_|) '()))))) + (##unchecked-structure-set! __obj133069 __tmp133207 '17 '#f '#f)) + (let ((__tmp133211 + (cons (cons 'id |gx[1]#_g133212_|) + (cons (cons 'depth |gx[1]#_g133213_|) + (cons (cons 'e |gx[1]#_g133214_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj132963 __tmp133105 '18 '#f '#f)) + (##unchecked-structure-set! __obj133069 __tmp133211 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj133069 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj133069 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj132963 '() '20 '#f '#f)) - __obj132963))) + (##unchecked-structure-set! __obj133069 '() '20 '#f '#f)) + __obj133069))) diff --git a/src/bootstrap/gerbil/expander/stx~0.scm b/src/bootstrap/gerbil/expander/stx~0.scm index dac984012..efbf57e5b 100644 --- a/src/bootstrap/gerbil/expander/stx~0.scm +++ b/src/bootstrap/gerbil/expander/stx~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/stx::timestamp 1733870074) + (define gerbil/expander/stx::timestamp 1734131746) (begin (declare (not safe)) (define gx#identifier-wrap::t @@ -13,8 +13,8 @@ '#f)) (define gx#identifier-wrap? (__make-class-predicate gx#identifier-wrap::t)) (define gx#make-identifier-wrap - (lambda _%$args118205%_ - (apply make-instance gx#identifier-wrap::t _%$args118205%_))) + (lambda _%$args118311%_ + (apply make-instance gx#identifier-wrap::t _%$args118311%_))) (define gx#identifier-wrap-marks (__make-class-slot-accessor gx#identifier-wrap::t 'marks)) (define gx#identifier-wrap-e @@ -49,8 +49,8 @@ '#f)) (define gx#syntax-wrap? (__make-class-predicate gx#syntax-wrap::t)) (define gx#make-syntax-wrap - (lambda _%$args118202%_ - (apply make-instance gx#syntax-wrap::t _%$args118202%_))) + (lambda _%$args118308%_ + (apply make-instance gx#syntax-wrap::t _%$args118308%_))) (define gx#syntax-wrap-mark (__make-class-slot-accessor gx#syntax-wrap::t 'mark)) (define gx#syntax-wrap-e (__make-class-slot-accessor gx#syntax-wrap::t 'e)) @@ -84,8 +84,8 @@ '#f)) (define gx#syntax-quote? (__make-class-predicate gx#syntax-quote::t)) (define gx#make-syntax-quote - (lambda _%$args118199%_ - (apply make-instance gx#syntax-quote::t _%$args118199%_))) + (lambda _%$args118305%_ + (apply make-instance gx#syntax-quote::t _%$args118305%_))) (define gx#syntax-quote-context (__make-class-slot-accessor gx#syntax-quote::t 'context)) (define gx#syntax-quote-marks @@ -119,987 +119,987 @@ (define gx#&syntax-quote-source-set! (__make-class-slot-unchecked-mutator gx#syntax-quote::t 'source)) (define gx#identifier? - (lambda (_%stx118197%_) (symbol? (gx#stx-e _%stx118197%_)))) + (lambda (_%stx118303%_) (symbol? (gx#stx-e _%stx118303%_)))) (define gx#identifier-quote? - (lambda (_%stx118195%_) - (if (##structure-direct-instance-of? _%stx118195%_ 'gx#syntax-quote::t) - (symbol? (##unchecked-structure-ref _%stx118195%_ '1 '#f '#f)) + (lambda (_%stx118301%_) + (if (##structure-direct-instance-of? _%stx118301%_ 'gx#syntax-quote::t) + (symbol? (##unchecked-structure-ref _%stx118301%_ '1 '#f '#f)) '#f))) (define gx#sealed-syntax? - (lambda (_%stx118190%_) - (if (##structure-direct-instance-of? _%stx118190%_ 'gx#syntax-quote::t) + (lambda (_%stx118296%_) + (if (##structure-direct-instance-of? _%stx118296%_ 'gx#syntax-quote::t) '#t (if (##structure-direct-instance-of? - _%stx118190%_ + _%stx118296%_ 'gx#syntax-wrap::t) (gx#sealed-syntax? - (##unchecked-structure-ref _%stx118190%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118296%_ '1 '#f '#f)) '#f)))) (define gx#sealed-syntax-unwrap - (lambda (_%stx118185%_) - (if (##structure-direct-instance-of? _%stx118185%_ 'gx#syntax-quote::t) - _%stx118185%_ + (lambda (_%stx118291%_) + (if (##structure-direct-instance-of? _%stx118291%_ 'gx#syntax-quote::t) + _%stx118291%_ (if (##structure-direct-instance-of? - _%stx118185%_ + _%stx118291%_ 'gx#syntax-wrap::t) (gx#sealed-syntax-unwrap - (##unchecked-structure-ref _%stx118185%_ '1 '#f '#f)) + (##unchecked-structure-ref _%stx118291%_ '1 '#f '#f)) '#f)))) (define gx#syntax-e - (lambda (_%stx118159%_) - (if (##structure-direct-instance-of? _%stx118159%_ 'gx#syntax-wrap::t) - (let _%lp118162%_ ((_%e118164%_ + (lambda (_%stx118265%_) + (if (##structure-direct-instance-of? _%stx118265%_ 'gx#syntax-wrap::t) + (let _%lp118268%_ ((_%e118270%_ (##unchecked-structure-ref - _%stx118159%_ + _%stx118265%_ '1 '#f '#f)) - (_%marks118165%_ + (_%marks118271%_ (cons (##unchecked-structure-ref - _%stx118159%_ + _%stx118265%_ '3 '#f '#f) '()))) - (if (##structure? _%e118164%_) - (let ((_%$e118168%_ - (##type-id (##structure-type _%e118164%_)))) - (if (eq? 'gx#syntax-wrap::t _%$e118168%_) - (_%lp118162%_ - (##unchecked-structure-ref _%e118164%_ '1 '#f '#f) + (if (##structure? _%e118270%_) + (let ((_%$e118274%_ + (##type-id (##structure-type _%e118270%_)))) + (if (eq? 'gx#syntax-wrap::t _%$e118274%_) + (_%lp118268%_ + (##unchecked-structure-ref _%e118270%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118164%_ '3 '#f '#f) - _%marks118165%_)) - (if (or (eq? 'gx#syntax-quote::t _%$e118168%_) - (eq? 'gx#identifier-wrap::t _%$e118168%_)) - (##unchecked-structure-ref _%e118164%_ '1 '#f '#f) - (if (eq? 'gerbil#AST::t _%$e118168%_) - (_%lp118162%_ + (##unchecked-structure-ref _%e118270%_ '3 '#f '#f) + _%marks118271%_)) + (if (or (eq? 'gx#syntax-quote::t _%$e118274%_) + (eq? 'gx#identifier-wrap::t _%$e118274%_)) + (##unchecked-structure-ref _%e118270%_ '1 '#f '#f) + (if (eq? 'gerbil#AST::t _%$e118274%_) + (_%lp118268%_ (##unchecked-structure-ref - _%e118164%_ + _%e118270%_ '1 '#f '#f) - _%marks118165%_) - _%e118164%_)))) - (if (null? _%marks118165%_) - _%e118164%_ - (if (pair? _%e118164%_) + _%marks118271%_) + _%e118270%_)))) + (if (null? _%marks118271%_) + _%e118270%_ + (if (pair? _%e118270%_) (cons (gx#stx-wrap - (##car _%e118164%_) - _%marks118165%_) + (##car _%e118270%_) + _%marks118271%_) (gx#stx-wrap - (##cdr _%e118164%_) - _%marks118165%_)) - (if (vector? _%e118164%_) + (##cdr _%e118270%_) + _%marks118271%_)) + (if (vector? _%e118270%_) (vector-map - (lambda (_%g118176118178%_) + (lambda (_%g118282118284%_) (gx#stx-wrap - _%g118176118178%_ - _%marks118165%_)) - _%e118164%_) - (if (box? _%e118164%_) + _%g118282118284%_ + _%marks118271%_)) + _%e118270%_) + (if (box? _%e118270%_) (box (gx#stx-wrap - (unbox _%e118164%_) - _%marks118165%_)) - _%e118164%_)))))) - (if (##structure-instance-of? _%stx118159%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx118159%_ '1 '#f '#f) - _%stx118159%_)))) + (unbox _%e118270%_) + _%marks118271%_)) + _%e118270%_)))))) + (if (##structure-instance-of? _%stx118265%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx118265%_ '1 '#f '#f) + _%stx118265%_)))) (define gx#syntax->datum - (lambda (_%stx118152%_) - (if (##structure-instance-of? _%stx118152%_ 'gerbil#AST::t) + (lambda (_%stx118258%_) + (if (##structure-instance-of? _%stx118258%_ 'gerbil#AST::t) (gx#syntax->datum - (##unchecked-structure-ref _%stx118152%_ '1 '#f '#f)) - (if (pair? _%stx118152%_) - (cons (gx#syntax->datum (##car _%stx118152%_)) - (gx#syntax->datum (##cdr _%stx118152%_))) - (if (vector? _%stx118152%_) - (vector-map gx#syntax->datum _%stx118152%_) - (if (box? _%stx118152%_) - (box (gx#syntax->datum (unbox _%stx118152%_))) - _%stx118152%_)))))) + (##unchecked-structure-ref _%stx118258%_ '1 '#f '#f)) + (if (pair? _%stx118258%_) + (cons (gx#syntax->datum (##car _%stx118258%_)) + (gx#syntax->datum (##cdr _%stx118258%_))) + (if (vector? _%stx118258%_) + (vector-map gx#syntax->datum _%stx118258%_) + (if (box? _%stx118258%_) + (box (gx#syntax->datum (unbox _%stx118258%_))) + _%stx118258%_)))))) (define gx#datum->syntax__% - (lambda (_%stx118086%_ _%datum118087%_ _%src118088%_ _%quote?118089%_) - (letrec ((_%wrap-datum118091%_ - (lambda (_%e118124%_ _%marks118125%_) - (_%wrap-inner118093%_ - _%e118124%_ - (lambda (_%g118126118128%_) + (lambda (_%stx118192%_ _%datum118193%_ _%src118194%_ _%quote?118195%_) + (letrec ((_%wrap-datum118197%_ + (lambda (_%e118230%_ _%marks118231%_) + (_%wrap-inner118199%_ + _%e118230%_ + (lambda (_%g118232118234%_) (##structure gx#identifier-wrap::t - _%g118126118128%_ - _%src118088%_ - _%marks118125%_))))) - (_%wrap-quote118092%_ - (lambda (_%e118116%_ _%ctx118117%_ _%marks118118%_) - (_%wrap-inner118093%_ - _%e118116%_ - (lambda (_%g118119118121%_) + _%g118232118234%_ + _%src118194%_ + _%marks118231%_))))) + (_%wrap-quote118198%_ + (lambda (_%e118222%_ _%ctx118223%_ _%marks118224%_) + (_%wrap-inner118199%_ + _%e118222%_ + (lambda (_%g118225118227%_) (##structure gx#syntax-quote::t - _%g118119118121%_ - _%src118088%_ - _%ctx118117%_ - _%marks118118%_))))) - (_%wrap-inner118093%_ - (lambda (_%e118104%_ _%wrap-e118105%_) - (let _%recur118107%_ ((_%e118109%_ _%e118104%_)) - (if (symbol? _%e118109%_) - (_%wrap-e118105%_ _%e118109%_) - (if (pair? _%e118109%_) - (cons (_%recur118107%_ (##car _%e118109%_)) - (_%recur118107%_ (##cdr _%e118109%_))) - (if (vector? _%e118109%_) - (vector-map _%recur118107%_ _%e118109%_) - (if (box? _%e118109%_) - (box (_%recur118107%_ - (unbox _%e118109%_))) - _%e118109%_))))))) - (_%wrap-outer118094%_ - (lambda (_%e118102%_) - (if (##structure-instance-of? _%e118102%_ 'gerbil#AST::t) - _%e118102%_ - (##structure gx#AST::t _%e118102%_ _%src118088%_))))) - (if (##structure-instance-of? _%datum118087%_ 'gerbil#AST::t) - _%datum118087%_ - (if (not _%stx118086%_) - (##structure gx#AST::t _%datum118087%_ _%src118088%_) - (if (gx#identifier? _%stx118086%_) - (let ((_%stx118099%_ (gx#stx-unwrap__0 _%stx118086%_))) - (_%wrap-outer118094%_ + _%g118225118227%_ + _%src118194%_ + _%ctx118223%_ + _%marks118224%_))))) + (_%wrap-inner118199%_ + (lambda (_%e118210%_ _%wrap-e118211%_) + (let _%recur118213%_ ((_%e118215%_ _%e118210%_)) + (if (symbol? _%e118215%_) + (_%wrap-e118211%_ _%e118215%_) + (if (pair? _%e118215%_) + (cons (_%recur118213%_ (##car _%e118215%_)) + (_%recur118213%_ (##cdr _%e118215%_))) + (if (vector? _%e118215%_) + (vector-map _%recur118213%_ _%e118215%_) + (if (box? _%e118215%_) + (box (_%recur118213%_ + (unbox _%e118215%_))) + _%e118215%_))))))) + (_%wrap-outer118200%_ + (lambda (_%e118208%_) + (if (##structure-instance-of? _%e118208%_ 'gerbil#AST::t) + _%e118208%_ + (##structure gx#AST::t _%e118208%_ _%src118194%_))))) + (if (##structure-instance-of? _%datum118193%_ 'gerbil#AST::t) + _%datum118193%_ + (if (not _%stx118192%_) + (##structure gx#AST::t _%datum118193%_ _%src118194%_) + (if (gx#identifier? _%stx118192%_) + (let ((_%stx118205%_ (gx#stx-unwrap__0 _%stx118192%_))) + (_%wrap-outer118200%_ (if (##structure-direct-instance-of? - _%stx118099%_ + _%stx118205%_ 'gx#syntax-quote::t) - (if _%quote?118089%_ - (_%wrap-quote118092%_ - _%datum118087%_ + (if _%quote?118195%_ + (_%wrap-quote118198%_ + _%datum118193%_ (##unchecked-structure-ref - _%stx118099%_ + _%stx118205%_ '3 '#f '#f) (##unchecked-structure-ref - _%stx118099%_ + _%stx118205%_ '4 '#f '#f)) - (_%wrap-datum118091%_ - _%datum118087%_ + (_%wrap-datum118197%_ + _%datum118193%_ (##unchecked-structure-ref - _%stx118099%_ + _%stx118205%_ '4 '#f '#f))) - (_%wrap-datum118091%_ - _%datum118087%_ + (_%wrap-datum118197%_ + _%datum118193%_ (##unchecked-structure-ref - _%stx118099%_ + _%stx118205%_ '3 '#f '#f))))) (error '"Bad template syntax; expected identifier" - _%stx118086%_))))))) + _%stx118192%_))))))) (define gx#datum->syntax__0 - (lambda (_%stx118134%_ _%datum118135%_) - (let* ((_%src118137%_ '#f) (_%quote?118139%_ '#t)) + (lambda (_%stx118240%_ _%datum118241%_) + (let* ((_%src118243%_ '#f) (_%quote?118245%_ '#t)) (gx#datum->syntax__% - _%stx118134%_ - _%datum118135%_ - _%src118137%_ - _%quote?118139%_)))) + _%stx118240%_ + _%datum118241%_ + _%src118243%_ + _%quote?118245%_)))) (define gx#datum->syntax__1 - (lambda (_%stx118141%_ _%datum118142%_ _%src118143%_) - (let ((_%quote?118145%_ '#t)) + (lambda (_%stx118247%_ _%datum118248%_ _%src118249%_) + (let ((_%quote?118251%_ '#t)) (gx#datum->syntax__% - _%stx118141%_ - _%datum118142%_ - _%src118143%_ - _%quote?118145%_)))) + _%stx118247%_ + _%datum118248%_ + _%src118249%_ + _%quote?118251%_)))) (define gx#datum->syntax - (lambda _g118286_ - (let ((_g118285_ (##length _g118286_))) - (cond ((##fx= _g118285_ 2) (apply gx#datum->syntax__0 _g118286_)) - ((##fx= _g118285_ 3) (apply gx#datum->syntax__1 _g118286_)) - ((##fx= _g118285_ 4) (apply gx#datum->syntax__% _g118286_)) + (lambda _g118392_ + (let ((_g118391_ (##length _g118392_))) + (cond ((##fx= _g118391_ 2) (apply gx#datum->syntax__0 _g118392_)) + ((##fx= _g118391_ 3) (apply gx#datum->syntax__1 _g118392_)) + ((##fx= _g118391_ 4) (apply gx#datum->syntax__% _g118392_)) (else (##raise-wrong-number-of-arguments-exception gx#datum->syntax - _g118286_)))))) + _g118392_)))))) (define gx#stx-unwrap__% - (lambda (_%stx118052%_ _%marks118053%_) - (let _%lp118055%_ ((_%e118057%_ _%stx118052%_) - (_%marks118058%_ _%marks118053%_) - (_%src118059%_ (gx#stx-source _%stx118052%_))) - (if (##structure-direct-instance-of? _%e118057%_ 'gx#syntax-wrap::t) - (_%lp118055%_ - (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) + (lambda (_%stx118158%_ _%marks118159%_) + (let _%lp118161%_ ((_%e118163%_ _%stx118158%_) + (_%marks118164%_ _%marks118159%_) + (_%src118165%_ (gx#stx-source _%stx118158%_))) + (if (##structure-direct-instance-of? _%e118163%_ 'gx#syntax-wrap::t) + (_%lp118161%_ + (##unchecked-structure-ref _%e118163%_ '1 '#f '#f) (gx#apply-mark - (##unchecked-structure-ref _%e118057%_ '3 '#f '#f) - _%marks118058%_) - (##unchecked-structure-ref _%e118057%_ '2 '#f '#f)) + (##unchecked-structure-ref _%e118163%_ '3 '#f '#f) + _%marks118164%_) + (##unchecked-structure-ref _%e118163%_ '2 '#f '#f)) (if (##structure-direct-instance-of? - _%e118057%_ + _%e118163%_ 'gx#identifier-wrap::t) - (if (null? _%marks118058%_) - _%e118057%_ + (if (null? _%marks118164%_) + _%e118163%_ (##structure gx#identifier-wrap::t - (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) - (##unchecked-structure-ref _%e118057%_ '2 '#f '#f) + (##unchecked-structure-ref _%e118163%_ '1 '#f '#f) + (##unchecked-structure-ref _%e118163%_ '2 '#f '#f) (__foldl1 gx#apply-mark - (##unchecked-structure-ref _%e118057%_ '3 '#f '#f) - _%marks118058%_))) + (##unchecked-structure-ref _%e118163%_ '3 '#f '#f) + _%marks118164%_))) (if (##structure-direct-instance-of? - _%e118057%_ + _%e118163%_ 'gx#syntax-quote::t) - _%e118057%_ - (if (##structure-instance-of? _%e118057%_ 'gerbil#AST::t) - (_%lp118055%_ - (##unchecked-structure-ref _%e118057%_ '1 '#f '#f) - _%marks118058%_ - (##unchecked-structure-ref _%e118057%_ '2 '#f '#f)) - (if (symbol? _%e118057%_) + _%e118163%_ + (if (##structure-instance-of? _%e118163%_ 'gerbil#AST::t) + (_%lp118161%_ + (##unchecked-structure-ref _%e118163%_ '1 '#f '#f) + _%marks118164%_ + (##unchecked-structure-ref _%e118163%_ '2 '#f '#f)) + (if (symbol? _%e118163%_) (##structure gx#identifier-wrap::t - _%e118057%_ - _%src118059%_ - (reverse _%marks118058%_)) - (if (null? _%marks118058%_) - _%e118057%_ - (if (pair? _%e118057%_) + _%e118163%_ + _%src118165%_ + (reverse _%marks118164%_)) + (if (null? _%marks118164%_) + _%e118163%_ + (if (pair? _%e118163%_) (cons (gx#stx-wrap - (##car _%e118057%_) - _%marks118058%_) + (##car _%e118163%_) + _%marks118164%_) (gx#stx-wrap - (##cdr _%e118057%_) - _%marks118058%_)) - (if (vector? _%e118057%_) + (##cdr _%e118163%_) + _%marks118164%_)) + (if (vector? _%e118163%_) (vector-map - (lambda (_%g118068118070%_) + (lambda (_%g118174118176%_) (gx#stx-wrap - _%g118068118070%_ - _%marks118058%_)) - _%e118057%_) - (if (box? _%e118057%_) + _%g118174118176%_ + _%marks118164%_)) + _%e118163%_) + (if (box? _%e118163%_) (box (gx#stx-wrap - (unbox _%e118057%_) - _%marks118058%_)) - _%e118057%_)))))))))))) + (unbox _%e118163%_) + _%marks118164%_)) + _%e118163%_)))))))))))) (define gx#stx-unwrap__0 - (lambda (_%stx118078%_) - (let ((_%marks118080%_ '())) - (gx#stx-unwrap__% _%stx118078%_ _%marks118080%_)))) + (lambda (_%stx118184%_) + (let ((_%marks118186%_ '())) + (gx#stx-unwrap__% _%stx118184%_ _%marks118186%_)))) (define gx#stx-unwrap - (lambda _g118288_ - (let ((_g118287_ (##length _g118288_))) - (cond ((##fx= _g118287_ 1) (apply gx#stx-unwrap__0 _g118288_)) - ((##fx= _g118287_ 2) (apply gx#stx-unwrap__% _g118288_)) + (lambda _g118394_ + (let ((_g118393_ (##length _g118394_))) + (cond ((##fx= _g118393_ 1) (apply gx#stx-unwrap__0 _g118394_)) + ((##fx= _g118393_ 2) (apply gx#stx-unwrap__% _g118394_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-unwrap - _g118288_)))))) + _g118394_)))))) (define gx#stx-wrap - (lambda (_%stx118045%_ _%marks118046%_) + (lambda (_%stx118151%_ _%marks118152%_) (__foldl1 - (lambda (_%mark118048%_ _%stx118049%_) - (gx#stx-apply-mark _%stx118049%_ _%mark118048%_)) - _%stx118045%_ - _%marks118046%_))) + (lambda (_%mark118154%_ _%stx118155%_) + (gx#stx-apply-mark _%stx118155%_ _%mark118154%_)) + _%stx118151%_ + _%marks118152%_))) (define gx#stx-rewrap - (lambda (_%stx118039%_ _%marks118040%_) + (lambda (_%stx118145%_ _%marks118146%_) (__foldr1 - (lambda (_%mark118042%_ _%stx118043%_) - (gx#stx-apply-mark _%stx118043%_ _%mark118042%_)) - _%stx118039%_ - _%marks118040%_))) + (lambda (_%mark118148%_ _%stx118149%_) + (gx#stx-apply-mark _%stx118149%_ _%mark118148%_)) + _%stx118145%_ + _%marks118146%_))) (define gx#stx-apply-mark - (lambda (_%stx118033%_ _%mark118034%_) - (if (##structure-direct-instance-of? _%stx118033%_ 'gx#syntax-quote::t) - _%stx118033%_ + (lambda (_%stx118139%_ _%mark118140%_) + (if (##structure-direct-instance-of? _%stx118139%_ 'gx#syntax-quote::t) + _%stx118139%_ (if (and (##structure-direct-instance-of? - _%stx118033%_ + _%stx118139%_ 'gx#syntax-wrap::t) - (eq? _%mark118034%_ + (eq? _%mark118140%_ (##unchecked-structure-ref - _%stx118033%_ + _%stx118139%_ '3 '#f '#f))) - (##unchecked-structure-ref _%stx118033%_ '1 '#f '#f) + (##unchecked-structure-ref _%stx118139%_ '1 '#f '#f) (##structure gx#syntax-wrap::t - _%stx118033%_ - (gx#stx-source _%stx118033%_) - _%mark118034%_))))) + _%stx118139%_ + (gx#stx-source _%stx118139%_) + _%mark118140%_))))) (define gx#apply-mark - (lambda (_%mark117997%_ _%marks117998%_) - (let* ((_%marks117999118007%_ _%marks117998%_) - (_%else118001118015%_ - (lambda () (cons _%mark117997%_ _%marks117998%_))) - (_%K118003118021%_ - (lambda (_%rest118018%_ _%hd118019%_) - (if (eq? _%mark117997%_ _%hd118019%_) - _%rest118018%_ - (cons _%mark117997%_ _%marks117998%_))))) - (if (pair? _%marks117999118007%_) - (let ((_%hd118004118024%_ (##car _%marks117999118007%_)) - (_%tl118005118026%_ (##cdr _%marks117999118007%_))) - (let* ((_%hd118029%_ _%hd118004118024%_) - (_%rest118031%_ _%tl118005118026%_)) - (_%K118003118021%_ _%rest118031%_ _%hd118029%_))) - (_%else118001118015%_))))) + (lambda (_%mark118103%_ _%marks118104%_) + (let* ((_%marks118105118113%_ _%marks118104%_) + (_%else118107118121%_ + (lambda () (cons _%mark118103%_ _%marks118104%_))) + (_%K118109118127%_ + (lambda (_%rest118124%_ _%hd118125%_) + (if (eq? _%mark118103%_ _%hd118125%_) + _%rest118124%_ + (cons _%mark118103%_ _%marks118104%_))))) + (if (pair? _%marks118105118113%_) + (let ((_%hd118110118130%_ (##car _%marks118105118113%_)) + (_%tl118111118132%_ (##cdr _%marks118105118113%_))) + (let* ((_%hd118135%_ _%hd118110118130%_) + (_%rest118137%_ _%tl118111118132%_)) + (_%K118109118127%_ _%rest118137%_ _%hd118135%_))) + (_%else118107118121%_))))) (define gx#stx-e - (lambda (_%stx117992%_) - (if (##structure-direct-instance-of? _%stx117992%_ 'gx#syntax-wrap::t) - (gx#stx-e (##unchecked-structure-ref _%stx117992%_ '1 '#f '#f)) - (if (##structure-instance-of? _%stx117992%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117992%_ '1 '#f '#f) - _%stx117992%_)))) + (lambda (_%stx118098%_) + (if (##structure-direct-instance-of? _%stx118098%_ 'gx#syntax-wrap::t) + (gx#stx-e (##unchecked-structure-ref _%stx118098%_ '1 '#f '#f)) + (if (##structure-instance-of? _%stx118098%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx118098%_ '1 '#f '#f) + _%stx118098%_)))) (define gx#stx-source - (lambda (_%stx117990%_) - (if (##structure-instance-of? _%stx117990%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx117990%_ '2 '#f '#f) + (lambda (_%stx118096%_) + (if (##structure-instance-of? _%stx118096%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx118096%_ '2 '#f '#f) '#f))) (define gx#stx-wrap-source - (lambda (_%stx117984%_ _%src117985%_) - (if (or (##structure-instance-of? _%stx117984%_ 'gerbil#AST::t) - (not _%src117985%_)) - _%stx117984%_ - (##structure gx#AST::t _%stx117984%_ _%src117985%_)))) + (lambda (_%stx118090%_ _%src118091%_) + (if (or (##structure-instance-of? _%stx118090%_ 'gerbil#AST::t) + (not _%src118091%_)) + _%stx118090%_ + (##structure gx#AST::t _%stx118090%_ _%src118091%_)))) (define gx#stx-datum? - (lambda (_%stx117982%_) (gx#self-quoting? (gx#stx-e _%stx117982%_)))) + (lambda (_%stx118088%_) (gx#self-quoting? (gx#stx-e _%stx118088%_)))) (define gx#self-quoting? - (lambda (_%x117965%_) - (let ((_%$e117967%_ (immediate? _%x117965%_))) - (if _%$e117967%_ - _%$e117967%_ - (let ((_%$e117970%_ (number? _%x117965%_))) - (if _%$e117970%_ - _%$e117970%_ - (let ((_%$e117973%_ (keyword? _%x117965%_))) - (if _%$e117973%_ - _%$e117973%_ - (let ((_%$e117976%_ (string? _%x117965%_))) - (if _%$e117976%_ - _%$e117976%_ - (let ((_%$e117979%_ (vector? _%x117965%_))) - (if _%$e117979%_ - _%$e117979%_ - (u8vector? _%x117965%_))))))))))))) + (lambda (_%x118071%_) + (let ((_%$e118073%_ (immediate? _%x118071%_))) + (if _%$e118073%_ + _%$e118073%_ + (let ((_%$e118076%_ (number? _%x118071%_))) + (if _%$e118076%_ + _%$e118076%_ + (let ((_%$e118079%_ (keyword? _%x118071%_))) + (if _%$e118079%_ + _%$e118079%_ + (let ((_%$e118082%_ (string? _%x118071%_))) + (if _%$e118082%_ + _%$e118082%_ + (let ((_%$e118085%_ (vector? _%x118071%_))) + (if _%$e118085%_ + _%$e118085%_ + (u8vector? _%x118071%_))))))))))))) (define gx#stx-boolean? - (lambda (_%e117963%_) (boolean? (gx#stx-e _%e117963%_)))) + (lambda (_%e118069%_) (boolean? (gx#stx-e _%e118069%_)))) (define gx#stx-keyword? - (lambda (_%e117961%_) (keyword? (gx#stx-e _%e117961%_)))) - (define gx#stx-char? (lambda (_%e117959%_) (char? (gx#stx-e _%e117959%_)))) + (lambda (_%e118067%_) (keyword? (gx#stx-e _%e118067%_)))) + (define gx#stx-char? (lambda (_%e118065%_) (char? (gx#stx-e _%e118065%_)))) (define gx#stx-number? - (lambda (_%e117957%_) (number? (gx#stx-e _%e117957%_)))) + (lambda (_%e118063%_) (number? (gx#stx-e _%e118063%_)))) (define gx#stx-fixnum? - (lambda (_%e117955%_) (fixnum? (gx#stx-e _%e117955%_)))) + (lambda (_%e118061%_) (fixnum? (gx#stx-e _%e118061%_)))) (define gx#stx-string? - (lambda (_%e117953%_) (string? (gx#stx-e _%e117953%_)))) - (define gx#stx-null? (lambda (_%e117951%_) (null? (gx#stx-e _%e117951%_)))) - (define gx#stx-pair? (lambda (_%e117949%_) (pair? (gx#stx-e _%e117949%_)))) + (lambda (_%e118059%_) (string? (gx#stx-e _%e118059%_)))) + (define gx#stx-null? (lambda (_%e118057%_) (null? (gx#stx-e _%e118057%_)))) + (define gx#stx-pair? (lambda (_%e118055%_) (pair? (gx#stx-e _%e118055%_)))) (define gx#stx-list? - (lambda (_%e117911%_) - (let* ((_%g117912117921%_ (gx#stx-e _%e117911%_)) - (_%E117915117925%_ + (lambda (_%e118017%_) + (let* ((_%g118018118027%_ (gx#stx-e _%e118017%_)) + (_%E118021118031%_ (lambda () (error '"No clause matching" - _%g117912117921%_ + _%g118018118027%_ '([_ . rest]) '(tail)) '#!void))) - (let ((_%K117917117941%_ - (lambda (_%rest117939%_) (gx#stx-list? _%rest117939%_))) - (_%K117916117931%_ - (lambda (_%tail117929%_) (null? _%tail117929%_)))) - (if (pair? _%g117912117921%_) - (let* ((_%tl117919117944%_ (##cdr _%g117912117921%_)) - (_%rest117947%_ _%tl117919117944%_)) - (gx#stx-list? _%rest117947%_)) - (let ((_%tail117934%_ _%g117912117921%_)) - (null? _%tail117934%_))))))) + (let ((_%K118023118047%_ + (lambda (_%rest118045%_) (gx#stx-list? _%rest118045%_))) + (_%K118022118037%_ + (lambda (_%tail118035%_) (null? _%tail118035%_)))) + (if (pair? _%g118018118027%_) + (let* ((_%tl118025118050%_ (##cdr _%g118018118027%_)) + (_%rest118053%_ _%tl118025118050%_)) + (gx#stx-list? _%rest118053%_)) + (let ((_%tail118040%_ _%g118018118027%_)) + (null? _%tail118040%_))))))) (define gx#stx-pair/null? - (lambda (_%e117904%_) - (let* ((_%e117906%_ (gx#stx-e _%e117904%_)) - (_%$e117908%_ (pair? _%e117906%_))) - (if _%$e117908%_ _%$e117908%_ (null? _%e117906%_))))) + (lambda (_%e118010%_) + (let* ((_%e118012%_ (gx#stx-e _%e118010%_)) + (_%$e118014%_ (pair? _%e118012%_))) + (if _%$e118014%_ _%$e118014%_ (null? _%e118012%_))))) (define gx#stx-vector? - (lambda (_%e117902%_) (vector? (gx#stx-e _%e117902%_)))) - (define gx#stx-box? (lambda (_%e117900%_) (box? (gx#stx-e _%e117900%_)))) + (lambda (_%e118008%_) (vector? (gx#stx-e _%e118008%_)))) + (define gx#stx-box? (lambda (_%e118006%_) (box? (gx#stx-e _%e118006%_)))) (define gx#stx-eq? - (lambda (_%x117897%_ _%y117898%_) - (eq? (gx#stx-e _%x117897%_) (gx#stx-e _%y117898%_)))) + (lambda (_%x118003%_ _%y118004%_) + (eq? (gx#stx-e _%x118003%_) (gx#stx-e _%y118004%_)))) (define gx#stx-eqv? - (lambda (_%x117894%_ _%y117895%_) - (eqv? (gx#stx-e _%x117894%_) (gx#stx-e _%y117895%_)))) + (lambda (_%x118000%_ _%y118001%_) + (eqv? (gx#stx-e _%x118000%_) (gx#stx-e _%y118001%_)))) (define gx#stx-equal? - (lambda (_%x117891%_ _%y117892%_) - (equal? (gx#stx-e _%x117891%_) (gx#stx-e _%y117892%_)))) - (define gx#stx-false? (lambda (_%x117889%_) (not (gx#stx-e _%x117889%_)))) + (lambda (_%x117997%_ _%y117998%_) + (equal? (gx#stx-e _%x117997%_) (gx#stx-e _%y117998%_)))) + (define gx#stx-false? (lambda (_%x117995%_) (not (gx#stx-e _%x117995%_)))) (define gx#stx-identifier - (lambda (_%template117886%_ . _%args117887%_) + (lambda (_%template117992%_ . _%args117993%_) (gx#datum->syntax__1 - _%template117886%_ - (apply make-symbol (gx#syntax->datum _%args117887%_)) - (gx#stx-source _%template117886%_)))) + _%template117992%_ + (apply make-symbol (gx#syntax->datum _%args117993%_)) + (gx#stx-source _%template117992%_)))) (define gx#stx-identifier-marks - (lambda (_%stx117884%_) - (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117884%_)))) + (lambda (_%stx117990%_) + (gx#stx-identifier-marks* (gx#stx-unwrap__0 _%stx117990%_)))) (define gx#stx-identifier-marks* - (lambda (_%stx117879%_) + (lambda (_%stx117985%_) (if (##structure-direct-instance-of? - _%stx117879%_ + _%stx117985%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%stx117879%_ '3 '#f '#f) + (##unchecked-structure-ref _%stx117985%_ '3 '#f '#f) (if (##structure-direct-instance-of? - _%stx117879%_ + _%stx117985%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%stx117879%_ '4 '#f '#f) + (##unchecked-structure-ref _%stx117985%_ '4 '#f '#f) (error '"Bad wrap; expected unwrapped identifier" - _%stx117879%_))))) + _%stx117985%_))))) (define gx#stx-identifier-context - (lambda (_%stx117875%_) - (let ((_%stx117877%_ (gx#stx-unwrap__0 _%stx117875%_))) - (if (gx#identifier-quote? _%stx117877%_) - (##unchecked-structure-ref _%stx117877%_ '3 '#f '#f) + (lambda (_%stx117981%_) + (let ((_%stx117983%_ (gx#stx-unwrap__0 _%stx117981%_))) + (if (gx#identifier-quote? _%stx117983%_) + (##unchecked-structure-ref _%stx117983%_ '3 '#f '#f) '#f)))) (define gx#identifier-list? - (lambda (_%stx117830%_) - (let* ((_%g117831117841%_ (gx#stx-e _%stx117830%_)) - (_%else117834117849%_ (lambda () '#f))) - (let ((_%K117837117863%_ - (lambda (_%rest117860%_ _%hd117861%_) - (if (gx#identifier? _%hd117861%_) - (gx#identifier-list? _%rest117860%_) + (lambda (_%stx117936%_) + (let* ((_%g117937117947%_ (gx#stx-e _%stx117936%_)) + (_%else117940117955%_ (lambda () '#f))) + (let ((_%K117943117969%_ + (lambda (_%rest117966%_ _%hd117967%_) + (if (gx#identifier? _%hd117967%_) + (gx#identifier-list? _%rest117966%_) '#f))) - (_%K117836117854%_ (lambda () '#t))) - (let ((_%try-match117833117857%_ + (_%K117942117960%_ (lambda () '#t))) + (let ((_%try-match117939117963%_ (lambda () - (if (null? _%g117831117841%_) - (_%K117836117854%_) - (_%else117834117849%_))))) - (if (pair? _%g117831117841%_) - (let ((_%tl117839117868%_ (##cdr _%g117831117841%_)) - (_%hd117838117866%_ (##car _%g117831117841%_))) - (let ((_%hd117871%_ _%hd117838117866%_) - (_%rest117873%_ _%tl117839117868%_)) - (_%K117837117863%_ _%rest117873%_ _%hd117871%_))) - (_%try-match117833117857%_))))))) + (if (null? _%g117937117947%_) + (_%K117942117960%_) + (_%else117940117955%_))))) + (if (pair? _%g117937117947%_) + (let ((_%tl117945117974%_ (##cdr _%g117937117947%_)) + (_%hd117944117972%_ (##car _%g117937117947%_))) + (let ((_%hd117977%_ _%hd117944117972%_) + (_%rest117979%_ _%tl117945117974%_)) + (_%K117943117969%_ _%rest117979%_ _%hd117977%_))) + (_%try-match117939117963%_))))))) (define gx#genident__% - (lambda (_%e117807%_ _%src117808%_) + (lambda (_%e117913%_ _%src117914%_) (gx#stx-wrap-source - (gensym (let ((_%e117810%_ (gx#stx-e _%e117807%_))) - (if (interned-symbol? _%e117810%_) _%e117810%_ 'g))) - (let ((_%$e117812%_ (gx#stx-source _%e117807%_))) - (if _%$e117812%_ _%$e117812%_ _%src117808%_))))) + (gensym (let ((_%e117916%_ (gx#stx-e _%e117913%_))) + (if (interned-symbol? _%e117916%_) _%e117916%_ 'g))) + (let ((_%$e117918%_ (gx#stx-source _%e117913%_))) + (if _%$e117918%_ _%$e117918%_ _%src117914%_))))) (define gx#genident__0 (lambda () - (let* ((_%e117819%_ 'g) (_%src117821%_ '#f)) - (gx#genident__% _%e117819%_ _%src117821%_)))) + (let* ((_%e117925%_ 'g) (_%src117927%_ '#f)) + (gx#genident__% _%e117925%_ _%src117927%_)))) (define gx#genident__1 - (lambda (_%e117823%_) - (let ((_%src117825%_ '#f)) - (gx#genident__% _%e117823%_ _%src117825%_)))) + (lambda (_%e117929%_) + (let ((_%src117931%_ '#f)) + (gx#genident__% _%e117929%_ _%src117931%_)))) (define gx#genident - (lambda _g118290_ - (let ((_g118289_ (##length _g118290_))) - (cond ((##fx= _g118289_ 0) (apply gx#genident__0 _g118290_)) - ((##fx= _g118289_ 1) (apply gx#genident__1 _g118290_)) - ((##fx= _g118289_ 2) (apply gx#genident__% _g118290_)) + (lambda _g118396_ + (let ((_g118395_ (##length _g118396_))) + (cond ((##fx= _g118395_ 0) (apply gx#genident__0 _g118396_)) + ((##fx= _g118395_ 1) (apply gx#genident__1 _g118396_)) + ((##fx= _g118395_ 2) (apply gx#genident__% _g118396_)) (else (##raise-wrong-number-of-arguments-exception gx#genident - _g118290_)))))) + _g118396_)))))) (define gx#gentemps - (lambda (_%stx-lst117804%_) (gx#stx-map1 gx#genident _%stx-lst117804%_))) + (lambda (_%stx-lst117910%_) (gx#stx-map1 gx#genident _%stx-lst117910%_))) (define gx#syntax->list - (lambda (_%stx117802%_) (gx#stx-map1 values _%stx117802%_))) + (lambda (_%stx117908%_) (gx#stx-map1 values _%stx117908%_))) (define gx#stx-car - (lambda (_%stx117799%_) + (lambda (_%stx117905%_) (declare (safe)) - (car (gx#syntax-e _%stx117799%_)))) + (car (gx#syntax-e _%stx117905%_)))) (define gx#stx-cdr - (lambda (_%stx117796%_) + (lambda (_%stx117902%_) (declare (safe)) - (cdr (gx#syntax-e _%stx117796%_)))) + (cdr (gx#syntax-e _%stx117902%_)))) (define gx#stx-length - (lambda (_%stx117761%_) - (let _%lp117763%_ ((_%rest117765%_ _%stx117761%_) (_%n117766%_ '0)) - (let* ((_%g117767117775%_ (gx#stx-e _%rest117765%_)) - (_%else117769117783%_ (lambda () _%n117766%_)) - (_%K117771117788%_ - (lambda (_%rest117786%_) - (_%lp117763%_ _%rest117786%_ (##fx+ _%n117766%_ '1))))) - (if (pair? _%g117767117775%_) - (let* ((_%tl117773117791%_ (##cdr _%g117767117775%_)) - (_%rest117794%_ _%tl117773117791%_)) - (_%K117771117788%_ _%rest117794%_)) - (_%else117769117783%_)))))) + (lambda (_%stx117867%_) + (let _%lp117869%_ ((_%rest117871%_ _%stx117867%_) (_%n117872%_ '0)) + (let* ((_%g117873117881%_ (gx#stx-e _%rest117871%_)) + (_%else117875117889%_ (lambda () _%n117872%_)) + (_%K117877117894%_ + (lambda (_%rest117892%_) + (_%lp117869%_ _%rest117892%_ (##fx+ _%n117872%_ '1))))) + (if (pair? _%g117873117881%_) + (let* ((_%tl117879117897%_ (##cdr _%g117873117881%_)) + (_%rest117900%_ _%tl117879117897%_)) + (_%K117877117894%_ _%rest117900%_)) + (_%else117875117889%_)))))) (define gx#stx-for-each - (lambda _g118292_ - (let ((_g118291_ (##length _g118292_))) - (cond ((##fx= _g118291_ 2) (apply gx#stx-for-each1 _g118292_)) - ((##fx= _g118291_ 3) (apply gx#stx-for-each2 _g118292_)) + (lambda _g118398_ + (let ((_g118397_ (##length _g118398_))) + (cond ((##fx= _g118397_ 2) (apply gx#stx-for-each1 _g118398_)) + ((##fx= _g118397_ 3) (apply gx#stx-for-each2 _g118398_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-for-each - _g118292_)))))) + _g118398_)))))) (define gx#stx-for-each1 - (lambda (_%f117704%_ _%stx117705%_) - (if (procedure? _%f117704%_) + (lambda (_%f117810%_ _%stx117811%_) + (if (procedure? _%f117810%_) '#!void - (error '"expected procedure" _%f117704%_)) - (let _%lp117707%_ ((_%rest117709%_ _%stx117705%_)) - (let* ((_%g117710117720%_ (gx#syntax-e _%rest117709%_)) - (_%else117713117728%_ - (lambda () (_%f117704%_ _%rest117709%_)))) - (let ((_%K117716117742%_ - (lambda (_%rest117739%_ _%hd117740%_) - (_%f117704%_ _%hd117740%_) - (_%lp117707%_ _%rest117739%_))) - (_%K117715117733%_ (lambda () '#!void))) - (let ((_%try-match117712117736%_ + (error '"expected procedure" _%f117810%_)) + (let _%lp117813%_ ((_%rest117815%_ _%stx117811%_)) + (let* ((_%g117816117826%_ (gx#syntax-e _%rest117815%_)) + (_%else117819117834%_ + (lambda () (_%f117810%_ _%rest117815%_)))) + (let ((_%K117822117848%_ + (lambda (_%rest117845%_ _%hd117846%_) + (_%f117810%_ _%hd117846%_) + (_%lp117813%_ _%rest117845%_))) + (_%K117821117839%_ (lambda () '#!void))) + (let ((_%try-match117818117842%_ (lambda () - (if (null? _%g117710117720%_) - (_%K117715117733%_) - (_%else117713117728%_))))) - (if (pair? _%g117710117720%_) - (let ((_%tl117718117747%_ (##cdr _%g117710117720%_)) - (_%hd117717117745%_ (##car _%g117710117720%_))) - (let ((_%hd117750%_ _%hd117717117745%_) - (_%rest117752%_ _%tl117718117747%_)) - (_%K117716117742%_ _%rest117752%_ _%hd117750%_))) - (_%try-match117712117736%_)))))))) + (if (null? _%g117816117826%_) + (_%K117821117839%_) + (_%else117819117834%_))))) + (if (pair? _%g117816117826%_) + (let ((_%tl117824117853%_ (##cdr _%g117816117826%_)) + (_%hd117823117851%_ (##car _%g117816117826%_))) + (let ((_%hd117856%_ _%hd117823117851%_) + (_%rest117858%_ _%tl117824117853%_)) + (_%K117822117848%_ _%rest117858%_ _%hd117856%_))) + (_%try-match117818117842%_)))))))) (define gx#stx-for-each2 - (lambda (_%f117609%_ _%xstx117610%_ _%ystx117611%_) - (if (procedure? _%f117609%_) + (lambda (_%f117715%_ _%xstx117716%_ _%ystx117717%_) + (if (procedure? _%f117715%_) '#!void - (error '"expected procedure" _%f117609%_)) - (let _%lp117613%_ ((_%xrest117615%_ _%xstx117610%_) - (_%yrest117616%_ _%ystx117611%_)) - (let* ((_%g117617117627%_ (gx#syntax-e _%xrest117615%_)) - (_%else117620117635%_ (lambda () '#!void))) - (let ((_%K117623117692%_ - (lambda (_%xrest117661%_ _%xhd117662%_) - (let* ((_%g117663117670%_ (gx#syntax-e _%yrest117616%_)) - (_%E117665117674%_ + (error '"expected procedure" _%f117715%_)) + (let _%lp117719%_ ((_%xrest117721%_ _%xstx117716%_) + (_%yrest117722%_ _%ystx117717%_)) + (let* ((_%g117723117733%_ (gx#syntax-e _%xrest117721%_)) + (_%else117726117741%_ (lambda () '#!void))) + (let ((_%K117729117798%_ + (lambda (_%xrest117767%_ _%xhd117768%_) + (let* ((_%g117769117776%_ (gx#syntax-e _%yrest117722%_)) + (_%E117771117780%_ (lambda () (error '"No clause matching" - _%g117663117670%_ + _%g117769117776%_ '([yhd . yrest])) '#!void)) - (_%K117666117680%_ - (lambda (_%yrest117677%_ _%yhd117678%_) - (_%f117609%_ _%xhd117662%_ _%yhd117678%_) - (_%lp117613%_ - _%xrest117661%_ - _%yrest117677%_)))) - (if (pair? _%g117663117670%_) - (let ((_%hd117667117683%_ (##car _%g117663117670%_)) - (_%tl117668117685%_ - (##cdr _%g117663117670%_))) - (let* ((_%yhd117688%_ _%hd117667117683%_) - (_%yrest117690%_ _%tl117668117685%_)) - (_%K117666117680%_ - _%yrest117690%_ - _%yhd117688%_))) - (_%E117665117674%_))))) - (_%K117622117655%_ + (_%K117772117786%_ + (lambda (_%yrest117783%_ _%yhd117784%_) + (_%f117715%_ _%xhd117768%_ _%yhd117784%_) + (_%lp117719%_ + _%xrest117767%_ + _%yrest117783%_)))) + (if (pair? _%g117769117776%_) + (let ((_%hd117773117789%_ (##car _%g117769117776%_)) + (_%tl117774117791%_ + (##cdr _%g117769117776%_))) + (let* ((_%yhd117794%_ _%hd117773117789%_) + (_%yrest117796%_ _%tl117774117791%_)) + (_%K117772117786%_ + _%yrest117796%_ + _%yhd117794%_))) + (_%E117771117780%_))))) + (_%K117728117761%_ (lambda () - (let* ((_%yrest117639117644%_ _%yrest117616%_) - (_%E117641117648%_ + (let* ((_%yrest117745117750%_ _%yrest117722%_) + (_%E117747117754%_ (lambda () (error '"No clause matching" - _%yrest117639117644%_ + _%yrest117745117750%_ '((? (not stx-null?)))) '#!void)) - (_%K117642117652%_ + (_%K117748117758%_ (lambda () - (_%f117609%_ _%xrest117615%_ _%yrest117616%_)))) - (if (gx#stx-null? _%yrest117639117644%_) - (_%E117641117648%_) - (_%K117642117652%_)))))) - (let ((_%try-match117619117658%_ + (_%f117715%_ _%xrest117721%_ _%yrest117722%_)))) + (if (gx#stx-null? _%yrest117745117750%_) + (_%E117747117754%_) + (_%K117748117758%_)))))) + (let ((_%try-match117725117764%_ (lambda () - (if (null? _%g117617117627%_) - (_%else117620117635%_) - (_%K117622117655%_))))) - (if (pair? _%g117617117627%_) - (let ((_%tl117625117697%_ (##cdr _%g117617117627%_)) - (_%hd117624117695%_ (##car _%g117617117627%_))) - (let ((_%xhd117700%_ _%hd117624117695%_) - (_%xrest117702%_ _%tl117625117697%_)) - (_%K117623117692%_ _%xrest117702%_ _%xhd117700%_))) - (_%try-match117619117658%_)))))))) + (if (null? _%g117723117733%_) + (_%else117726117741%_) + (_%K117728117761%_))))) + (if (pair? _%g117723117733%_) + (let ((_%tl117731117803%_ (##cdr _%g117723117733%_)) + (_%hd117730117801%_ (##car _%g117723117733%_))) + (let ((_%xhd117806%_ _%hd117730117801%_) + (_%xrest117808%_ _%tl117731117803%_)) + (_%K117729117798%_ _%xrest117808%_ _%xhd117806%_))) + (_%try-match117725117764%_)))))))) (define gx#stx-map - (lambda _g118294_ - (let ((_g118293_ (##length _g118294_))) - (cond ((##fx= _g118293_ 2) (apply gx#stx-map1 _g118294_)) - ((##fx= _g118293_ 3) (apply gx#stx-map2 _g118294_)) + (lambda _g118400_ + (let ((_g118399_ (##length _g118400_))) + (cond ((##fx= _g118399_ 2) (apply gx#stx-map1 _g118400_)) + ((##fx= _g118399_ 3) (apply gx#stx-map2 _g118400_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-map - _g118294_)))))) + _g118400_)))))) (define gx#stx-map1 - (lambda (_%f117552%_ _%stx117553%_) - (if (procedure? _%f117552%_) + (lambda (_%f117658%_ _%stx117659%_) + (if (procedure? _%f117658%_) '#!void - (error '"expected procedure" _%f117552%_)) - (let _%recur117555%_ ((_%rest117557%_ _%stx117553%_)) - (let* ((_%g117558117568%_ (gx#syntax-e _%rest117557%_)) - (_%else117561117576%_ - (lambda () (_%f117552%_ _%rest117557%_)))) - (let ((_%K117564117590%_ - (lambda (_%rest117587%_ _%hd117588%_) - (cons (_%f117552%_ _%hd117588%_) - (_%recur117555%_ _%rest117587%_)))) - (_%K117563117581%_ (lambda () '()))) - (let ((_%try-match117560117584%_ + (error '"expected procedure" _%f117658%_)) + (let _%recur117661%_ ((_%rest117663%_ _%stx117659%_)) + (let* ((_%g117664117674%_ (gx#syntax-e _%rest117663%_)) + (_%else117667117682%_ + (lambda () (_%f117658%_ _%rest117663%_)))) + (let ((_%K117670117696%_ + (lambda (_%rest117693%_ _%hd117694%_) + (cons (_%f117658%_ _%hd117694%_) + (_%recur117661%_ _%rest117693%_)))) + (_%K117669117687%_ (lambda () '()))) + (let ((_%try-match117666117690%_ (lambda () - (if (null? _%g117558117568%_) - (_%K117563117581%_) - (_%else117561117576%_))))) - (if (pair? _%g117558117568%_) - (let ((_%tl117566117595%_ (##cdr _%g117558117568%_)) - (_%hd117565117593%_ (##car _%g117558117568%_))) - (let ((_%hd117598%_ _%hd117565117593%_) - (_%rest117600%_ _%tl117566117595%_)) - (_%K117564117590%_ _%rest117600%_ _%hd117598%_))) - (_%try-match117560117584%_)))))))) + (if (null? _%g117664117674%_) + (_%K117669117687%_) + (_%else117667117682%_))))) + (if (pair? _%g117664117674%_) + (let ((_%tl117672117701%_ (##cdr _%g117664117674%_)) + (_%hd117671117699%_ (##car _%g117664117674%_))) + (let ((_%hd117704%_ _%hd117671117699%_) + (_%rest117706%_ _%tl117672117701%_)) + (_%K117670117696%_ _%rest117706%_ _%hd117704%_))) + (_%try-match117666117690%_)))))))) (define gx#stx-map2 - (lambda (_%f117457%_ _%xstx117458%_ _%ystx117459%_) - (if (procedure? _%f117457%_) + (lambda (_%f117563%_ _%xstx117564%_ _%ystx117565%_) + (if (procedure? _%f117563%_) '#!void - (error '"expected procedure" _%f117457%_)) - (let _%recur117461%_ ((_%xrest117463%_ _%xstx117458%_) - (_%yrest117464%_ _%ystx117459%_)) - (let* ((_%g117465117475%_ (gx#syntax-e _%xrest117463%_)) - (_%else117468117483%_ (lambda () '()))) - (let ((_%K117471117540%_ - (lambda (_%xrest117509%_ _%xhd117510%_) - (let* ((_%g117511117518%_ (gx#syntax-e _%yrest117464%_)) - (_%E117513117522%_ + (error '"expected procedure" _%f117563%_)) + (let _%recur117567%_ ((_%xrest117569%_ _%xstx117564%_) + (_%yrest117570%_ _%ystx117565%_)) + (let* ((_%g117571117581%_ (gx#syntax-e _%xrest117569%_)) + (_%else117574117589%_ (lambda () '()))) + (let ((_%K117577117646%_ + (lambda (_%xrest117615%_ _%xhd117616%_) + (let* ((_%g117617117624%_ (gx#syntax-e _%yrest117570%_)) + (_%E117619117628%_ (lambda () (error '"No clause matching" - _%g117511117518%_ + _%g117617117624%_ '([yhd . yrest])) '#!void)) - (_%K117514117528%_ - (lambda (_%yrest117525%_ _%yhd117526%_) - (cons (_%f117457%_ _%xhd117510%_ _%yhd117526%_) - (_%recur117461%_ - _%xrest117509%_ - _%yrest117525%_))))) - (if (pair? _%g117511117518%_) - (let ((_%hd117515117531%_ (##car _%g117511117518%_)) - (_%tl117516117533%_ - (##cdr _%g117511117518%_))) - (let* ((_%yhd117536%_ _%hd117515117531%_) - (_%yrest117538%_ _%tl117516117533%_)) - (_%K117514117528%_ - _%yrest117538%_ - _%yhd117536%_))) - (_%E117513117522%_))))) - (_%K117470117503%_ + (_%K117620117634%_ + (lambda (_%yrest117631%_ _%yhd117632%_) + (cons (_%f117563%_ _%xhd117616%_ _%yhd117632%_) + (_%recur117567%_ + _%xrest117615%_ + _%yrest117631%_))))) + (if (pair? _%g117617117624%_) + (let ((_%hd117621117637%_ (##car _%g117617117624%_)) + (_%tl117622117639%_ + (##cdr _%g117617117624%_))) + (let* ((_%yhd117642%_ _%hd117621117637%_) + (_%yrest117644%_ _%tl117622117639%_)) + (_%K117620117634%_ + _%yrest117644%_ + _%yhd117642%_))) + (_%E117619117628%_))))) + (_%K117576117609%_ (lambda () - (let* ((_%yrest117487117492%_ _%yrest117464%_) - (_%E117489117496%_ + (let* ((_%yrest117593117598%_ _%yrest117570%_) + (_%E117595117602%_ (lambda () (error '"No clause matching" - _%yrest117487117492%_ + _%yrest117593117598%_ '((? (not stx-null?)))) '#!void)) - (_%K117490117500%_ + (_%K117596117606%_ (lambda () - (_%f117457%_ _%xrest117463%_ _%yrest117464%_)))) - (if (gx#stx-null? _%yrest117487117492%_) - (_%E117489117496%_) - (_%K117490117500%_)))))) - (let ((_%try-match117467117506%_ + (_%f117563%_ _%xrest117569%_ _%yrest117570%_)))) + (if (gx#stx-null? _%yrest117593117598%_) + (_%E117595117602%_) + (_%K117596117606%_)))))) + (let ((_%try-match117573117612%_ (lambda () - (if (null? _%g117465117475%_) - (_%else117468117483%_) - (_%K117470117503%_))))) - (if (pair? _%g117465117475%_) - (let ((_%tl117473117545%_ (##cdr _%g117465117475%_)) - (_%hd117472117543%_ (##car _%g117465117475%_))) - (let ((_%xhd117548%_ _%hd117472117543%_) - (_%xrest117550%_ _%tl117473117545%_)) - (_%K117471117540%_ _%xrest117550%_ _%xhd117548%_))) - (_%try-match117467117506%_)))))))) + (if (null? _%g117571117581%_) + (_%else117574117589%_) + (_%K117576117609%_))))) + (if (pair? _%g117571117581%_) + (let ((_%tl117579117651%_ (##cdr _%g117571117581%_)) + (_%hd117578117649%_ (##car _%g117571117581%_))) + (let ((_%xhd117654%_ _%hd117578117649%_) + (_%xrest117656%_ _%tl117579117651%_)) + (_%K117577117646%_ _%xrest117656%_ _%xhd117654%_))) + (_%try-match117573117612%_)))))))) (define gx#stx-andmap - (lambda (_%f117407%_ _%stx117408%_) - (if (procedure? _%f117407%_) + (lambda (_%f117513%_ _%stx117514%_) + (if (procedure? _%f117513%_) '#!void - (error '"expected procedure" _%f117407%_)) - (let _%lp117410%_ ((_%rest117412%_ _%stx117408%_)) - (let* ((_%g117413117423%_ (gx#syntax-e _%rest117412%_)) - (_%else117416117431%_ - (lambda () (_%f117407%_ _%rest117412%_)))) - (let ((_%K117419117445%_ - (lambda (_%rest117442%_ _%hd117443%_) - (if (_%f117407%_ _%hd117443%_) - (_%lp117410%_ _%rest117442%_) + (error '"expected procedure" _%f117513%_)) + (let _%lp117516%_ ((_%rest117518%_ _%stx117514%_)) + (let* ((_%g117519117529%_ (gx#syntax-e _%rest117518%_)) + (_%else117522117537%_ + (lambda () (_%f117513%_ _%rest117518%_)))) + (let ((_%K117525117551%_ + (lambda (_%rest117548%_ _%hd117549%_) + (if (_%f117513%_ _%hd117549%_) + (_%lp117516%_ _%rest117548%_) '#f))) - (_%K117418117436%_ (lambda () '#t))) - (let ((_%try-match117415117439%_ + (_%K117524117542%_ (lambda () '#t))) + (let ((_%try-match117521117545%_ (lambda () - (if (null? _%g117413117423%_) - (_%K117418117436%_) - (_%else117416117431%_))))) - (if (pair? _%g117413117423%_) - (let ((_%tl117421117450%_ (##cdr _%g117413117423%_)) - (_%hd117420117448%_ (##car _%g117413117423%_))) - (let ((_%hd117453%_ _%hd117420117448%_) - (_%rest117455%_ _%tl117421117450%_)) - (_%K117419117445%_ _%rest117455%_ _%hd117453%_))) - (_%try-match117415117439%_)))))))) + (if (null? _%g117519117529%_) + (_%K117524117542%_) + (_%else117522117537%_))))) + (if (pair? _%g117519117529%_) + (let ((_%tl117527117556%_ (##cdr _%g117519117529%_)) + (_%hd117526117554%_ (##car _%g117519117529%_))) + (let ((_%hd117559%_ _%hd117526117554%_) + (_%rest117561%_ _%tl117527117556%_)) + (_%K117525117551%_ _%rest117561%_ _%hd117559%_))) + (_%try-match117521117545%_)))))))) (define gx#stx-ormap - (lambda (_%f117354%_ _%stx117355%_) - (if (procedure? _%f117354%_) + (lambda (_%f117460%_ _%stx117461%_) + (if (procedure? _%f117460%_) '#!void - (error '"expected procedure" _%f117354%_)) - (let _%lp117357%_ ((_%rest117359%_ _%stx117355%_)) - (let* ((_%g117360117370%_ (gx#syntax-e _%rest117359%_)) - (_%else117363117378%_ - (lambda () (_%f117354%_ _%rest117359%_)))) - (let ((_%K117366117395%_ - (lambda (_%rest117389%_ _%hd117390%_) - (let ((_%$e117392%_ (_%f117354%_ _%hd117390%_))) - (if _%$e117392%_ - _%$e117392%_ - (_%lp117357%_ _%rest117389%_))))) - (_%K117365117383%_ (lambda () '#f))) - (let ((_%try-match117362117386%_ + (error '"expected procedure" _%f117460%_)) + (let _%lp117463%_ ((_%rest117465%_ _%stx117461%_)) + (let* ((_%g117466117476%_ (gx#syntax-e _%rest117465%_)) + (_%else117469117484%_ + (lambda () (_%f117460%_ _%rest117465%_)))) + (let ((_%K117472117501%_ + (lambda (_%rest117495%_ _%hd117496%_) + (let ((_%$e117498%_ (_%f117460%_ _%hd117496%_))) + (if _%$e117498%_ + _%$e117498%_ + (_%lp117463%_ _%rest117495%_))))) + (_%K117471117489%_ (lambda () '#f))) + (let ((_%try-match117468117492%_ (lambda () - (if (null? _%g117360117370%_) - (_%K117365117383%_) - (_%else117363117378%_))))) - (if (pair? _%g117360117370%_) - (let ((_%tl117368117400%_ (##cdr _%g117360117370%_)) - (_%hd117367117398%_ (##car _%g117360117370%_))) - (let ((_%hd117403%_ _%hd117367117398%_) - (_%rest117405%_ _%tl117368117400%_)) - (_%K117366117395%_ _%rest117405%_ _%hd117403%_))) - (_%try-match117362117386%_)))))))) + (if (null? _%g117466117476%_) + (_%K117471117489%_) + (_%else117469117484%_))))) + (if (pair? _%g117466117476%_) + (let ((_%tl117474117506%_ (##cdr _%g117466117476%_)) + (_%hd117473117504%_ (##car _%g117466117476%_))) + (let ((_%hd117509%_ _%hd117473117504%_) + (_%rest117511%_ _%tl117474117506%_)) + (_%K117472117501%_ _%rest117511%_ _%hd117509%_))) + (_%try-match117468117492%_)))))))) (define gx#stx-foldl - (lambda (_%f117302%_ _%iv117303%_ _%stx117304%_) - (if (procedure? _%f117302%_) + (lambda (_%f117408%_ _%iv117409%_ _%stx117410%_) + (if (procedure? _%f117408%_) '#!void - (error '"expected procedure" _%f117302%_)) - (let _%lp117306%_ ((_%r117308%_ _%iv117303%_) - (_%rest117309%_ _%stx117304%_)) - (let* ((_%g117310117320%_ (gx#syntax-e _%rest117309%_)) - (_%else117313117328%_ - (lambda () (_%f117302%_ _%rest117309%_ _%r117308%_)))) - (let ((_%K117316117342%_ - (lambda (_%rest117339%_ _%hd117340%_) - (_%lp117306%_ - (_%f117302%_ _%hd117340%_ _%r117308%_) - _%rest117339%_))) - (_%K117315117333%_ (lambda () _%r117308%_))) - (let ((_%try-match117312117336%_ + (error '"expected procedure" _%f117408%_)) + (let _%lp117412%_ ((_%r117414%_ _%iv117409%_) + (_%rest117415%_ _%stx117410%_)) + (let* ((_%g117416117426%_ (gx#syntax-e _%rest117415%_)) + (_%else117419117434%_ + (lambda () (_%f117408%_ _%rest117415%_ _%r117414%_)))) + (let ((_%K117422117448%_ + (lambda (_%rest117445%_ _%hd117446%_) + (_%lp117412%_ + (_%f117408%_ _%hd117446%_ _%r117414%_) + _%rest117445%_))) + (_%K117421117439%_ (lambda () _%r117414%_))) + (let ((_%try-match117418117442%_ (lambda () - (if (null? _%g117310117320%_) - (_%K117315117333%_) - (_%else117313117328%_))))) - (if (pair? _%g117310117320%_) - (let ((_%tl117318117347%_ (##cdr _%g117310117320%_)) - (_%hd117317117345%_ (##car _%g117310117320%_))) - (let ((_%hd117350%_ _%hd117317117345%_) - (_%rest117352%_ _%tl117318117347%_)) - (_%K117316117342%_ _%rest117352%_ _%hd117350%_))) - (_%try-match117312117336%_)))))))) + (if (null? _%g117416117426%_) + (_%K117421117439%_) + (_%else117419117434%_))))) + (if (pair? _%g117416117426%_) + (let ((_%tl117424117453%_ (##cdr _%g117416117426%_)) + (_%hd117423117451%_ (##car _%g117416117426%_))) + (let ((_%hd117456%_ _%hd117423117451%_) + (_%rest117458%_ _%tl117424117453%_)) + (_%K117422117448%_ _%rest117458%_ _%hd117456%_))) + (_%try-match117418117442%_)))))))) (define gx#stx-foldr - (lambda (_%f117251%_ _%iv117252%_ _%stx117253%_) - (if (procedure? _%f117251%_) + (lambda (_%f117357%_ _%iv117358%_ _%stx117359%_) + (if (procedure? _%f117357%_) '#!void - (error '"expected procedure" _%f117251%_)) - (let _%recur117255%_ ((_%rest117257%_ _%stx117253%_)) - (let* ((_%g117258117268%_ (gx#syntax-e _%rest117257%_)) - (_%else117261117276%_ - (lambda () (_%f117251%_ _%rest117257%_ _%iv117252%_)))) - (let ((_%K117264117290%_ - (lambda (_%rest117287%_ _%hd117288%_) - (_%f117251%_ - _%hd117288%_ - (_%recur117255%_ _%rest117287%_)))) - (_%K117263117281%_ (lambda () _%iv117252%_))) - (let ((_%try-match117260117284%_ + (error '"expected procedure" _%f117357%_)) + (let _%recur117361%_ ((_%rest117363%_ _%stx117359%_)) + (let* ((_%g117364117374%_ (gx#syntax-e _%rest117363%_)) + (_%else117367117382%_ + (lambda () (_%f117357%_ _%rest117363%_ _%iv117358%_)))) + (let ((_%K117370117396%_ + (lambda (_%rest117393%_ _%hd117394%_) + (_%f117357%_ + _%hd117394%_ + (_%recur117361%_ _%rest117393%_)))) + (_%K117369117387%_ (lambda () _%iv117358%_))) + (let ((_%try-match117366117390%_ (lambda () - (if (null? _%g117258117268%_) - (_%K117263117281%_) - (_%else117261117276%_))))) - (if (pair? _%g117258117268%_) - (let ((_%tl117266117295%_ (##cdr _%g117258117268%_)) - (_%hd117265117293%_ (##car _%g117258117268%_))) - (let ((_%hd117298%_ _%hd117265117293%_) - (_%rest117300%_ _%tl117266117295%_)) - (_%K117264117290%_ _%rest117300%_ _%hd117298%_))) - (_%try-match117260117284%_)))))))) + (if (null? _%g117364117374%_) + (_%K117369117387%_) + (_%else117367117382%_))))) + (if (pair? _%g117364117374%_) + (let ((_%tl117372117401%_ (##cdr _%g117364117374%_)) + (_%hd117371117399%_ (##car _%g117364117374%_))) + (let ((_%hd117404%_ _%hd117371117399%_) + (_%rest117406%_ _%tl117372117401%_)) + (_%K117370117396%_ _%rest117406%_ _%hd117404%_))) + (_%try-match117366117390%_)))))))) (define gx#stx-reverse - (lambda (_%stx117249%_) (gx#stx-foldl cons '() _%stx117249%_))) + (lambda (_%stx117355%_) (gx#stx-foldl cons '() _%stx117355%_))) (define gx#stx-last - (lambda (_%stx117210%_) - (let _%lp117212%_ ((_%rest117214%_ _%stx117210%_)) - (let* ((_%g117215117223%_ (gx#syntax-e _%rest117214%_)) - (_%else117217117231%_ (lambda () _%rest117214%_)) - (_%K117219117237%_ - (lambda (_%rest117234%_ _%hd117235%_) - (if (gx#stx-null? _%rest117234%_) - _%hd117235%_ - (_%lp117212%_ _%rest117234%_))))) - (if (pair? _%g117215117223%_) - (let ((_%hd117220117240%_ (##car _%g117215117223%_)) - (_%tl117221117242%_ (##cdr _%g117215117223%_))) - (let* ((_%hd117245%_ _%hd117220117240%_) - (_%rest117247%_ _%tl117221117242%_)) - (_%K117219117237%_ _%rest117247%_ _%hd117245%_))) - (_%else117217117231%_)))))) + (lambda (_%stx117316%_) + (let _%lp117318%_ ((_%rest117320%_ _%stx117316%_)) + (let* ((_%g117321117329%_ (gx#syntax-e _%rest117320%_)) + (_%else117323117337%_ (lambda () _%rest117320%_)) + (_%K117325117343%_ + (lambda (_%rest117340%_ _%hd117341%_) + (if (gx#stx-null? _%rest117340%_) + _%hd117341%_ + (_%lp117318%_ _%rest117340%_))))) + (if (pair? _%g117321117329%_) + (let ((_%hd117326117346%_ (##car _%g117321117329%_)) + (_%tl117327117348%_ (##cdr _%g117321117329%_))) + (let* ((_%hd117351%_ _%hd117326117346%_) + (_%rest117353%_ _%tl117327117348%_)) + (_%K117325117343%_ _%rest117353%_ _%hd117351%_))) + (_%else117323117337%_)))))) (define gx#stx-last-pair - (lambda (_%stx117181%_) - (let _%lp117183%_ ((_%hd117185%_ _%stx117181%_)) - (let* ((_%g117186117193%_ (gx#syntax-e _%hd117185%_)) - (_%E117188117197%_ + (lambda (_%stx117287%_) + (let _%lp117289%_ ((_%hd117291%_ _%stx117287%_)) + (let* ((_%g117292117299%_ (gx#syntax-e _%hd117291%_)) + (_%E117294117303%_ (lambda () (error '"No clause matching" - _%g117186117193%_ + _%g117292117299%_ '([_ . rest])) '#!void)) - (_%K117189117202%_ - (lambda (_%rest117200%_) - (if (gx#stx-pair? _%rest117200%_) - (_%lp117183%_ _%rest117200%_) - _%hd117185%_)))) - (if (pair? _%g117186117193%_) - (let* ((_%tl117191117205%_ (##cdr _%g117186117193%_)) - (_%rest117208%_ _%tl117191117205%_)) - (_%K117189117202%_ _%rest117208%_)) - (_%E117188117197%_)))))) + (_%K117295117308%_ + (lambda (_%rest117306%_) + (if (gx#stx-pair? _%rest117306%_) + (_%lp117289%_ _%rest117306%_) + _%hd117291%_)))) + (if (pair? _%g117292117299%_) + (let* ((_%tl117297117311%_ (##cdr _%g117292117299%_)) + (_%rest117314%_ _%tl117297117311%_)) + (_%K117295117308%_ _%rest117314%_)) + (_%E117294117303%_)))))) (define gx#stx-list-tail - (lambda (_%stx117150%_ _%k117151%_) - (let _%lp117153%_ ((_%rest117155%_ _%stx117150%_) - (_%k117156%_ _%k117151%_)) - (if (fxpositive? _%k117156%_) - (let* ((_%g117157117164%_ (gx#syntax-e _%rest117155%_)) - (_%E117159117168%_ + (lambda (_%stx117256%_ _%k117257%_) + (let _%lp117259%_ ((_%rest117261%_ _%stx117256%_) + (_%k117262%_ _%k117257%_)) + (if (fxpositive? _%k117262%_) + (let* ((_%g117263117270%_ (gx#syntax-e _%rest117261%_)) + (_%E117265117274%_ (lambda () (error '"No clause matching" - _%g117157117164%_ + _%g117263117270%_ '([_ . rest])) '#!void)) - (_%K117160117173%_ - (lambda (_%rest117171%_) - (_%lp117153%_ _%rest117171%_ (##fx- _%k117156%_ '1))))) - (if (pair? _%g117157117164%_) - (let* ((_%tl117162117176%_ (##cdr _%g117157117164%_)) - (_%rest117179%_ _%tl117162117176%_)) - (_%K117160117173%_ _%rest117179%_)) - (_%E117159117168%_))) - _%rest117155%_)))) + (_%K117266117279%_ + (lambda (_%rest117277%_) + (_%lp117259%_ _%rest117277%_ (##fx- _%k117262%_ '1))))) + (if (pair? _%g117263117270%_) + (let* ((_%tl117268117282%_ (##cdr _%g117263117270%_)) + (_%rest117285%_ _%tl117268117282%_)) + (_%K117266117279%_ _%rest117285%_)) + (_%E117265117274%_))) + _%rest117261%_)))) (define gx#stx-list-ref - (lambda (_%stx117147%_ _%k117148%_) - (gx#stx-car (gx#stx-list-tail _%stx117147%_ _%k117148%_)))) + (lambda (_%stx117253%_ _%k117254%_) + (gx#stx-car (gx#stx-list-tail _%stx117253%_ _%k117254%_)))) (define gx#stx-plist?__% - (lambda (_%stx117059%_ _%key?117060%_) - (if (procedure? _%key?117060%_) + (lambda (_%stx117165%_ _%key?117166%_) + (if (procedure? _%key?117166%_) '#!void - (error '"expected procedure" _%key?117060%_)) - (let _%lp117062%_ ((_%rest117064%_ _%stx117059%_)) - (let* ((_%g117065117075%_ (gx#stx-e _%rest117064%_)) - (_%else117068117083%_ (lambda () '#f))) - (let ((_%K117071117125%_ - (lambda (_%rest117094%_ _%hd117095%_) - (if (_%key?117060%_ _%hd117095%_) - (let* ((_%g117096117104%_ (gx#stx-e _%rest117094%_)) - (_%else117098117112%_ (lambda () '#f)) - (_%K117100117117%_ - (lambda (_%rest117115%_) - (_%lp117062%_ _%rest117115%_)))) - (if (pair? _%g117096117104%_) - (let* ((_%tl117102117120%_ - (##cdr _%g117096117104%_)) - (_%rest117123%_ _%tl117102117120%_)) - (_%lp117062%_ _%rest117123%_)) - (_%else117098117112%_))) + (error '"expected procedure" _%key?117166%_)) + (let _%lp117168%_ ((_%rest117170%_ _%stx117165%_)) + (let* ((_%g117171117181%_ (gx#stx-e _%rest117170%_)) + (_%else117174117189%_ (lambda () '#f))) + (let ((_%K117177117231%_ + (lambda (_%rest117200%_ _%hd117201%_) + (if (_%key?117166%_ _%hd117201%_) + (let* ((_%g117202117210%_ (gx#stx-e _%rest117200%_)) + (_%else117204117218%_ (lambda () '#f)) + (_%K117206117223%_ + (lambda (_%rest117221%_) + (_%lp117168%_ _%rest117221%_)))) + (if (pair? _%g117202117210%_) + (let* ((_%tl117208117226%_ + (##cdr _%g117202117210%_)) + (_%rest117229%_ _%tl117208117226%_)) + (_%lp117168%_ _%rest117229%_)) + (_%else117204117218%_))) '#f))) - (_%K117070117088%_ (lambda () '#t))) - (let ((_%try-match117067117091%_ + (_%K117176117194%_ (lambda () '#t))) + (let ((_%try-match117173117197%_ (lambda () - (if (null? _%g117065117075%_) - (_%K117070117088%_) - (_%else117068117083%_))))) - (if (pair? _%g117065117075%_) - (let ((_%tl117073117130%_ (##cdr _%g117065117075%_)) - (_%hd117072117128%_ (##car _%g117065117075%_))) - (let ((_%hd117133%_ _%hd117072117128%_) - (_%rest117135%_ _%tl117073117130%_)) - (_%K117071117125%_ _%rest117135%_ _%hd117133%_))) - (_%try-match117067117091%_)))))))) + (if (null? _%g117171117181%_) + (_%K117176117194%_) + (_%else117174117189%_))))) + (if (pair? _%g117171117181%_) + (let ((_%tl117179117236%_ (##cdr _%g117171117181%_)) + (_%hd117178117234%_ (##car _%g117171117181%_))) + (let ((_%hd117239%_ _%hd117178117234%_) + (_%rest117241%_ _%tl117179117236%_)) + (_%K117177117231%_ _%rest117241%_ _%hd117239%_))) + (_%try-match117173117197%_)))))))) (define gx#stx-plist?__0 - (lambda (_%stx117140%_) - (let ((_%key?117142%_ gx#stx-keyword?)) - (gx#stx-plist?__% _%stx117140%_ _%key?117142%_)))) + (lambda (_%stx117246%_) + (let ((_%key?117248%_ gx#stx-keyword?)) + (gx#stx-plist?__% _%stx117246%_ _%key?117248%_)))) (define gx#stx-plist? - (lambda _g118296_ - (let ((_g118295_ (##length _g118296_))) - (cond ((##fx= _g118295_ 1) (apply gx#stx-plist?__0 _g118296_)) - ((##fx= _g118295_ 2) (apply gx#stx-plist?__% _g118296_)) + (lambda _g118402_ + (let ((_g118401_ (##length _g118402_))) + (cond ((##fx= _g118401_ 1) (apply gx#stx-plist?__0 _g118402_)) + ((##fx= _g118401_ 2) (apply gx#stx-plist?__% _g118402_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-plist? - _g118296_)))))) + _g118402_)))))) (define gx#stx-getq__% - (lambda (_%key116977%_ _%stx116978%_ _%key=?116979%_) - (if (procedure? _%key=?116979%_) + (lambda (_%key117083%_ _%stx117084%_ _%key=?117085%_) + (if (procedure? _%key=?117085%_) '#!void - (error '"expected procedure" _%key=?116979%_)) - (let _%lp116981%_ ((_%rest116983%_ _%stx116978%_)) - (let* ((_%g116984116992%_ (gx#syntax-e _%rest116983%_)) - (_%else116986117000%_ (lambda () '#f)) - (_%K116988117034%_ - (lambda (_%rest117003%_ _%hd117004%_) - (let* ((_%g117005117012%_ (gx#syntax-e _%rest117003%_)) - (_%E117007117016%_ + (error '"expected procedure" _%key=?117085%_)) + (let _%lp117087%_ ((_%rest117089%_ _%stx117084%_)) + (let* ((_%g117090117098%_ (gx#syntax-e _%rest117089%_)) + (_%else117092117106%_ (lambda () '#f)) + (_%K117094117140%_ + (lambda (_%rest117109%_ _%hd117110%_) + (let* ((_%g117111117118%_ (gx#syntax-e _%rest117109%_)) + (_%E117113117122%_ (lambda () (error '"No clause matching" - _%g117005117012%_ + _%g117111117118%_ '([val . rest])) '#!void)) - (_%K117008117022%_ - (lambda (_%rest117019%_ _%val117020%_) - (if (_%key=?116979%_ _%hd117004%_ _%key116977%_) - _%val117020%_ - (_%lp116981%_ _%rest117019%_))))) - (if (pair? _%g117005117012%_) - (let ((_%hd117009117025%_ (##car _%g117005117012%_)) - (_%tl117010117027%_ (##cdr _%g117005117012%_))) - (let* ((_%val117030%_ _%hd117009117025%_) - (_%rest117032%_ _%tl117010117027%_)) - (_%K117008117022%_ - _%rest117032%_ - _%val117030%_))) - (_%E117007117016%_)))))) - (if (pair? _%g116984116992%_) - (let ((_%hd116989117037%_ (##car _%g116984116992%_)) - (_%tl116990117039%_ (##cdr _%g116984116992%_))) - (let* ((_%hd117042%_ _%hd116989117037%_) - (_%rest117044%_ _%tl116990117039%_)) - (_%K116988117034%_ _%rest117044%_ _%hd117042%_))) - (_%else116986117000%_)))))) + (_%K117114117128%_ + (lambda (_%rest117125%_ _%val117126%_) + (if (_%key=?117085%_ _%hd117110%_ _%key117083%_) + _%val117126%_ + (_%lp117087%_ _%rest117125%_))))) + (if (pair? _%g117111117118%_) + (let ((_%hd117115117131%_ (##car _%g117111117118%_)) + (_%tl117116117133%_ (##cdr _%g117111117118%_))) + (let* ((_%val117136%_ _%hd117115117131%_) + (_%rest117138%_ _%tl117116117133%_)) + (_%K117114117128%_ + _%rest117138%_ + _%val117136%_))) + (_%E117113117122%_)))))) + (if (pair? _%g117090117098%_) + (let ((_%hd117095117143%_ (##car _%g117090117098%_)) + (_%tl117096117145%_ (##cdr _%g117090117098%_))) + (let* ((_%hd117148%_ _%hd117095117143%_) + (_%rest117150%_ _%tl117096117145%_)) + (_%K117094117140%_ _%rest117150%_ _%hd117148%_))) + (_%else117092117106%_)))))) (define gx#stx-getq__0 - (lambda (_%key117049%_ _%stx117050%_) - (let ((_%key=?117052%_ gx#stx-eq?)) - (gx#stx-getq__% _%key117049%_ _%stx117050%_ _%key=?117052%_)))) + (lambda (_%key117155%_ _%stx117156%_) + (let ((_%key=?117158%_ gx#stx-eq?)) + (gx#stx-getq__% _%key117155%_ _%stx117156%_ _%key=?117158%_)))) (define gx#stx-getq - (lambda _g118298_ - (let ((_g118297_ (##length _g118298_))) - (cond ((##fx= _g118297_ 2) (apply gx#stx-getq__0 _g118298_)) - ((##fx= _g118297_ 3) (apply gx#stx-getq__% _g118298_)) + (lambda _g118404_ + (let ((_g118403_ (##length _g118404_))) + (cond ((##fx= _g118403_ 2) (apply gx#stx-getq__0 _g118404_)) + ((##fx= _g118403_ 3) (apply gx#stx-getq__% _g118404_)) (else (##raise-wrong-number-of-arguments-exception gx#stx-getq - _g118298_)))))))) + _g118404_)))))))) diff --git a/src/bootstrap/gerbil/expander/stx~1.scm b/src/bootstrap/gerbil/expander/stx~1.scm index 9cfeef1ff..b59f2058d 100644 --- a/src/bootstrap/gerbil/expander/stx~1.scm +++ b/src/bootstrap/gerbil/expander/stx~1.scm @@ -1,344 +1,344 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |gx[1]#_g118300_| + (define |gx[1]#_g118406_| (##structure gx#syntax-quote::t 'AST #f (gx#current-expander-context) '())) - (define |gx[1]#_g118302_| + (define |gx[1]#_g118408_| (##structure gx#syntax-quote::t 'identifier-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118304_| + (define |gx[1]#_g118410_| (##structure gx#syntax-quote::t 'make-identifier-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118306_| + (define |gx[1]#_g118412_| (##structure gx#syntax-quote::t 'identifier-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118308_| + (define |gx[1]#_g118414_| (##structure gx#syntax-quote::t 'identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118309_| + (define |gx[1]#_g118415_| (##structure gx#syntax-quote::t 'identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118310_| + (define |gx[1]#_g118416_| (##structure gx#syntax-quote::t 'identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118312_| + (define |gx[1]#_g118418_| (##structure gx#syntax-quote::t 'identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118313_| + (define |gx[1]#_g118419_| (##structure gx#syntax-quote::t 'identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118314_| + (define |gx[1]#_g118420_| (##structure gx#syntax-quote::t 'identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118316_| + (define |gx[1]#_g118422_| (##structure gx#syntax-quote::t '&identifier-wrap-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118317_| + (define |gx[1]#_g118423_| (##structure gx#syntax-quote::t '&identifier-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118318_| + (define |gx[1]#_g118424_| (##structure gx#syntax-quote::t '&identifier-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118320_| + (define |gx[1]#_g118426_| (##structure gx#syntax-quote::t '&identifier-wrap-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118321_| + (define |gx[1]#_g118427_| (##structure gx#syntax-quote::t '&identifier-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118322_| + (define |gx[1]#_g118428_| (##structure gx#syntax-quote::t '&identifier-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118325_| + (define |gx[1]#_g118431_| (##structure gx#syntax-quote::t 'syntax-wrap::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118327_| + (define |gx[1]#_g118433_| (##structure gx#syntax-quote::t 'make-syntax-wrap #f (gx#current-expander-context) '())) - (define |gx[1]#_g118329_| + (define |gx[1]#_g118435_| (##structure gx#syntax-quote::t 'syntax-wrap? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118331_| + (define |gx[1]#_g118437_| (##structure gx#syntax-quote::t 'syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118332_| + (define |gx[1]#_g118438_| (##structure gx#syntax-quote::t 'syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118333_| + (define |gx[1]#_g118439_| (##structure gx#syntax-quote::t 'syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118335_| + (define |gx[1]#_g118441_| (##structure gx#syntax-quote::t 'syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118336_| + (define |gx[1]#_g118442_| (##structure gx#syntax-quote::t 'syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118337_| + (define |gx[1]#_g118443_| (##structure gx#syntax-quote::t 'syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118339_| + (define |gx[1]#_g118445_| (##structure gx#syntax-quote::t '&syntax-wrap-mark #f (gx#current-expander-context) '())) - (define |gx[1]#_g118340_| + (define |gx[1]#_g118446_| (##structure gx#syntax-quote::t '&syntax-wrap-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118341_| + (define |gx[1]#_g118447_| (##structure gx#syntax-quote::t '&syntax-wrap-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118343_| + (define |gx[1]#_g118449_| (##structure gx#syntax-quote::t '&syntax-wrap-mark-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118344_| + (define |gx[1]#_g118450_| (##structure gx#syntax-quote::t '&syntax-wrap-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118345_| + (define |gx[1]#_g118451_| (##structure gx#syntax-quote::t '&syntax-wrap-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118348_| + (define |gx[1]#_g118454_| (##structure gx#syntax-quote::t 'syntax-quote::t #f (gx#current-expander-context) '())) - (define |gx[1]#_g118350_| + (define |gx[1]#_g118456_| (##structure gx#syntax-quote::t 'make-syntax-quote #f (gx#current-expander-context) '())) - (define |gx[1]#_g118352_| + (define |gx[1]#_g118458_| (##structure gx#syntax-quote::t 'syntax-quote? #f (gx#current-expander-context) '())) - (define |gx[1]#_g118354_| + (define |gx[1]#_g118460_| (##structure gx#syntax-quote::t 'syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118355_| + (define |gx[1]#_g118461_| (##structure gx#syntax-quote::t 'syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118356_| + (define |gx[1]#_g118462_| (##structure gx#syntax-quote::t 'syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118357_| + (define |gx[1]#_g118463_| (##structure gx#syntax-quote::t 'syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118359_| + (define |gx[1]#_g118465_| (##structure gx#syntax-quote::t 'syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118360_| + (define |gx[1]#_g118466_| (##structure gx#syntax-quote::t 'syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118361_| + (define |gx[1]#_g118467_| (##structure gx#syntax-quote::t 'syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118362_| + (define |gx[1]#_g118468_| (##structure gx#syntax-quote::t 'syntax-quote-source-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118364_| + (define |gx[1]#_g118470_| (##structure gx#syntax-quote::t '&syntax-quote-context #f (gx#current-expander-context) '())) - (define |gx[1]#_g118365_| + (define |gx[1]#_g118471_| (##structure gx#syntax-quote::t '&syntax-quote-marks #f (gx#current-expander-context) '())) - (define |gx[1]#_g118366_| + (define |gx[1]#_g118472_| (##structure gx#syntax-quote::t '&syntax-quote-e #f (gx#current-expander-context) '())) - (define |gx[1]#_g118367_| + (define |gx[1]#_g118473_| (##structure gx#syntax-quote::t '&syntax-quote-source #f (gx#current-expander-context) '())) - (define |gx[1]#_g118369_| + (define |gx[1]#_g118475_| (##structure gx#syntax-quote::t '&syntax-quote-context-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118370_| + (define |gx[1]#_g118476_| (##structure gx#syntax-quote::t '&syntax-quote-marks-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118371_| + (define |gx[1]#_g118477_| (##structure gx#syntax-quote::t '&syntax-quote-e-set! #f (gx#current-expander-context) '())) - (define |gx[1]#_g118372_| + (define |gx[1]#_g118478_| (##structure gx#syntax-quote::t '&syntax-quote-source-set! @@ -347,7 +347,7 @@ '())) (begin (define |gx[:0:]#identifier-wrap| - (let ((__obj118282 + (let ((__obj118388 (let () (declare (not safe)) (##structure @@ -376,85 +376,85 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118282 + __obj118388 'gx#identifier-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118388 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '(marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118388 '(marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118282 + __obj118388 '(e source marks) '6 '#f '#f)) - (let ((__tmp118299 (cons |gx[1]#_g118300_| '()))) + (let ((__tmp118405 (cons |gx[1]#_g118406_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118299 '3 '#f '#f)) + (##unchecked-structure-set! __obj118388 __tmp118405 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118388 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118388 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118388 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '#f '11 '#f '#f)) - (let ((__tmp118301 |gx[1]#_g118302_|)) + (##unchecked-structure-set! __obj118388 '#f '11 '#f '#f)) + (let ((__tmp118407 |gx[1]#_g118408_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118301 '12 '#f '#f)) - (let ((__tmp118303 |gx[1]#_g118304_|)) + (##unchecked-structure-set! __obj118388 __tmp118407 '12 '#f '#f)) + (let ((__tmp118409 |gx[1]#_g118410_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118303 '13 '#f '#f)) - (let ((__tmp118305 |gx[1]#_g118306_|)) + (##unchecked-structure-set! __obj118388 __tmp118409 '13 '#f '#f)) + (let ((__tmp118411 |gx[1]#_g118412_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118305 '14 '#f '#f)) - (let ((__tmp118307 - (cons (cons 'marks |gx[1]#_g118308_|) - (cons (cons 'e |gx[1]#_g118309_|) - (cons (cons 'source |gx[1]#_g118310_|) '()))))) + (##unchecked-structure-set! __obj118388 __tmp118411 '14 '#f '#f)) + (let ((__tmp118413 + (cons (cons 'marks |gx[1]#_g118414_|) + (cons (cons 'e |gx[1]#_g118415_|) + (cons (cons 'source |gx[1]#_g118416_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118307 '15 '#f '#f)) - (let ((__tmp118311 - (cons (cons 'marks |gx[1]#_g118312_|) - (cons (cons 'e |gx[1]#_g118313_|) - (cons (cons 'source |gx[1]#_g118314_|) '()))))) + (##unchecked-structure-set! __obj118388 __tmp118413 '15 '#f '#f)) + (let ((__tmp118417 + (cons (cons 'marks |gx[1]#_g118418_|) + (cons (cons 'e |gx[1]#_g118419_|) + (cons (cons 'source |gx[1]#_g118420_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118311 '16 '#f '#f)) - (let ((__tmp118315 - (cons (cons 'marks |gx[1]#_g118316_|) - (cons (cons 'e |gx[1]#_g118317_|) - (cons (cons 'source |gx[1]#_g118318_|) '()))))) + (##unchecked-structure-set! __obj118388 __tmp118417 '16 '#f '#f)) + (let ((__tmp118421 + (cons (cons 'marks |gx[1]#_g118422_|) + (cons (cons 'e |gx[1]#_g118423_|) + (cons (cons 'source |gx[1]#_g118424_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118315 '17 '#f '#f)) - (let ((__tmp118319 - (cons (cons 'marks |gx[1]#_g118320_|) - (cons (cons 'e |gx[1]#_g118321_|) - (cons (cons 'source |gx[1]#_g118322_|) '()))))) + (##unchecked-structure-set! __obj118388 __tmp118421 '17 '#f '#f)) + (let ((__tmp118425 + (cons (cons 'marks |gx[1]#_g118426_|) + (cons (cons 'e |gx[1]#_g118427_|) + (cons (cons 'source |gx[1]#_g118428_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118282 __tmp118319 '18 '#f '#f)) + (##unchecked-structure-set! __obj118388 __tmp118425 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118388 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118388 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118282 '() '20 '#f '#f)) - __obj118282)) + (##unchecked-structure-set! __obj118388 '() '20 '#f '#f)) + __obj118388)) (define |gx[:0:]#syntax-wrap| - (let ((__obj118283 + (let ((__obj118389 (let () (declare (not safe)) (##structure @@ -483,80 +483,80 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118283 + __obj118389 'gx#syntax-wrap::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118389 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '(mark) '4 '#f '#f)) + (##unchecked-structure-set! __obj118389 '(mark) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '(e source mark) '6 '#f '#f)) - (let ((__tmp118323 (cons |gx[1]#_g118300_| '()))) + (##unchecked-structure-set! __obj118389 '(e source mark) '6 '#f '#f)) + (let ((__tmp118429 (cons |gx[1]#_g118406_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118323 '3 '#f '#f)) + (##unchecked-structure-set! __obj118389 __tmp118429 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118389 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118389 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118389 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '#f '11 '#f '#f)) - (let ((__tmp118324 |gx[1]#_g118325_|)) + (##unchecked-structure-set! __obj118389 '#f '11 '#f '#f)) + (let ((__tmp118430 |gx[1]#_g118431_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118324 '12 '#f '#f)) - (let ((__tmp118326 |gx[1]#_g118327_|)) + (##unchecked-structure-set! __obj118389 __tmp118430 '12 '#f '#f)) + (let ((__tmp118432 |gx[1]#_g118433_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118326 '13 '#f '#f)) - (let ((__tmp118328 |gx[1]#_g118329_|)) + (##unchecked-structure-set! __obj118389 __tmp118432 '13 '#f '#f)) + (let ((__tmp118434 |gx[1]#_g118435_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118328 '14 '#f '#f)) - (let ((__tmp118330 - (cons (cons 'mark |gx[1]#_g118331_|) - (cons (cons 'e |gx[1]#_g118332_|) - (cons (cons 'source |gx[1]#_g118333_|) '()))))) + (##unchecked-structure-set! __obj118389 __tmp118434 '14 '#f '#f)) + (let ((__tmp118436 + (cons (cons 'mark |gx[1]#_g118437_|) + (cons (cons 'e |gx[1]#_g118438_|) + (cons (cons 'source |gx[1]#_g118439_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118330 '15 '#f '#f)) - (let ((__tmp118334 - (cons (cons 'mark |gx[1]#_g118335_|) - (cons (cons 'e |gx[1]#_g118336_|) - (cons (cons 'source |gx[1]#_g118337_|) '()))))) + (##unchecked-structure-set! __obj118389 __tmp118436 '15 '#f '#f)) + (let ((__tmp118440 + (cons (cons 'mark |gx[1]#_g118441_|) + (cons (cons 'e |gx[1]#_g118442_|) + (cons (cons 'source |gx[1]#_g118443_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118334 '16 '#f '#f)) - (let ((__tmp118338 - (cons (cons 'mark |gx[1]#_g118339_|) - (cons (cons 'e |gx[1]#_g118340_|) - (cons (cons 'source |gx[1]#_g118341_|) '()))))) + (##unchecked-structure-set! __obj118389 __tmp118440 '16 '#f '#f)) + (let ((__tmp118444 + (cons (cons 'mark |gx[1]#_g118445_|) + (cons (cons 'e |gx[1]#_g118446_|) + (cons (cons 'source |gx[1]#_g118447_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118338 '17 '#f '#f)) - (let ((__tmp118342 - (cons (cons 'mark |gx[1]#_g118343_|) - (cons (cons 'e |gx[1]#_g118344_|) - (cons (cons 'source |gx[1]#_g118345_|) '()))))) + (##unchecked-structure-set! __obj118389 __tmp118444 '17 '#f '#f)) + (let ((__tmp118448 + (cons (cons 'mark |gx[1]#_g118449_|) + (cons (cons 'e |gx[1]#_g118450_|) + (cons (cons 'source |gx[1]#_g118451_|) '()))))) (declare (not safe)) - (##unchecked-structure-set! __obj118283 __tmp118342 '18 '#f '#f)) + (##unchecked-structure-set! __obj118389 __tmp118448 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118389 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118389 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118283 '() '20 '#f '#f)) - __obj118283)) + (##unchecked-structure-set! __obj118389 '() '20 '#f '#f)) + __obj118389)) (define |gx[:0:]#syntax-quote| - (let ((__obj118284 + (let ((__obj118390 (let () (declare (not safe)) (##structure @@ -585,88 +585,88 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj118284 + __obj118390 'gx#syntax-quote::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj118390 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '(context marks) '4 '#f '#f)) + (##unchecked-structure-set! __obj118390 '(context marks) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj118284 + __obj118390 '(e source context marks) '6 '#f '#f)) - (let ((__tmp118346 (cons |gx[1]#_g118300_| '()))) + (let ((__tmp118452 (cons |gx[1]#_g118406_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118346 '3 '#f '#f)) + (##unchecked-structure-set! __obj118390 __tmp118452 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj118390 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj118390 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj118390 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '#f '11 '#f '#f)) - (let ((__tmp118347 |gx[1]#_g118348_|)) + (##unchecked-structure-set! __obj118390 '#f '11 '#f '#f)) + (let ((__tmp118453 |gx[1]#_g118454_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118347 '12 '#f '#f)) - (let ((__tmp118349 |gx[1]#_g118350_|)) + (##unchecked-structure-set! __obj118390 __tmp118453 '12 '#f '#f)) + (let ((__tmp118455 |gx[1]#_g118456_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118349 '13 '#f '#f)) - (let ((__tmp118351 |gx[1]#_g118352_|)) + (##unchecked-structure-set! __obj118390 __tmp118455 '13 '#f '#f)) + (let ((__tmp118457 |gx[1]#_g118458_|)) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118351 '14 '#f '#f)) - (let ((__tmp118353 - (cons (cons 'context |gx[1]#_g118354_|) - (cons (cons 'marks |gx[1]#_g118355_|) - (cons (cons 'e |gx[1]#_g118356_|) - (cons (cons 'source |gx[1]#_g118357_|) + (##unchecked-structure-set! __obj118390 __tmp118457 '14 '#f '#f)) + (let ((__tmp118459 + (cons (cons 'context |gx[1]#_g118460_|) + (cons (cons 'marks |gx[1]#_g118461_|) + (cons (cons 'e |gx[1]#_g118462_|) + (cons (cons 'source |gx[1]#_g118463_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118353 '15 '#f '#f)) - (let ((__tmp118358 - (cons (cons 'context |gx[1]#_g118359_|) - (cons (cons 'marks |gx[1]#_g118360_|) - (cons (cons 'e |gx[1]#_g118361_|) - (cons (cons 'source |gx[1]#_g118362_|) + (##unchecked-structure-set! __obj118390 __tmp118459 '15 '#f '#f)) + (let ((__tmp118464 + (cons (cons 'context |gx[1]#_g118465_|) + (cons (cons 'marks |gx[1]#_g118466_|) + (cons (cons 'e |gx[1]#_g118467_|) + (cons (cons 'source |gx[1]#_g118468_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118358 '16 '#f '#f)) - (let ((__tmp118363 - (cons (cons 'context |gx[1]#_g118364_|) - (cons (cons 'marks |gx[1]#_g118365_|) - (cons (cons 'e |gx[1]#_g118366_|) - (cons (cons 'source |gx[1]#_g118367_|) + (##unchecked-structure-set! __obj118390 __tmp118464 '16 '#f '#f)) + (let ((__tmp118469 + (cons (cons 'context |gx[1]#_g118470_|) + (cons (cons 'marks |gx[1]#_g118471_|) + (cons (cons 'e |gx[1]#_g118472_|) + (cons (cons 'source |gx[1]#_g118473_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118363 '17 '#f '#f)) - (let ((__tmp118368 - (cons (cons 'context |gx[1]#_g118369_|) - (cons (cons 'marks |gx[1]#_g118370_|) - (cons (cons 'e |gx[1]#_g118371_|) - (cons (cons 'source |gx[1]#_g118372_|) + (##unchecked-structure-set! __obj118390 __tmp118469 '17 '#f '#f)) + (let ((__tmp118474 + (cons (cons 'context |gx[1]#_g118475_|) + (cons (cons 'marks |gx[1]#_g118476_|) + (cons (cons 'e |gx[1]#_g118477_|) + (cons (cons 'source |gx[1]#_g118478_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj118284 __tmp118368 '18 '#f '#f)) + (##unchecked-structure-set! __obj118390 __tmp118474 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj118390 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj118390 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj118284 '() '20 '#f '#f)) - __obj118284)))) + (##unchecked-structure-set! __obj118390 '() '20 '#f '#f)) + __obj118390)))) diff --git a/src/bootstrap/gerbil/expander/top~0.scm b/src/bootstrap/gerbil/expander/top~0.scm index e2a335c67..3bf10d211 100644 --- a/src/bootstrap/gerbil/expander/top~0.scm +++ b/src/bootstrap/gerbil/expander/top~0.scm @@ -1,397 +1,397 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/expander/top::timestamp 1733870074) + (define gerbil/expander/top::timestamp 1734131747) (begin (declare (not safe)) (define gx#core-expand-begin% - (lambda (_%stx125335%_) - (letrec ((_%expand-special125337%_ - (lambda (_%hd125339%_ _%K125340%_ _%rest125341%_ _%r125342%_) - (_%K125340%_ - _%rest125341%_ - (cons (gx#core-expand-top _%hd125339%_) _%r125342%_))))) - (gx#core-expand-block__0 _%stx125335%_ _%expand-special125337%_)))) + (lambda (_%stx125441%_) + (letrec ((_%expand-special125443%_ + (lambda (_%hd125445%_ _%K125446%_ _%rest125447%_ _%r125448%_) + (_%K125446%_ + _%rest125447%_ + (cons (gx#core-expand-top _%hd125445%_) _%r125448%_))))) + (gx#core-expand-block__0 _%stx125441%_ _%expand-special125443%_)))) (define gx#core-expand-begin-syntax% - (lambda (_%stx125088%_) - (letrec ((_%expand-special125090%_ - (lambda (_%hd125210%_ _%K125211%_ _%rest125212%_ _%r125213%_) - (let* ((_%K125217%_ - (lambda (_%e125215%_) - (_%K125211%_ - _%rest125212%_ - (cons _%e125215%_ _%r125213%_)))) - (_%e125218125247%_ _%hd125210%_) - (_%E125242125251%_ + (lambda (_%stx125194%_) + (letrec ((_%expand-special125196%_ + (lambda (_%hd125316%_ _%K125317%_ _%rest125318%_ _%r125319%_) + (let* ((_%K125323%_ + (lambda (_%e125321%_) + (_%K125317%_ + _%rest125318%_ + (cons _%e125321%_ _%r125319%_)))) + (_%e125324125353%_ _%hd125316%_) + (_%E125348125357%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125218125247%_))) - (_%E125238125263%_ + _%e125324125353%_))) + (_%E125344125369%_ (lambda () - (if (gx#stx-pair? _%e125218125247%_) - (let ((_%e125243125255%_ - (gx#syntax-e _%e125218125247%_))) - (let ((_%hd125244125258%_ - (##car _%e125243125255%_)) - (_%tl125245125260%_ - (##cdr _%e125243125255%_))) + (if (gx#stx-pair? _%e125324125353%_) + (let ((_%e125349125361%_ + (gx#syntax-e _%e125324125353%_))) + (let ((_%hd125350125364%_ + (##car _%e125349125361%_)) + (_%tl125351125366%_ + (##cdr _%e125349125361%_))) (if (and (gx#identifier? - _%hd125244125258%_) + _%hd125350125364%_) (gx#core-identifier=? - _%hd125244125258%_ + _%hd125350125364%_ '%#define-runtime)) - (_%K125217%_ + (_%K125323%_ (gx#core-expand-define-runtime% - _%hd125210%_)) - (_%E125242125251%_)))) - (_%E125242125251%_)))) - (_%E125234125275%_ + _%hd125316%_)) + (_%E125348125357%_)))) + (_%E125348125357%_)))) + (_%E125340125381%_ (lambda () - (if (gx#stx-pair? _%e125218125247%_) - (let ((_%e125239125267%_ - (gx#syntax-e _%e125218125247%_))) - (let ((_%hd125240125270%_ - (##car _%e125239125267%_)) - (_%tl125241125272%_ - (##cdr _%e125239125267%_))) + (if (gx#stx-pair? _%e125324125353%_) + (let ((_%e125345125373%_ + (gx#syntax-e _%e125324125353%_))) + (let ((_%hd125346125376%_ + (##car _%e125345125373%_)) + (_%tl125347125378%_ + (##cdr _%e125345125373%_))) (if (and (gx#identifier? - _%hd125240125270%_) + _%hd125346125376%_) (gx#core-identifier=? - _%hd125240125270%_ + _%hd125346125376%_ '%#define-alias)) - (_%K125217%_ + (_%K125323%_ (gx#core-expand-define-alias% - _%hd125210%_)) - (_%E125238125263%_)))) - (_%E125238125263%_)))) - (_%E125224125287%_ + _%hd125316%_)) + (_%E125344125369%_)))) + (_%E125344125369%_)))) + (_%E125330125393%_ (lambda () - (if (gx#stx-pair? _%e125218125247%_) - (let ((_%e125235125279%_ - (gx#syntax-e _%e125218125247%_))) - (let ((_%hd125236125282%_ - (##car _%e125235125279%_)) - (_%tl125237125284%_ - (##cdr _%e125235125279%_))) + (if (gx#stx-pair? _%e125324125353%_) + (let ((_%e125341125385%_ + (gx#syntax-e _%e125324125353%_))) + (let ((_%hd125342125388%_ + (##car _%e125341125385%_)) + (_%tl125343125390%_ + (##cdr _%e125341125385%_))) (if (and (gx#identifier? - _%hd125236125282%_) + _%hd125342125388%_) (gx#core-identifier=? - _%hd125236125282%_ + _%hd125342125388%_ '%#define-syntax)) - (_%K125217%_ + (_%K125323%_ (gx#core-expand-define-syntax% - _%hd125210%_)) - (_%E125234125275%_)))) - (_%E125234125275%_)))) - (_%E125220125319%_ + _%hd125316%_)) + (_%E125340125381%_)))) + (_%E125340125381%_)))) + (_%E125326125425%_ (lambda () - (if (gx#stx-pair? _%e125218125247%_) - (let ((_%e125225125291%_ - (gx#syntax-e _%e125218125247%_))) - (let ((_%hd125226125294%_ - (##car _%e125225125291%_)) - (_%tl125227125296%_ - (##cdr _%e125225125291%_))) + (if (gx#stx-pair? _%e125324125353%_) + (let ((_%e125331125397%_ + (gx#syntax-e _%e125324125353%_))) + (let ((_%hd125332125400%_ + (##car _%e125331125397%_)) + (_%tl125333125402%_ + (##cdr _%e125331125397%_))) (if (and (gx#identifier? - _%hd125226125294%_) + _%hd125332125400%_) (gx#core-identifier=? - _%hd125226125294%_ + _%hd125332125400%_ '%#define-values)) - (if (gx#stx-pair? _%tl125227125296%_) - (let ((_%e125228125299%_ + (if (gx#stx-pair? _%tl125333125402%_) + (let ((_%e125334125405%_ (gx#syntax-e - _%tl125227125296%_))) - (let ((_%hd125229125302%_ - (##car _%e125228125299%_)) - (_%tl125230125304%_ - (##cdr _%e125228125299%_))) - (let ((_%hd-bind125307%_ - _%hd125229125302%_)) + _%tl125333125402%_))) + (let ((_%hd125335125408%_ + (##car _%e125334125405%_)) + (_%tl125336125410%_ + (##cdr _%e125334125405%_))) + (let ((_%hd-bind125413%_ + _%hd125335125408%_)) (if (gx#stx-pair? - _%tl125230125304%_) - (let ((_%e125231125309%_ + _%tl125336125410%_) + (let ((_%e125337125415%_ (gx#syntax-e - _%tl125230125304%_))) - (let ((_%hd125232125312%_ + _%tl125336125410%_))) + (let ((_%hd125338125418%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e125231125309%_)) - (_%tl125233125314%_ (##cdr _%e125231125309%_))) - (let ((_%expr125317%_ _%hd125232125312%_)) - (if (gx#stx-null? _%tl125233125314%_) - (if (gx#core-bind-values? _%hd-bind125307%_) + (##car _%e125337125415%_)) + (_%tl125339125420%_ (##cdr _%e125337125415%_))) + (let ((_%expr125423%_ _%hd125338125418%_)) + (if (gx#stx-null? _%tl125339125420%_) + (if (gx#core-bind-values? _%hd-bind125413%_) (begin - (gx#core-bind-values!__0 _%hd-bind125307%_) - (_%K125217%_ _%hd125210%_)) - (_%E125224125287%_)) - (_%E125224125287%_))))) - (_%E125224125287%_))))) + (gx#core-bind-values!__0 _%hd-bind125413%_) + (_%K125323%_ _%hd125316%_)) + (_%E125330125393%_)) + (_%E125330125393%_))))) + (_%E125330125393%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125224125287%_)) - (_%E125224125287%_)))) - (_%E125224125287%_)))) - (_%E125219125331%_ + (_%E125330125393%_)) + (_%E125330125393%_)))) + (_%E125330125393%_)))) + (_%E125325125437%_ (lambda () - (if (gx#stx-pair? _%e125218125247%_) - (let ((_%e125221125323%_ - (gx#syntax-e _%e125218125247%_))) - (let ((_%hd125222125326%_ - (##car _%e125221125323%_)) - (_%tl125223125328%_ - (##cdr _%e125221125323%_))) + (if (gx#stx-pair? _%e125324125353%_) + (let ((_%e125327125429%_ + (gx#syntax-e _%e125324125353%_))) + (let ((_%hd125328125432%_ + (##car _%e125327125429%_)) + (_%tl125329125434%_ + (##cdr _%e125327125429%_))) (if (and (gx#identifier? - _%hd125222125326%_) + _%hd125328125432%_) (gx#core-identifier=? - _%hd125222125326%_ + _%hd125328125432%_ '%#begin-syntax)) - (_%K125217%_ + (_%K125323%_ (gx#core-expand-begin-syntax% - _%hd125210%_)) - (_%E125220125319%_)))) - (_%E125220125319%_))))) - (_%E125219125331%_)))) - (_%eval-body125091%_ - (lambda (_%rbody125099%_) - (let _%lp125101%_ ((_%rest125103%_ _%rbody125099%_) - (_%body125104%_ '()) - (_%ebody125105%_ '())) - (let* ((_%rest125106125114%_ _%rest125103%_) - (_%else125108125122%_ + _%hd125316%_)) + (_%E125326125425%_)))) + (_%E125326125425%_))))) + (_%E125325125437%_)))) + (_%eval-body125197%_ + (lambda (_%rbody125205%_) + (let _%lp125207%_ ((_%rest125209%_ _%rbody125205%_) + (_%body125210%_ '()) + (_%ebody125211%_ '())) + (let* ((_%rest125212125220%_ _%rest125209%_) + (_%else125214125228%_ (lambda () - (values _%body125104%_ + (values _%body125210%_ (gx#eval-syntax* (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%ebody125105%_) - (gx#stx-source _%stx125088%_)))))) - (_%K125110125198%_ - (lambda (_%rest125125%_ _%hd125126%_) - (let* ((_%e125127125144%_ _%hd125126%_) - (_%E125139125148%_ + _%ebody125211%_) + (gx#stx-source _%stx125194%_)))))) + (_%K125216125304%_ + (lambda (_%rest125231%_ _%hd125232%_) + (let* ((_%e125233125250%_ _%hd125232%_) + (_%E125245125254%_ (lambda () - (_%lp125101%_ - _%rest125125%_ - (cons _%hd125126%_ _%body125104%_) - (cons _%hd125126%_ - _%ebody125105%_)))) - (_%E125129125160%_ + (_%lp125207%_ + _%rest125231%_ + (cons _%hd125232%_ _%body125210%_) + (cons _%hd125232%_ + _%ebody125211%_)))) + (_%E125235125266%_ (lambda () - (if (gx#stx-pair? _%e125127125144%_) - (let ((_%e125140125152%_ + (if (gx#stx-pair? _%e125233125250%_) + (let ((_%e125246125258%_ (gx#syntax-e - _%e125127125144%_))) - (let ((_%hd125141125155%_ - (##car _%e125140125152%_)) - (_%tl125142125157%_ - (##cdr _%e125140125152%_))) + _%e125233125250%_))) + (let ((_%hd125247125261%_ + (##car _%e125246125258%_)) + (_%tl125248125263%_ + (##cdr _%e125246125258%_))) (if (and (gx#identifier? - _%hd125141125155%_) + _%hd125247125261%_) (gx#core-identifier=? - _%hd125141125155%_ + _%hd125247125261%_ '%#begin-syntax)) - (_%lp125101%_ - _%rest125125%_ - (cons _%hd125126%_ - _%body125104%_) - _%ebody125105%_) - (_%E125139125148%_)))) - (_%E125139125148%_)))) - (_%E125128125194%_ + (_%lp125207%_ + _%rest125231%_ + (cons _%hd125232%_ + _%body125210%_) + _%ebody125211%_) + (_%E125245125254%_)))) + (_%E125245125254%_)))) + (_%E125234125300%_ (lambda () - (if (gx#stx-pair? _%e125127125144%_) - (let ((_%e125130125164%_ + (if (gx#stx-pair? _%e125233125250%_) + (let ((_%e125236125270%_ (gx#syntax-e - _%e125127125144%_))) - (let ((_%hd125131125167%_ - (##car _%e125130125164%_)) - (_%tl125132125169%_ - (##cdr _%e125130125164%_))) + _%e125233125250%_))) + (let ((_%hd125237125273%_ + (##car _%e125236125270%_)) + (_%tl125238125275%_ + (##cdr _%e125236125270%_))) (if (and (gx#identifier? - _%hd125131125167%_) + _%hd125237125273%_) (gx#core-identifier=? - _%hd125131125167%_ + _%hd125237125273%_ '%#define-values)) (if (gx#stx-pair? - _%tl125132125169%_) - (let ((_%e125133125172%_ + _%tl125238125275%_) + (let ((_%e125239125278%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl125132125169%_))) - (let ((_%hd125134125175%_ (##car _%e125133125172%_)) - (_%tl125135125177%_ (##cdr _%e125133125172%_))) - (let ((_%hd-bind125180%_ _%hd125134125175%_)) - (if (gx#stx-pair? _%tl125135125177%_) - (let ((_%e125136125182%_ - (gx#syntax-e _%tl125135125177%_))) - (let ((_%hd125137125185%_ - (##car _%e125136125182%_)) - (_%tl125138125187%_ - (##cdr _%e125136125182%_))) - (let ((_%expr125190%_ _%hd125137125185%_)) - (if (gx#stx-null? _%tl125138125187%_) - (let ((_%ehd125192%_ + (gx#syntax-e _%tl125238125275%_))) + (let ((_%hd125240125281%_ (##car _%e125239125278%_)) + (_%tl125241125283%_ (##cdr _%e125239125278%_))) + (let ((_%hd-bind125286%_ _%hd125240125281%_)) + (if (gx#stx-pair? _%tl125241125283%_) + (let ((_%e125242125288%_ + (gx#syntax-e _%tl125241125283%_))) + (let ((_%hd125243125291%_ + (##car _%e125242125288%_)) + (_%tl125244125293%_ + (##cdr _%e125242125288%_))) + (let ((_%expr125296%_ _%hd125243125291%_)) + (if (gx#stx-null? _%tl125244125293%_) + (let ((_%ehd125298%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values - _%hd-bind125180%_) + _%hd-bind125286%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125190%_) + _%expr125296%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%hd125126%_)))) - (_%lp125101%_ - _%rest125125%_ - (cons _%ehd125192%_ _%body125104%_) - (cons _%ehd125192%_ _%ebody125105%_))) - (_%E125129125160%_))))) - (_%E125129125160%_))))) - (_%E125129125160%_)) - (_%E125129125160%_)))) + (gx#stx-source _%hd125232%_)))) + (_%lp125207%_ + _%rest125231%_ + (cons _%ehd125298%_ _%body125210%_) + (cons _%ehd125298%_ _%ebody125211%_))) + (_%E125235125266%_))))) + (_%E125235125266%_))))) + (_%E125235125266%_)) + (_%E125235125266%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E125129125160%_))))) - (_%E125128125194%_))))) - (if (pair? _%rest125106125114%_) - (let ((_%hd125111125201%_ - (##car _%rest125106125114%_)) - (_%tl125112125203%_ - (##cdr _%rest125106125114%_))) - (let* ((_%hd125206%_ _%hd125111125201%_) - (_%rest125208%_ _%tl125112125203%_)) - (_%K125110125198%_ - _%rest125208%_ - _%hd125206%_))) - (_%else125108125122%_))))))) + (_%E125235125266%_))))) + (_%E125234125300%_))))) + (if (pair? _%rest125212125220%_) + (let ((_%hd125217125307%_ + (##car _%rest125212125220%_)) + (_%tl125218125309%_ + (##cdr _%rest125212125220%_))) + (let* ((_%hd125312%_ _%hd125217125307%_) + (_%rest125314%_ _%tl125218125309%_)) + (_%K125216125304%_ + _%rest125314%_ + _%hd125312%_))) + (_%else125214125228%_))))))) (__call-with-parameters (lambda () - (let* ((_%rbody125094%_ + (let* ((_%rbody125200%_ (gx#core-expand-block__1 - _%stx125088%_ - _%expand-special125090%_ + _%stx125194%_ + _%expand-special125196%_ '#f)) - (_g125358_ (_%eval-body125091%_ _%rbody125094%_))) + (_g125464_ (_%eval-body125197%_ _%rbody125200%_))) (begin - (let ((_g125359_ - (if (##values? _g125358_) - (##vector-length _g125358_) + (let ((_g125465_ + (if (##values? _g125464_) + (##values-length _g125464_) 1))) - (if (not (##fx= _g125359_ 2)) - (error "Context expects 2 values" _g125359_))) - (let ((_%expanded-body125096%_ (##vector-ref _g125358_ 0)) - (_%value125097%_ (##vector-ref _g125358_ 1))) + (if (not (##fx= _g125465_ 2)) + (error "Context expects 2 values" _g125465_))) + (let ((_%expanded-body125202%_ (##values-ref _g125464_ 0)) + (_%value125203%_ (##values-ref _g125464_ 1))) (gx#core-quote-syntax__1 (if (##structure-instance-of? (gx#current-expander-context) 'gx#module-context::t) - (gx#core-cons '%#begin-syntax _%expanded-body125096%_) + (gx#core-cons '%#begin-syntax _%expanded-body125202%_) (cons (gx#core-quote-syntax__0 '%#quote) - (cons _%value125097%_ '()))) - (gx#stx-source _%stx125088%_)))))) + (cons _%value125203%_ '()))) + (gx#stx-source _%stx125194%_)))))) gx#current-expander-phi (##fx+ (gx#current-expander-phi) '1))))) (define gx#core-expand-begin-foreign% - (lambda (_%stx125058%_) - (let* ((_%e125059125066%_ _%stx125058%_) - (_%E125061125070%_ + (lambda (_%stx125164%_) + (let* ((_%e125165125172%_ _%stx125164%_) + (_%E125167125176%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125059125066%_))) - (_%E125060125084%_ + _%e125165125172%_))) + (_%E125166125190%_ (lambda () - (if (gx#stx-pair? _%e125059125066%_) - (let ((_%e125062125074%_ - (gx#syntax-e _%e125059125066%_))) - (let ((_%hd125063125077%_ (##car _%e125062125074%_)) - (_%tl125064125079%_ (##cdr _%e125062125074%_))) - (let ((_%body125082%_ _%tl125064125079%_)) - (if (gx#stx-list? _%body125082%_) + (if (gx#stx-pair? _%e125165125172%_) + (let ((_%e125168125180%_ + (gx#syntax-e _%e125165125172%_))) + (let ((_%hd125169125183%_ (##car _%e125168125180%_)) + (_%tl125170125185%_ (##cdr _%e125168125180%_))) + (let ((_%body125188%_ _%tl125170125185%_)) + (if (gx#stx-list? _%body125188%_) (gx#core-quote-syntax__1 - (gx#core-cons '%#begin-foreign _%body125082%_) - (gx#stx-source _%stx125058%_)) - (_%E125061125070%_))))) - (_%E125061125070%_))))) - (_%E125060125084%_)))) + (gx#core-cons '%#begin-foreign _%body125188%_) + (gx#stx-source _%stx125164%_)) + (_%E125167125176%_))))) + (_%E125167125176%_))))) + (_%E125166125190%_)))) (define gx#core-expand-begin-module% - (lambda (_%stx125056%_) - (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125056%_))) + (lambda (_%stx125162%_) + (gx#raise-syntax-error '#f '"Illegal expansion" _%stx125162%_))) (define gx#core-expand-begin-annotation% - (lambda (_%stx125002%_) - (let* ((_%e125003125016%_ _%stx125002%_) - (_%E125005125020%_ + (lambda (_%stx125108%_) + (let* ((_%e125109125122%_ _%stx125108%_) + (_%E125111125126%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e125003125016%_))) - (_%E125004125052%_ + _%e125109125122%_))) + (_%E125110125158%_ (lambda () - (if (gx#stx-pair? _%e125003125016%_) - (let ((_%e125006125024%_ - (gx#syntax-e _%e125003125016%_))) - (let ((_%hd125007125027%_ (##car _%e125006125024%_)) - (_%tl125008125029%_ (##cdr _%e125006125024%_))) - (if (gx#stx-pair? _%tl125008125029%_) - (let ((_%e125009125032%_ - (gx#syntax-e _%tl125008125029%_))) - (let ((_%hd125010125035%_ - (##car _%e125009125032%_)) - (_%tl125011125037%_ - (##cdr _%e125009125032%_))) - (let ((_%ann125040%_ _%hd125010125035%_)) - (if (gx#stx-pair? _%tl125011125037%_) - (let ((_%e125012125042%_ + (if (gx#stx-pair? _%e125109125122%_) + (let ((_%e125112125130%_ + (gx#syntax-e _%e125109125122%_))) + (let ((_%hd125113125133%_ (##car _%e125112125130%_)) + (_%tl125114125135%_ (##cdr _%e125112125130%_))) + (if (gx#stx-pair? _%tl125114125135%_) + (let ((_%e125115125138%_ + (gx#syntax-e _%tl125114125135%_))) + (let ((_%hd125116125141%_ + (##car _%e125115125138%_)) + (_%tl125117125143%_ + (##cdr _%e125115125138%_))) + (let ((_%ann125146%_ _%hd125116125141%_)) + (if (gx#stx-pair? _%tl125117125143%_) + (let ((_%e125118125148%_ (gx#syntax-e - _%tl125011125037%_))) - (let ((_%hd125013125045%_ - (##car _%e125012125042%_)) - (_%tl125014125047%_ - (##cdr _%e125012125042%_))) - (let ((_%expr125050%_ - _%hd125013125045%_)) + _%tl125117125143%_))) + (let ((_%hd125119125151%_ + (##car _%e125118125148%_)) + (_%tl125120125153%_ + (##cdr _%e125118125148%_))) + (let ((_%expr125156%_ + _%hd125119125151%_)) (if (gx#stx-null? - _%tl125014125047%_) + _%tl125120125153%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%ann125040%_ + (cons _%ann125146%_ (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr125050%_) + _%expr125156%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (gx#stx-source - _%stx125002%_)) - (_%E125005125020%_))))) - (_%E125005125020%_))))) - (_%E125005125020%_)))) - (_%E125005125020%_))))) - (_%E125004125052%_)))) + _%stx125108%_)) + (_%E125111125126%_))))) + (_%E125111125126%_))))) + (_%E125111125126%_)))) + (_%E125111125126%_))))) + (_%E125110125158%_)))) (define gx#core-expand-local-block - (lambda (_%stx124726%_ _%body124727%_) - (letrec ((_%expand-special124729%_ - (lambda (_%hd124997%_ _%K124998%_ _%rest124999%_ _%r125000%_) - (_%K124998%_ + (lambda (_%stx124832%_ _%body124833%_) + (letrec ((_%expand-special124835%_ + (lambda (_%hd125103%_ _%K125104%_ _%rest125105%_ _%r125106%_) + (_%K125104%_ '() - (cons (_%expand-internal124730%_ - _%hd124997%_ - _%rest124999%_) - _%r125000%_)))) - (_%expand-internal124730%_ - (lambda (_%hd124993%_ _%rest124994%_) + (cons (_%expand-internal124836%_ + _%hd125103%_ + _%rest125105%_) + _%r125106%_)))) + (_%expand-internal124836%_ + (lambda (_%hd125099%_ _%rest125100%_) (__call-with-parameters (lambda () - (_%wrap-internal124732%_ + (_%wrap-internal124838%_ (gx#core-expand-block__1 (gx#stx-wrap-source - (cons '%#begin (cons _%hd124993%_ _%rest124994%_)) - (gx#stx-source _%stx124726%_)) - _%expand-internal-special124731%_ + (cons '%#begin (cons _%hd125099%_ _%rest125100%_)) + (gx#stx-source _%stx124832%_)) + _%expand-internal-special124837%_ '#f))) gx#current-expander-context - (let ((__obj125352 + (let ((__obj125458 (##structure gx#local-context::t '#f @@ -399,750 +399,750 @@ '#f '#f '#f))) - (gx#local-context:::init!__0 __obj125352) - __obj125352)))) - (_%expand-internal-special124731%_ - (lambda (_%hd124888%_ _%K124889%_ _%rest124890%_ _%r124891%_) - (let* ((_%e124892124917%_ _%hd124888%_) - (_%E124912124921%_ + (gx#local-context:::init!__0 __obj125458) + __obj125458)))) + (_%expand-internal-special124837%_ + (lambda (_%hd124994%_ _%K124995%_ _%rest124996%_ _%r124997%_) + (let* ((_%e124998125023%_ _%hd124994%_) + (_%E125018125027%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124892124917%_))) - (_%E124908124933%_ + _%e124998125023%_))) + (_%E125014125039%_ (lambda () - (if (gx#stx-pair? _%e124892124917%_) - (let ((_%e124913124925%_ - (gx#syntax-e _%e124892124917%_))) - (let ((_%hd124914124928%_ - (##car _%e124913124925%_)) - (_%tl124915124930%_ - (##cdr _%e124913124925%_))) + (if (gx#stx-pair? _%e124998125023%_) + (let ((_%e125019125031%_ + (gx#syntax-e _%e124998125023%_))) + (let ((_%hd125020125034%_ + (##car _%e125019125031%_)) + (_%tl125021125036%_ + (##cdr _%e125019125031%_))) (if (and (gx#identifier? - _%hd124914124928%_) + _%hd125020125034%_) (gx#core-identifier=? - _%hd124914124928%_ + _%hd125020125034%_ '%#declare)) - (_%K124889%_ - _%rest124890%_ + (_%K124995%_ + _%rest124996%_ (cons (gx#core-expand-declare% - _%hd124888%_) - _%r124891%_)) - (_%E124912124921%_)))) - (_%E124912124921%_)))) - (_%E124904124945%_ + _%hd124994%_) + _%r124997%_)) + (_%E125018125027%_)))) + (_%E125018125027%_)))) + (_%E125010125051%_ (lambda () - (if (gx#stx-pair? _%e124892124917%_) - (let ((_%e124909124937%_ - (gx#syntax-e _%e124892124917%_))) - (let ((_%hd124910124940%_ - (##car _%e124909124937%_)) - (_%tl124911124942%_ - (##cdr _%e124909124937%_))) + (if (gx#stx-pair? _%e124998125023%_) + (let ((_%e125015125043%_ + (gx#syntax-e _%e124998125023%_))) + (let ((_%hd125016125046%_ + (##car _%e125015125043%_)) + (_%tl125017125048%_ + (##cdr _%e125015125043%_))) (if (and (gx#identifier? - _%hd124910124940%_) + _%hd125016125046%_) (gx#core-identifier=? - _%hd124910124940%_ + _%hd125016125046%_ '%#define-alias)) (begin (gx#core-expand-define-alias% - _%hd124888%_) - (_%K124889%_ - _%rest124890%_ - _%r124891%_)) - (_%E124908124933%_)))) - (_%E124908124933%_)))) - (_%E124894124957%_ + _%hd124994%_) + (_%K124995%_ + _%rest124996%_ + _%r124997%_)) + (_%E125014125039%_)))) + (_%E125014125039%_)))) + (_%E125000125063%_ (lambda () - (if (gx#stx-pair? _%e124892124917%_) - (let ((_%e124905124949%_ - (gx#syntax-e _%e124892124917%_))) - (let ((_%hd124906124952%_ - (##car _%e124905124949%_)) - (_%tl124907124954%_ - (##cdr _%e124905124949%_))) + (if (gx#stx-pair? _%e124998125023%_) + (let ((_%e125011125055%_ + (gx#syntax-e _%e124998125023%_))) + (let ((_%hd125012125058%_ + (##car _%e125011125055%_)) + (_%tl125013125060%_ + (##cdr _%e125011125055%_))) (if (and (gx#identifier? - _%hd124906124952%_) + _%hd125012125058%_) (gx#core-identifier=? - _%hd124906124952%_ + _%hd125012125058%_ '%#define-syntax)) (begin (gx#core-expand-define-syntax% - _%hd124888%_) - (_%K124889%_ - _%rest124890%_ - _%r124891%_)) - (_%E124904124945%_)))) - (_%E124904124945%_)))) - (_%E124893124989%_ + _%hd124994%_) + (_%K124995%_ + _%rest124996%_ + _%r124997%_)) + (_%E125010125051%_)))) + (_%E125010125051%_)))) + (_%E124999125095%_ (lambda () - (if (gx#stx-pair? _%e124892124917%_) - (let ((_%e124895124961%_ - (gx#syntax-e _%e124892124917%_))) - (let ((_%hd124896124964%_ - (##car _%e124895124961%_)) - (_%tl124897124966%_ - (##cdr _%e124895124961%_))) + (if (gx#stx-pair? _%e124998125023%_) + (let ((_%e125001125067%_ + (gx#syntax-e _%e124998125023%_))) + (let ((_%hd125002125070%_ + (##car _%e125001125067%_)) + (_%tl125003125072%_ + (##cdr _%e125001125067%_))) (if (and (gx#identifier? - _%hd124896124964%_) + _%hd125002125070%_) (gx#core-identifier=? - _%hd124896124964%_ + _%hd125002125070%_ '%#define-values)) - (if (gx#stx-pair? _%tl124897124966%_) - (let ((_%e124898124969%_ + (if (gx#stx-pair? _%tl125003125072%_) + (let ((_%e125004125075%_ (gx#syntax-e - _%tl124897124966%_))) - (let ((_%hd124899124972%_ - (##car _%e124898124969%_)) - (_%tl124900124974%_ - (##cdr _%e124898124969%_))) - (let ((_%hd-bind124977%_ - _%hd124899124972%_)) + _%tl125003125072%_))) + (let ((_%hd125005125078%_ + (##car _%e125004125075%_)) + (_%tl125006125080%_ + (##cdr _%e125004125075%_))) + (let ((_%hd-bind125083%_ + _%hd125005125078%_)) (if (gx#stx-pair? - _%tl124900124974%_) - (let ((_%e124901124979%_ + _%tl125006125080%_) + (let ((_%e125007125085%_ (gx#syntax-e - _%tl124900124974%_))) - (let ((_%hd124902124982%_ + _%tl125006125080%_))) + (let ((_%hd125008125088%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (##car _%e124901124979%_)) - (_%tl124903124984%_ (##cdr _%e124901124979%_))) - (let ((_%expr124987%_ _%hd124902124982%_)) - (if (gx#stx-null? _%tl124903124984%_) - (if (gx#core-bind-values? _%hd-bind124977%_) + (##car _%e125007125085%_)) + (_%tl125009125090%_ (##cdr _%e125007125085%_))) + (let ((_%expr125093%_ _%hd125008125088%_)) + (if (gx#stx-null? _%tl125009125090%_) + (if (gx#core-bind-values? _%hd-bind125083%_) (begin - (gx#core-bind-values!__0 _%hd-bind124977%_) - (_%K124889%_ - _%rest124890%_ - (cons _%hd124888%_ _%r124891%_))) - (_%E124894124957%_)) - (_%E124894124957%_))))) - (_%E124894124957%_))))) + (gx#core-bind-values!__0 _%hd-bind125083%_) + (_%K124995%_ + _%rest124996%_ + (cons _%hd124994%_ _%r124997%_))) + (_%E125000125063%_)) + (_%E125000125063%_))))) + (_%E125000125063%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124894124957%_)) - (_%E124894124957%_)))) - (_%E124894124957%_))))) - (_%E124893124989%_)))) - (_%wrap-internal124732%_ - (lambda (_%rbody124734%_) - (let _%lp124736%_ ((_%rest124738%_ _%rbody124734%_) - (_%decls124739%_ '()) - (_%bind124740%_ '()) - (_%body124741%_ '())) - (let* ((_%e124742124749%_ _%rest124738%_) - (_%E124744124798%_ + (_%E125000125063%_)) + (_%E125000125063%_)))) + (_%E125000125063%_))))) + (_%E124999125095%_)))) + (_%wrap-internal124838%_ + (lambda (_%rbody124840%_) + (let _%lp124842%_ ((_%rest124844%_ _%rbody124840%_) + (_%decls124845%_ '()) + (_%bind124846%_ '()) + (_%body124847%_ '())) + (let* ((_%e124848124855%_ _%rest124844%_) + (_%E124850124904%_ (lambda () - (let* ((_%body124793%_ - (let* ((_%body124752124762%_ - _%body124741%_) - (_%else124755124770%_ + (let* ((_%body124899%_ + (let* ((_%body124858124868%_ + _%body124847%_) + (_%else124861124876%_ (lambda () (gx#core-quote-syntax__1 (gx#core-cons '%#begin - _%body124741%_) + _%body124847%_) (gx#stx-source - _%stx124726%_))))) - (let ((_%K124760124790%_ + _%stx124832%_))))) + (let ((_%K124866124896%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; empty body" - _%stx124726%_))) - (_%K124757124776%_ - (lambda (_%expr124774%_) - _%expr124774%_))) - (let ((_%try-match124754124786%_ + _%stx124832%_))) + (_%K124863124882%_ + (lambda (_%expr124880%_) + _%expr124880%_))) + (let ((_%try-match124860124892%_ (lambda () - (if (pair? _%body124752124762%_) - (let ((_%tl124759124781%_ - (##cdr _%body124752124762%_)) - (_%hd124758124779%_ - (##car _%body124752124762%_))) - (if (null? _%tl124759124781%_) - (let ((_%expr124784%_ + (if (pair? _%body124858124868%_) + (let ((_%tl124865124887%_ + (##cdr _%body124858124868%_)) + (_%hd124864124885%_ + (##car _%body124858124868%_))) + (if (null? _%tl124865124887%_) + (let ((_%expr124890%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124758124779%_)) - (_%K124757124776%_ _%expr124784%_)) - (_%else124755124770%_))) - (_%else124755124770%_))))) + _%hd124864124885%_)) + (_%K124863124882%_ _%expr124890%_)) + (_%else124861124876%_))) + (_%else124861124876%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (null? _%body124752124762%_) - (_%K124760124790%_) - (_%try-match124754124786%_)))))) - (_%body124795%_ - (if (null? _%bind124740%_) - _%body124793%_ + (if (null? _%body124858124868%_) + (_%K124866124896%_) + (_%try-match124860124892%_)))))) + (_%body124901%_ + (if (null? _%bind124846%_) + _%body124899%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#letrec*-values) - (cons _%bind124740%_ - (cons _%body124793%_ + (cons _%bind124846%_ + (cons _%body124899%_ '()))) - (gx#stx-source _%stx124726%_))))) - (if (null? _%decls124739%_) - _%body124795%_ + (gx#stx-source _%stx124832%_))))) + (if (null? _%decls124845%_) + _%body124901%_ (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#begin-annotation) - (cons _%decls124739%_ - (cons _%body124795%_ '()))) - (gx#stx-source _%stx124726%_)))))) - (_%E124743124884%_ + (cons _%decls124845%_ + (cons _%body124901%_ '()))) + (gx#stx-source _%stx124832%_)))))) + (_%E124849124990%_ (lambda () - (if (gx#stx-pair? _%e124742124749%_) - (let ((_%e124745124802%_ - (gx#syntax-e _%e124742124749%_))) - (let ((_%hd124746124805%_ - (##car _%e124745124802%_)) - (_%tl124747124807%_ - (##cdr _%e124745124802%_))) - (let* ((_%hd124810%_ - _%hd124746124805%_) - (_%rest124812%_ - _%tl124747124807%_) - (_%e124813124830%_ _%hd124810%_) - (_%E124825124834%_ + (if (gx#stx-pair? _%e124848124855%_) + (let ((_%e124851124908%_ + (gx#syntax-e _%e124848124855%_))) + (let ((_%hd124852124911%_ + (##car _%e124851124908%_)) + (_%tl124853124913%_ + (##cdr _%e124851124908%_))) + (let* ((_%hd124916%_ + _%hd124852124911%_) + (_%rest124918%_ + _%tl124853124913%_) + (_%e124919124936%_ _%hd124916%_) + (_%E124931124940%_ (lambda () - (if (null? _%bind124740%_) - (_%lp124736%_ - _%rest124812%_ - _%decls124739%_ - _%bind124740%_ - (cons _%hd124810%_ - _%body124741%_)) - (_%lp124736%_ - _%rest124812%_ - _%decls124739%_ + (if (null? _%bind124846%_) + (_%lp124842%_ + _%rest124918%_ + _%decls124845%_ + _%bind124846%_ + (cons _%hd124916%_ + _%body124847%_)) + (_%lp124842%_ + _%rest124918%_ + _%decls124845%_ (cons (cons '#f ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%hd124810%_ '())) - _%bind124740%_) - _%body124741%_)))) + (cons _%hd124916%_ '())) + _%bind124846%_) + _%body124847%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124815124848%_ + (_%E124921124954%_ (lambda () (if (gx#stx-pair? - _%e124813124830%_) - (let ((_%e124826124838%_ + _%e124919124936%_) + (let ((_%e124932124944%_ (gx#syntax-e - _%e124813124830%_))) - (let ((_%hd124827124841%_ - (##car _%e124826124838%_)) - (_%tl124828124843%_ - (##cdr _%e124826124838%_))) + _%e124919124936%_))) + (let ((_%hd124933124947%_ + (##car _%e124932124944%_)) + (_%tl124934124949%_ + (##cdr _%e124932124944%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124827124841%_) + _%hd124933124947%_) (gx#core-identifier=? - _%hd124827124841%_ + _%hd124933124947%_ '%#declare)) - (let ((_%xdecls124846%_ _%tl124828124843%_)) - (_%lp124736%_ - _%rest124812%_ - (gx#stx-foldr cons _%decls124739%_ _%xdecls124846%_) - _%bind124740%_ - _%body124741%_)) - (_%E124825124834%_)))) - (_%E124825124834%_)))) + (let ((_%xdecls124952%_ _%tl124934124949%_)) + (_%lp124842%_ + _%rest124918%_ + (gx#stx-foldr cons _%decls124845%_ _%xdecls124952%_) + _%bind124846%_ + _%body124847%_)) + (_%E124931124940%_)))) + (_%E124931124940%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124814124880%_ + (_%E124920124986%_ (lambda () (if (gx#stx-pair? - _%e124813124830%_) - (let ((_%e124816124852%_ + _%e124919124936%_) + (let ((_%e124922124958%_ (gx#syntax-e - _%e124813124830%_))) - (let ((_%hd124817124855%_ - (##car _%e124816124852%_)) - (_%tl124818124857%_ - (##cdr _%e124816124852%_))) + _%e124919124936%_))) + (let ((_%hd124923124961%_ + (##car _%e124922124958%_)) + (_%tl124924124963%_ + (##cdr _%e124922124958%_))) (if (and (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124817124855%_) + _%hd124923124961%_) (gx#core-identifier=? - _%hd124817124855%_ + _%hd124923124961%_ '%#define-values)) - (if (gx#stx-pair? _%tl124818124857%_) - (let ((_%e124819124860%_ - (gx#syntax-e _%tl124818124857%_))) - (let ((_%hd124820124863%_ - (##car _%e124819124860%_)) - (_%tl124821124865%_ - (##cdr _%e124819124860%_))) - (let ((_%hd-bind124868%_ _%hd124820124863%_)) - (if (gx#stx-pair? _%tl124821124865%_) - (let ((_%e124822124870%_ - (gx#syntax-e _%tl124821124865%_))) - (let ((_%hd124823124873%_ - (##car _%e124822124870%_)) - (_%tl124824124875%_ - (##cdr _%e124822124870%_))) - (let ((_%expr124878%_ - _%hd124823124873%_)) - (if (gx#stx-null? _%tl124824124875%_) - (_%lp124736%_ - _%rest124812%_ - _%decls124739%_ + (if (gx#stx-pair? _%tl124924124963%_) + (let ((_%e124925124966%_ + (gx#syntax-e _%tl124924124963%_))) + (let ((_%hd124926124969%_ + (##car _%e124925124966%_)) + (_%tl124927124971%_ + (##cdr _%e124925124966%_))) + (let ((_%hd-bind124974%_ _%hd124926124969%_)) + (if (gx#stx-pair? _%tl124927124971%_) + (let ((_%e124928124976%_ + (gx#syntax-e _%tl124927124971%_))) + (let ((_%hd124929124979%_ + (##car _%e124928124976%_)) + (_%tl124930124981%_ + (##cdr _%e124928124976%_))) + (let ((_%expr124984%_ + _%hd124929124979%_)) + (if (gx#stx-null? _%tl124930124981%_) + (_%lp124842%_ + _%rest124918%_ + _%decls124845%_ (cons (cons (gx#core-quote-bind-values - _%hd-bind124868%_) + _%hd-bind124974%_) (cons (gx#core-expand-expression ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%expr124878%_) + _%expr124984%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind124740%_) - _%body124741%_) - (_%E124815124848%_))))) - (_%E124815124848%_))))) - (_%E124815124848%_)) - (_%E124815124848%_)))) - (_%E124815124848%_))))) + _%bind124846%_) + _%body124847%_) + (_%E124921124954%_))))) + (_%E124921124954%_))))) + (_%E124921124954%_)) + (_%E124921124954%_)))) + (_%E124921124954%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124814124880%_)))) - (_%E124744124798%_))))) - (_%E124743124884%_)))))) + (_%E124920124986%_)))) + (_%E124850124904%_))))) + (_%E124849124990%_)))))) (gx#core-expand-block* (gx#stx-wrap-source - (cons '%#begin _%body124727%_) - (gx#stx-source _%stx124726%_)) - _%expand-special124729%_)))) + (cons '%#begin _%body124833%_) + (gx#stx-source _%stx124832%_)) + _%expand-special124835%_)))) (define gx#core-expand-declare% - (lambda (_%stx124664%_) - (let* ((_%e124665124672%_ _%stx124664%_) - (_%E124667124676%_ + (lambda (_%stx124770%_) + (let* ((_%e124771124778%_ _%stx124770%_) + (_%E124773124782%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124665124672%_))) - (_%E124666124722%_ + _%e124771124778%_))) + (_%E124772124828%_ (lambda () - (if (gx#stx-pair? _%e124665124672%_) - (let ((_%e124668124680%_ - (gx#syntax-e _%e124665124672%_))) - (let ((_%hd124669124683%_ (##car _%e124668124680%_)) - (_%tl124670124685%_ (##cdr _%e124668124680%_))) - (let ((_%body124688%_ _%tl124670124685%_)) - (if (gx#stx-list? _%body124688%_) + (if (gx#stx-pair? _%e124771124778%_) + (let ((_%e124774124786%_ + (gx#syntax-e _%e124771124778%_))) + (let ((_%hd124775124789%_ (##car _%e124774124786%_)) + (_%tl124776124791%_ (##cdr _%e124774124786%_))) + (let ((_%body124794%_ _%tl124776124791%_)) + (if (gx#stx-list? _%body124794%_) (gx#core-quote-syntax__1 (gx#core-cons '%#declare (gx#stx-map1 - (lambda (_%decl124690%_) - (let* ((_%e124691124698%_ _%decl124690%_) - (_%E124693124702%_ + (lambda (_%decl124796%_) + (let* ((_%e124797124804%_ _%decl124796%_) + (_%E124799124808%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124691124698%_))) - (_%E124692124718%_ + _%e124797124804%_))) + (_%E124798124824%_ (lambda () (if (gx#stx-pair? - _%e124691124698%_) - (let ((_%e124694124706%_ + _%e124797124804%_) + (let ((_%e124800124812%_ (gx#syntax-e - _%e124691124698%_))) - (let ((_%hd124695124709%_ - (##car _%e124694124706%_)) - (_%tl124696124711%_ - (##cdr _%e124694124706%_))) - (let* ((_%head124714%_ - _%hd124695124709%_) - (_%args124716%_ - _%tl124696124711%_)) + _%e124797124804%_))) + (let ((_%hd124801124815%_ + (##car _%e124800124812%_)) + (_%tl124802124817%_ + (##cdr _%e124800124812%_))) + (let* ((_%head124820%_ + _%hd124801124815%_) + (_%args124822%_ + _%tl124802124817%_)) (if (gx#stx-list? - _%args124716%_) + _%args124822%_) (gx#stx-map1 gx#core-quote-syntax - _%decl124690%_) - (_%E124693124702%_))))) - (_%E124693124702%_))))) - (_%E124692124718%_))) - _%body124688%_)) - (gx#stx-source _%stx124664%_)) - (_%E124667124676%_))))) - (_%E124667124676%_))))) - (_%E124666124722%_)))) + _%decl124796%_) + (_%E124799124808%_))))) + (_%E124799124808%_))))) + (_%E124798124824%_))) + _%body124794%_)) + (gx#stx-source _%stx124770%_)) + (_%E124773124782%_))))) + (_%E124773124782%_))))) + (_%E124772124828%_)))) (define gx#core-expand-extern% - (lambda (_%stx124568%_) - (let* ((_%e124569124576%_ _%stx124568%_) - (_%E124571124580%_ + (lambda (_%stx124674%_) + (let* ((_%e124675124682%_ _%stx124674%_) + (_%E124677124686%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124569124576%_))) - (_%E124570124660%_ + _%e124675124682%_))) + (_%E124676124766%_ (lambda () - (if (gx#stx-pair? _%e124569124576%_) - (let ((_%e124572124584%_ - (gx#syntax-e _%e124569124576%_))) - (let ((_%hd124573124587%_ (##car _%e124572124584%_)) - (_%tl124574124589%_ (##cdr _%e124572124584%_))) - (let ((_%body124592%_ _%tl124574124589%_)) - (let _%lp124594%_ ((_%rest124596%_ _%body124592%_) - (_%r124597%_ '())) - (let* ((_%e124598124612%_ _%rest124596%_) - (_%E124610124616%_ + (if (gx#stx-pair? _%e124675124682%_) + (let ((_%e124678124690%_ + (gx#syntax-e _%e124675124682%_))) + (let ((_%hd124679124693%_ (##car _%e124678124690%_)) + (_%tl124680124695%_ (##cdr _%e124678124690%_))) + (let ((_%body124698%_ _%tl124680124695%_)) + (let _%lp124700%_ ((_%rest124702%_ _%body124698%_) + (_%r124703%_ '())) + (let* ((_%e124704124718%_ _%rest124702%_) + (_%E124716124722%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; %#extern expects list of (internal external) identifier lists" - _%stx124568%_))) - (_%E124600124620%_ + _%stx124674%_))) + (_%E124706124726%_ (lambda () - (if (gx#stx-null? _%e124598124612%_) + (if (gx#stx-null? _%e124704124718%_) (gx#core-quote-syntax__1 (gx#core-cons '%#extern - (reverse _%r124597%_)) - (gx#stx-source _%stx124568%_)) - (_%E124610124616%_)))) - (_%E124599124656%_ + (reverse _%r124703%_)) + (gx#stx-source _%stx124674%_)) + (_%E124716124722%_)))) + (_%E124705124762%_ (lambda () - (if (gx#stx-pair? _%e124598124612%_) - (let ((_%e124601124624%_ + (if (gx#stx-pair? _%e124704124718%_) + (let ((_%e124707124730%_ (gx#syntax-e - _%e124598124612%_))) - (let ((_%hd124602124627%_ - (##car _%e124601124624%_)) - (_%tl124603124629%_ - (##cdr _%e124601124624%_))) + _%e124704124718%_))) + (let ((_%hd124708124733%_ + (##car _%e124707124730%_)) + (_%tl124709124735%_ + (##cdr _%e124707124730%_))) (if (gx#stx-pair? - _%hd124602124627%_) - (let ((_%e124604124632%_ + _%hd124708124733%_) + (let ((_%e124710124738%_ (gx#syntax-e - _%hd124602124627%_))) - (let ((_%hd124605124635%_ - (##car _%e124604124632%_)) - (_%tl124606124637%_ - (##cdr _%e124604124632%_))) - (let ((_%id124640%_ - _%hd124605124635%_)) + _%hd124708124733%_))) + (let ((_%hd124711124741%_ + (##car _%e124710124738%_)) + (_%tl124712124743%_ + (##cdr _%e124710124738%_))) + (let ((_%id124746%_ + _%hd124711124741%_)) (if (gx#stx-pair? - _%tl124606124637%_) - (let ((_%e124607124642%_ + _%tl124712124743%_) + (let ((_%e124713124748%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl124606124637%_))) - (let ((_%hd124608124645%_ (##car _%e124607124642%_)) - (_%tl124609124647%_ (##cdr _%e124607124642%_))) - (let ((_%eid124650%_ _%hd124608124645%_)) - (if (gx#stx-null? _%tl124609124647%_) - (let ((_%rest124652%_ _%tl124603124629%_)) - (if (and (gx#identifier? _%id124640%_) - (gx#identifier? _%eid124650%_)) - (let ((_%eid124654%_ - (gx#stx-e _%eid124650%_))) + (gx#syntax-e _%tl124712124743%_))) + (let ((_%hd124714124751%_ (##car _%e124713124748%_)) + (_%tl124715124753%_ (##cdr _%e124713124748%_))) + (let ((_%eid124756%_ _%hd124714124751%_)) + (if (gx#stx-null? _%tl124715124753%_) + (let ((_%rest124758%_ _%tl124709124735%_)) + (if (and (gx#identifier? _%id124746%_) + (gx#identifier? _%eid124756%_)) + (let ((_%eid124760%_ + (gx#stx-e _%eid124756%_))) (gx#core-bind-extern!__0 - _%id124640%_ - _%eid124654%_) - (_%lp124594%_ - _%rest124652%_ + _%id124746%_ + _%eid124760%_) + (_%lp124700%_ + _%rest124758%_ (cons (cons (gx#core-quote-syntax__0 - _%id124640%_) - (cons _%eid124654%_ '())) - _%r124597%_))) - (_%E124600124620%_))) - (_%E124600124620%_))))) - (_%E124600124620%_))))) + _%id124746%_) + (cons _%eid124760%_ '())) + _%r124703%_))) + (_%E124706124726%_))) + (_%E124706124726%_))))) + (_%E124706124726%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124600124620%_)))) - (_%E124600124620%_))))) - (_%E124599124656%_)))))) - (_%E124571124580%_))))) - (_%E124570124660%_)))) + (_%E124706124726%_)))) + (_%E124706124726%_))))) + (_%E124705124762%_)))))) + (_%E124677124686%_))))) + (_%E124676124766%_)))) (define gx#core-expand-define-values% - (lambda (_%stx124514%_) - (let* ((_%e124515124528%_ _%stx124514%_) - (_%E124517124532%_ + (lambda (_%stx124620%_) + (let* ((_%e124621124634%_ _%stx124620%_) + (_%E124623124638%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124515124528%_))) - (_%E124516124564%_ + _%e124621124634%_))) + (_%E124622124670%_ (lambda () - (if (gx#stx-pair? _%e124515124528%_) - (let ((_%e124518124536%_ - (gx#syntax-e _%e124515124528%_))) - (let ((_%hd124519124539%_ (##car _%e124518124536%_)) - (_%tl124520124541%_ (##cdr _%e124518124536%_))) - (if (gx#stx-pair? _%tl124520124541%_) - (let ((_%e124521124544%_ - (gx#syntax-e _%tl124520124541%_))) - (let ((_%hd124522124547%_ - (##car _%e124521124544%_)) - (_%tl124523124549%_ - (##cdr _%e124521124544%_))) - (let ((_%hd124552%_ _%hd124522124547%_)) - (if (gx#stx-pair? _%tl124523124549%_) - (let ((_%e124524124554%_ + (if (gx#stx-pair? _%e124621124634%_) + (let ((_%e124624124642%_ + (gx#syntax-e _%e124621124634%_))) + (let ((_%hd124625124645%_ (##car _%e124624124642%_)) + (_%tl124626124647%_ (##cdr _%e124624124642%_))) + (if (gx#stx-pair? _%tl124626124647%_) + (let ((_%e124627124650%_ + (gx#syntax-e _%tl124626124647%_))) + (let ((_%hd124628124653%_ + (##car _%e124627124650%_)) + (_%tl124629124655%_ + (##cdr _%e124627124650%_))) + (let ((_%hd124658%_ _%hd124628124653%_)) + (if (gx#stx-pair? _%tl124629124655%_) + (let ((_%e124630124660%_ (gx#syntax-e - _%tl124523124549%_))) - (let ((_%hd124525124557%_ - (##car _%e124524124554%_)) - (_%tl124526124559%_ - (##cdr _%e124524124554%_))) - (let ((_%expr124562%_ - _%hd124525124557%_)) + _%tl124629124655%_))) + (let ((_%hd124631124663%_ + (##car _%e124630124660%_)) + (_%tl124632124665%_ + (##cdr _%e124630124660%_))) + (let ((_%expr124668%_ + _%hd124631124663%_)) (if (gx#stx-null? - _%tl124526124559%_) + _%tl124632124665%_) (if (gx#core-bind-values? - _%hd124552%_) + _%hd124658%_) (begin (gx#core-bind-values!__0 - _%hd124552%_) + _%hd124658%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#core-quote-bind-values ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd124552%_) - (cons (gx#core-expand-expression _%expr124562%_) + _%hd124658%_) + (cons (gx#core-expand-expression _%expr124668%_) '()))) - (gx#stx-source _%stx124514%_))) - (_%E124517124532%_)) + (gx#stx-source _%stx124620%_))) + (_%E124623124638%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124517124532%_))))) - (_%E124517124532%_))))) - (_%E124517124532%_)))) - (_%E124517124532%_))))) - (_%E124516124564%_)))) + (_%E124623124638%_))))) + (_%E124623124638%_))))) + (_%E124623124638%_)))) + (_%E124623124638%_))))) + (_%E124622124670%_)))) (define gx#core-expand-define-runtime% - (lambda (_%stx124458%_) - (let* ((_%e124459124472%_ _%stx124458%_) - (_%E124461124476%_ + (lambda (_%stx124564%_) + (let* ((_%e124565124578%_ _%stx124564%_) + (_%E124567124582%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124459124472%_))) - (_%E124460124510%_ + _%e124565124578%_))) + (_%E124566124616%_ (lambda () - (if (gx#stx-pair? _%e124459124472%_) - (let ((_%e124462124480%_ - (gx#syntax-e _%e124459124472%_))) - (let ((_%hd124463124483%_ (##car _%e124462124480%_)) - (_%tl124464124485%_ (##cdr _%e124462124480%_))) - (if (gx#stx-pair? _%tl124464124485%_) - (let ((_%e124465124488%_ - (gx#syntax-e _%tl124464124485%_))) - (let ((_%hd124466124491%_ - (##car _%e124465124488%_)) - (_%tl124467124493%_ - (##cdr _%e124465124488%_))) - (let ((_%id124496%_ _%hd124466124491%_)) - (if (gx#stx-pair? _%tl124467124493%_) - (let ((_%e124468124498%_ + (if (gx#stx-pair? _%e124565124578%_) + (let ((_%e124568124586%_ + (gx#syntax-e _%e124565124578%_))) + (let ((_%hd124569124589%_ (##car _%e124568124586%_)) + (_%tl124570124591%_ (##cdr _%e124568124586%_))) + (if (gx#stx-pair? _%tl124570124591%_) + (let ((_%e124571124594%_ + (gx#syntax-e _%tl124570124591%_))) + (let ((_%hd124572124597%_ + (##car _%e124571124594%_)) + (_%tl124573124599%_ + (##cdr _%e124571124594%_))) + (let ((_%id124602%_ _%hd124572124597%_)) + (if (gx#stx-pair? _%tl124573124599%_) + (let ((_%e124574124604%_ (gx#syntax-e - _%tl124467124493%_))) - (let ((_%hd124469124501%_ - (##car _%e124468124498%_)) - (_%tl124470124503%_ - (##cdr _%e124468124498%_))) - (let ((_%binding-id124506%_ - _%hd124469124501%_)) + _%tl124573124599%_))) + (let ((_%hd124575124607%_ + (##car _%e124574124604%_)) + (_%tl124576124609%_ + (##cdr _%e124574124604%_))) + (let ((_%binding-id124612%_ + _%hd124575124607%_)) (if (gx#stx-null? - _%tl124470124503%_) + _%tl124576124609%_) (if (and (gx#identifier? - _%id124496%_) + _%id124602%_) (gx#identifier? - _%binding-id124506%_)) - (let ((_%eid124508%_ + _%binding-id124612%_)) + (let ((_%eid124614%_ (gx#stx-e - _%binding-id124506%_))) + _%binding-id124612%_))) (gx#core-bind-runtime-reference!__0 - _%id124496%_ - _%eid124508%_) + _%id124602%_ + _%eid124614%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-runtime) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124496%_) - (cons _%eid124508%_ '()))))) - (_%E124461124476%_)) + _%id124602%_) + (cons _%eid124614%_ '()))))) + (_%E124567124582%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124461124476%_))))) - (_%E124461124476%_))))) - (_%E124461124476%_)))) - (_%E124461124476%_))))) - (_%E124460124510%_)))) + (_%E124567124582%_))))) + (_%E124567124582%_))))) + (_%E124567124582%_)))) + (_%E124567124582%_))))) + (_%E124566124616%_)))) (define gx#core-expand-define-syntax% - (lambda (_%stx124401%_) - (let* ((_%e124402124415%_ _%stx124401%_) - (_%E124404124419%_ + (lambda (_%stx124507%_) + (let* ((_%e124508124521%_ _%stx124507%_) + (_%E124510124525%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124402124415%_))) - (_%E124403124454%_ + _%e124508124521%_))) + (_%E124509124560%_ (lambda () - (if (gx#stx-pair? _%e124402124415%_) - (let ((_%e124405124423%_ - (gx#syntax-e _%e124402124415%_))) - (let ((_%hd124406124426%_ (##car _%e124405124423%_)) - (_%tl124407124428%_ (##cdr _%e124405124423%_))) - (if (gx#stx-pair? _%tl124407124428%_) - (let ((_%e124408124431%_ - (gx#syntax-e _%tl124407124428%_))) - (let ((_%hd124409124434%_ - (##car _%e124408124431%_)) - (_%tl124410124436%_ - (##cdr _%e124408124431%_))) - (let ((_%id124439%_ _%hd124409124434%_)) - (if (gx#stx-pair? _%tl124410124436%_) - (let ((_%e124411124441%_ + (if (gx#stx-pair? _%e124508124521%_) + (let ((_%e124511124529%_ + (gx#syntax-e _%e124508124521%_))) + (let ((_%hd124512124532%_ (##car _%e124511124529%_)) + (_%tl124513124534%_ (##cdr _%e124511124529%_))) + (if (gx#stx-pair? _%tl124513124534%_) + (let ((_%e124514124537%_ + (gx#syntax-e _%tl124513124534%_))) + (let ((_%hd124515124540%_ + (##car _%e124514124537%_)) + (_%tl124516124542%_ + (##cdr _%e124514124537%_))) + (let ((_%id124545%_ _%hd124515124540%_)) + (if (gx#stx-pair? _%tl124516124542%_) + (let ((_%e124517124547%_ (gx#syntax-e - _%tl124410124436%_))) - (let ((_%hd124412124444%_ - (##car _%e124411124441%_)) - (_%tl124413124446%_ - (##cdr _%e124411124441%_))) - (let ((_%expr124449%_ - _%hd124412124444%_)) + _%tl124516124542%_))) + (let ((_%hd124518124550%_ + (##car _%e124517124547%_)) + (_%tl124519124552%_ + (##cdr _%e124517124547%_))) + (let ((_%expr124555%_ + _%hd124518124550%_)) (if (gx#stx-null? - _%tl124413124446%_) + _%tl124519124552%_) (if (gx#identifier? - _%id124439%_) - (let ((_g125360_ + _%id124545%_) + (let ((_g125466_ (gx#core-expand-expression+1 - _%expr124449%_))) + _%expr124555%_))) (begin - (let ((_g125361_ + (let ((_g125467_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (if (##values? _g125360_) - (##vector-length _g125360_) + (if (##values? _g125466_) + (##values-length _g125466_) 1))) - (if (not (##fx= _g125361_ 2)) - (error "Context expects 2 values" _g125361_))) - (let ((_%e-stx124451%_ (##vector-ref _g125360_ 0)) - (_%e124452%_ (##vector-ref _g125360_ 1))) + (if (not (##fx= _g125467_ 2)) + (error "Context expects 2 values" _g125467_))) + (let ((_%e-stx124557%_ (##values-ref _g125466_ 0)) + (_%e124558%_ (##values-ref _g125466_ 1))) (begin - (gx#core-bind-syntax!__0 _%id124439%_ _%e124452%_) + (gx#core-bind-syntax!__0 _%id124545%_ _%e124558%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons (gx#core-quote-syntax__0 _%id124439%_) - (cons _%e-stx124451%_ '()))) - (gx#stx-source _%stx124401%_)))))) - (_%E124404124419%_)) + (cons (gx#core-quote-syntax__0 _%id124545%_) + (cons _%e-stx124557%_ '()))) + (gx#stx-source _%stx124507%_)))))) + (_%E124510124525%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124404124419%_))))) - (_%E124404124419%_))))) - (_%E124404124419%_)))) - (_%E124404124419%_))))) - (_%E124403124454%_)))) + (_%E124510124525%_))))) + (_%E124510124525%_))))) + (_%E124510124525%_)))) + (_%E124510124525%_))))) + (_%E124509124560%_)))) (define gx#core-expand-define-alias% - (lambda (_%stx124345%_) - (let* ((_%e124346124359%_ _%stx124345%_) - (_%E124348124363%_ + (lambda (_%stx124451%_) + (let* ((_%e124452124465%_ _%stx124451%_) + (_%E124454124469%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124346124359%_))) - (_%E124347124397%_ + _%e124452124465%_))) + (_%E124453124503%_ (lambda () - (if (gx#stx-pair? _%e124346124359%_) - (let ((_%e124349124367%_ - (gx#syntax-e _%e124346124359%_))) - (let ((_%hd124350124370%_ (##car _%e124349124367%_)) - (_%tl124351124372%_ (##cdr _%e124349124367%_))) - (if (gx#stx-pair? _%tl124351124372%_) - (let ((_%e124352124375%_ - (gx#syntax-e _%tl124351124372%_))) - (let ((_%hd124353124378%_ - (##car _%e124352124375%_)) - (_%tl124354124380%_ - (##cdr _%e124352124375%_))) - (let ((_%id124383%_ _%hd124353124378%_)) - (if (gx#stx-pair? _%tl124354124380%_) - (let ((_%e124355124385%_ + (if (gx#stx-pair? _%e124452124465%_) + (let ((_%e124455124473%_ + (gx#syntax-e _%e124452124465%_))) + (let ((_%hd124456124476%_ (##car _%e124455124473%_)) + (_%tl124457124478%_ (##cdr _%e124455124473%_))) + (if (gx#stx-pair? _%tl124457124478%_) + (let ((_%e124458124481%_ + (gx#syntax-e _%tl124457124478%_))) + (let ((_%hd124459124484%_ + (##car _%e124458124481%_)) + (_%tl124460124486%_ + (##cdr _%e124458124481%_))) + (let ((_%id124489%_ _%hd124459124484%_)) + (if (gx#stx-pair? _%tl124460124486%_) + (let ((_%e124461124491%_ (gx#syntax-e - _%tl124354124380%_))) - (let ((_%hd124356124388%_ - (##car _%e124355124385%_)) - (_%tl124357124390%_ - (##cdr _%e124355124385%_))) - (let ((_%alias-id124393%_ - _%hd124356124388%_)) + _%tl124460124486%_))) + (let ((_%hd124462124494%_ + (##car _%e124461124491%_)) + (_%tl124463124496%_ + (##cdr _%e124461124491%_))) + (let ((_%alias-id124499%_ + _%hd124462124494%_)) (if (gx#stx-null? - _%tl124357124390%_) + _%tl124463124496%_) (if (and (gx#identifier? - _%id124383%_) + _%id124489%_) (gx#identifier? - _%alias-id124393%_)) - (let ((_%alias-id124395%_ + _%alias-id124499%_)) + (let ((_%alias-id124501%_ (gx#core-quote-syntax__0 - _%alias-id124393%_))) + _%alias-id124499%_))) (gx#core-bind-alias!__0 - _%id124383%_ - _%alias-id124395%_) + _%id124489%_ + _%alias-id124501%_) (gx#core-quote-syntax__0 (cons (gx#core-quote-syntax__0 '%#define-alias) (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id124383%_) - (cons _%alias-id124395%_ '()))))) - (_%E124348124363%_)) + _%id124489%_) + (cons _%alias-id124501%_ '()))))) + (_%E124454124469%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E124348124363%_))))) - (_%E124348124363%_))))) - (_%E124348124363%_)))) - (_%E124348124363%_))))) - (_%E124347124397%_)))) + (_%E124454124469%_))))) + (_%E124454124469%_))))) + (_%E124454124469%_)))) + (_%E124454124469%_))))) + (_%E124453124503%_)))) (define gx#core-expand-lambda%__% - (lambda (_%stx124288%_ _%wrap?124289%_) - (let* ((_%e124290124300%_ _%stx124288%_) - (_%E124292124304%_ + (lambda (_%stx124394%_ _%wrap?124395%_) + (let* ((_%e124396124406%_ _%stx124394%_) + (_%E124398124410%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124290124300%_))) - (_%E124291124331%_ + _%e124396124406%_))) + (_%E124397124437%_ (lambda () - (if (gx#stx-pair? _%e124290124300%_) - (let ((_%e124293124308%_ - (gx#syntax-e _%e124290124300%_))) - (let ((_%hd124294124311%_ (##car _%e124293124308%_)) - (_%tl124295124313%_ (##cdr _%e124293124308%_))) - (if (gx#stx-pair? _%tl124295124313%_) - (let ((_%e124296124316%_ - (gx#syntax-e _%tl124295124313%_))) - (let ((_%hd124297124319%_ - (##car _%e124296124316%_)) - (_%tl124298124321%_ - (##cdr _%e124296124316%_))) - (let* ((_%hd124324%_ _%hd124297124319%_) - (_%body124326%_ _%tl124298124321%_)) - (if (gx#core-bind-values? _%hd124324%_) + (if (gx#stx-pair? _%e124396124406%_) + (let ((_%e124399124414%_ + (gx#syntax-e _%e124396124406%_))) + (let ((_%hd124400124417%_ (##car _%e124399124414%_)) + (_%tl124401124419%_ (##cdr _%e124399124414%_))) + (if (gx#stx-pair? _%tl124401124419%_) + (let ((_%e124402124422%_ + (gx#syntax-e _%tl124401124419%_))) + (let ((_%hd124403124425%_ + (##car _%e124402124422%_)) + (_%tl124404124427%_ + (##cdr _%e124402124422%_))) + (let* ((_%hd124430%_ _%hd124403124425%_) + (_%body124432%_ _%tl124404124427%_)) + (if (gx#core-bind-values? _%hd124430%_) (__call-with-parameters (lambda () (gx#core-bind-values!__0 - _%hd124324%_) - (let ((_%body124329%_ + _%hd124430%_) + (let ((_%body124435%_ (cons (gx#core-quote-bind-values - _%hd124324%_) + _%hd124430%_) (cons (gx#core-expand-local-block - _%stx124288%_ - _%body124326%_) + _%stx124394%_ + _%body124432%_) '())))) - (if _%wrap?124289%_ + (if _%wrap?124395%_ (gx#core-quote-syntax__1 (gx#core-cons '%#lambda - _%body124329%_) + _%body124435%_) (gx#stx-source - _%stx124288%_)) - _%body124329%_))) + _%stx124394%_)) + _%body124435%_))) gx#current-expander-context - (let ((__obj125353 + (let ((__obj125459 (##structure gx#local-context::t '#f @@ -1151,117 +1151,117 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125353) - __obj125353)) - (_%E124292124304%_))))) - (_%E124292124304%_)))) - (_%E124292124304%_))))) - (_%E124291124331%_)))) + __obj125459) + __obj125459)) + (_%E124398124410%_))))) + (_%E124398124410%_)))) + (_%E124398124410%_))))) + (_%E124397124437%_)))) (define gx#core-expand-lambda%__0 - (lambda (_%stx124338%_) - (let ((_%wrap?124340%_ '#t)) - (gx#core-expand-lambda%__% _%stx124338%_ _%wrap?124340%_)))) + (lambda (_%stx124444%_) + (let ((_%wrap?124446%_ '#t)) + (gx#core-expand-lambda%__% _%stx124444%_ _%wrap?124446%_)))) (define gx#core-expand-lambda% - (lambda _g125363_ - (let ((_g125362_ (##length _g125363_))) - (cond ((##fx= _g125362_ 1) - (apply gx#core-expand-lambda%__0 _g125363_)) - ((##fx= _g125362_ 2) - (apply gx#core-expand-lambda%__% _g125363_)) + (lambda _g125469_ + (let ((_g125468_ (##length _g125469_))) + (cond ((##fx= _g125468_ 1) + (apply gx#core-expand-lambda%__0 _g125469_)) + ((##fx= _g125468_ 2) + (apply gx#core-expand-lambda%__% _g125469_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-lambda% - _g125363_)))))) + _g125469_)))))) (define gx#core-expand-case-lambda% - (lambda (_%stx124252%_) - (let* ((_%e124253124260%_ _%stx124252%_) - (_%E124255124264%_ + (lambda (_%stx124358%_) + (let* ((_%e124359124366%_ _%stx124358%_) + (_%E124361124370%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124253124260%_))) - (_%E124254124283%_ + _%e124359124366%_))) + (_%E124360124389%_ (lambda () - (if (gx#stx-pair? _%e124253124260%_) - (let ((_%e124256124268%_ - (gx#syntax-e _%e124253124260%_))) - (let ((_%hd124257124271%_ (##car _%e124256124268%_)) - (_%tl124258124273%_ (##cdr _%e124256124268%_))) - (let ((_%clauses124276%_ _%tl124258124273%_)) - (if (gx#stx-list? _%clauses124276%_) + (if (gx#stx-pair? _%e124359124366%_) + (let ((_%e124362124374%_ + (gx#syntax-e _%e124359124366%_))) + (let ((_%hd124363124377%_ (##car _%e124362124374%_)) + (_%tl124364124379%_ (##cdr _%e124362124374%_))) + (let ((_%clauses124382%_ _%tl124364124379%_)) + (if (gx#stx-list? _%clauses124382%_) (gx#core-quote-syntax__1 (gx#core-cons '%#case-lambda (gx#stx-map1 - (lambda (_%clause124278%_) + (lambda (_%clause124384%_) (gx#core-expand-lambda%__% (gx#stx-wrap-source (cons '%#case-lambda-clause - _%clause124278%_) - (let ((_%$e124280%_ + _%clause124384%_) + (let ((_%$e124386%_ (gx#stx-source - _%clause124278%_))) - (if _%$e124280%_ - _%$e124280%_ - (gx#stx-source _%stx124252%_)))) + _%clause124384%_))) + (if _%$e124386%_ + _%$e124386%_ + (gx#stx-source _%stx124358%_)))) '#f)) - _%clauses124276%_)) - (gx#stx-source _%stx124252%_)) - (_%E124255124264%_))))) - (_%E124255124264%_))))) - (_%E124254124283%_)))) + _%clauses124382%_)) + (gx#stx-source _%stx124358%_)) + (_%E124361124370%_))))) + (_%E124361124370%_))))) + (_%E124360124389%_)))) (define gx#core-expand-let-values% - (lambda (_%stx124206%_) - (let* ((_%e124207124217%_ _%stx124206%_) - (_%E124209124221%_ + (lambda (_%stx124312%_) + (let* ((_%e124313124323%_ _%stx124312%_) + (_%E124315124327%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124207124217%_))) - (_%E124208124248%_ + _%e124313124323%_))) + (_%E124314124354%_ (lambda () - (if (gx#stx-pair? _%e124207124217%_) - (let ((_%e124210124225%_ - (gx#syntax-e _%e124207124217%_))) - (let ((_%hd124211124228%_ (##car _%e124210124225%_)) - (_%tl124212124230%_ (##cdr _%e124210124225%_))) - (if (gx#stx-pair? _%tl124212124230%_) - (let ((_%e124213124233%_ - (gx#syntax-e _%tl124212124230%_))) - (let ((_%hd124214124236%_ - (##car _%e124213124233%_)) - (_%tl124215124238%_ - (##cdr _%e124213124233%_))) - (let* ((_%hd124241%_ _%hd124214124236%_) - (_%body124243%_ _%tl124215124238%_)) - (if (gx#core-expand-let-bind? _%hd124241%_) - (let ((_%expressions124245%_ + (if (gx#stx-pair? _%e124313124323%_) + (let ((_%e124316124331%_ + (gx#syntax-e _%e124313124323%_))) + (let ((_%hd124317124334%_ (##car _%e124316124331%_)) + (_%tl124318124336%_ (##cdr _%e124316124331%_))) + (if (gx#stx-pair? _%tl124318124336%_) + (let ((_%e124319124339%_ + (gx#syntax-e _%tl124318124336%_))) + (let ((_%hd124320124342%_ + (##car _%e124319124339%_)) + (_%tl124321124344%_ + (##cdr _%e124319124339%_))) + (let* ((_%hd124347%_ _%hd124320124342%_) + (_%body124349%_ _%tl124321124344%_)) + (if (gx#core-expand-let-bind? _%hd124347%_) + (let ((_%expressions124351%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124241%_))) + _%hd124347%_))) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124241%_) + _%hd124347%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#let-values) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124241%_ - _%expressions124245%_) + _%hd124347%_ + _%expressions124351%_) (cons (gx#core-expand-local-block ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%stx124206%_ - _%body124243%_) + _%stx124312%_ + _%body124349%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (gx#stx-source _%stx124206%_))) + (gx#stx-source _%stx124312%_))) gx#current-expander-context - (let ((__obj125354 + (let ((__obj125460 (##structure gx#local-context::t '#f @@ -1270,59 +1270,59 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125354) - __obj125354))) - (_%E124209124221%_))))) - (_%E124209124221%_)))) - (_%E124209124221%_))))) - (_%E124208124248%_)))) + __obj125460) + __obj125460))) + (_%E124315124327%_))))) + (_%E124315124327%_)))) + (_%E124315124327%_))))) + (_%E124314124354%_)))) (define gx#core-expand-letrec-values%__% - (lambda (_%stx124151%_ _%form124152%_) - (let* ((_%e124153124163%_ _%stx124151%_) - (_%E124155124167%_ + (lambda (_%stx124257%_ _%form124258%_) + (let* ((_%e124259124269%_ _%stx124257%_) + (_%E124261124273%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124153124163%_))) - (_%E124154124192%_ + _%e124259124269%_))) + (_%E124260124298%_ (lambda () - (if (gx#stx-pair? _%e124153124163%_) - (let ((_%e124156124171%_ - (gx#syntax-e _%e124153124163%_))) - (let ((_%hd124157124174%_ (##car _%e124156124171%_)) - (_%tl124158124176%_ (##cdr _%e124156124171%_))) - (if (gx#stx-pair? _%tl124158124176%_) - (let ((_%e124159124179%_ - (gx#syntax-e _%tl124158124176%_))) - (let ((_%hd124160124182%_ - (##car _%e124159124179%_)) - (_%tl124161124184%_ - (##cdr _%e124159124179%_))) - (let* ((_%hd124187%_ _%hd124160124182%_) - (_%body124189%_ _%tl124161124184%_)) - (if (gx#core-expand-let-bind? _%hd124187%_) + (if (gx#stx-pair? _%e124259124269%_) + (let ((_%e124262124277%_ + (gx#syntax-e _%e124259124269%_))) + (let ((_%hd124263124280%_ (##car _%e124262124277%_)) + (_%tl124264124282%_ (##cdr _%e124262124277%_))) + (if (gx#stx-pair? _%tl124264124282%_) + (let ((_%e124265124285%_ + (gx#syntax-e _%tl124264124282%_))) + (let ((_%hd124266124288%_ + (##car _%e124265124285%_)) + (_%tl124267124290%_ + (##cdr _%e124265124285%_))) + (let* ((_%hd124293%_ _%hd124266124288%_) + (_%body124295%_ _%tl124267124290%_)) + (if (gx#core-expand-let-bind? _%hd124293%_) (__call-with-parameters (lambda () (gx#stx-for-each1 gx#core-expand-let-bind-values! - _%hd124187%_) + _%hd124293%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 - _%form124152%_) + _%form124258%_) (cons (gx#stx-map2 gx#core-expand-let-bind-quote - _%hd124187%_ + _%hd124293%_ (gx#stx-map1 gx#core-expand-let-bind-expression - _%hd124187%_)) + _%hd124293%_)) (cons (gx#core-expand-local-block - _%stx124151%_ - _%body124189%_) + _%stx124257%_ + _%body124295%_) '()))) - (gx#stx-source _%stx124151%_))) + (gx#stx-source _%stx124257%_))) gx#current-expander-context - (let ((__obj125355 + (let ((__obj125461 (##structure gx#local-context::t '#f @@ -1331,200 +1331,200 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125355) - __obj125355)) - (_%E124155124167%_))))) - (_%E124155124167%_)))) - (_%E124155124167%_))))) - (_%E124154124192%_)))) + __obj125461) + __obj125461)) + (_%E124261124273%_))))) + (_%E124261124273%_)))) + (_%E124261124273%_))))) + (_%E124260124298%_)))) (define gx#core-expand-letrec-values%__0 - (lambda (_%stx124199%_) - (let ((_%form124201%_ '%#letrec-values)) - (gx#core-expand-letrec-values%__% _%stx124199%_ _%form124201%_)))) + (lambda (_%stx124305%_) + (let ((_%form124307%_ '%#letrec-values)) + (gx#core-expand-letrec-values%__% _%stx124305%_ _%form124307%_)))) (define gx#core-expand-letrec-values% - (lambda _g125365_ - (let ((_g125364_ (##length _g125365_))) - (cond ((##fx= _g125364_ 1) - (apply gx#core-expand-letrec-values%__0 _g125365_)) - ((##fx= _g125364_ 2) - (apply gx#core-expand-letrec-values%__% _g125365_)) + (lambda _g125471_ + (let ((_g125470_ (##length _g125471_))) + (cond ((##fx= _g125470_ 1) + (apply gx#core-expand-letrec-values%__0 _g125471_)) + ((##fx= _g125470_ 2) + (apply gx#core-expand-letrec-values%__% _g125471_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-letrec-values% - _g125365_)))))) + _g125471_)))))) (define gx#core-expand-letrec*-values% - (lambda (_%stx124148%_) - (gx#core-expand-letrec-values%__% _%stx124148%_ '%#letrec*-values))) + (lambda (_%stx124254%_) + (gx#core-expand-letrec-values%__% _%stx124254%_ '%#letrec*-values))) (define gx#core-expand-let-bind? - (lambda (_%stx124105%_) - (if (gx#stx-list? _%stx124105%_) + (lambda (_%stx124211%_) + (if (gx#stx-list? _%stx124211%_) (gx#stx-andmap - (lambda (_%bind124107%_) - (let* ((_%e124108124118%_ _%bind124107%_) - (_%E124110124122%_ (lambda () '#f)) - (_%E124109124144%_ + (lambda (_%bind124213%_) + (let* ((_%e124214124224%_ _%bind124213%_) + (_%E124216124228%_ (lambda () '#f)) + (_%E124215124250%_ (lambda () - (if (gx#stx-pair? _%e124108124118%_) - (let ((_%e124111124126%_ - (gx#syntax-e _%e124108124118%_))) - (let ((_%hd124112124129%_ - (##car _%e124111124126%_)) - (_%tl124113124131%_ - (##cdr _%e124111124126%_))) - (let ((_%hd124134%_ _%hd124112124129%_)) - (if (gx#stx-pair? _%tl124113124131%_) - (let ((_%e124114124136%_ + (if (gx#stx-pair? _%e124214124224%_) + (let ((_%e124217124232%_ + (gx#syntax-e _%e124214124224%_))) + (let ((_%hd124218124235%_ + (##car _%e124217124232%_)) + (_%tl124219124237%_ + (##cdr _%e124217124232%_))) + (let ((_%hd124240%_ _%hd124218124235%_)) + (if (gx#stx-pair? _%tl124219124237%_) + (let ((_%e124220124242%_ (gx#syntax-e - _%tl124113124131%_))) - (let ((_%hd124115124139%_ - (##car _%e124114124136%_)) - (_%tl124116124141%_ - (##cdr _%e124114124136%_))) + _%tl124219124237%_))) + (let ((_%hd124221124245%_ + (##car _%e124220124242%_)) + (_%tl124222124247%_ + (##cdr _%e124220124242%_))) (if (gx#stx-null? - _%tl124116124141%_) + _%tl124222124247%_) (gx#core-bind-values? - _%hd124134%_) - (_%E124110124122%_)))) - (_%E124110124122%_))))) - (_%E124110124122%_))))) - (_%E124109124144%_))) - _%stx124105%_) + _%hd124240%_) + (_%E124216124228%_)))) + (_%E124216124228%_))))) + (_%E124216124228%_))))) + (_%E124215124250%_))) + _%stx124211%_) '#f))) (define gx#core-expand-let-bind-expression - (lambda (_%bind124064%_) - (let* ((_%e124065124075%_ _%bind124064%_) - (_%E124067124079%_ + (lambda (_%bind124170%_) + (let* ((_%e124171124181%_ _%bind124170%_) + (_%E124173124185%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124065124075%_))) - (_%E124066124101%_ + _%e124171124181%_))) + (_%E124172124207%_ (lambda () - (if (gx#stx-pair? _%e124065124075%_) - (let ((_%e124068124083%_ - (gx#syntax-e _%e124065124075%_))) - (let ((_%hd124069124086%_ (##car _%e124068124083%_)) - (_%tl124070124088%_ (##cdr _%e124068124083%_))) - (if (gx#stx-pair? _%tl124070124088%_) - (let ((_%e124071124091%_ - (gx#syntax-e _%tl124070124088%_))) - (let ((_%hd124072124094%_ - (##car _%e124071124091%_)) - (_%tl124073124096%_ - (##cdr _%e124071124091%_))) - (let ((_%expr124099%_ _%hd124072124094%_)) - (if (gx#stx-null? _%tl124073124096%_) + (if (gx#stx-pair? _%e124171124181%_) + (let ((_%e124174124189%_ + (gx#syntax-e _%e124171124181%_))) + (let ((_%hd124175124192%_ (##car _%e124174124189%_)) + (_%tl124176124194%_ (##cdr _%e124174124189%_))) + (if (gx#stx-pair? _%tl124176124194%_) + (let ((_%e124177124197%_ + (gx#syntax-e _%tl124176124194%_))) + (let ((_%hd124178124200%_ + (##car _%e124177124197%_)) + (_%tl124179124202%_ + (##cdr _%e124177124197%_))) + (let ((_%expr124205%_ _%hd124178124200%_)) + (if (gx#stx-null? _%tl124179124202%_) (gx#core-expand-expression - _%expr124099%_) - (_%E124067124079%_))))) - (_%E124067124079%_)))) - (_%E124067124079%_))))) - (_%E124066124101%_)))) + _%expr124205%_) + (_%E124173124185%_))))) + (_%E124173124185%_)))) + (_%E124173124185%_))))) + (_%E124172124207%_)))) (define gx#core-expand-let-bind-values! - (lambda (_%bind124023%_) - (let* ((_%e124024124034%_ _%bind124023%_) - (_%E124026124038%_ + (lambda (_%bind124129%_) + (let* ((_%e124130124140%_ _%bind124129%_) + (_%E124132124144%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e124024124034%_))) - (_%E124025124060%_ + _%e124130124140%_))) + (_%E124131124166%_ (lambda () - (if (gx#stx-pair? _%e124024124034%_) - (let ((_%e124027124042%_ - (gx#syntax-e _%e124024124034%_))) - (let ((_%hd124028124045%_ (##car _%e124027124042%_)) - (_%tl124029124047%_ (##cdr _%e124027124042%_))) - (let ((_%hd124050%_ _%hd124028124045%_)) - (if (gx#stx-pair? _%tl124029124047%_) - (let ((_%e124030124052%_ - (gx#syntax-e _%tl124029124047%_))) - (let ((_%hd124031124055%_ - (##car _%e124030124052%_)) - (_%tl124032124057%_ - (##cdr _%e124030124052%_))) - (if (gx#stx-null? _%tl124032124057%_) - (gx#core-bind-values!__0 _%hd124050%_) - (_%E124026124038%_)))) - (_%E124026124038%_))))) - (_%E124026124038%_))))) - (_%E124025124060%_)))) + (if (gx#stx-pair? _%e124130124140%_) + (let ((_%e124133124148%_ + (gx#syntax-e _%e124130124140%_))) + (let ((_%hd124134124151%_ (##car _%e124133124148%_)) + (_%tl124135124153%_ (##cdr _%e124133124148%_))) + (let ((_%hd124156%_ _%hd124134124151%_)) + (if (gx#stx-pair? _%tl124135124153%_) + (let ((_%e124136124158%_ + (gx#syntax-e _%tl124135124153%_))) + (let ((_%hd124137124161%_ + (##car _%e124136124158%_)) + (_%tl124138124163%_ + (##cdr _%e124136124158%_))) + (if (gx#stx-null? _%tl124138124163%_) + (gx#core-bind-values!__0 _%hd124156%_) + (_%E124132124144%_)))) + (_%E124132124144%_))))) + (_%E124132124144%_))))) + (_%E124131124166%_)))) (define gx#core-expand-let-bind-quote - (lambda (_%bind123981%_ _%expr123982%_) - (let* ((_%e123983123993%_ _%bind123981%_) - (_%E123985123997%_ + (lambda (_%bind124087%_ _%expr124088%_) + (let* ((_%e124089124099%_ _%bind124087%_) + (_%E124091124103%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123983123993%_))) - (_%E123984124019%_ + _%e124089124099%_))) + (_%E124090124125%_ (lambda () - (if (gx#stx-pair? _%e123983123993%_) - (let ((_%e123986124001%_ - (gx#syntax-e _%e123983123993%_))) - (let ((_%hd123987124004%_ (##car _%e123986124001%_)) - (_%tl123988124006%_ (##cdr _%e123986124001%_))) - (let ((_%hd124009%_ _%hd123987124004%_)) - (if (gx#stx-pair? _%tl123988124006%_) - (let ((_%e123989124011%_ - (gx#syntax-e _%tl123988124006%_))) - (let ((_%hd123990124014%_ - (##car _%e123989124011%_)) - (_%tl123991124016%_ - (##cdr _%e123989124011%_))) - (if (gx#stx-null? _%tl123991124016%_) + (if (gx#stx-pair? _%e124089124099%_) + (let ((_%e124092124107%_ + (gx#syntax-e _%e124089124099%_))) + (let ((_%hd124093124110%_ (##car _%e124092124107%_)) + (_%tl124094124112%_ (##cdr _%e124092124107%_))) + (let ((_%hd124115%_ _%hd124093124110%_)) + (if (gx#stx-pair? _%tl124094124112%_) + (let ((_%e124095124117%_ + (gx#syntax-e _%tl124094124112%_))) + (let ((_%hd124096124120%_ + (##car _%e124095124117%_)) + (_%tl124097124122%_ + (##cdr _%e124095124117%_))) + (if (gx#stx-null? _%tl124097124122%_) (cons (gx#core-quote-bind-values - _%hd124009%_) - (cons _%expr123982%_ '())) - (_%E123985123997%_)))) - (_%E123985123997%_))))) - (_%E123985123997%_))))) - (_%E123984124019%_)))) + _%hd124115%_) + (cons _%expr124088%_ '())) + (_%E124091124103%_)))) + (_%E124091124103%_))))) + (_%E124091124103%_))))) + (_%E124090124125%_)))) (define gx#core-expand-let-syntax% - (lambda (_%stx123935%_) - (let* ((_%e123936123946%_ _%stx123935%_) - (_%E123938123950%_ + (lambda (_%stx124041%_) + (let* ((_%e124042124052%_ _%stx124041%_) + (_%E124044124056%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123936123946%_))) - (_%E123937123977%_ + _%e124042124052%_))) + (_%E124043124083%_ (lambda () - (if (gx#stx-pair? _%e123936123946%_) - (let ((_%e123939123954%_ - (gx#syntax-e _%e123936123946%_))) - (let ((_%hd123940123957%_ (##car _%e123939123954%_)) - (_%tl123941123959%_ (##cdr _%e123939123954%_))) - (if (gx#stx-pair? _%tl123941123959%_) - (let ((_%e123942123962%_ - (gx#syntax-e _%tl123941123959%_))) - (let ((_%hd123943123965%_ - (##car _%e123942123962%_)) - (_%tl123944123967%_ - (##cdr _%e123942123962%_))) - (let* ((_%hd123970%_ _%hd123943123965%_) - (_%body123972%_ _%tl123944123967%_)) + (if (gx#stx-pair? _%e124042124052%_) + (let ((_%e124045124060%_ + (gx#syntax-e _%e124042124052%_))) + (let ((_%hd124046124063%_ (##car _%e124045124060%_)) + (_%tl124047124065%_ (##cdr _%e124045124060%_))) + (if (gx#stx-pair? _%tl124047124065%_) + (let ((_%e124048124068%_ + (gx#syntax-e _%tl124047124065%_))) + (let ((_%hd124049124071%_ + (##car _%e124048124068%_)) + (_%tl124050124073%_ + (##cdr _%e124048124068%_))) + (let* ((_%hd124076%_ _%hd124049124071%_) + (_%body124078%_ _%tl124050124073%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123970%_) - (let ((_%expanders123974%_ + _%hd124076%_) + (let ((_%expanders124080%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123970%_))) + _%hd124076%_))) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123970%_ - _%expanders123974%_) + _%hd124076%_ + _%expanders124080%_) (gx#core-expand-local-block - _%stx123935%_ - _%body123972%_)) + _%stx124041%_ + _%body124078%_)) gx#current-expander-context - (let ((__obj125356 + (let ((__obj125462 (##structure gx#local-context::t '#f @@ -1533,63 +1533,63 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125356) - __obj125356))) - (_%E123938123950%_))))) - (_%E123938123950%_)))) - (_%E123938123950%_))))) - (_%E123937123977%_)))) + __obj125462) + __obj125462))) + (_%E124044124056%_))))) + (_%E124044124056%_)))) + (_%E124044124056%_))))) + (_%E124043124083%_)))) (define gx#core-expand-letrec-syntax% - (lambda (_%stx123884%_) - (let* ((_%e123885123895%_ _%stx123884%_) - (_%E123887123899%_ + (lambda (_%stx123990%_) + (let* ((_%e123991124001%_ _%stx123990%_) + (_%E123993124005%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123885123895%_))) - (_%E123886123931%_ + _%e123991124001%_))) + (_%E123992124037%_ (lambda () - (if (gx#stx-pair? _%e123885123895%_) - (let ((_%e123888123903%_ - (gx#syntax-e _%e123885123895%_))) - (let ((_%hd123889123906%_ (##car _%e123888123903%_)) - (_%tl123890123908%_ (##cdr _%e123888123903%_))) - (if (gx#stx-pair? _%tl123890123908%_) - (let ((_%e123891123911%_ - (gx#syntax-e _%tl123890123908%_))) - (let ((_%hd123892123914%_ - (##car _%e123891123911%_)) - (_%tl123893123916%_ - (##cdr _%e123891123911%_))) - (let* ((_%hd123919%_ _%hd123892123914%_) - (_%body123921%_ _%tl123893123916%_)) + (if (gx#stx-pair? _%e123991124001%_) + (let ((_%e123994124009%_ + (gx#syntax-e _%e123991124001%_))) + (let ((_%hd123995124012%_ (##car _%e123994124009%_)) + (_%tl123996124014%_ (##cdr _%e123994124009%_))) + (if (gx#stx-pair? _%tl123996124014%_) + (let ((_%e123997124017%_ + (gx#syntax-e _%tl123996124014%_))) + (let ((_%hd123998124020%_ + (##car _%e123997124017%_)) + (_%tl123999124022%_ + (##cdr _%e123997124017%_))) + (let* ((_%hd124025%_ _%hd123998124020%_) + (_%body124027%_ _%tl123999124022%_)) (if (gx#core-expand-let-bind-syntax? - _%hd123919%_) + _%hd124025%_) (__call-with-parameters (lambda () (gx#stx-for-each2 gx#core-expand-let-bind-syntax! - _%hd123919%_ + _%hd124025%_ (make-list - (gx#stx-length _%hd123919%_) + (gx#stx-length _%hd124025%_) '#!void)) (gx#stx-for-each2 - (lambda (_%g123923123926%_ - _%g123924123928%_) + (lambda (_%g124029124032%_ + _%g124030124034%_) (gx#core-expand-let-bind-syntax!__% - _%g123923123926%_ - _%g123924123928%_ + _%g124029124032%_ + _%g124030124034%_ '#t)) - _%hd123919%_ + _%hd124025%_ (gx#stx-map1 gx#core-expand-let-bind-syntax-expression - _%hd123919%_)) + _%hd124025%_)) (gx#core-expand-local-block - _%stx123884%_ - _%body123921%_)) + _%stx123990%_ + _%body124027%_)) gx#current-expander-context - (let ((__obj125357 + (let ((__obj125463 (##structure gx#local-context::t '#f @@ -1598,1725 +1598,1725 @@ '#f '#f))) (gx#local-context:::init!__0 - __obj125357) - __obj125357)) - (_%E123887123899%_))))) - (_%E123887123899%_)))) - (_%E123887123899%_))))) - (_%E123886123931%_)))) + __obj125463) + __obj125463)) + (_%E123993124005%_))))) + (_%E123993124005%_)))) + (_%E123993124005%_))))) + (_%E123992124037%_)))) (define gx#core-expand-let-bind-syntax? - (lambda (_%stx123841%_) - (if (gx#stx-list? _%stx123841%_) + (lambda (_%stx123947%_) + (if (gx#stx-list? _%stx123947%_) (gx#stx-andmap - (lambda (_%bind123843%_) - (let* ((_%e123844123854%_ _%bind123843%_) - (_%E123846123858%_ (lambda () '#f)) - (_%E123845123880%_ + (lambda (_%bind123949%_) + (let* ((_%e123950123960%_ _%bind123949%_) + (_%E123952123964%_ (lambda () '#f)) + (_%E123951123986%_ (lambda () - (if (gx#stx-pair? _%e123844123854%_) - (let ((_%e123847123862%_ - (gx#syntax-e _%e123844123854%_))) - (let ((_%hd123848123865%_ - (##car _%e123847123862%_)) - (_%tl123849123867%_ - (##cdr _%e123847123862%_))) - (let ((_%hd123870%_ _%hd123848123865%_)) - (if (gx#stx-pair? _%tl123849123867%_) - (let ((_%e123850123872%_ + (if (gx#stx-pair? _%e123950123960%_) + (let ((_%e123953123968%_ + (gx#syntax-e _%e123950123960%_))) + (let ((_%hd123954123971%_ + (##car _%e123953123968%_)) + (_%tl123955123973%_ + (##cdr _%e123953123968%_))) + (let ((_%hd123976%_ _%hd123954123971%_)) + (if (gx#stx-pair? _%tl123955123973%_) + (let ((_%e123956123978%_ (gx#syntax-e - _%tl123849123867%_))) - (let ((_%hd123851123875%_ - (##car _%e123850123872%_)) - (_%tl123852123877%_ - (##cdr _%e123850123872%_))) + _%tl123955123973%_))) + (let ((_%hd123957123981%_ + (##car _%e123956123978%_)) + (_%tl123958123983%_ + (##cdr _%e123956123978%_))) (if (gx#stx-null? - _%tl123852123877%_) - (gx#identifier? _%hd123870%_) - (_%E123846123858%_)))) - (_%E123846123858%_))))) - (_%E123846123858%_))))) - (_%E123845123880%_))) - _%stx123841%_) + _%tl123958123983%_) + (gx#identifier? _%hd123976%_) + (_%E123952123964%_)))) + (_%E123952123964%_))))) + (_%E123952123964%_))))) + (_%E123951123986%_))) + _%stx123947%_) '#f))) (define gx#core-expand-let-bind-syntax-expression - (lambda (_%bind123797%_) - (let* ((_%e123798123808%_ _%bind123797%_) - (_%E123800123812%_ + (lambda (_%bind123903%_) + (let* ((_%e123904123914%_ _%bind123903%_) + (_%E123906123918%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123798123808%_))) - (_%E123799123837%_ + _%e123904123914%_))) + (_%E123905123943%_ (lambda () - (if (gx#stx-pair? _%e123798123808%_) - (let ((_%e123801123816%_ - (gx#syntax-e _%e123798123808%_))) - (let ((_%hd123802123819%_ (##car _%e123801123816%_)) - (_%tl123803123821%_ (##cdr _%e123801123816%_))) - (if (gx#stx-pair? _%tl123803123821%_) - (let ((_%e123804123824%_ - (gx#syntax-e _%tl123803123821%_))) - (let ((_%hd123805123827%_ - (##car _%e123804123824%_)) - (_%tl123806123829%_ - (##cdr _%e123804123824%_))) - (let ((_%expr123832%_ _%hd123805123827%_)) - (if (gx#stx-null? _%tl123806123829%_) - (let ((_g125366_ + (if (gx#stx-pair? _%e123904123914%_) + (let ((_%e123907123922%_ + (gx#syntax-e _%e123904123914%_))) + (let ((_%hd123908123925%_ (##car _%e123907123922%_)) + (_%tl123909123927%_ (##cdr _%e123907123922%_))) + (if (gx#stx-pair? _%tl123909123927%_) + (let ((_%e123910123930%_ + (gx#syntax-e _%tl123909123927%_))) + (let ((_%hd123911123933%_ + (##car _%e123910123930%_)) + (_%tl123912123935%_ + (##cdr _%e123910123930%_))) + (let ((_%expr123938%_ _%hd123911123933%_)) + (if (gx#stx-null? _%tl123912123935%_) + (let ((_g125472_ (gx#core-expand-expression+1 - _%expr123832%_))) + _%expr123938%_))) (begin - (let ((_g125367_ - (if (##values? _g125366_) - (##vector-length - _g125366_) + (let ((_g125473_ + (if (##values? _g125472_) + (##values-length + _g125472_) 1))) - (if (not (##fx= _g125367_ 2)) + (if (not (##fx= _g125473_ 2)) (error "Context expects 2 values" - _g125367_))) - (let ((_%_123834%_ - (##vector-ref _g125366_ 0)) - (_%e123835%_ - (##vector-ref _g125366_ 1))) - _%e123835%_))) - (_%E123800123812%_))))) - (_%E123800123812%_)))) - (_%E123800123812%_))))) - (_%E123799123837%_)))) + _g125473_))) + (let ((_%_123940%_ + (##values-ref _g125472_ 0)) + (_%e123941%_ + (##values-ref _g125472_ 1))) + _%e123941%_))) + (_%E123906123918%_))))) + (_%E123906123918%_)))) + (_%E123906123918%_))))) + (_%E123905123943%_)))) (define gx#core-expand-let-bind-syntax!__% - (lambda (_%bind123742%_ _%e123743%_ _%rebind?123744%_) - (let* ((_%e123745123755%_ _%bind123742%_) - (_%E123747123759%_ + (lambda (_%bind123848%_ _%e123849%_ _%rebind?123850%_) + (let* ((_%e123851123861%_ _%bind123848%_) + (_%E123853123865%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123745123755%_))) - (_%E123746123781%_ + _%e123851123861%_))) + (_%E123852123887%_ (lambda () - (if (gx#stx-pair? _%e123745123755%_) - (let ((_%e123748123763%_ - (gx#syntax-e _%e123745123755%_))) - (let ((_%hd123749123766%_ (##car _%e123748123763%_)) - (_%tl123750123768%_ (##cdr _%e123748123763%_))) - (let ((_%id123771%_ _%hd123749123766%_)) - (if (gx#stx-pair? _%tl123750123768%_) - (let ((_%e123751123773%_ - (gx#syntax-e _%tl123750123768%_))) - (let ((_%hd123752123776%_ - (##car _%e123751123773%_)) - (_%tl123753123778%_ - (##cdr _%e123751123773%_))) - (if (gx#stx-null? _%tl123753123778%_) + (if (gx#stx-pair? _%e123851123861%_) + (let ((_%e123854123869%_ + (gx#syntax-e _%e123851123861%_))) + (let ((_%hd123855123872%_ (##car _%e123854123869%_)) + (_%tl123856123874%_ (##cdr _%e123854123869%_))) + (let ((_%id123877%_ _%hd123855123872%_)) + (if (gx#stx-pair? _%tl123856123874%_) + (let ((_%e123857123879%_ + (gx#syntax-e _%tl123856123874%_))) + (let ((_%hd123858123882%_ + (##car _%e123857123879%_)) + (_%tl123859123884%_ + (##cdr _%e123857123879%_))) + (if (gx#stx-null? _%tl123859123884%_) (gx#core-bind-syntax!__1 - _%id123771%_ - _%e123743%_ - _%rebind?123744%_) - (_%E123747123759%_)))) - (_%E123747123759%_))))) - (_%E123747123759%_))))) - (_%E123746123781%_)))) + _%id123877%_ + _%e123849%_ + _%rebind?123850%_) + (_%E123853123865%_)))) + (_%E123853123865%_))))) + (_%E123853123865%_))))) + (_%E123852123887%_)))) (define gx#core-expand-let-bind-syntax!__0 - (lambda (_%bind123788%_ _%e123789%_) - (let ((_%rebind?123791%_ '#f)) + (lambda (_%bind123894%_ _%e123895%_) + (let ((_%rebind?123897%_ '#f)) (gx#core-expand-let-bind-syntax!__% - _%bind123788%_ - _%e123789%_ - _%rebind?123791%_)))) + _%bind123894%_ + _%e123895%_ + _%rebind?123897%_)))) (define gx#core-expand-let-bind-syntax! - (lambda _g125369_ - (let ((_g125368_ (##length _g125369_))) - (cond ((##fx= _g125368_ 2) - (apply gx#core-expand-let-bind-syntax!__0 _g125369_)) - ((##fx= _g125368_ 3) - (apply gx#core-expand-let-bind-syntax!__% _g125369_)) + (lambda _g125475_ + (let ((_g125474_ (##length _g125475_))) + (cond ((##fx= _g125474_ 2) + (apply gx#core-expand-let-bind-syntax!__0 _g125475_)) + ((##fx= _g125474_ 3) + (apply gx#core-expand-let-bind-syntax!__% _g125475_)) (else (##raise-wrong-number-of-arguments-exception gx#core-expand-let-bind-syntax! - _g125369_)))))) + _g125475_)))))) (define gx#core-expand-expression% - (lambda (_%stx123700%_) - (let* ((_%e123701123711%_ _%stx123700%_) - (_%E123703123715%_ + (lambda (_%stx123806%_) + (let* ((_%e123807123817%_ _%stx123806%_) + (_%E123809123821%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123701123711%_))) - (_%E123702123737%_ + _%e123807123817%_))) + (_%E123808123843%_ (lambda () - (if (gx#stx-pair? _%e123701123711%_) - (let ((_%e123704123719%_ - (gx#syntax-e _%e123701123711%_))) - (let ((_%hd123705123722%_ (##car _%e123704123719%_)) - (_%tl123706123724%_ (##cdr _%e123704123719%_))) - (if (gx#stx-pair? _%tl123706123724%_) - (let ((_%e123707123727%_ - (gx#syntax-e _%tl123706123724%_))) - (let ((_%hd123708123730%_ - (##car _%e123707123727%_)) - (_%tl123709123732%_ - (##cdr _%e123707123727%_))) - (let ((_%expr123735%_ _%hd123708123730%_)) - (if (gx#stx-null? _%tl123709123732%_) + (if (gx#stx-pair? _%e123807123817%_) + (let ((_%e123810123825%_ + (gx#syntax-e _%e123807123817%_))) + (let ((_%hd123811123828%_ (##car _%e123810123825%_)) + (_%tl123812123830%_ (##cdr _%e123810123825%_))) + (if (gx#stx-pair? _%tl123812123830%_) + (let ((_%e123813123833%_ + (gx#syntax-e _%tl123812123830%_))) + (let ((_%hd123814123836%_ + (##car _%e123813123833%_)) + (_%tl123815123838%_ + (##cdr _%e123813123833%_))) + (let ((_%expr123841%_ _%hd123814123836%_)) + (if (gx#stx-null? _%tl123815123838%_) (gx#core-expand-expression - _%expr123735%_) - (_%E123703123715%_))))) - (_%E123703123715%_)))) - (_%E123703123715%_))))) - (_%E123702123737%_)))) + _%expr123841%_) + (_%E123809123821%_))))) + (_%E123809123821%_)))) + (_%E123809123821%_))))) + (_%E123808123843%_)))) (define gx#core-expand-quote% - (lambda (_%stx123659%_) - (let* ((_%e123660123670%_ _%stx123659%_) - (_%E123662123674%_ + (lambda (_%stx123765%_) + (let* ((_%e123766123776%_ _%stx123765%_) + (_%E123768123780%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123660123670%_))) - (_%E123661123696%_ + _%e123766123776%_))) + (_%E123767123802%_ (lambda () - (if (gx#stx-pair? _%e123660123670%_) - (let ((_%e123663123678%_ - (gx#syntax-e _%e123660123670%_))) - (let ((_%hd123664123681%_ (##car _%e123663123678%_)) - (_%tl123665123683%_ (##cdr _%e123663123678%_))) - (if (gx#stx-pair? _%tl123665123683%_) - (let ((_%e123666123686%_ - (gx#syntax-e _%tl123665123683%_))) - (let ((_%hd123667123689%_ - (##car _%e123666123686%_)) - (_%tl123668123691%_ - (##cdr _%e123666123686%_))) - (let ((_%e123694%_ _%hd123667123689%_)) - (if (gx#stx-null? _%tl123668123691%_) + (if (gx#stx-pair? _%e123766123776%_) + (let ((_%e123769123784%_ + (gx#syntax-e _%e123766123776%_))) + (let ((_%hd123770123787%_ (##car _%e123769123784%_)) + (_%tl123771123789%_ (##cdr _%e123769123784%_))) + (if (gx#stx-pair? _%tl123771123789%_) + (let ((_%e123772123792%_ + (gx#syntax-e _%tl123771123789%_))) + (let ((_%hd123773123795%_ + (##car _%e123772123792%_)) + (_%tl123774123797%_ + (##cdr _%e123772123792%_))) + (let ((_%e123800%_ _%hd123773123795%_)) + (if (gx#stx-null? _%tl123774123797%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote) (cons (gx#syntax->datum - _%e123694%_) + _%e123800%_) '())) - (gx#stx-source _%stx123659%_)) - (_%E123662123674%_))))) - (_%E123662123674%_)))) - (_%E123662123674%_))))) - (_%E123661123696%_)))) + (gx#stx-source _%stx123765%_)) + (_%E123768123780%_))))) + (_%E123768123780%_)))) + (_%E123768123780%_))))) + (_%E123767123802%_)))) (define gx#core-expand-quote-syntax% - (lambda (_%stx123618%_) - (let* ((_%e123619123629%_ _%stx123618%_) - (_%E123621123633%_ + (lambda (_%stx123724%_) + (let* ((_%e123725123735%_ _%stx123724%_) + (_%E123727123739%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123619123629%_))) - (_%E123620123655%_ + _%e123725123735%_))) + (_%E123726123761%_ (lambda () - (if (gx#stx-pair? _%e123619123629%_) - (let ((_%e123622123637%_ - (gx#syntax-e _%e123619123629%_))) - (let ((_%hd123623123640%_ (##car _%e123622123637%_)) - (_%tl123624123642%_ (##cdr _%e123622123637%_))) - (if (gx#stx-pair? _%tl123624123642%_) - (let ((_%e123625123645%_ - (gx#syntax-e _%tl123624123642%_))) - (let ((_%hd123626123648%_ - (##car _%e123625123645%_)) - (_%tl123627123650%_ - (##cdr _%e123625123645%_))) - (let ((_%e123653%_ _%hd123626123648%_)) - (if (gx#stx-null? _%tl123627123650%_) + (if (gx#stx-pair? _%e123725123735%_) + (let ((_%e123728123743%_ + (gx#syntax-e _%e123725123735%_))) + (let ((_%hd123729123746%_ (##car _%e123728123743%_)) + (_%tl123730123748%_ (##cdr _%e123728123743%_))) + (if (gx#stx-pair? _%tl123730123748%_) + (let ((_%e123731123751%_ + (gx#syntax-e _%tl123730123748%_))) + (let ((_%hd123732123754%_ + (##car _%e123731123751%_)) + (_%tl123733123756%_ + (##cdr _%e123731123751%_))) + (let ((_%e123759%_ _%hd123732123754%_)) + (if (gx#stx-null? _%tl123733123756%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#quote-syntax) (cons (gx#core-quote-syntax__0 - _%e123653%_) + _%e123759%_) '())) - (gx#stx-source _%stx123618%_)) - (_%E123621123633%_))))) - (_%E123621123633%_)))) - (_%E123621123633%_))))) - (_%E123620123655%_)))) + (gx#stx-source _%stx123724%_)) + (_%E123727123739%_))))) + (_%E123727123739%_)))) + (_%E123727123739%_))))) + (_%E123726123761%_)))) (define gx#core-expand-call% - (lambda (_%stx123575%_) - (let* ((_%e123576123586%_ _%stx123575%_) - (_%E123578123590%_ + (lambda (_%stx123681%_) + (let* ((_%e123682123692%_ _%stx123681%_) + (_%E123684123696%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123576123586%_))) - (_%E123577123614%_ + _%e123682123692%_))) + (_%E123683123720%_ (lambda () - (if (gx#stx-pair? _%e123576123586%_) - (let ((_%e123579123594%_ - (gx#syntax-e _%e123576123586%_))) - (let ((_%hd123580123597%_ (##car _%e123579123594%_)) - (_%tl123581123599%_ (##cdr _%e123579123594%_))) - (if (gx#stx-pair? _%tl123581123599%_) - (let ((_%e123582123602%_ - (gx#syntax-e _%tl123581123599%_))) - (let ((_%hd123583123605%_ - (##car _%e123582123602%_)) - (_%tl123584123607%_ - (##cdr _%e123582123602%_))) - (let* ((_%rator123610%_ _%hd123583123605%_) - (_%args123612%_ _%tl123584123607%_)) - (if (gx#stx-list? _%args123612%_) + (if (gx#stx-pair? _%e123682123692%_) + (let ((_%e123685123700%_ + (gx#syntax-e _%e123682123692%_))) + (let ((_%hd123686123703%_ (##car _%e123685123700%_)) + (_%tl123687123705%_ (##cdr _%e123685123700%_))) + (if (gx#stx-pair? _%tl123687123705%_) + (let ((_%e123688123708%_ + (gx#syntax-e _%tl123687123705%_))) + (let ((_%hd123689123711%_ + (##car _%e123688123708%_)) + (_%tl123690123713%_ + (##cdr _%e123688123708%_))) + (let* ((_%rator123716%_ _%hd123689123711%_) + (_%args123718%_ _%tl123690123713%_)) + (if (gx#stx-list? _%args123718%_) (gx#core-quote-syntax__1 (gx#core-cons* '%#call (gx#core-expand-expression - _%rator123610%_) + _%rator123716%_) (gx#stx-map1 gx#core-expand-expression - _%args123612%_)) - (gx#stx-source _%stx123575%_)) - (_%E123578123590%_))))) - (_%E123578123590%_)))) - (_%E123578123590%_))))) - (_%E123577123614%_)))) + _%args123718%_)) + (gx#stx-source _%stx123681%_)) + (_%E123684123696%_))))) + (_%E123684123696%_)))) + (_%E123684123696%_))))) + (_%E123683123720%_)))) (define gx#core-expand-if% - (lambda (_%stx123508%_) - (let* ((_%e123509123525%_ _%stx123508%_) - (_%E123511123529%_ + (lambda (_%stx123614%_) + (let* ((_%e123615123631%_ _%stx123614%_) + (_%E123617123635%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123509123525%_))) - (_%E123510123571%_ + _%e123615123631%_))) + (_%E123616123677%_ (lambda () - (if (gx#stx-pair? _%e123509123525%_) - (let ((_%e123512123533%_ - (gx#syntax-e _%e123509123525%_))) - (let ((_%hd123513123536%_ (##car _%e123512123533%_)) - (_%tl123514123538%_ (##cdr _%e123512123533%_))) - (if (gx#stx-pair? _%tl123514123538%_) - (let ((_%e123515123541%_ - (gx#syntax-e _%tl123514123538%_))) - (let ((_%hd123516123544%_ - (##car _%e123515123541%_)) - (_%tl123517123546%_ - (##cdr _%e123515123541%_))) - (let ((_%test123549%_ _%hd123516123544%_)) - (if (gx#stx-pair? _%tl123517123546%_) - (let ((_%e123518123551%_ + (if (gx#stx-pair? _%e123615123631%_) + (let ((_%e123618123639%_ + (gx#syntax-e _%e123615123631%_))) + (let ((_%hd123619123642%_ (##car _%e123618123639%_)) + (_%tl123620123644%_ (##cdr _%e123618123639%_))) + (if (gx#stx-pair? _%tl123620123644%_) + (let ((_%e123621123647%_ + (gx#syntax-e _%tl123620123644%_))) + (let ((_%hd123622123650%_ + (##car _%e123621123647%_)) + (_%tl123623123652%_ + (##cdr _%e123621123647%_))) + (let ((_%test123655%_ _%hd123622123650%_)) + (if (gx#stx-pair? _%tl123623123652%_) + (let ((_%e123624123657%_ (gx#syntax-e - _%tl123517123546%_))) - (let ((_%hd123519123554%_ - (##car _%e123518123551%_)) - (_%tl123520123556%_ - (##cdr _%e123518123551%_))) - (let ((_%K123559%_ - _%hd123519123554%_)) + _%tl123623123652%_))) + (let ((_%hd123625123660%_ + (##car _%e123624123657%_)) + (_%tl123626123662%_ + (##cdr _%e123624123657%_))) + (let ((_%K123665%_ + _%hd123625123660%_)) (if (gx#stx-pair? - _%tl123520123556%_) - (let ((_%e123521123561%_ + _%tl123626123662%_) + (let ((_%e123627123667%_ (gx#syntax-e - _%tl123520123556%_))) - (let ((_%hd123522123564%_ - (##car _%e123521123561%_)) - (_%tl123523123566%_ - (##cdr _%e123521123561%_))) - (let ((_%E123569%_ - _%hd123522123564%_)) + _%tl123626123662%_))) + (let ((_%hd123628123670%_ + (##car _%e123627123667%_)) + (_%tl123629123672%_ + (##cdr _%e123627123667%_))) + (let ((_%E123675%_ + _%hd123628123670%_)) (if (gx#stx-null? - _%tl123523123566%_) + _%tl123629123672%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '%#if) - (cons (gx#core-expand-expression _%test123549%_) - (cons (gx#core-expand-expression _%K123559%_) + (cons (gx#core-expand-expression _%test123655%_) + (cons (gx#core-expand-expression _%K123665%_) (cons (gx#core-expand-expression - _%E123569%_) + _%E123675%_) '())))) - (gx#stx-source _%stx123508%_)) - (_%E123511123529%_))))) + (gx#stx-source _%stx123614%_)) + (_%E123617123635%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123511123529%_))))) - (_%E123511123529%_))))) - (_%E123511123529%_)))) - (_%E123511123529%_))))) - (_%E123510123571%_)))) + (_%E123617123635%_))))) + (_%E123617123635%_))))) + (_%E123617123635%_)))) + (_%E123617123635%_))))) + (_%E123616123677%_)))) (define gx#core-expand-ref% - (lambda (_%stx123467%_) - (let* ((_%e123468123478%_ _%stx123467%_) - (_%E123470123482%_ + (lambda (_%stx123573%_) + (let* ((_%e123574123584%_ _%stx123573%_) + (_%E123576123588%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123468123478%_))) - (_%E123469123504%_ + _%e123574123584%_))) + (_%E123575123610%_ (lambda () - (if (gx#stx-pair? _%e123468123478%_) - (let ((_%e123471123486%_ - (gx#syntax-e _%e123468123478%_))) - (let ((_%hd123472123489%_ (##car _%e123471123486%_)) - (_%tl123473123491%_ (##cdr _%e123471123486%_))) - (if (gx#stx-pair? _%tl123473123491%_) - (let ((_%e123474123494%_ - (gx#syntax-e _%tl123473123491%_))) - (let ((_%hd123475123497%_ - (##car _%e123474123494%_)) - (_%tl123476123499%_ - (##cdr _%e123474123494%_))) - (let ((_%id123502%_ _%hd123475123497%_)) - (if (gx#stx-null? _%tl123476123499%_) - (if (gx#identifier? _%id123502%_) + (if (gx#stx-pair? _%e123574123584%_) + (let ((_%e123577123592%_ + (gx#syntax-e _%e123574123584%_))) + (let ((_%hd123578123595%_ (##car _%e123577123592%_)) + (_%tl123579123597%_ (##cdr _%e123577123592%_))) + (if (gx#stx-pair? _%tl123579123597%_) + (let ((_%e123580123600%_ + (gx#syntax-e _%tl123579123597%_))) + (let ((_%hd123581123603%_ + (##car _%e123580123600%_)) + (_%tl123582123605%_ + (##cdr _%e123580123600%_))) + (let ((_%id123608%_ _%hd123581123603%_)) + (if (gx#stx-null? _%tl123582123605%_) + (if (gx#identifier? _%id123608%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#ref) (cons (gx#core-quote-runtime-ref - _%id123502%_ - _%stx123467%_) + _%id123608%_ + _%stx123573%_) '())) - (gx#stx-source _%stx123467%_)) - (_%E123470123482%_)) - (_%E123470123482%_))))) - (_%E123470123482%_)))) - (_%E123470123482%_))))) - (_%E123469123504%_)))) + (gx#stx-source _%stx123573%_)) + (_%E123576123588%_)) + (_%E123576123588%_))))) + (_%E123576123588%_)))) + (_%E123576123588%_))))) + (_%E123575123610%_)))) (define gx#core-expand-setq% - (lambda (_%stx123413%_) - (let* ((_%e123414123427%_ _%stx123413%_) - (_%E123416123431%_ + (lambda (_%stx123519%_) + (let* ((_%e123520123533%_ _%stx123519%_) + (_%E123522123537%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123414123427%_))) - (_%E123415123463%_ + _%e123520123533%_))) + (_%E123521123569%_ (lambda () - (if (gx#stx-pair? _%e123414123427%_) - (let ((_%e123417123435%_ - (gx#syntax-e _%e123414123427%_))) - (let ((_%hd123418123438%_ (##car _%e123417123435%_)) - (_%tl123419123440%_ (##cdr _%e123417123435%_))) - (if (gx#stx-pair? _%tl123419123440%_) - (let ((_%e123420123443%_ - (gx#syntax-e _%tl123419123440%_))) - (let ((_%hd123421123446%_ - (##car _%e123420123443%_)) - (_%tl123422123448%_ - (##cdr _%e123420123443%_))) - (let ((_%id123451%_ _%hd123421123446%_)) - (if (gx#stx-pair? _%tl123422123448%_) - (let ((_%e123423123453%_ + (if (gx#stx-pair? _%e123520123533%_) + (let ((_%e123523123541%_ + (gx#syntax-e _%e123520123533%_))) + (let ((_%hd123524123544%_ (##car _%e123523123541%_)) + (_%tl123525123546%_ (##cdr _%e123523123541%_))) + (if (gx#stx-pair? _%tl123525123546%_) + (let ((_%e123526123549%_ + (gx#syntax-e _%tl123525123546%_))) + (let ((_%hd123527123552%_ + (##car _%e123526123549%_)) + (_%tl123528123554%_ + (##cdr _%e123526123549%_))) + (let ((_%id123557%_ _%hd123527123552%_)) + (if (gx#stx-pair? _%tl123528123554%_) + (let ((_%e123529123559%_ (gx#syntax-e - _%tl123422123448%_))) - (let ((_%hd123424123456%_ - (##car _%e123423123453%_)) - (_%tl123425123458%_ - (##cdr _%e123423123453%_))) - (let ((_%expr123461%_ - _%hd123424123456%_)) + _%tl123528123554%_))) + (let ((_%hd123530123562%_ + (##car _%e123529123559%_)) + (_%tl123531123564%_ + (##cdr _%e123529123559%_))) + (let ((_%expr123567%_ + _%hd123530123562%_)) (if (gx#stx-null? - _%tl123425123458%_) + _%tl123531123564%_) (if (gx#identifier? - _%id123451%_) + _%id123557%_) (gx#core-quote-syntax__1 (cons (gx#core-quote-syntax__0 '%#set!) (cons (gx#core-quote-runtime-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id123451%_ - _%stx123413%_) - (cons (gx#core-expand-expression _%expr123461%_) + _%id123557%_ + _%stx123519%_) + (cons (gx#core-expand-expression _%expr123567%_) '()))) - (gx#stx-source _%stx123413%_)) - (_%E123416123431%_)) + (gx#stx-source _%stx123519%_)) + (_%E123522123537%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123416123431%_))))) - (_%E123416123431%_))))) - (_%E123416123431%_)))) - (_%E123416123431%_))))) - (_%E123415123463%_)))) + (_%E123522123537%_))))) + (_%E123522123537%_))))) + (_%E123522123537%_)))) + (_%E123522123537%_))))) + (_%E123521123569%_)))) (define gx#macro-expand-extern - (lambda (_%stx123258%_) - (letrec ((_%generate123260%_ - (lambda (_%body123290%_) - (let _%lp123292%_ ((_%rest123294%_ _%body123290%_) - (_%ns123295%_ + (lambda (_%stx123364%_) + (letrec ((_%generate123366%_ + (lambda (_%body123396%_) + (let _%lp123398%_ ((_%rest123400%_ _%body123396%_) + (_%ns123401%_ (gx#core-context-namespace__0)) - (_%r123296%_ '())) - (let* ((_%e123297123312%_ _%rest123294%_) - (_%E123310123316%_ + (_%r123402%_ '())) + (let* ((_%e123403123418%_ _%rest123400%_) + (_%E123416123422%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123297123312%_))) - (_%E123306123320%_ + _%e123403123418%_))) + (_%E123412123426%_ (lambda () - (if (gx#stx-null? _%e123297123312%_) - (reverse _%r123296%_) - (_%E123310123316%_)))) - (_%E123299123377%_ + (if (gx#stx-null? _%e123403123418%_) + (reverse _%r123402%_) + (_%E123416123422%_)))) + (_%E123405123483%_ (lambda () - (if (gx#stx-pair? _%e123297123312%_) - (let ((_%e123307123324%_ - (gx#syntax-e _%e123297123312%_))) - (let ((_%hd123308123327%_ - (##car _%e123307123324%_)) - (_%tl123309123329%_ - (##cdr _%e123307123324%_))) - (let* ((_%hd123332%_ - _%hd123308123327%_) - (_%rest123334%_ - _%tl123309123329%_)) - (if (gx#identifier? _%hd123332%_) - (_%lp123292%_ - _%rest123334%_ - _%ns123295%_ - (cons (cons _%hd123332%_ - (cons (if _%ns123295%_ + (if (gx#stx-pair? _%e123403123418%_) + (let ((_%e123413123430%_ + (gx#syntax-e _%e123403123418%_))) + (let ((_%hd123414123433%_ + (##car _%e123413123430%_)) + (_%tl123415123435%_ + (##cdr _%e123413123430%_))) + (let* ((_%hd123438%_ + _%hd123414123433%_) + (_%rest123440%_ + _%tl123415123435%_)) + (if (gx#identifier? _%hd123438%_) + (_%lp123398%_ + _%rest123440%_ + _%ns123401%_ + (cons (cons _%hd123438%_ + (cons (if _%ns123401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#stx-identifier - _%hd123332%_ - _%ns123295%_ + _%hd123438%_ + _%ns123401%_ '"#" - _%hd123332%_) - _%hd123332%_) + _%hd123438%_) + _%hd123438%_) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%r123296%_)) - (let* ((_%e123335123345%_ - _%hd123332%_) - (_%E123337123349%_ + _%r123402%_)) + (let* ((_%e123441123451%_ + _%hd123438%_) + (_%E123443123455%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123335123345%_))) - (_%E123336123373%_ + _%e123441123451%_))) + (_%E123442123479%_ (lambda () (if (gx#stx-pair? - _%e123335123345%_) - (let ((_%e123338123353%_ + _%e123441123451%_) + (let ((_%e123444123459%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%e123335123345%_))) - (let ((_%hd123339123356%_ (##car _%e123338123353%_)) - (_%tl123340123358%_ (##cdr _%e123338123353%_))) - (let ((_%id123361%_ _%hd123339123356%_)) - (if (gx#stx-pair? _%tl123340123358%_) - (let ((_%e123341123363%_ - (gx#syntax-e _%tl123340123358%_))) - (let ((_%hd123342123366%_ - (##car _%e123341123363%_)) - (_%tl123343123368%_ - (##cdr _%e123341123363%_))) - (let ((_%eid123371%_ _%hd123342123366%_)) - (if (gx#stx-null? _%tl123343123368%_) - (if (and (gx#identifier? _%id123361%_) + (gx#syntax-e _%e123441123451%_))) + (let ((_%hd123445123462%_ (##car _%e123444123459%_)) + (_%tl123446123464%_ (##cdr _%e123444123459%_))) + (let ((_%id123467%_ _%hd123445123462%_)) + (if (gx#stx-pair? _%tl123446123464%_) + (let ((_%e123447123469%_ + (gx#syntax-e _%tl123446123464%_))) + (let ((_%hd123448123472%_ + (##car _%e123447123469%_)) + (_%tl123449123474%_ + (##cdr _%e123447123469%_))) + (let ((_%eid123477%_ _%hd123448123472%_)) + (if (gx#stx-null? _%tl123449123474%_) + (if (and (gx#identifier? _%id123467%_) (gx#identifier? - _%eid123371%_)) - (_%lp123292%_ - _%rest123334%_ - _%ns123295%_ - (cons (cons _%id123361%_ - (cons _%eid123371%_ + _%eid123477%_)) + (_%lp123398%_ + _%rest123440%_ + _%ns123401%_ + (cons (cons _%id123467%_ + (cons _%eid123477%_ '())) - _%r123296%_)) - (_%E123337123349%_)) - (_%E123337123349%_))))) - (_%E123337123349%_))))) - (_%E123337123349%_))))) + _%r123402%_)) + (_%E123443123455%_)) + (_%E123443123455%_))))) + (_%E123443123455%_))))) + (_%E123443123455%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123336123373%_)))))) - (_%E123306123320%_)))) - (_%E123298123409%_ + (_%E123442123479%_)))))) + (_%E123412123426%_)))) + (_%E123404123515%_ (lambda () - (if (gx#stx-pair? _%e123297123312%_) - (let ((_%e123300123381%_ - (gx#syntax-e _%e123297123312%_))) - (let ((_%hd123301123384%_ - (##car _%e123300123381%_)) - (_%tl123302123386%_ - (##cdr _%e123300123381%_))) - (if (eq? (gx#stx-e _%hd123301123384%_) + (if (gx#stx-pair? _%e123403123418%_) + (let ((_%e123406123487%_ + (gx#syntax-e _%e123403123418%_))) + (let ((_%hd123407123490%_ + (##car _%e123406123487%_)) + (_%tl123408123492%_ + (##cdr _%e123406123487%_))) + (if (eq? (gx#stx-e _%hd123407123490%_) 'namespace:) (if (gx#stx-pair? - _%tl123302123386%_) - (let ((_%e123303123389%_ + _%tl123408123492%_) + (let ((_%e123409123495%_ (gx#syntax-e - _%tl123302123386%_))) - (let ((_%hd123304123392%_ - (##car _%e123303123389%_)) - (_%tl123305123394%_ - (##cdr _%e123303123389%_))) - (let* ((_%ns123397%_ - _%hd123304123392%_) - (_%rest123399%_ - _%tl123305123394%_) - (_%ns123407%_ + _%tl123408123492%_))) + (let ((_%hd123410123498%_ + (##car _%e123409123495%_)) + (_%tl123411123500%_ + (##cdr _%e123409123495%_))) + (let* ((_%ns123503%_ + _%hd123410123498%_) + (_%rest123505%_ + _%tl123411123500%_) + (_%ns123513%_ (if (gx#identifier? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%ns123397%_) - (symbol->string (gx#stx-e _%ns123397%_)) - (if (or (gx#stx-string? _%ns123397%_) - (gx#stx-false? _%ns123397%_)) - (gx#stx-e _%ns123397%_) + _%ns123503%_) + (symbol->string (gx#stx-e _%ns123503%_)) + (if (or (gx#stx-string? _%ns123503%_) + (gx#stx-false? _%ns123503%_)) + (gx#stx-e _%ns123503%_) (gx#raise-syntax-error '#f '"Bad syntax; extern expects namespace identifier" - _%stx123258%_ - _%ns123397%_))))) - (_%lp123292%_ _%rest123399%_ _%ns123407%_ _%r123296%_)))) + _%stx123364%_ + _%ns123503%_))))) + (_%lp123398%_ _%rest123505%_ _%ns123513%_ _%r123402%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123299123377%_)) - (_%E123299123377%_)))) - (_%E123299123377%_))))) - (_%E123298123409%_)))))) - (let* ((_%e123261123268%_ _%stx123258%_) - (_%E123263123272%_ + (_%E123405123483%_)) + (_%E123405123483%_)))) + (_%E123405123483%_))))) + (_%E123404123515%_)))))) + (let* ((_%e123367123374%_ _%stx123364%_) + (_%E123369123378%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123261123268%_))) - (_%E123262123286%_ + _%e123367123374%_))) + (_%E123368123392%_ (lambda () - (if (gx#stx-pair? _%e123261123268%_) - (let ((_%e123264123276%_ - (gx#syntax-e _%e123261123268%_))) - (let ((_%hd123265123279%_ (##car _%e123264123276%_)) - (_%tl123266123281%_ (##cdr _%e123264123276%_))) - (let ((_%body123284%_ _%tl123266123281%_)) - (if (gx#stx-list? _%body123284%_) + (if (gx#stx-pair? _%e123367123374%_) + (let ((_%e123370123382%_ + (gx#syntax-e _%e123367123374%_))) + (let ((_%hd123371123385%_ (##car _%e123370123382%_)) + (_%tl123372123387%_ (##cdr _%e123370123382%_))) + (let ((_%body123390%_ _%tl123372123387%_)) + (if (gx#stx-list? _%body123390%_) (gx#core-cons '%#extern - (_%generate123260%_ _%body123284%_)) - (_%E123263123272%_))))) - (_%E123263123272%_))))) - (_%E123262123286%_))))) + (_%generate123366%_ _%body123390%_)) + (_%E123369123378%_))))) + (_%E123369123378%_))))) + (_%E123368123392%_))))) (define gx#macro-expand-define-values - (lambda (_%stx123204%_) - (let* ((_%e123205123218%_ _%stx123204%_) - (_%E123207123222%_ + (lambda (_%stx123310%_) + (let* ((_%e123311123324%_ _%stx123310%_) + (_%E123313123328%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123205123218%_))) - (_%E123206123254%_ + _%e123311123324%_))) + (_%E123312123360%_ (lambda () - (if (gx#stx-pair? _%e123205123218%_) - (let ((_%e123208123226%_ - (gx#syntax-e _%e123205123218%_))) - (let ((_%hd123209123229%_ (##car _%e123208123226%_)) - (_%tl123210123231%_ (##cdr _%e123208123226%_))) - (if (gx#stx-pair? _%tl123210123231%_) - (let ((_%e123211123234%_ - (gx#syntax-e _%tl123210123231%_))) - (let ((_%hd123212123237%_ - (##car _%e123211123234%_)) - (_%tl123213123239%_ - (##cdr _%e123211123234%_))) - (let ((_%hd123242%_ _%hd123212123237%_)) - (if (gx#stx-pair? _%tl123213123239%_) - (let ((_%e123214123244%_ + (if (gx#stx-pair? _%e123311123324%_) + (let ((_%e123314123332%_ + (gx#syntax-e _%e123311123324%_))) + (let ((_%hd123315123335%_ (##car _%e123314123332%_)) + (_%tl123316123337%_ (##cdr _%e123314123332%_))) + (if (gx#stx-pair? _%tl123316123337%_) + (let ((_%e123317123340%_ + (gx#syntax-e _%tl123316123337%_))) + (let ((_%hd123318123343%_ + (##car _%e123317123340%_)) + (_%tl123319123345%_ + (##cdr _%e123317123340%_))) + (let ((_%hd123348%_ _%hd123318123343%_)) + (if (gx#stx-pair? _%tl123319123345%_) + (let ((_%e123320123350%_ (gx#syntax-e - _%tl123213123239%_))) - (let ((_%hd123215123247%_ - (##car _%e123214123244%_)) - (_%tl123216123249%_ - (##cdr _%e123214123244%_))) - (let ((_%expr123252%_ - _%hd123215123247%_)) + _%tl123319123345%_))) + (let ((_%hd123321123353%_ + (##car _%e123320123350%_)) + (_%tl123322123355%_ + (##cdr _%e123320123350%_))) + (let ((_%expr123358%_ + _%hd123321123353%_)) (if (gx#stx-null? - _%tl123216123249%_) + _%tl123322123355%_) (if (gx#stx-andmap gx#identifier? - _%hd123242%_) + _%hd123348%_) (cons (gx#core-quote-syntax__0 '%#define-values) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%hd123242%_) - (cons _%expr123252%_ '()))) - (_%E123207123222%_)) + _%hd123348%_) + (cons _%expr123358%_ '()))) + (_%E123313123328%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123207123222%_))))) - (_%E123207123222%_))))) - (_%E123207123222%_)))) - (_%E123207123222%_))))) - (_%E123206123254%_)))) + (_%E123313123328%_))))) + (_%E123313123328%_))))) + (_%E123313123328%_)))) + (_%E123313123328%_))))) + (_%E123312123360%_)))) (define gx#macro-expand-define-syntax - (lambda (_%stx123150%_) - (let* ((_%e123151123164%_ _%stx123150%_) - (_%E123153123168%_ + (lambda (_%stx123256%_) + (let* ((_%e123257123270%_ _%stx123256%_) + (_%E123259123274%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123151123164%_))) - (_%E123152123200%_ + _%e123257123270%_))) + (_%E123258123306%_ (lambda () - (if (gx#stx-pair? _%e123151123164%_) - (let ((_%e123154123172%_ - (gx#syntax-e _%e123151123164%_))) - (let ((_%hd123155123175%_ (##car _%e123154123172%_)) - (_%tl123156123177%_ (##cdr _%e123154123172%_))) - (if (gx#stx-pair? _%tl123156123177%_) - (let ((_%e123157123180%_ - (gx#syntax-e _%tl123156123177%_))) - (let ((_%hd123158123183%_ - (##car _%e123157123180%_)) - (_%tl123159123185%_ - (##cdr _%e123157123180%_))) - (let ((_%hd123188%_ _%hd123158123183%_)) - (if (gx#stx-pair? _%tl123159123185%_) - (let ((_%e123160123190%_ + (if (gx#stx-pair? _%e123257123270%_) + (let ((_%e123260123278%_ + (gx#syntax-e _%e123257123270%_))) + (let ((_%hd123261123281%_ (##car _%e123260123278%_)) + (_%tl123262123283%_ (##cdr _%e123260123278%_))) + (if (gx#stx-pair? _%tl123262123283%_) + (let ((_%e123263123286%_ + (gx#syntax-e _%tl123262123283%_))) + (let ((_%hd123264123289%_ + (##car _%e123263123286%_)) + (_%tl123265123291%_ + (##cdr _%e123263123286%_))) + (let ((_%hd123294%_ _%hd123264123289%_)) + (if (gx#stx-pair? _%tl123265123291%_) + (let ((_%e123266123296%_ (gx#syntax-e - _%tl123159123185%_))) - (let ((_%hd123161123193%_ - (##car _%e123160123190%_)) - (_%tl123162123195%_ - (##cdr _%e123160123190%_))) - (let ((_%expr123198%_ - _%hd123161123193%_)) + _%tl123265123291%_))) + (let ((_%hd123267123299%_ + (##car _%e123266123296%_)) + (_%tl123268123301%_ + (##cdr _%e123266123296%_))) + (let ((_%expr123304%_ + _%hd123267123299%_)) (if (gx#stx-null? - _%tl123162123195%_) + _%tl123268123301%_) (if (gx#identifier? - _%hd123188%_) + _%hd123294%_) (cons (gx#core-quote-syntax__0 '%#define-syntax) - (cons _%hd123188%_ + (cons _%hd123294%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%expr123198%_ '()))) - (_%E123153123168%_)) + (cons _%expr123304%_ '()))) + (_%E123259123274%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123153123168%_))))) - (_%E123153123168%_))))) - (_%E123153123168%_)))) - (_%E123153123168%_))))) - (_%E123152123200%_)))) + (_%E123259123274%_))))) + (_%E123259123274%_))))) + (_%E123259123274%_)))) + (_%E123259123274%_))))) + (_%E123258123306%_)))) (define gx#macro-expand-define-alias - (lambda (_%stx123096%_) - (let* ((_%e123097123110%_ _%stx123096%_) - (_%E123099123114%_ + (lambda (_%stx123202%_) + (let* ((_%e123203123216%_ _%stx123202%_) + (_%E123205123220%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123097123110%_))) - (_%E123098123146%_ + _%e123203123216%_))) + (_%E123204123252%_ (lambda () - (if (gx#stx-pair? _%e123097123110%_) - (let ((_%e123100123118%_ - (gx#syntax-e _%e123097123110%_))) - (let ((_%hd123101123121%_ (##car _%e123100123118%_)) - (_%tl123102123123%_ (##cdr _%e123100123118%_))) - (if (gx#stx-pair? _%tl123102123123%_) - (let ((_%e123103123126%_ - (gx#syntax-e _%tl123102123123%_))) - (let ((_%hd123104123129%_ - (##car _%e123103123126%_)) - (_%tl123105123131%_ - (##cdr _%e123103123126%_))) - (let ((_%id123134%_ _%hd123104123129%_)) - (if (gx#stx-pair? _%tl123105123131%_) - (let ((_%e123106123136%_ + (if (gx#stx-pair? _%e123203123216%_) + (let ((_%e123206123224%_ + (gx#syntax-e _%e123203123216%_))) + (let ((_%hd123207123227%_ (##car _%e123206123224%_)) + (_%tl123208123229%_ (##cdr _%e123206123224%_))) + (if (gx#stx-pair? _%tl123208123229%_) + (let ((_%e123209123232%_ + (gx#syntax-e _%tl123208123229%_))) + (let ((_%hd123210123235%_ + (##car _%e123209123232%_)) + (_%tl123211123237%_ + (##cdr _%e123209123232%_))) + (let ((_%id123240%_ _%hd123210123235%_)) + (if (gx#stx-pair? _%tl123211123237%_) + (let ((_%e123212123242%_ (gx#syntax-e - _%tl123105123131%_))) - (let ((_%hd123107123139%_ - (##car _%e123106123136%_)) - (_%tl123108123141%_ - (##cdr _%e123106123136%_))) - (let ((_%alias-id123144%_ - _%hd123107123139%_)) + _%tl123211123237%_))) + (let ((_%hd123213123245%_ + (##car _%e123212123242%_)) + (_%tl123214123247%_ + (##cdr _%e123212123242%_))) + (let ((_%alias-id123250%_ + _%hd123213123245%_)) (if (gx#stx-null? - _%tl123108123141%_) + _%tl123214123247%_) (if (and (gx#identifier? - _%id123134%_) + _%id123240%_) (gx#identifier? - _%alias-id123144%_)) + _%alias-id123250%_)) (cons (gx#core-quote-syntax__0 '%#define-alias) - (cons _%id123134%_ + (cons _%id123240%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%alias-id123144%_ '()))) - (_%E123099123114%_)) + (cons _%alias-id123250%_ '()))) + (_%E123205123220%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E123099123114%_))))) - (_%E123099123114%_))))) - (_%E123099123114%_)))) - (_%E123099123114%_))))) - (_%E123098123146%_)))) + (_%E123205123220%_))))) + (_%E123205123220%_))))) + (_%E123205123220%_)))) + (_%E123205123220%_))))) + (_%E123204123252%_)))) (define gx#macro-expand-lambda% - (lambda (_%stx123053%_) - (let* ((_%e123054123064%_ _%stx123053%_) - (_%E123056123068%_ + (lambda (_%stx123159%_) + (let* ((_%e123160123170%_ _%stx123159%_) + (_%E123162123174%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e123054123064%_))) - (_%E123055123092%_ + _%e123160123170%_))) + (_%E123161123198%_ (lambda () - (if (gx#stx-pair? _%e123054123064%_) - (let ((_%e123057123072%_ - (gx#syntax-e _%e123054123064%_))) - (let ((_%hd123058123075%_ (##car _%e123057123072%_)) - (_%tl123059123077%_ (##cdr _%e123057123072%_))) - (if (gx#stx-pair? _%tl123059123077%_) - (let ((_%e123060123080%_ - (gx#syntax-e _%tl123059123077%_))) - (let ((_%hd123061123083%_ - (##car _%e123060123080%_)) - (_%tl123062123085%_ - (##cdr _%e123060123080%_))) - (let* ((_%hd123088%_ _%hd123061123083%_) - (_%body123090%_ _%tl123062123085%_)) + (if (gx#stx-pair? _%e123160123170%_) + (let ((_%e123163123178%_ + (gx#syntax-e _%e123160123170%_))) + (let ((_%hd123164123181%_ (##car _%e123163123178%_)) + (_%tl123165123183%_ (##cdr _%e123163123178%_))) + (if (gx#stx-pair? _%tl123165123183%_) + (let ((_%e123166123186%_ + (gx#syntax-e _%tl123165123183%_))) + (let ((_%hd123167123189%_ + (##car _%e123166123186%_)) + (_%tl123168123191%_ + (##cdr _%e123166123186%_))) + (let* ((_%hd123194%_ _%hd123167123189%_) + (_%body123196%_ _%tl123168123191%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd123088%_) - (gx#stx-list? _%body123090%_) + _%hd123194%_) + (gx#stx-list? _%body123196%_) (not (gx#stx-null? - _%body123090%_))) + _%body123196%_))) (gx#core-cons* '%#lambda - (gx#stx-map1 identity _%hd123088%_) - _%body123090%_) - (_%E123056123068%_))))) - (_%E123056123068%_)))) - (_%E123056123068%_))))) - (_%E123055123092%_)))) + (gx#stx-map1 identity _%hd123194%_) + _%body123196%_) + (_%E123162123174%_))))) + (_%E123162123174%_)))) + (_%E123162123174%_))))) + (_%E123161123198%_)))) (define gx#macro-expand-case-lambda - (lambda (_%stx122989%_) - (letrec ((_%generate122991%_ - (lambda (_%clause123021%_) - (let* ((_%e123022123029%_ _%clause123021%_) - (_%E123024123033%_ + (lambda (_%stx123095%_) + (letrec ((_%generate123097%_ + (lambda (_%clause123127%_) + (let* ((_%e123128123135%_ _%clause123127%_) + (_%E123130123139%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed clause" - _%stx122989%_ - _%clause123021%_))) - (_%E123023123049%_ + _%stx123095%_ + _%clause123127%_))) + (_%E123129123155%_ (lambda () - (if (gx#stx-pair? _%e123022123029%_) - (let ((_%e123025123037%_ - (gx#syntax-e _%e123022123029%_))) - (let ((_%hd123026123040%_ - (##car _%e123025123037%_)) - (_%tl123027123042%_ - (##cdr _%e123025123037%_))) - (let* ((_%hd123045%_ _%hd123026123040%_) - (_%body123047%_ - _%tl123027123042%_)) + (if (gx#stx-pair? _%e123128123135%_) + (let ((_%e123131123143%_ + (gx#syntax-e _%e123128123135%_))) + (let ((_%hd123132123146%_ + (##car _%e123131123143%_)) + (_%tl123133123148%_ + (##cdr _%e123131123143%_))) + (let* ((_%hd123151%_ _%hd123132123146%_) + (_%body123153%_ + _%tl123133123148%_)) (if (and (gx#stx-andmap gx#identifier? - _%hd123045%_) - (gx#stx-list? _%body123047%_) + _%hd123151%_) + (gx#stx-list? _%body123153%_) (not (gx#stx-null? - _%body123047%_))) + _%body123153%_))) (gx#stx-wrap-source (cons (gx#stx-map1 identity - _%hd123045%_) - _%body123047%_) - (gx#stx-source _%clause123021%_)) - (_%E123024123033%_))))) - (_%E123024123033%_))))) - (_%E123023123049%_))))) - (let* ((_%e122992122999%_ _%stx122989%_) - (_%E122994123003%_ + _%hd123151%_) + _%body123153%_) + (gx#stx-source _%clause123127%_)) + (_%E123130123139%_))))) + (_%E123130123139%_))))) + (_%E123129123155%_))))) + (let* ((_%e123098123105%_ _%stx123095%_) + (_%E123100123109%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122992122999%_))) - (_%E122993123017%_ + _%e123098123105%_))) + (_%E123099123123%_ (lambda () - (if (gx#stx-pair? _%e122992122999%_) - (let ((_%e122995123007%_ - (gx#syntax-e _%e122992122999%_))) - (let ((_%hd122996123010%_ (##car _%e122995123007%_)) - (_%tl122997123012%_ (##cdr _%e122995123007%_))) - (let ((_%clauses123015%_ _%tl122997123012%_)) - (if (gx#stx-list? _%clauses123015%_) + (if (gx#stx-pair? _%e123098123105%_) + (let ((_%e123101123113%_ + (gx#syntax-e _%e123098123105%_))) + (let ((_%hd123102123116%_ (##car _%e123101123113%_)) + (_%tl123103123118%_ (##cdr _%e123101123113%_))) + (let ((_%clauses123121%_ _%tl123103123118%_)) + (if (gx#stx-list? _%clauses123121%_) (gx#core-cons '%#case-lambda (gx#stx-map1 - _%generate122991%_ - _%clauses123015%_)) - (_%E122994123003%_))))) - (_%E122994123003%_))))) - (_%E122993123017%_))))) + _%generate123097%_ + _%clauses123121%_)) + (_%E123100123109%_))))) + (_%E123100123109%_))))) + (_%E123099123123%_))))) (define gx#macro-expand-let-values__% - (lambda (_%stx122890%_ _%form122891%_) - (letrec ((_%generate122893%_ - (lambda (_%bind122936%_) - (let* ((_%e122937122947%_ _%bind122936%_) - (_%E122939122951%_ + (lambda (_%stx122996%_ _%form122997%_) + (letrec ((_%generate122999%_ + (lambda (_%bind123042%_) + (let* ((_%e123043123053%_ _%bind123042%_) + (_%E123045123057%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; malformed binding" - _%stx122890%_ - _%bind122936%_))) - (_%E122938122975%_ + _%stx122996%_ + _%bind123042%_))) + (_%E123044123081%_ (lambda () - (if (gx#stx-pair? _%e122937122947%_) - (let ((_%e122940122955%_ - (gx#syntax-e _%e122937122947%_))) - (let ((_%hd122941122958%_ - (##car _%e122940122955%_)) - (_%tl122942122960%_ - (##cdr _%e122940122955%_))) - (let ((_%ids122963%_ _%hd122941122958%_)) - (if (gx#stx-pair? _%tl122942122960%_) - (let ((_%e122943122965%_ + (if (gx#stx-pair? _%e123043123053%_) + (let ((_%e123046123061%_ + (gx#syntax-e _%e123043123053%_))) + (let ((_%hd123047123064%_ + (##car _%e123046123061%_)) + (_%tl123048123066%_ + (##cdr _%e123046123061%_))) + (let ((_%ids123069%_ _%hd123047123064%_)) + (if (gx#stx-pair? _%tl123048123066%_) + (let ((_%e123049123071%_ (gx#syntax-e - _%tl122942122960%_))) - (let ((_%hd122944122968%_ - (##car _%e122943122965%_)) - (_%tl122945122970%_ - (##cdr _%e122943122965%_))) - (let ((_%expr122973%_ - _%hd122944122968%_)) + _%tl123048123066%_))) + (let ((_%hd123050123074%_ + (##car _%e123049123071%_)) + (_%tl123051123076%_ + (##cdr _%e123049123071%_))) + (let ((_%expr123079%_ + _%hd123050123074%_)) (if (gx#stx-null? - _%tl122945122970%_) + _%tl123051123076%_) (if (gx#stx-andmap gx#identifier? - _%ids122963%_) + _%ids123069%_) (cons (gx#stx-map1 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< identity - _%ids122963%_) - (cons _%expr122973%_ '())) - (_%E122939122951%_)) - (_%E122939122951%_))))) + _%ids123069%_) + (cons _%expr123079%_ '())) + (_%E123045123057%_)) + (_%E123045123057%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E122939122951%_))))) - (_%E122939122951%_))))) - (_%E122938122975%_))))) - (let* ((_%e122894122904%_ _%stx122890%_) - (_%E122896122908%_ + (_%E123045123057%_))))) + (_%E123045123057%_))))) + (_%E123044123081%_))))) + (let* ((_%e123000123010%_ _%stx122996%_) + (_%E123002123014%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122894122904%_))) - (_%E122895122932%_ + _%e123000123010%_))) + (_%E123001123038%_ (lambda () - (if (gx#stx-pair? _%e122894122904%_) - (let ((_%e122897122912%_ - (gx#syntax-e _%e122894122904%_))) - (let ((_%hd122898122915%_ (##car _%e122897122912%_)) - (_%tl122899122917%_ (##cdr _%e122897122912%_))) - (if (gx#stx-pair? _%tl122899122917%_) - (let ((_%e122900122920%_ - (gx#syntax-e _%tl122899122917%_))) - (let ((_%hd122901122923%_ - (##car _%e122900122920%_)) - (_%tl122902122925%_ - (##cdr _%e122900122920%_))) - (let* ((_%hd122928%_ _%hd122901122923%_) - (_%body122930%_ _%tl122902122925%_)) - (if (and (gx#stx-list? _%hd122928%_) - (gx#stx-list? _%body122930%_) + (if (gx#stx-pair? _%e123000123010%_) + (let ((_%e123003123018%_ + (gx#syntax-e _%e123000123010%_))) + (let ((_%hd123004123021%_ (##car _%e123003123018%_)) + (_%tl123005123023%_ (##cdr _%e123003123018%_))) + (if (gx#stx-pair? _%tl123005123023%_) + (let ((_%e123006123026%_ + (gx#syntax-e _%tl123005123023%_))) + (let ((_%hd123007123029%_ + (##car _%e123006123026%_)) + (_%tl123008123031%_ + (##cdr _%e123006123026%_))) + (let* ((_%hd123034%_ _%hd123007123029%_) + (_%body123036%_ _%tl123008123031%_)) + (if (and (gx#stx-list? _%hd123034%_) + (gx#stx-list? _%body123036%_) (not (gx#stx-null? - _%body122930%_))) + _%body123036%_))) (gx#core-cons* - _%form122891%_ + _%form122997%_ (gx#stx-map1 - _%generate122893%_ - _%hd122928%_) - _%body122930%_) - (_%E122896122908%_))))) - (_%E122896122908%_)))) - (_%E122896122908%_))))) - (_%E122895122932%_))))) + _%generate122999%_ + _%hd123034%_) + _%body123036%_) + (_%E123002123014%_))))) + (_%E123002123014%_)))) + (_%E123002123014%_))))) + (_%E123001123038%_))))) (define gx#macro-expand-let-values__0 - (lambda (_%stx122982%_) - (let ((_%form122984%_ '%#let-values)) - (gx#macro-expand-let-values__% _%stx122982%_ _%form122984%_)))) + (lambda (_%stx123088%_) + (let ((_%form123090%_ '%#let-values)) + (gx#macro-expand-let-values__% _%stx123088%_ _%form123090%_)))) (define gx#macro-expand-let-values - (lambda _g125371_ - (let ((_g125370_ (##length _g125371_))) - (cond ((##fx= _g125370_ 1) - (apply gx#macro-expand-let-values__0 _g125371_)) - ((##fx= _g125370_ 2) - (apply gx#macro-expand-let-values__% _g125371_)) + (lambda _g125477_ + (let ((_g125476_ (##length _g125477_))) + (cond ((##fx= _g125476_ 1) + (apply gx#macro-expand-let-values__0 _g125477_)) + ((##fx= _g125476_ 2) + (apply gx#macro-expand-let-values__% _g125477_)) (else (##raise-wrong-number-of-arguments-exception gx#macro-expand-let-values - _g125371_)))))) + _g125477_)))))) (define gx#macro-expand-letrec-values - (lambda (_%stx122887%_) - (gx#macro-expand-let-values__% _%stx122887%_ '%#letrec-values))) + (lambda (_%stx122993%_) + (gx#macro-expand-let-values__% _%stx122993%_ '%#letrec-values))) (define gx#macro-expand-letrec*-values - (lambda (_%stx122885%_) - (gx#macro-expand-let-values__% _%stx122885%_ '%#letrec*-values))) + (lambda (_%stx122991%_) + (gx#macro-expand-let-values__% _%stx122991%_ '%#letrec*-values))) (define gx#macro-expand-if - (lambda (_%stx122776%_) - (let* ((_%e122777122803%_ _%stx122776%_) - (_%E122789122807%_ + (lambda (_%stx122882%_) + (let* ((_%e122883122909%_ _%stx122882%_) + (_%E122895122913%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid syntax-case clause" - _%e122777122803%_))) - (_%E122779122849%_ + _%e122883122909%_))) + (_%E122885122955%_ (lambda () - (if (gx#stx-pair? _%e122777122803%_) - (let ((_%e122790122811%_ - (gx#syntax-e _%e122777122803%_))) - (let ((_%hd122791122814%_ (##car _%e122790122811%_)) - (_%tl122792122816%_ (##cdr _%e122790122811%_))) - (if (gx#stx-pair? _%tl122792122816%_) - (let ((_%e122793122819%_ - (gx#syntax-e _%tl122792122816%_))) - (let ((_%hd122794122822%_ - (##car _%e122793122819%_)) - (_%tl122795122824%_ - (##cdr _%e122793122819%_))) - (let ((_%test122827%_ _%hd122794122822%_)) - (if (gx#stx-pair? _%tl122795122824%_) - (let ((_%e122796122829%_ + (if (gx#stx-pair? _%e122883122909%_) + (let ((_%e122896122917%_ + (gx#syntax-e _%e122883122909%_))) + (let ((_%hd122897122920%_ (##car _%e122896122917%_)) + (_%tl122898122922%_ (##cdr _%e122896122917%_))) + (if (gx#stx-pair? _%tl122898122922%_) + (let ((_%e122899122925%_ + (gx#syntax-e _%tl122898122922%_))) + (let ((_%hd122900122928%_ + (##car _%e122899122925%_)) + (_%tl122901122930%_ + (##cdr _%e122899122925%_))) + (let ((_%test122933%_ _%hd122900122928%_)) + (if (gx#stx-pair? _%tl122901122930%_) + (let ((_%e122902122935%_ (gx#syntax-e - _%tl122795122824%_))) - (let ((_%hd122797122832%_ - (##car _%e122796122829%_)) - (_%tl122798122834%_ - (##cdr _%e122796122829%_))) - (let ((_%K122837%_ - _%hd122797122832%_)) + _%tl122901122930%_))) + (let ((_%hd122903122938%_ + (##car _%e122902122935%_)) + (_%tl122904122940%_ + (##cdr _%e122902122935%_))) + (let ((_%K122943%_ + _%hd122903122938%_)) (if (gx#stx-pair? - _%tl122798122834%_) - (let ((_%e122799122839%_ + _%tl122904122940%_) + (let ((_%e122905122945%_ (gx#syntax-e - _%tl122798122834%_))) - (let ((_%hd122800122842%_ - (##car _%e122799122839%_)) - (_%tl122801122844%_ - (##cdr _%e122799122839%_))) - (let ((_%E122847%_ - _%hd122800122842%_)) + _%tl122904122940%_))) + (let ((_%hd122906122948%_ + (##car _%e122905122945%_)) + (_%tl122907122950%_ + (##cdr _%e122905122945%_))) + (let ((_%E122953%_ + _%hd122906122948%_)) (if (gx#stx-null? - _%tl122801122844%_) + _%tl122907122950%_) (gx#core-list '%#if - _%test122827%_ - _%K122837%_ - _%E122847%_) - (_%E122789122807%_))))) - (_%E122789122807%_))))) - (_%E122789122807%_))))) - (_%E122789122807%_)))) - (_%E122789122807%_)))) - (_%E122778122881%_ + _%test122933%_ + _%K122943%_ + _%E122953%_) + (_%E122895122913%_))))) + (_%E122895122913%_))))) + (_%E122895122913%_))))) + (_%E122895122913%_)))) + (_%E122895122913%_)))) + (_%E122884122987%_ (lambda () - (if (gx#stx-pair? _%e122777122803%_) - (let ((_%e122780122853%_ - (gx#syntax-e _%e122777122803%_))) - (let ((_%hd122781122856%_ (##car _%e122780122853%_)) - (_%tl122782122858%_ (##cdr _%e122780122853%_))) - (if (gx#stx-pair? _%tl122782122858%_) - (let ((_%e122783122861%_ - (gx#syntax-e _%tl122782122858%_))) - (let ((_%hd122784122864%_ - (##car _%e122783122861%_)) - (_%tl122785122866%_ - (##cdr _%e122783122861%_))) - (let ((_%test122869%_ _%hd122784122864%_)) - (if (gx#stx-pair? _%tl122785122866%_) - (let ((_%e122786122871%_ + (if (gx#stx-pair? _%e122883122909%_) + (let ((_%e122886122959%_ + (gx#syntax-e _%e122883122909%_))) + (let ((_%hd122887122962%_ (##car _%e122886122959%_)) + (_%tl122888122964%_ (##cdr _%e122886122959%_))) + (if (gx#stx-pair? _%tl122888122964%_) + (let ((_%e122889122967%_ + (gx#syntax-e _%tl122888122964%_))) + (let ((_%hd122890122970%_ + (##car _%e122889122967%_)) + (_%tl122891122972%_ + (##cdr _%e122889122967%_))) + (let ((_%test122975%_ _%hd122890122970%_)) + (if (gx#stx-pair? _%tl122891122972%_) + (let ((_%e122892122977%_ (gx#syntax-e - _%tl122785122866%_))) - (let ((_%hd122787122874%_ - (##car _%e122786122871%_)) - (_%tl122788122876%_ - (##cdr _%e122786122871%_))) - (let ((_%K122879%_ - _%hd122787122874%_)) + _%tl122891122972%_))) + (let ((_%hd122893122980%_ + (##car _%e122892122977%_)) + (_%tl122894122982%_ + (##cdr _%e122892122977%_))) + (let ((_%K122985%_ + _%hd122893122980%_)) (if (gx#stx-null? - _%tl122788122876%_) + _%tl122894122982%_) (gx#core-list '%#if - _%test122869%_ - _%K122879%_ + _%test122975%_ + _%K122985%_ '#!void) - (_%E122779122849%_))))) - (_%E122779122849%_))))) - (_%E122779122849%_)))) - (_%E122779122849%_))))) - (_%E122778122881%_)))) + (_%E122885122955%_))))) + (_%E122885122955%_))))) + (_%E122885122955%_)))) + (_%E122885122955%_))))) + (_%E122884122987%_)))) (define gx#free-identifier=? - (lambda (_%xid122761%_ _%yid122762%_) - (let ((_%xe122764%_ (gx#resolve-identifier__0 _%xid122761%_)) - (_%ye122765%_ (gx#resolve-identifier__0 _%yid122762%_))) - (if (and _%xe122764%_ _%ye122765%_) - (let ((_%$e122768%_ (eq? _%xe122764%_ _%ye122765%_))) - (if _%$e122768%_ - _%$e122768%_ - (if (##structure-instance-of? _%xe122764%_ 'gx#binding::t) + (lambda (_%xid122867%_ _%yid122868%_) + (let ((_%xe122870%_ (gx#resolve-identifier__0 _%xid122867%_)) + (_%ye122871%_ (gx#resolve-identifier__0 _%yid122868%_))) + (if (and _%xe122870%_ _%ye122871%_) + (let ((_%$e122874%_ (eq? _%xe122870%_ _%ye122871%_))) + (if _%$e122874%_ + _%$e122874%_ + (if (##structure-instance-of? _%xe122870%_ 'gx#binding::t) (if (##structure-instance-of? - _%ye122765%_ + _%ye122871%_ 'gx#binding::t) (eq? (##unchecked-structure-ref - _%xe122764%_ + _%xe122870%_ '1 '#f '#f) (##unchecked-structure-ref - _%ye122765%_ + _%ye122871%_ '1 '#f '#f)) '#f) '#f))) - (if (or _%xe122764%_ _%ye122765%_) + (if (or _%xe122870%_ _%ye122871%_) '#f - (gx#stx-eq? _%xid122761%_ _%yid122762%_)))))) + (gx#stx-eq? _%xid122867%_ _%yid122868%_)))))) (define gx#bound-identifier=? - (lambda (_%xid122742%_ _%yid122743%_) - (letrec ((_%context122745%_ - (lambda (_%e122759%_) + (lambda (_%xid122848%_ _%yid122849%_) + (letrec ((_%context122851%_ + (lambda (_%e122865%_) (if (##structure-direct-instance-of? - _%e122759%_ + _%e122865%_ 'gx#syntax-quote::t) - (##unchecked-structure-ref _%e122759%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122865%_ '3 '#f '#f) (gx#current-expander-context)))) - (_%marks122746%_ - (lambda (_%e122754%_) - (if (symbol? _%e122754%_) + (_%marks122852%_ + (lambda (_%e122860%_) + (if (symbol? _%e122860%_) '() (if (##structure-direct-instance-of? - _%e122754%_ + _%e122860%_ 'gx#identifier-wrap::t) - (##unchecked-structure-ref _%e122754%_ '3 '#f '#f) + (##unchecked-structure-ref _%e122860%_ '3 '#f '#f) (##unchecked-structure-ref - _%e122754%_ + _%e122860%_ '4 '#f '#f))))) - (_%unwrap122747%_ - (lambda (_%e122752%_) - (if (symbol? _%e122752%_) - _%e122752%_ - (gx#syntax-local-unwrap _%e122752%_))))) - (let ((_%x122749%_ (_%unwrap122747%_ _%xid122742%_)) - (_%y122750%_ (_%unwrap122747%_ _%yid122743%_))) - (if (gx#stx-eq? _%x122749%_ _%y122750%_) - (if (eq? (_%context122745%_ _%x122749%_) - (_%context122745%_ _%y122750%_)) - (equal? (_%marks122746%_ _%x122749%_) - (_%marks122746%_ _%y122750%_)) + (_%unwrap122853%_ + (lambda (_%e122858%_) + (if (symbol? _%e122858%_) + _%e122858%_ + (gx#syntax-local-unwrap _%e122858%_))))) + (let ((_%x122855%_ (_%unwrap122853%_ _%xid122848%_)) + (_%y122856%_ (_%unwrap122853%_ _%yid122849%_))) + (if (gx#stx-eq? _%x122855%_ _%y122856%_) + (if (eq? (_%context122851%_ _%x122855%_) + (_%context122851%_ _%y122856%_)) + (equal? (_%marks122852%_ _%x122855%_) + (_%marks122852%_ _%y122856%_)) '#f) '#f))))) (define gx#underscore? - (lambda (_%stx122740%_) - (if (gx#identifier? _%stx122740%_) - (gx#core-identifier=? _%stx122740%_ '_) + (lambda (_%stx122846%_) + (if (gx#identifier? _%stx122846%_) + (gx#core-identifier=? _%stx122846%_ '_) '#f))) (define gx#ellipsis? - (lambda (_%stx122738%_) - (if (gx#identifier? _%stx122738%_) - (gx#core-identifier=? _%stx122738%_ '...) + (lambda (_%stx122844%_) + (if (gx#identifier? _%stx122844%_) + (gx#core-identifier=? _%stx122844%_ '...) '#f))) (define gx#check-duplicate-identifiers__% - (lambda (_%stx122681%_ _%where122682%_) - (let _%lp122684%_ ((_%rest122686%_ (gx#syntax->list _%stx122681%_))) - (let* ((_%rest122687122695%_ _%rest122686%_) - (_%else122689122703%_ (lambda () '#t)) - (_%K122691122716%_ - (lambda (_%rest122706%_ _%hd122707%_) - (if (gx#identifier? _%hd122707%_) - (if (__find (lambda (_%g122709122711%_) + (lambda (_%stx122787%_ _%where122788%_) + (let _%lp122790%_ ((_%rest122792%_ (gx#syntax->list _%stx122787%_))) + (let* ((_%rest122793122801%_ _%rest122792%_) + (_%else122795122809%_ (lambda () '#t)) + (_%K122797122822%_ + (lambda (_%rest122812%_ _%hd122813%_) + (if (gx#identifier? _%hd122813%_) + (if (__find (lambda (_%g122815122817%_) (gx#bound-identifier=? - _%g122709122711%_ - _%hd122707%_)) - _%rest122706%_) + _%g122815122817%_ + _%hd122813%_)) + _%rest122812%_) (gx#raise-syntax-error '#f '"Duplicate identifier" - _%where122682%_ - _%hd122707%_) - (_%lp122684%_ _%rest122706%_)) + _%where122788%_ + _%hd122813%_) + (_%lp122790%_ _%rest122812%_)) (gx#raise-syntax-error '#f '"Bad identifier" - _%where122682%_ - _%hd122707%_))))) - (if (pair? _%rest122687122695%_) - (let ((_%hd122692122719%_ (##car _%rest122687122695%_)) - (_%tl122693122721%_ (##cdr _%rest122687122695%_))) - (let* ((_%hd122724%_ _%hd122692122719%_) - (_%rest122726%_ _%tl122693122721%_)) - (_%K122691122716%_ _%rest122726%_ _%hd122724%_))) - (_%else122689122703%_)))))) + _%where122788%_ + _%hd122813%_))))) + (if (pair? _%rest122793122801%_) + (let ((_%hd122798122825%_ (##car _%rest122793122801%_)) + (_%tl122799122827%_ (##cdr _%rest122793122801%_))) + (let* ((_%hd122830%_ _%hd122798122825%_) + (_%rest122832%_ _%tl122799122827%_)) + (_%K122797122822%_ _%rest122832%_ _%hd122830%_))) + (_%else122795122809%_)))))) (define gx#check-duplicate-identifiers__0 - (lambda (_%stx122731%_) - (let ((_%where122733%_ _%stx122731%_)) - (gx#check-duplicate-identifiers__% _%stx122731%_ _%where122733%_)))) + (lambda (_%stx122837%_) + (let ((_%where122839%_ _%stx122837%_)) + (gx#check-duplicate-identifiers__% _%stx122837%_ _%where122839%_)))) (define gx#check-duplicate-identifiers - (lambda _g125373_ - (let ((_g125372_ (##length _g125373_))) - (cond ((##fx= _g125372_ 1) - (apply gx#check-duplicate-identifiers__0 _g125373_)) - ((##fx= _g125372_ 2) - (apply gx#check-duplicate-identifiers__% _g125373_)) + (lambda _g125479_ + (let ((_g125478_ (##length _g125479_))) + (cond ((##fx= _g125478_ 1) + (apply gx#check-duplicate-identifiers__0 _g125479_)) + ((##fx= _g125478_ 2) + (apply gx#check-duplicate-identifiers__% _g125479_)) (else (##raise-wrong-number-of-arguments-exception gx#check-duplicate-identifiers - _g125373_)))))) + _g125479_)))))) (define gx#core-bind-values? - (lambda (_%stx122673%_) + (lambda (_%stx122779%_) (gx#stx-andmap - (lambda (_%x122675%_) - (let ((_%$e122677%_ (gx#identifier? _%x122675%_))) - (if _%$e122677%_ _%$e122677%_ (gx#stx-false? _%x122675%_)))) - _%stx122673%_))) + (lambda (_%x122781%_) + (let ((_%$e122783%_ (gx#identifier? _%x122781%_))) + (if _%$e122783%_ _%$e122783%_ (gx#stx-false? _%x122781%_)))) + _%stx122779%_))) (define gx#core-bind-values!__% - (lambda (_%stx122637%_ _%rebind?122638%_ _%phi122639%_ _%ctx122640%_) + (lambda (_%stx122743%_ _%rebind?122744%_ _%phi122745%_ _%ctx122746%_) (gx#stx-for-each1 - (lambda (_%id122642%_) - (if (gx#identifier? _%id122642%_) + (lambda (_%id122748%_) + (if (gx#identifier? _%id122748%_) (gx#core-bind-runtime!__% - _%id122642%_ - _%rebind?122638%_ - _%phi122639%_ - _%ctx122640%_) + _%id122748%_ + _%rebind?122744%_ + _%phi122745%_ + _%ctx122746%_) '#!void)) - _%stx122637%_))) + _%stx122743%_))) (define gx#core-bind-values!__0 - (lambda (_%stx122647%_) - (let* ((_%rebind?122649%_ '#f) - (_%phi122651%_ (gx#current-expander-phi)) - (_%ctx122653%_ (gx#current-expander-context))) + (lambda (_%stx122753%_) + (let* ((_%rebind?122755%_ '#f) + (_%phi122757%_ (gx#current-expander-phi)) + (_%ctx122759%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122647%_ - _%rebind?122649%_ - _%phi122651%_ - _%ctx122653%_)))) + _%stx122753%_ + _%rebind?122755%_ + _%phi122757%_ + _%ctx122759%_)))) (define gx#core-bind-values!__1 - (lambda (_%stx122655%_ _%rebind?122656%_) - (let* ((_%phi122658%_ (gx#current-expander-phi)) - (_%ctx122660%_ (gx#current-expander-context))) + (lambda (_%stx122761%_ _%rebind?122762%_) + (let* ((_%phi122764%_ (gx#current-expander-phi)) + (_%ctx122766%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122655%_ - _%rebind?122656%_ - _%phi122658%_ - _%ctx122660%_)))) + _%stx122761%_ + _%rebind?122762%_ + _%phi122764%_ + _%ctx122766%_)))) (define gx#core-bind-values!__2 - (lambda (_%stx122662%_ _%rebind?122663%_ _%phi122664%_) - (let ((_%ctx122666%_ (gx#current-expander-context))) + (lambda (_%stx122768%_ _%rebind?122769%_ _%phi122770%_) + (let ((_%ctx122772%_ (gx#current-expander-context))) (gx#core-bind-values!__% - _%stx122662%_ - _%rebind?122663%_ - _%phi122664%_ - _%ctx122666%_)))) + _%stx122768%_ + _%rebind?122769%_ + _%phi122770%_ + _%ctx122772%_)))) (define gx#core-bind-values! - (lambda _g125375_ - (let ((_g125374_ (##length _g125375_))) - (cond ((##fx= _g125374_ 1) (apply gx#core-bind-values!__0 _g125375_)) - ((##fx= _g125374_ 2) (apply gx#core-bind-values!__1 _g125375_)) - ((##fx= _g125374_ 3) (apply gx#core-bind-values!__2 _g125375_)) - ((##fx= _g125374_ 4) (apply gx#core-bind-values!__% _g125375_)) + (lambda _g125481_ + (let ((_g125480_ (##length _g125481_))) + (cond ((##fx= _g125480_ 1) (apply gx#core-bind-values!__0 _g125481_)) + ((##fx= _g125480_ 2) (apply gx#core-bind-values!__1 _g125481_)) + ((##fx= _g125480_ 3) (apply gx#core-bind-values!__2 _g125481_)) + ((##fx= _g125480_ 4) (apply gx#core-bind-values!__% _g125481_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-values! - _g125375_)))))) + _g125481_)))))) (define gx#core-quote-bind-values - (lambda (_%stx122632%_) + (lambda (_%stx122738%_) (gx#stx-map1 - (lambda (_%x122634%_) - (if (gx#identifier? _%x122634%_) - (gx#core-quote-syntax__0 _%x122634%_) + (lambda (_%x122740%_) + (if (gx#identifier? _%x122740%_) + (gx#core-quote-syntax__0 _%x122740%_) '#f)) - _%stx122632%_))) + _%stx122738%_))) (define gx#core-runtime-ref? - (lambda (_%stx122625%_) - (if (gx#identifier? _%stx122625%_) - (let* ((_%bind122627%_ (gx#resolve-identifier__0 _%stx122625%_)) - (_%$e122629%_ (not _%bind122627%_))) - (if _%$e122629%_ - _%$e122629%_ + (lambda (_%stx122731%_) + (if (gx#identifier? _%stx122731%_) + (let* ((_%bind122733%_ (gx#resolve-identifier__0 _%stx122731%_)) + (_%$e122735%_ (not _%bind122733%_))) + (if _%$e122735%_ + _%$e122735%_ (##structure-instance-of? - _%bind122627%_ + _%bind122733%_ 'gx#runtime-binding::t))) '#f))) (define gx#core-quote-runtime-ref - (lambda (_%id122614%_ _%form122615%_) - (let ((_%bind122617%_ (gx#resolve-identifier__0 _%id122614%_))) - (if (##structure-instance-of? _%bind122617%_ 'gx#runtime-binding::t) - (gx#core-quote-syntax__0 _%id122614%_) - (if (not _%bind122617%_) + (lambda (_%id122720%_ _%form122721%_) + (let ((_%bind122723%_ (gx#resolve-identifier__0 _%id122720%_))) + (if (##structure-instance-of? _%bind122723%_ 'gx#runtime-binding::t) + (gx#core-quote-syntax__0 _%id122720%_) + (if (not _%bind122723%_) (if (or (gx#core-context-rebind?__% (gx#core-context-top__0)) - (gx#core-extern-symbol? (gx#stx-e _%id122614%_))) - (gx#core-quote-syntax__0 _%id122614%_) + (gx#core-extern-symbol? (gx#stx-e _%id122720%_))) + (gx#core-quote-syntax__0 _%id122720%_) (gx#raise-syntax-error '#f '"Reference to unbound identifier" - _%form122615%_ - _%id122614%_)) + _%form122721%_ + _%id122720%_)) (gx#raise-syntax-error '#f '"Bad syntax; not a runtime binding" - _%form122615%_ - _%id122614%_)))))) + _%form122721%_ + _%id122720%_)))))) (define gx#core-bind-runtime!__% - (lambda (_%id122569%_ _%rebind?122570%_ _%phi122571%_ _%ctx122572%_) - (let* ((_%key122574%_ (gx#core-identifier-key _%id122569%_)) - (_%eid122576%_ + (lambda (_%id122675%_ _%rebind?122676%_ _%phi122677%_ _%ctx122678%_) + (let* ((_%key122680%_ (gx#core-identifier-key _%id122675%_)) + (_%eid122682%_ (gx#make-binding-id__% - _%key122574%_ + _%key122680%_ '#f - _%phi122571%_ - _%ctx122572%_)) - (_%bind122582%_ + _%phi122677%_ + _%ctx122678%_)) + (_%bind122688%_ (if (##structure-instance-of? - _%ctx122572%_ + _%ctx122678%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122576%_ - _%key122574%_ - _%phi122571%_ - _%ctx122572%_) + _%eid122682%_ + _%key122680%_ + _%phi122677%_ + _%ctx122678%_) (if (##structure-instance-of? - _%ctx122572%_ + _%ctx122678%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122576%_ - _%key122574%_ - _%phi122571%_) + _%eid122682%_ + _%key122680%_ + _%phi122677%_) (if (##structure-instance-of? - _%ctx122572%_ + _%ctx122678%_ 'gx#local-context::t) (##structure gx#local-binding::t - _%eid122576%_ - _%key122574%_ - _%phi122571%_) + _%eid122682%_ + _%key122680%_ + _%phi122677%_) (##structure gx#runtime-binding::t - _%eid122576%_ - _%key122574%_ - _%phi122571%_)))))) + _%eid122682%_ + _%key122680%_ + _%phi122677%_)))))) (gx#bind-identifier!__% - _%id122569%_ - _%bind122582%_ - _%rebind?122570%_ - _%phi122571%_ - _%ctx122572%_)))) + _%id122675%_ + _%bind122688%_ + _%rebind?122676%_ + _%phi122677%_ + _%ctx122678%_)))) (define gx#core-bind-runtime!__0 - (lambda (_%id122588%_) - (let* ((_%rebind?122590%_ '#f) - (_%phi122592%_ (gx#current-expander-phi)) - (_%ctx122594%_ (gx#current-expander-context))) + (lambda (_%id122694%_) + (let* ((_%rebind?122696%_ '#f) + (_%phi122698%_ (gx#current-expander-phi)) + (_%ctx122700%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122588%_ - _%rebind?122590%_ - _%phi122592%_ - _%ctx122594%_)))) + _%id122694%_ + _%rebind?122696%_ + _%phi122698%_ + _%ctx122700%_)))) (define gx#core-bind-runtime!__1 - (lambda (_%id122596%_ _%rebind?122597%_) - (let* ((_%phi122599%_ (gx#current-expander-phi)) - (_%ctx122601%_ (gx#current-expander-context))) + (lambda (_%id122702%_ _%rebind?122703%_) + (let* ((_%phi122705%_ (gx#current-expander-phi)) + (_%ctx122707%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122596%_ - _%rebind?122597%_ - _%phi122599%_ - _%ctx122601%_)))) + _%id122702%_ + _%rebind?122703%_ + _%phi122705%_ + _%ctx122707%_)))) (define gx#core-bind-runtime!__2 - (lambda (_%id122603%_ _%rebind?122604%_ _%phi122605%_) - (let ((_%ctx122607%_ (gx#current-expander-context))) + (lambda (_%id122709%_ _%rebind?122710%_ _%phi122711%_) + (let ((_%ctx122713%_ (gx#current-expander-context))) (gx#core-bind-runtime!__% - _%id122603%_ - _%rebind?122604%_ - _%phi122605%_ - _%ctx122607%_)))) + _%id122709%_ + _%rebind?122710%_ + _%phi122711%_ + _%ctx122713%_)))) (define gx#core-bind-runtime! - (lambda _g125377_ - (let ((_g125376_ (##length _g125377_))) - (cond ((##fx= _g125376_ 1) - (apply gx#core-bind-runtime!__0 _g125377_)) - ((##fx= _g125376_ 2) - (apply gx#core-bind-runtime!__1 _g125377_)) - ((##fx= _g125376_ 3) - (apply gx#core-bind-runtime!__2 _g125377_)) - ((##fx= _g125376_ 4) - (apply gx#core-bind-runtime!__% _g125377_)) + (lambda _g125483_ + (let ((_g125482_ (##length _g125483_))) + (cond ((##fx= _g125482_ 1) + (apply gx#core-bind-runtime!__0 _g125483_)) + ((##fx= _g125482_ 2) + (apply gx#core-bind-runtime!__1 _g125483_)) + ((##fx= _g125482_ 3) + (apply gx#core-bind-runtime!__2 _g125483_)) + ((##fx= _g125482_ 4) + (apply gx#core-bind-runtime!__% _g125483_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime! - _g125377_)))))) + _g125483_)))))) (define gx#core-bind-runtime-reference!__% - (lambda (_%id122521%_ - _%eid122522%_ - _%rebind?122523%_ - _%phi122524%_ - _%ctx122525%_) - (let* ((_%key122527%_ (gx#core-identifier-key _%id122521%_)) - (_%bind122532%_ + (lambda (_%id122627%_ + _%eid122628%_ + _%rebind?122629%_ + _%phi122630%_ + _%ctx122631%_) + (let* ((_%key122633%_ (gx#core-identifier-key _%id122627%_)) + (_%bind122638%_ (if (##structure-instance-of? - _%ctx122525%_ + _%ctx122631%_ 'gx#module-context::t) (##structure gx#module-binding::t - _%eid122522%_ - _%key122527%_ - _%phi122524%_ - _%ctx122525%_) + _%eid122628%_ + _%key122633%_ + _%phi122630%_ + _%ctx122631%_) (if (##structure-instance-of? - _%ctx122525%_ + _%ctx122631%_ 'gx#top-context::t) (##structure gx#top-binding::t - _%eid122522%_ - _%key122527%_ - _%phi122524%_) + _%eid122628%_ + _%key122633%_ + _%phi122630%_) (##structure gx#runtime-binding::t - _%eid122522%_ - _%key122527%_ - _%phi122524%_))))) + _%eid122628%_ + _%key122633%_ + _%phi122630%_))))) (gx#bind-identifier!__% - _%id122521%_ - _%bind122532%_ - _%rebind?122523%_ - _%phi122524%_ - _%ctx122525%_)))) + _%id122627%_ + _%bind122638%_ + _%rebind?122629%_ + _%phi122630%_ + _%ctx122631%_)))) (define gx#core-bind-runtime-reference!__0 - (lambda (_%id122538%_ _%eid122539%_) - (let* ((_%rebind?122541%_ '#f) - (_%phi122543%_ (gx#current-expander-phi)) - (_%ctx122545%_ (gx#current-expander-context))) + (lambda (_%id122644%_ _%eid122645%_) + (let* ((_%rebind?122647%_ '#f) + (_%phi122649%_ (gx#current-expander-phi)) + (_%ctx122651%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122538%_ - _%eid122539%_ - _%rebind?122541%_ - _%phi122543%_ - _%ctx122545%_)))) + _%id122644%_ + _%eid122645%_ + _%rebind?122647%_ + _%phi122649%_ + _%ctx122651%_)))) (define gx#core-bind-runtime-reference!__1 - (lambda (_%id122547%_ _%eid122548%_ _%rebind?122549%_) - (let* ((_%phi122551%_ (gx#current-expander-phi)) - (_%ctx122553%_ (gx#current-expander-context))) + (lambda (_%id122653%_ _%eid122654%_ _%rebind?122655%_) + (let* ((_%phi122657%_ (gx#current-expander-phi)) + (_%ctx122659%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122547%_ - _%eid122548%_ - _%rebind?122549%_ - _%phi122551%_ - _%ctx122553%_)))) + _%id122653%_ + _%eid122654%_ + _%rebind?122655%_ + _%phi122657%_ + _%ctx122659%_)))) (define gx#core-bind-runtime-reference!__2 - (lambda (_%id122555%_ _%eid122556%_ _%rebind?122557%_ _%phi122558%_) - (let ((_%ctx122560%_ (gx#current-expander-context))) + (lambda (_%id122661%_ _%eid122662%_ _%rebind?122663%_ _%phi122664%_) + (let ((_%ctx122666%_ (gx#current-expander-context))) (gx#core-bind-runtime-reference!__% - _%id122555%_ - _%eid122556%_ - _%rebind?122557%_ - _%phi122558%_ - _%ctx122560%_)))) + _%id122661%_ + _%eid122662%_ + _%rebind?122663%_ + _%phi122664%_ + _%ctx122666%_)))) (define gx#core-bind-runtime-reference! - (lambda _g125379_ - (let ((_g125378_ (##length _g125379_))) - (cond ((##fx= _g125378_ 2) - (apply gx#core-bind-runtime-reference!__0 _g125379_)) - ((##fx= _g125378_ 3) - (apply gx#core-bind-runtime-reference!__1 _g125379_)) - ((##fx= _g125378_ 4) - (apply gx#core-bind-runtime-reference!__2 _g125379_)) - ((##fx= _g125378_ 5) - (apply gx#core-bind-runtime-reference!__% _g125379_)) + (lambda _g125485_ + (let ((_g125484_ (##length _g125485_))) + (cond ((##fx= _g125484_ 2) + (apply gx#core-bind-runtime-reference!__0 _g125485_)) + ((##fx= _g125484_ 3) + (apply gx#core-bind-runtime-reference!__1 _g125485_)) + ((##fx= _g125484_ 4) + (apply gx#core-bind-runtime-reference!__2 _g125485_)) + ((##fx= _g125484_ 5) + (apply gx#core-bind-runtime-reference!__% _g125485_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-runtime-reference! - _g125379_)))))) + _g125485_)))))) (define gx#core-bind-extern!__% - (lambda (_%id122481%_ - _%eid122482%_ - _%rebind?122483%_ - _%phi122484%_ - _%ctx122485%_) + (lambda (_%id122587%_ + _%eid122588%_ + _%rebind?122589%_ + _%phi122590%_ + _%ctx122591%_) (gx#bind-identifier!__% - _%id122481%_ + _%id122587%_ (##structure gx#extern-binding::t - _%eid122482%_ - (gx#core-identifier-key _%id122481%_) - _%phi122484%_) - _%rebind?122483%_ - _%phi122484%_ - _%ctx122485%_))) + _%eid122588%_ + (gx#core-identifier-key _%id122587%_) + _%phi122590%_) + _%rebind?122589%_ + _%phi122590%_ + _%ctx122591%_))) (define gx#core-bind-extern!__0 - (lambda (_%id122490%_ _%eid122491%_) - (let* ((_%rebind?122493%_ '#f) - (_%phi122495%_ (gx#current-expander-phi)) - (_%ctx122497%_ (gx#current-expander-context))) + (lambda (_%id122596%_ _%eid122597%_) + (let* ((_%rebind?122599%_ '#f) + (_%phi122601%_ (gx#current-expander-phi)) + (_%ctx122603%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122490%_ - _%eid122491%_ - _%rebind?122493%_ - _%phi122495%_ - _%ctx122497%_)))) + _%id122596%_ + _%eid122597%_ + _%rebind?122599%_ + _%phi122601%_ + _%ctx122603%_)))) (define gx#core-bind-extern!__1 - (lambda (_%id122499%_ _%eid122500%_ _%rebind?122501%_) - (let* ((_%phi122503%_ (gx#current-expander-phi)) - (_%ctx122505%_ (gx#current-expander-context))) + (lambda (_%id122605%_ _%eid122606%_ _%rebind?122607%_) + (let* ((_%phi122609%_ (gx#current-expander-phi)) + (_%ctx122611%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122499%_ - _%eid122500%_ - _%rebind?122501%_ - _%phi122503%_ - _%ctx122505%_)))) + _%id122605%_ + _%eid122606%_ + _%rebind?122607%_ + _%phi122609%_ + _%ctx122611%_)))) (define gx#core-bind-extern!__2 - (lambda (_%id122507%_ _%eid122508%_ _%rebind?122509%_ _%phi122510%_) - (let ((_%ctx122512%_ (gx#current-expander-context))) + (lambda (_%id122613%_ _%eid122614%_ _%rebind?122615%_ _%phi122616%_) + (let ((_%ctx122618%_ (gx#current-expander-context))) (gx#core-bind-extern!__% - _%id122507%_ - _%eid122508%_ - _%rebind?122509%_ - _%phi122510%_ - _%ctx122512%_)))) + _%id122613%_ + _%eid122614%_ + _%rebind?122615%_ + _%phi122616%_ + _%ctx122618%_)))) (define gx#core-bind-extern! - (lambda _g125381_ - (let ((_g125380_ (##length _g125381_))) - (cond ((##fx= _g125380_ 2) (apply gx#core-bind-extern!__0 _g125381_)) - ((##fx= _g125380_ 3) (apply gx#core-bind-extern!__1 _g125381_)) - ((##fx= _g125380_ 4) (apply gx#core-bind-extern!__2 _g125381_)) - ((##fx= _g125380_ 5) (apply gx#core-bind-extern!__% _g125381_)) + (lambda _g125487_ + (let ((_g125486_ (##length _g125487_))) + (cond ((##fx= _g125486_ 2) (apply gx#core-bind-extern!__0 _g125487_)) + ((##fx= _g125486_ 3) (apply gx#core-bind-extern!__1 _g125487_)) + ((##fx= _g125486_ 4) (apply gx#core-bind-extern!__2 _g125487_)) + ((##fx= _g125486_ 5) (apply gx#core-bind-extern!__% _g125487_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-extern! - _g125381_)))))) + _g125487_)))))) (define gx#core-bind-syntax!__% - (lambda (_%id122435%_ - _%e122436%_ - _%rebind?122437%_ - _%phi122438%_ - _%ctx122439%_) + (lambda (_%id122541%_ + _%e122542%_ + _%rebind?122543%_ + _%phi122544%_ + _%ctx122545%_) (gx#bind-identifier!__% - _%id122435%_ - (let ((_%key122444%_ (gx#core-identifier-key _%id122435%_)) - (_%e122445%_ - (if (or (##structure-instance-of? _%e122436%_ 'gx#expander::t) + _%id122541%_ + (let ((_%key122550%_ (gx#core-identifier-key _%id122541%_)) + (_%e122551%_ + (if (or (##structure-instance-of? _%e122542%_ 'gx#expander::t) (##structure-instance-of? - _%e122436%_ + _%e122542%_ 'gx#expander-context::t)) - _%e122436%_ + _%e122542%_ (##structure gx#user-expander::t - _%e122436%_ - _%ctx122439%_ - _%phi122438%_)))) + _%e122542%_ + _%ctx122545%_ + _%phi122544%_)))) (##structure gx#syntax-binding::t (gx#make-binding-id__% - _%key122444%_ + _%key122550%_ '#t - _%phi122438%_ - _%ctx122439%_) - _%key122444%_ - _%phi122438%_ - _%e122445%_)) - _%rebind?122437%_ - _%phi122438%_ - _%ctx122439%_))) + _%phi122544%_ + _%ctx122545%_) + _%key122550%_ + _%phi122544%_ + _%e122551%_)) + _%rebind?122543%_ + _%phi122544%_ + _%ctx122545%_))) (define gx#core-bind-syntax!__0 - (lambda (_%id122450%_ _%e122451%_) - (let* ((_%rebind?122453%_ '#f) - (_%phi122455%_ (gx#current-expander-phi)) - (_%ctx122457%_ (gx#current-expander-context))) + (lambda (_%id122556%_ _%e122557%_) + (let* ((_%rebind?122559%_ '#f) + (_%phi122561%_ (gx#current-expander-phi)) + (_%ctx122563%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122450%_ - _%e122451%_ - _%rebind?122453%_ - _%phi122455%_ - _%ctx122457%_)))) + _%id122556%_ + _%e122557%_ + _%rebind?122559%_ + _%phi122561%_ + _%ctx122563%_)))) (define gx#core-bind-syntax!__1 - (lambda (_%id122459%_ _%e122460%_ _%rebind?122461%_) - (let* ((_%phi122463%_ (gx#current-expander-phi)) - (_%ctx122465%_ (gx#current-expander-context))) + (lambda (_%id122565%_ _%e122566%_ _%rebind?122567%_) + (let* ((_%phi122569%_ (gx#current-expander-phi)) + (_%ctx122571%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122459%_ - _%e122460%_ - _%rebind?122461%_ - _%phi122463%_ - _%ctx122465%_)))) + _%id122565%_ + _%e122566%_ + _%rebind?122567%_ + _%phi122569%_ + _%ctx122571%_)))) (define gx#core-bind-syntax!__2 - (lambda (_%id122467%_ _%e122468%_ _%rebind?122469%_ _%phi122470%_) - (let ((_%ctx122472%_ (gx#current-expander-context))) + (lambda (_%id122573%_ _%e122574%_ _%rebind?122575%_ _%phi122576%_) + (let ((_%ctx122578%_ (gx#current-expander-context))) (gx#core-bind-syntax!__% - _%id122467%_ - _%e122468%_ - _%rebind?122469%_ - _%phi122470%_ - _%ctx122472%_)))) + _%id122573%_ + _%e122574%_ + _%rebind?122575%_ + _%phi122576%_ + _%ctx122578%_)))) (define gx#core-bind-syntax! - (lambda _g125383_ - (let ((_g125382_ (##length _g125383_))) - (cond ((##fx= _g125382_ 2) (apply gx#core-bind-syntax!__0 _g125383_)) - ((##fx= _g125382_ 3) (apply gx#core-bind-syntax!__1 _g125383_)) - ((##fx= _g125382_ 4) (apply gx#core-bind-syntax!__2 _g125383_)) - ((##fx= _g125382_ 5) (apply gx#core-bind-syntax!__% _g125383_)) + (lambda _g125489_ + (let ((_g125488_ (##length _g125489_))) + (cond ((##fx= _g125488_ 2) (apply gx#core-bind-syntax!__0 _g125489_)) + ((##fx= _g125488_ 3) (apply gx#core-bind-syntax!__1 _g125489_)) + ((##fx= _g125488_ 4) (apply gx#core-bind-syntax!__2 _g125489_)) + ((##fx= _g125488_ 5) (apply gx#core-bind-syntax!__% _g125489_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-syntax! - _g125383_)))))) + _g125489_)))))) (define gx#core-bind-root-syntax!__% - (lambda (_%id122418%_ _%e122419%_ _%rebind?122420%_) + (lambda (_%id122524%_ _%e122525%_ _%rebind?122526%_) (gx#core-bind-syntax!__% - _%id122418%_ - _%e122419%_ - _%rebind?122420%_ + _%id122524%_ + _%e122525%_ + _%rebind?122526%_ '0 (gx#core-context-root__0)))) (define gx#core-bind-root-syntax!__0 - (lambda (_%id122425%_ _%e122426%_) - (let ((_%rebind?122428%_ '#f)) + (lambda (_%id122531%_ _%e122532%_) + (let ((_%rebind?122534%_ '#f)) (gx#core-bind-root-syntax!__% - _%id122425%_ - _%e122426%_ - _%rebind?122428%_)))) + _%id122531%_ + _%e122532%_ + _%rebind?122534%_)))) (define gx#core-bind-root-syntax! - (lambda _g125385_ - (let ((_g125384_ (##length _g125385_))) - (cond ((##fx= _g125384_ 2) - (apply gx#core-bind-root-syntax!__0 _g125385_)) - ((##fx= _g125384_ 3) - (apply gx#core-bind-root-syntax!__% _g125385_)) + (lambda _g125491_ + (let ((_g125490_ (##length _g125491_))) + (cond ((##fx= _g125490_ 2) + (apply gx#core-bind-root-syntax!__0 _g125491_)) + ((##fx= _g125490_ 3) + (apply gx#core-bind-root-syntax!__% _g125491_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-root-syntax! - _g125385_)))))) + _g125491_)))))) (define gx#core-bind-alias!__% - (lambda (_%id122376%_ - _%alias-id122377%_ - _%rebind?122378%_ - _%phi122379%_ - _%ctx122380%_) + (lambda (_%id122482%_ + _%alias-id122483%_ + _%rebind?122484%_ + _%phi122485%_ + _%ctx122486%_) (gx#bind-identifier!__% - _%id122376%_ - (let ((_%key122382%_ (gx#core-identifier-key _%id122376%_))) + _%id122482%_ + (let ((_%key122488%_ (gx#core-identifier-key _%id122482%_))) (##structure gx#alias-binding::t (gx#make-binding-id__% - _%key122382%_ + _%key122488%_ '#t - _%phi122379%_ - _%ctx122380%_) - _%key122382%_ - _%phi122379%_ - _%alias-id122377%_)) - _%rebind?122378%_ - _%phi122379%_ - _%ctx122380%_))) + _%phi122485%_ + _%ctx122486%_) + _%key122488%_ + _%phi122485%_ + _%alias-id122483%_)) + _%rebind?122484%_ + _%phi122485%_ + _%ctx122486%_))) (define gx#core-bind-alias!__0 - (lambda (_%id122387%_ _%alias-id122388%_) - (let* ((_%rebind?122390%_ '#f) - (_%phi122392%_ (gx#current-expander-phi)) - (_%ctx122394%_ (gx#current-expander-context))) + (lambda (_%id122493%_ _%alias-id122494%_) + (let* ((_%rebind?122496%_ '#f) + (_%phi122498%_ (gx#current-expander-phi)) + (_%ctx122500%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122387%_ - _%alias-id122388%_ - _%rebind?122390%_ - _%phi122392%_ - _%ctx122394%_)))) + _%id122493%_ + _%alias-id122494%_ + _%rebind?122496%_ + _%phi122498%_ + _%ctx122500%_)))) (define gx#core-bind-alias!__1 - (lambda (_%id122396%_ _%alias-id122397%_ _%rebind?122398%_) - (let* ((_%phi122400%_ (gx#current-expander-phi)) - (_%ctx122402%_ (gx#current-expander-context))) + (lambda (_%id122502%_ _%alias-id122503%_ _%rebind?122504%_) + (let* ((_%phi122506%_ (gx#current-expander-phi)) + (_%ctx122508%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122396%_ - _%alias-id122397%_ - _%rebind?122398%_ - _%phi122400%_ - _%ctx122402%_)))) + _%id122502%_ + _%alias-id122503%_ + _%rebind?122504%_ + _%phi122506%_ + _%ctx122508%_)))) (define gx#core-bind-alias!__2 - (lambda (_%id122404%_ _%alias-id122405%_ _%rebind?122406%_ _%phi122407%_) - (let ((_%ctx122409%_ (gx#current-expander-context))) + (lambda (_%id122510%_ _%alias-id122511%_ _%rebind?122512%_ _%phi122513%_) + (let ((_%ctx122515%_ (gx#current-expander-context))) (gx#core-bind-alias!__% - _%id122404%_ - _%alias-id122405%_ - _%rebind?122406%_ - _%phi122407%_ - _%ctx122409%_)))) + _%id122510%_ + _%alias-id122511%_ + _%rebind?122512%_ + _%phi122513%_ + _%ctx122515%_)))) (define gx#core-bind-alias! - (lambda _g125387_ - (let ((_g125386_ (##length _g125387_))) - (cond ((##fx= _g125386_ 2) (apply gx#core-bind-alias!__0 _g125387_)) - ((##fx= _g125386_ 3) (apply gx#core-bind-alias!__1 _g125387_)) - ((##fx= _g125386_ 4) (apply gx#core-bind-alias!__2 _g125387_)) - ((##fx= _g125386_ 5) (apply gx#core-bind-alias!__% _g125387_)) + (lambda _g125493_ + (let ((_g125492_ (##length _g125493_))) + (cond ((##fx= _g125492_ 2) (apply gx#core-bind-alias!__0 _g125493_)) + ((##fx= _g125492_ 3) (apply gx#core-bind-alias!__1 _g125493_)) + ((##fx= _g125492_ 4) (apply gx#core-bind-alias!__2 _g125493_)) + ((##fx= _g125492_ 5) (apply gx#core-bind-alias!__% _g125493_)) (else (##raise-wrong-number-of-arguments-exception gx#core-bind-alias! - _g125387_)))))) + _g125493_)))))) (define gx#make-binding-id__% - (lambda (_%key122326%_ _%syntax?122327%_ _%phi122328%_ _%ctx122329%_) - (if (uninterned-symbol? _%key122326%_) + (lambda (_%key122432%_ _%syntax?122433%_ _%phi122434%_ _%ctx122435%_) + (if (uninterned-symbol? _%key122432%_) (##gensym 'L) - (if (pair? _%key122326%_) - (gensym (##car _%key122326%_)) - (if (##structure-instance-of? _%ctx122329%_ 'gx#top-context::t) - (let ((_%ns122334%_ - (gx#core-context-namespace__% _%ctx122329%_))) - (if (and (fxzero? _%phi122328%_) (not _%syntax?122327%_)) - (if _%ns122334%_ - (make-symbol__1 _%ns122334%_ '"#" _%key122326%_) - _%key122326%_) - (if _%syntax?122327%_ + (if (pair? _%key122432%_) + (gensym (##car _%key122432%_)) + (if (##structure-instance-of? _%ctx122435%_ 'gx#top-context::t) + (let ((_%ns122440%_ + (gx#core-context-namespace__% _%ctx122435%_))) + (if (and (fxzero? _%phi122434%_) (not _%syntax?122433%_)) + (if _%ns122440%_ + (make-symbol__1 _%ns122440%_ '"#" _%key122432%_) + _%key122432%_) + (if _%syntax?122433%_ (make-symbol__1 - (let ((_%$e122338%_ _%ns122334%_)) - (if _%$e122338%_ _%$e122338%_ '"")) + (let ((_%$e122444%_ _%ns122440%_)) + (if _%$e122444%_ _%$e122444%_ '"")) '"[:" - (number->string _%phi122328%_) + (number->string _%phi122434%_) '":]#" - _%key122326%_) + _%key122432%_) (make-symbol__1 - (let ((_%$e122342%_ _%ns122334%_)) - (if _%$e122342%_ _%$e122342%_ '"")) + (let ((_%$e122448%_ _%ns122440%_)) + (if _%$e122448%_ _%$e122448%_ '"")) '"[" - (number->string _%phi122328%_) + (number->string _%phi122434%_) '"]#" - _%key122326%_)))) - (gensym _%key122326%_)))))) + _%key122432%_)))) + (gensym _%key122432%_)))))) (define gx#make-binding-id__0 - (lambda (_%key122349%_) - (let* ((_%syntax?122351%_ '#f) - (_%phi122353%_ (gx#current-expander-phi)) - (_%ctx122355%_ (gx#current-expander-context))) + (lambda (_%key122455%_) + (let* ((_%syntax?122457%_ '#f) + (_%phi122459%_ (gx#current-expander-phi)) + (_%ctx122461%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122349%_ - _%syntax?122351%_ - _%phi122353%_ - _%ctx122355%_)))) + _%key122455%_ + _%syntax?122457%_ + _%phi122459%_ + _%ctx122461%_)))) (define gx#make-binding-id__1 - (lambda (_%key122357%_ _%syntax?122358%_) - (let* ((_%phi122360%_ (gx#current-expander-phi)) - (_%ctx122362%_ (gx#current-expander-context))) + (lambda (_%key122463%_ _%syntax?122464%_) + (let* ((_%phi122466%_ (gx#current-expander-phi)) + (_%ctx122468%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122357%_ - _%syntax?122358%_ - _%phi122360%_ - _%ctx122362%_)))) + _%key122463%_ + _%syntax?122464%_ + _%phi122466%_ + _%ctx122468%_)))) (define gx#make-binding-id__2 - (lambda (_%key122364%_ _%syntax?122365%_ _%phi122366%_) - (let ((_%ctx122368%_ (gx#current-expander-context))) + (lambda (_%key122470%_ _%syntax?122471%_ _%phi122472%_) + (let ((_%ctx122474%_ (gx#current-expander-context))) (gx#make-binding-id__% - _%key122364%_ - _%syntax?122365%_ - _%phi122366%_ - _%ctx122368%_)))) + _%key122470%_ + _%syntax?122471%_ + _%phi122472%_ + _%ctx122474%_)))) (define gx#make-binding-id - (lambda _g125389_ - (let ((_g125388_ (##length _g125389_))) - (cond ((##fx= _g125388_ 1) (apply gx#make-binding-id__0 _g125389_)) - ((##fx= _g125388_ 2) (apply gx#make-binding-id__1 _g125389_)) - ((##fx= _g125388_ 3) (apply gx#make-binding-id__2 _g125389_)) - ((##fx= _g125388_ 4) (apply gx#make-binding-id__% _g125389_)) + (lambda _g125495_ + (let ((_g125494_ (##length _g125495_))) + (cond ((##fx= _g125494_ 1) (apply gx#make-binding-id__0 _g125495_)) + ((##fx= _g125494_ 2) (apply gx#make-binding-id__1 _g125495_)) + ((##fx= _g125494_ 3) (apply gx#make-binding-id__2 _g125495_)) + ((##fx= _g125494_ 4) (apply gx#make-binding-id__% _g125495_)) (else (##raise-wrong-number-of-arguments-exception gx#make-binding-id - _g125389_)))))))) + _g125495_)))))))) diff --git a/src/bootstrap/gerbil/runtime/c3~0.scm b/src/bootstrap/gerbil/runtime/c3~0.scm index 06a37bdad..0610aecae 100644 --- a/src/bootstrap/gerbil/runtime/c3~0.scm +++ b/src/bootstrap/gerbil/runtime/c3~0.scm @@ -1,437 +1,437 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/c3::timestamp 1733870072) + (define gerbil/runtime/c3::timestamp 1734131745) (begin (define c4-linearize__% - (lambda (_%@@keywords94597%_ - _%get-precedence-list9459194598%_ - _%struct?9459294600%_ - _%eq9459394602%_ - _%get-name9459494604%_ - _%rhead94606%_ - _%supers94607%_) - (let* ((_%get-precedence-list94609%_ - (if (eq? _%get-precedence-list9459194598%_ absent-value) + (lambda (_%@@keywords94660%_ + _%get-precedence-list9465494661%_ + _%struct?9465594663%_ + _%eq9465694665%_ + _%get-name9465794667%_ + _%rhead94669%_ + _%supers94670%_) + (let* ((_%get-precedence-list94672%_ + (if (eq? _%get-precedence-list9465494661%_ absent-value) (error '"Missing required keyword argument" 'get-precedence-list:) - _%get-precedence-list9459194598%_)) - (_%struct?94611%_ - (if (eq? _%struct?9459294600%_ absent-value) + _%get-precedence-list9465494661%_)) + (_%struct?94674%_ + (if (eq? _%struct?9465594663%_ absent-value) (error '"Missing required keyword argument" 'struct:) - _%struct?9459294600%_)) - (_%eq94613%_ - (if (eq? _%eq9459394602%_ absent-value) eq? _%eq9459394602%_)) - (_%get-name94615%_ - (if (eq? _%get-name9459494604%_ absent-value) + _%struct?9465594663%_)) + (_%eq94676%_ + (if (eq? _%eq9465694665%_ absent-value) eq? _%eq9465694665%_)) + (_%get-name94678%_ + (if (eq? _%get-name9465794667%_ absent-value) identity - _%get-name9459494604%_))) - (letrec* ((_%pls94618%_ - (map _%get-precedence-list94609%_ _%supers94607%_)) - (_%sis94619%_ '()) - (_%get-names94620%_ - (lambda (_%lst94902%_) - (map _%get-name94615%_ _%lst94902%_))) - (_%err94621%_ - (lambda _%a94900%_ + _%get-name9465794667%_))) + (letrec* ((_%pls94681%_ + (map _%get-precedence-list94672%_ _%supers94670%_)) + (_%sis94682%_ '()) + (_%get-names94683%_ + (lambda (_%lst94965%_) + (map _%get-name94678%_ _%lst94965%_))) + (_%err94684%_ + (lambda _%a94963%_ (apply error '"Inconsistent precedence graph" 'head: - (_%get-names94620%_ (reverse _%rhead94606%_)) + (_%get-names94683%_ (reverse _%rhead94669%_)) 'precedence-lists: (let () (declare (not safe)) - (##map _%get-names94620%_ _%pls94618%_)) + (##map _%get-names94683%_ _%pls94681%_)) 'single-inheritance-suffix: - (_%get-names94620%_ _%sis94619%_) - _%a94900%_))) - (_%eqlist?94622%_ - (lambda (_%l194894%_ _%l294895%_) - (let ((_%$e94897%_ (eq? _%l194894%_ _%l294895%_))) - (if _%$e94897%_ - _%$e94897%_ + (_%get-names94683%_ _%sis94682%_) + _%a94963%_))) + (_%eqlist?94685%_ + (lambda (_%l194957%_ _%l294958%_) + (let ((_%$e94960%_ (eq? _%l194957%_ _%l294958%_))) + (if _%$e94960%_ + _%$e94960%_ (if (let () (declare (not safe)) - (andmap2 _%eq94613%_ - _%l194894%_ - _%l294895%_)) - (let ((__tmp94950 (length _%l194894%_)) - (__tmp94949 (length _%l294895%_))) + (andmap2 _%eq94676%_ + _%l194957%_ + _%l294958%_)) + (let ((__tmp95013 (length _%l194957%_)) + (__tmp95012 (length _%l294958%_))) (declare (not safe)) - (##fx= __tmp94950 __tmp94949)) + (##fx= __tmp95013 __tmp95012)) '#f))))) - (_%merge-sis!94623%_ - (lambda (_%sis294877%_) - (if (null? _%sis294877%_) + (_%merge-sis!94686%_ + (lambda (_%sis294940%_) + (if (null? _%sis294940%_) '#!void - (if (null? _%sis94619%_) - (set! _%sis94619%_ _%sis294877%_) - (let _%loop94882%_ ((_%t194884%_ _%sis94619%_) - (_%t294885%_ _%sis294877%_)) - (if (_%eqlist?94622%_ - _%t194884%_ - _%sis294877%_) + (if (null? _%sis94682%_) + (set! _%sis94682%_ _%sis294940%_) + (let _%loop94945%_ ((_%t194947%_ _%sis94682%_) + (_%t294948%_ _%sis294940%_)) + (if (_%eqlist?94685%_ + _%t194947%_ + _%sis294940%_) '#!void - (if (_%eqlist?94622%_ - _%t294885%_ - _%sis94619%_) - (set! _%sis94619%_ _%sis294877%_) - (if (or (null? _%t194884%_) - (null? _%t294885%_)) - (_%err94621%_ + (if (_%eqlist?94685%_ + _%t294948%_ + _%sis94682%_) + (set! _%sis94682%_ _%sis294940%_) + (if (or (null? _%t194947%_) + (null? _%t294948%_)) + (_%err94684%_ 'struct-incompatibility: - (cons (_%get-names94620%_ - _%sis94619%_) - (cons (_%get-names94620%_ - _%sis294877%_) + (cons (_%get-names94683%_ + _%sis94682%_) + (cons (_%get-names94683%_ + _%sis294940%_) '()))) - (_%loop94882%_ - (cdr _%t194884%_) - (cdr _%t294885%_)))))))))) - (_%rpls94624%_ - (let ((__tmp94951 - (lambda (_%pl94872%_) - (let ((_g94952_ + (_%loop94945%_ + (cdr _%t194947%_) + (cdr _%t294948%_)))))))))) + (_%rpls94687%_ + (let ((__tmp95014 + (lambda (_%pl94935%_) + (let ((_g95015_ (let () (declare (not safe)) (append-reverse-until - _%struct?94611%_ - _%pl94872%_ + _%struct?94674%_ + _%pl94935%_ '())))) (begin - (let ((_g94953_ + (let ((_g95016_ (let () (declare (not safe)) - (if (##values? _g94952_) - (##vector-length _g94952_) + (if (##values? _g95015_) + (##values-length _g95015_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94953_ 2))) + (##fx= _g95016_ 2))) (error "Context expects 2 values" - _g94953_))) - (let ((_%tl94874%_ + _g95016_))) + (let ((_%tl94937%_ (let () (declare (not safe)) - (##vector-ref _g94952_ 0))) - (_%rh94875%_ + (##values-ref _g95015_ 0))) + (_%rh94938%_ (let () (declare (not safe)) - (##vector-ref _g94952_ 1)))) + (##values-ref _g95015_ 1)))) (begin - (_%merge-sis!94623%_ _%tl94874%_) - _%rh94875%_))))))) + (_%merge-sis!94686%_ _%tl94937%_) + _%rh94938%_))))))) (declare (not safe)) - (##map __tmp94951 _%pls94618%_))) - (_%unsisr-rpl94625%_ - (lambda (_%rpl94818%_) - (let _%u94820%_ ((_%pl-rhead94822%_ _%rpl94818%_) - (_%pl-tail94823%_ '()) - (_%sis-rhead94824%_ - (reverse _%sis94619%_)) - (_%sis-tail94825%_ '())) - (let* ((_%pl-rhead9482694835%_ _%pl-rhead94822%_) - (_%E9482994839%_ + (##map __tmp95014 _%pls94681%_))) + (_%unsisr-rpl94688%_ + (lambda (_%rpl94881%_) + (let _%u94883%_ ((_%pl-rhead94885%_ _%rpl94881%_) + (_%pl-tail94886%_ '()) + (_%sis-rhead94887%_ + (reverse _%sis94682%_)) + (_%sis-tail94888%_ '())) + (let* ((_%pl-rhead9488994898%_ _%pl-rhead94885%_) + (_%E9489294902%_ (lambda () (error '"No clause matching" - _%pl-rhead9482694835%_ + _%pl-rhead9488994898%_ '([]) '([c . plrh])) '#!void))) - (let ((_%K9483394869%_ (lambda () _%pl-tail94823%_)) - (_%K9483094853%_ - (lambda (_%plrh94843%_ _%c94844%_) - (if (member _%c94844%_ - _%sis-tail94825%_ - _%eq94613%_) - (_%err94621%_ + (let ((_%K9489694932%_ (lambda () _%pl-tail94886%_)) + (_%K9489394916%_ + (lambda (_%plrh94906%_ _%c94907%_) + (if (member _%c94907%_ + _%sis-tail94888%_ + _%eq94676%_) + (_%err94684%_ 'precedence-list-head: - (_%get-names94620%_ - (reverse _%pl-rhead94822%_)) + (_%get-names94683%_ + (reverse _%pl-rhead94885%_)) 'precedence-list-tail: - (_%get-names94620%_ _%pl-tail94823%_) + (_%get-names94683%_ _%pl-tail94886%_) 'single-inheritance-head: - (_%get-names94620%_ - (reverse _%sis-rhead94824%_)) + (_%get-names94683%_ + (reverse _%sis-rhead94887%_)) 'single-inheritance-tail: - (_%get-names94620%_ _%sis-tail94825%_) + (_%get-names94683%_ _%sis-tail94888%_) 'super-out-of-order-vs-single-inheritance-tail: - (_%get-name94615%_ _%c94844%_)) - (let ((_g94954_ - (let ((__tmp94956 - (lambda (_%g9484594847%_) - (_%eq94613%_ - _%c94844%_ - _%g9484594847%_)))) + (_%get-name94678%_ _%c94907%_)) + (let ((_g95017_ + (let ((__tmp95019 + (lambda (_%g9490894910%_) + (_%eq94676%_ + _%c94907%_ + _%g9490894910%_)))) (declare (not safe)) (__append-reverse-until - __tmp94956 - _%sis-rhead94824%_ - _%sis-tail94825%_)))) + __tmp95019 + _%sis-rhead94887%_ + _%sis-tail94888%_)))) (begin - (let ((_g94955_ + (let ((_g95018_ (let () (declare (not safe)) - (if (##values? _g94954_) - (##vector-length - _g94954_) + (if (##values? _g95017_) + (##values-length + _g95017_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g94955_ 2))) + (##fx= _g95018_ 2))) (error "Context expects 2 values" - _g94955_))) - (let ((_%sis-rh294850%_ + _g95018_))) + (let ((_%sis-rh294913%_ (let () (declare (not safe)) - (##vector-ref - _g94954_ + (##values-ref + _g95017_ 0))) - (_%sis-tl294851%_ + (_%sis-tl294914%_ (let () (declare (not safe)) - (##vector-ref - _g94954_ + (##values-ref + _g95017_ 1)))) - (if (null? _%sis-rh294850%_) - (_%u94820%_ - _%plrh94843%_ - (cons _%c94844%_ - _%pl-tail94823%_) + (if (null? _%sis-rh294913%_) + (_%u94883%_ + _%plrh94906%_ + (cons _%c94907%_ + _%pl-tail94886%_) '() - _%sis-tl294851%_) - (_%u94820%_ - _%plrh94843%_ - _%pl-tail94823%_ - (cdr _%sis-rh294850%_) - _%sis-tl294851%_))))))))) - (let ((_%try-match9482894865%_ + _%sis-tl294914%_) + (_%u94883%_ + _%plrh94906%_ + _%pl-tail94886%_ + (cdr _%sis-rh294913%_) + _%sis-tl294914%_))))))))) + (let ((_%try-match9489194928%_ (lambda () - (if (pair? _%pl-rhead9482694835%_) - (let ((_%tl9483294858%_ + (if (pair? _%pl-rhead9488994898%_) + (let ((_%tl9489594921%_ (let () (declare (not safe)) - (##cdr _%pl-rhead9482694835%_))) - (_%hd9483194856%_ + (##cdr _%pl-rhead9488994898%_))) + (_%hd9489494919%_ (let () (declare (not safe)) - (##car _%pl-rhead9482694835%_)))) - (let ((_%c94861%_ _%hd9483194856%_) - (_%plrh94863%_ - _%tl9483294858%_)) - (_%K9483094853%_ - _%plrh94863%_ - _%c94861%_))) - (_%E9482994839%_))))) - (if (null? _%pl-rhead9482694835%_) - (_%K9483394869%_) - (_%try-match9482894865%_)))))))) - (_g94957_ - (let ((_g94958_ - (let ((__tmp94960 (reverse _%supers94607%_))) + (##car _%pl-rhead9488994898%_)))) + (let ((_%c94924%_ _%hd9489494919%_) + (_%plrh94926%_ + _%tl9489594921%_)) + (_%K9489394916%_ + _%plrh94926%_ + _%c94924%_))) + (_%E9489294902%_))))) + (if (null? _%pl-rhead9488994898%_) + (_%K9489694932%_) + (_%try-match9489194928%_)))))))) + (_g95020_ + (let ((_g95021_ + (let ((__tmp95023 (reverse _%supers94670%_))) (declare (not safe)) - (append1! _%rpls94624%_ __tmp94960)))) + (append1! _%rpls94687%_ __tmp95023)))) #!void - _g94958_)) - (_%hpls94626%_ + _g95021_)) + (_%hpls94689%_ (let () (declare (not safe)) - (##map _%unsisr-rpl94625%_ _%rpls94624%_))) - (_%c3-select-next94627%_ - (lambda (_%tails94768%_) - (let ((_%candidate?94774%_ - (lambda (_%c94770%_) - (let ((__tmp94961 - (lambda (_%tail94772%_) - (not (member _%c94770%_ - (cdr _%tail94772%_) - _%eq94613%_))))) + (##map _%unsisr-rpl94688%_ _%rpls94687%_))) + (_%c3-select-next94690%_ + (lambda (_%tails94831%_) + (let ((_%candidate?94837%_ + (lambda (_%c94833%_) + (let ((__tmp95024 + (lambda (_%tail94835%_) + (not (member _%c94833%_ + (cdr _%tail94835%_) + _%eq94676%_))))) (declare (not safe)) - (__andmap1 __tmp94961 _%tails94768%_))))) - (let _%loop94776%_ ((_%ts94778%_ _%tails94768%_)) - (let* ((_%ts9477994789%_ _%ts94778%_) - (_%else9478194797%_ - (lambda () (_%err94621%_))) - (_%K9478394803%_ - (lambda (_%rts94800%_ _%c94801%_) - (if (_%candidate?94774%_ _%c94801%_) - _%c94801%_ - (_%loop94776%_ _%rts94800%_))))) - (if (pair? _%ts9477994789%_) - (let ((_%hd9478494806%_ + (__andmap1 __tmp95024 _%tails94831%_))))) + (let _%loop94839%_ ((_%ts94841%_ _%tails94831%_)) + (let* ((_%ts9484294852%_ _%ts94841%_) + (_%else9484494860%_ + (lambda () (_%err94684%_))) + (_%K9484694866%_ + (lambda (_%rts94863%_ _%c94864%_) + (if (_%candidate?94837%_ _%c94864%_) + _%c94864%_ + (_%loop94839%_ _%rts94863%_))))) + (if (pair? _%ts9484294852%_) + (let ((_%hd9484794869%_ (let () (declare (not safe)) - (##car _%ts9477994789%_))) - (_%tl9478594808%_ + (##car _%ts9484294852%_))) + (_%tl9484894871%_ (let () (declare (not safe)) - (##cdr _%ts9477994789%_)))) - (if (pair? _%hd9478494806%_) - (let* ((_%hd9478694811%_ + (##cdr _%ts9484294852%_)))) + (if (pair? _%hd9484794869%_) + (let* ((_%hd9484994874%_ (let () (declare (not safe)) - (##car _%hd9478494806%_))) - (_%c94814%_ _%hd9478694811%_) - (_%rts94816%_ _%tl9478594808%_)) - (_%K9478394803%_ - _%rts94816%_ - _%c94814%_)) - (_%err94621%_))) - (_%err94621%_))))))) - (_%remove-next!94628%_ - (lambda (_%next94713%_ _%tails94714%_) - (let _%loop94716%_ ((_%t94718%_ _%tails94714%_)) - (let* ((_%t9471994730%_ _%t94718%_) - (_%E9472294734%_ + (##car _%hd9484794869%_))) + (_%c94877%_ _%hd9484994874%_) + (_%rts94879%_ _%tl9484894871%_)) + (_%K9484694866%_ + _%rts94879%_ + _%c94877%_)) + (_%err94684%_))) + (_%err94684%_))))))) + (_%remove-next!94691%_ + (lambda (_%next94776%_ _%tails94777%_) + (let _%loop94779%_ ((_%t94781%_ _%tails94777%_)) + (let* ((_%t9478294793%_ _%t94781%_) + (_%E9478594797%_ (lambda () (error '"No clause matching" - _%t9471994730%_ + _%t9478294793%_ '([]) '([[head . tail] . more])) '#!void))) - (let ((_%K9472894765%_ (lambda () _%tails94714%_)) - (_%K9472394742%_ - (lambda (_%more94738%_ - _%tail94739%_ - _%head94740%_) - (if (_%eq94613%_ - _%head94740%_ - _%next94713%_) - (set-car! _%t94718%_ _%tail94739%_) + (let ((_%K9479194828%_ (lambda () _%tails94777%_)) + (_%K9478694805%_ + (lambda (_%more94801%_ + _%tail94802%_ + _%head94803%_) + (if (_%eq94676%_ + _%head94803%_ + _%next94776%_) + (set-car! _%t94781%_ _%tail94802%_) '#!void) - (_%loop94716%_ _%more94738%_)))) - (let ((_%try-match9472194761%_ + (_%loop94779%_ _%more94801%_)))) + (let ((_%try-match9478494824%_ (lambda () - (if (pair? _%t9471994730%_) - (let ((_%tl9472594747%_ + (if (pair? _%t9478294793%_) + (let ((_%tl9478894810%_ (let () (declare (not safe)) - (##cdr _%t9471994730%_))) - (_%hd9472494745%_ + (##cdr _%t9478294793%_))) + (_%hd9478794808%_ (let () (declare (not safe)) - (##car _%t9471994730%_)))) - (if (pair? _%hd9472494745%_) - (let ((_%tl9472794752%_ + (##car _%t9478294793%_)))) + (if (pair? _%hd9478794808%_) + (let ((_%tl9479094815%_ (let () (declare (not safe)) - (##cdr _%hd9472494745%_))) - (_%hd9472694750%_ + (##cdr _%hd9478794808%_))) + (_%hd9478994813%_ (let () (declare (not safe)) - (##car _%hd9472494745%_)))) - (let ((_%head94755%_ - _%hd9472694750%_) - (_%tail94757%_ - _%tl9472794752%_) - (_%more94759%_ - _%tl9472594747%_)) - (_%K9472394742%_ - _%more94759%_ - _%tail94757%_ - _%head94755%_))) - (_%E9472294734%_))) - (_%E9472294734%_))))) - (if (null? _%t9471994730%_) - (_%K9472894765%_) - (_%try-match9472194761%_)))))))) - (_%precedence-list94629%_ - (if (null? _%supers94607%_) - (reverse _%rhead94606%_) - (if (null? (cdr _%supers94607%_)) - (append-reverse _%rhead94606%_ (car _%pls94618%_)) - (let _%c3loop94663%_ ((_%rhead94665%_ - _%rhead94606%_) - (_%tails94666%_ - _%hpls94626%_)) - (let* ((_%tails94668%_ + (##car _%hd9478794808%_)))) + (let ((_%head94818%_ + _%hd9478994813%_) + (_%tail94820%_ + _%tl9479094815%_) + (_%more94822%_ + _%tl9478894810%_)) + (_%K9478694805%_ + _%more94822%_ + _%tail94820%_ + _%head94818%_))) + (_%E9478594797%_))) + (_%E9478594797%_))))) + (if (null? _%t9478294793%_) + (_%K9479194828%_) + (_%try-match9478494824%_)))))))) + (_%precedence-list94692%_ + (if (null? _%supers94670%_) + (reverse _%rhead94669%_) + (if (null? (cdr _%supers94670%_)) + (append-reverse _%rhead94669%_ (car _%pls94681%_)) + (let _%c3loop94726%_ ((_%rhead94728%_ + _%rhead94669%_) + (_%tails94729%_ + _%hpls94689%_)) + (let* ((_%tails94731%_ (let () (declare (not safe)) - (remove-nulls! _%tails94666%_))) - (_%tails9466994679%_ _%tails94668%_) - (_%else9467294690%_ + (remove-nulls! _%tails94729%_))) + (_%tails9473294742%_ _%tails94731%_) + (_%else9473594753%_ (lambda () - (let ((_%next94687%_ - (_%c3-select-next94627%_ - _%tails94668%_))) - (_%c3loop94663%_ - (cons _%next94687%_ _%rhead94665%_) - (_%remove-next!94628%_ - _%next94687%_ - _%tails94668%_)))))) - (let ((_%K9467794710%_ + (let ((_%next94750%_ + (_%c3-select-next94690%_ + _%tails94731%_))) + (_%c3loop94726%_ + (cons _%next94750%_ _%rhead94728%_) + (_%remove-next!94691%_ + _%next94750%_ + _%tails94731%_)))))) + (let ((_%K9474094773%_ (lambda () (append-reverse - _%rhead94665%_ - _%sis94619%_))) - (_%K9467494696%_ - (lambda (_%tail94694%_) + _%rhead94728%_ + _%sis94682%_))) + (_%K9473794759%_ + (lambda (_%tail94757%_) (append-reverse - _%rhead94665%_ - (append _%tail94694%_ - _%sis94619%_))))) - (let ((_%try-match9467194706%_ + _%rhead94728%_ + (append _%tail94757%_ + _%sis94682%_))))) + (let ((_%try-match9473494769%_ (lambda () - (if (pair? _%tails9466994679%_) - (let ((_%tl9467694701%_ + (if (pair? _%tails9473294742%_) + (let ((_%tl9473994764%_ (let () (declare (not safe)) - (##cdr _%tails9466994679%_))) - (_%hd9467594699%_ + (##cdr _%tails9473294742%_))) + (_%hd9473894762%_ (let () (declare (not safe)) - (##car _%tails9466994679%_)))) - (if (null? _%tl9467694701%_) - (let ((_%tail94704%_ - _%hd9467594699%_)) - (_%K9467494696%_ - _%tail94704%_)) - (_%else9467294690%_))) - (_%else9467294690%_))))) - (if (null? _%tails9466994679%_) - (_%K9467794710%_) - (_%try-match9467194706%_))))))))) - (_%super-struct94630%_ - (let* ((_%sis9463194639%_ _%sis94619%_) - (_%else9463394647%_ (lambda () '#f)) - (_%K9463594652%_ (lambda (_%s94650%_) _%s94650%_))) - (if (pair? _%sis9463194639%_) - (let* ((_%hd9463694655%_ + (##car _%tails9473294742%_)))) + (if (null? _%tl9473994764%_) + (let ((_%tail94767%_ + _%hd9473894762%_)) + (_%K9473794759%_ + _%tail94767%_)) + (_%else9473594753%_))) + (_%else9473594753%_))))) + (if (null? _%tails9473294742%_) + (_%K9474094773%_) + (_%try-match9473494769%_))))))))) + (_%super-struct94693%_ + (let* ((_%sis9469494702%_ _%sis94682%_) + (_%else9469694710%_ (lambda () '#f)) + (_%K9469894715%_ (lambda (_%s94713%_) _%s94713%_))) + (if (pair? _%sis9469494702%_) + (let* ((_%hd9469994718%_ (let () (declare (not safe)) - (##car _%sis9463194639%_))) - (_%s94658%_ _%hd9463694655%_)) - (_%K9463594652%_ _%s94658%_)) - (_%else9463394647%_))))) - (values _%precedence-list94629%_ _%super-struct94630%_))))) + (##car _%sis9469494702%_))) + (_%s94721%_ _%hd9469994718%_)) + (_%K9469894715%_ _%s94721%_)) + (_%else9469694710%_))))) + (values _%precedence-list94692%_ _%super-struct94693%_))))) (define c4-linearize__@ - (lambda (_%@@keywords94907%_ . _%args94908%_) + (lambda (_%@@keywords94970%_ . _%args94971%_) (apply c4-linearize__% - _%@@keywords94907%_ + _%@@keywords94970%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94907%_ + _%@@keywords94970%_ 'get-precedence-list: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94907%_ + _%@@keywords94970%_ 'struct: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords94907%_ 'eq: absent-value)) + (symbolic-table-ref _%@@keywords94970%_ 'eq: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords94907%_ + _%@@keywords94970%_ 'get-name: absent-value)) - _%args94908%_))) + _%args94971%_))) (define c4-linearize - (lambda _%args9459594914%_ + (lambda _%args9465894977%_ (apply keyword-dispatch '#(#f get-name: struct: get-precedence-list: #f eq:) c4-linearize__@ - _%args9459594914%_))))) + _%args9465894977%_))))) diff --git a/src/bootstrap/gerbil/runtime/control~0.scm b/src/bootstrap/gerbil/runtime/control~0.scm index 9c2c2febe..53bd80fb3 100644 --- a/src/bootstrap/gerbil/runtime/control~0.scm +++ b/src/bootstrap/gerbil/runtime/control~0.scm @@ -1,12 +1,12 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/control::timestamp 1733870072) + (define gerbil/runtime/control::timestamp 1734131745) (begin (define make-promise - (lambda (_%thunk94304%_) - (if (procedure? _%thunk94304%_) - (let ((_%thunk94308%_ _%thunk94304%_)) - (__make-promise _%thunk94308%_)) + (lambda (_%thunk94367%_) + (if (procedure? _%thunk94367%_) + (let ((_%thunk94371%_ _%thunk94367%_)) + (__make-promise _%thunk94371%_)) (begin (raise-contract-violation-error '"contract violation" @@ -15,19 +15,19 @@ 'contract: 'procedure? 'value: - _%thunk94304%_) + _%thunk94367%_) '#!void)))) (define __make-promise - (lambda (_%thunk94292%_) - (let ((_%thunk94295%_ _%thunk94292%_)) + (lambda (_%thunk94355%_) + (let ((_%thunk94358%_ _%thunk94355%_)) (declare (not safe)) - (##make-delay-promise _%thunk94295%_)))) + (##make-delay-promise _%thunk94358%_)))) (define call-with-parameters - (lambda (_%thunk94277%_ . _%rest94278%_) - (if (procedure? _%thunk94277%_) - (let ((_%thunk94282%_ _%thunk94277%_)) + (lambda (_%thunk94340%_ . _%rest94341%_) + (if (procedure? _%thunk94340%_) + (let ((_%thunk94345%_ _%thunk94340%_)) (declare (not safe)) - (##apply __call-with-parameters _%thunk94282%_ _%rest94278%_)) + (##apply __call-with-parameters _%thunk94345%_ _%rest94341%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,74 +36,74 @@ 'contract: 'procedure? 'value: - _%thunk94277%_) + _%thunk94340%_) '#!void)))) (define __call-with-parameters - (lambda (_%thunk94215%_ . _%rest94216%_) - (let* ((_%thunk94219%_ _%thunk94215%_) - (_%rest9422794238%_ _%rest94216%_) - (_%E9423094242%_ + (lambda (_%thunk94278%_ . _%rest94279%_) + (let* ((_%thunk94282%_ _%thunk94278%_) + (_%rest9429094301%_ _%rest94279%_) + (_%E9429394305%_ (lambda () (error '"No clause matching" - _%rest9422794238%_ + _%rest9429094301%_ '([param val . rest]) '([])) '#!void))) - (let ((_%K9423294258%_ - (lambda (_%rest94253%_ _%val94254%_ _%param94255%_) - (let ((__tmp94330 - (if (null? _%rest94253%_) - _%thunk94219%_ + (let ((_%K9429594321%_ + (lambda (_%rest94316%_ _%val94317%_ _%param94318%_) + (let ((__tmp94393 + (if (null? _%rest94316%_) + _%thunk94282%_ (lambda () (apply call-with-parameters - _%thunk94219%_ - _%rest94253%_))))) + _%thunk94282%_ + _%rest94316%_))))) (declare (not safe)) (##parameterize1 - _%param94255%_ - _%val94254%_ - __tmp94330)))) - (_%K9423194247%_ - (lambda () (let () (declare (not safe)) (_%thunk94219%_))))) - (let ((_%try-match9422994250%_ + _%param94318%_ + _%val94317%_ + __tmp94393)))) + (_%K9429494310%_ + (lambda () (let () (declare (not safe)) (_%thunk94282%_))))) + (let ((_%try-match9429294313%_ (lambda () - (if (null? _%rest9422794238%_) - (let () (declare (not safe)) (_%thunk94219%_)) - (_%E9423094242%_))))) - (if (pair? _%rest9422794238%_) - (let ((_%tl9423494263%_ + (if (null? _%rest9429094301%_) + (let () (declare (not safe)) (_%thunk94282%_)) + (_%E9429394305%_))))) + (if (pair? _%rest9429094301%_) + (let ((_%tl9429794326%_ (let () (declare (not safe)) - (##cdr _%rest9422794238%_))) - (_%hd9423394261%_ + (##cdr _%rest9429094301%_))) + (_%hd9429694324%_ (let () (declare (not safe)) - (##car _%rest9422794238%_)))) - (if (pair? _%tl9423494263%_) - (let ((_%tl9423694270%_ + (##car _%rest9429094301%_)))) + (if (pair? _%tl9429794326%_) + (let ((_%tl9429994333%_ (let () (declare (not safe)) - (##cdr _%tl9423494263%_))) - (_%hd9423594268%_ + (##cdr _%tl9429794326%_))) + (_%hd9429894331%_ (let () (declare (not safe)) - (##car _%tl9423494263%_)))) - (let ((_%param94266%_ _%hd9423394261%_) - (_%val94273%_ _%hd9423594268%_) - (_%rest94275%_ _%tl9423694270%_)) - (_%K9423294258%_ - _%rest94275%_ - _%val94273%_ - _%param94266%_))) - (_%E9423094242%_))) - (_%try-match9422994250%_))))))) + (##car _%tl9429794326%_)))) + (let ((_%param94329%_ _%hd9429694324%_) + (_%val94336%_ _%hd9429894331%_) + (_%rest94338%_ _%tl9429994333%_)) + (_%K9429594321%_ + _%rest94338%_ + _%val94336%_ + _%param94329%_))) + (_%E9429394305%_))) + (_%try-match9429294313%_))))))) (define with-unwind-protect - (lambda (_%K94190%_ _%fini94191%_) - (if (procedure? _%K94190%_) - (let ((_%K94195%_ _%K94190%_)) - (if (procedure? _%fini94191%_) - (let ((_%fini94205%_ _%fini94191%_)) - (__with-unwind-protect _%K94195%_ _%fini94205%_)) + (lambda (_%K94253%_ _%fini94254%_) + (if (procedure? _%K94253%_) + (let ((_%K94258%_ _%K94253%_)) + (if (procedure? _%fini94254%_) + (let ((_%fini94268%_ _%fini94254%_)) + (__with-unwind-protect _%K94258%_ _%fini94268%_)) (begin (raise-contract-violation-error '"contract violation" @@ -112,7 +112,7 @@ 'contract: 'procedure? 'value: - _%fini94191%_) + _%fini94254%_) '#!void))) (begin (raise-contract-violation-error @@ -122,222 +122,222 @@ 'contract: 'procedure? 'value: - _%K94190%_) + _%K94253%_) '#!void)))) (define __with-unwind-protect - (lambda (_%K94164%_ _%fini94165%_) - (let* ((_%K94168%_ _%K94164%_) - (_%fini94177%_ _%fini94165%_) - (_%once94186%_ '#f) - (__tmp94331 + (lambda (_%K94227%_ _%fini94228%_) + (let* ((_%K94231%_ _%K94227%_) + (_%fini94240%_ _%fini94228%_) + (_%once94249%_ '#f) + (__tmp94394 (lambda () (declare (not interrupts-enabled)) - (if _%once94186%_ + (if _%once94249%_ (error '"Cannot re-enter unwind protected block") - (set! _%once94186%_ '#t))))) + (set! _%once94249%_ '#t))))) (declare (not safe)) - (##dynamic-wind __tmp94331 _%K94168%_ _%fini94177%_)))) + (##dynamic-wind __tmp94394 _%K94231%_ _%fini94240%_)))) (define keyword-dispatch - (lambda (_%kwt94057%_ _%K94058%_ . _%all-args94059%_) - (if _%kwt94057%_ - (if (vector? _%kwt94057%_) + (lambda (_%kwt94120%_ _%K94121%_ . _%all-args94122%_) + (if _%kwt94120%_ + (if (vector? _%kwt94120%_) '#!void - (error '"keyword-dispatch: expected vector" _%kwt94057%_)) + (error '"keyword-dispatch: expected vector" _%kwt94120%_)) '#!void) - (if (procedure? _%K94058%_) + (if (procedure? _%K94121%_) '#!void - (error '"keyword-dispatch: expected procedure" _%K94058%_)) - (let ((_%keys94061%_ + (error '"keyword-dispatch: expected procedure" _%K94121%_)) + (let ((_%keys94124%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%lp94063%_ ((_%rest94065%_ _%all-args94059%_) - (_%args94066%_ '#f) - (_%tail94067%_ '#f)) - (let* ((_%rest9406894076%_ _%rest94065%_) - (_%else9407094084%_ + (let _%lp94126%_ ((_%rest94128%_ _%all-args94122%_) + (_%args94129%_ '#f) + (_%tail94130%_ '#f)) + (let* ((_%rest9413194139%_ _%rest94128%_) + (_%else9413394147%_ (lambda () - (if _%args94066%_ + (if _%args94129%_ (begin (let () (declare (not safe)) - (##set-cdr! _%tail94067%_ '())) - (let ((__tmp94332 - (cons _%keys94061%_ _%args94066%_))) + (##set-cdr! _%tail94130%_ '())) + (let ((__tmp94395 + (cons _%keys94124%_ _%args94129%_))) (declare (not safe)) - (##apply _%K94058%_ __tmp94332))) - (_%K94058%_ _%keys94061%_)))) - (_%K9407294152%_ - (lambda (_%hd-rest94087%_ _%hd94088%_) - (if (keyword? _%hd94088%_) - (let* ((_%hd-rest9409094097%_ _%hd-rest94087%_) - (_%E9409294101%_ + (##apply _%K94121%_ __tmp94395))) + (_%K94121%_ _%keys94124%_)))) + (_%K9413594215%_ + (lambda (_%hd-rest94150%_ _%hd94151%_) + (if (keyword? _%hd94151%_) + (let* ((_%hd-rest9415394160%_ _%hd-rest94150%_) + (_%E9415594164%_ (lambda () (error '"No clause matching" - _%hd-rest9409094097%_ + _%hd-rest9415394160%_ '([val . rest])) '#!void)) - (_%K9409394109%_ - (lambda (_%rest94104%_ _%val94105%_) - (if _%kwt94057%_ - (let ((_%pos94107%_ - (let ((__tmp94334 + (_%K9415694172%_ + (lambda (_%rest94167%_ _%val94168%_) + (if _%kwt94120%_ + (let ((_%pos94170%_ + (let ((__tmp94397 (let () (declare (not safe)) (##keyword-hash - _%hd94088%_))) - (__tmp94333 + _%hd94151%_))) + (__tmp94396 (let () (declare (not safe)) (##vector-length - _%kwt94057%_)))) + _%kwt94120%_)))) (declare (not safe)) (##fxmodulo - __tmp94334 - __tmp94333)))) - (if (eq? _%hd94088%_ + __tmp94397 + __tmp94396)))) + (if (eq? _%hd94151%_ (let () (declare (not safe)) (##vector-ref - _%kwt94057%_ - _%pos94107%_))) + _%kwt94120%_ + _%pos94170%_))) '#!void (error '"Unexpected keyword argument" - _%K94058%_ - _%hd94088%_))) + _%K94121%_ + _%hd94151%_))) '#!void) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%keys94061%_ - _%hd94088%_ + _%keys94124%_ + _%hd94151%_ absent-value)) absent-value) '#!void (error '"Duplicate keyword argument" - _%K94058%_ - _%hd94088%_)) + _%K94121%_ + _%hd94151%_)) (let () (declare (not safe)) (symbolic-table-set! - _%keys94061%_ - _%hd94088%_ - _%val94105%_)) - (_%lp94063%_ - _%rest94104%_ - _%args94066%_ - _%tail94067%_)))) - (if (pair? _%hd-rest9409094097%_) - (let ((_%hd9409494112%_ + _%keys94124%_ + _%hd94151%_ + _%val94168%_)) + (_%lp94126%_ + _%rest94167%_ + _%args94129%_ + _%tail94130%_)))) + (if (pair? _%hd-rest9415394160%_) + (let ((_%hd9415794175%_ (let () (declare (not safe)) - (##car _%hd-rest9409094097%_))) - (_%tl9409594114%_ + (##car _%hd-rest9415394160%_))) + (_%tl9415894177%_ (let () (declare (not safe)) - (##cdr _%hd-rest9409094097%_)))) - (let* ((_%val94117%_ _%hd9409494112%_) - (_%rest94119%_ _%tl9409594114%_)) - (_%K9409394109%_ - _%rest94119%_ - _%val94117%_))) - (_%E9409294101%_))) - (if (eq? _%hd94088%_ '#!key) - (let* ((_%hd-rest9412194128%_ _%hd-rest94087%_) - (_%E9412394132%_ + (##cdr _%hd-rest9415394160%_)))) + (let* ((_%val94180%_ _%hd9415794175%_) + (_%rest94182%_ _%tl9415894177%_)) + (_%K9415694172%_ + _%rest94182%_ + _%val94180%_))) + (_%E9415594164%_))) + (if (eq? _%hd94151%_ '#!key) + (let* ((_%hd-rest9418494191%_ _%hd-rest94150%_) + (_%E9418694195%_ (lambda () (error '"No clause matching" - _%hd-rest9412194128%_ + _%hd-rest9418494191%_ '([val . rest])) '#!void)) - (_%K9412494138%_ - (lambda (_%rest94135%_ _%val94136%_) - (if _%args94066%_ + (_%K9418794201%_ + (lambda (_%rest94198%_ _%val94199%_) + (if _%args94129%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail94067%_ - _%hd-rest94087%_)) - (_%lp94063%_ - _%rest94135%_ - _%args94066%_ - _%hd-rest94087%_)) - (_%lp94063%_ - _%rest94135%_ - _%hd-rest94087%_ - _%hd-rest94087%_))))) - (if (pair? _%hd-rest9412194128%_) - (let ((_%hd9412594141%_ + _%tail94130%_ + _%hd-rest94150%_)) + (_%lp94126%_ + _%rest94198%_ + _%args94129%_ + _%hd-rest94150%_)) + (_%lp94126%_ + _%rest94198%_ + _%hd-rest94150%_ + _%hd-rest94150%_))))) + (if (pair? _%hd-rest9418494191%_) + (let ((_%hd9418894204%_ (let () (declare (not safe)) - (##car _%hd-rest9412194128%_))) - (_%tl9412694143%_ + (##car _%hd-rest9418494191%_))) + (_%tl9418994206%_ (let () (declare (not safe)) - (##cdr _%hd-rest9412194128%_)))) - (let* ((_%val94146%_ _%hd9412594141%_) - (_%rest94148%_ _%tl9412694143%_)) - (_%K9412494138%_ - _%rest94148%_ - _%val94146%_))) - (_%E9412394132%_))) - (if (eq? _%hd94088%_ '#!rest) - (if _%args94066%_ + (##cdr _%hd-rest9418494191%_)))) + (let* ((_%val94209%_ _%hd9418894204%_) + (_%rest94211%_ _%tl9418994206%_)) + (_%K9418794201%_ + _%rest94211%_ + _%val94209%_))) + (_%E9418694195%_))) + (if (eq? _%hd94151%_ '#!rest) + (if _%args94129%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail94067%_ - _%hd-rest94087%_)) - (let ((__tmp94335 - (cons _%keys94061%_ - _%args94066%_))) + _%tail94130%_ + _%hd-rest94150%_)) + (let ((__tmp94398 + (cons _%keys94124%_ + _%args94129%_))) (declare (not safe)) - (##apply _%K94058%_ __tmp94335))) - (let ((__tmp94336 - (cons _%keys94061%_ - _%hd-rest94087%_))) + (##apply _%K94121%_ __tmp94398))) + (let ((__tmp94399 + (cons _%keys94124%_ + _%hd-rest94150%_))) (declare (not safe)) - (##apply _%K94058%_ __tmp94336))) - (if _%args94066%_ + (##apply _%K94121%_ __tmp94399))) + (if _%args94129%_ (begin (let () (declare (not safe)) (##set-cdr! - _%tail94067%_ - _%rest94065%_)) - (_%lp94063%_ - _%hd-rest94087%_ - _%args94066%_ - _%rest94065%_)) - (_%lp94063%_ - _%hd-rest94087%_ - _%rest94065%_ - _%rest94065%_)))))))) - (if (pair? _%rest9406894076%_) - (let ((_%hd9407394155%_ + _%tail94130%_ + _%rest94128%_)) + (_%lp94126%_ + _%hd-rest94150%_ + _%args94129%_ + _%rest94128%_)) + (_%lp94126%_ + _%hd-rest94150%_ + _%rest94128%_ + _%rest94128%_)))))))) + (if (pair? _%rest9413194139%_) + (let ((_%hd9413694218%_ (let () (declare (not safe)) - (##car _%rest9406894076%_))) - (_%tl9407494157%_ + (##car _%rest9413194139%_))) + (_%tl9413794220%_ (let () (declare (not safe)) - (##cdr _%rest9406894076%_)))) - (let* ((_%hd94160%_ _%hd9407394155%_) - (_%hd-rest94162%_ _%tl9407494157%_)) - (_%K9407294152%_ _%hd-rest94162%_ _%hd94160%_))) - (_%else9407094084%_))))))) + (##cdr _%rest9413194139%_)))) + (let* ((_%hd94223%_ _%hd9413694218%_) + (_%hd-rest94225%_ _%tl9413794220%_)) + (_%K9413594215%_ _%hd-rest94225%_ _%hd94223%_))) + (_%else9413394147%_))))))) (define keyword-rest - (lambda (_%kwt94049%_ . _%drop94050%_) - (let ((_%rest94052%_ '())) - (let ((__tmp94337 - (lambda (_%k94054%_ _%v94055%_) + (lambda (_%kwt94112%_ . _%drop94113%_) + (let ((_%rest94115%_ '())) + (let ((__tmp94400 + (lambda (_%k94117%_ _%v94118%_) (if (let () (declare (not safe)) - (##memq _%k94054%_ _%drop94050%_)) + (##memq _%k94117%_ _%drop94113%_)) '#!void - (set! _%rest94052%_ - (cons _%k94054%_ - (cons _%v94055%_ _%rest94052%_))))))) + (set! _%rest94115%_ + (cons _%k94117%_ + (cons _%v94118%_ _%rest94115%_))))))) (declare (not safe)) - (raw-table-for-each _%kwt94049%_ __tmp94337)) - _%rest94052%_))))) + (raw-table-for-each _%kwt94112%_ __tmp94400)) + _%rest94115%_))))) diff --git a/src/bootstrap/gerbil/runtime/error.ssxi.ss b/src/bootstrap/gerbil/runtime/error.ssxi.ss index 21b2b0022..302ed0b8b 100644 --- a/src/bootstrap/gerbil/runtime/error.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/error.ssxi.ss @@ -62,8 +62,8 @@ package: gerbil/runtime #f #f #f - ((display-exception . Error::display-exception) - (:init! . Error:::init!)))) + ((:init! . Error:::init!) + (display-exception . Error::display-exception)))) (declare-type Error::t (optimizer-resolve-class '(typedecl Error::t) 'class::t)) diff --git a/src/bootstrap/gerbil/runtime/error~0.scm b/src/bootstrap/gerbil/runtime/error~0.scm index 07d3e3fed..0008fbabc 100644 --- a/src/bootstrap/gerbil/runtime/error~0.scm +++ b/src/bootstrap/gerbil/runtime/error~0.scm @@ -1,37 +1,37 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/error::timestamp 1733870073) + (define gerbil/runtime/error::timestamp 1734131745) (begin (define Exception::t - (let ((__tmp104024 (list))) + (let ((__tmp104130 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Exception::t 'Exception - __tmp104024 + __tmp104130 '() '() '#f))) (define Exception? (let () (declare (not safe)) (__make-class-predicate Exception::t))) (define make-Exception - (lambda _%$args103994%_ - (apply make-instance Exception::t _%$args103994%_))) + (lambda _%$args104100%_ + (apply make-instance Exception::t _%$args104100%_))) (define StackTrace::t - (let ((__tmp104025 (list))) + (let ((__tmp104131 (list))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#StackTrace::t 'StackTrace - __tmp104025 + __tmp104131 '(continuation) '() '#f))) (define StackTrace? (let () (declare (not safe)) (__make-class-predicate StackTrace::t))) (define make-StackTrace - (lambda _%$args103991%_ - (apply make-instance StackTrace::t _%$args103991%_))) + (lambda _%$args104097%_ + (apply make-instance StackTrace::t _%$args104097%_))) (define StackTrace-continuation (let () (declare (not safe)) @@ -49,19 +49,19 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator StackTrace::t 'continuation))) (define Error::t - (let ((__tmp104026 (list StackTrace::t Exception::t))) + (let ((__tmp104132 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#Error::t 'Error - __tmp104026 + __tmp104132 '(message irritants where) '((transparent: . #t)) ':init!))) (define Error? (let () (declare (not safe)) (__make-class-predicate Error::t))) (define make-Error - (lambda _%$args103988%_ (apply make-instance Error::t _%$args103988%_))) + (lambda _%$args104094%_ (apply make-instance Error::t _%$args104094%_))) (define Error-message (let () (declare (not safe)) @@ -127,12 +127,12 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator Error::t 'continuation))) (define ContractViolation::t - (let ((__tmp104027 (list Error::t))) + (let ((__tmp104133 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#ContractViolation::t 'ContractViolation - __tmp104027 + __tmp104133 '() '() '#f))) @@ -141,8 +141,8 @@ (declare (not safe)) (__make-class-predicate ContractViolation::t))) (define make-ContractViolation - (lambda _%$args103985%_ - (apply make-instance ContractViolation::t _%$args103985%_))) + (lambda _%$args104091%_ + (apply make-instance ContractViolation::t _%$args104091%_))) (define ContractViolation-message (let () (declare (not safe)) @@ -214,12 +214,12 @@ ContractViolation::t 'continuation))) (define RuntimeException::t - (let ((__tmp104028 (list StackTrace::t Exception::t))) + (let ((__tmp104134 (list StackTrace::t Exception::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/error#RuntimeException::t 'RuntimeException - __tmp104028 + __tmp104134 '(exception) '((transparent: . #t)) '#f))) @@ -228,8 +228,8 @@ (declare (not safe)) (__make-class-predicate RuntimeException::t))) (define make-RuntimeException - (lambda _%$args103982%_ - (apply make-instance RuntimeException::t _%$args103982%_))) + (lambda _%$args104088%_ + (apply make-instance RuntimeException::t _%$args104088%_))) (define RuntimeException-exception (let () (declare (not safe)) @@ -267,118 +267,118 @@ RuntimeException::t 'continuation))) (define gerbil-exception-handler-hook - (lambda (_%exn103977%_ _%continue103978%_) - (let ((_%exn103980%_ (wrap-runtime-exception _%exn103977%_))) + (lambda (_%exn104083%_ _%continue104084%_) + (let ((_%exn104086%_ (wrap-runtime-exception _%exn104083%_))) (declare (not safe)) - (##repl-exception-handler-hook _%exn103980%_ _%continue103978%_)))) + (##repl-exception-handler-hook _%exn104086%_ _%continue104084%_)))) (let () (declare (not safe)) (##primordial-exception-handler-hook-set! gerbil-exception-handler-hook)) (define raise - (lambda (_%exn103973%_) + (lambda (_%exn104079%_) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn103973%_)) + (class-instance? StackTrace::t _%exn104079%_)) (if (let () (declare (not safe)) - (unchecked-slot-ref _%exn103973%_ 'continuation)) + (unchecked-slot-ref _%exn104079%_ 'continuation)) '#!void - (let ((__tmp104029 - (lambda (_%cont103975%_) + (let ((__tmp104135 + (lambda (_%cont104081%_) (let () (declare (not safe)) (unchecked-slot-set! - _%exn103973%_ + _%exn104079%_ 'continuation - _%cont103975%_))))) + _%cont104081%_))))) (declare (not safe)) - (##continuation-capture __tmp104029))) + (##continuation-capture __tmp104135))) '#!void) - (let () (declare (not safe)) (##raise _%exn103973%_)))) + (let () (declare (not safe)) (##raise _%exn104079%_)))) (define error - (lambda (_%message103970%_ . _%irritants103971%_) - (raise (let ((__obj104021 + (lambda (_%message104076%_ . _%irritants104077%_) + (raise (let ((__obj104127 (let () (declare (not safe)) (##structure Error::t '#f '#f '#f '#f)))) (Error:::init! - __obj104021 - _%message103970%_ + __obj104127 + _%message104076%_ 'irritants: - _%irritants103971%_) - __obj104021)))) + _%irritants104077%_) + __obj104127)))) (define __raise-contract-violation-error__% - (lambda (_%@@keywords103942%_ - _%ctx103937103943%_ - _%contract-expr103938103945%_ - _%value103939103947%_ - _%message103949%_) - (let* ((_%ctx103951%_ - (if (eq? _%ctx103937103943%_ absent-value) + (lambda (_%@@keywords104048%_ + _%ctx104043104049%_ + _%contract-expr104044104051%_ + _%value104045104053%_ + _%message104055%_) + (let* ((_%ctx104057%_ + (if (eq? _%ctx104043104049%_ absent-value) '#f - _%ctx103937103943%_)) - (_%contract-expr103953%_ - (if (eq? _%contract-expr103938103945%_ absent-value) + _%ctx104043104049%_)) + (_%contract-expr104059%_ + (if (eq? _%contract-expr104044104051%_ absent-value) '#f - _%contract-expr103938103945%_)) - (_%value103955%_ - (if (eq? _%value103939103947%_ absent-value) + _%contract-expr104044104051%_)) + (_%value104061%_ + (if (eq? _%value104045104053%_ absent-value) '#f - _%value103939103947%_))) - (raise (let ((__obj104022 + _%value104045104053%_))) + (raise (let ((__obj104128 (let () (declare (not safe)) (##structure ContractViolation::t '#f '#f '#f '#f)))) (ContractViolation:::init! - __obj104022 - _%message103949%_ + __obj104128 + _%message104055%_ 'where: - _%ctx103951%_ + _%ctx104057%_ 'irritants: (cons 'contract: - (cons _%contract-expr103953%_ - (cons 'value: (cons _%value103955%_ '()))))) - __obj104022))))) + (cons _%contract-expr104059%_ + (cons 'value: (cons _%value104061%_ '()))))) + __obj104128))))) (define __raise-contract-violation-error__@ - (lambda (_%@@keywords103960%_ . _%args103961%_) + (lambda (_%@@keywords104066%_ . _%args104067%_) (apply __raise-contract-violation-error__% - _%@@keywords103960%_ + _%@@keywords104066%_ (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103960%_ + _%@@keywords104066%_ 'context: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103960%_ + _%@@keywords104066%_ 'contract: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords103960%_ + _%@@keywords104066%_ 'value: absent-value)) - _%args103961%_))) + _%args104067%_))) (define __raise-contract-violation-error - (lambda _%args103940103967%_ + (lambda _%args104046104073%_ (apply keyword-dispatch '#(context: #f value: contract:) __raise-contract-violation-error__@ - _%args103940103967%_))) + _%args104046104073%_))) (set! raise-contract-violation-error __raise-contract-violation-error) (define contract-violation-error? ContractViolation?) (define with-exception-handler - (lambda (_%handler103911%_ _%thunk103912%_) - (if (procedure? _%handler103911%_) - (let ((_%handler103916%_ _%handler103911%_)) - (if (procedure? _%thunk103912%_) - (let ((_%thunk103926%_ _%thunk103912%_)) + (lambda (_%handler104017%_ _%thunk104018%_) + (if (procedure? _%handler104017%_) + (let ((_%handler104022%_ _%handler104017%_)) + (if (procedure? _%thunk104018%_) + (let ((_%thunk104032%_ _%thunk104018%_)) (__with-exception-handler - _%handler103916%_ - _%thunk103926%_)) + _%handler104022%_ + _%thunk104032%_)) (begin (raise-contract-violation-error '"contract violation" @@ -387,7 +387,7 @@ 'contract: 'procedure? 'value: - _%thunk103912%_) + _%thunk104018%_) '#!void))) (begin (raise-contract-violation-error @@ -397,26 +397,26 @@ 'contract: 'procedure? 'value: - _%handler103911%_) + _%handler104017%_) '#!void)))) (define __with-exception-handler - (lambda (_%handler103886%_ _%thunk103887%_) - (let* ((_%handler103890%_ _%handler103886%_) - (_%thunk103898%_ _%thunk103887%_) - (__tmp104030 - (lambda (_%exn103907%_) - (let ((_%exn103909%_ (wrap-runtime-exception _%exn103907%_))) + (lambda (_%handler103992%_ _%thunk103993%_) + (let* ((_%handler103996%_ _%handler103992%_) + (_%thunk104004%_ _%thunk103993%_) + (__tmp104136 + (lambda (_%exn104013%_) + (let ((_%exn104015%_ (wrap-runtime-exception _%exn104013%_))) (declare (not safe)) - (_%handler103890%_ _%exn103909%_))))) + (_%handler103996%_ _%exn104015%_))))) (declare (not safe)) - (##with-exception-handler __tmp104030 _%thunk103898%_)))) + (##with-exception-handler __tmp104136 _%thunk104004%_)))) (define with-catch - (lambda (_%handler103861%_ _%thunk103862%_) - (if (procedure? _%handler103861%_) - (let ((_%handler103866%_ _%handler103861%_)) - (if (procedure? _%thunk103862%_) - (let ((_%thunk103876%_ _%thunk103862%_)) - (__with-catch _%handler103866%_ _%thunk103876%_)) + (lambda (_%handler103967%_ _%thunk103968%_) + (if (procedure? _%handler103967%_) + (let ((_%handler103972%_ _%handler103967%_)) + (if (procedure? _%thunk103968%_) + (let ((_%thunk103982%_ _%thunk103968%_)) + (__with-catch _%handler103972%_ _%thunk103982%_)) (begin (raise-contract-violation-error '"contract violation" @@ -425,7 +425,7 @@ 'contract: 'procedure? 'value: - _%thunk103862%_) + _%thunk103968%_) '#!void))) (begin (raise-contract-violation-error @@ -435,38 +435,38 @@ 'contract: 'procedure? 'value: - _%handler103861%_) + _%handler103967%_) '#!void)))) (define __with-catch - (lambda (_%handler103836%_ _%thunk103837%_) - (let* ((_%handler103840%_ _%handler103836%_) - (_%thunk103848%_ _%thunk103837%_) - (__tmp104031 - (lambda (_%cont103857%_) + (lambda (_%handler103942%_ _%thunk103943%_) + (let* ((_%handler103946%_ _%handler103942%_) + (_%thunk103954%_ _%thunk103943%_) + (__tmp104137 + (lambda (_%cont103963%_) (__with-exception-handler - (lambda (_%exn103859%_) + (lambda (_%exn103965%_) (let () (declare (not safe)) (##continuation-graft - _%cont103857%_ - _%handler103840%_ - _%exn103859%_))) - _%thunk103848%_)))) + _%cont103963%_ + _%handler103946%_ + _%exn103965%_))) + _%thunk103954%_)))) (declare (not safe)) - (##continuation-capture __tmp104031)))) + (##continuation-capture __tmp104137)))) (define with-exception-catcher with-catch) (define wrap-runtime-exception - (lambda (_%exn103823%_) - (if (or (heap-overflow-exception? _%exn103823%_) - (stack-overflow-exception? _%exn103823%_)) - _%exn103823%_ + (lambda (_%exn103929%_) + (if (or (heap-overflow-exception? _%exn103929%_) + (stack-overflow-exception? _%exn103929%_)) + _%exn103929%_ (if (let () (declare (not safe)) - (class-instance? Exception::t _%exn103823%_)) - _%exn103823%_ - (if (macro-exception? _%exn103823%_) - (let ((_%rte103831%_ - (let ((__obj104023 + (class-instance? Exception::t _%exn103929%_)) + _%exn103929%_ + (if (macro-exception? _%exn103929%_) + (let ((_%rte103937%_ + (let ((__obj104129 (let () (declare (not safe)) (##structure @@ -476,141 +476,141 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104023 - _%exn103823%_ + __obj104129 + _%exn103929%_ '2 '#f '#f)) - __obj104023))) - (let ((__tmp104032 - (lambda (_%cont103833%_) - (let ((__tmp104033 + __obj104129))) + (let ((__tmp104138 + (lambda (_%cont103939%_) + (let ((__tmp104139 (let () (declare (not safe)) - (##continuation-next _%cont103833%_)))) + (##continuation-next _%cont103939%_)))) (declare (not safe)) (unchecked-slot-set! - _%rte103831%_ + _%rte103937%_ 'continuation - __tmp104033))))) + __tmp104139))))) (declare (not safe)) - (##continuation-capture __tmp104032)) - _%rte103831%_) - _%exn103823%_))))) + (##continuation-capture __tmp104138)) + _%rte103937%_) + _%exn103929%_))))) (define exception? Exception?) (define error? Error?) (define error-object? - (lambda (_%obj103818%_) - (let ((_%$e103820%_ + (lambda (_%obj103924%_) + (let ((_%$e103926%_ (let () (declare (not safe)) - (class-instance? Error::t _%obj103818%_)))) - (if _%$e103820%_ _%$e103820%_ (error-exception? _%obj103818%_))))) + (class-instance? Error::t _%obj103924%_)))) + (if _%$e103926%_ _%$e103926%_ (error-exception? _%obj103924%_))))) (define error-message - (lambda (_%obj103811%_) - (let ((_%$e103813%_ + (lambda (_%obj103917%_) + (let ((_%$e103919%_ (let () (declare (not safe)) - (__slot-ref__% _%obj103811%_ 'message false)))) - (if _%$e103813%_ - _%$e103813%_ - (if (error-exception? _%obj103811%_) - (error-exception-message _%obj103811%_) + (__slot-ref__% _%obj103917%_ 'message false)))) + (if _%$e103919%_ + _%$e103919%_ + (if (error-exception? _%obj103917%_) + (error-exception-message _%obj103917%_) '#f))))) (define error-irritants - (lambda (_%obj103806%_) + (lambda (_%obj103912%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103806%_)) + (class-instance? Error::t _%obj103912%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103806%_ 'irritants)) - (if (error-exception? _%obj103806%_) - (error-exception-parameters _%obj103806%_) + (unchecked-slot-ref _%obj103912%_ 'irritants)) + (if (error-exception? _%obj103912%_) + (error-exception-parameters _%obj103912%_) '#f)))) (define error-trace - (lambda (_%obj103804%_) + (lambda (_%obj103910%_) (if (let () (declare (not safe)) - (class-instance? Error::t _%obj103804%_)) + (class-instance? Error::t _%obj103910%_)) (let () (declare (not safe)) - (unchecked-slot-ref _%obj103804%_ 'where)) + (unchecked-slot-ref _%obj103910%_ 'where)) '#f))) (define display-exception__% - (lambda (_%e103785%_ _%port103786%_) - (let ((_%$e103788%_ + (lambda (_%e103891%_ _%port103892%_) + (let ((_%$e103894%_ (let () (declare (not safe)) - (__method-ref _%e103785%_ 'display-exception)))) - (if _%$e103788%_ - ((lambda (_%f103791%_) (_%f103791%_ _%e103785%_ _%port103786%_)) - _%$e103788%_) + (__method-ref _%e103891%_ 'display-exception)))) + (if _%$e103894%_ + ((lambda (_%f103897%_) (_%f103897%_ _%e103891%_ _%port103892%_)) + _%$e103894%_) (let () (declare (not safe)) - (##default-display-exception _%e103785%_ _%port103786%_)))))) + (##default-display-exception _%e103891%_ _%port103892%_)))))) (define display-exception__0 - (lambda (_%e103797%_) - (let ((_%port103799%_ (current-error-port))) - (display-exception__% _%e103797%_ _%port103799%_)))) + (lambda (_%e103903%_) + (let ((_%port103905%_ (current-error-port))) + (display-exception__% _%e103903%_ _%port103905%_)))) (define display-exception - (lambda _g104035_ - (let ((_g104034_ (let () (declare (not safe)) (##length _g104035_)))) - (cond ((let () (declare (not safe)) (##fx= _g104034_ 1)) - (apply display-exception__0 _g104035_)) - ((let () (declare (not safe)) (##fx= _g104034_ 2)) - (apply display-exception__% _g104035_)) + (lambda _g104141_ + (let ((_g104140_ (let () (declare (not safe)) (##length _g104141_)))) + (cond ((let () (declare (not safe)) (##fx= _g104140_ 1)) + (apply display-exception__0 _g104141_)) + ((let () (declare (not safe)) (##fx= _g104140_ 2)) + (apply display-exception__% _g104141_)) (else (##raise-wrong-number-of-arguments-exception display-exception - _g104035_)))))) + _g104141_)))))) (let () (declare (not safe)) (##display-exception-hook-set! display-exception)) (define Error:::init! - (lambda (_%self102154103761%_ _%message103763%_ . _%rest103764%_) - (let* ((_%self103766%_ _%self102154103761%_) - (_%self103768%_ _%self103766%_) - (_%message103782%_ - (if (string? _%message103763%_) - _%message103763%_ + (lambda (_%self102260103867%_ _%message103869%_ . _%rest103870%_) + (let* ((_%self103872%_ _%self102260103867%_) + (_%self103874%_ _%self103872%_) + (_%message103888%_ + (if (string? _%message103869%_) + _%message103869%_ (call-with-output-string '"" - (lambda (_%g103777103779%_) - (display _%message103763%_ _%g103777103779%_)))))) + (lambda (_%g103883103885%_) + (display _%message103869%_ _%g103883103885%_)))))) (let () (declare (not safe)) - (unchecked-slot-set! _%self103768%_ 'message _%message103782%_)) - (apply class-instance-init! _%self103768%_ _%rest103764%_)))) + (unchecked-slot-set! _%self103874%_ 'message _%message103888%_)) + (apply class-instance-init! _%self103874%_ _%rest103870%_)))) (define Error:::init!::specialize - (lambda (__klass103996 __method-table103997) - (let ((__message103998 - (let ((__slot103999 + (lambda (__klass104102 __method-table104103) + (let ((__message104104 + (let ((__slot104105 (let () (declare (not safe)) - (class-slot-offset __klass103996 'message)))) - (if __slot103999 - __slot103999 + (class-slot-offset __klass104102 'message)))) + (if __slot104105 + __slot104105 (error '"Unknown slot" 'message))))) - (lambda (_%self102154103761%_ _%message103763%_ . _%rest103764%_) - (let* ((_%self103766%_ _%self102154103761%_) - (_%self103768%_ _%self103766%_) - (_%message103782%_ - (if (string? _%message103763%_) - _%message103763%_ + (lambda (_%self102260103867%_ _%message103869%_ . _%rest103870%_) + (let* ((_%self103872%_ _%self102260103867%_) + (_%self103874%_ _%self103872%_) + (_%message103888%_ + (if (string? _%message103869%_) + _%message103869%_ (call-with-output-string '"" - (lambda (_%g103777103779%_) - (display _%message103763%_ _%g103777103779%_)))))) + (lambda (_%g103883103885%_) + (display _%message103869%_ _%g103883103885%_)))))) (let () (declare (not safe)) (##unchecked-structure-set! - _%self103768%_ - _%message103782%_ - __message103998 + _%self103874%_ + _%message103888%_ + __message104104 '#f '#f)) - (apply class-instance-init! _%self103768%_ _%rest103764%_)))))) + (apply class-instance-init! _%self103874%_ _%rest103870%_)))))) (let () (declare (not safe)) (bind-specializer! Error:::init! Error:::init!::specialize)) @@ -627,224 +627,224 @@ '#f)) (define dump-stack-trace? (make-parameter '#f)) (define Error::display-exception - (lambda (_%self102155103483%_ _%port103485%_) - (let* ((_%self103487%_ _%self102155103483%_) - (_%self103489%_ _%self103487%_)) - (let ((_%tmp-port103499%_ (open-output-string)) - (_%display-error-newline103500%_ - (> (output-port-column _%port103485%_) '0))) - (fix-port-width! _%tmp-port103499%_) - (let ((__tmp104036 + (lambda (_%self102261103589%_ _%port103591%_) + (let* ((_%self103593%_ _%self102261103589%_) + (_%self103595%_ _%self103593%_)) + (let ((_%tmp-port103605%_ (open-output-string)) + (_%display-error-newline103606%_ + (> (output-port-column _%port103591%_) '0))) + (fix-port-width! _%tmp-port103605%_) + (let ((__tmp104142 (lambda () - (if _%display-error-newline103500%_ (newline) '#!void) + (if _%display-error-newline103606%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103503%_ + (let ((_%$e103609%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103489%_ 'where)))) - (if _%$e103503%_ (display _%$e103503%_) (display '"?"))) - (let ((__tmp104037 - (let ((__tmp104038 + (unchecked-slot-ref _%self103595%_ 'where)))) + (if _%$e103609%_ (display _%$e103609%_) (display '"?"))) + (let ((__tmp104143 + (let ((__tmp104144 (let () (declare (not safe)) - (object-type _%self103489%_)))) + (object-type _%self103595%_)))) (declare (not safe)) - (##type-name __tmp104038)))) + (##type-name __tmp104144)))) (declare (not safe)) - (display* '" [" __tmp104037 '"]: ")) - (let ((__tmp104039 + (display* '" [" __tmp104143 '"]: ")) + (let ((__tmp104145 (let () (declare (not safe)) - (unchecked-slot-ref _%self103489%_ 'message)))) + (unchecked-slot-ref _%self103595%_ 'message)))) (declare (not safe)) - (displayln __tmp104039)) - (let ((_%irritants103507%_ + (displayln __tmp104145)) + (let ((_%irritants103613%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103489%_ 'irritants)))) - (if (null? _%irritants103507%_) + (unchecked-slot-ref _%self103595%_ 'irritants)))) + (if (null? _%irritants103613%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103509%_) - (if (u8vector? _%obj103509%_) - (let ((__tmp104040 + (lambda (_%obj103615%_) + (if (u8vector? _%obj103615%_) + (let ((__tmp104146 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103509%_)) + _%obj103615%_)) '())))) (declare (not safe)) - (##write __tmp104040)) + (##write __tmp104146)) (let () (declare (not safe)) - (##write _%obj103509%_))) + (##write _%obj103615%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103507%_) + _%irritants103613%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103510103512%_ + (let ((_%cont103616103618%_ (let () (declare (not safe)) (unchecked-slot-ref - _%self103489%_ + _%self103595%_ 'continuation)))) - (if _%cont103510103512%_ - (let ((_%cont103515%_ _%cont103510103512%_)) + (if _%cont103616103618%_ + (let ((_%cont103621%_ _%cont103616103618%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103515%_)) + _%cont103621%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp104036 + __tmp104142 current-output-port - _%tmp-port103499%_)) - (let ((__tmp104041 (get-output-string _%tmp-port103499%_))) + _%tmp-port103605%_)) + (let ((__tmp104147 (get-output-string _%tmp-port103605%_))) (declare (not safe)) - (##write-string __tmp104041 _%port103485%_)))))) + (##write-string __tmp104147 _%port103591%_)))))) (define Error::display-exception::specialize - (lambda (__klass104000 __method-table104001) - (let ((__where104002 - (let ((__slot104006 + (lambda (__klass104106 __method-table104107) + (let ((__where104108 + (let ((__slot104112 (let () (declare (not safe)) - (class-slot-offset __klass104000 'where)))) - (if __slot104006 - __slot104006 + (class-slot-offset __klass104106 'where)))) + (if __slot104112 + __slot104112 (error '"Unknown slot" 'where)))) - (__irritants104003 - (let ((__slot104007 + (__continuation104109 + (let ((__slot104113 (let () (declare (not safe)) - (class-slot-offset __klass104000 'irritants)))) - (if __slot104007 - __slot104007 - (error '"Unknown slot" 'irritants)))) - (__continuation104004 - (let ((__slot104008 + (class-slot-offset __klass104106 'continuation)))) + (if __slot104113 + __slot104113 + (error '"Unknown slot" 'continuation)))) + (__irritants104110 + (let ((__slot104114 (let () (declare (not safe)) - (class-slot-offset __klass104000 'continuation)))) - (if __slot104008 - __slot104008 - (error '"Unknown slot" 'continuation)))) - (__message104005 - (let ((__slot104009 + (class-slot-offset __klass104106 'irritants)))) + (if __slot104114 + __slot104114 + (error '"Unknown slot" 'irritants)))) + (__message104111 + (let ((__slot104115 (let () (declare (not safe)) - (class-slot-offset __klass104000 'message)))) - (if __slot104009 - __slot104009 + (class-slot-offset __klass104106 'message)))) + (if __slot104115 + __slot104115 (error '"Unknown slot" 'message))))) - (lambda (_%self102155103483%_ _%port103485%_) - (let* ((_%self103487%_ _%self102155103483%_) - (_%self103489%_ _%self103487%_)) - (let ((_%tmp-port103499%_ (open-output-string)) - (_%display-error-newline103500%_ - (> (output-port-column _%port103485%_) '0))) - (fix-port-width! _%tmp-port103499%_) - (let ((__tmp104042 + (lambda (_%self102261103589%_ _%port103591%_) + (let* ((_%self103593%_ _%self102261103589%_) + (_%self103595%_ _%self103593%_)) + (let ((_%tmp-port103605%_ (open-output-string)) + (_%display-error-newline103606%_ + (> (output-port-column _%port103591%_) '0))) + (fix-port-width! _%tmp-port103605%_) + (let ((__tmp104148 (lambda () - (if _%display-error-newline103500%_ (newline) '#!void) + (if _%display-error-newline103606%_ (newline) '#!void) (display '"*** ERROR IN ") - (let ((_%$e103503%_ + (let ((_%$e103609%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103489%_ - __where104002 + _%self103595%_ + __where104108 '#f '#f)))) - (if _%$e103503%_ - (display _%$e103503%_) + (if _%$e103609%_ + (display _%$e103609%_) (display '"?"))) - (let ((__tmp104043 - (let ((__tmp104044 + (let ((__tmp104149 + (let ((__tmp104150 (let () (declare (not safe)) - (object-type _%self103489%_)))) + (object-type _%self103595%_)))) (declare (not safe)) - (##type-name __tmp104044)))) + (##type-name __tmp104150)))) (declare (not safe)) - (display* '" [" __tmp104043 '"]: ")) - (let ((__tmp104045 + (display* '" [" __tmp104149 '"]: ")) + (let ((__tmp104151 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103489%_ - __message104005 + _%self103595%_ + __message104111 '#f '#f)))) (declare (not safe)) - (displayln __tmp104045)) - (let ((_%irritants103507%_ + (displayln __tmp104151)) + (let ((_%irritants103613%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103489%_ - __irritants104003 + _%self103595%_ + __irritants104110 '#f '#f)))) - (if (null? _%irritants103507%_) + (if (null? _%irritants103613%_) '#!void (begin (display '"--- irritants: ") (for-each - (lambda (_%obj103509%_) - (if (u8vector? _%obj103509%_) - (let ((__tmp104046 + (lambda (_%obj103615%_) + (if (u8vector? _%obj103615%_) + (let ((__tmp104152 (cons ' (cons (let () (declare (not safe)) (##u8vector-length - _%obj103509%_)) + _%obj103615%_)) '())))) (declare (not safe)) - (##write __tmp104046)) + (##write __tmp104152)) (let () (declare (not safe)) - (##write _%obj103509%_))) + (##write _%obj103615%_))) (let () (declare (not safe)) (##write-char '#\space))) - _%irritants103507%_) + _%irritants103613%_) (newline)))) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103510103512%_ + (let ((_%cont103616103618%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103489%_ - __continuation104004 + _%self103595%_ + __continuation104109 '#f '#f)))) - (if _%cont103510103512%_ - (let ((_%cont103515%_ _%cont103510103512%_)) + (if _%cont103616103618%_ + (let ((_%cont103621%_ _%cont103616103618%_)) (let () (declare (not safe)) (displayln '"--- continuation backtrace:")) (display-continuation-backtrace - _%cont103515%_)) + _%cont103621%_)) '#f)) '#!void)))) (declare (not safe)) (__call-with-parameters - __tmp104042 + __tmp104148 current-output-port - _%tmp-port103499%_)) - (let ((__tmp104047 (get-output-string _%tmp-port103499%_))) + _%tmp-port103605%_)) + (let ((__tmp104153 (get-output-string _%tmp-port103605%_))) (declare (not safe)) - (##write-string __tmp104047 _%port103485%_)))))))) + (##write-string __tmp104153 _%port103591%_)))))))) (let () (declare (not safe)) (bind-specializer! @@ -858,90 +858,90 @@ Error::display-exception '#t)) (define RuntimeException::display-exception - (lambda (_%self102156103337%_ _%port103339%_) - (let* ((_%self103341%_ _%self102156103337%_) - (_%self103343%_ _%self103341%_) - (_%tmp-port103353%_ (open-output-string))) - (fix-port-width! _%tmp-port103353%_) - (let ((__tmp104048 + (lambda (_%self102262103443%_ _%port103445%_) + (let* ((_%self103447%_ _%self102262103443%_) + (_%self103449%_ _%self103447%_) + (_%tmp-port103459%_ (open-output-string))) + (fix-port-width! _%tmp-port103459%_) + (let ((__tmp104154 (let () (declare (not safe)) - (unchecked-slot-ref _%self103343%_ 'exception)))) + (unchecked-slot-ref _%self103449%_ 'exception)))) (declare (not safe)) - (##default-display-exception __tmp104048 _%tmp-port103353%_)) + (##default-display-exception __tmp104154 _%tmp-port103459%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103354103356%_ + (let ((_%cont103460103462%_ (let () (declare (not safe)) - (unchecked-slot-ref _%self103343%_ 'continuation)))) - (if _%cont103354103356%_ - (let ((_%cont103359%_ _%cont103354103356%_)) + (unchecked-slot-ref _%self103449%_ 'continuation)))) + (if _%cont103460103462%_ + (let ((_%cont103465%_ _%cont103460103462%_)) (display '"--- continuation backtrace:" - _%tmp-port103353%_) - (newline _%tmp-port103353%_) + _%tmp-port103459%_) + (newline _%tmp-port103459%_) (display-continuation-backtrace - _%cont103359%_ - _%tmp-port103353%_)) + _%cont103465%_ + _%tmp-port103459%_)) '#f)) '#!void) - (let ((__tmp104049 (get-output-string _%tmp-port103353%_))) + (let ((__tmp104155 (get-output-string _%tmp-port103459%_))) (declare (not safe)) - (##write-string __tmp104049 _%port103339%_))))) + (##write-string __tmp104155 _%port103445%_))))) (define RuntimeException::display-exception::specialize - (lambda (__klass104010 __method-table104011) - (let ((__continuation104012 - (let ((__slot104014 + (lambda (__klass104116 __method-table104117) + (let ((__continuation104118 + (let ((__slot104120 (let () (declare (not safe)) - (class-slot-offset __klass104010 'continuation)))) - (if __slot104014 - __slot104014 + (class-slot-offset __klass104116 'continuation)))) + (if __slot104120 + __slot104120 (error '"Unknown slot" 'continuation)))) - (__exception104013 - (let ((__slot104015 + (__exception104119 + (let ((__slot104121 (let () (declare (not safe)) - (class-slot-offset __klass104010 'exception)))) - (if __slot104015 - __slot104015 + (class-slot-offset __klass104116 'exception)))) + (if __slot104121 + __slot104121 (error '"Unknown slot" 'exception))))) - (lambda (_%self102156103337%_ _%port103339%_) - (let* ((_%self103341%_ _%self102156103337%_) - (_%self103343%_ _%self103341%_) - (_%tmp-port103353%_ (open-output-string))) - (fix-port-width! _%tmp-port103353%_) - (let ((__tmp104050 + (lambda (_%self102262103443%_ _%port103445%_) + (let* ((_%self103447%_ _%self102262103443%_) + (_%self103449%_ _%self103447%_) + (_%tmp-port103459%_ (open-output-string))) + (fix-port-width! _%tmp-port103459%_) + (let ((__tmp104156 (let () (declare (not safe)) (##unchecked-structure-ref - _%self103343%_ - __exception104013 + _%self103449%_ + __exception104119 '#f '#f)))) (declare (not safe)) - (##default-display-exception __tmp104050 _%tmp-port103353%_)) + (##default-display-exception __tmp104156 _%tmp-port103459%_)) (if (let () (declare (not safe)) (dump-stack-trace?)) - (let ((_%cont103354103356%_ + (let ((_%cont103460103462%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%self103343%_ - __continuation104012 + _%self103449%_ + __continuation104118 '#f '#f)))) - (if _%cont103354103356%_ - (let ((_%cont103359%_ _%cont103354103356%_)) + (if _%cont103460103462%_ + (let ((_%cont103465%_ _%cont103460103462%_)) (display '"--- continuation backtrace:" - _%tmp-port103353%_) - (newline _%tmp-port103353%_) + _%tmp-port103459%_) + (newline _%tmp-port103459%_) (display-continuation-backtrace - _%cont103359%_ - _%tmp-port103353%_)) + _%cont103465%_ + _%tmp-port103459%_)) '#f)) '#!void) - (let ((__tmp104051 (get-output-string _%tmp-port103353%_))) + (let ((__tmp104157 (get-output-string _%tmp-port103459%_))) (declare (not safe)) - (##write-string __tmp104051 _%port103339%_))))))) + (##write-string __tmp104157 _%port103445%_))))))) (let () (declare (not safe)) (bind-specializer! @@ -955,2636 +955,2636 @@ RuntimeException::display-exception '#f)) (define fix-port-width! - (lambda (_%port103209%_) - (if (macro-character-port? _%port103209%_) - (let ((_%old-width103211%_ - (macro-character-port-output-width _%port103209%_))) + (lambda (_%port103315%_) + (if (macro-character-port? _%port103315%_) + (let ((_%old-width103317%_ + (macro-character-port-output-width _%port103315%_))) (macro-character-port-output-width-set! - _%port103209%_ - (lambda (_%port103213%_) '256)) - _%old-width103211%_) + _%port103315%_ + (lambda (_%port103319%_) '256)) + _%old-width103317%_) '#!void))) (define reset-port-width! - (lambda (_%port103206%_ _%old-width103207%_) - (if (macro-character-port? _%port103206%_) + (lambda (_%port103312%_ _%old-width103313%_) + (if (macro-character-port? _%port103312%_) (macro-character-port-output-width-set! - _%port103206%_ - _%old-width103207%_) + _%port103312%_ + _%old-width103313%_) '#!void))) (define datum-parsing-exception-filepos - (lambda (_%e103204%_) - (macro-readenv-filepos (datum-parsing-exception-readenv _%e103204%_)))) + (lambda (_%e103310%_) + (macro-readenv-filepos (datum-parsing-exception-readenv _%e103310%_)))) (define abandoned-mutex-exception? - (lambda (_%exn103198%_) + (lambda (_%exn103304%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103198%_)) - (let ((_%e103201%_ + (class-instance? RuntimeException::t _%exn103304%_)) + (let ((_%e103307%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103198%_ 'exception)))) - (macro-abandoned-mutex-exception? _%e103201%_)) - (macro-abandoned-mutex-exception? _%exn103198%_)))) + (unchecked-slot-ref _%exn103304%_ 'exception)))) + (macro-abandoned-mutex-exception? _%e103307%_)) + (macro-abandoned-mutex-exception? _%exn103304%_)))) (define cfun-conversion-exception? - (lambda (_%exn103194%_) + (lambda (_%exn103300%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103194%_)) - (let ((_%e103196%_ + (class-instance? RuntimeException::t _%exn103300%_)) + (let ((_%e103302%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103194%_ 'exception)))) - (macro-cfun-conversion-exception? _%e103196%_)) - (macro-cfun-conversion-exception? _%exn103194%_)))) + (unchecked-slot-ref _%exn103300%_ 'exception)))) + (macro-cfun-conversion-exception? _%e103302%_)) + (macro-cfun-conversion-exception? _%exn103300%_)))) (define cfun-conversion-exception-arguments - (lambda (_%exn103190%_) + (lambda (_%exn103296%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103190%_)) - (let ((_%e103192%_ + (class-instance? RuntimeException::t _%exn103296%_)) + (let ((_%e103298%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103190%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103192%_) - (macro-cfun-conversion-exception-arguments _%e103192%_) + (unchecked-slot-ref _%exn103296%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103298%_) + (macro-cfun-conversion-exception-arguments _%e103298%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%e103192%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103190%_) - (macro-cfun-conversion-exception-arguments _%exn103190%_) + (cons _%e103298%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103296%_) + (macro-cfun-conversion-exception-arguments _%exn103296%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-arguments - (cons _%exn103190%_ '()))))))) + (cons _%exn103296%_ '()))))))) (define cfun-conversion-exception-code - (lambda (_%exn103186%_) + (lambda (_%exn103292%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103186%_)) - (let ((_%e103188%_ + (class-instance? RuntimeException::t _%exn103292%_)) + (let ((_%e103294%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103186%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103188%_) - (macro-cfun-conversion-exception-code _%e103188%_) + (unchecked-slot-ref _%exn103292%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103294%_) + (macro-cfun-conversion-exception-code _%e103294%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%e103188%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103186%_) - (macro-cfun-conversion-exception-code _%exn103186%_) + (cons _%e103294%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103292%_) + (macro-cfun-conversion-exception-code _%exn103292%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-code - (cons _%exn103186%_ '()))))))) + (cons _%exn103292%_ '()))))))) (define cfun-conversion-exception-message - (lambda (_%exn103182%_) + (lambda (_%exn103288%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103182%_)) - (let ((_%e103184%_ + (class-instance? RuntimeException::t _%exn103288%_)) + (let ((_%e103290%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103182%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103184%_) - (macro-cfun-conversion-exception-message _%e103184%_) + (unchecked-slot-ref _%exn103288%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103290%_) + (macro-cfun-conversion-exception-message _%e103290%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%e103184%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103182%_) - (macro-cfun-conversion-exception-message _%exn103182%_) + (cons _%e103290%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103288%_) + (macro-cfun-conversion-exception-message _%exn103288%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-message - (cons _%exn103182%_ '()))))))) + (cons _%exn103288%_ '()))))))) (define cfun-conversion-exception-procedure - (lambda (_%exn103176%_) + (lambda (_%exn103282%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103176%_)) - (let ((_%e103179%_ + (class-instance? RuntimeException::t _%exn103282%_)) + (let ((_%e103285%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103176%_ 'exception)))) - (if (macro-cfun-conversion-exception? _%e103179%_) - (macro-cfun-conversion-exception-procedure _%e103179%_) + (unchecked-slot-ref _%exn103282%_ 'exception)))) + (if (macro-cfun-conversion-exception? _%e103285%_) + (macro-cfun-conversion-exception-procedure _%e103285%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%e103179%_ '()))))) - (if (macro-cfun-conversion-exception? _%exn103176%_) - (macro-cfun-conversion-exception-procedure _%exn103176%_) + (cons _%e103285%_ '()))))) + (if (macro-cfun-conversion-exception? _%exn103282%_) + (macro-cfun-conversion-exception-procedure _%exn103282%_) (error '"not an instance" 'cfun-conversion-exception? (cons 'cfun-conversion-exception-procedure - (cons _%exn103176%_ '()))))))) + (cons _%exn103282%_ '()))))))) (define datum-parsing-exception? - (lambda (_%exn103172%_) + (lambda (_%exn103278%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103172%_)) - (let ((_%e103174%_ + (class-instance? RuntimeException::t _%exn103278%_)) + (let ((_%e103280%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103172%_ 'exception)))) - (macro-datum-parsing-exception? _%e103174%_)) - (macro-datum-parsing-exception? _%exn103172%_)))) + (unchecked-slot-ref _%exn103278%_ 'exception)))) + (macro-datum-parsing-exception? _%e103280%_)) + (macro-datum-parsing-exception? _%exn103278%_)))) (define datum-parsing-exception-kind - (lambda (_%exn103168%_) + (lambda (_%exn103274%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103168%_)) - (let ((_%e103170%_ + (class-instance? RuntimeException::t _%exn103274%_)) + (let ((_%e103276%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103168%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103170%_) - (macro-datum-parsing-exception-kind _%e103170%_) + (unchecked-slot-ref _%exn103274%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103276%_) + (macro-datum-parsing-exception-kind _%e103276%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%e103170%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103168%_) - (macro-datum-parsing-exception-kind _%exn103168%_) + (cons _%e103276%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103274%_) + (macro-datum-parsing-exception-kind _%exn103274%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-kind - (cons _%exn103168%_ '()))))))) + (cons _%exn103274%_ '()))))))) (define datum-parsing-exception-parameters - (lambda (_%exn103164%_) + (lambda (_%exn103270%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103164%_)) - (let ((_%e103166%_ + (class-instance? RuntimeException::t _%exn103270%_)) + (let ((_%e103272%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103164%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103166%_) - (macro-datum-parsing-exception-parameters _%e103166%_) + (unchecked-slot-ref _%exn103270%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103272%_) + (macro-datum-parsing-exception-parameters _%e103272%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%e103166%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103164%_) - (macro-datum-parsing-exception-parameters _%exn103164%_) + (cons _%e103272%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103270%_) + (macro-datum-parsing-exception-parameters _%exn103270%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-parameters - (cons _%exn103164%_ '()))))))) + (cons _%exn103270%_ '()))))))) (define datum-parsing-exception-readenv - (lambda (_%exn103158%_) + (lambda (_%exn103264%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103158%_)) - (let ((_%e103161%_ + (class-instance? RuntimeException::t _%exn103264%_)) + (let ((_%e103267%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103158%_ 'exception)))) - (if (macro-datum-parsing-exception? _%e103161%_) - (macro-datum-parsing-exception-readenv _%e103161%_) + (unchecked-slot-ref _%exn103264%_ 'exception)))) + (if (macro-datum-parsing-exception? _%e103267%_) + (macro-datum-parsing-exception-readenv _%e103267%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%e103161%_ '()))))) - (if (macro-datum-parsing-exception? _%exn103158%_) - (macro-datum-parsing-exception-readenv _%exn103158%_) + (cons _%e103267%_ '()))))) + (if (macro-datum-parsing-exception? _%exn103264%_) + (macro-datum-parsing-exception-readenv _%exn103264%_) (error '"not an instance" 'datum-parsing-exception? (cons 'datum-parsing-exception-readenv - (cons _%exn103158%_ '()))))))) + (cons _%exn103264%_ '()))))))) (define deadlock-exception? - (lambda (_%exn103152%_) + (lambda (_%exn103258%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103152%_)) - (let ((_%e103155%_ + (class-instance? RuntimeException::t _%exn103258%_)) + (let ((_%e103261%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103152%_ 'exception)))) - (macro-deadlock-exception? _%e103155%_)) - (macro-deadlock-exception? _%exn103152%_)))) + (unchecked-slot-ref _%exn103258%_ 'exception)))) + (macro-deadlock-exception? _%e103261%_)) + (macro-deadlock-exception? _%exn103258%_)))) (define divide-by-zero-exception? - (lambda (_%exn103148%_) + (lambda (_%exn103254%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103148%_)) - (let ((_%e103150%_ + (class-instance? RuntimeException::t _%exn103254%_)) + (let ((_%e103256%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103148%_ 'exception)))) - (macro-divide-by-zero-exception? _%e103150%_)) - (macro-divide-by-zero-exception? _%exn103148%_)))) + (unchecked-slot-ref _%exn103254%_ 'exception)))) + (macro-divide-by-zero-exception? _%e103256%_)) + (macro-divide-by-zero-exception? _%exn103254%_)))) (define divide-by-zero-exception-arguments - (lambda (_%exn103144%_) + (lambda (_%exn103250%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103144%_)) - (let ((_%e103146%_ + (class-instance? RuntimeException::t _%exn103250%_)) + (let ((_%e103252%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103144%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e103146%_) - (macro-divide-by-zero-exception-arguments _%e103146%_) + (unchecked-slot-ref _%exn103250%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e103252%_) + (macro-divide-by-zero-exception-arguments _%e103252%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%e103146%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn103144%_) - (macro-divide-by-zero-exception-arguments _%exn103144%_) + (cons _%e103252%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn103250%_) + (macro-divide-by-zero-exception-arguments _%exn103250%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-arguments - (cons _%exn103144%_ '()))))))) + (cons _%exn103250%_ '()))))))) (define divide-by-zero-exception-procedure - (lambda (_%exn103138%_) + (lambda (_%exn103244%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103138%_)) - (let ((_%e103141%_ + (class-instance? RuntimeException::t _%exn103244%_)) + (let ((_%e103247%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103138%_ 'exception)))) - (if (macro-divide-by-zero-exception? _%e103141%_) - (macro-divide-by-zero-exception-procedure _%e103141%_) + (unchecked-slot-ref _%exn103244%_ 'exception)))) + (if (macro-divide-by-zero-exception? _%e103247%_) + (macro-divide-by-zero-exception-procedure _%e103247%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%e103141%_ '()))))) - (if (macro-divide-by-zero-exception? _%exn103138%_) - (macro-divide-by-zero-exception-procedure _%exn103138%_) + (cons _%e103247%_ '()))))) + (if (macro-divide-by-zero-exception? _%exn103244%_) + (macro-divide-by-zero-exception-procedure _%exn103244%_) (error '"not an instance" 'divide-by-zero-exception? (cons 'divide-by-zero-exception-procedure - (cons _%exn103138%_ '()))))))) + (cons _%exn103244%_ '()))))))) (define error-exception? - (lambda (_%exn103134%_) + (lambda (_%exn103240%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103134%_)) - (let ((_%e103136%_ + (class-instance? RuntimeException::t _%exn103240%_)) + (let ((_%e103242%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103134%_ 'exception)))) - (macro-error-exception? _%e103136%_)) - (macro-error-exception? _%exn103134%_)))) + (unchecked-slot-ref _%exn103240%_ 'exception)))) + (macro-error-exception? _%e103242%_)) + (macro-error-exception? _%exn103240%_)))) (define error-exception-message - (lambda (_%exn103130%_) + (lambda (_%exn103236%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103130%_)) - (let ((_%e103132%_ + (class-instance? RuntimeException::t _%exn103236%_)) + (let ((_%e103238%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103130%_ 'exception)))) - (if (macro-error-exception? _%e103132%_) - (macro-error-exception-message _%e103132%_) + (unchecked-slot-ref _%exn103236%_ 'exception)))) + (if (macro-error-exception? _%e103238%_) + (macro-error-exception-message _%e103238%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%e103132%_ '()))))) - (if (macro-error-exception? _%exn103130%_) - (macro-error-exception-message _%exn103130%_) + (cons _%e103238%_ '()))))) + (if (macro-error-exception? _%exn103236%_) + (macro-error-exception-message _%exn103236%_) (error '"not an instance" 'error-exception? (cons 'error-exception-message - (cons _%exn103130%_ '()))))))) + (cons _%exn103236%_ '()))))))) (define error-exception-parameters - (lambda (_%exn103124%_) + (lambda (_%exn103230%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103124%_)) - (let ((_%e103127%_ + (class-instance? RuntimeException::t _%exn103230%_)) + (let ((_%e103233%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103124%_ 'exception)))) - (if (macro-error-exception? _%e103127%_) - (macro-error-exception-parameters _%e103127%_) + (unchecked-slot-ref _%exn103230%_ 'exception)))) + (if (macro-error-exception? _%e103233%_) + (macro-error-exception-parameters _%e103233%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%e103127%_ '()))))) - (if (macro-error-exception? _%exn103124%_) - (macro-error-exception-parameters _%exn103124%_) + (cons _%e103233%_ '()))))) + (if (macro-error-exception? _%exn103230%_) + (macro-error-exception-parameters _%exn103230%_) (error '"not an instance" 'error-exception? (cons 'error-exception-parameters - (cons _%exn103124%_ '()))))))) + (cons _%exn103230%_ '()))))))) (define expression-parsing-exception? - (lambda (_%exn103120%_) + (lambda (_%exn103226%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103120%_)) - (let ((_%e103122%_ + (class-instance? RuntimeException::t _%exn103226%_)) + (let ((_%e103228%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103120%_ 'exception)))) - (macro-expression-parsing-exception? _%e103122%_)) - (macro-expression-parsing-exception? _%exn103120%_)))) + (unchecked-slot-ref _%exn103226%_ 'exception)))) + (macro-expression-parsing-exception? _%e103228%_)) + (macro-expression-parsing-exception? _%exn103226%_)))) (define expression-parsing-exception-kind - (lambda (_%exn103116%_) + (lambda (_%exn103222%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103116%_)) - (let ((_%e103118%_ + (class-instance? RuntimeException::t _%exn103222%_)) + (let ((_%e103224%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103116%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103118%_) - (macro-expression-parsing-exception-kind _%e103118%_) + (unchecked-slot-ref _%exn103222%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103224%_) + (macro-expression-parsing-exception-kind _%e103224%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%e103118%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103116%_) - (macro-expression-parsing-exception-kind _%exn103116%_) + (cons _%e103224%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103222%_) + (macro-expression-parsing-exception-kind _%exn103222%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-kind - (cons _%exn103116%_ '()))))))) + (cons _%exn103222%_ '()))))))) (define expression-parsing-exception-parameters - (lambda (_%exn103112%_) + (lambda (_%exn103218%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103112%_)) - (let ((_%e103114%_ + (class-instance? RuntimeException::t _%exn103218%_)) + (let ((_%e103220%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103112%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103114%_) - (macro-expression-parsing-exception-parameters _%e103114%_) + (unchecked-slot-ref _%exn103218%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103220%_) + (macro-expression-parsing-exception-parameters _%e103220%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%e103114%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103112%_) - (macro-expression-parsing-exception-parameters _%exn103112%_) + (cons _%e103220%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103218%_) + (macro-expression-parsing-exception-parameters _%exn103218%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-parameters - (cons _%exn103112%_ '()))))))) + (cons _%exn103218%_ '()))))))) (define expression-parsing-exception-source - (lambda (_%exn103106%_) + (lambda (_%exn103212%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103106%_)) - (let ((_%e103109%_ + (class-instance? RuntimeException::t _%exn103212%_)) + (let ((_%e103215%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103106%_ 'exception)))) - (if (macro-expression-parsing-exception? _%e103109%_) - (macro-expression-parsing-exception-source _%e103109%_) + (unchecked-slot-ref _%exn103212%_ 'exception)))) + (if (macro-expression-parsing-exception? _%e103215%_) + (macro-expression-parsing-exception-source _%e103215%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%e103109%_ '()))))) - (if (macro-expression-parsing-exception? _%exn103106%_) - (macro-expression-parsing-exception-source _%exn103106%_) + (cons _%e103215%_ '()))))) + (if (macro-expression-parsing-exception? _%exn103212%_) + (macro-expression-parsing-exception-source _%exn103212%_) (error '"not an instance" 'expression-parsing-exception? (cons 'expression-parsing-exception-source - (cons _%exn103106%_ '()))))))) + (cons _%exn103212%_ '()))))))) (define file-exists-exception? - (lambda (_%exn103102%_) + (lambda (_%exn103208%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103102%_)) - (let ((_%e103104%_ + (class-instance? RuntimeException::t _%exn103208%_)) + (let ((_%e103210%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103102%_ 'exception)))) - (macro-file-exists-exception? _%e103104%_)) - (macro-file-exists-exception? _%exn103102%_)))) + (unchecked-slot-ref _%exn103208%_ 'exception)))) + (macro-file-exists-exception? _%e103210%_)) + (macro-file-exists-exception? _%exn103208%_)))) (define file-exists-exception-arguments - (lambda (_%exn103098%_) + (lambda (_%exn103204%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103098%_)) - (let ((_%e103100%_ + (class-instance? RuntimeException::t _%exn103204%_)) + (let ((_%e103206%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103098%_ 'exception)))) - (if (macro-file-exists-exception? _%e103100%_) - (macro-file-exists-exception-arguments _%e103100%_) + (unchecked-slot-ref _%exn103204%_ 'exception)))) + (if (macro-file-exists-exception? _%e103206%_) + (macro-file-exists-exception-arguments _%e103206%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%e103100%_ '()))))) - (if (macro-file-exists-exception? _%exn103098%_) - (macro-file-exists-exception-arguments _%exn103098%_) + (cons _%e103206%_ '()))))) + (if (macro-file-exists-exception? _%exn103204%_) + (macro-file-exists-exception-arguments _%exn103204%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-arguments - (cons _%exn103098%_ '()))))))) + (cons _%exn103204%_ '()))))))) (define file-exists-exception-procedure - (lambda (_%exn103092%_) + (lambda (_%exn103198%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103092%_)) - (let ((_%e103095%_ + (class-instance? RuntimeException::t _%exn103198%_)) + (let ((_%e103201%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103092%_ 'exception)))) - (if (macro-file-exists-exception? _%e103095%_) - (macro-file-exists-exception-procedure _%e103095%_) + (unchecked-slot-ref _%exn103198%_ 'exception)))) + (if (macro-file-exists-exception? _%e103201%_) + (macro-file-exists-exception-procedure _%e103201%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%e103095%_ '()))))) - (if (macro-file-exists-exception? _%exn103092%_) - (macro-file-exists-exception-procedure _%exn103092%_) + (cons _%e103201%_ '()))))) + (if (macro-file-exists-exception? _%exn103198%_) + (macro-file-exists-exception-procedure _%exn103198%_) (error '"not an instance" 'file-exists-exception? (cons 'file-exists-exception-procedure - (cons _%exn103092%_ '()))))))) + (cons _%exn103198%_ '()))))))) (define fixnum-overflow-exception? - (lambda (_%exn103088%_) + (lambda (_%exn103194%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103088%_)) - (let ((_%e103090%_ + (class-instance? RuntimeException::t _%exn103194%_)) + (let ((_%e103196%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103088%_ 'exception)))) - (macro-fixnum-overflow-exception? _%e103090%_)) - (macro-fixnum-overflow-exception? _%exn103088%_)))) + (unchecked-slot-ref _%exn103194%_ 'exception)))) + (macro-fixnum-overflow-exception? _%e103196%_)) + (macro-fixnum-overflow-exception? _%exn103194%_)))) (define fixnum-overflow-exception-arguments - (lambda (_%exn103084%_) + (lambda (_%exn103190%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103084%_)) - (let ((_%e103086%_ + (class-instance? RuntimeException::t _%exn103190%_)) + (let ((_%e103192%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103084%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e103086%_) - (macro-fixnum-overflow-exception-arguments _%e103086%_) + (unchecked-slot-ref _%exn103190%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e103192%_) + (macro-fixnum-overflow-exception-arguments _%e103192%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%e103086%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn103084%_) - (macro-fixnum-overflow-exception-arguments _%exn103084%_) + (cons _%e103192%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn103190%_) + (macro-fixnum-overflow-exception-arguments _%exn103190%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-arguments - (cons _%exn103084%_ '()))))))) + (cons _%exn103190%_ '()))))))) (define fixnum-overflow-exception-procedure - (lambda (_%exn103078%_) + (lambda (_%exn103184%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103078%_)) - (let ((_%e103081%_ + (class-instance? RuntimeException::t _%exn103184%_)) + (let ((_%e103187%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103078%_ 'exception)))) - (if (macro-fixnum-overflow-exception? _%e103081%_) - (macro-fixnum-overflow-exception-procedure _%e103081%_) + (unchecked-slot-ref _%exn103184%_ 'exception)))) + (if (macro-fixnum-overflow-exception? _%e103187%_) + (macro-fixnum-overflow-exception-procedure _%e103187%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%e103081%_ '()))))) - (if (macro-fixnum-overflow-exception? _%exn103078%_) - (macro-fixnum-overflow-exception-procedure _%exn103078%_) + (cons _%e103187%_ '()))))) + (if (macro-fixnum-overflow-exception? _%exn103184%_) + (macro-fixnum-overflow-exception-procedure _%exn103184%_) (error '"not an instance" 'fixnum-overflow-exception? (cons 'fixnum-overflow-exception-procedure - (cons _%exn103078%_ '()))))))) + (cons _%exn103184%_ '()))))))) (define heap-overflow-exception? - (lambda (_%exn103072%_) + (lambda (_%exn103178%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103072%_)) - (let ((_%e103075%_ + (class-instance? RuntimeException::t _%exn103178%_)) + (let ((_%e103181%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103072%_ 'exception)))) - (macro-heap-overflow-exception? _%e103075%_)) - (macro-heap-overflow-exception? _%exn103072%_)))) + (unchecked-slot-ref _%exn103178%_ 'exception)))) + (macro-heap-overflow-exception? _%e103181%_)) + (macro-heap-overflow-exception? _%exn103178%_)))) (define inactive-thread-exception? - (lambda (_%exn103068%_) + (lambda (_%exn103174%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103068%_)) - (let ((_%e103070%_ + (class-instance? RuntimeException::t _%exn103174%_)) + (let ((_%e103176%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103068%_ 'exception)))) - (macro-inactive-thread-exception? _%e103070%_)) - (macro-inactive-thread-exception? _%exn103068%_)))) + (unchecked-slot-ref _%exn103174%_ 'exception)))) + (macro-inactive-thread-exception? _%e103176%_)) + (macro-inactive-thread-exception? _%exn103174%_)))) (define inactive-thread-exception-arguments - (lambda (_%exn103064%_) + (lambda (_%exn103170%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103064%_)) - (let ((_%e103066%_ + (class-instance? RuntimeException::t _%exn103170%_)) + (let ((_%e103172%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103064%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e103066%_) - (macro-inactive-thread-exception-arguments _%e103066%_) + (unchecked-slot-ref _%exn103170%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e103172%_) + (macro-inactive-thread-exception-arguments _%e103172%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%e103066%_ '()))))) - (if (macro-inactive-thread-exception? _%exn103064%_) - (macro-inactive-thread-exception-arguments _%exn103064%_) + (cons _%e103172%_ '()))))) + (if (macro-inactive-thread-exception? _%exn103170%_) + (macro-inactive-thread-exception-arguments _%exn103170%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-arguments - (cons _%exn103064%_ '()))))))) + (cons _%exn103170%_ '()))))))) (define inactive-thread-exception-procedure - (lambda (_%exn103058%_) + (lambda (_%exn103164%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103058%_)) - (let ((_%e103061%_ + (class-instance? RuntimeException::t _%exn103164%_)) + (let ((_%e103167%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103058%_ 'exception)))) - (if (macro-inactive-thread-exception? _%e103061%_) - (macro-inactive-thread-exception-procedure _%e103061%_) + (unchecked-slot-ref _%exn103164%_ 'exception)))) + (if (macro-inactive-thread-exception? _%e103167%_) + (macro-inactive-thread-exception-procedure _%e103167%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%e103061%_ '()))))) - (if (macro-inactive-thread-exception? _%exn103058%_) - (macro-inactive-thread-exception-procedure _%exn103058%_) + (cons _%e103167%_ '()))))) + (if (macro-inactive-thread-exception? _%exn103164%_) + (macro-inactive-thread-exception-procedure _%exn103164%_) (error '"not an instance" 'inactive-thread-exception? (cons 'inactive-thread-exception-procedure - (cons _%exn103058%_ '()))))))) + (cons _%exn103164%_ '()))))))) (define initialized-thread-exception? - (lambda (_%exn103054%_) + (lambda (_%exn103160%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103054%_)) - (let ((_%e103056%_ + (class-instance? RuntimeException::t _%exn103160%_)) + (let ((_%e103162%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103054%_ 'exception)))) - (macro-initialized-thread-exception? _%e103056%_)) - (macro-initialized-thread-exception? _%exn103054%_)))) + (unchecked-slot-ref _%exn103160%_ 'exception)))) + (macro-initialized-thread-exception? _%e103162%_)) + (macro-initialized-thread-exception? _%exn103160%_)))) (define initialized-thread-exception-arguments - (lambda (_%exn103050%_) + (lambda (_%exn103156%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103050%_)) - (let ((_%e103052%_ + (class-instance? RuntimeException::t _%exn103156%_)) + (let ((_%e103158%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103050%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e103052%_) - (macro-initialized-thread-exception-arguments _%e103052%_) + (unchecked-slot-ref _%exn103156%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e103158%_) + (macro-initialized-thread-exception-arguments _%e103158%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%e103052%_ '()))))) - (if (macro-initialized-thread-exception? _%exn103050%_) - (macro-initialized-thread-exception-arguments _%exn103050%_) + (cons _%e103158%_ '()))))) + (if (macro-initialized-thread-exception? _%exn103156%_) + (macro-initialized-thread-exception-arguments _%exn103156%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-arguments - (cons _%exn103050%_ '()))))))) + (cons _%exn103156%_ '()))))))) (define initialized-thread-exception-procedure - (lambda (_%exn103044%_) + (lambda (_%exn103150%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103044%_)) - (let ((_%e103047%_ + (class-instance? RuntimeException::t _%exn103150%_)) + (let ((_%e103153%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103044%_ 'exception)))) - (if (macro-initialized-thread-exception? _%e103047%_) - (macro-initialized-thread-exception-procedure _%e103047%_) + (unchecked-slot-ref _%exn103150%_ 'exception)))) + (if (macro-initialized-thread-exception? _%e103153%_) + (macro-initialized-thread-exception-procedure _%e103153%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%e103047%_ '()))))) - (if (macro-initialized-thread-exception? _%exn103044%_) - (macro-initialized-thread-exception-procedure _%exn103044%_) + (cons _%e103153%_ '()))))) + (if (macro-initialized-thread-exception? _%exn103150%_) + (macro-initialized-thread-exception-procedure _%exn103150%_) (error '"not an instance" 'initialized-thread-exception? (cons 'initialized-thread-exception-procedure - (cons _%exn103044%_ '()))))))) + (cons _%exn103150%_ '()))))))) (define invalid-hash-number-exception? - (lambda (_%exn103040%_) + (lambda (_%exn103146%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103040%_)) - (let ((_%e103042%_ + (class-instance? RuntimeException::t _%exn103146%_)) + (let ((_%e103148%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103040%_ 'exception)))) - (macro-invalid-hash-number-exception? _%e103042%_)) - (macro-invalid-hash-number-exception? _%exn103040%_)))) + (unchecked-slot-ref _%exn103146%_ 'exception)))) + (macro-invalid-hash-number-exception? _%e103148%_)) + (macro-invalid-hash-number-exception? _%exn103146%_)))) (define invalid-hash-number-exception-arguments - (lambda (_%exn103036%_) + (lambda (_%exn103142%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103036%_)) - (let ((_%e103038%_ + (class-instance? RuntimeException::t _%exn103142%_)) + (let ((_%e103144%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103036%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e103038%_) - (macro-invalid-hash-number-exception-arguments _%e103038%_) + (unchecked-slot-ref _%exn103142%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e103144%_) + (macro-invalid-hash-number-exception-arguments _%e103144%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%e103038%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn103036%_) - (macro-invalid-hash-number-exception-arguments _%exn103036%_) + (cons _%e103144%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn103142%_) + (macro-invalid-hash-number-exception-arguments _%exn103142%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-arguments - (cons _%exn103036%_ '()))))))) + (cons _%exn103142%_ '()))))))) (define invalid-hash-number-exception-procedure - (lambda (_%exn103030%_) + (lambda (_%exn103136%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103030%_)) - (let ((_%e103033%_ + (class-instance? RuntimeException::t _%exn103136%_)) + (let ((_%e103139%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103030%_ 'exception)))) - (if (macro-invalid-hash-number-exception? _%e103033%_) - (macro-invalid-hash-number-exception-procedure _%e103033%_) + (unchecked-slot-ref _%exn103136%_ 'exception)))) + (if (macro-invalid-hash-number-exception? _%e103139%_) + (macro-invalid-hash-number-exception-procedure _%e103139%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%e103033%_ '()))))) - (if (macro-invalid-hash-number-exception? _%exn103030%_) - (macro-invalid-hash-number-exception-procedure _%exn103030%_) + (cons _%e103139%_ '()))))) + (if (macro-invalid-hash-number-exception? _%exn103136%_) + (macro-invalid-hash-number-exception-procedure _%exn103136%_) (error '"not an instance" 'invalid-hash-number-exception? (cons 'invalid-hash-number-exception-procedure - (cons _%exn103030%_ '()))))))) + (cons _%exn103136%_ '()))))))) (define invalid-utf8-encoding-exception? - (lambda (_%exn103026%_) + (lambda (_%exn103132%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103026%_)) - (let ((_%e103028%_ + (class-instance? RuntimeException::t _%exn103132%_)) + (let ((_%e103134%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103026%_ 'exception)))) - (macro-invalid-utf8-encoding-exception? _%e103028%_)) - (macro-invalid-utf8-encoding-exception? _%exn103026%_)))) + (unchecked-slot-ref _%exn103132%_ 'exception)))) + (macro-invalid-utf8-encoding-exception? _%e103134%_)) + (macro-invalid-utf8-encoding-exception? _%exn103132%_)))) (define invalid-utf8-encoding-exception-arguments - (lambda (_%exn103022%_) + (lambda (_%exn103128%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103022%_)) - (let ((_%e103024%_ + (class-instance? RuntimeException::t _%exn103128%_)) + (let ((_%e103130%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103022%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e103024%_) - (macro-invalid-utf8-encoding-exception-arguments _%e103024%_) + (unchecked-slot-ref _%exn103128%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e103130%_) + (macro-invalid-utf8-encoding-exception-arguments _%e103130%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%e103024%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn103022%_) - (macro-invalid-utf8-encoding-exception-arguments _%exn103022%_) + (cons _%e103130%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn103128%_) + (macro-invalid-utf8-encoding-exception-arguments _%exn103128%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-arguments - (cons _%exn103022%_ '()))))))) + (cons _%exn103128%_ '()))))))) (define invalid-utf8-encoding-exception-procedure - (lambda (_%exn103016%_) + (lambda (_%exn103122%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103016%_)) - (let ((_%e103019%_ + (class-instance? RuntimeException::t _%exn103122%_)) + (let ((_%e103125%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103016%_ 'exception)))) - (if (macro-invalid-utf8-encoding-exception? _%e103019%_) - (macro-invalid-utf8-encoding-exception-procedure _%e103019%_) + (unchecked-slot-ref _%exn103122%_ 'exception)))) + (if (macro-invalid-utf8-encoding-exception? _%e103125%_) + (macro-invalid-utf8-encoding-exception-procedure _%e103125%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%e103019%_ '()))))) - (if (macro-invalid-utf8-encoding-exception? _%exn103016%_) - (macro-invalid-utf8-encoding-exception-procedure _%exn103016%_) + (cons _%e103125%_ '()))))) + (if (macro-invalid-utf8-encoding-exception? _%exn103122%_) + (macro-invalid-utf8-encoding-exception-procedure _%exn103122%_) (error '"not an instance" 'invalid-utf8-encoding-exception? (cons 'invalid-utf8-encoding-exception-procedure - (cons _%exn103016%_ '()))))))) + (cons _%exn103122%_ '()))))))) (define join-timeout-exception? - (lambda (_%exn103012%_) + (lambda (_%exn103118%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103012%_)) - (let ((_%e103014%_ + (class-instance? RuntimeException::t _%exn103118%_)) + (let ((_%e103120%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103012%_ 'exception)))) - (macro-join-timeout-exception? _%e103014%_)) - (macro-join-timeout-exception? _%exn103012%_)))) + (unchecked-slot-ref _%exn103118%_ 'exception)))) + (macro-join-timeout-exception? _%e103120%_)) + (macro-join-timeout-exception? _%exn103118%_)))) (define join-timeout-exception-arguments - (lambda (_%exn103008%_) + (lambda (_%exn103114%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103008%_)) - (let ((_%e103010%_ + (class-instance? RuntimeException::t _%exn103114%_)) + (let ((_%e103116%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103008%_ 'exception)))) - (if (macro-join-timeout-exception? _%e103010%_) - (macro-join-timeout-exception-arguments _%e103010%_) + (unchecked-slot-ref _%exn103114%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103116%_) + (macro-join-timeout-exception-arguments _%e103116%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%e103010%_ '()))))) - (if (macro-join-timeout-exception? _%exn103008%_) - (macro-join-timeout-exception-arguments _%exn103008%_) + (cons _%e103116%_ '()))))) + (if (macro-join-timeout-exception? _%exn103114%_) + (macro-join-timeout-exception-arguments _%exn103114%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-arguments - (cons _%exn103008%_ '()))))))) + (cons _%exn103114%_ '()))))))) (define join-timeout-exception-procedure - (lambda (_%exn103002%_) + (lambda (_%exn103108%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn103002%_)) - (let ((_%e103005%_ + (class-instance? RuntimeException::t _%exn103108%_)) + (let ((_%e103111%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn103002%_ 'exception)))) - (if (macro-join-timeout-exception? _%e103005%_) - (macro-join-timeout-exception-procedure _%e103005%_) + (unchecked-slot-ref _%exn103108%_ 'exception)))) + (if (macro-join-timeout-exception? _%e103111%_) + (macro-join-timeout-exception-procedure _%e103111%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%e103005%_ '()))))) - (if (macro-join-timeout-exception? _%exn103002%_) - (macro-join-timeout-exception-procedure _%exn103002%_) + (cons _%e103111%_ '()))))) + (if (macro-join-timeout-exception? _%exn103108%_) + (macro-join-timeout-exception-procedure _%exn103108%_) (error '"not an instance" 'join-timeout-exception? (cons 'join-timeout-exception-procedure - (cons _%exn103002%_ '()))))))) + (cons _%exn103108%_ '()))))))) (define keyword-expected-exception? - (lambda (_%exn102998%_) + (lambda (_%exn103104%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102998%_)) - (let ((_%e103000%_ + (class-instance? RuntimeException::t _%exn103104%_)) + (let ((_%e103106%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102998%_ 'exception)))) - (macro-keyword-expected-exception? _%e103000%_)) - (macro-keyword-expected-exception? _%exn102998%_)))) + (unchecked-slot-ref _%exn103104%_ 'exception)))) + (macro-keyword-expected-exception? _%e103106%_)) + (macro-keyword-expected-exception? _%exn103104%_)))) (define keyword-expected-exception-arguments - (lambda (_%exn102994%_) + (lambda (_%exn103100%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102994%_)) - (let ((_%e102996%_ + (class-instance? RuntimeException::t _%exn103100%_)) + (let ((_%e103102%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102994%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102996%_) - (macro-keyword-expected-exception-arguments _%e102996%_) + (unchecked-slot-ref _%exn103100%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e103102%_) + (macro-keyword-expected-exception-arguments _%e103102%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%e102996%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102994%_) - (macro-keyword-expected-exception-arguments _%exn102994%_) + (cons _%e103102%_ '()))))) + (if (macro-keyword-expected-exception? _%exn103100%_) + (macro-keyword-expected-exception-arguments _%exn103100%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-arguments - (cons _%exn102994%_ '()))))))) + (cons _%exn103100%_ '()))))))) (define keyword-expected-exception-procedure - (lambda (_%exn102988%_) + (lambda (_%exn103094%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102988%_)) - (let ((_%e102991%_ + (class-instance? RuntimeException::t _%exn103094%_)) + (let ((_%e103097%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102988%_ 'exception)))) - (if (macro-keyword-expected-exception? _%e102991%_) - (macro-keyword-expected-exception-procedure _%e102991%_) + (unchecked-slot-ref _%exn103094%_ 'exception)))) + (if (macro-keyword-expected-exception? _%e103097%_) + (macro-keyword-expected-exception-procedure _%e103097%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%e102991%_ '()))))) - (if (macro-keyword-expected-exception? _%exn102988%_) - (macro-keyword-expected-exception-procedure _%exn102988%_) + (cons _%e103097%_ '()))))) + (if (macro-keyword-expected-exception? _%exn103094%_) + (macro-keyword-expected-exception-procedure _%exn103094%_) (error '"not an instance" 'keyword-expected-exception? (cons 'keyword-expected-exception-procedure - (cons _%exn102988%_ '()))))))) + (cons _%exn103094%_ '()))))))) (define length-mismatch-exception? - (lambda (_%exn102984%_) + (lambda (_%exn103090%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102984%_)) - (let ((_%e102986%_ + (class-instance? RuntimeException::t _%exn103090%_)) + (let ((_%e103092%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102984%_ 'exception)))) - (macro-length-mismatch-exception? _%e102986%_)) - (macro-length-mismatch-exception? _%exn102984%_)))) + (unchecked-slot-ref _%exn103090%_ 'exception)))) + (macro-length-mismatch-exception? _%e103092%_)) + (macro-length-mismatch-exception? _%exn103090%_)))) (define length-mismatch-exception-arg-id - (lambda (_%exn102980%_) + (lambda (_%exn103086%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102980%_)) - (let ((_%e102982%_ + (class-instance? RuntimeException::t _%exn103086%_)) + (let ((_%e103088%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102980%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102982%_) - (macro-length-mismatch-exception-arg-id _%e102982%_) + (unchecked-slot-ref _%exn103086%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103088%_) + (macro-length-mismatch-exception-arg-id _%e103088%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%e102982%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102980%_) - (macro-length-mismatch-exception-arg-id _%exn102980%_) + (cons _%e103088%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103086%_) + (macro-length-mismatch-exception-arg-id _%exn103086%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arg-id - (cons _%exn102980%_ '()))))))) + (cons _%exn103086%_ '()))))))) (define length-mismatch-exception-arguments - (lambda (_%exn102976%_) + (lambda (_%exn103082%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102976%_)) - (let ((_%e102978%_ + (class-instance? RuntimeException::t _%exn103082%_)) + (let ((_%e103084%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102976%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102978%_) - (macro-length-mismatch-exception-arguments _%e102978%_) + (unchecked-slot-ref _%exn103082%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103084%_) + (macro-length-mismatch-exception-arguments _%e103084%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%e102978%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102976%_) - (macro-length-mismatch-exception-arguments _%exn102976%_) + (cons _%e103084%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103082%_) + (macro-length-mismatch-exception-arguments _%exn103082%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-arguments - (cons _%exn102976%_ '()))))))) + (cons _%exn103082%_ '()))))))) (define length-mismatch-exception-procedure - (lambda (_%exn102970%_) + (lambda (_%exn103076%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102970%_)) - (let ((_%e102973%_ + (class-instance? RuntimeException::t _%exn103076%_)) + (let ((_%e103079%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102970%_ 'exception)))) - (if (macro-length-mismatch-exception? _%e102973%_) - (macro-length-mismatch-exception-procedure _%e102973%_) + (unchecked-slot-ref _%exn103076%_ 'exception)))) + (if (macro-length-mismatch-exception? _%e103079%_) + (macro-length-mismatch-exception-procedure _%e103079%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%e102973%_ '()))))) - (if (macro-length-mismatch-exception? _%exn102970%_) - (macro-length-mismatch-exception-procedure _%exn102970%_) + (cons _%e103079%_ '()))))) + (if (macro-length-mismatch-exception? _%exn103076%_) + (macro-length-mismatch-exception-procedure _%exn103076%_) (error '"not an instance" 'length-mismatch-exception? (cons 'length-mismatch-exception-procedure - (cons _%exn102970%_ '()))))))) + (cons _%exn103076%_ '()))))))) (define mailbox-receive-timeout-exception? - (lambda (_%exn102966%_) + (lambda (_%exn103072%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102966%_)) - (let ((_%e102968%_ + (class-instance? RuntimeException::t _%exn103072%_)) + (let ((_%e103074%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102966%_ 'exception)))) - (macro-mailbox-receive-timeout-exception? _%e102968%_)) - (macro-mailbox-receive-timeout-exception? _%exn102966%_)))) + (unchecked-slot-ref _%exn103072%_ 'exception)))) + (macro-mailbox-receive-timeout-exception? _%e103074%_)) + (macro-mailbox-receive-timeout-exception? _%exn103072%_)))) (define mailbox-receive-timeout-exception-arguments - (lambda (_%exn102962%_) + (lambda (_%exn103068%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102962%_)) - (let ((_%e102964%_ + (class-instance? RuntimeException::t _%exn103068%_)) + (let ((_%e103070%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102962%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102964%_) + (unchecked-slot-ref _%exn103068%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103070%_) (macro-mailbox-receive-timeout-exception-arguments - _%e102964%_) + _%e103070%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%e102964%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102962%_) + (cons _%e103070%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103068%_) (macro-mailbox-receive-timeout-exception-arguments - _%exn102962%_) + _%exn103068%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-arguments - (cons _%exn102962%_ '()))))))) + (cons _%exn103068%_ '()))))))) (define mailbox-receive-timeout-exception-procedure - (lambda (_%exn102956%_) + (lambda (_%exn103062%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102956%_)) - (let ((_%e102959%_ + (class-instance? RuntimeException::t _%exn103062%_)) + (let ((_%e103065%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102956%_ 'exception)))) - (if (macro-mailbox-receive-timeout-exception? _%e102959%_) + (unchecked-slot-ref _%exn103062%_ 'exception)))) + (if (macro-mailbox-receive-timeout-exception? _%e103065%_) (macro-mailbox-receive-timeout-exception-procedure - _%e102959%_) + _%e103065%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%e102959%_ '()))))) - (if (macro-mailbox-receive-timeout-exception? _%exn102956%_) + (cons _%e103065%_ '()))))) + (if (macro-mailbox-receive-timeout-exception? _%exn103062%_) (macro-mailbox-receive-timeout-exception-procedure - _%exn102956%_) + _%exn103062%_) (error '"not an instance" 'mailbox-receive-timeout-exception? (cons 'mailbox-receive-timeout-exception-procedure - (cons _%exn102956%_ '()))))))) + (cons _%exn103062%_ '()))))))) (define module-not-found-exception? - (lambda (_%exn102952%_) + (lambda (_%exn103058%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102952%_)) - (let ((_%e102954%_ + (class-instance? RuntimeException::t _%exn103058%_)) + (let ((_%e103060%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102952%_ 'exception)))) - (macro-module-not-found-exception? _%e102954%_)) - (macro-module-not-found-exception? _%exn102952%_)))) + (unchecked-slot-ref _%exn103058%_ 'exception)))) + (macro-module-not-found-exception? _%e103060%_)) + (macro-module-not-found-exception? _%exn103058%_)))) (define module-not-found-exception-arguments - (lambda (_%exn102948%_) + (lambda (_%exn103054%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102948%_)) - (let ((_%e102950%_ + (class-instance? RuntimeException::t _%exn103054%_)) + (let ((_%e103056%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102948%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102950%_) - (macro-module-not-found-exception-arguments _%e102950%_) + (unchecked-slot-ref _%exn103054%_ 'exception)))) + (if (macro-module-not-found-exception? _%e103056%_) + (macro-module-not-found-exception-arguments _%e103056%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%e102950%_ '()))))) - (if (macro-module-not-found-exception? _%exn102948%_) - (macro-module-not-found-exception-arguments _%exn102948%_) + (cons _%e103056%_ '()))))) + (if (macro-module-not-found-exception? _%exn103054%_) + (macro-module-not-found-exception-arguments _%exn103054%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-arguments - (cons _%exn102948%_ '()))))))) + (cons _%exn103054%_ '()))))))) (define module-not-found-exception-procedure - (lambda (_%exn102942%_) + (lambda (_%exn103048%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102942%_)) - (let ((_%e102945%_ + (class-instance? RuntimeException::t _%exn103048%_)) + (let ((_%e103051%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102942%_ 'exception)))) - (if (macro-module-not-found-exception? _%e102945%_) - (macro-module-not-found-exception-procedure _%e102945%_) + (unchecked-slot-ref _%exn103048%_ 'exception)))) + (if (macro-module-not-found-exception? _%e103051%_) + (macro-module-not-found-exception-procedure _%e103051%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%e102945%_ '()))))) - (if (macro-module-not-found-exception? _%exn102942%_) - (macro-module-not-found-exception-procedure _%exn102942%_) + (cons _%e103051%_ '()))))) + (if (macro-module-not-found-exception? _%exn103048%_) + (macro-module-not-found-exception-procedure _%exn103048%_) (error '"not an instance" 'module-not-found-exception? (cons 'module-not-found-exception-procedure - (cons _%exn102942%_ '()))))))) + (cons _%exn103048%_ '()))))))) (define multiple-c-return-exception? - (lambda (_%exn102936%_) + (lambda (_%exn103042%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102936%_)) - (let ((_%e102939%_ + (class-instance? RuntimeException::t _%exn103042%_)) + (let ((_%e103045%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102936%_ 'exception)))) - (macro-multiple-c-return-exception? _%e102939%_)) - (macro-multiple-c-return-exception? _%exn102936%_)))) + (unchecked-slot-ref _%exn103042%_ 'exception)))) + (macro-multiple-c-return-exception? _%e103045%_)) + (macro-multiple-c-return-exception? _%exn103042%_)))) (define no-such-file-or-directory-exception? - (lambda (_%exn102932%_) + (lambda (_%exn103038%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102932%_)) - (let ((_%e102934%_ + (class-instance? RuntimeException::t _%exn103038%_)) + (let ((_%e103040%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102932%_ 'exception)))) - (macro-no-such-file-or-directory-exception? _%e102934%_)) - (macro-no-such-file-or-directory-exception? _%exn102932%_)))) + (unchecked-slot-ref _%exn103038%_ 'exception)))) + (macro-no-such-file-or-directory-exception? _%e103040%_)) + (macro-no-such-file-or-directory-exception? _%exn103038%_)))) (define no-such-file-or-directory-exception-arguments - (lambda (_%exn102928%_) + (lambda (_%exn103034%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102928%_)) - (let ((_%e102930%_ + (class-instance? RuntimeException::t _%exn103034%_)) + (let ((_%e103036%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102928%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102930%_) + (unchecked-slot-ref _%exn103034%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103036%_) (macro-no-such-file-or-directory-exception-arguments - _%e102930%_) + _%e103036%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%e102930%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102928%_) + (cons _%e103036%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103034%_) (macro-no-such-file-or-directory-exception-arguments - _%exn102928%_) + _%exn103034%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-arguments - (cons _%exn102928%_ '()))))))) + (cons _%exn103034%_ '()))))))) (define no-such-file-or-directory-exception-procedure - (lambda (_%exn102922%_) + (lambda (_%exn103028%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102922%_)) - (let ((_%e102925%_ + (class-instance? RuntimeException::t _%exn103028%_)) + (let ((_%e103031%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102922%_ 'exception)))) - (if (macro-no-such-file-or-directory-exception? _%e102925%_) + (unchecked-slot-ref _%exn103028%_ 'exception)))) + (if (macro-no-such-file-or-directory-exception? _%e103031%_) (macro-no-such-file-or-directory-exception-procedure - _%e102925%_) + _%e103031%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%e102925%_ '()))))) - (if (macro-no-such-file-or-directory-exception? _%exn102922%_) + (cons _%e103031%_ '()))))) + (if (macro-no-such-file-or-directory-exception? _%exn103028%_) (macro-no-such-file-or-directory-exception-procedure - _%exn102922%_) + _%exn103028%_) (error '"not an instance" 'no-such-file-or-directory-exception? (cons 'no-such-file-or-directory-exception-procedure - (cons _%exn102922%_ '()))))))) + (cons _%exn103028%_ '()))))))) (define noncontinuable-exception? - (lambda (_%exn102918%_) + (lambda (_%exn103024%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102918%_)) - (let ((_%e102920%_ + (class-instance? RuntimeException::t _%exn103024%_)) + (let ((_%e103026%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102918%_ 'exception)))) - (macro-noncontinuable-exception? _%e102920%_)) - (macro-noncontinuable-exception? _%exn102918%_)))) + (unchecked-slot-ref _%exn103024%_ 'exception)))) + (macro-noncontinuable-exception? _%e103026%_)) + (macro-noncontinuable-exception? _%exn103024%_)))) (define noncontinuable-exception-reason - (lambda (_%exn102912%_) + (lambda (_%exn103018%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102912%_)) - (let ((_%e102915%_ + (class-instance? RuntimeException::t _%exn103018%_)) + (let ((_%e103021%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102912%_ 'exception)))) - (if (macro-noncontinuable-exception? _%e102915%_) - (macro-noncontinuable-exception-reason _%e102915%_) + (unchecked-slot-ref _%exn103018%_ 'exception)))) + (if (macro-noncontinuable-exception? _%e103021%_) + (macro-noncontinuable-exception-reason _%e103021%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%e102915%_ '()))))) - (if (macro-noncontinuable-exception? _%exn102912%_) - (macro-noncontinuable-exception-reason _%exn102912%_) + (cons _%e103021%_ '()))))) + (if (macro-noncontinuable-exception? _%exn103018%_) + (macro-noncontinuable-exception-reason _%exn103018%_) (error '"not an instance" 'noncontinuable-exception? (cons 'noncontinuable-exception-reason - (cons _%exn102912%_ '()))))))) + (cons _%exn103018%_ '()))))))) (define nonempty-input-port-character-buffer-exception? - (lambda (_%exn102908%_) + (lambda (_%exn103014%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102908%_)) - (let ((_%e102910%_ + (class-instance? RuntimeException::t _%exn103014%_)) + (let ((_%e103016%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102908%_ 'exception)))) + (unchecked-slot-ref _%exn103014%_ 'exception)))) (macro-nonempty-input-port-character-buffer-exception? - _%e102910%_)) + _%e103016%_)) (macro-nonempty-input-port-character-buffer-exception? - _%exn102908%_)))) + _%exn103014%_)))) (define nonempty-input-port-character-buffer-exception-arguments - (lambda (_%exn102904%_) + (lambda (_%exn103010%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102904%_)) - (let ((_%e102906%_ + (class-instance? RuntimeException::t _%exn103010%_)) + (let ((_%e103012%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102904%_ 'exception)))) + (unchecked-slot-ref _%exn103010%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102906%_) + _%e103012%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%e102906%_) + _%e103012%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%e102906%_ '()))))) + (cons _%e103012%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102904%_) + _%exn103010%_) (macro-nonempty-input-port-character-buffer-exception-arguments - _%exn102904%_) + _%exn103010%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-arguments - (cons _%exn102904%_ '()))))))) + (cons _%exn103010%_ '()))))))) (define nonempty-input-port-character-buffer-exception-procedure - (lambda (_%exn102898%_) + (lambda (_%exn103004%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102898%_)) - (let ((_%e102901%_ + (class-instance? RuntimeException::t _%exn103004%_)) + (let ((_%e103007%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102898%_ 'exception)))) + (unchecked-slot-ref _%exn103004%_ 'exception)))) (if (macro-nonempty-input-port-character-buffer-exception? - _%e102901%_) + _%e103007%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%e102901%_) + _%e103007%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%e102901%_ '()))))) + (cons _%e103007%_ '()))))) (if (macro-nonempty-input-port-character-buffer-exception? - _%exn102898%_) + _%exn103004%_) (macro-nonempty-input-port-character-buffer-exception-procedure - _%exn102898%_) + _%exn103004%_) (error '"not an instance" 'nonempty-input-port-character-buffer-exception? (cons 'nonempty-input-port-character-buffer-exception-procedure - (cons _%exn102898%_ '()))))))) + (cons _%exn103004%_ '()))))))) (define nonprocedure-operator-exception? - (lambda (_%exn102894%_) + (lambda (_%exn103000%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102894%_)) - (let ((_%e102896%_ + (class-instance? RuntimeException::t _%exn103000%_)) + (let ((_%e103002%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102894%_ 'exception)))) - (macro-nonprocedure-operator-exception? _%e102896%_)) - (macro-nonprocedure-operator-exception? _%exn102894%_)))) + (unchecked-slot-ref _%exn103000%_ 'exception)))) + (macro-nonprocedure-operator-exception? _%e103002%_)) + (macro-nonprocedure-operator-exception? _%exn103000%_)))) (define nonprocedure-operator-exception-arguments - (lambda (_%exn102890%_) + (lambda (_%exn102996%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102890%_)) - (let ((_%e102892%_ + (class-instance? RuntimeException::t _%exn102996%_)) + (let ((_%e102998%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102890%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102892%_) - (macro-nonprocedure-operator-exception-arguments _%e102892%_) + (unchecked-slot-ref _%exn102996%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102998%_) + (macro-nonprocedure-operator-exception-arguments _%e102998%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%e102892%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102890%_) - (macro-nonprocedure-operator-exception-arguments _%exn102890%_) + (cons _%e102998%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102996%_) + (macro-nonprocedure-operator-exception-arguments _%exn102996%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-arguments - (cons _%exn102890%_ '()))))))) + (cons _%exn102996%_ '()))))))) (define nonprocedure-operator-exception-code - (lambda (_%exn102886%_) + (lambda (_%exn102992%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102886%_)) - (let ((_%e102888%_ + (class-instance? RuntimeException::t _%exn102992%_)) + (let ((_%e102994%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102886%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102888%_) - (macro-nonprocedure-operator-exception-code _%e102888%_) + (unchecked-slot-ref _%exn102992%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102994%_) + (macro-nonprocedure-operator-exception-code _%e102994%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%e102888%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102886%_) - (macro-nonprocedure-operator-exception-code _%exn102886%_) + (cons _%e102994%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102992%_) + (macro-nonprocedure-operator-exception-code _%exn102992%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-code - (cons _%exn102886%_ '()))))))) + (cons _%exn102992%_ '()))))))) (define nonprocedure-operator-exception-operator - (lambda (_%exn102882%_) + (lambda (_%exn102988%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102882%_)) - (let ((_%e102884%_ + (class-instance? RuntimeException::t _%exn102988%_)) + (let ((_%e102990%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102882%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102884%_) - (macro-nonprocedure-operator-exception-operator _%e102884%_) + (unchecked-slot-ref _%exn102988%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102990%_) + (macro-nonprocedure-operator-exception-operator _%e102990%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%e102884%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102882%_) - (macro-nonprocedure-operator-exception-operator _%exn102882%_) + (cons _%e102990%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102988%_) + (macro-nonprocedure-operator-exception-operator _%exn102988%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-operator - (cons _%exn102882%_ '()))))))) + (cons _%exn102988%_ '()))))))) (define nonprocedure-operator-exception-rte - (lambda (_%exn102876%_) + (lambda (_%exn102982%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102876%_)) - (let ((_%e102879%_ + (class-instance? RuntimeException::t _%exn102982%_)) + (let ((_%e102985%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102876%_ 'exception)))) - (if (macro-nonprocedure-operator-exception? _%e102879%_) - (macro-nonprocedure-operator-exception-rte _%e102879%_) + (unchecked-slot-ref _%exn102982%_ 'exception)))) + (if (macro-nonprocedure-operator-exception? _%e102985%_) + (macro-nonprocedure-operator-exception-rte _%e102985%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%e102879%_ '()))))) - (if (macro-nonprocedure-operator-exception? _%exn102876%_) - (macro-nonprocedure-operator-exception-rte _%exn102876%_) + (cons _%e102985%_ '()))))) + (if (macro-nonprocedure-operator-exception? _%exn102982%_) + (macro-nonprocedure-operator-exception-rte _%exn102982%_) (error '"not an instance" 'nonprocedure-operator-exception? (cons 'nonprocedure-operator-exception-rte - (cons _%exn102876%_ '()))))))) + (cons _%exn102982%_ '()))))))) (define not-in-compilation-context-exception? - (lambda (_%exn102872%_) + (lambda (_%exn102978%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102872%_)) - (let ((_%e102874%_ + (class-instance? RuntimeException::t _%exn102978%_)) + (let ((_%e102980%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102872%_ 'exception)))) - (macro-not-in-compilation-context-exception? _%e102874%_)) - (macro-not-in-compilation-context-exception? _%exn102872%_)))) + (unchecked-slot-ref _%exn102978%_ 'exception)))) + (macro-not-in-compilation-context-exception? _%e102980%_)) + (macro-not-in-compilation-context-exception? _%exn102978%_)))) (define not-in-compilation-context-exception-arguments - (lambda (_%exn102868%_) + (lambda (_%exn102974%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102868%_)) - (let ((_%e102870%_ + (class-instance? RuntimeException::t _%exn102974%_)) + (let ((_%e102976%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102868%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102870%_) + (unchecked-slot-ref _%exn102974%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102976%_) (macro-not-in-compilation-context-exception-arguments - _%e102870%_) + _%e102976%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%e102870%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102868%_) + (cons _%e102976%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102974%_) (macro-not-in-compilation-context-exception-arguments - _%exn102868%_) + _%exn102974%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-arguments - (cons _%exn102868%_ '()))))))) + (cons _%exn102974%_ '()))))))) (define not-in-compilation-context-exception-procedure - (lambda (_%exn102862%_) + (lambda (_%exn102968%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102862%_)) - (let ((_%e102865%_ + (class-instance? RuntimeException::t _%exn102968%_)) + (let ((_%e102971%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102862%_ 'exception)))) - (if (macro-not-in-compilation-context-exception? _%e102865%_) + (unchecked-slot-ref _%exn102968%_ 'exception)))) + (if (macro-not-in-compilation-context-exception? _%e102971%_) (macro-not-in-compilation-context-exception-procedure - _%e102865%_) + _%e102971%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%e102865%_ '()))))) - (if (macro-not-in-compilation-context-exception? _%exn102862%_) + (cons _%e102971%_ '()))))) + (if (macro-not-in-compilation-context-exception? _%exn102968%_) (macro-not-in-compilation-context-exception-procedure - _%exn102862%_) + _%exn102968%_) (error '"not an instance" 'not-in-compilation-context-exception? (cons 'not-in-compilation-context-exception-procedure - (cons _%exn102862%_ '()))))))) + (cons _%exn102968%_ '()))))))) (define number-of-arguments-limit-exception? - (lambda (_%exn102858%_) + (lambda (_%exn102964%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102858%_)) - (let ((_%e102860%_ + (class-instance? RuntimeException::t _%exn102964%_)) + (let ((_%e102966%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102858%_ 'exception)))) - (macro-number-of-arguments-limit-exception? _%e102860%_)) - (macro-number-of-arguments-limit-exception? _%exn102858%_)))) + (unchecked-slot-ref _%exn102964%_ 'exception)))) + (macro-number-of-arguments-limit-exception? _%e102966%_)) + (macro-number-of-arguments-limit-exception? _%exn102964%_)))) (define number-of-arguments-limit-exception-arguments - (lambda (_%exn102854%_) + (lambda (_%exn102960%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102854%_)) - (let ((_%e102856%_ + (class-instance? RuntimeException::t _%exn102960%_)) + (let ((_%e102962%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102854%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102856%_) + (unchecked-slot-ref _%exn102960%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102962%_) (macro-number-of-arguments-limit-exception-arguments - _%e102856%_) + _%e102962%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%e102856%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102854%_) + (cons _%e102962%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102960%_) (macro-number-of-arguments-limit-exception-arguments - _%exn102854%_) + _%exn102960%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-arguments - (cons _%exn102854%_ '()))))))) + (cons _%exn102960%_ '()))))))) (define number-of-arguments-limit-exception-procedure - (lambda (_%exn102848%_) + (lambda (_%exn102954%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102848%_)) - (let ((_%e102851%_ + (class-instance? RuntimeException::t _%exn102954%_)) + (let ((_%e102957%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102848%_ 'exception)))) - (if (macro-number-of-arguments-limit-exception? _%e102851%_) + (unchecked-slot-ref _%exn102954%_ 'exception)))) + (if (macro-number-of-arguments-limit-exception? _%e102957%_) (macro-number-of-arguments-limit-exception-procedure - _%e102851%_) + _%e102957%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%e102851%_ '()))))) - (if (macro-number-of-arguments-limit-exception? _%exn102848%_) + (cons _%e102957%_ '()))))) + (if (macro-number-of-arguments-limit-exception? _%exn102954%_) (macro-number-of-arguments-limit-exception-procedure - _%exn102848%_) + _%exn102954%_) (error '"not an instance" 'number-of-arguments-limit-exception? (cons 'number-of-arguments-limit-exception-procedure - (cons _%exn102848%_ '()))))))) + (cons _%exn102954%_ '()))))))) (define os-exception? - (lambda (_%exn102844%_) + (lambda (_%exn102950%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102844%_)) - (let ((_%e102846%_ + (class-instance? RuntimeException::t _%exn102950%_)) + (let ((_%e102952%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102844%_ 'exception)))) - (macro-os-exception? _%e102846%_)) - (macro-os-exception? _%exn102844%_)))) + (unchecked-slot-ref _%exn102950%_ 'exception)))) + (macro-os-exception? _%e102952%_)) + (macro-os-exception? _%exn102950%_)))) (define os-exception-arguments - (lambda (_%exn102840%_) + (lambda (_%exn102946%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102840%_)) - (let ((_%e102842%_ + (class-instance? RuntimeException::t _%exn102946%_)) + (let ((_%e102948%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102840%_ 'exception)))) - (if (macro-os-exception? _%e102842%_) - (macro-os-exception-arguments _%e102842%_) + (unchecked-slot-ref _%exn102946%_ 'exception)))) + (if (macro-os-exception? _%e102948%_) + (macro-os-exception-arguments _%e102948%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%e102842%_ '()))))) - (if (macro-os-exception? _%exn102840%_) - (macro-os-exception-arguments _%exn102840%_) + (cons _%e102948%_ '()))))) + (if (macro-os-exception? _%exn102946%_) + (macro-os-exception-arguments _%exn102946%_) (error '"not an instance" 'os-exception? (cons 'os-exception-arguments - (cons _%exn102840%_ '()))))))) + (cons _%exn102946%_ '()))))))) (define os-exception-code - (lambda (_%exn102836%_) + (lambda (_%exn102942%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102836%_)) - (let ((_%e102838%_ + (class-instance? RuntimeException::t _%exn102942%_)) + (let ((_%e102944%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102836%_ 'exception)))) - (if (macro-os-exception? _%e102838%_) - (macro-os-exception-code _%e102838%_) + (unchecked-slot-ref _%exn102942%_ 'exception)))) + (if (macro-os-exception? _%e102944%_) + (macro-os-exception-code _%e102944%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%e102838%_ '()))))) - (if (macro-os-exception? _%exn102836%_) - (macro-os-exception-code _%exn102836%_) + (cons 'os-exception-code (cons _%e102944%_ '()))))) + (if (macro-os-exception? _%exn102942%_) + (macro-os-exception-code _%exn102942%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-code (cons _%exn102836%_ '()))))))) + (cons 'os-exception-code (cons _%exn102942%_ '()))))))) (define os-exception-message - (lambda (_%exn102832%_) + (lambda (_%exn102938%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102832%_)) - (let ((_%e102834%_ + (class-instance? RuntimeException::t _%exn102938%_)) + (let ((_%e102940%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102832%_ 'exception)))) - (if (macro-os-exception? _%e102834%_) - (macro-os-exception-message _%e102834%_) + (unchecked-slot-ref _%exn102938%_ 'exception)))) + (if (macro-os-exception? _%e102940%_) + (macro-os-exception-message _%e102940%_) (error '"not an instance" 'os-exception? - (cons 'os-exception-message (cons _%e102834%_ '()))))) - (if (macro-os-exception? _%exn102832%_) - (macro-os-exception-message _%exn102832%_) + (cons 'os-exception-message (cons _%e102940%_ '()))))) + (if (macro-os-exception? _%exn102938%_) + (macro-os-exception-message _%exn102938%_) (error '"not an instance" 'os-exception? (cons 'os-exception-message - (cons _%exn102832%_ '()))))))) + (cons _%exn102938%_ '()))))))) (define os-exception-procedure - (lambda (_%exn102826%_) + (lambda (_%exn102932%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102826%_)) - (let ((_%e102829%_ + (class-instance? RuntimeException::t _%exn102932%_)) + (let ((_%e102935%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102826%_ 'exception)))) - (if (macro-os-exception? _%e102829%_) - (macro-os-exception-procedure _%e102829%_) + (unchecked-slot-ref _%exn102932%_ 'exception)))) + (if (macro-os-exception? _%e102935%_) + (macro-os-exception-procedure _%e102935%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%e102829%_ '()))))) - (if (macro-os-exception? _%exn102826%_) - (macro-os-exception-procedure _%exn102826%_) + (cons _%e102935%_ '()))))) + (if (macro-os-exception? _%exn102932%_) + (macro-os-exception-procedure _%exn102932%_) (error '"not an instance" 'os-exception? (cons 'os-exception-procedure - (cons _%exn102826%_ '()))))))) + (cons _%exn102932%_ '()))))))) (define permission-denied-exception? - (lambda (_%exn102822%_) + (lambda (_%exn102928%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102822%_)) - (let ((_%e102824%_ + (class-instance? RuntimeException::t _%exn102928%_)) + (let ((_%e102930%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102822%_ 'exception)))) - (macro-permission-denied-exception? _%e102824%_)) - (macro-permission-denied-exception? _%exn102822%_)))) + (unchecked-slot-ref _%exn102928%_ 'exception)))) + (macro-permission-denied-exception? _%e102930%_)) + (macro-permission-denied-exception? _%exn102928%_)))) (define permission-denied-exception-arguments - (lambda (_%exn102818%_) + (lambda (_%exn102924%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102818%_)) - (let ((_%e102820%_ + (class-instance? RuntimeException::t _%exn102924%_)) + (let ((_%e102926%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102818%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102820%_) - (macro-permission-denied-exception-arguments _%e102820%_) + (unchecked-slot-ref _%exn102924%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102926%_) + (macro-permission-denied-exception-arguments _%e102926%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%e102820%_ '()))))) - (if (macro-permission-denied-exception? _%exn102818%_) - (macro-permission-denied-exception-arguments _%exn102818%_) + (cons _%e102926%_ '()))))) + (if (macro-permission-denied-exception? _%exn102924%_) + (macro-permission-denied-exception-arguments _%exn102924%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-arguments - (cons _%exn102818%_ '()))))))) + (cons _%exn102924%_ '()))))))) (define permission-denied-exception-procedure - (lambda (_%exn102812%_) + (lambda (_%exn102918%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102812%_)) - (let ((_%e102815%_ + (class-instance? RuntimeException::t _%exn102918%_)) + (let ((_%e102921%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102812%_ 'exception)))) - (if (macro-permission-denied-exception? _%e102815%_) - (macro-permission-denied-exception-procedure _%e102815%_) + (unchecked-slot-ref _%exn102918%_ 'exception)))) + (if (macro-permission-denied-exception? _%e102921%_) + (macro-permission-denied-exception-procedure _%e102921%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%e102815%_ '()))))) - (if (macro-permission-denied-exception? _%exn102812%_) - (macro-permission-denied-exception-procedure _%exn102812%_) + (cons _%e102921%_ '()))))) + (if (macro-permission-denied-exception? _%exn102918%_) + (macro-permission-denied-exception-procedure _%exn102918%_) (error '"not an instance" 'permission-denied-exception? (cons 'permission-denied-exception-procedure - (cons _%exn102812%_ '()))))))) + (cons _%exn102918%_ '()))))))) (define range-exception? - (lambda (_%exn102808%_) + (lambda (_%exn102914%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102808%_)) - (let ((_%e102810%_ + (class-instance? RuntimeException::t _%exn102914%_)) + (let ((_%e102916%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102808%_ 'exception)))) - (macro-range-exception? _%e102810%_)) - (macro-range-exception? _%exn102808%_)))) + (unchecked-slot-ref _%exn102914%_ 'exception)))) + (macro-range-exception? _%e102916%_)) + (macro-range-exception? _%exn102914%_)))) (define range-exception-arg-id - (lambda (_%exn102804%_) + (lambda (_%exn102910%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102804%_)) - (let ((_%e102806%_ + (class-instance? RuntimeException::t _%exn102910%_)) + (let ((_%e102912%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102804%_ 'exception)))) - (if (macro-range-exception? _%e102806%_) - (macro-range-exception-arg-id _%e102806%_) + (unchecked-slot-ref _%exn102910%_ 'exception)))) + (if (macro-range-exception? _%e102912%_) + (macro-range-exception-arg-id _%e102912%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%e102806%_ '()))))) - (if (macro-range-exception? _%exn102804%_) - (macro-range-exception-arg-id _%exn102804%_) + (cons _%e102912%_ '()))))) + (if (macro-range-exception? _%exn102910%_) + (macro-range-exception-arg-id _%exn102910%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arg-id - (cons _%exn102804%_ '()))))))) + (cons _%exn102910%_ '()))))))) (define range-exception-arguments - (lambda (_%exn102800%_) + (lambda (_%exn102906%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102800%_)) - (let ((_%e102802%_ + (class-instance? RuntimeException::t _%exn102906%_)) + (let ((_%e102908%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102800%_ 'exception)))) - (if (macro-range-exception? _%e102802%_) - (macro-range-exception-arguments _%e102802%_) + (unchecked-slot-ref _%exn102906%_ 'exception)))) + (if (macro-range-exception? _%e102908%_) + (macro-range-exception-arguments _%e102908%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%e102802%_ '()))))) - (if (macro-range-exception? _%exn102800%_) - (macro-range-exception-arguments _%exn102800%_) + (cons _%e102908%_ '()))))) + (if (macro-range-exception? _%exn102906%_) + (macro-range-exception-arguments _%exn102906%_) (error '"not an instance" 'range-exception? (cons 'range-exception-arguments - (cons _%exn102800%_ '()))))))) + (cons _%exn102906%_ '()))))))) (define range-exception-procedure - (lambda (_%exn102794%_) + (lambda (_%exn102900%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102794%_)) - (let ((_%e102797%_ + (class-instance? RuntimeException::t _%exn102900%_)) + (let ((_%e102903%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102794%_ 'exception)))) - (if (macro-range-exception? _%e102797%_) - (macro-range-exception-procedure _%e102797%_) + (unchecked-slot-ref _%exn102900%_ 'exception)))) + (if (macro-range-exception? _%e102903%_) + (macro-range-exception-procedure _%e102903%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%e102797%_ '()))))) - (if (macro-range-exception? _%exn102794%_) - (macro-range-exception-procedure _%exn102794%_) + (cons _%e102903%_ '()))))) + (if (macro-range-exception? _%exn102900%_) + (macro-range-exception-procedure _%exn102900%_) (error '"not an instance" 'range-exception? (cons 'range-exception-procedure - (cons _%exn102794%_ '()))))))) + (cons _%exn102900%_ '()))))))) (define rpc-remote-error-exception? - (lambda (_%exn102790%_) + (lambda (_%exn102896%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102790%_)) - (let ((_%e102792%_ + (class-instance? RuntimeException::t _%exn102896%_)) + (let ((_%e102898%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102790%_ 'exception)))) - (macro-rpc-remote-error-exception? _%e102792%_)) - (macro-rpc-remote-error-exception? _%exn102790%_)))) + (unchecked-slot-ref _%exn102896%_ 'exception)))) + (macro-rpc-remote-error-exception? _%e102898%_)) + (macro-rpc-remote-error-exception? _%exn102896%_)))) (define rpc-remote-error-exception-arguments - (lambda (_%exn102786%_) + (lambda (_%exn102892%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102786%_)) - (let ((_%e102788%_ + (class-instance? RuntimeException::t _%exn102892%_)) + (let ((_%e102894%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102786%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102788%_) - (macro-rpc-remote-error-exception-arguments _%e102788%_) + (unchecked-slot-ref _%exn102892%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102894%_) + (macro-rpc-remote-error-exception-arguments _%e102894%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%e102788%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102786%_) - (macro-rpc-remote-error-exception-arguments _%exn102786%_) + (cons _%e102894%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102892%_) + (macro-rpc-remote-error-exception-arguments _%exn102892%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-arguments - (cons _%exn102786%_ '()))))))) + (cons _%exn102892%_ '()))))))) (define rpc-remote-error-exception-message - (lambda (_%exn102782%_) + (lambda (_%exn102888%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102782%_)) - (let ((_%e102784%_ + (class-instance? RuntimeException::t _%exn102888%_)) + (let ((_%e102890%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102782%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102784%_) - (macro-rpc-remote-error-exception-message _%e102784%_) + (unchecked-slot-ref _%exn102888%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102890%_) + (macro-rpc-remote-error-exception-message _%e102890%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%e102784%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102782%_) - (macro-rpc-remote-error-exception-message _%exn102782%_) + (cons _%e102890%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102888%_) + (macro-rpc-remote-error-exception-message _%exn102888%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-message - (cons _%exn102782%_ '()))))))) + (cons _%exn102888%_ '()))))))) (define rpc-remote-error-exception-procedure - (lambda (_%exn102776%_) + (lambda (_%exn102882%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102776%_)) - (let ((_%e102779%_ + (class-instance? RuntimeException::t _%exn102882%_)) + (let ((_%e102885%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102776%_ 'exception)))) - (if (macro-rpc-remote-error-exception? _%e102779%_) - (macro-rpc-remote-error-exception-procedure _%e102779%_) + (unchecked-slot-ref _%exn102882%_ 'exception)))) + (if (macro-rpc-remote-error-exception? _%e102885%_) + (macro-rpc-remote-error-exception-procedure _%e102885%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%e102779%_ '()))))) - (if (macro-rpc-remote-error-exception? _%exn102776%_) - (macro-rpc-remote-error-exception-procedure _%exn102776%_) + (cons _%e102885%_ '()))))) + (if (macro-rpc-remote-error-exception? _%exn102882%_) + (macro-rpc-remote-error-exception-procedure _%exn102882%_) (error '"not an instance" 'rpc-remote-error-exception? (cons 'rpc-remote-error-exception-procedure - (cons _%exn102776%_ '()))))))) + (cons _%exn102882%_ '()))))))) (define scheduler-exception? - (lambda (_%exn102772%_) + (lambda (_%exn102878%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102772%_)) - (let ((_%e102774%_ + (class-instance? RuntimeException::t _%exn102878%_)) + (let ((_%e102880%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102772%_ 'exception)))) - (macro-scheduler-exception? _%e102774%_)) - (macro-scheduler-exception? _%exn102772%_)))) + (unchecked-slot-ref _%exn102878%_ 'exception)))) + (macro-scheduler-exception? _%e102880%_)) + (macro-scheduler-exception? _%exn102878%_)))) (define scheduler-exception-reason - (lambda (_%exn102766%_) + (lambda (_%exn102872%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102766%_)) - (let ((_%e102769%_ + (class-instance? RuntimeException::t _%exn102872%_)) + (let ((_%e102875%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102766%_ 'exception)))) - (if (macro-scheduler-exception? _%e102769%_) - (macro-scheduler-exception-reason _%e102769%_) + (unchecked-slot-ref _%exn102872%_ 'exception)))) + (if (macro-scheduler-exception? _%e102875%_) + (macro-scheduler-exception-reason _%e102875%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%e102769%_ '()))))) - (if (macro-scheduler-exception? _%exn102766%_) - (macro-scheduler-exception-reason _%exn102766%_) + (cons _%e102875%_ '()))))) + (if (macro-scheduler-exception? _%exn102872%_) + (macro-scheduler-exception-reason _%exn102872%_) (error '"not an instance" 'scheduler-exception? (cons 'scheduler-exception-reason - (cons _%exn102766%_ '()))))))) + (cons _%exn102872%_ '()))))))) (define sfun-conversion-exception? - (lambda (_%exn102762%_) + (lambda (_%exn102868%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102762%_)) - (let ((_%e102764%_ + (class-instance? RuntimeException::t _%exn102868%_)) + (let ((_%e102870%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102762%_ 'exception)))) - (macro-sfun-conversion-exception? _%e102764%_)) - (macro-sfun-conversion-exception? _%exn102762%_)))) + (unchecked-slot-ref _%exn102868%_ 'exception)))) + (macro-sfun-conversion-exception? _%e102870%_)) + (macro-sfun-conversion-exception? _%exn102868%_)))) (define sfun-conversion-exception-arguments - (lambda (_%exn102758%_) + (lambda (_%exn102864%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102758%_)) - (let ((_%e102760%_ + (class-instance? RuntimeException::t _%exn102864%_)) + (let ((_%e102866%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102758%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102760%_) - (macro-sfun-conversion-exception-arguments _%e102760%_) + (unchecked-slot-ref _%exn102864%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102866%_) + (macro-sfun-conversion-exception-arguments _%e102866%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%e102760%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102758%_) - (macro-sfun-conversion-exception-arguments _%exn102758%_) + (cons _%e102866%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102864%_) + (macro-sfun-conversion-exception-arguments _%exn102864%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-arguments - (cons _%exn102758%_ '()))))))) + (cons _%exn102864%_ '()))))))) (define sfun-conversion-exception-code - (lambda (_%exn102754%_) + (lambda (_%exn102860%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102754%_)) - (let ((_%e102756%_ + (class-instance? RuntimeException::t _%exn102860%_)) + (let ((_%e102862%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102754%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102756%_) - (macro-sfun-conversion-exception-code _%e102756%_) + (unchecked-slot-ref _%exn102860%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102862%_) + (macro-sfun-conversion-exception-code _%e102862%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%e102756%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102754%_) - (macro-sfun-conversion-exception-code _%exn102754%_) + (cons _%e102862%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102860%_) + (macro-sfun-conversion-exception-code _%exn102860%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-code - (cons _%exn102754%_ '()))))))) + (cons _%exn102860%_ '()))))))) (define sfun-conversion-exception-message - (lambda (_%exn102750%_) + (lambda (_%exn102856%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102750%_)) - (let ((_%e102752%_ + (class-instance? RuntimeException::t _%exn102856%_)) + (let ((_%e102858%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102750%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102752%_) - (macro-sfun-conversion-exception-message _%e102752%_) + (unchecked-slot-ref _%exn102856%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102858%_) + (macro-sfun-conversion-exception-message _%e102858%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%e102752%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102750%_) - (macro-sfun-conversion-exception-message _%exn102750%_) + (cons _%e102858%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102856%_) + (macro-sfun-conversion-exception-message _%exn102856%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-message - (cons _%exn102750%_ '()))))))) + (cons _%exn102856%_ '()))))))) (define sfun-conversion-exception-procedure - (lambda (_%exn102744%_) + (lambda (_%exn102850%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102744%_)) - (let ((_%e102747%_ + (class-instance? RuntimeException::t _%exn102850%_)) + (let ((_%e102853%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102744%_ 'exception)))) - (if (macro-sfun-conversion-exception? _%e102747%_) - (macro-sfun-conversion-exception-procedure _%e102747%_) + (unchecked-slot-ref _%exn102850%_ 'exception)))) + (if (macro-sfun-conversion-exception? _%e102853%_) + (macro-sfun-conversion-exception-procedure _%e102853%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%e102747%_ '()))))) - (if (macro-sfun-conversion-exception? _%exn102744%_) - (macro-sfun-conversion-exception-procedure _%exn102744%_) + (cons _%e102853%_ '()))))) + (if (macro-sfun-conversion-exception? _%exn102850%_) + (macro-sfun-conversion-exception-procedure _%exn102850%_) (error '"not an instance" 'sfun-conversion-exception? (cons 'sfun-conversion-exception-procedure - (cons _%exn102744%_ '()))))))) + (cons _%exn102850%_ '()))))))) (define stack-overflow-exception? - (lambda (_%exn102738%_) + (lambda (_%exn102844%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102738%_)) - (let ((_%e102741%_ + (class-instance? RuntimeException::t _%exn102844%_)) + (let ((_%e102847%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102738%_ 'exception)))) - (macro-stack-overflow-exception? _%e102741%_)) - (macro-stack-overflow-exception? _%exn102738%_)))) + (unchecked-slot-ref _%exn102844%_ 'exception)))) + (macro-stack-overflow-exception? _%e102847%_)) + (macro-stack-overflow-exception? _%exn102844%_)))) (define started-thread-exception? - (lambda (_%exn102734%_) + (lambda (_%exn102840%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102734%_)) - (let ((_%e102736%_ + (class-instance? RuntimeException::t _%exn102840%_)) + (let ((_%e102842%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102734%_ 'exception)))) - (macro-started-thread-exception? _%e102736%_)) - (macro-started-thread-exception? _%exn102734%_)))) + (unchecked-slot-ref _%exn102840%_ 'exception)))) + (macro-started-thread-exception? _%e102842%_)) + (macro-started-thread-exception? _%exn102840%_)))) (define started-thread-exception-arguments - (lambda (_%exn102730%_) + (lambda (_%exn102836%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102730%_)) - (let ((_%e102732%_ + (class-instance? RuntimeException::t _%exn102836%_)) + (let ((_%e102838%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102730%_ 'exception)))) - (if (macro-started-thread-exception? _%e102732%_) - (macro-started-thread-exception-arguments _%e102732%_) + (unchecked-slot-ref _%exn102836%_ 'exception)))) + (if (macro-started-thread-exception? _%e102838%_) + (macro-started-thread-exception-arguments _%e102838%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%e102732%_ '()))))) - (if (macro-started-thread-exception? _%exn102730%_) - (macro-started-thread-exception-arguments _%exn102730%_) + (cons _%e102838%_ '()))))) + (if (macro-started-thread-exception? _%exn102836%_) + (macro-started-thread-exception-arguments _%exn102836%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-arguments - (cons _%exn102730%_ '()))))))) + (cons _%exn102836%_ '()))))))) (define started-thread-exception-procedure - (lambda (_%exn102724%_) + (lambda (_%exn102830%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102724%_)) - (let ((_%e102727%_ + (class-instance? RuntimeException::t _%exn102830%_)) + (let ((_%e102833%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102724%_ 'exception)))) - (if (macro-started-thread-exception? _%e102727%_) - (macro-started-thread-exception-procedure _%e102727%_) + (unchecked-slot-ref _%exn102830%_ 'exception)))) + (if (macro-started-thread-exception? _%e102833%_) + (macro-started-thread-exception-procedure _%e102833%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%e102727%_ '()))))) - (if (macro-started-thread-exception? _%exn102724%_) - (macro-started-thread-exception-procedure _%exn102724%_) + (cons _%e102833%_ '()))))) + (if (macro-started-thread-exception? _%exn102830%_) + (macro-started-thread-exception-procedure _%exn102830%_) (error '"not an instance" 'started-thread-exception? (cons 'started-thread-exception-procedure - (cons _%exn102724%_ '()))))))) + (cons _%exn102830%_ '()))))))) (define terminated-thread-exception? - (lambda (_%exn102720%_) + (lambda (_%exn102826%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102720%_)) - (let ((_%e102722%_ + (class-instance? RuntimeException::t _%exn102826%_)) + (let ((_%e102828%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102720%_ 'exception)))) - (macro-terminated-thread-exception? _%e102722%_)) - (macro-terminated-thread-exception? _%exn102720%_)))) + (unchecked-slot-ref _%exn102826%_ 'exception)))) + (macro-terminated-thread-exception? _%e102828%_)) + (macro-terminated-thread-exception? _%exn102826%_)))) (define terminated-thread-exception-arguments - (lambda (_%exn102716%_) + (lambda (_%exn102822%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102716%_)) - (let ((_%e102718%_ + (class-instance? RuntimeException::t _%exn102822%_)) + (let ((_%e102824%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102716%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102718%_) - (macro-terminated-thread-exception-arguments _%e102718%_) + (unchecked-slot-ref _%exn102822%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102824%_) + (macro-terminated-thread-exception-arguments _%e102824%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%e102718%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102716%_) - (macro-terminated-thread-exception-arguments _%exn102716%_) + (cons _%e102824%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102822%_) + (macro-terminated-thread-exception-arguments _%exn102822%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-arguments - (cons _%exn102716%_ '()))))))) + (cons _%exn102822%_ '()))))))) (define terminated-thread-exception-procedure - (lambda (_%exn102710%_) + (lambda (_%exn102816%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102710%_)) - (let ((_%e102713%_ + (class-instance? RuntimeException::t _%exn102816%_)) + (let ((_%e102819%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102710%_ 'exception)))) - (if (macro-terminated-thread-exception? _%e102713%_) - (macro-terminated-thread-exception-procedure _%e102713%_) + (unchecked-slot-ref _%exn102816%_ 'exception)))) + (if (macro-terminated-thread-exception? _%e102819%_) + (macro-terminated-thread-exception-procedure _%e102819%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%e102713%_ '()))))) - (if (macro-terminated-thread-exception? _%exn102710%_) - (macro-terminated-thread-exception-procedure _%exn102710%_) + (cons _%e102819%_ '()))))) + (if (macro-terminated-thread-exception? _%exn102816%_) + (macro-terminated-thread-exception-procedure _%exn102816%_) (error '"not an instance" 'terminated-thread-exception? (cons 'terminated-thread-exception-procedure - (cons _%exn102710%_ '()))))))) + (cons _%exn102816%_ '()))))))) (define type-exception? - (lambda (_%exn102706%_) + (lambda (_%exn102812%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102706%_)) - (let ((_%e102708%_ + (class-instance? RuntimeException::t _%exn102812%_)) + (let ((_%e102814%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102706%_ 'exception)))) - (macro-type-exception? _%e102708%_)) - (macro-type-exception? _%exn102706%_)))) + (unchecked-slot-ref _%exn102812%_ 'exception)))) + (macro-type-exception? _%e102814%_)) + (macro-type-exception? _%exn102812%_)))) (define type-exception-arg-id - (lambda (_%exn102702%_) + (lambda (_%exn102808%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102702%_)) - (let ((_%e102704%_ + (class-instance? RuntimeException::t _%exn102808%_)) + (let ((_%e102810%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102702%_ 'exception)))) - (if (macro-type-exception? _%e102704%_) - (macro-type-exception-arg-id _%e102704%_) + (unchecked-slot-ref _%exn102808%_ 'exception)))) + (if (macro-type-exception? _%e102810%_) + (macro-type-exception-arg-id _%e102810%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%e102704%_ '()))))) - (if (macro-type-exception? _%exn102702%_) - (macro-type-exception-arg-id _%exn102702%_) + (cons _%e102810%_ '()))))) + (if (macro-type-exception? _%exn102808%_) + (macro-type-exception-arg-id _%exn102808%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arg-id - (cons _%exn102702%_ '()))))))) + (cons _%exn102808%_ '()))))))) (define type-exception-arguments - (lambda (_%exn102698%_) + (lambda (_%exn102804%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102698%_)) - (let ((_%e102700%_ + (class-instance? RuntimeException::t _%exn102804%_)) + (let ((_%e102806%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102698%_ 'exception)))) - (if (macro-type-exception? _%e102700%_) - (macro-type-exception-arguments _%e102700%_) + (unchecked-slot-ref _%exn102804%_ 'exception)))) + (if (macro-type-exception? _%e102806%_) + (macro-type-exception-arguments _%e102806%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%e102700%_ '()))))) - (if (macro-type-exception? _%exn102698%_) - (macro-type-exception-arguments _%exn102698%_) + (cons _%e102806%_ '()))))) + (if (macro-type-exception? _%exn102804%_) + (macro-type-exception-arguments _%exn102804%_) (error '"not an instance" 'type-exception? (cons 'type-exception-arguments - (cons _%exn102698%_ '()))))))) + (cons _%exn102804%_ '()))))))) (define type-exception-procedure - (lambda (_%exn102694%_) + (lambda (_%exn102800%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102694%_)) - (let ((_%e102696%_ + (class-instance? RuntimeException::t _%exn102800%_)) + (let ((_%e102802%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102694%_ 'exception)))) - (if (macro-type-exception? _%e102696%_) - (macro-type-exception-procedure _%e102696%_) + (unchecked-slot-ref _%exn102800%_ 'exception)))) + (if (macro-type-exception? _%e102802%_) + (macro-type-exception-procedure _%e102802%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%e102696%_ '()))))) - (if (macro-type-exception? _%exn102694%_) - (macro-type-exception-procedure _%exn102694%_) + (cons _%e102802%_ '()))))) + (if (macro-type-exception? _%exn102800%_) + (macro-type-exception-procedure _%exn102800%_) (error '"not an instance" 'type-exception? (cons 'type-exception-procedure - (cons _%exn102694%_ '()))))))) + (cons _%exn102800%_ '()))))))) (define type-exception-type-id - (lambda (_%exn102688%_) + (lambda (_%exn102794%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102688%_)) - (let ((_%e102691%_ + (class-instance? RuntimeException::t _%exn102794%_)) + (let ((_%e102797%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102688%_ 'exception)))) - (if (macro-type-exception? _%e102691%_) - (macro-type-exception-type-id _%e102691%_) + (unchecked-slot-ref _%exn102794%_ 'exception)))) + (if (macro-type-exception? _%e102797%_) + (macro-type-exception-type-id _%e102797%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%e102691%_ '()))))) - (if (macro-type-exception? _%exn102688%_) - (macro-type-exception-type-id _%exn102688%_) + (cons _%e102797%_ '()))))) + (if (macro-type-exception? _%exn102794%_) + (macro-type-exception-type-id _%exn102794%_) (error '"not an instance" 'type-exception? (cons 'type-exception-type-id - (cons _%exn102688%_ '()))))))) + (cons _%exn102794%_ '()))))))) (define unbound-global-exception? - (lambda (_%exn102684%_) + (lambda (_%exn102790%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102684%_)) - (let ((_%e102686%_ + (class-instance? RuntimeException::t _%exn102790%_)) + (let ((_%e102792%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102684%_ 'exception)))) - (macro-unbound-global-exception? _%e102686%_)) - (macro-unbound-global-exception? _%exn102684%_)))) + (unchecked-slot-ref _%exn102790%_ 'exception)))) + (macro-unbound-global-exception? _%e102792%_)) + (macro-unbound-global-exception? _%exn102790%_)))) (define unbound-global-exception-code - (lambda (_%exn102680%_) + (lambda (_%exn102786%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102680%_)) - (let ((_%e102682%_ + (class-instance? RuntimeException::t _%exn102786%_)) + (let ((_%e102788%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102680%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102682%_) - (macro-unbound-global-exception-code _%e102682%_) + (unchecked-slot-ref _%exn102786%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102788%_) + (macro-unbound-global-exception-code _%e102788%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%e102682%_ '()))))) - (if (macro-unbound-global-exception? _%exn102680%_) - (macro-unbound-global-exception-code _%exn102680%_) + (cons _%e102788%_ '()))))) + (if (macro-unbound-global-exception? _%exn102786%_) + (macro-unbound-global-exception-code _%exn102786%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-code - (cons _%exn102680%_ '()))))))) + (cons _%exn102786%_ '()))))))) (define unbound-global-exception-rte - (lambda (_%exn102676%_) + (lambda (_%exn102782%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102676%_)) - (let ((_%e102678%_ + (class-instance? RuntimeException::t _%exn102782%_)) + (let ((_%e102784%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102676%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102678%_) - (macro-unbound-global-exception-rte _%e102678%_) + (unchecked-slot-ref _%exn102782%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102784%_) + (macro-unbound-global-exception-rte _%e102784%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%e102678%_ '()))))) - (if (macro-unbound-global-exception? _%exn102676%_) - (macro-unbound-global-exception-rte _%exn102676%_) + (cons _%e102784%_ '()))))) + (if (macro-unbound-global-exception? _%exn102782%_) + (macro-unbound-global-exception-rte _%exn102782%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-rte - (cons _%exn102676%_ '()))))))) + (cons _%exn102782%_ '()))))))) (define unbound-global-exception-variable - (lambda (_%exn102670%_) + (lambda (_%exn102776%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102670%_)) - (let ((_%e102673%_ + (class-instance? RuntimeException::t _%exn102776%_)) + (let ((_%e102779%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102670%_ 'exception)))) - (if (macro-unbound-global-exception? _%e102673%_) - (macro-unbound-global-exception-variable _%e102673%_) + (unchecked-slot-ref _%exn102776%_ 'exception)))) + (if (macro-unbound-global-exception? _%e102779%_) + (macro-unbound-global-exception-variable _%e102779%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%e102673%_ '()))))) - (if (macro-unbound-global-exception? _%exn102670%_) - (macro-unbound-global-exception-variable _%exn102670%_) + (cons _%e102779%_ '()))))) + (if (macro-unbound-global-exception? _%exn102776%_) + (macro-unbound-global-exception-variable _%exn102776%_) (error '"not an instance" 'unbound-global-exception? (cons 'unbound-global-exception-variable - (cons _%exn102670%_ '()))))))) + (cons _%exn102776%_ '()))))))) (define unbound-key-exception? - (lambda (_%exn102666%_) + (lambda (_%exn102772%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102666%_)) - (let ((_%e102668%_ + (class-instance? RuntimeException::t _%exn102772%_)) + (let ((_%e102774%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102666%_ 'exception)))) - (macro-unbound-key-exception? _%e102668%_)) - (macro-unbound-key-exception? _%exn102666%_)))) + (unchecked-slot-ref _%exn102772%_ 'exception)))) + (macro-unbound-key-exception? _%e102774%_)) + (macro-unbound-key-exception? _%exn102772%_)))) (define unbound-key-exception-arguments - (lambda (_%exn102662%_) + (lambda (_%exn102768%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102662%_)) - (let ((_%e102664%_ + (class-instance? RuntimeException::t _%exn102768%_)) + (let ((_%e102770%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102662%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102664%_) - (macro-unbound-key-exception-arguments _%e102664%_) + (unchecked-slot-ref _%exn102768%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102770%_) + (macro-unbound-key-exception-arguments _%e102770%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%e102664%_ '()))))) - (if (macro-unbound-key-exception? _%exn102662%_) - (macro-unbound-key-exception-arguments _%exn102662%_) + (cons _%e102770%_ '()))))) + (if (macro-unbound-key-exception? _%exn102768%_) + (macro-unbound-key-exception-arguments _%exn102768%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-arguments - (cons _%exn102662%_ '()))))))) + (cons _%exn102768%_ '()))))))) (define unbound-key-exception-procedure - (lambda (_%exn102656%_) + (lambda (_%exn102762%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102656%_)) - (let ((_%e102659%_ + (class-instance? RuntimeException::t _%exn102762%_)) + (let ((_%e102765%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102656%_ 'exception)))) - (if (macro-unbound-key-exception? _%e102659%_) - (macro-unbound-key-exception-procedure _%e102659%_) + (unchecked-slot-ref _%exn102762%_ 'exception)))) + (if (macro-unbound-key-exception? _%e102765%_) + (macro-unbound-key-exception-procedure _%e102765%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%e102659%_ '()))))) - (if (macro-unbound-key-exception? _%exn102656%_) - (macro-unbound-key-exception-procedure _%exn102656%_) + (cons _%e102765%_ '()))))) + (if (macro-unbound-key-exception? _%exn102762%_) + (macro-unbound-key-exception-procedure _%exn102762%_) (error '"not an instance" 'unbound-key-exception? (cons 'unbound-key-exception-procedure - (cons _%exn102656%_ '()))))))) + (cons _%exn102762%_ '()))))))) (define unbound-os-environment-variable-exception? - (lambda (_%exn102652%_) + (lambda (_%exn102758%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102652%_)) - (let ((_%e102654%_ + (class-instance? RuntimeException::t _%exn102758%_)) + (let ((_%e102760%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102652%_ 'exception)))) - (macro-unbound-os-environment-variable-exception? _%e102654%_)) - (macro-unbound-os-environment-variable-exception? _%exn102652%_)))) + (unchecked-slot-ref _%exn102758%_ 'exception)))) + (macro-unbound-os-environment-variable-exception? _%e102760%_)) + (macro-unbound-os-environment-variable-exception? _%exn102758%_)))) (define unbound-os-environment-variable-exception-arguments - (lambda (_%exn102648%_) + (lambda (_%exn102754%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102648%_)) - (let ((_%e102650%_ + (class-instance? RuntimeException::t _%exn102754%_)) + (let ((_%e102756%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102648%_ 'exception)))) + (unchecked-slot-ref _%exn102754%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102650%_) + _%e102756%_) (macro-unbound-os-environment-variable-exception-arguments - _%e102650%_) + _%e102756%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%e102650%_ '()))))) + (cons _%e102756%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102648%_) + _%exn102754%_) (macro-unbound-os-environment-variable-exception-arguments - _%exn102648%_) + _%exn102754%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-arguments - (cons _%exn102648%_ '()))))))) + (cons _%exn102754%_ '()))))))) (define unbound-os-environment-variable-exception-procedure - (lambda (_%exn102642%_) + (lambda (_%exn102748%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102642%_)) - (let ((_%e102645%_ + (class-instance? RuntimeException::t _%exn102748%_)) + (let ((_%e102751%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102642%_ 'exception)))) + (unchecked-slot-ref _%exn102748%_ 'exception)))) (if (macro-unbound-os-environment-variable-exception? - _%e102645%_) + _%e102751%_) (macro-unbound-os-environment-variable-exception-procedure - _%e102645%_) + _%e102751%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%e102645%_ '()))))) + (cons _%e102751%_ '()))))) (if (macro-unbound-os-environment-variable-exception? - _%exn102642%_) + _%exn102748%_) (macro-unbound-os-environment-variable-exception-procedure - _%exn102642%_) + _%exn102748%_) (error '"not an instance" 'unbound-os-environment-variable-exception? (cons 'unbound-os-environment-variable-exception-procedure - (cons _%exn102642%_ '()))))))) + (cons _%exn102748%_ '()))))))) (define unbound-serial-number-exception? - (lambda (_%exn102638%_) + (lambda (_%exn102744%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102638%_)) - (let ((_%e102640%_ + (class-instance? RuntimeException::t _%exn102744%_)) + (let ((_%e102746%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102638%_ 'exception)))) - (macro-unbound-serial-number-exception? _%e102640%_)) - (macro-unbound-serial-number-exception? _%exn102638%_)))) + (unchecked-slot-ref _%exn102744%_ 'exception)))) + (macro-unbound-serial-number-exception? _%e102746%_)) + (macro-unbound-serial-number-exception? _%exn102744%_)))) (define unbound-serial-number-exception-arguments - (lambda (_%exn102634%_) + (lambda (_%exn102740%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102634%_)) - (let ((_%e102636%_ + (class-instance? RuntimeException::t _%exn102740%_)) + (let ((_%e102742%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102634%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102636%_) - (macro-unbound-serial-number-exception-arguments _%e102636%_) + (unchecked-slot-ref _%exn102740%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102742%_) + (macro-unbound-serial-number-exception-arguments _%e102742%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%e102636%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102634%_) - (macro-unbound-serial-number-exception-arguments _%exn102634%_) + (cons _%e102742%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102740%_) + (macro-unbound-serial-number-exception-arguments _%exn102740%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-arguments - (cons _%exn102634%_ '()))))))) + (cons _%exn102740%_ '()))))))) (define unbound-serial-number-exception-procedure - (lambda (_%exn102628%_) + (lambda (_%exn102734%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102628%_)) - (let ((_%e102631%_ + (class-instance? RuntimeException::t _%exn102734%_)) + (let ((_%e102737%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102628%_ 'exception)))) - (if (macro-unbound-serial-number-exception? _%e102631%_) - (macro-unbound-serial-number-exception-procedure _%e102631%_) + (unchecked-slot-ref _%exn102734%_ 'exception)))) + (if (macro-unbound-serial-number-exception? _%e102737%_) + (macro-unbound-serial-number-exception-procedure _%e102737%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%e102631%_ '()))))) - (if (macro-unbound-serial-number-exception? _%exn102628%_) - (macro-unbound-serial-number-exception-procedure _%exn102628%_) + (cons _%e102737%_ '()))))) + (if (macro-unbound-serial-number-exception? _%exn102734%_) + (macro-unbound-serial-number-exception-procedure _%exn102734%_) (error '"not an instance" 'unbound-serial-number-exception? (cons 'unbound-serial-number-exception-procedure - (cons _%exn102628%_ '()))))))) + (cons _%exn102734%_ '()))))))) (define uncaught-exception? - (lambda (_%exn102624%_) + (lambda (_%exn102730%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102624%_)) - (let ((_%e102626%_ + (class-instance? RuntimeException::t _%exn102730%_)) + (let ((_%e102732%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102624%_ 'exception)))) - (macro-uncaught-exception? _%e102626%_)) - (macro-uncaught-exception? _%exn102624%_)))) + (unchecked-slot-ref _%exn102730%_ 'exception)))) + (macro-uncaught-exception? _%e102732%_)) + (macro-uncaught-exception? _%exn102730%_)))) (define uncaught-exception-arguments - (lambda (_%exn102620%_) + (lambda (_%exn102726%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102620%_)) - (let ((_%e102622%_ + (class-instance? RuntimeException::t _%exn102726%_)) + (let ((_%e102728%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102620%_ 'exception)))) - (if (macro-uncaught-exception? _%e102622%_) - (macro-uncaught-exception-arguments _%e102622%_) + (unchecked-slot-ref _%exn102726%_ 'exception)))) + (if (macro-uncaught-exception? _%e102728%_) + (macro-uncaught-exception-arguments _%e102728%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%e102622%_ '()))))) - (if (macro-uncaught-exception? _%exn102620%_) - (macro-uncaught-exception-arguments _%exn102620%_) + (cons _%e102728%_ '()))))) + (if (macro-uncaught-exception? _%exn102726%_) + (macro-uncaught-exception-arguments _%exn102726%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-arguments - (cons _%exn102620%_ '()))))))) + (cons _%exn102726%_ '()))))))) (define uncaught-exception-procedure - (lambda (_%exn102616%_) + (lambda (_%exn102722%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102616%_)) - (let ((_%e102618%_ + (class-instance? RuntimeException::t _%exn102722%_)) + (let ((_%e102724%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102616%_ 'exception)))) - (if (macro-uncaught-exception? _%e102618%_) - (macro-uncaught-exception-procedure _%e102618%_) + (unchecked-slot-ref _%exn102722%_ 'exception)))) + (if (macro-uncaught-exception? _%e102724%_) + (macro-uncaught-exception-procedure _%e102724%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%e102618%_ '()))))) - (if (macro-uncaught-exception? _%exn102616%_) - (macro-uncaught-exception-procedure _%exn102616%_) + (cons _%e102724%_ '()))))) + (if (macro-uncaught-exception? _%exn102722%_) + (macro-uncaught-exception-procedure _%exn102722%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-procedure - (cons _%exn102616%_ '()))))))) + (cons _%exn102722%_ '()))))))) (define uncaught-exception-reason - (lambda (_%exn102610%_) + (lambda (_%exn102716%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102610%_)) - (let ((_%e102613%_ + (class-instance? RuntimeException::t _%exn102716%_)) + (let ((_%e102719%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102610%_ 'exception)))) - (if (macro-uncaught-exception? _%e102613%_) - (macro-uncaught-exception-reason _%e102613%_) + (unchecked-slot-ref _%exn102716%_ 'exception)))) + (if (macro-uncaught-exception? _%e102719%_) + (macro-uncaught-exception-reason _%e102719%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%e102613%_ '()))))) - (if (macro-uncaught-exception? _%exn102610%_) - (macro-uncaught-exception-reason _%exn102610%_) + (cons _%e102719%_ '()))))) + (if (macro-uncaught-exception? _%exn102716%_) + (macro-uncaught-exception-reason _%exn102716%_) (error '"not an instance" 'uncaught-exception? (cons 'uncaught-exception-reason - (cons _%exn102610%_ '()))))))) + (cons _%exn102716%_ '()))))))) (define uninitialized-thread-exception? - (lambda (_%exn102606%_) + (lambda (_%exn102712%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102606%_)) - (let ((_%e102608%_ + (class-instance? RuntimeException::t _%exn102712%_)) + (let ((_%e102714%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102606%_ 'exception)))) - (macro-uninitialized-thread-exception? _%e102608%_)) - (macro-uninitialized-thread-exception? _%exn102606%_)))) + (unchecked-slot-ref _%exn102712%_ 'exception)))) + (macro-uninitialized-thread-exception? _%e102714%_)) + (macro-uninitialized-thread-exception? _%exn102712%_)))) (define uninitialized-thread-exception-arguments - (lambda (_%exn102602%_) + (lambda (_%exn102708%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102602%_)) - (let ((_%e102604%_ + (class-instance? RuntimeException::t _%exn102708%_)) + (let ((_%e102710%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102602%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102604%_) - (macro-uninitialized-thread-exception-arguments _%e102604%_) + (unchecked-slot-ref _%exn102708%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102710%_) + (macro-uninitialized-thread-exception-arguments _%e102710%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%e102604%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102602%_) - (macro-uninitialized-thread-exception-arguments _%exn102602%_) + (cons _%e102710%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102708%_) + (macro-uninitialized-thread-exception-arguments _%exn102708%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-arguments - (cons _%exn102602%_ '()))))))) + (cons _%exn102708%_ '()))))))) (define uninitialized-thread-exception-procedure - (lambda (_%exn102596%_) + (lambda (_%exn102702%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102596%_)) - (let ((_%e102599%_ + (class-instance? RuntimeException::t _%exn102702%_)) + (let ((_%e102705%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102596%_ 'exception)))) - (if (macro-uninitialized-thread-exception? _%e102599%_) - (macro-uninitialized-thread-exception-procedure _%e102599%_) + (unchecked-slot-ref _%exn102702%_ 'exception)))) + (if (macro-uninitialized-thread-exception? _%e102705%_) + (macro-uninitialized-thread-exception-procedure _%e102705%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%e102599%_ '()))))) - (if (macro-uninitialized-thread-exception? _%exn102596%_) - (macro-uninitialized-thread-exception-procedure _%exn102596%_) + (cons _%e102705%_ '()))))) + (if (macro-uninitialized-thread-exception? _%exn102702%_) + (macro-uninitialized-thread-exception-procedure _%exn102702%_) (error '"not an instance" 'uninitialized-thread-exception? (cons 'uninitialized-thread-exception-procedure - (cons _%exn102596%_ '()))))))) + (cons _%exn102702%_ '()))))))) (define unknown-keyword-argument-exception? - (lambda (_%exn102592%_) + (lambda (_%exn102698%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102592%_)) - (let ((_%e102594%_ + (class-instance? RuntimeException::t _%exn102698%_)) + (let ((_%e102700%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102592%_ 'exception)))) - (macro-unknown-keyword-argument-exception? _%e102594%_)) - (macro-unknown-keyword-argument-exception? _%exn102592%_)))) + (unchecked-slot-ref _%exn102698%_ 'exception)))) + (macro-unknown-keyword-argument-exception? _%e102700%_)) + (macro-unknown-keyword-argument-exception? _%exn102698%_)))) (define unknown-keyword-argument-exception-arguments - (lambda (_%exn102588%_) + (lambda (_%exn102694%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102588%_)) - (let ((_%e102590%_ + (class-instance? RuntimeException::t _%exn102694%_)) + (let ((_%e102696%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102588%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102590%_) + (unchecked-slot-ref _%exn102694%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102696%_) (macro-unknown-keyword-argument-exception-arguments - _%e102590%_) + _%e102696%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%e102590%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102588%_) + (cons _%e102696%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102694%_) (macro-unknown-keyword-argument-exception-arguments - _%exn102588%_) + _%exn102694%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-arguments - (cons _%exn102588%_ '()))))))) + (cons _%exn102694%_ '()))))))) (define unknown-keyword-argument-exception-procedure - (lambda (_%exn102582%_) + (lambda (_%exn102688%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102582%_)) - (let ((_%e102585%_ + (class-instance? RuntimeException::t _%exn102688%_)) + (let ((_%e102691%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102582%_ 'exception)))) - (if (macro-unknown-keyword-argument-exception? _%e102585%_) + (unchecked-slot-ref _%exn102688%_ 'exception)))) + (if (macro-unknown-keyword-argument-exception? _%e102691%_) (macro-unknown-keyword-argument-exception-procedure - _%e102585%_) + _%e102691%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%e102585%_ '()))))) - (if (macro-unknown-keyword-argument-exception? _%exn102582%_) + (cons _%e102691%_ '()))))) + (if (macro-unknown-keyword-argument-exception? _%exn102688%_) (macro-unknown-keyword-argument-exception-procedure - _%exn102582%_) + _%exn102688%_) (error '"not an instance" 'unknown-keyword-argument-exception? (cons 'unknown-keyword-argument-exception-procedure - (cons _%exn102582%_ '()))))))) + (cons _%exn102688%_ '()))))))) (define unterminated-process-exception? - (lambda (_%exn102578%_) + (lambda (_%exn102684%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102578%_)) - (let ((_%e102580%_ + (class-instance? RuntimeException::t _%exn102684%_)) + (let ((_%e102686%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102578%_ 'exception)))) - (macro-unterminated-process-exception? _%e102580%_)) - (macro-unterminated-process-exception? _%exn102578%_)))) + (unchecked-slot-ref _%exn102684%_ 'exception)))) + (macro-unterminated-process-exception? _%e102686%_)) + (macro-unterminated-process-exception? _%exn102684%_)))) (define unterminated-process-exception-arguments - (lambda (_%exn102574%_) + (lambda (_%exn102680%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102574%_)) - (let ((_%e102576%_ + (class-instance? RuntimeException::t _%exn102680%_)) + (let ((_%e102682%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102574%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102576%_) - (macro-unterminated-process-exception-arguments _%e102576%_) + (unchecked-slot-ref _%exn102680%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102682%_) + (macro-unterminated-process-exception-arguments _%e102682%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%e102576%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102574%_) - (macro-unterminated-process-exception-arguments _%exn102574%_) + (cons _%e102682%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102680%_) + (macro-unterminated-process-exception-arguments _%exn102680%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-arguments - (cons _%exn102574%_ '()))))))) + (cons _%exn102680%_ '()))))))) (define unterminated-process-exception-procedure - (lambda (_%exn102568%_) + (lambda (_%exn102674%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102568%_)) - (let ((_%e102571%_ + (class-instance? RuntimeException::t _%exn102674%_)) + (let ((_%e102677%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102568%_ 'exception)))) - (if (macro-unterminated-process-exception? _%e102571%_) - (macro-unterminated-process-exception-procedure _%e102571%_) + (unchecked-slot-ref _%exn102674%_ 'exception)))) + (if (macro-unterminated-process-exception? _%e102677%_) + (macro-unterminated-process-exception-procedure _%e102677%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%e102571%_ '()))))) - (if (macro-unterminated-process-exception? _%exn102568%_) - (macro-unterminated-process-exception-procedure _%exn102568%_) + (cons _%e102677%_ '()))))) + (if (macro-unterminated-process-exception? _%exn102674%_) + (macro-unterminated-process-exception-procedure _%exn102674%_) (error '"not an instance" 'unterminated-process-exception? (cons 'unterminated-process-exception-procedure - (cons _%exn102568%_ '()))))))) + (cons _%exn102674%_ '()))))))) (define wrong-number-of-arguments-exception? - (lambda (_%exn102564%_) + (lambda (_%exn102670%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102564%_)) - (let ((_%e102566%_ + (class-instance? RuntimeException::t _%exn102670%_)) + (let ((_%e102672%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102564%_ 'exception)))) - (macro-wrong-number-of-arguments-exception? _%e102566%_)) - (macro-wrong-number-of-arguments-exception? _%exn102564%_)))) + (unchecked-slot-ref _%exn102670%_ 'exception)))) + (macro-wrong-number-of-arguments-exception? _%e102672%_)) + (macro-wrong-number-of-arguments-exception? _%exn102670%_)))) (define wrong-number-of-arguments-exception-arguments - (lambda (_%exn102560%_) + (lambda (_%exn102666%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102560%_)) - (let ((_%e102562%_ + (class-instance? RuntimeException::t _%exn102666%_)) + (let ((_%e102668%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102560%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102562%_) + (unchecked-slot-ref _%exn102666%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102668%_) (macro-wrong-number-of-arguments-exception-arguments - _%e102562%_) + _%e102668%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%e102562%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102560%_) + (cons _%e102668%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102666%_) (macro-wrong-number-of-arguments-exception-arguments - _%exn102560%_) + _%exn102666%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-arguments - (cons _%exn102560%_ '()))))))) + (cons _%exn102666%_ '()))))))) (define wrong-number-of-arguments-exception-procedure - (lambda (_%exn102554%_) + (lambda (_%exn102660%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102554%_)) - (let ((_%e102557%_ + (class-instance? RuntimeException::t _%exn102660%_)) + (let ((_%e102663%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102554%_ 'exception)))) - (if (macro-wrong-number-of-arguments-exception? _%e102557%_) + (unchecked-slot-ref _%exn102660%_ 'exception)))) + (if (macro-wrong-number-of-arguments-exception? _%e102663%_) (macro-wrong-number-of-arguments-exception-procedure - _%e102557%_) + _%e102663%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%e102557%_ '()))))) - (if (macro-wrong-number-of-arguments-exception? _%exn102554%_) + (cons _%e102663%_ '()))))) + (if (macro-wrong-number-of-arguments-exception? _%exn102660%_) (macro-wrong-number-of-arguments-exception-procedure - _%exn102554%_) + _%exn102660%_) (error '"not an instance" 'wrong-number-of-arguments-exception? (cons 'wrong-number-of-arguments-exception-procedure - (cons _%exn102554%_ '()))))))) + (cons _%exn102660%_ '()))))))) (define wrong-number-of-values-exception? - (lambda (_%exn102550%_) + (lambda (_%exn102656%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102550%_)) - (let ((_%e102552%_ + (class-instance? RuntimeException::t _%exn102656%_)) + (let ((_%e102658%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102550%_ 'exception)))) - (macro-wrong-number-of-values-exception? _%e102552%_)) - (macro-wrong-number-of-values-exception? _%exn102550%_)))) + (unchecked-slot-ref _%exn102656%_ 'exception)))) + (macro-wrong-number-of-values-exception? _%e102658%_)) + (macro-wrong-number-of-values-exception? _%exn102656%_)))) (define wrong-number-of-values-exception-code - (lambda (_%exn102546%_) + (lambda (_%exn102652%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102546%_)) - (let ((_%e102548%_ + (class-instance? RuntimeException::t _%exn102652%_)) + (let ((_%e102654%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102546%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102548%_) - (macro-wrong-number-of-values-exception-code _%e102548%_) + (unchecked-slot-ref _%exn102652%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102654%_) + (macro-wrong-number-of-values-exception-code _%e102654%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%e102548%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102546%_) - (macro-wrong-number-of-values-exception-code _%exn102546%_) + (cons _%e102654%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102652%_) + (macro-wrong-number-of-values-exception-code _%exn102652%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-code - (cons _%exn102546%_ '()))))))) + (cons _%exn102652%_ '()))))))) (define wrong-number-of-values-exception-rte - (lambda (_%exn102542%_) + (lambda (_%exn102648%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102542%_)) - (let ((_%e102544%_ + (class-instance? RuntimeException::t _%exn102648%_)) + (let ((_%e102650%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102542%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102544%_) - (macro-wrong-number-of-values-exception-rte _%e102544%_) + (unchecked-slot-ref _%exn102648%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102650%_) + (macro-wrong-number-of-values-exception-rte _%e102650%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%e102544%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102542%_) - (macro-wrong-number-of-values-exception-rte _%exn102542%_) + (cons _%e102650%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102648%_) + (macro-wrong-number-of-values-exception-rte _%exn102648%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-rte - (cons _%exn102542%_ '()))))))) + (cons _%exn102648%_ '()))))))) (define wrong-number-of-values-exception-vals - (lambda (_%exn102536%_) + (lambda (_%exn102642%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102536%_)) - (let ((_%e102539%_ + (class-instance? RuntimeException::t _%exn102642%_)) + (let ((_%e102645%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102536%_ 'exception)))) - (if (macro-wrong-number-of-values-exception? _%e102539%_) - (macro-wrong-number-of-values-exception-vals _%e102539%_) + (unchecked-slot-ref _%exn102642%_ 'exception)))) + (if (macro-wrong-number-of-values-exception? _%e102645%_) + (macro-wrong-number-of-values-exception-vals _%e102645%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%e102539%_ '()))))) - (if (macro-wrong-number-of-values-exception? _%exn102536%_) - (macro-wrong-number-of-values-exception-vals _%exn102536%_) + (cons _%e102645%_ '()))))) + (if (macro-wrong-number-of-values-exception? _%exn102642%_) + (macro-wrong-number-of-values-exception-vals _%exn102642%_) (error '"not an instance" 'wrong-number-of-values-exception? (cons 'wrong-number-of-values-exception-vals - (cons _%exn102536%_ '()))))))) + (cons _%exn102642%_ '()))))))) (define wrong-processor-c-return-exception? - (lambda (_%exn102530%_) + (lambda (_%exn102636%_) (if (let () (declare (not safe)) - (class-instance? RuntimeException::t _%exn102530%_)) - (let ((_%e102533%_ + (class-instance? RuntimeException::t _%exn102636%_)) + (let ((_%e102639%_ (let () (declare (not safe)) - (unchecked-slot-ref _%exn102530%_ 'exception)))) - (macro-wrong-processor-c-return-exception? _%e102533%_)) - (macro-wrong-processor-c-return-exception? _%exn102530%_)))))) + (unchecked-slot-ref _%exn102636%_ 'exception)))) + (macro-wrong-processor-c-return-exception? _%e102639%_)) + (macro-wrong-processor-c-return-exception? _%exn102636%_)))))) diff --git a/src/bootstrap/gerbil/runtime/error~1.scm b/src/bootstrap/gerbil/runtime/error~1.scm index 617a7a83a..5d440e147 100644 --- a/src/bootstrap/gerbil/runtime/error~1.scm +++ b/src/bootstrap/gerbil/runtime/error~1.scm @@ -1,433 +1,433 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g104053_| + (define |[1]#_g104159_| (##structure gx#syntax-quote::t 'Exception::t #f (gx#current-expander-context) '())) - (define |[1]#_g104055_| + (define |[1]#_g104161_| (##structure gx#syntax-quote::t 'make-Exception #f (gx#current-expander-context) '())) - (define |[1]#_g104057_| + (define |[1]#_g104163_| (##structure gx#syntax-quote::t 'Exception? #f (gx#current-expander-context) '())) - (define |[1]#_g104059_| + (define |[1]#_g104165_| (##structure gx#syntax-quote::t 'StackTrace::t #f (gx#current-expander-context) '())) - (define |[1]#_g104061_| + (define |[1]#_g104167_| (##structure gx#syntax-quote::t 'make-StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g104063_| + (define |[1]#_g104169_| (##structure gx#syntax-quote::t 'StackTrace? #f (gx#current-expander-context) '())) - (define |[1]#_g104065_| + (define |[1]#_g104171_| (##structure gx#syntax-quote::t 'StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104067_| + (define |[1]#_g104173_| (##structure gx#syntax-quote::t 'StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104069_| + (define |[1]#_g104175_| (##structure gx#syntax-quote::t '&StackTrace-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104071_| + (define |[1]#_g104177_| (##structure gx#syntax-quote::t '&StackTrace-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104073_| + (define |[1]#_g104179_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g104074_| + (define |[1]#_g104180_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g104076_| + (define |[1]#_g104182_| (##structure gx#syntax-quote::t 'Error::t #f (gx#current-expander-context) '())) - (define |[1]#_g104078_| + (define |[1]#_g104184_| (##structure gx#syntax-quote::t 'make-Error #f (gx#current-expander-context) '())) - (define |[1]#_g104080_| + (define |[1]#_g104186_| (##structure gx#syntax-quote::t 'Error? #f (gx#current-expander-context) '())) - (define |[1]#_g104082_| + (define |[1]#_g104188_| (##structure gx#syntax-quote::t 'Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g104083_| + (define |[1]#_g104189_| (##structure gx#syntax-quote::t 'Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104084_| + (define |[1]#_g104190_| (##structure gx#syntax-quote::t 'Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g104085_| + (define |[1]#_g104191_| (##structure gx#syntax-quote::t 'Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104087_| + (define |[1]#_g104193_| (##structure gx#syntax-quote::t 'Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104088_| + (define |[1]#_g104194_| (##structure gx#syntax-quote::t 'Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104089_| + (define |[1]#_g104195_| (##structure gx#syntax-quote::t 'Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104090_| + (define |[1]#_g104196_| (##structure gx#syntax-quote::t 'Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104092_| + (define |[1]#_g104198_| (##structure gx#syntax-quote::t '&Error-message #f (gx#current-expander-context) '())) - (define |[1]#_g104093_| + (define |[1]#_g104199_| (##structure gx#syntax-quote::t '&Error-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104094_| + (define |[1]#_g104200_| (##structure gx#syntax-quote::t '&Error-where #f (gx#current-expander-context) '())) - (define |[1]#_g104095_| + (define |[1]#_g104201_| (##structure gx#syntax-quote::t '&Error-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104097_| + (define |[1]#_g104203_| (##structure gx#syntax-quote::t '&Error-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104098_| + (define |[1]#_g104204_| (##structure gx#syntax-quote::t '&Error-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104099_| + (define |[1]#_g104205_| (##structure gx#syntax-quote::t '&Error-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104100_| + (define |[1]#_g104206_| (##structure gx#syntax-quote::t '&Error-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104102_| + (define |[1]#_g104208_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g104104_| + (define |[1]#_g104210_| (##structure gx#syntax-quote::t 'ContractViolation::t #f (gx#current-expander-context) '())) - (define |[1]#_g104106_| + (define |[1]#_g104212_| (##structure gx#syntax-quote::t 'make-ContractViolation #f (gx#current-expander-context) '())) - (define |[1]#_g104108_| + (define |[1]#_g104214_| (##structure gx#syntax-quote::t 'ContractViolation? #f (gx#current-expander-context) '())) - (define |[1]#_g104110_| + (define |[1]#_g104216_| (##structure gx#syntax-quote::t 'ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g104111_| + (define |[1]#_g104217_| (##structure gx#syntax-quote::t 'ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104112_| + (define |[1]#_g104218_| (##structure gx#syntax-quote::t 'ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g104113_| + (define |[1]#_g104219_| (##structure gx#syntax-quote::t 'ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104115_| + (define |[1]#_g104221_| (##structure gx#syntax-quote::t 'ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104116_| + (define |[1]#_g104222_| (##structure gx#syntax-quote::t 'ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104117_| + (define |[1]#_g104223_| (##structure gx#syntax-quote::t 'ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104118_| + (define |[1]#_g104224_| (##structure gx#syntax-quote::t 'ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104120_| + (define |[1]#_g104226_| (##structure gx#syntax-quote::t '&ContractViolation-message #f (gx#current-expander-context) '())) - (define |[1]#_g104121_| + (define |[1]#_g104227_| (##structure gx#syntax-quote::t '&ContractViolation-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g104122_| + (define |[1]#_g104228_| (##structure gx#syntax-quote::t '&ContractViolation-where #f (gx#current-expander-context) '())) - (define |[1]#_g104123_| + (define |[1]#_g104229_| (##structure gx#syntax-quote::t '&ContractViolation-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104125_| + (define |[1]#_g104231_| (##structure gx#syntax-quote::t '&ContractViolation-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104126_| + (define |[1]#_g104232_| (##structure gx#syntax-quote::t '&ContractViolation-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104127_| + (define |[1]#_g104233_| (##structure gx#syntax-quote::t '&ContractViolation-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104128_| + (define |[1]#_g104234_| (##structure gx#syntax-quote::t '&ContractViolation-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104131_| + (define |[1]#_g104237_| (##structure gx#syntax-quote::t 'RuntimeException::t #f (gx#current-expander-context) '())) - (define |[1]#_g104133_| + (define |[1]#_g104239_| (##structure gx#syntax-quote::t 'make-RuntimeException #f (gx#current-expander-context) '())) - (define |[1]#_g104135_| + (define |[1]#_g104241_| (##structure gx#syntax-quote::t 'RuntimeException? #f (gx#current-expander-context) '())) - (define |[1]#_g104137_| + (define |[1]#_g104243_| (##structure gx#syntax-quote::t 'RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g104138_| + (define |[1]#_g104244_| (##structure gx#syntax-quote::t 'RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104140_| + (define |[1]#_g104246_| (##structure gx#syntax-quote::t 'RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104141_| + (define |[1]#_g104247_| (##structure gx#syntax-quote::t 'RuntimeException-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104143_| + (define |[1]#_g104249_| (##structure gx#syntax-quote::t '&RuntimeException-exception #f (gx#current-expander-context) '())) - (define |[1]#_g104144_| + (define |[1]#_g104250_| (##structure gx#syntax-quote::t '&RuntimeException-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g104146_| + (define |[1]#_g104252_| (##structure gx#syntax-quote::t '&RuntimeException-exception-set! #f (gx#current-expander-context) '())) - (define |[1]#_g104147_| + (define |[1]#_g104253_| (##structure gx#syntax-quote::t '&RuntimeException-continuation-set! @@ -436,7 +436,7 @@ '())) (begin (define |[:0:]#Exception| - (let ((__obj104016 + (let ((__obj104122 (let () (declare (not safe)) (##structure @@ -465,68 +465,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104016 + __obj104122 'gerbil/runtime/error#Exception::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 'Exception '2 '#f '#f)) + (##unchecked-structure-set! __obj104122 'Exception '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '6 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104122 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104122 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104122 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '#f '11 '#f '#f)) - (let ((__tmp104052 |[1]#_g104053_|)) + (##unchecked-structure-set! __obj104122 '#f '11 '#f '#f)) + (let ((__tmp104158 |[1]#_g104159_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104016 __tmp104052 '12 '#f '#f)) - (let ((__tmp104054 |[1]#_g104055_|)) + (##unchecked-structure-set! __obj104122 __tmp104158 '12 '#f '#f)) + (let ((__tmp104160 |[1]#_g104161_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104016 __tmp104054 '13 '#f '#f)) - (let ((__tmp104056 |[1]#_g104057_|)) + (##unchecked-structure-set! __obj104122 __tmp104160 '13 '#f '#f)) + (let ((__tmp104162 |[1]#_g104163_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104016 __tmp104056 '14 '#f '#f)) + (##unchecked-structure-set! __obj104122 __tmp104162 '14 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '15 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '15 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '16 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '16 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '17 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '17 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '18 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104122 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104016 '() '20 '#f '#f)) - __obj104016)) + (##unchecked-structure-set! __obj104122 '() '20 '#f '#f)) + __obj104122)) (define |[:0:]#StackTrace| - (let ((__obj104017 + (let ((__obj104123 (let () (declare (not safe)) (##structure @@ -555,68 +555,68 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104017 + __obj104123 'gerbil/runtime/error#StackTrace::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 'StackTrace '2 '#f '#f)) + (##unchecked-structure-set! __obj104123 'StackTrace '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '(continuation) '4 '#f '#f)) + (##unchecked-structure-set! __obj104123 '(continuation) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '(continuation) '6 '#f '#f)) + (##unchecked-structure-set! __obj104123 '(continuation) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj104123 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104123 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104123 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104123 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '#f '11 '#f '#f)) - (let ((__tmp104058 |[1]#_g104059_|)) + (##unchecked-structure-set! __obj104123 '#f '11 '#f '#f)) + (let ((__tmp104164 |[1]#_g104165_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104058 '12 '#f '#f)) - (let ((__tmp104060 |[1]#_g104061_|)) + (##unchecked-structure-set! __obj104123 __tmp104164 '12 '#f '#f)) + (let ((__tmp104166 |[1]#_g104167_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104060 '13 '#f '#f)) - (let ((__tmp104062 |[1]#_g104063_|)) + (##unchecked-structure-set! __obj104123 __tmp104166 '13 '#f '#f)) + (let ((__tmp104168 |[1]#_g104169_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104062 '14 '#f '#f)) - (let ((__tmp104064 (cons (cons 'continuation |[1]#_g104065_|) '()))) + (##unchecked-structure-set! __obj104123 __tmp104168 '14 '#f '#f)) + (let ((__tmp104170 (cons (cons 'continuation |[1]#_g104171_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104064 '15 '#f '#f)) - (let ((__tmp104066 (cons (cons 'continuation |[1]#_g104067_|) '()))) + (##unchecked-structure-set! __obj104123 __tmp104170 '15 '#f '#f)) + (let ((__tmp104172 (cons (cons 'continuation |[1]#_g104173_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104066 '16 '#f '#f)) - (let ((__tmp104068 (cons (cons 'continuation |[1]#_g104069_|) '()))) + (##unchecked-structure-set! __obj104123 __tmp104172 '16 '#f '#f)) + (let ((__tmp104174 (cons (cons 'continuation |[1]#_g104175_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104068 '17 '#f '#f)) - (let ((__tmp104070 (cons (cons 'continuation |[1]#_g104071_|) '()))) + (##unchecked-structure-set! __obj104123 __tmp104174 '17 '#f '#f)) + (let ((__tmp104176 (cons (cons 'continuation |[1]#_g104177_|) '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104017 __tmp104070 '18 '#f '#f)) + (##unchecked-structure-set! __obj104123 __tmp104176 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104123 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104123 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104017 '() '20 '#f '#f)) - __obj104017)) + (##unchecked-structure-set! __obj104123 '() '20 '#f '#f)) + __obj104123)) (define |[:0:]#Error| - (let ((__obj104018 + (let ((__obj104124 (let () (declare (not safe)) (##structure @@ -645,18 +645,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104018 + __obj104124 'gerbil/runtime/error#Error::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 'Error '2 '#f '#f)) + (##unchecked-structure-set! __obj104124 'Error '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104018 + __obj104124 '(message irritants where) '4 '#f @@ -664,79 +664,79 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104018 + __obj104124 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp104072 (cons |[1]#_g104073_| (cons |[1]#_g104074_| '())))) + (let ((__tmp104178 (cons |[1]#_g104179_| (cons |[1]#_g104180_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104072 '3 '#f '#f)) + (##unchecked-structure-set! __obj104124 __tmp104178 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104124 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104124 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104124 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 ':init! '11 '#f '#f)) - (let ((__tmp104075 |[1]#_g104076_|)) + (##unchecked-structure-set! __obj104124 ':init! '11 '#f '#f)) + (let ((__tmp104181 |[1]#_g104182_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104075 '12 '#f '#f)) - (let ((__tmp104077 |[1]#_g104078_|)) + (##unchecked-structure-set! __obj104124 __tmp104181 '12 '#f '#f)) + (let ((__tmp104183 |[1]#_g104184_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104077 '13 '#f '#f)) - (let ((__tmp104079 |[1]#_g104080_|)) + (##unchecked-structure-set! __obj104124 __tmp104183 '13 '#f '#f)) + (let ((__tmp104185 |[1]#_g104186_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104079 '14 '#f '#f)) - (let ((__tmp104081 - (cons (cons 'message |[1]#_g104082_|) - (cons (cons 'irritants |[1]#_g104083_|) - (cons (cons 'where |[1]#_g104084_|) - (cons (cons 'continuation |[1]#_g104085_|) + (##unchecked-structure-set! __obj104124 __tmp104185 '14 '#f '#f)) + (let ((__tmp104187 + (cons (cons 'message |[1]#_g104188_|) + (cons (cons 'irritants |[1]#_g104189_|) + (cons (cons 'where |[1]#_g104190_|) + (cons (cons 'continuation |[1]#_g104191_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104081 '15 '#f '#f)) - (let ((__tmp104086 - (cons (cons 'message |[1]#_g104087_|) - (cons (cons 'irritants |[1]#_g104088_|) - (cons (cons 'where |[1]#_g104089_|) - (cons (cons 'continuation |[1]#_g104090_|) + (##unchecked-structure-set! __obj104124 __tmp104187 '15 '#f '#f)) + (let ((__tmp104192 + (cons (cons 'message |[1]#_g104193_|) + (cons (cons 'irritants |[1]#_g104194_|) + (cons (cons 'where |[1]#_g104195_|) + (cons (cons 'continuation |[1]#_g104196_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104086 '16 '#f '#f)) - (let ((__tmp104091 - (cons (cons 'message |[1]#_g104092_|) - (cons (cons 'irritants |[1]#_g104093_|) - (cons (cons 'where |[1]#_g104094_|) - (cons (cons 'continuation |[1]#_g104095_|) + (##unchecked-structure-set! __obj104124 __tmp104192 '16 '#f '#f)) + (let ((__tmp104197 + (cons (cons 'message |[1]#_g104198_|) + (cons (cons 'irritants |[1]#_g104199_|) + (cons (cons 'where |[1]#_g104200_|) + (cons (cons 'continuation |[1]#_g104201_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104091 '17 '#f '#f)) - (let ((__tmp104096 - (cons (cons 'message |[1]#_g104097_|) - (cons (cons 'irritants |[1]#_g104098_|) - (cons (cons 'where |[1]#_g104099_|) - (cons (cons 'continuation |[1]#_g104100_|) + (##unchecked-structure-set! __obj104124 __tmp104197 '17 '#f '#f)) + (let ((__tmp104202 + (cons (cons 'message |[1]#_g104203_|) + (cons (cons 'irritants |[1]#_g104204_|) + (cons (cons 'where |[1]#_g104205_|) + (cons (cons 'continuation |[1]#_g104206_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104018 __tmp104096 '18 '#f '#f)) + (##unchecked-structure-set! __obj104124 __tmp104202 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104124 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104124 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104018 '() '20 '#f '#f)) - __obj104018)) + (##unchecked-structure-set! __obj104124 '() '20 '#f '#f)) + __obj104124)) (define |[:0:]#ContractViolation| - (let ((__obj104019 + (let ((__obj104125 (let () (declare (not safe)) (##structure @@ -765,7 +765,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104019 + __obj104125 'gerbil/runtime/error#ContractViolation::t '1 '#f @@ -773,90 +773,90 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104019 + __obj104125 'ContractViolation '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj104125 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104019 + __obj104125 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp104101 (cons |[1]#_g104102_| '()))) + (let ((__tmp104207 (cons |[1]#_g104208_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104101 '3 '#f '#f)) + (##unchecked-structure-set! __obj104125 __tmp104207 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104125 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104125 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104125 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '#f '11 '#f '#f)) - (let ((__tmp104103 |[1]#_g104104_|)) + (##unchecked-structure-set! __obj104125 '#f '11 '#f '#f)) + (let ((__tmp104209 |[1]#_g104210_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104103 '12 '#f '#f)) - (let ((__tmp104105 |[1]#_g104106_|)) + (##unchecked-structure-set! __obj104125 __tmp104209 '12 '#f '#f)) + (let ((__tmp104211 |[1]#_g104212_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104105 '13 '#f '#f)) - (let ((__tmp104107 |[1]#_g104108_|)) + (##unchecked-structure-set! __obj104125 __tmp104211 '13 '#f '#f)) + (let ((__tmp104213 |[1]#_g104214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104107 '14 '#f '#f)) - (let ((__tmp104109 - (cons (cons 'message |[1]#_g104110_|) - (cons (cons 'irritants |[1]#_g104111_|) - (cons (cons 'where |[1]#_g104112_|) - (cons (cons 'continuation |[1]#_g104113_|) + (##unchecked-structure-set! __obj104125 __tmp104213 '14 '#f '#f)) + (let ((__tmp104215 + (cons (cons 'message |[1]#_g104216_|) + (cons (cons 'irritants |[1]#_g104217_|) + (cons (cons 'where |[1]#_g104218_|) + (cons (cons 'continuation |[1]#_g104219_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104109 '15 '#f '#f)) - (let ((__tmp104114 - (cons (cons 'message |[1]#_g104115_|) - (cons (cons 'irritants |[1]#_g104116_|) - (cons (cons 'where |[1]#_g104117_|) - (cons (cons 'continuation |[1]#_g104118_|) + (##unchecked-structure-set! __obj104125 __tmp104215 '15 '#f '#f)) + (let ((__tmp104220 + (cons (cons 'message |[1]#_g104221_|) + (cons (cons 'irritants |[1]#_g104222_|) + (cons (cons 'where |[1]#_g104223_|) + (cons (cons 'continuation |[1]#_g104224_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104114 '16 '#f '#f)) - (let ((__tmp104119 - (cons (cons 'message |[1]#_g104120_|) - (cons (cons 'irritants |[1]#_g104121_|) - (cons (cons 'where |[1]#_g104122_|) - (cons (cons 'continuation |[1]#_g104123_|) + (##unchecked-structure-set! __obj104125 __tmp104220 '16 '#f '#f)) + (let ((__tmp104225 + (cons (cons 'message |[1]#_g104226_|) + (cons (cons 'irritants |[1]#_g104227_|) + (cons (cons 'where |[1]#_g104228_|) + (cons (cons 'continuation |[1]#_g104229_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104119 '17 '#f '#f)) - (let ((__tmp104124 - (cons (cons 'message |[1]#_g104125_|) - (cons (cons 'irritants |[1]#_g104126_|) - (cons (cons 'where |[1]#_g104127_|) - (cons (cons 'continuation |[1]#_g104128_|) + (##unchecked-structure-set! __obj104125 __tmp104225 '17 '#f '#f)) + (let ((__tmp104230 + (cons (cons 'message |[1]#_g104231_|) + (cons (cons 'irritants |[1]#_g104232_|) + (cons (cons 'where |[1]#_g104233_|) + (cons (cons 'continuation |[1]#_g104234_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj104019 __tmp104124 '18 '#f '#f)) + (##unchecked-structure-set! __obj104125 __tmp104230 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104125 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104125 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104019 '() '20 '#f '#f)) - __obj104019)) + (##unchecked-structure-set! __obj104125 '() '20 '#f '#f)) + __obj104125)) (define |[:0:]#RuntimeException| - (let ((__obj104020 + (let ((__obj104126 (let () (declare (not safe)) (##structure @@ -885,7 +885,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104020 + __obj104126 'gerbil/runtime/error#RuntimeException::t '1 '#f @@ -893,277 +893,277 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj104020 + __obj104126 'RuntimeException '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '(exception) '4 '#f '#f)) + (##unchecked-structure-set! __obj104126 '(exception) '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj104020 + __obj104126 '(continuation exception) '6 '#f '#f)) - (let ((__tmp104129 (cons |[1]#_g104073_| (cons |[1]#_g104074_| '())))) + (let ((__tmp104235 (cons |[1]#_g104179_| (cons |[1]#_g104180_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104129 '3 '#f '#f)) + (##unchecked-structure-set! __obj104126 __tmp104235 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj104126 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj104126 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj104126 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '#f '11 '#f '#f)) - (let ((__tmp104130 |[1]#_g104131_|)) + (##unchecked-structure-set! __obj104126 '#f '11 '#f '#f)) + (let ((__tmp104236 |[1]#_g104237_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104130 '12 '#f '#f)) - (let ((__tmp104132 |[1]#_g104133_|)) + (##unchecked-structure-set! __obj104126 __tmp104236 '12 '#f '#f)) + (let ((__tmp104238 |[1]#_g104239_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104132 '13 '#f '#f)) - (let ((__tmp104134 |[1]#_g104135_|)) + (##unchecked-structure-set! __obj104126 __tmp104238 '13 '#f '#f)) + (let ((__tmp104240 |[1]#_g104241_|)) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104134 '14 '#f '#f)) - (let ((__tmp104136 - (cons (cons 'exception |[1]#_g104137_|) - (cons (cons 'continuation |[1]#_g104138_|) '())))) + (##unchecked-structure-set! __obj104126 __tmp104240 '14 '#f '#f)) + (let ((__tmp104242 + (cons (cons 'exception |[1]#_g104243_|) + (cons (cons 'continuation |[1]#_g104244_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104136 '15 '#f '#f)) - (let ((__tmp104139 - (cons (cons 'exception |[1]#_g104140_|) - (cons (cons 'continuation |[1]#_g104141_|) '())))) + (##unchecked-structure-set! __obj104126 __tmp104242 '15 '#f '#f)) + (let ((__tmp104245 + (cons (cons 'exception |[1]#_g104246_|) + (cons (cons 'continuation |[1]#_g104247_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104139 '16 '#f '#f)) - (let ((__tmp104142 - (cons (cons 'exception |[1]#_g104143_|) - (cons (cons 'continuation |[1]#_g104144_|) '())))) + (##unchecked-structure-set! __obj104126 __tmp104245 '16 '#f '#f)) + (let ((__tmp104248 + (cons (cons 'exception |[1]#_g104249_|) + (cons (cons 'continuation |[1]#_g104250_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104142 '17 '#f '#f)) - (let ((__tmp104145 - (cons (cons 'exception |[1]#_g104146_|) - (cons (cons 'continuation |[1]#_g104147_|) '())))) + (##unchecked-structure-set! __obj104126 __tmp104248 '17 '#f '#f)) + (let ((__tmp104251 + (cons (cons 'exception |[1]#_g104252_|) + (cons (cons 'continuation |[1]#_g104253_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj104020 __tmp104145 '18 '#f '#f)) + (##unchecked-structure-set! __obj104126 __tmp104251 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj104126 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj104126 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj104020 '() '20 '#f '#f)) - __obj104020)) + (##unchecked-structure-set! __obj104126 '() '20 '#f '#f)) + __obj104126)) (define |[:0:]#defruntime-exception| - (lambda (_%stx102158%_) - (let* ((_%g102161102188%_ - (lambda (_%g102162102184%_) + (lambda (_%stx102264%_) + (let* ((_%g102267102294%_ + (lambda (_%g102268102290%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102162102184%_))) - (_%g102160102424%_ - (lambda (_%g102162102192%_) - (if (gx#stx-pair? _%g102162102192%_) - (let ((_%e102165102195%_ - (gx#syntax-e _%g102162102192%_))) - (let ((_%hd102166102199%_ + _%g102268102290%_))) + (_%g102266102530%_ + (lambda (_%g102268102298%_) + (if (gx#stx-pair? _%g102268102298%_) + (let ((_%e102271102301%_ + (gx#syntax-e _%g102268102298%_))) + (let ((_%hd102272102305%_ (let () (declare (not safe)) - (##car _%e102165102195%_))) - (_%tl102167102202%_ + (##car _%e102271102301%_))) + (_%tl102273102308%_ (let () (declare (not safe)) - (##cdr _%e102165102195%_)))) - (if (gx#stx-pair? _%tl102167102202%_) - (let ((_%e102168102205%_ - (gx#syntax-e _%tl102167102202%_))) - (let ((_%hd102169102209%_ + (##cdr _%e102271102301%_)))) + (if (gx#stx-pair? _%tl102273102308%_) + (let ((_%e102274102311%_ + (gx#syntax-e _%tl102273102308%_))) + (let ((_%hd102275102315%_ (let () (declare (not safe)) - (##car _%e102168102205%_))) - (_%tl102170102212%_ + (##car _%e102274102311%_))) + (_%tl102276102318%_ (let () (declare (not safe)) - (##cdr _%e102168102205%_)))) - (if (gx#stx-pair? _%hd102169102209%_) - (let ((_%e102171102215%_ - (gx#syntax-e _%hd102169102209%_))) - (let ((_%hd102172102219%_ + (##cdr _%e102274102311%_)))) + (if (gx#stx-pair? _%hd102275102315%_) + (let ((_%e102277102321%_ + (gx#syntax-e _%hd102275102315%_))) + (let ((_%hd102278102325%_ (let () (declare (not safe)) - (##car _%e102171102215%_))) - (_%tl102173102222%_ + (##car _%e102277102321%_))) + (_%tl102279102328%_ (let () (declare (not safe)) - (##cdr _%e102171102215%_)))) + (##cdr _%e102277102321%_)))) (if (gx#stx-pair/null? - _%tl102173102222%_) - (let ((_g104148_ + _%tl102279102328%_) + (let ((_g104254_ (gx#syntax-split-splice - _%tl102173102222%_ + _%tl102279102328%_ '0))) (begin - (let ((_g104149_ + (let ((_g104255_ (let () (declare (not safe)) (if (##values? - _g104148_) - (##vector-length - _g104148_) + _g104254_) + (##values-length + _g104254_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g104149_ 2))) - (error "Context expects 2 values" _g104149_))) + (##fx= _g104255_ 2))) + (error "Context expects 2 values" _g104255_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target102174102225%_ + (let ((_%target102280102331%_ (let () (declare (not safe)) - (##vector-ref - _g104148_ + (##values-ref + _g104254_ 0))) - (_%tl102176102228%_ + (_%tl102282102334%_ (let () (declare (not safe)) - (##vector-ref - _g104148_ + (##values-ref + _g104254_ 1)))) (if (gx#stx-null? - _%tl102176102228%_) - (letrec ((_%loop102177102231%_ + _%tl102282102334%_) + (letrec ((_%loop102283102337%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd102175102235%_ _%getf102181102238%_) - (if (gx#stx-pair? _%hd102175102235%_) - (let ((_%e102178102241%_ - (gx#syntax-e _%hd102175102235%_))) - (let ((_%lp-hd102179102245%_ + (lambda (_%hd102281102341%_ _%getf102287102344%_) + (if (gx#stx-pair? _%hd102281102341%_) + (let ((_%e102284102347%_ + (gx#syntax-e _%hd102281102341%_))) + (let ((_%lp-hd102285102351%_ (let () (declare (not safe)) - (##car _%e102178102241%_))) - (_%lp-tl102180102248%_ + (##car _%e102284102347%_))) + (_%lp-tl102286102354%_ (let () (declare (not safe)) - (##cdr _%e102178102241%_)))) - (_%loop102177102231%_ - _%lp-tl102180102248%_ - (cons _%lp-hd102179102245%_ - _%getf102181102238%_)))) - (let ((_%getf102182102251%_ - (reverse _%getf102181102238%_))) - (if (gx#stx-null? _%tl102170102212%_) - ((lambda (_%L102255%_ _%L102257%_) - (let* ((_%g102278102302%_ - (lambda (_%g102279102298%_) + (##cdr _%e102284102347%_)))) + (_%loop102283102337%_ + _%lp-tl102286102354%_ + (cons _%lp-hd102285102351%_ + _%getf102287102344%_)))) + (let ((_%getf102288102357%_ + (reverse _%getf102287102344%_))) + (if (gx#stx-null? _%tl102276102318%_) + ((lambda (_%L102361%_ _%L102363%_) + (let* ((_%g102384102408%_ + (lambda (_%g102385102404%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102279102298%_))) - (_%g102277102409%_ - (lambda (_%g102279102306%_) + _%g102385102404%_))) + (_%g102383102515%_ + (lambda (_%g102385102412%_) (if (gx#stx-pair? - _%g102279102306%_) - (let ((_%e102282102309%_ + _%g102385102412%_) + (let ((_%e102388102415%_ (gx#syntax-e - _%g102279102306%_))) - (let ((_%hd102283102313%_ + _%g102385102412%_))) + (let ((_%hd102389102419%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e102282102309%_))) - (_%tl102284102316%_ + (##car _%e102388102415%_))) + (_%tl102390102422%_ (let () (declare (not safe)) - (##cdr _%e102282102309%_)))) - (if (gx#stx-pair? _%tl102284102316%_) - (let ((_%e102285102319%_ - (gx#syntax-e _%tl102284102316%_))) - (let ((_%hd102286102323%_ + (##cdr _%e102388102415%_)))) + (if (gx#stx-pair? _%tl102390102422%_) + (let ((_%e102391102425%_ + (gx#syntax-e _%tl102390102422%_))) + (let ((_%hd102392102429%_ (let () (declare (not safe)) - (##car _%e102285102319%_))) - (_%tl102287102326%_ + (##car _%e102391102425%_))) + (_%tl102393102432%_ (let () (declare (not safe)) - (##cdr _%e102285102319%_)))) - (if (gx#stx-pair/null? _%hd102286102323%_) - (let ((_g104150_ + (##cdr _%e102391102425%_)))) + (if (gx#stx-pair/null? _%hd102392102429%_) + (let ((_g104256_ (gx#syntax-split-splice - _%hd102286102323%_ + _%hd102392102429%_ '0))) (begin - (let ((_g104151_ + (let ((_g104257_ (let () (declare (not safe)) - (if (##values? _g104150_) - (##vector-length _g104150_) + (if (##values? _g104256_) + (##values-length _g104256_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g104151_ 2))) + (##fx= _g104257_ 2))) (error "Context expects 2 values" - _g104151_))) - (let ((_%target102288102329%_ + _g104257_))) + (let ((_%target102394102435%_ (let () (declare (not safe)) - (##vector-ref _g104150_ 0))) - (_%tl102290102332%_ + (##values-ref _g104256_ 0))) + (_%tl102396102438%_ (let () (declare (not safe)) - (##vector-ref _g104150_ 1)))) - (if (gx#stx-null? _%tl102290102332%_) - (letrec ((_%loop102291102335%_ - (lambda (_%hd102289102339%_ - _%macro-getf102295102342%_) + (##values-ref _g104256_ 1)))) + (if (gx#stx-null? _%tl102396102438%_) + (letrec ((_%loop102397102441%_ + (lambda (_%hd102395102445%_ + _%macro-getf102401102448%_) (if (gx#stx-pair? - _%hd102289102339%_) - (let ((_%e102292102345%_ + _%hd102395102445%_) + (let ((_%e102398102451%_ (gx#syntax-e ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%hd102289102339%_))) - (let ((_%lp-hd102293102349%_ + _%hd102395102445%_))) + (let ((_%lp-hd102399102455%_ (let () (declare (not safe)) - (##car _%e102292102345%_))) - (_%lp-tl102294102352%_ + (##car _%e102398102451%_))) + (_%lp-tl102400102458%_ (let () (declare (not safe)) - (##cdr _%e102292102345%_)))) - (_%loop102291102335%_ - _%lp-tl102294102352%_ - (cons _%lp-hd102293102349%_ - _%macro-getf102295102342%_)))) - (let ((_%macro-getf102296102355%_ - (reverse _%macro-getf102295102342%_))) - (if (gx#stx-null? _%tl102287102326%_) - ((lambda (_%L102359%_ _%L102361%_) + (##cdr _%e102398102451%_)))) + (_%loop102397102441%_ + _%lp-tl102400102458%_ + (cons _%lp-hd102399102455%_ + _%macro-getf102401102448%_)))) + (let ((_%macro-getf102402102461%_ + (reverse _%macro-getf102401102448%_))) + (if (gx#stx-null? _%tl102393102432%_) + ((lambda (_%L102465%_ _%L102467%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'extern) - (cons _%L102361%_ - (let ((__tmp104152 - (lambda (_%g102386102389%_ + (cons _%L102467%_ + (let ((__tmp104258 + (lambda (_%g102492102495%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102387102392%_) - (cons _%g102386102389%_ _%g102387102392%_)))) + _%g102493102498%_) + (cons _%g102492102495%_ _%g102493102498%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr1 - __tmp104152 + __tmp104258 '() - _%L102359%_)))) + _%L102465%_)))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L102257%_ + (cons (cons _%L102363%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1185,7 +1185,7 @@ (cons (gx#datum->syntax '#f 'exn) '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102361%_ + (cons (cons _%L102467%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1193,7 +1193,7 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L102361%_ + (cons (cons _%L102467%_ (cons (gx#datum->syntax '#f 'exn) @@ -1203,23 +1203,23 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (begin (gx#syntax-check-splice-targets - _%L102255%_ - _%L102359%_ - _%L102255%_ - _%L102359%_ - _%L102255%_) - (let ((__tmp104153 - (lambda (_%g102380102395%_ - _%g102381102398%_ - _%g102382102400%_ - _%g102383102402%_ - _%g102384102404%_ - _%g102385102406%_) + _%L102361%_ + _%L102465%_ + _%L102361%_ + _%L102465%_ + _%L102361%_) + (let ((__tmp104259 + (lambda (_%g102486102501%_ + _%g102487102504%_ + _%g102488102506%_ + _%g102489102508%_ + _%g102490102510%_ + _%g102491102512%_) (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%g102380102395%_ + (cons (cons _%g102486102501%_ (cons (gx#datum->syntax '#f 'exn) '())) (cons (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax @@ -1245,12 +1245,12 @@ '())) '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102361%_ + (cons (cons _%L102467%_ (cons (gx#datum->syntax '#f 'e) '())) - (cons (cons _%g102381102398%_ + (cons (cons _%g102487102504%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1263,12 +1263,12 @@ 'error) (cons '"not an instance" (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L102257%_ '())) + (cons _%L102363%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102380102395%_ + (cons _%g102486102501%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (gx#datum->syntax '#f 'e) '()))) @@ -1278,10 +1278,10 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L102361%_ + (cons (cons _%L102467%_ (cons (gx#datum->syntax '#f 'exn) '())) - (cons (cons _%g102381102398%_ + (cons (cons _%g102487102504%_ (cons (gx#datum->syntax '#f 'exn) @@ -1294,10 +1294,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L102257%_ '())) + (cons _%L102363%_ '())) (cons (cons (gx#datum->syntax '#f '@list) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%g102380102395%_ '())) + (cons _%g102486102501%_ '())) (cons (gx#datum->syntax '#f 'exn) '()))) '())))) @@ -1306,148 +1306,148 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) - _%g102385102406%_)))) + _%g102491102512%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldr* - __tmp104153 + __tmp104259 '() - _%L102255%_ - _%L102359%_ - _%L102255%_ - _%L102359%_ - _%L102255%_))))))) - _%macro-getf102296102355%_ - _%hd102283102313%_) - (_%g102278102302%_ _%g102279102306%_))))))) + _%L102361%_ + _%L102465%_ + _%L102361%_ + _%L102465%_ + _%L102361%_))))))) + _%macro-getf102402102461%_ + _%hd102389102419%_) + (_%g102384102408%_ _%g102385102412%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102291102335%_ - _%target102288102329%_ + (_%loop102397102441%_ + _%target102394102435%_ '())) - (_%g102278102302%_ - _%g102279102306%_))))) - (_%g102278102302%_ _%g102279102306%_)))) - (_%g102278102302%_ _%g102279102306%_)))) - (_%g102278102302%_ _%g102279102306%_))))) + (_%g102384102408%_ + _%g102385102412%_))))) + (_%g102384102408%_ _%g102385102412%_)))) + (_%g102384102408%_ _%g102385102412%_)))) + (_%g102384102408%_ _%g102385102412%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102277102409%_ + (_%g102383102515%_ (list (gx#stx-identifier - _%L102257%_ + _%L102363%_ '"macro-" - _%L102257%_) - (map (lambda (_%f102413%_) + _%L102363%_) + (map (lambda (_%f102519%_) (gx#stx-identifier - _%f102413%_ + _%f102519%_ '"macro-" - _%f102413%_)) - (let ((__tmp104154 - (lambda (_%g102415102418%_ + _%f102519%_)) + (let ((__tmp104260 + (lambda (_%g102521102524%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g102416102421%_) - (cons _%g102415102418%_ _%g102416102421%_)))) + _%g102522102527%_) + (cons _%g102521102524%_ _%g102522102527%_)))) (declare (not safe)) - (__foldr1 __tmp104154 '() _%L102255%_))))))) + (__foldr1 __tmp104260 '() _%L102361%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%getf102182102251%_ - _%hd102172102219%_) - (_%g102161102188%_ - _%g102162102192%_))))))) - (_%loop102177102231%_ _%target102174102225%_ '())) - (_%g102161102188%_ _%g102162102192%_))))) + _%getf102288102357%_ + _%hd102278102325%_) + (_%g102267102294%_ + _%g102268102298%_))))))) + (_%loop102283102337%_ _%target102280102331%_ '())) + (_%g102267102294%_ _%g102268102298%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g102161102188%_ - _%g102162102192%_)))) - (_%g102161102188%_ _%g102162102192%_)))) - (_%g102161102188%_ _%g102162102192%_)))) - (_%g102161102188%_ _%g102162102192%_))))) - (_%g102160102424%_ _%stx102158%_)))) + (_%g102267102294%_ + _%g102268102298%_)))) + (_%g102267102294%_ _%g102268102298%_)))) + (_%g102267102294%_ _%g102268102298%_)))) + (_%g102267102294%_ _%g102268102298%_))))) + (_%g102266102530%_ _%stx102264%_)))) (define |[:0:]#defruntime-exceptions| - (lambda (_%$stx102430%_) - (let* ((_%g102434102454%_ - (lambda (_%g102435102450%_) + (lambda (_%$stx102536%_) + (let* ((_%g102540102560%_ + (lambda (_%g102541102556%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g102435102450%_))) - (_%g102433102525%_ - (lambda (_%g102435102458%_) - (if (gx#stx-pair? _%g102435102458%_) - (let ((_%e102437102461%_ - (gx#syntax-e _%g102435102458%_))) - (let ((_%hd102438102465%_ + _%g102541102556%_))) + (_%g102539102631%_ + (lambda (_%g102541102564%_) + (if (gx#stx-pair? _%g102541102564%_) + (let ((_%e102543102567%_ + (gx#syntax-e _%g102541102564%_))) + (let ((_%hd102544102571%_ (let () (declare (not safe)) - (##car _%e102437102461%_))) - (_%tl102439102468%_ + (##car _%e102543102567%_))) + (_%tl102545102574%_ (let () (declare (not safe)) - (##cdr _%e102437102461%_)))) - (if (gx#stx-pair/null? _%tl102439102468%_) - (let ((_g104155_ + (##cdr _%e102543102567%_)))) + (if (gx#stx-pair/null? _%tl102545102574%_) + (let ((_g104261_ (gx#syntax-split-splice - _%tl102439102468%_ + _%tl102545102574%_ '0))) (begin - (let ((_g104156_ + (let ((_g104262_ (let () (declare (not safe)) - (if (##values? _g104155_) - (##vector-length _g104155_) + (if (##values? _g104261_) + (##values-length _g104261_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g104156_ 2))) + (##fx= _g104262_ 2))) (error "Context expects 2 values" - _g104156_))) - (let ((_%target102440102471%_ + _g104262_))) + (let ((_%target102546102577%_ (let () (declare (not safe)) - (##vector-ref _g104155_ 0))) - (_%tl102442102474%_ + (##values-ref _g104261_ 0))) + (_%tl102548102580%_ (let () (declare (not safe)) - (##vector-ref _g104155_ 1)))) - (if (gx#stx-null? _%tl102442102474%_) - (letrec ((_%loop102443102477%_ - (lambda (_%hd102441102481%_ - _%defexn102447102484%_) + (##values-ref _g104261_ 1)))) + (if (gx#stx-null? _%tl102548102580%_) + (letrec ((_%loop102549102583%_ + (lambda (_%hd102547102587%_ + _%defexn102553102590%_) (if (gx#stx-pair? - _%hd102441102481%_) - (let ((_%e102444102487%_ + _%hd102547102587%_) + (let ((_%e102550102593%_ (gx#syntax-e - _%hd102441102481%_))) - (let ((_%lp-hd102445102491%_ + _%hd102547102587%_))) + (let ((_%lp-hd102551102597%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e102444102487%_))) - (_%lp-tl102446102494%_ + (##car _%e102550102593%_))) + (_%lp-tl102552102600%_ (let () (declare (not safe)) - (##cdr _%e102444102487%_)))) - (_%loop102443102477%_ - _%lp-tl102446102494%_ - (cons _%lp-hd102445102491%_ _%defexn102447102484%_)))) - (let ((_%defexn102448102497%_ - (reverse _%defexn102447102484%_))) - ((lambda (_%L102501%_) + (##cdr _%e102550102593%_)))) + (_%loop102549102583%_ + _%lp-tl102552102600%_ + (cons _%lp-hd102551102597%_ _%defexn102553102590%_)))) + (let ((_%defexn102554102603%_ + (reverse _%defexn102553102590%_))) + ((lambda (_%L102607%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp104157 - (lambda (_%g102516102519%_ _%g102517102522%_) + (let ((__tmp104263 + (lambda (_%g102622102625%_ _%g102623102628%_) (cons (cons (gx#datum->syntax '#f 'defruntime-exception) - (cons _%g102516102519%_ '())) - _%g102517102522%_)))) + (cons _%g102622102625%_ '())) + _%g102623102628%_)))) (declare (not safe)) - (__foldr1 __tmp104157 '() _%L102501%_)))) - _%defexn102448102497%_)))))) + (__foldr1 __tmp104263 '() _%L102607%_)))) + _%defexn102554102603%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop102443102477%_ - _%target102440102471%_ + (_%loop102549102583%_ + _%target102546102577%_ '())) - (_%g102434102454%_ - _%g102435102458%_))))) - (_%g102434102454%_ _%g102435102458%_)))) - (_%g102434102454%_ _%g102435102458%_))))) - (_%g102433102525%_ _%$stx102430%_)))))) + (_%g102540102560%_ + _%g102541102564%_))))) + (_%g102540102560%_ _%g102541102564%_)))) + (_%g102540102560%_ _%g102541102564%_))))) + (_%g102539102631%_ _%$stx102536%_)))))) diff --git a/src/bootstrap/gerbil/runtime/eval~0.scm b/src/bootstrap/gerbil/runtime/eval~0.scm index ebd39e9d5..5298581a2 100644 --- a/src/bootstrap/gerbil/runtime/eval~0.scm +++ b/src/bootstrap/gerbil/runtime/eval~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/eval::timestamp 1733870073) + (define gerbil/runtime/eval::timestamp 1734131746) (begin (define __syntax::t - (let ((__tmp115003 (list)) (__tmp115002 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115109 (list)) (__tmp115108 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__syntax::t '__syntax - __tmp115003 + __tmp115109 '(e id) - __tmp115002 + __tmp115108 '#f))) (define __syntax? (let () (declare (not safe)) (__make-class-predicate __syntax::t))) (define make-__syntax - (lambda _%$args114807%_ - (apply make-instance __syntax::t _%$args114807%_))) + (lambda _%$args114913%_ + (apply make-instance __syntax::t _%$args114913%_))) (define __syntax-e (let () (declare (not safe)) @@ -48,21 +48,21 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __syntax::t 'id))) (define __core-form::t - (let ((__tmp115005 (list __syntax::t)) - (__tmp115004 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115111 (list __syntax::t)) + (__tmp115110 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-form::t '__core-form - __tmp115005 + __tmp115111 '() - __tmp115004 + __tmp115110 '#f))) (define __core-form? (let () (declare (not safe)) (__make-class-predicate __core-form::t))) (define make-__core-form - (lambda _%$args114804%_ - (apply make-instance __core-form::t _%$args114804%_))) + (lambda _%$args114910%_ + (apply make-instance __core-form::t _%$args114910%_))) (define __core-form-e (let () (declare (not safe)) @@ -96,23 +96,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-form::t 'id))) (define __core-expression::t - (let ((__tmp115007 (list __core-form::t)) - (__tmp115006 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115113 (list __core-form::t)) + (__tmp115112 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-expression::t '__core-expression - __tmp115007 + __tmp115113 '() - __tmp115006 + __tmp115112 '#f))) (define __core-expression? (let () (declare (not safe)) (__make-class-predicate __core-expression::t))) (define make-__core-expression - (lambda _%$args114801%_ - (apply make-instance __core-expression::t _%$args114801%_))) + (lambda _%$args114907%_ + (apply make-instance __core-expression::t _%$args114907%_))) (define __core-expression-e (let () (declare (not safe)) @@ -146,23 +146,23 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator __core-expression::t 'id))) (define __core-special-form::t - (let ((__tmp115009 (list __core-form::t)) - (__tmp115008 (cons (cons 'struct: '#t) '()))) + (let ((__tmp115115 (list __core-form::t)) + (__tmp115114 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/eval#__core-special-form::t '__core-special-form - __tmp115009 + __tmp115115 '() - __tmp115008 + __tmp115114 '#f))) (define __core-special-form? (let () (declare (not safe)) (__make-class-predicate __core-special-form::t))) (define make-__core-special-form - (lambda _%$args114798%_ - (apply make-instance __core-special-form::t _%$args114798%_))) + (lambda _%$args114904%_ + (apply make-instance __core-special-form::t _%$args114904%_))) (define __core-special-form-e (let () (declare (not safe)) @@ -200,407 +200,407 @@ (define __current-compiler (make-parameter '#f)) (define __current-path (make-parameter '())) (define __core-resolve - (lambda (_%id114796%_) - (let ((__tmp115010 - (let () (declare (not safe)) (__AST-e _%id114796%_)))) + (lambda (_%id114902%_) + (let ((__tmp115116 + (let () (declare (not safe)) (__AST-e _%id114902%_)))) (declare (not safe)) - (__hash-get __core __tmp115010)))) + (__hash-get __core __tmp115116)))) (define __core-bound-id?__% - (lambda (_%id114779%_ _%is?114780%_) - (let ((_%$e114782%_ (__core-resolve _%id114779%_))) - (if _%$e114782%_ (_%is?114780%_ _%$e114782%_) '#f)))) + (lambda (_%id114885%_ _%is?114886%_) + (let ((_%$e114888%_ (__core-resolve _%id114885%_))) + (if _%$e114888%_ (_%is?114886%_ _%$e114888%_) '#f)))) (define __core-bound-id?__0 - (lambda (_%id114789%_) - (let ((_%is?114791%_ true)) - (__core-bound-id?__% _%id114789%_ _%is?114791%_)))) + (lambda (_%id114895%_) + (let ((_%is?114897%_ true)) + (__core-bound-id?__% _%id114895%_ _%is?114897%_)))) (define __core-bound-id? - (lambda _g115012_ - (let ((_g115011_ (let () (declare (not safe)) (##length _g115012_)))) - (cond ((let () (declare (not safe)) (##fx= _g115011_ 1)) - (apply __core-bound-id?__0 _g115012_)) - ((let () (declare (not safe)) (##fx= _g115011_ 2)) - (apply __core-bound-id?__% _g115012_)) + (lambda _g115118_ + (let ((_g115117_ (let () (declare (not safe)) (##length _g115118_)))) + (cond ((let () (declare (not safe)) (##fx= _g115117_ 1)) + (apply __core-bound-id?__0 _g115118_)) + ((let () (declare (not safe)) (##fx= _g115117_ 2)) + (apply __core-bound-id?__% _g115118_)) (else (##raise-wrong-number-of-arguments-exception __core-bound-id? - _g115012_)))))) + _g115118_)))))) (define __core-bind-syntax!__% - (lambda (_%id114762%_ _%e114763%_ _%make114764%_) - (let ((__tmp115013 + (lambda (_%id114868%_ _%e114869%_ _%make114870%_) + (let ((__tmp115119 (if (let () (declare (not safe)) (##structure-instance-of? - _%e114763%_ + _%e114869%_ 'gerbil/runtime/eval#__syntax::t)) - _%e114763%_ - (_%make114764%_ _%e114763%_ _%id114762%_)))) + _%e114869%_ + (_%make114870%_ _%e114869%_ _%id114868%_)))) (declare (not safe)) - (__hash-put! __core _%id114762%_ __tmp115013)))) + (__hash-put! __core _%id114868%_ __tmp115119)))) (define __core-bind-syntax!__0 - (lambda (_%id114769%_ _%e114770%_) - (let ((_%make114772%_ make-__syntax)) - (__core-bind-syntax!__% _%id114769%_ _%e114770%_ _%make114772%_)))) + (lambda (_%id114875%_ _%e114876%_) + (let ((_%make114878%_ make-__syntax)) + (__core-bind-syntax!__% _%id114875%_ _%e114876%_ _%make114878%_)))) (define __core-bind-syntax! - (lambda _g115015_ - (let ((_g115014_ (let () (declare (not safe)) (##length _g115015_)))) - (cond ((let () (declare (not safe)) (##fx= _g115014_ 2)) - (apply __core-bind-syntax!__0 _g115015_)) - ((let () (declare (not safe)) (##fx= _g115014_ 3)) - (apply __core-bind-syntax!__% _g115015_)) + (lambda _g115121_ + (let ((_g115120_ (let () (declare (not safe)) (##length _g115121_)))) + (cond ((let () (declare (not safe)) (##fx= _g115120_ 2)) + (apply __core-bind-syntax!__0 _g115121_)) + ((let () (declare (not safe)) (##fx= _g115120_ 3)) + (apply __core-bind-syntax!__% _g115121_)) (else (##raise-wrong-number-of-arguments-exception __core-bind-syntax! - _g115015_)))))) + _g115121_)))))) (define __SRC__% - (lambda (_%e114742%_ _%src-stx114743%_) - (if (or (pair? _%e114742%_) (symbol? _%e114742%_)) - (let ((__tmp115016 + (lambda (_%e114848%_ _%src-stx114849%_) + (if (or (pair? _%e114848%_) (symbol? _%e114848%_)) + (let ((__tmp115122 (if (let () (declare (not safe)) (##structure-instance-of? - _%src-stx114743%_ + _%src-stx114849%_ 'gerbil#AST::t)) (__locat (let () (declare (not safe)) - (__AST-source _%src-stx114743%_))) + (__AST-source _%src-stx114849%_))) '#f))) (declare (not safe)) - (##make-source _%e114742%_ __tmp115016)) + (##make-source _%e114848%_ __tmp115122)) (if (let () (declare (not safe)) - (##structure-instance-of? _%e114742%_ 'gerbil#AST::t)) - (let ((__tmp115018 + (##structure-instance-of? _%e114848%_ 'gerbil#AST::t)) + (let ((__tmp115124 (let () (declare (not safe)) - (##unchecked-structure-ref _%e114742%_ '1 '#f '#f))) - (__tmp115017 + (##unchecked-structure-ref _%e114848%_ '1 '#f '#f))) + (__tmp115123 (__locat (let () (declare (not safe)) - (__AST-source _%e114742%_))))) + (__AST-source _%e114848%_))))) (declare (not safe)) - (##make-source __tmp115018 __tmp115017)) + (##make-source __tmp115124 __tmp115123)) (let () (declare (not safe)) - (error '"BUG! Cannot sourcify object" _%e114742%_)))))) + (error '"BUG! Cannot sourcify object" _%e114848%_)))))) (define __SRC__0 - (lambda (_%e114754%_) - (let ((_%src-stx114756%_ '#f)) - (__SRC__% _%e114754%_ _%src-stx114756%_)))) + (lambda (_%e114860%_) + (let ((_%src-stx114862%_ '#f)) + (__SRC__% _%e114860%_ _%src-stx114862%_)))) (define __SRC - (lambda _g115020_ - (let ((_g115019_ (let () (declare (not safe)) (##length _g115020_)))) - (cond ((let () (declare (not safe)) (##fx= _g115019_ 1)) - (apply __SRC__0 _g115020_)) - ((let () (declare (not safe)) (##fx= _g115019_ 2)) - (apply __SRC__% _g115020_)) + (lambda _g115126_ + (let ((_g115125_ (let () (declare (not safe)) (##length _g115126_)))) + (cond ((let () (declare (not safe)) (##fx= _g115125_ 1)) + (apply __SRC__0 _g115126_)) + ((let () (declare (not safe)) (##fx= _g115125_ 2)) + (apply __SRC__% _g115126_)) (else (##raise-wrong-number-of-arguments-exception __SRC - _g115020_)))))) + _g115126_)))))) (define __locat - (lambda (_%loc114739%_) - (if (let () (declare (not safe)) (##locat? _%loc114739%_)) - _%loc114739%_ + (lambda (_%loc114845%_) + (if (let () (declare (not safe)) (##locat? _%loc114845%_)) + _%loc114845%_ '#f))) (define __check-values - (lambda (_%obj114734%_ _%k114735%_) - (let ((_%count114737%_ - (if (let () (declare (not safe)) (##values? _%obj114734%_)) + (lambda (_%obj114840%_ _%k114841%_) + (let ((_%count114843%_ + (if (let () (declare (not safe)) (##values? _%obj114840%_)) (let () (declare (not safe)) - (##vector-length _%obj114734%_)) + (##vector-length _%obj114840%_)) '1))) - (if (fx= _%count114737%_ _%k114735%_) + (if (fx= _%count114843%_ _%k114841%_) '#!void - (let ((__tmp115022 - (if (fx< _%count114737%_ _%k114735%_) + (let ((__tmp115128 + (if (fx< _%count114843%_ _%k114841%_) '"Too few values for context" '"Too many values for context")) - (__tmp115021 + (__tmp115127 (if (let () (declare (not safe)) - (##values? _%obj114734%_)) + (##values? _%obj114840%_)) (let () (declare (not safe)) - (##vector->list _%obj114734%_)) - _%obj114734%_))) + (##values->list _%obj114840%_)) + _%obj114840%_))) (declare (not safe)) - (error __tmp115022 __tmp115021 _%k114735%_)))))) + (error __tmp115128 __tmp115127 _%k114841%_)))))) (define __compile - (lambda (_%stx114703%_) - (let* ((_%$e114705%_ _%stx114703%_) - (_%$E114707114713%_ + (lambda (_%stx114809%_) + (let* ((_%$e114811%_ _%stx114809%_) + (_%$E114813114819%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114705%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114705%_)) - (let* ((_%$tgt114708114716%_ - (let () (declare (not safe)) (__AST-e _%$e114705%_))) - (_%$hd114709114719%_ + _%$e114811%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114811%_)) + (let* ((_%$tgt114814114822%_ + (let () (declare (not safe)) (__AST-e _%$e114811%_))) + (_%$hd114815114825%_ (let () (declare (not safe)) - (##car _%$tgt114708114716%_))) - (_%$tl114710114722%_ + (##car _%$tgt114814114822%_))) + (_%$tl114816114828%_ (let () (declare (not safe)) - (##cdr _%$tgt114708114716%_))) - (_%form114726%_ _%$hd114709114719%_) - (_%$e114728%_ (__core-resolve _%form114726%_))) - (if _%$e114728%_ - ((lambda (_%bind114731%_) - ((##structure-ref _%bind114731%_ '1 __syntax::t '#f) - _%stx114703%_)) - _%$e114728%_) + (##cdr _%$tgt114814114822%_))) + (_%form114832%_ _%$hd114815114825%_) + (_%$e114834%_ (__core-resolve _%form114832%_))) + (if _%$e114834%_ + ((lambda (_%bind114837%_) + ((##structure-ref _%bind114837%_ '1 __syntax::t '#f) + _%stx114809%_)) + _%$e114834%_) (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; cannot resolve form" - _%stx114703%_ - _%form114726%_)))) - (_%$E114707114713%_))))) + _%stx114809%_ + _%form114832%_)))) + (_%$E114813114819%_))))) (define __compile-error__% - (lambda (_%stx114690%_ _%detail114691%_) + (lambda (_%stx114796%_ _%detail114797%_) (let () (declare (not safe)) (__raise-syntax-error 'compile '"Bad syntax; cannot compile" - _%stx114690%_ - _%detail114691%_)))) + _%stx114796%_ + _%detail114797%_)))) (define __compile-error__0 - (lambda (_%stx114696%_) - (let ((_%detail114698%_ '#f)) - (__compile-error__% _%stx114696%_ _%detail114698%_)))) + (lambda (_%stx114802%_) + (let ((_%detail114804%_ '#f)) + (__compile-error__% _%stx114802%_ _%detail114804%_)))) (define __compile-error - (lambda _g115024_ - (let ((_g115023_ (let () (declare (not safe)) (##length _g115024_)))) - (cond ((let () (declare (not safe)) (##fx= _g115023_ 1)) - (apply __compile-error__0 _g115024_)) - ((let () (declare (not safe)) (##fx= _g115023_ 2)) - (apply __compile-error__% _g115024_)) + (lambda _g115130_ + (let ((_g115129_ (let () (declare (not safe)) (##length _g115130_)))) + (cond ((let () (declare (not safe)) (##fx= _g115129_ 1)) + (apply __compile-error__0 _g115130_)) + ((let () (declare (not safe)) (##fx= _g115129_ 2)) + (apply __compile-error__% _g115130_)) (else (##raise-wrong-number-of-arguments-exception __compile-error - _g115024_)))))) + _g115130_)))))) (define __compile-ignore% - (lambda (_%stx114687%_) (__SRC__% ''#!void _%stx114687%_))) + (lambda (_%stx114793%_) (__SRC__% ''#!void _%stx114793%_))) (define __compile-begin% - (lambda (_%stx114662%_) - (let* ((_%$e114664%_ _%stx114662%_) - (_%$E114666114672%_ + (lambda (_%stx114768%_) + (let* ((_%$e114770%_ _%stx114768%_) + (_%$E114772114778%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114664%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114664%_)) - (let* ((_%$tgt114667114675%_ - (let () (declare (not safe)) (__AST-e _%$e114664%_))) - (_%$hd114668114678%_ + _%$e114770%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114770%_)) + (let* ((_%$tgt114773114781%_ + (let () (declare (not safe)) (__AST-e _%$e114770%_))) + (_%$hd114774114784%_ (let () (declare (not safe)) - (##car _%$tgt114667114675%_))) - (_%$tl114669114681%_ + (##car _%$tgt114773114781%_))) + (_%$tl114775114787%_ (let () (declare (not safe)) - (##cdr _%$tgt114667114675%_))) - (_%body114685%_ _%$tl114669114681%_)) + (##cdr _%$tgt114773114781%_))) + (_%body114791%_ _%$tl114775114787%_)) (__SRC__% - (cons 'begin (map __compile _%body114685%_)) - _%stx114662%_)) - (_%$E114666114672%_))))) + (cons 'begin (map __compile _%body114791%_)) + _%stx114768%_)) + (_%$E114772114778%_))))) (define __compile-begin-foreign% - (lambda (_%stx114637%_) - (let* ((_%$e114639%_ _%stx114637%_) - (_%$E114641114647%_ + (lambda (_%stx114743%_) + (let* ((_%$e114745%_ _%stx114743%_) + (_%$E114747114753%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114639%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114639%_)) - (let* ((_%$tgt114642114650%_ - (let () (declare (not safe)) (__AST-e _%$e114639%_))) - (_%$hd114643114653%_ + _%$e114745%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114745%_)) + (let* ((_%$tgt114748114756%_ + (let () (declare (not safe)) (__AST-e _%$e114745%_))) + (_%$hd114749114759%_ (let () (declare (not safe)) - (##car _%$tgt114642114650%_))) - (_%$tl114644114656%_ + (##car _%$tgt114748114756%_))) + (_%$tl114750114762%_ (let () (declare (not safe)) - (##cdr _%$tgt114642114650%_))) - (_%body114660%_ _%$tl114644114656%_)) + (##cdr _%$tgt114748114756%_))) + (_%body114766%_ _%$tl114750114762%_)) (__SRC__% (cons 'begin (let () (declare (not safe)) - (__AST->datum _%body114660%_))) - _%stx114637%_)) - (_%$E114641114647%_))))) + (__AST->datum _%body114766%_))) + _%stx114743%_)) + (_%$E114747114753%_))))) (define __compile-import% - (lambda (_%stx114612%_) - (let* ((_%$e114614%_ _%stx114612%_) - (_%$E114616114622%_ + (lambda (_%stx114718%_) + (let* ((_%$e114720%_ _%stx114718%_) + (_%$E114722114728%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114614%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114614%_)) - (let* ((_%$tgt114617114625%_ - (let () (declare (not safe)) (__AST-e _%$e114614%_))) - (_%$hd114618114628%_ + _%$e114720%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114720%_)) + (let* ((_%$tgt114723114731%_ + (let () (declare (not safe)) (__AST-e _%$e114720%_))) + (_%$hd114724114734%_ (let () (declare (not safe)) - (##car _%$tgt114617114625%_))) - (_%$tl114619114631%_ + (##car _%$tgt114723114731%_))) + (_%$tl114725114737%_ (let () (declare (not safe)) - (##cdr _%$tgt114617114625%_))) - (_%body114635%_ _%$tl114619114631%_)) + (##cdr _%$tgt114723114731%_))) + (_%body114741%_ _%$tl114725114737%_)) (__SRC__% (cons '__eval-import - (cons (cons 'quote (cons _%body114635%_ '())) '())) - _%stx114612%_)) - (_%$E114616114622%_))))) + (cons (cons 'quote (cons _%body114741%_ '())) '())) + _%stx114718%_)) + (_%$E114722114728%_))))) (define __compile-begin-annotation% - (lambda (_%stx114559%_) - (let* ((_%$e114561%_ _%stx114559%_) - (_%$E114563114575%_ + (lambda (_%stx114665%_) + (let* ((_%$e114667%_ _%stx114665%_) + (_%$E114669114681%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114561%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114561%_)) - (let* ((_%$tgt114564114578%_ - (let () (declare (not safe)) (__AST-e _%$e114561%_))) - (_%$hd114565114581%_ + _%$e114667%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114667%_)) + (let* ((_%$tgt114670114684%_ + (let () (declare (not safe)) (__AST-e _%$e114667%_))) + (_%$hd114671114687%_ (let () (declare (not safe)) - (##car _%$tgt114564114578%_))) - (_%$tl114566114584%_ + (##car _%$tgt114670114684%_))) + (_%$tl114672114690%_ (let () (declare (not safe)) - (##cdr _%$tgt114564114578%_)))) + (##cdr _%$tgt114670114684%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114566114584%_)) - (let* ((_%$tgt114567114588%_ + (__AST-pair? _%$tl114672114690%_)) + (let* ((_%$tgt114673114694%_ (let () (declare (not safe)) - (__AST-e _%$tl114566114584%_))) - (_%$hd114568114591%_ + (__AST-e _%$tl114672114690%_))) + (_%$hd114674114697%_ (let () (declare (not safe)) - (##car _%$tgt114567114588%_))) - (_%$tl114569114594%_ + (##car _%$tgt114673114694%_))) + (_%$tl114675114700%_ (let () (declare (not safe)) - (##cdr _%$tgt114567114588%_))) - (_%ann114598%_ _%$hd114568114591%_)) + (##cdr _%$tgt114673114694%_))) + (_%ann114704%_ _%$hd114674114697%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114569114594%_)) - (let* ((_%$tgt114570114600%_ + (__AST-pair? _%$tl114675114700%_)) + (let* ((_%$tgt114676114706%_ (let () (declare (not safe)) - (__AST-e _%$tl114569114594%_))) - (_%$hd114571114603%_ + (__AST-e _%$tl114675114700%_))) + (_%$hd114677114709%_ (let () (declare (not safe)) - (##car _%$tgt114570114600%_))) - (_%$tl114572114606%_ + (##car _%$tgt114676114706%_))) + (_%$tl114678114712%_ (let () (declare (not safe)) - (##cdr _%$tgt114570114600%_))) - (_%expr114610%_ _%$hd114571114603%_)) + (##cdr _%$tgt114676114706%_))) + (_%expr114716%_ _%$hd114677114709%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114572114606%_)) + (__AST-e _%$tl114678114712%_)) '()) - (__compile _%expr114610%_) - (_%$E114563114575%_))) - (_%$E114563114575%_))) - (_%$E114563114575%_))) - (_%$E114563114575%_))))) + (__compile _%expr114716%_) + (_%$E114669114681%_))) + (_%$E114669114681%_))) + (_%$E114669114681%_))) + (_%$E114669114681%_))))) (define __compile-define-values% - (lambda (_%stx114450%_) - (let* ((_%$e114452%_ _%stx114450%_) - (_%$E114454114466%_ + (lambda (_%stx114556%_) + (let* ((_%$e114558%_ _%stx114556%_) + (_%$E114560114572%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114452%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114452%_)) - (let* ((_%$tgt114455114469%_ - (let () (declare (not safe)) (__AST-e _%$e114452%_))) - (_%$hd114456114472%_ + _%$e114558%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114558%_)) + (let* ((_%$tgt114561114575%_ + (let () (declare (not safe)) (__AST-e _%$e114558%_))) + (_%$hd114562114578%_ (let () (declare (not safe)) - (##car _%$tgt114455114469%_))) - (_%$tl114457114475%_ + (##car _%$tgt114561114575%_))) + (_%$tl114563114581%_ (let () (declare (not safe)) - (##cdr _%$tgt114455114469%_)))) + (##cdr _%$tgt114561114575%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114457114475%_)) - (let* ((_%$tgt114458114479%_ + (__AST-pair? _%$tl114563114581%_)) + (let* ((_%$tgt114564114585%_ (let () (declare (not safe)) - (__AST-e _%$tl114457114475%_))) - (_%$hd114459114482%_ + (__AST-e _%$tl114563114581%_))) + (_%$hd114565114588%_ (let () (declare (not safe)) - (##car _%$tgt114458114479%_))) - (_%$tl114460114485%_ + (##car _%$tgt114564114585%_))) + (_%$tl114566114591%_ (let () (declare (not safe)) - (##cdr _%$tgt114458114479%_))) - (_%hd114489%_ _%$hd114459114482%_)) + (##cdr _%$tgt114564114585%_))) + (_%hd114595%_ _%$hd114565114588%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114460114485%_)) - (let* ((_%$tgt114461114491%_ + (__AST-pair? _%$tl114566114591%_)) + (let* ((_%$tgt114567114597%_ (let () (declare (not safe)) - (__AST-e _%$tl114460114485%_))) - (_%$hd114462114494%_ + (__AST-e _%$tl114566114591%_))) + (_%$hd114568114600%_ (let () (declare (not safe)) - (##car _%$tgt114461114491%_))) - (_%$tl114463114497%_ + (##car _%$tgt114567114597%_))) + (_%$tl114569114603%_ (let () (declare (not safe)) - (##cdr _%$tgt114461114491%_))) - (_%expr114501%_ _%$hd114462114494%_)) + (##cdr _%$tgt114567114597%_))) + (_%expr114607%_ _%$hd114568114600%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114463114497%_)) + (__AST-e _%$tl114569114603%_)) '()) - (let* ((_%$e114503%_ _%hd114489%_) - (_%$E114505114546%_ + (let* ((_%$e114609%_ _%hd114595%_) + (_%$E114611114652%_ (lambda () - (let ((_%$E114506114531%_ + (let ((_%$E114612114637%_ (lambda () - (let* ((_%$E114507114518%_ + (let* ((_%$E114613114624%_ (lambda () (let () (declare @@ -609,10 +609,10 @@ (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114503%_)))) - (_%ids114521%_ _%hd114489%_) - (_%len114523%_ (length _%ids114521%_)) - (_%tmp114525%_ + _%$e114609%_)))) + (_%ids114627%_ _%hd114595%_) + (_%len114629%_ (length _%ids114627%_)) + (_%tmp114631%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__SRC__% @@ -620,1579 +620,1579 @@ (cons (__SRC__% ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'define - (cons _%tmp114525%_ - (cons (__compile _%expr114501%_) '()))) - _%stx114450%_) + (cons _%tmp114631%_ + (cons (__compile _%expr114607%_) '()))) + _%stx114556%_) (cons (__SRC__% (cons '__check-values - (cons _%tmp114525%_ - (cons _%len114523%_ '()))) - _%stx114450%_) - (let ((__tmp115025 - (let ((__tmp115027 - (lambda (_%id114528%_ - _%k114529%_) + (cons _%tmp114631%_ + (cons _%len114629%_ '()))) + _%stx114556%_) + (let ((__tmp115131 + (let ((__tmp115133 + (lambda (_%id114634%_ + _%k114635%_) (if (let () (declare (not safe)) - (__AST-e _%id114528%_)) + (__AST-e _%id114634%_)) (__SRC__% (cons 'define (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id114528%_) - (cons (cons '##vector-ref - (cons _%tmp114525%_ - (cons _%k114529%_ '()))) + _%id114634%_) + (cons (cons '##values-ref + (cons _%tmp114631%_ + (cons _%k114635%_ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114450%_) + _%stx114556%_) '#f))) - (__tmp115026 + (__tmp115132 (let () (declare (not safe)) - (##iota _%len114523%_)))) + (##iota _%len114629%_)))) (declare (not safe)) (__filter-map2 - __tmp115027 - _%ids114521%_ - __tmp115026)))) + __tmp115133 + _%ids114627%_ + __tmp115132)))) (declare (not safe)) - (__foldr1 cons '() __tmp115025))))) - _%stx114450%_))))) + (__foldr1 cons '() __tmp115131))))) + _%stx114556%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (let () (declare (not safe)) - (__AST-pair? _%$e114503%_)) - (let* ((_%$tgt114508114534%_ + (__AST-pair? _%$e114609%_)) + (let* ((_%$tgt114614114640%_ (let () (declare (not safe)) - (__AST-e _%$e114503%_))) - (_%$hd114509114537%_ + (__AST-e _%$e114609%_))) + (_%$hd114615114643%_ (let () (declare (not safe)) - (##car _%$tgt114508114534%_))) - (_%$tl114510114540%_ + (##car _%$tgt114614114640%_))) + (_%$tl114616114646%_ (let () (declare (not safe)) - (##cdr _%$tgt114508114534%_))) - (_%id114544%_ - _%$hd114509114537%_)) + (##cdr _%$tgt114614114640%_))) + (_%id114650%_ + _%$hd114615114643%_)) (if (equal? (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%$tl114510114540%_)) + (__AST-e _%$tl114616114646%_)) '()) (__SRC__% (cons 'define - (cons (__SRC__0 _%id114544%_) - (cons (__compile _%expr114501%_) '()))) - _%stx114450%_) - (_%$E114506114531%_))) + (cons (__SRC__0 _%id114650%_) + (cons (__compile _%expr114607%_) '()))) + _%stx114556%_) + (_%$E114612114637%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%$E114506114531%_)))))) + (_%$E114612114637%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114503%_)) - (let* ((_%$tgt114511114549%_ + (__AST-pair? _%$e114609%_)) + (let* ((_%$tgt114617114655%_ (let () (declare (not safe)) - (__AST-e _%$e114503%_))) - (_%$hd114512114552%_ + (__AST-e _%$e114609%_))) + (_%$hd114618114658%_ (let () (declare (not safe)) - (##car _%$tgt114511114549%_))) - (_%$tl114513114555%_ + (##car _%$tgt114617114655%_))) + (_%$tl114619114661%_ (let () (declare (not safe)) - (##cdr _%$tgt114511114549%_)))) + (##cdr _%$tgt114617114655%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd114512114552%_)) + (__AST-e _%$hd114618114658%_)) '#f) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114513114555%_)) + (__AST-e _%$tl114619114661%_)) '()) - (__compile _%expr114501%_) - (_%$E114505114546%_)) - (_%$E114505114546%_))) - (_%$E114505114546%_))) - (_%$E114454114466%_))) - (_%$E114454114466%_))) - (_%$E114454114466%_))) - (_%$E114454114466%_))))) + (__compile _%expr114607%_) + (_%$E114611114652%_)) + (_%$E114611114652%_))) + (_%$E114611114652%_))) + (_%$E114560114572%_))) + (_%$E114560114572%_))) + (_%$E114560114572%_))) + (_%$E114560114572%_))))) (define __compile-head-id - (lambda (_%e114448%_) + (lambda (_%e114554%_) (__SRC__0 - (if (let () (declare (not safe)) (__AST-e _%e114448%_)) - _%e114448%_ + (if (let () (declare (not safe)) (__AST-e _%e114554%_)) + _%e114554%_ (let () (declare (not safe)) (##gensym)))))) (define __compile-lambda-head - (lambda (_%hd114405%_) - (let _%recur114407%_ ((_%rest114409%_ _%hd114405%_)) - (let* ((_%$e114411%_ _%rest114409%_) - (_%$E114413114431%_ + (lambda (_%hd114511%_) + (let _%recur114513%_ ((_%rest114515%_ _%hd114511%_)) + (let* ((_%$e114517%_ _%rest114515%_) + (_%$E114519114537%_ (lambda () - (let ((_%$E114414114428%_ + (let ((_%$E114520114534%_ (lambda () - (let* ((_%$E114415114423%_ + (let* ((_%$E114521114529%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114411%_)))) - (_%tail114426%_ _%$e114411%_)) - (__compile-head-id _%tail114426%_))))) + _%$e114517%_)))) + (_%tail114532%_ _%$e114517%_)) + (__compile-head-id _%tail114532%_))))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114411%_)) + (__AST-e _%$e114517%_)) '()) '() - (_%$E114414114428%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114411%_)) - (let* ((_%$tgt114416114434%_ - (let () (declare (not safe)) (__AST-e _%$e114411%_))) - (_%$hd114417114437%_ + (_%$E114520114534%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114517%_)) + (let* ((_%$tgt114522114540%_ + (let () (declare (not safe)) (__AST-e _%$e114517%_))) + (_%$hd114523114543%_ (let () (declare (not safe)) - (##car _%$tgt114416114434%_))) - (_%$tl114418114440%_ + (##car _%$tgt114522114540%_))) + (_%$tl114524114546%_ (let () (declare (not safe)) - (##cdr _%$tgt114416114434%_))) - (_%hd114444%_ _%$hd114417114437%_) - (_%rest114446%_ _%$tl114418114440%_)) - (cons (__compile-head-id _%hd114444%_) - (_%recur114407%_ _%rest114446%_))) - (_%$E114413114431%_)))))) + (##cdr _%$tgt114522114540%_))) + (_%hd114550%_ _%$hd114523114543%_) + (_%rest114552%_ _%$tl114524114546%_)) + (cons (__compile-head-id _%hd114550%_) + (_%recur114513%_ _%rest114552%_))) + (_%$E114519114537%_)))))) (define __compile-lambda% - (lambda (_%stx114352%_) - (let* ((_%$e114354%_ _%stx114352%_) - (_%$E114356114368%_ + (lambda (_%stx114458%_) + (let* ((_%$e114460%_ _%stx114458%_) + (_%$E114462114474%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114354%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114354%_)) - (let* ((_%$tgt114357114371%_ - (let () (declare (not safe)) (__AST-e _%$e114354%_))) - (_%$hd114358114374%_ + _%$e114460%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114460%_)) + (let* ((_%$tgt114463114477%_ + (let () (declare (not safe)) (__AST-e _%$e114460%_))) + (_%$hd114464114480%_ (let () (declare (not safe)) - (##car _%$tgt114357114371%_))) - (_%$tl114359114377%_ + (##car _%$tgt114463114477%_))) + (_%$tl114465114483%_ (let () (declare (not safe)) - (##cdr _%$tgt114357114371%_)))) + (##cdr _%$tgt114463114477%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114359114377%_)) - (let* ((_%$tgt114360114381%_ + (__AST-pair? _%$tl114465114483%_)) + (let* ((_%$tgt114466114487%_ (let () (declare (not safe)) - (__AST-e _%$tl114359114377%_))) - (_%$hd114361114384%_ + (__AST-e _%$tl114465114483%_))) + (_%$hd114467114490%_ (let () (declare (not safe)) - (##car _%$tgt114360114381%_))) - (_%$tl114362114387%_ + (##car _%$tgt114466114487%_))) + (_%$tl114468114493%_ (let () (declare (not safe)) - (##cdr _%$tgt114360114381%_))) - (_%hd114391%_ _%$hd114361114384%_)) + (##cdr _%$tgt114466114487%_))) + (_%hd114497%_ _%$hd114467114490%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114362114387%_)) - (let* ((_%$tgt114363114393%_ + (__AST-pair? _%$tl114468114493%_)) + (let* ((_%$tgt114469114499%_ (let () (declare (not safe)) - (__AST-e _%$tl114362114387%_))) - (_%$hd114364114396%_ + (__AST-e _%$tl114468114493%_))) + (_%$hd114470114502%_ (let () (declare (not safe)) - (##car _%$tgt114363114393%_))) - (_%$tl114365114399%_ + (##car _%$tgt114469114499%_))) + (_%$tl114471114505%_ (let () (declare (not safe)) - (##cdr _%$tgt114363114393%_))) - (_%body114403%_ _%$hd114364114396%_)) + (##cdr _%$tgt114469114499%_))) + (_%body114509%_ _%$hd114470114502%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114365114399%_)) + (__AST-e _%$tl114471114505%_)) '()) (__SRC__% (cons 'lambda (cons (__compile-lambda-head - _%hd114391%_) - (cons (__compile _%body114403%_) + _%hd114497%_) + (cons (__compile _%body114509%_) '()))) - _%stx114352%_) - (_%$E114356114368%_))) - (_%$E114356114368%_))) - (_%$E114356114368%_))) - (_%$E114356114368%_))))) + _%stx114458%_) + (_%$E114462114474%_))) + (_%$E114462114474%_))) + (_%$E114462114474%_))) + (_%$E114462114474%_))))) (define __compile-case-lambda% - (lambda (_%stx114144%_) - (letrec ((_%variadic?114146%_ - (lambda (_%hd114317%_) - (let* ((_%$e114319%_ _%hd114317%_) - (_%$E114321114337%_ + (lambda (_%stx114250%_) + (letrec ((_%variadic?114252%_ + (lambda (_%hd114423%_) + (let* ((_%$e114425%_ _%hd114423%_) + (_%$E114427114443%_ (lambda () - (let ((_%$E114322114334%_ + (let ((_%$E114428114440%_ (lambda () - (let ((_%$E114323114331%_ + (let ((_%$E114429114437%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114319%_))))) + _%$e114425%_))))) '#t)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$e114319%_)) + (__AST-e _%$e114425%_)) '()) '#f - (_%$E114322114334%_)))))) + (_%$E114428114440%_)))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114319%_)) - (let* ((_%$tgt114324114340%_ + (__AST-pair? _%$e114425%_)) + (let* ((_%$tgt114430114446%_ (let () (declare (not safe)) - (__AST-e _%$e114319%_))) - (_%$hd114325114343%_ + (__AST-e _%$e114425%_))) + (_%$hd114431114449%_ (let () (declare (not safe)) - (##car _%$tgt114324114340%_))) - (_%$tl114326114346%_ + (##car _%$tgt114430114446%_))) + (_%$tl114432114452%_ (let () (declare (not safe)) - (##cdr _%$tgt114324114340%_))) - (_%rest114350%_ _%$tl114326114346%_)) - (_%variadic?114146%_ _%rest114350%_)) - (_%$E114321114337%_))))) - (_%arity114147%_ - (lambda (_%hd114282%_) - (let _%lp114284%_ ((_%rest114286%_ _%hd114282%_) - (_%k114287%_ '0)) - (let* ((_%$e114289%_ _%rest114286%_) - (_%$E114291114302%_ + (##cdr _%$tgt114430114446%_))) + (_%rest114456%_ _%$tl114432114452%_)) + (_%variadic?114252%_ _%rest114456%_)) + (_%$E114427114443%_))))) + (_%arity114253%_ + (lambda (_%hd114388%_) + (let _%lp114390%_ ((_%rest114392%_ _%hd114388%_) + (_%k114393%_ '0)) + (let* ((_%$e114395%_ _%rest114392%_) + (_%$E114397114408%_ (lambda () - (let ((_%$E114292114299%_ + (let ((_%$E114398114405%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114289%_))))) - _%k114287%_)))) + _%$e114395%_))))) + _%k114393%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114289%_)) - (let* ((_%$tgt114293114305%_ + (__AST-pair? _%$e114395%_)) + (let* ((_%$tgt114399114411%_ (let () (declare (not safe)) - (__AST-e _%$e114289%_))) - (_%$hd114294114308%_ + (__AST-e _%$e114395%_))) + (_%$hd114400114414%_ (let () (declare (not safe)) - (##car _%$tgt114293114305%_))) - (_%$tl114295114311%_ + (##car _%$tgt114399114411%_))) + (_%$tl114401114417%_ (let () (declare (not safe)) - (##cdr _%$tgt114293114305%_))) - (_%rest114315%_ _%$tl114295114311%_)) - (_%lp114284%_ - _%rest114315%_ + (##cdr _%$tgt114399114411%_))) + (_%rest114421%_ _%$tl114401114417%_)) + (_%lp114390%_ + _%rest114421%_ (let () (declare (not safe)) - (##fx+ _%k114287%_ '1)))) - (_%$E114291114302%_)))))) - (_%generate114148%_ - (lambda (_%rest114209%_ _%args114210%_ _%len114211%_) - (let* ((_%$e114213%_ _%rest114209%_) - (_%$E114215114226%_ + (##fx+ _%k114393%_ '1)))) + (_%$E114397114408%_)))))) + (_%generate114254%_ + (lambda (_%rest114315%_ _%args114316%_ _%len114317%_) + (let* ((_%$e114319%_ _%rest114315%_) + (_%$E114321114332%_ (lambda () - (let ((_%$E114216114223%_ + (let ((_%$E114322114329%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114213%_))))) + _%$e114319%_))))) (__SRC__% (cons 'error (cons '"No clause matching arguments" - (cons _%args114210%_ '()))) - _%stx114144%_))))) + (cons _%args114316%_ '()))) + _%stx114250%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114213%_)) - (let* ((_%$tgt114217114229%_ + (__AST-pair? _%$e114319%_)) + (let* ((_%$tgt114323114335%_ (let () (declare (not safe)) - (__AST-e _%$e114213%_))) - (_%$hd114218114232%_ + (__AST-e _%$e114319%_))) + (_%$hd114324114338%_ (let () (declare (not safe)) - (##car _%$tgt114217114229%_))) - (_%$tl114219114235%_ + (##car _%$tgt114323114335%_))) + (_%$tl114325114341%_ (let () (declare (not safe)) - (##cdr _%$tgt114217114229%_))) - (_%clause114239%_ _%$hd114218114232%_) - (_%rest114241%_ _%$tl114219114235%_) - (_%$e114243%_ _%clause114239%_) - (_%$E114245114254%_ + (##cdr _%$tgt114323114335%_))) + (_%clause114345%_ _%$hd114324114338%_) + (_%rest114347%_ _%$tl114325114341%_) + (_%$e114349%_ _%clause114345%_) + (_%$E114351114360%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114243%_))))) + _%$e114349%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114243%_)) - (let* ((_%$tgt114246114257%_ + (__AST-pair? _%$e114349%_)) + (let* ((_%$tgt114352114363%_ (let () (declare (not safe)) - (__AST-e _%$e114243%_))) - (_%$hd114247114260%_ + (__AST-e _%$e114349%_))) + (_%$hd114353114366%_ (let () (declare (not safe)) - (##car _%$tgt114246114257%_))) - (_%$tl114248114263%_ + (##car _%$tgt114352114363%_))) + (_%$tl114354114369%_ (let () (declare (not safe)) - (##cdr _%$tgt114246114257%_))) - (_%hd114267%_ _%$hd114247114260%_)) + (##cdr _%$tgt114352114363%_))) + (_%hd114373%_ _%$hd114353114366%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114248114263%_)) - (let* ((_%$tgt114249114269%_ + (__AST-pair? _%$tl114354114369%_)) + (let* ((_%$tgt114355114375%_ (let () (declare (not safe)) - (__AST-e _%$tl114248114263%_))) - (_%$hd114250114272%_ + (__AST-e _%$tl114354114369%_))) + (_%$hd114356114378%_ (let () (declare (not safe)) - (##car _%$tgt114249114269%_))) - (_%$tl114251114275%_ + (##car _%$tgt114355114375%_))) + (_%$tl114357114381%_ (let () (declare (not safe)) - (##cdr _%$tgt114249114269%_)))) + (##cdr _%$tgt114355114375%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114251114275%_)) + (__AST-e _%$tl114357114381%_)) '()) - (let ((_%clen114279%_ - (_%arity114147%_ - _%hd114267%_)) - (_%cmp114280%_ - (if (_%variadic?114146%_ - _%hd114267%_) + (let ((_%clen114385%_ + (_%arity114253%_ + _%hd114373%_)) + (_%cmp114386%_ + (if (_%variadic?114252%_ + _%hd114373%_) 'fx>= 'fx=))) (__SRC__% (cons 'if - (cons (cons _%cmp114280%_ + (cons (cons _%cmp114386%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len114211%_ (cons _%clen114279%_ '()))) + (cons _%len114317%_ (cons _%clen114385%_ '()))) (cons (__SRC__% (cons '##apply (cons (__compile-lambda% - (cons '%#lambda _%clause114239%_)) - (cons _%args114210%_ '()))) - _%stx114144%_) - (cons (_%generate114148%_ - _%rest114241%_ - _%args114210%_ - _%len114211%_) + (cons '%#lambda _%clause114345%_)) + (cons _%args114316%_ '()))) + _%stx114250%_) + (cons (_%generate114254%_ + _%rest114347%_ + _%args114316%_ + _%len114317%_) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114144%_)) - (_%$E114245114254%_))) - (_%$E114245114254%_))) - (_%$E114245114254%_))) - (_%$E114215114226%_)))))) - (let* ((_%$e114150%_ _%stx114144%_) - (_%$E114152114184%_ + _%stx114250%_)) + (_%$E114351114360%_))) + (_%$E114351114360%_))) + (_%$E114351114360%_))) + (_%$E114321114332%_)))))) + (let* ((_%$e114256%_ _%stx114250%_) + (_%$E114258114290%_ (lambda () - (let ((_%$E114153114166%_ + (let ((_%$E114259114272%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114150%_))))) + _%$e114256%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114150%_)) - (let* ((_%$tgt114154114169%_ + (__AST-pair? _%$e114256%_)) + (let* ((_%$tgt114260114275%_ (let () (declare (not safe)) - (__AST-e _%$e114150%_))) - (_%$hd114155114172%_ + (__AST-e _%$e114256%_))) + (_%$hd114261114278%_ (let () (declare (not safe)) - (##car _%$tgt114154114169%_))) - (_%$tl114156114175%_ + (##car _%$tgt114260114275%_))) + (_%$tl114262114281%_ (let () (declare (not safe)) - (##cdr _%$tgt114154114169%_))) - (_%clauses114179%_ _%$tl114156114175%_)) - (let ((_%args114181%_ + (##cdr _%$tgt114260114275%_))) + (_%clauses114285%_ _%$tl114262114281%_)) + (let ((_%args114287%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx114144%_)) - (_%len114182%_ + _%stx114250%_)) + (_%len114288%_ (__SRC__% (let () (declare (not safe)) (##gensym)) - _%stx114144%_))) + _%stx114250%_))) (__SRC__% (cons 'lambda - (cons _%args114181%_ + (cons _%args114287%_ (cons (__SRC__% (cons 'let - (cons (cons (cons _%len114182%_ + (cons (cons (cons _%len114288%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (__SRC__% (cons '##length - (cons _%args114181%_ '())) - _%stx114144%_) + (cons _%args114287%_ '())) + _%stx114250%_) '())) '()) - (cons (_%generate114148%_ - _%clauses114179%_ - _%args114181%_ - _%len114182%_) + (cons (_%generate114254%_ + _%clauses114285%_ + _%args114287%_ + _%len114288%_) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx114144%_) + _%stx114250%_) '()))) - _%stx114144%_))) - (_%$E114153114166%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e114150%_)) - (let* ((_%$tgt114157114187%_ - (let () (declare (not safe)) (__AST-e _%$e114150%_))) - (_%$hd114158114190%_ + _%stx114250%_))) + (_%$E114259114272%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114256%_)) + (let* ((_%$tgt114263114293%_ + (let () (declare (not safe)) (__AST-e _%$e114256%_))) + (_%$hd114264114296%_ (let () (declare (not safe)) - (##car _%$tgt114157114187%_))) - (_%$tl114159114193%_ + (##car _%$tgt114263114293%_))) + (_%$tl114265114299%_ (let () (declare (not safe)) - (##cdr _%$tgt114157114187%_)))) + (##cdr _%$tgt114263114293%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114159114193%_)) - (let* ((_%$tgt114160114197%_ + (__AST-pair? _%$tl114265114299%_)) + (let* ((_%$tgt114266114303%_ (let () (declare (not safe)) - (__AST-e _%$tl114159114193%_))) - (_%$hd114161114200%_ + (__AST-e _%$tl114265114299%_))) + (_%$hd114267114306%_ (let () (declare (not safe)) - (##car _%$tgt114160114197%_))) - (_%$tl114162114203%_ + (##car _%$tgt114266114303%_))) + (_%$tl114268114309%_ (let () (declare (not safe)) - (##cdr _%$tgt114160114197%_))) - (_%clause114207%_ _%$hd114161114200%_)) + (##cdr _%$tgt114266114303%_))) + (_%clause114313%_ _%$hd114267114306%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114162114203%_)) + (__AST-e _%$tl114268114309%_)) '()) (__compile-lambda% - (cons '%#lambda _%clause114207%_)) - (_%$E114152114184%_))) - (_%$E114152114184%_))) - (_%$E114152114184%_)))))) + (cons '%#lambda _%clause114313%_)) + (_%$E114258114290%_))) + (_%$E114258114290%_))) + (_%$E114258114290%_)))))) (define __compile-let-form - (lambda (_%stx113913%_ _%compile-simple113914%_ _%compile-values113915%_) - (letrec ((_%simple-bind?113917%_ - (lambda (_%hd114102%_) - (let* ((_%hd114103114113%_ _%hd114102%_) - (_%else114106114121%_ (lambda () '#f))) - (let ((_%K114109114134%_ (lambda (_%id114132%_) '#t)) - (_%K114108114126%_ (lambda () '#t))) - (let ((_%try-match114105114129%_ + (lambda (_%stx114019%_ _%compile-simple114020%_ _%compile-values114021%_) + (letrec ((_%simple-bind?114023%_ + (lambda (_%hd114208%_) + (let* ((_%hd114209114219%_ _%hd114208%_) + (_%else114212114227%_ (lambda () '#f))) + (let ((_%K114215114240%_ (lambda (_%id114238%_) '#t)) + (_%K114214114232%_ (lambda () '#t))) + (let ((_%try-match114211114235%_ (lambda () (if (let () (declare (not safe)) - (##eq? _%hd114103114113%_ '#f)) - (_%K114108114126%_) - (_%else114106114121%_))))) - (if (pair? _%hd114103114113%_) - (let ((_%tl114111114139%_ + (##eq? _%hd114209114219%_ '#f)) + (_%K114214114232%_) + (_%else114212114227%_))))) + (if (pair? _%hd114209114219%_) + (let ((_%tl114217114245%_ (let () (declare (not safe)) - (##cdr _%hd114103114113%_))) - (_%hd114110114137%_ + (##cdr _%hd114209114219%_))) + (_%hd114216114243%_ (let () (declare (not safe)) - (##car _%hd114103114113%_)))) - (if (null? _%tl114111114139%_) - (let ((_%id114142%_ _%hd114110114137%_)) - (_%K114109114134%_ _%id114142%_)) - (_%try-match114105114129%_))) - (_%try-match114105114129%_))))))) - (_%car-e113918%_ - (lambda (_%hd114100%_) - (if (pair? _%hd114100%_) - (let () (declare (not safe)) (##car _%hd114100%_)) - _%hd114100%_)))) - (let* ((_%$e113920%_ _%stx113913%_) - (_%$E113922114065%_ + (##car _%hd114209114219%_)))) + (if (null? _%tl114217114245%_) + (let ((_%id114248%_ _%hd114216114243%_)) + (_%K114215114240%_ _%id114248%_)) + (_%try-match114211114235%_))) + (_%try-match114211114235%_))))))) + (_%car-e114024%_ + (lambda (_%hd114206%_) + (if (pair? _%hd114206%_) + (let () (declare (not safe)) (##car _%hd114206%_)) + _%hd114206%_)))) + (let* ((_%$e114026%_ _%stx114019%_) + (_%$E114028114171%_ (lambda () - (let ((_%$E113923113945%_ + (let ((_%$E114029114051%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113920%_))))) + _%$e114026%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113920%_)) - (let* ((_%$tgt113924113948%_ + (__AST-pair? _%$e114026%_)) + (let* ((_%$tgt114030114054%_ (let () (declare (not safe)) - (__AST-e _%$e113920%_))) - (_%$hd113925113951%_ + (__AST-e _%$e114026%_))) + (_%$hd114031114057%_ (let () (declare (not safe)) - (##car _%$tgt113924113948%_))) - (_%$tl113926113954%_ + (##car _%$tgt114030114054%_))) + (_%$tl114032114060%_ (let () (declare (not safe)) - (##cdr _%$tgt113924113948%_)))) + (##cdr _%$tgt114030114054%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113926113954%_)) - (let* ((_%$tgt113927113958%_ + (__AST-pair? _%$tl114032114060%_)) + (let* ((_%$tgt114033114064%_ (let () (declare (not safe)) - (__AST-e _%$tl113926113954%_))) - (_%$hd113928113961%_ + (__AST-e _%$tl114032114060%_))) + (_%$hd114034114067%_ (let () (declare (not safe)) - (##car _%$tgt113927113958%_))) - (_%$tl113929113964%_ + (##car _%$tgt114033114064%_))) + (_%$tl114035114070%_ (let () (declare (not safe)) - (##cdr _%$tgt113927113958%_))) - (_%hd113968%_ _%$hd113928113961%_)) + (##cdr _%$tgt114033114064%_))) + (_%hd114074%_ _%$hd114034114067%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113929113964%_)) - (let* ((_%$tgt113930113970%_ + (__AST-pair? _%$tl114035114070%_)) + (let* ((_%$tgt114036114076%_ (let () (declare (not safe)) - (__AST-e _%$tl113929113964%_))) - (_%$hd113931113973%_ + (__AST-e _%$tl114035114070%_))) + (_%$hd114037114079%_ (let () (declare (not safe)) - (##car _%$tgt113930113970%_))) - (_%$tl113932113976%_ + (##car _%$tgt114036114076%_))) + (_%$tl114038114082%_ (let () (declare (not safe)) - (##cdr _%$tgt113930113970%_))) - (_%body113980%_ - _%$hd113931113973%_)) + (##cdr _%$tgt114036114076%_))) + (_%body114086%_ + _%$hd114037114079%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113932113976%_)) + (__AST-e _%$tl114038114082%_)) '()) - (let* ((_%hd-ids114020%_ - (map (lambda (_%bind113982%_) - (let* ((_%$e113984%_ + (let* ((_%hd-ids114126%_ + (map (lambda (_%bind114088%_) + (let* ((_%$e114090%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind113982%_) - (_%$E113986113995%_ + _%bind114088%_) + (_%$E114092114101%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113984%_))))) + _%$e114090%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e113984%_)) - (let* ((_%$tgt113987113998%_ + (__AST-pair? _%$e114090%_)) + (let* ((_%$tgt114093114104%_ (let () (declare (not safe)) - (__AST-e _%$e113984%_))) - (_%$hd113988114001%_ + (__AST-e _%$e114090%_))) + (_%$hd114094114107%_ (let () (declare (not safe)) - (##car _%$tgt113987113998%_))) - (_%$tl113989114004%_ + (##car _%$tgt114093114104%_))) + (_%$tl114095114110%_ (let () (declare (not safe)) - (##cdr _%$tgt113987113998%_))) - (_%ids114008%_ _%$hd113988114001%_)) + (##cdr _%$tgt114093114104%_))) + (_%ids114114%_ _%$hd114094114107%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113989114004%_)) - (let* ((_%$tgt113990114010%_ + (__AST-pair? _%$tl114095114110%_)) + (let* ((_%$tgt114096114116%_ (let () (declare (not safe)) - (__AST-e _%$tl113989114004%_))) - (_%$hd113991114013%_ + (__AST-e _%$tl114095114110%_))) + (_%$hd114097114119%_ (let () (declare (not safe)) - (##car _%$tgt113990114010%_))) - (_%$tl113992114016%_ + (##car _%$tgt114096114116%_))) + (_%$tl114098114122%_ (let () (declare (not safe)) - (##cdr _%$tgt113990114010%_)))) + (##cdr _%$tgt114096114116%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113992114016%_)) + (__AST-e _%$tl114098114122%_)) '()) - _%ids114008%_ - (_%$E113986113995%_))) - (_%$E113986113995%_))) - (_%$E113986113995%_)))) - _%hd113968%_)) + _%ids114114%_ + (_%$E114092114101%_))) + (_%$E114092114101%_))) + (_%$E114092114101%_)))) + _%hd114074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%exprs114060%_ - (map (lambda (_%bind114022%_) - (let* ((_%$e114024%_ + (_%exprs114166%_ + (map (lambda (_%bind114128%_) + (let* ((_%$e114130%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%bind114022%_) - (_%$E114026114035%_ + _%bind114128%_) + (_%$E114132114141%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e114024%_))))) + _%$e114130%_))))) (if (let () (declare (not safe)) - (__AST-pair? _%$e114024%_)) - (let* ((_%$tgt114027114038%_ + (__AST-pair? _%$e114130%_)) + (let* ((_%$tgt114133114144%_ (let () (declare (not safe)) - (__AST-e _%$e114024%_))) - (_%$hd114028114041%_ + (__AST-e _%$e114130%_))) + (_%$hd114134114147%_ (let () (declare (not safe)) - (##car _%$tgt114027114038%_))) - (_%$tl114029114044%_ + (##car _%$tgt114133114144%_))) + (_%$tl114135114150%_ (let () (declare (not safe)) - (##cdr _%$tgt114027114038%_)))) + (##cdr _%$tgt114133114144%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl114029114044%_)) - (let* ((_%$tgt114030114048%_ + (__AST-pair? _%$tl114135114150%_)) + (let* ((_%$tgt114136114154%_ (let () (declare (not safe)) - (__AST-e _%$tl114029114044%_))) - (_%$hd114031114051%_ + (__AST-e _%$tl114135114150%_))) + (_%$hd114137114157%_ (let () (declare (not safe)) - (##car _%$tgt114030114048%_))) - (_%$tl114032114054%_ + (##car _%$tgt114136114154%_))) + (_%$tl114138114160%_ (let () (declare (not safe)) - (##cdr _%$tgt114030114048%_))) - (_%expr114058%_ _%$hd114031114051%_)) + (##cdr _%$tgt114136114154%_))) + (_%expr114164%_ _%$hd114137114157%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl114032114054%_)) + (__AST-e _%$tl114138114160%_)) '()) - (__compile _%expr114058%_) - (_%$E114026114035%_))) - (_%$E114026114035%_))) - (_%$E114026114035%_)))) - _%hd113968%_)) + (__compile _%expr114164%_) + (_%$E114132114141%_))) + (_%$E114132114141%_))) + (_%$E114132114141%_)))) + _%hd114074%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%body114062%_ + (_%body114168%_ (__compile - _%body113980%_))) + _%body114086%_))) (if (let () (declare (not safe)) (__andmap1 - _%simple-bind?113917%_ - _%hd-ids114020%_)) - (_%compile-simple113914%_ + _%simple-bind?114023%_ + _%hd-ids114126%_)) + (_%compile-simple114020%_ (let () (declare (not safe)) - (##map _%car-e113918%_ - _%hd-ids114020%_)) - _%exprs114060%_ - _%body114062%_) - (_%compile-values113915%_ - _%hd-ids114020%_ - _%exprs114060%_ - _%body114062%_))) - (_%$E113923113945%_))) - (_%$E113923113945%_))) - (_%$E113923113945%_))) - (_%$E113923113945%_)))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113920%_)) - (let* ((_%$tgt113933114068%_ - (let () (declare (not safe)) (__AST-e _%$e113920%_))) - (_%$hd113934114071%_ + (##map _%car-e114024%_ + _%hd-ids114126%_)) + _%exprs114166%_ + _%body114168%_) + (_%compile-values114021%_ + _%hd-ids114126%_ + _%exprs114166%_ + _%body114168%_))) + (_%$E114029114051%_))) + (_%$E114029114051%_))) + (_%$E114029114051%_))) + (_%$E114029114051%_)))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e114026%_)) + (let* ((_%$tgt114039114174%_ + (let () (declare (not safe)) (__AST-e _%$e114026%_))) + (_%$hd114040114177%_ (let () (declare (not safe)) - (##car _%$tgt113933114068%_))) - (_%$tl113935114074%_ + (##car _%$tgt114039114174%_))) + (_%$tl114041114180%_ (let () (declare (not safe)) - (##cdr _%$tgt113933114068%_)))) + (##cdr _%$tgt114039114174%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113935114074%_)) - (let* ((_%$tgt113936114078%_ + (__AST-pair? _%$tl114041114180%_)) + (let* ((_%$tgt114042114184%_ (let () (declare (not safe)) - (__AST-e _%$tl113935114074%_))) - (_%$hd113937114081%_ + (__AST-e _%$tl114041114180%_))) + (_%$hd114043114187%_ (let () (declare (not safe)) - (##car _%$tgt113936114078%_))) - (_%$tl113938114084%_ + (##car _%$tgt114042114184%_))) + (_%$tl114044114190%_ (let () (declare (not safe)) - (##cdr _%$tgt113936114078%_)))) + (##cdr _%$tgt114042114184%_)))) (if (equal? (let () (declare (not safe)) - (__AST-e _%$hd113937114081%_)) + (__AST-e _%$hd114043114187%_)) '()) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113938114084%_)) - (let* ((_%$tgt113939114088%_ + (__AST-pair? _%$tl114044114190%_)) + (let* ((_%$tgt114045114194%_ (let () (declare (not safe)) - (__AST-e _%$tl113938114084%_))) - (_%$hd113940114091%_ + (__AST-e _%$tl114044114190%_))) + (_%$hd114046114197%_ (let () (declare (not safe)) - (##car _%$tgt113939114088%_))) - (_%$tl113941114094%_ + (##car _%$tgt114045114194%_))) + (_%$tl114047114200%_ (let () (declare (not safe)) - (##cdr _%$tgt113939114088%_))) - (_%body114098%_ _%$hd113940114091%_)) + (##cdr _%$tgt114045114194%_))) + (_%body114204%_ _%$hd114046114197%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113941114094%_)) + (__AST-e _%$tl114047114200%_)) '()) - (__compile _%body114098%_) - (_%$E113922114065%_))) - (_%$E113922114065%_)) - (_%$E113922114065%_))) - (_%$E113922114065%_))) - (_%$E113922114065%_)))))) + (__compile _%body114204%_) + (_%$E114028114171%_))) + (_%$E114028114171%_)) + (_%$E114028114171%_))) + (_%$E114028114171%_))) + (_%$E114028114171%_)))))) (define __compile-let-values% - (lambda (_%stx113725%_) - (letrec ((_%compile-simple113727%_ - (lambda (_%hd-ids113909%_ _%exprs113910%_ _%body113911%_) + (lambda (_%stx113831%_) + (letrec ((_%compile-simple113833%_ + (lambda (_%hd-ids114015%_ _%exprs114016%_ _%body114017%_) (__SRC__% (cons 'let - (cons (let ((__tmp115028 + (cons (let ((__tmp115134 (map __compile-head-id - _%hd-ids113909%_))) + _%hd-ids114015%_))) (declare (not safe)) - (##map list __tmp115028 _%exprs113910%_)) - (cons _%body113911%_ '()))) - _%stx113725%_))) - (_%compile-values113728%_ - (lambda (_%hd-ids113824%_ _%exprs113825%_ _%body113826%_) - (let _%lp113828%_ ((_%rest113830%_ _%hd-ids113824%_) - (_%exprs113831%_ _%exprs113825%_) - (_%bind113832%_ '()) - (_%post113833%_ '())) - (let* ((_%rest113834113848%_ _%rest113830%_) - (_%else113837113856%_ + (##map list __tmp115134 _%exprs114016%_)) + (cons _%body114017%_ '()))) + _%stx113831%_))) + (_%compile-values113834%_ + (lambda (_%hd-ids113930%_ _%exprs113931%_ _%body113932%_) + (let _%lp113934%_ ((_%rest113936%_ _%hd-ids113930%_) + (_%exprs113937%_ _%exprs113931%_) + (_%bind113938%_ '()) + (_%post113939%_ '())) + (let* ((_%rest113940113954%_ _%rest113936%_) + (_%else113943113962%_ (lambda () (__SRC__% (cons 'let - (cons (reverse _%bind113832%_) - (cons (_%compile-post113729%_ - _%post113833%_ - _%body113826%_) + (cons (reverse _%bind113938%_) + (cons (_%compile-post113835%_ + _%post113939%_ + _%body113932%_) '()))) - _%stx113725%_)))) - (let ((_%K113842113892%_ - (lambda (_%rest113889%_ _%id113890%_) - (_%lp113828%_ - _%rest113889%_ - (cdr _%exprs113831%_) - (cons (cons (__compile-head-id _%id113890%_) - (cons (car _%exprs113831%_) '())) - _%bind113832%_) - _%post113833%_))) - (_%K113839113874%_ - (lambda (_%rest113860%_ _%hd113861%_) + _%stx113831%_)))) + (let ((_%K113948113998%_ + (lambda (_%rest113995%_ _%id113996%_) + (_%lp113934%_ + _%rest113995%_ + (cdr _%exprs113937%_) + (cons (cons (__compile-head-id _%id113996%_) + (cons (car _%exprs113937%_) '())) + _%bind113938%_) + _%post113939%_))) + (_%K113945113980%_ + (lambda (_%rest113966%_ _%hd113967%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113861%_)) - (_%lp113828%_ - _%rest113860%_ - (cdr _%exprs113831%_) + (__AST-id? _%hd113967%_)) + (_%lp113934%_ + _%rest113966%_ + (cdr _%exprs113937%_) (cons (cons (__compile-head-id - _%hd113861%_) + _%hd113967%_) (cons (cons 'values->list - (cons (car _%exprs113831%_) + (cons (car _%exprs113937%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113832%_) - _%post113833%_) - (if (list? _%hd113861%_) - (let* ((_%len113865%_ + _%bind113938%_) + _%post113939%_) + (if (list? _%hd113967%_) + (let* ((_%len113971%_ (let () (declare (not safe)) - (##length _%hd113861%_))) - (_%tmp113867%_ + (##length _%hd113967%_))) + (_%tmp113973%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113828%_ - _%rest113860%_ - (cdr _%exprs113831%_) - (cons (cons _%tmp113867%_ - (cons (car _%exprs113831%_) + (_%lp113934%_ + _%rest113966%_ + (cdr _%exprs113937%_) + (cons (cons _%tmp113973%_ + (cons (car _%exprs113937%_) '())) - _%bind113832%_) - (cons (cons _%tmp113867%_ - (cons _%len113865%_ - (let ((__tmp115030 + _%bind113938%_) + (cons (cons _%tmp113973%_ + (cons _%len113971%_ + (let ((__tmp115136 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113870%_ _%k113871%_) + (lambda (_%id113976%_ _%k113977%_) (if (let () (declare (not safe)) - (__AST-e _%id113870%_)) - (cons (__SRC__0 _%id113870%_) _%k113871%_) + (__AST-e _%id113976%_)) + (cons (__SRC__0 _%id113976%_) _%k113977%_) '#f))) - (__tmp115029 + (__tmp115135 (let () (declare (not safe)) - (##iota _%len113865%_)))) + (##iota _%len113971%_)))) (declare (not safe)) - (__filter-map2 __tmp115030 _%hd113861%_ __tmp115029)))) + (__filter-map2 __tmp115136 _%hd113967%_ __tmp115135)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113833%_))) + _%post113939%_))) (__compile-error__% - _%stx113725%_ - _%hd113861%_)))))) - (if (pair? _%rest113834113848%_) - (let ((_%tl113844113897%_ + _%stx113831%_ + _%hd113967%_)))))) + (if (pair? _%rest113940113954%_) + (let ((_%tl113950114003%_ (let () (declare (not safe)) - (##cdr _%rest113834113848%_))) - (_%hd113843113895%_ + (##cdr _%rest113940113954%_))) + (_%hd113949114001%_ (let () (declare (not safe)) - (##car _%rest113834113848%_)))) - (if (pair? _%hd113843113895%_) - (let ((_%tl113846113902%_ + (##car _%rest113940113954%_)))) + (if (pair? _%hd113949114001%_) + (let ((_%tl113952114008%_ (let () (declare (not safe)) - (##cdr _%hd113843113895%_))) - (_%hd113845113900%_ + (##cdr _%hd113949114001%_))) + (_%hd113951114006%_ (let () (declare (not safe)) - (##car _%hd113843113895%_)))) - (if (null? _%tl113846113902%_) - (let ((_%id113905%_ - _%hd113845113900%_) - (_%rest113907%_ - _%tl113844113897%_)) - (_%K113842113892%_ - _%rest113907%_ - _%id113905%_)) - (let ((_%hd113882%_ - _%hd113843113895%_) - (_%rest113884%_ - _%tl113844113897%_)) - (_%K113839113874%_ - _%rest113884%_ - _%hd113882%_)))) - (let ((_%hd113882%_ _%hd113843113895%_) - (_%rest113884%_ _%tl113844113897%_)) - (_%K113839113874%_ - _%rest113884%_ - _%hd113882%_)))) - (_%else113837113856%_))))))) - (_%compile-post113729%_ - (lambda (_%post113731%_ _%body113732%_) - (let _%lp113734%_ ((_%rest113736%_ _%post113731%_) - (_%check113737%_ '()) - (_%bind113738%_ '())) - (let* ((_%rest113739113751%_ _%rest113736%_) - (_%else113741113759%_ + (##car _%hd113949114001%_)))) + (if (null? _%tl113952114008%_) + (let ((_%id114011%_ + _%hd113951114006%_) + (_%rest114013%_ + _%tl113950114003%_)) + (_%K113948113998%_ + _%rest114013%_ + _%id114011%_)) + (let ((_%hd113988%_ + _%hd113949114001%_) + (_%rest113990%_ + _%tl113950114003%_)) + (_%K113945113980%_ + _%rest113990%_ + _%hd113988%_)))) + (let ((_%hd113988%_ _%hd113949114001%_) + (_%rest113990%_ _%tl113950114003%_)) + (_%K113945113980%_ + _%rest113990%_ + _%hd113988%_)))) + (_%else113943113962%_))))))) + (_%compile-post113835%_ + (lambda (_%post113837%_ _%body113838%_) + (let _%lp113840%_ ((_%rest113842%_ _%post113837%_) + (_%check113843%_ '()) + (_%bind113844%_ '())) + (let* ((_%rest113845113857%_ _%rest113842%_) + (_%else113847113865%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp115031 + (let ((__tmp115137 (cons (__SRC__% (cons 'let - (cons _%bind113738%_ + (cons _%bind113844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%body113732%_ '()))) + (cons _%body113838%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%stx113725%_) + _%stx113831%_) '()))) (declare (not safe)) (__foldr1 cons - __tmp115031 - _%check113737%_))) - _%stx113725%_))) - (_%K113743113798%_ - (lambda (_%rest113762%_ - _%init113763%_ - _%len113764%_ - _%tmp113765%_) - (_%lp113734%_ - _%rest113762%_ + __tmp115137 + _%check113843%_))) + _%stx113831%_))) + (_%K113849113904%_ + (lambda (_%rest113868%_ + _%init113869%_ + _%len113870%_ + _%tmp113871%_) + (_%lp113840%_ + _%rest113868%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113765%_ - (cons _%len113764%_ '()))) - _%stx113725%_) - _%check113737%_) - (let ((__tmp115032 - (lambda (_%hd113767%_ _%r113768%_) - (let* ((_%hd113769113776%_ - _%hd113767%_) - (_%E113771113780%_ + (cons _%tmp113871%_ + (cons _%len113870%_ '()))) + _%stx113831%_) + _%check113843%_) + (let ((__tmp115138 + (lambda (_%hd113873%_ _%r113874%_) + (let* ((_%hd113875113882%_ + _%hd113873%_) + (_%E113877113886%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113769113776%_ + _%hd113875113882%_ '([id . k]))) '#!void)) - (_%K113772113786%_ - (lambda (_%k113783%_ - _%id113784%_) - (cons (cons _%id113784%_ - (cons (cons '##vector-ref + (_%K113878113892%_ + (lambda (_%k113889%_ + _%id113890%_) + (cons (cons _%id113890%_ + (cons (cons '##values-ref ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%tmp113765%_ - (cons _%k113783%_ '()))) + (cons _%tmp113871%_ + (cons _%k113889%_ '()))) '())) - _%r113768%_)))) + _%r113874%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113769113776%_) - (let ((_%hd113773113789%_ + (if (pair? _%hd113875113882%_) + (let ((_%hd113879113895%_ (let () (declare (not safe)) - (##car _%hd113769113776%_))) - (_%tl113774113791%_ + (##car _%hd113875113882%_))) + (_%tl113880113897%_ (let () (declare (not safe)) - (##cdr _%hd113769113776%_)))) - (let* ((_%id113794%_ - _%hd113773113789%_) - (_%k113796%_ - _%tl113774113791%_)) - (_%K113772113786%_ - _%k113796%_ - _%id113794%_))) - (_%E113771113780%_)))))) + (##cdr _%hd113875113882%_)))) + (let* ((_%id113900%_ + _%hd113879113895%_) + (_%k113902%_ + _%tl113880113897%_)) + (_%K113878113892%_ + _%k113902%_ + _%id113900%_))) + (_%E113877113886%_)))))) (declare (not safe)) (__foldr1 - __tmp115032 - _%bind113738%_ - _%init113763%_)))))) - (if (pair? _%rest113739113751%_) - (let ((_%hd113744113801%_ + __tmp115138 + _%bind113844%_ + _%init113869%_)))))) + (if (pair? _%rest113845113857%_) + (let ((_%hd113850113907%_ (let () (declare (not safe)) - (##car _%rest113739113751%_))) - (_%tl113745113803%_ + (##car _%rest113845113857%_))) + (_%tl113851113909%_ (let () (declare (not safe)) - (##cdr _%rest113739113751%_)))) - (if (pair? _%hd113744113801%_) - (let ((_%hd113746113806%_ + (##cdr _%rest113845113857%_)))) + (if (pair? _%hd113850113907%_) + (let ((_%hd113852113912%_ (let () (declare (not safe)) - (##car _%hd113744113801%_))) - (_%tl113747113808%_ + (##car _%hd113850113907%_))) + (_%tl113853113914%_ (let () (declare (not safe)) - (##cdr _%hd113744113801%_)))) - (let ((_%tmp113811%_ _%hd113746113806%_)) - (if (pair? _%tl113747113808%_) - (let ((_%hd113748113813%_ + (##cdr _%hd113850113907%_)))) + (let ((_%tmp113917%_ _%hd113852113912%_)) + (if (pair? _%tl113853113914%_) + (let ((_%hd113854113919%_ (let () (declare (not safe)) - (##car _%tl113747113808%_))) - (_%tl113749113815%_ + (##car _%tl113853113914%_))) + (_%tl113855113921%_ (let () (declare (not safe)) - (##cdr _%tl113747113808%_)))) - (let* ((_%len113818%_ - _%hd113748113813%_) - (_%init113820%_ - _%tl113749113815%_) - (_%rest113822%_ - _%tl113745113803%_)) - (_%K113743113798%_ - _%rest113822%_ - _%init113820%_ - _%len113818%_ - _%tmp113811%_))) - (_%else113741113759%_)))) - (_%else113741113759%_))) - (_%else113741113759%_))))))) + (##cdr _%tl113853113914%_)))) + (let* ((_%len113924%_ + _%hd113854113919%_) + (_%init113926%_ + _%tl113855113921%_) + (_%rest113928%_ + _%tl113851113909%_)) + (_%K113849113904%_ + _%rest113928%_ + _%init113926%_ + _%len113924%_ + _%tmp113917%_))) + (_%else113847113865%_)))) + (_%else113847113865%_))) + (_%else113847113865%_))))))) (__compile-let-form - _%stx113725%_ - _%compile-simple113727%_ - _%compile-values113728%_)))) + _%stx113831%_ + _%compile-simple113833%_ + _%compile-values113834%_)))) (define __compile-letrec-values% - (lambda (_%stx113522%_) - (letrec ((_%compile-simple113524%_ - (lambda (_%hd-ids113721%_ _%exprs113722%_ _%body113723%_) + (lambda (_%stx113628%_) + (letrec ((_%compile-simple113630%_ + (lambda (_%hd-ids113827%_ _%exprs113828%_ _%body113829%_) (__SRC__% (cons 'letrec - (cons (let ((__tmp115033 + (cons (let ((__tmp115139 (map __compile-head-id - _%hd-ids113721%_))) + _%hd-ids113827%_))) (declare (not safe)) - (##map list __tmp115033 _%exprs113722%_)) - (cons _%body113723%_ '()))) - _%stx113522%_))) - (_%compile-values113525%_ - (lambda (_%hd-ids113632%_ _%exprs113633%_ _%body113634%_) - (let _%lp113636%_ ((_%rest113638%_ _%hd-ids113632%_) - (_%exprs113639%_ _%exprs113633%_) - (_%pre113640%_ '()) - (_%bind113641%_ '()) - (_%post113642%_ '())) - (let* ((_%rest113643113657%_ _%rest113638%_) - (_%else113646113665%_ + (##map list __tmp115139 _%exprs113828%_)) + (cons _%body113829%_ '()))) + _%stx113628%_))) + (_%compile-values113631%_ + (lambda (_%hd-ids113738%_ _%exprs113739%_ _%body113740%_) + (let _%lp113742%_ ((_%rest113744%_ _%hd-ids113738%_) + (_%exprs113745%_ _%exprs113739%_) + (_%pre113746%_ '()) + (_%bind113747%_ '()) + (_%post113748%_ '())) + (let* ((_%rest113749113763%_ _%rest113744%_) + (_%else113752113771%_ (lambda () - (_%compile-inner113526%_ - _%pre113640%_ - _%bind113641%_ - _%post113642%_ - _%body113634%_)))) - (let ((_%K113651113704%_ - (lambda (_%rest113701%_ _%id113702%_) - (_%lp113636%_ - _%rest113701%_ - (cdr _%exprs113639%_) - _%pre113640%_ - (cons (cons (__compile-head-id _%id113702%_) - (cons (car _%exprs113639%_) '())) - _%bind113641%_) - _%post113642%_))) - (_%K113648113686%_ - (lambda (_%rest113669%_ _%hd113670%_) + (_%compile-inner113632%_ + _%pre113746%_ + _%bind113747%_ + _%post113748%_ + _%body113740%_)))) + (let ((_%K113757113810%_ + (lambda (_%rest113807%_ _%id113808%_) + (_%lp113742%_ + _%rest113807%_ + (cdr _%exprs113745%_) + _%pre113746%_ + (cons (cons (__compile-head-id _%id113808%_) + (cons (car _%exprs113745%_) '())) + _%bind113747%_) + _%post113748%_))) + (_%K113754113792%_ + (lambda (_%rest113775%_ _%hd113776%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113670%_)) - (_%lp113636%_ - _%rest113669%_ - (cdr _%exprs113639%_) - _%pre113640%_ + (__AST-id? _%hd113776%_)) + (_%lp113742%_ + _%rest113775%_ + (cdr _%exprs113745%_) + _%pre113746%_ (cons (cons (__compile-head-id - _%hd113670%_) + _%hd113776%_) (cons (cons 'values->list - (cons (car _%exprs113639%_) + (cons (car _%exprs113745%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113641%_) - _%post113642%_) - (if (list? _%hd113670%_) - (let* ((_%len113674%_ + _%bind113747%_) + _%post113748%_) + (if (list? _%hd113776%_) + (let* ((_%len113780%_ (let () (declare (not safe)) - (##length _%hd113670%_))) - (_%tmp113676%_ + (##length _%hd113776%_))) + (_%tmp113782%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113636%_ - _%rest113669%_ - (cdr _%exprs113639%_) - (let ((__tmp115034 - (lambda (_%id113679%_ - _%r113680%_) + (_%lp113742%_ + _%rest113775%_ + (cdr _%exprs113745%_) + (let ((__tmp115140 + (lambda (_%id113785%_ + _%r113786%_) (if (let () (declare (not safe)) - (__AST-e _%id113679%_)) + (__AST-e _%id113785%_)) (cons (cons (__SRC__0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%id113679%_) + _%id113785%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113680%_) - _%r113680%_)))) + _%r113786%_) + _%r113786%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp115034 - _%pre113640%_ - _%hd113670%_)) - (cons (cons _%tmp113676%_ - (cons (car _%exprs113639%_) + __tmp115140 + _%pre113746%_ + _%hd113776%_)) + (cons (cons _%tmp113782%_ + (cons (car _%exprs113745%_) '())) - _%bind113641%_) - (cons (cons _%tmp113676%_ - (cons _%len113674%_ - (let ((__tmp115036 + _%bind113747%_) + (cons (cons _%tmp113782%_ + (cons _%len113780%_ + (let ((__tmp115142 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%id113682%_ _%k113683%_) + (lambda (_%id113788%_ _%k113789%_) (if (let () (declare (not safe)) - (__AST-e _%id113682%_)) - (cons (__SRC__0 _%id113682%_) _%k113683%_) + (__AST-e _%id113788%_)) + (cons (__SRC__0 _%id113788%_) _%k113789%_) '#f))) - (__tmp115035 + (__tmp115141 (let () (declare (not safe)) - (##iota _%len113674%_)))) + (##iota _%len113780%_)))) (declare (not safe)) - (__filter-map2 __tmp115036 _%hd113670%_ __tmp115035)))) + (__filter-map2 __tmp115142 _%hd113776%_ __tmp115141)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113642%_))) + _%post113748%_))) (__compile-error__% - _%stx113522%_ - _%hd113670%_)))))) - (if (pair? _%rest113643113657%_) - (let ((_%tl113653113709%_ + _%stx113628%_ + _%hd113776%_)))))) + (if (pair? _%rest113749113763%_) + (let ((_%tl113759113815%_ (let () (declare (not safe)) - (##cdr _%rest113643113657%_))) - (_%hd113652113707%_ + (##cdr _%rest113749113763%_))) + (_%hd113758113813%_ (let () (declare (not safe)) - (##car _%rest113643113657%_)))) - (if (pair? _%hd113652113707%_) - (let ((_%tl113655113714%_ + (##car _%rest113749113763%_)))) + (if (pair? _%hd113758113813%_) + (let ((_%tl113761113820%_ (let () (declare (not safe)) - (##cdr _%hd113652113707%_))) - (_%hd113654113712%_ + (##cdr _%hd113758113813%_))) + (_%hd113760113818%_ (let () (declare (not safe)) - (##car _%hd113652113707%_)))) - (if (null? _%tl113655113714%_) - (let ((_%id113717%_ - _%hd113654113712%_) - (_%rest113719%_ - _%tl113653113709%_)) - (_%K113651113704%_ - _%rest113719%_ - _%id113717%_)) - (let ((_%hd113694%_ - _%hd113652113707%_) - (_%rest113696%_ - _%tl113653113709%_)) - (_%K113648113686%_ - _%rest113696%_ - _%hd113694%_)))) - (let ((_%hd113694%_ _%hd113652113707%_) - (_%rest113696%_ _%tl113653113709%_)) - (_%K113648113686%_ - _%rest113696%_ - _%hd113694%_)))) - (_%else113646113665%_))))))) - (_%compile-inner113526%_ - (lambda (_%pre113627%_ - _%bind113628%_ - _%post113629%_ - _%body113630%_) - (if (null? _%pre113627%_) - (_%compile-bind113527%_ - _%bind113628%_ - _%post113629%_ - _%body113630%_) + (##car _%hd113758113813%_)))) + (if (null? _%tl113761113820%_) + (let ((_%id113823%_ + _%hd113760113818%_) + (_%rest113825%_ + _%tl113759113815%_)) + (_%K113757113810%_ + _%rest113825%_ + _%id113823%_)) + (let ((_%hd113800%_ + _%hd113758113813%_) + (_%rest113802%_ + _%tl113759113815%_)) + (_%K113754113792%_ + _%rest113802%_ + _%hd113800%_)))) + (let ((_%hd113800%_ _%hd113758113813%_) + (_%rest113802%_ _%tl113759113815%_)) + (_%K113754113792%_ + _%rest113802%_ + _%hd113800%_)))) + (_%else113752113771%_))))))) + (_%compile-inner113632%_ + (lambda (_%pre113733%_ + _%bind113734%_ + _%post113735%_ + _%body113736%_) + (if (null? _%pre113733%_) + (_%compile-bind113633%_ + _%bind113734%_ + _%post113735%_ + _%body113736%_) (__SRC__% (cons 'let - (cons (reverse _%pre113627%_) - (cons (_%compile-bind113527%_ - _%bind113628%_ - _%post113629%_ - _%body113630%_) + (cons (reverse _%pre113733%_) + (cons (_%compile-bind113633%_ + _%bind113734%_ + _%post113735%_ + _%body113736%_) '()))) - _%stx113522%_)))) - (_%compile-bind113527%_ - (lambda (_%bind113623%_ _%post113624%_ _%body113625%_) + _%stx113628%_)))) + (_%compile-bind113633%_ + (lambda (_%bind113729%_ _%post113730%_ _%body113731%_) (__SRC__% (cons 'letrec - (cons (reverse _%bind113623%_) - (cons (_%compile-post113528%_ - _%post113624%_ - _%body113625%_) + (cons (reverse _%bind113729%_) + (cons (_%compile-post113634%_ + _%post113730%_ + _%body113731%_) '()))) - _%stx113522%_))) - (_%compile-post113528%_ - (lambda (_%post113530%_ _%body113531%_) - (let _%lp113533%_ ((_%rest113535%_ _%post113530%_) - (_%check113536%_ '()) - (_%bind113537%_ '())) - (let* ((_%rest113538113550%_ _%rest113535%_) - (_%else113540113558%_ + _%stx113628%_))) + (_%compile-post113634%_ + (lambda (_%post113636%_ _%body113637%_) + (let _%lp113639%_ ((_%rest113641%_ _%post113636%_) + (_%check113642%_ '()) + (_%bind113643%_ '())) + (let* ((_%rest113644113656%_ _%rest113641%_) + (_%else113646113664%_ (lambda () (__SRC__% (cons 'begin - (let ((__tmp115037 - (let ((__tmp115038 - (cons _%body113531%_ + (let ((__tmp115143 + (let ((__tmp115144 + (cons _%body113637%_ '()))) (declare (not safe)) (__foldr1 cons - __tmp115038 - _%bind113537%_)))) + __tmp115144 + _%bind113643%_)))) (declare (not safe)) (__foldr1 cons - __tmp115037 - _%check113536%_))) - _%stx113522%_))) - (_%K113542113597%_ - (lambda (_%rest113561%_ - _%init113562%_ - _%len113563%_ - _%tmp113564%_) - (_%lp113533%_ - _%rest113561%_ + __tmp115143 + _%check113642%_))) + _%stx113628%_))) + (_%K113648113703%_ + (lambda (_%rest113667%_ + _%init113668%_ + _%len113669%_ + _%tmp113670%_) + (_%lp113639%_ + _%rest113667%_ (cons (__SRC__% (cons '__check-values - (cons _%tmp113564%_ - (cons _%len113563%_ '()))) - _%stx113522%_) - _%check113536%_) - (let ((__tmp115039 - (lambda (_%hd113566%_ _%r113567%_) - (let* ((_%hd113568113575%_ - _%hd113566%_) - (_%E113570113579%_ + (cons _%tmp113670%_ + (cons _%len113669%_ '()))) + _%stx113628%_) + _%check113642%_) + (let ((__tmp115145 + (lambda (_%hd113672%_ _%r113673%_) + (let* ((_%hd113674113681%_ + _%hd113672%_) + (_%E113676113685%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113568113575%_ + _%hd113674113681%_ '([id . k]))) '#!void)) - (_%K113571113585%_ - (lambda (_%k113582%_ - _%id113583%_) + (_%K113677113691%_ + (lambda (_%k113688%_ + _%id113689%_) (cons (cons 'set! - (cons _%id113583%_ + (cons _%id113689%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons '##vector-ref - (cons _%tmp113564%_ - (cons _%k113582%_ '()))) + (cons (cons '##values-ref + (cons _%tmp113670%_ + (cons _%k113688%_ '()))) '()))) - _%r113567%_)))) + _%r113673%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (pair? _%hd113568113575%_) - (let ((_%hd113572113588%_ + (if (pair? _%hd113674113681%_) + (let ((_%hd113678113694%_ (let () (declare (not safe)) - (##car _%hd113568113575%_))) - (_%tl113573113590%_ + (##car _%hd113674113681%_))) + (_%tl113679113696%_ (let () (declare (not safe)) - (##cdr _%hd113568113575%_)))) - (let* ((_%id113593%_ - _%hd113572113588%_) - (_%k113595%_ - _%tl113573113590%_)) - (_%K113571113585%_ - _%k113595%_ - _%id113593%_))) - (_%E113570113579%_)))))) + (##cdr _%hd113674113681%_)))) + (let* ((_%id113699%_ + _%hd113678113694%_) + (_%k113701%_ + _%tl113679113696%_)) + (_%K113677113691%_ + _%k113701%_ + _%id113699%_))) + (_%E113676113685%_)))))) (declare (not safe)) (__foldr1 - __tmp115039 - _%bind113537%_ - _%init113562%_)))))) - (if (pair? _%rest113538113550%_) - (let ((_%hd113543113600%_ + __tmp115145 + _%bind113643%_ + _%init113668%_)))))) + (if (pair? _%rest113644113656%_) + (let ((_%hd113649113706%_ (let () (declare (not safe)) - (##car _%rest113538113550%_))) - (_%tl113544113602%_ + (##car _%rest113644113656%_))) + (_%tl113650113708%_ (let () (declare (not safe)) - (##cdr _%rest113538113550%_)))) - (if (pair? _%hd113543113600%_) - (let ((_%hd113545113605%_ + (##cdr _%rest113644113656%_)))) + (if (pair? _%hd113649113706%_) + (let ((_%hd113651113711%_ (let () (declare (not safe)) - (##car _%hd113543113600%_))) - (_%tl113546113607%_ + (##car _%hd113649113706%_))) + (_%tl113652113713%_ (let () (declare (not safe)) - (##cdr _%hd113543113600%_)))) - (let ((_%tmp113610%_ _%hd113545113605%_)) - (if (pair? _%tl113546113607%_) - (let ((_%hd113547113612%_ + (##cdr _%hd113649113706%_)))) + (let ((_%tmp113716%_ _%hd113651113711%_)) + (if (pair? _%tl113652113713%_) + (let ((_%hd113653113718%_ (let () (declare (not safe)) - (##car _%tl113546113607%_))) - (_%tl113548113614%_ + (##car _%tl113652113713%_))) + (_%tl113654113720%_ (let () (declare (not safe)) - (##cdr _%tl113546113607%_)))) - (let* ((_%len113617%_ - _%hd113547113612%_) - (_%init113619%_ - _%tl113548113614%_) - (_%rest113621%_ - _%tl113544113602%_)) - (_%K113542113597%_ - _%rest113621%_ - _%init113619%_ - _%len113617%_ - _%tmp113610%_))) - (_%else113540113558%_)))) - (_%else113540113558%_))) - (_%else113540113558%_))))))) + (##cdr _%tl113652113713%_)))) + (let* ((_%len113723%_ + _%hd113653113718%_) + (_%init113725%_ + _%tl113654113720%_) + (_%rest113727%_ + _%tl113650113708%_)) + (_%K113648113703%_ + _%rest113727%_ + _%init113725%_ + _%len113723%_ + _%tmp113716%_))) + (_%else113646113664%_)))) + (_%else113646113664%_))) + (_%else113646113664%_))))))) (__compile-let-form - _%stx113522%_ - _%compile-simple113524%_ - _%compile-values113525%_)))) + _%stx113628%_ + _%compile-simple113630%_ + _%compile-values113631%_)))) (define __compile-letrec*-values% - (lambda (_%stx113273%_) - (letrec ((_%compile-simple113275%_ - (lambda (_%hd-ids113518%_ _%exprs113519%_ _%body113520%_) + (lambda (_%stx113379%_) + (letrec ((_%compile-simple113381%_ + (lambda (_%hd-ids113624%_ _%exprs113625%_ _%body113626%_) (__SRC__% (cons 'letrec* - (cons (let ((__tmp115040 + (cons (let ((__tmp115146 (map __compile-head-id - _%hd-ids113518%_))) + _%hd-ids113624%_))) (declare (not safe)) - (##map list __tmp115040 _%exprs113519%_)) - (cons _%body113520%_ '()))) - _%stx113273%_))) - (_%compile-values113276%_ - (lambda (_%hd-ids113425%_ _%exprs113426%_ _%body113427%_) - (let _%lp113429%_ ((_%rest113431%_ _%hd-ids113425%_) - (_%exprs113432%_ _%exprs113426%_) - (_%bind113433%_ '()) - (_%post113434%_ '())) - (let* ((_%rest113435113449%_ _%rest113431%_) - (_%else113438113457%_ + (##map list __tmp115146 _%exprs113625%_)) + (cons _%body113626%_ '()))) + _%stx113379%_))) + (_%compile-values113382%_ + (lambda (_%hd-ids113531%_ _%exprs113532%_ _%body113533%_) + (let _%lp113535%_ ((_%rest113537%_ _%hd-ids113531%_) + (_%exprs113538%_ _%exprs113532%_) + (_%bind113539%_ '()) + (_%post113540%_ '())) + (let* ((_%rest113541113555%_ _%rest113537%_) + (_%else113544113563%_ (lambda () - (_%compile-bind113277%_ - _%bind113433%_ - _%post113434%_ - _%body113427%_)))) - (let ((_%K113443113501%_ - (lambda (_%rest113496%_ _%hd113497%_) + (_%compile-bind113383%_ + _%bind113539%_ + _%post113540%_ + _%body113533%_)))) + (let ((_%K113549113607%_ + (lambda (_%rest113602%_ _%hd113603%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113497%_)) - (let ((_%id113499%_ - (__SRC__0 _%hd113497%_))) - (_%lp113429%_ - _%rest113496%_ - (cdr _%exprs113432%_) - (cons (cons _%id113499%_ + (__AST-id? _%hd113603%_)) + (let ((_%id113605%_ + (__SRC__0 _%hd113603%_))) + (_%lp113535%_ + _%rest113602%_ + (cdr _%exprs113538%_) + (cons (cons _%id113605%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113433%_) - (cons (cons _%id113499%_ - (cons (car _%exprs113432%_) + _%bind113539%_) + (cons (cons _%id113605%_ + (cons (car _%exprs113538%_) '())) - _%post113434%_))) - (_%lp113429%_ - _%rest113496%_ - (cdr _%exprs113432%_) - _%bind113433%_ + _%post113540%_))) + (_%lp113535%_ + _%rest113602%_ + (cdr _%exprs113538%_) + _%bind113539%_ (cons (cons '#f - (cons (car _%exprs113432%_) + (cons (car _%exprs113538%_) '())) - _%post113434%_))))) - (_%K113440113481%_ - (lambda (_%rest113461%_ _%hd113462%_) + _%post113540%_))))) + (_%K113546113587%_ + (lambda (_%rest113567%_ _%hd113568%_) (if (let () (declare (not safe)) - (__AST-id? _%hd113462%_)) - (let ((_%id113465%_ - (__SRC__0 _%hd113462%_))) - (_%lp113429%_ - _%rest113461%_ - (cdr _%exprs113432%_) - (cons (cons _%id113465%_ + (__AST-id? _%hd113568%_)) + (let ((_%id113571%_ + (__SRC__0 _%hd113568%_))) + (_%lp113535%_ + _%rest113567%_ + (cdr _%exprs113538%_) + (cons (cons _%id113571%_ (cons (cons 'quote (cons '#!void ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%bind113433%_) - (cons (cons _%id113465%_ + _%bind113539%_) + (cons (cons _%id113571%_ (cons (cons 'values->list - (cons (car _%exprs113432%_) + (cons (car _%exprs113538%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%post113434%_))) + _%post113540%_))) (if (let () (declare (not safe)) - (__AST-e _%hd113462%_)) - (if (list? _%hd113462%_) - (let* ((_%len113469%_ + (__AST-e _%hd113568%_)) + (if (list? _%hd113568%_) + (let* ((_%len113575%_ (let () (declare (not safe)) (##length - _%hd113462%_))) - (_%tmp113471%_ + _%hd113568%_))) + (_%tmp113577%_ (__SRC__0 (let () (declare (not safe)) (##gensym))))) - (_%lp113429%_ - _%rest113461%_ - (cdr _%exprs113432%_) - (let ((__tmp115041 - (lambda (_%id113474%_ - _%r113475%_) + (_%lp113535%_ + _%rest113567%_ + (cdr _%exprs113538%_) + (let ((__tmp115147 + (lambda (_%id113580%_ + _%r113581%_) (if (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (__AST-e _%id113474%_)) - (cons (cons (__SRC__0 _%id113474%_) + (__AST-e _%id113580%_)) + (cons (cons (__SRC__0 _%id113580%_) (cons (cons 'quote (cons '#!void '())) '())) - _%r113475%_) - _%r113475%_)))) + _%r113581%_) + _%r113581%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (declare (not safe)) (__foldl1 - __tmp115041 - _%bind113433%_ - _%hd113462%_)) - (cons (cons _%tmp113471%_ - (cons (car _%exprs113432%_) + __tmp115147 + _%bind113539%_ + _%hd113568%_)) + (cons (cons _%tmp113577%_ + (cons (car _%exprs113538%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%len113469%_ - (let ((__tmp115043 - (lambda (_%id113477%_ _%k113478%_) + (cons _%len113575%_ + (let ((__tmp115149 + (lambda (_%id113583%_ _%k113584%_) (if (let () (declare (not safe)) - (__AST-e _%id113477%_)) - (cons (__SRC__0 _%id113477%_) - _%k113478%_) + (__AST-e _%id113583%_)) + (cons (__SRC__0 _%id113583%_) + _%k113584%_) '#f))) - (__tmp115042 + (__tmp115148 (let () (declare (not safe)) - (##iota _%len113469%_)))) + (##iota _%len113575%_)))) (declare (not safe)) (__filter-map2 - __tmp115043 - _%hd113462%_ - __tmp115042))))) - _%post113434%_))) + __tmp115149 + _%hd113568%_ + __tmp115148))))) + _%post113540%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (__compile-error__% - _%stx113273%_ - _%hd113462%_)) - (_%lp113429%_ - _%rest113461%_ - (cdr _%exprs113432%_) - _%bind113433%_ + _%stx113379%_ + _%hd113568%_)) + (_%lp113535%_ + _%rest113567%_ + (cdr _%exprs113538%_) + _%bind113539%_ (cons (cons '#f - (cons (car _%exprs113432%_) + (cons (car _%exprs113538%_) '())) - _%post113434%_))))))) - (if (pair? _%rest113435113449%_) - (let ((_%tl113445113506%_ + _%post113540%_))))))) + (if (pair? _%rest113541113555%_) + (let ((_%tl113551113612%_ (let () (declare (not safe)) - (##cdr _%rest113435113449%_))) - (_%hd113444113504%_ + (##cdr _%rest113541113555%_))) + (_%hd113550113610%_ (let () (declare (not safe)) - (##car _%rest113435113449%_)))) - (if (pair? _%hd113444113504%_) - (let ((_%tl113447113511%_ + (##car _%rest113541113555%_)))) + (if (pair? _%hd113550113610%_) + (let ((_%tl113553113617%_ (let () (declare (not safe)) - (##cdr _%hd113444113504%_))) - (_%hd113446113509%_ + (##cdr _%hd113550113610%_))) + (_%hd113552113615%_ (let () (declare (not safe)) - (##car _%hd113444113504%_)))) - (if (null? _%tl113447113511%_) - (let ((_%hd113514%_ - _%hd113446113509%_) - (_%rest113516%_ - _%tl113445113506%_)) - (_%K113443113501%_ - _%rest113516%_ - _%hd113514%_)) - (let ((_%hd113489%_ - _%hd113444113504%_) - (_%rest113491%_ - _%tl113445113506%_)) - (_%K113440113481%_ - _%rest113491%_ - _%hd113489%_)))) - (let ((_%hd113489%_ _%hd113444113504%_) - (_%rest113491%_ _%tl113445113506%_)) - (_%K113440113481%_ - _%rest113491%_ - _%hd113489%_)))) - (_%else113438113457%_))))))) - (_%compile-bind113277%_ - (lambda (_%bind113421%_ _%post113422%_ _%body113423%_) + (##car _%hd113550113610%_)))) + (if (null? _%tl113553113617%_) + (let ((_%hd113620%_ + _%hd113552113615%_) + (_%rest113622%_ + _%tl113551113612%_)) + (_%K113549113607%_ + _%rest113622%_ + _%hd113620%_)) + (let ((_%hd113595%_ + _%hd113550113610%_) + (_%rest113597%_ + _%tl113551113612%_)) + (_%K113546113587%_ + _%rest113597%_ + _%hd113595%_)))) + (let ((_%hd113595%_ _%hd113550113610%_) + (_%rest113597%_ _%tl113551113612%_)) + (_%K113546113587%_ + _%rest113597%_ + _%hd113595%_)))) + (_%else113544113563%_))))))) + (_%compile-bind113383%_ + (lambda (_%bind113527%_ _%post113528%_ _%body113529%_) (__SRC__% (cons 'let - (cons (reverse _%bind113421%_) - (cons (_%compile-post113278%_ - _%post113422%_ - _%body113423%_) + (cons (reverse _%bind113527%_) + (cons (_%compile-post113384%_ + _%post113528%_ + _%body113529%_) '()))) - _%stx113273%_))) - (_%compile-post113278%_ - (lambda (_%post113280%_ _%body113281%_) + _%stx113379%_))) + (_%compile-post113384%_ + (lambda (_%post113386%_ _%body113387%_) (__SRC__% (cons 'begin - (let ((__tmp115044 - (let ((__tmp115046 - (lambda (_%hd113283%_ _%r113284%_) - (let* ((_%hd113285113308%_ - _%hd113283%_) - (_%E113289113312%_ + (let ((__tmp115150 + (let ((__tmp115152 + (lambda (_%hd113389%_ _%r113390%_) + (let* ((_%hd113391113414%_ + _%hd113389%_) + (_%E113395113418%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%hd113285113308%_ + _%hd113391113414%_ '([#f expr]) '([id expr]) '([tmp @@ -2203,553 +2203,553 @@ init]))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '#!void))) - (let ((_%K113302113406%_ - (lambda (_%expr113404%_) - (cons _%expr113404%_ - _%r113284%_))) - (_%K113297113384%_ - (lambda (_%expr113381%_ - _%id113382%_) + (let ((_%K113408113512%_ + (lambda (_%expr113510%_) + (cons _%expr113510%_ + _%r113390%_))) + (_%K113403113490%_ + (lambda (_%expr113487%_ + _%id113488%_) (cons (__SRC__% (cons 'set! ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%id113382%_ (cons _%expr113381%_ '()))) - _%stx113273%_) - _%r113284%_))) + (cons _%id113488%_ (cons _%expr113487%_ '()))) + _%stx113379%_) + _%r113390%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K113290113351%_ - (lambda (_%init113316%_ - _%len113317%_ - _%expr113318%_ - _%tmp113319%_) + (_%K113396113457%_ + (lambda (_%init113422%_ + _%len113423%_ + _%expr113424%_ + _%tmp113425%_) (cons (__SRC__% (cons 'let ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons (cons (cons _%tmp113319%_ - (cons _%expr113318%_ '())) + (cons (cons (cons _%tmp113425%_ + (cons _%expr113424%_ '())) '()) (cons (__SRC__% (cons '__check-values - (cons _%tmp113319%_ - (cons _%len113317%_ '()))) - _%stx113273%_) - (let ((__tmp115047 - (map (lambda (_%hd113321%_) - (let* ((_%hd113322113329%_ - _%hd113321%_) - (_%E113324113333%_ + (cons _%tmp113425%_ + (cons _%len113423%_ '()))) + _%stx113379%_) + (let ((__tmp115153 + (map (lambda (_%hd113427%_) + (let* ((_%hd113428113435%_ + _%hd113427%_) + (_%E113430113439%_ (lambda () (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) (error '"No clause matching" - _%hd113322113329%_ + _%hd113428113435%_ '([id . k]))) '#!void)) - (_%K113325113339%_ - (lambda (_%k113336%_ _%id113337%_) + (_%K113431113445%_ + (lambda (_%k113442%_ _%id113443%_) (__SRC__% (cons 'set! - (cons _%id113337%_ - (cons (cons '##vector-ref - (cons _%tmp113319%_ - (cons _%k113336%_ '()))) + (cons _%id113443%_ + (cons (cons '##values-ref + (cons _%tmp113425%_ + (cons _%k113442%_ '()))) '()))) - _%stx113273%_)))) - (if (pair? _%hd113322113329%_) - (let ((_%hd113326113342%_ + _%stx113379%_)))) + (if (pair? _%hd113428113435%_) + (let ((_%hd113432113448%_ (let () (declare (not safe)) - (##car _%hd113322113329%_))) - (_%tl113327113344%_ + (##car _%hd113428113435%_))) + (_%tl113433113450%_ (let () (declare (not safe)) - (##cdr _%hd113322113329%_)))) - (let* ((_%id113347%_ _%hd113326113342%_) - (_%k113349%_ _%tl113327113344%_)) - (_%K113325113339%_ _%k113349%_ _%id113347%_))) - (_%E113324113333%_)))) + (##cdr _%hd113428113435%_)))) + (let* ((_%id113453%_ _%hd113432113448%_) + (_%k113455%_ _%tl113433113450%_)) + (_%K113431113445%_ _%k113455%_ _%id113453%_))) + (_%E113430113439%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%init113316%_))) + _%init113422%_))) (declare (not safe)) - (__foldr1 cons '() __tmp115047))))) - _%stx113273%_) - _%r113284%_)))) + (__foldr1 cons '() __tmp115153))))) + _%stx113379%_) + _%r113390%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%__match114900114901%_ - (lambda (_%hd113291113354%_ - _%tl113292113356%_ - _%hd113293113361%_ - _%tl113294113363%_) - (let ((_%tmp113359%_ - _%hd113291113354%_) - (_%expr113366%_ - _%hd113293113361%_)) - (_%E113289113312%_)))) - (_%__match114894114895%_ - (lambda (_%hd113291113354%_ - _%tl113292113356%_) - (let ((_%tmp113359%_ - _%hd113291113354%_)) - (_%E113289113312%_))))) - (if (pair? _%hd113285113308%_) - (let ((_%tl113304113411%_ + (let* ((_%__match115006115007%_ + (lambda (_%hd113397113460%_ + _%tl113398113462%_ + _%hd113399113467%_ + _%tl113400113469%_) + (let ((_%tmp113465%_ + _%hd113397113460%_) + (_%expr113472%_ + _%hd113399113467%_)) + (_%E113395113418%_)))) + (_%__match115000115001%_ + (lambda (_%hd113397113460%_ + _%tl113398113462%_) + (let ((_%tmp113465%_ + _%hd113397113460%_)) + (_%E113395113418%_))))) + (if (pair? _%hd113391113414%_) + (let ((_%tl113410113517%_ (let () (declare (not safe)) - (##cdr _%hd113285113308%_))) - (_%hd113303113409%_ + (##cdr _%hd113391113414%_))) + (_%hd113409113515%_ (let () (declare (not safe)) - (##car _%hd113285113308%_)))) + (##car _%hd113391113414%_)))) (if (let () (declare (not safe)) - (##eq? _%hd113303113409%_ + (##eq? _%hd113409113515%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f)) - (if (pair? _%tl113304113411%_) - (let ((_%tl113306113416%_ + (if (pair? _%tl113410113517%_) + (let ((_%tl113412113522%_ (let () (declare (not safe)) - (##cdr _%tl113304113411%_))) - (_%hd113305113414%_ + (##cdr _%tl113410113517%_))) + (_%hd113411113520%_ (let () (declare (not safe)) - (##car _%tl113304113411%_)))) - (if (null? _%tl113306113416%_) - (let ((_%expr113419%_ _%hd113305113414%_)) - (_%K113302113406%_ _%expr113419%_)) - (if (pair? _%tl113306113416%_) - (let ((_%tl113296113370%_ + (##car _%tl113410113517%_)))) + (if (null? _%tl113412113522%_) + (let ((_%expr113525%_ _%hd113411113520%_)) + (_%K113408113512%_ _%expr113525%_)) + (if (pair? _%tl113412113522%_) + (let ((_%tl113402113476%_ (let () (declare (not safe)) - (##cdr _%tl113306113416%_))) - (_%hd113295113368%_ + (##cdr _%tl113412113522%_))) + (_%hd113401113474%_ (let () (declare (not safe)) - (##car _%tl113306113416%_)))) - (let ((_%tmp113359%_ _%hd113303113409%_) - (_%expr113366%_ _%hd113305113414%_) - (_%len113373%_ _%hd113295113368%_) - (_%init113375%_ _%tl113296113370%_)) - (_%K113290113351%_ - _%init113375%_ - _%len113373%_ - _%expr113366%_ - _%tmp113359%_))) - (_%__match114900114901%_ - _%hd113303113409%_ - _%tl113304113411%_ - _%hd113305113414%_ - _%tl113306113416%_)))) - (_%__match114894114895%_ - _%hd113303113409%_ - _%tl113304113411%_)) - (if (pair? _%tl113304113411%_) - (let ((_%tl113301113396%_ + (##car _%tl113412113522%_)))) + (let ((_%tmp113465%_ _%hd113409113515%_) + (_%expr113472%_ _%hd113411113520%_) + (_%len113479%_ _%hd113401113474%_) + (_%init113481%_ _%tl113402113476%_)) + (_%K113396113457%_ + _%init113481%_ + _%len113479%_ + _%expr113472%_ + _%tmp113465%_))) + (_%__match115006115007%_ + _%hd113409113515%_ + _%tl113410113517%_ + _%hd113411113520%_ + _%tl113412113522%_)))) + (_%__match115000115001%_ + _%hd113409113515%_ + _%tl113410113517%_)) + (if (pair? _%tl113410113517%_) + (let ((_%tl113407113502%_ (let () (declare (not safe)) - (##cdr _%tl113304113411%_))) - (_%hd113300113394%_ + (##cdr _%tl113410113517%_))) + (_%hd113406113500%_ (let () (declare (not safe)) - (##car _%tl113304113411%_)))) - (if (null? _%tl113301113396%_) - (let ((_%id113392%_ _%hd113303113409%_) - (_%expr113399%_ _%hd113300113394%_)) - (_%K113297113384%_ _%expr113399%_ _%id113392%_)) - (if (pair? _%tl113301113396%_) - (let ((_%tl113296113370%_ + (##car _%tl113410113517%_)))) + (if (null? _%tl113407113502%_) + (let ((_%id113498%_ _%hd113409113515%_) + (_%expr113505%_ _%hd113406113500%_)) + (_%K113403113490%_ _%expr113505%_ _%id113498%_)) + (if (pair? _%tl113407113502%_) + (let ((_%tl113402113476%_ (let () (declare (not safe)) - (##cdr _%tl113301113396%_))) - (_%hd113295113368%_ + (##cdr _%tl113407113502%_))) + (_%hd113401113474%_ (let () (declare (not safe)) - (##car _%tl113301113396%_)))) - (let ((_%tmp113359%_ _%hd113303113409%_) - (_%expr113366%_ _%hd113300113394%_) - (_%len113373%_ _%hd113295113368%_) - (_%init113375%_ _%tl113296113370%_)) - (_%K113290113351%_ - _%init113375%_ - _%len113373%_ - _%expr113366%_ - _%tmp113359%_))) - (_%__match114900114901%_ - _%hd113303113409%_ - _%tl113304113411%_ - _%hd113300113394%_ - _%tl113301113396%_)))) - (_%__match114894114895%_ - _%hd113303113409%_ - _%tl113304113411%_)))) + (##car _%tl113407113502%_)))) + (let ((_%tmp113465%_ _%hd113409113515%_) + (_%expr113472%_ _%hd113406113500%_) + (_%len113479%_ _%hd113401113474%_) + (_%init113481%_ _%tl113402113476%_)) + (_%K113396113457%_ + _%init113481%_ + _%len113479%_ + _%expr113472%_ + _%tmp113465%_))) + (_%__match115006115007%_ + _%hd113409113515%_ + _%tl113410113517%_ + _%hd113406113500%_ + _%tl113407113502%_)))) + (_%__match115000115001%_ + _%hd113409113515%_ + _%tl113410113517%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%E113289113312%_))))))) - (__tmp115045 (list _%body113281%_))) + (_%E113395113418%_))))))) + (__tmp115151 (list _%body113387%_))) (declare (not safe)) (__foldl1 - __tmp115046 - __tmp115045 - _%post113280%_)))) + __tmp115152 + __tmp115151 + _%post113386%_)))) (declare (not safe)) - (__foldr1 cons '() __tmp115044))) - _%stx113273%_)))) + (__foldr1 cons '() __tmp115150))) + _%stx113379%_)))) (__compile-let-form - _%stx113273%_ - _%compile-simple113275%_ - _%compile-values113276%_)))) + _%stx113379%_ + _%compile-simple113381%_ + _%compile-values113382%_)))) (define __compile-call% - (lambda (_%stx113233%_) - (let* ((_%$e113235%_ _%stx113233%_) - (_%$E113237113246%_ + (lambda (_%stx113339%_) + (let* ((_%$e113341%_ _%stx113339%_) + (_%$E113343113352%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113235%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113235%_)) - (let* ((_%$tgt113238113249%_ - (let () (declare (not safe)) (__AST-e _%$e113235%_))) - (_%$hd113239113252%_ + _%$e113341%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113341%_)) + (let* ((_%$tgt113344113355%_ + (let () (declare (not safe)) (__AST-e _%$e113341%_))) + (_%$hd113345113358%_ (let () (declare (not safe)) - (##car _%$tgt113238113249%_))) - (_%$tl113240113255%_ + (##car _%$tgt113344113355%_))) + (_%$tl113346113361%_ (let () (declare (not safe)) - (##cdr _%$tgt113238113249%_)))) + (##cdr _%$tgt113344113355%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113240113255%_)) - (let* ((_%$tgt113241113259%_ + (__AST-pair? _%$tl113346113361%_)) + (let* ((_%$tgt113347113365%_ (let () (declare (not safe)) - (__AST-e _%$tl113240113255%_))) - (_%$hd113242113262%_ + (__AST-e _%$tl113346113361%_))) + (_%$hd113348113368%_ (let () (declare (not safe)) - (##car _%$tgt113241113259%_))) - (_%$tl113243113265%_ + (##car _%$tgt113347113365%_))) + (_%$tl113349113371%_ (let () (declare (not safe)) - (##cdr _%$tgt113241113259%_))) - (_%rator113269%_ _%$hd113242113262%_) - (_%rands113271%_ _%$tl113243113265%_)) + (##cdr _%$tgt113347113365%_))) + (_%rator113375%_ _%$hd113348113368%_) + (_%rands113377%_ _%$tl113349113371%_)) (__SRC__% - (cons (__compile _%rator113269%_) - (map __compile _%rands113271%_)) - _%stx113233%_)) - (_%$E113237113246%_))) - (_%$E113237113246%_))))) + (cons (__compile _%rator113375%_) + (map __compile _%rands113377%_)) + _%stx113339%_)) + (_%$E113343113352%_))) + (_%$E113343113352%_))))) (define __compile-ref% - (lambda (_%stx113195%_) - (let* ((_%$e113197%_ _%stx113195%_) - (_%$E113199113208%_ + (lambda (_%stx113301%_) + (let* ((_%$e113303%_ _%stx113301%_) + (_%$E113305113314%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113197%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113197%_)) - (let* ((_%$tgt113200113211%_ - (let () (declare (not safe)) (__AST-e _%$e113197%_))) - (_%$hd113201113214%_ + _%$e113303%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113303%_)) + (let* ((_%$tgt113306113317%_ + (let () (declare (not safe)) (__AST-e _%$e113303%_))) + (_%$hd113307113320%_ (let () (declare (not safe)) - (##car _%$tgt113200113211%_))) - (_%$tl113202113217%_ + (##car _%$tgt113306113317%_))) + (_%$tl113308113323%_ (let () (declare (not safe)) - (##cdr _%$tgt113200113211%_)))) + (##cdr _%$tgt113306113317%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113202113217%_)) - (let* ((_%$tgt113203113221%_ + (__AST-pair? _%$tl113308113323%_)) + (let* ((_%$tgt113309113327%_ (let () (declare (not safe)) - (__AST-e _%$tl113202113217%_))) - (_%$hd113204113224%_ + (__AST-e _%$tl113308113323%_))) + (_%$hd113310113330%_ (let () (declare (not safe)) - (##car _%$tgt113203113221%_))) - (_%$tl113205113227%_ + (##car _%$tgt113309113327%_))) + (_%$tl113311113333%_ (let () (declare (not safe)) - (##cdr _%$tgt113203113221%_))) - (_%id113231%_ _%$hd113204113224%_)) + (##cdr _%$tgt113309113327%_))) + (_%id113337%_ _%$hd113310113330%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113205113227%_)) + (__AST-e _%$tl113311113333%_)) '()) - (__SRC__% _%id113231%_ _%stx113195%_) - (_%$E113199113208%_))) - (_%$E113199113208%_))) - (_%$E113199113208%_))))) + (__SRC__% _%id113337%_ _%stx113301%_) + (_%$E113305113314%_))) + (_%$E113305113314%_))) + (_%$E113305113314%_))))) (define __compile-setq% - (lambda (_%stx113142%_) - (let* ((_%$e113144%_ _%stx113142%_) - (_%$E113146113158%_ + (lambda (_%stx113248%_) + (let* ((_%$e113250%_ _%stx113248%_) + (_%$E113252113264%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113144%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113144%_)) - (let* ((_%$tgt113147113161%_ - (let () (declare (not safe)) (__AST-e _%$e113144%_))) - (_%$hd113148113164%_ + _%$e113250%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113250%_)) + (let* ((_%$tgt113253113267%_ + (let () (declare (not safe)) (__AST-e _%$e113250%_))) + (_%$hd113254113270%_ (let () (declare (not safe)) - (##car _%$tgt113147113161%_))) - (_%$tl113149113167%_ + (##car _%$tgt113253113267%_))) + (_%$tl113255113273%_ (let () (declare (not safe)) - (##cdr _%$tgt113147113161%_)))) + (##cdr _%$tgt113253113267%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113149113167%_)) - (let* ((_%$tgt113150113171%_ + (__AST-pair? _%$tl113255113273%_)) + (let* ((_%$tgt113256113277%_ (let () (declare (not safe)) - (__AST-e _%$tl113149113167%_))) - (_%$hd113151113174%_ + (__AST-e _%$tl113255113273%_))) + (_%$hd113257113280%_ (let () (declare (not safe)) - (##car _%$tgt113150113171%_))) - (_%$tl113152113177%_ + (##car _%$tgt113256113277%_))) + (_%$tl113258113283%_ (let () (declare (not safe)) - (##cdr _%$tgt113150113171%_))) - (_%id113181%_ _%$hd113151113174%_)) + (##cdr _%$tgt113256113277%_))) + (_%id113287%_ _%$hd113257113280%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113152113177%_)) - (let* ((_%$tgt113153113183%_ + (__AST-pair? _%$tl113258113283%_)) + (let* ((_%$tgt113259113289%_ (let () (declare (not safe)) - (__AST-e _%$tl113152113177%_))) - (_%$hd113154113186%_ + (__AST-e _%$tl113258113283%_))) + (_%$hd113260113292%_ (let () (declare (not safe)) - (##car _%$tgt113153113183%_))) - (_%$tl113155113189%_ + (##car _%$tgt113259113289%_))) + (_%$tl113261113295%_ (let () (declare (not safe)) - (##cdr _%$tgt113153113183%_))) - (_%expr113193%_ _%$hd113154113186%_)) + (##cdr _%$tgt113259113289%_))) + (_%expr113299%_ _%$hd113260113292%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113155113189%_)) + (__AST-e _%$tl113261113295%_)) '()) (__SRC__% (cons 'set! (cons (__SRC__% - _%id113181%_ - _%stx113142%_) - (cons (__compile _%expr113193%_) + _%id113287%_ + _%stx113248%_) + (cons (__compile _%expr113299%_) '()))) - _%stx113142%_) - (_%$E113146113158%_))) - (_%$E113146113158%_))) - (_%$E113146113158%_))) - (_%$E113146113158%_))))) + _%stx113248%_) + (_%$E113252113264%_))) + (_%$E113252113264%_))) + (_%$E113252113264%_))) + (_%$E113252113264%_))))) (define __compile-if% - (lambda (_%stx113074%_) - (let* ((_%$e113076%_ _%stx113074%_) - (_%$E113078113093%_ + (lambda (_%stx113180%_) + (let* ((_%$e113182%_ _%stx113180%_) + (_%$E113184113199%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113076%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113076%_)) - (let* ((_%$tgt113079113096%_ - (let () (declare (not safe)) (__AST-e _%$e113076%_))) - (_%$hd113080113099%_ + _%$e113182%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113182%_)) + (let* ((_%$tgt113185113202%_ + (let () (declare (not safe)) (__AST-e _%$e113182%_))) + (_%$hd113186113205%_ (let () (declare (not safe)) - (##car _%$tgt113079113096%_))) - (_%$tl113081113102%_ + (##car _%$tgt113185113202%_))) + (_%$tl113187113208%_ (let () (declare (not safe)) - (##cdr _%$tgt113079113096%_)))) + (##cdr _%$tgt113185113202%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113081113102%_)) - (let* ((_%$tgt113082113106%_ + (__AST-pair? _%$tl113187113208%_)) + (let* ((_%$tgt113188113212%_ (let () (declare (not safe)) - (__AST-e _%$tl113081113102%_))) - (_%$hd113083113109%_ + (__AST-e _%$tl113187113208%_))) + (_%$hd113189113215%_ (let () (declare (not safe)) - (##car _%$tgt113082113106%_))) - (_%$tl113084113112%_ + (##car _%$tgt113188113212%_))) + (_%$tl113190113218%_ (let () (declare (not safe)) - (##cdr _%$tgt113082113106%_))) - (_%p113116%_ _%$hd113083113109%_)) + (##cdr _%$tgt113188113212%_))) + (_%p113222%_ _%$hd113189113215%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113084113112%_)) - (let* ((_%$tgt113085113118%_ + (__AST-pair? _%$tl113190113218%_)) + (let* ((_%$tgt113191113224%_ (let () (declare (not safe)) - (__AST-e _%$tl113084113112%_))) - (_%$hd113086113121%_ + (__AST-e _%$tl113190113218%_))) + (_%$hd113192113227%_ (let () (declare (not safe)) - (##car _%$tgt113085113118%_))) - (_%$tl113087113124%_ + (##car _%$tgt113191113224%_))) + (_%$tl113193113230%_ (let () (declare (not safe)) - (##cdr _%$tgt113085113118%_))) - (_%t113128%_ _%$hd113086113121%_)) + (##cdr _%$tgt113191113224%_))) + (_%t113234%_ _%$hd113192113227%_)) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113087113124%_)) - (let* ((_%$tgt113088113130%_ + (__AST-pair? _%$tl113193113230%_)) + (let* ((_%$tgt113194113236%_ (let () (declare (not safe)) - (__AST-e _%$tl113087113124%_))) - (_%$hd113089113133%_ + (__AST-e _%$tl113193113230%_))) + (_%$hd113195113239%_ (let () (declare (not safe)) - (##car _%$tgt113088113130%_))) - (_%$tl113090113136%_ + (##car _%$tgt113194113236%_))) + (_%$tl113196113242%_ (let () (declare (not safe)) - (##cdr _%$tgt113088113130%_))) - (_%f113140%_ _%$hd113089113133%_)) + (##cdr _%$tgt113194113236%_))) + (_%f113246%_ _%$hd113195113239%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113090113136%_)) + (__AST-e _%$tl113196113242%_)) '()) (__SRC__% (cons 'if - (cons (__compile _%p113116%_) + (cons (__compile _%p113222%_) (cons (__compile - _%t113128%_) + _%t113234%_) (cons (__compile - _%f113140%_) + _%f113246%_) '())))) - _%stx113074%_) - (_%$E113078113093%_))) - (_%$E113078113093%_))) - (_%$E113078113093%_))) - (_%$E113078113093%_))) - (_%$E113078113093%_))))) + _%stx113180%_) + (_%$E113184113199%_))) + (_%$E113184113199%_))) + (_%$E113184113199%_))) + (_%$E113184113199%_))) + (_%$E113184113199%_))))) (define __compile-quote% - (lambda (_%stx113036%_) - (let* ((_%$e113038%_ _%stx113036%_) - (_%$E113040113049%_ + (lambda (_%stx113142%_) + (let* ((_%$e113144%_ _%stx113142%_) + (_%$E113146113155%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113038%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113038%_)) - (let* ((_%$tgt113041113052%_ - (let () (declare (not safe)) (__AST-e _%$e113038%_))) - (_%$hd113042113055%_ + _%$e113144%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113144%_)) + (let* ((_%$tgt113147113158%_ + (let () (declare (not safe)) (__AST-e _%$e113144%_))) + (_%$hd113148113161%_ (let () (declare (not safe)) - (##car _%$tgt113041113052%_))) - (_%$tl113043113058%_ + (##car _%$tgt113147113158%_))) + (_%$tl113149113164%_ (let () (declare (not safe)) - (##cdr _%$tgt113041113052%_)))) + (##cdr _%$tgt113147113158%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113043113058%_)) - (let* ((_%$tgt113044113062%_ + (__AST-pair? _%$tl113149113164%_)) + (let* ((_%$tgt113150113168%_ (let () (declare (not safe)) - (__AST-e _%$tl113043113058%_))) - (_%$hd113045113065%_ + (__AST-e _%$tl113149113164%_))) + (_%$hd113151113171%_ (let () (declare (not safe)) - (##car _%$tgt113044113062%_))) - (_%$tl113046113068%_ + (##car _%$tgt113150113168%_))) + (_%$tl113152113174%_ (let () (declare (not safe)) - (##cdr _%$tgt113044113062%_))) - (_%e113072%_ _%$hd113045113065%_)) + (##cdr _%$tgt113150113168%_))) + (_%e113178%_ _%$hd113151113171%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113046113068%_)) + (__AST-e _%$tl113152113174%_)) '()) (__SRC__% (cons 'quote (cons (let () (declare (not safe)) - (__AST->datum _%e113072%_)) + (__AST->datum _%e113178%_)) '())) - _%stx113036%_) - (_%$E113040113049%_))) - (_%$E113040113049%_))) - (_%$E113040113049%_))))) + _%stx113142%_) + (_%$E113146113155%_))) + (_%$E113146113155%_))) + (_%$E113146113155%_))))) (define __compile-quote-syntax% - (lambda (_%stx112998%_) - (let* ((_%$e113000%_ _%stx112998%_) - (_%$E113002113011%_ + (lambda (_%stx113104%_) + (let* ((_%$e113106%_ _%stx113104%_) + (_%$E113108113117%_ (lambda () (let () (declare (not safe)) (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e113000%_))))) - (if (let () (declare (not safe)) (__AST-pair? _%$e113000%_)) - (let* ((_%$tgt113003113014%_ - (let () (declare (not safe)) (__AST-e _%$e113000%_))) - (_%$hd113004113017%_ + _%$e113106%_))))) + (if (let () (declare (not safe)) (__AST-pair? _%$e113106%_)) + (let* ((_%$tgt113109113120%_ + (let () (declare (not safe)) (__AST-e _%$e113106%_))) + (_%$hd113110113123%_ (let () (declare (not safe)) - (##car _%$tgt113003113014%_))) - (_%$tl113005113020%_ + (##car _%$tgt113109113120%_))) + (_%$tl113111113126%_ (let () (declare (not safe)) - (##cdr _%$tgt113003113014%_)))) + (##cdr _%$tgt113109113120%_)))) (if (let () (declare (not safe)) - (__AST-pair? _%$tl113005113020%_)) - (let* ((_%$tgt113006113024%_ + (__AST-pair? _%$tl113111113126%_)) + (let* ((_%$tgt113112113130%_ (let () (declare (not safe)) - (__AST-e _%$tl113005113020%_))) - (_%$hd113007113027%_ + (__AST-e _%$tl113111113126%_))) + (_%$hd113113113133%_ (let () (declare (not safe)) - (##car _%$tgt113006113024%_))) - (_%$tl113008113030%_ + (##car _%$tgt113112113130%_))) + (_%$tl113114113136%_ (let () (declare (not safe)) - (##cdr _%$tgt113006113024%_))) - (_%e113034%_ _%$hd113007113027%_)) + (##cdr _%$tgt113112113130%_))) + (_%e113140%_ _%$hd113113113133%_)) (if (equal? (let () (declare (not safe)) - (__AST-e _%$tl113008113030%_)) + (__AST-e _%$tl113114113136%_)) '()) (__SRC__% - (cons 'quote (cons _%e113034%_ '())) - _%stx112998%_) - (_%$E113002113011%_))) - (_%$E113002113011%_))) - (_%$E113002113011%_))))) + (cons 'quote (cons _%e113140%_ '())) + _%stx113104%_) + (_%$E113108113117%_))) + (_%$E113108113117%_))) + (_%$E113108113117%_))))) (__core-bind-syntax!__% '%#begin __compile-begin% make-__core-special-form) (__core-bind-syntax!__% '%#begin-syntax diff --git a/src/bootstrap/gerbil/runtime/eval~1.scm b/src/bootstrap/gerbil/runtime/eval~1.scm index f148a93f1..261a11447 100644 --- a/src/bootstrap/gerbil/runtime/eval~1.scm +++ b/src/bootstrap/gerbil/runtime/eval~1.scm @@ -1,321 +1,321 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g115049_| + (define |[1]#_g115155_| (##structure gx#syntax-quote::t '__syntax::t #f (gx#current-expander-context) '())) - (define |[1]#_g115051_| + (define |[1]#_g115157_| (##structure gx#syntax-quote::t 'make-__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115053_| + (define |[1]#_g115159_| (##structure gx#syntax-quote::t '__syntax? #f (gx#current-expander-context) '())) - (define |[1]#_g115055_| + (define |[1]#_g115161_| (##structure gx#syntax-quote::t '__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115056_| + (define |[1]#_g115162_| (##structure gx#syntax-quote::t '__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115058_| + (define |[1]#_g115164_| (##structure gx#syntax-quote::t '__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115059_| + (define |[1]#_g115165_| (##structure gx#syntax-quote::t '__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115061_| + (define |[1]#_g115167_| (##structure gx#syntax-quote::t '&__syntax-e #f (gx#current-expander-context) '())) - (define |[1]#_g115062_| + (define |[1]#_g115168_| (##structure gx#syntax-quote::t '&__syntax-id #f (gx#current-expander-context) '())) - (define |[1]#_g115064_| + (define |[1]#_g115170_| (##structure gx#syntax-quote::t '&__syntax-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115065_| + (define |[1]#_g115171_| (##structure gx#syntax-quote::t '&__syntax-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115067_| + (define |[1]#_g115173_| (##structure gx#syntax-quote::t '__syntax #f (gx#current-expander-context) '())) - (define |[1]#_g115069_| + (define |[1]#_g115175_| (##structure gx#syntax-quote::t '__core-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115071_| + (define |[1]#_g115177_| (##structure gx#syntax-quote::t 'make-__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115073_| + (define |[1]#_g115179_| (##structure gx#syntax-quote::t '__core-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115075_| + (define |[1]#_g115181_| (##structure gx#syntax-quote::t '__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115076_| + (define |[1]#_g115182_| (##structure gx#syntax-quote::t '__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115078_| + (define |[1]#_g115184_| (##structure gx#syntax-quote::t '__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115079_| + (define |[1]#_g115185_| (##structure gx#syntax-quote::t '__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115081_| + (define |[1]#_g115187_| (##structure gx#syntax-quote::t '&__core-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115082_| + (define |[1]#_g115188_| (##structure gx#syntax-quote::t '&__core-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115084_| + (define |[1]#_g115190_| (##structure gx#syntax-quote::t '&__core-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115085_| + (define |[1]#_g115191_| (##structure gx#syntax-quote::t '&__core-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115087_| + (define |[1]#_g115193_| (##structure gx#syntax-quote::t '__core-form #f (gx#current-expander-context) '())) - (define |[1]#_g115089_| + (define |[1]#_g115195_| (##structure gx#syntax-quote::t '__core-expression::t #f (gx#current-expander-context) '())) - (define |[1]#_g115091_| + (define |[1]#_g115197_| (##structure gx#syntax-quote::t 'make-__core-expression #f (gx#current-expander-context) '())) - (define |[1]#_g115093_| + (define |[1]#_g115199_| (##structure gx#syntax-quote::t '__core-expression? #f (gx#current-expander-context) '())) - (define |[1]#_g115095_| + (define |[1]#_g115201_| (##structure gx#syntax-quote::t '__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115096_| + (define |[1]#_g115202_| (##structure gx#syntax-quote::t '__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115098_| + (define |[1]#_g115204_| (##structure gx#syntax-quote::t '__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115099_| + (define |[1]#_g115205_| (##structure gx#syntax-quote::t '__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115101_| + (define |[1]#_g115207_| (##structure gx#syntax-quote::t '&__core-expression-e #f (gx#current-expander-context) '())) - (define |[1]#_g115102_| + (define |[1]#_g115208_| (##structure gx#syntax-quote::t '&__core-expression-id #f (gx#current-expander-context) '())) - (define |[1]#_g115104_| + (define |[1]#_g115210_| (##structure gx#syntax-quote::t '&__core-expression-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115105_| + (define |[1]#_g115211_| (##structure gx#syntax-quote::t '&__core-expression-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115108_| + (define |[1]#_g115214_| (##structure gx#syntax-quote::t '__core-special-form::t #f (gx#current-expander-context) '())) - (define |[1]#_g115110_| + (define |[1]#_g115216_| (##structure gx#syntax-quote::t 'make-__core-special-form #f (gx#current-expander-context) '())) - (define |[1]#_g115112_| + (define |[1]#_g115218_| (##structure gx#syntax-quote::t '__core-special-form? #f (gx#current-expander-context) '())) - (define |[1]#_g115114_| + (define |[1]#_g115220_| (##structure gx#syntax-quote::t '__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115115_| + (define |[1]#_g115221_| (##structure gx#syntax-quote::t '__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115117_| + (define |[1]#_g115223_| (##structure gx#syntax-quote::t '__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115118_| + (define |[1]#_g115224_| (##structure gx#syntax-quote::t '__core-special-form-id-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115120_| + (define |[1]#_g115226_| (##structure gx#syntax-quote::t '&__core-special-form-e #f (gx#current-expander-context) '())) - (define |[1]#_g115121_| + (define |[1]#_g115227_| (##structure gx#syntax-quote::t '&__core-special-form-id #f (gx#current-expander-context) '())) - (define |[1]#_g115123_| + (define |[1]#_g115229_| (##structure gx#syntax-quote::t '&__core-special-form-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g115124_| + (define |[1]#_g115230_| (##structure gx#syntax-quote::t '&__core-special-form-id-set! @@ -324,7 +324,7 @@ '())) (begin (define |[:0:]#__syntax| - (let ((__obj114998 + (let ((__obj115104 (let () (declare (not safe)) (##structure @@ -353,76 +353,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114998 + __obj115104 'gerbil/runtime/eval#__syntax::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '__syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj115104 '__syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '(e id) '4 '#f '#f)) + (##unchecked-structure-set! __obj115104 '(e id) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '(e id) '6 '#f '#f)) + (##unchecked-structure-set! __obj115104 '(e id) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj115104 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115104 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115104 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115104 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '#f '11 '#f '#f)) - (let ((__tmp115048 |[1]#_g115049_|)) + (##unchecked-structure-set! __obj115104 '#f '11 '#f '#f)) + (let ((__tmp115154 |[1]#_g115155_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115048 '12 '#f '#f)) - (let ((__tmp115050 |[1]#_g115051_|)) + (##unchecked-structure-set! __obj115104 __tmp115154 '12 '#f '#f)) + (let ((__tmp115156 |[1]#_g115157_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115050 '13 '#f '#f)) - (let ((__tmp115052 |[1]#_g115053_|)) + (##unchecked-structure-set! __obj115104 __tmp115156 '13 '#f '#f)) + (let ((__tmp115158 |[1]#_g115159_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115052 '14 '#f '#f)) - (let ((__tmp115054 - (cons (cons 'e |[1]#_g115055_|) - (cons (cons 'id |[1]#_g115056_|) '())))) + (##unchecked-structure-set! __obj115104 __tmp115158 '14 '#f '#f)) + (let ((__tmp115160 + (cons (cons 'e |[1]#_g115161_|) + (cons (cons 'id |[1]#_g115162_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115054 '15 '#f '#f)) - (let ((__tmp115057 - (cons (cons 'e |[1]#_g115058_|) - (cons (cons 'id |[1]#_g115059_|) '())))) + (##unchecked-structure-set! __obj115104 __tmp115160 '15 '#f '#f)) + (let ((__tmp115163 + (cons (cons 'e |[1]#_g115164_|) + (cons (cons 'id |[1]#_g115165_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115057 '16 '#f '#f)) - (let ((__tmp115060 - (cons (cons 'e |[1]#_g115061_|) - (cons (cons 'id |[1]#_g115062_|) '())))) + (##unchecked-structure-set! __obj115104 __tmp115163 '16 '#f '#f)) + (let ((__tmp115166 + (cons (cons 'e |[1]#_g115167_|) + (cons (cons 'id |[1]#_g115168_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115060 '17 '#f '#f)) - (let ((__tmp115063 - (cons (cons 'e |[1]#_g115064_|) - (cons (cons 'id |[1]#_g115065_|) '())))) + (##unchecked-structure-set! __obj115104 __tmp115166 '17 '#f '#f)) + (let ((__tmp115169 + (cons (cons 'e |[1]#_g115170_|) + (cons (cons 'id |[1]#_g115171_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114998 __tmp115063 '18 '#f '#f)) + (##unchecked-structure-set! __obj115104 __tmp115169 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115104 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115104 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114998 '() '20 '#f '#f)) - __obj114998)) + (##unchecked-structure-set! __obj115104 '() '20 '#f '#f)) + __obj115104)) (define |[:0:]#__core-form| - (let ((__obj114999 + (let ((__obj115105 (let () (declare (not safe)) (##structure @@ -451,76 +451,76 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj114999 + __obj115105 'gerbil/runtime/eval#__core-form::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '__core-form '2 '#f '#f)) + (##unchecked-structure-set! __obj115105 '__core-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj115105 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '(e id) '6 '#f '#f)) - (let ((__tmp115066 (cons |[1]#_g115067_| '()))) + (##unchecked-structure-set! __obj115105 '(e id) '6 '#f '#f)) + (let ((__tmp115172 (cons |[1]#_g115173_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115066 '3 '#f '#f)) + (##unchecked-structure-set! __obj115105 __tmp115172 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115105 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115105 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115105 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '#f '11 '#f '#f)) - (let ((__tmp115068 |[1]#_g115069_|)) + (##unchecked-structure-set! __obj115105 '#f '11 '#f '#f)) + (let ((__tmp115174 |[1]#_g115175_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115068 '12 '#f '#f)) - (let ((__tmp115070 |[1]#_g115071_|)) + (##unchecked-structure-set! __obj115105 __tmp115174 '12 '#f '#f)) + (let ((__tmp115176 |[1]#_g115177_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115070 '13 '#f '#f)) - (let ((__tmp115072 |[1]#_g115073_|)) + (##unchecked-structure-set! __obj115105 __tmp115176 '13 '#f '#f)) + (let ((__tmp115178 |[1]#_g115179_|)) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115072 '14 '#f '#f)) - (let ((__tmp115074 - (cons (cons 'e |[1]#_g115075_|) - (cons (cons 'id |[1]#_g115076_|) '())))) + (##unchecked-structure-set! __obj115105 __tmp115178 '14 '#f '#f)) + (let ((__tmp115180 + (cons (cons 'e |[1]#_g115181_|) + (cons (cons 'id |[1]#_g115182_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115074 '15 '#f '#f)) - (let ((__tmp115077 - (cons (cons 'e |[1]#_g115078_|) - (cons (cons 'id |[1]#_g115079_|) '())))) + (##unchecked-structure-set! __obj115105 __tmp115180 '15 '#f '#f)) + (let ((__tmp115183 + (cons (cons 'e |[1]#_g115184_|) + (cons (cons 'id |[1]#_g115185_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115077 '16 '#f '#f)) - (let ((__tmp115080 - (cons (cons 'e |[1]#_g115081_|) - (cons (cons 'id |[1]#_g115082_|) '())))) + (##unchecked-structure-set! __obj115105 __tmp115183 '16 '#f '#f)) + (let ((__tmp115186 + (cons (cons 'e |[1]#_g115187_|) + (cons (cons 'id |[1]#_g115188_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115080 '17 '#f '#f)) - (let ((__tmp115083 - (cons (cons 'e |[1]#_g115084_|) - (cons (cons 'id |[1]#_g115085_|) '())))) + (##unchecked-structure-set! __obj115105 __tmp115186 '17 '#f '#f)) + (let ((__tmp115189 + (cons (cons 'e |[1]#_g115190_|) + (cons (cons 'id |[1]#_g115191_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj114999 __tmp115083 '18 '#f '#f)) + (##unchecked-structure-set! __obj115105 __tmp115189 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115105 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115105 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj114999 '() '20 '#f '#f)) - __obj114999)) + (##unchecked-structure-set! __obj115105 '() '20 '#f '#f)) + __obj115105)) (define |[:0:]#__core-expression| - (let ((__obj115000 + (let ((__obj115106 (let () (declare (not safe)) (##structure @@ -549,7 +549,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115000 + __obj115106 'gerbil/runtime/eval#__core-expression::t '1 '#f @@ -557,73 +557,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115000 + __obj115106 '__core-expression '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj115106 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '(e id) '6 '#f '#f)) - (let ((__tmp115086 (cons |[1]#_g115087_| '()))) + (##unchecked-structure-set! __obj115106 '(e id) '6 '#f '#f)) + (let ((__tmp115192 (cons |[1]#_g115193_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115086 '3 '#f '#f)) + (##unchecked-structure-set! __obj115106 __tmp115192 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115106 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115106 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115106 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '#f '11 '#f '#f)) - (let ((__tmp115088 |[1]#_g115089_|)) + (##unchecked-structure-set! __obj115106 '#f '11 '#f '#f)) + (let ((__tmp115194 |[1]#_g115195_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115088 '12 '#f '#f)) - (let ((__tmp115090 |[1]#_g115091_|)) + (##unchecked-structure-set! __obj115106 __tmp115194 '12 '#f '#f)) + (let ((__tmp115196 |[1]#_g115197_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115090 '13 '#f '#f)) - (let ((__tmp115092 |[1]#_g115093_|)) + (##unchecked-structure-set! __obj115106 __tmp115196 '13 '#f '#f)) + (let ((__tmp115198 |[1]#_g115199_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115092 '14 '#f '#f)) - (let ((__tmp115094 - (cons (cons 'e |[1]#_g115095_|) - (cons (cons 'id |[1]#_g115096_|) '())))) + (##unchecked-structure-set! __obj115106 __tmp115198 '14 '#f '#f)) + (let ((__tmp115200 + (cons (cons 'e |[1]#_g115201_|) + (cons (cons 'id |[1]#_g115202_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115094 '15 '#f '#f)) - (let ((__tmp115097 - (cons (cons 'e |[1]#_g115098_|) - (cons (cons 'id |[1]#_g115099_|) '())))) + (##unchecked-structure-set! __obj115106 __tmp115200 '15 '#f '#f)) + (let ((__tmp115203 + (cons (cons 'e |[1]#_g115204_|) + (cons (cons 'id |[1]#_g115205_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115097 '16 '#f '#f)) - (let ((__tmp115100 - (cons (cons 'e |[1]#_g115101_|) - (cons (cons 'id |[1]#_g115102_|) '())))) + (##unchecked-structure-set! __obj115106 __tmp115203 '16 '#f '#f)) + (let ((__tmp115206 + (cons (cons 'e |[1]#_g115207_|) + (cons (cons 'id |[1]#_g115208_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115100 '17 '#f '#f)) - (let ((__tmp115103 - (cons (cons 'e |[1]#_g115104_|) - (cons (cons 'id |[1]#_g115105_|) '())))) + (##unchecked-structure-set! __obj115106 __tmp115206 '17 '#f '#f)) + (let ((__tmp115209 + (cons (cons 'e |[1]#_g115210_|) + (cons (cons 'id |[1]#_g115211_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115000 __tmp115103 '18 '#f '#f)) + (##unchecked-structure-set! __obj115106 __tmp115209 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115106 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115106 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115000 '() '20 '#f '#f)) - __obj115000)) + (##unchecked-structure-set! __obj115106 '() '20 '#f '#f)) + __obj115106)) (define |[:0:]#__core-special-form| - (let ((__obj115001 + (let ((__obj115107 (let () (declare (not safe)) (##structure @@ -652,7 +652,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115001 + __obj115107 'gerbil/runtime/eval#__core-special-form::t '1 '#f @@ -660,391 +660,391 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj115001 + __obj115107 '__core-special-form '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj115107 '() '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '(e id) '6 '#f '#f)) - (let ((__tmp115106 (cons |[1]#_g115087_| '()))) + (##unchecked-structure-set! __obj115107 '(e id) '6 '#f '#f)) + (let ((__tmp115212 (cons |[1]#_g115193_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115106 '3 '#f '#f)) + (##unchecked-structure-set! __obj115107 __tmp115212 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj115107 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj115107 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj115107 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '#f '11 '#f '#f)) - (let ((__tmp115107 |[1]#_g115108_|)) + (##unchecked-structure-set! __obj115107 '#f '11 '#f '#f)) + (let ((__tmp115213 |[1]#_g115214_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115107 '12 '#f '#f)) - (let ((__tmp115109 |[1]#_g115110_|)) + (##unchecked-structure-set! __obj115107 __tmp115213 '12 '#f '#f)) + (let ((__tmp115215 |[1]#_g115216_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115109 '13 '#f '#f)) - (let ((__tmp115111 |[1]#_g115112_|)) + (##unchecked-structure-set! __obj115107 __tmp115215 '13 '#f '#f)) + (let ((__tmp115217 |[1]#_g115218_|)) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115111 '14 '#f '#f)) - (let ((__tmp115113 - (cons (cons 'e |[1]#_g115114_|) - (cons (cons 'id |[1]#_g115115_|) '())))) + (##unchecked-structure-set! __obj115107 __tmp115217 '14 '#f '#f)) + (let ((__tmp115219 + (cons (cons 'e |[1]#_g115220_|) + (cons (cons 'id |[1]#_g115221_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115113 '15 '#f '#f)) - (let ((__tmp115116 - (cons (cons 'e |[1]#_g115117_|) - (cons (cons 'id |[1]#_g115118_|) '())))) + (##unchecked-structure-set! __obj115107 __tmp115219 '15 '#f '#f)) + (let ((__tmp115222 + (cons (cons 'e |[1]#_g115223_|) + (cons (cons 'id |[1]#_g115224_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115116 '16 '#f '#f)) - (let ((__tmp115119 - (cons (cons 'e |[1]#_g115120_|) - (cons (cons 'id |[1]#_g115121_|) '())))) + (##unchecked-structure-set! __obj115107 __tmp115222 '16 '#f '#f)) + (let ((__tmp115225 + (cons (cons 'e |[1]#_g115226_|) + (cons (cons 'id |[1]#_g115227_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115119 '17 '#f '#f)) - (let ((__tmp115122 - (cons (cons 'e |[1]#_g115123_|) - (cons (cons 'id |[1]#_g115124_|) '())))) + (##unchecked-structure-set! __obj115107 __tmp115225 '17 '#f '#f)) + (let ((__tmp115228 + (cons (cons 'e |[1]#_g115229_|) + (cons (cons 'id |[1]#_g115230_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj115001 __tmp115122 '18 '#f '#f)) + (##unchecked-structure-set! __obj115107 __tmp115228 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj115107 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj115107 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj115001 '() '20 '#f '#f)) - __obj115001)) + (##unchecked-structure-set! __obj115107 '() '20 '#f '#f)) + __obj115107)) (define |[:0:]#defcore-forms| - (lambda (_%stx112543%_) - (letrec ((_%generate112546%_ - (lambda (_%id112910%_ _%compile112912%_ _%make112913%_) - (let* ((_%g112915112934%_ - (lambda (_%g112916112930%_) + (lambda (_%stx112649%_) + (letrec ((_%generate112652%_ + (lambda (_%id113016%_ _%compile113018%_ _%make113019%_) + (let* ((_%g113021113040%_ + (lambda (_%g113022113036%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112916112930%_))) - (_%g112914112993%_ - (lambda (_%g112916112938%_) - (if (gx#stx-pair? _%g112916112938%_) - (let ((_%e112920112941%_ - (gx#syntax-e _%g112916112938%_))) - (let ((_%hd112921112945%_ + _%g113022113036%_))) + (_%g113020113099%_ + (lambda (_%g113022113044%_) + (if (gx#stx-pair? _%g113022113044%_) + (let ((_%e113026113047%_ + (gx#syntax-e _%g113022113044%_))) + (let ((_%hd113027113051%_ (let () (declare (not safe)) - (##car _%e112920112941%_))) - (_%tl112922112948%_ + (##car _%e113026113047%_))) + (_%tl113028113054%_ (let () (declare (not safe)) - (##cdr _%e112920112941%_)))) - (if (gx#stx-pair? _%tl112922112948%_) - (let ((_%e112923112951%_ + (##cdr _%e113026113047%_)))) + (if (gx#stx-pair? _%tl113028113054%_) + (let ((_%e113029113057%_ (gx#syntax-e - _%tl112922112948%_))) - (let ((_%hd112924112955%_ + _%tl113028113054%_))) + (let ((_%hd113030113061%_ (let () (declare (not safe)) - (##car _%e112923112951%_))) - (_%tl112925112958%_ + (##car _%e113029113057%_))) + (_%tl113031113064%_ (let () (declare (not safe)) - (##cdr _%e112923112951%_)))) + (##cdr _%e113029113057%_)))) (if (gx#stx-pair? - _%tl112925112958%_) - (let ((_%e112926112961%_ + _%tl113031113064%_) + (let ((_%e113032113067%_ (gx#syntax-e - _%tl112925112958%_))) - (let ((_%hd112927112965%_ + _%tl113031113064%_))) + (let ((_%hd113033113071%_ (let () (declare (not safe)) - (##car _%e112926112961%_))) - (_%tl112928112968%_ + (##car _%e113032113067%_))) + (_%tl113034113074%_ (let () (declare (not safe)) - (##cdr _%e112926112961%_)))) + (##cdr _%e113032113067%_)))) (if (gx#stx-null? - _%tl112928112968%_) - ((lambda (_%L112971%_ + _%tl113034113074%_) + ((lambda (_%L113077%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L112973%_ - _%L112974%_) + _%L113079%_ + _%L113080%_) (cons (gx#datum->syntax '#f '__core-bind-syntax!) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L112974%_ '())) - (cons _%L112973%_ (cons _%L112971%_ '()))))) - _%hd112927112965%_ - _%hd112924112955%_ - _%hd112921112945%_) - (_%g112915112934%_ _%g112916112938%_)))) + (cons _%L113080%_ '())) + (cons _%L113079%_ (cons _%L113077%_ '()))))) + _%hd113033113071%_ + _%hd113030113061%_ + _%hd113027113051%_) + (_%g113021113040%_ _%g113022113044%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g112915112934%_ - _%g112916112938%_)))) - (_%g112915112934%_ - _%g112916112938%_)))) - (_%g112915112934%_ _%g112916112938%_))))) - (_%g112914112993%_ - (list _%id112910%_ + (_%g113021113040%_ + _%g113022113044%_)))) + (_%g113021113040%_ + _%g113022113044%_)))) + (_%g113021113040%_ _%g113022113044%_))))) + (_%g113020113099%_ + (list _%id113016%_ (gx#stx-identifier - _%id112910%_ + _%id113016%_ '"__" - _%compile112912%_) - _%make112913%_)))))) - (let* ((_%g112549112569%_ - (lambda (_%g112550112565%_) + _%compile113018%_) + _%make113019%_)))))) + (let* ((_%g112655112675%_ + (lambda (_%g112656112671%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g112550112565%_))) - (_%g112548112906%_ - (lambda (_%g112550112573%_) - (if (gx#stx-pair? _%g112550112573%_) - (let ((_%e112552112576%_ - (gx#syntax-e _%g112550112573%_))) - (let ((_%hd112553112580%_ + _%g112656112671%_))) + (_%g112654113012%_ + (lambda (_%g112656112679%_) + (if (gx#stx-pair? _%g112656112679%_) + (let ((_%e112658112682%_ + (gx#syntax-e _%g112656112679%_))) + (let ((_%hd112659112686%_ (let () (declare (not safe)) - (##car _%e112552112576%_))) - (_%tl112554112583%_ + (##car _%e112658112682%_))) + (_%tl112660112689%_ (let () (declare (not safe)) - (##cdr _%e112552112576%_)))) - (if (gx#stx-pair/null? _%tl112554112583%_) - (let ((_g115125_ + (##cdr _%e112658112682%_)))) + (if (gx#stx-pair/null? _%tl112660112689%_) + (let ((_g115231_ (gx#syntax-split-splice - _%tl112554112583%_ + _%tl112660112689%_ '0))) (begin - (let ((_g115126_ + (let ((_g115232_ (let () (declare (not safe)) - (if (##values? _g115125_) - (##vector-length _g115125_) + (if (##values? _g115231_) + (##values-length _g115231_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g115126_ 2))) + (##fx= _g115232_ 2))) (error "Context expects 2 values" - _g115126_))) - (let ((_%target112555112586%_ + _g115232_))) + (let ((_%target112661112692%_ (let () (declare (not safe)) - (##vector-ref _g115125_ 0))) - (_%tl112557112589%_ + (##values-ref _g115231_ 0))) + (_%tl112663112695%_ (let () (declare (not safe)) - (##vector-ref _g115125_ 1)))) - (if (gx#stx-null? _%tl112557112589%_) - (letrec ((_%loop112558112592%_ - (lambda (_%hd112556112596%_ - _%form112562112599%_) + (##values-ref _g115231_ 1)))) + (if (gx#stx-null? _%tl112663112695%_) + (letrec ((_%loop112664112698%_ + (lambda (_%hd112662112702%_ + _%form112668112705%_) (if (gx#stx-pair? - _%hd112556112596%_) - (let ((_%e112559112602%_ + _%hd112662112702%_) + (let ((_%e112665112708%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%hd112556112596%_))) - (let ((_%lp-hd112560112606%_ + (gx#syntax-e _%hd112662112702%_))) + (let ((_%lp-hd112666112712%_ (let () (declare (not safe)) - (##car _%e112559112602%_))) - (_%lp-tl112561112609%_ + (##car _%e112665112708%_))) + (_%lp-tl112667112715%_ (let () (declare (not safe)) - (##cdr _%e112559112602%_)))) - (_%loop112558112592%_ - _%lp-tl112561112609%_ - (cons _%lp-hd112560112606%_ _%form112562112599%_)))) - (let ((_%form112563112612%_ (reverse _%form112562112599%_))) - ((lambda (_%L112616%_) - (let _%lp112634%_ ((_%rest112637%_ - (let ((__tmp115127 - (lambda (_%g112897112900%_ - _%g112898112903%_) - (cons _%g112897112900%_ - _%g112898112903%_)))) + (##cdr _%e112665112708%_)))) + (_%loop112664112698%_ + _%lp-tl112667112715%_ + (cons _%lp-hd112666112712%_ _%form112668112705%_)))) + (let ((_%form112669112718%_ (reverse _%form112668112705%_))) + ((lambda (_%L112722%_) + (let _%lp112740%_ ((_%rest112743%_ + (let ((__tmp115233 + (lambda (_%g113003113006%_ + _%g113004113009%_) + (cons _%g113003113006%_ + _%g113004113009%_)))) (declare (not safe)) (__foldr1 - __tmp115127 + __tmp115233 '() - _%L112616%_))) - (_%body112639%_ '())) - (let* ((_%__stx114905114906%_ _%rest112637%_) - (_%g112644112691%_ + _%L112722%_))) + (_%body112745%_ '())) + (let* ((_%__stx115011115012%_ _%rest112743%_) + (_%g112750112797%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx114905114906%_)))) - (let ((_%__kont114908114909%_ - (lambda (_%L112872%_ _%L112874%_ _%L112875%_) - (_%lp112634%_ - _%L112872%_ - (cons (_%generate112546%_ - _%L112875%_ - _%L112874%_ + _%__stx115011115012%_)))) + (let ((_%__kont115014115015%_ + (lambda (_%L112978%_ _%L112980%_ _%L112981%_) + (_%lp112740%_ + _%L112978%_ + (cons (_%generate112652%_ + _%L112981%_ + _%L112980%_ (gx#datum->syntax '#f 'make-__core-expression)) - _%body112639%_)))) - (_%__kont114910114911%_ - (lambda (_%L112799%_ _%L112801%_ _%L112802%_) - (_%lp112634%_ - _%L112799%_ - (cons (_%generate112546%_ - _%L112802%_ - _%L112801%_ + _%body112745%_)))) + (_%__kont115016115017%_ + (lambda (_%L112905%_ _%L112907%_ _%L112908%_) + (_%lp112740%_ + _%L112905%_ + (cons (_%generate112652%_ + _%L112908%_ + _%L112907%_ (gx#datum->syntax '#f 'make-__core-special-form)) - _%body112639%_)))) - (_%__kont114912114913%_ - (lambda (_%L112729%_ _%L112731%_) - (_%lp112634%_ - _%L112729%_ - (cons (_%generate112546%_ - _%L112731%_ + _%body112745%_)))) + (_%__kont115018115019%_ + (lambda (_%L112835%_ _%L112837%_) + (_%lp112740%_ + _%L112835%_ + (cons (_%generate112652%_ + _%L112837%_ (gx#datum->syntax '#f 'compile-error) (gx#datum->syntax '#f 'make-__core-form)) - _%body112639%_)))) - (_%__kont114914114915%_ + _%body112745%_)))) + (_%__kont115020115021%_ (lambda () - (cons 'begin (reverse _%body112639%_))))) - (let ((_%g112643112702%_ + (cons 'begin (reverse _%body112745%_))))) + (let ((_%g112749112808%_ (lambda () - (if (gx#stx-null? _%__stx114905114906%_) - (_%__kont114914114915%_) + (if (gx#stx-null? _%__stx115011115012%_) + (_%__kont115020115021%_) (let () (declare (not safe)) - (_%g112644112691%_)))))) - (if (gx#stx-pair? _%__stx114905114906%_) - (let ((_%e112649112828%_ - (gx#syntax-e _%__stx114905114906%_))) - (let ((_%tl112651112835%_ + (_%g112750112797%_)))))) + (if (gx#stx-pair? _%__stx115011115012%_) + (let ((_%e112755112934%_ + (gx#syntax-e _%__stx115011115012%_))) + (let ((_%tl112757112941%_ (let () (declare (not safe)) - (##cdr _%e112649112828%_))) - (_%hd112650112832%_ + (##cdr _%e112755112934%_))) + (_%hd112756112938%_ (let () (declare (not safe)) - (##car _%e112649112828%_)))) - (if (gx#stx-pair? _%hd112650112832%_) - (let ((_%e112652112838%_ + (##car _%e112755112934%_)))) + (if (gx#stx-pair? _%hd112756112938%_) + (let ((_%e112758112944%_ (gx#syntax-e - _%hd112650112832%_))) - (let ((_%tl112654112845%_ + _%hd112756112938%_))) + (let ((_%tl112760112951%_ (let () (declare (not safe)) - (##cdr _%e112652112838%_))) - (_%hd112653112842%_ + (##cdr _%e112758112944%_))) + (_%hd112759112948%_ (let () (declare (not safe)) - (##car _%e112652112838%_)))) + (##car _%e112758112944%_)))) (if (gx#stx-pair? - _%tl112654112845%_) - (let ((_%e112655112848%_ + _%tl112760112951%_) + (let ((_%e112761112954%_ (gx#syntax-e - _%tl112654112845%_))) - (let ((_%tl112657112855%_ + _%tl112760112951%_))) + (let ((_%tl112763112961%_ (let () (declare (not safe)) - (##cdr _%e112655112848%_))) - (_%hd112656112852%_ + (##cdr _%e112761112954%_))) + (_%hd112762112958%_ (let () (declare (not safe)) - (##car _%e112655112848%_)))) + (##car _%e112761112954%_)))) (if (gx#stx-datum? - _%hd112656112852%_) - (let ((_%e112658112858%_ + _%hd112762112958%_) + (let ((_%e112764112964%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#stx-e _%hd112656112852%_))) - (if (equal? _%e112658112858%_ 'expr:) - (if (gx#stx-pair? _%tl112657112855%_) - (let ((_%e112659112862%_ - (gx#syntax-e _%tl112657112855%_))) - (let ((_%tl112661112869%_ + (gx#stx-e _%hd112762112958%_))) + (if (equal? _%e112764112964%_ 'expr:) + (if (gx#stx-pair? _%tl112763112961%_) + (let ((_%e112765112968%_ + (gx#syntax-e _%tl112763112961%_))) + (let ((_%tl112767112975%_ (let () (declare (not safe)) - (##cdr _%e112659112862%_))) - (_%hd112660112866%_ + (##cdr _%e112765112968%_))) + (_%hd112766112972%_ (let () (declare (not safe)) - (##car _%e112659112862%_)))) - (if (gx#stx-null? _%tl112661112869%_) - (_%__kont114908114909%_ - _%tl112651112835%_ - _%hd112660112866%_ - _%hd112653112842%_) + (##car _%e112765112968%_)))) + (if (gx#stx-null? _%tl112767112975%_) + (_%__kont115014115015%_ + _%tl112757112941%_ + _%hd112766112972%_ + _%hd112759112948%_) (let () (declare (not safe)) - (_%g112644112691%_))))) - (let () (declare (not safe)) (_%g112644112691%_))) - (if (equal? _%e112658112858%_ 'special:) - (if (gx#stx-pair? _%tl112657112855%_) - (let ((_%e112675112789%_ - (gx#syntax-e _%tl112657112855%_))) - (let ((_%tl112677112796%_ + (_%g112750112797%_))))) + (let () (declare (not safe)) (_%g112750112797%_))) + (if (equal? _%e112764112964%_ 'special:) + (if (gx#stx-pair? _%tl112763112961%_) + (let ((_%e112781112895%_ + (gx#syntax-e _%tl112763112961%_))) + (let ((_%tl112783112902%_ (let () (declare (not safe)) - (##cdr _%e112675112789%_))) - (_%hd112676112793%_ + (##cdr _%e112781112895%_))) + (_%hd112782112899%_ (let () (declare (not safe)) - (##car _%e112675112789%_)))) - (if (gx#stx-null? _%tl112677112796%_) - (_%__kont114910114911%_ - _%tl112651112835%_ - _%hd112676112793%_ - _%hd112653112842%_) + (##car _%e112781112895%_)))) + (if (gx#stx-null? _%tl112783112902%_) + (_%__kont115016115017%_ + _%tl112757112941%_ + _%hd112782112899%_ + _%hd112759112948%_) (let () (declare (not safe)) - (_%g112644112691%_))))) + (_%g112750112797%_))))) (let () (declare (not safe)) - (_%g112644112691%_))) + (_%g112750112797%_))) (let () (declare (not safe)) - (_%g112644112691%_))))) - (let () (declare (not safe)) (_%g112644112691%_))))) + (_%g112750112797%_))))) + (let () (declare (not safe)) (_%g112750112797%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl112654112845%_) - (_%__kont114912114913%_ - _%tl112651112835%_ - _%hd112653112842%_) + _%tl112760112951%_) + (_%__kont115018115019%_ + _%tl112757112941%_ + _%hd112759112948%_) (let () (declare (not safe)) - (_%g112644112691%_)))))) + (_%g112750112797%_)))))) (let () (declare (not safe)) - (_%g112644112691%_))))) + (_%g112750112797%_))))) (let () (declare (not safe)) - (_%g112643112702%_)))))))) - _%form112563112612%_)))))) + (_%g112749112808%_)))))))) + _%form112669112718%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop112558112592%_ - _%target112555112586%_ + (_%loop112664112698%_ + _%target112661112692%_ '())) - (_%g112549112569%_ - _%g112550112573%_))))) - (_%g112549112569%_ _%g112550112573%_)))) - (_%g112549112569%_ _%g112550112573%_))))) - (_%g112548112906%_ _%stx112543%_))))))) + (_%g112655112675%_ + _%g112656112679%_))))) + (_%g112655112675%_ _%g112656112679%_)))) + (_%g112655112675%_ _%g112656112679%_))))) + (_%g112654113012%_ _%stx112649%_))))))) diff --git a/src/bootstrap/gerbil/runtime/gambit~0.scm b/src/bootstrap/gerbil/runtime/gambit~0.scm index 5dc14aab8..557e3d71d 100644 --- a/src/bootstrap/gerbil/runtime/gambit~0.scm +++ b/src/bootstrap/gerbil/runtime/gambit~0.scm @@ -1,4 +1,4 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/gambit::timestamp 1733870072) + (define gerbil/runtime/gambit::timestamp 1734131744) (let () (declare (not safe)) (##void))) diff --git a/src/bootstrap/gerbil/runtime/hash.ssi b/src/bootstrap/gerbil/runtime/hash.ssi index 232733699..e2ce4ee1b 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssi +++ b/src/bootstrap/gerbil/runtime/hash.ssi @@ -167,56 +167,56 @@ namespace: #f (%#define-runtime is-hash-table? is-hash-table?) (%#define-syntax deflocked-hash-method |[:0:]#deflocked-hash-method|) (%#define-runtime - _%locked-hash-table::ref105407%_ - _%locked-hash-table::ref105406%_) + _%locked-hash-table::ref105513%_ + _%locked-hash-table::ref105512%_) (%#define-runtime - _%locked-hash-table::set!105410%_ - _%locked-hash-table::set!105409%_) + _%locked-hash-table::set!105516%_ + _%locked-hash-table::set!105515%_) (%#define-runtime - _%locked-hash-table::update!105413%_ - _%locked-hash-table::update!105412%_) + _%locked-hash-table::update!105519%_ + _%locked-hash-table::update!105518%_) (%#define-runtime - _%locked-hash-table::delete!105416%_ - _%locked-hash-table::delete!105415%_) + _%locked-hash-table::delete!105522%_ + _%locked-hash-table::delete!105521%_) (%#define-runtime - _%locked-hash-table::for-each105419%_ - _%locked-hash-table::for-each105418%_) + _%locked-hash-table::for-each105525%_ + _%locked-hash-table::for-each105524%_) (%#define-runtime - _%locked-hash-table::length105422%_ - _%locked-hash-table::length105421%_) + _%locked-hash-table::length105528%_ + _%locked-hash-table::length105527%_) (%#define-runtime - _%locked-hash-table::copy105425%_ - _%locked-hash-table::copy105424%_) + _%locked-hash-table::copy105531%_ + _%locked-hash-table::copy105530%_) (%#define-runtime - _%locked-hash-table::clear!105428%_ - _%locked-hash-table::clear!105427%_) + _%locked-hash-table::clear!105534%_ + _%locked-hash-table::clear!105533%_) (%#define-syntax defchecked-hash-method |[:0:]#defchecked-hash-method|) (%#define-runtime - _%checked-hash-table::ref105642%_ - _%checked-hash-table::ref105641%_) + _%checked-hash-table::ref105748%_ + _%checked-hash-table::ref105747%_) (%#define-runtime - _%checked-hash-table::set!105645%_ - _%checked-hash-table::set!105644%_) + _%checked-hash-table::set!105751%_ + _%checked-hash-table::set!105750%_) (%#define-runtime - _%checked-hash-table::update!105648%_ - _%checked-hash-table::update!105647%_) + _%checked-hash-table::update!105754%_ + _%checked-hash-table::update!105753%_) (%#define-runtime - _%checked-hash-table::delete!105651%_ - _%checked-hash-table::delete!105650%_) + _%checked-hash-table::delete!105757%_ + _%checked-hash-table::delete!105756%_) (%#define-runtime - _%checked-hash-table::for-each105654%_ - _%checked-hash-table::for-each105653%_) + _%checked-hash-table::for-each105760%_ + _%checked-hash-table::for-each105759%_) (%#define-runtime - _%checked-hash-table::length105657%_ - _%checked-hash-table::length105656%_) + _%checked-hash-table::length105763%_ + _%checked-hash-table::length105762%_) (%#define-runtime - _%checked-hash-table::copy105660%_ - _%checked-hash-table::copy105659%_) + _%checked-hash-table::copy105766%_ + _%checked-hash-table::copy105765%_) (%#define-runtime - _%checked-hash-table::clear!105663%_ - _%checked-hash-table::clear!105662%_) + _%checked-hash-table::clear!105769%_ + _%checked-hash-table::clear!105768%_) (%#define-runtime make-generic-hash-table make-generic-hash-table) (%#begin (%#define-runtime make-hash-table__% make-hash-table__%) (%#define-runtime make-hash-table__@ make-hash-table__@) diff --git a/src/bootstrap/gerbil/runtime/hash.ssxi.ss b/src/bootstrap/gerbil/runtime/hash.ssxi.ss index 437689f4e..36e428cff 100644 --- a/src/bootstrap/gerbil/runtime/hash.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/hash.ssxi.ss @@ -706,14 +706,14 @@ package: gerbil/runtime #t #f #f - ((set! . _%locked-hash-table::set!105409%_) - (ref . _%locked-hash-table::ref105406%_) - (for-each . _%locked-hash-table::for-each105418%_) - (clear! . _%locked-hash-table::clear!105427%_) - (update! . _%locked-hash-table::update!105412%_) - (delete! . _%locked-hash-table::delete!105415%_) - (copy . _%locked-hash-table::copy105424%_) - (length . _%locked-hash-table::length105421%_)))) + ((set! . _%locked-hash-table::set!105515%_) + (delete! . _%locked-hash-table::delete!105521%_) + (length . _%locked-hash-table::length105527%_) + (clear! . _%locked-hash-table::clear!105533%_) + (update! . _%locked-hash-table::update!105518%_) + (for-each . _%locked-hash-table::for-each105524%_) + (copy . _%locked-hash-table::copy105530%_) + (ref . _%locked-hash-table::ref105512%_)))) (declare-type locked-hash-table::t (optimizer-resolve-class '(typedecl locked-hash-table::t) 'class::t)) @@ -755,14 +755,14 @@ package: gerbil/runtime #t #f #f - ((set! . _%checked-hash-table::set!105644%_) - (ref . _%checked-hash-table::ref105641%_) - (for-each . _%checked-hash-table::for-each105653%_) - (clear! . _%checked-hash-table::clear!105662%_) - (update! . _%checked-hash-table::update!105647%_) - (delete! . _%checked-hash-table::delete!105650%_) - (copy . _%checked-hash-table::copy105659%_) - (length . _%checked-hash-table::length105656%_)))) + ((set! . _%checked-hash-table::set!105750%_) + (delete! . _%checked-hash-table::delete!105756%_) + (length . _%checked-hash-table::length105762%_) + (clear! . _%checked-hash-table::clear!105768%_) + (update! . _%checked-hash-table::update!105753%_) + (for-each . _%checked-hash-table::for-each105759%_) + (copy . _%checked-hash-table::copy105765%_) + (ref . _%checked-hash-table::ref105747%_)))) (declare-type checked-hash-table::t (optimizer-resolve-class '(typedecl checked-hash-table::t) 'class::t)) @@ -901,7 +901,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::ref105406%_ + _%locked-hash-table::ref105512%_ (@lambda 3 #f signature: @@ -916,7 +916,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::set!105409%_ + _%locked-hash-table::set!105515%_ (@lambda 3 #f signature: @@ -931,7 +931,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::update!105412%_ + _%locked-hash-table::update!105518%_ (@lambda 4 #f signature: @@ -946,7 +946,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::delete!105415%_ + _%locked-hash-table::delete!105521%_ (@lambda 2 #f signature: @@ -961,7 +961,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::for-each105418%_ + _%locked-hash-table::for-each105524%_ (@lambda 2 #f signature: @@ -976,7 +976,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::length105421%_ + _%locked-hash-table::length105527%_ (@lambda 1 #f signature: @@ -991,7 +991,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::copy105424%_ + _%locked-hash-table::copy105530%_ (@lambda 1 #f signature: @@ -1006,7 +1006,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%locked-hash-table::clear!105427%_ + _%locked-hash-table::clear!105533%_ (@lambda 1 #f signature: @@ -1021,7 +1021,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::ref105641%_ + _%checked-hash-table::ref105747%_ (@lambda 3 #f signature: @@ -1036,7 +1036,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::set!105644%_ + _%checked-hash-table::set!105750%_ (@lambda 3 #f signature: @@ -1051,7 +1051,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::update!105647%_ + _%checked-hash-table::update!105753%_ (@lambda 4 #f signature: @@ -1066,7 +1066,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::delete!105650%_ + _%checked-hash-table::delete!105756%_ (@lambda 2 #f signature: @@ -1081,7 +1081,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::for-each105653%_ + _%checked-hash-table::for-each105759%_ (@lambda 2 #f signature: @@ -1096,7 +1096,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::length105656%_ + _%checked-hash-table::length105762%_ (@lambda 1 #f signature: @@ -1111,7 +1111,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::copy105659%_ + _%checked-hash-table::copy105765%_ (@lambda 1 #f signature: @@ -1126,7 +1126,7 @@ package: gerbil/runtime origin: gerbil/runtime/hash))) (declare-type - _%checked-hash-table::clear!105662%_ + _%checked-hash-table::clear!105768%_ (@lambda 1 #f signature: diff --git a/src/bootstrap/gerbil/runtime/hash~0.scm b/src/bootstrap/gerbil/runtime/hash~0.scm index 5956fdb90..12f70b00d 100644 --- a/src/bootstrap/gerbil/runtime/hash~0.scm +++ b/src/bootstrap/gerbil/runtime/hash~0.scm @@ -1,14 +1,14 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/hash::timestamp 1733870073) + (define gerbil/runtime/hash::timestamp 1734131746) (begin (define UnboundKeyError::t - (let ((__tmp110093 (list Error::t))) + (let ((__tmp110199 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#UnboundKeyError::t 'UnboundKeyError - __tmp110093 + __tmp110199 '() '() ':init!))) @@ -17,8 +17,8 @@ (declare (not safe)) (__make-class-predicate UnboundKeyError::t))) (define make-UnboundKeyError - (lambda _%$args110073%_ - (apply make-instance UnboundKeyError::t _%$args110073%_))) + (lambda _%$args110179%_ + (apply make-instance UnboundKeyError::t _%$args110179%_))) (define UnboundKeyError-message (let () (declare (not safe)) @@ -96,32 +96,32 @@ UnboundKeyError:::init! '#f)) (define raise-unbound-key-error - (lambda (_%where109947%_ _%message109948%_ . _%irritants109949%_) - (let ((__tmp110094 - (let ((__obj110087 + (lambda (_%where110053%_ _%message110054%_ . _%irritants110055%_) + (let ((__tmp110200 + (let ((__obj110193 (let () (declare (not safe)) (##structure UnboundKeyError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (UnboundKeyError:::init! - __obj110087 - _%message109948%_ + __obj110193 + _%message110054%_ 'where: - _%where109947%_ + _%where110053%_ 'irritants: - _%irritants109949%_)) - __obj110087))) + _%irritants110055%_)) + __obj110193))) (declare (not safe)) - (raise __tmp110094)))) + (raise __tmp110200)))) (define unbound-key-error? UnboundKeyError?) (define HashTable::t - (let ((__tmp110095 (cons interface-instance::t '()))) + (let ((__tmp110201 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#HashTable::t 'HashTable - __tmp110095 + __tmp110201 '(clear! copy delete! for-each length ref set! update!) '((final: . #t) (struct: . #t)) '#f))) @@ -133,143 +133,143 @@ HashTable::t '(clear! copy delete! for-each length ref set! update!)))) (define make-HashTable - (lambda (_%obj109945%_) + (lambda (_%obj110051%_) (let () (declare (not safe)) - (cast HashTable::interface _%obj109945%_)))) + (cast HashTable::interface _%obj110051%_)))) (define try-HashTable - (lambda (_%obj109943%_) + (lambda (_%obj110049%_) (let () (declare (not safe)) - (try-cast HashTable::interface _%obj109943%_)))) + (try-cast HashTable::interface _%obj110049%_)))) (define HashTable? - (lambda (_%obj109941%_) - (let ((__tmp110096 + (lambda (_%obj110047%_) + (let ((__tmp110202 (let () (declare (not safe)) (##type-id HashTable::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109941%_ __tmp110096)))) + (##structure-direct-instance-of? _%obj110047%_ __tmp110202)))) (define is-HashTable? - (lambda (_%obj109939%_) + (lambda (_%obj110045%_) (if (let () (declare (not safe)) - (satisfies? HashTable::interface _%obj109939%_)) + (satisfies? HashTable::interface _%obj110045%_)) '#t '#f))) (define HashTable-clear! - (lambda (_%self109923%_) - (let* ((_%self109928%_ - (let ((_%$obj109925%_ _%self109923%_)) + (lambda (_%self110029%_) + (let* ((_%self110034%_ + (let ((_%$obj110031%_ _%self110029%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109925%_)) + (##structure? _%$obj110031%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109925%_))) + (##structure-type _%$obj110031%_))) '#t) - _%$obj109925%_ + _%$obj110031%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109925%_))))) - (_%self109930%_ _%self109928%_)) - (&HashTable-clear! _%self109930%_)))) + (cast HashTable::interface _%$obj110031%_))))) + (_%self110036%_ _%self110034%_)) + (&HashTable-clear! _%self110036%_)))) (define &HashTable-clear! - (lambda (_%self109908%_) - (let ((_%self109910%_ _%self109908%_)) + (lambda (_%self110014%_) + (let ((_%self110016%_ _%self110014%_)) (declare (not safe)) - (let ((_%obj109920%_ - (##unchecked-structure-ref _%self109910%_ '1 '#f 'clear!)) - (_%f109921%_ - (##unchecked-structure-ref _%self109910%_ '2 '#f 'clear!))) - (_%f109921%_ _%obj109920%_))))) + (let ((_%obj110026%_ + (##unchecked-structure-ref _%self110016%_ '1 '#f 'clear!)) + (_%f110027%_ + (##unchecked-structure-ref _%self110016%_ '2 '#f 'clear!))) + (_%f110027%_ _%obj110026%_))))) (define HashTable-copy - (lambda (_%self109892%_) - (let* ((_%self109897%_ - (let ((_%$obj109894%_ _%self109892%_)) + (lambda (_%self109998%_) + (let* ((_%self110003%_ + (let ((_%$obj110000%_ _%self109998%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109894%_)) + (##structure? _%$obj110000%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109894%_))) + (##structure-type _%$obj110000%_))) '#t) - _%$obj109894%_ + _%$obj110000%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109894%_))))) - (_%self109899%_ _%self109897%_)) - (__HashTable-copy _%self109899%_)))) + (cast HashTable::interface _%$obj110000%_))))) + (_%self110005%_ _%self110003%_)) + (__HashTable-copy _%self110005%_)))) (define __HashTable-copy - (lambda (_%self109879%_) - (let* ((_%self109881%_ _%self109879%_) - (_%$obj109889%_ (&HashTable-copy _%self109881%_))) - (if (and (let () (declare (not safe)) (##structure? _%$obj109889%_)) + (lambda (_%self109985%_) + (let* ((_%self109987%_ _%self109985%_) + (_%$obj109995%_ (&HashTable-copy _%self109987%_))) + (if (and (let () (declare (not safe)) (##structure? _%$obj109995%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109889%_))) + (##structure-type _%$obj109995%_))) '#t) - _%$obj109889%_ + _%$obj109995%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109889%_)))))) + (cast HashTable::interface _%$obj109995%_)))))) (define &HashTable-copy - (lambda (_%self109864%_) - (let ((_%self109866%_ _%self109864%_)) + (lambda (_%self109970%_) + (let ((_%self109972%_ _%self109970%_)) (declare (not safe)) - (let ((_%obj109876%_ - (##unchecked-structure-ref _%self109866%_ '1 '#f 'copy)) - (_%f109877%_ - (##unchecked-structure-ref _%self109866%_ '3 '#f 'copy))) - (_%f109877%_ _%obj109876%_))))) + (let ((_%obj109982%_ + (##unchecked-structure-ref _%self109972%_ '1 '#f 'copy)) + (_%f109983%_ + (##unchecked-structure-ref _%self109972%_ '3 '#f 'copy))) + (_%f109983%_ _%obj109982%_))))) (define HashTable-delete! - (lambda (_%self109847%_ _%key109848%_) - (let* ((_%self109853%_ - (let ((_%$obj109850%_ _%self109847%_)) + (lambda (_%self109953%_ _%key109954%_) + (let* ((_%self109959%_ + (let ((_%$obj109956%_ _%self109953%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109850%_)) + (##structure? _%$obj109956%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109850%_))) + (##structure-type _%$obj109956%_))) '#t) - _%$obj109850%_ + _%$obj109956%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109850%_))))) - (_%self109855%_ _%self109853%_)) - (&HashTable-delete! _%self109855%_ _%key109848%_)))) + (cast HashTable::interface _%$obj109956%_))))) + (_%self109961%_ _%self109959%_)) + (&HashTable-delete! _%self109961%_ _%key109954%_)))) (define &HashTable-delete! - (lambda (_%self109831%_ _%key109832%_) - (let ((_%self109834%_ _%self109831%_)) + (lambda (_%self109937%_ _%key109938%_) + (let ((_%self109940%_ _%self109937%_)) (declare (not safe)) - (let ((_%obj109844%_ - (##unchecked-structure-ref _%self109834%_ '1 '#f 'delete!)) - (_%f109845%_ - (##unchecked-structure-ref _%self109834%_ '4 '#f 'delete!))) - (_%f109845%_ _%obj109844%_ _%key109832%_))))) + (let ((_%obj109950%_ + (##unchecked-structure-ref _%self109940%_ '1 '#f 'delete!)) + (_%f109951%_ + (##unchecked-structure-ref _%self109940%_ '4 '#f 'delete!))) + (_%f109951%_ _%obj109950%_ _%key109938%_))))) (define HashTable-for-each - (lambda (_%self109804%_ _%proc109805%_) - (let* ((_%self109810%_ - (let ((_%$obj109807%_ _%self109804%_)) + (lambda (_%self109910%_ _%proc109911%_) + (let* ((_%self109916%_ + (let ((_%$obj109913%_ _%self109910%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109807%_)) + (##structure? _%$obj109913%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109807%_))) + (##structure-type _%$obj109913%_))) '#t) - _%$obj109807%_ + _%$obj109913%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109807%_))))) - (_%self109812%_ _%self109810%_)) - (if (procedure? _%proc109805%_) - (let ((_%proc109821%_ _%proc109805%_)) - (&HashTable-for-each _%self109812%_ _%proc109821%_)) + (cast HashTable::interface _%$obj109913%_))))) + (_%self109918%_ _%self109916%_)) + (if (procedure? _%proc109911%_) + (let ((_%proc109927%_ _%proc109911%_)) + (&HashTable-for-each _%self109918%_ _%proc109927%_)) (begin (raise-contract-violation-error '"contract violation" @@ -278,127 +278,127 @@ 'contract: 'procedure? 'value: - _%proc109805%_) + _%proc109911%_) '#!void))))) (define &HashTable-for-each - (lambda (_%self109780%_ _%proc109781%_) - (let* ((_%self109783%_ _%self109780%_) (_%proc109790%_ _%proc109781%_)) + (lambda (_%self109886%_ _%proc109887%_) + (let* ((_%self109889%_ _%self109886%_) (_%proc109896%_ _%proc109887%_)) (declare (not safe)) - (let ((_%obj109801%_ - (##unchecked-structure-ref _%self109783%_ '1 '#f 'for-each)) - (_%f109802%_ - (##unchecked-structure-ref _%self109783%_ '5 '#f 'for-each))) - (_%f109802%_ _%obj109801%_ _%proc109790%_))))) + (let ((_%obj109907%_ + (##unchecked-structure-ref _%self109889%_ '1 '#f 'for-each)) + (_%f109908%_ + (##unchecked-structure-ref _%self109889%_ '5 '#f 'for-each))) + (_%f109908%_ _%obj109907%_ _%proc109896%_))))) (define HashTable-length - (lambda (_%self109764%_) - (let* ((_%self109769%_ - (let ((_%$obj109766%_ _%self109764%_)) + (lambda (_%self109870%_) + (let* ((_%self109875%_ + (let ((_%$obj109872%_ _%self109870%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109766%_)) + (##structure? _%$obj109872%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109766%_))) + (##structure-type _%$obj109872%_))) '#t) - _%$obj109766%_ + _%$obj109872%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109766%_))))) - (_%self109771%_ _%self109769%_)) - (__HashTable-length _%self109771%_)))) + (cast HashTable::interface _%$obj109872%_))))) + (_%self109877%_ _%self109875%_)) + (__HashTable-length _%self109877%_)))) (define __HashTable-length - (lambda (_%self109751%_) - (let* ((_%self109753%_ _%self109751%_) - (_%val109761%_ (&HashTable-length _%self109753%_))) - _%val109761%_))) + (lambda (_%self109857%_) + (let* ((_%self109859%_ _%self109857%_) + (_%val109867%_ (&HashTable-length _%self109859%_))) + _%val109867%_))) (define &HashTable-length - (lambda (_%self109736%_) - (let ((_%self109738%_ _%self109736%_)) + (lambda (_%self109842%_) + (let ((_%self109844%_ _%self109842%_)) (declare (not safe)) - (let ((_%obj109748%_ - (##unchecked-structure-ref _%self109738%_ '1 '#f 'length)) - (_%f109749%_ - (##unchecked-structure-ref _%self109738%_ '6 '#f 'length))) - (_%f109749%_ _%obj109748%_))))) + (let ((_%obj109854%_ + (##unchecked-structure-ref _%self109844%_ '1 '#f 'length)) + (_%f109855%_ + (##unchecked-structure-ref _%self109844%_ '6 '#f 'length))) + (_%f109855%_ _%obj109854%_))))) (define HashTable-ref - (lambda (_%self109718%_ _%key109719%_ _%default109720%_) - (let* ((_%self109725%_ - (let ((_%$obj109722%_ _%self109718%_)) + (lambda (_%self109824%_ _%key109825%_ _%default109826%_) + (let* ((_%self109831%_ + (let ((_%$obj109828%_ _%self109824%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109722%_)) + (##structure? _%$obj109828%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109722%_))) + (##structure-type _%$obj109828%_))) '#t) - _%$obj109722%_ + _%$obj109828%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109722%_))))) - (_%self109727%_ _%self109725%_)) - (&HashTable-ref _%self109727%_ _%key109719%_ _%default109720%_)))) + (cast HashTable::interface _%$obj109828%_))))) + (_%self109833%_ _%self109831%_)) + (&HashTable-ref _%self109833%_ _%key109825%_ _%default109826%_)))) (define &HashTable-ref - (lambda (_%self109701%_ _%key109702%_ _%default109703%_) - (let ((_%self109705%_ _%self109701%_)) + (lambda (_%self109807%_ _%key109808%_ _%default109809%_) + (let ((_%self109811%_ _%self109807%_)) (declare (not safe)) - (let ((_%obj109715%_ - (##unchecked-structure-ref _%self109705%_ '1 '#f 'ref)) - (_%f109716%_ - (##unchecked-structure-ref _%self109705%_ '7 '#f 'ref))) - (_%f109716%_ _%obj109715%_ _%key109702%_ _%default109703%_))))) + (let ((_%obj109821%_ + (##unchecked-structure-ref _%self109811%_ '1 '#f 'ref)) + (_%f109822%_ + (##unchecked-structure-ref _%self109811%_ '7 '#f 'ref))) + (_%f109822%_ _%obj109821%_ _%key109808%_ _%default109809%_))))) (define HashTable-set! - (lambda (_%self109683%_ _%key109684%_ _%value109685%_) - (let* ((_%self109690%_ - (let ((_%$obj109687%_ _%self109683%_)) + (lambda (_%self109789%_ _%key109790%_ _%value109791%_) + (let* ((_%self109796%_ + (let ((_%$obj109793%_ _%self109789%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109687%_)) + (##structure? _%$obj109793%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109687%_))) + (##structure-type _%$obj109793%_))) '#t) - _%$obj109687%_ + _%$obj109793%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109687%_))))) - (_%self109692%_ _%self109690%_)) - (&HashTable-set! _%self109692%_ _%key109684%_ _%value109685%_)))) + (cast HashTable::interface _%$obj109793%_))))) + (_%self109798%_ _%self109796%_)) + (&HashTable-set! _%self109798%_ _%key109790%_ _%value109791%_)))) (define &HashTable-set! - (lambda (_%self109666%_ _%key109667%_ _%value109668%_) - (let ((_%self109670%_ _%self109666%_)) + (lambda (_%self109772%_ _%key109773%_ _%value109774%_) + (let ((_%self109776%_ _%self109772%_)) (declare (not safe)) - (let ((_%obj109680%_ - (##unchecked-structure-ref _%self109670%_ '1 '#f 'set!)) - (_%f109681%_ - (##unchecked-structure-ref _%self109670%_ '8 '#f 'set!))) - (_%f109681%_ _%obj109680%_ _%key109667%_ _%value109668%_))))) + (let ((_%obj109786%_ + (##unchecked-structure-ref _%self109776%_ '1 '#f 'set!)) + (_%f109787%_ + (##unchecked-structure-ref _%self109776%_ '8 '#f 'set!))) + (_%f109787%_ _%obj109786%_ _%key109773%_ _%value109774%_))))) (define HashTable-update! - (lambda (_%self109637%_ _%key109638%_ _%proc109639%_ _%default109640%_) - (let* ((_%self109645%_ - (let ((_%$obj109642%_ _%self109637%_)) + (lambda (_%self109743%_ _%key109744%_ _%proc109745%_ _%default109746%_) + (let* ((_%self109751%_ + (let ((_%$obj109748%_ _%self109743%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109642%_)) + (##structure? _%$obj109748%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj109642%_))) + (##structure-type _%$obj109748%_))) '#t) - _%$obj109642%_ + _%$obj109748%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj109642%_))))) - (_%self109647%_ _%self109645%_)) - (if (procedure? _%proc109639%_) - (let ((_%proc109656%_ _%proc109639%_)) + (cast HashTable::interface _%$obj109748%_))))) + (_%self109753%_ _%self109751%_)) + (if (procedure? _%proc109745%_) + (let ((_%proc109762%_ _%proc109745%_)) (&HashTable-update! - _%self109647%_ - _%key109638%_ - _%proc109656%_ - _%default109640%_)) + _%self109753%_ + _%key109744%_ + _%proc109762%_ + _%default109746%_)) (begin (raise-contract-violation-error '"contract violation" @@ -407,28 +407,28 @@ 'contract: 'procedure? 'value: - _%proc109639%_) + _%proc109745%_) '#!void))))) (define &HashTable-update! - (lambda (_%self109609%_ _%key109610%_ _%proc109611%_ _%default109612%_) - (let* ((_%self109614%_ _%self109609%_) (_%proc109621%_ _%proc109611%_)) + (lambda (_%self109715%_ _%key109716%_ _%proc109717%_ _%default109718%_) + (let* ((_%self109720%_ _%self109715%_) (_%proc109727%_ _%proc109717%_)) (declare (not safe)) - (let ((_%obj109632%_ - (##unchecked-structure-ref _%self109614%_ '1 '#f 'update!)) - (_%f109634%_ - (##unchecked-structure-ref _%self109614%_ '9 '#f 'update!))) - (_%f109634%_ - _%obj109632%_ - _%key109610%_ - _%proc109621%_ - _%default109612%_))))) + (let ((_%obj109738%_ + (##unchecked-structure-ref _%self109720%_ '1 '#f 'update!)) + (_%f109740%_ + (##unchecked-structure-ref _%self109720%_ '9 '#f 'update!))) + (_%f109740%_ + _%obj109738%_ + _%key109716%_ + _%proc109727%_ + _%default109718%_))))) (define Locker::t - (let ((__tmp110097 (cons interface-instance::t '()))) + (let ((__tmp110203 (cons interface-instance::t '()))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#Locker::t 'Locker - __tmp110097 + __tmp110203 '(read-lock! read-unlock! write-lock! write-unlock!) '((final: . #t) (struct: . #t)) '#f))) @@ -440,162 +440,162 @@ Locker::t '(read-lock! read-unlock! write-lock! write-unlock!)))) (define make-Locker - (lambda (_%obj109607%_) - (let () (declare (not safe)) (cast Locker::interface _%obj109607%_)))) + (lambda (_%obj109713%_) + (let () (declare (not safe)) (cast Locker::interface _%obj109713%_)))) (define try-Locker - (lambda (_%obj109605%_) + (lambda (_%obj109711%_) (let () (declare (not safe)) - (try-cast Locker::interface _%obj109605%_)))) + (try-cast Locker::interface _%obj109711%_)))) (define Locker? - (lambda (_%obj109603%_) - (let ((__tmp110098 + (lambda (_%obj109709%_) + (let ((__tmp110204 (let () (declare (not safe)) (##type-id Locker::t)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj109603%_ __tmp110098)))) + (##structure-direct-instance-of? _%obj109709%_ __tmp110204)))) (define is-Locker? - (lambda (_%obj109601%_) + (lambda (_%obj109707%_) (if (let () (declare (not safe)) - (satisfies? Locker::interface _%obj109601%_)) + (satisfies? Locker::interface _%obj109707%_)) '#t '#f))) (define Locker-read-lock! - (lambda (_%self109585%_) - (let* ((_%self109590%_ - (let ((_%$obj109587%_ _%self109585%_)) + (lambda (_%self109691%_) + (let* ((_%self109696%_ + (let ((_%$obj109693%_ _%self109691%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109587%_)) + (##structure? _%$obj109693%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109587%_))) + (##structure-type _%$obj109693%_))) '#t) - _%$obj109587%_ + _%$obj109693%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109587%_))))) - (_%self109592%_ _%self109590%_)) - (&Locker-read-lock! _%self109592%_)))) + (cast Locker::interface _%$obj109693%_))))) + (_%self109698%_ _%self109696%_)) + (&Locker-read-lock! _%self109698%_)))) (define &Locker-read-lock! - (lambda (_%self109570%_) - (let ((_%self109572%_ _%self109570%_)) + (lambda (_%self109676%_) + (let ((_%self109678%_ _%self109676%_)) (declare (not safe)) - (let ((_%obj109582%_ - (##unchecked-structure-ref _%self109572%_ '1 '#f 'read-lock!)) - (_%f109583%_ + (let ((_%obj109688%_ + (##unchecked-structure-ref _%self109678%_ '1 '#f 'read-lock!)) + (_%f109689%_ (##unchecked-structure-ref - _%self109572%_ + _%self109678%_ '2 '#f 'read-lock!))) - (_%f109583%_ _%obj109582%_))))) + (_%f109689%_ _%obj109688%_))))) (define Locker-read-unlock! - (lambda (_%self109554%_) - (let* ((_%self109559%_ - (let ((_%$obj109556%_ _%self109554%_)) + (lambda (_%self109660%_) + (let* ((_%self109665%_ + (let ((_%$obj109662%_ _%self109660%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109556%_)) + (##structure? _%$obj109662%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109556%_))) + (##structure-type _%$obj109662%_))) '#t) - _%$obj109556%_ + _%$obj109662%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109556%_))))) - (_%self109561%_ _%self109559%_)) - (&Locker-read-unlock! _%self109561%_)))) + (cast Locker::interface _%$obj109662%_))))) + (_%self109667%_ _%self109665%_)) + (&Locker-read-unlock! _%self109667%_)))) (define &Locker-read-unlock! - (lambda (_%self109539%_) - (let ((_%self109541%_ _%self109539%_)) + (lambda (_%self109645%_) + (let ((_%self109647%_ _%self109645%_)) (declare (not safe)) - (let ((_%obj109551%_ + (let ((_%obj109657%_ (##unchecked-structure-ref - _%self109541%_ + _%self109647%_ '1 '#f 'read-unlock!)) - (_%f109552%_ + (_%f109658%_ (##unchecked-structure-ref - _%self109541%_ + _%self109647%_ '3 '#f 'read-unlock!))) - (_%f109552%_ _%obj109551%_))))) + (_%f109658%_ _%obj109657%_))))) (define Locker-write-lock! - (lambda (_%self109523%_) - (let* ((_%self109528%_ - (let ((_%$obj109525%_ _%self109523%_)) + (lambda (_%self109629%_) + (let* ((_%self109634%_ + (let ((_%$obj109631%_ _%self109629%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109525%_)) + (##structure? _%$obj109631%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109525%_))) + (##structure-type _%$obj109631%_))) '#t) - _%$obj109525%_ + _%$obj109631%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109525%_))))) - (_%self109530%_ _%self109528%_)) - (&Locker-write-lock! _%self109530%_)))) + (cast Locker::interface _%$obj109631%_))))) + (_%self109636%_ _%self109634%_)) + (&Locker-write-lock! _%self109636%_)))) (define &Locker-write-lock! - (lambda (_%self109508%_) - (let ((_%self109510%_ _%self109508%_)) + (lambda (_%self109614%_) + (let ((_%self109616%_ _%self109614%_)) (declare (not safe)) - (let ((_%obj109520%_ + (let ((_%obj109626%_ (##unchecked-structure-ref - _%self109510%_ + _%self109616%_ '1 '#f 'write-lock!)) - (_%f109521%_ + (_%f109627%_ (##unchecked-structure-ref - _%self109510%_ + _%self109616%_ '4 '#f 'write-lock!))) - (_%f109521%_ _%obj109520%_))))) + (_%f109627%_ _%obj109626%_))))) (define Locker-write-unlock! - (lambda (_%self109492%_) - (let* ((_%self109497%_ - (let ((_%$obj109494%_ _%self109492%_)) + (lambda (_%self109598%_) + (let* ((_%self109603%_ + (let ((_%$obj109600%_ _%self109598%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj109494%_)) + (##structure? _%$obj109600%_)) (eq? Locker::t (let () (declare (not safe)) - (##structure-type _%$obj109494%_))) + (##structure-type _%$obj109600%_))) '#t) - _%$obj109494%_ + _%$obj109600%_ (let () (declare (not safe)) - (cast Locker::interface _%$obj109494%_))))) - (_%self109499%_ _%self109497%_)) - (&Locker-write-unlock! _%self109499%_)))) + (cast Locker::interface _%$obj109600%_))))) + (_%self109605%_ _%self109603%_)) + (&Locker-write-unlock! _%self109605%_)))) (define &Locker-write-unlock! - (lambda (_%self109475%_) - (let ((_%self109477%_ _%self109475%_)) + (lambda (_%self109581%_) + (let ((_%self109583%_ _%self109581%_)) (declare (not safe)) - (let ((_%obj109487%_ + (let ((_%obj109593%_ (##unchecked-structure-ref - _%self109477%_ + _%self109583%_ '1 '#f 'write-unlock!)) - (_%f109489%_ + (_%f109595%_ (##unchecked-structure-ref - _%self109477%_ + _%self109583%_ '5 '#f 'write-unlock!))) - (_%f109489%_ _%obj109487%_))))) + (_%f109595%_ _%obj109593%_))))) (let () (declare (not safe)) (bind-method!__0 __table::t 'ref raw-table-ref)) @@ -645,195 +645,195 @@ (declare (not safe)) (bind-method!__0 __gc-table::t 'clear! gc-table-clear!)) (define gambit-table-update! - (lambda (_%table109468%_ - _%key109469%_ - _%update109470%_ - _%default109471%_) - (let ((_%result109473%_ - (table-ref _%table109468%_ _%key109469%_ _%default109471%_))) + (lambda (_%table109574%_ + _%key109575%_ + _%update109576%_ + _%default109577%_) + (let ((_%result109579%_ + (table-ref _%table109574%_ _%key109575%_ _%default109577%_))) (table-set! - _%table109468%_ - _%key109469%_ - (_%update109470%_ _%default109471%_))))) + _%table109574%_ + _%key109575%_ + (_%update109576%_ _%default109577%_))))) (define gambit-table-for-each - (lambda (_%table109465%_ _%proc109466%_) - (table-for-each _%proc109466%_ _%table109465%_))) + (lambda (_%table109571%_ _%proc109572%_) + (table-for-each _%proc109572%_ _%table109571%_))) (define gambit-table-clear! - (lambda (_%table109463%_) + (lambda (_%table109569%_) (let () (declare (not safe)) - (##unchecked-structure-set! _%table109463%_ '0 '5 '#f '#f)))) - (let ((__tmp110099 (macro-type-table))) + (##unchecked-structure-set! _%table109569%_ '0 '5 '#f '#f)))) + (let ((__tmp110205 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110099 'ref table-ref)) - (let ((__tmp110100 (macro-type-table))) + (bind-method!__0 __tmp110205 'ref table-ref)) + (let ((__tmp110206 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110100 'set! table-set!)) - (let ((__tmp110101 (macro-type-table))) + (bind-method!__0 __tmp110206 'set! table-set!)) + (let ((__tmp110207 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110101 'update! gambit-table-update!)) - (let ((__tmp110102 (macro-type-table))) + (bind-method!__0 __tmp110207 'update! gambit-table-update!)) + (let ((__tmp110208 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110102 'delete! table-set!)) - (let ((__tmp110103 (macro-type-table))) + (bind-method!__0 __tmp110208 'delete! table-set!)) + (let ((__tmp110209 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110103 'for-each gambit-table-for-each)) - (let ((__tmp110104 (macro-type-table))) + (bind-method!__0 __tmp110209 'for-each gambit-table-for-each)) + (let ((__tmp110210 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110104 'length table-length)) - (let ((__tmp110105 (macro-type-table))) + (bind-method!__0 __tmp110210 'length table-length)) + (let ((__tmp110211 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110105 'copy table-copy)) - (let ((__tmp110106 (macro-type-table))) + (bind-method!__0 __tmp110211 'copy table-copy)) + (let ((__tmp110212 (macro-type-table))) (declare (not safe)) - (bind-method!__0 __tmp110106 'clear! gambit-table-clear!)) + (bind-method!__0 __tmp110212 'clear! gambit-table-clear!)) (define hash-table::t - (let* ((_%slots109445%_ '(table count free hash test seed)) - (_%slot-vector109447%_ (list->vector (cons '#f _%slots109445%_))) - (_%slot-table109454%_ - (let ((_%slot-table109449%_ + (let* ((_%slots109551%_ '(table count free hash test seed)) + (_%slot-vector109553%_ (list->vector (cons '#f _%slots109551%_))) + (_%slot-table109560%_ + (let ((_%slot-table109555%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp110109 - (lambda (_%slot109451%_ _%field109452%_) + (let ((__tmp110215 + (lambda (_%slot109557%_ _%field109558%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109449%_ - _%slot109451%_ - _%field109452%_)) - (let ((__tmp110110 + _%slot-table109555%_ + _%slot109557%_ + _%field109558%_)) + (let ((__tmp110216 (let () (declare (not safe)) - (symbol->keyword _%slot109451%_)))) + (symbol->keyword _%slot109557%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109449%_ - __tmp110110 - _%field109452%_)))) - (__tmp110107 - (let ((__tmp110108 + _%slot-table109555%_ + __tmp110216 + _%field109558%_)))) + (__tmp110213 + (let ((__tmp110214 (let () (declare (not safe)) - (##length _%slots109445%_)))) + (##length _%slots109551%_)))) (declare (not safe)) - (##iota __tmp110108 '1)))) + (##iota __tmp110214 '1)))) (declare (not safe)) - (##for-each __tmp110109 _%slots109445%_ __tmp110107)) - _%slot-table109449%_)) - (_%flags109456%_ + (##for-each __tmp110215 _%slots109551%_ __tmp110213)) + _%slot-table109555%_)) + (_%flags109562%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109458%_ '#()) - (_%properties109460%_ + (_%fields109564%_ '#()) + (_%properties109566%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109445%_))) + (__foldr1 cons '() _%slots109551%_))) (cons (cons 'struct: '#t) '()))) - (__tmp110111 (cons object::t (cons t::t '())))) + (__tmp110217 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#hash-table::t 'hash-table - _%flags109456%_ + _%flags109562%_ __table::t - _%fields109458%_ - __tmp110111 - _%slot-vector109447%_ - _%slot-table109454%_ - _%properties109460%_ + _%fields109564%_ + __tmp110217 + _%slot-vector109553%_ + _%slot-table109560%_ + _%properties109566%_ '#f '#f))) (define gc-hash-table::t - (let* ((_%slots109427%_ '(gcht immediate)) - (_%slot-vector109429%_ (list->vector (cons '#f _%slots109427%_))) - (_%slot-table109436%_ - (let ((_%slot-table109431%_ + (let* ((_%slots109533%_ '(gcht immediate)) + (_%slot-vector109535%_ (list->vector (cons '#f _%slots109533%_))) + (_%slot-table109542%_ + (let ((_%slot-table109537%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp110114 - (lambda (_%slot109433%_ _%field109434%_) + (let ((__tmp110220 + (lambda (_%slot109539%_ _%field109540%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table109431%_ - _%slot109433%_ - _%field109434%_)) - (let ((__tmp110115 + _%slot-table109537%_ + _%slot109539%_ + _%field109540%_)) + (let ((__tmp110221 (let () (declare (not safe)) - (symbol->keyword _%slot109433%_)))) + (symbol->keyword _%slot109539%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table109431%_ - __tmp110115 - _%field109434%_)))) - (__tmp110112 - (let ((__tmp110113 + _%slot-table109537%_ + __tmp110221 + _%field109540%_)))) + (__tmp110218 + (let ((__tmp110219 (let () (declare (not safe)) - (##length _%slots109427%_)))) + (##length _%slots109533%_)))) (declare (not safe)) - (##iota __tmp110113 '1)))) + (##iota __tmp110219 '1)))) (declare (not safe)) - (##for-each __tmp110114 _%slots109427%_ __tmp110112)) - _%slot-table109431%_)) - (_%flags109438%_ + (##for-each __tmp110220 _%slots109533%_ __tmp110218)) + _%slot-table109537%_)) + (_%flags109544%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields109440%_ '#()) - (_%properties109442%_ + (_%fields109546%_ '#()) + (_%properties109548%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots109427%_))) + (__foldr1 cons '() _%slots109533%_))) (cons (cons 'struct: '#t) '()))) - (__tmp110116 (cons object::t (cons t::t '())))) + (__tmp110222 (cons object::t (cons t::t '())))) (declare (not safe)) (##structure class::t 'gerbil#gc-hash-table::t 'hash-table - _%flags109438%_ + _%flags109544%_ __gc-table::t - _%fields109440%_ - __tmp110116 - _%slot-vector109429%_ - _%slot-table109436%_ - _%properties109442%_ + _%fields109546%_ + __tmp110222 + _%slot-vector109535%_ + _%slot-table109542%_ + _%properties109548%_ '#f '#f))) (define locked-hash-table::t - (let ((__tmp110118 (list)) - (__tmp110117 + (let ((__tmp110224 (list)) + (__tmp110223 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#locked-hash-table::t 'locked-hash-table - __tmp110118 + __tmp110224 '(table lock) - __tmp110117 + __tmp110223 '#f))) (define locked-hash-table? (let () (declare (not safe)) (__make-class-predicate locked-hash-table::t))) (define make-locked-hash-table - (lambda _%$args109424%_ - (apply make-instance locked-hash-table::t _%$args109424%_))) + (lambda _%$args109530%_ + (apply make-instance locked-hash-table::t _%$args109530%_))) (define locked-hash-table-table (let () (declare (not safe)) @@ -867,24 +867,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator locked-hash-table::t 'lock))) (define checked-hash-table::t - (let ((__tmp110120 (list)) - (__tmp110119 + (let ((__tmp110226 (list)) + (__tmp110225 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/hash#checked-hash-table::t 'checked-hash-table - __tmp110120 + __tmp110226 '(table key-check) - __tmp110119 + __tmp110225 '#f))) (define checked-hash-table? (let () (declare (not safe)) (__make-class-predicate checked-hash-table::t))) (define make-checked-hash-table - (lambda _%$args109421%_ - (apply make-instance checked-hash-table::t _%$args109421%_))) + (lambda _%$args109527%_ + (apply make-instance checked-hash-table::t _%$args109527%_))) (define checked-hash-table-table (let () (declare (not safe)) @@ -922,91 +922,91 @@ checked-hash-table::t 'key-check))) (define eq-hash-table::t - (let ((__tmp110122 (list hash-table::t)) - (__tmp110121 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110228 (list hash-table::t)) + (__tmp110227 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eq-hash-table 'hash-table - __tmp110122 + __tmp110228 '() - __tmp110121 + __tmp110227 '#f))) (define eq-hash-table? (let () (declare (not safe)) (__make-class-predicate eq-hash-table::t))) (define make-eq-hash-table - (lambda _%$args109418%_ - (apply make-instance eq-hash-table::t _%$args109418%_))) + (lambda _%$args109524%_ + (apply make-instance eq-hash-table::t _%$args109524%_))) (define eqv-hash-table::t - (let ((__tmp110124 (list hash-table::t)) - (__tmp110123 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110230 (list hash-table::t)) + (__tmp110229 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#eqv-hash-table 'hash-table - __tmp110124 + __tmp110230 '() - __tmp110123 + __tmp110229 '#f))) (define eqv-hash-table? (let () (declare (not safe)) (__make-class-predicate eqv-hash-table::t))) (define make-eqv-hash-table - (lambda _%$args109415%_ - (apply make-instance eqv-hash-table::t _%$args109415%_))) + (lambda _%$args109521%_ + (apply make-instance eqv-hash-table::t _%$args109521%_))) (define symbol-hash-table::t - (let ((__tmp110126 (list hash-table::t)) - (__tmp110125 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110232 (list hash-table::t)) + (__tmp110231 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#symbol-hash-table 'hash-table - __tmp110126 + __tmp110232 '() - __tmp110125 + __tmp110231 '#f))) (define symbol-hash-table? (let () (declare (not safe)) (__make-class-predicate symbol-hash-table::t))) (define make-symbol-hash-table - (lambda _%$args109412%_ - (apply make-instance symbol-hash-table::t _%$args109412%_))) + (lambda _%$args109518%_ + (apply make-instance symbol-hash-table::t _%$args109518%_))) (define string-hash-table::t - (let ((__tmp110128 (list hash-table::t)) - (__tmp110127 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110234 (list hash-table::t)) + (__tmp110233 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#string-hash-table 'hash-table - __tmp110128 + __tmp110234 '() - __tmp110127 + __tmp110233 '#f))) (define string-hash-table? (let () (declare (not safe)) (__make-class-predicate string-hash-table::t))) (define make-string-hash-table - (lambda _%$args109409%_ - (apply make-instance string-hash-table::t _%$args109409%_))) + (lambda _%$args109515%_ + (apply make-instance string-hash-table::t _%$args109515%_))) (define immediate-hash-table::t - (let ((__tmp110130 (list hash-table::t)) - (__tmp110129 (cons (cons 'struct: '#t) '()))) + (let ((__tmp110236 (list hash-table::t)) + (__tmp110235 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#immediate-hash-table::t 'hash-table - __tmp110130 + __tmp110236 '() - __tmp110129 + __tmp110235 '#f))) (define immediate-hash-table? (let () (declare (not safe)) (__make-class-predicate immediate-hash-table::t))) (define make-immediate-hash-table - (lambda _%$args109406%_ - (apply make-instance immediate-hash-table::t _%$args109406%_))) + (lambda _%$args109512%_ + (apply make-instance immediate-hash-table::t _%$args109512%_))) (let () (declare (not safe)) (bind-method!__0 hash-table::t 'ref raw-table-ref)) @@ -1123,406 +1123,406 @@ (bind-method!__0 gc-hash-table::t 'clear! gc-table-clear!)) (define hash-table? HashTable?) (define is-hash-table? is-HashTable?) - (define _%locked-hash-table::ref105406%_ - (lambda (_%self105405109380%_ _%key109382%_ _%default109383%_) - (let* ((_%self109385%_ _%self105405109380%_) - (_%self109388%_ _%self109385%_)) - (let ((_%h109398%_ + (define _%locked-hash-table::ref105512%_ + (lambda (_%self105511109486%_ _%key109488%_ _%default109489%_) + (let* ((_%self109491%_ _%self105511109486%_) + (_%self109494%_ _%self109491%_)) + (let ((_%h109504%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109388%_ '1 '#f '#f))) - (_%l109400%_ + (##unchecked-structure-ref _%self109494%_ '1 '#f '#f))) + (_%l109506%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109388%_ '2 '#f '#f)))) - (let ((__tmp110133 (lambda () (&Locker-read-lock! _%l109400%_))) - (__tmp110132 + (##unchecked-structure-ref _%self109494%_ '2 '#f '#f)))) + (let ((__tmp110239 (lambda () (&Locker-read-lock! _%l109506%_))) + (__tmp110238 (lambda () (&HashTable-ref - _%h109398%_ - _%key109382%_ - _%default109383%_))) - (__tmp110131 (lambda () (&Locker-read-unlock! _%l109400%_)))) + _%h109504%_ + _%key109488%_ + _%default109489%_))) + (__tmp110237 (lambda () (&Locker-read-unlock! _%l109506%_)))) (declare (not safe)) - (##dynamic-wind __tmp110133 __tmp110132 __tmp110131)))))) + (##dynamic-wind __tmp110239 __tmp110238 __tmp110237)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'ref - _%locked-hash-table::ref105406%_ + _%locked-hash-table::ref105512%_ '#f)) - (define _%locked-hash-table::set!105409%_ - (lambda (_%self105408109231%_ _%key109233%_ _%value109234%_) - (let* ((_%self109236%_ _%self105408109231%_) - (_%self109239%_ _%self109236%_)) - (let ((_%h109249%_ + (define _%locked-hash-table::set!105515%_ + (lambda (_%self105514109337%_ _%key109339%_ _%value109340%_) + (let* ((_%self109342%_ _%self105514109337%_) + (_%self109345%_ _%self109342%_)) + (let ((_%h109355%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109239%_ '1 '#f '#f))) - (_%l109251%_ + (##unchecked-structure-ref _%self109345%_ '1 '#f '#f))) + (_%l109357%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109239%_ '2 '#f '#f)))) - (let ((__tmp110136 (lambda () (&Locker-write-lock! _%l109251%_))) - (__tmp110135 + (##unchecked-structure-ref _%self109345%_ '2 '#f '#f)))) + (let ((__tmp110242 (lambda () (&Locker-write-lock! _%l109357%_))) + (__tmp110241 (lambda () (&HashTable-set! - _%h109249%_ - _%key109233%_ - _%value109234%_))) - (__tmp110134 - (lambda () (&Locker-write-unlock! _%l109251%_)))) + _%h109355%_ + _%key109339%_ + _%value109340%_))) + (__tmp110240 + (lambda () (&Locker-write-unlock! _%l109357%_)))) (declare (not safe)) - (##dynamic-wind __tmp110136 __tmp110135 __tmp110134)))))) + (##dynamic-wind __tmp110242 __tmp110241 __tmp110240)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'set! - _%locked-hash-table::set!105409%_ + _%locked-hash-table::set!105515%_ '#f)) - (define _%locked-hash-table::update!105412%_ - (lambda (_%self105411109081%_ - _%key109083%_ - _%update109084%_ - _%default109085%_) - (let* ((_%self109087%_ _%self105411109081%_) - (_%self109090%_ _%self109087%_)) - (let ((_%h109100%_ + (define _%locked-hash-table::update!105518%_ + (lambda (_%self105517109187%_ + _%key109189%_ + _%update109190%_ + _%default109191%_) + (let* ((_%self109193%_ _%self105517109187%_) + (_%self109196%_ _%self109193%_)) + (let ((_%h109206%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109090%_ '1 '#f '#f))) - (_%l109102%_ + (##unchecked-structure-ref _%self109196%_ '1 '#f '#f))) + (_%l109208%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self109090%_ '2 '#f '#f)))) - (let ((__tmp110139 (lambda () (&Locker-write-lock! _%l109102%_))) - (__tmp110138 + (##unchecked-structure-ref _%self109196%_ '2 '#f '#f)))) + (let ((__tmp110245 (lambda () (&Locker-write-lock! _%l109208%_))) + (__tmp110244 (lambda () (&HashTable-update! - _%h109100%_ - _%key109083%_ - _%update109084%_ - _%default109085%_))) - (__tmp110137 - (lambda () (&Locker-write-unlock! _%l109102%_)))) + _%h109206%_ + _%key109189%_ + _%update109190%_ + _%default109191%_))) + (__tmp110243 + (lambda () (&Locker-write-unlock! _%l109208%_)))) (declare (not safe)) - (##dynamic-wind __tmp110139 __tmp110138 __tmp110137)))))) + (##dynamic-wind __tmp110245 __tmp110244 __tmp110243)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'update! - _%locked-hash-table::update!105412%_ + _%locked-hash-table::update!105518%_ '#f)) - (define _%locked-hash-table::delete!105415%_ - (lambda (_%self105414108933%_ _%key108935%_) - (let* ((_%self108937%_ _%self105414108933%_) - (_%self108940%_ _%self108937%_)) - (let ((_%h108950%_ + (define _%locked-hash-table::delete!105521%_ + (lambda (_%self105520109039%_ _%key109041%_) + (let* ((_%self109043%_ _%self105520109039%_) + (_%self109046%_ _%self109043%_)) + (let ((_%h109056%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108940%_ '1 '#f '#f))) - (_%l108952%_ + (##unchecked-structure-ref _%self109046%_ '1 '#f '#f))) + (_%l109058%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108940%_ '2 '#f '#f)))) - (let ((__tmp110142 (lambda () (&Locker-write-lock! _%l108952%_))) - (__tmp110141 - (lambda () (&HashTable-delete! _%h108950%_ _%key108935%_))) - (__tmp110140 - (lambda () (&Locker-write-unlock! _%l108952%_)))) + (##unchecked-structure-ref _%self109046%_ '2 '#f '#f)))) + (let ((__tmp110248 (lambda () (&Locker-write-lock! _%l109058%_))) + (__tmp110247 + (lambda () (&HashTable-delete! _%h109056%_ _%key109041%_))) + (__tmp110246 + (lambda () (&Locker-write-unlock! _%l109058%_)))) (declare (not safe)) - (##dynamic-wind __tmp110142 __tmp110141 __tmp110140)))))) + (##dynamic-wind __tmp110248 __tmp110247 __tmp110246)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'delete! - _%locked-hash-table::delete!105415%_ + _%locked-hash-table::delete!105521%_ '#f)) - (define _%locked-hash-table::for-each105418%_ - (lambda (_%self105417108785%_ _%proc108787%_) - (let* ((_%self108789%_ _%self105417108785%_) - (_%self108792%_ _%self108789%_)) - (let ((_%h108802%_ + (define _%locked-hash-table::for-each105524%_ + (lambda (_%self105523108891%_ _%proc108893%_) + (let* ((_%self108895%_ _%self105523108891%_) + (_%self108898%_ _%self108895%_)) + (let ((_%h108908%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108792%_ '1 '#f '#f))) - (_%l108804%_ + (##unchecked-structure-ref _%self108898%_ '1 '#f '#f))) + (_%l108910%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108792%_ '2 '#f '#f)))) - (let ((__tmp110145 (lambda () (&Locker-read-lock! _%l108804%_))) - (__tmp110144 + (##unchecked-structure-ref _%self108898%_ '2 '#f '#f)))) + (let ((__tmp110251 (lambda () (&Locker-read-lock! _%l108910%_))) + (__tmp110250 (lambda () - (&HashTable-for-each _%h108802%_ _%proc108787%_))) - (__tmp110143 (lambda () (&Locker-read-unlock! _%l108804%_)))) + (&HashTable-for-each _%h108908%_ _%proc108893%_))) + (__tmp110249 (lambda () (&Locker-read-unlock! _%l108910%_)))) (declare (not safe)) - (##dynamic-wind __tmp110145 __tmp110144 __tmp110143)))))) + (##dynamic-wind __tmp110251 __tmp110250 __tmp110249)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'for-each - _%locked-hash-table::for-each105418%_ + _%locked-hash-table::for-each105524%_ '#f)) - (define _%locked-hash-table::length105421%_ - (lambda (_%self105420108638%_) - (let* ((_%self108641%_ _%self105420108638%_) - (_%self108644%_ _%self108641%_)) - (let ((_%h108654%_ + (define _%locked-hash-table::length105527%_ + (lambda (_%self105526108744%_) + (let* ((_%self108747%_ _%self105526108744%_) + (_%self108750%_ _%self108747%_)) + (let ((_%h108760%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108644%_ '1 '#f '#f))) - (_%l108656%_ + (##unchecked-structure-ref _%self108750%_ '1 '#f '#f))) + (_%l108762%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108644%_ '2 '#f '#f)))) - (let ((__tmp110148 (lambda () (&Locker-read-lock! _%l108656%_))) - (__tmp110147 (lambda () (&HashTable-length _%h108654%_))) - (__tmp110146 (lambda () (&Locker-read-unlock! _%l108656%_)))) + (##unchecked-structure-ref _%self108750%_ '2 '#f '#f)))) + (let ((__tmp110254 (lambda () (&Locker-read-lock! _%l108762%_))) + (__tmp110253 (lambda () (&HashTable-length _%h108760%_))) + (__tmp110252 (lambda () (&Locker-read-unlock! _%l108762%_)))) (declare (not safe)) - (##dynamic-wind __tmp110148 __tmp110147 __tmp110146)))))) + (##dynamic-wind __tmp110254 __tmp110253 __tmp110252)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'length - _%locked-hash-table::length105421%_ + _%locked-hash-table::length105527%_ '#f)) - (define _%locked-hash-table::copy105424%_ - (lambda (_%self105423108491%_) - (let* ((_%self108494%_ _%self105423108491%_) - (_%self108497%_ _%self108494%_)) - (let ((_%h108507%_ + (define _%locked-hash-table::copy105530%_ + (lambda (_%self105529108597%_) + (let* ((_%self108600%_ _%self105529108597%_) + (_%self108603%_ _%self108600%_)) + (let ((_%h108613%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108497%_ '1 '#f '#f))) - (_%l108509%_ + (##unchecked-structure-ref _%self108603%_ '1 '#f '#f))) + (_%l108615%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108497%_ '2 '#f '#f)))) - (let ((__tmp110151 (lambda () (&Locker-read-lock! _%l108509%_))) - (__tmp110150 (lambda () (&HashTable-copy _%h108507%_))) - (__tmp110149 (lambda () (&Locker-read-unlock! _%l108509%_)))) + (##unchecked-structure-ref _%self108603%_ '2 '#f '#f)))) + (let ((__tmp110257 (lambda () (&Locker-read-lock! _%l108615%_))) + (__tmp110256 (lambda () (&HashTable-copy _%h108613%_))) + (__tmp110255 (lambda () (&Locker-read-unlock! _%l108615%_)))) (declare (not safe)) - (##dynamic-wind __tmp110151 __tmp110150 __tmp110149)))))) + (##dynamic-wind __tmp110257 __tmp110256 __tmp110255)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'copy - _%locked-hash-table::copy105424%_ + _%locked-hash-table::copy105530%_ '#f)) - (define _%locked-hash-table::clear!105427%_ - (lambda (_%self105426108344%_) - (let* ((_%self108347%_ _%self105426108344%_) - (_%self108350%_ _%self108347%_)) - (let ((_%h108360%_ + (define _%locked-hash-table::clear!105533%_ + (lambda (_%self105532108450%_) + (let* ((_%self108453%_ _%self105532108450%_) + (_%self108456%_ _%self108453%_)) + (let ((_%h108466%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108350%_ '1 '#f '#f))) - (_%l108362%_ + (##unchecked-structure-ref _%self108456%_ '1 '#f '#f))) + (_%l108468%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%self108350%_ '2 '#f '#f)))) - (let ((__tmp110154 (lambda () (&Locker-write-lock! _%l108362%_))) - (__tmp110153 (lambda () (&HashTable-clear! _%h108360%_))) - (__tmp110152 - (lambda () (&Locker-write-unlock! _%l108362%_)))) + (##unchecked-structure-ref _%self108456%_ '2 '#f '#f)))) + (let ((__tmp110260 (lambda () (&Locker-write-lock! _%l108468%_))) + (__tmp110259 (lambda () (&HashTable-clear! _%h108466%_))) + (__tmp110258 + (lambda () (&Locker-write-unlock! _%l108468%_)))) (declare (not safe)) - (##dynamic-wind __tmp110154 __tmp110153 __tmp110152)))))) + (##dynamic-wind __tmp110260 __tmp110259 __tmp110258)))))) (let () (declare (not safe)) (__bind-method!__% locked-hash-table::t 'clear! - _%locked-hash-table::clear!105427%_ + _%locked-hash-table::clear!105533%_ '#f)) - (let ((__tmp110155 (macro-type-mutex))) + (let ((__tmp110261 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110155 'read-lock! mutex-lock!)) - (let ((__tmp110156 (macro-type-mutex))) + (bind-method!__0 __tmp110261 'read-lock! mutex-lock!)) + (let ((__tmp110262 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110156 'read-unlock! mutex-unlock!)) - (let ((__tmp110157 (macro-type-mutex))) + (bind-method!__0 __tmp110262 'read-unlock! mutex-unlock!)) + (let ((__tmp110263 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110157 'write-lock! mutex-lock!)) - (let ((__tmp110158 (macro-type-mutex))) + (bind-method!__0 __tmp110263 'write-lock! mutex-lock!)) + (let ((__tmp110264 (macro-type-mutex))) (declare (not safe)) - (bind-method!__0 __tmp110158 'write-unlock! mutex-unlock!)) - (define _%checked-hash-table::ref105641%_ - (lambda (_%self105640108194%_ _%key108196%_ _%default108197%_) - (let* ((_%self108199%_ _%self105640108194%_) - (_%self108201%_ _%self108199%_)) + (bind-method!__0 __tmp110264 'write-unlock! mutex-unlock!)) + (define _%checked-hash-table::ref105747%_ + (lambda (_%self105746108300%_ _%key108302%_ _%default108303%_) + (let* ((_%self108305%_ _%self105746108300%_) + (_%self108307%_ _%self108305%_)) (declare (not safe)) - (let ((_%h108212%_ - (##unchecked-structure-ref _%self108201%_ '1 '#f '#f)) - (_%key?108214%_ - (##unchecked-structure-ref _%self108201%_ '2 '#f '#f))) - (if ((lambda (_%key?108217%_ _%key108218%_ _%default108219%_) - (_%key?108217%_ _%key108218%_)) - _%key?108214%_ - _%key108196%_ - _%default108197%_) - (&HashTable-ref _%h108212%_ _%key108196%_ _%default108197%_) + (let ((_%h108318%_ + (##unchecked-structure-ref _%self108307%_ '1 '#f '#f)) + (_%key?108320%_ + (##unchecked-structure-ref _%self108307%_ '2 '#f '#f))) + (if ((lambda (_%key?108323%_ _%key108324%_ _%default108325%_) + (_%key?108323%_ _%key108324%_)) + _%key?108320%_ + _%key108302%_ + _%default108303%_) + (&HashTable-ref _%h108318%_ _%key108302%_ _%default108303%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-ref 'value: - (cons _%key108196%_ (cons _%default108197%_ '()))) + (cons _%key108302%_ (cons _%default108303%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'ref - _%checked-hash-table::ref105641%_ + _%checked-hash-table::ref105747%_ '#f)) - (define _%checked-hash-table::set!105644%_ - (lambda (_%self105643108044%_ _%key108046%_ _%value108047%_) - (let* ((_%self108049%_ _%self105643108044%_) - (_%self108051%_ _%self108049%_)) + (define _%checked-hash-table::set!105750%_ + (lambda (_%self105749108150%_ _%key108152%_ _%value108153%_) + (let* ((_%self108155%_ _%self105749108150%_) + (_%self108157%_ _%self108155%_)) (declare (not safe)) - (let ((_%h108062%_ - (##unchecked-structure-ref _%self108051%_ '1 '#f '#f)) - (_%key?108064%_ - (##unchecked-structure-ref _%self108051%_ '2 '#f '#f))) - (if ((lambda (_%key?108067%_ _%key108068%_ _%value108069%_) - (_%key?108067%_ _%key108068%_)) - _%key?108064%_ - _%key108046%_ - _%value108047%_) - (&HashTable-set! _%h108062%_ _%key108046%_ _%value108047%_) + (let ((_%h108168%_ + (##unchecked-structure-ref _%self108157%_ '1 '#f '#f)) + (_%key?108170%_ + (##unchecked-structure-ref _%self108157%_ '2 '#f '#f))) + (if ((lambda (_%key?108173%_ _%key108174%_ _%value108175%_) + (_%key?108173%_ _%key108174%_)) + _%key?108170%_ + _%key108152%_ + _%value108153%_) + (&HashTable-set! _%h108168%_ _%key108152%_ _%value108153%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-set! 'value: - (cons _%key108046%_ (cons _%value108047%_ '()))) + (cons _%key108152%_ (cons _%value108153%_ '()))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'set! - _%checked-hash-table::set!105644%_ + _%checked-hash-table::set!105750%_ '#f)) - (define _%checked-hash-table::update!105647%_ - (lambda (_%self105646107892%_ - _%key107894%_ - _%update107895%_ - _%default107896%_) - (let* ((_%self107898%_ _%self105646107892%_) - (_%self107900%_ _%self107898%_)) + (define _%checked-hash-table::update!105753%_ + (lambda (_%self105752107998%_ + _%key108000%_ + _%update108001%_ + _%default108002%_) + (let* ((_%self108004%_ _%self105752107998%_) + (_%self108006%_ _%self108004%_)) (declare (not safe)) - (let ((_%h107911%_ - (##unchecked-structure-ref _%self107900%_ '1 '#f '#f)) - (_%key?107913%_ - (##unchecked-structure-ref _%self107900%_ '2 '#f '#f))) - (if ((lambda (_%key?107916%_ - _%key107917%_ - _%update107918%_ - _%default107919%_) - (_%key?107916%_ _%key107917%_)) - _%key?107913%_ - _%key107894%_ - _%update107895%_ - _%default107896%_) + (let ((_%h108017%_ + (##unchecked-structure-ref _%self108006%_ '1 '#f '#f)) + (_%key?108019%_ + (##unchecked-structure-ref _%self108006%_ '2 '#f '#f))) + (if ((lambda (_%key?108022%_ + _%key108023%_ + _%update108024%_ + _%default108025%_) + (_%key?108022%_ _%key108023%_)) + _%key?108019%_ + _%key108000%_ + _%update108001%_ + _%default108002%_) (&HashTable-update! - _%h107911%_ - _%key107894%_ - _%update107895%_ - _%default107896%_) + _%h108017%_ + _%key108000%_ + _%update108001%_ + _%default108002%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-update! 'value: - (cons _%key107894%_ - (cons _%update107895%_ (cons _%default107896%_ '())))) + (cons _%key108000%_ + (cons _%update108001%_ (cons _%default108002%_ '())))) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'update! - _%checked-hash-table::update!105647%_ + _%checked-hash-table::update!105753%_ '#f)) - (define _%checked-hash-table::delete!105650%_ - (lambda (_%self105649107744%_ _%key107746%_) - (let* ((_%self107748%_ _%self105649107744%_) - (_%self107750%_ _%self107748%_)) + (define _%checked-hash-table::delete!105756%_ + (lambda (_%self105755107850%_ _%key107852%_) + (let* ((_%self107854%_ _%self105755107850%_) + (_%self107856%_ _%self107854%_)) (declare (not safe)) - (let ((_%h107761%_ - (##unchecked-structure-ref _%self107750%_ '1 '#f '#f)) - (_%key?107763%_ - (##unchecked-structure-ref _%self107750%_ '2 '#f '#f))) - (if ((lambda (_%key?107766%_ _%key107767%_) - (_%key?107766%_ _%key107767%_)) - _%key?107763%_ - _%key107746%_) - (&HashTable-delete! _%h107761%_ _%key107746%_) + (let ((_%h107867%_ + (##unchecked-structure-ref _%self107856%_ '1 '#f '#f)) + (_%key?107869%_ + (##unchecked-structure-ref _%self107856%_ '2 '#f '#f))) + (if ((lambda (_%key?107872%_ _%key107873%_) + (_%key?107872%_ _%key107873%_)) + _%key?107869%_ + _%key107852%_) + (&HashTable-delete! _%h107867%_ _%key107852%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-delete! 'value: - (cons _%key107746%_ '())) + (cons _%key107852%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'delete! - _%checked-hash-table::delete!105650%_ + _%checked-hash-table::delete!105756%_ '#f)) - (define _%checked-hash-table::for-each105653%_ - (lambda (_%self105652107596%_ _%proc107598%_) - (let* ((_%self107600%_ _%self105652107596%_) - (_%self107602%_ _%self107600%_)) + (define _%checked-hash-table::for-each105759%_ + (lambda (_%self105758107702%_ _%proc107704%_) + (let* ((_%self107706%_ _%self105758107702%_) + (_%self107708%_ _%self107706%_)) (declare (not safe)) - (let ((_%h107613%_ - (##unchecked-structure-ref _%self107602%_ '1 '#f '#f)) - (_%key?107615%_ - (##unchecked-structure-ref _%self107602%_ '2 '#f '#f))) - (if ((lambda (_%key?107618%_ _%proc107619%_) '#t) - _%key?107615%_ - _%proc107598%_) - (&HashTable-for-each _%h107613%_ _%proc107598%_) + (let ((_%h107719%_ + (##unchecked-structure-ref _%self107708%_ '1 '#f '#f)) + (_%key?107721%_ + (##unchecked-structure-ref _%self107708%_ '2 '#f '#f))) + (if ((lambda (_%key?107724%_ _%proc107725%_) '#t) + _%key?107721%_ + _%proc107704%_) + (&HashTable-for-each _%h107719%_ _%proc107704%_) (begin (raise-contract-violation-error '"invalid key" 'context: '&HashTable-for-each 'value: - (cons _%proc107598%_ '())) + (cons _%proc107704%_ '())) '#!void)))))) (let () (declare (not safe)) (__bind-method!__% checked-hash-table::t 'for-each - _%checked-hash-table::for-each105653%_ + _%checked-hash-table::for-each105759%_ '#f)) - (define _%checked-hash-table::length105656%_ - (lambda (_%self105655107452%_) - (let* ((_%self107455%_ _%self105655107452%_) - (_%self107457%_ _%self107455%_)) + (define _%checked-hash-table::length105762%_ + (lambda (_%self105761107558%_) + (let* ((_%self107561%_ _%self105761107558%_) + (_%self107563%_ _%self107561%_)) (declare (not safe)) - (let ((_%h107468%_ - (##unchecked-structure-ref _%self107457%_ '1 '#f '#f)) - (_%key?107470%_ - (##unchecked-structure-ref _%self107457%_ '2 '#f '#f))) + (let ((_%h107574%_ + (##unchecked-structure-ref _%self107563%_ '1 '#f '#f)) + (_%key?107576%_ + (##unchecked-structure-ref _%self107563%_ '2 '#f '#f))) (if '#!void - (&HashTable-length _%h107468%_) + (&HashTable-length _%h107574%_) (begin (raise-contract-violation-error '"invalid key" @@ -1536,19 +1536,19 @@ (__bind-method!__% checked-hash-table::t 'length - _%checked-hash-table::length105656%_ + _%checked-hash-table::length105762%_ '#f)) - (define _%checked-hash-table::copy105659%_ - (lambda (_%self105658107308%_) - (let* ((_%self107311%_ _%self105658107308%_) - (_%self107313%_ _%self107311%_)) + (define _%checked-hash-table::copy105765%_ + (lambda (_%self105764107414%_) + (let* ((_%self107417%_ _%self105764107414%_) + (_%self107419%_ _%self107417%_)) (declare (not safe)) - (let ((_%h107324%_ - (##unchecked-structure-ref _%self107313%_ '1 '#f '#f)) - (_%key?107326%_ - (##unchecked-structure-ref _%self107313%_ '2 '#f '#f))) + (let ((_%h107430%_ + (##unchecked-structure-ref _%self107419%_ '1 '#f '#f)) + (_%key?107432%_ + (##unchecked-structure-ref _%self107419%_ '2 '#f '#f))) (if '#!void - (&HashTable-copy _%h107324%_) + (&HashTable-copy _%h107430%_) (begin (raise-contract-violation-error '"invalid key" @@ -1562,19 +1562,19 @@ (__bind-method!__% checked-hash-table::t 'copy - _%checked-hash-table::copy105659%_ + _%checked-hash-table::copy105765%_ '#f)) - (define _%checked-hash-table::clear!105662%_ - (lambda (_%self105661107164%_) - (let* ((_%self107167%_ _%self105661107164%_) - (_%self107169%_ _%self107167%_)) + (define _%checked-hash-table::clear!105768%_ + (lambda (_%self105767107270%_) + (let* ((_%self107273%_ _%self105767107270%_) + (_%self107275%_ _%self107273%_)) (declare (not safe)) - (let ((_%h107180%_ - (##unchecked-structure-ref _%self107169%_ '1 '#f '#f)) - (_%key?107182%_ - (##unchecked-structure-ref _%self107169%_ '2 '#f '#f))) + (let ((_%h107286%_ + (##unchecked-structure-ref _%self107275%_ '1 '#f '#f)) + (_%key?107288%_ + (##unchecked-structure-ref _%self107275%_ '2 '#f '#f))) (if '#!void - (&HashTable-clear! _%h107180%_) + (&HashTable-clear! _%h107286%_) (begin (raise-contract-violation-error '"invalid key" @@ -1588,394 +1588,394 @@ (__bind-method!__% checked-hash-table::t 'clear! - _%checked-hash-table::clear!105662%_ + _%checked-hash-table::clear!105768%_ '#f)) (define make-generic-hash-table - (lambda (_%table107034%_ - _%count107035%_ - _%free107036%_ - _%hash107037%_ - _%test107038%_ - _%seed107039%_) + (lambda (_%table107140%_ + _%count107141%_ + _%free107142%_ + _%hash107143%_ + _%test107144%_ + _%seed107145%_) (let () (declare (not safe)) (##structure hash-table::t - _%table107034%_ - _%count107035%_ - _%free107036%_ - _%hash107037%_ - _%test107038%_ - _%seed107039%_)))) + _%table107140%_ + _%count107141%_ + _%free107142%_ + _%hash107143%_ + _%test107144%_ + _%seed107145%_)))) (define make-hash-table__% - (lambda (_%@@keywords106795%_ - _%size-hint106785106796%_ - _%seed106786106798%_ - _%test106787106800%_ - _%hash106788106802%_ - _%lock106789106804%_ - _%check106790106806%_ - _%weak-keys106791106808%_ - _%weak-values106792106810%_) - (let* ((_%size-hint106813%_ - (if (eq? _%size-hint106785106796%_ absent-value) + (lambda (_%@@keywords106901%_ + _%size-hint106891106902%_ + _%seed106892106904%_ + _%test106893106906%_ + _%hash106894106908%_ + _%lock106895106910%_ + _%check106896106912%_ + _%weak-keys106897106914%_ + _%weak-values106898106916%_) + (let* ((_%size-hint106919%_ + (if (eq? _%size-hint106891106902%_ absent-value) '#f - _%size-hint106785106796%_)) - (_%seed106815%_ - (if (eq? _%seed106786106798%_ absent-value) + _%size-hint106891106902%_)) + (_%seed106921%_ + (if (eq? _%seed106892106904%_ absent-value) '#f - _%seed106786106798%_)) - (_%test106817%_ - (if (eq? _%test106787106800%_ absent-value) + _%seed106892106904%_)) + (_%test106923%_ + (if (eq? _%test106893106906%_ absent-value) equal? - _%test106787106800%_)) - (_%hash106819%_ - (if (eq? _%hash106788106802%_ absent-value) + _%test106893106906%_)) + (_%hash106925%_ + (if (eq? _%hash106894106908%_ absent-value) '#f - _%hash106788106802%_)) - (_%lock106821%_ - (if (eq? _%lock106789106804%_ absent-value) + _%hash106894106908%_)) + (_%lock106927%_ + (if (eq? _%lock106895106910%_ absent-value) '#f - _%lock106789106804%_)) - (_%check106823%_ - (if (eq? _%check106790106806%_ absent-value) + _%lock106895106910%_)) + (_%check106929%_ + (if (eq? _%check106896106912%_ absent-value) '#f - _%check106790106806%_)) - (_%weak-keys106825%_ - (if (eq? _%weak-keys106791106808%_ absent-value) + _%check106896106912%_)) + (_%weak-keys106931%_ + (if (eq? _%weak-keys106897106914%_ absent-value) '#f - _%weak-keys106791106808%_)) - (_%weak-values106827%_ - (if (eq? _%weak-values106792106810%_ absent-value) + _%weak-keys106897106914%_)) + (_%weak-values106933%_ + (if (eq? _%weak-values106898106916%_ absent-value) '#f - _%weak-values106792106810%_))) - (letrec ((_%table-seed106830%_ + _%weak-values106898106916%_))) + (letrec ((_%table-seed106936%_ (lambda () - (if (fixnum? _%seed106815%_) - _%seed106815%_ + (if (fixnum? _%seed106921%_) + _%seed106921%_ (random-integer (macro-max-fixnum32))))) - (_%wrap-lock106831%_ - (lambda (_%ht107008%_) - (let ((_%ht107011%_ _%ht107008%_)) - (_%__wrap-lock106832%_ _%ht107011%_)))) - (_%__wrap-lock106832%_ - (lambda (_%ht106990%_) - (let ((_%ht106993%_ _%ht106990%_)) - (if _%lock106821%_ - (let ((_%$obj107005%_ - (let ((__tmp110159 - (let ((_%$obj107002%_ - _%lock106821%_)) + (_%wrap-lock106937%_ + (lambda (_%ht107114%_) + (let ((_%ht107117%_ _%ht107114%_)) + (_%__wrap-lock106938%_ _%ht107117%_)))) + (_%__wrap-lock106938%_ + (lambda (_%ht107096%_) + (let ((_%ht107099%_ _%ht107096%_)) + (if _%lock106927%_ + (let ((_%$obj107111%_ + (let ((__tmp110265 + (let ((_%$obj107108%_ + _%lock106927%_)) (if (and (let () (declare (not safe)) (##structure? - _%$obj107002%_)) + _%$obj107108%_)) (eq? Locker::t (let () (declare (not safe)) (##structure-type - _%$obj107002%_))) + _%$obj107108%_))) '#t) - _%$obj107002%_ + _%$obj107108%_ (let () (declare (not safe)) (cast Locker::interface - _%$obj107002%_)))))) + _%$obj107108%_)))))) (declare (not safe)) (##structure locked-hash-table::t - _%ht106993%_ - __tmp110159)))) + _%ht107099%_ + __tmp110265)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj107005%_)) + (##structure? _%$obj107111%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj107005%_))) + _%$obj107111%_))) '#t) - _%$obj107005%_ + _%$obj107111%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj107005%_)))) - _%ht106993%_)))) - (_%wrap-checked106833%_ - (lambda (_%ht106977%_ _%implicit106978%_) - (let ((_%ht106981%_ _%ht106977%_)) - (_%__wrap-checked106834%_ - _%ht106981%_ - _%implicit106978%_)))) - (_%__wrap-checked106834%_ - (lambda (_%ht106950%_ _%implicit106951%_) - (let ((_%ht106954%_ _%ht106950%_)) - (if _%check106823%_ - (let ((_%$obj106974%_ - (let ((__tmp110160 - (if (procedure? _%check106823%_) - _%check106823%_ - _%implicit106951%_))) + _%$obj107111%_)))) + _%ht107099%_)))) + (_%wrap-checked106939%_ + (lambda (_%ht107083%_ _%implicit107084%_) + (let ((_%ht107087%_ _%ht107083%_)) + (_%__wrap-checked106940%_ + _%ht107087%_ + _%implicit107084%_)))) + (_%__wrap-checked106940%_ + (lambda (_%ht107056%_ _%implicit107057%_) + (let ((_%ht107060%_ _%ht107056%_)) + (if _%check106929%_ + (let ((_%$obj107080%_ + (let ((__tmp110266 + (if (procedure? _%check106929%_) + _%check106929%_ + _%implicit107057%_))) (declare (not safe)) (##structure checked-hash-table::t - _%ht106954%_ - __tmp110160)))) + _%ht107060%_ + __tmp110266)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106974%_)) + (##structure? _%$obj107080%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106974%_))) + _%$obj107080%_))) '#t) - _%$obj106974%_ + _%$obj107080%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106974%_)))) - _%ht106954%_)))) - (_%make106835%_ - (lambda (_%kons106934%_ - _%key?106935%_ - _%hash106936%_ - _%test106937%_) - (let* ((_%size106940%_ + _%$obj107080%_)))) + _%ht107060%_)))) + (_%make106941%_ + (lambda (_%kons107040%_ + _%key?107041%_ + _%hash107042%_ + _%test107043%_) + (let* ((_%size107046%_ (let () (declare (not safe)) (raw-table-size-hint->size - _%size-hint106813%_))) - (_%table106942%_ - (let ((__tmp110161 (macro-unused-obj))) + _%size-hint106919%_))) + (_%table107048%_ + (let ((__tmp110267 (macro-unused-obj))) (declare (not safe)) - (##make-vector _%size106940%_ __tmp110161))) - (_%ht106947%_ - (let ((_%$obj106944%_ - (_%kons106934%_ - _%table106942%_ + (##make-vector _%size107046%_ __tmp110267))) + (_%ht107053%_ + (let ((_%$obj107050%_ + (_%kons107040%_ + _%table107048%_ '0 (let () (declare (not safe)) - (##fxquotient _%size106940%_ '2)) - _%hash106936%_ - _%test106937%_ - (_%table-seed106830%_)))) + (##fxquotient _%size107046%_ '2)) + _%hash107042%_ + _%test107043%_ + (_%table-seed106936%_)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106944%_)) + (##structure? _%$obj107050%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106944%_))) + _%$obj107050%_))) '#t) - _%$obj106944%_ + _%$obj107050%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106944%_)))))) - (_%__wrap-checked106834%_ - (_%__wrap-lock106832%_ _%ht106947%_) - _%key?106935%_)))) - (_%make-gc-hash-table106836%_ + _%$obj107050%_)))))) + (_%__wrap-checked106940%_ + (_%__wrap-lock106938%_ _%ht107053%_) + _%key?107041%_)))) + (_%make-gc-hash-table106942%_ (lambda () - (let ((_%ht106932%_ - (let ((_%$obj106929%_ + (let ((_%ht107038%_ + (let ((_%$obj107035%_ (let () (declare (not safe)) (make-gc-table__1 - _%size-hint106813%_ + _%size-hint106919%_ gc-hash-table::t)))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106929%_)) + (##structure? _%$obj107035%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106929%_))) + _%$obj107035%_))) '#t) - _%$obj106929%_ + _%$obj107035%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106929%_)))))) - (_%__wrap-checked106834%_ - (_%__wrap-lock106832%_ _%ht106932%_) + _%$obj107035%_)))))) + (_%__wrap-checked106940%_ + (_%__wrap-lock106938%_ _%ht107038%_) true)))) - (_%make-gambit-table106837%_ + (_%make-gambit-table106943%_ (lambda () - (let* ((_%size106906%_ - (let ((_%$e106903%_ _%size-hint106813%_)) - (if _%$e106903%_ - _%$e106903%_ + (let* ((_%size107012%_ + (let ((_%$e107009%_ _%size-hint106919%_)) + (if _%$e107009%_ + _%$e107009%_ (macro-absent-obj)))) - (_%test106911%_ - (let ((_%$e106908%_ _%test106817%_)) - (if _%$e106908%_ _%$e106908%_ equal?))) - (_%hash106919%_ - (let ((_%$e106913%_ _%hash106819%_)) - (if _%$e106913%_ - _%$e106913%_ - (if (eq? _%test106911%_ eq?) + (_%test107017%_ + (let ((_%$e107014%_ _%test106923%_)) + (if _%$e107014%_ _%$e107014%_ equal?))) + (_%hash107025%_ + (let ((_%$e107019%_ _%hash106925%_)) + (if _%$e107019%_ + _%$e107019%_ + (if (eq? _%test107017%_ eq?) eq?-hash - (if (eq? _%test106911%_ eqv?) + (if (eq? _%test107017%_ eqv?) eqv?-hash equal?-hash))))) - (_%ht106924%_ - (let ((_%$obj106921%_ + (_%ht107030%_ + (let ((_%$obj107027%_ (make-table 'size: - _%size106906%_ + _%size107012%_ 'test: - _%test106911%_ + _%test107017%_ 'hash: - _%hash106919%_ + _%hash107025%_ 'weak-keys: - _%weak-keys106825%_ + _%weak-keys106931%_ 'weak-values: - _%weak-values106827%_))) + _%weak-values106933%_))) (if (and (let () (declare (not safe)) - (##structure? _%$obj106921%_)) + (##structure? _%$obj107027%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj106921%_))) + _%$obj107027%_))) '#t) - _%$obj106921%_ + _%$obj107027%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj106921%_)))))) - (_%__wrap-checked106834%_ - (_%__wrap-lock106832%_ _%ht106924%_) + _%$obj107027%_)))))) + (_%__wrap-checked106940%_ + (_%__wrap-lock106938%_ _%ht107030%_) true))))) - (if (or _%weak-keys106825%_ _%weak-values106827%_) - (_%make-gambit-table106837%_) - (if (and (or (eq? _%test106817%_ eq?) - (eq? _%test106817%_ ##eq?)) - (or (not _%hash106819%_) - (eq? _%hash106819%_ eq?-hash) - (eq? _%hash106819%_ eq-hash)) - (not _%seed106815%_)) - (_%make-gc-hash-table106836%_) - (if (and (or (eq? _%test106817%_ eq?) - (eq? _%test106817%_ ##eq?)) - (or (not _%hash106819%_) - (eq? _%hash106819%_ eq?-hash) - (eq? _%hash106819%_ eq-hash))) - (_%make106835%_ make-eq-hash-table true eq-hash eq?) - (if (and (or (eq? _%test106817%_ eqv?) - (eq? _%test106817%_ ##eqv?)) - (or (not _%hash106819%_) - (eq? _%hash106819%_ eqv?-hash) - (eq? _%hash106819%_ eqv-hash))) - (_%make106835%_ + (if (or _%weak-keys106931%_ _%weak-values106933%_) + (_%make-gambit-table106943%_) + (if (and (or (eq? _%test106923%_ eq?) + (eq? _%test106923%_ ##eq?)) + (or (not _%hash106925%_) + (eq? _%hash106925%_ eq?-hash) + (eq? _%hash106925%_ eq-hash)) + (not _%seed106921%_)) + (_%make-gc-hash-table106942%_) + (if (and (or (eq? _%test106923%_ eq?) + (eq? _%test106923%_ ##eq?)) + (or (not _%hash106925%_) + (eq? _%hash106925%_ eq?-hash) + (eq? _%hash106925%_ eq-hash))) + (_%make106941%_ make-eq-hash-table true eq-hash eq?) + (if (and (or (eq? _%test106923%_ eqv?) + (eq? _%test106923%_ ##eqv?)) + (or (not _%hash106925%_) + (eq? _%hash106925%_ eqv?-hash) + (eq? _%hash106925%_ eqv-hash))) + (_%make106941%_ make-eqv-hash-table true eqv-hash eqv?) - (if (and (or (eq? _%test106817%_ eq?) - (eq? _%test106817%_ ##eq?)) - (or (eq? _%hash106819%_ symbolic-hash) - (eq? _%hash106819%_ ##symbol-hash))) - (_%make106835%_ + (if (and (or (eq? _%test106923%_ eq?) + (eq? _%test106923%_ ##eq?)) + (or (eq? _%hash106925%_ symbolic-hash) + (eq? _%hash106925%_ ##symbol-hash))) + (_%make106941%_ make-symbol-hash-table symbolic? symbolic-hash eq?) - (if (and (or (eq? _%test106817%_ eq?) - (eq? _%test106817%_ ##eq?)) - (eq? _%hash106819%_ immediate-hash)) - (_%make106835%_ + (if (and (or (eq? _%test106923%_ eq?) + (eq? _%test106923%_ ##eq?)) + (eq? _%hash106925%_ immediate-hash)) + (_%make106941%_ make-immediate-hash-table immediate? immediate-hash eq?) - (if (and (or (eq? _%test106817%_ equal?) - (eq? _%test106817%_ ##equal?) - (eq? _%test106817%_ string=?) - (eq? _%test106817%_ + (if (and (or (eq? _%test106923%_ equal?) + (eq? _%test106923%_ ##equal?) + (eq? _%test106923%_ string=?) + (eq? _%test106923%_ ##string=?)) - (or (eq? _%hash106819%_ + (or (eq? _%hash106925%_ string-hash) - (eq? _%hash106819%_ + (eq? _%hash106925%_ ##string=?-hash))) - (_%make106835%_ + (_%make106941%_ make-string-hash-table string? string-hash ##string=?) - (if (and (eq? _%test106817%_ equal?) - (not _%hash106819%_)) - (_%make106835%_ + (if (and (eq? _%test106923%_ equal?) + (not _%hash106925%_)) + (_%make106941%_ make-generic-hash-table true equal?-hash equal?) - (if (procedure? _%test106817%_) - (if (procedure? _%hash106819%_) - (_%make106835%_ + (if (procedure? _%test106923%_) + (if (procedure? _%hash106925%_) + (_%make106941%_ make-generic-hash-table true - _%hash106819%_ - _%test106817%_) + _%hash106925%_ + _%test106923%_) (let () (let () (declare (not safe)) (error '"bad hash table hash function; expected procedure" - _%hash106819%_)) + _%hash106925%_)) '#!void)) (let () (let () (declare (not safe)) (error '"bad hash table test function; expected procedure" - _%test106817%_)) + _%test106923%_)) '#!void)))))))))))))) (define make-hash-table__@ - (lambda (_%@@keywords107024%_ . _%args107025%_) + (lambda (_%@@keywords107130%_ . _%args107131%_) (apply make-hash-table__% - _%@@keywords107024%_ + _%@@keywords107130%_ (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107024%_ 'size: absent-value)) + (symbolic-table-ref _%@@keywords107130%_ 'size: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107024%_ 'seed: absent-value)) + (symbolic-table-ref _%@@keywords107130%_ 'seed: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107024%_ 'test: absent-value)) + (symbolic-table-ref _%@@keywords107130%_ 'test: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107024%_ 'hash: absent-value)) + (symbolic-table-ref _%@@keywords107130%_ 'hash: absent-value)) (let () (declare (not safe)) - (symbolic-table-ref _%@@keywords107024%_ 'lock: absent-value)) + (symbolic-table-ref _%@@keywords107130%_ 'lock: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107024%_ + _%@@keywords107130%_ 'check: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107024%_ + _%@@keywords107130%_ 'weak-keys: absent-value)) (let () (declare (not safe)) (symbolic-table-ref - _%@@keywords107024%_ + _%@@keywords107130%_ 'weak-values: absent-value)) - _%args107025%_))) + _%args107131%_))) (define make-hash-table - (lambda _%args106793107031%_ + (lambda _%args106899107137%_ (apply keyword-dispatch '#(#f #f @@ -2018,525 +2018,525 @@ #f #f) make-hash-table__@ - _%args106793107031%_))) + _%args106899107137%_))) (define make-hash-table-eq - (lambda _%args106782%_ - (apply make-hash-table 'test: eq? _%args106782%_))) + (lambda _%args106888%_ + (apply make-hash-table 'test: eq? _%args106888%_))) (define make-hash-table-eqv - (lambda _%args106780%_ - (apply make-hash-table 'test: eqv? _%args106780%_))) + (lambda _%args106886%_ + (apply make-hash-table 'test: eqv? _%args106886%_))) (define make-hash-table-symbolic - (lambda _%args106778%_ + (lambda _%args106884%_ (apply make-hash-table 'test: eq? 'hash: symbolic-hash - _%args106778%_))) + _%args106884%_))) (define make-hash-table-string - (lambda _%args106776%_ + (lambda _%args106882%_ (apply make-hash-table 'test: string=? 'hash: string-hash - _%args106776%_))) + _%args106882%_))) (define make-hash-table-immediate - (lambda _%args106774%_ + (lambda _%args106880%_ (apply make-hash-table 'test: eq? 'hash: immediate-hash - _%args106774%_))) + _%args106880%_))) (define list->hash-table - (lambda (_%lst106771%_ . _%args106772%_) + (lambda (_%lst106877%_ . _%args106878%_) (list->hash-table! - _%lst106771%_ + _%lst106877%_ (apply make-hash-table 'size: - (length _%lst106771%_) - _%args106772%_)))) + (length _%lst106877%_) + _%args106878%_)))) (define list->hash-table-eq - (lambda (_%lst106768%_ . _%args106769%_) + (lambda (_%lst106874%_ . _%args106875%_) (list->hash-table! - _%lst106768%_ + _%lst106874%_ (apply make-hash-table-eq 'size: - (length _%lst106768%_) - _%args106769%_)))) + (length _%lst106874%_) + _%args106875%_)))) (define list->hash-table-eqv - (lambda (_%lst106765%_ . _%args106766%_) + (lambda (_%lst106871%_ . _%args106872%_) (list->hash-table! - _%lst106765%_ + _%lst106871%_ (apply make-hash-table-eqv 'size: - (length _%lst106765%_) - _%args106766%_)))) + (length _%lst106871%_) + _%args106872%_)))) (define list->hash-table-symbolic - (lambda (_%lst106762%_ . _%args106763%_) + (lambda (_%lst106868%_ . _%args106869%_) (list->hash-table! - _%lst106762%_ + _%lst106868%_ (apply make-hash-table-symbolic 'size: - (length _%lst106762%_) - _%args106763%_)))) + (length _%lst106868%_) + _%args106869%_)))) (define list->hash-table-string - (lambda (_%lst106759%_ . _%args106760%_) + (lambda (_%lst106865%_ . _%args106866%_) (list->hash-table! - _%lst106759%_ + _%lst106865%_ (apply make-hash-table-string 'size: - (length _%lst106759%_) - _%args106760%_)))) + (length _%lst106865%_) + _%args106866%_)))) (define list->hash-table-immediate - (lambda (_%lst106756%_ . _%args106757%_) + (lambda (_%lst106862%_ . _%args106863%_) (list->hash-table! - _%lst106756%_ + _%lst106862%_ (apply make-hash-table-immediate 'size: - (length _%lst106756%_) - _%args106757%_)))) + (length _%lst106862%_) + _%args106863%_)))) (define list->hash-table! - (lambda (_%lst106723%_ _%h106724%_) + (lambda (_%lst106829%_ _%h106830%_) (for-each - (lambda (_%el106726%_) - (let* ((_%el106727106734%_ _%el106726%_) - (_%E106729106738%_ + (lambda (_%el106832%_) + (let* ((_%el106833106840%_ _%el106832%_) + (_%E106835106844%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%el106727106734%_ + _%el106833106840%_ '([k . v]))) '#!void)) - (_%K106730106744%_ - (lambda (_%v106741%_ _%k106742%_) - (&HashTable-set! _%h106724%_ _%k106742%_ _%v106741%_)))) - (if (pair? _%el106727106734%_) - (let ((_%hd106731106747%_ + (_%K106836106850%_ + (lambda (_%v106847%_ _%k106848%_) + (&HashTable-set! _%h106830%_ _%k106848%_ _%v106847%_)))) + (if (pair? _%el106833106840%_) + (let ((_%hd106837106853%_ (let () (declare (not safe)) - (##car _%el106727106734%_))) - (_%tl106732106749%_ + (##car _%el106833106840%_))) + (_%tl106838106855%_ (let () (declare (not safe)) - (##cdr _%el106727106734%_)))) - (let* ((_%k106752%_ _%hd106731106747%_) - (_%v106754%_ _%tl106732106749%_)) - (_%K106730106744%_ _%v106754%_ _%k106752%_))) - (_%E106729106738%_)))) - _%lst106723%_) - _%h106724%_)) + (##cdr _%el106833106840%_)))) + (let* ((_%k106858%_ _%hd106837106853%_) + (_%v106860%_ _%tl106838106855%_)) + (_%K106836106850%_ _%v106860%_ _%k106858%_))) + (_%E106835106844%_)))) + _%lst106829%_) + _%h106830%_)) (define plist->hash-table - (lambda (_%lst106720%_ . _%args106721%_) + (lambda (_%lst106826%_ . _%args106827%_) (plist->hash-table! - _%lst106720%_ + _%lst106826%_ (apply make-hash-table 'size: - (length _%lst106720%_) - _%args106721%_)))) + (length _%lst106826%_) + _%args106827%_)))) (define plist->hash-table-eq - (lambda (_%lst106717%_ . _%args106718%_) + (lambda (_%lst106823%_ . _%args106824%_) (plist->hash-table! - _%lst106717%_ + _%lst106823%_ (apply make-hash-table-eq 'size: - (length _%lst106717%_) - _%args106718%_)))) + (length _%lst106823%_) + _%args106824%_)))) (define plist->hash-table-eqv - (lambda (_%lst106714%_ . _%args106715%_) + (lambda (_%lst106820%_ . _%args106821%_) (plist->hash-table! - _%lst106714%_ + _%lst106820%_ (apply make-hash-table-eqv 'size: - (length _%lst106714%_) - _%args106715%_)))) + (length _%lst106820%_) + _%args106821%_)))) (define plist->hash-table-symbolic - (lambda (_%lst106711%_ . _%args106712%_) + (lambda (_%lst106817%_ . _%args106818%_) (plist->hash-table! - _%lst106711%_ + _%lst106817%_ (apply make-hash-table-symbolic 'size: - (length _%lst106711%_) - _%args106712%_)))) + (length _%lst106817%_) + _%args106818%_)))) (define plist->hash-table-string - (lambda (_%lst106708%_ . _%args106709%_) + (lambda (_%lst106814%_ . _%args106815%_) (plist->hash-table! - _%lst106708%_ + _%lst106814%_ (apply make-hash-table-string 'size: - (length _%lst106708%_) - _%args106709%_)))) + (length _%lst106814%_) + _%args106815%_)))) (define plist->hash-table-immediate - (lambda (_%lst106705%_ . _%args106706%_) + (lambda (_%lst106811%_ . _%args106812%_) (plist->hash-table! - _%lst106705%_ + _%lst106811%_ (apply make-hash-table-immediate 'size: - (length _%lst106705%_) - _%args106706%_)))) + (length _%lst106811%_) + _%args106812%_)))) (define plist->hash-table! - (lambda (_%lst106645%_ _%h106646%_) - (let _%loop106648%_ ((_%rest106650%_ _%lst106645%_)) - (let* ((_%rest106651106663%_ _%rest106650%_) - (_%else106654106671%_ + (lambda (_%lst106751%_ _%h106752%_) + (let _%loop106754%_ ((_%rest106756%_ _%lst106751%_)) + (let* ((_%rest106757106769%_ _%rest106756%_) + (_%else106760106777%_ (lambda () (let () (declare (not safe)) (error '"bad property list -- uneven list" - _%lst106645%_))))) - (let ((_%K106657106686%_ - (lambda (_%rest106682%_ _%val106683%_ _%key106684%_) - (&HashTable-set! _%h106646%_ _%key106684%_ _%val106683%_) - (_%loop106648%_ _%rest106682%_))) - (_%K106656106676%_ (lambda () _%h106646%_))) - (let ((_%try-match106653106679%_ + _%lst106751%_))))) + (let ((_%K106763106792%_ + (lambda (_%rest106788%_ _%val106789%_ _%key106790%_) + (&HashTable-set! _%h106752%_ _%key106790%_ _%val106789%_) + (_%loop106754%_ _%rest106788%_))) + (_%K106762106782%_ (lambda () _%h106752%_))) + (let ((_%try-match106759106785%_ (lambda () - (if (null? _%rest106651106663%_) - (_%K106656106676%_) - (_%else106654106671%_))))) - (if (pair? _%rest106651106663%_) - (let ((_%tl106659106691%_ + (if (null? _%rest106757106769%_) + (_%K106762106782%_) + (_%else106760106777%_))))) + (if (pair? _%rest106757106769%_) + (let ((_%tl106765106797%_ (let () (declare (not safe)) - (##cdr _%rest106651106663%_))) - (_%hd106658106689%_ + (##cdr _%rest106757106769%_))) + (_%hd106764106795%_ (let () (declare (not safe)) - (##car _%rest106651106663%_)))) - (if (pair? _%tl106659106691%_) - (let ((_%tl106661106698%_ + (##car _%rest106757106769%_)))) + (if (pair? _%tl106765106797%_) + (let ((_%tl106767106804%_ (let () (declare (not safe)) - (##cdr _%tl106659106691%_))) - (_%hd106660106696%_ + (##cdr _%tl106765106797%_))) + (_%hd106766106802%_ (let () (declare (not safe)) - (##car _%tl106659106691%_)))) - (let ((_%key106694%_ _%hd106658106689%_) - (_%val106701%_ _%hd106660106696%_) - (_%rest106703%_ _%tl106661106698%_)) - (_%K106657106686%_ - _%rest106703%_ - _%val106701%_ - _%key106694%_))) - (_%else106654106671%_))) - (_%try-match106653106679%_)))))))) + (##car _%tl106765106797%_)))) + (let ((_%key106800%_ _%hd106764106795%_) + (_%val106807%_ _%hd106766106802%_) + (_%rest106809%_ _%tl106767106804%_)) + (_%K106763106792%_ + _%rest106809%_ + _%val106807%_ + _%key106800%_))) + (_%else106760106777%_))) + (_%try-match106759106785%_)))))))) (define hash-length - (lambda (_%h106627%_) - (let* ((_%h106633%_ - (let ((_%$obj106630%_ _%h106627%_)) + (lambda (_%h106733%_) + (let* ((_%h106739%_ + (let ((_%$obj106736%_ _%h106733%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106630%_)) + (##structure? _%$obj106736%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106630%_))) + (##structure-type _%$obj106736%_))) '#t) - _%$obj106630%_ + _%$obj106736%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106630%_))))) - (_%h106635%_ _%h106633%_)) - (__hash-length _%h106635%_)))) + (cast HashTable::interface _%$obj106736%_))))) + (_%h106741%_ _%h106739%_)) + (__hash-length _%h106741%_)))) (define __hash-length - (lambda (_%h106615%_) - (let ((_%h106618%_ _%h106615%_)) (__HashTable-length _%h106618%_)))) + (lambda (_%h106721%_) + (let ((_%h106724%_ _%h106721%_)) (__HashTable-length _%h106724%_)))) (define hash-ref__% - (lambda (_%h106583%_ _%key106584%_ _%default106585%_) - (let* ((_%h106591%_ - (let ((_%$obj106588%_ _%h106583%_)) + (lambda (_%h106689%_ _%key106690%_ _%default106691%_) + (let* ((_%h106697%_ + (let ((_%$obj106694%_ _%h106689%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106588%_)) + (##structure? _%$obj106694%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106588%_))) + (##structure-type _%$obj106694%_))) '#t) - _%$obj106588%_ + _%$obj106694%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106588%_))))) - (_%h106593%_ _%h106591%_)) - (__hash-ref__% _%h106593%_ _%key106584%_ _%default106585%_)))) + (cast HashTable::interface _%$obj106694%_))))) + (_%h106699%_ _%h106697%_)) + (__hash-ref__% _%h106699%_ _%key106690%_ _%default106691%_)))) (define hash-ref__0 - (lambda (_%h106606%_ _%key106607%_) - (let ((_%default106609%_ (macro-absent-obj))) - (hash-ref__% _%h106606%_ _%key106607%_ _%default106609%_)))) + (lambda (_%h106712%_ _%key106713%_) + (let ((_%default106715%_ (macro-absent-obj))) + (hash-ref__% _%h106712%_ _%key106713%_ _%default106715%_)))) (define hash-ref - (lambda _g110163_ - (let ((_g110162_ (let () (declare (not safe)) (##length _g110163_)))) - (cond ((let () (declare (not safe)) (##fx= _g110162_ 2)) - (apply hash-ref__0 _g110163_)) - ((let () (declare (not safe)) (##fx= _g110162_ 3)) - (apply hash-ref__% _g110163_)) + (lambda _g110269_ + (let ((_g110268_ (let () (declare (not safe)) (##length _g110269_)))) + (cond ((let () (declare (not safe)) (##fx= _g110268_ 2)) + (apply hash-ref__0 _g110269_)) + ((let () (declare (not safe)) (##fx= _g110268_ 3)) + (apply hash-ref__% _g110269_)) (else (##raise-wrong-number-of-arguments-exception hash-ref - _g110163_)))))) + _g110269_)))))) (define __hash-ref__% - (lambda (_%h106554%_ _%key106555%_ _%default106556%_) - (let* ((_%h106559%_ _%h106554%_) - (_%result106568%_ - (&HashTable-ref _%h106559%_ _%key106555%_ _%default106556%_))) - (if (eq? _%result106568%_ (macro-absent-obj)) + (lambda (_%h106660%_ _%key106661%_ _%default106662%_) + (let* ((_%h106665%_ _%h106660%_) + (_%result106674%_ + (&HashTable-ref _%h106665%_ _%key106661%_ _%default106662%_))) + (if (eq? _%result106674%_ (macro-absent-obj)) (raise-unbound-key-error 'hash-ref '"unknown hash key" 'hash: - _%h106559%_ + _%h106665%_ 'key: - _%key106555%_) - _%result106568%_)))) + _%key106661%_) + _%result106674%_)))) (define __hash-ref__0 - (lambda (_%h106573%_ _%key106574%_) - (let ((_%default106576%_ (macro-absent-obj))) - (__hash-ref__% _%h106573%_ _%key106574%_ _%default106576%_)))) + (lambda (_%h106679%_ _%key106680%_) + (let ((_%default106682%_ (macro-absent-obj))) + (__hash-ref__% _%h106679%_ _%key106680%_ _%default106682%_)))) (define __hash-ref - (lambda _g110165_ - (let ((_g110164_ (let () (declare (not safe)) (##length _g110165_)))) - (cond ((let () (declare (not safe)) (##fx= _g110164_ 2)) - (apply __hash-ref__0 _g110165_)) - ((let () (declare (not safe)) (##fx= _g110164_ 3)) - (apply __hash-ref__% _g110165_)) + (lambda _g110271_ + (let ((_g110270_ (let () (declare (not safe)) (##length _g110271_)))) + (cond ((let () (declare (not safe)) (##fx= _g110270_ 2)) + (apply __hash-ref__0 _g110271_)) + ((let () (declare (not safe)) (##fx= _g110270_ 3)) + (apply __hash-ref__% _g110271_)) (else (##raise-wrong-number-of-arguments-exception __hash-ref - _g110165_)))))) + _g110271_)))))) (define hash-get - (lambda (_%h106534%_ _%key106535%_) - (let* ((_%h106541%_ - (let ((_%$obj106538%_ _%h106534%_)) + (lambda (_%h106640%_ _%key106641%_) + (let* ((_%h106647%_ + (let ((_%$obj106644%_ _%h106640%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106538%_)) + (##structure? _%$obj106644%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106538%_))) + (##structure-type _%$obj106644%_))) '#t) - _%$obj106538%_ + _%$obj106644%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106538%_))))) - (_%h106543%_ _%h106541%_)) - (__hash-get _%h106543%_ _%key106535%_)))) + (cast HashTable::interface _%$obj106644%_))))) + (_%h106649%_ _%h106647%_)) + (__hash-get _%h106649%_ _%key106641%_)))) (define __hash-get - (lambda (_%h106521%_ _%key106522%_) - (let ((_%h106525%_ _%h106521%_)) - (&HashTable-ref _%h106525%_ _%key106522%_ '#f)))) + (lambda (_%h106627%_ _%key106628%_) + (let ((_%h106631%_ _%h106627%_)) + (&HashTable-ref _%h106631%_ _%key106628%_ '#f)))) (define hash-put! - (lambda (_%h106501%_ _%key106502%_ _%value106503%_) - (let* ((_%h106509%_ - (let ((_%$obj106506%_ _%h106501%_)) + (lambda (_%h106607%_ _%key106608%_ _%value106609%_) + (let* ((_%h106615%_ + (let ((_%$obj106612%_ _%h106607%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106506%_)) + (##structure? _%$obj106612%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106506%_))) + (##structure-type _%$obj106612%_))) '#t) - _%$obj106506%_ + _%$obj106612%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106506%_))))) - (_%h106511%_ _%h106509%_)) - (__hash-put! _%h106511%_ _%key106502%_ _%value106503%_)))) + (cast HashTable::interface _%$obj106612%_))))) + (_%h106617%_ _%h106615%_)) + (__hash-put! _%h106617%_ _%key106608%_ _%value106609%_)))) (define __hash-put! - (lambda (_%h106487%_ _%key106488%_ _%value106489%_) - (let ((_%h106492%_ _%h106487%_)) - (&HashTable-set! _%h106492%_ _%key106488%_ _%value106489%_)))) + (lambda (_%h106593%_ _%key106594%_ _%value106595%_) + (let ((_%h106598%_ _%h106593%_)) + (&HashTable-set! _%h106598%_ _%key106594%_ _%value106595%_)))) (define hash-update!__% - (lambda (_%h106452%_ _%key106453%_ _%update106454%_ _%default106455%_) - (let* ((_%h106461%_ - (let ((_%$obj106458%_ _%h106452%_)) + (lambda (_%h106558%_ _%key106559%_ _%update106560%_ _%default106561%_) + (let* ((_%h106567%_ + (let ((_%$obj106564%_ _%h106558%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106458%_)) + (##structure? _%$obj106564%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106458%_))) + (##structure-type _%$obj106564%_))) '#t) - _%$obj106458%_ + _%$obj106564%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106458%_))))) - (_%h106463%_ _%h106461%_)) + (cast HashTable::interface _%$obj106564%_))))) + (_%h106569%_ _%h106567%_)) (__hash-update!__% - _%h106463%_ - _%key106453%_ - _%update106454%_ - _%default106455%_)))) + _%h106569%_ + _%key106559%_ + _%update106560%_ + _%default106561%_)))) (define hash-update!__0 - (lambda (_%h106476%_ _%key106477%_ _%update106478%_) - (let ((_%default106480%_ '#!void)) + (lambda (_%h106582%_ _%key106583%_ _%update106584%_) + (let ((_%default106586%_ '#!void)) (hash-update!__% - _%h106476%_ - _%key106477%_ - _%update106478%_ - _%default106480%_)))) + _%h106582%_ + _%key106583%_ + _%update106584%_ + _%default106586%_)))) (define hash-update! - (lambda _g110167_ - (let ((_g110166_ (let () (declare (not safe)) (##length _g110167_)))) - (cond ((let () (declare (not safe)) (##fx= _g110166_ 3)) - (apply hash-update!__0 _g110167_)) - ((let () (declare (not safe)) (##fx= _g110166_ 4)) - (apply hash-update!__% _g110167_)) + (lambda _g110273_ + (let ((_g110272_ (let () (declare (not safe)) (##length _g110273_)))) + (cond ((let () (declare (not safe)) (##fx= _g110272_ 3)) + (apply hash-update!__0 _g110273_)) + ((let () (declare (not safe)) (##fx= _g110272_ 4)) + (apply hash-update!__% _g110273_)) (else (##raise-wrong-number-of-arguments-exception hash-update! - _g110167_)))))) + _g110273_)))))) (define __hash-update!__% - (lambda (_%h106422%_ _%key106423%_ _%update106424%_ _%default106425%_) - (let ((_%h106428%_ _%h106422%_)) + (lambda (_%h106528%_ _%key106529%_ _%update106530%_ _%default106531%_) + (let ((_%h106534%_ _%h106528%_)) (HashTable-update! - _%h106428%_ - _%key106423%_ - _%update106424%_ - _%default106425%_)))) + _%h106534%_ + _%key106529%_ + _%update106530%_ + _%default106531%_)))) (define __hash-update!__0 - (lambda (_%h106440%_ _%key106441%_ _%update106442%_) - (let ((_%default106444%_ '#!void)) + (lambda (_%h106546%_ _%key106547%_ _%update106548%_) + (let ((_%default106550%_ '#!void)) (__hash-update!__% - _%h106440%_ - _%key106441%_ - _%update106442%_ - _%default106444%_)))) + _%h106546%_ + _%key106547%_ + _%update106548%_ + _%default106550%_)))) (define __hash-update! - (lambda _g110169_ - (let ((_g110168_ (let () (declare (not safe)) (##length _g110169_)))) - (cond ((let () (declare (not safe)) (##fx= _g110168_ 3)) - (apply __hash-update!__0 _g110169_)) - ((let () (declare (not safe)) (##fx= _g110168_ 4)) - (apply __hash-update!__% _g110169_)) + (lambda _g110275_ + (let ((_g110274_ (let () (declare (not safe)) (##length _g110275_)))) + (cond ((let () (declare (not safe)) (##fx= _g110274_ 3)) + (apply __hash-update!__0 _g110275_)) + ((let () (declare (not safe)) (##fx= _g110274_ 4)) + (apply __hash-update!__% _g110275_)) (else (##raise-wrong-number-of-arguments-exception __hash-update! - _g110169_)))))) + _g110275_)))))) (define hash-remove! - (lambda (_%h106402%_ _%key106403%_) - (let* ((_%h106409%_ - (let ((_%$obj106406%_ _%h106402%_)) + (lambda (_%h106508%_ _%key106509%_) + (let* ((_%h106515%_ + (let ((_%$obj106512%_ _%h106508%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106406%_)) + (##structure? _%$obj106512%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106406%_))) + (##structure-type _%$obj106512%_))) '#t) - _%$obj106406%_ + _%$obj106512%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106406%_))))) - (_%h106411%_ _%h106409%_)) - (__hash-remove! _%h106411%_ _%key106403%_)))) + (cast HashTable::interface _%$obj106512%_))))) + (_%h106517%_ _%h106515%_)) + (__hash-remove! _%h106517%_ _%key106509%_)))) (define __hash-remove! - (lambda (_%h106389%_ _%key106390%_) - (let ((_%h106393%_ _%h106389%_)) - (&HashTable-delete! _%h106393%_ _%key106390%_)))) + (lambda (_%h106495%_ _%key106496%_) + (let ((_%h106499%_ _%h106495%_)) + (&HashTable-delete! _%h106499%_ _%key106496%_)))) (define hash-key? - (lambda (_%h106370%_ _%k106371%_) - (let* ((_%h106377%_ - (let ((_%$obj106374%_ _%h106370%_)) + (lambda (_%h106476%_ _%k106477%_) + (let* ((_%h106483%_ + (let ((_%$obj106480%_ _%h106476%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106374%_)) + (##structure? _%$obj106480%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106374%_))) + (##structure-type _%$obj106480%_))) '#t) - _%$obj106374%_ + _%$obj106480%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106374%_))))) - (_%h106379%_ _%h106377%_)) - (__hash-key? _%h106379%_ _%k106371%_)))) + (cast HashTable::interface _%$obj106480%_))))) + (_%h106485%_ _%h106483%_)) + (__hash-key? _%h106485%_ _%k106477%_)))) (define __hash-key? - (lambda (_%h106357%_ _%k106358%_) - (let ((_%h106361%_ _%h106357%_)) - (not (eq? (&HashTable-ref _%h106361%_ _%k106358%_ absent-value) + (lambda (_%h106463%_ _%k106464%_) + (let ((_%h106467%_ _%h106463%_)) + (not (eq? (&HashTable-ref _%h106467%_ _%k106464%_ absent-value) absent-value))))) (define hash->list - (lambda (_%h106339%_) - (let* ((_%h106345%_ - (let ((_%$obj106342%_ _%h106339%_)) + (lambda (_%h106445%_) + (let* ((_%h106451%_ + (let ((_%$obj106448%_ _%h106445%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106342%_)) + (##structure? _%$obj106448%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106342%_))) + (##structure-type _%$obj106448%_))) '#t) - _%$obj106342%_ + _%$obj106448%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106342%_))))) - (_%h106347%_ _%h106345%_)) - (__hash->list _%h106347%_)))) + (cast HashTable::interface _%$obj106448%_))))) + (_%h106453%_ _%h106451%_)) + (__hash->list _%h106453%_)))) (define __hash->list - (lambda (_%h106322%_) - (let* ((_%h106325%_ _%h106322%_) (_%lst106334%_ '())) + (lambda (_%h106428%_) + (let* ((_%h106431%_ _%h106428%_) (_%lst106440%_ '())) (&HashTable-for-each - _%h106325%_ - (lambda (_%k106336%_ _%v106337%_) - (set! _%lst106334%_ - (cons (cons _%k106336%_ _%v106337%_) _%lst106334%_)))) - _%lst106334%_))) + _%h106431%_ + (lambda (_%k106442%_ _%v106443%_) + (set! _%lst106440%_ + (cons (cons _%k106442%_ _%v106443%_) _%lst106440%_)))) + _%lst106440%_))) (define hash->plist - (lambda (_%h106304%_) - (let* ((_%h106310%_ - (let ((_%$obj106307%_ _%h106304%_)) + (lambda (_%h106410%_) + (let* ((_%h106416%_ + (let ((_%$obj106413%_ _%h106410%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106307%_)) + (##structure? _%$obj106413%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106307%_))) + (##structure-type _%$obj106413%_))) '#t) - _%$obj106307%_ + _%$obj106413%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106307%_))))) - (_%h106312%_ _%h106310%_)) - (__hash->plist _%h106312%_)))) + (cast HashTable::interface _%$obj106413%_))))) + (_%h106418%_ _%h106416%_)) + (__hash->plist _%h106418%_)))) (define __hash->plist - (lambda (_%h106287%_) - (let* ((_%h106290%_ _%h106287%_) (_%lst106299%_ '())) + (lambda (_%h106393%_) + (let* ((_%h106396%_ _%h106393%_) (_%lst106405%_ '())) (&HashTable-for-each - _%h106290%_ - (lambda (_%k106301%_ _%v106302%_) - (set! _%lst106299%_ - (cons _%k106301%_ (cons _%v106302%_ _%lst106299%_))))) - _%lst106299%_))) + _%h106396%_ + (lambda (_%k106407%_ _%v106408%_) + (set! _%lst106405%_ + (cons _%k106407%_ (cons _%v106408%_ _%lst106405%_))))) + _%lst106405%_))) (define hash-for-each - (lambda (_%proc106258%_ _%h106259%_) - (if (procedure? _%proc106258%_) - (let* ((_%proc106263%_ _%proc106258%_) - (_%h106275%_ - (let ((_%$obj106272%_ _%h106259%_)) + (lambda (_%proc106364%_ _%h106365%_) + (if (procedure? _%proc106364%_) + (let* ((_%proc106369%_ _%proc106364%_) + (_%h106381%_ + (let ((_%$obj106378%_ _%h106365%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106272%_)) + (##structure? _%$obj106378%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106272%_))) + (##structure-type _%$obj106378%_))) '#t) - _%$obj106272%_ + _%$obj106378%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106272%_))))) - (_%h106277%_ _%h106275%_)) - (__hash-for-each _%proc106263%_ _%h106277%_)) + (cast HashTable::interface _%$obj106378%_))))) + (_%h106383%_ _%h106381%_)) + (__hash-for-each _%proc106369%_ _%h106383%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2545,32 +2545,32 @@ 'contract: 'procedure? 'value: - _%proc106258%_) + _%proc106364%_) '#!void)))) (define __hash-for-each - (lambda (_%proc106237%_ _%h106238%_) - (let* ((_%proc106241%_ _%proc106237%_) (_%h106249%_ _%h106238%_)) - (&HashTable-for-each _%h106249%_ _%proc106241%_)))) + (lambda (_%proc106343%_ _%h106344%_) + (let* ((_%proc106347%_ _%proc106343%_) (_%h106355%_ _%h106344%_)) + (&HashTable-for-each _%h106355%_ _%proc106347%_)))) (define hash-map - (lambda (_%proc106208%_ _%h106209%_) - (if (procedure? _%proc106208%_) - (let* ((_%proc106213%_ _%proc106208%_) - (_%h106225%_ - (let ((_%$obj106222%_ _%h106209%_)) + (lambda (_%proc106314%_ _%h106315%_) + (if (procedure? _%proc106314%_) + (let* ((_%proc106319%_ _%proc106314%_) + (_%h106331%_ + (let ((_%$obj106328%_ _%h106315%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106222%_)) + (##structure? _%$obj106328%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106222%_))) + (##structure-type _%$obj106328%_))) '#t) - _%$obj106222%_ + _%$obj106328%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106222%_))))) - (_%h106227%_ _%h106225%_)) - (__hash-map _%proc106213%_ _%h106227%_)) + (cast HashTable::interface _%$obj106328%_))))) + (_%h106333%_ _%h106331%_)) + (__hash-map _%proc106319%_ _%h106333%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2579,42 +2579,42 @@ 'contract: 'procedure? 'value: - _%proc106208%_) + _%proc106314%_) '#!void)))) (define __hash-map - (lambda (_%proc106182%_ _%h106183%_) - (let* ((_%proc106186%_ _%proc106182%_) - (_%h106194%_ _%h106183%_) - (_%result106203%_ '())) + (lambda (_%proc106288%_ _%h106289%_) + (let* ((_%proc106292%_ _%proc106288%_) + (_%h106300%_ _%h106289%_) + (_%result106309%_ '())) (&HashTable-for-each - _%h106194%_ - (lambda (_%k106205%_ _%v106206%_) - (set! _%result106203%_ + _%h106300%_ + (lambda (_%k106311%_ _%v106312%_) + (set! _%result106309%_ (cons (let () (declare (not safe)) - (_%proc106186%_ _%k106205%_ _%v106206%_)) - _%result106203%_)))) - _%result106203%_))) + (_%proc106292%_ _%k106311%_ _%v106312%_)) + _%result106309%_)))) + _%result106309%_))) (define hash-fold - (lambda (_%proc106152%_ _%iv106153%_ _%h106154%_) - (if (procedure? _%proc106152%_) - (let* ((_%proc106158%_ _%proc106152%_) - (_%h106170%_ - (let ((_%$obj106167%_ _%h106154%_)) + (lambda (_%proc106258%_ _%iv106259%_ _%h106260%_) + (if (procedure? _%proc106258%_) + (let* ((_%proc106264%_ _%proc106258%_) + (_%h106276%_ + (let ((_%$obj106273%_ _%h106260%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106167%_)) + (##structure? _%$obj106273%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106167%_))) + (##structure-type _%$obj106273%_))) '#t) - _%$obj106167%_ + _%$obj106273%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106167%_))))) - (_%h106172%_ _%h106170%_)) - (__hash-fold _%proc106158%_ _%iv106153%_ _%h106172%_)) + (cast HashTable::interface _%$obj106273%_))))) + (_%h106278%_ _%h106276%_)) + (__hash-fold _%proc106264%_ _%iv106259%_ _%h106278%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2623,47 +2623,47 @@ 'contract: 'procedure? 'value: - _%proc106152%_) + _%proc106258%_) '#!void)))) (define __hash-fold - (lambda (_%proc106125%_ _%iv106126%_ _%h106127%_) - (let* ((_%proc106130%_ _%proc106125%_) - (_%h106138%_ _%h106127%_) - (_%result106147%_ _%iv106126%_)) + (lambda (_%proc106231%_ _%iv106232%_ _%h106233%_) + (let* ((_%proc106236%_ _%proc106231%_) + (_%h106244%_ _%h106233%_) + (_%result106253%_ _%iv106232%_)) (&HashTable-for-each - _%h106138%_ - (lambda (_%k106149%_ _%v106150%_) - (set! _%result106147%_ + _%h106244%_ + (lambda (_%k106255%_ _%v106256%_) + (set! _%result106253%_ (let () (declare (not safe)) - (_%proc106130%_ - _%k106149%_ - _%v106150%_ - _%result106147%_))))) - _%result106147%_))) + (_%proc106236%_ + _%k106255%_ + _%v106256%_ + _%result106253%_))))) + _%result106253%_))) (define hash-find__% - (lambda (_%proc106083%_ _%h106084%_ _%default-value106085%_) - (if (procedure? _%proc106083%_) - (let* ((_%proc106089%_ _%proc106083%_) - (_%h106101%_ - (let ((_%$obj106098%_ _%h106084%_)) + (lambda (_%proc106189%_ _%h106190%_ _%default-value106191%_) + (if (procedure? _%proc106189%_) + (let* ((_%proc106195%_ _%proc106189%_) + (_%h106207%_ + (let ((_%$obj106204%_ _%h106190%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106098%_)) + (##structure? _%$obj106204%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106098%_))) + (##structure-type _%$obj106204%_))) '#t) - _%$obj106098%_ + _%$obj106204%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106098%_))))) - (_%h106103%_ _%h106101%_)) + (cast HashTable::interface _%$obj106204%_))))) + (_%h106209%_ _%h106207%_)) (__hash-find__% - _%proc106089%_ - _%h106103%_ - _%default-value106085%_)) + _%proc106195%_ + _%h106209%_ + _%default-value106191%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2672,229 +2672,229 @@ 'contract: 'procedure? 'value: - _%proc106083%_) + _%proc106189%_) '#!void)))) (define hash-find__0 - (lambda (_%proc106116%_ _%h106117%_) - (let ((_%default-value106119%_ '#f)) - (hash-find__% _%proc106116%_ _%h106117%_ _%default-value106119%_)))) + (lambda (_%proc106222%_ _%h106223%_) + (let ((_%default-value106225%_ '#f)) + (hash-find__% _%proc106222%_ _%h106223%_ _%default-value106225%_)))) (define hash-find - (lambda _g110171_ - (let ((_g110170_ (let () (declare (not safe)) (##length _g110171_)))) - (cond ((let () (declare (not safe)) (##fx= _g110170_ 2)) - (apply hash-find__0 _g110171_)) - ((let () (declare (not safe)) (##fx= _g110170_ 3)) - (apply hash-find__% _g110171_)) + (lambda _g110277_ + (let ((_g110276_ (let () (declare (not safe)) (##length _g110277_)))) + (cond ((let () (declare (not safe)) (##fx= _g110276_ 2)) + (apply hash-find__0 _g110277_)) + ((let () (declare (not safe)) (##fx= _g110276_ 3)) + (apply hash-find__% _g110277_)) (else (##raise-wrong-number-of-arguments-exception hash-find - _g110171_)))))) + _g110277_)))))) (define __hash-find__% - (lambda (_%proc106040%_ _%h106041%_ _%default-value106042%_) - (let* ((_%proc106045%_ _%proc106040%_) - (_%h106053%_ _%h106041%_) - (__tmp110172 - (lambda (_%return106062%_) + (lambda (_%proc106146%_ _%h106147%_ _%default-value106148%_) + (let* ((_%proc106151%_ _%proc106146%_) + (_%h106159%_ _%h106147%_) + (__tmp110278 + (lambda (_%return106168%_) (&HashTable-for-each - _%h106053%_ - (lambda (_%k106064%_ _%v106065%_) - (let ((_%$e106067%_ + _%h106159%_ + (lambda (_%k106170%_ _%v106171%_) + (let ((_%$e106173%_ (let () (declare (not safe)) - (_%proc106045%_ _%k106064%_ _%v106065%_)))) - (if _%$e106067%_ - (_%return106062%_ _%$e106067%_) + (_%proc106151%_ _%k106170%_ _%v106171%_)))) + (if _%$e106173%_ + (_%return106168%_ _%$e106173%_) '#!void)))) - _%default-value106042%_))) + _%default-value106148%_))) (declare (not safe)) - (##call-with-current-continuation __tmp110172)))) + (##call-with-current-continuation __tmp110278)))) (define __hash-find__0 - (lambda (_%proc106073%_ _%h106074%_) - (let ((_%default-value106076%_ '#f)) + (lambda (_%proc106179%_ _%h106180%_) + (let ((_%default-value106182%_ '#f)) (__hash-find__% - _%proc106073%_ - _%h106074%_ - _%default-value106076%_)))) + _%proc106179%_ + _%h106180%_ + _%default-value106182%_)))) (define __hash-find - (lambda _g110174_ - (let ((_g110173_ (let () (declare (not safe)) (##length _g110174_)))) - (cond ((let () (declare (not safe)) (##fx= _g110173_ 2)) - (apply __hash-find__0 _g110174_)) - ((let () (declare (not safe)) (##fx= _g110173_ 3)) - (apply __hash-find__% _g110174_)) + (lambda _g110280_ + (let ((_g110279_ (let () (declare (not safe)) (##length _g110280_)))) + (cond ((let () (declare (not safe)) (##fx= _g110279_ 2)) + (apply __hash-find__0 _g110280_)) + ((let () (declare (not safe)) (##fx= _g110279_ 3)) + (apply __hash-find__% _g110280_)) (else (##raise-wrong-number-of-arguments-exception __hash-find - _g110174_)))))) + _g110280_)))))) (define hash-keys - (lambda (_%h106021%_) - (let* ((_%h106027%_ - (let ((_%$obj106024%_ _%h106021%_)) + (lambda (_%h106127%_) + (let* ((_%h106133%_ + (let ((_%$obj106130%_ _%h106127%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj106024%_)) + (##structure? _%$obj106130%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj106024%_))) + (##structure-type _%$obj106130%_))) '#t) - _%$obj106024%_ + _%$obj106130%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj106024%_))))) - (_%h106029%_ _%h106027%_)) - (__hash-keys _%h106029%_)))) + (cast HashTable::interface _%$obj106130%_))))) + (_%h106135%_ _%h106133%_)) + (__hash-keys _%h106135%_)))) (define __hash-keys - (lambda (_%h106004%_) - (let* ((_%h106007%_ _%h106004%_) (_%result106016%_ '())) + (lambda (_%h106110%_) + (let* ((_%h106113%_ _%h106110%_) (_%result106122%_ '())) (&HashTable-for-each - _%h106007%_ - (lambda (_%k106018%_ _%v106019%_) - (set! _%result106016%_ (cons _%k106018%_ _%result106016%_)))) - _%result106016%_))) + _%h106113%_ + (lambda (_%k106124%_ _%v106125%_) + (set! _%result106122%_ (cons _%k106124%_ _%result106122%_)))) + _%result106122%_))) (define hash-values - (lambda (_%h105986%_) - (let* ((_%h105992%_ - (let ((_%$obj105989%_ _%h105986%_)) + (lambda (_%h106092%_) + (let* ((_%h106098%_ + (let ((_%$obj106095%_ _%h106092%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105989%_)) + (##structure? _%$obj106095%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105989%_))) + (##structure-type _%$obj106095%_))) '#t) - _%$obj105989%_ + _%$obj106095%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105989%_))))) - (_%h105994%_ _%h105992%_)) - (__hash-values _%h105994%_)))) + (cast HashTable::interface _%$obj106095%_))))) + (_%h106100%_ _%h106098%_)) + (__hash-values _%h106100%_)))) (define __hash-values - (lambda (_%h105969%_) - (let* ((_%h105972%_ _%h105969%_) (_%result105981%_ '())) + (lambda (_%h106075%_) + (let* ((_%h106078%_ _%h106075%_) (_%result106087%_ '())) (&HashTable-for-each - _%h105972%_ - (lambda (_%k105983%_ _%v105984%_) - (set! _%result105981%_ (cons _%v105984%_ _%result105981%_)))) - _%result105981%_))) + _%h106078%_ + (lambda (_%k106089%_ _%v106090%_) + (set! _%result106087%_ (cons _%v106090%_ _%result106087%_)))) + _%result106087%_))) (define hash-copy - (lambda (_%h105951%_) - (let* ((_%h105957%_ - (let ((_%$obj105954%_ _%h105951%_)) + (lambda (_%h106057%_) + (let* ((_%h106063%_ + (let ((_%$obj106060%_ _%h106057%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105954%_)) + (##structure? _%$obj106060%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105954%_))) + (##structure-type _%$obj106060%_))) '#t) - _%$obj105954%_ + _%$obj106060%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105954%_))))) - (_%h105959%_ _%h105957%_)) - (__hash-copy _%h105959%_)))) + (cast HashTable::interface _%$obj106060%_))))) + (_%h106065%_ _%h106063%_)) + (__hash-copy _%h106065%_)))) (define __hash-copy - (lambda (_%h105939%_) - (let ((_%h105942%_ _%h105939%_)) (__HashTable-copy _%h105942%_)))) + (lambda (_%h106045%_) + (let ((_%h106048%_ _%h106045%_)) (__HashTable-copy _%h106048%_)))) (define hash-clear! - (lambda (_%h105921%_) - (let* ((_%h105927%_ - (let ((_%$obj105924%_ _%h105921%_)) + (lambda (_%h106027%_) + (let* ((_%h106033%_ + (let ((_%$obj106030%_ _%h106027%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105924%_)) + (##structure? _%$obj106030%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105924%_))) + (##structure-type _%$obj106030%_))) '#t) - _%$obj105924%_ + _%$obj106030%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105924%_))))) - (_%h105929%_ _%h105927%_)) - (__hash-clear! _%h105929%_)))) + (cast HashTable::interface _%$obj106030%_))))) + (_%h106035%_ _%h106033%_)) + (__hash-clear! _%h106035%_)))) (define __hash-clear! - (lambda (_%h105909%_) - (let ((_%h105912%_ _%h105909%_)) (&HashTable-clear! _%h105912%_)))) + (lambda (_%h106015%_) + (let ((_%h106018%_ _%h106015%_)) (&HashTable-clear! _%h106018%_)))) (define hash-merge - (lambda (_%h105890%_ . _%rest105891%_) - (let* ((_%h105897%_ - (let ((_%$obj105894%_ _%h105890%_)) + (lambda (_%h105996%_ . _%rest105997%_) + (let* ((_%h106003%_ + (let ((_%$obj106000%_ _%h105996%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105894%_)) + (##structure? _%$obj106000%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105894%_))) + (##structure-type _%$obj106000%_))) '#t) - _%$obj105894%_ + _%$obj106000%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105894%_))))) - (_%h105899%_ _%h105897%_)) + (cast HashTable::interface _%$obj106000%_))))) + (_%h106005%_ _%h106003%_)) (declare (not safe)) - (##apply __hash-merge _%h105899%_ _%rest105891%_)))) + (##apply __hash-merge _%h106005%_ _%rest105997%_)))) (define __hash-merge - (lambda (_%h105875%_ . _%rest105876%_) - (let* ((_%h105879%_ _%h105875%_) - (_%copy105888%_ (__HashTable-copy _%h105879%_))) - (apply hash-merge! _%copy105888%_ _%rest105876%_) - _%copy105888%_))) + (lambda (_%h105981%_ . _%rest105982%_) + (let* ((_%h105985%_ _%h105981%_) + (_%copy105994%_ (__HashTable-copy _%h105985%_))) + (apply hash-merge! _%copy105994%_ _%rest105982%_) + _%copy105994%_))) (define hash-merge! - (lambda (_%h105856%_ . _%rest105857%_) - (let* ((_%h105863%_ - (let ((_%$obj105860%_ _%h105856%_)) + (lambda (_%h105962%_ . _%rest105963%_) + (let* ((_%h105969%_ + (let ((_%$obj105966%_ _%h105962%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105860%_)) + (##structure? _%$obj105966%_)) (eq? HashTable::t (let () (declare (not safe)) - (##structure-type _%$obj105860%_))) + (##structure-type _%$obj105966%_))) '#t) - _%$obj105860%_ + _%$obj105966%_ (let () (declare (not safe)) - (cast HashTable::interface _%$obj105860%_))))) - (_%h105865%_ _%h105863%_)) + (cast HashTable::interface _%$obj105966%_))))) + (_%h105971%_ _%h105969%_)) (declare (not safe)) - (##apply __hash-merge! _%h105865%_ _%rest105857%_)))) + (##apply __hash-merge! _%h105971%_ _%rest105963%_)))) (define __hash-merge! - (lambda (_%h105819%_ . _%rest105820%_) - (let ((_%h105823%_ _%h105819%_)) - (let ((__tmp110175 - (lambda (_%hr105832%_) - (let* ((_%hr105838%_ - (let ((_%$obj105835%_ _%hr105832%_)) + (lambda (_%h105925%_ . _%rest105926%_) + (let ((_%h105929%_ _%h105925%_)) + (let ((__tmp110281 + (lambda (_%hr105938%_) + (let* ((_%hr105944%_ + (let ((_%$obj105941%_ _%hr105938%_)) (if (and (let () (declare (not safe)) - (##structure? _%$obj105835%_)) + (##structure? _%$obj105941%_)) (eq? HashTable::t (let () (declare (not safe)) (##structure-type - _%$obj105835%_))) + _%$obj105941%_))) '#t) - _%$obj105835%_ + _%$obj105941%_ (let () (declare (not safe)) (cast HashTable::interface - _%$obj105835%_))))) - (_%hr105840%_ _%hr105838%_)) + _%$obj105941%_))))) + (_%hr105946%_ _%hr105944%_)) (&HashTable-for-each - _%hr105840%_ - (lambda (_%k105853%_ _%v105854%_) - (if (__hash-key? _%h105823%_ _%k105853%_) + _%hr105946%_ + (lambda (_%k105959%_ _%v105960%_) + (if (__hash-key? _%h105929%_ _%k105959%_) '#!void (&HashTable-set! - _%h105823%_ - _%k105853%_ - _%v105854%_)))))))) + _%h105929%_ + _%k105959%_ + _%v105960%_)))))))) (declare (not safe)) - (##for-each __tmp110175 _%rest105820%_)) - _%h105823%_))))) + (##for-each __tmp110281 _%rest105926%_)) + _%h105929%_))))) diff --git a/src/bootstrap/gerbil/runtime/hash~1.scm b/src/bootstrap/gerbil/runtime/hash~1.scm index e428fb416..4f821d6c2 100644 --- a/src/bootstrap/gerbil/runtime/hash~1.scm +++ b/src/bootstrap/gerbil/runtime/hash~1.scm @@ -1,552 +1,552 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g110177_| + (define |[1]#_g110283_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g110179_| + (define |[1]#_g110285_| (##structure gx#syntax-quote::t 'UnboundKeyError::t #f (gx#current-expander-context) '())) - (define |[1]#_g110181_| + (define |[1]#_g110287_| (##structure gx#syntax-quote::t 'make-UnboundKeyError #f (gx#current-expander-context) '())) - (define |[1]#_g110183_| + (define |[1]#_g110289_| (##structure gx#syntax-quote::t 'UnboundKeyError? #f (gx#current-expander-context) '())) - (define |[1]#_g110185_| + (define |[1]#_g110291_| (##structure gx#syntax-quote::t 'UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110186_| + (define |[1]#_g110292_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110187_| + (define |[1]#_g110293_| (##structure gx#syntax-quote::t 'UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110188_| + (define |[1]#_g110294_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110190_| + (define |[1]#_g110296_| (##structure gx#syntax-quote::t 'UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110191_| + (define |[1]#_g110297_| (##structure gx#syntax-quote::t 'UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110192_| + (define |[1]#_g110298_| (##structure gx#syntax-quote::t 'UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110193_| + (define |[1]#_g110299_| (##structure gx#syntax-quote::t 'UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110195_| + (define |[1]#_g110301_| (##structure gx#syntax-quote::t '&UnboundKeyError-message #f (gx#current-expander-context) '())) - (define |[1]#_g110196_| + (define |[1]#_g110302_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g110197_| + (define |[1]#_g110303_| (##structure gx#syntax-quote::t '&UnboundKeyError-where #f (gx#current-expander-context) '())) - (define |[1]#_g110198_| + (define |[1]#_g110304_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g110200_| + (define |[1]#_g110306_| (##structure gx#syntax-quote::t '&UnboundKeyError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110201_| + (define |[1]#_g110307_| (##structure gx#syntax-quote::t '&UnboundKeyError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110202_| + (define |[1]#_g110308_| (##structure gx#syntax-quote::t '&UnboundKeyError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110203_| + (define |[1]#_g110309_| (##structure gx#syntax-quote::t '&UnboundKeyError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110205_| + (define |[1]#_g110311_| (##structure gx#syntax-quote::t 'HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110207_| + (define |[1]#_g110313_| (##structure gx#syntax-quote::t 'HashTable::t #f (gx#current-expander-context) '())) - (define |[1]#_g110209_| + (define |[1]#_g110315_| (##structure gx#syntax-quote::t 'HashTable::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110211_| + (define |[1]#_g110317_| (##structure gx#syntax-quote::t 'make-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110213_| + (define |[1]#_g110319_| (##structure gx#syntax-quote::t 'try-HashTable #f (gx#current-expander-context) '())) - (define |[1]#_g110215_| + (define |[1]#_g110321_| (##structure gx#syntax-quote::t 'HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110217_| + (define |[1]#_g110323_| (##structure gx#syntax-quote::t 'is-HashTable? #f (gx#current-expander-context) '())) - (define |[1]#_g110219_| + (define |[1]#_g110325_| (##structure gx#syntax-quote::t 'HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110220_| + (define |[1]#_g110326_| (##structure gx#syntax-quote::t 'HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110221_| + (define |[1]#_g110327_| (##structure gx#syntax-quote::t 'HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110222_| + (define |[1]#_g110328_| (##structure gx#syntax-quote::t 'HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110223_| + (define |[1]#_g110329_| (##structure gx#syntax-quote::t 'HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110224_| + (define |[1]#_g110330_| (##structure gx#syntax-quote::t 'HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110225_| + (define |[1]#_g110331_| (##structure gx#syntax-quote::t 'HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110226_| + (define |[1]#_g110332_| (##structure gx#syntax-quote::t 'HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110228_| + (define |[1]#_g110334_| (##structure gx#syntax-quote::t '&HashTable-clear! #f (gx#current-expander-context) '())) - (define |[1]#_g110229_| + (define |[1]#_g110335_| (##structure gx#syntax-quote::t '&HashTable-copy #f (gx#current-expander-context) '())) - (define |[1]#_g110230_| + (define |[1]#_g110336_| (##structure gx#syntax-quote::t '&HashTable-delete! #f (gx#current-expander-context) '())) - (define |[1]#_g110231_| + (define |[1]#_g110337_| (##structure gx#syntax-quote::t '&HashTable-for-each #f (gx#current-expander-context) '())) - (define |[1]#_g110232_| + (define |[1]#_g110338_| (##structure gx#syntax-quote::t '&HashTable-length #f (gx#current-expander-context) '())) - (define |[1]#_g110233_| + (define |[1]#_g110339_| (##structure gx#syntax-quote::t '&HashTable-ref #f (gx#current-expander-context) '())) - (define |[1]#_g110234_| + (define |[1]#_g110340_| (##structure gx#syntax-quote::t '&HashTable-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110235_| + (define |[1]#_g110341_| (##structure gx#syntax-quote::t '&HashTable-update! #f (gx#current-expander-context) '())) - (define |[1]#_g110237_| + (define |[1]#_g110343_| (##structure gx#syntax-quote::t 'Locker::t #f (gx#current-expander-context) '())) - (define |[1]#_g110239_| + (define |[1]#_g110345_| (##structure gx#syntax-quote::t 'Locker::interface #f (gx#current-expander-context) '())) - (define |[1]#_g110241_| + (define |[1]#_g110347_| (##structure gx#syntax-quote::t 'make-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110243_| + (define |[1]#_g110349_| (##structure gx#syntax-quote::t 'try-Locker #f (gx#current-expander-context) '())) - (define |[1]#_g110245_| + (define |[1]#_g110351_| (##structure gx#syntax-quote::t 'Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110247_| + (define |[1]#_g110353_| (##structure gx#syntax-quote::t 'is-Locker? #f (gx#current-expander-context) '())) - (define |[1]#_g110249_| + (define |[1]#_g110355_| (##structure gx#syntax-quote::t 'Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110250_| + (define |[1]#_g110356_| (##structure gx#syntax-quote::t 'Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110251_| + (define |[1]#_g110357_| (##structure gx#syntax-quote::t 'Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110252_| + (define |[1]#_g110358_| (##structure gx#syntax-quote::t 'Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110254_| + (define |[1]#_g110360_| (##structure gx#syntax-quote::t '&Locker-read-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110255_| + (define |[1]#_g110361_| (##structure gx#syntax-quote::t '&Locker-read-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110256_| + (define |[1]#_g110362_| (##structure gx#syntax-quote::t '&Locker-write-lock! #f (gx#current-expander-context) '())) - (define |[1]#_g110257_| + (define |[1]#_g110363_| (##structure gx#syntax-quote::t '&Locker-write-unlock! #f (gx#current-expander-context) '())) - (define |[1]#_g110259_| + (define |[1]#_g110365_| (##structure gx#syntax-quote::t 'locked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110261_| + (define |[1]#_g110367_| (##structure gx#syntax-quote::t 'make-locked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110263_| + (define |[1]#_g110369_| (##structure gx#syntax-quote::t 'locked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110265_| + (define |[1]#_g110371_| (##structure gx#syntax-quote::t 'locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110266_| + (define |[1]#_g110372_| (##structure gx#syntax-quote::t 'locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110268_| + (define |[1]#_g110374_| (##structure gx#syntax-quote::t 'locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110269_| + (define |[1]#_g110375_| (##structure gx#syntax-quote::t 'locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110271_| + (define |[1]#_g110377_| (##structure gx#syntax-quote::t '&locked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110272_| + (define |[1]#_g110378_| (##structure gx#syntax-quote::t '&locked-hash-table-lock #f (gx#current-expander-context) '())) - (define |[1]#_g110274_| + (define |[1]#_g110380_| (##structure gx#syntax-quote::t '&locked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110275_| + (define |[1]#_g110381_| (##structure gx#syntax-quote::t '&locked-hash-table-lock-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110277_| + (define |[1]#_g110383_| (##structure gx#syntax-quote::t 'checked-hash-table::t #f (gx#current-expander-context) '())) - (define |[1]#_g110279_| + (define |[1]#_g110385_| (##structure gx#syntax-quote::t 'make-checked-hash-table #f (gx#current-expander-context) '())) - (define |[1]#_g110281_| + (define |[1]#_g110387_| (##structure gx#syntax-quote::t 'checked-hash-table? #f (gx#current-expander-context) '())) - (define |[1]#_g110283_| + (define |[1]#_g110389_| (##structure gx#syntax-quote::t 'checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110284_| + (define |[1]#_g110390_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110286_| + (define |[1]#_g110392_| (##structure gx#syntax-quote::t 'checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110287_| + (define |[1]#_g110393_| (##structure gx#syntax-quote::t 'checked-hash-table-key-check-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110289_| + (define |[1]#_g110395_| (##structure gx#syntax-quote::t '&checked-hash-table-table #f (gx#current-expander-context) '())) - (define |[1]#_g110290_| + (define |[1]#_g110396_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check #f (gx#current-expander-context) '())) - (define |[1]#_g110292_| + (define |[1]#_g110398_| (##structure gx#syntax-quote::t '&checked-hash-table-table-set! #f (gx#current-expander-context) '())) - (define |[1]#_g110293_| + (define |[1]#_g110399_| (##structure gx#syntax-quote::t '&checked-hash-table-key-check-set! @@ -555,7 +555,7 @@ '())) (begin (define |[:0:]#UnboundKeyError| - (let ((__obj110086 + (let ((__obj110192 (let () (declare (not safe)) (##structure @@ -584,104 +584,104 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110086 + __obj110192 'gerbil/runtime/hash#UnboundKeyError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 'UnboundKeyError '2 '#f '#f)) + (##unchecked-structure-set! __obj110192 'UnboundKeyError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj110192 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110086 + __obj110192 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp110176 (cons |[1]#_g110177_| '()))) + (let ((__tmp110282 (cons |[1]#_g110283_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110176 '3 '#f '#f)) + (##unchecked-structure-set! __obj110192 __tmp110282 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj110192 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj110192 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110192 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 ':init! '11 '#f '#f)) - (let ((__tmp110178 |[1]#_g110179_|)) + (##unchecked-structure-set! __obj110192 ':init! '11 '#f '#f)) + (let ((__tmp110284 |[1]#_g110285_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110178 '12 '#f '#f)) - (let ((__tmp110180 |[1]#_g110181_|)) + (##unchecked-structure-set! __obj110192 __tmp110284 '12 '#f '#f)) + (let ((__tmp110286 |[1]#_g110287_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110180 '13 '#f '#f)) - (let ((__tmp110182 |[1]#_g110183_|)) + (##unchecked-structure-set! __obj110192 __tmp110286 '13 '#f '#f)) + (let ((__tmp110288 |[1]#_g110289_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110182 '14 '#f '#f)) - (let ((__tmp110184 - (cons (cons 'message |[1]#_g110185_|) - (cons (cons 'irritants |[1]#_g110186_|) - (cons (cons 'where |[1]#_g110187_|) - (cons (cons 'continuation |[1]#_g110188_|) + (##unchecked-structure-set! __obj110192 __tmp110288 '14 '#f '#f)) + (let ((__tmp110290 + (cons (cons 'message |[1]#_g110291_|) + (cons (cons 'irritants |[1]#_g110292_|) + (cons (cons 'where |[1]#_g110293_|) + (cons (cons 'continuation |[1]#_g110294_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110184 '15 '#f '#f)) - (let ((__tmp110189 - (cons (cons 'message |[1]#_g110190_|) - (cons (cons 'irritants |[1]#_g110191_|) - (cons (cons 'where |[1]#_g110192_|) - (cons (cons 'continuation |[1]#_g110193_|) + (##unchecked-structure-set! __obj110192 __tmp110290 '15 '#f '#f)) + (let ((__tmp110295 + (cons (cons 'message |[1]#_g110296_|) + (cons (cons 'irritants |[1]#_g110297_|) + (cons (cons 'where |[1]#_g110298_|) + (cons (cons 'continuation |[1]#_g110299_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110189 '16 '#f '#f)) - (let ((__tmp110194 - (cons (cons 'message |[1]#_g110195_|) - (cons (cons 'irritants |[1]#_g110196_|) - (cons (cons 'where |[1]#_g110197_|) - (cons (cons 'continuation |[1]#_g110198_|) + (##unchecked-structure-set! __obj110192 __tmp110295 '16 '#f '#f)) + (let ((__tmp110300 + (cons (cons 'message |[1]#_g110301_|) + (cons (cons 'irritants |[1]#_g110302_|) + (cons (cons 'where |[1]#_g110303_|) + (cons (cons 'continuation |[1]#_g110304_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110194 '17 '#f '#f)) - (let ((__tmp110199 - (cons (cons 'message |[1]#_g110200_|) - (cons (cons 'irritants |[1]#_g110201_|) - (cons (cons 'where |[1]#_g110202_|) - (cons (cons 'continuation |[1]#_g110203_|) + (##unchecked-structure-set! __obj110192 __tmp110300 '17 '#f '#f)) + (let ((__tmp110305 + (cons (cons 'message |[1]#_g110306_|) + (cons (cons 'irritants |[1]#_g110307_|) + (cons (cons 'where |[1]#_g110308_|) + (cons (cons 'continuation |[1]#_g110309_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110086 __tmp110199 '18 '#f '#f)) + (##unchecked-structure-set! __obj110192 __tmp110305 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110192 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110192 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110086 '() '20 '#f '#f)) - __obj110086)) + (##unchecked-structure-set! __obj110192 '() '20 '#f '#f)) + __obj110192)) (define |[:0:]#@HashTable| - (let ((__obj110088 + (let ((__obj110194 (let () (declare (not safe)) (##structure |gerbil/core/contract~TypeReference[1]#type-reference::t| '#f)))) - (let ((__tmp110204 |[1]#_g110205_|)) + (let ((__tmp110310 |[1]#_g110311_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110088 __tmp110204 '1 '#f '#f)) - __obj110088)) + (##unchecked-structure-set! __obj110194 __tmp110310 '1 '#f '#f)) + __obj110194)) (define |[:0:]#HashTable| - (let ((__obj110089 + (let ((__obj110195 (let () (declare (not safe)) (##structure @@ -699,14 +699,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110089 'HashTable '1 '#f '#f)) + (##unchecked-structure-set! __obj110195 'HashTable '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110089 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj110195 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110089 + __obj110195 '((clear! () :void) (copy () @HashTable) (delete! (key) :void) @@ -718,51 +718,51 @@ '3 '#f '#f)) - (let ((__tmp110206 |[1]#_g110207_|)) + (let ((__tmp110312 |[1]#_g110313_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110206 '4 '#f '#f)) - (let ((__tmp110208 |[1]#_g110209_|)) + (##unchecked-structure-set! __obj110195 __tmp110312 '4 '#f '#f)) + (let ((__tmp110314 |[1]#_g110315_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110208 '5 '#f '#f)) - (let ((__tmp110210 |[1]#_g110211_|)) + (##unchecked-structure-set! __obj110195 __tmp110314 '5 '#f '#f)) + (let ((__tmp110316 |[1]#_g110317_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110210 '6 '#f '#f)) - (let ((__tmp110212 |[1]#_g110213_|)) + (##unchecked-structure-set! __obj110195 __tmp110316 '6 '#f '#f)) + (let ((__tmp110318 |[1]#_g110319_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110212 '7 '#f '#f)) - (let ((__tmp110214 |[1]#_g110215_|)) + (##unchecked-structure-set! __obj110195 __tmp110318 '7 '#f '#f)) + (let ((__tmp110320 |[1]#_g110321_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110214 '8 '#f '#f)) - (let ((__tmp110216 |[1]#_g110217_|)) + (##unchecked-structure-set! __obj110195 __tmp110320 '8 '#f '#f)) + (let ((__tmp110322 |[1]#_g110323_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110216 '9 '#f '#f)) - (let ((__tmp110218 - (cons |[1]#_g110219_| - (cons |[1]#_g110220_| - (cons |[1]#_g110221_| - (cons |[1]#_g110222_| - (cons |[1]#_g110223_| - (cons |[1]#_g110224_| - (cons |[1]#_g110225_| - (cons |[1]#_g110226_| + (##unchecked-structure-set! __obj110195 __tmp110322 '9 '#f '#f)) + (let ((__tmp110324 + (cons |[1]#_g110325_| + (cons |[1]#_g110326_| + (cons |[1]#_g110327_| + (cons |[1]#_g110328_| + (cons |[1]#_g110329_| + (cons |[1]#_g110330_| + (cons |[1]#_g110331_| + (cons |[1]#_g110332_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110218 '10 '#f '#f)) - (let ((__tmp110227 - (cons |[1]#_g110228_| - (cons |[1]#_g110229_| - (cons |[1]#_g110230_| - (cons |[1]#_g110231_| - (cons |[1]#_g110232_| - (cons |[1]#_g110233_| - (cons |[1]#_g110234_| - (cons |[1]#_g110235_| + (##unchecked-structure-set! __obj110195 __tmp110324 '10 '#f '#f)) + (let ((__tmp110333 + (cons |[1]#_g110334_| + (cons |[1]#_g110335_| + (cons |[1]#_g110336_| + (cons |[1]#_g110337_| + (cons |[1]#_g110338_| + (cons |[1]#_g110339_| + (cons |[1]#_g110340_| + (cons |[1]#_g110341_| '())))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj110089 __tmp110227 '11 '#f '#f)) - __obj110089)) + (##unchecked-structure-set! __obj110195 __tmp110333 '11 '#f '#f)) + __obj110195)) (define |[:0:]#Locker| - (let ((__obj110090 + (let ((__obj110196 (let () (declare (not safe)) (##structure @@ -780,14 +780,14 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110090 'Locker '1 '#f '#f)) + (##unchecked-structure-set! __obj110196 'Locker '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110090 '() '2 '#f '#f)) + (##unchecked-structure-set! __obj110196 '() '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj110090 + __obj110196 '((read-lock! () :void) (read-unlock! () :void) (write-lock! () :void) @@ -795,41 +795,41 @@ '3 '#f '#f)) - (let ((__tmp110236 |[1]#_g110237_|)) + (let ((__tmp110342 |[1]#_g110343_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110236 '4 '#f '#f)) - (let ((__tmp110238 |[1]#_g110239_|)) + (##unchecked-structure-set! __obj110196 __tmp110342 '4 '#f '#f)) + (let ((__tmp110344 |[1]#_g110345_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110238 '5 '#f '#f)) - (let ((__tmp110240 |[1]#_g110241_|)) + (##unchecked-structure-set! __obj110196 __tmp110344 '5 '#f '#f)) + (let ((__tmp110346 |[1]#_g110347_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110240 '6 '#f '#f)) - (let ((__tmp110242 |[1]#_g110243_|)) + (##unchecked-structure-set! __obj110196 __tmp110346 '6 '#f '#f)) + (let ((__tmp110348 |[1]#_g110349_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110242 '7 '#f '#f)) - (let ((__tmp110244 |[1]#_g110245_|)) + (##unchecked-structure-set! __obj110196 __tmp110348 '7 '#f '#f)) + (let ((__tmp110350 |[1]#_g110351_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110244 '8 '#f '#f)) - (let ((__tmp110246 |[1]#_g110247_|)) + (##unchecked-structure-set! __obj110196 __tmp110350 '8 '#f '#f)) + (let ((__tmp110352 |[1]#_g110353_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110246 '9 '#f '#f)) - (let ((__tmp110248 - (cons |[1]#_g110249_| - (cons |[1]#_g110250_| - (cons |[1]#_g110251_| - (cons |[1]#_g110252_| '())))))) + (##unchecked-structure-set! __obj110196 __tmp110352 '9 '#f '#f)) + (let ((__tmp110354 + (cons |[1]#_g110355_| + (cons |[1]#_g110356_| + (cons |[1]#_g110357_| + (cons |[1]#_g110358_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110248 '10 '#f '#f)) - (let ((__tmp110253 - (cons |[1]#_g110254_| - (cons |[1]#_g110255_| - (cons |[1]#_g110256_| - (cons |[1]#_g110257_| '())))))) + (##unchecked-structure-set! __obj110196 __tmp110354 '10 '#f '#f)) + (let ((__tmp110359 + (cons |[1]#_g110360_| + (cons |[1]#_g110361_| + (cons |[1]#_g110362_| + (cons |[1]#_g110363_| '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj110090 __tmp110253 '11 '#f '#f)) - __obj110090)) + (##unchecked-structure-set! __obj110196 __tmp110359 '11 '#f '#f)) + __obj110196)) (define |[:0:]#locked-hash-table| - (let ((__obj110091 + (let ((__obj110197 (let () (declare (not safe)) (##structure @@ -858,7 +858,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110091 + __obj110197 'gerbil/runtime/hash#locked-hash-table::t '1 '#f @@ -866,73 +866,73 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110091 + __obj110197 'locked-hash-table '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '(table lock) '4 '#f '#f)) + (##unchecked-structure-set! __obj110197 '(table lock) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '(table lock) '6 '#f '#f)) + (##unchecked-structure-set! __obj110197 '(table lock) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj110197 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj110197 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj110197 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110197 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '#f '11 '#f '#f)) - (let ((__tmp110258 |[1]#_g110259_|)) + (##unchecked-structure-set! __obj110197 '#f '11 '#f '#f)) + (let ((__tmp110364 |[1]#_g110365_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110258 '12 '#f '#f)) - (let ((__tmp110260 |[1]#_g110261_|)) + (##unchecked-structure-set! __obj110197 __tmp110364 '12 '#f '#f)) + (let ((__tmp110366 |[1]#_g110367_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110260 '13 '#f '#f)) - (let ((__tmp110262 |[1]#_g110263_|)) + (##unchecked-structure-set! __obj110197 __tmp110366 '13 '#f '#f)) + (let ((__tmp110368 |[1]#_g110369_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110262 '14 '#f '#f)) - (let ((__tmp110264 - (cons (cons 'table |[1]#_g110265_|) - (cons (cons 'lock |[1]#_g110266_|) '())))) + (##unchecked-structure-set! __obj110197 __tmp110368 '14 '#f '#f)) + (let ((__tmp110370 + (cons (cons 'table |[1]#_g110371_|) + (cons (cons 'lock |[1]#_g110372_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110264 '15 '#f '#f)) - (let ((__tmp110267 - (cons (cons 'table |[1]#_g110268_|) - (cons (cons 'lock |[1]#_g110269_|) '())))) + (##unchecked-structure-set! __obj110197 __tmp110370 '15 '#f '#f)) + (let ((__tmp110373 + (cons (cons 'table |[1]#_g110374_|) + (cons (cons 'lock |[1]#_g110375_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110267 '16 '#f '#f)) - (let ((__tmp110270 - (cons (cons 'table |[1]#_g110271_|) - (cons (cons 'lock |[1]#_g110272_|) '())))) + (##unchecked-structure-set! __obj110197 __tmp110373 '16 '#f '#f)) + (let ((__tmp110376 + (cons (cons 'table |[1]#_g110377_|) + (cons (cons 'lock |[1]#_g110378_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110270 '17 '#f '#f)) - (let ((__tmp110273 - (cons (cons 'table |[1]#_g110274_|) - (cons (cons 'lock |[1]#_g110275_|) '())))) + (##unchecked-structure-set! __obj110197 __tmp110376 '17 '#f '#f)) + (let ((__tmp110379 + (cons (cons 'table |[1]#_g110380_|) + (cons (cons 'lock |[1]#_g110381_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110091 __tmp110273 '18 '#f '#f)) + (##unchecked-structure-set! __obj110197 __tmp110379 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110197 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110197 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110091 '() '20 '#f '#f)) - __obj110091)) + (##unchecked-structure-set! __obj110197 '() '20 '#f '#f)) + __obj110197)) (define |[:0:]#checked-hash-table| - (let ((__obj110092 + (let ((__obj110198 (let () (declare (not safe)) (##structure @@ -961,7 +961,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110092 + __obj110198 'gerbil/runtime/hash#checked-hash-table::t '1 '#f @@ -969,7 +969,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110092 + __obj110198 'checked-hash-table '2 '#f @@ -977,7 +977,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110092 + __obj110198 '(table key-check) '4 '#f @@ -985,210 +985,210 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj110092 + __obj110198 '(table key-check) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj110198 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj110198 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj110198 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj110198 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '#f '11 '#f '#f)) - (let ((__tmp110276 |[1]#_g110277_|)) + (##unchecked-structure-set! __obj110198 '#f '11 '#f '#f)) + (let ((__tmp110382 |[1]#_g110383_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110276 '12 '#f '#f)) - (let ((__tmp110278 |[1]#_g110279_|)) + (##unchecked-structure-set! __obj110198 __tmp110382 '12 '#f '#f)) + (let ((__tmp110384 |[1]#_g110385_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110278 '13 '#f '#f)) - (let ((__tmp110280 |[1]#_g110281_|)) + (##unchecked-structure-set! __obj110198 __tmp110384 '13 '#f '#f)) + (let ((__tmp110386 |[1]#_g110387_|)) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110280 '14 '#f '#f)) - (let ((__tmp110282 - (cons (cons 'table |[1]#_g110283_|) - (cons (cons 'key-check |[1]#_g110284_|) '())))) + (##unchecked-structure-set! __obj110198 __tmp110386 '14 '#f '#f)) + (let ((__tmp110388 + (cons (cons 'table |[1]#_g110389_|) + (cons (cons 'key-check |[1]#_g110390_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110282 '15 '#f '#f)) - (let ((__tmp110285 - (cons (cons 'table |[1]#_g110286_|) - (cons (cons 'key-check |[1]#_g110287_|) '())))) + (##unchecked-structure-set! __obj110198 __tmp110388 '15 '#f '#f)) + (let ((__tmp110391 + (cons (cons 'table |[1]#_g110392_|) + (cons (cons 'key-check |[1]#_g110393_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110285 '16 '#f '#f)) - (let ((__tmp110288 - (cons (cons 'table |[1]#_g110289_|) - (cons (cons 'key-check |[1]#_g110290_|) '())))) + (##unchecked-structure-set! __obj110198 __tmp110391 '16 '#f '#f)) + (let ((__tmp110394 + (cons (cons 'table |[1]#_g110395_|) + (cons (cons 'key-check |[1]#_g110396_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110288 '17 '#f '#f)) - (let ((__tmp110291 - (cons (cons 'table |[1]#_g110292_|) - (cons (cons 'key-check |[1]#_g110293_|) '())))) + (##unchecked-structure-set! __obj110198 __tmp110394 '17 '#f '#f)) + (let ((__tmp110397 + (cons (cons 'table |[1]#_g110398_|) + (cons (cons 'key-check |[1]#_g110399_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj110092 __tmp110291 '18 '#f '#f)) + (##unchecked-structure-set! __obj110198 __tmp110397 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj110198 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj110198 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj110092 '() '20 '#f '#f)) - __obj110092)) + (##unchecked-structure-set! __obj110198 '() '20 '#f '#f)) + __obj110198)) (define |[:0:]#deflocked-hash-method| - (lambda (_%$stx105210%_) - (let* ((_%g105214105253%_ - (lambda (_%g105215105249%_) + (lambda (_%$stx105316%_) + (let* ((_%g105320105359%_ + (lambda (_%g105321105355%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105215105249%_))) - (_%g105213105401%_ - (lambda (_%g105215105257%_) - (if (gx#stx-pair? _%g105215105257%_) - (let ((_%e105221105260%_ - (gx#syntax-e _%g105215105257%_))) - (let ((_%hd105222105264%_ + _%g105321105355%_))) + (_%g105319105507%_ + (lambda (_%g105321105363%_) + (if (gx#stx-pair? _%g105321105363%_) + (let ((_%e105327105366%_ + (gx#syntax-e _%g105321105363%_))) + (let ((_%hd105328105370%_ (let () (declare (not safe)) - (##car _%e105221105260%_))) - (_%tl105223105267%_ + (##car _%e105327105366%_))) + (_%tl105329105373%_ (let () (declare (not safe)) - (##cdr _%e105221105260%_)))) - (if (gx#stx-pair? _%tl105223105267%_) - (let ((_%e105224105270%_ - (gx#syntax-e _%tl105223105267%_))) - (let ((_%hd105225105274%_ + (##cdr _%e105327105366%_)))) + (if (gx#stx-pair? _%tl105329105373%_) + (let ((_%e105330105376%_ + (gx#syntax-e _%tl105329105373%_))) + (let ((_%hd105331105380%_ (let () (declare (not safe)) - (##car _%e105224105270%_))) - (_%tl105226105277%_ + (##car _%e105330105376%_))) + (_%tl105332105383%_ (let () (declare (not safe)) - (##cdr _%e105224105270%_)))) - (if (gx#stx-pair? _%hd105225105274%_) - (let ((_%e105227105280%_ - (gx#syntax-e _%hd105225105274%_))) - (let ((_%hd105228105284%_ + (##cdr _%e105330105376%_)))) + (if (gx#stx-pair? _%hd105331105380%_) + (let ((_%e105333105386%_ + (gx#syntax-e _%hd105331105380%_))) + (let ((_%hd105334105390%_ (let () (declare (not safe)) - (##car _%e105227105280%_))) - (_%tl105229105287%_ + (##car _%e105333105386%_))) + (_%tl105335105393%_ (let () (declare (not safe)) - (##cdr _%e105227105280%_)))) + (##cdr _%e105333105386%_)))) (if (gx#stx-pair/null? - _%tl105229105287%_) - (let ((_g110294_ + _%tl105335105393%_) + (let ((_g110400_ (gx#syntax-split-splice - _%tl105229105287%_ + _%tl105335105393%_ '0))) (begin - (let ((_g110295_ + (let ((_g110401_ (let () (declare (not safe)) (if (##values? - _g110294_) - (##vector-length - _g110294_) + _g110400_) + (##values-length + _g110400_) 1)))) (if (not (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##fx= _g110295_ 2))) - (error "Context expects 2 values" _g110295_))) + (##fx= _g110401_ 2))) + (error "Context expects 2 values" _g110401_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target105230105290%_ + (let ((_%target105336105396%_ (let () (declare (not safe)) - (##vector-ref - _g110294_ + (##values-ref + _g110400_ 0))) - (_%tl105232105293%_ + (_%tl105338105399%_ (let () (declare (not safe)) - (##vector-ref - _g110294_ + (##values-ref + _g110400_ 1)))) (if (gx#stx-null? - _%tl105232105293%_) - (letrec ((_%loop105233105296%_ + _%tl105338105399%_) + (letrec ((_%loop105339105402%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd105231105300%_ _%arg105237105303%_) - (if (gx#stx-pair? _%hd105231105300%_) - (let ((_%e105234105306%_ - (gx#syntax-e _%hd105231105300%_))) - (let ((_%lp-hd105235105310%_ + (lambda (_%hd105337105406%_ _%arg105343105409%_) + (if (gx#stx-pair? _%hd105337105406%_) + (let ((_%e105340105412%_ + (gx#syntax-e _%hd105337105406%_))) + (let ((_%lp-hd105341105416%_ (let () (declare (not safe)) - (##car _%e105234105306%_))) - (_%lp-tl105236105313%_ + (##car _%e105340105412%_))) + (_%lp-tl105342105419%_ (let () (declare (not safe)) - (##cdr _%e105234105306%_)))) - (_%loop105233105296%_ - _%lp-tl105236105313%_ - (cons _%lp-hd105235105310%_ - _%arg105237105303%_)))) - (let ((_%arg105238105316%_ - (reverse _%arg105237105303%_))) - (if (gx#stx-pair? _%tl105226105277%_) - (let ((_%e105239105320%_ - (gx#syntax-e _%tl105226105277%_))) - (let ((_%hd105240105324%_ + (##cdr _%e105340105412%_)))) + (_%loop105339105402%_ + _%lp-tl105342105419%_ + (cons _%lp-hd105341105416%_ + _%arg105343105409%_)))) + (let ((_%arg105344105422%_ + (reverse _%arg105343105409%_))) + (if (gx#stx-pair? _%tl105332105383%_) + (let ((_%e105345105426%_ + (gx#syntax-e _%tl105332105383%_))) + (let ((_%hd105346105430%_ (let () (declare (not safe)) - (##car _%e105239105320%_))) - (_%tl105241105327%_ + (##car _%e105345105426%_))) + (_%tl105347105433%_ (let () (declare (not safe)) - (##cdr _%e105239105320%_)))) - (if (gx#stx-pair? _%tl105241105327%_) - (let ((_%e105242105330%_ + (##cdr _%e105345105426%_)))) + (if (gx#stx-pair? _%tl105347105433%_) + (let ((_%e105348105436%_ (gx#syntax-e - _%tl105241105327%_))) - (let ((_%hd105243105334%_ + _%tl105347105433%_))) + (let ((_%hd105349105440%_ (let () (declare (not safe)) - (##car _%e105242105330%_))) - (_%tl105244105337%_ + (##car _%e105348105436%_))) + (_%tl105350105443%_ (let () (declare (not safe)) - (##cdr _%e105242105330%_)))) + (##cdr _%e105348105436%_)))) (if (gx#stx-pair? - _%tl105244105337%_) - (let ((_%e105245105340%_ + _%tl105350105443%_) + (let ((_%e105351105446%_ (gx#syntax-e - _%tl105244105337%_))) - (let ((_%hd105246105344%_ + _%tl105350105443%_))) + (let ((_%hd105352105450%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105245105340%_))) - (_%tl105247105347%_ + (##car _%e105351105446%_))) + (_%tl105353105453%_ (let () (declare (not safe)) - (##cdr _%e105245105340%_)))) - (if (gx#stx-null? _%tl105247105347%_) - ((lambda (_%L105350%_ - _%L105352%_ - _%L105353%_ - _%L105354%_ - _%L105355%_) + (##cdr _%e105351105446%_)))) + (if (gx#stx-null? _%tl105353105453%_) + ((lambda (_%L105456%_ + _%L105458%_ + _%L105459%_ + _%L105460%_ + _%L105461%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105355%_ + (cons _%L105461%_ (cons (gx#datum->syntax '#f 'locked-hash-table) @@ -1197,12 +1197,12 @@ (cons (cons (gx#datum->syntax '#f 'self) - (let ((__tmp110296 + (let ((__tmp110402 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105386105389%_ _%g105387105392%_) - (cons _%g105386105389%_ _%g105387105392%_)))) + (lambda (_%g105492105495%_ _%g105493105498%_) + (cons _%g105492105495%_ _%g105493105498%_)))) (declare (not safe)) - (__foldr1 __tmp110296 '() _%L105354%_))) + (__foldr1 __tmp110402 '() _%L105460%_))) (cons (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax @@ -1231,7 +1231,7 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105353%_ + (cons _%L105459%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1241,18 +1241,18 @@ (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105352%_ + (cons _%L105458%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110297 - (lambda (_%g105384105395%_ - _%g105385105398%_) - (cons _%g105384105395%_ - _%g105385105398%_)))) + (let ((__tmp110403 + (lambda (_%g105490105501%_ + _%g105491105504%_) + (cons _%g105490105501%_ + _%g105491105504%_)))) (declare (not safe)) - (__foldr1 __tmp110297 '() _%L105354%_))))) + (__foldr1 __tmp110403 '() _%L105460%_))))) (cons (cons (gx#datum->syntax '#f 'cut) - (cons _%L105350%_ + (cons _%L105456%_ (cons (gx#datum->syntax '#f 'l) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -1260,175 +1260,175 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd105246105344%_ - _%hd105243105334%_ - _%hd105240105324%_ - _%arg105238105316%_ - _%hd105228105284%_) - (_%g105214105253%_ _%g105215105257%_)))) - (_%g105214105253%_ _%g105215105257%_)))) + _%hd105352105450%_ + _%hd105349105440%_ + _%hd105346105430%_ + _%arg105344105422%_ + _%hd105334105390%_) + (_%g105320105359%_ _%g105321105363%_)))) + (_%g105320105359%_ _%g105321105363%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105214105253%_ - _%g105215105257%_)))) - (_%g105214105253%_ - _%g105215105257%_))))))) - (_%loop105233105296%_ _%target105230105290%_ '())) - (_%g105214105253%_ _%g105215105257%_))))) + (_%g105320105359%_ + _%g105321105363%_)))) + (_%g105320105359%_ + _%g105321105363%_))))))) + (_%loop105339105402%_ _%target105336105396%_ '())) + (_%g105320105359%_ _%g105321105363%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105214105253%_ - _%g105215105257%_)))) - (_%g105214105253%_ _%g105215105257%_)))) - (_%g105214105253%_ _%g105215105257%_)))) - (_%g105214105253%_ _%g105215105257%_))))) - (_%g105213105401%_ _%$stx105210%_)))) + (_%g105320105359%_ + _%g105321105363%_)))) + (_%g105320105359%_ _%g105321105363%_)))) + (_%g105320105359%_ _%g105321105363%_)))) + (_%g105320105359%_ _%g105321105363%_))))) + (_%g105319105507%_ _%$stx105316%_)))) (define |[:0:]#defchecked-hash-method| - (lambda (_%$stx105430%_) - (let* ((_%g105434105473%_ - (lambda (_%g105435105469%_) + (lambda (_%$stx105536%_) + (let* ((_%g105540105579%_ + (lambda (_%g105541105575%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105435105469%_))) - (_%g105433105636%_ - (lambda (_%g105435105477%_) - (if (gx#stx-pair? _%g105435105477%_) - (let ((_%e105441105480%_ - (gx#syntax-e _%g105435105477%_))) - (let ((_%hd105442105484%_ + _%g105541105575%_))) + (_%g105539105742%_ + (lambda (_%g105541105583%_) + (if (gx#stx-pair? _%g105541105583%_) + (let ((_%e105547105586%_ + (gx#syntax-e _%g105541105583%_))) + (let ((_%hd105548105590%_ (let () (declare (not safe)) - (##car _%e105441105480%_))) - (_%tl105443105487%_ + (##car _%e105547105586%_))) + (_%tl105549105593%_ (let () (declare (not safe)) - (##cdr _%e105441105480%_)))) - (if (gx#stx-pair? _%tl105443105487%_) - (let ((_%e105444105490%_ - (gx#syntax-e _%tl105443105487%_))) - (let ((_%hd105445105494%_ + (##cdr _%e105547105586%_)))) + (if (gx#stx-pair? _%tl105549105593%_) + (let ((_%e105550105596%_ + (gx#syntax-e _%tl105549105593%_))) + (let ((_%hd105551105600%_ (let () (declare (not safe)) - (##car _%e105444105490%_))) - (_%tl105446105497%_ + (##car _%e105550105596%_))) + (_%tl105552105603%_ (let () (declare (not safe)) - (##cdr _%e105444105490%_)))) - (if (gx#stx-pair? _%hd105445105494%_) - (let ((_%e105447105500%_ - (gx#syntax-e _%hd105445105494%_))) - (let ((_%hd105448105504%_ + (##cdr _%e105550105596%_)))) + (if (gx#stx-pair? _%hd105551105600%_) + (let ((_%e105553105606%_ + (gx#syntax-e _%hd105551105600%_))) + (let ((_%hd105554105610%_ (let () (declare (not safe)) - (##car _%e105447105500%_))) - (_%tl105449105507%_ + (##car _%e105553105606%_))) + (_%tl105555105613%_ (let () (declare (not safe)) - (##cdr _%e105447105500%_)))) - (if (gx#stx-pair? _%tl105449105507%_) - (let ((_%e105450105510%_ + (##cdr _%e105553105606%_)))) + (if (gx#stx-pair? _%tl105555105613%_) + (let ((_%e105556105616%_ (gx#syntax-e - _%tl105449105507%_))) - (let ((_%hd105451105514%_ + _%tl105555105613%_))) + (let ((_%hd105557105620%_ (let () (declare (not safe)) - (##car _%e105450105510%_))) - (_%tl105452105517%_ + (##car _%e105556105616%_))) + (_%tl105558105623%_ (let () (declare (not safe)) - (##cdr _%e105450105510%_)))) + (##cdr _%e105556105616%_)))) (if (gx#stx-pair/null? - _%tl105452105517%_) - (let ((_g110298_ + _%tl105558105623%_) + (let ((_g110404_ (gx#syntax-split-splice - _%tl105452105517%_ + _%tl105558105623%_ '0))) (begin - (let ((_g110299_ + (let ((_g110405_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110298_) - (##vector-length _g110298_) + (if (##values? _g110404_) + (##values-length _g110404_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110299_ 2))) - (error "Context expects 2 values" _g110299_))) - (let ((_%target105453105520%_ + (if (not (let () (declare (not safe)) (##fx= _g110405_ 2))) + (error "Context expects 2 values" _g110405_))) + (let ((_%target105559105626%_ (let () (declare (not safe)) - (##vector-ref _g110298_ 0))) - (_%tl105455105523%_ + (##values-ref _g110404_ 0))) + (_%tl105561105629%_ (let () (declare (not safe)) - (##vector-ref _g110298_ 1)))) - (if (gx#stx-null? _%tl105455105523%_) - (letrec ((_%loop105456105526%_ - (lambda (_%hd105454105530%_ - _%arg105460105533%_) - (if (gx#stx-pair? _%hd105454105530%_) - (let ((_%e105457105536%_ + (##values-ref _g110404_ 1)))) + (if (gx#stx-null? _%tl105561105629%_) + (letrec ((_%loop105562105632%_ + (lambda (_%hd105560105636%_ + _%arg105566105639%_) + (if (gx#stx-pair? _%hd105560105636%_) + (let ((_%e105563105642%_ (gx#syntax-e - _%hd105454105530%_))) - (let ((_%lp-hd105458105540%_ + _%hd105560105636%_))) + (let ((_%lp-hd105564105646%_ (let () (declare (not safe)) - (##car _%e105457105536%_))) - (_%lp-tl105459105543%_ + (##car _%e105563105642%_))) + (_%lp-tl105565105649%_ (let () (declare (not safe)) - (##cdr _%e105457105536%_)))) - (_%loop105456105526%_ - _%lp-tl105459105543%_ - (cons _%lp-hd105458105540%_ - _%arg105460105533%_)))) - (let ((_%arg105461105546%_ - (reverse _%arg105460105533%_))) - (if (gx#stx-pair? _%tl105446105497%_) - (let ((_%e105462105550%_ + (##cdr _%e105563105642%_)))) + (_%loop105562105632%_ + _%lp-tl105565105649%_ + (cons _%lp-hd105564105646%_ + _%arg105566105639%_)))) + (let ((_%arg105567105652%_ + (reverse _%arg105566105639%_))) + (if (gx#stx-pair? _%tl105552105603%_) + (let ((_%e105568105656%_ (gx#syntax-e - _%tl105446105497%_))) - (let ((_%hd105463105554%_ + _%tl105552105603%_))) + (let ((_%hd105569105660%_ (let () (declare (not safe)) - (##car _%e105462105550%_))) - (_%tl105464105557%_ + (##car _%e105568105656%_))) + (_%tl105570105663%_ (let () (declare (not safe)) - (##cdr _%e105462105550%_)))) + (##cdr _%e105568105656%_)))) (if (gx#stx-pair? - _%tl105464105557%_) - (let ((_%e105465105560%_ + _%tl105570105663%_) + (let ((_%e105571105666%_ (gx#syntax-e - _%tl105464105557%_))) - (let ((_%hd105466105564%_ + _%tl105570105663%_))) + (let ((_%hd105572105670%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e105465105560%_))) - (_%tl105467105567%_ + (##car _%e105571105666%_))) + (_%tl105573105673%_ (let () (declare (not safe)) - (##cdr _%e105465105560%_)))) - (if (gx#stx-null? _%tl105467105567%_) - ((lambda (_%L105570%_ - _%L105572%_ - _%L105573%_ - _%L105574%_ - _%L105575%_) + (##cdr _%e105571105666%_)))) + (if (gx#stx-null? _%tl105573105673%_) + ((lambda (_%L105676%_ + _%L105678%_ + _%L105679%_ + _%L105680%_ + _%L105681%_) (cons (gx#datum->syntax '#f 'defmethod) (cons (cons (gx#datum->syntax '#f '@method) - (cons _%L105575%_ + (cons _%L105681%_ (cons (gx#datum->syntax '#f 'checked-hash-table) '()))) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L105574%_ - (let ((__tmp110300 + (cons (cons _%L105680%_ + (let ((__tmp110406 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g105609105612%_ _%g105610105615%_) - (cons _%g105609105612%_ _%g105610105615%_)))) + (lambda (_%g105715105718%_ _%g105716105721%_) + (cons _%g105715105718%_ _%g105716105721%_)))) (declare (not safe)) - (__foldr1 __tmp110300 '() _%L105573%_))) + (__foldr1 __tmp110406 '() _%L105679%_))) (cons (cons (gx#datum->syntax '#f 'declare) (cons (cons (gx#datum->syntax '#f 'not) (cons (gx#datum->syntax '#f 'safe) '())) @@ -1438,7 +1438,7 @@ (cons (cons (gx#datum->syntax '#f '&checked-hash-table-table) - (cons _%L105574%_ + (cons _%L105680%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -1450,32 +1450,32 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '&checked-hash-table-key-check) - (cons _%L105574%_ '())) + (cons _%L105680%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L105572%_ + (cons (cons _%L105678%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'key?) - (let ((__tmp110301 - (lambda (_%g105607105618%_ - _%g105608105621%_) - (cons _%g105607105618%_ - _%g105608105621%_)))) + (let ((__tmp110407 + (lambda (_%g105713105724%_ + _%g105714105727%_) + (cons _%g105713105724%_ + _%g105714105727%_)))) (declare (not safe)) - (__foldr1 __tmp110301 '() _%L105573%_)))) - (cons (cons _%L105570%_ + (__foldr1 __tmp110407 '() _%L105679%_)))) + (cons (cons _%L105676%_ (cons (gx#datum->syntax '#f 'h) - (let ((__tmp110302 - (lambda (_%g105605105624%_ - _%g105606105627%_) - (cons _%g105605105624%_ - _%g105606105627%_)))) + (let ((__tmp110408 + (lambda (_%g105711105730%_ + _%g105712105733%_) + (cons _%g105711105730%_ + _%g105712105733%_)))) (declare (not safe)) - (__foldr1 __tmp110302 '() _%L105573%_)))) + (__foldr1 __tmp110408 '() _%L105679%_)))) (cons (cons (gx#datum->syntax '#f 'abort!) (cons (cons (gx#datum->syntax '#f @@ -1486,19 +1486,19 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L105570%_ '())) + (cons _%L105676%_ '())) (cons 'value: (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp110303 - (lambda (_%g105603105630%_ - _%g105604105633%_) - (cons _%g105603105630%_ - _%g105604105633%_)))) + (let ((__tmp110409 + (lambda (_%g105709105736%_ + _%g105710105739%_) + (cons _%g105709105736%_ + _%g105710105739%_)))) (declare (not safe)) (__foldr1 - __tmp110303 + __tmp110409 '() - _%L105573%_))) + _%L105679%_))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -1508,158 +1508,158 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd105466105564%_ - _%hd105463105554%_ - _%arg105461105546%_ - _%hd105451105514%_ - _%hd105448105504%_) - (_%g105434105473%_ _%g105435105477%_)))) - (_%g105434105473%_ _%g105435105477%_)))) + _%hd105572105670%_ + _%hd105569105660%_ + _%arg105567105652%_ + _%hd105557105620%_ + _%hd105554105610%_) + (_%g105540105579%_ _%g105541105583%_)))) + (_%g105540105579%_ _%g105541105583%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105434105473%_ - _%g105435105477%_))))))) - (_%loop105456105526%_ _%target105453105520%_ '())) - (_%g105434105473%_ _%g105435105477%_))))) - (_%g105434105473%_ _%g105435105477%_)))) + (_%g105540105579%_ + _%g105541105583%_))))))) + (_%loop105562105632%_ _%target105559105626%_ '())) + (_%g105540105579%_ _%g105541105583%_))))) + (_%g105540105579%_ _%g105541105583%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105434105473%_ - _%g105435105477%_)))) - (_%g105434105473%_ _%g105435105477%_)))) - (_%g105434105473%_ _%g105435105477%_)))) - (_%g105434105473%_ _%g105435105477%_))))) - (_%g105433105636%_ _%$stx105430%_)))) + (_%g105540105579%_ + _%g105541105583%_)))) + (_%g105540105579%_ _%g105541105583%_)))) + (_%g105540105579%_ _%g105541105583%_)))) + (_%g105540105579%_ _%g105541105583%_))))) + (_%g105539105742%_ _%$stx105536%_)))) (define |[:0:]#defhash-method| - (lambda (_%$stx105665%_) - (let* ((_%g105669105701%_ - (lambda (_%g105670105697%_) + (lambda (_%$stx105771%_) + (let* ((_%g105775105807%_ + (lambda (_%g105776105803%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g105670105697%_))) - (_%g105668105814%_ - (lambda (_%g105670105705%_) - (if (gx#stx-pair? _%g105670105705%_) - (let ((_%e105675105708%_ - (gx#syntax-e _%g105670105705%_))) - (let ((_%hd105676105712%_ + _%g105776105803%_))) + (_%g105774105920%_ + (lambda (_%g105776105811%_) + (if (gx#stx-pair? _%g105776105811%_) + (let ((_%e105781105814%_ + (gx#syntax-e _%g105776105811%_))) + (let ((_%hd105782105818%_ (let () (declare (not safe)) - (##car _%e105675105708%_))) - (_%tl105677105715%_ + (##car _%e105781105814%_))) + (_%tl105783105821%_ (let () (declare (not safe)) - (##cdr _%e105675105708%_)))) - (if (gx#stx-pair? _%tl105677105715%_) - (let ((_%e105678105718%_ - (gx#syntax-e _%tl105677105715%_))) - (let ((_%hd105679105722%_ + (##cdr _%e105781105814%_)))) + (if (gx#stx-pair? _%tl105783105821%_) + (let ((_%e105784105824%_ + (gx#syntax-e _%tl105783105821%_))) + (let ((_%hd105785105828%_ (let () (declare (not safe)) - (##car _%e105678105718%_))) - (_%tl105680105725%_ + (##car _%e105784105824%_))) + (_%tl105786105831%_ (let () (declare (not safe)) - (##cdr _%e105678105718%_)))) - (if (gx#stx-pair? _%hd105679105722%_) - (let ((_%e105681105728%_ - (gx#syntax-e _%hd105679105722%_))) - (let ((_%hd105682105732%_ + (##cdr _%e105784105824%_)))) + (if (gx#stx-pair? _%hd105785105828%_) + (let ((_%e105787105834%_ + (gx#syntax-e _%hd105785105828%_))) + (let ((_%hd105788105838%_ (let () (declare (not safe)) - (##car _%e105681105728%_))) - (_%tl105683105735%_ + (##car _%e105787105834%_))) + (_%tl105789105841%_ (let () (declare (not safe)) - (##cdr _%e105681105728%_)))) - (if (gx#stx-pair? _%tl105683105735%_) - (let ((_%e105684105738%_ + (##cdr _%e105787105834%_)))) + (if (gx#stx-pair? _%tl105789105841%_) + (let ((_%e105790105844%_ (gx#syntax-e - _%tl105683105735%_))) - (let ((_%hd105685105742%_ + _%tl105789105841%_))) + (let ((_%hd105791105848%_ (let () (declare (not safe)) - (##car _%e105684105738%_))) - (_%tl105686105745%_ + (##car _%e105790105844%_))) + (_%tl105792105851%_ (let () (declare (not safe)) - (##cdr _%e105684105738%_)))) + (##cdr _%e105790105844%_)))) (if (gx#stx-pair/null? - _%tl105680105725%_) - (let ((_g110304_ + _%tl105786105831%_) + (let ((_g110410_ (gx#syntax-split-splice - _%tl105680105725%_ + _%tl105786105831%_ '0))) (begin - (let ((_g110305_ + (let ((_g110411_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (if (##values? _g110304_) - (##vector-length _g110304_) + (if (##values? _g110410_) + (##values-length _g110410_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g110305_ 2))) - (error "Context expects 2 values" _g110305_))) - (let ((_%target105687105748%_ + (if (not (let () (declare (not safe)) (##fx= _g110411_ 2))) + (error "Context expects 2 values" _g110411_))) + (let ((_%target105793105854%_ (let () (declare (not safe)) - (##vector-ref _g110304_ 0))) - (_%tl105689105751%_ + (##values-ref _g110410_ 0))) + (_%tl105795105857%_ (let () (declare (not safe)) - (##vector-ref _g110304_ 1)))) - (if (gx#stx-null? _%tl105689105751%_) - (letrec ((_%loop105690105754%_ - (lambda (_%hd105688105758%_ - _%body105694105761%_) - (if (gx#stx-pair? _%hd105688105758%_) - (let ((_%e105691105764%_ + (##values-ref _g110410_ 1)))) + (if (gx#stx-null? _%tl105795105857%_) + (letrec ((_%loop105796105860%_ + (lambda (_%hd105794105864%_ + _%body105800105867%_) + (if (gx#stx-pair? _%hd105794105864%_) + (let ((_%e105797105870%_ (gx#syntax-e - _%hd105688105758%_))) - (let ((_%lp-hd105692105768%_ + _%hd105794105864%_))) + (let ((_%lp-hd105798105874%_ (let () (declare (not safe)) - (##car _%e105691105764%_))) - (_%lp-tl105693105771%_ + (##car _%e105797105870%_))) + (_%lp-tl105799105877%_ (let () (declare (not safe)) - (##cdr _%e105691105764%_)))) - (_%loop105690105754%_ - _%lp-tl105693105771%_ - (cons _%lp-hd105692105768%_ - _%body105694105761%_)))) - (let ((_%body105695105774%_ - (reverse _%body105694105761%_))) - ((lambda (_%L105778%_ - _%L105780%_ - _%L105781%_ - _%L105782%_) + (##cdr _%e105797105870%_)))) + (_%loop105796105860%_ + _%lp-tl105799105877%_ + (cons _%lp-hd105798105874%_ + _%body105800105867%_)))) + (let ((_%body105801105880%_ + (reverse _%body105800105867%_))) + ((lambda (_%L105884%_ + _%L105886%_ + _%L105887%_ + _%L105888%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L105782%_ - (cons (cons _%L105781%_ + (cons (cons _%L105888%_ + (cons (cons _%L105887%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f ':) (cons (gx#datum->syntax '#f 'HashTable) '()))) - _%L105780%_)) - (let ((__tmp110306 - (lambda (_%g105805105808%_ _%g105806105811%_) - (cons _%g105805105808%_ _%g105806105811%_)))) + _%L105886%_)) + (let ((__tmp110412 + (lambda (_%g105911105914%_ _%g105912105917%_) + (cons _%g105911105914%_ _%g105912105917%_)))) (declare (not safe)) - (__foldr1 __tmp110306 '() _%L105778%_))))) + (__foldr1 __tmp110412 '() _%L105884%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%body105695105774%_ - _%tl105686105745%_ - _%hd105685105742%_ - _%hd105682105732%_)))))) - (_%loop105690105754%_ _%target105687105748%_ '())) - (_%g105669105701%_ _%g105670105705%_))))) - (_%g105669105701%_ _%g105670105705%_)))) + _%body105801105880%_ + _%tl105792105851%_ + _%hd105791105848%_ + _%hd105788105838%_)))))) + (_%loop105796105860%_ _%target105793105854%_ '())) + (_%g105775105807%_ _%g105776105811%_))))) + (_%g105775105807%_ _%g105776105811%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g105669105701%_ - _%g105670105705%_)))) - (_%g105669105701%_ _%g105670105705%_)))) - (_%g105669105701%_ _%g105670105705%_)))) - (_%g105669105701%_ _%g105670105705%_))))) - (_%g105668105814%_ _%$stx105665%_)))))) + (_%g105775105807%_ + _%g105776105811%_)))) + (_%g105775105807%_ _%g105776105811%_)))) + (_%g105775105807%_ _%g105776105811%_)))) + (_%g105775105807%_ _%g105776105811%_))))) + (_%g105774105920%_ _%$stx105771%_)))))) diff --git a/src/bootstrap/gerbil/runtime/init~0.scm b/src/bootstrap/gerbil/runtime/init~0.scm index a0e9813b6..a17839fb3 100644 --- a/src/bootstrap/gerbil/runtime/init~0.scm +++ b/src/bootstrap/gerbil/runtime/init~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/init::timestamp 1733870074) + (define gerbil/runtime/init::timestamp 1734131746) (begin (define __scheme-source (make-parameter '#f)) (define __load-gxi @@ -8,314 +8,314 @@ (let () (declare (not safe)) (__current-compiler __compile-top)) (let () (declare (not safe)) (__current-expander gx#core-expand)) (set! __eval-module gx#core-eval-module) - (letrec* ((_%+readtable+115505%_ __*readtable*)) - (let* ((_%core115507%_ (gx#import-module ':gerbil/core)) - (_%pre115509%_ (gx#make-prelude-context _%core115507%_))) - (gx#current-expander-module-prelude _%pre115509%_) - (gx#core-bind-root-syntax! ': _%pre115509%_ '#t) + (letrec* ((_%+readtable+115611%_ __*readtable*)) + (let* ((_%core115613%_ (gx#import-module ':gerbil/core)) + (_%pre115615%_ (gx#make-prelude-context _%core115613%_))) + (gx#current-expander-module-prelude _%pre115615%_) + (gx#core-bind-root-syntax! ': _%pre115615%_ '#t) (gx#eval-syntax '(import :gerbil/core))) (gx#current-expander-compile __compile-top-source) (let () (declare (not safe)) (##expand-source-set! __expand-source)) (let () (declare (not safe)) (##macro-descr-set! __macro-descr)) (let () (declare (not safe)) (##main-readtable-set! __*readtable*)) - (let ((__tmp115516 - (lambda (_%port115512%_) + (let ((__tmp115622 + (lambda (_%port115618%_) (input-port-readtable-set! - _%port115512%_ - _%+readtable+115505%_))) - (__tmp115515 (list ##stdin-port ##console-port))) + _%port115618%_ + _%+readtable+115611%_))) + (__tmp115621 (list ##stdin-port ##console-port))) (declare (not safe)) - (##for-each __tmp115516 __tmp115515)) - (let ((__tmp115518 - (lambda (_%port115514%_) + (##for-each __tmp115622 __tmp115621)) + (let ((__tmp115624 + (lambda (_%port115620%_) (output-port-readtable-set! - _%port115514%_ + _%port115620%_ (readtable-sharing-allowed?-set - (output-port-readtable _%port115514%_) + (output-port-readtable _%port115620%_) '#t)))) - (__tmp115517 (list ##stdout-port ##console-port))) + (__tmp115623 (list ##stdout-port ##console-port))) (declare (not safe)) - (##for-each __tmp115518 __tmp115517))))) - (define __gxi-init-interactive! (lambda (_%cmdline115502%_) '#!void)) + (##for-each __tmp115624 __tmp115623))))) + (define __gxi-init-interactive! (lambda (_%cmdline115608%_) '#!void)) (define load-scheme - (lambda (_%path115497%_) - (let ((__tmp115519 + (lambda (_%path115603%_) + (let ((__tmp115625 (lambda () - (let ((__tmp115520 (lambda _%args115500%_ '#f))) + (let ((__tmp115626 (lambda _%args115606%_ '#f))) (declare (not safe)) - (##load _%path115497%_ __tmp115520 '#t '#t '#f))))) + (##load _%path115603%_ __tmp115626 '#t '#t '#f))))) (declare (not safe)) (__call-with-parameters - __tmp115519 + __tmp115625 __scheme-source - _%path115497%_)))) + _%path115603%_)))) (define __expand-source - (lambda (_%src115479%_) - (letrec ((_%expand115481%_ - (lambda (_%src115495%_) + (lambda (_%src115585%_) + (letrec ((_%expand115587%_ + (lambda (_%src115601%_) (__compile-top - (gx#core-expand (__source->syntax _%src115495%_))))) - (_%no-expand115482%_ - (lambda (_%src115488%_) + (gx#core-expand (__source->syntax _%src115601%_))))) + (_%no-expand115588%_ + (lambda (_%src115594%_) (if (let () (declare (not safe)) (__scheme-source)) - _%src115488%_ + _%src115594%_ (if (let () (declare (not safe)) - (##source? _%src115488%_)) - (let ((_%code115492%_ + (##source? _%src115594%_)) + (let ((_%code115598%_ (let () (declare (not safe)) - (##source-code _%src115488%_)))) - (if (pair? _%code115492%_) + (##source-code _%src115594%_)))) + (if (pair? _%code115598%_) (if (eq? '__noexpand: (let () (declare (not safe)) - (##car _%code115492%_))) + (##car _%code115598%_))) (let () (declare (not safe)) - (##cdr _%code115492%_)) + (##cdr _%code115598%_)) '#f) '#f)) '#f))))) - (let ((_%$e115484%_ (_%no-expand115482%_ _%src115479%_))) - (if _%$e115484%_ _%$e115484%_ (_%expand115481%_ _%src115479%_)))))) + (let ((_%$e115590%_ (_%no-expand115588%_ _%src115585%_))) + (if _%$e115590%_ _%$e115590%_ (_%expand115587%_ _%src115585%_)))))) (define __macro-descr - (lambda (_%src115465%_ _%def-syntax?115466%_) - (letrec ((_%fail!115468%_ + (lambda (_%src115571%_ _%def-syntax?115572%_) + (letrec ((_%fail!115574%_ (lambda () (let () (declare (not safe)) (##raise-expression-parsing-exception 'ill-formed-macro-transformer - _%src115465%_)))) - (_%make-descr115469%_ - (lambda (_%size115473%_) - (let ((_%expander115476%_ - (let ((__tmp115521 + _%src115571%_)))) + (_%make-descr115575%_ + (lambda (_%size115579%_) + (let ((_%expander115582%_ + (let ((__tmp115627 (lambda () (let () (declare (not safe)) (##eval-top - _%src115465%_ + _%src115571%_ ##interaction-cte))))) (declare (not safe)) (__call-with-parameters - __tmp115521 + __tmp115627 __scheme-source 'macro)))) - (if (procedure? _%expander115476%_) + (if (procedure? _%expander115582%_) (let () (declare (not safe)) (##make-macro-descr - _%def-syntax?115466%_ - _%size115473%_ - _%expander115476%_ - _%src115465%_)) - (_%fail!115468%_)))))) - (if _%def-syntax?115466%_ - (_%make-descr115469%_ '-1) - (let ((_%code115471%_ + _%def-syntax?115572%_ + _%size115579%_ + _%expander115582%_ + _%src115571%_)) + (_%fail!115574%_)))))) + (if _%def-syntax?115572%_ + (_%make-descr115575%_ '-1) + (let ((_%code115577%_ (let () (declare (not safe)) - (##source-code _%src115465%_)))) - (if (and (let () (declare (not safe)) (##pair? _%code115471%_)) - (let ((__tmp115522 - (let ((__tmp115523 - (let ((__tmp115524 + (##source-code _%src115571%_)))) + (if (and (let () (declare (not safe)) (##pair? _%code115577%_)) + (let ((__tmp115628 + (let ((__tmp115629 + (let ((__tmp115630 (let () (declare (not safe)) - (##car _%code115471%_)))) + (##car _%code115577%_)))) (declare (not safe)) (##sourcify - __tmp115524 - _%src115465%_)))) + __tmp115630 + _%src115571%_)))) (declare (not safe)) - (##source-code __tmp115523)))) + (##source-code __tmp115629)))) (declare (not safe)) - (##memq __tmp115522 '(##lambda lambda)))) + (##memq __tmp115628 '(##lambda lambda)))) (begin (let () (declare (not safe)) - (##shape _%src115465%_ _%src115465%_ '-3)) - (_%make-descr115469%_ - (let ((__tmp115525 - (let ((__tmp115526 + (##shape _%src115571%_ _%src115571%_ '-3)) + (_%make-descr115575%_ + (let ((__tmp115631 + (let ((__tmp115632 (let () (declare (not safe)) - (##cadr _%code115471%_)))) + (##cadr _%code115577%_)))) (declare (not safe)) - (##sourcify __tmp115526 _%src115465%_)))) + (##sourcify __tmp115632 _%src115571%_)))) (declare (not safe)) - (##form-size __tmp115525)))) - (_%fail!115468%_))))))) + (##form-size __tmp115631)))) + (_%fail!115574%_))))))) (define __source->syntax - (lambda (_%src115454%_) - (let _%recur115456%_ ((_%e115458%_ _%src115454%_)) - (if (let () (declare (not safe)) (##source? _%e115458%_)) - (let ((__tmp115528 - (_%recur115456%_ + (lambda (_%src115560%_) + (let _%recur115562%_ ((_%e115564%_ _%src115560%_)) + (if (let () (declare (not safe)) (##source? _%e115564%_)) + (let ((__tmp115634 + (_%recur115562%_ (let () (declare (not safe)) - (##source-code _%e115458%_)))) - (__tmp115527 + (##source-code _%e115564%_)))) + (__tmp115633 (let () (declare (not safe)) - (##source-locat _%e115458%_)))) + (##source-locat _%e115564%_)))) (declare (not safe)) - (##structure AST::t __tmp115528 __tmp115527)) - (if (pair? _%e115458%_) - (cons (_%recur115456%_ - (let () (declare (not safe)) (##car _%e115458%_))) - (_%recur115456%_ - (let () (declare (not safe)) (##cdr _%e115458%_)))) - (if (vector? _%e115458%_) - (vector-map _%recur115456%_ _%e115458%_) - (if (box? _%e115458%_) - (box (_%recur115456%_ (unbox _%e115458%_))) - _%e115458%_))))))) + (##structure AST::t __tmp115634 __tmp115633)) + (if (pair? _%e115564%_) + (cons (_%recur115562%_ + (let () (declare (not safe)) (##car _%e115564%_))) + (_%recur115562%_ + (let () (declare (not safe)) (##cdr _%e115564%_)))) + (if (vector? _%e115564%_) + (vector-map _%recur115562%_ _%e115564%_) + (if (box? _%e115564%_) + (box (_%recur115562%_ (unbox _%e115564%_))) + _%e115564%_))))))) (define __compile-top-source - (lambda (_%stx115452%_) - (cons '__noexpand: (__compile-top _%stx115452%_)))) + (lambda (_%stx115558%_) + (cons '__noexpand: (__compile-top _%stx115558%_)))) (define __compile-top - (lambda (_%stx115450%_) - (let ((__tmp115529 (gx#core-compile-top-syntax _%stx115450%_))) + (lambda (_%stx115556%_) + (let ((__tmp115635 (gx#core-compile-top-syntax _%stx115556%_))) (declare (not safe)) - (__compile __tmp115529)))) + (__compile __tmp115635)))) (define __modstate (let () (declare (not safe)) (make-hash-table-eq))) (define __modstate-mx (make-mutex 'import)) (define __modstate-cv (make-condition-variable 'import)) (define __eval-import - (lambda (_%in115412%_) - (letrec ((_%import1115414%_ - (lambda (_%in115435%_ _%phi115436%_) - (if (gx#module-import? _%in115435%_) - (let ((_%iphi115439%_ - (fx+ _%phi115436%_ - (gx#module-import-phi _%in115435%_)))) + (lambda (_%in115518%_) + (letrec ((_%import1115520%_ + (lambda (_%in115541%_ _%phi115542%_) + (if (gx#module-import? _%in115541%_) + (let ((_%iphi115545%_ + (fx+ _%phi115542%_ + (gx#module-import-phi _%in115541%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115439%_)) - (_%eval1115415%_ + (##fxzero? _%iphi115545%_)) + (_%eval1115521%_ (gx#module-export-context - (gx#module-import-source _%in115435%_))) + (gx#module-import-source _%in115541%_))) '#!void)) - (if (gx#module-context? _%in115435%_) - (if (fxzero? _%phi115436%_) - (_%eval1115415%_ _%in115435%_) + (if (gx#module-context? _%in115541%_) + (if (fxzero? _%phi115542%_) + (_%eval1115521%_ _%in115541%_) '#!void) - (if (gx#import-set? _%in115435%_) - (let ((_%iphi115443%_ - (fx+ _%phi115436%_ - (gx#import-set-phi _%in115435%_)))) + (if (gx#import-set? _%in115541%_) + (let ((_%iphi115549%_ + (fx+ _%phi115542%_ + (gx#import-set-phi _%in115541%_)))) (if (let () (declare (not safe)) - (##fxzero? _%iphi115443%_)) - (_%eval1115415%_ - (gx#import-set-source _%in115435%_)) + (##fxzero? _%iphi115549%_)) + (_%eval1115521%_ + (gx#import-set-source _%in115541%_)) (if (let () (declare (not safe)) - (##fxpositive? _%iphi115443%_)) + (##fxpositive? _%iphi115549%_)) (for-each - (lambda (_%in115447%_) - (_%import1115414%_ - _%in115447%_ - _%iphi115443%_)) + (lambda (_%in115553%_) + (_%import1115520%_ + _%in115553%_ + _%iphi115549%_)) (gx#module-context-import (gx#import-set-source - _%in115435%_))) + _%in115541%_))) '#!void))) (let () (declare (not safe)) (error '"Unexpected import" - _%in115435%_))))))) - (_%eval1115415%_ - (lambda (_%ctx115419%_) + _%in115541%_))))))) + (_%eval1115521%_ + (lambda (_%ctx115525%_) (mutex-lock! __modstate-mx) - (let ((_%$e115421%_ + (let ((_%$e115527%_ (let () (declare (not safe)) - (__hash-get __modstate _%ctx115419%_)))) - (if _%$e115421%_ - ((lambda (_%state115424%_) - (let ((_%$e115426%_ (car _%state115424%_))) - (if (eq? 'forcing _%$e115426%_) + (__hash-get __modstate _%ctx115525%_)))) + (if _%$e115527%_ + ((lambda (_%state115530%_) + (let ((_%$e115532%_ (car _%state115530%_))) + (if (eq? 'forcing _%$e115532%_) (begin (mutex-unlock! __modstate-mx __modstate-cv) - (_%eval1115415%_ _%ctx115419%_)) - (if (eq? 'ready _%$e115426%_) + (_%eval1115521%_ _%ctx115525%_)) + (if (eq? 'ready _%$e115532%_) (begin (mutex-unlock! __modstate-mx) - (cadr _%state115424%_)) - (if (eq? 'error _%$e115426%_) + (cadr _%state115530%_)) + (if (eq? 'error _%$e115532%_) (begin (mutex-unlock! __modstate-mx) - (let ((__tmp115530 - (cadr _%state115424%_))) + (let ((__tmp115636 + (cadr _%state115530%_))) (declare (not safe)) - (raise __tmp115530))) + (raise __tmp115636))) (begin (mutex-unlock! __modstate-mx) (let () (declare (not safe)) (error '"internal error; unexpected module state" - _%state115424%_)))))))) - _%$e115421%_) + _%state115530%_)))))))) + _%$e115527%_) (let () (let () (declare (not safe)) (__hash-put! __modstate - _%ctx115419%_ + _%ctx115525%_ '(forcing))) (mutex-unlock! __modstate-mx) - (let ((__tmp115533 - (lambda (_%exn115430%_) + (let ((__tmp115639 + (lambda (_%exn115536%_) (mutex-lock! __modstate-mx) - (let ((__tmp115534 + (let ((__tmp115640 (cons 'error - (cons _%exn115430%_ '())))) + (cons _%exn115536%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115419%_ - __tmp115534)) + _%ctx115525%_ + __tmp115640)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) (let () (declare (not safe)) - (raise _%exn115430%_)))) - (__tmp115531 + (raise _%exn115536%_)))) + (__tmp115637 (lambda () - (let ((_%result115433%_ - (__eval-module _%ctx115419%_))) + (let ((_%result115539%_ + (__eval-module _%ctx115525%_))) (mutex-lock! __modstate-mx) - (let ((__tmp115532 + (let ((__tmp115638 (cons 'ready - (cons _%result115433%_ + (cons _%result115539%_ '())))) (declare (not safe)) (__hash-put! __modstate - _%ctx115419%_ - __tmp115532)) + _%ctx115525%_ + __tmp115638)) (condition-variable-broadcast! __modstate-cv) (mutex-unlock! __modstate-mx) - _%result115433%_)))) + _%result115539%_)))) (declare (not safe)) - (__with-catch __tmp115533 __tmp115531)))))))) - (if (pair? _%in115412%_) - (let ((__tmp115535 - (lambda (_%in115417%_) - (_%import1115414%_ _%in115417%_ '0)))) + (__with-catch __tmp115639 __tmp115637)))))))) + (if (pair? _%in115518%_) + (let ((__tmp115641 + (lambda (_%in115523%_) + (_%import1115520%_ _%in115523%_ '0)))) (declare (not safe)) - (##for-each __tmp115535 _%in115412%_)) - (_%import1115414%_ _%in115412%_ '0))))) + (##for-each __tmp115641 _%in115518%_)) + (_%import1115520%_ _%in115518%_ '0))))) (define __eval-module - (lambda (_%obj115410%_) (gx#core-eval-module _%obj115410%_))) + (lambda (_%obj115516%_) (gx#core-eval-module _%obj115516%_))) (define __interrupt-handler (lambda () (if (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG" '#f)) @@ -323,86 +323,86 @@ (newline (current-error-port)) (display '"--- continuation backtrace:" (current-error-port)) (newline (current-error-port)) - (let* ((_%stack-trace-head115406%_ - (let ((_%$e115403%_ + (let* ((_%stack-trace-head115512%_ + (let ((_%$e115509%_ (string->number (let () (declare (not safe)) (##getenv '"GERBIL_DEBUG_STACKTRACE" '"10"))))) - (if _%$e115403%_ _%$e115403%_ '10))) - (__tmp115536 - (lambda (_%cont115408%_) + (if _%$e115509%_ _%$e115509%_ '10))) + (__tmp115642 + (lambda (_%cont115514%_) (display-continuation-backtrace - _%cont115408%_ + _%cont115514%_ (current-error-port) '1 '1 '0 - _%stack-trace-head115406%_)))) + _%stack-trace-head115512%_)))) (declare (not safe)) - (##continuation-capture __tmp115536))) + (##continuation-capture __tmp115642))) '#!void) (let () (declare (not safe)) (##default-user-interrupt-handler)))) (define gerbil-runtime-init! - (lambda (_%builtin-modules115379%_) + (lambda (_%builtin-modules115485%_) (if __runtime-initialized '#!void (begin (let () (declare (not safe)) (dump-stack-trace? '#t)) - (let* ((_%home115381%_ + (let* ((_%home115487%_ (let () (declare (not safe)) (gerbil-home))) - (_%libdir115383%_ (path-expand '"lib" _%home115381%_)) - (_%userpath115385%_ + (_%libdir115489%_ (path-expand '"lib" _%home115487%_)) + (_%userpath115491%_ (path-expand '"lib" (let () (declare (not safe)) (gerbil-path)))) - (_%loadpath115387%_ + (_%loadpath115493%_ (if (let () (declare (not safe)) (##getenv '"GERBIL_BUILD_PREFIX" '#f)) - (cons _%libdir115383%_ '()) - (cons _%userpath115385%_ - (cons _%libdir115383%_ '())))) - (_%loadpath115397%_ - (let ((_%$e115389%_ + (cons _%libdir115489%_ '()) + (cons _%userpath115491%_ + (cons _%libdir115489%_ '())))) + (_%loadpath115503%_ + (let ((_%$e115495%_ (let () (declare (not safe)) (##getenv '"GERBIL_LOADPATH" '#f)))) - (if _%$e115389%_ - ((lambda (_%envvar115392%_) - (let ((__tmp115537 - (let ((__tmp115539 - (lambda (_%x115394%_) + (if _%$e115495%_ + ((lambda (_%envvar115498%_) + (let ((__tmp115643 + (let ((__tmp115645 + (lambda (_%x115500%_) (not (let () (declare (not safe)) (string-empty? - _%x115394%_))))) - (__tmp115538 + _%x115500%_))))) + (__tmp115644 (let () (declare (not safe)) (string-split - _%envvar115392%_ + _%envvar115498%_ '#\:)))) (declare (not safe)) - (##filter __tmp115539 __tmp115538)))) + (##filter __tmp115645 __tmp115644)))) (declare (not safe)) - (##append __tmp115537 _%loadpath115387%_))) - _%$e115389%_) - _%loadpath115387%_)))) + (##append __tmp115643 _%loadpath115493%_))) + _%$e115495%_) + _%loadpath115493%_)))) (declare (not safe)) - (__set-load-path! _%loadpath115397%_)) + (__set-load-path! _%loadpath115503%_)) (for-each - (lambda (_%mod115400%_) + (lambda (_%mod115506%_) (let () (declare (not safe)) - (__hash-put! __modules _%mod115400%_ 'builtin)) - (let ((__tmp115540 + (__hash-put! __modules _%mod115506%_ 'builtin)) + (let ((__tmp115646 (let () (declare (not safe)) - (##string-append _%mod115400%_ '"~0")))) + (##string-append _%mod115506%_ '"~0")))) (declare (not safe)) - (__hash-put! __modules __tmp115540 'builtin))) - _%builtin-modules115379%_) + (__hash-put! __modules __tmp115646 'builtin))) + _%builtin-modules115485%_) (current-user-interrupt-handler __interrupt-handler) (current-readtable __*readtable*) (random-source-randomize! default-random-source) diff --git a/src/bootstrap/gerbil/runtime/interface~0.scm b/src/bootstrap/gerbil/runtime/interface~0.scm index fa977ff4d..b68643c9a 100644 --- a/src/bootstrap/gerbil/runtime/interface~0.scm +++ b/src/bootstrap/gerbil/runtime/interface~0.scm @@ -1,22 +1,22 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/interface::timestamp 1733870073) + (define gerbil/runtime/interface::timestamp 1734131746) (begin (define CastError::t - (let ((__tmp105117 (list Error::t))) + (let ((__tmp105223 (list Error::t))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#CastError::t 'CastError - __tmp105117 + __tmp105223 '() '() ':init!))) (define CastError? (let () (declare (not safe)) (__make-class-predicate CastError::t))) (define make-CastError - (lambda _%$args105110%_ - (apply make-instance CastError::t _%$args105110%_))) + (lambda _%$args105216%_ + (apply make-instance CastError::t _%$args105216%_))) (define CastError-message (let () (declare (not safe)) @@ -86,34 +86,34 @@ (declare (not safe)) (__bind-method!__% CastError::t ':init! CastError:::init! '#f)) (define raise-cast-error - (lambda (_%where104984%_ _%message104985%_ . _%irritants104986%_) - (let ((__tmp105118 - (let ((__obj105113 + (lambda (_%where105090%_ _%message105091%_ . _%irritants105092%_) + (let ((__tmp105224 + (let ((__obj105219 (let () (declare (not safe)) (##structure CastError::t '#f '#f '#f '#f)))) (let () (declare (not safe)) (CastError:::init! - __obj105113 - _%message104985%_ + __obj105219 + _%message105091%_ 'where: - _%where104984%_ + _%where105090%_ 'irritants: - _%irritants104986%_)) - __obj105113))) + _%irritants105092%_)) + __obj105219))) (declare (not safe)) - (raise __tmp105118)))) + (raise __tmp105224)))) (define interface-cast-error? CastError?) (define interface-instance::t - (let ((__tmp105120 (list)) (__tmp105119 (cons (cons 'struct: '#t) '()))) + (let ((__tmp105226 (list)) (__tmp105225 (cons (cons 'struct: '#t) '()))) (declare (not safe)) (__make-class-type 'gerbil#interface-instance::t 'interface-instance - __tmp105120 + __tmp105226 '(__object) - __tmp105119 + __tmp105225 '#f))) (define interface-instance? (let () @@ -138,24 +138,24 @@ (declare (not safe)) (__make-class-slot-unchecked-mutator interface-instance::t '__object))) (define interface-descriptor::t - (let ((__tmp105122 (list)) - (__tmp105121 + (let ((__tmp105228 (list)) + (__tmp105227 (cons (cons 'struct: '#t) (cons (cons 'final: '#t) '())))) (declare (not safe)) (__make-class-type 'gerbil/runtime/interface#interface-descriptor::t 'interface-descriptor - __tmp105122 + __tmp105228 '(type methods) - __tmp105121 + __tmp105227 '#f))) (define interface-descriptor? (let () (declare (not safe)) (__make-class-predicate interface-descriptor::t))) (define make-interface-descriptor - (lambda _%$args104981%_ - (apply make-instance interface-descriptor::t _%$args104981%_))) + (lambda _%$args105087%_ + (apply make-instance interface-descriptor::t _%$args105087%_))) (define interface-descriptor-type (let () (declare (not safe)) @@ -193,553 +193,553 @@ interface-descriptor::t 'methods))) (define __interface-hash-key - (lambda (_%key104979%_) - (let ((__tmp105124 + (lambda (_%key105085%_) + (let ((__tmp105230 (macro-slot '1 - (let () (declare (not safe)) (##car _%key104979%_)))) - (__tmp105123 + (let () (declare (not safe)) (##car _%key105085%_)))) + (__tmp105229 (macro-slot '1 - (let () (declare (not safe)) (##cdr _%key104979%_))))) + (let () (declare (not safe)) (##cdr _%key105085%_))))) (declare (not safe)) - (##fxxor __tmp105124 __tmp105123)))) + (##fxxor __tmp105230 __tmp105229)))) (define __interface-test-key - (lambda (_%a104976%_ _%b104977%_) - (if (let ((__tmp105126 - (let () (declare (not safe)) (##car _%a104976%_))) - (__tmp105125 - (let () (declare (not safe)) (##car _%b104977%_)))) + (lambda (_%a105082%_ _%b105083%_) + (if (let ((__tmp105232 + (let () (declare (not safe)) (##car _%a105082%_))) + (__tmp105231 + (let () (declare (not safe)) (##car _%b105083%_)))) (declare (not safe)) - (##eq? __tmp105126 __tmp105125)) - (let ((__tmp105128 - (let () (declare (not safe)) (##cdr _%a104976%_))) - (__tmp105127 - (let () (declare (not safe)) (##cdr _%b104977%_)))) + (##eq? __tmp105232 __tmp105231)) + (let ((__tmp105234 + (let () (declare (not safe)) (##cdr _%a105082%_))) + (__tmp105233 + (let () (declare (not safe)) (##cdr _%b105083%_)))) (declare (not safe)) - (##eq? __tmp105128 __tmp105127)) + (##eq? __tmp105234 __tmp105233)) '#f))) (define make-prototype-table__% - (lambda (_%size-hint104957%_ _%seed104959%_) + (lambda (_%size-hint105063%_ _%seed105065%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint104957%_ + _%size-hint105063%_ __interface-hash-key __interface-test-key - _%seed104959%_)))) + _%seed105065%_)))) (define make-prototype-table__0 (lambda () - (let* ((_%size-hint104965%_ '#f) (_%seed104967%_ '0)) - (make-prototype-table__% _%size-hint104965%_ _%seed104967%_)))) + (let* ((_%size-hint105071%_ '#f) (_%seed105073%_ '0)) + (make-prototype-table__% _%size-hint105071%_ _%seed105073%_)))) (define make-prototype-table__1 - (lambda (_%size-hint104969%_) - (let ((_%seed104971%_ '0)) - (make-prototype-table__% _%size-hint104969%_ _%seed104971%_)))) + (lambda (_%size-hint105075%_) + (let ((_%seed105077%_ '0)) + (make-prototype-table__% _%size-hint105075%_ _%seed105077%_)))) (define make-prototype-table - (lambda _g105130_ - (let ((_g105129_ (let () (declare (not safe)) (##length _g105130_)))) - (cond ((let () (declare (not safe)) (##fx= _g105129_ 0)) - (apply make-prototype-table__0 _g105130_)) - ((let () (declare (not safe)) (##fx= _g105129_ 1)) - (apply make-prototype-table__1 _g105130_)) - ((let () (declare (not safe)) (##fx= _g105129_ 2)) - (apply make-prototype-table__% _g105130_)) + (lambda _g105236_ + (let ((_g105235_ (let () (declare (not safe)) (##length _g105236_)))) + (cond ((let () (declare (not safe)) (##fx= _g105235_ 0)) + (apply make-prototype-table__0 _g105236_)) + ((let () (declare (not safe)) (##fx= _g105235_ 1)) + (apply make-prototype-table__1 _g105236_)) + ((let () (declare (not safe)) (##fx= _g105235_ 2)) + (apply make-prototype-table__% _g105236_)) (else (##raise-wrong-number-of-arguments-exception make-prototype-table - _g105130_)))))) + _g105236_)))))) (define prototype-table-ref - (lambda (_%tab104910%_ _%key104911%_ _%default104912%_) - (let ((_%table104914%_ - (let () (declare (not safe)) (&raw-table-table _%tab104910%_))) - (_%seed104915%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104910%_)))) - (let* ((_%h104917%_ - (fxxor (__interface-hash-key _%key104911%_) _%seed104915%_)) - (_%size104920%_ (vector-length _%table104914%_)) - (_%entries104923%_ + (lambda (_%tab105016%_ _%key105017%_ _%default105018%_) + (let ((_%table105020%_ + (let () (declare (not safe)) (&raw-table-table _%tab105016%_))) + (_%seed105021%_ + (let () (declare (not safe)) (&raw-table-seed _%tab105016%_)))) + (let* ((_%h105023%_ + (fxxor (__interface-hash-key _%key105017%_) _%seed105021%_)) + (_%size105026%_ (vector-length _%table105020%_)) + (_%entries105029%_ (let () (declare (not safe)) - (##fxquotient _%size104920%_ '2))) - (_%start104926%_ - (let ((__tmp105131 + (##fxquotient _%size105026%_ '2))) + (_%start105032%_ + (let ((__tmp105237 (let () (declare (not safe)) - (##fxmodulo _%h104917%_ _%entries104923%_)))) + (##fxmodulo _%h105023%_ _%entries105029%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105131 '1)))) - (let _%loop104930%_ ((_%probe104933%_ _%start104926%_) - (_%i104935%_ '1) - (_%deleted104937%_ '#f)) - (let ((_%k104940%_ (vector-ref _%table104914%_ _%probe104933%_))) - (if (eq? _%k104940%_ (macro-unused-obj)) - _%default104912%_ - (if (eq? _%k104940%_ (macro-deleted-obj)) - (_%loop104930%_ - (let ((_%next-probe104945%_ - (fx+ _%start104926%_ - _%i104935%_ - (fx* _%i104935%_ _%i104935%_)))) + (##fxarithmetic-shift-left __tmp105237 '1)))) + (let _%loop105036%_ ((_%probe105039%_ _%start105032%_) + (_%i105041%_ '1) + (_%deleted105043%_ '#f)) + (let ((_%k105046%_ (vector-ref _%table105020%_ _%probe105039%_))) + (if (eq? _%k105046%_ (macro-unused-obj)) + _%default105018%_ + (if (eq? _%k105046%_ (macro-deleted-obj)) + (_%loop105036%_ + (let ((_%next-probe105051%_ + (fx+ _%start105032%_ + _%i105041%_ + (fx* _%i105041%_ _%i105041%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104945%_ _%size104920%_)) - (let () (declare (not safe)) (##fx+ _%i104935%_ '1)) - (let ((_%$e104948%_ _%deleted104937%_)) - (if _%$e104948%_ _%$e104948%_ _%probe104933%_))) - (if (__interface-test-key _%key104911%_ _%k104940%_) + (##fxmodulo _%next-probe105051%_ _%size105026%_)) + (let () (declare (not safe)) (##fx+ _%i105041%_ '1)) + (let ((_%$e105054%_ _%deleted105043%_)) + (if _%$e105054%_ _%$e105054%_ _%probe105039%_))) + (if (__interface-test-key _%key105017%_ _%k105046%_) (vector-ref - _%table104914%_ + _%table105020%_ (let () (declare (not safe)) - (##fx+ _%probe104933%_ '1))) - (_%loop104930%_ - (let ((_%next-probe104953%_ - (fx+ _%start104926%_ - _%i104935%_ - (fx* _%i104935%_ _%i104935%_)))) + (##fx+ _%probe105039%_ '1))) + (_%loop105036%_ + (let ((_%next-probe105059%_ + (fx+ _%start105032%_ + _%i105041%_ + (fx* _%i105041%_ _%i105041%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104953%_ - _%size104920%_)) + _%next-probe105059%_ + _%size105026%_)) (let () (declare (not safe)) - (##fx+ _%i104935%_ '1)) - _%deleted104937%_)))))))))) + (##fx+ _%i105041%_ '1)) + _%deleted105043%_)))))))))) (define prototype-table-set! - (lambda (_%tab104906%_ _%key104907%_ _%value104908%_) - (if (let ((__tmp105134 + (lambda (_%tab105012%_ _%key105013%_ _%value105014%_) + (if (let ((__tmp105240 (let () (declare (not safe)) - (&raw-table-free _%tab104906%_))) - (__tmp105132 - (let ((__tmp105133 + (&raw-table-free _%tab105012%_))) + (__tmp105238 + (let ((__tmp105239 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104906%_))))) + (&raw-table-table _%tab105012%_))))) (declare (not safe)) - (##fxquotient __tmp105133 '4)))) + (##fxquotient __tmp105239 '4)))) (declare (not safe)) - (##fx< __tmp105134 __tmp105132)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104906%_)) + (##fx< __tmp105240 __tmp105238)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab105012%_)) '#!void) - (__prototype-table-set! _%tab104906%_ _%key104907%_ _%value104908%_))) + (__prototype-table-set! _%tab105012%_ _%key105013%_ _%value105014%_))) (define __prototype-table-set! - (lambda (_%tab104857%_ _%key104858%_ _%value104859%_) - (let ((_%table104862%_ - (let () (declare (not safe)) (&raw-table-table _%tab104857%_))) - (_%seed104863%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104857%_)))) - (let* ((_%h104865%_ - (fxxor (__interface-hash-key _%key104858%_) _%seed104863%_)) - (_%size104868%_ (vector-length _%table104862%_)) - (_%entries104871%_ + (lambda (_%tab104963%_ _%key104964%_ _%value104965%_) + (let ((_%table104968%_ + (let () (declare (not safe)) (&raw-table-table _%tab104963%_))) + (_%seed104969%_ + (let () (declare (not safe)) (&raw-table-seed _%tab104963%_)))) + (let* ((_%h104971%_ + (fxxor (__interface-hash-key _%key104964%_) _%seed104969%_)) + (_%size104974%_ (vector-length _%table104968%_)) + (_%entries104977%_ (let () (declare (not safe)) - (##fxquotient _%size104868%_ '2))) - (_%start104874%_ - (let ((__tmp105135 + (##fxquotient _%size104974%_ '2))) + (_%start104980%_ + (let ((__tmp105241 (let () (declare (not safe)) - (##fxmodulo _%h104865%_ _%entries104871%_)))) + (##fxmodulo _%h104971%_ _%entries104977%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105135 '1)))) - (let _%loop104878%_ ((_%probe104881%_ _%start104874%_) - (_%i104883%_ '1) - (_%deleted104885%_ '#f)) - (let ((_%k104888%_ (vector-ref _%table104862%_ _%probe104881%_))) - (if (eq? _%k104888%_ (macro-unused-obj)) - (if _%deleted104885%_ + (##fxarithmetic-shift-left __tmp105241 '1)))) + (let _%loop104984%_ ((_%probe104987%_ _%start104980%_) + (_%i104989%_ '1) + (_%deleted104991%_ '#f)) + (let ((_%k104994%_ (vector-ref _%table104968%_ _%probe104987%_))) + (if (eq? _%k104994%_ (macro-unused-obj)) + (if _%deleted104991%_ (begin (vector-set! - _%table104862%_ - _%deleted104885%_ - _%key104858%_) + _%table104968%_ + _%deleted104991%_ + _%key104964%_) (vector-set! - _%table104862%_ + _%table104968%_ (let () (declare (not safe)) - (##fx+ _%deleted104885%_ '1)) - _%value104859%_) + (##fx+ _%deleted104991%_ '1)) + _%value104965%_) ((lambda () - (let ((__tmp105136 - (let ((__tmp105137 + (let ((__tmp105242 + (let ((__tmp105243 (let () (declare (not safe)) (&raw-table-count - _%tab104857%_)))) + _%tab104963%_)))) (declare (not safe)) - (##fx+ __tmp105137 '1)))) + (##fx+ __tmp105243 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104857%_ - __tmp105136))))) + _%tab104963%_ + __tmp105242))))) (begin (vector-set! - _%table104862%_ - _%probe104881%_ - _%key104858%_) + _%table104968%_ + _%probe104987%_ + _%key104964%_) (vector-set! - _%table104862%_ + _%table104968%_ (let () (declare (not safe)) - (##fx+ _%probe104881%_ '1)) - _%value104859%_) + (##fx+ _%probe104987%_ '1)) + _%value104965%_) ((lambda () - (let ((__tmp105138 - (let ((__tmp105139 + (let ((__tmp105244 + (let ((__tmp105245 (let () (declare (not safe)) - (&raw-table-free _%tab104857%_)))) + (&raw-table-free _%tab104963%_)))) (declare (not safe)) - (##fx- __tmp105139 '1)))) + (##fx- __tmp105245 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104857%_ - __tmp105138)) - (let ((__tmp105140 - (let ((__tmp105141 + _%tab104963%_ + __tmp105244)) + (let ((__tmp105246 + (let ((__tmp105247 (let () (declare (not safe)) (&raw-table-count - _%tab104857%_)))) + _%tab104963%_)))) (declare (not safe)) - (##fx+ __tmp105141 '1)))) + (##fx+ __tmp105247 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104857%_ - __tmp105140)))))) - (if (eq? _%k104888%_ (macro-deleted-obj)) - (_%loop104878%_ - (let ((_%next-probe104895%_ - (fx+ _%start104874%_ - _%i104883%_ - (fx* _%i104883%_ _%i104883%_)))) + _%tab104963%_ + __tmp105246)))))) + (if (eq? _%k104994%_ (macro-deleted-obj)) + (_%loop104984%_ + (let ((_%next-probe105001%_ + (fx+ _%start104980%_ + _%i104989%_ + (fx* _%i104989%_ _%i104989%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104895%_ _%size104868%_)) - (let () (declare (not safe)) (##fx+ _%i104883%_ '1)) - (let ((_%$e104898%_ _%deleted104885%_)) - (if _%$e104898%_ _%$e104898%_ _%probe104881%_))) - (if (__interface-test-key _%key104858%_ _%k104888%_) + (##fxmodulo _%next-probe105001%_ _%size104974%_)) + (let () (declare (not safe)) (##fx+ _%i104989%_ '1)) + (let ((_%$e105004%_ _%deleted104991%_)) + (if _%$e105004%_ _%$e105004%_ _%probe104987%_))) + (if (__interface-test-key _%key104964%_ _%k104994%_) (let () (vector-set! - _%table104862%_ - _%probe104881%_ - _%key104858%_) + _%table104968%_ + _%probe104987%_ + _%key104964%_) (vector-set! - _%table104862%_ + _%table104968%_ (let () (declare (not safe)) - (##fx+ _%probe104881%_ '1)) - _%value104859%_)) - (_%loop104878%_ - (let ((_%next-probe104903%_ - (fx+ _%start104874%_ - _%i104883%_ - (fx* _%i104883%_ _%i104883%_)))) + (##fx+ _%probe104987%_ '1)) + _%value104965%_)) + (_%loop104984%_ + (let ((_%next-probe105009%_ + (fx+ _%start104980%_ + _%i104989%_ + (fx* _%i104989%_ _%i104989%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104903%_ - _%size104868%_)) + _%next-probe105009%_ + _%size104974%_)) (let () (declare (not safe)) - (##fx+ _%i104883%_ '1)) - _%deleted104885%_)))))))))) + (##fx+ _%i104989%_ '1)) + _%deleted104991%_)))))))))) (define prototype-table-update! - (lambda (_%tab104852%_ - _%key104853%_ - _%prototype-table-update!104854%_ - _%default104855%_) - (if (let ((__tmp105144 + (lambda (_%tab104958%_ + _%key104959%_ + _%prototype-table-update!104960%_ + _%default104961%_) + (if (let ((__tmp105250 (let () (declare (not safe)) - (&raw-table-free _%tab104852%_))) - (__tmp105142 - (let ((__tmp105143 + (&raw-table-free _%tab104958%_))) + (__tmp105248 + (let ((__tmp105249 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab104852%_))))) + (&raw-table-table _%tab104958%_))))) (declare (not safe)) - (##fxquotient __tmp105143 '4)))) + (##fxquotient __tmp105249 '4)))) (declare (not safe)) - (##fx< __tmp105144 __tmp105142)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab104852%_)) + (##fx< __tmp105250 __tmp105248)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab104958%_)) '#!void) (__prototype-table-update! - _%tab104852%_ - _%key104853%_ - _%prototype-table-update!104854%_ - _%default104855%_))) + _%tab104958%_ + _%key104959%_ + _%prototype-table-update!104960%_ + _%default104961%_))) (define __prototype-table-update! - (lambda (_%tab104802%_ - _%key104803%_ - _%prototype-table-update!104804%_ - _%default104805%_) - (let ((_%table104808%_ - (let () (declare (not safe)) (&raw-table-table _%tab104802%_))) - (_%seed104809%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104802%_)))) - (let* ((_%h104811%_ - (fxxor (__interface-hash-key _%key104803%_) _%seed104809%_)) - (_%size104814%_ (vector-length _%table104808%_)) - (_%entries104817%_ + (lambda (_%tab104908%_ + _%key104909%_ + _%prototype-table-update!104910%_ + _%default104911%_) + (let ((_%table104914%_ + (let () (declare (not safe)) (&raw-table-table _%tab104908%_))) + (_%seed104915%_ + (let () (declare (not safe)) (&raw-table-seed _%tab104908%_)))) + (let* ((_%h104917%_ + (fxxor (__interface-hash-key _%key104909%_) _%seed104915%_)) + (_%size104920%_ (vector-length _%table104914%_)) + (_%entries104923%_ (let () (declare (not safe)) - (##fxquotient _%size104814%_ '2))) - (_%start104820%_ - (let ((__tmp105145 + (##fxquotient _%size104920%_ '2))) + (_%start104926%_ + (let ((__tmp105251 (let () (declare (not safe)) - (##fxmodulo _%h104811%_ _%entries104817%_)))) + (##fxmodulo _%h104917%_ _%entries104923%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105145 '1)))) - (let _%loop104824%_ ((_%probe104827%_ _%start104820%_) - (_%i104829%_ '1) - (_%deleted104831%_ '#f)) - (let ((_%k104834%_ (vector-ref _%table104808%_ _%probe104827%_))) - (if (eq? _%k104834%_ (macro-unused-obj)) - (if _%deleted104831%_ + (##fxarithmetic-shift-left __tmp105251 '1)))) + (let _%loop104930%_ ((_%probe104933%_ _%start104926%_) + (_%i104935%_ '1) + (_%deleted104937%_ '#f)) + (let ((_%k104940%_ (vector-ref _%table104914%_ _%probe104933%_))) + (if (eq? _%k104940%_ (macro-unused-obj)) + (if _%deleted104937%_ (begin (vector-set! - _%table104808%_ - _%deleted104831%_ - _%key104803%_) + _%table104914%_ + _%deleted104937%_ + _%key104909%_) (vector-set! - _%table104808%_ + _%table104914%_ (let () (declare (not safe)) - (##fx+ _%deleted104831%_ '1)) - (_%prototype-table-update!104804%_ - _%default104805%_)) + (##fx+ _%deleted104937%_ '1)) + (_%prototype-table-update!104910%_ + _%default104911%_)) ((lambda () - (let ((__tmp105146 - (let ((__tmp105147 + (let ((__tmp105252 + (let ((__tmp105253 (let () (declare (not safe)) (&raw-table-count - _%tab104802%_)))) + _%tab104908%_)))) (declare (not safe)) - (##fx+ __tmp105147 '1)))) + (##fx+ __tmp105253 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104802%_ - __tmp105146))))) + _%tab104908%_ + __tmp105252))))) (begin (vector-set! - _%table104808%_ - _%probe104827%_ - _%key104803%_) + _%table104914%_ + _%probe104933%_ + _%key104909%_) (vector-set! - _%table104808%_ + _%table104914%_ (let () (declare (not safe)) - (##fx+ _%probe104827%_ '1)) - (_%prototype-table-update!104804%_ - _%default104805%_)) + (##fx+ _%probe104933%_ '1)) + (_%prototype-table-update!104910%_ + _%default104911%_)) ((lambda () - (let ((__tmp105148 - (let ((__tmp105149 + (let ((__tmp105254 + (let ((__tmp105255 (let () (declare (not safe)) - (&raw-table-free _%tab104802%_)))) + (&raw-table-free _%tab104908%_)))) (declare (not safe)) - (##fx- __tmp105149 '1)))) + (##fx- __tmp105255 '1)))) (declare (not safe)) (&raw-table-free-set! - _%tab104802%_ - __tmp105148)) - (let ((__tmp105150 - (let ((__tmp105151 + _%tab104908%_ + __tmp105254)) + (let ((__tmp105256 + (let ((__tmp105257 (let () (declare (not safe)) (&raw-table-count - _%tab104802%_)))) + _%tab104908%_)))) (declare (not safe)) - (##fx+ __tmp105151 '1)))) + (##fx+ __tmp105257 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104802%_ - __tmp105150)))))) - (if (eq? _%k104834%_ (macro-deleted-obj)) - (_%loop104824%_ - (let ((_%next-probe104841%_ - (fx+ _%start104820%_ - _%i104829%_ - (fx* _%i104829%_ _%i104829%_)))) + _%tab104908%_ + __tmp105256)))))) + (if (eq? _%k104940%_ (macro-deleted-obj)) + (_%loop104930%_ + (let ((_%next-probe104947%_ + (fx+ _%start104926%_ + _%i104935%_ + (fx* _%i104935%_ _%i104935%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104841%_ _%size104814%_)) - (let () (declare (not safe)) (##fx+ _%i104829%_ '1)) - (let ((_%$e104844%_ _%deleted104831%_)) - (if _%$e104844%_ _%$e104844%_ _%probe104827%_))) - (if (__interface-test-key _%key104803%_ _%k104834%_) + (##fxmodulo _%next-probe104947%_ _%size104920%_)) + (let () (declare (not safe)) (##fx+ _%i104935%_ '1)) + (let ((_%$e104950%_ _%deleted104937%_)) + (if _%$e104950%_ _%$e104950%_ _%probe104933%_))) + (if (__interface-test-key _%key104909%_ _%k104940%_) (let () (vector-set! - _%table104808%_ - _%probe104827%_ - _%key104803%_) + _%table104914%_ + _%probe104933%_ + _%key104909%_) (vector-set! - _%table104808%_ + _%table104914%_ (let () (declare (not safe)) - (##fx+ _%probe104827%_ '1)) - (_%prototype-table-update!104804%_ + (##fx+ _%probe104933%_ '1)) + (_%prototype-table-update!104910%_ (vector-ref - _%table104808%_ + _%table104914%_ (let () (declare (not safe)) - (##fx+ _%probe104827%_ '1)))))) - (_%loop104824%_ - (let ((_%next-probe104849%_ - (fx+ _%start104820%_ - _%i104829%_ - (fx* _%i104829%_ _%i104829%_)))) + (##fx+ _%probe104933%_ '1)))))) + (_%loop104930%_ + (let ((_%next-probe104955%_ + (fx+ _%start104926%_ + _%i104935%_ + (fx* _%i104935%_ _%i104935%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104849%_ - _%size104814%_)) + _%next-probe104955%_ + _%size104920%_)) (let () (declare (not safe)) - (##fx+ _%i104829%_ '1)) - _%deleted104831%_)))))))))) + (##fx+ _%i104935%_ '1)) + _%deleted104937%_)))))))))) (define prototype-table-delete! - (lambda (_%tab104757%_ _%key104759%_) - (let ((_%table104762%_ - (let () (declare (not safe)) (&raw-table-table _%tab104757%_))) - (_%seed104764%_ - (let () (declare (not safe)) (&raw-table-seed _%tab104757%_)))) - (let* ((_%h104767%_ - (fxxor (__interface-hash-key _%key104759%_) _%seed104764%_)) - (_%size104770%_ (vector-length _%table104762%_)) - (_%entries104773%_ + (lambda (_%tab104863%_ _%key104865%_) + (let ((_%table104868%_ + (let () (declare (not safe)) (&raw-table-table _%tab104863%_))) + (_%seed104870%_ + (let () (declare (not safe)) (&raw-table-seed _%tab104863%_)))) + (let* ((_%h104873%_ + (fxxor (__interface-hash-key _%key104865%_) _%seed104870%_)) + (_%size104876%_ (vector-length _%table104868%_)) + (_%entries104879%_ (let () (declare (not safe)) - (##fxquotient _%size104770%_ '2))) - (_%start104776%_ - (let ((__tmp105152 + (##fxquotient _%size104876%_ '2))) + (_%start104882%_ + (let ((__tmp105258 (let () (declare (not safe)) - (##fxmodulo _%h104767%_ _%entries104773%_)))) + (##fxmodulo _%h104873%_ _%entries104879%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp105152 '1)))) - (let _%loop104780%_ ((_%probe104783%_ _%start104776%_) - (_%i104785%_ '1)) - (let ((_%k104788%_ (vector-ref _%table104762%_ _%probe104783%_))) - (if (eq? _%k104788%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp105258 '1)))) + (let _%loop104886%_ ((_%probe104889%_ _%start104882%_) + (_%i104891%_ '1)) + (let ((_%k104894%_ (vector-ref _%table104868%_ _%probe104889%_))) + (if (eq? _%k104894%_ (macro-unused-obj)) '#!void - (if (eq? _%k104788%_ (macro-deleted-obj)) - (_%loop104780%_ - (let ((_%next-probe104793%_ - (fx+ _%start104776%_ - _%i104785%_ - (fx* _%i104785%_ _%i104785%_)))) + (if (eq? _%k104894%_ (macro-deleted-obj)) + (_%loop104886%_ + (let ((_%next-probe104899%_ + (fx+ _%start104882%_ + _%i104891%_ + (fx* _%i104891%_ _%i104891%_)))) (declare (not safe)) - (##fxmodulo _%next-probe104793%_ _%size104770%_)) - (let () (declare (not safe)) (##fx+ _%i104785%_ '1))) - (if (__interface-test-key _%key104759%_ _%k104788%_) + (##fxmodulo _%next-probe104899%_ _%size104876%_)) + (let () (declare (not safe)) (##fx+ _%i104891%_ '1))) + (if (__interface-test-key _%key104865%_ _%k104894%_) (let () (vector-set! - _%table104762%_ - _%probe104783%_ + _%table104868%_ + _%probe104889%_ (macro-deleted-obj)) (vector-set! - _%table104762%_ + _%table104868%_ (let () (declare (not safe)) - (##fx+ _%probe104783%_ '1)) + (##fx+ _%probe104889%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp105153 - (let ((__tmp105154 + (let ((__tmp105259 + (let ((__tmp105260 (let () (declare (not safe)) (&raw-table-count - _%tab104757%_)))) + _%tab104863%_)))) (declare (not safe)) - (##fx- __tmp105154 '1)))) + (##fx- __tmp105260 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab104757%_ - __tmp105153))))) - (_%loop104780%_ - (let ((_%next-probe104799%_ - (fx+ _%start104776%_ - _%i104785%_ - (fx* _%i104785%_ _%i104785%_)))) + _%tab104863%_ + __tmp105259))))) + (_%loop104886%_ + (let ((_%next-probe104905%_ + (fx+ _%start104882%_ + _%i104891%_ + (fx* _%i104891%_ _%i104891%_)))) (declare (not safe)) (##fxmodulo - _%next-probe104799%_ - _%size104770%_)) + _%next-probe104905%_ + _%size104876%_)) (let () (declare (not safe)) - (##fx+ _%i104785%_ '1)))))))))))) + (##fx+ _%i104891%_ '1)))))))))))) (define __interface-prototypes-mx (vector '0)) (define __interface-prototypes (make-prototype-table__% '#f '0)) (define __interface-prototypes-key (cons '#f '#f)) (define interface-subclass? - (lambda (_%klass104749%_) - (let ((_%super104750104752%_ - (let () (declare (not safe)) (##type-super _%klass104749%_)))) - (if _%super104750104752%_ - (let ((_%super104755%_ _%super104750104752%_)) - (eq? (let () (declare (not safe)) (##type-id _%super104755%_)) + (lambda (_%klass104855%_) + (let ((_%super104856104858%_ + (let () (declare (not safe)) (##type-super _%klass104855%_)))) + (if _%super104856104858%_ + (let ((_%super104861%_ _%super104856104858%_)) + (eq? (let () (declare (not safe)) (##type-id _%super104861%_)) (let () (declare (not safe)) (##type-id interface-instance::t)))) '#f)))) (define create-prototype - (lambda (_%descriptor104634%_ _%klass104635%_ _%obj-klass104636%_) - (let ((_%method-table104638%_ + (lambda (_%descriptor104740%_ _%klass104741%_ _%obj-klass104742%_) + (let ((_%method-table104744%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104636%_)))) - (let _%loop104641%_ ((_%rest104644%_ + (specialize-class _%obj-klass104742%_)))) + (let _%loop104747%_ ((_%rest104750%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104634%_ + _%descriptor104740%_ '2 '#f '#f))) - (_%count104646%_ '0) - (_%methods104648%_ '())) - (let* ((_%rest104650104658%_ _%rest104644%_) - (_%else104652104720%_ + (_%count104752%_ '0) + (_%methods104754%_ '())) + (let* ((_%rest104756104764%_ _%rest104750%_) + (_%else104758104826%_ (lambda () - (let ((_%prototype104666%_ - (let ((__obj105115 - (let ((__tmp105155 + (let ((_%prototype104772%_ + (let ((__obj105221 + (let ((__tmp105261 (let () (declare (not safe)) - (##fx+ _%count104646%_ '2)))) + (##fx+ _%count104752%_ '2)))) (declare (not safe)) (##make-structure - _%klass104635%_ - __tmp105155)))) + _%klass104741%_ + __tmp105261)))) (let () (declare (not safe)) - (object-fill! __obj105115 '#f)) - __obj105115))) - (let _%loop104669%_ ((_%rest104671%_ _%methods104648%_) - (_%off104672%_ + (object-fill! __obj105221 '#f)) + __obj105221))) + (let _%loop104775%_ ((_%rest104777%_ _%methods104754%_) + (_%off104778%_ (let () (declare (not safe)) - (##fx+ _%count104646%_ '1)))) - (let* ((_%rest104674104682%_ _%rest104671%_) - (_%else104676104701%_ + (##fx+ _%count104752%_ '1)))) + (let* ((_%rest104780104788%_ _%rest104777%_) + (_%else104782104807%_ (lambda () - (let ((_%prototype-key104690%_ + (let ((_%prototype-key104796%_ (cons (let () (declare (not safe)) - (##type-id _%klass104635%_)) + (##type-id _%klass104741%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104636%_))))) + _%obj-klass104742%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104695%_ () - (if (let ((__tmp105156 + (let _%again104801%_ () + (if (let ((__tmp105262 (let () (declare (not safe)) (##vector-cas! @@ -748,17 +748,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105156 '0)) + (##fx= __tmp105262 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104695%_))))) + (_%again104801%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104690%_ - _%prototype104666%_) + _%prototype-key104796%_ + _%prototype104772%_) (let () (declare (not safe)) (##vector-cas! @@ -766,149 +766,149 @@ '0 '0 '1)) - ((lambda (_%prototype104699%_) - _%prototype104699%_) - _%prototype104666%_)))) - (_%K104678104708%_ - (lambda (_%rest104704%_ _%method104705%_) + ((lambda (_%prototype104805%_) + _%prototype104805%_) + _%prototype104772%_)))) + (_%K104784104814%_ + (lambda (_%rest104810%_ _%method104811%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104666%_ - _%method104705%_ - _%off104672%_ - _%klass104635%_ + _%prototype104772%_ + _%method104811%_ + _%off104778%_ + _%klass104741%_ '#f)) - (_%loop104669%_ - _%rest104704%_ + (_%loop104775%_ + _%rest104810%_ (let () (declare (not safe)) - (##fx- _%off104672%_ '1)))))) - (if (pair? _%rest104674104682%_) - (let ((_%hd104679104711%_ + (##fx- _%off104778%_ '1)))))) + (if (pair? _%rest104780104788%_) + (let ((_%hd104785104817%_ (let () (declare (not safe)) - (##car _%rest104674104682%_))) - (_%tl104680104713%_ + (##car _%rest104780104788%_))) + (_%tl104786104819%_ (let () (declare (not safe)) - (##cdr _%rest104674104682%_)))) - (let* ((_%method104716%_ _%hd104679104711%_) - (_%rest104718%_ _%tl104680104713%_)) - (_%K104678104708%_ - _%rest104718%_ - _%method104716%_))) - (_%else104676104701%_))))))) - (_%K104654104737%_ - (lambda (_%rest104723%_ _%method-name104724%_) - (let ((_%$e104727%_ + (##cdr _%rest104780104788%_)))) + (let* ((_%method104822%_ _%hd104785104817%_) + (_%rest104824%_ _%tl104786104819%_)) + (_%K104784104814%_ + _%rest104824%_ + _%method104822%_))) + (_%else104782104807%_))))))) + (_%K104760104843%_ + (lambda (_%rest104829%_ _%method-name104830%_) + (let ((_%$e104833%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table104638%_ - _%method-name104724%_ + _%method-table104744%_ + _%method-name104830%_ '#f)))) - (if _%$e104727%_ - ((lambda (_%method104730%_) - (_%loop104641%_ - _%rest104723%_ + (if _%$e104833%_ + ((lambda (_%method104836%_) + (_%loop104747%_ + _%rest104829%_ (let () (declare (not safe)) - (##fx+ _%count104646%_ '1)) - (cons _%method104730%_ _%methods104648%_))) - _%$e104727%_) - ((lambda (_%klass104733%_ - _%obj-klass104734%_ - _%method-name104735%_) + (##fx+ _%count104752%_ '1)) + (cons _%method104836%_ _%methods104754%_))) + _%$e104833%_) + ((lambda (_%klass104839%_ + _%obj-klass104840%_ + _%method-name104841%_) (raise-cast-error 'create-prototype '"cannot create interface instance; missing method" 'interface: - _%klass104733%_ + _%klass104839%_ 'interface-id: (let () (declare (not safe)) - (##type-id _%klass104733%_)) + (##type-id _%klass104839%_)) 'class: - _%obj-klass104734%_ + _%obj-klass104840%_ 'class-id: (let () (declare (not safe)) - (##type-id _%obj-klass104734%_)) + (##type-id _%obj-klass104840%_)) 'method: - _%method-name104735%_) + _%method-name104841%_) '#!void) - _%klass104635%_ - _%obj-klass104636%_ - _%method-name104724%_)))))) - (if (pair? _%rest104650104658%_) - (let ((_%hd104655104740%_ + _%klass104741%_ + _%obj-klass104742%_ + _%method-name104830%_)))))) + (if (pair? _%rest104756104764%_) + (let ((_%hd104761104846%_ (let () (declare (not safe)) - (##car _%rest104650104658%_))) - (_%tl104656104742%_ + (##car _%rest104756104764%_))) + (_%tl104762104848%_ (let () (declare (not safe)) - (##cdr _%rest104650104658%_)))) - (let* ((_%method-name104745%_ _%hd104655104740%_) - (_%rest104747%_ _%tl104656104742%_)) - (_%K104654104737%_ - _%rest104747%_ - _%method-name104745%_))) - (_%else104652104720%_))))))) + (##cdr _%rest104756104764%_)))) + (let* ((_%method-name104851%_ _%hd104761104846%_) + (_%rest104853%_ _%tl104762104848%_)) + (_%K104760104843%_ + _%rest104853%_ + _%method-name104851%_))) + (_%else104758104826%_))))))) (define try-create-prototype - (lambda (_%descriptor104519%_ _%klass104520%_ _%obj-klass104521%_) - (let ((_%method-table104523%_ + (lambda (_%descriptor104625%_ _%klass104626%_ _%obj-klass104627%_) + (let ((_%method-table104629%_ (let () (declare (not safe)) - (specialize-class _%obj-klass104521%_)))) - (let _%loop104526%_ ((_%rest104529%_ + (specialize-class _%obj-klass104627%_)))) + (let _%loop104632%_ ((_%rest104635%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%descriptor104519%_ + _%descriptor104625%_ '2 '#f '#f))) - (_%count104531%_ '0) - (_%methods104533%_ '())) - (let* ((_%rest104535104543%_ _%rest104529%_) - (_%else104537104605%_ + (_%count104637%_ '0) + (_%methods104639%_ '())) + (let* ((_%rest104641104649%_ _%rest104635%_) + (_%else104643104711%_ (lambda () - (let ((_%prototype104551%_ - (let ((__obj105116 - (let ((__tmp105157 + (let ((_%prototype104657%_ + (let ((__obj105222 + (let ((__tmp105263 (let () (declare (not safe)) - (##fx+ _%count104531%_ '2)))) + (##fx+ _%count104637%_ '2)))) (declare (not safe)) (##make-structure - _%klass104520%_ - __tmp105157)))) + _%klass104626%_ + __tmp105263)))) (let () (declare (not safe)) - (object-fill! __obj105116 '#f)) - __obj105116))) - (let _%loop104554%_ ((_%rest104556%_ _%methods104533%_) - (_%off104557%_ + (object-fill! __obj105222 '#f)) + __obj105222))) + (let _%loop104660%_ ((_%rest104662%_ _%methods104639%_) + (_%off104663%_ (let () (declare (not safe)) - (##fx+ _%count104531%_ '1)))) - (let* ((_%rest104559104567%_ _%rest104556%_) - (_%else104561104586%_ + (##fx+ _%count104637%_ '1)))) + (let* ((_%rest104665104673%_ _%rest104662%_) + (_%else104667104692%_ (lambda () - (let ((_%prototype-key104575%_ + (let ((_%prototype-key104681%_ (cons (let () (declare (not safe)) - (##type-id _%klass104520%_)) + (##type-id _%klass104626%_)) (let () (declare (not safe)) (##type-id - _%obj-klass104521%_))))) + _%obj-klass104627%_))))) (let () (declare (not interrupts-enabled)) - (let _%again104580%_ () - (if (let ((__tmp105158 + (let _%again104686%_ () + (if (let ((__tmp105264 (let () (declare (not safe)) (##vector-cas! @@ -917,17 +917,17 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105158 '0)) + (##fx= __tmp105264 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104580%_))))) + (_%again104686%_))))) (prototype-table-set! __interface-prototypes - _%prototype-key104575%_ - _%prototype104551%_) + _%prototype-key104681%_ + _%prototype104657%_) (let () (declare (not safe)) (##vector-cas! @@ -935,110 +935,110 @@ '0 '0 '1)) - ((lambda (_%prototype104584%_) - _%prototype104584%_) - _%prototype104551%_)))) - (_%K104563104593%_ - (lambda (_%rest104589%_ _%method104590%_) + ((lambda (_%prototype104690%_) + _%prototype104690%_) + _%prototype104657%_)))) + (_%K104669104699%_ + (lambda (_%rest104695%_ _%method104696%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%prototype104551%_ - _%method104590%_ - _%off104557%_ - _%klass104520%_ + _%prototype104657%_ + _%method104696%_ + _%off104663%_ + _%klass104626%_ '#f)) - (_%loop104554%_ - _%rest104589%_ + (_%loop104660%_ + _%rest104695%_ (let () (declare (not safe)) - (##fx- _%off104557%_ '1)))))) - (if (pair? _%rest104559104567%_) - (let ((_%hd104564104596%_ + (##fx- _%off104663%_ '1)))))) + (if (pair? _%rest104665104673%_) + (let ((_%hd104670104702%_ (let () (declare (not safe)) - (##car _%rest104559104567%_))) - (_%tl104565104598%_ + (##car _%rest104665104673%_))) + (_%tl104671104704%_ (let () (declare (not safe)) - (##cdr _%rest104559104567%_)))) - (let* ((_%method104601%_ _%hd104564104596%_) - (_%rest104603%_ _%tl104565104598%_)) - (_%K104563104593%_ - _%rest104603%_ - _%method104601%_))) - (_%else104561104586%_))))))) - (_%K104539104622%_ - (lambda (_%rest104608%_ _%method-name104609%_) - (let ((_%$e104612%_ + (##cdr _%rest104665104673%_)))) + (let* ((_%method104707%_ _%hd104670104702%_) + (_%rest104709%_ _%tl104671104704%_)) + (_%K104669104699%_ + _%rest104709%_ + _%method104707%_))) + (_%else104667104692%_))))))) + (_%K104645104728%_ + (lambda (_%rest104714%_ _%method-name104715%_) + (let ((_%$e104718%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table104523%_ - _%method-name104609%_ + _%method-table104629%_ + _%method-name104715%_ '#f)))) - (if _%$e104612%_ - ((lambda (_%method104615%_) - (_%loop104526%_ - _%rest104608%_ + (if _%$e104718%_ + ((lambda (_%method104721%_) + (_%loop104632%_ + _%rest104714%_ (let () (declare (not safe)) - (##fx+ _%count104531%_ '1)) - (cons _%method104615%_ _%methods104533%_))) - _%$e104612%_) - ((lambda (_%klass104618%_ - _%obj-klass104619%_ - _%method-name104620%_) + (##fx+ _%count104637%_ '1)) + (cons _%method104721%_ _%methods104639%_))) + _%$e104718%_) + ((lambda (_%klass104724%_ + _%obj-klass104725%_ + _%method-name104726%_) '#f) - _%klass104520%_ - _%obj-klass104521%_ - _%method-name104609%_)))))) - (if (pair? _%rest104535104543%_) - (let ((_%hd104540104625%_ + _%klass104626%_ + _%obj-klass104627%_ + _%method-name104715%_)))))) + (if (pair? _%rest104641104649%_) + (let ((_%hd104646104731%_ (let () (declare (not safe)) - (##car _%rest104535104543%_))) - (_%tl104541104627%_ + (##car _%rest104641104649%_))) + (_%tl104647104733%_ (let () (declare (not safe)) - (##cdr _%rest104535104543%_)))) - (let* ((_%method-name104630%_ _%hd104540104625%_) - (_%rest104632%_ _%tl104541104627%_)) - (_%K104539104622%_ - _%rest104632%_ - _%method-name104630%_))) - (_%else104537104605%_))))))) + (##cdr _%rest104641104649%_)))) + (let* ((_%method-name104736%_ _%hd104646104731%_) + (_%rest104738%_ _%tl104647104733%_)) + (_%K104645104728%_ + _%rest104738%_ + _%method-name104736%_))) + (_%else104643104711%_))))))) (define cast - (lambda (_%descriptor104477%_ _%obj104479%_) + (lambda (_%descriptor104583%_ _%obj104585%_) (declare (not interrupts-enabled)) - (let* ((_%klass104483%_ + (let* ((_%klass104589%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104477%_ '1 '#f '#f))) - (_%klass-id104486%_ - (let () (declare (not safe)) (##type-id _%klass104483%_))) - (_%obj-klass104489%_ - (let () (declare (not safe)) (class-of _%obj104479%_))) - (_%obj-klass-id104492%_ - (let () (declare (not safe)) (##type-id _%obj-klass104489%_)))) + (##unchecked-structure-ref _%descriptor104583%_ '1 '#f '#f))) + (_%klass-id104592%_ + (let () (declare (not safe)) (##type-id _%klass104589%_))) + (_%obj-klass104595%_ + (let () (declare (not safe)) (class-of _%obj104585%_))) + (_%obj-klass-id104598%_ + (let () (declare (not safe)) (##type-id _%obj-klass104595%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104486%_ _%obj-klass-id104492%_)) - _%obj104479%_ - (if (interface-subclass? _%obj-klass104489%_) - (cast _%descriptor104477%_ + (##eq? _%klass-id104592%_ _%obj-klass-id104598%_)) + _%obj104585%_ + (if (interface-subclass? _%obj-klass104595%_) + (cast _%descriptor104583%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%obj104479%_ + _%obj104585%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104501%_ () - (if (let ((__tmp105159 + (let _%again104607%_ () + (if (let ((__tmp105265 (let () (declare (not safe)) (##vector-cas! @@ -1047,29 +1047,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105159 '0)) + (##fx= __tmp105265 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104501%_))))) + (_%again104607%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104486%_)) + _%klass-id104592%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104492%_)) - (let ((_%prototype104512%_ - (let ((_%$e104505%_ + _%obj-klass-id104598%_)) + (let ((_%prototype104618%_ + (let ((_%$e104611%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104505%_ - ((lambda (_%prototype104508%_) + (if _%$e104611%_ + ((lambda (_%prototype104614%_) (let () (declare (not safe)) (##vector-cas! @@ -1077,8 +1077,8 @@ '0 '0 '1)) - _%prototype104508%_) - _%$e104505%_) + _%prototype104614%_) + _%$e104611%_) (let () (let () (declare (not safe)) @@ -1088,53 +1088,53 @@ '0 '1)) (create-prototype - _%descriptor104477%_ - _%klass104483%_ - _%obj-klass104489%_)))))) - ((lambda (_%prototype104514%_ _%obj104515%_) - (let ((_%instance104517%_ + _%descriptor104583%_ + _%klass104589%_ + _%obj-klass104595%_)))))) + ((lambda (_%prototype104620%_ _%obj104621%_) + (let ((_%instance104623%_ (let () (declare (not safe)) - (##structure-copy _%prototype104514%_)))) + (##structure-copy _%prototype104620%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104517%_ - _%obj104515%_ + _%instance104623%_ + _%obj104621%_ '1 '#f 'cast)) - _%instance104517%_)) - _%prototype104512%_ - _%obj104479%_)))))))) + _%instance104623%_)) + _%prototype104618%_ + _%obj104585%_)))))))) (define try-cast - (lambda (_%descriptor104435%_ _%obj104437%_) + (lambda (_%descriptor104541%_ _%obj104543%_) (declare (not interrupts-enabled)) - (let* ((_%klass104441%_ + (let* ((_%klass104547%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104435%_ '1 '#f '#f))) - (_%klass-id104444%_ - (let () (declare (not safe)) (##type-id _%klass104441%_))) - (_%obj-klass104447%_ - (let () (declare (not safe)) (class-of _%obj104437%_))) - (_%obj-klass-id104450%_ - (let () (declare (not safe)) (##type-id _%obj-klass104447%_)))) + (##unchecked-structure-ref _%descriptor104541%_ '1 '#f '#f))) + (_%klass-id104550%_ + (let () (declare (not safe)) (##type-id _%klass104547%_))) + (_%obj-klass104553%_ + (let () (declare (not safe)) (class-of _%obj104543%_))) + (_%obj-klass-id104556%_ + (let () (declare (not safe)) (##type-id _%obj-klass104553%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104444%_ _%obj-klass-id104450%_)) - _%obj104437%_ - (if (interface-subclass? _%obj-klass104447%_) + (##eq? _%klass-id104550%_ _%obj-klass-id104556%_)) + _%obj104543%_ + (if (interface-subclass? _%obj-klass104553%_) (try-cast - _%descriptor104435%_ + _%descriptor104541%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104437%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104543%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104459%_ () - (if (let ((__tmp105160 + (let _%again104565%_ () + (if (let ((__tmp105266 (let () (declare (not safe)) (##vector-cas! @@ -1143,29 +1143,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105160 '0)) + (##fx= __tmp105266 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104459%_))))) + (_%again104565%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104444%_)) + _%klass-id104550%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104450%_)) - (let ((_%prototype104470%_ - (let ((_%$e104463%_ + _%obj-klass-id104556%_)) + (let ((_%prototype104576%_ + (let ((_%$e104569%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104463%_ - ((lambda (_%prototype104466%_) + (if _%$e104569%_ + ((lambda (_%prototype104572%_) (let () (declare (not safe)) (##vector-cas! @@ -1173,8 +1173,8 @@ '0 '0 '1)) - _%prototype104466%_) - _%$e104463%_) + _%prototype104572%_) + _%$e104569%_) (let () (let () (declare (not safe)) @@ -1184,55 +1184,55 @@ '0 '1)) (try-create-prototype - _%descriptor104435%_ - _%klass104441%_ - _%obj-klass104447%_)))))) - ((lambda (_%prototype104472%_ _%obj104473%_) - (if _%prototype104472%_ - (let ((_%instance104475%_ + _%descriptor104541%_ + _%klass104547%_ + _%obj-klass104553%_)))))) + ((lambda (_%prototype104578%_ _%obj104579%_) + (if _%prototype104578%_ + (let ((_%instance104581%_ (let () (declare (not safe)) - (##structure-copy _%prototype104472%_)))) + (##structure-copy _%prototype104578%_)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%instance104475%_ - _%obj104473%_ + _%instance104581%_ + _%obj104579%_ '1 '#f 'cast)) - _%instance104475%_) + _%instance104581%_) '#f)) - _%prototype104470%_ - _%obj104437%_)))))))) + _%prototype104576%_ + _%obj104543%_)))))))) (define satisfies? - (lambda (_%descriptor104395%_ _%obj104397%_) + (lambda (_%descriptor104501%_ _%obj104503%_) (declare (not interrupts-enabled)) - (let* ((_%klass104401%_ + (let* ((_%klass104507%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%descriptor104395%_ '1 '#f '#f))) - (_%klass-id104404%_ - (let () (declare (not safe)) (##type-id _%klass104401%_))) - (_%obj-klass104407%_ - (let () (declare (not safe)) (class-of _%obj104397%_))) - (_%obj-klass-id104410%_ - (let () (declare (not safe)) (##type-id _%obj-klass104407%_)))) + (##unchecked-structure-ref _%descriptor104501%_ '1 '#f '#f))) + (_%klass-id104510%_ + (let () (declare (not safe)) (##type-id _%klass104507%_))) + (_%obj-klass104513%_ + (let () (declare (not safe)) (class-of _%obj104503%_))) + (_%obj-klass-id104516%_ + (let () (declare (not safe)) (##type-id _%obj-klass104513%_)))) (if (let () (declare (not safe)) - (##eq? _%klass-id104404%_ _%obj-klass-id104410%_)) - _%obj104397%_ - (if (interface-subclass? _%obj-klass104407%_) + (##eq? _%klass-id104510%_ _%obj-klass-id104516%_)) + _%obj104503%_ + (if (interface-subclass? _%obj-klass104513%_) (satisfies? - _%descriptor104395%_ + _%descriptor104501%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%obj104397%_ '1 '#f '#f))) + (##unchecked-structure-ref _%obj104503%_ '1 '#f '#f))) (let () (let () (declare (not interrupts-enabled)) - (let _%again104419%_ () - (if (let ((__tmp105161 + (let _%again104525%_ () + (if (let ((__tmp105267 (let () (declare (not safe)) (##vector-cas! @@ -1241,29 +1241,29 @@ '1 '0)))) (declare (not safe)) - (##fx= __tmp105161 '0)) + (##fx= __tmp105267 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again104419%_))))) + (_%again104525%_))))) (let () (declare (not safe)) (##set-car! __interface-prototypes-key - _%klass-id104404%_)) + _%klass-id104510%_)) (let () (declare (not safe)) (##set-cdr! __interface-prototypes-key - _%obj-klass-id104410%_)) - (let ((_%prototype104430%_ - (let ((_%$e104423%_ + _%obj-klass-id104516%_)) + (let ((_%prototype104536%_ + (let ((_%$e104529%_ (prototype-table-ref __interface-prototypes __interface-prototypes-key '#f))) - (if _%$e104423%_ - ((lambda (_%prototype104426%_) + (if _%$e104529%_ + ((lambda (_%prototype104532%_) (let () (declare (not safe)) (##vector-cas! @@ -1271,8 +1271,8 @@ '0 '0 '1)) - _%prototype104426%_) - _%$e104423%_) + _%prototype104532%_) + _%$e104529%_) (let () (let () (declare (not safe)) @@ -1282,10 +1282,10 @@ '0 '1)) (try-create-prototype - _%descriptor104395%_ - _%klass104401%_ - _%obj-klass104407%_)))))) - ((lambda (_%prototype104432%_ _%obj104433%_) - (if _%prototype104432%_ '#t '#f)) - _%prototype104430%_ - _%obj104397%_)))))))))) + _%descriptor104501%_ + _%klass104507%_ + _%obj-klass104513%_)))))) + ((lambda (_%prototype104538%_ _%obj104539%_) + (if _%prototype104538%_ '#t '#f)) + _%prototype104536%_ + _%obj104503%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime/interface~1.scm b/src/bootstrap/gerbil/runtime/interface~1.scm index b3ab9fa09..3eadcaff9 100644 --- a/src/bootstrap/gerbil/runtime/interface~1.scm +++ b/src/bootstrap/gerbil/runtime/interface~1.scm @@ -1,216 +1,216 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g105163_| + (define |[1]#_g105269_| (##structure gx#syntax-quote::t 'Error #f (gx#current-expander-context) '())) - (define |[1]#_g105165_| + (define |[1]#_g105271_| (##structure gx#syntax-quote::t 'CastError::t #f (gx#current-expander-context) '())) - (define |[1]#_g105167_| + (define |[1]#_g105273_| (##structure gx#syntax-quote::t 'make-CastError #f (gx#current-expander-context) '())) - (define |[1]#_g105169_| + (define |[1]#_g105275_| (##structure gx#syntax-quote::t 'CastError? #f (gx#current-expander-context) '())) - (define |[1]#_g105171_| + (define |[1]#_g105277_| (##structure gx#syntax-quote::t 'CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105172_| + (define |[1]#_g105278_| (##structure gx#syntax-quote::t 'CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105173_| + (define |[1]#_g105279_| (##structure gx#syntax-quote::t 'CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105174_| + (define |[1]#_g105280_| (##structure gx#syntax-quote::t 'CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105176_| + (define |[1]#_g105282_| (##structure gx#syntax-quote::t 'CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105177_| + (define |[1]#_g105283_| (##structure gx#syntax-quote::t 'CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105178_| + (define |[1]#_g105284_| (##structure gx#syntax-quote::t 'CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105179_| + (define |[1]#_g105285_| (##structure gx#syntax-quote::t 'CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105181_| + (define |[1]#_g105287_| (##structure gx#syntax-quote::t '&CastError-message #f (gx#current-expander-context) '())) - (define |[1]#_g105182_| + (define |[1]#_g105288_| (##structure gx#syntax-quote::t '&CastError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g105183_| + (define |[1]#_g105289_| (##structure gx#syntax-quote::t '&CastError-where #f (gx#current-expander-context) '())) - (define |[1]#_g105184_| + (define |[1]#_g105290_| (##structure gx#syntax-quote::t '&CastError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g105186_| + (define |[1]#_g105292_| (##structure gx#syntax-quote::t '&CastError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105187_| + (define |[1]#_g105293_| (##structure gx#syntax-quote::t '&CastError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105188_| + (define |[1]#_g105294_| (##structure gx#syntax-quote::t '&CastError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105189_| + (define |[1]#_g105295_| (##structure gx#syntax-quote::t '&CastError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105191_| + (define |[1]#_g105297_| (##structure gx#syntax-quote::t 'interface-descriptor::t #f (gx#current-expander-context) '())) - (define |[1]#_g105193_| + (define |[1]#_g105299_| (##structure gx#syntax-quote::t 'make-interface-descriptor #f (gx#current-expander-context) '())) - (define |[1]#_g105195_| + (define |[1]#_g105301_| (##structure gx#syntax-quote::t 'interface-descriptor? #f (gx#current-expander-context) '())) - (define |[1]#_g105197_| + (define |[1]#_g105303_| (##structure gx#syntax-quote::t 'interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105198_| + (define |[1]#_g105304_| (##structure gx#syntax-quote::t 'interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105200_| + (define |[1]#_g105306_| (##structure gx#syntax-quote::t 'interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105201_| + (define |[1]#_g105307_| (##structure gx#syntax-quote::t 'interface-descriptor-methods-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105203_| + (define |[1]#_g105309_| (##structure gx#syntax-quote::t '&interface-descriptor-type #f (gx#current-expander-context) '())) - (define |[1]#_g105204_| + (define |[1]#_g105310_| (##structure gx#syntax-quote::t '&interface-descriptor-methods #f (gx#current-expander-context) '())) - (define |[1]#_g105206_| + (define |[1]#_g105312_| (##structure gx#syntax-quote::t '&interface-descriptor-type-set! #f (gx#current-expander-context) '())) - (define |[1]#_g105207_| + (define |[1]#_g105313_| (##structure gx#syntax-quote::t '&interface-descriptor-methods-set! @@ -219,7 +219,7 @@ '())) (begin (define |[:0:]#CastError| - (let ((__obj105112 + (let ((__obj105218 (let () (declare (not safe)) (##structure @@ -248,93 +248,93 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105112 + __obj105218 'gerbil/runtime/interface#CastError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 'CastError '2 '#f '#f)) + (##unchecked-structure-set! __obj105218 'CastError '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '() '4 '#f '#f)) + (##unchecked-structure-set! __obj105218 '() '4 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj105112 + __obj105218 '(continuation message irritants where) '6 '#f '#f)) - (let ((__tmp105162 (cons |[1]#_g105163_| '()))) + (let ((__tmp105268 (cons |[1]#_g105269_| '()))) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105162 '3 '#f '#f)) + (##unchecked-structure-set! __obj105218 __tmp105268 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj105218 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj105218 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105218 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 ':init! '11 '#f '#f)) - (let ((__tmp105164 |[1]#_g105165_|)) + (##unchecked-structure-set! __obj105218 ':init! '11 '#f '#f)) + (let ((__tmp105270 |[1]#_g105271_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105164 '12 '#f '#f)) - (let ((__tmp105166 |[1]#_g105167_|)) + (##unchecked-structure-set! __obj105218 __tmp105270 '12 '#f '#f)) + (let ((__tmp105272 |[1]#_g105273_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105166 '13 '#f '#f)) - (let ((__tmp105168 |[1]#_g105169_|)) + (##unchecked-structure-set! __obj105218 __tmp105272 '13 '#f '#f)) + (let ((__tmp105274 |[1]#_g105275_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105168 '14 '#f '#f)) - (let ((__tmp105170 - (cons (cons 'message |[1]#_g105171_|) - (cons (cons 'irritants |[1]#_g105172_|) - (cons (cons 'where |[1]#_g105173_|) - (cons (cons 'continuation |[1]#_g105174_|) + (##unchecked-structure-set! __obj105218 __tmp105274 '14 '#f '#f)) + (let ((__tmp105276 + (cons (cons 'message |[1]#_g105277_|) + (cons (cons 'irritants |[1]#_g105278_|) + (cons (cons 'where |[1]#_g105279_|) + (cons (cons 'continuation |[1]#_g105280_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105170 '15 '#f '#f)) - (let ((__tmp105175 - (cons (cons 'message |[1]#_g105176_|) - (cons (cons 'irritants |[1]#_g105177_|) - (cons (cons 'where |[1]#_g105178_|) - (cons (cons 'continuation |[1]#_g105179_|) + (##unchecked-structure-set! __obj105218 __tmp105276 '15 '#f '#f)) + (let ((__tmp105281 + (cons (cons 'message |[1]#_g105282_|) + (cons (cons 'irritants |[1]#_g105283_|) + (cons (cons 'where |[1]#_g105284_|) + (cons (cons 'continuation |[1]#_g105285_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105175 '16 '#f '#f)) - (let ((__tmp105180 - (cons (cons 'message |[1]#_g105181_|) - (cons (cons 'irritants |[1]#_g105182_|) - (cons (cons 'where |[1]#_g105183_|) - (cons (cons 'continuation |[1]#_g105184_|) + (##unchecked-structure-set! __obj105218 __tmp105281 '16 '#f '#f)) + (let ((__tmp105286 + (cons (cons 'message |[1]#_g105287_|) + (cons (cons 'irritants |[1]#_g105288_|) + (cons (cons 'where |[1]#_g105289_|) + (cons (cons 'continuation |[1]#_g105290_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105180 '17 '#f '#f)) - (let ((__tmp105185 - (cons (cons 'message |[1]#_g105186_|) - (cons (cons 'irritants |[1]#_g105187_|) - (cons (cons 'where |[1]#_g105188_|) - (cons (cons 'continuation |[1]#_g105189_|) + (##unchecked-structure-set! __obj105218 __tmp105286 '17 '#f '#f)) + (let ((__tmp105291 + (cons (cons 'message |[1]#_g105292_|) + (cons (cons 'irritants |[1]#_g105293_|) + (cons (cons 'where |[1]#_g105294_|) + (cons (cons 'continuation |[1]#_g105295_|) '())))))) (declare (not safe)) - (##unchecked-structure-set! __obj105112 __tmp105185 '18 '#f '#f)) + (##unchecked-structure-set! __obj105218 __tmp105291 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105218 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105218 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105112 '() '20 '#f '#f)) - __obj105112)) + (##unchecked-structure-set! __obj105218 '() '20 '#f '#f)) + __obj105218)) (define |[:0:]#interface-descriptor| - (let ((__obj105114 + (let ((__obj105220 (let () (declare (not safe)) (##structure @@ -363,7 +363,7 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105114 + __obj105220 'gerbil/runtime/interface#interface-descriptor::t '1 '#f @@ -371,157 +371,157 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj105114 + __obj105220 'interface-descriptor '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '(type methods) '4 '#f '#f)) + (##unchecked-structure-set! __obj105220 '(type methods) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '(type methods) '6 '#f '#f)) + (##unchecked-structure-set! __obj105220 '(type methods) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj105220 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj105220 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj105220 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj105220 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '#f '11 '#f '#f)) - (let ((__tmp105190 |[1]#_g105191_|)) + (##unchecked-structure-set! __obj105220 '#f '11 '#f '#f)) + (let ((__tmp105296 |[1]#_g105297_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105190 '12 '#f '#f)) - (let ((__tmp105192 |[1]#_g105193_|)) + (##unchecked-structure-set! __obj105220 __tmp105296 '12 '#f '#f)) + (let ((__tmp105298 |[1]#_g105299_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105192 '13 '#f '#f)) - (let ((__tmp105194 |[1]#_g105195_|)) + (##unchecked-structure-set! __obj105220 __tmp105298 '13 '#f '#f)) + (let ((__tmp105300 |[1]#_g105301_|)) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105194 '14 '#f '#f)) - (let ((__tmp105196 - (cons (cons 'type |[1]#_g105197_|) - (cons (cons 'methods |[1]#_g105198_|) '())))) + (##unchecked-structure-set! __obj105220 __tmp105300 '14 '#f '#f)) + (let ((__tmp105302 + (cons (cons 'type |[1]#_g105303_|) + (cons (cons 'methods |[1]#_g105304_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105196 '15 '#f '#f)) - (let ((__tmp105199 - (cons (cons 'type |[1]#_g105200_|) - (cons (cons 'methods |[1]#_g105201_|) '())))) + (##unchecked-structure-set! __obj105220 __tmp105302 '15 '#f '#f)) + (let ((__tmp105305 + (cons (cons 'type |[1]#_g105306_|) + (cons (cons 'methods |[1]#_g105307_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105199 '16 '#f '#f)) - (let ((__tmp105202 - (cons (cons 'type |[1]#_g105203_|) - (cons (cons 'methods |[1]#_g105204_|) '())))) + (##unchecked-structure-set! __obj105220 __tmp105305 '16 '#f '#f)) + (let ((__tmp105308 + (cons (cons 'type |[1]#_g105309_|) + (cons (cons 'methods |[1]#_g105310_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105202 '17 '#f '#f)) - (let ((__tmp105205 - (cons (cons 'type |[1]#_g105206_|) - (cons (cons 'methods |[1]#_g105207_|) '())))) + (##unchecked-structure-set! __obj105220 __tmp105308 '17 '#f '#f)) + (let ((__tmp105311 + (cons (cons 'type |[1]#_g105312_|) + (cons (cons 'methods |[1]#_g105313_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj105114 __tmp105205 '18 '#f '#f)) + (##unchecked-structure-set! __obj105220 __tmp105311 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj105220 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj105220 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj105114 '() '20 '#f '#f)) - __obj105114)) + (##unchecked-structure-set! __obj105220 '() '20 '#f '#f)) + __obj105220)) (define |[:0:]#do-create-prototype| - (lambda (_%$stx104160%_) - (let* ((_%g104164104194%_ - (lambda (_%g104165104190%_) + (lambda (_%$stx104266%_) + (let* ((_%g104270104300%_ + (lambda (_%g104271104296%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104165104190%_))) - (_%g104163104292%_ - (lambda (_%g104165104198%_) - (if (gx#stx-pair? _%g104165104198%_) - (let ((_%e104171104201%_ - (gx#syntax-e _%g104165104198%_))) - (let ((_%hd104172104205%_ + _%g104271104296%_))) + (_%g104269104398%_ + (lambda (_%g104271104304%_) + (if (gx#stx-pair? _%g104271104304%_) + (let ((_%e104277104307%_ + (gx#syntax-e _%g104271104304%_))) + (let ((_%hd104278104311%_ (let () (declare (not safe)) - (##car _%e104171104201%_))) - (_%tl104173104208%_ + (##car _%e104277104307%_))) + (_%tl104279104314%_ (let () (declare (not safe)) - (##cdr _%e104171104201%_)))) - (if (gx#stx-pair? _%tl104173104208%_) - (let ((_%e104174104211%_ - (gx#syntax-e _%tl104173104208%_))) - (let ((_%hd104175104215%_ + (##cdr _%e104277104307%_)))) + (if (gx#stx-pair? _%tl104279104314%_) + (let ((_%e104280104317%_ + (gx#syntax-e _%tl104279104314%_))) + (let ((_%hd104281104321%_ (let () (declare (not safe)) - (##car _%e104174104211%_))) - (_%tl104176104218%_ + (##car _%e104280104317%_))) + (_%tl104282104324%_ (let () (declare (not safe)) - (##cdr _%e104174104211%_)))) - (if (gx#stx-pair? _%tl104176104218%_) - (let ((_%e104177104221%_ - (gx#syntax-e _%tl104176104218%_))) - (let ((_%hd104178104225%_ + (##cdr _%e104280104317%_)))) + (if (gx#stx-pair? _%tl104282104324%_) + (let ((_%e104283104327%_ + (gx#syntax-e _%tl104282104324%_))) + (let ((_%hd104284104331%_ (let () (declare (not safe)) - (##car _%e104177104221%_))) - (_%tl104179104228%_ + (##car _%e104283104327%_))) + (_%tl104285104334%_ (let () (declare (not safe)) - (##cdr _%e104177104221%_)))) - (if (gx#stx-pair? _%tl104179104228%_) - (let ((_%e104180104231%_ + (##cdr _%e104283104327%_)))) + (if (gx#stx-pair? _%tl104285104334%_) + (let ((_%e104286104337%_ (gx#syntax-e - _%tl104179104228%_))) - (let ((_%hd104181104235%_ + _%tl104285104334%_))) + (let ((_%hd104287104341%_ (let () (declare (not safe)) - (##car _%e104180104231%_))) - (_%tl104182104238%_ + (##car _%e104286104337%_))) + (_%tl104288104344%_ (let () (declare (not safe)) - (##cdr _%e104180104231%_)))) + (##cdr _%e104286104337%_)))) (if (gx#stx-pair? - _%tl104182104238%_) - (let ((_%e104183104241%_ + _%tl104288104344%_) + (let ((_%e104289104347%_ (gx#syntax-e - _%tl104182104238%_))) - (let ((_%hd104184104245%_ + _%tl104288104344%_))) + (let ((_%hd104290104351%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e104183104241%_))) - (_%tl104185104248%_ + (##car _%e104289104347%_))) + (_%tl104291104354%_ (let () (declare (not safe)) - (##cdr _%e104183104241%_)))) - (if (gx#stx-pair? _%tl104185104248%_) - (let ((_%e104186104251%_ - (gx#syntax-e _%tl104185104248%_))) - (let ((_%hd104187104255%_ + (##cdr _%e104289104347%_)))) + (if (gx#stx-pair? _%tl104291104354%_) + (let ((_%e104292104357%_ + (gx#syntax-e _%tl104291104354%_))) + (let ((_%hd104293104361%_ (let () (declare (not safe)) - (##car _%e104186104251%_))) - (_%tl104188104258%_ + (##car _%e104292104357%_))) + (_%tl104294104364%_ (let () (declare (not safe)) - (##cdr _%e104186104251%_)))) - (if (gx#stx-null? _%tl104188104258%_) - ((lambda (_%L104261%_ - _%L104263%_ - _%L104264%_ - _%L104265%_ - _%L104266%_) + (##cdr _%e104292104357%_)))) + (if (gx#stx-null? _%tl104294104364%_) + ((lambda (_%L104367%_ + _%L104369%_ + _%L104370%_ + _%L104371%_ + _%L104372%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -529,7 +529,7 @@ (cons (cons (gx#datum->syntax '#f 'specialize-class) - (cons _%L104264%_ + (cons _%L104370%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) @@ -547,7 +547,7 @@ (cons (cons (gx#datum->syntax '#f '&interface-descriptor-methods) - (cons _%L104266%_ '())) + (cons _%L104372%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'count) (cons '0 '())) @@ -613,10 +613,10 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L104261%_ - (cons _%L104265%_ + (cons (cons _%L104367%_ + (cons _%L104371%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L104264%_ + (cons _%L104370%_ (cons (gx#datum->syntax '#f 'method-name) '())))) '())) @@ -635,7 +635,7 @@ (cons (cons (gx#datum->syntax '#f 'make-object) - (cons _%L104265%_ + (cons _%L104371%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '##fx+) (cons (gx#datum->syntax '#f 'count) @@ -679,7 +679,7 @@ (cons (gx#datum->syntax '#f 'prototype) (cons (gx#datum->syntax '#f 'method) (cons (gx#datum->syntax '#f 'off) - (cons _%L104265%_ + (cons _%L104371%_ (cons '#f '())))))) (cons (cons (gx#datum->syntax '#f 'loop) (cons (gx#datum->syntax '#f 'rest) @@ -710,9 +710,9 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '##type-id) - (cons _%L104265%_ '())) + (cons _%L104371%_ '())) (cons (cons (gx#datum->syntax '#f '##type-id) - (cons _%L104264%_ '())) + (cons _%L104370%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -741,7 +741,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104263%_ + (cons (cons _%L104369%_ (cons (gx#datum->syntax '#f 'prototype) '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -757,85 +757,85 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd104187104255%_ - _%hd104184104245%_ - _%hd104181104235%_ - _%hd104178104225%_ - _%hd104175104215%_) - (_%g104164104194%_ _%g104165104198%_)))) - (_%g104164104194%_ _%g104165104198%_)))) - (_%g104164104194%_ _%g104165104198%_)))) + _%hd104293104361%_ + _%hd104290104351%_ + _%hd104287104341%_ + _%hd104284104331%_ + _%hd104281104321%_) + (_%g104270104300%_ _%g104271104304%_)))) + (_%g104270104300%_ _%g104271104304%_)))) + (_%g104270104300%_ _%g104271104304%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104164104194%_ - _%g104165104198%_)))) - (_%g104164104194%_ _%g104165104198%_)))) - (_%g104164104194%_ _%g104165104198%_)))) - (_%g104164104194%_ _%g104165104198%_))))) - (_%g104163104292%_ _%$stx104160%_)))) + (_%g104270104300%_ + _%g104271104304%_)))) + (_%g104270104300%_ _%g104271104304%_)))) + (_%g104270104300%_ _%g104271104304%_)))) + (_%g104270104300%_ _%g104271104304%_))))) + (_%g104269104398%_ _%$stx104266%_)))) (define |[:0:]#defcast| - (lambda (_%$stx104296%_) - (let* ((_%g104300104322%_ - (lambda (_%g104301104318%_) + (lambda (_%$stx104402%_) + (let* ((_%g104406104428%_ + (lambda (_%g104407104424%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g104301104318%_))) - (_%g104299104391%_ - (lambda (_%g104301104326%_) - (if (gx#stx-pair? _%g104301104326%_) - (let ((_%e104305104329%_ - (gx#syntax-e _%g104301104326%_))) - (let ((_%hd104306104333%_ + _%g104407104424%_))) + (_%g104405104497%_ + (lambda (_%g104407104432%_) + (if (gx#stx-pair? _%g104407104432%_) + (let ((_%e104411104435%_ + (gx#syntax-e _%g104407104432%_))) + (let ((_%hd104412104439%_ (let () (declare (not safe)) - (##car _%e104305104329%_))) - (_%tl104307104336%_ + (##car _%e104411104435%_))) + (_%tl104413104442%_ (let () (declare (not safe)) - (##cdr _%e104305104329%_)))) - (if (gx#stx-pair? _%tl104307104336%_) - (let ((_%e104308104339%_ - (gx#syntax-e _%tl104307104336%_))) - (let ((_%hd104309104343%_ + (##cdr _%e104411104435%_)))) + (if (gx#stx-pair? _%tl104413104442%_) + (let ((_%e104414104445%_ + (gx#syntax-e _%tl104413104442%_))) + (let ((_%hd104415104449%_ (let () (declare (not safe)) - (##car _%e104308104339%_))) - (_%tl104310104346%_ + (##car _%e104414104445%_))) + (_%tl104416104452%_ (let () (declare (not safe)) - (##cdr _%e104308104339%_)))) - (if (gx#stx-pair? _%tl104310104346%_) - (let ((_%e104311104349%_ - (gx#syntax-e _%tl104310104346%_))) - (let ((_%hd104312104353%_ + (##cdr _%e104414104445%_)))) + (if (gx#stx-pair? _%tl104416104452%_) + (let ((_%e104417104455%_ + (gx#syntax-e _%tl104416104452%_))) + (let ((_%hd104418104459%_ (let () (declare (not safe)) - (##car _%e104311104349%_))) - (_%tl104313104356%_ + (##car _%e104417104455%_))) + (_%tl104419104462%_ (let () (declare (not safe)) - (##cdr _%e104311104349%_)))) - (if (gx#stx-pair? _%tl104313104356%_) - (let ((_%e104314104359%_ + (##cdr _%e104417104455%_)))) + (if (gx#stx-pair? _%tl104419104462%_) + (let ((_%e104420104465%_ (gx#syntax-e - _%tl104313104356%_))) - (let ((_%hd104315104363%_ + _%tl104419104462%_))) + (let ((_%hd104421104469%_ (let () (declare (not safe)) - (##car _%e104314104359%_))) - (_%tl104316104366%_ + (##car _%e104420104465%_))) + (_%tl104422104472%_ (let () (declare (not safe)) - (##cdr _%e104314104359%_)))) + (##cdr _%e104420104465%_)))) (if (gx#stx-null? - _%tl104316104366%_) - ((lambda (_%L104369%_ - _%L104371%_ - _%L104372%_) + _%tl104422104472%_) + ((lambda (_%L104475%_ + _%L104477%_ + _%L104478%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L104372%_ + (cons (cons _%L104478%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'descriptor) (cons (gx#datum->syntax '#f 'obj) @@ -905,7 +905,7 @@ '#f 'obj-klass) '())) - (cons (cons _%L104372%_ + (cons (cons _%L104478%_ (cons (gx#datum->syntax '#f 'descriptor) @@ -982,7 +982,7 @@ '#f '__interface-prototypes-mx) '())) - (cons (cons _%L104371%_ + (cons (cons _%L104477%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L104369%_ + (cons (cons _%L104475%_ (cons (gx#datum->syntax '#f 'prototype) @@ -1011,14 +1011,14 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))))) - _%hd104315104363%_ - _%hd104312104353%_ - _%hd104309104343%_) - (_%g104300104322%_ _%g104301104326%_)))) + _%hd104421104469%_ + _%hd104418104459%_ + _%hd104415104449%_) + (_%g104406104428%_ _%g104407104432%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g104300104322%_ - _%g104301104326%_)))) - (_%g104300104322%_ _%g104301104326%_)))) - (_%g104300104322%_ _%g104301104326%_)))) - (_%g104300104322%_ _%g104301104326%_))))) - (_%g104299104391%_ _%$stx104296%_)))))) + (_%g104406104428%_ + _%g104407104432%_)))) + (_%g104406104428%_ _%g104407104432%_)))) + (_%g104406104428%_ _%g104407104432%_)))) + (_%g104406104428%_ _%g104407104432%_))))) + (_%g104405104497%_ _%$stx104402%_)))))) diff --git a/src/bootstrap/gerbil/runtime/loader~0.scm b/src/bootstrap/gerbil/runtime/loader~0.scm index 6db9be17d..4db381349 100644 --- a/src/bootstrap/gerbil/runtime/loader~0.scm +++ b/src/bootstrap/gerbil/runtime/loader~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/loader::timestamp 1733870074) + (define gerbil/runtime/loader::timestamp 1734131746) (begin (define __modules (let () @@ -34,24 +34,24 @@ (define __load-order-next '1) (define load-path (lambda () __load-path)) (define add-load-path! - (lambda _%paths115365%_ - (if (let () (declare (not safe)) (__andmap1 string? _%paths115365%_)) + (lambda _%paths115471%_ + (if (let () (declare (not safe)) (__andmap1 string? _%paths115471%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115365%_))) - (let ((__tmp115371 - (lambda (_%p115367%_) - (set! __load-path (cons _%p115367%_ __load-path)))) - (__tmp115370 (reverse! _%paths115365%_))) + _%paths115471%_))) + (let ((__tmp115477 + (lambda (_%p115473%_) + (set! __load-path (cons _%p115473%_ __load-path)))) + (__tmp115476 (reverse! _%paths115471%_))) (declare (not safe)) - (##for-each __tmp115371 __tmp115370)))) + (##for-each __tmp115477 __tmp115476)))) (define set-load-path! - (lambda (_%paths115351%_) - (if (list? _%paths115351%_) - (let ((_%paths115355%_ _%paths115351%_)) - (__set-load-path! _%paths115355%_)) + (lambda (_%paths115457%_) + (if (list? _%paths115457%_) + (let ((_%paths115461%_ _%paths115457%_)) + (__set-load-path! _%paths115461%_)) (begin (raise-contract-violation-error '"contract violation" @@ -60,23 +60,23 @@ 'contract: 'list? 'value: - _%paths115351%_) + _%paths115457%_) '#!void)))) (define __set-load-path! - (lambda (_%paths115339%_) - (let ((_%paths115342%_ _%paths115339%_)) - (if (let () (declare (not safe)) (__andmap1 string? _%paths115342%_)) + (lambda (_%paths115445%_) + (let ((_%paths115448%_ _%paths115445%_)) + (if (let () (declare (not safe)) (__andmap1 string? _%paths115448%_)) '#!void (let () (declare (not safe)) (error '"bad load path; expected list of paths" - _%paths115342%_))) - (set! __load-path _%paths115342%_)))) + _%paths115448%_))) + (set! __load-path _%paths115448%_)))) (define load-module - (lambda (_%modpath115325%_) - (if (string? _%modpath115325%_) - (let ((_%modpath115329%_ _%modpath115325%_)) - (__load-module _%modpath115329%_)) + (lambda (_%modpath115431%_) + (if (string? _%modpath115431%_) + (let ((_%modpath115435%_ _%modpath115431%_)) + (__load-module _%modpath115435%_)) (begin (raise-contract-violation-error '"contract violation" @@ -85,108 +85,108 @@ 'contract: 'string? 'value: - _%modpath115325%_) + _%modpath115431%_) '#!void)))) (define __load-module - (lambda (_%modpath115290%_) - (let ((_%modpath115293%_ _%modpath115290%_)) + (lambda (_%modpath115396%_) + (let ((_%modpath115399%_ _%modpath115396%_)) (mutex-lock! __load-mx) - (let ((_%$e115302%_ + (let ((_%$e115408%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115293%_)))) - (if _%$e115302%_ - ((lambda (_%state115305%_) - (if (or (eq? 'builtin _%state115305%_) - (string? _%state115305%_)) - (let () (mutex-unlock! __load-mx) _%state115305%_) - (if (eq? 'loading _%state115305%_) + (__hash-get __modules _%modpath115399%_)))) + (if _%$e115408%_ + ((lambda (_%state115411%_) + (if (or (eq? 'builtin _%state115411%_) + (string? _%state115411%_)) + (let () (mutex-unlock! __load-mx) _%state115411%_) + (if (eq? 'loading _%state115411%_) (let () (mutex-unlock! __load-mx __load-cv) - (__load-module _%modpath115293%_)) - (if (and (pair? _%state115305%_) + (__load-module _%modpath115399%_)) + (if (and (pair? _%state115411%_) (eq? (let () (declare (not safe)) - (##car _%state115305%_)) + (##car _%state115411%_)) 'error)) (let () (mutex-unlock! __load-mx) - (let ((__tmp115372 (cadr _%state115305%_))) + (let ((__tmp115478 (cadr _%state115411%_))) (declare (not safe)) - (raise __tmp115372))) + (raise __tmp115478))) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115305%_))))))) - _%$e115302%_) - (let ((_%$e115314%_ (__find-library-module _%modpath115293%_))) - (if _%$e115314%_ - ((lambda (_%path115317%_) + _%state115411%_))))))) + _%$e115408%_) + (let ((_%$e115420%_ (__find-library-module _%modpath115399%_))) + (if _%$e115420%_ + ((lambda (_%path115423%_) (let () (declare (not safe)) - (__hash-put! __modules _%modpath115293%_ 'loading)) + (__hash-put! __modules _%modpath115399%_ 'loading)) (mutex-unlock! __load-mx) - (let ((__tmp115374 - (lambda (_%exn115319%_) + (let ((__tmp115480 + (lambda (_%exn115425%_) (mutex-lock! __load-mx) - (let ((__tmp115375 + (let ((__tmp115481 (cons 'error - (cons _%exn115319%_ '())))) + (cons _%exn115425%_ '())))) (declare (not safe)) (__hash-put! __modules - _%modpath115293%_ - __tmp115375)) + _%modpath115399%_ + __tmp115481)) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) (let () (declare (not safe)) - (raise _%exn115319%_)))) - (__tmp115373 + (raise _%exn115425%_)))) + (__tmp115479 (lambda () - (let ((_%loaded-path115322%_ - (load _%path115317%_))) + (let ((_%loaded-path115428%_ + (load _%path115423%_))) (mutex-lock! __load-mx) (let () (declare (not safe)) (__hash-put! __modules - _%modpath115293%_ - _%loaded-path115322%_)) + _%modpath115399%_ + _%loaded-path115428%_)) (if (let () (declare (not safe)) (__hash-get __load-order - _%modpath115293%_)) + _%modpath115399%_)) '#!void (begin (let () (declare (not safe)) (__hash-put! __load-order - _%modpath115293%_ + _%modpath115399%_ __load-order-next)) (set! __load-order-next (+ __load-order-next '1)))) (condition-variable-broadcast! __load-cv) (mutex-unlock! __load-mx) - _%loaded-path115322%_)))) + _%loaded-path115428%_)))) (declare (not safe)) - (__with-catch __tmp115374 __tmp115373))) - _%$e115314%_) + (__with-catch __tmp115480 __tmp115479))) + _%$e115420%_) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"module not found" - _%modpath115293%_)))))))))) + _%modpath115399%_)))))))))) (define reload-module! - (lambda (_%modpath115276%_) - (if (string? _%modpath115276%_) - (let ((_%modpath115280%_ _%modpath115276%_)) - (__reload-module! _%modpath115280%_)) + (lambda (_%modpath115382%_) + (if (string? _%modpath115382%_) + (let ((_%modpath115386%_ _%modpath115382%_)) + (__reload-module! _%modpath115386%_)) (begin (raise-contract-violation-error '"contract violation" @@ -195,154 +195,154 @@ 'contract: 'string? 'value: - _%modpath115276%_) + _%modpath115382%_) '#!void)))) (define __reload-module! - (lambda (_%modpath115248%_) - (let ((_%modpath115251%_ _%modpath115248%_)) + (lambda (_%modpath115354%_) + (let ((_%modpath115357%_ _%modpath115354%_)) (mutex-lock! __load-mx) - (let ((_%$e115260%_ + (let ((_%$e115366%_ (let () (declare (not safe)) - (__hash-get __modules _%modpath115251%_)))) - (if _%$e115260%_ - ((lambda (_%state115263%_) - (if (eq? _%state115263%_ 'builtin) + (__hash-get __modules _%modpath115357%_)))) + (if _%$e115366%_ + ((lambda (_%state115369%_) + (if (eq? _%state115369%_ 'builtin) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"cannot reload builtin module" - _%modpath115251%_))) - (if (eq? 'loading _%state115263%_) + _%modpath115357%_))) + (if (eq? 'loading _%state115369%_) (let () (mutex-unlock! __load-mx __load-cv) (let () (declare (not safe)) (error '"module is still loading"))) - (if (string? _%state115263%_) - (let ((_%latest-path115268%_ + (if (string? _%state115369%_) + (let ((_%latest-path115374%_ (__find-library-module - _%modpath115251%_))) + _%modpath115357%_))) (if (or (equal? (path-extension - _%state115263%_) + _%state115369%_) '".scm") - (not (equal? _%state115263%_ - _%latest-path115268%_))) + (not (equal? _%state115369%_ + _%latest-path115374%_))) (begin (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115251%_)) + _%modpath115357%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115251%_)) + (__load-module _%modpath115357%_)) (mutex-unlock! __load-mx))) - (if (and (pair? _%state115263%_) + (if (and (pair? _%state115369%_) (eq? (let () (declare (not safe)) - (##car _%state115263%_)) + (##car _%state115369%_)) 'error)) (let () (let () (declare (not safe)) (__hash-remove! __modules - _%modpath115251%_)) + _%modpath115357%_)) (mutex-unlock! __load-mx) - (__load-module _%modpath115251%_)) + (__load-module _%modpath115357%_)) (let () (mutex-unlock! __load-mx) (let () (declare (not safe)) (error '"inernal error; unexpected loading state" - _%state115263%_)))))))) - _%$e115260%_) + _%state115369%_)))))))) + _%$e115366%_) (let () (mutex-unlock! __load-mx) - (__load-module _%modpath115251%_))))))) + (__load-module _%modpath115357%_))))))) (define __find-library-module - (lambda (_%modpath115182%_) - (letrec ((_%find-compiled-file115184%_ - (lambda (_%npath115237%_) - (let ((_%basepath115239%_ + (lambda (_%modpath115288%_) + (letrec ((_%find-compiled-file115290%_ + (lambda (_%npath115343%_) + (let ((_%basepath115345%_ (let () (declare (not safe)) - (##string-append _%npath115237%_ '".o")))) - (let _%lp115241%_ ((_%current115243%_ '#f) - (_%n115244%_ '1)) - (let ((_%next115246%_ - (let ((__tmp115376 - (number->string _%n115244%_))) + (##string-append _%npath115343%_ '".o")))) + (let _%lp115347%_ ((_%current115349%_ '#f) + (_%n115350%_ '1)) + (let ((_%next115352%_ + (let ((__tmp115482 + (number->string _%n115350%_))) (declare (not safe)) (##string-append - _%basepath115239%_ - __tmp115376)))) + _%basepath115345%_ + __tmp115482)))) (if (let () (declare (not safe)) - (##file-exists? _%next115246%_)) - (_%lp115241%_ - _%next115246%_ + (##file-exists? _%next115352%_)) + (_%lp115347%_ + _%next115352%_ (let () (declare (not safe)) - (##fx+ _%n115244%_ '1))) - _%current115243%_)))))) - (_%find-source-file115185%_ - (lambda (_%npath115233%_) - (let ((_%spath115235%_ + (##fx+ _%n115350%_ '1))) + _%current115349%_)))))) + (_%find-source-file115291%_ + (lambda (_%npath115339%_) + (let ((_%spath115341%_ (let () (declare (not safe)) - (##string-append _%npath115233%_ '".scm")))) + (##string-append _%npath115339%_ '".scm")))) (if (let () (declare (not safe)) - (##file-exists? _%spath115235%_)) - _%spath115235%_ + (##file-exists? _%spath115341%_)) + _%spath115341%_ '#f))))) - (let _%lp115187%_ ((_%rest115189%_ (load-path))) - (let* ((_%rest115190115198%_ _%rest115189%_) - (_%else115192115206%_ (lambda () '#f)) - (_%K115194115221%_ - (lambda (_%rest115209%_ _%dir115210%_) - (let* ((_%npath115212%_ + (let _%lp115293%_ ((_%rest115295%_ (load-path))) + (let* ((_%rest115296115304%_ _%rest115295%_) + (_%else115298115312%_ (lambda () '#f)) + (_%K115300115327%_ + (lambda (_%rest115315%_ _%dir115316%_) + (let* ((_%npath115318%_ (path-expand - _%modpath115182%_ - (path-expand _%dir115210%_))) - (_%$e115214%_ - (_%find-compiled-file115184%_ _%npath115212%_))) - (if _%$e115214%_ - (path-normalize _%$e115214%_) - (let ((_%$e115217%_ - (_%find-source-file115185%_ - _%npath115212%_))) - (if _%$e115217%_ - (path-normalize _%$e115217%_) - (_%lp115187%_ _%rest115209%_)))))))) - (if (pair? _%rest115190115198%_) - (let ((_%hd115195115224%_ + _%modpath115288%_ + (path-expand _%dir115316%_))) + (_%$e115320%_ + (_%find-compiled-file115290%_ _%npath115318%_))) + (if _%$e115320%_ + (path-normalize _%$e115320%_) + (let ((_%$e115323%_ + (_%find-source-file115291%_ + _%npath115318%_))) + (if _%$e115323%_ + (path-normalize _%$e115323%_) + (_%lp115293%_ _%rest115315%_)))))))) + (if (pair? _%rest115296115304%_) + (let ((_%hd115301115330%_ (let () (declare (not safe)) - (##car _%rest115190115198%_))) - (_%tl115196115226%_ + (##car _%rest115296115304%_))) + (_%tl115302115332%_ (let () (declare (not safe)) - (##cdr _%rest115190115198%_)))) - (let* ((_%dir115229%_ _%hd115195115224%_) - (_%rest115231%_ _%tl115196115226%_)) - (_%K115194115221%_ _%rest115231%_ _%dir115229%_))) - (_%else115192115206%_))))))) + (##cdr _%rest115296115304%_)))) + (let* ((_%dir115335%_ _%hd115301115330%_) + (_%rest115337%_ _%tl115302115332%_)) + (_%K115300115327%_ _%rest115337%_ _%dir115335%_))) + (_%else115298115312%_))))))) (define list-modules (lambda () (let () (mutex-lock! __load-mx) - (let ((_%result115180%_ + (let ((_%result115286%_ (let () (declare (not safe)) (__hash->list __modules)))) (mutex-unlock! __load-mx) - _%result115180%_)))) + _%result115286%_)))) (define module-load-order - (lambda (_%modpath115164%_) - (if (string? _%modpath115164%_) - (let ((_%modpath115168%_ _%modpath115164%_)) - (__module-load-order _%modpath115168%_)) + (lambda (_%modpath115270%_) + (if (string? _%modpath115270%_) + (let ((_%modpath115274%_ _%modpath115270%_)) + (__module-load-order _%modpath115274%_)) (begin (raise-contract-violation-error '"contract violation" @@ -351,30 +351,30 @@ 'contract: 'string? 'value: - _%modpath115164%_) + _%modpath115270%_) '#!void)))) (define __module-load-order - (lambda (_%modpath115144%_) - (let ((_%modpath115147%_ _%modpath115144%_)) + (lambda (_%modpath115250%_) + (let ((_%modpath115253%_ _%modpath115250%_)) (mutex-lock! __load-mx) - (let ((_%ord115162%_ + (let ((_%ord115268%_ (if (eq? (let () (declare (not safe)) - (__hash-get __modules _%modpath115147%_)) + (__hash-get __modules _%modpath115253%_)) 'builtin) '0 - (let ((_%$e115158%_ + (let ((_%$e115264%_ (let () (declare (not safe)) - (__hash-get __load-order _%modpath115147%_)))) - (if _%$e115158%_ _%$e115158%_ '#f))))) + (__hash-get __load-order _%modpath115253%_)))) + (if _%$e115264%_ _%$e115264%_ '#f))))) (mutex-unlock! __load-mx) - (if (exact-integer? _%ord115162%_) - _%ord115162%_ + (if (exact-integer? _%ord115268%_) + _%ord115268%_ (begin (let () (declare (not safe)) (error '"unknown module load order" 'module: - _%modpath115147%_)) + _%modpath115253%_)) '#!void)))))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm index cd309f648..417105317 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop-system-classes::timestamp 1733870073) + (define gerbil/runtime/mop-system-classes::timestamp 1734131745) (begin (declare (not optimize-dead-definitions @@ -53,141 +53,141 @@ (define immediate::t (let () (declare (not safe)) (__make-system-class 'immediate '()))) (define char::t - (let ((__tmp102061 (cons immediate::t '()))) + (let ((__tmp102167 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'char __tmp102061))) + (__make-system-class 'char __tmp102167))) (define boolean::t - (let ((__tmp102062 (cons immediate::t '()))) + (let ((__tmp102168 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'boolean __tmp102062))) + (__make-system-class 'boolean __tmp102168))) (define atom::t - (let ((__tmp102063 (cons immediate::t '()))) + (let ((__tmp102169 (cons immediate::t '()))) (declare (not safe)) - (__make-system-class 'atom __tmp102063))) + (__make-system-class 'atom __tmp102169))) (define void::t - (let ((__tmp102064 (cons atom::t '()))) + (let ((__tmp102170 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'void __tmp102064))) + (__make-system-class 'void __tmp102170))) (define eof::t - (let ((__tmp102065 (cons atom::t '()))) + (let ((__tmp102171 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'eof __tmp102065))) + (__make-system-class 'eof __tmp102171))) (define true::t - (let ((__tmp102066 (cons boolean::t (cons atom::t '())))) + (let ((__tmp102172 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'true __tmp102066))) + (__make-system-class 'true __tmp102172))) (define false::t - (let ((__tmp102067 (cons boolean::t (cons atom::t '())))) + (let ((__tmp102173 (cons boolean::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'false __tmp102067))) + (__make-system-class 'false __tmp102173))) (define special::t - (let ((__tmp102068 (cons atom::t '()))) + (let ((__tmp102174 (cons atom::t '()))) (declare (not safe)) - (__make-system-class 'special __tmp102068))) + (__make-system-class 'special __tmp102174))) (define number::t (let () (declare (not safe)) (__make-system-class 'number '()))) (define real::t - (let ((__tmp102069 (cons number::t '()))) + (let ((__tmp102175 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'real __tmp102069))) + (__make-system-class 'real __tmp102175))) (define integer::t - (let ((__tmp102070 (cons real::t '()))) + (let ((__tmp102176 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'integer __tmp102070))) + (__make-system-class 'integer __tmp102176))) (define fixnum::t - (let ((__tmp102071 (cons integer::t (cons immediate::t '())))) + (let ((__tmp102177 (cons integer::t (cons immediate::t '())))) (declare (not safe)) - (__make-system-class 'fixnum __tmp102071))) + (__make-system-class 'fixnum __tmp102177))) (define bignum::t - (let ((__tmp102072 (cons integer::t '()))) + (let ((__tmp102178 (cons integer::t '()))) (declare (not safe)) - (__make-system-class 'bignum __tmp102072))) + (__make-system-class 'bignum __tmp102178))) (define ratnum::t - (let ((__tmp102073 (cons real::t '()))) + (let ((__tmp102179 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'ratnum __tmp102073))) + (__make-system-class 'ratnum __tmp102179))) (define flonum::t - (let ((__tmp102074 (cons real::t '()))) + (let ((__tmp102180 (cons real::t '()))) (declare (not safe)) - (__make-system-class 'flonum __tmp102074))) + (__make-system-class 'flonum __tmp102180))) (define cpxnum::t - (let ((__tmp102075 (cons number::t '()))) + (let ((__tmp102181 (cons number::t '()))) (declare (not safe)) - (__make-system-class 'cpxnum __tmp102075))) + (__make-system-class 'cpxnum __tmp102181))) (define symbolic::t (let () (declare (not safe)) (__make-system-class 'symbolic '()))) (define symbol::t - (let ((__tmp102076 (cons symbolic::t '()))) + (let ((__tmp102182 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'symbol __tmp102076))) + (__make-system-class 'symbol __tmp102182))) (define keyword::t - (let ((__tmp102077 (cons symbolic::t '()))) + (let ((__tmp102183 (cons symbolic::t '()))) (declare (not safe)) - (__make-system-class 'keyword __tmp102077))) + (__make-system-class 'keyword __tmp102183))) (define list::t (let () (declare (not safe)) (__make-system-class 'list '()))) (define pair::t - (let ((__tmp102078 (cons list::t '()))) + (let ((__tmp102184 (cons list::t '()))) (declare (not safe)) - (__make-system-class 'pair __tmp102078))) + (__make-system-class 'pair __tmp102184))) (define null::t - (let ((__tmp102079 (cons list::t (cons atom::t '())))) + (let ((__tmp102185 (cons list::t (cons atom::t '())))) (declare (not safe)) - (__make-system-class 'null __tmp102079))) + (__make-system-class 'null __tmp102185))) (define sequence::t (let () (declare (not safe)) (__make-system-class 'sequence '()))) (define vector::t - (let ((__tmp102080 (cons sequence::t '()))) + (let ((__tmp102186 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'vector __tmp102080))) + (__make-system-class 'vector __tmp102186))) (define string::t - (let ((__tmp102081 (cons sequence::t '()))) + (let ((__tmp102187 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'string __tmp102081))) + (__make-system-class 'string __tmp102187))) (define hvector::t - (let ((__tmp102082 (cons sequence::t '()))) + (let ((__tmp102188 (cons sequence::t '()))) (declare (not safe)) - (__make-system-class 'hvector __tmp102082))) + (__make-system-class 'hvector __tmp102188))) (define u8vector::t - (let ((__tmp102083 (cons hvector::t '()))) + (let ((__tmp102189 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u8vector __tmp102083))) + (__make-system-class 'u8vector __tmp102189))) (define s8vector::t - (let ((__tmp102084 (cons hvector::t '()))) + (let ((__tmp102190 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's8vector __tmp102084))) + (__make-system-class 's8vector __tmp102190))) (define u16vector::t - (let ((__tmp102085 (cons hvector::t '()))) + (let ((__tmp102191 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u16vector __tmp102085))) + (__make-system-class 'u16vector __tmp102191))) (define s16vector::t - (let ((__tmp102086 (cons hvector::t '()))) + (let ((__tmp102192 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's16vector __tmp102086))) + (__make-system-class 's16vector __tmp102192))) (define u32vector::t - (let ((__tmp102087 (cons hvector::t '()))) + (let ((__tmp102193 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u32vector __tmp102087))) + (__make-system-class 'u32vector __tmp102193))) (define s32vector::t - (let ((__tmp102088 (cons hvector::t '()))) + (let ((__tmp102194 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's32vector __tmp102088))) + (__make-system-class 's32vector __tmp102194))) (define u64vector::t - (let ((__tmp102089 (cons hvector::t '()))) + (let ((__tmp102195 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'u64vector __tmp102089))) + (__make-system-class 'u64vector __tmp102195))) (define s64vector::t - (let ((__tmp102090 (cons hvector::t '()))) + (let ((__tmp102196 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 's64vector __tmp102090))) + (__make-system-class 's64vector __tmp102196))) (define f32vector::t - (let ((__tmp102091 (cons hvector::t '()))) + (let ((__tmp102197 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f32vector __tmp102091))) + (__make-system-class 'f32vector __tmp102197))) (define f64vector::t - (let ((__tmp102092 (cons hvector::t '()))) + (let ((__tmp102198 (cons hvector::t '()))) (declare (not safe)) - (__make-system-class 'f64vector __tmp102092))) + (__make-system-class 'f64vector __tmp102198))) (define values::t (let () (declare (not safe)) (__make-system-class 'values '()))) (define box::t @@ -207,294 +207,294 @@ (define return::t (let () (declare (not safe)) (__make-system-class 'return '()))) (define time::t - (let ((__tmp102093 (macro-type-time))) + (let ((__tmp102199 (macro-type-time))) (declare (not safe)) - (__shadow-class __tmp102093))) + (__shadow-class __tmp102199))) (define thread::t - (let ((__tmp102094 (macro-type-thread))) + (let ((__tmp102200 (macro-type-thread))) (declare (not safe)) - (__shadow-class __tmp102094))) + (__shadow-class __tmp102200))) (define thread-group::t - (let ((__tmp102095 (macro-type-tgroup))) + (let ((__tmp102201 (macro-type-tgroup))) (declare (not safe)) - (__shadow-class __tmp102095))) + (__shadow-class __tmp102201))) (define mutex::t - (let ((__tmp102096 (macro-type-mutex))) + (let ((__tmp102202 (macro-type-mutex))) (declare (not safe)) - (__shadow-class __tmp102096))) + (__shadow-class __tmp102202))) (define condvar::t - (let ((__tmp102097 (macro-type-condvar))) + (let ((__tmp102203 (macro-type-condvar))) (declare (not safe)) - (__shadow-class __tmp102097))) + (__shadow-class __tmp102203))) (define port::t - (let ((__tmp102098 (macro-type-port))) + (let ((__tmp102204 (macro-type-port))) (declare (not safe)) - (__shadow-class __tmp102098))) + (__shadow-class __tmp102204))) (define object-port::t - (let ((__tmp102099 (macro-type-object-port))) + (let ((__tmp102205 (macro-type-object-port))) (declare (not safe)) - (__shadow-class __tmp102099))) + (__shadow-class __tmp102205))) (define character-port::t - (let ((__tmp102100 (macro-type-character-port))) + (let ((__tmp102206 (macro-type-character-port))) (declare (not safe)) - (__shadow-class __tmp102100))) + (__shadow-class __tmp102206))) (define byte-port::t - (let ((__tmp102101 (macro-type-byte-port))) + (let ((__tmp102207 (macro-type-byte-port))) (declare (not safe)) - (__shadow-class __tmp102101))) + (__shadow-class __tmp102207))) (define device-port::t - (let ((__tmp102102 (macro-type-device-port))) + (let ((__tmp102208 (macro-type-device-port))) (declare (not safe)) - (__shadow-class __tmp102102))) + (__shadow-class __tmp102208))) (define vector-port::t - (let ((__tmp102103 (macro-type-vector-port))) + (let ((__tmp102209 (macro-type-vector-port))) (declare (not safe)) - (__shadow-class __tmp102103))) + (__shadow-class __tmp102209))) (define string-port::t - (let ((__tmp102104 (macro-type-string-port))) + (let ((__tmp102210 (macro-type-string-port))) (declare (not safe)) - (__shadow-class __tmp102104))) + (__shadow-class __tmp102210))) (define u8vector-port::t - (let ((__tmp102105 (macro-type-u8vector-port))) + (let ((__tmp102211 (macro-type-u8vector-port))) (declare (not safe)) - (__shadow-class __tmp102105))) + (__shadow-class __tmp102211))) (define raw-device-port::t - (let ((__tmp102106 (macro-type-raw-device-port))) + (let ((__tmp102212 (macro-type-raw-device-port))) (declare (not safe)) - (__shadow-class __tmp102106))) + (__shadow-class __tmp102212))) (define tcp-server-port::t - (let ((__tmp102107 (macro-type-tcp-server-port))) + (let ((__tmp102213 (macro-type-tcp-server-port))) (declare (not safe)) - (__shadow-class __tmp102107))) + (__shadow-class __tmp102213))) (define udp-port::t - (let ((__tmp102108 (macro-type-udp-port))) + (let ((__tmp102214 (macro-type-udp-port))) (declare (not safe)) - (__shadow-class __tmp102108))) + (__shadow-class __tmp102214))) (define directory-port::t - (let ((__tmp102109 (macro-type-directory-port))) + (let ((__tmp102215 (macro-type-directory-port))) (declare (not safe)) - (__shadow-class __tmp102109))) + (__shadow-class __tmp102215))) (define event-queue-port::t - (let ((__tmp102110 (macro-type-event-queue-port))) + (let ((__tmp102216 (macro-type-event-queue-port))) (declare (not safe)) - (__shadow-class __tmp102110))) + (__shadow-class __tmp102216))) (define table::t - (let ((__tmp102111 (macro-type-table))) + (let ((__tmp102217 (macro-type-table))) (declare (not safe)) - (__shadow-class __tmp102111))) + (__shadow-class __tmp102217))) (define readenv::t - (let ((__tmp102112 (macro-type-readenv))) + (let ((__tmp102218 (macro-type-readenv))) (declare (not safe)) - (__shadow-class __tmp102112))) + (__shadow-class __tmp102218))) (define writeenv::t - (let ((__tmp102113 (macro-type-writeenv))) + (let ((__tmp102219 (macro-type-writeenv))) (declare (not safe)) - (__shadow-class __tmp102113))) + (__shadow-class __tmp102219))) (define readtable::t - (let ((__tmp102114 (macro-type-readtable))) + (let ((__tmp102220 (macro-type-readtable))) (declare (not safe)) - (__shadow-class __tmp102114))) + (__shadow-class __tmp102220))) (define processor::t - (let ((__tmp102115 (macro-type-processor))) + (let ((__tmp102221 (macro-type-processor))) (declare (not safe)) - (__shadow-class __tmp102115))) + (__shadow-class __tmp102221))) (define vm::t - (let ((__tmp102116 (macro-type-vm))) + (let ((__tmp102222 (macro-type-vm))) (declare (not safe)) - (__shadow-class __tmp102116))) + (__shadow-class __tmp102222))) (define file-info::t - (let ((__tmp102117 (macro-type-file-info))) + (let ((__tmp102223 (macro-type-file-info))) (declare (not safe)) - (__shadow-class __tmp102117))) + (__shadow-class __tmp102223))) (define socket-info::t - (let ((__tmp102118 (macro-type-socket-info))) + (let ((__tmp102224 (macro-type-socket-info))) (declare (not safe)) - (__shadow-class __tmp102118))) + (__shadow-class __tmp102224))) (define address-info::t - (let ((__tmp102119 (macro-type-address-info))) + (let ((__tmp102225 (macro-type-address-info))) (declare (not safe)) - (__shadow-class __tmp102119))) + (__shadow-class __tmp102225))) (define atom? - (lambda (_%obj102060%_) - (if (let () (declare (not safe)) (immediate? _%obj102060%_)) - (if (char? _%obj102060%_) '#f (not (fixnum? _%obj102060%_))) + (lambda (_%obj102166%_) + (if (let () (declare (not safe)) (immediate? _%obj102166%_)) + (if (char? _%obj102166%_) '#f (not (fixnum? _%obj102166%_))) '#f))) (define special? - (lambda (_%obj102058%_) - (if (let ((__tmp102120 - (let () (declare (not safe)) (##type _%obj102058%_)))) + (lambda (_%obj102164%_) + (if (let ((__tmp102226 + (let () (declare (not safe)) (##type _%obj102164%_)))) (declare (not safe)) - (##fx= __tmp102120 '2)) - (if (char? _%obj102058%_) + (##fx= __tmp102226 '2)) + (if (char? _%obj102164%_) '#f - (if (null? _%obj102058%_) + (if (null? _%obj102164%_) '#f - (if (boolean? _%obj102058%_) + (if (boolean? _%obj102164%_) '#f - (if (eq? _%obj102058%_ '#!void) + (if (eq? _%obj102164%_ '#!void) '#f - (not (eof-object? _%obj102058%_)))))) + (not (eof-object? _%obj102164%_)))))) '#f))) (define sequence? - (lambda (_%obj102050%_) - (let ((_%$e102052%_ (vector? _%obj102050%_))) - (if _%$e102052%_ - _%$e102052%_ - (let ((_%$e102055%_ (string? _%obj102050%_))) - (if _%$e102055%_ _%$e102055%_ (hvector? _%obj102050%_))))))) + (lambda (_%obj102156%_) + (let ((_%$e102158%_ (vector? _%obj102156%_))) + (if _%$e102158%_ + _%$e102158%_ + (let ((_%$e102161%_ (string? _%obj102156%_))) + (if _%$e102161%_ _%$e102161%_ (hvector? _%obj102156%_))))))) (define hvector? - (lambda (_%obj102021%_) - (let ((_%$e102023%_ (u8vector? _%obj102021%_))) - (if _%$e102023%_ - _%$e102023%_ - (let ((_%$e102026%_ (s8vector? _%obj102021%_))) - (if _%$e102026%_ - _%$e102026%_ - (let ((_%$e102029%_ (u16vector? _%obj102021%_))) - (if _%$e102029%_ - _%$e102029%_ - (let ((_%$e102032%_ (s16vector? _%obj102021%_))) - (if _%$e102032%_ - _%$e102032%_ - (let ((_%$e102035%_ - (u32vector? _%obj102021%_))) - (if _%$e102035%_ - _%$e102035%_ - (let ((_%$e102038%_ - (s32vector? _%obj102021%_))) - (if _%$e102038%_ - _%$e102038%_ - (let ((_%$e102041%_ - (u64vector? _%obj102021%_))) - (if _%$e102041%_ - _%$e102041%_ - (let ((_%$e102044%_ + (lambda (_%obj102127%_) + (let ((_%$e102129%_ (u8vector? _%obj102127%_))) + (if _%$e102129%_ + _%$e102129%_ + (let ((_%$e102132%_ (s8vector? _%obj102127%_))) + (if _%$e102132%_ + _%$e102132%_ + (let ((_%$e102135%_ (u16vector? _%obj102127%_))) + (if _%$e102135%_ + _%$e102135%_ + (let ((_%$e102138%_ (s16vector? _%obj102127%_))) + (if _%$e102138%_ + _%$e102138%_ + (let ((_%$e102141%_ + (u32vector? _%obj102127%_))) + (if _%$e102141%_ + _%$e102141%_ + (let ((_%$e102144%_ + (s32vector? _%obj102127%_))) + (if _%$e102144%_ + _%$e102144%_ + (let ((_%$e102147%_ + (u64vector? _%obj102127%_))) + (if _%$e102147%_ + _%$e102147%_ + (let ((_%$e102150%_ (s64vector? - _%obj102021%_))) - (if _%$e102044%_ - _%$e102044%_ - (let ((_%$e102047%_ + _%obj102127%_))) + (if _%$e102150%_ + _%$e102150%_ + (let ((_%$e102153%_ (f32vector? - _%obj102021%_))) - (if _%$e102047%_ - _%$e102047%_ + _%obj102127%_))) + (if _%$e102153%_ + _%$e102153%_ (f64vector? - _%obj102021%_))))))))))))))))))))) + _%obj102127%_))))))))))))))))))))) (define weak? - (lambda (_%obj102019%_) - (if (let () (declare (not safe)) (##subtyped? _%obj102019%_)) - (eq? (let () (declare (not safe)) (##subtype _%obj102019%_)) + (lambda (_%obj102125%_) + (if (let () (declare (not safe)) (##subtyped? _%obj102125%_)) + (eq? (let () (declare (not safe)) (##subtype _%obj102125%_)) (macro-subtype-weak)) '#f))) (define object-port? - (lambda (_%obj102017%_) - (let ((__tmp102121 - (let ((__tmp102122 (macro-type-object-port))) + (lambda (_%obj102123%_) + (let ((__tmp102227 + (let ((__tmp102228 (macro-type-object-port))) (declare (not safe)) - (##type-id __tmp102122)))) + (##type-id __tmp102228)))) (declare (not safe)) - (##structure-instance-of? _%obj102017%_ __tmp102121)))) + (##structure-instance-of? _%obj102123%_ __tmp102227)))) (define character-port? - (lambda (_%obj102015%_) - (let ((__tmp102123 - (let ((__tmp102124 (macro-type-character-port))) + (lambda (_%obj102121%_) + (let ((__tmp102229 + (let ((__tmp102230 (macro-type-character-port))) (declare (not safe)) - (##type-id __tmp102124)))) + (##type-id __tmp102230)))) (declare (not safe)) - (##structure-instance-of? _%obj102015%_ __tmp102123)))) + (##structure-instance-of? _%obj102121%_ __tmp102229)))) (define device-port? - (lambda (_%obj102013%_) - (let ((__tmp102125 - (let ((__tmp102126 (macro-type-device-port))) + (lambda (_%obj102119%_) + (let ((__tmp102231 + (let ((__tmp102232 (macro-type-device-port))) (declare (not safe)) - (##type-id __tmp102126)))) + (##type-id __tmp102232)))) (declare (not safe)) - (##structure-instance-of? _%obj102013%_ __tmp102125)))) + (##structure-instance-of? _%obj102119%_ __tmp102231)))) (define vector-port? - (lambda (_%obj102011%_) - (let ((__tmp102127 - (let ((__tmp102128 (macro-type-vector-port))) + (lambda (_%obj102117%_) + (let ((__tmp102233 + (let ((__tmp102234 (macro-type-vector-port))) (declare (not safe)) - (##type-id __tmp102128)))) + (##type-id __tmp102234)))) (declare (not safe)) - (##structure-instance-of? _%obj102011%_ __tmp102127)))) + (##structure-instance-of? _%obj102117%_ __tmp102233)))) (define string-port? - (lambda (_%obj102009%_) - (let ((__tmp102129 - (let ((__tmp102130 (macro-type-string-port))) + (lambda (_%obj102115%_) + (let ((__tmp102235 + (let ((__tmp102236 (macro-type-string-port))) (declare (not safe)) - (##type-id __tmp102130)))) + (##type-id __tmp102236)))) (declare (not safe)) - (##structure-instance-of? _%obj102009%_ __tmp102129)))) + (##structure-instance-of? _%obj102115%_ __tmp102235)))) (define u8vector-port? - (lambda (_%obj102007%_) - (let ((__tmp102131 - (let ((__tmp102132 (macro-type-u8vector-port))) + (lambda (_%obj102113%_) + (let ((__tmp102237 + (let ((__tmp102238 (macro-type-u8vector-port))) (declare (not safe)) - (##type-id __tmp102132)))) + (##type-id __tmp102238)))) (declare (not safe)) - (##structure-instance-of? _%obj102007%_ __tmp102131)))) + (##structure-instance-of? _%obj102113%_ __tmp102237)))) (define raw-device-port? - (lambda (_%obj102005%_) - (let ((__tmp102133 - (let ((__tmp102134 (macro-type-raw-device-port))) + (lambda (_%obj102111%_) + (let ((__tmp102239 + (let ((__tmp102240 (macro-type-raw-device-port))) (declare (not safe)) - (##type-id __tmp102134)))) + (##type-id __tmp102240)))) (declare (not safe)) - (##structure-instance-of? _%obj102005%_ __tmp102133)))) + (##structure-instance-of? _%obj102111%_ __tmp102239)))) (define tcp-server-port? - (lambda (_%obj102003%_) - (let ((__tmp102135 - (let ((__tmp102136 (macro-type-tcp-server-port))) + (lambda (_%obj102109%_) + (let ((__tmp102241 + (let ((__tmp102242 (macro-type-tcp-server-port))) (declare (not safe)) - (##type-id __tmp102136)))) + (##type-id __tmp102242)))) (declare (not safe)) - (##structure-instance-of? _%obj102003%_ __tmp102135)))) + (##structure-instance-of? _%obj102109%_ __tmp102241)))) (define udp-port? - (lambda (_%obj102001%_) - (let ((__tmp102137 - (let ((__tmp102138 (macro-type-udp-port))) + (lambda (_%obj102107%_) + (let ((__tmp102243 + (let ((__tmp102244 (macro-type-udp-port))) (declare (not safe)) - (##type-id __tmp102138)))) + (##type-id __tmp102244)))) (declare (not safe)) - (##structure-instance-of? _%obj102001%_ __tmp102137)))) + (##structure-instance-of? _%obj102107%_ __tmp102243)))) (define directory-port? - (lambda (_%obj101999%_) - (let ((__tmp102139 - (let ((__tmp102140 (macro-type-directory-port))) + (lambda (_%obj102105%_) + (let ((__tmp102245 + (let ((__tmp102246 (macro-type-directory-port))) (declare (not safe)) - (##type-id __tmp102140)))) + (##type-id __tmp102246)))) (declare (not safe)) - (##structure-instance-of? _%obj101999%_ __tmp102139)))) + (##structure-instance-of? _%obj102105%_ __tmp102245)))) (define event-queue-port? - (lambda (_%obj101997%_) - (let ((__tmp102141 - (let ((__tmp102142 (macro-type-event-queue-port))) + (lambda (_%obj102103%_) + (let ((__tmp102247 + (let ((__tmp102248 (macro-type-event-queue-port))) (declare (not safe)) - (##type-id __tmp102142)))) + (##type-id __tmp102248)))) (declare (not safe)) - (##structure-instance-of? _%obj101997%_ __tmp102141)))) + (##structure-instance-of? _%obj102103%_ __tmp102247)))) (define readenv? - (lambda (_%obj101995%_) - (let ((__tmp102143 - (let ((__tmp102144 (macro-type-readenv))) + (lambda (_%obj102101%_) + (let ((__tmp102249 + (let ((__tmp102250 (macro-type-readenv))) (declare (not safe)) - (##type-id __tmp102144)))) + (##type-id __tmp102250)))) (declare (not safe)) - (##structure-instance-of? _%obj101995%_ __tmp102143)))) + (##structure-instance-of? _%obj102101%_ __tmp102249)))) (define writeenv? - (lambda (_%obj101993%_) - (let ((__tmp102145 - (let ((__tmp102146 (macro-type-writeenv))) + (lambda (_%obj102099%_) + (let ((__tmp102251 + (let ((__tmp102252 (macro-type-writeenv))) (declare (not safe)) - (##type-id __tmp102146)))) + (##type-id __tmp102252)))) (declare (not safe)) - (##structure-instance-of? _%obj101993%_ __tmp102145)))) + (##structure-instance-of? _%obj102099%_ __tmp102251)))) (define vm? - (lambda (_%obj101991%_) - (let ((__tmp102147 - (let ((__tmp102148 (macro-type-vm))) + (lambda (_%obj102097%_) + (let ((__tmp102253 + (let ((__tmp102254 (macro-type-vm))) (declare (not safe)) - (##type-id __tmp102148)))) + (##type-id __tmp102254)))) (declare (not safe)) - (##structure-instance-of? _%obj101991%_ __tmp102147)))))) + (##structure-instance-of? _%obj102097%_ __tmp102253)))))) diff --git a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm index fda3a328f..a91191e0b 100644 --- a/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm +++ b/src/bootstrap/gerbil/runtime/mop-system-classes~1.scm @@ -1,208 +1,208 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g102149_| + (define |[1]#_g102255_| (##structure gx#syntax-quote::t ':- #f (gx#current-expander-context) '())) (define |[:0:]#defpred| - (lambda (_%stx101776%_) - (let* ((_%g101779101817%_ - (lambda (_%g101780101813%_) + (lambda (_%stx101882%_) + (let* ((_%g101885101923%_ + (lambda (_%g101886101919%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101780101813%_))) - (_%g101778101986%_ - (lambda (_%g101780101821%_) - (if (gx#stx-pair? _%g101780101821%_) - (let ((_%e101785101824%_ (gx#syntax-e _%g101780101821%_))) - (let ((_%hd101786101828%_ + _%g101886101919%_))) + (_%g101884102092%_ + (lambda (_%g101886101927%_) + (if (gx#stx-pair? _%g101886101927%_) + (let ((_%e101891101930%_ (gx#syntax-e _%g101886101927%_))) + (let ((_%hd101892101934%_ (let () (declare (not safe)) - (##car _%e101785101824%_))) - (_%tl101787101831%_ + (##car _%e101891101930%_))) + (_%tl101893101937%_ (let () (declare (not safe)) - (##cdr _%e101785101824%_)))) - (if (gx#stx-pair? _%tl101787101831%_) - (let ((_%e101788101834%_ - (gx#syntax-e _%tl101787101831%_))) - (let ((_%hd101789101838%_ + (##cdr _%e101891101930%_)))) + (if (gx#stx-pair? _%tl101893101937%_) + (let ((_%e101894101940%_ + (gx#syntax-e _%tl101893101937%_))) + (let ((_%hd101895101944%_ (let () (declare (not safe)) - (##car _%e101788101834%_))) - (_%tl101790101841%_ + (##car _%e101894101940%_))) + (_%tl101896101947%_ (let () (declare (not safe)) - (##cdr _%e101788101834%_)))) - (if (gx#stx-pair? _%hd101789101838%_) - (let ((_%e101791101844%_ - (gx#syntax-e _%hd101789101838%_))) - (let ((_%hd101792101848%_ + (##cdr _%e101894101940%_)))) + (if (gx#stx-pair? _%hd101895101944%_) + (let ((_%e101897101950%_ + (gx#syntax-e _%hd101895101944%_))) + (let ((_%hd101898101954%_ (let () (declare (not safe)) - (##car _%e101791101844%_))) - (_%tl101793101851%_ + (##car _%e101897101950%_))) + (_%tl101899101957%_ (let () (declare (not safe)) - (##cdr _%e101791101844%_)))) - (if (gx#stx-pair? _%tl101793101851%_) - (let ((_%e101794101854%_ + (##cdr _%e101897101950%_)))) + (if (gx#stx-pair? _%tl101899101957%_) + (let ((_%e101900101960%_ (gx#syntax-e - _%tl101793101851%_))) - (let ((_%hd101795101858%_ + _%tl101899101957%_))) + (let ((_%hd101901101964%_ (let () (declare (not safe)) - (##car _%e101794101854%_))) - (_%tl101796101861%_ + (##car _%e101900101960%_))) + (_%tl101902101967%_ (let () (declare (not safe)) - (##cdr _%e101794101854%_)))) + (##cdr _%e101900101960%_)))) (if (gx#stx-null? - _%tl101796101861%_) + _%tl101902101967%_) (if (gx#stx-pair? - _%tl101790101841%_) - (let ((_%e101797101864%_ + _%tl101896101947%_) + (let ((_%e101903101970%_ (gx#syntax-e - _%tl101790101841%_))) - (let ((_%hd101798101868%_ + _%tl101896101947%_))) + (let ((_%hd101904101974%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##car _%e101797101864%_))) - (_%tl101799101871%_ + (##car _%e101903101970%_))) + (_%tl101905101977%_ (let () (declare (not safe)) - (##cdr _%e101797101864%_)))) - (if (gx#identifier? _%hd101798101868%_) + (##cdr _%e101903101970%_)))) + (if (gx#identifier? _%hd101904101974%_) (if (gx#free-identifier=? - |[1]#_g102149_| - _%hd101798101868%_) - (if (gx#stx-pair? _%tl101799101871%_) - (let ((_%e101800101874%_ - (gx#syntax-e _%tl101799101871%_))) - (let ((_%hd101801101878%_ + |[1]#_g102255_| + _%hd101904101974%_) + (if (gx#stx-pair? _%tl101905101977%_) + (let ((_%e101906101980%_ + (gx#syntax-e _%tl101905101977%_))) + (let ((_%hd101907101984%_ (let () (declare (not safe)) - (##car _%e101800101874%_))) - (_%tl101802101881%_ + (##car _%e101906101980%_))) + (_%tl101908101987%_ (let () (declare (not safe)) - (##cdr _%e101800101874%_)))) - (if (gx#stx-pair/null? _%tl101802101881%_) - (let ((_g102150_ + (##cdr _%e101906101980%_)))) + (if (gx#stx-pair/null? _%tl101908101987%_) + (let ((_g102256_ (gx#syntax-split-splice - _%tl101802101881%_ + _%tl101908101987%_ '0))) (begin - (let ((_g102151_ + (let ((_g102257_ (let () (declare (not safe)) - (if (##values? _g102150_) - (##vector-length - _g102150_) + (if (##values? _g102256_) + (##values-length + _g102256_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g102151_ 2))) + (##fx= _g102257_ 2))) (error "Context expects 2 values" - _g102151_))) - (let ((_%target101803101884%_ + _g102257_))) + (let ((_%target101909101990%_ (let () (declare (not safe)) - (##vector-ref - _g102150_ + (##values-ref + _g102256_ 0))) - (_%tl101805101887%_ + (_%tl101911101993%_ (let () (declare (not safe)) - (##vector-ref - _g102150_ + (##values-ref + _g102256_ 1)))) (if (gx#stx-null? - _%tl101805101887%_) - (letrec ((_%loop101806101890%_ - (lambda (_%hd101804101894%_ + _%tl101911101993%_) + (letrec ((_%loop101912101996%_ + (lambda (_%hd101910102000%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body101810101897%_) - (if (gx#stx-pair? _%hd101804101894%_) - (let ((_%e101807101900%_ - (gx#syntax-e _%hd101804101894%_))) - (let ((_%lp-hd101808101904%_ + _%body101916102003%_) + (if (gx#stx-pair? _%hd101910102000%_) + (let ((_%e101913102006%_ + (gx#syntax-e _%hd101910102000%_))) + (let ((_%lp-hd101914102010%_ (let () (declare (not safe)) - (##car _%e101807101900%_))) - (_%lp-tl101809101907%_ + (##car _%e101913102006%_))) + (_%lp-tl101915102013%_ (let () (declare (not safe)) - (##cdr _%e101807101900%_)))) - (_%loop101806101890%_ - _%lp-tl101809101907%_ - (cons _%lp-hd101808101904%_ - _%body101810101897%_)))) - (let ((_%body101811101910%_ - (reverse _%body101810101897%_))) - ((lambda (_%L101914%_ - _%L101916%_ - _%L101917%_ - _%L101918%_) - (let* ((_%g101947101955%_ - (lambda (_%g101948101951%_) + (##cdr _%e101913102006%_)))) + (_%loop101912101996%_ + _%lp-tl101915102013%_ + (cons _%lp-hd101914102010%_ + _%body101916102003%_)))) + (let ((_%body101917102016%_ + (reverse _%body101916102003%_))) + ((lambda (_%L102020%_ + _%L102022%_ + _%L102023%_ + _%L102024%_) + (let* ((_%g102053102061%_ + (lambda (_%g102054102057%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g101948101951%_))) - (_%g101946101982%_ - (lambda (_%g101948101959%_) - ((lambda (_%L101962%_) + _%g102054102057%_))) + (_%g102052102088%_ + (lambda (_%g102054102065%_) + ((lambda (_%L102068%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L101918%_ + (cons _%L102024%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@predicate) - (cons _%L101962%_ '())) + (cons _%L102068%_ '())) (cons (cons (gx#datum->syntax '#f 'lambda) - (cons (cons _%L101917%_ '()) - (let ((__tmp102152 - (lambda (_%g101973101976%_ + (cons (cons _%L102023%_ '()) + (let ((__tmp102258 + (lambda (_%g102079102082%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g101974101979%_) - (cons _%g101973101976%_ _%g101974101979%_)))) + _%g102080102085%_) + (cons _%g102079102082%_ _%g102080102085%_)))) (declare (not safe)) - (__foldr1 __tmp102152 '() _%L101914%_)))) + (__foldr1 __tmp102258 '() _%L102020%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g101948101959%_)))) - (_%g101946101982%_ + _%g102054102065%_)))) + (_%g102052102088%_ (let () (declare (not safe)) (|gerbil/core/contract~TypeReference[1]#resolve-type->type-descriptor| - _%stx101776%_ - _%L101916%_))))) - _%body101811101910%_ - _%hd101801101878%_ - _%hd101795101858%_ - _%hd101792101848%_)))))) + _%stx101882%_ + _%L102022%_))))) + _%body101917102016%_ + _%hd101907101984%_ + _%hd101901101964%_ + _%hd101898101954%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop101806101890%_ - _%target101803101884%_ + (_%loop101912101996%_ + _%target101909101990%_ '())) - (_%g101779101817%_ - _%g101780101821%_))))) - (_%g101779101817%_ - _%g101780101821%_)))) - (_%g101779101817%_ _%g101780101821%_)) - (_%g101779101817%_ _%g101780101821%_)) - (_%g101779101817%_ _%g101780101821%_)))) - (_%g101779101817%_ _%g101780101821%_)) + (_%g101885101923%_ + _%g101886101927%_))))) + (_%g101885101923%_ + _%g101886101927%_)))) + (_%g101885101923%_ _%g101886101927%_)) + (_%g101885101923%_ _%g101886101927%_)) + (_%g101885101923%_ _%g101886101927%_)))) + (_%g101885101923%_ _%g101886101927%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g101779101817%_ - _%g101780101821%_)))) - (_%g101779101817%_ - _%g101780101821%_)))) - (_%g101779101817%_ _%g101780101821%_)))) - (_%g101779101817%_ _%g101780101821%_)))) - (_%g101779101817%_ _%g101780101821%_))))) - (_%g101778101986%_ _%stx101776%_))))) + (_%g101885101923%_ + _%g101886101927%_)))) + (_%g101885101923%_ + _%g101886101927%_)))) + (_%g101885101923%_ _%g101886101927%_)))) + (_%g101885101923%_ _%g101886101927%_)))) + (_%g101885101923%_ _%g101886101927%_))))) + (_%g101884102092%_ _%stx101882%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop.ssi b/src/bootstrap/gerbil/runtime/mop.ssi index 14083d0cf..26288f9cb 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssi +++ b/src/bootstrap/gerbil/runtime/mop.ssi @@ -368,6 +368,9 @@ namespace: #f (%#define-runtime __shadow-classes __shadow-classes) (%#define-runtime __shadow-classes-mx __shadow-classes-mx) (%#define-runtime __shadow-class __shadow-class) + (%#define-runtime __type __type) + (%#define-runtime __class __class) + (%#define-runtime type-of type-of) (%#define-runtime class-of class-of) (%#define-runtime __subtype-id __subtype-id) (%#define-syntax defsubtype |[:0:]#defsubtype|) diff --git a/src/bootstrap/gerbil/runtime/mop.ssxi.ss b/src/bootstrap/gerbil/runtime/mop.ssxi.ss index 59be472fd..cc90b93aa 100644 --- a/src/bootstrap/gerbil/runtime/mop.ssxi.ss +++ b/src/bootstrap/gerbil/runtime/mop.ssxi.ss @@ -3117,6 +3117,23 @@ package: gerbil/runtime #f origin: gerbil/runtime/mop))) + (declare-type __type (optimizer-resolve-class '(typedecl __type) 't::t)) + (declare-type __class (optimizer-resolve-class '(typedecl __class) 't::t)) + (declare-type + type-of + (@lambda 1 + #f + signature: + (return: + symbol::t + effect: + #f + arguments: + #f + unchecked: + #f + origin: + gerbil/runtime/mop))) (declare-type class-of (@lambda 1 diff --git a/src/bootstrap/gerbil/runtime/mop~0.scm b/src/bootstrap/gerbil/runtime/mop~0.scm index 334530dfc..53cee43fd 100644 --- a/src/bootstrap/gerbil/runtime/mop~0.scm +++ b/src/bootstrap/gerbil/runtime/mop~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/mop::timestamp 1733870072) + (define gerbil/runtime/mop::timestamp 1734131745) (begin (define type-flag-opaque '1) (define type-flag-extensible '2) @@ -12,14 +12,14 @@ (define class-type-flag-metaclass '4096) (define class-type-flag-system '8192) (define t::t - (let ((_%flags100158%_ + (let ((_%flags100265%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100159%_ '((direct-slots:) (system: . #t))) - (_%slot-table100160%_ + (_%properties100266%_ '((direct-slots:) (system: . #t))) + (_%slot-table100267%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) @@ -27,17 +27,17 @@ '#f 't 't - _%flags100158%_ + _%flags100265%_ '#f '#() '() '#(#f) - _%slot-table100160%_ - _%properties100159%_ + _%slot-table100267%_ + _%properties100266%_ '#f '#f)))) (define class::t - (let* ((_%slots100134%_ + (let* ((_%slots100241%_ '(id name super flags @@ -48,122 +48,122 @@ properties constructor methods)) - (_%slot-vector100136%_ (list->vector (cons '#f _%slots100134%_))) - (_%slot-table100143%_ - (let ((_%slot-table100138%_ + (_%slot-vector100243%_ (list->vector (cons '#f _%slots100241%_))) + (_%slot-table100250%_ + (let ((_%slot-table100245%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101601 - (lambda (_%slot100140%_ _%field100141%_) + (let ((__tmp101708 + (lambda (_%slot100247%_ _%field100248%_) (let () (declare (not safe)) (symbolic-table-set! - _%slot-table100138%_ - _%slot100140%_ - _%field100141%_)) - (let ((__tmp101602 + _%slot-table100245%_ + _%slot100247%_ + _%field100248%_)) + (let ((__tmp101709 (let () (declare (not safe)) - (symbol->keyword _%slot100140%_)))) + (symbol->keyword _%slot100247%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table100138%_ - __tmp101602 - _%field100141%_)))) - (__tmp101599 - (let ((__tmp101600 + _%slot-table100245%_ + __tmp101709 + _%field100248%_)))) + (__tmp101706 + (let ((__tmp101707 (let () (declare (not safe)) - (##length _%slots100134%_)))) + (##length _%slots100241%_)))) (declare (not safe)) - (##iota __tmp101600 '1)))) + (##iota __tmp101707 '1)))) (declare (not safe)) - (##for-each __tmp101601 _%slots100134%_ __tmp101599)) - _%slot-table100138%_)) - (_%flags100145%_ + (##for-each __tmp101708 _%slots100241%_ __tmp101706)) + _%slot-table100245%_)) + (_%flags100252%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-concrete type-flag-id class-type-flag-struct))) - (_%fields100151%_ + (_%fields100258%_ (list->vector - (let ((__tmp101603 - (map (lambda (_%g100146100148%_) - (list _%g100146100148%_ '5 '#f)) - (drop _%slots100134%_ '5)))) + (let ((__tmp101710 + (map (lambda (_%g100253100255%_) + (list _%g100253100255%_ '5 '#f)) + (drop _%slots100241%_ '5)))) (declare (not safe)) - (##apply append __tmp101603)))) - (_%properties100153%_ + (##apply append __tmp101710)))) + (_%properties100260%_ (cons (cons 'direct-slots: (let () (declare (not safe)) - (__foldr1 cons '() _%slots100134%_))) + (__foldr1 cons '() _%slots100241%_))) (cons (cons 'struct: '#t) '()))) - (_%t100155%_ - (let ((__tmp101604 (cons t::t '()))) + (_%t100262%_ + (let ((__tmp101711 (cons t::t '()))) (declare (not safe)) (##structure '#f 'class 'class - _%flags100145%_ + _%flags100252%_ ##type-type - _%fields100151%_ - __tmp101604 - _%slot-vector100136%_ - _%slot-table100143%_ - _%properties100153%_ + _%fields100258%_ + __tmp101711 + _%slot-vector100243%_ + _%slot-table100250%_ + _%properties100260%_ '#f '#f)))) (let () (declare (not safe)) - (##structure-type-set! _%t100155%_ _%t100155%_)) - _%t100155%_)) + (##structure-type-set! _%t100262%_ _%t100262%_)) + _%t100262%_)) (let () (declare (not safe)) (##structure-type-set! t::t class::t)) (define object::t - (let ((_%flags100130%_ + (let ((_%flags100237%_ (let () (declare (not safe)) (##fxior type-flag-extensible type-flag-id class-type-flag-system))) - (_%properties100131%_ '((direct-slots:) (system: . #t))) - (_%slot-table100132%_ + (_%properties100238%_ '((direct-slots:) (system: . #t))) + (_%slot-table100239%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let ((__tmp101605 (cons t::t '()))) + (let ((__tmp101712 (cons t::t '()))) (declare (not safe)) (##structure class::t 'object 'object - _%flags100130%_ + _%flags100237%_ '#f '#() - __tmp101605 + __tmp101712 '#(#f) - _%slot-table100132%_ - _%properties100131%_ + _%slot-table100239%_ + _%properties100238%_ '#f '#f)))) (define class-type? - (lambda (_%obj100128%_) + (lambda (_%obj100235%_) (let () (declare (not safe)) - (##structure-instance-of? _%obj100128%_ 'class)))) + (##structure-instance-of? _%obj100235%_ 'class)))) (define class-type=? - (lambda (_%x100103%_ _%y100104%_) + (lambda (_%x100210%_ _%y100211%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%x100103%_ 'class)) - (let ((_%x100108%_ _%x100103%_)) + (##structure-instance-of? _%x100210%_ 'class)) + (let ((_%x100215%_ _%x100210%_)) (if (let () (declare (not safe)) - (##structure-instance-of? _%y100104%_ 'class)) - (let ((_%y100118%_ _%y100104%_)) - (__class-type=? _%x100108%_ _%y100118%_)) + (##structure-instance-of? _%y100211%_ 'class)) + (let ((_%y100225%_ _%y100211%_)) + (__class-type=? _%x100215%_ _%y100225%_)) (begin (raise-contract-violation-error '"contract violation" @@ -172,7 +172,7 @@ 'contract: 'class-type? 'value: - _%y100104%_) + _%y100211%_) '#!void))) (begin (raise-contract-violation-error @@ -182,22 +182,22 @@ 'contract: 'class-type? 'value: - _%x100103%_) + _%x100210%_) '#!void)))) (define __class-type=? - (lambda (_%x100082%_ _%y100083%_) - (let* ((_%x100086%_ _%x100082%_) (_%y100094%_ _%y100083%_)) + (lambda (_%x100189%_ _%y100190%_) + (let* ((_%x100193%_ _%x100189%_) (_%y100201%_ _%y100190%_)) (eq? (let () (declare (not safe)) - (##unchecked-structure-ref _%x100086%_ '1 '#f '#f)) + (##unchecked-structure-ref _%x100193%_ '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-ref _%y100094%_ '1 '#f '#f)))))) + (##unchecked-structure-ref _%y100201%_ '1 '#f '#f)))))) (define type-opaque? - (lambda (_%type100068%_) - (if (let () (declare (not safe)) (##type? _%type100068%_)) - (let ((_%type100072%_ _%type100068%_)) - (__type-opaque? _%type100072%_)) + (lambda (_%type100175%_) + (if (let () (declare (not safe)) (##type? _%type100175%_)) + (let ((_%type100179%_ _%type100175%_)) + (__type-opaque? _%type100179%_)) (begin (raise-contract-violation-error '"contract violation" @@ -206,25 +206,25 @@ 'contract: '##type? 'value: - _%type100068%_) + _%type100175%_) '#!void)))) (define __type-opaque? - (lambda (_%type100056%_) - (let* ((_%type100059%_ _%type100056%_) - (__tmp101606 - (let ((__tmp101607 + (lambda (_%type100163%_) + (let* ((_%type100166%_ _%type100163%_) + (__tmp101713 + (let ((__tmp101714 (let () (declare (not safe)) - (##type-flags _%type100059%_)))) + (##type-flags _%type100166%_)))) (declare (not safe)) - (##fxand __tmp101607 type-flag-opaque)))) + (##fxand __tmp101714 type-flag-opaque)))) (declare (not safe)) - (##fx= __tmp101606 type-flag-opaque)))) + (##fx= __tmp101713 type-flag-opaque)))) (define type-extensible? - (lambda (_%type100042%_) - (if (let () (declare (not safe)) (##type? _%type100042%_)) - (let ((_%type100046%_ _%type100042%_)) - (__type-extensible? _%type100046%_)) + (lambda (_%type100149%_) + (if (let () (declare (not safe)) (##type? _%type100149%_)) + (let ((_%type100153%_ _%type100149%_)) + (__type-extensible? _%type100153%_)) (begin (raise-contract-violation-error '"contract violation" @@ -233,27 +233,27 @@ 'contract: '##type? 'value: - _%type100042%_) + _%type100149%_) '#!void)))) (define __type-extensible? - (lambda (_%type100030%_) - (let* ((_%type100033%_ _%type100030%_) - (__tmp101608 - (let ((__tmp101609 + (lambda (_%type100137%_) + (let* ((_%type100140%_ _%type100137%_) + (__tmp101715 + (let ((__tmp101716 (let () (declare (not safe)) - (##type-flags _%type100033%_)))) + (##type-flags _%type100140%_)))) (declare (not safe)) - (##fxand __tmp101609 type-flag-extensible)))) + (##fxand __tmp101716 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101608 type-flag-extensible)))) + (##fx= __tmp101715 type-flag-extensible)))) (define class-type-final? - (lambda (_%type100016%_) + (lambda (_%type100123%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%type100016%_ 'class)) - (let ((_%type100020%_ _%type100016%_)) - (__class-type-final? _%type100020%_)) + (##structure-instance-of? _%type100123%_ 'class)) + (let ((_%type100127%_ _%type100123%_)) + (__class-type-final? _%type100127%_)) (begin (raise-contract-violation-error '"contract violation" @@ -262,27 +262,27 @@ 'contract: 'class-type? 'value: - _%type100016%_) + _%type100123%_) '#!void)))) (define __class-type-final? - (lambda (_%type100004%_) - (let* ((_%type100007%_ _%type100004%_) - (__tmp101610 - (let ((__tmp101611 + (lambda (_%type100111%_) + (let* ((_%type100114%_ _%type100111%_) + (__tmp101717 + (let ((__tmp101718 (let () (declare (not safe)) - (##type-flags _%type100007%_)))) + (##type-flags _%type100114%_)))) (declare (not safe)) - (##fxand __tmp101611 type-flag-extensible)))) + (##fxand __tmp101718 type-flag-extensible)))) (declare (not safe)) - (##fx= __tmp101610 '0)))) + (##fx= __tmp101717 '0)))) (define class-type-struct? - (lambda (_%klass99990%_) + (lambda (_%klass100097%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99990%_ 'class)) - (let ((_%klass99994%_ _%klass99990%_)) - (__class-type-struct? _%klass99994%_)) + (##structure-instance-of? _%klass100097%_ 'class)) + (let ((_%klass100101%_ _%klass100097%_)) + (__class-type-struct? _%klass100101%_)) (begin (raise-contract-violation-error '"contract violation" @@ -291,27 +291,27 @@ 'contract: 'class-type? 'value: - _%klass99990%_) + _%klass100097%_) '#!void)))) (define __class-type-struct? - (lambda (_%klass99978%_) - (let* ((_%klass99981%_ _%klass99978%_) - (__tmp101612 - (let ((__tmp101613 + (lambda (_%klass100085%_) + (let* ((_%klass100088%_ _%klass100085%_) + (__tmp101719 + (let ((__tmp101720 (let () (declare (not safe)) - (##type-flags _%klass99981%_)))) + (##type-flags _%klass100088%_)))) (declare (not safe)) - (##fxand __tmp101613 class-type-flag-struct)))) + (##fxand __tmp101720 class-type-flag-struct)))) (declare (not safe)) - (##fx= __tmp101612 class-type-flag-struct)))) + (##fx= __tmp101719 class-type-flag-struct)))) (define class-type-sealed? - (lambda (_%klass99964%_) + (lambda (_%klass100071%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99964%_ 'class)) - (let ((_%klass99968%_ _%klass99964%_)) - (__class-type-sealed? _%klass99968%_)) + (##structure-instance-of? _%klass100071%_ 'class)) + (let ((_%klass100075%_ _%klass100071%_)) + (__class-type-sealed? _%klass100075%_)) (begin (raise-contract-violation-error '"contract violation" @@ -320,27 +320,27 @@ 'contract: 'class-type? 'value: - _%klass99964%_) + _%klass100071%_) '#!void)))) (define __class-type-sealed? - (lambda (_%klass99952%_) - (let* ((_%klass99955%_ _%klass99952%_) - (__tmp101614 - (let ((__tmp101615 + (lambda (_%klass100059%_) + (let* ((_%klass100062%_ _%klass100059%_) + (__tmp101721 + (let ((__tmp101722 (let () (declare (not safe)) - (##type-flags _%klass99955%_)))) + (##type-flags _%klass100062%_)))) (declare (not safe)) - (##fxand __tmp101615 class-type-flag-sealed)))) + (##fxand __tmp101722 class-type-flag-sealed)))) (declare (not safe)) - (##fx= __tmp101614 class-type-flag-sealed)))) + (##fx= __tmp101721 class-type-flag-sealed)))) (define class-type-metaclass? - (lambda (_%klass99938%_) + (lambda (_%klass100045%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99938%_ 'class)) - (let ((_%klass99942%_ _%klass99938%_)) - (__class-type-metaclass? _%klass99942%_)) + (##structure-instance-of? _%klass100045%_ 'class)) + (let ((_%klass100049%_ _%klass100045%_)) + (__class-type-metaclass? _%klass100049%_)) (begin (raise-contract-violation-error '"contract violation" @@ -349,27 +349,27 @@ 'contract: 'class-type? 'value: - _%klass99938%_) + _%klass100045%_) '#!void)))) (define __class-type-metaclass? - (lambda (_%klass99926%_) - (let* ((_%klass99929%_ _%klass99926%_) - (__tmp101616 - (let ((__tmp101617 + (lambda (_%klass100033%_) + (let* ((_%klass100036%_ _%klass100033%_) + (__tmp101723 + (let ((__tmp101724 (let () (declare (not safe)) - (##type-flags _%klass99929%_)))) + (##type-flags _%klass100036%_)))) (declare (not safe)) - (##fxand __tmp101617 class-type-flag-metaclass)))) + (##fxand __tmp101724 class-type-flag-metaclass)))) (declare (not safe)) - (##fx= __tmp101616 class-type-flag-metaclass)))) + (##fx= __tmp101723 class-type-flag-metaclass)))) (define class-type-system? - (lambda (_%klass99912%_) + (lambda (_%klass100019%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99912%_ 'class)) - (let ((_%klass99916%_ _%klass99912%_)) - (__class-type-system? _%klass99916%_)) + (##structure-instance-of? _%klass100019%_ 'class)) + (let ((_%klass100023%_ _%klass100019%_)) + (__class-type-system? _%klass100023%_)) (begin (raise-contract-violation-error '"contract violation" @@ -378,577 +378,577 @@ 'contract: 'class-type? 'value: - _%klass99912%_) + _%klass100019%_) '#!void)))) (define __class-type-system? - (lambda (_%klass99900%_) - (let* ((_%klass99903%_ _%klass99900%_) - (__tmp101618 - (let ((__tmp101619 + (lambda (_%klass100007%_) + (let* ((_%klass100010%_ _%klass100007%_) + (__tmp101725 + (let ((__tmp101726 (let () (declare (not safe)) - (##type-flags _%klass99903%_)))) + (##type-flags _%klass100010%_)))) (declare (not safe)) - (##fxand __tmp101619 class-type-flag-system)))) + (##fxand __tmp101726 class-type-flag-system)))) (declare (not safe)) - (##fx= __tmp101618 class-type-flag-system)))) + (##fx= __tmp101725 class-type-flag-system)))) (define make-class-type-descriptor - (lambda (_%type-id99782%_ - _%type-name99783%_ - _%type-super99784%_ - _%precedence-list99785%_ - _%slot-vector99786%_ - _%properties99787%_ - _%constructor99788%_ - _%slot-table99789%_ - _%methods99790%_) - (letrec ((_%make-props!99793%_ - (lambda (_%key99869%_) - (letrec* ((_%ht99871%_ + (lambda (_%type-id99889%_ + _%type-name99890%_ + _%type-super99891%_ + _%precedence-list99892%_ + _%slot-vector99893%_ + _%properties99894%_ + _%constructor99895%_ + _%slot-table99896%_ + _%methods99897%_) + (letrec ((_%make-props!99900%_ + (lambda (_%key99976%_) + (letrec* ((_%ht99978%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%put-slots!99872%_ - (lambda (_%ht99893%_ _%slots99894%_) + (_%put-slots!99979%_ + (lambda (_%ht100000%_ _%slots100001%_) (for-each - (lambda (_%g9989599897%_) + (lambda (_%g100002100004%_) (let () (declare (not safe)) (symbolic-table-set! - _%ht99893%_ - _%g9989599897%_ + _%ht100000%_ + _%g100002100004%_ '#t))) - _%slots99894%_))) - (_%put-alist!99873%_ - (lambda (_%ht99882%_ - _%key99883%_ - _%alist99884%_) - (let ((_%$e99886%_ + _%slots100001%_))) + (_%put-alist!99980%_ + (lambda (_%ht99989%_ + _%key99990%_ + _%alist99991%_) + (let ((_%$e99993%_ (let () (declare (not safe)) (agetq__0 - _%key99883%_ - _%alist99884%_)))) - (if _%$e99886%_ - ((lambda (_%g9988899890%_) - (_%put-slots!99872%_ - _%ht99882%_ - _%g9988899890%_)) - _%$e99886%_) + _%key99990%_ + _%alist99991%_)))) + (if _%$e99993%_ + ((lambda (_%g9999599997%_) + (_%put-slots!99979%_ + _%ht99989%_ + _%g9999599997%_)) + _%$e99993%_) '#!void))))) - (_%put-alist!99873%_ - _%ht99871%_ - _%key99869%_ - _%properties99787%_) + (_%put-alist!99980%_ + _%ht99978%_ + _%key99976%_ + _%properties99894%_) (for-each - (lambda (_%mixin99875%_) - (let ((_%alist99877%_ + (lambda (_%mixin99982%_) + (let ((_%alist99984%_ (##structure-ref - _%mixin99875%_ + _%mixin99982%_ '9 class::t '#f))) (if (or (let () (declare (not safe)) - (agetq__0 'transparent: _%alist99877%_)) + (agetq__0 'transparent: _%alist99984%_)) (eq? '#t (let () (declare (not safe)) (agetq__0 - _%key99869%_ - _%alist99877%_)))) - (_%put-slots!99872%_ - _%ht99871%_ - (class-type-slot-list _%mixin99875%_)) - (_%put-alist!99873%_ - _%ht99871%_ - _%key99869%_ - _%alist99877%_)))) - _%precedence-list99785%_) - _%ht99871%_)))) - (let* ((_%transparent?99795%_ + _%key99976%_ + _%alist99984%_)))) + (_%put-slots!99979%_ + _%ht99978%_ + (class-type-slot-list _%mixin99982%_)) + (_%put-alist!99980%_ + _%ht99978%_ + _%key99976%_ + _%alist99984%_)))) + _%precedence-list99892%_) + _%ht99978%_)))) + (let* ((_%transparent?99902%_ (let () (declare (not safe)) - (agetq__0 'transparent: _%properties99787%_))) - (_%all-slots-printable?99800%_ - (let ((_%$e99797%_ _%transparent?99795%_)) - (if _%$e99797%_ - _%$e99797%_ + (agetq__0 'transparent: _%properties99894%_))) + (_%all-slots-printable?99907%_ + (let ((_%$e99904%_ _%transparent?99902%_)) + (if _%$e99904%_ + _%$e99904%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'print: _%properties99787%_)))))) - (_%printable99802%_ - (if (not _%all-slots-printable?99800%_) - (_%make-props!99793%_ 'print:) + (agetq__0 'print: _%properties99894%_)))))) + (_%printable99909%_ + (if (not _%all-slots-printable?99907%_) + (_%make-props!99900%_ 'print:) '#f)) - (_%all-slots-equalable?99807%_ - (let ((_%$e99804%_ _%transparent?99795%_)) - (if _%$e99804%_ - _%$e99804%_ + (_%all-slots-equalable?99914%_ + (let ((_%$e99911%_ _%transparent?99902%_)) + (if _%$e99911%_ + _%$e99911%_ (eq? '#t (let () (declare (not safe)) - (agetq__0 'equal: _%properties99787%_)))))) - (_%equalable99809%_ - (if (not _%all-slots-equalable?99807%_) - (_%make-props!99793%_ 'equal:) + (agetq__0 'equal: _%properties99894%_)))))) + (_%equalable99916%_ + (if (not _%all-slots-equalable?99914%_) + (_%make-props!99900%_ 'equal:) '#f)) - (_%first-new-field99811%_ + (_%first-new-field99918%_ (if (let () (declare (not safe)) - (##structure-instance-of? _%type-super99784%_ 'class)) - (let ((__tmp101620 + (##structure-instance-of? _%type-super99891%_ 'class)) + (let ((__tmp101727 (let () (declare (not safe)) (##unchecked-structure-ref - _%type-super99784%_ + _%type-super99891%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101620)) + (##vector-length __tmp101727)) '1)) - (_%field-info-length99813%_ - (let ((__tmp101621 - (let ((__tmp101622 + (_%field-info-length99920%_ + (let ((__tmp101728 + (let ((__tmp101729 (let () (declare (not safe)) - (##vector-length _%slot-vector99786%_)))) + (##vector-length _%slot-vector99893%_)))) (declare (not safe)) - (##fx- __tmp101622 _%first-new-field99811%_)))) + (##fx- __tmp101729 _%first-new-field99918%_)))) (declare (not safe)) - (##fx* '3 __tmp101621))) - (_%field-info99815%_ + (##fx* '3 __tmp101728))) + (_%field-info99922%_ (let () (declare (not safe)) - (##make-vector _%field-info-length99813%_ '#f))) - (_%struct?99817%_ + (##make-vector _%field-info-length99920%_ '#f))) + (_%struct?99924%_ (let () (declare (not safe)) - (agetq__0 'struct: _%properties99787%_))) - (_%final?99819%_ + (agetq__0 'struct: _%properties99894%_))) + (_%final?99926%_ (let () (declare (not safe)) - (agetq__0 'final: _%properties99787%_))) - (_%metaclass99827%_ - (let ((_%metaclass9982099822%_ + (agetq__0 'final: _%properties99894%_))) + (_%metaclass99934%_ + (let ((_%metaclass9992799929%_ (let () (declare (not safe)) - (agetq__0 'metaclass: _%properties99787%_)))) - (if _%metaclass9982099822%_ - (let ((_%metaclass99825%_ _%metaclass9982099822%_)) + (agetq__0 'metaclass: _%properties99894%_)))) + (if _%metaclass9992799929%_ + (let ((_%metaclass99932%_ _%metaclass9992799929%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%metaclass99825%_ + _%metaclass99932%_ 'class)) '#!void (error '"metaclass is not a class type" 'class: - _%type-id99782%_ + _%type-id99889%_ 'metaclass: - _%metaclass99825%_)) - _%metaclass99825%_) + _%metaclass99932%_)) + _%metaclass99932%_) '#f))) - (_%system?99829%_ + (_%system?99936%_ (let () (declare (not safe)) - (agetq__0 'system: _%properties99787%_))) - (_%opaque?99837%_ - (if (or _%transparent?99795%_ + (agetq__0 'system: _%properties99894%_))) + (_%opaque?99944%_ + (if (or _%transparent?99902%_ (let () (declare (not safe)) - (agetq__0 'equal: _%properties99787%_))) + (agetq__0 'equal: _%properties99894%_))) '#f - (let ((_%$e99834%_ (not _%type-super99784%_))) - (if _%$e99834%_ - _%$e99834%_ - (__type-opaque? _%type-super99784%_))))) - (_%type-flags99839%_ - (let ((__tmp101627 - (if _%final?99819%_ '0 type-flag-extensible)) - (__tmp101626 (if _%opaque?99837%_ type-flag-opaque '0)) - (__tmp101625 - (if _%struct?99817%_ class-type-flag-struct '0)) - (__tmp101624 - (if _%metaclass99827%_ class-type-flag-metaclass '0)) - (__tmp101623 - (if _%system?99829%_ class-type-flag-system '0))) + (let ((_%$e99941%_ (not _%type-super99891%_))) + (if _%$e99941%_ + _%$e99941%_ + (__type-opaque? _%type-super99891%_))))) + (_%type-flags99946%_ + (let ((__tmp101734 + (if _%final?99926%_ '0 type-flag-extensible)) + (__tmp101733 (if _%opaque?99944%_ type-flag-opaque '0)) + (__tmp101732 + (if _%struct?99924%_ class-type-flag-struct '0)) + (__tmp101731 + (if _%metaclass99934%_ class-type-flag-metaclass '0)) + (__tmp101730 + (if _%system?99936%_ class-type-flag-system '0))) (declare (not safe)) (##fxior type-flag-id type-flag-concrete - __tmp101627 - __tmp101626 - __tmp101625 - __tmp101624 - __tmp101623))) - (_%precedence-list99847%_ - (let ((_%$e99841%_ (memq t::t _%precedence-list99785%_))) - (if _%$e99841%_ - ((lambda (_%tail99844%_) - (if (null? (cdr _%tail99844%_)) - _%precedence-list99785%_ + __tmp101734 + __tmp101733 + __tmp101732 + __tmp101731 + __tmp101730))) + (_%precedence-list99954%_ + (let ((_%$e99948%_ (memq t::t _%precedence-list99892%_))) + (if _%$e99948%_ + ((lambda (_%tail99951%_) + (if (null? (cdr _%tail99951%_)) + _%precedence-list99892%_ (error '"BUG: t::t is not last in the precedence list" 'precedence-list: - _%precedence-list99785%_))) - _%$e99841%_) - (let ((__tmp101628 (cons t::t '()))) + _%precedence-list99892%_))) + _%$e99948%_) + (let ((__tmp101735 (cons t::t '()))) (declare (not safe)) - (##append _%precedence-list99785%_ __tmp101628)))))) - (let _%loop99850%_ ((_%i99852%_ _%first-new-field99811%_) - (_%j99853%_ '0)) + (##append _%precedence-list99892%_ __tmp101735)))))) + (let _%loop99957%_ ((_%i99959%_ _%first-new-field99918%_) + (_%j99960%_ '0)) (if (let () (declare (not safe)) - (##fx< _%j99853%_ _%field-info-length99813%_)) - (let* ((_%slot99855%_ + (##fx< _%j99960%_ _%field-info-length99920%_)) + (let* ((_%slot99962%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector99786%_ _%i99852%_))) - (_%flags99863%_ - (if _%transparent?99795%_ + (##vector-ref _%slot-vector99893%_ _%i99959%_))) + (_%flags99970%_ + (if _%transparent?99902%_ '0 - (let ((__tmp101630 - (if (or _%all-slots-printable?99800%_ + (let ((__tmp101737 + (if (or _%all-slots-printable?99907%_ (let () (declare (not safe)) (symbolic-table-ref - _%printable99802%_ - _%slot99855%_ + _%printable99909%_ + _%slot99962%_ '#f))) '0 '1)) - (__tmp101629 - (if (or _%all-slots-equalable?99807%_ + (__tmp101736 + (if (or _%all-slots-equalable?99914%_ (let () (declare (not safe)) (symbolic-table-ref - _%equalable99809%_ - _%slot99855%_ + _%equalable99916%_ + _%slot99962%_ '#f))) '0 '4))) (declare (not safe)) - (##fxior __tmp101630 __tmp101629))))) - (vector-set! _%field-info99815%_ _%j99853%_ _%slot99855%_) + (##fxior __tmp101737 __tmp101736))))) + (vector-set! _%field-info99922%_ _%j99960%_ _%slot99962%_) (vector-set! - _%field-info99815%_ - (let () (declare (not safe)) (##fx+ _%j99853%_ '1)) - _%flags99863%_) - (_%loop99850%_ - (let () (declare (not safe)) (##fx+ _%i99852%_ '1)) - (let () (declare (not safe)) (##fx+ _%j99853%_ '3)))) + _%field-info99922%_ + (let () (declare (not safe)) (##fx+ _%j99960%_ '1)) + _%flags99970%_) + (_%loop99957%_ + (let () (declare (not safe)) (##fx+ _%i99959%_ '1)) + (let () (declare (not safe)) (##fx+ _%j99960%_ '3)))) '#!void)) - (if _%metaclass99827%_ - (let ((_%val99866%_ + (if _%metaclass99934%_ + (let ((_%val99973%_ (make-instance - _%metaclass99827%_ - _%type-id99782%_ - _%type-name99783%_ - _%type-flags99839%_ - _%type-super99784%_ - _%field-info99815%_ - _%precedence-list99847%_ - _%slot-vector99786%_ - _%slot-table99789%_ - _%properties99787%_ - _%constructor99788%_ - _%methods99790%_))) + _%metaclass99934%_ + _%type-id99889%_ + _%type-name99890%_ + _%type-flags99946%_ + _%type-super99891%_ + _%field-info99922%_ + _%precedence-list99954%_ + _%slot-vector99893%_ + _%slot-table99896%_ + _%properties99894%_ + _%constructor99895%_ + _%methods99897%_))) (if (let () (declare (not safe)) - (##structure-instance-of? _%val99866%_ 'class)) - _%val99866%_ - (error '"bad cast" class::t _%val99866%_))) + (##structure-instance-of? _%val99973%_ 'class)) + _%val99973%_ + (error '"bad cast" class::t _%val99973%_))) (let () (declare (not safe)) (##structure class::t - _%type-id99782%_ - _%type-name99783%_ - _%type-flags99839%_ - _%type-super99784%_ - _%field-info99815%_ - _%precedence-list99847%_ - _%slot-vector99786%_ - _%slot-table99789%_ - _%properties99787%_ - _%constructor99788%_ - _%methods99790%_))))))) + _%type-id99889%_ + _%type-name99890%_ + _%type-flags99946%_ + _%type-super99891%_ + _%field-info99922%_ + _%precedence-list99954%_ + _%slot-vector99893%_ + _%slot-table99896%_ + _%properties99894%_ + _%constructor99895%_ + _%methods99897%_))))))) (define class-type-id - (lambda (_%klass99780%_) - (##structure-ref _%klass99780%_ '1 class::t 'id))) + (lambda (_%klass99887%_) + (##structure-ref _%klass99887%_ '1 class::t 'id))) (define &class-type-id - (lambda (_%klass99778%_) + (lambda (_%klass99885%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99778%_ '1 class::t 'id)))) + (##unchecked-structure-ref _%klass99885%_ '1 class::t 'id)))) (define class-type-id-set! - (lambda (_%klass99775%_ _%val99776%_) - (##structure-set! _%klass99775%_ _%val99776%_ '1 class::t 'id))) + (lambda (_%klass99882%_ _%val99883%_) + (##structure-set! _%klass99882%_ _%val99883%_ '1 class::t 'id))) (define &class-type-id-set! - (lambda (_%klass99770%_ _%val99772%_) + (lambda (_%klass99877%_ _%val99879%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99770%_ - _%val99772%_ + _%klass99877%_ + _%val99879%_ '1 class::t 'id)))) (define class-type-name - (lambda (_%klass99768%_) - (##structure-ref _%klass99768%_ '2 class::t 'name))) + (lambda (_%klass99875%_) + (##structure-ref _%klass99875%_ '2 class::t 'name))) (define &class-type-name - (lambda (_%klass99766%_) + (lambda (_%klass99873%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99766%_ '2 class::t 'name)))) + (##unchecked-structure-ref _%klass99873%_ '2 class::t 'name)))) (define class-type-name-set! - (lambda (_%klass99763%_ _%val99764%_) - (##structure-set! _%klass99763%_ _%val99764%_ '2 class::t 'name))) + (lambda (_%klass99870%_ _%val99871%_) + (##structure-set! _%klass99870%_ _%val99871%_ '2 class::t 'name))) (define &class-type-name-set! - (lambda (_%klass99758%_ _%val99760%_) + (lambda (_%klass99865%_ _%val99867%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99758%_ - _%val99760%_ + _%klass99865%_ + _%val99867%_ '2 class::t 'name)))) (define class-type-flags - (lambda (_%klass99756%_) - (##structure-ref _%klass99756%_ '3 class::t 'flags))) + (lambda (_%klass99863%_) + (##structure-ref _%klass99863%_ '3 class::t 'flags))) (define &class-type-flags - (lambda (_%klass99754%_) + (lambda (_%klass99861%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99754%_ '3 class::t 'flags)))) + (##unchecked-structure-ref _%klass99861%_ '3 class::t 'flags)))) (define class-type-flags-set! - (lambda (_%klass99751%_ _%val99752%_) - (##structure-set! _%klass99751%_ _%val99752%_ '3 class::t 'flags))) + (lambda (_%klass99858%_ _%val99859%_) + (##structure-set! _%klass99858%_ _%val99859%_ '3 class::t 'flags))) (define &class-type-flags-set! - (lambda (_%klass99746%_ _%val99748%_) + (lambda (_%klass99853%_ _%val99855%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99746%_ - _%val99748%_ + _%klass99853%_ + _%val99855%_ '3 class::t 'flags)))) (define class-type-super - (lambda (_%klass99744%_) - (##structure-ref _%klass99744%_ '4 class::t 'super))) + (lambda (_%klass99851%_) + (##structure-ref _%klass99851%_ '4 class::t 'super))) (define &class-type-super - (lambda (_%klass99742%_) + (lambda (_%klass99849%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99742%_ '4 class::t 'super)))) + (##unchecked-structure-ref _%klass99849%_ '4 class::t 'super)))) (define class-type-super-set! - (lambda (_%klass99739%_ _%val99740%_) - (##structure-set! _%klass99739%_ _%val99740%_ '4 class::t 'super))) + (lambda (_%klass99846%_ _%val99847%_) + (##structure-set! _%klass99846%_ _%val99847%_ '4 class::t 'super))) (define &class-type-super-set! - (lambda (_%klass99734%_ _%val99736%_) + (lambda (_%klass99841%_ _%val99843%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99734%_ - _%val99736%_ + _%klass99841%_ + _%val99843%_ '4 class::t 'super)))) (define class-type-fields - (lambda (_%klass99732%_) - (##structure-ref _%klass99732%_ '5 class::t 'fields))) + (lambda (_%klass99839%_) + (##structure-ref _%klass99839%_ '5 class::t 'fields))) (define &class-type-fields - (lambda (_%klass99730%_) + (lambda (_%klass99837%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99730%_ '5 class::t 'fields)))) + (##unchecked-structure-ref _%klass99837%_ '5 class::t 'fields)))) (define class-type-fields-set! - (lambda (_%klass99727%_ _%val99728%_) - (##structure-set! _%klass99727%_ _%val99728%_ '5 class::t 'fields))) + (lambda (_%klass99834%_ _%val99835%_) + (##structure-set! _%klass99834%_ _%val99835%_ '5 class::t 'fields))) (define &class-type-fields-set! - (lambda (_%klass99722%_ _%val99724%_) + (lambda (_%klass99829%_ _%val99831%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99722%_ - _%val99724%_ + _%klass99829%_ + _%val99831%_ '5 class::t 'fields)))) (define class-type-precedence-list - (lambda (_%klass99720%_) - (##structure-ref _%klass99720%_ '6 class::t 'precedence-list))) + (lambda (_%klass99827%_) + (##structure-ref _%klass99827%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list - (lambda (_%klass99718%_) + (lambda (_%klass99825%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99718%_ + _%klass99825%_ '6 class::t 'precedence-list)))) (define class-type-precedence-list-set! - (lambda (_%klass99715%_ _%val99716%_) + (lambda (_%klass99822%_ _%val99823%_) (##structure-set! - _%klass99715%_ - _%val99716%_ + _%klass99822%_ + _%val99823%_ '6 class::t 'precedence-list))) (define &class-type-precedence-list-set! - (lambda (_%klass99710%_ _%val99712%_) + (lambda (_%klass99817%_ _%val99819%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99710%_ - _%val99712%_ + _%klass99817%_ + _%val99819%_ '6 class::t 'precedence-list)))) (define class-type-slot-vector - (lambda (_%klass99708%_) - (##structure-ref _%klass99708%_ '7 class::t 'slot-vector))) + (lambda (_%klass99815%_) + (##structure-ref _%klass99815%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector - (lambda (_%klass99706%_) + (lambda (_%klass99813%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99706%_ + _%klass99813%_ '7 class::t 'slot-vector)))) (define class-type-slot-vector-set! - (lambda (_%klass99703%_ _%val99704%_) + (lambda (_%klass99810%_ _%val99811%_) (##structure-set! - _%klass99703%_ - _%val99704%_ + _%klass99810%_ + _%val99811%_ '7 class::t 'slot-vector))) (define &class-type-slot-vector-set! - (lambda (_%klass99698%_ _%val99700%_) + (lambda (_%klass99805%_ _%val99807%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99698%_ - _%val99700%_ + _%klass99805%_ + _%val99807%_ '7 class::t 'slot-vector)))) (define class-type-slot-table - (lambda (_%klass99696%_) - (##structure-ref _%klass99696%_ '8 class::t 'slot-table))) + (lambda (_%klass99803%_) + (##structure-ref _%klass99803%_ '8 class::t 'slot-table))) (define &class-type-slot-table - (lambda (_%klass99694%_) + (lambda (_%klass99801%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99694%_ '8 class::t 'slot-table)))) + (##unchecked-structure-ref _%klass99801%_ '8 class::t 'slot-table)))) (define class-type-slot-table-set! - (lambda (_%klass99691%_ _%val99692%_) + (lambda (_%klass99798%_ _%val99799%_) (##structure-set! - _%klass99691%_ - _%val99692%_ + _%klass99798%_ + _%val99799%_ '8 class::t 'slot-table))) (define &class-type-slot-table-set! - (lambda (_%klass99686%_ _%val99688%_) + (lambda (_%klass99793%_ _%val99795%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99686%_ - _%val99688%_ + _%klass99793%_ + _%val99795%_ '8 class::t 'slot-table)))) (define class-type-properties - (lambda (_%klass99684%_) - (##structure-ref _%klass99684%_ '9 class::t 'properties))) + (lambda (_%klass99791%_) + (##structure-ref _%klass99791%_ '9 class::t 'properties))) (define &class-type-properties - (lambda (_%klass99682%_) + (lambda (_%klass99789%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99682%_ '9 class::t 'properties)))) + (##unchecked-structure-ref _%klass99789%_ '9 class::t 'properties)))) (define class-type-properties-set! - (lambda (_%klass99679%_ _%val99680%_) + (lambda (_%klass99786%_ _%val99787%_) (##structure-set! - _%klass99679%_ - _%val99680%_ + _%klass99786%_ + _%val99787%_ '9 class::t 'properties))) (define &class-type-properties-set! - (lambda (_%klass99674%_ _%val99676%_) + (lambda (_%klass99781%_ _%val99783%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99674%_ - _%val99676%_ + _%klass99781%_ + _%val99783%_ '9 class::t 'properties)))) (define class-type-constructor - (lambda (_%klass99672%_) - (##structure-ref _%klass99672%_ '10 class::t 'constructor))) + (lambda (_%klass99779%_) + (##structure-ref _%klass99779%_ '10 class::t 'constructor))) (define &class-type-constructor - (lambda (_%klass99670%_) + (lambda (_%klass99777%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99670%_ + _%klass99777%_ '10 class::t 'constructor)))) (define class-type-constructor-set! - (lambda (_%klass99667%_ _%val99668%_) + (lambda (_%klass99774%_ _%val99775%_) (##structure-set! - _%klass99667%_ - _%val99668%_ + _%klass99774%_ + _%val99775%_ '10 class::t 'constructor))) (define &class-type-constructor-set! - (lambda (_%klass99662%_ _%val99664%_) + (lambda (_%klass99769%_ _%val99771%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99662%_ - _%val99664%_ + _%klass99769%_ + _%val99771%_ '10 class::t 'constructor)))) (define class-type-methods - (lambda (_%klass99660%_) - (##structure-ref _%klass99660%_ '11 class::t 'methods))) + (lambda (_%klass99767%_) + (##structure-ref _%klass99767%_ '11 class::t 'methods))) (define &class-type-methods - (lambda (_%klass99658%_) + (lambda (_%klass99765%_) (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99658%_ '11 class::t 'methods)))) + (##unchecked-structure-ref _%klass99765%_ '11 class::t 'methods)))) (define class-type-methods-set! - (lambda (_%klass99655%_ _%val99656%_) - (##structure-set! _%klass99655%_ _%val99656%_ '11 class::t 'methods))) + (lambda (_%klass99762%_ _%val99763%_) + (##structure-set! _%klass99762%_ _%val99763%_ '11 class::t 'methods))) (define &class-type-methods-set! - (lambda (_%klass99650%_ _%val99652%_) + (lambda (_%klass99757%_ _%val99759%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass99650%_ - _%val99652%_ + _%klass99757%_ + _%val99759%_ '11 class::t 'methods)))) (define class-type-slot-list - (lambda (_%klass99636%_) + (lambda (_%klass99743%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99636%_ 'class)) - (let ((_%klass99640%_ _%klass99636%_)) - (__class-type-slot-list _%klass99640%_)) + (##structure-instance-of? _%klass99743%_ 'class)) + (let ((_%klass99747%_ _%klass99743%_)) + (__class-type-slot-list _%klass99747%_)) (begin (raise-contract-violation-error '"contract violation" @@ -957,22 +957,22 @@ 'contract: 'class-type? 'value: - _%klass99636%_) + _%klass99743%_) '#!void)))) (define __class-type-slot-list - (lambda (_%klass99624%_) - (let ((_%klass99627%_ _%klass99624%_)) + (lambda (_%klass99731%_) + (let ((_%klass99734%_ _%klass99731%_)) (cdr (vector->list (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99627%_ '7 '#f '#f))))))) + (##unchecked-structure-ref _%klass99734%_ '7 '#f '#f))))))) (define class-type-field-count - (lambda (_%klass99610%_) + (lambda (_%klass99717%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99610%_ 'class)) - (let ((_%klass99614%_ _%klass99610%_)) - (__class-type-field-count _%klass99614%_)) + (##structure-instance-of? _%klass99717%_ 'class)) + (let ((_%klass99721%_ _%klass99717%_)) + (__class-type-field-count _%klass99721%_)) (begin (raise-contract-violation-error '"contract violation" @@ -981,31 +981,31 @@ 'contract: 'class-type? 'value: - _%klass99610%_) + _%klass99717%_) '#!void)))) (define __class-type-field-count - (lambda (_%klass99598%_) - (let* ((_%klass99601%_ _%klass99598%_) - (__tmp101631 - (let ((__tmp101632 + (lambda (_%klass99705%_) + (let* ((_%klass99708%_ _%klass99705%_) + (__tmp101738 + (let ((__tmp101739 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass99601%_ + _%klass99708%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101632)))) + (##vector-length __tmp101739)))) (declare (not safe)) - (##fx- __tmp101631 '1)))) + (##fx- __tmp101738 '1)))) (define class-type-seal! - (lambda (_%klass99584%_) + (lambda (_%klass99691%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99584%_ 'class)) - (let ((_%klass99588%_ _%klass99584%_)) - (__class-type-seal! _%klass99588%_)) + (##structure-instance-of? _%klass99691%_ 'class)) + (let ((_%klass99695%_ _%klass99691%_)) + (__class-type-seal! _%klass99695%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1014,42 +1014,42 @@ 'contract: 'class-type? 'value: - _%klass99584%_) + _%klass99691%_) '#!void)))) (define __class-type-seal! - (lambda (_%klass99572%_) - (let ((_%klass99575%_ _%klass99572%_)) - (let ((__tmp101633 - (let ((__tmp101634 + (lambda (_%klass99679%_) + (let ((_%klass99682%_ _%klass99679%_)) + (let ((__tmp101740 + (let ((__tmp101741 (let () (declare (not safe)) - (##type-flags _%klass99575%_)))) + (##type-flags _%klass99682%_)))) (declare (not safe)) - (##fxior class-type-flag-sealed __tmp101634)))) + (##fxior class-type-flag-sealed __tmp101741)))) (declare (not safe)) (##unchecked-structure-set! - _%klass99575%_ - __tmp101633 + _%klass99682%_ + __tmp101740 '3 class::t class-type-seal!)) '#!void))) (define substruct? - (lambda (_%maybe-sub-struct99547%_ _%maybe-super-struct99548%_) + (lambda (_%maybe-sub-struct99654%_ _%maybe-super-struct99655%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-struct99547%_ 'class)) - (let ((_%maybe-sub-struct99552%_ _%maybe-sub-struct99547%_)) + (##structure-instance-of? _%maybe-sub-struct99654%_ 'class)) + (let ((_%maybe-sub-struct99659%_ _%maybe-sub-struct99654%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-struct99548%_ + _%maybe-super-struct99655%_ 'class)) - (let ((_%maybe-super-struct99562%_ - _%maybe-super-struct99548%_)) + (let ((_%maybe-super-struct99669%_ + _%maybe-super-struct99655%_)) (__substruct? - _%maybe-sub-struct99552%_ - _%maybe-super-struct99562%_)) + _%maybe-sub-struct99659%_ + _%maybe-super-struct99669%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1058,7 +1058,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-struct99548%_) + _%maybe-super-struct99655%_) '#!void))) (begin (raise-contract-violation-error @@ -1068,288 +1068,288 @@ 'contract: 'class-type? 'value: - _%maybe-sub-struct99547%_) + _%maybe-sub-struct99654%_) '#!void)))) (define __substruct? - (lambda (_%maybe-sub-struct99516%_ _%maybe-super-struct99517%_) - (let* ((_%maybe-sub-struct99520%_ _%maybe-sub-struct99516%_) - (_%maybe-super-struct99528%_ _%maybe-super-struct99517%_) - (_%maybe-super-struct-id99537%_ + (lambda (_%maybe-sub-struct99623%_ _%maybe-super-struct99624%_) + (let* ((_%maybe-sub-struct99627%_ _%maybe-sub-struct99623%_) + (_%maybe-super-struct99635%_ _%maybe-super-struct99624%_) + (_%maybe-super-struct-id99644%_ (let () (declare (not safe)) - (##type-id _%maybe-super-struct99528%_)))) - (let _%lp99539%_ ((_%super-struct99541%_ _%maybe-sub-struct99520%_)) - (if (not _%super-struct99541%_) + (##type-id _%maybe-super-struct99635%_)))) + (let _%lp99646%_ ((_%super-struct99648%_ _%maybe-sub-struct99627%_)) + (if (not _%super-struct99648%_) '#f - (if (eq? _%maybe-super-struct-id99537%_ + (if (eq? _%maybe-super-struct-id99644%_ (let () (declare (not safe)) - (##type-id _%super-struct99541%_))) + (##type-id _%super-struct99648%_))) '#t - (_%lp99539%_ + (_%lp99646%_ (let () (declare (not safe)) - (##type-super _%super-struct99541%_))))))))) + (##type-super _%super-struct99648%_))))))))) (define base-struct/1 - (lambda (_%klass99511%_) + (lambda (_%klass99618%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99511%_ 'class)) - (if (__class-type-struct? _%klass99511%_) - _%klass99511%_ - (let () (declare (not safe)) (##type-super _%klass99511%_))) - (if (not _%klass99511%_) + (##structure-instance-of? _%klass99618%_ 'class)) + (if (__class-type-struct? _%klass99618%_) + _%klass99618%_ + (let () (declare (not safe)) (##type-super _%klass99618%_))) + (if (not _%klass99618%_) '#f - (error '"not a class or false" _%klass99511%_))))) + (error '"not a class or false" _%klass99618%_))))) (define base-struct/2 - (lambda (_%klass199496%_ _%klass299497%_) - (let ((_%s199499%_ (base-struct/1 _%klass199496%_)) - (_%s299500%_ (base-struct/1 _%klass299497%_))) - (if (or (not _%s199499%_) - (and _%s299500%_ (substruct? _%s199499%_ _%s299500%_))) - _%s299500%_ - (if (or (not _%s299500%_) - (and _%s199499%_ (substruct? _%s299500%_ _%s199499%_))) - _%s199499%_ + (lambda (_%klass199603%_ _%klass299604%_) + (let ((_%s199606%_ (base-struct/1 _%klass199603%_)) + (_%s299607%_ (base-struct/1 _%klass299604%_))) + (if (or (not _%s199606%_) + (and _%s299607%_ (substruct? _%s199606%_ _%s299607%_))) + _%s299607%_ + (if (or (not _%s299607%_) + (and _%s199606%_ (substruct? _%s299607%_ _%s199606%_))) + _%s199606%_ (error '"bad mixin: incompatible struct bases" - _%klass199496%_ - _%klass299497%_ - _%s199499%_ - _%s299500%_)))))) + _%klass199603%_ + _%klass299604%_ + _%s199606%_ + _%s299607%_)))))) (define base-struct/list - (lambda (_%all-supers99380%_) - (let* ((_%all-supers9938199406%_ _%all-supers99380%_) - (_%E9938699410%_ + (lambda (_%all-supers99487%_) + (let* ((_%all-supers9948899513%_ _%all-supers99487%_) + (_%E9949399517%_ (lambda () (error '"No clause matching" - _%all-supers9938199406%_ + _%all-supers9948899513%_ '([]) '([x]) '([x y]) '([x y ...])) '#!void))) - (let ((_%K9940499493%_ (lambda () '#f)) - (_%K9940199479%_ - (lambda (_%x99477%_) (base-struct/1 _%x99477%_))) - (_%K9939699456%_ - (lambda (_%y99453%_ _%x99454%_) - (base-struct/2 _%x99454%_ _%y99453%_))) - (_%K9938799417%_ - (lambda (_%y99414%_ _%x99415%_) + (let ((_%K9951199600%_ (lambda () '#f)) + (_%K9950899586%_ + (lambda (_%x99584%_) (base-struct/1 _%x99584%_))) + (_%K9950399563%_ + (lambda (_%y99560%_ _%x99561%_) + (base-struct/2 _%x99561%_ _%y99560%_))) + (_%K9949499524%_ + (lambda (_%y99521%_ _%x99522%_) (let () (declare (not safe)) - (__foldr1 base-struct/2 _%x99415%_ _%y99414%_))))) - (let* ((_%__match101593101594%_ - (lambda (_%hd9938899420%_ _%tl9938999422%_) - (let ((_%x99425%_ _%hd9938899420%_)) - (letrec ((_%splice-rest9939199427%_ - (lambda (_%rest9939599434%_ _%y99436%_) - (if (null? _%rest9939599434%_) - (_%K9938799417%_ _%y99436%_ _%x99425%_) - (_%E9938699410%_)))) - (_%splice-try9939399429%_ - (lambda (_%hd9939499438%_ - _%rest9939599440%_ - _%y9939099441%_) - (let ((_%y99444%_ _%hd9939499438%_)) - (_%splice-loop9939299431%_ + (__foldr1 base-struct/2 _%x99522%_ _%y99521%_))))) + (let* ((_%__match101700101701%_ + (lambda (_%hd9949599527%_ _%tl9949699529%_) + (let ((_%x99532%_ _%hd9949599527%_)) + (letrec ((_%splice-rest9949899534%_ + (lambda (_%rest9950299541%_ _%y99543%_) + (if (null? _%rest9950299541%_) + (_%K9949499524%_ _%y99543%_ _%x99532%_) + (_%E9949399517%_)))) + (_%splice-try9950099536%_ + (lambda (_%hd9950199545%_ + _%rest9950299547%_ + _%y9949799548%_) + (let ((_%y99551%_ _%hd9950199545%_)) + (_%splice-loop9949999538%_ (let () (declare (not safe)) - (##cdr _%rest9939599440%_)) - (cons _%y99444%_ _%y9939099441%_))))) - (_%splice-loop9939299431%_ - (lambda (_%rest9939599446%_ _%y9939099447%_) - (if (pair? _%rest9939599446%_) - (_%splice-try9939399429%_ + (##cdr _%rest9950299547%_)) + (cons _%y99551%_ _%y9949799548%_))))) + (_%splice-loop9949999538%_ + (lambda (_%rest9950299553%_ _%y9949799554%_) + (if (pair? _%rest9950299553%_) + (_%splice-try9950099536%_ (let () (declare (not safe)) - (##car _%rest9939599446%_)) - _%rest9939599446%_ - _%y9939099447%_) - (_%splice-rest9939199427%_ - _%rest9939599446%_ - (reverse _%y9939099447%_)))))) - (_%splice-loop9939299431%_ _%tl9938999422%_ '()))))) - (_%try-match9938399489%_ + (##car _%rest9950299553%_)) + _%rest9950299553%_ + _%y9949799554%_) + (_%splice-rest9949899534%_ + _%rest9950299553%_ + (reverse _%y9949799554%_)))))) + (_%splice-loop9949999538%_ _%tl9949699529%_ '()))))) + (_%try-match9949099596%_ (lambda () - (if (pair? _%all-supers9938199406%_) - (let ((_%tl9940399484%_ + (if (pair? _%all-supers9948899513%_) + (let ((_%tl9951099591%_ (let () (declare (not safe)) - (##cdr _%all-supers9938199406%_))) - (_%hd9940299482%_ + (##cdr _%all-supers9948899513%_))) + (_%hd9950999589%_ (let () (declare (not safe)) - (##car _%all-supers9938199406%_)))) - (if (null? _%tl9940399484%_) - (let ((_%x99487%_ _%hd9940299482%_)) - (base-struct/1 _%x99487%_)) - (if (pair? _%tl9940399484%_) - (let ((_%tl9940099468%_ + (##car _%all-supers9948899513%_)))) + (if (null? _%tl9951099591%_) + (let ((_%x99594%_ _%hd9950999589%_)) + (base-struct/1 _%x99594%_)) + (if (pair? _%tl9951099591%_) + (let ((_%tl9950799575%_ (let () (declare (not safe)) - (##cdr _%tl9940399484%_))) - (_%hd9939999466%_ + (##cdr _%tl9951099591%_))) + (_%hd9950699573%_ (let () (declare (not safe)) - (##car _%tl9940399484%_)))) - (if (null? _%tl9940099468%_) - (let ((_%x99464%_ _%hd9940299482%_) - (_%y99471%_ _%hd9939999466%_)) - (_%K9939699456%_ - _%y99471%_ - _%x99464%_)) - (_%__match101593101594%_ - _%hd9940299482%_ - _%tl9940399484%_))) - (_%__match101593101594%_ - _%hd9940299482%_ - _%tl9940399484%_)))) - (_%E9938699410%_))))) - (if (null? _%all-supers9938199406%_) - (_%K9940499493%_) - (_%try-match9938399489%_))))))) + (##car _%tl9951099591%_)))) + (if (null? _%tl9950799575%_) + (let ((_%x99571%_ _%hd9950999589%_) + (_%y99578%_ _%hd9950699573%_)) + (_%K9950399563%_ + _%y99578%_ + _%x99571%_)) + (_%__match101700101701%_ + _%hd9950999589%_ + _%tl9951099591%_))) + (_%__match101700101701%_ + _%hd9950999589%_ + _%tl9951099591%_)))) + (_%E9949399517%_))))) + (if (null? _%all-supers9948899513%_) + (_%K9951199600%_) + (_%try-match9949099596%_))))))) (define base-struct - (lambda _%all-supers99378%_ (base-struct/list _%all-supers99378%_))) + (lambda _%all-supers99485%_ (base-struct/list _%all-supers99485%_))) (define find-super-constructor - (lambda (_%super99329%_) - (let _%lp99331%_ ((_%rest99333%_ _%super99329%_) - (_%constructor99334%_ '#f)) - (let* ((_%rest9933599343%_ _%rest99333%_) - (_%else9933799351%_ (lambda () _%constructor99334%_)) - (_%K9933999366%_ - (lambda (_%rest99354%_ _%hd99355%_) - (let ((_%$e99357%_ + (lambda (_%super99436%_) + (let _%lp99438%_ ((_%rest99440%_ _%super99436%_) + (_%constructor99441%_ '#f)) + (let* ((_%rest9944299450%_ _%rest99440%_) + (_%else9944499458%_ (lambda () _%constructor99441%_)) + (_%K9944699473%_ + (lambda (_%rest99461%_ _%hd99462%_) + (let ((_%$e99464%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%hd99355%_ + _%hd99462%_ '10 '#f '#f)))) - (if _%$e99357%_ - ((lambda (_%xconstructor99360%_) - (if (or (not _%constructor99334%_) - (eq? _%constructor99334%_ - _%xconstructor99360%_)) - (_%lp99331%_ - _%rest99354%_ - _%xconstructor99360%_) + (if _%$e99464%_ + ((lambda (_%xconstructor99467%_) + (if (or (not _%constructor99441%_) + (eq? _%constructor99441%_ + _%xconstructor99467%_)) + (_%lp99438%_ + _%rest99461%_ + _%xconstructor99467%_) (error '"conflicting implicit constructors" - _%constructor99334%_ - _%xconstructor99360%_))) - _%$e99357%_) - (_%lp99331%_ _%rest99354%_ _%constructor99334%_)))))) - (if (pair? _%rest9933599343%_) - (let ((_%hd9934099369%_ + _%constructor99441%_ + _%xconstructor99467%_))) + _%$e99464%_) + (_%lp99438%_ _%rest99461%_ _%constructor99441%_)))))) + (if (pair? _%rest9944299450%_) + (let ((_%hd9944799476%_ (let () (declare (not safe)) - (##car _%rest9933599343%_))) - (_%tl9934199371%_ + (##car _%rest9944299450%_))) + (_%tl9944899478%_ (let () (declare (not safe)) - (##cdr _%rest9933599343%_)))) - (let* ((_%hd99374%_ _%hd9934099369%_) - (_%rest99376%_ _%tl9934199371%_)) - (_%K9933999366%_ _%rest99376%_ _%hd99374%_))) - (_%else9933799351%_)))))) + (##cdr _%rest9944299450%_)))) + (let* ((_%hd99481%_ _%hd9944799476%_) + (_%rest99483%_ _%tl9944899478%_)) + (_%K9944699473%_ _%rest99483%_ _%hd99481%_))) + (_%else9944499458%_)))))) (define compute-class-slots - (lambda (_%class-precedence-list99305%_ _%direct-slots99306%_) - (let* ((_%next-slot99308%_ '1) - (_%slot-table99310%_ + (lambda (_%class-precedence-list99412%_ _%direct-slots99413%_) + (let* ((_%next-slot99415%_ '1) + (_%slot-table99417%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) - (_%r-slots99312%_ '(__class)) - (_%process-slot99316%_ - (lambda (_%slot99314%_) - (if (symbol? _%slot99314%_) + (_%r-slots99419%_ '(__class)) + (_%process-slot99423%_ + (lambda (_%slot99421%_) + (if (symbol? _%slot99421%_) '#!void - (error '"invalid slot name" _%slot99314%_)) + (error '"invalid slot name" _%slot99421%_)) (if (eq? (let () (declare (not safe)) (symbolic-table-ref - _%slot-table99310%_ - _%slot99314%_ + _%slot-table99417%_ + _%slot99421%_ absent-value)) absent-value) (begin (let () (declare (not safe)) (symbolic-table-set! - _%slot-table99310%_ - _%slot99314%_ - _%next-slot99308%_)) - (let ((__tmp101635 + _%slot-table99417%_ + _%slot99421%_ + _%next-slot99415%_)) + (let ((__tmp101742 (let () (declare (not safe)) - (symbol->keyword _%slot99314%_)))) + (symbol->keyword _%slot99421%_)))) (declare (not safe)) (symbolic-table-set! - _%slot-table99310%_ - __tmp101635 - _%next-slot99308%_)) - (set! _%r-slots99312%_ - (cons _%slot99314%_ _%r-slots99312%_)) - (set! _%next-slot99308%_ + _%slot-table99417%_ + __tmp101742 + _%next-slot99415%_)) + (set! _%r-slots99419%_ + (cons _%slot99421%_ _%r-slots99419%_)) + (set! _%next-slot99415%_ (let () (declare (not safe)) - (##fx+ _%next-slot99308%_ '1)))) + (##fx+ _%next-slot99415%_ '1)))) '#!void))) - (_%process-slots99322%_ - (lambda (_%g9931799319%_) - (for-each _%process-slot99316%_ _%g9931799319%_)))) - (let ((__tmp101637 - (lambda (_%mixin99325%_) - (_%process-slots99322%_ - (let ((__tmp101638 + (_%process-slots99429%_ + (lambda (_%g9942499426%_) + (for-each _%process-slot99423%_ _%g9942499426%_)))) + (let ((__tmp101744 + (lambda (_%mixin99432%_) + (_%process-slots99429%_ + (let ((__tmp101745 (let () (declare (not safe)) (##unchecked-structure-ref - _%mixin99325%_ + _%mixin99432%_ '9 '#f '#f)))) (declare (not safe)) - (agetq__% 'direct-slots: __tmp101638 '()))))) - (__tmp101636 (reverse _%class-precedence-list99305%_))) + (agetq__% 'direct-slots: __tmp101745 '()))))) + (__tmp101743 (reverse _%class-precedence-list99412%_))) (declare (not safe)) - (##for-each __tmp101637 __tmp101636)) - (_%process-slots99322%_ _%direct-slots99306%_) - (let ((_%slot-vector99327%_ + (##for-each __tmp101744 __tmp101743)) + (_%process-slots99429%_ _%direct-slots99413%_) + (let ((_%slot-vector99434%_ (list->vector - (let () (declare (not safe)) (##reverse _%r-slots99312%_))))) - (values _%slot-vector99327%_ _%slot-table99310%_))))) + (let () (declare (not safe)) (##reverse _%r-slots99419%_))))) + (values _%slot-vector99434%_ _%slot-table99417%_))))) (define make-class-type - (lambda (_%id99230%_ - _%name99231%_ - _%direct-supers99232%_ - _%direct-slots99233%_ - _%properties99234%_ - _%constructor99235%_) - (if (symbol? _%id99230%_) - (let ((_%id99239%_ _%id99230%_)) - (if (symbol? _%name99231%_) - (let ((_%name99249%_ _%name99231%_)) - (if (list? _%direct-supers99232%_) - (let ((_%direct-supers99259%_ _%direct-supers99232%_)) - (if (list? _%direct-slots99233%_) - (let ((_%direct-slots99269%_ - _%direct-slots99233%_)) - (if (list? _%properties99234%_) - (let ((_%properties99279%_ - _%properties99234%_)) - (if ((lambda (_%$obj99288%_) - (or (not _%$obj99288%_) - (symbol? _%$obj99288%_))) - _%constructor99235%_) - (let ((_%constructor99295%_ - _%constructor99235%_)) + (lambda (_%id99337%_ + _%name99338%_ + _%direct-supers99339%_ + _%direct-slots99340%_ + _%properties99341%_ + _%constructor99342%_) + (if (symbol? _%id99337%_) + (let ((_%id99346%_ _%id99337%_)) + (if (symbol? _%name99338%_) + (let ((_%name99356%_ _%name99338%_)) + (if (list? _%direct-supers99339%_) + (let ((_%direct-supers99366%_ _%direct-supers99339%_)) + (if (list? _%direct-slots99340%_) + (let ((_%direct-slots99376%_ + _%direct-slots99340%_)) + (if (list? _%properties99341%_) + (let ((_%properties99386%_ + _%properties99341%_)) + (if ((lambda (_%$obj99395%_) + (or (not _%$obj99395%_) + (symbol? _%$obj99395%_))) + _%constructor99342%_) + (let ((_%constructor99402%_ + _%constructor99342%_)) (__make-class-type - _%id99239%_ - _%name99249%_ - _%direct-supers99259%_ - _%direct-slots99269%_ - _%properties99279%_ - _%constructor99295%_)) + _%id99346%_ + _%name99356%_ + _%direct-supers99366%_ + _%direct-slots99376%_ + _%properties99386%_ + _%constructor99402%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1358,7 +1358,7 @@ 'contract: '(? (or not symbol?)) 'value: - _%constructor99235%_) + _%constructor99342%_) '#!void))) (begin (raise-contract-violation-error @@ -1368,7 +1368,7 @@ 'contract: 'list? 'value: - _%properties99234%_) + _%properties99341%_) '#!void))) (begin (raise-contract-violation-error @@ -1378,7 +1378,7 @@ 'contract: 'list? 'value: - _%direct-slots99233%_) + _%direct-slots99340%_) '#!void))) (begin (raise-contract-violation-error @@ -1388,7 +1388,7 @@ 'contract: 'list? 'value: - _%direct-supers99232%_) + _%direct-supers99339%_) '#!void))) (begin (raise-contract-violation-error @@ -1398,7 +1398,7 @@ 'contract: 'symbol? 'value: - _%name99231%_) + _%name99338%_) '#!void))) (begin (raise-contract-violation-error @@ -1408,165 +1408,165 @@ 'contract: 'symbol? 'value: - _%id99230%_) + _%id99337%_) '#!void)))) (define __make-class-type - (lambda (_%id99099%_ - _%name99100%_ - _%direct-supers99101%_ - _%direct-slots99102%_ - _%properties99103%_ - _%constructor99104%_) - (let* ((_%id99107%_ _%id99099%_) - (_%name99115%_ _%name99100%_) - (_%direct-supers99123%_ _%direct-supers99101%_) - (_%direct-slots99131%_ _%direct-slots99102%_) - (_%properties99139%_ _%properties99103%_) - (_%constructor99147%_ _%constructor99104%_)) - (let ((_%$e99159%_ - (let ((__tmp101639 - (lambda (_%$obj99156%_) + (lambda (_%id99206%_ + _%name99207%_ + _%direct-supers99208%_ + _%direct-slots99209%_ + _%properties99210%_ + _%constructor99211%_) + (let* ((_%id99214%_ _%id99206%_) + (_%name99222%_ _%name99207%_) + (_%direct-supers99230%_ _%direct-supers99208%_) + (_%direct-slots99238%_ _%direct-slots99209%_) + (_%properties99246%_ _%properties99210%_) + (_%constructor99254%_ _%constructor99211%_)) + (let ((_%$e99266%_ + (let ((__tmp101746 + (lambda (_%$obj99263%_) (not (let () (declare (not safe)) (##structure-instance-of? - _%$obj99156%_ + _%$obj99263%_ 'class)))))) (declare (not safe)) - (__find __tmp101639 _%direct-supers99123%_)))) - (if _%$e99159%_ - ((lambda (_%g9916199163%_) + (__find __tmp101746 _%direct-supers99230%_)))) + (if _%$e99266%_ + ((lambda (_%g9926899270%_) (error '"Illegal super class; not a class descriptor" - _%g9916199163%_)) - _%$e99159%_) - (let ((_%$e99166%_ + _%g9926899270%_)) + _%$e99266%_) + (let ((_%$e99273%_ (let () (declare (not safe)) - (__find __class-type-final? _%direct-supers99123%_)))) - (if _%$e99166%_ - ((lambda (_%g9916899170%_) - (error '"Cannot extend final class" _%g9916899170%_)) - _%$e99166%_) + (__find __class-type-final? _%direct-supers99230%_)))) + (if _%$e99273%_ + ((lambda (_%g9927599277%_) + (error '"Cannot extend final class" _%g9927599277%_)) + _%$e99273%_) '#!void)))) - (let ((_g101640_ (compute-precedence-list _%direct-supers99123%_))) + (let ((_g101747_ (compute-precedence-list _%direct-supers99230%_))) (begin - (let ((_g101641_ + (let ((_g101748_ (let () (declare (not safe)) - (if (##values? _g101640_) - (##vector-length _g101640_) + (if (##values? _g101747_) + (##values-length _g101747_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101641_ 2))) - (error "Context expects 2 values" _g101641_))) - (let ((_%precedence-list99173%_ - (let () (declare (not safe)) (##vector-ref _g101640_ 0))) - (_%struct-super99174%_ - (let () (declare (not safe)) (##vector-ref _g101640_ 1)))) - (let ((_g101642_ + (if (not (let () (declare (not safe)) (##fx= _g101748_ 2))) + (error "Context expects 2 values" _g101748_))) + (let ((_%precedence-list99280%_ + (let () (declare (not safe)) (##values-ref _g101747_ 0))) + (_%struct-super99281%_ + (let () (declare (not safe)) (##values-ref _g101747_ 1)))) + (let ((_g101749_ (compute-class-slots - _%precedence-list99173%_ - _%direct-slots99131%_))) + _%precedence-list99280%_ + _%direct-slots99238%_))) (begin - (let ((_g101643_ + (let ((_g101750_ (let () (declare (not safe)) - (if (##values? _g101642_) - (##vector-length _g101642_) + (if (##values? _g101749_) + (##values-length _g101749_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101643_ 2))) - (error "Context expects 2 values" _g101643_))) - (let ((_%slot-vector99176%_ + (##fx= _g101750_ 2))) + (error "Context expects 2 values" _g101750_))) + (let ((_%slot-vector99283%_ (let () (declare (not safe)) - (##vector-ref _g101642_ 0))) - (_%slot-table99177%_ + (##values-ref _g101749_ 0))) + (_%slot-table99284%_ (let () (declare (not safe)) - (##vector-ref _g101642_ 1)))) - (let* ((_%properties99179%_ - (cons (cons 'direct-slots: _%direct-slots99131%_) + (##values-ref _g101749_ 1)))) + (let* ((_%properties99286%_ + (cons (cons 'direct-slots: _%direct-slots99238%_) (cons (cons 'direct-supers: - _%direct-supers99123%_) - _%properties99139%_))) - (_%constructor*99184%_ - (let ((_%$e99181%_ _%constructor99147%_)) - (if _%$e99181%_ - _%$e99181%_ + _%direct-supers99230%_) + _%properties99246%_))) + (_%constructor*99291%_ + (let ((_%$e99288%_ _%constructor99254%_)) + (if _%$e99288%_ + _%$e99288%_ (find-super-constructor - _%direct-supers99123%_)))) - (_%precedence-list99227%_ + _%direct-supers99230%_)))) + (_%precedence-list99334%_ (if (or (let () (declare (not safe)) (agetq__0 'system: - _%properties99179%_)) + _%properties99286%_)) (memq object::t - _%precedence-list99173%_)) - _%precedence-list99173%_ - (let _%loop99189%_ ((_%tail99191%_ - _%precedence-list99173%_) - (_%head99192%_ '())) - (let* ((_%tail9919399201%_ _%tail99191%_) - (_%else9919599209%_ + _%precedence-list99280%_)) + _%precedence-list99280%_ + (let _%loop99296%_ ((_%tail99298%_ + _%precedence-list99280%_) + (_%head99299%_ '())) + (let* ((_%tail9930099308%_ _%tail99298%_) + (_%else9930299316%_ (lambda () - (let ((__tmp101644 + (let ((__tmp101751 (cons object::t (cons t::t '())))) (declare (not safe)) (__foldl1 cons - __tmp101644 - _%head99192%_)))) - (_%K9919799215%_ - (lambda (_%rest99212%_ _%hd99213%_) - (if (eq? _%hd99213%_ t::t) - (let ((__tmp101645 + __tmp101751 + _%head99299%_)))) + (_%K9930499322%_ + (lambda (_%rest99319%_ _%hd99320%_) + (if (eq? _%hd99320%_ t::t) + (let ((__tmp101752 (cons object::t - _%tail99191%_))) + _%tail99298%_))) (declare (not safe)) (__foldl1 cons - __tmp101645 - _%head99192%_)) - (_%loop99189%_ - _%rest99212%_ - (cons _%hd99213%_ - _%head99192%_)))))) - (if (pair? _%tail9919399201%_) - (let ((_%hd9919899218%_ + __tmp101752 + _%head99299%_)) + (_%loop99296%_ + _%rest99319%_ + (cons _%hd99320%_ + _%head99299%_)))))) + (if (pair? _%tail9930099308%_) + (let ((_%hd9930599325%_ (let () (declare (not safe)) - (##car _%tail9919399201%_))) - (_%tl9919999220%_ + (##car _%tail9930099308%_))) + (_%tl9930699327%_ (let () (declare (not safe)) - (##cdr _%tail9919399201%_)))) - (let* ((_%hd99223%_ - _%hd9919899218%_) - (_%rest99225%_ - _%tl9919999220%_)) - (_%K9919799215%_ - _%rest99225%_ - _%hd99223%_))) - (_%else9919599209%_))))))) + (##cdr _%tail9930099308%_)))) + (let* ((_%hd99330%_ + _%hd9930599325%_) + (_%rest99332%_ + _%tl9930699327%_)) + (_%K9930499322%_ + _%rest99332%_ + _%hd99330%_))) + (_%else9930299316%_))))))) (make-class-type-descriptor - _%id99107%_ - _%name99115%_ - _%struct-super99174%_ - _%precedence-list99227%_ - _%slot-vector99176%_ - _%properties99179%_ - _%constructor*99184%_ - _%slot-table99177%_ + _%id99214%_ + _%name99222%_ + _%struct-super99281%_ + _%precedence-list99334%_ + _%slot-vector99283%_ + _%properties99286%_ + _%constructor*99291%_ + _%slot-table99284%_ '#f))))))))))) (define class-precedence-list - (lambda (_%klass99085%_) + (lambda (_%klass99192%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99085%_ 'class)) - (let ((_%klass99089%_ _%klass99085%_)) - (__class-precedence-list _%klass99089%_)) + (##structure-instance-of? _%klass99192%_ 'class)) + (let ((_%klass99196%_ _%klass99192%_)) + (__class-precedence-list _%klass99196%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1575,17 +1575,17 @@ 'contract: 'class-type? 'value: - _%klass99085%_) + _%klass99192%_) '#!void)))) (define __class-precedence-list - (lambda (_%klass99073%_) - (let ((_%klass99076%_ _%klass99073%_)) - (cons _%klass99076%_ + (lambda (_%klass99180%_) + (let ((_%klass99183%_ _%klass99180%_)) + (cons _%klass99183%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass99076%_ '6 '#f '#f)))))) + (##unchecked-structure-ref _%klass99183%_ '6 '#f '#f)))))) (define compute-precedence-list - (lambda (_%direct-supers99070%_) + (lambda (_%direct-supers99177%_) (let () (declare (not safe)) (c4-linearize__% @@ -1595,14 +1595,14 @@ eq? ##type-name '() - _%direct-supers99070%_)))) + _%direct-supers99177%_)))) (define make-class-predicate - (lambda (_%klass99056%_) + (lambda (_%klass99163%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99056%_ 'class)) - (let ((_%klass99060%_ _%klass99056%_)) - (__make-class-predicate _%klass99060%_)) + (##structure-instance-of? _%klass99163%_ 'class)) + (let ((_%klass99167%_ _%klass99163%_)) + (__make-class-predicate _%klass99167%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1611,36 +1611,36 @@ 'contract: 'class-type? 'value: - _%klass99056%_) + _%klass99163%_) '#!void)))) (define __make-class-predicate - (lambda (_%klass99027%_) - (let* ((_%klass99030%_ _%klass99027%_) - (_%tid99039%_ - (let () (declare (not safe)) (##type-id _%klass99030%_)))) - (if (__class-type-final? _%klass99030%_) - (lambda (_%g9904199043%_) + (lambda (_%klass99134%_) + (let* ((_%klass99137%_ _%klass99134%_) + (_%tid99146%_ + (let () (declare (not safe)) (##type-id _%klass99137%_)))) + (if (__class-type-final? _%klass99137%_) + (lambda (_%g9914899150%_) (let () (declare (not safe)) (##structure-direct-instance-of? - _%g9904199043%_ - _%tid99039%_))) - (if (__class-type-struct? _%klass99030%_) - (lambda (_%g9904699048%_) + _%g9914899150%_ + _%tid99146%_))) + (if (__class-type-struct? _%klass99137%_) + (lambda (_%g9915399155%_) (let () (declare (not safe)) - (##structure-instance-of? _%g9904699048%_ _%tid99039%_))) - (lambda (_%g9905199053%_) - (__class-instance? _%klass99030%_ _%g9905199053%_))))))) + (##structure-instance-of? _%g9915399155%_ _%tid99146%_))) + (lambda (_%g9915899160%_) + (__class-instance? _%klass99137%_ _%g9915899160%_))))))) (define make-class-slot-accessor - (lambda (_%klass99002%_ _%slot99003%_) + (lambda (_%klass99109%_ _%slot99110%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass99002%_ 'class)) - (let ((_%klass99007%_ _%klass99002%_)) - (if (symbol? _%slot99003%_) - (let ((_%slot99017%_ _%slot99003%_)) - (__make-class-slot-accessor _%klass99007%_ _%slot99017%_)) + (##structure-instance-of? _%klass99109%_ 'class)) + (let ((_%klass99114%_ _%klass99109%_)) + (if (symbol? _%slot99110%_) + (let ((_%slot99124%_ _%slot99110%_)) + (__make-class-slot-accessor _%klass99114%_ _%slot99124%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1649,7 +1649,7 @@ 'contract: 'symbol? 'value: - _%slot99003%_) + _%slot99110%_) '#!void))) (begin (raise-contract-violation-error @@ -1659,78 +1659,78 @@ 'contract: 'class-type? 'value: - _%klass99002%_) + _%klass99109%_) '#!void)))) (define __make-class-slot-accessor - (lambda (_%klass98970%_ _%slot98971%_) - (let* ((_%klass98974%_ _%klass98970%_) - (_%slot98982%_ _%slot98971%_) - (_%field98991%_ - (let ((__tmp101646 + (lambda (_%klass99077%_ _%slot99078%_) + (let* ((_%klass99081%_ _%klass99077%_) + (_%slot99089%_ _%slot99078%_) + (_%field99098%_ + (let ((__tmp101753 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98974%_ + _%klass99081%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101646 _%slot98982%_ '#f)))) - (if (not _%field98991%_) + (symbolic-table-ref __tmp101753 _%slot99089%_ '#f)))) + (if (not _%field99098%_) (let () (error '"unknown slot" 'class: - _%klass98974%_ + _%klass99081%_ 'slot: - _%slot98982%_) + _%slot99089%_) '#!void) - (if (__class-type-final? _%klass98974%_) + (if (__class-type-final? _%klass99081%_) (make-final-slot-accessor - _%klass98974%_ - _%slot98982%_ - _%field98991%_) - (if (__class-type-struct? _%klass98974%_) + _%klass99081%_ + _%slot99089%_ + _%field99098%_) + (if (__class-type-struct? _%klass99081%_) (make-struct-slot-accessor - _%klass98974%_ - _%slot98982%_ - _%field98991%_) - (if (let ((_%strukt98997%_ - (base-struct/1 _%klass98974%_))) + _%klass99081%_ + _%slot99089%_ + _%field99098%_) + (if (let ((_%strukt99104%_ + (base-struct/1 _%klass99081%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98997%_ + _%strukt99104%_ 'class)) - (let ((__tmp101647 - (let ((__tmp101648 + (let ((__tmp101754 + (let ((__tmp101755 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98997%_ + _%strukt99104%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101648)))) + (##vector-length __tmp101755)))) (declare (not safe)) - (##fx< _%field98991%_ __tmp101647)))) + (##fx< _%field99098%_ __tmp101754)))) (make-struct-subclass-slot-accessor - _%klass98974%_ - _%slot98982%_ - _%field98991%_) + _%klass99081%_ + _%slot99089%_ + _%field99098%_) (make-class-cached-slot-accessor - _%klass98974%_ - _%slot98982%_ - _%field98991%_)))))))) + _%klass99081%_ + _%slot99089%_ + _%field99098%_)))))))) (define make-class-slot-mutator - (lambda (_%klass98945%_ _%slot98946%_) + (lambda (_%klass99052%_ _%slot99053%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98945%_ 'class)) - (let ((_%klass98950%_ _%klass98945%_)) - (if (symbol? _%slot98946%_) - (let ((_%slot98960%_ _%slot98946%_)) - (__make-class-slot-mutator _%klass98950%_ _%slot98960%_)) + (##structure-instance-of? _%klass99052%_ 'class)) + (let ((_%klass99057%_ _%klass99052%_)) + (if (symbol? _%slot99053%_) + (let ((_%slot99067%_ _%slot99053%_)) + (__make-class-slot-mutator _%klass99057%_ _%slot99067%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1739,7 +1739,7 @@ 'contract: 'symbol? 'value: - _%slot98946%_) + _%slot99053%_) '#!void))) (begin (raise-contract-violation-error @@ -1749,80 +1749,80 @@ 'contract: 'class-type? 'value: - _%klass98945%_) + _%klass99052%_) '#!void)))) (define __make-class-slot-mutator - (lambda (_%klass98913%_ _%slot98914%_) - (let* ((_%klass98917%_ _%klass98913%_) - (_%slot98925%_ _%slot98914%_) - (_%field98934%_ - (let ((__tmp101649 + (lambda (_%klass99020%_ _%slot99021%_) + (let* ((_%klass99024%_ _%klass99020%_) + (_%slot99032%_ _%slot99021%_) + (_%field99041%_ + (let ((__tmp101756 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98917%_ + _%klass99024%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101649 _%slot98925%_ '#f)))) - (if (not _%field98934%_) + (symbolic-table-ref __tmp101756 _%slot99032%_ '#f)))) + (if (not _%field99041%_) (let () (error '"unknown slot" 'class: - _%klass98917%_ + _%klass99024%_ 'slot: - _%slot98925%_) + _%slot99032%_) '#!void) - (if (__class-type-final? _%klass98917%_) + (if (__class-type-final? _%klass99024%_) (make-final-slot-mutator - _%klass98917%_ - _%slot98925%_ - _%field98934%_) - (if (__class-type-struct? _%klass98917%_) + _%klass99024%_ + _%slot99032%_ + _%field99041%_) + (if (__class-type-struct? _%klass99024%_) (make-struct-slot-mutator - _%klass98917%_ - _%slot98925%_ - _%field98934%_) - (if (let ((_%strukt98940%_ - (base-struct/1 _%klass98917%_))) + _%klass99024%_ + _%slot99032%_ + _%field99041%_) + (if (let ((_%strukt99047%_ + (base-struct/1 _%klass99024%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98940%_ + _%strukt99047%_ 'class)) - (let ((__tmp101650 - (let ((__tmp101651 + (let ((__tmp101757 + (let ((__tmp101758 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98940%_ + _%strukt99047%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101651)))) + (##vector-length __tmp101758)))) (declare (not safe)) - (##fx< _%field98934%_ __tmp101650)))) + (##fx< _%field99041%_ __tmp101757)))) (make-struct-subclass-slot-mutator - _%klass98917%_ - _%slot98925%_ - _%field98934%_) + _%klass99024%_ + _%slot99032%_ + _%field99041%_) (make-class-cached-slot-mutator - _%klass98917%_ - _%slot98925%_ - _%field98934%_)))))))) + _%klass99024%_ + _%slot99032%_ + _%field99041%_)))))))) (define make-class-slot-unchecked-accessor - (lambda (_%klass98888%_ _%slot98889%_) + (lambda (_%klass98995%_ _%slot98996%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98888%_ 'class)) - (let ((_%klass98893%_ _%klass98888%_)) - (if (symbol? _%slot98889%_) - (let ((_%slot98903%_ _%slot98889%_)) + (##structure-instance-of? _%klass98995%_ 'class)) + (let ((_%klass99000%_ _%klass98995%_)) + (if (symbol? _%slot98996%_) + (let ((_%slot99010%_ _%slot98996%_)) (__make-class-slot-unchecked-accessor - _%klass98893%_ - _%slot98903%_)) + _%klass99000%_ + _%slot99010%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1831,7 +1831,7 @@ 'contract: 'symbol? 'value: - _%slot98889%_) + _%slot98996%_) '#!void))) (begin (raise-contract-violation-error @@ -1841,80 +1841,80 @@ 'contract: 'class-type? 'value: - _%klass98888%_) + _%klass98995%_) '#!void)))) (define __make-class-slot-unchecked-accessor - (lambda (_%klass98856%_ _%slot98857%_) - (let* ((_%klass98860%_ _%klass98856%_) - (_%slot98868%_ _%slot98857%_) - (_%field98877%_ - (let ((__tmp101652 + (lambda (_%klass98963%_ _%slot98964%_) + (let* ((_%klass98967%_ _%klass98963%_) + (_%slot98975%_ _%slot98964%_) + (_%field98984%_ + (let ((__tmp101759 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98860%_ + _%klass98967%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101652 _%slot98868%_ '#f)))) - (if (not _%field98877%_) + (symbolic-table-ref __tmp101759 _%slot98975%_ '#f)))) + (if (not _%field98984%_) (let () (error '"unknown slot" 'class: - _%klass98860%_ + _%klass98967%_ 'slot: - _%slot98868%_) + _%slot98975%_) '#!void) - (if (__class-type-final? _%klass98860%_) + (if (__class-type-final? _%klass98967%_) (make-struct-slot-unchecked-accessor - _%klass98860%_ - _%slot98868%_ - _%field98877%_) - (if (__class-type-struct? _%klass98860%_) + _%klass98967%_ + _%slot98975%_ + _%field98984%_) + (if (__class-type-struct? _%klass98967%_) (make-struct-slot-unchecked-accessor - _%klass98860%_ - _%slot98868%_ - _%field98877%_) - (if (let ((_%strukt98883%_ - (base-struct/1 _%klass98860%_))) + _%klass98967%_ + _%slot98975%_ + _%field98984%_) + (if (let ((_%strukt98990%_ + (base-struct/1 _%klass98967%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98883%_ + _%strukt98990%_ 'class)) - (let ((__tmp101653 - (let ((__tmp101654 + (let ((__tmp101760 + (let ((__tmp101761 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98883%_ + _%strukt98990%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101654)))) + (##vector-length __tmp101761)))) (declare (not safe)) - (##fx< _%field98877%_ __tmp101653)))) + (##fx< _%field98984%_ __tmp101760)))) (make-struct-slot-unchecked-accessor - _%klass98860%_ - _%slot98868%_ - _%field98877%_) + _%klass98967%_ + _%slot98975%_ + _%field98984%_) (make-class-cached-slot-unchecked-accessor - _%klass98860%_ - _%slot98868%_ - _%field98877%_)))))))) + _%klass98967%_ + _%slot98975%_ + _%field98984%_)))))))) (define make-class-slot-unchecked-mutator - (lambda (_%klass98831%_ _%slot98832%_) + (lambda (_%klass98938%_ _%slot98939%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98831%_ 'class)) - (let ((_%klass98836%_ _%klass98831%_)) - (if (symbol? _%slot98832%_) - (let ((_%slot98846%_ _%slot98832%_)) + (##structure-instance-of? _%klass98938%_ 'class)) + (let ((_%klass98943%_ _%klass98938%_)) + (if (symbol? _%slot98939%_) + (let ((_%slot98953%_ _%slot98939%_)) (__make-class-slot-unchecked-mutator - _%klass98836%_ - _%slot98846%_)) + _%klass98943%_ + _%slot98953%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1923,7 +1923,7 @@ 'contract: 'symbol? 'value: - _%slot98832%_) + _%slot98939%_) '#!void))) (begin (raise-contract-violation-error @@ -1933,221 +1933,221 @@ 'contract: 'class-type? 'value: - _%klass98831%_) + _%klass98938%_) '#!void)))) (define __make-class-slot-unchecked-mutator - (lambda (_%klass98799%_ _%slot98800%_) - (let* ((_%klass98803%_ _%klass98799%_) - (_%slot98811%_ _%slot98800%_) - (_%field98820%_ - (let ((__tmp101655 + (lambda (_%klass98906%_ _%slot98907%_) + (let* ((_%klass98910%_ _%klass98906%_) + (_%slot98918%_ _%slot98907%_) + (_%field98927%_ + (let ((__tmp101762 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98803%_ + _%klass98910%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101655 _%slot98811%_ '#f)))) - (if (not _%field98820%_) + (symbolic-table-ref __tmp101762 _%slot98918%_ '#f)))) + (if (not _%field98927%_) (let () (error '"unknown slot" 'class: - _%klass98803%_ + _%klass98910%_ 'slot: - _%slot98811%_) + _%slot98918%_) '#!void) - (if (__class-type-final? _%klass98803%_) + (if (__class-type-final? _%klass98910%_) (make-struct-slot-unchecked-mutator - _%klass98803%_ - _%slot98811%_ - _%field98820%_) - (if (__class-type-struct? _%klass98803%_) + _%klass98910%_ + _%slot98918%_ + _%field98927%_) + (if (__class-type-struct? _%klass98910%_) (make-struct-slot-unchecked-mutator - _%klass98803%_ - _%slot98811%_ - _%field98820%_) - (if (let ((_%strukt98826%_ - (base-struct/1 _%klass98803%_))) + _%klass98910%_ + _%slot98918%_ + _%field98927%_) + (if (let ((_%strukt98933%_ + (base-struct/1 _%klass98910%_))) (and (let () (declare (not safe)) (##structure-instance-of? - _%strukt98826%_ + _%strukt98933%_ 'class)) - (let ((__tmp101656 - (let ((__tmp101657 + (let ((__tmp101763 + (let ((__tmp101764 (let () (declare (not safe)) (##unchecked-structure-ref - _%strukt98826%_ + _%strukt98933%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101657)))) + (##vector-length __tmp101764)))) (declare (not safe)) - (##fx< _%field98820%_ __tmp101656)))) + (##fx< _%field98927%_ __tmp101763)))) (make-struct-slot-unchecked-mutator - _%klass98803%_ - _%slot98811%_ - _%field98820%_) + _%klass98910%_ + _%slot98918%_ + _%field98927%_) (make-class-cached-slot-unchecked-mutator - _%klass98803%_ - _%slot98811%_ - _%field98820%_)))))))) + _%klass98910%_ + _%slot98918%_ + _%field98927%_)))))))) (define not-an-instance__% - (lambda (_%object98783%_ _%class98784%_ _%slot98785%_) + (lambda (_%object98890%_ _%class98891%_ _%slot98892%_) (apply error '"not an instance" 'object: - _%object98783%_ + _%object98890%_ 'class: - _%class98784%_ - (if _%slot98785%_ (cons 'slot: (cons _%slot98785%_ '())) '())))) + _%class98891%_ + (if _%slot98892%_ (cons 'slot: (cons _%slot98892%_ '())) '())))) (define not-an-instance__0 - (lambda (_%object98790%_ _%class98791%_) - (let ((_%slot98793%_ '#f)) - (not-an-instance__% _%object98790%_ _%class98791%_ _%slot98793%_)))) + (lambda (_%object98897%_ _%class98898%_) + (let ((_%slot98900%_ '#f)) + (not-an-instance__% _%object98897%_ _%class98898%_ _%slot98900%_)))) (define not-an-instance - (lambda _g101659_ - (let ((_g101658_ (let () (declare (not safe)) (##length _g101659_)))) - (cond ((let () (declare (not safe)) (##fx= _g101658_ 2)) - (apply not-an-instance__0 _g101659_)) - ((let () (declare (not safe)) (##fx= _g101658_ 3)) - (apply not-an-instance__% _g101659_)) + (lambda _g101766_ + (let ((_g101765_ (let () (declare (not safe)) (##length _g101766_)))) + (cond ((let () (declare (not safe)) (##fx= _g101765_ 2)) + (apply not-an-instance__0 _g101766_)) + ((let () (declare (not safe)) (##fx= _g101765_ 3)) + (apply not-an-instance__% _g101766_)) (else (##raise-wrong-number-of-arguments-exception not-an-instance - _g101659_)))))) + _g101766_)))))) (define make-final-slot-accessor - (lambda (_%klass98776%_ _%slot98777%_ _%field98778%_) - (lambda (_%obj98780%_) + (lambda (_%klass98883%_ _%slot98884%_ _%field98885%_) + (lambda (_%obj98887%_) (##direct-structure-ref - _%obj98780%_ - _%field98778%_ - _%klass98776%_ - _%slot98777%_)))) + _%obj98887%_ + _%field98885%_ + _%klass98883%_ + _%slot98884%_)))) (define make-final-slot-mutator - (lambda (_%klass98769%_ _%slot98770%_ _%field98771%_) - (lambda (_%obj98773%_ _%val98774%_) + (lambda (_%klass98876%_ _%slot98877%_ _%field98878%_) + (lambda (_%obj98880%_ _%val98881%_) (##direct-structure-set! - _%obj98773%_ - _%val98774%_ - _%field98771%_ - _%klass98769%_ - _%slot98770%_)))) + _%obj98880%_ + _%val98881%_ + _%field98878%_ + _%klass98876%_ + _%slot98877%_)))) (define make-struct-slot-accessor - (lambda (_%klass98763%_ _%slot98764%_ _%field98765%_) - (lambda (_%obj98767%_) + (lambda (_%klass98870%_ _%slot98871%_ _%field98872%_) + (lambda (_%obj98874%_) (##structure-ref - _%obj98767%_ - _%field98765%_ - _%klass98763%_ - _%slot98764%_)))) + _%obj98874%_ + _%field98872%_ + _%klass98870%_ + _%slot98871%_)))) (define make-struct-slot-mutator - (lambda (_%klass98756%_ _%slot98757%_ _%field98758%_) - (lambda (_%obj98760%_ _%val98761%_) + (lambda (_%klass98863%_ _%slot98864%_ _%field98865%_) + (lambda (_%obj98867%_ _%val98868%_) (##structure-set! - _%obj98760%_ - _%val98761%_ - _%field98758%_ - _%klass98756%_ - _%slot98757%_)))) + _%obj98867%_ + _%val98868%_ + _%field98865%_ + _%klass98863%_ + _%slot98864%_)))) (define make-struct-slot-unchecked-accessor - (lambda (_%klass98750%_ _%slot98751%_ _%field98752%_) - (lambda (_%obj98754%_) + (lambda (_%klass98857%_ _%slot98858%_ _%field98859%_) + (lambda (_%obj98861%_) (let () (declare (not safe)) (##unchecked-structure-ref - _%obj98754%_ - _%field98752%_ - _%klass98750%_ - _%slot98751%_))))) + _%obj98861%_ + _%field98859%_ + _%klass98857%_ + _%slot98858%_))))) (define make-struct-slot-unchecked-mutator - (lambda (_%klass98743%_ _%slot98744%_ _%field98745%_) - (lambda (_%obj98747%_ _%val98748%_) + (lambda (_%klass98850%_ _%slot98851%_ _%field98852%_) + (lambda (_%obj98854%_ _%val98855%_) (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98747%_ - _%val98748%_ - _%field98745%_ - _%klass98743%_ - _%slot98744%_))))) + _%obj98854%_ + _%val98855%_ + _%field98852%_ + _%klass98850%_ + _%slot98851%_))))) (define make-struct-subclass-slot-accessor - (lambda (_%klass98737%_ _%slot98738%_ _%field98739%_) - (lambda (_%obj98741%_) - (if (class-instance? _%klass98737%_ _%obj98741%_) - (unchecked-slot-ref _%obj98741%_ _%field98739%_) + (lambda (_%klass98844%_ _%slot98845%_ _%field98846%_) + (lambda (_%obj98848%_) + (if (class-instance? _%klass98844%_ _%obj98848%_) + (unchecked-slot-ref _%obj98848%_ _%field98846%_) (not-an-instance__% - _%obj98741%_ - _%klass98737%_ - _%slot98738%_))))) + _%obj98848%_ + _%klass98844%_ + _%slot98845%_))))) (define make-struct-subclass-slot-mutator - (lambda (_%klass98730%_ _%slot98731%_ _%field98732%_) - (lambda (_%obj98734%_ _%val98735%_) - (if (class-instance? _%klass98730%_ _%obj98734%_) - (unchecked-field-set! _%obj98734%_ _%field98732%_ _%val98735%_) + (lambda (_%klass98837%_ _%slot98838%_ _%field98839%_) + (lambda (_%obj98841%_ _%val98842%_) + (if (class-instance? _%klass98837%_ _%obj98841%_) + (unchecked-field-set! _%obj98841%_ _%field98839%_ _%val98842%_) (not-an-instance__% - _%obj98734%_ - _%klass98730%_ - _%slot98731%_))))) + _%obj98841%_ + _%klass98837%_ + _%slot98838%_))))) (define make-class-cached-slot-accessor - (lambda (_%klass98721%_ _%slot98722%_ _%field98723%_) - (lambda (_%obj98725%_) - (if (let ((__tmp101660 - (let () (declare (not safe)) (##type-id _%klass98721%_)))) + (lambda (_%klass98828%_ _%slot98829%_ _%field98830%_) + (lambda (_%obj98832%_) + (if (let ((__tmp101767 + (let () (declare (not safe)) (##type-id _%klass98828%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98725%_ __tmp101660)) - (unchecked-field-ref _%obj98725%_ _%field98723%_) - (if (class-instance? _%klass98721%_ _%obj98725%_) - (unchecked-slot-ref _%obj98725%_ _%slot98722%_) + (##structure-direct-instance-of? _%obj98832%_ __tmp101767)) + (unchecked-field-ref _%obj98832%_ _%field98830%_) + (if (class-instance? _%klass98828%_ _%obj98832%_) + (unchecked-slot-ref _%obj98832%_ _%slot98829%_) (not-an-instance__% - _%obj98725%_ - _%klass98721%_ - _%slot98722%_)))))) + _%obj98832%_ + _%klass98828%_ + _%slot98829%_)))))) (define make-class-cached-slot-mutator - (lambda (_%klass98711%_ _%slot98712%_ _%field98713%_) - (lambda (_%obj98715%_ _%val98716%_) - (if (let ((__tmp101661 - (let () (declare (not safe)) (##type-id _%klass98711%_)))) + (lambda (_%klass98818%_ _%slot98819%_ _%field98820%_) + (lambda (_%obj98822%_ _%val98823%_) + (if (let ((__tmp101768 + (let () (declare (not safe)) (##type-id _%klass98818%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98715%_ __tmp101661)) - (unchecked-field-set! _%obj98715%_ _%field98713%_ _%val98716%_) - (if (class-instance? _%klass98711%_ _%obj98715%_) - (unchecked-slot-set! _%obj98715%_ _%slot98712%_ _%val98716%_) + (##structure-direct-instance-of? _%obj98822%_ __tmp101768)) + (unchecked-field-set! _%obj98822%_ _%field98820%_ _%val98823%_) + (if (class-instance? _%klass98818%_ _%obj98822%_) + (unchecked-slot-set! _%obj98822%_ _%slot98819%_ _%val98823%_) (not-an-instance__% - _%obj98715%_ - _%klass98711%_ - _%slot98712%_)))))) + _%obj98822%_ + _%klass98818%_ + _%slot98819%_)))))) (define make-class-cached-slot-unchecked-accessor - (lambda (_%klass98705%_ _%slot98706%_ _%field98707%_) - (lambda (_%obj98709%_) - (if (let ((__tmp101662 - (let () (declare (not safe)) (##type-id _%klass98705%_)))) + (lambda (_%klass98812%_ _%slot98813%_ _%field98814%_) + (lambda (_%obj98816%_) + (if (let ((__tmp101769 + (let () (declare (not safe)) (##type-id _%klass98812%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98709%_ __tmp101662)) - (unchecked-field-ref _%obj98709%_ _%field98707%_) - (unchecked-slot-ref _%obj98709%_ _%slot98706%_))))) + (##structure-direct-instance-of? _%obj98816%_ __tmp101769)) + (unchecked-field-ref _%obj98816%_ _%field98814%_) + (unchecked-slot-ref _%obj98816%_ _%slot98813%_))))) (define make-class-cached-slot-unchecked-mutator - (lambda (_%klass98698%_ _%slot98699%_ _%field98700%_) - (lambda (_%obj98702%_ _%val98703%_) - (if (let ((__tmp101663 - (let () (declare (not safe)) (##type-id _%klass98698%_)))) + (lambda (_%klass98805%_ _%slot98806%_ _%field98807%_) + (lambda (_%obj98809%_ _%val98810%_) + (if (let ((__tmp101770 + (let () (declare (not safe)) (##type-id _%klass98805%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98702%_ __tmp101663)) - (unchecked-field-set! _%obj98702%_ _%field98700%_ _%val98703%_) - (unchecked-slot-set! _%obj98702%_ _%slot98699%_ _%val98703%_))))) + (##structure-direct-instance-of? _%obj98809%_ __tmp101770)) + (unchecked-field-set! _%obj98809%_ _%field98807%_ _%val98810%_) + (unchecked-slot-set! _%obj98809%_ _%slot98806%_ _%val98810%_))))) (define class-slot-offset - (lambda (_%klass98673%_ _%slot98674%_) + (lambda (_%klass98780%_ _%slot98781%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98673%_ 'class)) - (let ((_%klass98678%_ _%klass98673%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98674%_)) - (let ((_%slot98688%_ _%slot98674%_)) - (__class-slot-offset _%klass98678%_ _%slot98688%_)) + (##structure-instance-of? _%klass98780%_ 'class)) + (let ((_%klass98785%_ _%klass98780%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98781%_)) + (let ((_%slot98795%_ _%slot98781%_)) + (__class-slot-offset _%klass98785%_ _%slot98795%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2156,7 +2156,7 @@ 'contract: 'symbolic? 'value: - _%slot98674%_) + _%slot98781%_) '#!void))) (begin (raise-contract-violation-error @@ -2166,30 +2166,30 @@ 'contract: 'class-type? 'value: - _%klass98673%_) + _%klass98780%_) '#!void)))) (define __class-slot-offset - (lambda (_%klass98652%_ _%slot98653%_) - (let* ((_%klass98656%_ _%klass98652%_) - (_%slot98664%_ _%slot98653%_) - (__tmp101664 + (lambda (_%klass98759%_ _%slot98760%_) + (let* ((_%klass98763%_ _%klass98759%_) + (_%slot98771%_ _%slot98760%_) + (__tmp101771 (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98656%_ '8 '#f '#f)))) + (##unchecked-structure-ref _%klass98763%_ '8 '#f '#f)))) (declare (not safe)) - (symbolic-table-ref __tmp101664 _%slot98664%_ '#f)))) + (symbolic-table-ref __tmp101771 _%slot98771%_ '#f)))) (define class-slot-ref - (lambda (_%klass98626%_ _%obj98627%_ _%slot98628%_) + (lambda (_%klass98733%_ _%obj98734%_ _%slot98735%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98626%_ 'class)) - (let ((_%klass98632%_ _%klass98626%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98628%_)) - (let ((_%slot98642%_ _%slot98628%_)) + (##structure-instance-of? _%klass98733%_ 'class)) + (let ((_%klass98739%_ _%klass98733%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98735%_)) + (let ((_%slot98749%_ _%slot98735%_)) (__class-slot-ref - _%klass98632%_ - _%obj98627%_ - _%slot98642%_)) + _%klass98739%_ + _%obj98734%_ + _%slot98749%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2198,7 +2198,7 @@ 'contract: 'symbolic? 'value: - _%slot98628%_) + _%slot98735%_) '#!void))) (begin (raise-contract-violation-error @@ -2208,38 +2208,38 @@ 'contract: 'class-type? 'value: - _%klass98626%_) + _%klass98733%_) '#!void)))) (define __class-slot-ref - (lambda (_%klass98602%_ _%obj98603%_ _%slot98604%_) - (let* ((_%klass98607%_ _%klass98602%_) (_%slot98615%_ _%slot98604%_)) - (if (__class-instance? _%klass98607%_ _%obj98603%_) - (let ((_%off98624%_ + (lambda (_%klass98709%_ _%obj98710%_ _%slot98711%_) + (let* ((_%klass98714%_ _%klass98709%_) (_%slot98722%_ _%slot98711%_)) + (if (__class-instance? _%klass98714%_ _%obj98710%_) + (let ((_%off98731%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98603%_)) - _%slot98615%_))) + (##structure-type _%obj98710%_)) + _%slot98722%_))) (declare (not safe)) (##unchecked-structure-ref - _%obj98603%_ - _%off98624%_ - _%klass98607%_ - _%slot98615%_)) - (not-an-instance__0 _%obj98603%_ _%klass98607%_))))) + _%obj98710%_ + _%off98731%_ + _%klass98714%_ + _%slot98722%_)) + (not-an-instance__0 _%obj98710%_ _%klass98714%_))))) (define class-slot-set! - (lambda (_%klass98575%_ _%obj98576%_ _%slot98577%_ _%val98578%_) + (lambda (_%klass98682%_ _%obj98683%_ _%slot98684%_ _%val98685%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98575%_ 'class)) - (let ((_%klass98582%_ _%klass98575%_)) - (if (let () (declare (not safe)) (symbolic? _%slot98577%_)) - (let ((_%slot98592%_ _%slot98577%_)) + (##structure-instance-of? _%klass98682%_ 'class)) + (let ((_%klass98689%_ _%klass98682%_)) + (if (let () (declare (not safe)) (symbolic? _%slot98684%_)) + (let ((_%slot98699%_ _%slot98684%_)) (__class-slot-set! - _%klass98582%_ - _%obj98576%_ - _%slot98592%_ - _%val98578%_)) + _%klass98689%_ + _%obj98683%_ + _%slot98699%_ + _%val98685%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2248,7 +2248,7 @@ 'contract: 'symbolic? 'value: - _%slot98577%_) + _%slot98684%_) '#!void))) (begin (raise-contract-violation-error @@ -2258,69 +2258,69 @@ 'contract: 'class-type? 'value: - _%klass98575%_) + _%klass98682%_) '#!void)))) (define __class-slot-set! - (lambda (_%klass98550%_ _%obj98551%_ _%slot98552%_ _%val98553%_) - (let* ((_%klass98556%_ _%klass98550%_) (_%slot98564%_ _%slot98552%_)) - (if (__class-instance? _%klass98556%_ _%obj98551%_) - (let ((_%off98573%_ + (lambda (_%klass98657%_ _%obj98658%_ _%slot98659%_ _%val98660%_) + (let* ((_%klass98663%_ _%klass98657%_) (_%slot98671%_ _%slot98659%_)) + (if (__class-instance? _%klass98663%_ _%obj98658%_) + (let ((_%off98680%_ (class-slot-offset (let () (declare (not safe)) - (##structure-type _%obj98551%_)) - _%slot98564%_))) + (##structure-type _%obj98658%_)) + _%slot98671%_))) (declare (not safe)) (##unchecked-structure-set! - _%obj98551%_ - _%val98553%_ - _%off98573%_ - _%klass98556%_ - _%slot98564%_)) - (not-an-instance__0 _%obj98551%_ _%klass98556%_))))) + _%obj98658%_ + _%val98660%_ + _%off98680%_ + _%klass98663%_ + _%slot98671%_)) + (not-an-instance__0 _%obj98658%_ _%klass98663%_))))) (define unchecked-field-ref - (lambda (_%obj98547%_ _%off98548%_) - (let ((__tmp101665 - (let () (declare (not safe)) (##structure-type _%obj98547%_)))) + (lambda (_%obj98654%_ _%off98655%_) + (let ((__tmp101772 + (let () (declare (not safe)) (##structure-type _%obj98654%_)))) (declare (not safe)) (##unchecked-structure-ref - _%obj98547%_ - _%off98548%_ - __tmp101665 + _%obj98654%_ + _%off98655%_ + __tmp101772 '#f)))) (define unchecked-field-set! - (lambda (_%obj98543%_ _%off98544%_ _%val98545%_) - (let ((__tmp101666 - (let () (declare (not safe)) (##structure-type _%obj98543%_)))) + (lambda (_%obj98650%_ _%off98651%_ _%val98652%_) + (let ((__tmp101773 + (let () (declare (not safe)) (##structure-type _%obj98650%_)))) (declare (not safe)) (##unchecked-structure-set! - _%obj98543%_ - _%val98545%_ - _%off98544%_ - __tmp101666 + _%obj98650%_ + _%val98652%_ + _%off98651%_ + __tmp101773 '#f)))) (define unchecked-slot-ref - (lambda (_%obj98540%_ _%slot98541%_) + (lambda (_%obj98647%_ _%slot98648%_) (unchecked-field-ref - _%obj98540%_ + _%obj98647%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98540%_)) - _%slot98541%_)))) + (let () (declare (not safe)) (##structure-type _%obj98647%_)) + _%slot98648%_)))) (define unchecked-slot-set! - (lambda (_%obj98536%_ _%slot98537%_ _%val98538%_) + (lambda (_%obj98643%_ _%slot98644%_ _%val98645%_) (unchecked-field-set! - _%obj98536%_ + _%obj98643%_ (__class-slot-offset - (let () (declare (not safe)) (##structure-type _%obj98536%_)) - _%slot98537%_) - _%val98538%_))) + (let () (declare (not safe)) (##structure-type _%obj98643%_)) + _%slot98644%_) + _%val98645%_))) (define slot-ref__% - (lambda (_%obj98498%_ _%slot98499%_ _%E98500%_) - (if (symbol? _%slot98499%_) - (let ((_%slot98504%_ _%slot98499%_)) - (if (procedure? _%E98500%_) - (let ((_%E98514%_ _%E98500%_)) - (__slot-ref__% _%obj98498%_ _%slot98504%_ _%E98514%_)) + (lambda (_%obj98605%_ _%slot98606%_ _%E98607%_) + (if (symbol? _%slot98606%_) + (let ((_%slot98611%_ _%slot98606%_)) + (if (procedure? _%E98607%_) + (let ((_%E98621%_ _%E98607%_)) + (__slot-ref__% _%obj98605%_ _%slot98611%_ _%E98621%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2329,7 +2329,7 @@ 'contract: 'procedure? 'value: - _%E98500%_) + _%E98607%_) '#!void))) (begin (raise-contract-violation-error @@ -2339,63 +2339,63 @@ 'contract: 'symbol? 'value: - _%slot98499%_) + _%slot98606%_) '#!void)))) (define slot-ref__0 - (lambda (_%obj98527%_ _%slot98528%_) - (let ((_%E98530%_ __slot-error)) - (slot-ref__% _%obj98527%_ _%slot98528%_ _%E98530%_)))) + (lambda (_%obj98634%_ _%slot98635%_) + (let ((_%E98637%_ __slot-error)) + (slot-ref__% _%obj98634%_ _%slot98635%_ _%E98637%_)))) (define slot-ref - (lambda _g101668_ - (let ((_g101667_ (let () (declare (not safe)) (##length _g101668_)))) - (cond ((let () (declare (not safe)) (##fx= _g101667_ 2)) - (apply slot-ref__0 _g101668_)) - ((let () (declare (not safe)) (##fx= _g101667_ 3)) - (apply slot-ref__% _g101668_)) + (lambda _g101775_ + (let ((_g101774_ (let () (declare (not safe)) (##length _g101775_)))) + (cond ((let () (declare (not safe)) (##fx= _g101774_ 2)) + (apply slot-ref__0 _g101775_)) + ((let () (declare (not safe)) (##fx= _g101774_ 3)) + (apply slot-ref__% _g101775_)) (else (##raise-wrong-number-of-arguments-exception slot-ref - _g101668_)))))) + _g101775_)))))) (define __slot-ref__% - (lambda (_%obj98454%_ _%slot98455%_ _%E98456%_) - (let* ((_%slot98459%_ _%slot98455%_) - (_%E98467%_ _%E98456%_) - (_%klass98476%_ (class-of _%obj98454%_)) - (_%$e98479%_ - (__class-slot-offset _%klass98476%_ _%slot98459%_))) - (if _%$e98479%_ - ((lambda (_%off98482%_) - (unchecked-field-ref _%obj98454%_ _%off98482%_)) - _%$e98479%_) + (lambda (_%obj98561%_ _%slot98562%_ _%E98563%_) + (let* ((_%slot98566%_ _%slot98562%_) + (_%E98574%_ _%E98563%_) + (_%klass98583%_ (class-of _%obj98561%_)) + (_%$e98586%_ + (__class-slot-offset _%klass98583%_ _%slot98566%_))) + (if _%$e98586%_ + ((lambda (_%off98589%_) + (unchecked-field-ref _%obj98561%_ _%off98589%_)) + _%$e98586%_) (let () (declare (not safe)) - (_%E98467%_ _%obj98454%_ _%slot98459%_)))))) + (_%E98574%_ _%obj98561%_ _%slot98566%_)))))) (define __slot-ref__0 - (lambda (_%obj98488%_ _%slot98489%_) - (let ((_%E98491%_ __slot-error)) - (__slot-ref__% _%obj98488%_ _%slot98489%_ _%E98491%_)))) + (lambda (_%obj98595%_ _%slot98596%_) + (let ((_%E98598%_ __slot-error)) + (__slot-ref__% _%obj98595%_ _%slot98596%_ _%E98598%_)))) (define __slot-ref - (lambda _g101670_ - (let ((_g101669_ (let () (declare (not safe)) (##length _g101670_)))) - (cond ((let () (declare (not safe)) (##fx= _g101669_ 2)) - (apply __slot-ref__0 _g101670_)) - ((let () (declare (not safe)) (##fx= _g101669_ 3)) - (apply __slot-ref__% _g101670_)) + (lambda _g101777_ + (let ((_g101776_ (let () (declare (not safe)) (##length _g101777_)))) + (cond ((let () (declare (not safe)) (##fx= _g101776_ 2)) + (apply __slot-ref__0 _g101777_)) + ((let () (declare (not safe)) (##fx= _g101776_ 3)) + (apply __slot-ref__% _g101777_)) (else (##raise-wrong-number-of-arguments-exception __slot-ref - _g101670_)))))) + _g101777_)))))) (define slot-set!__% - (lambda (_%obj98412%_ _%slot98413%_ _%val98414%_ _%E98415%_) - (if (symbol? _%slot98413%_) - (let ((_%slot98419%_ _%slot98413%_)) - (if (procedure? _%E98415%_) - (let ((_%E98429%_ _%E98415%_)) + (lambda (_%obj98519%_ _%slot98520%_ _%val98521%_ _%E98522%_) + (if (symbol? _%slot98520%_) + (let ((_%slot98526%_ _%slot98520%_)) + (if (procedure? _%E98522%_) + (let ((_%E98536%_ _%E98522%_)) (__slot-set!__% - _%obj98412%_ - _%slot98419%_ - _%val98414%_ - _%E98429%_)) + _%obj98519%_ + _%slot98526%_ + _%val98521%_ + _%E98536%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2404,7 +2404,7 @@ 'contract: 'procedure? 'value: - _%E98415%_) + _%E98522%_) '#!void))) (begin (raise-contract-violation-error @@ -2414,79 +2414,79 @@ 'contract: 'symbol? 'value: - _%slot98413%_) + _%slot98520%_) '#!void)))) (define slot-set!__0 - (lambda (_%obj98442%_ _%slot98443%_ _%val98444%_) - (let ((_%E98446%_ __slot-error)) - (slot-set!__% _%obj98442%_ _%slot98443%_ _%val98444%_ _%E98446%_)))) + (lambda (_%obj98549%_ _%slot98550%_ _%val98551%_) + (let ((_%E98553%_ __slot-error)) + (slot-set!__% _%obj98549%_ _%slot98550%_ _%val98551%_ _%E98553%_)))) (define slot-set! - (lambda _g101672_ - (let ((_g101671_ (let () (declare (not safe)) (##length _g101672_)))) - (cond ((let () (declare (not safe)) (##fx= _g101671_ 3)) - (apply slot-set!__0 _g101672_)) - ((let () (declare (not safe)) (##fx= _g101671_ 4)) - (apply slot-set!__% _g101672_)) + (lambda _g101779_ + (let ((_g101778_ (let () (declare (not safe)) (##length _g101779_)))) + (cond ((let () (declare (not safe)) (##fx= _g101778_ 3)) + (apply slot-set!__0 _g101779_)) + ((let () (declare (not safe)) (##fx= _g101778_ 4)) + (apply slot-set!__% _g101779_)) (else (##raise-wrong-number-of-arguments-exception slot-set! - _g101672_)))))) + _g101779_)))))) (define __slot-set!__% - (lambda (_%obj98365%_ _%slot98366%_ _%val98367%_ _%E98368%_) - (let* ((_%slot98371%_ _%slot98366%_) - (_%E98379%_ _%E98368%_) - (_%klass98388%_ (class-of _%obj98365%_)) - (_%$e98391%_ - (__class-slot-offset _%klass98388%_ _%slot98371%_))) - (if _%$e98391%_ - ((lambda (_%off98394%_) - (unchecked-field-set! _%obj98365%_ _%off98394%_ _%val98367%_)) - _%$e98391%_) + (lambda (_%obj98472%_ _%slot98473%_ _%val98474%_ _%E98475%_) + (let* ((_%slot98478%_ _%slot98473%_) + (_%E98486%_ _%E98475%_) + (_%klass98495%_ (class-of _%obj98472%_)) + (_%$e98498%_ + (__class-slot-offset _%klass98495%_ _%slot98478%_))) + (if _%$e98498%_ + ((lambda (_%off98501%_) + (unchecked-field-set! _%obj98472%_ _%off98501%_ _%val98474%_)) + _%$e98498%_) (let () (declare (not safe)) - (_%E98379%_ _%obj98365%_ _%slot98371%_)))))) + (_%E98486%_ _%obj98472%_ _%slot98478%_)))))) (define __slot-set!__0 - (lambda (_%obj98400%_ _%slot98401%_ _%val98402%_) - (let ((_%E98404%_ __slot-error)) + (lambda (_%obj98507%_ _%slot98508%_ _%val98509%_) + (let ((_%E98511%_ __slot-error)) (__slot-set!__% - _%obj98400%_ - _%slot98401%_ - _%val98402%_ - _%E98404%_)))) + _%obj98507%_ + _%slot98508%_ + _%val98509%_ + _%E98511%_)))) (define __slot-set! - (lambda _g101674_ - (let ((_g101673_ (let () (declare (not safe)) (##length _g101674_)))) - (cond ((let () (declare (not safe)) (##fx= _g101673_ 3)) - (apply __slot-set!__0 _g101674_)) - ((let () (declare (not safe)) (##fx= _g101673_ 4)) - (apply __slot-set!__% _g101674_)) + (lambda _g101781_ + (let ((_g101780_ (let () (declare (not safe)) (##length _g101781_)))) + (cond ((let () (declare (not safe)) (##fx= _g101780_ 3)) + (apply __slot-set!__0 _g101781_)) + ((let () (declare (not safe)) (##fx= _g101780_ 4)) + (apply __slot-set!__% _g101781_)) (else (##raise-wrong-number-of-arguments-exception __slot-set! - _g101674_)))))) + _g101781_)))))) (define __slot-error - (lambda (_%obj98361%_ _%slot98362%_) + (lambda (_%obj98468%_ _%slot98469%_) (error '"Cannot find slot" 'object: - _%obj98361%_ + _%obj98468%_ 'slot: - _%slot98362%_))) + _%slot98469%_))) (define subclass? - (lambda (_%maybe-sub-class98336%_ _%maybe-super-class98337%_) + (lambda (_%maybe-sub-class98443%_ _%maybe-super-class98444%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%maybe-sub-class98336%_ 'class)) - (let ((_%maybe-sub-class98341%_ _%maybe-sub-class98336%_)) + (##structure-instance-of? _%maybe-sub-class98443%_ 'class)) + (let ((_%maybe-sub-class98448%_ _%maybe-sub-class98443%_)) (if (let () (declare (not safe)) (##structure-instance-of? - _%maybe-super-class98337%_ + _%maybe-super-class98444%_ 'class)) - (let ((_%maybe-super-class98351%_ - _%maybe-super-class98337%_)) + (let ((_%maybe-super-class98458%_ + _%maybe-super-class98444%_)) (__subclass? - _%maybe-sub-class98341%_ - _%maybe-super-class98351%_)) + _%maybe-sub-class98448%_ + _%maybe-super-class98458%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2495,7 +2495,7 @@ 'contract: 'class-type? 'value: - _%maybe-super-class98337%_) + _%maybe-super-class98444%_) '#!void))) (begin (raise-contract-violation-error @@ -2505,71 +2505,71 @@ 'contract: 'class-type? 'value: - _%maybe-sub-class98336%_) + _%maybe-sub-class98443%_) '#!void)))) (define __subclass? - (lambda (_%maybe-sub-class98308%_ _%maybe-super-class98309%_) - (let* ((_%maybe-sub-class98312%_ _%maybe-sub-class98308%_) - (_%maybe-super-class98320%_ _%maybe-super-class98309%_) - (_%maybe-super-class-id98329%_ + (lambda (_%maybe-sub-class98415%_ _%maybe-super-class98416%_) + (let* ((_%maybe-sub-class98419%_ _%maybe-sub-class98415%_) + (_%maybe-super-class98427%_ _%maybe-super-class98416%_) + (_%maybe-super-class-id98436%_ (let () (declare (not safe)) - (##type-id _%maybe-super-class98320%_))) - (_%$e98331%_ - (eq? _%maybe-super-class-id98329%_ + (##type-id _%maybe-super-class98427%_))) + (_%$e98438%_ + (eq? _%maybe-super-class-id98436%_ (let () (declare (not safe)) - (##type-id _%maybe-sub-class98312%_))))) - (if _%$e98331%_ - _%$e98331%_ - (let ((__tmp101676 - (lambda (_%super-class98334%_) + (##type-id _%maybe-sub-class98419%_))))) + (if _%$e98438%_ + _%$e98438%_ + (let ((__tmp101783 + (lambda (_%super-class98441%_) (eq? (let () (declare (not safe)) - (##type-id _%super-class98334%_)) - _%maybe-super-class-id98329%_))) - (__tmp101675 + (##type-id _%super-class98441%_)) + _%maybe-super-class-id98436%_))) + (__tmp101782 (let () (declare (not safe)) (##unchecked-structure-ref - _%maybe-sub-class98312%_ + _%maybe-sub-class98419%_ '6 '#f '#f)))) (declare (not safe)) - (__ormap1 __tmp101676 __tmp101675)))))) + (__ormap1 __tmp101783 __tmp101782)))))) (define object? - (lambda (_%o98305%_) - (if (let () (declare (not safe)) (##structure? _%o98305%_)) - (let ((__tmp101677 + (lambda (_%o98412%_) + (if (let () (declare (not safe)) (##structure? _%o98412%_)) + (let ((__tmp101784 (let () (declare (not safe)) - (##structure-type _%o98305%_)))) + (##structure-type _%o98412%_)))) (declare (not safe)) - (##structure-instance-of? __tmp101677 'class)) + (##structure-instance-of? __tmp101784 'class)) '#f))) (define object-type - (lambda (_%o98300%_) - (if (let () (declare (not safe)) (##structure? _%o98300%_)) - (let ((_%klass98303%_ + (lambda (_%o98407%_) + (if (let () (declare (not safe)) (##structure? _%o98407%_)) + (let ((_%klass98410%_ (let () (declare (not safe)) - (##structure-type _%o98300%_)))) + (##structure-type _%o98407%_)))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98303%_ 'class)) - _%klass98303%_ + (##structure-instance-of? _%klass98410%_ 'class)) + _%klass98410%_ (begin - (error '"not an object" _%o98300%_ _%klass98303%_) + (error '"not an object" _%o98407%_ _%klass98410%_) '#!void))) - (begin (error '"not an object" _%o98300%_) '#!void)))) + (begin (error '"not an object" _%o98407%_) '#!void)))) (define direct-instance? - (lambda (_%klass98285%_ _%obj98286%_) + (lambda (_%klass98392%_ _%obj98393%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98285%_ 'class)) - (let ((_%klass98290%_ _%klass98285%_)) - (__direct-instance? _%klass98290%_ _%obj98286%_)) + (##structure-instance-of? _%klass98392%_ 'class)) + (let ((_%klass98397%_ _%klass98392%_)) + (__direct-instance? _%klass98397%_ _%obj98393%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2578,28 +2578,28 @@ 'contract: 'class-type? 'value: - _%klass98285%_) + _%klass98392%_) '#!void)))) (define __direct-instance? - (lambda (_%klass98272%_ _%obj98273%_) - (let* ((_%klass98276%_ _%klass98272%_) - (__tmp101678 - (let () (declare (not safe)) (##type-id _%klass98276%_)))) + (lambda (_%klass98379%_ _%obj98380%_) + (let* ((_%klass98383%_ _%klass98379%_) + (__tmp101785 + (let () (declare (not safe)) (##type-id _%klass98383%_)))) (declare (not safe)) - (##structure-direct-instance-of? _%obj98273%_ __tmp101678)))) + (##structure-direct-instance-of? _%obj98380%_ __tmp101785)))) (define immediate-instance-of? - (lambda (_%klass98268%_ _%obj98269%_) - (if (let () (declare (not safe)) (##structure? _%obj98269%_)) - (eq? _%klass98268%_ - (let () (declare (not safe)) (##structure-type _%obj98269%_))) + (lambda (_%klass98375%_ _%obj98376%_) + (if (let () (declare (not safe)) (##structure? _%obj98376%_)) + (eq? _%klass98375%_ + (let () (declare (not safe)) (##structure-type _%obj98376%_))) '#f))) (define struct-instance? - (lambda (_%klass98253%_ _%obj98254%_) + (lambda (_%klass98360%_ _%obj98361%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98253%_ 'class)) - (let ((_%klass98258%_ _%klass98253%_)) - (__struct-instance? _%klass98258%_ _%obj98254%_)) + (##structure-instance-of? _%klass98360%_ 'class)) + (let ((_%klass98365%_ _%klass98360%_)) + (__struct-instance? _%klass98365%_ _%obj98361%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2608,22 +2608,22 @@ 'contract: 'class-type? 'value: - _%klass98253%_) + _%klass98360%_) '#!void)))) (define __struct-instance? - (lambda (_%klass98240%_ _%obj98241%_) - (let* ((_%klass98244%_ _%klass98240%_) - (__tmp101679 - (let () (declare (not safe)) (##type-id _%klass98244%_)))) + (lambda (_%klass98347%_ _%obj98348%_) + (let* ((_%klass98351%_ _%klass98347%_) + (__tmp101786 + (let () (declare (not safe)) (##type-id _%klass98351%_)))) (declare (not safe)) - (##structure-instance-of? _%obj98241%_ __tmp101679)))) + (##structure-instance-of? _%obj98348%_ __tmp101786)))) (define class-instance? - (lambda (_%klass98225%_ _%obj98226%_) + (lambda (_%klass98332%_ _%obj98333%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98225%_ 'class)) - (let ((_%klass98230%_ _%klass98225%_)) - (__class-instance? _%klass98230%_ _%obj98226%_)) + (##structure-instance-of? _%klass98332%_ 'class)) + (let ((_%klass98337%_ _%klass98332%_)) + (__class-instance? _%klass98337%_ _%obj98333%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2632,22 +2632,22 @@ 'contract: 'class-type? 'value: - _%klass98225%_) + _%klass98332%_) '#!void)))) (define __class-instance? - (lambda (_%klass98210%_ _%obj98211%_) - (let* ((_%klass98214%_ _%klass98210%_) - (_%type98223%_ (class-of _%obj98211%_))) - (__subclass? _%type98223%_ _%klass98214%_)))) + (lambda (_%klass98317%_ _%obj98318%_) + (let* ((_%klass98321%_ _%klass98317%_) + (_%type98330%_ (class-of _%obj98318%_))) + (__subclass? _%type98330%_ _%klass98321%_)))) (define make-object - (lambda (_%klass98185%_ _%k98186%_) + (lambda (_%klass98292%_ _%k98293%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98185%_ 'class)) - (let ((_%klass98190%_ _%klass98185%_)) - (if (fixnum? _%k98186%_) - (let ((_%k98200%_ _%k98186%_)) - (__make-object _%klass98190%_ _%k98200%_)) + (##structure-instance-of? _%klass98292%_ 'class)) + (let ((_%klass98297%_ _%klass98292%_)) + (if (fixnum? _%k98293%_) + (let ((_%k98307%_ _%k98293%_)) + (__make-object _%klass98297%_ _%k98307%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2656,7 +2656,7 @@ 'contract: 'fixnum? 'value: - _%k98186%_) + _%k98293%_) '#!void))) (begin (raise-contract-violation-error @@ -2666,27 +2666,27 @@ 'contract: 'class-type? 'value: - _%klass98185%_) + _%klass98292%_) '#!void)))) (define __make-object - (lambda (_%klass98162%_ _%k98163%_) - (let* ((_%klass98166%_ _%klass98162%_) (_%k98174%_ _%k98163%_)) - (if (__class-type-system? _%klass98166%_) + (lambda (_%klass98269%_ _%k98270%_) + (let* ((_%klass98273%_ _%klass98269%_) (_%k98281%_ _%k98270%_)) + (if (__class-type-system? _%klass98273%_) (begin (error '"cannot instantiate system class" 'class: - _%klass98166%_) + _%klass98273%_) '#!void) - (let ((_%obj98183%_ + (let ((_%obj98290%_ (let () (declare (not safe)) - (##make-structure _%klass98166%_ _%k98174%_)))) - (object-fill! _%obj98183%_ '#f)))))) + (##make-structure _%klass98273%_ _%k98281%_)))) + (object-fill! _%obj98290%_ '#f)))))) (define object-fill! - (lambda (_%obj98147%_ _%fill98148%_) + (lambda (_%obj98254%_ _%fill98255%_) (if '#t - (let ((_%obj98152%_ _%obj98147%_)) - (__object-fill! _%obj98152%_ _%fill98148%_)) + (let ((_%obj98259%_ _%obj98254%_)) + (__object-fill! _%obj98259%_ _%fill98255%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2695,38 +2695,38 @@ 'contract: 'true 'value: - _%obj98147%_) + _%obj98254%_) '#!void)))) (define __object-fill! - (lambda (_%obj98129%_ _%fill98130%_) - (let ((_%obj98133%_ _%obj98129%_)) - (let _%loop98142%_ ((_%i98144%_ - (let ((__tmp101680 + (lambda (_%obj98236%_ _%fill98237%_) + (let ((_%obj98240%_ _%obj98236%_)) + (let _%loop98249%_ ((_%i98251%_ + (let ((__tmp101787 (let () (declare (not safe)) - (##structure-length _%obj98133%_)))) + (##structure-length _%obj98240%_)))) (declare (not safe)) - (##fx- __tmp101680 '1)))) - (if (let () (declare (not safe)) (##fx> _%i98144%_ '0)) + (##fx- __tmp101787 '1)))) + (if (let () (declare (not safe)) (##fx> _%i98251%_ '0)) (begin (let () (declare (not safe)) (##unchecked-structure-set! - _%obj98133%_ - _%fill98130%_ - _%i98144%_ + _%obj98240%_ + _%fill98237%_ + _%i98251%_ '#f '#f)) - (_%loop98142%_ - (let () (declare (not safe)) (##fx- _%i98144%_ '1)))) - _%obj98133%_))))) + (_%loop98249%_ + (let () (declare (not safe)) (##fx- _%i98251%_ '1)))) + _%obj98240%_))))) (define new-instance - (lambda (_%klass98115%_) + (lambda (_%klass98222%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98115%_ 'class)) - (let ((_%klass98119%_ _%klass98115%_)) - (__new-instance _%klass98119%_)) + (##structure-instance-of? _%klass98222%_ 'class)) + (let ((_%klass98226%_ _%klass98222%_)) + (__new-instance _%klass98226%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2735,35 +2735,35 @@ 'contract: 'class-type? 'value: - _%klass98115%_) + _%klass98222%_) '#!void)))) (define __new-instance - (lambda (_%klass98103%_) - (let* ((_%klass98106%_ _%klass98103%_) - (__obj101595 - (let ((__tmp101681 - (let ((__tmp101682 + (lambda (_%klass98210%_) + (let* ((_%klass98213%_ _%klass98210%_) + (__obj101702 + (let ((__tmp101788 + (let ((__tmp101789 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass98106%_ + _%klass98213%_ '7 '#f '#f)))) (declare (not safe)) - (##vector-length __tmp101682)))) + (##vector-length __tmp101789)))) (declare (not safe)) - (##make-structure _%klass98106%_ __tmp101681)))) - (object-fill! __obj101595 '#f) - __obj101595))) + (##make-structure _%klass98213%_ __tmp101788)))) + (object-fill! __obj101702 '#f) + __obj101702))) (define make-instance - (lambda (_%klass98088%_ . _%args98089%_) + (lambda (_%klass98195%_ . _%args98196%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass98088%_ 'class)) - (let ((_%klass98093%_ _%klass98088%_)) + (##structure-instance-of? _%klass98195%_ 'class)) + (let ((_%klass98200%_ _%klass98195%_)) (declare (not safe)) - (##apply __make-instance _%klass98093%_ _%args98089%_)) + (##apply __make-instance _%klass98200%_ _%args98196%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2772,64 +2772,64 @@ 'contract: 'class-type? 'value: - _%klass98088%_) + _%klass98195%_) '#!void)))) (define __make-instance - (lambda (_%klass98060%_ . _%args98061%_) - (let* ((_%klass98064%_ _%klass98060%_) - (_%$e98073%_ + (lambda (_%klass98167%_ . _%args98168%_) + (let* ((_%klass98171%_ _%klass98167%_) + (_%$e98180%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass98064%_ '10 '#f '#f)))) - (if _%$e98073%_ - ((lambda (_%kons-id98076%_) - (let ((_%obj98078%_ (__new-instance _%klass98064%_))) + (##unchecked-structure-ref _%klass98171%_ '10 '#f '#f)))) + (if _%$e98180%_ + ((lambda (_%kons-id98183%_) + (let ((_%obj98185%_ (__new-instance _%klass98171%_))) (___constructor-init! - _%klass98064%_ - _%kons-id98076%_ - _%obj98078%_ - _%args98061%_) - _%obj98078%_)) - _%$e98073%_) - (if (__class-type-metaclass? _%klass98064%_) - (let ((_%obj98081%_ (__new-instance _%klass98064%_))) + _%klass98171%_ + _%kons-id98183%_ + _%obj98185%_ + _%args98168%_) + _%obj98185%_)) + _%$e98180%_) + (if (__class-type-metaclass? _%klass98171%_) + (let ((_%obj98188%_ (__new-instance _%klass98171%_))) (__metaclass-instance-init! - _%klass98064%_ - _%obj98081%_ - _%args98061%_) - _%obj98081%_) - (if (__class-type-struct? _%klass98064%_) - (if (let ((__tmp101684 - (__class-type-field-count _%klass98064%_)) - (__tmp101683 + _%klass98171%_ + _%obj98188%_ + _%args98168%_) + _%obj98188%_) + (if (__class-type-struct? _%klass98171%_) + (if (let ((__tmp101791 + (__class-type-field-count _%klass98171%_)) + (__tmp101790 (let () (declare (not safe)) - (##length _%args98061%_)))) + (##length _%args98168%_)))) (declare (not safe)) - (##fx= __tmp101684 __tmp101683)) - (apply ##structure _%klass98064%_ _%args98061%_) + (##fx= __tmp101791 __tmp101790)) + (apply ##structure _%klass98171%_ _%args98168%_) (let () (error '"arguments don't match object size" 'class: - _%klass98064%_ + _%klass98171%_ 'slots: - (__class-type-slot-list _%klass98064%_) + (__class-type-slot-list _%klass98171%_) 'args: - _%args98061%_) + _%args98168%_) '#!void)) - (let ((_%obj98084%_ (__new-instance _%klass98064%_))) + (let ((_%obj98191%_ (__new-instance _%klass98171%_))) (___class-instance-init! - _%klass98064%_ - _%obj98084%_ - _%args98061%_) - _%obj98084%_))))))) + _%klass98171%_ + _%obj98191%_ + _%args98168%_) + _%obj98191%_))))))) (define make-class-instance make-instance) (define struct-instance-init! - (lambda (_%obj98045%_ . _%args98046%_) + (lambda (_%obj98152%_ . _%args98153%_) (if '#t - (let ((_%obj98050%_ _%obj98045%_)) + (let ((_%obj98157%_ _%obj98152%_)) (declare (not safe)) - (##apply __struct-instance-init! _%obj98050%_ _%args98046%_)) + (##apply __struct-instance-init! _%obj98157%_ _%args98153%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2838,56 +2838,56 @@ 'contract: 'true 'value: - _%obj98045%_) + _%obj98152%_) '#!void)))) (define __struct-instance-init! - (lambda (_%obj98032%_ . _%args98033%_) - (let ((_%obj98036%_ _%obj98032%_)) - (if (let ((__tmp101686 - (let () (declare (not safe)) (##length _%args98033%_))) - (__tmp101685 + (lambda (_%obj98139%_ . _%args98140%_) + (let ((_%obj98143%_ _%obj98139%_)) + (if (let ((__tmp101793 + (let () (declare (not safe)) (##length _%args98140%_))) + (__tmp101792 (let () (declare (not safe)) - (##structure-length _%obj98036%_)))) + (##structure-length _%obj98143%_)))) (declare (not safe)) - (##fx< __tmp101686 __tmp101685)) - (___struct-instance-init! _%obj98036%_ _%args98033%_) + (##fx< __tmp101793 __tmp101792)) + (___struct-instance-init! _%obj98143%_ _%args98140%_) (error '"too many arguments for struct" 'object: - _%obj98036%_ + _%obj98143%_ 'args: - _%args98033%_)) + _%args98140%_)) '#!void))) (define ___struct-instance-init! - (lambda (_%obj97991%_ _%args97992%_) - (let _%lp97994%_ ((_%k97996%_ '1) (_%rest97997%_ _%args97992%_)) - (let* ((_%rest9799898006%_ _%rest97997%_) - (_%else9800098014%_ (lambda () _%obj97991%_)) - (_%K9800298020%_ - (lambda (_%rest98017%_ _%hd98018%_) - (unchecked-field-set! _%obj97991%_ _%k97996%_ _%hd98018%_) - (_%lp97994%_ - (let () (declare (not safe)) (##fx+ _%k97996%_ '1)) - _%rest98017%_)))) - (if (pair? _%rest9799898006%_) - (let ((_%hd9800398023%_ + (lambda (_%obj98098%_ _%args98099%_) + (let _%lp98101%_ ((_%k98103%_ '1) (_%rest98104%_ _%args98099%_)) + (let* ((_%rest9810598113%_ _%rest98104%_) + (_%else9810798121%_ (lambda () _%obj98098%_)) + (_%K9810998127%_ + (lambda (_%rest98124%_ _%hd98125%_) + (unchecked-field-set! _%obj98098%_ _%k98103%_ _%hd98125%_) + (_%lp98101%_ + (let () (declare (not safe)) (##fx+ _%k98103%_ '1)) + _%rest98124%_)))) + (if (pair? _%rest9810598113%_) + (let ((_%hd9811098130%_ (let () (declare (not safe)) - (##car _%rest9799898006%_))) - (_%tl9800498025%_ + (##car _%rest9810598113%_))) + (_%tl9811198132%_ (let () (declare (not safe)) - (##cdr _%rest9799898006%_)))) - (let* ((_%hd98028%_ _%hd9800398023%_) - (_%rest98030%_ _%tl9800498025%_)) - (_%K9800298020%_ _%rest98030%_ _%hd98028%_))) - (_%else9800098014%_)))))) + (##cdr _%rest9810598113%_)))) + (let* ((_%hd98135%_ _%hd9811098130%_) + (_%rest98137%_ _%tl9811198132%_)) + (_%K9810998127%_ _%rest98137%_ _%hd98135%_))) + (_%else9810798121%_)))))) (define class-instance-init! - (lambda (_%obj97976%_ . _%args97977%_) + (lambda (_%obj98083%_ . _%args98084%_) (if '#t - (let ((_%obj97981%_ _%obj97976%_)) + (let ((_%obj98088%_ _%obj98083%_)) (declare (not safe)) - (##apply __class-instance-init! _%obj97981%_ _%args97977%_)) + (##apply __class-instance-init! _%obj98088%_ _%args98084%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2896,102 +2896,102 @@ 'contract: 'true 'value: - _%obj97976%_) + _%obj98083%_) '#!void)))) (define __class-instance-init! - (lambda (_%obj97963%_ . _%args97964%_) - (let ((_%obj97967%_ _%obj97963%_)) + (lambda (_%obj98070%_ . _%args98071%_) + (let ((_%obj98074%_ _%obj98070%_)) (___class-instance-init! - (let () (declare (not safe)) (##structure-type _%obj97967%_)) - _%obj97967%_ - _%args97964%_) + (let () (declare (not safe)) (##structure-type _%obj98074%_)) + _%obj98074%_ + _%args98071%_) '#!void))) (define ___class-instance-init! - (lambda (_%klass97905%_ _%obj97906%_ _%args97907%_) - (let _%lp97909%_ ((_%rest97911%_ _%args97907%_)) - (let* ((_%rest9791297922%_ _%rest97911%_) - (_%else9791497930%_ + (lambda (_%klass98012%_ _%obj98013%_ _%args98014%_) + (let _%lp98016%_ ((_%rest98018%_ _%args98014%_)) + (let* ((_%rest9801998029%_ _%rest98018%_) + (_%else9802198037%_ (lambda () - (if (null? _%rest97911%_) - _%obj97906%_ + (if (null? _%rest98018%_) + _%obj98013%_ (error '"unexpected class initializer arguments" 'class: - _%klass97905%_ + _%klass98012%_ 'rest: - _%rest97911%_)))) - (_%K9791697944%_ - (lambda (_%rest97933%_ _%val97934%_ _%key97935%_) - (if (keyword? _%key97935%_) - (let ((_%$e97938%_ + _%rest98018%_)))) + (_%K9802398051%_ + (lambda (_%rest98040%_ _%val98041%_ _%key98042%_) + (if (keyword? _%key98042%_) + (let ((_%$e98045%_ (__class-slot-offset - _%klass97905%_ - _%key97935%_))) - (if _%$e97938%_ - ((lambda (_%off97941%_) + _%klass98012%_ + _%key98042%_))) + (if _%$e98045%_ + ((lambda (_%off98048%_) (unchecked-field-set! - _%obj97906%_ - _%off97941%_ - _%val97934%_) - (_%lp97909%_ _%rest97933%_)) - _%$e97938%_) + _%obj98013%_ + _%off98048%_ + _%val98041%_) + (_%lp98016%_ _%rest98040%_)) + _%$e98045%_) (error '"unknown slot" 'class: - _%klass97905%_ + _%klass98012%_ 'slot: - _%key97935%_))) + _%key98042%_))) (error '"non keyword slot initializer" 'slot: - _%key97935%_))))) - (if (pair? _%rest9791297922%_) - (let ((_%hd9791797947%_ + _%key98042%_))))) + (if (pair? _%rest9801998029%_) + (let ((_%hd9802498054%_ (let () (declare (not safe)) - (##car _%rest9791297922%_))) - (_%tl9791897949%_ + (##car _%rest9801998029%_))) + (_%tl9802598056%_ (let () (declare (not safe)) - (##cdr _%rest9791297922%_)))) - (let ((_%key97952%_ _%hd9791797947%_)) - (if (pair? _%tl9791897949%_) - (let ((_%hd9791997954%_ + (##cdr _%rest9801998029%_)))) + (let ((_%key98059%_ _%hd9802498054%_)) + (if (pair? _%tl9802598056%_) + (let ((_%hd9802698061%_ (let () (declare (not safe)) - (##car _%tl9791897949%_))) - (_%tl9792097956%_ + (##car _%tl9802598056%_))) + (_%tl9802798063%_ (let () (declare (not safe)) - (##cdr _%tl9791897949%_)))) - (let* ((_%val97959%_ _%hd9791997954%_) - (_%rest97961%_ _%tl9792097956%_)) - (_%K9791697944%_ - _%rest97961%_ - _%val97959%_ - _%key97952%_))) - (_%else9791497930%_)))) - (_%else9791497930%_)))))) + (##cdr _%tl9802598056%_)))) + (let* ((_%val98066%_ _%hd9802698061%_) + (_%rest98068%_ _%tl9802798063%_)) + (_%K9802398051%_ + _%rest98068%_ + _%val98066%_ + _%key98059%_))) + (_%else9802198037%_)))) + (_%else9802198037%_)))))) (define __metaclass-instance-init! - (lambda (_%klass97901%_ _%obj97902%_ _%args97903%_) + (lambda (_%klass98008%_ _%obj98009%_ _%args98010%_) (apply call-method - _%klass97901%_ + _%klass98008%_ 'instance-init! - _%obj97902%_ - _%args97903%_))) + _%obj98009%_ + _%args98010%_))) (define constructor-init! - (lambda (_%klass97864%_ _%kons-id97865%_ _%obj97866%_ . _%args97867%_) + (lambda (_%klass97971%_ _%kons-id97972%_ _%obj97973%_ . _%args97974%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97864%_ 'class)) - (let ((_%klass97871%_ _%klass97864%_)) - (if (symbol? _%kons-id97865%_) - (let ((_%kons-id97881%_ _%kons-id97865%_)) + (##structure-instance-of? _%klass97971%_ 'class)) + (let ((_%klass97978%_ _%klass97971%_)) + (if (symbol? _%kons-id97972%_) + (let ((_%kons-id97988%_ _%kons-id97972%_)) (if '#t - (let ((_%obj97891%_ _%obj97866%_)) + (let ((_%obj97998%_ _%obj97973%_)) (declare (not safe)) (##apply __constructor-init! - _%klass97871%_ - _%kons-id97881%_ - _%obj97891%_ - _%args97867%_)) + _%klass97978%_ + _%kons-id97988%_ + _%obj97998%_ + _%args97974%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3000,7 +3000,7 @@ 'contract: 'true 'value: - _%obj97866%_) + _%obj97973%_) '#!void))) (begin (raise-contract-violation-error @@ -3010,7 +3010,7 @@ 'contract: 'symbol? 'value: - _%kons-id97865%_) + _%kons-id97972%_) '#!void))) (begin (raise-contract-violation-error @@ -3020,38 +3020,38 @@ 'contract: 'class-type? 'value: - _%klass97864%_) + _%klass97971%_) '#!void)))) (define __constructor-init! - (lambda (_%klass97833%_ _%kons-id97834%_ _%obj97835%_ . _%args97836%_) - (let* ((_%klass97839%_ _%klass97833%_) - (_%kons-id97847%_ _%kons-id97834%_) - (_%obj97855%_ _%obj97835%_)) + (lambda (_%klass97940%_ _%kons-id97941%_ _%obj97942%_ . _%args97943%_) + (let* ((_%klass97946%_ _%klass97940%_) + (_%kons-id97954%_ _%kons-id97941%_) + (_%obj97962%_ _%obj97942%_)) (___constructor-init! - _%klass97839%_ - _%kons-id97847%_ - _%obj97855%_ - _%args97836%_) + _%klass97946%_ + _%kons-id97954%_ + _%obj97962%_ + _%args97943%_) '#!void))) (define ___constructor-init! - (lambda (_%klass97822%_ _%kons-id97823%_ _%obj97824%_ _%args97825%_) - (let ((_%$e97827%_ - (__find-method _%klass97822%_ _%obj97824%_ _%kons-id97823%_))) - (if _%$e97827%_ - ((lambda (_%kons97830%_) - (apply _%kons97830%_ _%obj97824%_ _%args97825%_) - _%obj97824%_) - _%$e97827%_) + (lambda (_%klass97929%_ _%kons-id97930%_ _%obj97931%_ _%args97932%_) + (let ((_%$e97934%_ + (__find-method _%klass97929%_ _%obj97931%_ _%kons-id97930%_))) + (if _%$e97934%_ + ((lambda (_%kons97937%_) + (apply _%kons97937%_ _%obj97931%_ _%args97932%_) + _%obj97931%_) + _%$e97934%_) (error '"missing constructor" 'class: - _%klass97822%_ + _%klass97929%_ 'method: - _%kons-id97823%_))))) + _%kons-id97930%_))))) (define struct-copy - (lambda (_%struct97808%_) + (lambda (_%struct97915%_) (if '#t - (let ((_%struct97812%_ _%struct97808%_)) - (__struct-copy _%struct97812%_)) + (let ((_%struct97919%_ _%struct97915%_)) + (__struct-copy _%struct97919%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3060,17 +3060,17 @@ 'contract: 'true 'value: - _%struct97808%_) + _%struct97915%_) '#!void)))) (define __struct-copy - (lambda (_%struct97796%_) - (let ((_%struct97799%_ _%struct97796%_)) + (lambda (_%struct97903%_) + (let ((_%struct97906%_ _%struct97903%_)) (declare (not safe)) - (##structure-copy _%struct97799%_)))) + (##structure-copy _%struct97906%_)))) (define struct->list - (lambda (_%obj97782%_) + (lambda (_%obj97889%_) (if '#t - (let ((_%obj97786%_ _%obj97782%_)) (__struct->list _%obj97786%_)) + (let ((_%obj97893%_ _%obj97889%_)) (__struct->list _%obj97893%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3079,17 +3079,17 @@ 'contract: 'true 'value: - _%obj97782%_) + _%obj97889%_) '#!void)))) (define __struct->list - (lambda (_%obj97770%_) - (let ((_%obj97773%_ _%obj97770%_)) + (lambda (_%obj97877%_) + (let ((_%obj97880%_ _%obj97877%_)) (declare (not safe)) - (##vector->list _%obj97773%_)))) + (##vector->list _%obj97880%_)))) (define class->list - (lambda (_%obj97756%_) + (lambda (_%obj97863%_) (if '#t - (let ((_%obj97760%_ _%obj97756%_)) (__class->list _%obj97760%_)) + (let ((_%obj97867%_ _%obj97863%_)) (__class->list _%obj97867%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3098,47 +3098,47 @@ 'contract: 'true 'value: - _%obj97756%_) + _%obj97863%_) '#!void)))) (define __class->list - (lambda (_%obj97732%_) - (let* ((_%obj97735%_ _%obj97732%_) - (_%klass97744%_ - (let () (declare (not safe)) (##structure-type _%obj97735%_))) - (_%slot-vector97746%_ + (lambda (_%obj97839%_) + (let* ((_%obj97842%_ _%obj97839%_) + (_%klass97851%_ + (let () (declare (not safe)) (##structure-type _%obj97842%_))) + (_%slot-vector97853%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97744%_ '7 '#f '#f)))) - (let _%loop97748%_ ((_%index97750%_ - (let ((__tmp101687 + (##unchecked-structure-ref _%klass97851%_ '7 '#f '#f)))) + (let _%loop97855%_ ((_%index97857%_ + (let ((__tmp101794 (let () (declare (not safe)) (##vector-length - _%slot-vector97746%_)))) + _%slot-vector97853%_)))) (declare (not safe)) - (##fx- __tmp101687 '1))) - (_%plist97751%_ '())) - (if (let () (declare (not safe)) (##fx< _%index97750%_ '1)) - (cons _%klass97744%_ _%plist97751%_) - (let ((_%slot97754%_ + (##fx- __tmp101794 '1))) + (_%plist97858%_ '())) + (if (let () (declare (not safe)) (##fx< _%index97857%_ '1)) + (cons _%klass97851%_ _%plist97858%_) + (let ((_%slot97861%_ (let () (declare (not safe)) - (##vector-ref _%slot-vector97746%_ _%index97750%_)))) - (_%loop97748%_ - (let () (declare (not safe)) (##fx- _%index97750%_ '1)) + (##vector-ref _%slot-vector97853%_ _%index97857%_)))) + (_%loop97855%_ + (let () (declare (not safe)) (##fx- _%index97857%_ '1)) (cons (let () (declare (not safe)) - (symbol->keyword _%slot97754%_)) + (symbol->keyword _%slot97861%_)) (cons (unchecked-field-ref - _%obj97735%_ - _%index97750%_) - _%plist97751%_))))))))) + _%obj97842%_ + _%index97857%_) + _%plist97858%_))))))))) (define call-method - (lambda (_%obj97716%_ _%id97717%_ . _%args97718%_) - (if (symbol? _%id97717%_) - (let ((_%id97722%_ _%id97717%_)) + (lambda (_%obj97823%_ _%id97824%_ . _%args97825%_) + (if (symbol? _%id97824%_) + (let ((_%id97829%_ _%id97824%_)) (declare (not safe)) - (##apply __call-method _%obj97716%_ _%id97722%_ _%args97718%_)) + (##apply __call-method _%obj97823%_ _%id97829%_ _%args97825%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3147,27 +3147,27 @@ 'contract: 'symbol? 'value: - _%id97717%_) + _%id97824%_) '#!void)))) (define __call-method - (lambda (_%obj97685%_ _%id97686%_ . _%args97687%_) - (let* ((_%id97690%_ _%id97686%_) - (_%$e97699%_ (__method-ref _%obj97685%_ _%id97690%_))) - (if _%$e97699%_ - ((lambda (_%method97702%_) - (let ((_%method97704%_ _%method97702%_)) - (apply _%method97704%_ _%obj97685%_ _%args97687%_))) - _%$e97699%_) + (lambda (_%obj97792%_ _%id97793%_ . _%args97794%_) + (let* ((_%id97797%_ _%id97793%_) + (_%$e97806%_ (__method-ref _%obj97792%_ _%id97797%_))) + (if _%$e97806%_ + ((lambda (_%method97809%_) + (let ((_%method97811%_ _%method97809%_)) + (apply _%method97811%_ _%obj97792%_ _%args97794%_))) + _%$e97806%_) (error '"cannot find method" 'object: - _%obj97685%_ + _%obj97792%_ 'method: - _%id97690%_))))) + _%id97797%_))))) (define method-ref - (lambda (_%obj97670%_ _%id97671%_) - (if (symbol? _%id97671%_) - (let ((_%id97675%_ _%id97671%_)) - (__method-ref _%obj97670%_ _%id97675%_)) + (lambda (_%obj97777%_ _%id97778%_) + (if (symbol? _%id97778%_) + (let ((_%id97782%_ _%id97778%_)) + (__method-ref _%obj97777%_ _%id97782%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3176,29 +3176,29 @@ 'contract: 'symbol? 'value: - _%id97671%_) + _%id97778%_) '#!void)))) (define __method-ref - (lambda (_%obj97657%_ _%id97658%_) - (let ((_%id97661%_ _%id97658%_)) - (__find-method (class-of _%obj97657%_) _%obj97657%_ _%id97661%_)))) + (lambda (_%obj97764%_ _%id97765%_) + (let ((_%id97768%_ _%id97765%_)) + (__find-method (class-of _%obj97764%_) _%obj97764%_ _%id97768%_)))) (define checked-method-ref - (lambda (_%obj97650%_ _%id97651%_) - (let ((_%$e97654%_ (method-ref _%obj97650%_ _%id97651%_))) - (if _%$e97654%_ - _%$e97654%_ + (lambda (_%obj97757%_ _%id97758%_) + (let ((_%$e97761%_ (method-ref _%obj97757%_ _%id97758%_))) + (if _%$e97761%_ + _%$e97761%_ (begin (error '"missing method" 'object: - _%obj97650%_ + _%obj97757%_ 'method: - _%id97651%_) + _%id97758%_) '#!void))))) (define bound-method-ref - (lambda (_%obj97635%_ _%id97636%_) - (if (symbol? _%id97636%_) - (let ((_%id97640%_ _%id97636%_)) - (__bound-method-ref _%obj97635%_ _%id97640%_)) + (lambda (_%obj97742%_ _%id97743%_) + (if (symbol? _%id97743%_) + (let ((_%id97747%_ _%id97743%_)) + (__bound-method-ref _%obj97742%_ _%id97747%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3207,24 +3207,24 @@ 'contract: 'symbol? 'value: - _%id97636%_) + _%id97743%_) '#!void)))) (define __bound-method-ref - (lambda (_%obj97603%_ _%id97604%_) - (let* ((_%id97607%_ _%id97604%_) - (_%$e97616%_ (__method-ref _%obj97603%_ _%id97607%_))) - (if _%$e97616%_ - ((lambda (_%method97619%_) - (let ((_%method97621%_ _%method97619%_)) - (lambda _%args97632%_ - (apply _%method97621%_ _%obj97603%_ _%args97632%_)))) - _%$e97616%_) + (lambda (_%obj97710%_ _%id97711%_) + (let* ((_%id97714%_ _%id97711%_) + (_%$e97723%_ (__method-ref _%obj97710%_ _%id97714%_))) + (if _%$e97723%_ + ((lambda (_%method97726%_) + (let ((_%method97728%_ _%method97726%_)) + (lambda _%args97739%_ + (apply _%method97728%_ _%obj97710%_ _%args97739%_)))) + _%$e97723%_) '#f)))) (define checked-bound-method-ref - (lambda (_%obj97588%_ _%id97589%_) - (if (symbol? _%id97589%_) - (let ((_%id97593%_ _%id97589%_)) - (__checked-bound-method-ref _%obj97588%_ _%id97593%_)) + (lambda (_%obj97695%_ _%id97696%_) + (if (symbol? _%id97696%_) + (let ((_%id97700%_ _%id97696%_)) + (__checked-bound-method-ref _%obj97695%_ _%id97700%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3233,23 +3233,23 @@ 'contract: 'symbol? 'value: - _%id97589%_) + _%id97696%_) '#!void)))) (define __checked-bound-method-ref - (lambda (_%obj97571%_ _%id97572%_) - (let* ((_%id97575%_ _%id97572%_) - (_%method97584%_ (checked-method-ref _%obj97571%_ _%id97575%_))) - (lambda _%args97586%_ - (apply _%method97584%_ _%obj97571%_ _%args97586%_))))) + (lambda (_%obj97678%_ _%id97679%_) + (let* ((_%id97682%_ _%id97679%_) + (_%method97691%_ (checked-method-ref _%obj97678%_ _%id97682%_))) + (lambda _%args97693%_ + (apply _%method97691%_ _%obj97678%_ _%args97693%_))))) (define find-method - (lambda (_%klass97545%_ _%obj97546%_ _%id97547%_) + (lambda (_%klass97652%_ _%obj97653%_ _%id97654%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97545%_ 'class)) - (let ((_%klass97551%_ _%klass97545%_)) - (if (symbol? _%id97547%_) - (let ((_%id97561%_ _%id97547%_)) - (__find-method _%klass97551%_ _%obj97546%_ _%id97561%_)) + (##structure-instance-of? _%klass97652%_ 'class)) + (let ((_%klass97658%_ _%klass97652%_)) + (if (symbol? _%id97654%_) + (let ((_%id97668%_ _%id97654%_)) + (__find-method _%klass97658%_ _%obj97653%_ _%id97668%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3258,7 +3258,7 @@ 'contract: 'symbol? 'value: - _%id97547%_) + _%id97654%_) '#!void))) (begin (raise-contract-violation-error @@ -3268,27 +3268,27 @@ 'contract: 'class-type? 'value: - _%klass97545%_) + _%klass97652%_) '#!void)))) (define __find-method - (lambda (_%klass97518%_ _%obj97519%_ _%id97520%_) - (let* ((_%klass97523%_ _%klass97518%_) - (_%id97531%_ _%id97520%_) - (_%$e97540%_ - (__direct-method-ref _%klass97523%_ _%obj97519%_ _%id97531%_))) - (if _%$e97540%_ - _%$e97540%_ - (if (__class-type-sealed? _%klass97523%_) + (lambda (_%klass97625%_ _%obj97626%_ _%id97627%_) + (let* ((_%klass97630%_ _%klass97625%_) + (_%id97638%_ _%id97627%_) + (_%$e97647%_ + (__direct-method-ref _%klass97630%_ _%obj97626%_ _%id97638%_))) + (if _%$e97647%_ + _%$e97647%_ + (if (__class-type-sealed? _%klass97630%_) '#f (__mixin-method-ref - _%klass97523%_ - _%obj97519%_ - _%id97531%_)))))) + _%klass97630%_ + _%obj97626%_ + _%id97638%_)))))) (define mixin-find-method - (lambda (_%mixins97502%_ _%obj97503%_ _%id97504%_) - (if (symbol? _%id97504%_) - (let ((_%id97508%_ _%id97504%_)) - (__mixin-find-method _%mixins97502%_ _%obj97503%_ _%id97508%_)) + (lambda (_%mixins97609%_ _%obj97610%_ _%id97611%_) + (if (symbol? _%id97611%_) + (let ((_%id97615%_ _%id97611%_)) + (__mixin-find-method _%mixins97609%_ _%obj97610%_ _%id97615%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3297,31 +3297,31 @@ 'contract: 'symbol? 'value: - _%id97504%_) + _%id97611%_) '#!void)))) (define __mixin-find-method - (lambda (_%mixins97484%_ _%obj97485%_ _%id97486%_) - (let* ((_%id97489%_ _%id97486%_) - (__tmp101688 - (lambda (_%g9749797499%_) + (lambda (_%mixins97591%_ _%obj97592%_ _%id97593%_) + (let* ((_%id97596%_ _%id97593%_) + (__tmp101795 + (lambda (_%g9760497606%_) (direct-method-ref - _%g9749797499%_ - _%obj97485%_ - _%id97489%_)))) + _%g9760497606%_ + _%obj97592%_ + _%id97596%_)))) (declare (not safe)) - (__ormap1 __tmp101688 _%mixins97484%_)))) + (__ormap1 __tmp101795 _%mixins97591%_)))) (define direct-method-ref - (lambda (_%klass97458%_ _%obj97459%_ _%id97460%_) + (lambda (_%klass97565%_ _%obj97566%_ _%id97567%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97458%_ 'class)) - (let ((_%klass97464%_ _%klass97458%_)) - (if (symbol? _%id97460%_) - (let ((_%id97474%_ _%id97460%_)) + (##structure-instance-of? _%klass97565%_ 'class)) + (let ((_%klass97571%_ _%klass97565%_)) + (if (symbol? _%id97567%_) + (let ((_%id97581%_ _%id97567%_)) (__direct-method-ref - _%klass97464%_ - _%obj97459%_ - _%id97474%_)) + _%klass97571%_ + _%obj97566%_ + _%id97581%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3330,7 +3330,7 @@ 'contract: 'symbol? 'value: - _%id97460%_) + _%id97567%_) '#!void))) (begin (raise-contract-violation-error @@ -3340,98 +3340,98 @@ 'contract: 'class-type? 'value: - _%klass97458%_) + _%klass97565%_) '#!void)))) (define __direct-method-ref - (lambda (_%klass97412%_ _%obj97413%_ _%id97414%_) - (let* ((_%klass97417%_ _%klass97412%_) (_%id97425%_ _%id97414%_)) - (letrec ((_%metaclass-resolve-method97434%_ + (lambda (_%klass97519%_ _%obj97520%_ _%id97521%_) + (let* ((_%klass97524%_ _%klass97519%_) (_%id97532%_ _%id97521%_)) + (letrec ((_%metaclass-resolve-method97541%_ (lambda () - (let ((__method101596 - (__method-ref _%klass97417%_ 'direct-method-ref))) - (if __method101596 + (let ((__method101703 + (__method-ref _%klass97524%_ 'direct-method-ref))) + (if __method101703 (let () (declare (not safe)) - (__method101596 - _%klass97417%_ - _%obj97413%_ - _%id97425%_)) + (__method101703 + _%klass97524%_ + _%obj97520%_ + _%id97532%_)) (begin (error '"Missing method" - _%klass97417%_ + _%klass97524%_ 'direct-method-ref) '#!void))))) - (_%metaclass-resolve-method!97435%_ + (_%metaclass-resolve-method!97542%_ (lambda () - (let ((_%method97455%_ - (_%metaclass-resolve-method97434%_))) - (let ((__tmp101690 + (let ((_%method97562%_ + (_%metaclass-resolve-method97541%_))) + (let ((__tmp101797 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97417%_ + _%klass97524%_ '11 '#f '#f))) - (__tmp101689 - (if _%method97455%_ 'resolved 'unknown))) + (__tmp101796 + (if _%method97562%_ 'resolved 'unknown))) (declare (not safe)) (symbolic-table-set! - __tmp101690 - _%id97425%_ - __tmp101689)) - _%method97455%_)))) - (let ((_%$e97437%_ + __tmp101797 + _%id97532%_ + __tmp101796)) + _%method97562%_)))) + (let ((_%$e97544%_ (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97417%_ '11 '#f '#f)))) - (if _%$e97437%_ - ((lambda (_%ht97440%_) - (let ((_%method97442%_ + (##unchecked-structure-ref _%klass97524%_ '11 '#f '#f)))) + (if _%$e97544%_ + ((lambda (_%ht97547%_) + (let ((_%method97549%_ (let () (declare (not safe)) (symbolic-table-ref - _%ht97440%_ - _%id97425%_ + _%ht97547%_ + _%id97532%_ '#f)))) - (if (procedure? _%method97442%_) - _%method97442%_ - (if (__class-type-metaclass? _%klass97417%_) - (let ((_%$e97446%_ _%method97442%_)) - (if (eq? 'resolved _%$e97446%_) - (_%metaclass-resolve-method97434%_) - (if (eq? 'unknown _%$e97446%_) + (if (procedure? _%method97549%_) + _%method97549%_ + (if (__class-type-metaclass? _%klass97524%_) + (let ((_%$e97553%_ _%method97549%_)) + (if (eq? 'resolved _%$e97553%_) + (_%metaclass-resolve-method97541%_) + (if (eq? 'unknown _%$e97553%_) '#f - (_%metaclass-resolve-method!97435%_)))) + (_%metaclass-resolve-method!97542%_)))) '#f)))) - _%$e97437%_) - (if (__class-type-metaclass? _%klass97417%_) - (let ((_%tab97451%_ + _%$e97544%_) + (if (__class-type-metaclass? _%klass97524%_) + (let ((_%tab97558%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97417%_ - _%tab97451%_ + _%klass97524%_ + _%tab97558%_ '11 '#f '#f)) - (_%metaclass-resolve-method!97435%_)) + (_%metaclass-resolve-method!97542%_)) '#f))))))) (define mixin-method-ref - (lambda (_%klass97386%_ _%obj97387%_ _%id97388%_) + (lambda (_%klass97493%_ _%obj97494%_ _%id97495%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97386%_ 'class)) - (let ((_%klass97392%_ _%klass97386%_)) - (if (symbol? _%id97388%_) - (let ((_%id97402%_ _%id97388%_)) + (##structure-instance-of? _%klass97493%_ 'class)) + (let ((_%klass97499%_ _%klass97493%_)) + (if (symbol? _%id97495%_) + (let ((_%id97509%_ _%id97495%_)) (__mixin-method-ref - _%klass97392%_ - _%obj97387%_ - _%id97402%_)) + _%klass97499%_ + _%obj97494%_ + _%id97509%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3440,7 +3440,7 @@ 'contract: 'symbol? 'value: - _%id97388%_) + _%id97495%_) '#!void))) (begin (raise-contract-violation-error @@ -3450,28 +3450,28 @@ 'contract: 'class-type? 'value: - _%klass97386%_) + _%klass97493%_) '#!void)))) (define __mixin-method-ref - (lambda (_%klass97364%_ _%obj97365%_ _%id97366%_) - (let* ((_%klass97369%_ _%klass97364%_) (_%id97377%_ _%id97366%_)) + (lambda (_%klass97471%_ _%obj97472%_ _%id97473%_) + (let* ((_%klass97476%_ _%klass97471%_) (_%id97484%_ _%id97473%_)) (__mixin-find-method (let () (declare (not safe)) - (##unchecked-structure-ref _%klass97369%_ '6 '#f '#f)) - _%obj97365%_ - _%id97377%_)))) + (##unchecked-structure-ref _%klass97476%_ '6 '#f '#f)) + _%obj97472%_ + _%id97484%_)))) (define bind-method!__% - (lambda (_%klass97323%_ _%id97324%_ _%proc97325%_ _%rebind?97326%_) - (if (symbol? _%id97324%_) - (let ((_%id97330%_ _%id97324%_)) - (if (procedure? _%proc97325%_) - (let ((_%proc97340%_ _%proc97325%_)) + (lambda (_%klass97430%_ _%id97431%_ _%proc97432%_ _%rebind?97433%_) + (if (symbol? _%id97431%_) + (let ((_%id97437%_ _%id97431%_)) + (if (procedure? _%proc97432%_) + (let ((_%proc97447%_ _%proc97432%_)) (__bind-method!__% - _%klass97323%_ - _%id97330%_ - _%proc97340%_ - _%rebind?97326%_)) + _%klass97430%_ + _%id97437%_ + _%proc97447%_ + _%rebind?97433%_)) (begin (raise-contract-violation-error '"contract violation" @@ -3480,7 +3480,7 @@ 'contract: 'procedure? 'value: - _%proc97325%_) + _%proc97432%_) '#!void))) (begin (raise-contract-violation-error @@ -3490,1071 +3490,1071 @@ 'contract: 'symbol? 'value: - _%id97324%_) + _%id97431%_) '#!void)))) (define bind-method!__0 - (lambda (_%klass97353%_ _%id97354%_ _%proc97355%_) - (let ((_%rebind?97357%_ '#f)) + (lambda (_%klass97460%_ _%id97461%_ _%proc97462%_) + (let ((_%rebind?97464%_ '#f)) (bind-method!__% - _%klass97353%_ - _%id97354%_ - _%proc97355%_ - _%rebind?97357%_)))) + _%klass97460%_ + _%id97461%_ + _%proc97462%_ + _%rebind?97464%_)))) (define bind-method! - (lambda _g101692_ - (let ((_g101691_ (let () (declare (not safe)) (##length _g101692_)))) - (cond ((let () (declare (not safe)) (##fx= _g101691_ 3)) - (apply bind-method!__0 _g101692_)) - ((let () (declare (not safe)) (##fx= _g101691_ 4)) - (apply bind-method!__% _g101692_)) + (lambda _g101799_ + (let ((_g101798_ (let () (declare (not safe)) (##length _g101799_)))) + (cond ((let () (declare (not safe)) (##fx= _g101798_ 3)) + (apply bind-method!__0 _g101799_)) + ((let () (declare (not safe)) (##fx= _g101798_ 4)) + (apply bind-method!__% _g101799_)) (else (##raise-wrong-number-of-arguments-exception bind-method! - _g101692_)))))) + _g101799_)))))) (define __bind-method!__% - (lambda (_%klass97274%_ _%id97275%_ _%proc97276%_ _%rebind?97277%_) - (let* ((_%id97280%_ _%id97275%_) (_%proc97288%_ _%proc97276%_)) - (letrec ((_%bind!97297%_ - (lambda (_%ht97306%_) - (if (and (not _%rebind?97277%_) + (lambda (_%klass97381%_ _%id97382%_ _%proc97383%_ _%rebind?97384%_) + (let* ((_%id97387%_ _%id97382%_) (_%proc97395%_ _%proc97383%_)) + (letrec ((_%bind!97404%_ + (lambda (_%ht97413%_) + (if (and (not _%rebind?97384%_) (let () (declare (not safe)) (symbolic-table-ref - _%ht97306%_ - _%id97280%_ + _%ht97413%_ + _%id97387%_ '#f))) (error '"method already bound" 'class: - _%klass97274%_ + _%klass97381%_ 'method: - _%id97280%_) + _%id97387%_) (begin (let () (declare (not safe)) (symbolic-table-set! - _%ht97306%_ - _%id97280%_ - _%proc97288%_)) + _%ht97413%_ + _%id97387%_ + _%proc97395%_)) '#!void))))) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass97274%_ 'class)) - (let ((_%ht97300%_ + (##structure-instance-of? _%klass97381%_ 'class)) + (let ((_%ht97407%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%klass97274%_ + _%klass97381%_ '11 '#f '#f)))) - (if _%ht97300%_ - (_%bind!97297%_ _%ht97300%_) - (let ((_%ht97302%_ + (if _%ht97407%_ + (_%bind!97404%_ _%ht97407%_) + (let ((_%ht97409%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) (let () (declare (not safe)) (##unchecked-structure-set! - _%klass97274%_ - _%ht97302%_ + _%klass97381%_ + _%ht97409%_ '11 '#f '#f)) - (_%bind!97297%_ _%ht97302%_)))) - (if (let () (declare (not safe)) (##type? _%klass97274%_)) + (_%bind!97404%_ _%ht97409%_)))) + (if (let () (declare (not safe)) (##type? _%klass97381%_)) (__bind-method!__% - (__shadow-class _%klass97274%_) - _%id97280%_ - _%proc97288%_ - _%rebind?97277%_) + (__shadow-class _%klass97381%_) + _%id97387%_ + _%proc97395%_ + _%rebind?97384%_) (error '"bad class; expected class or builtin type" - _%klass97274%_))))))) + _%klass97381%_))))))) (define __bind-method!__0 - (lambda (_%klass97311%_ _%id97312%_ _%proc97313%_) - (let ((_%rebind?97315%_ '#f)) + (lambda (_%klass97418%_ _%id97419%_ _%proc97420%_) + (let ((_%rebind?97422%_ '#f)) (__bind-method!__% - _%klass97311%_ - _%id97312%_ - _%proc97313%_ - _%rebind?97315%_)))) + _%klass97418%_ + _%id97419%_ + _%proc97420%_ + _%rebind?97422%_)))) (define __bind-method! - (lambda _g101694_ - (let ((_g101693_ (let () (declare (not safe)) (##length _g101694_)))) - (cond ((let () (declare (not safe)) (##fx= _g101693_ 3)) - (apply __bind-method!__0 _g101694_)) - ((let () (declare (not safe)) (##fx= _g101693_ 4)) - (apply __bind-method!__% _g101694_)) + (lambda _g101801_ + (let ((_g101800_ (let () (declare (not safe)) (##length _g101801_)))) + (cond ((let () (declare (not safe)) (##fx= _g101800_ 3)) + (apply __bind-method!__0 _g101801_)) + ((let () (declare (not safe)) (##fx= _g101800_ 4)) + (apply __bind-method!__% _g101801_)) (else (##raise-wrong-number-of-arguments-exception __bind-method! - _g101694_)))))) + _g101801_)))))) (define make-method-specializer-table__% - (lambda (_%size-hint97254%_ _%seed97256%_) + (lambda (_%size-hint97361%_ _%seed97363%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97254%_ + _%size-hint97361%_ procedure-hash eq? - _%seed97256%_)))) + _%seed97363%_)))) (define make-method-specializer-table__0 (lambda () - (let* ((_%size-hint97262%_ '#f) (_%seed97264%_ '0)) + (let* ((_%size-hint97369%_ '#f) (_%seed97371%_ '0)) (make-method-specializer-table__% - _%size-hint97262%_ - _%seed97264%_)))) + _%size-hint97369%_ + _%seed97371%_)))) (define make-method-specializer-table__1 - (lambda (_%size-hint97266%_) - (let ((_%seed97268%_ '0)) + (lambda (_%size-hint97373%_) + (let ((_%seed97375%_ '0)) (make-method-specializer-table__% - _%size-hint97266%_ - _%seed97268%_)))) + _%size-hint97373%_ + _%seed97375%_)))) (define make-method-specializer-table - (lambda _g101696_ - (let ((_g101695_ (let () (declare (not safe)) (##length _g101696_)))) - (cond ((let () (declare (not safe)) (##fx= _g101695_ 0)) - (apply make-method-specializer-table__0 _g101696_)) - ((let () (declare (not safe)) (##fx= _g101695_ 1)) - (apply make-method-specializer-table__1 _g101696_)) - ((let () (declare (not safe)) (##fx= _g101695_ 2)) - (apply make-method-specializer-table__% _g101696_)) + (lambda _g101803_ + (let ((_g101802_ (let () (declare (not safe)) (##length _g101803_)))) + (cond ((let () (declare (not safe)) (##fx= _g101802_ 0)) + (apply make-method-specializer-table__0 _g101803_)) + ((let () (declare (not safe)) (##fx= _g101802_ 1)) + (apply make-method-specializer-table__1 _g101803_)) + ((let () (declare (not safe)) (##fx= _g101802_ 2)) + (apply make-method-specializer-table__% _g101803_)) (else (##raise-wrong-number-of-arguments-exception make-method-specializer-table - _g101696_)))))) + _g101803_)))))) (define method-specializer-table-ref - (lambda (_%tab97207%_ _%key97208%_ _%default97209%_) - (let ((_%table97211%_ - (let () (declare (not safe)) (&raw-table-table _%tab97207%_))) - (_%seed97212%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97207%_)))) - (let* ((_%h97214%_ + (lambda (_%tab97314%_ _%key97315%_ _%default97316%_) + (let ((_%table97318%_ + (let () (declare (not safe)) (&raw-table-table _%tab97314%_))) + (_%seed97319%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97314%_)))) + (let* ((_%h97321%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97208%_)) - _%seed97212%_)) - (_%size97217%_ (vector-length _%table97211%_)) - (_%entries97220%_ + (procedure-hash _%key97315%_)) + _%seed97319%_)) + (_%size97324%_ (vector-length _%table97318%_)) + (_%entries97327%_ (let () (declare (not safe)) - (##fxquotient _%size97217%_ '2))) - (_%start97223%_ - (let ((__tmp101697 + (##fxquotient _%size97324%_ '2))) + (_%start97330%_ + (let ((__tmp101804 (let () (declare (not safe)) - (##fxmodulo _%h97214%_ _%entries97220%_)))) + (##fxmodulo _%h97321%_ _%entries97327%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101697 '1)))) - (let _%loop97227%_ ((_%probe97230%_ _%start97223%_) - (_%i97232%_ '1) - (_%deleted97234%_ '#f)) - (let ((_%k97237%_ (vector-ref _%table97211%_ _%probe97230%_))) - (if (eq? _%k97237%_ (macro-unused-obj)) - _%default97209%_ - (if (eq? _%k97237%_ (macro-deleted-obj)) - (_%loop97227%_ - (let ((_%next-probe97242%_ - (fx+ _%start97223%_ - _%i97232%_ - (fx* _%i97232%_ _%i97232%_)))) + (##fxarithmetic-shift-left __tmp101804 '1)))) + (let _%loop97334%_ ((_%probe97337%_ _%start97330%_) + (_%i97339%_ '1) + (_%deleted97341%_ '#f)) + (let ((_%k97344%_ (vector-ref _%table97318%_ _%probe97337%_))) + (if (eq? _%k97344%_ (macro-unused-obj)) + _%default97316%_ + (if (eq? _%k97344%_ (macro-deleted-obj)) + (_%loop97334%_ + (let ((_%next-probe97349%_ + (fx+ _%start97330%_ + _%i97339%_ + (fx* _%i97339%_ _%i97339%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97242%_ _%size97217%_)) - (let () (declare (not safe)) (##fx+ _%i97232%_ '1)) - (let ((_%$e97245%_ _%deleted97234%_)) - (if _%$e97245%_ _%$e97245%_ _%probe97230%_))) - (if (eq? _%key97208%_ _%k97237%_) + (##fxmodulo _%next-probe97349%_ _%size97324%_)) + (let () (declare (not safe)) (##fx+ _%i97339%_ '1)) + (let ((_%$e97352%_ _%deleted97341%_)) + (if _%$e97352%_ _%$e97352%_ _%probe97337%_))) + (if (eq? _%key97315%_ _%k97344%_) (vector-ref - _%table97211%_ + _%table97318%_ (let () (declare (not safe)) - (##fx+ _%probe97230%_ '1))) - (_%loop97227%_ - (let ((_%next-probe97250%_ - (fx+ _%start97223%_ - _%i97232%_ - (fx* _%i97232%_ _%i97232%_)))) + (##fx+ _%probe97337%_ '1))) + (_%loop97334%_ + (let ((_%next-probe97357%_ + (fx+ _%start97330%_ + _%i97339%_ + (fx* _%i97339%_ _%i97339%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97250%_ _%size97217%_)) + (##fxmodulo _%next-probe97357%_ _%size97324%_)) (let () (declare (not safe)) - (##fx+ _%i97232%_ '1)) - _%deleted97234%_)))))))))) + (##fx+ _%i97339%_ '1)) + _%deleted97341%_)))))))))) (define method-specializer-table-set! - (lambda (_%tab97203%_ _%key97204%_ _%value97205%_) - (if (let ((__tmp101700 + (lambda (_%tab97310%_ _%key97311%_ _%value97312%_) + (if (let ((__tmp101807 (let () (declare (not safe)) - (&raw-table-free _%tab97203%_))) - (__tmp101698 - (let ((__tmp101699 + (&raw-table-free _%tab97310%_))) + (__tmp101805 + (let ((__tmp101806 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97203%_))))) + (&raw-table-table _%tab97310%_))))) (declare (not safe)) - (##fxquotient __tmp101699 '4)))) + (##fxquotient __tmp101806 '4)))) (declare (not safe)) - (##fx< __tmp101700 __tmp101698)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97203%_)) + (##fx< __tmp101807 __tmp101805)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97310%_)) '#!void) (__method-specializer-table-set! - _%tab97203%_ - _%key97204%_ - _%value97205%_))) + _%tab97310%_ + _%key97311%_ + _%value97312%_))) (define __method-specializer-table-set! - (lambda (_%tab97154%_ _%key97155%_ _%value97156%_) - (let ((_%table97159%_ - (let () (declare (not safe)) (&raw-table-table _%tab97154%_))) - (_%seed97160%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97154%_)))) - (let* ((_%h97162%_ + (lambda (_%tab97261%_ _%key97262%_ _%value97263%_) + (let ((_%table97266%_ + (let () (declare (not safe)) (&raw-table-table _%tab97261%_))) + (_%seed97267%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97261%_)))) + (let* ((_%h97269%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97155%_)) - _%seed97160%_)) - (_%size97165%_ (vector-length _%table97159%_)) - (_%entries97168%_ + (procedure-hash _%key97262%_)) + _%seed97267%_)) + (_%size97272%_ (vector-length _%table97266%_)) + (_%entries97275%_ (let () (declare (not safe)) - (##fxquotient _%size97165%_ '2))) - (_%start97171%_ - (let ((__tmp101701 + (##fxquotient _%size97272%_ '2))) + (_%start97278%_ + (let ((__tmp101808 (let () (declare (not safe)) - (##fxmodulo _%h97162%_ _%entries97168%_)))) + (##fxmodulo _%h97269%_ _%entries97275%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101701 '1)))) - (let _%loop97175%_ ((_%probe97178%_ _%start97171%_) - (_%i97180%_ '1) - (_%deleted97182%_ '#f)) - (let ((_%k97185%_ (vector-ref _%table97159%_ _%probe97178%_))) - (if (eq? _%k97185%_ (macro-unused-obj)) - (if _%deleted97182%_ + (##fxarithmetic-shift-left __tmp101808 '1)))) + (let _%loop97282%_ ((_%probe97285%_ _%start97278%_) + (_%i97287%_ '1) + (_%deleted97289%_ '#f)) + (let ((_%k97292%_ (vector-ref _%table97266%_ _%probe97285%_))) + (if (eq? _%k97292%_ (macro-unused-obj)) + (if _%deleted97289%_ (begin (vector-set! - _%table97159%_ - _%deleted97182%_ - _%key97155%_) + _%table97266%_ + _%deleted97289%_ + _%key97262%_) (vector-set! - _%table97159%_ + _%table97266%_ (let () (declare (not safe)) - (##fx+ _%deleted97182%_ '1)) - _%value97156%_) + (##fx+ _%deleted97289%_ '1)) + _%value97263%_) ((lambda () - (let ((__tmp101702 - (let ((__tmp101703 + (let ((__tmp101809 + (let ((__tmp101810 (let () (declare (not safe)) - (&raw-table-count _%tab97154%_)))) + (&raw-table-count _%tab97261%_)))) (declare (not safe)) - (##fx+ __tmp101703 '1)))) + (##fx+ __tmp101810 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97154%_ - __tmp101702))))) + _%tab97261%_ + __tmp101809))))) (begin (vector-set! - _%table97159%_ - _%probe97178%_ - _%key97155%_) + _%table97266%_ + _%probe97285%_ + _%key97262%_) (vector-set! - _%table97159%_ + _%table97266%_ (let () (declare (not safe)) - (##fx+ _%probe97178%_ '1)) - _%value97156%_) + (##fx+ _%probe97285%_ '1)) + _%value97263%_) ((lambda () - (let ((__tmp101704 - (let ((__tmp101705 + (let ((__tmp101811 + (let ((__tmp101812 (let () (declare (not safe)) - (&raw-table-free _%tab97154%_)))) + (&raw-table-free _%tab97261%_)))) (declare (not safe)) - (##fx- __tmp101705 '1)))) + (##fx- __tmp101812 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab97154%_ __tmp101704)) - (let ((__tmp101706 - (let ((__tmp101707 + (&raw-table-free-set! _%tab97261%_ __tmp101811)) + (let ((__tmp101813 + (let ((__tmp101814 (let () (declare (not safe)) - (&raw-table-count _%tab97154%_)))) + (&raw-table-count _%tab97261%_)))) (declare (not safe)) - (##fx+ __tmp101707 '1)))) + (##fx+ __tmp101814 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97154%_ - __tmp101706)))))) - (if (eq? _%k97185%_ (macro-deleted-obj)) - (_%loop97175%_ - (let ((_%next-probe97192%_ - (fx+ _%start97171%_ - _%i97180%_ - (fx* _%i97180%_ _%i97180%_)))) + _%tab97261%_ + __tmp101813)))))) + (if (eq? _%k97292%_ (macro-deleted-obj)) + (_%loop97282%_ + (let ((_%next-probe97299%_ + (fx+ _%start97278%_ + _%i97287%_ + (fx* _%i97287%_ _%i97287%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97192%_ _%size97165%_)) - (let () (declare (not safe)) (##fx+ _%i97180%_ '1)) - (let ((_%$e97195%_ _%deleted97182%_)) - (if _%$e97195%_ _%$e97195%_ _%probe97178%_))) - (if (eq? _%key97155%_ _%k97185%_) + (##fxmodulo _%next-probe97299%_ _%size97272%_)) + (let () (declare (not safe)) (##fx+ _%i97287%_ '1)) + (let ((_%$e97302%_ _%deleted97289%_)) + (if _%$e97302%_ _%$e97302%_ _%probe97285%_))) + (if (eq? _%key97262%_ _%k97292%_) (let () (vector-set! - _%table97159%_ - _%probe97178%_ - _%key97155%_) + _%table97266%_ + _%probe97285%_ + _%key97262%_) (vector-set! - _%table97159%_ + _%table97266%_ (let () (declare (not safe)) - (##fx+ _%probe97178%_ '1)) - _%value97156%_)) - (_%loop97175%_ - (let ((_%next-probe97200%_ - (fx+ _%start97171%_ - _%i97180%_ - (fx* _%i97180%_ _%i97180%_)))) + (##fx+ _%probe97285%_ '1)) + _%value97263%_)) + (_%loop97282%_ + (let ((_%next-probe97307%_ + (fx+ _%start97278%_ + _%i97287%_ + (fx* _%i97287%_ _%i97287%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97200%_ _%size97165%_)) + (##fxmodulo _%next-probe97307%_ _%size97272%_)) (let () (declare (not safe)) - (##fx+ _%i97180%_ '1)) - _%deleted97182%_)))))))))) + (##fx+ _%i97287%_ '1)) + _%deleted97289%_)))))))))) (define method-specializer-table-update! - (lambda (_%tab97149%_ - _%key97150%_ - _%method-specializer-table-update!97151%_ - _%default97152%_) - (if (let ((__tmp101710 + (lambda (_%tab97256%_ + _%key97257%_ + _%method-specializer-table-update!97258%_ + _%default97259%_) + (if (let ((__tmp101817 (let () (declare (not safe)) - (&raw-table-free _%tab97149%_))) - (__tmp101708 - (let ((__tmp101709 + (&raw-table-free _%tab97256%_))) + (__tmp101815 + (let ((__tmp101816 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab97149%_))))) + (&raw-table-table _%tab97256%_))))) (declare (not safe)) - (##fxquotient __tmp101709 '4)))) + (##fxquotient __tmp101816 '4)))) (declare (not safe)) - (##fx< __tmp101710 __tmp101708)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab97149%_)) + (##fx< __tmp101817 __tmp101815)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97256%_)) '#!void) (__method-specializer-table-update! - _%tab97149%_ - _%key97150%_ - _%method-specializer-table-update!97151%_ - _%default97152%_))) + _%tab97256%_ + _%key97257%_ + _%method-specializer-table-update!97258%_ + _%default97259%_))) (define __method-specializer-table-update! - (lambda (_%tab97099%_ - _%key97100%_ - _%method-specializer-table-update!97101%_ - _%default97102%_) - (let ((_%table97105%_ - (let () (declare (not safe)) (&raw-table-table _%tab97099%_))) - (_%seed97106%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97099%_)))) - (let* ((_%h97108%_ + (lambda (_%tab97206%_ + _%key97207%_ + _%method-specializer-table-update!97208%_ + _%default97209%_) + (let ((_%table97212%_ + (let () (declare (not safe)) (&raw-table-table _%tab97206%_))) + (_%seed97213%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97206%_)))) + (let* ((_%h97215%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97100%_)) - _%seed97106%_)) - (_%size97111%_ (vector-length _%table97105%_)) - (_%entries97114%_ + (procedure-hash _%key97207%_)) + _%seed97213%_)) + (_%size97218%_ (vector-length _%table97212%_)) + (_%entries97221%_ (let () (declare (not safe)) - (##fxquotient _%size97111%_ '2))) - (_%start97117%_ - (let ((__tmp101711 + (##fxquotient _%size97218%_ '2))) + (_%start97224%_ + (let ((__tmp101818 (let () (declare (not safe)) - (##fxmodulo _%h97108%_ _%entries97114%_)))) + (##fxmodulo _%h97215%_ _%entries97221%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101711 '1)))) - (let _%loop97121%_ ((_%probe97124%_ _%start97117%_) - (_%i97126%_ '1) - (_%deleted97128%_ '#f)) - (let ((_%k97131%_ (vector-ref _%table97105%_ _%probe97124%_))) - (if (eq? _%k97131%_ (macro-unused-obj)) - (if _%deleted97128%_ + (##fxarithmetic-shift-left __tmp101818 '1)))) + (let _%loop97228%_ ((_%probe97231%_ _%start97224%_) + (_%i97233%_ '1) + (_%deleted97235%_ '#f)) + (let ((_%k97238%_ (vector-ref _%table97212%_ _%probe97231%_))) + (if (eq? _%k97238%_ (macro-unused-obj)) + (if _%deleted97235%_ (begin (vector-set! - _%table97105%_ - _%deleted97128%_ - _%key97100%_) + _%table97212%_ + _%deleted97235%_ + _%key97207%_) (vector-set! - _%table97105%_ + _%table97212%_ (let () (declare (not safe)) - (##fx+ _%deleted97128%_ '1)) - (_%method-specializer-table-update!97101%_ - _%default97102%_)) + (##fx+ _%deleted97235%_ '1)) + (_%method-specializer-table-update!97208%_ + _%default97209%_)) ((lambda () - (let ((__tmp101712 - (let ((__tmp101713 + (let ((__tmp101819 + (let ((__tmp101820 (let () (declare (not safe)) - (&raw-table-count _%tab97099%_)))) + (&raw-table-count _%tab97206%_)))) (declare (not safe)) - (##fx+ __tmp101713 '1)))) + (##fx+ __tmp101820 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97099%_ - __tmp101712))))) + _%tab97206%_ + __tmp101819))))) (begin (vector-set! - _%table97105%_ - _%probe97124%_ - _%key97100%_) + _%table97212%_ + _%probe97231%_ + _%key97207%_) (vector-set! - _%table97105%_ + _%table97212%_ (let () (declare (not safe)) - (##fx+ _%probe97124%_ '1)) - (_%method-specializer-table-update!97101%_ - _%default97102%_)) + (##fx+ _%probe97231%_ '1)) + (_%method-specializer-table-update!97208%_ + _%default97209%_)) ((lambda () - (let ((__tmp101714 - (let ((__tmp101715 + (let ((__tmp101821 + (let ((__tmp101822 (let () (declare (not safe)) - (&raw-table-free _%tab97099%_)))) + (&raw-table-free _%tab97206%_)))) (declare (not safe)) - (##fx- __tmp101715 '1)))) + (##fx- __tmp101822 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab97099%_ __tmp101714)) - (let ((__tmp101716 - (let ((__tmp101717 + (&raw-table-free-set! _%tab97206%_ __tmp101821)) + (let ((__tmp101823 + (let ((__tmp101824 (let () (declare (not safe)) - (&raw-table-count _%tab97099%_)))) + (&raw-table-count _%tab97206%_)))) (declare (not safe)) - (##fx+ __tmp101717 '1)))) + (##fx+ __tmp101824 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97099%_ - __tmp101716)))))) - (if (eq? _%k97131%_ (macro-deleted-obj)) - (_%loop97121%_ - (let ((_%next-probe97138%_ - (fx+ _%start97117%_ - _%i97126%_ - (fx* _%i97126%_ _%i97126%_)))) + _%tab97206%_ + __tmp101823)))))) + (if (eq? _%k97238%_ (macro-deleted-obj)) + (_%loop97228%_ + (let ((_%next-probe97245%_ + (fx+ _%start97224%_ + _%i97233%_ + (fx* _%i97233%_ _%i97233%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97138%_ _%size97111%_)) - (let () (declare (not safe)) (##fx+ _%i97126%_ '1)) - (let ((_%$e97141%_ _%deleted97128%_)) - (if _%$e97141%_ _%$e97141%_ _%probe97124%_))) - (if (eq? _%key97100%_ _%k97131%_) + (##fxmodulo _%next-probe97245%_ _%size97218%_)) + (let () (declare (not safe)) (##fx+ _%i97233%_ '1)) + (let ((_%$e97248%_ _%deleted97235%_)) + (if _%$e97248%_ _%$e97248%_ _%probe97231%_))) + (if (eq? _%key97207%_ _%k97238%_) (let () (vector-set! - _%table97105%_ - _%probe97124%_ - _%key97100%_) + _%table97212%_ + _%probe97231%_ + _%key97207%_) (vector-set! - _%table97105%_ + _%table97212%_ (let () (declare (not safe)) - (##fx+ _%probe97124%_ '1)) - (_%method-specializer-table-update!97101%_ + (##fx+ _%probe97231%_ '1)) + (_%method-specializer-table-update!97208%_ (vector-ref - _%table97105%_ + _%table97212%_ (let () (declare (not safe)) - (##fx+ _%probe97124%_ '1)))))) - (_%loop97121%_ - (let ((_%next-probe97146%_ - (fx+ _%start97117%_ - _%i97126%_ - (fx* _%i97126%_ _%i97126%_)))) + (##fx+ _%probe97231%_ '1)))))) + (_%loop97228%_ + (let ((_%next-probe97253%_ + (fx+ _%start97224%_ + _%i97233%_ + (fx* _%i97233%_ _%i97233%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97146%_ _%size97111%_)) + (##fxmodulo _%next-probe97253%_ _%size97218%_)) (let () (declare (not safe)) - (##fx+ _%i97126%_ '1)) - _%deleted97128%_)))))))))) + (##fx+ _%i97233%_ '1)) + _%deleted97235%_)))))))))) (define method-specializer-table-delete! - (lambda (_%tab97054%_ _%key97056%_) - (let ((_%table97059%_ - (let () (declare (not safe)) (&raw-table-table _%tab97054%_))) - (_%seed97061%_ - (let () (declare (not safe)) (&raw-table-seed _%tab97054%_)))) - (let* ((_%h97064%_ + (lambda (_%tab97161%_ _%key97163%_) + (let ((_%table97166%_ + (let () (declare (not safe)) (&raw-table-table _%tab97161%_))) + (_%seed97168%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97161%_)))) + (let* ((_%h97171%_ (fxxor (let () (declare (not safe)) - (procedure-hash _%key97056%_)) - _%seed97061%_)) - (_%size97067%_ (vector-length _%table97059%_)) - (_%entries97070%_ + (procedure-hash _%key97163%_)) + _%seed97168%_)) + (_%size97174%_ (vector-length _%table97166%_)) + (_%entries97177%_ (let () (declare (not safe)) - (##fxquotient _%size97067%_ '2))) - (_%start97073%_ - (let ((__tmp101718 + (##fxquotient _%size97174%_ '2))) + (_%start97180%_ + (let ((__tmp101825 (let () (declare (not safe)) - (##fxmodulo _%h97064%_ _%entries97070%_)))) + (##fxmodulo _%h97171%_ _%entries97177%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101718 '1)))) - (let _%loop97077%_ ((_%probe97080%_ _%start97073%_) - (_%i97082%_ '1)) - (let ((_%k97085%_ (vector-ref _%table97059%_ _%probe97080%_))) - (if (eq? _%k97085%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101825 '1)))) + (let _%loop97184%_ ((_%probe97187%_ _%start97180%_) + (_%i97189%_ '1)) + (let ((_%k97192%_ (vector-ref _%table97166%_ _%probe97187%_))) + (if (eq? _%k97192%_ (macro-unused-obj)) '#!void - (if (eq? _%k97085%_ (macro-deleted-obj)) - (_%loop97077%_ - (let ((_%next-probe97090%_ - (fx+ _%start97073%_ - _%i97082%_ - (fx* _%i97082%_ _%i97082%_)))) + (if (eq? _%k97192%_ (macro-deleted-obj)) + (_%loop97184%_ + (let ((_%next-probe97197%_ + (fx+ _%start97180%_ + _%i97189%_ + (fx* _%i97189%_ _%i97189%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97090%_ _%size97067%_)) - (let () (declare (not safe)) (##fx+ _%i97082%_ '1))) - (if (eq? _%key97056%_ _%k97085%_) + (##fxmodulo _%next-probe97197%_ _%size97174%_)) + (let () (declare (not safe)) (##fx+ _%i97189%_ '1))) + (if (eq? _%key97163%_ _%k97192%_) (let () (vector-set! - _%table97059%_ - _%probe97080%_ + _%table97166%_ + _%probe97187%_ (macro-deleted-obj)) (vector-set! - _%table97059%_ + _%table97166%_ (let () (declare (not safe)) - (##fx+ _%probe97080%_ '1)) + (##fx+ _%probe97187%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101719 - (let ((__tmp101720 + (let ((__tmp101826 + (let ((__tmp101827 (let () (declare (not safe)) (&raw-table-count - _%tab97054%_)))) + _%tab97161%_)))) (declare (not safe)) - (##fx- __tmp101720 '1)))) + (##fx- __tmp101827 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab97054%_ - __tmp101719))))) - (_%loop97077%_ - (let ((_%next-probe97096%_ - (fx+ _%start97073%_ - _%i97082%_ - (fx* _%i97082%_ _%i97082%_)))) + _%tab97161%_ + __tmp101826))))) + (_%loop97184%_ + (let ((_%next-probe97203%_ + (fx+ _%start97180%_ + _%i97189%_ + (fx* _%i97189%_ _%i97189%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97096%_ _%size97067%_)) + (##fxmodulo _%next-probe97203%_ _%size97174%_)) (let () (declare (not safe)) - (##fx+ _%i97082%_ '1)))))))))))) + (##fx+ _%i97189%_ '1)))))))))))) (define __method-specializers (make-method-specializer-table__% '#f '0)) (define __method-specializers-mx (vector '0)) (define bind-specializer! - (lambda (_%method-proc97045%_ _%specializer97046%_) + (lambda (_%method-proc97152%_ _%specializer97153%_) (let () (declare (not interrupts-enabled)) - (let _%again97050%_ () - (if (let ((__tmp101721 + (let _%again97157%_ () + (if (let ((__tmp101828 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101721 '0)) + (##fx= __tmp101828 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again97050%_))))) + (_%again97157%_))))) (method-specializer-table-set! __method-specializers - _%method-proc97045%_ - _%specializer97046%_) + _%method-proc97152%_ + _%specializer97153%_) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)))) (define __lookup-method-specializer - (lambda (_%proc97035%_) + (lambda (_%proc97142%_) (let () (declare (not interrupts-enabled)) - (let _%again97039%_ () - (if (let ((__tmp101722 + (let _%again97146%_ () + (if (let ((__tmp101829 (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101722 '0)) + (##fx= __tmp101829 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again97039%_))))) - (let ((_%specializer97043%_ + (_%again97146%_))))) + (let ((_%specializer97150%_ (method-specializer-table-ref __method-specializers - _%proc97035%_ + _%proc97142%_ '#f))) (let () (declare (not safe)) (##vector-cas! __method-specializers-mx '0 '0 '1)) - _%specializer97043%_))) + _%specializer97150%_))) (define __class-specializer-hash-key - (lambda (_%klass97033%_) - (let ((__tmp101723 - (let () (declare (not safe)) (##type-id _%klass97033%_)))) + (lambda (_%klass97140%_) + (let ((__tmp101830 + (let () (declare (not safe)) (##type-id _%klass97140%_)))) (declare (not safe)) - (symbolic-hash __tmp101723)))) + (symbolic-hash __tmp101830)))) (define make-class-specializer-table__% - (lambda (_%size-hint97014%_ _%seed97016%_) + (lambda (_%size-hint97121%_ _%seed97123%_) (let () (declare (not safe)) (make-raw-table__% - _%size-hint97014%_ + _%size-hint97121%_ __class-specializer-hash-key eq? - _%seed97016%_)))) + _%seed97123%_)))) (define make-class-specializer-table__0 (lambda () - (let* ((_%size-hint97022%_ '#f) (_%seed97024%_ '0)) - (make-class-specializer-table__% _%size-hint97022%_ _%seed97024%_)))) + (let* ((_%size-hint97129%_ '#f) (_%seed97131%_ '0)) + (make-class-specializer-table__% _%size-hint97129%_ _%seed97131%_)))) (define make-class-specializer-table__1 - (lambda (_%size-hint97026%_) - (let ((_%seed97028%_ '0)) - (make-class-specializer-table__% _%size-hint97026%_ _%seed97028%_)))) + (lambda (_%size-hint97133%_) + (let ((_%seed97135%_ '0)) + (make-class-specializer-table__% _%size-hint97133%_ _%seed97135%_)))) (define make-class-specializer-table - (lambda _g101725_ - (let ((_g101724_ (let () (declare (not safe)) (##length _g101725_)))) - (cond ((let () (declare (not safe)) (##fx= _g101724_ 0)) - (apply make-class-specializer-table__0 _g101725_)) - ((let () (declare (not safe)) (##fx= _g101724_ 1)) - (apply make-class-specializer-table__1 _g101725_)) - ((let () (declare (not safe)) (##fx= _g101724_ 2)) - (apply make-class-specializer-table__% _g101725_)) + (lambda _g101832_ + (let ((_g101831_ (let () (declare (not safe)) (##length _g101832_)))) + (cond ((let () (declare (not safe)) (##fx= _g101831_ 0)) + (apply make-class-specializer-table__0 _g101832_)) + ((let () (declare (not safe)) (##fx= _g101831_ 1)) + (apply make-class-specializer-table__1 _g101832_)) + ((let () (declare (not safe)) (##fx= _g101831_ 2)) + (apply make-class-specializer-table__% _g101832_)) (else (##raise-wrong-number-of-arguments-exception make-class-specializer-table - _g101725_)))))) + _g101832_)))))) (define class-specializer-table-ref - (lambda (_%tab96967%_ _%key96968%_ _%default96969%_) - (let ((_%table96971%_ - (let () (declare (not safe)) (&raw-table-table _%tab96967%_))) - (_%seed96972%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96967%_)))) - (let* ((_%h96974%_ - (fxxor (__class-specializer-hash-key _%key96968%_) - _%seed96972%_)) - (_%size96977%_ (vector-length _%table96971%_)) - (_%entries96980%_ + (lambda (_%tab97074%_ _%key97075%_ _%default97076%_) + (let ((_%table97078%_ + (let () (declare (not safe)) (&raw-table-table _%tab97074%_))) + (_%seed97079%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97074%_)))) + (let* ((_%h97081%_ + (fxxor (__class-specializer-hash-key _%key97075%_) + _%seed97079%_)) + (_%size97084%_ (vector-length _%table97078%_)) + (_%entries97087%_ (let () (declare (not safe)) - (##fxquotient _%size96977%_ '2))) - (_%start96983%_ - (let ((__tmp101726 + (##fxquotient _%size97084%_ '2))) + (_%start97090%_ + (let ((__tmp101833 (let () (declare (not safe)) - (##fxmodulo _%h96974%_ _%entries96980%_)))) + (##fxmodulo _%h97081%_ _%entries97087%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101726 '1)))) - (let _%loop96987%_ ((_%probe96990%_ _%start96983%_) - (_%i96992%_ '1) - (_%deleted96994%_ '#f)) - (let ((_%k96997%_ (vector-ref _%table96971%_ _%probe96990%_))) - (if (eq? _%k96997%_ (macro-unused-obj)) - _%default96969%_ - (if (eq? _%k96997%_ (macro-deleted-obj)) - (_%loop96987%_ - (let ((_%next-probe97002%_ - (fx+ _%start96983%_ - _%i96992%_ - (fx* _%i96992%_ _%i96992%_)))) + (##fxarithmetic-shift-left __tmp101833 '1)))) + (let _%loop97094%_ ((_%probe97097%_ _%start97090%_) + (_%i97099%_ '1) + (_%deleted97101%_ '#f)) + (let ((_%k97104%_ (vector-ref _%table97078%_ _%probe97097%_))) + (if (eq? _%k97104%_ (macro-unused-obj)) + _%default97076%_ + (if (eq? _%k97104%_ (macro-deleted-obj)) + (_%loop97094%_ + (let ((_%next-probe97109%_ + (fx+ _%start97090%_ + _%i97099%_ + (fx* _%i97099%_ _%i97099%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97002%_ _%size96977%_)) - (let () (declare (not safe)) (##fx+ _%i96992%_ '1)) - (let ((_%$e97005%_ _%deleted96994%_)) - (if _%$e97005%_ _%$e97005%_ _%probe96990%_))) - (if (eq? _%key96968%_ _%k96997%_) + (##fxmodulo _%next-probe97109%_ _%size97084%_)) + (let () (declare (not safe)) (##fx+ _%i97099%_ '1)) + (let ((_%$e97112%_ _%deleted97101%_)) + (if _%$e97112%_ _%$e97112%_ _%probe97097%_))) + (if (eq? _%key97075%_ _%k97104%_) (vector-ref - _%table96971%_ + _%table97078%_ (let () (declare (not safe)) - (##fx+ _%probe96990%_ '1))) - (_%loop96987%_ - (let ((_%next-probe97010%_ - (fx+ _%start96983%_ - _%i96992%_ - (fx* _%i96992%_ _%i96992%_)))) + (##fx+ _%probe97097%_ '1))) + (_%loop97094%_ + (let ((_%next-probe97117%_ + (fx+ _%start97090%_ + _%i97099%_ + (fx* _%i97099%_ _%i97099%_)))) (declare (not safe)) - (##fxmodulo _%next-probe97010%_ _%size96977%_)) + (##fxmodulo _%next-probe97117%_ _%size97084%_)) (let () (declare (not safe)) - (##fx+ _%i96992%_ '1)) - _%deleted96994%_)))))))))) + (##fx+ _%i97099%_ '1)) + _%deleted97101%_)))))))))) (define class-specializer-table-set! - (lambda (_%tab96963%_ _%key96964%_ _%value96965%_) - (if (let ((__tmp101729 + (lambda (_%tab97070%_ _%key97071%_ _%value97072%_) + (if (let ((__tmp101836 (let () (declare (not safe)) - (&raw-table-free _%tab96963%_))) - (__tmp101727 - (let ((__tmp101728 + (&raw-table-free _%tab97070%_))) + (__tmp101834 + (let ((__tmp101835 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96963%_))))) + (&raw-table-table _%tab97070%_))))) (declare (not safe)) - (##fxquotient __tmp101728 '4)))) + (##fxquotient __tmp101835 '4)))) (declare (not safe)) - (##fx< __tmp101729 __tmp101727)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96963%_)) + (##fx< __tmp101836 __tmp101834)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97070%_)) '#!void) (__class-specializer-table-set! - _%tab96963%_ - _%key96964%_ - _%value96965%_))) + _%tab97070%_ + _%key97071%_ + _%value97072%_))) (define __class-specializer-table-set! - (lambda (_%tab96914%_ _%key96915%_ _%value96916%_) - (let ((_%table96919%_ - (let () (declare (not safe)) (&raw-table-table _%tab96914%_))) - (_%seed96920%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96914%_)))) - (let* ((_%h96922%_ - (fxxor (__class-specializer-hash-key _%key96915%_) - _%seed96920%_)) - (_%size96925%_ (vector-length _%table96919%_)) - (_%entries96928%_ + (lambda (_%tab97021%_ _%key97022%_ _%value97023%_) + (let ((_%table97026%_ + (let () (declare (not safe)) (&raw-table-table _%tab97021%_))) + (_%seed97027%_ + (let () (declare (not safe)) (&raw-table-seed _%tab97021%_)))) + (let* ((_%h97029%_ + (fxxor (__class-specializer-hash-key _%key97022%_) + _%seed97027%_)) + (_%size97032%_ (vector-length _%table97026%_)) + (_%entries97035%_ (let () (declare (not safe)) - (##fxquotient _%size96925%_ '2))) - (_%start96931%_ - (let ((__tmp101730 + (##fxquotient _%size97032%_ '2))) + (_%start97038%_ + (let ((__tmp101837 (let () (declare (not safe)) - (##fxmodulo _%h96922%_ _%entries96928%_)))) + (##fxmodulo _%h97029%_ _%entries97035%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101730 '1)))) - (let _%loop96935%_ ((_%probe96938%_ _%start96931%_) - (_%i96940%_ '1) - (_%deleted96942%_ '#f)) - (let ((_%k96945%_ (vector-ref _%table96919%_ _%probe96938%_))) - (if (eq? _%k96945%_ (macro-unused-obj)) - (if _%deleted96942%_ + (##fxarithmetic-shift-left __tmp101837 '1)))) + (let _%loop97042%_ ((_%probe97045%_ _%start97038%_) + (_%i97047%_ '1) + (_%deleted97049%_ '#f)) + (let ((_%k97052%_ (vector-ref _%table97026%_ _%probe97045%_))) + (if (eq? _%k97052%_ (macro-unused-obj)) + (if _%deleted97049%_ (begin (vector-set! - _%table96919%_ - _%deleted96942%_ - _%key96915%_) + _%table97026%_ + _%deleted97049%_ + _%key97022%_) (vector-set! - _%table96919%_ + _%table97026%_ (let () (declare (not safe)) - (##fx+ _%deleted96942%_ '1)) - _%value96916%_) + (##fx+ _%deleted97049%_ '1)) + _%value97023%_) ((lambda () - (let ((__tmp101731 - (let ((__tmp101732 + (let ((__tmp101838 + (let ((__tmp101839 (let () (declare (not safe)) - (&raw-table-count _%tab96914%_)))) + (&raw-table-count _%tab97021%_)))) (declare (not safe)) - (##fx+ __tmp101732 '1)))) + (##fx+ __tmp101839 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96914%_ - __tmp101731))))) + _%tab97021%_ + __tmp101838))))) (begin (vector-set! - _%table96919%_ - _%probe96938%_ - _%key96915%_) + _%table97026%_ + _%probe97045%_ + _%key97022%_) (vector-set! - _%table96919%_ + _%table97026%_ (let () (declare (not safe)) - (##fx+ _%probe96938%_ '1)) - _%value96916%_) + (##fx+ _%probe97045%_ '1)) + _%value97023%_) ((lambda () - (let ((__tmp101733 - (let ((__tmp101734 + (let ((__tmp101840 + (let ((__tmp101841 (let () (declare (not safe)) - (&raw-table-free _%tab96914%_)))) + (&raw-table-free _%tab97021%_)))) (declare (not safe)) - (##fx- __tmp101734 '1)))) + (##fx- __tmp101841 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96914%_ __tmp101733)) - (let ((__tmp101735 - (let ((__tmp101736 + (&raw-table-free-set! _%tab97021%_ __tmp101840)) + (let ((__tmp101842 + (let ((__tmp101843 (let () (declare (not safe)) - (&raw-table-count _%tab96914%_)))) + (&raw-table-count _%tab97021%_)))) (declare (not safe)) - (##fx+ __tmp101736 '1)))) + (##fx+ __tmp101843 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96914%_ - __tmp101735)))))) - (if (eq? _%k96945%_ (macro-deleted-obj)) - (_%loop96935%_ - (let ((_%next-probe96952%_ - (fx+ _%start96931%_ - _%i96940%_ - (fx* _%i96940%_ _%i96940%_)))) + _%tab97021%_ + __tmp101842)))))) + (if (eq? _%k97052%_ (macro-deleted-obj)) + (_%loop97042%_ + (let ((_%next-probe97059%_ + (fx+ _%start97038%_ + _%i97047%_ + (fx* _%i97047%_ _%i97047%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96952%_ _%size96925%_)) - (let () (declare (not safe)) (##fx+ _%i96940%_ '1)) - (let ((_%$e96955%_ _%deleted96942%_)) - (if _%$e96955%_ _%$e96955%_ _%probe96938%_))) - (if (eq? _%key96915%_ _%k96945%_) + (##fxmodulo _%next-probe97059%_ _%size97032%_)) + (let () (declare (not safe)) (##fx+ _%i97047%_ '1)) + (let ((_%$e97062%_ _%deleted97049%_)) + (if _%$e97062%_ _%$e97062%_ _%probe97045%_))) + (if (eq? _%key97022%_ _%k97052%_) (let () (vector-set! - _%table96919%_ - _%probe96938%_ - _%key96915%_) + _%table97026%_ + _%probe97045%_ + _%key97022%_) (vector-set! - _%table96919%_ + _%table97026%_ (let () (declare (not safe)) - (##fx+ _%probe96938%_ '1)) - _%value96916%_)) - (_%loop96935%_ - (let ((_%next-probe96960%_ - (fx+ _%start96931%_ - _%i96940%_ - (fx* _%i96940%_ _%i96940%_)))) + (##fx+ _%probe97045%_ '1)) + _%value97023%_)) + (_%loop97042%_ + (let ((_%next-probe97067%_ + (fx+ _%start97038%_ + _%i97047%_ + (fx* _%i97047%_ _%i97047%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96960%_ _%size96925%_)) + (##fxmodulo _%next-probe97067%_ _%size97032%_)) (let () (declare (not safe)) - (##fx+ _%i96940%_ '1)) - _%deleted96942%_)))))))))) + (##fx+ _%i97047%_ '1)) + _%deleted97049%_)))))))))) (define class-specializer-table-update! - (lambda (_%tab96909%_ - _%key96910%_ - _%class-specializer-table-update!96911%_ - _%default96912%_) - (if (let ((__tmp101739 + (lambda (_%tab97016%_ + _%key97017%_ + _%class-specializer-table-update!97018%_ + _%default97019%_) + (if (let ((__tmp101846 (let () (declare (not safe)) - (&raw-table-free _%tab96909%_))) - (__tmp101737 - (let ((__tmp101738 + (&raw-table-free _%tab97016%_))) + (__tmp101844 + (let ((__tmp101845 (vector-length (let () (declare (not safe)) - (&raw-table-table _%tab96909%_))))) + (&raw-table-table _%tab97016%_))))) (declare (not safe)) - (##fxquotient __tmp101738 '4)))) + (##fxquotient __tmp101845 '4)))) (declare (not safe)) - (##fx< __tmp101739 __tmp101737)) - (let () (declare (not safe)) (__raw-table-rehash! _%tab96909%_)) + (##fx< __tmp101846 __tmp101844)) + (let () (declare (not safe)) (__raw-table-rehash! _%tab97016%_)) '#!void) (__class-specializer-table-update! - _%tab96909%_ - _%key96910%_ - _%class-specializer-table-update!96911%_ - _%default96912%_))) + _%tab97016%_ + _%key97017%_ + _%class-specializer-table-update!97018%_ + _%default97019%_))) (define __class-specializer-table-update! - (lambda (_%tab96859%_ - _%key96860%_ - _%class-specializer-table-update!96861%_ - _%default96862%_) - (let ((_%table96865%_ - (let () (declare (not safe)) (&raw-table-table _%tab96859%_))) - (_%seed96866%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96859%_)))) - (let* ((_%h96868%_ - (fxxor (__class-specializer-hash-key _%key96860%_) - _%seed96866%_)) - (_%size96871%_ (vector-length _%table96865%_)) - (_%entries96874%_ + (lambda (_%tab96966%_ + _%key96967%_ + _%class-specializer-table-update!96968%_ + _%default96969%_) + (let ((_%table96972%_ + (let () (declare (not safe)) (&raw-table-table _%tab96966%_))) + (_%seed96973%_ + (let () (declare (not safe)) (&raw-table-seed _%tab96966%_)))) + (let* ((_%h96975%_ + (fxxor (__class-specializer-hash-key _%key96967%_) + _%seed96973%_)) + (_%size96978%_ (vector-length _%table96972%_)) + (_%entries96981%_ (let () (declare (not safe)) - (##fxquotient _%size96871%_ '2))) - (_%start96877%_ - (let ((__tmp101740 + (##fxquotient _%size96978%_ '2))) + (_%start96984%_ + (let ((__tmp101847 (let () (declare (not safe)) - (##fxmodulo _%h96868%_ _%entries96874%_)))) + (##fxmodulo _%h96975%_ _%entries96981%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101740 '1)))) - (let _%loop96881%_ ((_%probe96884%_ _%start96877%_) - (_%i96886%_ '1) - (_%deleted96888%_ '#f)) - (let ((_%k96891%_ (vector-ref _%table96865%_ _%probe96884%_))) - (if (eq? _%k96891%_ (macro-unused-obj)) - (if _%deleted96888%_ + (##fxarithmetic-shift-left __tmp101847 '1)))) + (let _%loop96988%_ ((_%probe96991%_ _%start96984%_) + (_%i96993%_ '1) + (_%deleted96995%_ '#f)) + (let ((_%k96998%_ (vector-ref _%table96972%_ _%probe96991%_))) + (if (eq? _%k96998%_ (macro-unused-obj)) + (if _%deleted96995%_ (begin (vector-set! - _%table96865%_ - _%deleted96888%_ - _%key96860%_) + _%table96972%_ + _%deleted96995%_ + _%key96967%_) (vector-set! - _%table96865%_ + _%table96972%_ (let () (declare (not safe)) - (##fx+ _%deleted96888%_ '1)) - (_%class-specializer-table-update!96861%_ - _%default96862%_)) + (##fx+ _%deleted96995%_ '1)) + (_%class-specializer-table-update!96968%_ + _%default96969%_)) ((lambda () - (let ((__tmp101741 - (let ((__tmp101742 + (let ((__tmp101848 + (let ((__tmp101849 (let () (declare (not safe)) - (&raw-table-count _%tab96859%_)))) + (&raw-table-count _%tab96966%_)))) (declare (not safe)) - (##fx+ __tmp101742 '1)))) + (##fx+ __tmp101849 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96859%_ - __tmp101741))))) + _%tab96966%_ + __tmp101848))))) (begin (vector-set! - _%table96865%_ - _%probe96884%_ - _%key96860%_) + _%table96972%_ + _%probe96991%_ + _%key96967%_) (vector-set! - _%table96865%_ + _%table96972%_ (let () (declare (not safe)) - (##fx+ _%probe96884%_ '1)) - (_%class-specializer-table-update!96861%_ - _%default96862%_)) + (##fx+ _%probe96991%_ '1)) + (_%class-specializer-table-update!96968%_ + _%default96969%_)) ((lambda () - (let ((__tmp101743 - (let ((__tmp101744 + (let ((__tmp101850 + (let ((__tmp101851 (let () (declare (not safe)) - (&raw-table-free _%tab96859%_)))) + (&raw-table-free _%tab96966%_)))) (declare (not safe)) - (##fx- __tmp101744 '1)))) + (##fx- __tmp101851 '1)))) (declare (not safe)) - (&raw-table-free-set! _%tab96859%_ __tmp101743)) - (let ((__tmp101745 - (let ((__tmp101746 + (&raw-table-free-set! _%tab96966%_ __tmp101850)) + (let ((__tmp101852 + (let ((__tmp101853 (let () (declare (not safe)) - (&raw-table-count _%tab96859%_)))) + (&raw-table-count _%tab96966%_)))) (declare (not safe)) - (##fx+ __tmp101746 '1)))) + (##fx+ __tmp101853 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96859%_ - __tmp101745)))))) - (if (eq? _%k96891%_ (macro-deleted-obj)) - (_%loop96881%_ - (let ((_%next-probe96898%_ - (fx+ _%start96877%_ - _%i96886%_ - (fx* _%i96886%_ _%i96886%_)))) + _%tab96966%_ + __tmp101852)))))) + (if (eq? _%k96998%_ (macro-deleted-obj)) + (_%loop96988%_ + (let ((_%next-probe97005%_ + (fx+ _%start96984%_ + _%i96993%_ + (fx* _%i96993%_ _%i96993%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96898%_ _%size96871%_)) - (let () (declare (not safe)) (##fx+ _%i96886%_ '1)) - (let ((_%$e96901%_ _%deleted96888%_)) - (if _%$e96901%_ _%$e96901%_ _%probe96884%_))) - (if (eq? _%key96860%_ _%k96891%_) + (##fxmodulo _%next-probe97005%_ _%size96978%_)) + (let () (declare (not safe)) (##fx+ _%i96993%_ '1)) + (let ((_%$e97008%_ _%deleted96995%_)) + (if _%$e97008%_ _%$e97008%_ _%probe96991%_))) + (if (eq? _%key96967%_ _%k96998%_) (let () (vector-set! - _%table96865%_ - _%probe96884%_ - _%key96860%_) + _%table96972%_ + _%probe96991%_ + _%key96967%_) (vector-set! - _%table96865%_ + _%table96972%_ (let () (declare (not safe)) - (##fx+ _%probe96884%_ '1)) - (_%class-specializer-table-update!96861%_ + (##fx+ _%probe96991%_ '1)) + (_%class-specializer-table-update!96968%_ (vector-ref - _%table96865%_ + _%table96972%_ (let () (declare (not safe)) - (##fx+ _%probe96884%_ '1)))))) - (_%loop96881%_ - (let ((_%next-probe96906%_ - (fx+ _%start96877%_ - _%i96886%_ - (fx* _%i96886%_ _%i96886%_)))) + (##fx+ _%probe96991%_ '1)))))) + (_%loop96988%_ + (let ((_%next-probe97013%_ + (fx+ _%start96984%_ + _%i96993%_ + (fx* _%i96993%_ _%i96993%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96906%_ _%size96871%_)) + (##fxmodulo _%next-probe97013%_ _%size96978%_)) (let () (declare (not safe)) - (##fx+ _%i96886%_ '1)) - _%deleted96888%_)))))))))) + (##fx+ _%i96993%_ '1)) + _%deleted96995%_)))))))))) (define class-specializer-table-delete! - (lambda (_%tab96814%_ _%key96816%_) - (let ((_%table96819%_ - (let () (declare (not safe)) (&raw-table-table _%tab96814%_))) - (_%seed96821%_ - (let () (declare (not safe)) (&raw-table-seed _%tab96814%_)))) - (let* ((_%h96824%_ - (fxxor (__class-specializer-hash-key _%key96816%_) - _%seed96821%_)) - (_%size96827%_ (vector-length _%table96819%_)) - (_%entries96830%_ + (lambda (_%tab96921%_ _%key96923%_) + (let ((_%table96926%_ + (let () (declare (not safe)) (&raw-table-table _%tab96921%_))) + (_%seed96928%_ + (let () (declare (not safe)) (&raw-table-seed _%tab96921%_)))) + (let* ((_%h96931%_ + (fxxor (__class-specializer-hash-key _%key96923%_) + _%seed96928%_)) + (_%size96934%_ (vector-length _%table96926%_)) + (_%entries96937%_ (let () (declare (not safe)) - (##fxquotient _%size96827%_ '2))) - (_%start96833%_ - (let ((__tmp101747 + (##fxquotient _%size96934%_ '2))) + (_%start96940%_ + (let ((__tmp101854 (let () (declare (not safe)) - (##fxmodulo _%h96824%_ _%entries96830%_)))) + (##fxmodulo _%h96931%_ _%entries96937%_)))) (declare (not safe)) - (##fxarithmetic-shift-left __tmp101747 '1)))) - (let _%loop96837%_ ((_%probe96840%_ _%start96833%_) - (_%i96842%_ '1)) - (let ((_%k96845%_ (vector-ref _%table96819%_ _%probe96840%_))) - (if (eq? _%k96845%_ (macro-unused-obj)) + (##fxarithmetic-shift-left __tmp101854 '1)))) + (let _%loop96944%_ ((_%probe96947%_ _%start96940%_) + (_%i96949%_ '1)) + (let ((_%k96952%_ (vector-ref _%table96926%_ _%probe96947%_))) + (if (eq? _%k96952%_ (macro-unused-obj)) '#!void - (if (eq? _%k96845%_ (macro-deleted-obj)) - (_%loop96837%_ - (let ((_%next-probe96850%_ - (fx+ _%start96833%_ - _%i96842%_ - (fx* _%i96842%_ _%i96842%_)))) + (if (eq? _%k96952%_ (macro-deleted-obj)) + (_%loop96944%_ + (let ((_%next-probe96957%_ + (fx+ _%start96940%_ + _%i96949%_ + (fx* _%i96949%_ _%i96949%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96850%_ _%size96827%_)) - (let () (declare (not safe)) (##fx+ _%i96842%_ '1))) - (if (eq? _%key96816%_ _%k96845%_) + (##fxmodulo _%next-probe96957%_ _%size96934%_)) + (let () (declare (not safe)) (##fx+ _%i96949%_ '1))) + (if (eq? _%key96923%_ _%k96952%_) (let () (vector-set! - _%table96819%_ - _%probe96840%_ + _%table96926%_ + _%probe96947%_ (macro-deleted-obj)) (vector-set! - _%table96819%_ + _%table96926%_ (let () (declare (not safe)) - (##fx+ _%probe96840%_ '1)) + (##fx+ _%probe96947%_ '1)) (macro-absent-obj)) ((lambda () - (let ((__tmp101748 - (let ((__tmp101749 + (let ((__tmp101855 + (let ((__tmp101856 (let () (declare (not safe)) (&raw-table-count - _%tab96814%_)))) + _%tab96921%_)))) (declare (not safe)) - (##fx- __tmp101749 '1)))) + (##fx- __tmp101856 '1)))) (declare (not safe)) (&raw-table-count-set! - _%tab96814%_ - __tmp101748))))) - (_%loop96837%_ - (let ((_%next-probe96856%_ - (fx+ _%start96833%_ - _%i96842%_ - (fx* _%i96842%_ _%i96842%_)))) + _%tab96921%_ + __tmp101855))))) + (_%loop96944%_ + (let ((_%next-probe96963%_ + (fx+ _%start96940%_ + _%i96949%_ + (fx* _%i96949%_ _%i96949%_)))) (declare (not safe)) - (##fxmodulo _%next-probe96856%_ _%size96827%_)) + (##fxmodulo _%next-probe96963%_ _%size96934%_)) (let () (declare (not safe)) - (##fx+ _%i96842%_ '1)))))))))))) + (##fx+ _%i96949%_ '1)))))))))))) (define __class-specializers-mx (vector '0)) (define __class-specializers (make-class-specializer-table__% '#f '0)) (define __class-specializers-key (cons '#f '#f)) (define specialize-class - (lambda (_%klass96800%_) + (lambda (_%klass96907%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96800%_ 'class)) - (let ((_%klass96804%_ _%klass96800%_)) - (__specialize-class _%klass96804%_)) + (##structure-instance-of? _%klass96907%_ 'class)) + (let ((_%klass96911%_ _%klass96907%_)) + (__specialize-class _%klass96911%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4563,190 +4563,190 @@ 'contract: 'class-type? 'value: - _%klass96800%_) + _%klass96907%_) '#!void)))) (define __specialize-class - (lambda (_%klass96782%_) - (let* ((_%klass96785%_ _%klass96782%_) - (_%$e96794%_ (__lookup-class-specializer _%klass96785%_))) - (if _%$e96794%_ - _%$e96794%_ - (let ((_%method-table96798%_ - (___specialize-class _%klass96785%_))) + (lambda (_%klass96889%_) + (let* ((_%klass96892%_ _%klass96889%_) + (_%$e96901%_ (__lookup-class-specializer _%klass96892%_))) + (if _%$e96901%_ + _%$e96901%_ + (let ((_%method-table96905%_ + (___specialize-class _%klass96892%_))) (__bind-class-specializer! - _%klass96785%_ - _%method-table96798%_) - _%method-table96798%_))))) + _%klass96892%_ + _%method-table96905%_) + _%method-table96905%_))))) (define __lookup-class-specializer - (lambda (_%klass96772%_) + (lambda (_%klass96879%_) (let () (declare (not interrupts-enabled)) - (let _%again96776%_ () - (if (let ((__tmp101750 + (let _%again96883%_ () + (if (let ((__tmp101857 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101750 '0)) + (##fx= __tmp101857 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96776%_))))) - (let ((_%method-table96780%_ + (_%again96883%_))))) + (let ((_%method-table96887%_ (class-specializer-table-ref __class-specializers - _%klass96772%_ + _%klass96879%_ '#f))) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)) - _%method-table96780%_))) + _%method-table96887%_))) (define __bind-class-specializer! - (lambda (_%klass96763%_ _%method-table96764%_) + (lambda (_%klass96870%_ _%method-table96871%_) (let () (declare (not interrupts-enabled)) - (let _%again96768%_ () - (if (let ((__tmp101751 + (let _%again96875%_ () + (if (let ((__tmp101858 (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101751 '0)) + (##fx= __tmp101858 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96768%_))))) + (_%again96875%_))))) (class-specializer-table-set! __class-specializers - _%klass96763%_ - _%method-table96764%_) + _%klass96870%_ + _%method-table96871%_) (let () (declare (not safe)) (##vector-cas! __class-specializers-mx '0 '0 '1)))) (define __specialize-method - (lambda (_%klass96747%_ - _%method-table96748%_ - _%method96749%_ - _%proc96750%_) - (let ((_%$e96752%_ + (lambda (_%klass96854%_ + _%method-table96855%_ + _%method96856%_ + _%proc96857%_) + (let ((_%$e96859%_ (let () (declare (not safe)) (symbolic-table-ref - _%method-table96748%_ - _%method96749%_ + _%method-table96855%_ + _%method96856%_ '#f)))) - (if _%$e96752%_ - _%$e96752%_ - (let ((_%$e96755%_ (__lookup-method-specializer _%proc96750%_))) - (if _%$e96755%_ - ((lambda (_%specialize96758%_) - (let ((_%specialized-proc96760%_ - (_%specialize96758%_ - _%klass96747%_ - _%method-table96748%_))) + (if _%$e96859%_ + _%$e96859%_ + (let ((_%$e96862%_ (__lookup-method-specializer _%proc96857%_))) + (if _%$e96862%_ + ((lambda (_%specialize96865%_) + (let ((_%specialized-proc96867%_ + (_%specialize96865%_ + _%klass96854%_ + _%method-table96855%_))) (declare (not safe)) (symbolic-table-set! - _%method-table96748%_ - _%method96749%_ - _%specialized-proc96760%_))) - _%$e96755%_) + _%method-table96855%_ + _%method96856%_ + _%specialized-proc96867%_))) + _%$e96862%_) (let () (declare (not safe)) (symbolic-table-set! - _%method-table96748%_ - _%method96749%_ - _%proc96750%_)))))))) + _%method-table96855%_ + _%method96856%_ + _%proc96857%_)))))))) (define ___specialize-class - (lambda (_%klass96689%_) + (lambda (_%klass96796%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96689%_ 'class)) - (if (__class-type-metaclass? _%klass96689%_) - (let ((__method101597 - (__method-ref _%klass96689%_ 'specialize-class))) - (if __method101597 + (##structure-instance-of? _%klass96796%_ 'class)) + (if (__class-type-metaclass? _%klass96796%_) + (let ((__method101704 + (__method-ref _%klass96796%_ 'specialize-class))) + (if __method101704 (let () (declare (not safe)) - (__method101597 _%klass96689%_)) + (__method101704 _%klass96796%_)) (begin (error '"Missing method" - _%klass96689%_ + _%klass96796%_ 'specialize-class) '#!void))) - (if (let ((__tmp101752 + (if (let ((__tmp101859 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96689%_ + _%klass96796%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101752)) + (__find class-type-metaclass? __tmp101859)) (error '"cannot specialize class that extends metaclass without a metaclass" - _%klass96689%_) - (let ((_%method-table96695%_ + _%klass96796%_) + (let ((_%method-table96802%_ (let () (declare (not safe)) (make-symbolic-table__% '#f '0)))) - (let _%loop96697%_ ((_%rest96699%_ + (let _%loop96804%_ ((_%rest96806%_ (__class-precedence-list - _%klass96689%_))) - (let* ((_%rest9670096708%_ _%rest96699%_) - (_%else9670296716%_ - (lambda () _%method-table96695%_)) - (_%K9670496735%_ - (lambda (_%rest96719%_ _%xklass96720%_) - (let ((_%xmethod-table9672196723%_ + _%klass96796%_))) + (let* ((_%rest9680796815%_ _%rest96806%_) + (_%else9680996823%_ + (lambda () _%method-table96802%_)) + (_%K9681196842%_ + (lambda (_%rest96826%_ _%xklass96827%_) + (let ((_%xmethod-table9682896830%_ (let () (declare (not safe)) (##unchecked-structure-ref - _%xklass96720%_ + _%xklass96827%_ '11 '#f '#f)))) - (if _%xmethod-table9672196723%_ - (let* ((_%xmethod-table96726%_ - _%xmethod-table9672196723%_) - (__tmp101753 - (lambda (_%g9672796730%_ - _%g9672896732%_) + (if _%xmethod-table9682896830%_ + (let* ((_%xmethod-table96833%_ + _%xmethod-table9682896830%_) + (__tmp101860 + (lambda (_%g9683496837%_ + _%g9683596839%_) (__specialize-method - _%klass96689%_ - _%method-table96695%_ - _%g9672796730%_ - _%g9672896732%_)))) + _%klass96796%_ + _%method-table96802%_ + _%g9683496837%_ + _%g9683596839%_)))) (declare (not safe)) (raw-table-for-each - _%xmethod-table96726%_ - __tmp101753)) + _%xmethod-table96833%_ + __tmp101860)) '#f)) - (_%loop96697%_ _%rest96719%_)))) - (if (pair? _%rest9670096708%_) - (let ((_%hd9670596738%_ + (_%loop96804%_ _%rest96826%_)))) + (if (pair? _%rest9680796815%_) + (let ((_%hd9681296845%_ (let () (declare (not safe)) - (##car _%rest9670096708%_))) - (_%tl9670696740%_ + (##car _%rest9680796815%_))) + (_%tl9681396847%_ (let () (declare (not safe)) - (##cdr _%rest9670096708%_)))) - (let* ((_%xklass96743%_ _%hd9670596738%_) - (_%rest96745%_ _%tl9670696740%_)) - (_%K9670496735%_ - _%rest96745%_ - _%xklass96743%_))) - (_%else9670296716%_))))))) - (if (let () (declare (not safe)) (##type? _%klass96689%_)) - (__specialize-class (__shadow-class _%klass96689%_)) - (error '"bad class; cannot specialize" _%klass96689%_))))) + (##cdr _%rest9680796815%_)))) + (let* ((_%xklass96850%_ _%hd9681296845%_) + (_%rest96852%_ _%tl9681396847%_)) + (_%K9681196842%_ + _%rest96852%_ + _%xklass96850%_))) + (_%else9680996823%_))))))) + (if (let () (declare (not safe)) (##type? _%klass96796%_)) + (__specialize-class (__shadow-class _%klass96796%_)) + (error '"bad class; cannot specialize" _%klass96796%_))))) (define seal-class! - (lambda (_%klass96675%_) + (lambda (_%klass96782%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96675%_ 'class)) - (let ((_%klass96679%_ _%klass96675%_)) - (__seal-class! _%klass96679%_)) + (##structure-instance-of? _%klass96782%_ 'class)) + (let ((_%klass96786%_ _%klass96782%_)) + (__seal-class! _%klass96786%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4755,60 +4755,60 @@ 'contract: 'class-type? 'value: - _%klass96675%_) + _%klass96782%_) '#!void)))) (define __seal-class! - (lambda (_%klass96658%_) - (let ((_%klass96661%_ _%klass96658%_)) - (if (__class-type-sealed? _%klass96661%_) + (lambda (_%klass96765%_) + (let ((_%klass96768%_ _%klass96765%_)) + (if (__class-type-sealed? _%klass96768%_) '#!void (begin - (if (__class-type-final? _%klass96661%_) + (if (__class-type-final? _%klass96768%_) '#!void - (error '"cannot seal non-final class" _%klass96661%_)) - (if (__class-type-metaclass? _%klass96661%_) - (let ((__method101598 - (__method-ref _%klass96661%_ 'seal-class!))) - (if __method101598 + (error '"cannot seal non-final class" _%klass96768%_)) + (if (__class-type-metaclass? _%klass96768%_) + (let ((__method101705 + (__method-ref _%klass96768%_ 'seal-class!))) + (if __method101705 (let () (declare (not safe)) - (__method101598 _%klass96661%_)) + (__method101705 _%klass96768%_)) (begin (error '"Missing method" - _%klass96661%_ + _%klass96768%_ 'seal-class!) '#!void))) - (if (let ((__tmp101754 + (if (let ((__tmp101861 (let () (declare (not safe)) (##unchecked-structure-ref - _%klass96661%_ + _%klass96768%_ '6 '#f '#f)))) (declare (not safe)) - (__find class-type-metaclass? __tmp101754)) + (__find class-type-metaclass? __tmp101861)) (error '"cannot seal class that extends metaclass without a metaclass" - _%klass96661%_) - (let ((_%method-table96673%_ - (__specialize-class _%klass96661%_))) + _%klass96768%_) + (let ((_%method-table96780%_ + (__specialize-class _%klass96768%_))) (declare (not safe)) (##unchecked-structure-set! - _%klass96661%_ - _%method-table96673%_ + _%klass96768%_ + _%method-table96780%_ '11 '#f '#f)))) - (__class-type-seal! _%klass96661%_)))))) + (__class-type-seal! _%klass96768%_)))))) (define next-method - (lambda (_%subklass96632%_ _%obj96633%_ _%id96634%_) + (lambda (_%subklass96739%_ _%obj96740%_ _%id96741%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96632%_ 'class)) - (let ((_%subklass96638%_ _%subklass96632%_)) - (if (symbol? _%id96634%_) - (let ((_%id96648%_ _%id96634%_)) - (__next-method _%subklass96638%_ _%obj96633%_ _%id96648%_)) + (##structure-instance-of? _%subklass96739%_ 'class)) + (let ((_%subklass96745%_ _%subklass96739%_)) + (if (symbol? _%id96741%_) + (let ((_%id96755%_ _%id96741%_)) + (__next-method _%subklass96745%_ _%obj96740%_ _%id96755%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4817,7 +4817,7 @@ 'contract: 'symbol? 'value: - _%id96634%_) + _%id96741%_) '#!void))) (begin (raise-contract-violation-error @@ -4827,61 +4827,61 @@ 'contract: 'class-type? 'value: - _%subklass96632%_) + _%subklass96739%_) '#!void)))) (define __next-method - (lambda (_%subklass96569%_ _%obj96570%_ _%id96571%_) - (let* ((_%subklass96574%_ _%subklass96569%_) (_%id96582%_ _%id96571%_)) - (letrec ((_%find-next-method96591%_ - (lambda (_%klass96593%_) - (let _%lp96595%_ ((_%rest96597%_ + (lambda (_%subklass96676%_ _%obj96677%_ _%id96678%_) + (let* ((_%subklass96681%_ _%subklass96676%_) (_%id96689%_ _%id96678%_)) + (letrec ((_%find-next-method96698%_ + (lambda (_%klass96700%_) + (let _%lp96702%_ ((_%rest96704%_ (class-precedence-list - _%klass96593%_))) - (let* ((_%rest9659896606%_ _%rest96597%_) - (_%else9660096614%_ (lambda () '#f)) - (_%K9660296620%_ - (lambda (_%rest96617%_ _%klass96618%_) + _%klass96700%_))) + (let* ((_%rest9670596713%_ _%rest96704%_) + (_%else9670796721%_ (lambda () '#f)) + (_%K9670996727%_ + (lambda (_%rest96724%_ _%klass96725%_) (if (eq? (let () (declare (not safe)) - (##type-id _%subklass96574%_)) + (##type-id _%subklass96681%_)) (let () (declare (not safe)) - (##type-id _%klass96618%_))) + (##type-id _%klass96725%_))) (__mixin-find-method - _%rest96617%_ - _%obj96570%_ - _%id96582%_) - (_%lp96595%_ _%rest96617%_))))) - (if (pair? _%rest9659896606%_) - (let ((_%hd9660396623%_ + _%rest96724%_ + _%obj96677%_ + _%id96689%_) + (_%lp96702%_ _%rest96724%_))))) + (if (pair? _%rest9670596713%_) + (let ((_%hd9671096730%_ (let () (declare (not safe)) - (##car _%rest9659896606%_))) - (_%tl9660496625%_ + (##car _%rest9670596713%_))) + (_%tl9671196732%_ (let () (declare (not safe)) - (##cdr _%rest9659896606%_)))) - (let* ((_%klass96628%_ _%hd9660396623%_) - (_%rest96630%_ _%tl9660496625%_)) - (_%K9660296620%_ - _%rest96630%_ - _%klass96628%_))) - (_%else9660096614%_))))))) - (_%find-next-method96591%_ (class-of _%obj96570%_)))))) + (##cdr _%rest9670596713%_)))) + (let* ((_%klass96735%_ _%hd9671096730%_) + (_%rest96737%_ _%tl9671196732%_)) + (_%K9670996727%_ + _%rest96737%_ + _%klass96735%_))) + (_%else9670796721%_))))))) + (_%find-next-method96698%_ (class-of _%obj96677%_)))))) (define call-next-method - (lambda (_%subklass96542%_ _%obj96543%_ _%id96544%_ . _%args96545%_) + (lambda (_%subklass96649%_ _%obj96650%_ _%id96651%_ . _%args96652%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%subklass96542%_ 'class)) - (let ((_%subklass96549%_ _%subklass96542%_)) - (if (symbol? _%id96544%_) - (let ((_%id96559%_ _%id96544%_)) + (##structure-instance-of? _%subklass96649%_ 'class)) + (let ((_%subklass96656%_ _%subklass96649%_)) + (if (symbol? _%id96651%_) + (let ((_%id96666%_ _%id96651%_)) (declare (not safe)) (##apply __call-next-method - _%subklass96549%_ - _%obj96543%_ - _%id96559%_ - _%args96545%_)) + _%subklass96656%_ + _%obj96650%_ + _%id96666%_ + _%args96652%_)) (begin (raise-contract-violation-error '"contract violation" @@ -4890,7 +4890,7 @@ 'contract: 'symbol? 'value: - _%id96544%_) + _%id96651%_) '#!void))) (begin (raise-contract-violation-error @@ -4900,126 +4900,126 @@ 'contract: 'class-type? 'value: - _%subklass96542%_) + _%subklass96649%_) '#!void)))) (define __call-next-method - (lambda (_%subklass96513%_ _%obj96514%_ _%id96515%_ . _%args96516%_) - (let* ((_%subklass96519%_ _%subklass96513%_) - (_%id96527%_ _%id96515%_) - (_%$e96536%_ - (__next-method _%subklass96519%_ _%obj96514%_ _%id96527%_))) - (if _%$e96536%_ - ((lambda (_%methodf96539%_) - (apply _%methodf96539%_ _%obj96514%_ _%args96516%_)) - _%$e96536%_) + (lambda (_%subklass96620%_ _%obj96621%_ _%id96622%_ . _%args96623%_) + (let* ((_%subklass96626%_ _%subklass96620%_) + (_%id96634%_ _%id96622%_) + (_%$e96643%_ + (__next-method _%subklass96626%_ _%obj96621%_ _%id96634%_))) + (if _%$e96643%_ + ((lambda (_%methodf96646%_) + (apply _%methodf96646%_ _%obj96621%_ _%args96623%_)) + _%$e96643%_) (error '"cannot find next method" 'object: - _%obj96514%_ + _%obj96621%_ 'method: - _%id96527%_))))) + _%id96634%_))))) (define write-style - (lambda (_%we96511%_) (values (macro-writeenv-style _%we96511%_)))) + (lambda (_%we96618%_) (values (macro-writeenv-style _%we96618%_)))) (define write-object - (lambda (_%we96502%_ _%obj96503%_) - (let ((_%$e96505%_ (__method-ref _%obj96503%_ ':wr))) - (if _%$e96505%_ - ((lambda (_%method96508%_) - (_%method96508%_ _%obj96503%_ _%we96502%_)) - _%$e96505%_) + (lambda (_%we96609%_ _%obj96610%_) + (let ((_%$e96612%_ (__method-ref _%obj96610%_ ':wr))) + (if _%$e96612%_ + ((lambda (_%method96615%_) + (_%method96615%_ _%obj96610%_ _%we96609%_)) + _%$e96612%_) (let () (declare (not safe)) - (##default-wr _%we96502%_ _%obj96503%_)))))) + (##default-wr _%we96609%_ _%obj96610%_)))))) (define __shadow-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __shadow-classes-mx (vector '0)) (define __shadow-class - (lambda (_%type96417%_) - (letrec ((_%shadow-type-id96419%_ - (lambda (_%type96500%_) - (let ((__tmp101755 + (lambda (_%type96524%_) + (letrec ((_%shadow-type-id96526%_ + (lambda (_%type96607%_) + (let ((__tmp101862 (let () (declare (not safe)) - (##type-name _%type96500%_)))) + (##type-name _%type96607%_)))) (declare (not safe)) - (make-symbol__1 __tmp101755 '"::t")))) - (_%shadow-type-name96420%_ - (lambda (_%type96498%_) - (let () (declare (not safe)) (##type-name _%type96498%_)))) - (_%make-shadow-class96421%_ - (lambda (_%type96490%_ _%precedence-list96491%_) - (let* ((_%super96493%_ - (if (pair? _%precedence-list96491%_) + (make-symbol__1 __tmp101862 '"::t")))) + (_%shadow-type-name96527%_ + (lambda (_%type96605%_) + (let () (declare (not safe)) (##type-name _%type96605%_)))) + (_%make-shadow-class96528%_ + (lambda (_%type96597%_ _%precedence-list96598%_) + (let* ((_%super96600%_ + (if (pair? _%precedence-list96598%_) (cons (let () (declare (not safe)) - (##car _%precedence-list96491%_)) + (##car _%precedence-list96598%_)) '()) '())) - (_%klass96495%_ + (_%klass96602%_ (make-class-type - (_%shadow-type-id96419%_ _%type96490%_) + (_%shadow-type-id96526%_ _%type96597%_) (let () (declare (not safe)) - (##type-name _%type96490%_)) - _%super96493%_ + (##type-name _%type96597%_)) + _%super96600%_ '() (cons (cons 'struct: '#t) (cons (cons 'system: '#t) - (if (__type-extensible? _%type96490%_) + (if (__type-extensible? _%type96597%_) '() (cons (cons 'final: '#t) '())))) '#f))) - (let ((__tmp101756 + (let ((__tmp101863 (let () (declare (not safe)) - (##type-id _%type96490%_)))) + (##type-id _%type96597%_)))) (declare (not safe)) (symbolic-table-set! __shadow-classes - __tmp101756 - _%klass96495%_)) - _%klass96495%_)))) + __tmp101863 + _%klass96602%_)) + _%klass96602%_)))) (let () (declare (not interrupts-enabled)) - (let _%again96425%_ () - (if (let ((__tmp101757 + (let _%again96532%_ () + (if (let ((__tmp101864 (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '1 '0)))) (declare (not safe)) - (##fx= __tmp101757 '0)) + (##fx= __tmp101864 '0)) '#!void (begin (let () (declare (not safe)) (##thread-yield!)) - (_%again96425%_))))) - (let ((_%$e96429%_ - (let ((__tmp101758 + (_%again96532%_))))) + (let ((_%$e96536%_ + (let ((__tmp101865 (let () (declare (not safe)) - (##type-id _%type96417%_)))) + (##type-id _%type96524%_)))) (declare (not safe)) - (symbolic-table-ref __shadow-classes __tmp101758 '#f)))) - (if _%$e96429%_ - ((lambda (_%klass96432%_) + (symbolic-table-ref __shadow-classes __tmp101865 '#f)))) + (if _%$e96536%_ + ((lambda (_%klass96539%_) (let () (declare (not safe)) (##vector-cas! __shadow-classes-mx '0 '0 '1)) - _%klass96432%_) - _%$e96429%_) - (let _%loop96435%_ ((_%super96437%_ + _%klass96539%_) + _%$e96536%_) + (let _%loop96542%_ ((_%super96544%_ (let () (declare (not safe)) - (##type-super _%type96417%_))) - (_%hierarchy96438%_ '())) - (if (not _%super96437%_) - (let _%loop96441%_ ((_%rest96443%_ _%hierarchy96438%_) - (_%precedence-list96444%_ '())) - (let* ((_%rest9644596453%_ _%rest96443%_) - (_%else9644796463%_ + (##type-super _%type96524%_))) + (_%hierarchy96545%_ '())) + (if (not _%super96544%_) + (let _%loop96548%_ ((_%rest96550%_ _%hierarchy96545%_) + (_%precedence-list96551%_ '())) + (let* ((_%rest9655296560%_ _%rest96550%_) + (_%else9655496570%_ (lambda () - (let ((_%klass96461%_ - (_%make-shadow-class96421%_ - _%type96417%_ - _%precedence-list96444%_))) + (let ((_%klass96568%_ + (_%make-shadow-class96528%_ + _%type96524%_ + _%precedence-list96551%_))) (let () (declare (not safe)) (##vector-cas! @@ -5027,111 +5027,245 @@ '0 '0 '1)) - _%klass96461%_))) - (_%K9644996477%_ - (lambda (_%rest96466%_ _%type96467%_) - (let ((_%$e96469%_ - (let ((__tmp101759 + _%klass96568%_))) + (_%K9655696584%_ + (lambda (_%rest96573%_ _%type96574%_) + (let ((_%$e96576%_ + (let ((__tmp101866 (let () (declare (not safe)) - (##type-id _%type96467%_)))) + (##type-id _%type96574%_)))) (declare (not safe)) (symbolic-table-ref __shadow-classes - __tmp101759 + __tmp101866 '#f)))) - (if _%$e96469%_ - ((lambda (_%klass96472%_) - (_%loop96441%_ - _%rest96466%_ - (cons _%klass96472%_ - _%precedence-list96444%_))) - _%$e96469%_) - (let ((_%klass96475%_ - (_%make-shadow-class96421%_ - _%type96467%_ - _%precedence-list96444%_))) - (_%loop96441%_ - _%rest96466%_ - (cons _%klass96475%_ - _%precedence-list96444%_)))))))) - (if (pair? _%rest9644596453%_) - (let ((_%hd9645096480%_ + (if _%$e96576%_ + ((lambda (_%klass96579%_) + (_%loop96548%_ + _%rest96573%_ + (cons _%klass96579%_ + _%precedence-list96551%_))) + _%$e96576%_) + (let ((_%klass96582%_ + (_%make-shadow-class96528%_ + _%type96574%_ + _%precedence-list96551%_))) + (_%loop96548%_ + _%rest96573%_ + (cons _%klass96582%_ + _%precedence-list96551%_)))))))) + (if (pair? _%rest9655296560%_) + (let ((_%hd9655796587%_ (let () (declare (not safe)) - (##car _%rest9644596453%_))) - (_%tl9645196482%_ + (##car _%rest9655296560%_))) + (_%tl9655896589%_ (let () (declare (not safe)) - (##cdr _%rest9644596453%_)))) - (let* ((_%type96485%_ _%hd9645096480%_) - (_%rest96487%_ _%tl9645196482%_)) - (_%K9644996477%_ - _%rest96487%_ - _%type96485%_))) - (_%else9644796463%_)))) - (_%loop96435%_ + (##cdr _%rest9655296560%_)))) + (let* ((_%type96592%_ _%hd9655796587%_) + (_%rest96594%_ _%tl9655896589%_)) + (_%K9655696584%_ + _%rest96594%_ + _%type96592%_))) + (_%else9655496570%_)))) + (_%loop96542%_ (let () (declare (not safe)) - (##type-super _%super96437%_)) - (cons _%super96437%_ _%hierarchy96438%_))))))))) - (define class-of - (lambda (_%obj96390%_) - (let () - (declare (not interrupts-enabled)) - (let ((_%t96394%_ - (let () (declare (not safe)) (##type _%obj96390%_)))) - (if (fx= _%t96394%_ (macro-type-subtyped)) - (let ((_%st96397%_ - (let () (declare (not safe)) (##subtype _%obj96390%_)))) - (if (fx= _%st96397%_ (macro-subtype-structure)) - (let ((_%klass96400%_ - (let () - (declare (not safe)) - (##structure-type _%obj96390%_)))) + (##type-super _%super96544%_)) + (cons _%super96544%_ _%hierarchy96545%_))))))))) + (define __type + (let* ((_%tb96513%_ + (let () + (declare (not safe)) + (##c-code '"___RESULT = ___FIX(___TB);"))) + (_%$e96515%_ _%tb96513%_)) + (if (eq? '2 _%$e96515%_) + '#(fixnum subtyped special pair) + (if (eq? '3 _%$e96515%_) + (let ((_%flonum-self-tagging-tags96518%_ + (let () + (declare (not safe)) + (##c-code + '"___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);"))) + (_%fixnum-tag-bits96519%_ + (let () + (declare (not safe)) + (##c-code + '"#ifdef ___USE_2_TAG_BITS_FOR_FIXNUMS\n___RESULT = ___FIX(2) ;\n#else\n___RESULT = ___FIX(3) ;\n#endif")))) + (let ((_%$e96521%_ _%flonum-self-tagging-tags96518%_)) + (if (eq? '0 _%$e96521%_) (if (let () (declare (not safe)) - (##structure-instance-of? _%klass96400%_ 'class)) - _%klass96400%_ - (__shadow-class _%klass96400%_))) - (if (fx= _%st96397%_ (macro-subtype-boxvalues)) - (if (let ((__tmp101760 - (let () - (declare (not safe)) - (##vector-length _%obj96390%_)))) + (##fx= _%fixnum-tag-bits96519%_ '2)) + '#(fixnum + subtyped + special + vector + fixnum + pair + undefined + flonum) + '#(fixnum + subtyped + undefined + vector + special + pair + undefined + flonum)) + (if (eq? '1 _%$e96521%_) + (if (let () + (declare (not safe)) + (##fx= _%fixnum-tag-bits96519%_ '2)) + '#(fixnum + subtyped + special + vector + fixnum + pair + flonum + flonum) + '#(fixnum + subtyped + undefined + vector + special + pair + flonum + flonum)) + (if (eq? '2 _%$e96521%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + undefined) + (if (eq? '3 _%$e96521%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + flonum) + (if (eq? '4 _%$e96521%_) + '#(fixnum + subtyped + flonum + flonum + special + pair + flonum + flonum) + (error '"unexpected flonum self tagging tags" + _%flonum-self-tagging-tags96518%_)))))))) + (error '"unexpected tag width" _%tb96513%_))))) + (define __class + (let* ((_%len96466%_ + (let () (declare (not safe)) (##vector-length __type))) + (_%cv96468%_ + (let () (declare (not safe)) (##make-vector _%len96466%_ '#f)))) + (let _%loop96471%_ ((_%i96473%_ '0)) + (if (let () (declare (not safe)) (##fx< _%i96473%_ _%len96466%_)) + (let* ((_%t96475%_ + (let () + (declare (not safe)) + (##vector-ref __type _%i96473%_))) + (_%f96510%_ + (if (eq? _%t96475%_ 'undefined) + (lambda (_%obj96478%_) + (error '"object type is undefined" _%obj96478%_)) + (if (let () (declare (not safe)) - (##fx= __tmp101760 '1)) - (__system-class 'box) - (__system-class 'values)) - (let ((_%$e96403%_ - (let () - (declare (not safe)) - (##vector-ref __subtype-id _%st96397%_)))) - (if _%$e96403%_ - (__system-class _%$e96403%_) - (error '"unknown class" - 'subtype: - _%st96397%_ - 'object: - _%obj96390%_)))))) - (if (fx= _%t96394%_ (macro-type-mem2)) - (__system-class 'pair) - (if (fx= _%t96394%_ (macro-type-fixnum)) - (__system-class 'fixnum) - (if (char? _%obj96390%_) - (__system-class 'char) - (if (eq? _%obj96390%_ '()) - (__system-class 'null) - (if (eq? _%obj96390%_ '#f) - (__system-class 'boolean) - (if (eq? _%obj96390%_ '#t) - (__system-class 'boolean) - (if (eq? _%obj96390%_ '#!void) - (__system-class 'void) - (if (eq? _%obj96390%_ '#!eof) - (__system-class 'eof) - (__system-class - 'special)))))))))))))) + (##memq _%t96475%_ + '(fixnum flonum pair vector))) + (lambda (_%obj96481%_) + (declare (not interrupts-enabled) (not safe)) + (__system-class _%t96475%_)) + (if (eq? _%t96475%_ 'subtyped) + (lambda (_%obj96485%_) + (declare + (not interrupts-enabled) + (not safe)) + (let ((_%st96488%_ + (##subtype _%obj96485%_))) + (if (##fx= _%st96488%_ + (macro-subtype-structure)) + (let ((_%klass96491%_ + (##structure-type + _%obj96485%_))) + (if (##structure-instance-of? + _%klass96491%_ + 'class) + _%klass96491%_ + (__shadow-class + _%klass96491%_))) + (if (##fx= _%st96488%_ + (macro-subtype-boxvalues)) + (if (##fx= (##vector-length + _%obj96485%_) + '1) + (__system-class 'box) + (__system-class 'values)) + (let ((_%$e96494%_ + (##vector-ref + __subtype-id + _%st96488%_))) + (if _%$e96494%_ + (__system-class + _%$e96494%_) + (error '"unknown class" + 'subtype: + _%st96488%_ + 'object: + _%obj96485%_))))))) + (if (eq? _%t96475%_ 'special) + (lambda (_%obj96499%_) + (declare + (not interrupts-enabled) + (not safe)) + (if (char? _%obj96499%_) + (__system-class 'char) + (if (eq? _%obj96499%_ '()) + (__system-class 'null) + (if (eq? _%obj96499%_ '#f) + (__system-class 'boolean) + (if (eq? _%obj96499%_ '#t) + (__system-class + 'boolean) + (if (eq? _%obj96499%_ +;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< + '#!void) + (__system-class 'void) + (if (eq? _%obj96499%_ '#!eof) + (__system-class 'eof) + (__system-class 'special)))))))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (error '"unexpected object type" + _%t96475%_))))))) + (let () + (declare (not safe)) + (##vector-set! _%cv96468%_ _%i96473%_ _%f96510%_)) + (_%loop96471%_ + (let () (declare (not safe)) (##fx+ _%i96473%_ '1)))) + _%cv96468%_)))) + (define type-of + (lambda (_%obj96462%_) + (let () + (declare (not safe) (not interrupts-enabled)) + (##vector-ref __type (##type _%obj96462%_))))) + (define class-of + (lambda (_%obj96453%_) + (let () + (declare (not safe) (not interrupts-enabled)) + (let* ((_%t96457%_ (##type _%obj96453%_)) + (_%f96459%_ (##vector-ref __class _%t96457%_))) + (_%f96459%_ _%obj96453%_))))) (define __subtype-id (let () (declare (not safe)) (##make-vector '32 '#f))) (vector-set! __subtype-id (macro-subtype-vector) 'vector) (vector-set! __subtype-id (macro-subtype-pair) 'pair) @@ -5162,25 +5296,25 @@ (define __system-classes (let () (declare (not safe)) (make-symbolic-table__% '#f '0))) (define __system-class - (lambda (_%id96384%_) - (let ((_%$e96386%_ + (lambda (_%id96447%_) + (let ((_%$e96449%_ (let () (declare (not safe)) - (symbolic-table-ref __system-classes _%id96384%_ '#f)))) - (if _%$e96386%_ - _%$e96386%_ - (error '"unknown system class" _%id96384%_))))) + (symbolic-table-ref __system-classes _%id96447%_ '#f)))) + (if _%$e96449%_ + _%$e96449%_ + (error '"unknown system class" _%id96447%_))))) (define __make-system-class - (lambda (_%id96379%_ _%super96380%_) - (let ((_%klass96382%_ + (lambda (_%id96442%_ _%super96443%_) + (let ((_%klass96445%_ (make-class-type - _%id96379%_ - _%id96379%_ - _%super96380%_ + _%id96442%_ + _%id96442%_ + _%super96443%_ '() '((system: . #t)) '#f))) (let () (declare (not safe)) - (symbolic-table-set! __system-classes _%id96379%_ _%klass96382%_)) - _%klass96382%_))))) + (symbolic-table-set! __system-classes _%id96442%_ _%klass96445%_)) + _%klass96445%_))))) diff --git a/src/bootstrap/gerbil/runtime/mop~1.scm b/src/bootstrap/gerbil/runtime/mop~1.scm index 7c1462385..475c5b7bc 100644 --- a/src/bootstrap/gerbil/runtime/mop~1.scm +++ b/src/bootstrap/gerbil/runtime/mop~1.scm @@ -1,309 +1,309 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#fxflag-set?| - (lambda (_%$stx94964%_) - (let* ((_%__stx101471101472%_ _%$stx94964%_) - (_%g9496994998%_ + (lambda (_%$stx95027%_) + (let* ((_%__stx101578101579%_ _%$stx95027%_) + (_%g9503295061%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101471101472%_)))) - (let ((_%__kont101474101475%_ - (lambda (_%L95091%_ _%L95093%_) + _%__stx101578101579%_)))) + (let ((_%__kont101581101582%_ + (lambda (_%L95154%_ _%L95156%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95093%_ (cons _%L95091%_ '()))) - (cons _%L95091%_ '()))))) - (_%__kont101476101477%_ - (lambda (_%L95035%_ _%L95037%_) + (cons _%L95156%_ (cons _%L95154%_ '()))) + (cons _%L95154%_ '()))))) + (_%__kont101583101584%_ + (lambda (_%L95098%_ _%L95100%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95035%_ (cons _%L95035%_ '())) + (cons (cons _%L95098%_ (cons _%L95098%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95037%_ - (cons _%L95035%_ + (cons _%L95100%_ + (cons _%L95098%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L95035%_ '()))) + (cons _%L95098%_ '()))) '())))))) - (let ((_%__match101498101499%_ - (lambda (_%e9497395061%_ - _%hd9497495065%_ - _%tl9497595068%_ - _%e9497695071%_ - _%hd9497795075%_ - _%tl9497895078%_ - _%e9497995081%_ - _%hd9498095085%_ - _%tl9498195088%_) - (let ((_%L95091%_ _%hd9498095085%_) - (_%L95093%_ _%hd9497795075%_)) - (if (or (gx#identifier? _%L95091%_) - (gx#stx-fixnum? _%L95091%_)) - (_%__kont101474101475%_ _%L95091%_ _%L95093%_) - (_%__kont101476101477%_ - _%hd9498095085%_ - _%hd9497795075%_)))))) - (if (gx#stx-pair? _%__stx101471101472%_) - (let ((_%e9497395061%_ (gx#syntax-e _%__stx101471101472%_))) - (let ((_%tl9497595068%_ - (let () (declare (not safe)) (##cdr _%e9497395061%_))) - (_%hd9497495065%_ + (let ((_%__match101605101606%_ + (lambda (_%e9503695124%_ + _%hd9503795128%_ + _%tl9503895131%_ + _%e9503995134%_ + _%hd9504095138%_ + _%tl9504195141%_ + _%e9504295144%_ + _%hd9504395148%_ + _%tl9504495151%_) + (let ((_%L95154%_ _%hd9504395148%_) + (_%L95156%_ _%hd9504095138%_)) + (if (or (gx#identifier? _%L95154%_) + (gx#stx-fixnum? _%L95154%_)) + (_%__kont101581101582%_ _%L95154%_ _%L95156%_) + (_%__kont101583101584%_ + _%hd9504395148%_ + _%hd9504095138%_)))))) + (if (gx#stx-pair? _%__stx101578101579%_) + (let ((_%e9503695124%_ (gx#syntax-e _%__stx101578101579%_))) + (let ((_%tl9503895131%_ + (let () (declare (not safe)) (##cdr _%e9503695124%_))) + (_%hd9503795128%_ (let () (declare (not safe)) - (##car _%e9497395061%_)))) - (if (gx#stx-pair? _%tl9497595068%_) - (let ((_%e9497695071%_ (gx#syntax-e _%tl9497595068%_))) - (let ((_%tl9497895078%_ + (##car _%e9503695124%_)))) + (if (gx#stx-pair? _%tl9503895131%_) + (let ((_%e9503995134%_ (gx#syntax-e _%tl9503895131%_))) + (let ((_%tl9504195141%_ (let () (declare (not safe)) - (##cdr _%e9497695071%_))) - (_%hd9497795075%_ + (##cdr _%e9503995134%_))) + (_%hd9504095138%_ (let () (declare (not safe)) - (##car _%e9497695071%_)))) - (if (gx#stx-pair? _%tl9497895078%_) - (let ((_%e9497995081%_ - (gx#syntax-e _%tl9497895078%_))) - (let ((_%tl9498195088%_ + (##car _%e9503995134%_)))) + (if (gx#stx-pair? _%tl9504195141%_) + (let ((_%e9504295144%_ + (gx#syntax-e _%tl9504195141%_))) + (let ((_%tl9504495151%_ (let () (declare (not safe)) - (##cdr _%e9497995081%_))) - (_%hd9498095085%_ + (##cdr _%e9504295144%_))) + (_%hd9504395148%_ (let () (declare (not safe)) - (##car _%e9497995081%_)))) - (if (gx#stx-null? _%tl9498195088%_) - (_%__match101498101499%_ - _%e9497395061%_ - _%hd9497495065%_ - _%tl9497595068%_ - _%e9497695071%_ - _%hd9497795075%_ - _%tl9497895078%_ - _%e9497995081%_ - _%hd9498095085%_ - _%tl9498195088%_) + (##car _%e9504295144%_)))) + (if (gx#stx-null? _%tl9504495151%_) + (_%__match101605101606%_ + _%e9503695124%_ + _%hd9503795128%_ + _%tl9503895131%_ + _%e9503995134%_ + _%hd9504095138%_ + _%tl9504195141%_ + _%e9504295144%_ + _%hd9504395148%_ + _%tl9504495151%_) (let () (declare (not safe)) - (_%g9496994998%_))))) + (_%g9503295061%_))))) (let () (declare (not safe)) - (_%g9496994998%_))))) - (let () (declare (not safe)) (_%g9496994998%_))))) - (let () (declare (not safe)) (_%g9496994998%_)))))))) + (_%g9503295061%_))))) + (let () (declare (not safe)) (_%g9503295061%_))))) + (let () (declare (not safe)) (_%g9503295061%_)))))))) (define |[:0:]#fxflag-unset?| - (lambda (_%$stx95116%_) - (let* ((_%__stx101521101522%_ _%$stx95116%_) - (_%g9512195150%_ + (lambda (_%$stx95179%_) + (let* ((_%__stx101628101629%_ _%$stx95179%_) + (_%g9518495213%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx101521101522%_)))) - (let ((_%__kont101524101525%_ - (lambda (_%L95242%_ _%L95244%_) + _%__stx101628101629%_)))) + (let ((_%__kont101631101632%_ + (lambda (_%L95305%_ _%L95307%_) (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95244%_ (cons _%L95242%_ '()))) + (cons _%L95307%_ (cons _%L95305%_ '()))) (cons '0 '()))))) - (_%__kont101526101527%_ - (lambda (_%L95187%_ _%L95189%_) + (_%__kont101633101634%_ + (lambda (_%L95250%_ _%L95252%_) (cons (gx#datum->syntax '#f 'let) - (cons (cons _%L95187%_ (cons _%L95187%_ '())) + (cons (cons _%L95250%_ (cons _%L95250%_ '())) (cons (cons (gx#datum->syntax '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##fxand) - (cons _%L95189%_ - (cons _%L95187%_ + (cons _%L95252%_ + (cons _%L95250%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons '0 '()))) '())))))) - (let ((_%__match101548101549%_ - (lambda (_%e9512595212%_ - _%hd9512695216%_ - _%tl9512795219%_ - _%e9512895222%_ - _%hd9512995226%_ - _%tl9513095229%_ - _%e9513195232%_ - _%hd9513295236%_ - _%tl9513395239%_) - (let ((_%L95242%_ _%hd9513295236%_) - (_%L95244%_ _%hd9512995226%_)) - (if (or (gx#identifier? _%L95242%_) - (gx#stx-fixnum? _%L95242%_)) - (_%__kont101524101525%_ _%L95242%_ _%L95244%_) - (_%__kont101526101527%_ - _%hd9513295236%_ - _%hd9512995226%_)))))) - (if (gx#stx-pair? _%__stx101521101522%_) - (let ((_%e9512595212%_ (gx#syntax-e _%__stx101521101522%_))) - (let ((_%tl9512795219%_ - (let () (declare (not safe)) (##cdr _%e9512595212%_))) - (_%hd9512695216%_ + (let ((_%__match101655101656%_ + (lambda (_%e9518895275%_ + _%hd9518995279%_ + _%tl9519095282%_ + _%e9519195285%_ + _%hd9519295289%_ + _%tl9519395292%_ + _%e9519495295%_ + _%hd9519595299%_ + _%tl9519695302%_) + (let ((_%L95305%_ _%hd9519595299%_) + (_%L95307%_ _%hd9519295289%_)) + (if (or (gx#identifier? _%L95305%_) + (gx#stx-fixnum? _%L95305%_)) + (_%__kont101631101632%_ _%L95305%_ _%L95307%_) + (_%__kont101633101634%_ + _%hd9519595299%_ + _%hd9519295289%_)))))) + (if (gx#stx-pair? _%__stx101628101629%_) + (let ((_%e9518895275%_ (gx#syntax-e _%__stx101628101629%_))) + (let ((_%tl9519095282%_ + (let () (declare (not safe)) (##cdr _%e9518895275%_))) + (_%hd9518995279%_ (let () (declare (not safe)) - (##car _%e9512595212%_)))) - (if (gx#stx-pair? _%tl9512795219%_) - (let ((_%e9512895222%_ (gx#syntax-e _%tl9512795219%_))) - (let ((_%tl9513095229%_ + (##car _%e9518895275%_)))) + (if (gx#stx-pair? _%tl9519095282%_) + (let ((_%e9519195285%_ (gx#syntax-e _%tl9519095282%_))) + (let ((_%tl9519395292%_ (let () (declare (not safe)) - (##cdr _%e9512895222%_))) - (_%hd9512995226%_ + (##cdr _%e9519195285%_))) + (_%hd9519295289%_ (let () (declare (not safe)) - (##car _%e9512895222%_)))) - (if (gx#stx-pair? _%tl9513095229%_) - (let ((_%e9513195232%_ - (gx#syntax-e _%tl9513095229%_))) - (let ((_%tl9513395239%_ + (##car _%e9519195285%_)))) + (if (gx#stx-pair? _%tl9519395292%_) + (let ((_%e9519495295%_ + (gx#syntax-e _%tl9519395292%_))) + (let ((_%tl9519695302%_ (let () (declare (not safe)) - (##cdr _%e9513195232%_))) - (_%hd9513295236%_ + (##cdr _%e9519495295%_))) + (_%hd9519595299%_ (let () (declare (not safe)) - (##car _%e9513195232%_)))) - (if (gx#stx-null? _%tl9513395239%_) - (_%__match101548101549%_ - _%e9512595212%_ - _%hd9512695216%_ - _%tl9512795219%_ - _%e9512895222%_ - _%hd9512995226%_ - _%tl9513095229%_ - _%e9513195232%_ - _%hd9513295236%_ - _%tl9513395239%_) + (##car _%e9519495295%_)))) + (if (gx#stx-null? _%tl9519695302%_) + (_%__match101655101656%_ + _%e9518895275%_ + _%hd9518995279%_ + _%tl9519095282%_ + _%e9519195285%_ + _%hd9519295289%_ + _%tl9519395292%_ + _%e9519495295%_ + _%hd9519595299%_ + _%tl9519695302%_) (let () (declare (not safe)) - (_%g9512195150%_))))) + (_%g9518495213%_))))) (let () (declare (not safe)) - (_%g9512195150%_))))) - (let () (declare (not safe)) (_%g9512195150%_))))) - (let () (declare (not safe)) (_%g9512195150%_)))))))) + (_%g9518495213%_))))) + (let () (declare (not safe)) (_%g9518495213%_))))) + (let () (declare (not safe)) (_%g9518495213%_)))))))) (define |[:0:]#defrefset| - (lambda (_%stx95267%_) - (let* ((_%g9527095291%_ - (lambda (_%g9527195287%_) + (lambda (_%stx95330%_) + (let* ((_%g9533395354%_ + (lambda (_%g9533495350%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9527195287%_))) - (_%g9526995519%_ - (lambda (_%g9527195295%_) - (if (gx#stx-pair? _%g9527195295%_) - (let ((_%e9527495298%_ (gx#syntax-e _%g9527195295%_))) - (let ((_%hd9527595302%_ + _%g9533495350%_))) + (_%g9533295582%_ + (lambda (_%g9533495358%_) + (if (gx#stx-pair? _%g9533495358%_) + (let ((_%e9533795361%_ (gx#syntax-e _%g9533495358%_))) + (let ((_%hd9533895365%_ (let () (declare (not safe)) - (##car _%e9527495298%_))) - (_%tl9527695305%_ + (##car _%e9533795361%_))) + (_%tl9533995368%_ (let () (declare (not safe)) - (##cdr _%e9527495298%_)))) - (if (gx#stx-pair? _%tl9527695305%_) - (let ((_%e9527795308%_ - (gx#syntax-e _%tl9527695305%_))) - (let ((_%hd9527895312%_ + (##cdr _%e9533795361%_)))) + (if (gx#stx-pair? _%tl9533995368%_) + (let ((_%e9534095371%_ + (gx#syntax-e _%tl9533995368%_))) + (let ((_%hd9534195375%_ (let () (declare (not safe)) - (##car _%e9527795308%_))) - (_%tl9527995315%_ + (##car _%e9534095371%_))) + (_%tl9534295378%_ (let () (declare (not safe)) - (##cdr _%e9527795308%_)))) - (if (gx#stx-pair? _%hd9527895312%_) - (let ((_%e9528095318%_ - (gx#syntax-e _%hd9527895312%_))) - (let ((_%hd9528195322%_ + (##cdr _%e9534095371%_)))) + (if (gx#stx-pair? _%hd9534195375%_) + (let ((_%e9534395381%_ + (gx#syntax-e _%hd9534195375%_))) + (let ((_%hd9534495385%_ (let () (declare (not safe)) - (##car _%e9528095318%_))) - (_%tl9528295325%_ + (##car _%e9534395381%_))) + (_%tl9534595388%_ (let () (declare (not safe)) - (##cdr _%e9528095318%_)))) - (if (gx#stx-pair? _%tl9528295325%_) - (let ((_%e9528395328%_ + (##cdr _%e9534395381%_)))) + (if (gx#stx-pair? _%tl9534595388%_) + (let ((_%e9534695391%_ (gx#syntax-e - _%tl9528295325%_))) - (let ((_%hd9528495332%_ + _%tl9534595388%_))) + (let ((_%hd9534795395%_ (let () (declare (not safe)) - (##car _%e9528395328%_))) - (_%tl9528595335%_ + (##car _%e9534695391%_))) + (_%tl9534895398%_ (let () (declare (not safe)) - (##cdr _%e9528395328%_)))) + (##cdr _%e9534695391%_)))) (if (gx#stx-null? - _%tl9528595335%_) + _%tl9534895398%_) (if (gx#stx-null? - _%tl9527995315%_) - ((lambda (_%L95338%_ + _%tl9534295378%_) + ((lambda (_%L95401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%L95340%_) - (let* ((_%g9535895366%_ - (lambda (_%g9535995362%_) + _%L95403%_) + (let* ((_%g9542195429%_ + (lambda (_%g9542295425%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9535995362%_))) - (_%g9535795515%_ - (lambda (_%g9535995370%_) - ((lambda (_%L95373%_) - (let* ((_%g9538595393%_ - (lambda (_%g9538695389%_) + _%g9542295425%_))) + (_%g9542095578%_ + (lambda (_%g9542295433%_) + ((lambda (_%L95436%_) + (let* ((_%g9544895456%_ + (lambda (_%g9544995452%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9538695389%_))) - (_%g9538495511%_ - (lambda (_%g9538695397%_) - ((lambda (_%L95400%_) - (let* ((_%g9541395421%_ - (lambda (_%g9541495417%_) + _%g9544995452%_))) + (_%g9544795574%_ + (lambda (_%g9544995460%_) + ((lambda (_%L95463%_) + (let* ((_%g9547695484%_ + (lambda (_%g9547795480%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9541495417%_))) - (_%g9541295507%_ - (lambda (_%g9541495425%_) - ((lambda (_%L95428%_) - (let* ((_%g9544195449%_ + _%g9547795480%_))) + (_%g9547595570%_ + (lambda (_%g9547795488%_) + ((lambda (_%L95491%_) + (let* ((_%g9550495512%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g9544295445%_) + (lambda (_%g9550595508%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9544295445%_))) - (_%g9544095503%_ - (lambda (_%g9544295453%_) - ((lambda (_%L95456%_) - (let* ((_%g9546995477%_ - (lambda (_%g9547095473%_) + _%g9550595508%_))) + (_%g9550395566%_ + (lambda (_%g9550595516%_) + ((lambda (_%L95519%_) + (let* ((_%g9553295540%_ + (lambda (_%g9553395536%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9547095473%_))) - (_%g9546895499%_ - (lambda (_%g9547095481%_) - ((lambda (_%L95484%_) + _%g9553395536%_))) + (_%g9553195562%_ + (lambda (_%g9553395544%_) + ((lambda (_%L95547%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95400%_ + (cons _%L95463%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f @@ -311,8 +311,8 @@ (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95373%_ - (cons _%L95340%_ + (cons _%L95436%_ + (cons _%L95403%_ (cons '#t ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())))) @@ -327,7 +327,7 @@ '()) (cons (cons (gx#datum->syntax '#f '##structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95338%_ + (cons _%L95401%_ (cons (gx#datum->syntax '#f 'class::t) @@ -335,7 +335,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95340%_ '())) + (cons _%L95403%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -343,15 +343,15 @@ '()))) '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95428%_ + (cons _%L95491%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.accessor) - (cons _%L95373%_ - (cons _%L95340%_ + (cons _%L95436%_ + (cons _%L95403%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '#f '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -364,7 +364,7 @@ '#f '##unchecked-structure-ref) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95338%_ + (cons _%L95401%_ (cons (gx#datum->syntax '#f 'class::t) @@ -372,7 +372,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%L95340%_ '())) + (cons _%L95403%_ '())) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -380,7 +380,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95456%_ + (cons _%L95519%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -388,7 +388,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95373%_ (cons _%L95340%_ (cons '#t '())))) + (cons _%L95436%_ (cons _%L95403%_ (cons '#t '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax '#f 'val) @@ -402,11 +402,11 @@ (cons (gx#datum->syntax '#f 'val) - (cons _%L95338%_ + (cons _%L95401%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95340%_ '())) + (cons _%L95403%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -414,7 +414,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons _%L95484%_ + (cons _%L95547%_ (cons (cons (gx#datum->syntax '#f 'begin-annotation) @@ -422,8 +422,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@mop.mutator) - (cons _%L95373%_ - (cons _%L95340%_ (cons '#f '())))) + (cons _%L95436%_ + (cons _%L95403%_ (cons '#f '())))) (cons (cons (gx#datum->syntax '#f 'lambda) (cons (cons (gx#datum->syntax '#f 'klass) (cons (gx#datum->syntax @@ -440,10 +440,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'val) - (cons _%L95338%_ + (cons _%L95401%_ (cons (gx#datum->syntax '#f 'class::t) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L95340%_ '())) + (cons _%L95403%_ '())) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) @@ -452,270 +452,270 @@ '()))) '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9547095481%_)))) - (_%g9546895499%_ + _%g9553395544%_)))) + (_%g9553195562%_ (gx#stx-identifier - _%L95340%_ + _%L95403%_ '"&" - _%L95456%_)))) - _%g9544295453%_)))) - (_%g9544095503%_ - (gx#stx-identifier _%L95340%_ _%L95400%_ '"-set!")))) - _%g9541495425%_)))) + _%L95519%_)))) + _%g9550595516%_)))) + (_%g9550395566%_ + (gx#stx-identifier _%L95403%_ _%L95463%_ '"-set!")))) + _%g9547795488%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9541295507%_ + (_%g9547595570%_ (gx#stx-identifier - _%L95340%_ + _%L95403%_ '"&" - _%L95400%_)))) - _%g9538695397%_)))) - (_%g9538495511%_ + _%L95463%_)))) + _%g9544995460%_)))) + (_%g9544795574%_ (gx#stx-identifier - _%L95340%_ + _%L95403%_ '"class-type-" - _%L95340%_)))) - _%g9535995370%_)))) - (_%g9535795515%_ (gx#core-quote-syntax 'class::t)))) - _%hd9528495332%_ - _%hd9528195322%_) - (_%g9527095291%_ _%g9527195295%_)) + _%L95403%_)))) + _%g9542295433%_)))) + (_%g9542095578%_ (gx#core-quote-syntax 'class::t)))) + _%hd9534795395%_ + _%hd9534495385%_) + (_%g9533395354%_ _%g9533495358%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9527095291%_ - _%g9527195295%_)))) - (_%g9527095291%_ - _%g9527195295%_)))) - (_%g9527095291%_ _%g9527195295%_)))) - (_%g9527095291%_ _%g9527195295%_)))) - (_%g9527095291%_ _%g9527195295%_))))) - (_%g9526995519%_ _%stx95267%_)))) + (_%g9533395354%_ + _%g9533495358%_)))) + (_%g9533395354%_ + _%g9533495358%_)))) + (_%g9533395354%_ _%g9533495358%_)))) + (_%g9533395354%_ _%g9533495358%_)))) + (_%g9533395354%_ _%g9533495358%_))))) + (_%g9533295582%_ _%stx95330%_)))) (define |[:0:]#defrefset*| - (lambda (_%$stx95523%_) - (let* ((_%g9552795556%_ - (lambda (_%g9552895552%_) + (lambda (_%$stx95586%_) + (let* ((_%g9559095619%_ + (lambda (_%g9559195615%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9552895552%_))) - (_%g9552695656%_ - (lambda (_%g9552895560%_) - (if (gx#stx-pair? _%g9552895560%_) - (let ((_%e9553195563%_ (gx#syntax-e _%g9552895560%_))) - (let ((_%hd9553295567%_ + _%g9559195615%_))) + (_%g9558995719%_ + (lambda (_%g9559195623%_) + (if (gx#stx-pair? _%g9559195623%_) + (let ((_%e9559495626%_ (gx#syntax-e _%g9559195623%_))) + (let ((_%hd9559595630%_ (let () (declare (not safe)) - (##car _%e9553195563%_))) - (_%tl9553395570%_ + (##car _%e9559495626%_))) + (_%tl9559695633%_ (let () (declare (not safe)) - (##cdr _%e9553195563%_)))) - (if (gx#stx-pair/null? _%tl9553395570%_) - (let ((_g101761_ + (##cdr _%e9559495626%_)))) + (if (gx#stx-pair/null? _%tl9559695633%_) + (let ((_g101867_ (gx#syntax-split-splice - _%tl9553395570%_ + _%tl9559695633%_ '0))) (begin - (let ((_g101762_ + (let ((_g101868_ (let () (declare (not safe)) - (if (##values? _g101761_) - (##vector-length _g101761_) + (if (##values? _g101867_) + (##values-length _g101867_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101762_ 2))) + (##fx= _g101868_ 2))) (error "Context expects 2 values" - _g101762_))) - (let ((_%target9553495573%_ + _g101868_))) + (let ((_%target9559795636%_ (let () (declare (not safe)) - (##vector-ref _g101761_ 0))) - (_%tl9553695576%_ + (##values-ref _g101867_ 0))) + (_%tl9559995639%_ (let () (declare (not safe)) - (##vector-ref _g101761_ 1)))) - (if (gx#stx-null? _%tl9553695576%_) - (letrec ((_%loop9553795579%_ - (lambda (_%hd9553595583%_ - _%field9554195586%_ - _%slot9554295588%_) + (##values-ref _g101867_ 1)))) + (if (gx#stx-null? _%tl9559995639%_) + (letrec ((_%loop9560095642%_ + (lambda (_%hd9559895646%_ + _%field9560495649%_ + _%slot9560595651%_) (if (gx#stx-pair? - _%hd9553595583%_) - (let ((_%e9553895591%_ + _%hd9559895646%_) + (let ((_%e9560195654%_ (gx#syntax-e - _%hd9553595583%_))) - (let ((_%lp-hd9553995595%_ + _%hd9559895646%_))) + (let ((_%lp-hd9560295658%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9553895591%_))) - (_%lp-tl9554095598%_ - (let () (declare (not safe)) (##cdr _%e9553895591%_)))) - (if (gx#stx-pair? _%lp-hd9553995595%_) - (let ((_%e9554595601%_ - (gx#syntax-e _%lp-hd9553995595%_))) - (let ((_%hd9554695605%_ + (##car _%e9560195654%_))) + (_%lp-tl9560395661%_ + (let () (declare (not safe)) (##cdr _%e9560195654%_)))) + (if (gx#stx-pair? _%lp-hd9560295658%_) + (let ((_%e9560895664%_ + (gx#syntax-e _%lp-hd9560295658%_))) + (let ((_%hd9560995668%_ (let () (declare (not safe)) - (##car _%e9554595601%_))) - (_%tl9554795608%_ + (##car _%e9560895664%_))) + (_%tl9561095671%_ (let () (declare (not safe)) - (##cdr _%e9554595601%_)))) - (if (gx#stx-pair? _%tl9554795608%_) - (let ((_%e9554895611%_ - (gx#syntax-e _%tl9554795608%_))) - (let ((_%hd9554995615%_ + (##cdr _%e9560895664%_)))) + (if (gx#stx-pair? _%tl9561095671%_) + (let ((_%e9561195674%_ + (gx#syntax-e _%tl9561095671%_))) + (let ((_%hd9561295678%_ (let () (declare (not safe)) - (##car _%e9554895611%_))) - (_%tl9555095618%_ + (##car _%e9561195674%_))) + (_%tl9561395681%_ (let () (declare (not safe)) - (##cdr _%e9554895611%_)))) - (if (gx#stx-null? _%tl9555095618%_) - (_%loop9553795579%_ - _%lp-tl9554095598%_ - (cons _%hd9554995615%_ - _%field9554195586%_) - (cons _%hd9554695605%_ - _%slot9554295588%_)) - (_%g9552795556%_ _%g9552895560%_)))) - (_%g9552795556%_ _%g9552895560%_)))) - (_%g9552795556%_ _%g9552895560%_)))) - (let ((_%field9554395621%_ (reverse _%field9554195586%_)) - (_%slot9554495624%_ (reverse _%slot9554295588%_))) - ((lambda (_%L95627%_ _%L95629%_) + (##cdr _%e9561195674%_)))) + (if (gx#stx-null? _%tl9561395681%_) + (_%loop9560095642%_ + _%lp-tl9560395661%_ + (cons _%hd9561295678%_ + _%field9560495649%_) + (cons _%hd9560995668%_ + _%slot9560595651%_)) + (_%g9559095619%_ _%g9559195623%_)))) + (_%g9559095619%_ _%g9559195623%_)))) + (_%g9559095619%_ _%g9559195623%_)))) + (let ((_%field9560695684%_ (reverse _%field9560495649%_)) + (_%slot9560795687%_ (reverse _%slot9560595651%_))) + ((lambda (_%L95690%_ _%L95692%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L95627%_ - _%L95629%_) - (let ((__tmp101763 - (lambda (_%g9564495648%_ - _%g9564595651%_ - _%g9564695653%_) + _%L95690%_ + _%L95692%_) + (let ((__tmp101869 + (lambda (_%g9570795711%_ + _%g9570895714%_ + _%g9570995716%_) (cons (cons (gx#datum->syntax '#f 'defrefset) - (cons (cons _%g9564595651%_ - (cons _%g9564495648%_ + (cons (cons _%g9570895714%_ + (cons _%g9570795711%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9564695653%_)))) + _%g9570995716%_)))) (declare (not safe)) (__foldr2 - __tmp101763 + __tmp101869 '() - _%L95627%_ - _%L95629%_))))) - _%field9554395621%_ - _%slot9554495624%_)))))) + _%L95690%_ + _%L95692%_))))) + _%field9560695684%_ + _%slot9560795687%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9553795579%_ - _%target9553495573%_ + (_%loop9560095642%_ + _%target9559795636%_ '() '())) - (_%g9552795556%_ _%g9552895560%_))))) - (_%g9552795556%_ _%g9552895560%_)))) - (_%g9552795556%_ _%g9552895560%_))))) - (_%g9552695656%_ _%$stx95523%_)))) + (_%g9559095619%_ _%g9559195623%_))))) + (_%g9559095619%_ _%g9559195623%_)))) + (_%g9559095619%_ _%g9559195623%_))))) + (_%g9558995719%_ _%$stx95586%_)))) (define |[:0:]#if-class-slot-field| - (lambda (_%$stx95661%_) - (let* ((_%g9566595699%_ - (lambda (_%g9566695695%_) + (lambda (_%$stx95724%_) + (let* ((_%g9572895762%_ + (lambda (_%g9572995758%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9566695695%_))) - (_%g9566495810%_ - (lambda (_%g9566695703%_) - (if (gx#stx-pair? _%g9566695703%_) - (let ((_%e9567395706%_ (gx#syntax-e _%g9566695703%_))) - (let ((_%hd9567495710%_ + _%g9572995758%_))) + (_%g9572795873%_ + (lambda (_%g9572995766%_) + (if (gx#stx-pair? _%g9572995766%_) + (let ((_%e9573695769%_ (gx#syntax-e _%g9572995766%_))) + (let ((_%hd9573795773%_ (let () (declare (not safe)) - (##car _%e9567395706%_))) - (_%tl9567595713%_ + (##car _%e9573695769%_))) + (_%tl9573895776%_ (let () (declare (not safe)) - (##cdr _%e9567395706%_)))) - (if (gx#stx-pair? _%tl9567595713%_) - (let ((_%e9567695716%_ - (gx#syntax-e _%tl9567595713%_))) - (let ((_%hd9567795720%_ + (##cdr _%e9573695769%_)))) + (if (gx#stx-pair? _%tl9573895776%_) + (let ((_%e9573995779%_ + (gx#syntax-e _%tl9573895776%_))) + (let ((_%hd9574095783%_ (let () (declare (not safe)) - (##car _%e9567695716%_))) - (_%tl9567895723%_ + (##car _%e9573995779%_))) + (_%tl9574195786%_ (let () (declare (not safe)) - (##cdr _%e9567695716%_)))) - (if (gx#stx-pair? _%tl9567895723%_) - (let ((_%e9567995726%_ - (gx#syntax-e _%tl9567895723%_))) - (let ((_%hd9568095730%_ + (##cdr _%e9573995779%_)))) + (if (gx#stx-pair? _%tl9574195786%_) + (let ((_%e9574295789%_ + (gx#syntax-e _%tl9574195786%_))) + (let ((_%hd9574395793%_ (let () (declare (not safe)) - (##car _%e9567995726%_))) - (_%tl9568195733%_ + (##car _%e9574295789%_))) + (_%tl9574495796%_ (let () (declare (not safe)) - (##cdr _%e9567995726%_)))) - (if (gx#stx-pair? _%tl9568195733%_) - (let ((_%e9568295736%_ + (##cdr _%e9574295789%_)))) + (if (gx#stx-pair? _%tl9574495796%_) + (let ((_%e9574595799%_ (gx#syntax-e - _%tl9568195733%_))) - (let ((_%hd9568395740%_ + _%tl9574495796%_))) + (let ((_%hd9574695803%_ (let () (declare (not safe)) - (##car _%e9568295736%_))) - (_%tl9568495743%_ + (##car _%e9574595799%_))) + (_%tl9574795806%_ (let () (declare (not safe)) - (##cdr _%e9568295736%_)))) + (##cdr _%e9574595799%_)))) (if (gx#stx-pair? - _%tl9568495743%_) - (let ((_%e9568595746%_ + _%tl9574795806%_) + (let ((_%e9574895809%_ (gx#syntax-e - _%tl9568495743%_))) - (let ((_%hd9568695750%_ + _%tl9574795806%_))) + (let ((_%hd9574995813%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9568595746%_))) - (_%tl9568795753%_ - (let () (declare (not safe)) (##cdr _%e9568595746%_)))) - (if (gx#stx-pair? _%tl9568795753%_) - (let ((_%e9568895756%_ (gx#syntax-e _%tl9568795753%_))) - (let ((_%hd9568995760%_ + (##car _%e9574895809%_))) + (_%tl9575095816%_ + (let () (declare (not safe)) (##cdr _%e9574895809%_)))) + (if (gx#stx-pair? _%tl9575095816%_) + (let ((_%e9575195819%_ (gx#syntax-e _%tl9575095816%_))) + (let ((_%hd9575295823%_ (let () (declare (not safe)) - (##car _%e9568895756%_))) - (_%tl9569095763%_ + (##car _%e9575195819%_))) + (_%tl9575395826%_ (let () (declare (not safe)) - (##cdr _%e9568895756%_)))) - (if (gx#stx-pair? _%tl9569095763%_) - (let ((_%e9569195766%_ - (gx#syntax-e _%tl9569095763%_))) - (let ((_%hd9569295770%_ + (##cdr _%e9575195819%_)))) + (if (gx#stx-pair? _%tl9575395826%_) + (let ((_%e9575495829%_ + (gx#syntax-e _%tl9575395826%_))) + (let ((_%hd9575595833%_ (let () (declare (not safe)) - (##car _%e9569195766%_))) - (_%tl9569395773%_ + (##car _%e9575495829%_))) + (_%tl9575695836%_ (let () (declare (not safe)) - (##cdr _%e9569195766%_)))) - (if (gx#stx-null? _%tl9569395773%_) - ((lambda (_%L95776%_ - _%L95778%_ - _%L95779%_ - _%L95780%_ - _%L95781%_ - _%L95782%_) + (##cdr _%e9575495829%_)))) + (if (gx#stx-null? _%tl9575695836%_) + ((lambda (_%L95839%_ + _%L95841%_ + _%L95842%_ + _%L95843%_ + _%L95844%_ + _%L95845%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f @@ -727,8 +727,8 @@ (cons (cons (gx#datum->syntax '#f '&class-type-slot-table) - (cons _%L95782%_ '())) - (cons _%L95781%_ (cons '#f '())))) + (cons _%L95845%_ '())) + (cons _%L95844%_ (cons '#f '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -747,18 +747,18 @@ (cons '"unknown slot" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons 'class: - (cons _%L95782%_ - (cons 'slot: (cons _%L95781%_ '())))))) + (cons _%L95845%_ + (cons 'slot: (cons _%L95844%_ '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) '())) (cons (cons (cons (gx#datum->syntax '#f 'class-type-final?) - (cons _%L95782%_ '())) - (cons (cons _%L95780%_ - (cons _%L95782%_ - (cons _%L95781%_ + (cons _%L95845%_ '())) + (cons (cons _%L95843%_ + (cons _%L95845%_ + (cons _%L95844%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -766,11 +766,11 @@ (cons (cons (cons (gx#datum->syntax '#f 'class-type-struct?) - (cons _%L95782%_ '())) - (cons (cons _%L95779%_ - (cons _%L95782%_ + (cons _%L95845%_ '())) + (cons (cons _%L95842%_ + (cons _%L95845%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95781%_ + (cons _%L95844%_ (cons (gx#datum->syntax '#f 'field) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -784,7 +784,7 @@ (cons (cons (gx#datum->syntax '#f 'base-struct/1) - (cons _%L95782%_ '())) + (cons _%L95845%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'and) (cons (cons (gx#datum->syntax @@ -817,10 +817,10 @@ '()))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L95778%_ + (cons (cons _%L95841%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95782%_ - (cons _%L95781%_ + (cons _%L95845%_ + (cons _%L95844%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -828,10 +828,10 @@ (cons (cons (gx#datum->syntax '#f 'else) - (cons (cons _%L95776%_ + (cons (cons _%L95839%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L95782%_ - (cons _%L95781%_ + (cons _%L95845%_ + (cons _%L95844%_ (cons (gx#datum->syntax '#f 'field) '())))) '())) @@ -839,99 +839,99 @@ '())))))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9569295770%_ - _%hd9568995760%_ - _%hd9568695750%_ - _%hd9568395740%_ - _%hd9568095730%_ - _%hd9567795720%_) - (_%g9566595699%_ _%g9566695703%_)))) - (_%g9566595699%_ _%g9566695703%_)))) - (_%g9566595699%_ _%g9566695703%_)))) + _%hd9575595833%_ + _%hd9575295823%_ + _%hd9574995813%_ + _%hd9574695803%_ + _%hd9574395793%_ + _%hd9574095783%_) + (_%g9572895762%_ _%g9572995766%_)))) + (_%g9572895762%_ _%g9572995766%_)))) + (_%g9572895762%_ _%g9572995766%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9566595699%_ - _%g9566695703%_)))) - (_%g9566595699%_ - _%g9566695703%_)))) - (_%g9566595699%_ _%g9566695703%_)))) - (_%g9566595699%_ _%g9566695703%_)))) - (_%g9566595699%_ _%g9566695703%_))))) - (_%g9566495810%_ _%$stx95661%_)))) + (_%g9572895762%_ + _%g9572995766%_)))) + (_%g9572895762%_ + _%g9572995766%_)))) + (_%g9572895762%_ _%g9572995766%_)))) + (_%g9572895762%_ _%g9572995766%_)))) + (_%g9572895762%_ _%g9572995766%_))))) + (_%g9572795873%_ _%$stx95724%_)))) (define |[:0:]#__slot-e| - (lambda (_%$stx95814%_) - (let* ((_%g9581895844%_ - (lambda (_%g9581995840%_) + (lambda (_%$stx95877%_) + (let* ((_%g9588195907%_ + (lambda (_%g9588295903%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9581995840%_))) - (_%g9581795927%_ - (lambda (_%g9581995848%_) - (if (gx#stx-pair? _%g9581995848%_) - (let ((_%e9582495851%_ (gx#syntax-e _%g9581995848%_))) - (let ((_%hd9582595855%_ + _%g9588295903%_))) + (_%g9588095990%_ + (lambda (_%g9588295911%_) + (if (gx#stx-pair? _%g9588295911%_) + (let ((_%e9588795914%_ (gx#syntax-e _%g9588295911%_))) + (let ((_%hd9588895918%_ (let () (declare (not safe)) - (##car _%e9582495851%_))) - (_%tl9582695858%_ + (##car _%e9588795914%_))) + (_%tl9588995921%_ (let () (declare (not safe)) - (##cdr _%e9582495851%_)))) - (if (gx#stx-pair? _%tl9582695858%_) - (let ((_%e9582795861%_ - (gx#syntax-e _%tl9582695858%_))) - (let ((_%hd9582895865%_ + (##cdr _%e9588795914%_)))) + (if (gx#stx-pair? _%tl9588995921%_) + (let ((_%e9589095924%_ + (gx#syntax-e _%tl9588995921%_))) + (let ((_%hd9589195928%_ (let () (declare (not safe)) - (##car _%e9582795861%_))) - (_%tl9582995868%_ + (##car _%e9589095924%_))) + (_%tl9589295931%_ (let () (declare (not safe)) - (##cdr _%e9582795861%_)))) - (if (gx#stx-pair? _%tl9582995868%_) - (let ((_%e9583095871%_ - (gx#syntax-e _%tl9582995868%_))) - (let ((_%hd9583195875%_ + (##cdr _%e9589095924%_)))) + (if (gx#stx-pair? _%tl9589295931%_) + (let ((_%e9589395934%_ + (gx#syntax-e _%tl9589295931%_))) + (let ((_%hd9589495938%_ (let () (declare (not safe)) - (##car _%e9583095871%_))) - (_%tl9583295878%_ + (##car _%e9589395934%_))) + (_%tl9589595941%_ (let () (declare (not safe)) - (##cdr _%e9583095871%_)))) - (if (gx#stx-pair? _%tl9583295878%_) - (let ((_%e9583395881%_ + (##cdr _%e9589395934%_)))) + (if (gx#stx-pair? _%tl9589595941%_) + (let ((_%e9589695944%_ (gx#syntax-e - _%tl9583295878%_))) - (let ((_%hd9583495885%_ + _%tl9589595941%_))) + (let ((_%hd9589795948%_ (let () (declare (not safe)) - (##car _%e9583395881%_))) - (_%tl9583595888%_ + (##car _%e9589695944%_))) + (_%tl9589895951%_ (let () (declare (not safe)) - (##cdr _%e9583395881%_)))) + (##cdr _%e9589695944%_)))) (if (gx#stx-pair? - _%tl9583595888%_) - (let ((_%e9583695891%_ + _%tl9589895951%_) + (let ((_%e9589995954%_ (gx#syntax-e - _%tl9583595888%_))) - (let ((_%hd9583795895%_ + _%tl9589895951%_))) + (let ((_%hd9590095958%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9583695891%_))) - (_%tl9583895898%_ - (let () (declare (not safe)) (##cdr _%e9583695891%_)))) - (if (gx#stx-null? _%tl9583895898%_) - ((lambda (_%L95901%_ _%L95903%_ _%L95904%_ _%L95905%_) + (##car _%e9589995954%_))) + (_%tl9590195961%_ + (let () (declare (not safe)) (##cdr _%e9589995954%_)))) + (if (gx#stx-null? _%tl9590195961%_) + ((lambda (_%L95964%_ _%L95966%_ _%L95967%_ _%L95968%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f 'klass) (cons (cons (gx#datum->syntax '#f 'class-of) - (cons _%L95905%_ '())) + (cons _%L95968%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'cond) (cons (cons (cons (gx#datum->syntax @@ -939,289 +939,289 @@ '#f 'class-slot-offset) (cons (gx#datum->syntax '#f 'klass) - (cons _%L95904%_ '()))) - (cons (gx#datum->syntax '#f '=>) (cons _%L95903%_ '()))) + (cons _%L95967%_ '()))) + (cons (gx#datum->syntax '#f '=>) (cons _%L95966%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'else) - (cons (cons _%L95901%_ - (cons _%L95905%_ (cons _%L95904%_ '()))) + (cons (cons _%L95964%_ + (cons _%L95968%_ (cons _%L95967%_ '()))) '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9583795895%_ - _%hd9583495885%_ - _%hd9583195875%_ - _%hd9582895865%_) - (_%g9581895844%_ _%g9581995848%_)))) + _%hd9590095958%_ + _%hd9589795948%_ + _%hd9589495938%_ + _%hd9589195928%_) + (_%g9588195907%_ _%g9588295911%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9581895844%_ - _%g9581995848%_)))) - (_%g9581895844%_ - _%g9581995848%_)))) - (_%g9581895844%_ _%g9581995848%_)))) - (_%g9581895844%_ _%g9581995848%_)))) - (_%g9581895844%_ _%g9581995848%_))))) - (_%g9581795927%_ _%$stx95814%_)))) + (_%g9588195907%_ + _%g9588295911%_)))) + (_%g9588195907%_ + _%g9588295911%_)))) + (_%g9588195907%_ _%g9588295911%_)))) + (_%g9588195907%_ _%g9588295911%_)))) + (_%g9588195907%_ _%g9588295911%_))))) + (_%g9588095990%_ _%$stx95877%_)))) (define |[:0:]#defsubtype| - (lambda (_%$stx95931%_) - (let* ((_%g9593595964%_ - (lambda (_%g9593695960%_) + (lambda (_%$stx95994%_) + (let* ((_%g9599896027%_ + (lambda (_%g9599996023%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9593695960%_))) - (_%g9593496064%_ - (lambda (_%g9593695968%_) - (if (gx#stx-pair? _%g9593695968%_) - (let ((_%e9593995971%_ (gx#syntax-e _%g9593695968%_))) - (let ((_%hd9594095975%_ + _%g9599996023%_))) + (_%g9599796127%_ + (lambda (_%g9599996031%_) + (if (gx#stx-pair? _%g9599996031%_) + (let ((_%e9600296034%_ (gx#syntax-e _%g9599996031%_))) + (let ((_%hd9600396038%_ (let () (declare (not safe)) - (##car _%e9593995971%_))) - (_%tl9594195978%_ + (##car _%e9600296034%_))) + (_%tl9600496041%_ (let () (declare (not safe)) - (##cdr _%e9593995971%_)))) - (if (gx#stx-pair/null? _%tl9594195978%_) - (let ((_g101764_ + (##cdr _%e9600296034%_)))) + (if (gx#stx-pair/null? _%tl9600496041%_) + (let ((_g101870_ (gx#syntax-split-splice - _%tl9594195978%_ + _%tl9600496041%_ '0))) (begin - (let ((_g101765_ + (let ((_g101871_ (let () (declare (not safe)) - (if (##values? _g101764_) - (##vector-length _g101764_) + (if (##values? _g101870_) + (##values-length _g101870_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101765_ 2))) + (##fx= _g101871_ 2))) (error "Context expects 2 values" - _g101765_))) - (let ((_%target9594295981%_ + _g101871_))) + (let ((_%target9600596044%_ (let () (declare (not safe)) - (##vector-ref _g101764_ 0))) - (_%tl9594495984%_ + (##values-ref _g101870_ 0))) + (_%tl9600796047%_ (let () (declare (not safe)) - (##vector-ref _g101764_ 1)))) - (if (gx#stx-null? _%tl9594495984%_) - (letrec ((_%loop9594595987%_ - (lambda (_%hd9594395991%_ - _%name9594995994%_ - _%t9595095996%_) + (##values-ref _g101870_ 1)))) + (if (gx#stx-null? _%tl9600796047%_) + (letrec ((_%loop9600896050%_ + (lambda (_%hd9600696054%_ + _%name9601296057%_ + _%t9601396059%_) (if (gx#stx-pair? - _%hd9594395991%_) - (let ((_%e9594695999%_ + _%hd9600696054%_) + (let ((_%e9600996062%_ (gx#syntax-e - _%hd9594395991%_))) - (let ((_%lp-hd9594796003%_ + _%hd9600696054%_))) + (let ((_%lp-hd9601096066%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##car _%e9594695999%_))) - (_%lp-tl9594896006%_ - (let () (declare (not safe)) (##cdr _%e9594695999%_)))) - (if (gx#stx-pair? _%lp-hd9594796003%_) - (let ((_%e9595396009%_ - (gx#syntax-e _%lp-hd9594796003%_))) - (let ((_%hd9595496013%_ + (##car _%e9600996062%_))) + (_%lp-tl9601196069%_ + (let () (declare (not safe)) (##cdr _%e9600996062%_)))) + (if (gx#stx-pair? _%lp-hd9601096066%_) + (let ((_%e9601696072%_ + (gx#syntax-e _%lp-hd9601096066%_))) + (let ((_%hd9601796076%_ (let () (declare (not safe)) - (##car _%e9595396009%_))) - (_%tl9595596016%_ + (##car _%e9601696072%_))) + (_%tl9601896079%_ (let () (declare (not safe)) - (##cdr _%e9595396009%_)))) - (if (gx#stx-pair? _%tl9595596016%_) - (let ((_%e9595696019%_ - (gx#syntax-e _%tl9595596016%_))) - (let ((_%hd9595796023%_ + (##cdr _%e9601696072%_)))) + (if (gx#stx-pair? _%tl9601896079%_) + (let ((_%e9601996082%_ + (gx#syntax-e _%tl9601896079%_))) + (let ((_%hd9602096086%_ (let () (declare (not safe)) - (##car _%e9595696019%_))) - (_%tl9595896026%_ + (##car _%e9601996082%_))) + (_%tl9602196089%_ (let () (declare (not safe)) - (##cdr _%e9595696019%_)))) - (if (gx#stx-null? _%tl9595896026%_) - (_%loop9594595987%_ - _%lp-tl9594896006%_ - (cons _%hd9595796023%_ - _%name9594995994%_) - (cons _%hd9595496013%_ _%t9595095996%_)) - (_%g9593595964%_ _%g9593695968%_)))) - (_%g9593595964%_ _%g9593695968%_)))) - (_%g9593595964%_ _%g9593695968%_)))) - (let ((_%name9595196029%_ (reverse _%name9594995994%_)) - (_%t9595296032%_ (reverse _%t9595095996%_))) - ((lambda (_%L96035%_ _%L96037%_) + (##cdr _%e9601996082%_)))) + (if (gx#stx-null? _%tl9602196089%_) + (_%loop9600896050%_ + _%lp-tl9601196069%_ + (cons _%hd9602096086%_ + _%name9601296057%_) + (cons _%hd9601796076%_ _%t9601396059%_)) + (_%g9599896027%_ _%g9599996031%_)))) + (_%g9599896027%_ _%g9599996031%_)))) + (_%g9599896027%_ _%g9599996031%_)))) + (let ((_%name9601496092%_ (reverse _%name9601296057%_)) + (_%t9601596095%_ (reverse _%t9601396059%_))) + ((lambda (_%L96098%_ _%L96100%_) (cons (gx#datum->syntax '#f 'begin) (begin (gx#syntax-check-splice-targets - _%L96035%_ - _%L96037%_) - (let ((__tmp101766 - (lambda (_%g9605296056%_ - _%g9605396059%_ - _%g9605496061%_) + _%L96098%_ + _%L96100%_) + (let ((__tmp101872 + (lambda (_%g9611596119%_ + _%g9611696122%_ + _%g9611796124%_) (cons (cons (gx#datum->syntax '#f 'vector-set!) (cons (gx#datum->syntax '#f '__subtype-id) - (cons _%g9605396059%_ + (cons _%g9611696122%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'quote) - (cons _%g9605296056%_ '())) + (cons _%g9611596119%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g9605496061%_)))) + _%g9611796124%_)))) (declare (not safe)) (__foldr2 - __tmp101766 + __tmp101872 '() - _%L96035%_ - _%L96037%_))))) - _%name9595196029%_ - _%t9595296032%_)))))) + _%L96098%_ + _%L96100%_))))) + _%name9601496092%_ + _%t9601596095%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop9594595987%_ - _%target9594295981%_ + (_%loop9600896050%_ + _%target9600596044%_ '() '())) - (_%g9593595964%_ _%g9593695968%_))))) - (_%g9593595964%_ _%g9593695968%_)))) - (_%g9593595964%_ _%g9593695968%_))))) - (_%g9593496064%_ _%$stx95931%_)))) + (_%g9599896027%_ _%g9599996031%_))))) + (_%g9599896027%_ _%g9599996031%_)))) + (_%g9599896027%_ _%g9599996031%_))))) + (_%g9599796127%_ _%$stx95994%_)))) (define |[:0:]#defsystem-class| - (lambda (_%$stx96069%_) - (let* ((_%g9607396104%_ - (lambda (_%g9607496100%_) + (lambda (_%$stx96132%_) + (let* ((_%g9613696167%_ + (lambda (_%g9613796163%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9607496100%_))) - (_%g9607296223%_ - (lambda (_%g9607496108%_) - (if (gx#stx-pair? _%g9607496108%_) - (let ((_%e9607896111%_ (gx#syntax-e _%g9607496108%_))) - (let ((_%hd9607996115%_ + _%g9613796163%_))) + (_%g9613596286%_ + (lambda (_%g9613796171%_) + (if (gx#stx-pair? _%g9613796171%_) + (let ((_%e9614196174%_ (gx#syntax-e _%g9613796171%_))) + (let ((_%hd9614296178%_ (let () (declare (not safe)) - (##car _%e9607896111%_))) - (_%tl9608096118%_ + (##car _%e9614196174%_))) + (_%tl9614396181%_ (let () (declare (not safe)) - (##cdr _%e9607896111%_)))) - (if (gx#stx-pair? _%tl9608096118%_) - (let ((_%e9608196121%_ - (gx#syntax-e _%tl9608096118%_))) - (let ((_%hd9608296125%_ + (##cdr _%e9614196174%_)))) + (if (gx#stx-pair? _%tl9614396181%_) + (let ((_%e9614496184%_ + (gx#syntax-e _%tl9614396181%_))) + (let ((_%hd9614596188%_ (let () (declare (not safe)) - (##car _%e9608196121%_))) - (_%tl9608396128%_ + (##car _%e9614496184%_))) + (_%tl9614696191%_ (let () (declare (not safe)) - (##cdr _%e9608196121%_)))) - (if (gx#stx-pair? _%tl9608396128%_) - (let ((_%e9608496131%_ - (gx#syntax-e _%tl9608396128%_))) - (let ((_%hd9608596135%_ + (##cdr _%e9614496184%_)))) + (if (gx#stx-pair? _%tl9614696191%_) + (let ((_%e9614796194%_ + (gx#syntax-e _%tl9614696191%_))) + (let ((_%hd9614896198%_ (let () (declare (not safe)) - (##car _%e9608496131%_))) - (_%tl9608696138%_ + (##car _%e9614796194%_))) + (_%tl9614996201%_ (let () (declare (not safe)) - (##cdr _%e9608496131%_)))) - (if (gx#stx-pair? _%tl9608696138%_) - (let ((_%e9608796141%_ + (##cdr _%e9614796194%_)))) + (if (gx#stx-pair? _%tl9614996201%_) + (let ((_%e9615096204%_ (gx#syntax-e - _%tl9608696138%_))) - (let ((_%hd9608896145%_ + _%tl9614996201%_))) + (let ((_%hd9615196208%_ (let () (declare (not safe)) - (##car _%e9608796141%_))) - (_%tl9608996148%_ + (##car _%e9615096204%_))) + (_%tl9615296211%_ (let () (declare (not safe)) - (##cdr _%e9608796141%_)))) + (##cdr _%e9615096204%_)))) (if (gx#stx-pair/null? - _%hd9608896145%_) - (let ((_g101767_ + _%hd9615196208%_) + (let ((_g101873_ (gx#syntax-split-splice - _%hd9608896145%_ + _%hd9615196208%_ '0))) (begin - (let ((_g101768_ + (let ((_g101874_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (if (##values? _g101767_) - (##vector-length _g101767_) + (if (##values? _g101873_) + (##values-length _g101873_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g101768_ 2))) - (error "Context expects 2 values" _g101768_))) - (let ((_%target9609096151%_ + (if (not (let () (declare (not safe)) (##fx= _g101874_ 2))) + (error "Context expects 2 values" _g101874_))) + (let ((_%target9615396214%_ (let () (declare (not safe)) - (##vector-ref _g101767_ 0))) - (_%tl9609296154%_ + (##values-ref _g101873_ 0))) + (_%tl9615596217%_ (let () (declare (not safe)) - (##vector-ref _g101767_ 1)))) - (if (gx#stx-null? _%tl9609296154%_) - (letrec ((_%loop9609396157%_ - (lambda (_%hd9609196161%_ _%super9609796164%_) - (if (gx#stx-pair? _%hd9609196161%_) - (let ((_%e9609496167%_ - (gx#syntax-e _%hd9609196161%_))) - (let ((_%lp-hd9609596171%_ + (##values-ref _g101873_ 1)))) + (if (gx#stx-null? _%tl9615596217%_) + (letrec ((_%loop9615696220%_ + (lambda (_%hd9615496224%_ _%super9616096227%_) + (if (gx#stx-pair? _%hd9615496224%_) + (let ((_%e9615796230%_ + (gx#syntax-e _%hd9615496224%_))) + (let ((_%lp-hd9615896234%_ (let () (declare (not safe)) - (##car _%e9609496167%_))) - (_%lp-tl9609696174%_ + (##car _%e9615796230%_))) + (_%lp-tl9615996237%_ (let () (declare (not safe)) - (##cdr _%e9609496167%_)))) - (_%loop9609396157%_ - _%lp-tl9609696174%_ - (cons _%lp-hd9609596171%_ - _%super9609796164%_)))) - (let ((_%super9609896177%_ - (reverse _%super9609796164%_))) - (if (gx#stx-null? _%tl9608996148%_) - ((lambda (_%L96181%_ - _%L96183%_ - _%L96184%_) + (##cdr _%e9615796230%_)))) + (_%loop9615696220%_ + _%lp-tl9615996237%_ + (cons _%lp-hd9615896234%_ + _%super9616096227%_)))) + (let ((_%super9616196240%_ + (reverse _%super9616096227%_))) + (if (gx#stx-null? _%tl9615296211%_) + ((lambda (_%L96244%_ + _%L96246%_ + _%L96247%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96184%_ + (cons _%L96247%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96183%_ - (cons (let ((__tmp101769 - (lambda (_%g9620896211%_ + (cons _%L96246%_ + (cons (let ((__tmp101875 + (lambda (_%g9627196274%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9620996214%_) - (cons _%g9620896211%_ _%g9620996214%_)))) + _%g9627296277%_) + (cons _%g9627196274%_ _%g9627296277%_)))) (declare (not safe)) - (__foldr1 __tmp101769 '() _%L96181%_)) + (__foldr1 __tmp101875 '() _%L96244%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1230,189 +1230,189 @@ (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L96183%_ + (cons _%L96246%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) (cons (cons (gx#datum->syntax '#f '@list) - (let ((__tmp101770 - (lambda (_%g9620696217%_ _%g9620796220%_) - (cons _%g9620696217%_ _%g9620796220%_)))) + (let ((__tmp101876 + (lambda (_%g9626996280%_ _%g9627096283%_) + (cons _%g9626996280%_ _%g9627096283%_)))) (declare (not safe)) - (__foldr1 __tmp101770 '() _%L96181%_))) + (__foldr1 __tmp101876 '() _%L96244%_))) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%super9609896177%_ - _%hd9608596135%_ - _%hd9608296125%_) - (_%g9607396104%_ - _%g9607496108%_))))))) - (_%loop9609396157%_ _%target9609096151%_ '())) - (_%g9607396104%_ _%g9607496108%_))))) + _%super9616196240%_ + _%hd9614896198%_ + _%hd9614596188%_) + (_%g9613696167%_ + _%g9613796171%_))))))) + (_%loop9615696220%_ _%target9615396214%_ '())) + (_%g9613696167%_ _%g9613796171%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9607396104%_ - _%g9607496108%_)))) - (_%g9607396104%_ - _%g9607496108%_)))) - (_%g9607396104%_ _%g9607496108%_)))) - (_%g9607396104%_ _%g9607496108%_)))) - (_%g9607396104%_ _%g9607496108%_))))) - (_%g9607296223%_ _%$stx96069%_)))) + (_%g9613696167%_ + _%g9613796171%_)))) + (_%g9613696167%_ + _%g9613796171%_)))) + (_%g9613696167%_ _%g9613796171%_)))) + (_%g9613696167%_ _%g9613796171%_)))) + (_%g9613696167%_ _%g9613796171%_))))) + (_%g9613596286%_ _%$stx96132%_)))) (define |[:0:]#defshadow-class| - (lambda (_%$stx96228%_) - (let* ((_%g9623296263%_ - (lambda (_%g9623396259%_) + (lambda (_%$stx96291%_) + (let* ((_%g9629596326%_ + (lambda (_%g9629696322%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9623396259%_))) - (_%g9623196374%_ - (lambda (_%g9623396267%_) - (if (gx#stx-pair? _%g9623396267%_) - (let ((_%e9623796270%_ (gx#syntax-e _%g9623396267%_))) - (let ((_%hd9623896274%_ + _%g9629696322%_))) + (_%g9629496437%_ + (lambda (_%g9629696330%_) + (if (gx#stx-pair? _%g9629696330%_) + (let ((_%e9630096333%_ (gx#syntax-e _%g9629696330%_))) + (let ((_%hd9630196337%_ (let () (declare (not safe)) - (##car _%e9623796270%_))) - (_%tl9623996277%_ + (##car _%e9630096333%_))) + (_%tl9630296340%_ (let () (declare (not safe)) - (##cdr _%e9623796270%_)))) - (if (gx#stx-pair? _%tl9623996277%_) - (let ((_%e9624096280%_ - (gx#syntax-e _%tl9623996277%_))) - (let ((_%hd9624196284%_ + (##cdr _%e9630096333%_)))) + (if (gx#stx-pair? _%tl9630296340%_) + (let ((_%e9630396343%_ + (gx#syntax-e _%tl9630296340%_))) + (let ((_%hd9630496347%_ (let () (declare (not safe)) - (##car _%e9624096280%_))) - (_%tl9624296287%_ + (##car _%e9630396343%_))) + (_%tl9630596350%_ (let () (declare (not safe)) - (##cdr _%e9624096280%_)))) - (if (gx#stx-pair? _%tl9624296287%_) - (let ((_%e9624396290%_ - (gx#syntax-e _%tl9624296287%_))) - (let ((_%hd9624496294%_ + (##cdr _%e9630396343%_)))) + (if (gx#stx-pair? _%tl9630596350%_) + (let ((_%e9630696353%_ + (gx#syntax-e _%tl9630596350%_))) + (let ((_%hd9630796357%_ (let () (declare (not safe)) - (##car _%e9624396290%_))) - (_%tl9624596297%_ + (##car _%e9630696353%_))) + (_%tl9630896360%_ (let () (declare (not safe)) - (##cdr _%e9624396290%_)))) + (##cdr _%e9630696353%_)))) (if (gx#stx-pair/null? - _%hd9624496294%_) - (let ((_g101771_ + _%hd9630796357%_) + (let ((_g101877_ (gx#syntax-split-splice - _%hd9624496294%_ + _%hd9630796357%_ '0))) (begin - (let ((_g101772_ + (let ((_g101878_ (let () (declare (not safe)) (if (##values? - _g101771_) - (##vector-length - _g101771_) + _g101877_) + (##values-length + _g101877_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g101772_ + (##fx= _g101878_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 2))) - (error "Context expects 2 values" _g101772_))) + (error "Context expects 2 values" _g101878_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target9624696300%_ + (let ((_%target9630996363%_ (let () (declare (not safe)) - (##vector-ref - _g101771_ + (##values-ref + _g101877_ 0))) - (_%tl9624896303%_ + (_%tl9631196366%_ (let () (declare (not safe)) - (##vector-ref - _g101771_ + (##values-ref + _g101877_ 1)))) (if (gx#stx-null? - _%tl9624896303%_) - (letrec ((_%loop9624996306%_ - (lambda (_%hd9624796310%_ + _%tl9631196366%_) + (letrec ((_%loop9631296369%_ + (lambda (_%hd9631096373%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%super9625396313%_) - (if (gx#stx-pair? _%hd9624796310%_) - (let ((_%e9625096316%_ - (gx#syntax-e _%hd9624796310%_))) - (let ((_%lp-hd9625196320%_ + _%super9631696376%_) + (if (gx#stx-pair? _%hd9631096373%_) + (let ((_%e9631396379%_ + (gx#syntax-e _%hd9631096373%_))) + (let ((_%lp-hd9631496383%_ (let () (declare (not safe)) - (##car _%e9625096316%_))) - (_%lp-tl9625296323%_ + (##car _%e9631396379%_))) + (_%lp-tl9631596386%_ (let () (declare (not safe)) - (##cdr _%e9625096316%_)))) - (_%loop9624996306%_ - _%lp-tl9625296323%_ - (cons _%lp-hd9625196320%_ - _%super9625396313%_)))) - (let ((_%super9625496326%_ - (reverse _%super9625396313%_))) - (if (gx#stx-pair? _%tl9624596297%_) - (let ((_%e9625596330%_ - (gx#syntax-e _%tl9624596297%_))) - (let ((_%hd9625696334%_ + (##cdr _%e9631396379%_)))) + (_%loop9631296369%_ + _%lp-tl9631596386%_ + (cons _%lp-hd9631496383%_ + _%super9631696376%_)))) + (let ((_%super9631796389%_ + (reverse _%super9631696376%_))) + (if (gx#stx-pair? _%tl9630896360%_) + (let ((_%e9631896393%_ + (gx#syntax-e _%tl9630896360%_))) + (let ((_%hd9631996397%_ (let () (declare (not safe)) - (##car _%e9625596330%_))) - (_%tl9625796337%_ + (##car _%e9631896393%_))) + (_%tl9632096400%_ (let () (declare (not safe)) - (##cdr _%e9625596330%_)))) - (if (gx#stx-null? _%tl9625796337%_) - ((lambda (_%L96340%_ - _%L96342%_ - _%L96343%_) + (##cdr _%e9631896393%_)))) + (if (gx#stx-null? _%tl9632096400%_) + ((lambda (_%L96403%_ + _%L96405%_ + _%L96406%_) (cons (gx#datum->syntax '#f 'def) - (cons _%L96343%_ + (cons _%L96406%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'begin-annotation) (cons (cons (gx#datum->syntax '#f '@mop.system) - (cons _%L96343%_ - (cons (let ((__tmp101773 - (lambda (_%g9636596368%_ + (cons _%L96406%_ + (cons (let ((__tmp101879 + (lambda (_%g9642896431%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g9636696371%_) - (cons _%g9636596368%_ _%g9636696371%_)))) + _%g9642996434%_) + (cons _%g9642896431%_ _%g9642996434%_)))) (declare (not safe)) - (__foldr1 __tmp101773 '() _%L96342%_)) + (__foldr1 __tmp101879 '() _%L96405%_)) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f '__shadow-class) - (cons _%L96340%_ '())) + (cons _%L96403%_ '())) '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9625696334%_ - _%super9625496326%_ - _%hd9624196284%_) - (_%g9623296263%_ - _%g9623396267%_)))) - (_%g9623296263%_ _%g9623396267%_))))))) - (_%loop9624996306%_ _%target9624696300%_ '())) - (_%g9623296263%_ _%g9623396267%_))))) + _%hd9631996397%_ + _%super9631796389%_ + _%hd9630496347%_) + (_%g9629596326%_ + _%g9629696330%_)))) + (_%g9629596326%_ _%g9629696330%_))))))) + (_%loop9631296369%_ _%target9630996363%_ '())) + (_%g9629596326%_ _%g9629696330%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9623296263%_ - _%g9623396267%_)))) - (_%g9623296263%_ _%g9623396267%_)))) - (_%g9623296263%_ _%g9623396267%_)))) - (_%g9623296263%_ _%g9623396267%_))))) - (_%g9623196374%_ _%$stx96228%_))))) + (_%g9629596326%_ + _%g9629696330%_)))) + (_%g9629596326%_ _%g9629696330%_)))) + (_%g9629596326%_ _%g9629696330%_)))) + (_%g9629596326%_ _%g9629696330%_))))) + (_%g9629496437%_ _%$stx96291%_))))) diff --git a/src/bootstrap/gerbil/runtime/repl~0.scm b/src/bootstrap/gerbil/runtime/repl~0.scm index f840d87ca..7ff9828aa 100644 --- a/src/bootstrap/gerbil/runtime/repl~0.scm +++ b/src/bootstrap/gerbil/runtime/repl~0.scm @@ -1,30 +1,30 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/repl::timestamp 1733870074) + (define gerbil/runtime/repl::timestamp 1734131746) (define replx (lambda () - (letrec ((_%write-reason115130%_ - (lambda (_%exn115136%_) - (lambda (_%cont115138%_ _%port115139%_) + (letrec ((_%write-reason115236%_ + (lambda (_%exn115242%_) + (lambda (_%cont115244%_ _%port115245%_) (let () (declare (not safe)) (##display-exception-in-context - _%exn115136%_ - _%cont115138%_ - _%port115139%_)) + _%exn115242%_ + _%cont115244%_ + _%port115245%_)) '#f)))) - (let ((__tmp115140 - (lambda (_%exn115132%_) - (let ((__tmp115141 - (lambda (_%cont115134%_) - (let ((__tmp115142 - (_%write-reason115130%_ _%exn115132%_))) + (let ((__tmp115246 + (lambda (_%exn115238%_) + (let ((__tmp115247 + (lambda (_%cont115240%_) + (let ((__tmp115248 + (_%write-reason115236%_ _%exn115238%_))) (declare (not safe)) (##repl-within - _%cont115134%_ - __tmp115142 - _%exn115132%_))))) + _%cont115240%_ + __tmp115248 + _%exn115238%_))))) (declare (not safe)) - (##continuation-capture __tmp115141))))) + (##continuation-capture __tmp115247))))) (declare (not safe)) - (with-exception-handler __tmp115140 ##repl)))))) + (with-exception-handler __tmp115246 ##repl)))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~0.scm b/src/bootstrap/gerbil/runtime/syntax~0.scm index 296de51a3..c88d82a61 100644 --- a/src/bootstrap/gerbil/runtime/syntax~0.scm +++ b/src/bootstrap/gerbil/runtime/syntax~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/syntax::timestamp 1733870073) + (define gerbil/runtime/syntax::timestamp 1734131746) (begin (declare (not safe)) (define SyntaxError::t @@ -13,8 +13,8 @@ '#f)) (define SyntaxError? (__make-class-predicate SyntaxError::t)) (define make-SyntaxError - (lambda _%$args112367%_ - (apply make-instance SyntaxError::t _%$args112367%_))) + (lambda _%$args112473%_ + (apply make-instance SyntaxError::t _%$args112473%_))) (define SyntaxError-message (__make-class-slot-accessor SyntaxError::t 'message)) (define SyntaxError-irritants @@ -71,115 +71,115 @@ (define &SyntaxError-continuation-set! (__make-class-slot-unchecked-mutator SyntaxError::t 'continuation)) (define SyntaxError::display-exception - (lambda (_%self111868112249%_ _%port112251%_) - (let* ((_%self112253%_ _%self111868112249%_) - (_%self112255%_ _%self112253%_)) - (letrec ((_%location112265%_ + (lambda (_%self111974112355%_ _%port112357%_) + (let* ((_%self112359%_ _%self111974112355%_) + (_%self112361%_ _%self112359%_)) + (letrec ((_%location112371%_ (lambda () - (let _%lp112327%_ ((_%rest112329%_ + (let _%lp112433%_ ((_%rest112435%_ (##unchecked-structure-ref - _%self112255%_ + _%self112361%_ '3 '#f '#f))) - (let* ((_%rest112330112338%_ _%rest112329%_) - (_%else112332112346%_ (lambda () '#f)) - (_%K112334112355%_ - (lambda (_%rest112349%_ _%hd112350%_) - (let ((_%$e112352%_ - (__AST-source _%hd112350%_))) - (if _%$e112352%_ - _%$e112352%_ - (_%lp112327%_ _%rest112349%_)))))) - (if (pair? _%rest112330112338%_) - (let ((_%hd112335112358%_ - (##car _%rest112330112338%_)) - (_%tl112336112360%_ - (##cdr _%rest112330112338%_))) - (let* ((_%hd112363%_ _%hd112335112358%_) - (_%rest112365%_ _%tl112336112360%_)) - (_%K112334112355%_ - _%rest112365%_ - _%hd112363%_))) - (_%else112332112346%_))))))) + (let* ((_%rest112436112444%_ _%rest112435%_) + (_%else112438112452%_ (lambda () '#f)) + (_%K112440112461%_ + (lambda (_%rest112455%_ _%hd112456%_) + (let ((_%$e112458%_ + (__AST-source _%hd112456%_))) + (if _%$e112458%_ + _%$e112458%_ + (_%lp112433%_ _%rest112455%_)))))) + (if (pair? _%rest112436112444%_) + (let ((_%hd112441112464%_ + (##car _%rest112436112444%_)) + (_%tl112442112466%_ + (##cdr _%rest112436112444%_))) + (let* ((_%hd112469%_ _%hd112441112464%_) + (_%rest112471%_ _%tl112442112466%_)) + (_%K112440112461%_ + _%rest112471%_ + _%hd112469%_))) + (_%else112438112452%_))))))) (__call-with-parameters (lambda () (newline) (display '"*** ERROR IN ") - (let ((_%$e112268%_ (_%location112265%_))) - (if _%$e112268%_ - ((lambda (_%where112271%_) - (##display-locat _%where112271%_ '#t _%port112251%_)) - _%$e112268%_) + (let ((_%$e112374%_ (_%location112371%_))) + (if _%$e112374%_ + ((lambda (_%where112377%_) + (##display-locat _%where112377%_ '#t _%port112357%_)) + _%$e112374%_) (display '"?"))) (newline) (display '"--- Syntax Error") - (let ((_%$e112274%_ - (##unchecked-structure-ref _%self112255%_ '4 '#f '#f))) - (if _%$e112274%_ - ((lambda (_%where112277%_) + (let ((_%$e112380%_ + (##unchecked-structure-ref _%self112361%_ '4 '#f '#f))) + (if _%$e112380%_ + ((lambda (_%where112383%_) (displayln '" at " - _%where112277%_ + _%where112383%_ '": " (##unchecked-structure-ref - _%self112255%_ + _%self112361%_ '2 '#f '#f))) - _%$e112274%_) + _%$e112380%_) (displayln '": " - (##unchecked-structure-ref _%self112255%_ '2 '#f '#f)))) - (let* ((_%self.irritants112279112287%_ - (##unchecked-structure-ref _%self112255%_ '3 '#f '#f)) - (_%else112281112295%_ (lambda () '#!void)) - (_%K112283112308%_ - (lambda (_%rest112298%_ _%stx112299%_) + (##unchecked-structure-ref _%self112361%_ '2 '#f '#f)))) + (let* ((_%self.irritants112385112393%_ + (##unchecked-structure-ref _%self112361%_ '3 '#f '#f)) + (_%else112387112401%_ (lambda () '#!void)) + (_%K112389112414%_ + (lambda (_%rest112404%_ _%stx112405%_) (display '"... form: ") - (__pp-syntax _%stx112299%_) + (__pp-syntax _%stx112405%_) (for-each - (lambda (_%detail112301%_) + (lambda (_%detail112407%_) (display '"... detail: ") - (##write (__AST->datum _%detail112301%_)) - (let ((_%$e112303%_ - (__AST-source _%detail112301%_))) - (if _%$e112303%_ - ((lambda (_%loc112306%_) + (##write (__AST->datum _%detail112407%_)) + (let ((_%$e112409%_ + (__AST-source _%detail112407%_))) + (if _%$e112409%_ + ((lambda (_%loc112412%_) (display '" at ") (##display-locat - _%loc112306%_ + _%loc112412%_ '#t - _%port112251%_)) - _%$e112303%_) + _%port112357%_)) + _%$e112409%_) '#!void)) (newline)) - _%rest112298%_)))) - (if (pair? _%self.irritants112279112287%_) - (let ((_%hd112284112311%_ - (##car _%self.irritants112279112287%_)) - (_%tl112285112313%_ - (##cdr _%self.irritants112279112287%_))) - (let* ((_%stx112316%_ _%hd112284112311%_) - (_%rest112318%_ _%tl112285112313%_)) - (_%K112283112308%_ _%rest112318%_ _%stx112316%_))) + _%rest112404%_)))) + (if (pair? _%self.irritants112385112393%_) + (let ((_%hd112390112417%_ + (##car _%self.irritants112385112393%_)) + (_%tl112391112419%_ + (##cdr _%self.irritants112385112393%_))) + (let* ((_%stx112422%_ _%hd112390112417%_) + (_%rest112424%_ _%tl112391112419%_)) + (_%K112389112414%_ _%rest112424%_ _%stx112422%_))) '#!void)) (if (##getenv '"GERBIL_DEBUG" '#f) - (let ((_%cont112319112321%_ + (let ((_%cont112425112427%_ (##unchecked-structure-ref - _%self112255%_ + _%self112361%_ '1 '#f '#f))) - (if _%cont112319112321%_ - (let ((_%cont112324%_ _%cont112319112321%_)) + (if _%cont112425112427%_ + (let ((_%cont112430%_ _%cont112425112427%_)) (display '"--- continuation backtrace:") (newline) - (display-continuation-backtrace _%cont112324%_)) + (display-continuation-backtrace _%cont112430%_)) '#f)) '#!void)) current-output-port - _%port112251%_))))) + _%port112357%_))))) (__bind-method!__% SyntaxError::t 'display-exception @@ -187,37 +187,37 @@ '#f) (__seal-class! SyntaxError::t) (define make-syntax-error - (lambda (_%message112120%_ - _%irritants112121%_ - _%where112122%_ - _%context112123%_ - _%marks112124%_ - _%phi112125%_) - (let ((__obj112464 + (lambda (_%message112226%_ + _%irritants112227%_ + _%where112228%_ + _%context112229%_ + _%marks112230%_ + _%phi112231%_) + (let ((__obj112570 (##structure SyntaxError::t '#f '#f '#f '#f '#f '#f '#f))) - (##unchecked-structure-set! __obj112464 _%message112120%_ '2 '#f '#f) + (##unchecked-structure-set! __obj112570 _%message112226%_ '2 '#f '#f) (##unchecked-structure-set! - __obj112464 - _%irritants112121%_ + __obj112570 + _%irritants112227%_ '3 '#f '#f) - (##unchecked-structure-set! __obj112464 _%where112122%_ '4 '#f '#f) - (##unchecked-structure-set! __obj112464 _%context112123%_ '5 '#f '#f) - (##unchecked-structure-set! __obj112464 _%marks112124%_ '7 '#f '#f) - (##unchecked-structure-set! __obj112464 _%phi112125%_ '6 '#f '#f) - __obj112464))) + (##unchecked-structure-set! __obj112570 _%where112228%_ '4 '#f '#f) + (##unchecked-structure-set! __obj112570 _%context112229%_ '5 '#f '#f) + (##unchecked-structure-set! __obj112570 _%marks112230%_ '7 '#f '#f) + (##unchecked-structure-set! __obj112570 _%phi112231%_ '6 '#f '#f) + __obj112570))) (define syntax-error? SyntaxError?) (define __raise-syntax-error - (lambda (_%where112115%_ - _%message112116%_ - _%stx112117%_ + (lambda (_%where112221%_ + _%message112222%_ + _%stx112223%_ . - _%details112118%_) + _%details112224%_) (raise (make-syntax-error - _%message112116%_ - (cons _%stx112117%_ _%details112118%_) - _%where112115%_ + _%message112222%_ + (cons _%stx112223%_ _%details112224%_) + _%where112221%_ '#f '#f '#f)))) @@ -231,7 +231,7 @@ '#f)) (define AST? (__make-class-predicate AST::t)) (define make-AST - (lambda _%$args112112%_ (apply make-instance AST::t _%$args112112%_))) + (lambda _%$args112218%_ (apply make-instance AST::t _%$args112218%_))) (define AST-e (__make-class-slot-accessor AST::t 'e)) (define AST-source (__make-class-slot-accessor AST::t 'source)) (define AST-e-set! (__make-class-slot-mutator AST::t 'e)) @@ -242,167 +242,167 @@ (define &AST-source-set! (__make-class-slot-unchecked-mutator AST::t 'source)) (define __AST-e - (lambda (_%stx112110%_) - (if (##structure-instance-of? _%stx112110%_ 'gerbil#AST::t) - (##unchecked-structure-ref _%stx112110%_ '1 '#f '#f) - _%stx112110%_))) + (lambda (_%stx112216%_) + (if (##structure-instance-of? _%stx112216%_ 'gerbil#AST::t) + (##unchecked-structure-ref _%stx112216%_ '1 '#f '#f) + _%stx112216%_))) (define __AST-source - (lambda (_%stx112101%_) - (let _%lp112103%_ ((_%src112105%_ _%stx112101%_)) - (if (##structure-instance-of? _%src112105%_ 'gerbil#AST::t) - (_%lp112103%_ - (##unchecked-structure-ref _%src112105%_ '2 '#f '#f)) - (if (##locat? _%src112105%_) _%src112105%_ '#f))))) + (lambda (_%stx112207%_) + (let _%lp112209%_ ((_%src112211%_ _%stx112207%_)) + (if (##structure-instance-of? _%src112211%_ 'gerbil#AST::t) + (_%lp112209%_ + (##unchecked-structure-ref _%src112211%_ '2 '#f '#f)) + (if (##locat? _%src112211%_) _%src112211%_ '#f))))) (define __AST - (lambda (_%e112093%_ _%src-stx112094%_) - (let ((_%src112096%_ (__AST-source _%src-stx112094%_))) - (if (or (##structure-instance-of? _%e112093%_ 'gerbil#AST::t) - (not _%src112096%_)) - _%e112093%_ - (##structure AST::t _%e112093%_ _%src112096%_))))) + (lambda (_%e112199%_ _%src-stx112200%_) + (let ((_%src112202%_ (__AST-source _%src-stx112200%_))) + (if (or (##structure-instance-of? _%e112199%_ 'gerbil#AST::t) + (not _%src112202%_)) + _%e112199%_ + (##structure AST::t _%e112199%_ _%src112202%_))))) (define __AST-eq? - (lambda (_%stx112090%_ _%obj112091%_) - (eq? (__AST-e _%stx112090%_) _%obj112091%_))) + (lambda (_%stx112196%_ _%obj112197%_) + (eq? (__AST-e _%stx112196%_) _%obj112197%_))) (define __AST-pair? - (lambda (_%stx112088%_) (pair? (__AST-e _%stx112088%_)))) + (lambda (_%stx112194%_) (pair? (__AST-e _%stx112194%_)))) (define __AST-null? - (lambda (_%stx112086%_) (null? (__AST-e _%stx112086%_)))) + (lambda (_%stx112192%_) (null? (__AST-e _%stx112192%_)))) (define __AST-datum? - (lambda (_%stx112067%_) - (let* ((_%e112069%_ (__AST-e _%stx112067%_)) - (_%$e112071%_ (number? _%e112069%_))) - (if _%$e112071%_ - _%$e112071%_ - (let ((_%$e112074%_ (string? _%e112069%_))) - (if _%$e112074%_ - _%$e112074%_ - (let ((_%$e112077%_ (char? _%e112069%_))) - (if _%$e112077%_ - _%$e112077%_ - (let ((_%$e112080%_ (keyword? _%e112069%_))) - (if _%$e112080%_ - _%$e112080%_ - (let ((_%$e112083%_ (boolean? _%e112069%_))) - (if _%$e112083%_ - _%$e112083%_ - (eq? _%e112069%_ '#!void))))))))))))) + (lambda (_%stx112173%_) + (let* ((_%e112175%_ (__AST-e _%stx112173%_)) + (_%$e112177%_ (number? _%e112175%_))) + (if _%$e112177%_ + _%$e112177%_ + (let ((_%$e112180%_ (string? _%e112175%_))) + (if _%$e112180%_ + _%$e112180%_ + (let ((_%$e112183%_ (char? _%e112175%_))) + (if _%$e112183%_ + _%$e112183%_ + (let ((_%$e112186%_ (keyword? _%e112175%_))) + (if _%$e112186%_ + _%$e112186%_ + (let ((_%$e112189%_ (boolean? _%e112175%_))) + (if _%$e112189%_ + _%$e112189%_ + (eq? _%e112175%_ '#!void))))))))))))) (define __AST-id? - (lambda (_%stx112065%_) (symbol? (__AST-e _%stx112065%_)))) + (lambda (_%stx112171%_) (symbol? (__AST-e _%stx112171%_)))) (define __AST-id-list?__% - (lambda (_%stx112016%_ _%tail?112017%_) - (let _%lp112019%_ ((_%rest112021%_ _%stx112016%_)) - (let* ((_%$e112023%_ _%rest112021%_) - (_%$E112025112038%_ + (lambda (_%stx112122%_ _%tail?112123%_) + (let _%lp112125%_ ((_%rest112127%_ _%stx112122%_)) + (let* ((_%$e112129%_ _%rest112127%_) + (_%$E112131112144%_ (lambda () - (let* ((_%$E112026112033%_ + (let* ((_%$E112132112139%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e112023%_))) - (_%rest112036%_ _%$e112023%_)) - (_%tail?112017%_ _%rest112036%_))))) - (if (__AST-pair? _%$e112023%_) - (let* ((_%$tgt112027112041%_ (__AST-e _%$e112023%_)) - (_%$hd112028112044%_ (##car _%$tgt112027112041%_)) - (_%$tl112029112047%_ (##cdr _%$tgt112027112041%_)) - (_%hd112051%_ _%$hd112028112044%_) - (_%rest112053%_ _%$tl112029112047%_)) - (if (__AST-id? _%hd112051%_) - (_%lp112019%_ _%rest112053%_) + _%$e112129%_))) + (_%rest112142%_ _%$e112129%_)) + (_%tail?112123%_ _%rest112142%_))))) + (if (__AST-pair? _%$e112129%_) + (let* ((_%$tgt112133112147%_ (__AST-e _%$e112129%_)) + (_%$hd112134112150%_ (##car _%$tgt112133112147%_)) + (_%$tl112135112153%_ (##cdr _%$tgt112133112147%_)) + (_%hd112157%_ _%$hd112134112150%_) + (_%rest112159%_ _%$tl112135112153%_)) + (if (__AST-id? _%hd112157%_) + (_%lp112125%_ _%rest112159%_) '#f)) - (_%$E112025112038%_)))))) + (_%$E112131112144%_)))))) (define __AST-id-list?__0 - (lambda (_%stx112058%_) - (let ((_%tail?112060%_ __AST-null?)) - (__AST-id-list?__% _%stx112058%_ _%tail?112060%_)))) + (lambda (_%stx112164%_) + (let ((_%tail?112166%_ __AST-null?)) + (__AST-id-list?__% _%stx112164%_ _%tail?112166%_)))) (define __AST-id-list? - (lambda _g112467_ - (let ((_g112466_ (##length _g112467_))) - (cond ((##fx= _g112466_ 1) (apply __AST-id-list?__0 _g112467_)) - ((##fx= _g112466_ 2) (apply __AST-id-list?__% _g112467_)) + (lambda _g112573_ + (let ((_g112572_ (##length _g112573_))) + (cond ((##fx= _g112572_ 1) (apply __AST-id-list?__0 _g112573_)) + ((##fx= _g112572_ 2) (apply __AST-id-list?__% _g112573_)) (else (##raise-wrong-number-of-arguments-exception __AST-id-list? - _g112467_)))))) + _g112573_)))))) (define __AST-bind-list? - (lambda (_%stx112008%_) + (lambda (_%stx112114%_) (__AST-id-list?__% - _%stx112008%_ - (lambda (_%e112010%_) - (let ((_%$e112012%_ (__AST-null? _%e112010%_))) - (if _%$e112012%_ _%$e112012%_ (__AST-id? _%e112010%_))))))) + _%stx112114%_ + (lambda (_%e112116%_) + (let ((_%$e112118%_ (__AST-null? _%e112116%_))) + (if _%$e112118%_ _%$e112118%_ (__AST-id? _%e112116%_))))))) (define __AST-list?__% - (lambda (_%stx111961%_ _%tail?111962%_) - (let _%lp111964%_ ((_%rest111966%_ _%stx111961%_)) - (let* ((_%$e111968%_ _%rest111966%_) - (_%$E111970111983%_ + (lambda (_%stx112067%_ _%tail?112068%_) + (let _%lp112070%_ ((_%rest112072%_ _%stx112067%_)) + (let* ((_%$e112074%_ _%rest112072%_) + (_%$E112076112089%_ (lambda () - (let* ((_%$E111971111978%_ + (let* ((_%$E112077112084%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111968%_))) - (_%rest111981%_ _%$e111968%_)) - (_%tail?111962%_ _%rest111981%_))))) - (if (__AST-pair? _%$e111968%_) - (let* ((_%$tgt111972111986%_ (__AST-e _%$e111968%_)) - (_%$hd111973111989%_ (##car _%$tgt111972111986%_)) - (_%$tl111974111992%_ (##cdr _%$tgt111972111986%_)) - (_%rest111996%_ _%$tl111974111992%_)) - (_%lp111964%_ _%rest111996%_)) - (_%$E111970111983%_)))))) + _%$e112074%_))) + (_%rest112087%_ _%$e112074%_)) + (_%tail?112068%_ _%rest112087%_))))) + (if (__AST-pair? _%$e112074%_) + (let* ((_%$tgt112078112092%_ (__AST-e _%$e112074%_)) + (_%$hd112079112095%_ (##car _%$tgt112078112092%_)) + (_%$tl112080112098%_ (##cdr _%$tgt112078112092%_)) + (_%rest112102%_ _%$tl112080112098%_)) + (_%lp112070%_ _%rest112102%_)) + (_%$E112076112089%_)))))) (define __AST-list?__0 - (lambda (_%stx112001%_) - (let ((_%tail?112003%_ __AST-null?)) - (__AST-list?__% _%stx112001%_ _%tail?112003%_)))) + (lambda (_%stx112107%_) + (let ((_%tail?112109%_ __AST-null?)) + (__AST-list?__% _%stx112107%_ _%tail?112109%_)))) (define __AST-list? - (lambda _g112469_ - (let ((_g112468_ (##length _g112469_))) - (cond ((##fx= _g112468_ 1) (apply __AST-list?__0 _g112469_)) - ((##fx= _g112468_ 2) (apply __AST-list?__% _g112469_)) + (lambda _g112575_ + (let ((_g112574_ (##length _g112575_))) + (cond ((##fx= _g112574_ 1) (apply __AST-list?__0 _g112575_)) + ((##fx= _g112574_ 2) (apply __AST-list?__% _g112575_)) (else (##raise-wrong-number-of-arguments-exception __AST-list? - _g112469_)))))) + _g112575_)))))) (define __AST->list - (lambda (_%stx111926%_) - (let* ((_%$e111928%_ _%stx111926%_) - (_%$E111930111943%_ + (lambda (_%stx112032%_) + (let* ((_%$e112034%_ _%stx112032%_) + (_%$E112036112049%_ (lambda () - (let* ((_%$E111931111938%_ + (let* ((_%$E112037112044%_ (lambda () (__raise-syntax-error '#f '"Bad syntax; malformed ast clause" - _%$e111928%_))) - (_%rest111941%_ _%$e111928%_)) - (__AST-e _%rest111941%_))))) - (if (__AST-pair? _%$e111928%_) - (let* ((_%$tgt111932111946%_ (__AST-e _%$e111928%_)) - (_%$hd111933111949%_ (##car _%$tgt111932111946%_)) - (_%$tl111934111952%_ (##cdr _%$tgt111932111946%_)) - (_%hd111956%_ _%$hd111933111949%_) - (_%rest111958%_ _%$tl111934111952%_)) - (cons _%hd111956%_ (__AST->list _%rest111958%_))) - (_%$E111930111943%_))))) + _%$e112034%_))) + (_%rest112047%_ _%$e112034%_)) + (__AST-e _%rest112047%_))))) + (if (__AST-pair? _%$e112034%_) + (let* ((_%$tgt112038112052%_ (__AST-e _%$e112034%_)) + (_%$hd112039112055%_ (##car _%$tgt112038112052%_)) + (_%$tl112040112058%_ (##cdr _%$tgt112038112052%_)) + (_%hd112062%_ _%$hd112039112055%_) + (_%rest112064%_ _%$tl112040112058%_)) + (cons _%hd112062%_ (__AST->list _%rest112064%_))) + (_%$E112036112049%_))))) (define __AST->datum - (lambda (_%stx111919%_) - (if (##structure-instance-of? _%stx111919%_ 'gerbil#AST::t) - (__AST->datum (__AST-e _%stx111919%_)) - (if (pair? _%stx111919%_) - (cons (__AST->datum (##car _%stx111919%_)) - (__AST->datum (##cdr _%stx111919%_))) - (if (vector? _%stx111919%_) - (vector-map __AST->datum _%stx111919%_) - (if (box? _%stx111919%_) - (box (__AST->datum (unbox _%stx111919%_))) - _%stx111919%_)))))) + (lambda (_%stx112025%_) + (if (##structure-instance-of? _%stx112025%_ 'gerbil#AST::t) + (__AST->datum (__AST-e _%stx112025%_)) + (if (pair? _%stx112025%_) + (cons (__AST->datum (##car _%stx112025%_)) + (__AST->datum (##cdr _%stx112025%_))) + (if (vector? _%stx112025%_) + (vector-map __AST->datum _%stx112025%_) + (if (box? _%stx112025%_) + (box (__AST->datum (unbox _%stx112025%_))) + _%stx112025%_)))))) (define get-readenv - (lambda (_%port111917%_) + (lambda (_%port112023%_) (##make-readenv - _%port111917%_ + _%port112023%_ (current-readtable) __wrap-syntax __unwrap-syntax @@ -410,93 +410,93 @@ '() '#f))) (define read-syntax__% - (lambda (_%in111905%_) - (let ((_%e111907%_ (##read-datum-or-eof (get-readenv _%in111905%_)))) - (if (eof-object? (__AST-e _%e111907%_)) - (__AST-e _%e111907%_) - _%e111907%_)))) + (lambda (_%in112011%_) + (let ((_%e112013%_ (##read-datum-or-eof (get-readenv _%in112011%_)))) + (if (eof-object? (__AST-e _%e112013%_)) + (__AST-e _%e112013%_) + _%e112013%_)))) (define read-syntax__0 (lambda () - (let ((_%in111913%_ (current-input-port))) - (read-syntax__% _%in111913%_)))) + (let ((_%in112019%_ (current-input-port))) + (read-syntax__% _%in112019%_)))) (define read-syntax - (lambda _g112471_ - (let ((_g112470_ (##length _g112471_))) - (cond ((##fx= _g112470_ 0) (apply read-syntax__0 _g112471_)) - ((##fx= _g112470_ 1) (apply read-syntax__% _g112471_)) + (lambda _g112577_ + (let ((_g112576_ (##length _g112577_))) + (cond ((##fx= _g112576_ 0) (apply read-syntax__0 _g112577_)) + ((##fx= _g112576_ 1) (apply read-syntax__% _g112577_)) (else (##raise-wrong-number-of-arguments-exception read-syntax - _g112471_)))))) + _g112577_)))))) (define read-syntax-from-file - (lambda (_%path111900%_) - (let ((_%r111902%_ + (lambda (_%path112006%_) + (let ((_%r112008%_ (##read-all-as-a-begin-expr-from-path - (path-normalize _%path111900%_) + (path-normalize _%path112006%_) (current-readtable) __wrap-syntax __unwrap-syntax))) - (if (vector? _%r111902%_) - (cdr (__AST-e (vector-ref _%r111902%_ '1))) - (error (err-code->string _%r111902%_) _%path111900%_))))) + (if (vector? _%r112008%_) + (cdr (__AST-e (vector-ref _%r112008%_ '1))) + (error (err-code->string _%r112008%_) _%path112006%_))))) (define __wrap-syntax - (lambda (_%re111897%_ _%e111898%_) - (if (eof-object? _%e111898%_) - _%e111898%_ - (##structure AST::t _%e111898%_ (##readenv->locat _%re111897%_))))) + (lambda (_%re112003%_ _%e112004%_) + (if (eof-object? _%e112004%_) + _%e112004%_ + (##structure AST::t _%e112004%_ (##readenv->locat _%re112003%_))))) (define __unwrap-syntax - (lambda (_%re111894%_ _%e111895%_) (__AST-e _%e111895%_))) + (lambda (_%re112000%_ _%e112001%_) (__AST-e _%e112001%_))) (define __pp-syntax - (lambda (_%stx111892%_) (pp (__AST->datum _%stx111892%_)))) + (lambda (_%stx111998%_) (pp (__AST->datum _%stx111998%_)))) (define __make-readtable (lambda () - (let ((_%rt111890%_ (##make-standard-readtable))) - (macro-readtable-write-extended-read-macros?-set! _%rt111890%_ '#t) - (macro-readtable-bracket-handler-set! _%rt111890%_ '@list) - (macro-readtable-brace-handler-set! _%rt111890%_ '@method) + (let ((_%rt111996%_ (##make-standard-readtable))) + (macro-readtable-write-extended-read-macros?-set! _%rt111996%_ '#t) + (macro-readtable-bracket-handler-set! _%rt111996%_ '@list) + (macro-readtable-brace-handler-set! _%rt111996%_ '@method) (##readtable-char-sharp-handler-set! - _%rt111890%_ + _%rt111996%_ '#\! __read-sharp-bang) - _%rt111890%_))) + _%rt111996%_))) (define __readtable-bracket-keyword-set! - (lambda (_%rt111886%_ _%kw111887%_) - (macro-readtable-bracket-handler-set! _%rt111886%_ _%kw111887%_))) + (lambda (_%rt111992%_ _%kw111993%_) + (macro-readtable-bracket-handler-set! _%rt111992%_ _%kw111993%_))) (define __readtable-brace-keyword-set! - (lambda (_%rt111883%_ _%kw111884%_) - (macro-readtable-brace-handler-set! _%rt111883%_ _%kw111884%_))) + (lambda (_%rt111989%_ _%kw111990%_) + (macro-readtable-brace-handler-set! _%rt111989%_ _%kw111990%_))) (define __read-sharp-bang - (lambda (_%re111874%_ _%next111875%_ _%start-pos111876%_) - (if (eq? _%start-pos111876%_ '0) - (let* ((_%line111878%_ + (lambda (_%re111980%_ _%next111981%_ _%start-pos111982%_) + (if (eq? _%start-pos111982%_ '0) + (let* ((_%line111984%_ (##read-line - (macro-readenv-port _%re111874%_) + (macro-readenv-port _%re111980%_) '#\newline '#f ##max-fixnum)) - (_%script-line111880%_ + (_%script-line111986%_ (substring - _%line111878%_ + _%line111984%_ '1 - (string-length _%line111878%_)))) + (string-length _%line111984%_)))) (macro-readenv-script-line-set! - _%re111874%_ - _%script-line111880%_) + _%re111980%_ + _%script-line111986%_) (##script-marker)) (##read-sharp-bang - _%re111874%_ - _%next111875%_ - _%start-pos111876%_)))) + _%re111980%_ + _%next111981%_ + _%start-pos111982%_)))) (set! ##readtable-setup-for-language! void) (define __*readtable* (__make-readtable)) (define source-location? ##locat?) (define source-location-path? - (lambda (_%obj111872%_) - (if (source-location? _%obj111872%_) - (string? (##locat-container _%obj111872%_)) + (lambda (_%obj111978%_) + (if (source-location? _%obj111978%_) + (string? (##locat-container _%obj111978%_)) '#f))) (define source-location-path - (lambda (_%obj111870%_) - (if (##locat? _%obj111870%_) - (##container->path (##locat-container _%obj111870%_)) + (lambda (_%obj111976%_) + (if (##locat? _%obj111976%_) + (##container->path (##locat-container _%obj111976%_)) '#f))))) diff --git a/src/bootstrap/gerbil/runtime/syntax~1.scm b/src/bootstrap/gerbil/runtime/syntax~1.scm index c11f50520..16e54e859 100644 --- a/src/bootstrap/gerbil/runtime/syntax~1.scm +++ b/src/bootstrap/gerbil/runtime/syntax~1.scm @@ -1,314 +1,314 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g112480_| + (define |[1]#_g112586_| (##structure gx#syntax-quote::t 'else #f (gx#current-expander-context) '())) - (define |[1]#_g112483_| + (define |[1]#_g112589_| (##structure gx#syntax-quote::t 'Exception #f (gx#current-expander-context) '())) - (define |[1]#_g112484_| + (define |[1]#_g112590_| (##structure gx#syntax-quote::t 'StackTrace #f (gx#current-expander-context) '())) - (define |[1]#_g112486_| + (define |[1]#_g112592_| (##structure gx#syntax-quote::t 'SyntaxError::t #f (gx#current-expander-context) '())) - (define |[1]#_g112488_| + (define |[1]#_g112594_| (##structure gx#syntax-quote::t 'make-SyntaxError #f (gx#current-expander-context) '())) - (define |[1]#_g112490_| + (define |[1]#_g112596_| (##structure gx#syntax-quote::t 'SyntaxError? #f (gx#current-expander-context) '())) - (define |[1]#_g112492_| + (define |[1]#_g112598_| (##structure gx#syntax-quote::t 'SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112493_| + (define |[1]#_g112599_| (##structure gx#syntax-quote::t 'SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112494_| + (define |[1]#_g112600_| (##structure gx#syntax-quote::t 'SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112495_| + (define |[1]#_g112601_| (##structure gx#syntax-quote::t 'SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112496_| + (define |[1]#_g112602_| (##structure gx#syntax-quote::t 'SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112497_| + (define |[1]#_g112603_| (##structure gx#syntax-quote::t 'SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112498_| + (define |[1]#_g112604_| (##structure gx#syntax-quote::t 'SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112500_| + (define |[1]#_g112606_| (##structure gx#syntax-quote::t 'SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112501_| + (define |[1]#_g112607_| (##structure gx#syntax-quote::t 'SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112502_| + (define |[1]#_g112608_| (##structure gx#syntax-quote::t 'SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112503_| + (define |[1]#_g112609_| (##structure gx#syntax-quote::t 'SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112504_| + (define |[1]#_g112610_| (##structure gx#syntax-quote::t 'SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112505_| + (define |[1]#_g112611_| (##structure gx#syntax-quote::t 'SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112506_| + (define |[1]#_g112612_| (##structure gx#syntax-quote::t 'SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112508_| + (define |[1]#_g112614_| (##structure gx#syntax-quote::t '&SyntaxError-message #f (gx#current-expander-context) '())) - (define |[1]#_g112509_| + (define |[1]#_g112615_| (##structure gx#syntax-quote::t '&SyntaxError-irritants #f (gx#current-expander-context) '())) - (define |[1]#_g112510_| + (define |[1]#_g112616_| (##structure gx#syntax-quote::t '&SyntaxError-where #f (gx#current-expander-context) '())) - (define |[1]#_g112511_| + (define |[1]#_g112617_| (##structure gx#syntax-quote::t '&SyntaxError-context #f (gx#current-expander-context) '())) - (define |[1]#_g112512_| + (define |[1]#_g112618_| (##structure gx#syntax-quote::t '&SyntaxError-phi #f (gx#current-expander-context) '())) - (define |[1]#_g112513_| + (define |[1]#_g112619_| (##structure gx#syntax-quote::t '&SyntaxError-marks #f (gx#current-expander-context) '())) - (define |[1]#_g112514_| + (define |[1]#_g112620_| (##structure gx#syntax-quote::t '&SyntaxError-continuation #f (gx#current-expander-context) '())) - (define |[1]#_g112516_| + (define |[1]#_g112622_| (##structure gx#syntax-quote::t '&SyntaxError-message-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112517_| + (define |[1]#_g112623_| (##structure gx#syntax-quote::t '&SyntaxError-irritants-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112518_| + (define |[1]#_g112624_| (##structure gx#syntax-quote::t '&SyntaxError-where-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112519_| + (define |[1]#_g112625_| (##structure gx#syntax-quote::t '&SyntaxError-context-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112520_| + (define |[1]#_g112626_| (##structure gx#syntax-quote::t '&SyntaxError-phi-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112521_| + (define |[1]#_g112627_| (##structure gx#syntax-quote::t '&SyntaxError-marks-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112522_| + (define |[1]#_g112628_| (##structure gx#syntax-quote::t '&SyntaxError-continuation-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112524_| + (define |[1]#_g112630_| (##structure gx#syntax-quote::t 'AST::t #f (gx#current-expander-context) '())) - (define |[1]#_g112526_| + (define |[1]#_g112632_| (##structure gx#syntax-quote::t 'make-AST #f (gx#current-expander-context) '())) - (define |[1]#_g112528_| + (define |[1]#_g112634_| (##structure gx#syntax-quote::t 'AST? #f (gx#current-expander-context) '())) - (define |[1]#_g112530_| + (define |[1]#_g112636_| (##structure gx#syntax-quote::t 'AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112531_| + (define |[1]#_g112637_| (##structure gx#syntax-quote::t 'AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112533_| + (define |[1]#_g112639_| (##structure gx#syntax-quote::t 'AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112534_| + (define |[1]#_g112640_| (##structure gx#syntax-quote::t 'AST-source-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112536_| + (define |[1]#_g112642_| (##structure gx#syntax-quote::t '&AST-e #f (gx#current-expander-context) '())) - (define |[1]#_g112537_| + (define |[1]#_g112643_| (##structure gx#syntax-quote::t '&AST-source #f (gx#current-expander-context) '())) - (define |[1]#_g112539_| + (define |[1]#_g112645_| (##structure gx#syntax-quote::t '&AST-e-set! #f (gx#current-expander-context) '())) - (define |[1]#_g112540_| + (define |[1]#_g112646_| (##structure gx#syntax-quote::t '&AST-source-set! @@ -317,291 +317,291 @@ '())) (begin (define |[:0:]#core-ast-case| - (lambda (_%$stx110750%_) - (let* ((_%g110754110778%_ - (lambda (_%g110755110774%_) + (lambda (_%$stx110856%_) + (let* ((_%g110860110884%_ + (lambda (_%g110861110880%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110755110774%_))) - (_%g110753110864%_ - (lambda (_%g110755110782%_) - (if (gx#stx-pair? _%g110755110782%_) - (let ((_%e110758110785%_ - (gx#syntax-e _%g110755110782%_))) - (let ((_%hd110759110789%_ + _%g110861110880%_))) + (_%g110859110970%_ + (lambda (_%g110861110888%_) + (if (gx#stx-pair? _%g110861110888%_) + (let ((_%e110864110891%_ + (gx#syntax-e _%g110861110888%_))) + (let ((_%hd110865110895%_ (let () (declare (not safe)) - (##car _%e110758110785%_))) - (_%tl110760110792%_ + (##car _%e110864110891%_))) + (_%tl110866110898%_ (let () (declare (not safe)) - (##cdr _%e110758110785%_)))) - (if (gx#stx-pair? _%tl110760110792%_) - (let ((_%e110761110795%_ - (gx#syntax-e _%tl110760110792%_))) - (let ((_%hd110762110799%_ + (##cdr _%e110864110891%_)))) + (if (gx#stx-pair? _%tl110866110898%_) + (let ((_%e110867110901%_ + (gx#syntax-e _%tl110866110898%_))) + (let ((_%hd110868110905%_ (let () (declare (not safe)) - (##car _%e110761110795%_))) - (_%tl110763110802%_ + (##car _%e110867110901%_))) + (_%tl110869110908%_ (let () (declare (not safe)) - (##cdr _%e110761110795%_)))) - (if (gx#stx-pair/null? _%tl110763110802%_) - (let ((_g112472_ + (##cdr _%e110867110901%_)))) + (if (gx#stx-pair/null? _%tl110869110908%_) + (let ((_g112578_ (gx#syntax-split-splice - _%tl110763110802%_ + _%tl110869110908%_ '0))) (begin - (let ((_g112473_ + (let ((_g112579_ (let () (declare (not safe)) - (if (##values? _g112472_) - (##vector-length - _g112472_) + (if (##values? _g112578_) + (##values-length + _g112578_) 1)))) (if (not (let () (declare (not safe)) - (##fx= _g112473_ 2))) + (##fx= _g112579_ 2))) (error "Context expects 2 values" - _g112473_))) - (let ((_%target110764110805%_ + _g112579_))) + (let ((_%target110870110911%_ (let () (declare (not safe)) - (##vector-ref _g112472_ 0))) - (_%tl110766110808%_ + (##values-ref _g112578_ 0))) + (_%tl110872110914%_ (let () (declare (not safe)) - (##vector-ref - _g112472_ + (##values-ref + _g112578_ 1)))) (if (gx#stx-null? - _%tl110766110808%_) - (letrec ((_%loop110767110811%_ - (lambda (_%hd110765110815%_ + _%tl110872110914%_) + (letrec ((_%loop110873110917%_ + (lambda (_%hd110871110921%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%body110771110818%_) - (if (gx#stx-pair? _%hd110765110815%_) - (let ((_%e110768110821%_ - (gx#syntax-e _%hd110765110815%_))) - (let ((_%lp-hd110769110825%_ + _%body110877110924%_) + (if (gx#stx-pair? _%hd110871110921%_) + (let ((_%e110874110927%_ + (gx#syntax-e _%hd110871110921%_))) + (let ((_%lp-hd110875110931%_ (let () (declare (not safe)) - (##car _%e110768110821%_))) - (_%lp-tl110770110828%_ + (##car _%e110874110927%_))) + (_%lp-tl110876110934%_ (let () (declare (not safe)) - (##cdr _%e110768110821%_)))) - (_%loop110767110811%_ - _%lp-tl110770110828%_ - (cons _%lp-hd110769110825%_ - _%body110771110818%_)))) - (let ((_%body110772110831%_ - (reverse _%body110771110818%_))) - ((lambda (_%L110835%_ _%L110837%_) + (##cdr _%e110874110927%_)))) + (_%loop110873110917%_ + _%lp-tl110876110934%_ + (cons _%lp-hd110875110931%_ + _%body110877110924%_)))) + (let ((_%body110878110937%_ + (reverse _%body110877110924%_))) + ((lambda (_%L110941%_ _%L110943%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (gx#datum->syntax '#f '$e) - (cons _%L110837%_ '())) + (cons _%L110943%_ '())) (cons (cons (gx#datum->syntax '#f 'core-ast-case%) (cons (gx#datum->syntax '#f '$e) - (let ((__tmp112474 + (let ((__tmp112580 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g110855110858%_ _%g110856110861%_) - (cons _%g110855110858%_ _%g110856110861%_)))) + (lambda (_%g110961110964%_ _%g110962110967%_) + (cons _%g110961110964%_ _%g110962110967%_)))) (declare (not safe)) - (__foldr1 __tmp112474 '() _%L110835%_)))) + (__foldr1 __tmp112580 '() _%L110941%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%body110772110831%_ - _%hd110762110799%_)))))) + _%body110878110937%_ + _%hd110868110905%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%loop110767110811%_ - _%target110764110805%_ + (_%loop110873110917%_ + _%target110870110911%_ '())) - (_%g110754110778%_ - _%g110755110782%_))))) - (_%g110754110778%_ _%g110755110782%_)))) - (_%g110754110778%_ _%g110755110782%_)))) - (_%g110754110778%_ _%g110755110782%_))))) - (_%g110753110864%_ _%$stx110750%_)))) + (_%g110860110884%_ + _%g110861110888%_))))) + (_%g110860110884%_ _%g110861110888%_)))) + (_%g110860110884%_ _%g110861110888%_)))) + (_%g110860110884%_ _%g110861110888%_))))) + (_%g110859110970%_ _%$stx110856%_)))) (define |[:0:]#core-ast-case%| - (lambda (_%stx110869%_) - (letrec ((_%generate1110872%_ - (lambda (_%hd111413%_ - _%tgt111415%_ - _%K111416%_ - _%E111417%_ - _%kws111418%_) - (let* ((_%g111420111428%_ - (lambda (_%g111421111424%_) + (lambda (_%stx110975%_) + (letrec ((_%generate1110978%_ + (lambda (_%hd111519%_ + _%tgt111521%_ + _%K111522%_ + _%E111523%_ + _%kws111524%_) + (let* ((_%g111526111534%_ + (lambda (_%g111527111530%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111421111424%_))) - (_%g111419111863%_ - (lambda (_%g111421111432%_) - ((lambda (_%L111435%_) - (let* ((_%__stx112370112371%_ _%hd111413%_) - (_%g111449111463%_ + _%g111527111530%_))) + (_%g111525111969%_ + (lambda (_%g111527111538%_) + ((lambda (_%L111541%_) + (let* ((_%__stx112476112477%_ _%hd111519%_) + (_%g111555111569%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx112370112371%_)))) - (let ((_%__kont112373112374%_ - (lambda (_%L111685%_ _%L111687%_) - (let* ((_%g111698111706%_ - (lambda (_%g111699111702%_) + _%__stx112476112477%_)))) + (let ((_%__kont112479112480%_ + (lambda (_%L111791%_ _%L111793%_) + (let* ((_%g111804111812%_ + (lambda (_%g111805111808%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111699111702%_))) - (_%g111697111855%_ - (lambda (_%g111699111710%_) - ((lambda (_%L111713%_) - (let* ((_%g111725111733%_ + _%g111805111808%_))) + (_%g111803111961%_ + (lambda (_%g111805111816%_) + ((lambda (_%L111819%_) + (let* ((_%g111831111839%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111726111729%_) + (lambda (_%g111832111835%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111726111729%_))) - (_%g111724111851%_ - (lambda (_%g111726111737%_) - ((lambda (_%L111740%_) - (let* ((_%g111753111761%_ - (lambda (_%g111754111757%_) + _%g111832111835%_))) + (_%g111830111957%_ + (lambda (_%g111832111843%_) + ((lambda (_%L111846%_) + (let* ((_%g111859111867%_ + (lambda (_%g111860111863%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111754111757%_))) - (_%g111752111847%_ - (lambda (_%g111754111765%_) - ((lambda (_%L111768%_) - (let* ((_%g111781111789%_ - (lambda (_%g111782111785%_) + _%g111860111863%_))) + (_%g111858111953%_ + (lambda (_%g111860111871%_) + ((lambda (_%L111874%_) + (let* ((_%g111887111895%_ + (lambda (_%g111888111891%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111782111785%_))) - (_%g111780111843%_ - (lambda (_%g111782111793%_) - ((lambda (_%L111796%_) - (let* ((_%g111809111817%_ - (lambda (_%g111810111813%_) + _%g111888111891%_))) + (_%g111886111949%_ + (lambda (_%g111888111899%_) + ((lambda (_%L111902%_) + (let* ((_%g111915111923%_ + (lambda (_%g111916111919%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111810111813%_))) - (_%g111808111839%_ - (lambda (_%g111810111821%_) - ((lambda (_%L111824%_) + _%g111916111919%_))) + (_%g111914111945%_ + (lambda (_%g111916111927%_) + ((lambda (_%L111930%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f '__AST-pair?) - (cons _%L111435%_ '())) + (cons _%L111541%_ '())) (cons (cons (gx#datum->syntax '#f 'let*) - (cons (cons (cons _%L111713%_ + (cons (cons (cons _%L111819%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111435%_ '())) + (cons _%L111541%_ '())) '())) - (cons (cons _%L111740%_ + (cons (cons _%L111846%_ (cons (cons (gx#datum->syntax '#f '##car) - (cons _%L111713%_ '())) + (cons _%L111819%_ '())) '())) - (cons (cons _%L111768%_ + (cons (cons _%L111874%_ (cons (cons (gx#datum->syntax '#f '##cdr) - (cons _%L111713%_ '())) + (cons _%L111819%_ '())) '())) '()))) - (cons _%L111796%_ '()))) + (cons _%L111902%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111824%_ '()))))) - _%g111810111821%_)))) - (_%g111808111839%_ _%E111417%_))) - _%g111782111793%_)))) + (cons _%L111930%_ '()))))) + _%g111916111927%_)))) + (_%g111914111945%_ _%E111523%_))) + _%g111888111899%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111780111843%_ - (_%generate1110872%_ - _%L111687%_ - _%L111740%_ - (_%generate1110872%_ - _%L111685%_ - _%L111768%_ - _%K111416%_ - _%E111417%_ - _%kws111418%_) - _%E111417%_ - _%kws111418%_)))) - _%g111754111765%_)))) - (_%g111752111847%_ (gx#genident '$tl)))) - _%g111726111737%_)))) - (_%g111724111851%_ (gx#genident '$hd)))) - _%g111699111710%_)))) + (_%g111886111949%_ + (_%generate1110978%_ + _%L111793%_ + _%L111846%_ + (_%generate1110978%_ + _%L111791%_ + _%L111874%_ + _%K111522%_ + _%E111523%_ + _%kws111524%_) + _%E111523%_ + _%kws111524%_)))) + _%g111860111871%_)))) + (_%g111858111953%_ (gx#genident '$tl)))) + _%g111832111843%_)))) + (_%g111830111957%_ (gx#genident '$hd)))) + _%g111805111816%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111697111855%_ + (_%g111803111961%_ (gx#genident '$tgt))))) - (_%__kont112375112376%_ - (lambda (_%L111552%_) - (if (gx#underscore? _%L111552%_) - _%K111416%_ - (if (let ((__tmp112476 - (lambda (_%g111562111564%_) + (_%__kont112481112482%_ + (lambda (_%L111658%_) + (if (gx#underscore? _%L111658%_) + _%K111522%_ + (if (let ((__tmp112582 + (lambda (_%g111668111670%_) (gx#bound-identifier=? - _%g111562111564%_ - _%L111552%_))) - (__tmp112475 + _%g111668111670%_ + _%L111658%_))) + (__tmp112581 (gx#syntax->list - _%kws111418%_))) + _%kws111524%_))) (declare (not safe)) - (__find __tmp112476 - __tmp112475)) - (let* ((_%g111570111585%_ - (lambda (_%g111571111581%_) + (__find __tmp112582 + __tmp112581)) + (let* ((_%g111676111691%_ + (lambda (_%g111677111687%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111571111581%_))) - (_%g111569111631%_ - (lambda (_%g111571111589%_) + _%g111677111687%_))) + (_%g111675111737%_ + (lambda (_%g111677111695%_) (if (gx#stx-pair? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _%g111571111589%_) - (let ((_%e111574111592%_ - (gx#syntax-e _%g111571111589%_))) - (let ((_%hd111575111596%_ + _%g111677111695%_) + (let ((_%e111680111698%_ + (gx#syntax-e _%g111677111695%_))) + (let ((_%hd111681111702%_ (let () (declare (not safe)) - (##car _%e111574111592%_))) - (_%tl111576111599%_ + (##car _%e111680111698%_))) + (_%tl111682111705%_ (let () (declare (not safe)) - (##cdr _%e111574111592%_)))) - (if (gx#stx-pair? _%tl111576111599%_) - (let ((_%e111577111602%_ - (gx#syntax-e _%tl111576111599%_))) - (let ((_%hd111578111606%_ + (##cdr _%e111680111698%_)))) + (if (gx#stx-pair? _%tl111682111705%_) + (let ((_%e111683111708%_ + (gx#syntax-e _%tl111682111705%_))) + (let ((_%hd111684111712%_ (let () (declare (not safe)) - (##car _%e111577111602%_))) - (_%tl111579111609%_ + (##car _%e111683111708%_))) + (_%tl111685111715%_ (let () (declare (not safe)) - (##cdr _%e111577111602%_)))) - (if (gx#stx-null? _%tl111579111609%_) - ((lambda (_%L111612%_ _%L111614%_) + (##cdr _%e111683111708%_)))) + (if (gx#stx-null? _%tl111685111715%_) + ((lambda (_%L111718%_ _%L111720%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -610,85 +610,85 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-id?) - (cons _%L111435%_ '())) + (cons _%L111541%_ '())) (cons (cons (gx#datum->syntax '#f 'eq?) (cons (cons (gx#datum->syntax '#f '__AST-e) - (cons _%L111435%_ '())) + (cons _%L111541%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111552%_ + (cons _%L111658%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) '()))) - (cons _%L111614%_ (cons _%L111612%_ '()))))) + (cons _%L111720%_ (cons _%L111718%_ '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd111578111606%_ - _%hd111575111596%_) - (_%g111570111585%_ - _%g111571111589%_)))) - (_%g111570111585%_ _%g111571111589%_)))) - (_%g111570111585%_ _%g111571111589%_))))) - (_%g111569111631%_ (list _%K111416%_ _%E111417%_))) + _%hd111684111712%_ + _%hd111681111702%_) + (_%g111676111691%_ + _%g111677111695%_)))) + (_%g111676111691%_ _%g111677111695%_)))) + (_%g111676111691%_ _%g111677111695%_))))) + (_%g111675111737%_ (list _%K111522%_ _%E111523%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%g111637111645%_ - (lambda (_%g111638111641%_) + (let* ((_%g111743111751%_ + (lambda (_%g111744111747%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111638111641%_))) - (_%g111636111664%_ - (lambda (_%g111638111649%_) - ((lambda (_%L111652%_) + _%g111744111747%_))) + (_%g111742111770%_ + (lambda (_%g111744111755%_) + ((lambda (_%L111758%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'let) - (cons (cons (cons _%L111552%_ - (cons _%L111435%_ '())) + (cons (cons (cons _%L111658%_ + (cons _%L111541%_ '())) '()) - (cons _%L111652%_ '())))) - _%g111638111649%_)))) - (_%g111636111664%_ _%K111416%_)))))) + (cons _%L111758%_ '())))) + _%g111744111755%_)))) + (_%g111742111770%_ _%K111522%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont112377112378%_ - (lambda (_%L111470%_) - (let* ((_%g111481111496%_ - (lambda (_%g111482111492%_) + (_%__kont112483112484%_ + (lambda (_%L111576%_) + (let* ((_%g111587111602%_ + (lambda (_%g111588111598%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111482111492%_))) - (_%g111480111541%_ - (lambda (_%g111482111500%_) + _%g111588111598%_))) + (_%g111586111647%_ + (lambda (_%g111588111606%_) (if (gx#stx-pair? - _%g111482111500%_) - (let ((_%e111485111503%_ + _%g111588111606%_) + (let ((_%e111591111609%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%g111482111500%_))) - (let ((_%hd111486111507%_ + (gx#syntax-e _%g111588111606%_))) + (let ((_%hd111592111613%_ (let () (declare (not safe)) - (##car _%e111485111503%_))) - (_%tl111487111510%_ + (##car _%e111591111609%_))) + (_%tl111593111616%_ (let () (declare (not safe)) - (##cdr _%e111485111503%_)))) - (if (gx#stx-pair? _%tl111487111510%_) - (let ((_%e111488111513%_ - (gx#syntax-e _%tl111487111510%_))) - (let ((_%hd111489111517%_ + (##cdr _%e111591111609%_)))) + (if (gx#stx-pair? _%tl111593111616%_) + (let ((_%e111594111619%_ + (gx#syntax-e _%tl111593111616%_))) + (let ((_%hd111595111623%_ (let () (declare (not safe)) - (##car _%e111488111513%_))) - (_%tl111490111520%_ + (##car _%e111594111619%_))) + (_%tl111596111626%_ (let () (declare (not safe)) - (##cdr _%e111488111513%_)))) - (if (gx#stx-null? _%tl111490111520%_) - ((lambda (_%L111523%_ _%L111525%_) + (##cdr _%e111594111619%_)))) + (if (gx#stx-null? _%tl111596111626%_) + ((lambda (_%L111629%_ _%L111631%_) (cons (gx#datum->syntax '#f 'if) (cons (cons (gx#datum->syntax '#f @@ -697,524 +697,524 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '__AST-e) - (cons _%L111435%_ '())) + (cons _%L111541%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L111470%_ '())) + (cons _%L111576%_ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons _%L111525%_ - (cons _%L111523%_ + (cons _%L111631%_ + (cons _%L111629%_ '()))))) - _%hd111489111517%_ - _%hd111486111507%_) - (_%g111481111496%_ _%g111482111500%_)))) - (_%g111481111496%_ _%g111482111500%_)))) - (_%g111481111496%_ _%g111482111500%_))))) + _%hd111595111623%_ + _%hd111592111613%_) + (_%g111587111602%_ _%g111588111606%_)))) + (_%g111587111602%_ _%g111588111606%_)))) + (_%g111587111602%_ _%g111588111606%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111480111541%_ - (list _%K111416%_ - _%E111417%_)))))) - (let ((_%g111447111668%_ + (_%g111586111647%_ + (list _%K111522%_ + _%E111523%_)))))) + (let ((_%g111553111774%_ (lambda () - (let ((_%L111552%_ - _%__stx112370112371%_)) + (let ((_%L111658%_ + _%__stx112476112477%_)) (if (gx#identifier? - _%L111552%_) - (_%__kont112375112376%_ - _%L111552%_) - (_%__kont112377112378%_ - _%__stx112370112371%_)))))) - (if (gx#stx-pair? _%__stx112370112371%_) - (let ((_%e111453111675%_ + _%L111658%_) + (_%__kont112481112482%_ + _%L111658%_) + (_%__kont112483112484%_ + _%__stx112476112477%_)))))) + (if (gx#stx-pair? _%__stx112476112477%_) + (let ((_%e111559111781%_ (gx#syntax-e - _%__stx112370112371%_))) - (let ((_%tl111455111682%_ + _%__stx112476112477%_))) + (let ((_%tl111561111788%_ (let () (declare (not safe)) - (##cdr _%e111453111675%_))) - (_%hd111454111679%_ + (##cdr _%e111559111781%_))) + (_%hd111560111785%_ (let () (declare (not safe)) - (##car _%e111453111675%_)))) - (_%__kont112373112374%_ - _%tl111455111682%_ - _%hd111454111679%_))) + (##car _%e111559111781%_)))) + (_%__kont112479112480%_ + _%tl111561111788%_ + _%hd111560111785%_))) (let () (declare (not safe)) - (_%g111447111668%_))))))) - _%g111421111432%_)))) - (_%g111419111863%_ _%tgt111415%_))))) - (let* ((_%g110875110903%_ - (lambda (_%g110876110899%_) + (_%g111553111774%_))))))) + _%g111527111538%_)))) + (_%g111525111969%_ _%tgt111521%_))))) + (let* ((_%g110981111009%_ + (lambda (_%g110982111005%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g110876110899%_))) - (_%g110874111409%_ - (lambda (_%g110876110907%_) - (if (gx#stx-pair? _%g110876110907%_) - (let ((_%e110880110910%_ - (gx#syntax-e _%g110876110907%_))) - (let ((_%hd110881110914%_ + _%g110982111005%_))) + (_%g110980111515%_ + (lambda (_%g110982111013%_) + (if (gx#stx-pair? _%g110982111013%_) + (let ((_%e110986111016%_ + (gx#syntax-e _%g110982111013%_))) + (let ((_%hd110987111020%_ (let () (declare (not safe)) - (##car _%e110880110910%_))) - (_%tl110882110917%_ + (##car _%e110986111016%_))) + (_%tl110988111023%_ (let () (declare (not safe)) - (##cdr _%e110880110910%_)))) - (if (gx#stx-pair? _%tl110882110917%_) - (let ((_%e110883110920%_ - (gx#syntax-e _%tl110882110917%_))) - (let ((_%hd110884110924%_ + (##cdr _%e110986111016%_)))) + (if (gx#stx-pair? _%tl110988111023%_) + (let ((_%e110989111026%_ + (gx#syntax-e _%tl110988111023%_))) + (let ((_%hd110990111030%_ (let () (declare (not safe)) - (##car _%e110883110920%_))) - (_%tl110885110927%_ + (##car _%e110989111026%_))) + (_%tl110991111033%_ (let () (declare (not safe)) - (##cdr _%e110883110920%_)))) - (if (gx#stx-pair? _%tl110885110927%_) - (let ((_%e110886110930%_ + (##cdr _%e110989111026%_)))) + (if (gx#stx-pair? _%tl110991111033%_) + (let ((_%e110992111036%_ (gx#syntax-e - _%tl110885110927%_))) - (let ((_%hd110887110934%_ + _%tl110991111033%_))) + (let ((_%hd110993111040%_ (let () (declare (not safe)) - (##car _%e110886110930%_))) - (_%tl110888110937%_ + (##car _%e110992111036%_))) + (_%tl110994111043%_ (let () (declare (not safe)) - (##cdr _%e110886110930%_)))) + (##cdr _%e110992111036%_)))) (if (gx#stx-pair/null? - _%tl110888110937%_) - (let ((_g112477_ + _%tl110994111043%_) + (let ((_g112583_ (gx#syntax-split-splice - _%tl110888110937%_ + _%tl110994111043%_ '0))) (begin - (let ((_g112478_ + (let ((_g112584_ (let () (declare (not safe)) (if (##values? ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - _g112477_) - (##vector-length _g112477_) + _g112583_) + (##values-length _g112583_) 1)))) - (if (not (let () (declare (not safe)) (##fx= _g112478_ 2))) - (error "Context expects 2 values" _g112478_))) + (if (not (let () (declare (not safe)) (##fx= _g112584_ 2))) + (error "Context expects 2 values" _g112584_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%target110889110940%_ + (let ((_%target110995111046%_ (let () (declare (not safe)) - (##vector-ref - _g112477_ + (##values-ref + _g112583_ 0))) - (_%tl110891110943%_ + (_%tl110997111049%_ (let () (declare (not safe)) - (##vector-ref - _g112477_ + (##values-ref + _g112583_ 1)))) (if (gx#stx-null? - _%tl110891110943%_) - (letrec ((_%loop110892110946%_ + _%tl110997111049%_) + (letrec ((_%loop110998111052%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%hd110890110950%_ _%clause110896110953%_) - (if (gx#stx-pair? _%hd110890110950%_) - (let ((_%e110893110956%_ - (gx#syntax-e _%hd110890110950%_))) - (let ((_%lp-hd110894110960%_ + (lambda (_%hd110996111056%_ _%clause111002111059%_) + (if (gx#stx-pair? _%hd110996111056%_) + (let ((_%e110999111062%_ + (gx#syntax-e _%hd110996111056%_))) + (let ((_%lp-hd111000111066%_ (let () (declare (not safe)) - (##car _%e110893110956%_))) - (_%lp-tl110895110963%_ + (##car _%e110999111062%_))) + (_%lp-tl111001111069%_ (let () (declare (not safe)) - (##cdr _%e110893110956%_)))) - (_%loop110892110946%_ - _%lp-tl110895110963%_ - (cons _%lp-hd110894110960%_ - _%clause110896110953%_)))) - (let ((_%clause110897110966%_ - (reverse _%clause110896110953%_))) - ((lambda (_%L110970%_ - _%L110972%_ - _%L110973%_) - (let _%recur110995%_ ((_%rest110998%_ - (let ((__tmp112481 + (##cdr _%e110999111062%_)))) + (_%loop110998111052%_ + _%lp-tl111001111069%_ + (cons _%lp-hd111000111066%_ + _%clause111002111059%_)))) + (let ((_%clause111003111072%_ + (reverse _%clause111002111059%_))) + ((lambda (_%L111076%_ + _%L111078%_ + _%L111079%_) + (let _%recur111101%_ ((_%rest111104%_ + (let ((__tmp112587 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (lambda (_%g111400111403%_ _%g111401111406%_) - (cons _%g111400111403%_ _%g111401111406%_)))) + (lambda (_%g111506111509%_ _%g111507111512%_) + (cons _%g111506111509%_ _%g111507111512%_)))) (declare (not safe)) - (__foldr1 __tmp112481 '() _%L110970%_)))) + (__foldr1 __tmp112587 '() _%L111076%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let* ((_%rest111000111009%_ - _%rest110998%_) - (_%E111003111015%_ + (let* ((_%rest111106111115%_ + _%rest111104%_) + (_%E111109111121%_ (lambda () (let () (declare (not safe)) (error '"No clause matching" - _%rest111000111009%_ + _%rest111106111115%_ '([hd . rest]) '([]))) '#!void))) - (let ((_%K111005111385%_ - (lambda (_%rest111031%_ - _%hd111033%_) - (let* ((_%g111035111043%_ - (lambda (_%g111036111039%_) + (let ((_%K111111111491%_ + (lambda (_%rest111137%_ + _%hd111139%_) + (let* ((_%g111141111149%_ + (lambda (_%g111142111145%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111036111039%_))) - (_%g111034111381%_ - (lambda (_%g111036111047%_) - ((lambda (_%L111050%_) + _%g111142111145%_))) + (_%g111140111487%_ + (lambda (_%g111142111153%_) + ((lambda (_%L111156%_) ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let* ((_%g111068111076%_ - (lambda (_%g111069111072%_) + (let* ((_%g111174111182%_ + (lambda (_%g111175111178%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111069111072%_))) - (_%g111067111377%_ - (lambda (_%g111069111080%_) - ((lambda (_%L111083%_) - (let* ((_%g111096111104%_ - (lambda (_%g111097111100%_) + _%g111175111178%_))) + (_%g111173111483%_ + (lambda (_%g111175111186%_) + ((lambda (_%L111189%_) + (let* ((_%g111202111210%_ + (lambda (_%g111203111206%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111097111100%_))) - (_%g111095111373%_ - (lambda (_%g111097111108%_) - ((lambda (_%L111111%_) - (let* ((_%g111124111132%_ - (lambda (_%g111125111128%_) + _%g111203111206%_))) + (_%g111201111479%_ + (lambda (_%g111203111214%_) + ((lambda (_%L111217%_) + (let* ((_%g111230111238%_ + (lambda (_%g111231111234%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g111125111128%_))) - (_%g111123111154%_ - (lambda (_%g111125111136%_) - ((lambda (_%L111139%_) + _%g111231111234%_))) + (_%g111229111260%_ + (lambda (_%g111231111242%_) + ((lambda (_%L111245%_) (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'let) - (cons (cons _%L111050%_ + (cons (cons _%L111156%_ (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() - (cons _%L111111%_ + (cons _%L111217%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons _%L111139%_ '())))) - _%g111125111136%_)))) + (cons _%L111245%_ '())))) + _%g111231111242%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g111123111154%_ - (let* ((_%__stx112388112389%_ - _%hd111033%_) - (_%g111160111200%_ + (_%g111229111260%_ + (let* ((_%__stx112494112495%_ + _%hd111139%_) + (_%g111266111306%_ (lambda () (gx#raise-syntax-error ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '"Bad syntax; invalid match target" - _%__stx112388112389%_)))) - (let ((_%__kont112391112392%_ - (lambda (_%L111346%_) + _%__stx112494112495%_)))) + (let ((_%__kont112497112498%_ + (lambda (_%L111452%_) (cons (gx#datum->syntax '#f 'begin) - (let ((__tmp112479 - (lambda (_%g111360111363%_ - _%g111361111366%_) - (cons _%g111360111363%_ - _%g111361111366%_)))) + (let ((__tmp112585 + (lambda (_%g111466111469%_ + _%g111467111472%_) + (cons _%g111466111469%_ + _%g111467111472%_)))) (declare (not safe)) - (__foldr1 __tmp112479 '() _%L111346%_))))) - (_%__kont112395112396%_ - (lambda (_%L111284%_ _%L111286%_) - (_%generate1110872%_ - _%L111286%_ - _%L110973%_ - _%L111284%_ - _%L111083%_ - _%L110972%_))) - (_%__kont112397112398%_ - (lambda (_%L111237%_ _%L111239%_ _%L111240%_) - (_%generate1110872%_ - _%L111240%_ - _%L110973%_ + (__foldr1 __tmp112585 '() _%L111452%_))))) + (_%__kont112501112502%_ + (lambda (_%L111390%_ _%L111392%_) + (_%generate1110978%_ + _%L111392%_ + _%L111079%_ + _%L111390%_ + _%L111189%_ + _%L111078%_))) + (_%__kont112503112504%_ + (lambda (_%L111343%_ _%L111345%_ _%L111346%_) + (_%generate1110978%_ + _%L111346%_ + _%L111079%_ (cons (gx#datum->syntax '#f 'if) - (cons _%L111239%_ - (cons _%L111237%_ - (cons _%L111083%_ '())))) - _%L111083%_ - _%L110972%_)))) - (let ((_%__match112417112418%_ - (lambda (_%e111163111306%_ - _%hd111164111310%_ - _%tl111165111313%_ - _%__splice112393112394%_ - _%target111166111316%_ - _%tl111168111319%_) - (letrec ((_%loop111169111322%_ - (lambda (_%hd111167111326%_ - _%expr111173111329%_) - (if (gx#stx-pair? _%hd111167111326%_) - (let ((_%e111170111332%_ + (cons _%L111345%_ + (cons _%L111343%_ + (cons _%L111189%_ '())))) + _%L111189%_ + _%L111078%_)))) + (let ((_%__match112523112524%_ + (lambda (_%e111269111412%_ + _%hd111270111416%_ + _%tl111271111419%_ + _%__splice112499112500%_ + _%target111272111422%_ + _%tl111274111425%_) + (letrec ((_%loop111275111428%_ + (lambda (_%hd111273111432%_ + _%expr111279111435%_) + (if (gx#stx-pair? _%hd111273111432%_) + (let ((_%e111276111438%_ (gx#syntax-e - _%hd111167111326%_))) - (let ((_%lp-tl111172111339%_ + _%hd111273111432%_))) + (let ((_%lp-tl111278111445%_ (let () (declare (not safe)) - (##cdr _%e111170111332%_))) - (_%lp-hd111171111336%_ + (##cdr _%e111276111438%_))) + (_%lp-hd111277111442%_ (let () (declare (not safe)) - (##car _%e111170111332%_)))) - (_%loop111169111322%_ - _%lp-tl111172111339%_ - (cons _%lp-hd111171111336%_ - _%expr111173111329%_)))) - (let ((_%expr111174111342%_ - (reverse _%expr111173111329%_))) - (_%__kont112391112392%_ - _%expr111174111342%_)))))) - (_%loop111169111322%_ - _%target111166111316%_ + (##car _%e111276111438%_)))) + (_%loop111275111428%_ + _%lp-tl111278111445%_ + (cons _%lp-hd111277111442%_ + _%expr111279111435%_)))) + (let ((_%expr111280111448%_ + (reverse _%expr111279111435%_))) + (_%__kont112497112498%_ + _%expr111280111448%_)))))) + (_%loop111275111428%_ + _%target111272111422%_ '()))))) - (if (gx#stx-pair? _%__stx112388112389%_) - (let ((_%e111163111306%_ - (gx#syntax-e _%__stx112388112389%_))) - (let ((_%tl111165111313%_ + (if (gx#stx-pair? _%__stx112494112495%_) + (let ((_%e111269111412%_ + (gx#syntax-e _%__stx112494112495%_))) + (let ((_%tl111271111419%_ (let () (declare (not safe)) - (##cdr _%e111163111306%_))) - (_%hd111164111310%_ + (##cdr _%e111269111412%_))) + (_%hd111270111416%_ (let () (declare (not safe)) - (##car _%e111163111306%_)))) - (if (gx#identifier? _%hd111164111310%_) + (##car _%e111269111412%_)))) + (if (gx#identifier? _%hd111270111416%_) (if (gx#free-identifier=? - |[1]#_g112480_| - _%hd111164111310%_) - (if (gx#stx-pair/null? _%tl111165111313%_) - (let ((_%__splice112393112394%_ + |[1]#_g112586_| + _%hd111270111416%_) + (if (gx#stx-pair/null? _%tl111271111419%_) + (let ((_%__splice112499112500%_ (gx#syntax-split-splice - _%tl111165111313%_ + _%tl111271111419%_ '0))) - (let ((_%tl111168111319%_ + (let ((_%tl111274111425%_ (let () (declare (not safe)) (##vector-ref - _%__splice112393112394%_ + _%__splice112499112500%_ '1))) - (_%target111166111316%_ + (_%target111272111422%_ (let () (declare (not safe)) (##vector-ref - _%__splice112393112394%_ + _%__splice112499112500%_ '0)))) (if (gx#stx-null? - _%tl111168111319%_) - (_%__match112417112418%_ - _%e111163111306%_ - _%hd111164111310%_ - _%tl111165111313%_ - _%__splice112393112394%_ - _%target111166111316%_ - _%tl111168111319%_) + _%tl111274111425%_) + (_%__match112523112524%_ + _%e111269111412%_ + _%hd111270111416%_ + _%tl111271111419%_ + _%__splice112499112500%_ + _%target111272111422%_ + _%tl111274111425%_) (if (gx#stx-pair? - _%tl111165111313%_) - (let ((_%e111180111274%_ + _%tl111271111419%_) + (let ((_%e111286111380%_ (gx#syntax-e - _%tl111165111313%_))) - (let ((_%tl111182111281%_ + _%tl111271111419%_))) + (let ((_%tl111288111387%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111180111274%_))) - (_%hd111181111278%_ - (let () (declare (not safe)) (##car _%e111180111274%_)))) - (if (gx#stx-null? _%tl111182111281%_) - (_%__kont112395112396%_ - _%hd111181111278%_ - _%hd111164111310%_) - (if (gx#stx-pair? _%tl111182111281%_) - (let ((_%e111192111227%_ - (gx#syntax-e _%tl111182111281%_))) - (let ((_%tl111194111234%_ + (##cdr _%e111286111380%_))) + (_%hd111287111384%_ + (let () (declare (not safe)) (##car _%e111286111380%_)))) + (if (gx#stx-null? _%tl111288111387%_) + (_%__kont112501112502%_ + _%hd111287111384%_ + _%hd111270111416%_) + (if (gx#stx-pair? _%tl111288111387%_) + (let ((_%e111298111333%_ + (gx#syntax-e _%tl111288111387%_))) + (let ((_%tl111300111340%_ (let () (declare (not safe)) - (##cdr _%e111192111227%_))) - (_%hd111193111231%_ + (##cdr _%e111298111333%_))) + (_%hd111299111337%_ (let () (declare (not safe)) - (##car _%e111192111227%_)))) - (if (gx#stx-null? _%tl111194111234%_) - (_%__kont112397112398%_ - _%hd111193111231%_ - _%hd111181111278%_ - _%hd111164111310%_) + (##car _%e111298111333%_)))) + (if (gx#stx-null? _%tl111300111340%_) + (_%__kont112503112504%_ + _%hd111299111337%_ + _%hd111287111384%_ + _%hd111270111416%_) (let () (declare (not safe)) - (_%g111160111200%_))))) - (let () (declare (not safe)) (_%g111160111200%_)))))) + (_%g111266111306%_))))) + (let () (declare (not safe)) (_%g111266111306%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111160111200%_)))))) - (if (gx#stx-pair? _%tl111165111313%_) - (let ((_%e111180111274%_ + (_%g111266111306%_)))))) + (if (gx#stx-pair? _%tl111271111419%_) + (let ((_%e111286111380%_ (gx#syntax-e - _%tl111165111313%_))) - (let ((_%tl111182111281%_ + _%tl111271111419%_))) + (let ((_%tl111288111387%_ (let () (declare (not safe)) - (##cdr _%e111180111274%_))) - (_%hd111181111278%_ + (##cdr _%e111286111380%_))) + (_%hd111287111384%_ (let () (declare (not safe)) - (##car _%e111180111274%_)))) + (##car _%e111286111380%_)))) (if (gx#stx-null? - _%tl111182111281%_) - (_%__kont112395112396%_ - _%hd111181111278%_ - _%hd111164111310%_) + _%tl111288111387%_) + (_%__kont112501112502%_ + _%hd111287111384%_ + _%hd111270111416%_) (if (gx#stx-pair? - _%tl111182111281%_) - (let ((_%e111192111227%_ + _%tl111288111387%_) + (let ((_%e111298111333%_ (gx#syntax-e - _%tl111182111281%_))) - (let ((_%tl111194111234%_ + _%tl111288111387%_))) + (let ((_%tl111300111340%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (let () (declare (not safe)) - (##cdr _%e111192111227%_))) - (_%hd111193111231%_ + (##cdr _%e111298111333%_))) + (_%hd111299111337%_ (let () (declare (not safe)) - (##car _%e111192111227%_)))) - (if (gx#stx-null? _%tl111194111234%_) - (_%__kont112397112398%_ - _%hd111193111231%_ - _%hd111181111278%_ - _%hd111164111310%_) - (let () (declare (not safe)) (_%g111160111200%_))))) - (let () (declare (not safe)) (_%g111160111200%_)))))) + (##car _%e111298111333%_)))) + (if (gx#stx-null? _%tl111300111340%_) + (_%__kont112503112504%_ + _%hd111299111337%_ + _%hd111287111384%_ + _%hd111270111416%_) + (let () (declare (not safe)) (_%g111266111306%_))))) + (let () (declare (not safe)) (_%g111266111306%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111160111200%_)))) - (if (gx#stx-pair? _%tl111165111313%_) - (let ((_%e111180111274%_ + (_%g111266111306%_)))) + (if (gx#stx-pair? _%tl111271111419%_) + (let ((_%e111286111380%_ (gx#syntax-e - _%tl111165111313%_))) - (let ((_%tl111182111281%_ + _%tl111271111419%_))) + (let ((_%tl111288111387%_ (let () (declare (not safe)) - (##cdr _%e111180111274%_))) - (_%hd111181111278%_ + (##cdr _%e111286111380%_))) + (_%hd111287111384%_ (let () (declare (not safe)) - (##car _%e111180111274%_)))) + (##car _%e111286111380%_)))) (if (gx#stx-null? - _%tl111182111281%_) - (_%__kont112395112396%_ - _%hd111181111278%_ - _%hd111164111310%_) + _%tl111288111387%_) + (_%__kont112501112502%_ + _%hd111287111384%_ + _%hd111270111416%_) (if (gx#stx-pair? - _%tl111182111281%_) - (let ((_%e111192111227%_ + _%tl111288111387%_) + (let ((_%e111298111333%_ (gx#syntax-e - _%tl111182111281%_))) - (let ((_%tl111194111234%_ + _%tl111288111387%_))) + (let ((_%tl111300111340%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e111192111227%_))) - (_%hd111193111231%_ - (let () (declare (not safe)) (##car _%e111192111227%_)))) - (if (gx#stx-null? _%tl111194111234%_) - (_%__kont112397112398%_ - _%hd111193111231%_ - _%hd111181111278%_ - _%hd111164111310%_) - (let () (declare (not safe)) (_%g111160111200%_))))) + (##cdr _%e111298111333%_))) + (_%hd111299111337%_ + (let () (declare (not safe)) (##car _%e111298111333%_)))) + (if (gx#stx-null? _%tl111300111340%_) + (_%__kont112503112504%_ + _%hd111299111337%_ + _%hd111287111384%_ + _%hd111270111416%_) + (let () (declare (not safe)) (_%g111266111306%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g111160111200%_)))))) + (_%g111266111306%_)))))) (let () (declare (not safe)) - (_%g111160111200%_)))) - (if (gx#stx-pair? _%tl111165111313%_) - (let ((_%e111180111274%_ - (gx#syntax-e _%tl111165111313%_))) - (let ((_%tl111182111281%_ + (_%g111266111306%_)))) + (if (gx#stx-pair? _%tl111271111419%_) + (let ((_%e111286111380%_ + (gx#syntax-e _%tl111271111419%_))) + (let ((_%tl111288111387%_ (let () (declare (not safe)) - (##cdr _%e111180111274%_))) - (_%hd111181111278%_ + (##cdr _%e111286111380%_))) + (_%hd111287111384%_ (let () (declare (not safe)) - (##car _%e111180111274%_)))) - (if (gx#stx-null? _%tl111182111281%_) - (_%__kont112395112396%_ - _%hd111181111278%_ - _%hd111164111310%_) + (##car _%e111286111380%_)))) + (if (gx#stx-null? _%tl111288111387%_) + (_%__kont112501112502%_ + _%hd111287111384%_ + _%hd111270111416%_) (if (gx#stx-pair? - _%tl111182111281%_) - (let ((_%e111192111227%_ + _%tl111288111387%_) + (let ((_%e111298111333%_ (gx#syntax-e - _%tl111182111281%_))) - (let ((_%tl111194111234%_ + _%tl111288111387%_))) + (let ((_%tl111300111340%_ (let () (declare (not safe)) - (##cdr _%e111192111227%_))) - (_%hd111193111231%_ + (##cdr _%e111298111333%_))) + (_%hd111299111337%_ (let () (declare (not safe)) - (##car _%e111192111227%_)))) + (##car _%e111298111333%_)))) (if (gx#stx-null? - _%tl111194111234%_) - (_%__kont112397112398%_ - _%hd111193111231%_ - _%hd111181111278%_ - _%hd111164111310%_) + _%tl111300111340%_) + (_%__kont112503112504%_ + _%hd111299111337%_ + _%hd111287111384%_ + _%hd111270111416%_) (let () (declare (not safe)) - (_%g111160111200%_))))) + (_%g111266111306%_))))) (let () (declare (not safe)) - (_%g111160111200%_)))))) + (_%g111266111306%_)))))) (let () (declare (not safe)) - (_%g111160111200%_)))))) + (_%g111266111306%_)))))) (let () (declare (not safe)) - (_%g111160111200%_))))))))) + (_%g111266111306%_))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%g111097111108%_)))) - (_%g111095111373%_ - (_%recur110995%_ _%rest111031%_)))) - _%g111069111080%_)))) - (_%g111067111377%_ (cons _%L111050%_ '())))) - _%g111036111047%_)))) - (_%g111034111381%_ (gx#genident '$E))))) + _%g111203111214%_)))) + (_%g111201111479%_ + (_%recur111101%_ _%rest111137%_)))) + _%g111175111186%_)))) + (_%g111173111483%_ (cons _%L111156%_ '())))) + _%g111142111153%_)))) + (_%g111140111487%_ (gx#genident '$E))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%K111004111023%_ + (_%K111110111129%_ (lambda () (cons (gx#datum->syntax '#f @@ -1222,47 +1222,47 @@ (cons '#f (cons '"Bad syntax; malformed ast clause" ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L110973%_ '()))))))) + (cons _%L111079%_ '()))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (let ((_%try-match111002111027%_ + (let ((_%try-match111108111133%_ (lambda () - (if (null? _%rest111000111009%_) - (_%K111004111023%_) - (_%E111003111015%_))))) - (if (pair? _%rest111000111009%_) - (let ((_%tl111007111392%_ + (if (null? _%rest111106111115%_) + (_%K111110111129%_) + (_%E111109111121%_))))) + (if (pair? _%rest111106111115%_) + (let ((_%tl111113111498%_ (let () (declare (not safe)) - (##cdr _%rest111000111009%_))) - (_%hd111006111389%_ + (##cdr _%rest111106111115%_))) + (_%hd111112111495%_ (let () (declare (not safe)) - (##car _%rest111000111009%_)))) - (let ((_%hd111395%_ - _%hd111006111389%_) - (_%rest111398%_ - _%tl111007111392%_)) - (_%K111005111385%_ - _%rest111398%_ - _%hd111395%_))) - (_%try-match111002111027%_))))))) - _%clause110897110966%_ - _%hd110887110934%_ - _%hd110884110924%_)))))) - (_%loop110892110946%_ _%target110889110940%_ '())) - (_%g110875110903%_ _%g110876110907%_))))) + (##car _%rest111106111115%_)))) + (let ((_%hd111501%_ + _%hd111112111495%_) + (_%rest111504%_ + _%tl111113111498%_)) + (_%K111111111491%_ + _%rest111504%_ + _%hd111501%_))) + (_%try-match111108111133%_))))))) + _%clause111003111072%_ + _%hd110993111040%_ + _%hd110990111030%_)))))) + (_%loop110998111052%_ _%target110995111046%_ '())) + (_%g110981111009%_ _%g110982111013%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g110875110903%_ - _%g110876110907%_)))) - (_%g110875110903%_ - _%g110876110907%_)))) - (_%g110875110903%_ _%g110876110907%_)))) - (_%g110875110903%_ _%g110876110907%_))))) - (_%g110874111409%_ _%stx110869%_))))) + (_%g110981111009%_ + _%g110982111013%_)))) + (_%g110981111009%_ + _%g110982111013%_)))) + (_%g110981111009%_ _%g110982111013%_)))) + (_%g110981111009%_ _%g110982111013%_))))) + (_%g110980111515%_ _%stx110975%_))))) (define |[:0:]#SyntaxError| - (let ((__obj112463 + (let ((__obj112569 (let () (declare (not safe)) (##structure @@ -1291,18 +1291,18 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112463 + __obj112569 'gerbil/runtime/syntax#SyntaxError::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 'SyntaxError '2 '#f '#f)) + (##unchecked-structure-set! __obj112569 'SyntaxError '2 '#f '#f)) (let () (declare (not safe)) (##unchecked-structure-set! - __obj112463 + __obj112569 '(message irritants where context phi marks) '4 '#f @@ -1310,99 +1310,99 @@ (let () (declare (not safe)) (##unchecked-structure-set! - __obj112463 + __obj112569 '(continuation message irritants where context phi marks) '6 '#f '#f)) - (let ((__tmp112482 (cons |[1]#_g112483_| (cons |[1]#_g112484_| '())))) + (let ((__tmp112588 (cons |[1]#_g112589_| (cons |[1]#_g112590_| '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112482 '3 '#f '#f)) + (##unchecked-structure-set! __obj112569 __tmp112588 '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '#f '7 '#f '#f)) + (##unchecked-structure-set! __obj112569 '#f '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '#t '8 '#f '#f)) + (##unchecked-structure-set! __obj112569 '#t '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112569 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '#f '11 '#f '#f)) - (let ((__tmp112485 |[1]#_g112486_|)) + (##unchecked-structure-set! __obj112569 '#f '11 '#f '#f)) + (let ((__tmp112591 |[1]#_g112592_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112485 '12 '#f '#f)) - (let ((__tmp112487 |[1]#_g112488_|)) + (##unchecked-structure-set! __obj112569 __tmp112591 '12 '#f '#f)) + (let ((__tmp112593 |[1]#_g112594_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112487 '13 '#f '#f)) - (let ((__tmp112489 |[1]#_g112490_|)) + (##unchecked-structure-set! __obj112569 __tmp112593 '13 '#f '#f)) + (let ((__tmp112595 |[1]#_g112596_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112489 '14 '#f '#f)) - (let ((__tmp112491 - (cons (cons 'message |[1]#_g112492_|) - (cons (cons 'irritants |[1]#_g112493_|) - (cons (cons 'where |[1]#_g112494_|) - (cons (cons 'context |[1]#_g112495_|) - (cons (cons 'phi |[1]#_g112496_|) + (##unchecked-structure-set! __obj112569 __tmp112595 '14 '#f '#f)) + (let ((__tmp112597 + (cons (cons 'message |[1]#_g112598_|) + (cons (cons 'irritants |[1]#_g112599_|) + (cons (cons 'where |[1]#_g112600_|) + (cons (cons 'context |[1]#_g112601_|) + (cons (cons 'phi |[1]#_g112602_|) (cons (cons 'marks - |[1]#_g112497_|) + |[1]#_g112603_|) (cons (cons 'continuation - |[1]#_g112498_|) + |[1]#_g112604_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112491 '15 '#f '#f)) - (let ((__tmp112499 - (cons (cons 'message |[1]#_g112500_|) - (cons (cons 'irritants |[1]#_g112501_|) - (cons (cons 'where |[1]#_g112502_|) - (cons (cons 'context |[1]#_g112503_|) - (cons (cons 'phi |[1]#_g112504_|) + (##unchecked-structure-set! __obj112569 __tmp112597 '15 '#f '#f)) + (let ((__tmp112605 + (cons (cons 'message |[1]#_g112606_|) + (cons (cons 'irritants |[1]#_g112607_|) + (cons (cons 'where |[1]#_g112608_|) + (cons (cons 'context |[1]#_g112609_|) + (cons (cons 'phi |[1]#_g112610_|) (cons (cons 'marks - |[1]#_g112505_|) + |[1]#_g112611_|) (cons (cons 'continuation - |[1]#_g112506_|) + |[1]#_g112612_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112499 '16 '#f '#f)) - (let ((__tmp112507 - (cons (cons 'message |[1]#_g112508_|) - (cons (cons 'irritants |[1]#_g112509_|) - (cons (cons 'where |[1]#_g112510_|) - (cons (cons 'context |[1]#_g112511_|) - (cons (cons 'phi |[1]#_g112512_|) + (##unchecked-structure-set! __obj112569 __tmp112605 '16 '#f '#f)) + (let ((__tmp112613 + (cons (cons 'message |[1]#_g112614_|) + (cons (cons 'irritants |[1]#_g112615_|) + (cons (cons 'where |[1]#_g112616_|) + (cons (cons 'context |[1]#_g112617_|) + (cons (cons 'phi |[1]#_g112618_|) (cons (cons 'marks - |[1]#_g112513_|) + |[1]#_g112619_|) (cons (cons 'continuation - |[1]#_g112514_|) + |[1]#_g112620_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112507 '17 '#f '#f)) - (let ((__tmp112515 - (cons (cons 'message |[1]#_g112516_|) - (cons (cons 'irritants |[1]#_g112517_|) - (cons (cons 'where |[1]#_g112518_|) - (cons (cons 'context |[1]#_g112519_|) - (cons (cons 'phi |[1]#_g112520_|) + (##unchecked-structure-set! __obj112569 __tmp112613 '17 '#f '#f)) + (let ((__tmp112621 + (cons (cons 'message |[1]#_g112622_|) + (cons (cons 'irritants |[1]#_g112623_|) + (cons (cons 'where |[1]#_g112624_|) + (cons (cons 'context |[1]#_g112625_|) + (cons (cons 'phi |[1]#_g112626_|) (cons (cons 'marks - |[1]#_g112521_|) + |[1]#_g112627_|) (cons (cons 'continuation - |[1]#_g112522_|) + |[1]#_g112628_|) '()))))))))) (declare (not safe)) - (##unchecked-structure-set! __obj112463 __tmp112515 '18 '#f '#f)) + (##unchecked-structure-set! __obj112569 __tmp112621 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112569 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112569 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112463 '() '20 '#f '#f)) - __obj112463)) + (##unchecked-structure-set! __obj112569 '() '20 '#f '#f)) + __obj112569)) (define |[:0:]#AST| - (let ((__obj112465 + (let ((__obj112571 (let () (declare (not safe)) (##structure @@ -1430,67 +1430,67 @@ '#f)))) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 'gerbil#AST::t '1 '#f '#f)) + (##unchecked-structure-set! __obj112571 'gerbil#AST::t '1 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 'syntax '2 '#f '#f)) + (##unchecked-structure-set! __obj112571 'syntax '2 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '(e source) '4 '#f '#f)) + (##unchecked-structure-set! __obj112571 '(e source) '4 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '(e source) '6 '#f '#f)) + (##unchecked-structure-set! __obj112571 '(e source) '6 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '() '3 '#f '#f)) + (##unchecked-structure-set! __obj112571 '() '3 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '#t '7 '#f '#f)) + (##unchecked-structure-set! __obj112571 '#t '7 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '#f '8 '#f '#f)) + (##unchecked-structure-set! __obj112571 '#f '8 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '#f '10 '#f '#f)) + (##unchecked-structure-set! __obj112571 '#f '10 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '#f '11 '#f '#f)) - (let ((__tmp112523 |[1]#_g112524_|)) + (##unchecked-structure-set! __obj112571 '#f '11 '#f '#f)) + (let ((__tmp112629 |[1]#_g112630_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112523 '12 '#f '#f)) - (let ((__tmp112525 |[1]#_g112526_|)) + (##unchecked-structure-set! __obj112571 __tmp112629 '12 '#f '#f)) + (let ((__tmp112631 |[1]#_g112632_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112525 '13 '#f '#f)) - (let ((__tmp112527 |[1]#_g112528_|)) + (##unchecked-structure-set! __obj112571 __tmp112631 '13 '#f '#f)) + (let ((__tmp112633 |[1]#_g112634_|)) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112527 '14 '#f '#f)) - (let ((__tmp112529 - (cons (cons 'e |[1]#_g112530_|) - (cons (cons 'source |[1]#_g112531_|) '())))) + (##unchecked-structure-set! __obj112571 __tmp112633 '14 '#f '#f)) + (let ((__tmp112635 + (cons (cons 'e |[1]#_g112636_|) + (cons (cons 'source |[1]#_g112637_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112529 '15 '#f '#f)) - (let ((__tmp112532 - (cons (cons 'e |[1]#_g112533_|) - (cons (cons 'source |[1]#_g112534_|) '())))) + (##unchecked-structure-set! __obj112571 __tmp112635 '15 '#f '#f)) + (let ((__tmp112638 + (cons (cons 'e |[1]#_g112639_|) + (cons (cons 'source |[1]#_g112640_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112532 '16 '#f '#f)) - (let ((__tmp112535 - (cons (cons 'e |[1]#_g112536_|) - (cons (cons 'source |[1]#_g112537_|) '())))) + (##unchecked-structure-set! __obj112571 __tmp112638 '16 '#f '#f)) + (let ((__tmp112641 + (cons (cons 'e |[1]#_g112642_|) + (cons (cons 'source |[1]#_g112643_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112535 '17 '#f '#f)) - (let ((__tmp112538 - (cons (cons 'e |[1]#_g112539_|) - (cons (cons 'source |[1]#_g112540_|) '())))) + (##unchecked-structure-set! __obj112571 __tmp112641 '17 '#f '#f)) + (let ((__tmp112644 + (cons (cons 'e |[1]#_g112645_|) + (cons (cons 'source |[1]#_g112646_|) '())))) (declare (not safe)) - (##unchecked-structure-set! __obj112465 __tmp112538 '18 '#f '#f)) + (##unchecked-structure-set! __obj112571 __tmp112644 '18 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '() '19 '#f '#f)) + (##unchecked-structure-set! __obj112571 '() '19 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '() '21 '#f '#f)) + (##unchecked-structure-set! __obj112571 '() '21 '#f '#f)) (let () (declare (not safe)) - (##unchecked-structure-set! __obj112465 '() '20 '#f '#f)) - __obj112465)))) + (##unchecked-structure-set! __obj112571 '() '20 '#f '#f)) + __obj112571)))) diff --git a/src/bootstrap/gerbil/runtime/system~0.scm b/src/bootstrap/gerbil/runtime/system~0.scm index 695be1090..6760309e5 100644 --- a/src/bootstrap/gerbil/runtime/system~0.scm +++ b/src/bootstrap/gerbil/runtime/system~0.scm @@ -1,18 +1,18 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/system::timestamp 1733870072) + (define gerbil/runtime/system::timestamp 1734131745) (begin - (define gerbil-version-string (lambda () '"v0.18.1-137-g14058aab8")) + (define gerbil-version-string (lambda () '"v0.18.1-138-g625c45069")) (define gerbil-system-manifest (cons (cons '"Gerbil" (gerbil-version-string)) (cons (cons '"Gambit" (system-version-string)) '()))) (define __build-manifest gerbil-system-manifest) (define build-manifest (lambda () __build-manifest)) (define build-manifest-set! - (lambda (_%new-value94563%_) - (if (list? _%new-value94563%_) - (let ((_%new-value94567%_ _%new-value94563%_)) - (__build-manifest-set! _%new-value94567%_)) + (lambda (_%new-value94626%_) + (if (list? _%new-value94626%_) + (let ((_%new-value94630%_ _%new-value94626%_)) + (__build-manifest-set! _%new-value94630%_)) (begin (raise-contract-violation-error '"contract violation" @@ -21,21 +21,21 @@ 'contract: 'list? 'value: - _%new-value94563%_) + _%new-value94626%_) '#!void)))) (define __build-manifest-set! - (lambda (_%new-value94550%_) - (let ((_%new-value94554%_ _%new-value94550%_)) - (set! __build-manifest _%new-value94554%_)))) + (lambda (_%new-value94613%_) + (let ((_%new-value94617%_ _%new-value94613%_)) + (set! __build-manifest _%new-value94617%_)))) (define display-build-manifest__% - (lambda (_%manifest94510%_ _%port94511%_) - (if (list? _%manifest94510%_) - (let ((_%manifest94515%_ _%manifest94510%_)) - (if (port? _%port94511%_) - (let ((_%port94525%_ _%port94511%_)) + (lambda (_%manifest94573%_ _%port94574%_) + (if (list? _%manifest94573%_) + (let ((_%manifest94578%_ _%manifest94573%_)) + (if (port? _%port94574%_) + (let ((_%port94588%_ _%port94574%_)) (__display-build-manifest__% - _%manifest94515%_ - _%port94525%_)) + _%manifest94578%_ + _%port94588%_)) (begin (raise-contract-violation-error '"contract violation" @@ -44,7 +44,7 @@ 'contract: 'port? 'value: - _%port94511%_) + _%port94574%_) '#!void))) (begin (raise-contract-violation-error @@ -54,109 +54,109 @@ 'contract: 'list? 'value: - _%manifest94510%_) + _%manifest94573%_) '#!void)))) (define display-build-manifest__0 (lambda () - (let* ((_%manifest94539%_ __build-manifest) - (_%port94541%_ (current-output-port))) - (__display-build-manifest__% _%manifest94539%_ _%port94541%_)))) + (let* ((_%manifest94602%_ __build-manifest) + (_%port94604%_ (current-output-port))) + (__display-build-manifest__% _%manifest94602%_ _%port94604%_)))) (define display-build-manifest__1 - (lambda (_%manifest94543%_) - (let ((_%port94545%_ (current-output-port))) - (display-build-manifest__% _%manifest94543%_ _%port94545%_)))) + (lambda (_%manifest94606%_) + (let ((_%port94608%_ (current-output-port))) + (display-build-manifest__% _%manifest94606%_ _%port94608%_)))) (define display-build-manifest - (lambda _g94579_ - (let ((_g94578_ (let () (declare (not safe)) (##length _g94579_)))) - (cond ((let () (declare (not safe)) (##fx= _g94578_ 0)) - (apply display-build-manifest__0 _g94579_)) - ((let () (declare (not safe)) (##fx= _g94578_ 1)) - (apply display-build-manifest__1 _g94579_)) - ((let () (declare (not safe)) (##fx= _g94578_ 2)) - (apply display-build-manifest__% _g94579_)) + (lambda _g94642_ + (let ((_g94641_ (let () (declare (not safe)) (##length _g94642_)))) + (cond ((let () (declare (not safe)) (##fx= _g94641_ 0)) + (apply display-build-manifest__0 _g94642_)) + ((let () (declare (not safe)) (##fx= _g94641_ 1)) + (apply display-build-manifest__1 _g94642_)) + ((let () (declare (not safe)) (##fx= _g94641_ 2)) + (apply display-build-manifest__% _g94642_)) (else (##raise-wrong-number-of-arguments-exception display-build-manifest - _g94579_)))))) + _g94642_)))))) (define __display-build-manifest__% - (lambda (_%manifest94432%_ _%port94433%_) - (let* ((_%manifest94436%_ _%manifest94432%_) - (_%port94444%_ _%port94433%_)) - (let ((_%p94457%_ - (lambda (_%g9445294454%_) - (display _%g9445294454%_ _%port94444%_))) - (_%l94458%_ - (let () (declare (not safe)) (##length _%manifest94436%_))) - (_%i94459%_ '0)) - (let ((__tmp94580 - (lambda (_%layer94461%_) - (if (zero? _%i94459%_) + (lambda (_%manifest94495%_ _%port94496%_) + (let* ((_%manifest94499%_ _%manifest94495%_) + (_%port94507%_ _%port94496%_)) + (let ((_%p94520%_ + (lambda (_%g9451594517%_) + (display _%g9451594517%_ _%port94507%_))) + (_%l94521%_ + (let () (declare (not safe)) (##length _%manifest94499%_))) + (_%i94522%_ '0)) + (let ((__tmp94643 + (lambda (_%layer94524%_) + (if (zero? _%i94522%_) '#!void - (if (= _%i94459%_ '1) - (_%p94457%_ '" on ") - (_%p94457%_ '", "))) - (let* ((_%layer9446594472%_ _%layer94461%_) - (_%E9446794476%_ + (if (= _%i94522%_ '1) + (_%p94520%_ '" on ") + (_%p94520%_ '", "))) + (let* ((_%layer9452894535%_ _%layer94524%_) + (_%E9453094539%_ (lambda () (error '"No clause matching" - _%layer9446594472%_ + _%layer9452894535%_ '([name . version])) '#!void)) - (_%K9446894482%_ - (lambda (_%version94479%_ _%name94480%_) - (_%p94457%_ _%name94480%_) - (_%p94457%_ '" ") - (_%p94457%_ _%version94479%_)))) - (if (pair? _%layer9446594472%_) - (let ((_%hd9446994485%_ + (_%K9453194545%_ + (lambda (_%version94542%_ _%name94543%_) + (_%p94520%_ _%name94543%_) + (_%p94520%_ '" ") + (_%p94520%_ _%version94542%_)))) + (if (pair? _%layer9452894535%_) + (let ((_%hd9453294548%_ (let () (declare (not safe)) - (##car _%layer9446594472%_))) - (_%tl9447094487%_ + (##car _%layer9452894535%_))) + (_%tl9453394550%_ (let () (declare (not safe)) - (##cdr _%layer9446594472%_)))) - (let* ((_%name94490%_ _%hd9446994485%_) - (_%version94492%_ _%tl9447094487%_)) - (_%K9446894482%_ - _%version94492%_ - _%name94490%_))) - (_%E9446794476%_))) - (set! _%i94459%_ (+ _%i94459%_ '1))))) + (##cdr _%layer9452894535%_)))) + (let* ((_%name94553%_ _%hd9453294548%_) + (_%version94555%_ _%tl9453394550%_)) + (_%K9453194545%_ + _%version94555%_ + _%name94553%_))) + (_%E9453094539%_))) + (set! _%i94522%_ (+ _%i94522%_ '1))))) (declare (not safe)) - (##for-each __tmp94580 _%manifest94436%_)))))) + (##for-each __tmp94643 _%manifest94499%_)))))) (define __display-build-manifest__0 (lambda () - (let* ((_%manifest94498%_ __build-manifest) - (_%port94500%_ (current-output-port))) - (__display-build-manifest__% _%manifest94498%_ _%port94500%_)))) + (let* ((_%manifest94561%_ __build-manifest) + (_%port94563%_ (current-output-port))) + (__display-build-manifest__% _%manifest94561%_ _%port94563%_)))) (define __display-build-manifest__1 - (lambda (_%manifest94502%_) - (let ((_%port94504%_ (current-output-port))) - (__display-build-manifest__% _%manifest94502%_ _%port94504%_)))) + (lambda (_%manifest94565%_) + (let ((_%port94567%_ (current-output-port))) + (__display-build-manifest__% _%manifest94565%_ _%port94567%_)))) (define __display-build-manifest - (lambda _g94582_ - (let ((_g94581_ (let () (declare (not safe)) (##length _g94582_)))) - (cond ((let () (declare (not safe)) (##fx= _g94581_ 0)) - (apply __display-build-manifest__0 _g94582_)) - ((let () (declare (not safe)) (##fx= _g94581_ 1)) - (apply __display-build-manifest__1 _g94582_)) - ((let () (declare (not safe)) (##fx= _g94581_ 2)) - (apply __display-build-manifest__% _g94582_)) + (lambda _g94645_ + (let ((_g94644_ (let () (declare (not safe)) (##length _g94645_)))) + (cond ((let () (declare (not safe)) (##fx= _g94644_ 0)) + (apply __display-build-manifest__0 _g94645_)) + ((let () (declare (not safe)) (##fx= _g94644_ 1)) + (apply __display-build-manifest__1 _g94645_)) + ((let () (declare (not safe)) (##fx= _g94644_ 2)) + (apply __display-build-manifest__% _g94645_)) (else (##raise-wrong-number-of-arguments-exception __display-build-manifest - _g94582_)))))) + _g94645_)))))) (define build-manifest/layer - (lambda (_%layer94427%_) - (let ((_%l94429%_ (assoc _%layer94427%_ __build-manifest))) - (if _%l94429%_ (cons _%l94429%_ '()) '())))) + (lambda (_%layer94490%_) + (let ((_%l94492%_ (assoc _%layer94490%_ __build-manifest))) + (if _%l94492%_ (cons _%l94492%_ '()) '())))) (define build-manifest/head (lambda () (cons (car __build-manifest) '()))) (define build-manifest-string__% - (lambda (_%manifest94404%_) - (if (list? _%manifest94404%_) - (let ((_%manifest94408%_ _%manifest94404%_)) - (__build-manifest-string__% _%manifest94408%_)) + (lambda (_%manifest94467%_) + (if (list? _%manifest94467%_) + (let ((_%manifest94471%_ _%manifest94467%_)) + (__build-manifest-string__% _%manifest94471%_)) (begin (raise-contract-violation-error '"contract violation" @@ -165,54 +165,54 @@ 'contract: 'list? 'value: - _%manifest94404%_) + _%manifest94467%_) '#!void)))) (define build-manifest-string__0 (lambda () - (let ((_%manifest94422%_ __build-manifest)) - (__build-manifest-string__% _%manifest94422%_)))) + (let ((_%manifest94485%_ __build-manifest)) + (__build-manifest-string__% _%manifest94485%_)))) (define build-manifest-string - (lambda _g94584_ - (let ((_g94583_ (let () (declare (not safe)) (##length _g94584_)))) - (cond ((let () (declare (not safe)) (##fx= _g94583_ 0)) - (apply build-manifest-string__0 _g94584_)) - ((let () (declare (not safe)) (##fx= _g94583_ 1)) - (apply build-manifest-string__% _g94584_)) + (lambda _g94647_ + (let ((_g94646_ (let () (declare (not safe)) (##length _g94647_)))) + (cond ((let () (declare (not safe)) (##fx= _g94646_ 0)) + (apply build-manifest-string__0 _g94647_)) + ((let () (declare (not safe)) (##fx= _g94646_ 1)) + (apply build-manifest-string__% _g94647_)) (else (##raise-wrong-number-of-arguments-exception build-manifest-string - _g94584_)))))) + _g94647_)))))) (define __build-manifest-string__% - (lambda (_%manifest94381%_) - (let ((_%manifest94384%_ _%manifest94381%_)) + (lambda (_%manifest94444%_) + (let ((_%manifest94447%_ _%manifest94444%_)) (call-with-output-string '() - (lambda (_%p94393%_) - (display-build-manifest__% _%manifest94384%_ _%p94393%_)))))) + (lambda (_%p94456%_) + (display-build-manifest__% _%manifest94447%_ _%p94456%_)))))) (define __build-manifest-string__0 (lambda () - (let ((_%manifest94399%_ __build-manifest)) - (__build-manifest-string__% _%manifest94399%_)))) + (let ((_%manifest94462%_ __build-manifest)) + (__build-manifest-string__% _%manifest94462%_)))) (define __build-manifest-string - (lambda _g94586_ - (let ((_g94585_ (let () (declare (not safe)) (##length _g94586_)))) - (cond ((let () (declare (not safe)) (##fx= _g94585_ 0)) - (apply __build-manifest-string__0 _g94586_)) - ((let () (declare (not safe)) (##fx= _g94585_ 1)) - (apply __build-manifest-string__% _g94586_)) + (lambda _g94649_ + (let ((_g94648_ (let () (declare (not safe)) (##length _g94649_)))) + (cond ((let () (declare (not safe)) (##fx= _g94648_ 0)) + (apply __build-manifest-string__0 _g94649_)) + ((let () (declare (not safe)) (##fx= _g94648_ 1)) + (apply __build-manifest-string__% _g94649_)) (else (##raise-wrong-number-of-arguments-exception __build-manifest-string - _g94586_)))))) + _g94649_)))))) (define gerbil-system-version-string (lambda () (__build-manifest-string__% gerbil-system-manifest))) (define __gerbil-greeting (gerbil-system-version-string)) (define gerbil-greeting (lambda () __gerbil-greeting)) (define gerbil-greeting-set! - (lambda (_%new-value94363%_) - (if (string? _%new-value94363%_) - (let ((_%new-value94367%_ _%new-value94363%_)) - (__gerbil-greeting-set! _%new-value94367%_)) + (lambda (_%new-value94426%_) + (if (string? _%new-value94426%_) + (let ((_%new-value94430%_ _%new-value94426%_)) + (__gerbil-greeting-set! _%new-value94430%_)) (begin (raise-contract-violation-error '"contract violation" @@ -221,34 +221,34 @@ 'contract: 'string? 'value: - _%new-value94363%_) + _%new-value94426%_) '#!void)))) (define __gerbil-greeting-set! - (lambda (_%new-value94349%_) - (let ((_%new-value94353%_ _%new-value94349%_)) - (set! __gerbil-greeting _%new-value94353%_)))) + (lambda (_%new-value94412%_) + (let ((_%new-value94416%_ _%new-value94412%_)) + (set! __gerbil-greeting _%new-value94416%_)))) (define gerbil-system (lambda () 'gerbil-gambit)) (define gerbil-home (lambda () - (let ((_%$e94345%_ + (let ((_%$e94408%_ (let () (declare (not safe)) (##getenv '"GERBIL_HOME" '#f)))) - (if _%$e94345%_ _%$e94345%_ (path-expand '"~~"))))) + (if _%$e94408%_ _%$e94408%_ (path-expand '"~~"))))) (define gerbil-path (lambda () - (let ((_%$e94341%_ + (let ((_%$e94404%_ (let () (declare (not safe)) (##getenv '"GERBIL_PATH" '#f)))) - (if _%$e94341%_ _%$e94341%_ (path-expand '"~/.gerbil"))))) + (if _%$e94404%_ _%$e94404%_ (path-expand '"~/.gerbil"))))) (define __smp? '#!void) (define gerbil-runtime-smp? (lambda () (if (eq? __smp? '#!void) (set! __smp? - (if (let ((__tmp94587 - (let ((__tmp94588 (configure-command-string))) + (if (let ((__tmp94650 + (let ((__tmp94651 (configure-command-string))) (declare (not safe)) - (__string-split __tmp94588 '#\')))) + (__string-split __tmp94651 '#\')))) (declare (not safe)) - (##member '"--enable-smp" __tmp94587)) + (##member '"--enable-smp" __tmp94650)) '#t '#f)) '#!void) diff --git a/src/bootstrap/gerbil/runtime/table~0.scm b/src/bootstrap/gerbil/runtime/table~0.scm index 1170b3356..4b1ceeb38 100644 --- a/src/bootstrap/gerbil/runtime/table~0.scm +++ b/src/bootstrap/gerbil/runtime/table~0.scm @@ -1,6 +1,6 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/table::timestamp 1733870072) + (define gerbil/runtime/table::timestamp 1734131745) (begin (declare (not safe)) (define __table::t.id 'gerbil#__table::t) @@ -13,1979 +13,1979 @@ '#f '#(table 5 #f count 5 #f free 5 #f hash 5 #f test 5 #f seed 5 #f))) (define &raw-table-table - (lambda (_%tab94033%_) + (lambda (_%tab94096%_) (##unchecked-structure-ref - _%tab94033%_ + _%tab94096%_ '1 __table::t 'raw-table-table))) (define &raw-table-count - (lambda (_%tab94031%_) + (lambda (_%tab94094%_) (##unchecked-structure-ref - _%tab94031%_ + _%tab94094%_ '2 __table::t 'raw-table-count))) (define &raw-table-free - (lambda (_%tab94029%_) + (lambda (_%tab94092%_) (##unchecked-structure-ref - _%tab94029%_ + _%tab94092%_ '3 __table::t 'raw-table-free))) (define &raw-table-hash - (lambda (_%tab94027%_) + (lambda (_%tab94090%_) (##unchecked-structure-ref - _%tab94027%_ + _%tab94090%_ '4 __table::t 'raw-table-hash))) (define &raw-table-test - (lambda (_%tab94025%_) + (lambda (_%tab94088%_) (##unchecked-structure-ref - _%tab94025%_ + _%tab94088%_ '5 __table::t 'raw-table-test))) (define &raw-table-seed - (lambda (_%tab94023%_) + (lambda (_%tab94086%_) (##unchecked-structure-ref - _%tab94023%_ + _%tab94086%_ '6 __table::t 'raw-table-seed))) (define &raw-table-table-set! - (lambda (_%tab94020%_ _%val94021%_) + (lambda (_%tab94083%_ _%val94084%_) (##unchecked-structure-set! - _%tab94020%_ - _%val94021%_ + _%tab94083%_ + _%val94084%_ '1 __table::t 'raw-table-table-set!))) (define &raw-table-count-set! - (lambda (_%tab94017%_ _%val94018%_) + (lambda (_%tab94080%_ _%val94081%_) (##unchecked-structure-set! - _%tab94017%_ - _%val94018%_ + _%tab94080%_ + _%val94081%_ '2 __table::t 'raw-table-count-set!))) (define &raw-table-free-set! - (lambda (_%tab94014%_ _%val94015%_) + (lambda (_%tab94077%_ _%val94078%_) (##unchecked-structure-set! - _%tab94014%_ - _%val94015%_ + _%tab94077%_ + _%val94078%_ '3 __table::t 'raw-table-free-set!))) (define &raw-table-hash-set! - (lambda (_%tab94011%_ _%val94012%_) + (lambda (_%tab94074%_ _%val94075%_) (##unchecked-structure-set! - _%tab94011%_ - _%val94012%_ + _%tab94074%_ + _%val94075%_ '4 __table::t 'raw-table-hash-set!))) (define &raw-table-test-set! - (lambda (_%tab94008%_ _%val94009%_) + (lambda (_%tab94071%_ _%val94072%_) (##unchecked-structure-set! - _%tab94008%_ - _%val94009%_ + _%tab94071%_ + _%val94072%_ '5 __table::t 'raw-table-test-set!))) (define &raw-table-seed-set! - (lambda (_%tab94005%_ _%val94006%_) + (lambda (_%tab94068%_ _%val94069%_) (##unchecked-structure-set! - _%tab94005%_ - _%val94006%_ + _%tab94068%_ + _%val94069%_ '6 __table::t 'raw-table-seed-set!))) (define raw-table-size-hint->size - (lambda (_%size-hint94003%_) - (if (and (fixnum? _%size-hint94003%_) (##fx> _%size-hint94003%_ '0)) - (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint94003%_))) '4) + (lambda (_%size-hint94066%_) + (if (and (fixnum? _%size-hint94066%_) (##fx> _%size-hint94066%_ '0)) + (##fx* (fxmax '2 (expt '2 (integer-length _%size-hint94066%_))) '4) '16))) (define make-raw-table__% - (lambda (_%size-hint93979%_ _%hash93980%_ _%test93981%_ _%seed93982%_) - (let* ((_%size93984%_ (raw-table-size-hint->size _%size-hint93979%_)) - (_%table93986%_ - (##make-vector _%size93984%_ (macro-unused-obj)))) + (lambda (_%size-hint94042%_ _%hash94043%_ _%test94044%_ _%seed94045%_) + (let* ((_%size94047%_ (raw-table-size-hint->size _%size-hint94042%_)) + (_%table94049%_ + (##make-vector _%size94047%_ (macro-unused-obj)))) (##structure __table::t - _%table93986%_ + _%table94049%_ '0 - (##fxquotient _%size93984%_ '2) - _%hash93980%_ - _%test93981%_ - _%seed93982%_)))) + (##fxquotient _%size94047%_ '2) + _%hash94043%_ + _%test94044%_ + _%seed94045%_)))) (define make-raw-table__0 - (lambda (_%size-hint93992%_ _%hash93993%_ _%test93994%_) - (let ((_%seed93996%_ '0)) + (lambda (_%size-hint94055%_ _%hash94056%_ _%test94057%_) + (let ((_%seed94059%_ '0)) (make-raw-table__% - _%size-hint93992%_ - _%hash93993%_ - _%test93994%_ - _%seed93996%_)))) + _%size-hint94055%_ + _%hash94056%_ + _%test94057%_ + _%seed94059%_)))) (define make-raw-table - (lambda _g94035_ - (let ((_g94034_ (##length _g94035_))) - (cond ((##fx= _g94034_ 3) (apply make-raw-table__0 _g94035_)) - ((##fx= _g94034_ 4) (apply make-raw-table__% _g94035_)) + (lambda _g94098_ + (let ((_g94097_ (##length _g94098_))) + (cond ((##fx= _g94097_ 3) (apply make-raw-table__0 _g94098_)) + ((##fx= _g94097_ 4) (apply make-raw-table__% _g94098_)) (else (##raise-wrong-number-of-arguments-exception make-raw-table - _g94035_)))))) + _g94098_)))))) (define raw-table-ref - (lambda (_%tab93930%_ _%key93931%_ _%default93932%_) - (let ((_%table93934%_ (&raw-table-table _%tab93930%_)) - (_%seed93935%_ (&raw-table-seed _%tab93930%_)) - (_%hash93936%_ (&raw-table-hash _%tab93930%_)) - (_%test93937%_ (&raw-table-test _%tab93930%_))) - (let* ((_%h93939%_ - (fxxor (_%hash93936%_ _%key93931%_) _%seed93935%_)) - (_%size93942%_ (vector-length _%table93934%_)) - (_%entries93945%_ (##fxquotient _%size93942%_ '2)) - (_%start93948%_ + (lambda (_%tab93993%_ _%key93994%_ _%default93995%_) + (let ((_%table93997%_ (&raw-table-table _%tab93993%_)) + (_%seed93998%_ (&raw-table-seed _%tab93993%_)) + (_%hash93999%_ (&raw-table-hash _%tab93993%_)) + (_%test94000%_ (&raw-table-test _%tab93993%_))) + (let* ((_%h94002%_ + (fxxor (_%hash93999%_ _%key93994%_) _%seed93998%_)) + (_%size94005%_ (vector-length _%table93997%_)) + (_%entries94008%_ (##fxquotient _%size94005%_ '2)) + (_%start94011%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93939%_ _%entries93945%_) + (##fxmodulo _%h94002%_ _%entries94008%_) '1))) - (let _%loop93952%_ ((_%probe93955%_ _%start93948%_) - (_%i93957%_ '1) - (_%deleted93959%_ '#f)) - (let ((_%k93962%_ (vector-ref _%table93934%_ _%probe93955%_))) - (if (eq? _%k93962%_ (macro-unused-obj)) - _%default93932%_ - (if (eq? _%k93962%_ (macro-deleted-obj)) - (_%loop93952%_ - (let ((_%next-probe93967%_ - (fx+ _%start93948%_ - _%i93957%_ - (fx* _%i93957%_ _%i93957%_)))) - (##fxmodulo _%next-probe93967%_ _%size93942%_)) - (##fx+ _%i93957%_ '1) - (let ((_%$e93970%_ _%deleted93959%_)) - (if _%$e93970%_ _%$e93970%_ _%probe93955%_))) - (if (_%test93937%_ _%key93931%_ _%k93962%_) + (let _%loop94015%_ ((_%probe94018%_ _%start94011%_) + (_%i94020%_ '1) + (_%deleted94022%_ '#f)) + (let ((_%k94025%_ (vector-ref _%table93997%_ _%probe94018%_))) + (if (eq? _%k94025%_ (macro-unused-obj)) + _%default93995%_ + (if (eq? _%k94025%_ (macro-deleted-obj)) + (_%loop94015%_ + (let ((_%next-probe94030%_ + (fx+ _%start94011%_ + _%i94020%_ + (fx* _%i94020%_ _%i94020%_)))) + (##fxmodulo _%next-probe94030%_ _%size94005%_)) + (##fx+ _%i94020%_ '1) + (let ((_%$e94033%_ _%deleted94022%_)) + (if _%$e94033%_ _%$e94033%_ _%probe94018%_))) + (if (_%test94000%_ _%key93994%_ _%k94025%_) (vector-ref - _%table93934%_ - (##fx+ _%probe93955%_ '1)) - (_%loop93952%_ - (let ((_%next-probe93975%_ - (fx+ _%start93948%_ - _%i93957%_ - (fx* _%i93957%_ _%i93957%_)))) - (##fxmodulo _%next-probe93975%_ _%size93942%_)) - (##fx+ _%i93957%_ '1) - _%deleted93959%_)))))))))) + _%table93997%_ + (##fx+ _%probe94018%_ '1)) + (_%loop94015%_ + (let ((_%next-probe94038%_ + (fx+ _%start94011%_ + _%i94020%_ + (fx* _%i94020%_ _%i94020%_)))) + (##fxmodulo _%next-probe94038%_ _%size94005%_)) + (##fx+ _%i94020%_ '1) + _%deleted94022%_)))))))))) (define raw-table-set! - (lambda (_%tab93926%_ _%key93927%_ _%value93928%_) - (if (##fx< (&raw-table-free _%tab93926%_) + (lambda (_%tab93989%_ _%key93990%_ _%value93991%_) + (if (##fx< (&raw-table-free _%tab93989%_) (##fxquotient - (vector-length (&raw-table-table _%tab93926%_)) + (vector-length (&raw-table-table _%tab93989%_)) '4)) - (__raw-table-rehash! _%tab93926%_) + (__raw-table-rehash! _%tab93989%_) '#!void) - (__raw-table-set! _%tab93926%_ _%key93927%_ _%value93928%_))) + (__raw-table-set! _%tab93989%_ _%key93990%_ _%value93991%_))) (define raw-table-update! - (lambda (_%tab93921%_ _%key93922%_ _%update93923%_ _%default93924%_) - (if (##fx< (&raw-table-free _%tab93921%_) + (lambda (_%tab93984%_ _%key93985%_ _%update93986%_ _%default93987%_) + (if (##fx< (&raw-table-free _%tab93984%_) (##fxquotient - (vector-length (&raw-table-table _%tab93921%_)) + (vector-length (&raw-table-table _%tab93984%_)) '4)) - (__raw-table-rehash! _%tab93921%_) + (__raw-table-rehash! _%tab93984%_) '#!void) (__raw-table-update! - _%tab93921%_ - _%key93922%_ - _%update93923%_ - _%default93924%_))) + _%tab93984%_ + _%key93985%_ + _%update93986%_ + _%default93987%_))) (define raw-table-delete! - (lambda (_%tab93878%_ _%key93879%_) - (let ((_%table93881%_ (&raw-table-table _%tab93878%_)) - (_%seed93882%_ (&raw-table-seed _%tab93878%_)) - (_%hash93883%_ (&raw-table-hash _%tab93878%_)) - (_%test93884%_ (&raw-table-test _%tab93878%_))) - (let* ((_%h93886%_ - (fxxor (_%hash93883%_ _%key93879%_) _%seed93882%_)) - (_%size93889%_ (vector-length _%table93881%_)) - (_%entries93892%_ (##fxquotient _%size93889%_ '2)) - (_%start93895%_ + (lambda (_%tab93941%_ _%key93942%_) + (let ((_%table93944%_ (&raw-table-table _%tab93941%_)) + (_%seed93945%_ (&raw-table-seed _%tab93941%_)) + (_%hash93946%_ (&raw-table-hash _%tab93941%_)) + (_%test93947%_ (&raw-table-test _%tab93941%_))) + (let* ((_%h93949%_ + (fxxor (_%hash93946%_ _%key93942%_) _%seed93945%_)) + (_%size93952%_ (vector-length _%table93944%_)) + (_%entries93955%_ (##fxquotient _%size93952%_ '2)) + (_%start93958%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93886%_ _%entries93892%_) + (##fxmodulo _%h93949%_ _%entries93955%_) '1))) - (let _%loop93899%_ ((_%probe93902%_ _%start93895%_) - (_%i93904%_ '1)) - (let ((_%k93907%_ (vector-ref _%table93881%_ _%probe93902%_))) - (if (eq? _%k93907%_ (macro-unused-obj)) + (let _%loop93962%_ ((_%probe93965%_ _%start93958%_) + (_%i93967%_ '1)) + (let ((_%k93970%_ (vector-ref _%table93944%_ _%probe93965%_))) + (if (eq? _%k93970%_ (macro-unused-obj)) '#!void - (if (eq? _%k93907%_ (macro-deleted-obj)) - (_%loop93899%_ - (let ((_%next-probe93912%_ - (fx+ _%start93895%_ - _%i93904%_ - (fx* _%i93904%_ _%i93904%_)))) - (##fxmodulo _%next-probe93912%_ _%size93889%_)) - (##fx+ _%i93904%_ '1)) - (if (_%test93884%_ _%key93879%_ _%k93907%_) + (if (eq? _%k93970%_ (macro-deleted-obj)) + (_%loop93962%_ + (let ((_%next-probe93975%_ + (fx+ _%start93958%_ + _%i93967%_ + (fx* _%i93967%_ _%i93967%_)))) + (##fxmodulo _%next-probe93975%_ _%size93952%_)) + (##fx+ _%i93967%_ '1)) + (if (_%test93947%_ _%key93942%_ _%k93970%_) (let () (vector-set! - _%table93881%_ - _%probe93902%_ + _%table93944%_ + _%probe93965%_ (macro-deleted-obj)) (vector-set! - _%table93881%_ - (##fx+ _%probe93902%_ '1) + _%table93944%_ + (##fx+ _%probe93965%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93878%_ - (##fx- (&raw-table-count _%tab93878%_) + _%tab93941%_ + (##fx- (&raw-table-count _%tab93941%_) '1))))) - (_%loop93899%_ - (let ((_%next-probe93918%_ - (fx+ _%start93895%_ - _%i93904%_ - (fx* _%i93904%_ _%i93904%_)))) - (##fxmodulo _%next-probe93918%_ _%size93889%_)) - (##fx+ _%i93904%_ '1))))))))))) + (_%loop93962%_ + (let ((_%next-probe93981%_ + (fx+ _%start93958%_ + _%i93967%_ + (fx* _%i93967%_ _%i93967%_)))) + (##fxmodulo _%next-probe93981%_ _%size93952%_)) + (##fx+ _%i93967%_ '1))))))))))) (define raw-table-for-each - (lambda (_%tab93862%_ _%proc93863%_) - (let* ((_%table93865%_ (&raw-table-table _%tab93862%_)) - (_%size93867%_ (vector-length _%table93865%_))) - (let _%loop93870%_ ((_%i93872%_ '0)) - (if (##fx< _%i93872%_ _%size93867%_) + (lambda (_%tab93925%_ _%proc93926%_) + (let* ((_%table93928%_ (&raw-table-table _%tab93925%_)) + (_%size93930%_ (vector-length _%table93928%_))) + (let _%loop93933%_ ((_%i93935%_ '0)) + (if (##fx< _%i93935%_ _%size93930%_) (begin - (let ((_%key93874%_ (vector-ref _%table93865%_ _%i93872%_))) - (if (if (eq? _%key93874%_ (macro-unused-obj)) + (let ((_%key93937%_ (vector-ref _%table93928%_ _%i93935%_))) + (if (if (eq? _%key93937%_ (macro-unused-obj)) '#f - (not (eq? _%key93874%_ (macro-deleted-obj)))) - (let ((_%value93876%_ + (not (eq? _%key93937%_ (macro-deleted-obj)))) + (let ((_%value93939%_ (vector-ref - _%table93865%_ - (##fx+ _%i93872%_ '1)))) - (_%proc93863%_ _%key93874%_ _%value93876%_)) + _%table93928%_ + (##fx+ _%i93935%_ '1)))) + (_%proc93926%_ _%key93937%_ _%value93939%_)) '#!void)) - (_%loop93870%_ (##fx+ _%i93872%_ '2))) + (_%loop93933%_ (##fx+ _%i93935%_ '2))) '#!void))))) (define raw-table-copy - (lambda (_%tab93858%_) - (let ((_%new-tab93860%_ (##structure-copy _%tab93858%_))) + (lambda (_%tab93921%_) + (let ((_%new-tab93923%_ (##structure-copy _%tab93921%_))) (&raw-table-table-set! - _%new-tab93860%_ - (vector-copy (&raw-table-table _%tab93858%_))) - _%new-tab93860%_))) + _%new-tab93923%_ + (vector-copy (&raw-table-table _%tab93921%_))) + _%new-tab93923%_))) (define raw-table-clear! - (lambda (_%tab93856%_) - (vector-fill! (&raw-table-table _%tab93856%_) (macro-unused-obj)) - (&raw-table-count-set! _%tab93856%_ '0) + (lambda (_%tab93919%_) + (vector-fill! (&raw-table-table _%tab93919%_) (macro-unused-obj)) + (&raw-table-count-set! _%tab93919%_ '0) (&raw-table-free-set! - _%tab93856%_ - (##fxquotient (vector-length (&raw-table-table _%tab93856%_)) '2)))) + _%tab93919%_ + (##fxquotient (vector-length (&raw-table-table _%tab93919%_)) '2)))) (define __raw-table-set! - (lambda (_%tab93806%_ _%key93807%_ _%value93808%_) - (let ((_%table93810%_ (&raw-table-table _%tab93806%_)) - (_%seed93811%_ (&raw-table-seed _%tab93806%_)) - (_%hash93812%_ (&raw-table-hash _%tab93806%_)) - (_%test93813%_ (&raw-table-test _%tab93806%_))) - (let* ((_%h93815%_ - (fxxor (_%hash93812%_ _%key93807%_) _%seed93811%_)) - (_%size93818%_ (vector-length _%table93810%_)) - (_%entries93821%_ (##fxquotient _%size93818%_ '2)) - (_%start93824%_ + (lambda (_%tab93869%_ _%key93870%_ _%value93871%_) + (let ((_%table93873%_ (&raw-table-table _%tab93869%_)) + (_%seed93874%_ (&raw-table-seed _%tab93869%_)) + (_%hash93875%_ (&raw-table-hash _%tab93869%_)) + (_%test93876%_ (&raw-table-test _%tab93869%_))) + (let* ((_%h93878%_ + (fxxor (_%hash93875%_ _%key93870%_) _%seed93874%_)) + (_%size93881%_ (vector-length _%table93873%_)) + (_%entries93884%_ (##fxquotient _%size93881%_ '2)) + (_%start93887%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93815%_ _%entries93821%_) + (##fxmodulo _%h93878%_ _%entries93884%_) '1))) - (let _%loop93828%_ ((_%probe93831%_ _%start93824%_) - (_%i93833%_ '1) - (_%deleted93835%_ '#f)) - (let ((_%k93838%_ (vector-ref _%table93810%_ _%probe93831%_))) - (if (eq? _%k93838%_ (macro-unused-obj)) - (if _%deleted93835%_ + (let _%loop93891%_ ((_%probe93894%_ _%start93887%_) + (_%i93896%_ '1) + (_%deleted93898%_ '#f)) + (let ((_%k93901%_ (vector-ref _%table93873%_ _%probe93894%_))) + (if (eq? _%k93901%_ (macro-unused-obj)) + (if _%deleted93898%_ (begin (vector-set! - _%table93810%_ - _%deleted93835%_ - _%key93807%_) + _%table93873%_ + _%deleted93898%_ + _%key93870%_) (vector-set! - _%table93810%_ - (##fx+ _%deleted93835%_ '1) - _%value93808%_) + _%table93873%_ + (##fx+ _%deleted93898%_ '1) + _%value93871%_) ((lambda () (&raw-table-count-set! - _%tab93806%_ - (##fx+ (&raw-table-count _%tab93806%_) '1))))) + _%tab93869%_ + (##fx+ (&raw-table-count _%tab93869%_) '1))))) (begin (vector-set! - _%table93810%_ - _%probe93831%_ - _%key93807%_) + _%table93873%_ + _%probe93894%_ + _%key93870%_) (vector-set! - _%table93810%_ - (##fx+ _%probe93831%_ '1) - _%value93808%_) + _%table93873%_ + (##fx+ _%probe93894%_ '1) + _%value93871%_) ((lambda () (&raw-table-free-set! - _%tab93806%_ - (##fx- (&raw-table-free _%tab93806%_) '1)) + _%tab93869%_ + (##fx- (&raw-table-free _%tab93869%_) '1)) (&raw-table-count-set! - _%tab93806%_ - (##fx+ (&raw-table-count _%tab93806%_) '1)))))) - (if (eq? _%k93838%_ (macro-deleted-obj)) - (_%loop93828%_ - (let ((_%next-probe93845%_ - (fx+ _%start93824%_ - _%i93833%_ - (fx* _%i93833%_ _%i93833%_)))) - (##fxmodulo _%next-probe93845%_ _%size93818%_)) - (##fx+ _%i93833%_ '1) - (let ((_%$e93848%_ _%deleted93835%_)) - (if _%$e93848%_ _%$e93848%_ _%probe93831%_))) - (if (_%test93813%_ _%key93807%_ _%k93838%_) + _%tab93869%_ + (##fx+ (&raw-table-count _%tab93869%_) '1)))))) + (if (eq? _%k93901%_ (macro-deleted-obj)) + (_%loop93891%_ + (let ((_%next-probe93908%_ + (fx+ _%start93887%_ + _%i93896%_ + (fx* _%i93896%_ _%i93896%_)))) + (##fxmodulo _%next-probe93908%_ _%size93881%_)) + (##fx+ _%i93896%_ '1) + (let ((_%$e93911%_ _%deleted93898%_)) + (if _%$e93911%_ _%$e93911%_ _%probe93894%_))) + (if (_%test93876%_ _%key93870%_ _%k93901%_) (let () (vector-set! - _%table93810%_ - _%probe93831%_ - _%key93807%_) + _%table93873%_ + _%probe93894%_ + _%key93870%_) (vector-set! - _%table93810%_ - (##fx+ _%probe93831%_ '1) - _%value93808%_)) - (_%loop93828%_ - (let ((_%next-probe93853%_ - (fx+ _%start93824%_ - _%i93833%_ - (fx* _%i93833%_ _%i93833%_)))) - (##fxmodulo _%next-probe93853%_ _%size93818%_)) - (##fx+ _%i93833%_ '1) - _%deleted93835%_)))))))))) + _%table93873%_ + (##fx+ _%probe93894%_ '1) + _%value93871%_)) + (_%loop93891%_ + (let ((_%next-probe93916%_ + (fx+ _%start93887%_ + _%i93896%_ + (fx* _%i93896%_ _%i93896%_)))) + (##fxmodulo _%next-probe93916%_ _%size93881%_)) + (##fx+ _%i93896%_ '1) + _%deleted93898%_)))))))))) (define __raw-table-update! - (lambda (_%tab93755%_ _%key93756%_ _%update93757%_ _%default93758%_) - (let ((_%table93760%_ (&raw-table-table _%tab93755%_)) - (_%seed93761%_ (&raw-table-seed _%tab93755%_)) - (_%hash93762%_ (&raw-table-hash _%tab93755%_)) - (_%test93763%_ (&raw-table-test _%tab93755%_))) - (let* ((_%h93765%_ - (fxxor (_%hash93762%_ _%key93756%_) _%seed93761%_)) - (_%size93768%_ (vector-length _%table93760%_)) - (_%entries93771%_ (##fxquotient _%size93768%_ '2)) - (_%start93774%_ + (lambda (_%tab93818%_ _%key93819%_ _%update93820%_ _%default93821%_) + (let ((_%table93823%_ (&raw-table-table _%tab93818%_)) + (_%seed93824%_ (&raw-table-seed _%tab93818%_)) + (_%hash93825%_ (&raw-table-hash _%tab93818%_)) + (_%test93826%_ (&raw-table-test _%tab93818%_))) + (let* ((_%h93828%_ + (fxxor (_%hash93825%_ _%key93819%_) _%seed93824%_)) + (_%size93831%_ (vector-length _%table93823%_)) + (_%entries93834%_ (##fxquotient _%size93831%_ '2)) + (_%start93837%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93765%_ _%entries93771%_) + (##fxmodulo _%h93828%_ _%entries93834%_) '1))) - (let _%loop93778%_ ((_%probe93781%_ _%start93774%_) - (_%i93783%_ '1) - (_%deleted93785%_ '#f)) - (let ((_%k93788%_ (vector-ref _%table93760%_ _%probe93781%_))) - (if (eq? _%k93788%_ (macro-unused-obj)) - (if _%deleted93785%_ + (let _%loop93841%_ ((_%probe93844%_ _%start93837%_) + (_%i93846%_ '1) + (_%deleted93848%_ '#f)) + (let ((_%k93851%_ (vector-ref _%table93823%_ _%probe93844%_))) + (if (eq? _%k93851%_ (macro-unused-obj)) + (if _%deleted93848%_ (begin (vector-set! - _%table93760%_ - _%deleted93785%_ - _%key93756%_) + _%table93823%_ + _%deleted93848%_ + _%key93819%_) (vector-set! - _%table93760%_ - (##fx+ _%deleted93785%_ '1) - (_%update93757%_ _%default93758%_)) + _%table93823%_ + (##fx+ _%deleted93848%_ '1) + (_%update93820%_ _%default93821%_)) ((lambda () (&raw-table-count-set! - _%tab93755%_ - (##fx+ (&raw-table-count _%tab93755%_) '1))))) + _%tab93818%_ + (##fx+ (&raw-table-count _%tab93818%_) '1))))) (begin (vector-set! - _%table93760%_ - _%probe93781%_ - _%key93756%_) + _%table93823%_ + _%probe93844%_ + _%key93819%_) (vector-set! - _%table93760%_ - (##fx+ _%probe93781%_ '1) - (_%update93757%_ _%default93758%_)) + _%table93823%_ + (##fx+ _%probe93844%_ '1) + (_%update93820%_ _%default93821%_)) ((lambda () (&raw-table-free-set! - _%tab93755%_ - (##fx- (&raw-table-free _%tab93755%_) '1)) + _%tab93818%_ + (##fx- (&raw-table-free _%tab93818%_) '1)) (&raw-table-count-set! - _%tab93755%_ - (##fx+ (&raw-table-count _%tab93755%_) '1)))))) - (if (eq? _%k93788%_ (macro-deleted-obj)) - (_%loop93778%_ - (let ((_%next-probe93795%_ - (fx+ _%start93774%_ - _%i93783%_ - (fx* _%i93783%_ _%i93783%_)))) - (##fxmodulo _%next-probe93795%_ _%size93768%_)) - (##fx+ _%i93783%_ '1) - (let ((_%$e93798%_ _%deleted93785%_)) - (if _%$e93798%_ _%$e93798%_ _%probe93781%_))) - (if (_%test93763%_ _%key93756%_ _%k93788%_) + _%tab93818%_ + (##fx+ (&raw-table-count _%tab93818%_) '1)))))) + (if (eq? _%k93851%_ (macro-deleted-obj)) + (_%loop93841%_ + (let ((_%next-probe93858%_ + (fx+ _%start93837%_ + _%i93846%_ + (fx* _%i93846%_ _%i93846%_)))) + (##fxmodulo _%next-probe93858%_ _%size93831%_)) + (##fx+ _%i93846%_ '1) + (let ((_%$e93861%_ _%deleted93848%_)) + (if _%$e93861%_ _%$e93861%_ _%probe93844%_))) + (if (_%test93826%_ _%key93819%_ _%k93851%_) (let () (vector-set! - _%table93760%_ - _%probe93781%_ - _%key93756%_) + _%table93823%_ + _%probe93844%_ + _%key93819%_) (vector-set! - _%table93760%_ - (##fx+ _%probe93781%_ '1) - (_%update93757%_ + _%table93823%_ + (##fx+ _%probe93844%_ '1) + (_%update93820%_ (vector-ref - _%table93760%_ - (##fx+ _%probe93781%_ '1))))) - (_%loop93778%_ - (let ((_%next-probe93803%_ - (fx+ _%start93774%_ - _%i93783%_ - (fx* _%i93783%_ _%i93783%_)))) - (##fxmodulo _%next-probe93803%_ _%size93768%_)) - (##fx+ _%i93783%_ '1) - _%deleted93785%_)))))))))) + _%table93823%_ + (##fx+ _%probe93844%_ '1))))) + (_%loop93841%_ + (let ((_%next-probe93866%_ + (fx+ _%start93837%_ + _%i93846%_ + (fx* _%i93846%_ _%i93846%_)))) + (##fxmodulo _%next-probe93866%_ _%size93831%_)) + (##fx+ _%i93846%_ '1) + _%deleted93848%_)))))))))) (define __raw-table-rehash! - (lambda (_%tab93736%_) - (let* ((_%old-table93738%_ (&raw-table-table _%tab93736%_)) - (_%old-size93740%_ (vector-length _%old-table93738%_)) - (_%new-size93742%_ - (if (##fx< (&raw-table-count _%tab93736%_) - (##fxquotient _%old-size93740%_ '4)) - (vector-length _%old-table93738%_) - (##fx* '2 (vector-length _%old-table93738%_)))) - (_%new-table93744%_ - (##make-vector _%new-size93742%_ (macro-unused-obj)))) - (&raw-table-table-set! _%tab93736%_ _%new-table93744%_) - (&raw-table-count-set! _%tab93736%_ '0) + (lambda (_%tab93799%_) + (let* ((_%old-table93801%_ (&raw-table-table _%tab93799%_)) + (_%old-size93803%_ (vector-length _%old-table93801%_)) + (_%new-size93805%_ + (if (##fx< (&raw-table-count _%tab93799%_) + (##fxquotient _%old-size93803%_ '4)) + (vector-length _%old-table93801%_) + (##fx* '2 (vector-length _%old-table93801%_)))) + (_%new-table93807%_ + (##make-vector _%new-size93805%_ (macro-unused-obj)))) + (&raw-table-table-set! _%tab93799%_ _%new-table93807%_) + (&raw-table-count-set! _%tab93799%_ '0) (&raw-table-free-set! - _%tab93736%_ - (##fxquotient _%new-size93742%_ '2)) - (let _%lp93747%_ ((_%i93749%_ '0)) - (if (##fx< _%i93749%_ _%old-size93740%_) + _%tab93799%_ + (##fxquotient _%new-size93805%_ '2)) + (let _%lp93810%_ ((_%i93812%_ '0)) + (if (##fx< _%i93812%_ _%old-size93803%_) (begin - (let ((_%key93751%_ - (vector-ref _%old-table93738%_ _%i93749%_))) - (if (if (eq? _%key93751%_ (macro-unused-obj)) + (let ((_%key93814%_ + (vector-ref _%old-table93801%_ _%i93812%_))) + (if (if (eq? _%key93814%_ (macro-unused-obj)) '#f - (not (eq? _%key93751%_ (macro-deleted-obj)))) - (let ((_%value93753%_ + (not (eq? _%key93814%_ (macro-deleted-obj)))) + (let ((_%value93816%_ (vector-ref - _%old-table93738%_ - (##fx+ _%i93749%_ '1)))) + _%old-table93801%_ + (##fx+ _%i93812%_ '1)))) (__raw-table-set! - _%tab93736%_ - _%key93751%_ - _%value93753%_)) + _%tab93799%_ + _%key93814%_ + _%value93816%_)) '#!void)) - (_%lp93747%_ (##fx+ _%i93749%_ '2))) + (_%lp93810%_ (##fx+ _%i93812%_ '2))) '#!void))))) (define eq-hash - (lambda (_%obj93728%_) - (let ((_%t93730%_ (##type _%obj93728%_))) - (if (##fx= (##fxand _%t93730%_ '1) '0) - (fxand (##type-cast _%obj93728%_ (macro-type-fixnum)) + (lambda (_%obj93791%_) + (let ((_%t93793%_ (##type _%obj93791%_))) + (if (##fx= (##fxand _%t93793%_ '1) '0) + (fxand (##type-cast _%obj93791%_ (macro-type-fixnum)) (macro-max-fixnum32)) - (if (symbolic? _%obj93728%_) - (symbolic-hash _%obj93728%_) - (if (procedure? _%obj93728%_) - (procedure-hash _%obj93728%_) - (fxand (__eq-hash _%obj93728%_) + (if (symbolic? _%obj93791%_) + (symbolic-hash _%obj93791%_) + (if (procedure? _%obj93791%_) + (procedure-hash _%obj93791%_) + (fxand (__eq-hash _%obj93791%_) (macro-max-fixnum32)))))))) (define procedure-hash - (lambda (_%obj93724%_) - (let ((_%h93726%_ - (if (##closure? _%obj93724%_) - (__eq-hash _%obj93724%_) - (##type-cast _%obj93724%_ '0)))) - (fxand _%h93726%_ (macro-max-fixnum32))))) + (lambda (_%obj93787%_) + (let ((_%h93789%_ + (if (##closure? _%obj93787%_) + (__eq-hash _%obj93787%_) + (##type-cast _%obj93787%_ '0)))) + (fxand _%h93789%_ (macro-max-fixnum32))))) (define __eq-hash - (lambda (_%obj93721%_) + (lambda (_%obj93784%_) (declare (not interrupts-enabled)) - (__object->eq-hash _%obj93721%_))) + (__object->eq-hash _%obj93784%_))) (define eqv-hash - (lambda (_%obj93711%_) - (letrec ((_%combine93713%_ - (lambda (_%a93718%_ _%b93719%_) - (fxand (##fx* (##fx+ _%a93718%_ + (lambda (_%obj93774%_) + (letrec ((_%combine93776%_ + (lambda (_%a93781%_ _%b93782%_) + (fxand (##fx* (##fx+ _%a93781%_ (fxarithmetic-shift-left - _%b93719%_ + _%b93782%_ '1)) '331804471) (macro-max-fixnum32)))) - (_%hash93714%_ - (lambda (_%obj93716%_) + (_%hash93777%_ + (lambda (_%obj93779%_) (macro-number-dispatch - _%obj93716%_ - (eq-hash _%obj93716%_) - (fxand _%obj93716%_ (macro-max-fixnum32)) - (modulo _%obj93716%_ '331804481) - (_%combine93713%_ - (_%hash93714%_ (macro-ratnum-numerator _%obj93716%_)) - (_%hash93714%_ (macro-ratnum-denominator _%obj93716%_))) - (_%combine93713%_ - (##u16vector-ref _%obj93716%_ '0) - (_%combine93713%_ - (##u16vector-ref _%obj93716%_ '1) - (_%combine93713%_ - (##u16vector-ref _%obj93716%_ '2) - (##u16vector-ref _%obj93716%_ '3)))) - (_%combine93713%_ - (_%hash93714%_ (macro-cpxnum-real _%obj93716%_)) - (_%hash93714%_ (macro-cpxnum-imag _%obj93716%_))))))) - (_%hash93714%_ _%obj93711%_)))) + _%obj93779%_ + (eq-hash _%obj93779%_) + (fxand _%obj93779%_ (macro-max-fixnum32)) + (modulo _%obj93779%_ '331804481) + (_%combine93776%_ + (_%hash93777%_ (macro-ratnum-numerator _%obj93779%_)) + (_%hash93777%_ (macro-ratnum-denominator _%obj93779%_))) + (_%combine93776%_ + (##u16vector-ref _%obj93779%_ '0) + (_%combine93776%_ + (##u16vector-ref _%obj93779%_ '1) + (_%combine93776%_ + (##u16vector-ref _%obj93779%_ '2) + (##u16vector-ref _%obj93779%_ '3)))) + (_%combine93776%_ + (_%hash93777%_ (macro-cpxnum-real _%obj93779%_)) + (_%hash93777%_ (macro-cpxnum-imag _%obj93779%_))))))) + (_%hash93777%_ _%obj93774%_)))) (define symbolic? - (lambda (_%obj93706%_) - (let ((_%$e93708%_ (symbol? _%obj93706%_))) - (if _%$e93708%_ _%$e93708%_ (keyword? _%obj93706%_))))) - (define symbolic-hash (lambda (_%obj93704%_) (macro-slot '1 _%obj93704%_))) - (define string-hash (lambda (_%obj93702%_) (##string=?-hash _%obj93702%_))) + (lambda (_%obj93769%_) + (let ((_%$e93771%_ (symbol? _%obj93769%_))) + (if _%$e93771%_ _%$e93771%_ (keyword? _%obj93769%_))))) + (define symbolic-hash (lambda (_%obj93767%_) (macro-slot '1 _%obj93767%_))) + (define string-hash (lambda (_%obj93765%_) (##string=?-hash _%obj93765%_))) (define immediate-hash - (lambda (_%obj93700%_) (##type-cast _%obj93700%_ (macro-type-fixnum)))) + (lambda (_%obj93763%_) (##type-cast _%obj93763%_ (macro-type-fixnum)))) (define make-eq-table__% - (lambda (_%size-hint93681%_ _%seed93683%_) - (make-raw-table__% _%size-hint93681%_ eq-hash eq? _%seed93683%_))) + (lambda (_%size-hint93744%_ _%seed93746%_) + (make-raw-table__% _%size-hint93744%_ eq-hash eq? _%seed93746%_))) (define make-eq-table__0 (lambda () - (let* ((_%size-hint93689%_ '#f) (_%seed93691%_ '0)) - (make-eq-table__% _%size-hint93689%_ _%seed93691%_)))) + (let* ((_%size-hint93752%_ '#f) (_%seed93754%_ '0)) + (make-eq-table__% _%size-hint93752%_ _%seed93754%_)))) (define make-eq-table__1 - (lambda (_%size-hint93693%_) - (let ((_%seed93695%_ '0)) - (make-eq-table__% _%size-hint93693%_ _%seed93695%_)))) + (lambda (_%size-hint93756%_) + (let ((_%seed93758%_ '0)) + (make-eq-table__% _%size-hint93756%_ _%seed93758%_)))) (define make-eq-table - (lambda _g94037_ - (let ((_g94036_ (##length _g94037_))) - (cond ((##fx= _g94036_ 0) (apply make-eq-table__0 _g94037_)) - ((##fx= _g94036_ 1) (apply make-eq-table__1 _g94037_)) - ((##fx= _g94036_ 2) (apply make-eq-table__% _g94037_)) + (lambda _g94100_ + (let ((_g94099_ (##length _g94100_))) + (cond ((##fx= _g94099_ 0) (apply make-eq-table__0 _g94100_)) + ((##fx= _g94099_ 1) (apply make-eq-table__1 _g94100_)) + ((##fx= _g94099_ 2) (apply make-eq-table__% _g94100_)) (else (##raise-wrong-number-of-arguments-exception make-eq-table - _g94037_)))))) + _g94100_)))))) (define eq-table-ref - (lambda (_%tab93634%_ _%key93635%_ _%default93636%_) - (let ((_%table93638%_ (&raw-table-table _%tab93634%_)) - (_%seed93639%_ (&raw-table-seed _%tab93634%_))) - (let* ((_%h93641%_ (fxxor (eq-hash _%key93635%_) _%seed93639%_)) - (_%size93644%_ (vector-length _%table93638%_)) - (_%entries93647%_ (##fxquotient _%size93644%_ '2)) - (_%start93650%_ + (lambda (_%tab93697%_ _%key93698%_ _%default93699%_) + (let ((_%table93701%_ (&raw-table-table _%tab93697%_)) + (_%seed93702%_ (&raw-table-seed _%tab93697%_))) + (let* ((_%h93704%_ (fxxor (eq-hash _%key93698%_) _%seed93702%_)) + (_%size93707%_ (vector-length _%table93701%_)) + (_%entries93710%_ (##fxquotient _%size93707%_ '2)) + (_%start93713%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93641%_ _%entries93647%_) + (##fxmodulo _%h93704%_ _%entries93710%_) '1))) - (let _%loop93654%_ ((_%probe93657%_ _%start93650%_) - (_%i93659%_ '1) - (_%deleted93661%_ '#f)) - (let ((_%k93664%_ (vector-ref _%table93638%_ _%probe93657%_))) - (if (eq? _%k93664%_ (macro-unused-obj)) - _%default93636%_ - (if (eq? _%k93664%_ (macro-deleted-obj)) - (_%loop93654%_ - (let ((_%next-probe93669%_ - (fx+ _%start93650%_ - _%i93659%_ - (fx* _%i93659%_ _%i93659%_)))) - (##fxmodulo _%next-probe93669%_ _%size93644%_)) - (##fx+ _%i93659%_ '1) - (let ((_%$e93672%_ _%deleted93661%_)) - (if _%$e93672%_ _%$e93672%_ _%probe93657%_))) - (if (eq? _%key93635%_ _%k93664%_) + (let _%loop93717%_ ((_%probe93720%_ _%start93713%_) + (_%i93722%_ '1) + (_%deleted93724%_ '#f)) + (let ((_%k93727%_ (vector-ref _%table93701%_ _%probe93720%_))) + (if (eq? _%k93727%_ (macro-unused-obj)) + _%default93699%_ + (if (eq? _%k93727%_ (macro-deleted-obj)) + (_%loop93717%_ + (let ((_%next-probe93732%_ + (fx+ _%start93713%_ + _%i93722%_ + (fx* _%i93722%_ _%i93722%_)))) + (##fxmodulo _%next-probe93732%_ _%size93707%_)) + (##fx+ _%i93722%_ '1) + (let ((_%$e93735%_ _%deleted93724%_)) + (if _%$e93735%_ _%$e93735%_ _%probe93720%_))) + (if (eq? _%key93698%_ _%k93727%_) (vector-ref - _%table93638%_ - (##fx+ _%probe93657%_ '1)) - (_%loop93654%_ - (let ((_%next-probe93677%_ - (fx+ _%start93650%_ - _%i93659%_ - (fx* _%i93659%_ _%i93659%_)))) - (##fxmodulo _%next-probe93677%_ _%size93644%_)) - (##fx+ _%i93659%_ '1) - _%deleted93661%_)))))))))) + _%table93701%_ + (##fx+ _%probe93720%_ '1)) + (_%loop93717%_ + (let ((_%next-probe93740%_ + (fx+ _%start93713%_ + _%i93722%_ + (fx* _%i93722%_ _%i93722%_)))) + (##fxmodulo _%next-probe93740%_ _%size93707%_)) + (##fx+ _%i93722%_ '1) + _%deleted93724%_)))))))))) (define eq-table-set! - (lambda (_%tab93630%_ _%key93631%_ _%value93632%_) - (if (##fx< (&raw-table-free _%tab93630%_) + (lambda (_%tab93693%_ _%key93694%_ _%value93695%_) + (if (##fx< (&raw-table-free _%tab93693%_) (##fxquotient - (vector-length (&raw-table-table _%tab93630%_)) + (vector-length (&raw-table-table _%tab93693%_)) '4)) - (__raw-table-rehash! _%tab93630%_) + (__raw-table-rehash! _%tab93693%_) '#!void) - (__eq-table-set! _%tab93630%_ _%key93631%_ _%value93632%_))) + (__eq-table-set! _%tab93693%_ _%key93694%_ _%value93695%_))) (define __eq-table-set! - (lambda (_%tab93581%_ _%key93582%_ _%value93583%_) - (let ((_%table93586%_ (&raw-table-table _%tab93581%_)) - (_%seed93587%_ (&raw-table-seed _%tab93581%_))) - (let* ((_%h93589%_ (fxxor (eq-hash _%key93582%_) _%seed93587%_)) - (_%size93592%_ (vector-length _%table93586%_)) - (_%entries93595%_ (##fxquotient _%size93592%_ '2)) - (_%start93598%_ + (lambda (_%tab93644%_ _%key93645%_ _%value93646%_) + (let ((_%table93649%_ (&raw-table-table _%tab93644%_)) + (_%seed93650%_ (&raw-table-seed _%tab93644%_))) + (let* ((_%h93652%_ (fxxor (eq-hash _%key93645%_) _%seed93650%_)) + (_%size93655%_ (vector-length _%table93649%_)) + (_%entries93658%_ (##fxquotient _%size93655%_ '2)) + (_%start93661%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93589%_ _%entries93595%_) + (##fxmodulo _%h93652%_ _%entries93658%_) '1))) - (let _%loop93602%_ ((_%probe93605%_ _%start93598%_) - (_%i93607%_ '1) - (_%deleted93609%_ '#f)) - (let ((_%k93612%_ (vector-ref _%table93586%_ _%probe93605%_))) - (if (eq? _%k93612%_ (macro-unused-obj)) - (if _%deleted93609%_ + (let _%loop93665%_ ((_%probe93668%_ _%start93661%_) + (_%i93670%_ '1) + (_%deleted93672%_ '#f)) + (let ((_%k93675%_ (vector-ref _%table93649%_ _%probe93668%_))) + (if (eq? _%k93675%_ (macro-unused-obj)) + (if _%deleted93672%_ (begin (vector-set! - _%table93586%_ - _%deleted93609%_ - _%key93582%_) + _%table93649%_ + _%deleted93672%_ + _%key93645%_) (vector-set! - _%table93586%_ - (##fx+ _%deleted93609%_ '1) - _%value93583%_) + _%table93649%_ + (##fx+ _%deleted93672%_ '1) + _%value93646%_) ((lambda () (&raw-table-count-set! - _%tab93581%_ - (##fx+ (&raw-table-count _%tab93581%_) '1))))) + _%tab93644%_ + (##fx+ (&raw-table-count _%tab93644%_) '1))))) (begin (vector-set! - _%table93586%_ - _%probe93605%_ - _%key93582%_) + _%table93649%_ + _%probe93668%_ + _%key93645%_) (vector-set! - _%table93586%_ - (##fx+ _%probe93605%_ '1) - _%value93583%_) + _%table93649%_ + (##fx+ _%probe93668%_ '1) + _%value93646%_) ((lambda () (&raw-table-free-set! - _%tab93581%_ - (##fx- (&raw-table-free _%tab93581%_) '1)) + _%tab93644%_ + (##fx- (&raw-table-free _%tab93644%_) '1)) (&raw-table-count-set! - _%tab93581%_ - (##fx+ (&raw-table-count _%tab93581%_) '1)))))) - (if (eq? _%k93612%_ (macro-deleted-obj)) - (_%loop93602%_ - (let ((_%next-probe93619%_ - (fx+ _%start93598%_ - _%i93607%_ - (fx* _%i93607%_ _%i93607%_)))) - (##fxmodulo _%next-probe93619%_ _%size93592%_)) - (##fx+ _%i93607%_ '1) - (let ((_%$e93622%_ _%deleted93609%_)) - (if _%$e93622%_ _%$e93622%_ _%probe93605%_))) - (if (eq? _%key93582%_ _%k93612%_) + _%tab93644%_ + (##fx+ (&raw-table-count _%tab93644%_) '1)))))) + (if (eq? _%k93675%_ (macro-deleted-obj)) + (_%loop93665%_ + (let ((_%next-probe93682%_ + (fx+ _%start93661%_ + _%i93670%_ + (fx* _%i93670%_ _%i93670%_)))) + (##fxmodulo _%next-probe93682%_ _%size93655%_)) + (##fx+ _%i93670%_ '1) + (let ((_%$e93685%_ _%deleted93672%_)) + (if _%$e93685%_ _%$e93685%_ _%probe93668%_))) + (if (eq? _%key93645%_ _%k93675%_) (let () (vector-set! - _%table93586%_ - _%probe93605%_ - _%key93582%_) + _%table93649%_ + _%probe93668%_ + _%key93645%_) (vector-set! - _%table93586%_ - (##fx+ _%probe93605%_ '1) - _%value93583%_)) - (_%loop93602%_ - (let ((_%next-probe93627%_ - (fx+ _%start93598%_ - _%i93607%_ - (fx* _%i93607%_ _%i93607%_)))) - (##fxmodulo _%next-probe93627%_ _%size93592%_)) - (##fx+ _%i93607%_ '1) - _%deleted93609%_)))))))))) + _%table93649%_ + (##fx+ _%probe93668%_ '1) + _%value93646%_)) + (_%loop93665%_ + (let ((_%next-probe93690%_ + (fx+ _%start93661%_ + _%i93670%_ + (fx* _%i93670%_ _%i93670%_)))) + (##fxmodulo _%next-probe93690%_ _%size93655%_)) + (##fx+ _%i93670%_ '1) + _%deleted93672%_)))))))))) (define eq-table-update! - (lambda (_%tab93576%_ - _%key93577%_ - _%eq-table-update!93578%_ - _%default93579%_) - (if (##fx< (&raw-table-free _%tab93576%_) + (lambda (_%tab93639%_ + _%key93640%_ + _%eq-table-update!93641%_ + _%default93642%_) + (if (##fx< (&raw-table-free _%tab93639%_) (##fxquotient - (vector-length (&raw-table-table _%tab93576%_)) + (vector-length (&raw-table-table _%tab93639%_)) '4)) - (__raw-table-rehash! _%tab93576%_) + (__raw-table-rehash! _%tab93639%_) '#!void) (__eq-table-update! - _%tab93576%_ - _%key93577%_ - _%eq-table-update!93578%_ - _%default93579%_))) + _%tab93639%_ + _%key93640%_ + _%eq-table-update!93641%_ + _%default93642%_))) (define __eq-table-update! - (lambda (_%tab93526%_ - _%key93527%_ - _%eq-table-update!93528%_ - _%default93529%_) - (let ((_%table93532%_ (&raw-table-table _%tab93526%_)) - (_%seed93533%_ (&raw-table-seed _%tab93526%_))) - (let* ((_%h93535%_ (fxxor (eq-hash _%key93527%_) _%seed93533%_)) - (_%size93538%_ (vector-length _%table93532%_)) - (_%entries93541%_ (##fxquotient _%size93538%_ '2)) - (_%start93544%_ + (lambda (_%tab93589%_ + _%key93590%_ + _%eq-table-update!93591%_ + _%default93592%_) + (let ((_%table93595%_ (&raw-table-table _%tab93589%_)) + (_%seed93596%_ (&raw-table-seed _%tab93589%_))) + (let* ((_%h93598%_ (fxxor (eq-hash _%key93590%_) _%seed93596%_)) + (_%size93601%_ (vector-length _%table93595%_)) + (_%entries93604%_ (##fxquotient _%size93601%_ '2)) + (_%start93607%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93535%_ _%entries93541%_) + (##fxmodulo _%h93598%_ _%entries93604%_) '1))) - (let _%loop93548%_ ((_%probe93551%_ _%start93544%_) - (_%i93553%_ '1) - (_%deleted93555%_ '#f)) - (let ((_%k93558%_ (vector-ref _%table93532%_ _%probe93551%_))) - (if (eq? _%k93558%_ (macro-unused-obj)) - (if _%deleted93555%_ + (let _%loop93611%_ ((_%probe93614%_ _%start93607%_) + (_%i93616%_ '1) + (_%deleted93618%_ '#f)) + (let ((_%k93621%_ (vector-ref _%table93595%_ _%probe93614%_))) + (if (eq? _%k93621%_ (macro-unused-obj)) + (if _%deleted93618%_ (begin (vector-set! - _%table93532%_ - _%deleted93555%_ - _%key93527%_) + _%table93595%_ + _%deleted93618%_ + _%key93590%_) (vector-set! - _%table93532%_ - (##fx+ _%deleted93555%_ '1) - (_%eq-table-update!93528%_ _%default93529%_)) + _%table93595%_ + (##fx+ _%deleted93618%_ '1) + (_%eq-table-update!93591%_ _%default93592%_)) ((lambda () (&raw-table-count-set! - _%tab93526%_ - (##fx+ (&raw-table-count _%tab93526%_) '1))))) + _%tab93589%_ + (##fx+ (&raw-table-count _%tab93589%_) '1))))) (begin (vector-set! - _%table93532%_ - _%probe93551%_ - _%key93527%_) + _%table93595%_ + _%probe93614%_ + _%key93590%_) (vector-set! - _%table93532%_ - (##fx+ _%probe93551%_ '1) - (_%eq-table-update!93528%_ _%default93529%_)) + _%table93595%_ + (##fx+ _%probe93614%_ '1) + (_%eq-table-update!93591%_ _%default93592%_)) ((lambda () (&raw-table-free-set! - _%tab93526%_ - (##fx- (&raw-table-free _%tab93526%_) '1)) + _%tab93589%_ + (##fx- (&raw-table-free _%tab93589%_) '1)) (&raw-table-count-set! - _%tab93526%_ - (##fx+ (&raw-table-count _%tab93526%_) '1)))))) - (if (eq? _%k93558%_ (macro-deleted-obj)) - (_%loop93548%_ - (let ((_%next-probe93565%_ - (fx+ _%start93544%_ - _%i93553%_ - (fx* _%i93553%_ _%i93553%_)))) - (##fxmodulo _%next-probe93565%_ _%size93538%_)) - (##fx+ _%i93553%_ '1) - (let ((_%$e93568%_ _%deleted93555%_)) - (if _%$e93568%_ _%$e93568%_ _%probe93551%_))) - (if (eq? _%key93527%_ _%k93558%_) + _%tab93589%_ + (##fx+ (&raw-table-count _%tab93589%_) '1)))))) + (if (eq? _%k93621%_ (macro-deleted-obj)) + (_%loop93611%_ + (let ((_%next-probe93628%_ + (fx+ _%start93607%_ + _%i93616%_ + (fx* _%i93616%_ _%i93616%_)))) + (##fxmodulo _%next-probe93628%_ _%size93601%_)) + (##fx+ _%i93616%_ '1) + (let ((_%$e93631%_ _%deleted93618%_)) + (if _%$e93631%_ _%$e93631%_ _%probe93614%_))) + (if (eq? _%key93590%_ _%k93621%_) (let () (vector-set! - _%table93532%_ - _%probe93551%_ - _%key93527%_) + _%table93595%_ + _%probe93614%_ + _%key93590%_) (vector-set! - _%table93532%_ - (##fx+ _%probe93551%_ '1) - (_%eq-table-update!93528%_ + _%table93595%_ + (##fx+ _%probe93614%_ '1) + (_%eq-table-update!93591%_ (vector-ref - _%table93532%_ - (##fx+ _%probe93551%_ '1))))) - (_%loop93548%_ - (let ((_%next-probe93573%_ - (fx+ _%start93544%_ - _%i93553%_ - (fx* _%i93553%_ _%i93553%_)))) - (##fxmodulo _%next-probe93573%_ _%size93538%_)) - (##fx+ _%i93553%_ '1) - _%deleted93555%_)))))))))) + _%table93595%_ + (##fx+ _%probe93614%_ '1))))) + (_%loop93611%_ + (let ((_%next-probe93636%_ + (fx+ _%start93607%_ + _%i93616%_ + (fx* _%i93616%_ _%i93616%_)))) + (##fxmodulo _%next-probe93636%_ _%size93601%_)) + (##fx+ _%i93616%_ '1) + _%deleted93618%_)))))))))) (define eq-table-delete! - (lambda (_%tab93481%_ _%key93483%_) - (let ((_%table93486%_ (&raw-table-table _%tab93481%_)) - (_%seed93488%_ (&raw-table-seed _%tab93481%_))) - (let* ((_%h93491%_ (fxxor (eq-hash _%key93483%_) _%seed93488%_)) - (_%size93494%_ (vector-length _%table93486%_)) - (_%entries93497%_ (##fxquotient _%size93494%_ '2)) - (_%start93500%_ + (lambda (_%tab93544%_ _%key93546%_) + (let ((_%table93549%_ (&raw-table-table _%tab93544%_)) + (_%seed93551%_ (&raw-table-seed _%tab93544%_))) + (let* ((_%h93554%_ (fxxor (eq-hash _%key93546%_) _%seed93551%_)) + (_%size93557%_ (vector-length _%table93549%_)) + (_%entries93560%_ (##fxquotient _%size93557%_ '2)) + (_%start93563%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93491%_ _%entries93497%_) + (##fxmodulo _%h93554%_ _%entries93560%_) '1))) - (let _%loop93504%_ ((_%probe93507%_ _%start93500%_) - (_%i93509%_ '1)) - (let ((_%k93512%_ (vector-ref _%table93486%_ _%probe93507%_))) - (if (eq? _%k93512%_ (macro-unused-obj)) + (let _%loop93567%_ ((_%probe93570%_ _%start93563%_) + (_%i93572%_ '1)) + (let ((_%k93575%_ (vector-ref _%table93549%_ _%probe93570%_))) + (if (eq? _%k93575%_ (macro-unused-obj)) '#!void - (if (eq? _%k93512%_ (macro-deleted-obj)) - (_%loop93504%_ - (let ((_%next-probe93517%_ - (fx+ _%start93500%_ - _%i93509%_ - (fx* _%i93509%_ _%i93509%_)))) - (##fxmodulo _%next-probe93517%_ _%size93494%_)) - (##fx+ _%i93509%_ '1)) - (if (eq? _%key93483%_ _%k93512%_) + (if (eq? _%k93575%_ (macro-deleted-obj)) + (_%loop93567%_ + (let ((_%next-probe93580%_ + (fx+ _%start93563%_ + _%i93572%_ + (fx* _%i93572%_ _%i93572%_)))) + (##fxmodulo _%next-probe93580%_ _%size93557%_)) + (##fx+ _%i93572%_ '1)) + (if (eq? _%key93546%_ _%k93575%_) (let () (vector-set! - _%table93486%_ - _%probe93507%_ + _%table93549%_ + _%probe93570%_ (macro-deleted-obj)) (vector-set! - _%table93486%_ - (##fx+ _%probe93507%_ '1) + _%table93549%_ + (##fx+ _%probe93570%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93481%_ - (##fx- (&raw-table-count _%tab93481%_) + _%tab93544%_ + (##fx- (&raw-table-count _%tab93544%_) '1))))) - (_%loop93504%_ - (let ((_%next-probe93523%_ - (fx+ _%start93500%_ - _%i93509%_ - (fx* _%i93509%_ _%i93509%_)))) - (##fxmodulo _%next-probe93523%_ _%size93494%_)) - (##fx+ _%i93509%_ '1))))))))))) + (_%loop93567%_ + (let ((_%next-probe93586%_ + (fx+ _%start93563%_ + _%i93572%_ + (fx* _%i93572%_ _%i93572%_)))) + (##fxmodulo _%next-probe93586%_ _%size93557%_)) + (##fx+ _%i93572%_ '1))))))))))) (define make-eqv-table__% - (lambda (_%size-hint93462%_ _%seed93464%_) - (make-raw-table__% _%size-hint93462%_ eqv-hash eqv? _%seed93464%_))) + (lambda (_%size-hint93525%_ _%seed93527%_) + (make-raw-table__% _%size-hint93525%_ eqv-hash eqv? _%seed93527%_))) (define make-eqv-table__0 (lambda () - (let* ((_%size-hint93470%_ '#f) (_%seed93472%_ '0)) - (make-eqv-table__% _%size-hint93470%_ _%seed93472%_)))) + (let* ((_%size-hint93533%_ '#f) (_%seed93535%_ '0)) + (make-eqv-table__% _%size-hint93533%_ _%seed93535%_)))) (define make-eqv-table__1 - (lambda (_%size-hint93474%_) - (let ((_%seed93476%_ '0)) - (make-eqv-table__% _%size-hint93474%_ _%seed93476%_)))) + (lambda (_%size-hint93537%_) + (let ((_%seed93539%_ '0)) + (make-eqv-table__% _%size-hint93537%_ _%seed93539%_)))) (define make-eqv-table - (lambda _g94039_ - (let ((_g94038_ (##length _g94039_))) - (cond ((##fx= _g94038_ 0) (apply make-eqv-table__0 _g94039_)) - ((##fx= _g94038_ 1) (apply make-eqv-table__1 _g94039_)) - ((##fx= _g94038_ 2) (apply make-eqv-table__% _g94039_)) + (lambda _g94102_ + (let ((_g94101_ (##length _g94102_))) + (cond ((##fx= _g94101_ 0) (apply make-eqv-table__0 _g94102_)) + ((##fx= _g94101_ 1) (apply make-eqv-table__1 _g94102_)) + ((##fx= _g94101_ 2) (apply make-eqv-table__% _g94102_)) (else (##raise-wrong-number-of-arguments-exception make-eqv-table - _g94039_)))))) + _g94102_)))))) (define eqv-table-ref - (lambda (_%tab93415%_ _%key93416%_ _%default93417%_) - (let ((_%table93419%_ (&raw-table-table _%tab93415%_)) - (_%seed93420%_ (&raw-table-seed _%tab93415%_))) - (let* ((_%h93422%_ (fxxor (eqv-hash _%key93416%_) _%seed93420%_)) - (_%size93425%_ (vector-length _%table93419%_)) - (_%entries93428%_ (##fxquotient _%size93425%_ '2)) - (_%start93431%_ + (lambda (_%tab93478%_ _%key93479%_ _%default93480%_) + (let ((_%table93482%_ (&raw-table-table _%tab93478%_)) + (_%seed93483%_ (&raw-table-seed _%tab93478%_))) + (let* ((_%h93485%_ (fxxor (eqv-hash _%key93479%_) _%seed93483%_)) + (_%size93488%_ (vector-length _%table93482%_)) + (_%entries93491%_ (##fxquotient _%size93488%_ '2)) + (_%start93494%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93422%_ _%entries93428%_) + (##fxmodulo _%h93485%_ _%entries93491%_) '1))) - (let _%loop93435%_ ((_%probe93438%_ _%start93431%_) - (_%i93440%_ '1) - (_%deleted93442%_ '#f)) - (let ((_%k93445%_ (vector-ref _%table93419%_ _%probe93438%_))) - (if (eq? _%k93445%_ (macro-unused-obj)) - _%default93417%_ - (if (eq? _%k93445%_ (macro-deleted-obj)) - (_%loop93435%_ - (let ((_%next-probe93450%_ - (fx+ _%start93431%_ - _%i93440%_ - (fx* _%i93440%_ _%i93440%_)))) - (##fxmodulo _%next-probe93450%_ _%size93425%_)) - (##fx+ _%i93440%_ '1) - (let ((_%$e93453%_ _%deleted93442%_)) - (if _%$e93453%_ _%$e93453%_ _%probe93438%_))) - (if (eqv? _%key93416%_ _%k93445%_) + (let _%loop93498%_ ((_%probe93501%_ _%start93494%_) + (_%i93503%_ '1) + (_%deleted93505%_ '#f)) + (let ((_%k93508%_ (vector-ref _%table93482%_ _%probe93501%_))) + (if (eq? _%k93508%_ (macro-unused-obj)) + _%default93480%_ + (if (eq? _%k93508%_ (macro-deleted-obj)) + (_%loop93498%_ + (let ((_%next-probe93513%_ + (fx+ _%start93494%_ + _%i93503%_ + (fx* _%i93503%_ _%i93503%_)))) + (##fxmodulo _%next-probe93513%_ _%size93488%_)) + (##fx+ _%i93503%_ '1) + (let ((_%$e93516%_ _%deleted93505%_)) + (if _%$e93516%_ _%$e93516%_ _%probe93501%_))) + (if (eqv? _%key93479%_ _%k93508%_) (vector-ref - _%table93419%_ - (##fx+ _%probe93438%_ '1)) - (_%loop93435%_ - (let ((_%next-probe93458%_ - (fx+ _%start93431%_ - _%i93440%_ - (fx* _%i93440%_ _%i93440%_)))) - (##fxmodulo _%next-probe93458%_ _%size93425%_)) - (##fx+ _%i93440%_ '1) - _%deleted93442%_)))))))))) + _%table93482%_ + (##fx+ _%probe93501%_ '1)) + (_%loop93498%_ + (let ((_%next-probe93521%_ + (fx+ _%start93494%_ + _%i93503%_ + (fx* _%i93503%_ _%i93503%_)))) + (##fxmodulo _%next-probe93521%_ _%size93488%_)) + (##fx+ _%i93503%_ '1) + _%deleted93505%_)))))))))) (define eqv-table-set! - (lambda (_%tab93411%_ _%key93412%_ _%value93413%_) - (if (##fx< (&raw-table-free _%tab93411%_) + (lambda (_%tab93474%_ _%key93475%_ _%value93476%_) + (if (##fx< (&raw-table-free _%tab93474%_) (##fxquotient - (vector-length (&raw-table-table _%tab93411%_)) + (vector-length (&raw-table-table _%tab93474%_)) '4)) - (__raw-table-rehash! _%tab93411%_) + (__raw-table-rehash! _%tab93474%_) '#!void) - (__eqv-table-set! _%tab93411%_ _%key93412%_ _%value93413%_))) + (__eqv-table-set! _%tab93474%_ _%key93475%_ _%value93476%_))) (define __eqv-table-set! - (lambda (_%tab93362%_ _%key93363%_ _%value93364%_) - (let ((_%table93367%_ (&raw-table-table _%tab93362%_)) - (_%seed93368%_ (&raw-table-seed _%tab93362%_))) - (let* ((_%h93370%_ (fxxor (eqv-hash _%key93363%_) _%seed93368%_)) - (_%size93373%_ (vector-length _%table93367%_)) - (_%entries93376%_ (##fxquotient _%size93373%_ '2)) - (_%start93379%_ + (lambda (_%tab93425%_ _%key93426%_ _%value93427%_) + (let ((_%table93430%_ (&raw-table-table _%tab93425%_)) + (_%seed93431%_ (&raw-table-seed _%tab93425%_))) + (let* ((_%h93433%_ (fxxor (eqv-hash _%key93426%_) _%seed93431%_)) + (_%size93436%_ (vector-length _%table93430%_)) + (_%entries93439%_ (##fxquotient _%size93436%_ '2)) + (_%start93442%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93370%_ _%entries93376%_) + (##fxmodulo _%h93433%_ _%entries93439%_) '1))) - (let _%loop93383%_ ((_%probe93386%_ _%start93379%_) - (_%i93388%_ '1) - (_%deleted93390%_ '#f)) - (let ((_%k93393%_ (vector-ref _%table93367%_ _%probe93386%_))) - (if (eq? _%k93393%_ (macro-unused-obj)) - (if _%deleted93390%_ + (let _%loop93446%_ ((_%probe93449%_ _%start93442%_) + (_%i93451%_ '1) + (_%deleted93453%_ '#f)) + (let ((_%k93456%_ (vector-ref _%table93430%_ _%probe93449%_))) + (if (eq? _%k93456%_ (macro-unused-obj)) + (if _%deleted93453%_ (begin (vector-set! - _%table93367%_ - _%deleted93390%_ - _%key93363%_) + _%table93430%_ + _%deleted93453%_ + _%key93426%_) (vector-set! - _%table93367%_ - (##fx+ _%deleted93390%_ '1) - _%value93364%_) + _%table93430%_ + (##fx+ _%deleted93453%_ '1) + _%value93427%_) ((lambda () (&raw-table-count-set! - _%tab93362%_ - (##fx+ (&raw-table-count _%tab93362%_) '1))))) + _%tab93425%_ + (##fx+ (&raw-table-count _%tab93425%_) '1))))) (begin (vector-set! - _%table93367%_ - _%probe93386%_ - _%key93363%_) + _%table93430%_ + _%probe93449%_ + _%key93426%_) (vector-set! - _%table93367%_ - (##fx+ _%probe93386%_ '1) - _%value93364%_) + _%table93430%_ + (##fx+ _%probe93449%_ '1) + _%value93427%_) ((lambda () (&raw-table-free-set! - _%tab93362%_ - (##fx- (&raw-table-free _%tab93362%_) '1)) + _%tab93425%_ + (##fx- (&raw-table-free _%tab93425%_) '1)) (&raw-table-count-set! - _%tab93362%_ - (##fx+ (&raw-table-count _%tab93362%_) '1)))))) - (if (eq? _%k93393%_ (macro-deleted-obj)) - (_%loop93383%_ - (let ((_%next-probe93400%_ - (fx+ _%start93379%_ - _%i93388%_ - (fx* _%i93388%_ _%i93388%_)))) - (##fxmodulo _%next-probe93400%_ _%size93373%_)) - (##fx+ _%i93388%_ '1) - (let ((_%$e93403%_ _%deleted93390%_)) - (if _%$e93403%_ _%$e93403%_ _%probe93386%_))) - (if (eqv? _%key93363%_ _%k93393%_) + _%tab93425%_ + (##fx+ (&raw-table-count _%tab93425%_) '1)))))) + (if (eq? _%k93456%_ (macro-deleted-obj)) + (_%loop93446%_ + (let ((_%next-probe93463%_ + (fx+ _%start93442%_ + _%i93451%_ + (fx* _%i93451%_ _%i93451%_)))) + (##fxmodulo _%next-probe93463%_ _%size93436%_)) + (##fx+ _%i93451%_ '1) + (let ((_%$e93466%_ _%deleted93453%_)) + (if _%$e93466%_ _%$e93466%_ _%probe93449%_))) + (if (eqv? _%key93426%_ _%k93456%_) (let () (vector-set! - _%table93367%_ - _%probe93386%_ - _%key93363%_) + _%table93430%_ + _%probe93449%_ + _%key93426%_) (vector-set! - _%table93367%_ - (##fx+ _%probe93386%_ '1) - _%value93364%_)) - (_%loop93383%_ - (let ((_%next-probe93408%_ - (fx+ _%start93379%_ - _%i93388%_ - (fx* _%i93388%_ _%i93388%_)))) - (##fxmodulo _%next-probe93408%_ _%size93373%_)) - (##fx+ _%i93388%_ '1) - _%deleted93390%_)))))))))) + _%table93430%_ + (##fx+ _%probe93449%_ '1) + _%value93427%_)) + (_%loop93446%_ + (let ((_%next-probe93471%_ + (fx+ _%start93442%_ + _%i93451%_ + (fx* _%i93451%_ _%i93451%_)))) + (##fxmodulo _%next-probe93471%_ _%size93436%_)) + (##fx+ _%i93451%_ '1) + _%deleted93453%_)))))))))) (define eqv-table-update! - (lambda (_%tab93357%_ - _%key93358%_ - _%eqv-table-update!93359%_ - _%default93360%_) - (if (##fx< (&raw-table-free _%tab93357%_) + (lambda (_%tab93420%_ + _%key93421%_ + _%eqv-table-update!93422%_ + _%default93423%_) + (if (##fx< (&raw-table-free _%tab93420%_) (##fxquotient - (vector-length (&raw-table-table _%tab93357%_)) + (vector-length (&raw-table-table _%tab93420%_)) '4)) - (__raw-table-rehash! _%tab93357%_) + (__raw-table-rehash! _%tab93420%_) '#!void) (__eqv-table-update! - _%tab93357%_ - _%key93358%_ - _%eqv-table-update!93359%_ - _%default93360%_))) + _%tab93420%_ + _%key93421%_ + _%eqv-table-update!93422%_ + _%default93423%_))) (define __eqv-table-update! - (lambda (_%tab93307%_ - _%key93308%_ - _%eqv-table-update!93309%_ - _%default93310%_) - (let ((_%table93313%_ (&raw-table-table _%tab93307%_)) - (_%seed93314%_ (&raw-table-seed _%tab93307%_))) - (let* ((_%h93316%_ (fxxor (eqv-hash _%key93308%_) _%seed93314%_)) - (_%size93319%_ (vector-length _%table93313%_)) - (_%entries93322%_ (##fxquotient _%size93319%_ '2)) - (_%start93325%_ + (lambda (_%tab93370%_ + _%key93371%_ + _%eqv-table-update!93372%_ + _%default93373%_) + (let ((_%table93376%_ (&raw-table-table _%tab93370%_)) + (_%seed93377%_ (&raw-table-seed _%tab93370%_))) + (let* ((_%h93379%_ (fxxor (eqv-hash _%key93371%_) _%seed93377%_)) + (_%size93382%_ (vector-length _%table93376%_)) + (_%entries93385%_ (##fxquotient _%size93382%_ '2)) + (_%start93388%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93316%_ _%entries93322%_) + (##fxmodulo _%h93379%_ _%entries93385%_) '1))) - (let _%loop93329%_ ((_%probe93332%_ _%start93325%_) - (_%i93334%_ '1) - (_%deleted93336%_ '#f)) - (let ((_%k93339%_ (vector-ref _%table93313%_ _%probe93332%_))) - (if (eq? _%k93339%_ (macro-unused-obj)) - (if _%deleted93336%_ + (let _%loop93392%_ ((_%probe93395%_ _%start93388%_) + (_%i93397%_ '1) + (_%deleted93399%_ '#f)) + (let ((_%k93402%_ (vector-ref _%table93376%_ _%probe93395%_))) + (if (eq? _%k93402%_ (macro-unused-obj)) + (if _%deleted93399%_ (begin (vector-set! - _%table93313%_ - _%deleted93336%_ - _%key93308%_) + _%table93376%_ + _%deleted93399%_ + _%key93371%_) (vector-set! - _%table93313%_ - (##fx+ _%deleted93336%_ '1) - (_%eqv-table-update!93309%_ _%default93310%_)) + _%table93376%_ + (##fx+ _%deleted93399%_ '1) + (_%eqv-table-update!93372%_ _%default93373%_)) ((lambda () (&raw-table-count-set! - _%tab93307%_ - (##fx+ (&raw-table-count _%tab93307%_) '1))))) + _%tab93370%_ + (##fx+ (&raw-table-count _%tab93370%_) '1))))) (begin (vector-set! - _%table93313%_ - _%probe93332%_ - _%key93308%_) + _%table93376%_ + _%probe93395%_ + _%key93371%_) (vector-set! - _%table93313%_ - (##fx+ _%probe93332%_ '1) - (_%eqv-table-update!93309%_ _%default93310%_)) + _%table93376%_ + (##fx+ _%probe93395%_ '1) + (_%eqv-table-update!93372%_ _%default93373%_)) ((lambda () (&raw-table-free-set! - _%tab93307%_ - (##fx- (&raw-table-free _%tab93307%_) '1)) + _%tab93370%_ + (##fx- (&raw-table-free _%tab93370%_) '1)) (&raw-table-count-set! - _%tab93307%_ - (##fx+ (&raw-table-count _%tab93307%_) '1)))))) - (if (eq? _%k93339%_ (macro-deleted-obj)) - (_%loop93329%_ - (let ((_%next-probe93346%_ - (fx+ _%start93325%_ - _%i93334%_ - (fx* _%i93334%_ _%i93334%_)))) - (##fxmodulo _%next-probe93346%_ _%size93319%_)) - (##fx+ _%i93334%_ '1) - (let ((_%$e93349%_ _%deleted93336%_)) - (if _%$e93349%_ _%$e93349%_ _%probe93332%_))) - (if (eqv? _%key93308%_ _%k93339%_) + _%tab93370%_ + (##fx+ (&raw-table-count _%tab93370%_) '1)))))) + (if (eq? _%k93402%_ (macro-deleted-obj)) + (_%loop93392%_ + (let ((_%next-probe93409%_ + (fx+ _%start93388%_ + _%i93397%_ + (fx* _%i93397%_ _%i93397%_)))) + (##fxmodulo _%next-probe93409%_ _%size93382%_)) + (##fx+ _%i93397%_ '1) + (let ((_%$e93412%_ _%deleted93399%_)) + (if _%$e93412%_ _%$e93412%_ _%probe93395%_))) + (if (eqv? _%key93371%_ _%k93402%_) (let () (vector-set! - _%table93313%_ - _%probe93332%_ - _%key93308%_) + _%table93376%_ + _%probe93395%_ + _%key93371%_) (vector-set! - _%table93313%_ - (##fx+ _%probe93332%_ '1) - (_%eqv-table-update!93309%_ + _%table93376%_ + (##fx+ _%probe93395%_ '1) + (_%eqv-table-update!93372%_ (vector-ref - _%table93313%_ - (##fx+ _%probe93332%_ '1))))) - (_%loop93329%_ - (let ((_%next-probe93354%_ - (fx+ _%start93325%_ - _%i93334%_ - (fx* _%i93334%_ _%i93334%_)))) - (##fxmodulo _%next-probe93354%_ _%size93319%_)) - (##fx+ _%i93334%_ '1) - _%deleted93336%_)))))))))) + _%table93376%_ + (##fx+ _%probe93395%_ '1))))) + (_%loop93392%_ + (let ((_%next-probe93417%_ + (fx+ _%start93388%_ + _%i93397%_ + (fx* _%i93397%_ _%i93397%_)))) + (##fxmodulo _%next-probe93417%_ _%size93382%_)) + (##fx+ _%i93397%_ '1) + _%deleted93399%_)))))))))) (define eqv-table-delete! - (lambda (_%tab93262%_ _%key93264%_) - (let ((_%table93267%_ (&raw-table-table _%tab93262%_)) - (_%seed93269%_ (&raw-table-seed _%tab93262%_))) - (let* ((_%h93272%_ (fxxor (eqv-hash _%key93264%_) _%seed93269%_)) - (_%size93275%_ (vector-length _%table93267%_)) - (_%entries93278%_ (##fxquotient _%size93275%_ '2)) - (_%start93281%_ + (lambda (_%tab93325%_ _%key93327%_) + (let ((_%table93330%_ (&raw-table-table _%tab93325%_)) + (_%seed93332%_ (&raw-table-seed _%tab93325%_))) + (let* ((_%h93335%_ (fxxor (eqv-hash _%key93327%_) _%seed93332%_)) + (_%size93338%_ (vector-length _%table93330%_)) + (_%entries93341%_ (##fxquotient _%size93338%_ '2)) + (_%start93344%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93272%_ _%entries93278%_) + (##fxmodulo _%h93335%_ _%entries93341%_) '1))) - (let _%loop93285%_ ((_%probe93288%_ _%start93281%_) - (_%i93290%_ '1)) - (let ((_%k93293%_ (vector-ref _%table93267%_ _%probe93288%_))) - (if (eq? _%k93293%_ (macro-unused-obj)) + (let _%loop93348%_ ((_%probe93351%_ _%start93344%_) + (_%i93353%_ '1)) + (let ((_%k93356%_ (vector-ref _%table93330%_ _%probe93351%_))) + (if (eq? _%k93356%_ (macro-unused-obj)) '#!void - (if (eq? _%k93293%_ (macro-deleted-obj)) - (_%loop93285%_ - (let ((_%next-probe93298%_ - (fx+ _%start93281%_ - _%i93290%_ - (fx* _%i93290%_ _%i93290%_)))) - (##fxmodulo _%next-probe93298%_ _%size93275%_)) - (##fx+ _%i93290%_ '1)) - (if (eqv? _%key93264%_ _%k93293%_) + (if (eq? _%k93356%_ (macro-deleted-obj)) + (_%loop93348%_ + (let ((_%next-probe93361%_ + (fx+ _%start93344%_ + _%i93353%_ + (fx* _%i93353%_ _%i93353%_)))) + (##fxmodulo _%next-probe93361%_ _%size93338%_)) + (##fx+ _%i93353%_ '1)) + (if (eqv? _%key93327%_ _%k93356%_) (let () (vector-set! - _%table93267%_ - _%probe93288%_ + _%table93330%_ + _%probe93351%_ (macro-deleted-obj)) (vector-set! - _%table93267%_ - (##fx+ _%probe93288%_ '1) + _%table93330%_ + (##fx+ _%probe93351%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93262%_ - (##fx- (&raw-table-count _%tab93262%_) + _%tab93325%_ + (##fx- (&raw-table-count _%tab93325%_) '1))))) - (_%loop93285%_ - (let ((_%next-probe93304%_ - (fx+ _%start93281%_ - _%i93290%_ - (fx* _%i93290%_ _%i93290%_)))) - (##fxmodulo _%next-probe93304%_ _%size93275%_)) - (##fx+ _%i93290%_ '1))))))))))) + (_%loop93348%_ + (let ((_%next-probe93367%_ + (fx+ _%start93344%_ + _%i93353%_ + (fx* _%i93353%_ _%i93353%_)))) + (##fxmodulo _%next-probe93367%_ _%size93338%_)) + (##fx+ _%i93353%_ '1))))))))))) (define make-symbolic-table__% - (lambda (_%size-hint93243%_ _%seed93245%_) + (lambda (_%size-hint93306%_ _%seed93308%_) (make-raw-table__% - _%size-hint93243%_ + _%size-hint93306%_ symbolic-hash eq? - _%seed93245%_))) + _%seed93308%_))) (define make-symbolic-table__0 (lambda () - (let* ((_%size-hint93251%_ '#f) (_%seed93253%_ '0)) - (make-symbolic-table__% _%size-hint93251%_ _%seed93253%_)))) + (let* ((_%size-hint93314%_ '#f) (_%seed93316%_ '0)) + (make-symbolic-table__% _%size-hint93314%_ _%seed93316%_)))) (define make-symbolic-table__1 - (lambda (_%size-hint93255%_) - (let ((_%seed93257%_ '0)) - (make-symbolic-table__% _%size-hint93255%_ _%seed93257%_)))) + (lambda (_%size-hint93318%_) + (let ((_%seed93320%_ '0)) + (make-symbolic-table__% _%size-hint93318%_ _%seed93320%_)))) (define make-symbolic-table - (lambda _g94041_ - (let ((_g94040_ (##length _g94041_))) - (cond ((##fx= _g94040_ 0) (apply make-symbolic-table__0 _g94041_)) - ((##fx= _g94040_ 1) (apply make-symbolic-table__1 _g94041_)) - ((##fx= _g94040_ 2) (apply make-symbolic-table__% _g94041_)) + (lambda _g94104_ + (let ((_g94103_ (##length _g94104_))) + (cond ((##fx= _g94103_ 0) (apply make-symbolic-table__0 _g94104_)) + ((##fx= _g94103_ 1) (apply make-symbolic-table__1 _g94104_)) + ((##fx= _g94103_ 2) (apply make-symbolic-table__% _g94104_)) (else (##raise-wrong-number-of-arguments-exception make-symbolic-table - _g94041_)))))) + _g94104_)))))) (define symbolic-table-ref - (lambda (_%tab93196%_ _%key93197%_ _%default93198%_) - (let ((_%table93200%_ (&raw-table-table _%tab93196%_)) - (_%seed93201%_ (&raw-table-seed _%tab93196%_))) - (let* ((_%h93203%_ - (fxxor (symbolic-hash _%key93197%_) _%seed93201%_)) - (_%size93206%_ (vector-length _%table93200%_)) - (_%entries93209%_ (##fxquotient _%size93206%_ '2)) - (_%start93212%_ + (lambda (_%tab93259%_ _%key93260%_ _%default93261%_) + (let ((_%table93263%_ (&raw-table-table _%tab93259%_)) + (_%seed93264%_ (&raw-table-seed _%tab93259%_))) + (let* ((_%h93266%_ + (fxxor (symbolic-hash _%key93260%_) _%seed93264%_)) + (_%size93269%_ (vector-length _%table93263%_)) + (_%entries93272%_ (##fxquotient _%size93269%_ '2)) + (_%start93275%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93203%_ _%entries93209%_) + (##fxmodulo _%h93266%_ _%entries93272%_) '1))) - (let _%loop93216%_ ((_%probe93219%_ _%start93212%_) - (_%i93221%_ '1) - (_%deleted93223%_ '#f)) - (let ((_%k93226%_ (vector-ref _%table93200%_ _%probe93219%_))) - (if (eq? _%k93226%_ (macro-unused-obj)) - _%default93198%_ - (if (eq? _%k93226%_ (macro-deleted-obj)) - (_%loop93216%_ - (let ((_%next-probe93231%_ - (fx+ _%start93212%_ - _%i93221%_ - (fx* _%i93221%_ _%i93221%_)))) - (##fxmodulo _%next-probe93231%_ _%size93206%_)) - (##fx+ _%i93221%_ '1) - (let ((_%$e93234%_ _%deleted93223%_)) - (if _%$e93234%_ _%$e93234%_ _%probe93219%_))) - (if (eq? _%key93197%_ _%k93226%_) + (let _%loop93279%_ ((_%probe93282%_ _%start93275%_) + (_%i93284%_ '1) + (_%deleted93286%_ '#f)) + (let ((_%k93289%_ (vector-ref _%table93263%_ _%probe93282%_))) + (if (eq? _%k93289%_ (macro-unused-obj)) + _%default93261%_ + (if (eq? _%k93289%_ (macro-deleted-obj)) + (_%loop93279%_ + (let ((_%next-probe93294%_ + (fx+ _%start93275%_ + _%i93284%_ + (fx* _%i93284%_ _%i93284%_)))) + (##fxmodulo _%next-probe93294%_ _%size93269%_)) + (##fx+ _%i93284%_ '1) + (let ((_%$e93297%_ _%deleted93286%_)) + (if _%$e93297%_ _%$e93297%_ _%probe93282%_))) + (if (eq? _%key93260%_ _%k93289%_) (vector-ref - _%table93200%_ - (##fx+ _%probe93219%_ '1)) - (_%loop93216%_ - (let ((_%next-probe93239%_ - (fx+ _%start93212%_ - _%i93221%_ - (fx* _%i93221%_ _%i93221%_)))) - (##fxmodulo _%next-probe93239%_ _%size93206%_)) - (##fx+ _%i93221%_ '1) - _%deleted93223%_)))))))))) + _%table93263%_ + (##fx+ _%probe93282%_ '1)) + (_%loop93279%_ + (let ((_%next-probe93302%_ + (fx+ _%start93275%_ + _%i93284%_ + (fx* _%i93284%_ _%i93284%_)))) + (##fxmodulo _%next-probe93302%_ _%size93269%_)) + (##fx+ _%i93284%_ '1) + _%deleted93286%_)))))))))) (define symbolic-table-set! - (lambda (_%tab93192%_ _%key93193%_ _%value93194%_) - (if (##fx< (&raw-table-free _%tab93192%_) + (lambda (_%tab93255%_ _%key93256%_ _%value93257%_) + (if (##fx< (&raw-table-free _%tab93255%_) (##fxquotient - (vector-length (&raw-table-table _%tab93192%_)) + (vector-length (&raw-table-table _%tab93255%_)) '4)) - (__raw-table-rehash! _%tab93192%_) + (__raw-table-rehash! _%tab93255%_) '#!void) - (__symbolic-table-set! _%tab93192%_ _%key93193%_ _%value93194%_))) + (__symbolic-table-set! _%tab93255%_ _%key93256%_ _%value93257%_))) (define __symbolic-table-set! - (lambda (_%tab93143%_ _%key93144%_ _%value93145%_) - (let ((_%table93148%_ (&raw-table-table _%tab93143%_)) - (_%seed93149%_ (&raw-table-seed _%tab93143%_))) - (let* ((_%h93151%_ - (fxxor (symbolic-hash _%key93144%_) _%seed93149%_)) - (_%size93154%_ (vector-length _%table93148%_)) - (_%entries93157%_ (##fxquotient _%size93154%_ '2)) - (_%start93160%_ + (lambda (_%tab93206%_ _%key93207%_ _%value93208%_) + (let ((_%table93211%_ (&raw-table-table _%tab93206%_)) + (_%seed93212%_ (&raw-table-seed _%tab93206%_))) + (let* ((_%h93214%_ + (fxxor (symbolic-hash _%key93207%_) _%seed93212%_)) + (_%size93217%_ (vector-length _%table93211%_)) + (_%entries93220%_ (##fxquotient _%size93217%_ '2)) + (_%start93223%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93151%_ _%entries93157%_) + (##fxmodulo _%h93214%_ _%entries93220%_) '1))) - (let _%loop93164%_ ((_%probe93167%_ _%start93160%_) - (_%i93169%_ '1) - (_%deleted93171%_ '#f)) - (let ((_%k93174%_ (vector-ref _%table93148%_ _%probe93167%_))) - (if (eq? _%k93174%_ (macro-unused-obj)) - (if _%deleted93171%_ + (let _%loop93227%_ ((_%probe93230%_ _%start93223%_) + (_%i93232%_ '1) + (_%deleted93234%_ '#f)) + (let ((_%k93237%_ (vector-ref _%table93211%_ _%probe93230%_))) + (if (eq? _%k93237%_ (macro-unused-obj)) + (if _%deleted93234%_ (begin (vector-set! - _%table93148%_ - _%deleted93171%_ - _%key93144%_) + _%table93211%_ + _%deleted93234%_ + _%key93207%_) (vector-set! - _%table93148%_ - (##fx+ _%deleted93171%_ '1) - _%value93145%_) + _%table93211%_ + (##fx+ _%deleted93234%_ '1) + _%value93208%_) ((lambda () (&raw-table-count-set! - _%tab93143%_ - (##fx+ (&raw-table-count _%tab93143%_) '1))))) + _%tab93206%_ + (##fx+ (&raw-table-count _%tab93206%_) '1))))) (begin (vector-set! - _%table93148%_ - _%probe93167%_ - _%key93144%_) + _%table93211%_ + _%probe93230%_ + _%key93207%_) (vector-set! - _%table93148%_ - (##fx+ _%probe93167%_ '1) - _%value93145%_) + _%table93211%_ + (##fx+ _%probe93230%_ '1) + _%value93208%_) ((lambda () (&raw-table-free-set! - _%tab93143%_ - (##fx- (&raw-table-free _%tab93143%_) '1)) + _%tab93206%_ + (##fx- (&raw-table-free _%tab93206%_) '1)) (&raw-table-count-set! - _%tab93143%_ - (##fx+ (&raw-table-count _%tab93143%_) '1)))))) - (if (eq? _%k93174%_ (macro-deleted-obj)) - (_%loop93164%_ - (let ((_%next-probe93181%_ - (fx+ _%start93160%_ - _%i93169%_ - (fx* _%i93169%_ _%i93169%_)))) - (##fxmodulo _%next-probe93181%_ _%size93154%_)) - (##fx+ _%i93169%_ '1) - (let ((_%$e93184%_ _%deleted93171%_)) - (if _%$e93184%_ _%$e93184%_ _%probe93167%_))) - (if (eq? _%key93144%_ _%k93174%_) + _%tab93206%_ + (##fx+ (&raw-table-count _%tab93206%_) '1)))))) + (if (eq? _%k93237%_ (macro-deleted-obj)) + (_%loop93227%_ + (let ((_%next-probe93244%_ + (fx+ _%start93223%_ + _%i93232%_ + (fx* _%i93232%_ _%i93232%_)))) + (##fxmodulo _%next-probe93244%_ _%size93217%_)) + (##fx+ _%i93232%_ '1) + (let ((_%$e93247%_ _%deleted93234%_)) + (if _%$e93247%_ _%$e93247%_ _%probe93230%_))) + (if (eq? _%key93207%_ _%k93237%_) (let () (vector-set! - _%table93148%_ - _%probe93167%_ - _%key93144%_) + _%table93211%_ + _%probe93230%_ + _%key93207%_) (vector-set! - _%table93148%_ - (##fx+ _%probe93167%_ '1) - _%value93145%_)) - (_%loop93164%_ - (let ((_%next-probe93189%_ - (fx+ _%start93160%_ - _%i93169%_ - (fx* _%i93169%_ _%i93169%_)))) - (##fxmodulo _%next-probe93189%_ _%size93154%_)) - (##fx+ _%i93169%_ '1) - _%deleted93171%_)))))))))) + _%table93211%_ + (##fx+ _%probe93230%_ '1) + _%value93208%_)) + (_%loop93227%_ + (let ((_%next-probe93252%_ + (fx+ _%start93223%_ + _%i93232%_ + (fx* _%i93232%_ _%i93232%_)))) + (##fxmodulo _%next-probe93252%_ _%size93217%_)) + (##fx+ _%i93232%_ '1) + _%deleted93234%_)))))))))) (define symbolic-table-update! - (lambda (_%tab93138%_ - _%key93139%_ - _%symbolic-table-update!93140%_ - _%default93141%_) - (if (##fx< (&raw-table-free _%tab93138%_) + (lambda (_%tab93201%_ + _%key93202%_ + _%symbolic-table-update!93203%_ + _%default93204%_) + (if (##fx< (&raw-table-free _%tab93201%_) (##fxquotient - (vector-length (&raw-table-table _%tab93138%_)) + (vector-length (&raw-table-table _%tab93201%_)) '4)) - (__raw-table-rehash! _%tab93138%_) + (__raw-table-rehash! _%tab93201%_) '#!void) (__symbolic-table-update! - _%tab93138%_ - _%key93139%_ - _%symbolic-table-update!93140%_ - _%default93141%_))) + _%tab93201%_ + _%key93202%_ + _%symbolic-table-update!93203%_ + _%default93204%_))) (define __symbolic-table-update! - (lambda (_%tab93088%_ - _%key93089%_ - _%symbolic-table-update!93090%_ - _%default93091%_) - (let ((_%table93094%_ (&raw-table-table _%tab93088%_)) - (_%seed93095%_ (&raw-table-seed _%tab93088%_))) - (let* ((_%h93097%_ - (fxxor (symbolic-hash _%key93089%_) _%seed93095%_)) - (_%size93100%_ (vector-length _%table93094%_)) - (_%entries93103%_ (##fxquotient _%size93100%_ '2)) - (_%start93106%_ + (lambda (_%tab93151%_ + _%key93152%_ + _%symbolic-table-update!93153%_ + _%default93154%_) + (let ((_%table93157%_ (&raw-table-table _%tab93151%_)) + (_%seed93158%_ (&raw-table-seed _%tab93151%_))) + (let* ((_%h93160%_ + (fxxor (symbolic-hash _%key93152%_) _%seed93158%_)) + (_%size93163%_ (vector-length _%table93157%_)) + (_%entries93166%_ (##fxquotient _%size93163%_ '2)) + (_%start93169%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93097%_ _%entries93103%_) + (##fxmodulo _%h93160%_ _%entries93166%_) '1))) - (let _%loop93110%_ ((_%probe93113%_ _%start93106%_) - (_%i93115%_ '1) - (_%deleted93117%_ '#f)) - (let ((_%k93120%_ (vector-ref _%table93094%_ _%probe93113%_))) - (if (eq? _%k93120%_ (macro-unused-obj)) - (if _%deleted93117%_ + (let _%loop93173%_ ((_%probe93176%_ _%start93169%_) + (_%i93178%_ '1) + (_%deleted93180%_ '#f)) + (let ((_%k93183%_ (vector-ref _%table93157%_ _%probe93176%_))) + (if (eq? _%k93183%_ (macro-unused-obj)) + (if _%deleted93180%_ (begin (vector-set! - _%table93094%_ - _%deleted93117%_ - _%key93089%_) + _%table93157%_ + _%deleted93180%_ + _%key93152%_) (vector-set! - _%table93094%_ - (##fx+ _%deleted93117%_ '1) - (_%symbolic-table-update!93090%_ _%default93091%_)) + _%table93157%_ + (##fx+ _%deleted93180%_ '1) + (_%symbolic-table-update!93153%_ _%default93154%_)) ((lambda () (&raw-table-count-set! - _%tab93088%_ - (##fx+ (&raw-table-count _%tab93088%_) '1))))) + _%tab93151%_ + (##fx+ (&raw-table-count _%tab93151%_) '1))))) (begin (vector-set! - _%table93094%_ - _%probe93113%_ - _%key93089%_) + _%table93157%_ + _%probe93176%_ + _%key93152%_) (vector-set! - _%table93094%_ - (##fx+ _%probe93113%_ '1) - (_%symbolic-table-update!93090%_ _%default93091%_)) + _%table93157%_ + (##fx+ _%probe93176%_ '1) + (_%symbolic-table-update!93153%_ _%default93154%_)) ((lambda () (&raw-table-free-set! - _%tab93088%_ - (##fx- (&raw-table-free _%tab93088%_) '1)) + _%tab93151%_ + (##fx- (&raw-table-free _%tab93151%_) '1)) (&raw-table-count-set! - _%tab93088%_ - (##fx+ (&raw-table-count _%tab93088%_) '1)))))) - (if (eq? _%k93120%_ (macro-deleted-obj)) - (_%loop93110%_ - (let ((_%next-probe93127%_ - (fx+ _%start93106%_ - _%i93115%_ - (fx* _%i93115%_ _%i93115%_)))) - (##fxmodulo _%next-probe93127%_ _%size93100%_)) - (##fx+ _%i93115%_ '1) - (let ((_%$e93130%_ _%deleted93117%_)) - (if _%$e93130%_ _%$e93130%_ _%probe93113%_))) - (if (eq? _%key93089%_ _%k93120%_) + _%tab93151%_ + (##fx+ (&raw-table-count _%tab93151%_) '1)))))) + (if (eq? _%k93183%_ (macro-deleted-obj)) + (_%loop93173%_ + (let ((_%next-probe93190%_ + (fx+ _%start93169%_ + _%i93178%_ + (fx* _%i93178%_ _%i93178%_)))) + (##fxmodulo _%next-probe93190%_ _%size93163%_)) + (##fx+ _%i93178%_ '1) + (let ((_%$e93193%_ _%deleted93180%_)) + (if _%$e93193%_ _%$e93193%_ _%probe93176%_))) + (if (eq? _%key93152%_ _%k93183%_) (let () (vector-set! - _%table93094%_ - _%probe93113%_ - _%key93089%_) + _%table93157%_ + _%probe93176%_ + _%key93152%_) (vector-set! - _%table93094%_ - (##fx+ _%probe93113%_ '1) - (_%symbolic-table-update!93090%_ + _%table93157%_ + (##fx+ _%probe93176%_ '1) + (_%symbolic-table-update!93153%_ (vector-ref - _%table93094%_ - (##fx+ _%probe93113%_ '1))))) - (_%loop93110%_ - (let ((_%next-probe93135%_ - (fx+ _%start93106%_ - _%i93115%_ - (fx* _%i93115%_ _%i93115%_)))) - (##fxmodulo _%next-probe93135%_ _%size93100%_)) - (##fx+ _%i93115%_ '1) - _%deleted93117%_)))))))))) + _%table93157%_ + (##fx+ _%probe93176%_ '1))))) + (_%loop93173%_ + (let ((_%next-probe93198%_ + (fx+ _%start93169%_ + _%i93178%_ + (fx* _%i93178%_ _%i93178%_)))) + (##fxmodulo _%next-probe93198%_ _%size93163%_)) + (##fx+ _%i93178%_ '1) + _%deleted93180%_)))))))))) (define symbolic-table-delete! - (lambda (_%tab93043%_ _%key93045%_) - (let ((_%table93048%_ (&raw-table-table _%tab93043%_)) - (_%seed93050%_ (&raw-table-seed _%tab93043%_))) - (let* ((_%h93053%_ - (fxxor (symbolic-hash _%key93045%_) _%seed93050%_)) - (_%size93056%_ (vector-length _%table93048%_)) - (_%entries93059%_ (##fxquotient _%size93056%_ '2)) - (_%start93062%_ + (lambda (_%tab93106%_ _%key93108%_) + (let ((_%table93111%_ (&raw-table-table _%tab93106%_)) + (_%seed93113%_ (&raw-table-seed _%tab93106%_))) + (let* ((_%h93116%_ + (fxxor (symbolic-hash _%key93108%_) _%seed93113%_)) + (_%size93119%_ (vector-length _%table93111%_)) + (_%entries93122%_ (##fxquotient _%size93119%_ '2)) + (_%start93125%_ (##fxarithmetic-shift-left - (##fxmodulo _%h93053%_ _%entries93059%_) + (##fxmodulo _%h93116%_ _%entries93122%_) '1))) - (let _%loop93066%_ ((_%probe93069%_ _%start93062%_) - (_%i93071%_ '1)) - (let ((_%k93074%_ (vector-ref _%table93048%_ _%probe93069%_))) - (if (eq? _%k93074%_ (macro-unused-obj)) + (let _%loop93129%_ ((_%probe93132%_ _%start93125%_) + (_%i93134%_ '1)) + (let ((_%k93137%_ (vector-ref _%table93111%_ _%probe93132%_))) + (if (eq? _%k93137%_ (macro-unused-obj)) '#!void - (if (eq? _%k93074%_ (macro-deleted-obj)) - (_%loop93066%_ - (let ((_%next-probe93079%_ - (fx+ _%start93062%_ - _%i93071%_ - (fx* _%i93071%_ _%i93071%_)))) - (##fxmodulo _%next-probe93079%_ _%size93056%_)) - (##fx+ _%i93071%_ '1)) - (if (eq? _%key93045%_ _%k93074%_) + (if (eq? _%k93137%_ (macro-deleted-obj)) + (_%loop93129%_ + (let ((_%next-probe93142%_ + (fx+ _%start93125%_ + _%i93134%_ + (fx* _%i93134%_ _%i93134%_)))) + (##fxmodulo _%next-probe93142%_ _%size93119%_)) + (##fx+ _%i93134%_ '1)) + (if (eq? _%key93108%_ _%k93137%_) (let () (vector-set! - _%table93048%_ - _%probe93069%_ + _%table93111%_ + _%probe93132%_ (macro-deleted-obj)) (vector-set! - _%table93048%_ - (##fx+ _%probe93069%_ '1) + _%table93111%_ + (##fx+ _%probe93132%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab93043%_ - (##fx- (&raw-table-count _%tab93043%_) + _%tab93106%_ + (##fx- (&raw-table-count _%tab93106%_) '1))))) - (_%loop93066%_ - (let ((_%next-probe93085%_ - (fx+ _%start93062%_ - _%i93071%_ - (fx* _%i93071%_ _%i93071%_)))) - (##fxmodulo _%next-probe93085%_ _%size93056%_)) - (##fx+ _%i93071%_ '1))))))))))) + (_%loop93129%_ + (let ((_%next-probe93148%_ + (fx+ _%start93125%_ + _%i93134%_ + (fx* _%i93134%_ _%i93134%_)))) + (##fxmodulo _%next-probe93148%_ _%size93119%_)) + (##fx+ _%i93134%_ '1))))))))))) (define make-string-table__% - (lambda (_%size-hint93024%_ _%seed93026%_) + (lambda (_%size-hint93087%_ _%seed93089%_) (make-raw-table__% - _%size-hint93024%_ + _%size-hint93087%_ string-hash ##string=? - _%seed93026%_))) + _%seed93089%_))) (define make-string-table__0 (lambda () - (let* ((_%size-hint93032%_ '#f) (_%seed93034%_ '0)) - (make-string-table__% _%size-hint93032%_ _%seed93034%_)))) + (let* ((_%size-hint93095%_ '#f) (_%seed93097%_ '0)) + (make-string-table__% _%size-hint93095%_ _%seed93097%_)))) (define make-string-table__1 - (lambda (_%size-hint93036%_) - (let ((_%seed93038%_ '0)) - (make-string-table__% _%size-hint93036%_ _%seed93038%_)))) + (lambda (_%size-hint93099%_) + (let ((_%seed93101%_ '0)) + (make-string-table__% _%size-hint93099%_ _%seed93101%_)))) (define make-string-table - (lambda _g94043_ - (let ((_g94042_ (##length _g94043_))) - (cond ((##fx= _g94042_ 0) (apply make-string-table__0 _g94043_)) - ((##fx= _g94042_ 1) (apply make-string-table__1 _g94043_)) - ((##fx= _g94042_ 2) (apply make-string-table__% _g94043_)) + (lambda _g94106_ + (let ((_g94105_ (##length _g94106_))) + (cond ((##fx= _g94105_ 0) (apply make-string-table__0 _g94106_)) + ((##fx= _g94105_ 1) (apply make-string-table__1 _g94106_)) + ((##fx= _g94105_ 2) (apply make-string-table__% _g94106_)) (else (##raise-wrong-number-of-arguments-exception make-string-table - _g94043_)))))) + _g94106_)))))) (define string-table-ref - (lambda (_%tab92977%_ _%key92978%_ _%default92979%_) - (let ((_%table92981%_ (&raw-table-table _%tab92977%_)) - (_%seed92982%_ (&raw-table-seed _%tab92977%_))) - (let* ((_%h92984%_ - (fxxor (##string=?-hash _%key92978%_) _%seed92982%_)) - (_%size92987%_ (vector-length _%table92981%_)) - (_%entries92990%_ (##fxquotient _%size92987%_ '2)) - (_%start92993%_ + (lambda (_%tab93040%_ _%key93041%_ _%default93042%_) + (let ((_%table93044%_ (&raw-table-table _%tab93040%_)) + (_%seed93045%_ (&raw-table-seed _%tab93040%_))) + (let* ((_%h93047%_ + (fxxor (##string=?-hash _%key93041%_) _%seed93045%_)) + (_%size93050%_ (vector-length _%table93044%_)) + (_%entries93053%_ (##fxquotient _%size93050%_ '2)) + (_%start93056%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92984%_ _%entries92990%_) + (##fxmodulo _%h93047%_ _%entries93053%_) '1))) - (let _%loop92997%_ ((_%probe93000%_ _%start92993%_) - (_%i93002%_ '1) - (_%deleted93004%_ '#f)) - (let ((_%k93007%_ (vector-ref _%table92981%_ _%probe93000%_))) - (if (eq? _%k93007%_ (macro-unused-obj)) - _%default92979%_ - (if (eq? _%k93007%_ (macro-deleted-obj)) - (_%loop92997%_ - (let ((_%next-probe93012%_ - (fx+ _%start92993%_ - _%i93002%_ - (fx* _%i93002%_ _%i93002%_)))) - (##fxmodulo _%next-probe93012%_ _%size92987%_)) - (##fx+ _%i93002%_ '1) - (let ((_%$e93015%_ _%deleted93004%_)) - (if _%$e93015%_ _%$e93015%_ _%probe93000%_))) - (if (##string=? _%key92978%_ _%k93007%_) + (let _%loop93060%_ ((_%probe93063%_ _%start93056%_) + (_%i93065%_ '1) + (_%deleted93067%_ '#f)) + (let ((_%k93070%_ (vector-ref _%table93044%_ _%probe93063%_))) + (if (eq? _%k93070%_ (macro-unused-obj)) + _%default93042%_ + (if (eq? _%k93070%_ (macro-deleted-obj)) + (_%loop93060%_ + (let ((_%next-probe93075%_ + (fx+ _%start93056%_ + _%i93065%_ + (fx* _%i93065%_ _%i93065%_)))) + (##fxmodulo _%next-probe93075%_ _%size93050%_)) + (##fx+ _%i93065%_ '1) + (let ((_%$e93078%_ _%deleted93067%_)) + (if _%$e93078%_ _%$e93078%_ _%probe93063%_))) + (if (##string=? _%key93041%_ _%k93070%_) (vector-ref - _%table92981%_ - (##fx+ _%probe93000%_ '1)) - (_%loop92997%_ - (let ((_%next-probe93020%_ - (fx+ _%start92993%_ - _%i93002%_ - (fx* _%i93002%_ _%i93002%_)))) - (##fxmodulo _%next-probe93020%_ _%size92987%_)) - (##fx+ _%i93002%_ '1) - _%deleted93004%_)))))))))) + _%table93044%_ + (##fx+ _%probe93063%_ '1)) + (_%loop93060%_ + (let ((_%next-probe93083%_ + (fx+ _%start93056%_ + _%i93065%_ + (fx* _%i93065%_ _%i93065%_)))) + (##fxmodulo _%next-probe93083%_ _%size93050%_)) + (##fx+ _%i93065%_ '1) + _%deleted93067%_)))))))))) (define string-table-set! - (lambda (_%tab92973%_ _%key92974%_ _%value92975%_) - (if (##fx< (&raw-table-free _%tab92973%_) + (lambda (_%tab93036%_ _%key93037%_ _%value93038%_) + (if (##fx< (&raw-table-free _%tab93036%_) (##fxquotient - (vector-length (&raw-table-table _%tab92973%_)) + (vector-length (&raw-table-table _%tab93036%_)) '4)) - (__raw-table-rehash! _%tab92973%_) + (__raw-table-rehash! _%tab93036%_) '#!void) - (__string-table-set! _%tab92973%_ _%key92974%_ _%value92975%_))) + (__string-table-set! _%tab93036%_ _%key93037%_ _%value93038%_))) (define __string-table-set! - (lambda (_%tab92924%_ _%key92925%_ _%value92926%_) - (let ((_%table92929%_ (&raw-table-table _%tab92924%_)) - (_%seed92930%_ (&raw-table-seed _%tab92924%_))) - (let* ((_%h92932%_ - (fxxor (##string=?-hash _%key92925%_) _%seed92930%_)) - (_%size92935%_ (vector-length _%table92929%_)) - (_%entries92938%_ (##fxquotient _%size92935%_ '2)) - (_%start92941%_ + (lambda (_%tab92987%_ _%key92988%_ _%value92989%_) + (let ((_%table92992%_ (&raw-table-table _%tab92987%_)) + (_%seed92993%_ (&raw-table-seed _%tab92987%_))) + (let* ((_%h92995%_ + (fxxor (##string=?-hash _%key92988%_) _%seed92993%_)) + (_%size92998%_ (vector-length _%table92992%_)) + (_%entries93001%_ (##fxquotient _%size92998%_ '2)) + (_%start93004%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92932%_ _%entries92938%_) + (##fxmodulo _%h92995%_ _%entries93001%_) '1))) - (let _%loop92945%_ ((_%probe92948%_ _%start92941%_) - (_%i92950%_ '1) - (_%deleted92952%_ '#f)) - (let ((_%k92955%_ (vector-ref _%table92929%_ _%probe92948%_))) - (if (eq? _%k92955%_ (macro-unused-obj)) - (if _%deleted92952%_ + (let _%loop93008%_ ((_%probe93011%_ _%start93004%_) + (_%i93013%_ '1) + (_%deleted93015%_ '#f)) + (let ((_%k93018%_ (vector-ref _%table92992%_ _%probe93011%_))) + (if (eq? _%k93018%_ (macro-unused-obj)) + (if _%deleted93015%_ (begin (vector-set! - _%table92929%_ - _%deleted92952%_ - _%key92925%_) + _%table92992%_ + _%deleted93015%_ + _%key92988%_) (vector-set! - _%table92929%_ - (##fx+ _%deleted92952%_ '1) - _%value92926%_) + _%table92992%_ + (##fx+ _%deleted93015%_ '1) + _%value92989%_) ((lambda () (&raw-table-count-set! - _%tab92924%_ - (##fx+ (&raw-table-count _%tab92924%_) '1))))) + _%tab92987%_ + (##fx+ (&raw-table-count _%tab92987%_) '1))))) (begin (vector-set! - _%table92929%_ - _%probe92948%_ - _%key92925%_) + _%table92992%_ + _%probe93011%_ + _%key92988%_) (vector-set! - _%table92929%_ - (##fx+ _%probe92948%_ '1) - _%value92926%_) + _%table92992%_ + (##fx+ _%probe93011%_ '1) + _%value92989%_) ((lambda () (&raw-table-free-set! - _%tab92924%_ - (##fx- (&raw-table-free _%tab92924%_) '1)) + _%tab92987%_ + (##fx- (&raw-table-free _%tab92987%_) '1)) (&raw-table-count-set! - _%tab92924%_ - (##fx+ (&raw-table-count _%tab92924%_) '1)))))) - (if (eq? _%k92955%_ (macro-deleted-obj)) - (_%loop92945%_ - (let ((_%next-probe92962%_ - (fx+ _%start92941%_ - _%i92950%_ - (fx* _%i92950%_ _%i92950%_)))) - (##fxmodulo _%next-probe92962%_ _%size92935%_)) - (##fx+ _%i92950%_ '1) - (let ((_%$e92965%_ _%deleted92952%_)) - (if _%$e92965%_ _%$e92965%_ _%probe92948%_))) - (if (##string=? _%key92925%_ _%k92955%_) + _%tab92987%_ + (##fx+ (&raw-table-count _%tab92987%_) '1)))))) + (if (eq? _%k93018%_ (macro-deleted-obj)) + (_%loop93008%_ + (let ((_%next-probe93025%_ + (fx+ _%start93004%_ + _%i93013%_ + (fx* _%i93013%_ _%i93013%_)))) + (##fxmodulo _%next-probe93025%_ _%size92998%_)) + (##fx+ _%i93013%_ '1) + (let ((_%$e93028%_ _%deleted93015%_)) + (if _%$e93028%_ _%$e93028%_ _%probe93011%_))) + (if (##string=? _%key92988%_ _%k93018%_) (let () (vector-set! - _%table92929%_ - _%probe92948%_ - _%key92925%_) + _%table92992%_ + _%probe93011%_ + _%key92988%_) (vector-set! - _%table92929%_ - (##fx+ _%probe92948%_ '1) - _%value92926%_)) - (_%loop92945%_ - (let ((_%next-probe92970%_ - (fx+ _%start92941%_ - _%i92950%_ - (fx* _%i92950%_ _%i92950%_)))) - (##fxmodulo _%next-probe92970%_ _%size92935%_)) - (##fx+ _%i92950%_ '1) - _%deleted92952%_)))))))))) + _%table92992%_ + (##fx+ _%probe93011%_ '1) + _%value92989%_)) + (_%loop93008%_ + (let ((_%next-probe93033%_ + (fx+ _%start93004%_ + _%i93013%_ + (fx* _%i93013%_ _%i93013%_)))) + (##fxmodulo _%next-probe93033%_ _%size92998%_)) + (##fx+ _%i93013%_ '1) + _%deleted93015%_)))))))))) (define string-table-update! - (lambda (_%tab92919%_ - _%key92920%_ - _%string-table-update!92921%_ - _%default92922%_) - (if (##fx< (&raw-table-free _%tab92919%_) + (lambda (_%tab92982%_ + _%key92983%_ + _%string-table-update!92984%_ + _%default92985%_) + (if (##fx< (&raw-table-free _%tab92982%_) (##fxquotient - (vector-length (&raw-table-table _%tab92919%_)) + (vector-length (&raw-table-table _%tab92982%_)) '4)) - (__raw-table-rehash! _%tab92919%_) + (__raw-table-rehash! _%tab92982%_) '#!void) (__string-table-update! - _%tab92919%_ - _%key92920%_ - _%string-table-update!92921%_ - _%default92922%_))) + _%tab92982%_ + _%key92983%_ + _%string-table-update!92984%_ + _%default92985%_))) (define __string-table-update! - (lambda (_%tab92869%_ - _%key92870%_ - _%string-table-update!92871%_ - _%default92872%_) - (let ((_%table92875%_ (&raw-table-table _%tab92869%_)) - (_%seed92876%_ (&raw-table-seed _%tab92869%_))) - (let* ((_%h92878%_ - (fxxor (##string=?-hash _%key92870%_) _%seed92876%_)) - (_%size92881%_ (vector-length _%table92875%_)) - (_%entries92884%_ (##fxquotient _%size92881%_ '2)) - (_%start92887%_ + (lambda (_%tab92932%_ + _%key92933%_ + _%string-table-update!92934%_ + _%default92935%_) + (let ((_%table92938%_ (&raw-table-table _%tab92932%_)) + (_%seed92939%_ (&raw-table-seed _%tab92932%_))) + (let* ((_%h92941%_ + (fxxor (##string=?-hash _%key92933%_) _%seed92939%_)) + (_%size92944%_ (vector-length _%table92938%_)) + (_%entries92947%_ (##fxquotient _%size92944%_ '2)) + (_%start92950%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92878%_ _%entries92884%_) + (##fxmodulo _%h92941%_ _%entries92947%_) '1))) - (let _%loop92891%_ ((_%probe92894%_ _%start92887%_) - (_%i92896%_ '1) - (_%deleted92898%_ '#f)) - (let ((_%k92901%_ (vector-ref _%table92875%_ _%probe92894%_))) - (if (eq? _%k92901%_ (macro-unused-obj)) - (if _%deleted92898%_ + (let _%loop92954%_ ((_%probe92957%_ _%start92950%_) + (_%i92959%_ '1) + (_%deleted92961%_ '#f)) + (let ((_%k92964%_ (vector-ref _%table92938%_ _%probe92957%_))) + (if (eq? _%k92964%_ (macro-unused-obj)) + (if _%deleted92961%_ (begin (vector-set! - _%table92875%_ - _%deleted92898%_ - _%key92870%_) + _%table92938%_ + _%deleted92961%_ + _%key92933%_) (vector-set! - _%table92875%_ - (##fx+ _%deleted92898%_ '1) - (_%string-table-update!92871%_ _%default92872%_)) + _%table92938%_ + (##fx+ _%deleted92961%_ '1) + (_%string-table-update!92934%_ _%default92935%_)) ((lambda () (&raw-table-count-set! - _%tab92869%_ - (##fx+ (&raw-table-count _%tab92869%_) '1))))) + _%tab92932%_ + (##fx+ (&raw-table-count _%tab92932%_) '1))))) (begin (vector-set! - _%table92875%_ - _%probe92894%_ - _%key92870%_) + _%table92938%_ + _%probe92957%_ + _%key92933%_) (vector-set! - _%table92875%_ - (##fx+ _%probe92894%_ '1) - (_%string-table-update!92871%_ _%default92872%_)) + _%table92938%_ + (##fx+ _%probe92957%_ '1) + (_%string-table-update!92934%_ _%default92935%_)) ((lambda () (&raw-table-free-set! - _%tab92869%_ - (##fx- (&raw-table-free _%tab92869%_) '1)) + _%tab92932%_ + (##fx- (&raw-table-free _%tab92932%_) '1)) (&raw-table-count-set! - _%tab92869%_ - (##fx+ (&raw-table-count _%tab92869%_) '1)))))) - (if (eq? _%k92901%_ (macro-deleted-obj)) - (_%loop92891%_ - (let ((_%next-probe92908%_ - (fx+ _%start92887%_ - _%i92896%_ - (fx* _%i92896%_ _%i92896%_)))) - (##fxmodulo _%next-probe92908%_ _%size92881%_)) - (##fx+ _%i92896%_ '1) - (let ((_%$e92911%_ _%deleted92898%_)) - (if _%$e92911%_ _%$e92911%_ _%probe92894%_))) - (if (##string=? _%key92870%_ _%k92901%_) + _%tab92932%_ + (##fx+ (&raw-table-count _%tab92932%_) '1)))))) + (if (eq? _%k92964%_ (macro-deleted-obj)) + (_%loop92954%_ + (let ((_%next-probe92971%_ + (fx+ _%start92950%_ + _%i92959%_ + (fx* _%i92959%_ _%i92959%_)))) + (##fxmodulo _%next-probe92971%_ _%size92944%_)) + (##fx+ _%i92959%_ '1) + (let ((_%$e92974%_ _%deleted92961%_)) + (if _%$e92974%_ _%$e92974%_ _%probe92957%_))) + (if (##string=? _%key92933%_ _%k92964%_) (let () (vector-set! - _%table92875%_ - _%probe92894%_ - _%key92870%_) + _%table92938%_ + _%probe92957%_ + _%key92933%_) (vector-set! - _%table92875%_ - (##fx+ _%probe92894%_ '1) - (_%string-table-update!92871%_ + _%table92938%_ + (##fx+ _%probe92957%_ '1) + (_%string-table-update!92934%_ (vector-ref - _%table92875%_ - (##fx+ _%probe92894%_ '1))))) - (_%loop92891%_ - (let ((_%next-probe92916%_ - (fx+ _%start92887%_ - _%i92896%_ - (fx* _%i92896%_ _%i92896%_)))) - (##fxmodulo _%next-probe92916%_ _%size92881%_)) - (##fx+ _%i92896%_ '1) - _%deleted92898%_)))))))))) + _%table92938%_ + (##fx+ _%probe92957%_ '1))))) + (_%loop92954%_ + (let ((_%next-probe92979%_ + (fx+ _%start92950%_ + _%i92959%_ + (fx* _%i92959%_ _%i92959%_)))) + (##fxmodulo _%next-probe92979%_ _%size92944%_)) + (##fx+ _%i92959%_ '1) + _%deleted92961%_)))))))))) (define string-table-delete! - (lambda (_%tab92824%_ _%key92826%_) - (let ((_%table92829%_ (&raw-table-table _%tab92824%_)) - (_%seed92831%_ (&raw-table-seed _%tab92824%_))) - (let* ((_%h92834%_ - (fxxor (##string=?-hash _%key92826%_) _%seed92831%_)) - (_%size92837%_ (vector-length _%table92829%_)) - (_%entries92840%_ (##fxquotient _%size92837%_ '2)) - (_%start92843%_ + (lambda (_%tab92887%_ _%key92889%_) + (let ((_%table92892%_ (&raw-table-table _%tab92887%_)) + (_%seed92894%_ (&raw-table-seed _%tab92887%_))) + (let* ((_%h92897%_ + (fxxor (##string=?-hash _%key92889%_) _%seed92894%_)) + (_%size92900%_ (vector-length _%table92892%_)) + (_%entries92903%_ (##fxquotient _%size92900%_ '2)) + (_%start92906%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92834%_ _%entries92840%_) + (##fxmodulo _%h92897%_ _%entries92903%_) '1))) - (let _%loop92847%_ ((_%probe92850%_ _%start92843%_) - (_%i92852%_ '1)) - (let ((_%k92855%_ (vector-ref _%table92829%_ _%probe92850%_))) - (if (eq? _%k92855%_ (macro-unused-obj)) + (let _%loop92910%_ ((_%probe92913%_ _%start92906%_) + (_%i92915%_ '1)) + (let ((_%k92918%_ (vector-ref _%table92892%_ _%probe92913%_))) + (if (eq? _%k92918%_ (macro-unused-obj)) '#!void - (if (eq? _%k92855%_ (macro-deleted-obj)) - (_%loop92847%_ - (let ((_%next-probe92860%_ - (fx+ _%start92843%_ - _%i92852%_ - (fx* _%i92852%_ _%i92852%_)))) - (##fxmodulo _%next-probe92860%_ _%size92837%_)) - (##fx+ _%i92852%_ '1)) - (if (##string=? _%key92826%_ _%k92855%_) + (if (eq? _%k92918%_ (macro-deleted-obj)) + (_%loop92910%_ + (let ((_%next-probe92923%_ + (fx+ _%start92906%_ + _%i92915%_ + (fx* _%i92915%_ _%i92915%_)))) + (##fxmodulo _%next-probe92923%_ _%size92900%_)) + (##fx+ _%i92915%_ '1)) + (if (##string=? _%key92889%_ _%k92918%_) (let () (vector-set! - _%table92829%_ - _%probe92850%_ + _%table92892%_ + _%probe92913%_ (macro-deleted-obj)) (vector-set! - _%table92829%_ - (##fx+ _%probe92850%_ '1) + _%table92892%_ + (##fx+ _%probe92913%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92824%_ - (##fx- (&raw-table-count _%tab92824%_) + _%tab92887%_ + (##fx- (&raw-table-count _%tab92887%_) '1))))) - (_%loop92847%_ - (let ((_%next-probe92866%_ - (fx+ _%start92843%_ - _%i92852%_ - (fx* _%i92852%_ _%i92852%_)))) - (##fxmodulo _%next-probe92866%_ _%size92837%_)) - (##fx+ _%i92852%_ '1))))))))))) + (_%loop92910%_ + (let ((_%next-probe92929%_ + (fx+ _%start92906%_ + _%i92915%_ + (fx* _%i92915%_ _%i92915%_)))) + (##fxmodulo _%next-probe92929%_ _%size92900%_)) + (##fx+ _%i92915%_ '1))))))))))) (define make-immediate-table__% - (lambda (_%size-hint92805%_ _%seed92807%_) + (lambda (_%size-hint92868%_ _%seed92870%_) (make-raw-table__% - _%size-hint92805%_ + _%size-hint92868%_ immediate-hash eq? - _%seed92807%_))) + _%seed92870%_))) (define make-immediate-table__0 (lambda () - (let* ((_%size-hint92813%_ '#f) (_%seed92815%_ '0)) - (make-immediate-table__% _%size-hint92813%_ _%seed92815%_)))) + (let* ((_%size-hint92876%_ '#f) (_%seed92878%_ '0)) + (make-immediate-table__% _%size-hint92876%_ _%seed92878%_)))) (define make-immediate-table__1 - (lambda (_%size-hint92817%_) - (let ((_%seed92819%_ '0)) - (make-immediate-table__% _%size-hint92817%_ _%seed92819%_)))) + (lambda (_%size-hint92880%_) + (let ((_%seed92882%_ '0)) + (make-immediate-table__% _%size-hint92880%_ _%seed92882%_)))) (define make-immediate-table - (lambda _g94045_ - (let ((_g94044_ (##length _g94045_))) - (cond ((##fx= _g94044_ 0) (apply make-immediate-table__0 _g94045_)) - ((##fx= _g94044_ 1) (apply make-immediate-table__1 _g94045_)) - ((##fx= _g94044_ 2) (apply make-immediate-table__% _g94045_)) + (lambda _g94108_ + (let ((_g94107_ (##length _g94108_))) + (cond ((##fx= _g94107_ 0) (apply make-immediate-table__0 _g94108_)) + ((##fx= _g94107_ 1) (apply make-immediate-table__1 _g94108_)) + ((##fx= _g94107_ 2) (apply make-immediate-table__% _g94108_)) (else (##raise-wrong-number-of-arguments-exception make-immediate-table - _g94045_)))))) + _g94108_)))))) (define immediate-table-ref - (lambda (_%tab92758%_ _%key92759%_ _%default92760%_) - (let ((_%table92762%_ (&raw-table-table _%tab92758%_)) - (_%seed92763%_ (&raw-table-seed _%tab92758%_))) - (let* ((_%h92765%_ - (fxxor (immediate-hash _%key92759%_) _%seed92763%_)) - (_%size92768%_ (vector-length _%table92762%_)) - (_%entries92771%_ (##fxquotient _%size92768%_ '2)) - (_%start92774%_ + (lambda (_%tab92821%_ _%key92822%_ _%default92823%_) + (let ((_%table92825%_ (&raw-table-table _%tab92821%_)) + (_%seed92826%_ (&raw-table-seed _%tab92821%_))) + (let* ((_%h92828%_ + (fxxor (immediate-hash _%key92822%_) _%seed92826%_)) + (_%size92831%_ (vector-length _%table92825%_)) + (_%entries92834%_ (##fxquotient _%size92831%_ '2)) + (_%start92837%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92765%_ _%entries92771%_) + (##fxmodulo _%h92828%_ _%entries92834%_) '1))) - (let _%loop92778%_ ((_%probe92781%_ _%start92774%_) - (_%i92783%_ '1) - (_%deleted92785%_ '#f)) - (let ((_%k92788%_ (vector-ref _%table92762%_ _%probe92781%_))) - (if (eq? _%k92788%_ (macro-unused-obj)) - _%default92760%_ - (if (eq? _%k92788%_ (macro-deleted-obj)) - (_%loop92778%_ - (let ((_%next-probe92793%_ - (fx+ _%start92774%_ - _%i92783%_ - (fx* _%i92783%_ _%i92783%_)))) - (##fxmodulo _%next-probe92793%_ _%size92768%_)) - (##fx+ _%i92783%_ '1) - (let ((_%$e92796%_ _%deleted92785%_)) - (if _%$e92796%_ _%$e92796%_ _%probe92781%_))) - (if (eq? _%key92759%_ _%k92788%_) + (let _%loop92841%_ ((_%probe92844%_ _%start92837%_) + (_%i92846%_ '1) + (_%deleted92848%_ '#f)) + (let ((_%k92851%_ (vector-ref _%table92825%_ _%probe92844%_))) + (if (eq? _%k92851%_ (macro-unused-obj)) + _%default92823%_ + (if (eq? _%k92851%_ (macro-deleted-obj)) + (_%loop92841%_ + (let ((_%next-probe92856%_ + (fx+ _%start92837%_ + _%i92846%_ + (fx* _%i92846%_ _%i92846%_)))) + (##fxmodulo _%next-probe92856%_ _%size92831%_)) + (##fx+ _%i92846%_ '1) + (let ((_%$e92859%_ _%deleted92848%_)) + (if _%$e92859%_ _%$e92859%_ _%probe92844%_))) + (if (eq? _%key92822%_ _%k92851%_) (vector-ref - _%table92762%_ - (##fx+ _%probe92781%_ '1)) - (_%loop92778%_ - (let ((_%next-probe92801%_ - (fx+ _%start92774%_ - _%i92783%_ - (fx* _%i92783%_ _%i92783%_)))) - (##fxmodulo _%next-probe92801%_ _%size92768%_)) - (##fx+ _%i92783%_ '1) - _%deleted92785%_)))))))))) + _%table92825%_ + (##fx+ _%probe92844%_ '1)) + (_%loop92841%_ + (let ((_%next-probe92864%_ + (fx+ _%start92837%_ + _%i92846%_ + (fx* _%i92846%_ _%i92846%_)))) + (##fxmodulo _%next-probe92864%_ _%size92831%_)) + (##fx+ _%i92846%_ '1) + _%deleted92848%_)))))))))) (define immediate-table-set! - (lambda (_%tab92754%_ _%key92755%_ _%value92756%_) - (if (##fx< (&raw-table-free _%tab92754%_) + (lambda (_%tab92817%_ _%key92818%_ _%value92819%_) + (if (##fx< (&raw-table-free _%tab92817%_) (##fxquotient - (vector-length (&raw-table-table _%tab92754%_)) + (vector-length (&raw-table-table _%tab92817%_)) '4)) - (__raw-table-rehash! _%tab92754%_) + (__raw-table-rehash! _%tab92817%_) '#!void) - (__immediate-table-set! _%tab92754%_ _%key92755%_ _%value92756%_))) + (__immediate-table-set! _%tab92817%_ _%key92818%_ _%value92819%_))) (define __immediate-table-set! - (lambda (_%tab92705%_ _%key92706%_ _%value92707%_) - (let ((_%table92710%_ (&raw-table-table _%tab92705%_)) - (_%seed92711%_ (&raw-table-seed _%tab92705%_))) - (let* ((_%h92713%_ - (fxxor (immediate-hash _%key92706%_) _%seed92711%_)) - (_%size92716%_ (vector-length _%table92710%_)) - (_%entries92719%_ (##fxquotient _%size92716%_ '2)) - (_%start92722%_ + (lambda (_%tab92768%_ _%key92769%_ _%value92770%_) + (let ((_%table92773%_ (&raw-table-table _%tab92768%_)) + (_%seed92774%_ (&raw-table-seed _%tab92768%_))) + (let* ((_%h92776%_ + (fxxor (immediate-hash _%key92769%_) _%seed92774%_)) + (_%size92779%_ (vector-length _%table92773%_)) + (_%entries92782%_ (##fxquotient _%size92779%_ '2)) + (_%start92785%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92713%_ _%entries92719%_) + (##fxmodulo _%h92776%_ _%entries92782%_) '1))) - (let _%loop92726%_ ((_%probe92729%_ _%start92722%_) - (_%i92731%_ '1) - (_%deleted92733%_ '#f)) - (let ((_%k92736%_ (vector-ref _%table92710%_ _%probe92729%_))) - (if (eq? _%k92736%_ (macro-unused-obj)) - (if _%deleted92733%_ + (let _%loop92789%_ ((_%probe92792%_ _%start92785%_) + (_%i92794%_ '1) + (_%deleted92796%_ '#f)) + (let ((_%k92799%_ (vector-ref _%table92773%_ _%probe92792%_))) + (if (eq? _%k92799%_ (macro-unused-obj)) + (if _%deleted92796%_ (begin (vector-set! - _%table92710%_ - _%deleted92733%_ - _%key92706%_) + _%table92773%_ + _%deleted92796%_ + _%key92769%_) (vector-set! - _%table92710%_ - (##fx+ _%deleted92733%_ '1) - _%value92707%_) + _%table92773%_ + (##fx+ _%deleted92796%_ '1) + _%value92770%_) ((lambda () (&raw-table-count-set! - _%tab92705%_ - (##fx+ (&raw-table-count _%tab92705%_) '1))))) + _%tab92768%_ + (##fx+ (&raw-table-count _%tab92768%_) '1))))) (begin (vector-set! - _%table92710%_ - _%probe92729%_ - _%key92706%_) + _%table92773%_ + _%probe92792%_ + _%key92769%_) (vector-set! - _%table92710%_ - (##fx+ _%probe92729%_ '1) - _%value92707%_) + _%table92773%_ + (##fx+ _%probe92792%_ '1) + _%value92770%_) ((lambda () (&raw-table-free-set! - _%tab92705%_ - (##fx- (&raw-table-free _%tab92705%_) '1)) + _%tab92768%_ + (##fx- (&raw-table-free _%tab92768%_) '1)) (&raw-table-count-set! - _%tab92705%_ - (##fx+ (&raw-table-count _%tab92705%_) '1)))))) - (if (eq? _%k92736%_ (macro-deleted-obj)) - (_%loop92726%_ - (let ((_%next-probe92743%_ - (fx+ _%start92722%_ - _%i92731%_ - (fx* _%i92731%_ _%i92731%_)))) - (##fxmodulo _%next-probe92743%_ _%size92716%_)) - (##fx+ _%i92731%_ '1) - (let ((_%$e92746%_ _%deleted92733%_)) - (if _%$e92746%_ _%$e92746%_ _%probe92729%_))) - (if (eq? _%key92706%_ _%k92736%_) + _%tab92768%_ + (##fx+ (&raw-table-count _%tab92768%_) '1)))))) + (if (eq? _%k92799%_ (macro-deleted-obj)) + (_%loop92789%_ + (let ((_%next-probe92806%_ + (fx+ _%start92785%_ + _%i92794%_ + (fx* _%i92794%_ _%i92794%_)))) + (##fxmodulo _%next-probe92806%_ _%size92779%_)) + (##fx+ _%i92794%_ '1) + (let ((_%$e92809%_ _%deleted92796%_)) + (if _%$e92809%_ _%$e92809%_ _%probe92792%_))) + (if (eq? _%key92769%_ _%k92799%_) (let () (vector-set! - _%table92710%_ - _%probe92729%_ - _%key92706%_) + _%table92773%_ + _%probe92792%_ + _%key92769%_) (vector-set! - _%table92710%_ - (##fx+ _%probe92729%_ '1) - _%value92707%_)) - (_%loop92726%_ - (let ((_%next-probe92751%_ - (fx+ _%start92722%_ - _%i92731%_ - (fx* _%i92731%_ _%i92731%_)))) - (##fxmodulo _%next-probe92751%_ _%size92716%_)) - (##fx+ _%i92731%_ '1) - _%deleted92733%_)))))))))) + _%table92773%_ + (##fx+ _%probe92792%_ '1) + _%value92770%_)) + (_%loop92789%_ + (let ((_%next-probe92814%_ + (fx+ _%start92785%_ + _%i92794%_ + (fx* _%i92794%_ _%i92794%_)))) + (##fxmodulo _%next-probe92814%_ _%size92779%_)) + (##fx+ _%i92794%_ '1) + _%deleted92796%_)))))))))) (define immediate-table-update! - (lambda (_%tab92700%_ - _%key92701%_ - _%immediate-table-update!92702%_ - _%default92703%_) - (if (##fx< (&raw-table-free _%tab92700%_) + (lambda (_%tab92763%_ + _%key92764%_ + _%immediate-table-update!92765%_ + _%default92766%_) + (if (##fx< (&raw-table-free _%tab92763%_) (##fxquotient - (vector-length (&raw-table-table _%tab92700%_)) + (vector-length (&raw-table-table _%tab92763%_)) '4)) - (__raw-table-rehash! _%tab92700%_) + (__raw-table-rehash! _%tab92763%_) '#!void) (__immediate-table-update! - _%tab92700%_ - _%key92701%_ - _%immediate-table-update!92702%_ - _%default92703%_))) + _%tab92763%_ + _%key92764%_ + _%immediate-table-update!92765%_ + _%default92766%_))) (define __immediate-table-update! - (lambda (_%tab92650%_ - _%key92651%_ - _%immediate-table-update!92652%_ - _%default92653%_) - (let ((_%table92656%_ (&raw-table-table _%tab92650%_)) - (_%seed92657%_ (&raw-table-seed _%tab92650%_))) - (let* ((_%h92659%_ - (fxxor (immediate-hash _%key92651%_) _%seed92657%_)) - (_%size92662%_ (vector-length _%table92656%_)) - (_%entries92665%_ (##fxquotient _%size92662%_ '2)) - (_%start92668%_ + (lambda (_%tab92713%_ + _%key92714%_ + _%immediate-table-update!92715%_ + _%default92716%_) + (let ((_%table92719%_ (&raw-table-table _%tab92713%_)) + (_%seed92720%_ (&raw-table-seed _%tab92713%_))) + (let* ((_%h92722%_ + (fxxor (immediate-hash _%key92714%_) _%seed92720%_)) + (_%size92725%_ (vector-length _%table92719%_)) + (_%entries92728%_ (##fxquotient _%size92725%_ '2)) + (_%start92731%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92659%_ _%entries92665%_) + (##fxmodulo _%h92722%_ _%entries92728%_) '1))) - (let _%loop92672%_ ((_%probe92675%_ _%start92668%_) - (_%i92677%_ '1) - (_%deleted92679%_ '#f)) - (let ((_%k92682%_ (vector-ref _%table92656%_ _%probe92675%_))) - (if (eq? _%k92682%_ (macro-unused-obj)) - (if _%deleted92679%_ + (let _%loop92735%_ ((_%probe92738%_ _%start92731%_) + (_%i92740%_ '1) + (_%deleted92742%_ '#f)) + (let ((_%k92745%_ (vector-ref _%table92719%_ _%probe92738%_))) + (if (eq? _%k92745%_ (macro-unused-obj)) + (if _%deleted92742%_ (begin (vector-set! - _%table92656%_ - _%deleted92679%_ - _%key92651%_) + _%table92719%_ + _%deleted92742%_ + _%key92714%_) (vector-set! - _%table92656%_ - (##fx+ _%deleted92679%_ '1) - (_%immediate-table-update!92652%_ _%default92653%_)) + _%table92719%_ + (##fx+ _%deleted92742%_ '1) + (_%immediate-table-update!92715%_ _%default92716%_)) ((lambda () (&raw-table-count-set! - _%tab92650%_ - (##fx+ (&raw-table-count _%tab92650%_) '1))))) + _%tab92713%_ + (##fx+ (&raw-table-count _%tab92713%_) '1))))) (begin (vector-set! - _%table92656%_ - _%probe92675%_ - _%key92651%_) + _%table92719%_ + _%probe92738%_ + _%key92714%_) (vector-set! - _%table92656%_ - (##fx+ _%probe92675%_ '1) - (_%immediate-table-update!92652%_ _%default92653%_)) + _%table92719%_ + (##fx+ _%probe92738%_ '1) + (_%immediate-table-update!92715%_ _%default92716%_)) ((lambda () (&raw-table-free-set! - _%tab92650%_ - (##fx- (&raw-table-free _%tab92650%_) '1)) + _%tab92713%_ + (##fx- (&raw-table-free _%tab92713%_) '1)) (&raw-table-count-set! - _%tab92650%_ - (##fx+ (&raw-table-count _%tab92650%_) '1)))))) - (if (eq? _%k92682%_ (macro-deleted-obj)) - (_%loop92672%_ - (let ((_%next-probe92689%_ - (fx+ _%start92668%_ - _%i92677%_ - (fx* _%i92677%_ _%i92677%_)))) - (##fxmodulo _%next-probe92689%_ _%size92662%_)) - (##fx+ _%i92677%_ '1) - (let ((_%$e92692%_ _%deleted92679%_)) - (if _%$e92692%_ _%$e92692%_ _%probe92675%_))) - (if (eq? _%key92651%_ _%k92682%_) + _%tab92713%_ + (##fx+ (&raw-table-count _%tab92713%_) '1)))))) + (if (eq? _%k92745%_ (macro-deleted-obj)) + (_%loop92735%_ + (let ((_%next-probe92752%_ + (fx+ _%start92731%_ + _%i92740%_ + (fx* _%i92740%_ _%i92740%_)))) + (##fxmodulo _%next-probe92752%_ _%size92725%_)) + (##fx+ _%i92740%_ '1) + (let ((_%$e92755%_ _%deleted92742%_)) + (if _%$e92755%_ _%$e92755%_ _%probe92738%_))) + (if (eq? _%key92714%_ _%k92745%_) (let () (vector-set! - _%table92656%_ - _%probe92675%_ - _%key92651%_) + _%table92719%_ + _%probe92738%_ + _%key92714%_) (vector-set! - _%table92656%_ - (##fx+ _%probe92675%_ '1) - (_%immediate-table-update!92652%_ + _%table92719%_ + (##fx+ _%probe92738%_ '1) + (_%immediate-table-update!92715%_ (vector-ref - _%table92656%_ - (##fx+ _%probe92675%_ '1))))) - (_%loop92672%_ - (let ((_%next-probe92697%_ - (fx+ _%start92668%_ - _%i92677%_ - (fx* _%i92677%_ _%i92677%_)))) - (##fxmodulo _%next-probe92697%_ _%size92662%_)) - (##fx+ _%i92677%_ '1) - _%deleted92679%_)))))))))) + _%table92719%_ + (##fx+ _%probe92738%_ '1))))) + (_%loop92735%_ + (let ((_%next-probe92760%_ + (fx+ _%start92731%_ + _%i92740%_ + (fx* _%i92740%_ _%i92740%_)))) + (##fxmodulo _%next-probe92760%_ _%size92725%_)) + (##fx+ _%i92740%_ '1) + _%deleted92742%_)))))))))) (define immediate-table-delete! - (lambda (_%tab92605%_ _%key92607%_) - (let ((_%table92610%_ (&raw-table-table _%tab92605%_)) - (_%seed92612%_ (&raw-table-seed _%tab92605%_))) - (let* ((_%h92615%_ - (fxxor (immediate-hash _%key92607%_) _%seed92612%_)) - (_%size92618%_ (vector-length _%table92610%_)) - (_%entries92621%_ (##fxquotient _%size92618%_ '2)) - (_%start92624%_ + (lambda (_%tab92668%_ _%key92670%_) + (let ((_%table92673%_ (&raw-table-table _%tab92668%_)) + (_%seed92675%_ (&raw-table-seed _%tab92668%_))) + (let* ((_%h92678%_ + (fxxor (immediate-hash _%key92670%_) _%seed92675%_)) + (_%size92681%_ (vector-length _%table92673%_)) + (_%entries92684%_ (##fxquotient _%size92681%_ '2)) + (_%start92687%_ (##fxarithmetic-shift-left - (##fxmodulo _%h92615%_ _%entries92621%_) + (##fxmodulo _%h92678%_ _%entries92684%_) '1))) - (let _%loop92628%_ ((_%probe92631%_ _%start92624%_) - (_%i92633%_ '1)) - (let ((_%k92636%_ (vector-ref _%table92610%_ _%probe92631%_))) - (if (eq? _%k92636%_ (macro-unused-obj)) + (let _%loop92691%_ ((_%probe92694%_ _%start92687%_) + (_%i92696%_ '1)) + (let ((_%k92699%_ (vector-ref _%table92673%_ _%probe92694%_))) + (if (eq? _%k92699%_ (macro-unused-obj)) '#!void - (if (eq? _%k92636%_ (macro-deleted-obj)) - (_%loop92628%_ - (let ((_%next-probe92641%_ - (fx+ _%start92624%_ - _%i92633%_ - (fx* _%i92633%_ _%i92633%_)))) - (##fxmodulo _%next-probe92641%_ _%size92618%_)) - (##fx+ _%i92633%_ '1)) - (if (eq? _%key92607%_ _%k92636%_) + (if (eq? _%k92699%_ (macro-deleted-obj)) + (_%loop92691%_ + (let ((_%next-probe92704%_ + (fx+ _%start92687%_ + _%i92696%_ + (fx* _%i92696%_ _%i92696%_)))) + (##fxmodulo _%next-probe92704%_ _%size92681%_)) + (##fx+ _%i92696%_ '1)) + (if (eq? _%key92670%_ _%k92699%_) (let () (vector-set! - _%table92610%_ - _%probe92631%_ + _%table92673%_ + _%probe92694%_ (macro-deleted-obj)) (vector-set! - _%table92610%_ - (##fx+ _%probe92631%_ '1) + _%table92673%_ + (##fx+ _%probe92694%_ '1) (macro-absent-obj)) ((lambda () (&raw-table-count-set! - _%tab92605%_ - (##fx- (&raw-table-count _%tab92605%_) + _%tab92668%_ + (##fx- (&raw-table-count _%tab92668%_) '1))))) - (_%loop92628%_ - (let ((_%next-probe92647%_ - (fx+ _%start92624%_ - _%i92633%_ - (fx* _%i92633%_ _%i92633%_)))) - (##fxmodulo _%next-probe92647%_ _%size92618%_)) - (##fx+ _%i92633%_ '1))))))))))) + (_%loop92691%_ + (let ((_%next-probe92710%_ + (fx+ _%start92687%_ + _%i92696%_ + (fx* _%i92696%_ _%i92696%_)))) + (##fxmodulo _%next-probe92710%_ _%size92681%_)) + (##fx+ _%i92696%_ '1))))))))))) (define __gc-table::t.id 'gerbil#__gc-table::t) (define __gc-table::t (##structure @@ -1997,235 +1997,235 @@ '#(gcht 5 #f immediate 5 #f))) (define __gc-table-loads '#f64(.45 .6363961030678927 .9)) (define &gc-table-gcht - (lambda (_%tab92603%_) + (lambda (_%tab92666%_) (##unchecked-structure-ref - _%tab92603%_ + _%tab92666%_ '1 __gc-table::t 'gc-table-gcht))) (define &gc-table-immediate - (lambda (_%tab92601%_) + (lambda (_%tab92664%_) (##unchecked-structure-ref - _%tab92601%_ + _%tab92664%_ '2 __gc-table::t 'gc-table-immediate))) (define &gc-table-gcht-set! - (lambda (_%tab92598%_ _%val92599%_) + (lambda (_%tab92661%_ _%val92662%_) (##unchecked-structure-set! - _%tab92598%_ - _%val92599%_ + _%tab92661%_ + _%val92662%_ '1 __gc-table::t 'gc-table-gcht-set!))) (define &gc-table-immediate-set! - (lambda (_%tab92595%_ _%val92596%_) + (lambda (_%tab92658%_ _%val92659%_) (##unchecked-structure-set! - _%tab92595%_ - _%val92596%_ + _%tab92658%_ + _%val92659%_ '2 __gc-table::t 'gc-table-immediate-set!))) (define make-gc-table__% - (lambda (_%size-hint92571%_ _%klass92572%_ _%flags92573%_) - (let ((_%gcht92575%_ + (lambda (_%size-hint92634%_ _%klass92635%_ _%flags92636%_) + (let ((_%gcht92638%_ (__gc-table-new - (if (fixnum? _%size-hint92571%_) _%size-hint92571%_ '16) - _%flags92573%_))) - (##structure _%klass92572%_ _%gcht92575%_ '#f)))) + (if (fixnum? _%size-hint92634%_) _%size-hint92634%_ '16) + _%flags92636%_))) + (##structure _%klass92635%_ _%gcht92638%_ '#f)))) (define make-gc-table__0 - (lambda (_%size-hint92580%_) - (let* ((_%klass92582%_ __gc-table::t) (_%flags92584%_ '0)) + (lambda (_%size-hint92643%_) + (let* ((_%klass92645%_ __gc-table::t) (_%flags92647%_ '0)) (make-gc-table__% - _%size-hint92580%_ - _%klass92582%_ - _%flags92584%_)))) + _%size-hint92643%_ + _%klass92645%_ + _%flags92647%_)))) (define make-gc-table__1 - (lambda (_%size-hint92586%_ _%klass92587%_) - (let ((_%flags92589%_ '0)) + (lambda (_%size-hint92649%_ _%klass92650%_) + (let ((_%flags92652%_ '0)) (make-gc-table__% - _%size-hint92586%_ - _%klass92587%_ - _%flags92589%_)))) + _%size-hint92649%_ + _%klass92650%_ + _%flags92652%_)))) (define make-gc-table - (lambda _g94047_ - (let ((_g94046_ (##length _g94047_))) - (cond ((##fx= _g94046_ 1) (apply make-gc-table__0 _g94047_)) - ((##fx= _g94046_ 2) (apply make-gc-table__1 _g94047_)) - ((##fx= _g94046_ 3) (apply make-gc-table__% _g94047_)) + (lambda _g94110_ + (let ((_g94109_ (##length _g94110_))) + (cond ((##fx= _g94109_ 1) (apply make-gc-table__0 _g94110_)) + ((##fx= _g94109_ 2) (apply make-gc-table__1 _g94110_)) + ((##fx= _g94109_ 3) (apply make-gc-table__% _g94110_)) (else (##raise-wrong-number-of-arguments-exception make-gc-table - _g94047_)))))) + _g94110_)))))) (define __gc-table-immediate - (lambda (_%tab92562%_) - (let ((_%$e92564%_ (&gc-table-immediate _%tab92562%_))) - (if _%$e92564%_ - _%$e92564%_ - (let ((_%immediate92568%_ (make-immediate-table__% '#f '0))) - (&gc-table-immediate-set! _%tab92562%_ _%immediate92568%_) - _%immediate92568%_))))) + (lambda (_%tab92625%_) + (let ((_%$e92627%_ (&gc-table-immediate _%tab92625%_))) + (if _%$e92627%_ + _%$e92627%_ + (let ((_%immediate92631%_ (make-immediate-table__% '#f '0))) + (&gc-table-immediate-set! _%tab92625%_ _%immediate92631%_) + _%immediate92631%_))))) (define __gc-table-new - (lambda (_%size92552%_ _%flags92553%_) - (let* ((_%flags92555%_ - (##fxand _%flags92553%_ + (lambda (_%size92615%_ _%flags92616%_) + (let* ((_%flags92618%_ + (##fxand _%flags92616%_ (fxnot (macro-gc-hash-table-flag-need-rehash)))) - (_%flags92557%_ - (fxior _%flags92555%_ + (_%flags92620%_ + (fxior _%flags92618%_ (macro-gc-hash-table-flag-mem-alloc-keys))) - (_%gcht92559%_ + (_%gcht92622%_ (##gc-hash-table-allocate - _%size92552%_ - _%flags92557%_ + _%size92615%_ + _%flags92620%_ __gc-table-loads))) - _%gcht92559%_))) + _%gcht92622%_))) (define __gc-table-e - (lambda (_%tab92547%_) + (lambda (_%tab92610%_) (declare (not interrupts-enabled)) - (let ((_%gcht92550%_ (&gc-table-gcht _%tab92547%_))) + (let ((_%gcht92613%_ (&gc-table-gcht _%tab92610%_))) (if (##fx= '0 - (fxand (macro-gc-hash-table-flags _%gcht92550%_) + (fxand (macro-gc-hash-table-flags _%gcht92613%_) (macro-gc-hash-table-flag-need-rehash))) - _%gcht92550%_ + _%gcht92613%_ (begin - (__gc-table-rehash! _%tab92547%_) - (&gc-table-gcht _%tab92547%_)))))) + (__gc-table-rehash! _%tab92610%_) + (&gc-table-gcht _%tab92610%_)))))) (define __gc-table-rehash! - (lambda (_%tab92538%_) - (let* ((_%old-table92540%_ (&gc-table-gcht _%tab92538%_)) - (_%new-table92542%_ - (##gc-hash-table-resize! _%old-table92540%_ __gc-table-loads)) - (_%gcht92544%_ + (lambda (_%tab92601%_) + (let* ((_%old-table92603%_ (&gc-table-gcht _%tab92601%_)) + (_%new-table92605%_ + (##gc-hash-table-resize! _%old-table92603%_ __gc-table-loads)) + (_%gcht92607%_ (##gc-hash-table-rehash! - _%old-table92540%_ - _%new-table92542%_))) - (&gc-table-gcht-set! _%tab92538%_ _%gcht92544%_)))) + _%old-table92603%_ + _%new-table92605%_))) + (&gc-table-gcht-set! _%tab92601%_ _%gcht92607%_)))) (define gc-table-ref - (lambda (_%tab92522%_ _%key92523%_ _%default92524%_) + (lambda (_%tab92585%_ _%key92586%_ _%default92587%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92523%_) - (let* ((_%gcht92528%_ (__gc-table-e _%tab92522%_)) - (_%value92530%_ - (##gc-hash-table-ref _%gcht92528%_ _%key92523%_))) - (if (eq? _%value92530%_ (macro-unused-obj)) - _%default92524%_ - _%value92530%_)) - (let ((_%$e92532%_ (&gc-table-immediate _%tab92522%_))) - (if _%$e92532%_ - ((lambda (_%immediate92535%_) + (if (##mem-allocated? _%key92586%_) + (let* ((_%gcht92591%_ (__gc-table-e _%tab92585%_)) + (_%value92593%_ + (##gc-hash-table-ref _%gcht92591%_ _%key92586%_))) + (if (eq? _%value92593%_ (macro-unused-obj)) + _%default92587%_ + _%value92593%_)) + (let ((_%$e92595%_ (&gc-table-immediate _%tab92585%_))) + (if _%$e92595%_ + ((lambda (_%immediate92598%_) (immediate-table-ref - _%immediate92535%_ - _%key92523%_ - _%default92524%_)) - _%$e92532%_) - _%default92524%_))))) + _%immediate92598%_ + _%key92586%_ + _%default92587%_)) + _%$e92595%_) + _%default92587%_))))) (define gc-table-set! - (lambda (_%tab92515%_ _%key92516%_ _%value92517%_) + (lambda (_%tab92578%_ _%key92579%_ _%value92580%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92516%_) - (let ((_%gcht92520%_ (__gc-table-e _%tab92515%_))) + (if (##mem-allocated? _%key92579%_) + (let ((_%gcht92583%_ (__gc-table-e _%tab92578%_))) (if (##gc-hash-table-set! - _%gcht92520%_ - _%key92516%_ - _%value92517%_) + _%gcht92583%_ + _%key92579%_ + _%value92580%_) (begin - (__gc-table-rehash! _%tab92515%_) - (gc-table-set! _%tab92515%_ _%key92516%_ _%value92517%_)) + (__gc-table-rehash! _%tab92578%_) + (gc-table-set! _%tab92578%_ _%key92579%_ _%value92580%_)) '#!void)) (immediate-table-set! - (__gc-table-immediate _%tab92515%_) - _%key92516%_ - _%value92517%_)))) + (__gc-table-immediate _%tab92578%_) + _%key92579%_ + _%value92580%_)))) (define gc-table-update! - (lambda (_%tab92508%_ _%key92509%_ _%update92510%_ _%default92511%_) - (if (##mem-allocated? _%key92509%_) - (let ((_%value92513%_ - (gc-table-ref _%tab92508%_ _%key92509%_ _%default92511%_))) + (lambda (_%tab92571%_ _%key92572%_ _%update92573%_ _%default92574%_) + (if (##mem-allocated? _%key92572%_) + (let ((_%value92576%_ + (gc-table-ref _%tab92571%_ _%key92572%_ _%default92574%_))) (gc-table-set! - _%tab92508%_ - _%key92509%_ - (_%update92510%_ _%value92513%_))) + _%tab92571%_ + _%key92572%_ + (_%update92573%_ _%value92576%_))) (immediate-table-update! - (__gc-table-immediate _%tab92508%_) - _%key92509%_ - _%update92510%_ - _%default92511%_)))) + (__gc-table-immediate _%tab92571%_) + _%key92572%_ + _%update92573%_ + _%default92574%_)))) (define gc-table-delete! - (lambda (_%tab92496%_ _%key92497%_) + (lambda (_%tab92559%_ _%key92560%_) (declare (not interrupts-enabled)) - (if (##mem-allocated? _%key92497%_) - (let ((_%gcht92501%_ (__gc-table-e _%tab92496%_))) + (if (##mem-allocated? _%key92560%_) + (let ((_%gcht92564%_ (__gc-table-e _%tab92559%_))) (if (##gc-hash-table-set! - _%gcht92501%_ - _%key92497%_ + _%gcht92564%_ + _%key92560%_ (macro-absent-obj)) (begin - (__gc-table-rehash! _%tab92496%_) - (gc-table-delete! _%tab92496%_ _%key92497%_)) + (__gc-table-rehash! _%tab92559%_) + (gc-table-delete! _%tab92559%_ _%key92560%_)) '#!void)) - (let ((_%$e92503%_ (&gc-table-immediate _%tab92496%_))) - (if _%$e92503%_ - ((lambda (_%immediate92506%_) - (immediate-table-delete! _%immediate92506%_ _%key92497%_)) - _%$e92503%_) + (let ((_%$e92566%_ (&gc-table-immediate _%tab92559%_))) + (if _%$e92566%_ + ((lambda (_%immediate92569%_) + (immediate-table-delete! _%immediate92569%_ _%key92560%_)) + _%$e92566%_) '#!void))))) (define gc-table-for-each - (lambda (_%tab92477%_ _%proc92478%_) + (lambda (_%tab92540%_ _%proc92541%_) (declare (not interrupts-enabled)) (begin - (let ((_%gcht92481%_ (__gc-table-e _%tab92477%_))) - (let _%loop92483%_ ((_%i92485%_ (macro-gc-hash-table-key0))) - (if (##fx< _%i92485%_ (##vector-length _%gcht92481%_)) - (let ((_%key92487%_ (##vector-ref _%gcht92481%_ _%i92485%_))) - (if (if (eq? _%key92487%_ (macro-unused-obj)) + (let ((_%gcht92544%_ (__gc-table-e _%tab92540%_))) + (let _%loop92546%_ ((_%i92548%_ (macro-gc-hash-table-key0))) + (if (##fx< _%i92548%_ (##vector-length _%gcht92544%_)) + (let ((_%key92550%_ (##vector-ref _%gcht92544%_ _%i92548%_))) + (if (if (eq? _%key92550%_ (macro-unused-obj)) '#f - (not (eq? _%key92487%_ (macro-deleted-obj)))) - (_%proc92478%_ - _%key92487%_ - (##vector-ref _%gcht92481%_ (##fx+ _%i92485%_ '1))) + (not (eq? _%key92550%_ (macro-deleted-obj)))) + (_%proc92541%_ + _%key92550%_ + (##vector-ref _%gcht92544%_ (##fx+ _%i92548%_ '1))) '#!void) (let () (declare (interrupts-enabled)) - (_%loop92483%_ (##fx+ _%i92485%_ '2)))) + (_%loop92546%_ (##fx+ _%i92548%_ '2)))) '#!void))) - (let ((_%$e92491%_ (&gc-table-immediate _%tab92477%_))) - (if _%$e92491%_ - ((lambda (_%immediate92494%_) - (raw-table-for-each _%immediate92494%_ _%proc92478%_)) - _%$e92491%_) + (let ((_%$e92554%_ (&gc-table-immediate _%tab92540%_))) + (if _%$e92554%_ + ((lambda (_%immediate92557%_) + (raw-table-for-each _%immediate92557%_ _%proc92541%_)) + _%$e92554%_) '#!void))))) (define gc-table-copy - (lambda (_%tab92465%_) - (let* ((_%gcht92467%_ (__gc-table-e _%tab92465%_)) - (_%new-table92469%_ + (lambda (_%tab92528%_) + (let* ((_%gcht92530%_ (__gc-table-e _%tab92528%_)) + (_%new-table92532%_ (__gc-table-new - (macro-gc-hash-table-count _%gcht92467%_) - (macro-gc-hash-table-flags _%gcht92467%_))) - (_%result92471%_ + (macro-gc-hash-table-count _%gcht92530%_) + (macro-gc-hash-table-flags _%gcht92530%_))) + (_%result92534%_ (##structure - (##structure-type _%tab92465%_) - _%new-table92469%_ + (##structure-type _%tab92528%_) + _%new-table92532%_ '#f))) (gc-table-for-each - _%tab92465%_ - (lambda (_%k92474%_ _%v92475%_) - (gc-table-set! _%result92471%_ _%k92474%_ _%v92475%_))) - _%result92471%_))) + _%tab92528%_ + (lambda (_%k92537%_ _%v92538%_) + (gc-table-set! _%result92534%_ _%k92537%_ _%v92538%_))) + _%result92534%_))) (define gc-table-clear! - (lambda (_%tab92458%_) - (let* ((_%gcht92460%_ (__gc-table-e _%tab92458%_)) - (_%new-table92462%_ + (lambda (_%tab92521%_) + (let* ((_%gcht92523%_ (__gc-table-e _%tab92521%_)) + (_%new-table92525%_ (__gc-table-new '16 - (macro-gc-hash-table-flags _%gcht92460%_)))) - (&gc-table-gcht-set! _%tab92458%_ _%new-table92462%_) - (&gc-table-immediate-set! _%tab92458%_ '#f)))) + (macro-gc-hash-table-flags _%gcht92523%_)))) + (&gc-table-gcht-set! _%tab92521%_ _%new-table92525%_) + (&gc-table-immediate-set! _%tab92521%_ '#f)))) (define gc-table-length - (lambda (_%tab92450%_) - (let ((_%gcht92452%_ (__gc-table-e _%tab92450%_))) - (fx+ (macro-gc-hash-table-count _%gcht92452%_) - (let ((_%$e92454%_ (&gc-table-immediate _%tab92450%_))) - (if _%$e92454%_ (&raw-table-count _%$e92454%_) '0)))))) + (lambda (_%tab92513%_) + (let ((_%gcht92515%_ (__gc-table-e _%tab92513%_))) + (fx+ (macro-gc-hash-table-count _%gcht92515%_) + (let ((_%$e92517%_ (&gc-table-immediate _%tab92513%_))) + (if _%$e92517%_ (&raw-table-count _%$e92517%_) '0)))))) (define __object-eq-hash-next '0) (define __object-eq-hash (make-gc-table__% @@ -2233,18 +2233,18 @@ __gc-table::t (macro-gc-hash-table-flag-weak-keys))) (define __object->eq-hash - (lambda (_%obj92435%_) + (lambda (_%obj92498%_) (declare (not interrupts-enabled)) - (let ((_%val92438%_ (gc-table-ref __object-eq-hash _%obj92435%_ '#f))) - (if _%val92438%_ - _%val92438%_ - (let* ((_%mix92440%_ __object-eq-hash-next) - (_%ptr92442%_ (##type-cast _%obj92435%_ '0)) - (_%h92444%_ - (fxand (fxxor _%mix92440%_ _%ptr92442%_) + (let ((_%val92501%_ (gc-table-ref __object-eq-hash _%obj92498%_ '#f))) + (if _%val92501%_ + _%val92501%_ + (let* ((_%mix92503%_ __object-eq-hash-next) + (_%ptr92505%_ (##type-cast _%obj92498%_ '0)) + (_%h92507%_ + (fxand (fxxor _%mix92503%_ _%ptr92505%_) (macro-max-fixnum32)))) (set! __object-eq-hash-next - (let ((_%$e92447%_ (##fx+? __object-eq-hash-next '1))) - (if _%$e92447%_ _%$e92447%_ '0))) - (gc-table-set! __object-eq-hash _%obj92435%_ _%h92444%_) - _%h92444%_))))))) + (let ((_%$e92510%_ (##fx+? __object-eq-hash-next '1))) + (if _%$e92510%_ _%$e92510%_ '0))) + (gc-table-set! __object-eq-hash _%obj92498%_ _%h92507%_) + _%h92507%_))))))) diff --git a/src/bootstrap/gerbil/runtime/table~1.scm b/src/bootstrap/gerbil/runtime/table~1.scm index 90b01411e..52bced356 100644 --- a/src/bootstrap/gerbil/runtime/table~1.scm +++ b/src/bootstrap/gerbil/runtime/table~1.scm @@ -1,182 +1,182 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin (define |[:0:]#__symbolic-hash| - (lambda (_%$stx91363%_) - (let* ((_%g9136791381%_ - (lambda (_%g9136891377%_) + (lambda (_%$stx91426%_) + (let* ((_%g9143091444%_ + (lambda (_%g9143191440%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9136891377%_))) - (_%g9136691423%_ - (lambda (_%g9136891385%_) - (if (gx#stx-pair? _%g9136891385%_) - (let ((_%e9137091388%_ (gx#syntax-e _%g9136891385%_))) - (let ((_%hd9137191392%_ + _%g9143191440%_))) + (_%g9142991486%_ + (lambda (_%g9143191448%_) + (if (gx#stx-pair? _%g9143191448%_) + (let ((_%e9143391451%_ (gx#syntax-e _%g9143191448%_))) + (let ((_%hd9143491455%_ (let () (declare (not safe)) - (##car _%e9137091388%_))) - (_%tl9137291395%_ + (##car _%e9143391451%_))) + (_%tl9143591458%_ (let () (declare (not safe)) - (##cdr _%e9137091388%_)))) - (if (gx#stx-pair? _%tl9137291395%_) - (let ((_%e9137391398%_ - (gx#syntax-e _%tl9137291395%_))) - (let ((_%hd9137491402%_ + (##cdr _%e9143391451%_)))) + (if (gx#stx-pair? _%tl9143591458%_) + (let ((_%e9143691461%_ + (gx#syntax-e _%tl9143591458%_))) + (let ((_%hd9143791465%_ (let () (declare (not safe)) - (##car _%e9137391398%_))) - (_%tl9137591405%_ + (##car _%e9143691461%_))) + (_%tl9143891468%_ (let () (declare (not safe)) - (##cdr _%e9137391398%_)))) - (if (gx#stx-null? _%tl9137591405%_) - ((lambda (_%L91408%_) + (##cdr _%e9143691461%_)))) + (if (gx#stx-null? _%tl9143891468%_) + ((lambda (_%L91471%_) (cons (gx#datum->syntax '#f 'macro-slot) - (cons '1 (cons _%L91408%_ '())))) - _%hd9137491402%_) - (_%g9136791381%_ _%g9136891385%_)))) - (_%g9136791381%_ _%g9136891385%_)))) - (_%g9136791381%_ _%g9136891385%_))))) - (_%g9136691423%_ _%$stx91363%_)))) + (cons '1 (cons _%L91471%_ '())))) + _%hd9143791465%_) + (_%g9143091444%_ _%g9143191448%_)))) + (_%g9143091444%_ _%g9143191448%_)))) + (_%g9143091444%_ _%g9143191448%_))))) + (_%g9142991486%_ _%$stx91426%_)))) (define |[:0:]#defspecialized-table| - (lambda (_%$stx91427%_) - (let* ((_%g9143191477%_ - (lambda (_%g9143291473%_) + (lambda (_%$stx91490%_) + (let* ((_%g9149491540%_ + (lambda (_%g9149591536%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9143291473%_))) - (_%g9143091630%_ - (lambda (_%g9143291481%_) - (if (gx#stx-pair? _%g9143291481%_) - (let ((_%e9144291484%_ (gx#syntax-e _%g9143291481%_))) - (let ((_%hd9144391488%_ + _%g9149591536%_))) + (_%g9149391693%_ + (lambda (_%g9149591544%_) + (if (gx#stx-pair? _%g9149591544%_) + (let ((_%e9150591547%_ (gx#syntax-e _%g9149591544%_))) + (let ((_%hd9150691551%_ (let () (declare (not safe)) - (##car _%e9144291484%_))) - (_%tl9144491491%_ + (##car _%e9150591547%_))) + (_%tl9150791554%_ (let () (declare (not safe)) - (##cdr _%e9144291484%_)))) - (if (gx#stx-pair? _%tl9144491491%_) - (let ((_%e9144591494%_ - (gx#syntax-e _%tl9144491491%_))) - (let ((_%hd9144691498%_ + (##cdr _%e9150591547%_)))) + (if (gx#stx-pair? _%tl9150791554%_) + (let ((_%e9150891557%_ + (gx#syntax-e _%tl9150791554%_))) + (let ((_%hd9150991561%_ (let () (declare (not safe)) - (##car _%e9144591494%_))) - (_%tl9144791501%_ + (##car _%e9150891557%_))) + (_%tl9151091564%_ (let () (declare (not safe)) - (##cdr _%e9144591494%_)))) - (if (gx#stx-pair? _%tl9144791501%_) - (let ((_%e9144891504%_ - (gx#syntax-e _%tl9144791501%_))) - (let ((_%hd9144991508%_ + (##cdr _%e9150891557%_)))) + (if (gx#stx-pair? _%tl9151091564%_) + (let ((_%e9151191567%_ + (gx#syntax-e _%tl9151091564%_))) + (let ((_%hd9151291571%_ (let () (declare (not safe)) - (##car _%e9144891504%_))) - (_%tl9145091511%_ + (##car _%e9151191567%_))) + (_%tl9151391574%_ (let () (declare (not safe)) - (##cdr _%e9144891504%_)))) - (if (gx#stx-pair? _%tl9145091511%_) - (let ((_%e9145191514%_ + (##cdr _%e9151191567%_)))) + (if (gx#stx-pair? _%tl9151391574%_) + (let ((_%e9151491577%_ (gx#syntax-e - _%tl9145091511%_))) - (let ((_%hd9145291518%_ + _%tl9151391574%_))) + (let ((_%hd9151591581%_ (let () (declare (not safe)) - (##car _%e9145191514%_))) - (_%tl9145391521%_ + (##car _%e9151491577%_))) + (_%tl9151691584%_ (let () (declare (not safe)) - (##cdr _%e9145191514%_)))) + (##cdr _%e9151491577%_)))) (if (gx#stx-pair? - _%tl9145391521%_) - (let ((_%e9145491524%_ + _%tl9151691584%_) + (let ((_%e9151791587%_ (gx#syntax-e - _%tl9145391521%_))) - (let ((_%hd9145591528%_ + _%tl9151691584%_))) + (let ((_%hd9151891591%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9145491524%_))) - (_%tl9145691531%_ - (let () (declare (not safe)) (##cdr _%e9145491524%_)))) - (if (gx#stx-pair? _%tl9145691531%_) - (let ((_%e9145791534%_ (gx#syntax-e _%tl9145691531%_))) - (let ((_%hd9145891538%_ + (##car _%e9151791587%_))) + (_%tl9151991594%_ + (let () (declare (not safe)) (##cdr _%e9151791587%_)))) + (if (gx#stx-pair? _%tl9151991594%_) + (let ((_%e9152091597%_ (gx#syntax-e _%tl9151991594%_))) + (let ((_%hd9152191601%_ (let () (declare (not safe)) - (##car _%e9145791534%_))) - (_%tl9145991541%_ + (##car _%e9152091597%_))) + (_%tl9152291604%_ (let () (declare (not safe)) - (##cdr _%e9145791534%_)))) - (if (gx#stx-pair? _%tl9145991541%_) - (let ((_%e9146091544%_ - (gx#syntax-e _%tl9145991541%_))) - (let ((_%hd9146191548%_ + (##cdr _%e9152091597%_)))) + (if (gx#stx-pair? _%tl9152291604%_) + (let ((_%e9152391607%_ + (gx#syntax-e _%tl9152291604%_))) + (let ((_%hd9152491611%_ (let () (declare (not safe)) - (##car _%e9146091544%_))) - (_%tl9146291551%_ + (##car _%e9152391607%_))) + (_%tl9152591614%_ (let () (declare (not safe)) - (##cdr _%e9146091544%_)))) - (if (gx#stx-pair? _%tl9146291551%_) - (let ((_%e9146391554%_ - (gx#syntax-e _%tl9146291551%_))) - (let ((_%hd9146491558%_ + (##cdr _%e9152391607%_)))) + (if (gx#stx-pair? _%tl9152591614%_) + (let ((_%e9152691617%_ + (gx#syntax-e _%tl9152591614%_))) + (let ((_%hd9152791621%_ (let () (declare (not safe)) - (##car _%e9146391554%_))) - (_%tl9146591561%_ + (##car _%e9152691617%_))) + (_%tl9152891624%_ (let () (declare (not safe)) - (##cdr _%e9146391554%_)))) - (if (gx#stx-pair? _%tl9146591561%_) - (let ((_%e9146691564%_ + (##cdr _%e9152691617%_)))) + (if (gx#stx-pair? _%tl9152891624%_) + (let ((_%e9152991627%_ (gx#syntax-e - _%tl9146591561%_))) - (let ((_%hd9146791568%_ + _%tl9152891624%_))) + (let ((_%hd9153091631%_ (let () (declare (not safe)) - (##car _%e9146691564%_))) - (_%tl9146891571%_ + (##car _%e9152991627%_))) + (_%tl9153191634%_ (let () (declare (not safe)) - (##cdr _%e9146691564%_)))) + (##cdr _%e9152991627%_)))) (if (gx#stx-pair? - _%tl9146891571%_) - (let ((_%e9146991574%_ + _%tl9153191634%_) + (let ((_%e9153291637%_ (gx#syntax-e - _%tl9146891571%_))) - (let ((_%hd9147091578%_ + _%tl9153191634%_))) + (let ((_%hd9153391641%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9146991574%_))) - (_%tl9147191581%_ - (let () (declare (not safe)) (##cdr _%e9146991574%_)))) - (if (gx#stx-null? _%tl9147191581%_) - ((lambda (_%L91584%_ - _%L91586%_ - _%L91587%_ - _%L91588%_ - _%L91589%_ - _%L91590%_ - _%L91591%_ - _%L91592%_ - _%L91593%_) + (##car _%e9153291637%_))) + (_%tl9153491644%_ + (let () (declare (not safe)) (##cdr _%e9153291637%_)))) + (if (gx#stx-null? _%tl9153491644%_) + ((lambda (_%L91647%_ + _%L91649%_ + _%L91650%_ + _%L91651%_ + _%L91652%_ + _%L91653%_ + _%L91654%_ + _%L91655%_ + _%L91656%_) (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91593%_ + (cons (cons _%L91656%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -192,14 +192,14 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'size-hint) - (cons _%L91586%_ - (cons _%L91584%_ + (cons _%L91649%_ + (cons _%L91647%_ (cons (gx#datum->syntax '#f 'seed) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91592%_ + (cons (cons _%L91655%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -237,8 +237,8 @@ (cons (gx#datum->syntax '#f 'seed) - (cons _%L91586%_ - (cons _%L91584%_ + (cons _%L91649%_ + (cons _%L91647%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'default) @@ -250,7 +250,7 @@ (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91591%_ + (cons (cons _%L91654%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -289,7 +289,7 @@ 'tab) '())) '()))) - (cons (cons _%L91590%_ + (cons (cons _%L91653%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax @@ -301,7 +301,7 @@ (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91590%_ + (cons (cons _%L91653%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) @@ -339,8 +339,8 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'seed) - (cons _%L91586%_ - (cons _%L91584%_ + (cons _%L91649%_ + (cons _%L91647%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f @@ -421,10 +421,10 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'def) - (cons (cons _%L91589%_ + (cons (cons _%L91652%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91589%_ + (cons _%L91652%_ (cons (gx#datum->syntax '#f 'default) @@ -463,25 +463,25 @@ '())) '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons _%L91588%_ + (cons (cons _%L91651%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91589%_ + (cons _%L91652%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'default) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91588%_ + (cons (cons _%L91651%_ (cons (gx#datum->syntax '#f 'tab) (cons (gx#datum->syntax '#f 'key) - (cons _%L91589%_ + (cons _%L91652%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -507,12 +507,12 @@ (cons (cons (gx#datum->syntax '#f '__table-update!) (cons (gx#datum->syntax '#f 'table) (cons (gx#datum->syntax '#f 'seed) - (cons _%L91586%_ - (cons _%L91584%_ + (cons _%L91649%_ + (cons _%L91647%_ (cons (gx#datum->syntax '#f 'key) - (cons _%L91589%_ + (cons _%L91652%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -582,7 +582,7 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L91587%_ + (cons (cons _%L91650%_ (cons (gx#datum->syntax '#f 'tab) @@ -616,8 +616,8 @@ (cons (cons (gx#datum->syntax '#f '__table-del!) (cons (gx#datum->syntax '#f 'table) (cons (gx#datum->syntax '#f 'seed) - (cons _%L91586%_ - (cons _%L91584%_ + (cons _%L91649%_ + (cons _%L91647%_ (cons (gx#datum->syntax '#f 'key) @@ -651,92 +651,92 @@ '()))) '()))))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9147091578%_ - _%hd9146791568%_ - _%hd9146491558%_ - _%hd9146191548%_ - _%hd9145891538%_ - _%hd9145591528%_ - _%hd9145291518%_ - _%hd9144991508%_ - _%hd9144691498%_) - (_%g9143191477%_ _%g9143291481%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9143191477%_ - _%g9143291481%_)))) - (_%g9143191477%_ - _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9143191477%_ - _%g9143291481%_)))) - (_%g9143191477%_ - _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_)))) - (_%g9143191477%_ _%g9143291481%_))))) - (_%g9143091630%_ _%$stx91427%_)))) + _%hd9153391641%_ + _%hd9153091631%_ + _%hd9152791621%_ + _%hd9152491611%_ + _%hd9152191601%_ + _%hd9151891591%_ + _%hd9151591581%_ + _%hd9151291571%_ + _%hd9150991561%_) + (_%g9149491540%_ _%g9149591544%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9149491540%_ + _%g9149591544%_)))) + (_%g9149491540%_ + _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9149491540%_ + _%g9149591544%_)))) + (_%g9149491540%_ + _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_)))) + (_%g9149491540%_ _%g9149591544%_))))) + (_%g9149391693%_ _%$stx91490%_)))) (define |[:0:]#probe-step| - (lambda (_%$stx91634%_) - (let* ((_%g9163891660%_ - (lambda (_%g9163991656%_) + (lambda (_%$stx91697%_) + (let* ((_%g9170191723%_ + (lambda (_%g9170291719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9163991656%_))) - (_%g9163791729%_ - (lambda (_%g9163991664%_) - (if (gx#stx-pair? _%g9163991664%_) - (let ((_%e9164391667%_ (gx#syntax-e _%g9163991664%_))) - (let ((_%hd9164491671%_ + _%g9170291719%_))) + (_%g9170091792%_ + (lambda (_%g9170291727%_) + (if (gx#stx-pair? _%g9170291727%_) + (let ((_%e9170691730%_ (gx#syntax-e _%g9170291727%_))) + (let ((_%hd9170791734%_ (let () (declare (not safe)) - (##car _%e9164391667%_))) - (_%tl9164591674%_ + (##car _%e9170691730%_))) + (_%tl9170891737%_ (let () (declare (not safe)) - (##cdr _%e9164391667%_)))) - (if (gx#stx-pair? _%tl9164591674%_) - (let ((_%e9164691677%_ - (gx#syntax-e _%tl9164591674%_))) - (let ((_%hd9164791681%_ + (##cdr _%e9170691730%_)))) + (if (gx#stx-pair? _%tl9170891737%_) + (let ((_%e9170991740%_ + (gx#syntax-e _%tl9170891737%_))) + (let ((_%hd9171091744%_ (let () (declare (not safe)) - (##car _%e9164691677%_))) - (_%tl9164891684%_ + (##car _%e9170991740%_))) + (_%tl9171191747%_ (let () (declare (not safe)) - (##cdr _%e9164691677%_)))) - (if (gx#stx-pair? _%tl9164891684%_) - (let ((_%e9164991687%_ - (gx#syntax-e _%tl9164891684%_))) - (let ((_%hd9165091691%_ + (##cdr _%e9170991740%_)))) + (if (gx#stx-pair? _%tl9171191747%_) + (let ((_%e9171291750%_ + (gx#syntax-e _%tl9171191747%_))) + (let ((_%hd9171391754%_ (let () (declare (not safe)) - (##car _%e9164991687%_))) - (_%tl9165191694%_ + (##car _%e9171291750%_))) + (_%tl9171491757%_ (let () (declare (not safe)) - (##cdr _%e9164991687%_)))) - (if (gx#stx-pair? _%tl9165191694%_) - (let ((_%e9165291697%_ + (##cdr _%e9171291750%_)))) + (if (gx#stx-pair? _%tl9171491757%_) + (let ((_%e9171591760%_ (gx#syntax-e - _%tl9165191694%_))) - (let ((_%hd9165391701%_ + _%tl9171491757%_))) + (let ((_%hd9171691764%_ (let () (declare (not safe)) - (##car _%e9165291697%_))) - (_%tl9165491704%_ + (##car _%e9171591760%_))) + (_%tl9171791767%_ (let () (declare (not safe)) - (##cdr _%e9165291697%_)))) + (##cdr _%e9171591760%_)))) (if (gx#stx-null? - _%tl9165491704%_) - ((lambda (_%L91707%_ - _%L91709%_ - _%L91710%_) + _%tl9171791767%_) + ((lambda (_%L91770%_ + _%L91772%_ + _%L91773%_) (cons (gx#datum->syntax '#f 'let) @@ -745,127 +745,127 @@ '#f 'next-probe) (cons (cons (gx#datum->syntax '#f 'fx+) - (cons _%L91710%_ - (cons _%L91709%_ + (cons _%L91773%_ + (cons _%L91772%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx*) - (cons _%L91709%_ (cons _%L91709%_ '()))) + (cons _%L91772%_ (cons _%L91772%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'fxmodulo) (cons (gx#datum->syntax '#f 'next-probe) - (cons _%L91707%_ '()))) + (cons _%L91770%_ '()))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9165391701%_ - _%hd9165091691%_ - _%hd9164791681%_) - (_%g9163891660%_ - _%g9163991664%_)))) - (_%g9163891660%_ - _%g9163991664%_)))) - (_%g9163891660%_ _%g9163991664%_)))) - (_%g9163891660%_ _%g9163991664%_)))) - (_%g9163891660%_ _%g9163991664%_))))) - (_%g9163791729%_ _%$stx91634%_)))) + _%hd9171691764%_ + _%hd9171391754%_ + _%hd9171091744%_) + (_%g9170191723%_ + _%g9170291727%_)))) + (_%g9170191723%_ + _%g9170291727%_)))) + (_%g9170191723%_ _%g9170291727%_)))) + (_%g9170191723%_ _%g9170291727%_)))) + (_%g9170191723%_ _%g9170291727%_))))) + (_%g9170091792%_ _%$stx91697%_)))) (define |[:0:]#__table-ref| - (lambda (_%$stx91733%_) - (let* ((_%g9173791771%_ - (lambda (_%g9173891767%_) + (lambda (_%$stx91796%_) + (let* ((_%g9180091834%_ + (lambda (_%g9180191830%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9173891767%_))) - (_%g9173691882%_ - (lambda (_%g9173891775%_) - (if (gx#stx-pair? _%g9173891775%_) - (let ((_%e9174591778%_ (gx#syntax-e _%g9173891775%_))) - (let ((_%hd9174691782%_ + _%g9180191830%_))) + (_%g9179991945%_ + (lambda (_%g9180191838%_) + (if (gx#stx-pair? _%g9180191838%_) + (let ((_%e9180891841%_ (gx#syntax-e _%g9180191838%_))) + (let ((_%hd9180991845%_ (let () (declare (not safe)) - (##car _%e9174591778%_))) - (_%tl9174791785%_ + (##car _%e9180891841%_))) + (_%tl9181091848%_ (let () (declare (not safe)) - (##cdr _%e9174591778%_)))) - (if (gx#stx-pair? _%tl9174791785%_) - (let ((_%e9174891788%_ - (gx#syntax-e _%tl9174791785%_))) - (let ((_%hd9174991792%_ + (##cdr _%e9180891841%_)))) + (if (gx#stx-pair? _%tl9181091848%_) + (let ((_%e9181191851%_ + (gx#syntax-e _%tl9181091848%_))) + (let ((_%hd9181291855%_ (let () (declare (not safe)) - (##car _%e9174891788%_))) - (_%tl9175091795%_ + (##car _%e9181191851%_))) + (_%tl9181391858%_ (let () (declare (not safe)) - (##cdr _%e9174891788%_)))) - (if (gx#stx-pair? _%tl9175091795%_) - (let ((_%e9175191798%_ - (gx#syntax-e _%tl9175091795%_))) - (let ((_%hd9175291802%_ + (##cdr _%e9181191851%_)))) + (if (gx#stx-pair? _%tl9181391858%_) + (let ((_%e9181491861%_ + (gx#syntax-e _%tl9181391858%_))) + (let ((_%hd9181591865%_ (let () (declare (not safe)) - (##car _%e9175191798%_))) - (_%tl9175391805%_ + (##car _%e9181491861%_))) + (_%tl9181691868%_ (let () (declare (not safe)) - (##cdr _%e9175191798%_)))) - (if (gx#stx-pair? _%tl9175391805%_) - (let ((_%e9175491808%_ + (##cdr _%e9181491861%_)))) + (if (gx#stx-pair? _%tl9181691868%_) + (let ((_%e9181791871%_ (gx#syntax-e - _%tl9175391805%_))) - (let ((_%hd9175591812%_ + _%tl9181691868%_))) + (let ((_%hd9181891875%_ (let () (declare (not safe)) - (##car _%e9175491808%_))) - (_%tl9175691815%_ + (##car _%e9181791871%_))) + (_%tl9181991878%_ (let () (declare (not safe)) - (##cdr _%e9175491808%_)))) + (##cdr _%e9181791871%_)))) (if (gx#stx-pair? - _%tl9175691815%_) - (let ((_%e9175791818%_ + _%tl9181991878%_) + (let ((_%e9182091881%_ (gx#syntax-e - _%tl9175691815%_))) - (let ((_%hd9175891822%_ + _%tl9181991878%_))) + (let ((_%hd9182191885%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9175791818%_))) - (_%tl9175991825%_ - (let () (declare (not safe)) (##cdr _%e9175791818%_)))) - (if (gx#stx-pair? _%tl9175991825%_) - (let ((_%e9176091828%_ (gx#syntax-e _%tl9175991825%_))) - (let ((_%hd9176191832%_ + (##car _%e9182091881%_))) + (_%tl9182291888%_ + (let () (declare (not safe)) (##cdr _%e9182091881%_)))) + (if (gx#stx-pair? _%tl9182291888%_) + (let ((_%e9182391891%_ (gx#syntax-e _%tl9182291888%_))) + (let ((_%hd9182491895%_ (let () (declare (not safe)) - (##car _%e9176091828%_))) - (_%tl9176291835%_ + (##car _%e9182391891%_))) + (_%tl9182591898%_ (let () (declare (not safe)) - (##cdr _%e9176091828%_)))) - (if (gx#stx-pair? _%tl9176291835%_) - (let ((_%e9176391838%_ - (gx#syntax-e _%tl9176291835%_))) - (let ((_%hd9176491842%_ + (##cdr _%e9182391891%_)))) + (if (gx#stx-pair? _%tl9182591898%_) + (let ((_%e9182691901%_ + (gx#syntax-e _%tl9182591898%_))) + (let ((_%hd9182791905%_ (let () (declare (not safe)) - (##car _%e9176391838%_))) - (_%tl9176591845%_ + (##car _%e9182691901%_))) + (_%tl9182891908%_ (let () (declare (not safe)) - (##cdr _%e9176391838%_)))) - (if (gx#stx-null? _%tl9176591845%_) - ((lambda (_%L91848%_ - _%L91850%_ - _%L91851%_ - _%L91852%_ - _%L91853%_ - _%L91854%_) + (##cdr _%e9182691901%_)))) + (if (gx#stx-null? _%tl9182891908%_) + ((lambda (_%L91911%_ + _%L91913%_ + _%L91914%_ + _%L91915%_ + _%L91916%_ + _%L91917%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -874,13 +874,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L91852%_ - (cons _%L91850%_ '())) - (cons _%L91853%_ '()))) + (cons (cons _%L91915%_ + (cons _%L91913%_ '())) + (cons _%L91916%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L91854%_ '())) + (cons _%L91917%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -933,7 +933,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L91854%_ + (cons _%L91917%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -948,7 +948,7 @@ 'macro-unused-obj) '()) '()))) - (cons _%L91848%_ '())) + (cons _%L91911%_ '())) (cons (cons (cons (gx#datum->syntax '#f 'eq?) (cons (gx#datum->syntax '#f @@ -983,8 +983,8 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L91851%_ - (cons _%L91850%_ + (cons (cons (cons _%L91914%_ + (cons _%L91913%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -994,7 +994,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L91854%_ + (cons _%L91917%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) @@ -1029,145 +1029,145 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9176491842%_ - _%hd9176191832%_ - _%hd9175891822%_ - _%hd9175591812%_ - _%hd9175291802%_ - _%hd9174991792%_) - (_%g9173791771%_ _%g9173891775%_)))) - (_%g9173791771%_ _%g9173891775%_)))) - (_%g9173791771%_ _%g9173891775%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9173791771%_ - _%g9173891775%_)))) - (_%g9173791771%_ - _%g9173891775%_)))) - (_%g9173791771%_ _%g9173891775%_)))) - (_%g9173791771%_ _%g9173891775%_)))) - (_%g9173791771%_ _%g9173891775%_))))) - (_%g9173691882%_ _%$stx91733%_)))) + _%hd9182791905%_ + _%hd9182491895%_ + _%hd9182191885%_ + _%hd9181891875%_ + _%hd9181591865%_ + _%hd9181291855%_) + (_%g9180091834%_ _%g9180191838%_)))) + (_%g9180091834%_ _%g9180191838%_)))) + (_%g9180091834%_ _%g9180191838%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9180091834%_ + _%g9180191838%_)))) + (_%g9180091834%_ + _%g9180191838%_)))) + (_%g9180091834%_ _%g9180191838%_)))) + (_%g9180091834%_ _%g9180191838%_)))) + (_%g9180091834%_ _%g9180191838%_))))) + (_%g9179991945%_ _%$stx91796%_)))) (define |[:0:]#__table-set!| - (lambda (_%$stx91886%_) - (let* ((_%g9189091932%_ - (lambda (_%g9189191928%_) + (lambda (_%$stx91949%_) + (let* ((_%g9195391995%_ + (lambda (_%g9195491991%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9189191928%_))) - (_%g9188992071%_ - (lambda (_%g9189191936%_) - (if (gx#stx-pair? _%g9189191936%_) - (let ((_%e9190091939%_ (gx#syntax-e _%g9189191936%_))) - (let ((_%hd9190191943%_ + _%g9195491991%_))) + (_%g9195292134%_ + (lambda (_%g9195491999%_) + (if (gx#stx-pair? _%g9195491999%_) + (let ((_%e9196392002%_ (gx#syntax-e _%g9195491999%_))) + (let ((_%hd9196492006%_ (let () (declare (not safe)) - (##car _%e9190091939%_))) - (_%tl9190291946%_ + (##car _%e9196392002%_))) + (_%tl9196592009%_ (let () (declare (not safe)) - (##cdr _%e9190091939%_)))) - (if (gx#stx-pair? _%tl9190291946%_) - (let ((_%e9190391949%_ - (gx#syntax-e _%tl9190291946%_))) - (let ((_%hd9190491953%_ + (##cdr _%e9196392002%_)))) + (if (gx#stx-pair? _%tl9196592009%_) + (let ((_%e9196692012%_ + (gx#syntax-e _%tl9196592009%_))) + (let ((_%hd9196792016%_ (let () (declare (not safe)) - (##car _%e9190391949%_))) - (_%tl9190591956%_ + (##car _%e9196692012%_))) + (_%tl9196892019%_ (let () (declare (not safe)) - (##cdr _%e9190391949%_)))) - (if (gx#stx-pair? _%tl9190591956%_) - (let ((_%e9190691959%_ - (gx#syntax-e _%tl9190591956%_))) - (let ((_%hd9190791963%_ + (##cdr _%e9196692012%_)))) + (if (gx#stx-pair? _%tl9196892019%_) + (let ((_%e9196992022%_ + (gx#syntax-e _%tl9196892019%_))) + (let ((_%hd9197092026%_ (let () (declare (not safe)) - (##car _%e9190691959%_))) - (_%tl9190891966%_ + (##car _%e9196992022%_))) + (_%tl9197192029%_ (let () (declare (not safe)) - (##cdr _%e9190691959%_)))) - (if (gx#stx-pair? _%tl9190891966%_) - (let ((_%e9190991969%_ + (##cdr _%e9196992022%_)))) + (if (gx#stx-pair? _%tl9197192029%_) + (let ((_%e9197292032%_ (gx#syntax-e - _%tl9190891966%_))) - (let ((_%hd9191091973%_ + _%tl9197192029%_))) + (let ((_%hd9197392036%_ (let () (declare (not safe)) - (##car _%e9190991969%_))) - (_%tl9191191976%_ + (##car _%e9197292032%_))) + (_%tl9197492039%_ (let () (declare (not safe)) - (##cdr _%e9190991969%_)))) + (##cdr _%e9197292032%_)))) (if (gx#stx-pair? - _%tl9191191976%_) - (let ((_%e9191291979%_ + _%tl9197492039%_) + (let ((_%e9197592042%_ (gx#syntax-e - _%tl9191191976%_))) - (let ((_%hd9191391983%_ + _%tl9197492039%_))) + (let ((_%hd9197692046%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9191291979%_))) - (_%tl9191491986%_ - (let () (declare (not safe)) (##cdr _%e9191291979%_)))) - (if (gx#stx-pair? _%tl9191491986%_) - (let ((_%e9191591989%_ (gx#syntax-e _%tl9191491986%_))) - (let ((_%hd9191691993%_ + (##car _%e9197592042%_))) + (_%tl9197792049%_ + (let () (declare (not safe)) (##cdr _%e9197592042%_)))) + (if (gx#stx-pair? _%tl9197792049%_) + (let ((_%e9197892052%_ (gx#syntax-e _%tl9197792049%_))) + (let ((_%hd9197992056%_ (let () (declare (not safe)) - (##car _%e9191591989%_))) - (_%tl9191791996%_ + (##car _%e9197892052%_))) + (_%tl9198092059%_ (let () (declare (not safe)) - (##cdr _%e9191591989%_)))) - (if (gx#stx-pair? _%tl9191791996%_) - (let ((_%e9191891999%_ - (gx#syntax-e _%tl9191791996%_))) - (let ((_%hd9191992003%_ + (##cdr _%e9197892052%_)))) + (if (gx#stx-pair? _%tl9198092059%_) + (let ((_%e9198192062%_ + (gx#syntax-e _%tl9198092059%_))) + (let ((_%hd9198292066%_ (let () (declare (not safe)) - (##car _%e9191891999%_))) - (_%tl9192092006%_ + (##car _%e9198192062%_))) + (_%tl9198392069%_ (let () (declare (not safe)) - (##cdr _%e9191891999%_)))) - (if (gx#stx-pair? _%tl9192092006%_) - (let ((_%e9192192009%_ - (gx#syntax-e _%tl9192092006%_))) - (let ((_%hd9192292013%_ + (##cdr _%e9198192062%_)))) + (if (gx#stx-pair? _%tl9198392069%_) + (let ((_%e9198492072%_ + (gx#syntax-e _%tl9198392069%_))) + (let ((_%hd9198592076%_ (let () (declare (not safe)) - (##car _%e9192192009%_))) - (_%tl9192392016%_ + (##car _%e9198492072%_))) + (_%tl9198692079%_ (let () (declare (not safe)) - (##cdr _%e9192192009%_)))) - (if (gx#stx-pair? _%tl9192392016%_) - (let ((_%e9192492019%_ + (##cdr _%e9198492072%_)))) + (if (gx#stx-pair? _%tl9198692079%_) + (let ((_%e9198792082%_ (gx#syntax-e - _%tl9192392016%_))) - (let ((_%hd9192592023%_ + _%tl9198692079%_))) + (let ((_%hd9198892086%_ (let () (declare (not safe)) - (##car _%e9192492019%_))) - (_%tl9192692026%_ + (##car _%e9198792082%_))) + (_%tl9198992089%_ (let () (declare (not safe)) - (##cdr _%e9192492019%_)))) + (##cdr _%e9198792082%_)))) (if (gx#stx-null? - _%tl9192692026%_) - ((lambda (_%L92029%_ - _%L92031%_ - _%L92032%_ - _%L92033%_ - _%L92034%_ - _%L92035%_ - _%L92036%_ - _%L92037%_) + _%tl9198992089%_) + ((lambda (_%L92092%_ + _%L92094%_ + _%L92095%_ + _%L92096%_ + _%L92097%_ + _%L92098%_ + _%L92099%_ + _%L92100%_) (cons (gx#datum->syntax '#f 'let*) @@ -1178,18 +1178,18 @@ (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L92035%_ - (cons _%L92033%_ + (cons (cons _%L92098%_ + (cons _%L92096%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) - (cons _%L92036%_ '()))) + (cons _%L92099%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92037%_ '())) + (cons _%L92100%_ '())) '())) (cons (cons (gx#datum->syntax '#f @@ -1246,7 +1246,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92037%_ + (cons _%L92100%_ (cons (gx#datum->syntax '#f 'probe) @@ -1273,41 +1273,41 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'deleted) - (cons _%L92033%_ '())))) + (cons _%L92096%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons _%L92032%_ '())))) - (cons (cons _%L92029%_ '()) '())))) + (cons _%L92095%_ '())))) + (cons (cons _%L92092%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f 'begin) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) - (cons _%L92033%_ '())))) + (cons _%L92096%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons _%L92032%_ '())))) - (cons (cons _%L92031%_ '()) '())))) + (cons _%L92095%_ '())))) + (cons (cons _%L92094%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1352,16 +1352,16 @@ '())))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (cons (cons (cons _%L92034%_ + (cons (cons (cons _%L92097%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92033%_ + (cons _%L92096%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92033%_ '())))) + (cons _%L92096%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92037%_ + (cons _%L92100%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1370,7 +1370,7 @@ '#f 'probe) (cons '1 '()))) - (cons _%L92032%_ '())))) + (cons _%L92095%_ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '()))) (cons (cons (gx#datum->syntax '#f 'else) @@ -1405,173 +1405,173 @@ ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9192592023%_ - _%hd9192292013%_ - _%hd9191992003%_ - _%hd9191691993%_ - _%hd9191391983%_ - _%hd9191091973%_ - _%hd9190791963%_ - _%hd9190491953%_) - (_%g9189091932%_ - _%g9189191936%_)))) - (_%g9189091932%_ - _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9189091932%_ - _%g9189191936%_)))) - (_%g9189091932%_ - _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_)))) - (_%g9189091932%_ _%g9189191936%_))))) - (_%g9188992071%_ _%$stx91886%_)))) + _%hd9198892086%_ + _%hd9198592076%_ + _%hd9198292066%_ + _%hd9197992056%_ + _%hd9197692046%_ + _%hd9197392036%_ + _%hd9197092026%_ + _%hd9196792016%_) + (_%g9195391995%_ + _%g9195491999%_)))) + (_%g9195391995%_ + _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9195391995%_ + _%g9195491999%_)))) + (_%g9195391995%_ + _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_)))) + (_%g9195391995%_ _%g9195491999%_))))) + (_%g9195292134%_ _%$stx91949%_)))) (define |[:0:]#__table-update!| - (lambda (_%$stx92075%_) - (let* ((_%g9207992125%_ - (lambda (_%g9208092121%_) + (lambda (_%$stx92138%_) + (let* ((_%g9214292188%_ + (lambda (_%g9214392184%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9208092121%_))) - (_%g9207892278%_ - (lambda (_%g9208092129%_) - (if (gx#stx-pair? _%g9208092129%_) - (let ((_%e9209092132%_ (gx#syntax-e _%g9208092129%_))) - (let ((_%hd9209192136%_ + _%g9214392184%_))) + (_%g9214192341%_ + (lambda (_%g9214392192%_) + (if (gx#stx-pair? _%g9214392192%_) + (let ((_%e9215392195%_ (gx#syntax-e _%g9214392192%_))) + (let ((_%hd9215492199%_ (let () (declare (not safe)) - (##car _%e9209092132%_))) - (_%tl9209292139%_ + (##car _%e9215392195%_))) + (_%tl9215592202%_ (let () (declare (not safe)) - (##cdr _%e9209092132%_)))) - (if (gx#stx-pair? _%tl9209292139%_) - (let ((_%e9209392142%_ - (gx#syntax-e _%tl9209292139%_))) - (let ((_%hd9209492146%_ + (##cdr _%e9215392195%_)))) + (if (gx#stx-pair? _%tl9215592202%_) + (let ((_%e9215692205%_ + (gx#syntax-e _%tl9215592202%_))) + (let ((_%hd9215792209%_ (let () (declare (not safe)) - (##car _%e9209392142%_))) - (_%tl9209592149%_ + (##car _%e9215692205%_))) + (_%tl9215892212%_ (let () (declare (not safe)) - (##cdr _%e9209392142%_)))) - (if (gx#stx-pair? _%tl9209592149%_) - (let ((_%e9209692152%_ - (gx#syntax-e _%tl9209592149%_))) - (let ((_%hd9209792156%_ + (##cdr _%e9215692205%_)))) + (if (gx#stx-pair? _%tl9215892212%_) + (let ((_%e9215992215%_ + (gx#syntax-e _%tl9215892212%_))) + (let ((_%hd9216092219%_ (let () (declare (not safe)) - (##car _%e9209692152%_))) - (_%tl9209892159%_ + (##car _%e9215992215%_))) + (_%tl9216192222%_ (let () (declare (not safe)) - (##cdr _%e9209692152%_)))) - (if (gx#stx-pair? _%tl9209892159%_) - (let ((_%e9209992162%_ + (##cdr _%e9215992215%_)))) + (if (gx#stx-pair? _%tl9216192222%_) + (let ((_%e9216292225%_ (gx#syntax-e - _%tl9209892159%_))) - (let ((_%hd9210092166%_ + _%tl9216192222%_))) + (let ((_%hd9216392229%_ (let () (declare (not safe)) - (##car _%e9209992162%_))) - (_%tl9210192169%_ + (##car _%e9216292225%_))) + (_%tl9216492232%_ (let () (declare (not safe)) - (##cdr _%e9209992162%_)))) + (##cdr _%e9216292225%_)))) (if (gx#stx-pair? - _%tl9210192169%_) - (let ((_%e9210292172%_ + _%tl9216492232%_) + (let ((_%e9216592235%_ (gx#syntax-e - _%tl9210192169%_))) - (let ((_%hd9210392176%_ + _%tl9216492232%_))) + (let ((_%hd9216692239%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9210292172%_))) - (_%tl9210492179%_ - (let () (declare (not safe)) (##cdr _%e9210292172%_)))) - (if (gx#stx-pair? _%tl9210492179%_) - (let ((_%e9210592182%_ (gx#syntax-e _%tl9210492179%_))) - (let ((_%hd9210692186%_ + (##car _%e9216592235%_))) + (_%tl9216792242%_ + (let () (declare (not safe)) (##cdr _%e9216592235%_)))) + (if (gx#stx-pair? _%tl9216792242%_) + (let ((_%e9216892245%_ (gx#syntax-e _%tl9216792242%_))) + (let ((_%hd9216992249%_ (let () (declare (not safe)) - (##car _%e9210592182%_))) - (_%tl9210792189%_ + (##car _%e9216892245%_))) + (_%tl9217092252%_ (let () (declare (not safe)) - (##cdr _%e9210592182%_)))) - (if (gx#stx-pair? _%tl9210792189%_) - (let ((_%e9210892192%_ - (gx#syntax-e _%tl9210792189%_))) - (let ((_%hd9210992196%_ + (##cdr _%e9216892245%_)))) + (if (gx#stx-pair? _%tl9217092252%_) + (let ((_%e9217192255%_ + (gx#syntax-e _%tl9217092252%_))) + (let ((_%hd9217292259%_ (let () (declare (not safe)) - (##car _%e9210892192%_))) - (_%tl9211092199%_ + (##car _%e9217192255%_))) + (_%tl9217392262%_ (let () (declare (not safe)) - (##cdr _%e9210892192%_)))) - (if (gx#stx-pair? _%tl9211092199%_) - (let ((_%e9211192202%_ - (gx#syntax-e _%tl9211092199%_))) - (let ((_%hd9211292206%_ + (##cdr _%e9217192255%_)))) + (if (gx#stx-pair? _%tl9217392262%_) + (let ((_%e9217492265%_ + (gx#syntax-e _%tl9217392262%_))) + (let ((_%hd9217592269%_ (let () (declare (not safe)) - (##car _%e9211192202%_))) - (_%tl9211392209%_ + (##car _%e9217492265%_))) + (_%tl9217692272%_ (let () (declare (not safe)) - (##cdr _%e9211192202%_)))) - (if (gx#stx-pair? _%tl9211392209%_) - (let ((_%e9211492212%_ + (##cdr _%e9217492265%_)))) + (if (gx#stx-pair? _%tl9217692272%_) + (let ((_%e9217792275%_ (gx#syntax-e - _%tl9211392209%_))) - (let ((_%hd9211592216%_ + _%tl9217692272%_))) + (let ((_%hd9217892279%_ (let () (declare (not safe)) - (##car _%e9211492212%_))) - (_%tl9211692219%_ + (##car _%e9217792275%_))) + (_%tl9217992282%_ (let () (declare (not safe)) - (##cdr _%e9211492212%_)))) + (##cdr _%e9217792275%_)))) (if (gx#stx-pair? - _%tl9211692219%_) - (let ((_%e9211792222%_ + _%tl9217992282%_) + (let ((_%e9218092285%_ (gx#syntax-e - _%tl9211692219%_))) - (let ((_%hd9211892226%_ + _%tl9217992282%_))) + (let ((_%hd9218192289%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9211792222%_))) - (_%tl9211992229%_ - (let () (declare (not safe)) (##cdr _%e9211792222%_)))) - (if (gx#stx-null? _%tl9211992229%_) - ((lambda (_%L92232%_ - _%L92234%_ - _%L92235%_ - _%L92236%_ - _%L92237%_ - _%L92238%_ - _%L92239%_ - _%L92240%_ - _%L92241%_) + (##car _%e9218092285%_))) + (_%tl9218292292%_ + (let () (declare (not safe)) (##cdr _%e9218092285%_)))) + (if (gx#stx-null? _%tl9218292292%_) + ((lambda (_%L92295%_ + _%L92297%_ + _%L92298%_ + _%L92299%_ + _%L92300%_ + _%L92301%_ + _%L92302%_ + _%L92303%_ + _%L92304%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f 'h) (cons (cons (gx#datum->syntax '#f 'fxxor) - (cons (cons _%L92239%_ + (cons (cons _%L92302%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L92237%_ '())) - (cons _%L92240%_ '()))) + (cons _%L92300%_ '())) + (cons _%L92303%_ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) (cons (cons (gx#datum->syntax @@ -1581,7 +1581,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-length) - (cons _%L92241%_ '())) + (cons _%L92304%_ '())) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax @@ -1634,7 +1634,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92241%_ + (cons _%L92304%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1661,21 +1661,21 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'deleted) - (cons _%L92237%_ '())))) + (cons _%L92300%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f 'deleted) (cons '1 '()))) - (cons (cons _%L92236%_ - (cons _%L92235%_ '())) + (cons (cons _%L92299%_ + (cons _%L92298%_ '())) '())))) - (cons (cons _%L92232%_ '()) '())))) + (cons (cons _%L92295%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -1684,11 +1684,11 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92237%_ '())))) + (cons _%L92300%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ (cons (cons (gx#datum->syntax '#f 'fx+) @@ -1696,13 +1696,13 @@ '#f 'probe) (cons '1 '()))) - (cons (cons _%L92236%_ - (cons _%L92235%_ + (cons (cons _%L92299%_ + (cons _%L92298%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - (cons (cons _%L92234%_ '()) '())))) + (cons (cons _%L92297%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) '())) @@ -1747,34 +1747,34 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92238%_ - (cons _%L92237%_ + (cons (cons (cons _%L92301%_ + (cons _%L92300%_ (cons (gx#datum->syntax '#f 'k) '()))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ (cons (gx#datum->syntax '#f 'probe) - (cons _%L92237%_ + (cons _%L92300%_ '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92241%_ + (cons _%L92304%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fx+) (cons (gx#datum->syntax '#f 'probe) (cons '1 '()))) - (cons (cons _%L92236%_ + (cons (cons _%L92299%_ (cons (cons (gx#datum->syntax '#f 'vector-ref) - (cons _%L92241%_ + (cons _%L92304%_ (cons (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -1808,128 +1808,128 @@ '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))) - _%hd9211892226%_ - _%hd9211592216%_ - _%hd9211292206%_ - _%hd9210992196%_ - _%hd9210692186%_ - _%hd9210392176%_ - _%hd9210092166%_ - _%hd9209792156%_ - _%hd9209492146%_) - (_%g9207992125%_ _%g9208092129%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9207992125%_ - _%g9208092129%_)))) - (_%g9207992125%_ - _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9207992125%_ - _%g9208092129%_)))) - (_%g9207992125%_ - _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_)))) - (_%g9207992125%_ _%g9208092129%_))))) - (_%g9207892278%_ _%$stx92075%_)))) + _%hd9218192289%_ + _%hd9217892279%_ + _%hd9217592269%_ + _%hd9217292259%_ + _%hd9216992249%_ + _%hd9216692239%_ + _%hd9216392229%_ + _%hd9216092219%_ + _%hd9215792209%_) + (_%g9214292188%_ _%g9214392192%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9214292188%_ + _%g9214392192%_)))) + (_%g9214292188%_ + _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9214292188%_ + _%g9214392192%_)))) + (_%g9214292188%_ + _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_)))) + (_%g9214292188%_ _%g9214392192%_))))) + (_%g9214192341%_ _%$stx92138%_)))) (define |[:0:]#__table-del!| - (lambda (_%$stx92282%_) - (let* ((_%g9228692320%_ - (lambda (_%g9228792316%_) + (lambda (_%$stx92345%_) + (let* ((_%g9234992383%_ + (lambda (_%g9235092379%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g9228792316%_))) - (_%g9228592431%_ - (lambda (_%g9228792324%_) - (if (gx#stx-pair? _%g9228792324%_) - (let ((_%e9229492327%_ (gx#syntax-e _%g9228792324%_))) - (let ((_%hd9229592331%_ + _%g9235092379%_))) + (_%g9234892494%_ + (lambda (_%g9235092387%_) + (if (gx#stx-pair? _%g9235092387%_) + (let ((_%e9235792390%_ (gx#syntax-e _%g9235092387%_))) + (let ((_%hd9235892394%_ (let () (declare (not safe)) - (##car _%e9229492327%_))) - (_%tl9229692334%_ + (##car _%e9235792390%_))) + (_%tl9235992397%_ (let () (declare (not safe)) - (##cdr _%e9229492327%_)))) - (if (gx#stx-pair? _%tl9229692334%_) - (let ((_%e9229792337%_ - (gx#syntax-e _%tl9229692334%_))) - (let ((_%hd9229892341%_ + (##cdr _%e9235792390%_)))) + (if (gx#stx-pair? _%tl9235992397%_) + (let ((_%e9236092400%_ + (gx#syntax-e _%tl9235992397%_))) + (let ((_%hd9236192404%_ (let () (declare (not safe)) - (##car _%e9229792337%_))) - (_%tl9229992344%_ + (##car _%e9236092400%_))) + (_%tl9236292407%_ (let () (declare (not safe)) - (##cdr _%e9229792337%_)))) - (if (gx#stx-pair? _%tl9229992344%_) - (let ((_%e9230092347%_ - (gx#syntax-e _%tl9229992344%_))) - (let ((_%hd9230192351%_ + (##cdr _%e9236092400%_)))) + (if (gx#stx-pair? _%tl9236292407%_) + (let ((_%e9236392410%_ + (gx#syntax-e _%tl9236292407%_))) + (let ((_%hd9236492414%_ (let () (declare (not safe)) - (##car _%e9230092347%_))) - (_%tl9230292354%_ + (##car _%e9236392410%_))) + (_%tl9236592417%_ (let () (declare (not safe)) - (##cdr _%e9230092347%_)))) - (if (gx#stx-pair? _%tl9230292354%_) - (let ((_%e9230392357%_ + (##cdr _%e9236392410%_)))) + (if (gx#stx-pair? _%tl9236592417%_) + (let ((_%e9236692420%_ (gx#syntax-e - _%tl9230292354%_))) - (let ((_%hd9230492361%_ + _%tl9236592417%_))) + (let ((_%hd9236792424%_ (let () (declare (not safe)) - (##car _%e9230392357%_))) - (_%tl9230592364%_ + (##car _%e9236692420%_))) + (_%tl9236892427%_ (let () (declare (not safe)) - (##cdr _%e9230392357%_)))) + (##cdr _%e9236692420%_)))) (if (gx#stx-pair? - _%tl9230592364%_) - (let ((_%e9230692367%_ + _%tl9236892427%_) + (let ((_%e9236992430%_ (gx#syntax-e - _%tl9230592364%_))) - (let ((_%hd9230792371%_ + _%tl9236892427%_))) + (let ((_%hd9237092434%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##car _%e9230692367%_))) - (_%tl9230892374%_ - (let () (declare (not safe)) (##cdr _%e9230692367%_)))) - (if (gx#stx-pair? _%tl9230892374%_) - (let ((_%e9230992377%_ (gx#syntax-e _%tl9230892374%_))) - (let ((_%hd9231092381%_ + (##car _%e9236992430%_))) + (_%tl9237192437%_ + (let () (declare (not safe)) (##cdr _%e9236992430%_)))) + (if (gx#stx-pair? _%tl9237192437%_) + (let ((_%e9237292440%_ (gx#syntax-e _%tl9237192437%_))) + (let ((_%hd9237392444%_ (let () (declare (not safe)) - (##car _%e9230992377%_))) - (_%tl9231192384%_ + (##car _%e9237292440%_))) + (_%tl9237492447%_ (let () (declare (not safe)) - (##cdr _%e9230992377%_)))) - (if (gx#stx-pair? _%tl9231192384%_) - (let ((_%e9231292387%_ - (gx#syntax-e _%tl9231192384%_))) - (let ((_%hd9231392391%_ + (##cdr _%e9237292440%_)))) + (if (gx#stx-pair? _%tl9237492447%_) + (let ((_%e9237592450%_ + (gx#syntax-e _%tl9237492447%_))) + (let ((_%hd9237692454%_ (let () (declare (not safe)) - (##car _%e9231292387%_))) - (_%tl9231492394%_ + (##car _%e9237592450%_))) + (_%tl9237792457%_ (let () (declare (not safe)) - (##cdr _%e9231292387%_)))) - (if (gx#stx-null? _%tl9231492394%_) - ((lambda (_%L92397%_ - _%L92399%_ - _%L92400%_ - _%L92401%_ - _%L92402%_ - _%L92403%_) + (##cdr _%e9237592450%_)))) + (if (gx#stx-null? _%tl9237792457%_) + ((lambda (_%L92460%_ + _%L92462%_ + _%L92463%_ + _%L92464%_ + _%L92465%_ + _%L92466%_) (cons (gx#datum->syntax '#f 'let*) (cons (cons (cons (gx#datum->syntax '#f @@ -1938,13 +1938,13 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'fxxor) - (cons (cons _%L92401%_ - (cons _%L92399%_ '())) - (cons _%L92402%_ '()))) + (cons (cons _%L92464%_ + (cons _%L92462%_ '())) + (cons _%L92465%_ '()))) '())) (cons (cons (gx#datum->syntax '#f 'size) (cons (cons (gx#datum->syntax '#f 'vector-length) - (cons _%L92403%_ '())) + (cons _%L92466%_ '())) '())) (cons (cons (gx#datum->syntax '#f 'entries) (cons (cons (gx#datum->syntax @@ -1993,7 +1993,7 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f 'vector-ref) - (cons _%L92403%_ + (cons _%L92466%_ (cons (gx#datum->syntax '#f 'probe) '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> @@ -2039,8 +2039,8 @@ '()))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) - (cons (cons (cons _%L92400%_ - (cons _%L92399%_ + (cons (cons (cons _%L92463%_ + (cons _%L92462%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -2050,7 +2050,7 @@ (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92403%_ + (cons _%L92466%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'probe) (cons (cons (gx#datum->syntax @@ -2059,7 +2059,7 @@ '()) '())))) (cons (cons (gx#datum->syntax '#f 'vector-set!) - (cons _%L92403%_ + (cons _%L92466%_ (cons (cons (gx#datum->syntax '#f 'fx+) (cons (gx#datum->syntax '#f @@ -2070,7 +2070,7 @@ 'macro-absent-obj) '()) '())))) - (cons (cons _%L92397%_ '()) '())))) + (cons (cons _%L92460%_ '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (cons (cons (gx#datum->syntax '#f @@ -2098,21 +2098,21 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd9231392391%_ - _%hd9231092381%_ - _%hd9230792371%_ - _%hd9230492361%_ - _%hd9230192351%_ - _%hd9229892341%_) - (_%g9228692320%_ _%g9228792324%_)))) - (_%g9228692320%_ _%g9228792324%_)))) - (_%g9228692320%_ _%g9228792324%_)))) -;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%g9228692320%_ - _%g9228792324%_)))) - (_%g9228692320%_ - _%g9228792324%_)))) - (_%g9228692320%_ _%g9228792324%_)))) - (_%g9228692320%_ _%g9228792324%_)))) - (_%g9228692320%_ _%g9228792324%_))))) - (_%g9228592431%_ _%$stx92282%_))))) + _%hd9237692454%_ + _%hd9237392444%_ + _%hd9237092434%_ + _%hd9236792424%_ + _%hd9236492414%_ + _%hd9236192404%_) + (_%g9234992383%_ _%g9235092387%_)))) + (_%g9234992383%_ _%g9235092387%_)))) + (_%g9234992383%_ _%g9235092387%_)))) +;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> + (_%g9234992383%_ + _%g9235092387%_)))) + (_%g9234992383%_ + _%g9235092387%_)))) + (_%g9234992383%_ _%g9235092387%_)))) + (_%g9234992383%_ _%g9235092387%_)))) + (_%g9234992383%_ _%g9235092387%_))))) + (_%g9234892494%_ _%$stx92345%_))))) diff --git a/src/bootstrap/gerbil/runtime/thread~0.scm b/src/bootstrap/gerbil/runtime/thread~0.scm index a1a6feaa1..0e1e05937 100644 --- a/src/bootstrap/gerbil/runtime/thread~0.scm +++ b/src/bootstrap/gerbil/runtime/thread~0.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/thread::timestamp 1733870073) + (define gerbil/runtime/thread::timestamp 1734131746) (begin (define spawn - (lambda (_%f110712%_ . _%args110713%_) - (if (procedure? _%f110712%_) - (let ((_%f110717%_ _%f110712%_)) + (lambda (_%f110818%_ . _%args110819%_) + (if (procedure? _%f110818%_) + (let ((_%f110823%_ _%f110818%_)) (declare (not safe)) - (##apply __spawn _%f110717%_ _%args110713%_)) + (##apply __spawn _%f110823%_ _%args110819%_)) (begin (raise-contract-violation-error '"contract violation" @@ -16,18 +16,18 @@ 'contract: 'procedure? 'value: - _%f110712%_) + _%f110818%_) '#!void)))) (define __spawn - (lambda (_%f110699%_ . _%args110700%_) - (let ((_%f110703%_ _%f110699%_)) - (spawn-actor _%f110703%_ _%args110700%_ '#!void '#f)))) + (lambda (_%f110805%_ . _%args110806%_) + (let ((_%f110809%_ _%f110805%_)) + (spawn-actor _%f110809%_ _%args110806%_ '#!void '#f)))) (define spawn/name - (lambda (_%name110683%_ _%f110684%_ . _%args110685%_) - (if (procedure? _%f110684%_) - (let ((_%f110689%_ _%f110684%_)) + (lambda (_%name110789%_ _%f110790%_ . _%args110791%_) + (if (procedure? _%f110790%_) + (let ((_%f110795%_ _%f110790%_)) (declare (not safe)) - (##apply __spawn/name _%name110683%_ _%f110689%_ _%args110685%_)) + (##apply __spawn/name _%name110789%_ _%f110795%_ _%args110791%_)) (begin (raise-contract-violation-error '"contract violation" @@ -36,21 +36,21 @@ 'contract: 'procedure? 'value: - _%f110684%_) + _%f110790%_) '#!void)))) (define __spawn/name - (lambda (_%name110669%_ _%f110670%_ . _%args110671%_) - (let ((_%f110674%_ _%f110670%_)) - (spawn-actor _%f110674%_ _%args110671%_ _%name110669%_ '#f)))) + (lambda (_%name110775%_ _%f110776%_ . _%args110777%_) + (let ((_%f110780%_ _%f110776%_)) + (spawn-actor _%f110780%_ _%args110777%_ _%name110775%_ '#f)))) (define spawn/group - (lambda (_%name110653%_ _%f110654%_ . _%args110655%_) - (if (procedure? _%f110654%_) - (let ((_%f110659%_ _%f110654%_)) + (lambda (_%name110759%_ _%f110760%_ . _%args110761%_) + (if (procedure? _%f110760%_) + (let ((_%f110765%_ _%f110760%_)) (declare (not safe)) (##apply __spawn/group - _%name110653%_ - _%f110659%_ - _%args110655%_)) + _%name110759%_ + _%f110765%_ + _%args110761%_)) (begin (raise-contract-violation-error '"contract violation" @@ -59,148 +59,148 @@ 'contract: 'procedure? 'value: - _%f110654%_) + _%f110760%_) '#!void)))) (define __spawn/group - (lambda (_%name110637%_ _%f110638%_ . _%args110639%_) - (let* ((_%f110642%_ _%f110638%_) - (_%tgroup110651%_ (make-thread-group _%name110637%_))) + (lambda (_%name110743%_ _%f110744%_ . _%args110745%_) + (let* ((_%f110748%_ _%f110744%_) + (_%tgroup110757%_ (make-thread-group _%name110743%_))) (spawn-actor - _%f110642%_ - _%args110639%_ - _%name110637%_ - _%tgroup110651%_)))) + _%f110748%_ + _%args110745%_ + _%name110743%_ + _%tgroup110757%_)))) (define spawn-actor - (lambda (_%f110609%_ _%args110610%_ _%name110611%_ _%tgroup110612%_) - (letrec ((_%thread-main110615%_ - (lambda (_%thunk110629%_) + (lambda (_%f110715%_ _%args110716%_ _%name110717%_ _%tgroup110718%_) + (letrec ((_%thread-main110721%_ + (lambda (_%thunk110735%_) (lambda () - (let ((__tmp110726 - (lambda (_%exn110632%_) - (let ((__tmp110727 - (lambda (_%cont110634%_) + (let ((__tmp110832 + (lambda (_%exn110738%_) + (let ((__tmp110833 + (lambda (_%cont110740%_) (if unhandled-actor-exception-hook - (let ((__tmp110728 + (let ((__tmp110834 (lambda () (__unhandled-actor-exception-hook - _%cont110634%_ - _%exn110632%_)))) + _%cont110740%_ + _%exn110738%_)))) (declare (not safe)) - (__with-catch void __tmp110728)) + (__with-catch void __tmp110834)) '#!void) - (let ((__tmp110729 + (let ((__tmp110835 (let () (declare (not safe)) (##continuation-last - _%cont110634%_)))) + _%cont110740%_)))) (declare (not safe)) (##continuation-graft - __tmp110729 + __tmp110835 ##primordial-exception-handler - _%exn110632%_))))) + _%exn110738%_))))) (declare (not safe)) - (##continuation-capture __tmp110727))))) + (##continuation-capture __tmp110833))))) (declare (not safe)) (with-exception-handler - __tmp110726 - _%thunk110629%_)))))) - (let* ((_%thunk110618%_ - (if (null? _%args110610%_) - _%f110609%_ - (lambda () (apply _%f110609%_ _%args110610%_)))) - (_%thunk110621%_ - (lambda () (with-exception-stack-trace__0 _%thunk110618%_))) - (_%tgroup110626%_ - (let ((_%$e110623%_ _%tgroup110612%_)) - (if _%$e110623%_ _%$e110623%_ (current-thread-group))))) + __tmp110832 + _%thunk110735%_)))))) + (let* ((_%thunk110724%_ + (if (null? _%args110716%_) + _%f110715%_ + (lambda () (apply _%f110715%_ _%args110716%_)))) + (_%thunk110727%_ + (lambda () (with-exception-stack-trace__0 _%thunk110724%_))) + (_%tgroup110732%_ + (let ((_%$e110729%_ _%tgroup110718%_)) + (if _%$e110729%_ _%$e110729%_ (current-thread-group))))) (thread-start! (thread-init! (construct-actor-thread '#f '0) - (_%thread-main110615%_ _%thunk110621%_) - _%name110611%_ - _%tgroup110626%_)))))) + (_%thread-main110721%_ _%thunk110727%_) + _%name110717%_ + _%tgroup110732%_)))))) (define spawn-thread__% - (lambda (_%thunk110587%_ _%name110588%_ _%tgroup110589%_) + (lambda (_%thunk110693%_ _%name110694%_ _%tgroup110695%_) (thread-start! - (make-thread _%thunk110587%_ _%name110588%_ _%tgroup110589%_)))) + (make-thread _%thunk110693%_ _%name110694%_ _%tgroup110695%_)))) (define spawn-thread__0 - (lambda (_%thunk110594%_) - (let* ((_%name110596%_ absent-obj) (_%tgroup110598%_ absent-obj)) - (spawn-thread__% _%thunk110594%_ _%name110596%_ _%tgroup110598%_)))) + (lambda (_%thunk110700%_) + (let* ((_%name110702%_ absent-obj) (_%tgroup110704%_ absent-obj)) + (spawn-thread__% _%thunk110700%_ _%name110702%_ _%tgroup110704%_)))) (define spawn-thread__1 - (lambda (_%thunk110600%_ _%name110601%_) - (let ((_%tgroup110603%_ absent-obj)) - (spawn-thread__% _%thunk110600%_ _%name110601%_ _%tgroup110603%_)))) + (lambda (_%thunk110706%_ _%name110707%_) + (let ((_%tgroup110709%_ absent-obj)) + (spawn-thread__% _%thunk110706%_ _%name110707%_ _%tgroup110709%_)))) (define spawn-thread - (lambda _g110731_ - (let ((_g110730_ (let () (declare (not safe)) (##length _g110731_)))) - (cond ((let () (declare (not safe)) (##fx= _g110730_ 1)) - (apply spawn-thread__0 _g110731_)) - ((let () (declare (not safe)) (##fx= _g110730_ 2)) - (apply spawn-thread__1 _g110731_)) - ((let () (declare (not safe)) (##fx= _g110730_ 3)) - (apply spawn-thread__% _g110731_)) + (lambda _g110837_ + (let ((_g110836_ (let () (declare (not safe)) (##length _g110837_)))) + (cond ((let () (declare (not safe)) (##fx= _g110836_ 1)) + (apply spawn-thread__0 _g110837_)) + ((let () (declare (not safe)) (##fx= _g110836_ 2)) + (apply spawn-thread__1 _g110837_)) + ((let () (declare (not safe)) (##fx= _g110836_ 3)) + (apply spawn-thread__% _g110837_)) (else (##raise-wrong-number-of-arguments-exception spawn-thread - _g110731_)))))) + _g110837_)))))) (define thread-local-ref__% - (lambda (_%key110571%_ _%default110572%_) - (let ((_%tab110574%_ (thread-local-table))) + (lambda (_%key110677%_ _%default110678%_) + (let ((_%tab110680%_ (thread-local-table))) (declare (not safe)) - (hash-ref__% _%tab110574%_ _%key110571%_ _%default110572%_)))) + (hash-ref__% _%tab110680%_ _%key110677%_ _%default110678%_)))) (define thread-local-ref__0 - (lambda (_%key110579%_) - (let ((_%default110581%_ absent-obj)) - (thread-local-ref__% _%key110579%_ _%default110581%_)))) + (lambda (_%key110685%_) + (let ((_%default110687%_ absent-obj)) + (thread-local-ref__% _%key110685%_ _%default110687%_)))) (define thread-local-ref - (lambda _g110733_ - (let ((_g110732_ (let () (declare (not safe)) (##length _g110733_)))) - (cond ((let () (declare (not safe)) (##fx= _g110732_ 1)) - (apply thread-local-ref__0 _g110733_)) - ((let () (declare (not safe)) (##fx= _g110732_ 2)) - (apply thread-local-ref__% _g110733_)) + (lambda _g110839_ + (let ((_g110838_ (let () (declare (not safe)) (##length _g110839_)))) + (cond ((let () (declare (not safe)) (##fx= _g110838_ 1)) + (apply thread-local-ref__0 _g110839_)) + ((let () (declare (not safe)) (##fx= _g110838_ 2)) + (apply thread-local-ref__% _g110839_)) (else (##raise-wrong-number-of-arguments-exception thread-local-ref - _g110733_)))))) + _g110839_)))))) (define thread-local-get - (lambda (_%key110568%_) (thread-local-ref__% _%key110568%_ '#f))) + (lambda (_%key110674%_) (thread-local-ref__% _%key110674%_ '#f))) (define thread-local-set! - (lambda (_%key110563%_ _%value110564%_) - (let ((_%tab110566%_ (thread-local-table))) + (lambda (_%key110669%_ _%value110670%_) + (let ((_%tab110672%_ (thread-local-table))) (declare (not safe)) - (hash-put! _%tab110566%_ _%key110563%_ _%value110564%_)))) + (hash-put! _%tab110672%_ _%key110669%_ _%value110670%_)))) (define thread-local-delete! - (lambda (_%key110559%_) - (let ((_%tab110561%_ (thread-local-table))) + (lambda (_%key110665%_) + (let ((_%tab110667%_ (thread-local-table))) (declare (not safe)) - (hash-remove! _%tab110561%_ _%key110559%_)))) + (hash-remove! _%tab110667%_ _%key110665%_)))) (define thread-local-table (lambda () - (let ((_%thr110540%_ (current-thread))) - (if (actor-thread? _%thr110540%_) - (let ((_%$e110543%_ (actor-thread-locals _%thr110540%_))) - (if _%$e110543%_ - _%$e110543%_ - (let ((_%tab110547%_ + (let ((_%thr110646%_ (current-thread))) + (if (actor-thread? _%thr110646%_) + (let ((_%$e110649%_ (actor-thread-locals _%thr110646%_))) + (if _%$e110649%_ + _%$e110649%_ + (let ((_%tab110653%_ (let () (declare (not safe)) (make-hash-table-eq)))) - (actor-thread-locals-set! _%thr110540%_ _%tab110547%_) - _%tab110547%_))) - (if (eq? _%thr110540%_ ##primordial-thread) + (actor-thread-locals-set! _%thr110646%_ _%tab110653%_) + _%tab110653%_))) + (if (eq? _%thr110646%_ ##primordial-thread) __primordial-thread-locals (let () (mutex-lock! __thread-locals-mutex) - (let ((_%$e110551%_ + (let ((_%$e110657%_ (let () (declare (not safe)) - (__hash-get __thread-locals _%thr110540%_)))) - (if _%$e110551%_ - ((lambda (_%tab110554%_) + (__hash-get __thread-locals _%thr110646%_)))) + (if _%$e110657%_ + ((lambda (_%tab110660%_) (mutex-unlock! __thread-locals-mutex) - _%tab110554%_) - _%$e110551%_) - (let ((_%tab110557%_ + _%tab110660%_) + _%$e110657%_) + (let ((_%tab110663%_ (let () (declare (not safe)) (make-hash-table-eq)))) @@ -208,10 +208,10 @@ (declare (not safe)) (__hash-put! __thread-locals - _%thr110540%_ - _%tab110557%_)) + _%thr110646%_ + _%tab110663%_)) (mutex-unlock! __thread-locals-mutex) - _%tab110557%_))))))))) + _%tab110663%_))))))))) (define __primordial-thread-locals (let () (declare (not safe)) (make-hash-table-eq))) (define __thread-locals @@ -221,12 +221,12 @@ (define unhandled-actor-exception-hook (lambda () __unhandled-actor-exception-hook)) (define unhandled-actor-exception-hook-set! - (lambda (_%new-value110518%_) - (if ((lambda (_%$obj110521%_) - (or (not _%$obj110521%_) (procedure? _%$obj110521%_))) - _%new-value110518%_) - (let ((_%new-value110528%_ _%new-value110518%_)) - (__unhandled-actor-exception-hook-set! _%new-value110528%_)) + (lambda (_%new-value110624%_) + (if ((lambda (_%$obj110627%_) + (or (not _%$obj110627%_) (procedure? _%$obj110627%_))) + _%new-value110624%_) + (let ((_%new-value110634%_ _%new-value110624%_)) + (__unhandled-actor-exception-hook-set! _%new-value110634%_)) (begin (raise-contract-violation-error '"contract violation" @@ -235,21 +235,21 @@ 'contract: '(? (or not procedure?)) 'value: - _%new-value110518%_) + _%new-value110624%_) '#!void)))) (define __unhandled-actor-exception-hook-set! - (lambda (_%new-value110505%_) - (let ((_%new-value110509%_ _%new-value110505%_)) - (set! __unhandled-actor-exception-hook _%new-value110509%_)))) + (lambda (_%new-value110611%_) + (let ((_%new-value110615%_ _%new-value110611%_)) + (set! __unhandled-actor-exception-hook _%new-value110615%_)))) (define current-thread-group (lambda () (thread-thread-group (current-thread)))) (define with-lock - (lambda (_%mx110479%_ _%proc110480%_) - (if (mutex? _%mx110479%_) - (let ((_%mx110484%_ _%mx110479%_)) - (if (procedure? _%proc110480%_) - (let ((_%proc110494%_ _%proc110480%_)) - (__with-lock _%mx110484%_ _%proc110494%_)) + (lambda (_%mx110585%_ _%proc110586%_) + (if (mutex? _%mx110585%_) + (let ((_%mx110590%_ _%mx110585%_)) + (if (procedure? _%proc110586%_) + (let ((_%proc110600%_ _%proc110586%_)) + (__with-lock _%mx110590%_ _%proc110600%_)) (begin (raise-contract-violation-error '"contract violation" @@ -258,7 +258,7 @@ 'contract: 'procedure? 'value: - _%proc110480%_) + _%proc110586%_) '#!void))) (begin (raise-contract-violation-error @@ -268,42 +268,42 @@ 'contract: 'mutex? 'value: - _%mx110479%_) + _%mx110585%_) '#!void)))) (define __with-lock - (lambda (_%mx110450%_ _%proc110451%_) - (let* ((_%mx110454%_ _%mx110450%_) - (_%proc110462%_ _%proc110451%_) - (_%handler110471%_ (current-exception-handler))) - (let ((__tmp110735 - (lambda (_%e110473%_) - (let ((__tmp110736 + (lambda (_%mx110556%_ _%proc110557%_) + (let* ((_%mx110560%_ _%mx110556%_) + (_%proc110568%_ _%proc110557%_) + (_%handler110577%_ (current-exception-handler))) + (let ((__tmp110841 + (lambda (_%e110579%_) + (let ((__tmp110842 (lambda () - (mutex-unlock! _%mx110454%_) + (mutex-unlock! _%mx110560%_) (let () (declare (not safe)) - (_%handler110471%_ _%e110473%_))))) + (_%handler110577%_ _%e110579%_))))) (declare (not safe)) - (__with-catch void __tmp110736)) + (__with-catch void __tmp110842)) (let () (declare (not safe)) - (##thread-end-with-uncaught-exception! _%e110473%_)))) - (__tmp110734 + (##thread-end-with-uncaught-exception! _%e110579%_)))) + (__tmp110840 (lambda () - (mutex-lock! _%mx110454%_) - (let ((_%result110477%_ - (let () (declare (not safe)) (_%proc110462%_)))) - (mutex-unlock! _%mx110454%_) - _%result110477%_)))) + (mutex-lock! _%mx110560%_) + (let ((_%result110583%_ + (let () (declare (not safe)) (_%proc110568%_)))) + (mutex-unlock! _%mx110560%_) + _%result110583%_)))) (declare (not safe)) - (__with-exception-handler __tmp110735 __tmp110734))))) + (__with-exception-handler __tmp110841 __tmp110840))))) (define with-dynamic-lock - (lambda (_%mx110425%_ _%proc110426%_) - (if (mutex? _%mx110425%_) - (let ((_%mx110430%_ _%mx110425%_)) - (if (procedure? _%proc110426%_) - (let ((_%proc110440%_ _%proc110426%_)) - (__with-dynamic-lock _%mx110430%_ _%proc110440%_)) + (lambda (_%mx110531%_ _%proc110532%_) + (if (mutex? _%mx110531%_) + (let ((_%mx110536%_ _%mx110531%_)) + (if (procedure? _%proc110532%_) + (let ((_%proc110546%_ _%proc110532%_)) + (__with-dynamic-lock _%mx110536%_ _%proc110546%_)) (begin (raise-contract-violation-error '"contract violation" @@ -312,7 +312,7 @@ 'contract: 'procedure? 'value: - _%proc110426%_) + _%proc110532%_) '#!void))) (begin (raise-contract-violation-error @@ -322,24 +322,24 @@ 'contract: 'mutex? 'value: - _%mx110425%_) + _%mx110531%_) '#!void)))) (define __with-dynamic-lock - (lambda (_%mx110402%_ _%proc110403%_) - (let* ((_%mx110406%_ _%mx110402%_) (_%proc110414%_ _%proc110403%_)) - (let ((__tmp110738 (lambda () (mutex-lock! _%mx110406%_))) - (__tmp110737 (lambda () (mutex-unlock! _%mx110406%_)))) + (lambda (_%mx110508%_ _%proc110509%_) + (let* ((_%mx110512%_ _%mx110508%_) (_%proc110520%_ _%proc110509%_)) + (let ((__tmp110844 (lambda () (mutex-lock! _%mx110512%_))) + (__tmp110843 (lambda () (mutex-unlock! _%mx110512%_)))) (declare (not safe)) - (##dynamic-wind __tmp110738 _%proc110414%_ __tmp110737))))) + (##dynamic-wind __tmp110844 _%proc110520%_ __tmp110843))))) (define with-exception-stack-trace__% - (lambda (_%thunk110367%_ _%error-port110368%_) - (if (procedure? _%thunk110367%_) - (let ((_%thunk110372%_ _%thunk110367%_)) - (if (port? _%error-port110368%_) - (let ((_%error-port110382%_ _%error-port110368%_)) + (lambda (_%thunk110473%_ _%error-port110474%_) + (if (procedure? _%thunk110473%_) + (let ((_%thunk110478%_ _%thunk110473%_)) + (if (port? _%error-port110474%_) + (let ((_%error-port110488%_ _%error-port110474%_)) (__with-exception-stack-trace__% - _%thunk110372%_ - _%error-port110382%_)) + _%thunk110478%_ + _%error-port110488%_)) (begin (raise-contract-violation-error '"contract violation" @@ -348,7 +348,7 @@ 'contract: 'port? 'value: - _%error-port110368%_) + _%error-port110474%_) '#!void))) (begin (raise-contract-violation-error @@ -358,105 +358,105 @@ 'contract: 'procedure? 'value: - _%thunk110367%_) + _%thunk110473%_) '#!void)))) (define with-exception-stack-trace__0 - (lambda (_%thunk110395%_) - (let ((_%error-port110397%_ (current-error-port))) + (lambda (_%thunk110501%_) + (let ((_%error-port110503%_ (current-error-port))) (with-exception-stack-trace__% - _%thunk110395%_ - _%error-port110397%_)))) + _%thunk110501%_ + _%error-port110503%_)))) (define with-exception-stack-trace - (lambda _g110740_ - (let ((_g110739_ (let () (declare (not safe)) (##length _g110740_)))) - (cond ((let () (declare (not safe)) (##fx= _g110739_ 1)) - (apply with-exception-stack-trace__0 _g110740_)) - ((let () (declare (not safe)) (##fx= _g110739_ 2)) - (apply with-exception-stack-trace__% _g110740_)) + (lambda _g110846_ + (let ((_g110845_ (let () (declare (not safe)) (##length _g110846_)))) + (cond ((let () (declare (not safe)) (##fx= _g110845_ 1)) + (apply with-exception-stack-trace__0 _g110846_)) + ((let () (declare (not safe)) (##fx= _g110845_ 2)) + (apply with-exception-stack-trace__% _g110846_)) (else (##raise-wrong-number-of-arguments-exception with-exception-stack-trace - _g110740_)))))) + _g110846_)))))) (define __with-exception-stack-trace__% - (lambda (_%thunk110328%_ _%error-port110329%_) - (let* ((_%thunk110332%_ _%thunk110328%_) - (_%error-port110341%_ _%error-port110329%_) - (__tmp110741 - (let ((_%E110350%_ (current-exception-handler))) - (lambda (_%exn110352%_) - (let ((__tmp110742 - (lambda (_%cont110354%_) + (lambda (_%thunk110434%_ _%error-port110435%_) + (let* ((_%thunk110438%_ _%thunk110434%_) + (_%error-port110447%_ _%error-port110435%_) + (__tmp110847 + (let ((_%E110456%_ (current-exception-handler))) + (lambda (_%exn110458%_) + (let ((__tmp110848 + (lambda (_%cont110460%_) (if (let () (declare (not safe)) (dump-stack-trace?)) (dump-stack-trace!__% - _%cont110354%_ - _%exn110352%_ - _%error-port110341%_) + _%cont110460%_ + _%exn110458%_ + _%error-port110447%_) '#!void) (let () (declare (not safe)) - (_%E110350%_ _%exn110352%_))))) + (_%E110456%_ _%exn110458%_))))) (declare (not safe)) - (##continuation-capture __tmp110742)))))) + (##continuation-capture __tmp110848)))))) (declare (not safe)) - (__with-exception-handler __tmp110741 _%thunk110332%_)))) + (__with-exception-handler __tmp110847 _%thunk110438%_)))) (define __with-exception-stack-trace__0 - (lambda (_%thunk110359%_) - (let ((_%error-port110361%_ (current-error-port))) + (lambda (_%thunk110465%_) + (let ((_%error-port110467%_ (current-error-port))) (__with-exception-stack-trace__% - _%thunk110359%_ - _%error-port110361%_)))) + _%thunk110465%_ + _%error-port110467%_)))) (define __with-exception-stack-trace - (lambda _g110744_ - (let ((_g110743_ (let () (declare (not safe)) (##length _g110744_)))) - (cond ((let () (declare (not safe)) (##fx= _g110743_ 1)) - (apply __with-exception-stack-trace__0 _g110744_)) - ((let () (declare (not safe)) (##fx= _g110743_ 2)) - (apply __with-exception-stack-trace__% _g110744_)) + (lambda _g110850_ + (let ((_g110849_ (let () (declare (not safe)) (##length _g110850_)))) + (cond ((let () (declare (not safe)) (##fx= _g110849_ 1)) + (apply __with-exception-stack-trace__0 _g110850_)) + ((let () (declare (not safe)) (##fx= _g110849_ 2)) + (apply __with-exception-stack-trace__% _g110850_)) (else (##raise-wrong-number-of-arguments-exception __with-exception-stack-trace - _g110744_)))))) + _g110850_)))))) (define dump-stack-trace!__% - (lambda (_%cont110309%_ _%exn110310%_ _%error-port110311%_) - (let ((_%out110313%_ (open-output-string))) - (let () (declare (not safe)) (fix-port-width! _%out110313%_)) - (display '"*** Unhandled exception in " _%out110313%_) - (display (current-thread) _%out110313%_) - (newline _%out110313%_) + (lambda (_%cont110415%_ _%exn110416%_ _%error-port110417%_) + (let ((_%out110419%_ (open-output-string))) + (let () (declare (not safe)) (fix-port-width! _%out110419%_)) + (display '"*** Unhandled exception in " _%out110419%_) + (display (current-thread) _%out110419%_) + (newline _%out110419%_) (let () (declare (not safe)) - (display-exception__% _%exn110310%_ _%out110313%_)) + (display-exception__% _%exn110416%_ _%out110419%_)) (if (let () (declare (not safe)) - (class-instance? StackTrace::t _%exn110310%_)) + (class-instance? StackTrace::t _%exn110416%_)) '#!void (begin - (display '"Continuation backtrace: " _%out110313%_) - (newline _%out110313%_) - (display-continuation-backtrace _%cont110309%_ _%out110313%_))) - (let ((__tmp110745 (get-output-string _%out110313%_))) + (display '"Continuation backtrace: " _%out110419%_) + (newline _%out110419%_) + (display-continuation-backtrace _%cont110415%_ _%out110419%_))) + (let ((__tmp110851 (get-output-string _%out110419%_))) (declare (not safe)) - (##write-string __tmp110745 _%error-port110311%_))))) + (##write-string __tmp110851 _%error-port110417%_))))) (define dump-stack-trace!__0 - (lambda (_%cont110318%_ _%exn110319%_) - (let ((_%error-port110321%_ (current-error-port))) + (lambda (_%cont110424%_ _%exn110425%_) + (let ((_%error-port110427%_ (current-error-port))) (dump-stack-trace!__% - _%cont110318%_ - _%exn110319%_ - _%error-port110321%_)))) + _%cont110424%_ + _%exn110425%_ + _%error-port110427%_)))) (define dump-stack-trace! - (lambda _g110747_ - (let ((_g110746_ (let () (declare (not safe)) (##length _g110747_)))) - (cond ((let () (declare (not safe)) (##fx= _g110746_ 2)) - (apply dump-stack-trace!__0 _g110747_)) - ((let () (declare (not safe)) (##fx= _g110746_ 3)) - (apply dump-stack-trace!__% _g110747_)) + (lambda _g110853_ + (let ((_g110852_ (let () (declare (not safe)) (##length _g110853_)))) + (cond ((let () (declare (not safe)) (##fx= _g110852_ 2)) + (apply dump-stack-trace!__0 _g110853_)) + ((let () (declare (not safe)) (##fx= _g110852_ 3)) + (apply dump-stack-trace!__% _g110853_)) (else (##raise-wrong-number-of-arguments-exception dump-stack-trace! - _g110747_)))))) + _g110853_)))))) (define-type-of-thread actor-thread constructor: diff --git a/src/bootstrap/gerbil/runtime/util~0.scm b/src/bootstrap/gerbil/runtime/util~0.scm index 2050873ce..69c33b7a2 100644 --- a/src/bootstrap/gerbil/runtime/util~0.scm +++ b/src/bootstrap/gerbil/runtime/util~0.scm @@ -1,24 +1,24 @@ (declare (block) (standard-bindings) (extended-bindings)) (begin - (define gerbil/runtime/util::timestamp 1733870072) + (define gerbil/runtime/util::timestamp 1734131744) (begin (define raise-contract-violation-error error) (set! raise-contract-violation-error raise-contract-violation-error) (define displayln - (lambda _%args89524%_ + (lambda _%args89587%_ (let () - (let () (declare (not safe)) (##for-each display _%args89524%_)) + (let () (declare (not safe)) (##for-each display _%args89587%_)) (newline)))) (define display* - (lambda _%args89521%_ - (let () (declare (not safe)) (##for-each display _%args89521%_)))) + (lambda _%args89584%_ + (let () (declare (not safe)) (##for-each display _%args89584%_)))) (define file-newer? - (lambda (_%file189496%_ _%file289497%_) - (if (string? _%file189496%_) - (let ((_%file189501%_ _%file189496%_)) - (if (string? _%file289497%_) - (let ((_%file289511%_ _%file289497%_)) - (__file-newer? _%file189501%_ _%file289511%_)) + (lambda (_%file189559%_ _%file289560%_) + (if (string? _%file189559%_) + (let ((_%file189564%_ _%file189559%_)) + (if (string? _%file289560%_) + (let ((_%file289574%_ _%file289560%_)) + (__file-newer? _%file189564%_ _%file289574%_)) (begin (raise-contract-violation-error '"contract violation" @@ -27,7 +27,7 @@ 'contract: 'string? 'value: - _%file289497%_) + _%file289560%_) '#!void))) (begin (raise-contract-violation-error @@ -37,39 +37,39 @@ 'contract: 'string? 'value: - _%file189496%_) + _%file189559%_) '#!void)))) (define __file-newer? - (lambda (_%file189444%_ _%file289445%_) - (let* ((_%file189448%_ _%file189444%_) (_%file289456%_ _%file289445%_)) - (letrec ((_%modification-time89465%_ - (lambda (_%file89484%_) - (let ((_%file89487%_ _%file89484%_)) - (_%__modification-time89466%_ _%file89487%_)))) - (_%__modification-time89466%_ - (lambda (_%file89468%_) - (let* ((_%file89471%_ _%file89468%_) - (__tmp91254 - (let ((__tmp91255 + (lambda (_%file189507%_ _%file289508%_) + (let* ((_%file189511%_ _%file189507%_) (_%file289519%_ _%file289508%_)) + (letrec ((_%modification-time89528%_ + (lambda (_%file89547%_) + (let ((_%file89550%_ _%file89547%_)) + (_%__modification-time89529%_ _%file89550%_)))) + (_%__modification-time89529%_ + (lambda (_%file89531%_) + (let* ((_%file89534%_ _%file89531%_) + (__tmp91317 + (let ((__tmp91318 (let () (declare (not safe)) - (##file-info _%file89471%_ '#t)))) + (##file-info _%file89534%_ '#t)))) (declare (not safe)) (##file-info-last-modification-time - __tmp91255)))) + __tmp91318)))) (declare (not safe)) - (##time->seconds __tmp91254))))) - (let ((__tmp91257 (_%__modification-time89466%_ _%file189448%_)) - (__tmp91256 (_%__modification-time89466%_ _%file289456%_))) + (##time->seconds __tmp91317))))) + (let ((__tmp91320 (_%__modification-time89529%_ _%file189511%_)) + (__tmp91319 (_%__modification-time89529%_ _%file289519%_))) (declare (not safe)) - (##fl> __tmp91257 __tmp91256)))))) + (##fl> __tmp91320 __tmp91319)))))) (define create-directory*__% - (lambda (_%dir89409%_ _%perms89410%_) - (if (string? _%dir89409%_) - (let ((_%dir89414%_ _%dir89409%_)) - (if (fixnum? _%perms89410%_) - (let ((_%perms89424%_ _%perms89410%_)) - (__create-directory*__% _%dir89414%_ _%perms89424%_)) + (lambda (_%dir89472%_ _%perms89473%_) + (if (string? _%dir89472%_) + (let ((_%dir89477%_ _%dir89472%_)) + (if (fixnum? _%perms89473%_) + (let ((_%perms89487%_ _%perms89473%_)) + (__create-directory*__% _%dir89477%_ _%perms89487%_)) (begin (raise-contract-violation-error '"contract violation" @@ -78,7 +78,7 @@ 'contract: 'fixnum? 'value: - _%perms89410%_) + _%perms89473%_) '#!void))) (begin (raise-contract-violation-error @@ -88,95 +88,95 @@ 'contract: 'string? 'value: - _%dir89409%_) + _%dir89472%_) '#!void)))) (define create-directory*__0 - (lambda (_%dir89437%_) - (let ((_%perms89439%_ '493)) - (create-directory*__% _%dir89437%_ _%perms89439%_)))) + (lambda (_%dir89500%_) + (let ((_%perms89502%_ '493)) + (create-directory*__% _%dir89500%_ _%perms89502%_)))) (define create-directory* - (lambda _g91259_ - (let ((_g91258_ (let () (declare (not safe)) (##length _g91259_)))) - (cond ((let () (declare (not safe)) (##fx= _g91258_ 1)) - (apply create-directory*__0 _g91259_)) - ((let () (declare (not safe)) (##fx= _g91258_ 2)) - (apply create-directory*__% _g91259_)) + (lambda _g91322_ + (let ((_g91321_ (let () (declare (not safe)) (##length _g91322_)))) + (cond ((let () (declare (not safe)) (##fx= _g91321_ 1)) + (apply create-directory*__0 _g91322_)) + ((let () (declare (not safe)) (##fx= _g91321_ 2)) + (apply create-directory*__% _g91322_)) (else (##raise-wrong-number-of-arguments-exception create-directory* - _g91259_)))))) + _g91322_)))))) (define __create-directory*__% - (lambda (_%dir89333%_ _%perms89334%_) - (let* ((_%dir89337%_ _%dir89333%_) (_%perms89345%_ _%perms89334%_)) - (letrec ((_%create189354%_ - (lambda (_%path89386%_) - (let ((_%path89389%_ _%path89386%_)) - (_%__create189355%_ _%path89389%_)))) - (_%__create189355%_ - (lambda (_%path89367%_) - (let ((_%path89370%_ _%path89367%_)) + (lambda (_%dir89396%_ _%perms89397%_) + (let* ((_%dir89400%_ _%dir89396%_) (_%perms89408%_ _%perms89397%_)) + (letrec ((_%create189417%_ + (lambda (_%path89449%_) + (let ((_%path89452%_ _%path89449%_)) + (_%__create189418%_ _%path89452%_)))) + (_%__create189418%_ + (lambda (_%path89430%_) + (let ((_%path89433%_ _%path89430%_)) (if (let () (declare (not safe)) - (##file-exists? _%path89370%_)) - (if (eq? (file-type _%path89370%_) 'directory) + (##file-exists? _%path89433%_)) + (if (eq? (file-type _%path89433%_) 'directory) '#!void (error '"Path component is not a directory" - _%path89370%_)) - (if _%perms89345%_ + _%path89433%_)) + (if _%perms89408%_ (create-directory (cons 'path: - (cons _%path89370%_ + (cons _%path89433%_ (cons 'permissions: - (cons _%perms89345%_ + (cons _%perms89408%_ '()))))) - (create-directory _%path89370%_))))))) - (if (let () (declare (not safe)) (##file-exists? _%dir89337%_)) + (create-directory _%path89433%_))))))) + (if (let () (declare (not safe)) (##file-exists? _%dir89400%_)) '#!void - (let _%lp89357%_ ((_%start89359%_ '0)) - (let ((_%$e89361%_ - (__string-index__% _%dir89337%_ '#\/ _%start89359%_))) - (if _%$e89361%_ - ((lambda (_%x89364%_) + (let _%lp89420%_ ((_%start89422%_ '0)) + (let ((_%$e89424%_ + (__string-index__% _%dir89400%_ '#\/ _%start89422%_))) + (if _%$e89424%_ + ((lambda (_%x89427%_) (if (let () (declare (not safe)) - (##fx> _%x89364%_ '0)) - (_%__create189355%_ - (substring _%dir89337%_ '0 _%x89364%_)) + (##fx> _%x89427%_ '0)) + (_%__create189418%_ + (substring _%dir89400%_ '0 _%x89427%_)) '#!void) - (_%lp89357%_ + (_%lp89420%_ (let () (declare (not safe)) - (##fx+ _%x89364%_ '1)))) - _%$e89361%_) - (_%__create189355%_ _%dir89337%_))))) + (##fx+ _%x89427%_ '1)))) + _%$e89424%_) + (_%__create189418%_ _%dir89400%_))))) '#!void)))) (define __create-directory*__0 - (lambda (_%dir89401%_) - (let ((_%perms89403%_ '493)) - (__create-directory*__% _%dir89401%_ _%perms89403%_)))) + (lambda (_%dir89464%_) + (let ((_%perms89466%_ '493)) + (__create-directory*__% _%dir89464%_ _%perms89466%_)))) (define __create-directory* - (lambda _g91261_ - (let ((_g91260_ (let () (declare (not safe)) (##length _g91261_)))) - (cond ((let () (declare (not safe)) (##fx= _g91260_ 1)) - (apply __create-directory*__0 _g91261_)) - ((let () (declare (not safe)) (##fx= _g91260_ 2)) - (apply __create-directory*__% _g91261_)) + (lambda _g91324_ + (let ((_g91323_ (let () (declare (not safe)) (##length _g91324_)))) + (cond ((let () (declare (not safe)) (##fx= _g91323_ 1)) + (apply __create-directory*__0 _g91324_)) + ((let () (declare (not safe)) (##fx= _g91323_ 2)) + (apply __create-directory*__% _g91324_)) (else (##raise-wrong-number-of-arguments-exception __create-directory* - _g91261_)))))) + _g91324_)))))) (define move-file__% - (lambda (_%src89284%_ _%dest89285%_ _%replace?89286%_) - (if (string? _%src89284%_) - (let ((_%src89290%_ _%src89284%_)) - (if (string? _%dest89285%_) - (let ((_%dest89300%_ _%dest89285%_)) - (if (boolean? _%replace?89286%_) - (let ((_%replace?89310%_ _%replace?89286%_)) + (lambda (_%src89347%_ _%dest89348%_ _%replace?89349%_) + (if (string? _%src89347%_) + (let ((_%src89353%_ _%src89347%_)) + (if (string? _%dest89348%_) + (let ((_%dest89363%_ _%dest89348%_)) + (if (boolean? _%replace?89349%_) + (let ((_%replace?89373%_ _%replace?89349%_)) (__move-file__% - _%src89290%_ - _%dest89300%_ - _%replace?89310%_)) + _%src89353%_ + _%dest89363%_ + _%replace?89373%_)) (begin (raise-contract-violation-error '"contract violation" @@ -185,7 +185,7 @@ 'contract: 'boolean? 'value: - _%replace?89286%_) + _%replace?89349%_) '#!void))) (begin (raise-contract-violation-error @@ -195,7 +195,7 @@ 'contract: 'string? 'value: - _%dest89285%_) + _%dest89348%_) '#!void))) (begin (raise-contract-violation-error @@ -205,155 +205,155 @@ 'contract: 'string? 'value: - _%src89284%_) + _%src89347%_) '#!void)))) (define move-file__0 - (lambda (_%src89323%_ _%dest89324%_) - (let ((_%replace?89326%_ '#t)) - (move-file__% _%src89323%_ _%dest89324%_ _%replace?89326%_)))) + (lambda (_%src89386%_ _%dest89387%_) + (let ((_%replace?89389%_ '#t)) + (move-file__% _%src89386%_ _%dest89387%_ _%replace?89389%_)))) (define move-file - (lambda _g91263_ - (let ((_g91262_ (let () (declare (not safe)) (##length _g91263_)))) - (cond ((let () (declare (not safe)) (##fx= _g91262_ 2)) - (apply move-file__0 _g91263_)) - ((let () (declare (not safe)) (##fx= _g91262_ 3)) - (apply move-file__% _g91263_)) + (lambda _g91326_ + (let ((_g91325_ (let () (declare (not safe)) (##length _g91326_)))) + (cond ((let () (declare (not safe)) (##fx= _g91325_ 2)) + (apply move-file__0 _g91326_)) + ((let () (declare (not safe)) (##fx= _g91325_ 3)) + (apply move-file__% _g91326_)) (else (##raise-wrong-number-of-arguments-exception move-file - _g91263_)))))) + _g91326_)))))) (define __move-file__% - (lambda (_%src89227%_ _%dest89228%_ _%replace?89229%_) - (let* ((_%src89232%_ _%src89227%_) - (_%dest89240%_ _%dest89228%_) - (_%replace?89248%_ _%replace?89229%_)) - (letrec ((_%force-move-it89257%_ + (lambda (_%src89290%_ _%dest89291%_ _%replace?89292%_) + (let* ((_%src89295%_ _%src89290%_) + (_%dest89303%_ _%dest89291%_) + (_%replace?89311%_ _%replace?89292%_)) + (letrec ((_%force-move-it89320%_ (lambda () - (let ((_%tmp89263%_ - (if _%replace?89248%_ + (let ((_%tmp89326%_ + (if _%replace?89311%_ (if (let () (declare (not safe)) - (##file-exists? _%dest89240%_)) - (let ((__tmp91264 + (##file-exists? _%dest89303%_)) + (let ((__tmp91327 (number->string (let () (declare (not safe)) (##current-time-point))))) (declare (not safe)) (##string-append - _%dest89240%_ + _%dest89303%_ '"." - __tmp91264)) + __tmp91327)) '#f) '#f))) - (if _%tmp89263%_ - (rename-file _%dest89240%_ _%tmp89263%_) + (if _%tmp89326%_ + (rename-file _%dest89303%_ _%tmp89326%_) '#!void) (with-exception-catcher - (lambda (_%e89265%_) - (if _%tmp89263%_ - (rename-file _%tmp89263%_ _%dest89240%_ '#t) + (lambda (_%e89328%_) + (if _%tmp89326%_ + (rename-file _%tmp89326%_ _%dest89303%_ '#t) '#!void) - (raise _%e89265%_)) + (raise _%e89328%_)) (lambda () - (let ((_%fi89268%_ + (let ((_%fi89331%_ (let () (declare (not safe)) - (##file-info _%src89232%_ '#f)))) + (##file-info _%src89295%_ '#f)))) (if (eq? (let () (declare (not safe)) - (##file-info-type _%fi89268%_)) + (##file-info-type _%fi89331%_)) 'symbolic-link) - (let ((__tmp91265 - (path-normalize _%src89232%_))) + (let ((__tmp91328 + (path-normalize _%src89295%_))) (declare (not safe)) (##create-symbolic-link - __tmp91265 - _%dest89240%_)) + __tmp91328 + _%dest89303%_)) (let () (declare (not safe)) - (##copy-file _%src89232%_ _%dest89240%_)))) + (##copy-file _%src89295%_ _%dest89303%_)))) (let () (declare (not safe)) - (##delete-file _%src89232%_)) - (if _%tmp89263%_ + (##delete-file _%src89295%_)) + (if _%tmp89326%_ (with-exception-catcher void - (lambda () (delete-file _%tmp89263%_))) + (lambda () (delete-file _%tmp89326%_))) '#!void))))))) (with-exception-catcher - (lambda (_%e89259%_) - (if (let () (declare (not safe)) (##file-exists? _%src89232%_)) - (_%force-move-it89257%_) - (raise _%e89259%_))) + (lambda (_%e89322%_) + (if (let () (declare (not safe)) (##file-exists? _%src89295%_)) + (_%force-move-it89320%_) + (raise _%e89322%_))) (lambda () (let () (declare (not safe)) (##rename-file - _%src89232%_ - _%dest89240%_ - _%replace?89248%_)))) + _%src89295%_ + _%dest89303%_ + _%replace?89311%_)))) '#!void)))) (define __move-file__0 - (lambda (_%src89274%_ _%dest89275%_) - (let ((_%replace?89277%_ '#t)) - (__move-file__% _%src89274%_ _%dest89275%_ _%replace?89277%_)))) + (lambda (_%src89337%_ _%dest89338%_) + (let ((_%replace?89340%_ '#t)) + (__move-file__% _%src89337%_ _%dest89338%_ _%replace?89340%_)))) (define __move-file - (lambda _g91267_ - (let ((_g91266_ (let () (declare (not safe)) (##length _g91267_)))) - (cond ((let () (declare (not safe)) (##fx= _g91266_ 2)) - (apply __move-file__0 _g91267_)) - ((let () (declare (not safe)) (##fx= _g91266_ 3)) - (apply __move-file__% _g91267_)) + (lambda _g91330_ + (let ((_g91329_ (let () (declare (not safe)) (##length _g91330_)))) + (cond ((let () (declare (not safe)) (##fx= _g91329_ 2)) + (apply __move-file__0 _g91330_)) + ((let () (declare (not safe)) (##fx= _g91329_ 3)) + (apply __move-file__% _g91330_)) (else (##raise-wrong-number-of-arguments-exception __move-file - _g91267_)))))) + _g91330_)))))) (define absent-obj (let () (declare (not safe)) (##absent-object))) (define absent-value '#(#!void)) - (define true (lambda _%ignore89223%_ '#t)) - (define true? (lambda (_%obj89220%_) (eq? _%obj89220%_ '#t))) - (define false (lambda _%ignore89217%_ '#f)) - (define void (lambda _%ignore89214%_ '#!void)) - (define void? (lambda (_%obj89211%_) (eq? _%obj89211%_ '#!void))) + (define true (lambda _%ignore89286%_ '#t)) + (define true? (lambda (_%obj89283%_) (eq? _%obj89283%_ '#t))) + (define false (lambda _%ignore89280%_ '#f)) + (define void (lambda _%ignore89277%_ '#!void)) + (define void? (lambda (_%obj89274%_) (eq? _%obj89274%_ '#!void))) (define dssl-object? - (lambda (_%obj89208%_) + (lambda (_%obj89271%_) (if (let () (declare (not safe)) - (##memq _%obj89208%_ '(#!key #!rest #!optional))) + (##memq _%obj89271%_ '(#!key #!rest #!optional))) '#t '#f))) - (define dssl-key-object? (lambda (_%obj89205%_) (eq? _%obj89205%_ '#!key))) + (define dssl-key-object? (lambda (_%obj89268%_) (eq? _%obj89268%_ '#!key))) (define dssl-rest-object? - (lambda (_%obj89202%_) (eq? _%obj89202%_ '#!rest))) + (lambda (_%obj89265%_) (eq? _%obj89265%_ '#!rest))) (define dssl-optional-object? - (lambda (_%obj89199%_) (eq? _%obj89199%_ '#!optional))) + (lambda (_%obj89262%_) (eq? _%obj89262%_ '#!optional))) (define immediate? - (lambda (_%obj89194%_) - (let* ((_%t89197%_ (let () (declare (not safe)) (##type _%obj89194%_))) - (__tmp91268 - (let () (declare (not safe)) (##fxand _%t89197%_ '1)))) + (lambda (_%obj89257%_) + (let* ((_%t89260%_ (let () (declare (not safe)) (##type _%obj89257%_))) + (__tmp91331 + (let () (declare (not safe)) (##fxand _%t89260%_ '1)))) (declare (not safe)) - (##fxzero? __tmp91268)))) + (##fxzero? __tmp91331)))) (define nonnegative-fixnum? - (lambda (_%obj89191%_) - (if (fixnum? _%obj89191%_) - (let () (declare (not safe)) (##fx>= _%obj89191%_ '0)) + (lambda (_%obj89254%_) + (if (fixnum? _%obj89254%_) + (let () (declare (not safe)) (##fx>= _%obj89254%_ '0)) '#f))) (define pair-or-null? - (lambda (_%obj89185%_) - (let ((_%$e89188%_ (pair? _%obj89185%_))) - (if _%$e89188%_ _%$e89188%_ (null? _%obj89185%_))))) + (lambda (_%obj89248%_) + (let ((_%$e89251%_ (pair? _%obj89248%_))) + (if _%$e89251%_ _%$e89251%_ (null? _%obj89248%_))))) (define values-count - (lambda (_%obj89182%_) - (if (let () (declare (not safe)) (##values? _%obj89182%_)) - (let () (declare (not safe)) (##vector-length _%obj89182%_)) + (lambda (_%obj89245%_) + (if (let () (declare (not safe)) (##values? _%obj89245%_)) + (let () (declare (not safe)) (##vector-length _%obj89245%_)) '1))) (define values-ref - (lambda (_%obj89167%_ _%k89168%_) - (if (fixnum? _%k89168%_) - (let ((_%k89172%_ _%k89168%_)) - (__values-ref _%obj89167%_ _%k89172%_)) + (lambda (_%obj89230%_ _%k89231%_) + (if (fixnum? _%k89231%_) + (let ((_%k89235%_ _%k89231%_)) + (__values-ref _%obj89230%_ _%k89235%_)) (begin (raise-contract-violation-error '"contract violation" @@ -362,26 +362,26 @@ 'contract: 'fixnum? 'value: - _%k89168%_) + _%k89231%_) '#!void)))) (define __values-ref - (lambda (_%obj89154%_ _%k89155%_) - (let ((_%k89158%_ _%k89155%_)) - (if (let () (declare (not safe)) (##values? _%obj89154%_)) + (lambda (_%obj89217%_ _%k89218%_) + (let ((_%k89221%_ _%k89218%_)) + (if (let () (declare (not safe)) (##values? _%obj89217%_)) (let () (declare (not safe)) - (##vector-ref _%obj89154%_ _%k89158%_)) - _%obj89154%_)))) + (##vector-ref _%obj89217%_ _%k89221%_)) + _%obj89217%_)))) (define values->list - (lambda (_%obj89151%_) - (if (let () (declare (not safe)) (##values? _%obj89151%_)) - (let () (declare (not safe)) (##vector->list _%obj89151%_)) - (list _%obj89151%_)))) + (lambda (_%obj89214%_) + (if (let () (declare (not safe)) (##values? _%obj89214%_)) + (let () (declare (not safe)) (##vector->list _%obj89214%_)) + (list _%obj89214%_)))) (define foldl1 - (lambda (_%f89135%_ _%iv89136%_ _%lst89137%_) - (if (procedure? _%f89135%_) - (let ((_%f89141%_ _%f89135%_)) - (__foldl1 _%f89141%_ _%iv89136%_ _%lst89137%_)) + (lambda (_%f89198%_ _%iv89199%_ _%lst89200%_) + (if (procedure? _%f89198%_) + (let ((_%f89204%_ _%f89198%_)) + (__foldl1 _%f89204%_ _%iv89199%_ _%lst89200%_)) (begin (raise-contract-violation-error '"contract violation" @@ -390,40 +390,40 @@ 'contract: 'procedure? 'value: - _%f89135%_) + _%f89198%_) '#!void)))) (define __foldl1 - (lambda (_%f89083%_ _%iv89084%_ _%lst89085%_) - (let ((_%f89088%_ _%f89083%_)) - (let _%lp89097%_ ((_%rest89099%_ _%lst89085%_) - (_%r89100%_ _%iv89084%_)) - (let* ((_%rest8910189109%_ _%rest89099%_) - (_%else8910389117%_ (lambda () _%r89100%_)) - (_%K8910589123%_ - (lambda (_%rest89120%_ _%x89121%_) - (_%lp89097%_ - _%rest89120%_ + (lambda (_%f89146%_ _%iv89147%_ _%lst89148%_) + (let ((_%f89151%_ _%f89146%_)) + (let _%lp89160%_ ((_%rest89162%_ _%lst89148%_) + (_%r89163%_ _%iv89147%_)) + (let* ((_%rest8916489172%_ _%rest89162%_) + (_%else8916689180%_ (lambda () _%r89163%_)) + (_%K8916889186%_ + (lambda (_%rest89183%_ _%x89184%_) + (_%lp89160%_ + _%rest89183%_ (let () (declare (not safe)) - (_%f89088%_ _%x89121%_ _%r89100%_)))))) - (if (pair? _%rest8910189109%_) - (let ((_%hd8910689126%_ + (_%f89151%_ _%x89184%_ _%r89163%_)))))) + (if (pair? _%rest8916489172%_) + (let ((_%hd8916989189%_ (let () (declare (not safe)) - (##car _%rest8910189109%_))) - (_%tl8910789128%_ + (##car _%rest8916489172%_))) + (_%tl8917089191%_ (let () (declare (not safe)) - (##cdr _%rest8910189109%_)))) - (let* ((_%x89131%_ _%hd8910689126%_) - (_%rest89133%_ _%tl8910789128%_)) - (_%K8910589123%_ _%rest89133%_ _%x89131%_))) - (_%else8910389117%_))))))) + (##cdr _%rest8916489172%_)))) + (let* ((_%x89194%_ _%hd8916989189%_) + (_%rest89196%_ _%tl8917089191%_)) + (_%K8916889186%_ _%rest89196%_ _%x89194%_))) + (_%else8916689180%_))))))) (define foldl2 - (lambda (_%f89066%_ _%iv89067%_ _%lst189068%_ _%lst289069%_) - (if (procedure? _%f89066%_) - (let ((_%f89073%_ _%f89066%_)) - (__foldl2 _%f89073%_ _%iv89067%_ _%lst189068%_ _%lst289069%_)) + (lambda (_%f89129%_ _%iv89130%_ _%lst189131%_ _%lst289132%_) + (if (procedure? _%f89129%_) + (let ((_%f89136%_ _%f89129%_)) + (__foldl2 _%f89136%_ _%iv89130%_ _%lst189131%_ _%lst289132%_)) (begin (raise-contract-violation-error '"contract violation" @@ -432,76 +432,76 @@ 'contract: 'procedure? 'value: - _%f89066%_) + _%f89129%_) '#!void)))) (define __foldl2 - (lambda (_%f88979%_ _%iv88980%_ _%lst188981%_ _%lst288982%_) - (let ((_%f88985%_ _%f88979%_)) - (let _%lp88994%_ ((_%rest188996%_ _%lst188981%_) - (_%rest288997%_ _%lst288982%_) - (_%r88998%_ _%iv88980%_)) - (let* ((_%rest18899989007%_ _%rest188996%_) - (_%else8900189015%_ (lambda () _%r88998%_)) - (_%K8900389054%_ - (lambda (_%rest189018%_ _%x189019%_) - (let* ((_%rest28902089028%_ _%rest288997%_) - (_%else8902289036%_ (lambda () _%r88998%_)) - (_%K8902489042%_ - (lambda (_%rest289039%_ _%x289040%_) - (_%lp88994%_ - _%rest189018%_ - _%rest289039%_ + (lambda (_%f89042%_ _%iv89043%_ _%lst189044%_ _%lst289045%_) + (let ((_%f89048%_ _%f89042%_)) + (let _%lp89057%_ ((_%rest189059%_ _%lst189044%_) + (_%rest289060%_ _%lst289045%_) + (_%r89061%_ _%iv89043%_)) + (let* ((_%rest18906289070%_ _%rest189059%_) + (_%else8906489078%_ (lambda () _%r89061%_)) + (_%K8906689117%_ + (lambda (_%rest189081%_ _%x189082%_) + (let* ((_%rest28908389091%_ _%rest289060%_) + (_%else8908589099%_ (lambda () _%r89061%_)) + (_%K8908789105%_ + (lambda (_%rest289102%_ _%x289103%_) + (_%lp89057%_ + _%rest189081%_ + _%rest289102%_ (let () (declare (not safe)) - (_%f88985%_ - _%x189019%_ - _%x289040%_ - _%r88998%_)))))) - (if (pair? _%rest28902089028%_) - (let ((_%hd8902589045%_ + (_%f89048%_ + _%x189082%_ + _%x289103%_ + _%r89061%_)))))) + (if (pair? _%rest28908389091%_) + (let ((_%hd8908889108%_ (let () (declare (not safe)) - (##car _%rest28902089028%_))) - (_%tl8902689047%_ + (##car _%rest28908389091%_))) + (_%tl8908989110%_ (let () (declare (not safe)) - (##cdr _%rest28902089028%_)))) - (let* ((_%x289050%_ _%hd8902589045%_) - (_%rest289052%_ _%tl8902689047%_)) - (_%K8902489042%_ _%rest289052%_ _%x289050%_))) - (_%else8902289036%_)))))) - (if (pair? _%rest18899989007%_) - (let ((_%hd8900489057%_ + (##cdr _%rest28908389091%_)))) + (let* ((_%x289113%_ _%hd8908889108%_) + (_%rest289115%_ _%tl8908989110%_)) + (_%K8908789105%_ _%rest289115%_ _%x289113%_))) + (_%else8908589099%_)))))) + (if (pair? _%rest18906289070%_) + (let ((_%hd8906789120%_ (let () (declare (not safe)) - (##car _%rest18899989007%_))) - (_%tl8900589059%_ + (##car _%rest18906289070%_))) + (_%tl8906889122%_ (let () (declare (not safe)) - (##cdr _%rest18899989007%_)))) - (let* ((_%x189062%_ _%hd8900489057%_) - (_%rest189064%_ _%tl8900589059%_)) - (_%K8900389054%_ _%rest189064%_ _%x189062%_))) - (_%else8900189015%_))))))) + (##cdr _%rest18906289070%_)))) + (let* ((_%x189125%_ _%hd8906789120%_) + (_%rest189127%_ _%tl8906889122%_)) + (_%K8906689117%_ _%rest189127%_ _%x189125%_))) + (_%else8906489078%_))))))) (define foldl - (lambda _g91270_ - (let ((_g91269_ (let () (declare (not safe)) (##length _g91270_)))) - (cond ((let () (declare (not safe)) (##fx= _g91269_ 3)) - (apply foldl1 _g91270_)) - ((let () (declare (not safe)) (##fx= _g91269_ 4)) - (apply foldl2 _g91270_)) - ((let () (declare (not safe)) (##fx>= _g91269_ 4)) - (apply foldl* _g91270_)) + (lambda _g91333_ + (let ((_g91332_ (let () (declare (not safe)) (##length _g91333_)))) + (cond ((let () (declare (not safe)) (##fx= _g91332_ 3)) + (apply foldl1 _g91333_)) + ((let () (declare (not safe)) (##fx= _g91332_ 4)) + (apply foldl2 _g91333_)) + ((let () (declare (not safe)) (##fx>= _g91332_ 4)) + (apply foldl* _g91333_)) (else (##raise-wrong-number-of-arguments-exception foldl - _g91270_)))))) + _g91333_)))))) (define foldl* - (lambda (_%f88948%_ _%iv88949%_ . _%rest88950%_) - (if (procedure? _%f88948%_) - (let ((_%f88954%_ _%f88948%_)) + (lambda (_%f89011%_ _%iv89012%_ . _%rest89013%_) + (if (procedure? _%f89011%_) + (let ((_%f89017%_ _%f89011%_)) (declare (not safe)) - (##apply __foldl* _%f88954%_ _%iv88949%_ _%rest88950%_)) + (##apply __foldl* _%f89017%_ _%iv89012%_ _%rest89013%_)) (begin (raise-contract-violation-error '"contract violation" @@ -510,30 +510,30 @@ 'contract: 'procedure? 'value: - _%f88948%_) + _%f89011%_) '#!void)))) (define __foldl* - (lambda (_%f88926%_ _%iv88927%_ . _%rest88928%_) - (let ((_%f88931%_ _%f88926%_)) - (let _%recur88940%_ ((_%iv88942%_ _%iv88927%_) - (_%rest88943%_ _%rest88928%_)) - (if (__andmap1 pair? _%rest88943%_) - (_%recur88940%_ - (let ((__tmp91271 + (lambda (_%f88989%_ _%iv88990%_ . _%rest88991%_) + (let ((_%f88994%_ _%f88989%_)) + (let _%recur89003%_ ((_%iv89005%_ _%iv88990%_) + (_%rest89006%_ _%rest88991%_)) + (if (__andmap1 pair? _%rest89006%_) + (_%recur89003%_ + (let ((__tmp91334 (__foldr1 - (lambda (_%xs88945%_ _%r88946%_) - (cons (car _%xs88945%_) _%r88946%_)) - (list _%iv88942%_) - _%rest88943%_))) + (lambda (_%xs89008%_ _%r89009%_) + (cons (car _%xs89008%_) _%r89009%_)) + (list _%iv89005%_) + _%rest89006%_))) (declare (not safe)) - (##apply _%f88931%_ __tmp91271)) - (map cdr _%rest88943%_)) - _%iv88942%_))))) + (##apply _%f88994%_ __tmp91334)) + (map cdr _%rest89006%_)) + _%iv89005%_))))) (define foldr1 - (lambda (_%f88910%_ _%iv88911%_ _%lst88912%_) - (if (procedure? _%f88910%_) - (let ((_%f88916%_ _%f88910%_)) - (__foldr1 _%f88916%_ _%iv88911%_ _%lst88912%_)) + (lambda (_%f88973%_ _%iv88974%_ _%lst88975%_) + (if (procedure? _%f88973%_) + (let ((_%f88979%_ _%f88973%_)) + (__foldr1 _%f88979%_ _%iv88974%_ _%lst88975%_)) (begin (raise-contract-violation-error '"contract violation" @@ -542,37 +542,37 @@ 'contract: 'procedure? 'value: - _%f88910%_) + _%f88973%_) '#!void)))) (define __foldr1 - (lambda (_%f88859%_ _%iv88860%_ _%lst88861%_) - (let ((_%f88864%_ _%f88859%_)) - (let _%recur88873%_ ((_%rest88875%_ _%lst88861%_)) - (let* ((_%rest8887688884%_ _%rest88875%_) - (_%else8887888892%_ (lambda () _%iv88860%_)) - (_%K8888088898%_ - (lambda (_%rest88895%_ _%x88896%_) - (let ((__tmp91272 (_%recur88873%_ _%rest88895%_))) + (lambda (_%f88922%_ _%iv88923%_ _%lst88924%_) + (let ((_%f88927%_ _%f88922%_)) + (let _%recur88936%_ ((_%rest88938%_ _%lst88924%_)) + (let* ((_%rest8893988947%_ _%rest88938%_) + (_%else8894188955%_ (lambda () _%iv88923%_)) + (_%K8894388961%_ + (lambda (_%rest88958%_ _%x88959%_) + (let ((__tmp91335 (_%recur88936%_ _%rest88958%_))) (declare (not safe)) - (_%f88864%_ _%x88896%_ __tmp91272))))) - (if (pair? _%rest8887688884%_) - (let ((_%hd8888188901%_ + (_%f88927%_ _%x88959%_ __tmp91335))))) + (if (pair? _%rest8893988947%_) + (let ((_%hd8894488964%_ (let () (declare (not safe)) - (##car _%rest8887688884%_))) - (_%tl8888288903%_ + (##car _%rest8893988947%_))) + (_%tl8894588966%_ (let () (declare (not safe)) - (##cdr _%rest8887688884%_)))) - (let* ((_%x88906%_ _%hd8888188901%_) - (_%rest88908%_ _%tl8888288903%_)) - (_%K8888088898%_ _%rest88908%_ _%x88906%_))) - (_%else8887888892%_))))))) + (##cdr _%rest8893988947%_)))) + (let* ((_%x88969%_ _%hd8894488964%_) + (_%rest88971%_ _%tl8894588966%_)) + (_%K8894388961%_ _%rest88971%_ _%x88969%_))) + (_%else8894188955%_))))))) (define foldr2 - (lambda (_%f88842%_ _%iv88843%_ _%lst188844%_ _%lst288845%_) - (if (procedure? _%f88842%_) - (let ((_%f88849%_ _%f88842%_)) - (__foldr2 _%f88849%_ _%iv88843%_ _%lst188844%_ _%lst288845%_)) + (lambda (_%f88905%_ _%iv88906%_ _%lst188907%_ _%lst288908%_) + (if (procedure? _%f88905%_) + (let ((_%f88912%_ _%f88905%_)) + (__foldr2 _%f88912%_ _%iv88906%_ _%lst188907%_ _%lst288908%_)) (begin (raise-contract-violation-error '"contract violation" @@ -581,75 +581,75 @@ 'contract: 'procedure? 'value: - _%f88842%_) + _%f88905%_) '#!void)))) (define __foldr2 - (lambda (_%f88756%_ _%iv88757%_ _%lst188758%_ _%lst288759%_) - (let ((_%f88762%_ _%f88756%_)) - (let _%recur88771%_ ((_%rest188773%_ _%lst188758%_) - (_%rest288774%_ _%lst288759%_)) - (let* ((_%rest18877588783%_ _%rest188773%_) - (_%else8877788791%_ (lambda () _%iv88757%_)) - (_%K8877988830%_ - (lambda (_%rest188794%_ _%x188795%_) - (let* ((_%rest28879688804%_ _%rest288774%_) - (_%else8879888812%_ (lambda () _%iv88757%_)) - (_%K8880088818%_ - (lambda (_%rest288815%_ _%x288816%_) - (let ((__tmp91273 - (_%recur88771%_ - _%rest188794%_ - _%rest288815%_))) + (lambda (_%f88819%_ _%iv88820%_ _%lst188821%_ _%lst288822%_) + (let ((_%f88825%_ _%f88819%_)) + (let _%recur88834%_ ((_%rest188836%_ _%lst188821%_) + (_%rest288837%_ _%lst288822%_)) + (let* ((_%rest18883888846%_ _%rest188836%_) + (_%else8884088854%_ (lambda () _%iv88820%_)) + (_%K8884288893%_ + (lambda (_%rest188857%_ _%x188858%_) + (let* ((_%rest28885988867%_ _%rest288837%_) + (_%else8886188875%_ (lambda () _%iv88820%_)) + (_%K8886388881%_ + (lambda (_%rest288878%_ _%x288879%_) + (let ((__tmp91336 + (_%recur88834%_ + _%rest188857%_ + _%rest288878%_))) (declare (not safe)) - (_%f88762%_ - _%x188795%_ - _%x288816%_ - __tmp91273))))) - (if (pair? _%rest28879688804%_) - (let ((_%hd8880188821%_ + (_%f88825%_ + _%x188858%_ + _%x288879%_ + __tmp91336))))) + (if (pair? _%rest28885988867%_) + (let ((_%hd8886488884%_ (let () (declare (not safe)) - (##car _%rest28879688804%_))) - (_%tl8880288823%_ + (##car _%rest28885988867%_))) + (_%tl8886588886%_ (let () (declare (not safe)) - (##cdr _%rest28879688804%_)))) - (let* ((_%x288826%_ _%hd8880188821%_) - (_%rest288828%_ _%tl8880288823%_)) - (_%K8880088818%_ _%rest288828%_ _%x288826%_))) - (_%else8879888812%_)))))) - (if (pair? _%rest18877588783%_) - (let ((_%hd8878088833%_ + (##cdr _%rest28885988867%_)))) + (let* ((_%x288889%_ _%hd8886488884%_) + (_%rest288891%_ _%tl8886588886%_)) + (_%K8886388881%_ _%rest288891%_ _%x288889%_))) + (_%else8886188875%_)))))) + (if (pair? _%rest18883888846%_) + (let ((_%hd8884388896%_ (let () (declare (not safe)) - (##car _%rest18877588783%_))) - (_%tl8878188835%_ + (##car _%rest18883888846%_))) + (_%tl8884488898%_ (let () (declare (not safe)) - (##cdr _%rest18877588783%_)))) - (let* ((_%x188838%_ _%hd8878088833%_) - (_%rest188840%_ _%tl8878188835%_)) - (_%K8877988830%_ _%rest188840%_ _%x188838%_))) - (_%else8877788791%_))))))) + (##cdr _%rest18883888846%_)))) + (let* ((_%x188901%_ _%hd8884388896%_) + (_%rest188903%_ _%tl8884488898%_)) + (_%K8884288893%_ _%rest188903%_ _%x188901%_))) + (_%else8884088854%_))))))) (define foldr - (lambda _g91275_ - (let ((_g91274_ (let () (declare (not safe)) (##length _g91275_)))) - (cond ((let () (declare (not safe)) (##fx= _g91274_ 3)) - (apply foldr1 _g91275_)) - ((let () (declare (not safe)) (##fx= _g91274_ 4)) - (apply foldr2 _g91275_)) - ((let () (declare (not safe)) (##fx>= _g91274_ 4)) - (apply foldr* _g91275_)) + (lambda _g91338_ + (let ((_g91337_ (let () (declare (not safe)) (##length _g91338_)))) + (cond ((let () (declare (not safe)) (##fx= _g91337_ 3)) + (apply foldr1 _g91338_)) + ((let () (declare (not safe)) (##fx= _g91337_ 4)) + (apply foldr2 _g91338_)) + ((let () (declare (not safe)) (##fx>= _g91337_ 4)) + (apply foldr* _g91338_)) (else (##raise-wrong-number-of-arguments-exception foldr - _g91275_)))))) + _g91338_)))))) (define foldr* - (lambda (_%f88725%_ _%iv88726%_ . _%rest88727%_) - (if (procedure? _%f88725%_) - (let ((_%f88731%_ _%f88725%_)) + (lambda (_%f88788%_ _%iv88789%_ . _%rest88790%_) + (if (procedure? _%f88788%_) + (let ((_%f88794%_ _%f88788%_)) (declare (not safe)) - (##apply __foldr* _%f88731%_ _%iv88726%_ _%rest88727%_)) + (##apply __foldr* _%f88794%_ _%iv88789%_ _%rest88790%_)) (begin (raise-contract-violation-error '"contract violation" @@ -658,105 +658,105 @@ 'contract: 'procedure? 'value: - _%f88725%_) + _%f88788%_) '#!void)))) (define __foldr* - (lambda (_%f88704%_ _%iv88705%_ . _%rest88706%_) - (let ((_%f88709%_ _%f88704%_)) - (let _%recur88718%_ ((_%rest88720%_ _%rest88706%_)) - (if (__andmap1 pair? _%rest88720%_) - (let ((__tmp91276 + (lambda (_%f88767%_ _%iv88768%_ . _%rest88769%_) + (let ((_%f88772%_ _%f88767%_)) + (let _%recur88781%_ ((_%rest88783%_ _%rest88769%_)) + (if (__andmap1 pair? _%rest88783%_) + (let ((__tmp91339 (__foldr1 - (lambda (_%xs88722%_ _%r88723%_) - (cons (car _%xs88722%_) _%r88723%_)) - (list (_%recur88718%_ (map cdr _%rest88720%_))) - _%rest88720%_))) + (lambda (_%xs88785%_ _%r88786%_) + (cons (car _%xs88785%_) _%r88786%_)) + (list (_%recur88781%_ (map cdr _%rest88783%_))) + _%rest88783%_))) (declare (not safe)) - (##apply _%f88709%_ __tmp91276)) - _%iv88705%_))))) + (##apply _%f88772%_ __tmp91339)) + _%iv88768%_))))) (define remove-nulls! - (lambda (_%l88591%_) - (let* ((_%l8859288605%_ _%l88591%_) - (_%E8859688609%_ + (lambda (_%l88654%_) + (let* ((_%l8865588668%_ _%l88654%_) + (_%E8865988672%_ (lambda () (error '"No clause matching" - _%l8859288605%_ + _%l8865588668%_ '([[] . r]) '([_ . r]) '(_)) '#!void))) - (let ((_%K8860188694%_ - (lambda (_%r88692%_) (remove-nulls! _%r88692%_))) - (_%K8859888681%_ - (lambda (_%r88621%_) - (let _%loop88623%_ ((_%l88625%_ _%l88591%_) - (_%r88626%_ _%r88621%_)) - (let* ((_%r8862788640%_ _%r88626%_) - (_%E8863188644%_ + (let ((_%K8866488757%_ + (lambda (_%r88755%_) (remove-nulls! _%r88755%_))) + (_%K8866188744%_ + (lambda (_%r88684%_) + (let _%loop88686%_ ((_%l88688%_ _%l88654%_) + (_%r88689%_ _%r88684%_)) + (let* ((_%r8869088703%_ _%r88689%_) + (_%E8869488707%_ (lambda () (error '"No clause matching" - _%r8862788640%_ + _%r8869088703%_ '([[] . rr]) '([_ . rr]) '(_)) '#!void))) - (let ((_%K8863688671%_ - (lambda (_%rr88669%_) - (let ((__tmp91278 _%l88625%_) - (__tmp91277 (remove-nulls! _%rr88669%_))) + (let ((_%K8869988734%_ + (lambda (_%rr88732%_) + (let ((__tmp91341 _%l88688%_) + (__tmp91340 (remove-nulls! _%rr88732%_))) (declare (not safe)) - (##set-cdr! __tmp91278 __tmp91277)))) - (_%K8863388658%_ - (lambda (_%rr88656%_) - (_%loop88623%_ _%r88626%_ _%rr88656%_))) - (_%K8863288649%_ (lambda () '#!void))) - (if (pair? _%r8862788640%_) - (let ((_%tl8863888676%_ + (##set-cdr! __tmp91341 __tmp91340)))) + (_%K8869688721%_ + (lambda (_%rr88719%_) + (_%loop88686%_ _%r88689%_ _%rr88719%_))) + (_%K8869588712%_ (lambda () '#!void))) + (if (pair? _%r8869088703%_) + (let ((_%tl8870188739%_ (let () (declare (not safe)) - (##cdr _%r8862788640%_))) - (_%hd8863788674%_ + (##cdr _%r8869088703%_))) + (_%hd8870088737%_ (let () (declare (not safe)) - (##car _%r8862788640%_)))) - (if (null? _%hd8863788674%_) - (let ((_%rr88679%_ _%tl8863888676%_)) - (_%K8863688671%_ _%rr88679%_)) - (let ((_%rr88664%_ _%tl8863888676%_)) - (_%K8863388658%_ _%rr88664%_)))) + (##car _%r8869088703%_)))) + (if (null? _%hd8870088737%_) + (let ((_%rr88742%_ _%tl8870188739%_)) + (_%K8869988734%_ _%rr88742%_)) + (let ((_%rr88727%_ _%tl8870188739%_)) + (_%K8869688721%_ _%rr88727%_)))) '#!void)))) - _%l88591%_)) - (_%K8859788614%_ (lambda () _%l88591%_))) - (if (pair? _%l8859288605%_) - (let ((_%tl8860388699%_ - (let () (declare (not safe)) (##cdr _%l8859288605%_))) - (_%hd8860288697%_ - (let () (declare (not safe)) (##car _%l8859288605%_)))) - (if (null? _%hd8860288697%_) - (let ((_%r88702%_ _%tl8860388699%_)) - (remove-nulls! _%r88702%_)) - (let ((_%r88687%_ _%tl8860388699%_)) - (_%K8859888681%_ _%r88687%_)))) - (_%K8859788614%_)))))) + _%l88654%_)) + (_%K8866088677%_ (lambda () _%l88654%_))) + (if (pair? _%l8865588668%_) + (let ((_%tl8866688762%_ + (let () (declare (not safe)) (##cdr _%l8865588668%_))) + (_%hd8866588760%_ + (let () (declare (not safe)) (##car _%l8865588668%_)))) + (if (null? _%hd8866588760%_) + (let ((_%r88765%_ _%tl8866688762%_)) + (remove-nulls! _%r88765%_)) + (let ((_%r88750%_ _%tl8866688762%_)) + (_%K8866188744%_ _%r88750%_)))) + (_%K8866088677%_)))))) (define append1! - (lambda (_%l88576%_ _%x88577%_) - (let ((_%l288580%_ (cons _%x88577%_ '()))) - (if (pair? _%l88576%_) - (let ((_%l88582%_ _%l88576%_)) - (let ((__tmp91279 - (let () (declare (not safe)) (##last-pair _%l88582%_)))) + (lambda (_%l88639%_ _%x88640%_) + (let ((_%l288643%_ (cons _%x88640%_ '()))) + (if (pair? _%l88639%_) + (let ((_%l88645%_ _%l88639%_)) + (let ((__tmp91342 + (let () (declare (not safe)) (##last-pair _%l88645%_)))) (declare (not safe)) - (##set-cdr! __tmp91279 _%l288580%_)) - _%l88582%_) - _%l288580%_)))) + (##set-cdr! __tmp91342 _%l288643%_)) + _%l88645%_) + _%l288643%_)))) (define append-reverse-until - (lambda (_%pred88560%_ _%rhead88561%_ _%tail88562%_) - (if (procedure? _%pred88560%_) - (let ((_%pred88566%_ _%pred88560%_)) + (lambda (_%pred88623%_ _%rhead88624%_ _%tail88625%_) + (if (procedure? _%pred88623%_) + (let ((_%pred88629%_ _%pred88623%_)) (__append-reverse-until - _%pred88566%_ - _%rhead88561%_ - _%tail88562%_)) + _%pred88629%_ + _%rhead88624%_ + _%tail88625%_)) (begin (raise-contract-violation-error '"contract violation" @@ -765,53 +765,53 @@ 'contract: 'procedure? 'value: - _%pred88560%_) + _%pred88623%_) '#!void)))) (define __append-reverse-until - (lambda (_%pred88502%_ _%rhead88503%_ _%tail88504%_) - (let ((_%pred88507%_ _%pred88502%_)) - (let _%loop88516%_ ((_%rhead88518%_ _%rhead88503%_) - (_%tail88519%_ _%tail88504%_)) - (let* ((_%rhead8852188530%_ _%rhead88518%_) - (_%E8852488534%_ + (lambda (_%pred88565%_ _%rhead88566%_ _%tail88567%_) + (let ((_%pred88570%_ _%pred88565%_)) + (let _%loop88579%_ ((_%rhead88581%_ _%rhead88566%_) + (_%tail88582%_ _%tail88567%_)) + (let* ((_%rhead8858488593%_ _%rhead88581%_) + (_%E8858788597%_ (lambda () (error '"No clause matching" - _%rhead8852188530%_ + _%rhead8858488593%_ '([]) '([a :: r])) '#!void))) - (let ((_%K8852888557%_ (lambda () (values '() _%tail88519%_))) - (_%K8852588541%_ - (lambda (_%r88538%_ _%a88539%_) + (let ((_%K8859188620%_ (lambda () (values '() _%tail88582%_))) + (_%K8858888604%_ + (lambda (_%r88601%_ _%a88602%_) (if (let () (declare (not safe)) - (_%pred88507%_ _%a88539%_)) - (values _%rhead88518%_ _%tail88519%_) - (_%loop88516%_ - _%r88538%_ - (cons _%a88539%_ _%tail88519%_)))))) - (let ((_%try-match8852388553%_ + (_%pred88570%_ _%a88602%_)) + (values _%rhead88581%_ _%tail88582%_) + (_%loop88579%_ + _%r88601%_ + (cons _%a88602%_ _%tail88582%_)))))) + (let ((_%try-match8858688616%_ (lambda () - (if (pair? _%rhead8852188530%_) - (let ((_%tl8852788546%_ + (if (pair? _%rhead8858488593%_) + (let ((_%tl8859088609%_ (let () (declare (not safe)) - (##cdr _%rhead8852188530%_))) - (_%hd8852688544%_ + (##cdr _%rhead8858488593%_))) + (_%hd8858988607%_ (let () (declare (not safe)) - (##car _%rhead8852188530%_)))) - (let ((_%a88549%_ _%hd8852688544%_) - (_%r88551%_ _%tl8852788546%_)) - (_%K8852588541%_ _%r88551%_ _%a88549%_))) - (_%E8852488534%_))))) - (if (null? _%rhead8852188530%_) - (_%K8852888557%_) - (_%try-match8852388553%_))))))))) + (##car _%rhead8858488593%_)))) + (let ((_%a88612%_ _%hd8858988607%_) + (_%r88614%_ _%tl8859088609%_)) + (_%K8858888604%_ _%r88614%_ _%a88612%_))) + (_%E8858788597%_))))) + (if (null? _%rhead8858488593%_) + (_%K8859188620%_) + (_%try-match8858688616%_))))))))) (define andmap1 - (lambda (_%f88487%_ _%lst88488%_) - (if (procedure? _%f88487%_) - (let ((_%f88492%_ _%f88487%_)) (__andmap1 _%f88492%_ _%lst88488%_)) + (lambda (_%f88550%_ _%lst88551%_) + (if (procedure? _%f88550%_) + (let ((_%f88555%_ _%f88550%_)) (__andmap1 _%f88555%_ _%lst88551%_)) (begin (raise-contract-violation-error '"contract violation" @@ -820,37 +820,37 @@ 'contract: 'procedure? 'value: - _%f88487%_) + _%f88550%_) '#!void)))) (define __andmap1 - (lambda (_%f88436%_ _%lst88437%_) - (let ((_%f88440%_ _%f88436%_)) - (let _%lp88449%_ ((_%rest88451%_ _%lst88437%_)) - (let* ((_%rest8845388461%_ _%rest88451%_) - (_%else8845588469%_ (lambda () '#t)) - (_%K8845788475%_ - (lambda (_%rest88472%_ _%x88473%_) - (if (let () (declare (not safe)) (_%f88440%_ _%x88473%_)) - (_%lp88449%_ _%rest88472%_) + (lambda (_%f88499%_ _%lst88500%_) + (let ((_%f88503%_ _%f88499%_)) + (let _%lp88512%_ ((_%rest88514%_ _%lst88500%_)) + (let* ((_%rest8851688524%_ _%rest88514%_) + (_%else8851888532%_ (lambda () '#t)) + (_%K8852088538%_ + (lambda (_%rest88535%_ _%x88536%_) + (if (let () (declare (not safe)) (_%f88503%_ _%x88536%_)) + (_%lp88512%_ _%rest88535%_) '#f)))) - (if (pair? _%rest8845388461%_) - (let ((_%hd8845888478%_ + (if (pair? _%rest8851688524%_) + (let ((_%hd8852188541%_ (let () (declare (not safe)) - (##car _%rest8845388461%_))) - (_%tl8845988480%_ + (##car _%rest8851688524%_))) + (_%tl8852288543%_ (let () (declare (not safe)) - (##cdr _%rest8845388461%_)))) - (let* ((_%x88483%_ _%hd8845888478%_) - (_%rest88485%_ _%tl8845988480%_)) - (_%K8845788475%_ _%rest88485%_ _%x88483%_))) - (_%else8845588469%_))))))) + (##cdr _%rest8851688524%_)))) + (let* ((_%x88546%_ _%hd8852188541%_) + (_%rest88548%_ _%tl8852288543%_)) + (_%K8852088538%_ _%rest88548%_ _%x88546%_))) + (_%else8851888532%_))))))) (define andmap2 - (lambda (_%f88420%_ _%lst188421%_ _%lst288422%_) - (if (procedure? _%f88420%_) - (let ((_%f88426%_ _%f88420%_)) - (__andmap2 _%f88426%_ _%lst188421%_ _%lst288422%_)) + (lambda (_%f88483%_ _%lst188484%_ _%lst288485%_) + (if (procedure? _%f88483%_) + (let ((_%f88489%_ _%f88483%_)) + (__andmap2 _%f88489%_ _%lst188484%_ _%lst288485%_)) (begin (raise-contract-violation-error '"contract violation" @@ -859,71 +859,71 @@ 'contract: 'procedure? 'value: - _%f88420%_) + _%f88483%_) '#!void)))) (define __andmap2 - (lambda (_%f88334%_ _%lst188335%_ _%lst288336%_) - (let ((_%f88339%_ _%f88334%_)) - (let _%lp88348%_ ((_%rest188350%_ _%lst188335%_) - (_%rest288351%_ _%lst288336%_)) - (let* ((_%rest18835388361%_ _%rest188350%_) - (_%else8835588369%_ (lambda () '#t)) - (_%K8835788408%_ - (lambda (_%rest188372%_ _%x188373%_) - (let* ((_%rest28837488382%_ _%rest288351%_) - (_%else8837688390%_ (lambda () '#t)) - (_%K8837888396%_ - (lambda (_%rest288393%_ _%x288394%_) + (lambda (_%f88397%_ _%lst188398%_ _%lst288399%_) + (let ((_%f88402%_ _%f88397%_)) + (let _%lp88411%_ ((_%rest188413%_ _%lst188398%_) + (_%rest288414%_ _%lst288399%_)) + (let* ((_%rest18841688424%_ _%rest188413%_) + (_%else8841888432%_ (lambda () '#t)) + (_%K8842088471%_ + (lambda (_%rest188435%_ _%x188436%_) + (let* ((_%rest28843788445%_ _%rest288414%_) + (_%else8843988453%_ (lambda () '#t)) + (_%K8844188459%_ + (lambda (_%rest288456%_ _%x288457%_) (if (let () (declare (not safe)) - (_%f88339%_ _%x188373%_ _%x288394%_)) - (_%lp88348%_ _%rest188372%_ _%rest288393%_) + (_%f88402%_ _%x188436%_ _%x288457%_)) + (_%lp88411%_ _%rest188435%_ _%rest288456%_) '#f)))) - (if (pair? _%rest28837488382%_) - (let ((_%hd8837988399%_ + (if (pair? _%rest28843788445%_) + (let ((_%hd8844288462%_ (let () (declare (not safe)) - (##car _%rest28837488382%_))) - (_%tl8838088401%_ + (##car _%rest28843788445%_))) + (_%tl8844388464%_ (let () (declare (not safe)) - (##cdr _%rest28837488382%_)))) - (let* ((_%x288404%_ _%hd8837988399%_) - (_%rest288406%_ _%tl8838088401%_)) - (_%K8837888396%_ _%rest288406%_ _%x288404%_))) - (_%else8837688390%_)))))) - (if (pair? _%rest18835388361%_) - (let ((_%hd8835888411%_ + (##cdr _%rest28843788445%_)))) + (let* ((_%x288467%_ _%hd8844288462%_) + (_%rest288469%_ _%tl8844388464%_)) + (_%K8844188459%_ _%rest288469%_ _%x288467%_))) + (_%else8843988453%_)))))) + (if (pair? _%rest18841688424%_) + (let ((_%hd8842188474%_ (let () (declare (not safe)) - (##car _%rest18835388361%_))) - (_%tl8835988413%_ + (##car _%rest18841688424%_))) + (_%tl8842288476%_ (let () (declare (not safe)) - (##cdr _%rest18835388361%_)))) - (let* ((_%x188416%_ _%hd8835888411%_) - (_%rest188418%_ _%tl8835988413%_)) - (_%K8835788408%_ _%rest188418%_ _%x188416%_))) - (_%else8835588369%_))))))) + (##cdr _%rest18841688424%_)))) + (let* ((_%x188479%_ _%hd8842188474%_) + (_%rest188481%_ _%tl8842288476%_)) + (_%K8842088471%_ _%rest188481%_ _%x188479%_))) + (_%else8841888432%_))))))) (define andmap - (lambda _g91281_ - (let ((_g91280_ (let () (declare (not safe)) (##length _g91281_)))) - (cond ((let () (declare (not safe)) (##fx= _g91280_ 2)) - (apply andmap1 _g91281_)) - ((let () (declare (not safe)) (##fx= _g91280_ 3)) - (apply andmap2 _g91281_)) - ((let () (declare (not safe)) (##fx>= _g91280_ 3)) - (apply andmap* _g91281_)) + (lambda _g91344_ + (let ((_g91343_ (let () (declare (not safe)) (##length _g91344_)))) + (cond ((let () (declare (not safe)) (##fx= _g91343_ 2)) + (apply andmap1 _g91344_)) + ((let () (declare (not safe)) (##fx= _g91343_ 3)) + (apply andmap2 _g91344_)) + ((let () (declare (not safe)) (##fx>= _g91343_ 3)) + (apply andmap* _g91344_)) (else (##raise-wrong-number-of-arguments-exception andmap - _g91281_)))))) + _g91344_)))))) (define andmap* - (lambda (_%f88307%_ . _%rest88308%_) - (if (procedure? _%f88307%_) - (let ((_%f88312%_ _%f88307%_)) + (lambda (_%f88370%_ . _%rest88371%_) + (if (procedure? _%f88370%_) + (let ((_%f88375%_ _%f88370%_)) (declare (not safe)) - (##apply __andmap* _%f88312%_ _%rest88308%_)) + (##apply __andmap* _%f88375%_ _%rest88371%_)) (begin (raise-contract-violation-error '"contract violation" @@ -932,23 +932,23 @@ 'contract: 'procedure? 'value: - _%f88307%_) + _%f88370%_) '#!void)))) (define __andmap* - (lambda (_%f88289%_ . _%rest88290%_) - (let ((_%f88293%_ _%f88289%_)) - (let _%recur88302%_ ((_%rest88304%_ _%rest88290%_)) - (if (__andmap1 pair? _%rest88304%_) - (if (let ((__tmp91282 (map car _%rest88304%_))) + (lambda (_%f88352%_ . _%rest88353%_) + (let ((_%f88356%_ _%f88352%_)) + (let _%recur88365%_ ((_%rest88367%_ _%rest88353%_)) + (if (__andmap1 pair? _%rest88367%_) + (if (let ((__tmp91345 (map car _%rest88367%_))) (declare (not safe)) - (##apply _%f88293%_ __tmp91282)) - (_%recur88302%_ (map cdr _%rest88304%_)) + (##apply _%f88356%_ __tmp91345)) + (_%recur88365%_ (map cdr _%rest88367%_)) '#f) '#t))))) (define ormap1 - (lambda (_%f88274%_ _%lst88275%_) - (if (procedure? _%f88274%_) - (let ((_%f88279%_ _%f88274%_)) (__ormap1 _%f88279%_ _%lst88275%_)) + (lambda (_%f88337%_ _%lst88338%_) + (if (procedure? _%f88337%_) + (let ((_%f88342%_ _%f88337%_)) (__ormap1 _%f88342%_ _%lst88338%_)) (begin (raise-contract-violation-error '"contract violation" @@ -957,41 +957,41 @@ 'contract: 'procedure? 'value: - _%f88274%_) + _%f88337%_) '#!void)))) (define __ormap1 - (lambda (_%f88221%_ _%lst88222%_) - (let ((_%f88225%_ _%f88221%_)) - (let _%lp88234%_ ((_%rest88236%_ _%lst88222%_)) - (let* ((_%rest8823788245%_ _%rest88236%_) - (_%else8823988253%_ (lambda () '#f)) - (_%K8824188262%_ - (lambda (_%rest88256%_ _%x88257%_) - (let ((_%$e88259%_ + (lambda (_%f88284%_ _%lst88285%_) + (let ((_%f88288%_ _%f88284%_)) + (let _%lp88297%_ ((_%rest88299%_ _%lst88285%_)) + (let* ((_%rest8830088308%_ _%rest88299%_) + (_%else8830288316%_ (lambda () '#f)) + (_%K8830488325%_ + (lambda (_%rest88319%_ _%x88320%_) + (let ((_%$e88322%_ (let () (declare (not safe)) - (_%f88225%_ _%x88257%_)))) - (if _%$e88259%_ - _%$e88259%_ - (_%lp88234%_ _%rest88256%_)))))) - (if (pair? _%rest8823788245%_) - (let ((_%hd8824288265%_ + (_%f88288%_ _%x88320%_)))) + (if _%$e88322%_ + _%$e88322%_ + (_%lp88297%_ _%rest88319%_)))))) + (if (pair? _%rest8830088308%_) + (let ((_%hd8830588328%_ (let () (declare (not safe)) - (##car _%rest8823788245%_))) - (_%tl8824388267%_ + (##car _%rest8830088308%_))) + (_%tl8830688330%_ (let () (declare (not safe)) - (##cdr _%rest8823788245%_)))) - (let* ((_%x88270%_ _%hd8824288265%_) - (_%rest88272%_ _%tl8824388267%_)) - (_%K8824188262%_ _%rest88272%_ _%x88270%_))) - (_%else8823988253%_))))))) + (##cdr _%rest8830088308%_)))) + (let* ((_%x88333%_ _%hd8830588328%_) + (_%rest88335%_ _%tl8830688330%_)) + (_%K8830488325%_ _%rest88335%_ _%x88333%_))) + (_%else8830288316%_))))))) (define ormap2 - (lambda (_%f88205%_ _%lst188206%_ _%lst288207%_) - (if (procedure? _%f88205%_) - (let ((_%f88211%_ _%f88205%_)) - (__ormap2 _%f88211%_ _%lst188206%_ _%lst288207%_)) + (lambda (_%f88268%_ _%lst188269%_ _%lst288270%_) + (if (procedure? _%f88268%_) + (let ((_%f88274%_ _%f88268%_)) + (__ormap2 _%f88274%_ _%lst188269%_ _%lst288270%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1000,77 +1000,77 @@ 'contract: 'procedure? 'value: - _%f88205%_) + _%f88268%_) '#!void)))) (define __ormap2 - (lambda (_%f88117%_ _%lst188118%_ _%lst288119%_) - (let ((_%f88122%_ _%f88117%_)) - (let _%lp88131%_ ((_%rest188133%_ _%lst188118%_) - (_%rest288134%_ _%lst288119%_)) - (let* ((_%rest18813588143%_ _%rest188133%_) - (_%else8813788151%_ (lambda () '#f)) - (_%K8813988193%_ - (lambda (_%rest188154%_ _%x188155%_) - (let* ((_%rest28815688164%_ _%rest288134%_) - (_%else8815888172%_ (lambda () '#f)) - (_%K8816088181%_ - (lambda (_%rest288175%_ _%x288176%_) - (let ((_%$e88178%_ + (lambda (_%f88180%_ _%lst188181%_ _%lst288182%_) + (let ((_%f88185%_ _%f88180%_)) + (let _%lp88194%_ ((_%rest188196%_ _%lst188181%_) + (_%rest288197%_ _%lst288182%_)) + (let* ((_%rest18819888206%_ _%rest188196%_) + (_%else8820088214%_ (lambda () '#f)) + (_%K8820288256%_ + (lambda (_%rest188217%_ _%x188218%_) + (let* ((_%rest28821988227%_ _%rest288197%_) + (_%else8822188235%_ (lambda () '#f)) + (_%K8822388244%_ + (lambda (_%rest288238%_ _%x288239%_) + (let ((_%$e88241%_ (let () (declare (not safe)) - (_%f88122%_ - _%x188155%_ - _%x288176%_)))) - (if _%$e88178%_ - _%$e88178%_ - (_%lp88131%_ - _%rest188154%_ - _%rest288175%_)))))) - (if (pair? _%rest28815688164%_) - (let ((_%hd8816188184%_ + (_%f88185%_ + _%x188218%_ + _%x288239%_)))) + (if _%$e88241%_ + _%$e88241%_ + (_%lp88194%_ + _%rest188217%_ + _%rest288238%_)))))) + (if (pair? _%rest28821988227%_) + (let ((_%hd8822488247%_ (let () (declare (not safe)) - (##car _%rest28815688164%_))) - (_%tl8816288186%_ + (##car _%rest28821988227%_))) + (_%tl8822588249%_ (let () (declare (not safe)) - (##cdr _%rest28815688164%_)))) - (let* ((_%x288189%_ _%hd8816188184%_) - (_%rest288191%_ _%tl8816288186%_)) - (_%K8816088181%_ _%rest288191%_ _%x288189%_))) - (_%else8815888172%_)))))) - (if (pair? _%rest18813588143%_) - (let ((_%hd8814088196%_ + (##cdr _%rest28821988227%_)))) + (let* ((_%x288252%_ _%hd8822488247%_) + (_%rest288254%_ _%tl8822588249%_)) + (_%K8822388244%_ _%rest288254%_ _%x288252%_))) + (_%else8822188235%_)))))) + (if (pair? _%rest18819888206%_) + (let ((_%hd8820388259%_ (let () (declare (not safe)) - (##car _%rest18813588143%_))) - (_%tl8814188198%_ + (##car _%rest18819888206%_))) + (_%tl8820488261%_ (let () (declare (not safe)) - (##cdr _%rest18813588143%_)))) - (let* ((_%x188201%_ _%hd8814088196%_) - (_%rest188203%_ _%tl8814188198%_)) - (_%K8813988193%_ _%rest188203%_ _%x188201%_))) - (_%else8813788151%_))))))) + (##cdr _%rest18819888206%_)))) + (let* ((_%x188264%_ _%hd8820388259%_) + (_%rest188266%_ _%tl8820488261%_)) + (_%K8820288256%_ _%rest188266%_ _%x188264%_))) + (_%else8820088214%_))))))) (define ormap - (lambda _g91284_ - (let ((_g91283_ (let () (declare (not safe)) (##length _g91284_)))) - (cond ((let () (declare (not safe)) (##fx= _g91283_ 2)) - (apply ormap1 _g91284_)) - ((let () (declare (not safe)) (##fx= _g91283_ 3)) - (apply ormap2 _g91284_)) - ((let () (declare (not safe)) (##fx>= _g91283_ 3)) - (apply ormap* _g91284_)) + (lambda _g91347_ + (let ((_g91346_ (let () (declare (not safe)) (##length _g91347_)))) + (cond ((let () (declare (not safe)) (##fx= _g91346_ 2)) + (apply ormap1 _g91347_)) + ((let () (declare (not safe)) (##fx= _g91346_ 3)) + (apply ormap2 _g91347_)) + ((let () (declare (not safe)) (##fx>= _g91346_ 3)) + (apply ormap* _g91347_)) (else (##raise-wrong-number-of-arguments-exception ormap - _g91284_)))))) + _g91347_)))))) (define ormap* - (lambda (_%f88090%_ . _%rest88091%_) - (if (procedure? _%f88090%_) - (let ((_%f88095%_ _%f88090%_)) + (lambda (_%f88153%_ . _%rest88154%_) + (if (procedure? _%f88153%_) + (let ((_%f88158%_ _%f88153%_)) (declare (not safe)) - (##apply __ormap* _%f88095%_ _%rest88091%_)) + (##apply __ormap* _%f88158%_ _%rest88154%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1079,26 +1079,26 @@ 'contract: 'procedure? 'value: - _%f88090%_) + _%f88153%_) '#!void)))) (define __ormap* - (lambda (_%f88070%_ . _%rest88071%_) - (let ((_%f88074%_ _%f88070%_)) - (let _%recur88083%_ ((_%rest88085%_ _%rest88071%_)) - (if (__andmap1 pair? _%rest88085%_) - (let ((_%$e88087%_ - (let ((__tmp91285 (map car _%rest88085%_))) + (lambda (_%f88133%_ . _%rest88134%_) + (let ((_%f88137%_ _%f88133%_)) + (let _%recur88146%_ ((_%rest88148%_ _%rest88134%_)) + (if (__andmap1 pair? _%rest88148%_) + (let ((_%$e88150%_ + (let ((__tmp91348 (map car _%rest88148%_))) (declare (not safe)) - (##apply _%f88074%_ __tmp91285)))) - (if _%$e88087%_ - _%$e88087%_ - (_%recur88083%_ (map cdr _%rest88085%_)))) + (##apply _%f88137%_ __tmp91348)))) + (if _%$e88150%_ + _%$e88150%_ + (_%recur88146%_ (map cdr _%rest88148%_)))) '#f))))) (define filter-map1 - (lambda (_%f88055%_ _%lst88056%_) - (if (procedure? _%f88055%_) - (let ((_%f88060%_ _%f88055%_)) - (__filter-map1 _%f88060%_ _%lst88056%_)) + (lambda (_%f88118%_ _%lst88119%_) + (if (procedure? _%f88118%_) + (let ((_%f88123%_ _%f88118%_)) + (__filter-map1 _%f88123%_ _%lst88119%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1107,44 +1107,44 @@ 'contract: 'procedure? 'value: - _%f88055%_) + _%f88118%_) '#!void)))) (define __filter-map1 - (lambda (_%f87998%_ _%lst87999%_) - (let ((_%f88002%_ _%f87998%_)) - (let _%recur88011%_ ((_%rest88013%_ _%lst87999%_)) - (let* ((_%rest8801588023%_ _%rest88013%_) - (_%else8801788031%_ (lambda () '())) - (_%K8801988043%_ - (lambda (_%rest88034%_ _%x88035%_) - (let ((_%$e88037%_ + (lambda (_%f88061%_ _%lst88062%_) + (let ((_%f88065%_ _%f88061%_)) + (let _%recur88074%_ ((_%rest88076%_ _%lst88062%_)) + (let* ((_%rest8807888086%_ _%rest88076%_) + (_%else8808088094%_ (lambda () '())) + (_%K8808288106%_ + (lambda (_%rest88097%_ _%x88098%_) + (let ((_%$e88100%_ (let () (declare (not safe)) - (_%f88002%_ _%x88035%_)))) - (if _%$e88037%_ - ((lambda (_%r88040%_) - (cons _%r88040%_ - (_%recur88011%_ _%rest88034%_))) - _%$e88037%_) - (_%recur88011%_ _%rest88034%_)))))) - (if (pair? _%rest8801588023%_) - (let ((_%hd8802088046%_ + (_%f88065%_ _%x88098%_)))) + (if _%$e88100%_ + ((lambda (_%r88103%_) + (cons _%r88103%_ + (_%recur88074%_ _%rest88097%_))) + _%$e88100%_) + (_%recur88074%_ _%rest88097%_)))))) + (if (pair? _%rest8807888086%_) + (let ((_%hd8808388109%_ (let () (declare (not safe)) - (##car _%rest8801588023%_))) - (_%tl8802188048%_ + (##car _%rest8807888086%_))) + (_%tl8808488111%_ (let () (declare (not safe)) - (##cdr _%rest8801588023%_)))) - (let* ((_%x88051%_ _%hd8802088046%_) - (_%rest88053%_ _%tl8802188048%_)) - (_%K8801988043%_ _%rest88053%_ _%x88051%_))) - (_%else8801788031%_))))))) + (##cdr _%rest8807888086%_)))) + (let* ((_%x88114%_ _%hd8808388109%_) + (_%rest88116%_ _%tl8808488111%_)) + (_%K8808288106%_ _%rest88116%_ _%x88114%_))) + (_%else8808088094%_))))))) (define filter-map2 - (lambda (_%f87982%_ _%lst187983%_ _%lst287984%_) - (if (procedure? _%f87982%_) - (let ((_%f87988%_ _%f87982%_)) - (__filter-map2 _%f87988%_ _%lst187983%_ _%lst287984%_)) + (lambda (_%f88045%_ _%lst188046%_ _%lst288047%_) + (if (procedure? _%f88045%_) + (let ((_%f88051%_ _%f88045%_)) + (__filter-map2 _%f88051%_ _%lst188046%_ _%lst288047%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1153,82 +1153,82 @@ 'contract: 'procedure? 'value: - _%f87982%_) + _%f88045%_) '#!void)))) (define __filter-map2 - (lambda (_%f87890%_ _%lst187891%_ _%lst287892%_) - (let ((_%f87895%_ _%f87890%_)) - (let _%recur87904%_ ((_%rest187906%_ _%lst187891%_) - (_%rest287907%_ _%lst287892%_)) - (let* ((_%rest18790987917%_ _%rest187906%_) - (_%else8791187925%_ (lambda () '())) - (_%K8791387970%_ - (lambda (_%rest187928%_ _%x187929%_) - (let* ((_%rest28793087938%_ _%rest287907%_) - (_%else8793287946%_ (lambda () '())) - (_%K8793487958%_ - (lambda (_%rest287949%_ _%x287950%_) - (let ((_%$e87952%_ + (lambda (_%f87953%_ _%lst187954%_ _%lst287955%_) + (let ((_%f87958%_ _%f87953%_)) + (let _%recur87967%_ ((_%rest187969%_ _%lst187954%_) + (_%rest287970%_ _%lst287955%_)) + (let* ((_%rest18797287980%_ _%rest187969%_) + (_%else8797487988%_ (lambda () '())) + (_%K8797688033%_ + (lambda (_%rest187991%_ _%x187992%_) + (let* ((_%rest28799388001%_ _%rest287970%_) + (_%else8799588009%_ (lambda () '())) + (_%K8799788021%_ + (lambda (_%rest288012%_ _%x288013%_) + (let ((_%$e88015%_ (let () (declare (not safe)) - (_%f87895%_ - _%x187929%_ - _%x287950%_)))) - (if _%$e87952%_ - ((lambda (_%r87955%_) - (cons _%r87955%_ - (_%recur87904%_ - _%rest187928%_ - _%rest287949%_))) - _%$e87952%_) - (_%recur87904%_ - _%rest187928%_ - _%rest287949%_)))))) - (if (pair? _%rest28793087938%_) - (let ((_%hd8793587961%_ + (_%f87958%_ + _%x187992%_ + _%x288013%_)))) + (if _%$e88015%_ + ((lambda (_%r88018%_) + (cons _%r88018%_ + (_%recur87967%_ + _%rest187991%_ + _%rest288012%_))) + _%$e88015%_) + (_%recur87967%_ + _%rest187991%_ + _%rest288012%_)))))) + (if (pair? _%rest28799388001%_) + (let ((_%hd8799888024%_ (let () (declare (not safe)) - (##car _%rest28793087938%_))) - (_%tl8793687963%_ + (##car _%rest28799388001%_))) + (_%tl8799988026%_ (let () (declare (not safe)) - (##cdr _%rest28793087938%_)))) - (let* ((_%x287966%_ _%hd8793587961%_) - (_%rest287968%_ _%tl8793687963%_)) - (_%K8793487958%_ _%rest287968%_ _%x287966%_))) - (_%else8793287946%_)))))) - (if (pair? _%rest18790987917%_) - (let ((_%hd8791487973%_ + (##cdr _%rest28799388001%_)))) + (let* ((_%x288029%_ _%hd8799888024%_) + (_%rest288031%_ _%tl8799988026%_)) + (_%K8799788021%_ _%rest288031%_ _%x288029%_))) + (_%else8799588009%_)))))) + (if (pair? _%rest18797287980%_) + (let ((_%hd8797788036%_ (let () (declare (not safe)) - (##car _%rest18790987917%_))) - (_%tl8791587975%_ + (##car _%rest18797287980%_))) + (_%tl8797888038%_ (let () (declare (not safe)) - (##cdr _%rest18790987917%_)))) - (let* ((_%x187978%_ _%hd8791487973%_) - (_%rest187980%_ _%tl8791587975%_)) - (_%K8791387970%_ _%rest187980%_ _%x187978%_))) - (_%else8791187925%_))))))) + (##cdr _%rest18797287980%_)))) + (let* ((_%x188041%_ _%hd8797788036%_) + (_%rest188043%_ _%tl8797888038%_)) + (_%K8797688033%_ _%rest188043%_ _%x188041%_))) + (_%else8797487988%_))))))) (define filter-map - (lambda _g91287_ - (let ((_g91286_ (let () (declare (not safe)) (##length _g91287_)))) - (cond ((let () (declare (not safe)) (##fx= _g91286_ 2)) - (apply filter-map1 _g91287_)) - ((let () (declare (not safe)) (##fx= _g91286_ 3)) - (apply filter-map2 _g91287_)) - ((let () (declare (not safe)) (##fx>= _g91286_ 3)) - (apply filter-map* _g91287_)) + (lambda _g91350_ + (let ((_g91349_ (let () (declare (not safe)) (##length _g91350_)))) + (cond ((let () (declare (not safe)) (##fx= _g91349_ 2)) + (apply filter-map1 _g91350_)) + ((let () (declare (not safe)) (##fx= _g91349_ 3)) + (apply filter-map2 _g91350_)) + ((let () (declare (not safe)) (##fx>= _g91349_ 3)) + (apply filter-map* _g91350_)) (else (##raise-wrong-number-of-arguments-exception filter-map - _g91287_)))))) + _g91350_)))))) (define filter-map* - (lambda (_%f87863%_ . _%rest87864%_) - (if (procedure? _%f87863%_) - (let ((_%f87868%_ _%f87863%_)) + (lambda (_%f87926%_ . _%rest87927%_) + (if (procedure? _%f87926%_) + (let ((_%f87931%_ _%f87926%_)) (declare (not safe)) - (##apply __filter-map* _%f87868%_ _%rest87864%_)) + (##apply __filter-map* _%f87931%_ _%rest87927%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1237,274 +1237,274 @@ 'contract: 'procedure? 'value: - _%f87863%_) + _%f87926%_) '#!void)))) (define __filter-map* - (lambda (_%f87839%_ . _%rest87840%_) - (let ((_%f87843%_ _%f87839%_)) - (let _%recur87852%_ ((_%rest87854%_ _%rest87840%_)) - (if (__andmap1 pair? _%rest87854%_) - (let ((_%$e87857%_ - (let ((__tmp91288 (map car _%rest87854%_))) + (lambda (_%f87902%_ . _%rest87903%_) + (let ((_%f87906%_ _%f87902%_)) + (let _%recur87915%_ ((_%rest87917%_ _%rest87903%_)) + (if (__andmap1 pair? _%rest87917%_) + (let ((_%$e87920%_ + (let ((__tmp91351 (map car _%rest87917%_))) (declare (not safe)) - (##apply _%f87843%_ __tmp91288)))) - (if _%$e87857%_ - ((lambda (_%r87860%_) - (cons _%r87860%_ - (_%recur87852%_ (map cdr _%rest87854%_)))) - _%$e87857%_) - (_%recur87852%_ (map cdr _%rest87854%_)))) + (##apply _%f87906%_ __tmp91351)))) + (if _%$e87920%_ + ((lambda (_%r87923%_) + (cons _%r87923%_ + (_%recur87915%_ (map cdr _%rest87917%_)))) + _%$e87920%_) + (_%recur87915%_ (map cdr _%rest87917%_)))) '()))))) (define agetq__% - (lambda (_%key87815%_ _%lst87817%_ _%default87819%_) - (let ((_%$e87822%_ - (if (pair? _%lst87817%_) (assq _%key87815%_ _%lst87817%_) '#f))) - (if _%$e87822%_ - (cdr _%$e87822%_) - (if (procedure? _%default87819%_) - (_%default87819%_ _%key87815%_) - _%default87819%_))))) + (lambda (_%key87878%_ _%lst87880%_ _%default87882%_) + (let ((_%$e87885%_ + (if (pair? _%lst87880%_) (assq _%key87878%_ _%lst87880%_) '#f))) + (if _%$e87885%_ + (cdr _%$e87885%_) + (if (procedure? _%default87882%_) + (_%default87882%_ _%key87878%_) + _%default87882%_))))) (define agetq__0 - (lambda (_%key87830%_ _%lst87831%_) - (let ((_%default87833%_ '#f)) - (agetq__% _%key87830%_ _%lst87831%_ _%default87833%_)))) + (lambda (_%key87893%_ _%lst87894%_) + (let ((_%default87896%_ '#f)) + (agetq__% _%key87893%_ _%lst87894%_ _%default87896%_)))) (define agetq - (lambda _g91290_ - (let ((_g91289_ (let () (declare (not safe)) (##length _g91290_)))) - (cond ((let () (declare (not safe)) (##fx= _g91289_ 2)) - (apply agetq__0 _g91290_)) - ((let () (declare (not safe)) (##fx= _g91289_ 3)) - (apply agetq__% _g91290_)) + (lambda _g91353_ + (let ((_g91352_ (let () (declare (not safe)) (##length _g91353_)))) + (cond ((let () (declare (not safe)) (##fx= _g91352_ 2)) + (apply agetq__0 _g91353_)) + ((let () (declare (not safe)) (##fx= _g91352_ 3)) + (apply agetq__% _g91353_)) (else (##raise-wrong-number-of-arguments-exception agetq - _g91290_)))))) + _g91353_)))))) (define agetv__% - (lambda (_%key87790%_ _%lst87792%_ _%default87794%_) - (let ((_%$e87797%_ - (if (pair? _%lst87792%_) (assv _%key87790%_ _%lst87792%_) '#f))) - (if _%$e87797%_ - (cdr _%$e87797%_) - (if (procedure? _%default87794%_) - (_%default87794%_ _%key87790%_) - _%default87794%_))))) + (lambda (_%key87853%_ _%lst87855%_ _%default87857%_) + (let ((_%$e87860%_ + (if (pair? _%lst87855%_) (assv _%key87853%_ _%lst87855%_) '#f))) + (if _%$e87860%_ + (cdr _%$e87860%_) + (if (procedure? _%default87857%_) + (_%default87857%_ _%key87853%_) + _%default87857%_))))) (define agetv__0 - (lambda (_%key87805%_ _%lst87806%_) - (let ((_%default87808%_ '#f)) - (agetv__% _%key87805%_ _%lst87806%_ _%default87808%_)))) + (lambda (_%key87868%_ _%lst87869%_) + (let ((_%default87871%_ '#f)) + (agetv__% _%key87868%_ _%lst87869%_ _%default87871%_)))) (define agetv - (lambda _g91292_ - (let ((_g91291_ (let () (declare (not safe)) (##length _g91292_)))) - (cond ((let () (declare (not safe)) (##fx= _g91291_ 2)) - (apply agetv__0 _g91292_)) - ((let () (declare (not safe)) (##fx= _g91291_ 3)) - (apply agetv__% _g91292_)) + (lambda _g91355_ + (let ((_g91354_ (let () (declare (not safe)) (##length _g91355_)))) + (cond ((let () (declare (not safe)) (##fx= _g91354_ 2)) + (apply agetv__0 _g91355_)) + ((let () (declare (not safe)) (##fx= _g91354_ 3)) + (apply agetv__% _g91355_)) (else (##raise-wrong-number-of-arguments-exception agetv - _g91292_)))))) + _g91355_)))))) (define aget__% - (lambda (_%key87765%_ _%lst87767%_ _%default87769%_) - (let ((_%$e87772%_ - (if (pair? _%lst87767%_) - (assoc _%key87765%_ _%lst87767%_) + (lambda (_%key87828%_ _%lst87830%_ _%default87832%_) + (let ((_%$e87835%_ + (if (pair? _%lst87830%_) + (assoc _%key87828%_ _%lst87830%_) '#f))) - (if _%$e87772%_ - (cdr _%$e87772%_) - (if (procedure? _%default87769%_) - (_%default87769%_ _%key87765%_) - _%default87769%_))))) + (if _%$e87835%_ + (cdr _%$e87835%_) + (if (procedure? _%default87832%_) + (_%default87832%_ _%key87828%_) + _%default87832%_))))) (define aget__0 - (lambda (_%key87780%_ _%lst87781%_) - (let ((_%default87783%_ '#f)) - (aget__% _%key87780%_ _%lst87781%_ _%default87783%_)))) + (lambda (_%key87843%_ _%lst87844%_) + (let ((_%default87846%_ '#f)) + (aget__% _%key87843%_ _%lst87844%_ _%default87846%_)))) (define aget - (lambda _g91294_ - (let ((_g91293_ (let () (declare (not safe)) (##length _g91294_)))) - (cond ((let () (declare (not safe)) (##fx= _g91293_ 2)) - (apply aget__0 _g91294_)) - ((let () (declare (not safe)) (##fx= _g91293_ 3)) - (apply aget__% _g91294_)) + (lambda _g91357_ + (let ((_g91356_ (let () (declare (not safe)) (##length _g91357_)))) + (cond ((let () (declare (not safe)) (##fx= _g91356_ 2)) + (apply aget__0 _g91357_)) + ((let () (declare (not safe)) (##fx= _g91356_ 3)) + (apply aget__% _g91357_)) (else (##raise-wrong-number-of-arguments-exception aget - _g91294_)))))) + _g91357_)))))) (define assgetq agetq) (define assgetv agetv) (define assget aget) (define pgetq__% - (lambda (_%key87694%_ _%lst87696%_ _%default87698%_) - (let _%lp87701%_ ((_%rest87704%_ _%lst87696%_)) - (let* ((_%rest8770687716%_ _%rest87704%_) - (_%else8770887724%_ + (lambda (_%key87757%_ _%lst87759%_ _%default87761%_) + (let _%lp87764%_ ((_%rest87767%_ _%lst87759%_)) + (let* ((_%rest8776987779%_ _%rest87767%_) + (_%else8777187787%_ (lambda () - (if (procedure? _%default87698%_) - (_%default87698%_ _%key87694%_) - _%default87698%_))) - (_%K8771087733%_ - (lambda (_%rest87727%_ _%v87728%_ _%k87730%_) - (if (eq? _%k87730%_ _%key87694%_) - _%v87728%_ - (_%lp87701%_ _%rest87727%_))))) - (if (pair? _%rest8770687716%_) - (let ((_%hd8771187736%_ + (if (procedure? _%default87761%_) + (_%default87761%_ _%key87757%_) + _%default87761%_))) + (_%K8777387796%_ + (lambda (_%rest87790%_ _%v87791%_ _%k87793%_) + (if (eq? _%k87793%_ _%key87757%_) + _%v87791%_ + (_%lp87764%_ _%rest87790%_))))) + (if (pair? _%rest8776987779%_) + (let ((_%hd8777487799%_ (let () (declare (not safe)) - (##car _%rest8770687716%_))) - (_%tl8771287738%_ + (##car _%rest8776987779%_))) + (_%tl8777587801%_ (let () (declare (not safe)) - (##cdr _%rest8770687716%_)))) - (let ((_%k87741%_ _%hd8771187736%_)) - (if (pair? _%tl8771287738%_) - (let ((_%hd8771387743%_ + (##cdr _%rest8776987779%_)))) + (let ((_%k87804%_ _%hd8777487799%_)) + (if (pair? _%tl8777587801%_) + (let ((_%hd8777687806%_ (let () (declare (not safe)) - (##car _%tl8771287738%_))) - (_%tl8771487745%_ + (##car _%tl8777587801%_))) + (_%tl8777787808%_ (let () (declare (not safe)) - (##cdr _%tl8771287738%_)))) - (let* ((_%v87748%_ _%hd8771387743%_) - (_%rest87750%_ _%tl8771487745%_)) - (_%K8771087733%_ - _%rest87750%_ - _%v87748%_ - _%k87741%_))) - (_%else8770887724%_)))) - (_%else8770887724%_)))))) + (##cdr _%tl8777587801%_)))) + (let* ((_%v87811%_ _%hd8777687806%_) + (_%rest87813%_ _%tl8777787808%_)) + (_%K8777387796%_ + _%rest87813%_ + _%v87811%_ + _%k87804%_))) + (_%else8777187787%_)))) + (_%else8777187787%_)))))) (define pgetq__0 - (lambda (_%key87755%_ _%lst87756%_) - (let ((_%default87758%_ '#f)) - (pgetq__% _%key87755%_ _%lst87756%_ _%default87758%_)))) + (lambda (_%key87818%_ _%lst87819%_) + (let ((_%default87821%_ '#f)) + (pgetq__% _%key87818%_ _%lst87819%_ _%default87821%_)))) (define pgetq - (lambda _g91296_ - (let ((_g91295_ (let () (declare (not safe)) (##length _g91296_)))) - (cond ((let () (declare (not safe)) (##fx= _g91295_ 2)) - (apply pgetq__0 _g91296_)) - ((let () (declare (not safe)) (##fx= _g91295_ 3)) - (apply pgetq__% _g91296_)) + (lambda _g91359_ + (let ((_g91358_ (let () (declare (not safe)) (##length _g91359_)))) + (cond ((let () (declare (not safe)) (##fx= _g91358_ 2)) + (apply pgetq__0 _g91359_)) + ((let () (declare (not safe)) (##fx= _g91358_ 3)) + (apply pgetq__% _g91359_)) (else (##raise-wrong-number-of-arguments-exception pgetq - _g91296_)))))) + _g91359_)))))) (define pgetv__% - (lambda (_%key87623%_ _%lst87625%_ _%default87627%_) - (let _%lp87630%_ ((_%rest87633%_ _%lst87625%_)) - (let* ((_%rest8763587645%_ _%rest87633%_) - (_%else8763787653%_ + (lambda (_%key87686%_ _%lst87688%_ _%default87690%_) + (let _%lp87693%_ ((_%rest87696%_ _%lst87688%_)) + (let* ((_%rest8769887708%_ _%rest87696%_) + (_%else8770087716%_ (lambda () - (if (procedure? _%default87627%_) - (_%default87627%_ _%key87623%_) - _%default87627%_))) - (_%K8763987662%_ - (lambda (_%rest87656%_ _%v87657%_ _%k87659%_) - (if (eqv? _%k87659%_ _%key87623%_) - _%v87657%_ - (_%lp87630%_ _%rest87656%_))))) - (if (pair? _%rest8763587645%_) - (let ((_%hd8764087665%_ + (if (procedure? _%default87690%_) + (_%default87690%_ _%key87686%_) + _%default87690%_))) + (_%K8770287725%_ + (lambda (_%rest87719%_ _%v87720%_ _%k87722%_) + (if (eqv? _%k87722%_ _%key87686%_) + _%v87720%_ + (_%lp87693%_ _%rest87719%_))))) + (if (pair? _%rest8769887708%_) + (let ((_%hd8770387728%_ (let () (declare (not safe)) - (##car _%rest8763587645%_))) - (_%tl8764187667%_ + (##car _%rest8769887708%_))) + (_%tl8770487730%_ (let () (declare (not safe)) - (##cdr _%rest8763587645%_)))) - (let ((_%k87670%_ _%hd8764087665%_)) - (if (pair? _%tl8764187667%_) - (let ((_%hd8764287672%_ + (##cdr _%rest8769887708%_)))) + (let ((_%k87733%_ _%hd8770387728%_)) + (if (pair? _%tl8770487730%_) + (let ((_%hd8770587735%_ (let () (declare (not safe)) - (##car _%tl8764187667%_))) - (_%tl8764387674%_ + (##car _%tl8770487730%_))) + (_%tl8770687737%_ (let () (declare (not safe)) - (##cdr _%tl8764187667%_)))) - (let* ((_%v87677%_ _%hd8764287672%_) - (_%rest87679%_ _%tl8764387674%_)) - (_%K8763987662%_ - _%rest87679%_ - _%v87677%_ - _%k87670%_))) - (_%else8763787653%_)))) - (_%else8763787653%_)))))) + (##cdr _%tl8770487730%_)))) + (let* ((_%v87740%_ _%hd8770587735%_) + (_%rest87742%_ _%tl8770687737%_)) + (_%K8770287725%_ + _%rest87742%_ + _%v87740%_ + _%k87733%_))) + (_%else8770087716%_)))) + (_%else8770087716%_)))))) (define pgetv__0 - (lambda (_%key87684%_ _%lst87685%_) - (let ((_%default87687%_ '#f)) - (pgetv__% _%key87684%_ _%lst87685%_ _%default87687%_)))) + (lambda (_%key87747%_ _%lst87748%_) + (let ((_%default87750%_ '#f)) + (pgetv__% _%key87747%_ _%lst87748%_ _%default87750%_)))) (define pgetv - (lambda _g91298_ - (let ((_g91297_ (let () (declare (not safe)) (##length _g91298_)))) - (cond ((let () (declare (not safe)) (##fx= _g91297_ 2)) - (apply pgetv__0 _g91298_)) - ((let () (declare (not safe)) (##fx= _g91297_ 3)) - (apply pgetv__% _g91298_)) + (lambda _g91361_ + (let ((_g91360_ (let () (declare (not safe)) (##length _g91361_)))) + (cond ((let () (declare (not safe)) (##fx= _g91360_ 2)) + (apply pgetv__0 _g91361_)) + ((let () (declare (not safe)) (##fx= _g91360_ 3)) + (apply pgetv__% _g91361_)) (else (##raise-wrong-number-of-arguments-exception pgetv - _g91298_)))))) + _g91361_)))))) (define pget__% - (lambda (_%key87552%_ _%lst87554%_ _%default87556%_) - (let _%lp87559%_ ((_%rest87562%_ _%lst87554%_)) - (let* ((_%rest8756487574%_ _%rest87562%_) - (_%else8756687582%_ + (lambda (_%key87615%_ _%lst87617%_ _%default87619%_) + (let _%lp87622%_ ((_%rest87625%_ _%lst87617%_)) + (let* ((_%rest8762787637%_ _%rest87625%_) + (_%else8762987645%_ (lambda () - (if (procedure? _%default87556%_) - (_%default87556%_ _%key87552%_) - _%default87556%_))) - (_%K8756887591%_ - (lambda (_%rest87585%_ _%v87586%_ _%k87588%_) - (if (equal? _%k87588%_ _%key87552%_) - _%v87586%_ - (_%lp87559%_ _%rest87585%_))))) - (if (pair? _%rest8756487574%_) - (let ((_%hd8756987594%_ + (if (procedure? _%default87619%_) + (_%default87619%_ _%key87615%_) + _%default87619%_))) + (_%K8763187654%_ + (lambda (_%rest87648%_ _%v87649%_ _%k87651%_) + (if (equal? _%k87651%_ _%key87615%_) + _%v87649%_ + (_%lp87622%_ _%rest87648%_))))) + (if (pair? _%rest8762787637%_) + (let ((_%hd8763287657%_ (let () (declare (not safe)) - (##car _%rest8756487574%_))) - (_%tl8757087596%_ + (##car _%rest8762787637%_))) + (_%tl8763387659%_ (let () (declare (not safe)) - (##cdr _%rest8756487574%_)))) - (let ((_%k87599%_ _%hd8756987594%_)) - (if (pair? _%tl8757087596%_) - (let ((_%hd8757187601%_ + (##cdr _%rest8762787637%_)))) + (let ((_%k87662%_ _%hd8763287657%_)) + (if (pair? _%tl8763387659%_) + (let ((_%hd8763487664%_ (let () (declare (not safe)) - (##car _%tl8757087596%_))) - (_%tl8757287603%_ + (##car _%tl8763387659%_))) + (_%tl8763587666%_ (let () (declare (not safe)) - (##cdr _%tl8757087596%_)))) - (let* ((_%v87606%_ _%hd8757187601%_) - (_%rest87608%_ _%tl8757287603%_)) - (_%K8756887591%_ - _%rest87608%_ - _%v87606%_ - _%k87599%_))) - (_%else8756687582%_)))) - (_%else8756687582%_)))))) + (##cdr _%tl8763387659%_)))) + (let* ((_%v87669%_ _%hd8763487664%_) + (_%rest87671%_ _%tl8763587666%_)) + (_%K8763187654%_ + _%rest87671%_ + _%v87669%_ + _%k87662%_))) + (_%else8762987645%_)))) + (_%else8762987645%_)))))) (define pget__0 - (lambda (_%key87613%_ _%lst87614%_) - (let ((_%default87616%_ '#f)) - (pget__% _%key87613%_ _%lst87614%_ _%default87616%_)))) + (lambda (_%key87676%_ _%lst87677%_) + (let ((_%default87679%_ '#f)) + (pget__% _%key87676%_ _%lst87677%_ _%default87679%_)))) (define pget - (lambda _g91300_ - (let ((_g91299_ (let () (declare (not safe)) (##length _g91300_)))) - (cond ((let () (declare (not safe)) (##fx= _g91299_ 2)) - (apply pget__0 _g91300_)) - ((let () (declare (not safe)) (##fx= _g91299_ 3)) - (apply pget__% _g91300_)) + (lambda _g91363_ + (let ((_g91362_ (let () (declare (not safe)) (##length _g91363_)))) + (cond ((let () (declare (not safe)) (##fx= _g91362_ 2)) + (apply pget__0 _g91363_)) + ((let () (declare (not safe)) (##fx= _g91362_ 3)) + (apply pget__% _g91363_)) (else (##raise-wrong-number-of-arguments-exception pget - _g91300_)))))) + _g91363_)))))) (define find - (lambda (_%pred87536%_ _%lst87537%_) - (if (procedure? _%pred87536%_) - (let ((_%pred87541%_ _%pred87536%_)) - (__find _%pred87541%_ _%lst87537%_)) + (lambda (_%pred87599%_ _%lst87600%_) + (if (procedure? _%pred87599%_) + (let ((_%pred87604%_ _%pred87599%_)) + (__find _%pred87604%_ _%lst87600%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1513,20 +1513,20 @@ 'contract: 'procedure? 'value: - _%pred87536%_) + _%pred87599%_) '#!void)))) (define __find - (lambda (_%pred87519%_ _%lst87520%_) - (let* ((_%pred87523%_ _%pred87519%_) - (_%$e87532%_ (__memf _%pred87523%_ _%lst87520%_))) - (if _%$e87532%_ - (let () (declare (not safe)) (##car _%$e87532%_)) + (lambda (_%pred87582%_ _%lst87583%_) + (let* ((_%pred87586%_ _%pred87582%_) + (_%$e87595%_ (__memf _%pred87586%_ _%lst87583%_))) + (if _%$e87595%_ + (let () (declare (not safe)) (##car _%$e87595%_)) '#f)))) (define memf - (lambda (_%proc87504%_ _%lst87505%_) - (if (procedure? _%proc87504%_) - (let ((_%proc87509%_ _%proc87504%_)) - (__memf _%proc87509%_ _%lst87505%_)) + (lambda (_%proc87567%_ _%lst87568%_) + (if (procedure? _%proc87567%_) + (let ((_%proc87572%_ _%proc87567%_)) + (__memf _%proc87572%_ _%lst87568%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1535,114 +1535,114 @@ 'contract: 'procedure? 'value: - _%proc87504%_) + _%proc87567%_) '#!void)))) (define __memf - (lambda (_%proc87454%_ _%lst87455%_) - (let ((_%proc87458%_ _%proc87454%_)) - (let _%lp87467%_ ((_%rest87469%_ _%lst87455%_)) - (let* ((_%rest8747087478%_ _%rest87469%_) - (_%else8747287486%_ (lambda () '#f)) - (_%K8747487492%_ - (lambda (_%tl87489%_ _%hd87490%_) + (lambda (_%proc87517%_ _%lst87518%_) + (let ((_%proc87521%_ _%proc87517%_)) + (let _%lp87530%_ ((_%rest87532%_ _%lst87518%_)) + (let* ((_%rest8753387541%_ _%rest87532%_) + (_%else8753587549%_ (lambda () '#f)) + (_%K8753787555%_ + (lambda (_%tl87552%_ _%hd87553%_) (if (let () (declare (not safe)) - (_%proc87458%_ _%hd87490%_)) - _%rest87469%_ - (_%lp87467%_ _%tl87489%_))))) - (if (pair? _%rest8747087478%_) - (let ((_%hd8747587495%_ + (_%proc87521%_ _%hd87553%_)) + _%rest87532%_ + (_%lp87530%_ _%tl87552%_))))) + (if (pair? _%rest8753387541%_) + (let ((_%hd8753887558%_ (let () (declare (not safe)) - (##car _%rest8747087478%_))) - (_%tl8747687497%_ + (##car _%rest8753387541%_))) + (_%tl8753987560%_ (let () (declare (not safe)) - (##cdr _%rest8747087478%_)))) - (let* ((_%hd87500%_ _%hd8747587495%_) - (_%tl87502%_ _%tl8747687497%_)) - (_%K8747487492%_ _%tl87502%_ _%hd87500%_))) - (_%else8747287486%_))))))) + (##cdr _%rest8753387541%_)))) + (let* ((_%hd87563%_ _%hd8753887558%_) + (_%tl87565%_ _%tl8753987560%_)) + (_%K8753787555%_ _%tl87565%_ _%hd87563%_))) + (_%else8753587549%_))))))) (define remove1 - (lambda (_%el87407%_ _%lst87409%_) - (let _%lp87412%_ ((_%rest87415%_ _%lst87409%_) (_%r87417%_ '())) - (let* ((_%rest8741987427%_ _%rest87415%_) - (_%else8742187435%_ (lambda () _%lst87409%_)) - (_%K8742387442%_ - (lambda (_%rest87438%_ _%hd87439%_) - (if (equal? _%el87407%_ _%hd87439%_) - (__foldl1 cons _%rest87438%_ _%r87417%_) - (_%lp87412%_ - _%rest87438%_ - (cons _%hd87439%_ _%r87417%_)))))) - (if (pair? _%rest8741987427%_) - (let ((_%hd8742487445%_ + (lambda (_%el87470%_ _%lst87472%_) + (let _%lp87475%_ ((_%rest87478%_ _%lst87472%_) (_%r87480%_ '())) + (let* ((_%rest8748287490%_ _%rest87478%_) + (_%else8748487498%_ (lambda () _%lst87472%_)) + (_%K8748687505%_ + (lambda (_%rest87501%_ _%hd87502%_) + (if (equal? _%el87470%_ _%hd87502%_) + (__foldl1 cons _%rest87501%_ _%r87480%_) + (_%lp87475%_ + _%rest87501%_ + (cons _%hd87502%_ _%r87480%_)))))) + (if (pair? _%rest8748287490%_) + (let ((_%hd8748787508%_ (let () (declare (not safe)) - (##car _%rest8741987427%_))) - (_%tl8742587447%_ + (##car _%rest8748287490%_))) + (_%tl8748887510%_ (let () (declare (not safe)) - (##cdr _%rest8741987427%_)))) - (let* ((_%hd87450%_ _%hd8742487445%_) - (_%rest87452%_ _%tl8742587447%_)) - (_%K8742387442%_ _%rest87452%_ _%hd87450%_))) - (_%else8742187435%_)))))) + (##cdr _%rest8748287490%_)))) + (let* ((_%hd87513%_ _%hd8748787508%_) + (_%rest87515%_ _%tl8748887510%_)) + (_%K8748687505%_ _%rest87515%_ _%hd87513%_))) + (_%else8748487498%_)))))) (define remv1 - (lambda (_%el87360%_ _%lst87362%_) - (let _%lp87365%_ ((_%rest87368%_ _%lst87362%_) (_%r87370%_ '())) - (let* ((_%rest8737287380%_ _%rest87368%_) - (_%else8737487388%_ (lambda () _%lst87362%_)) - (_%K8737687395%_ - (lambda (_%rest87391%_ _%hd87392%_) - (if (eqv? _%el87360%_ _%hd87392%_) - (__foldl1 cons _%rest87391%_ _%r87370%_) - (_%lp87365%_ - _%rest87391%_ - (cons _%hd87392%_ _%r87370%_)))))) - (if (pair? _%rest8737287380%_) - (let ((_%hd8737787398%_ + (lambda (_%el87423%_ _%lst87425%_) + (let _%lp87428%_ ((_%rest87431%_ _%lst87425%_) (_%r87433%_ '())) + (let* ((_%rest8743587443%_ _%rest87431%_) + (_%else8743787451%_ (lambda () _%lst87425%_)) + (_%K8743987458%_ + (lambda (_%rest87454%_ _%hd87455%_) + (if (eqv? _%el87423%_ _%hd87455%_) + (__foldl1 cons _%rest87454%_ _%r87433%_) + (_%lp87428%_ + _%rest87454%_ + (cons _%hd87455%_ _%r87433%_)))))) + (if (pair? _%rest8743587443%_) + (let ((_%hd8744087461%_ (let () (declare (not safe)) - (##car _%rest8737287380%_))) - (_%tl8737887400%_ + (##car _%rest8743587443%_))) + (_%tl8744187463%_ (let () (declare (not safe)) - (##cdr _%rest8737287380%_)))) - (let* ((_%hd87403%_ _%hd8737787398%_) - (_%rest87405%_ _%tl8737887400%_)) - (_%K8737687395%_ _%rest87405%_ _%hd87403%_))) - (_%else8737487388%_)))))) + (##cdr _%rest8743587443%_)))) + (let* ((_%hd87466%_ _%hd8744087461%_) + (_%rest87468%_ _%tl8744187463%_)) + (_%K8743987458%_ _%rest87468%_ _%hd87466%_))) + (_%else8743787451%_)))))) (define remq1 - (lambda (_%el87313%_ _%lst87315%_) - (let _%lp87318%_ ((_%rest87321%_ _%lst87315%_) (_%r87323%_ '())) - (let* ((_%rest8732587333%_ _%rest87321%_) - (_%else8732787341%_ (lambda () _%lst87315%_)) - (_%K8732987348%_ - (lambda (_%rest87344%_ _%hd87345%_) - (if (eq? _%el87313%_ _%hd87345%_) - (__foldl1 cons _%rest87344%_ _%r87323%_) - (_%lp87318%_ - _%rest87344%_ - (cons _%hd87345%_ _%r87323%_)))))) - (if (pair? _%rest8732587333%_) - (let ((_%hd8733087351%_ + (lambda (_%el87376%_ _%lst87378%_) + (let _%lp87381%_ ((_%rest87384%_ _%lst87378%_) (_%r87386%_ '())) + (let* ((_%rest8738887396%_ _%rest87384%_) + (_%else8739087404%_ (lambda () _%lst87378%_)) + (_%K8739287411%_ + (lambda (_%rest87407%_ _%hd87408%_) + (if (eq? _%el87376%_ _%hd87408%_) + (__foldl1 cons _%rest87407%_ _%r87386%_) + (_%lp87381%_ + _%rest87407%_ + (cons _%hd87408%_ _%r87386%_)))))) + (if (pair? _%rest8738887396%_) + (let ((_%hd8739387414%_ (let () (declare (not safe)) - (##car _%rest8732587333%_))) - (_%tl8733187353%_ + (##car _%rest8738887396%_))) + (_%tl8739487416%_ (let () (declare (not safe)) - (##cdr _%rest8732587333%_)))) - (let* ((_%hd87356%_ _%hd8733087351%_) - (_%rest87358%_ _%tl8733187353%_)) - (_%K8732987348%_ _%rest87358%_ _%hd87356%_))) - (_%else8732787341%_)))))) + (##cdr _%rest8738887396%_)))) + (let* ((_%hd87419%_ _%hd8739387414%_) + (_%rest87421%_ _%tl8739487416%_)) + (_%K8739287411%_ _%rest87421%_ _%hd87419%_))) + (_%else8739087404%_)))))) (define remf - (lambda (_%proc87298%_ _%lst87299%_) - (if (procedure? _%proc87298%_) - (let ((_%proc87303%_ _%proc87298%_)) - (__remf _%proc87303%_ _%lst87299%_)) + (lambda (_%proc87361%_ _%lst87362%_) + (if (procedure? _%proc87361%_) + (let ((_%proc87366%_ _%proc87361%_)) + (__remf _%proc87366%_ _%lst87362%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1651,40 +1651,40 @@ 'contract: 'procedure? 'value: - _%proc87298%_) + _%proc87361%_) '#!void)))) (define __remf - (lambda (_%proc87247%_ _%lst87248%_) - (let ((_%proc87251%_ _%proc87247%_)) - (let _%lp87260%_ ((_%rest87262%_ _%lst87248%_) (_%r87263%_ '())) - (let* ((_%rest8726487272%_ _%rest87262%_) - (_%else8726687280%_ (lambda () _%lst87248%_)) - (_%K8726887286%_ - (lambda (_%rest87283%_ _%hd87284%_) + (lambda (_%proc87310%_ _%lst87311%_) + (let ((_%proc87314%_ _%proc87310%_)) + (let _%lp87323%_ ((_%rest87325%_ _%lst87311%_) (_%r87326%_ '())) + (let* ((_%rest8732787335%_ _%rest87325%_) + (_%else8732987343%_ (lambda () _%lst87311%_)) + (_%K8733187349%_ + (lambda (_%rest87346%_ _%hd87347%_) (if (let () (declare (not safe)) - (_%proc87251%_ _%hd87284%_)) - (__foldl1 cons _%rest87283%_ _%r87263%_) - (_%lp87260%_ - _%rest87283%_ - (cons _%hd87284%_ _%r87263%_)))))) - (if (pair? _%rest8726487272%_) - (let ((_%hd8726987289%_ + (_%proc87314%_ _%hd87347%_)) + (__foldl1 cons _%rest87346%_ _%r87326%_) + (_%lp87323%_ + _%rest87346%_ + (cons _%hd87347%_ _%r87326%_)))))) + (if (pair? _%rest8732787335%_) + (let ((_%hd8733287352%_ (let () (declare (not safe)) - (##car _%rest8726487272%_))) - (_%tl8727087291%_ + (##car _%rest8732787335%_))) + (_%tl8733387354%_ (let () (declare (not safe)) - (##cdr _%rest8726487272%_)))) - (let* ((_%hd87294%_ _%hd8726987289%_) - (_%rest87296%_ _%tl8727087291%_)) - (_%K8726887286%_ _%rest87296%_ _%hd87294%_))) - (_%else8726687280%_))))))) + (##cdr _%rest8732787335%_)))) + (let* ((_%hd87357%_ _%hd8733287352%_) + (_%rest87359%_ _%tl8733387354%_)) + (_%K8733187349%_ _%rest87359%_ _%hd87357%_))) + (_%else8732987343%_))))))) (define 1+ - (lambda (_%x87233%_) - (if (number? _%x87233%_) - (let ((_%x87237%_ _%x87233%_)) (__1+ _%x87237%_)) + (lambda (_%x87296%_) + (if (number? _%x87296%_) + (let ((_%x87300%_ _%x87296%_)) (__1+ _%x87300%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1693,14 +1693,14 @@ 'contract: 'number? 'value: - _%x87233%_) + _%x87296%_) '#!void)))) (define __1+ - (lambda (_%x87221%_) (let ((_%x87224%_ _%x87221%_)) (+ _%x87224%_ '1)))) + (lambda (_%x87284%_) (let ((_%x87287%_ _%x87284%_)) (+ _%x87287%_ '1)))) (define 1- - (lambda (_%x87207%_) - (if (number? _%x87207%_) - (let ((_%x87211%_ _%x87207%_)) (__1- _%x87211%_)) + (lambda (_%x87270%_) + (if (number? _%x87270%_) + (let ((_%x87274%_ _%x87270%_)) (__1- _%x87274%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1709,14 +1709,14 @@ 'contract: 'number? 'value: - _%x87207%_) + _%x87270%_) '#!void)))) (define __1- - (lambda (_%x87195%_) (let ((_%x87198%_ _%x87195%_)) (- _%x87198%_ '1)))) + (lambda (_%x87258%_) (let ((_%x87261%_ _%x87258%_)) (- _%x87261%_ '1)))) (define fx1+ - (lambda (_%x87181%_) - (if (fixnum? _%x87181%_) - (let ((_%x87185%_ _%x87181%_)) (__fx1+ _%x87185%_)) + (lambda (_%x87244%_) + (if (fixnum? _%x87244%_) + (let ((_%x87248%_ _%x87244%_)) (__fx1+ _%x87248%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1725,17 +1725,17 @@ 'contract: 'fixnum? 'value: - _%x87181%_) + _%x87244%_) '#!void)))) (define __fx1+ - (lambda (_%x87169%_) - (let ((_%x87172%_ _%x87169%_)) + (lambda (_%x87232%_) + (let ((_%x87235%_ _%x87232%_)) (declare (not safe)) - (##fx+ _%x87172%_ '1)))) + (##fx+ _%x87235%_ '1)))) (define fx1- - (lambda (_%x87155%_) - (if (fixnum? _%x87155%_) - (let ((_%x87159%_ _%x87155%_)) (__fx1- _%x87159%_)) + (lambda (_%x87218%_) + (if (fixnum? _%x87218%_) + (let ((_%x87222%_ _%x87218%_)) (__fx1- _%x87222%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1744,46 +1744,46 @@ 'contract: 'fixnum? 'value: - _%x87155%_) + _%x87218%_) '#!void)))) (define __fx1- - (lambda (_%x87143%_) - (let ((_%x87146%_ _%x87143%_)) + (lambda (_%x87206%_) + (let ((_%x87209%_ _%x87206%_)) (declare (not safe)) - (##fx- _%x87146%_ '1)))) + (##fx- _%x87209%_ '1)))) (define fxshift fxarithmetic-shift) (define fx/ fxquotient) (define fx>=0? - (lambda (_%x87140%_) - (if (fixnum? _%x87140%_) - (let () (declare (not safe)) (##fx>= _%x87140%_ '0)) + (lambda (_%x87203%_) + (if (fixnum? _%x87203%_) + (let () (declare (not safe)) (##fx>= _%x87203%_ '0)) '#f))) (define fx>0? - (lambda (_%x87137%_) - (if (fixnum? _%x87137%_) - (let () (declare (not safe)) (##fx> _%x87137%_ '0)) + (lambda (_%x87200%_) + (if (fixnum? _%x87200%_) + (let () (declare (not safe)) (##fx> _%x87200%_ '0)) '#f))) (define fx=0? - (lambda (_%x87134%_) - (let () (declare (not safe)) (##fx= _%x87134%_ '0)))) + (lambda (_%x87197%_) + (let () (declare (not safe)) (##fx= _%x87197%_ '0)))) (define fx<0? - (lambda (_%x87131%_) - (if (fixnum? _%x87131%_) - (let () (declare (not safe)) (##fx< _%x87131%_ '0)) + (lambda (_%x87194%_) + (if (fixnum? _%x87194%_) + (let () (declare (not safe)) (##fx< _%x87194%_ '0)) '#f))) (define fx<=0? - (lambda (_%x87128%_) - (if (fixnum? _%x87128%_) - (let () (declare (not safe)) (##fx<= _%x87128%_ '0)) + (lambda (_%x87191%_) + (if (fixnum? _%x87191%_) + (let () (declare (not safe)) (##fx<= _%x87191%_ '0)) '#f))) (define interned-symbol? - (lambda (_%x87125%_) - (if (symbol? _%x87125%_) (not (uninterned-symbol? _%x87125%_)) '#f))) + (lambda (_%x87188%_) + (if (symbol? _%x87188%_) (not (uninterned-symbol? _%x87188%_)) '#f))) (define display-as-string - (lambda (_%x87110%_ _%port87111%_) - (if (output-port? _%port87111%_) - (let ((_%port87115%_ _%port87111%_)) - (__display-as-string _%x87110%_ _%port87115%_)) + (lambda (_%x87173%_ _%port87174%_) + (if (output-port? _%port87174%_) + (let ((_%port87178%_ _%port87174%_)) + (__display-as-string _%x87173%_ _%port87178%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1792,147 +1792,147 @@ 'contract: 'output-port? 'value: - _%port87111%_) + _%port87174%_) '#!void)))) (define __display-as-string - (lambda (_%x87067%_ _%port87068%_) - (let ((_%port87071%_ _%port87068%_)) - (if (or (string? _%x87067%_) - (symbol? _%x87067%_) - (keyword? _%x87067%_) - (number? _%x87067%_) - (char? _%x87067%_)) - (display _%x87067%_ _%port87071%_) - (if (pair? _%x87067%_) + (lambda (_%x87130%_ _%port87131%_) + (let ((_%port87134%_ _%port87131%_)) + (if (or (string? _%x87130%_) + (symbol? _%x87130%_) + (keyword? _%x87130%_) + (number? _%x87130%_) + (char? _%x87130%_)) + (display _%x87130%_ _%port87134%_) + (if (pair? _%x87130%_) (let () (__display-as-string - (let () (declare (not safe)) (##car _%x87067%_)) - _%port87071%_) + (let () (declare (not safe)) (##car _%x87130%_)) + _%port87134%_) (__display-as-string - (let () (declare (not safe)) (##cdr _%x87067%_)) - _%port87071%_)) - (if (vector? _%x87067%_) + (let () (declare (not safe)) (##cdr _%x87130%_)) + _%port87134%_)) + (if (vector? _%x87130%_) (vector-for-each - (lambda (_%g8709487096%_) - (__display-as-string _%g8709487096%_ _%port87071%_)) - _%x87067%_) - (if (or (null? _%x87067%_) - (eq? _%x87067%_ '#!void) - (eof-object? _%x87067%_) - (boolean? _%x87067%_)) + (lambda (_%g8715787159%_) + (__display-as-string _%g8715787159%_ _%port87134%_)) + _%x87130%_) + (if (or (null? _%x87130%_) + (eq? _%x87130%_ '#!void) + (eof-object? _%x87130%_) + (boolean? _%x87130%_)) '#!void (let () - (error '"cannot convert as string" _%x87067%_) + (error '"cannot convert as string" _%x87130%_) '#!void)))))))) (define as-string__0 - (lambda (_%x87050%_) - (if (string? _%x87050%_) - _%x87050%_ - (if (symbol? _%x87050%_) - (let () (declare (not safe)) (##symbol->string _%x87050%_)) - (if (keyword? _%x87050%_) + (lambda (_%x87113%_) + (if (string? _%x87113%_) + _%x87113%_ + (if (symbol? _%x87113%_) + (let () (declare (not safe)) (##symbol->string _%x87113%_)) + (if (keyword? _%x87113%_) (let () (declare (not safe)) - (##keyword->string _%x87050%_)) - (if (number? _%x87050%_) + (##keyword->string _%x87113%_)) + (if (number? _%x87113%_) (let () (declare (not safe)) - (##number->string _%x87050%_)) + (##number->string _%x87113%_)) (call-with-output-string '() - (lambda (_%g8705687058%_) + (lambda (_%g8711987121%_) (__display-as-string - _%x87050%_ - _%g8705687058%_))))))))) + _%x87113%_ + _%g8711987121%_))))))))) (define as-string__1 - (lambda _%args87061%_ + (lambda _%args87124%_ (call-with-output-string '() - (lambda (_%g8706287064%_) - (__display-as-string _%args87061%_ _%g8706287064%_))))) + (lambda (_%g8712587127%_) + (__display-as-string _%args87124%_ _%g8712587127%_))))) (define as-string - (lambda _g91302_ - (let ((_g91301_ (let () (declare (not safe)) (##length _g91302_)))) - (cond ((let () (declare (not safe)) (##fx= _g91301_ 1)) - (apply as-string__0 _g91302_)) + (lambda _g91365_ + (let ((_g91364_ (let () (declare (not safe)) (##length _g91365_)))) + (cond ((let () (declare (not safe)) (##fx= _g91364_ 1)) + (apply as-string__0 _g91365_)) (#t - (apply (lambda _%args87061%_ + (apply (lambda _%args87124%_ (let () (declare (not safe)) - (##apply as-string__1 _%args87061%_))) - _g91302_)) + (##apply as-string__1 _%args87124%_))) + _g91365_)) (else (##raise-wrong-number-of-arguments-exception as-string - _g91302_)))))) + _g91365_)))))) (define make-symbol__0 - (lambda (_%x87046%_) - (if (interned-symbol? _%x87046%_) - _%x87046%_ - (let ((__tmp91303 (as-string__0 _%x87046%_))) + (lambda (_%x87109%_) + (if (interned-symbol? _%x87109%_) + _%x87109%_ + (let ((__tmp91366 (as-string__0 _%x87109%_))) (declare (not safe)) - (##string->symbol __tmp91303))))) + (##string->symbol __tmp91366))))) (define make-symbol__1 - (lambda _%args87048%_ - (let ((__tmp91304 + (lambda _%args87111%_ + (let ((__tmp91367 (let () (declare (not safe)) - (##apply as-string _%args87048%_)))) + (##apply as-string _%args87111%_)))) (declare (not safe)) - (##string->symbol __tmp91304)))) + (##string->symbol __tmp91367)))) (define make-symbol - (lambda _g91306_ - (let ((_g91305_ (let () (declare (not safe)) (##length _g91306_)))) - (cond ((let () (declare (not safe)) (##fx= _g91305_ 1)) - (apply make-symbol__0 _g91306_)) + (lambda _g91369_ + (let ((_g91368_ (let () (declare (not safe)) (##length _g91369_)))) + (cond ((let () (declare (not safe)) (##fx= _g91368_ 1)) + (apply make-symbol__0 _g91369_)) (#t - (apply (lambda _%args87048%_ + (apply (lambda _%args87111%_ (let () (declare (not safe)) - (##apply make-symbol__1 _%args87048%_))) - _g91306_)) + (##apply make-symbol__1 _%args87111%_))) + _g91369_)) (else (##raise-wrong-number-of-arguments-exception make-symbol - _g91306_)))))) + _g91369_)))))) (define make-keyword__0 - (lambda (_%x87042%_) - (if (interned-keyword? _%x87042%_) - _%x87042%_ - (let ((__tmp91307 (as-string__0 _%x87042%_))) + (lambda (_%x87105%_) + (if (interned-keyword? _%x87105%_) + _%x87105%_ + (let ((__tmp91370 (as-string__0 _%x87105%_))) (declare (not safe)) - (##string->keyword __tmp91307))))) + (##string->keyword __tmp91370))))) (define make-keyword__1 - (lambda _%args87044%_ - (let ((__tmp91308 + (lambda _%args87107%_ + (let ((__tmp91371 (let () (declare (not safe)) - (##apply as-string _%args87044%_)))) + (##apply as-string _%args87107%_)))) (declare (not safe)) - (##string->keyword __tmp91308)))) + (##string->keyword __tmp91371)))) (define make-keyword - (lambda _g91310_ - (let ((_g91309_ (let () (declare (not safe)) (##length _g91310_)))) - (cond ((let () (declare (not safe)) (##fx= _g91309_ 1)) - (apply make-keyword__0 _g91310_)) + (lambda _g91373_ + (let ((_g91372_ (let () (declare (not safe)) (##length _g91373_)))) + (cond ((let () (declare (not safe)) (##fx= _g91372_ 1)) + (apply make-keyword__0 _g91373_)) (#t - (apply (lambda _%args87044%_ + (apply (lambda _%args87107%_ (let () (declare (not safe)) - (##apply make-keyword__1 _%args87044%_))) - _g91310_)) + (##apply make-keyword__1 _%args87107%_))) + _g91373_)) (else (##raise-wrong-number-of-arguments-exception make-keyword - _g91310_)))))) + _g91373_)))))) (define interned-keyword? - (lambda (_%x87039%_) - (if (keyword? _%x87039%_) (not (uninterned-keyword? _%x87039%_)) '#f))) + (lambda (_%x87102%_) + (if (keyword? _%x87102%_) (not (uninterned-keyword? _%x87102%_)) '#f))) (define symbol->keyword - (lambda (_%sym87025%_) - (if (symbol? _%sym87025%_) - (let ((_%sym87029%_ _%sym87025%_)) - (__symbol->keyword _%sym87029%_)) + (lambda (_%sym87088%_) + (if (symbol? _%sym87088%_) + (let ((_%sym87092%_ _%sym87088%_)) + (__symbol->keyword _%sym87092%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1941,29 +1941,29 @@ 'contract: 'symbol? 'value: - _%sym87025%_) + _%sym87088%_) '#!void)))) (define __symbol->keyword - (lambda (_%sym87013%_) - (let ((_%sym87016%_ _%sym87013%_)) - (if (uninterned-symbol? _%sym87016%_) - (let ((__tmp91311 + (lambda (_%sym87076%_) + (let ((_%sym87079%_ _%sym87076%_)) + (if (uninterned-symbol? _%sym87079%_) + (let ((__tmp91374 (let () (declare (not safe)) - (##symbol->string _%sym87016%_)))) + (##symbol->string _%sym87079%_)))) (declare (not safe)) - (##string->uninterned-keyword __tmp91311)) - (let ((__tmp91312 + (##string->uninterned-keyword __tmp91374)) + (let ((__tmp91375 (let () (declare (not safe)) - (##symbol->string _%sym87016%_)))) + (##symbol->string _%sym87079%_)))) (declare (not safe)) - (##string->keyword __tmp91312)))))) + (##string->keyword __tmp91375)))))) (define keyword->symbol - (lambda (_%sym86999%_) - (if (keyword? _%sym86999%_) - (let ((_%sym87003%_ _%sym86999%_)) - (__keyword->symbol _%sym87003%_)) + (lambda (_%sym87062%_) + (if (keyword? _%sym87062%_) + (let ((_%sym87066%_ _%sym87062%_)) + (__keyword->symbol _%sym87066%_)) (begin (raise-contract-violation-error '"contract violation" @@ -1972,31 +1972,31 @@ 'contract: 'keyword? 'value: - _%sym86999%_) + _%sym87062%_) '#!void)))) (define __keyword->symbol - (lambda (_%sym86987%_) - (let ((_%sym86990%_ _%sym86987%_)) - (if (uninterned-keyword? _%sym86990%_) - (let ((__tmp91313 + (lambda (_%sym87050%_) + (let ((_%sym87053%_ _%sym87050%_)) + (if (uninterned-keyword? _%sym87053%_) + (let ((__tmp91376 (let () (declare (not safe)) - (##keyword->string _%sym86990%_)))) + (##keyword->string _%sym87053%_)))) (declare (not safe)) - (##string->uninterned-symbol __tmp91313)) - (let ((__tmp91314 + (##string->uninterned-symbol __tmp91376)) + (let ((__tmp91377 (let () (declare (not safe)) - (##keyword->string _%sym86990%_)))) + (##keyword->string _%sym87053%_)))) (declare (not safe)) - (##string->symbol __tmp91314)))))) + (##string->symbol __tmp91377)))))) (define bytes->string__% - (lambda (_%bstr86952%_ _%enc86953%_) - (if (u8vector? _%bstr86952%_) - (let ((_%bstr86957%_ _%bstr86952%_)) - (if (symbol? _%enc86953%_) - (let ((_%enc86967%_ _%enc86953%_)) - (__bytes->string__% _%bstr86957%_ _%enc86967%_)) + (lambda (_%bstr87015%_ _%enc87016%_) + (if (u8vector? _%bstr87015%_) + (let ((_%bstr87020%_ _%bstr87015%_)) + (if (symbol? _%enc87016%_) + (let ((_%enc87030%_ _%enc87016%_)) + (__bytes->string__% _%bstr87020%_ _%enc87030%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2005,7 +2005,7 @@ 'contract: 'symbol? 'value: - _%enc86953%_) + _%enc87016%_) '#!void))) (begin (raise-contract-violation-error @@ -2015,71 +2015,71 @@ 'contract: 'u8vector? 'value: - _%bstr86952%_) + _%bstr87015%_) '#!void)))) (define bytes->string__0 - (lambda (_%bstr86980%_) - (let ((_%enc86982%_ 'UTF-8)) - (bytes->string__% _%bstr86980%_ _%enc86982%_)))) + (lambda (_%bstr87043%_) + (let ((_%enc87045%_ 'UTF-8)) + (bytes->string__% _%bstr87043%_ _%enc87045%_)))) (define bytes->string - (lambda _g91316_ - (let ((_g91315_ (let () (declare (not safe)) (##length _g91316_)))) - (cond ((let () (declare (not safe)) (##fx= _g91315_ 1)) - (apply bytes->string__0 _g91316_)) - ((let () (declare (not safe)) (##fx= _g91315_ 2)) - (apply bytes->string__% _g91316_)) + (lambda _g91379_ + (let ((_g91378_ (let () (declare (not safe)) (##length _g91379_)))) + (cond ((let () (declare (not safe)) (##fx= _g91378_ 1)) + (apply bytes->string__0 _g91379_)) + ((let () (declare (not safe)) (##fx= _g91378_ 2)) + (apply bytes->string__% _g91379_)) (else (##raise-wrong-number-of-arguments-exception bytes->string - _g91316_)))))) + _g91379_)))))) (define __bytes->string__% - (lambda (_%bstr86911%_ _%enc86912%_) - (let* ((_%bstr86915%_ _%bstr86911%_) (_%enc86923%_ _%enc86912%_)) - (if (eq? _%enc86923%_ 'UTF-8) - (let () (declare (not safe)) (##utf8->string _%bstr86915%_)) - (let* ((_%in86932%_ + (lambda (_%bstr86974%_ _%enc86975%_) + (let* ((_%bstr86978%_ _%bstr86974%_) (_%enc86986%_ _%enc86975%_)) + (if (eq? _%enc86986%_ 'UTF-8) + (let () (declare (not safe)) (##utf8->string _%bstr86978%_)) + (let* ((_%in86995%_ (open-input-u8vector (cons 'char-encoding: - (cons _%enc86923%_ - (cons 'init: (cons _%bstr86915%_ '())))))) - (_%len86934%_ + (cons _%enc86986%_ + (cons 'init: (cons _%bstr86978%_ '())))))) + (_%len86997%_ (let () (declare (not safe)) - (##u8vector-length _%bstr86915%_))) - (_%out86936%_ + (##u8vector-length _%bstr86978%_))) + (_%out86999%_ (let () (declare (not safe)) - (##make-string _%len86934%_))) - (_%n86938%_ + (##make-string _%len86997%_))) + (_%n87001%_ (read-substring - _%out86936%_ + _%out86999%_ '0 - _%len86934%_ - _%in86932%_))) - (string-shrink! _%out86936%_ _%n86938%_) - _%out86936%_))))) + _%len86997%_ + _%in86995%_))) + (string-shrink! _%out86999%_ _%n87001%_) + _%out86999%_))))) (define __bytes->string__0 - (lambda (_%bstr86944%_) - (let ((_%enc86946%_ 'UTF-8)) - (__bytes->string__% _%bstr86944%_ _%enc86946%_)))) + (lambda (_%bstr87007%_) + (let ((_%enc87009%_ 'UTF-8)) + (__bytes->string__% _%bstr87007%_ _%enc87009%_)))) (define __bytes->string - (lambda _g91318_ - (let ((_g91317_ (let () (declare (not safe)) (##length _g91318_)))) - (cond ((let () (declare (not safe)) (##fx= _g91317_ 1)) - (apply __bytes->string__0 _g91318_)) - ((let () (declare (not safe)) (##fx= _g91317_ 2)) - (apply __bytes->string__% _g91318_)) + (lambda _g91381_ + (let ((_g91380_ (let () (declare (not safe)) (##length _g91381_)))) + (cond ((let () (declare (not safe)) (##fx= _g91380_ 1)) + (apply __bytes->string__0 _g91381_)) + ((let () (declare (not safe)) (##fx= _g91380_ 2)) + (apply __bytes->string__% _g91381_)) (else (##raise-wrong-number-of-arguments-exception __bytes->string - _g91318_)))))) + _g91381_)))))) (define string->bytes__% - (lambda (_%str86875%_ _%enc86876%_) - (if (string? _%str86875%_) - (let ((_%str86880%_ _%str86875%_)) - (if (symbol? _%enc86876%_) - (let ((_%enc86890%_ _%enc86876%_)) - (__string->bytes__% _%str86880%_ _%enc86890%_)) + (lambda (_%str86938%_ _%enc86939%_) + (if (string? _%str86938%_) + (let ((_%str86943%_ _%str86938%_)) + (if (symbol? _%enc86939%_) + (let ((_%enc86953%_ _%enc86939%_)) + (__string->bytes__% _%str86943%_ _%enc86953%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2088,7 +2088,7 @@ 'contract: 'symbol? 'value: - _%enc86876%_) + _%enc86939%_) '#!void))) (begin (raise-contract-violation-error @@ -2098,61 +2098,61 @@ 'contract: 'string? 'value: - _%str86875%_) + _%str86938%_) '#!void)))) (define string->bytes__0 - (lambda (_%str86903%_) - (let ((_%enc86905%_ 'UTF-8)) - (string->bytes__% _%str86903%_ _%enc86905%_)))) + (lambda (_%str86966%_) + (let ((_%enc86968%_ 'UTF-8)) + (string->bytes__% _%str86966%_ _%enc86968%_)))) (define string->bytes - (lambda _g91320_ - (let ((_g91319_ (let () (declare (not safe)) (##length _g91320_)))) - (cond ((let () (declare (not safe)) (##fx= _g91319_ 1)) - (apply string->bytes__0 _g91320_)) - ((let () (declare (not safe)) (##fx= _g91319_ 2)) - (apply string->bytes__% _g91320_)) + (lambda _g91383_ + (let ((_g91382_ (let () (declare (not safe)) (##length _g91383_)))) + (cond ((let () (declare (not safe)) (##fx= _g91382_ 1)) + (apply string->bytes__0 _g91383_)) + ((let () (declare (not safe)) (##fx= _g91382_ 2)) + (apply string->bytes__% _g91383_)) (else (##raise-wrong-number-of-arguments-exception string->bytes - _g91320_)))))) + _g91383_)))))) (define __string->bytes__% - (lambda (_%str86843%_ _%enc86844%_) - (let* ((_%str86847%_ _%str86843%_) (_%enc86855%_ _%enc86844%_)) - (if (eq? _%enc86855%_ 'UTF-8) - (let () (declare (not safe)) (##string->utf8 _%str86847%_)) + (lambda (_%str86906%_ _%enc86907%_) + (let* ((_%str86910%_ _%str86906%_) (_%enc86918%_ _%enc86907%_)) + (if (eq? _%enc86918%_ 'UTF-8) + (let () (declare (not safe)) (##string->utf8 _%str86910%_)) (__substring->bytes__% - _%str86847%_ + _%str86910%_ '0 - (let () (declare (not safe)) (##string-length _%str86847%_)) - _%enc86855%_))))) + (let () (declare (not safe)) (##string-length _%str86910%_)) + _%enc86918%_))))) (define __string->bytes__0 - (lambda (_%str86867%_) - (let ((_%enc86869%_ 'UTF-8)) - (__string->bytes__% _%str86867%_ _%enc86869%_)))) + (lambda (_%str86930%_) + (let ((_%enc86932%_ 'UTF-8)) + (__string->bytes__% _%str86930%_ _%enc86932%_)))) (define __string->bytes - (lambda _g91322_ - (let ((_g91321_ (let () (declare (not safe)) (##length _g91322_)))) - (cond ((let () (declare (not safe)) (##fx= _g91321_ 1)) - (apply __string->bytes__0 _g91322_)) - ((let () (declare (not safe)) (##fx= _g91321_ 2)) - (apply __string->bytes__% _g91322_)) + (lambda _g91385_ + (let ((_g91384_ (let () (declare (not safe)) (##length _g91385_)))) + (cond ((let () (declare (not safe)) (##fx= _g91384_ 1)) + (apply __string->bytes__0 _g91385_)) + ((let () (declare (not safe)) (##fx= _g91384_ 2)) + (apply __string->bytes__% _g91385_)) (else (##raise-wrong-number-of-arguments-exception __string->bytes - _g91322_)))))) + _g91385_)))))) (define substring->bytes__% - (lambda (_%str86791%_ _%start86792%_ _%end86793%_ _%enc86794%_) - (if (string? _%str86791%_) - (let ((_%str86798%_ _%str86791%_)) - (if (nonnegative-fixnum? _%start86792%_) - (let ((_%start86808%_ _%start86792%_)) - (if (nonnegative-fixnum? _%end86793%_) - (let ((_%end86818%_ _%end86793%_)) + (lambda (_%str86854%_ _%start86855%_ _%end86856%_ _%enc86857%_) + (if (string? _%str86854%_) + (let ((_%str86861%_ _%str86854%_)) + (if (nonnegative-fixnum? _%start86855%_) + (let ((_%start86871%_ _%start86855%_)) + (if (nonnegative-fixnum? _%end86856%_) + (let ((_%end86881%_ _%end86856%_)) (__substring->bytes__% - _%str86798%_ - _%start86808%_ - _%end86818%_ - _%enc86794%_)) + _%str86861%_ + _%start86871%_ + _%end86881%_ + _%enc86857%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2161,7 +2161,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%end86793%_) + _%end86856%_) '#!void))) (begin (raise-contract-violation-error @@ -2171,7 +2171,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start86792%_) + _%start86855%_) '#!void))) (begin (raise-contract-violation-error @@ -2181,66 +2181,66 @@ 'contract: 'string? 'value: - _%str86791%_) + _%str86854%_) '#!void)))) (define substring->bytes__0 - (lambda (_%str86831%_ _%start86832%_ _%end86833%_) - (let ((_%enc86835%_ 'UTF-8)) + (lambda (_%str86894%_ _%start86895%_ _%end86896%_) + (let ((_%enc86898%_ 'UTF-8)) (substring->bytes__% - _%str86831%_ - _%start86832%_ - _%end86833%_ - _%enc86835%_)))) + _%str86894%_ + _%start86895%_ + _%end86896%_ + _%enc86898%_)))) (define substring->bytes - (lambda _g91324_ - (let ((_g91323_ (let () (declare (not safe)) (##length _g91324_)))) - (cond ((let () (declare (not safe)) (##fx= _g91323_ 3)) - (apply substring->bytes__0 _g91324_)) - ((let () (declare (not safe)) (##fx= _g91323_ 4)) - (apply substring->bytes__% _g91324_)) + (lambda _g91387_ + (let ((_g91386_ (let () (declare (not safe)) (##length _g91387_)))) + (cond ((let () (declare (not safe)) (##fx= _g91386_ 3)) + (apply substring->bytes__0 _g91387_)) + ((let () (declare (not safe)) (##fx= _g91386_ 4)) + (apply substring->bytes__% _g91387_)) (else (##raise-wrong-number-of-arguments-exception substring->bytes - _g91324_)))))) + _g91387_)))))) (define __substring->bytes__% - (lambda (_%str86743%_ _%start86744%_ _%end86745%_ _%enc86746%_) - (let* ((_%str86749%_ _%str86743%_) - (_%start86757%_ _%start86744%_) - (_%end86765%_ _%end86745%_)) - (if (eq? _%enc86746%_ 'UTF-8) - (string->utf8 _%str86749%_ _%start86757%_ _%end86765%_) - (let ((_%out86774%_ + (lambda (_%str86806%_ _%start86807%_ _%end86808%_ _%enc86809%_) + (let* ((_%str86812%_ _%str86806%_) + (_%start86820%_ _%start86807%_) + (_%end86828%_ _%end86808%_)) + (if (eq? _%enc86809%_ 'UTF-8) + (string->utf8 _%str86812%_ _%start86820%_ _%end86828%_) + (let ((_%out86837%_ (open-output-u8vector - (cons 'char-encoding: (cons _%enc86746%_ '()))))) + (cons 'char-encoding: (cons _%enc86809%_ '()))))) (write-substring - _%str86749%_ - _%start86757%_ - _%end86765%_ - _%out86774%_) - (get-output-u8vector _%out86774%_)))))) + _%str86812%_ + _%start86820%_ + _%end86828%_ + _%out86837%_) + (get-output-u8vector _%out86837%_)))))) (define __substring->bytes__0 - (lambda (_%str86779%_ _%start86780%_ _%end86781%_) - (let ((_%enc86783%_ 'UTF-8)) + (lambda (_%str86842%_ _%start86843%_ _%end86844%_) + (let ((_%enc86846%_ 'UTF-8)) (__substring->bytes__% - _%str86779%_ - _%start86780%_ - _%end86781%_ - _%enc86783%_)))) + _%str86842%_ + _%start86843%_ + _%end86844%_ + _%enc86846%_)))) (define __substring->bytes - (lambda _g91326_ - (let ((_g91325_ (let () (declare (not safe)) (##length _g91326_)))) - (cond ((let () (declare (not safe)) (##fx= _g91325_ 3)) - (apply __substring->bytes__0 _g91326_)) - ((let () (declare (not safe)) (##fx= _g91325_ 4)) - (apply __substring->bytes__% _g91326_)) + (lambda _g91389_ + (let ((_g91388_ (let () (declare (not safe)) (##length _g91389_)))) + (cond ((let () (declare (not safe)) (##fx= _g91388_ 3)) + (apply __substring->bytes__0 _g91389_)) + ((let () (declare (not safe)) (##fx= _g91388_ 4)) + (apply __substring->bytes__% _g91389_)) (else (##raise-wrong-number-of-arguments-exception __substring->bytes - _g91326_)))))) + _g91389_)))))) (define string-empty? - (lambda (_%str86728%_) - (if (string? _%str86728%_) - (let ((_%str86732%_ _%str86728%_)) (__string-empty? _%str86732%_)) + (lambda (_%str86791%_) + (if (string? _%str86791%_) + (let ((_%str86795%_ _%str86791%_)) (__string-empty? _%str86795%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2249,27 +2249,27 @@ 'contract: 'string? 'value: - _%str86728%_) + _%str86791%_) '#!void)))) (define __string-empty? - (lambda (_%str86716%_) - (let* ((_%str86719%_ _%str86716%_) - (__tmp91327 - (let () (declare (not safe)) (##string-length _%str86719%_)))) + (lambda (_%str86779%_) + (let* ((_%str86782%_ _%str86779%_) + (__tmp91390 + (let () (declare (not safe)) (##string-length _%str86782%_)))) (declare (not safe)) - (##fxzero? __tmp91327)))) + (##fxzero? __tmp91390)))) (define string-index__% - (lambda (_%str86668%_ _%char86669%_ _%start86670%_) - (if (string? _%str86668%_) - (let ((_%str86674%_ _%str86668%_)) - (if (char? _%char86669%_) - (let ((_%char86684%_ _%char86669%_)) - (if (nonnegative-fixnum? _%start86670%_) - (let ((_%start86694%_ _%start86670%_)) + (lambda (_%str86731%_ _%char86732%_ _%start86733%_) + (if (string? _%str86731%_) + (let ((_%str86737%_ _%str86731%_)) + (if (char? _%char86732%_) + (let ((_%char86747%_ _%char86732%_)) + (if (nonnegative-fixnum? _%start86733%_) + (let ((_%start86757%_ _%start86733%_)) (__string-index__% - _%str86674%_ - _%char86684%_ - _%start86694%_)) + _%str86737%_ + _%char86747%_ + _%start86757%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2278,7 +2278,7 @@ 'contract: 'nonnegative-fixnum? 'value: - _%start86670%_) + _%start86733%_) '#!void))) (begin (raise-contract-violation-error @@ -2288,7 +2288,7 @@ 'contract: 'char? 'value: - _%char86669%_) + _%char86732%_) '#!void))) (begin (raise-contract-violation-error @@ -2298,66 +2298,66 @@ 'contract: 'string? 'value: - _%str86668%_) + _%str86731%_) '#!void)))) (define string-index__0 - (lambda (_%str86707%_ _%char86708%_) - (let ((_%start86710%_ '0)) - (string-index__% _%str86707%_ _%char86708%_ _%start86710%_)))) + (lambda (_%str86770%_ _%char86771%_) + (let ((_%start86773%_ '0)) + (string-index__% _%str86770%_ _%char86771%_ _%start86773%_)))) (define string-index - (lambda _g91329_ - (let ((_g91328_ (let () (declare (not safe)) (##length _g91329_)))) - (cond ((let () (declare (not safe)) (##fx= _g91328_ 2)) - (apply string-index__0 _g91329_)) - ((let () (declare (not safe)) (##fx= _g91328_ 3)) - (apply string-index__% _g91329_)) + (lambda _g91392_ + (let ((_g91391_ (let () (declare (not safe)) (##length _g91392_)))) + (cond ((let () (declare (not safe)) (##fx= _g91391_ 2)) + (apply string-index__0 _g91392_)) + ((let () (declare (not safe)) (##fx= _g91391_ 3)) + (apply string-index__% _g91392_)) (else (##raise-wrong-number-of-arguments-exception string-index - _g91329_)))))) + _g91392_)))))) (define __string-index__% - (lambda (_%str86607%_ _%char86608%_ _%start86609%_) - (let* ((_%str86612%_ _%str86607%_) - (_%char86620%_ _%char86608%_) - (_%start86628%_ _%start86609%_) - (_%len86637%_ - (let () (declare (not safe)) (##string-length _%str86612%_)))) - (let _%lp86639%_ ((_%k86641%_ _%start86628%_)) - (let ((_%k86643%_ _%k86641%_)) - (if (let () (declare (not safe)) (##fx< _%k86643%_ _%len86637%_)) - (if (eq? _%char86620%_ + (lambda (_%str86670%_ _%char86671%_ _%start86672%_) + (let* ((_%str86675%_ _%str86670%_) + (_%char86683%_ _%char86671%_) + (_%start86691%_ _%start86672%_) + (_%len86700%_ + (let () (declare (not safe)) (##string-length _%str86675%_)))) + (let _%lp86702%_ ((_%k86704%_ _%start86691%_)) + (let ((_%k86706%_ _%k86704%_)) + (if (let () (declare (not safe)) (##fx< _%k86706%_ _%len86700%_)) + (if (eq? _%char86683%_ (let () (declare (not safe)) - (##string-ref _%str86612%_ _%k86643%_))) - _%k86643%_ - (_%lp86639%_ - (let () (declare (not safe)) (##fx+ _%k86643%_ '1)))) + (##string-ref _%str86675%_ _%k86706%_))) + _%k86706%_ + (_%lp86702%_ + (let () (declare (not safe)) (##fx+ _%k86706%_ '1)))) '#f)))))) (define __string-index__0 - (lambda (_%str86658%_ _%char86659%_) - (let ((_%start86661%_ '0)) - (__string-index__% _%str86658%_ _%char86659%_ _%start86661%_)))) + (lambda (_%str86721%_ _%char86722%_) + (let ((_%start86724%_ '0)) + (__string-index__% _%str86721%_ _%char86722%_ _%start86724%_)))) (define __string-index - (lambda _g91331_ - (let ((_g91330_ (let () (declare (not safe)) (##length _g91331_)))) - (cond ((let () (declare (not safe)) (##fx= _g91330_ 2)) - (apply __string-index__0 _g91331_)) - ((let () (declare (not safe)) (##fx= _g91330_ 3)) - (apply __string-index__% _g91331_)) + (lambda _g91394_ + (let ((_g91393_ (let () (declare (not safe)) (##length _g91394_)))) + (cond ((let () (declare (not safe)) (##fx= _g91393_ 2)) + (apply __string-index__0 _g91394_)) + ((let () (declare (not safe)) (##fx= _g91393_ 3)) + (apply __string-index__% _g91394_)) (else (##raise-wrong-number-of-arguments-exception __string-index - _g91331_)))))) + _g91394_)))))) (define string-rindex__% - (lambda (_%str86568%_ _%char86569%_ _%start86570%_) - (if (string? _%str86568%_) - (let ((_%str86574%_ _%str86568%_)) - (if (char? _%char86569%_) - (let ((_%char86584%_ _%char86569%_)) + (lambda (_%str86631%_ _%char86632%_ _%start86633%_) + (if (string? _%str86631%_) + (let ((_%str86637%_ _%str86631%_)) + (if (char? _%char86632%_) + (let ((_%char86647%_ _%char86632%_)) (__string-rindex__% - _%str86574%_ - _%char86584%_ - _%start86570%_)) + _%str86637%_ + _%char86647%_ + _%start86633%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2366,7 +2366,7 @@ 'contract: 'char? 'value: - _%char86569%_) + _%char86632%_) '#!void))) (begin (raise-contract-violation-error @@ -2376,66 +2376,66 @@ 'contract: 'string? 'value: - _%str86568%_) + _%str86631%_) '#!void)))) (define string-rindex__0 - (lambda (_%str86597%_ _%char86598%_) - (let ((_%start86600%_ '#f)) - (string-rindex__% _%str86597%_ _%char86598%_ _%start86600%_)))) + (lambda (_%str86660%_ _%char86661%_) + (let ((_%start86663%_ '#f)) + (string-rindex__% _%str86660%_ _%char86661%_ _%start86663%_)))) (define string-rindex - (lambda _g91333_ - (let ((_g91332_ (let () (declare (not safe)) (##length _g91333_)))) - (cond ((let () (declare (not safe)) (##fx= _g91332_ 2)) - (apply string-rindex__0 _g91333_)) - ((let () (declare (not safe)) (##fx= _g91332_ 3)) - (apply string-rindex__% _g91333_)) + (lambda _g91396_ + (let ((_g91395_ (let () (declare (not safe)) (##length _g91396_)))) + (cond ((let () (declare (not safe)) (##fx= _g91395_ 2)) + (apply string-rindex__0 _g91396_)) + ((let () (declare (not safe)) (##fx= _g91395_ 3)) + (apply string-rindex__% _g91396_)) (else (##raise-wrong-number-of-arguments-exception string-rindex - _g91333_)))))) + _g91396_)))))) (define __string-rindex__% - (lambda (_%str86510%_ _%char86511%_ _%start86512%_) - (let* ((_%str86515%_ _%str86510%_) - (_%char86523%_ _%char86511%_) - (_%len86532%_ - (let () (declare (not safe)) (##string-length _%str86515%_))) - (_%start86534%_ - (if (fixnum? _%start86512%_) - _%start86512%_ - (let () (declare (not safe)) (##fx- _%len86532%_ '1))))) - (let _%lp86537%_ ((_%k86539%_ _%start86534%_)) - (let ((_%k86541%_ _%k86539%_)) - (if (let () (declare (not safe)) (##fx>= _%k86541%_ '0)) - (if (eq? _%char86523%_ + (lambda (_%str86573%_ _%char86574%_ _%start86575%_) + (let* ((_%str86578%_ _%str86573%_) + (_%char86586%_ _%char86574%_) + (_%len86595%_ + (let () (declare (not safe)) (##string-length _%str86578%_))) + (_%start86597%_ + (if (fixnum? _%start86575%_) + _%start86575%_ + (let () (declare (not safe)) (##fx- _%len86595%_ '1))))) + (let _%lp86600%_ ((_%k86602%_ _%start86597%_)) + (let ((_%k86604%_ _%k86602%_)) + (if (let () (declare (not safe)) (##fx>= _%k86604%_ '0)) + (if (eq? _%char86586%_ (let () (declare (not safe)) - (##string-ref _%str86515%_ _%k86541%_))) - _%k86541%_ - (_%lp86537%_ - (let () (declare (not safe)) (##fx- _%k86541%_ '1)))) + (##string-ref _%str86578%_ _%k86604%_))) + _%k86604%_ + (_%lp86600%_ + (let () (declare (not safe)) (##fx- _%k86604%_ '1)))) '#f)))))) (define __string-rindex__0 - (lambda (_%str86558%_ _%char86559%_) - (let ((_%start86561%_ '#f)) - (__string-rindex__% _%str86558%_ _%char86559%_ _%start86561%_)))) + (lambda (_%str86621%_ _%char86622%_) + (let ((_%start86624%_ '#f)) + (__string-rindex__% _%str86621%_ _%char86622%_ _%start86624%_)))) (define __string-rindex - (lambda _g91335_ - (let ((_g91334_ (let () (declare (not safe)) (##length _g91335_)))) - (cond ((let () (declare (not safe)) (##fx= _g91334_ 2)) - (apply __string-rindex__0 _g91335_)) - ((let () (declare (not safe)) (##fx= _g91334_ 3)) - (apply __string-rindex__% _g91335_)) + (lambda _g91398_ + (let ((_g91397_ (let () (declare (not safe)) (##length _g91398_)))) + (cond ((let () (declare (not safe)) (##fx= _g91397_ 2)) + (apply __string-rindex__0 _g91398_)) + ((let () (declare (not safe)) (##fx= _g91397_ 3)) + (apply __string-rindex__% _g91398_)) (else (##raise-wrong-number-of-arguments-exception __string-rindex - _g91335_)))))) + _g91398_)))))) (define string-split - (lambda (_%str86484%_ _%char86485%_) - (if (string? _%str86484%_) - (let ((_%str86489%_ _%str86484%_)) - (if (char? _%char86485%_) - (let ((_%char86499%_ _%char86485%_)) - (__string-split _%str86489%_ _%char86499%_)) + (lambda (_%str86547%_ _%char86548%_) + (if (string? _%str86547%_) + (let ((_%str86552%_ _%str86547%_)) + (if (char? _%char86548%_) + (let ((_%char86562%_ _%char86548%_)) + (__string-split _%str86552%_ _%char86562%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2444,7 +2444,7 @@ 'contract: 'char? 'value: - _%char86485%_) + _%char86548%_) '#!void))) (begin (raise-contract-violation-error @@ -2454,203 +2454,203 @@ 'contract: 'string? 'value: - _%str86484%_) + _%str86547%_) '#!void)))) (define __string-split - (lambda (_%str86425%_ _%char86426%_) - (let* ((_%str86429%_ _%str86425%_) - (_%char86437%_ _%char86426%_) - (_%len86446%_ - (let () (declare (not safe)) (##string-length _%str86429%_)))) - (let _%lp86448%_ ((_%start86450%_ '0) (_%r86451%_ '())) - (let* ((_%start86454%_ _%start86450%_) - (_%$e86467%_ + (lambda (_%str86488%_ _%char86489%_) + (let* ((_%str86492%_ _%str86488%_) + (_%char86500%_ _%char86489%_) + (_%len86509%_ + (let () (declare (not safe)) (##string-length _%str86492%_)))) + (let _%lp86511%_ ((_%start86513%_ '0) (_%r86514%_ '())) + (let* ((_%start86517%_ _%start86513%_) + (_%$e86530%_ (__string-index__% - _%str86429%_ - _%char86437%_ - _%start86454%_))) - (if _%$e86467%_ - ((lambda (_%end86470%_) - (let ((_%end86472%_ _%end86470%_)) - (_%lp86448%_ - (let () (declare (not safe)) (##fx+ _%end86472%_ '1)) + _%str86492%_ + _%char86500%_ + _%start86517%_))) + (if _%$e86530%_ + ((lambda (_%end86533%_) + (let ((_%end86535%_ _%end86533%_)) + (_%lp86511%_ + (let () (declare (not safe)) (##fx+ _%end86535%_ '1)) (cons (let () (declare (not safe)) (##substring - _%str86429%_ - _%start86454%_ - _%end86472%_)) - _%r86451%_)))) - _%$e86467%_) + _%str86492%_ + _%start86517%_ + _%end86535%_)) + _%r86514%_)))) + _%$e86530%_) (if (let () (declare (not safe)) - (##fx< _%start86454%_ _%len86446%_)) + (##fx< _%start86517%_ _%len86509%_)) (__foldl1 cons (list (let () (declare (not safe)) (##substring - _%str86429%_ - _%start86454%_ - _%len86446%_))) - _%r86451%_) - (reverse! _%r86451%_)))))))) + _%str86492%_ + _%start86517%_ + _%len86509%_))) + _%r86514%_) + (reverse! _%r86514%_)))))))) (define string-join - (lambda (_%strs86275%_ _%join86276%_) - (letrec ((_%join-length86279%_ - (lambda (_%strs86363%_ _%jlen86364%_) - (let _%lp86366%_ ((_%rest86368%_ _%strs86363%_) - (_%len86369%_ '0)) - (let* ((_%len86371%_ _%len86369%_) - (_%rest8637986387%_ _%rest86368%_) - (_%else8638186395%_ (lambda () '0)) - (_%K8638386413%_ - (lambda (_%rest86398%_ _%hd86399%_) - (if (string? _%hd86399%_) - (let ((_%hd86401%_ _%hd86399%_)) - (if (pair? _%rest86398%_) - (_%lp86366%_ - _%rest86398%_ + (lambda (_%strs86338%_ _%join86339%_) + (letrec ((_%join-length86342%_ + (lambda (_%strs86426%_ _%jlen86427%_) + (let _%lp86429%_ ((_%rest86431%_ _%strs86426%_) + (_%len86432%_ '0)) + (let* ((_%len86434%_ _%len86432%_) + (_%rest8644286450%_ _%rest86431%_) + (_%else8644486458%_ (lambda () '0)) + (_%K8644686476%_ + (lambda (_%rest86461%_ _%hd86462%_) + (if (string? _%hd86462%_) + (let ((_%hd86464%_ _%hd86462%_)) + (if (pair? _%rest86461%_) + (_%lp86429%_ + _%rest86461%_ (fx+ (let () (declare (not safe)) (##string-length - _%hd86401%_)) - _%jlen86364%_ - _%len86371%_)) - (let ((__tmp91336 + _%hd86464%_)) + _%jlen86427%_ + _%len86434%_)) + (let ((__tmp91399 (let () (declare (not safe)) (##string-length - _%hd86401%_)))) + _%hd86464%_)))) (declare (not safe)) - (##fx+ __tmp91336 _%len86371%_)))) - (error '"expected string" _%hd86399%_))))) - (if (pair? _%rest8637986387%_) - (let ((_%hd8638486416%_ + (##fx+ __tmp91399 _%len86434%_)))) + (error '"expected string" _%hd86462%_))))) + (if (pair? _%rest8644286450%_) + (let ((_%hd8644786479%_ (let () (declare (not safe)) - (##car _%rest8637986387%_))) - (_%tl8638586418%_ + (##car _%rest8644286450%_))) + (_%tl8644886481%_ (let () (declare (not safe)) - (##cdr _%rest8637986387%_)))) - (let* ((_%hd86421%_ _%hd8638486416%_) - (_%rest86423%_ _%tl8638586418%_)) - (_%K8638386413%_ _%rest86423%_ _%hd86421%_))) - (_%else8638186395%_))))))) - (let* ((_%join86284%_ - (if (char? _%join86276%_) - (let () (declare (not safe)) (##string _%join86276%_)) - (if (string? _%join86276%_) - _%join86276%_ - (error '"expected string or char" _%join86276%_)))) - (_%jlen86286%_ + (##cdr _%rest8644286450%_)))) + (let* ((_%hd86484%_ _%hd8644786479%_) + (_%rest86486%_ _%tl8644886481%_)) + (_%K8644686476%_ _%rest86486%_ _%hd86484%_))) + (_%else8644486458%_))))))) + (let* ((_%join86347%_ + (if (char? _%join86339%_) + (let () (declare (not safe)) (##string _%join86339%_)) + (if (string? _%join86339%_) + _%join86339%_ + (error '"expected string or char" _%join86339%_)))) + (_%jlen86349%_ (let () (declare (not safe)) - (##string-length _%join86284%_))) - (_%olen86288%_ - (_%join-length86279%_ _%strs86275%_ _%jlen86286%_)) - (_%ostr86290%_ - (let () (declare (not safe)) (##make-string _%olen86288%_)))) - (let _%lp86293%_ ((_%rest86295%_ _%strs86275%_) (_%k86296%_ '0)) - (let* ((_%k86299%_ _%k86296%_) - (_%rest8631586323%_ _%rest86295%_) - (_%else8631786331%_ (lambda () '"")) - (_%K8631986351%_ - (lambda (_%rest86334%_ _%hd86335%_) - (let* ((_%hd86337%_ _%hd86335%_) - (_%hdlen86349%_ + (##string-length _%join86347%_))) + (_%olen86351%_ + (_%join-length86342%_ _%strs86338%_ _%jlen86349%_)) + (_%ostr86353%_ + (let () (declare (not safe)) (##make-string _%olen86351%_)))) + (let _%lp86356%_ ((_%rest86358%_ _%strs86338%_) (_%k86359%_ '0)) + (let* ((_%k86362%_ _%k86359%_) + (_%rest8637886386%_ _%rest86358%_) + (_%else8638086394%_ (lambda () '"")) + (_%K8638286414%_ + (lambda (_%rest86397%_ _%hd86398%_) + (let* ((_%hd86400%_ _%hd86398%_) + (_%hdlen86412%_ (let () (declare (not safe)) - (##string-length _%hd86337%_)))) - (if (pair? _%rest86334%_) + (##string-length _%hd86400%_)))) + (if (pair? _%rest86397%_) (begin (let () (declare (not safe)) (##substring-move! - _%hd86337%_ + _%hd86400%_ '0 - _%hdlen86349%_ - _%ostr86290%_ - _%k86299%_)) - (let ((__tmp91337 + _%hdlen86412%_ + _%ostr86353%_ + _%k86362%_)) + (let ((__tmp91400 (let () (declare (not safe)) - (##fx+ _%k86299%_ _%hdlen86349%_)))) + (##fx+ _%k86362%_ _%hdlen86412%_)))) (declare (not safe)) (##substring-move! - _%join86284%_ + _%join86347%_ '0 - _%jlen86286%_ - _%ostr86290%_ - __tmp91337)) - (_%lp86293%_ - _%rest86334%_ + _%jlen86349%_ + _%ostr86353%_ + __tmp91400)) + (_%lp86356%_ + _%rest86397%_ (let () (declare (not safe)) - (##fx+ _%k86299%_ - _%hdlen86349%_ - _%jlen86286%_)))) + (##fx+ _%k86362%_ + _%hdlen86412%_ + _%jlen86349%_)))) (begin (let () (declare (not safe)) (##substring-move! - _%hd86337%_ + _%hd86400%_ '0 - _%hdlen86349%_ - _%ostr86290%_ - _%k86299%_)) - _%ostr86290%_)))))) - (if (pair? _%rest8631586323%_) - (let ((_%hd8632086354%_ + _%hdlen86412%_ + _%ostr86353%_ + _%k86362%_)) + _%ostr86353%_)))))) + (if (pair? _%rest8637886386%_) + (let ((_%hd8638386417%_ (let () (declare (not safe)) - (##car _%rest8631586323%_))) - (_%tl8632186356%_ + (##car _%rest8637886386%_))) + (_%tl8638486419%_ (let () (declare (not safe)) - (##cdr _%rest8631586323%_)))) - (let* ((_%hd86359%_ _%hd8632086354%_) - (_%rest86361%_ _%tl8632186356%_)) - (_%K8631986351%_ _%rest86361%_ _%hd86359%_))) - (_%else8631786331%_)))))))) + (##cdr _%rest8637886386%_)))) + (let* ((_%hd86422%_ _%hd8638386417%_) + (_%rest86424%_ _%tl8638486419%_)) + (_%K8638286414%_ _%rest86424%_ _%hd86422%_))) + (_%else8638086394%_)))))))) (define read-u8vector__% - (lambda (_%bytes86201%_ _%port86202%_ _%start86203%_ _%end86204%_) - (if (u8vector? _%bytes86201%_) - (let ((_%bytes86208%_ _%bytes86201%_)) - (if (input-port? _%port86202%_) - (let ((_%port86218%_ _%port86202%_)) - (if ((lambda (_%o86227%_) - (and (fixnum? _%o86227%_) + (lambda (_%bytes86264%_ _%port86265%_ _%start86266%_ _%end86267%_) + (if (u8vector? _%bytes86264%_) + (let ((_%bytes86271%_ _%bytes86264%_)) + (if (input-port? _%port86265%_) + (let ((_%port86281%_ _%port86265%_)) + (if ((lambda (_%o86290%_) + (and (fixnum? _%o86290%_) (let () (declare (not safe)) - (##fx>= _%o86227%_ '0)) - (let ((__tmp91338 + (##fx>= _%o86290%_ '0)) + (let ((__tmp91401 (let () (declare (not safe)) - (##u8vector-length _%bytes86208%_)))) + (##u8vector-length _%bytes86271%_)))) (declare (not safe)) - (##fx< _%o86227%_ __tmp91338)))) - _%start86203%_) - (let ((_%start86231%_ _%start86203%_)) - (if ((lambda (_%o86240%_) - (and (fixnum? _%o86240%_) - (let ((__tmp91339 + (##fx< _%o86290%_ __tmp91401)))) + _%start86266%_) + (let ((_%start86294%_ _%start86266%_)) + (if ((lambda (_%o86303%_) + (and (fixnum? _%o86303%_) + (let ((__tmp91402 (let () (declare (not safe)) (##u8vector-length - _%bytes86208%_)))) + _%bytes86271%_)))) (declare (not safe)) - (##fx<= _%start86231%_ - _%o86240%_ - __tmp91339)))) - _%end86204%_) - (let ((_%end86244%_ _%end86204%_)) + (##fx<= _%start86294%_ + _%o86303%_ + __tmp91402)))) + _%end86267%_) + (let ((_%end86307%_ _%end86267%_)) (__read-u8vector__% - _%bytes86208%_ - _%port86218%_ - _%start86231%_ - _%end86244%_)) + _%bytes86271%_ + _%port86281%_ + _%start86294%_ + _%end86307%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2661,7 +2661,7 @@ start (u8vector-length bytes)) 'value: - _%end86204%_) + _%end86267%_) '#!void))) (begin (raise-contract-violation-error @@ -2671,7 +2671,7 @@ 'contract: '(in-range? 0 (u8vector-length bytes)) 'value: - _%start86203%_) + _%start86266%_) '#!void))) (begin (raise-contract-violation-error @@ -2681,7 +2681,7 @@ 'contract: 'input-port? 'value: - _%port86202%_) + _%port86265%_) '#!void))) (begin (raise-contract-violation-error @@ -2691,104 +2691,104 @@ 'contract: 'u8vector? 'value: - _%bytes86201%_) + _%bytes86264%_) '#!void)))) (define read-u8vector__0 - (lambda (_%bytes86257%_ _%port86258%_) - (let* ((_%start86260%_ '0) - (_%end86262%_ (u8vector-length _%bytes86257%_))) + (lambda (_%bytes86320%_ _%port86321%_) + (let* ((_%start86323%_ '0) + (_%end86325%_ (u8vector-length _%bytes86320%_))) (read-u8vector__% - _%bytes86257%_ - _%port86258%_ - _%start86260%_ - _%end86262%_)))) + _%bytes86320%_ + _%port86321%_ + _%start86323%_ + _%end86325%_)))) (define read-u8vector__1 - (lambda (_%bytes86264%_ _%port86265%_ _%start86266%_) - (let ((_%end86268%_ (u8vector-length _%bytes86264%_))) + (lambda (_%bytes86327%_ _%port86328%_ _%start86329%_) + (let ((_%end86331%_ (u8vector-length _%bytes86327%_))) (read-u8vector__% - _%bytes86264%_ - _%port86265%_ - _%start86266%_ - _%end86268%_)))) + _%bytes86327%_ + _%port86328%_ + _%start86329%_ + _%end86331%_)))) (define read-u8vector - (lambda _g91341_ - (let ((_g91340_ (let () (declare (not safe)) (##length _g91341_)))) - (cond ((let () (declare (not safe)) (##fx= _g91340_ 2)) - (apply read-u8vector__0 _g91341_)) - ((let () (declare (not safe)) (##fx= _g91340_ 3)) - (apply read-u8vector__1 _g91341_)) - ((let () (declare (not safe)) (##fx= _g91340_ 4)) - (apply read-u8vector__% _g91341_)) + (lambda _g91404_ + (let ((_g91403_ (let () (declare (not safe)) (##length _g91404_)))) + (cond ((let () (declare (not safe)) (##fx= _g91403_ 2)) + (apply read-u8vector__0 _g91404_)) + ((let () (declare (not safe)) (##fx= _g91403_ 3)) + (apply read-u8vector__1 _g91404_)) + ((let () (declare (not safe)) (##fx= _g91403_ 4)) + (apply read-u8vector__% _g91404_)) (else (##raise-wrong-number-of-arguments-exception read-u8vector - _g91341_)))))) + _g91404_)))))) (define __read-u8vector__% - (lambda (_%bytes86140%_ _%port86141%_ _%start86142%_ _%end86143%_) - (let* ((_%bytes86146%_ _%bytes86140%_) - (_%port86154%_ _%port86141%_) - (_%start86162%_ _%start86142%_) - (_%end86170%_ _%end86143%_)) + (lambda (_%bytes86203%_ _%port86204%_ _%start86205%_ _%end86206%_) + (let* ((_%bytes86209%_ _%bytes86203%_) + (_%port86217%_ _%port86204%_) + (_%start86225%_ _%start86205%_) + (_%end86233%_ _%end86206%_)) (declare (not safe)) (##read-subu8vector - _%bytes86146%_ - _%start86162%_ - _%end86170%_ - _%port86154%_)))) + _%bytes86209%_ + _%start86225%_ + _%end86233%_ + _%port86217%_)))) (define __read-u8vector__0 - (lambda (_%bytes86182%_ _%port86183%_) - (let* ((_%start86185%_ '0) - (_%end86187%_ (u8vector-length _%bytes86182%_))) + (lambda (_%bytes86245%_ _%port86246%_) + (let* ((_%start86248%_ '0) + (_%end86250%_ (u8vector-length _%bytes86245%_))) (__read-u8vector__% - _%bytes86182%_ - _%port86183%_ - _%start86185%_ - _%end86187%_)))) + _%bytes86245%_ + _%port86246%_ + _%start86248%_ + _%end86250%_)))) (define __read-u8vector__1 - (lambda (_%bytes86189%_ _%port86190%_ _%start86191%_) - (let ((_%end86193%_ (u8vector-length _%bytes86189%_))) + (lambda (_%bytes86252%_ _%port86253%_ _%start86254%_) + (let ((_%end86256%_ (u8vector-length _%bytes86252%_))) (__read-u8vector__% - _%bytes86189%_ - _%port86190%_ - _%start86191%_ - _%end86193%_)))) + _%bytes86252%_ + _%port86253%_ + _%start86254%_ + _%end86256%_)))) (define __read-u8vector - (lambda _g91343_ - (let ((_g91342_ (let () (declare (not safe)) (##length _g91343_)))) - (cond ((let () (declare (not safe)) (##fx= _g91342_ 2)) - (apply __read-u8vector__0 _g91343_)) - ((let () (declare (not safe)) (##fx= _g91342_ 3)) - (apply __read-u8vector__1 _g91343_)) - ((let () (declare (not safe)) (##fx= _g91342_ 4)) - (apply __read-u8vector__% _g91343_)) + (lambda _g91406_ + (let ((_g91405_ (let () (declare (not safe)) (##length _g91406_)))) + (cond ((let () (declare (not safe)) (##fx= _g91405_ 2)) + (apply __read-u8vector__0 _g91406_)) + ((let () (declare (not safe)) (##fx= _g91405_ 3)) + (apply __read-u8vector__1 _g91406_)) + ((let () (declare (not safe)) (##fx= _g91405_ 4)) + (apply __read-u8vector__% _g91406_)) (else (##raise-wrong-number-of-arguments-exception __read-u8vector - _g91343_)))))) + _g91406_)))))) (define write-u8vector__% - (lambda (_%bytes86070%_ _%port86071%_ _%start86072%_ _%end86073%_) - (if (u8vector? _%bytes86070%_) - (let ((_%bytes86077%_ _%bytes86070%_)) - (if (output-port? _%port86071%_) - (let* ((_%port86087%_ _%port86071%_) - (_%start86096%_ _%start86072%_)) - (if ((lambda (_%o86104%_) - (and (fixnum? _%o86104%_) - (let ((__tmp91344 + (lambda (_%bytes86133%_ _%port86134%_ _%start86135%_ _%end86136%_) + (if (u8vector? _%bytes86133%_) + (let ((_%bytes86140%_ _%bytes86133%_)) + (if (output-port? _%port86134%_) + (let* ((_%port86150%_ _%port86134%_) + (_%start86159%_ _%start86135%_)) + (if ((lambda (_%o86167%_) + (and (fixnum? _%o86167%_) + (let ((__tmp91407 (let () (declare (not safe)) - (##u8vector-length _%bytes86077%_)))) + (##u8vector-length _%bytes86140%_)))) (declare (not safe)) - (##fx<= _%start86096%_ - _%o86104%_ - __tmp91344)))) - _%end86073%_) - (let ((_%end86108%_ _%end86073%_)) + (##fx<= _%start86159%_ + _%o86167%_ + __tmp91407)))) + _%end86136%_) + (let ((_%end86171%_ _%end86136%_)) (__write-u8vector__% - _%bytes86077%_ - _%port86087%_ - _%start86096%_ - _%end86108%_)) + _%bytes86140%_ + _%port86150%_ + _%start86159%_ + _%end86171%_)) (begin (raise-contract-violation-error '"contract violation" @@ -2797,7 +2797,7 @@ 'contract: '(in-range-inclusive? start (u8vector-length bytes)) 'value: - _%end86073%_) + _%end86136%_) '#!void))) (begin (raise-contract-violation-error @@ -2807,7 +2807,7 @@ 'contract: 'output-port? 'value: - _%port86071%_) + _%port86134%_) '#!void))) (begin (raise-contract-violation-error @@ -2817,131 +2817,131 @@ 'contract: 'u8vector? 'value: - _%bytes86070%_) + _%bytes86133%_) '#!void)))) (define write-u8vector__0 - (lambda (_%bytes86121%_ _%port86122%_) - (let* ((_%start86124%_ '0) - (_%end86126%_ (u8vector-length _%bytes86121%_))) + (lambda (_%bytes86184%_ _%port86185%_) + (let* ((_%start86187%_ '0) + (_%end86189%_ (u8vector-length _%bytes86184%_))) (write-u8vector__% - _%bytes86121%_ - _%port86122%_ - _%start86124%_ - _%end86126%_)))) + _%bytes86184%_ + _%port86185%_ + _%start86187%_ + _%end86189%_)))) (define write-u8vector__1 - (lambda (_%bytes86128%_ _%port86129%_ _%start86130%_) - (let ((_%end86132%_ (u8vector-length _%bytes86128%_))) + (lambda (_%bytes86191%_ _%port86192%_ _%start86193%_) + (let ((_%end86195%_ (u8vector-length _%bytes86191%_))) (write-u8vector__% - _%bytes86128%_ - _%port86129%_ - _%start86130%_ - _%end86132%_)))) + _%bytes86191%_ + _%port86192%_ + _%start86193%_ + _%end86195%_)))) (define write-u8vector - (lambda _g91346_ - (let ((_g91345_ (let () (declare (not safe)) (##length _g91346_)))) - (cond ((let () (declare (not safe)) (##fx= _g91345_ 2)) - (apply write-u8vector__0 _g91346_)) - ((let () (declare (not safe)) (##fx= _g91345_ 3)) - (apply write-u8vector__1 _g91346_)) - ((let () (declare (not safe)) (##fx= _g91345_ 4)) - (apply write-u8vector__% _g91346_)) + (lambda _g91409_ + (let ((_g91408_ (let () (declare (not safe)) (##length _g91409_)))) + (cond ((let () (declare (not safe)) (##fx= _g91408_ 2)) + (apply write-u8vector__0 _g91409_)) + ((let () (declare (not safe)) (##fx= _g91408_ 3)) + (apply write-u8vector__1 _g91409_)) + ((let () (declare (not safe)) (##fx= _g91408_ 4)) + (apply write-u8vector__% _g91409_)) (else (##raise-wrong-number-of-arguments-exception write-u8vector - _g91346_)))))) + _g91409_)))))) (define __write-u8vector__% - (lambda (_%bytes86009%_ _%port86010%_ _%start86011%_ _%end86012%_) - (let* ((_%bytes86015%_ _%bytes86009%_) - (_%port86023%_ _%port86010%_) - (_%start86031%_ _%start86011%_) - (_%end86039%_ _%end86012%_)) + (lambda (_%bytes86072%_ _%port86073%_ _%start86074%_ _%end86075%_) + (let* ((_%bytes86078%_ _%bytes86072%_) + (_%port86086%_ _%port86073%_) + (_%start86094%_ _%start86074%_) + (_%end86102%_ _%end86075%_)) (declare (not safe)) (##write-subu8vector - _%bytes86015%_ - _%start86031%_ - _%end86039%_ - _%port86023%_)))) + _%bytes86078%_ + _%start86094%_ + _%end86102%_ + _%port86086%_)))) (define __write-u8vector__0 - (lambda (_%bytes86051%_ _%port86052%_) - (let* ((_%start86054%_ '0) - (_%end86056%_ (u8vector-length _%bytes86051%_))) + (lambda (_%bytes86114%_ _%port86115%_) + (let* ((_%start86117%_ '0) + (_%end86119%_ (u8vector-length _%bytes86114%_))) (__write-u8vector__% - _%bytes86051%_ - _%port86052%_ - _%start86054%_ - _%end86056%_)))) + _%bytes86114%_ + _%port86115%_ + _%start86117%_ + _%end86119%_)))) (define __write-u8vector__1 - (lambda (_%bytes86058%_ _%port86059%_ _%start86060%_) - (let ((_%end86062%_ (u8vector-length _%bytes86058%_))) + (lambda (_%bytes86121%_ _%port86122%_ _%start86123%_) + (let ((_%end86125%_ (u8vector-length _%bytes86121%_))) (__write-u8vector__% - _%bytes86058%_ - _%port86059%_ - _%start86060%_ - _%end86062%_)))) + _%bytes86121%_ + _%port86122%_ + _%start86123%_ + _%end86125%_)))) (define __write-u8vector - (lambda _g91348_ - (let ((_g91347_ (let () (declare (not safe)) (##length _g91348_)))) - (cond ((let () (declare (not safe)) (##fx= _g91347_ 2)) - (apply __write-u8vector__0 _g91348_)) - ((let () (declare (not safe)) (##fx= _g91347_ 3)) - (apply __write-u8vector__1 _g91348_)) - ((let () (declare (not safe)) (##fx= _g91347_ 4)) - (apply __write-u8vector__% _g91348_)) + (lambda _g91411_ + (let ((_g91410_ (let () (declare (not safe)) (##length _g91411_)))) + (cond ((let () (declare (not safe)) (##fx= _g91410_ 2)) + (apply __write-u8vector__0 _g91411_)) + ((let () (declare (not safe)) (##fx= _g91410_ 3)) + (apply __write-u8vector__1 _g91411_)) + ((let () (declare (not safe)) (##fx= _g91410_ 4)) + (apply __write-u8vector__% _g91411_)) (else (##raise-wrong-number-of-arguments-exception __write-u8vector - _g91348_)))))) + _g91411_)))))) (define DBG-printer (make-parameter write)) (define DBG-helper - (lambda (_%tag85977%_ - _%dbg-exprs85978%_ - _%dbg-thunks85979%_ - _%expr85980%_ - _%thunk85981%_) - (letrec ((_%o85983%_ (current-output-port)) - (_%e85984%_ (current-error-port)) - (_%p85985%_ (let () (declare (not safe)) (DBG-printer))) - (_%f85986%_ + (lambda (_%tag86040%_ + _%dbg-exprs86041%_ + _%dbg-thunks86042%_ + _%expr86043%_ + _%thunk86044%_) + (letrec ((_%o86046%_ (current-output-port)) + (_%e86047%_ (current-error-port)) + (_%p86048%_ (let () (declare (not safe)) (DBG-printer))) + (_%f86049%_ (lambda () - (force-output _%o85983%_) - (force-output _%e85984%_))) - (_%d85987%_ - (lambda (_%x85994%_) (display _%x85994%_ _%e85984%_))) - (_%w85988%_ - (lambda (_%x85996%_) (_%p85985%_ _%x85996%_ _%e85984%_))) - (_%n85989%_ (lambda () (newline _%e85984%_))) - (_%v85990%_ - (lambda (_%l85999%_) + (force-output _%o86046%_) + (force-output _%e86047%_))) + (_%d86050%_ + (lambda (_%x86057%_) (display _%x86057%_ _%e86047%_))) + (_%w86051%_ + (lambda (_%x86059%_) (_%p86048%_ _%x86059%_ _%e86047%_))) + (_%n86052%_ (lambda () (newline _%e86047%_))) + (_%v86053%_ + (lambda (_%l86062%_) (for-each - (lambda (_%x86001%_) - (_%d85987%_ '" ") - (_%w85988%_ _%x86001%_)) - _%l85999%_) - (_%n85989%_))) - (_%x85991%_ - (lambda (_%expr86003%_ _%thunk86004%_) - (_%f85986%_) - (_%d85987%_ '" ") - (_%w85988%_ _%expr86003%_) - (_%d85987%_ '" =>") + (lambda (_%x86064%_) + (_%d86050%_ '" ") + (_%w86051%_ _%x86064%_)) + _%l86062%_) + (_%n86052%_))) + (_%x86054%_ + (lambda (_%expr86066%_ _%thunk86067%_) + (_%f86049%_) + (_%d86050%_ '" ") + (_%w86051%_ _%expr86066%_) + (_%d86050%_ '" =>") (call-with-values - _%thunk86004%_ - (lambda _%x86006%_ - (_%v85990%_ _%x86006%_) - (_%f85986%_) + _%thunk86067%_ + (lambda _%x86069%_ + (_%v86053%_ _%x86069%_) + (_%f86049%_) (let () (declare (not safe)) - (##apply values _%x86006%_))))))) - (if _%tag85977%_ + (##apply values _%x86069%_))))))) + (if _%tag86040%_ (begin - (if (eq? _%tag85977%_ '#!void) + (if (eq? _%tag86040%_ '#!void) '#!void (begin - (_%f85986%_) - (_%d85987%_ _%tag85977%_) - (_%n85989%_))) - (for-each _%x85991%_ _%dbg-exprs85978%_ _%dbg-thunks85979%_) - (if _%thunk85981%_ - (_%x85991%_ _%expr85980%_ _%thunk85981%_) + (_%f86049%_) + (_%d86050%_ _%tag86040%_) + (_%n86052%_))) + (for-each _%x86054%_ _%dbg-exprs86041%_ _%dbg-thunks86042%_) + (if _%thunk86044%_ + (_%x86054%_ _%expr86043%_ _%thunk86044%_) '#!void)) - (if _%thunk85981%_ (_%thunk85981%_) '#!void))))))) + (if _%thunk86044%_ (_%thunk86044%_) '#!void))))))) diff --git a/src/bootstrap/gerbil/runtime/util~1.scm b/src/bootstrap/gerbil/runtime/util~1.scm index 39960ec3a..c966463c9 100644 --- a/src/bootstrap/gerbil/runtime/util~1.scm +++ b/src/bootstrap/gerbil/runtime/util~1.scm @@ -1,13 +1,13 @@ (declare (block) (standard-bindings) (extended-bindings) (inlining-limit 200)) (begin - (define |[1]#_g91350_| + (define |[1]#_g91413_| (##structure gx#syntax-quote::t 'quote #f (gx#current-expander-context) '())) - (define |[1]#_g91360_| + (define |[1]#_g91423_| (##structure gx#syntax-quote::t 'quote @@ -16,49 +16,49 @@ '())) (begin (define |[:0:]#declare-inline| - (lambda (_%$stx84310%_) - (let* ((_%g8431484332%_ - (lambda (_%g8431584328%_) + (lambda (_%$stx84373%_) + (let* ((_%g8437784395%_ + (lambda (_%g8437884391%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8431584328%_))) - (_%g8431384388%_ - (lambda (_%g8431584336%_) - (if (gx#stx-pair? _%g8431584336%_) - (let ((_%e8431884339%_ (gx#syntax-e _%g8431584336%_))) - (let ((_%hd8431984343%_ + _%g8437884391%_))) + (_%g8437684451%_ + (lambda (_%g8437884399%_) + (if (gx#stx-pair? _%g8437884399%_) + (let ((_%e8438184402%_ (gx#syntax-e _%g8437884399%_))) + (let ((_%hd8438284406%_ (let () (declare (not safe)) - (##car _%e8431884339%_))) - (_%tl8432084346%_ + (##car _%e8438184402%_))) + (_%tl8438384409%_ (let () (declare (not safe)) - (##cdr _%e8431884339%_)))) - (if (gx#stx-pair? _%tl8432084346%_) - (let ((_%e8432184349%_ - (gx#syntax-e _%tl8432084346%_))) - (let ((_%hd8432284353%_ + (##cdr _%e8438184402%_)))) + (if (gx#stx-pair? _%tl8438384409%_) + (let ((_%e8438484412%_ + (gx#syntax-e _%tl8438384409%_))) + (let ((_%hd8438584416%_ (let () (declare (not safe)) - (##car _%e8432184349%_))) - (_%tl8432384356%_ + (##car _%e8438484412%_))) + (_%tl8438684419%_ (let () (declare (not safe)) - (##cdr _%e8432184349%_)))) - (if (gx#stx-pair? _%tl8432384356%_) - (let ((_%e8432484359%_ - (gx#syntax-e _%tl8432384356%_))) - (let ((_%hd8432584363%_ + (##cdr _%e8438484412%_)))) + (if (gx#stx-pair? _%tl8438684419%_) + (let ((_%e8438784422%_ + (gx#syntax-e _%tl8438684419%_))) + (let ((_%hd8438884426%_ (let () (declare (not safe)) - (##car _%e8432484359%_))) - (_%tl8432684366%_ + (##car _%e8438784422%_))) + (_%tl8438984429%_ (let () (declare (not safe)) - (##cdr _%e8432484359%_)))) - (if (gx#stx-null? _%tl8432684366%_) - ((lambda (_%L84369%_ _%L84371%_) + (##cdr _%e8438784422%_)))) + (if (gx#stx-null? _%tl8438984429%_) + ((lambda (_%L84432%_ _%L84434%_) (cons (gx#datum->syntax '#f 'begin-annotation) @@ -66,52 +66,52 @@ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f '@inline) - (cons _%L84371%_ '())) + (cons _%L84434%_ '())) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L84369%_ '())) + (cons _%L84432%_ '())) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8432584363%_ - _%hd8432284353%_) - (_%g8431484332%_ - _%g8431584336%_)))) - (_%g8431484332%_ _%g8431584336%_)))) - (_%g8431484332%_ _%g8431584336%_)))) - (_%g8431484332%_ _%g8431584336%_))))) - (_%g8431384388%_ _%$stx84310%_)))) + _%hd8438884426%_ + _%hd8438584416%_) + (_%g8437784395%_ + _%g8437884399%_)))) + (_%g8437784395%_ _%g8437884399%_)))) + (_%g8437784395%_ _%g8437884399%_)))) + (_%g8437784395%_ _%g8437884399%_))))) + (_%g8437684451%_ _%$stx84373%_)))) (define |[:0:]#__lock-inline!| - (lambda (_%$stx84392%_) - (let* ((_%g8439684410%_ - (lambda (_%g8439784406%_) + (lambda (_%$stx84455%_) + (let* ((_%g8445984473%_ + (lambda (_%g8446084469%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8439784406%_))) - (_%g8439584451%_ - (lambda (_%g8439784414%_) - (if (gx#stx-pair? _%g8439784414%_) - (let ((_%e8439984417%_ (gx#syntax-e _%g8439784414%_))) - (let ((_%hd8440084421%_ + _%g8446084469%_))) + (_%g8445884514%_ + (lambda (_%g8446084477%_) + (if (gx#stx-pair? _%g8446084477%_) + (let ((_%e8446284480%_ (gx#syntax-e _%g8446084477%_))) + (let ((_%hd8446384484%_ (let () (declare (not safe)) - (##car _%e8439984417%_))) - (_%tl8440184424%_ + (##car _%e8446284480%_))) + (_%tl8446484487%_ (let () (declare (not safe)) - (##cdr _%e8439984417%_)))) - (if (gx#stx-pair? _%tl8440184424%_) - (let ((_%e8440284427%_ - (gx#syntax-e _%tl8440184424%_))) - (let ((_%hd8440384431%_ + (##cdr _%e8446284480%_)))) + (if (gx#stx-pair? _%tl8446484487%_) + (let ((_%e8446584490%_ + (gx#syntax-e _%tl8446484487%_))) + (let ((_%hd8446684494%_ (let () (declare (not safe)) - (##car _%e8440284427%_))) - (_%tl8440484434%_ + (##car _%e8446584490%_))) + (_%tl8446784497%_ (let () (declare (not safe)) - (##cdr _%e8440284427%_)))) - (if (gx#stx-null? _%tl8440484434%_) - ((lambda (_%L84437%_) + (##cdr _%e8446584490%_)))) + (if (gx#stx-null? _%tl8446784497%_) + ((lambda (_%L84500%_) (cons (gx#datum->syntax '#f 'let) (cons '() (cons (cons (gx#datum->syntax @@ -135,7 +135,7 @@ '#f '##fx=) (cons (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L84437%_ + (cons _%L84500%_ (cons '0 (cons '1 (cons '0 '()))))) (cons '0 '()))) @@ -146,133 +146,133 @@ '())))) '()))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8440384431%_) - (_%g8439684410%_ _%g8439784414%_)))) - (_%g8439684410%_ _%g8439784414%_)))) - (_%g8439684410%_ _%g8439784414%_))))) - (_%g8439584451%_ _%$stx84392%_)))) + _%hd8446684494%_) + (_%g8445984473%_ _%g8446084477%_)))) + (_%g8445984473%_ _%g8446084477%_)))) + (_%g8445984473%_ _%g8446084477%_))))) + (_%g8445884514%_ _%$stx84455%_)))) (define |[:0:]#__unlock-inline!| - (lambda (_%$stx84455%_) - (let* ((_%g8445984473%_ - (lambda (_%g8446084469%_) + (lambda (_%$stx84518%_) + (let* ((_%g8452284536%_ + (lambda (_%g8452384532%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8446084469%_))) - (_%g8445884514%_ - (lambda (_%g8446084477%_) - (if (gx#stx-pair? _%g8446084477%_) - (let ((_%e8446284480%_ (gx#syntax-e _%g8446084477%_))) - (let ((_%hd8446384484%_ + _%g8452384532%_))) + (_%g8452184577%_ + (lambda (_%g8452384540%_) + (if (gx#stx-pair? _%g8452384540%_) + (let ((_%e8452584543%_ (gx#syntax-e _%g8452384540%_))) + (let ((_%hd8452684547%_ (let () (declare (not safe)) - (##car _%e8446284480%_))) - (_%tl8446484487%_ + (##car _%e8452584543%_))) + (_%tl8452784550%_ (let () (declare (not safe)) - (##cdr _%e8446284480%_)))) - (if (gx#stx-pair? _%tl8446484487%_) - (let ((_%e8446584490%_ - (gx#syntax-e _%tl8446484487%_))) - (let ((_%hd8446684494%_ + (##cdr _%e8452584543%_)))) + (if (gx#stx-pair? _%tl8452784550%_) + (let ((_%e8452884553%_ + (gx#syntax-e _%tl8452784550%_))) + (let ((_%hd8452984557%_ (let () (declare (not safe)) - (##car _%e8446584490%_))) - (_%tl8446784497%_ + (##car _%e8452884553%_))) + (_%tl8453084560%_ (let () (declare (not safe)) - (##cdr _%e8446584490%_)))) - (if (gx#stx-null? _%tl8446784497%_) - ((lambda (_%L84500%_) + (##cdr _%e8452884553%_)))) + (if (gx#stx-null? _%tl8453084560%_) + ((lambda (_%L84563%_) (cons (gx#datum->syntax '#f '##vector-cas!) - (cons _%L84500%_ + (cons _%L84563%_ (cons '0 (cons '0 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons '1 '())))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8446684494%_) - (_%g8445984473%_ _%g8446084477%_)))) - (_%g8445984473%_ _%g8446084477%_)))) - (_%g8445984473%_ _%g8446084477%_))))) - (_%g8445884514%_ _%$stx84455%_)))) + _%hd8452984557%_) + (_%g8452284536%_ _%g8452384540%_)))) + (_%g8452284536%_ _%g8452384540%_)))) + (_%g8452284536%_ _%g8452384540%_))))) + (_%g8452184577%_ _%$stx84518%_)))) (define |[:0:]#__make-inline-lock| - (lambda (_%$stx84518%_) - (let* ((_%g8452284532%_ - (lambda (_%g8452384528%_) + (lambda (_%$stx84581%_) + (let* ((_%g8458584595%_ + (lambda (_%g8458684591%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8452384528%_))) - (_%g8452184553%_ - (lambda (_%g8452384536%_) - (if (gx#stx-pair? _%g8452384536%_) - (let ((_%e8452484539%_ (gx#syntax-e _%g8452384536%_))) - (let ((_%hd8452584543%_ + _%g8458684591%_))) + (_%g8458484616%_ + (lambda (_%g8458684599%_) + (if (gx#stx-pair? _%g8458684599%_) + (let ((_%e8458784602%_ (gx#syntax-e _%g8458684599%_))) + (let ((_%hd8458884606%_ (let () (declare (not safe)) - (##car _%e8452484539%_))) - (_%tl8452684546%_ + (##car _%e8458784602%_))) + (_%tl8458984609%_ (let () (declare (not safe)) - (##cdr _%e8452484539%_)))) - (if (gx#stx-null? _%tl8452684546%_) + (##cdr _%e8458784602%_)))) + (if (gx#stx-null? _%tl8458984609%_) ((lambda () (cons (gx#datum->syntax '#f 'vector) (cons '0 '())))) - (_%g8452284532%_ _%g8452384536%_)))) - (_%g8452284532%_ _%g8452384536%_))))) - (_%g8452184553%_ _%$stx84518%_)))) + (_%g8458584595%_ _%g8458684599%_)))) + (_%g8458584595%_ _%g8458684599%_))))) + (_%g8458484616%_ _%$stx84581%_)))) (define |[:0:]#defaget| - (lambda (_%$stx84557%_) - (let* ((_%g8456184579%_ - (lambda (_%g8456284575%_) + (lambda (_%$stx84620%_) + (let* ((_%g8462484642%_ + (lambda (_%g8462584638%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8456284575%_))) - (_%g8456084634%_ - (lambda (_%g8456284583%_) - (if (gx#stx-pair? _%g8456284583%_) - (let ((_%e8456584586%_ (gx#syntax-e _%g8456284583%_))) - (let ((_%hd8456684590%_ + _%g8462584638%_))) + (_%g8462384697%_ + (lambda (_%g8462584646%_) + (if (gx#stx-pair? _%g8462584646%_) + (let ((_%e8462884649%_ (gx#syntax-e _%g8462584646%_))) + (let ((_%hd8462984653%_ (let () (declare (not safe)) - (##car _%e8456584586%_))) - (_%tl8456784593%_ + (##car _%e8462884649%_))) + (_%tl8463084656%_ (let () (declare (not safe)) - (##cdr _%e8456584586%_)))) - (if (gx#stx-pair? _%tl8456784593%_) - (let ((_%e8456884596%_ - (gx#syntax-e _%tl8456784593%_))) - (let ((_%hd8456984600%_ + (##cdr _%e8462884649%_)))) + (if (gx#stx-pair? _%tl8463084656%_) + (let ((_%e8463184659%_ + (gx#syntax-e _%tl8463084656%_))) + (let ((_%hd8463284663%_ (let () (declare (not safe)) - (##car _%e8456884596%_))) - (_%tl8457084603%_ + (##car _%e8463184659%_))) + (_%tl8463384666%_ (let () (declare (not safe)) - (##cdr _%e8456884596%_)))) - (if (gx#stx-pair? _%tl8457084603%_) - (let ((_%e8457184606%_ - (gx#syntax-e _%tl8457084603%_))) - (let ((_%hd8457284610%_ + (##cdr _%e8463184659%_)))) + (if (gx#stx-pair? _%tl8463384666%_) + (let ((_%e8463484669%_ + (gx#syntax-e _%tl8463384666%_))) + (let ((_%hd8463584673%_ (let () (declare (not safe)) - (##car _%e8457184606%_))) - (_%tl8457384613%_ + (##car _%e8463484669%_))) + (_%tl8463684676%_ (let () (declare (not safe)) - (##cdr _%e8457184606%_)))) - (if (gx#stx-null? _%tl8457384613%_) - ((lambda (_%L84616%_ _%L84618%_) + (##cdr _%e8463484669%_)))) + (if (gx#stx-null? _%tl8463684676%_) + ((lambda (_%L84679%_ _%L84681%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84618%_ + (cons (cons _%L84681%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -291,7 +291,7 @@ '#f 'lst) '())) - (cons (cons _%L84616%_ + (cons (cons _%L84679%_ (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) '()))) '()))) @@ -328,62 +328,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8457284610%_ - _%hd8456984600%_) - (_%g8456184579%_ - _%g8456284583%_)))) - (_%g8456184579%_ _%g8456284583%_)))) - (_%g8456184579%_ _%g8456284583%_)))) - (_%g8456184579%_ _%g8456284583%_))))) - (_%g8456084634%_ _%$stx84557%_)))) + _%hd8463584673%_ + _%hd8463284663%_) + (_%g8462484642%_ + _%g8462584646%_)))) + (_%g8462484642%_ _%g8462584646%_)))) + (_%g8462484642%_ _%g8462584646%_)))) + (_%g8462484642%_ _%g8462584646%_))))) + (_%g8462384697%_ _%$stx84620%_)))) (define |[:0:]#defpget| - (lambda (_%$stx84638%_) - (let* ((_%g8464284660%_ - (lambda (_%g8464384656%_) + (lambda (_%$stx84701%_) + (let* ((_%g8470584723%_ + (lambda (_%g8470684719%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8464384656%_))) - (_%g8464184715%_ - (lambda (_%g8464384664%_) - (if (gx#stx-pair? _%g8464384664%_) - (let ((_%e8464684667%_ (gx#syntax-e _%g8464384664%_))) - (let ((_%hd8464784671%_ + _%g8470684719%_))) + (_%g8470484778%_ + (lambda (_%g8470684727%_) + (if (gx#stx-pair? _%g8470684727%_) + (let ((_%e8470984730%_ (gx#syntax-e _%g8470684727%_))) + (let ((_%hd8471084734%_ (let () (declare (not safe)) - (##car _%e8464684667%_))) - (_%tl8464884674%_ + (##car _%e8470984730%_))) + (_%tl8471184737%_ (let () (declare (not safe)) - (##cdr _%e8464684667%_)))) - (if (gx#stx-pair? _%tl8464884674%_) - (let ((_%e8464984677%_ - (gx#syntax-e _%tl8464884674%_))) - (let ((_%hd8465084681%_ + (##cdr _%e8470984730%_)))) + (if (gx#stx-pair? _%tl8471184737%_) + (let ((_%e8471284740%_ + (gx#syntax-e _%tl8471184737%_))) + (let ((_%hd8471384744%_ (let () (declare (not safe)) - (##car _%e8464984677%_))) - (_%tl8465184684%_ + (##car _%e8471284740%_))) + (_%tl8471484747%_ (let () (declare (not safe)) - (##cdr _%e8464984677%_)))) - (if (gx#stx-pair? _%tl8465184684%_) - (let ((_%e8465284687%_ - (gx#syntax-e _%tl8465184684%_))) - (let ((_%hd8465384691%_ + (##cdr _%e8471284740%_)))) + (if (gx#stx-pair? _%tl8471484747%_) + (let ((_%e8471584750%_ + (gx#syntax-e _%tl8471484747%_))) + (let ((_%hd8471684754%_ (let () (declare (not safe)) - (##car _%e8465284687%_))) - (_%tl8465484694%_ + (##car _%e8471584750%_))) + (_%tl8471784757%_ (let () (declare (not safe)) - (##cdr _%e8465284687%_)))) - (if (gx#stx-null? _%tl8465484694%_) - ((lambda (_%L84697%_ _%L84699%_) + (##cdr _%e8471584750%_)))) + (if (gx#stx-null? _%tl8471784757%_) + ((lambda (_%L84760%_ _%L84762%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84699%_ + (cons (cons _%L84762%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'key) (cons (gx#datum->syntax '#f 'lst) @@ -418,7 +418,7 @@ '#f 'rest)))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L84697%_ + (cons (cons _%L84760%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -458,62 +458,62 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8465384691%_ - _%hd8465084681%_) - (_%g8464284660%_ - _%g8464384664%_)))) - (_%g8464284660%_ _%g8464384664%_)))) - (_%g8464284660%_ _%g8464384664%_)))) - (_%g8464284660%_ _%g8464384664%_))))) - (_%g8464184715%_ _%$stx84638%_)))) + _%hd8471684754%_ + _%hd8471384744%_) + (_%g8470584723%_ + _%g8470684727%_)))) + (_%g8470584723%_ _%g8470684727%_)))) + (_%g8470584723%_ _%g8470684727%_)))) + (_%g8470584723%_ _%g8470684727%_))))) + (_%g8470484778%_ _%$stx84701%_)))) (define |[:0:]#defremove1| - (lambda (_%$stx84719%_) - (let* ((_%g8472384741%_ - (lambda (_%g8472484737%_) + (lambda (_%$stx84782%_) + (let* ((_%g8478684804%_ + (lambda (_%g8478784800%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8472484737%_))) - (_%g8472284796%_ - (lambda (_%g8472484745%_) - (if (gx#stx-pair? _%g8472484745%_) - (let ((_%e8472784748%_ (gx#syntax-e _%g8472484745%_))) - (let ((_%hd8472884752%_ + _%g8478784800%_))) + (_%g8478584859%_ + (lambda (_%g8478784808%_) + (if (gx#stx-pair? _%g8478784808%_) + (let ((_%e8479084811%_ (gx#syntax-e _%g8478784808%_))) + (let ((_%hd8479184815%_ (let () (declare (not safe)) - (##car _%e8472784748%_))) - (_%tl8472984755%_ + (##car _%e8479084811%_))) + (_%tl8479284818%_ (let () (declare (not safe)) - (##cdr _%e8472784748%_)))) - (if (gx#stx-pair? _%tl8472984755%_) - (let ((_%e8473084758%_ - (gx#syntax-e _%tl8472984755%_))) - (let ((_%hd8473184762%_ + (##cdr _%e8479084811%_)))) + (if (gx#stx-pair? _%tl8479284818%_) + (let ((_%e8479384821%_ + (gx#syntax-e _%tl8479284818%_))) + (let ((_%hd8479484825%_ (let () (declare (not safe)) - (##car _%e8473084758%_))) - (_%tl8473284765%_ + (##car _%e8479384821%_))) + (_%tl8479584828%_ (let () (declare (not safe)) - (##cdr _%e8473084758%_)))) - (if (gx#stx-pair? _%tl8473284765%_) - (let ((_%e8473384768%_ - (gx#syntax-e _%tl8473284765%_))) - (let ((_%hd8473484772%_ + (##cdr _%e8479384821%_)))) + (if (gx#stx-pair? _%tl8479584828%_) + (let ((_%e8479684831%_ + (gx#syntax-e _%tl8479584828%_))) + (let ((_%hd8479784835%_ (let () (declare (not safe)) - (##car _%e8473384768%_))) - (_%tl8473584775%_ + (##car _%e8479684831%_))) + (_%tl8479884838%_ (let () (declare (not safe)) - (##cdr _%e8473384768%_)))) - (if (gx#stx-null? _%tl8473584775%_) - ((lambda (_%L84778%_ _%L84780%_) + (##cdr _%e8479684831%_)))) + (if (gx#stx-null? _%tl8479884838%_) + ((lambda (_%L84841%_ _%L84843%_) (cons (gx#datum->syntax '#f 'def) - (cons (cons _%L84780%_ + (cons (cons _%L84843%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (cons (gx#datum->syntax '#f 'el) (cons (gx#datum->syntax '#f 'lst) '()))) @@ -550,7 +550,7 @@ (cons (gx#datum->syntax '#f 'hd) (gx#datum->syntax '#f 'rest))) (cons (cons (gx#datum->syntax '#f 'if) - (cons (cons _%L84778%_ + (cons (cons _%L84841%_ (cons (gx#datum->syntax ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '#f @@ -586,150 +586,150 @@ '())))) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - _%hd8473484772%_ - _%hd8473184762%_) - (_%g8472384741%_ - _%g8472484745%_)))) - (_%g8472384741%_ _%g8472484745%_)))) - (_%g8472384741%_ _%g8472484745%_)))) - (_%g8472384741%_ _%g8472484745%_))))) - (_%g8472284796%_ _%$stx84719%_)))) + _%hd8479784835%_ + _%hd8479484825%_) + (_%g8478684804%_ + _%g8478784808%_)))) + (_%g8478684804%_ _%g8478784808%_)))) + (_%g8478684804%_ _%g8478784808%_)))) + (_%g8478684804%_ _%g8478784808%_))))) + (_%g8478584859%_ _%$stx84782%_)))) (define |[:0:]#DBG| - (lambda (_%$stx84800%_) - (let* ((_%g8480484815%_ - (lambda (_%g8480584811%_) + (lambda (_%$stx84863%_) + (let* ((_%g8486784878%_ + (lambda (_%g8486884874%_) (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%g8480584811%_))) - (_%g8480384844%_ - (lambda (_%g8480584819%_) - (if (gx#stx-pair? _%g8480584819%_) - (let ((_%e8480784822%_ (gx#syntax-e _%g8480584819%_))) - (let ((_%hd8480884826%_ + _%g8486884874%_))) + (_%g8486684907%_ + (lambda (_%g8486884882%_) + (if (gx#stx-pair? _%g8486884882%_) + (let ((_%e8487084885%_ (gx#syntax-e _%g8486884882%_))) + (let ((_%hd8487184889%_ (let () (declare (not safe)) - (##car _%e8480784822%_))) - (_%tl8480984829%_ + (##car _%e8487084885%_))) + (_%tl8487284892%_ (let () (declare (not safe)) - (##cdr _%e8480784822%_)))) - ((lambda (_%L84832%_) + (##cdr _%e8487084885%_)))) + ((lambda (_%L84895%_) (cons (gx#datum->syntax '#f 'DBG/1) - (cons '1 _%L84832%_))) - _%tl8480984829%_))) - (_%g8480484815%_ _%g8480584819%_))))) - (_%g8480384844%_ _%$stx84800%_)))) + (cons '1 _%L84895%_))) + _%tl8487284892%_))) + (_%g8486784878%_ _%g8486884882%_))))) + (_%g8486684907%_ _%$stx84863%_)))) (define |[:0:]#DBG/1| - (lambda (_%$stx84848%_) - (let* ((_%__stx9090190902%_ _%$stx84848%_) - (_%g8485985073%_ + (lambda (_%$stx84911%_) + (let* ((_%__stx9096490965%_ _%$stx84911%_) + (_%g8492285136%_ (lambda () (gx#raise-syntax-error '#f '"Bad syntax; invalid match target" - _%__stx9090190902%_)))) - (let ((_%__kont9090490905%_ - (lambda (_%L85926%_ - _%L85928%_ - _%L85929%_ - _%L85930%_ - _%L85931%_) - (cons _%L85931%_ + _%__stx9096490965%_)))) + (let ((_%__kont9096790968%_ + (lambda (_%L85989%_ + _%L85991%_ + _%L85992%_ + _%L85993%_ + _%L85994%_) + (cons _%L85994%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8596185964%_ - _%g8596285967%_) - (cons _%g8596185964%_ - _%g8596285967%_)) + (lambda (_%g8602486027%_ + _%g8602586030%_) + (cons _%g8602486027%_ + _%g8602586030%_)) '() - _%L85929%_) - (cons _%L85930%_ - (cons _%L85928%_ - (cons _%L85926%_ + _%L85992%_) + (cons _%L85993%_ + (cons _%L85991%_ + (cons _%L85989%_ '()))))))))) - (_%__kont9090890909%_ - (lambda (_%L85779%_ _%L85781%_ _%L85782%_ _%L85783%_) - (cons _%L85783%_ + (_%__kont9097190972%_ + (lambda (_%L85842%_ _%L85844%_ _%L85845%_ _%L85846%_) + (cons _%L85846%_ (cons '2 (cons '() (cons (__foldr1 - (lambda (_%g8580685809%_ - _%g8580785812%_) - (cons _%g8580685809%_ - _%g8580785812%_)) + (lambda (_%g8586985872%_ + _%g8587085875%_) + (cons _%g8586985872%_ + _%g8587085875%_)) '() - _%L85781%_) - (cons _%L85782%_ - (cons _%L85779%_ - (cons _%L85779%_ + _%L85844%_) + (cons _%L85845%_ + (cons _%L85842%_ + (cons _%L85842%_ '()))))))))) - (_%__kont9091290913%_ - (lambda (_%L85682%_) + (_%__kont9097590976%_ + (lambda (_%L85745%_) (cons (gx#datum->syntax '#f 'DBG-helper) - (cons _%L85682%_ + (cons _%L85745%_ (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons (cons (gx#datum->syntax '#f 'quote) (cons '() '())) (cons '#f (cons '#f '())))))))) - (_%__kont9091490915%_ - (lambda (_%L85605%_ - _%L85607%_ - _%L85608%_ - _%L85609%_ - _%L85610%_ - _%L85611%_) - (cons _%L85611%_ + (_%__kont9097790978%_ + (lambda (_%L85668%_ + _%L85670%_ + _%L85671%_ + _%L85672%_ + _%L85673%_ + _%L85674%_) + (cons _%L85674%_ (cons '2 - (cons (cons (cons _%L85609%_ - (cons _%L85608%_ '())) - _%L85610%_) - (cons _%L85607%_ _%L85605%_)))))) - (_%__kont9091690917%_ - (lambda (_%L85486%_ - _%L85488%_ - _%L85489%_ - _%L85490%_ - _%L85491%_) - (cons _%L85491%_ + (cons (cons (cons _%L85672%_ + (cons _%L85671%_ '())) + _%L85673%_) + (cons _%L85670%_ _%L85668%_)))))) + (_%__kont9097990980%_ + (lambda (_%L85549%_ + _%L85551%_ + _%L85552%_ + _%L85553%_ + _%L85554%_) + (cons _%L85554%_ (cons '2 - (cons (cons (cons _%L85489%_ - (cons _%L85489%_ '())) - _%L85490%_) - (cons _%L85488%_ _%L85486%_)))))) - (_%__kont9091890919%_ - (lambda (_%L85403%_ _%L85405%_ _%L85406%_) - (cons _%L85406%_ - (cons '3 (cons '() (cons _%L85405%_ _%L85403%_)))))) - (_%__kont9092090921%_ - (lambda (_%L85324%_ - _%L85326%_ - _%L85327%_ - _%L85328%_ - _%L85329%_) - (cons _%L85329%_ + (cons (cons (cons _%L85552%_ + (cons _%L85552%_ '())) + _%L85553%_) + (cons _%L85551%_ _%L85549%_)))))) + (_%__kont9098190982%_ + (lambda (_%L85466%_ _%L85468%_ _%L85469%_) + (cons _%L85469%_ + (cons '3 (cons '() (cons _%L85468%_ _%L85466%_)))))) + (_%__kont9098390984%_ + (lambda (_%L85387%_ + _%L85389%_ + _%L85390%_ + _%L85391%_ + _%L85392%_) + (cons _%L85392%_ (cons '3 - (cons (cons _%L85327%_ _%L85328%_) - (cons _%L85326%_ _%L85324%_)))))) - (_%__kont9092290923%_ - (lambda (_%L85208%_ - _%L85210%_ - _%L85211%_ - _%L85212%_ - _%L85213%_ - _%L85214%_) + (cons (cons _%L85390%_ _%L85391%_) + (cons _%L85389%_ _%L85387%_)))))) + (_%__kont9098590986%_ + (lambda (_%L85271%_ + _%L85273%_ + _%L85274%_ + _%L85275%_ + _%L85276%_ + _%L85277%_) (cons (gx#datum->syntax '#f 'let) (cons (cons (cons (gx#datum->syntax '#f 'tagval) - (cons _%L85211%_ '())) + (cons _%L85274%_ '())) (cons (cons (gx#datum->syntax '#f 'thunk) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%L85208%_ '()))) + (cons _%L85271%_ '()))) '())) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())) @@ -744,31 +744,31 @@ 'tagval) (cons (cons (gx#datum->syntax '#f 'quote) (cons (__foldr1 - (lambda (_%g8524885251%_ - _%g8524985254%_) - (cons _%g8524885251%_ - _%g8524985254%_)) + (lambda (_%g8531185314%_ + _%g8531285317%_) + (cons _%g8531185314%_ + _%g8531285317%_)) '() - _%L85213%_) + _%L85276%_) '())) (cons (cons (gx#datum->syntax '#f 'list) (__foldr1 - (lambda (_%g8524685257%_ - _%g8524785260%_) + (lambda (_%g8530985320%_ + _%g8531085323%_) (cons (cons (gx#datum->syntax '#f 'lambda) (cons '() ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (cons _%g8524685257%_ '()))) - _%g8524785260%_)) + (cons _%g8530985320%_ '()))) + _%g8531085323%_)) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '() - _%L85212%_)) + _%L85275%_)) (cons (cons (gx#datum->syntax '#f 'quote) - (cons _%L85210%_ '())) + (cons _%L85273%_ '())) (cons (gx#datum->syntax '#f 'thunk) @@ -776,1201 +776,1201 @@ (cons (cons (gx#datum->syntax '#f 'thunk) '()) '())))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> '())))))) - (let* ((_%__match9125291253%_ - (lambda (_%e8502985080%_ - _%hd8503085084%_ - _%tl8503185087%_ - _%e8503285090%_ - _%hd8503385094%_ - _%tl8503485097%_ - _%e8503585100%_ - _%e8503685104%_ - _%hd8503785108%_ - _%tl8503885111%_ - _%__splice9092490925%_ - _%target8503985114%_ - _%tl8504185117%_) - (letrec ((_%loop8504285120%_ - (lambda (_%hd8504085124%_ - _%exprs8504685127%_ - _%names8504785129%_) - (if (gx#stx-pair? _%hd8504085124%_) - (let ((_%e8504385132%_ - (gx#syntax-e _%hd8504085124%_))) - (let ((_%lp-tl8504585139%_ + (let* ((_%__match9131591316%_ + (lambda (_%e8509285143%_ + _%hd8509385147%_ + _%tl8509485150%_ + _%e8509585153%_ + _%hd8509685157%_ + _%tl8509785160%_ + _%e8509885163%_ + _%e8509985167%_ + _%hd8510085171%_ + _%tl8510185174%_ + _%__splice9098790988%_ + _%target8510285177%_ + _%tl8510485180%_) + (letrec ((_%loop8510585183%_ + (lambda (_%hd8510385187%_ + _%exprs8510985190%_ + _%names8511085192%_) + (if (gx#stx-pair? _%hd8510385187%_) + (let ((_%e8510685195%_ + (gx#syntax-e _%hd8510385187%_))) + (let ((_%lp-tl8510885202%_ (let () (declare (not safe)) - (##cdr _%e8504385132%_))) - (_%lp-hd8504485136%_ + (##cdr _%e8510685195%_))) + (_%lp-hd8510785199%_ (let () (declare (not safe)) - (##car _%e8504385132%_)))) + (##car _%e8510685195%_)))) (if (gx#stx-pair? - _%lp-hd8504485136%_) - (let ((_%e8506285142%_ + _%lp-hd8510785199%_) + (let ((_%e8512585205%_ (gx#syntax-e - _%lp-hd8504485136%_))) - (let ((_%tl8506485149%_ + _%lp-hd8510785199%_))) + (let ((_%tl8512785212%_ (let () (declare (not safe)) - (##cdr _%e8506285142%_))) - (_%hd8506385146%_ + (##cdr _%e8512585205%_))) + (_%hd8512685209%_ (let () (declare (not safe)) - (##car _%e8506285142%_)))) + (##car _%e8512585205%_)))) (if (gx#stx-pair? - _%tl8506485149%_) - (let ((_%e8506585152%_ + _%tl8512785212%_) + (let ((_%e8512885215%_ (gx#syntax-e - _%tl8506485149%_))) - (let ((_%tl8506785159%_ + _%tl8512785212%_))) + (let ((_%tl8513085222%_ (let () ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (declare (not safe)) - (##cdr _%e8506585152%_))) - (_%hd8506685156%_ - (let () (declare (not safe)) (##car _%e8506585152%_)))) - (if (gx#stx-null? _%tl8506785159%_) - (_%loop8504285120%_ - _%lp-tl8504585139%_ - (cons _%hd8506685156%_ _%exprs8504685127%_) - (cons _%hd8506385146%_ _%names8504785129%_)) - (let () (declare (not safe)) (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_))))) + (##cdr _%e8512885215%_))) + (_%hd8512985219%_ + (let () (declare (not safe)) (##car _%e8512885215%_)))) + (if (gx#stx-null? _%tl8513085222%_) + (_%loop8510585183%_ + _%lp-tl8510885202%_ + (cons _%hd8512985219%_ _%exprs8510985190%_) + (cons _%hd8512685209%_ _%names8511085192%_)) + (let () (declare (not safe)) (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8485985073%_))))) - (let ((_%names8504985165%_ - (reverse _%names8504785129%_)) - (_%exprs8504885162%_ - (reverse _%exprs8504685127%_))) - (if (gx#stx-pair? _%tl8503885111%_) - (let ((_%e8505085168%_ + (_%g8492285136%_))))) + (let ((_%names8511285228%_ + (reverse _%names8511085192%_)) + (_%exprs8511185225%_ + (reverse _%exprs8510985190%_))) + (if (gx#stx-pair? _%tl8510185174%_) + (let ((_%e8511385231%_ (gx#syntax-e - _%tl8503885111%_))) - (let ((_%tl8505285175%_ + _%tl8510185174%_))) + (let ((_%tl8511585238%_ (let () (declare (not safe)) - (##cdr _%e8505085168%_))) - (_%hd8505185172%_ + (##cdr _%e8511385231%_))) + (_%hd8511485235%_ (let () (declare (not safe)) - (##car _%e8505085168%_)))) + (##car _%e8511385231%_)))) (if (gx#stx-null? - _%hd8505185172%_) + _%hd8511485235%_) (if (gx#stx-pair? - _%tl8505285175%_) - (let ((_%e8505385178%_ + _%tl8511585238%_) + (let ((_%e8511685241%_ (gx#syntax-e - _%tl8505285175%_))) - (let ((_%tl8505585185%_ + _%tl8511585238%_))) + (let ((_%tl8511885248%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8505385178%_))) - (_%hd8505485182%_ + (let () (declare (not safe)) (##cdr _%e8511685241%_))) + (_%hd8511785245%_ (let () (declare (not safe)) - (##car _%e8505385178%_)))) - (if (gx#stx-pair? _%tl8505585185%_) - (let ((_%e8505685188%_ (gx#syntax-e _%tl8505585185%_))) - (let ((_%tl8505885195%_ + (##car _%e8511685241%_)))) + (if (gx#stx-pair? _%tl8511885248%_) + (let ((_%e8511985251%_ (gx#syntax-e _%tl8511885248%_))) + (let ((_%tl8512185258%_ (let () (declare (not safe)) - (##cdr _%e8505685188%_))) - (_%hd8505785192%_ + (##cdr _%e8511985251%_))) + (_%hd8512085255%_ (let () (declare (not safe)) - (##car _%e8505685188%_)))) - (if (gx#stx-pair? _%tl8505885195%_) - (let ((_%e8505985198%_ - (gx#syntax-e _%tl8505885195%_))) - (let ((_%tl8506185205%_ + (##car _%e8511985251%_)))) + (if (gx#stx-pair? _%tl8512185258%_) + (let ((_%e8512285261%_ + (gx#syntax-e _%tl8512185258%_))) + (let ((_%tl8512485268%_ (let () (declare (not safe)) - (##cdr _%e8505985198%_))) - (_%hd8506085202%_ + (##cdr _%e8512285261%_))) + (_%hd8512385265%_ (let () (declare (not safe)) - (##car _%e8505985198%_)))) - (if (gx#stx-null? _%tl8506185205%_) - (_%__kont9092290923%_ - _%hd8506085202%_ - _%hd8505785192%_ - _%hd8505485182%_ - _%exprs8504885162%_ - _%names8504985165%_ - _%hd8503085084%_) + (##car _%e8512285261%_)))) + (if (gx#stx-null? _%tl8512485268%_) + (_%__kont9098590986%_ + _%hd8512385265%_ + _%hd8512085255%_ + _%hd8511785245%_ + _%exprs8511185225%_ + _%names8511285228%_ + _%hd8509385147%_) (let () (declare (not safe)) - (_%g8485985073%_))))) + (_%g8492285136%_))))) (let () (declare (not safe)) - (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_))) + (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8485985073%_))))) + (_%g8492285136%_))))) (let () (declare (not safe)) - (_%g8485985073%_)))))))) - (_%loop8504285120%_ _%target8503985114%_ '() '())))) - (_%__match9103091031%_ - (lambda (_%e8490185705%_ - _%hd8490285709%_ - _%tl8490385712%_ - _%e8490485715%_ - _%hd8490585719%_ - _%tl8490685722%_ - _%e8490785725%_ - _%e8490885729%_ - _%hd8490985733%_ - _%tl8491085736%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (letrec ((_%loop8491485755%_ - (lambda (_%hd8491285759%_ _%exprs8491885762%_) - (if (gx#stx-pair? _%hd8491285759%_) - (let ((_%e8491585765%_ - (gx#syntax-e _%hd8491285759%_))) - (let ((_%lp-tl8491785772%_ + (_%g8492285136%_)))))))) + (_%loop8510585183%_ _%target8510285177%_ '() '())))) + (_%__match9109391094%_ + (lambda (_%e8496485768%_ + _%hd8496585772%_ + _%tl8496685775%_ + _%e8496785778%_ + _%hd8496885782%_ + _%tl8496985785%_ + _%e8497085788%_ + _%e8497185792%_ + _%hd8497285796%_ + _%tl8497385799%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (letrec ((_%loop8497785818%_ + (lambda (_%hd8497585822%_ _%exprs8498185825%_) + (if (gx#stx-pair? _%hd8497585822%_) + (let ((_%e8497885828%_ + (gx#syntax-e _%hd8497585822%_))) + (let ((_%lp-tl8498085835%_ (let () (declare (not safe)) - (##cdr _%e8491585765%_))) - (_%lp-hd8491685769%_ + (##cdr _%e8497885828%_))) + (_%lp-hd8497985832%_ (let () (declare (not safe)) - (##car _%e8491585765%_)))) - (_%loop8491485755%_ - _%lp-tl8491785772%_ - (cons _%lp-hd8491685769%_ - _%exprs8491885762%_)))) - (let ((_%exprs8491985775%_ - (reverse _%exprs8491885762%_))) - (_%__kont9090890909%_ - _%hd8492185749%_ - _%exprs8491985775%_ - _%hd8490985733%_ - _%hd8490285709%_)))))) - (_%loop8491485755%_ _%target8491185739%_ '())))) - (_%__match9099090991%_ - (lambda (_%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9090690907%_ - _%target8487685856%_ - _%tl8487885859%_ - _%e8488585862%_ - _%hd8488685866%_ - _%tl8488785869%_ - _%e8488885872%_ - _%hd8488985876%_ - _%tl8489085879%_ - _%e8489185882%_ - _%hd8489285886%_ - _%tl8489385889%_ - _%e8489485892%_ - _%hd8489585896%_ - _%tl8489685899%_) - (letrec ((_%loop8487985902%_ - (lambda (_%hd8487785906%_ _%exprs8488385909%_) - (if (gx#stx-pair? _%hd8487785906%_) - (let ((_%e8488085912%_ - (gx#syntax-e _%hd8487785906%_))) - (let ((_%lp-tl8488285919%_ + (##car _%e8497885828%_)))) + (_%loop8497785818%_ + _%lp-tl8498085835%_ + (cons _%lp-hd8497985832%_ + _%exprs8498185825%_)))) + (let ((_%exprs8498285838%_ + (reverse _%exprs8498185825%_))) + (_%__kont9097190972%_ + _%hd8498485812%_ + _%exprs8498285838%_ + _%hd8497285796%_ + _%hd8496585772%_)))))) + (_%loop8497785818%_ _%target8497485802%_ '())))) + (_%__match9105391054%_ + (lambda (_%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9096990970%_ + _%target8493985919%_ + _%tl8494185922%_ + _%e8494885925%_ + _%hd8494985929%_ + _%tl8495085932%_ + _%e8495185935%_ + _%hd8495285939%_ + _%tl8495385942%_ + _%e8495485945%_ + _%hd8495585949%_ + _%tl8495685952%_ + _%e8495785955%_ + _%hd8495885959%_ + _%tl8495985962%_) + (letrec ((_%loop8494285965%_ + (lambda (_%hd8494085969%_ _%exprs8494685972%_) + (if (gx#stx-pair? _%hd8494085969%_) + (let ((_%e8494385975%_ + (gx#syntax-e _%hd8494085969%_))) + (let ((_%lp-tl8494585982%_ (let () (declare (not safe)) - (##cdr _%e8488085912%_))) - (_%lp-hd8488185916%_ + (##cdr _%e8494385975%_))) + (_%lp-hd8494485979%_ (let () (declare (not safe)) - (##car _%e8488085912%_)))) - (_%loop8487985902%_ - _%lp-tl8488285919%_ - (cons _%lp-hd8488185916%_ - _%exprs8488385909%_)))) - (let ((_%exprs8488485922%_ - (reverse _%exprs8488385909%_))) - (_%__kont9090490905%_ - _%hd8489585896%_ - _%hd8489285886%_ - _%exprs8488485922%_ - _%hd8487485850%_ - _%hd8486785826%_)))))) - (_%loop8487985902%_ _%target8487685856%_ '()))))) - (if (gx#stx-pair? _%__stx9090190902%_) - (let ((_%e8486685822%_ (gx#syntax-e _%__stx9090190902%_))) - (let ((_%tl8486885829%_ + (##car _%e8494385975%_)))) + (_%loop8494285965%_ + _%lp-tl8494585982%_ + (cons _%lp-hd8494485979%_ + _%exprs8494685972%_)))) + (let ((_%exprs8494785985%_ + (reverse _%exprs8494685972%_))) + (_%__kont9096790968%_ + _%hd8495885959%_ + _%hd8495585949%_ + _%exprs8494785985%_ + _%hd8493785913%_ + _%hd8493085889%_)))))) + (_%loop8494285965%_ _%target8493985919%_ '()))))) + (if (gx#stx-pair? _%__stx9096490965%_) + (let ((_%e8492985885%_ (gx#syntax-e _%__stx9096490965%_))) + (let ((_%tl8493185892%_ (let () (declare (not safe)) - (##cdr _%e8486685822%_))) - (_%hd8486785826%_ + (##cdr _%e8492985885%_))) + (_%hd8493085889%_ (let () (declare (not safe)) - (##car _%e8486685822%_)))) - (if (gx#stx-pair? _%tl8486885829%_) - (let ((_%e8486985832%_ - (gx#syntax-e _%tl8486885829%_))) - (let ((_%tl8487185839%_ + (##car _%e8492985885%_)))) + (if (gx#stx-pair? _%tl8493185892%_) + (let ((_%e8493285895%_ + (gx#syntax-e _%tl8493185892%_))) + (let ((_%tl8493485902%_ (let () (declare (not safe)) - (##cdr _%e8486985832%_))) - (_%hd8487085836%_ + (##cdr _%e8493285895%_))) + (_%hd8493385899%_ (let () (declare (not safe)) - (##car _%e8486985832%_)))) - (if (gx#stx-datum? _%hd8487085836%_) - (let ((_%e8487285842%_ - (gx#stx-e _%hd8487085836%_))) - (if (equal? _%e8487285842%_ '1) - (if (gx#stx-pair? _%tl8487185839%_) - (let ((_%e8487385846%_ + (##car _%e8493285895%_)))) + (if (gx#stx-datum? _%hd8493385899%_) + (let ((_%e8493585905%_ + (gx#stx-e _%hd8493385899%_))) + (if (equal? _%e8493585905%_ '1) + (if (gx#stx-pair? _%tl8493485902%_) + (let ((_%e8493685909%_ (gx#syntax-e - _%tl8487185839%_))) - (let ((_%tl8487585853%_ + _%tl8493485902%_))) + (let ((_%tl8493885916%_ (let () (declare (not safe)) - (##cdr _%e8487385846%_))) - (_%hd8487485850%_ + (##cdr _%e8493685909%_))) + (_%hd8493785913%_ (let () (declare (not safe)) - (##car _%e8487385846%_)))) + (##car _%e8493685909%_)))) (if (gx#stx-pair/null? - _%tl8487585853%_) - (if (let ((__tmp91349 + _%tl8493885916%_) + (if (let ((__tmp91412 (gx#stx-length - _%tl8487585853%_))) + _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91349 + (##fx>= __tmp91412 ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< '2)) - (let ((_%__splice9090690907%_ - (gx#syntax-split-splice _%tl8487585853%_ '2))) - (let ((_%tl8487885859%_ + (let ((_%__splice9096990970%_ + (gx#syntax-split-splice _%tl8493885916%_ '2))) + (let ((_%tl8494185922%_ (let () (declare (not safe)) - (##vector-ref _%__splice9090690907%_ '1))) - (_%target8487685856%_ + (##vector-ref _%__splice9096990970%_ '1))) + (_%target8493985919%_ (let () (declare (not safe)) - (##vector-ref _%__splice9090690907%_ '0)))) - (if (gx#stx-pair? _%tl8487885859%_) - (let ((_%e8488585862%_ (gx#syntax-e _%tl8487885859%_))) - (let ((_%tl8488785869%_ + (##vector-ref _%__splice9096990970%_ '0)))) + (if (gx#stx-pair? _%tl8494185922%_) + (let ((_%e8494885925%_ (gx#syntax-e _%tl8494185922%_))) + (let ((_%tl8495085932%_ (let () (declare (not safe)) - (##cdr _%e8488585862%_))) - (_%hd8488685866%_ + (##cdr _%e8494885925%_))) + (_%hd8494985929%_ (let () (declare (not safe)) - (##car _%e8488585862%_)))) - (if (gx#stx-pair? _%hd8488685866%_) - (let ((_%e8488885872%_ - (gx#syntax-e _%hd8488685866%_))) - (let ((_%tl8489085879%_ + (##car _%e8494885925%_)))) + (if (gx#stx-pair? _%hd8494985929%_) + (let ((_%e8495185935%_ + (gx#syntax-e _%hd8494985929%_))) + (let ((_%tl8495385942%_ (let () (declare (not safe)) - (##cdr _%e8488885872%_))) - (_%hd8488985876%_ + (##cdr _%e8495185935%_))) + (_%hd8495285939%_ (let () (declare (not safe)) - (##car _%e8488885872%_)))) - (if (gx#identifier? _%hd8488985876%_) + (##car _%e8495185935%_)))) + (if (gx#identifier? _%hd8495285939%_) (if (gx#free-identifier=? - |[1]#_g91350_| - _%hd8488985876%_) - (if (gx#stx-pair? _%tl8489085879%_) - (let ((_%e8489185882%_ + |[1]#_g91413_| + _%hd8495285939%_) + (if (gx#stx-pair? _%tl8495385942%_) + (let ((_%e8495485945%_ (gx#syntax-e - _%tl8489085879%_))) - (let ((_%tl8489385889%_ + _%tl8495385942%_))) + (let ((_%tl8495685952%_ (let () (declare (not safe)) - (##cdr _%e8489185882%_))) - (_%hd8489285886%_ + (##cdr _%e8495485945%_))) + (_%hd8495585949%_ (let () (declare (not safe)) - (##car _%e8489185882%_)))) + (##car _%e8495485945%_)))) (if (gx#stx-null? - _%tl8489385889%_) + _%tl8495685952%_) (if (gx#stx-pair? - _%tl8488785869%_) - (let ((_%e8489485892%_ + _%tl8495085932%_) + (let ((_%e8495785955%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8488785869%_))) - (let ((_%tl8489685899%_ + (gx#syntax-e _%tl8495085932%_))) + (let ((_%tl8495985962%_ (let () (declare (not safe)) - (##cdr _%e8489485892%_))) - (_%hd8489585896%_ + (##cdr _%e8495785955%_))) + (_%hd8495885959%_ (let () (declare (not safe)) - (##car _%e8489485892%_)))) - (if (gx#stx-null? _%tl8489685899%_) - (_%__match9099090991%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9090690907%_ - _%target8487685856%_ - _%tl8487885859%_ - _%e8488585862%_ - _%hd8488685866%_ - _%tl8488785869%_ - _%e8488885872%_ - _%hd8488985876%_ - _%tl8489085879%_ - _%e8489185882%_ - _%hd8489285886%_ - _%tl8489385889%_ - _%e8489485892%_ - _%hd8489585896%_ - _%tl8489685899%_) - (if (let ((__tmp91351 - (gx#stx-length _%tl8487585853%_))) + (##car _%e8495785955%_)))) + (if (gx#stx-null? _%tl8495985962%_) + (_%__match9105391054%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9096990970%_ + _%target8493985919%_ + _%tl8494185922%_ + _%e8494885925%_ + _%hd8494985929%_ + _%tl8495085932%_ + _%e8495185935%_ + _%hd8495285939%_ + _%tl8495385942%_ + _%e8495485945%_ + _%hd8495585949%_ + _%tl8495685952%_ + _%e8495785955%_ + _%hd8495885959%_ + _%tl8495985962%_) + (if (let ((__tmp91414 + (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91351 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91414 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '1))) - (_%target8491185739%_ + (_%target8497485802%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ - (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ + (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))))) - (if (let ((__tmp91352 (gx#stx-length _%tl8487585853%_))) + (_%g8492285136%_))))))) + (if (let ((__tmp91415 (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91352 '1)) - (let ((_%__splice9091090911%_ - (gx#syntax-split-splice _%tl8487585853%_ '1))) - (let ((_%tl8491385742%_ + (##fx>= __tmp91415 '1)) + (let ((_%__splice9097390974%_ + (gx#syntax-split-splice _%tl8493885916%_ '1))) + (let ((_%tl8497685805%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '1))) - (_%target8491185739%_ + (##vector-ref _%__splice9097390974%_ '1))) + (_%target8497485802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ - (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (##vector-ref _%__splice9097390974%_ '0)))) + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ + (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_))))) - (if (let ((__tmp91353 (gx#stx-length _%tl8487585853%_))) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_))))) + (if (let ((__tmp91416 (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91353 '1)) - (let ((_%__splice9091090911%_ - (gx#syntax-split-splice _%tl8487585853%_ '1))) - (let ((_%tl8491385742%_ + (##fx>= __tmp91416 '1)) + (let ((_%__splice9097390974%_ + (gx#syntax-split-splice _%tl8493885916%_ '1))) + (let ((_%tl8497685805%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '1))) - (_%target8491185739%_ + (##vector-ref _%__splice9097390974%_ '1))) + (_%target8497485802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ - (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (##vector-ref _%__splice9097390974%_ '0)))) + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ + (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_))))))) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_))))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (if (let ((__tmp91354 + (if (let ((__tmp91417 (gx#stx-length - _%tl8487585853%_))) + _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91354 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91417 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##vector-ref _%__splice9091090911%_ '1))) - (_%target8491185739%_ + (##vector-ref _%__splice9097390974%_ '1))) + (_%target8497485802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (##vector-ref _%__splice9097390974%_ '0)))) + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_)))))) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))) - (if (let ((__tmp91355 + (_%g8492285136%_))))) + (if (let ((__tmp91418 (gx#stx-length - _%tl8487585853%_))) + _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91355 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91418 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '1))) - (_%target8491185739%_ + (_%target8497485802%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '0)))) (if (gx#stx-pair? - _%tl8491385742%_) - (let ((_%e8492085745%_ + _%tl8497685805%_) + (let ((_%e8498385808%_ (gx#syntax-e - _%tl8491385742%_))) - (let ((_%tl8492285752%_ + _%tl8497685805%_))) + (let ((_%tl8498585815%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (let () (declare (not safe)) (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_)))))) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))) - (if (let ((__tmp91356 + (_%g8492285136%_))))) + (if (let ((__tmp91419 (gx#stx-length - _%tl8487585853%_))) + _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91356 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91419 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '1))) - (_%target8491185739%_ + (_%target8497485802%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '0)))) (if (gx#stx-pair? - _%tl8491385742%_) - (let ((_%e8492085745%_ + _%tl8497685805%_) + (let ((_%e8498385808%_ (gx#syntax-e - _%tl8491385742%_))) - (let ((_%tl8492285752%_ + _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ - (let () (declare (not safe)) (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_)))))) + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ + (let () (declare (not safe)) (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))))) - (if (let ((__tmp91357 - (gx#stx-length _%tl8487585853%_))) + (_%g8492285136%_))))))) + (if (let ((__tmp91420 + (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91357 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91420 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '1))) - (_%target8491185739%_ + (_%target8497485802%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ (gx#syntax-e - _%tl8491385742%_))) - (let ((_%tl8492285752%_ + _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) + (##car _%e8498385808%_)))) (if (gx#stx-null? - _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) + _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))))) - (if (let ((__tmp91358 - (gx#stx-length _%tl8487585853%_))) + (_%g8492285136%_))))))) + (if (let ((__tmp91421 + (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91358 '1)) - (let ((_%__splice9091090911%_ + (##fx>= __tmp91421 '1)) + (let ((_%__splice9097390974%_ (gx#syntax-split-splice - _%tl8487585853%_ + _%tl8493885916%_ '1))) - (let ((_%tl8491385742%_ + (let ((_%tl8497685805%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '1))) - (_%target8491185739%_ + (_%target8497485802%_ (let () (declare (not safe)) (##vector-ref - _%__splice9091090911%_ + _%__splice9097390974%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ - (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ + (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_))))))) - (if (let ((__tmp91359 (gx#stx-length _%tl8487585853%_))) + (_%g8492285136%_))))))) + (if (let ((__tmp91422 (gx#stx-length _%tl8493885916%_))) (declare (not safe)) - (##fx>= __tmp91359 '1)) - (let ((_%__splice9091090911%_ - (gx#syntax-split-splice _%tl8487585853%_ '1))) - (let ((_%tl8491385742%_ + (##fx>= __tmp91422 '1)) + (let ((_%__splice9097390974%_ + (gx#syntax-split-splice _%tl8493885916%_ '1))) + (let ((_%tl8497685805%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '1))) - (_%target8491185739%_ + (##vector-ref _%__splice9097390974%_ '1))) + (_%target8497485802%_ (let () (declare (not safe)) - (##vector-ref _%__splice9091090911%_ '0)))) - (if (gx#stx-pair? _%tl8491385742%_) - (let ((_%e8492085745%_ - (gx#syntax-e _%tl8491385742%_))) - (let ((_%tl8492285752%_ + (##vector-ref _%__splice9097390974%_ '0)))) + (if (gx#stx-pair? _%tl8497685805%_) + (let ((_%e8498385808%_ + (gx#syntax-e _%tl8497685805%_))) + (let ((_%tl8498585815%_ (let () (declare (not safe)) - (##cdr _%e8492085745%_))) - (_%hd8492185749%_ + (##cdr _%e8498385808%_))) + (_%hd8498485812%_ (let () (declare (not safe)) - (##car _%e8492085745%_)))) - (if (gx#stx-null? _%tl8492285752%_) - (_%__match9103091031%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8487385846%_ - _%hd8487485850%_ - _%tl8487585853%_ - _%__splice9091090911%_ - _%target8491185739%_ - _%tl8491385742%_ - _%e8492085745%_ - _%hd8492185749%_ - _%tl8492285752%_) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (##car _%e8498385808%_)))) + (if (gx#stx-null? _%tl8498585815%_) + (_%__match9109391094%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8493685909%_ + _%hd8493785913%_ + _%tl8493885916%_ + _%__splice9097390974%_ + _%target8497485802%_ + _%tl8497685805%_ + _%e8498385808%_ + _%hd8498485812%_ + _%tl8498585815%_) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-null? _%tl8487585853%_) - (_%__kont9091290913%_ _%hd8487485850%_) - (let () (declare (not safe)) (_%g8485985073%_))))) + (_%g8492285136%_)))))) + (if (gx#stx-null? _%tl8493885916%_) + (_%__kont9097590976%_ _%hd8493785913%_) + (let () (declare (not safe)) (_%g8492285136%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (if (gx#stx-null? - _%tl8487585853%_) - (_%__kont9091290913%_ - _%hd8487485850%_) + _%tl8493885916%_) + (_%__kont9097590976%_ + _%hd8493785913%_) (let () (declare (not safe)) - (_%g8485985073%_)))))) + (_%g8492285136%_)))))) (let () (declare (not safe)) - (_%g8485985073%_))) - (if (equal? _%e8487285842%_ '2) - (if (gx#stx-pair? _%tl8487185839%_) - (let ((_%e8494785545%_ + (_%g8492285136%_))) + (if (equal? _%e8493585905%_ '2) + (if (gx#stx-pair? _%tl8493485902%_) + (let ((_%e8501085608%_ (gx#syntax-e - _%tl8487185839%_))) - (let ((_%tl8494985552%_ + _%tl8493485902%_))) + (let ((_%tl8501285615%_ (let () (declare (not safe)) - (##cdr _%e8494785545%_))) - (_%hd8494885549%_ + (##cdr _%e8501085608%_))) + (_%hd8501185612%_ (let () (declare (not safe)) - (##car _%e8494785545%_)))) + (##car _%e8501085608%_)))) (if (gx#stx-pair? - _%tl8494985552%_) - (let ((_%e8495085555%_ + _%tl8501285615%_) + (let ((_%e8501385618%_ (gx#syntax-e - _%tl8494985552%_))) - (let ((_%tl8495285562%_ + _%tl8501285615%_))) + (let ((_%tl8501585625%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (let () (declare (not safe)) (##cdr _%e8495085555%_))) - (_%hd8495185559%_ + (let () (declare (not safe)) (##cdr _%e8501385618%_))) + (_%hd8501485622%_ (let () (declare (not safe)) - (##car _%e8495085555%_)))) - (if (gx#stx-pair? _%hd8495185559%_) - (let ((_%e8495385565%_ (gx#syntax-e _%hd8495185559%_))) - (let ((_%tl8495585572%_ + (##car _%e8501385618%_)))) + (if (gx#stx-pair? _%hd8501485622%_) + (let ((_%e8501685628%_ (gx#syntax-e _%hd8501485622%_))) + (let ((_%tl8501885635%_ (let () (declare (not safe)) - (##cdr _%e8495385565%_))) - (_%hd8495485569%_ + (##cdr _%e8501685628%_))) + (_%hd8501785632%_ (let () (declare (not safe)) - (##car _%e8495385565%_)))) - (if (gx#stx-pair? _%hd8495485569%_) - (let ((_%e8495685575%_ - (gx#syntax-e _%hd8495485569%_))) - (let ((_%tl8495885582%_ + (##car _%e8501685628%_)))) + (if (gx#stx-pair? _%hd8501785632%_) + (let ((_%e8501985638%_ + (gx#syntax-e _%hd8501785632%_))) + (let ((_%tl8502185645%_ (let () (declare (not safe)) - (##cdr _%e8495685575%_))) - (_%hd8495785579%_ + (##cdr _%e8501985638%_))) + (_%hd8502085642%_ (let () (declare (not safe)) - (##car _%e8495685575%_)))) - (if (gx#identifier? _%hd8495785579%_) + (##car _%e8501985638%_)))) + (if (gx#identifier? _%hd8502085642%_) (if (gx#free-identifier=? - |[1]#_g91360_| - _%hd8495785579%_) - (if (gx#stx-pair? _%tl8495885582%_) - (let ((_%e8495985585%_ + |[1]#_g91423_| + _%hd8502085642%_) + (if (gx#stx-pair? _%tl8502185645%_) + (let ((_%e8502285648%_ (gx#syntax-e - _%tl8495885582%_))) - (let ((_%tl8496185592%_ + _%tl8502185645%_))) + (let ((_%tl8502485655%_ (let () (declare (not safe)) - (##cdr _%e8495985585%_))) - (_%hd8496085589%_ + (##cdr _%e8502285648%_))) + (_%hd8502385652%_ (let () (declare (not safe)) - (##car _%e8495985585%_)))) + (##car _%e8502285648%_)))) (if (gx#stx-null? - _%tl8496185592%_) + _%tl8502485655%_) (if (gx#stx-pair? - _%tl8495585572%_) - (let ((_%e8496285595%_ + _%tl8501885635%_) + (let ((_%e8502585658%_ ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< - (gx#syntax-e _%tl8495585572%_))) - (let ((_%tl8496485602%_ + (gx#syntax-e _%tl8501885635%_))) + (let ((_%tl8502785665%_ (let () (declare (not safe)) - (##cdr _%e8496285595%_))) - (_%hd8496385599%_ + (##cdr _%e8502585658%_))) + (_%hd8502685662%_ (let () (declare (not safe)) - (##car _%e8496285595%_)))) - (_%__kont9091490915%_ - _%tl8495285562%_ - _%tl8496485602%_ - _%hd8496385599%_ - _%hd8496085589%_ - _%hd8494885549%_ - _%hd8486785826%_))) - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)) - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)))) + (##car _%e8502585658%_)))) + (_%__kont9097790978%_ + _%tl8501585625%_ + _%tl8502785665%_ + _%hd8502685662%_ + _%hd8502385652%_ + _%hd8501185612%_ + _%hd8493085889%_))) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)) - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)) - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)))) - (_%__kont9091690917%_ - _%tl8495285562%_ - _%tl8495585572%_ - _%hd8495485569%_ - _%hd8494885549%_ - _%hd8486785826%_)))) - (if (gx#stx-null? _%hd8495185559%_) - (_%__kont9091890919%_ - _%tl8495285562%_ - _%hd8494885549%_ - _%hd8486785826%_) - (let () (declare (not safe)) (_%g8485985073%_)))))) - (let () (declare (not safe)) (_%g8485985073%_))))) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)))) + (_%__kont9097990980%_ + _%tl8501585625%_ + _%tl8501885635%_ + _%hd8501785632%_ + _%hd8501185612%_ + _%hd8493085889%_)))) + (if (gx#stx-null? _%hd8501485622%_) + (_%__kont9098190982%_ + _%tl8501585625%_ + _%hd8501185612%_ + _%hd8493085889%_) + (let () (declare (not safe)) (_%g8492285136%_)))))) + (let () (declare (not safe)) (_%g8492285136%_))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8485985073%_))) - (if (equal? _%e8487285842%_ '3) + (_%g8492285136%_))) + (if (equal? _%e8493585905%_ '3) (if (gx#stx-pair? - _%tl8487185839%_) - (let ((_%e8501485294%_ + _%tl8493485902%_) + (let ((_%e8507785357%_ (gx#syntax-e - _%tl8487185839%_))) - (let ((_%tl8501685301%_ + _%tl8493485902%_))) + (let ((_%tl8507985364%_ (let () (declare ;;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< (not safe)) - (##cdr _%e8501485294%_))) - (_%hd8501585298%_ - (let () (declare (not safe)) (##car _%e8501485294%_)))) - (if (gx#stx-pair? _%tl8501685301%_) - (let ((_%e8501785304%_ (gx#syntax-e _%tl8501685301%_))) - (let ((_%tl8501985311%_ + (##cdr _%e8507785357%_))) + (_%hd8507885361%_ + (let () (declare (not safe)) (##car _%e8507785357%_)))) + (if (gx#stx-pair? _%tl8507985364%_) + (let ((_%e8508085367%_ (gx#syntax-e _%tl8507985364%_))) + (let ((_%tl8508285374%_ (let () (declare (not safe)) - (##cdr _%e8501785304%_))) - (_%hd8501885308%_ + (##cdr _%e8508085367%_))) + (_%hd8508185371%_ (let () (declare (not safe)) - (##car _%e8501785304%_)))) - (if (gx#stx-pair? _%hd8501885308%_) - (let ((_%e8502085314%_ - (gx#syntax-e _%hd8501885308%_))) - (let ((_%tl8502285321%_ + (##car _%e8508085367%_)))) + (if (gx#stx-pair? _%hd8508185371%_) + (let ((_%e8508385377%_ + (gx#syntax-e _%hd8508185371%_))) + (let ((_%tl8508585384%_ (let () (declare (not safe)) - (##cdr _%e8502085314%_))) - (_%hd8502185318%_ + (##cdr _%e8508385377%_))) + (_%hd8508485381%_ (let () (declare (not safe)) - (##car _%e8502085314%_)))) - (_%__kont9092090921%_ - _%tl8501985311%_ - _%tl8502285321%_ - _%hd8502185318%_ - _%hd8501585298%_ - _%hd8486785826%_))) - (if (gx#stx-pair/null? _%hd8501585298%_) - (let ((_%__splice9092490925%_ + (##car _%e8508385377%_)))) + (_%__kont9098390984%_ + _%tl8508285374%_ + _%tl8508585384%_ + _%hd8508485381%_ + _%hd8507885361%_ + _%hd8493085889%_))) + (if (gx#stx-pair/null? _%hd8507885361%_) + (let ((_%__splice9098790988%_ (gx#syntax-split-splice - _%hd8501585298%_ + _%hd8507885361%_ '0))) - (let ((_%tl8504185117%_ + (let ((_%tl8510485180%_ (let () (declare (not safe)) (##vector-ref - _%__splice9092490925%_ + _%__splice9098790988%_ '1))) - (_%target8503985114%_ + (_%target8510285177%_ (let () (declare (not safe)) (##vector-ref - _%__splice9092490925%_ + _%__splice9098790988%_ '0)))) - (if (gx#stx-null? _%tl8504185117%_) - (_%__match9125291253%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8501485294%_ - _%hd8501585298%_ - _%tl8501685301%_ - _%__splice9092490925%_ - _%target8503985114%_ - _%tl8504185117%_) + (if (gx#stx-null? _%tl8510485180%_) + (_%__match9131591316%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8507785357%_ + _%hd8507885361%_ + _%tl8507985364%_ + _%__splice9098790988%_ + _%target8510285177%_ + _%tl8510485180%_) (let () (declare (not safe)) - (_%g8485985073%_))))) + (_%g8492285136%_))))) (let () (declare (not safe)) - (_%g8485985073%_)))))) - (if (gx#stx-pair/null? _%hd8501585298%_) - (let ((_%__splice9092490925%_ - (gx#syntax-split-splice _%hd8501585298%_ '0))) - (let ((_%tl8504185117%_ + (_%g8492285136%_)))))) + (if (gx#stx-pair/null? _%hd8507885361%_) + (let ((_%__splice9098790988%_ + (gx#syntax-split-splice _%hd8507885361%_ '0))) + (let ((_%tl8510485180%_ (let () (declare (not safe)) - (##vector-ref _%__splice9092490925%_ '1))) - (_%target8503985114%_ + (##vector-ref _%__splice9098790988%_ '1))) + (_%target8510285177%_ (let () (declare (not safe)) - (##vector-ref _%__splice9092490925%_ '0)))) - (if (gx#stx-null? _%tl8504185117%_) - (_%__match9125291253%_ - _%e8486685822%_ - _%hd8486785826%_ - _%tl8486885829%_ - _%e8486985832%_ - _%hd8487085836%_ - _%tl8487185839%_ - _%e8487285842%_ - _%e8501485294%_ - _%hd8501585298%_ - _%tl8501685301%_ - _%__splice9092490925%_ - _%target8503985114%_ - _%tl8504185117%_) + (##vector-ref _%__splice9098790988%_ '0)))) + (if (gx#stx-null? _%tl8510485180%_) + (_%__match9131591316%_ + _%e8492985885%_ + _%hd8493085889%_ + _%tl8493185892%_ + _%e8493285895%_ + _%hd8493385899%_ + _%tl8493485902%_ + _%e8493585905%_ + _%e8507785357%_ + _%hd8507885361%_ + _%tl8507985364%_ + _%__splice9098790988%_ + _%target8510285177%_ + _%tl8510485180%_) (let () (declare (not safe)) - (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_)))))) + (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_)))))) ;;>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> (let () (declare (not safe)) - (_%g8485985073%_))) + (_%g8492285136%_))) (let () (declare (not safe)) - (_%g8485985073%_)))))) + (_%g8492285136%_)))))) (let () (declare (not safe)) - (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_))))) - (let () (declare (not safe)) (_%g8485985073%_)))))))))) + (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_))))) + (let () (declare (not safe)) (_%g8492285136%_)))))))))) diff --git a/src/bootstrap/gerbil/runtime~0.scm b/src/bootstrap/gerbil/runtime~0.scm index c7abc2f26..7c2d7d2e1 100644 --- a/src/bootstrap/gerbil/runtime~0.scm +++ b/src/bootstrap/gerbil/runtime~0.scm @@ -1,2 +1,2 @@ (declare (block) (standard-bindings) (extended-bindings)) -(begin (define gerbil/runtime::timestamp 1733870074) '#!void) +(begin (define gerbil/runtime::timestamp 1734131746) '#!void) diff --git a/src/gambit b/src/gambit index 09335d95c..2686dd612 160000 --- a/src/gambit +++ b/src/gambit @@ -1 +1 @@ -Subproject commit 09335d95cab6931791c0a8497cbe915053ff8af3 +Subproject commit 2686dd61237aa562eb0ff206bc689bc8a77b45c9 diff --git a/src/gerbil/core/runtime.ss b/src/gerbil/core/runtime.ss index 675452988..63c191426 100644 --- a/src/gerbil/core/runtime.ss +++ b/src/gerbil/core/runtime.ss @@ -1614,6 +1614,7 @@ package: gerbil/core seal-class! next-method call-next-method + type-of class-of t::t class::t diff --git a/src/gerbil/runtime/mop.ss b/src/gerbil/runtime/mop.ss index 6dcfef36a..b0136e5a2 100644 --- a/src/gerbil/runtime/mop.ss +++ b/src/gerbil/runtime/mop.ss @@ -1190,74 +1190,150 @@ namespace: #f (else (loop (##type-super super) (cons super hierarchy)))))))) -;; the class-of operator -(def (class-of obj) => :class - (declare (not interrupts-enabled)) - (:- (let (t (##type obj)) - (cond - ((fx= t (macro-type-subtyped)) ; subtyped - (let (st (##subtype obj)) - (cond - ((fx= st (macro-subtype-structure)) ; object - (let (klass (##structure-type obj)) - (if (class-type? klass) klass (__shadow-class klass)))) - ((fx= st (macro-subtype-boxvalues)) ; box or values? - (if (fx= (##vector-length obj) 1) - (__system-class 'box) - (__system-class 'values))) - ((##vector-ref __subtype-id st) - => __system-class) - (else - (error "unknown class" subtype: st object: obj))))) - ((fx= t (macro-type-mem2)) ; pair - (__system-class 'pair)) - ((fx= t (macro-type-fixnum)) ; fixnum - (__system-class 'fixnum)) - (else ; special (immediate) - (cond - ((char? obj) (__system-class 'char)) - ((eq? obj '()) (__system-class 'null)) - ((eq? obj #f) (__system-class 'boolean)) - ((eq? obj #t) (__system-class 'boolean)) - ((eq? obj #!void) (__system-class 'void)) - ((eq? obj #!eof) (__system-class 'eof)) - (else - (__system-class 'special)))))) - :class)) - -(def __subtype-id (make-vector 32 #f)) - -(defrules defsubtype () - ((_ (t name) ...) - (begin (vector-set! __subtype-id t 'name) ...))) - -(defsubtype - ((macro-subtype-vector) vector) - ((macro-subtype-pair) pair) - ((macro-subtype-ratnum) ratnum) - ((macro-subtype-cpxnum) cpxnum) - ((macro-subtype-symbol) symbol) - ((macro-subtype-keyword) keyword) - ((macro-subtype-frame) frame) - ((macro-subtype-continuation) continuation) - ((macro-subtype-promise) promise) - ((macro-subtype-weak) weak) - ((macro-subtype-procedure) procedure) - ((macro-subtype-return) return) - ((macro-subtype-foreign) foreign) - ((macro-subtype-string) string) - ((macro-subtype-s8vector) s8vector) - ((macro-subtype-u8vector) u8vector) - ((macro-subtype-s16vector) s16vector) - ((macro-subtype-u16vector) u16vector) - ((macro-subtype-s32vector) s32vector) - ((macro-subtype-u32vector) u32vector) - ((macro-subtype-f32vector) f32vector) - ((macro-subtype-s64vector) s64vector) - ((macro-subtype-u64vector) u64vector) - ((macro-subtype-f64vector) f64vector) - ((macro-subtype-flonum) flonum) - ((macro-subtype-bignum) bignum)) +;; support for the type-of/class-of operators +(cond-expand + (,(compilation-target? C) + ;; we crate the type mapping vector at runtime so that we are configuration independent + (def __type + (let (tb (##c-code "___RESULT = ___FIX(___TB);")) + (case tb + ((2) + '#(fixnum subtyped special pair)) + ((3) + (let ((flonum-self-tagging-tags + (##c-code "___RESULT = ___FIX(___FLONUM_SELF_TAGGING_TAGS);")) + (fixnum-tag-bits + (##c-code #< __system-class) + (else + (error "unknown class" subtype: st object: obj)))))) + ((eq? t 'special) + (lambda (obj) + (declare (not interrupts-enabled) (not safe)) + (cond + ((char? obj) (__system-class 'char)) + ((eq? obj '()) (__system-class 'null)) + ((eq? obj #f) (__system-class 'boolean)) + ((eq? obj #t) (__system-class 'boolean)) + ((eq? obj #!void) (__system-class 'void)) + ((eq? obj #!eof) (__system-class 'eof)) + (else + (__system-class 'special))))) + (else + (error "unexpected object type" t))))) + (##vector-set! cv i f) + (loop (##fx+ i 1))) + cv)))) + + ;; the type-of operator + (def (type-of obj) => :symbol + (declare + (not safe) + (not interrupts-enabled)) + (:- (##vector-ref __type (##type obj)) :symbol)) + + ;; the class-of operator + (def (class-of obj) => :class + (declare + (not safe) + (not interrupts-enabled)) + (:- (let* ((t (##type obj)) + (f (##vector-ref __class t))) + (f obj)) + :class)) + + (def __subtype-id (make-vector 32 #f)) + + (defrules defsubtype () + ((_ (t name) ...) + (begin (vector-set! __subtype-id t 'name) ...))) + + (defsubtype + ((macro-subtype-vector) vector) + ((macro-subtype-pair) pair) + ((macro-subtype-ratnum) ratnum) + ((macro-subtype-cpxnum) cpxnum) + ((macro-subtype-symbol) symbol) + ((macro-subtype-keyword) keyword) + ((macro-subtype-frame) frame) + ((macro-subtype-continuation) continuation) + ((macro-subtype-promise) promise) + ((macro-subtype-weak) weak) + ((macro-subtype-procedure) procedure) + ((macro-subtype-return) return) + ((macro-subtype-foreign) foreign) + ((macro-subtype-string) string) + ((macro-subtype-s8vector) s8vector) + ((macro-subtype-u8vector) u8vector) + ((macro-subtype-s16vector) s16vector) + ((macro-subtype-u16vector) u16vector) + ((macro-subtype-s32vector) s32vector) + ((macro-subtype-u32vector) u32vector) + ((macro-subtype-f32vector) f32vector) + ((macro-subtype-s64vector) s64vector) + ((macro-subtype-u64vector) u64vector) + ((macro-subtype-f64vector) f64vector) + ((macro-subtype-flonum) flonum) + ((macro-subtype-bignum) bignum))) + (else + ;; TODO js and other target support + (syntax-error "unsupported compilation target"))) ;; system classes for primitive types (def __system-classes diff --git a/src/std/actor-v18/io-test.ss b/src/std/actor-v18/io-test.ss index 0865deffa..bd413a89f 100644 --- a/src/std/actor-v18/io-test.ss +++ b/src/std/actor-v18/io-test.ss @@ -32,8 +32,8 @@ (check-exception (BufferedWriter-marshal buf value) io-error?))) (def (equal-values? a b) - (and (= (##type a) 1) - (= (##type b) 1) + (and (eq? (type-of a) 'subtyped) + (eq? (type-of b) 'subtyped) (= (##subtype a) 5) (= (##subtype b) 5) (= (##vector-length a) (##vector-length b)) diff --git a/src/std/actor-v18/io.ss b/src/std/actor-v18/io.ss index f914ffe70..3193b5a87 100644 --- a/src/std/actor-v18/io.ss +++ b/src/std/actor-v18/io.ss @@ -243,7 +243,7 @@ ;;; internals (def +type-tag+ - (make-vector 4 false)) + (make-hash-table-eq)) (def +subtype-tag+ (make-vector 32 false)) (def +marshal+ @@ -252,7 +252,7 @@ (make-vector 256 #f)) (def (object-tag obj) - (or ((vector-ref +type-tag+ (##type obj)) obj) + (or ((hash-ref +type-tag+ (type-of obj)) obj) serde-tag)) ;;; io registry @@ -301,9 +301,9 @@ ;; tags (defrules deftype-tag (=>) ((_ (type tag)) - (vector-set! +type-tag+ type (lambda (obj) tag))) + (hash-put! +type-tag+ 'type (lambda (obj) tag))) ((_ (type => fun)) - (vector-set! +type-tag+ type fun))) + (hash-put! +type-tag+ 'type fun))) (defrule (deftype-tags defn ...) (begin (deftype-tag defn) ...)) @@ -339,10 +339,6 @@ (else #f))) (extern namespace: #f - macro-type-fixnum - macro-type-mem1 - macro-type-special - macro-type-mem2 macro-subtype-vector macro-subtype-pair macro-subtype-structure @@ -355,10 +351,12 @@ macro-subtype-bignum) (deftype-tags - ((macro-type-fixnum) integer-tag) - ((macro-type-mem1) => subtyped-tag) - ((macro-type-special) => immediate-tag) - ((macro-type-mem2) pair-tag)) + (fixnum integer-tag) + (subtyped => subtyped-tag) + (special => immediate-tag) + (pair pair-tag) + (vector vector-tag) + (flonum double-tag)) (defsubtype-tags ((macro-subtype-vector) vector-tag)